9 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 550 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 560 19 IF POINT (X,Y) GOTO 570 21 IF K=0 IF X=150 IF Y>25 GOTO 25 22 IF K=1 IF X>144 IF Y=25 GOTO 600 23 PSET (X,Y): PRESET (C,E): GOTO 10 25 POKE 10028,119: POKE 10032,80: GOSUB 30 29 X=2,D$="P",K=1: GCURSOR (0,31): GPRINT 255: GOTO 9 30 BEEP 1: FOR N=1 TO 150: CALL 10000: NEXT N: BEEP 1: RETURN 550 BEEP 1:T=-T,D$="I": GOTO 10 560 BEEP 1 562 IF INKEY$ ="" PSET (X,Y),X: GOTO 562 564 GOTO 10 570 BEEP 1: CLS : PRINT "**** GAME OVER ****": GOTO 610 600 BEEP 4: CLS : PRINT "* CONGRATULATIONS *": PRINT "Time:"; STR$ L;" units." 610 CURSOR 48: PRINT "Again?" 611 IF INKEY$ ="Y" GOTO 870 612 IF INKEY$ ="N" END 613 GOTO 611 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 850 "A" CLEAR : WAIT 0: POKE 10134,207: POKE 10138,82: CALL 10132 854 IF INKEY$ ="" GOTO 854 860 CLS : PRINT "Instructions?" 861 IF INKEY$ ="Y" GOTO 700 862 IF INKEY$ ="N" GOTO 870 863 GOTO 861 870 POKE 10134,31: POKE 10138,78: CALL 10132 877 X=4,Y=5,D$="P",K=0: GOTO 9 878 X=142,Y=29,D$="P",K=0: GOTO 9