SNorth Games

Developer(s): Steve North
Date: 1983
Type: Cassette
Platform(s): TS 1000
Tags: Game

Written in a subset of Sinclair BASIC, then compiled, by a professional comedian named Steve North. He wrote these for his own amusement in 1983, then licensed them to Fred Nachbaur for distribution in 1985.

LOAD “SNORTH”; the loader gives you the option to load one of four games: “NFLX Football,” “Miner’s Revenge,” “Super Slide,” or “Storm Lander 3.”

Content

Appears On

Related Products

Get fabulously rich if you crack the motherload. The old miner’s last will, will help you on the way, equipped...
Provides a full-featured football contest for one or two players. Safeties, interceptions, runs, passes, punts, fumbles, and field goals are...
Make an emergency landing at Denver’s Stapleton Airport in your commercial airliner, during a thunderstorm. Three screens of graphics show...
You are in the 1988 Olympics bobsled event. Pick up points while avoiding skid-patches, walls, ruts, and the course boundary....

Related Articles

Related Content

Image Gallery

Source Code

   0 REM [Z][X][G][T]###[O]RND#7INKEY$ ##INKEY$ ##INKEY$ #▐INKEY$ #[*]INKEY$ #[F]INKEY$ #5PI#[0]PI# THENPI#T########[S]#INT [£] FASTSTR$ [J]LN 5PIACS #C▒Y-LN 5PILN .INKEY$ )(BLN ▛INKEY$ K,) CONT ▀LN ▛INKEY$ K+)# LN ▛INKEY$ K<2~~LN ▛INKEY$ K># UNPLOT RNDLN $INKEY$ ) CONT ▀LN $INKEY$ )# LN $INKEY$ 2~~LN $INKEY$ 2▘LN $INKEY$ [J]SGN  LPRINT #5PI FAST[B] GOSUB # LPRINT TAN Y0[B] GOSUB #S▀W/ RAND ;#5PI#J##J#7TAN E£RND)5  FAST▘  ,,7 FAST; FOR 5CHR$ ▝ GOSUB PI STOPAT  FOR  GOSUB [K] LPRINT ▘[Q]▝,,6:RNDY5MTRNDY▀MURNDTAN LN [V]▝# RETURN RETURN4:LN [V]▝84 IF LN [V]▝# RETURN COPYC SAVE ▘# CLEAR[J] FAST GOSUB PI LPRINT ASN [M]RND▘ LOAD  UNPLOT [J] FAST GOSUB PI LPRINT C<>#8COS #LN [X]▛# RETURN TAN ACS  UNPLOT 6ORNDEORND# NEW#[P]COS LN #INKEY$ C NEXT ▞(## FOR 5  ACS T3K▘; FOR D FOR ( PRINT TAN YF[(] AND >=PI#Y▘ACS CK▝Y▖ACS DK▝ACS ▛ PRINT LN  FOR INKEY$ #ACS ▛ RETURN(K▛ACS ?K▝ INPUT [?]#)[2]£UKRND[<] IF  LPRINT INKEY$  LET J[4]/▝ LET [K] RETURN▒S▝ INPUT [?]/QY*[(] AND >=PI# NEW3#VAL VAL VAL [J]ACS (ACS (ACS (##DDAT ##,,AT #,, GOSUB #£RND,,76:RNDAT Y/[(]MURNDY5[)]MTRNDTAN STR$  FASTVAL  PRINT UURND RETURN▝CU LET  RETURN#CE RETURNRNDK#E:RND#76:RNDUTRNDXMTRND# RETURN#4#UURNDXMURND76:RNDY5MTRND/SE:RND# RETURN#C NEW7/ SAVE E£RND▘ SAVE ▝,,Q[?]LN #INKEY$ C CLS RETURNCC+ RETURNZC. RETURND4▒5(BF#[O]4 CLSLN 7INKEY$ /▀LN E~~ LET /[,]AT  LPRINT SGN TAN LN #▒/PEEK #[L]COS ,LN 5PI<"/ PRINT  RETURN#S,, RETURN""ACS [R] AND PPI NEWZ5)▘#▖ RETURN5K▖[J]LN 5PIACS #7C CLS( RAND #ACS #4▞LN 5PI7/ PRINT  NEWZLN 5PI[J]#HPIINT [~~]#[M]C IF LN D#VAL #[M]▛S LET #PI)  STR$  FOR 7D FOR D#[+]#[0] FOR K PLOT  FOR  FOR [J]#3##3#[O]C/ FOR [J]ACS 0ACS 1#[+]#[0] IF  RETURNPI#[+]##[0]# STOP; STOP/<> LPRINT AT ACS #TAB .INKEY$ TAN ##*>=.INKEY$  FOR #[C]#ACS #TAB .INKEY$ TAN  GOSUB #MRND#I CLEAR#[R]▞  GOSUB #[/] GOSUB #[/]## GOSUB #K▘76MRNDACS [W]TAN ▀▀▀VAL ▀▀▀▀5█#LN [7],,7Y##7Q▝7AT #7#7Q REM 7#7#7TAN 5   FAST FASTLN #INKEY$  RETURN-4,, LPRINT SGN  PRINT  FASTLN 5PI/ LIST  RETURN# LPRINT C3D FASTDDSGN ;#LN 5PI#CHR$ 0S▒#▞ ,, RETURN~~SPEEK  LET Y NEWLN 5PI/SIN  LET ATN .INKEY$ TAN VAL  FASTE#RND PRINT # FAST76#RNDLN #INKEY$  RETURND4>Y#LN 5PI LPRINT LN [O]RND LET A #LN [O]RND/▝ LPRINT  LET  LPRINT AT [J]TAN TAN TAN Y?NOT LN ##/>5  LN >#LN  RUN #▀LN ## FASTLN ▞# LPRINT LN >#LN ##LN 4#LN $#INT #YTAN ###6#RND GOSUB #0RND<5#RNDLN ,,#E#RNDQ/7Q#76#RND)# ;6#RND5#RNDLN USR #77 FAST76-RNDLN ## RETURN PAUSE ATN ACS # RETURN RAND ATN [-]# RETURN IF ATN COS # RETURN THENC REM  RETURN DIM ATN 1# RETURN GOTO ATN F# RETURN GOSUB ATN RND# RETURN FOR ATN SIN # RETURN NEXT ATN  POKE # RETURN SLOWATN  # RETURN POKE ATN [Q]# RETURN FASTATN  LET # RETURN INPUT ATN ## RETURN PLOT ATN ## RETURN UNPLOT ATN [>]# RETURN LET ATN ▀# RETURN CLSATN [3]# RETURN STOPASN [-]# RETURN PRINT ATN ## RETURN REM C+ RETURN SCROLLATN [8]# RETURN RETURNATN $# RETURN 4:LN ## RETURN#4▛ LPRINT LN :#TAB Q#Y[S]LN ##LN ##INT [.]LN ##5###[D]# FAST#7#STR$  FOR  FAST67RND6~~RNDLN  GOTO #LN ## LPRINT LN <#.. FOR SGN LN ,,# GOSUB ##RNDLN ,,# FAST GOSUB ##RND[B] GOSUB # LPRINT S▀6#RND LPRINT TAN #7#7TAN #7#7TAN  FASTAT E0RND7LN :# FOR [B] GOSUB PISQR E#RND GOSUB #** FOR 7/ GOSUB Y# PRINT LN ##LN E#LN <# FOR LN :# FOR  LET #[F]#YLN / DIM  FAST SCROLL RETURN#C,, RETURN#C▌ PRINT LN ## LET  LPRINT TAN LN ## RETURN#C# RETURN"C< RETURNAT C# RETURNCHR$ C#LN ##5##LN [D]#/#Y/LN ##E#RND FASTLN ##▘ COPY COPYE-RND7▀# PRINT LN ## LET  RETURN"C▌LN ##/ LOAD 6-RND LPRINT VAL #7Y)LN [F]#Y▘ LPRINT LN [F]#5##LN [D]#/>LN R#LN AT #5##LN [I]#5 PRINT ▒LN [D]#LN ## RETURN,C[£] RETURN;C[▒]5 GOTO #LN [D]#E-RNDF6-RND[J]TAN LN ##Y#LN ##5##LN [D]#/CHR$ Y#### RETURNRNDABS AT #CHR$ A** GOSUB ##RNDA #,,TAN LN ##LN  LET # RETURN#4~~LN E#Y FASTLN ##A COPY FASTLN ## RETURN=TAB AT #LN X#LN PEEK # LPRINT # RETURN COPY4£5SGN  FOR LN [I]#5,,##[D]#Y6#[F]#[J] PRINT LN ##Y FASTLN ##LN ## RETURN)C# RETURN#C# PRINT LN ## LET  RETURN+C▖ RETURN-47AT ## RETURN 4▖ PRINT  FAST/** FAST5##LN [I]#LN ##Y FAST5##LN [F]#/CODE  PRINT VAL /0 RETURN/C( RETURN*TAB AT #LN LEN #5##LN [D]#/[G]LN LEN #5##/ NEXT Y LPRINT LN ## LET  RETURN COS  RETURN+C)LN LEN #5[B] FOR LN [I]#5 GOSUB #LN [I]#/ SCROLLLN LEN #Y;LN ##/<>YSGN ### RETURNPEEK 4?LN ##5##LN [I]#5A #[I]# RETURNUSR 4>LN ##5 FOR ##[D]#▘ LET #VAL  FASTTAN ##TAN  RETURNCODE TAB ?#LN ## RETURNINKEY$ TAB AT #5##LN [D]#YA5 ##[F]# RETURNRNDTAB ,#5###[D]# RETURNABS 4)LN ##5ACS #LN [I]#YCODE 5###[F]# RETURNINT TAB AT ####LN ##LN ## PRINT Y FASTLN ##LN ##YSGN LN ## LET TAN LN ## RETURN- PRINT ATN ## RETURN(C- RETURNRNDK$ RETURNAUSR ▙#>=[?]# LET ATN ##TAN LN ACS #/ PLOT LN X#/ LET 5##/J#J##J#7TAN LN  LET # RETURN#ASN Z#YE#[F]#LN E#Y5/+LN $# LPRINT  GOSUB ##RNDTAN 5E~~/▌5##/ YLN LN ###LN ######LN R#LN AT #5 FOR #/ GOSUB  RETURN,TAB AT #TAN LN ##LN  LET # FAST FASTLN ##LN R#Y7LN ##5 GOSUB #LN [I]# LPRINT LN [I]#Y677LN [F]# LPRINT  GOSUB ##RNDLN ,,#TAN LN ##LN  LET # FAST FASTYELN [F]#576LN [I]# LPRINT LN [I]#77Y GOSUB LN ##Y#LN [F]#Y[B]5 GOSUB #LN [F]#Y IF  LPRINT LN :# FOR LN [F]#TAN 5  /?LN ## RETURN#C, PRINT )~~ LN ## LET  RETURNAABS AT # RETURN0 AND AT #CHR$ 0▞ #,,/ TO  FASTE-RND)▌ ;6-RND LPRINT TAN 5##LN [D]#LN ##LN  LET ##S#Y[.] PRINT LN R#LN AT #5##LN [I]#YYLN ## LET LN ##YM5KRNDLN [F]#5###[D]#Y[4]/**YE5ORNDLN [F]#Y65MRND#[F]# RETURN<>C> RETURN=C=3K▘ FOR *[B] GOSUB #R SAVE *SQR /▒ GOSUB #R""/▖ GOSUB #RCOS ZTAN LN R##IYLN [I]#5[A]#LN [D]#E~~RND7LN <# FOR LN :# FOR YABS LN [F]#LN ## RETURN THENTAB AT #TAN 5 RUN ##[D]#LN  SCROLL▝5VRNDACS [Q]TAN 5▞##[D]#5VRNDACS  PLOT #▛▝#7#,,7U£RND[1]""U$RND[0]TAN LN ## RETURNZTAB AT #LN ##[J]TAN LN ##5 GOSUB #LN [I]#50RNDLN [I]#5D,,#[I]#LN E#YSTR$ LN ##5:#LN [D]#5 FOR SGN #[I]##[▒]RND#["]RND#[:]RND#[)]RND#[=]RND#[*]RND#[,]RND#[1]RND#[4]RND FOR #[7]RND#[A]RND#[D]RND#[G]RND#[J]RND[J]
   2 REM ##/#ZXGT£ OM▘ < R - >   ,,   # GT▘ 73TAN  TAN  ▘ G=  82▘ ) ▝  REM "[,,]<[,,]<▘ 6 ▘ 0#    " 1#?   ▘ "C" 982-SNU▘TH▒  -,,  FOR N=1#▟5   FAST5▘ SGN ##LN  PRINT ▒/$C-1982-SNORTH) #▘$ LN ##LN  GOTO #5▘  FAST5[▒]<SGN 7 GOSUB #[X]#6[Z]#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF D#LN ASN #EORND6MRND###E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘█)##▘▘ LN ##LN  GOTO #EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5COS  SGN Y<LN [A]#ABS ▟#TAN EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y>LN [A]#ABS [6]##G#EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS AT #TAN E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘[:])SQR #▘▘ LN ##LN  GOTO #EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5COS  SGN Y>LN [A]#ABS F#E[P]# FASTE[)]#SGN ##LN  PRINT ▒EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#  FAST LPRINT SGN [B] FOR  GOSUB ##LN ##LN  GOTO #TAN E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘▒)V#▘▘ LN ##LN  GOTO #EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y>LN [A]#ABS [-]#E[P]# FASTE[)]#SGN ##LN  PRINT ▒EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝ FAST LPRINT SGN [B] FOR  GOSUB ##LN ##LN  GOTO #TAN EVAL # FASTE[X]# FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST LPRINT 6TAN #ETAN # FAST5COS  SGN Y<LN [A]#ABS CODE #TAN ETAN # FAST5COS   FAST LPRINT SGN [B] FOR  GOSUB #6TAN ##[N]#EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5SIN  SGN Y>LN [A]#ABS  RAND ##8#EVAL # FAST LPRINT  GOSUB #0RNDD,, FASTEVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5COS   FAST LPRINT SGN ;SGN  FOR LN ,,#TAN EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y<LN [A]#ABS ##TAN EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y>LN [A]#ABS ##TAN EVAL # FAST LPRINT  GOSUB #0RNDD,, FASTEVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5COS   FAST LPRINT SGN ;SGN  FOR LN ,,#TAN 5<  FAST5- SGN ##LN  PRINT ▒E[5]#LN ##LN  GOTO #5<  FAST5▀ SGN ##LN  PRINT ▒ESTR$ #LN ##LN  GOTO #5<  FAST5▒ SGN ##LN  PRINT ▒EAT #LN ##LN  GOTO #5<  FAST5? SGN ##LN  PRINT ▒ESGN #LN ##/▘ ) SLOW#▘▘ LN ##LN  GOTO #5<  FAST5" SGN ##LN  PRINT ▒E[1]#LN ##/▘ )▞#▘▘ LN ##LN  GOTO #5=  FAST5: SGN ##LN  PRINT ▒E[9]#LN ##LN  GOTO #5▘  FASTE[H]#SGN 7 GOSUB #[D]#6[F]#5=  FAST5=  FASTE[D]# FAST LPRINT SGN ;SGN ##LN  PRINT ▒5[0]  FASTE[D]# FAST LPRINT SGN ;#LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF T#5=  FAST5=  FASTE[H]# FAST LPRINT SGN ;SGN ##LN  PRINT ▒50  FASTE[H]# FAST LPRINT SGN ;#LN ##LN  GOTO ####EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y>LN [A]#ABS INT #EVAL # FAST LPRINT  GOSUB #0RNDD,, FAST5#▝ FAST LPRINT SGN  FOR LN ,,#EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y<LN [A]#ABS ▀#EVAL # FAST LPRINT  GOSUB #0RNDD,, FAST5[(]▘ FAST LPRINT SGN  FOR LN ,,#TAN LN [.]#EVAL # FAST LPRINT 6 LPRINT #E[P]# FAST LPRINT 6 FAST#E[P]# FAST5( SGN 7 GOSUB #[P]#6[R]#5▌ LN ##E[P]# FASTE[)]#SGN ##LN  PRINT ▒ETAN # FAST5█  FAST LPRINT SGN ;#LN ##LN  GOTO #LN ##EVAL # FAST52  FAST LPRINT SGN ;6VAL #E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF B#E LPRINT # FAST LPRINT 6VAL #E FAST# FAST LPRINT 6[P]#TAN EVAL # FAST LPRINT 6 LPRINT #E[P]# FAST LPRINT 6 FAST#E[)]# FAST LPRINT 6 DIM #E[)]# FASTE[$]# FAST LPRINT SGN [B] FOR  GOSUB #6[$]#E[$]# FAST5▘ SGN Y<LN [A]#ABS ""#5▘  FAST LPRINT 6[$]#E[)]# FASTE[;]# FAST LPRINT SGN ;6[;]#E[;]# FAST52 SGN Y>LN [A]#ABS  NEW#52  FAST LPRINT 6[;]#E[P]# FASTELN # FAST LPRINT SGN [B] FOR  GOSUB #6LN #ELN # FAST5▘ SGN Y<LN [A]#ABS ?#5▘  FAST LPRINT 6LN #E[P]# FASTE OR # FAST LPRINT SGN ;6 OR #E OR # FAST5( SGN Y>LN [A]#ABS P#5(  FAST LPRINT 6 OR #ELN # FASTE OR #SGN 7 GOSUB #[P]#6[R]#E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB # FAST52 SGN LN ## FASTE[$]# FAST LPRINT SGN ;6VAL #E[$]# FASTE[;]#SGN 7 GOSUB #[)]#6[<]#LN **#LN ##EVAL # FAST5▘  FAST LPRINT SGN ;6VAL #E[)]#76[)]# GOSUB #[<]#[B] GOSUB # IF ##E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF ##E LPRINT # FAST LPRINT 6VAL #E FAST# FAST LPRINT 6[P]#E DIM # FAST LPRINT 6[)]##[T]#LN [.]#5▘  FAST5~~ SGN 7 GOSUB #[D]#6[F]#5   FAST5▝ SGN ##LN  PRINT ▒/.M[~~]I[~~]N[~~]E[~~]R[~~]S[~~][,,][~~]R[~~]E[~~]V[~~]E[~~]N[~~]G[~~]E) DIM #▘. LN ##LN  GOTO #5   FAST5▘ SGN ##LN  PRINT ▒/1 [M][~~][I][~~][N][~~][E][~~][R][~~][S][~~][,,][~~][R][~~][E][~~][V][~~][E][~~][N][~~][G][~~][E][~~])3#▘1 LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF  AND #TAN 5▘  FAST LPRINT 6[9]#5,,  FAST LPRINT 6[1]#5 STEP ▘ FAST LPRINT 5#  FAST LPRINT 6[5]#5▝  FAST LPRINT 6[T]#5▘  FAST LPRINT 6[H]#5▘  FAST LPRINT 6AT #5?  FAST LPRINT 6SGN #5▘  FAST LPRINT 6STR$ #5▘  FAST5 STEP ▘SGN 7 GOSUB #[D]#6[F]#E[D]# FAST LPRINT  GOSUB #0RNDD,, FAST5   FAST LPRINT SGN  FOR LN ,,#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF [J]#5▘  FAST5W SGN 7 GOSUB #[D]#6[F]#LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST5+  FAST LPRINT SGN  FOR LN ,,#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF  NEW#5▘  FAST5= SGN 7 GOSUB #[D]#6[F]#LN ## FAST5█YSGN Y<LN [A]#ABS ##LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST5X  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5#*SGN Y<LN [A]#ABS [<]#LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST5T  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5(BSGN Y<LN [A]#ABS SIN #LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST50  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5# SGN LN ## FAST LPRINT  GOSUB #0RNDD,, FAST5$  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5# SGN LN ## FAST LPRINT  GOSUB #0RNDD,, FAST5*  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5C7SGN Y<LN [A]#ABS R#LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST5>  FAST LPRINT SGN  FOR LN ,,#LN ## FAST5C7SGN Y<LN [A]#ABS ##LN ## FAST5# SGN LN ## FAST5#  FAST LPRINT SGN ; GOSUB #0RNDD,, FAST5<  FAST LPRINT SGN  FOR LN ,,#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF F#5▘  FAST5 STEP ▘SGN 7 GOSUB #[D]#6[F]#LN ## FAST5RND3 FAST5=  FASTE[D]#SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS CHR$ #E[D]# FAST LPRINT  GOSUB #0RNDD,, FASTE[D]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘ FAST LPRINT SGN ;SGN  FOR LN ,,#E[D]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[9]▘SGN Y=LN [A]#ABS ~~#E[D]# FAST LPRINT  GOSUB #0RNDD,, FAST5[(]▘ FAST LPRINT SGN  FOR LN ,,#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF [£]#5▘  FAST LPRINT 6[P]#5▘  FAST LPRINT 6[)]#5▘  FAST LPRINT 6VAL #5▘  FAST LPRINT  GOSUB #0RNDD,, FAST5#▝ FAST LPRINT SGN  FOR LN ,,##SQR #LN ##A # FAST5  SGN Y<>LN [A]#ABS #####E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘▚)##▘▘ LN ##LN  GOTO #E[T]# FAST5▝ SGN Y=LN [A]#ABS [E]#E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘W)[1]#▘▘ LN ##LN  GOTO #E[T]# FAST5▖ SGN Y=LN [A]#ABS CHR$ #E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘T)TAN #▘▘ LN ##LN  GOTO #5▘  FAST5COS  SGN 7 GOSUB #[D]#6[F]#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF  NEW#LN ##A # FAST LPRINT 6[L]#E[L]# FAST5  SGN Y=LN [A]#ABS +####E[L]# FAST57 SGN Y<>LN [A]#ABS C##▞#E[P]# FAST5▘ SGN Y=LN [A]#ABS V####EVAL # FAST52  FAST LPRINT SGN [B] FOR  GOSUB # GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS ###[;]#E[T]# FAST5▝ SGN Y=LN [A]#ABS #####52 LN ## FAST LPRINT 6[X]#LN [*]#ETAN # FAST5+ SGN Y=LN [A]#ABS [;]####EVAL # FAST52  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y<LN [A]#ABS ""## THEN#5   FAST LPRINT 6[X]#LN [*]#ETAN # FAST5- SGN Y<>LN [A]#ABS  THEN####LN ##EVAL # FAST52  FAST LPRINT SGN [B] FOR  GOSUB #6VAL #E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]## LOAD #E[L]# FAST55 SGN Y<>LN [A]#ABS ;##[M]#E[)]# FAST5▘ SGN Y=LN [A]#ABS G####EVAL # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB # GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS ###[~~]#E[T]# FAST5▝ SGN Y=LN [A]#ABS #####5▘ LN ## FAST LPRINT 6[X]#LN [*]#ETAN # FAST5+ SGN Y=LN [A]#ABS [~~]####LN ##E[)]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[)]#EVAL # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6VAL ## LOAD #E[L]# FAST58 SGN Y<>LN [A]#ABS VAL ####E[)]# FAST52 SGN Y=LN [A]#ABS **####EVAL # FAST5▘  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS  COPY##K#E[T]# FAST5▝ SGN Y=LN [A]#ABS >####5▘  FAST LPRINT 6[X]#LN [*]#ETAN # FAST5+ SGN Y=LN [A]#ABS K####LN ##EVAL # FAST5▘  FAST LPRINT SGN ;6VAL #E[)]# FAST5▘  FAST LPRINT SGN ;6[)]## LOAD #E[L]# FAST56 SGN Y<>LN [A]#ABS #####E[P]# FAST5( SGN Y=LN [A]#ABS #####EVAL # FAST52  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS [3]##SQR #E[T]# FAST5▝ SGN Y=LN [A]#ABS [M]####52  FAST LPRINT 6[X]#LN [*]#ETAN # FAST5+ SGN Y=LN [A]#ABS SQR ####LN ##EVAL # FAST52  FAST LPRINT SGN ;6VAL #E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y<LN [A]#ABS R#EVAL # FAST LPRINT  GOSUB #0RNDD,, FASTEVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘ FAST LPRINT SGN ;SGN  FOR LN ,,#E[P]# FAST5: SGN Y>LN [A]#ABS #####EVAL # FAST52  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y<LN [A]#ABS #####EVAL # FAST5W  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y<LN [A]#ABS [/]####E[P]# FAST LPRINT 6[$]#52  FAST LPRINT 6[X]#LN [*]#ETAN # FAST5- SGN Y=LN [A]#ABS [Y]####5   FAST LPRINT 6[X]#LN [*]#ETAN # FAST5- SGN Y=LN [A]#ABS >=####E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘Y) FOR #▘▘ LN ##LN  GOTO #5~~ LN ##E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘T)$#▘▘ LN ##LN  GOTO #LN ##E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#EVAL # FAST52  FAST LPRINT SGN ;6VAL #E[P]# FAST5( SGN Y=LN [A]#ABS #####EVAL # FAST52  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[?]▘SGN Y>LN [A]#ABS ###>=#E[P]# FASTE[$]# FAST LPRINT SGN [B] FOR  GOSUB #6TAN #5   FAST LPRINT 6AT #E[1]# FAST5  SGN Y>LN [A]#ABS [S]#E[1]# FASTETAN # FAST5▝ SGN LN ## FAST LPRINT SGN LN ## FAST LPRINT  FAST LPRINT 6[1]#ESGN # FAST5  SGN Y>LN [A]#ABS  SLOW#ESGN # FASTETAN # FAST5▝ SGN LN ## FAST LPRINT SGN LN ## FAST LPRINT  FAST LPRINT 6SGN #ETAN # FAST5▞ SGN Y<LN [A]#ABS  RUN ##[7]#5   FAST LPRINT 6STR$ #5>  FAST5▝ SGN ##LN  PRINT ▒/▀[W] T):#▘▀ LN ##LN  GOTO #5▝  FAST LPRINT 6[T]##[7]#5   FAST LPRINT 6[X]#LN [*]#ETAN # FAST5T SGN Y<>LN [A]#ABS #####ESTR$ # FAST5  SGN Y<>LN [A]#ABS #####LN ▖#5▘  FAST LPRINT 6STR$ ##[7]#ETAN # FAST50 SGN Y<>LN [A]#ABS ###[:]#LN ▖#EAT # FAST5▘  FAST LPRINT SGN ;6AT ##[T]#ETAN # FAST5* SGN Y<>LN [A]#ABS [5]##[P]#LN ▖#E[1]# FAST5▘  FAST LPRINT SGN ;6[1]## LET #ETAN # FAST5> SGN Y<>LN [A]#ABS COS ## RUN #LN SIN #5   FAST LPRINT 6[$]#52  FASTE[)]# FAST LPRINT SGN [B] FOR  GOSUB #6[;]#5   FAST LPRINT 6LN #5   FAST LPRINT 6 OR ####ETAN # FAST5< SGN Y<>LN [A]#ABS ~~##D#LN SIN #E[)]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[$]#5   FAST LPRINT 6[;]## SLOW#ETAN # FAST5$ SGN Y<>LN [A]#ABS W####LN ▖#E[5]# FASTLN ## FAST5 POKE ▘SGN LN ## FAST LPRINT  FASTE[9]#SGN LN ## FASTE[H]#SGN LN ## FAST LPRINT SGN ;6[5]##[$]#ETAN # FAST5X SGN Y<>LN [A]#ABS ###[)]#LN SIN #E[9]# FAST5▘  FAST LPRINT SGN ;6[9]##<#ETAN # FAST50  FASTE[H]# FAST LPRINT SGN ;SGN Y<>LN [A]#ABS [G]####LN SIN #E[H]# FAST5▘  FAST LPRINT SGN ;6[H]#E[H]# FAST5~~ SGN Y=LN [A]#ABS SQR ####LN ## FAST5O▒SGN LN ## FAST5▘  FAST LPRINT SGN ;6 FAST#LN ## FAST5[K]▖SGN LN ## FAST5▘  FAST LPRINT SGN ;6 DIM #E FAST# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB # FAST52 SGN LN ## FASTE DIM # FAST LPRINT SGN ; GOSUB #0RNDD,, FAST50  FASTE[H]# FAST LPRINT SGN ;SGN  FOR LN ,,#E FAST# FASTE DIM #SGN ##LN  PRINT ▒50  FASTE[H]# FAST LPRINT SGN ;#LN ##LN  GOTO ##[$]#E[L]# FAST5T SGN Y<>LN [A]#ABS ###[6]#ESTR$ # FAST5  SGN Y=LN [A]#ABS #####5▖  FAST LPRINT 6[T]#5>  FAST5▝ SGN ##LN  PRINT ▒/▀W [T])[(]#▘▀ LN ##LN  GOTO ####E[L]# FAST5W SGN Y<>LN [A]#ABS [P]## THEN#5▝  FAST LPRINT 6[T]#5>  FAST5▝ SGN ##LN  PRINT ▒/▀[W] T)ATN #▘▀ LN ##LN  GOTO ####E[L]# FAST5J SGN Y<>LN [A]#ABS  LET ##█#ESGN # FAST5  SGN Y=LN [A]#ABS ▖####EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5[(]▘SGN Y=LN [A]#ABS S#EVAL # FAST LPRINT  GOSUB #0RNDD,, FAST5[A]▘ FAST LPRINT SGN  FOR LN ,,#EVAL # FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FAST5#▝SGN Y=LN [A]#ABS ##EVAL # FAST LPRINT  GOSUB #0RNDD,, FAST5#▝ FAST LPRINT SGN  FOR LN ,,#ESGN # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6SGN ##[7]#E[L]# FAST5B SGN Y<>LN [A]#ABS [<]## AND #E[1]# FAST5  SGN Y=LN [A]#ABS [A]####5▘  FAST LPRINT 6[$]#5▘  FAST LPRINT 6[;]#5▘  FAST LPRINT 6LN #5▘  FAST LPRINT 6 OR #E[1]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[1]####E[L]# FAST50 SGN Y<>LN [A]#ABS  GOSUB ##O#EAT # FAST5  SGN Y=LN [A]#ABS  ####EAT # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6AT #5▖  FAST LPRINT 6[$]#5▖  FAST LPRINT 6[;]#5▞  FAST LPRINT 6LN #5   FAST LPRINT 6 OR ####E[L]# FAST5P SGN Y<>LN [A]#ABS ######C#TAN 
   3 REM   TAN -ZXGT COMPILER -         ZXGT=17389 PROG=18823
   5 REM [A]█[S][Y][N][C][W][A][R][E]█[G][A][M][E]
  45 CLS
  50 SLOW
  55 FOR L=1 TO 20
  60 PRINT AT L,0;"[M][I][N][E][R][S]█[R][E][V][E][N][G][E]█COPR. 1983 [S][N][O][R][T][H]"
  65 NEXT L
 170 FOR L=1 TO 16
 175 PRINT AT L,0;"[~~]██████████████████████████████[,,]"
 180 NEXT L
 185 PRINT AT 17,0;"[~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,]"
 190 PRINT "[~~] [W] T [~~]  0  *   -   [~~]  [$][$][$][$][$]   [,,]"
 195 PRINT "[~~]     [~~]             [~~]          [,,]"
 201 PRINT "[~~]     [,,][B][O][N][U][S] [X]      [~~]1         [,,]"
 205 PRINT "[~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,]"
 210 FOR L=1 TO 10
 215 PRINT AT 0,1;"[G][E][T]      "
 217 PRINT AT 0,1;"    [R][E][A][D][Y]"
 220 NEXT L
 230 LET L=USR 18823
 235 FOR L=6 TO 12
 240 PRINT AT L,5;"[$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$][$]"
 245 NEXT L
 247 LET A$=STR$ ((PEEK 18849+256*PEEK 18850)*2)
 250 FOR L=1 TO 20
 255 PRINT AT 19,21;"[$][$][$][$][$][$][$][$][$][$]";AT 19,21;"$$$$$$$$$$";AT 19,24;A$
 260 NEXT L
 268 PRINT AT 14,0;"██[C]█[O]█[N]█[G]█[R]█[A]█[T]█[U]█[L]█[A]█[T]█[I]█[O]█[N]█[S]█"
 270 PRINT AT 16,0;"*** YOU ESCAPED WITH THE GOLD***███[P][R][E][S][S]█[A][N][Y]█[K][E][Y]█[T][O]█[P][L][A][Y]█[A][G][A][I][N]██"
 275 LET A$="$[$]▚▞T"
 277 LET X=PEEK 16396+256*PEEK 16397+31
 280 FOR L=1 TO LEN A$
 285 POKE X,CODE A$(L)
 290 NEXT L
 295 IF INKEY$ <>"" THEN RUN 
 297 GOTO 280
 900 STOP
 2100 SAVE "M[R]"
 2105 RUN 
 
   0 REM [Z][X][G][T]###[O]RND#7INKEY$ ##INKEY$ ##INKEY$ #▐INKEY$ #[*]INKEY$ #[F]INKEY$ #5PI#[0]PI# THENPI#T########[S]#INT [£] FASTSTR$ [J]LN 5PIACS #C▒Y-LN 5PILN .INKEY$ )(BLN ▛INKEY$ K,) CONT ▀LN ▛INKEY$ K+)# LN ▛INKEY$ K<2~~LN ▛INKEY$ K># UNPLOT RNDLN $INKEY$ ) CONT ▀LN $INKEY$ )# LN $INKEY$ 2~~LN $INKEY$ 2▘LN $INKEY$ [J]SGN  LPRINT #5PI FAST[B] GOSUB # LPRINT TAN Y0[B] GOSUB #S▀W/ RAND ;#5PI#J##J#7TAN E£RND)5  FAST▘  ,,7 FAST; FOR 5CHR$ ▝ GOSUB PI STOPAT  FOR  GOSUB [K] LPRINT ▘[Q]▝,,6:RNDY5MTRNDY▀MURNDTAN LN [V]▝# RETURN RETURN4:LN [V]▝84 IF LN [V]▝# RETURN COPYC SAVE ▘# CLEAR[J] FAST GOSUB PI LPRINT ASN [M]RND▘ LOAD  UNPLOT [J] FAST GOSUB PI LPRINT C<>#8COS #LN [X]▛# RETURN TAN ACS  UNPLOT 6ORNDEORND# NEW#[P]COS LN #INKEY$ C NEXT ▞(## FOR 5  ACS T3K▘; FOR D FOR ( PRINT TAN YF[(] AND >=PI#Y▘ACS CK▝Y▖ACS DK▝ACS ▛ PRINT LN  FOR INKEY$ #ACS ▛ RETURN(K▛ACS ?K▝ INPUT [?]#)[2]£UKRND[<] IF  LPRINT INKEY$  LET J[4]/▝ LET [K] RETURN▒S▝ INPUT [?]/QY*[(] AND >=PI# NEW3#VAL VAL VAL [J]ACS (ACS (ACS (##DDAT ##,,AT #,, GOSUB #£RND,,76:RNDAT Y/[(]MURNDY5[)]MTRNDTAN STR$  FASTVAL  PRINT UURND RETURN▝CU LET  RETURN#CE RETURNRNDK#E:RND#76:RNDUTRNDXMTRND# RETURN#4#UURNDXMURND76:RNDY5MTRND/SE:RND# RETURN#C NEW7/ SAVE E£RND▘ SAVE ▝,,Q[?]LN #INKEY$ C CLS RETURNCC+ RETURNZC. RETURND4▒5(BF#[O]4 CLSLN 7INKEY$ /▀LN E~~ LET /[,]AT  LPRINT SGN TAN LN #▒/PEEK #[L]COS ,LN 5PI<"/ PRINT  RETURN#S,, RETURN""ACS [R] AND PPI NEWZ5)▘#▖ RETURN5K▖[J]LN 5PIACS #7C CLS( RAND #ACS #4▞LN 5PI7/ PRINT  NEWZLN 5PI[J]#HPIINT [~~]#[M]C IF LN D#VAL #[M]▛S LET #PI)  STR$  FOR 7D FOR D#[+]#[0] FOR K PLOT  FOR  FOR [J]#3##3#[O]C/ FOR [J]ACS 0ACS 1#[+]#[0] IF  RETURNPI#[+]##[0]# STOP; STOP/<> LPRINT AT ACS #TAB .INKEY$ TAN ##*>=.INKEY$  FOR #[C]#ACS #TAB .INKEY$ TAN  GOSUB #MRND#I CLEAR#[R]▞  GOSUB #[/] GOSUB #[/]## GOSUB #K▘76MRNDACS [W]TAN ▀▀▀VAL ▀▀▀▀5█#LN [7],,7Y##7Q▝7AT #7#7Q REM 7#7#7TAN 5   FAST FASTLN #INKEY$  RETURN-4,, LPRINT SGN  PRINT  FASTLN 5PI/ LIST  RETURN# LPRINT C3D FASTDDSGN ;#LN 5PI#CHR$ 0S▒#▞ ,, RETURN~~SPEEK  LET Y NEWLN 5PI/SIN  LET ATN .INKEY$ TAN VAL  FASTE#RND PRINT # FAST76#RNDLN #INKEY$  RETURND4>Y#LN 5PI LPRINT LN [O]RND LET A #LN [O]RND/▝ LPRINT  LET  LPRINT AT [J]TAN TAN TAN Y?NOT LN ##/>5  LN >#LN  RUN #▀LN ## FASTLN ▞# LPRINT LN >#LN ##LN 4#LN $#INT #YTAN ###6#RND GOSUB #0RND<5#RNDLN ,,#E#RNDQ/7Q#76#RND)# ;6#RND5#RNDLN USR #77 FAST76-RNDLN ## RETURN PAUSE ATN ACS # RETURN RAND ATN [-]# RETURN IF ATN COS # RETURN THENC REM  RETURN DIM ATN 1# RETURN GOTO ATN F# RETURN GOSUB ATN RND# RETURN FOR ATN SIN # RETURN NEXT ATN  POKE # RETURN SLOWATN  # RETURN POKE ATN [Q]# RETURN FASTATN  LET # RETURN INPUT ATN ## RETURN PLOT ATN ## RETURN UNPLOT ATN [>]# RETURN LET ATN ▀# RETURN CLSATN [3]# RETURN STOPASN [-]# RETURN PRINT ATN ## RETURN REM C+ RETURN SCROLLATN [8]# RETURN RETURNATN $# RETURN 4:LN ## RETURN#4▛ LPRINT LN :#TAB Q#Y[S]LN ##LN ##INT [.]LN ##5###[D]# FAST#7#STR$  FOR  FAST67RND6~~RNDLN  GOTO #LN ## LPRINT LN <#.. FOR SGN LN ,,# GOSUB ##RNDLN ,,# FAST GOSUB ##RND[B] GOSUB # LPRINT S▀6#RND LPRINT TAN #7#7TAN #7#7TAN  FASTAT E0RND7LN :# FOR [B] GOSUB PISQR E#RND GOSUB #** FOR 7/ GOSUB Y# PRINT LN ##LN E#LN <# FOR LN :# FOR  LET #[F]#YLN / DIM  FAST SCROLL RETURN#C,, RETURN#C▌ PRINT LN ## LET  LPRINT TAN LN ## RETURN#C# RETURN"C< RETURNAT C# RETURNCHR$ C#LN ##5##LN [D]#/#Y/LN ##E#RND FASTLN ##▘ COPY COPYE-RND7▀# PRINT LN ## LET  RETURN"C▌LN ##/ LOAD 6-RND LPRINT VAL #7Y)LN [F]#Y▘ LPRINT LN [F]#5##LN [D]#/>LN R#LN AT #5##LN [I]#5 PRINT ▒LN [D]#LN ## RETURN,C[£] RETURN;C[▒]5 GOTO #LN [D]#E-RNDF6-RND[J]TAN LN ##Y#LN ##5##LN [D]#/CHR$ Y#### RETURNRNDABS AT #CHR$ A** GOSUB ##RNDA #,,TAN LN ##LN  LET # RETURN#4~~LN E#Y FASTLN ##A COPY FASTLN ## RETURN=TAB AT #LN X#LN PEEK # LPRINT # RETURN COPY4£5SGN  FOR LN [I]#5,,##[D]#Y6#[F]#[J] PRINT LN ##Y FASTLN ##LN ## RETURN)C# RETURN#C# PRINT LN ## LET  RETURN+C▖ RETURN-47AT ## RETURN 4▖ PRINT  FAST/** FAST5##LN [I]#LN ##Y FAST5##LN [F]#/CODE  PRINT VAL /0 RETURN/C( RETURN*TAB AT #LN LEN #5##LN [D]#/[G]LN LEN #5##/ NEXT Y LPRINT LN ## LET  RETURN COS  RETURN+C)LN LEN #5[B] FOR LN [I]#5 GOSUB #LN [I]#/ SCROLLLN LEN #Y;LN ##/<>YSGN ### RETURNPEEK 4?LN ##5##LN [I]#5A #[I]# RETURNUSR 4>LN ##5 FOR ##[D]#▘ LET #VAL  FASTTAN ##TAN  RETURNCODE TAB ?#LN ## RETURNINKEY$ TAB AT #5##LN [D]#YA5 ##[F]# RETURNRNDTAB ,#5###[D]# RETURNABS 4)LN ##5ACS #LN [I]#YCODE 5###[F]# RETURNINT TAB AT ####LN ##LN ## PRINT Y FASTLN ##LN ##YSGN LN ## LET TAN LN ## RETURN- PRINT ATN ## RETURN(C- RETURNRNDK$ RETURNAUSR ▙#>=[?]# LET ATN ##TAN LN ACS #/ PLOT LN X#/ LET 5##/J#J##J#7TAN LN  LET # RETURN#ASN Z#YE#[F]#LN E#Y5/+LN $# LPRINT  GOSUB ##RNDTAN 5E~~/▌5##/ YLN LN ###LN ######LN R#LN AT #5 FOR #/ GOSUB  RETURN,TAB AT #TAN LN ##LN  LET # FAST FASTLN ##LN R#Y7LN ##5 GOSUB #LN [I]# LPRINT LN [I]#Y677LN [F]# LPRINT  GOSUB ##RNDLN ,,#TAN LN ##LN  LET # FAST FASTYELN [F]#576LN [I]# LPRINT LN [I]#77Y GOSUB LN ##Y#LN [F]#Y[B]5 GOSUB #LN [F]#Y IF  LPRINT LN :# FOR LN [F]#TAN 5  /?LN ## RETURN#C, PRINT )~~ LN ## LET  RETURNAABS AT # RETURN0 AND AT #CHR$ 0▞ #,,/ TO  FASTE-RND)▌ ;6-RND LPRINT TAN 5##LN [D]#LN ##LN  LET ##S#Y[.] PRINT LN R#LN AT #5##LN [I]#YYLN ## LET LN ##YM5KRNDLN [F]#5###[D]#Y[4]/**YE5ORNDLN [F]#Y65MRND#[F]# RETURN<>C> RETURN=C=3K▘ FOR *[B] GOSUB #R SAVE *SQR /▒ GOSUB #R""/▖ GOSUB #RCOS ZTAN LN R##IYLN [I]#5[A]#LN [D]#E~~RND7LN <# FOR LN :# FOR YABS LN [F]#LN ## RETURN THENTAB AT #TAN 5 RUN ##[D]#LN  SCROLL▝5VRNDACS [Q]TAN 5▞##[D]#5VRNDACS  PLOT #▛▝#7#,,7U£RND[1]""U$RND[0]TAN LN ## RETURNZTAB AT #LN ##[J]TAN LN ##5 GOSUB #LN [I]#50RNDLN [I]#5D,,#[I]#LN E#YSTR$ LN ##5:#LN [D]#5 FOR SGN #[I]##[▒]RND#["]RND#[:]RND#[)]RND#[=]RND#[*]RND#[,]RND#[1]RND#[4]RND FOR #[7]RND#[A]RND#[D]RND#[G]RND#[J]RND[J]
   2 REM ##/#3 3   OM1 LE▖ - RND   #   ▌ GT▘ 73▒  PR G=  82▞  ▖ COPY  REM  £ £ ~~ [M][C]INKEY$  [E][R]    ▞          C£ YR RETURN3HT[D]#98▖   £ PSS# ▌5£RND##A  FAST5 ▘ FAST5$RND##A SGN LN ## FAST LPRINT SGN ;6 LPRINT #E[D]# FAST5▒ SGN Y=LN [A]#ABS 6####5~~  FAST5▝ SGN ##LN  PRINT ▒/$C-SNORTH-1982)L#▘$ LN ##LN  GOTO ##2#53  FAST LPRINT LN [+]#5▘  FAST LPRINT  GOSUB #0RNDD,, FAST5▞  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▝  FAST LPRINT  GOSUB #0RNDD,, FAST5,,  FASTLN ## FAST5#.SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▀  FAST LPRINT  GOSUB #0RNDD,, FAST5:  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▖  FAST LPRINT  GOSUB #0RNDD,, FAST5▛  FASTLN ## FAST5C7SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▌  FAST LPRINT  GOSUB #0RNDD,, FAST5£  FASTLN ## FAST5C7SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▞  FAST LPRINT  GOSUB #0RNDD,, FAST5▌  FASTLN ## FAST5C7SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▛  FAST LPRINT  GOSUB #0RNDD,, FAST5,,  FASTLN ## FAST5#.SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5▒  FAST LPRINT  GOSUB #0RNDD,, FAST5:  FASTLN ## FAST5C7SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5,,  FAST LPRINT  GOSUB #0RNDD,, FAST5▛  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5~~  FAST LPRINT  GOSUB #0RNDD,, FAST5$  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5"  FAST LPRINT  GOSUB #0RNDD,, FAST5,,  FASTLN ## FAST5#.SGN LN ## FAST LPRINT SGN ;SGN  FOR LN ,,#5+  FAST5* SGN 7 GOSUB #[X]#6[Z]#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5▖  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▘ SGN Y>LN [A]#ABS H#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5▌  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▖ SGN Y=LN [A]#ABS ##E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5▞  FAST LPRINT SGN  FOR LN ,,#5-  FAST LPRINT  GOSUB #0RNDD,, FAST5▀  FASTE[+]# FAST LPRINT SGN ;SGN  FOR LN ,,#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF  LET #5/  FAST5; SGN 7 GOSUB #[X]#6[Z]#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5▌  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▝ SGN Y=LN [A]#ABS ATN #E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5▞  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▀ SGN Y=LN [A]#ABS  PAUSE #E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5,,  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▖ SGN Y=LN [A]#ABS /#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5£  FAST LPRINT SGN  FOR LN ,,#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF [(]#5,  FAST50 SGN 7 GOSUB #[X]#6[Z]#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5,,  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▝ SGN Y=LN [A]#ABS ##E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5£  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▀ SGN Y=LN [A]#ABS [.]#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5:  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▖ SGN Y=LN [A]#ABS AT #E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5(  FAST LPRINT SGN  FOR LN ,,#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF T#51  FAST52 SGN 7 GOSUB #[X]#6[Z]#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5:  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▝ SGN Y=LN [A]#ABS 2#E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5)  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▀ SGN Y=LN [A]#ABS ##E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5<  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▖ SGN Y=LN [A]#ABS ##E[X]# FAST LPRINT  GOSUB #0RNDD,, FAST5+  FAST LPRINT SGN  FOR LN ,,#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF  LLIST #53  FAST LPRINT  GOSUB #0RNDD,, FAST5<  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▘ SGN Y>LN [A]#ABS [R]#53  FAST LPRINT  GOSUB #0RNDD,, FAST5/  FAST LPRINT SGN  FOR LN ,,#E[+]# FAST5▖ SGN Y=LN [A]#ABS <>#53  FAST LPRINT  GOSUB #0RNDD,, FAST5,  FAST LPRINT SGN  FOR LN ,,#5▘  FAST5" SGN 7 GOSUB #[X]#6[Z]#E LPRINT # FAST55  FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN LN ## FASTE[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN ## LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5[+] SGN  FOR #E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF  GOSUB #5"  FAST LPRINT 6[P]#E[5]# FAST5▝ SGN Y=LN [A]#ABS ##5▒  FAST LPRINT 6[P]#E[5]# FAST5▀ SGN Y=LN [A]#ABS [~~]#5:  FAST LPRINT 6[P]#5   FAST LPRINT 6[)]#E[5]# FAST5▖ SGN Y<LN [A]#ABS [E]#5▝  FAST LPRINT 6[)]#E[5]# FAST5▘ SGN Y=LN [A]#ABS TAB #5▀  FAST LPRINT 6[)]#E[5]# FAST5▌ SGN Y=LN [A]#ABS  CONT #5▌  FASTLN ## FAST5[E]~~SGN LN ## FAST LPRINT SGN ;6[P]#E[5]# FAST5▌ SGN Y=LN [A]#ABS :#5▘  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;6[)]#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST50 SGN  FOR #5▘  FAST5[K]▖SGN 7 GOSUB #[X]#6[Z]#E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF ##E[5]# FAST5▖ SGN Y<>LN [A]#ABS ###[>]#5▖  FASTLN ## FAST58,,SGN LN ## FAST LPRINT SGN ;6 FAST#5▖  FAST LPRINT 6 DIM #5▘  FAST5" SGN 7 GOSUB #[X]#6[Z]#E LPRINT # FAST55  FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN LN ## FASTE[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN ## LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E[P]# FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN Y=LN [A]#ABS *##AT #5▘  FAST LPRINT 6[T]#E[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FASTE[)]# FAST LPRINT SGN [B] FOR  GOSUB # FAST5 CONT ▀SGN LN ## FAST LPRINT 6TAN #E[P]# FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN Y<LN [A]#ABS ##5▘ LN ## FAST LPRINT 6[T]#LN ## FASTETAN #ACS #CODE ## FAST5[/]U FAST LPRINT SGN ;SGN Y<LN [A]#ABS [*]##AT #E[X]# FAST LPRINT  GOSUB #0RNDD,, FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN  FASTE[T]# FAST LPRINT SGN ;SGN  FOR LN ,,#E[)]# FASTE[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN Y=LN [A]#ABS  CONT ####LN ## FASTETAN #ACS #CODE ## FAST5[/]U FAST LPRINT SGN ;SGN Y<LN [A]#ABS ▒####5▘  FAST LPRINT 6[T]#ETAN # FAST5  SGN Y>LN [A]#ABS F#5▘ LN ## FAST LPRINT 6[T]#E[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,, FASTE[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN  FASTE[T]# FAST LPRINT SGN ;SGN  FOR LN ,,#E LPRINT # FAST55  FASTE[X]# FAST LPRINT  GOSUB #0RNDD,,STR$ LN :# FOR SGN SGN LN ## FASTE[X]# FAST5=  FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN ## LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5[+] SGN  FOR #E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF [6]#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ;##A  FAST LPRINT 6TAN #ETAN # FAST5[+] SGN Y=LN [A]#ABS $##A#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▞ SGN  FOR #E[P]# FASTE[)]#SGN ##LN  PRINT ▒/▘ )##▘▘ LN ##LN  GOTO #E[9]# FAST5▘ SGN Y<>LN [A]#ABS ###▟#E[$]# FAST5▘ SGN Y=LN [A]#ABS ▟####LN ##A # FAST LPRINT 6[L]#E[L]# FAST5  SGN Y=LN [A]#ABS [3]##[V]#E[$]# FAST5▘ SGN Y=LN [A]#ABS [M]##▛#E[L]# FAST51 SGN Y=LN [A]#ABS PEEK #E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#E[L]# FAST5Q SGN Y=LN [A]#ABS  LET #E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#E[L]# FAST5A SGN Y=LN [A]#ABS ▖##[A]##[V]#E[L]# FAST50 SGN Y=LN [A]#ABS C#E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#E[L]# FAST5O SGN Y=LN [A]#ABS ##E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#E[L]# FAST5P SGN Y=LN [A]#ABS ###[A]##[V]#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▝ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST LPRINT 6TAN #ETAN ###A  FAST5  SGN Y<>LN [A]#ABS [7]##▞#ETAN # FAST54  FAST LPRINT SGN [B] FOR  GOSUB ###A  FAST5  SGN Y<>LN [A]#ABS VAL ####ETAN # FAST54  FAST LPRINT SGN ;##A  FAST5  SGN Y<>LN [A]#ABS  SLOW##;#ETAN # FAST5▘  FAST LPRINT SGN ;##A  FAST5  SGN Y<>LN [A]#ABS ▀##▞##[+]#LN ## FAST5█YSGN Y<LN [A]#ABS ;####E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#ETAN # FAST55  FAST LPRINT SGN [B] FOR  GOSUB ###A  FAST5  SGN Y<>LN [A]#ABS ##E[P]# FAST5▝  FAST LPRINT SGN ;6[P]##[+]#E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#ETAN # FAST55  FAST LPRINT SGN ;##A  FAST5  SGN Y<>LN [A]#ABS [+]#E[P]# FAST5▝  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#E[5]# FAST5▖ SGN Y<>LN [A]#ABS [C]##[R]#E DIM # FASTEAT #SGN Y>=LN [A]#ABS [V]##[A]#E[5]# FAST5▖ SGN Y<>LN [A]#ABS EXP ##[R]#E LPRINT # FAST55  FASTE FAST#SGN LN ## FASTE DIM ### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E DIM # FASTLN ## FAST5#.SGN LN ## FAST LPRINT SGN ;6 DIM #E DIM # FAST50 SGN Y>LN [A]#ABS I#50  FAST LPRINT 6 DIM #E FAST# FAST5▝  FAST LPRINT SGN [B] FOR  GOSUB #6 FAST#E FAST# FASTLN ## FAST5#.SGN LN ## FAST LPRINT SGN ;6 FAST#E FAST# FAST5▖ SGN Y<LN [A]#ABS ##5▖  FAST LPRINT 6 FAST#E FAST# FAST5> SGN Y>LN [A]#ABS ▐#5>  FAST LPRINT 6 FAST#E LPRINT # FAST55  FASTE FAST#SGN LN ## FASTE DIM ### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5O SGN  FOR #E[5]# FAST5▖ SGN Y<>LN [A]#ABS STR$ #E[)]# FAST5▘  FAST LPRINT SGN ;6[)]#E[5]# FAST5▖ SGN Y<>LN [A]#ABS  NEXT #E[;]# FAST5▘  FAST LPRINT SGN ;6[;]#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ;##A  FAST LPRINT 6TAN #ETAN # FAST5  SGN Y<>LN [A]#ABS U##A#E LPRINT # FAST55  FASTE[P]#SGN LN ## FASTE[)]### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST50 SGN  FOR #E[)]# FAST50 SGN Y>LN [A]#ABS ###"#E[;]# FAST5# SGN Y>=LN [A]#ABS [>]##-##[>]#E[;]# FAST LPRINT 6VAL #5▖  FAST52 SGN 7 GOSUB #[,,]#6["]#EVAL # FAST5# SGN Y>LN [A]#ABS ""## UNPLOT #EVAL # FAST5~~ SGN LN ## FAST LPRINT  FAST5~~ SGN LN ## FAST LPRINT  FASTEVAL #SGN Y=LN [A]#ABS  SCROLL##A#E LPRINT # FAST5#  FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▜ SGN  FOR #E LPRINT # FAST5#▝ FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▟ SGN  FOR ####EVAL # FAST5# SGN Y<LN [A]#ABS T####5▝  FASTE[,,]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒5M  FASTEVAL # FAST5W  FAST LPRINT SGN [B] FOR  GOSUB # FAST LPRINT SGN [B] FOR  GOSUB #LN ##LN  GOTO ##[3]#5▝  FASTE[,,]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒EVAL # FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #LN ##LN  GOTO #E LPRINT # FAST5#  FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E LPRINT # FAST5#  FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5[0] SGN  FOR #E LPRINT # FAST5#▝ FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5[0] SGN  FOR ####5[G]  FAST LPRINT 6TAN #EVAL # FAST5# SGN Y>LN [A]#ABS 0#5X  FAST LPRINT 6TAN #E LPRINT # FAST5#  FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FASTETAN #SGN  FOR #E LPRINT # FAST5#▝ FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FASTETAN #SGN  FOR #EVAL # FASTE[1]#SGN Y=LN [A]#ABS ▚#E LPRINT # FAST5#  FASTE[,,]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5[F] SGN  FOR #EVAL # FAST5▘  FAST LPRINT SGN ;6VAL #E[,,]#76[,,]# GOSUB #["]#[B] GOSUB # IF [H]#TAN E DIM # FASTE[)]# FAST LPRINT SGN [B] FOR  GOSUB #6TAN #5   FAST LPRINT 6[T]#E FAST# FASTE[P]# FAST LPRINT SGN [B] FOR  GOSUB #6<>#5▘  FAST LPRINT 6[T]#E<># FAST5  SGN Y<LN [A]#ABS  NEXT #5▘ LN ## FAST LPRINT 6[T]#ETAN # FASTE<>#ACS #CODE ## FAST LPRINT SGN [B] FOR  GOSUB #6 OR #E OR # FAST5  SGN Y<LN [A]#ABS 5#5   FAST LPRINT 6 OR #5 COPY# FASTETAN #SGN LN ## FAST LPRINT 6[,,]#E[,,]# FASTE OR #SGN LN ## FAST LPRINT 6<>#E[P]# FAST LPRINT 6[,,]#E[)]# FAST LPRINT 6 OR #5   FAST LPRINT 6TAN #E[)]# FASTE DIM # FAST5▘  FAST LPRINT SGN ;SGN 7 GOSUB #[X]#6[Z]#E LPRINT # FAST55  FASTE[,,]#SGN LN ## FASTE OR ### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FASTETAN #SGN  FOR #LN ## FASTE<>#SGN Y<LN [A]#ABS [Q]##CODE #E[,,]# FASTE[T]# FAST LPRINT SGN ;6[,,]#E OR # FAST5▘  FAST LPRINT SGN ;6 OR #E LPRINT # FAST55  FASTE[,,]#SGN LN ## FASTE OR ### LPRINT SGN ; FAST## FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ;##A  FAST LPRINT 6TAN #ETAN # FAST5  SGN Y<>LN [A]#ABS ;####E[,,]# FASTE OR #SGN ##LN  PRINT ▒/▘[*])C#▘▘ LN ##LN  GOTO #E[,,]# FASTE OR #SGN ##LN  PRINT ▒/▘*)##▘▘ LN ##LN  GOTO #E[X]#76[X]# GOSUB #[Z]#[B] GOSUB # IF ###COS #ETAN # FAST5[+] SGN Y<>LN [A]#ABS ###(#E[9]# FAST5  SGN Y=LN [A]#ABS ["]##NOT #E[$]# FAST5  SGN Y=LN [A]#ABS [2]##NOT #E DIM # FASTE OR # FAST LPRINT SGN [B] FOR  GOSUB #ACS #CODE ## FAST5▘ SGN Y>LN [A]#ABS AT ##;#LN ## FAST5█YSGN Y<LN [A]#ABS USR ##[4]##COS #E DIM # FASTE OR # FAST LPRINT SGN [B] FOR  GOSUB #ACS #CODE ## FAST5▀ SGN Y>LN [A]#ABS  IF ##;#LN ## FAST54#SGN Y<LN [A]#ABS $##[4]##COS #ETAN # FAST5O SGN Y=LN [A]#ABS 7##PEEK ##COS #5   FAST LPRINT 6LN #ETAN # FAST5[+] SGN Y<>LN [A]#ABS INKEY$ ##2#E[)]# FAST5  SGN Y=LN [A]#ABS ##E[;]# FASTE DIM # FAST5▀ SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6[;]#LN ## FAST5 STEP #SGN Y<LN [A]#ABS ###2#5▘  FAST LPRINT 6LN #LN ## FAST5 STEP ISGN Y<LN [A]#ABS [1]#5▝  FAST LPRINT 6LN ##2#5▖  FAST LPRINT 6LN #E[;]# FASTE DIM # FAST5▖ ## LPRINT SGN ; FAST## FAST LPRINT SGN [B] FOR  GOSUB #6[;]##2#5▀  FAST LPRINT 6LN ##2#5▞  FAST LPRINT 6[5]#E[,,]# FAST LPRINT 6[P]#E OR # FAST LPRINT 6[)]#E[;]# FASTE[)]# FAST5▖ ## LPRINT SGN ; FAST## FAST LPRINT SGN [B] FOR  GOSUB #6[;]##$#5▞  FAST LPRINT 6LN ##2#5▌  FAST LPRINT 6LN #TAN 
   3 REM   TAN -ZXGT COMPILER -         ZXGT=17389 PROG=18823
   4 REM        [M][C][O][D][E][R]               COPYRIGHT 1982     PSS
   5 REM [N][F][L][X] FOOTBALL BY SNORTH         SYNCWARE CO. #E(RND)▞ ;6 TO # GOSUB #£RNDY-<▘4 E TO # GOSUB [K]XCOS / NEXT COS #234567890123456789012345678901234
   7 DIM M$(32)
  10 CLS
  12 LET N0=NOT PI
  13 LET N1=SGN PI
  14 LET N2=2
  18 SLOW
  20 PRINT TAB 10;"[S][Y][N][C][W][A][R][E]█[C][O].";TAB 11;"PRESENTS-"
  48 POKE 18857,8
  56 LET PD=N0
  62 LET H$="FALCONS"
  64 LET A$="COWBOYS"
  66 LET B$=H$
  72 DIM H(N2)
  74 DIM A(N2)
 100 FOR N=VAL "18830" TO VAL "18882" STEP VAL "4"
 102 POKE N,N0
 104 NEXT N
 122 FOR N=N0 TO 20
 123 PRINT AT N,N0;"NFLX FOOTBALL  COPR. 1983 SNORTH";TAB 10;"[S][Y][N][C][W][A][R][E]█[C][O][.]"
 124 NEXT N
 125 PRINT AT 10,N0;"[G][A][M][E]█[O][R]█[D][E][M][O][?]█[(][P][R][E][S][S]█[G]█[O][R]█[D][)]████"
 127 LET G$="G"
 130 IF INKEY$ ="" THEN GOTO 130
 132 IF INKEY$ ="D" THEN LET G$="D"
 134 FAST
 135 CLS
 136 LET B=G$="D"
 144 LET H=G$="D"
 146 POKE 18853,G$="D"
 147 LET SC=N0
 148 LET MN=15
 155 LET F=80
 156 LET O=10
 157 LET E=70
 158 LET DN=N0
 160 GOSUB 700
 172 LET G=5
 174 LET D=4
 181 IF G$="G" THEN GOTO 200+(18 AND PD>N0)
 182 GOSUB 600
 183 IF PEEK 18849=5 THEN LET G=4
 184 GOSUB 750
 185 SLOW
 186 LET N=USR 18823
 187 GOSUB 600
 188 FAST
 189 CLS
 194 GOTO 155
 200 LET PD=N1
 201 SLOW
 202 PRINT AT 20,N0;"██████████[1]█[P][L][A][Y][E][R]█[O][R]█[2][?]████████"
 204 IF INKEY$ ="" THEN GOTO 204
 206 IF INKEY$ ="1" THEN LET H=N1
 207 POKE 18853,H
 208 PRINT AT 20,N0;"[E][N][T][E][R]█[H][O][M][E]█[T][E][A][M]█[N][A][M][E]█[(][M][A][X]█[8]█[L][T][R][)]"
 209 INPUT H$
 210 IF LEN H$>8 THEN LET H$=H$( TO 8)
 212 PRINT AT 20,6;"AWAY"
 213 INPUT A$
 214 IF LEN A$>8 THEN LET A$=A$( TO 8)
 216 LET B$=H$
 217 GOSUB 620
 218 PRINT AT 20,0;"READY FOR KICK TO ";B$
 219 SLOW
 220 GOSUB 600
 221 GOSUB 620
 222 FAST
 240 LET E=E-(25+INT (RND*25))
 242 IF E>10 THEN GOTO 248
 244 LET E=30
 245 LET R=N0
 246 LET L=3
 247 GOTO 392
 248 GOSUB 750
 250 SLOW
 251 LET N=USR 18823
 252 GOSUB 600
 256 GOSUB 730
 260 IF R=N0 THEN GOTO 380
 262 IF R<>6 THEN GOTO 270
 264 LET E=E+INT (RND*(120-E))
 266 IF E<110 THEN LET R=N0
 268 GOTO 380
 270 IF R<>5 THEN GOTO 290
 272 IF R=5 THEN LET M$="▌▌▌[T][O][U][C][H][D][O][W][N]▞▞▞[*]▚▚▚[T][O][U][C][H][D][O][W][N]▐▐▐" 
 274 LET S=N0+(N2 AND R=7)+(3 AND R=8)+(6+(RND<.8) AND R=5)
 276 LET H(PD)=H(PD)+(S AND ((B=N0 AND R<>7) OR (B=N1 AND R=7)))
 278 LET A(PD)=A(PD)+(S AND ((B=N1 AND R<>7) OR (B=N0 AND R=7)))
 280 IF R=7 THEN LET M$="█[S][A][F][E][T][Y]█XXXX█[S][A][F][E][T][Y]█XXXX█[S][A][F][E][T][Y]█"
 282 IF R=10 THEN LET M$="XXX█[F][I][E][L][D]██[G][O][A][L]█XXX█[N][O]██[G][O][O][D]█XXX"
 284 IF R=8 THEN LET M$="▞▞█[F][I][E][L][D]██[G][O][A][L]█▞▞█[G][O][O][D]▞▞█[G][O][O][D]█▞▞"
 286 GOTO 320
 290 IF R<>4 THEN GOTO 296
 292 LET M$="█[I][N][T][E][R][C][E][P][T][I][O][N]█XXXX█[I][N][T][E][R][C][E][P][T][I][O][N]█"
 294 GOTO 320
 296 IF R<>3 THEN GOTO 302
 298 LET M$="XXX█[I][N][C][O][M][P][L][E][T][E]█XX█[I][N][C][O][M][P][L][E][T][E]█XXX"
 300 GOTO 320
 302 IF R<>N2 THEN GOTO 310
 304 LET M$="█[F][U][M][B][L][E]█==RECOVERED=BY=DEFENSE=="
 306 GOTO 320
 310 LET M$="█[F][U][M][B][L][E]█▚▚[R][E][C][O][V][E][R][E][D]█[B][Y]█[O][F][F][E][N][S][E]▚▚"
 320 LET N=USR 24002
 326 GOSUB 600
 328 FAST
 329 CLS
 350 IF R=3 OR R=N1 THEN GOTO 378
 360 IF B=N1 THEN GOTO 364
 361 LET B=N1
 362 LET B$=A$
 363 GOTO 366
 364 LET B=N0
 365 LET B$=H$
 366 LET E=120-E
 367 LET DN=N0
 368 IF R=11 THEN GOTO 172
 369 IF E<10 AND R=4 THEN LET E=30
 370 IF R<9 AND R<>4 AND R<>2 THEN LET E=70+(20 AND R=7)
 378 IF R>N2 THEN GOTO 390
 380 IF E<10 THEN LET R=7
 382 IF E>109 THEN LET R=5
 386 IF R>4 AND R<9 THEN GOTO 272
 390 IF R=9 THEN GOTO 433
 392 LET SC=SC-(6+INT (RND*6))-(INT (RND*12) AND (R=0 AND L>3 AND L<19))
 394 IF SC>=N0 THEN GOTO 420
 396 LET SC=60+SC
 398 LET MN=MN-N1
 399 IF MN>=N0 THEN GOTO 420
 400 LET PD=PD+N1
 402 IF PD>N2 THEN GOTO 1000
 403 SLOW
 404 PRINT AT 10,N2;"[E][N][D]█[O][F]█[1][S][T]█[H][A][L][F]"
 405 PRINT AT 12,N2;"[S][C][O][R][E][:] ";H$;" ";H(1);" ";A$;" ";A(1)
 406 PRINT AT 14,N2;"HIT ANY KEY FOR 2ND HALF"
 407 IF INKEY$ ="" THEN GOTO 407
 414 LET B$=A$
 416 LET B=N1
 417 CLS
 419 GOTO 147
 420 IF R=5 THEN GOTO 155
 424 IF R=7 THEN GOTO 172
 426 IF R=8 THEN GOTO 155
 428 IF R=10 THEN GOTO 433
 430 IF DN=4 AND E<F THEN LET R=9
 431 IF R=9 THEN GOTO 360
 432 IF E>=F THEN LET DN=N0
 433 LET DN=DN+N1
 434 IF DN=N1 THEN LET F=E+10
 435 IF F>110 THEN LET F=110
 437 GOSUB 700
 438 SLOW
 439 GOTO 440+(B+H)*10
 440 PRINT AT 20,N0;H$;" OFF PLAY? (1-4,P,F)"
 442 GOSUB 760
 444 IF (K<29 OR K>32) AND (K<>53 AND K<>43) THEN GOTO 442
 446 GOTO 456
 450 IF B=N0 THEN GOTO 440
 452 PRINT AT 20,N0;A$;" OFF PLAY? (7-0,P,F)"
 454 GOSUB 760
 455 IF (K<35 OR K>37) AND (K<>28 AND K<>53 AND K<>43) THEN GOTO 454
 456 LET G=(K-28)-(6 AND B=N1)+(10 AND K=28)
 457 IF K>40 THEN GOTO 500+(30 AND K=53)
 459 GOTO 473+(97 AND H=N1)
 460 LET G=5-((RND*100)<(DN*10)+(F-E)*3+(15*PD AND H(N1)+H(N2)>A(N1)+A(N2)))
 462 IF F-E<3 THEN LET G=4+(RND*3>F-E)
 465 IF DN=4 AND E<78 AND (MN>3 OR PD=1 OR A(1)+A(2)>=H(1)+H(2)) THEN GOTO 550
 466 IF ((DN=4 AND E>77) OR (E>77 AND MN<N1 AND SC<18)) THEN GOTO 500
 467 GOTO 473
 473 GOSUB 620
 474 IF B=N1 THEN PRINT AT 20,N0;H$;" DEF PLAY? (1-4)"
 475 IF B=N0 THEN PRINT AT 20,N0;A$;" DEF PLAY? (7-0)"
 476 GOSUB 760
 478 IF B=N1 AND (K<29 OR K>32) THEN GOTO 473
 480 IF B=N0 AND ((K<35 OR K>37) AND K<>28) THEN GOTO 472
 482 LET D=K-28-(6 AND B=0)+(10 AND K=28)
 484 IF B+H=N2 THEN LET O=8+D
 488 IF G=4 AND D=4 AND H+B<>N2 THEN LET D=3
 489 GOSUB 620
 490 GOTO 248
 500 IF MN<6 AND H+B=2 AND PD=2 AND H(N1)+H(N2)>A(N1)+A(N2)+3 THEN GOTO 473
 503 LET R=10-(N2 AND E+INT (RND*60)>115)
 506 GOTO 274
 550 LET R=11
 552 GOSUB 620
 555 GOTO 360
 570 GOSUB 620
 571 LET Q=135-E+((F-E)-11)*5+(10-(DN-N1)*20)+((A(N1)+A(N2))-(H(N1)+H(N2)))*3*PD
 572 IF Q<25 THEN LET Q=25
 574 IF Q>100 THEN LET Q=100
 576 LET D=INT (Q/25)
 579 GOTO 488
 600 FOR N=N1 TO 20
 605 NEXT N
 609 RETURN
 620 PRINT AT 20,N0;"                                "
 629 RETURN
 700 FAST
 701 CLS
 702 PRINT AT N0,N0;"[:][D][N][:][Y][D][:][:][T][I][M][E][:][P][D][:][:][:][:][:][:][:][:][:]  [▒]  [T]  "
 705 PRINT "[:]  [:]  [:]  :  [:]  [:][:][:][:][:][:][:][:][:]  [▒]  [T]  "
 708 PRINT AT N0,16;H$;TAB 24;H(N1);TAB 27;H(N2);TAB 30;H(N1)+H(N2)
 710 PRINT AT N1,N2;DN;TAB 4;F-E;TAB 7;MN;TAB 10;SC;TAB 14;PD;TAB 16;A$;TAB 24;A(N1);TAB 27;A(N2);TAB 30;A(N1)+A(N2)
 711 PRINT AT 3,N0;"▛▛▛▛▛"
 712 LET F$=B$
 713 IF B=N0 AND E>60 THEN LET F$=A$
 714 IF B=N1 AND E>60 THEN LET F$=H$
 715 IF PD>N0 THEN PRINT AT 3,5;"[B][A][L][L]█[O][N][:]";F$;" ";(E-10 AND E<61)+(110-E AND E>60);" [Y][D]█[L][N]"
 718 PRINT AT 19,N0;"▙▙▙▙▙"
 720 PRINT AT B,15;"[*]"
 729 RETURN
 730 LET E=PEEK 18841-(N2 AND (G=N2 OR G=3))-(G=5)
 735 LET R=PEEK 18893
 737 LET L=PEEK 18869
 739 LET G=PEEK 18849
 741 LET D=PEEK 18837
 749 RETURN
 750 POKE 18841,E
 752 POKE 18829,B
 754 POKE 18837,D
 756 POKE 18845,F
 757 POKE 18849,G
 758 POKE 18881,O
 759 RETURN
 760 LET K=CODE INKEY$ 
 762 IF K=N0 THEN GOTO 760
 769 RETURN
 1000 DIM S$(N2,VAL "3")
 1001 LET S$(N1)=STR$ (H(N1)+H(N2))
 1002 LET S$(N2)=STR$ (A(N1)+A(N2))
 1003 CLS
 1004 FOR N=N0 TO 19
 1005 IF N<7 THEN PRINT "▚▚[F][I][N][A][L]▞▞[S][C][O][R][E]▞▞▞[F][I][N][A][L]▞▞[S][C][O][R][E]▚▚▚"
 1008 IF N>6 THEN PRINT H$;" ";S$(N1);"[~~][,,][~~][,,][~~][,,][~~][,,]";A$;" ";S$(N2)
 1010 NEXT N
 1012 PRINT "████[H][I][T]█[A][N][Y]█[K][E][Y]█[T][O]█[P][L][A][Y]█[A][G][A][I][N]███"
 1015 IF INKEY$ ="" THEN GOTO 1015
 1017 CLS
 1020 RUN 
 2100 SAVE "NFL[X]"
 2110 RUN 
 
   0 REM [Z][X][G][T]###[O]RND#7INKEY$ ##INKEY$ ##INKEY$ #▐INKEY$ #[*]INKEY$ #[F]INKEY$ #5PI#[0]PI# THENPI#T########[S]#INT [£] FASTSTR$ [J]LN 5PIACS #C▒Y-LN 5PILN .INKEY$ )(BLN ▛INKEY$ K,) CONT ▀LN ▛INKEY$ K+)# LN ▛INKEY$ K<2~~LN ▛INKEY$ K># UNPLOT RNDLN $INKEY$ ) CONT ▀LN $INKEY$ )# LN $INKEY$ 2~~LN $INKEY$ 2▘LN $INKEY$ [J]SGN  LPRINT #5PI FAST[B] GOSUB # LPRINT TAN Y0[B] GOSUB #S▀W/ RAND ;#5PI#J##J#7TAN E£RND)5  FAST▘  ,,7 FAST; FOR 5CHR$ ▝ GOSUB PI STOPAT  FOR  GOSUB [K] LPRINT ▘[Q]▝,,6:RNDY5MTRNDY▀MURNDTAN LN [V]▝# RETURN RETURN4:LN [V]▝84 IF LN [V]▝# RETURN COPYC SAVE ▘# CLEAR[J] FAST GOSUB PI LPRINT ASN [M]RND▘ LOAD  UNPLOT [J] FAST GOSUB PI LPRINT C<>#8COS #LN [X]▛# RETURN TAN ACS  UNPLOT 6ORNDEORND# NEW#[P]COS LN #INKEY$ C NEXT ▞(## FOR 5  ACS T3K▘; FOR D FOR ( PRINT TAN YF[(] AND >=PI#Y▘ACS CK▝Y▖ACS DK▝ACS ▛ PRINT LN  FOR INKEY$ #ACS ▛ RETURN(K▛ACS ?K▝ INPUT [?]#)[2]£UKRND[<] IF  LPRINT INKEY$  LET J[4]/▝ LET [K] RETURN▒S▝ INPUT [?]/QY*[(] AND >=PI# NEW3#VAL VAL VAL [J]ACS (ACS (ACS (##DDAT ##,,AT #,, GOSUB #£RND,,76:RNDAT Y/[(]MURNDY5[)]MTRNDTAN STR$  FASTVAL  PRINT UURND RETURN▝CU LET  RETURN#CE RETURNRNDK#E:RND#76:RNDUTRNDXMTRND# RETURN#4#UURNDXMURND76:RNDY5MTRND/SE:RND# RETURN#C NEW7/ SAVE E£RND▘ SAVE ▝,,Q[?]LN #INKEY$ C CLS RETURNCC+ RETURNZC. RETURND4▒5(BF#[O]4 CLSLN 7INKEY$ /▀LN E~~ LET /[,]AT  LPRINT SGN TAN LN #▒/PEEK #[L]COS ,LN 5PI<"/ PRINT  RETURN#S,, RETURN""ACS [R] AND PPI NEWZ5)▘#▖ RETURN5K▖[J]LN 5PIACS #7C CLS( RAND #ACS #4▞LN 5PI7/ PRINT  NEWZLN 5PI[J]#HPIINT [~~]#[M]C IF LN D#VAL #[M]▛S LET #PI)  STR$  FOR 7D FOR D#[+]#[0] FOR K PLOT  FOR  FOR [J]#3##3#[O]C/ FOR [J]ACS 0ACS 1#[+]#[0] IF  RETURNPI#[+]##[0]# STOP; STOP/<> LPRINT AT ACS #TAB .INKEY$ TAN ##*>=.INKEY$  FOR #[C]#ACS #TAB .INKEY$ TAN  GOSUB #MRND#I CLEAR#[R]▞  GOSUB #[/] GOSUB #[/]## GOSUB #K▘76MRNDACS [W]TAN ▀▀▀VAL ▀▀▀▀5█#LN [7],,7Y##7Q▝7AT #7#7Q REM 7#7#7TAN 5   FAST FASTLN #INKEY$  RETURN-4,, LPRINT SGN  PRINT  FASTLN 5PI/ LIST  RETURN# LPRINT C3D FASTDDSGN ;#LN 5PI#CHR$ 0S▒#▞ ,, RETURN~~SPEEK  LET Y NEWLN 5PI/SIN  LET ATN .INKEY$ TAN VAL  FASTE#RND PRINT # FAST76#RNDLN #INKEY$  RETURND4>Y#LN 5PI LPRINT LN [O]RND LET A #LN [O]RND/▝ LPRINT  LET  LPRINT AT [J]TAN TAN TAN Y?NOT LN ##/>5  LN >#LN  RUN #▀LN ## FASTLN ▞# LPRINT LN >#LN ##LN 4#LN $#INT #YTAN ###6#RND GOSUB #0RND<5#RNDLN ,,#E#RNDQ/7Q#76#RND)# ;6#RND5#RNDLN USR #77 FAST76-RNDLN ## RETURN PAUSE ATN ACS # RETURN RAND ATN [-]# RETURN IF ATN COS # RETURN THENC REM  RETURN DIM ATN 1# RETURN GOTO ATN F# RETURN GOSUB ATN RND# RETURN FOR ATN SIN # RETURN NEXT ATN  POKE # RETURN SLOWATN  # RETURN POKE ATN [Q]# RETURN FASTATN  LET # RETURN INPUT ATN ## RETURN PLOT ATN ## RETURN UNPLOT ATN [>]# RETURN LET ATN ▀# RETURN CLSATN [3]# RETURN STOPASN [-]# RETURN PRINT ATN ## RETURN REM C+ RETURN SCROLLATN [8]# RETURN RETURNATN $# RETURN 4:LN ## RETURN#4▛ LPRINT LN :#TAB Q#Y[S]LN ##LN ##INT [.]LN ##5###[D]# FAST#7#STR$  FOR  FAST67RND6~~RNDLN  GOTO #LN ## LPRINT LN <#.. FOR SGN LN ,,# GOSUB ##RNDLN ,,# FAST GOSUB ##RND[B] GOSUB # LPRINT S▀6#RND LPRINT TAN #7#7TAN #7#7TAN  FASTAT E0RND7LN :# FOR [B] GOSUB PISQR E#RND GOSUB #** FOR 7/ GOSUB Y# PRINT LN ##LN E#LN <# FOR LN :# FOR  LET #[F]#YLN / DIM  FAST SCROLL RETURN#C,, RETURN#C▌ PRINT LN ## LET  LPRINT TAN LN ## RETURN#C# RETURN"C< RETURNAT C# RETURNCHR$ C#LN ##5##LN [D]#/#Y/LN ##E#RND FASTLN ##▘ COPY COPYE-RND7▀# PRINT LN ## LET  RETURN"C▌LN ##/ LOAD 6-RND LPRINT VAL #7Y)LN [F]#Y▘ LPRINT LN [F]#5##LN [D]#/>LN R#LN AT #5##LN [I]#5 PRINT ▒LN [D]#LN ## RETURN,C[£] RETURN;C[▒]5 GOTO #LN [D]#E-RNDF6-RND[J]TAN LN ##Y#LN ##5##LN [D]#/CHR$ Y#### RETURNRNDABS AT #CHR$ A** GOSUB ##RNDA #,,TAN LN ##LN  LET # RETURN#4~~LN E#Y FASTLN ##A COPY FASTLN ## RETURN=TAB AT #LN X#LN PEEK # LPRINT # RETURN COPY4£5SGN  FOR LN [I]#5,,##[D]#Y6#[F]#[J] PRINT LN ##Y FASTLN ##LN ## RETURN)C# RETURN#C# PRINT LN ## LET  RETURN+C▖ RETURN-47AT ## RETURN 4▖ PRINT  FAST/** FAST5##LN [I]#LN ##Y FAST5##LN [F]#/CODE  PRINT VAL /0 RETURN/C( RETURN*TAB AT #LN LEN #5##LN [D]#/[G]LN LEN #5##/ NEXT Y LPRINT LN ## LET  RETURN COS  RETURN+C)LN LEN #5[B] FOR LN [I]#5 GOSUB #LN [I]#/ SCROLLLN LEN #Y;LN ##/<>YSGN ### RETURNPEEK 4?LN ##5##LN [I]#5A #[I]# RETURNUSR 4>LN ##5 FOR ##[D]#▘ LET #VAL  FASTTAN ##TAN  RETURNCODE TAB ?#LN ## RETURNINKEY$ TAB AT #5##LN [D]#YA5 ##[F]# RETURNRNDTAB ,#5###[D]# RETURNABS 4)LN ##5ACS #LN [I]#YCODE 5###[F]# RETURNINT TAB AT ####LN ##LN ## PRINT Y FASTLN ##LN ##YSGN LN ## LET TAN LN ## RETURN- PRINT ATN ## RETURN(C- RETURNRNDK$ RETURNAUSR ▙#>=[?]# LET ATN ##TAN LN ACS #/ PLOT LN X#/ LET 5##/J#J##J#7TAN LN  LET # RETURN#ASN Z#YE#[F]#LN E#Y5/+LN $# LPRINT  GOSUB ##RNDTAN 5E  ▌5##/ YLN LN ###LN ######LN R#LN AT #5 FOR #/ GOSUB  RETURN,TAB AT #TAN LN ##LN  LET # FAST FASTLN ##LN R#Y7LN ##5 GOSUB #LN [I]# LPRINT LN [I]#Y677LN [F]# LPRINT  GOSUB ##RNDLN ,,#TAN LN ##LN  LET # FAST FASTYELN [F]#576LN [I]# LPRINT LN [I]#77Y GOSUB LN ##Y#LN [F]#Y[B]5 GOSUB #LN [F]#Y IF  LPRINT LN :# FOR LN [F]#TAN 5  /?LN ## RETURN#C, PRINT )~~ LN ## LET  RETURNAABS AT # RETURN0 AND AT #CHR$ 0▞ #,,/ TO  FASTE-RND)▌ ;6-RND LPRINT TAN 5##LN [D]#LN ##LN  LET ##S#Y[.] PRINT LN R#LN AT #5##LN [I]#YYLN ## LET LN ##YM5KRNDLN [F]#5###[D]#Y[4]/**YE5ORNDLN [F]#Y65MRND#[F]# RETURN<>C> RETURN=C=3K▘ FOR *[B] GOSUB #R SAVE *SQR /▒ GOSUB #R""/▖ GOSUB #RCOS ZTAN LN R##IYLN [I]#5[A]#LN [D]#E~~RND7LN <# FOR LN :# FOR YABS LN [F]#LN ## RETURN THENTAB AT #TAN 5 RUN ##[D]#LN  SCROLL▝5VRNDACS [Q]TAN 5▞##[D]#5VRNDACS  PLOT #▛▝#7#,,7U£RND[1]""U$RND[0]TAN LN ## RETURNZTAB AT #LN ##[J]TAN LN ##5 GOSUB #LN [I]#50RNDLN [I]#5D,,#[I]#LN E#YSTR$ LN ##5:#LN [D]#5 FOR SGN #[I]##[▒]RND#["]RND#[:]RND#[)]RND#[=]RND#[*]RND#[,]RND#[1]RND#[4]RND FOR #[7]RND#[A]RND#[D]RND#[G]RND#[J]RND[J]
   2 REM ##/#D GT[F]#OM3 3 [W]#- ##  #   ZXGTLN  UNPLOT ( N N ▖ G=  82( ( ?  REM  [E]   #▝[M][C] RETURN▘[E][R]** COPY▛     #    COPY COPY C  YR  HT  98: ( £ PSS# ME LPRINT # FAST5▒ SGN Y=LN [A]#ABS ▖##P#5>  FAST5▖ SGN ##LN  PRINT ▒/$C-SNORTH 1983)<#▘$ LN ##LN  GOTO #LN ##A # FAST LPRINT 6TAN #ETAN # FAST5  SGN Y=LN [A]#ABS ###G#ETAN # FAST51 SGN Y<LN [A]#ABS ###G#ETAN # FAST54 SGN Y>LN [A]#ABS ###G#ETAN # FAST50  FAST LPRINT SGN [B] FOR  GOSUB #6[H]#5>  FAST5▘ SGN ##LN  PRINT ▒/2                              )[(]#▘2 LN ##LN  GOTO #5£RND##A  FAST5 ▘ FAST5$RND##A SGN LN ## FAST LPRINT SGN ;6[+]#EORND6MRND5COS   FAST LPRINT 6SGN #5#  FAST LPRINT 6VAL #5   FAST LPRINT 6[1]#5£  FAST LPRINT 6 DIM #5 POKE ▘ FASTLN ## FAST58 SGN LN ## FAST LPRINT  FAST LPRINT SGN ;6[,,]#5   FAST LPRINT 6[X]#5   FAST LPRINT 6 OR #5[E]  FAST LPRINT 6LN #5   FAST LPRINT 6<>#5   FAST LPRINT 6[L]#5?  FAST LPRINT 6[T]##[4]#5▘  FAST5? SGN 7 GOSUB #[P]#6[R]#E[+]# FAST55  FASTE[P]#SGN LN ## FAST LPRINT SGN ;6[$]#5▝  FAST52 SGN 7 GOSUB #[)]#6[<]#E[$]# FASTE[)]# FAST LPRINT SGN ; FASTE[$]# FASTE[)]# FAST5▘ ## LPRINT SGN ; FAST## FAST LPRINT SGN ;##A SGN  FOR #E[)]#76[)]# GOSUB #[<]#[B] GOSUB # IF ##E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF ##TAN E[+]# FASTE FAST# FAST55 SGN LN ## FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ;6[;]#E[;]###A  FAST LPRINT 6 OR #E[;]# FAST5▘  FAST LPRINT SGN ;##A  FAST LPRINT 6<>#E[;]# FAST5▙ SGN  FOR #E[;]# FAST5▘  FAST LPRINT SGN ; FAST5▄ SGN  FOR #TAN E[;]# FASTE OR #SGN  FOR #E[;]# FAST5▘  FAST LPRINT SGN ; FASTE<>#SGN  FOR #TAN E[X]# FAST5# SGN Y>LN [A]#ABS ###>#5?  FASTLN ## FAST5#A FASTE[H]# FAST54▀SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6STR$ #5▘  FAST5? SGN 7 GOSUB #[P]#6[R]#E[+]# FASTE[P]# FAST55 SGN LN ## FAST52 ## LPRINT SGN ; FAST## FAST LPRINT SGN ;6TAN #LN ## FAST5G▘ FASTE[H]# FAST5COS  SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS  NEXT #ETAN # FAST5>  FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN  FOR #LN ## FASTE[H]# FAST54▀SGN LN ## FAST LPRINT SGN Y<LN [A]#ABS *#ETAN # FAST5▒ SGN  FOR #LN ## FAST5COS   FASTE[H]# FAST5G▘SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS INKEY$ #ETAN # FAST5[+] SGN  FOR #E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF [*]#E[X]# FAST5~~ SGN LN ## FAST5~~ SGN LN ## FAST LPRINT  FASTE[X]#SGN Y=LN [A]#ABS [4]#ESTR$ # FAST5▝ SGN LN ## FAST5▝  FAST LPRINT SGN ; FAST51 SGN ##LN  PRINT ▒/▘*)[<]#▘▘ LN ##LN  GOTO #ESTR$ # FAST51 SGN ##LN  PRINT ▒5▟  FASTLN ## FAST5 SAVE ESGN LN ## FAST LPRINT SGN ;#LN ##LN  GOTO #ESTR$ # FAST5▘  FAST LPRINT SGN ;6STR$ #ESTR$ # FAST5? SGN Y>LN [A]#ABS  CONT ##[/]#ESTR$ # FAST51 SGN ##LN  PRINT ▒5[▒]  FASTLN ## FAST5 SAVE ESGN LN ## FAST LPRINT SGN ;#LN ##LN  GOTO ##SIN #E[X]# FAST5▄ SGN Y>LN [A]#ABS 9##[,]#5▘  FAST5? SGN 7 GOSUB #[P]#6[R]#E[+]# FASTE[P]# FAST55 SGN LN ## FAST52 ## LPRINT SGN ; FAST## FAST LPRINT SGN ;6TAN #LN ## FAST5SQR ▛ FASTE[H]# FAST5 CONT ▀SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS [)]#ETAN # FAST5>  FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN  FOR #E[P]# FAST5▒ SGN Y<LN [A]#ABS [F]#ETAN # FAST5  SGN  FOR #E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF P#E[X]# FAST5~~ SGN LN ## FAST5~~ SGN LN ## FAST LPRINT  FASTE[X]#SGN Y<><>[A]#ABS  LPRINT ##[,]#5▙  FASTE[X]# FAST LPRINT SGN [B] FOR  GOSUB # FAST5~~ SGN LN ## FAST LPRINT  FAST LPRINT 6STR$ #5:  FASTESTR$ # FAST LPRINT SGN [B] FOR  GOSUB # FAST51 SGN ##LN  PRINT ▒/▘.)/#▘▘ LN ##LN  GOTO #5"  FASTESTR$ # FAST LPRINT SGN [B] FOR  GOSUB # FAST51 SGN ##LN  PRINT ▒/▘*)Z#▘▘ LN ##LN  GOTO #5?  FASTESTR$ # FAST LPRINT SGN [B] FOR  GOSUB # FAST51 SGN ##LN  PRINT ▒/▘▚)##▘▘ LN ##LN  GOTO #ESTR$ # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6STR$ #ESTR$ # FAST5  SGN Y<LN [A]#ABS [*]##[/]####5?  FAST51 SGN ##LN  PRINT ▒/▘▌)[D]#▘▘ LN ##LN  GOTO ##[/]#E FAST# FAST5  SGN Y>LN [A]#ABS  REM #E FAST# FAST5$ SGN ##LN  PRINT ▒/▞      )**#▘▞ LN ##LN  GOTO #5▌  FAST5▝ SGN ##LN  PRINT ▒/1~~,,,,[▒],,,,~~,,,,▒,,,,,,[▒],,~~~~,,,,~~,,~~,,,,▒,,,,~~,,) RAND #▘1 LN ##LN  GOTO #5▞  FAST5▝ SGN ##LN  PRINT ▒/, ,,  ~~  ,,     ..       ,,  ~~)L#▘, LN ##LN  GOTO #ELN # FAST5~~ SGN Y<LN [A]#ABS [2]#5▛  FAST5▝ SGN ##LN  PRINT ▒/0~~~~   ▒  ,,~~  .  .  ,,  ,, ~~   ,,)##▘0 LN ##LN  GOTO #ELN # FAST5,, SGN Y<LN [A]#ABS  LLIST #5▒  FAST5▝ SGN ##LN  PRINT ▒/;  ,,   ▒  ,, ▗    ▖   ,,   ~~)[X]#▘; LN ##LN  GOTO #ELN # FAST5▒ SGN Y<LN [A]#ABS D#5,,  FAST5▝ SGN ##LN  PRINT ▒/0  [▒]  ,,    ▖      ▗   ~~  ,,  ~~)▘#▘0 LN ##LN  GOTO #ELN # FAST5▛ SGN Y<LN [A]#ABS ##5~~  FAST5▝ SGN ##LN  PRINT ▒/, ,,   [▒]  ▗          ▖    [▒]▒)##▘, LN ##LN  GOTO #ELN # FAST5▞ SGN Y<LN [A]#ABS [B]#5"  FAST5,, SGN ##LN  PRINT ▒/:▖            ▗)[$]#▘: LN ##LN  GOTO #ELN # FAST5▌ SGN Y<LN [A]#ABS  SLOW#5£  FAST5▛ SGN ##LN  PRINT ▒/>[~~]                [~~])LEN #▘> LN ##LN  GOTO #ELN # FAST5▖ SGN Y<LN [A]#ABS 9#5$  FAST5▌ SGN ##LN  PRINT ▒/-[~~]                    [~~])▀#▘- LN ##LN  GOTO #ELN # FAST5▀ SGN Y<LN [A]#ABS ##5:  FAST5▀ SGN ##LN  PRINT ▒/,[~~]                        [~~])##▘, LN ##LN  GOTO #ELN # FAST5▝ SGN Y<LN [A]#ABS [P]#5?  FAST5  SGN ##LN  PRINT ▒/4[,,]                              [,,])[,,]#▘4 LN ##LN  GOTO #E FAST# FAST5▘ SGN Y<LN [A]#ABS  CONT #5▌  FAST5$ SGN ##LN  PRINT ▒/▒[T][O][O]█[H][I][G][H])USR #▘▒ LN ##LN  GOTO #ELN # FAST5,, SGN Y>LN [A]#ABS +#5▛  FAST5? SGN ##LN  PRINT ▒/▝..)▛#▘▝ LN ##LN  GOTO #ELN # FAST5▒ SGN Y>LN [A]#ABS PI#5▒  FAST5? SGN ##LN  PRINT ▒/▝▖▗)O#▘▝ LN ##LN  GOTO #ELN # FAST5▛ SGN Y>LN [A]#ABS ##5,,  FAST5: SGN ##LN  PRINT ▒/▖▗▖▗▖)##▘▖ LN ##LN  GOTO #ELN # FAST5▞ SGN Y>LN [A]#ABS [4]#5~~  FAST5: SGN ##LN  PRINT ▒/▖▄  ▄)[(]#▘▖ LN ##LN  GOTO #ELN # FAST5▌ SGN Y>LN [A]#ABS SGN #5"  FAST5$ SGN ##LN  PRINT ▒/▞▄▖  ▗▄)[Z]#▘▞ LN ##LN  GOTO #ELN # FAST5▖ SGN Y>LN [A]#ABS ▖#5£  FAST5£ SGN ##LN  PRINT ▒/▒▄▄    ▄▄) LIST #▘▒ LN ##LN  GOTO #ELN # FAST5▀ SGN Y>LN [A]#ABS T#5$  FAST5" SGN ##LN  PRINT ▒/~~▗▄▖    ▗▄▖)7#▘~~ LN ##LN  GOTO #ELN # FAST5▝ SGN Y>LN [A]#ABS ##5:  FAST5~~ SGN ##LN  PRINT ▒/£▗▄▄      ▄▄▖)##▘£ LN ##LN  GOTO #5?  FASTE[,,]# FAST5C SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6 FAST#5▘  FAST5M SGN 7 GOSUB #[D]#6[F]#E FAST# FAST5  SGN Y>LN [A]#ABS ASN #E FAST# FAST5$ SGN ##LN  PRINT ▒/▞▘▘▖▗▝▝)[S]#▘▞ LN ##LN  GOTO #E FAST# FAST5  SGN Y>LN [A]#ABS  CLS#E FAST# FAST5$ SGN ##LN  PRINT ▒/▞▀~~▞▚~~▀) DIM #▘▞ LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF [;]#ELN # FAST5  SGN Y<=LN [A]#ABS 3####E[,,]# FAST5  SGN Y<=LN [A]#ABS M#######E[X]# FAST5W SGN Y>LN [A]#ABS #####5?  FASTLN ## FAST5**: FAST5G▘ FASTE[H]#SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6STR$ #E[T]# FASTESTR$ #SGN Y=LN [A]#ABS ▗####5▘  FAST LPRINT 6[$]#E[T]# FASTESTR$ #SGN Y>LN [A]#ABS [E]#5▘ LN ## FAST LPRINT 6[$]#E[X]# FAST5M SGN Y>LN [A]#ABS TAB #5▘  FAST LPRINT 6[$]#LN ## FAST5█YSGN Y<LN [A]#ABS  STEP #E[T]# FASTE[$]# FAST LPRINT SGN ;6[T]#E[T]# FAST5? SGN Y>LN [A]#ABS  SAVE #5?  FAST LPRINT 6[T]#5▘  FAST5? SGN 7 GOSUB #[P]#6[R]#E[+]# FASTE[P]# FAST55 SGN LN ## FAST52 ## LPRINT SGN ; FAST## FAST LPRINT SGN ;6TAN #LN ## FAST5SQR ▛ FASTE[H]# FAST5 POKE ▘SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS ##ETAN # FAST5▒ SGN  FOR #LN ## FAST5 CONT ▀ FASTE[H]# FAST54▀SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS [:]#ETAN # FAST5>  FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN  FOR #LN ## FAST5COS   FASTE[H]# FAST5[-] SGN LN ## FAST LPRINT SGN ;SGN Y<LN [A]#ABS [S]#ETAN # FAST5[+] SGN  FOR #E[P]# FASTE[T]#SGN Y>LN [A]#ABS  SLOW#E[P]# FAST51 SGN ##LN  PRINT ▒/▘[▒])NOT #▘▘ LN ##LN  GOTO #E[P]#76[P]# GOSUB #[R]#[B] GOSUB # IF ▒#E[X]# FAST5~~ SGN LN ## FAST5~~ SGN LN ## FAST LPRINT  FASTE[X]#SGN Y=LN [A]#ABS X#E[T]# FAST5▝ SGN LN ## FAST LPRINT  FAST51 SGN ##LN  PRINT ▒/▘*)K#▘▘ LN ##LN  GOTO #E[$]# FAST5▘ SGN Y=LN [A]#ABS ##E[T]# FAST51 SGN ##LN  PRINT ▒/▘▚)##▘▘ LN ##LN  GOTO #E[$]# FAST5▘ LN ##SGN Y=LN [A]#ABS [/]#E[T]# FAST51 SGN ##LN  PRINT ▒/▘▞)["]#▘▘ LN ##LN  GOTO #ELN # FAST5" SGN Y=LN [A]#ABS [F]#LN ▞#ELN # FAST5" SGN Y=LN [A]#ABS [Y]####LN F#LN ##LN ATN #E<># FAST5  SGN Y=LN [A]#ABS  AND ####E<># FAST5* SGN Y=LN [A]#ABS  GOSUB ####E<># FAST5< SGN Y=LN [A]#ABS  ## NEXT #E<># FAST5▒ SGN Y=LN [A]#ABS <## FAST#E<># FAST5> SGN Y=LN [A]#ABS A## LLIST #E<># FAST5# SGN Y>LN [A]#ABS T##SQR #E<># FAST5▞ SGN Y=LN [A]#ABS ###SQR #E OR # FAST5* SGN Y=LN [A]#ABS #####E OR # FAST5# SGN Y>LN [A]#ABS ###SQR #EVAL # FAST5▘  FAST LPRINT SGN ;6VAL #LN ##A # FAST LPRINT 6[L]#E[L]# FAST57 SGN Y=LN [A]#ABS [D]#ESGN # FAST5~~  FAST LPRINT SGN ;6SGN #E[L]# FAST56 SGN Y=LN [A]#ABS ASN #ESGN # FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #6SGN #E[L]# FAST5F SGN Y=LN [A]#ABS  CONT #E[1]# FAST5~~  FAST LPRINT SGN ;6[1]#E[1]# FAST5# SGN Y>LN [A]#ABS  #5#  FAST LPRINT 6[1]#E[L]# FAST5D SGN Y=LN [A]#ABS 5#E[1]# FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #6[1]#E[1]# FAST5  SGN Y<LN [A]#ABS T#5   FAST LPRINT 6[1]#E[X]# FAST5▘  FAST LPRINT SGN ;6[X]#5[E]  FASTE[X]# FAST LPRINT SGN [B] FOR  GOSUB #6LN #ESGN # FAST5COS   FASTE[1]### LPRINT SGN [B] FOR  GOSUB # FAST## FAST LPRINT SGN ; FAST5▝ SGN LN ## FAST LPRINT 6TAN #ETAN # FAST5  SGN Y=LN [A]#ABS [>]##[S]#5 COPY# FASTETAN #SGN LN ## FAST LPRINT 6[9]#E[,,]# FASTLN ## FASTE[9]#SGN LN ## FAST LPRINT SGN ;6[,,]#5>  FAST5▘ SGN ##LN  PRINT ▒E[,,]#LN ##/▘ )LN #▘▘ LN ##LN  GOTO #5>  FAST5▛ SGN ##LN  PRINT ▒ESGN #LN ##/▘ ) LOAD #▘▘ LN ##LN  GOTO #5>  FAST5$ SGN ##LN  PRINT ▒ELN #LN ##/▘ ))#▘▘ LN ##LN  GOTO #5>  FAST5< SGN ##LN  PRINT ▒E[1]#LN ##LN  GOTO #5>  FAST5/ SGN ##LN  PRINT ▒EVAL #LN ##/▘ )##▘▘ LN ##LN  GOTO #ELN # FAST5" SGN Y<LN [A]#ABS ###[T]#5▘  FAST5 STEP I FAST5CODE ,, FASTE[H]#SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #SGN 7 GOSUB #[D]#6[F]#E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF [£]#LN F#E[,,]# FAST5  SGN Y<=LN [A]#ABS [N]##SQR #5?  FASTE[,,]# FAST5# SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6 FAST#E FAST# FAST5▘ SGN Y<LN [A]#ABS  TO #LN ▛#LN ATN ##P#EVAL # FAST5▌  FAST LPRINT SGN [B] FOR  GOSUB #6VAL #EVAL # FAST5  SGN Y<LN [A]#ABS :#5   FAST LPRINT 6VAL #5▘  FAST5▞ SGN 7 GOSUB #[D]#6[F]#E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘▚)H#▘▘ LN ##LN  GOTO #E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘▞)##▘▘ LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF 2#LN F#5COS   FASTE[H]# FAST5# SGN LN ## FAST LPRINT SGN ;6AT #E[,,]# FASTEAT # FASTLN #### LPRINT SGN [B] FOR  GOSUB # FAST## FAST5 COPY# FASTEAT # FAST5▝ SGN LN ## FAST LPRINT SGN LN ## FAST LPRINT SGN LN ## FAST LPRINT SGN ;6[,,]#E[,,]# FAST5#▌SGN Y>LN [A]#ABS ATN #LN ▛#E[,,]# FAST5  SGN Y<=LN [A]#ABS  TO ##SQR ##[4]#ESGN # FAST5~~  FAST LPRINT SGN ;6SGN ####ESGN # FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #6SGN ####5#▌ FAST LPRINT 6[,,]#ESGN # FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #6SGN #EVAL # FAST5~~  FAST LPRINT SGN [B] FOR  GOSUB #6VAL #EVAL # FAST5  SGN Y<LN [A]#ABS ##5   FAST LPRINT 6VAL #TAN EVAL # FAST5=  FAST LPRINT SGN ;6VAL #5▘  FAST5~~ SGN 7 GOSUB #[D]#6[F]#E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘*)##▘▘ LN ##LN  GOTO #E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘[*])[<]#▘▘ LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF ##E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘▄)""#▘▘ LN ##LN  GOTO ####EVAL # FAST5#  FAST LPRINT SGN [B] FOR  GOSUB #6VAL #EVAL # FAST5  SGN Y<LN [A]#ABS  RAND #5   FAST LPRINT 6VAL #5▘  FAST5▒ SGN 7 GOSUB #[D]#6[F]#E FAST# FASTE DIM # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒/▀▚[*][<])7#▘▀ LN ##LN  GOTO #E FAST# FASTE DIM # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒/▖~~[,,],,[~~])##▘▖ LN ##LN  GOTO #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF ,,#E FAST# FAST5? SGN 7 GOSUB # FAST#6 SCROLL#5▘  FAST5▞ SGN 7 GOSUB #TAN #6ACS #E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘▞)[0]#▘▘ LN ##LN  GOTO #E FAST# FASTE DIM #SGN ##LN  PRINT ▒/▘V)[S]#▘▘ LN ##LN  GOTO #ETAN #76TAN # GOSUB #ACS #[B] GOSUB # IF [$]#E FAST#76 FAST# GOSUB # SCROLL#[B] GOSUB # IF ##5?  FASTE DIM #SGN ##LN  PRINT ▒/▘X) PLOT #▘▘ LN ##LN  GOTO ####5▘  FAST5? SGN 7 GOSUB #[9]#6[B]#E[9]# FAST5▘ SGN ##LN  PRINT ▒/2                              )9#▘2 LN ##LN  GOTO #E[9]#76[9]# GOSUB #[B]#[B] GOSUB # IF -#TAN TAN 
   3 REM   TAN -ZXGT COMPILER -         ZXGT=17389 PROG=18823
   4 REM        [M][C][O][D][E][R]               COPYRIGHT 1982     PSS
   5 REM [S][L][3]█[V][1][.][2] (C)SNORTH 83           DIST. BY  SYNCWARE CO.##)3 ▘[:] E£RNDFY(77#;#XC▝/ PLOT 7Y47#XC▝/ RAND :#,,:[:]Y47#XCOS / IF Y47#XCOS / IF 
   6 REM 
   7 CLS
   8 SLOW
 100 LET N0=NOT PI
 110 LET N1=NOT N0
 205 FOR N=N1 TO 21
 208 PRINT "STORM LANDER 3  COPR.1983 SNORTH"
 210 NEXT N
 220 PRINT AT 10,4;"█[P][R][E][S][S]█[D]█[F][O][R]█[D][E][M][O]██";AT 12,4;"█[P][R][E][S][S]█[G]█[F][O][R]█[G][A][M][E]██"
 230 SLOW
 250 LET G$=INKEY$ 
 255 IF G$<>"G" AND G$<>"D" THEN GOTO 250
 302 CLS
 303 PRINT AT N0,N0;"[:][:][S][:][T][:][O][:][R][:][M][:][:][:][L][:][A][:][N][:][D][:][E][:][R][:][:][3][:][:][:][:]"
 310 LET L=USR 24335
 320 PRINT AT 17,N0;"[:][:][A][L][T][:][:][:][S][P][D][:][:][:][D][S][T][:][:][:][F][L][A][P][:][P][O][I][N][T][S][:][:]   VERSION 1.2    SYNCWARE CO [:][:][:][F][T][:][:][:][:][M][P][H][:][:][:][M][L][S][:][:][:][P][C][N][T][:][:][:][:][:][:][:][:]"
 330 FOR L=N1 TO 20
 340 NEXT L
 355 PRINT AT 7,2;"█[S][E][L][E][C][T]█";TAB 2;"█[L][E][V][E][L]██";TAB 2;"█[(][1][-][4][)]██"
 365 LET M=PEEK 16396+256*PEEK 16397
 366 IF G$="G" THEN GOTO 790
 367 LET B=INT (M/256)
 369 LET C=M-(256*B)
 370 POKE 18837,C
 372 POKE 18838,B
 374 POKE 18861,N1
 380 POKE 18914,N0
 382 POKE 18898,N0
 385 POKE 18845,10
 392 POKE 18918,N0
 394 POKE 18865,N0
 401 POKE 18913,8
 404 POKE 18917,4
 405 POKE 18905,N0
 406 POKE 18921,15
 408 POKE 18909,N0
 530 POKE 18826,N1
 533 POKE 18897,160
 534 POKE 18825,150
 538 POKE 18877,158
 540 POKE 18893,12
 545 SLOW
 550 LET E=USR 18823
 555 GOTO 795
 790 POKE 18913,N0
 792 SLOW
 794 LET E=USR 18823
 795 LET P=PEEK 18885+256*PEEK 18886
 796 LET A=PEEK 18825+256*PEEK 18826
 797 IF A>2000 THEN LET A=-N1
 798 IF A>-N1 AND PEEK (M+508)<>61 THEN GOTO 803
 799 GOTO 973
 803 GOSUB 1100
 804 PRINT AT 19,14;"[F][E][E][T]";
 806 LET S=PEEK 18897+256*PEEK 18898
 807 LET J=PEEK 18861
 808 LET F=PEEK 18845
 809 LET D=6000
 812 LET X=15-INT (A/40)
 813 IF A<=N0 THEN LET X=16
 814 IF X<10 THEN GOTO 950
 815 PRINT AT X,12;"▘▘▘▖▗▝▝▝"
 817 IF A<N0 THEN LET A=N0
 818 PRINT AT X,12;"▀~~▀▞▚▀~~▀"
 820 IF A>N0 THEN GOTO 850
 822 LET O=200-(S+F)
 825 IF O>60 THEN GOTO 900
 828 IF O<30 THEN GOTO 1000
 829 FOR I=N0 TO INT (O/10)
 830 PAUSE 2
 831 NEXT I
 832 LET A=O
 833 LET F=F+10
 850 PRINT AT 18,N1;A;"  ";TAB 8;S;"  ";TAB 14;D;" ";TAB 20;F;" ";TAB 25;P;" "
 854 PRINT AT X,12;"[*][R][U][N][W][A][Y][*]"
 855 LET K=CODE INKEY$ 
 856 LET D=D-(300+100*J)
 857 LET S=S+(10 AND K=35)-(10 AND K=34)
 858 PRINT AT X,12;"▘▘▘▖▗▝▝▝"
 859 LET F=F+(10 AND K=43)-(10 AND K=41)
 860 LET Q=(S+F-200)
 861 LET A=A+(Q-INT (Q/2)+INT (RND*Q))
 862 IF A<N0 THEN LET A=N0
 863 IF D<2100 THEN GOTO 950
 864 PRINT AT X,12;"▀~~▀▞▚▀~~▀"
 865 FOR I=6 TO 12-INT (D/1000)
 867 FOR C=15-(I-6) TO 16+(I-6)
 868 PRINT AT I,C;CHR$ 21
 869 NEXT C
 870 NEXT I
 872 PRINT AT X,12;"        "
 875 GOTO 812
 900 PRINT AT 16,12;"▜▞▚▐▛/▞▗"
 902 PRINT AT 15,2;"▐▐▐[C][R][A][S][H]▐▐▐[I][N][T][O]▐▐▐[R][U][N][W][A][Y]▐▐"
 905 GOTO 960
 950 PRINT AT 4,2;"[O][V][E][R][S][H][O][T]█[R][U][N][W][A][Y]"
 955 LET P=P+100
 960 LET N$="▄▞..[F][I][N][A][L]█[S][C][O][R][E]="+STR$ P+"         "
 961 PRINT AT 18,8;"0 ";TAB 25;"     "
 963 FOR I=30 TO 6 STEP -N1
 964 PRINT AT 2,I;N$(N1 TO 30-I)
 965 NEXT I
 966 LET N$="▄▞.. "
 967 FOR I=I TO N0 STEP -N1
 968 PRINT AT 2,10;"FINAL SCORE";AT 2,I;N$;TAB 10;"[F][I][N][A][L]█[S][C][O][R][E]"
 969 NEXT I
 970 PRINT AT 2,N0;"▞.. "
 972 IF PEEK 18913=8 THEN GOTO 300
 973 PRINT AT 2,N0;"[:]  ";AT 3,4;"HIT ANY KEY TO FLY AGAIN"
 975 IF INKEY$ ="" THEN GOTO 975
 977 CLS
 980 RUN 
 1000 FOR L=6 TO 15
 1005 PRINT AT L,N1;"                              "
 1010 NEXT L
 1011 LET P=P+500
 1012 PRINT AT 6,N0;"[:] ▟▄,,,,▙▄▄,,▟ ▄▝::::   ▘  ▟[▒]▙ ▗  [:]"
 1014 PRINT "[:]▐[=][=][T][W][A][=][=][▒][=]▟[~~]▄▟[U][N][I][T][E][D]▙ ▗[=][~~][=]▖.▟ [:]"
 1016 PRINT "[:]▟[~~][~~][,,][,,][~~][~~][,,][,,][▒][=]▟[=]▟▟▟▟▟▟▟[~~].[=][D][=][I][=]▐[~~]▌[:]"
 1018 PRINT "[:]::::::▄,,▄:::[~~][,,][~~][~~][,,][,,][~~][~~][~~]::::..▟[=]▙[:]"
 1020 PRINT "[:].▗▗▄▌▝▗,,,,.▗..▖▗▗▗::::▗.  .:▗▗▗[:]"
 1022 PRINT "//.............................."
 1024 PRINT "/.,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,./"
 1026 PRINT "..............................//"
 1028 PRINT "▙  ▗▐ ▗▗▗ ▄▐▐ ▖▖▗▗ ▟▟▐  ▗▗▗▗▗▟ ▙";AT 16,12;"[:][:][:][:][:][:][:][:]";AT 18,1;"0 "
 1030 LET Y=3+INT ((6000-D)/230)
 1035 PRINT AT 12,Y-N1;"▚▄"
 1040 LET S=S-(5+(5-J))
 1042 IF S<=N0 THEN GOTO 1200
 1045 LET Y=Y+N1
 1048 LET D=D-230
 1050 PRINT AT 18,8;S;" ";TAB 14;D;" "
 1055 PRINT AT 12,Y-2;",,▚▄"
 1058 IF Y<31 THEN GOTO 1040
 1060 PRINT AT 12,Y-2;"▞▗▜"
 1065 LET P=P+200
 1070 GOTO 960
 1100 PRINT AT 16,N0;"[:]"
 1102 FOR L=10 TO 16
 1105 PRINT AT L,12;"        "
 1110 NEXT L
 1115 RETURN
 1200 LET P=P+1000+(31-Y)*100
 1205 GOTO 960
 2100 SAVE "SL[3]"
 2110 RUN 
 
   0 REM ▘E▝D▝C▝B▝A▀E▖E▌D▌C▌B▌A▞E▛E▒D▒C▒B▒A~~E~~D~~C~~B~~A"D£E$E:D$A=B<A>9)9(8?8:7$7£7"7~~7,,6▒6▛5▛4▛3▒2,,1~~0"0£0$0:0?.(.),);)/(*?-:-$-£+"+~~+,,=▒=▛<▞><*=/+;-,*;*/--+=++-*/,;,,;,/,*;-;+,=.=0+1-3*3;3/2-2+3=4=5=6+6-6*7/7;6,5,4,8;9;A,B,B;C;D;D/D*C-C+D=E=F+G-G*H;I.I1J3K5K7L9LAL8K6J4J2I0H,H/I*I-J+K=L=M+N-O*P/Q;Q.R0S1S2T3T4T5U6U7U8U9TAS9S8S7S6R5R4R3Q2Q1Q0Q,P*P-O+O=R;S,T,U;U/T*T-T+U=V=W=X+Y-B3C4D4E5F5G5H6I6J6K6L6M6N7O7P8  M▘0▛8▛F▌W▛A▖K▛P▌F▛P▛6▝3▖7▌M▌X▀N▛5▛I▖C▌C▛H▛3▞2▛E▛U▛T▛I▞Y▌K▀E▖A▛5▖7▛R▛Y▛M▀1▞C▀M▛U▌0▌9▌Q▖J▛B▛2▖O▀F▘S▛G▌9▝O▖T▀5▌1▖K▝3▝T▌O▛9▀6▀2▞W▌S▖I▀I▛9▛S▌I▘X▛M▖7▀0▞Q▝W▖1▝Q▌C▖L▛P▀L▘2▀V▛C▘9▖E▝Q▛E▘S▀3▛0▘I▌X▌1▛5▀U▖1▌E▀D▛3▀W▀G▛B▀O▌W▘O▝2▘Q▀S▘0▖Q▘U▝2▘M▞J▘2▝9▘E▌W▝V▘0▝6▛I▝3▘S▝M▝7▖Y▘O▘1▘C▝K▘X▘G▘6▘; 4#▘ 5>PIY▗M8##7#766#Y█LN [M]"U8#XCOS E6#/ SCROLL YSIN 5▙RND6B#ME#LN A#TAN Y▗5>PI/ LOAD  E£RND▞;# RETURN#C▌Q█7/ PLOT ( CLSTAN  ▘ ()▄ E£RND[J] GOSUB #)5 #█ PRINT # RETURN$K▘# LET XC▀7/ PAUSE Y)[(]##LEN ( RETURN1K▌ RETURN▌S▘#X[U]C▛STR$ - ;SGN / GOTO #█ PRINT # RETURN:K▘# LET XC▀F/ PAUSE Y)[(]##LEN ( RETURN2K▌ RETURN▞S▘#X[U]C" PRINT [J]STR$ -  GOSUB #SGN  LET / CONT )6 ;([1]▘  LN  PRINT ▒TAN  E£RND▞;# RETURN#C▞LEN █#7/ PRINT ( CLSTAN ▘  ) RND.#[N]COS  <= RETURN▛K PLOT ▀.#[N]COS  <= RETURN▛S PLOT / DIM 
   2 REM LOADER BY F.NACHBAUR
  10 SAVE     "SNORT[H]"
  15 CLS
  20 SLOW
 100 RAND USR VAL "17221"
 105 PRINT AT VAL "13",VAL "20";"PRESENTS..."
 110 POKE VAL "17386",VAL "15"
 120 RAND USR VAL "17382"
 125 POKE VAL "17386",VAL "25"
 130 PRINT AT VAL "14",NOT PI;"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▒[G][A][M][E][S]▒▒▒GAMES▒▒▒[G][A][M][E][S]▒▒▒GAMES▒▒▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
 150 FOR A=NOT NOT PI TO LEN A$
 160 PRINT AT O7,A+O7;A$(A);
 170 NEXT A
 200 RAND USR VAL "17236"
 210 PRINT AT O7,NOT PI;"(C) 1983,1985";TAB NOT PI;"█[S][T][E][V][E]█[N][O][R][T][H]█";TAB NOT PI;"[1][9][1][3][3]██[O][X][N][A][R][D]";TAB NOT PI;"█[T][A][R][Z][A][N][A][,]█[C][A][.]";TAB NOT PI;"█[9][1][3][5][6]█[U][.][S][.][A][.]"
 220 POKE VAL "16418",NOT PI
 230 PRINT 
 240 PRINT AT T3,N3;"PRESS ANY KEY TO CONTINUE."
 250 IF INKEY$ <>"" THEN GOTO CO
 260 PRINT AT T3,N3;"[P][R][E][S][S]█[A][N][Y]█[K][E][Y]█[T][O]█[C][O][N][T][I][N][U][E][.]"
 270 IF INKEY$ <>"" THEN GOTO CO
 275 GOTO 240
 390 FOR A=NOT PI TO PI
 400 POKE VAL "17264",VAL "11"-PI*A
 410 RAND USR VAL "17263"
 440 NEXT A
 450 POKE VAL "17264",NOT PI
 460 RAND USR VAL "17263"
 470 PRINT "▛▀▀▀▀▀▀ HERE""S THE GAMES ▀▀▀▀▀▀▜▌1. [N][F][L][X]█[F][O][O][T][B][A][L][L] -- A FASTAND▐▌   CHALLENGING GAME FOR ONE OR▐▌   TWO PLAYERS. RUN, PASS, AND▐▌   CHOOSE DEFENSE.";TAB T1;"▐▌   DIFFICULTY INDEX = 8";TAB T1;"▐"
 475 PRINT "▌";TAB T1;"▐▌2. [S][T][O][R][M]█[L][A][N][D][E][R]█[3] -- YOU  WILL▐▌   ENJOY THE GRAPHICS - IF YOU▐▌   EVER MAKE IT THROUGH.  LAND▐▌   YOUR BOEING IN THE  ZANIEST▐▌   STORM SINCE ""AIRPLANE.""    ▐▌   DIFFICULTY = 9 TO 9+";TAB T1;"▐"
 480 PRINT "▌";TAB T1;"▐▌3. [M][I][N][E][R][S]█[R][E][V][E][N][G][E] -- A  PUZZLE▐▌   WHICH WILL  CHALLENGE  BOTH▐▌   LUCK AND LOGIC. BE CAREFUL.▐▌   DIFFICULTY = 7";TAB T1;"▐"
 485 PRINT "▌";TAB T1;"▐▌4. [S][U][P][E][R][-][S][L][I][D][E] -- YOUR  CHANCE▐▌   TO BRING HOME THE GOLD. GET▐▌   THE STARS, AVOID ALL ELSE. ▐▌   DIFFICULTY = 5";TAB T1;"▐"
 490 PRINT AT T3,NOT PI;"▙▄▄[P][R][E][S][S]█[1][-][4]█[F][O][R]█[D][E][S][I][R][E][D]█[G][A][M][E]▄▄▟"
 491 LET I$=INKEY$ 
 492 IF I$<>"" THEN GOTO 500
 493 PRINT AT T3,NOT PI;"▙▄▄PRESS 1-4 FOR DESIRED GAME▄▄▟"
 494 LET I$=INKEY$ 
 495 IF I$<>"" THEN GOTO 500
 496 GOTO 490
 500 RAND USR 17382
 501 RAND USR 17382
 502 IF I$<"1" OR I$>"4" THEN GOTO VAL "490"
 540 IF I$="1" THEN LOAD     "NFLX"
 550 IF I$="2" THEN LOAD     "SL3"
 560 IF I$="3" THEN LOAD     "MR"
 570 IF I$="4" THEN LOAD     "SS"
   0 REM [Z][X][G][T]>##[O]RND#7INKEY$ ##INKEY$ ##INKEY$ #▐INKEY$ #[*]INKEY$ #[F]INKEY$ #5PI#[0]PI# THENPI#T########[S]#INT [£] FASTSTR$ [J]LN 5PIACS #C▒Y-LN 5PILN .INKEY$ )(BLN ▛INKEY$ K,) CONT ▀LN ▛INKEY$ K+)# LN ▛INKEY$ K<2~~LN ▛INKEY$ K># UNPLOT RNDLN $INKEY$ ) CONT ▀LN $INKEY$ )# LN $INKEY$ 2~~LN $INKEY$ 2▘LN $INKEY$ [J]SGN  LPRINT #5PI FAST[B] GOSUB # LPRINT TAN Y0[B] GOSUB #S▀W/ RAND ;#5PI#J##J#7TAN E£RND)5  FAST▘  ,,7 FAST; FOR 5CHR$ ▝ GOSUB PI STOPAT  FOR  GOSUB [K] LPRINT ▘[Q]▝,,6:RNDY5MTRNDY▀MURNDTAN LN [V]▝# RETURN RETURN4:LN [V]▝84 IF LN [V]▝# RETURN COPYC SAVE ▘# CLEAR[J] FAST GOSUB PI LPRINT ASN [M]RND▘ LOAD  UNPLOT [J] FAST GOSUB PI LPRINT C<>#8COS #LN [X]▛# RETURN TAN ACS  UNPLOT 6ORNDEORND# NEW#[P]COS LN #INKEY$ C NEXT ▞(## FOR 5  ACS T3K▘; FOR D FOR ( PRINT TAN YF[(] AND >=PI#Y▘ACS CK▝Y▖ACS DK▝ACS ▛ PRINT LN  FOR INKEY$ #ACS ▛ RETURN(K▛ACS ?K▝ INPUT [?]#)[2]£UKRND[<] IF  LPRINT INKEY$  LET J[4]/▝ LET [K] RETURN▒S▝ INPUT [?]/QY*[(] AND >=PI# NEW3#VAL VAL VAL [J]ACS (ACS (ACS (##DDAT ##,,AT #,, GOSUB #£RND,,76:RNDAT Y/[(]MURNDY5[)]MTRNDTAN STR$  FASTVAL  PRINT UURND RETURN▝CU LET  RETURN#CE RETURNRNDK#E:RND#76:RNDUTRNDXMTRND# RETURN#4#UURNDXMURND76:RNDY5MTRND/SE:RND# RETURN#C NEW7/ SAVE E£RND▘ SAVE ▝,,Q[?]LN #INKEY$ C CLS RETURNCC+ RETURNZC. RETURND4▒5(BF#[O]4 CLSLN 7INKEY$ /▀LN E~~ LET /[,]AT  LPRINT SGN TAN LN #▒/PEEK #[L]COS ,LN 5PI<"/ PRINT  RETURN#S,, RETURN""ACS [R] AND PPI NEWZ5)▘#▖ RETURN5K▖[J]LN 5PIACS #7C CLS( RAND #ACS #4▞LN 5PI7/ PRINT  NEWZLN 5PI[J]#HPIINT [~~]#[M]C IF LN D#VAL #[M]▛S LET #PI)  STR$  FOR 7D FOR D#[+]#[0] FOR K PLOT  FOR  FOR [J]#3##3#[O]C/ FOR [J]ACS 0ACS 1#[+]#[0] IF  RETURNPI#[+]##[0]# STOP; STOP/<> LPRINT AT ACS #TAB .INKEY$ TAN ##*>=.INKEY$  FOR #[C]#ACS #TAB .INKEY$ TAN  GOSUB #MRND#I CLEAR#[R]▞  GOSUB #[/] GOSUB #[/]## GOSUB #K▘76MRNDACS [W]TAN ▀▀▀VAL ▀▀▀▀5█#LN [7],,7Y##7Q▝7AT #7#7Q REM 7#7#7TAN 5   FAST FASTLN #INKEY$  RETURN-4,, LPRINT SGN  PRINT  FASTLN 5PI/ LIST  RETURN# LPRINT C3D FASTDDSGN ;#LN 5PI#CHR$ 0S▒#▞ ,, RETURN~~SPEEK  LET Y NEWLN 5PI/SIN  LET ATN .INKEY$ TAN VAL  FASTE#RND PRINT # FAST76#RNDLN #INKEY$  RETURND4>Y#LN 5PI LPRINT LN [O]RND LET A #LN [O]RND/▝ LPRINT  LET  LPRINT AT [J]TAN TAN TAN Y?NOT LN ##/>5  LN >#LN  RUN #▀LN ## FASTLN ▞# LPRINT LN >#LN ##LN 4#LN $#INT #YTAN ###6#RND GOSUB #0RND<5#RNDLN ,,#E#RNDQ/7Q#76#RND)# ;6#RND5#RNDLN USR #77 FAST76-RNDLN ## RETURN PAUSE ATN ACS # RETURN RAND ATN [-]# RETURN IF ATN COS # RETURN THENC REM  RETURN DIM ATN 1# RETURN GOTO ATN F# RETURN GOSUB ATN RND# RETURN FOR ATN SIN # RETURN NEXT ATN  POKE # RETURN SLOWATN  # RETURN POKE ATN [Q]# RETURN FASTATN  LET # RETURN INPUT ATN ## RETURN PLOT ATN ## RETURN UNPLOT ATN [>]# RETURN LET ATN ▀# RETURN CLSATN [3]# RETURN STOPASN [-]# RETURN PRINT ATN ## RETURN REM C+ RETURN SCROLLATN [8]# RETURN RETURNATN $# RETURN 4:LN ## RETURN#4▛ LPRINT LN :#TAB Q#Y[S]LN ##LN ##INT [.]LN ##5###[D]# FAST#7#STR$  FOR  FAST67RND6~~RNDLN  GOTO #LN ## LPRINT LN <#.. FOR SGN LN ,,# GOSUB ##RNDLN ,,# FAST GOSUB ##RND[B] GOSUB # LPRINT S▀6#RND LPRINT TAN #7#7TAN #7#7TAN  FASTAT E0RND7LN :# FOR [B] GOSUB PISQR E#RND GOSUB #** FOR 7/ GOSUB Y# PRINT LN ##LN E#LN <# FOR LN :# FOR  LET #[F]#YLN / DIM  FAST SCROLL RETURN#C,, RETURN#C▌ PRINT LN ## LET  LPRINT TAN LN ## RETURN#C# RETURN"C< RETURNAT C# RETURNCHR$ C#LN ##5##LN [D]#/#Y/LN ##E#RND FASTLN ##▘ COPY COPYE-RND7▀# PRINT LN ## LET  RETURN"C▌LN ##/ LOAD 6-RND LPRINT VAL #7Y)LN [F]#Y▘ LPRINT LN [F]#5##LN [D]#/>LN R#LN AT #5##LN [I]#5 PRINT ▒LN [D]#LN ## RETURN,C[£] RETURN;C[▒]5 GOTO #LN [D]#E-RNDF6-RND[J]TAN LN ##Y#LN ##5##LN [D]#/CHR$ Y#### RETURNRNDABS AT #CHR$ A** GOSUB ##RNDA #,,TAN LN ##LN  LET # RETURN#4~~LN E#Y FASTLN ##A COPY FASTLN ## RETURN=TAB AT #LN X#LN PEEK # LPRINT # RETURN COPY4£5SGN  FOR LN [I]#5,,##[D]#Y6#[F]#[J] PRINT LN ##Y FASTLN ##LN ## RETURN)C# RETURN#C# PRINT LN ## LET  RETURN+C▖ RETURN-47AT ## RETURN 4▖ PRINT  FAST/** FAST5##LN [I]#LN ##Y FAST5##LN [F]#/CODE  PRINT VAL /0 RETURN/C( RETURN*TAB AT #LN LEN #5##LN [D]#/[G]LN LEN #5##/ NEXT Y LPRINT LN ## LET  RETURN COS  RETURN+C)LN LEN #5[B] FOR LN [I]#5 GOSUB #LN [I]#/ SCROLLLN LEN #Y;LN ##/<>YSGN ### RETURNPEEK 4?LN ##5##LN [I]#5A #[I]# RETURNUSR 4>LN ##5 FOR ##[D]#▘ LET #VAL  FASTTAN ##TAN  RETURNCODE TAB ?#LN ## RETURNINKEY$ TAB AT #5##LN [D]#YA5 ##[F]# RETURNRNDTAB ,#5###[D]# RETURNABS 4)LN ##5ACS #LN [I]#YCODE 5###[F]# RETURNINT TAB AT ####LN ##LN ## PRINT Y FASTLN ##LN ##YSGN LN ## LET TAN LN ## RETURN- PRINT ATN ## RETURN(C- RETURNRNDK$ RETURNAUSR ▙#>=[?]# LET ATN ##TAN LN ACS #/ PLOT LN X#/ LET 5##/J#J##J#7TAN LN  LET # RETURN#ASN Z#YE#[F]#LN E#Y5/+LN $# LPRINT  GOSUB ##RNDTAN 5E~~/▌5##/ YLN LN ###LN ######LN R#LN AT #5 FOR #/ GOSUB  RETURN,TAB AT #TAN LN ##LN  LET # FAST FASTLN ##LN R#Y7LN ##5 GOSUB #LN [I]# LPRINT LN [I]#Y677LN [F]# LPRINT  GOSUB ##RNDLN ,,#TAN LN ##LN  LET # FAST FASTYELN [F]#576LN [I]# LPRINT LN [I]#77Y GOSUB LN ##Y#LN [F]#Y[B]5 GOSUB #LN [F]#Y IF  LPRINT LN :# FOR LN [F]#TAN 5  /?LN ## RETURN#C, PRINT )~~ LN ## LET  RETURNAABS AT # RETURN0 AND AT #CHR$ 0▞ #,,/ TO  FASTE-RND)▌ ;6-RND LPRINT TAN 5##LN [D]#LN ##LN  LET ##S#Y[.] PRINT LN R#LN AT #5##LN [I]#YYLN ## LET LN ##YM5KRNDLN [F]#5###[D]#Y[4]/**YE5ORNDLN [F]#Y65MRND#[F]# RETURN<>C> RETURN=C=3K▘ FOR *[B] GOSUB #R SAVE *SQR /▒ GOSUB #R""/▖ GOSUB #RCOS ZTAN LN R##IYLN [I]#5[A]#LN [D]#E~~RND7LN <# FOR LN :# FOR YABS LN [F]#LN ## RETURN THENTAB AT #TAN 5 RUN ##[D]#LN  SCROLL▝5VRNDACS [Q]TAN 5▞##[D]#5VRNDACS  PLOT #▛▝#7#,,7U£RND[1]""U$RND[0]TAN LN ## RETURNZTAB AT #LN ##[J]TAN LN ##5 GOSUB #LN [I]#50RNDLN [I]#5D,,#[I]#LN E#YSTR$ LN ##5:#LN [D]#5 FOR SGN #[I]##[▒]RND#["]RND#[:]RND#[)]RND#[=]RND#[*]RND#[,]RND#[1]RND#[4]RND FOR #[7]RND#[A]RND#[D]RND#[G]RND#[J]RND[J]
   2 REM ##/#▘#GT COM  LE▘ - ▞       ZXGT+ + 3 3 ROG=  82~~  ▖   REM  ▘   < [M][C]# [E][R]£   )   ▘   ▒  C  YR  HT  98▀   ? PSS# 25~~  FAST5▝ SGN ##LN  PRINT ▒/$C-SNORTH 1983) #▘$ LN ##LN  GOTO #5£  FAST5▝ SGN ##LN  PRINT ▒/;[H][I][T]█[A][N][Y]█[K][E][Y]█[T][O]█[S][T][A][R][T]█[R][A][C][E])C#▘; LN ##LN  GOTO #LN ##A # FAST5  SGN Y=LN [A]#ABS #####EORND6MRND5   FAST LPRINT 6[T]#5   FAST LPRINT 6SGN #5£RND##A  FAST5 ▘ FAST5$RND##A SGN LN ## FAST LPRINT SGN ;6[,,]#5#  FAST LPRINT 6VAL #5   FAST LPRINT 6[+]#5   FAST LPRINT 6[X]#5   FAST LPRINT 6[1]#5£  FAST LPRINT 6[P]#5?  FAST LPRINT 6 DIM #5▀  FAST LPRINT 6 FAST#5<  FAST LPRINT 6LN ##[B]#5▘  FAST5£ SGN ##LN  PRINT ▒/▒▛[~~][*][S][S][*][~~]▜) DIM #▘▒ LN ##LN  GOTO #5▝  FAST5£ SGN ##LN  PRINT ▒/▒▌  ▙▟  ▐)£#▘▒ LN ##LN  GOTO #5▀  FAST5£ SGN ##LN  PRINT ▒/▒[~~]  ▚▞  [~~])J#▘▒ LN ##LN  GOTO #TAN E[X]# FAST5 POKE ▘SGN Y>LN [A]#ABS ###[K]#ESTR$ # FAST5? SGN Y<LN [A]#ABS ###▄#5▘  FASTLN ## FAST5CODE ,,SGN LN ## FAST LPRINT SGN ;6STR$ ##[;]#5=  FASTLN ## FAST5[S]"SGN LN ## FAST LPRINT SGN ;6STR$ #5"  FASTLN ## FAST5[▒]<SGN LN ## FAST LPRINT SGN ;6TAN #TAN E[X]# FAST5 CONT ▀SGN Y>LN [A]#ABS #####5=  FAST5▘ SGN ##LN  PRINT ▒/2[~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,][~~][,,])ABS #▘2 LN ##LN  GOTO #5=  FAST5▖  FASTLN ## FAST5▒▛SGN LN ## FAST LPRINT SGN ;SGN ##LN  PRINT ▒/▌  *  ).#▘▌ LN ##LN  GOTO #5?  FASTLN ## FAST5RND▘SGN LN ## FAST LPRINT SGN ;6TAN #TAN 5:  FASTLN ## FAST5TAB ▘SGN LN ## FAST LPRINT SGN ;6TAN #5▌  FASTLN ## FAST5[4]?SGN LN ## FAST LPRINT SGN ;6[;]#5▘  FAST LPRINT 6[T]#5,,  FASTLN ## FAST5[/]▒SGN LN ## FAST LPRINT SGN ;6AT #TAN E[X]# FAST5 POKE ▘SGN Y>LN [A]#ABS [5]##[L]#ESTR$ # FASTE[P]#SGN Y<LN [A]#ABS [O]##ACS #ESTR$ # FASTELN #SGN Y>LN [A]#ABS SIN ## INPUT #LN ## FAST5█YSGN Y>LN [A]#ABS  FAST#ELN # FAST5▘  FAST LPRINT SGN ;6LN #ELN # FAST51 SGN Y>LN [A]#ABS  CLEAR#51  FAST LPRINT 6LN #LN ## FAST5█YSGN Y>LN [A]#ABS 2#E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#E[P]# FAST5▝ SGN Y<LN [A]#ABS Q#5▝  FAST LPRINT 6[P]#LN ## FAST5##SGN Y>LN [A]#ABS ##E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#ELN # FASTE[P]# FAST LPRINT SGN [B] FOR  GOSUB # FAST5▖ SGN Y<LN [A]#ABS █#E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#LN ## FAST5##SGN Y>LN [A]#ABS [5]#ELN # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6LN #ELN # FASTE[P]# FAST LPRINT SGN [B] FOR  GOSUB # FAST5▖ SGN Y<LN [A]#ABS ASN #ELN # FAST5▘  FAST LPRINT SGN ;6LN #TAN E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6[P]#ELN # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6LN #TAN ELN # FAST5▘  FAST LPRINT SGN ;6LN #E[P]# FAST5▘  FAST LPRINT SGN ;6[P]#TAN 5▝  FASTE[P]#SGN 7 GOSUB #[D]#6[F]#E[,,]# FAST5[=]▝ FASTE[D]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▒  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF .#E[,,]# FAST5[+]▝ FASTE[P]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▙ SGN  FOR #E[,,]# FAST5[+]▝ FASTELN ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▟ SGN  FOR #E[X]# FAST5 POKE ▘SGN Y>LN [A]#ABS [D]#LN ""#LN ## FAST5SQR ▛SGN Y<LN [A]#ABS  SAVE #E[,,]# FAST5[+]▝ FASTE[P]### LPRINT SGN ; FAST## FASTELN # FASTE[P]# FAST LPRINT SGN [B] FOR  GOSUB # FAST5▝ SGN LN ## FAST LPRINT ## LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5* SGN  FOR #ELN # FAST5▘  FAST LPRINT SGN ; FAST52 SGN 7 GOSUB #[D]#6[F]#E[,,]# FAST5[+]▝ FASTE[D]### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▒  FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;SGN  FOR #E[D]#76[D]# GOSUB #[F]#[B] GOSUB # IF (#TAN E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5  SGN  FOR #TAN E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▙ SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▟ SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▚ SGN  FOR #E[,,]# FAST5#  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5▞ SGN  FOR #TAN E[,,]# FAST5▐  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ;##A  FAST LPRINT 6 OR #E[,,]# FAST5▚  FASTE DIM ### LPRINT SGN ; FAST## FAST LPRINT SGN ;##A  FAST LPRINT 6<>#E OR # FAST5  SGN Y=LN [A]#ABS [+]##[2]#E OR # FAST LPRINT 6[)]#TAN E<># FAST LPRINT 6[)]#TAN 5▖  FAST5= SGN 7 GOSUB #[9]#6[B]#LN "#LN ##LN  AND #E[9]#76[9]# GOSUB #[B]#[B] GOSUB # IF [R]#E[1]# FAST5▘ SGN Y=LN [A]#ABS  SLOW#LN [(]#LN ##LN [:]#LN PI#LN ##LN ##LN [W]#LN TAN #LN "#LN ##LN ##A # FAST LPRINT 6[L]#E[L]# FAST58 SGN Y=LN [A]#ABS C#E DIM # FAST5▘  FAST LPRINT SGN ;6 DIM #E[L]# FAST55 SGN Y=LN [A]#ABS ##E DIM # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #6 DIM #LN ##LN TAN #E[+]# FAST5▘  FAST LPRINT SGN ;6[+]#E[X]# FAST5▘  FAST LPRINT SGN ;6[X]#ESGN # FAST5▘  FAST LPRINT SGN ;6SGN #E[+]# FASTETAN #SGN Y<LN [A]#ABS [£]## SCROLL#5   FAST LPRINT 6[+]#ESGN # FAST5>=▌SGN Y<LN [A]#ABS [B]##SGN #LN [(]#ESGN # FAST5CODE ,,SGN Y>LN [A]#ABS [X]#####SGN #LN ## FAST5[(]#SGN Y>LN [A]#ABS  PLOT #E[,,]# FAST5[0]▝ FASTLN #### LPRINT SGN ; FAST## FAST5#▛SGN LN ## FAST LPRINT SGN ; FAST5▒ SGN  FOR #E[X]# FAST5 CONT ▀SGN Y<LN [A]#ABS ▛#TAN E[T]# FAST5  SGN Y=LN [A]#ABS /#TAN E[T]# FAST5▖ SGN Y>=LN [A]#ABS F####E[,,]# FAST5[>]▝ FASTEAT ### LPRINT SGN ; FAST## FASTLN #### LPRINT SGN ; FAST## FAST58<SGN LN ## FAST LPRINT SGN ; FAST5▄ SGN  FOR #E[T]# FAST5▘  FAST LPRINT SGN ;6[T]#TAN E[,,]# FAST5[+]▝ FASTEAT ### LPRINT SGN ; FAST## FAST LPRINT SGN ; FAST5* SGN  FOR #E[T]# FAST5▘  FAST LPRINT SGN ;6[T]#E[T]# FASTE[;]#SGN Y=LN [A]#ABS [K]#5   FAST LPRINT 6[T]#TAN E[P]# FAST5▞ SGN Y>LN [A]#ABS TAN #5▞  FAST LPRINT 6[P]#E[P]# FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB # FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;6[P]#E[P]# FAST5▘ SGN Y<LN [A]#ABS ▝#5▘  FAST LPRINT 6[P]#ELN # FAST5; SGN Y<LN [A]#ABS ,#5;  FAST LPRINT 6LN #ELN # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB # FASTLN ## FAST5 STEP ISGN LN ## FAST LPRINT SGN ;6LN #ELN # FAST52 SGN Y>LN [A]#ABS ##52  FAST LPRINT 6LN #TAN 5▘  FAST5> SGN 7 GOSUB #[9]#6[B]#5=  FAST5  SGN ##LN  PRINT ▒/4[X][X][X][X][X][X][X][X][X][X][X][X][X][F][I][N][I][S][H][X][X][X][X][X][X][X][X][X][X][X][X][X])##▘4 LN ##LN  GOTO #LN ##LN ##LN TAN #E[9]#76[9]# GOSUB #[B]#[B] GOSUB # IF ### PAUSE #E[)]# FAST5  SGN Y=LN [A]#ABS LN #TAN E[)]# FAST5* SGN Y=LN [A]#ABS  STEP ####EVAL # FASTESGN # FAST5COS  SGN LN ## FAST LPRINT SGN [B] FOR  GOSUB #6VAL #EVAL # FAST5  SGN Y<LN [A]#ABS )#5   FAST LPRINT 6VAL #E[)]# FAST5" SGN Y<LN [A]#ABS 8##[C]#E[)]# FAST5▙ SGN Y>LN [A]#ABS R##LN #E[)]# FAST5▙ SGN Y=LN [A]#ABS ##E FAST# FAST5▘  FAST LPRINT SGN ; FASTE DIM #SGN ##LN  PRINT ▒/▘[,,])##▘▘ LN ##LN  GOTO #E[)]# FAST5▟ SGN Y=LN [A]#ABS [B]#E FAST# FAST5▘  FAST LPRINT SGN ; FASTE DIM # FAST5▘  FAST LPRINT SGN ;SGN ##LN  PRINT ▒/▘[~~])[,]#▘▘ LN ##LN  GOTO #TAN E DIM # FAST5▖  FAST LPRINT SGN [B] FOR  GOSUB # FASTLN ## FAST5[4]?SGN LN ## FAST LPRINT SGN ;6 DIM #LN ##TAN E FAST# FAST5▘  FAST LPRINT SGN ; FASTE DIM # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒/▖/**/) LOAD #▘▖ LN ##LN  GOTO #E FAST# FAST5▘  FAST LPRINT SGN ; FASTE DIM # FAST5▘  FAST LPRINT SGN [B] FOR  GOSUB #SGN ##LN  PRINT ▒/▖▘▚▗▐)5#▘▖ LN ##LN  GOTO #5▖  FASTLN ## FAST5SQR ▛SGN LN ## FAST LPRINT SGN ;6 DIM #TAN EVAL # FASTESGN # FAST5= SGN LN ## FAST LPRINT SGN ;6VAL #TAN E DIM # FAST52 SGN Y>LN [A]#ABS ##52  FAST LPRINT 6 DIM #E DIM # FAST5▘ SGN Y<LN [A]#ABS [?]#5▘  FAST LPRINT 6 DIM #TAN 5▘  FAST LPRINT 6[1]#5#  FAST LPRINT 6[X]#LN ## FAST5(BSGN Y<LN [A]#ABS [S]#5#▝ FAST LPRINT 6[X]#LN ## FAST5(BSGN Y<LN [A]#ABS SQR #5#▖ FAST LPRINT 6[X]#E[X]# FAST5 POKE ▘SGN Y>LN [A]#ABS  LPRINT #TAN 5£  FAST LPRINT 6[P]#5>  FAST LPRINT 6LN #TAN E LPRINT # FAST5▒ SGN Y=LN [A]#ABS ▌####5~~  FAST5▖ SGN ##LN  PRINT ▒/~~YOUR SCORE)=#▘~~ LN ##EVAL #LN ##LN  GOTO #TAN 
   3 REM   TAN -ZXGT COMPILER -         ZXGT=17389 PROG=18823
   4 REM        [M][C][O][D][E][R]               COPYRIGHT 1982     PSS
   5 REM [S][Y][N][C][W][A][R][E]█[C][O][.]E£RND▞*# RETURN#4▖▌COS /▀LEN █#7/ LET 5  T GOSUB #0RND GOSUB PI##TAN 
  38 SLOW
  40 LET M=0
  45 FOR N=1 TO 20
  50 PRINT "█[S][U][P][E][R]█[S][L][I][D][E]██[C][O][P][R][.]█[1][9][8][3]█[S][N][O][R][T][H]█"
  52 NEXT N
  55 PRINT AT 7,7;" PRESS D FOR DEMO "
  60 PRINT AT 9,7;" PRESS G FOR GAME "
  63 LET G$="G"
  65 IF INKEY$ ="" THEN GOTO 65
  70 IF INKEY$ ="D" THEN LET G$="D"
  72 POKE 18914,0
  75 IF G$="D" THEN GOTO 90
  80 POKE 18913,0
  85 GOTO 100
  90 POKE 18913,8
  93 CLS
  95 LET N=USR 18823
 100 CLS
 102 PRINT AT 8,2;"YOU HAVE MADE IT TO THE"
 105 PRINT "  U.S. OLYMPIC TRIALS..."
 108 PRINT "  IN THE 1-MAN BOBSLED EVENT"
 112 PRINT ,,TAB 8;"[C][O][N][G][R][A][T][U][L][A][T][I][O][N][S]"
 114 PRINT ,,"  ENTER YOUR",,"  1ST NAME PLEASE ..."
 115 INPUT N$
 125 PRINT ,,"  THANK YOU, GOOD LUCK."
 130 GOSUB 1200
 135 CLS
 300 LET N=USR 18823
 302 GOSUB 1200
 305 CLS
 500 LET P=PEEK 18885+256*PEEK 18886
 505 PRINT AT 0,0;N$;","
 510 IF P>=2000 THEN GOTO 520
 512 PRINT "SORRY, YOUR ";P;" PTS IS ";2000-P
 515 PRINT "SHORT OF QUALIFYING..."
 516 PRINT ,,,,"FOR ANOTHER TRY "
 517 LET M=1
 518 GOTO 530
 520 PRINT "[N][I][C][E]█[W][O][R][K] YOU MADE IT"
 521 PRINT "YOUR SCORE; ";P
 522 LET M=2
 525 PRINT ,,,,"FOR YOUR 1ST OF 2 OLYMPIC HEATS"
 530 PRINT ,,"[H][I][T]█[A][N][Y]█[K][E][Y]"
 535 IF INKEY$ ="" THEN GOTO 535
 536 CLS
 538 IF M=1 THEN GOTO 300
 540 LET N=USR 18823
 541 GOSUB 1200
 542 CLS
 545 LET S1=PEEK 18885+256*PEEK 18886
 550 PRINT AT 0,0;N$;","
 552 LET F=5000+INT (RND*4000)
 555 IF S1>=F THEN GOTO 580
 560 LET PL=2+INT ((F-S1)/100)
 565 PRINT "YOU FINISHED IN POSITION ";PL
 568 PRINT ,,"LEADER SCORED ";F;" PTS."
 569 PRINT "YOUR SCORE; ";S1;"PTS."
 570 GOTO 590
 580 PRINT "YOU FINISHED 1ST. KEEP IT UP."
 582 PRINT ,,"YOUR SCORE; ";S1;"PTS."
 583 PRINT "YOU ARE ";S1-F;" PTS"
 585 PRINT "AHEAD OF 2ND PLACE"
 590 PRINT ,,"[H][I][T]█[A][N][Y]█[K][E][Y]█[F][O][R]█[2][N][D]█[H][E][A][T]"
 595 IF INKEY$ ="" THEN GOTO 595
 596 CLS
 598 LET N=USR 18823
 600 GOSUB 1200
 601 CLS
 602 LET F1=6000+INT (RND*3000)
 603 LET S2=PEEK 18885+256*PEEK 18886
 604 LET ST=S1+S2
 606 LET PL=2+INT (((F+F1)-(ST))/200)
 608 IF ST>F1+F THEN LET PL=1
 610 IF PL<4 THEN GOSUB 1290
 612 POKE 22198,23
 613 LET N=USR 22194
 615 PRINT AT 1,0;"[*][*][*][F][I][N][A][L][*][*][F][I][N][A][L][*][*][F][I][N][A][L][*][*][F][I][N][A][L][*][*][*]"
 618 IF PL=1 THEN GOTO 625
 622 PRINT AT 3,0;"█[W][I][N][N][E][R][S]█[S][C][O][R][E]"
 623 PRINT AT 17,1;"YOU FINISHED NUMBER "; PL
 624 GOTO 630
 625 PRINT AT 3,0;"█[2][N][D]█[P][L][A][C][E]█[S][C][O][R][E]"
 629 PRINT AT 17,0;"█C O N G R A T U L A T I O N S"
 630 PRINT AT 4,1;"1ST HEAT; ";F
 631 PRINT "█2ND HEAT; ";F1
 633 PRINT AT 7,0;"█TOTAL---";F+F1
 635 PRINT AT 9,1;"[Y][O][U][R]█[S][C][O][R][E]"
 636 PRINT "█1ST HEAT; ";S1
 638 PRINT "█2ND HEAT; ";S2
 640 PRINT AT 13,1;"TOTAL---";S1+S2
 642 IF N$<>"" THEN PRINT AT 15,15-INT (LEN N$/2);N$;","
 650 PRINT AT 21,2;"[H][I][T]█[A][N][Y]█[K][E][Y]█[T][O]█[S][T][A][R][T]█[A][G][A][I][N]"
 655 IF INKEY$ ="" THEN GOTO 655
 657 CLS
 660 RUN 
 1200 FOR N=1 TO 20
 1210 NEXT N
 1220 RETURN
 1290 LET S$="[*][*][*][*][*][*][*][*][*][*][*][*][*][*]"
 1292 IF PL=1 THEN LET M$="$GOLD$"
 1293 IF PL=2 THEN LET M$="SILVER"
 1294 IF PL=3 THEN LET M$="BRONZE"
 1295 FOR C=1 TO 2
 1297 IF C=2 THEN LET S$="              "
 1300 FOR D=1 TO 24
 1310 POKE 22198,D
 1320 LET N=USR 22194
 1330 IF D=19 THEN PRINT AT D,8;"[*][*][*][*]";M$;"[*][*][*][*]"
 1340 IF D=18 OR D=20 THEN PRINT AT D,8;"[=][=][=][=][=][=][=][=][=][=][=][=][=][=]"
 1345 IF D>15 THEN PRINT AT D-16,0;S$
 1350 NEXT D
 1360 NEXT C
 1370 IF PL=1 THEN PRINT AT 4,22;" ▄ ";TAB 22;"[▒]▀[▒]";TAB 21;"▐▌[*]▐▌";TAB 22;"[▒]▄[▒]";TAB 22;"▗▀▖";TAB 22;"▞ ▚";AT 11,19;"[1][S][T]█[P][L][A][C][E]"
 1380 RETURN
 2100 SAVE "S[S]"
 2105 RUN

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.

Tags

Archived Media Downloadable TS 1000 Game

People

Scroll to Top