--- title: "SNorth Games" id: 51393 type: "computer_media" slug: "snorth-games" url: "http://localhost/computer_media/snorth-games/" markdown_url: "http://localhost/computer_media/snorth-games.md" published_at: "2023-07-30T07:18:50+00:00" modified_at: "2026-04-04T20:18:09+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2021/02/snorth-miners-revenge.png" excerpt: "NFLX Football, Miner's Revenge, Super Slide, and Storm Lander 3." category: - name: "Archived Media" slug: "archived-media" taxonomy: "category" url: "http://localhost/category/archived-media/" post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Steve North" slug: "steve-north" taxonomy: "indiv" url: "http://localhost/indiv/steve-north/" genre: - name: "Game" slug: "game" taxonomy: "genre" url: "http://localhost/type/game/" media_type: "Cassette" programmers: - name: "Steve North" slug: "steve-north" taxonomy: "indiv" url: "http://localhost/indiv/steve-north/" download_url: "https://archive.org/download/timex-sinclair-software-archive/SNorth%20Games%20%281983%29%28North%2C%20Steve%29%28US%29%28TS1000%29%28Program%29.zip" mediadate: "1983" producer_company: - id: 11370 title: "SyncWare Co." type: "company" url: "http://localhost/company/syncware-co/" - id: 10702 title: "Brook Forest Productions" type: "company" url: "http://localhost/company/brook-forest-productions/" images: - url: "http://localhost/wp-content/uploads/2021/02/snorth-miners-revenge.png" - url: "http://localhost/wp-content/uploads/2019/11/snorth-nflx.png" - url: "http://localhost/wp-content/uploads/2021/02/snorth-storm-lander.png" - url: "http://localhost/wp-content/uploads/2021/02/snorth-super-slide.png" related_products: - id: 13318 title: "Miner’s Revenge" type: "product" url: "http://localhost/product/miners-revenge/" - id: 13436 title: "NFLX Football" type: "product" url: "http://localhost/product/nflx-football-2/" - id: 14102 title: "Storm Lander 3" type: "product" url: "http://localhost/product/storm-lander/" - id: 14138 title: "Super Slide" type: "product" url: "http://localhost/product/super-slide-2/" media_type_tags: "Game" --- # SNorth Games Written in a subset of Sinclair BASIC, then compiled, by a professional comedian named [Steve North](http://localhost/indiv/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.” ## 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[▒]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 YLN [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 YLN [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 YLN [A]#ABS NEW#52 FAST LPRINT 6[;]#E[P]# FASTELN # FAST LPRINT SGN [B] FOR GOSUB #6LN #ELN # FAST5▘ SGN YLN [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 FAST LPRINT SGN FOR LN ,,#LN ## FAST5C7SGN YLN [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 YLN [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 YLN [A]#ABS #####EVAL # FAST52 FAST LPRINT SGN ; GOSUB #0RNDD,,STR$ LN :# FOR SGN FAST5[(]▘SGN Y=####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 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 YLN [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 YLN [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 YLN [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 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 YLN [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#ACS #CODE ## FAST LPRINT SGN [B] FOR GOSUB #6 OR #E OR # FAST5 SGN Y#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 YLN [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 YLN [A]#ABS IF ##;#LN ## FAST54#SGN YLN [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 YN0) 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 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 MN32) 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 YLN [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 FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN FOR #LN ## FASTE[H]# FAST54▀SGN LN ## FAST LPRINT SGN YLN [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 FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN FOR #E[P]# FAST5▒ 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 YLN [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[~~] [~~])LEN #▘> LN ##LN GOTO #ELN # FAST5▖ SGN YLN [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 YLN [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 FASTLN ## FAST5#PISGN LN ## FAST LPRINT SGN ;SGN FOR #LN ## FAST5COS FASTE[H]# FAST5[-] SGN LN ## FAST LPRINT SGN ;SGN YLN [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]##[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 YLN [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"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 AN0 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 A9)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 YLN [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 YLN [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 YLN [A]#ABS ##E[P]# FAST5▘ FAST LPRINT SGN ;6[P]#ELN # FASTE[P]# FAST LPRINT SGN [B] FOR GOSUB # FAST5▖ SGN YLN [A]#ABS [5]#ELN # FAST5▘ FAST LPRINT SGN [B] FOR GOSUB #6LN #ELN # FASTE[P]# FAST LPRINT SGN [B] FOR GOSUB # FAST5▖ SGN YLN [A]#ABS [D]#LN ""#LN ## FAST5SQR ▛SGN Y#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=▌SGN YLN [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 F####E[,,]# FAST5[>]▝ FASTEAT ### LPRINT SGN ; FAST## FASTLN #### LPRINT SGN ; FAST## FAST58LN [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 YLN [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 YLN [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 YLN [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 ```