Turbo the Tortoise: T_TORT++.B

  10 REM 1ATN k!@@ COPY u} GO SUB VAL  OPEN # RETURN !@[M] STEP ▙] STEP @[M] CLEAR !:/ RETURN © GO SUB x THEN _( RETURN  OUT  GO SUB x THEN g  INPUT CODE 2]!LN ks STEP ▙] STEP LN kCODE 2 LPRINT  LINE 2 DATA  CLOSE #NOT @ LIST CODE 2] GO SUB [ POKE /<>0000
  20 BORDER NOT PI: PAPER NOT PI: INK NOT PI: CLEAR VAL "27575": RANDOMIZE USR VAL "23872"
  30 REM  compressed by FA_STAS A25000SCREEN$ _TORT++" LINE 1015616 LINE  NEXT ^ NEXT ^ NEXT  STEP [C];; LLIST 1 RESTORE  INK  MOVE  INK !@ INK x RETURN   RETURN [K] OGy INK w#xLEN   DATA  CLS <>[K]<=S^SSSPS^SP[K] INPUT S^SSSPS^SP[K] DEF FN ©s~~>©s©©>~©>©>©[K]SSPSVSsP[K] DEF FN ©s~~>©s©©>~©>©>©[K]SSPSVSsP[K] DEF FN [K]sspssspp[K]>s©>s>©>©[K] DEF FN [K]sspssspp[K]>s©>s>©>©[K] DEF FN ss~s©~sss>~[K] INPUT ss~s©~sss>~[K][K]▛©s©©s[K]©s©p©s©>>ss8[K] CONTINUE {p{[K]sppsppg8s CONTINUE ©~©[K]s~ps~>©[K] CONTINUE _P_[K]SPPSP((_[K] CONTINUE WPW[K].PP.Ps[K](PW[K] CONTINUE ©sp©s©©©©©©> LPRINT s8[K][K][K]▚S/SP^S_SP[K]_P_[K] DATA S/SP^S_SP[K]_P_[K]BIN |©>ss©~>©>s~s©>s>©©>>©>>[K]VsV.PVsSWSPSWSSsSs[K]BIN |©>ss©~>©>s~s©>s>©©>>©>>[K]VsV.PVsSWSPSWSSsSs[K]BIN vpvspsps{ssps{sspsp[K]|©>s©s>©>s~p[K]s©>>s>[K]BIN vpvspsps{ssps{sspsp[K]|©>s©s>©>s~p[K]s©>>s>[K]BIN s>|s~s>s©~>~s©sp>s>[K] DATA s>|s~s>s©~>~s©sp>s>[K]"[K][K]D[K][K][K]d[K]@V.PVsSWSPSWSSsSs[K]|©>s©s>©>s~p[K]s©>>s>[K]|©>s©s>©>s~p[K]s©>>s>[K]B[K][K]D[K][K][K]d[K]@![M] COPY 9 GO SUB [e/ MERGE  MERGE ATN  GO SUB R0 CAT  MOVE ! LN kB GO SUB VAL <>!lLN k DATA [D] GO SUB VAL !NOT  INVERSE  COPY  COPY  RESTORE ATN kATN  GO SUB B LLIST >=~ RETURN e( GO SUB FN  INPUT +F THEN x( THEN LN xPI( RETURN >0>e+~ DRAW + CAT !!l GO SUB K RETURN k NEXT +++~+~+ePEEK ( GO SUB FN  REM  CAT k"+PEEK (# LIST  PRINT  OR +~+F+ DRAW STR$ exLEN ( LET  MERGE  LET <>@ LIST [R]lINKEY$e0▖@T%eB [S]@A"@$ @  e [A]e? COPY USR USR USR USR  NEXT  NEXT  COPY e GO TO  DRAW  LOAD  DRAW STR$  COPY CHR$  COPY  CLOSE #<? COPY  COPY ▚e TO  COPY ? COPY  COPY  COPY  NEXT wUSR ▘USR STR$ SIN USR qVAL PEEK  CAT NOT  COPY  DRAW  CAT  COPY  CAT  COPY  COPY SGN  COPY s?VAL ;USR ?NOT ;USR  COPY IN  COPY W COPY  DRAW <? COPY e TO USR  NEXT  NEXT  COPY  COPY  DRAW  LOAD  DRAW STR$  LOAD CHR$  COPY  CLOSE # DRAW ? COPY e3 NEXT USR  TO  COPY ?COS  NEXT STR$ SIN USR qVAL PEEK  CAT  CAT  COPY  DRAW  COPY e0 COPY 3 CAT  COPY  CAT VAL  COPY USR ?NOT ;USR  COPY IN  CLS W COPY  DRAW ? DRAW  LOAD VAL  CLEAR p LOAD / DRAW  GO TO * DRAW q RETURN USR  COPY  INPUT USR  DRAW STR$  GO TO SIN  DRAW q GO TO PEEK  DRAW T DRAW ,L▛VAL Up// BRIGHT AT *pqVAL$ USR G▘USR STR$ SIN USR qVAL PEEK /TAT ,L?▛SQR U©/;?AT ;p©VAL$  COPY G?▘ COPY  RUN IN USR wVAL IN /wAT ?NOT NOT 4,F`▗e@0H▗[U]H0▜e C=>=  RETURN C CLOSE # GO TO @ STR$ USR  LIST @ DRAW   DRAW  DRAW IN WCHR$ CODE STR$  BRIGHT VAL p</< DRAW :|STR$  GO TO  OUT  DRAW  BRIGHT  COPY  BRIGHT STR$  COPY CHR$  CLEAR T DRAW  OUSR ▛ LIST Up/< BRIGHT <AT ?p}VAL$  CLS G7▘ COPY  RUN IN USR wVAL IN /©AT ?L▛VAL Up// BRIGHT AT *pqVAL$ USR G▘ DRAW  NEXT VAL USR  LIST VAL USR _USR CODE 3L▛VAL Up,/ OUT  PRINT PEEK PEEK  PRINT  OUT CHR$ IN STR$  OUT IN  COPY  CAT  LOAD ? RUN  COPY  RETURN  COPY  CLEAR  COPY  COPY L▛VAL Up// BRIGHT AT *pqVAL$ USR <=CHR$ USR  LIST STR$  LIST SIN  LIST q DRAW PEEK  DRAW TIN ,O▛W/ OUT AT  CAT |?SGN p?SGN ? NEXT ? LIST  COPY USR ?USR  COPY USR  COPY USR  COPY !e©IN  LIST © LIST  LOAD  COPY  OUT  PRINT  CLS  IF  RUN  LET  CLS  DRAW  RUN  DRAW  RETURN  DRAW  CLEAR  CLEAR  RETURN  COPY  COPY © COPY IN  COPY © COPY IN ▖e©Q© COPY <>$[U][C]© COPY <>[U]©QaQ▛eUSR  COPY ©[D]IId COPY ©USR @@@USR USR ▞e RETURN [S] COPY  RETURN [C]II% COPY  RETURN I% RETURN [S]CHR$ [S]a~Q▝a▝Q COPY aQ RETURN a[S]Q[S]aCHR$ © COPY <>$[U][C]© COPY <>%[U][D]© RETURN ? RETURN STR$ STR$ AA COPY  COPY USR USR @@USR  COPY ©[D]IId COPY ©USR ▗e>CHR$ STR$ [S]ACHR$  COPY [S]CHR$ ©[S]QCHR$ Q[S]aCHR$  COPY  RETURN [C]II% COPY  RETURN <>%[U][D]© RETURN aCHR$ Q[S]aCHR$ Q[S]© RETURN <>%[U][D]© RETURN <>%[U][D]© RETURN Q[S]aCHR$ Q[S]aCHR$ Q[S] INVERSE © REM [R] PRINT U IF ABS  CLEAR NOT  CLS NOT  DRAW  DRAW 3 DRAW  CLS  OUT  FOR  PRINT  PRINT  DEF FN [R]s ERASE  DRAW ▗e LIST ▗ TO f3B!B!f3 TO ▗ LIST USR USR Xd#BdXXd#BdX@Xd#BdX DEF FN L-X MERGE pt GO TO  SAVE 3 STOP  POKE v>={ DRAW MBIN [Q]2 STEP [P] VERIFY © RETURN "3[N]_=[K] CAT ©o6} IF  CAT  GO SUB [L][K]t BRIGHT =USR  OR D0INKEY$Q READ  NEXT { PLOT  iPEEK ▞ LPRINT  INK TAN  RETURN  BRIGHT  CAT  SAVE ▞ RETURN  THEN  SAVE IN  DRAW  INPUT  DRAW  INPUT >= DEF FN [J] AND  IF ▘ THEN ▘ LINE  STEP ? LPRINT 3~q READ  READ @ ERASE ▘CODE  RETURN 3aSTR$ ©USR  DIM C LPRINT INKEY$[A]h OUT [E] PRINT  LINE LN  STOP TAN B:bSGN r[O], OUT $ CLS [Q] CIRCLE  LPRINT ▙e`$[E] VERIFY v> CAT [P]o COPY } RETURN e$(()USR kn0|Q RANDOMIZE  NEXT  COPY  PLOT  ©PEEK  INVERSE } REM ABS  MERGE NOT  CLS NOT  DRAW  DRAW 3 DRAW  COPY  RUN  COPY  PRINT  LET  COPY [R] LIST  OPEN #USR  GO SUB p2 DRAW  COPY  COPY ? LIST USR USR  LIST  DRAW  CLEAR IN  LIST O LIST USR STR$ SIN USR qVAL PEEK  OUT  BEEP << INVERSE } REM POINT  MERGE U IF POINT  PRINT Q RETURN [R] CLEAR Q RETURN [R] CLEAR A RETURN ▝ PRINT Q COPY [R] LIST  OPEN #USR  GO SUB p2 DRAW L▛VAL Up,/ BRIGHT AT :pSTR$ SGN sVAL USR NOT USR STR$ IN CHR$ UTAT   INVERSE © REM [R] PRINT U IF [R] CLEAR A IF ▝ CLEAR A RETURN ▝ CLEAR A IF ▝ INVERSE  REM ! PRINT U DEF FN [R]s ERASE  DRAW  AND e2▖NT COPY # COPY QQ"@$ @  e [A]e© COPY  CIRCLE [L] CLEAR  COPY eu OVER [Q] GO SUB @ OVER  GO SUB @ COPY USR  GO SUB p|L COPY  COPY ▚e CIRCLE [L] CLEAR  COPY  COPY  COPY wuSCREEN$ [Q]@@USR p0USR  COPY  RETURN  INK  COPY IN  COPY  COPY w COPY * CLS wSQR w COPY w0PEEK USR 2© COPY ePId PAPER [L] CLEAR  COPY  COPY u OVER [Q] GO SUB @ OVER  GO SUB @ COPY USR  GO SUB p|L COPY e'd PAPER [L] CLEAR  COPY wuSCREEN$ [Q]@@USR p0USR  COPY  RETURN  COPY e& RESTORE  INK [ COPY IN w COPY * CLS wSQR w COPY w0PEEK USR 2  FORMAT ,hX00[Q]``USR ` [I]D$4`USR  OVER  GO SUB  BRIGHT  GO SUB  BRIGHT  GO SUB  DRAW  GO SUB  DRAW  GO SUB  BRIGHT  GO TO @ BRIGHT  GO TO @ DRAW  GO SUB @e▚ee▗e@e@SQR 7SQR 7;7IN 7?7SQR wSQR wIN wNOT NOT  RUN  LOAD  RANDOMIZE [P] RETURN © COPY e▚e CIRCLE [L] CLEAR  COPY  COPY  COPY wuSCREEN$ [Q]@ LIST ? DRAW  COPY  COPY NOT NOT USR  ERASE X~LN ▜ POKE  SAVE  COPY  LLIST  COPY  RETURN [P] COPY  BEEP  COPY [R] COPY BIN [N]USR  LPRINT  SAVE B DRAW   COPY [A] COPY <>08 P0LEN [D] PAUSE  RETURN 5 OUT  COPY  LLIST  COPY  RETURN  COPY  COPY © COPY = LOAD CODE D"[Q]`USR @USR USR  COPY  LIST  RETURN  COPY eIN ▚e0 USR A:bt CONTINUE XUSR VAL ▝`*T[Q]USR ,EAAe8 #g AND > <= COPY ▝ RETURN ▗e RUN USR `>p COPY  NEXT  READ  COPY eUSR @`0BIN  AND  READ qUSR <| LIST x/.▘STR$ @ LPRINT HUSR @`0USR @@`0[A]XAT # LPRINT 0/USR & LPRINT p)VAL ▖STR$  TO © CLS ▜ COPY © COPY  COPY  RETURN  COPY  PRINT  RUN ▘ OR  $X(>_ LLIST  SAVE ▜ COPY © COPY  COPY s PAUSE  BORDER  FOR <= LINE [M]/[I]©1 COPY A COPY  COPY  COPY CHR$ STR$ USR STR$ USR STR$ USR STR$ USR STR$ USR USR @USR USR @USR STR$ @0HH▖ ▖ ▖ QQ▞▗eeee[S]▞e▚eeG▗eePIG[H]ed|▗el|▘|[I]|[Q]|FN |VAL |LN |USR |>=| FORMAT | OUT | INPUT | CLEAR |}}}$}▗e,};}J}Y}h}w}©}[F]}ATTR }STR$ }<>} OUT } INPUT } PLOT  } RETURN }~~▗e;~X~`~eh~~[S]~▗eIN ~[C]e<=~ CAT ~ OVER ~ GO SUB ~ PRINT ~©©©©$©3©;©C©K©S©[©q©y©▝©▞©▗e[I]©[Q]©CODE ©ATN ©IN ©<=© VERIFY © RESTORE © GO SUB ©)1@V^fn▗ev[C]e~[E]SCREEN$ USR  VERIFY ▙e l@l`l`ATTR  l[Q]AT @l LPRINT TAB `lATTR 0cUSR AT `cVAL$ [A]cVAL ATTR  l LIST AT @l0VAL$ `l FORMAT ATTR 0cTAB `cPVAL$ [A]cAT  l@TAB @lVAL$ `l AT 0c`TAB `c[Q]VAL$ [A]cPAT  l[A]TAB @l FORMAT VAL$ `lpAT 0cVAL TAB `c LIST VAL$ [A]c r@r`r`ATTR  r[Q]AT @r LPRINT TAB `rATTR 0cUSR AT `cVAL$ [A]cVAL ATTR  r LIST AT @r0VAL$ `r FORMAT ATTR 0cTAB `cPVAL$ [A]cAT  r@TAB @rVAL$ `r AT 0c`TAB `c[Q]VAL$ [A]cPAT  r[A]TAB @r FORMAT VAL$ `rpAT 0cVAL TAB `c LIST VAL$ [A]cIN |IN |STR$ vVAL STR$ zVAL STR$ ~VAL STR$ ▘VAL STR$ |NOT ,0(|8NOT ,0(|8IN |HSTR$ <|@STR$ ▚VAL @IN |IN |STR$  |STR$ (|$STR$ 0|STR$ 4|STR$ 8|STR$ e<|STR$ D|STR$ H|IN P|HSTR$ 8|STR$ eT|STR$ T|c`TAB `c[Q]VAL$ [A]cPAT  r[A]TAB @r FORMAT VAL$ `rpAT 0cVAL TAB `c LIST VAL$ [A]cIN |IN |STR$ vVAL STR$ zVAL STR$ ~VAL STR$ ▘VAL STR$ |NOT ,0(|8NOT ,0(|8 REM ▞*[G]▛B▟▘CHR$ [B] REM ▞*[G]▛B▟▘CHR$ [B]▛▘[E]2[E]b[E]▘[E][S][E]CHR$ [E] STOP [E]r[F][G][C][G]"[H]SIN [H]B[I] ERASE [I]b[J]CHR$ [J]"[K]"[K].[K]^[K]▙[K][L]VAL$ [L]>[M] DEF FN [M].[N]▙[N][O]VAL$ [O]>[P] DEF FN [P] RETURN [P].[Q]▙[Q] INPUT [Q]N[R]VAL$ [R][S] RNDCODE  COPY >=RNDCODE  >=  OUT  CONTINUE `RNDCODE  COPY RNDCODE    OUT Xe COPY LN RNDCODE  COPY & SAVE p[F]▝ COPY HRNDCODE  COPY ▖RNDCODE  COPY  CONTINUE `RNDCODE  COPY (RNDCODE  COPY hX COPY LN @RNDCODE &LN p[F]▝ COPY >= CIRCLE RNDCODE  COPY @RNDCODE &p[F]▝ COPY [I]X COPY  CONTINUE 0RNDCODE  COPY (8 COPY *H DEF FN ▝hRNDCODE  COPY [I]RNDCODE  COPY XRNDCODE xPRNDCODE  COPY [I]@RNDCODE $LN ` LET  COPY >=  CONTINUE @RNDCODE  COPY XRNDCODE  X  OUT  COPY >=>=X COPY  RNDCODE  COPY *[I] DEF FN ▝FN RNDCODE $LN  ▝ COPY RNDCODE    OUT (`SGN ▝ COPY HRNDCODE  H  OUT (H`SGN ▝ COPY ">=h▝ COPY RNDCODE (RNDCODE (8`SGN ▝ COPY HRNDCODE hRNDCODE  COPY $ CIRCLE h*▝ COPY $`4▝ COPY XRNDCODE  COPY  CONTINUE  RNDCODE  COPY `RNDCODE `RNDCODE (`RNDCODE  COPY heh@RNDCODE  COPY LN ( COPY *XXXx COPY ▖ COPY ▘ COPY  CIRCLE  RNDCODE  CIRCLE @RNDCODE  CONTINUE RNDCODE  CONTINUE `RNDCODE  COPY  RNDCODE @RNDCODE (RNDCODE (`RNDCODE  COPY X RNDCODE X@RNDCODE hRNDCODE h`RNDCODE  COPY RNDCODE  COPY .FN  COPY 0RNDCODE (RNDCODE  COPY FN RNDCODE  FN 0 OUT  COPY 0p CONTINUE ▝ COPY xRNDCODE 0xp CONTINUE ▝ COPY 0 CONTINUE p CONTINUE ▝ COPY (RNDCODE  COPY HRNDCODE  COPY $[I]hD▝ COPY  CIRCLE RNDCODE . CONTINUE P COPY $8`W▝ COPY .xP COPY  CIRCLE RNDCODE  COPY xRNDCODE  COPY FN 0RNDCODE  COPY 0 CIRCLE p CONTINUE ▝  CONTINUE   OUT   SAVE   OUT  COPY 0p CONTINUE ▝ COPY xRNDCODE  COPY LN @RNDCODE  COPY  CIRCLE @RNDCODE  SAVE @RNDCODE  COPY [I]PRNDCODE  COPY $>=hj▝ SAVE  RNDCODE  COPY HRNDCODE  COPY ▖RNDCODE  COPY " CIRCLE Xx▝ COPY 2▘(@RNDCODE  COPY 2X▘h@RNDCODE  COPY  SAVE `RNDCODE  COPY (RNDCODE  (  OUT  8  OUT  COPY h`RNDCODE  COPY >=RNDCODE 0 CIRCLE p CONTINUE ▝ COPY .$8X▖▝ COPY ▖RNDCODE  COPY  CIRCLE RNDCODE   SAVE 0 OUT  COPY RNDCODE RNDCODE  (0 OUT  COPY HRNDCODE  COPY [I]RNDCODE  COPY 2▘ COPY 2▖▘ COPY $H COPY  SAVE RNDCODE  SAVE 0RNDCODE  SAVE PRNDCODE  COPY 8RNDCODE 80RNDCODE 8PRNDCODE  COPY xRNDCODE x0RNDCODE xPRNDCODE  COPY LN RNDCODE LN 0RNDCODE LN PRNDCODE  COPY  RNDCODE  COPY  COPY * RESTORE  0 STOP * RUN 0 CONTINUE  LLIST 0 CONTINUE  LLIST *"▝((((*:▝0 CONTINUE  LLIST *J▝*_▝*p▝..*▝,@|, DRAW <|&*CHR$ ▝, RETURN $  MERGE ▝, LPRINT ▝0 PLOT   LLIST ,/|, DRAW T|&$0▘0 PLOT   LLIST .>28 GO SUB 29 GO SUB  INVERSE }2: GO SUB  INVERSE |2; GO SUB  STEP w INK [L]▘0<= LLIST [Q]▘0<= LLIST RND▘SCREEN$ ▘0<= LLIST . INVERSE  THEN [O] STEP w INK 8. INVERSE  THEN  OVER  INVERSE  THEN PEEK  STEP w INK ▝e▗▗5()+&'-()%D") "/%-,[J],! (")[J](#$)(")[M]/("▝&'▝▝▝▝▝[M]▝▝▝▖▝▝▝▝▝,▝▝▝▘%▘▘▘▘▘▘&'▘▘▘▛▛▘▘▘▘,▘▖▘▘▘▘&'▘% ,"%▛ ** %#$("!")#$/(")▛(!)**(!)[J](")(#$)▟▟▟▟▟+▟▟▟▟[M]  DIM  COPY  OUT ▝&'▝▝ BEEP ▘%▘▘ BEEP % INVERSE #$ OUT + BEEP g[P][P]0&%▖▖▝▝▝▝%▝▝▝▝▝▝▝▝▝▝▘▘▘▘▘▘▘▘▘▘▘▘▘▘▘▘""▖ # FOR  FOR  OUT ▝▝▝▝▝ BEEP ▘▘▘▘▘▘▘ BEEP  READ  OUT   BEEP NOT  COPY  COPY ▝<r COPY  COPY zN COPY  COPY ▝<NOT  COPY  COPY  COPY  DRAW ?USR  SAVE  LIST  [Q] LIST  LIST  LPRINT USR  SAVE  DRAW ? COPY  COPY  COPY @ COPY  COPY @ COPY  RUN  COPY ©[R] STOP  LET  COPY  COPY  LIST  IF  DRAW  COPY  COPY ▗ LIST  O▜0▗CHR$  UO COPY FN  POKE  IF  LIST  COPY  COPY  LET  READ Q© COPY ▙ RUN  COPY   COPY  COPY   COPY  COPY  LET  COPY  COPY  LET  COPY  COPY q LOAD <=  RETURN  COPY @ _[Q] COPY  COPY USR ?@( COPY  PAUSE VAL PC( LLIST  PAUSE ASN P/@ COPY  COPY [Q]_ @ COPY  RETURN 0G LOAD x COPY  COPY  SAVE  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  COPY x COPY  COPY ▗ RETURN  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY © DRAW  COPY © LPRINT USR ? COPY  SAVE ??( SAVE  COPY USR +D? COPY  LIST @@H SAVE  RETURN  LET  CONTINUE @@[D]▘ PRINT  CONTINUE @@>={z▙ SAVE ▗$@@ RANDOMIZE E5[K]xUSR ?▗[L]5 THEN +USR [H]▙=©?[P] DRAW  LET 'USR USR !USR pABS @ [G] [B]`USR  LPRINT VAL e▝  LIST A▜?[M] LIST  SAVE  DEF FN ~'[A]<LN [Q]NOT  SAVE  LIST  LET  LIST `USR  LPRINT USR ? LIST   PAUSE xUSR  $e" @]e STOP #1<=e COPY ?©USR  LPRINT <>USR  COPY ©p LIST (b#? PAUSE ©© LET [B]SGN [O][D]d0@ READ © COPY  LPRINT @kko{@ LIST  COPY  COPY  DATA  LIST ?<= LET USR ©?1 COPY |[P] COPY  COPY  COPY O^@@SIN I COPY  COPY  COPY  COPY  COPY  RETURN ASN ASN [Q][Q]ABS ATN  RETURN  COPY  COPY  COPY  COPY  COPY x READ USR ?A▜0 COPY  COPY  COPY  COPY  COPY  LPRINT © COPY  COPY  COPY  COPY ?USR  COPY  COPY  COPY  COPY USR ? COPY  COPY © LPRINT @  COPY  COPY  COPY  COPY  @USR ?@=@  COPY  COPY  COPY  COPY  @USR    SAVE @@ COPY  COPY  COPY  COPY @  SAVE  LIST  LIST  @ COPY  COPY  COPY  RETURN  LET  LPRINT  LPRINT [A] COPY  SAVE  PRINT  DIM  GO SUB  LIST  LIST  LINE { SAVE  COPY  RETURN $   DIM  DRAW  SAVE 5[K]@?[L]5 LIST  LPRINT ▙=©©▝ DRAW  LET 'USR +[R]USR p▘ COPY  COPY CHR$  [B] DH0e[U] COPY  COPY 8▜?/ SAVE ▙CODE  DEF FN ~| COPY  COPY LN [Q][D]▘ COPY ©lUSR  RANDOMIZE  RANDOMIZE CHR$ ?[I]©© LET eE+NOT e READ © COPY LEN USR  LPRINT  CAT [M] COPY  COPY  DATA 4`USR   COPY  RESTORE ©? LET ?$# STOP USR O^@@SIN I©<=1USR >ASN ASN [Q][Q]ABS ATN USR <> LPRINT (USR x READ USR ?▜0?#b[O]SGN ? CAT  RETURN © COPY  COPY  COPY ?d[D]kk@ COPY  COPY  COPY  COPY  COPY  COPY @{o LET <=? COPY  COPY  COPY  COPY  COPY  COPY ©8 COPY  COPY  LIST ?@ LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY USR  USR  COPY  COPY  RETURN  DRAW  SAVE  COPY  COPY  ▖" COPY  COPY SGN  SAVE  LIST @ COPY  COPY AA LLIST  LIST ? LIST  LPRINT  LPRINT ▝▗BIN  LLIST USR  LPRINT  LPRINT  LPRINT 8/^▝D$▝SGN PI BORDER  LPRINT  LPRINT ▖H[S]A$A!A[A][A] LPRINT  LIST PCOS YPI!@LN YCOS SGN  SAVE  DRAW  RANDOMIZE x READ  FORMAT   SAVE <>© DRAW  DRAW  CLOSE #b DRAW  RETURN ▛et SAVE NOT I COPY  COPY 8 DRAW  BORDER  STOP q<>: COPY  COPY © LET q RETURN  DRAW eC SAVE 1", SAVE  SAVE A0eB" CLOSE #%e > SAVE  SAVE pe© SAVE @USR  LIST  CIRCLE  DRAW  RETURN [M][M] e[S] SAVE  LIST "3 COPY  [A] RANDOMIZE >= FOR  LPRINT  LPRINT 6H▙0`USR  RETURN TAN ACS  LIST  LIST  RUN TAN  COPY @@@N COPY x LPRINT  LIST  READ ▜0 DRAW Q@ SAVE  CAT  RUN  RANDOMIZE  COPY  COPY  COPY  LIST  PRINT  DATA $[L] LIST  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT [Z PAPER { LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  LIST ▙<NOT q SAVE  COPY  COPY  COPY  COPY  COPY  RETURN  LIST  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  RETURN  SAVE  COPY  COPY  COPY  COPY  SAVE  DRAW  SAVE  CLOSE # SAVE  SAVE  COPY  COPY  COPY  COPY  SAVE  DRAW b COPY  LIST  COPY  COPY  COPY  COPY  LIST  COPY q COPY  LIST  COPY  COPY  COPY  COPY  LPRINT  RETURN <>q` LLIST USR  COPY  COPY  COPY  COPY /^[O] OUT [P][R]SGN ' COPY  COPY  COPY  LLIST H[S]@[S]" A[A]USR  COPY  COPY !COS Y[Q] CLOSE # SAVE LEN YCOS @ COPY  RETURN Ax READ  FORMAT >=© PAUSE  DRAW  SAVE INT   B LIST  LIST e@?s SAVE NOT  LPRINT  LPRINT  REM  DRAW  BORDER  BORDER USR @:0 LPRINT  LPRINT  LIST  LET x USR [A] LPRINT  LPRINT [M]# RANDOMIZE [A] P LIST  SAVE SGN 0▙0`USR e CLS  DRAW  RETURN  RANDOMIZE USR @@NF DRAW  SAVE e/ RETURN Q@ COPY 3A SAVE  SAVE >  PRINT  DATA $[L] LIST p SAVE  DRAW  CIRCLE  LPRINT [Z PAPER { LPRINT [M][M] RETURN  SAVE [S] LIST ▙<NOT q SAVE 0" LIST  LPRINT  FOR >= DRAW  COPY  BORDER  COPY  COPY  COPY H6 LPRINT  LIST ACS TAN  COPY  COPY  COPY  COPY  COPY  COPY TAN  RUN  LIST  LPRINT x COPY  COPY  COPY  COPY  COPY  COPY ▜0 READ  LIST VAL  OUT  O0USR @(P 0h CLOSE #  j5@USR :O  OUT VAL  CLS   PAUSE  LIST  SAVE ▗ SAVE  LIST  LIST  LPRINT B[S] LIST  SAVE TAT  SAVE  LIST  PAUSE   CLS w©?L;©?BP??X!© COPY USR  LIST p>= LIST  SAVE VAL ( LIST  LIST ▖ LIST  SAVE  LPRINT  DRAW USR  COPY ©-H??@P??X!© COPY USR  DRAW  LPRINT  FORMAT  SAVE  LIST ▖ LIST  LIST ▖ LIST  SAVE  LPRINT  DRAW USR  CLEAR USR  LPRINT  COPY ?© COPY  LIST VAL ▝© COPY USR = COPY  COPY [T]  LPRINT CODE  RANDOMIZE  NEXT [M]p0 FORMAT  NEXT  RUN ▖0 LIST  CLS  COPY  [A] COPY ©▖0 DRAW {r© LPRINT  LPRINT IN p0IN  LPRINT USR ©0/ DEF FN  USR  LPRINT  LIST  COPY  LPRINT USR  CLEAR USR  LPRINT  COPY ?© COPY  LIST VAL ▝© COPY USR = COPY  COPY [T]  LPRINT CODE  RANDOMIZE  NEXT [M]p0 FORMAT  NEXT  RUN 0 LIST  IF  RETURN   FORMAT  RETURN  COPY [A]0 DRAW  RETURN |[P] LPRINT  LPRINT /||/ LPRINT USR ?|7 READ USR  $USR  RETURN   LPRINT ? LIST  DRAW  COPY  BRIGHT  RETURN  COPY  SAVE  LIST  COPY  COPY  SAVE  LIST  LPRINT  LET >= BRIGHT  NEXT  LPRINT  LPRINT  IF 2 RETURN [K] LPRINT  LPRINT 9<== LPRINT  LPRINT x©VAL  LPRINT  LPRINT  LIST BI LIST  LPRINT  LIST  SAVE ▝NOT IN  LIST  LIST ' RETURN  RETURN  LIST  SAVE  RETURN  DRAW  SAVE  SAVE  DRAW  STOP A DRAW  RETURN  LIST  COPY  RETURN  DRAW  COPY  BRIGHT  RETURN  COPY  SAVE  LIST  COPY  COPY  SAVE  LIST  LPRINT  LET >= BRIGHT  NEXT  LPRINT  LPRINT  IF 2 RETURN [K] LPRINT  LPRINT 9<== LPRINT  LPRINT p©[Q] LPRINT  LPRINT  LPRINT B] LPRINT  LPRINT  LPRINT  LIST ▞NOT  LOAD  LPRINT  LIST <> RETURN  RETURN CHR$  LIST  LIST CHR$  RETURN  DRAW NOT  LIST  SAVE ~<"@ SAVE  DRAW  COPY  STOP  RETURN  COPY  SAVE USR  COPY  COPY   LIST  LPRINT LN  COPY  COPY $USR )SGN  COPY  COPY TI CIRCLE  RETURN  COPY  COPY [K]?USR SGN B*  FORMAT ▟▞ IF P5▝B DIM  USR ©STR$  LLIST ??▚▖?USR PEEK A`P REM ACS <>[M]P LIST  LOAD  COPY  COPY  COPY  COPY  COPY ? RETURN  SAVE USR  COPY  COPY   LIST  LPRINT LN  COPY  COPY $USR )SGN  COPY  COPY TI CIRCLE  RETURN ©?[L][P][R]@[Q]POINT  AND D▘[Q]  CLEAR @![L]@? RUN ©STR$ ?? SAVE ▚▖??[P][Q][F]@[Q]j FLASH d BRIGHT [Q] LPRINT  COPY © COPY ▝ COPY ©r COPY  RETURN ▛?@r DRAW  SAVE [L]USR @[F] LIST  LPRINT  LPRINT [Q] RANDOMIZE  LPRINT  LPRINT USR  LPRINT  LIST "[S]m FORMAT  LPRINT  LPRINT [P]RNDQ LPRINT  LIST .[C]< LET  LIST  LPRINT ▖a LPRINT  LPRINT H/ LPRINT  LPRINT  LIST VRNDn LPRINT  LPRINT [J] OR  COPY  RETURN  LPRINT  COPY  COPY  COPY  COPY  READ  COPY  COPY ▝ COPY ©r COPY  RETURN ▛?@r DRAW  SAVE [L]USR @[F] LIST  LPRINT  LPRINT LN  RANDOMIZE  LPRINT  LPRINT [K]j LPRINT  LIST H* ERASE  LIST  SAVE TAN x COPY  LIST  LPRINT [I]▖o LPRINT  LPRINT HX LIST  LPRINT  LPRINT TSCREEN$ ACS  LPRINT  LIST M LINE  RETURN  COPY  LIST  COPY  COPY  COPY  COPY ▚e@ COPY  COPY $ CIRCLE [L] COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  PRINT  COPY  COPY  IF IN }~ COPY  COPY CODE  REM [E]U COPY  COPY  ;USR  OPEN # COPY  COPY < LIST  COPY  LIST e LIST  LIST $@B LIST  LIST ▞VAL  LIST  COPY  LIST  LIST  COPY  LIST  LIST  COPY  LIST  LIST  COPY P[Q] COPY  LIST  LIST  BEEP  LPRINT  LIST SCREEN$  LIST PSIN  LIST  LIST 0USR  LIST  COPY  COPY  COPY  COPY  COPY  COPY USR  COPY ?USR 5*@[Q]eUj`[Q]c]~ RUN  LPRINT `[M]c DRAW  COPY  SAVE AT P SAVE  SAVE [Q]P LIST  LIST [Q]: VERIFY  LIST  LIST  LOAD ~ AND 9 LIST  RUN @ COPY © LLIST  STOP  LPRINT © LPRINT `e@'@@!BR0TAB  OR MTAB [A][Q]!L▙s[Q]0 OUT  BORDER  0`e@`[Q]ABS =@X  [C]D(▘ OUT  E LOAD  AND (▘ OUT  COPY E LOAD  COPY q LOAD <= ▙ RETURN  RETURN  MOVE 0 LPRINT VAL  SAVE  LIST e LIST  SAVE ptBIN  SAVE  LIST %# MOVE Z LPRINT  LIST  PAPER  INK CHR$  LIST  LPRINT  BORDER : NEXT } LPRINT  LIST  LIST h PAPER  FLASH  SAVE  POKE u▖"  LPRINT  POKE B▟ X POKE  RETURN  DRAW b▟ _ POKE  RETURN 8▘ CLS   OUT  LET x CLEAR  CLS  OUT  LEN }0▘D OUT   LLIST  ▖ ▟_ LPRINT `e@'@@!BR0!BIN MTAB [A][Q]TAB M▙s[Q]0 OUT  BORDER  0`e@`?ABS =USR X?©PI SAVE  READ  LN @  RUN  COPY  OUT ABS B FLASH  RUN  READ $@▙ STOP  STOP  MOVE 0 LPRINT VAL  LIST  LIST e LIST  SAVE ptBIN  SAVE  LIST %#B LPRINT  LIST  PAPER  INK  PAPER  PAPER  LIST  LPRINT  BORDER : NEXT } LPRINT  LIST  LIST h CIRCLE  FLASH  SAVE  DRAW u#▖w  COPY ? COPY USR  e@[A][A] FORMAT [Q]USR  FORMAT PeUSR STR$ PUSR [Q]USR 0e LPRINT  FORMAT 0e CONTINUE  MERGE B0PVAL  REM w COPY  LPRINT USR  COPY ? SAVE  COPY  DRAW  LIST  LIST  RANDOMIZE  LIST  LIST e LIST  LIST E LIST  LIST  LIST  LIST #ATTR  LIST  RETURN  DRAW  COPY  SAVE  LIST  COPY  COPY  COPY  COPY HD COPY  COPY  COPY 3"! TO  COPY  COPY  CONTINUE '9 COPY  COPY (1USR L COPY  COPY USR USR  COPY ©*&?@BB[Q]`BA[P] COPY @GH COPY  COPY (Za COPY ©?8AA COPY ??Bx COPY  COPY  COPY  COPY ▝$" COPY  COPY  COPY P LPRINT  COPY  COPY  IF S BRIGHT  COPY  COPY [M]LN FN ACS  COPY ©}LN FN [J]©?eRND[T] @ [M][R]IN s FORMAT 0A[R][S]AO COPY "[U]ATTR [E] COPY ?ABS [Q] LET USR  N[Q]USR © LPRINT  p LPRINT © COPY  COPY ? LIST  LIST @ COPY ?  SAVE  SAVE USR ?~ SAVE  SAVE [B]?? SAVE  DRAW USR [Q] DRAW  DRAW [Q][A][Q] SAVE  SAVE `▖▗  LIST  LIST   IF INKEY$  LIST  LIST [Q]USR  LIST  LIST t?[S] LIST  LIST @ LIST ▖USR  LET  LET USR  SAVE >=  LET  LIST ? COPY  COPY @ SAVE  SAVE   COPY  COPY  SAVE  LIST ? LIST  LPRINT >=USR USR ▞ LPRINT  LPRINT ▛` FORMAT ▜ LPRINT  LPRINT ▞[A]P LPRINT  LPRINT 2CHR$  LPRINT  LPRINT  RUN = LPRINT  LPRINT $ B LPRINT  LPRINT EXP @# MOVE  LPRINT  LPRINT   STOP  LIST  LPRINT  LPRINT  LIST  RETURN ` LIST  LPRINT USR &??"@@@@A@@A"?? USR © COPY  LPRINT  DRAW  SAVE h( SAVE  LIST  LIST  LIST  LIST  SAVE ( SAVE  DRAW  LPRINT  RETURN  COPY [P] COPY  COPY ` COPY  RETURN AT  COPY  COPY  DRAW  SAVE H COPY  COPY  LIST  LPRINT [I] COPY  COPY TUSR  LPRINT [M] COPY  COPY $ DRAW  DRAW   COPY  COPY [A] RETURN  RETURN [A] COPY  COPY h DRAW  DRAW [I] COPY  COPY g RETURN  COPY [P] COPY  COPY ` DRAW  SAVE P COPY  COPY ▖ SAVE  DRAW H COPY  COPY ▚ RETURN  DRAW RND©©[H] SAVE  LIST [U]?©H SAVE  COPY H COPY  COPY [A] RETURN  DRAW   COPY  COPY  FORMAT  SAVE  SAVE 0 COPY  COPY  CAT  DRAW  COPY  RANDOMIZE  COPY ? LIST  COPY  COPY  LPRINT USR @USR  COPY  COPY ?©a COPY  RETURN POINT ?@ RESTORE  DRAW  RETURN )USR @USR  COPY  COPY USR ?© LPRINT  COPY  COPY  LPRINT ©?USR  COPY  COPY USR ?© NEW  COPY  COPY  RANDOMIZE  COPY  COPY USR  COPY  COPY 5©?( COPY  COPY USR ` LPRINT  COPY  COPY USR Pp) COPY  COPY zH7 COPY  COPY  LIST ?© LPRINT  COPY  COPY USR  COPY ©- COPY  COPY 3© COPY  TO  COPY  RETURN g COPY  COPY [I] DRAW  DRAW h COPY  COPY [A] RETURN  RETURN [A] COPY  COPY   DRAW  DRAW $ COPY  COPY [M] LPRINT USR T COPY  COPY [I] LPRINT  LIST  COPY  COPY H SAVE  DRAW  COPY  COPY AT  RETURN  COPY ` COPY  COPY [P] COPY  DRAW  CAT  COPY  COPY 0 SAVE  SAVE  FORMAT  COPY  COPY   DRAW  RETURN [A] COPY  COPY H COPY  SAVE H©?[U] LIST  SAVE [H]©©RND DRAW  RETURN ▚ COPY  COPY H DRAW  SAVE ▖ COPY  COPY P SAVE  DRAW ` COPY  COPY [P] COPY  COPY  NEW ©?USR  COPY  COPY USR ?© LPRINT  COPY  COPY  LPRINT ©?USR  COPY  COPY USR @USR ) RETURN  DRAW  RESTORE @?POINT  RETURN  COPY a©? COPY  COPY USR @USR  LPRINT  COPY  COPY  LIST ? COPY  RANDOMIZE  COPY  COPY  TO  COPY ©3 COPY  COPY -© COPY USR  COPY  COPY  LPRINT ©? LIST  COPY  COPY 7Hz COPY  COPY )pPUSR  COPY  COPY  LPRINT `USR  COPY  COPY (?©5 COPY  COPY USR  COPY  COPY  RANDOMIZE  COPY eeee COPY e MERGE e@USR  [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT  VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RND▝e RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY eec0c`c[A]cUSR c LIST c dPddVAL d LPRINT d▝e@▝ep▝e[Q]▝e FORMAT ▝ef0f`f[A]fUSR f LIST f gPggVAL g LPRINT gh@hph[Q]h FORMAT hi0i`i[A]iUSR i LIST i jPjjVAL j LPRINT jk@kpk[Q]k FORMAT keee COPY eSTR$ eel[Q]yPOINT yCODE ▘`xmCODE Ehpl[Q]yPOINT y STEP  LPRINT xBIN hprzz*▚0yCODE EhxrzzV▞0yBIN Ehxd|PREHISTORIC ZON OR ICE AGE ZON OR (H GO SUB BD. INVERSE  THEN ▙<>2.>▝ INVERSE w INVERSE 6 INVERSE 6| STEP w INK <VAL 0 BEEP  LLIST   <VAL 0 BEEP  LLIST 0 BEEP  LLIST <VAL 0 BEEP  LLIST <VAL 0 BEEP  LLIST 0 BEEP  LLIST  SAVE  COPY <VAL 0 BEEP  LLIST <VAL 0 BEEP  LLIST 0 BEEP  LLIST hr@VAL 22▙VAL LEN VAL$ LEN >SIN  DEF FN SIN ^COS  INPUT COS ^COS ~TAN ~TAN ~TAN ~TAN ASN ACS [O]ASN .ACS PEEK ACS  INPUT ACS ATN >ATN fATN  AND ATN &LN ▚LN  NEW LN FEXP INKEY$EXP INT fINT  PLOT  INT ▚SQR SGN  RETURN  LPRINT ©? DRAW  SAVE  LPRINT @? STEP  LIST  LPRINT [C]@ LPRINT 'USR *-PHm*V▖VWp LPRINT WW COPY USR xCHR$ +: dBIN PUSR  LPRINT BIN LN ? LIST  SAVE CHR$  LIST  COPY  RETURN  RETURN ▖HH DRAW  SAVE | LPRINT  COPY  SAVE  COPY ?USR  INPUT  RETURN  DRAW  USR  NEW  SAVE  LIST <>  LIST [D] LPRINT USR FN [U]6++BIN WW▖8 NEXT WW COPY USR @W*(p>=:USR >=▖ COPY  LPRINT  LIST p DRAW  CLS  LPRINT  LPRINT  TO "▗USR   COPY e RETURN ? RETURN  LPRINT ©? DRAW  SAVE  LPRINT @? STEP  LIST  LPRINT [C]@ LPRINT 'USR *-PHm*V▖VWp LPRINT WW COPY USR ` PAUSE +;▖P FORMAT USR  LPRINT  FORMAT  LPRINT  LIST  SAVE  COPY  LPRINT  DRAW  SAVE [A]?USR  LIST  LIST  COPY [Q] LPRINT  COPY  SAVE  COPY ?USR  INPUT  RETURN  DRAW  USR  NEW  SAVE  LIST <>  LIST [D] LPRINT USR FN [U]6++BIN WW▖8 NEXT WW COPY  LIST HCHR$ W+ LPRINT H>=;USR * LIST  LPRINT  LIST @ LIST  COPY  SAVE  LIST >=▗ LPRINT  LPRINT  LPRINT  RETURN ? LIST  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  RETURN  DRAW  COPY  COPY  CONTINUE  SAVE  LIST  CLS ©?USR  LPRINT USR [L]g[I]$+*M DATA [S]Z:D PAPER [C][E]?▘ 0F;USR USR  SAVE  COPY ++▗BIN ▘ LINE USR #8 COPY _A@ COPY  LIST  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  LPRINT  COPY  COPY  DRAW  SAVE  CONTINUE ©? CLEAR  LIST  LPRINT  LPRINT @? STEP USR +[C]@ SAVE &;G-TJm▘ LINE F;` LPRINT ++ COPY  SAVE <=USR #$BIN ▘ZA@ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  RETURN  DRAW  COPY  COPY  CONTINUE  SAVE  LIST  CLS ©?USR  LPRINT USR [L]©?$;DMUSR LN Z▘ PAPER [E][C]?D: $*+USR  SAVE  COPY ?#' SAVE WA@BIN ▘ IF  COPY e COPY  LPRINT  COPY  RETURN  LPRINT ©? DRAW  SAVE  LPRINT @? STEP  LIST  LPRINT [C]@ LPRINT 'USR *-PHm*V▖eVW[A]p BORDER W~©USR @BD @? LPRINT E PAUSE ?©[P]83[M] COPY  COPY DUSR USR " COPY  COPY " LPRINT  LPRINT < COPY  COPY  LPRINT  LIST  RETURN  LPRINT ©? DRAW  SAVE  LPRINT @? STEP  LIST  LPRINT [C]@ LPRINT 'USR *-PHm*V8VWG[B]q▛WV PAUSE NF*;xq STOP  LLIST USR  LPRINT  PAUSE ( RETURN  LIST  SAVE  AND P[Q]H RETURN  COPY qUSR ?* COPY  COPY ▝$ COPY  COPY NOT  COPY  RETURN  LPRINT  COPY  COPY  DRAW  SAVE  CONTINUE  COPY © CLS  LIST  LPRINT USR ?©[L]USR +$?USR D*8DLN [E]BIN D?[C] ▘F$ SAVE USR ;+ COPY  SAVE <=USR &<BIN ▘[K]B@ COPY  COPY  COPY ▚e COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  LPRINT  COPY <= LPRINT USR  CONTINUE 8D CLS #EUSR [S]▘[L]A#$BIN  SAVE O>tZFN [I] PAPER tT? TV  LPRINT USR ++ COPY ?▗USR  LPRINT ▝ SAVE NOT USR #<BIN ▘ZA@ COPY  BORDER  COPY e COPY  COPY  COPY 3 COPY  COPY  TO s COPY  COPY [G]3` VERIFY  COPY  COPY  VERIFY `{! COPY  COPY s▗ SAVE NOT ?USR < LIST  SAVE LEN ``9 SAVE  LIST USR ``@ LIST  LIST LN USR ?G SAVE  RUN  COPY  COPY STR$ * COPY  COPY [E]c© COPY [E]* COPY  COPY STR$  COPY © DRAW  SAVE [Q]O RANDOMIZE  LIST ▜0O RANDOMIZE  SAVE [Q] DRAW ~bzz^~© COPY  LPRINT `e`A CIRCLE   BD CIRCLE   $IJ~   MERGE RQ SAVE [Q][Q]QI RANDOMIZE   vFA▖  p@`` LPRINT  COPY © LIST  COPY  RETURN  LIST  LIST ▘B  LIST  LIST M▘B[C] LIST  LIST PI STOP R- LIST  LIST J LIST  LIST [P][C]bg LIST  LIST ▘ LIST  LIST e RETURN  COPY  LIST © COPY  LPRINT `e`@   RETURN V@  e@_ COPY [Q][Q][Q]^_P[Q][Q] COPY _@  @V RETURN   @`` LPRINT  COPY © LIST  COPY  RETURN  LIST  LIST eB STOP o LIST  LIST eB LIST  LIST  COPY  IF  REM  LIST  LIST  PRINT  IF  COPY  LIST  LIST eB LIST  LIST o STOP B LIST  LIST e RETURN  COPY  LIST  BRIGHT e COPY © COPY ▖#q?@▖#▖""@@" FORMAT  LIST <@? LPRINT  LPRINT ?© COPY @USR USR U©©▙0 IN ?©@@© COPY  REM USR  CLEAR USR  LIST ? SAVE  LIST @BIN 1 SAVE  SAVE "$$b CLEAR  COPY CBIN USR  RETURN  RETURN  LIST ▗ DRAW  DRAW P LPRINT  SAVE  SAVE  SAVE  LPRINT  SAVE  SAVE  LET PCODE  COPY  COPY  LPRINT `eUSR    LPRINT ▝[A]  >= SAVE   p▝▙ INPUT   [J]SGN SGN [Q][Q]IN IN [H]  ` LPRINT  COPY  COPY  LIST  COPY  RETURN  LIST  LIST ▘< LIST  LIST ?▘ LIST  LIST  INPUT  STOP [C][B] LIST  LIST  THEN  LINE  IF  CLS  LIST  LIST qr STOP  LPRINT  LIST  LIST  RETURN  COPY  LIST  COPY @ COPY  COPY @ COPY ©` LOAD <=`>A SAVE  USR USR ?USR USR ?USR 0 @pe LPRINT ``@ 0USR ?USR USR ?USR  LPRINT USR  SAVE USR ▚ `<= LOAD `@IN   COPY  COPY   COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LOAD  COPY  CLEAR ▚ COPY ©y SAVE  DRAW ▚ COPY  COPY  DRAW  SAVE ©? SAVE  LIST ©© SAVE  DRAW  COPY  COPY ▚ DRAW  SAVE y© COPY ▚ CLEAR  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LET  COPY  COPY  LET  COPY  RUN  LIST  RETURN | LPRINT  READ  LIST ▘ GO TO p SAVE  SAVE USR  DRAW  DRAW  SAVE  LIST e LPRINT  SAVE  SAVE  DRAW  DRAW <USR  RETURN  DRAW  LIST  GO TO ▘[P] DRAW  SAVE `| RETURN  LIST  LET  CLS  SAVE  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  CIRCLE o[A]' COPY  COPY USR ` USR  COPY  COPY    COPY  COPY `  COPY  COPY USR  `USR  COPY  COPY '[A]o CIRCLE  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY INT  COPY eSCREEN$ SCREEN$ ATTR  DRAW ▘POINT SCREEN$ SCREEN$ [K]SCREEN$ e[K][K]SCREEN$ SCREEN$ SCREEN$ [K]INKEY$SCREEN$ ATTR  MERGE UUINT  MERGE _ COPY  PRINT UeW PRINT UeSCREEN$ SCREEN$ ATTR  DRAW ▘POINT IN  COPY  IF SCREEN$ e[K][K]VAL$ AT [K]INKEY$SCREEN$ POINT  PRINT UUINT  MERGE { COPY UeYY RESTORE ▝eYUQSCREEN$ SCREEN$ ATTR  DRAW ▘POINT IN  COPY SCREEN$ e[K][K]ACS COS  PAUSE  PAPER ACS SCREEN$ [R] CLEAR UUINT  MERGE © COPY [N]UemW[L]ASN mUASCREEN$ SCREEN$ ATTR  DRAW ▘POINT IN  COPY  RETURN SCREEN$ e[K][K]TAB w[K]ASN TAB j▝ RETURN  COPY  COPY ▝? COPY  DRAW  COPY e/W IF ABS /@SCREEN$ SCREEN$ SCREEN$ JSCREEN$ POINT ATN  COPY  OVER  RETURN ▚e©[K][K]ATTR u PAPER TAB ATTR j COPY @3 COPY  DRAW  SAVE ▚e COPY  VERIFY [D] PAUSE Z COPY  COPY  COPY  LINE SCREEN$ POINT LN _ IF  LIST ▚eATTR )POINT  NEW INKEY$POINT SCREEN$  COPY ▗e COPY  LIST  LPRINT eDSCREEN$ ePOINT PI COPY  LINE  LLIST e▜ATTR SCREEN$ SCREEN$ k IF [K]INKEY$SCREEN$  RETURN Ue MERGE 5USR  READ ▗e<=@SCREEN$ ATTR  COPY eSCREEN$ NOT eNOT ATTR POINT  COPY e▝ RETURN ▚eUSR STR$ ▚e READ  COPY e▝SCREEN$ ATTR ▚eSCREEN$ USR ▚ec COPY POINT ▝e▝ RETURN ▚eUSR ▚ea▝e▝SCREEN$ ATTR ▚e COPY ▚eaSCREEN$ POINT  BORDER e▝ RETURN ▚eUSR ▚e BORDER e▝SCREEN$ ATTR ▚eSCREEN$ ▚eSCREEN$ POINT  BORDER e▝ RETURN ▚eUSR ▚e BORDER e▝SCREEN$ ATTR ▚eSCREEN$ ▚eSCREEN$ POINT  COPY e▝ RETURN  COPY eUSR ▚ea COPY e▝SCREEN$ SCREEN$ e@j▚eaSCREEN$ FN ▚e RETURN ▗e@▚e▗e COPY  COPY  IF SCREEN$ SCREEN$ [K]SCREEN$ jSCREEN$ ▚eSCREEN$ e[K]SCREEN$ INKEY$SCREEN$  RETURN @▚e▗eSCREEN$ e[K]SCREEN$ jSCREEN$ ▚eSCREEN$ e[K]SCREEN$ INKEY$SCREEN$  RETURN ? COPY  RETURN @▚e▗eSCREEN$ SCREEN$ SCREEN$  COPY  COPY  COPY SCREEN$ jSCREEN$ ▚eSCREEN$ SCREEN$ ATTR  COPY  COPY  COPY INKEY$SCREEN$  RETURN  COPY  COPY USR @ COPY ▚e COPY  COPY ▗SCREEN$ SCREEN$ ATTR  CAT  COPY  REM jATTR ▚eSCREEN$ SCREEN$ PINOT INKEY$SCREEN$  RETURN ▟OUSR @ MERGE ▚eU▝▗SCREEN$ SCREEN$ ATTR  STEP W REM  COPY ▝▗▚e COPY W[J]INKEY$SCREEN$  RETURN  STEP WNOT "ATTR ▚eSCREEN$ BIN NOT [J]▜ COPY SCREEN$ SCREEN$ ATTR ▗O INPUT ▝▚eUSR w▝[Q] RETURN ▚ OUT >="▝BIN ▚eBIN NOT SCREEN$ SCREEN$ SCREEN$  COPY  COPY  LET ▝BIN ▚e>=▛ COPY SCREEN$ SCREEN$  RETURN  COPY  COPY  COPY [A][C]ATTR  AND ▚eSCREEN$ <> COPY  COPY  COPY SCREEN$ SCREEN$ SCREEN$ ? COPY  RETURN LN ©▝ STOP ▚e RETURN SCREEN$ e COPY # MERGE  MERGE  READ ▚eUATTR BIN e COPY  COPY  IF SCREEN$ SCREEN$ [K][Q] COPY ATTR  LLIST eSCREEN$  COPY SCREEN$ e COPY ▗e  MERGE  COPY  LIST  LIST e COPY  MERGE eSCREEN$ e[K]ATN SCREEN$  COPY  SAVE ▚e COPY ATTR  GO TO SCREEN$ e RETURN ▗e POINT  RETURN ▚e© LINE ▝eSCREEN$ e[K][Q]SCREEN$  COPY eATTR SCREEN$ e COPY e RUN  COPY e LOAD  COPY e▝TAB Ue` MERGE TUe@*ATTR UeA COPY e LPRINT  COPY e COPY e LLIST ASN Ueq MERGE UUeTSCREEN$ ATTR ▙UeQ COPY e RANDOMIZE  MERGE Ue@UePSCREEN$ SCREEN$ SCREEN$ Ue COPY 4e(((0p(eheGehe((hxehGehhXxe((heGehe((hhPP8hhpGephhPxxhh((he0Ge0he(eGPLEASE REWIND THE TAPETO THE START OF SIDE 2, THE DEF FN FSTART THE TAP OR ELOADING BLOCK:[Q]GLOAD ERRO ERASE GWRONG  BLOC THEN DSTOP THE  TAP OR GEZONE  COMPLET OR COBJECTS COLLECTEDINT BENEMIES  KILLEDINT EPERFECT BONUS:G500VAL EPERFECT BONUS:G750VAL FSCOREINT WARP TOBONUS STAG OR GAME OVE ERASE HIT FIRE TO CONTINUE !!1VAL FBHIT FIRE TO START ![R] STEP POINT  READ >2 GO SUB >2 GO SUB >2P GO SUB 2Q GO SUB CODE 2 GO SUB 2  GO SUB 2! GO SUB >G STEP D OVER ! GO SUB c- GO SUB >23 GO SUB : CODE O: GO SUB EXP (k= !NOT  STEP VAL  BRIGHT !FNOT  STEP VAL  BRIGHT  INVERSE ! CODE X STEP ABS  OUT 8!!|NOT  STEP VAL  BRIGHT > OPEN # RETURN !mNOT  STEP VAL  BRIGHT  CLS dv CLEAR  NEXT CODE 2 CODE  OPEN # RETURN POINT : CODE O: GO SUB EXP   BEEP !YNOT  STEP VAL  BRIGHT : CODE  STEP F INVERSE  INVERSE ![ GO SUB [!CODE  STEP ABS  OUT 0BIN !▟NOT  STEP VAL  BRIGHT  STEP  NEW  OVER  STEP G OVER  GO SUB kkCODE ~ RETURN  COPY ( THEN PEEK  PLOT  #~ RETURN  COPY   PRINT !8 GO SUB  STEP ; OVER  STEP POINT  READ  GO SUB k- GO SUB  GO SUB c+ GO SUB :3 GO SUB 21 GO SUB !POINT  STEP ; OVER ! STEP  GO SUB  LPRINT SCREEN$  GO SUB VAL !FVAL  GO SUB c REM SCREEN$  GO SUB k+ GO SUB x GO SUB c STOP SCREEN$ >(2R GO SUB  INVERSE ! GO SUB !POINT   INVERSE }2 GO SUB  INVERSE u INVERSE , INVERSE t INVERSE , INPUT  CLEAR !#CODE : GO SUB  CLEAR  CLEAR o CLEAR n CLEAR ~2SIN >=g STEP  CLEAR  OVER  CLEAR ~2$ GO SUB  CLEAR n CLEAR f GO SUB ca OUT  CLEAR n CLEAR f GO SUB cj LINE  STEP R OUT  CLEAR n CLEAR f STEP o LPRINT  CLEAR ~2 BEEP 2 OR  BEEP  CLEAR n CLEAR f GO SUB c@ MERGE  MERGE STR$  PAUSE  GO SUB  OR :> GO SUB ATN   CLEAR n CLEAR f STEP VAL  BRIGHT  STEP  NEW  OVER >G STEP D OVER  CLEAR ~~2T GO SUB !INKEY$SGN #@8 STEP [S] OVER  STEP  DIM  INVERSE  STEP !Y CLEAR ~ STEP [C] OVER  CLEAR ~!▝e@ GO SUB cIN  INVERSE ! GO SUB  STEP [I] INVERSE  STEP  OPEN # CAT  STEP [T] LINE  STEP 8 LINE  STEP  MOVE :8 GO SUB ATN  TO   MERGE  STEP ▜ CAT  STEP SCREEN$  MOVE  STEP 0 STOP  STEP [H]>= STEP 0 STOP :9 GO SUB ATN ( INVERSE *: GO SUB  INVERSE  THEN F( INVERSE  THEN v TO LEN  INK  STEP ▛ INK  STEP 0 STOP  STEP  RESTORE  READ  STEP [H]<=:M GO SUB ATN  LINE C AND !N GO SUB 5CHR$ C AND  STEP POINT  READ >G STEP D OVER ![Q]NOT  STEP VAL  BRIGHT  STEP  PRINT  OVER !TAN NOT  STEP VAL  BRIGHT !K GO SUB  STEP 8 INVERSE :K GO SUB O:S GO SUB EXP  ! LPRINT NOT  STEP VAL  BRIGHT P STEP ( OVER  STEP  PRINT  OVER ! THEN NOT  STEP VAL  BRIGHT !L GO SUB  STEP 8 INVERSE :L GO SUB O:T GO SUB EXP  ! RANDOMIZE NOT  STEP VAL  BRIGHT u STEP ( OVER  STEP  PRINT  OVER :K GO SUB W STEP ( OVER :L GO SUB W STEP ( OVER !BIN  STEP VAL  BRIGHT ! GO SUB  STEP 2 INVERSE  STEP  NEW  OVER ! GO SUB c- GO SUB >23 GO SUB CODE 2 GO SUB  LLIST  STEP POINT  READ >G STEP D OVER !5BIN  STEP VAL  BRIGHT  STEP  NEW  OVER : GO SUB ATN  LINE ▚<==2 GO SUB >G STEP D OVER !ABIN  STEP VAL  BRIGHT >2 GO SUB  NEXT  INK  STEP ! BRIGHT  THEN bCHR$ ▜BIN  INK  LET y VERIFY O! GO SUB 5oH GO SUB SU INVERSE  STEP 8 INVERSE : GO SUB ATN   CIRCLE >G STEP D OVER !`BIN  STEP VAL  BRIGHT  STEP  NEW  OVER NOT zBIN  CLS v NEXT !H INVERSE ! LIST  INK  INVERSE  RANDOMIZE  LET  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  PRINT  INVERSE $ INVERSE  RANDOMIZE  LET  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  PRINT  INVERSE $ INVERSE  RANDOMIZE  LET  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  PRINT  INVERSE $ INVERSE  RANDOMIZE  LET  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  PRINT  INVERSE $ INK  THEN T [K] INK  INVERSE  RANDOMIZE  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  INVERSE $ INVERSE  RANDOMIZE  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  INVERSE $ INVERSE  RANDOMIZE  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  INVERSE $ INVERSE  RANDOMIZE  LLIST  MOVE STR$  INK  LET  MOVE STR$  RANDOMIZE  OR  MERGE  PRINT $ INK  OR  MERGE  RESTORE  INVERSE $ INK  THEN T SCREEN$  THEN m  INVERSE } VERIFY  SAVE NOT [R]<= INVERSE & LIST  INVERSE } AND  INVERSE o| VERIFY g} AND o ERASE [R]<=| AND g RETURN XCHR$ [R]<=1 REM  GO SUB <>!' GO SUB :+ GO SUB  NEW Gon INVERSE .& LIST L THEN PCHR$ 1<> INK  GO SUB [1 GO SUB  INK o[Q]▝g RANDOMIZE  INK  MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s,,a[Q] INVERSE -( INK { VERIFY >=1 REM  GO SUB <> INK ATTR  GO SUB [1 GO SUB  INK  LINE  COPY <>eOog RANDOMIZE  INK  MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w$ MOVE ~COS w,r, MOVE s$r- MOVE s-~SIN w,,aCHR$ ;<> INVERSE - LINE -<>} AND o INK { VERIFY <> INK ,,,WZ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE $ RANDOMIZE  MERGE -NOT  BORDER <> GO SUB [6 GO SUB {ATN >= GO SUB k+ GO SUB zATN  IF X LINE  GO SUB c+ GO SUB } NEW  !1 GO SUB 4 GO SUB c+ GO SUB } NEW  RETURN  !1 GO SUB 5 INVERSE !:+ GO SUB _ NEW O▜▝O INVERSE :$ GO SUB  CLEAR o>  THEN S(>0 INVERSE n INVERSE f INVERSE ^ INVERSE VO GO SUB VAL  INVERSE # INVERSE # INVERSE # INVERSE # CLEAR -  RESTORE <> INVERSE ! LPRINT SCREEN$  GO SUB C6 GO SUB :R GO SUB ATN (=2R GO SUB : LPRINT SCREEN$  INPUT @2 LPRINT SCREEN$  INVERSE  THEN F BIN  CLOSE # CLOSE # INVERSE  THEN F(7: DIM SCREEN$ <2 DIM SCREEN$  RETURN  USR !P GO SUB 5 LINE /<= STEP SCREEN$ 2 PAUSE SCREEN$ 2 NEXT SCREEN$ 2 BORDER SCREEN$ >2 LPRINT SCREEN$  INVERSE 6>(2R GO SUB >2Q GO SUB  STEP  DIM  INVERSE :> GO SUB ATN (CODE 2> GO SUB :5 GO SUB 2 RESTORE SCREEN$ CODE 2 NEW SCREEN$  INVERSE  THEN  VERIFY  INVERSE ~ THEN OCHR$  DEF FN  DEF FN  THEN WCHR$  LLIST  DEF FN  STEP ! BRIGHT  INVERSE r  INVERSE  THEN ACS :A GO SUB  THEN B M THEN J " THEN O( INVERSE  THEN v( INVERSE  THEN f(:G GO SUB  INVERSE  THEN  PLOT   THEN _ 5 THEN g v INVERSE  THEN  NEW  THEN _ H STEP STR$  VERIFY  i GO SUB k+ GO SUB :8 GO SUB ATN ( T DRAW  COPY  INVERSE  THEN INKEY$ THEN g ! STEP  TO  VERIFY  B GO SUB k+ GO SUB  PI GO SUB B(6 GO SUB k STOP SCREEN$  GO SUB c STOP SCREEN$  GO SUB C6 GO SUB : DIM SCREEN$  NEW 2 DIM SCREEN$  NEW  : PAUSE SCREEN$  NEW ( INK [H] LLIST  STEP USR  READ  INK CODE 2A GO SUB  THEN b LINE  THEN  TO :? GO SUB ATN CHR$  CAT  TO <2? GO SUB :H GO SUB ATN  . INVERSE ~ THEN o(T NEW  P GO SUB kD GO SUB  GO SUB cI GO SUB  THEN  RETURN } AND o6,6 AND o THEN ▚, THEN  DEF FN >2H GO SUB NOT  CAT  TO  INVERSE ~ NEW  & GO SUB kI GO SUB } AND  THEN f(q AND o THEN  DEF FN , THEN  AND , THEN ▙,6,6CODE  INK c:O GO SUB ATN (o![Q]SCREEN$  THEN F(.USR  THEN F b RESTORE  INK CODE 2LEN  GO SUB  GO SUB k STOP SCREEN$  INVERSE  THEN f  GO SUB cSIN  GO SUB : RESTORE SCREEN$  AND 2TAN  GO SUB CODE 2ASN  GO SUB 2ACS  GO SUB 2ATN  GO SUB LEN  GO SUB  LLIST  STEP { MERGE } VERIFY of(q,6:O GO SUB ='2O GO SUB  STEP  OVER [P] LLIST  STEP USR  READ  INK CODE 2? GO SUB  INVERSE  THEN VAL$  INVERSE  THEN F(; DRAW  STEP / BEEP (" INVERSE  THEN f( INVERSE  THEN INKEY$<> STEP V BEEP 2A GO SUB USR  STEP  RETURN  BEEP USR ! GO SUB c BORDER SCREEN$ NOT ' DEF FN  INVERSE  THEN ▚!FVAL  GO SUB c REM SCREEN$ ! GO SUB c BORDER SCREEN$  INVERSE ~ NEW ( THEN Z LINE s DEF FN _ STEP / BEEP USR > RETURN  THEN C ▜ INVERSE ▚2 RESTORE SCREEN$ <> INVERSE ~ THEN OCHR$  DEF FN  THEN _CHR$ <= STEP  THEN Z  THEN © 8 THEN W jCODE 2@ GO SUB NOT  DEF FN  THEN W ):@ GO SUB ATN CHR$  DEF FN : PAUSE SCREEN$  NEW  LOAD  PLOT  2 PAUSE SCREEN$ !VVAL  GO SUB c REM SCREEN$  INVERSE 6_>2@ GO SUB  INK ` LLIST  STEP USR  READ  INK & GO SUB  INVERSE n~ RETURN (,_: RESTORE SCREEN$  RETURN  POKE 0 RETURN  LPRINT 8:B GO SUB 2B GO SUB  INVERSE 4<> STEP / BEEP   INVERSE 4: RESTORE SCREEN$ 2 RESTORE SCREEN$ <>: PAUSE SCREEN$  NEW { PLOT  2 PAUSE SCREEN$ !^VAL  GO SUB c REM SCREEN$  THEN Z CODE 2@ GO SUB & GO SUB  INVERSE n-~ RETURN (& INVERSE u GO SUB D_:B GO SUB ATN (2B GO SUB <> STEP V BEEP 2A GO SUB  H STEP  RETURN  BEEP  X: RESTORE SCREEN$ 2 RESTORE SCREEN$ <> INVERSE  THEN [O] INVERSE  THEN f(:F GO SUB  THEN © F_ STEP V BEEP 2A GO SUB   INVERSE  THEN f 7 STEP  RETURN  BEEP  ) INVERSE  THEN  DEF FN !^VAL  GO SUB c REM SCREEN$ : RESTORE SCREEN$  AND 2 RESTORE SCREEN$ <>: RESTORE SCREEN$  AND  NEW (/ GO SUB D NEW  INVERSE ▚2 RESTORE SCREEN$ #: RESTORE SCREEN$ 2 RESTORE SCREEN$ :F GO SUB ATN  PAUSE m DEF FN _ STEP / BEEP {( INVERSE  THEN INKEY$INT  INVERSE ▚2 RESTORE SCREEN$ : PAUSE SCREEN$  NEW  LLIST 2 PAUSE SCREEN$ !FVAL  GO SUB c REM SCREEN$  THEN R>=: LET SCREEN$  NEW (_ STEP V BEEP USR > THEN C ▜ INVERSE ▚2 RESTORE SCREEN$ <>:A GO SUB  THEN w  INVERSE  THEN  AND !NVAL  GO SUB c REM SCREEN$ ! GO SUB c BORDER SCREEN$ <>:= GO SUB ATN   BORDER :H GO SUB ATN   LLIST  INVERSE  THEN  DEF FN  INVERSE  THEN  RETURN <>: NEW SCREEN$  VERIFY 8&2 NEW SCREEN$ : RESTORE SCREEN$  AND 2 RESTORE SCREEN$ <>: NEW SCREEN$  AND  RETURN (2 NEW SCREEN$ : RESTORE SCREEN$  VERIFY 2 RESTORE SCREEN$ <> INVERSE  THEN [G]<> LLIST :< GO SUB ATN ()CODE 2< GO SUB <2= GO SUB 2> GO SUB : GO SUB  VERIFY 2 GO SUB  GO SUB k/ GO SUB  GO SUB c- GO SUB :4 GO SUB 23 GO SUB >G STEP D OVER NOT ? OR <2< GO SUB : GO SUB  AND 2 GO SUB  GO SUB k+ GO SUB  GO SUB c/ GO SUB :1 GO SUB 24 GO SUB : RESTORE SCREEN$ 25 GO SUB !POINT   THEN F(} AND o THEN v  AND o^,V NEW © } NEW  LPRINT o LPRINT ! GO SUB c- GO SUB >23 GO SUB >G STEP D OVER NOT ? OR  INVERSE ![Q]SCREEN$  INVERSE  THEN FBIN [K] CAT  INVERSE .USR  INVERSE  THEN F>= INVERSE  THEN n . INVERSE ~ATN  # INVERSE V THEN B  THEN J(y GO SUB DO INVERSE n INVERSE f INVERSE u INVERSE t<>= INVERSE wUSR  INVERSE 6<> INVERSE !POINT   INVERSE  THEN F( INVERSE  THEN FBIN  INPUT  CAT  INVERSE  LOAD <> INK  INVERSE  THEN F( STEP  VERIFY  ERASE + VERIFY  INK <> STEP  RUN  MERGE  ERASE ▘ MOVE  INVERSE ~ NEW BIN J CIRCLE  INVERSE  THEN VAL$  INVERSE  THEN N( INVERSE ~ATN (  INVERSE ~ VERIFY  INVERSE w CLEAR ! LPRINT SCREEN$  CLEAR  THEN f u CLEAR  THEN V( INVERSE  THEN R VERIFY 0d INVERSE ~ CLEAR [G] VERIFY ( INVERSE  THEN V(T CLEAR  THEN  INPUT  INVERSE "D GO SUB J: PAUSE SCREEN$  NEW  PRINT  INVERSE  THEN N(1 PLOT  ▗2 PAUSE SCREEN$ !VVAL  GO SUB c REM SCREEN$ CODE 2B GO SUB : INPUT SCREEN$ >2@ GO SUB  INVERSE ~ AND  INVERSE w INVERSE 6SCREEN$ >2C GO SUB  INVERSE  THEN  INPUT  INVERSE  THEN F C INVERSE  THEN V BEEP   INVERSE  THEN N 2 INVERSE ~ AND  INVERSE w INK <> INVERSE  THEN PEEK  INVERSE  THEN ▙ INVERSE 6 INVERSE 6 THEN i NOT k MOVE  INVERSE ~ INVERSE  THEN  THEN  THEN F  STEP STR$  VERIFY  | INVERSE ~ GO SUB DO COPY  INVERSE  THEN F  STEP  TO  VERIFY  g INVERSE N INVERSE n INVERSE f INVERSE u INVERSE t INVERSE  THEN  INVERSE  THEN ~ GO SUB DO INVERSE N INVERSE ~▝ RETURN 8 INVERSE ~ INVERSE ▚ GO SUB D_SQR 0 INVERSE  THEN  AND  INVERSE  THEN  PLOT   INVERSE w:C GO SUB ATN (y2F GO SUB  INVERSE ~G GO SUB CODE 2C GO SUB  INK <> INVERSE ~H GO SUB ATN >= GO SUB kI GO SUB ,, GO SUB [ STOP SCREEN$ s,r,,: RESTORE SCREEN$  VERIFY w<> INVERSE !POINT   INVERSE  THEN F( INVERSE  THEN F TO  OR  MOVE  INVERSE  LOAD <> INK  INVERSE  THEN f / INVERSE  THEN f( INVERSE ~< NEW  INVERSE wCHR$ 7 OPEN # INVERSE 5CHR$ 7 OPEN #NOT + VERIFY  INVERSE  THEN F( STEP  VERIFY  ERASE + VERIFY  INK <> STEP  RUN  MERGE  ERASE 7 OPEN # INVERSE  THEN ACS  INVERSE ~ NEW BIN J CIRCLE  INVERSE  THEN V(* INVERSE 6© LLIST  STEP USR  READ & GO SUB  INVERSE n~ RETURN (, INVERSE uX INVERSE ~ NEW  CLS  PLOT   INVERSE w INVERSE ~ NEW  - STEP V BEEP  ( INVERSE  THEN ^  INVERSE  THEN f  INVERSE  THEN n INT  INVERSE ~ AND  INVERSE wNOT  OPEN # INVERSE ~ THEN [O] INVERSE  THEN ~ INVERSE  THEN ~ GO SUB D INVERSE ▚ RETURN 8 INVERSE ~ INVERSE ▚ GO SUB DOEXP 0 INVERSE  THEN  AND  INVERSE  THEN  PLOT  NOT 7 OPEN # INVERSE w INVERSE  THEN  THEN V( INVERSE  THEN INKEY$ INVERSE  THEN F  STEP  TO  VERIFY  v INVERSE N# INVERSE  THEN  THEN V( INVERSE  THEN  NEW  INVERSE  THEN F  STEP STR$  VERIFY  T INVERSE ~ GO SUB DO COPY  INVERSE n INVERSE f INVERSE u INVERSE t INVERSE  THEN V( INVERSE  THEN V  INVERSE ~< NEW  INVERSE w CLEAR ! LPRINT SCREEN$  STEP R VERIFY 8, INVERSE  THEN ^  INVERSE  THEN V  CLEAR ![Q]SCREEN$  STEP R VERIFY  PAPER  CLOSE # CLEAR .USR  STEP R VERIFY  PAPER  CLOSE # INK <> INVERSE ~ THEN VCHR$ B CLOSE #: RESTORE SCREEN$  AND  INVERSE [G] INVERSE [G] RETURN  ERASE < CLOSE #: PAUSE SCREEN$  NEW  ATN (LEN NOT < CLOSE # INVERSE  THEN ^CHR$ < CLOSE #: PAUSE SCREEN$  NEW  PRINT  PLOT  ▗2 PAUSE SCREEN$ !VVAL  GO SUB c REM SCREEN$  CLEAR 6vCODE 2B GO SUB <= LLIST  STEP USR  READ  INVERSE  THEN n( INVERSE 5(  STEP ( OVER  INVERSE  THEN  PLOT   INVERSE  THEN f( INVERSE  THEN  RETURN ▚ INVERSE  THEN f( INVERSE  THEN  RETURN  INVERSE 6LEN  INVERSE 6CODE  INVERSE 6 INVERSE 6 ' INVERSE 6 INVERSE 6STR$  INVERSE 6 INVERSE 6▚ INVERSE 6VAL  INVERSE 6 INVERSE 6 INVERSE  THEN  PLOT   INVERSE 6 STEP ( OVER :L GO SUB <'2L GO SUB  BEEP  LLIST  STEP USR  READ NOT 7 OPEN # INVERSE  THEN f([G] INVERSE [G] RETURN  ERASE 7 OPEN # CLEAR 6▝ CLEAR 6r CLEAR 6VAL  CLEAR 6<= LLIST  STEP USR  READ NOT [A] OPEN # STEP  CLOSE # CLOSE #NOT  OPEN #P STEP ( OVER  INVERSE  THEN  RETURN  INVERSE  THEN  PLOT   INVERSE  THEN  AND  INVERSE 6STR$  INVERSE 6 INVERSE 6n INVERSE 6VAL CODE  LLIST  STEP USR  READ  INVERSE ~ATN  :K GO SUB <'2K GO SUB NOT 7 OPEN #=(=(%=(4=(9>2M GO SUB > 2N GO SUB NOT + VERIFY :P GO SUB  RETURN  LINE 7 OPEN #<2P GO SUB  STEP :Q GO SUB  RETURN  LINE 7 OPEN #<2Q GO SUB  STEP  DIM  INVERSE NOT 7 OPEN #>`2R GO SUB NOT 7 OPEN #:O GO SUB  AND '2O GO SUB  STEP  OVER NOT 7 OPEN #:R GO SUB ATN USR :] GO SUB ATN USR CODE 2B GO SUB !Q GO SUB 5 STEP  DIM  INVERSE (: PAUSE SCREEN$  NEW  PRINT  PLOT  ▗2 PAUSE SCREEN$ !VVAL  GO SUB c REM SCREEN$ >}2 GO SUB SCREEN$ >(2R GO SUB <>!fVAL  GO SUB c REM SCREEN$ ! DIM SCREEN$ 6. NEXT  THEN  AND . LPRINT  THEN INKEY$ THEN  RETURN <>:6 GO SUB ATN >= GO SUB }▜ THEN ▜ THEN  THEN |▝_!N,F,yVAL >= RETURN  COPY >= THEN © STR$ >= PLOT  ,q,py AND O0 DATA  LLIST : GO SUB  RETURN  RETURN >=o VERIFY 2 GO SUB & GO SUB ~,fo_▜ RESTORE ob)rz FOR  LLIST w,w,w,w,w,w,w,w,w,CODE w,w,w,,, NEW   NEW  :6 GO SUB  RETURN > <CODE w,6,6,w,w,6,w,w,6,6,w<> GO SUB [+ GO SUB  INVERSE n INVERSE fPI GO SUB R| RETURN  CIRCLE  INVERSE  THEN  AND  INVERSE  THEN  PLOT  <> GO SUB [+ GO SUB  INVERSE n INVERSE f#~#foPI GO SUB R| RETURN <> INVERSE 6: GO SUB  AND o2 GO SUB & GO SUB  INVERSE }w, INVERSE |w INVERSE  THEN v  INVERSE ^ INVERSE V FOR  THEN PEEK  INK <>CODE  INVERSE ~ NEW [Q]USR  CLEAR ~ THEN G>= NEW [Q]USR  INVERSE ^ INVERSE V CLEAR n CLEAR fG GO SUB R8 FOR  INVERSE N FOR  GO SUB R8<> CLEAR N GO SUB R>=? FORMAT  CLEAR V CLEAR ~ CLEAR ▚ PAUSE [L] VERIFY ▘(' FORMAT WCODE O INVERSE ^ INVERSE ~ INVERSE ▚ PAUSE VAL$  VERIFY ( FORMAT _CODE EXP 0EXP 87<>_y▘SQR 87<>PI<> INVERSE n INVERSE f+> INVERSE n INVERSE f INVERSE NCODE G CONTINUE  COPY O} NEW EXP (CODE O<> INVERSE F INVERSE ~ INVERSE ▚ PAUSE  RANDOMIZE  VERIFY ( INPUT 0 GO TO GCODE O MERGE  FOR  STEP  RESTORE  BEEP y NEW = PRINT LN  GO SUB x~ AND _$ VERIFY 0 LOAD !LN  GO SUB LEN O, VERIFY 0 PLOT   THEN A MOVE <> INVERSE ~ INVERSE ▚ INVERSE  THEN ^ =O NEW  RETURN  [Q]O NEW G{ NEW LN (0[B]>Q# INVERSE ~ INVERSE ▚ INVERSE ▚ INVERSE  THEN ^ O NEW CHR$  READ  VERIFY O NEW SQR ( ERASE  READ  VERIFY >I2 LLIST  BEEP  THEN yCHR$  READ  VERIFY  MERGE  INVERSE n INVERSE f CONTINUE  COPY  INVERSE  THEN ^  INVERSE  THEN f( INVERSE ^ INVERSE  THEN  GO SUB D_ FOR  STEP  RESTORE  BEEP { NEW  INVERSE ▚[A] PRINT LN  GO SUB x~ AND _, VERIFY 0 LOAD !LN  GO SUB ,LEN O VERIFY 0 PLOT   THEN Iy MOVE <>y NEW  LIST e AND [g{ THEN : THEN : THEN : THEN :o<> FOR : CONTINUE SCREEN$ 2 CONTINUE SCREEN$  CLEAR !POINT   CLEAR  THEN F(' CLEAR  THEN F(! INK  STEP R VERIFY  INK 0 CLEAR ~ CLEAR ▚ INVERSE [G] VERIFY  RETURN 0_: CONTINUE SCREEN$ [F]2 CONTINUE SCREEN$  FOR ]<> CLEAR  CAT : CONTINUE SCREEN$ [F]2 CONTINUE SCREEN$  FOR CODE <> INVERSE ~ATN ( INVERSE 5<> INVERSE n INVERSE f~# RETURN 8▟ GO SUB  VERIFY _ CLEAR o CLEAR g CLEAR  DIM  INVERSE  THEN N(O INVERSE ~wt<>~#= INVERSE w~# OUT  INVERSE ~ATN ( INVERSE 5 ##INT ~ INVERSE w#NCODE G GO SUB BVAL$ ^#V FOR FN ~ NEW  LIST e INVERSE w~# NEW  INVERSE w[F]~# INVERSE w~# INVERSE w INVERSE 6NOT Z CIRCLE  INVERSE ~ INPUT  INVERSE wNOT Z CIRCLE ~#2LEN  GO SUB N#F# INVERSE ^ INVERSE V FOR  FOR  GO SUB SSIN  GO SUB ~# INVERSE ▚2TAN  GO SUB ~#2ASN  GO SUB ~#2ACS  GO SUB ~#2ATN  GO SUB  RESTORE LEN  GO SUB  STEP i MERGE  LLIST NOT Z CIRCLE  INVERSE ~ INPUT  INVERSE wNOT Z CIRCLE ~# FOR  GO SUB k STOP SCREEN$  INVERSE N INVERSE FPI GO SUB BO THEN ! GO SUB B FOR  ERASE [M] CIRCLE NOT AT  CIRCLE  INVERSE  THEN f LINE [M] CIRCLE NOT AT  CIRCLE ^#V#~#NOT Z CIRCLE  INVERSE  THEN nCHR$ AT  CIRCLE NOT [M] CIRCLE  INVERSE ~▚ INVERSE w INVERSE ~▚# INVERSE w INVERSE wNOT Z CIRCLE  DIM  LLIST NOT Z CIRCLE ^#V# RESTORE  STEP USR  READ  LLIST NOT Z CIRCLE  LLIST NOT + VERIFY  INVERSE !POINT   INVERSE  THEN F( INVERSE  THEN v TO INKEY$ INK  INVERSE  LOAD <> INVERSE  THEN ^  INVERSE  THEN fUSR  INK  INVERSE N INVERSE ~ THEN a( AND & GO SUB o^,V GO SUB S@ PAPER  INVERSE F INVERSE  THEN  INPUT  INVERSE n INVERSE f GO SUB [+ GO SUB CODE  THEN Y   INVERSE  THEN f( GO SUB RTAN  IF  NEXT  INK  V} RETURN  CONTINUE 0Q} RETURN  CONTINUE 8Jx VERIFY G GO SUB RTAN  ?] INVERSE  THEN VAL$ P THEN ▘ INVERSE F INVERSE n INVERSE f THEN I '{ NEW  THEN Q  THEN a( INPUT  THEN Y  THEN a( INPUT o INVERSE ~ NEW o~,fo STEP  INK <>zATN  PAUSE c PAPER >= FORMAT Gz GO SUB D▜▜O▜ THEN ▝K_z DEF FN WY STEP [M] BRIGHT  THEN 8>= GO SUB s<= PAPER  RANDOMIZE TAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN (CHR$ p PAPER Q{ AND  _ ERASE p PAPER 1<>zATN  PAUSE  LPRINT  PAPER >= FORMAT Gz GO SUB D▜W▜▘K_Y STEP [M] BRIGHT  THEN 8>= RANDOMIZE TAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN (CHR$  DIM  PAPER Q{ AND  _ ERASE  DIM  PAPER 1 NEW  GO SUB <>zATN  PAUSE 5 FLASH >= FORMAT Gz GO SUB D▜W▜▘K_Y STEP [M] BRIGHT  THEN 8>= CLEAR h RANDOMIZE &FN STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS  CLEAR -(CHR$ B FLASH  LIST { AND  _ ERASE B FLASH 1 NEW  GO SUB <>zATN  PAUSE [K] FLASH >= FORMAT Gz GO SUB D▜▜K_Y STEP [M] BRIGHT  THEN 8>= RANDOMIZE TAN  LLIST RNDTAN  LLIST RNDTAN  LLIST RNDTAN (CHR$ [T] FLASH Q{ AND  _ ERASE [T] FLASH 1 NEW  GO SUB <>zATN  PAUSE  LLIST  FLASH >= FORMAT Gz GO SUB D▜▜K_Y STEP [M] BRIGHT  THEN 8>= CLEAR h RANDOMIZE &FN STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS  CLEAR -(CHR$  GO SUB  FLASH  LIST { AND  _ ERASE  GO SUB  FLASH 1 NEW  GO SUB <>:W GO SUB ATN ( FLASH W<>W!X GO SUB ~, STEP ▝ BRIGHT 8 THEN  LINE ,~, STEP ▝ BRIGHT 8 THEN CHR$ ~, STEP ▝ BRIGHT 8 THEN  PAPER ,~, STEP ▝ BRIGHT 8 THEN  ERASE ~ STEP ▝ BRIGHT  CIRCLE  THEN  STOP <>/ COPY  RETURN  RETURN  GO SUB x/ NEW (USR g{ VERIFY  THEN <0 IF USR W THEN 8 CONTINUE IN <>O NEW <G THEN 9 THEN 9 THEN 9>[B]O> RETURN  CLEAR  FLASH  RETURN   DRAW <>{ NEW  SAVE _z NEW  LIST _z NEW  AND  LIST W<>~ATN (+ RETURN (@ RETURN (H RETURN (Z RETURN (b STEP H INVERSE  THEN ~ # STOP CODE 2a INVERSE ><>2r INVERSE < GO SUB CP INVERSE <>#N#F#x NEW  SAVE  AND @Wx NEW ▝_ GO SUB SU INVERSE LN CODE 2r INVERSE #~2w INVERSE #AT >$2a INVERSE #~#2w INVERSE ~2▚ INVERSE #CODE 2r INVERSE [G]CODE 2a INVERSE ><>2r INVERSE ##^#V# GO SUB SP INVERSE NOT VAL  BRIGHT  STEP 8 INVERSE  STEP 8 INVERSE ~ NEW  LIST e STEP F INVERSE ~ NEW , AND 0 INK ▜o&))< FOR !@ RESTORE O THEN 'LEN w STEP ▞ INVERSE  NEXT  LLIST }<2U INVERSE  STEP r INVERSE  INK <><> STEP  OUT  INVERSE >w:a INVERSE ATN >=} AND  o0$>w<>$| NEW USR } AND  o CIRCLE | VERIFY g<> STEP [O] INVERSE  STEP [O] INVERSE ~ NEW  LIST e STEP AT  INVERSE ~ NEW ,]T AND 0▜▜▜o>< DEF FN g GO SUB s PAPER  INVERSE  RANDOMIZE !@STR$ q$p$STR$ q$p$STR$ q$p$STR$ q$p}<2IN  INVERSE 1kb<>| NEW  PLOT  Xg<>!Q GO SUB w@ GO SUB SIN  INVERSE ~ATN (G OR !^ATN  STEP EXP  INVERSE STR$  PLOT  :Q GO SUB  RETURN >=!=NOT EXP  INVERSE !FN @ GO SUB cIN  INVERSE !P GO SUB NOT FN  INVERSE !LN @ GO SUB cIN  INVERSE !O GO SUB NOT [O] INVERSE !! GO SUB ~'w-~'w-~ DEF FN 'w<>6#yVAL   SAVE <> STEP  OVER !@ LPRINT WyVAL   CLS  INK  CODE w, IF >=} VERIFY  o{ VERIFY  _$ STEP ▞ INVERSE z NEW  RETURN   VERIFY { VERIFY  _8 FORMAT z AND W LINE !XX COPY w GO SUB VAL <>P]w, DRAW kB   LET <>CODE 2LN  OVER  MERGE  OR  MERGE  OR  GO SUB VAL STR$  MOVE  FOR  STEP ▞ INVERSE  FOR   LIST <>STR$  MOVE xG FOR  STEP  OUT  INVERSE  FOR  OR  MERGE  GO SUB VAL  MOVE STR$ { AND  _0  INPUT ><>2LN  OVER <>CODE  FLASH  RETURN / NEW   SAVE <> STEP ! BRIGHT  THEN b  RANDOMIZE  STEP ! BRIGHT  THEN b( RANDOMIZE <>2 CLS v CLEAR  NEXT <> INK !cc COPY u GO SUB VAL  INK c>0 STEP ? OUT !c0&+ THEN +~ THEN ## NEXT  THEN A(~++Fw##p###  OUT   PAPER <> RESTORE  MERGE   GO SUB [Q] GO SUB [Q] REM D OUT =  PAUSE  MOVE  LLIST <>!`ATTR aATTR IN 6 GO SUB VAL  INVERSE !`ATTR :$ GO SUB O INVERSE n INVERSE f OR  RESTORE   GO SUB VAL  LLIST  INVERSE ~ STEP RND OUT > STEP ? OUT  RESTORE  FOR  STEP  OUT  FOR  LLIST  INVERSE ~ STEP RND OUT STR$  BEEP >= INVERSE # INVERSE # INVERSE # OR  RESTORE  MERGE _C,~- THEN , THEN  PLOT  ,  LIST  MOVE  LLIST <>> COPY 7> OPEN # RETURN  FLASH  RETURN  NEW   PLOT  OIN USR  STEP O LPRINT 0 IF ! RETURN +|ASN   RANDOMIZE  STEP K LPRINT 0 FOR [M] STEP K LPRINT 0 DATA > AND LN 0 LPRINT $  LET <> STEP O LPRINT 0 MERGE x RETURN  CLOSE #0 POKE  STEP O LPRINT  FORMAT y INPUT O&VAL  0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE #SIN . STEP K LPRINT  FORMAT > THEN LN  THEN VAL  ERASE / LPRINT |TAB gzCOS   LINE CODE  OPEN # RETURN | RETURN <> STEP O LPRINT  FORMAT >=  CLEAR PI>=>© FLASH  RETURN POINT  NEW  ( NEXT y/O GO SUB _ NEW  PLOT   OPEN # RETURN 7<>[ INK  INK ~#ATN ( STEP [P] LPRINT   INPUT <>F#Oy STEP [P] LPRINT >= RUN  BRIGHT  NEW © FOR  INK yVAL  INK <> INVERSE f OR  RESTORE   GO SUB VAL  LLIST  INVERSE ~ STEP LN  OUT > STEP R OUT  RESTORE  FOR  STEP + OUT  FOR  LLIST  INVERSE ~ STEP LN  OUT STR$  BEEP >= INVERSE # INVERSE # INVERSE # OR  RESTORE  MERGE _C,~- THEN , THEN  PLOT  ,)*89;<+:=>?)*89;<+:=>?VAL$ e?eSQR  STOP  OVER  STOP  IF  STOP  READ  READ  READ 2 READ A READ I READ _ READ j READ u READ ▚ READ  READ [J] READ [N] READ / COPY  COPY  COPY  RETURN  COPY   COPY  RETURN  COPY    COPY  P COPY  COPY  COPY   COPY   COPY  COPY   `▗e COPY ▗e  COPY  RETURN e :% GO SUB ATN >= INVERSE ! INVERSE ~ATN BIN b STOP  THEN ! INVERSE } AND  INVERSE o LOAD ! LLIST Ti^IN  GO SUB y- PAUSE S STOP <> THEN _(- INVERSE ~ATN ( INVERSE 5 " INVERSE  THEN  NEW  INVERSE 5  INVERSE ~ INVERSE w INVERSE ~/_ INVERSE ~/W INVERSE s INVERSE r INVERSE  THEN N( INVERSE 5 , INVERSE  THEN ▙ INVERSE n INVERSE f> LLIST ~#ATN (_ CLEAR o CLEAR g CLEAR  DIM ~# INVERSE w INVERSE  THEN  DEF FN  INVERSE u INVERSE t INVERSE ^ INVERSE V INVERSE n INVERSE f INVERSE u INVERSE t<> INVERSE  THEN V( INVERSE 5 ## INVERSE  THEN [G]ATN ~ INVERSE w INVERSE  THEN  VERIFY #^CODE W GO SUB RPI~# INVERSE w~# INVERSE w[L]~#2; LLIST [E] INVERSE  THEN  OVER ~# INVERSE w~# INVERSE w INVERSE w~# INVERSE w~# INVERSE wNOT FN  STOP  INVERSE  THEN INKEY$ INVERSE 6 INVERSE 6NOT FN  STOP ~# INVERSE w#V# RESTORE  INVERSE n INVERSE f INVERSE u INVERSE t LLIST NOT FN  STOP :; LLIST ▚#2; LLIST NOT FN  STOP ~# INVERSE ▚FN  STOP 8y INPUT ?COS W:< LLIST [S]2< LLIST NOT FN  STOP  GO SUB y[T]W:< LLIST SIN 2< LLIST NOT FN  STOP 8 LOAD :< LLIST LEN 2< LLIST  INVERSE 6<>:% GO SUB ATN >=>?2< LLIST CODE 22, LLIST NOT M STOP :% GO SUB ATN >=!.~ATN (.,6,s,r<>:% GO SUB ATN USR y2& GO SUB <>:& GO SUB ATN >=CODE 2& GO SUB =(=(=($8: RESTORE SCREEN$  AND @OCODE ATTR  OPEN # RETURN A RETURN   RUN <>@CODE ATTR  OPEN # RETURN B RETURN   RUN <>@CODE ATTR  OPEN # RETURN O GO SUB _ NEW  DRAW G RETURN y  LOAD <> CODE ATTR  OPEN # RETURN O GO SUB _ NEW  DRAW G RETURN y  LOAD <>eeeeeeee COPY e CLOSE #e▞e▜e[[N]eeX"%&  IF  IF  IF  DRAW  DRAW  DRAW  RETURN  RETURN  SAVE e IF  IF  IF  DRAW  DRAW  RETURN  IF  IF  DRAW  DRAW  RETURN  DRAW  DRAW  DRAW  RETURN  DRAW  DRAW  RETURN  RETURN ▜ CIRCLE [B] CIRCLE RND CIRCLE AT  CIRCLE SIN  CIRCLE  OR  CIRCLE  VERIFY  CIRCLE  LLIST  CIRCLE  INK $ INK $ INK C INK M INK W INK a INK v INK { INK ▜ INK ▙e▚ FLASH  LINE  PAPER D PAPER  STEP  FLASH  FLASH STR$ X[H]e CLS  GO SUB M GO SUB ©e GO SUB ©e GO SUB e COPY e COPY eBHY65TGVNJU74RFCMKI83EDX?LO92WSZ??P01QA?X COPY eSCREEN$ Xe LINE X# NEXT 1 GO TO  GO SUB > INPUT  GO SUB G GO SUB ^CODE  OPEN # RETURN >G STEP D OVER !Z LET  STEP VAL  BRIGHT  STEP . LET  CLS v NEXT > CLEAR  FLASH  RETURN  NEW  !> CLEAR  FLASH  RETURN  NEW  > RETURN  FLASH  RETURN  NEW  > CLS  FLASH  RETURN  NEW  >2] GO SUB > OPEN # RETURN  STEP > LET  GO SUB kU GO SUB :H LET  STEP 9 LET > RUN  FLASH  RETURN  THEN G LINE zBIN  STEP ! BRIGHT  THEN b([T]NOT zBIN y RETURN 0  FLASH ATN  [G]& LIST iU GO SUB  GO SUB VAL } RETURN 0 S STEP . LET !FN  PAUSE  STEP VAL  BRIGHT  STEP  INVERSE  OVER  INVERSE !X GO SUB !q@@ RESTORE  OR  GO SUB cU INVERSE  STEP a BRIGHT   CLS ( SAVE !X GO SUB z GO SUB LEN ( GO TO  INVERSE w INVERSE ,! LIST o~ STEP H INVERSE STR$  LLIST } AND  o0y AND Oa<> STEP  INVERSE  OVER NOT R LIST  STEP . LET NOT [ LIST !jX>GNOT [C] OVER w, DRAW <>>< NEW 2? LET USR >=2H LET <( RETURN USR !I LET s<>GETURBO  THE TORTOISE1. CONTINUE2. KEYBOARD3. KEMPSTON4. SINCLAIR eFPUBLISHED UNDER  LICENCE BYBHI-TEC SOFTWARED(C) 1992 PAL DEVELOPMENTS) 1992  VISUAL IMPACTEPROGRAMMED BY DAVE THOMPSONFGRAPHICS BY  JARROD BENTLEYBSPRITES BY  DENNIS MULLINERGA VISUAL IMPACT  PRODUCTIO DEF FN  LEFT: eRIGHT: e   UP: e DOWN: e FIRE: e[Q][E]e[G][F][E][D][D] DEF FN oq DEF FN ▟▛▞▖▜▚_▝ASGN SQR TAN EXP SQR 7ACS ASN TAN SIN MVAL$ OTVAL$ AT AT SQR [S]POINT FN PIINKEY$RND$[T]"[R]. OUT  LLIST  INVERSE  BRIGHT RND PAPER  MOVE  INK  BEEP  OVER  MERGE  CLOSE # ERASE -../ DEF FN  GO SUB >= LINE  LINE >=>=<= AND / CLOSE # STOP ZAUSR  COPY  RETURN  CLEAR  DRAW  CLS  IF  RANDOMIZE  RANDOMIZE  RUN  PLOT   POKE  POKE  NEXT  PAUSE  LET  LIST  LOAD  GO TO  GO SUB  DATA  FOR  REM  DIM  CONTINUE [H]CSTR$ N LINE H[G]a mLEN M READ fg LOAD [P]SGN  GO SUB lmnopqrs PAUSE ▚ LET xy OVER  GO SUB  IF }~>▛Qy©TLN 967452301./,- VERIFY p; MOVE XY$%"# [R]Y-([T][S]Q_PQmTAB RIVAL$ WG DEF FN VAL VKASN  DEF FN @AMtE@v▚ IF PEEK [O]wprsa▛Y▟CHR$ Ak[E][D]TAB {`ab[M][L] RESTORE f DATA @t[N]~[P][A][B][C][D][E][O]ihvI▘▛▟▙▝▘X▚▗JSQR SGN [T]PEEK PEEK  LIST VAL 2COS ASN JH^POINT SCREEN$ ATTR AT TAB INKEY$CODE [Q][R]]#[U]Z&9 CIRCLE  AND * BRIGHT   INVERSE  OVER  BEEP  FORMAT  MOVE  PAPER  OPEN # CLOSE #*)*<> LINE  LINE  STEP  STEP  DEF FN  CAT USR STR$ BSQR BIN  OR F<= SAVE  RANDOMIZE  IF  CLS  DRAW  CLEAR  RETURN  COPY  LIST  LET  PAUSE  NEXT  POKE  PRINT  PLOT   RUN  CONTINUE  DIM  REM  CLS  DATA  GO SUB  INPUT  LOAD USR  LLIST  STOP  READ  DATA  RESTORE  NEW ` STOP  READ  DATA  REM  CONTINUE  DIM  REM  DATA  PLOT   SAVE  IF  CLS  NEXT ?STR$ CHR$ NOT BIN  OR 9876543210/.-, CLOSE # MERGE  VERIFY  CIRCLE '&%$#"! GO SUB pqrs|▝ef©xyz{dbK76543210?>=<;YZ[DEA'%& /./.iKk DIM  BEEP  VERIFY  CLOSE # MERGE  ERASE  OPEN # FORMAT  MOVE  OVER  OUT  BRIGHT  INVERSE  FLASH EXP INT [T]SGN ABS PEEK [H]▖ OR  AND USR  CAT  DEF FN  CAT  DEF FN ▞▖▛<> PLOT   RUN  POKE  PRINT  PAUSE  NEXT  LIST  LET  RETURN  COPY  DRAW  CLEAR  CLS ▝▘[M][N][O]ATN  DATA  RESTORE  NEW  LPRINT  LOAD  INPUT  LOAD  GO TO  FOR  REM ATTR i[G][H][E][F][C][D][A][B][P][O][N][M][L] LLIST  STOP  READ  DRAW  CLEAR  RETURN <=▗▚▙▛ THEN ▞ACS ATN TAN TAN COS SIN LEN VAL IN PEEK ABS SGN SQR  DIM CHR$ NOT  BRIGHT  INVERSE  OVER  BORDER [U]RNDINKEY$[Q]CODE CODE CODE AT ATTR SCREEN$  FOR (WVTUR89:;<8#"=<EDG@ONNmjHwvuts23$'$#dg`onnoh)* FOR P_~}|yx{rGFGFAOLMJKH76761032=~}|y8;<▝e"! 'f%anolmml/SCREEN$ [F] CLOSE # BEEP  VERIFY  MOVE  MOVE  ERASE  OPEN # BRIGHT  BRIGHT  OUT  BRIGHT  FLASH  CIRCLE  FLASH  BRIGHT NOT CHR$ STR$  CAT >=▚ OR BIN ▙▟▟ TO  LINE  LIST  LET  RUN  NEXT  LET VAL COS  NEXT  RANDOMIZE  DRAW  COPY  RETURN  CLS  SAVE  CLS  DRAW  READ  STOP  LLIST  BORDER  LPRINT POINT  RESTORE  DATA ATTR  GO TO  LOAD SCREEN$  GO SUB  GO TO CODE j[F][E]SCREEN$ [D][B] FORMAT [D][C][N][M][P][P][I] OVER  INVERSE  BRIGHT ▘▝▜>=BIN  THEN  LINE ▟ TO  CAT VAL TAN ATN ACS VAL LEN COS COS SGN ABS PEEK IN LN  RETURN  OR  PAUSE RND[U]PIINKEY$[R][Q][T] DATA  FOR  REM  DIM SCREEN$ TAB FN  FOR )VWTURSPP_^/FWDEBC@NINKHIv~}|{rqq~yz{|}89fgd`gf`'n/h).ih REM [DEEJKL=<?>9833<{89>?<="%&' !d▝e,-jj-,jSCREEN$  INVERSE  BRIGHT  OUT  OVER  INK  CIRCLE  OPEN # OPEN #[M][L] CIRCLE  INK  OVER  OUT  BRIGHT  INVERSE CHR$ NOT  AND <=USR ▜▗ TO  STEP  THEN  PAUSE  PRINT  TO  LINE  CLEAR  DRAW  COPY  RETURN  RANDOMIZE  SAVE  NEXT  PAUSE  CLEAR  CLEAR  DRAW IN  RETURN  COPY BIN  CLEAR  STOP  READ  NEW  BORDER  LLIST  LLIST  STOP  READ  GO TO  GO SUB  FOR  ERASE  MERGE  GO TO  LOAD j[F][M][P][O][J][A][C][C][N][P][M] OUT [O][P][M][N]▘ OR ▜▚▝▝▘▟SQR INT ABS SGN ASN TAN ATN ACS LEN  LET SIN COS SGN IN PEEK IN PEEK IN SGN ABS  DATA RNDINKEY$PI[Q][R][S][T]AT FN ATTR SCREEN$ TAB AT CODE ,SRihoFBCcbaHHIJKTUVW©~}T/]qp_YZLs74523 #,-./()*+4567"# !lmnohij STEP /gd▖! DEF FN USR  STEP (STR$  INVERSE ![E]USR  INVERSE ^ INVERSE VzCOS   INVERSE ![E]USR  LIST  STEP ;STR$  INVERSE # INVERSE #  NEW > STEP 1SIN  INVERSE  RESTORE  STEP A▝e0 INVERSE  LLIST  STEP "TAN  RETURN   STEP [O]d STEP ▙h8E LOAD !6i RETURN  ~= PAUSE /USR >w INVERSE ~ INVERSE ACS  INVERSE # INVERSE #CHR$ USR  INVERSE ![G]USR NOT USR  RETURN  >=~< RETURN 8CODE w INVERSE + INVERSE + INVERSE ~ INVERSE ACS CHR$ USR  INVERSE ! LINE USR NOT USR <>7▞J▖l▚©▝s▚U▖&▛ PRINT ▟ OPEN #LEN [B]CODE [B]SGN [A] PAPER ▙ BORDER ▟ CLOSE #▙SIN [A][P][B][N][B]SQR  PAPER ▟▛:▖[▚mob▚D▖© COPY  RETURN  BORDER  COPY  COPY  OUT  COPY e CIRCLE  LIST  FORMAT  FORMAT  LIST  FORMAT  LIST  LIST  LIST  LIST  LIST  LIST  LIST eeeeee OR e DEF FN  DATA P DEF FN  RESTORE P BRIGHT  DEF FN  DIM P BRIGHT  BEEP 8 FLASH |8 CLOSE #MLEN 3 SAVE ]LEN 3 SAVE ] NEXT ] LOAD ] NEXT ]LEN 3 FLASH |8 FLASH |8 CLOSE #M[R]Y_[Q]YLUSR Wq AND PIav><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB>e>BB<DHpHDB@e~BfZBBBBbRJFB<Be<|BB|@@<BBRJ<|BB|DB<@<B< RETURN eBe<!! GO SUB ~'w-~'w-~ DEF FN 'w<>6#yVAL   SAVE <> STEP  OVER !@ LPRINT WyVAL   CLS  INK  CODE w, IF >=} VERIFY  o{ VERIFY  _$ STEP ▞ INVERSE z NEW  RETURN   VERIFY { VERIFY  _8 FORMAT z AND W LINE !XX COPY w GO SUB VAL <>P]w, DRAW kB   LET <>CODE 2LN  OVER  MERGE  OR  MERGE  OR  GO SUB VAL STR$  MOVE  FOR  STEP ▞ INVERSE  FOR   LIST