1 REM**************** 2 REM*CAR RACE V4.0* 3 REM**************** 10 "A": CLS : WAIT 0: GOTO 95 70 REM############################################################ 71 REM############################################################ 72 REM############################################################ 73 REM############################################################ 74 REM############################################################ 75 REM############################################################ 76 REM############################################################ 77 REM############################################################ 78 REM############################################################ 79 REM############################################################ 80 REM############################################################ 81 REM############################################################ 82 REM############################################################ 83 REM############################################################ 84 REM############################################################ 85 REM############################################################ 86 REM############################################################ 87 REM############################################################ 88 REM############################################################ 89 REM############################################################ 95 PRINT "When game ends, press: 'Y' for another game 'N' for exit" 96 PRINT "'A' for another track" 97 IF INKEY$ ="" GOTO 97 100 CLS : WAIT 0:M=28672: F=84+PEEK 28417+256* PEEK 28418 101 INPUT "Track: ";Q: IF Q>0 IF Q<3 LET N=650*Q+F-650: CLS : GOTO 105 102 GOTO 100 105 FOR B=1 TO 2: FOR A=0 TO 59: POKE M, PEEK (N+A):M=M+1: NEXT A:N=N+65,M=M+4: NEXT B:M=M+384: IF M=31232 GOTO 200 110 GOTO 105 190 X=120,Y=29,D$="I": RETURN 191 X=20,Y=14,D$="Z": RETURN 192 X=144,Y=29,D$="I": RETURN 200 ON Q GOSUB 190,191,192 205 L=0,T=-1 210 B$= INKEY$ : IF B$="" GOTO 230 220 D$=B$: IF T=1 BEEP 1 230 L=L+1 232 IF D$="I" LET C=X,E=Y,X=X-1: GOTO 270 235 IF D$="T" BEEP 1: LET T=-T:D$="I": GOTO 210 240 IF D$="P" LET C=X,E=Y,X=X+1: GOTO 270 250 IF D$="Q" LET C=X,E=Y,Y=Y-1: GOTO 270 260 IF D$="Z" LET C=X,E=Y,Y=Y+1: GOTO 270 265 IF D$="H" GOTO 490 270 IF POINT (X,Y)=1 GOTO 600 280 IF X>144 IF X<150 IF Y=17 GOTO 600 285 IF Q=1 IF X=20 IF Y=17 GCURSOR (25,23): GPRINT "088542A110" 290 PSET (X,Y): PRESET (C,E) 300 GOTO 210 490 BEEP 1 495 IF INKEY$ ="" GOTO 495 496 GOTO 210 600 PRESET (C,E): BEEP 2 610 IF INKEY$ ="Y" BEEP 2: GOTO 200 620 IF INKEY$ ="N" END 630 IF INKEY$ ="A" GOTO 1 640 GOTO 610 1000 CLS : CLOSE : OPEN :WAIT : PRINT "SEND FILE": WAIT 0 : C=0: AA$="": X=80+ PEEK 28417+256* PEEK 28418 1010 INPUT #1AA$: PRINT AA$: IF LEFT$ (AA$,5)="CHECK" GOTO 1020 1015 N= VAL LEFT$ (AA$,5), M=VAL RIGHT$ (AA$,3), C=C+M: POKE X,M: X=X+1: GOTO 1010 1020 C=C-256* INT (C/256) 1025 IF C=54 PRINT "CHECKSUM OK!": CLOSE : IF PEEK X = 0 IF PEEK (X+1) = 95 GOTO 1040 1030 PRINT "CHECKSUM NOT OK. CHECK THE PROGRAM!" : CLOSE : END 1040 PRINT "POKING SUCCESSFUL!": PRINT "DELETE LINES FROM 1000" : END