10 REM RACER.ECB
   20 REM ...RACE...MECC : H4U1062  12-77
   30 REM ...MADE BY SCOTT PURDUE
   40 REM ...PICTURE ADDED  3-17-81  R.E.H.
   50 PRINT "&K&J&J"
   70 PRINT TAB(30);"/"
   80 PRINT TAB(18);".;:--------/...........:;'''''---.,"
   90 PRINT TAB(16);"/D .-.";TAB(46);".-.    \"
  100 PRINT TAB(15);"-.;(-+-)......................(-+-);.--"
  110 PRINT TAB(19);"'^'";TAB(46);"'^'"
  200 PRINT "############# RACE CAR DRIVING SIMULATION #############"
  220 PRINT "DO YOU WISH INSTRUCTIONS? (YES=1,NO=2) ---=>";
  320 INPUT B
  420 IF B=2 THEN 1420
  520 PRINT " THE OBJECT OF THE GAME IS NOT TO CRASH .TO FIND YOUR"
  620 PRINT "POSITION TYPE 'SEE'.YOUR CAR IS ALWAYS GOING "
  720 PRINT "STRAIGHT UNTIL YOU COME TO A CURVE THEN TYPE THE FOLLOWING"
  820 PRINT "    1=GRADUAL CURVE"
  920 PRINT "     2=HAIR PIN CURVE"
 1020 PRINT "     3=360 DEGREE CURVE"
 1120 PRINT "     4=STRAIGHT AWAY "
 1220 PRINT "THERE WILL BE TWO GEARS 1ST=6 2ND=7 AND IN THE CURVES "
 1320 PRINT "YOUR CAR HAS TO BE IN 1ST GEAR OR CRASH"
 1420 PRINT "YOU ARE NOW STARTING ON THE COURSE.....";
 1520 LET F=INT(4*RND(0))+1
 1620 IF F=1 THEN 2120
 1720 IF F=2 THEN 2320
 1920 IF F=3 THEN 2520
 2020 IF F=4 THEN 2620
 2120 PRINT "GRADUAL CURVE "
 2220 GOTO 2920
 2320 PRINT "HAIR PIN CURVE "
 2420 GOTO 2920
 2520 PRINT "360 DEGREE CURVE"
 2525 GOTO 2920
 2620 PRINT "STRAIGHT-AWAY"
 2720 GOTO 2920
 2820 PRINT F
 2920 PRINT "NOW MAKE A STEERING SELECTION."
 3020 INPUT R
 3120 IF F=R THEN 3520
 3220 IF F<>R THEN 3320
 3320 PRINT "1=GRADUAL CURVE,2=HAIR PIN,3=360,4=STAIGHT-AWAY"
 3420 GOTO 2920
 3520 PRINT "PICK A GEAR SELECTION"
 3620 INPUT V
 3720 IF F=4 AND V=7 THEN 1520
 3820 IF F=1 AND V=6 THEN 1520
 3920 IF F=2 AND V=6 THEN 1520
 4020 IF F=3 AND V=6 THEN 1520
 4120 IF F=4 AND V=6 THEN 4820
 4220 IF F=3 AND V=7 THEN 4520
 4320 IF F=2 AND V=7 THEN 4520
 4420 IF F=1 AND V=7 THEN 4520
 4520 PRINT "YOU HAVE JUST HIT THE GUARDRAIL"
 4620 PRINT "BECAUSE OF HIGH GEAR......................."
 4720 GOTO 5120
 4820 PRINT "YOU HAVE JUST BLOWN YOUR ENGINE(HA,HA)"
 4920 PRINT "BECAUSE OF YOUR HIGH SPEED IN LOW GEAR.............."
 5120 PRINT "DO YOU WISH TO TRY AGAIN TYPE  1=YES  0=NO "
 5220 INPUT A
 5320 IF A=1 THEN 1420
 5420 END