9 GOSUB 202:X=20,Y=14,D$="Z",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 X<150 IF Y=17 GOTO 600 22 PSET (X,Y): PRESET (C,E): GOTO 10 202 GPRINT "FF0101F9090949494949494941417F0101F91121418305091121418101010111"; 204 GPRINT "21418101010101FF41414949494949C90909F9116181030408106080",0,0; 206 GPRINT "E018048262111111111121C3040C30C0201884432111111111111123C20418FF"; 208 GPRINT "010101F1210101FF0101F90101FF1121418101011131519111F1111111919191"; 210 GPRINT "919191919191111111F101017FC141410909F90101FF"; 212 GCURSOR (0,15): GPRINT "FF10101312121212121212121212120202FF00140A00FF020408102041828488"; 214 GPRINT "908080FF000000FF000000FE8080809F8080FF808081828498E000010608102027"; 216 GPRINT "380000FF804020108844231008844320108F40404020202018048241201C0380"; 218 GPRINT "4020FF000220FF0000FF0000FF040404C44586040810204183040818294888FC"; 220 GPRINT "04040810204182040C142444FF0000F8080F4040FF" 222 GCURSOR (0,23): GPRINT "FF000000FF0101011131519191911111119110101010FF0000FF022428E82828"; 224 GPRINT "08C8282824C402EF488848E8088848284888082828E82828081021C103030509F905"; 226 GPRINT "03E111080402010718E0000718E01C03C0300C02020201013FC0000C32C14040"; 228 GPRINT "40FF022000FF0000FF0000FF4040404F48C8494A8C0810204182848890909190"; 230 GPRINT "909F081020408102040810214080FF00304800FF" 232 GCURSOR (0,31): GPRINT "030C102040818284888888888888888C8A87C0C0A09C8380808F8888888B8888"; 234 GPRINT "88898A8A8A89888B8888888B888B8989898B8888888B888888888483C04020100F"; 236 GPRINT "1020438C889090908884C320201807081021C284889090908884C3402018FF80"; 238 GPRINT "8080939290929F8080FF80809F8080FE80809F8282E283828488909292929280"; 240 GPRINT "9880FF0102040810214284989090909191918181FF": 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