9 GOSUB 202:X=144,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 21 IF X>144 IF Y=17 GOTO 600 22 PSET (X,Y): PRESET (C,E): GOTO 10 202 GPRINT "FF01010111111111111111F1111111714141414F41414171414141474141417141414147"; 204 GPRINT "41414171414149C9090909FF0101010101010181C14121311111111111111101010101FF"; 206 GPRINT "0101010101111111111111111131315191111111111111F1010101FF0101F1F171310101"; 208 GPRINT "0181413F212121212141810101093141818181818181010101FF01010111111111111111"; 210 GPRINT "F101010101FF": GCURSOR (0,15) 212 GPRINT "FF01010111111111101010FF4041415F4141404E5151514E405F4244425F405E45"; 214 GPRINT "45455E4041415F413904834020180780402010F80C0301C0300C0602010505FD"; 216 GPRINT "056591916101F111F111E1016191F10191DAB2020C10E000030CF0000000FF00"; 218 GPRINT "0000FF0000FFC30000003CC3": GCURSOR (119,15): GPRINT "817E000000FF0000F0101F"; 220 GPRINT "1010101111F11111111111101010FF00000000FF" 222 GCURSOR (0,23): GPRINT "FF01011111111111101010FF1010101012121212121212121212121212121212"; 224 GPRINT "12121212121212F272321108040281418204081F38408000071820404080808080"; 226 GPRINT "8080808080808080808080808080808080404020100C0300C0300F000000FF00"; 228 GPRINT "00003F0000FFFFFEFCF0E0E0C1C28484848484C4C2C1E0E0F0FCFEFF01010110"; 230 GPRINT "1010FF8080808F808080FF00000000FF00304800FF" 232 GCURSOR (0,31): GPRINT "FF818181898989898888888F808080FF81818189898989898989898989898989"; 234 GPRINT "898989898888888F808080F8040201000001010204081021C182848C8888888888"; 236 GPRINT "8888888888888888888888888888888888888888888C8E"; 238 AA$="818181F18181818F": GCURSOR (88,31): GPRINT AA$;AA$;AA$;AA$;AA$; 240 GPRINT "808080FF808080888888888C848484848781A99581FF": RETURN 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