Time Machine: TIME M..B

  0 CLOSE #USR 0: REM 1COS _CODE  OPEN # RETURN 2k/ STEP |] STEP a] STEP ▞]NOT [N]]!=PNOT  MERGE ~ACS #xLEN   PRINT  LLIST %"6/<>!@T] COPY u GO SUB VAL <>>2k/CODE  STEP !TAN ]~ RETURN  COPY >= BEEP # SAVE CODE 2k/!TAN _▞ GO SUB [ POKE / STEP = STEP TAN _NOT ^`*TIME MACHINE*  DISKED BY FREDDY KRUGER 1993 COPY                                    DIM FN PI RETURN  COPY SCREEN$ IME M" LINE 0156![M] COPY 9 GO SUB [e/ MERGE  MERGE ATN  GO SUB R0 CAT  MOVE ! TAN _B GO SUB VAL <>!`TAN _ CONTINUE [P] GO SUB VAL !d BORDER  COPY  COPY  RESTORE COS _ATN  GO SUB B LLIST >=~ RETURN TAB ( GO SUB FN  INPUT +F THEN x( THEN LN xPI( RETURN >0>TAB +~ DRAW + CAT  STEP k COPY TAB ATTR TAB  NEXT 1 GO SUB CODE  OPEN # RETURN 2T STOP *[F]` GO SUB [dPI GO SUB R( FOR *d"d*d"d*d"d*[F]`"dNOT  DIM [L]d[G]TAB !Jd STEP  GO TO c^#V*d FOR <><>:RND`!d STEP  DATA cFf"ABS `<>CODE 2POINT `2SCREEN$ ` STEP  CAT c*ABS `N#FxLEN >= OR #~ RETURN  COPY  L#~2a#~2+a#~2-a NEW ?_#V GO SUB S[P]`#N#F GO SUB C[R]` RESTORE  OR  GO SUB K[P]`:[R]`▝2[P]`:[S]`2[Q]` THEN   THEN   THEN   GO SUB CPI`> STEP SaSTR$  INK #^#FK THEN EXP  THEN LEN  THEN   THEN   THEN   GO SUB CPI`C RESTORE  STEP Sa LLIST STR$ ▟ PRINT  STEP ▝TAB ` LET  THEN o PAPER  LIST a THEN wCHR$ ▝TAB b THEN © ; NEW ?G▜▜ GO SUB D AND 2ax/ AND "2▝a STEP (c COPY INKEY$w#INKEY$w#INKEY$w#INKEY$w#INKEY$w=  LPRINT <> NEW ?G▜O▜▝ GO SUB D AND 2 OR ax/ AND "2 DATA a STEP (c FOR  GO SUB sATTR ` RANDOMIZE  FOR  COPY STR$ ~[R]VAL w#STR$ ~[R]VAL w#STR$ ~[R]VAL w#STR$ ~[R]VAL w#STR$ ~[R]VAL w=  CIRCLE  GO SUB {ATTR `<> THEN wCHR$  STOP b THEN © U NEW ?G▜TAB  GO SUB D AND (2bx AND 2Eb OR  STEP (cSTR$ (# CLEAR  FOR [ COPY N#O[R]N#O[R]N#O[R]N#O[R]N#O[R] FOR =  LINE <> NEW ?G▜TAB  GO SUB D AND (2vbx AND 2[P]b OR  STEP (cSTR$ (# CLEAR  GO SUB sATTR ` FOR  RANDOMIZE &[ COPY STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS STR$ iINKEY$hACS  FOR  FOR =  LINE  GO SUB {ATTR `<> NEW ?G▜▜ GO SUB D AND 2>=bx/ AND "2BIN b STEP (c COPY w#w#w#w#w=  RESTORE <> NEW ?G▜▜ GO SUB D AND 2cx AND 2c OR  STEP (cSTR$ (# CLEAR  FOR [ COPY N#N#N#N#N# FOR =  INK <>▜TAB O:FN ` VERIFY 08▝ VERIFY [I]0-y PRINT  GO SUB KPI` STEP lc LET <> GO SUB Dg GO SUB D▝2dcx THEN }( THEN $L FOR =  DRAW >02FN ` FOR >  CLOSE # GO SUB D▝ CAT y&h)TAB  BORDER o FORMAT $<>(! GO SUB  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]x RETURN USR  ASN <>! GO SUB  GO SUB 6 GO SUB VAL  COPY <> STEP  GO TO c~#fo<> RETURN 8 MERGE _ THEN # THEN  MOVE <>▜o FORMAT $<> OPEN #POINT [B][L] ERASE ASN  LLIST <ATTR CHR$ j THEN ▜+SCREEN$ lH FORMAT SVAL$ =[][B]] INK  " LIST " STEP #©%w&y&{&}&©&▝&& TO .USR "[U]f▖SCREEN$ SGN  INPUT "4FFN INT  TO  OVER d▚"[U]Z CONTINUE  IF . NEW  LIST 2dnx▘PEEK DVhz▗ DEF FN blv[M]VAL$ LN CHR$  TO  VERIFY  LPRINT  REM  POKE  RETURN &0:DXNblv[M]VAL$ USR  ERASE  POKE  2Ln[S] TO  NEW 4NPx▘[G][Q]SCREEN$ TAN PEEK >= IF INKEY$| REM [G]V FLASH TAB 8▗8888 COPY ++ COPY ++++ COPY + RETURN +,,,,8[N]8[K] COPY h COPY bejjbljgg[L]xw COPY r COPY z COPY zv▜vuuu▖t▞s▖r▛sssssu[C]▛[F]▛++mmQKss[B]+▝+iiis[A]s▙o[B]cf<LLLK[J]▚{▖~8 COPY ++ COPY +++ COPY ++ COPY +++, COPY o CLS ++FFE[M]D▗D[E]8 COPY 88▖88 COPY 8[N] CLEAR 82▜2[K] COPY ,B[E]A[F]A;<ddjaa[L]a[P]b▖ac▖▖ COPY , COPY " COPY * CLEAR  COPY * CLEAR {{{{{{:?▜,▜A=8,,`[E]+▜^▛,▖8[M]8+++ COPY + COPY ++++++++++kiii COPY 8`▛`[A]`[E]``000▛0[A]0[E]+oo+b[O]ggeh[N]▖▖{Nt▞###[E]## COPY u222?AAAAAAACCCK[J]M[N]MM▞M[E]M[G]b COPY +++$[P]8[J]▜ COPY +▛+[N]+[K]+[H]+[E]+ COPY + CLEAR ++++++++o[B]o[D]gllg COPY + CLEAR _8,`[H]+w▗xu▘stv▝v▞aaA[N][K][K]+ COPY ++^_[A]_[C] COPY 8[N] CLEAR  COPY 8^[D]_[E]`[F]_[G]^[G]_`_^]][B] COPY < COPY ▝▞▝▝[M]9▘kk▖{{▙~ COPY +fff[B] COPY + CLEAR ++++++++++,,,;K▛K[F]KKKo+ COPY 88bcdjjhffZ COPY + CLEAR ,?hifcsnnM4+[F]dea?a[D] COPY " COPY "Ao$VAkAoo▟3Cp?CQd>;+ COPY ++++ COPY + COPY ++ COPY + CLEAR +++++ COPY ; COPY ;; COPY ;LLLLLJJJJJ00 COPY h COPY beajjljggiiKss[A]s▙co[B]oocfffffLLLLLLKKKKKK[B]K▚[G]▟[E]s COPY + COPY + COPY +[N] COPY +[K] CLEAR  COPY +++▟+ COPY +▗ COPY ++ COPY o CLS FFE[M]D[E] COPY ,,[B],[B]B[E]A[F]<ddjaa[L]a[P]f+,,,`▖b`▛`[E]fafc▖▖ COPY * CLEAR  COPY * CLEAR {{{{{▜▜PNCAAAb▘?[E]▛[G][C][A]```[E]`[A]`▛0[A]0▛0[E]00l▛[A][E]c▙kv▟s[B]ss COPY + COPY + CLEAR  COPY + COPY +++++++++++s0hkjffi,ki+oeeb+b[O]ggaeh[N]"22?AAAACK[F]M▞M[E]OYYb▗[L][O][A][D][G]l[E]l[C][E][B]oo[F]Lg COPY l RETURN  COPY gaw▗xu▘stv▝v▞aaaa++ COPY ++^_[A]_[C]^[D]_[E]`[F]_[G]^[G]_`_^]][B]l~~~[C]©▛©©[C]=KKKKKKMMLLLLLLLLKooo[G]u COPY + COPY +▜ COPY +[G] COPY +[N] CLEAR +[K]+[L]+▛+▙++[B]+▞[G]f[G][J]g[B]+▗+▚+▟+▙~ COPY +++++ COPY + CLEAR ++++++++ COPY + COPY ++,▜bcdjjdehffZifcsnnM4eaa[L]??aAoA?d`[M]▖▗[A]▖~[D]©©~k[M][J]f COPY +[N] CLEAR +[L]+[I] COPY ++[A]+[D]+[G]++▚+▞++blafiiid COPY 888m+h+++bjbhggis▙ocfj[C]f[H]K▚▖▖▖▗▗v[D]u[E]s[E]r[F]w[F]tzzzxvts▛ssssu COPY +k COPY 88 COPY 8 COPY + COPY +E COPY ++++++++++ COPY ++RE[M]B[E]ddjaa[L]a[P]b▖f`,▞▖▖▖{{{{+{{PNCAb▘,[B]▜[J]++▝{▘▖CCC22{ COPY + COPY + COPY +[D]+[N]+[N]+[E]+[I]+[G]+[B]+ COPY +▚ CLEAR >>▛>[A]>>>[E]LLLLEEE[E][B][A]▙bffi COPY 88eebjdd+h!+??K[F][Y+Y+88 COPY 88bb+~▖▘a COPY ! CLEAR ++!!-▛#--e![L]1▛o3{▚▜[A]FN lg+ CLEAR ,,ha++E[M]▛J▖,▘,,,[L]w▗x[C],[D],[C],[D],[H],[I],[H]mff[G][A],l+ml++ COPY ++^_[A]_[C] COPY 8[N] CLEAR  COPY 8^[D]_[E]`[F]_[G]^[G]_`_^]][B] COPY < COPY ▙▝mmhee9▘~~~[C]©▛©©,,%▝bbff222222`o[C]o[F]oo▙~aA COPY + COPY + COPY + COPY ++++++o=▚CC▚[C][U] COPY ++ COPY + CLEAR ++++++++++++ COPY ++K COPY 88jfZ+++,hlifcnn4daphh#KJ9e?,b,,,,▖▖bACp?CQd+-[D][D],![E] COPY Y▟C▟>▙8[I][G]▝▝▘{[G]▙9▙9▙9▙9[C]9▙CCCo?[K]~ COPY + COPY ++++++++++++ COPY + CLEAR cff COPY 7 COPY ▗7hgKss[A]o[B] COPY <ffj[C]j[D]js[C]fa+++++h222▝▝[K]LKK[J][H]K[B]▖ COPY   RETURN  COPY  ++[J][K][J]o▟[J][F]`, COPY , COPY ,>>[L]R[L]Rhi[G]o[F]e[G]r COPY + COPY + COPY ▗++++ COPY + COPY ++jaa[L]fff COPY 77 COPY ++{{▖{kA▖ COPY ▟+,22▛2▙2[K]2▗2[K][A]lnn▙n[F]no▝▝ COPY , COPY , COPY , COPY , COPY _CCoo[I]o[F]▟©▛©[H]©[E]p[F]I▞F[I]Q[A]J COPY +++ COPY + CLEAR ++ COPY +++++ COPY ,kii COPY ▗ COPY ▗ COPY 77 COPY 7eebhjd▖d+▝K[F]+ia ▗ RETURN  ▖ COPY  ▛ ▜+ 4[P][N][N],,%[G] COPY + COPY +▜ COPY +++▙+[C]+▞ COPY ++[J]+[L] COPY +[N] CLEAR , COPY ▗ COPY ▗ DRAW  COPY 7 COPY 77AAj[B]lg+ECN▝KJ▚J▘▘,w▗xv▞,lll▝jl[C]+ COPY ++^_[A]_[C]^[D]_[E]`[F]_[G]^[G]_`_^][C]][B] COPY < COPY [D]▙▝▝▝[B]▝[C]j[G],%▝`[C]▙~aA▝[F]J[E]D[E][F][I]=[F]=▚CC[E]C[H]C▚ [M] [I][C]d n COPY ++++ COPY ++++++ COPY 700I[B]I[A] COPY ▗▗%[C]i CLEAR l9+++▖A!▗▗▗▖++{CCC COPY   RETURN  COPY   DRAW  COPY  444 COPY + COPY  [E]9WWYY▜▜!l COPY  COPY cubf4!-!!!-[D]C▙C▟Z▛[D]Z▛[D][D][E][E],,`▞[A]C COPY 7 COPY ▗▗ COPY 4 COPY 4 COPY ++ COPY ++++7k44hja+++L[G]K[H] COPY   RETURN  COPY  ++ COPY z COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY 8{ COPY %▙ COPY  COPY   RETURN  COPY   RETURN  COPY ▘ RETURN  COPY ▘▘ RETURN ++▗▗+++ COPY  COPY  COPY  COPY  COPY  COPY . COPY ▗ COPY 77 COPY +++++ COPY 444444 COPY W[L] COPY Z[A] COPY  COPY [C] COPY [C] COPY ▜▗▗[A]▗[F]▗[J] COPY 4 COPY ▘ RETURN ▖ RETURN  COPY   RETURN  COPY   RETURN  COPY X COPY X RETURN  COPY W[B] COPY ▗▘▘[F] 445 COPY +++++++ COPY    COPY 444bffi COPY 77 COPY 7kg a COPY  ▗ RETURN  COPY  ▖ RETURN  COPY  ▛ ▜+ 4 COPY [N][L]1 COPY ▗▗▗▗▗ COPY ▘ RETURN  COPY ▘ COPY ▘ RETURN  COPY ▘ RETURN  COPY 444+▛+▖+▗▗▜▜▜▜7777777 COPY +▙+▙+[B]▗▗ COPY ▗ DRAW ++ COPY ++^_[A]44PP[A]R[B]R[A] COPY WW▛W[C]b[B]b[E]Z▛ COPY Z▞ COPY Z[E] COPY ▟ COPY  COPY [F] COPY ▟▟ COPY ▞ COPY ▙▛▟ COPY ▛_[C]^[D]_[E]`[F]_[G]^[G]_b_^]][B]▙ COPY ▘ RETURN  COPY ▘ COPY ▘ RETURN  COPY ▘ RETURN  COPY ▘ COPY 77 COPY 7 CLEAR +++++++44 COPY 4      COPY 44444?▖6 COPY ▗ COPY ▗ COPY 7 CLEAR  COPY 7 CLEAR  COPY 7 CLEAR  COPY 7 CLEAR  COPY ▘ RETURN ▘+++[C]+[J] COPY ▘ RETURN ▘ COPY , COPY , COPY ++ COPY    COPY 444 COPY , COPY 7▖++ COPY   RETURN  COPY   COPY  444 COPY ,WWYY00 COPY  COPY  COPY ▙TAB  TO 3 TO 3 TO 3 TO 3 ▗ DSCREEN$ TAB  COPY TAB TAB 1TAB  READ TAB hTAB  FLASH TAB eTAB  COPY TAB ,TAB  NEXT TAB  CAT TAB  RANDOMIZE TAB  LOAD TAB  RANDOMIZE TAB  CAT TAB  NEXT SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UW SAVE p FORMAT  CLOSE #~VAL A▖TAB  DRAW [H]h LPRINT  LPRINT [F]+TUSR #▘[A]USR  :BHp8USR DCHR$ [A][K]▘HiR LIST ▚ STOP 1BA@▗USR 2 FLASH $▝TAB P CAT 0 COPY  CIRCLE 'USR ? COPY [A]CHR$  COPY cFN  RETURN YU DRAW T LIST TAN FN  LPRINT ▘ CONTINUE USR - LPRINT QUSR )CHR$ USR !FN USR (AIUSR  USR $[S]USR !TAB USR  @A▗TAB USR TAB USR  USR (P LPRINT ▗TAB  SAVE  SAVE  RESTORE h[H]▘/ FORMAT  COPY  INVERSE ©?@lP THEN [A]QwBc POKE  DATA WruRND STEP ▝%INT 5 PAPER u2▖[G][A] GO SUB [P]`▘ COPY  DRAW  COPY  SAVE  COPY  LPRINT  COPY USR   COPY J COPY  RETURN  RETURN  DRAW J SAVE  LIST  LPRINT  LPRINT USR $bUSR )USR "[Q]BLA[Q]R@▖$▝[U]AQTAB USR USR ? RETURN  COPY USR  COPY USR ? COPY  COPY  COPY TAB ?USR  COPY 0 COPY ATTR >= COPY t COPY POINT [K] COPY U} COPY * TO ©??@SCREEN$ J[Q]AU FORMAT [S][T]Ph  CONTINUE JR-t[D] IF ▗▗INT POINT mbYD[F]!Te▝ABS  -m[A][A] STEP POINT =ch P  LIST  COPY ▛[Q] COPY  COPY  COPY ▝ COPY  RETURN  LIST  LIST  LIST  LPRINT USR % LPRINT DYf▖COS ▚▝SCREEN$ *J[E]RND[E]4H FORMAT [A]  ?@©▝©@▗▛[M]ERND DRAW  COPY  COPY ?TAN USR USR  SAVE ATN [I]=JDIAT [Q][O]pTAB  LPRINT  LET  LET  COPY  COPY B LPRINT  CIRCLE TAN (5 VERIFY RRNDe OPEN #© COPY e OPEN #R RESTORE 5 CLS ( LOAD  PRINT  INK  FOR ▝ COPY  LLIST a▟J COPY ▝ COPY  COPY  COPY  CAT 0▜HT▜ COPY ▝ COPY  COPY  LLIST a[O].U COPY  COPY  COPY  SAVE ` LIST ©[A] LPRINT  BORDER  CONTINUE USR ([F] POKE USR $ POKE @ DRAW  PAPER RKm_ CLEAR ▞▛▝TAB [Q]A MERGE ▝mFN   MERGE ▝[J]▝▚`8▝ READ  READ  READ  READ  READ  READ  READ  READ ▝ PLOT   RANDOMIZE INT  REM D PAPER ▝ COPY  COPY  COPY U COPY  COPY  COPY  COPY  COPY  SAVE z COPY  RETURN VAL$  COPY  LPRINT x COPY [Q] DRAW ▙?T?USR ▝ DRAW  COPY ▝~▝ SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE ▗ RETURN  LLIST ?USR  COPY > COPY  DRAW  CONTINUE  COPY w DRAW ?USR v<=  INPUT ^>[Q]IN 7NOT Pi DATA  LIST hUSR @ INK FN p[I]/#F STOP ▜{+ABS DCHR$ D<NOT H'@[R][A]▗,>=i DATA FN A[S] DRAW ( READ  RETURN )>=<=( RETURN <=( LOAD  RETURN ^ LOAD  COPY  RETURN  COPY  COPY  RETURN , COPY A COPY TAB D© RETURN ? RETURN  CLS ? COPY _?IN  CLS - CLS N;m"EXP &{▗TAB  RETURN  CLS  COPY ? RETURN ? RETURN  COPY ATN ' LOAD = STEP -=; IF ,R▗TAB C@ NEW NOT  RANDOMIZE [T]|B REM SCREEN$ % VERIFY H[S]SCREEN$ D[A]TAB |=_ SAVE CODE  OUT EXP _PSCREEN$ +FN T▘ LPRINT A[5#A COPY  DEF FN [H]$[K]A OPEN #00A©?%3QBk PLOT  &▜&[G][H]4 CLEAR & CIRCLE  VERIFY  ERASE @ INVERSE 4&▜"FN nAJi LINE E@]C>=TAB A▖TAB C&fiH STEP K[L][J]&f4H[O]I[C]q OPEN # READ &)[G] DIM b FLASH INKEY$9▜ TO c[A]G"▙STR$ (FI TO iHB▝ LIST | COPY USR  GO SUB  LIST  COPY PEEK B LIST  PAPER | CLS PEEK  FORMAT  COPY  LPRINT  COPY  COPY  LOAD  COPY  INVERSE  OUT  BEEP  LOAD oRND▛ COPY TAB  COPY TAB  DRAW  SAVE  RETURN  COPY  COPY SCREEN$ TAB UTAB SCREEN$ TAB UTAB SCREEN$ TAB UTAB SCREEN$ TAB UTAB SCREEN$ TAB UTAB SCREEN$ TAB UTAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB UTAB  COPY TAB } COPY  OVER  COPY TAB  CLEAR  RUN  COPY  LOAD PEEK  CLS  COPY TAB } RUN  INVERSE  LOAD  COPY TAB PEEK  CLS  COPY TAB ? COPY } RUN  OUT  COPY  COPY  RETURN  COPY  COPY  OUT  LOAD IN  CLS  CLS  COPY TAB _ATN  COPY TAB  CLS  COPY TAB PEEK  COPY TAB  LOAD  CLEAR  CLS  COPY SCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUU COPY U COPY U COPY U COPY  COPY IN  RUN  RETURN  RUN SQR  RETURN  INPUT  OVER  COPY  COPY  CLS  COPY  COPY  INVERSE  COPY  COPY TAB  SAVE USR  COPY TAB [P] CAT <= BORDER NOT ▝COS LEN 0d INPUT  NEW  PLOT   NEXT  CLS  RANDOMIZE  COPY TAB  COPY TAB  CLEAR  FOR ACS  COPY  COPY  RETURN TAB  DRAW  DRAW  COPY TAB ATN CODE  OR  COPY TAB ? OPEN # FOR  LIST  COPY  NEXT  PLOT   LLIST  OVER  COPY TAB  COPY  COPY  CLS  DRAW  SAVE  DRAW ~ COPY  COPY K THEN K"@▚ COPY  COPY TAB  CLEAR  COPY  OUT  CLS  COPY  COPY TAB  RUN IN  CLS  OUT ~ COPY TAB  RETURN SQR  COPY  RUN  COPY  COPY TAB  GO SUB  COPY SQR  COPY  SAVE  OVER  COPY  GO SUB  COPY  COPY  FLASH  COPY  COPY TAB  OUT IN  REM  COPY  COPY  COPY  BORDER  NEXT  NEXT  OR LEN  RANDOMIZE  COPY  COPY  OPEN #USR  LIST  DRAW  DRAW  COPY TAB TAB TAB TAB TAB ?TAB B CLS  FORMAT PEEK USR  STOP  RANDOMIZE  GO TO  LPRINT  VERIFY H DRAW A LPRINT x LPRINT ▖ LIST  CIRCLE t BRIGHT  LIST USR BIN @A COPY  PRINT IN  GO SUB  CLS  INPUT SQR  FOR TAN  FORMAT "[A]B CLS ? COPY  PLOT  IN INT  GO SUB  CLOSE # RETURN USR BIN  LPRINT 2 DRAW ? COPY  NEXT _USR ▖ COPY  LPRINT  FORMAT D COPY  SAVE u|M LOAD  COPY  LIST STR$  LPRINT IN Wf GO TO  COPY COS  BEEP  BRIGHT IN 3u TO  COPY 6u DEF FN  COPY USR  LIST  DRAW  OUT USR  COPY  LPRINT }x COPY  DRAW QDD)$PD@37 CLEAR @▟ INPUT  RUN 3;_D CAT IN 36 RUN DH CAT  OUT s35@LM LOAD  VERIFY  COPY u COPY USR }` COPY  LIST W BRIGHT  COPY  RETURN [A]TAB  NEW D<@T<>BIN DD[A]3;@TAB I CAT 3;D STEP  TO 3ATN TAB BIN  STEP 3L TO u COPY  COPY U]` LOAD  COPY  LPRINT ASN  BEEP X COPY  COPY  RETURN uU] CLEAR  COPY  COPY s[F]U INVERSE  COPY  COPY  CLS W7 TO  TO  CAT 3TAB  TO TAB 3TAB  TO  TO  DRAW USR / DRAW R LIST  COPY  DRAW w COPY TAB #3 TO #DLL1@DD3DDH@BIN @ LIST  LIST D CLEAR  COPY D  CAT o▖DF GO TO k[S] COPY  COPY E COPY TAB  COPY _ FOR WSCREEN$ USCREEN$ U COPY TAB _CODE }CODE UVAL$ WATTR uSCREEN$ WCODE USCREEN$ _CODE w COPY TAB VAL$ USCREEN$ WCODE _ COPY  COPY SCREEN$ UINT WSQR  INVERSE  COPY  COPY  REM  PRINT  IF  PRINT  CLS  COPY TAB SCREEN$ USCREEN$ USCREEN$ USCREEN$ U SAVE 3© SAVE ? SAVE b?@ SAVE   LIST p LPRINT L`:<= FORMAT  LIST TAB  COPY TAB  OUT IN  REM  COPY  CLS  COPY IN  GO SUB  RETURN BIN  LPRINT ? PLOT  INT  CLOSE #USR 2 COPY  COPY  OUT  COPY { OUT  LOAD  COPY D RUN ACS  RUN ACS  RESTORE w RESTORE w VERIFY [S] VERIFY [S]▗TAB  RETURN © RETURN © PAPER  RETURN  PAPER  RETURN  CLOSE #J CLOSE #J▗TAB  RUN ACS  RUN ACS  RESTORE w RESTORE w VERIFY [S] VERIFY [S]▗TAB  RETURN © RETURN © PAPER  RETURN  PAPER  RETURN  CLOSE #J CLOSE #J▗TAB D SAVE =CODE  LIST USR   LPRINT  FORMAT `0VL STEP  CLEAR  COPY  COPY  RETURN  COPY  LIST  COPY  LPRINT  DRAW  COPY o COPY [C]v DRAW . INPUT  SAVE  MERGE IN  LIST Qi LPRINT RUSR USR %pL# THEN ▜[M]D RETURN bH RETURN O▝ COPY  COPY  COPY USR  COPY  LPRINT  COPY  LIST  COPY  SAVE  COPY  DRAW  COPY  RETURN ▝ COPY  RETURN  COPY  DRAW  COPY  SAVE  COPY  LIST  COPY  LPRINT  COPY USR  COPY  COPY ▘ COPY TAB  DRAW  COPY TAB  LIST  COPY TAB USR  COPY TAB  COPY  DRAW  COPY  COPY  LIST  COPY  COPY USR  COPY  COPY  COPY ▘ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ? COPY  COPY TAB  COPY TAB  COPY TAB ? COPY  COPY  COPY TAB  CLEAR  IF  RUN  FOR  MERGE ▘ COPY  COPY  COPY ? COPY USR  COPY © COPY  LPRINT  COPY / COPY  SAVE  COPY  COPY  RETURN  COPY ) COPY  RETURN  COPY  COPY [P] COPY  COPY A[5#[5#[5#[5#[5#© TAB  COPY TAB ▗TAB D COPY TAB  DEF FN TAB TAB [H]TAB $TAB [K]TAB ▖TAB CSCREEN$ TAB UTAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB SCREEN$ TAB UTAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB SCREEN$ TAB UTAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB CHR$ TAB STR$ TAB D COPY TAB U COPY TAB  CLS  COPY TAB  DRAW  COPY TAB  DRAW USR  CLS  LPRINT  RUN  NEXT © STOP  GO TO ; COPY  RUN  CONTINUE ? COPY  DIM  FORMAT  COPY  RANDOMIZE  CIRCLE  COPY  LET  FORMAT  RETURN  DIM >=IN  MERGE  FORMAT bLEN >=▝TAB B FORMAT TH DATA (j[U] PRINT C DATA X=>=( COPY  COPY XUU`[R]xUVB LIST  COPY  RETURN [R]xUVB` COPY  RETURN [R]xUVB` COPY  RETURN ▝|W0B?▖USR }?[P] COPY  LOAD  COPY  LET  COPY  SAVE  COPY  CLEAR  COPY  RETURN © CLS  OUT  CAT h; RETURN [T]/#E[B]POINT  COPY NOT  OR USR a NEW  NEW E VERIFY Mpv` AND ©f7@USR B COPY  COPY  STEP r FLASH  STEP  LPRINT  FLASH  STEP Q BRIGHT  STEP ▝ BRIGHT CODE 2 FORMAT 2 FORMAT 2[D] LLIST 2tSQR 2LEN  INVERSE 2SIN  INVERSE 2{ INVERSE 2| INVERSE >2S GO TO >2sSQR !00"NOT ASN " OR ASN " AND ASN  STEP  CONTINUE  STEP U INVERSE  STEP  DEF FN  PAPER !<=" CAT ACS !/"CHR$ COS CODE 2▜COS :TAN  GO TO ATN  TO  RUN  STEP BIN COS  STEP POINT SQR  STEP 9SQR CODE 2▗INT >2INT >2INKEY$` STEP [N] STEP  STOP EXP CODE 2CODE [O]: FLASH [M] NEW   TO ASN  STEP  STEP ASN  STEP ATTR ASN  STEP  DATA  STEP DASN  STEP r[O] STEP b CAT  STEP g CAT ! FLASH [M]4 STEP DTAN  STEP ▖COS  STEP  GO TO  THEN  STEP 5SGN  STEP PI ERASE  STEP  NEW  STEP K BEEP  STEP ▞ RESTORE  STEP e CIRCLE  STEP [S] STEP  STEP M STEP  STEP [K][O] STEP USR  CONTINUE  STEP n LINE  STEP w CAT  STEP >= DEF FN  STEP ~c STEP h BRIGHT  STEP  BRIGHT  STEP  LINE  FLASH  STEP [S] FLASH  STEP  CLS  PAPER  STEP  FLASH  STEP L FLASH  STEP 1 DIM NOT f[M]:▗INT =▜▜o& RANDOMIZE [M]#~2/ FOR #~2. FOR #~21 FOR <> " COPY 79 RETURN AC RETURN EG RETURN * CAT ACS " OPEN #ACS *RND`2RND`}2INKEY$` STEP IN ` STEP  FORMAT ` STEP , CONTINUE  STEP >=SQR  STEP FPEEK  STEP ©NOT  STEP SPEEK  STEP + BEEP  GO SUB [ CAT ACS  STEP [A]EXP  GO SUB S CAT ACS  GO SUB S OPEN #ACS :T STOP ATN ( INVERSE *R STOP :▗INT ATN (CODE  INVERSE w2T STOP  STEP S NEW CODE 2YINT  STEP U READ  STEP CODE ACS :▗INT  RETURN 82 STEP  BRIGHT [M]:RND` RETURN (" RETURN ( RETURN 8  RETURN ( RETURN ( RETURN ( RETURN (XPEEK  STEP ▗ DIM [T]PEEK  STEP ▗ DIM  STEP  CAT  INVERSE :RND`O RETURN  TO  RETURN  #:; VERIFY  RETURN 0G> STEP zASN  AND AT W>  STEP zASN  AND p_ STEP ( CLOSE # INVERSE 6 BORDER :RND` RETURN  2:{ INVERSE ATN (:LEN  INVERSE ATN VAL  h!LEN  INVERSE iLN  STEP ▝ OVER :| INVERSE ATN (:SIN  INVERSE ATN VAL  p!SIN  INVERSE LN  STEP ▝ OVER :RND` RETURN  :LEN  INVERSE ATN (:SIN  INVERSE ATN (:ABS  OUT ATN BIN [D] OUT :[D] LLIST ATN (CODE 2[D] LLIST 2[C] LLIST [C]EXP >▞!& FORMAT :RND` RETURN  :R PAPER ATN  PRINT BIN  PAPER *▗INT &}[O]~![Q]XT]_w GO SUB VAL CODE 2 CLOSE #!p STEP "n STEP ##6 COPY <>FGEG!CODE [O]4o&DM)TAB  GO SUB Bs[Q]<>:CODE [O]G>[A] CIRCLE >=G OR [U] STEP iASN STR$  PLOT  <> PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  STEP  CLEAR PEEK  GO SUB s▘[O]{ RETURN 5 PAPER [G][P] RETURN USR  ERASE [G][P] RESTORE .w&#"r[P]"y[P]"[P]"▜[P] LLIST z RETURN 0 PAPER [G][P]|2[R][P] STEP ▗[O]"[S][P]!SQR PEEK ":[P]&j)TAB  BORDER { RETURN @ PAPER SGN [P] RETURN TAN  ERASE [U][P] VERIFY @_ NEW  DRAW o RESTORE { NEW ▜TAB o&[Q]N#F OR  INVERSE  LLIST #N#F OR  CLEAR  LLIST  LLIST  GO SUB {[S][P]:[R][P]"[P]!~/O#~/G#~/_#":[P]!Q[P]NOT {USR  COPY !j[P] INK STR$  MOVE ;!`[P]NOT {USR CODE W!j[P] INK z7 INVERSE  DIM *[P]yINKEY$ INK LEN  INK w#xINKEY$ INK VAL  INK w#{INKEY$ INK COS  INK w#zINKEY$ INK SIN  INK w#! =CHR$ 5[P] MOVE  GO SUB {▘[O] INVERSE  LLIST  LLIST  MOVE STR$  LET <>TAB { RETURN USR 8>USR _ VERIFY @ NEW |o RESTORE kP[P]NOT >=[P] RESTORE { RETURN 000kBIN [P]&~!"r[P]"y[P]"[P]"▜[P] MERGE  RANDOMIZE  COPY !▖[P]06#+6w# POKE  MOVE NOT [P]▗TAB TAB TAB TAB TAB TAB ▗TAB LEN [Q]LEN [Q]D[Q]▚[Q]<[Q]~[Q]4[Q]v[Q]Q[Q][A][Q]X[Q][H][Q]_[Q][O][Q]f[Q]RND[Q] THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  INK CODE W CLEAR  DIM  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN SXAO INK CODE W CLEAR  DIM  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  INK  DIM  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN  THEN SXAO INK  DIM TAB  LPRINT  SAVE  SAVE  SAVE  CLOSE #>= LIST hVAL @HFN FN LN EXP INT USR ▗TAB  LPRINT  SAVE  SAVE  SAVE  CLOSE #>= LIST hVAL @HAT AT 8)<<>=<>=>=▗TAB  LPRINT  SAVE  SAVE  SAVE  CLOSE #>= LIST hVAL @=T=aT@pTnTUSR nTUSR USR  TO #<0BIN "T>=Q▘([U][R]A▙VAL [Q]`NOT AUSR [C]USR ▘(NOT ,$ LPRINT ,[T]TAB 0~0 LOAD o`=[O]▞TAB SCREEN$ T*SCREEN$ UUSCREEN$ SCREEN$ UUT*SCREEN$ SCREEN$ UTSCREEN$ SCREEN$ UTSCREEN$ SCREEN$ UTFN TFN P(▚TAB (@WUSR [H]USR 7USR H.[Q]@@08?CODE =SGN }8vpu FORMAT } FORMAT =[A]>=>= CIRCLE  CIRCLE [M]SGN [O]VAL$ ^<><<<< TAB FN FN FN FN ?FN ?FN ?(?h>P[A]VAL VAL [Q]   VAL @dhhH> CONTINUE > LPRINT > LIST > LIST < LIST  LIST  LIST  LPRINT  LPRINT  LPRINT  LPRINT  LPRINT  LIST ▗TAB dt?t> LIST > SAVE >x<x<xxx88 88TAB ▗TAB  BRIGHT  DEF FN [A] INVERSE  MERGE > MERGE > RESTORE > RESTORE {> RANDOMIZE >=>}> RANDOMIZE >g>,<= CIRCLE [T]TAB  LIST  DRAW  NEXT  LPRINT CODE  LIST _ SAVE > DRAW 5[M]RND/S FORMAT  RNDTAB <<TAB ~ FLASH USR ▚TAB  LIST >=LN LN | SAVE x[I] CONTINUE  LIST  LIST  LIST  LIST  FORMAT USR @ CLS  CLS  NEXT  DATA  BRIGHT  BRIGHT USR >|< TO  POKE  SAVE  LIST  SAVE LN LN  DRAW p OUT 0 OUT [Q] LOAD  LIST ▗TAB  SAVE  DATA  BRIGHT  BRIGHT USR >|< TO  POKE  SAVE  SAVE  DRAW  DRAW p?SGN p7 OUT [Q]7 OUT USR 7 LOAD  RUN  SAVE ><:USR  LPRINT p8▗TAB  COPY USR USR  COPY @ COPY @>=; COPY  BRIGHT TAB © COPY  RETURN © COPY  RETURN VAL$ TAB USR @@c▗TAB USR   @▘} COPY @ |USR D lUSR l lUSR m | FORMAT  FORMAT ▘ =USR TAB ~~|xx0$,,44,,(8TAB  SAVE  SAVE  SAVE  SAVE  DRAW  DRAW  DRAW  DRAW  SAVE  LIST  POKE  GO TO TAB  CONTINUE  CONTINUE  CONTINUE  CONTINUE  CONTINUE  CONTINUE  CONTINUE  CONTINUE 7 CONTINUE 7 CONTINUE 7 CONTINUE |<xx▗TAB <▗TAB  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  LIST  LIST  LIST  CONTINUE  CONTINUE  LPRINT  LPRINT  LPRINT  LPRINT TAB p▗TAB  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  SAVE  POKE  TO , TO  TO TAB  CLS  CLEAR  RETURN  RETURN  RETURN  INPUT  RETURN ? PLOT  ? CLS © CLS © CLS © DRAW © CLS © RUN © RUN © INPUT © GO TO © LPRINT ?USR ? TO ▖TAB *© PLOT  0@ABS USR <USR  BEEP  LIST IN @©`©p©VAL ABS [Q]©@? LPRINT {USR  DRAW ▖TAB *© PLOT  0@ABS USR SGN USR  BEEP  LET IN  OUT  LOAD  NEXT }{ GO TO  LPRINT [T] LPRINT USR AT TAB L NEW ▛`+ LPRINT >l SAVE 8 OVER 4▚TAB [A]SIN  PLOT  USR  NEW USR ~ LPRINT  POKE dLN AXFN P TAB L NEW ▛`+ LPRINT >l SAVE 8 OVER 4TAB SIN 6USR 6USR TAN USR 6USR  IF VAL  INVERSE p$ LIST ▝pVAL P L NEW ▛`+ LPRINT >l SAVE 8 OVER 4▗TAB (PEEK  COPY  COPY USR  COPY USR  LET   NEXT   LOAD  LPRINT  COPY  LIST  COPY P COPY  SAVE ? DRAW ©;}NOT  SAVE SGN  TO  IF  THEN { COPY s COPY  COPY ACS _ COPY wSCREEN$ PEEK  PLOT  P LIST ▗TAB .IN ©USR  COPY USR © LPRINT  SAVE [A]EXP [A]ATN  LIST © SAVE  DRAW [G]? CLEAR BIN 7 CLS  COPY ZIN  LIST 4ATTR  COPY RFN uAATTR  FLASH j~g COPY U OUT  LIST  FLASH  COPY  LIST g COPY  LIST  INK  COPY  LIST g COPY  LIST  INK  COPY  LPRINT v© LPRINT U[P]USR 7 OUT  LIST @7 STOP USR  BORDER USR  THEN USR  OR USR  REM VAL 6b[Q] RUN  LIST 5 LIST  LIST ▜TAB XIN  DRAW '© DRAW X COPY  SAVE &© SAVE  COPY  SAVE _ LIST IN [Q]©[Q][P]USR }USR [O]@©USR CODE @5CODE @IUSR  FOR USR WUSR ?TAB ▖TAB < LOAD  OUT IN  SQR ywp GO SUB <> FLASH ACS  LOAD [ OUT  LPRINT 7 |3 LIST s FORMAT *SCREEN$ USR  LPRINT LEN :SCREEN$ <:ABS : FOR [L]?PI&r; NEW  LET [N] LPRINT {▞ LOAD  OUT 7 |3 LIST s FORMAT TAB  COPY  LPRINT  SAVE ▜▙ FOR  COPY [D]▛ LPRINT  DIM  DRAW d PAUSE SIN  CLS <CODE  RETURN + DRAW >= SAVE < LPRINT TAB  LPRINT USR USR USR ▖TAB `.|CODE ] CONTINUE  LOAD  LIST { SAVE * OUT  DRAW © DRAW +ATN  DRAW U COPY  RETURN © RETURN `W COPY  DRAW +g PLOT  WNOT  RETURN -▝ RETURN W RETURN .~T>.~[ RETURN /▝ RETURN [NOT  PLOT  /g RETURN _ COPY  RETURN  O COPY  PLOT  , BORDER 6L FLASH 6,NOT 6Kg6(g6L NEW  VERIFY , NEW O COPY  PLOT  TAB SCREEN$ IN  CLEAR U COPY  RETURN CODE  COPY  PRINT ▜TAB  COPY UUSR W LIST u LIST 5U BRIGHT _|QW RETURN Euv_ RETURN @7 BRIGHT WU RETURN [O]ZQETAN U BRIGHT VV)B TO 6USR [J]TAB <=_1H~ OUT IN IN ?IN WSCREEN$ TTAB ▘<= LOAD 8@ FORMAT  RUN  NEW USR  CLS @e LPRINT  INPUT COS 1pVAL 840pVAL 84TAB  THEN pPIh>=+n▗7m▗`STR$ ▗6 INVERSE ▗f INVERSE [U]6 INVERSE [U]f INVERSE [U]6 INVERSE [U]`STR$ [U]7m[A]+n▙USR PIhp THEN ▚TAB  COPY W LPRINT POINT  SAVE 5U SAVE *SCREEN$ |UU~j"PEEK TA/hIN T▝^hPEEK T▝_j@PEEK U=_*SCREEN$ SGN 5U~SCREEN$  LIST W SAVE  COPY @TAB 0©LN  LPRINT ABS  LPRINT   CODE  FORMAT  FORMAT  OUT  VERIFY  MOVE [P] BORDER SGN ©`< COPY j| COPY exC0x[K]0t[I]SIN  POKE 0 BORDER ~INT  LOAD  RETURN y CAT  SAVE  COPY NOT  RESTORE © RUN  OR  COPY  COPY  BORDER _BIN *[S]▗T▗<? SAVE ,6jSGN 5FN ,6jSGN 5FN ,6jSGN 5AT <? DRAW [C]HUSR  SAVE  DRAW xT SAVE /xx LIST  RANDOMIZE VAL   INK  LIST  READ @ @ BORDER USR @<=USR 0▗H[E]| SAVE FN A< IF x SAVE | CONTINUE SGN * PRINT r PAUSE AT  B?` DRAW  ERASE  B? DRAW @B? DRAW @t8 INPUT zaa!!%t! OUT  LPRINT ▙TAB USR  RUN  OUT SQR  RUN | RUN SGN DASN  IF LEN  IF CHR$ b[L] IF  PAPER "<>" PAUSE  LLIST ▘9CHR$  BRIGHT  LIST AT  LET AT  DRAW AT  SAVE , PLOT  L DATA  LIST  m DRAW ▝ COPY (! COPY ©6`RND DATA &ir5[R] PAUSE 6v5ATTR l6k|5ATTR l6k|5CODE |? COPY  LIST [F]TAB 8 INPUT  DIM  NEXT  DRAW   RUN  COPY  RETURN 8 COPY  COPY  COPY  RETURN @▟TAB ,USR INKEY$:&USR PEEK mUSR  PLOT  VAL  MERGE  CLEAR VAL  COPY [Q] OUT `IN [A] COPY VAL  REM  RETURN USR ?INKEY$TAB <^IN _J$[E]TAB 7LUSR  CLOSE #+USR [H] LPRINT ▚`kVAL D SCREEN$ [A] MERGE ` LLIST [A] POKE P= STOP  - COPY USR 2 COPY USR yUSR [A]TAB USR 0% H LIST 5 SAVE a[I] GO TO USR  COPY  COPY  COPY  RETURN  COPY  OUT USR  PAUSE / COPY 3 RETURN x@ LOAD ▝[T] CLS IN [O] LPRINT  PRINT O? THEN <=USR  LOAD USR  OPEN #▜>r DRAW  LPRINT  CLEAR SCREEN$ [E]TAB oPOINT k COPY >COS o▙8u IF  IF  IF  IF  PLOT   REM  DEF FN  BORDER  CLS FN [G]TAB ? RETURN  DRAW © COPY  PLOT  jSCREEN$ PEEK UU^jSCREEN$ INT UU^jxPEEK T▝/hPEEK T▝VhPEEK T▝^jPEEK U=^jSCREEN$ SGN UUVjSCREEN$ PEEK Ww DRAW } COPY x▚TAB x89SGN ^*<&5 OPEN #_ COPY xwx& COPY FN  FLASH [K] RETURN `©© VERIFY - COPY [O]© CLS  RETURN } OUT  DRAW ~-}xSCREEN$ [M]V/ 8 x(/@ DRAW 4 BRIGHT 8  STOP [I]K REM [Q]ASN [T]h.pUSR (6▚TAB  LPRINT LN " GO TO % DRAW B IF UvBCHR$ EINKEY$R▚AB([E]" LPRINT [H]TAB hUSR [D]@0<USR x8▝ LIST x@▚USR TAN TAB <ABS ~TAB ACS ACS ▗TAB ~SGN 0IN  RETURN  RUN ▞< HUSR qG>R> FOR E NEXT CM?[J]©©)EXP IN  RETURN  RUN ▞=J}}eSQR >H>cDi@e0 DIM @x©{ COPY ? CLS  DRAW VAL USR $A!)hWATTR / COPY W COPY + RUN @7I: LINE 'E THEN &c9[M]F#RT#BNUSR CUSR ©RD[T]PaVVAL$ / RETURN W RETURN / PLOT  `2U CIRCLE X BRIGHT  DATA  LIST TSCREEN$ n@D©rb=▝ INVERSE STR$ > GO SUB > LLIST 2 RESTORE x{ CLEAR  LPRINT w CLEAR [Q]5yUSR SCREEN$ U6@[Q]@"@IN ▜ COPY © RETURN  COPY  PLOT   PLOT   PLOT  @INKEY$@ LIST USR  CLS ` SAVE X CLS / SAVE /? POKE VAL ? LET @? MOVE ? LINE ?? RUN  NEXT  RUN  VERIFY  READ  BORDER  RUN  BORDER  LOAD  OVER ▙/USR 1:NOT  LIST USR ; GO TO ? OVER >: IF  DRAW  CLS  IF  CLS  IF  CLS  CLS  CLS  CLS  CLS  IF ACS  PLOT  G▛ GO TO  DRAW ▗TAB  SAVE >t OUT IN LN  RETURN  GO SUB  DRAW ATTR  BEEP X PAPER VAL TAN [Q]ATTR TAB ?©[I]fUSR A[Q]PI LPRINT ▜  STOP  LIST  LIST @> POKE > NEXT ?{9{}<}USR USR 4▙[Q]:▜ LPRINT 7USR ?©[I]fUSR A[Q]PI LPRINT ▜  STOP  LIST  CONTINUE @= DATA = BORDER > BORDER 8 RUN  MERGE  STEP 4COS z AND W STEP 4COS  MOVE <> MERGE  STEP 4COS z AND W STEP 4COS z AND W STEP 4COS  MOVE <> PRINT  OR  MERGE  RESTORE z RETURN 08E{ RETURN @0@ RETURN VAL 8VAL &j)TAB  BORDER { VERIFY @ NEW  DRAW o GO SUB [CHR$ COS }|> GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=  LET  GO SUB SCHR$ COS !▜COS 4 LLIST  MOVE STR$  LET <>*CHR$ COS SCREEN$  COPY :▜COS ATN ("G OR  RESTORE ^#V#> GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR  FOR =  LOAD  LLIST STR$ SCREEN$  COPY  OUT !/"CHR$ COS CODE 2▜COS <> STEP 9SQR >2RND` STEP IN ` STEP  FORMAT ` STEP ~c! REM COS  STEP [E] CIRCLE  STEP DTAN :lTAN ATN USR  PLOT   NEW < LPRINT E OUT VIVID IMAGE PRESENT INVERSE  OUT TIME MACHINE OUT  INVERSE (C)1990 VIVID IMAGE PAPER  COPY  RETURN Zq GO SUB LN 6 COPY  GO SUB LN <>!"hTAN "jTAN "kTAN  FLASH ATN ( RETURN  0NOT  DEF FN TAN !bTAN "ZTAN  STEP INKEY$TAN NOT mTAN TAB !gTAN  GO SUB x NEW  r# OUT  GO SUB x NEW  r# CLS  GO SUB x NEW  r# CLEAR  GO SUB x NEW  r#© GO SUB x NEW USR r<> RETURN  LOAD  GO SUB x/ NEW W STEP  LET TAN 2lTAN  STEP  LET TAN 2jTAN  STEP  LET TAN 2kTAN  STEP  LET TAN 2iTAN  STEP  LET TAN 2hTAN <> LET TAN 2iTAN  STEP  LET TAN 2hTAN  STEP  LET TAN 2kTAN  STEP  LET TAN 2jTAN  STEP  LET TAN 2lTAN <>CODE  THEN :<> OR  RESTORE !ASN  RETURN z FLASH  RETURN 0# THEN # SAVE  THEN 8 GO SUB ~ LLIST STR$ <>ZXCVASDFGQWERT1234509876POIUYLKJH MNBCODE  FLASH  RETURN / NEW <>> RETURN >© FLASH  RETURN  NEW USR  POKE  STEP iASN  STEP =ASN   CLS  STEP  PLOT  TAN  RETURN Q(ATN ( PLOT  <> STEP POINT SQR NOT  RUN EXP  PRINT  OR  MERGE  RESTORE ! GO SUB VAL  LLIST  MOVE STR$  LET <> RESTORE  MERGE  OR < PRINT *POINT ASN ]T))MD)"POINT ASN }AT _ LET !)0 RANDOMIZE |STR$  MOVE  LLIST <>!<"' NEW G!NOT ASN ~ STEP  NEW # SAVE <>0TAB 1 PRINT  OR  MERGE  RESTORE ▚ VERIFY 0▝ RETURN :w+ FOR  LLIST  MOVE STR$  LET <>©@TAB © RETURN  CLOSE #©@CC@© RETURN CHR$ USR  CLOSE #t[G]16 COPY  COPY ▙LN ,~FN ,jVAL , COPY dVAL 2hINKEY$2lINKEY$2pINKEY$2tINKEY$2xINKEY$2,|INKEY$2,INKEY$2▗INKEY$2▖INKEY$2VAL 2[A]INT 2x[K],▚[K]r[Q] COPY  COPY t[G]16 COPY  COPY  RETURN ACS  COPY vFN (, COPY  COPY t[G]16 COPY TAB  RETURN )ACS  COPY TAB pAT ,▙TAN , COPY  COPY  RETURN )ACS  COPY TAB  RETURN )ACS  COPY  COPY  INVERSE ! GO TO  BORDER  GO SUB [ CAT ACS ! AND ACS > STEP a NEW :RND` INVERSE w<> p* VERIFY ACS dTAB : MERGE ACS ATN (=2 MERGE ACS USR CODE 2YINT :sSQR ATN  LINE  RUN EXP >2S GO TO NOT ` GO TO :T STOP  RETURN >=: DATA ATN USR :H OUT ATN  : FORMAT 2 ERASE  STEP  MOVE :8SQR ATN (=28SQR  GO SUB [ CAT ACS  GO SUB S MOVE ACS NOT C<>:tSQR ATN (=2tSQR  STEP uSQR CODE 2l LINE :, STEP ATN CHR$  TO CODE 2INT 2~INT >2▝INT CODE 2▘INT :YINT ATN CHR$ VLN *hTAN |▝TAB  >2▝INT > COPY 2VAL ATN  GO SUB D2 INPUT ATN *jTAN |▝TAB  LINE VLN :}INT =$> RETURN 2VAL ATN  GO SUB D2 INPUT ATN : GO TO  LINE ATN (: FLASH [M] NEW > COPY (CODE 2VAL ATN  GO SUB D2 INPUT ATN  THEN E>2▘INT (>> COPY 2}INT 2~INT  STEP  PRINT  RESTORE  p{ AND _{ RETURN <0g>COS 2 CAT ACS CODE 2~INT :INT ATN :RND`  AND !INT 6=2RND`!INT 5STR$  STEP [N]NOT  NEW >2}INT 2~INT  STEP  PRINT  RESTORE  2{ AND _{ RETURN ATN 8)>@2 CAT ACS CODE 2~INT :INT  RETURN :RND`  VERIFY !INT 6 COPY <2RND`!INT 4STR$  STEP [N]NOT  NEW *jTAN |▝TAB (1 THEN E(:▝INT  GO SUB D2INT 2©INT ▘W!iINT "[INT :▝INT 2INT 2©INT ▘ RETURN  TO 0W!]INT "[INT NOT VLN :▘INT ATN  CODE 2ZINT : REM  LINE  RETURN *8 GO SUB [ MOVE ACS CODE 2INT : FORMAT ATN ( GO SUB S CAT ACS * MOVE ACS  STEP Z THEN  STEP D THEN  GO SUB S CAT ACS  STEP Z NEW B CLEAR ![B]LN NOT . STEP :YINT ATN (>=2YINT  INVERSE  RESTORE  MERGE  STEP ▙ RESTORE  MOVE  INVERSE  LLIST : FLASH [M] NEW  RETURN  CLOSE #NUSR ▜o&uINT ~2"EXP #~2<EXP  RETURN >2©INT 2INT  >> COPY 2©INT 2INT 4:}INT  NEW BIN NUSR :ZINT  RETURN  > COPY <2ZINT ▜o& GO SUB K[INT ~2"EXP #~2<EXP : FORMAT ATN (*[INT ~2"EXP  MERGE z VERIFY *W&* STEP COS  MOVE :©INT  NEW >*2[F]NOT BIN INT >&:"EXP  PRINT  OR  MERGE  RESTORE & STEP [T]IN  LLIST  MOVE STR$  LET z AND W>&:<EXP & STEP [T]IN  STEP S NEW  STEP [G]NOT : DIM  LINE ▘ VERIFY *2#BIN : FOR  LINE g MERGE  STEP SGN  OR  MOVE  STEP `USR :©INT  NEW  TO INT <>>2 MERGE ACS  STEP  STOP EXP  STEP ▙ RESTORE  GO SUB [ CAT ACS  STEP SQR EXP  GO SUB S CAT ACS :sSQR =2sSQR  STEP  STOP EXP NOT `SQR z2TAN EXP { RETURN >8 GO SUB D2LEN EXP  MERGE  STEP Z THEN  MOVE :Y THEN ATN >=z RETURN  TO 8{ AND _ DIM  RESTORE z2 FLASH EXP { RETURN >0 GO SUB D2 CIRCLE EXP  MERGE  STEP  RETURN  LINE  MOVE >=z RETURN  TO 8{ AND _ GO SUB  DIM  PRINT CODE 2 DIM  LINE 2 CONTINUE  LINE 2 GO TO  LINE 2 REM  LINE >*2 FOR  LINE  LET <>!INT  STEP [E] CIRCLE  STEP DTAN :lTAN ATN  LINE  CLEAR EXP  STEP POINT SQR NOT ^` NEW < OUT  LPRINT GGAME OVER COPY  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE : FORMAT ATN (' GO SUB S"BIN : FORMAT  MERGE & STEP [T]IN  MOVE >2!BIN  STEP [G]NOT CODE 2!BIN &z VERIFY "2#BIN  STEP SGN  OR  INVERSE  LLIST  LLIST  MOVE STR$  LET <>]INT ▜TAB hP[K]Z[F]R: FLASH [M] NEW USR  STEP  DRAW  BORDER !SQR > STEP a NEW > STEP zASN = INVERSE w> STEP zASN ▜ GO SUB D INVERSE w<> STEP S NEW z INVERSE ▚W RETURN SCREEN$ 08: FLASH [M] NEW   INVERSE 4{ INVERSE ▚_ STEP Z NEW & STEP 4COS  INVERSE  RESTORE : FLASH [M] NEW  TO NUSR >5 MERGE  STEP VAL [O] STEP `USR STR$  INVERSE  LLIST  STEP  GO SUB SGN ATN BIN SQR CHR$  DRAW INT <> STEP  MERGE >NOT  SAVE  FOR ▗TAB LN INT :8SQR ATN USR  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE >2YINT >28SQR :S GO TO  VERIFY 2S GO TO  STEP ` GO TO CODE 2, STEP  INVERSE  LLIST  LLIST  MOVE STR$  LET <> STEP [F]SQR !QSQR  STEP [E] CIRCLE  STEP uSQR  STEP ATTR ASN  STEP >=SQR  STEP `SQR NOT ` GO TO  NEW < INK  OUT   MERGE VAL$   OPEN #VAL$   COPY :sSQR  AND 0"' NEW NOT  NEW  MERGE :tSQR G>[A]W STEP [I] CONTINUE  RESTORE  STEP [I] CONTINUE  MOVE >ASN o>COS _CODE 6} MOVE <>!) GO SUB @ GO SUB VAL X[Q] GO SUB VAL <>!@) GO SUB  GO SUB VAL !X[Q] GO SUB VAL <> COPY  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE ! PAUSE ASN "' NEW  INVERSE ![K] BRIGHT  OR !ABS SQR ATN   INVERSE +STR$  BORDER :▗INT G>[A]W:INT ▜ AND _>"' NEW  STEP  NEW > STEP  NEW  STEP  INVERSE  INVERSE  LLIST  LLIST  MOVE STR$  LET <>: DATA ATN USR : FORMAT ATN USR :YINT ATN USR :[C] OUT ATN <> STEP !SGN USR  STEP  PLOT  TAN  RETURN 1 CIRCLE  RETURN 6 FORMAT  VERIFY 1o&[G] BRIGHT ~ATN >=O:▗INT EXP >=y2▗INT A▜▜G:INT  STEP [N] STEP  STOP EXP CODE 2 FORMAT <>0 CLS  AND Gy<>:[G]SGN ATN USR : OPEN #ACS  RETURN f FORMAT  STEP  DRAW  BORDER dINKEY$! DATA SGN >2[G]SGN NOT a NEW  STEP S NEW { VERIFY _ INVERSE s{ RETURN  0CODE 2[G]SGN NOT  MERGE & STEP 4COS  INVERSE  RESTORE >> MERGE  STEP VAL [O]STR$  INVERSE  LLIST  GO SUB K CAT ACS { VERIFY EXP  FORMAT : CAT ACS  VERIFY 2 CAT ACS !2hTAN !"jTAN "kTAN CODE 2, STEP NOT SQR ▗TAB [H]SGN  GO SUB [ CAT ACS z VERIFY *W{ AND [B] VERIFY  RETURN  LIST > CIRCLE z VERIFY [A] VERIFY  RETURN  DEF FN > CIRCLE <<>▗TAB >[O]lBIN [Q][Q]4[C]FN  COPY hVAL$ ▗SGN 4[C]FN  COPY 4FN ACS [K]FN CHR$  COPY 4[C]FN >[Q] COPY [U]AT !4[C]j[O]"SGN v6 COPY 4[C]FN [G][Q]>[Q]lBIN  COPY 4[C]FN hVAL ▚INT  COPY 4FN <USR  COPY 4[C]FN  COPY 4[C]FN [U]AT !SGN v6 COPY 4[C]FN ACS FN  COPY 4[C]FN lSIN  COPY <[E]T[A]d_ COPY >[Q]4[C]FN  COPY [U]AT !4[C]FN SGN v6INT  COPY X[I]W<xVAL [A] COPY 4[C]FN  COPY >▙>|▚9TAN [I]4[C]FN  COPY <[A]?|[I]4VAL pe[Q] >[Q] COPY <xX▖m COPY 4[C]FN  COPY P▖,:|G~[U] COPY XH:^[I]▖+ COPY VAL p:▖X[A]X COPY !ABS  STEP dPEEK "ABS "ABS <>!ACS  STEP dPEEK "`PEEK "bPEEK <>▗TAB :RND`ATN >=G~ RETURN  COPY #  IF  SAVE <> COPY TAB ▛TAB  PRINT  OR  MERGE  RESTORE  GO SUB s▘[O] STEP ▗[O]"[R]IN  RANDOMIZE !vPEEK "<IN >STR$  MOVE ;i`SATN  THEN  THEN  THEN zCOS W|VAL g}LEN o THEN 9 THEN  THEN yASN OxTAN GgzCOS _!q#p#s#"<IN = <>!"ASN PEEK " IF PEEK "ACS PEEK " CLS PEEK LN PEEK !sPEEK 1vPEEK >STR$ yACS #xACS #STR$ ;yACS #=  DIM !SQR PEEK 1sPEEK >STR$  MOVE ;yACS w#xACS w#{ACS w#=  GO TO  GO SUB {▘[O] LLIST  MOVE STR$  LET <> INVERSE  RESTORE  PRINT  OR  MERGE  STEP  CLEAR PEEK  GO SUB s▘[O]|2[R][P]!SQR PEEK " LET IN *[R]IN " BRIGHT IN { VERIFY @ NEW ▜TAB o&[Q]N#F OR  INVERSE  LLIST #N#F OR  CLEAR  LLIST 1z▜TAB o&▛USR ""USR :[R][P]!~/O#~/G#~/_#" LET IN !USR NOT {USR !!USR  COPY  INK STR$  MOVE ;!USR NOT {USR !!USR CODE W INK z7 INVERSE  DIM !q#p#s#r#"1USR  INK !q#p#s#r#""USR  INK =CHR$  LOAD IN  GO SUB {▘[O] MOVE STR$  LET  INVERSE  LLIST <> RESTORE !{USR "USR "USR "O[P]"^[P] LLIST <> RESTORE !USR "USR !USR "USR !Q[P]"O[P]!`[P]"^[P] LLIST <>"▖USR &[iVhFkNZ! DIM TAB TAB  COPY TAB  PRINT TAB :RND`![E] AND ATN (G~ RETURN  COPY #  IF  SAVE "[C] AND <> OR  MERGE  RESTORE  GO SUB S"BIN {2BIN  AND 2BIN z2BIN  VERIFY 2BIN *[C] AND ~ RETURN  COPY  LINE BIN  RETURN d#  PRINT ^#V#N#F# STEP BIN ( CONTINUE  RESTORE  INVERSE  RESTORE  INK  GO SUB s▘[O]!:[F]NOT  RETURN 01▛CHR$ NOT  REM NOT 1©NOT  RESTORE TAB  POKE  GO SUB {▘[O] INK  STEP $BIN  STEP { OR  INVERSE  LLIST TAB  MOVE STR$ CODE <>{ RETURN 0▝ RETURN 8z RETURN 0 RETURN 8ATN <>CODE <>TAB  RESTORE  INVERSE  LLIST  GO SUB ["BIN { NEW  DRAW _<2BIN  AND 2BIN :[F]NOT Gz[A]2BIN z2BIN  INVERSE ~= STEP ▝TAB ` FOR  INVERSE ~ RETURN d>= RETURN  COPY >= RETURN e LINE ASN BIN  AND _ INVERSE ~▜TAB  AND 0W~2 OR BIN  NEW ?2 AND BIN O#~▜TAB G2<=BIN # STEP BIN (+:"BIN  NEW  DRAW  VERIFY O{[B]_:[F]NOT G:#BIN [A][C] GO SUB DW:!BIN  GO SUB D▘W: OR BIN  NEW BIN >=BIN  TO 4 OR  INVERSE NOT GBIN ! FLASH STR$  BRIGHT STR$ [T]6 COPY  GO SUB VAL NOT ▝TAB BIN TAB  PRINT  GO SUB s▘[O] RANDOMIZE : AND BIN  RETURN  CLEAR !# OR ( RETURN  CLEAR ! OR ( CLEAR ! OR  RETURN ( CLEAR ! OR :<=BIN z RETURN * PAPER  OR : AND BIN G LLIST  CLEAR NOT ) OR j&)TAB  FLASH STR$ K CLEAR  DIM STR$ y/ACS w#STR$ y/ACS w#STR$ y/ACS w#STR$ y/ACS w#= CHR$  GO SUB {▘[O] LET <>: AND BIN  RETURN  CLEAR !t OR ( RETURN  CLEAR !r OR ( RETURN  CLEAR !p OR ( CLEAR !n OR :<=BIN z RETURN *0j&)TAB  FLASH STR$ K> COPY  CLEAR  DIM w#w#w#w=  BRIGHT <>!▛USR  OVER STR$ :[F]NOT  MERGE ACS w#ACS w#ACS w#ACS w# MOVE /INKEY$w#/INKEY$w#/INKEY$w#/INKEY$w#TAB =CHR$ ▗ OR <> GO SUB ["BIN  GO SUB s▘[O]|ATN (u RETURN +0q2[R][P]C AND  GO SUB C! AND  GO SUB C( AND  GO SUB C/ AND &j)TAB  BORDER { RETURN @ PAPER Z AND  RETURN TAN  ERASE B AND  VERIFY @_ NEW  DRAW o RESTORE  LLIST 1▛USR :[R][P]"2 AND STR$  MOVE  INK STR$  MOVE  INK ~[R] INK LEN  INK w,~[Q] INK VAL  INK w,~[T] INK COS  INK w,~[S] INK SIN  INK w,! =CHR$  AND  GO SUB {▘[O]<>{ RETURN USR 8>USR _ VERIFY @ NEW |o RESTORE kP[P]NOT f AND  RESTORE { RETURN 000kBIN [P]&~!" AND "! AND "( AND "/ AND  MERGE  RANDOMIZE  COPY !0 AND 06#+6w# POKE  MOVE NOT  AND dlLN 8 COPY dh[A]'▗Vj+||+d|8ed:j"++++ COPY dFN LN @ COPY d>VAL 8d[M]VAL !88ed[U]t:d[M]VAL &<d.LN J< COPY dlLN 'j+||+dHjo++++ COPY d8FN  COPY d6VAL &:d[M]VAL !::d<LN !:: COPY dlLN @d:LN d[U]LN %@ COPY dlFN +@d▙FN C@ COPY d<VAL $@dFN VAL @ COPY d@LN @@ COPY dRVAL "@@ COPY d>LN @dVAL FN "@ COPY d>VAL dAT VAL @ COPY d>VAL @@ COPY TAB CODE 2B<>:tSQR  RETURN  PAPER Y<>:lTAN ATN CHR$ 0ATN NOT #ATN CODE 2k LINE : GO TO  LINE ATN CHR$ #ATN :YINT ATN CHR$ #ATN : FORMAT ATN CHR$ #ATN :~INT ATN CHR$ #ATN :lTAN ATN  LINE #ATN :tSQR <2tSQR  STEP uSQR >2B<> GO SUB [ CAT ACS B CLEAR ![L]<>NOT . STEP z VERIFY *W MERGE :©INT  NEW (&* STEP COS :}INT  NEW xBIN NUSR :kTAN ATN >(>2k LINE 2[D] CIRCLE x PRINT  OR  MERGE  RESTORE & STEP [T]IN  LLIST  MOVE STR$  LET z AND W&>*2[F]NOT :kTAN ATN >(y& STEP [T]IN  GO SUB [ CAT ACS  STEP [G]NOT : FOR  LINE g MOVE  GO SUB S"BIN  STEP SGN  OR : FLASH [M] NEW  LINE `USR :k LINE ATN CHR$ `USR  GO SUB [ CAT ACS z VERIFY %W:}INT  RETURN  COPY > POKE (>_{2"BIN  MERGE & STEP 4COS >> PRINT  OR  MERGE  RESTORE  STEP [T]IN  LLIST  MOVE STR$  LET >%2[F]NOT : FORMAT ACS W STEP [G]NOT : FOR  LINE  RETURN &0 VERIFY g MOVE  GO SUB S"BIN  STEP SGN  OR NOT `USR TAB : MERGE ACS ATN USR :m LINE ATN USR :H OUT ATN USR :, STEP ATN USR : FOR  LINE ATN  LINE mEXP  RETURN + FORMAT : REM  LINE  RETURN *0 GO SUB [ CAT ACS  STEP  GO SUB  LINE  >*2 FOR  LINE CODE 2 DIM  LINE <>>2 GO TO  LINE : FLASH [M] NEW  !S GO TO 5 STEP ` GO TO : REM  LINE G: DIM  LINE LN (8 VERIFY  AND 2 DIM  LINE G>*[A]2 FOR  LINE : REM  LINE  RETURN * CIRCLE >2YINT  INVERSE  RESTORE  STEP  INK  LLIST  INVERSE  LLIST <>TAB * MOVE ACS " CONTINUE  THEN  GO SUB S REM  THEN CODE 2 GO TO  LINE 2 REM  LINE  OR  MERGE  RESTORE { AND 2BIN  AND 2BIN z2BIN  VERIFY 2BIN *`PEEK ~< LINE BIN = RETURN  RETURN  #~#fo LOAD _#V#N#F#~# STEP BIN ( OUT 2 REM  LINE >ATN  LLIST  MOVE STR$ <> OR  ERASE  GO SUB CABS  STEP Z THEN  GO SUB KABS  GO SUB CABS STR$ <> OR  RESTORE CODE 2Y THEN  GO SUB S REM  THEN " CONTINUE  THEN { AND _2BIN { AND 2BIN z2BIN  VERIFY 2BIN *ABS ~< LINE [P] THEN =_#V#N#F# STEP BIN ( GO SUB >2Y THEN  RESTORE  STEP INKEY$ THEN  LLIST  LLIST  GO SUB [ REM  THEN  LLIST STR$ <> MERGE  GO SUB [ CONTINUE  THEN {2 OUT  THEN { AND 2 INK  THEN z2CHR$  THEN  VERIFY 2<= THEN  MOVE z RETURN 0 RETURN 8: CONTINUE  THEN 2 REM  THEN <>: DIM  THEN 2 FOR  THEN { RETURN 0{▝ RETURN  FORMAT : FOR  THEN 2 DIM  THEN <>▗TAB : FORMAT ATN USR :YINT ATN USR : GO TO  LINE ATN USR :, STEP ATN USR :lTAN ATN >=:~INT ATN >=>2, STEP CODE 2- STEP <> STEP  MOVE  INVERSE  RESTORE :©INT  NEW ! POKE  TO (! STEP " TO  GO SUB [ CAT ACS :, STEP o=2, STEP &  STEP :- STEP  RETURN (:~INT _:INT  NEW  z RETURN  TO 0:INT ▘W GO SUB S CAT ACS  RESTORE * MOVE ACS  STEP Z THEN  STEP D THEN  LLIST  GO SUB S CAT ACS ~2 NEXT  TO  STEP Z NEW :- STEP ▜o THEN ?<2- STEP & POKE  TO ~2RND TO #~2STR$  TO B CLEAR ![H] TO  STEP . STEP  INVERSE  LLIST <>: NEXT  TO ▘ VERIFY *W MERGE &* STEP COS >:}INT  NEW BIN NUSR :RND TO  PRINT  OR  MERGE  RESTORE & STEP [T]IN  LLIST  MOVE STR$  LET >&>*2[F]NOT :STR$  TO & STEP [T]IN  GO SUB [ CAT ACS : NEXT  TO 2!BIN  STEP [G]NOT CODE 2!BIN : FOR  LINE g MOVE  GO SUB S"BIN  STEP SGN  OR NOT `USR  COPY  DRAW  SAVE  PLOT   POKE TAB  PLOT   SAVE  DRAW  RESTORE  MERGE *n STEP  INVERSE  RESTORE  MOVE s#r#p# CLEAR  RESTORE  MOVE s#r#"n STEP ##6 COPY  MOVE  LLIST <>!p STEP ^#V MERGE  INVERSE  LLIST # STEP S NEW ~ RETURN  COPY >=#N#F# RESTORE  GO SUB Ci STEP  STEP  LLIST  STOP TAN TAB !r STEP ~ RETURN  COPY (8=PEEK 8 PLOT   RESTORE  RANDOMIZE  COPY  RESTORE  GO TO  STEP  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]! GO TO  STEP  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST NOT xATN >=ACS ▜TAB  STEP  DRAW  BORDER ! DEF FN  STEP a NEW  INVERSE 6 INVERSE q INVERSE 6 INVERSE 6z VERIFY  INVERSE w' DEF FN  STEP S NEW  MERGE  INVERSE ~!VAL$  DEF FN  RETURN ▝(!SQR  DEF FN  STEP   CAT  MOVE  INVERSE ~ATN  :RND` INVERSE PEEK USR  STEP Z NEW  INVERSE ~ATN   INVERSE 6B CLEAR !▗ DEF FN NOT . STEP  INVERSE 5{ INVERSE ▚_ INVERSE ~4 INVERSE s INVERSE w DEF FN :RND` INVERSE PEEK  TO . STEP <> MERGE  INVERSE VNOT & STEP 4COS  MOVE >) OR  MERGE  RESTORE  STEP [T]IN  LLIST  MOVE STR$  STEP [G]NOT & INVERSE ~SGN  OR jVAL ~FN ▙LN  COPY jVAL ~FN ▙LN  COPY : FLASH [M] NEW USR :[H] BRIGHT ATN >=:RND` RETURN >= STEP V CAT  RETURN >=! CAT 5USR  INVERSE ![D] NEW > STEP  OPEN #>= INVERSE ~ATN   POKE !PEEK  DEF FN ~ATN ( RANDOMIZE +~ INVERSE w+~ AND W+~ VERIFY _ STEP Z NEW z VERIFY  INVERSE w CAT <>{ AND _z VERIFY WN>=#F#{EXP 0 AND EXP 8zLN 0 AND LN 8~# INVERSE w6<> INVERSE 6## BEEP !LEN  DEF FN !PEEK  DEF FN ~▚▚<>!LEN  DEF FN !PEEK  DEF FN 666<>!v CAT 5USR >(2v CAT > STEP zASN <G INVERSE ![D] NEW >▝ STEP  OPEN #>= INVERSE ~ATN   POKE  INVERSE ~LN   INPUT  INVERSE 5 INVERSE 6 INVERSE 6 DRAW >  INVERSE 6 INVERSE 6 INVERSE 6 PLOT  : FLASH [M] NEW  = INVERSE w AND &z INVERSE ![D] NEW > STEP ' OPEN #>=:RND` INVERSE PEEK   PAUSE  GO SUB [ CAT ACS  INVERSE N INVERSE F STEP  CLEAR  MERGE ATN ( STOP  INVERSE ~2 FORMAT  STEP  MERGE  STEP  FORMAT " FORMAT #~2 FORMAT <>! FORMAT PEEK ( RUN  RESTORE  CLEAR  LLIST <>▗TAB ▖-[R] LPRINT ( LLIST ▝) NEXT  STEP ) RANDOMIZE  STEP ▞,[R] LPRINT 2 LLIST ▘[R] LPRINT [E] LLIST 6[R] LPRINT INT  LLIST ▛[R] LPRINT F MOVE [R] LPRINT   DIM ▟@[R] LPRINT P FORMAT  STEP  CIRCLE  MERGE !▟ FORMAT ~( RETURN 0 AND w<>ATN >==w<> STEP  MERGE > FOR  STEP  SAVE  FOR :RND`ATN   INVERSE * LET  FORMAT  INVERSE 6 INVERSE 6TAN  STEP Z NEW CODE 2 FORMAT STR$ <> INVERSE ~ATN >= INVERSE 5z VERIFY G RESTORE  STEP b VERIFY  INVERSE  LLIST STR$ <>: FORMAT ATN USR  MERGE  RESTORE  INVERSE  RESTORE >▟!J FORMAT  INVERSE 6CODE 2▟ FORMAT <2 FORMAT  INVERSE  LLIST  LLIST  MOVE <> MERGE  RESTORE  INVERSE  RESTORE [U]INKEY$> STEP [R] LPRINT  INVERSE 6 INVERSE " LET  FORMAT CODE 2 VERIFY  LLIST  INVERSE  LLIST  LLIST  MOVE <> MERGE  RESTORE  INVERSE  RESTORE  INVERSE ![D] NEW > STEP  OPEN # [M]LEN !> FORMAT [R] LPRINT  INVERSE 6!"o MERGE  INVERSE "q MERGE  INVERSE  LLIST  LLIST  MOVE <> MERGE  RESTORE  INVERSE  RESTORE hLEN !8 FORMAT [U] LPRINT  INVERSE 6 INVERSE "D MOVE  INVERSE  LLIST  LLIST  MOVE <>*o MERGE |ASN  2!"o MERGE  CLEAR *D MOVE  CLEAR ~ INVERSE PEEK USR  CLEAR N CLEAR F MERGE  STEP  CLEAR  MERGE  MOVE ATN >=!D"o MERGE  INVERSE  RESTORE  CLEAR 6 STEP  DRAW  BORDER  STEP " MOVE  INVERSE  LLIST : FLASH [M] NEW  AND  INVERSE w<> MERGE  INVERSE ~ STEP  MERGE  PRINT  INVERSE  RESTORE  CLEAR ! ERASE  INVERSE ![D] NEW  CLEAR 6 COPY > STEP ' OPEN #(':RND` INVERSE PEEK   GO SUB  INVERSE ~ AND  CLEAR w INVERSE ~ VERIFY  CLEAR w CLEAR 6 CLEAR 6 CLEAR  DEF FN  INVERSE  LLIST  MOVE  INVERSE r MOVE : ERASE ATN ():INT  RETURN ! ERASE (! ERASE :RND` RETURN ( RETURN ( RETURN (~ CLEAR w CLEAR ## RETURN  COPY   PRINT CODE 2 ERASE <>dINT 10f[C]), COPY t[K]4/ COPY POINT TAB  STEP  DRAW  BORDER ![O] ERASE > STEP a NEW  INVERSE 6 INVERSE p DIM <>:RND` INVERSE PEEK USR  INVERSE ~ATN USR  STEP S NEW B CLEAR !q ERASE NOT . STEP  MERGE z VERIFY W>2[F]NOT & STEP 4COS  MOVE > PRINT  OR  MERGE  RESTORE  STEP [T]IN  LLIST  MOVE STR$  LET  STEP [G]NOT &z VERIFY 2#BIN NOT SGN  OR ▗TAB Z ERASE  STEP !SGN USR :CODE  OPEN #ATN ( STEP =ASN USR CODE 2CODE  OPEN #<> STEP  PLOT  TAN  RETURN V( RETURN B( RETURN N( RETURN MUSR  INVERSE ![D] NEW > STEP  OPEN #>= INVERSE ~LN   POKE >2CODE  OPEN # INVERSE ~ATN CHR$ u OPEN #:RND` INVERSE PEEK  G INVERSE N INVERSE F GO SUB [ CAT ACS  STEP  CLEAR  MERGE ATN (7:RND` INVERSE PEEK USR  INVERSE 6<> MERGE  INVERSE  INVERSE ^(SQR   LET ATN  MOVE <> MERGE  INVERSE  INVERSE ^(( PAUSE _ INVERSE INKEY${( FOR  MOVE <> STEP S NEW  GO SUB S CAT ACS  INVERSE ~ STEP nSGN 2▗INT x2INT  INVERSE ~ PRINT  INVERSE  RESTORE  STEP LEN  OPEN # INVERSE  LLIST  LET :RND` INVERSE PEEK  INVERSE ~ STEP  STOP EXP BIN cSGN * CAT ACS " MOVE ACS <>>2 ERASE  STEP  MOVE  GO SUB [ CAT ACS :©INT  NEW > CLS   GO SUB D▘W MERGE  STEP Z THEN :Y THEN ATN   STEP D THEN :Y THEN ATN  MOVE USR :RND` INVERSE w INVERSE 6 STEP Z NEW <> COPY G:T STOP  RETURN >=`CODE 2 CLOSE # GO SUB [ MOVE ACS { VERIFY 2BIN  AND 2BIN z2BIN  VERIFY 2BIN  INVERSE ![D] NEW > STEP ' OPEN #>=:RND` INVERSE PEEK   PAUSE  STEP S NEW z INVERSE [G]W INVERSE F( LPRINT  GO SUB [ CAT ACS  STEP Z NEW  GO SUB S CLOSE # INVERSE ~2 CLOSE # INVERSE " CLOSE #| INVERSE w<><>TAB :H CLOSE # RETURN >=: FLASH [M] NEW ©USR lAT  STEP  DRAW  BORDER !H CLOSE #4!I CLOSE #> STEP a NEW CODE  INVERSE w INVERSE w INVERSE w:RND` INVERSE w<>TAB R CLOSE #>2 ERASE  STEP  MOVE  STEP S NEW :RND` RETURN (  STEP  CIRCLE  MERGE (!, FORMAT :RND`O>▘ STEP [U] LPRINT  INVERSE 6> INVERSE ACS  INVERSE wNOT  VERIFY  INVERSE ~ATN   STEP  MERGE  CLOSE # INVERSE q INVERSE p INVERSE 6 INVERSE 5 MERGE { INVERSE ▚_z INVERSE ▚W LLIST  RESTORE  STEP Z THEN  STEP D THEN  GO SUB [ REM  THEN  LLIST ATN  GO SUB R  INVERSE ~ GO SUB D INVERSE w INVERSE ~ GO SUB D INVERSE w STEP Z NEW B CLEAR !  MERGE  STEP . STEP NOT  VERIFY >  STEP zASN  AND [Q]g> STEP zASN  AND @o:RND` RETURN  !TAN [U]z RETURN AT 8{ RETURN [I]8.[A]{ABS zSGN >= CIRCLE  COPY <> STEP  MERGE > FOR  STEP  SAVE  FOR !H CLOSE #5<> INVERSE 6<> PRINT  OR  MERGE  RESTORE :RND` RETURN J: FLASH [M] NEW ▝& INVERSE  THEN ~BIN NUSR  STEP [T]IN  LLIST  MOVE STR$  LET  MERGE  PRINT >2[F]NOT &z VERIFY W STEP 4COS  LET  MOVE  STEP [G]NOT & GO SUB ["BIN z VERIFY W2#BIN  STEP SGN  OR NOT `USR ▗TAB  INVERSE *q MERGE  INVERSE ~ RETURN  *o MERGE |ASN (+"o MERGE <>:; VERIFY ATN >=: BEEP  MERGE =2 BEEP  MERGE USR > NEW 2 BEEP  MERGE :; VERIFY ATN >==2; VERIFY :RND` RETURN USR > INVERSE ![D] NEW  STEP  OPEN #>= INVERSE ~ VERIFY G STEP S NEW  INVERSE N>J STEP e VERIFY :; VERIFY  RETURN  CIRCLE VAL$ FN  STEP ( CLOSE # INVERSE 6<>:B<>ATN >= MERGE  OR BK: FORMAT ACS W:}INT  NEW > POKE  >_: CAT ACS _ STEP  CLEAR  MERGE ATN STR$  MOVE <>z VERIFY Wx VERIFY G{[B] VERIFY  RETURN  CONTINUE > CIRCLE z[A] VERIFY  RETURN  LIST > CIRCLE <<> LET  COPY  INVERSE <>:RND` RETURN USR { RETURN AT  CIRCLE z RETURN VAL$  FORMAT  STEP  MERGE :; VERIFY  RETURN  FORMAT <2; VERIFY <>: FLASH [M] NEW ATN USR > STEP zASN ATN [K](X> STEP zASN  AND SCREEN$ WB.>+<> STEP  DRAW  BORDER  INVERSE w INVERSE q INVERSE u INVERSE p INVERSE 6 COPY ( GO SUB D INVERSE w!▞ VERIFY > STEP a NEW <>▗TAB [C] VERIFY  STEP S NEW  INVERSE F INVERSE 50?ATN CHR$  PAPER  VERIFY  INVERSE ~ RETURN * LINE ACS  VERIFY  RETURN + LINE <= VERIFY NOT  MERGE  INVERSE 6 COPY  INVERSE ~ INVERSE wNOT  VERIFY  INVERSE ~ NEW  LINE  MERGE  INVERSE 6 INVERSE 6x INVERSE ▚ INVERSE wB CLEAR ! DIM  VERIFY NOT . STEP  MERGE  INVERSE ~& INVERSE  THEN ~BIN NUSR  STEP [T]IN  MOVE >2[F]NOT & MERGE  INVERSE V STEP 4COS  MOVE  STEP [G]NOT & INVERSE ~2#BIN z INVERSE [G] RETURN  ERASE `USR  RETURN  ERASE SGN  OR g STEP SGN  OR NOT `USR :RND`!l BEEP ATN (G~ RETURN  COPY ##  RANDOMIZE +~ RETURN  COPY #  PAUSE  LIST "I BEEP <>*I BEEP  RESTORE ~ RETURN  COPY  #~ RETURN  COPY   LLIST <> LLIST  RESTORE ~#fog BEEP  OR  DIM  LLIST ## STOP INT  COPY  COPY  CLEAR  BEEP  CLOSE # COPY TAB INT  COPY  COPY INT  COPY TAB  OPEN # DATA  COPY TAB < VERIFY  COPY TAB } INVERSE  READ  OVER  COPY  COPY  DIM  BEEP  COPY TAB ) OVER  READ  OVER  COPY  COPY zSGN  COPY  COPY I OUT [A] PAPER  COPY TAB CHR$  BEEP  COPY  COPY ) OVER  READ  OVER  COPY TAB FN  CLEAR ! THEN  BEEP NOT . STEP &~~>' STEP VAL [O][D]< STEP VAL [O]: VERIFY  LLIST ATN >=~▗>6NOT VAL [O]USR  CLEAR ! PAUSE  BEEP NOT . STEP &ATTR >;NOT VAL [O]: FLASH [M] NEW ?USR > STEP  DRAW  BORDER >!  CIRCLE  STEP a NEW  INVERSE 6L:RND` INVERSE w<>▗TAB ) CIRCLE  STEP S NEW  INVERSE F: FORMAT ACS  RETURN TAN 8K MERGE  STEP  GO SUB SGN  MOVE ATN ( STEP SQR NOT  MERGE x RETURN AT  ERASE T INK  AND  INVERSE w CLEAR !X CIRCLE BNOT . STEP  INVERSE V STEP 4COS &>*NOT VAL [O]: FORMAT ATN USR :[D] CIRCLE ATN >=:kTAN ATN USR CODE 2[D] CIRCLE  INVERSE ! GO TO  BORDER >2 ERASE  STEP  MOVE  GO SUB [ CAT ACS  STEP D THEN :Y THEN ATN USR NOT <> CAT ~# RETURN a ERASE [S] CIRCLE  STEP  NEW NOT [E] CIRCLE  RETURN [A] ERASE SIN  CIRCLE  VERIFY x▘W~_#NOT [E] CIRCLE  RETURN  CAT  ERASE IN  CIRCLE  VERIFY CODE _NOT [E] CIRCLE  RETURN  OUT  ERASE  CIRCLE  CIRCLE  VERIFY  CAT  RETURN  PAPER  CAT  CIRCLE  VERIFY  PLOT  @Gy NEW 8VAL ONOT [E] CIRCLE  RETURN  OUT CHR$  DATA  CIRCLE V#^#NOT [E] CIRCLE  RETURN  LPRINT CHR$  INPUT  CIRCLE N#NOT [E] CIRCLE  RETURN  LLIST CHR$  IF  CIRCLE F# RESTORE  OR NOT [E] CIRCLE  RETURN  STOP CHR$  INK STR$  LET NOT [E] CIRCLE  LLIST NOT  PRINT  CIRCLE  RETURN  READ CHR$   INK ~# RESTORE fo OR  MERGE  STEP [E] CIRCLE  MOVE STR$  LLIST #NOT [E] CIRCLE  RETURN  DATA CHR$ 2 INK F#~ STEP  NEW  IF #NOT [E] CIRCLE  RETURN  RESTORE CHR$ D INK F#~ STEP  NEW  IF #NOT [E] CIRCLE  RETURN  NEW USR ~2' NEW #~2( NEW #NOT [E] CIRCLE  INVERSE ~!i INK  STEP a NEW  INVERSE 6(:RND` INVERSE w▗TAB r INK  STEP S NEW :RND` RETURN ( INVERSE 5(I INVERSE ~ STEP  NEW  INK :k LINE ATN ( MERGE  GO SUB K CAT ACS  STEP  CLEAR  MERGE  MOVE ATN (2S GO TO  STEP ` GO TO NOT  MERGE B CLEAR !CODE  INK NOT . STEP & MERGE z VERIFY W STEP 4COS  MOVE & INVERSE  RESTORE z VERIFY W>* STEP VAL [O] INVERSE  LLIST <> STEP  MERGE :RND` RETURN . .z VERIFY G>*NOT  VERIFY :RND` RETURN USR :{ INVERSE ATN  { RETURN L8 RETURN 02{ INVERSE :| INVERSE ATN USR { RETURN  CIRCLE  RETURN PI FORMAT 2| INVERSE <>[K]VAL  STEP  DRAW  BORDER  INVERSE "S PAPER >!% PAPER  STEP a NEW  INVERSE 6<>▗TAB . PAPER  STEP S NEW > STEP zASN  AND  INVERSE wB CLEAR !C PAPER NOT . STEP z INVERSE [G]W& STEP 4COS >)NOT VAL [O]TAB [K]VAL  STEP  DRAW  BORDER >!c PAPER NOT a NEW ▗TAB l PAPER  STEP S NEW B CLEAR !w PAPER NOT . STEP z VERIFY W& STEP 4COS : FLASH [M] NEW  TO NUSR > STEP VAL [O]NOT `USR : STEP  PAPER ATN BIN NUSR : TO  PAPER ATN (:B<>ATN  :B<>2 TO  PAPER ▗k STEP  CIRCLE  MERGE (: STEP  PAPER  INPUT 2 STEP  PAPER BIN NUSR ▗V>& STEP 4COS  STEP VAL [O]NOT `USR  STEP @ ERASE ATTR  STEP  NEXT  STEP [G]ASN  STEP  NEXT  STEP ^ASN  STEP  NEXT  STEP  STEP  DRAW  BORDER  STEP " MOVE  STEP  CAT  FORMAT CODE 2; VERIFY >(2v CAT >2[G] BRIGHT <> STEP ▝ FLASH  RETURN 8 RETURN 8 STEP  IF  BRIGHT ATN <>:[H] BRIGHT ATN USR  STEP Q CAT  RETURN USR :; VERIFY  RETURN  CIRCLE zSCREEN$  STEP  RANDOMIZE  STEP INT  STEP  RANDOMIZE  STEP dSIN  STEP  RANDOMIZE  STEP  STEP  NEXT  FORMAT > NEW 2 BEEP  MERGE > COPY 2 CAT >2[H] BRIGHT NOT >=SQR :[H] BRIGHT ATN >= STEP  PAUSE  FLASH  STEP s MERGE  STEP ▝ FLASH (USR  STEP r FLASH  STEP  LPRINT  FLASH  STEP Q BRIGHT  STEP ▝ BRIGHT CODE NOT PSGN CODE 2[H] BRIGHT . STEP [L] BRIGHT  STEP U INVERSE NOT >=SQR  RETURN  TO  IF  BRIGHT  RETURN  TO  IF  BRIGHT  RETURN  TO  IF  BRIGHT ATN  TO  IF  BRIGHT <>:[I] BRIGHT ATN USR :[H] BRIGHT ATN >= STEP V CAT ATN USR vTAN >▖ STEP [R] LPRINT CODE 2 BEEP  LLIST >2[I] BRIGHT NOT >=SQR :[I] BRIGHT ATN >= STEP  PAUSE  FLASH USR  STEP  LPRINT  FLASH  STEP Q BRIGHT  STEP ▝ BRIGHT CODE NOT PSGN CODE 2[I] BRIGHT 2 BEEP  LLIST . STEP [L] BRIGHT  STEP U INVERSE NOT >=SQR  RETURN  TO  IF  BRIGHT  RETURN  TO  IF  BRIGHT  RETURN  TO  IF  BRIGHT  RETURN  TO  IF  BRIGHT <>:[J] BRIGHT ATN USR : BEEP  LLIST ATN >=[C]EXP >▞!& FORMAT CODE 2[C] LLIST >2[J] BRIGHT 2ABS  OUT 2R PAPER NOT >=SQR :[J] BRIGHT ATN >=: BEEP  LLIST ATN USR  STEP Q BRIGHT  STEP ▝ BRIGHT CODE NOT PSGN  STEP ▝ BRIGHT CODE 2[J] BRIGHT >2R PAPER . STEP [L] BRIGHT  STEP U INVERSE NOT >=SQR :[K] BRIGHT ATN USR :R PAPER ATN USR CODE 2 STEP  PAPER 2 VERIFY  LLIST >2[K] BRIGHT NOT >=SQR CODE 2[K] BRIGHT 2 VERIFY  LLIST 2 STEP  PAPER . STEP [L] BRIGHT  STEP U INVERSE NOT >=SQR TAB  INVERSE ![S] NEW  INVERSE ~<>==  INVERSE  LET  INVERSE ~ STEP nSGN ABS   LIST  INVERSE ~ RETURN   INVERSE 6 READ  RETURN ▛  STEP " MOVE  PAPER  RETURN   STEP  MERGE } RETURN BIN  NEXT  FORMAT  THEN  RETURN ▟  STEP  MERGE CODE 2 FORMAT PEEK  RETURN   STEP  MERGE  STEP  CAT  FORMAT SIN  STEP  MERGE ▝TAB  PRINT  OR  MERGE  RESTORE i&b INVERSE xPEEK (p STEP >=SQR  LLIST  MOVE STR$  LET <>! PAUSE ASN "' NEW !z INVERSE  OR ~ATN  +STR$  RUN <>x= PRINT  STEP nSGN W>[C]Wx▜ AND _STR$ ~ RETURN B:RND`LN >(> STEP  NEW < STEP  NEW  STEP !b INVERSE c INVERSE p GO SUB VAL <>[L]TAB :{ INVERSE ATN ( INVERSE !SIN  INVERSE INT  CLEAR !ATN  INVERSE  STEP . STEP :LEN  INVERSE ATN  `INT :| INVERSE ATN >= INVERSE !TAN  INVERSE INT  CLEAR !ATN  INVERSE  STEP . STEP :SIN  INVERSE ATN USR <>`` OR >* GO SUB SPI` MERGE  STEP Sa MOVE z AND WSTR$  FOR <>:RND` RETURN USR :{ INVERSE ATN ( COPY ! OVER  STEP  LET  INVERSE :| INVERSE ATN >= COPY ! OVER ~ RETURN  COPY >= MERGE _#~▘▜TAB  AND 0W GO SUB SPI`#~=# RESTORE  STEP Sa LLIST  MOVE  OVER  COPY :LEN  INVERSE ATN >=:SIN  INVERSE ATN >=>LN 2 LIST ABS 2-PEEK  CLEAR !G OVER USR NOT . STEP !P OVER NOT  LET  INVERSE ▛▛▛▛######### COPY  STEP  DRAW  BORDER > RESTORE ![I] OVER  STEP a NEW  INVERSE p LLIST  INVERSE u INVERSE t<>▗TAB [R] OVER  STEP S NEW  INVERSE n INVERSE f~ATN ( INVERSE ~ RETURN VAL ( AND  INVERSE w CLEAR !NOT  OVER INT NOT . STEP  INVERSE ~W& STEP 4COS &>I STEP VAL [O]&{ AND _ STEP 4COS &>INOT VAL [O]CODE 2H OUT : CAT ACS 2BIN  AND 2BIN : FORMAT ACS 2BIN  VERIFY 2BIN :RND` RETURN (:LEN  INVERSE ATN >=:SIN  INVERSE ATN >=: GO TO  LINE ATN USR VAL :LEN  INVERSE ATN (X :SIN  INVERSE ATN >=}>=>TAN 2 FORMAT ACS 2H OUT >*2 FOR  LINE CODE 2 GO TO  LINE 2 REM  LINE <> GO SUB [ CAT ACS CODE 2[C] OUT :T STOP  RETURN >={2BIN  AND 2BIN z2BIN  VERIFY 2BIN hhBIN  : DATA ATN USR  GO SUB [ CAT ACS z RETURN p FORMAT  VERIFY *WNOT U READ >l2 FORMAT ACS 2[C] OUT <> STEP  DRAW  BORDER xTAN >!TAN  OUT  STEP a NEW : CAT ACS  RETURN x COPY  INVERSE q INVERSE 6<>▗TAB ?PEEK  OUT  STEP S NEW :H OUT ATN (H STEP  CIRCLE  MERGE ( INVERSE ~ GO SUB D▜_: CAT ACS SQR 0 INVERSE 6 COPY  AND SQR 06 VERIFY SQR 84 INVERSE ~▜G: CAT ACS 2 CAT ACS  STEP SQR > STEP zASN ATN ( INVERSE 6 INVERSE ~ NEW  { RETURN ▖ CLOSE #1 LPRINT { RETURN d BRIGHT 1 LPRINT  INVERSE sB CLEAR !: LPRINT NOT . STEP  INVERSE ~ GO SUB D INVERSE w<>z VERIFY ?W INVERSE ~ NEW BIN NUSR  INVERSE ~ATN ( INVERSE 5> POKE  INVERSE  THEN ~  GO SUB D MERGE _z AND W& STEP 4COS >4 STEP VAL [O] MOVE &? STEP  COS & INVERSE ~ATN >.(>2 STEP VAL [O]z AND W INVERSE ~ATN >/(>3 STEP VAL [O]z AND W: FLASH [M] NEW  AND 0 STEP VAL [O]NOT `USR  STEP  DRAW  BORDER  RESTORE !SQR  LPRINT  STEP a NEW  INVERSE q LLIST  INVERSE u INVERSE t#~ INVERSE w<>▗TAB BIN  LPRINT :RND` INVERSE PEEK USR  STEP S NEW  INVERSE n INVERSE f RESTORE  CLEAR  LLIST  CLEAR n CLEAR f STOP  LPRINT  OR  DIM B CLEAR ! REM  LPRINT NOT . STEP z VERIFY G INVERSE ~ RETURN  FLASH [M] NEW  TO NUSR  OR  MERGE & STEP [T]IN  MOVE >2[F]NOT  MERGE &P STEP 4COS  MOVE  MERGE  STEP [G]NOT  MOVE STR$ x&2#BIN  STEP SGN  OR NOT `USR :RND` RETURN <> STEP  CIRCLE  MERGE :[C] LLIST ( RETURN 0 AND 2[C] LLIST <>ATN >==2[C] LLIST <> STEP  MERGE  INVERSE  RESTORE > FOR  STEP  SAVE  FOR :RND` RETURN  > INVERSE ![D] NEW  STEP  OPEN #(CODE  INVERSE w2ABS  OUT  RETURN  :R PAPER ATN ( STEP  MERGE CODE 2R PAPER  STEP U PAPER  INVERSE  LLIST CODE 2[C] LLIST <2[D] LLIST  LET <> STEP  CIRCLE  MERGE ATN ( INVERSE 4 INVERSE 4 INVERSE ~ RETURN  LLIST  LINE  LINE COS  LLIST NOT  VERIFY  LET  STEP / CLOSE #NOT  VERIFY :RND` RETURN USR { RETURN x CIRCLE  RETURN ▗ FORMAT >2 VERIFY  LLIST STR$  INVERSE 6 INVERSE 6<>TAB : CIRCLE  LLIST ATN USR :RND` RETURN USR  STEP  DRAW  BORDER  GO SUB [ CAT ACS z AND  STOP  STEP a NEW  INVERSE 6>2 CIRCLE  LLIST <> p* STOP  STEP S NEW  INVERSE 5CHR$  STOP CODE 2 CIRCLE  LLIST NOT  MERGE  CLEAR !% STOP z VERIFY *GNOT . STEP z VERIFY W& STEP 4COS &>?NOT VAL [O]:T STOP ATN USR <2T STOP  STEP  DRAW  BORDER  INVERSE "R STOP (S>!U STOP  STEP a NEW <>TAB  p*^ STOP  STEP S NEW TAB :T STOP  RETURN 0: FORMAT ACS  VERIFY *INT 8z AND W: CAT ACS SQR 0 STOP z RETURN K8z VERIFY W:T STOP  RETURN  !>2~INT 2}INT :T STOP  RETURN  :lTAN ATN ( INVERSE  RESTORE  STEP U READ  INVERSE  LLIST >2T STOP { RETURN STR$ 8, INVERSE 6(:T STOP  RETURN  LINE  LET  STOP :INT  RETURN :RND`  VERIFY !INT 6 COPY <2RND`!INT 4STR$  STEP [N]NOT  NEW  STEP Z NEW >= CLEAR ! SAVE  STOP NOT . STEP CODE 2T STOP NOT  MERGE z VERIFY W& MERGE  STEP 4COS { AND _& STEP 4COS  MOVE : FLASH [M] NEW  AND $& STEP VAL [O]{ AND _>&& STEP VAL [O]:T STOP  RETURN USR CODE 2 FORMAT ACS { VERIFY _z AND W:}INT  NEW BIN NUSR &* STEP COS &> STEP VAL [O]z AND W> STEP VAL [O]NOT `USR  PRINT  MERGE  STEP  DRAW  BORDER ![H] READ >2 DATA > STEP a NEW SGN  STEP [A]EXP z VERIFY * INVERSE w INVERSE s:INT  RETURN   INVERSE 6▘:RND` RETURN  { RETURN h8 RETURN [I]0 INVERSE 6B MOVE  LET <> p*[Q] READ  STEP S NEW :RND` RETURN  8:{ INVERSE ATN (:LEN  INVERSE ATN  >dSQR 0 AND SQR 8>2LEN  INVERSE :| INVERSE ATN (:SIN  INVERSE ATN  >xSQR 0 AND SQR 8>2SIN  INVERSE z INVERSE PEEK 8z AND *W GO SUB S CAT ACS  GO SUB S MOVE ACS CODE 2 DATA NOT  MERGE z AND W INVERSE r>= CLEAR !5 READ NOT . STEP  INVERSE ![S] NEW  INVERSE N(I!r DATA ~## RETURN  COPY (EXP ( POKE  INVERSE  NEW :RND` INVERSE PEEK   POKE  OR  MERGE  INVERSE N INVERSE F GO SUB [ CAT ACS  STEP  CLEAR  MERGE  MOVE STR$ ATN ( LPRINT : DATA EXP >=y2 DATA  RESTORE ![B] DATA  STEP [E] CIRCLE  LLIST +~NOT [R] DATA : DATA ATN >=CODE 2 DATA ![B] DATA NOT [E] CIRCLE ▘▝))▜)**▛J▟@6 COPY  NEW < LPRINT G OUT  LLIST  TAB AT  STOP  COPY  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  STEP ▗[O] RESTORE  INVERSE  LLIST  STEP [I] CONTINUE }COS o INVERSE ~w INVERSE #, INVERSE ~w INVERSE #, INVERSE ~w INVERSE # READ  INVERSE  LLIST  LLIST  MOVE STR$  LET <>! PRINT  DATA >G>x STEP zASN ATN x  RESTORE #V# STEP  RESTORE  LLIST <>## RESTORE [A]f|^TnBn▚V[H]f COPY  STEP  DRAW  BORDER ! RESTORE  STEP a NEW  INVERSE 6 INVERSE q:RND` INVERSE w<>▗TAB " RESTORE >2[R][P]!s[Q]"[G][O] STEP S NEW z RETURN SGN  ERASE  MERGE  INVERSE ~ATN (= INVERSE wG▜o&s[Q]"[G][O]> INVERSE [G]=2[R][P]z AND W INVERSE r& STEP 4COS  INVERSE ~*[Q][P] INVERSE  RESTORE  MERGE  STEP VAL [O]STR$  INVERSE  LLIST  STEP  GO SUB SGN ATN BIN SQR CHR$  MERGE >2[R][P]!s[Q]"[G][O]<>:lTAN ATN >=: FORMAT ATN >= INVERSE !>2 ERASE  STEP  MOVE  GO SUB [ CAT ACS  RETURN ▝( RETURN  >LSQR  FORMAT >PISQR  CIRCLE * FORMAT ##~#fo" INPUT  RESTORE :©INT  NEW > CLS   GO SUB D▘W MERGE : CAT ACS _ STEP Z THEN :Y THEN ATN   STEP D THEN :Y THEN ATN  MOVE USR * FORMAT :RND`O: FORMAT  STEP CODE 2 FORMAT <>: FORMAT  RETURN ▝( RETURN (CODE <>:~INT  NEW {  RETURN COS 0CODE <> RETURN @(8CODE <>>ATN <> PRINT  MERGE  RESTORE  OR o&)TAB  RESTORE z NEW  SAVE  PLOT  @Gz` NEW TAB o MOVE w$ IF %STR$ |TAB  NEW  PLOT  Xgq LLIST  MOVE  LET <> INVERSE ^ INVERSE V<> INVERSE s INVERSE r<> OR  MERGE  RESTORE  INVERSE  RESTORE  MOVE  GO SUB VAL  LLIST  MOVE STR$  INVERSE w INVERSE s INVERSE r PRINT z INVERSE ▚= INVERSE w LET <> INVERSE ![S] NEW  INVERSE ~<>==( INVERSE n INVERSE f[K] NEW  OR  DIM  INVERSE NOT ▜ NEW TAB  INK TAB  COPY  PRINT  MERGE  RESTORE ![S] NEW ~ATN (<(NOT  CONTINUE  RESTORE  INVERSE  LLIST  LLIST  MOVE  LET <>! POKE ![S] NEW [T] NEW X6 GO SUB VAL 6 COPY <>![S] NEW ~<(3= RETURN 0( RESTORE  INVERSE  LLIST > INVERSE INKEY$(:RND` INVERSE PEEK  > INVERSE VAL$  INVERSE w RESTORE T]VAL  LLIST <>!/"CHR$ COS >*2 FOR  LINE CODE 2 REM  LINE 2H CLOSE #2H OUT 2YINT 2 CIRCLE  LLIST 2 DATA !/"CHR$ COS CODE 2▜COS 2 LIST ABS 2-PEEK 2[G]SGN <>z NEW USR 7SCREEN$  NEW  SAVE SCREEN$ gz NEW <=SCREEN$ o<>x NEW USR 7FN  NEW  SAVE FN Wx NEW <=FN _<>:INT  RETURN USR : GO TO  LINE ATN USR CODE 2m LINE  GO SUB [ CAT ACS { AND 2BIN  AND 2BIN z2BIN  VERIFY 2BIN ! DIM ^>=#V#N#F# STEP BIN ( LIST >2m LINE <>pLEN |EXP ▖LEN  COPY  PRINT `IN !D FORMAT > STEP [R] LPRINT  INVERSE 6 LET <> STEP  CIRCLE  MERGE >= STEP  MERGE > FOR  STEP  SAVE  FOR  STEP 5 STOP STR$ <>:RND` RETURN USR : STEP  PAPER ATN >=: VERIFY  LLIST ATN >=: CAT ACS  RETURN x CIRCLE  RETURN ▗ FORMAT !h DIM  STEP [E] CIRCLE  STEP DTAN :lTAN ATN   RUN  STEP DTAN :lTAN ATN ( RUN  STEP POINT SQR NOT ^` NEW < LPRINT C OUT WELL DONE PROFESSOR COPY  STEP  DRAW  BORDER >a NEW CODE  INVERSE w INVERSE w INVERSE w INVERSE w INVERSE ww<> p*CODE  DIM >2 ERASE  STEP  MOVE  INVERSE 6 STEP S NEW  STEP  CIRCLE  MERGE (,:}INT  INVERSE w GO SUB D INVERSE wCODE  INVERSE w INVERSE w INVERSE 4▗INT  RETURN ( INVERSE ~ FOR  MERGE {NOT p REM  INVERSE ~5RND` RETURN 8 INVERSE ~ATN (> STEP zASN ATN   STEP 2 FOR / INVERSE 6 INVERSE ~ATN  % INVERSE ~ATN   GO SUB K CAT ACS  MERGE  STEP  CLEAR  MERGE ATN  MOVE ( INVERSE 6 INVERSE 6 INVERSE 6 INVERSE 6 STEP SQR  INVERSE ~ATN  > STEP zASN ATN  PRINT  TO INT  FOR  LET BIN  CAT  FOR  INVERSE q INVERSE p> STEP zASN  AND  INVERSE w INVERSE 5 MERGE { INVERSE ▚ INVERSE ▚_z INVERSE ▚W LLIST  RESTORE  STEP Z THEN  STEP D THEN  GO SUB [ REM  THEN  LLIST ATN  GO SUB R  INVERSE ~ GO SUB D INVERSE w INVERSE ~ GO SUB D INVERSE w STEP Z NEW B CLEAR !INKEY$ REM NOT . STEP  MERGE >*2[F]NOT  INVERSE ~ NEW BIN NUSR z VERIFY *W&* STEP COS  INVERSE ~ATN () INVERSE 5: CAT ACS SQR  BRIGHT NUSR :. FOR & STEP [T]IN : FLASH [M] NEW O:/ FOR ▝& STEP [T]IN NOT  FOR  INVERSE ~ INVERSE ACS (> : FLASH [M] NEW O:. FOR ▝& STEP [T]IN :/ FOR & STEP [T]IN  MOVE  STEP [G]NOT  GO SUB ["BIN z VERIFY *2#BIN &* STEP SGN  OR NOT `USR TAB  RETURN  INVERSE N INVERSE 6 INVERSE 6 INVERSE 6 INVERSE 6 INVERSE  RESTORE  MERGE  STEP  DRAW  BORDER !d FOR > STEP a NEW  INVERSE q INVERSE 6 SAVE z VERIFY & INVERSE w MOVE  INVERSE  LLIST <> p*m FOR  INVERSE ^ INVERSE F INVERSE V INVERSE ~_ INVERSE ~ RETURN  LINE [R] FOR ▘ INVERSE w INVERSE 4 INVERSE s CLEAR ![E] FOR NOT . STEP  INVERSE V& STEP 4COS >@NOT VAL [O]P STEP  MERGE > FOR NOT  SAVE  FOR  STEP  MERGE :RND` RETURN  TO ATTR  FORMAT > LPRINT NOT  SAVE  FOR >  STEP zASN  AND FN g: CAT ACS  RETURN .COS 8.@* CAT ACS > STEP zASN  VERIFY o{ABS :1 FOR 0 GO SUB DO> STEP zASN ATN >=zSGN 8 RETURN <><> INVERSE  RESTORE ▘G STEP  DRAW  BORDER ! GO TO > STEP a NEW  INVERSE 6 INVERSE p INVERSE  LLIST <>▗TAB  GO TO  STEP S NEW  GO SUB K CAT ACS :▗INT  RETURN   STEP  CLEAR  MERGE ATN BIN SQR  CLEAR !7 GO TO BNOT . STEP  INVERSE V& STEP 4COS  INVERSE ~ AND < STEP VAL [O] INVERSE 4 INVERSE ~ RETURN  LINE  MERGE <> NEW < OUT  LPRINT G TAB  COPY  PRINT  OR  MERGE  RESTORE !T GO TO  STEP [E] CIRCLE  THEN :S GO TO  NEW ( MERGE  STEP mEXP CODE 2S GO TO  MOVE :S GO TO  RETURN 8>2S GO TO  AND USR _ OR  STEP [M] GO TO STR$  SAVE  LLIST  MOVE STR$  LET <> STEP [I] CONTINUE { NEW  SAVE TAB o{ NEW G> CLEAR VAL$ w<> TO TAB ![U THEN : THEN  IF s,  NEXT <>z NEW  AND @G STEP  GO SUB P<>[H] THEN : THEN : THEN :COS _<> COPY *ATTR  RETURN  COPY © RETURN U© INPUT  READ ©©+ COPY  DRAW  STEP  COPY  RETURN U CLS  RETURN  MERGE  COPY  COPY + COPY  DRAW  INK  COPY  RETURN W COPY  IF  READ  COPY  COPY +IN  POKE  COPY  COPY  RETURN W COPY SCREEN$  DRAW  COPY  COPY TAB  SAVE  COPY  RETURN TAB  IF  COPY  COPY TAB  SAVE  COPY PEEK TAB  CLS  COPY  COPY TAB  SAVE  COPY  RETURN TAB  IF  COPY  COPY TAB  SAVE  COPY  RETURN TAB  CLS  COPY  CLEAR TAB  SAVE  COPY  RETURN TAB  IF  COPY  INVERSE TAB  SAVE  COPY  RETURN TAB  CLS  COPY  CLEAR TAB  SAVE  COPY  RETURN TAB  IF  COPY  CLEAR TAB  SAVE  COPY  RETURN TAB  CLS  COPY ABS TAB  SAVE  COPY  IF TAB  IF  COPY  CLEAR TAB  SAVE  COPY  IF TAB  CLS  COPY ASN TAB  SAVE  COPY  IF TAB  IF  COPY  PRINT TAB  SAVE  RETURN  IF TAB  CLS  COPY  PRINT *ATTR  RETURN  DRAW  OUT  REM U© RETURN  COPY  COPY  PRINT * CLEAR  DRAW  READ  COPY  REM U COPY  IF  INVERSE  COPY  MERGE + OUT  DRAW STR$ ©SCREEN$ U COPY  IF  INVERSE ©U+ COPY  POKE  READ SCREEN$ W COPY SCREEN$  COPY  COPY TAB STR$ TAB  COPY  COPY ▚TAB  COPY <=▚TAB  COPY SIN ▚TAB  COPY ATTR ▚TAB  COPY [K]▚TAB  COPY <=▚TAB  COPY  RETURN ▜TAB ©▜TAB 6▜TAB ?▜TAB >▜TAB ;▜TAB >▜TAB =▜TAB >▜TAB =▜TAB >▜TAB =▜TAB >▜TAB =▜TAB >▜TAB =▜TAB >▜TAB =▜TAB :▜TAB =▜TAB :▜TAB =▜TAB :▜TAB =▜TAB :▜TAB 5▜TAB j▚TAB  COPY  PRINT ▚TAB  COPY  AND ▚TAB  COPY LEN ▚TAB  COPY *▚TAB  COPY [J]▚TAB  IF B▚TAB  MERGE U COPY TAB  THEN TAB  COPY TAB U▗TAB  READ  COPY <=*▗TAB  STEP  COPY SIN @▗TAB  MERGE  COPY ATTR ▗TAB  INK  COPY [K]S▗TAB  READ  COPY <=▗TAB  COPY  COPY  RETURN Y▗TAB  DRAW ©▗TAB  SAVE 6X▗TAB  SAVE ?▗TAB  SAVE x>X▗TAB  RANDOMIZE B;▗TAB  IF PEEK >X▗TAB  SAVE PEEK =▗TAB  RANDOMIZE PEEK >X▗TAB  IF @-▗TAB  RANDOMIZE u>X▗TAB  SAVE SIN =▗TAB  SAVE <>/▗TAB  SAVE =▗TAB  SAVE >/▗TAB  SAVE =▗TAB  SAVE >/▗TAB  SAVE =▗TAB  SAVE :TAB  SAVE =TAB  SAVE :TAB  SAVE =TAB  SAVE :TAB  SAVE =TAB  SAVE :TAB  SAVE 5TAB  DRAW jU▗TAB  COPY  COPY  PRINT *▗TAB  READ  COPY  AND U▗TAB  INVERSE  COPY LEN +▗TAB STR$  COPY *W▗TAB  INVERSE  COPY [J]+▗TAB  READ  IF BW▗TAB  COPY  MERGE U/ COPY TAB STR$ TAB U COPY  COPY  RETURN  COPY  SAVE IN  COPY  COPY  DRAW  COPY  RETURN TAB  COPY ~ COPY TAB  SAVE  COPY  COPY  COPY TAB  LINE  COPY  COPY TAB ( COPY  RETURN $[C]$[K] COPY  COPY  [I] COPY  RETURN TAB  COPY  COPY TAB  COPY  RETURN TAB  COPY  COPY TAB  COPY PEEK TAB  COPY  COPY TAB  COPY  RETURN TAB  COPY  COPY TAB  COPY  RETURN TAB  COPY  CLEAR  COPY TAB  SAVE  COPY  RETURN -b REM  COPY  INVERSE  RESTORE {_X COPY  RETURN  DIM  OPEN #SIN  COPY  CLEAR  GO SUB {[LN  COPY  RETURN -cSIN  COPY  CLEAR  COPY TAB  CONTINUE  COPY  RETURN ▚TAB  COPY ABS ▚TAB  COPY  IF ▚TAB  COPY  CLEAR ▚TAB  COPY  IF ▚TAB  COPY ASN ▚TAB  COPY  IF ▚TAB  COPY  PRINT ▚TAB  RETURN  IF W COPY  COPY  IF  COPY  PRINT  COPY  CLS  COPY  DRAW  OUT  REM  CLEAR  COPY  CLEAR  IF  COPY  PRINT  OUT  COPY  COPY  DRAW  COPY  REM  COPY TAB  IF  COPY  MERGE ABS  COPY  COPY  POKE ©SCREEN$  COPY TAB SCREEN$  COPY T COPY  COPY UT RETURN [Q]TAB  COPY TAB  LOAD TAB  RESTORE  INVERSE  LLIST @!@{ASN o RESTORE  INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # INVERSE ~w, INVERSE # LLIST  STEP [Q] PLOT  PEEK <>$| NEW USR } AND  o CIRCLE | VERIFY g<> NEW : LPRINT G OUT  VAL$   OUT  OVER   OVER  TAB  MERGE  SCREEN$  OVER   INVERSE    MERGE    INK  OUT   MERGE  OUT   OPEN # OUT   OUT  MERGE  DATA    OUT  READ  RUN  OUT  READ  RUN  OUT  READ  RUN  OUT  READ  RUN  OUT    OUT    COPY  RESTORE   COPY ) GO SUB !@ GO SUB VAL !X GO SUB VAL <> STEP  GO SUB !CODE  PLOT   STEP [E] CIRCLE !) GO SUB  STEP U PLOT  !) LOAD  STEP U PLOT  !) LET  STEP U PLOT  !) NEXT  STEP U PLOT   STEP  RUN >2TAN  GO TO <>TAB TAB TAB TAB TAB TAB TAB  COPY TAB  FORMAT TAB  GO TO ▖TAB  FLASH |8USR  STOP MMOCOS LO/q COPY  COPY 1:[>ASN ><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@TAB <B@NB<BB~BTAB >TAB >TAB BB<DHpHDB@TAB ~BfZBTAB BbRJF FLASH |8[I] CLEAR M4LEN 33]LEN 33]J][A]4F][L]6e3Y'NOT ATN -@]^`T^ OUT 1:[>ASN >[J]ASN >▚SCREEN$ TAN _