10 PRINT Racer by 8 Bit Show and Tell [Commodore PET]

1o=1:q=37:b=32:r$="":w=205.5:c=75:e$="4":w$="6":u=35:y=25:g=4:h=6:i=10:hs=2
5forx=otoc:m$=CHR$(w+RND(.)):r$=r$+m$:NEXT
10printchr$(147):c=20:r=13:w=15:d=.:s=32768:a=s+c:l=.:forz=.toostep.:x=RND(.)*i
20ifx<gthenr=r-o:ifr<othenr=o
30ifx>hthenr=r+o:ifr+w>qthenr=q-w
40rn=RND(.)*u+o:printmid$(r$,rn,r)spc(w)mid$(r$,rn,39-r-w)
50d=d+o:l=l+o:ifl>49thenl=.:w=w-o:ifw<3thenw=3
60ifd<ythennext
70geta$:on-(a$<>e$anda$<>w$)goto80:c=c+(a$=e$)-(a$=w$)
80a=s+c:p=PEEK(a):ifp=bthenpokea,42:NEXT
200printspc(17)"crash!":ifd>hsthenhs=d
205print,"score:"d"  high:"hs:forx=1to2000:NEXT:poke158,.:wait158,o:goto10

REM see https://youtu.be/bCTrdVhjjWo FOR details - some further optimisations
REM are possible. This version by Donkeysoft, thanks TO 8 bit show AND tell
REM FOR the original version. c= rulez!