Car racing game. Also known as Speedster. Originally published in Your Computer.
Content
Source Code
1 REM -----------------------
2 REM
3 REM Night Race
4 REM
5 REM Blane Bramble 1982
6 REM
7 REM -----------------------
8 LET k=0
9 INK 4: PAPER 0: BORDER 0: CLS : LET x=10: LET c=4: LET score=0: LET hi=0: LET c$="__________": GO SUB 9000: GO SUB 8000
10 PRINT : FOR i=1 TO 6: PRINT '" \e \e"'" \e \e": NEXT i
18 LET a=9: LET b=10: LET c=4
20 LET y=1
30 LET m=RND*4+3
101 PRINT INK 6;AT 20,c;"\e \e"
102 PRINT INK 5;AT 21,c;"\e \e"
103 LET b$=SCREEN$ (11,b): IF b$="" THEN GO TO 1000
104 LET a$=SCREEN$ (11,b+1): IF a$="" THEN GO TO 1000
105 IF RND>50/(score+80) THEN PRINT INK m;AT 20,c+x;"\a\b";AT 21,c+x;"\c\d"
107 LET a$=SCREEN$ (11,b+1): IF a$="" THEN GO TO 1000
108 LET b$=SCREEN$ (11,b): IF b$="" THEN GO TO 1000
110 POKE 23692,5
115 LET score=score+5
120 PRINT '''
130 PRINT INK 2;AT a,b;"\a\b";AT a+1,b;"\c\d"
133 LET m=RND*5+3
135 BEEP 10/(score+40),(1-100/(score+100))*50-50
140 PRINT AT a,b;" ";AT a+1,b;" "
145 LET x=RND*8+1
150 IF INKEY$="T" AND b<29 THEN LET b=b+2
153 IF INKEY$="R" AND b>0 THEN LET b=b-2
156 IF INKEY$="t" AND b<29 THEN LET b=b+1
158 IF INKEY$="r" AND b>0 THEN LET b=b-1
159 IF INKEY$="h" OR INKEY$="H" THEN PAUSE 9999
160 PRINT AT 20,0;""
190 IF y=1 AND c<19 THEN LET c=c+1
195 IF y=0 AND c>1 THEN LET c=c-1
197 IF c=1 OR c=19 OR RND>.9 THEN LET y=1-y
200 GO TO 100
1000 IF a$="" AND b$<>"" THEN PRINT INK 2;AT a,b;"\a\d";AT a+1,b;"\c\b"
1003 IF b$="" AND a$<>"" THEN PRINT INK 2;AT a,b;"\c\b";AT a+1,b;"\a\d"
1005 FOR a=1 TO 30: BEEP 0.1,-30: NEXT a
1010 FOR a=30 TO 0 STEP -1: BEEP 0.01,a: NEXT a
1020 CLS
1030 PRINT "Score ";score;';"High score is ";hi;';"By ";c$
1031 IF hi<score THEN PRINT "You have the new high score"
1032 IF hi<score THEN INPUT "Your name? ";c$
1033 IF hi<score THEN LET hi=score: GO TO 1020
1034 LET score=0
1037 PAUSE 50
1040 PRINT AT 21,3;"PRESS ANY KEY TO CONTINUE"
1043 BEEP 0.01,RND*40: IF INKEY$="" THEN GO TO 1043
1045 CLS
1050 GO TO 10
8000 PRINT AT 0,10; INK 6;"NIGHT RACE"
8010 PRINT AT 2,8; INK 2;"by Blane Bramble"
8020 PRINT ''"The Controls are:-"
8030 PRINT '"r---------1 space left"
8040 PRINT "t---------1 space right"
8050 PRINT "R---------2 spaces left"
8060 PRINT "T---------2 spaces right"
8070 PRINT '"The last two controls are CAPS SHIFT and the r or t key"
8072 PRINT FLASH 1; INK 2;AT 21,10;"Press a key"
8074 PAUSE 0
8076 CLS
8080 RETURN
9000 POKE USR "a"+0,BIN 00001111
9010 POKE USR "a"+1,BIN 00000111
9020 POKE USR "a"+2,BIN 00011111
9030 POKE USR "a"+3,BIN 00111100
9040 POKE USR "a"+4,BIN 00111100
9050 POKE USR "a"+5,BIN 00111111
9060 POKE USR "a"+6,BIN 00111111
9070 POKE USR "a"+7,BIN 00011000
9100 POKE USR "c"+0,BIN 00011000
9110 POKE USR "c"+1,BIN 00011000
9120 POKE USR "c"+2,BIN 00011111
9130 POKE USR "c"+3,BIN 00111111
9140 POKE USR "c"+4,BIN 00111111
9150 POKE USR "c"+5,BIN 00111111
9160 POKE USR "c"+6,BIN 00010011
9170 POKE USR "c"+7,BIN 00001111
9200 POKE USR "b"+0,BIN 11110000
9210 POKE USR "b"+1,BIN 11100000
9220 POKE USR "b"+2,BIN 11111000
9230 POKE USR "b"+3,BIN 00111100
9240 POKE USR "b"+4,BIN 00111100
9250 POKE USR "b"+5,BIN 11111100
9260 POKE USR "b"+6,BIN 11111100
9270 POKE USR "b"+7,BIN 00011000
9300 POKE USR "d"+0,BIN 00011000
9310 POKE USR "d"+1,BIN 00011000
9320 POKE USR "d"+2,BIN 11111000
9330 POKE USR "d"+3,BIN 11111100
9340 POKE USR "d"+4,BIN 11111100
9350 POKE USR "d"+5,BIN 11111100
9360 POKE USR "d"+6,BIN 11001000
9370 POKE USR "d"+7,BIN 11110000
9400 POKE USR "e"+0,BIN 00011000
9410 POKE USR "e"+1,BIN 00011000
9420 POKE USR "e"+2,BIN 00011000
9430 POKE USR "e"+3,BIN 00011000
9440 POKE USR "e"+4,BIN 00011000
9450 POKE USR "e"+5,BIN 00011000
9460 POKE USR "e"+6,BIN 00011000
9470 POKE USR "e"+7,BIN 00011000
9500 RETURN
9998 SAVE "Night Race" LINE 1: BEEP .4,15
9999 VERIFY ""