9 GOSUB 202:X=120,Y=29,D$="I",L=0,T=-1
10 B$= INKEY$ : IF B$="" GOTO 12
11 D$=B$: IF T BEEP 1
12 L=L+1
13 IF D$="I" LET C=X,E=Y,X=X-1: GOTO 19
14 IF D$="T" GOTO 310
15 IF D$="P" LET C=X,E=Y,X=X+1: GOTO 19
16 IF D$="Q" LET C=X,E=Y,Y=Y-1: GOTO 19
17 IF D$="Z" LET C=X,E=Y,Y=Y+1
18 IF D$="H" GOTO 490
19 IF POINT (X,Y)=1 GOTO 500
20 IF X=20 IF Y=17 GOTO 300
21 IF X>144 IF X<150 IF Y=17 GOTO 600
22 PSET (X,Y): PRESET (C,E): GOTO 10
202 GPRINT "FF0105057D050531494931017909790971014169697101097D4901FF0101F90989";
204 GPRINT "493909018141211109854321110909090909093143850911E10109F941818F1010";
206 GPRINT "202020300804C321211111098981413F0101F90101FF1008844321111121438408";
208 GPRINT "103FC10109F121428408102040FF01013941810F11214189192949890901017F81";
210 GPRINT "0119112141831D0101F909094949494141FF"
212 GCURSOR (0,15): GPRINT "FF0101794141CF4141794141CF4141794141CF4141F9090949C9494948C44321";
214 GPRINT "1008844221100804020100804020101090908888844241300C83C0A09F80809891";
216 GPRINT "91929292929191988482E211198844242426222110080700807F000002FE20E0";
218 GPRINT "202120203FE00007780000C1828C881021428408102142840810214284081122";
220 GPRINT "448810E10204F8000001FE828392929212121010FF"
222 GCURSOR (0,23): GPRINT "FF8282921010FF0000FE80809F8080FF8242221E088142241810A14285081824";
224 GPRINT "7E0101F90909494941417FC0000C3241801C880808F82424223F202024240404FC";
226 GPRINT "0000FF80809C90909390909C8487C0407E41414949C949494848484E424362233010";
228 GPRINT "1F9090931212F242425F5040447C0404E4252604081021428408103152921212";
230 GPRINT "02033C20202724242424242020FF00304800FF"
232 GCURSOR (0,31): GPRINT "FF80809C8484E784849C908084FC8281908884C221100804FE83829292939292";
234 GPRINT "92929293929292929290909F919294948889C98888AF8888998989A98999C181FF";
236 GPRINT "80809C94949494949494949C80809F908082FE80809F8080FE82829292929292";
238 GPRINT "9293919198888CC44720100CFE82829292929390909F818181A9958182848890";
240 GPRINT "A1C3858991919191919191919090909391818181FF": RETURN
300 GCURSOR (25,23): GPRINT "088542A110": GOTO 22
310 BEEP 1:T=-T,D$="I": GOTO 10
490 BEEP 1
495 IF INKEY$ ="" GOTO 495
496 GOTO 10
500 BEEP 1: CLS : PRINT "****  GAME  OVER  ****": GOTO 800
600 BEEP 4: CLS : PRINT "* CONGRATULATIONS *": PRINT "Time:"; STR$ L;" units.": GOTO 800
700 CLS : WAIT 0: PRINT "The goal of the game is to guide a dot on a race"
701 PRINT "track. If you hit the"
702 WAIT : PRINT "wall game ends.": CLS : WAIT 0: PRINT "Keys:": LINE (6,0)-(38,6),X,BF
710 PRINT "Q-up": CURSOR 41: PRINT "P-rightZ-down": CURSOR 65: PRINT "I-left T-beep": CURSOR 89: WAIT : PRINT "H-pause"
730 WAIT 0: GOTO 860
800 CURSOR 48: PRINT "Again?"
801 IF INKEY$ ="Y" GOTO 9
802 IF INKEY$ ="N" END
803 GOTO 801
850 "A" BEEP 1: CLEAR : CLS : WAIT 0: CURSOR 73: PRINT "CAR RACE": FOR N=24 TO 30: FOR M=6 TO 64: IF POINT (M,N)=0 GOTO 853
852 K=2*N-48,L=2*M+3: LINE (L,K)-(L+1,K+1),B
853 NEXT M: NEXT N: CURSOR 56: PRINT "(C) 1987": PRINT " written by Tomaz TOMAT": BEEP 1
854 IF INKEY$ ="" GOTO 854
860 CLS : PRINT "Instructions?"
861 IF INKEY$ ="Y" GOTO 700
862 IF INKEY$ ="N" GOTO 9
863 GOTO 861