Night Race

Gallery

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