North & South: NORTH_S.B

  0 REM  NEXT 10u!S]TAN _0 MERGE NOT NOT 3 NEXT  GO SUB ^>Z GO SUB O CLEAR !TAN _! REM _ LIST © POKE  GO SUB _ STEP  STEP _ INVERSE  LLIST  GO SUB /VAL$  CLEAR VAL$  CLEAR TAB  CLEAR AT  CLEAR # INVERSE TAB  INVERSE AT FN POINT SCREEN$ ATTR AT TAB w GO SUB [Q] REM >= CAT CBIN 8[F]@[D]$ LLIST  POKE NPEEK CODE  LINE & SAVE ESGN [U] PAPER SIN  CLS  RESTORE TAB [I]H[B] PAPER < CLOSE #[U]TAB  OUT  READ EXP  OR [N] CLS >=@EXP UAT  ERASE ,YsLN  IF CHR$ _[K]/- LINE  AND  CLEAR bT INK _zSINKEY$BBIN  DIM  DIM <=TINKEY$b[B] PAPER COS  LET  POKE t▖GABS +PIMV,TAN  LLIST ?Ez OR  BEEP  CLS LN Q DRAW [J]8@`ACS h FOR _ BORDER A CLEAR lYS▟BIN  CLEAR  CONTINUE  BRIGHT 6>~ MOVE  DRAW [B]hASN  BEEP < STEP a8 NEW :( OUT [D] CLEAR K TO  CIRCLE :[K]#[J]LF[D]F READ I STEP .COS ▛ CLOSE #. NEW ( PAUSE TAB INT  PAUSE [C]ATN > CLOSE #SCREEN$ :/[U]VAL$ ▗_M PAUSE J1[H]LN ▝B CONTINUE [R] PAUSE "t"E2?[S]k+nLN 5 DATA [I]9uqj* ' READ ?LCHR$ SGN /"5lXPOINT VAL SQR SGN 8Y LET PIR ERASE  OVER  TO  RETURN COS COS  THEN INT  CONTINUE U DRAW X[K]e▙[J] FORMAT   PRINT  IF  RANDOMIZE 2: RETURN VAL$ ▞GLEN IN  LPRINT NOT 7 RESTORE B▜ RANDOMIZE  PLOT  ASN ▛[G]5STR$ X LPRINT [C] BEEP tLCOS / MOVE k VERIFY BSCREEN$ Z THEN lk[L][S] READ  RESTORE ^W:Cj▞wR/ DATA <;FN ▗ AND  LINE [C]=  CLOSE # RESTORE  NEW 6[P]; ERASE oFN  AND [L] LLIST YjSQR  TO @INT [M] CLOSE # MERGE [D]NOT  INK # CONTINUE  INVERSE [M] BEEP O"hGL` ` LOAD  PLOT  TS CLEAR  GO TO PEEK ~©
  1 BEEP USR 1,1SCREEN$ ORTH_S" LINE 115616 LINE F`F`HELLO TO EUGENE KOPROV, CSL, FCA,KORDIALBIG BLUE FUCK TO tHD !!! COPY  COPY  STEP |;; READ 33PI GO SUB R RESTORE  INVERSE  LLIST * INVERSE ~=(^#V RUN @## INVERSE ~< ~ INVERSE w# INVERSE ~< ~ INVERSE w#~ INVERSE w INVERSE ~ RETURN 8 INVERSE 6 INVERSE ~ RETURN 8 INVERSE 6 INVERSE ▚ RETURN 8 INVERSE 6 INVERSE ~PI  INVERSE 6# INVERSE ~▜▜▜ AND @WO INVERSE  THEN F   OR  INVERSE F OR  OR  OR  INVERSE  THEN F(  MERGE  OR CSTR$  RANDOMIZE  MOVE STR$  CONTINUE z VERIFY W{ AND  _STR$  PAPER z AND WSTR$  FORMAT QSTR$ <=>X INVERSE ▚W INVERSE FK INVERSE  THEN  OVER  OR STR$ xLEN   PLOT   INVERSE 6 COPY  INVERSE 6 COPY <> INVERSE  THEN V( INK y INK ( INVERSE  THEN [G]~#PI #~ INK O INK # INVERSE  THEN  VERIFY  INVERSE  THEN ^ NOT ▙"". COPY  COPY  COPY  DRAW  SAVE  LIST  LPRINT  LPRINT USR USR USR !@@ COPY  DRAW  SAVE  SAVE  LIST  RETURN  LIST  LPRINT  COPY  COPY  COPY  COPY ,<4 COPY  COPY  USR ?© COPY  RETURN  DRAW  SAVE  LIST  SAVE BIN ? COPY ??© COPY  COPY  COPY  COPY  RUN  RUN  RUN STR$ <><> COPY  COPY  COPY  COPY  COPY  RETURN  SAVE  LIST  LPRINT  @? COPY /#@ COPY  LPRINT  LIST  LIST  SAVE  RETURN  COPY  COPY  RUN  COPY  RETURN ?7 SAVE  COPY  RUN  COPY A COPY  COPY m FOR o LLIST  LOAD  LOAD  DEF FN ▟ COPY  INPUT  LOAD ▜ DEF FN ▜ATN  COPY  LOAD  LOAD ▜ CAT ▜ATN  COPY  RUN  RUN ▝NOT  BORDER NOT  FLASH  COPY  COPY  COPY  DRAW  COPY  SAVE  COPY  RETURN  COPY  CAT CODE  CAT CODE  CAT CODE  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  RUN  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  CLS  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  DRAW  IF  DRAW  IF  DRAW  IF  DRAW  IF  DRAW  IF  DRAW  IF  DRAW  COPY  CLEAR  COPY  CLEAR  COPY  CLEAR  COPY © COPY  COPY  COPY  COPY ATTR WATTR WSQR _IN PPEEK ^VAL$ VVAL$ V RETURN  RETURN  COPY  BRIGHT  SAVE  FLASH  OUT [M]▜ DEF FN ▜ATN  COPY  LOAD  LOAD ▜ DEF FN ▜ATN  COPY  COPY ?USR  COPY  LIST  COPY  COPY , COPY  RETURN  DRAW  SAVE  SAVE  CONTINUE >=▞ THEN  CAT  COPY  LPRINT  LIST  COPY  LOAD  LOAD  LOAD  TO  TO  GO TO  CLEAR y1 COPY  LIST x| SAVE SQR IN 8 OVER  DRAW  INVERSE  OUT [M][M] SAVE  COPY ? LIST  COPY  LIST  COPY $ COPY  DRAW  LIST  LIST  LOAD  GO TO  OUT 0 LIST USR  @ COPY  COPY  CAT  LOAD  LOAD  DRAW SGN SGN  INVERSE  INVERSE  STEP  COPY  COPY ▝▜▚ COPY  COPY © SAVE  COPY USR  RETURN  COPY ? COPY  SAVE  LIST  LPRINT  LPRINT LN  LIST  COPY  LPRINT  COPY ?©© COPY  COPY  NEXT  COPY  COPY  CIRCLE  FORMAT  CIRCLE  COPY  COPY  RUN  COPY  COPY ` LET  LET  RANDOMIZE  CLS  CLS  COPY  OUT  OUT [P] COPY  RETURN  COPY USR  LIST  RETURN  COPY  COPY  COPY ©USR  SAVE  COPY © COPY  DRAW  LIST  LIST  LPRINT USR ▗▗,>=>=0p SAVE  SAVE  DRAW  RETURN  COPY  NEXT  LPRINT  LPRINT  LPRINT USR  COPY © COPY  COPY ▙ INPUT  RETURN |<~ COPY  BORDER [D] LPRINT USR  COPY  COPY USR  READ  BORDER  LOAD  LOAD  OVER  OVER  BRIGHT  BRIGHT SGN LN LN LN ABS ??? LIST  SAVE  CLEAR  COPY  DRAW  SAVE yCHR$  LET  DRAW  COPY  DRAW  NEXT  CAT ?©USR  COPY  DRAW  DRAW  SAVE  RANDOMIZE  LET  STOP  STOP CHR$ CHR$ ▘▝▝USR STR$ STR$  LPRINT  LIST  LIST  SAVE  DRAW  RETURN  COPY  COPY  COPY  COPY  COPY USR USR  LPRINT  LPRINT  LPRINT  LIST  LIST  LIST  COPY  COPY  COPY  COPY  TO  DEF FN  TO  OUT [P] COPY  COPY  LPRINT  LIST  LIST  SAVE LN 9y{s NEXT  NEXT  BORDER  BORDER <=▜ COPY ? LPRINT xUSR ▝ COPY ? MERGE  COPY VAL ?3SIN b▝▝▝~ LIST  DRAW NOT  COPY  COPY ppATN  COPY  BORDER  COPY [P] COPY  COPY  COPY  LLIST [O]uATTR  BEEP  RETURN  SAVE  LIST p`USR USR ? COPY  COPY ? COPY [N] COPY  LET  RETURN ©[P] BORDER  COPY  OVER  COPY  COPY ~ COPY  COPY  COPY  NEXT  LET  LLIST  READ  BORDER  COPY  CAT <=▜ COPY  COPY  COPY  READ  OPEN #cNOT USR p COPY  RETURN  CLEAR  COPY { CLEAR  GO SUB  SAVE @0p LPRINT © COPY  COPY ?© COPY  SAVE  LPRINT 1@ LLIST  COPY ?© COPY  COPY ©©juju{u{ujuju©© COPY  COPY  CAT  CAT  BORDER  LLIST  READ NOT NOT ▜ CAT ▚ COPY ©?? OUT  OUT  OUT  LOAD  LOAD  LOAD  COPY  COPY  RUN  READ <>[N]==;O??© COPY  COPY [L]<© COPY  RETURN  DRAW  RANDOMIZE  NEXT  BORDER  CAT  COPY  LIST  RETURN © LLIST p SAVE  RETURN  COPY  COPY  LIST  DRAW VAL$ VVAL$ W LOAD  OUT FN X INPUT  BEEP CODE WVAL$ ^ DRAW  SAVE  COPY  COPY  SAVE  CLEAR  CLEAR  CLEAR  RANDOMIZE  READ  READ  READ <= CAT  CAT <=▜▜ COPY  DRAW  CLS  RUN  LOAD  LOAD  OUT IN  COPY  COPY  RETURN  RETURN  COPY  DRAW  DRAW  COPY  RETURN  CLEAR  RANDOMIZE  RUN  COPY  COPY  RETURN  COPY  CONTINUE [A][A] USR  LPRINT  LIST  COPY  CLS < OVER  LOAD  CAT ▜; READ  MOVE [R]P[Q] FORMAT FN  FORMAT  CONTINUE  POKE  REM  POKE  RETURN ©? STEP  RETURN  PRINT  RETURN  RUN zw;77 COPY USR  COPY  LOAD  LOAD  LOAD [D][D] COPY  COPY  COPY  COPY  COPY NOT  BORDER <= COPY [P][O][O]PEEK PEEK << COPY  LPRINT  RETURN  RETURN  COPY  COPY  COPY 8hUSR VAL aSTR$  NEXT  LIST [ COPY  COPY  COPY  DRAW (H COPY  COPY ▟DDUSR  LPRINT  LIST  LIST  LIST  SAVE x||<>>???IN  COPY  COPY  COPY  RETURN  CLEAR  CLS  RUN  COPY  COPY  COPY  POKE  CLS  CLEAR  RETURN  COPY  COPY  CLEAR  CLEAR  CLEAR hm LOAD  LOAD  BORDER  COPY  COPY ▝ COPY  NEXT STR$  SAVE USR  SAVE  COPY  OUT CODE  BEEP ATTR ;u RETURN  PRINT PI5?CODE ??© PAUSE [S]$$$D@xUSR P0▗F@  [N]PEEK  RETURN  COPY  RETURN q COPY  COPY  COPY  COPY  COPY  COPY ▞▞IN ?? COPY  COPY 8| RETURN  RETURN  COPY  LOAD  NEW  LIST p LIST  RUN  LOAD  CAT ▜▜ CAT  COPY  COPY  RETURN | COPY ©©?© COPY  RETURN  DRAW  SAVE  LIST  SAVE  SAVE  SAVE  DRAW 0`>=@USR (IN  COPY  DRAW  LPRINT `q LET  LET  LET  NEXT  NEXT  RUN  COPY  COPY ; COPY  NEXT  DRAW  COPY ? CAT  RETURN SGN  COPY  COPY  COPY  RETURN  CLEAR  CLEAR  CLEAR  CLS  CLS  IF  IF  IF  CLEAR  CLEAR  COPY  LET  LPRINT USR ([A]AA#'oo LOAD  LOAD  OUT  COPY ©©?[K][P] COPY  RETURN  DRAW  RANDOMIZE  NEXT  RUN  RETURN  DRAW  RANDOMIZE  NEXT  RUN  RETURN  DRAW  RANDOMIZE  READ  BORDER  COPY  COPY 0Xhx0 COPY  COPY <~ RETURN  RETURN  INPUT  INPUT  LPRINT  LIST  LET  RANDOMIZE y}=} CLEAR  RANDOMIZE  RANDOMIZE  LIST  LPRINT  COPY  COPY  COPY  LIST ▖D LIST STR$ [C][U]uY CIRCLE [I]? LLIST  COPY ©© COPY  COPY  COPY  RETURN  COPY  RETURN  RETURN  RETURN  COPY  RETURN  COPY IN O@@[Q]OVAL `USR ▖ COPY ??© COPY  COPY  COPY  COPY  COPY  COPY ?©} LET  LET  LLIST  LLIST NOT NOT <=<= LOAD  COPY  RETURN  RETURN  DRAW p COPY  RETURN  DRAW  SAVE p FOR WIN k FLASH  RUN CODE © CAT © COPY  SAVE  LIST  LPRINT  LPRINT  GO TO  COPY  RUN  FOR [F]pATTR  COPY  COPY  COPY ©p▖x LIST  LIST  FORMAT  LIST p>= LIST  LIST  SAVE  DRAW  RETURN  COPY  COPY ? STEP < COPY  LPRINT  LIST  LIST  SAVE  RETURN  COPY  COPY  COPY  COPY  CAT  DEF FN  DEF FN  OVER  OVER  OVER  BRIGHT  BRIGHT SGN SGN =???© COPY | LIST  COPY ©SCREEN$ U COPY > COPY  CAT  DRAW x?© COPY  FOR  INVERSE <=▚NOT  OUT  LOAD  COPY  COPY  COPY  COPY ;;;9xxppq LET  LET  LLIST  READ  READ NOT NOT  COPY ??© COPY  RETURN  DRAW  RANDOMIZE s RETURN  RETURN  DRAW  SAVE  CLEAR  COPY  COPY  COPY  LIST  LOAD [P] COPY  CAT ? RUN  VERIFY XPUSR `0 COPY ??© RETURN  RETURN  RETURN  DRAW  DRAW  SAVE  RANDOMIZE  NEXT  NEXT  NEXT  STOP  NEW  AND  CAT [P]? COPY © COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  RETURN x SAVE  SAVE  LET  NEXT  NEXT  LET  LLIST  LLIST  READ  READ NOT NOT ▝ COPY  RETURN  RETURN  DRAW  RANDOMIZE  NEXT  RUN  BORDER  STEP [N]0p SAVE  PAUSE  RUN  COPY  COPY  COPY >|ys BORDER  CAT © COPY ?© COPY  COPY ©? OUT  OUT ? COPY  RETURN  COPY ©?? DRAW  PAUSE  DIM  CIRCLE VAL  COPY  LPRINT  LIST  COPY  COPY  COPY 0y RANDOMIZE  LET  COPY  BORDER  BORDER  LOAD  LOAD  CAT  CAT ▚ COPY  OUT [P]SQR ;` LIST  LET  POKE  RETURN  COPY  COPY  COPY  RETURN | RANDOMIZE  CLS  NEXT  BORDER  CAT [P]?© COPY  DRAW  LIST  COPY  RETURN  COPY  NEXT  NEW  LIST | CAT USR  LIST  DRAW  DRAW  DRAW  LIST USR STR$ NOT <=<= CAT  LOAD  COPY  COPY  COPY  COPY STR$  LLIST STR$ STR$ STR$ ▝ COPY  RUN  READ  CONTINUE  INPUT  CAT  OUT [P]?©© COPY  RETURN  LPRINT  COPY  READ  LET [I] AND  STOP 3▗USR ` ? COPY © COPY ©? COPY  COPY  RETURN  RETURN  DRAW  CLEAR  RANDOMIZE  NEXT  BORDER  LOAD  STEP [N]VAL VAL 8r RUN  COPY >~|} RANDOMIZE  CLS  CLS  RANDOMIZE  DRAW  INPUT  LOAD ▜ CAT [H]ATN  COPY  COPY © CAT  BORDER  NEXT  RANDOMIZE  DRAW  RETURN  COPY  SAVE  COPY ©©???7;7?©© COPY USR  LPRINT  LIST  LIST  LIST  COPY  COPY  COPY www;;?www COPY  RUN  BORDER  CAT [N]ABS 0p SAVE  PAUSE  RUN  COPY  RETURN  DRAW y NEXT  RUN  BORDER  CAT  OUT [P]?©©© COPY © CAT  BORDER  LET  DRAW  RETURN  LOAD  LOAD ▜ CAT [H]ATN  COPY  COPY ©?[P] CAT  BORDER  NEXT  RANDOMIZE  DRAW  RETURN  RETURN  COPY  RETURN 9 COPY  LIST  LIST  COPY 0hhh0 COPY  RUN  COPY ~ DRAW  RANDOMIZE  NEXT  RUN  CAT [P]?© COPY © CAT  BORDER  NEXT  RANDOMIZE  DRAW  RETURN  OUT  OUT /© COPY ©© COPY  DRAW  IF  DRAW  IF  DRAW  IF  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  PRINT  RANDOMIZE  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  FOR  NEXT  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  BEEP  BORDER  CAT CODE  CAT CODE  CAT CODE  CAT CODE  CAT CODE  CAT _[P]_[P]_[P]_ COPY  COPY 1??+ COPY  RETURN  LIST BIN | DRAW  SAVE  LIST  LPRINT ` USR A COPY  COPY ?ww?83©©©n COPY  COPY <=▞`[A]#q COPY  RETURN  RETURN  RETURN  COPY  SAVE  LIST  LPRINT USR USR  LIST  COPY  COPY  COPY  RETURN  RETURN  DRAW  LIST  LPRINT USR  LPRINT  LPRINT  LPRINT  LIST  LPRINT USR  COPY  NEW  RETURN  RETURN PEEK 0 COPY  COPY  DRAW  LIST STR$ ▝x▜$t▖ COPY  LIST USR ??© COPY  COPY  COPY $ COPY  COPY  COPY  RETURN USR @3USR % LPRINT ?© COPY ©??8~© COPY ?©? COPY ??© (xzxzxz (===(x(=AyyyxJJJB=AyyyxJJJB=AyyyxJJJB=@yyyxJJJB=@zzzxJJJB=@zzzj*HHHpppHHhBJB=Bzzzj*HhhhpJB=Bzzzj*H00PxxxHHJB=p BBB0PPPxxHHHPJB p=p p0xp0p p=p p00p p=p ppp1000p p=p pp0p p=p Hhxx0p p=p xp000p p===p xph0ppp p((<=s{F▗▘▗▜{e{I▗▘y{EXP ▝es DRAW SQR v OR  OPEN #|[N]{f▗xy▗▘▘[S]M[Q]f▘BIN ▝{v[Q]▞k} CLS ▝[S]O{▚{}|▚▗▛i FOR [E][U][S]sy|▘▗▚▝} FOR [E][LN  CLS }t▘INKEY$[K]▗{}{[E]LN z{}tINKEY$▛|▚▗▘{{EXP ▘[Q]USR [P]{ RANDOMIZE z REM gyk[N]d▙INKEY$[F]{yz▚▗▚ CLS ez▗ CLS x RANDOMIZE {x CLS ~{Y▙[U]▜▘{y{d▗EXP {}[y RESTORE [P]{▚{b▗{{yx}D▚▗y{}+▚▗[K] CLS y6[P]MyTAN %|RNDz PAUSE { CLS ▗▚▗x{▚▗ASN [Q]c▚[S]D▗ PAPER  THEN nAT INKEY$▚Y{{I▝[U]}y[L]E{v▗▘Ekt[G]INKEY$ PLOT  a{b▗▚▗▚SQR x[C]INKEY$▜ IF {v▗▘▗[I][U]▜y{}[G]INKEY$[L]j RANDOMIZE {r▘[U]ut▚▗[N]{▞gIN [S]xti{ RANDOMIZE zzlykMdINKEY$[F]{yFABS DEXP kuD RANDOMIZE ~[K]Ky{K SAVE yz CLEAR ▚▙INKEY$▞▗▚[S]F CLS e{ix[L]IN x▗ PRINT h▚▚SGN  CLS y{D{F▗▘▗▘[S]E▗▚▗▟x DATA [J]{vSQR z▜x[L][F]{yx▘▗▚x▗▚ CLS ▚[S]QAT F▚BIN ABS  DEF FN USR [G]{y▜}SQR [S]©[Q]d▘▗▜cEXP Z[E][Q]qKu|▚▗▘▜▗[N]▗▚z[E][U] PLOT  {yt▘▗▚RNDINT ▗}{[E]FN i[L]}t▝INKEY$e{v▗x RETURN W[S]{E MERGE { RANDOMIZE xKj RANDOMIZE ▜ed▚▗j[U][L]}uS POKE [y|ABS y[J][L]uz PLOT  }}{EXP ▛:▝[U][L]▘[Q]|{yk~E NEXT x[K] CLS y▗ SAVE y{uz RANDOMIZE D▘▗▚[M]+▚▗▘▜z▙[J]x▙ABS |▝z{y{r▗▚▗p{▚▗▜[S]a[▚BIN [N]▚USR ▛{y▗}s[S]c[Q]d▘▗▜G[[E][Q]y[E|▚▗▘▜▗▟▗▚▜[E][U] BORDER {yt▘▗▚BIN ▗▜▗[N][H][Q]▜5{v[Q]{y{▗~D LLIST {y{i{{={ RANDOMIZE }~K[J]qd▚[S][U]}x▗[F];y{ CLEAR yEXP  CLS ex~©}{J▝[U]SQR ▘▝[Q]D{i{qz~AT usv CLS [Q] CLS Z▗▚▗▚[S]QFN |▖IN { INVERSE  CLS F[T]y/}{y▗▚q}▗▜▝SGN S▘[S]▗▛SCREEN$ ▗CHR$ ▜}{ PLOT  INT ,[L]▘[S]w[Q]c▙[S]▗▛▚▗ OVER y{▖ OVER ▛▙[S]©▝[U]t▚{Q[Q]tdyd▞D▚SQR }L▚TAN RND[Q]o}z▚▗z▗▚{y{y{w▖ySQR }BIN SQR ▘▗YSGN cy▜INKEY$y}u{f[E]{y{j DRAW ▘▗▗▜Ku{ IF [N]ABS {a{[K]y▗▘▗y~uhyw}z▚▗SQR ▜{}▚[F]t CLS v}{)SGN ▗▚[L]}~n▗▛D▚▘essE DATA ©▘{u▛M{y{{f▗[F]▗▚▗[I][S]f▗u▗ RANDOMIZE |▜INKEY$▜Dz{yD▚INKEY$ RANDOMIZE |▙INKEY$[J]▘▗▚t[K]▛▘[S]U[Q]▗▞▗▘BIN {E DRAW ▚ CLOSE #[Q]q[S]~▗}wy{exv▗{v[L] PAPER ▗EXP {r▗[K] CLS  RETURN [S]u{|▗▚t▗yq}{y▖[E] POKE  RANDOMIZE {▟INKEY$▗BIN ▞▗SQR ygE{Q{▝[U]{©{y<SIN ▜y{e, IF ▘▚▗v{xK▙COS yS▚▗▞{▘▗▚{v{Ydb~ASN jSQR 9}zD▝{yKE{▞{▘▗y{vL▚▗▚▗ REM zy{ NEXT wK}{y FLASH d▚[L][P]INKEY$f▗[F]▗ RANDOMIZE |▜INKEY$▝D[L]{yD▚INKEY$ RANDOMIZE |▙INKEY$ RANDOMIZE D▘▗▚tINT ▘[S]e[Q] POKE ▗▞▗▘▗[J]{dt▘D[Q]}u{v CLS }@▚{[B]{y{r|▚▜{yTAN ▘[L]yt[K]▛[S]i{y▗t▚▗}}y{EFN ▝ POKE }zABS DSCREEN$ ▗STR$ $▞▜{euy{e{▝FN {©{}t PLOT  ▜{yT RETURN ▚[G][C]▗ RETURN SQR }IN ecy▗[N]{▚▗{|{▟▗f▗JBIN x[D]}yx▗[B]xABS ▗▞{e+yz▝{▚u{y▘▗{▗[G]s}{ws[b▟ky{eyd▘SQR ▚j▛[U]b▟[U]tINT ▚ CLS z▝[U]▛jy{B[U] CLS b[U]{b▗▚▗z▗▝[U]s▘[S]z▗▚▛▘▗▚TAN uzv▘[S]i{yDABS {▗uwy{}tz▗ASN LN }{▘[L]{r▗▞▝[U]wy|[K]▗v▗▘{s{u{N▜5{zg[K][E]# STEP IHuz{}Sy[P]INKEY$yq}{▚|ey{jLN ▗AT TAN ▗▚[O][N]{FDABS {Q{▘SQR y▗[K]▗yx}[I]▚d POKE  CLS ▞{{▚[L]~[L]▚SQR u{I{|▗y▗RND{yy▗▜▗ SAVE {yuDCDx▘[S] MERGE {F▗ CLEAR ▗▝t[F]INKEY$▝t▛INKEY$v▗▞▗ RANDOMIZE z▚INKEY$▞ CLS [F]▛y{B[U] CLS t[U]{r▗▚▗j▗▝{}▜yo▙[S]Ft▘[L]▚▗INT  DATA  RANDOMIZE zR▗▚▙[S]m{}EXP {[K]yo}{ydt▗[J] CLS PEEK ▚▚`;z▗ CLS ▘[S]a{v▗▘z▚▗e}y{}L▚{u}Wt[D]BIN  LLIST 4▚[Q]▖ CLEAR {a{▗PEEK ▗▘▗y}ex▚|y{~INT ▗[M]▚▚[B]e{v DATA ABS {a{SQR y▗▘▗y~dTAN ▚D▘ DATA ▚[J]▜{8{q▚[L]B[L]{}{){v▗[J]▚[S][L]▚▗▟▖ LET ptuz▝Iv RETURN [S]{B▗EXP ▗[F]t▙INKEY$|INKEY$tINKEY$r▗▗ PRINT {▘INKEY$ABS {f▛E{[Q] CLS yFN {v▗▘▗f▗[F]{x▗}w▘[S]Kx▚[L]▗▜Lzv▗▘▛▘[S]y{y▗[N]x▚ CIRCLE ewy{}Dy▗ PRINT {XUSR  THEN D▗▚SQR ▚[S]u{j▗▚t▘▗yqe{~[M]▘cyw+t▙D▝ DATA ▖{{uB CLEAR {Q{▗ SAVE ▗▘▗yxet▜x▟ LET ~`INT ▜▗▙▚[H]{z[U] CLEAR {I{ CLS y▗▘▗yxft▚D▘D▚▛zx{u▚[L]▛G{}{I{z▗▝[U]y[J]▚▗ABS © CLS w©GmPEEK [S] INK {B▗▗ASN |▙INKEY$[N]zINKEY$RND|INKEY$r▗▗u{[L]▗ RANDOMIZE {[L]y{[U]{u[J]▘{v▗[K]▗F▗[N]{z▗uo▘[S]C▛ACS SQR :▗▞[A]ABS { PLOT  ▗▛▘[S]i{y▗[F]|▚PI}oy{uyG}{iUSR  NEXT ▗}▗▚[L]▙[S]m{B▗▚d[K]▗y}}{v[E]{yc ERASE t▙▗EXP D▝{}{`fASN {a{▘▗ RANDOMIZE ▗[K]▗y~}t▝z/fvSQR ▜▜▚[E] CLEAR {z▗ PRINT {){r{y▗[K]y~zD▚DDOyyxD▚SQR q▛E{u{){b▗▝▝SGN OINKEY$▜▘▗EXP ▜COS {qg▙▛RND^[U]yD▚SQR z[U]SQR e▝[U]SQR z▟[U]t▜{} RANDOMIZE dINT  CLS yt[N]{yFN y{ CLS f▗ RESTORE {v▗▘▚SQR u|▚{q[Q]d RANDOMIZE  POKE  RANDOMIZE D▘ DRAW SQR u▚ DATA [N][Q]wez▚z▗ AND {y{y{[Q]KINT CHR$ ▚▛CHR$ {▚▗U[Q]w}D▚▗▗▚{w{yd[K]{M$~{▜▜}{ytEXP SQR yS}▗▚{[K]▗▚{~{i▛u{Q▘zEXP ▗x{yK▚[S]▚▗[N]{z|▘F▗▗zy{fxr▗ RANDOMIZE w▟Cy{uKyd▘▛▘[S]gK AND ▜▘▗yeICOS x{uc▙▛USQR 6[U] FLASH yd▛▚ CLS z▘[U][K] CLS y▚INKEY$ RANDOMIZE |INKEY$v▗ABS y{ IF {v▗}{vSQR u{▘INKEY${yet▚SQR }t▘INKEY$ PRINT AT VAL$ AT SCREEN$ AT VAL$ AT [C]AT VAL$ AT SCREEN$ AT VAL$ AT [S]AT VAL$ AT SCREEN$ AT VAL$ AT SIN AT VAL$ AT SCREEN$ AT VAL$ AT [S] DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW ▘ DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  RETURN  RETURN  SAVE  RETURN  DRAW  RETURN  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW CHR$  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  RETURN  RETURN  SAVE  RETURN  DRAW  RETURN  LIST  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  RETURN  RETURN  SAVE  RETURN  DRAW  RETURN  LIST AT VAL$ AT SCREEN$ AT VAL$ AT [C]AT VAL$ AT SCREEN$ AT VAL$ AT [S]AT VAL$ AT SCREEN$ AT VAL$ AT SIN AT VAL$ AT SCREEN$ AT VAL$ AT [S]EXP SQR EXP SCREEN$ AT VAL$ AT ▘ DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW VAL$ AT SCREEN$ AT SQR EXP ATN EXP SQR EXP NOT  CLEAR  COPY  CLEAR CHR$  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP NOT  CLEAR  COPY  CLEAR  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP NOT  CLEAR  COPY  CLEAR CHR$  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP CHR$  CLEAR  COPY  CLEAR ▘ DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP CHR$  RETURN  DRAW  RETURN CHR$  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN  DRAW  STOP  DRAW  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP CHR$  RETURN  DRAW  RETURN VAL$  DEF FN  TO  LINE  POKE  PLOT   POKE CHR$  TO  INPUT  GO TO  REM  GO TO BIN  DEF FN  FORMAT  DEF FN  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP USR  RETURN  DRAW  RETURN  FORMAT VAL$  DEF FN  TO  LINE  TO ▙▘ INPUT  GO TO  REM  POKE  TO  DEF FN  FORMAT  DEF FN  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP USR  RETURN  DRAW  RETURN [A]VAL$  DEF FN  TO  LINE  TO ACS TAN  PAPER  DRAW  RETURN  DRAW  LINE  TO  TO  DEF FN  FORMAT  DEF FN  TO  DEF FN >= AND SQR EXP ATN EXP SQR EXP  PAUSE [U]BIN  AND  SAVE ▚ACS TAN SIN TAN  VERIFY  CLOSE # PAPER  DRAW  RETURN  TO  LINE  TO  VERIFY  DEF FN  CIRCLE  AND BIN  AND [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U] PLOT   POKE  POKE ACS TAN SIN TAN ▙▘ RETURN  POKE SIN TAN ACS TAN  REM  POKE  PLOT   POKE [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U] PLOT   POKE  LINE  POKE ACS TAN SIN TAN ▙▘▙TAN SIN TAN ACS TAN  REM  POKE  PLOT   POKE [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U] PLOT   POKE ATN TAN SIN ▙▘▙SIN TAN ACS TAN  REM  POKE  PLOT   POKE [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U] PLOT   POKE SIN ▙▙▘▙TAN ACS TAN SCREEN$ TAN ACS  POKE [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U] DEF FN q▙ GO TO  IF  DRAW ▙▘▙▙TAN SCREEN$ TAN ACS  POKE [S] POKE SQR EXP ATN EXP SQR EXP  PAUSE [U]▙SIN  DRAW  RETURN  DRAW  IF  DRAW  RETURN ▘ PLOT  ▙SCREEN$ TAN ACS  POKE [S] POKE ▝EXP SQR EXP  PAUSE [U]▙ PAUSE  DRAW  RETURN  DRAW  IF  DRAW  RETURN ▘ PLOT   GO TO ▙SCREEN$  POKE  PLOT   POKE [S] POKE ▝AT VAL$ AT SCREEN$ AT VAL$ AT [C]AT VAL$ AT SCREEN$ AT VAL$ AT [S]AT VAL$ AT SCREEN$ AT VAL$ AT SIN AT VAL$ AT SCREEN$ AT ▝AT VAL$ AT SCREEN$ AT VAL$ AT RAT VAL$ AT SCREEN$ AT VAL$ AT [S]AT VAL$ AT SCREEN$ AT VAL$ AT SIN AT VAL$ AT SCREEN$ AT ▝Yce[L]YcYCOS YcU_eTAB [P]WCODE  IF Y>[U]▘ RANDOMIZE G9N IF POINT yPI▘ MOVE y<▗{PI ERASE [M]{:▘yRNDAT [S]▞INKEY$k©:▚AT TAB y8SCREEN$ <=[E][P][C]TLN ▘]@[A] MERGE J INVERSE  RESTORE  IF _ LINE [R]CHR$ TAB I[U] FOR E. POKE INT [B[C] FOR D OUT  READ  DRAW ]>=CODE }▗K[S] GO SUB G, REM  POKE CODE >=CODE BIN CODE [E][P][C] RETURN 5SCREEN$ ▙[M]© IF TAB  LINE POINT [G][N]ATN AT [K]s[E][P]▘ RETURN 5J[O]ri▗▚▗▘▗E CAT rYPIJ PAUSE SGN ^ FLASH [C]▚Y[D]Y>=▗_CHR$ ▜Y POKE ▚[ STOP ▝G OVER  FOR [L]INT  PLOT  #SCREEN$ ▜[H] LINE i MERGE CODE  PAUSE INKEY$ATTR  POKE ATTR ▗ AND  DRAW %AT IASN  POKE [G]©▛o▜[P]▟K| GO SUB QK[M]i MERGE [T] PAUSE U[K]PEEK PI POKE STR$ VAL$ POINT  POKE K| PRINT [I][G]~FN CODE  PLOT  [I]▗Iz FOR K[M] LINE PEEK FN  POKE FN CODE  PLOT  SGN ▗Iz FOR K[M] REM i MERGE TAB  PAUSE i INVERSE [T] IF VAL$ TAB  POKE ▟▚▟7| DIM I[K] POKE k BEEP TAB  POKE k OUT ATTR  POKE SQR [U]I[S]▗FN CODE  PLOT  ▟G| DIM [J]FN CODE  PLOT  ▗PEEK CODE  POKE STR$ Ir FOR [L][E]xVAL$ TAB  POKE [L]POINT ▚▟O| DIM M©AcQ SAVE ▛▞▛▜p BRIGHT  MERGE i&U_▘▙▛i&[P]▙[E]|UcEwM©INT INKEY$ INVERSE INT ▚[D]= MERGE uO▗▗▚▗▘▗▚q[U][U] FOR SGN ▗[B] READ sM▗ IF ▗▚{}{▚▝▗▖▖[P]▗▚▗▘dvt IF ▝▚▗▘▗▝▛ASN  POKE rtf▗▗▚▝▛▞[K]▗▚▗▜ POKE  PLOT   POKE  IF  POKE  PLOT   POKE  PAUSE ▝▚{{▚▗▘▗<=▗▗▚. BEEP .▚ OR [A]▖ THEN ▗▚▗▘$ VERIFY $ REM  OR ▚▗▘▗▗▝<=[U] ERASE $ AND ▗[K]▗▚ OR ▖▝▝▗▚▗NOT [U] VERIFY [U]SCREEN$ [U] VERIFY [U] ERASE  OR ▚ MOVE   MOVE ▚▗▘▗▗[H][M]▜[H]▗▜[A][H]▜▚▗▘▗uASN INT ▗SGN ▗B FLASH LN USR LN ▗F© CLS LN [H]w CLEAR SGN ▗B OPEN #LN  TO LN ▗FINT [C]i COPY PEEK {Dx TO SCREEN$ LN [C]▚LN ▗VAL INKEY$ LET  COPY FN ▗FINT [B]i COPY  RETURN LN ▗FINT [C]i COPY +▖RND LET ACS [H] PAUSE K BORDER  RETURN +TAN  VERIFY  LIST ACS  PLOT  FN ▗ LET INT ACS INKEY$ NEXT ATTR ▗ OVER [F]g▜▗ RANDOMIZE i6Bk<=[E] NEXT [VAL$  OPEN #"K LINE  DIM Y[U] MERGE $I8 RUN GQ POKE I SAVE  PAUSE K/<>RNDc[D]▗ OVER ▜k4▗PI▚ GO SUB ▘ IF [R]_xATTR ,AT ▜▖[R][E]r CLEAR ▗▘INKEY$LN  LET j▛ACS ▜ NEXT LN [U] LET #SIN SIN ▖▗[T] LET ▘▘ IF RND_|ATTR  AT SQR ▖RND[E]v CLEAR xSCREEN$ [K]SGN RND PRINT #INKEY$[M][U]TAN RND PRINT INT ▙ACS [P] PAUSE )ACS [S] NEXT ▜$ RETURN VAL$ [I] NEXT ▛INKEY$[I] NEXT VAL X PLOT  #SCREEN$ TAN LN WABS  DIM PEEK ^ POKE  INK +LN X PLOT  PEEK X POKE zE[U]▘INT [M]z▞[U]▜+VAL ^ PLOT  +WABS  DIM RND▘ BRIGHT [H]a▚▜o4k CAT g NEXT LN ▗%[U]CHR$ I+ LET SGN _ PAUSE #INKEY$IN [U][]zTAB b[L]INT ▖LN VAL _ PLOT  INT SQR ACS Z POKE [K]▞[J]TAN INT ▜ACS Y POKE LN {FN X PLOT  INT =_xATTR  MERGE INT  RANDOMIZE _|ATTR 5b CLS AT ▙INT ACS ▚ NEXT ▛▚ IF 5DCHR$  FOR INT ▚#[S]AT SGN ▗ CLEAR #VAL$ ▜LN ^ PLOT  RNDEXP  OUT TAN ^ PAUSE  FLASH [A]▗[D] IF K DIM 4INT ▜ACS  LLIST  PAUSE TAN  VERIFY  LIST ACS  PLOT  ▛▚GBIN  PRINT PI[O]![F]▚BIN  CLS [G]i:YPI▗CHR$ ▚[M]▛ CLS [G]I REM PI LLIST [F]▚ BRIGHT ▗INT INT  PAUSE Uzo4SGN INKEY$ CLEAR z▚AT ▗PEEK  BORDER @=[U]|PEEK X POKE !AT ▗z▜AT ▜RND PAUSE . STOP PI RUN +[M]RND SAVE ,[H] PLOT  *▜w4EMWRNDyX[L];f[S]▜k4w* NEXT Iy PLOT  Ki SAVE I[A] PAUSE KRNDYg▛deABS VAL ▗g4OVAL$  CAT " CIRCLE PI- COPY 4[U]LEN i INK NOT VAL <> PRINT ,VAL <> PRINT b[J]z[U]RNDFN  THEN  INT ACS  ERASE "▗▜RND<=" FOR TAN ▗ READ  BRIGHT PI FORMAT oBIN PI FORMAT INT ACS  MERGE "[R]PEEK  MERGE "IN [U]▘PI INK INT ▗INKEY$ CAT "TAN  BEEP ,oESQR  PLOT  STR$ LN ▗=[U]▞YFN  MERGE  [F]f{[[N][D];fG CLOSE # RUN [H][L]b+TAN  THEN  RANDOMIZE INT ▙ACS = RUN S[F]▙▗k BEEP 5 RUN WYoY SAVE ▗|▞INKEY$▞CODE [F]▜▗o BEEP 1 RUN [YPIPI PRINT ▘[C]AOY CONTINUE ▗[U]▗CODE TAB [T][F]LEN  PAUSE [L]US▘SIN i"INT [F] MERGE INT ▚▞E[PI[C]][H]▗YgY[L]MLN ▗]LPI[H]_[F]yX▛(i2EXP TAN ; DIM DLN VAL  THEN  PRINT Mq PAUSE PI BRIGHT CODE  CLS 0[K]©PI;bPEEK ▜ NEXT -AT RND<>o[H]▘ PAPER INT $g$k$o$k$[A]$k$o$k$g$k$o$k$w$k$o$k$g$k$PEEK ▜ NEXT AT ▘[F]Z{[P]UGTAN  PAUSE IN [U]BM▙ RETURN `B COPY @[U] MERGE / DRAW R OPEN #O[F] BRIGHT aBIN GQk$g$k$o$k$w$k$o$WINT [O] INK INT ▘Ow[T]▗x[F]▛z▜▗SIN {i*INT xi OR i CIRCLE RND[ LET LN GVAL y{INKEY$▗yK INPUT 4INT ▝RND BRIGHT [H] PAPER y▚a PAUSE VAL SQR Qzk4ATTR ▗ AND [F]BIN ▜{TAB  NEXT k4-I FOR 2Go LIST INT [L]I TO @W{Z©▗PIlwCODE  CLS 0[S]©[G]r FLASH ▗ OVER [F]g▜▗▞i6▘INT ▜ACS  LLIST  PAUSE CI SAVE  PAUSE GA PAUSE RNDc[D]▗ OVER INT ▜ LIST EXP Qzk4K[E]aRND▘BIN [H] PAPER y[D] PRINT i6RNDuX[H]▗_9▞M▗k4[T]a#INKEY$<="PIINKEY$<>"[U]▚TAN  BEEP $INT ▜ACS  OVER "PI)INKEY$ BEEP "ACS  CLEAR  PAUSE VAL ; PRINT ACS V POKE TAN _ PAUSE INT ▜ACS  MERGE  RUN KQ LIST I^ RUN ATTR ▗ OVER [F]g▜▗ RANDOMIZE i6▘▜A▜▗▞RNDcACS PI▟ DRAW +[U]©RNDg[H]▗ ERASE ▚▜y PAUSE  LIST iE[G]eSGN K DIM <RNDq"[D] VERIFY I1 PAUSE PI%[F] CLOSE #G/ LIST RND BEEP "[H]*I- PAUSE ▗▜)ACS P POKE PI^ PAUSE aCINT [L]IIN  FOR CeSIN [E]~+TAN ^ PAUSE +EABS  MERGE +]zTAB b[J][U]▙+TAN _ PAUSE MPI NEXT [F]Yl▗▖O OR CQ[A]▚iJULN [A] FLASH LN ▗ OPEN #G[E]oE[G]lSqCQgYcyo]▙qGQcPEEK [K] NEXT !AT ▚EXP TAN [U] CLEAR PEEK PI NEXT |INKEY$[F][Q][B] LIST EXP VAL [B] LIST [U]INT ▗ACS [T] NEXT )W▜I LLIST 2cUGu▘]{e_egU[u}i CAT ▗[VAL$  OR "[ IF ▘Y CIRCLE g ERASE ▗z}[U][H]QWeLN VAL  FORMAT  Y DATA ▗[ PAPER Y FORMAT ▚ STEP PEEK  ERASE "IN [U]▙INT  CLS YRNDY[R]YRNDACS  OVER "[INKEY$ STEP " RETURN ▙▗PIBb▟SQR [U]voE INK  POKE ▘INKEY$IN AS[O]$PI0PI[I][H]▛[U]tULN [A] FLASH LN ▗ OPEN #G[E]bMLN ▗%LPIa PAUSE ▚▜ BRIGHT  COPY `[S]▟SQR b OPEN # CLEAR bb6 INK  COPY dSGN VAL$ ▙/`SGN  MERGE  COPY `C FLASH  CLEAR  NEXT [R] RETURN 5SCREEN$ ^OQ▗▜CQ[M]Si&i*i&i"i&iZU[C][E]oULN [U] FLASH G[E]cULN ▙ OPEN #▜W▝i*i&i"i&ii&USGN [U] FLASH [K]nORND/▜W[A] IF RND* LET  FLASH POINT ▟ DRAW 3[U]sM{▗Y CLEAR x[E]q}y[E]xa}©Yq[E]{▚=▚▗INT ▗▚[U][S][U]INKEY$[U]SCREEN$ [U]INKEY$[U][S][U]INKEY$[U]INT [U]INKEY$[U][S][U]INKEY$▗▗▚▗▘▗▚[M] STOP [M][O]▗[K][M]▚▗VAL$ [Q]▚▗▘▗▚▗PEEK  IF [S][Q] DRAW [Q]▚▗▘INT VAL$ INT ▖INT ▙▗ CIRCLE  LPRINT ▙[E][U]CHR$ ▚[E][S][E]AT USR  AND PEEK ▚[C][E]▚▗▘▗▚▗▙▙▚▗Z[E][G][E][C][U]▚▗VAL$ [K]INT [O]VAL$ ▚▗[K]▙INT ▚▗▗▚▗[G]▗INT ▗▚INT ▘▗▚▗▗▚▗[K][M]▚▗[K]▚▘[C][U]▚LN  CONTINUE  PLOT   GO TO  STOP  LPRINT LN ▚[M]CHR$ [M][O][M][K]LN ▚LN  GO TO ▘[M]VAL  IF ▚LN  DRAW ▘[K]▘ DATA LN ▚▖[G]FN  LINE  IF ▙[K]▚ IF  CIRCLE  DATA  IF ▘BIN LN ▚LN  CONTINUE  DATA  IF  STOP  DATA LN ▚ IF  CIRCLE ▘[M][K][M]▚LN  CONTINUE  NEW INT  NEW  LPRINT LN ▚LN  STOP LN ▘BIN LN ▚▗▗[G]▗▘[E]▚▗[K][E]▚▗[C][E]INKEY$▗▖[O]TAN [K]▖▚▗INT ▗LN ▗SGN ▗▚▗[M]▘▙[M]▚▗INKEY$CHR$ [M]▘[M]▚▗ACS  DEF FN  FORMAT  PAPER CHR$ LN ▚LN [I] NEW  SAVE  NEW  LPRINT  NEW ▚ SAVE  CONTINUE  NEW  IF  NEW  LPRINT  SAVE ▚LN  SAVE  DATA  NEW  DATA  LPRINT LN ▚ DRAW  INPUT  NEW  DATA  NEW  NEW  DRAW ▚ IF  PAPER  DATA  IF  DATA  STOP  IF ▚ IF  REM  DATA  IF  DATA  STOP  DATA ▚LN  SAVE  DATA  LPRINT  NEW  LPRINT LN ▚ NEW  CONTINUE  NEW  SAVE  NEW  LPRINT  NEW ▚LN b[M][O][M][K]LN ▚[K]▚▖>= DEF FN SGN ▚ NEW  RETURN  GO TO  PLOT   GO TO  NEW  NEW ▚ DATA  REM  DATA  NEW  DATA  STOP  SAVE ▚ NEW  CIRCLE  PAUSE  GO TO  INPUT  LPRINT  NEW ▚ NEW  CONTINUE  PLOT   GO TO  STOP  LPRINT  NEW ▚LN  SAVE  NEW  DATA  NEW  LPRINT LN ▚ SAVE  CONTINUE  NEW  IF  DATA  STOP  DATA ▚LN [I] NEW  DATA  INPUT  DATA LN ▚ SAVE  CONTINUE  NEW  IF  NEW  LPRINT  NEW ▚LN  SAVE  DATA INT ▘BIN LN ▚ IF [C][M][O][M][K][M]▚ NEW  CIRCLE  NEW  DATA  NEW  LPRINT LN ▚ NEW  CONTINUE  NEW SIN VAL ACS [M]▚ NEW  SAVE  NEW  GO TO  INPUT  POKE  NEW ▚ AND  INPUT SGN [O][I][U] AND ▚ LPRINT  LPRINT PEEK [M][K][M]▚ IF [O][U] STOP  IF ▚▗[E]▙▚▗▖▘[M]SIN [U]▚▗ LINE [E][G][E][C] POKE ▚▗[C]LN  BRIGHT [M][K][M]▚▗[K]▗▚▗▘{▚▗[G]ACS  RETURN TAN SIN  IF ▚▗ IF SGN ▘LN  NEW INT ▚▗INT TAN INT ACS VAL LN ▚▗[K][I]ACS TAN SIN [I]▚▗▙INT  LPRINT  NEW LN ▚▗INT SGN  STOP  SAVE  STOP LN ▚▗[G]TAN  RETURN TAN SIN TAN ▚▗[K]LN  STOP  LPRINT PEEK [O]▗ REM  DATA  RETURN  LPRINT  NEW  LPRINT ▚▗b▗PEEK [M][K]LN ▚▗▚▗▖▙FN [O]▗ IF  GO TO  PLOT   POKE  REM  LPRINT ▚▗INT TAN ACS TAN SIN [I]▚▗INT  LIST  GO TO  INPUT  CONTINUE  INPUT ▚▗ DRAW  STOP  LPRINT  NEW  LPRINT ▚▗[K]SGN  STOP  LPRINT  NEW SGN ▚▗ DRAW  STOP  LPRINT  IF  DATA  NEW ▗ IF LN  STOP  LPRINT PEEK ▗[I]ACS TAN SIN TAN ▚▗[K]SGN  NEW SGN ▙ DRAW ▚▗INT  DRAW ACS TAN SIN [M]▚▗INT  LPRINT  STOP  LPRINT  NEW SGN ▚▗ NEW  DATA VAL PEEK [M]▚▗[K] NEW  GO TO  INPUT  CONTINUE VAL ▚▗ NEW SIN [M]VAL$ CHR$ ▚▗y LPRINT  STOP  LPRINT PEEK PEEK ▗ IF [M]SIN  IF ▚▗▗[M] RETURN [M][K][K]▚>=[Q][O][M]INKEY$ AND ▗CHR$ [M][I][M][K] DRAW ▚LN  NEW  POKE  INPUT  DATA  NEW ▚▗▘▗[O]TAN  LPRINT LN ▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚t▛▚{▘{▚{INT K▞sr{▚{{▚4SIN [P][O]{[K]{▚z▘BIN  AND [P][C]{▚{▘y▜ IF COS ACS {▘{▚~▖▗▚ NEXT  PAUSE {▚{[K]p▘▗▘kf{{▚l▜[z{▚{▘l▙▜▞[F{▘{▚l[C]▛▞TB{▚{hINT SGN  THEN <> CLS  IF {▚k▟y{TAN INT ;{▘s▝{e FLASH CHR$ {▚|▜ATTR INKEY${INT {▚yEG{▚{▘z▚dzSV{▘{▚{ POKE  PLOT  SR{▚{{{▚<INT [D][G]{{▚{▘Z[I] FOR  IF {▚{▘{▚k THEN  AND {▘{▚{INT s▝+"{▚{{▚©▝WV{[K]{▚{▘y▜if{▚{▘{▚z IF vt{▘{▚{{▚ PAUSE  POKE {▚{[K]{▚{▘9INT {{▚{▘{▚_[S]{▚{▘{▚{c▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{z{▚{▘{▚{{▚{▘x▚▗[K]SQR ▚{▘{▚g▞{yKB{▚{INT X[K]▗▘ NEXT  PLOT  {{▚$[S]▗▚[C]{▚{▘$INKEY$▗▝▘{▘{▚$ PAPER ▗▚▝▚{▚{4ACS ▗▘▙{[K]{▚[[N]{ysz{▚{▘k▞{EKF{▘{▚u▛SQR ▘{▚{[K]z▚@F CLS ▚{{▚z▘CA; CLEAR {▚{▘z▚DJ[F{▘{▚z[K]B@[B{▚{z▚F@[F{INT {▚z▘FD[J{▚{▘z▚FX[F{▘{▚zFD[B{▚{ IF z▚BD[F{{▚z▘DF[Z{▚{▘z▚EK;{▘{▚zINT [Y CLS ▘{▚{z▚TR{▚{[K]{▚z▘SV{{▚{▘z▚SSCREEN$ {▚{▘{▚zSV{▘{▚{[K]z▚_Z{▚{{▚z▘{▘{▚ NEXT {▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{e▚{▘{▚{INT {▚Z[M] CLS ▚{{▚{▘;EXP ;{▚{▘{▚ PRINT  CLS [F{▘{▚z{DF FOR  STOP {▚{z▚DBCOS ACS {[K]{▚z▘DF[P][C]{▚{▘{▚ DATA  PAPER ▞{▘{▚{ POKE  PLOT  ▘▗{▚{[K]{▚ DRAW  IF ▚▗{{▚z▘hj▜ RANDOMIZE  CLS ▚{▘y▜bl▜ CLS ▘{▚©[J]▜▝ CLS ▚{s▝ASN COS zx{INT {▚j[O][O] RANDOMIZE  PLOT  {▚{▘X[K][C]▚{▘{▚<SIN POINT SCREEN$ {▘{▚{z POKE  PLOT  <> DEF FN {▚{z▚`f{[K]{▚yCAIN SIN {▚{▘©$ NEXT  PLOT  {▘{▚s▟ FORMAT  ERASE kb{▚{[K]j▖+[F{{▚q▜ POKE ▚SQR  IF {▚{▘|▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{y{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{t▚ CLS ▘{▚{ IF {▚cSQR ▚{{▚{▘H{▚{▘{▚/[C] THEN  AND {▘{▚{INT [O]ATTR [S]{▚{{▚4SIN [T]INKEY${[K]{▚{▘4ACS [D][K]E▚{▘z▚TAN J[D][G]X[O]▗▚▗tv[D][C]S[B]{e{yTAN SIN [D][G]T[K]▗▚▗▘TAN ACS [D]SCREEN$ S[B]{}{y4:[D][G][[N]{y{etv[D][C]D▚[G][I]▟ POKE  PAUSE [D][G]{ IF W[F]}{TAN ACS [D][K]{▚/[K]▜SGN [S][T]INKEY${▘K▞ztSGN PEEK ATTR [S]{▚cABS xz[O] THEN  AND {t▚▘K▞{▚{▘{▚dSQR ▚{▘{▚{{{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘G▚{[K]{▚{▘{▚[C]{▚{▘{▚{INT LN INT {▘{▚{{▚ REM  GO TO  CLS ▚{[K]{▚{▘ATTR POINT SQR {▚{▘{▚m{▘{▚{O▟KB{▚{[K]{▚a▜cf{{▚{▘v▗wJ{▚{▘{▚b CLEAR  RETURN {▘{▚{[K]l▙[I][O]{▚{{▚o▞▖ CLS  IF {▚{▘g▟SQR ▚{▘{▚m[D]{▚{`▘ECDF▛INT {▚v PRINT  RUN {ucf{▘}▜▗[K];9sr{▚xzx DRAW  IF [D][G]{z▚▜▝df[D][K]{▚{▘wDZ[D][G]{▘{▚c▟▗▚[T][S]{▚{INT j▖▗▘ATTR INKEY${{▚H▙▗▚ THEN  PAPER {▚{▘/[O]▛{▘{▚T REM ▚▗SQR ▘{▚{/[O]▖▙{▚{[K]{▚K▟uv{{▚{▘d▚INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{z{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{s▚ CLS ▘{▚{INT {▚l;{{▚{▘i▛;{▚{▘{▚q;{▘{▚{ IF q;{▚{{▚q▜;{[K]{▚{▘;{▚{▘{▚ RANDOMIZE <=;{▘{▚zEG;{▚{[K]y▜;{{▚y%'; CLS {▚{▘y▜%+;{▘{▚y[L]%';{▚{y▜%#;{INT {▚y%';{▚{▘y▜5+;{▘{▚y▛;{▚{ IF z▚EC;{{▚{▘[F][H];{▚{▘z▚[E][K]CF{▘{▚}SQR {y©z{▚{s▝{}yz{[K]{▚l▗▚▘{▚{▘T[G]▗z▚▗{▘{▚T[K]▗▚▚{▚{[K]l▙▗▘▚▗{{▚s▗▚[J]INKEY${▚{▘}▜{ugf{▘{▚z[K]▗▚[L]▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{x▚ CLS ▘{▚{y{▚©▝;{{▚d▘ LIST ▘ FLASH  PAPER {▚{▘[[J],;{▘{▚= MERGE  BEEP  CLS ▘{▚{ POKE  PLOT  [S][U]{▚{[K]z▚ce▞{{▚yMO[P] STOP {▚{▘y▜ NEXT  PLOT  {▘{▚y[L]$&kb{▚z▞▜%#[F{INT y▜vr;{▚©▝y{ CLS ▚{▘r▟▖{▘{▚r|▜EXP PEEK {▚{r?>{[K]{▚~▗▚sz{▚{▘~▗▗INT  NEXT  PLOT  {▘{▚y▛▗▚COS SIN {▚{[K]z▚COS ACS {{▚{▘BIN  AND [D] REM {▚{▘{▚$SCREEN$ [D][G]{▘{▚{[K]/[O][D][C]{▚{{▚b▗COS ACS {INT {▚{▘}▜kj{▚{▘{▚z[K][L]▚{▘{▚{{▚{▘{▚{{{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚z▘SQR ▚{{▚{▘y▜[:{▚{▘{▚©▞kf{▘{▚{[K]rCOS SIN ▚SQR {▚h▙COS ACS  CLS  OR [F{▘h[O][C]{ykb{▚/▘[N][P]COS ACS {/[O][N][L]SQR EXP  REM ▚/[K][L][J][U]SCREEN$  NEXT  PAUSE /[O][M]▘▗▚[L][N]SV/[C][M][O]▗▘▗▚[D]SCREEN$ /[O][P][J]{y{uSV/[K][L][J]{e{ysr/[O][I][G]▗▚▗▘▛▚/ STOP [P][O]{▘{▚{hIN INT {▚{[K]{▚h▙IN PEEK {{▚{▘s▝sJ{▚{▘{▚©▞kf{▘{▚{[K]x▚[L]▘{▚{{▚{▘{▚{}{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{z{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{{{▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{ IF {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚{{▚{▘{▚{INT {▚{▘{▚{{▚{▘{▚{[K]{▚{▘{▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗[M]▗▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘AT ▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K] TO ▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘ TO ▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘[H]▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF  NEW ▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘ DATA ▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▚[M]▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▚▘z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[L]▗▚B▗▚▗▗▚▗▘▗▚▗B▗▚▗▗▚▗SIN ▗▚▗▘▗▚▗[K]▗▚▗▚▗▚▗▚▗▚.]▚▚▗RND▜y▚▚▗SIN ▗▚▗[K] CLS ▜INKEY$▚▚▗VAL$ ▚x▘BIN ▚▗ IF ▗▚▗▘▗x▗VAL$ ▚▚▗SCREEN$  POKE ▚▗[K][U]▚▗CHR$ ▗▚▗▗▚▗ AND ▚▗k▗▚▗▘[E]▚▗▗▚▗▘▗▚▗ CIRCLE  DRAW ▚▗▘▗▚▗▚▘▗▚▗INT ▗▚▗▚▗▗▚▗SIN ▚▚ PAPER ▗▚▗▘▗▚▗▗▚▗▘▗▚▗ REM ▚"▗▚▗▗▚▗▘▗▚▗[K]▗▚▗[C]▚▚▝CHR$ ▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▚▝ ERASE ▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▚▛▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▚▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▗[O]BIN ▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▗[K]BIN ▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▗[C]▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▗▘▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▗▚▗▘▗▚▗u▗▚▗▘▗▚▗▗▗▘▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▚▗INT ▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚ABS y[R]LEN  RETURN RND NEXT  CLEAR [N]5 SAVE [C]s RUN ▛LEN  CLS ▞ NEXT -▘s▚LEN  RETURN ▛ NEXT  CLEAR 5 SAVE ▗s▜▜LEN  CLS ▜ NEXT =▟sLEN  RETURN ▖ NEXT  CLEAR [C]5 SAVE [M]s RUN [L]LEN  CLS INKEY$ NEXT [T]yACS  BORDER oA[U]PEEK  BORDER FN RND▗K NEW RND BORDER ACS Eg[F]{[E][P][E]aM▚▗▗▚▟BIN ▗▗▗[L]▝▜ VERIFY ▘ACS  BORDER oA[U]<=PEEK  BORDER ▖ INK RND OPEN #K LIST RNDBIN LN  RESTORE ACS  FORMAT K LIST RND BORDER PEEK Eg[F]▘[E][P][E]-M▚TAN  RETURN ▗▚▟ CAT ▗▗▝▜ VERIFY [K]▗ FLASH ▘▗<>▜▗ VERIFY g▝▚IN ▝cACS  RANDOMIZE _OeWTMgACS  CLEAR [K NEXT eK]MKO DIM AT {McqSQR  SAVE I`DtINKEY$sseOINT SIN I▘QC©ATTR [A]▗EXP ak DRAW TAN }vCSQR o DRAW ATTR ▟PI[C]gage[M]ce SAVE CODE  LIST EWMWnI[J]lOSIN INT EXP ▜▝[U]|G,KPI CIRCLE PI TO PI>=A[R]PIUSR PI IF RNDI▚WMWA MOVE wATTR k DRAW TAN }[S]▘SQR o MERGE egKUOI▚INKEY$[M]▗▘EXP i(▘POINT i IF vTAB [K][N]K{ATTR [E][U][O]▘ DRAW BIN k'▗ATTR k DRAW xCHR$ &@BIN M[U]▜y[N]i COPY RND▗TAB ac SAVE 3[U]CMLN ▘y[J]i NEXT RND▚▗POINT ▗ IF 1INT ~O▗▘▗▚▗▞▛▚▝▗©▗▜}B{_[y{▘{x▜iASN ▚▗O CLOSE #RNDINT >=SGN ▚K[B]3I DATA u{▚{~▖IN pZ^y{▘{z▞snBIN )}{▚{▖ATN p OPEN #y{{y[M][D]e▚-e{▚{}TAN E POKE y{▘{}ABS ▚AT }{▚{{D[J]▘TAN  RANDOMIZE {[K]{~g}▗ DATA  PRINT {▚{N{y▗D RANDOMIZE {▘{{u[I] CLEAR {▚{[L]{y▘▗ RANDOMIZE {z▗{}▚▗E{▚x▜{©▗y{▘|{z▚[U]}{▚|[P]{&DBEy{ IF t▟{ dEXP t{▚d[H]z"t[K]▜y CLS ▘DTAB bcx▚▛|SQR ▚TAB {▘SQR z[L]AT  THEN (BIN y©b▛▚▗[H]ABS  ERASE [U]ASN wz▘▗FN f FORMAT  RANDOMIZE C{▚▗ INVERSE  FORMAT  OPEN #[U]ASN r[K]▗-.SCREEN$ Kb▜▚[H] MOVE  FLASH BIN VAL$ Kr▜▘INKEY$.`▞[j▚ OVER  MOVE  CLS  TO [N][S[L]D▚VAL$ 8{T[F]▚d FLASH {[G][H]{R[L]▘|{` STEP ▖{,[E]▚{u{{[G]wP[P]INT {y{|▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▜x▘▗PEEK ▗▜yz▘▗ LINE ▗zx▚▘▗▗w▚▚▘▛g{▚▘[L]t▚▚▘▜4EXP  POKE ▚▚▘▜`yLN ▚▘▜`CHR$ ▚▘▜d▞BIN ▚▗▚▗ RANDOMIZE [U]▚▗▚▗▞t▚▗▚▗[K][E]▚▗▚▗▗▚▗▚DINT ▗▚▗▚Dd▚▗▚$[E]▚▘▜[U]j[E]▚▚▘▗[U]SQR [E]▚▖▘▗CHR$ [U]J▚[M]▘▗PEEK BIN Z▘▗▚BIN  REM ▗▘▗▚BIN ▗▘▗▚BIN [G]▜▚▘▗▚BIN [F]x▚▚▘▗▚BIN ▞x▚▘▗▚[U] IF ▗▚▘▗▚[U]▗▚▗▗▚[E][K]▗▚▗▗▚▗▚▗▗▚▘INT ▗▚▗▗▚J▗▚▗▗▚▗INKEY$▗▚▗▗▚▗▖▗▚▗▗▚▗x▗▚▘▗▚LN ▚▗▚▘▗▚ IF  NEW ▗▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▝t▘▗▚▗[K]▛y|▘▗▚▗[L]~▘[I]▚▗yH▚▘[S]▚▗▟x▚[E]▘<=▚▗[I]SGN ▚▘▝x▛D▚▘zINT t▚▘▜▛[M]▚▘}[L]▗▚▚▘t STEP ▚▚▘▚zBIN ▚▚▘▚▗ LINE BIN ▚▚▘▚▗INKEY$▚▚▘▚▗▖▚▚▘f▗LN ▚▚▘&▗vBIN ▚▘[G][K]BIN ▚▘▙BIN ▚TAN ▘ AND ▚{SGN ▚BIN ▘LN ▗▚[U]▘▗▗▜▗[U]▘▗▗j▗[E]▘▗▗▗BIN ▚[E]▘▗▜▗[F]{^▘▗▜▗[L]z▚▘▗▚▗▚▘▗▚BIN  IF ▗▚▘▗▚[U]▗▚▘▗▚[M][K]▗▚▘▗▚▗▚▘▗▚▗Z▗▚▚▘▗▚▗[G]▗▚▚▘▗▚▗[J]▗▚▚▘▗▚▗▛▗▚▚▘▗▚▗y▗▚▚▘▗▚LN ▗▗▚▚▘▗▚ IF  NEW ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗e▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▘▗▚▗INT ▗▞D▘▗▚▗▗INT BIN ▘▗▚▗[K]▗vBIN ▘▗▚▗▜FTAN ▘▗▚▗z▛▚[M]▘▗▚▗[I]▚▖▘▗▚▗[K][E]▚▘▘▗▚▗[M]▚▚▘▗▚▗INT  POKE ▚▘▗▚▗D▚▘▗▚▗▗▚▘▗▚u IF ▚▘▗▚▛$▚▘▗v[K] DATA ▚▘▜~TAN SCREEN$  DATA ▚▘ RESTORE INT  DRAW ▚▚▘ OR INT ▗▚▚▘D▗▚▘▚▗[K]▗▚▘▚▚▗ SAVE ▚▘▚▚▗{▚[E]▘▚▗▛▘▚[M][I]▚▘▗▖▙▚INKEY$▘▗ AND ▘PEEK F▚▘▗INKEY$▝▞{▚▚▘▗[G]▝[J]|▚▘▗▙▟▗▚▘▗[F] IF ▗▚▘▗▜e▗▚▘▗▚▗▗▚▘▗▚▗▗▚▘▗▚▗:▗▚▘▗▚▗ LINE ▗▚▘▗▚▗INT ▗▚▘▗▚▗[E]▗▚▘▗▚▗x▗▚▘▗▚LN ▗▗▚▘▗▚ IF  NEW ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚[E]▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚ DRAW [K]▗▚▗▘▗▚x▗▚▗▘▗▜▘INT ▗▚▗▘▗▗▜▗▚▗▘▗▘▜[K]▗▚▗▘▗▙▜▗▚▗▘▗[G]▘ IF ▗▚▗▘▗[G]▘z▗▚▗▘▗INKEY$▞f▗▚▗▘▗ AND ▗▚▗▘▗ AND [E]EXP D▚▗▘▗[U]INT t▚▗▘▗▗SCREEN$ IN A|▘▗TAN ▛▛y{▘▗ AND >={>=PEEK B▗PINOT ▚▗b▗[I][K]F▗[S]▗▚▗ NEW ▗[S]▗▚INT ▚▗CHR$ ▗▚[E]▚▗▗▚[U][K]▚▗CHR$ ▗▚[U]▛ DATA ▚▗[S]▗▚BIN  DATA [U]▚▗[S]▗▚BIN SCREEN$ [E]▚▗[S]▗▚INT [E]▚▗[S]▗▚SCREEN$ [E]▚▗[S]▗▚SCREEN$ ▚▗CHR$ ▗▚▘▚▗▗▚[E]▜▚▘▗▚▟▘▗▚BIN z{F▘▗▚BIN  CLS F▘▗▚[U][K]▗▚▘▗▚[E]▗▚▚▘▗▚INT ▗▚▚▘▗▚▘▗▚▘▗▚▗▚▘▗▚▗ REM ▗▚▗▗▚▗ STOP ▗▚▗▗▚▗▙▗▚▗▗▚▗[J]▗▚▗▗▚▗▚▗▗▚▗INT BIN ▚▗▗▚▗BIN ▚▗▗▚▗[K]BIN ▚▗▗▚▗▚▗▗▚▗y▚▘▗▚LN ▗▚▘▗▚ IF  NEW ▗▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗|▘▗▚▗yx▘▗▚▗[K]▛z▘▗▚▗▛b▚▘▗▚▗yz▚▘▗▚▗▛[I]▚▘▗▚[I]SCREEN$ d▚▘▗▚ACS  STOP  DRAW ▚▚▘▗▚ RESTORE ~▚▚▘▗▚E▗▜[C]BIN ▚▘▗TAN [K][U]▚▘▗ DATA  PAPER [U]▚▘▗D LINE BIN ▚▘▗▙▗ PAPER BIN ▚▘▗▙▗ LINE BIN ▚▘▗▙▗z[U]▚▚▘▛v▗SCREEN$ [U]▚▘[L]f▗[U]▚[M]▘TAN ▚▗[K][I]▚TAN ▘TAN ▚▗c▜F▘TAN ▚▗▚▗ AND ▘[U]▚▗[M]▗ AND ▘[E]▚|▞▗▘▚SQR {~▘▚{▚▘▚▚[K]▗▚▚▘▚▗▚▚▘▗ IF ▗▚▚▘▗<=▗▚▚▘▗LN ▗▗▚▘▗▚▗ LINE ▗▚▘▗▚▗[K]▗▚▘▗▚▗[C]▗▚▘▗▚▗[N]▗▚▘▗▚▗▛▗▚▘▗▚▗y▗▚▘▗▚LN ▗▗▚▚▘▗▚ IF  NEW ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗|▘▗▚▗Zyx▘▗▚*▛z▘▗▚▜[b▚▘▗▚▘POINT z▚▘▗▚▖ FLASH [I]▚▘▗▚SGN  LINE d▚▘▗▚ DATA : DRAW ▚▚▘▗▚D▚▚▘▗▜▚▘▗[E]BIN ▚▘▗TAN :[U]▚▘▗ DATA SCREEN$ [U]▚▘▗BIN BIN ▚▘▗▙▗[K]BIN ▚▘▗▙▗SIN BIN ▚▘▗▘▗▘[U]▚▚▘▗▗▗[C][U]▚▘▗▗▗▘[U]▚[M]▘▗▗▗k[I]▚[U]▘▗▘▗[K]▜F[E]▘▗PEEK ▗▗F[E]▘▗ RETURN [M][K][G]▘▗FSIN ▘INKEY$▘▙[N]F▘[J]z▚▘▞d▚▘ IF ▗▚▚▘▗▗▚▚▘▗[A][K]▗▚▚▘▗ AND INKEY$▗▚▚▘▗EXP EINT ▗▚▘▗▚▗▗▚▘▗▚▗ PAPER ▗▚▘▗▚▗SCREEN$ ▗▚▘▗▚▗j▗▚▘▗▚LN ▘▗▚▚▘▗▚ IF  STOP ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗u▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚SQR z▗▚▗▘▗▚ CLS b▗▚▗▘▗▚D▗▗▚▗▘▗▚DABS ▗|▘▗▚▛yx▘▗▚D[L] THEN z▘▗▚D▛ STOP ▚▘▗▚ DATA z[K]▚▘▗▚TAN [I]▚▘▗▚[E][K]d▚▘▗▚[E]▛ DRAW ▚▚▘▗▚TAN ▗▚▚▘▗▚t[K]▚▘▗▜D[C]BIN ▚▘▗▗▘[U]▚▘▗▗ PAUSE [U]▚▘▗[K]BIN ▚▘▗BIN ▚▘▗[K]BIN ▚▘▗▗[K][U]▚▚▘▗▜▗SCREEN$ [U]▚▘▗▜▗ PAPER [U]▚[M]▘▗▜▗ LINE [I]▚TAN ▘▗▚;▜F▘▗▚SCREEN$ F▘▗▚BIN INT ▚▘▗▚BIN [G]INT ▚▚▘▗▚[U]RND|▚▚▘▗▚[E]▞D▚▚▘▗▚[E][K]▗▚▚▘▗▚[E]▗▚▚▘▗▚ IF ▗▚▘▗▚▗▚▘▗▚[K]▗▚▘▗▚▗▚▘▗▚▜INT ▗▚▘▗▚▗J▗▚▘▗▚▗[U]▗▚▘▗▚▗▖▗▚▘▗▚▗x▗▚▚▘▗▚LN ▗▗▚▚▘▗▚ IF  NEW ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗LN ▗INT ▗[J]D▘ySQR yd▘▜GD[K] CLS f[U]▘▘▚DTAN ▚[U]▘▖▚Det▚BIN ▘[E]▚BIN ▘d▚[U]▘[U]▚BIN [N]▗▚[U]▘[U]▚t▞D▚[E]▘[U]▜PEEK  DATA ▚[E]▘[U]▚ CONTINUE ▙▗▚▘[U]▚▘[I]▗▚▘[E]▚▘▛▗▚▘▛F▜ CLS ▗▚▘▗ AND ▟▗▚▘▗▗X▗▚▘▗>=▗▚▘▗▚[L]▗▚[E]▘▗▗[L]▗▚[U]▘▗ AND ▗▛▗▚D▘▗INKEY$▗[K]d▜D▘▗[G]▗[L][K]▚[U]▘▗▞ REM ▚▚[U]▘▗▚INKEY$[L]f[E]▘▗▚[F]z▚[E]▘▗▚EXP d▚[E]▘▗▚BIN ▗▚▘▗▚BIN [K]▗▚▘▗▚[U]▗▚▘▗▚[E] IF ▗▚▘▗▚▖▗▚▘▗▚▜▗▚▘▗▚▗ IF ▗▚▚▘▗▚▗ASN ▗▚▚▘▗▚▗▛▗▚▚▘▗▚▗[L]▗▚▚▘▗▚▗▛▗▚▚▘▗▚▗y▗▚▚▘▗▚LN ▗▗▚▚▘▗▚ IF  NEW ▗▚▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚[E]▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▗▚▗▗▚▗▘▗▚ DATA [K]▗▚▗▘▗▚t▗▚▗▘▗▜INT ▗▚▗▘▗▜[E]▗▚▗▘▗G[E][K]▗▚▗▘w[H]J▗▚▗▘EXP [L]▗▚▗▘▗▗SCREEN$ ▗▚▗▘▗ NEW ▗Z▗▚▗▘▗~▗▗▘F▗:▗▞▘▘▚▗▗▘▗z▗Z▗▘ BRIGHT ▗▙▗J▗▗TAN  STOP ▗[G]▗▗[P]▗[C]▗[H]DINT ▗SQR ▗[E][U]SCREEN$ ▗LEN ▚▗[E][C]▗[N]▗▗▚[E][S]▗ PLOT  ▗▗▚[E]▚▗f▗▗▚[G]▗▗▚▚▗▗▚ DRAW ▗▗▚▗▗▚[M]▗▗▚▞▗▗▚▗▚SQR  AND ▗▚▗▚▚DINKEY$▗▗▚▚[K] DATA INKEY$▗▗▚SGN INKEY$▗[C]▗▚{[K] AND ▗[S]▗▚▗▗B▗▚▗ PAPER v▛▘▗▚▗SCREEN$ ▗▝▘▗▚▗SCREEN$ ▗▚ AND ▘▗▚▗▘▗▚▚▘▗▚▗[O]▗▚▘▗▚▗▙▗▚▘▗▚▗ SAVE ▗▚▗▗▚▗▛▗▚▗▗▚▗[L]▗▚▗▗▚▗▚▗▗▚▗INT ▚▗▗▚▗▚▗▗▚▗[K]▚▗▗▚▗▛▚▗▗▚▗y▗▚▘▗▚LN ▗▗▚▘▗▚ IF INKEY$▗▚▘▗▚Gz▗▚▚▘▗z▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚[E]▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]yD▘▗▚▗▛yt▘▗▚▗z▚LN ▘▗▚▗▚▘▗▚▗[K]▚▚▚▘▗▚▗ IF ▚▘▗▜tINT z▚▘▗▝xBIN ▚▘▗▖▚[K]SGN ▚▚▘▗[O]▟|▚▚▘▗ACS u}6▚▘▗ NEW ▚▞INKEY$▚▘▗ NEW ▚`▚▘▗ NEW ▗ LPRINT  LPRINT ▚▘▗F PAPER ▚▘▗F▚▘▗F[K]▗▚▘▗F▗▚[E]▘▗F{▚▖▘▗F IF ▝▚▚▘▗▗ VERIFY ▚▚▘▗ AND ▚▗ AND 8▗▚▗CHR$ ▗INKEY$▖▗▚▗CHR$ ▗[G]▚[L]▗▚▗CHR$ ▗▖▚▗[S]▗t IF ▚▗[S]▗▚▗BIN ▚▗[S]▗▚▗[K][U]▚▗[S]▗▚▗[U]▚▗[S]▗▚▗INT [U]▚▗CHR$ ▗▚▗[U]▚▗CHR$ ▗▚▗[K] DATA ▚▗CHR$ ▗▚▗D▚▗▗▚▗y▚▗▗▚LN ▗▚▗▗▚ IF  NEW ▗▚▘▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[E]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗E▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗[J]x▘▗▚▗▗EXP z▘▗▚▗[K]▗ NEW ▚▘▗▚▗▗F▚▘▗▚▗z▗F▘▗▚▗▘▗▚▗[K]▚▚▘▗▚▗▚▘▗▚▗INT  LLIST ▘▗▚▗CHR$ ▘▗▚▗[K]CHR$ ▗▗▚▗▜▚▗▗▚▗ IF ▛v▗▗▚▗[I]▚▘▗▚▗[K]TAN ▚▚▘▗▚▗ DATA ▚▚▘▗▚▗INT D▚▘▗▚▗D▚▘▗▚▗[K]D▚[Q]▘▗▚▗▛▚[G]▘▗▚▗z▙[F]▘▗▚▗▛▙[E]▗▚▗[L]ACS [E]▗▚▗D▜[U]CHR$ ▗▚▗INT $▗$CHR$ ▗▚▗ POKE BIN CHR$ ▗▚▗[K][M]AT [S]▗▚▗ MERGE ▗[S]▗▚▗ IF ▗[C]▗▚▗v▗[C]▗▚▗[K]▚▗▗▚▗[E]▚▗▗▚▗INT [E]▚▗▚▗▚▗TAN ▚▗▚▗▚▗[K] DATA ▚▗▚▗▚▗▛D▚[E]▚▗▚▗y▚▗▚LN ▗▗▚[C]▗▚ IF  NEW ▗▚▜b▗▚Gz▗▚▚▘▗:▗▚▚▘▗▞▗▗▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▝EB▗▚▗INT ▗▞{"▗▚▗▗[O]INT [S]▗▚▗[K]▗[O]▗[S]▗▚▗▗▗[S]▗▚▗ IF ▗▗[S]▗▚▗▗[K]▗CHR$ ▗▚▗[K]▗~▗▗▚▗f{▘▗▚▗INT ▗yt▘▗▚▗▗▖▘▗▚▗[K]▗[I]▚▘▗▚▗▗PEEK ▘▗▚▗z▗ NEW ▗▗▚▗▗^TAN CHR$ ▗▚▗[K]▗b TO CHR$ ▗▚▗▗BCHR$ ▗▚▗INT ▗D STOP ▗▚▗▗/0[C]▗▚▗[K]▗:p▗▚▗▗LN ▗▚▗ IF ▜fH[C]▗▚▗▛▚TAN [S]▗▚▗[K][I]▚▖CHR$ ▗▚▗TAN ▚▘▗▚▗INT TAN ▚▚▗▚▗ DATA ▚▜▘▗▚▗[K] DATA ▚CHR$ ▗▚▗D▚"▗▚▗{D▜▗"▗▚▗D▚"▗▚▗[K]D▚"▗▚▗D▚"▗▚▗INT D▜▙▗▚▗ DATA ▖[B]▗▚▗[K] DATA ▚▗▚▗[U]▚ OPEN #▗▚▗ IF TAN ▚.▚▗▚▗AT  PAPER ▚▗▚▗[K][U]▗<▚▗▚▗[U][J]d▗▚▗INT  DATA ▚▗▗▚▗ DATA ▚▗▗▚▗[K]D▚▗▗▚▗▛▚▗▗▚▗y▗▚▘▗▚LN ▗▗▚▗▚ IF  NEW ▗▚C▗▚Gz▗▚▚`▗:▗▚▚PEEK ▗▞▗▗▚▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘▗▚▗▗EXP {▘▗▚▗[K]▗ RANDOMIZE z▗▚▗▗ NEW ▗▗▚▗}▗ACS ▗▗▚▗▗[O]▗▗▚▗[K]▗v▘▗▚▗x▚▘▗▚▗INT ▗yx▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗f▗▘▗▚▗ IF [M]▚▗▘▗▚▗ DATA ▚▗▘▗▚▗[K]▚▗▘▗▚▗▛▗▚▗▘▗▚▗LN ▗▚▗▘▗▚▗▖▗▚▗▘▗▚▗[O]▗ PLOT  ▗▘▗▚▗▙▗▙▘▗▚▗~▗▘▗▚▗▙▗ BRIGHT ▘▗▚▗[O]▚AT ▘▗▚▗▙▚[K] BRIGHT ▘▗▚▗INT ~,▘▗▚▗▖▗w BRIGHT ▘▗▚▗[I]▗▗4▘▗▚▗▛ POKE ▘▗▚▗ IF F,l▘▗▚▗ LET  OPEN #L▘▗▚▗[K]PEEK -▘▗▚▗[L]y▘▗▚▗INT ▛x▚▘▗▚▗[F]~▘▗▚▗[K]▚▗▗▚▗▚▗CHR$ ▗▚▗{[M]▚▗[S]▗▚▗[M]▚▗[S]▗▚▗[K]TAN ▚▗[C]▗▚▗TAN ▚▗[C]▗▚▗INT TAN ▚▗▚▗ DATA ▚BIN ▗▚▗[K] DATA ▚BIN ▗▚▗ DATA ▚[U]▗▚▗ IF  DATA ▚[E][C]▗▚▗ DATA ▚[E][C]▗▚▗[K]D▚[S]▗▚▗D▚▘B▗▚▗INT D▚▗▗▚▗D▚▗▗▚▗[K]D▚▗▗▚▗D▚▗▗▚▗y▚▗▗▚LN ▗▚▘▗▚ IF  NEW ▗▚▘▗▚Gz▗▚▘▗:▗▚▚▘▗▞▗▗▚▚▘▗[K]▗[K]▗▚▘▗SIN ▗▞▗▚▘▗ INPUT ▗ RUN ▗▚▘▗ POKE ▗SQR ▗▚▘▗P▗ CIRCLE ▗▚[E]▘▗`[U]>=▗▚[U]▘▗l DATA ;▗▚[U]▘aaaaaaaaaa▗▚aaa INPUT aa▗▚aaa#a%a;aa#a%a+aaa▗INT aaaaaaaaaaaaaaaaia▗▘a#©/ RND$▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗{y{}{y{{y{}▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘{y{u{y{}{y{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘ ERASE  FORMAT  ERASE  BRIGHT  ERASE  FORMAT  POKE  PAUSE  POKE  PLOT   POKE  REM  ERASE  FORMAT  ERASE  CLOSE # ERASE  FORMAT |f▗[N]{▚[L]▗y[L]Bf▜r~b[L]f▗df CLS ▘▗EXP Cix▚▗sidINT ▗▜{}▚▗SQR z▗▘{y{e{y{}{y{u{y{}{y{{y{}{y{u{y{}{y{e▗▚SQR ~▗▚▗▛{y▘▗▝sUd▚▗ABS Cex▗xb CLS ▚bf[L]b[L]Fj▜~{▘f▗|▚b▗[J] MERGE  FLASH  MERGE  BEEP  MERGE  OPEN # MERGE  BEEP  MERGE  THEN  MERGE  BEEP  MERGE  OPEN # MERGE  BEEP  MERGE  FLASH ▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗u▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗ TO  DEF FN SGN INT  CLOSE # VERIFY  TO  ERASE SGN PEEK  CLOSE # ERASE  TO  DEF FN SGN SIN  CLOSE # VERIFY ▚▚>=<> OR PEEK  STEP >=NOT [S]NOT <=<> CAT SCREEN$ FN ▗ OR  TO  FLASH  VERIFY STR$ STR$  CAT STR$ >= FORMAT SCREEN$  DEF FN NOT  MOVE AT SCREEN$ ▚PEEK <=<= VERIFY  OR  OR >=USR  OR [U] TO  MOVE <=NOT <>SCREEN$ TAN ▗▜ STEP  CLOSE # ERASE  STEP  OR  LINE  MERGE [U] ERASE >=<= INVERSE ? VERIFY INKEY$ASN ▘▘ THEN  PAPER  FORMAT  CAT  THEN  TO  BEEP INKEY$ CLOSE # VERIFY  OR  OUT STR$  FORMAT [U]TAN ▗▛ATN SCREEN$ [S]USR NOT CHR$  NEXT  LINE NOT [U]<>STR$  OUT  BEEP SCREEN$ [U]▚▚ACS FN [U]<> STEP >=<= DEF FN  OR  CAT  VERIFY SCREEN$ ASN INKEY$[U][S]▗▜<>SCREEN$ INKEY$ BEEP  THEN  LINE  OR >= THEN  STEP  CLOSE #[U]VAL [U]INKEY$[U][K]▘VAL AT [U] STEP STR$ <= CLOSE # MERGE  FORMAT  STEP  LINE INKEY$[U][K][U]INKEY$▗INKEY$ BEEP  OUT  VERIFY NOT SQR [S][U]VAL$  INVERSE ASN  LINE CODE [U]▘[[G] CLS ▘▘ MOVE  ERASE SCREEN$ FN SCREEN$ USCREEN$ FN SCREEN$ ▘▘USR  OR  OPEN #>=SCREEN$ AT SCREEN$ FN SCREEN$ [K]▘>=<=CHR$  ERASE SCREEN$ [U]SCREEN$ FN SCREEN$ ▘▘ VERIFY  NEXT NOT  DEF FN  FORMAT AT SCREEN$ FN SCREEN$ ▘CHR$  THEN  VERIFY NOT SCREEN$ TAN SCREEN$ FN SCREEN$ ▘▘ BEEP  CAT >=NOT <= VERIFY SCREEN$ FN SCREEN$  IF ▘ OR USR  THEN  CLOSE # FORMAT [U]SCREEN$ FN SCREEN$ ▘▘[U]INT USR NOT CHR$  THEN  LINE NOT [U]SCREEN$  CAT NOT  INVERSE  MOVE [U]INKEY$▗SQR INKEY$ CLOSE # DEF FN  OR  OUT STR$  CIRCLE  BEEP INKEY$AT COS ATTR TAN TAB RND[U]▚▚ THEN  VERIFY  FORMAT NOT  THEN >= BEEP [S] DEF FN <> MOVE ? MOVE  CLOSE #[U]COS ▗▜ OR  CLOSE # ERASE  STEP  STEP  LINE  MERGE [U] FORMAT  THEN  OPEN #STR$  BEEP  VERIFY INKEY$ACS ▘ASN AT [U]CHR$ STR$  DRAW  STEP >= STEP  FORMAT [U] OR >= THEN  ERASE FN ▗TAN SCREEN$ INT  BEEP  CAT  LINE STR$ >=<= STEP  CIRCLE [U]ATN [U][S][U]▚ RETURN ATN FN [U] MOVE  STEP >=<= AND  OR  CAT  VERIFY [S]ACS INKEY$[U]INT ▗▜ACS SCREEN$ INKEY$ CAT  CAT <> VERIFY  BEEP  VERIFY  THEN >=[U][K][U]INKEY$[U]▘▚▘[U]SCREEN$  BEEP  OPEN # VERIFY ABS [U]VAL$  THEN ASN  LINE CODE [U][S]▗Y▚ PRINT ▜ LINE  OR  OPEN # FORMAT WSCREEN$ FN SCREEN$ AT ▗▜>= OR  MERGE SCREEN$ AT SCREEN$ FN SCREEN$ TAN ▗▜ OR  OR  OPEN #<=CHR$ STR$ FN SCREEN$ AT ▗▜ RETURN  VERIFY <> STEP  VERIFY STR$ FN SCREEN$ [U]▗▜ VERIFY  STEP  CLOSE #SCREEN$ TAN SCREEN$ FN SCREEN$ AT ▗▜ INK STR$  LINE STR$ STR$  FORMAT FN SCREEN$  CLOSE #▗▜NOT  VERIFY  CLOSE #STR$  OVER SCREEN$ FN SCREEN$ AT ▗▜ OVER STR$ USR  STEP  TO  STEP  CLOSE #[U]SCREEN$ <= LINE  OR  CLOSE # STEP NOT  VERIFY INT ▘[U]>= THEN  OPEN #STR$  OUT  VERIFY  MERGE [U]SCREEN$ ASN POINT ACS COS SQR INKEY$▗<> CLOSE #<> STEP <> LINE <= BEEP INKEY$ DEF FN /NOT FN [U][R]ASN ▚▙ THEN  VERIFY <= THEN  THEN >=STR$ <>[U] TO  MOVE  OR SCREEN$ INKEY$PILN ▗▜COS SCREEN$ INKEY$USR  COPY CHR$  CAT  LINE <=[U] ERASE STR$ <>>=<= BEEP ▘▘ACS TAN [U] MERGE  STEP  TO <= LINE  OR NOT  VERIFY INKEY$ASN [S][U]INKEY$▗ CLS ASN SCREEN$ [S] BEEP  CAT  LINE <>>=<= STEP  FORMAT [U]TAN [U]INT [U]▚▚VAL FN [U]STR$ STR$  THEN  CLOSE # MOVE  FORMAT <> LINE [K][U]INKEY$[U][S]▗▗ PRINT  BEEP NOT NOT  BEEP  VERIFY <>SQR INT AT  MERGE ATTR  TO TAB ▚y▖ CLS ▙▚ OR  CLOSE # VERIFY 2 AND <=SCREEN$ AT SCREEN$ ▚▙ OR BIN  OR >= THEN FN SCREEN$ TAN SCREEN$ ▚▚ STEP  BRIGHT  MERGE  OUT  STEP NOT  VERIFY  AND SCREEN$ ▚PEEK USR NOT  VERIFY <=<= DEF FN  OR [U]SCREEN$ ▚▚USR  CAT  BEEP  LINE  OR  CLOSE # THEN AT SCREEN$ ▚▙ BEEP NOT >=<=<= OR SCREEN$  CLOSE #SCREEN$ ▚▚ OR BIN  THEN  CIRCLE  FORMAT <= VERIFY AT SCREEN$ ▚[O][U]CHR$ STR$ BIN  STEP >= STEP  CIRCLE [U] ERASE STR$ STR$ >=<= BEEP [K]▗▜>= MOVE STR$  OR  DEF FN  THEN  CLOSE #STR$  MOVE [U]VAL$ ASN ASN ACS CODE SQR ▘[F]/[J]#}.▝+TAB /LEN  OPEN # OR /▜▞[P][F]PIVAL$ [I][A]▚▗▚▗[K]▗▚▞▘POINT ▚▗▗ LOAD ▟▙[B]POINT ▖▙[C] LET ▗▚▗POINT ▚POINT ▘▗▚▗[K]▗▚▗<=[F] ERASE ▗▗▚▗▘▗▚POINT  IF POINT  LINE ▟[E] BEEP  READ RND▜[J][L]▘[J] MERGE  LPRINT ▛▝[I][I] PAPER ▚POINT ▗▚ CLOSE #[D][A][C]LEN [O][H][I] OVER ▚▗▗▗▚POINT ▘▗▚POINT [K]▗▚ REM [J][I] STOP ▘ RUN [O][O]▜[I]▗▚POINT ▘▗▚POINT  DIM FN [J]▟▞[P]▖▛▚ FORMAT ▚[F]▜[N]>=[P] OUT POINT ▘POINT ▚ LPRINT ATTR ▝[I][I] SAVE  LPRINT ▘▟▙[B][B]▖▙[C] DIM POINT ▚POINT  CAT  TO ▟ CONTINUE ▛▖▟ RESTORE [E]▚[C]▜[N] CONTINUE POINT POINT ▚▗▘▗▚▗ RETURN  BORDER  LPRINT [F][D][A] RUN ▗▚▗▘POINT ATTR  CONTINUE COS [C] PRINT  LIST [P]▝[M]▙[E][A] RUN  LPRINT [E][C] CIRCLE ▗CODE  LPRINT ▜ LLIST  NEW ▞▛▞▝ REM ▘| BORDER ▗[A]▝[L]▝ REM PI▗ATTR ▗▘ NEW [G][H][C] CONTINUE  RUN [P][L][L]▙ READ ▘▗ATTR ▗INT POINT ▚▗▘ POKE  SAVE  FOR [B][N][N][M]▛▞ RUN ▚▗▘POINT ATTR ▗▗ PRINT  RANDOMIZE  INPUT ▜[C][F] CLS [F] PAUSE ▗▘▗▚▗▗ATTR POINT ▘▗▚ PAUSE  STOP  CONTINUE ▝▟▘▝▙[H][M] LPRINT ▚▗▘▗▚POINT [H]▗▚▗ LLIST  DIM  FOR ▚▜▗[F] PLOT  ▗▚▗[K]▗▚▗CODE POINT ▚▗ LPRINT  GO TO  DIM ▞▟▞o[H][O] CLEAR ▘▗▚▗POINT ATTR ▗▘▗ REM  NEW  RUN [H][C]▞▜▗▟▖[B] PLOT  ▘▗ATTR POINT INT ▗▚ RESTORE  GO SUB  DATA ▞▙▚▟▞ BORDER ▗▚▗[K]▗▚POINT CODE ▗▚▗ RANDOMIZE  RANDOMIZE  DRAW ▘[F][H][B]▞ IF ▝ GO TO ▗▚▗PI▗▚▗▘POINT ▚ RUN [J][B][D]▗[O] DIM  DRAW [H][B][I]▘▜ REM INT POINT ATTR ▗▘▗▚▗▗▚ NEW [J] CLEAR ▚▗[K]▗▚▗▘▗ATTR POINT ▗▚ REM ▞[G] LET  STOP n[J]▜[O][P]▖[B] PLOT  ▗▚POINT ▘▗ATTR ▗[K]▗▚▗▘▗ FOR ▖[L] POKE ▚▗▘▗▚▗INT ▗ATTR POINT ▘▗▚ POKE ▖[J]▙[B][B]▖[B]▜▘▜ REM ▘▗▚POINT ▗ATTR ▗▘▗ STOP ▝ PRINT ▟ INPUT ▗ STOP ▞▘[P] DRAW ▗▘▗ATTR ▗[K]POINT ▚▗▘▗▚▗ CONTINUE ▜[D]▗[K]▟ READ ▗INT ▗▚▗▘POINT ATTR ▗▗ PLOT  ▚[P][D][H][G]▖[D][J]▗ CONTINUE ▗▗ATTR ▗▘POINT ▚▗y▗▚▗ SAVE ▜[L][C][H] FOR ▚▗▘▗▚▗[K]POINT ▚▗CODE ▗▚▗▗▚ RESTORE [B][F]▗▝SQR  LLIST ▚▗▘▗▚▗PIPOINT ▚▗▘ POKE ▗[J][C][B][F]▖▙[B][L]▘▛ REM ▚▗▘POINT ▚▗ BEEP ▗▚▗▘ LPRINT [D][J] LLIST  PRINT [K]▚[J][K] GO TO [K]▗▚▗CODE ▗▚POINT ▗▚▗▘ READ [D][H]ATTR [M]▜▙[C] RUN ▚▗▗▚POINT ▘▗ATTR ▗[K]▗ GO SUB [B][L]▝ REM  GO TO [H][J][J] POKE ▗z▗ATTR POINT ▘▗▚▗▗▚ RESTORE ▟▙ STOP ▗[K]▗▚▗▘▗▚POINT PI▗▚▗ CONTINUE ▝ LLIST INT  DIM FN <= READ ▞▖[P] NEXT ▗▚▗CODE ▗▚POINT  CLS ▝▛[J][P]▘▜▛▜ CONTINUE  LLIST [B][B][F][O] LIST [E] PRINT POINT ▘▗ATTR ▗▗▚▗▘▗ POKE [J][H]▝ REM ▘▗▚▗▗ATTR ▗▘POINT ▚▗INT ▗ FOR [M]▗[O] BORDER  RESTORE ▞▙ NEW ▗▚▗[K]POINT ATTR ▗▘▗▚ RUN ▞[B]▙▞ REM  STOP e DRAW ▚▗▘▗ATTR ▗POINT ▚▗▘ INPUT ▙ COPY ▗ FOR SCREEN$ STR$  RESTORE ▛[B] CLEAR ▚▗▘POINT ▚▗INT ▗ATTR ▗▘ NEXT [I][B] LET ▗ STOP [L] GO SUB  PRINT  LIST ▘▗ATTR POINT ▗▚▗ RUN ▘[A] LLIST  IF  LPRINT [A][A][A] PRINT ▗▗▚POINT ▘▗ATTR ▗ PLOT  ▟[A] RUN  RESTORE ▘▟▛[M] LET ▗ CONTINUE  OUT ▗ATTR POINT ▘ RUN [A] LLIST  INPUT [C][L][A][E]▟[O] INPUT  POKE [H][G] LIST ▚POINT ▗ATTR ▗▘ CONTINUE [I]▗ LLIST ▘▟▛[H][D][A] RUN ▘▗ATTR POINT [K]▗ CONTINUE  GO SUB  LET [G] REM  STOP [C][P][G]<>▗▚POINT ▘▗▚▗▗▚POINT ▘ DIM [B]▛[D][N] CONTINUE ▚ REM ▝▗▜ LPRINT ▚POINT  IF POINT [F][A] BORDER ▚[H][F]▗[D] PLOT   STOP ▜▗ CLEAR ▘▗▚▗▗▚▗▘ LPRINT ▛[O][S] LOAD ▚▗▘▗▚▗POINT ATTR ▗▘▗▚[A]▙ NEXT [A]▞▘▛[H] RUN ▚▗▘▗ATTR POINT e[B][D] RUN [F][B][D] FOR ▚ GO SUB  BORDER  INPUT ▞ PLOT  ▚▗▘▗▚▗ STOP ▞▘▝[G][M]▝LEN [C] PRINT ▗▘▗▚POINT PI▗▚[A]▜[G]▗ CLS ▞▝▙▝▝ LOAD ▗▚▗▘▗▚▗ IF  NEW [B]▘[F][B][P]▚[C] PRINT ▗▘▗▚▗ATN ABS [C] POKE [N][M][E][D] SAVE  RUN ▝▘[I][D] CLEAR  CAT [P]▝[J] PAPER ATTR ▗[M]▛[P] DIM [K]▘[M]▙[I]▞ REM  LIST [H][F][D][C] RANDOMIZE ▗ATTR POINT ▘[F][H] CONTINUE s▚ LLIST  GO SUB  REM  PLOT  [I]▜[G]▝[F][F] PLOT  ▚POINT ATN ▗▚▗▘[G][E] BORDER [L]▜[D]▞▞[A] RUN INT ▗▚▗CODE SGN [E] CLEAR [O][H][E][D] PRINT  FOR [D] STOP  DATA ▜▟▙▘▖ TO ATTR ▗[F][P] LOAD  PLOT   GO SUB ▖ FOR ▛ STOP  LPRINT [A]▟[I][L] LET ▗ATTR POINT ▖▙▟[H] INPUT  NEW ▖ FOR  STOP  LLIST ▘[J]▙[H]▚LEN  DIM POINT CODE ▗[H]▜[A] RESTORE ▖[E] DATA  FOR ▛▗▚[M] PRINT ▗PIPOINT  PAUSE [I] LLIST  DATA x LPRINT  READ ▖▞[H][J] GO TO ▗ DATA ▜▞[F]▟▝▞ RESTORE  BORDER ▘[B]▘ DEF FN POINT ATTR ▗▘ RESTORE ▞▙ INPUT ▗▚ FOR [L][H][B][F][G][D] LIST ▘▗▚ RESTORE  REM  BORDER [J] PLOT   RESTORE ▖ CLS ▙▛[J][P]▘▜[N] PLOT  ATTR ▗▘▗▚POINT [K]▗ PRINT ▜[H]▘▜ CONTINUE  PAUSE [I]▛▛[M]<>▗▚POINT CODE ▗▚ STOP [O][J]▗ DIM  SAVE ▜[L][C]▜ FOR  PAUSE [P] RUN [O]▚▗PIPOINT  LET [L]▚ FOR  BORDER v[O][P] NEW  NEW ▝ LLIST  FOR ▛ LPRINT ▘▗ LET [C]▖ RUN  CONTINUE [J] LIST  LPRINT ▟[H] PLOT   DATA ▙ READ INT ▗▚▗ INPUT ▝▗ LOAD  LIST [K]▞ BORDER  PLOT  [B][C][N] LIST ▚▗▘POINT ATTR ▗▗ BORDER  RESTORE  INPUT ▜[K] RUN ▛[G] LLIST  LOAD  READ ▗▗▚▗▘ PLOT  [B]▘[E][B][C]▜▛ CONTINUE ▗ IF [L][L] PLOT  ▘▗▚▗INT  BORDER ▚[P]▚[L]▚▙[O][K] FOR  LET [O]▝ REM [K]▗ DATA [D]▗[E]▗[H] SAVE  DIM [G] LET  RESTORE ▛▗t RESTORE  COPY  CLEAR  LET [C] READ ▗▗ RESTORE [F][F]▗▟ REM  PLOT  ▜ DIM  PRINT ▚[E] READ ▗▗▚ REM  FOR  LIST [H]LEN  REM  DIM  FOR  PAUSE ▚[B]▚[I][P][M][B]▟ REM ATTR ▗ MOVE [A][L]▚ LOAD  INPUT ▙ LOAD  DIM ▖ BORDER  READ ▞▖[P] LIST [N] LET ASN POINT ▚▗▗▛ RESTORE ▝[O]▝[C][L][C] SAVE ▞▘▗▚▗POINT ATTR  RESTORE  READ  LIST [N]LEN [I] PRINT  DIM ▚[O] PRINT  RESTORE ▚▖[O] RUN ▚ CLEAR  READ  BORDER ▖▞▝[I] PRINT ▗ LOAD ▟f RUN ▚▗▘▗▚▗ RESTORE  BORDER  LET [J] DIM ▗[K]▗▚▗▘▗ATTR ▗PI▗▚ STOP [G][J]▗ DIM  OVER ▝[B][H] BORDER  LIST [N] LET [A]▗▚▗CODE POINT ▚▗[K]▗▚ POKE [H]▝[J] PRINT ▗▘▗▚▗ IF ▗▚▗ INPUT [N][K][O] RANDOMIZE  LPRINT ▜ LLIST  READ ▛[C]▟[C] PRINT ▗▘▗▚▗ LPRINT [D][N]▞ STOP  CONTINUE INT [N][O] RESTORE ▚▗▗▚ RESTORE ▟[O][N][N]▘ DIM  LLIST [P][J][I][A][J][N] FOR ▘▗▚▗▜▝[D] DRAW  READ [J]▘[L][K][O][P][P] DIM ▗[K]▗▚▗ CONTINUE ▝[L][C]▜ GO SUB ▚ READ ▙LEN [L] DRAW ▗▘▗▚ RUN [G]▝ READ ▗ LLIST [G][L][J][D]▘[D][J] RETURN ▗ FOR ▖[B][P]▙ RESTORE [A]▛[A]▘▗ RUN ▘ NEXT [C]▝ FOR POINT  ERASE  CLEAR  REM [B][B][C]▞ CONTINUE  POKE [F][J] POKE  CONTINUE ▝[I] PRINT  PRINT PEEK [E] READ ▗▘ RUN [A] LLIST  BORDER  READ  FOR ▝[O][J]▞[P]▛ NEW ▘▗ATTR ▗PI▗▚ STOP [G][J]▗ DIM [H][J][J] POKE  LIST [B] LET [M]▗CODE POINT  PAUSE [I][H] LLIST  DATA ▜▟[P][D]▝[M][P] REM  RESTORE [N][K] VERIFY ▗▚▗▘▗▚ RUN [B]▞ DATA  LIST  LET  DIM [C] CLEAR [K]▗▚▗▘▗▚▗ NEW ▝[L]▗[K]▟ READ ▗▟[M]▜▙[D] POKE ▗POINT ▚POINT ▘▗ LPRINT [A]▜▚ FOR  LPRINT ▜▛▚[D] NEXT  LIST [N] LET [I]▗▚POINT [H]▗ REM ▞[G][F] RESTORE  SAVE [D][K] CLEAR  POKE [D][N][O][E][J] RETURN ▘▗ PRINT [O][O][J] READ  DIM [H]{[J]▝[N] RETURN ▚▗▗ READ [H][F] RESTORE  LOAD [B][C] PRINT  PLOT  [P]▚▙[D][H] FOR ▚▗▘▗ BORDER ▛VAL  LPRINT  BORDER  FOR  SAVE  RETURN  FOR  DIM  INPUT  INPUT ▚▗▘▗▚▗ATN POINT ▚▗▘ READ ▖[J][F][I] LET  LIST [N] LET  DIM ▟▚▗▘ LLIST [O][F][P][F] RESTORE  RESTORE ▘[F][F][A] BORDER  DIM [J][B]▛ FOR ▚▗▘▗▚▗INT ▗▘▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗ FOR [O][E]▗▖ BORDER ▚▗▘▗▚▗z▗ LPRINT ▟[P] PLOT   DATA ▚ READ  LPRINT ▜ GO SUB  LIST [N][K] INPUT POINT ▚POINT  FOR ▘[D][H]▜▙PEEK [I][P][K] RUN  FOR  COPY [M]POINT ▘POINT ▚▗[K]▗▚▗ CONTINUE ▙▘ LLIST ▚▗▘▗▚▗ IF ▗▚ POKE [N][J] POKE  RUN ▘ PRINT  BORDER ▙[L][C][F]▝[K] RUN ▘POINT ATTR ▗▗▚▗ READ ▛[M][P]SQR  FOR ▘▗▚▗▗▚▗▘ POKE [J][J] CONTINUE  RUN ▘ LET  STOP [F][E][N]▘[H][C] LET ▗▚▗[F][N][J][P]▙▗[G] RANDOMIZE  POKE [H][H][B] RESTORE  REM ▞ CLS ▗▚ DIM ▛[J][J] RESTORE  STOP ▛ CONTINUE  PLOT  ▚PI[D][H]▙▖ LINE POINT ▗▚ POKE [H][A][J] PRINT  CLEAR  COPY  POKE [H][D][F] RESTORE ▗▚▗ PAUSE [L][L] PLOT  ▞▘ NEXT  RESTORE [D][L][A][C] RESTORE  DIM ▗[J][B]▞ REM POINT ATN ▗▚▗▘▗▚▗ LPRINT [L][C]▛ GO TO ▗▚▗INT ▗▚▗▘▗▚▗ IF [L][L] PLOT   LET ▘ RUN  PRINT ▞[G][H][A] RUN ▚▗▗▚▗ NEW  READ ▗[E][N]▙▙▜▛▘▖ LLIST ▚▗CODE POINT ▚▗[K]▗▚ CONTINUE [A]▝[D]▝▞ LLIST ▘▗▚▗INT ▗▚ POKE [N][J] POKE ▗ NEW ▟[F][D]▟[O][D][H]▚[K] RUN ▘▗▚▗▗▚ CONTINUE  RESTORE  FOR ▚ BORDER [H]▛ CONTINUE ▘▗▚▗POINT ATTR ▗▘▗▚▗[K]▗ POKE [H][G][N] REM ▗▗▚▗▘▗▚▗ LINE [L][L] PLOT   LET ▘ RUN  DRAW [L][M][O][P][B][E] RUN [K]▗ATTR ▗▘▗▚POINT ▗▚▗ CLS  CLEAR  POKE [D]©[C][G][D][E]▝ CLEAR [O]▗▚POINT CODE ▗▚▗[K] RUN [M] GO SUB  LPRINT ▝[M] RANDOMIZE ▚▗▗▚▗[H]POINT ▚▗▘ REM ▜ FOR  DIM ▖▜▙[I][E][I][G] PRINT ▗▘POINT ATTR ▗ DATA  LOAD  INPUT [N][E]▗▚ GO TO  RUN  BORDER  RESTORE  BORDER [C]▝[F] LOAD ▗ATTR POINT ▘▗▚▗[K] INPUT [J][E] BORDER ▗▚▗▘▗▚POINT INT ▗▚▗▘▗▚G[B]3ETAN :G PLOT  2[C]PEEK [U] NEXT |▗NB: FLASH H@ DIM  OPEN #KTAN :[O][F]ACS USR 3[Q]8O0I2K4INT ▜ACS [R]3TAN q:MFN SCREEN$ ▗SCREEN$ Q VERIFY  INK ATTR [E]▗k4SSCREEN$ SIN [L]POINT ) NEXT AT  LET SCREEN$  NEXT FN [B] PRINT ACS  CAT @ LPRINT [H]<>[O][B]NOT FN ▚ NEXT FN ▖ NEXT SCREEN$ [K] PRINT SCREEN$  POKE INKEY$MFN ▗INKEY$POINT VAL$ ▘?AT ▟TAN COS MsPEEK g<TAN AT 0uTAN S4@ PRINT JS RESTORE [F]▗;g$m[O] PRINT  OPEN #ATTR  PAPER  CLOSE #SCREEN$ ▘ NEXT AT [B] LET SCREEN$ [M]SIN ▜GSIN =SGN S,3NI GO TO <[Q];I FOR 1PEEK [Q] NEXT x▗rIc3O>I<LN ▗VAL  RESTORE B3SIN XPIq:LEN [Q]8G>[Q]O>[Q]7>PEEK w<1[U]INT ▜ACS w<SGN CODE -3VAL$ >LN S03SCREEN$ ▝LN :VAL  LOAD 1I CLOSE #<[Q]8O FOR 1I RESTORE 3[Q]:OK1SCREEN$ [M] IF ▜y}i COPY PI POKE {;o CLEAR RND IF {yyi CLS PI SAVE w;k CLEAR [R] IF ▜yei COPY PI<=SCREEN$ ASN  IF -AT SCREEN$ AT  IF `▛[C]▜ INPUT [M] GO TO  SAVE w;sPEEK  THEN @ MOVE uSCREEN$ SGN q DRAW #VAL$ [F][U] SAVE z▟[U]uBIN [E][O]▘sINT ▚[M]▛uk CLEAR [R][Q]OPEEK M2!LSGN ▘▜yui COPY ©;PI IF k CLEAR KPEEK STR$ @-LSQR #SCREEN$ TAN NOT ^MSGN CHR$ FACS STR$ @VAL  STEP BLN |▛VAL$ TAB G STEP BMLN  TO B#BEXP !AT ▚ACS  DEF FN @SPEEK USR @VAL  TO BPEEK NOT @SQR AT ▚ACS  CAT @s+TAN  TO FACS USR @C+TAN CHR$ FACS STR$ @[Q]INKEY$ LET z▘L)ACS [R]3TAN S4ACS XDBIN ▜y}i COPY INT 5{;o CLEAR TAN a"{{SGN ▞k CLEAR ▛y9INT ▘i COPY G{LN o CLEAR ▜y5INT ▚i CLS MLN ▘[L]yyi CLS INT ▜w;k CLEAR SGN ▜yi COPY PEEK g<▜y5i COPY MLN S03RRND▗; RETURN ACS  GO SUB 3 CLOSE #FN  FORMAT [M] OVER SCREEN$ FN  IF AT EXP FN  BRIGHT FN  FORMAT FN  POKE  INK [U]▘+ PRINT [M]`VAL -[U]I▜DFN ATN  TO ▗[O]CODE VAL  PAUSE >PEEK ExSCREEN$ xSIN ▚[O]O INPUT F[M]▞I RESTORE DAT ATN VAL [S]▞FN [U]SGN ▗ [U]SCREEN$ ▝ IF VAL  PAUSE >SCREEN$ [I] PAPER SCREEN$  ERASE SGN ▗1[U]▝SCREEN$ LEN SCREEN$ ACS K3SQR I▘>OASN EI'FK"@IDDWeDIFFN A REM Ni INVERSE b▝ THEN [E]SGN > LET PEEK 8FN ▟ PRINT TSIN MTAN LEN  SAVE zH LIST =[A][H]1~ RANDOMIZE =FN ▖▟SCREEN$ ▗ RUN VAL$  PLOT  KYJSCREEN$ [C] IF AT  LET SCREEN$ [H] IF FN ▝ PRINT SCREEN$ [O]SIN SCREEN$ ATTR  IF ISQR ATTR  NEXT [E]K STOP ;FN  SAVE  THEN l▛SCREEN$  NEXT  CLS [L][J][L]b▞FN  PRINT MFN ABOzbTAN [S]zSCREEN$ TAN ACS zBTAN [S]z:TAN <>>=B[A] FOR TE READ  CLS  LINE RNDCHR$  GO SUB i OR ;I▚▗yTAN ?R]SCREEN$ ▛ NEXT ITAN ?RBSCREEN$ [C] NEXT YTAN ?RRSCREEN$ [C] NEXT a[K]▖i"[K][H]iZo[M][L][N][L][J]bSCREEN$ [P] NEXT VAL$  NEXT [M]b[F]SCREEN$ [N] NEXT VAL$  NEXT [F]GINT =P4B RETURN  THEN t@NOT ▖qCSCREEN$ ATTR  NEXT SCREEN$ ▜▖ NEXT SCREEN$ SIN [K]EwSCREEN$ ASN  NEXT SCREEN$ ▜ NEXT SCREEN$ SIN ▘SCREEN$ ▘OIN GACS =AT [C] SAVE SCREEN$ :F[O]|NSCREEN$ ▘SIN ▜SCREEN$ [H]SIN ▚SCREEN$ ▙OMs+TAN SPEEK c<d_<>INT bb5VAL a>PEEK LEN 31DLN a>rVAL$ ACS c<A REM >SCREEN$  LOAD SIN ▚M▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▗▚▗▛▗▙▛▘▚▗[K]▗▚▗▟▗▚▗▗▚▗▘▗▚SIN ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▗▗▞▗▛▘▚▗[K]▗▚▗▟▗▚▗▗▚▗▘▗▚▚SCREEN$ ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▘▗▗▛▘▚▗[K]▗▚▗▟▗▚▗▗▚▗▘▗▚[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▘▗▗▛▘▚▗[K]▗▚▗▟▗▚▗▗▚▗▘▗▚[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗+MKI'D[U][L] SAVE ATTR # THEN FN Q"SaGSCREEN$ VAL  IF t▗VAL$ ATTR TAN ▗FN VAL BIN SCREEN$ FN  NEXT AT ABS  SAVE z▛AT ▙SIN ▘SCREEN$ ▘O[M][O]SIN ▘SCREEN$ ▘OLSCREEN$ ATN SIN ▘SCREEN$ PI FORMAT PISCREEN$ LEN i"i&SCREEN$ POINT SIN ▚EcU IF z$AT  CLEAR VAL a>MVAL S03SCREEN$ q COPY ACS [C]>OI#DFN [U][C]$K%BSCREEN$ [J] IF ACS 2[O]O%FSCREEN$ SCREEN$  IF POINT %VAL a>SCREEN$ ~O`MAT VAL ▗{SCREEN$ ▛ IF AT ▝ LET SCREEN$ [I] RUN SCREEN$  PLOT  AT LEN  SAVE z▛AT ▜MAT MsPEEK c<AT [L]0FN < THEN O[O]VAL  STEP B[H]SSCREEN$ [D][O] PRINT [H]OSCREEN$ [P] IF 1LAT ▖ NEXT  STOP [P]FN ICHR$ NSCREEN$ ATTR  IF SCREEN$ CHR$ VAL$ <>TAN [L]SIN ▙5v/DSGN ▗FN ▖B▚|<>JASTR$ ▙▞SCREEN$ ▝ NEXT ▖SCREEN$  NEXT TAN M ERASE JQFN [T] CLOSE #FN  FORMAT SCREEN$  LINE FN ▟=oo LIST SCREEN$ ▝ RUN [SCREEN$ CODE  IF AT [S] LET MACS XD[B]M STOP F!D7D[G]FATTR FFNOT F▘DxE+FD LLIST D GO TO D INPUT DEINT <FF PAPER F NEW >EXP >LEEEEE RETURN E LIST E>=EFN PEEK [I] NEXT [F] FOR O{{SGN ▞k CLEAR SQR y9INT i COPY w{LN o CLEAR ▜y% RANDOMIZE k CLEAR CM[M][H]G BORDER BM[I]aSIAT 2We[B]GC[H]OI RANDOMIZE DFN ICHR$ VAL$ [U]ABS VAL AT SCREEN$  SAVE SIN INT SCREEN$ SIN  NEXT sSCREEN$ ▘OLSCREEN$ PISIN  CONTINUE FN VAL @ACS SIN ▚SCREEN$ TAN SIN ▜PEEK TDSTR$ +SCREEN$  NEXT 9INT ?SCREEN$ ▚ IF MNOT BSCREEN$ COS SIN MFN SCREEN$  NEXT [F]#[S]K▝JMsI CONTINUE Dwq/t▞▛▟▛SQR L LET <>JFSTR$ ▙TAN ATTR  LET FN ▝▙ LET FN SGN ▗wFN  PRINT Mm[K]Si&i" IF k$[I]oFN IZMrS▗▚▗[I][H]FN [C] CLEAR [O][J][L][N][L]`▛[E][J] LET FN  PRINT [O]`▛[U][D] LET [H]KSCREEN$ ▘OSCREEN$ COS SIN ▘Mm[K]VAL$ i&i"i&o CLOSE #MJKo[I][T]g$k$[M][Q]k$w$[I]TAB o$mSCREEN$ ▙OPMAT ▗mii&oAT ▗>=FN  TO ▙ INK ▜▖▜ MOVE 7SIN ▟ PLOT  POINT  NEXT FN SCREEN$  RUN INKEY$ PLOT  O CLOSE # FLASH ESGN  NEW PEEK G CLEAR =AT M STOP BSCREEN$ [J] IF VAL$ 2<>PEEK ©</ACS g<OSCREEN$ ▙OhMAT M*sSCREEN$ ▘OMFN A ERASE INKEY$▘KSCREEN$ ▘O CLOSE #LFN [S]ATN ~G[U][R]M IF [S]▛FN [Q]▗SCREEN$ ▝ PRINT SCREEN$ [T] IF [U]▟ NEXT KSCREEN$ ▝ IF TAN [Q]SCREEN$  NEXT FN [R]BIN O?SCREEN$ ▛ IF  NEXT s[P][M][H]|VAL$ ▙[U]▞ SAVE SCREEN$ FN FN ▝$/FN I PAPER NO DRAW AT [M]SCREEN$ VAL$ LEN INKEY$▟W IF ATTR  NEXT AT M2CSCREEN$ TAB  IF AT  NEXT JSCREEN$ VAL KSCREEN$ SCREEN$ LEN SCREEN$ ▟SCREEN$  IF CODE  NEXT FN qrOSCREEN$  IF FN CODE SCREEN$ ▝ NEXT RSCREEN$ LEN SSCREEN$ ▞ IF 5AT [D]SCREEN$ [D]LEN FFN  DRAW POINT  LET SCREEN$  PRINT LEN SCREEN$  IF AT zT LET MAT [G] SAVE 3SIN [M]FN [P]ATN DSCREEN$  IF PI NEXT FN [G]ATN SCREEN$ ▟ IF [E][H]TAN +FN  CLEAR MFN [M] DRAW 3NSCREEN$ ▜LEN FFN  DRAW POINT  LET SCREEN$ ▝ IF FN [D]TAN ▜+T LET MACS M~ATTR  FORMAT ▞▖gTAB ▙|▟ CONTINUE ▟l LLIST o IF SCREEN$ -▘<>▘w▝▝ STEP ▝}1 DIM ASN u▜8▜▜ OPEN #▜[U]▜~▚4▚#▚ CLEAR ▚ PAPER ▚VAL ▚[M]▚yY^- IF  GO SUB  MERGE CHR$ FN PI▛|▗v▗h▗S▗K▗8▗)▗/▗"▗▗▗▗ CLEAR ▗ RETURN ▗▗ GO SUB ▗ BORDER ▗ INK ▗ FORMAT ▗ OPEN #▗ ERASE ▗ STEP ▗ INVERSE ▗ OR ▗ABS ▗INT ▗COS ▗COS ▗VAL ▗ACS ▗[H]▗AT ▗SCREEN$ ▗[Q]▗VAL$ ▗[U]▗[S]▗[I]▗▚▗[N]▗[L]▗[O]▗[M]▗[D]▗[G]▗[F]▗ CONTINUE ▗[H]▗[C]▗▚▗▗TAN CHR$ FACS  DEF FN @[U]TAN  STEP FMTAN CHR$ NACS STR$ @-ACS  CAT @sACS  OR @TAN CHR$ NM▖▙▖▖[G]▖▖ NEXT B@@@@ LLIST @'@*@(@8@2@▙[O]▖[G]▖▙▗▚▗▖▛▘▚:▖[O]▗▘▗▚▚▟▝[O]▖[K]▙▗▚▛ VERIFY C>=GCHR$ C▗ CLS [I]C▘GtB▗▛BIN CPEEK GVAL C▗[L] LPRINT C BRIGHT G PAPER C▗▛ PAUSE C INPUT G POKE C▗SQR C SAVE GC▗▛CGC▗:AaA RETURN B SAVE C*AaA"IINT C{T▚▗r@-CfC CIRCLE L-M-CvC©HBIN MbJ▗A TO NNFN O OUT H TO NN OPEN #V TO JrO▘U[K]▗[K]A BORDER V▚▗PEEK A FLASH W▘▗SGN A▛P▚▗CHR$ A%Q▗USR A3Q▚▗ VERIFY A;Q▘▗ CLOSE #AV▚▗ PAPER AWINT ▗ CIRCLE AP▚▗ INPUT A8V▘▗ GO TO A[W▚▗ PAUSE ARP▗ LIST A|V▚▗AP▘▗A[N]Q▚▗A[S]W[K]▗ACODE P▚▗AUSR Q▘▗A*▗Y[G][H][F]b▚[M]PI[K]POINT [R]PIRND INK [T]PIRNDAT [T]RNDRNDVAL$ VAL$ ABS PI[M]=[K]INKEY$INKEY$[R]RND[K]4[P][B][[J][H][H]`▗[H]▝▗[D]6LEXP ACS [K]2LVAL IPI6LPOINT K[K]:LPOINT K[N]4[L][G][M][P][K][N][D][D][L][N][I][O][D]u[B][N][I][K][K][L][P][D]6LEXP E[K]2LVAL 4IPI6LEXP K[K]*LPOINT K▘▘[M][J] POKE [J][K][N][N][M][A][A][A][E][M]▖▚[U][K]INKEY$[P]INKEY$[R]AT [Q][T][R][Q][K][L][H][I][L][C]t[C][C][G][G][K][I][R][S][T]TAB [T]ATTR FN FN [D][T][Q]d[P]L2EXP KINT 4NSGN K[P]4BLEN K[S]4NASN  COPY K[N]4JSQR K[B]4NLN KINKEY$4RSGN K[J]4NATN EXP K[T]4NPEEK K[I]4BSIN K[L]4NASN K[A][I][F]▞`][H][F][F]▚▘▙j[P][U]▝▜[U][N]▛[U][L]▜[U]![I][N]SCREEN$ ▜[N]INKEY$[L][P][L]mn[A]u[N]f{ POKE `h[A][A]▛▞▛[A][A][A][A]▛▞[L][A][A][A][A]▛▞ATTR [A][A][A][A]▛▞[O]▞Y[A][B][H]`[O]▙▗VAL$ VAL$ POINT FN ATTR ATN  MERGE ATTR ATTR ASN RNDATN SIN LEN #POINT LEN SIN SIN EXP POINT VAL$ AT FN [E]ATTR ATTR FN [R]PI][F][O][F]~AT FN [U]ATTR SCREEN$ TAB ATN ATTR  CLS VAL$ [R]SCREEN$ VAL$ TAB [Q]SCREEN$ VAL$ [T][T]EXP [R]VAL$ FN [T][S]VAL$ AT :[S][R][A][T][R][R]RND[R][T]VAL$ ATTR POINT LEN FN ATTR TAB >FN [U]ATN SCREEN$ FN AT  FORMAT FN SCREEN$ TAB SCREEN$ RNDATN ATTR VAL$ [R]SIN VAL$ TAB FN SCREEN$ VAL$ [T][T][R]VAL PEEK ▜SIN SGN EXP ACS SGN ABS VAL SIN IN SGN EXP LN SGN ABS SGN AT [[C][M][E]`[K]xSCREEN$ FN FN ASN FN COS SIN SIN POINT ATN SIN [[L][M][H]VAL PEEK ▜SIN SGN EXP ACS SGN ABS VAL SIN IN SGN EXP LN SGN ABS SGN AT [[C][M][F]`[K] SAVE ASN VAL$ ATN LEN ATN ATN SGN SGN CODE ATN ATN ▜▜▛▜▘[ATTR [M][H]FN AT TAN ATN INT ASN ATN COS SCREEN$ TAB VAL$ SCREEN$ POINT FN SCREEN$ INKEY$CODE [T][R]ASN IATN LEN LEN ACS FN SCREEN$ ACS TAB TAN ATN SCREEN$ FN FN [T]ATN INT ASN ATN COS FN VAL$ 4FN FN CODE SCREEN$ ASN [U]SCREEN$ VAL$ [R]ACS ASN TAN ATN AT ATTR SCREEN$ ASN SCREEN$ POINT FN TAN  FORMAT ASN ASN TAN Y[F][C][F]bATTR ACS ASN ATN ATN INKEY$TAB FN LEN TAN ATN 4LEN ASN SIN FN TAN EXP TAN ATN LEN ASN SCREEN$ FN TAN COS ACS ASN LEN ATN VAL$ TAB [R]TATTR SCREEN$ ASN FN INKEY$VAL$ [R]COS ACS ASN LEN ATN VAL$ TAB [R]EXP TAN ATN LEN ASN FN TAN COS ACS ASN LEN ATN 3[R][R]TAB VAL$ ATN TAN tFN VAL$ AT TAN FN VAL$ AT SCREEN$ SCREEN$ FN FN [D][T][Q]TAB VAL$ VAL$ CODE [R]2HCOS ASN LEN 5K[T][Q] RUN RNDVAL$ INKEY$CODE *HCOS ASN LEN =K[Q][N]VAL$ VAL$ CODE [R]2HCOS ASN LEN ATN 5K[T][Q]RNDVAL$  VERIFY [T]▗D[F][O][F]f4fe` POKE fe`X[D][D][H]`▚▚IN ATN ASN cACS LEN VAL SIN 0SGN SGN VAL SQR SIN  STOP ATTR Z[F][F][F]b4c4dcbfe READ `EXP LEN 0SQR SGN EXP cSIN 4E[F][B][F]fPEEK  NEXT SGN SQR LN PEEK PEEK SGN EXP 4EXP IN SGN PEEK SQR SGN INT tPEEK SGN EXP EXP IN 4 POKE ATN ATN cATN ATN [D]`~▚▘FN FN TAB INKEY$TAN ATTR AT ATTR FN 1FN [T]SCREEN$ [T]FN FN [B]SCREEN$ ASN TAN FN INT ASN 5FN TAB ACS TAB FN FN TAB VAL$ TAN ATTR  CLOSE #ATTR FN 1FN [T]SCREEN$ [T]FN FN POINT SCREEN$ ASN TAN FN SIN ASN FN TAB VAL$ TAB SCREEN$ SCREEN$ ATTR TAN ASN TAN AT ACS ASN 1FN TAB SCREEN$  POKE TAB FN FN [R]SCREEN$ ASN TAN FN SCREEN$ ASN 5FN TAB INKEY$TAB e▗[R][F]f6ACS VAL$ TAN  VERIFY ATN VAL$ ASN INKEY$Y[D][D][H]`0▚▚▗[B]SIN SGN IN LN INT ASGN ABS EXP SQR VAL 4PEEK IN SGN PEEK [S]SGN ABS EXP tSQR [F]b[P]▚▘4 READ 4t#][F][O][F]}cFN R[R][R][R][R]TAB [Q]FN FN FN TAB SCREEN$ SCREEN$ INKEY$SCREEN$ AT FN FN TAN ▛LEN ASN INKEY$ASN FN COS FN [T][T][R]FN tASN LEN ATN ASN SCREEN$ ASN SCREEN$ ATN SCREEN$ ATN FN 4ASN LEN ATN ASN SCREEN$ ASN VAL$ TAB [R]TAB [T]TAB ][R][R]TAB TAB [T][T]TAB [R]TAB LEN ATN ASN FN 4ASN LEN ATN ASN SCREEN$ ASN VAL$ TAB [R][T][R]FN  OPEN #[R][R][R][R]TAB [Q]FN FN FN TAB SCREEN$ SCREEN$ SCREEN$ INKEY$SCREEN$ AT FN FN TAN ▛LEN FN FN ASN INKEY$ASN TAB TAB FN COS FN [T][T][R]INT ▗[R][F]u4c4SGN EXP  OR SQR EXP PEEK EXP PEEK SQR tPEEK SQR SGN EXP  OR SQR EXP PEEK EXP SIN LEN 4ASN LEN ATN LEN ASN ASN ASN LEN LEN ATN ATN LEN  POKE ASN LEN  OR SQR EXP SGN EXP  OR SQR EXP PEEK EXP SIN LEN 4ASN ATN ASN SGN [▞[H][H]a▗[H]▗[N][N]t▜[G][P][N][G]▛[I]4[N]▜[O][P]▛[A]▛[F]▞ LPRINT X[H][O][F]o▚▚4t4 POKE 4t4 RUN 4IN ASN ASN ASN ASN LEN SGN ASN ASN SGN SIN ASN ASN SIN SIN SGN LEN LEN tASN ASN ATN SGN SIN COS ATN ASN x▚EXP [[H][L][O]o[H][H][B][H][H][B][H]i[B][H]G[F][J][H]e[O][B][O]POINT [M][B][O][J][O][B][H]▖[F]Y[D] STOP [G]a[H][O]▘[M][H][O][K][I]4[O][O][N][M][H][G]Y[D]c[F]a[G][M][B][F]▘[H][O][P][K][A][O][F][O][H]TAB ][D][O][F]o[O][M][M][B][H][H][O][D] LOAD [H][H][B][O][H]▚_[F][L]POINT o▚▘CODE CODE POINT VAL$ LEN POINT ATTR ATTR TAN ATTR CODE CODE POINT  POKE CODE VAL$ CODE X[D][L][H]c▗▚!▚▗▚[I]z^[F][M][D]c4 NEXT ^[B][M][H]c▝▗4[[F][M]▛a[Q]t[Q][J]▜[F][Q]SQR [J][J]4▜[Q]INKEY$_[F][L][B]o▘▚▘[L][L]RND POKE [O][I][O]PIPI[Q]PISQR [L]RND[O][O]PIXINT [L][E]c▙▚▙1TAN CODE VAL LEN LEN ACS ACS ACS TAN RNDPOINT TAB TAN ACS VAL tLEN LEN ACS ACS ACS COS ]▗[J][H]mTAB 4CODE POINT POINT SIN VAL TAN VAL$ SIN COS LEN ACS  PRINT TAN VAL ACS INT [[L][E]c▙▚PEEK [O]▙▗TAN TAN VAL ACS LEN VAL ACS TAB TAN ABS COS LEN VAL ACS tVAL ACS COS Y▗[F][G]c(TAB CODE CODE ACS TAN VAL ACS 4LEN VAL INT ACS VAL TAN ATTR LEN ACS ATTR ACS  POKE QQ`[P]▚▘`U[G][J][F]e]▗ INK [F]d` PAPER  BRIGHT  OVER Y▗ INVERSE [F]b ERASE  BRIGHT  OVER Y▗RND[F]` PAPER  BRIGHT  OVER INT ACS lX[RND IF -)I^SLN sQzPOINT b▝[L]PEEK ▝RNDSGN [M]sINT ▜[M]▖INT ▗ACS _ POKE KCRNDiX[D]tZ▘▗VAL {o4LN ▗KkZACS uXTAN !ACS /VAL -YSQR  PLOT  .ISK THEN ]z▜N▟Sx▚[K]PI)[F]vX▛▝▚i2GPOINT Sd▜INKEY$[T]-[F]zX▜▝▘i6G MERGE SLN VAL kZGRNDSK,ZRND/▛-▝▗k4ATTR -[F]/▜▜INT i6RNDuX[H]|V▗TAN {k45ACS qXLN Y PLOT  z▛AT LN Y[T].I LLIST SK THEN Uz▜N[F]Sx▚[S]PI1[F]~X▝▚i:GEXP S|▜INKEY$[L]-[F]zX▜▝i6GABS SLN FN sZGABS SKSI[]LN ^ PLOT  # ERASE ▙xSCREEN$ ▖[RND MERGE ,[O]▙_RNDABS ,▘[RND DEF FN ,LN ▜LN jZ+OXQPEEK ` POKE TAN ▗ INK RNDiX[L] INVERSE ▗k4[Q]Y PLOT  zAT RNDeX▜▘i6O/O[R]ORNDO[R]RND OUT 0 NEXT ATAN  DIM ySQR tZ▘Ig/-NwQA DEF FN Py[L]|Z▘Ig/-N OVER RA2PySQR qZ▘Ig/-NwQA DEF FN Py FLASH yZ▘Ig/-N OVER RA2PINT m_xATTR d▛MNOT SCREEN$ M THEN [S][E]M OPEN #[K][F]M FLASH [S][G][O]cTAN sGSLN ▚Y RETURN QINT ▝G DRAW STAN sEXP IN RND/ COPY  FOR LN ▗▞LN  PRINT +]zASN b[J][U]zuOuI THEN QINT ACS hXIZSO=_INT ACS hX_RND,5IZSO=_YATTR /.PEEK /KX-I?]_RND8,VAL -I^SK=CYPIU*PEEK /GXQM%AT INT ACS /SGN  MOVE TAN R[M]▙INT }ACS /FN ^Y DRAW ▗TAN RY SAVE _PI[PIG^RND%BIN STR$ #[S]LN [U] FOR LN ▗▟[D][B][D] READ [G]vVAL ^ GO SUB PEEK hX> READ [U]ZY SAVE ▗t▞VAL$  THEN %L[PI PRINT [S]▚TAB ATTR TAB [H]COS  DRAW [N]k OUT /▖PEEK /$PI[E]I/SGN Z"RND[G]W^▞[S]o[ IF #VAL$ [H]o OUT /INKEY$I/▘LN  IF [I]I/[U]qiSTR$ ^[I]o BEEP /I[R]^Y[R]PEEK /▘▗▚▗▗[S] SAVE dF RANDOMIZE /[U] DIM / RETURN R▙ READ C[A] DRAW bD CLEAR B[K] FLASH ^ RETURN T MOVE MATTR tZ[F]/KLB[U]INT ACS /ATTR tZ[F]/KL"DLN VAL -Mk BEEP M/[H]▗[K][O][B]:N▞SCREEN$ }RND[E]sINT ▜#sALN ▘VAL jZI][RND CAT -)IFSK=[E[RND COPY / RETURN zAT ▘YZ CLS -AO=_Y DATA ▗[ STOP YRNDYEXP Yca_e)IVSKY RETURN xAT |s+YzPOINT b[F][U]~u[T]tZI LPRINT ]VAL$ b[T]|ZI LIST ]VAL$ Z© NEXT ▚y INK I]_eG[E]0I?]O=_YSQR `.+OXQRND©, SAVE PIYzPOINT "[K]▞RND IF [R]_xATTR ,[U]G MERGE ]OI]LN KI]%M<LRND▝Z~x{KI?]G=_I;]K=CI?]O=_M MERGE [C]▚RND▘▗[P][N][T][N][P][N][L][F]J_[D][F]`X▚i*YPI`^+EX]▘▙A[D]#BIN RND]<=FN y PAUSE CQo[E]▗o4gI/WI/G[E]gE[G][KRND SAVE _SGN [C]▖Ga[H]# THEN  OR } PAUSE GQ▜[G][K]i6UO^E[K]vg[F]l{[P]Eu[E]gM▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▚▗▘▗▚▗[K]SGN ▚▗▘▗▚▗ DATA Bd SAVE G▚ SAVE ▘LN ▝▘[L]zACS Euete{cz▚ IF [F]ABS { CLS eu]tyK©czzEXP EXP { COPY e}i|}K{c{▜z CLEAR KABS {e©m<ucsckj CLS J[T]z COPY e©XABS {eecb▜jKJ RETURN  DRAW {e{TABS ggaCt[L]dwZ IF |we{ZABS aGe{z POKE ▜tcZ PLOT  |ue{^ABS aG]{t▘ugZ IF uye{: CLEAR EI{s}IX RUN w}E[" COPY yM{▜k CLEAR EXswyE DRAW [> RUN }A▞K RANDOMIZE E8wueE:wy▝EXP A8[ea;wE▝▝ RANDOMIZE uEXP eeeASN cAK:K CLEAR yySQR agiEXP cK▞:[J]{▝}|SQR Ege[L]ABS CKASN LN ▜{}x[L]IGI▛[J]K▞LN ▘z▝tv[L]GM▘t▜▜▗[M]▚ SAVE ▞d PLOT  ▛ATTR y|zk DRAW RNDb[J]AT ▙[A]F READ STR$ R▙OPEEK TAN |D INVERSE [J]M▗INT l9L MERGE b▝LN  OR OIN OCOS OIN INT ▜<>INT ▛[G]yYz[J]▞SCREEN$ xEXP MUSR [U]INKEY$[U]INT [U]INKEY$ TO [S][U]INKEY$[U]SCREEN$ [U] OUT [U][S][U]INKEY$[U][K]SIN INKEY$[U][S][U]INKEY$[U]IN [U]INKEY$[U][S][U]INKEY$ FORMAT INT [U]INKEY$[U][S][U]STR$ [U]SCREEN$ [U]INKEY$[U][S] ERASE INKEY$[U]][U]INKEY$[U] TO [U]INKEY$[U]SCREEN$ [U]INKEY$ DEF FN [S][U]INKEY$[U]INT [U] OPEN #[U][S][U]INKEY$[U]SCREEN$ COS INKEY$[U][S][U]INKEY$[U]▙[U]INKEY$[U][S][U]INKEY$ VERIFY SCREEN$ [U]INKEY$[U][S][U]USR [U]INT [U]INKEY$[U][S]<=INKEY$[U]SCREEN$ [U]INKEY$[U] CAT [U]INKEY$[U] PAPER [U]INKEY$ CAT [S][U]INKEY$[U]SCREEN$ [U] CAT [U][S][U]INKEY$[U]INT SGN INKEY$[U][S][U]INKEY$[U]EXP [U]INKEY$[U][S][U]INKEY$STR$ [K][U]INKEY$[U][S][U]CHR$ [U]SCREEN$ [U]INKEY$[U][S] BRIGHT INKEY$[U]INT [U]INKEY$[U] MOVE SCREEN$  MERGE  TO NOT CHR$  ERASE >=[S][U]INKEY$[U]Z[U]<>[U][S][U]INKEY$[U]SCREEN$ ABS INKEY$[U][S][U]INKEY$[U]FN [U]INKEY$[U][S][U]INKEY$ OPEN #SCREEN$ [U]INKEY$[U][S][U] MERGE [U][K][U]INKEY$[U][S] OVER INKEY$[U]SCREEN$ [U]INKEY$[U] MOVE  CLOSE # OR [U]INT [U]INKEY$STR$  TO  FORMAT NOT  VERIFY SCREEN$ [U] VERIFY [U][S][U]INKEY$[U] PAPER TAN INKEY$[U][S][U]INKEY$[U]SQR [U]INKEY$[U][S][U]INKEY$ MERGE INT [U]INKEY$[U][S][U]<=[U]SCREEN$ [U]INKEY$[U][S] BEEP  DEF FN  STEP  DRAW  FORMAT INKEY$[U]▖▚▗▗▚▗▘▗▚▗e{y{}{y▗u{y{}{yRND[N]vLN [C]VAL [A][▘[P]A▘AgINKEY$ DIM Ya PAUSE uINT [F][H][G]RND▗q%AT ▘[N]▜[U]zi LET 1[}ATTR pu▘▛U▖{w$k$o$k$g$k$o$k$$k$o$k$g$k$o$k$w$k$o$k$g$k$o$k$W$k$o$k$g$k$[C];PI▗[K]▘U{k$g$k$o$k$[H]$k$o$k$g$k$o$k$w$k$o$k$g$k$o$k$W$k$o$k$g$k$o$k$w$[G];COS ▗▚eK▝D_PEEK [C]Y<=ACS [C]Y[D]vx[N]K▝D▟_M▚▗[K]▗▚▗▘F▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚b▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▛f▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚SQR z▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘ CLS F▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚{▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▛{▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗z▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗PEEK SGN CHR$ SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN ▘▗▚▗INT ▗x▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗xt▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗tINT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗LEN d▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗ RUN D▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗r▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘z▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▜|▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN ▚▗▘▗▚d▗▚▗▘▗▚▗▗▚▗▘▗▚▗E▗▚▗▘▗▚▗▗▚▗▘▛z▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▛z▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗[L]v▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚[L]j▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▛F▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▛▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF g▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN ▗▚▗▘t▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▜|▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▞x▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▝x▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗|▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▞|▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[F]t▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▞t[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN ASGN PEEK SGN INT SGN ▚▗▗[J]d▘▗▚▗[K]x▞{▘ty{▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗[F]d▚▗▘▗▚D[F]{▚t}[L]▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗[J]D▗▚▗▘▗▞{[K]ty▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▟▚▗▗▜▗▟{te▗▗▘▗▚▗▗▚▗▘▗▚▗z▗▗▘▗▚▗▟▗▞{ty▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗ LINE ▗▚▗▘▗[J]▗{t|▗~▗[K]▗▚▗▘▗▚▗▗▚▗▘▗z▗ IF ▗▚▗ABS ▗▝{tx▗|▗▚▗[K]▗▚▗▘▗▚▗▗▚▗}▗▚▗INT ▗ RANDOMIZE ▗{dt▗y▗▘▗▚▗[K]▗▚▗▘▗PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN C▛VAL ACS [C][M][L]SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN ▘▗▚▗u▗▚▗▘▗yABS {d|▗y▗▚▗▘▗▚▗[K]▗▚▗▘▗y▗▗▚}▝{zdx▗}D▚▗▗▚▗▘▗▚▗[K]▗▚|▗▚▗▜yD{dD▗yd▘▗▚▗▗▚▗▘▗▚▗[K]x▗▘▗▚uD{dz▗|▚▗▘▗▚▗▗▚▗▘▗▚d▗▚▗▘▛yD▞{d~▗yxINT ▗▚▗▘▗▚▗▗▚▗▘▜z▗[K]▗▚[L]}d{dz}z▚▗ IF ▗▚▗▘▗▚▗▗▚▜~▗▚▗[K]SQR yd▝{dvy{▘[K]▚▗INT ▗▚▗▘▗▚▗▜z▗▘▗▚ CLS ed{dzu{SQR ▘▗▚▗}▗▚▗INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK [G][Q]SIN [C][I][M][O]SGN SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN ▚▗▘▜z▗▗▚ CLS }t{dz}{F CLS ▗▚▗▘▗▚▗ IF ▗▚▜~▗▚▗{yt▝{dby{b DATA F▗▗▚▗▘▗▚▗INT ▜z▗▘▗▜{ut{d~▜e{vBIN CHR$ ▗▚▗▗▚▗▘▗▚▘▗▚▗▝{yt▞{dz▜y{j▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗{}|▜{d~▜}{~[L][K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ CLEAR {y|{dr▜y{~SQR ▗[K]▗▚▗▘▗▚▗▜~▗▘▗▞{E|▜{D~u{xSQR B▗▚▗[K]▗▚▗▘▗▚v▗▚▗[N]{y|z{Dzy{tSQR F▗▘▗▚▗[K]▗PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT [Q]▙[C][M][M]INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [K]▗▚~▗▚▗[F]{yx{Dy{}SQR F▗▗▚▗▘▗▚▗[K]z▗▘▗EXP {ux▚{DvE{ySQR b▗▚▗▗▚▗▘▗▚f▗▚▗ CLEAR {yx{Dry{[L]f▗▘▗▚▗▗▚▗▘z▗[K]▗ RANDOMIZE {}x▚{Dv▛}{y[L]Z▗▚▗▘▗▚▗▗▚~▗▚▗e{yx▘{Dj▛y{}f▗ IF ▗▚▗▘▗▚▗z▗▘▗y{ez▚{Df▛u{yb▗▚▗INT ▗▚▗▘▗▚v▗▚}{yz[K]{Db▛y{uKj▗▘▗▚▗y▗▚▗▘z▗▜y{}z▚{Df[L]}{yKd▗▚▗▘▗▚▗▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK ▙[Q]SIN [C][M]PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN ▚▗ IF z▗▘y{u{▚{F[L]e{yCM▗▚▗▗▚▗▘▗▚▜F▗▚▛}{y{ CLS B[L]y{ecI▘▗▚▗▗▚▗▘▜z▗z▛y{}{▚ CLS FSQR }{ygUD▚▗▘▗▚▗▗▚▜r▗▚[L]E{y{▘ CLS JSQR y{}ud[K]▗▚▗▘▗▚▗▗▘SQR y{{SQR SQR u{yt[N]t▚▗[K]▗▚▗▘▗▚▗▗▗▚SQR }{y{:SQR F CLS y{utEXP t▘▗▚▗[K]▗▚▗▘▗EXP ▗SQR y{}{SQR SQR  CLS }{yt PRINT |▚▗▘▗▚▗[K]▗▚▗ CLEAR ▚[L]u{y{BSQR F: CLS y{}| RETURN x▗▚▗▘▗PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN ▙▖ACS [C][M][M]CHR$ SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN ▘▗▚▗eD▚▛}{y{JSQR F▘{y{Ex~{▘▗▚▗▗▚▗▘▗yd[K]Ky{}{F[L]J▚{}{yx▘ CLS ▗▘▗▚▗▗▚▗ CLEAR tce{y{b[L]F▛{y{}xxSQR z▗▚▗▘▗▚▗▗ RANDOMIZE x▟wy{e{f[L]B▜{u{yz CLEAR ;f▗ IF ▗▚▗▘▗▚▗ASN z RANDOMIZE u}{y{z[L]f▝{y{uz RANDOMIZE {z▗▚▗INT ▗▚▗▘▗EXP zu}y{}{v[L]z{}{yz PRINT {z▗▘▗▚▗u▗▚▗[N]xy|u{y{r[L]f[N]{y{}zEXP {t▗▚▗▘▗▚▗INT ▗▞x}xy{u{~▛b▝{e{yzSGN {y▗▗▚▗INT SGN PEEK SGN CHR$ SGN PEEK SGN INT SGN PEEK SGN ▘▖SIN [C][K]SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN ▚▗▘▗▝}Ex RANDOMIZE {}{~▛j▝{}{yz[U]{yD▘▗▚▗▗▚▗▝}yx{y{~▛f{y{}zLN  CLS ed▚▗▘▗▚▗▗▜w}|EXP {E{zb▞{u{yz DRAW  CLS yt[K]▗▚▗▘▗▚▗ RUN yt[N]{y{f[N]{y{ux SAVE SQR }t▚▗[K]▗▚▗▘▗▚[H]ud▞{}{xZ▜[J]{}{yx POKE yt▘▗▚▗[K]▗▚▗▘y▗{y{|▜f▜d{y{}x▚▗d▚▗▘▗▚▗[K]▗▚▗▘▗▝{u{y▜b▜EXP {E{y|▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗{y{u▜f▜ABS {y{|▚▗▘▗▚▗▗PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN ▙▖PEEK [H][O]SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN ▗▚▗▘▗▚▗[K]{y{|{y{J▛y{}t▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚{e{f▗▘▗▚▗u{yt▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘SQR yx[K]t▚▗▘▗▞{ud▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▛}▞d[K]▗▚▗{y▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗}▚▗[K]▗vSQR }▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚TAN SQR y▗▘▗▚▗ez▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘SQR ▝{v▗▚▗▘▗yt[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚SQR }{~▗▗▚▗}z▚▗[K]▗▚▗▘▗▚▗SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN ▚▗▗▚▗▘▗▚[L]{v▗▘▗▚▗u{▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘[L]y{z▗▚▗▘▗y{▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▛}{▗ IF ▗▚▗}z▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▛y{▘▗▚▗INT ▗yx▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▛u{▚▗▘▗▚▗x▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘yz▗▚▗▘▗ RANDOMIZE |INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚}x▚▗▗▚▗ CLEAR t▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]y|▘▗▚▗▗ RANDOMIZE t▘▗▚▗INT ▗▚▗▘▗PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN BSGN PEEK SGN ▘▗▚▗▗▚▗▘yt[K]▗▚▗▘▗EXP t▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚}t▚▗[K]▗▚▗ABS t▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗yf▘▗▚▗[K]▗EXP t▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚uC▚▗▘▗▚▗RNDt▚▗▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▜yK▗▚▗▘▗EXP t[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▜}▚▗▗▚▗ABS t▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▜y▗▚▗▗EXP t▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▜E[L]f▗▘▗▚▗ASN d▚▗▘▗▚▗[K]▗▚▗INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN BSGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN ▚▗▘▗▚▗▗▚▜}[L]~▗INT ▗▚▗[N]j▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▜y[L]}▗▚▗ IF ▗▞k▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▜u[L]y▘▗▚▗ASN kf▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▜y[L]ud▚▗▘▗▞k▛▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚}[L]yt▗▚▗kz▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗y▛|TAN ▚▗▗▝k}▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗ey▗▘▗▚▗▟k~▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗ RANDOMIZE [N]▗▚▗▘▗▝dACS ▗▚▗▘▗▚▗z▗PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN INT ▗▚▗▘▗▚▗▗EXP D▘▗▚▗[K]▗▝d▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗ASN d▚▗▘▗▚▗[N]t▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗[J]t▗▚▗▘▗▝x[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗[N]|▚▗▗▚▗{▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗[J]z▘▗▚▗▗▞{b▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ OR {f▗▘▗▚▗{v▗▘▗▚▗[K]▗▚▗}{y{u{y{~▗ RANDOMIZE {F▗▚▗▘▗[J]{Ry{}{y{e{y{}{y{u{z▗}{x▗z▗▚▗ABS {fu{y{}{y{[S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN ▚▗[K]▗▚▗▘▗▚▗j CLS F▗▘▗▚▗ IF f▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▚j▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗J▖▚[M]▝{▜Z▗▜x▘[L]v▗▞▚d▘d{ IF INT ▚▗▘▗F▖[M]{[L]~▗[N]{▚[L]z▗▝Dd▚d▝{▚{INT ▗▚▗B▖▚[M]▞▗▚INT  RETURN ▗▞▛[M][K]▗D▚dd▗g▗z▗F▘[M]▗ POKE ▖▗[O]F[M][G]▗▖d▘t▜d▞▗▜EB▗PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN ▘▗F▛ IF [M]▗▘d▝▗SIN ▗F[M]▗ DATA [K]t▜d▝▗J▗▚▗B▛[M]EXP ▗▜D▝PEEK ▗[M]▗▙ DATA ▚|[J]d▗▝ AND ▗▗F▞B[M]▗dDSIN ▗▚[M]▗[K] POKE ▘/ DATA [J]▗▘▗▚▗J▖f[M]▝▗SQR D PLOT  ▗▘[M]▖▗[C]TAN ▚X DATA ▗[L]D▚▗▘▗F▖ REM [M]▗▝▜D▗▚[M]▙▗[O]TAN H DATA ▝▗▜d[K]▗▚▗B▖ PLOT  [M]▞{D PLOT  ▗INT [M][K]▗INT SGN ▚J▗ DATA ▗▘|▚▗[K]▗F▖INT [M]{▞▜D PAUSE ▗▚[L]▘▗ACS [M]▘B DATA ▞z▚INT ▘▗▚▗Z▖[K][M]▝▗▛D PLOT  ▗▘[L]v▗[M]▚C[O] DATA z[L]▚▗INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN CHR$ SGN PEEK SGN INT SGN PEEK SGN SIN SGN ▚▗B▖▖[M][J]▗D PLOT  J[P]▗ CLEAR x▚G[S] DATA ▗▘▗▗F▖[M]▗[J]▜D PAUSE F[N]J▗ RANDOMIZE x▘G> DATA x▗▚▜▗▚▗J▖[M]▝▗[L]D PLOT  ▗B[M]f▗ REM ▖▚E2 DATA ▗INT F▗▘▗F▖▞▗▝▜D REM ▗F[M] PAUSE ▗fEv DATA ▝▗▚:▗▚▗B▖▜/▞▗▜D▝ACS ▗Z[M]PEEK ▗b▚Dj DATA ▗▘F▗INT ▗F▖▘|▗▛DINT ▗F[M]▘▗F▘▘Df DATA ▞▗▚B▗▚▗INT ▖▚ DRAW ▝▗▚d▟▗PEEK ▗B[M][K]Z▚DCHR$  DATA ▗▞F▗▘▗F▖INT SGN ▗▘ POKE ▖▗[G]F[M]F[K]D▚ DATA ▝▗▗PEEK SGN INT SGN PEEK SGN CHR$ SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN ▗F▖▘[M]▗INT INT  IF ▗▟[M]▟▜▘D▚ DATA [J]▗▜c▗▚▗J▖▚[M]▝▗▚[L]▝▗▝{▘[M]▜D▘ DATA {[K]{▚▗▘▗F▖[M]▗▘▜F▗SQR x▚[M]▜D▚ DATA ▝{▚LN [K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN y{u{y{}{y{e{y{}{y{u{y{}{y{▗{y{}{y{u{y{}{y{e{y{}{y{u{y{}{y{E{▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN ▘SGN PEEK SGN INT SGN PEEK SGN SIN SGN PEEK SGN INT SGN PEEK SGN [S]SGN PEEK SGN ▘▗▚▗▗▚▗▘▗▚▗}▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗ABS SQR EXP SQR ASN SQR EXP SQR ABS SQR EXP SQR RNDSQR EXP SQR ABS SQR EXP SQR ASN SQR EXP SQR ABS SQR EXP SQR DSQR ▚BIN ▘ OR ▚ AND <=▚USR ▘STR$ ▚CHR$ [K]NOT ▚ BRIGHT [S]BIN INKEY$ OR SCREEN$  AND INKEY$<=[S]USR INKEY$STR$ [K]CHR$ INKEY$NOT [S] BRIGHT  AND BIN  LINE  OR  AND  AND CHR$ <= AND USR  PAPER STR$  AND CHR$ CHR$ NOT  AND  BRIGHT  REM BIN  NEW  OR  STOP  AND  NEW <=[K]USR  NEW STR$  STOP CHR$  NEW NOT  REM  BRIGHT BIN  OR  AND <=USR STR$ CHR$ NOT  BRIGHT "BIN & OR  AND &<="USR &STR$ *CHR$ &NOT " BRIGHT FBIN Z OR F AND B<=FUSR JSTR$ FCHR$ BNOT F BRIGHT [K]BIN f OR b AND f<=jUSR fSTR$ bCHR$ fNOT z BRIGHT ▚ TO ▘ STEP ▚ DEF FN  CAT ▚>=▘<>▚ LINE INT  THEN ▚ INVERSE [S] TO INKEY$ STEP SCREEN$  DEF FN INKEY$ CAT [S]>=INKEY$<>INT  LINE INKEY$ THEN [S] INVERSE  AND  TO  LINE  STEP  AND  DEF FN CHR$  CAT  AND >=INT <> AND  LINE CHR$  THEN  AND  INVERSE  REM  TO  NEW  STEP  STOP  DEF FN  NEW  CAT  IF >= NEW <> STOP  LINE  NEW  THEN  REM  INVERSE  TO  STEP  DEF FN : CAT >=<> LINE  THEN  INVERSE " TO & STEP : DEF FN & CAT ">=&<>* LINE & THEN " INVERSE F TO EXP  STEP F DEF FN B CAT F>=J<>F LINE B THEN F INVERSE z TO f STEP b DEF FN f CAT j>=f<>b LINE f THEN Z INVERSE ▚ CLOSE #▘ MERGE ▚ VERIFY  BEEP ▚ FORMAT ▘ MOVE ▚ ERASE [K] OPEN #▚ OVER [S] CLOSE #INKEY$ MERGE SCREEN$  VERIFY INKEY$ BEEP [S] FORMAT INKEY$ MOVE  PAPER  ERASE INKEY$ OPEN #[S] OVER  AND  CLOSE # LINE  MERGE  AND  VERIFY CHR$  BEEP  AND  FORMAT  PAPER  MOVE  AND  ERASE CHR$  OPEN # AND  OVER  REM  CLOSE # NEW  MERGE  STOP  VERIFY  NEW  BEEP  PAPER  FORMAT  NEW  MOVE  STOP  ERASE  NEW  OPEN # REM  OVER  CLOSE # MERGE  VERIFY  BEEP  FORMAT  MOVE  ERASE  OPEN # OVER " CLOSE #& MERGE  PAPER  VERIFY & BEEP " FORMAT & MOVE * ERASE & OPEN #" OVER F CLOSE #Z MERGE F VERIFY B BEEP F FORMAT J MOVE F ERASE B OPEN #F OVER INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗u▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚w[T]▗▚INKEY$[G]{Kz▘LN RNDK LLIST zG▚gaEATTR IN AS RETURN =[L]<>TAN ▚INT SCREEN$ [M][I]INT INT Y[T]<>POINT I REM |WEGQ[RNDaATTR K DATA zU[S][I]A BORDER VAL$ [M]▗[C]EVOE[C]bOaINT KFzINKEY$▗{SGN RNDKFzINKEY$▘{KFzINKEY${[M][C]KFzINKEY$▙{ BRIGHT KFzINKEY${+MSCREEN$ O BORDER AT SCREEN$ [Q][G]rK▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗ MOVE ©G CIRCLE }E MERGE cACS  NEW }KRND▚▝[C]▝PI CLOSE #▘[M]▚INT  REM [F]YPOINT wLN ▚ STEP [E]xW|j▞▘POINT INKEY$q▜[R]t GO SUB s▘POINT [E]|WxINT w▘LEN [E]|Wx▗IN ▙ FOR A© RETURN )N&}_ REM ▚ SAVE ' READ LN ASN G1} VERIFY [M]r CLEAR I DRAW [G]zINT SCREEN$ [C]zUz[M]VAL$ INKEY$k▜+INT O[P]F }[J]YRND▘ BORDER INT  RANDOMIZE _|[L] DRAW LN H©▘EXP [E]xMiASN ▚▗gIxATTR  GO SUB [F]▘ BRIGHT ▜▗EXP i6RND[I] OUT [H]▗ LINE  RANDOMIZE [E]o4[RND[K]BIN ▜▗[K][F] RANDOMIZE [E]G CONTINUE INT  ERASE I>=}[U]RNDICHR$ }[VAL$ ©k OUT ©SGN y]k CLEAR SI STEP }_RND%©ATTR ▟▚I<>}[VAL$ /©k OUT *©SGN /a]k CLEAR [I STEP }WRND©[D]▟▚ILEN }[VAL$ ©k OUT ©SGN y]k CLEAR CI STEP }_RND*©[L]▟▚I<>}[VAL$ ©k OUT 3©SGN 0q]k CLEAR [I STEP }GRND3©[D]▟▚ISTR$ }[VAL$ 5©k OUT USR ©SGN 9y]k CLEAR SI STEP }_RND8©▛▟▚I<>}[VAL$ J©k OUT A©SGN BA]k CLEAR [I STEP }WRNDA©[D]▟▚I MOVE }[VAL$ K©k OUT F©SGN Ky]k CLEAR #I STEP }_RNDV©[L]▟▚I<>}[VAL$ H©k OUT W©SGN /q]k CLEAR [I STEP }gRND_©[D]▟▚ISTR$ }[VAL$ Y©k OUT D©SGN ey]k CLEAR SI STEP }_RND©j▟▚I<>}[VAL$ ©k OUT ©SGN &a]k CLEAR [I STEP }WRNDd©[D]▟▚I LET }[VAL$ f©k OUT m©SGN ny]k CLEAR CI STEP }_RNDm©[L]▟▚I<>}[VAL$ ©k OUT r©SGN wq]k CLEAR [I STEP }GRND{©[D]▟▚ISTR$ }[RND[O]xk OUT LN xSGN ▝~]k CLEAR SI STEP }_RNDr©▛▟▚I<>}[VAL$ |©k OUT {©LN [E][T]i COPY ]O CAT ©MWRND▚BIN [D]▗▙INT YPI▗ LINE [F]▚TAN [E][RND▘ CLOSE #[H]▗SIN INT [G]Y[T][U] OVER [F] REM ▗LN [E]_RND! BRIGHT ▛[G]▚INT [C]YPIC ERASE [F][E]▗SGN [E][RND BRIGHT [H][G]▘INT [G]YATTR  OUT [F][A]▗LN [E]GRND[R] INVERSE [D][G]▚INT [K]YPINOT  FLASH [F][E]▗▗[E][RND▘ BRIGHT [H][U]INT [G]Y[T] OVER [F] CLOSE #[M]LN [E]_RNDH POKE [L] LINE [M]YPISTR$ ▝[F][E]▗SGN [E]PI!U▙ DRAW PI▙BIN * LET  COPY [R]▟ DRAW ;[U]rM▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗y▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗z▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗ IF ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗INT ▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗▗▚▗▘▗▚▗{▗▚▗▘▗▚▗▗▚▗▘▗▚▗[K]▗▚▗▘▗▚▗y▞Hf CLOSE #H_ CLOSE #[K][D]^▙Ha CLOSE #[A][D]^▙Q[M]+ATN ]▚Y▚ IF SGN ^▜ THEN ▗B VERIFY EXP ▗: VERIFY SGN ▚ INK F OPEN # CLS u▞[T][D]@[K]) FLASH  LIST [P]▝[H]▚INT LN BIN  AND  DRAW  AND BIN ▗INT  SAVE BIN  SAVE USR  AND  IF ▗LN BIN BIN CHR$  AND INT ▗[K] DRAW CHR$  AND USR USR  RETURN ▗ IF  AND  SAVE CHR$ BIN  SAVE ▗z IF  AND  SAVE CHR$ BIN  AND ▗LN BIN BIN  TO  AND INT ▗[K] AND BIN  IF USR  AND BIN ▗INT ▙LN ▗INT ▚▗▚USR  AND INT ▗USR  DEF FN  POKE  LINE USR BIN ▗[K]BIN  AND BIN CHR$ BIN  SAVE ▗ AND  LPRINT  OVER USR  AND BIN ▗ IF  AND  DATA  VERIFY >=CHR$ BIN ▗LN BIN  AND USR  AND INT ▗[K] SAVE BIN  AND  RETURN BIN  AND ▗LN BIN  AND  FORMAT  DEF FN INT ▗INT  SAVE BIN  AND  RETURN USR BIN ▗LN  AND LN  AND INT ▗[K]z[G][E][C][E][G]▗ AND BIN  AND USR  AND INT ▗ NEXT  COPY  COPY > OPEN # RETURN >?NOT ▘= GO SUB GNOT NOT 'NOT r/<>bkNOT ##6+SGN   IF  COPY  COPY  COPY  COPY  COPY  CLS <>ATN  GO SUB R#05(5( NEXT +"TAN /CODE >FN { FOR 1`"_!y RESTORE !/= RESTORE ! GO SUB LN NOT V*"_ PRINT ><>2_ LET *_NOT _ FOR #"{/+@ GO SUB C8/"SIN /!<"6/*SIN /6>+ RANDOMIZE ++"=/ MERGE  GO SUB V CLEAR !:/!ACS /NOT  OVER p"%&)*-.6:BCEI COPY (xJ=A" RUN  RUN mW LOAD  CAT  NEXT ▙ COPY [N]uW LOAD  CLEAR  COPY ;"wh?w RETURN  COPY  RUN ▟V1 STEP  RUN [D] OVER uW COPY  BORDER ?SGN "w©0#&"&"&o0>▝ CLS  LOAD LN  NEXT  BORDER  RANDOMIZE  BORDER ▝ LOAD  INPUT } DEF FN 9 RETURN y LLIST  COPY  RANDOMIZE  SAVE  RETURN  COPY STR$  COPY  COPY  COPY ATN [M]▜[P]LN  NEXT  COPY ▜[O]▜=<=SGN  LLIST  LLIST  BORDER ▝ RETURN p DRAW  DRAW USR A" RUN  COPY  FOR SQR  LOAD  LOAD  COPY  INPUT  COPY  COPY { LOAD  LOAD  CLEAR  COPY  COPY ";h+wPEEK " LPRINT jVAL$ "w©0!" COPY  COPY  COPY """& RETURN ~▝ CLS  OVER 9 LET  LLIST  READ  BORDER ▝ NEW  INPUT  LET  DEF FN xx RANDOMIZE  LLIST  COPY  NEXT  PAUSE  RETURN <=▝ COPY  COPY  COPY  COPY  NEXT  CAT ▜[O]▜} LOAD = READ  LLIST  BORDER ▝ RETURN  SAVE  RANDOMIZE  DRAW B" RUN  RETURN o_ LOAD  LOAD  COPY  RETURN  COPY  LET u OUT  LOAD  CLEAR  COPY  NEXT 0";0?"VUSR u^"wn0!" COPY  COPY  COPY """& INPUT  BRIGHT  LIST ▝ COPY  OVER 9 LLIST  READ  READ <= LIST  LPRINT  LET  OVER x SAVE  LET  LLIST  COPY  RUN  RUN  RETURN ▞ COPY  COPY  COPY  LOAD o8[P]? BORDER <= CAT PEEK  CAT  CLEAR  COPY ? READ  READ  LOAD ▝ DRAW  PAUSE  NEXT  DRAW %" COPY "© LIST ",STR$ ?IN  TO  DRAW  CIRCLE | TO  RETURN FN h▞ DRAW X"?" RETURN "© DRAW 2" COPY  COPY  COPY ""8""& LOAD  SAVE x COPY  BRIGHT 9 READ NOT  READ  COPY p LIST  LLIST  OVER p SAVE  COPY  LLIST  COPY  BORDER  COPY  RETURN  COPY  COPY  COPY  LOAD  RETURN [P]? BORDER ▜ CAT PEEK  COPY  RANDOMIZE  RETURN ?NOT  READ  LOAD ▝ CLEAR  RUN  RUN  DRAW &" COPY "© DRAW "<<> LLIST P TO SGN  FORMAT < DEF FN ©X[D] COPY h"? RETURN "© SAVE 2" COPY  COPY  COPY "`USR  LPRINT ~ SAVE NOT |< RETURN 0STR$ " COPY  COPY  RETURN  COPY  COPY  COPY  FLASH | COPY  BRIGHT 9 BORDER NOT <= COPY  LIST  LET  LLIST  OVER p LET  COPY  LLIST  COPY  CAT  COPY  LIST  COPY  COPY  COPY  INPUT  OVER ?<= CAT < COPY  RANDOMIZE  RETURN NOT NOT  CAT  RANDOMIZE  COPY  CAT  DRAW &"ATTR "jVAL$ "4<>7 LOAD PEEK  GO TO SGN  CIRCLE ~ TO [P]{ INPUT [D]m▞?x"? COPY  COPY  COPY " LET  READ  LIST  COPY  CLEAR  BORDER  RETURN ~; COPY y LLIST " COPY  COPY USR  COPY  COPY  COPY ▜ OUT  SAVE  COPY SGN y COPY ▜ CAT  COPY  RUN  RANDOMIZE NOT  BRIGHT q NEXT  COPY STR$  COPY [N] COPY BIN  COPY  COPY  COPY ▜ LOAD  DRAW ▜ CAT < RETURN  LIST  DRAW NOT  CAT  NEXT  COPY [P] DRAW `&"W"uV"w01 NEW  COPY  SAVE  LOAD ^ CLEAR  INVERSE  COPY  COPY  OUT  BORDER u BEEP  COPY  LOAD IN  CAT 0"?30A" COPY  COPY  COPY " LET  BORDER  LIST  COPY  CAT  CLEAR  BORDER ▝ RETURN  RETURN ?; COPY y LLIST " COPY  DRAW @ COPY  COPY  COPY  DEF FN SQR ▜ OUT LN { COPY  CAT  COPY  LOAD yNOT  BRIGHT  LET  NEXT  COPY STR$  COPY ABS  COPY x COPY  COPY  RETURN  CAT  INVERSE ▚| LPRINT p BORDER  COPY ? SAVE [A] &"ATTR "jVAL$ "wh?? RETURN  COPY  COPY  DEF FN VAL$ y INVERSE  COPY  BORDER [P] COPY jCODE  COPY  LOAD ? RETURN "?©0A"&▝ RANDOMIZE  LOAD  SAVE  COPY  CAT  CLEAR  BORDER ▝ COPY  RETURN © CAT ; COPY y LLIST & LIST  COPY  COPY  COPY ▜IN ▜ OUT LN s COPY <=[P] CAT }<=SGN  LET  LET  COPY STR$  COPY 0~|▜3 COPY  COPY  SAVE ▜▜ OUT " LOAD  COPY © SAVE  COPY  COPY  LIST ATN  DEF FN " STEP  RETURN  COPY  SAVE USR  FLASH  DEF FN " COPY [P] COPY  LIST " DRAW " RANDOMIZE  COPY  COPY  LIST @? COPY  RETURN & RETURN  COPY  OUT  COPY ▜ BORDER  COPY  LIST " COPY  COPY  COPY  SAVE y▝NOT  COPY  COPY  COPY STR$  COPY  CLEAR [U]k COPY  COPY  NEXT  RETURN  OUT  CAT  CAT  RANDOMIZE  LPRINT "© COPY  COPY 8 OUT  COPY  COPY  LLIST  COPY  RANDOMIZE  PAUSE  NEXT  COPY  COPY  CAT /USR " COPY  COPY  COPY &VAL { COPY  RETURN  FOR  COPY  RETURN s COPY  COPY  COPY  RETURN  COPY  COPY & BORDER & RANDOMIZE  SAVE = COPY  COPY  PAUSE o COPY  COPY  COPY  LIST & RANDOMIZE  COPY  COPY  COPY  COPY  LPRINT  COPY ▜"[N] DRAW  COPY  SAVE USR   COPY ▜" COPY ? COPY  LIST " COPY USR " CLS  COPY  COPY  LIST "© COPY & DRAW ?? COPY [P] COPY  CAT  LET  COPY  LIST "& COPY  COPY  DRAW  COPY  CLS u FLASH  COPY  COPY  RUN  COPY [P] BORDER [H] DRAW  LPRINT t" RETURN  DRAW  COPY  COPY ? COPY hCODE  COPY  LET  SAVE |s RUN  BORDER  COPY  COPY  BORDER ©USR "? COPY  COPY  CAT  COPY  COPY  COPY  CLEAR  COPY  CLEAR PI LIST [A] COPY [F]© RETURN  BORDER  COPY  COPY  SAVE  DRAW  COPY & BEEP & LET ; COPY  COPY [S]o COPY  COPY  COPY  LOAD & PRINT  COPY  COPY  COPY  RUN ATN [M]"VAL y COPY  SAVE USR @ COPY ATN [M]" COPY © COPY  LIST " COPY  COPY " CLS  COPY  COPY  LIST " COPY  LIST ?& LIST  SAVE ©? COPY SQR  COPY [H] DRAW  COPY  LIST "&USR  COPY  CLS  LPRINT  SAVE  COPY  CLS Y RUN  COPY  COPY  BORDER  COPY ? NEXT ATN  RETURN `q▖" COPY  COPY  LIST  NEXT  COPY  RETURN  OUT  RETURN USR  BEEP  COPY  LPRINT  LIST  COPY  CAT  COPY  COPY  NEXT  COPY USR "© COPY  COPY CODE ? COPY  COPY ? GO SUB  RUN  RANDOMIZE  RUN 5 LIST A RETURN SCREEN$  DRAW  CAT  COPY  RETURN  IF  COPY & BORDER & STOP @ COPY  COPY $ LOAD  COPY  COPY  COPY [P]& RANDOMIZE  COPY  COPY  DRAW  RUN  COPY VAL  NEXT  COPY  SAVE  COPY  COPY  COPY © COPY  LIST " COPY  COPY  SAVE " RANDOMIZE  COPY  COPY  LIST " COPY  SAVE  LPRINT &▖p COPY © COPY ; RUN ATN  RETURN © LPRINT " COPY  COPY  COPY  LIST  COPY  RUN  RETURN  COPY  IF  CIRCLE CODE  COPY  COPY  STEP  COPY © RANDOMIZE  COPY  OUT  " COPY  COPY  COPY USR  CAT  COPY  CLEAR  OUT  RETURN VAL ATTR  COPY USR  LPRINT © RETURN " COPY  LIST SQR  LIST  COPY  COPY  COPY  FOR &USR  LIST SQR `© RETURN  FORMAT & FOR  COPY  COPY ? COPY  COPY  FOR  COPY SQR  LPRINT  RETURN ©<▟[K]IN  DRAW ©& FOR  COPY  LIST  RETURN  COPY  RANDOMIZE  COPY SQR >= COPY  COPY  RANDOMIZE  MOVE  LIST @gVAL  NEXT :USR _>D2USR  CLEAR ©> GO SUB y:USR W>H2USR > GO SUB y:USR  RETURN H(>>2M▖{2USR > GO SUB yz2USR > GO SUB y! RETURN  RETURN 6 CLEAR  GO SUB VAL >NOT !<>▚2 CLEAR  CLEAR " RETURN  CLEAR > RETURN  GO SUB G GO SUB ^:[ NEW  LIST  THEN ? THEN ? THEN ? THEN ?2[ STEP +ATTR !XX COPY  CLS v6 GO SUB VAL !@@ COPY 6 GO SUB VAL !XX_6F GO SUB VAL CODE  OPEN # RETURN  STEP  FOR ▚ CLEAR !!▖ INVERSE ! LOAD ▜ OR  INVERSE N INVERSE F!@ STEP INT ▚ CLS  CLEAR ^ CLEAR V FOR  INVERSE N INVERSE Fvvvv STEP m INVERSE  CLEAR STR$  STEP  OR x=2▖>vvvv STEP BIN STR$  INPUT >2▖> STEP BIN ![ STEP }▜ THEN O PRINT  TO ?▝ LET  THEN G PRINT  TO c▝ LET  THEN g TO [B]▝![ STEP }▜ THEN O PRINT  TO ?▝ LET  THEN G PRINT  TO c▝ LET  THEN g TO [B]▝>IN  FLASH  RETURN /O>© FLASH  RETURN /LEN  NEW BIN [B]▝NOT  RANDOMIZE  STEP ▖▝v> STEP BIN :▖< RETURN  CODE 2▖ STEP +ATTR > STEP .ATTR >NOT BIN  STEP ▖▝v> STEP BIN :▖= RETURN  COPY  >2▖ STEP +ATTR > STEP .ATTR >NOT BIN CODE  FLASH  RETURN / NEW   SAVE <> STEP ▖▝:▖PI LINE <>▝ RETURN  LINE  RETURN ▝ RETURN  LINE 3▘ RETURN  LINE ▛▘ RETURN  LINE  READ ▘ RETURN  LINE  RETURN  LINE ? RETURN  LINE m RETURN  LINE [L] RETURN  LINE /▗<> STEP /:▖!N▖vPI(=  DRAW ▝@:▖ AND G VERIFY  STEP .ATTR > STEP (ATTR > STEP (ATTR <> STEP /:▖!VAL vPI(=  DRAW [F]@:▖ AND G VERIFY  STEP .ATTR > STEP (ATTR > STEP (ATTR <>:[ RETURN (:▖ RETURN (:▖ RETURN >=:▖ STEP /:▖ RETURN (> STEP .ATTR > STEP (ATTR > STEP (ATTR !J[L]> STEP .ATTR > STEP 1ATTR > STEP (ATTR !CHR$ [I][T]H<>:[ RETURN (:▖ RETURN (:▖ RETURN >=:▖ STEP /:▖ RETURN (> STEP .ATTR > STEP (ATTR > STEP (ATTR !J[L]> STEP .ATTR > STEP 1ATTR > STEP (ATTR ![K][J]ATN H<> STEP /:▖! IF [M] RETURN (> STEP .ATTR > STEP 1ATTR >"[M]aP<> STEP /:▖!SCREEN$ [O] RETURN (> STEP .ATTR > STEP (ATTR > STEP (ATTR ! ERASE [N]iP<> STEP /:▖!Z[Q] RETURN (> STEP .ATTR > STEP 1ATTR > STEP (ATTR !▘[P]qP<> STEP /:▖![S] RETURN (> STEP .ATTR > STEP (ATTR > STEP (ATTR !2[R]yP<> STEP /> STEP .ATTR > STEP (ATTR > STEP (ATTR : ▖!E▖▜o>g RESTORE  INVERSE  LLIST  INK  INVERSE ^ INVERSE V INK  INVERSE !5▖ OR  INK  MERGE  INK  INVERSE n INVERSE f INK  INVERSE n INVERSE f INK vvvv OR  MERGE  OR  MERGE  INK INKEY$# INK ACS #  NEXT  MOVE STR$  GO TO  MOVE > _>▜▜▜WSTR$  CIRCLE  INVERSE  INK  MOVE  INK STR$ VAL vvvv INK  FOR NOT m:M▖ RETURN (> STEP .ATTR > STEP 1ATTR > STEP 4ATTR Fv CLEAR  STEP 2▜ STEP +ATTR !HH COPY 6 GO SUB VAL !YY COPY 6E GO SUB VAL  INVERSE ! STEP ▗:[ NEW G!PI>( CLEAR _ INVERSE !`H" THEN ▗ INVERSE ~ INVERSE #PI LINE 0o&)))< GO SUB [ THEN ▗~#OLEN  THEN ' NEXT  GO SUB [ THEN ▗> _~#OLEN  PRINT ! THEN ▗4NOT ▞▗             LOADING                      CHARGEMENT                        CARGANDO            !▖[A] GO SUB VAL ![ GO SUB VAL ! STEP EXP 0 RETURN  STEP  GO SUB VAL ![O]LN / GO SUB VAL NOT !▖o>g~<SQR  CODE w<> RESTORE  OR  MERGE  INK  MOVE z NEW  PLOT  XW LLIST  MERGE |▜▜▜_}!=  DRAW  MOVE STR$  INK  CLS v MERGE  OR  MERGE  OR  GO SUB VAL STR$  MOVE  PRINT  INK STR$  OR  MERGE  GO SUB VAL  MOVE > _>W INK STR$  MOVE > _>▜▜▜▘W CAT <> INVERSE ! LOAD ▜:▖▜▜_ INVERSE  INVERSE N INVERSE F INVERSE n INVERSE fNOT  READ [C]PIPI( PAPER PI GO SUB SACS ▚"LN ▚!@xPI( STEP INT ▚ CLS  FOR  STEP ▚ MERGE  STEP [T]▚ GO SUB SSIN ▚ MOVE :LN ▚G*ACS ▚ STEP ▚ IF *ACS ▚ STEP ▚ STEP [T]▚:EXP ▚*ACS ▚6 STEP ▚ STEP [T]▚ GO SUB STAN ▚ GO SUB [SIN ▚*ACS ▚ STEP ▚ STEP [T]▚ GO SUB SSIN ▚ GO SUB [TAN ▚=  OPEN #$*ACS ▚ STEP ▚*ACS ▚?:LN ▚G STEP ▚ IF *ACS ▚- STEP ▚<> PRINT  OR  RESTORE  MERGE z NEW  PLOT  XW GO SUB [Q] MOVE  MERGE  IF  MOVE  LLIST STR$  LET <> PRINT > _>▜▜▜▘W LET <> PRINT > o>▜▜▜▗g LET <> PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  INK  PRINT  OR  RESTORE  MERGE  STEP "ATTR  MOVE  LLIST STR$  LET  INK  CLEAR  LLIST  INVERSE  LLIST  LLIST  MOVE STR$  LET  CLS  GO SUB M CLS !VAL [I]@ RESTORE  OR  STEP ▜STR$  LLIST  INPUT  COPY  MOVE  LIST <>v RESTORE !X+}TAN   CLS  LLIST A GO SUB VAL STR$  MOVE  STEP #▜ NEXT <>z NEW USR { AND  _ CIRCLE z VERIFY W<> CLS !X"FN  GO SUB VAL !"FN  OR ^{ NEW (= NEW W{ NEW  SAVE SIN _{ NEW 8( VERIFY  NEW 8W{ NEW <=SIN _{w#xLEN   PAPER !"FN Xv GO SUB VAL STR$ BIN <>~2 INPUT ▜>o>g: INPUT ▜PI  OR ~+ STEP  ERASE ▜ THEN STR$  PRINT {/<> OR ~+ STEP  ERASE ▜ THEN STR$  PRINT  STEP ACS ▜{/<> FLASH  OUT  THEN  PRINT  THEN  LET  THEN  PRINT  THEN  LET  THEN <>O NEW <G THEN 9 THEN 9 THEN 9>[B]O> RETURN  CLEAR  FLASH  RETURN   DRAW ?<>:▟VAL CHR$ [I]J[L] IF [M]SCREEN$ [O]Z[Q]2[R] STOP [S]r[K][C][U] PAUSE [U]RRNDSIN RNDINKEY$rINKEY$ ERASE INKEY$2PI STOP [S]N[T]INT [T]&[U] 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  RETURN POINT  COPY  COPY  COPY  COPY  COPY  CLEAR T COPY  COPY  COPY  COPY  COPY  IF [Q]© COPY  COPY  COPY  COPY  PRINT ? COPY  COPY  COPY  COPY  REM IN  COPY  COPY  COPY  COPY  STEP U© COPY  COPY  COPY  COPY  AND SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LINE  COPY ? COPY  COPY  COPY  LPRINT U COPY  COPY  COPY  COPY  COPY 8 COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  OUT  COPY  COPY  DRAW  DRAW ? COPY ? COPY  COPY  RANDOMIZE  RANDOMIZE  DRAW @ COPY  COPY  IF  IF @"© COPY  IF  IF  © COPY  IF  IF  © COPY  IF  IF `© COPY  CLEAR  CLEAR © COPY  RETURN  RETURN  LPRINT @ OUT  COPY  COPY  COPY ?[P] COPY  COPY  COPY  LIST  COPY  COPY  COPY  SAVE  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  RETURN ? COPY  COPY  COPY  COPY © COPY  COPY  COPY  RETURN © COPY  COPY  LIST ? COPY  COPY  COPY  COPY  CIRCLE  CLEAR  COPY  COPY  TO <= SAVE  SAVE  DRAW  AND d LIST  LIST H DRAW c$ LPRINT  LPRINT   RETURN 1USR USR  COPY  CAT USR USR  COPY /8K COPY <=_P COPY ▘IN 8!<=©T▛ COPY :▜ COPY ]▛▛ COPY *▛ BEEP  MERGE  COPY ||] CLEAR © COPY 88* IF  RETURN  COPY ]C CLEAR [F]©* CLS IN  AND  AND ]G RUN ©ll*PI RETURN IN 88]G PLOT  _SCREEN$ CODE  INPUT (IN @@88@@88@@010008@@000008@@@@p00@@1 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  REM ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  MERGE T© COPY  COPY  COPY  COPY  COPY  COPY CHR$ FN © COPY  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  BEEP [P]? COPY  COPY  COPY  COPY  COPY  COPY  FLASH  COPY ? COPY  COPY  COPY  COPY  COPY  COPY  LIST  COPY  COPY  COPY  COPY  COPY  COPY  RETURN 3 LIST  COPY  COPY  COPY  COPY  COPY  COPY  DRAW d NEXT  COPY  COPY  COPY  COPY  COPY  COPY  SAVE  CIRCLE  RUN  COPY  COPY  COPY  COPY  COPY  COPY  LET LEN  COPY  COPY  COPY  COPY  COPY  COPY  COPY NOT b©SCREEN$ IN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN ▞ IF *! COPY  COPY  COPY  DRAW  RUN  POKE  COPY  COPY  COPY  DRAW { DATA USR  OVER  COPY  COPY  COPY  DRAW 9 POKE USR  PAPER  COPY  COPY  COPY  DRAW  RANDOMIZE  REM BTAB  COPY  COPY  COPY  RETURN 1 POKE ▝W COPY  COPY  COPY  COPY  LLIST POINT  COPY  COPY  COPY  COPY 0STR$ p COPY  COPY  COPY  CLS ▝( COPY  COPY  COPY  LET USR 0© COPY  COPY  SAVE  READ  COPY `© COPY  COPY  TO  COPY  COPY aUSR © COPY  COPY ▚ COPY  COPY © COPY  COPY  COPY  COPY © COPY  RETURN  COPY  COPY ▘ COPY  COPY  DRAW  COPY  RANDOMIZE ▘ COPY  COPY  SAVE  COPY  LPRINT ▝  COPY  COPY  SAVE  COPY [Q]USR USR STR$  COPY  COPY  LIST  COPY [S] LPRINT ? RETURN  COPY  LPRINT  RETURN [U] LIST  COPY ©USR + NEW  DIM  DRAW  RETURN ?[D][E] COPY ? DRAW *OSCREEN$ @ COPY  CLS  SAVE 9T ? NEXT  DRAW . STOP SCREEN$ ©<= RANDOMIZE WTU 7▜ POKE ATTR SCREEN$ [A], CAT  CONTINUE U]@ CAT  POKE  SCREEN$  REM [A] OUT  CONTINUE DU}H OUT  MERGE USR *INT  COPY VAL$  LPRINT _ CLEAR  COPY  CLOSE # SAVE  COPY  IF I COPY  COPY  COPY  CLEAR ▜ NEXT  VERIFY  COPY  COPY  COPY  RETURN O RESTORE  LINE  COPY  COPY  COPY  COPY P' LINE  NEW / COPY  COPY  COPY  RETURN SCREEN$  MERGE  REM [C] COPY  COPY  COPY  COPY UW REM  BORDER 888H888800880000008880000008H100p COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LLIST  COPY  COPY  COPY  COPY  COPY  COPY  RETURN ?NOT  COPY  COPY  COPY  COPY  COPY  COPY  READ ▜ COPY  COPY  COPY  COPY  COPY  COPY [J]NOT O COPY  COPY  COPY  COPY  COPY  COPY ~>[P] COPY  COPY  COPY  COPY  RETURN  PAUSE }? COPY  COPY  SAVE  COPY  RETURN  INPUT  IF © COPY  COPY  COPY  RETURN  REM  POKE  OUT  COPY  DRAW  COPY  CLEAR  VERIFY POINT  OUT  COPY  THEN  COPY  CLEAR ASN ATN IN  RETURN  COPY USR % COPY  CLEAR RND=© CLEAR  COPY  LET  ERASE  COPY  CLEAR e COPY  CLS  COPY  IF RND COPY  CLEAR E[N] COPY  RUN  COPY  COPY " COPY  RETURN  NEXT © LOAD  COPY  COPY  RESTORE  COPY  RETURN ▗ COPY  COPY  LLIST L:© COPY [L]U COPY LN  NEXT  COPY  COPY 0ATTR  RETURN NOT [H] COPY  COPY  INPUT W SAVE f COPY  SAVE + LPRINT ? COPY  COPY  LIST  LPRINT  COPY  COPY  LIST ?/USR  COPY  COPY  LIST 8©_USR  COPY  COPY  CLS  INPUT > COPY USR ? COPY  COPY  RETURN ▝ TO  COPY USR © COPY  COPY VAL | RETURN  LPRINT @© COPY  COPY STR$ ▗a DRAW  LPRINT @ COPY  COPY  COPY  RETURN ▜ LIST  LPRINT  COPY  COPY  COPY  RETURN  DRAW  LLIST  LIST  COPY  COPY  COPY  RETURN  DRAW +USR  SAVE  COPY  COPY  COPY  DRAW  DRAW  BEEP  DRAW # COPY  COPY  COPY  COPY  COPY  DRAW  COPY c COPY  COPY  COPY  COPY  COPY USR © BORDER  COPY  COPY  COPY  COPY  COPY  COPY  BORDER  COPY  COPY  COPY  COPY  SAVE ~ LOAD  COPY  COPY  COPY  COPY USR = LOAD  COPY  COPY  COPY  LIST  COPY  COPY  COPY  COPY USR / COPY  COPY  COPY  COPY _ COPY  COPY  COPY  COPY IN  COPY  COPY  COPY  COPY Pc COPY  COPY  COPY  COPY (▘ATTR  COPY  COPY  COPY  COPY  COPY UEW COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ IN ATTR  COPY  COPY  COPY  COPY  MERGE AW COPY U COPY  COPY  COPY  COPY SCREEN$ SCREEN$ CODE  RETURN INT  COPY  COPY  COPY  COPY  OR U© CLEAR m© COPY  COPY  COPY  LPRINT ATTR  COPY  IF PEEK IN  LET _ RETURN  PRINT ]© COPY  COPY  CLS  CONTINUE SCREEN$ IN  CLEAR  COPY  MERGE  POKE U_ DRAW ATTR INT SCREEN$ +CODE  RETURN  INVERSE T OUT  COPY VAL$ INT  LOAD  COPY UmU BEEP 88xxxxH8xxxx002xxxxxxxxxpxx8888@@@G COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN w COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW 9 COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  SAVE Q COPY  COPY  COPY  COPY  COPY  SAVE ? LIST # COPY  COPY  COPY  COPY  COPY  LIST  LIST U COPY  COPY  COPY  COPY  COPY  LIST  LIST + COPY  COPY  COPY  COPY  COPY  LIST U COPY  COPY  COPY  COPY  COPY  LIST + COPY  COPY  COPY  COPY  LIST ▘U COPY  COPY  COPY  COPY  SAVE  LIST +P COPY  COPY  COPY  COPY  DRAW *~WSCREEN$ © COPY  COPY  COPY  COPY  COPY  COPY  PRINT ? COPY  COPY  COPY  COPY  COPY  RETURN SCREEN$ IN  COPY  COPY  COPY  COPY SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  MERGE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ATTR  CLEAR _W COPY  COPY  COPY  COPY  COPY  COPY  OPEN # IF SCREEN$ ATTR  COPY  COPY  COPY  COPY  COPY  COPY  READ  LIST  PRINT  RUN  COPY  COPY  COPY  COPY  COPY  COPY  READ 1 COPY  COPY  COPY  COPY  COPY  COPY  STOP  COPY  COPY  COPY  COPY  COPY  COPY BIN >= COPY  COPY  COPY  COPY  COPY  COPY  OR USR  COPY  COPY  COPY  COPY  COPY  COPY >= THEN  COPY  COPY  COPY  COPY  COPY  COPY ▗<= COPY  COPY  COPY  COPY  COPY  COPY  AND ▛ COPY  COPY  COPY  COPY NOT  LOAD ▘PwG COPY  COPY  COPY  RETURN  COPY  kPI COPY  COPY  COPY  LPRINT  COPY PWG COPY  COPY  RETURN D COPY ATTR ▜ COPY  COPY  SAVE  STOP W▚ COPY  COPY  LIST  STOP STR$ ▟ COPY  COPY  LPRINT  VERIFY STR$  COPY  COPY USR /ATTR  LLIST [M] COPY  COPY _ MERGE  LET  COPY  COPY IN  FOR  RANDOMIZE 3©© PRINT  DRAW ''/* COPY  IF  RETURN ©_EU CLEAR u CAT  NOT IN [S]ATTR  REM SCREEN$ O=STR$ ▖ COPY  MERGE ©UWgx DRAW <> BEEP  CLS  REM  COPY  RETURN 3USR  LET  AND jATTR  COPY  COPY  COPY  COPY  COPY  LLIST NOT  MERGE  COPY  COPY  COPY  COPY I COPY  BEEP  LLIST ATTR  COPY  COPY  COPY  COPY , COPY / LIST U COPY  COPY  COPY  COPY ▚ COPY / SAVE  COPY  COPY  COPY  COPY  COPY ▘|1 SAVE W COPY  COPY  COPY  COPY  COPY ? THEN  LIST ATTR TAB  COPY  COPY  COPY  COPY ▝▜ LLIST W BEEP  COPY  COPY  COPY  COPY ▜ TO ATTR  LPRINT CODE  FOR  COPY  COPY  COPY  COPY ▞ LET _ LLIST _ PRINT  COPY  COPY  COPY  COPY  OPEN # LINE IN  PAUSE  COPY k COPY  COPY  COPY  COPY  MOVE  MERGE  RUN  COPY  COPY ASN  COPY  COPY  COPY  COPY  BRIGHT  FOR  COPY  COPY  COPY  FOR 88(((((((888(((((((88880000((8(((0000((8((((000(0((((((0(00(888((((00( COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  SAVE  COPY  COPY  COPY  LIST   COPY  COPY  COPY  LPRINT [Q]H COPY  COPY  COPY  STOP  © COPY  COPY ▗[Q]H COPY  COPY  COPY ▘ [F]© COPY  COPY ▗@ COPY  COPY  COPY B© COPY  COPY  DRAW RNDj COPY  COPY  COPY [H] COPY  COPY  LPRINT U_ COPY ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN ATTR  COPY  COPY  COPY  COPY  RETURN  COPY [H] COPY  COPY  COPY  COPY  CLEAR <=<=IN  COPY  COPY  COPY  SAVE [F] LOAD _ COPY  COPY  COPY  CLS + LOAD  COPY  COPY  COPY  COPY  RANDOMIZE © INPUT  COPY  COPY  COPY  SAVE zc© COPY  COPY  PAUSE  LET A COPY  COPY  COPY  POKE  LIST USR © COPY  COPY  RUN  LIST  COPY  COPY  LET p COPY  SAVE  LIST © COPY  COPY  RETURN  DRAW  COPY ▜ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  RETURN  COPY  DRAW  COPY  COPY  COPY ©USR  DRAW © COPY  COPY  LPRINT x© COPY  COPY  RUN  LIST © COPY  COPY  COPY  DRAW  COPY  COPY  COPY  NEW  COPY  LPRINT  COPY  COPY  COPY % COPY  COPY  COPY  COPY  COPY  DRAW &/ COPY  COPY  COPY  COPY  LIST #V COPY  COPY  COPY USR a DRAW # COPY  COPY  COPY [A] < COPY  COPY  LIST H C? COPY  LLIST ▗!FN <= COPY  LET &T9 COPY <> SAVE ▚ COPY <>@T[P]BIN [Q]/*[P]BIN [A]VCODE CHR$ [Q]^/CHR$  FORMAT (NOSTR$ FN T@_ LPRINT [A]FN /[P] LPRINT POINT PV*▞[P]8(((((((((((((((0000880000008((0000((((((8((((((( COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LIST  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  COPY  COPY  COPY  RETURN  COPY  COPY  LPRINT  COPY  COPY  COPY  LPRINT $ COPY  COPY  LPRINT  COPY  COPY  COPY ▞RO COPY  LIST  COPY  COPY  DRAW E@' COPY  DRAW  COPY  COPY  SAVE [B][D] BORDER  DRAW  COPY  COPY  LET FN @) BORDER  DRAW  COPY  COPY  LIST ▞@D<= SAVE  COPY  COPY  STOP $*▙ SAVE  COPY  COPY  RESTORE HPWTG DRAW ? COPY  COPY  STOP [S] REM  DRAW ? COPY  COPY <>UDW PRINT  DRAW ? COPY  COPY  CLOSE # CLEAR o IF CODE  SAVE  COPY  COPY ▞IN  COPY  CLEAR _ LIST  COPY  COPY [C]SCREEN$  STOP ? COPY  COPY USR  COPY  COPY QCHR$  COPY  COPY ? COPY  COPY SCREEN$ BIN POINT  COPY  COPY ? COPY  COPY [E]U OR  LIST ©© COPY  COPY ▘▛CHR$ ` COPY  COPY  COPY BIN  DATA  LPRINT ▝ COPY  COPY  COPY  LINE  PAUSE  <= COPY  COPY  NEXT  POKE  CLS  RANDOMIZE  COPY  COPY  FOR  COPY  DRAW ▘? COPY  COPY  IF >S RETURN <© COPY  COPY  AND SGN  CLEAR IN  COPY  COPY  COPY SGN y[P] LLIST  CLEAR  COPY  COPY  COPY | SAVE STR$  COPY  COPY  RETURN  DRAW `g▚ COPY  COPY  DRAW ! RETURN ( READ + COPY  COPY  COPY  NEXT  RETURN  LIST  OPEN # COPY  COPY <= COPY  CONTINUE  READ  COPY  COPY E LOAD  COPY  POKE  COPY  COPY  COPY [P] COPY  COPY  IF  COPY  COPY  READ 0? CLEAR } COPY  COPY  NEW h RETURN .[Q] COPY  COPY  GO TO <= COPY  DRAW U@ COPY  COPY  FOR [A] DRAW ' REM / COPY  COPY  NEW $# SAVE  CLEAR @ COPY  COPY  DATA C COPY  COPY [Q] COPY  COPY  LPRINT ▜ COPY @ COPY  CLOSE # COPY  COPY  LET  COPY  USR  LOAD  IF / COPY  COPY  PAUSE  CLEAR D LPRINT  LOAD  CLEAR _ COPY  COPY  PAUSE  IF ▘ SAVE  CAT  RETURN IN  COPY  COPY  IF  MERGE d RETURN [P] COPY  COPY  COPY  COPY  DRAW SCREEN$ LN  COPY ATTR  COPY  COPY  COPY  COPY  DRAW  MERGE V COPY [E] COPY  COPY  COPY  COPY  DRAW FN FN © COPY  COPY  COPY  DRAW WPeP? COPY  COPY  COPY  DRAW /FN [Q] COPY  COPY  COPY  DRAW WUSR  COPY  COPY  COPY  DRAW /[S]|▛ COPY  COPY  COPY  DRAW BIN ▟ COPY  COPY  COPY  DRAW  REM ▖ COPY  COPY  COPY  DRAW  PRINT T© COPY  COPY 8888888888888888888880880000880000000088000000008800((5(008800((((((888`USR  LPRINT ~ SAVE NOT |< RETURN 0USR  LET  READ  LIST  COPY  CLEAR  BORDER  RETURN ~; COPY y LPRINT  LET  BORDER  LIST  COPY  CAT  CLEAR  BORDER ▝ RETURN  RETURN ?; COPY y LPRINT  RANDOMIZE  LOAD  SAVE  COPY  CAT  CLEAR  BORDER ▝ COPY  RETURN © CAT ; COPY y LPRINT  CLS  LOAD LN  NEXT  BORDER  RANDOMIZE  BORDER ▝ LOAD  INPUT } DEF FN 9 RETURN y LPRINT  CLS  OVER 9 LET  LLIST  READ  BORDER ▝ NEW  INPUT  LET  DEF FN xx RANDOMIZE  LPRINT  COPY  OVER 9 LLIST  READ  READ <= LIST  LPRINT  LET  OVER x SAVE  LET  LPRINT  COPY  BRIGHT 9 READ NOT  READ  COPY p LIST  LLIST  OVER p SAVE  COPY  LPRINT  COPY  BRIGHT 9 BORDER NOT <= COPY  LIST  LET  LLIST  OVER p LET  COPY  LPRINT  COPY SGN y COPY ▜ CAT  COPY  RUN  RANDOMIZE NOT  BRIGHT q NEXT  COPY USR  OUT LN { COPY  CAT  COPY  LOAD yNOT  BRIGHT  LET  NEXT  COPY USR  OUT LN s COPY <=[P] CAT }<=SGN  LET  LET  COPY USR [P]LN  NEXT  COPY ▜[O]▜=<=SGN  LLIST  LLIST  BORDER [P]ABS  NEXT  CAT ▜[O]▜} LOAD = READ  LLIST  BORDER [P]? BORDER <= CAT PEEK  CAT  CLEAR  COPY ? READ  READ  LOAD [P]? BORDER ▜ CAT PEEK  COPY  RANDOMIZE  RETURN ?NOT  READ  LOAD ?<= CAT < COPY  RANDOMIZE  RETURN NOT NOT  CAT ▜ CAT < RETURN  LIST  DRAW NOT  CAT | LPRINT p COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ;SQR LN  COPY  COPY  COPY ;SQR LN  COPY  COPY  COPY  COPY  COPY  COPY ;SQR LN  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  RETURN  COPY  LOAD  LOAD <=USR <= LOAD  LIST  LOAD  COPY x= COPY  OVER > SAVE  NEXT  CAT © CLEAR  READ NOT  CLS USR IN USR  LET  LIST USR { SAVE ?SGN USR  OVER  RUN  LIST USR  READ  LPRINT USR  OUT  RUN USR  RETURN  RETURN USR ||USR  RETURN  RETURN USR  OUT  RUN USR  READ  LPRINT USR  OVER  RUN  LIST USR { SAVE ?SGN USR  LET  LIST NOT  CLS USR IN  CAT © CLEAR  READ  OVER > SAVE  NEXT  COPY x= COPY  LOAD  LIST  LOAD <=USR <= LOAD  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY QQQQQQQQQQQQQQQQQQQQQQQQ? COPY  LPRINT  COPY STR$  COPY  RUN  LIST  COPY  NEXT  COPY  RUN  LIST  COPY  CLS  COPY  CLS  LIST  COPY  CLEAR  COPY  CLS  LIST  COPY  CLS  LET  CLS  LPRINT  LLIST  BORDER  LET  CLS  LPRINT USR G LPRINT  CLS  LPRINT  LPRINT  CLS  LPRINT  LPRINT  CLS  LPRINT  LPRINT  CLS  LPRINT  CLEAR  LPRINT  CLS USR  CLEAR  LPRINT  CLS USR  RETURN  LPRINT  CLS USR  RETURN  LPRINT  CLS USR  COPY ` CLS USR ?` CLS USR ` CLS ` CLS ` CLS q CLS USR ?q SAVE  LIST  COPY © CLS  COPY  RETURN © CLS  COPY  RETURN  COPY  RUN  COPY  CLEAR  COPY  RUN  COPY  SAVE  COPY  LOAD ? LPRINT ?[P]OOOOOOOOOOOOOOOOOOOOOOOO© COPY  COPY  COPY  COPY  RETURN IN WSQR ASN SQR  COPY IN  COPY  COPY  COPY  COPY  CLEAR [B][N] INVERSE  INVERSE  INVERSE  INVERSE STR$ ▖▖▖▖▖▝▙ INPUT  INPUT  INPUT  INPUT  LLIST ▗DDDDA▜wwwwq[A]▖▖▖▖▝[O] INPUT  INPUT  INPUT  INPUT  LET © COPY  COPY  COPY  COPY  RETURN  COPY  COPY  LIST  (POINT  DRAW 1>=C(POINT  RETURN  GO TO  RUN +POINT ~ CLS t RUN *▞ACS  RUN * PLOT   RETURN 3*POINT USR POINT  LOAD ? COPY  COPY 6`© DRAW  OVER  OUT USR  GO TO PIUSR p SAVE k▛wUSR |{]USR  THEN nUSR <? LPRINT  CONTINUE 9 LIST [I]P@ SAVE xUSR  SAVE >=_USR  BORDER VAL /@ OUT c BEEP LN  COPY  OUT <= LPRINT |' PAUSE  BRIGHT <=ABS  PAPER <[NOT  NEXT  BEEP ? STEP [A] COPY ? SAVE  COPY OOOOGGOGFNOOOFHH COPY ~~~POINT ~9~~POINT ~~~POINT ~ CLS ~~▞~~~~ PLOT  ~~POINT POINT ? COPY ~`~©~~ OUT ~~~PI~~~p~~~k~~~w~|~] TO USR ~8~~~ CONTINUE ~~~[I]~~~x~USR ~~>=~USR ~~VAL ~@~?cLN  COPY  LPRINT ~ PAUSE ~~~ABS ~~~<~~~NOT ~~~?~~~ COPY ~~ SAVE OOGOFONH COPY  COPY © LOAD <= LIST  COPY o_ LPRINT  CLEAR  COPY wIN  LIST  RETURN  COPY ACS  OUT  SAVE ? COPY ©VAL$  COPY  DRAW ? COPY  COPY  GO SUB  COPY  DRAW ?H RETURN ? RETURN A$ RETURN  [C], RETURN  ▗C RETURN D< DRAW  DATA  IF B SAVE 9 POKE ▝ LPRINT  COPY  FOR  COPY  COPY  FORMAT  COPY  COPY [Q] OVER  CLS  CLEAR  GO TO [A] RUN ? IF  LPRINT  BORDER 4 LPRINT @hUSR  FORMAT  [Q]" IF @@ POKE @@(P[Q] AA"B▝AAAiAAAMONMAAANNAEEEFFEE COPY ~~ COPY ~~~ LOAD ~~ LIST ~o~ LPRINT ~ CLEAR ~w~ LIST ~ RETURN ~ACS ~ SAVE ~ COPY ~VAL$ ~ DRAW  COPY  GO SUB  DRAW ?H?~~~~~~~[C]~,~~▗~C~~D~<~~ DATA ~B~9▝ COPY  FOR ~ COPY ~ FORMAT ~~ COPY ~[Q]~~ CLS ~ CLEAR ~[A]~ RUN ~ IF ~~ BORDER ~4~~~h~ FORMAT ~~@~~~@~~~~~~~~~~ ~A~~"BAiAAOMANEEFETINT PEEK TAB [Q]▘ASN STR$  MERGE @INT  COPY TAB  [S]ASN UUINT SCREEN$  GO SUB A!wUV▗kSCREEN$  REM uUv[A]▝j COPY SCREEN$ ▘w MERGE  VERIFY jSCREEN$ SCREEN$ u MERGE  VERIFY  COPY  COPY  COPY  LPRINT   COPY  COPY  COPY  STOP !jCODE  REM ▗ PRINT  BEEP  VERIFY [Q] COPY  REM  COPY  REM ▖AUw_ PLOT   REM  REM SCREEN$  IF USR WwU~▗SCREEN$  FOR SCREEN$ PEEK ▝_wW^SCREEN$  REM SCREEN$ VAL$ A COPY  PRINT UW[Q] COPY  REM  COPY ATTR ▘u▝Wj FOR ATTR [A]u▝vAINT  FLASH TAB ASN ▝uINT  BEEP TAB $$RASN ▝U  PPH  pPH PPH  0PH COPY  COPY PEEK  COPY ▝▘▝STR$ ▝▝▝ COPY ▝ ▝▝U▝▝▝SCREEN$ ▝▝!▝U▝▗▝▝SCREEN$ ▝ COPY  COPY U COPY [A] COPY j COPY SCREEN$  COPY ▝w▝ VERIFY ▝▝j▝SCREEN$ ▝▝u▝ VERIFY ▝▝ COPY ▝ COPY ▝ ▝ COPY ▝ COPY ▝▝j▝ REM ▝▗ COPY  PRINT  COPY  VERIFY  COPY  COPY  COPY  COPY  COPY  COPY ▖▝U▝_▝▝ REM ▝SCREEN$ ▝USR ▝W▝U▝▗▝SCREEN$ ▝SCREEN$ ▝▝_▝W▝▝SCREEN$ ▝SCREEN$ ▝ COPY  COPY  COPY U COPY [Q] COPY  REM  COPY ATTR  COPY ▝u▝W▝▝j▝ATTR ▝▝u▝v▝▝INT ▝TAB ▝▝ASN ▝u▝▝INT ▝TAB ▝$ COPY ASN  COPY U COPY ( (P(H ((P(((P(H ((P( COPY  COPY  COPY  COPY  COPY  COPY USR USR q>=▖USR ▖K>=▖©<`>=p© LPRINT  BRIGHT  LPRINT 8 RETURN  LPRINT . LPRINT  BRIGHT  LPRINT  LOAD `>=USR  CLS `>=USR 2USR USR USR USR >=AUSR USR  AND #USR  CAT sUSR  TO # LPRINT  TO  LPRINT  CAT  LPRINT  AND  LOAD `USR [P] RETURN USR  FORMAT  COPY  RANDOMIZE USR BIN  COPY USR  DEF FN 8)BIN SCREEN$ #9USR >=8s,USR #@STR$  LPRINT NOT ▘C LPRINT VVVAAVVFVVAAVVVAA COPY  COPY © COPY  COPY  COPY  SAVE > COPY  COPY USR  COPY  COPY 0 COPY  RETURN x COPY  DRAW x© SAVE ~0? LIST  COPY @ LPRINT  LPRINT AUSR ?USR [R]USR TAB IN  FLASH  OVER USR USR @USR [U][Q]USR fVAL  LPRINT c>= LPRINT  LIST  CLEAR IN  CLEAR 0 PLOT  0IN  IF y RUN ▝8_ IF Q READ  LIST [O]_ POKE  NEW  BORDER  SAVE >/ POKE  BORDER  BEEP  CLEAR / CONTINUE  READ  SAVE  CONTINUE HNNNNH© COPY  COPY [O] COPY  COPY  COPY IN  COPY  COPY  COPY IN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY ~ LET  LET  LOAD > INPUT  LOAD  LOAD  OVER  OUT [O]] INVERSE  OUT  CIRCLE  CLS  BORDER [T]IN  CLS  INVERSE ABS IN  RUN ABS ABS © RUN SQR  INVERSE ` RUN <= BORDER j COPY  COPY  COPY  RESTORE  COPY  OUT  COPY  REM  COPY [P] COPY  DATA © COPY  CONTINUE ? COPY  LPRINT © COPY  COPY [O] COPY  COPY  COPY IN  COPY  COPY  COPY IN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY ~ LET  LET > INPUT  LOAD w OVER  OUT  PLOT  ] INVERSE  OUT  CONTINUE  CLS  BORDER [T] OUT  CLS  INVERSE ABS IN  RUN ABS ABS © RUN SQR  INVERSE ` RUN <= BORDER  COPY  COPY  COPY  RESTORE  COPY  OUT  COPY  REM  COPY [P] COPY  DATA © COPY  CONTINUE ? COPY  LPRINT © COPY  COPY [O] COPY  COPY  COPY IN  COPY  COPY  COPY IN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY ~ LET  LET > INPUT  LOAD  RUN  OVER  OUT  INPUT ] INVERSE  OUT  CIRCLE  CLS  BORDER [T] CLS  INVERSE ABS  RUN  RUN ABS ABS  RUN  RUN SQR  INVERSE  LPRINT  RUN <= BORDER  COPY  COPY  COPY  RESTORE  COPY  OUT  COPY  REM  COPY [P] COPY  DATA © COPY  CONTINUE ? COPY  LPRINT © COPY  COPY [O] COPY  COPY  COPY IN  COPY  COPY  COPY IN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY ~ LET  LET  OUT > INPUT  LOAD IN  OVER  OUT PEEK ] INVERSE  OUT h CLS  BORDER [T] CLS  INVERSE ABS  OUT  RUN ABS ABS  OUT  RUN SQR  INVERSE [Q] RUN <= BORDER SCREEN$  COPY  COPY  COPY  RESTORE  COPY  OUT  COPY  REM  COPY [P] COPY  DATA © COPY  CONTINUE ? COPY  LPRINT [Q]@[Q]© COPY  RANDOMIZE @ COPY  COPY  IF [Q] COPY  COPY  RANDOMIZE @ COPY  COPY  IF [Q] RETURN  COPY  RANDOMIZE @~ LET  PAUSE [Q]> INPUT  DIM @ OVER  PAPER [Q]] INVERSE  INK @ CLS  BORDER [S][Q] CLS  INVERSE EXP @ RUN ABS INT [Q] RUN SQR  INK @ RUN <= STOP [Q] COPY  COPY  CLEAR @ COPY  OUT  RETURN   COPY [P] COPY © COPY ? RETURN  COPY  COPY  IF CODE  COPY  COPY  RANDOMIZE OCODE © COPY  RANDOMIZE O COPY  COPY  IF CODE  COPY  COPY  RANDOMIZE O COPY  COPY  IF CODE  RETURN  COPY  RANDOMIZE O~ LET  PAUSE CODE > INPUT  DIM O OVER  PAPER CODE ] INVERSE  INK O CLS  BORDER [S]CODE  CLS  INVERSE EXP O RUN ABS INT CODE  RUN SQR  INK O RUN <= STOP CODE  COPY  COPY  CLEAR O COPY  OUT  RETURN / COPY [P] COPY © COPY IN ?_ RETURN ?@ COPY  COPY  COPY  COPY  COPY @[Q]P© PAUSE FN  COPY  PRINT P COPY  PAUSE FN  COPY  PRINT P RETURN  PAUSE FN ~ PRINT P> STOP FN  MERGE P] ERASE FN  CLS  RESTORE P CLS  ERASE FN  RUN LEN P RUN INT ( RUN  OR  COPY  RETURN ▖ COPY  INVERSE @ COPY [O][Q]©@? COPY  PRINT O COPY  COPY  PAUSE PI COPY S COPY © PAUSE ATTR  COPY  COPY  PRINT S COPY  COPY  PAUSE ATTR  COPY  COPY  PRINT S COPY  RETURN  PAUSE ATTR  COPY ~ PRINT S COPY > STOP ATTR  COPY  MERGE S COPY ] ERASE ATTR  COPY  CLS  RESTORE S COPY  CLS  ERASE ATTR  COPY  RUN LEN S COPY  RUN INT + COPY  RUN  OR  COPY  COPY  RETURN ▛ COPY  COPY  INVERSE C COPY  COPY [O]CODE  COPY ©O COPY ?^[P] COPY @? COPY  COPY  COPY  COPY  COPY SCREEN$ UjSCREEN$  RESTORE U REM SCREEN$  RESTORE U REM SCREEN$  RESTORE UjSCREEN$ %USCREEN$ EU REM SCREEN$  RESTORE U REM SCREEN$  RESTORE U REM  LIST POINT  PRINT T CLS [K]©? REM SCREEN$ © COPY U© COPY jSCREEN$ © COPY  RESTORE U? COPY  REM SCREEN$ IN  COPY  RESTORE U? COPY  REM SCREEN$ IN  COPY  RESTORE U? COPY jSCREEN$ IN  COPY %U? COPY SCREEN$ IN  COPY EU? COPY  REM SCREEN$ IN  COPY  RESTORE U? COPY  REM SCREEN$ IN  COPY  RESTORE U? COPY  REM IN  COPY  LIST POINT ? COPY  PRINT TIN  COPY  CLS [K]? COPY ©IN  COPY ?R? COPY @ COPY  COPY  COPY  COPY  COPY  COPY TSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [R]PT COPY  COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY U© COPY  COPY SCREEN$ © COPY  COPY © COPY  COPY © COPY  COPY [R]© COPY  COPY T© COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY E COPY  COPY  COPY E LPRINT  LIST  LIST pE LPRINT EEppppppppE COPY  COPY  COPY ASCREEN$ USCREEN$ AA[Q]P[Q]PAA P[Q]@AA P P P PAUSCREEN$ UNOT  OR ATTR NOT 7ATTR NOT DATTR NOT %AT NOT YATTR NOT pATTR NOT ▝ATTR !0CODE =($=($~<>:M▖ RETURN >=&CODE =($=($NOT [E]TAB :M▖ RETURN (!0CODE wCODE %x2[I]LN <>:M▖ RETURN >=!0VAL wVAL :M▖ RETURN >=!0LEN wLEN .6,6,6.16./6.6▜ AND oo DEF FN ASN [F]g GO SUB [Q] FOR wW-^.6.6.6NOT SIN AT :M▖ RETURN  LINE [P]ATN !CODE  STEP dAT $ STEP dAT $ STEP dAT  STEP FAT &CODE  STEP  NEW ATTR  STEP  NEW ATTR .~ CLEAR  COPY  GO SUB y#~ CLEAR IN  GO SUB y#~ CLEAR  COPY  GO SUB y#~ CLEAR IN  GO SUB y#~ CLEAR  COPY  GO SUB y#~ CLEAR IN  PRINT ./~PI  LET  GO SUB y$<> LET  RETURN   RUN  LET > PAUSE :M▖ RETURN >=CODE !0CODE w$w$w> CLEAR  COPY  GO SUB y>IN  CLEAR IN  GO SUB y2lAT <>> CLEAR  COPY  GO SUB y> CLEAR IN  GO SUB y> CLEAR  COPY  GO SUB y:lAT  CLEAR IN  GO SUB y<>.0~PI>=. >INKEY$ .~2NAT .^,V.5(2 STEP cSIN  STEP }TAB  STEP 7TAN  STEP COS COS  STEP AT COS  STEP nSIN  STEP  BORDER COS  STEP COS . THEN n>= GO SUB _ NEW O.:CODE ▝w:CODE .w FORMAT 4<>..~ RETURN  TO  SAVE AT ATN  IF TAB .w.s,r STEP ▛SIN .~.w.~.w.6.-~ THEN ?-w.~O NEW ,wy NEW ,w<>. THEN  AND .#6<> RETURN  LPRINT 0$ RETURN  FORMAT 00 RETURN USR 0$ RETURN VAL 0OL▜ AND SGN o DEF FN SIN [F]gyN#Fg GO SUB C$TAB  STEP NOT SIN AT  VERIFY  OUT .wNOT SIN AT  VERIFY USR .wNOT SIN AT  VERIFY  FORMAT .w FOR  GO SUB [Q] FOR  NEW .w,w NEW .w,wNOT SIN AT  VERIFY VAL ▜ AND LO DEF FN ASN [B]G.!w,w.#6. THEN  AND NOT SIN AT .~.PEEK USR  RETURN >=.6. THEN ▙<> LET .06.N,~LEN O:lAT LEN 2lAT ./6NOT FAT .1~PI( LPRINT  LET | RETURN CODE  .0~NOT YATTR  RETURN VAL  .0~NOT pATTR .0~NOT ▝ATTR .6<> . THEN [G]<> STEP SSIN .~/[R]. THEN INKEY$2lAT <> STEP SSIN .  INPUT  STEP SSIN .~,ACS  RESTORE  STEP SSIN . ~/[R]2lAT . THEN  NEW <>.6 LET .~.w.s,r..~ RETURN (<>. THEN ▚<>:lAT .ACS ,ACS O<>.w<>.~ATN >=.▚w. THEN F>=.!~,F,▚O04 RETURN [B] 6 FOR .▚▜ AND O DEF FN TAN [B]G.w.w. THEN V>= MERGE .'^,V.N.F FOR  FOR r.s MOVE .)~.&w<>]SIN BCOS [COS dCOS sCOS SIN /COS PICOS SIN SIN SIN &SIN :SIN 6SIN %AT [N]COS [S]COS [B]TAB  CAT TAB $COS COS  LOAD SIN  REM SIN .16<>./wo OR  CLEAR  COPY > GO SUB y CLEAR IN > GO SUB y CLEAR  COPY > GO SUB y CLEAR IN } GO SUB ySTR$ <> STEP SIN  LET .!6f,6ASN ,6NOT USR AT .~ THEN G>=..6<> FOR * GO SUB [Q] GO SUB [Q]~ GO SUB [Q] FOR . THEN  OVER  THEN  PLOT  <>.w NEW .w,w NEW .w<>. THEN ▚..6<> FOR $ GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR . THEN  DEF FN <> FOR ' GO SUB [Q] GO SUB [Q]$ GO SUB [Q] GO SUB [Q]) GO SUB [Q] FOR . THEN  VERIFY <>. THEN f>=.~,ACS O:lAT POINT 2lAT <>. THEN  INPUT <>. THEN VAL$ <>. THEN [O]<>. THEN V <>. THEN N>=.&5 IF TAN .% THEN ~ .$~.▚w.%~.▙w<>.~.$[G].w.%N THEN EXP .~[J]w<> RETURN (.~.*[G].PEEK  CIRCLE . THEN ^>= THEN v(.,5 ,~-w. THEN ACS <>.+~.▚w FORMAT .4<>.,5 ,~-w. THEN  PLOT  <>.~.+[G].w FORMAT .5<>.~ATN (.5USR ,~-w.5,~.▚ RETURN  FORMAT w<>.~ATN (.5USR ,~-w.5.~.[G]0CODE .w<>.~ATN >=.5USR ,~-w.~.[G]0CODE .w<>4<> SAVE [G] LLIST 7[G] RETURN n NEW g GO SUB |ATTR K LET [L]K COPY ATN s3 RUN PEEK ▖U& SAVE  DEF FN RND©/: CLS  OUT BIN ATTR [D]|gS@. RETURN  LIST  STOP  MERGE <>PEEK COS POINT [Q][H]▙▚©xqke_ZUPKGC?<9520-*(&$" RASN WASN ^ASN  POKE [B][B] POKE [B][B][N]ASN IN ASN  CIRCLE ASN  GO SUB ASN ACS ACS -ACS >ACS gACS [A]ACS [U]ACS LN ACS  STEP ACS  READ ACS  LET ACS ATN ATN *ATN QATN kATN ▜ATN [D]ATN ▘ OUT ▖ DATA [F]▗OLH▟H▟HJLMO▟O▟O▟[F][B]▘ OUT ▖ DATA VAL C@<▟<▟<>@AC▟C▟C▟[B]▘ OUT ▖ BORDER SIN ▝<AACEAEC[B][B]▘ OUT ▖ BORDER ▝[F]▗HMMOQMQO[F][B][B]▘ OUT ▖ DATA ▝VAL CC@EC[B]▘ OUT ▖ DATA ▝VAL CCEGH[B]▘ OUT ▖ DATA ▝VAL GGE>C[B]▘ OUT ▖ DATA ▝LEN [D]$$($(++$[B]▘ INVERSE ▞▚ NEXT V INPUT V STOP VV READ V DATA  NEXT V DATA VV STOP VV READ V DATA V SAVE V[B] DIM ▘ INVERSE ▞▚▟VVVVV[B] BORDER ▘ INVERSE ▞▚▟VVVVV[B]▘ INVERSE ▖▚ RUN ! RESTORE ▟▟ RUN [B]▘ INVERSE ▖ RESTORE ▚ RUN  RESTORE ▟▟ RUN [B]▘ OUT /▖ RUN  RETURN [B]▘ OUT ▖ STOP 0VGQ+5T@O[B]▘ OUT ▞ STOP ▚0VGQ+5T@O COPY S[B]▘ MERGE ▞ DIM ▚ CLEAR T[B]▘ OUT ▖▝ RESTORE 5▟00 LLIST 0▝ READ 1 RESTORE ▟▝0▟4▟5▟[B][B]▘ OUT  RESTORE ▖LEN [D][B]▘ INVERSE ▞▚ RESTORE VVVVVVV[B]▘ OUT ▖ LLIST $[B]▘ OUT ▖ LLIST $[B]:[I]LN PIBIN  DEF FN ATN CODE 2[I]LN :[J]LN PI>=:[K]LN *[M]LN o[F]g~PI( STEP  CONTINUE ATN ![K]LN 4<>CODE 2[J]LN 2[I]LN <>=▜ AND  CLEAR o DEF FN ATN [F]g~#fo"[M]LN >2[J]LN CODE 2[K]LN <> OPEN # RETURN  DRAW  INPUT  OPEN # RETURN  LET   INPUT <>LN !LN 1LN @LN LLN ZLN hLN yLN ▗LN ▙LN  IF  IF  IF >=>=>=[G][G][G]>=>=>= IF  IF  IF ddd222222ddd IF  IF  IF  IF  IF PEEK PEEK PEEK PEEK ddd NEW  NEW  NEW  NEW PEEK PEEK PEEK PEEK [G][G][G] IF  NEW  ERASE PEEK SCREEN$ [G]▘nZF22FZn▘[G]SCREEN$ PEEK  ERASE  NEW  IF 2222ddSCREEN$ SCREEN$ SCREEN$ SCREEN$ dd222222dd[G][G]>=>= IF  IF  IF  IF  IF  IF >=>=>=[G][G][G][G][G][G]ddd22 NEXT 1 STEP + CLEAR ©> GO SUB y![ STEP ▛ RETURN  STEP O RETURN NOT ▝* COPY  FOR ![ STEP ▛ RETURN > CLEAR © MERGE  GO SUB y![USR  GO SUB VAL  MOVE <> INVERSE ![N],a STEP ^ PAPER ▝ STEP [N] GO TO  PRINT  INVERSE  RESTORE  MERGE  INVERSE !CODE 7 STEP SCREEN$ 8 STEP [N] GO SUB :[C]G MOVE  INVERSE  LLIST  LET LN  PRINT BIN [N] LET CHR$ ^> COPY 7NOT SCREEN$  COPY  COPY  GO SUB _ OPEN # RETURN xLEN   RUN <> NEXT > OPEN # RETURN NOT b  GO SUB NOT  STEP ▟0 DATA x RETURN  CLOSE #0 POKE  STEP ▟ FORMAT &USR >2(▟ 0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE #CHR$ . STEP ▟ FORMAT > FLASH LN  THEN USR  ERASE  POKE |TAB gzCOS  LINE ▟NOT  OPEN #| RETURN <> STEP ▟ FORMAT PI>=>© FLASH  RETURN POINT  NEW  ( POKE y/O GO SUB _ NEW  PLOT   OPEN # RETURN 7<> RETURN B(= RETURN F(F RETURN T(( RETURN J(* COPY  FOR !> STEP ▛ RETURN <>* COPY  FOR !VAL `! STEP ▛ RETURN !,[M]b STEP ▛ RETURN <>* COPY  FOR !▘ STEP ▛ RETURN <>* COPY  FOR !uX STEP ▛ RETURN <>* COPY  FOR !b[K] STEP ▛ RETURN <> NEXT  OR  MERGE zATN O0>,>< INVERSE !M/ STEP PEEK  RETURN  MOVE STR$  OR  MERGE  INVERSE !/ STEP PEEK  RETURN  MOVE $ THEN c(STR$  OPEN #<>STR$  NEW <> INVERSE  RESTORE NOT /= COPY  COPY  GO SUB _ OPEN # RETURN xLEN   RUN <> NEXT > OPEN # RETURN NOT b ERASE  NEXT  RETURN |TAB gzCOS  LINE  COPY NOT  ERASE  RETURN | RETURN <> STEP  COPY  FORMAT PI>=>© FLASH  RETURN POINT  NEW  ( POKE y/O GO SUB _ NEW  PLOT   OPEN # RETURN 7<>[J]smvn--▖SQR by▖SQR --SQR nwfrSQR --▜SQR mp▖SQR --SQR pnSQR --SQR dldz