Night Race

Date: 1982
Type: Program
Platform(s): TS 2068

Car racing game. Also known as Speedster. Originally published in Your Computer.

Content

Appears On

Library tape of the Indiana Sinclair Timex User’s Group.

Related Products

Related Articles

Related Content

Image Gallery

Night Race

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 ""

People

No people associated with this content.

Scroll to Top