10 MODE1
20 GOTO 1000
30 DIM CAN(25,18)
40 FOR X=1 TO 25
50 FOR Y=1 TO 18
60 CAN(X,Y)=1
70 PRINT TAB(X,Y)"H"
80 NEXT Y
90 NEXT X
100 FOR X=2 TO 24
110 FOR Y=2 TO 17
120 CAN(X,Y)=0
130 COLOUR 0:PRINT TAB(X,Y)"H"
140 NEXT Y
150 NEXT X
160 FOR X=7 TO 19
170 FOR Y=8 TO 12
180 CAN(X,Y)=1
190 COLOUR 1:PRINT TAB(X,Y)"H"
200 NEXT Y
210 NEXT X
220 GOTO 640
230 X=2:Y=11:M=1:C=0:LAP=0:S=0:TIME=0:TS=40000
231 PRINT TAB(1,20)"Z=LEFT X=RIGHT K=SPEED UP M=SLOW DOWN"
232 B$=GET$:TIME=0
240 A$=INKEY$(0)
250 IF A$="Z" THEN M=M-1
260 IF A$="X" THEN M=M+1
270 IF A$="K" THEN TS=TS-500
280 IF A$="M" THEN TS=TS+500
281 IF TS<500 THEN TS=500
290 COLOUR 0:PRINT TAB(X,Y)"X"
300 COLOUR 3
310 PX=X:PY=Y
320 IF M=0 THEN M=8
330 IF M=9 THEN M=1
340 IF M=1 THEN Y=Y-1
350 IF M=2 THEN Y=Y-1:X=X+1
360 IF M=3 THEN X=X+1
370 IF M=4 THEN X=X+1:Y=Y+1
380 IF M=5 THEN Y=Y+1
390 IF M=6 THEN Y=Y+1:X=X-1
400 IF M=7 THEN X=X-1
410 IF M=8 THEN X=X-1:Y=Y-1
420 IF CAN(X,Y)=1 THEN 600
430 COLOUR 3:PRINT TAB(X,Y);CHR$(240+M)
440 PRINT TAB(30,5);S:PRINT TAB(30,4);LAP:PRINTTAB(30,2);3000-TIME
450 IF Y=12 AND X<7 AND X>0 THEN LAP=LAP+1:C=1:S=S+3000-TIME
460 IF PY<12 AND C=1 THEN LAP=LAP-1:S=S-3000+TIME:GOTO 480
470 IF C=1 THEN TIME=0
480 FOR TD=1 TO TS:NEXT
490 C=0
500 GOTO 240
510 CLS:COLOUR 3
520 FOR X=1 TO 25
530 FOR Y=1 TO 18
550 IF CAN(X,Y)=1 THEN PRINT TAB(X,Y)"H"
560 NEXT Y
570 NEXT X
571 CAN(7,12)=1
580 COLOUR 1:PRINT TAB(1,12)">";TAB(7,12)"<"
590 GOTO 230
600 CLS
610 PRINT "CRASHED"
620 PRINT "LAPS:";LAP
630 PRINT "SCORE:";S
631 FOR K=1 TO 800000:NEXT:CLS
640 PRINT TAB(1,1)"CAR VERSION THREE - TIMED RACING"
650 PRINT TAB(7,5)"ANDREW(SCORPION)BROOMFIELD"
660 PRINT TAB(7,8)"A:PLAY":PRINT TAB(7,9)"B:MAKE A TRACK"
670 PRINT TAB(7,10)"C:SAVE TRACK":PRINT TAB(7,11)"D:LOAD TRACK"
680 PRINT TAB(7,12)"E:EXIT"
690 A$=GET$
700 IF A$="A" THEN 510
710 IF A$="B" THEN 760
720 IF A$="C" THEN 1230
730 IF A$="D" THEN 1090
740 IF A$="E" THEN MODE7:END
750 GOTO 690
760 CLS
770 FOR X=1 TO 25
780 FOR Y=1 TO 18
790 COLOUR 3
800 IF CAN(X,Y)=1 THEN PRINT TAB(X,Y)"H"
810 NEXT Y
820 NEXT X
830 X=15:Y=15:P=1
840 PRINT TAB(1,20)"K=UP M=DOWN Z=LEFT X=RIGHT"
841 PRINT TAB(1,21)"D=DELTE T=DRAW E=END"
850 A$=GET$
860 IF P=0 THEN COLOUR0:PRINT TAB(X,Y)"8":COLOUR 3
870 IF A$="K" THEN Y=Y-1
880 IF A$="M" THEN Y=Y+1
890 IF A$="Z" THEN X=X-1
900 IF A$="X" THEN X=X+1
910 IF A$="D" THEN P=0
920 IF A$="T" THEN P=1
930 IF A$="E" THEN GOTO 640
940 PRINT TAB(X,Y)"*"
950 IF P=1 THEN CAN(X,Y)=1
960 IF P=0 THEN CAN(X,Y)=0
970 IF X>24 OR X<2 THEN 640
980 IF Y>17 OR Y<2 THEN 640
985 COLOUR1:PRINTTAB(1,12)">";TAB(7,12)"<":COLOUR3
990 GOTO 850
1000 VDU 23,241,0,60,126,38,126,24,126,0
1010 VDU 23,242,24,14,82,114,190,124,44,16
1020 VDU 23,243,0,84,94,118,118,94,84,0
1030 VDU 23,244,16,44,124,190,114,82,14,24
1040 VDU 23,245,0,126,24,126,38,126,60,0
1050 VDU 23,246,8,52,62,125,94,72,112,24
1060 VDU 23,247,0,42,122,110,110,122,42,0
1070 VDU 23,248,24,112,72,94,125,62,52,8
1080 GOTO 30
1090 CLS:INPUT "TRACK NAME";L$
1100 FOR K=1 TO 25
1110 FOR L=1 TO 18
1120 CAN(K,L)=0
1130 NEXT:NEXT
1140 Z=OPENIN L$
1150 REPEAT
1160 INPUT#Z, X,Y
1170 IF X=29 THEN 1200
1180 CAN(X,Y)=1
1190 PRINT TAB(15,15);X;" ";Y
1200 UNTIL X=29
1210 CLOSE#Z
1220 GOTO 640
1230 CLS
1240 PRINT "TRACK NAME?"
1250 INPUT L$
1260 Z=OPENOUT L$
1270 FOR X=1 TO 25
1280 FOR Y=1 TO 18
1290 IF CAN(X,Y)=1 THEN PRINT#Z, X,Y
1300 PRINT TAB(15,15);X;" ";Y
1310 NEXT Y
1320 NEXT X
1330 X=29:PRINT#Z, X,Y
1340 CLOSE#Z
1350 GOTO 640
vaporwave
dededos
gummygunk
germansingergirl
izzy806
andulkaphoto
origamiaround
titsay
jbbartram-illu
tangentwithtanner