Chicago's 30: CHICAGO.B

  1 REM © FREDDY PRESENTS - CHICAGO 30@CODE 2] GO SUB [ POKE /<>~ RETURN @>= RETURN  ( RESTORE  PRINT !dd STEP ASN  LET  LLIST  BEEP # BORDER !@] STEP m]!`_[D] STEP _] STEP FN aNOT  CONTINUE SIN 
  2 BORDER NOT PI: PAPER NOT PI: INK PI+PI+PI: CLEAR VAL "24415": RANDOMIZE USR VAL "23942"
  28416[M]m(#ATTR od RANDOMIZE ?]T© FREDDY PRESENTS - CHICAGO 30 DIM [Z8[R]dresLEN _][R]dresSIN FN a[R]dresTAN ▚][S]lo FOR [R]dre NEXT `_[U]lin LLIST  ERASE [C]COS ekto PAUSE [D]An[R]dresCOS  CONTINUE SIN [U]linaSIN ZSCREEN$ 5619: REM : SAVE "hhhhhh"_   COPY    COPY  COPY  COPY ^"^▗~TUSR :/USR  STOP  CLEAR ©[L]6X'`[I]`a[I]ab[I]bc[I]cd[I]de[I]ef[I]fg[I]gh[I]hi[I]ij[I]jk[I]kl[I]lm[I]mn[I]no[I]op[I]pq[I]qr[I]rs[I]st[I]tu[I]uv[I]vw[I]wx[I]xy[I]y COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY > CAT  NEW  PLOT  @USR T FLASH f[C]T PAPER F"T[K]f[C]V[J]bSIN F FLASH "T FLASH F"T FLASH F2R<>&[A]V FLASH F[S]TCF2T[K]F▘D FLASH "[C]T OPEN #f"@USR z OUT V DEF FN } COPY  COPY  DRAW @KACS  OPEN #:S[E]Zr]ACS [J] REM NSCf DEF FN bQx[M]j OVER yHZ BEEP ▘jYASN  READ jI LOAD kHBu INK j[NOT *ZgSQR bH LLIST [M]jS VERIFY GjE2 OPEN #^SIN >= REM YINKEY$RrCACS  FLASH @< READ  COPY  RETURN !USR a[7 MERGE  GO SUB VAL !bFN a POKE [N]NOT NOT 3! STEP  LET  COPY  COPY  RESTORE PIaATN  GO SUB B LLIST >=~ RETURN [J]( GO SUB FN  INPUT +F THEN x( THEN LN xPI( RETURN >0>[J]+~ DRAW + CAT [I][J] COPY [J]▗[J]L TO  TO LBIN LDBIN LBIN  TO LBIN  TO LBIN LLBIN LBIN BIN DBIN BIN L TO LLBIN D TO  TO L TO LBIN [J]▗[J] COPY [J]▗[J]INT SCREEN$ INT  CLEAR  BEEP u PRINT  OUT  COPY [J]TAB  BEEP  PRINT {▗[J] COPY [J]▞[J]x[J]|[J]|< RETURN > LIST  RETURN  LIST > SAVE ~ DATA ~ DRAW  RETURN  INPUT ~ DRAW  RETURN  RETURN | RETURN [J] DRAW  RETURN [J] DRAW  RETURN  DRAW  RETURN  SAVE  RETURN  DRAW ~ DRAW  RETURN  RETURN ~ RETURN  RETURN  DRAW  RETURN [J]~ RETURN [J] DRAW  RETURN  DRAW  RETURN  DRAW  RETURN  DRAW  RETURN  DRAW  RETURN  DRAW  RETURN [J]~ RETURN [J]~ RETURN ~ RETURN [J]~ RETURN  DRAW  RETURN [J] DRAW  RETURN [J]~| DRAW  RETURN ~ RETURN ~ RETURN ~ RETURN PEEK  RETURN  RETURN ~ RETURN [J] SAVE  RETURN [J] SAVE  RETURN  RETURN  DRAW  DRAW  RETURN  RETURN  DRAW  RETURN  RETURN  DRAW  RETURN [J]~ RETURN [J]~ RETURN  DRAW  RETURN [J] DRAW  RETURN ~ RETURN  DRAW  RETURN ~ RETURN [J] COPY  RETURN [J]~ RETURN [J]~ COPY  RETURN ~ RETURN [J] COPY  DRAW  RETURN  RETURN  DRAW  DRAW  RETURN [J]~ RETURN [J] DRAW  RETURN  RETURN ~ IF  DRAW  RETURN [J] DRAW ~ RETURN ▗[J] PRINT  CIRCLE ^ SAVE t▙BPOINT  OR P LIST  BRIGHT LEN  INK [I][Q]) LIST [C]R© RETURN  LLIST  BORDER  COPY RND THEN  CAT EXP ▘[P]s>=[H]> BORDER STR$ V} CAT >=[H] CLS [P]STR$ CODE  RUN ?!. RETURN ~dTAB  DRAW  DRAW  LLIST CODE  COPY  COPY  RESTORE [Q]_ COPY  COPY  SAVE @_ CLEAR IN  PAUSE _ RANDOMIZE IN  SAVE _ PRINT IN  PAUSE _ RANDOMIZE IN  CONTINUE _ PRINT IN  PAUSE _ RANDOMIZE IN  CONTINUE _ CLEAR IN  PAUSE _ RANDOMIZE IN  IF _ CLEAR IN  LIST _ RANDOMIZE IN  PAUSE _ DRAW IN  SAVE _ RANDOMIZE IN  PAUSE _ PRINT IN  CONTINUE _ RANDOMIZE IN  PAUSE _ CLEAR IN  CONTINUE _ CLEAR IN  PAUSE _ RANDOMIZE IN  SAVE _ PRINT IN  PAUSE _ RANDOMIZE IN  CONTINUE _ PRINT IN  PAUSE _ RANDOMIZE IN  SAVE _ PRINT IN  LIST _ RANDOMIZE IN  SAVE _ CLEAR IN  REM _ RANDOMIZE ? LIST _ PRINT IN  REM _ RANDOMIZE IN  LIST _ CLEAR IN  REM _ CLEAR IN  LIST _ RANDOMIZE IN  IF _ PRINT IN  SAVE _ RANDOMIZE IN  PAUSE _ PRINT IN  CONTINUE _ SAVE IN  PAUSE _ MERGE ATTR  CIRCLE JPOINT [F]SCREEN$ @© RUN  COPY  IF ▗[J]© COPY  COPY  RETURN *SCREEN$ [J]▖[J] CLS  FLASH  FOR  CLS { CLS  CLS  CLEAR SCREEN$  CLS {z[G]4©▖ COPY _▘6 LOAD + OR a MERGE X NEXT  OUT } PRINT  RUN  OVER = NEXT [T] GO SUB [SIN Z© STEP {©? CAT ;©E BEEP wmt RUN  RUN 7 FOR  PRINT  RUN w PRINT [S] FORMAT  PAUSE h©EXP O©_SGN ?+AT _Us SAVE  FOR  PRINT  RUN  CONTINUE k NEXT [T] BRIGHT rUSR  ©SGN  OUT  COPY ?SGN  OUT _ULN  OUT %USR  CLS  BRIGHT  FLASH EXP  IF  DRAW  PAPER  IF QlSTR$ yUSR IN SGN  INK IN CODE [M] CAT [P][F]( MERGE *USR  RANDOMIZE | INK  IF  IF  SAVE  PAPER  RANDOMIZE  MOVE x MOVE yUSR IN SGN  OVER ?[P]AT  OUT /[S][A] LINE [C]USR  CLS  SAVE  FLASH  MOVE  IF  POKE  PAPER  STOP Qx MOVE yUSR PEEK < OUT IN CODE [N]o[P][F]( DATA *`EXP  SAVE  DIM  IF  IF  LET  STOP  RANDOMIZE  MOVE z LET y LIST ABS INT  NEXT IN  /*|[C]▗[J] LOAD  COPY © COPY ▖[J]ATN Y"ATN  COPY  COPY ▗[J] COPY  OUT  COPY  CAT ▖[J]$ COPY ▗[J]© COPY  CLS  RETURN ▞[J]SIN  FLASH [© COPY ▗[J] NEXT  COPY [J]▚[J]ekB7 COPY  COPY O COPY  COPY ▗[J] COPY  COPY o COPY [J]` v? COPY  COPY  COPY ▗[J] COPY  LOAD  RETURN  COPY ▗[J] RUN  NEXT  LIST > PRINT  PRINT  LIST ~[S] PAUSE [Q]>[J]P©©p>]'X~*E(~[J] PAUSE  PRINT  LIST J PRINT  NEXT  SAVE ~[S] PAUSE [Q]~▗[J]©©x.?_0_E%P*▗[J] RUN  OPEN #x~ PRINT  PRINT  LIST [S] PAUSE [Q]~[J]|[J]x~_?P~*U [J]~s PRINT  LIST ~ PRINT  NEXT  POKE _[S] PAUSE [Q]~[J]~{gpT<O8~U%P~~[J]| NEXT  RUN  NEXT ~ PRINT [J]Rr[S] PAUSE ~[J]~ COPY s©~©_?~[F]*U$[J]~e NEXT  PRINT ~ PAUSE  PRINT  NEXT N RESTORE " PAUSE ▗[J]V PRINT m©IN <PEEK _T RESTORE U%▗[J]J NEXT  RUN [T] PLOT  U PRINT  OR nSIN [S] PAUSE ~[J]~|©©| COPY _?( MERGE (U~[J]> PRINT  NEXT [F]s PRINT ~ ERASE [S] PAUSE ~[J]jgG©>CODE ._vUU%▗[J][S] NEXT  RUN  OR M PLOT  ASN  MOVE [M]p/▘([G].P.U▙LN [H]~IN Hr RETURN ATN RNDINT  RETURN CODE ▛z INPUT PEEK [U] PRINT  OVER SGN CHR$ UACS EXP  BEEP %fCOS USR  PRINT  DEF FN PI ERASE u RETURN IN <=TAN Q COPY  COPY  OR $ASN  RETURN IN STR$ u RETURN IN  OPEN #[F]~SQR <= RETURN ATN Uu OVER PEEK BRNDINT SGN  BEEP e RETURN EXP NOT TAN S COPY © STOP ▗[J]+ COPY  COPY  RETURN SQR [N]v▖[J]ACS TAN  PAPER  RESTORE ^}y BEEP <q▞ OUT ,~/IN W,_k* CLS @ CLOSE #_s[U]* RETURN u POKE UWs[J]*U OUT CODE /G<k CLS @AT oq BRIGHT *ACS s DRAW Uou@U OUT ABS /o<WIN @ CLOSE #oSd*SQR r POKE _q* COPY @<kZZ COPY PI,[' RETURN { NEW 3 COPY ? PAUSE 9 RUN [P] SAVE < COPY  CAT  POKE >© BORDER ~?? ERASE ~?[P] RANDOMIZE  RETURN ? CAT  DRAW  RETURN ?PI RETURN ~? OPEN # COPY : LET ©[O] POKE  COPY 3 COPY ? PAUSE 9 COPY [P] SAVE < COPY  CAT  DRAW >© BORDER  RETURN ?? PAUSE  RETURN >[P] RANDOMIZE  RETURN ? STEP  POKE  IF ? READ  RETURN ~ NEXT  COPY > RANDOMIZE  COPY [O]SGN  COPY  DEF FN '^© NEW 3 COPY ? PAUSE 9 COPY [O]LN < COPY  CAT |© BORDER  RETURN >? NEXT  RETURN ? LIST  INPUT @[H][J][J][J]USR !`B LIST x▚[J]USR USR USR USR USR ▜[J]USR T THEN r*U[S]T THEN vUSR "JACS T MERGE  PAUSE * THEN bUSR TWv* THEN  ERASE T[J]o** COPY TUCODE (*[J]AATTR ([H]©A()P[J]0)`@P ▝)a"!`P /"p*▛RU! !F▗[J] RUN  NEXT  RUN  NEXT  PRINT [J][S] PAUSE [S] PAUSE ▗[J]©os©_;_?-5©©[J]▗ PAUSE { CLS rE RANDOMIZE y PRINT [H]SIN INT  BEEP ▖[J]g9 DEF FN rg9 DEF FN r© COPY  COPY  RETURN f0CHR$ B[C]BJ[E][C]JO[M][C]NG[M][A]Ng[M][A]CHR$ c[M][B] DEF FN s[M][A] DEF FN S[M][A]JC[M][C]Bg[O]2B© COPY  COPY  RETURN g9 DEF FN rg9 DEF FN r▖[J]*SCREEN$ [J]@[J]_ BEEP  FOR  REM ^ BEEP k>=/ VERIFY  FOR [K]Y MERGE ATTR 8SW*rV VERIFY h CONTINUE _ BEEP  FOR  IF @_ COPY  COPY  IF @_ BEEP  FOR  IF ^ VERIFY  FOR LN ] MERGE ATTR z[ BEEP * CONTINUE WVk LINE ^ CLOSE # FOR [I]_ BEEP  FOR  IF @_ COPY  COPY  IF @_ OPEN # FOR  IF ] BEEP k CIRCLE [V FOR INT VU FOR h/ BEEP  LINE  PAPER _ BEEP ATTR  SAVE @? COPY  COPY  DRAW ▖[J]*SCREEN$ [J]_ COPY  COPY  SAVE @_ BEEP  FOR  SAVE ^ VERIFY  FOR INT ] MERGE ATTR x[ BEEP * REM WVk>=^ CLOSE # FOR [K]_ BEEP  FOR  SAVE @_ COPY  COPY  SAVE @_ OPEN # FOR  SAVE ] BEEP k PAPER [V FOR LN VU FOR j/ BEEP  LINE  CIRCLE _ BEEP ATTR  IF @_ COPY  COPY  IF @[J]@@[J]@@[J]@@[J]@? COPY  COPY  DRAW ▖[J]*SCREEN$ [J]@[J]@_ OPEN # FOR  SAVE ] BEEP k PAPER [V FOR LN VU FOR j/ BEEP  LINE  CIRCLE _ BEEP ATTR  IF @_ COPY  COPY  IF @[J]@@[J]@@[J]@@[J]@@[J]@@[J]@@[J]@@[J]@@[J]@? COPY  COPY  DRAW ▞[J] CLS ASN  LPRINT  COPY ATN  LPRINT  OUT [H] LPRINT  COPY ASN ` COPY ATN  LPRINT  CLEAR [H] LPRINT 0 FOR ATN  LPRINT  RUN [H]`ATN  LPRINT ~0 COPY  MERGE  LPRINT  COPY  BORDER  LPRINT  BORDER USR VAL p COPY [G] LPRINT  THEN  LPRINT  FOR [Q]` CONTINUE USR k LPRINT k LPRINT j LPRINT h[J]k LPRINT USR U LPRINT  RETURN 5USR ? POKE  OUT  RESTORE  LPRINT `E[Q]R[O][P]!"LIN E^[F] ^[F]L[F]@!U$[O]A_ DRAW ▛ COPY > CLEAR `▟AU▖CODE `EXP  COPY  COPY D COPY  RETURN  COPY [J]PEEK U▙SCREEN$  LINE [O] RETURN ^SCREEN$ [J] COPY MU'MIN ▜E#LT[J]L[J]D[J]8[J] RUN /w NEXT  PRINT u PRINT [S]/" PAUSE ©/s©__?**U+ LET SQR  PRINT  POKE  NEXT [Q]/" PAUSE ©?|©?>_E+U% RUN +w[T] PRINT u OR [S]" PAUSE |!©©^@[P]?(@FN U`rTCOS  PRINT  POKE )u NEXT [S] STOP  PAUSE ▗[J]{▘ NEXT ©< GO TO PEEK _UVU%ATN [F] T OPEN #% LPRINT WSCREEN$  LPRINT WSCREEN$ USR S*HZ LPRINT INT  LPRINT  LIST x COPY ; LIST  CLOSE #@k SAVE ZATTR  RANDOMIZE l COPY  RANDOMIZE  FORMAT   CLS  COPY  SAVE  SAVE [J] PAPER P DIM 2FN [[H] SAVE  SAVE ▗[J]`USR [Q] OUT  PAPER `USR [Q]`[Q]`[Q]USR ▞[J]@[J] ▜[J]H[J]d[J]h[J][A][J] LLIST VUSR { LPRINT ▚[J] OVER USR {8cR▚[J]{ TO  FOR ©@=[G] LPRINT [J]© OUT ( COPY [ POKE c/y[J]© COPY IN © RETURN CODE [Q]SGN  NEXT  OUT USR B[J]y LOAD [P] DATA ©ASN  COPY :▚ RUN /w NEXT  PRINT u PRINT [S]/" PAUSE ©/s©__?**U+ LET SQR  PRINT  POKE  NEXT [S]CODE " PAUSE ©,|©?>_E/U% RUN /w[T] PRINT u OR [S].[S] PAUSE |.©©__?*/(Us/s PRINT  PRINT u NEXT [S]/" PAUSE {/©©<>_R-U%_ COPY  COPY  SAVE PS COPY  COPY >=T*Q LET  COPY FN U RANDOMIZE  COPY SCREEN$ Q COPY  COPY [I]U COPY  COPY SCREEN$ Q COPY  COPY FN T*RSCREEN$ SCREEN$ FN P_ COPY  COPY  SAVE PS COPY  COPY >=T*Q COPY  COPY FN Q COPY  COPY SCREEN$ Q COPY  COPY FN U LET  COPY SCREEN$ Q DATA  COPY FN T*RSCREEN$ SCREEN$ FN P_ OUT  FOR  CIRCLE JPOINT [F]SCREEN$ @[J]© RUN  COPY  DRAW ▗[J]© COPY  COPY  RETURN *SCREEN$ [J]LN [J][J]USR © RETURN ▜V SAVE v[E]^ACS [K] PLOT  VAL m4-ACS VAL  INVERSE  VERIFY ▙-vSGN  GO SUB xmx-pmpi`-`*[Q]* RETURN ~| DRAW  RETURN ~ RETURN ~ RETURN | RETURN PEEK  RETURN  DRAW ~ RETURN  RETURN  SAVE  RETURN [J] LIST ~ LIST ~ POKE ~ PRINT  LINE | PRINT [K]~ PRINT 2>u IF Lu LINE  GO TO ^ POKE > PRINT  COPY  DRAW ~ POKE ~u PAUSE ~5[K]~ASN 2,~ PRINT  REM <> POKE : DRAW ~ POKE ~ NEXT  COPY  RETURN | LIST x RETURN [J] IF  RETURN  RETURN ~ RETURN  RETURN ©~ RETURN  RETURN  COPY > RETURN  DRAW  RETURN  RETURN ~ IF  RETURN [J]~ RETURN ▗[J] RUN  NEXT  RUN  NEXT  PRINT [J][S] PAUSE [S] PAUSE ▗[J]©©s©P COPY  COPY  RANDOMIZE UD[F]QU[B]UQE[F]UT COPY  COPY  DRAW FN SCREEN$ [N]ATTR ABS POINT [N] CIRCLE FN [P] COPY  COPY  CLEAR  COPY  COPY  RANDOMIZE [A]▗[J]||©©_?_?*U(U▗[J]s PRINT  NEXT  PRINT  PRINT  NEXT  PRINT  NEXT [S] PAUSE [S] PAUSE ▗[J]{g©©<O>_U%U%▜[J]U COPY ([J]G OUT  BEEP _ DEF FN [I]S?[P] COPY OUSR [Q]*QT▗SCREEN$ T(*u8[C]UDU*U))▗)@(VUSR w@[J]^[J] COPY  LPRINT [J]8 RUN  TO  PRINT  POKE 3 POKE  BORDER [E] DEF FN t RANDOMIZE  PLOT   INPUT PATTR PEEK WFSCREEN$ [A]@v([Q]uPA8 FORMAT U FORMAT U[Q]UU+ATTR +*NWVP© DRAW  OUT USR  FORMAT  USR _ COPY >=_▜ CONTINUE _ CAT  CONTINUE W CAT  CONTINUE _ CAT  CONTINUE _▜ CONTINUE _ COPY  CONTINUE _ COPY  CONTINUE U_3 CONTINUE ©_ CONTINUE _ CONTINUE _#>=_3 CONTINUE _ COPY  CONTINUE _ COPY  CONTINUE _ CONTINUE _ CONTINUE O1>=W CONTINUE G CONTINUE C CLEAR  CONTINUE @? COPY  LIST LEN [J]? COPY  LIST @S RETURN _▖O2>=__? CONTINUE _? CONTINUE _ COPY  CONTINUE _▜ CONTINUE _3 CONTINUE _ CONTINUE _3 CONTINUE U_3 CONTINUE  COPY _ COPY >=_ COPY  CONTINUE _ CONTINUE O3 CONTINUE O CONTINUE _' CONTINUE _3 CONTINUE _ COPY  CONTINUE _ COPY  CONTINUE _3 CONTINUE _' CONTINUE _ CONTINUE _' CONTINUE _3 CONTINUE _ COPY  CONTINUE ▗[J] RUN  NEXT  RUN  READ  PRINT [J] MERGE [S] PAUSE [S] PAPER ▗[J]©q>©_?_/+W*U NEXT EXP  BEEP  MERGE  PRINT  PAUSE  NEXT  NEXT [S]VAL URKz[F]^{?W?U[B][U PLOT  KPI[L] NEXT USR 3 PRINT RND MERGE R {BCOS y_▖[P]?+ATTR U[Q]v[H] PRINT sCHR$ ASN  NEXT TAN  LINE [S][S]{JCOS u7@;?[UU▗[J] RUN  NEXT  RUN  NEXT  PRINT [J][S] PAUSE [S] PAUSE ▗[J]];s[/_=-U*UU▗[J] RUN  NEXT  RUN  NEXT  PLOT   RUN  NEXT  NEW RND[S] BEEP s▗[J]©>~©o}UwU7o-▖[J]*SCREEN$ SCREEN$ FN @_ COPY  COPY  SAVE PS COPY  COPY >=T*Q COPY  RUN FN U COPY  COPY SCREEN$ Q COPY  COPY FN U COPY  COPY SCREEN$ Q COPY  COPY FN T*RSCREEN$ SCREEN$ FN P RETURN ~| DRAW  RETURN ~ RETURN ~ RETURN ~ RETURN PEEK  RETURN  RETURN ~ RETURN [J] SAVE  RETURN [J] DRAW  COPY ~ DRAW  RETURN  RETURN ~ DRAW  RETURN ~ DRAW  RETURN  DRAW PEEK  RETURN  RETURN  DRAW > RETURN ~ PAUSE  DEF FN  RETURN ~ RESTORE V RETURN  RETURN  LLIST T RETURN  DRAW  DATA V~ DRAW  LPRINT ~ SAVE  PAUSE  INPUT  RETURN  PLOT   LIST  RETURN  RETURN  LIST ~ RETURN  LIST VAL$ ~ RETURN  STOP & RETURN  RETURN STR$ SCREEN$  DRAW  RETURN STR$ SCREEN$  DRAW  RETURN  LPRINT & RETURN  RETURN  LIST VAL$  RETURN  RETURN  PAUSE AT  RETURN  RETURN  LIST VAL$  RETURN  DRAW SIN VAL$ ~ IF  LIST  RETURN ▗[J] COPY  COPY IN  LOAD w BEEP [P]EATTR .ATTR UU[F]USCREEN$ ATTR SCREEN$ UUU[S]SCREEN$ SCREEN$ [S]US[F]USCREEN$ [S]SCREEN$ SCREEN$ ▗[J] CLEAR  DRAW  RETURN  OPEN #} NEXT  RETURN _SGN INT  INPUT COS YUV]VAL SCREEN$ SCREEN$  LINE YU^SGN SCREEN$ VAL$ SCREEN$ ]U^UAT SCREEN$ SCREEN$ ]eVY▗[J] COPY  DRAW  COPY  COPY SQR  CLEAR IN  LOAD w MERGE UwSCREEN$ AT  REM  INPUT U] MERGE UVAL AT *SCREEN$ U[J]AT SCREEN$ UUEU[S] TO [C] RETURN [J]~ RETURN  DRAW  RETURN PEEK  RETURN [J] IF  RETURN [J] DRAW  RETURN [J] DRAW  RETURN [J] DRAW  RETURN  RETURN ~ DRAW  RETURN  RETURN PEEK  RETURN [J]~~ RETURN [J] DRAW  RETURN [J]▗[J]*SCREEN$ SCREEN$ FN @_ COPY  COPY  SAVE PS COPY  COPY >=T*Q COPY  RUN FN U COPY  COPY SCREEN$ Q COPY  COPY FN U COPY  COPY SCREEN$ Q COPY  COPY FN T*RSCREEN$ SCREEN$ FN PG▖ RUN  COPY  COPY ClASN ZASN nPOINT RASN ZASN n<=[O]IN  COPY  COPY CHR$ hSCREEN$ SCREEN$ ▘=[G]Y@ IF SCREEN$ SCREEN$ |▜IN  COPY  COPY NOT xABS R LINE ▘zASN UAABS V LINE CHR$ p▝[P] COPY  COPY  STOP P8SCREEN$ SCREEN$ [Q] PRINT [G]YCINT SCREEN$ SCREEN$ [T]u[M]IN  COPY  COPY rpSCREEN$ [S] LINE SCREEN$ ueUQFN SCREEN$  LINE SIN weUQ▜[J][J][J][J][J][J][J].[J]V[J]ABS [J][[J]SQR w LOAD  LOAD  OUT IN IN © COPY V COPY - COPY [ COPY ATN  COPY o COPY * LOAD  COPY / COPY +7 COPY V COPY SGN  COPY X; COPY  LIST  COPY b+ COPY SQR  COPY  COPY { COPY  COPY SQR  COPY  COPY { COPY  COPY SQR  COPY  COPY { COPY  COPY  RUN  COPY  COPY w COPY  COPY  RUN  COPY  COPY w COPY  COPY  RUN  COPY  COPY  LOAD  COPY  COPY  LOAD  COPY  COPY  LOAD  COPY  COPY  LOAD  COPY  COPY  OUT  COPY  COPY  OUT  COPY  COPY  OUT  COPY  COPY IN  COPY  COPY IN  COPY  COPY IN  COPY  COPY © COPY  COPY /© COPY  COPY © COPY  COPY . COPY [J]^ COPY [J]= COPY [J]] COPY [J]SQR  COPY [J]{ COPY [J] RUN  COPY [J]w COPY [J] LOAD  COPY [J] LOAD  COPY [J] OUT  COPY [J]IN  COPY [J]IN  COPY [J]© COPY k[J]. COPY  COPY  COPY  COPY VAL$  COPY  COPY V COPY  COPY . COPY  COPY  COPY  COPY . COPY  COPY V COPY  COPY . COPY  COPY ^ COPY  COPY VAL$  COPY  COPY ^ COPY  COPY . COPY  COPY  COPY  COPY = COPY  COPY ] COPY  COPY TAB  COPY  COPY ] COPY  COPY = COPY  COPY ] COPY  COPY ABS  COPY  COPY ] COPY  COPY = COPY  COPY ] COPY  COPY ABS  COPY  COPY [ COPY  COPY SQR  COPY  COPY { COPY  COPY SQR  COPY  COPY { COPY  COPY SQR  COPY  COPY { COPY  COPY TAB [J] LIST  GO TO 4t CLOSE #TAN  GO TO  LIST TAB [J] COPY 4[J]▗[J]> CAT  NEW  POKE @USR T FLASH f[C]T PAPER F"T[K]f[C]V▝[J]bSIN F FLASH "T FLASH F"T FLASH F2R<>&[A]V FLASH F[S]TCF2T[K]F▘D FLASH "[C]T OPEN #f"@USR : OUT V TO ▗[J] COPY [J]@[J]< COPY  LLIST  DRAW @KACS  OPEN #:S[G]Zr]ACS ▝[J] REM NSCf DEF FN bx[M]j OVER yHZ BEEP ▘jYASN  READ jI LOAD kHBu INK j[NOT *ZgSQR bX LLIST [M]j VERIFY GjE2 OPEN #^SIN >= REM YINKEY$RrCACS  FLASH @< READ  COPY  DRAW ▗[J]? RANDOMIZE  COPY  DRAW @SI[G] PAPER [m&SIN MmSIN bFmSIN  LINE QiASN [K]YTAB VAL X STEP ACS RZm, PAPER 5[I] LINE [SIN [I][Mf CIRCLE Yf AND  FORMAT [i[C][I]S#USR Sf VERIFY  CIRCLE Clf PAPER [Y6RK1[I]CHR$ KE▗ PAPER Z STEP INKEY$ ERASE YCOS Z[-LEN %TAN  PAPER e6bm[C]2SmACS [K]@< COPY  CLS  DRAW [J] RUN  NEXT  RUN  NEXT  PRINT [J][S] PAUSE [S] PAUSE ▗[J]©©s©_?_?*U*U▗[J] PAUSE  PRINT  NEXT  PRINT  PRINT  NEXT  PRINT  NEXT [S] PAUSE [S] PAUSE ▗[J]©©|©?_>_E%U%▗[J] RUN  NEXT  RUN [T] PRINT [J] OR [S] PAUSE [S] PAUSE ▗[J]||©©_?_?*U(U▗[J]s PRINT  NEXT  PRINT  PRINT  NEXT  PRINT  NEXT [S] PAUSE [S] PAUSE ▗[J]{g©©<O>_U%U%▗[J] RUN  NEXT  RUN  NEXT  PRINT [J][S] PAUSE [S] PAUSE ▗[J]} CAT <=IN Y COPY  NEXT '[E] PRINT  COPY  PLOT   RUN [S] RUN y RUN  COPY  PRINT SQR PI COPY  IF  COPY @w' COPY  CAT 7w COPY  LOAD G! RESTORE VAL$  INPUT  LPRINT  CLS SCREEN$ SCREEN$  NEXT  CLS AT  INPUT  PRINT [T]SIN [B] PAUSE  BRIGHT IN  LIST w STOP IN  RUN W RETURN ? RUN '7 RANDOMIZE U COPY  COPY  LIST w+ RETURN U NEXT  COPY  NEXT  RUN FN © STEP  REM ▗[J]{g©©<O>_U%U%(*'(("(/(/(/2*/(/2(2(/(/(/(/+(.,-([J]*1(1(0(02(1(12(122(2([J](*'(([J](([J](([J](2((/*/(/(/(/!(/"(/!(/"(/(/!(/"(/(2('(([J](*([J]*('([J](+(.,-(0(1([J]*'[J]▜[J]3 4%[J]&[J][J][J] 43[J][J]![J]"▜[J]![J]"▜[J][J][J]')[J]')[J][J]▜[J] 3334%33&33COS 334COS 3&[J]"[J]▗3 3COS 3%3[J]COS 3&334333[J][J]![J]"[J][J]3&34%[J]!"3&3 3433&[J][J]!" 33%[J]33[J]4333[J]" 34%3[J]343[J]![J]"33[J]3#"[J]![J]"33[J]!" 3433&333&3[J]$#![J]"[J]![J]"343"! 343[J]34433▚[J] 343334333433333434343434333 3[J]"[J]![J]"3333&3333$#![J]"3[J]3[J]33[J]333[J][J]3434333[J]33[J][J]3 343$#▗[J](2([J]*((3(3(33**33((3(43(3*3(3(3(3[J](3(4(3(3*(33(3[J](([J]*(([J]([J]((*[J]((([J]*(([J]((*3((3(3(33(*433(3(3(3[J](43*33*433(3(3(3*3(3(3(4(34(((([J](2(22(((22(2(([J]((( ABS $ SAVE ABS $ FORMAT PEEK $FN IN $USR $XSTR$ $0CHR$   LIST CHR$  VAL NOT $▖BIN $` OR $8 AND ((<=$>=>=<>$ CIRCLE <>$ SAVE  LINE $ FORMAT  THEN $FN  TO $>= STEP $[Q] DEF FN ▖ CAT p FORMAT q FORMAT r FORMAT 2 MOVE  PAUSE  MOVE SIN  ERASE r OPEN # 2 CLOSE #  PAUSE  CLOSE #SIN  MERGE r VERIFY 2 BEEP  PAUSE  BEEP " CIRCLE R CIRCLE  STOP  CIRCLE r INK 2 PAPER  PAUSE  PAPER  FLASH " FLASH  BRIGHT dD▘$▗dD▘$▗D▘$▗$▗▚BIN ▞[U]▛▗▟▚ DATA ▜BIN ▞[U]▛▗▟D[B] DATA ▜BIN ▞[U]▛[F] DATA [G]▗▟[U][K]dD[B]$[D][F] DATA [G]BIN [I][U][K]▗[M]D[Q]$[S]d[O]D[Q]$[S] DATA [G][U]BIN [I][U][K]▗[M]d[O]D[Q]$[S][U] DATA RNDBIN PI DATA RNDBIN PISIN [J] COPY [J] DRAW  COPY [J] DRAW [J]3310131013130310301310[J][J] COPY [J] DRAW [J] REM POINT I PLOT   COPY USR S* COPY  COPY kPIU[ COPY  REM USR :▖ PRINT TSCREEN$ SCREEN$  MERGE T7 VERIFY  COPY  DIM  COPY  COPY (P| PAPER  COPY [F] BORDER  LIST ?H[ COPY  REM USR :▖ PRINT TSCREEN$ SCREEN$  MERGE T▙[J] LIST  RETURN SIN ( COPY W SAVE Ue COPY [J]<BNOT NOT  BORDER  COPY  RETURN ~ BEEP ( COPY  BEEP  SAVE Ue COPY [J] READ  LLIST POINT I PLOT   COPY USR S* COPY  COPY kPI▚[J]0USR  PLOT   LLIST ? VERIFY  COPY <> COPY  COPY /[Q]r RETURN  COPY  COPY kPI▙[J] COPY  PAPER !W RETURN ,q]" COPY eJ▗[J] LIST  SAVE  SAVE  RETURN  RETURN ~ COPY z_ COPY ,q]" COPY eJ88lD VERIFY  AND <FCHR$ SGN CHR$  AND SGN / AND CHR$ USR CHR$  AND //BIN CHR$ [J]BIN /^CHR$ USR  CIRCLE USR CHR$ ^/ AND CHR$ USR  CIRCLE USR @/ AND CHR$ USR  DEF FN  AND /BCHR$ CHR$  PAPER CHR$ CHR$ BZ[J]Z[J]CHR$  AND tDBIN BIN  CIRCLE  CIRCLE BIN D@USR [J]CHR$  AND ^▘▘ AND  VERIFY  VERIFY  AND  AND B AND  AND  VERIFY  OVER  DEF FN  AND ZB AND  VERIFY  OVER  DEF FN  AND T AND [J]T/ AND CHR$  AND  BRIGHT USR @T AND [J] VERIFY  PAPER L/CHR$ CHR$  OVER  BRIGHT BIN F/ OVER USR T PLOT  t VERIFY  VERIFY [C][J]8D AND [J]TD AND [J]l(D AND  AND  VERIFY [J]D▘ AND DD AND ▘ AND D[J]8~ PLOT  0l COPY [J]/▖[J][J] [J]▜[J][J]USR [J]USR USR  LPRINT  LPRINT  LOAD  LPRINT ▜ INPUT G LPRINT  CAT  INPUT  BORDER  LPRINT  CAT  LOAD  BORDER USR  LOAD [J] LPRINT  LOAD [J] LPRINT  CAT  LOAD  LOAD  LPRINT  CAT  LOAD  CAT  LPRINT  LOAD <= LPRINT  CAT  LOAD  BORDER  LPRINT  LOAD  LOAD  CAT  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  BORDER  LOAD  LOAD  LPRINT  LOAD [J] LPRINT  LOAD [J]USR  LOAD  CAT  LOAD USR  LOAD  CAT  LOAD USR  LOAD  CAT  LOAD  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD  BORDER  LOAD  LPRINT  LOAD  BORDER  LOAD  LPRINT  CAT  LOAD  LOAD  LPRINT  LOAD [J] LPRINT  LOAD  CAT  LOAD  LPRINT ▛[J]▗[J]▗[J]?<?SGN >EXP ??SQR [P]??IN [P]?IN [J]?IN [J]??IN IN ??IN ?>?IN ??IN [P]?IN IN ??IN [J]?IN [J]?[P]IN IN ?IN [J]?IN [J]?IN ?IN ?IN ?IN ?IN ?IN ?IN [J]IN [J]IN [P]IN ?IN [P]IN ??IN IN ?IN [J]?IN ?IN  RANDOMIZE  RANDOMIZE  NEXT  LIST  RANDOMIZE  CLS  RANDOMIZE  SAVE  RANDOMIZE  CLS  IF  SAVE  CLS  RANDOMIZE  CLS  SAVE  CLS [J] SAVE  CLS [J] SAVE  CLS  READ  CLS  SAVE  CLS  READ  CLS  SAVE  NEXT  NEXT  CLS  SAVE  NEXT  CLS  CLS  LIST  CLS [J] SAVE  CLS [J] SAVE  CLS [J] SAVE  CLS  CLS  NEXT  SAVE  CLS [J] SAVE  CLS  NEXT  RANDOMIZE  SAVE  CLS  NEXT  RANDOMIZE  SAVE  CLS [J] SAVE  COPY  CLS  CLS  SAVE  CLS  CLS  RANDOMIZE  SAVE  CLS  CLS  RANDOMIZE  SAVE  COPY  RANDOMIZE  CLS  SAVE  CLS [J] SAVE  CLS  CLS  COPY  LIST  CLS  CLS  NEXT  LIST  CLS [J] SAVE  CLS [J] SAVE  RANDOMIZE  CLS  CLS  SAVE  CLS [J] SAVE  NEXT  CLS  RANDOMIZE  SAVE  FOR  NEXT  CLS  SAVE  CLS  LET  CLS  SAVE  BORDER  BORDER  CAT USR  BORDER  LOAD  BORDER  LPRINT  BORDER  LOAD  FOR  LPRINT  LOAD  BORDER  LOAD  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD  LOAD  LPRINT  LOAD  LOAD  LPRINT  CAT  CAT  LOAD  LPRINT  CAT  LOAD  LOAD USR  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD  LOAD  CAT  LPRINT  LOAD [J] LPRINT  LOAD  CAT  BORDER  LPRINT  LOAD  CAT  BORDER  LPRINT  LOAD [J] LPRINT  COPY  LOAD  LOAD  LPRINT  LOAD  LOAD  BORDER  LPRINT  LOAD  LOAD  BORDER  LPRINT  COPY  BORDER  LOAD  LPRINT  LOAD [J] LPRINT  LOAD  LOAD  COPY USR  LOAD  LOAD  CAT USR  LOAD [J] LPRINT  LOAD [J] LPRINT  BORDER  LOAD  LOAD  LPRINT  LOAD [J] LPRINT  CAT  LOAD  BORDER  LPRINT CODE  CAT  LOAD  LPRINT  LOAD <= LOAD  LPRINT ?[P][P]??[P]IN [P]?[P]IN CODE ?IN [P]IN ?IN [J]?IN [J]?PEEK ?IN ?PEEK ?IN ?[J]IN ??IN IN ?IN [J]?IN [J]IN [J]IN IN ??IN [J]?IN ?[P]?IN ?[P]?IN [J]? COPY IN IN ?IN IN [P]?IN IN [P]? COPY [P]IN ?IN [J]?IN IN  COPY ?IN IN ??IN [J]?IN [J]?[P]IN IN ?IN [J]??IN [P]>IN ?IN ?IN IN [J]▛ CAT  OUT 7 PAPER  BEEP DqUSR pZ[S]XEXP BLN V: STOP /% IF  CLEAR   THEN  IF  OVER [E] FOR  IF PEEK , FOR INT  IF [A] BEEP z NEXT V PAPER  BORDER /[F][K] CAT  BEEP :[P]H BEEP  IF  COPY  FORMAT LG COPY  COPY [A]H BEEP  IF  COPY  BEEP  IF  COPY LU IF  LOAD S IF  INVERSE T BEEP z RANDOMIZE [G] REM  NEXT /[H] IF  BORDER  FORMAT /O CLEAR  COPY ▖▚[J]CODE  COPY  COPY  SAVE v INPUT u CIRCLE [J]/?|P OUT k]<=%USR h"▞` RESTORE R LPRINT X FOR ▞p[H] FOR  POKE / FOR zPCODE  REM  SAVE VAL VAL$  FOR  REM @] FOR  TO  [k[N]pVk</ REM } _ FOR  DRAW p@0 COPY  DRAW P@ _ FOR  DRAW _ FOR  CLEAR 0W FOR SGN pO FOR uP] FOR  DATA  [ATTR  STEP p_ FOR [M]0@p? RUN  RETURN  [J]IN  COPY  COPY  LPRINT  FLASH EXP  BEEP `[J](SGN  CLEAR  LET @}TAB t@'[H][Q]%[E]!KcVAL$ %USR _CODE  ERASE IN TAB  DIM @.IN ATTR  STOP USR SQR CODE POINT =wCODE 0mVAL$ uUSR YAT  LIST =sPOINT  POKE ©CODE  LET USR - USR © COPY  LET @ -©CODE  LIST @©CODE  POKE USR %_VAL$  LET USR ?TAB  MERGE @wCODE [A])nCODE 5USR ©VAL$ pUSR - USR  COPY  OUT  SAVE [J] COPY [J]n BORDER ]▛[J]SCREEN$ [J]FN ▗[J]©_CODE FN {]CODE  s[VAL$ hgVAT  LPRINT M/POINT >=[Y[T][Q]©_CODE  CONTINUE @ © COPY  COPY  CONTINUE @ ©_CODE  CONTINUE {[VAL$  LPRINT wVTAB  CONTINUE o/ATTR [Q]]YCODE ({SVAL$ `©_CODE  CONTINUE @ © COPY  COPY  CONTINUE @ ©OCODE  CONTINUE w]CODE `m[VAL$  CONTINUE YWTAB [Q]s_+h©^CODE  LPRINT @  COPY [J] LIST [J]SCREEN$ [J][Q]▗[J] CLEAR ~PEEK [Q] GO SUB vSGN  STEP nEXP [Q][N]ZCOS 5rPI mf▙ CLEAR ~IN [Q] COPY [J][Q] CLEAR ~IN [Q] GO SUB nSQR  INVERSE ZATN [Q]ABS rVAL$ ufSGN [Q] GO SUB NEXP  CLEAR ~IN [Q] COPY [J][Q] CLEAR >IN [Q] INVERSE vABS ASN nSQR [Q]e^ACS  STEP |TAB [Q] CLEAR zIN   COPY [J]USR [J]SCREEN$ [J]▗[J] PRINT  IF  IF ASN  PAPER  PAUSE 5INT  NEW uj DEF FN  MERGE  LINE [M]ASN [K]: PRINT  IF  RETURN  COPY  COPY  RETURN  PRINT  IF  RETURN ASN INT  INPUT uj OVER  PRINT  LINE INT  MERGE [K] PAUSE ASN : NEW  PRINT  IF  RETURN  COPY  COPY  RETURN  POKE  IF  RETURN u PAPER  PLOT   MERGE INT  INPUT [F]z PAPER 5 PAUSE ACS  PRINT  REM  RETURN  COPY [J][J]SCREEN$ [J]FN © COPY  COPY  LPRINT @ ©_CODE  LPRINT {[VAL$  CONTINUE wVTAB  LPRINT o/ATTR FN ]YCODE  {SVAL$ h©_CODE  LPRINT @ © COPY  COPY  LPRINT @ ©OCODE  LPRINT w]CODE hm[VAL$  LPRINT YWTAB FN s_+`©^CODE  CONTINUE @ © COPY  COPY  CONTINUE ▗[J][J]▗[J][J]▗[J][J]▗[J][J] COPY [J] LIST [J]SCREEN$ [J][Q] COPY [J]  CLEAR ~IN  GO SUB nSQR [Q] INVERSE ZATN ABS rVAL$ [Q]ufSGN  GO SUB NEXP [Q] CLEAR ~IN   COPY [J]  CLEAR >IN  INVERSE vABS [Q]ASN nSQR e^ACS [Q] STEP |TAB  CLEAR zIN [Q] COPY [J][Q]▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J]  COPY [J]USR [J]SCREEN$ [J] COPY  COPY  RETURN  PRINT  IF  RETURN ASN INT  INPUT uj OVER  PRINT  LINE INT  MERGE [K] PAUSE ASN : NEW  PRINT  IF  RETURN  COPY  COPY  RETURN  POKE  IF  RETURN u PAPER  PLOT   MERGE INT  INPUT [F]z PAPER 5 PAUSE ACS  PRINT  REM  RETURN  COPY  COPY  RETURN ▗[J][J]▗[J][J]▗[J][J]▗[J][J] COPY [J][J]SCREEN$ [J]FN ▗[J]@ ©OCODE  LPRINT w]CODE hm[VAL$  LPRINT YWTAB FN s_+`©^CODE  CONTINUE @ © COPY  COPY  CONTINUE ▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J] COPY [J] LIST [J]SCREEN$ [J][Q]▗[J]  CLEAR >IN  INVERSE vABS [Q]ASN nSQR e^ACS [Q] STEP |TAB  CLEAR zIN [Q] COPY [J][Q]▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J] ▗[J][J]  COPY [J]USR [J]SCREEN$ [J]▗[J] POKE  IF  RETURN u PAPER  PLOT   MERGE INT  INPUT [F]z PAPER 5 PAUSE ACS  PRINT  REM  RETURN  COPY  COPY  RETURN ▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J]▗[J][J] COPY [J]▖[J]| BRIGHT ABS  OUT  TO  CLOSE #U BEEP  CLOSE #▖SGN ▛>=| DRAW ABS  STEP  DRAW |}| DRAW FN POINT TAT  AND  LOAD  CLOSE # FORMAT  TO SGN ▛>=| DRAW  CLEAR  LET  DRAW  DRAW / RANDOMIZE |TAB T[E]d BRIGHT TAB  OVER  CLOSE #] BEEP ▖▛>=x LIST  CLEAR  DRAW y| DRAW [R][R]T▘<>R CAT  CLOSE # FORMAT RND BEEP  TO ▖{▛>=[J] INPUT  STEP  DRAW  NEXT SIN  RANDOMIZE |UYT[E] LIST r RUN ©0QW_P" PAUSE /  LIST  PAUSE  RUN 7 LIST  LET  PRINT  NEXT  LIST [Q]RNDPVAL IN P@0 PAUSE /  LIST  NEXT  RUN <= LIST  LET s RESTORE  LIST RASN RP[A]rATN z0Qw/P /  LPRINT CHR$  RUN  LIST  DATA  NEXT  LIST ▗P%K?PB[H]_0! INPUT / [J]LN /7 LIST  DEF FN  THEN  RESTORE  LIST UeRPUSR = THEN  INVERSE  DRAW USR =E]}@(▛>=SGN USR  THEN  BRIGHT  OUT USR <= BEEP  CAT USR [F]@USR <`. CLEAR @=|USR (>=SGN USR  CAT  OUT USR  OR  CAT [H]USR J MERGE I@@= LINE  INVERSE  CONTINUE USR =E INVERSE q@(HSGN _ OUT USR [A]' CAT USR *@ [F], CLEAR @=]|USR (▜LN SGN [J] LPRINT SGN  OUT USR ;/[H]USR U[F]I@[J][J]▖[J] [J][A][J][Q][J]@[J]▚[J][[J] LOAD ▜[J]{[J] GO TO  LPRINT ▟H▜[J] LOAD 2TAB  CLEAR [J] PLOT  [▚[J] COPY |[Q] CLEAR o FORMAT ABS  DATA `[J] COPY  RETURN  RETURN  COPY  IF PEEK  NEXT  CAT ©[J] BORDER PEEK ©[A] RETURN  BEEP  DRAW  CONTINUE `L▗[J]▞[J][J]@[J][J]▗[J]l[J]PEEK ▖[J] GO TO [J]COS 5 ▜[J]SGN >= INK n▜[J] CLEAR  PAUSE  PRINT IN @2 RUN [A][J] COPY  CLS  SAVE  COPY  REM  IF  CAT = DRAW  [J][O] RANDOMIZE  RETURN @ CLS _ NEXT [Q]▝08`[J]▗[J]▞[J]▗[J]▗[J]▗[J]$▗[J]8`[J]VAL [J] SAVE ▖[J]7VAL [J] DEF FN [J] CLOSE #▜[J] NEXT  : OUT  FORMAT eLN ▜[J] RUN  LINE ? VERIFY  CLEAR  THEN  OVER @▗[J] COPY  LOAD  LPRINT  COPY ATTR  CONTINUE /< RUN  LIST [J]{ BORDER  RANDOMIZE  GO SUB © DEF FN USR  LLIST | BRIGHT ABS  OUT  TO  CLOSE #U BEEP  CLOSE #▖SGN ▛>=| DRAW ABS  STEP  DRAW |}| DRAW FN POINT TAT  AND  LOAD  CLOSE # FORMAT  TO SGN ▛>=| DRAW LEN  LET  DRAW  DRAW t RANDOMIZE |ABS T[E]/ BRIGHT ABS  OVER  CLOSE # BEEP ▖INT ▛>=x LIST EXP  CLEAR  DRAW |]| DRAW FN SGN [R]Tl TO ABS  CAT  CLOSE # CLOSE #} BEEP  TO ▖SGN ▛>=/ GO TO ABS  CLEAR  DRAW  LIST / RANDOMIZE |HASN T[E] LIST r RUN ©0QW_P" PAUSE /  LIST  PAUSE  RUN 7 LIST  LET  PRINT  NEXT  LIST [Q]RNDPVAL IN P@0* PAUSE /  LIST  PAUSE <=<= LIST  LET  OPEN # RESTORE  LIST R PRINT RPpr RUN z0Pw/P" REM /  LPRINT CHR$  BORDER  RUN  LIST  LET u NEXT  LIST [S] PAUSE PVAL 2 RUN ?PQ RUN _0" PAUSE / pSIN  RUN  RUN  LIST STR$ s RESTORE  LIST " MERGE RPUSR = THEN  INVERSE  DRAW USR =E]}@(▛>=SGN USR  THEN  BRIGHT  OUT USR <= BEEP  CAT USR [F]@USR <`. CLEAR @=|USR (ATTR >=SGN USR  THEN USR <=O[H]USR K MERGE I@USR = THEN  INVERSE  CONTINUE USR =A INVERSE q@(▛FN SGN [P] OUT USR  OR  BEEP  CAT USR ▛ LINE @USR  THEN  BRIGHT  CLEAR @=G INVERSE |USR (▛>=SGN USR  THEN  OUT  OUT USR  CAT [H]USR ▛UI@© COPY  COPY  LPRINT @(O COPY  COPY  P0FN G<= RETURN [Q]W BORDER  RETURN FN G COPY  RETURN `W COPY  RETURN FN G COPY  RETURN [Q]PFN JSCREEN$ SCREEN$ [Q]@(© COPY  COPY  LPRINT @(O COPY  COPY  PFN G COPY  RETURN [Q]G COPY  RETURN FN G COPY  RETURN [Q]W<= RETURN FN G[D] RETURN [Q]PFN JSCREEN$ SCREEN$ [Q]@(©©CODE `*INKEY$VFN ▗[J] COPY  OUT  COPY  LIST [J] COPY [J] SAVE SCREEN$ [J]FN [J] COPY [J][J][Q]? COPY  DRAW @USR [Q] IF _[P] IF [Q] COPY  RANDOMIZE _ COPY  IF [Q] COPY  IF @[Q]*SCREEN$ SCREEN$ [J][Q] COPY [J][J][Q]? COPY  DRAW @[Q] COPY  IF  COPY  IF [Q] COPY  IF _ IF [Q]O IF @[Q]*SCREEN$ SCREEN$ [J][Q] CLEAR  RETURN ABS SCREEN$ ▝[J]Z[Q]▗[J] COPY © COPY USR [J] COPY [J] LPRINT SCREEN$ [J][Q][J] COPY  COPY  RETURN  COPY  COPY  PAUSE |© REM ~© REM © COPY  NEW © COPY  REM © COPY  REM SCREEN$ [J] COPY  COPY  RETURN  COPY  COPY  PAUSE © COPY  REM © COPY  REM © COPY  REM |© REM y? REM SCREEN$ [J] RUN  IF  PLOT  SCREEN$ ej▗[J] CLEAR  COPY  COPY ▚[J] COPY [J]SCREEN$ [J]<=[J]▗[J]2 COPY  SAVE [J]QZ+ LPRINT  PAPER QxZ PAPER h PAPER STR$ TAN H ERASE <TAN  PAPER NOT t[Z8TAN  PAPER  LIST TSASN  LPRINT TASN  LPRINT ($ASN USR (ASN USR (%RNDHASN HSCREEN$ FN CHR$ [J]0▗[J]>= COPY  LPRINT [J]pEhCODE 'iE LPRINT ki[Q]Ok FORMAT #H PAUSE  FORMAT Kk FORMAT mh STOP  FORMAT kSTR$ PN BEEP ▝P& BEEP [Q][C] BEEP [Q]& BEEP [Q][G][G] " VERIFY  RSCREEN$ [Q]CHR$ [J]USR [J] 0 COPY `[J]!USR [S]PEEK [N]RNDTAB INKEY$@=AT @▟# THEN @-AT 7@ASN [T]▛@CODE @;^@[L]^K/[L]/ZX▛XJFN  RANDOMIZE  RANDOMIZE  NEXT  LIST  RANDOMIZE  CLS  RANDOMIZE  SAVE  RANDOMIZE  NEXT  IF  SAVE  CLS  LET  CLS  SAVE  CLS  READ  CLS  SAVE  CLS [J] SAVE USR  SAVE USR  SAVE  FORMAT  SAVE  BEEP * LIST  VERIFY j SAVE  CLOSE #>= SAVE  BEEP  DIM 0x BEEP +LEN x FORMAT  SAVE  BEEP  COPY  LET  SAVE  FORMAT  SAVE  BEEP >=a SAVE  VERIFY h1 SAVE  CLOSE #>=LEN  SAVE  BEEP FN  LIST  SAVE  FORMAT  FOR  LET  SAVE  FORMAT  SAVE  CAT  COPY  RANDOMIZE  LIST USR  LPRINT  CLS [J] CONTINUE  CLS  RANDOMIZE  CLS  SAVE  RANDOMIZE  CLEAR  CLS  SAVE  CLS  DRAW  CLS  SAVE  NEXT  CLS  RANDOMIZE  SAVE  FOR  CLS  CLS  SAVE  CLS  RANDOMIZE  CLS  SAVE  BORDER  BORDER  CAT USR  BORDER  LOAD  BORDER  LPRINT  BORDER  CAT  FOR  LPRINT  LOAD <= LOAD  LPRINT  LOAD  LOAD  LPRINT  LOAD [J] LPRINT  LPRINT  LPRINT @ LPRINT /FN USR YFN  LPRINT S C LPRINT _[U]STR$  LPRINT /VAL$  OR  LPRINT @  LPRINT _ COPY <= LPRINT @  LPRINT _!▜ LPRINT Y[Q]<= LPRINT S"<= LPRINT ^[T]NOT  LPRINT CCODE <= LPRINT @ LPRINT ? COPY  BORDER USR  LOAD [J][Q] LOAD  BORDER  LOAD  LPRINT  BORDER  RUN  LOAD  LPRINT  LOAD  NEXT  LOAD  LPRINT  CAT  LOAD  BORDER  LPRINT CODE  LOAD  LOAD  LPRINT  LOAD  BORDER  LOAD  LPRINT ?[P][P]??[P]IN [P]?[P]?CODE ?IN IN ?PEEK ?IN ?IN [J]<<==r[Q]=f[Q]=L▝~[D]rSQR ==© COPY =|▚f-L▛=z=< COPY  COPY [P]<?IN IN PEEK ?IN [P]IN ?[P] OUT IN ?IN  CAT IN ??IN [P]>IN [J]?IN [P]IN [J] OUT  CAT  OUT  TO  BEEP [J] CLOSE #▛ LINE ▛>=[J] CLEAR  CLEAR  STEP  DRAW @? COPY  COPY  DATA ETUTEETEUEUTUP© COPY  COPY  LIST b[S]SCREEN$ tjVAL$ * POKE bINKEY$*tkb[S]0© COPY  COPY  POKE ? COPY  COPY  DATA @[J] LET  LET  CLEAR  DRAW | CLEAR | DRAW POINT T[R]T[J] CAT  BEEP  CAT  CLOSE # BEEP  CAT  BEEP  TO ▛ LINE ▛>=[J] GO SUB [N] CLEAR  DRAW  LET < RANDOMIZE |T[F]T[E][J]©?©0_[J]P/*/ [J] RUN  RUN 7 LIST [J]P COPY [J][A]QT@QPUPUQU@ COPY [J]USR POINT  FORMAT SCREEN$ LN ATTR  FORMAT [I]POINT  FORMAT TAB ▖USR  COPY [J] FORMAT  COPY [J][A][J]@[J]<=<= RUN  LIST  NEXT  PRINT  NEXT  LIST RNDRP[J]?_?P_?_0/*/ [J]ACS w RUN  LIST BIN  NEXT  RESTORE  LIST RURP[J]= DRAW  CLEAR  DRAW USR =}[J]@(SGN FN SGN [J] OUT  BRIGHT  OUT USR @ COPY  COPY  RETURN @UEQ%DTU@$UTQ@%UEU COPY [J]**PI@SCREEN$  STOP CODE @*bPI@ACS *#' COPY [J]@# COPY  COPY  RETURN @$▚[J][J] OUT USR  CAT  BEEP  CAT USR [F]J@[J] CLEAR | CLEAR @=| CLEAR |USR (SGN FN SGN [J] INK  OUT  OUT USR  CAT [H]USR IUI@▖[J]T[J] DRAW [J][Q][J]|[J]©/©8[J]v`L DRAW © DRAW ?[J]FN EPFN IP[Q]FN ) CLOSE #@T LPRINT RIT)TDPOINT TDD[U]B[U]B[U]AP@P@[Q]TA[[J]@ BRIGHT @/!▗[J][J]P[J]_ LIST [J]} LIST  CLEAR p DRAW  LPRINT  INK 3 LIST  COPY  LIST  DRAW [J][Q]@J[Q]!%@R▘[Q]PIQSPI%P[U]EPRNDP[A][A]B[A]@!@▝Pl7pp▗▗[J]x[J]@©USR ▗[J] RUN USR  PRINT USR  NEXT f[J] CAT USR ' COPY USR  LIST [J](TU[J]!*▗[F]J[N]DN@$[F]@[B]@J[F]@DJ@ @!@@VAL  INVERSE USR USR [J] LPRINT ▜[J]x[J] COPY ▗[J] LPRINT  OUT 0 BEEP  FORMAT [J] CAT  FORMAT [O]P9 FORMAT  BORDER  CIRCLE [J]?LN @xVAL$  SAVE ]SCREEN$ A CIRCLE [S]q MERGE @ READ @TG@VT@VAL$ AT @AT X@POINT 8@/p@Z@A DRAW @? LIST @©@@@[J][J]▜[J] LPRINT [J] RETURN ▗[J]|USR _@?@ BORDER @[P]`[J] RETURN  LPRINT  LPRINT SQR  LPRINT thPOINT b<=U▟QX:UQINT LEN LEN a[U] LLIST qSTR$ h1 LET [J] COPY STR$  DRAW A▗[J]B▗[J]<▜[J][J]? SAVE ▗[J][J]=}[J] CLEAR [J]9 RESTORE [J]3[N][J]>} CLS * LOAD  MOVE [Q]*[U](TN4Dt` CONTINUE UD REM BIN  OR ▗[D]▗<=[Q]BIN BIN  COPY 7 LIST 4[J]▗[J] LIST ▜[J] OUT  CAT  OUT  BEEP [J]T▛ LINE ▛h[J] CLEAR BIN  RANDOMIZE  DRAW | CLEAR |SGN TAB /POINT T DEF FN  BORDER _T BEEP  THEN  CAT  TO STR$ UH, REM Uy GO TO  RETURN / DRAW VEmT[J] INK .[O]l CAT  CAT  CLOSE #[E]UH[J] GO SUB  STEP  DATA ~"| DRAW AT TAB T PAPER _ CLOSE # CAT  BEEP  TO  OPEN #*▖ GO SUB * STEP  CLOSE # INVERSE  GO TO  DRAW lUT[J]©?~0__]P/*-[Q][J] RUN  BORDER  LIST  NEXT  PRINT  PAUSE  LIST ASN rRNDP`;[N]}P_/?0+U VAL POINT U BORDER VAL  SAVE Us LIST YASN P[J]dINT yVAL <?PP]U TAN +7[A] SAVE ▞ NEXT  LIST VAL jASN Pjh©P<+_0LSCREEN$ * (TAN ATTR 7PtCOS  LIST VAL %UP[J]= DRAW  CLEAR  SAVE USR =}}u@(SGN FN ACS [J] BRIGHT O[P]USR  CAT  BEEP  THEN USR  MERGE  LINE [F]@< INPUT u PRINT @=|SGN  DRAW USR (AT TUSR RNDW[O]USR  LLIST U CAT USR dV MERGE @ [J]=[C] DIM  NEW USR < LIST  CLEAR @)AuT FORMAT AT  OVER @ STOP ' CAT USR STR$ SCREEN$  MERGE @AFN [Q]% CLEAR @ LIST TAB |USR -2FN FN [Q] ERASE AT  INVERSE @ FORMAT [F]U@[J] OUT  CAT  OUT  TO  BEEP [J] CLOSE #▛ LINE ▛>=[J]t GO SUB  STEP lABS | POKE TAN TPOINT UT[J] OUT  CAT  OUT  TO  FLASH  OUT  CAT [I][G]▛] TO [J] DRAW  RANDOMIZE  RANDOMIZE  DRAW ABS  PRINT U BRIGHT T INVERSE SGN TAN ▛[J]SCREEN$ [J][Q][J]© COPY  COPY  LPRINT @(O COPY  COPY  PFN G COPY  OVER [Q]W COPY  RETURN FN G COPY  RETURN [Q]W COPY  RETURN FN G COPY  RETURN [Q]PFN JSCREEN$ SCREEN$ [Q]@([J]©?©0_[J]P/*/ [J] OPEN #ATN 5VAL  PRINT  NEXT  ERASE  FORMAT RRNDUP[J]©?©0o©>`Z-w0[J] NEXT  BORDER  BORDER  LIST  RUN  MERGE WpSv PAUSE  FORMAT [J]SCREEN$ [J][J]  COPY [J][J][Q]? COPY  DRAW @[Q] COPY z_ COPY  IF [Q] COPY  IF _ COPY  IF [Q] COPY  IF @[Q]*SCREEN$ SCREEN$ [J][Q][J]= DRAW  CLEAR  DRAW USR =}[J]@(SGN FN SGN [J]N BRIGHT  VERIFY USR  BEEP  CAT K@J[F]U@[J]= DRAW  CLEAR  DRAW USR =ABS  DRAW  RANDOMIZE )hASN  BRIGHT USR [J] CAT [P][P]USR  OUT U]USR M FLASH  THEN @[J]SCREEN$ [J][J] COPY  COPY  RETURN  COPY  COPY  PAUSE © CLEAR  REM © COPY  REM © COPY  REM © COPY  REM © COPY  REM SCREEN$ [J] RANDOMIZE  RANDOMIZE  NEXT  LIST  RANDOMIZE  CLS  RANDOMIZE  SAVE  RANDOMIZE  CLS  IF  SAVE  CLS  RANDOMIZE  CLS  SAVE  CLS [J] SAVE  CLS [J] SAVE  CLS  READ  CLS  SAVE  CLS  NEXT  CLEAR  SAVE  NEXT  CLS  RANDOMIZE  SAVE  NEXT  RANDOMIZE  CLS  LIST  CLS  PAUSE  CLS  SAVE  CLS  LIST  CLS  SAVE  CLS  THEN ; SAVE  CLS [F][ SAVE  CLS S SAVE  NEXT [B]Y SAVE  NEXT  SAVE  READ  THEN SQR  SAVE  FLASH USR ; SAVE  CLS  FLASH  SAVE  CLS USR 1 SAVE  CLS CHR$ EXP  SAVE  CLS ▖[L] SAVE  CLS ATTR  LIST  CLS ATTR  LIST  CLS [L] SAVE  CLS CHR$ SQR  SAVE  CLS  LINE COS  SAVE  CLS CHR$ SQR  SAVE  PAUSE  LINE EXP  SAVE  FOR USR ; SAVE  NEXT ▘[ SAVE  BORDER  BORDER  CAT USR  BORDER  LOAD  BORDER  LPRINT  BORDER  LOAD  FOR  LPRINT  LOAD  BORDER  LOAD  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD  LOAD  LPRINT  LOAD  CAT  RUN  LPRINT  CAT  LOAD  BORDER  LPRINT  CAT  BORDER  LOAD USR  LOAD  THEN  LOAD  LPRINT  LOAD NOT  LOAD  LPRINT  LOAD , LOAD  LPRINT  INPUT Uo LPRINT  INPUT O LPRINT  DEF FN Eg LPRINT  DEF FN g LPRINT . LOAD  LPRINT o LOAD  LPRINT  INPUT o LPRINT  LOAD <= LPRINT  LOAD  BORDER  LPRINT  INPUT "o LPRINT  GO TO CODE USR  GO TO CODE USR  INPUT o LPRINT  LOAD  LOAD  LPRINT  LOAD * CAT  LPRINT  LOAD  LOAD  LPRINT  THEN * BORDER  LPRINT CODE  LOAD  LPRINT  DEF FN o LPRINT ?[P][P]??[P]IN [P]?[P]IN CODE ?IN [P]IN ?IN [J]?IN [J]?PEEK ?IN ?IN ? OUT ??IN [P]??[P]IN ?IN /IN ?IN IN SGN COS IN EXP UIN ?LN U??9[P]?8[P]><SQR IN =SGN IN ?LN ]IN ?SGN ?SGN +[P]?LN ▞IN ?VAL jIN ?VAL jIN ?LN IN ?SGN +IN ?SGN ATTR ??SGN +IN ?,ATTR [P]>SGN IN ?8%IN  CLS [J] SAVE  CLS [J] SAVE  CLS [J] SAVE  CLS  CLS  NEXT  SAVE  CLS [J] SAVE  CLS  FOR  CLS  SAVE  CLS  NEXT  CLS  SAVE  CLS  NEXT  CLS  SAVE  CLS [J] SAVE  CLS [J] SAVE  CLS [J] LIST  CLS  RANDOMIZE  CLS  LIST  CLS  IF  CLS  SAVE  CLS  RANDOMIZE  RANDOMIZE  SAVE  CLS [J] SAVE  CLS [J] SAVE  NEXT  CLS  CLS  SAVE ▚[J]SCREEN$ [J][Q][J]© COPY  COPY  LPRINT @(O COPY  COPY  PFN G COPY  OVER [Q]W COPY  RETURN FN G COPY  RETURN [Q]W COPY  RETURN FN G COPY  RETURN [Q]PFN JSCREEN$ SCREEN$ [Q]@( LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD  LOAD  CAT  LPRINT  LOAD [J] LPRINT  LOAD CODE  LOAD  LPRINT  LOAD  CAT  LOAD  LPRINT  LOAD  CAT  LOAD  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  LOAD [J]USR  LOAD  BORDER  LOAD USR  LOAD  FOR  LOAD  LPRINT  LOAD  BORDER  BORDER  LPRINT  LOAD [J] LPRINT  LOAD [J] LPRINT  CAT  LOAD  LOAD  LPRINT [J]SCREEN$ [J][J]  COPY [J][J][Q]? COPY  DRAW @[Q] COPY z_ COPY  IF [Q] COPY  IF _ COPY  IF [Q] COPY  IF @[Q]*SCREEN$ SCREEN$ [J][Q]?IN [J]?IN [J]?IN [J]IN IN ?/IN [J]?PEEK IN IN ?IN ?IN ?IN ?IN ?IN [J]?IN [J]?IN [J]?IN [P]IN ?IN CODE IN ?IN [P][P]?IN [J]?IN [J]??IN IN [J]SCREEN$ [J][J] COPY  COPY  RETURN  COPY  COPY  PAUSE © CLEAR  REM © COPY  REM © COPY  REM © COPY  REM © COPY  REM SCREEN$ [J][J] OUT  CAT  OUT  TO  BEEP [J] CLOSE #▛ LINE ▛>=[J] CLEAR  CLEAR  STEP  DRAW | CLEAR | DRAW POINT TPOINT T[J] THEN  BEEP  CAT  CLOSE # BEEP  CAT  BEEP  TO ▛ LINE ▛>=[J] CLEAR  CLEAR  LET  DRAW  CLEAR | RANDOMIZE |[F]T[E][J] OUT  CAT  OVER  BEEP [J]▛ LINE ▛>=[J] LET  LET  CLEAR  DRAW | CLEAR | DRAW POINT T[R]T[J] CAT  BEEP  CAT  CLOSE # BEEP  CAT  BEEP  TO ▛ LINE ▛>=[J] GO SUB [N] CLEAR  DRAW  LET < RANDOMIZE |T[F]T[E][J]©?©0_[J]P/*/ [J] RUN  RUN 7 LIST  NEXT  PRINT  NEXT  LIST RNDRRNDP[J]/_?P_?_0/*/ [J] RUN  RUN <= LIST  PRINT  NEXT  RESTORE  LIST RURP[J]©?z0__/P/*/ [J]<=<= RUN  LIST  NEXT  PRINT  NEXT  LIST RNDRP[J]?_?P_?_0/*/ [J]ACS w RUN  LIST BIN  NEXT  RESTORE  LIST RURP[J]= DRAW  CLEAR  DRAW USR =}[J]@(SGN FN SGN [J] OUT  BRIGHT  OUT USR  CAT  BEEP  CAT USR [F]J[F]@[J]<ABS | CLEAR @=| CLEAR |USR (SGN FN SGN [J] OUT  OUT USR  BEEP  CAT [H]USR IUI@[J]= DRAW  CLEAR  CONTINUE USR =}}q@(SGN FN SGN [J][J] OUT USR  CAT  BEEP  CAT USR [F]J@[J] CLEAR | CLEAR @=| CLEAR |USR (SGN FN SGN [J] INK  OUT  OUT USR  CAT [H]USR IUI@[J] OUT  CAT  OUT  TO  BEEP [J] CLOSE #▛ LINE ▛>=[J] RUN ? DRAW g COPY  DEF FN <[O]S CLOSE #T COPY  CIRCLE  OVER ▛ INVERSE  DATA  OUT  COPY  VERIFY  GO TO [P] COPY  CONTINUE `? CLEAR  BRIGHT [P] COPY < INVERSE  OUT  COPY SGN ▗G[E]SQR SQR  INPUT SCREEN$ ATTR  TO  INPUT COS SQR  CLOSE #▙ LINE G>=r COPY USR  OUT  COPY  BRIGHT _ SAVE  COPY  BRIGHT [M] OUT  RESTORE T COPY  COPY USR  BRIGHT CODE  RANDOMIZE T CAT  COPY  CAT  BRIGHT [R] COPY 7FN [J] GO SUB [N] CLEAR  DRAW  LET < RANDOMIZE |T[F]T[E][J]©?©0_[J]P/*/ [J] BRIGHT  DRAW { LIST [P] COPY 8 LIST yOQP© COPY `z/w[A]© COPY [VAL © COPY [R]x COPY  POKE r© DRAW  LIST w© RETURN  LIST rPz INPUT  INPUT INT SCREEN$ CODE 0INT  DEF FN  LOAD P;) } THEN  COPY ~+ COPY p© READ  COPY ps©[F]P© COPY  COPY rIN  RESTORE P? COPY ?p▜ DRAW  OVER [Q][J]ACS w RUN  LIST BIN  NEXT  RESTORE  LIST RURP[J]= DRAW  CLEAR  DRAW USR =}[J]@(SGN FN SGN [J]s LET  LOAD USR © DRAW  READ USR  RESTORE =E@ COPY  CLEAR = CONTINUE ABS  OVER @= COPY  CLEAR nUSR ) COPY  RETURN ▚ READ  COPY  FORMAT <> COPY  NEXT USR  INVERSE  COPY  CLS USR >=Dy@ FOR SQR LN > REM SCREEN$ SGN USR > FOR ;ABS @( GO TO [U]| RUN / DRAW  SAVE CODE  CLEAR USR  COPY  CLEAR USR  STEP  RETURN U@ COPY  COPY  DRAW  LINE  COPY [F]@< COPY  DRAW  CLEAR USR * NEXT z[J] INK  OUT  OUT USR  CAT [H]USR IUI@▗[J]k PRINT  RUN  RUN  LOAD  NEXT  PLOT   PRINT ▗[J]]+_T*V*.▗[J] GO TO w READ ~SCREEN$ SCREEN$ ASN AT UB▗[J]USR sSTR$  RUN  LIST ATTR  PAUSE  CAT  RANDOMIZE _ASN }[Q]SCREEN$ "SCREEN$ [J] STEP R;; MOVE !$ RESTORE !D RESTORE  INK  MOVE STR$  INK !w@~ RETURN  GO TO (# INK  OR  INK ( FOR 0 LET <>#F THEN x( THEN LN x RETURN >0> GO TO #~O INK  MERGE  INK y FOR  PRINT #0 STEP <> FOR $| RETURN Y0 NEW USR } AND  o?[P] NEW  SAVE ▗gATN <> MERGE   COPY  MOVE | RETURN [? FORMAT  VERIFY g,} NEW USR 7<> COPY  COPY  CLEAR q GO TO  GO TO [R]!!B!R!BB GO TO  GO TO 0 LPRINT `9'[B]h</JB  GO TO  GO TO ▗ GO TO  GO TO ▜▜ COPY  GO TO ▙p* PRINT ?LPOINT wKCODE pzuSCREEN$  COPY ▗ REM USCREEN$ U GO TO P GO TO HXX COPY ©IN  GO TO VAL$  P @[Q]@[Q]@@@ GO TO ▚8(Q READ  CAT  COPY /[H]O COPY  OUT OO GO TO ▜▜'▜▝ GO TO  GO TO @USR [Q]@[Q]``Pi CIRCLE  DRAW  COPY  GO TO ▙▜h[C] COPY / COPY  MERGE  FOR  COPY  FORMAT SCREEN$ UINT  CLEAR [Q]XAT Z GO TO P GO TO HXX COPY  CAT ▜((   GO TO TAB  ( !A[T]C▜?© GO TO - COPY ©© COPY ?_#P? LPRINT  GO TO ▙ RUN [S]_ SAVE e OVER 5▖<>JJ$,, GO TO PHXX COPY  RANDOMIZE  RUN  DEF FN (  GO TO ▜ GO TO  GO TO  GO TO  GO TO  GO TO  GO TO ? GO TO © GO TO L COPY  GO TO  READ 7 COPY  COPY (| COPY  BORDER  LIST H COPY USR : PRINT SCREEN$  MERGE ©CHR$ *u REM  PRINT  GO TO PhHXX GO TO  COPY  GO TO [B] GO TO  COPY   GO TO ▙ LLIST  VERIFY  DIM  COPY P PAPER [F]?[ REM ▖TSCREEN$ T COPY SCREEN$ USCREEN$ U GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY // GO TO  RANDOMIZE TRNDv▝[J]ATN USR w LOAD /[Q] AND  STEP = MERGE *[L]O GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  SAVE R COPY T IF [T]Q COPY @[S]USCREEN$ UCODE pUSR ▜[O]= GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  SAVE POINT _ LIST  LINE ?`5j RUN BIN E COPY USCREEN$ USCREEN$ U GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO ?STR$  REM INKEY$ SAVE [R]t COPY USR : PRINT SCREEN$  MERGE  LINE 5 OR INKEY$SSIN S GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO ▛0 PLOT  ? COPY  COPY /r COPY kATTR  IF ▖TSCREEN$ TEXP VFN PLEN  READ  READ  BORDER  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO USR  LLIST  VERIFY <> COPY [Q] RETURN  COPY PIUEXP n[A]co& COPY d FOR USCREEN$ U GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  READ 4J CLEAR POINT WLN  STOP U COPY AT USCREEN$ U IF (TSCREEN$ T GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY // GO TO  LPRINT [▗?USR INT  COPY FN  BRIGHT  REM =B[T]R[T]R[T] ERASE [T]RjR GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  RETURN 0 REM 4▙DINKEY$R*2[D][C][C][L][D]WW GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO [B] GO TO @A©ww© DIM  LOAD  RUN  GO TO  OUT IN IN  COPY &~ RETURN  GO TO FGGh GO TO H GO TO  COPY  GO TO [B] GO TO  COPY  GO TO [H]@ COPY  RETURN  OUT  OVER ? GO TO PEEK © CIRCLE ~~ GO TO  RETURN  GO TO FGGh GO TO H GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  P GO TO ▜ COPY  RUN  COPY  RUN c CLS  COPY  CLS  CLEAR  DRAW  CLEAR  COPY  RETURN 6 RETURN  RETURN  GO TO FGGh GO TO H GO TO  COPY  GO TO [B] GO TO  COPY  GO TO [B] GO TO  RETURN PEEK  RETURN  OVER  COPY  LOAD  LOAD  RUN  RUN _ PRINT  PRINT  RUN  DRAW  IF  CLS  GO TO FGGh GO TO H GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  GO TO ~_,q"eJTLX<>XIXI>= INK  CONTINUE >=>=<> REM  REM  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY ,^^ GO TO  LIST  SAVE  SAVE  RETURN  RETURN  COPY z COPY ] COPY ;WSGN `[R]B OR J OR J OR K OR JVJ GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO <=,RIN  LPRINT [F] REM GSCREEN$  COPY 5SCREEN$ USCREEN$ _ LPRINT *U* GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  LLIST [U] PRINT  NEW  CLS USR SCREEN$ [N]v AND  PLOT  dVAL  COPY & BEEP SCREEN$ USCREEN$  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO <BNOT NOT  BORDER  COPY ~ BEEP  COPY U COPY *U*[N]j▟<=<= BORDER  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO  RETURN ( BEEP  SAVE e LPRINT . COPY /CODE UATTR SAT P[T]e LINE M LINE  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO `[F] IF S DRAW QAT V LOAD X00#[S] COPY SCREEN$ USCREEN$ USCREEN$  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO [Q]J COPY USR *_ LIST  OR  COPY ESCREEN$ USCREEN$  PRINT XSGN  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY ,^^ GO TO [P] LIST *RNDn▝[J] GO SUB X INPUT  RUN :cCOS XSGN XATTR TFN  INK VAL  LET  PAUSE  GO TO FGGhHXX GO TO  COPY  GO TO [B] GO TO  COPY  GO TO ▜h[C] CLEAR TIN  SAVE  RESTORE J_pnUj COPY FN USCREEN$ USCREEN$  GO TO FGGhHXX COPY [P]#((( ( GO TO  GO TO USR  GO TO  LPRINT  GO TO  LIST  GO TO  SAVE  GO TO  DRAW  GO TO  RETURN  GO TO L COPY  GO TO <=([F]o LIST  LINE ? VERIFY ATTR  RETURN TATTR VTAB  RETURN C▖TVAL$ WCODE  GO TO PhHXX COPY  NEXT  DIM ▗ GO TO [O]@[Q]@ P P ( GO TO ▗ ▖▗▘ OR CHR$ STR$  LPRINT  LLIST  LPRINT  LIST  LIST  SAVE  SAVE  DRAW  RETURN  GO TO - COPY  GO TO  RETURN  DRAW  GO TO  SAVE  POKE  CONTINUE  FORMAT ▝ CLEAR  GO TO ▙ LOAD 8E IF INKEY${AT p%SCREEN$  BEEP ,[A][A][D]RR$44 GO TO PHXX COPY  RETURN  DRAW q GO TO @ GO TO INKEY$ GO TO ▗@[Q]@[Q]@0(<= NEXT  COPY  POKE  DIM  PAUSE  COPY  CLS  PAUSE  LET  PAUSE  LIST  GO TO  LPRINT  LLIST  LPRINT  LLIST  DATA  LLIST  FORMAT STR$  FORMAT USR USR STR$ ▝ GO TO ▝ GO TO  GO TO ▖[F]* COPY  LIST  GO TO ▙ LLIST I COPY : COPY ATTR  BEEP  COPY USCREEN$ ]IN USR 5Z GO TO P GO TO HXX COPY ©IN N@@[Q]@[Q]@[Q]@[Q]@P @   GO TO ▗ GO TO RND▗▗B▗B▗B[R]B 0 0(▞= PRINT +3bSbCE▚D GO TO  GO TO  @ @ @ GO TO ▖ FORMAT  GO TO ▙ LET [F] INPUT ( ERASE  PRINT U COPY !WSCREEN$ USCREEN$  GO TO P GO TO HXX OVER [J] NEXT  STEP  GO TO POINT NOT  OVER  BRIGHT [J][J][J][J] COPY [J]TAB [J]_ COPY  COPY  SAVE ? CAT  OUT WF[J][J]©©|/TAB ^{©©|©P? OR  CAT SCREEN$ [A]@[J]USR ?_>[ GO SUB ABS W??_>_S COPY  COPY >=?J MERGE v([Q][J]© RETURN E%U/ GO TO Q[UE%U%T*?@uP▜[J]▜▗[J]'[T]▚[J]Q COPY  COPY FN ? LINE  INVERSE A8 FORMAT [J]V SAVE  RUN  NEXT  RUN FN KPI[L] RUN  NEXT  RUN [T]Q COPY  COPY SCREEN$ ?E INVERSE U FORMAT [J]v[E]^ PRINT [J] LOAD  BORDER USR 3 PRINT [J] OR Q COPY  COPY FN ?HU[Q][J]ACS [K][S] PAUSE [S] LOAD  INVERSE  MERGE R[S] PAUSE [S] PAUSE U LET  COPY SCREEN$ ?UU[J] PLOT  VAL m[J]& [J]Q DATA  COPY FN ?_+ATTR [J]4-||©p;BCOS y||©©T*?[A]'+[J]ACS VAL  INVERSE _?_0?▖[P]?_?_?RSCREEN$ SCREEN$ FN ?**N[J] VERIFY ▙-*U(PATTR U*U(UP? W▚[J]vSGN [J]Q[Q][J]_ OUT  FOR  CIRCLE ?[F],V[J] GO SUB xs PRINT  NEXT  LPRINT N[H] PRINT s PRINT  NEXT  PRINT JPOINT [F]SCREEN$ ?]P©[J]mx PRINT  NEXT  PRINT  LPRINT CHR$ ASN  NEXT  PRINT  NEXT  PRINT  NEXT @▗[J]?▜LN  DRAW [J]-p[S] PAUSE [S] LIST ▝[J] LINE [S][J] PAUSE [S] PAUSE © RUN  COPY  DRAW ? OUT USR [J]mp[J].[R][J]? LPRINT SGN  FORMAT [J]i`{g©aNOT JCOS u{g©[J] COPY  COPY  RETURN ?;/ [J]-`<O>`O@;?<O>_*SCREEN$ [J]?U[F]USR [J]*[Q]*U%U8{U[J]%U%RND[J]k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN k PRINT  RUN  RUN  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT  LOAD  NEXT  PLOT   PRINT [Q][J]]+_T]+_T]+_T]+_T]+_T]+_T]+_T]+_T*V*.*V*.*V*.*V*.*V*.*V*.*V*.*V*.[Q][J] GO TO w READ  GO TO w READ  GO TO w READ  GO TO w READ  GO TO w READ  GO TO w READ  GO TO w READ  GO TO w READ ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN ~SCREEN$ SCREEN$ ASN AT UBAT UBAT UBAT UBAT UBAT UBAT UBAT UB[Q][J]USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN USR sSTR$  RUN  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  LIST ATTR  PAUSE  CAT  RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN } RANDOMIZE _ASN }[Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q]SCREEN$ "SCREEN$ [Q][J]@ABCDEFG$@$A$B$C$D$E$F$GD@DADBDCD[J]EDFDGd@dAdBdCdDdEdFdG▗@▗A▗B▗C▗D▗E▗F▗G[U]@[U]A[U]B[U]C[U]D[U]E[U]F[U]GBIN @BIN ABIN BBIN CBIN DBIN EBIN FBIN G DATA @ DATA A DATA B DATA C DATA D DATA E DATA F DATA GHIJKLMNO$H$I$J$K$L$M$N$ODHDIDJDKDLDMDNDOdHdIdJdKdLdMdNdO▗H▗I▗J▗K▗L▗M▗N▗O[U]H[U]I[U]J[U]K[U]L[U]M[U]N[U]OBIN HBIN IBIN JBIN KBIN LBIN MBIN NBIN O DATA H DATA I DATA J DATA K DATA L DATA M DATA N DATA OPQRSTUVW$P$Q$R$S$T$U$V$W COPY [J][J] COPY  LET  COPY  COPY USR ©& COPY ?C@ COPY ?VAL @ COPY ?L@ COPY B  COPY ?/@ COPY ©X COPY ?C@ COPY USR ?,@ COPY USR ?+@ COPY W[Q] COPY U[Q] COPY USR c[Q] COPY K[Q] COPY Y[Q] COPY S[Q] COPY PI  RETURN O  DRAW ?TAN @ CONTINUE ?@ FORMAT ?)G@ LPRINT ?VAL$ @ STOP ©N PLOT  ©| COPY ?[M]@ COPY ?FN @ COPY VAL   RETURN d DRAW v SAVE ih SAVE )▖ DRAW  RETURN  LINE   COPY  LET  COPY  COPY USR ©& COPY ?C@ COPY ?VAL @ COPY ?L@ COPY B  COPY ?/@ COPY ©X COPY ?C@ COPY USR ?,@ COPY USR ?(@ COPY S  COPY W[Q] COPY G[Q] COPY g[Q] COPY [L][Q] GO TO q[Q]USR , USR  o F* BIN z[B][Q] RETURN [Q] COPY  OUT [Q] COPY ?_@ COPY ?_@ COPY ?_@ COPY ?_@ COPY USR ?/@ COPY USR ? @ COPY USR ©- COPY USR  COPY ) COPY USR  COPY - COPY  COPY ] COPY  COPY ▝ COPY  COPY ▞ COPY  LET  COPY  COPY USR ©& COPY ?C@ COPY ?VAL @ COPY ?L@ COPY B  COPY ?/@ COPY ©X COPY ?C@ COPY USR ©,USR  COPY USR ?*@ COPY U[Q] COPY S FORMAT  COPY NOT  FORMAT  BRIGHT # FORMAT  BRIGHT  RANDOMIZE  FORMAT  FORMAT  RANDOMIZE TAB  FORMAT  SAVE IN [Q] DRAW ?  DRAW   RETURN _  COPY @CODE   COPY USR /  COPY G  COPY C[Q] COPY L[A] COPY ▜ COPY ▜  DRAW ?▜@ SAVE ? THEN @ SAVE +  DRAW   RETURN ?[A]@ COPY ©p COPY [J][J] COPY  COPY p COPY  COPY ▖ RETURN  COPY d DRAW  COPY CHR$  DRAW  COPY  DRAW  COPY 2 SAVE  COPY B DRAW  COPY : RETURN  COPY  DRAW  COPY CHR$  DRAW  COPY 4 DRAW  COPY  CLOSE # SAVE  COPY  REM  SAVE  COPY SCREEN$  SAVE  COPY  AND  SAVE  COPY  ERASE  SAVE  COPY [K] SAVE  COPY  LINE  SAVE  COPY  RESTORE  SAVE © PAUSE  DRAW ?-@ DRAW ( DRAW  STOP [E] DRAW uH RETURN GrFN  RETURN o>[A] DRAW  COPY 9 DRAW  COPY  SAVE  COPY  LIST ©& LIST ?nUSR  LPRINT `[G]  LPRINT `[E]  LIST  ?P@ SAVE  ©S COPY  COPY p COPY  COPY ▖ RETURN  COPY d DRAW  COPY CHR$  DRAW  COPY  DRAW  COPY 2 SAVE  COPY B DRAW  COPY : RETURN  COPY  DRAW  COPY CHR$  DRAW  COPY 4 DRAW  COPY  SAVE  COPY  LINE  SAVE  COPY  REM  SAVE  COPY  STOP  SAVE  COPY  NEW  SAVE  COPY  INK  SAVE 7▙>= SAVE  LIST 4 SAVE  PLOT   SAVE Tb SAVE #▞^ SAVE © SAVE  SAVE  COPY  CLS  DRAW  COPY  IF  DRAW  COPY  IF  DRAW  COPY  IF  DRAW  COPY  IF  DRAW  COPY  POKE  DRAW  COPY  RETURN  COPY TAN  COPY  COPY [E] COPY  COPY TAN  COPY  COPY INT  COPY  COPY ▝ COPY  COPY [B] COPY  COPY p COPY  COPY ▖ RETURN  COPY d DRAW  COPY CHR$  DRAW  COPY  DRAW  COPY 2 SAVE  COPY B DRAW  COPY : RETURN  COPY  DRAW  COPY CHR$  RETURN  COPY 4 DRAW  COPY T SAVE  COPY SCREEN$  LIST  COPY  LINE  LIST  COPY NOT  LIST ;LN BIN  LIST [P]; LIST  LIST ASN [P] SAVE  CLEAR ` SAVE ? DRAW @ SAVE ?@ SAVE © IF  SAVE  COPY  PRINT  SAVE  COPY  POKE  SAVE  COPY  STOP  SAVE  COPY CHR$  LIST  COPY 2 LIST  COPY  LLIST  SAVE  COPY  LLIST  DRAW ? LLIST USR  DRAW  OPEN #  SAVE  CLOSE #  SAVE ?8@ DRAW © RETURN  COPY USR  COPY  DRAW   COPY  SAVE  FORMAT  COPY  LIST h COPY  LPRINT  COPY  LIST >= COPY  LIST $ COPY  LIST ▖ COPY  SAVE ▖ COPY  SAVE h COPY  LIST ▖ COPY  LPRINT 4 COPY USR 2z RETURN @Z GO TO :m©INT A|INT  LIST  STEP  POKE  LPRINT  LET  CONTINUE  LPRINT  IF  LPRINT { CONTINUE USR . CONTINUE USR .TAN m▚tTAB [E]▝▝[C]BZ▝MZNOT Dq$NOT  BORDER $▞ BORDER  COPY ▙ COPY  COPY p DRAW © COPY  SAVE ? COPY @ LIST  COPY   LPRINT  COPY  LPRINT  COPY >= LPRINT  COPY USR  COPY $[A] LPRINT  COPY  FORMAT  LPRINT  COPY [Q] LPRINT  COPY [Q] LPRINT  COPY PUSR  COPY ,▖ COPY ^L©Z7/ LET H] RETURN ACS X▘] CIRCLE >USR /COS  FORMAT  LPRINT  CONTINUE  LPRINT _FN  LPRINT  OVER h LPRINT VAL tUSR -tUSR .aACS USR )STR$ ASN ▝▝ZBI▝ZSIN QNOT STR$ $▙" BORDER NOT [B]$ COPY  BORDER q COPY  LET  COPY [J] COPY  LET  COPY  COPY USR ©& COPY ?C@ COPY ?VAL @ COPY ?L@ COPY B  COPY ?/@ COPY USR ©( COPY USR ?+@ COPY ?T@ COPY ▞[Q] RETURN [D] FORMAT  SAVE  FORMAT USR 8< FORMAT  CLOSE # RANDOMIZE  FORMAT ▚ FORMAT x INVERSE  FORMAT  SAVE _[Q] DRAW   RETURN _[Q] COPY PEEK   COPY IN   RETURN ?@ RETURN ?~@ RETURN ©< RETURN ?@ RETURN J  RETURN T RETURN f DRAW  DIM ( DRAW <>>= DRAW  REM  SAVE  SAVE I LPRINT  COPY [J][J] COPY  COPY p COPY  COPY ▖ RETURN  COPY d DRAW  COPY CHR$  DRAW  COPY  DRAW  COPY 2 SAVE  COPY B DRAW  COPY : RETURN  COPY  DRAW  COPY  CLOSE # DRAW  COPY * SAVE  COPY [B] LIST ©<> LIST USR ` LIST < LIST [P]+ LIST a LIST SQR  SAVE  IF ` SAVE ?@ SAVE © IF  SAVE  COPY } SAVE  COPY  CLEAR  DRAW © SAVE  DRAW ©~ RETURN ©< DRAW ©8 SAVE ©R LIST ©* LIST ©f LPRINT `?[H]@ LPRINT `?[D]@ LPRINT  ?W@ LIST  P  SAVE `[C]  LOAD  LET  COPY hUSR ©[A]&▜?HC@NOT ?$VAL @ LPRINT ?L@ LIST ?NOT @ LIST 0  LPRINT ?8@USR ©&>= LPRINT ?s@ LIST ?8@ LIST ?▟@ SAVE USR [Q] DRAW  OUT   RETURN ©  RETURN >  RETURN A[Q] COPY IN [Q] COPY ?IN @ COPY ?[P]@ COPY ?IN @ COPY ?IN @ COPY ?IN @ RETURN ?_@ RETURN ©~ RETURN ©PEEK  RETURN ©/ RETURN ?`@ RETURN p  RETURN t  DRAW  NEW P DRAW  THEN [A] DRAW l SAVE   SAVE ?KUSR  COPY  COPY [A] COPY  COPY [A] COPY  COPY [A] COPY  COPY [A] COPY  COPY [A] COPY  COPY ▖ COPY  COPY [E] RETURN  COPY B RETURN  COPY 9 DRAW ©D DRAW ©8 DRAW ?▝@ DRAW ?CHR$ @ DRAW ?|@ SAVE ?9@ LIST E[Q] LPRINT ;[Q] LPRINT  OR [Q] LPRINT  COPY [Q] LIST ? COPY @ LIST ? RETURN @ SAVE ? DRAW @ SAVE ? OVER @ SAVE © OVER  SAVE © BRIGHT  SAVE © DRAW  SAVE © DRAW  SAVE © BRIGHT  LIST © BRIGHT  LIST © BRIGHT  LIST ©▖ LIST © LIST ©, SAVE © INPUT  DRAW © NEW  DRAW © ERASE  DRAW ©P DRAW ?@ DRAW ?@ RETURN © COPY  RUN p COPY  LLIST ▖ RETURN  LIST d DRAW  LLIST CHR$  DRAW NOT $ DRAW 2>= DRAW NOT  SAVE P DRAW ▖ RETURN d DRAW  DEF FN h DRAW [A] DRAW LEN  FORMAT  SAVE [Q] SAVE ? CLS @ SAVE © RETURN  SAVE ©| SAVE ©▘ SAVE  COPY  CLEAR  DRAW  COPY  CLEAR  DRAW  COPY  RANDOMIZE  DRAW  COPY  CLEAR  DRAW  COPY  CLEAR  DRAW  COPY  CLEAR  DRAW © IF  RETURN ©~ RETURN ©} RETURN ©: DRAW © SAVE ©. LIST ?g@ LIST  ? OPEN #@ LIST ?6@ SAVE 0  DRAW   ERASE   COPY [J]▗[J] COPY  COPY  COPY  LPRINT  RETURN  RETURN ' SAVE  DRAW  SAVE h$ SAVE  LIST 4& LIST  LIST  LET  SAVE  SAVE ▗H SAVE xS▗4 SAVE [J] LPRINT |; DRAW ▘tx▚xL4[J]y READ INT  CONTINUE [J] OUT h[J] PLOT   RUN IN  LIST  RETURN } FORMAT  SAVE  COPY [J]▗[J] COPY  COPY  SAVE  COPY  DATA © LIST ©USR  LPRINT ?$`@USR d, USR  USR  LPRINT ![Q],! LINE  [J] BRIGHT >[Q]USR ?.ASTR$ @USR ,2a LPRINT [J]]<=[O] LPRINT [J] CLS  LIST  LPRINT [J] CLEAR  LOAD o LIST PEEK ©P LPRINT [Q] COPY [J][J] COPY  RANDOMIZE ?USR  COPY  LIST   COPY  LPRINT  FORMAT  COPY USR   FORMAT  COPY X COPY USR # COPY USR ,>= COPY USR # COPY USR . COPY  LPRINT  COPY  LPRINT h COPY USR )[A] COPY USR +h COPY USR " CONTINUE  COPY D POKE  INPUT 4USR >t@0tj POKE USR ;oh SAVE o CONTINUE  DRAW ▛▖ COPY ( COPY g FORMAT  COPY  LPRINT  FORMAT  COPY  LIST 0 COPY  LIST ( COPY  LPRINT H COPY  LPRINT H COPY  LPRINT ▗ COPY q▗ COPY ▝▝[J]Z COPY ▝▚b COPY A▗ COPY USR 1▖ COPY  COPY <> COPY 6 COPY  COPY  COPY I COPY  COPY ©[G] COPY  RETURN © COPY  DRAW ©USR  COPY  RETURN © COPY  RETURN ? LIST @ COPY  RETURN © COPY  RETURN ©p COPY  COPY ?[D]@ COPY  COPY ©AT  COPY  RETURN ?[@ COPY  RETURN ?W@ COPY  RETURN '[Q] COPY  DRAW C[Q] COPY p[Q] RETURN  LIST ;[Q] DRAW [Q] DRAW P[Q] RETURN ? FLASH ©@ COPY USR ?#©@ COPY  LPRINT ?^@ COPY  SAVE ?@ COPY  SAVE ??@ COPY  DRAW ?G@ COPY  RETURN ?@ COPY  COPY © COPY  COPY © COPY  COPY  COPY ▝ COPY  COPY  COPY A COPY  COPY  COPY A COPY  COPY  COPY A COPY  COPY  COPY M COPY  COPY  COPY  LET  COPY  RETURN  COPY  COPY  RETURN  COPY  COPY  DRAW [P]` COPY  SAVE [A] COPY  LIST h COPY  LPRINT h COPY USR , COPY  LPRINT ▖ COPY  LPRINT d COPY  LPRINT ▖ COPY  LPRINT  COPY  LIST 4 COPY  LIST >= COPY  LPRINT TAN  COPY  LPRINT t COPY USR "z RUN USR : LPRINT [K]USR  :USR 5: LPRINT ATN  PAPER  DRAW 7 POKE  RETURN  OR  DATA  COPY P COPY USR ' POKE  COPY  LPRINT  POKE  COPY  LIST d COPY  SAVE  COPY  SAVE  COPY  LIST  COPY  LIST  COPY  LPRINT  COPY q COPY ▝[J] COPY t COPY C▗ COPY USR 2 COPY  LIST [J] DRAW [P] COPY ` SAVE  COPY [A] LIST  COPY H LIST  COPY  LIST  COPY  LIST  COPY BIN  LPRINT  COPY 4 LIST  COPY BIN  LIST  COPY t LPRINT  COPY >= LPRINT  COPY ( LIST  COPY [E] LPRINT  COPY  CLOSE # LPRINT  COPY DUSR  COPY /"USR w,▖USR . LPRINT |USR .USR /V LPRINT  PLOT   BRIGHT  LPRINT  PLOT    LPRINT ? MOVE USR  LPRINT  COPY  LIST  COPY  NEW  LIST  COPY  LIST  COPY  LPRINT  COPY  LPRINT  COPY  LPRINT  COPY USR  COPY !USR  COPY !▙▝ COPY Z▝[J]▝ COPY FaUSR  COPY !▘ LPRINT  COPY  COPY <> COPY  COPY 6 COPY  COPY  COPY I COPY © COPY TAN  COPY ? COPY VAL @ COPY  COPY ▝[Q] COPY ? COPY @ RETURN ? COPY 3@ COPY ? COPY @ COPY ? COPY ▜@ RETURN © COPY d COPY © COPY [K] RETURN ? COPY m@ RETURN ? COPY u@ DRAW ? COPY  PAUSE @ DRAW  COPY  LLIST   DRAW ©USR  DRAW ? INPUT USR  DRAW  LPRINT USR   DRAW  FORMAT ` RETURN ?©mUSR  RETURN  COPY ©b RETURN  COPY = RETURN  COPY P RETURN  COPY ~ RETURN  COPY q` RETURN ? COPY ` COPY © COPY  COPY © COPY  COPY © COPY @ COPY  COPY  COPY A COPY  COPY  COPY A COPY  COPY  COPY A COPY  COPY  COPY Y COPY © COPY G COPY ? COPY @@ COPY ? COPY H@ DRAW [P] COPY ` SAVE  COPY [A] LIST  COPY H LIST  COPY  LIST  COPY  LIST  COPY BIN  LPRINT  COPY 4 LIST  COPY BIN  LIST  COPY t LPRINT  COPY H LIST  COPY FN  LPRINT  COPY  CLOSE # LPRINT  COPY TUSR  COPY /"USR w.▖USR , LPRINT |USR .USR .VUSR - PLOT   BRIGHT  LPRINT  PLOT    LPRINT ? MOVE USR  LPRINT  COPY  LPRINT  COPY  PAUSE  LPRINT  COPY  GO TO  LPRINT  COPY  LIST  COPY  LIST  COPY  LIST  COPY  LIST  COPY ( LPRINT  COPY $ LPRINT  COPY G LIST ©L LPRINT ©P LPRINT  COPY  LLIST  LPRINT  COPY & LIST  COPY 8 COPY  COPY  PAUSE © COPY  COPY  LPRINT ?@ COPY  COPY USR -[Q] COPY  COPY C[Q] COPY  COPY VAL   COPY  COPY F  COPY  COPY Y[A] COPY  COPY F  COPY  COPY /  COPY  COPY USR $ FORMAT  COPY  COPY USR +  COPY  COPY V FORMAT  COPY  COPY U FORMAT  COPY IN @[A] CONTINUE  COPY IN ` CONTINUE  RETURN Th RETURN  PLOT   OUT  CONTINUE  COPY  LIST  BEEP  FORMAT  COPY  SAVE   COPY  RETURN ?@ COPY  DRAW ?/@ COPY  DRAW #VAL  COPY  DRAW  H COPY  SAVE   COPY  SAVE D COPY  LIST  FORMAT D COPY  LPRINT 0" COPY  LPRINT !(R COPY  COPY ' COPY  CIRCLE  COPY  RETURN  COPY $ COPY  DRAW  COPY  PAPER  COPY  SAVE  COPY : COPY  LIST  COPY  COPY  SAVE  COPY b COPY  SAVE  COPY ▝[J] COPY  SAVE  COPY b COPY  SAVE  COPY CHR$  COPY  DRAW  COPY M COPY  DRAW  COPY SIN  COPY  SAVE  COPY m COPY  SAVE  COPY ] CLS  LIST ©© LIST  NEW  LPRINT ©©A PLOT   LPRINT ©m RETURN  COPY  COPY ▟} COPY  COPY p COPY  LPRINT  COPY  POKE  COPY USR  COPY " POKE  COPY USR  COPY "; COPY USR ©" COPY ©B COPY ?q@ COPY ? STEP @ RETURN   RETURN   COPY [J]▗[J] COPY [J]PI[J]X COPY [J][J][U] COPY  COPY  RETURN T COPY  COPY  SAVE : COPY  COPY  LIST  COPY  COPY  SAVE  COPY  COPY  SAVE CHR$  COPY  COPY  SAVE r COPY ©{ STOP  RETURN © RETURN ▘ RETURN [Q][Q]: RETURN  INPUT PEEK  BRIGHT  COPY  LPRINT  COPY  DRAW  COPY  LPRINT ? DRAW  COPY  LIST  CONTINUE  COPY  RANDOMIZE @ COPY  COPY USR 3 PAUSE  COPY  COPY  LPRINT  IF  COPY  COPY  LPRINT  PAUSE  COPY  COPY  LIST  STOP  COPY  COPY  LIST : COPY  COPY  LPRINT CHR$  COPY [J]▗[J] COPY  COPY  IF © COPY  COPY  LIST ?@ COPY  COPY  LPRINT ?@ COPY  COPY c[Q] COPY  COPY [Q] COPY  COPY @ COPY  COPY /  COPY  COPY G  RUN  SAVE PEEK   LPRINT  SAVE ` LPRINT  CIRCLE   LPRINT [Q] LPRINT  FOR  GO SUB USR  RETURN o COPY USR  RETURN  COPY USR  COPY [I]> COPY [I]d  COPY  DRAW ?  COPY  RETURN ?[Q] COPY  RETURN _  COPY  COPY [O]  COPY  COPY [Q] COPY  RETURN /  COPY [J]▗[J] COPY  COPY  RETURN [P]` COPY  COPY  DRAW [A] COPY  COPY  SAVE h COPY  COPY  SAVE ▗ COPY  COPY  LIST  COPY  COPY  LPRINT  COPY  COPY  LIST ▗ COPY  COPY  LIST $ COPY  COPY  LIST BIN  COPY  COPY  SAVE  COPY  COPY  LIST  COPY  COPY  LPRINT [E] COPY  COPY USR ,z COPY  COPY A IF  COPY  RETURN ▜ REM  COPY  SAVE  POKE  COPY VAL H©▗ COPY VAL SGN d COPY ▞ FORMAT  CLOSE # COPY .A POKE  COPY  POKE  COPY ?USR VAL d COPY  COPY k▗ COPY [J]▗[J] COPY  COPY  DIM  COPY  COPY  COPY USR  COPY ) COPY  COPY ©V COPY  COPY ?X@ COPY  COPY   COPY  RETURN ?@ COPY  COPY ?LN @ COPY  COPY ?[C]@ COPY  COPY ?SGN @ COPY  COPY ?P@ COPY  COPY ?USR USR  COPY  RETURN ?@ COPY  DRAW <=[Q] COPY  SAVE [Q] COPY  LPRINT ~[Q] COPY ?aIN @ CLS ?▜ SAVE @ LIST ? AND @ LIST ?[N]@ LIST ? DATA @ LIST  LPRINT ?©@ NEXT  LIST ?@ COPY  SAVE ?LN @ COPY [J][J] COPY  SAVE © COPY  LIST ?@ COPY  LPRINT [Q] COPY USR '[A] COPY S( COPY P( COPY XP COPY >= COPY ATN [U] RETURN Z RETURN i< RETURN  LET < RETURN  LIST < RETURN 1 RETURN x: RETURN p IF  RETURN LN j RETURN SGN TAN  RETURN [M] RETURN / DATA  RETURN H4 RETURN D4 RETURN D CLOSE # COPY  SAVE ©▖ COPY  SAVE © COPY  SAVE © COPY  SAVE © COPY  SAVE © COPY  DRAW  COPY  COPY [J][J] COPY [J][J] COPY [J][J] COPY ▜ COPY x COPY  COPY ▗ RETURN  COPY Z DRAW  COPY y SAVE ©2 SAVE © SAVE  COPY  LIST © DRAW  LIST ?z@ LPRINT [Q] LPRINT [D]USR  LPRINT USR  LPRINT USR  LPRINT   LPRINT [Q] LPRINT [Q] LPRINT ▚[Q] LPRINT ? THEN @ LPRINT ?USR @ LPRINT ? DEF FN @ LPRINT ?@ LPRINT ?C@ LPRINT ?M@ COPY ▜ COPY X COPY ▜ COPY h COPY ▜ COPY X COPY ▜ COPY h COPY ▜ COPY H COPY  CAT  COPY 0 COPY [J][J] COPY [J][J] COPY [J]▗[J] COPY  PAUSE  COPY  COPY  COPY  LPRINT © COPY  COPY USR ? COPY -@ COPY ? COPY C@ COPY  COPY   COPY  COPY @ COPY  COPY C[Q] COPY  COPY I  COPY  COPY G[Q] COPY ? COPY A@ COPY  COPY `` COPY  COPY S COPY  COPY SGN h COPY  COPY IN  COPY  COPY CODE NOT  COPY ?_VAL USR  COPY C DRAW $ COPY Lz COPY V" COPY _ CONTINUE  COPY  LLIST _ MOVE  COPY  RANDOMIZE L COPY  COPY CAT  COPY [J]▗[J] COPY / COPY  COPY  FORMAT  RETURN  COPY  COPY ( DRAW  COPY  COPY  CLOSE # SAVE  COPY  COPY 4 LIST  COPY  COPY  SAVE  COPY  COPY  SAVE  COPY  COPY : SAVE  COPY  COPY [C] SAVE  COPY  COPY z SAVE  COPY  COPY  SAVE  COPY  COPY  SAVE  COPY  COPY 1 LIST © COPY  AND  LIST ? COPY  LIST @ LIST  COPY  DRAW 0 SAVE  COPY  CLS  SAVE IN ?CHR$ @ SAVE <=[R][Q] SAVE ar  SAVE  LIST N SAVE  SAVE [P]STR$ [Q]` SAVE ? COPY :USR  COPY [J]▗[J] COPY [H] COPY  COPY h COPY  COPY  COPY [E] COPY  COPY  COPY SCREEN$  RETURN © COPY q RETURN ? COPY @@ RETURN © COPY  RETURN © COPY © COPY 8 RETURN  CLS x RETURN  IF  RETURN USR  RETURN p RETURN  GO SUB  PRINT  OVER  RETURN  COPY  CLEAR [Q] RETURN  COPY  LIST   RETURN ?_@ RETURN © RETURN  COPY ?0 RETURN  COPY ©  RETURN  COPY >[Q] RETURN ? COPY @ RETURN ? COPY p@ RETURN  COPY [J]▗[J] RANDOMIZE © COPY  COPY  LIST ? COPY  COPY @ LIST  COPY  COPY [Q] LPRINT  COPY  COPY  LPRINT  COPY  COPY  LPRINT  COPY  COPY  LPRINT  COPY  COPY  CONTINUE  LPRINT  COPY  COPY ▖ LPRINT ©IN  RUN @ LPRINT ©[Q] LPRINT l LPRINT A@ LPRINT  COPY  COPY  PAPER  LPRINT  COPY  COPY  LPRINT  COPY  LIST d LPRINT g COPY [I] LPRINT  COPY  COPY  NEXT  LPRINT  COPY  COPY  PAUSE  LPRINT  COPY  COPY  REM  LPRINT  COPY  COPY  DATA  LPRINT  COPY  COPY  LPRINT  COPY  COPY B RESTORE  COPY [J][J] COPY  LET  COPY  DRAW  INPUT  DRAW  SAVE  SAVE ATN  ERASE  SAVE  SAVE  COPY  RETURN  COPY [J][J] COPY  COPY  LPRINT  RETURN  COPY USR ?> LOAD USR @ k} @ © COPY  LPRINT  COPY [J][J] COPY [J][J] COPY [J][J] COPY [J][J] COPY  CLS IN D` COPY  MOVE SCREEN$ [Q] FOR  FORMAT SQR +D LLIST +tSCREEN$  LPRINT ++BIN TAN  LPRINT YK4 LPRINT HCOS  LPRINT (SIN  LPRINT = LPRINT -I$ LPRINT kb LPRINT k[G] LPRINT uASN  LPRINT SQR  LLIST  LIST . STEP  LIST UJ LIST  FLASH Z SAVE PEEK  LINE  SAVE PEEK ▗ DRAW LN  COPY [J][J] COPY  COPY © CLS  COPY  COPY @ LET  OUT  COPY  1 COPY JP▛IN ASN T@_ASN SCREEN$ [Q]IN [L]%@ LOAD ▙%ATN [C]Y CONTINUE ][I]FN M[A]VAL I LIST  [T]: CIRCLE COS [T[K] FOR TAN EXP  RUN ▗[B] COPY [E]HwhLATTR HUSR & FLASH PUSR  PLOT  P LPRINT  RUN   LIST ? INPUT USR  COPY  OUT  COPY  COPY   COPY  COPY  COPY P COPY  CLS  COPY P COPY  LET  COPY ▖ COPY  MOVE  COPY ▞* CLEAR IN INKEY$ CLOSE #@ SAVE bSCREEN$ [Q] SAVE i*[Q] SAVE -  LIST  SAVE  GO SUB   LIST 4 GO SUB   LIST 5 BRIGHT [A] LIST #I FORMAT  LIST U FORMAT  SAVE  TO ACS  FORMAT  SAVE .SIN   DRAW /{  DRAW _ RUN   RETURN ?} RUN @ RETURN ©| IF  DRAW ©ABS : DRAW ©EXP  CIRCLE  DRAW ©S FORMAT  RETURN ?ATN @ RUN  COPY  LOAD  COPY  READ o<= COPY [C]( PLOT  ?<= COPY m( IF ;ATTR  COPY UT RANDOMIZE z+ COPY  MERGE  CLOSE # LIST  COPY ih LPRINT  COPY FN [K] GO SUB  DATA  LPRINT  COPY ▚[K] LPRINT  COPY ACS + LPRINT © READ fUSR ©+ OPEN #fUSR ©'ATN 4USR ©#R LPRINT ©. ERASE  LPRINT IN V READ @ LPRINT ©U CONTINUE  LIST ©POINT  CIRCLE  LIST ©? FORMAT  LPRINT  COPY ?e LPRINT  COPY INT e LIST  COPY uj LIST  COPY  BORDER b LIST  COPY OD SAVE  COPY  COPY  COPY NOT NOT NOT NOT  COPY C COPY SGN  NEW CODE 3 OR SGN )[U] PLOT  c COPY [M] COPY  COPY  DRAW [J] COPY [J] LIST [J] COPY  COPY  LPRINT [J] COPY  COPY USR [J](? COPY  OUT  P{ COPY PP] CLEAR ▞ CAT  SAVE [J][J]0 NEXT  LPRINT [J]  RANDOMIZE  LIST [J]@© LPRINT [J]USR [J]!<[J]BNOT [J]EUSR [J]*B LPRINT [J]8B LPRINT [J] AND  USR [J])"USR [J])9"USR [J]*D[B][J]RINT [B][J]TINT HUSR [J](INT D` CONTINUE [J]D` DRAW `8[M] RETURN  DRAW  COPY  COPY  COPY  COPY ▘? COPY [J]USR [J] COPY [J]0[J] COPY [J][J] COPY [J]BIN [J] COPY [J] DATA [J] COPY [J]b[J] COPY  CLS  COPY SIN [J] COPY  LET  COPY  IF ▗[J] COPY  LIST ▗[J]© DATA  RETURN 2[J]?@[J]?9@[J]?ZM@[J][Q][J]L[Q][J]8[Q][J]!STR$ P[J]F3P[J]HP[J][B]BIN H[J]#[J]% FORMAT [J],e ERASE :[J]<= ERASE  IF [J]" POKE  OR  COPY  CONTINUE  LIST  COPY  SAVE  COPY  NEXT 16[! CONTINUE h[ GO SUB VAL !@Z[Q]^USR  GO SUB VAL  STEP 9 CLEAR CODE 2L COPY 16[>2Z COPY > COPY 2 COPY  STEP [I] RUN  NEW  RETURN (* RETURN (+ RETURN (,! z" COPY CODE 2 COPY  STEP O CLEAR  STEP [I] RUN  NEW G* COPY  CLEAR " COPY $ STEP ▛ OVER  NEW  STEP PEEK  OVER  LLIST  STEP  INK  OVER  BRIGHT CODE 2Z COPY 2 COPY >>=2[ COPY ! z" COPY  STEP O CLEAR !d!d" COPY  STEP 6 OUT >2W COPY !H]T]W6 GO SUB VAL  STEP ▛ INVERSE &!z,~ NEW ? RETURN 8 STEP [I] RUN  NEW (= AND w#yPI  DATA VAL   LLIST <>>2 COPY  INVERSE !H] INVERSE w STEP  LOAD CODE 2/ COPY  INVERSE w2 COPY 2O COPY  INVERSE 6 INVERSE 6 >2 COPY 2 COPY !  COPY "H COPY !* COPY "J COPY  STEP T RANDOMIZE  STEP  RUN  OVER  STEP  LET  STEP 1 OVER  STEP [P] IF ![U]POINT  STEP ▗ READ  STEP  DEF FN  POKE  STEP [ NEW :Z COPY PI  STEP  GO SUB  STEP [P] GO TO  STEP RND RUN  STEP ATTR  CLEAR  STEP  STEP  SAVE  STEP  NEW  CLEAR  STEP  NEW :Z COPY PI(<=: COPY =2 COPY  PEEK NOT  INVERSE : COPY PIUSR * COPY : COPY PI(# RETURN  LINE  STEP  OVER 8h| RETURN ©USR } RETURN DUSR >CODE 2 COPY  STEP 6 OUT  STEP ▛ INVERSE ! zCODE 2| RETURN {USR } RETURN USR >2 COPY >2/ COPY 2 COPY !e]6: COPY  RETURN  FORMAT <2 COPY <>>2 COPY  STEP 6 OUT ! {>" COPY 2O COPY !VAL$ "P COPY  STEP O CLEAR CODE 2 COPY  STEP  LOAD  STEP T RANDOMIZE <>| RETURN |USR } RETURN |USR >SIN >2 COPY  STEP 6 OUT !▖|> THEN | RETURN ~USR } RETURN USR >[H]>2 COPY  STEP 6 OUT !(~CODE LEN !X>= COPY 8>=CODE 2 COPY * COPY : COPY PI(( RETURN (8| RETURN ~USR } RETURN (USR >2 COPY <>| RETURN |USR } RETURN ▖USR  LIST | RETURN {USR } RETURN  USR  NEW | RETURN zUSR } RETURN  USR  BRIGHT : COPY PI !] COPY NOT g OUT  RETURN (8 RETURN (8!ATN  COPY !s COPY !▞ COPY ![P] COPY !ASN  COPY >2 COPY d GO SUB S COPY " COPY * COPY ~=#" COPY  DRAW ©o&)DM GO SUB [ COPY s#r!VAL _N#F`i GO SUB S COPY >  FOR 6# FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=  LIST  STEP  DATA  OUT  STEP  CLOSE # OUT  STEP  DATA  OUT  STEP  CLOSE # OUT  STEP  DATA  OUT * COPY [Q]" COPY : COPY PI>==2 COPY NOT v OUT * COPY T][Q] FOR  GO SUB VAL " COPY <> STEP  BORDER  OUT * COPY  PI THEN + THEN + THEN + THEN + THEN # GO TO <>> GO SUB s COPY 1 GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB { COPY <> GO SUB s COPY 1ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9ACS w, FOR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR 9 FOR  GO SUB { COPY <> RESTORE : COPY PI LINE  THEN  READ  RETURN  LINE VAL  READ ?T]CODE  GO SUB o+ GO SUB o+ GO SUB o+ GO SUB o+ NEW OLEN  DIM T]CODE  GO SUB g# GO SUB g# GO SUB g# GO SUB g#[J]OLEN  BORDER  LLIST ? FOR !SGN  GO SUB s COPY  RANDOMIZE  FOR >V+^+F+N+ MERGE  OR  MERGE  OR  MERGE  OR  MERGE  OR  MERGE  OR  MERGE  OR  MERGE  OR  MERGE  OR =CHR$  BRIGHT  READ  GO SUB { COPY <>& INVERSE n)[J] INVERSE ^SCREEN$ <> STEP  CLEAR  READ  RESTORE :S COPY o&))H©^#V#N#~ INVERSE w LLIST  FOR  GO SUB s COPY  RANDOMIZE  FOR  INK G INK y INK  RETURN  LINE  CLEAR  DATA  RETURN  LINE  RESTORE  PAPER  RETURN  RESTORE :T COPY  THEN oCHR$  FORMAT  DATA  THEN g LINE [A] DATA  INK 7 MOVE STR$ { THEN  THEN  THEN INKEY$w#zINKEY$w#yINKEY$w#xINKEY$wCODE  MOVE STR$ x THEN  THEN  THEN ACS w+yACS w+zACS w+{ACS w  INK  AND NOT  THEN  DATA  INK  MOVE STR$ 7{ THEN  THEN  THEN INKEY$w#zINKEY$w#yINKEY$w#xINKEY$wCODE  MOVE STR$  THEN  THEN  THEN  THEN xACS w+yACS w+zACS w+{ACS w  INK  OR  GO SUB { COPY <> INK  MOVE STR$ {INKEY$w#zINKEY$w#yINKEY$w#xINKEY$w MOVE STR$ xACS w+yACS w+zACS w+{ACS w  INK  VERIFY NOT  THEN  DATA :T COPY  THEN oCHR$ k RESTORE  THEN g LINE : RESTORE  INK 7 MOVE STR$ { THEN  THEN INKEY$w#zINKEY$w#yINKEY$w MOVE CODE z THEN  THEN ACS w+{ACS w+xACS w  INK  OPEN #NOT  THEN  DATA  INK 7 MOVE STR$ { THEN  THEN INKEY$w#zINKEY$w#yINKEY$w MOVE CODE  THEN  THEN  THEN zACS w+{ACS w+xACS w  INK  ERASE NOT  THEN  DATA  INK  MOVE STR$ {INKEY$w#zINKEY$w#yINKEY$w MOVE zACS w+{ACS w+xACS w  INK  OUT NOT  THEN  DATA :T COPY  THEN oCHR$  STOP  RESTORE  THEN g(# INK 7 MOVE STR$ { THEN INKEY$w#zINKEY$wCODE x THEN ACS w+yACS w  INK  LPRINT NOT  THEN  DATA  INK 7 MOVE STR$ { THEN INKEY$w#zINKEY$wCODE  THEN  THEN xACS w+yACS w  INK  OUT NOT  THEN  DATA x INK G MOVE {INKEY$w#zINKEY$w MOVE zACS w+{ACS w  REM NOT  THEN  DATA x INK G MOVE {INKEY$wzACS w  NEXT NOT  THEN  DATA  GO SUB s COPY 1SGN ! DRAW POINT  MOVE  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] REM  NEW  GO SUB { COPY <>>2 COPY  INVERSE !H] CLEAR !H]: COPY =2 COPY  LINE - LOAD  INVERSE  INVERSE ~OPI( REM  INVERSE ~PI(0= INVERSE wPI ) INVERSE ~ RETURN ( RETURN (:N COPY PI( RETURN 8 STEP  LOAD  INVERSE  RESTORE  LLIST 6T] GO SUB VAL TAN y RETURN  LINE  BORDER  CONTINUE  RETURN  LINE  BORDER  CONTINUE  RETURN  LINE I REM  RETURN  LINE c FOR  RETURN CHR$  CIRCLE  NEW !f]~PI( FORMAT NOT h NEW  INVERSE 5 INVERSE ~PI(NOT  FOR  INVERSE ~ RETURN  LINE | CONTINUE = INVERSE w RETURN  PAPER IN  CONTINUE  INVERSE ~PI ' STEP [I] RUN  NEW   AND  INVERSE w INVERSE ~!e]PEEK   INVERSE ~ RETURN 8 INVERSE 6 INVERSE ~ INVERSE w THEN fCHR$  CIRCLE  BORDER : COPY  RETURN (g INVERSE  THEN n [ INVERSE  THEN f @ INVERSE  THEN ~ : INVERSE n INVERSE f~ RETURN  COPY (/ INVERSE w# INVERSE u INVERSE t INVERSE ~PI( INVERSE 6 INVERSE 6 INVERSE ~ RETURN CHR$ h NEW  INVERSE  THEN f LINE h NEW  INVERSE 5NOT h NEW  INVERSE  THEN INKEY$ INVERSE  THEN  INPUT  INVERSE  THEN PEEK  INVERSE 6!> COPY ATN  INVERSE 6USR  INVERSE  THEN f & INVERSE  THEN ~   INVERSE n INVERSE f~ RETURN  COPY ( INVERSE w## INVERSE u INVERSE t RETURN   INVERSE 5NOT h NEW  INVERSE  THEN INKEY$ INVERSE  THEN  INPUT  INVERSE  THEN PEEK  INVERSE 6 !> COPY  MOVE : COPY  RETURN  LINE ; CONTINUE  INVERSE  THEN n @ INVERSE  THEN ~ : INVERSE n INVERSE f~ RETURN  COPY (/ INVERSE w# INVERSE u INVERSE t INVERSE ~PI( INVERSE 6 INVERSE 6 INVERSE ~ RETURN  LINE h NEW  INVERSE  THEN fCHR$ h NEW  INVERSE 4NOT h NEW  INVERSE  THEN  NEW  INVERSE  THEN VAL$  INVERSE  THEN PEEK  INVERSE 6!4 COPY ATN  INVERSE  THEN n & INVERSE  THEN ~   INVERSE n INVERSE f~ RETURN  COPY ( INVERSE w## INVERSE u INVERSE t RETURN ( INVERSE 4NOT h NEW  INVERSE  THEN  NEW  INVERSE  THEN VAL$  INVERSE  THEN PEEK  INVERSE 6 !4 COPY  MOVE  CLEAR ~ INVERSE FLN 8 >( INVERSE wNOT h NEW  INVERSE  THEN n  LIST  INVERSE ~ CLEAR FLN   BORDER  INVERSE ~PI  LLIST :X COPY PI  INVERSE 5CODE 2X COPY NOT h NEW  INVERSE ~PI  CLEAR !_^ CLEAR  CLEAR ~ RETURN ( PRINT NOT h NEW  CLEAR 6 INVERSE 6#NOT h NEW  RETURN ( INVERSE ~ RETURN  3 INVERSE n INVERSE f~ NEW ? RETURN   INVERSE 6 INVERSE 6NOT h NEW <O INVERSE ~PI( INVERSE 6NOT h NEW  INVERSE 6~ NEW USR ▝wNOT h NEW  RETURN V INVERSE ~ RETURN (( RETURN ($_ INVERSE ~ AND  CLEAR VINT 0"{ RETURN 8 INVERSE 6 INVERSE 6`<> INVERSE 6 INVERSE 6P PRINT  INVERSE 6 INVERSE 6@ FOR { RETURN 8 INVERSE 6 INVERSE 6  BRIGHT  INVERSE 6! INVERSE 6 ERASE : COPY PI( RETURN ( RETURN  CODE  INVERSE w INVERSE ~= RETURN  COPY  > INVERSE w STEP  SAVE  DIM  INVERSE 5CHR$ h NEW :X COPY PI  INVERSE 4NOT h NEW  INVERSE ~ RETURN @0$ STEP [I] RUN  NEW  RETURN 0 CLEAR 62 CLEAR 6@ CLEAR 6* CLEAR 4 STEP COS  POKE  INVERSE 6(NOT h NEW  CLEAR 6CODE 2X COPY  INVERSE 6(NOT h NEW  STEP ) DIM : COPY  RETURN (2 INVERSE ~PI( RETURN (8 INVERSE 4 INVERSE 6<> INVERSE 4 INVERSE 6<> INVERSE 6<> INVERSE 5: COPY PI  INVERSE 4 INVERSE 6<> INVERSE ~PI( PRINT  RETURN   LINE  INVERSE 4 INVERSE 4 INVERSE 6<>: COPY PI( RETURN ( RETURN  CODE  INVERSE w INVERSE ~= RETURN  COPY  > INVERSE w: COPY  RETURN (@ INVERSE ~PI($ RETURN (8 INVERSE 6$ INVERSE 6? INVERSE 6$ INVERSE 65 INVERSE 6# INVERSE 6+ INVERSE 5: COPY PI  INVERSE 4 INVERSE 6# INVERSE 6 INVERSE ~PI( LIST  RETURN  SGN  INVERSE 4 INVERSE 6$ INVERSE 6 INVERSE ~ RETURN >= INVERSE ~ RETURN  LINE h NEW  INVERSE ~PI( INVERSE 5NOT h NEW  INVERSE ~ VERIFY  INVERSE w RETURN  ERASE h NEW  INVERSE 6 INVERSE 6> INVERSE w INVERSE 6hNOT © DIM  INVERSE ~PI ( STEP [I] RUN  NEW  AND  INVERSE w INVERSE 6 INVERSE ~~PI  INVERSE 6/NOT  DATA  NEW  INVERSE 6<NOT  DATA  NEW  STEP I REM  INVERSE ~ VERIFY ~PI  INVERSE 6c INVERSE 6C INVERSE ~PICHR$ h NEW  INVERSE ~ RETURN  LINE SCREEN$  CONTINUE  INVERSE 5NOT h NEW  INVERSE ~ RETURN  U INVERSE ~ RETURN (0 INVERSE 4 INVERSE 6, INVERSE ~ RETURN   INVERSE  INVERSE 6 STEP  PRINT  INVERSE 4 INVERSE 6+NOT h NEW  PAPER h NEW  INVERSE !▗] INVERSE 4 GO SUB  INVERSE 6  STEP [I] RUN  NEW `O AND < INVERSE w INVERSE 6y NEW  AND  INVERSE wNOT h NEW  RETURN  . INVERSE ~ RETURN ( INVERSE 5 INVERSE 5NOT h NEW  INVERSE 6 STEP [I] RUN  NEW `O AND < INVERSE w INVERSE 6y NEW  AND  INVERSE wNOT h NEW  RETURN  (Q INVERSE 5  INVERSE 6NOT h NEW  INVERSE 5(h INVERSE ~PI LINE h NEW  RETURN  1 CLEAR !_^ CLEAR  CLEAR ~PI  CLEAR 6 CLEAR q CLEAR u CLEAR t CLEAR 6) CLEAR 6  LLIST NOT h NEW 5  INVERSE 6NOT h NEW  INVERSE 5( INVERSE ~PI LINE h NEW  RETURN  TAB ~PI( INVERSE 6 INVERSE 6NOT h NEW  STEP [I] RUN  NEW  RETURN 8 INVERSE 6 STEP [I] RUN  NEW  AND  INVERSE wNOT h NEW  INVERSE 6 GO SUB  INVERSE !H] STEP TAN  GO TO  INVERSE !+^ INVERSE  INVERSE ~ RETURN ( RETURN ( INVERSE ~ RETURN 2( INVERSE ~ RETURN |0 READ <> INVERSE  THEN n( RUN  INVERSE ~ RETURN   INVERSE n INVERSE f THEN PEEK  INVERSE ~ RETURN   INVERSE ~PI :V COPY =2V COPY { INK O INVERSE  RESTORE  LLIST 6T] GO SUB VAL  INK STR$  INVERSE  THEN f(SQR CHR$  INVERSE !H] INVERSE ~ RETURN >=:O COPY PI ` CLEAR !H] CLEAR  CLEAR ~PI(M CLEAR ~PI G INVERSE ~ CLEAR NEXP  > INVERSE ~ RETURN ( RETURN . INVERSE ~[F] CLEAR NEXP 8[B] RETURN 0> INVERSE w2/ COPY  INVERSE ~ RETURN   STEP  LOAD >2Y COPY oyM INVERSE POINT  INVERSE ~ RETURN >= CLEAR !_^ CLEAR  CLEAR ~PI( RETURN ( RETURN (" FOR NOT / INPUT  INVERSE ~ CLEAR NEXP   PAUSE  INVERSE ~ CLEAR NEXP 8@_y[D] RETURN 0 LPRINT 7:O COPY PI(: COPY  THEN g([ INVERSE ~< CLEAR NEXP ( OR  INVERSE ~ CLEAR N AND EXP (8=[B] RETURN 0COS W:O COPY PI(z RETURN 0PI:O COPY PI(!"P COPY ▝[J]> INVERSE w2/ COPY  CLEAR 6 INVERSE ~ RETURN   STEP  LOAD >2Y COPY NOT RND GO SUB WyJPEEK  INVERSE !+^ INVERSE  INVERSE ~PI LINE  RUN  INPUT  CLEAR !H] CLEAR  CLEAR ~PI LINE  NEXT  INPUT  RETURN  LINE  NEXT  INPUT  CLEAR ~PICHR$  NEXT  INPUT  INVERSE n CLEAR ~<ABS (<ABS CHR$  NEXT  INPUT  CLEAR ~ RETURN  LINE  DRAW  INPUT  INVERSE n CLEAR ~ AND ABS (8k[F] RETURN 0k INVERSE ~ RETURN ( RETURN 2( INVERSE 6 CLEAR ~ RETURN (U CLEAR ~ RETURN (W> CLEAR w*P COPY "P COPY  CLEAR ~ RETURN   CLEAR ~PI :V COPY =2V COPY  INVERSE ~ RETURN 2(( CLEAR ~ CLEAR ^ CLEAR V MERGE  CLEAR  LLIST  CLEAR ^SQR   CLEAR ~ RETURN 0 CLEAR 6g}l[A]CHR$ G INPUT CHR$ 5 INPUT <> INVERSE ~ RETURN ( RETURN 2USR :N COPY  VERIFY 2N COPY > CLEAR w CLEAR !▗] CLEAR w<>CODE 2R COPY 2N COPY  STEP [I] RUN  NEW _ AND d2M COPY <>: COPY  RETURN  COPY   INVERSE ~ RETURN 0>2 COPY  INVERSE !+^ INVERSE  INVERSE ~PI( RETURN  LINE c LOAD  RETURN  LINE  LIST  RETURN 2 LINE n LIST  DATA <> INVERSE 6  INVERSE ~PICHR$ ▚ LOAD  INVERSE w INVERSE  RESTORE  LLIST 8^ GO SUB R} RETURN 4 ERASE ` LOAD CODE 2R COPY NOT ` LOAD = INVERSE w: COPY  RETURN (86 INVERSE 6 INVERSE ~= RETURN $ >( INVERSE w RETURN &  INVERSE 4NOT ` LOAD  INVERSE 6 INVERSE ~< RETURN ) >% INVERSE w RETURN &  INVERSE 5NOT ` LOAD  INVERSE ~PI( INVERSE ~= RETURN $  INVERSE 5>( INVERSE w RETURN &  INVERSE 4NOT ` LOAD  INVERSE ~< RETURN )  INVERSE 4>% INVERSE w RETURN &  INVERSE 5NOT ` LOAD  INVERSE 4 INVERSE ~ NEW  LIST  THEN g  THEN o  RETURN @ LINE T LIST  RETURN  LINE g LIST  INVERSE 6NOT ` LOAD  INVERSE 4 INVERSE 6  INVERSE 6) INVERSE 5 LET  INVERSE ~ THEN w  THEN © LINE ` LOAD  INVERSE ~ VERIFY  INVERSE wNOT ` LOAD  INVERSE ~ AND  NEXT  INVERSE ~ AND  INVERSE w INVERSE 6  INVERSE 6)NOT ` LOAD  INVERSE ~ VERIFY  FOR  INVERSE ~ RETURN 8 INVERSE 6 INVERSE 5 INVERSE 6h INVERSE 67 INVERSE 6&NOT ` LOAD  AND  INVERSE w INVERSE 6  INVERSE 6*NOT ` LOAD :L COPY  RETURN (E RETURN (1 INVERSE ! STEP  LIST  STEP BIN  LIST  7 THEN NOT SGN  LIST PI THEN  INVERSE # INVERSE # GO TO & INVERSE ~ FLASH  RETURN  INVERSE INKEY$<>© CLS  CLEAR  OUT  OUT  INVERSE ! INVERSE  LIST  STEP  LOAD  LOAD  LOAD  LOAD  LOAD  FLASH _:O]PI({ THEN W( THEN g( THEN  LOAD  THEN PI THEN ATTR {2 COPY <>>IN  FLASH  RETURN  NEW  %> RETURN  FLASH  RETURN  NEW  :2 RANDOMIZE  RETURN PI(>PI22 RANDOMIZE >= RUN  STEP [L] LIST : COPY  NEW ?PI( PRINT  INVERSE !H]> INVERSE w:Z COPY PI(>/ INVERSE wNOT  BRIGHT  PAUSE :Y COPY = RETURN  COPY (2Y COPY >  INVERSE w STEP [L] LIST : COPY  INVERSE !H] INVERSE ~PI LINE  PAUSE = INVERSE wPI LINE  PAUSE  RETURN 0R RETURN 0J RETURN 0; RETURN 0 RETURN 0 INVERSE ~ INVERSE w; NEXT  RETURN  * COPY ~ RETURN *  INVERSE ~ RETURN @8 INVERSE 6 INVERSE 6<> CAT  INVERSE ~[A] INVERSE w NEXT  LOAD  INVERSE  THEN f >> INVERSE w: COPY  THEN o():R COPY PI # CLEAR !8^:X COPY PI>= CLEAR 62 CLEAR 6@ CLEAR 6* STEP COS  POKE >2R COPY <>: COPY  THEN gCHR$  POKE <>>USR  INVERSE ~PI(><>/ INVERSE w: COPY PI  INVERSE  THEN fCHR$  BRIGHT  PAUSE NOT  NEXT : COPY PI(: COPY  NEW  CLEAR 2 COPY : COPY  THEN gCHR$ ▗ NEXT  NEW  THEN WCHR$ ^ NEXT  THEN _BIN IN  PAUSE  RETURN  LINE PI PAUSE  RETURN  LINE COS  PAUSE  RETURN  LINE  BRIGHT  PAUSE  RETURN  LINE  NEXT  RETURN (& RETURN  LINE M NEXT  RETURN  LINE T NEXT  RETURN  LINE + NEXT  INVERSE  THEN f(> INVERSE w> INVERSE wCODE 2 COPY <> STEP  PAUSE > INVERSE w INVERSE ~ VERIFY  INVERSE wNOT  STEP  LET > INVERSE w>2 COPY  DATA  INVERSE 6 >2 COPY NOT [H] PAUSE  PRINT  INVERSE ~ RETURN 0 RETURN 8:O COPY PI( LET  NEW 72 COPY <> LET <>>2 COPY  INVERSE  THEN f(> INVERSE w*H COPY ~ RETURN  COPY ( INVERSE w#"H COPY <>!  COPY "H COPY  READ >2 COPY  INVERSE  THEN f  INVERSE 6 *J COPY ~ RETURN  COPY ( INVERSE w#"J COPY <>!* COPY "J COPY  DATA  STEP  PAUSE  INVERSE ~PI(>Q>q INVERSE w INVERSE  THEN f > INVERSE w<>> INVERSE w BEEP  INVERSE 6  INVERSE 6  STEP  PRINT  INVERSE ~ RETURN P0* COPY ~ RETURN *( LET NOT V PAUSE > INVERSE wCODE 2 COPY  INVERSE w LET <> PRINT CODE 2 COPY  LET  RETURN 0 INVERSE  THEN f (<> RETURN ( RETURN ( RETURN ($ RETURN (1 RETURN (6 NEW  STEP n PAUSE Q> INVERSE w> INVERSE wE>  INVERSE w> PAUSE > INVERSE w INVERSE ~ VERIFY  INVERSE w> LLIST >[A] INVERSE w> CIRCLE >[Q] INVERSE w> CAT :X COPY PIUSR  INVERSE ~PIUSR  INVERSE ~ RETURN  FORMAT  RETURN  CIRCLE  CLEAR !l^:Y COPY PIUSR >2Y COPY  CLEAR !8^ CLEAR ~PI( CLEAR  PLOT  <>y CLEAR w RETURN  >2X COPY  CLEAR  RESTORE  LLIST  INVERSE u INVERSE t: GO TO  INVERSE  CLEAR w INVERSE w: COPY PI > COPY 2 COPY  INVERSE ~ NEW  LIST  CLEAR wO RETURN (P RETURN @(U THEN g  INVERSE F CLEAR p INVERSE ~<< CLEAR wy NEW USR PI( THEN © < INVERSE ~ CLEAR w<> INVERSE ~ RETURN 8 INVERSE ~ RETURN   INVERSE ~ AND  INVERSE ~ AND  CLEAR w<> INVERSE ~ AND  PRINT  INVERSE ~< CLEAR w THEN  INVERSE ~< CLEAR w INVERSE ~ AND  VERIFY  CLEAR w CLEAR ~ RETURN `USR  CLEAR 4<>:N COPY PIUSR :W COPY =(2W COPY <>>2W COPY  STEP } RUN ] INVERSE  INVERSE ~PI( PAUSE : COPY PI(9 RETURN (5:O COPY PI /:M COPY PI %yPIUSR  INVERSE !f] INVERSE 6 INVERSE 6 INVERSE 6g INVERSE 6 INVERSE 6  INVERSE 6>2N COPY <>=2M COPY :U COPY EXP >= INVERSE !H] INVERSE  INVERSE ~PI( NEXT <>NOT [P] PLOT  : COPY PI( RETURN (:V COPY  RETURN ( STEP [I] RUN  THEN oCHR$  RUN * COPY : COPY  RETURN ( RETURN ( RETURN USR  NEW ? RETURN 2(2 RETURN (. RETURN (* RETURN 0(& RETURN 1(" RETURN ( RETURN ( RETURN ( RETURN (#y RETURN ( FORMAT { RETURN >=~  REM  THEN  RETURN  RETURN 2 LINE [E] PLOT   RETURN  LINE [E] PLOT   RETURN  LINE [E] PLOT   RETURN 0 LINE [E] PLOT   RETURN 1 LINE [E] PLOT   RETURN  LINE [E] PLOT   INVERSE 6 INVERSE 6y RETURN  LINE © PLOT   ERASE ▗ PLOT  > INVERSE w STEP ▞ PLOT  : COPY  RETURN 8g RETURN 8j RETURN 8m INVERSE ~ VERIFY  INVERSE w> COPY  INVERSE w STEP ▟ RUN CODE  INVERSE w INVERSE w INVERSE u INVERSE t~ NEW ? RETURN 2( RETURN (" RETURN 1( RETURN (! RETURN 0( RETURN (  INVERSE ~ VERIFY  INVERSE w<> INVERSE ~ VERIFY   INVERSE w<> INVERSE ~ VERIFY  PRINT  INVERSE ~ VERIFY  INPUT  INVERSE ~ VERIFY  BORDER  INVERSE ~ VERIFY [P] INVERSE ~ VERIFY [I] INVERSE ~ VERIFY [B]>(NOT  PLOT   PRINT >HNOT  PLOT   PRINT >C AND  DRAW  INVERSE w<> INVERSE 6 INVERSE 6NOT  FOR  PRINT : COPY PI LINE T PRINT * COPY  RETURN (0 STEP  INPUT  PLOT   INVERSE 6 INVERSE 6  INVERSE 6z STEP [I] RUN  THEN G  INVERSE 6 INVERSE 6 INVERSE 6 STEP ▟ RUN <> INVERSE 6 PAUSE  STEP  INPUT  PLOT   INVERSE 6 INVERSE 6 DEF FN  THEN ~ ~ NEW ? RETURN (( RETURN 3( LET NOT T PRINT  THEN  RETURN  INVERSE u INVERSE t+~ NEW  RETURN >= FOR  STEP [I] RUN  THEN g XCODE  INVERSE w INVERSE w INVERSE w INVERSE 6 INVERSE 6 STEP [I] RUN  NEW  AND  INVERSE w INVERSE w INVERSE  THEN  RETURN  STEP ▟ RUN  INVERSE 6 INVERSE 6: COPY  RETURN (PI  STEP [I] RUN  THEN G( INVERSE 6< INVERSE 6<> INVERSE 6/ INVERSE 6:V COPY <2V COPY <> STEP  RUN  INVERSE 6  INVERSE 6<>: COPY PI >2U COPY <>> SAVE  STEP [I] RUN  NEW  AND  INVERSE w<> RESTORE  GO SUB _g GO SUB _AT o GO SUB _VAL$  LLIST <> INVERSE !H] INVERSE  INVERSE ~ RETURN   INVERSE  THEN F  INVERSE ~2S COPY  INVERSE ~2T COPY  GO SUB C COPY  STEP  DATA  GO SUB K COPY  MERGE  INVERSE !H] INVERSE  INVERSE ~PI(% RETURN (! RETURN ( INVERSE  THEN F  INVERSE ~2S COPY  INVERSE ~2T COPY  GO SUB C COPY  STEP  DATA  GO SUB K COPY  DEF FN  INVERSE !H] INVERSE ~2S COPY  INVERSE ~2T COPY :Z COPY PI -:O COPY PI  STEP  DATA o*P COPY +"P COPY |PI ASN (2O COPY  STEP  DATA W: COPY  THEN g( STEP  DATA *P COPY |PI } RETURN 0 THEN G = INVERSE F INVERSE N GO SUB C COPY  INVERSE 4 INVERSE 4 INVERSE 6g>,2S COPY > 2T COPY  STEP  DATA >+2S COPY > 2T COPY  INVERSE 6 STEP  DATA  GO SUB K COPY  INVERSE 6 INVERSE q INVERSE !+^ INVERSE  INVERSE ~PI( RETURN ( INVERSE ~2S COPY  INVERSE ~2T COPY  GO SUB C COPY  STEP  DATA  GO SUB K COPY  CIRCLE <>:/ COPY PI>= RETURN  COPY CHR$  DEF FN  RANDOMIZE >n STEP  BEEP  CLEAR CODE 2/ COPY !X>@INKEY$w>ACS w# PRINT @INKEY$w>ACS w# PRINT   LOAD ![Q]^@ZUSR  GO SUB VAL : COPY PI(CODE 2 COPY : COPY  RETURN  LINE  INVERSE  RETURN  LINE PEEK  OVER  PAPER ▛ OVER NOT  INK  OVER : COPY =PI LINE  INVERSE 2 COPY >2 COPY > STEP  BEEP  CLEAR  STEP T RANDOMIZE : COPY =2R COPY >=2 COPY  FOR !h[[T]P STEP VAL$  RANDOMIZE !FN [[G]P STEP VAL$  RANDOMIZE ! CONTINUE [▞P STEP VAL$  RANDOMIZE !(/[C]P STEP VAL$  RANDOMIZE > STEP  BEEP  CLEAR : COPY !▖[[T]P STEP VAL$  RANDOMIZE =>=!>=[[G]P STEP VAL$  RANDOMIZE =>=!/▞P STEP VAL$  RANDOMIZE =>=!H/[C]P[Q] GO SUB [Q] RESTORE ! RETURN  FOR  FOR  LLIST =  LET  RESTORE !  SAVE  FOR  FOR  LLIST  RESTORE <>O> STEP  BEEP  CLEAR y=2/ COPY  RETURN (8© RETURN r RETURN (0 RETURN (!0 RETURN ('0<>? DRAW Y SAVE S LIST M LPRINT GUSR A; STEP W IF > COPY 2/ COPY  INVERSE !H] INVERSE 6 INVERSE 6 INVERSE  INVERSE 6 SAVE CODE 2V COPY  INVERSE !+^ INVERSE  INVERSE 6 SAVE <>!SCREEN$ H#  RANDOMIZE #  RANDOMIZE  GO TO !X STEP © IF  STEP © IF ~_ NEW 8 RETURN 8( RETURN (PI([J]=[J]W{ NEW <=▘w# LLIST <>* COPY " COPY : COPY  RETURN  LINE  CLEAR  RETURN (: COPY : COPY  AND  RETURN   CODE 2 COPY PI LINE ▜ DRAW  RETURN  LINE FN  DRAW  PAPER LEN  DRAW  RETURN  LINE CHR$  DRAW  PAPER <= DRAW  RETURN  LINE  CLOSE # DRAW  PAPER  INK  DRAW NOT  NEW  DRAW >2 COPY : COPY PI>=!SCREEN$ : COPY _ FOR  GO SUB K COPY  NEW ? GO SUB C COPY PI  STEP [I] CLS =&o)VAL _N#Fi` STEP  LPRINT * COPY ~ NEW ?#" COPY PI  STEP [I] CLS =o&)VAL _N#Fi` STEP  LPRINT * COPY ~ NEW ?#" COPY PI  STEP [I] CLS =o&)VAL _N#Fi` STEP  LPRINT * COPY ~ NEW ?#" COPY PI  STEP [I] CLS NOT ▚ CLS =o&)VAL _N#Fi` STEP  LPRINT : COPY =2 COPY : COPY  AND 2 COPY NOT  BORDER  IF  FOR CODE   GO SUB s COPY 1w#w#w#w9 PLOT   FOR  GO SUB { COPY <>>2 COPY : COPY PI>=!SCREEN$ : COPY _ FOR  GO SUB K COPY  NEW ? GO SUB C COPY PI  STEP ▝ DRAW =&o) DRAW ©N#Fi` GO SUB K COPY  FOR  STEP w LLIST * COPY ~ NEW ?#" COPY PI  STEP ▝ DRAW =o&) DRAW ©N#Fi` GO SUB K COPY  FOR  STEP w LLIST * COPY ~ NEW ?#" COPY PI  STEP ▝ DRAW =o&) DRAW ©N#Fi` GO SUB K COPY  FOR  STEP w LLIST * COPY ~ NEW ?#" COPY PI  STEP ▝ DRAW NOT o DRAW =o&) DRAW ©N#Fi` GO SUB K COPY  FOR  STEP w LLIST : COPY =2 COPY : COPY  AND 2 COPY NOT LN  CLS  STEP [I] CLS <>>2 COPY * COPY : COPY PI(#[J]" COPY " COPY >2 COPY  STEP  BORDER  IF <>>2 COPY  STEP  STOP  IF <>: COPY  VERIFY  STEP  PAUSE  DRAW >2 COPY  STEP COS  CLS <>>NOT SCREEN$  DRAW : COPY  VERIFY  STEP  PAUSE  DRAW >NOT SQR  DRAW >NOT SCREEN$  DRAW : COPY  VERIFY  STEP  PAUSE  DRAW >NOT SQR  DRAW : COPY  VERIFY  STEP  PAUSE  DRAW CODE NOT SQR  DRAW  RETURN (0!" COPY <>![Q] RUN !@ PAUSE : COPY  VERIFY  RETURN  RETURN CHR$  CLEAR >2 COPY PI(NOT <= IF CODE 2 COPY * COPY +[J]" COPY " COPY >2 COPY  STEP  BORDER  IF <><>>4![I]_VAL _ FOR s#r FOR =>= PRINT : COPY PI( RETURN (38%0;!Xr CLEAR r CLEAR w# DRAW >= PRINT !Xr CLEAR  STOP !Xr CLEAR  VERIFY !Xr CLEAR r CLEAR NOT : COPY PI>= RETURN  COPY >=: COPY PI>=< RETURN  CODE 2 COPY <>2 COPY g.d~ NEW  SAVE  OPEN # RETURN #xLEN   PRINT <> OR  RETURN   RANDOMIZE =  POKE STR$ <>:Z COPY PI>=:[ COPY =2[ COPY  RETURN f ERASE ▖ RETURN PI >>=2[ COPY NOT ▖ RETURN : COPY G INK :L COPY PI  INK  THEN P INK  VAL$ !EXP  COPY  STEP STR$  RETURN :L COPY  RETURN   INK  THEN P INK  VAL !NOT  COPY  STEP STR$  RETURN :L COPY  RETURN   INK  THEN P INK  SIN ! BEEP  COPY  STEP STR$  RETURN TAN ! FOR  COPY  STEP STR$  RETURN  INVERSE ! RETURN  STEP VAL$  LIST  RETURN   LET NOT S INVERSE  RETURN  >2L COPY <> RETURN  >2L COPY <> RETURN USR CODE 2L COPY <> CLS IN  CLEAR IN TAB ! NEXT  COPY  STEP STR$  RETURN VAL$ !`_ STEP STR$  RETURN VAL !r_ STEP STR$  RETURN LEN !{_ STEP STR$  RETURN COS !_ STEP STR$  RETURN TAN ![D]_ STEP STR$  RETURN NOT Q RETURN ~# RETURN  COPY >= RESTORE  RETURN  (*▜[J]O!h/CODE   FOR  FOR ~#x  FOR  FOR G NEXT ! LLIST  RETURN  FOR  FOR  LLIST  TO CODE !  FOR  FOR  RUN  DIM ▗[J]2[ COPY POINT [U]POINT N@BIN { LPRINT { COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY " COPY * COPY TVAL$ !"'(*+,-./012 !"%&')34 !"#$&34(*234  COPY    COPY    COPY   COPY  COPY [N]? AND dej©('& COPY d COPY dek©RKDDD'L[L]COS dedxRKDD