Stunt Car Racer: STUNTCAR.B

  1 CLEAR VAL "65535": RANDOMIZE USR (PEEK VAL "23635"+VAL "256"*PEEK VAL "23636"+CODE "7"): REM CODE    NEXT  GO SUB ^ GO SUB s RETURN  COPY *S/ RESTORE  RESTORE STR$  INVERSE  LLIST *K/ GO SUB B" DRAW  COPY >@ GO SUB O1@!ppu GO SUB VAL 21 GO SUB K DRAW  COPY  STEP  OR 3 LLIST  GO SUB _AT FN TAB POINT  THEN 7ATTR  CLEAR TAB SCREEN$  CLEAR g INVERSE ~ CLEAR AT  INVERSE w INVERSE # RESTORE xLEN  3ASN  THEN CHR$ ▚. TO U[S]USR >N LLIST ▜NOT ▗ CONTINUE | INK  REM  CLEAR b7# RANDOMIZE v BRIGHT  MERGE POINT & AND FN AKBIN U[P] INVERSE sW5 CONTINUE :O[M]VAL$ TAN `~# DATA &y ERASE  READ [O]▛ COPY 4 IF  POKE VzSQR e~ GO SUB e_ IF  CIRCLE ^▝SCREEN$ 3 RUN  READ S%fK RANDOMIZE Y LLIST [F] LLIST c8[ DEF FN X6[E]CHR$ {▖ LPRINT [I]@ VERIFY [P]E DIM  READ  INVERSE n/[C]IN Oe[L]({<=ASN pVAL  GO SUB 5 STOP [P]p NEW  TAB  LPRINT ▞j)_6 READ  DATA g CIRCLE 9R▜R[P] FLASH  VERIFY  READ RNDATTR Nh[A][E] BRIGHT [[A]INKEY$[U]tv7q[O]8<> TO aCODE ACS nn FLASH SCREEN$  COPY  LIST ACS  FOR ] CLS  PAUSE ZTAN  CLEAR WIQ FOR SCREEN$ v[U] INPUT ?{[J] ERASE ~BIN H MERGE [P]A LIST  BEEP ?▟<=b SAVE  DEF FN [▛ BEEP QO[D]VAL$ o< INK [C]K( GO SUB INKEY$g4 LET INT s0uPEEK  COPY ,i[S][L]x= PLOT  ATN d! REM [T][Q]e. LOAD SGN y2 FOR ▖M LINE 
  37979 DIM [F]. CLEAR =|TAN  LINE !©AT =>VAL$ FN VAL TAN +- INPUT VAL$ (p$ RESTORE -r[N] POKE  TO  LINE [B]CHR$ ; DEF FN [D][L]▖_SIN C[A]P/[M] THEN K▞ DATA [S]d CONTINUE  PLOT  +[T]S LPRINT 7 LOAD SCREEN$ z8 CLS [J]b RUN  GO TO xfrPEEK TAB  READ $| CLEAR PEEK  PLOT   THEN ACS I&SUSR ▜ AND ]F LOAD  PAPER ▜▛▜ AND [D]^ FORMAT U OR 9I> SAVE ASN w! NEXT [H]