Stunt Car Racer: STUNTCAR.B

  0 REM   BVB'90             CLS ! NEXT /@[M] MERGE >= GO SUB VAL <>CODE 2H/2▟/2▙/2[B]/ STEP kCODE  OPEN # RETURN !=0u MERGE ~ACS #| RETURN @  PRINT  LLIST % GO SUB [6/ MERGE "6/CODE  STEP G]CODE  STEP >A!USR Z w# DRAW v CLEAR < RETURN G  GO SUB  LLIST "6/<>              [Q] NEXT :g[ THEN [P] CLEAR 2g[ GO SUB y!v]ATTR Fd GO SUB VAL NOT ATTR F!@[POINT  GO SUB VAL  GO SUB {@ LLIST "@ LET  LLIST  MOVE STR$  INK  CLEAR  LLIST  INVERSE  LLIST  LLIST  MOVE STR$  LET  PRINT  RETURN ?( GO SUB ^ LET  GO SUB G REM  FLASH F LET <> LET  CLS <>
  10 CLEAR VAL "24999": RANDOMIZE USR VAL "23781"
  20 PRINT AT VAL "11",NOT PI; INK VAL "6"; PAPER SGN PI;"        STUNT CAR  RACER        "; PAPER VAL "2";"  DISKED BY BRUNO VON BAUER'90  "
  30 LOAD  "STUNT1    "CODE VAL "4E4": CLS : RANDOMIZE USR VAL "4E4"
  40 POKE VAL "23739",VAL "111": LOAD  "STUNT2    "CODE VAL "25E3": CLS : RANDOMIZE USR VAL "60048": RANDOMIZE USR VAL "25E3"
  50 POKE VAL "23739",VAL "244": RANDOMIZE USR VAL "23898"