Elite 3: Elite3.B

  0[Q]) COPY  CLEAR WU COPY  DRAW [Q] SAVE  LOAD  LINE SCREEN$ [Q][A]@I COPY  CAT  RETURN  COPY  COPY  LINE SCREEN$ ▖ LOAD  COPY  CAT  INK  DRAW  COPY  NEXT SCREEN$ [Q] COPY <= RUN  COPY [P] RETURN SCREEN$ SCREEN$ [Q] COPY  BEEP  CLEAR RND BORDER USR ? RETURN  COPY SCREEN$ SCREEN$ [Q] COPY  BEEP 7 CLEAR  FORMAT  RUN USR  COPY ;IN  COPY ©jFN @ COPY  FLASH [T] COPY  RUN  COPY  COPY UP' COPY  COPY WW COPY  COPY  ? COPY <= RESTORE UP USR $? COPY [P] RETURN  COPY  CAT  RESTORE U    NEXT  COPY [P] FLASH  DRAW  COPY  RANDOMIZE [F]UP? COPY ▜ FOR  COPY  CAT  RETURN ▜ MERGE UP? COPY CODE  CLEAR <= CAT USR [P] RETURN  COPY  MERGE UPUSR ? COPY CODE  INPUT  CLEAR  LLIST  PAPER USR  COPY  OUT  COPY ASN T@ COPY ATN U COPY  LOAD  COPY  RETURN @SCREEN$ FN  COPY  COPY © RUN  COPY  COPY USR © COPY  READ  PAUSE SCREEN$ FN  $© COPY ? RETURN ©<= PAUSE FN FN  GO SUB  CLEAR  CLEAR  CLEAR IN IN  DRAW  COPY ?[H] SAVE  COPY [N]jSCREEN$ FN © COPY [ MERGE  COPY  BORDER  RETURN NOT  REM SCREEN$ FN © COPY _ CLEAR  READ [P]USR  RETURN  COPY  BORDER  REM SCREEN$ FN USR © COPY _[C] CLEAR  LIST  PRINT USR  COPY  LOAD  COPY  PAPER SCREEN$ @ COPY o} COPY  OUT  COPY  DRAW @9UT COPY  COPY © RUN  COPY  COPY  COPY  RETURN p LET  RANDOMIZE UT $ COPY  RETURN © RETURN © READ  RANDOMIZE QT[Q] COPY ~©RND SAVE  COPY uUT COPY  RETURN SQR [T] COPY  RUN  RETURN STR$  PRINT UT COPY  RETURN IN  CLEAR <=IN  LPRINT STR$  COPY ©<= PRINT UP@© RETURN IN ▟ CLS  REM  CIRCLE USR © NEXT  COPY <= INVERSE T@ RETURN  OUT _ COPY ? COPY  SAVE SQR @ CONTINUE |SCREEN$ SCREEN$  COPY  COPY © RUN  COPY  COPY  COPY  DRAW  SAVE  RANDOMIZE  DRAW SCREEN$ SCREEN$  $ COPY  DRAW  COPY  RETURN ? LET  DRAW ▘SCREEN$  DIM  RANDOMIZE  CLEAR  CLEAR ?$ COPY  COPY  MERGE  LIST  COPY <=zSCREEN$ SCREEN$  COPY  CLEAR {STR$  RETURN  COPY  RETURN  LIST  IF SCREEN$ SCREEN$  COPY  CLEAR © CLEAR ATTR  COPY  LPRINT  LLIST  COPY © READ  PLOT  SCREEN$ FN @ COPY  CLEAR IN G CLS  CLOSE #u? CLEAR  COPY  READ  INPUT SCREEN$ @ CLEAR IN  RETURN  COPY  COPY  LIST SQR hACS  REM ~UUUSR  COPY  RANDOMIZE  SAVE  COPY  RETURN UU COPY  RANDOMIZE  COPY  RETURN x RETURN UU!$  COPY  GO SUB  COPY c LPRINT  COPY  READ }UU COPY  IF  CLS # COPY  COPY  RETURN  SAVE  CLEAR UU COPY  IF  COPY  CLEAR  STEP  COPY  LPRINT  LIST  COPY ©LEN  CLS UT@ COPY  CLS © LLIST  CLS  CLS PEEK  LPRINT  SAVE ©w LOAD T@ CLS IN  OR  SAVE © COPY  LPRINT  COPY  CONTINUE IN  IF  COPY *SCREEN$  COPY  NEXT  DRAW  COPY  COPY *SCREEN$ ▖ COPY  NEXT  COPY  RETURN < COPY SCREEN$ "! COPY  BORDER  COPY  MERGE  LPRINT © NEXT ~SCREEN$ SCREEN$  COPY  PRINT  CLS  RANDOMIZE  COPY  RETURN  RETURN  RETURN SCREEN$ SCREEN$  COPY  PRINT  COPY  CLEAR  LOAD  COPY USR  DRAW  COPY © CIRCLE  CLEAR SCREEN$ FN @ COPY  PLOT   COPY [A] CLS  CLEAR  OUT x CLS IN # RUN *E RUN ©NOT  RUN © COPY  LPRINT @© CLEAR 7e COPY  PLOT  USR  COPY [F]U@ COPY  COPY  BORDER ? COPY  RETURN  COPY  BORDER  DRAW  COPY  COPY [F]UP COPY  BORDER  COPY  DRAW [O] COPY [F]U@% CLEAR  SAVE [R][O] COPY  BORDER  COPY  COPY USR ? COPY  COPY UU@ COPY  FOR  COPY  THEN  NEXT USR  COPY  RETURN  RETURN  COPY UU@ COPY  FOR  COPY  CLEAR PI COPY USR  RETURN  COPY IN  RANDOMIZE  RETURN  MERGE T@ COPY  GO SUB  COPY EXP  RUN  COPY  COPY SGN  RUN  OUT  REM  RUN [E]N[G] LOAD ©e LOAD IN  COPY USR  COPY  RUN  LOAD  NEW  RUN SCREEN$ o6 LOAD  CLS  COPY  OUT IN  COPY  CLS  RETURN  COPY  CLEAR  CONTINUE oACS ABS a CLEAR  COPY © COPY  COPY ~[P] CLS USR  STEP [K]^ COPY  CLEAR  CLS  COPY  DRAW © INVERSE  CLS ▟ LOAD  COPY  SAVE IN  COPY © COPY  SAVE  COPY  RUN > PLOT  SCREEN$  LIST oVAL IN  CLS © COPY IN  DRAW  COPY ©© COPY [P] COPY  STEP  COPY  CLEAR [P] COPY  COPY  CLS  IF ATTR USR ~ COPY  COPY ▜ LIST >IN  READ  COPY  RETURN  COPY  SAVE  SAVE  COPY  COPY }C LPRINT UOUSR  COPY  LIST  COPY  RUN  RUN CHR$  CLS  CLOSE #nACS  OVER ASN  COPY IN IN  COPY  CLS  COPY © CLEAR  DATA O[G]ABS  LPRINT  CLS  COPY ©USR  COPY IN [O] CAT  RUN  FORMAT  CAT [K]_© CLEAR  BORDER  COPY  DRAW ? CAT  CLS  CAT  LOAD @ COPY  SAVE IN U© COPY  LIST © RUN  PLOT  U RUN  COPY  LOAD IN  COPY IN  CLS © COPY IN  SAVE  COPY IN IN  COPY  LPRINT  COPY  CLEAR © COPY  RUN  PRINT /IN  COPY  RETURN @~© COPY  CONTINUE  COPY  COPY © COPY NOT  LPRINT *▝7 COPY  DRAW  COPY  LPRINT  COPY  RUN  CLS  BORDER  CLS  LINE e6 OVER Z COPY ©IN  RETURN  CLS  COPY © CLEAR  CONTINUE _ VERIFY ABS p CLS  COPY ~` COPY [P] LLIST NOT  RUN USR ?g7 LPRINT © RETURN  COPY  DRAW <= CLS  BORDER  LOAD  © LIST 7IN  COPY © COPY  LPRINT ? RUN  PLOT  ATTR  LIST © CLS © COPY IN  LIST  COPY IN  COPY  COPY  COPY  COPY  NEW  COPY  COPY ? COPY  COPY  COPY  COPY  PAUSE IN @© COPY  RETURN  COPY  COPY <= LIST ©_<= COPY  COPY  COPY  DRAW ? COPY  POKE  COPY  COPY © COPY NOT  LPRINT UOCODE 7 COPY  DRAW  COPY USR  COPY  RUN  CLEAR  LOAD  CLS  CLOSE #`6 OVER ASN  RETURN  COPY IN  DRAW < CLS  COPY © CLEAR  DATA g6ABS EXP  CLS  COPY | LIST  COPY  CLEAR  LET  RUN [Q]PI/USR /© RETURN  COPY  COPY  DRAW  READ  CLS  PRINT  INPUT P@{IN w© COPY  LPRINT  CLS ▝ CLS U COPY  FLASH  PAUSE ~ OUT  COPY  PLOT   COPY  COPY © LPRINT  COPY  OUT  COPY  COPY  CLS  COPY  PAUSE  COPY  NEXT © DRAW  COPY  COPY  OUT  RESTORE ~[Q] COPY  COPY  COPY © COPY NOT  LPRINT ©/▜ COPY  COPY  COPY  DRAW  COPY  IF  COPY  COPY © COPY NOT  LPRINT ▝/▝ATN  COPY  DRAW  COPY © RUN  CLEAR  READ  CLS  REM b6PEEK [J] RETURN  COPY IN  SAVE >} COPY © CLS  CONTINUE 7fPEEK x CLS  RETURN  RANDOMIZE  LIST  COPY <= CLEAR  RANDOMIZE  RUN ATN n© RETURN  COPY  COPY  DRAW  LET  RUN  PRINT  INPUT FN  COPY C RETURN  CLS IN  INVERSE IN  COPY USR  CLS ▝ CLS + COPY  BRIGHT STR$  OUT  COPY  NEW  COPY  COPY ©USR 7 COPY  OUT  LPRINT  NEXT `4/ REM CODE P COPY  COPY  COPY © COPY NOT  LPRINT ©CODE ▜ COPY  COPY  COPY  DRAW  COPY  DRAW © COPY NOT  LPRINT  COPY /7 COPY  DRAW ? RUN  RETURN  NEXT  CLEAR  DATA g6ABS ▜ CLEAR  COPY IN  LIST ©= RETURN  COPY  CLS  DATA z PLOT  PEEK AT  CLEAR  RETURN  NEXT  SAVE  COPY  READ  CLEAR x RUN USR  BEEP /© RETURN  COPY  COPY  DRAW  SAVE  RUN  CLEAR  INPUT U[ COPY [F]G COPY © CLS IN  COPY IN  COPY  CLEAR  CLEAR [H] COPY  OUT  COPY  COPY  OUT  COPY  STEP  COPY  RETURN  COPY w COPY  OUT  OUT  COPY  LIST  RETURN  RANDOMIZE O[H] COPY  RETURN © COPY  RUN  RESTORE _[Q]© COPY NOT  LPRINT /▜ COPY  COPY  COPY  DRAW © COPY NOT  LLIST  COPY /7 COPY  DRAW  RUN  RETURN  RUN  CLEAR  REM g6ABS NOT  CLEAR  COPY IN  LPRINT © RETURN  RETURN  COPY  CLS >= AND  OVER  MERGE  CLEAR  CLEAR  COPY  SAVE © LET  CLEAR = LOAD  OUT  BRIGHT IN  RETURN  COPY  COPY  SAVE  DRAW  RUN EXP  INPUT SCREEN$ SQR  COPY  OUT  CAT  COPY IN  CLS IN wIN  COPY  RETURN  LLIST  RETURN  CAT  COPY  THEN  CLEAR  RETURN [P] COPY ; COPY  CLEAR  RETURN  LOAD  COPY  OUT IN  COPY  LLIST  DRAW } OUT  BEEP  COPY  COPY ? COPY  CLS  REM IN  FORMAT |C LPRINT ▗▝USR © COPY |C READ  RETURN ▝CODE ▝ATN USR  DRAW  RUN  RETURN  FOR  CLEAR  DATA g6ABS [R] CLEAR  COPY IN USR © RETURN  RETURN  COPY  CLS  FORMAT [N] LINE ^IN  CLEAR  CLEAR  COPY  SAVE © RANDOMIZE  CLEAR [M] LOAD @ COPY  DRAW IN  RETURN  COPY  COPY  SAVE  RETURN  RUN  INPUT Uw COPY  OUT  OUT  COPY IN  CLS IN  INVERSE IN  RETURN  RETURN  RANDOMIZE  COPY p COPY  RETURN  RUN  COPY  CLEAR  DRAW  LOAD  COPY IN © COPY NOT  SAVE |IN  BORDER  COPY  COPY ? COPY  CLEAR  PRINT © CONTINUE ? COPY  COPY | LPRINT *▝USR  COPY  LIST ? COPY | BORDER  RETURN ▝CODE ▝ATN USR  SAVE  COPY }C LPRINT ▝CODE ▝ATN USR  LIST  LPRINT LEN SIN 2[I]e~@xC6hE INK 0 DRAW SCREEN$ IN  LLIST  PRINT T COPY  LIST 86fCOS COS 1INT ATTR  SAVE [A]@A INPUT  LPRINT CODE  CLOSE # DRAW  DRAW  LPRINT  COPY © COPY NOT  COPY  COPY ▝CODE ▝w COPY  DRAW  LPRINT  SAVE  LPRINT USR  COPY ▝ COPY SCREEN$ [D]FN U CLEAR <= READ |EU(EICHR$ @"©( LET xxRSCREEN$ [C]"WuW[A]@]SCREEN$  CODE  CLOSE # LIST < LPRINT  COPY © COPY NOT  COPY  COPY ▝/▝w COPY  DRAW USR  LIST  LPRINT  DRAW ©© COPY SCREEN$ [C]FN U IF O<=~USR  COPY  COPY ▙EU()Ir@E COPY  COPY Pq? RETURN ▗<RATTR [C][C];CODE USR (5W STEP [B]SCREEN$  _ REM USR  COPY © COPY NOT  COPY  COPY ▝o▝w COPY  DRAW  COPY  COPY  CLEAR  COPY  COPY  COPY  COPY  COPY  COPY  COPY USR SCREEN$ [C](S COPY  COPY  COPY  PRINT _ CAT ? COPY  COPY  COPY ▝▛EU()IR@ATTR  COPY  COPY  SAVE 1 COPY R? POKE RFN [C][C]_ LPRINT P5_UQV`Q INPUT  _ REM ▘ RETURN  COPY  COPY <= COPY  COPY ▝CODE ▝CODE  COPY  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY EXP INT ;a COPY  COPY  COPY  FOR }[P]_ COPY  COPY  COPY 3[J]33 TO  INVERSE WB▜ COPY  RETURN  LLIST  COPY  POKE 1SQR ::[A]IN  LPRINT  CONTINUE  RETURN UQT@]"@IN  POKE  LPRINT  RETURN  COPY  COPY <= COPY  COPY STR$  OUT STR$  CAT  COPY  DRAW  COPY  COPY  COPY  COPY  COPY ( COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  BEEP ;▗A COPY  COPY  CLEAR  COPY  RETURN  RETURN  © FOR _ LIST  DRAW UUT@A"IN  POKE  LPRINT @ LPRINT  LPRINT [B][A]@© COPY  COPY  COPY  COPY © RETURN  COPY  COPY  COPY  COPY  DRAW @EH© COPY  COPY CODE  BEEP  COPY  COPY  DRAW {TAN © COPY  IF  COPY  DRAW CODE @ COPY  BEEP CODE  SAVE  SAVE  TO  LINE " DATA © IF ? LIST ? LIST USR  RETURN  COPY ▘@? COPY  COPY  COPY  COPY USR  COPY  COPY  COPY  COPY  SAVE @E@? RETURN _ CONTINUE  COPY  SAVE  AND USR CODE WSCREEN$ © IF ? LIST 6666666666666666666666660000004855*[J] FORMAT :[H] FORMAT g"SQR  FORMAT  STEP t OUT *^ OUT |ASN 2q ! CLS  INVERSE 6<> RESTORE  STEP  DIM  BRIGHT  LLIST 6( STEP d©>H!q STEP ▘[F] STEP ▘!J` STEP ▘NOT  FLASH  INPUT  INVERSE 6 OUT <>[I]▝9b/▛ COPY © COPY pUSR  AND c©9 COPY qi COPY $SGN  COPY * RUN USR USR  [G][L]b~ AND c▗ READ aVAL  IF a[D]b[D](b[D]?b▜Vb FORMAT mbUSR ▗b LIST [L]b LIST SIN b LIST <>b LIST  LPRINT b DRAW  RUN b LIST cBIN <c CLOSE #Sc<=jc COPY ▝c FORMAT [I]c CLOSE #CODE c CLOSE # INVERSE c STEP AoNOT {(, P !6H2>V Mt[I]VAL [E] LET AT P2RND CIRCLE /PPS2▙STR$  LET [R]/Kx N~CHR$ P_&[G]2wT[Q]P▘ IF (e[I] CLOSE #[Q]P[G] IF >=S(N▝ABS _[Q]&[G]CODE 22SGN < IF ([G]>=FN GUSR ( COPY [Q]TATTR  PAUSE ▘c COPY ' LIST  POKE 77 IF K▜[A]A▘%F2▚VAL  MERGE 2dU( DEF FN /@ LIST (x2a2[B]dc COPY X67▟ PAPER  AND [A]( RETURN '[A] IF  LIST k[I]"dTAN /O[Q]x.jFN <nPI[T][H]@STR$ >/[G][O]( OPEN #PEEK M[H]_[Q]/STR$ k[O] ERASE { OVER [T]MSIN >k[H]^[T]~J[F]_▖▖▖▖[O]▖▖ OVER ▖▖[Q][Q][Q][Q][Q][Q][Q]NdRd(8[Q]USR STR$ LEN SIN  ERASE  OPEN #[T][F][G][H][E]Z/lk{}MJ▖ COPY ?>▘*JX▚&'z[B]9;KAQYics{ STEP  OVER  LOAD  DRAW _[O] OVER  RETURN ~>PEEK >_[O]kkk[Q][Q][Q] 1_d1t[O]0v OVER  V?t▖~d▖ RETURN V▖PEEK u▖)t▖hd▖ CONTINUE V▖FN u▖POINT uw CONTINUE VU(twhdfD$,, NEW d FOR d&F7GVHxWhXxhhxGVuF?)POINT #%4GVX8gxYj{[P]PEEK  STEP [P]_[O]_?@@  VAL [P]3 COPY 3PEEK 3"$:e<e#?#?^[P]4z'gp COPY  COPY  COPY IN  COPY  COPY  COPY  COPY U COPY  COPY & .meqe COPY  COPY ?151# OUT # RETURN B^0"~ D`U[O]V[P]6PEEK T`3>@UCODE eLEN eV6#$E?H(#9IEhyVW[O]__~?`30) OUT 3?3_3"*?_IN  COPY LEN [E]d MERGE  LINE h"3J COPY  COPY ^ COPY  COPY  OUT  COPY  COPY _ COPY  COPY e BRIGHT  COPY  COPY [P]2? COPY  COPY ©[I]INT PPF(<22<(FK2<GfIf'm/K:#EVx} STEP [M][L]ATTR ▞?4&V5E('G78x^[P] OUT _IN  COPY © COPY ©??BQH@@I/-OA▜#&LFB;'CPB:f3QC/^?! COPY "^CU?B COPY PEEK 1©T RETURN 5>&PEEK COS 23SIN  PAUSE rH0  NEW f INPUT f$4&E5 COPY ?>30xH7%&VF5[M][N]ATTR VAL$ PEEK  STEP ?[P] OVER ^_0!  COPY  COPY [O] COPY  COPY  COPY  COPY  COPY s COPY ~▗ TO IN  COPY  COPY > COPY  COPY ©[I] TO  RETURN [H]SCREEN$ ?e[J] COPY POINT SQR ~EXP  TO ASN [J][J]ASN [J][J]4[J][J]5[J][J]u[J][J]u[J][J] POKE [J][J] PRINT [J][J] COPY  DIM [J][J]FN [J][J]PI[J][J]&[J][J])[J][J]h[J][J] LxX((( ($(($($(($(LZP(X(P(INT g<>gL:z▞iYy&7H[K][L][M]ATTR SGN $V[J] COPY ?= BORDER 5 PRINT LEN COS  DIM 8GgiYX%&5FATTR {)Ehx[K][L] STEP  LOAD #-<gATTR [P][P][P][P]? OUT __>74fP**_2vT? COPY  COPY PEEK  COPY  COPY ?T[I]~vINT IN LN  TO >POINT  TO  COPY ?▞ TO ~INT  TO 00`0 0p LPRINT phhlh#Y7&zHk[K]▛[M]AT SGN ▞ATTR Eg▖SQR [J]SCREEN$ ?)8($%45'6iyzjIZ9:)*[P] OVER ^[P] OVER ^IN >~ RETURN ?(&%p?5k~SQR ?SQR PEEK % COPY  OUT ^ COPY  OUT %^y OUT ▖^w4i[O]4ZW"ATTR SQR SQR (SQR SQR kSQR SQR (SQR SQR KK-+-IE+--ISi"i654k[+%JI(ZiySQR  COPY 7?1 FOR +)FN POINT [M]ATTR '6EHKYZhkyzFW OUT  LOAD 7IN >_ OVER [O]?#&+;@P.2Z_ COPY /` COPY [J]: COPY ~B[J]INT WSQR Sv:4x©4[J] RETURN S[J] THEN Jk[J][J]▞+SCREEN$  THEN [J][J]J[J][J]( CLOSE #i RESTORE i)YI9HW6$54[J][J][J]gh COPY ?/;- FOR ATTR ATTR +ATTR POINT ))H▞7Vg%4ix,IN TAB PEEK  LOAD [P]??PEEK ;SQR >_Dh?%-._@▖>E3~aD$ COPY _D4"?VDt▖ OUT [J]PEEK 5[J] RETURN a[J][O]r[J] OUT [J][O]#[J]IN V[J][O]▜ COPY [N][J][J]SGN [J][J] DRAW [J][J] BRIGHT [J][J] 00 D Dtt[U][U]@P▙j[C]jH4E5F$G'#Vx▞9Yi)y[J][J]? CLEAR $&*57;L]n©[N][O]AT VAL$ ABS IN #_~>?~^[P]g<@g<0[P] COPY &5?3PEEK  COPY ?~@5CODE .l GO TO  $@ CLEAR jkVE#&5 COPY ?/+$%45gix▞?[P]^ OVER _p/ [P] COPY #?#gPEEK ▞ COPY ?g TO PEEK >=[J]©| THEN  RETURN  TO [L]PEEK  TO >l LINE [P]Jj OVER [^{▜▗(((▛k[C]kg&7▞HY|l[M]SGN {[L]AT jE# COPY ?'[T] RESTORE $+-5:<FIWXgm|▞[L]ATTR  STEP  LOAD ^^[O] OVER ^[O] OVER ^?'E24[Q] COPY "PEEK D©2>$ COPY ?e[P] COPY  OUT 3[O]U©c>E (&[O]?©>^$$h.*$f>5ff> COPY ^f~f[P]$ COPY PEEK 5w[P]wPEEK w OVER w RETURN w[N]wwSGN ww P E([Q]▛P@^>^~[O]K+K% rlul&F$6V5'G7Ww?=#(9EJ[hjy{▞ATTR  STEP  COPY w[O]w^ COPY  OVER ▖?$wPEEK 5w~$▖ RETURN 5▖?FwPEEK Vw~F▖ RETURN V▖?fwPEEK fw~f▖ RETURN f▖?fw~f▖ABS ff<ffABS ff<ff DRAW ff|ff](8](8 INVERSE (8}(8P(<(# #2%[O][O][O]?^(:mDm'7(8GWHXFgVghgghhh▖▖▖f COPY ?IN  COPY  GO SUB  INPUT  GO SUB &7HYj{[L][N]AT VAL$ IN /ATTR [K]SGN 57FHhW[K][O][K]^[K] OVER  COPY [K][O]$[K]^[K] OVER $[K]5[K][O]F[K]^5[K] OVER F[K]?7[K]PEEK h[K]~7[K] RETURN h[K]?w[K]PEEK ▖[K]?[K]ATTR PEEK [K]ATTR ?[K]ATTR ~[K]ATTR  COPY [J][J]-#-#-[O][O][O][O]?~?Z.P<nn)*9I:JYiZjyz▞[K][K][L][L]ATTR ATTR [J][J]?IN  COPY ABS 2 &7HYj{[N]VAL$ IN $4%5a`qp COPY ?E~E? COPY PEEK #U[O]#333▞33)DDhDD CONTINUE UUFN UU)DDFN UU`0ZZW5&'$^ OVER [O]?PEEK &M[I]nPIn#5%#E33DDDU COPY ?>()&)&('FN $#5Fzy▞IN  CAT SGN  GO SUB  FLASH  INPUT USR !w FORMAT F.z~[A]0.▜w CIRCLE NOT Ds STEP u VERIFY <*SGN  OVER  FORMAT  STEP u VERIFY >W OVER  LLIST NOT _ CLOSE #!k READ  RESTORE  STEP ! CLOSE # :[M] FORMAT  RETURN  ERASE  STEP SGN  STOP  STEP ! CLOSE # PLOT   STEP SGN  STOP !!T/ STEP 4 OPEN #NOT POINT  STOP <<<$$<,H▘
  46168 !o:qPI>=>2 CLEAR : CLEAR  FORMAT <>> PAUSE <2Bo(:LN POINT  RETURN 8 INVERSE ~&PI >FN 2SCREEN$  CLEAR ^F READ  INVERSE  INVERSE n INVERSE f INVERSE ^ INVERSE V~ THEN o O#~2SCREEN$  NEW  # OR  MERGE  RESTORE  RETURN (G:LN POINT LN 0= INVERSE ~ STEP SCREEN$ (5!SCREEN$  THEN  THEN w0 NEW  AND  NEW  STEP PVAL$  O MERGE :SCREEN$  NEW  STEP PVAL$  FOR  MOVE   THEN  THEN  STEP DVAL  LLIST  MOVE STR$  INVERSE ~<( INVERSE #[F] INVERSE  LLIST >VAL 2SCREEN$ <>fgNOT ▞pNOT POINT pNOT VAL p RETURN Y CODE 2▜ FORMAT =w.▙<PEEK  LINE G FOR NOT W REM * LPRINT  LLIST ~x RETURN = CIRCLE ~<>▘▝A( STOP S CLS BIN 6 FOR x[K](N|VAL ▞ BRIGHT ? ▝5a[R]BATTR [S]7-STR$  IF 5USR ,[Q]p[Q]▘(#▖▖@: DRAW  THEN o>=! FORMAT ~PI>=4CODE <2[F][M]!(q THEN  AND   IF <>.( STEP INT p.:A FORMAT PI } NEW o:▝ FORMAT PI(} NEW :ov}! RETURN YwT] OR  GO SUB LN +++STR$  LIST <>^C DRAW  COPY NOT fs[Q][Q][Q][Q][Q][Q]AA[Q][Q][Q][Q][Q][Q][Q][Q]J LIST R3[I]ACS  IF ▛VAL$ BIN rFNOT )▙ COPY NOT [U][J]NOT y[F]NOT 0qNOT t[J]~▜O▜▜▝wzNOT H FORMAT ! COPY ~2 DATA p THEN ©  AND  NEW ©O>[B]2 RETURN p,,~2 RESTORE p THEN ©  AND  NEW ©O>[B]2q,,~2 NEW pG▜▜ AND 2 POKE p<>:[K][M]PI(CODE 2[K][M],: DRAW G NEW  THEN LN x2 DRAW >=:qPI>=: FORMAT PI>=:qPI>=:? FORMAT PIUSR !i` THEN VUSR >2)qCODE 2 READ p STEP B STEP USR qNOT  GO SUB [D] CLEAR !q INVERSE !H` STEP  DEF FN q STEP  DEF FN q STEP  DATA q)0 THEN  DRAW  CLEAR t CLEAR u CLEAR  INVERSE <> CLEAR f CLEAR n INVERSE V INVERSE ^NOT RND[M]: READ p RETURN  CIRCLE  RETURN  FORMAT :? FORMAT PIUSR : DRAW  NEW O: DRAW  NEW pLEN >= THEN ?0 CLS x STEP >▝CODE 2 DRAW 2 DRAW <>!!r5! DRAW  THEN PEEK USR >2!rv THEN ~>=!VAL  FORMAT  THEN v>=!A FORMAT 5(: IF p RETURN ( CIRCLE >w!i` THEN [G]CODE 2[J][M]..NOT  SAVE o:▝ FORMAT PI.  PRINT <>:A FORMAT PI  CONTINUE <>:▝ FORMAT PI>=>2INT  FORMAT  CONTINUE :CODE  FORMAT =(= LINE  INVERSE  FORMAT  VERIFY  LINE  GO SUB  FORMAT => CLOSE #(<>!e` STEP ▗ STEP 3 DRAW  STEP B1 ANOT [O]s: DRAW  NEW >=! DRAW <  RANDOMIZE v! DRAW ~# RESTORE ! CLS r STEP  MERGE r8 STEP  CLOSE #r8 LLIST  DIM ~ LLIST VAL$ won READ ~<># OR O STEP  BRIGHT ySTR$ <> STEP ▗z]:▙ FORMAT PI(U*} FORMAT |U*© FORMAT "} FORMAT bo"© FORMAT EBDF@RY S LAK(C9Q AND  LINE CODE >.w#w#w#w#w<>W NEW :[S]r PI(:[S]rSCREEN$ ! CLEAR  STEP  INPUT  OUT w!AT r RESTORE  OR v_G>0 OPEN # RETURN  RETURN {GCODE  OPEN # RETURN  RETURN   REM STR$  READ <> GO SUB sxu STEP  POKE [E] STEP B:▜ FORMAT PIUSR  RESTORE  STEP  RETURN  LLIST  CIRCLE  RETURN 8 CIRCLE  RESTORE  STEP +▟ LLIST USR :w FORMAT  RETURN  CIRCLE 2▜ FORMAT <>CODE 2 READ p STEP 6 FORMAT  STEP B!e` THEN  RETURN  STEP at: DRAW <  PAUSE !pt4~ NEW  RETURN 0 SAVE !<VAL$ _N STEP uSQR  STEP  STEP 0t STEP CODE [M] STEP PEEK © COPY ! DRAW v> THEN N < THEN ^ : DRAW  VERIFY    CAT G2[S]r NEW G!VAL w STEP 3 FORMAT CODE 2q2q2INT  FORMAT 2q2A FORMAT 2u STEP ~▝ STEP  FORMAT  STEP  POKE [E]K STEP Gt! STEP Gt!>"E FORMAT * MERGE  FORMAT ## THEN  RETURN  STEP 9 FORMAT !"E FORMAT >* MERGE  FORMAT ## THEN  RETURN  STEP H FORMAT * MERGE  FORMAT ## THEN PEEK <>! X STEP gt LIST >w# DRAW <>!:$qPI  STEP <q STEP  OPEN # STEP [T]r0CODE 2 READ p STEP BNOT [O]s STEP B FORMAT :qPI  STEP  NEXT q: DRAW  THEN o( ERASE  STEP N FORMAT CHR$ [E]s STEP  FORMAT <=:qPI  STEP {q STEP >=] STEP  OVER ~ STEP Sx: READ p RETURN 8! STEP [M]:qPI( STEP ▙[I] STEP Y[K] STEP USR u STEP < FORMAT  OR  STEP  NEXT qvSTR$  SAVE + STEP B STEP :qPI TO ▗u STEP [I]x STEP < FORMAT  STEP [M] STEP [G][C] INVERSE  STEP ` GO SUB  STEP  INK ▗ CLS  STEP "r STEP @[K] STEP POINT ▝:qPI LINE qtCODE 2 NEW p2 q<2$q. STEP  SAVE o STEP  STEP [I] STEP [P][M] STEP H[F] STEP '[F] STEP B OR  STEP  STEP [I]x STEP [M]* MERGE  FORMAT ## RESTORE  THEN  RETURN !"E FORMAT > STEP ▝[D] LLIST  THEN PEEK  STEP PEEK ©STR$  PAPER  STEP  STEP PEEK © STEP [F]2v CLEAR CODE 2$q2qNOT [O]sVAL$ BIN rFCODE 2 q!qzu GO SUB VAL  STEP EXP  BEEP  PRINT  STEP USR u LET PI( STEP  FORMAT ▚:▚ RETURN (8>2 q!qzu GO SUB VAL  STEP EXP  BEEP PI>=NOT  OVER ▚:INT  FORMAT PI>=:uPI :▚ AND (0>2qCODE 2▚2u<> INK  INK : READ pPICHR$ [F]v:▘u THEN ©CHR$ *x NEW ©2▘u*▝u FOR *{u:uG:zuO| THEN ©  INK  THEN USR  INK  NEW ©g STEP [Q]wz2▚*▝u FOR *~u:uG:}uO| THEN ©  INK  THEN >= INK  NEW ©g STEP [Q]wz2▚ INK x INK 2▚:▘uPI ![Q] GO SUB [u GO SUB R8> COPY 9![Q] GO SUB [▝uPI GO SUB R PAPER *x:▘uPI(G:▝uOCODE [Q] THEN ! THEN 8 THEN # PRINT 7 THEN  STEP =xz:▝uG>[Q] STEP ;xzNOT [D]w= +:▘u THEN © LINE *x NEW ©2▘u*▝u FOR *{u:uG:zuO| THEN ©( NEW ©g INK  THEN USR  INK NOT v=CHR$ pw:|u THEN © LINE *x NEW ©2|u*{u FOR *▝u:zuG:uO| THEN ©  INK  THEN USR  INK  NEW ©g STEP [Q]wz2▚*{u FOR *~u:zuG:}uO| THEN ©  INK  THEN >= INK  NEW ©g STEP [Q]wz2▚ INK x INK 2▚:|uPI ![Q] GO SUB [zu GO SUB R8> COPY :![Q] GO SUB [{uPI GO SUB R PAPER *x:|uPI(G:{uOCODE [Q] THEN ! THEN 8 THEN #NOT Nw7 THEN  STEP =xz:{uG>[Q] STEP ;xzNOT [D]w:|u THEN ©CHR$ *x*{u FOR *▝u:zuG:uO| THEN ©( INK  THEN USR  INK NOT  GO TO v2▚><>eiSXNOT BIN w RESTORE  INK  INK PI GO SUB R PAPER  GO SUB w LINE  INVERSE w LLIST |PI( BORDER > THEN ! GO SUB j PAPER x THEN   THEN  THEN =  LIST >) PAPER x FOR ) FOR =  PLOT  > THEN $ PAPER x THEN "=  PLOT  <> OR y[A]STR$ 8(NOT TAB w THEN  FORMAT NOT  NEXT w INK   RUN  THEN  CIRCLE  INK  LLIST > THEN ! GO SUB j PRINT  THEN   THEN  THEN 8, LET =  LOAD <> THEN   THEN  THEN  PRINT 7 THEN  THEN  LET 8 RESTORE PI GO SUB R0 LLIST 7 THEN PI GO SUB R LLIST  LET CODE <>7 THEN  LET 8 SAVE  THEN 7 THEN |B RETURN  THEN #8LN 0 THEN " FORMAT  NEXT [A]7 THEN  FORMAT  GO TO  INVERSE !q STEP [M] INVERSE !qNOT h[L]:qPI INVERSE !H`  INVERSE ~"PIUSR =2q STEP _ INVERSE ~ NEW ©USR  INVERSE ~ NEW ©USR  INVERSE ~ NEW ©USR  INVERSE  THEN &~USR CODE 2q> LIST  INVERSE w"<>: INVERSE ~=  STEP FN  RANDOMIZE >2 NEW p STEP LEN x>2 NEW p STEP LEN x: READ p RETURN 2ASN x( !9z6 COPY # CLS  RETURN 0 PRINT G: NEW p THEN ?<VAL G LET ! DATA p8# PRINT ~8 NEW O~ NEW ?LEN O LET  PRINT  NEW  PRINT POINT O>TAB o MOVE  MERGE / NEW SCREEN$ VAL$ W LET . NEW VAL$ _ LET  RETURN 0:qPI>(> PRINT !9z PRINT ~#INKEY$< LINE [U]y MERGE +V#^ RESTORE z▜oy STEP $[J]W{▜oy STEP $[J]_ LLIST ~/POINT  NEW COS +~ STEP Yz#POINT  NEW SIN  STEP YzxPI((+~▜ RESTORE ox STEP $[J]<W LLIST ~FN  NEW SIN  STEP Yz#~ RESTORE ▜ox STEP $[J]< LLIST _~FN  NEW COS  STEP Yz MOVE { STEP Yz+z STEP Yzx~#0ACS  NEW p 6 COPY  GO SUB _ NEW ▝ STEP Yz+ GO SUB _ NEW ▝ STEP Yz## LET =CHR$ y LET  PRINT  PRINT +~+ PLOT  <(~▜▜0w STEP [J]ATN  NEW IN +w LET =  LPRINT STR$  OR ~ THEN w#  +▜>?8[G]▙ NEW ©G#~▜>w8[G]▙ PLOT  O RESTORE  STEP <FN  LLIST #STR$  MERGE <> COPY > RUN  STEP *▛0> LOAD  STEP *▛8>0 AND GqxVAL >=![A] FORMAT  STEP  BRIGHT  CLS =  NEXT <>: FORMAT  RETURN 8:b FORMAT  RETURN ▗> CIRCLE >SGN <>FN [B]uAT [D]▜P[S] SAVE 7k▖*d$fATTR [M] DRAW LEN VAL 7[S]^ OR GVAL$ x8 NEW ©O~ NEW ©▝ THEN ©([P]Ox NEW LEN wSTR$ <> NEW ©O~ NEW ©[B]0 GO SUB D FOR F CONTINUE !/[H]~ INPUT [A]w!COS COS ~ INPUT w: READ p RETURN  FORMAT >2BIN [G]<> RESTORE 6#r#r:j`PI( THEN  RETURN  INVERSE ^# INVERSE V$!aN 1 ANOT  POKE t#~#SQR ~##  GO TO INT   DIM  LLIST y RETURN USR (:TTAN  NEW LEN w THEN w>= THEN Y( THEN [O]:VAL  FORMAT  THEN w( STEP [J]ATN  NEW p  THEN  OVER  THEN f( STEP [J]ATN INKEY$  THEN INKEY$ THEN n>=:j`PIUSR  STEP [J]ATN  NEW >= THEN VAL$ <> CLEAR ~ STEP PVAL$ *RTAN #w#r#s RESTORE > STEP PVAL$  LLIST #w#z INPUT w#{ INPUT w<>*RTAN ~ RESTORE !VTAN  STEP INT TAN  LLIST w#6 COPY NOT [J]ATN  INVERSE  CLEAR  INVERSE ~ COPY  CLEAR VAL$  COPY  INVERSE ^ RETURN  CLEAR ~ RETURN ( RETURN $<>[D]0 IF  GO SUB D PLOT   NEW >=!!` CLEAR !MTAN ' CLEAR < RETURN   NEXT  CLEAR ~PI THEN ©>= THEN w  THEN W>= INVERSE  RESTORE  RESTORE  INVERSE  LLIST :UTAN  INVERSE VAL$ % NEW  INVERSE  LLIST USR  STEP [J]ATN  NEW USR _LEN  NEW >={POINT  NEW >= INVERSE  THEN &F  THEN S  THEN Q>= CLEAR  RESTORE  RESTORE  CLEAR  LLIST  INVERSE  RESTORE  STEP J{ BRIGHT J{ BRIGHT J{ INVERSE  LLIST  CLEAR  LLIST  FORMAT :UTAN _ CLEAR ~▜▜▜▜COS  CLEAR w RESTORE  CLEAR  READ  INVERSE ~" NEW ? INPUT _ CLEAR ~"[D]0 CLEAR  THEN   NEW  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  INVERSE  LLIST  INVERSE  RESTORE  STEP ATN  CLEAR  LLIST  INVERSE  LLIST  LLIST > CLEAR w" CLEAR  LLIST 7<> CLEAR N CLEAR F RESTORE  INVERSE ~# RETURN j ( INVERSE ~% STEP j{8+x STEP j{8%x STEP j{8!o` CLEAR !aTAN > PRINT  STEP ▝{8 CLEAR  LET =  INPUT  LLIST <> LET  LLIST 7<>2[F][M]!TTAN 4~ NEW  4 INVERSE !H`!WTAN > PRINT 2UTAN ~ NEW USR  INPUT USR  RESTORE  CLEAR  LLIST ( THEN n(W CLEAR 5 R INVERSE ~/ NEW  PLOT   CLEAR w THEN v(7 INVERSE ~ PI(: THEN n(/~ NEW  INPUT (:j`PI  INVERSE ~"?SQR 8 CLEAR ~PI( STEP [J]ATN SQR 8 STEP [J]ATN SQR ( STEP [J]ATN [T](_ THEN PEEK  STEP | THEN  RETURN 0H0[D]~ RESTORE  CLEAR  RESTORE  LLIST  STEP INT TAN  LLIST w CLEAR N CLEAR V CLEAR ^ RESTORE  RESTORE  CLEAR  LLIST  CLEAR F CLEAR f CLEAR nx[R]<( x< xAO FOR y<  STEP [J]ATN O PLOT  USR W_x THEN  THEN  STEP DVAL  LLIST ' INVERSE  LET =PI ATTR <>6[Q] CLEAR t FOR  INVERSE ~# RETURN  READ USR  INVERSE  THEN  ACS  INVERSE  THEN   NEW <> RETURN CHR$ gLN  STEP gLN USR  CLEAR *RTAN  CLEAR ~ NEW  INVERSE w%CODE <>!WTAN :[H][M] VERIFY /=( IF  THEN v ~ PLOT   DRAW <>=:VTAN  STEP INT TAN 2VTAN ~ NEW >=~▜▜▜▜w NEW >=!j`~PI<>+ THEN  VERIFY <> CLEAR  RESTORE  CLEAR *RTAN  CLEAR ~ CLEAR  LLIST  NEW USR NOT  BORDER  FORMAT  CLEAR *RTAN  CLEAR ~ NEW  LINE  REM  FORMAT  INVERSE w!<> INVERSE  THEN &v(:SIN [M]PI( RETURN (>2SIN [M]▜" INVERSE f$ INVERSE n#~ NEW > ~ RETURN U>0~ RETURN <USR y RETURN 2USR >NOT gLN ( STEP E RANDOMIZE  STEP - RANDOMIZE NOT AT FN *RTAN ~ NEW  SAVE  RETURN [Q](7 THEN _ LINE  INK PI STEP E RANDOMIZE  STEP - RANDOMIZE # INVERSE ~ PI(t INVERSE ~"xSQR 08SQR 0~ THEN 8 RANDOMIZE  INVERSE 4"8W INVERSE 5" INVERSE 5"X~ NEW G: OVER INKEY$[A]8 RETURN 0>g: READ p:NOT POINT 8 INPUT OCODE  THEN  THEN  INPUT *STR$ POINT  FOR jc"▚Hx THEN W( INPUT G OR  STEP  OVER ▚!▚~STR$ w PAUSE y RETURN  PAPER  INK PI STEP E RANDOMIZE  STEP - RANDOMIZE NOT xFN :[D][M]O*RTAN ~ NEW  SAVE  RETURN [Q]USR 4~ NEW USR w INVERSE w" LLIST  OR  STEP  OUT ASN STR$ NOT /[O] INVERSE !WTAN >HABS >= INK  COPY  INVERSE  NEXT  NEXT  NEXT : DRAW  THEN w PRINT  NEW IN 2 DRAW  LET >=:qPI *[U]▝:q<TAN ASN USR :[E][M]PIUSR 2SIN [M] INVERSE !H` STEP [F]>U2©>82[D][M]2 INVERSE ~ INVERSE !q STEP -© INVERSE !q STEP -© INVERSE !H`  INVERSE f INVERSE nU THEN | PI GO SUB B88 INVERSE t INVERSE u<>!  INVERSE ^PI GO SUB R> INVERSE w INVERSE t INVERSE u<>NOT  MERGE _ STEP  REM  DRAW CHR$ [J]ATN !H`6# CLS 6.j6 LIST >2CODE  FORMAT  LLIST <>:▙ FORMAT PI(>IN  FLASH  RETURN  THEN _ ▜ACS  NEW IN w THEN M#( PRINT : RESTORE p<> THEN n>=: FORMAT  VERIFY  CIRCLE :b FORMAT  RETURN ▗? RESTORE  CLOSE #@ GO TO  LLIST 0CODE <> THEN  AND $%<>!USR  @ STEP  STEP ©!STR$  A LPRINT > STEP [Q]SIN  FOR  STEP E▗ FOR  STEP E▗=  LIST <> FOR  STEP  BORDER ©$| NEW  TO E▗<><>G RETURN >= RETURN  CIRCLE  RETURN >= RETURN  FORMAT  STEP d▙8<> OR  STEP z VERIFY <0 STEP @ GO TO 0:q CLOSE #[J]ATN 8STR$ <>STR$ <> PRINT !SGN  FORMAT VAL$  +xVAL$ ( LET  STEP  DEF FN  OUT  THEN  OR <>!"^ OUT  STEP . LLIST  LET  LLIST STR$ NOT [S] OUT  @<USR  STEP  RETURN [E] STEP 6 FORMAT >!Xww#w IF wP!USR  GO SUB VAL Z![ GO SUB VAL  STEP /r STEP erNOT Y▗ NEXT ! LPRINT  CAT  USR  W-w  SAVE  GO SUB s` PAPER  RANDOMIZE  FOR )]U} MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  RESTORE  GO TO NOT _ PAPER  RETURN <>!gCODE <>:▗ FORMAT G> AND   CLS 2| FORMAT <>A:@ FORMAT PIUSR : DRAW  NEW (:$ THEN ?8 THEN ?8:qPI  STEP ]▝ VERIFY  STEP >▝2 STEP ]▝-:qPI  STEP  GO SUB [D]" STEP ]▝: DRAW  NEW ?▜>=▜▜8 IF  STEP ]▝ RETURN 8 VERIFY  STEP >▝CODE 2 DRAW 2 DRAW <> GO SUB s MOVE G▜! FORMAT o0$"T▝ STEP ! FORMAT  GO SUB { MOVE NOT  RETURN [E]: READ pGEXP  y RETURN 8 LLIST  LINE :? FORMAT PIy '2 READ px RETURN y FORMAT  RETURN  CIRCLE  PRINT  STEP  STEP [I] LET USR !P GO SUB VAL [!Z GO SUB VAL <> RETURN 0 MERGE CODE 2 READ p<>CODE 2[U]▝ INVERSE !q:q INVERSE ACS  INVERSE ACS  INVERSE ACS  NEW © 1 STEP "|ASN (*>2[U]▝ FOR ! GO SUB R FOR !@PI GO SUB R PAPER  MOVE ▘! CODE  GO SUB R0>2q FOR  STEP  BEEP ▘| STEP ?▛CODE 2RND▝ INVERSE !q:qPI u INVERSE ~ INVERSE ACS  INVERSE ACS  NEW © RETURN 0fPIrrw<>>2RND▝ ! STEP "|ASN ( FOR ! GO SUB R FOR !@PI GO SUB R PAPER  MOVE ▘ FOR  STEP  BEEP ▘>[Q][E]2 PAUSE p>2q:q< INVERSE !H`() STEP "|ASN  + FOR  MERGE  STEP q▘2INKEY$▝ INVERSE # INVERSE # INVERSE # MOVE  STEP q▘+CODE  INVERSE n INVERSE fA STEP  CLEAR  INVERSE # STEP |ASN  + FOR  INVERSE + MERGE  STEP VAL ▘2INKEY$▝ INVERSE # INVERSE # INVERSE # MOVE  STEP VAL ▘2PI▝ INVERSE ~ NEW >(>2FN ▝NOT [A] INVERSE ~ INVERSE n INVERSE f THEN SGN  STEP ▞[M] THEN  THEN  THEN  INVERSE f THEN |( PLOT  <>>2q<> RESTORE ) MOVE  THEN : THEN :qG| RETURN P8 RETURN x0x RETURN c>=>>cx RETURN USR >2q<> INVERSE ^ INVERSE V INVERSE N INVERSE F INVERSE n INVERSE f<> STEP  THEN SGN  THEN INT  THEN LN > STEP > FOR ) FOR 8 THEN ! THEN 8)8▜0 LOAD  THEN  THEN  THEN : THEN  THEN 8 THEN :J PRINT | STEP IN ▜ FOR x STEP IN ▜0y STEP IN ▜0xPI( THEN 8 THEN  THEN  THEN 8 THEN  THEN  LET  THEN ?( PRINT  STEP ▚[M] LET  THEN ?( THEN < THEN NOT { STEP ▚[M])0!<>: READ p RETURN  FORMAT  STEP ASN ▗ STEP B▗:FN ▝PI( FOR !5Q:PI▝G8>[A]>▖G$| NEW  TO E▗ RUN  OR  MERGE O:INKEY$▝G THEN LN ▜(8 THEN 9 THEN  IF  THEN ! THEN  IF zACS w#yACS w#{ACS w++$| NEW  TO E▗ MOVE STR$ <=<>!.&q INVERSE  RESTORE  RESTORE  INVERSE  LLIST  INVERSE ~ INVERSE n INVERSE f INVERSE  LLIST )▜▗ CIRCLE <>:CODE  FORMAT  RETURN > CLOSE #>= THEN ~>>= LLIST <>:? FORMAT  CIRCLE  INVERSE ~▜ RETURN  CIRCLE  INVERSE ~ NEW USR  INVERSE ACS  NEW  LIST >=7<>NOT )o} AND  o CIRCLE | VERIFY g<>} VERIFY  o CIRCLE | AND g<> STEP ASN ▗NOT [S][I] COPY  GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR $| NEW  TO E▗ FOR  GO TO <><$$< PRINT  STEP  STOP [K] LET <  SAVE <>.▞42z LPRINT <>~▝▝A!    ![B]▗5P# GO SUB [Q] GO SUB [Q] GO SUB [Q] THEN y( OR  IF  COPY STR$  FOR  STEP  BORDER © FOR  NEW <>$ INK p~+PEEK (w THEN ? THEN ? RESTORE  MERGE  STEP O MOVE  LLIST ### INK  INK   RESTORE >2# INK PEEK (w RESTORE  MERGE  STEP @ MOVE  LLIST ### INK  INK   DIM CODE 2#<>#QCQcQQ[T]QNOT Q8Q[I]QLN Q CIRCLE Q SAVE QXQxQ READ QGCODE 2[H]2EXP >2mG> COPY 2m2[H]2EXP og INK  INK xPI LINE  LLIST W NEW :#= LINE  PRINT CODE 7 DRAW Oz AND  NEW  SAVE  THEN ? THEN ? THEN ?G>[A]W($(8X RESTORE >w, DRAW  STEP ▚,B(CODE w, DRAW 6, LLIST  INK  INK >=$C LPRINT X RESTORE >w, DRAW  THEN STR$  STEP ▚ LLIST  INK  INK >=$C FOR y RESTORE w,CODE w,w,w, PLOT  w LLIST $ INPUT <>CODE  RESTORE w,w,w,w, PLOT  w LLIST $ LOAD <>>(7( THEN ? DRAW NOT ~q:#=USR y NEW  RETURN  RETURN (<>-6,<>iA OUT   PRINT  INK !T COPY  INK >2(▚:)▚PICHR$ `[A]NOT  SAVE  PRINT  INK !T COPY  INK CODE 2(▚:)▚PICHR$ `[A]NOT  SAVE  PRINT  INK !T COPY  INK >2(▚:)▚PICHR$  POKE [B]NOT  SAVE ▛ PRINT  INK !T COPY  INK CODE 2(▚:)▚PICHR$  POKE [B]NOT  SAVE ▛ PRINT  INK !T COPY  INK >2(▚:)▚PICHR$  CLS [A]NOT  RUN  PRINT  INK !T COPY  INK CODE 2(▚:)▚PICHR$  CLS [A]NOT  RUN O:)▚PIyCHR$ [A]NOT 7O:)▚PIyCHR$ 2[A]NOT N STEP 1 CLS  RETURN  CIRCLE  NEXT CODE 2)▚NOT  DIM ▚ STEP 2 CLS  RETURN  CIRCLE >2)▚ STEP  INPUT ▚ CLS <> GO SUB K▚ GO SUB C▚ GO SUB [▚>@ THEN K ▝▝[B]2 ▚> THEN C([A]2!▚y RETURN @ THEN [x RETURN x THEN S(0(08(0] FORMAT Xx▘8 RETURN x PAPER >=▜z[A]8 RETURN x PAPER [I]▖NOT  RETURN ▜x VERIFY xG2▚z[A] CIRCLE >= VERIFY  LIST  ERASE  POKE ▜NOT ▙▖y VERIFY @O2▚z[B] CIRCLE z STEP IN ▜bky STEP IN ▜ GO SUB R>x[A] STEP IN ▜ GO SUB R PAPER ?▞>x STEP IN ▜ GO SUB R ERASE J▖NOT CHR$ ▖x VERIFY xGy VERIFY @O GO SUB C▚z STEP IN ▜bky STEP IN ▜ GO SUB R CIRCLE x STEP IN ▜ GO SUB R CIRCLE x AND  SAVE 8 STEP IN ▜ GO SUB R ERASE @▖NOT LN ▖ RESTORE &PEEK o^$V LLIST <> STEP  CLOSE #▜ STEP [R]▚ STEP  CLOSE #▜NOT ▞▚ GO SUB K ▚ GO SUB [▚z GO SUB D INK O INK x[C] STEP  CLOSE #▞: ▚O:!▚▘NOT  LOAD ▞x AND xG2▚CODE >▖<>x STEP  STEP 2"▚G: ▚ STEP LN ▚ STEP  STEP %:▚ THEN G TO r▚BIN C▚:"▚G: ▚ STEP BIN ▚ STEP  STEP %:▚ THEN G TO Z▚BIN +▚<>x AND xG2▚CODE x VERIFY w GO SUB [▚>x STEP  STEP 2"▚[B]G THEN K(CODE  STEP BIN ▚ STEP  STEP %:▚ THEN G TO Z▚BIN +▚<>>© STEP LN ▚ STEP  STEP %:▚ THEN G TO r▚BIN C▚<>x AND x2▚GCODE x VERIFY w THEN C( STEP ▞ STEP +▚ STEP ▞NOT C▚ STEP [R]▞ STEP Z▚ STEP [R]▞NOT r▚x AND x2▚GCODE x VERIFY w GO SUB [▚y STEP  STEP 2"▚y INK _:"▚ GO SUB DO INK  THEN C(1:"▚/ AND ▝:)▚PICHR$ LN { NEW  RETURN >={ PLOT  o THEN OBIN +▚ TO C▚<>:"▚ AND [A] RETURN  CIRCLE } NEW  LPRINT  PLOT  _:)▚PICHR$  TO  COPY :▚ THEN OBIN Z▚ TO r▚<> GO SUB [▚y STEP  STEP 2"▚y INK _:"▚ GO SUB DO INK CODE  THEN K >©2 ▚O:"▚o:!▚[F] STEP  CLOSE #▞: ▚O:"▚o:!▚ STEP  LOAD ▞:▚ THEN OBIN ▞▚ TO [R]▚<> STEP NOT ▞: ▚O>[C] STEP  CLOSE #▞:)▚PICHR$  PAPER { PLOT  o▞: ▚O>▘[A] STEP  LOAD ▞} NEW  LPRINT  PLOT  _G:)▚PIx  COPY <><> GO SUB K▚ GO SUB [▚z GO SUB D INK O INK <>AOx STEP VAL " THEN  DRAW G:)▚PIxCHR$  READ  COPY < THEN 8=  CLS ]<> PRINT x2'▚ LET AOx STEP VAL " THEN  DRAW  VERIFY  GO SUB DO:)▚PIyCHR$  GO SUB   CLS :'▚G<> GO SUB K▚>▖[A] INK O:"▚_ INK <>:)▚PICHR$  RANDOMIZE } NEW  LPRINT  PLOT  _!|%"! VERIFY  "[C]! AND "[I]!USR 0!$|"! AND  "[C]! VERIFY "[I]! FORMAT 8"[O] MERGE  PRINT  OR  THEN  DRAW STR$  OR ( RESTORE +6 COPY T] OR  GO SUB LN STR$  LLIST  NEW ( DIM STR$  LET  MOVE <>}o|8 AND g INPUT  RETURN 0 REM  REM  INVERSE ~# RETURN %USR  RESTORE !▚ FORMAT 44 LLIST USR > STEP [I]LN  INVERSE 5&<> MOVE  CAT ▚ PLOT   CLEAR INT ^kn DRAW + OR  MERGE  RESTORE  PRINT z STEP IN ▜bk LET  STEP IN ▜ GO SUB RCODE "%▚*%▚ STEP IN ▜ GO SUB R0[A] THEN 80 LIST  LLIST  MOVE STR$ <>{[F]0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚~LEN wUk~VAL wz[D]= THEN ?0,6 COPY  STEP 6^!:▙ FORMAT SQR 8 FLASH 
  65036  IF ~<<>:qPI|(CODE 2 INPUT p<>  STEP  INPUT ▟ STEP ▙ INK  THEN | INK   THEN 80 THEN !0 INK  THEN | INK CHR$ ▛*}[D](© BORDER -}[D]({#▚ LET <>}[D]( PRINT ©-}[D]( GO TO 80 REM  THEN !0 LOAD  INK ( FLASH  THEN | INK ( GO SUB  INK  INK ~LEN wUk~VAL wz[D]= THEN ?0,6 COPY j VERIFY /2 OPEN #▛1ACS  LET  RANDOMIZE  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT :(▚PI GO SUB {#▚  STEP  INPUT ▟POINT  STEP ▙[U]} NEW  RETURN  0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚~LEN wUkz[D] THEN ?06 COPY  STEP 6^! CLEAR  THEN #F( CLEAR  THEN   NEW <> CLEAR 6& CLEAR w%<> STEP z VERIFY x BRIGHT [J]ATN :q FORMAT > RANDOMIZE <>  STEP  INPUT ▟ STEP ▙ INK  THEN | INK   THEN !0 INK EXP ( THEN | INK CHR$ .-}[D]<( INK }[D] INK (NOT i▛ INK }[D] INK (NOT POINT ▛ GO SUB {#▚ LET <>-}[D]<( POKE !0 PAUSE  INK ( BORDER EXP ( INK  THEN | INK ( GO TO  INK  INK ~LEN wUkz[D] THEN ?06 COPY j VERIFY /2 OPEN #1ACS  LET  RANDOMIZE  RETURN  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT :(▚PI GO SUB {#▚  STEP  INPUT ▟TAB  STEP ▙FN { NEW  RETURN  0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚Uk~VAL wz[D]= THEN ?0,6 COPY  STEP 6^!![H] FORMAT ~##[G]0/ NEW  SAVE <>!"E FORMAT :▙ FORMAT PI> RANDOMIZE BIN % CLOSE #>NOT >= STOP   STEP  INPUT ▟ STEP ▙ INK  THEN | INK   THEN 80 INK EXP ( THEN | INK CHR$ ▟ }[D](© NEW NOT i▛NOT POINT ▛ GO SUB {#▚ LET <>}[D]( PRINT © THEN 80 NEXT  INK ( CONTINUE EXP ( LPRINT  THEN | INK ( GO TO  INK  INK Uk~VAL wz[D]= THEN ?0,6 COPY j VERIFY /2<>▟1ACS  LET  RANDOMIZE  RETURN  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT  PRINT :(▚PI GO SUB {#▚  STEP  INPUT ▟ATTR  STEP ▙INKEY$|% NEW USR { VERIFY  _} VERIFY  o0>IN SGN ( <>| AND g<>$| NEW USR { AND  _} AND  o0> FORMAT SGN (<>| VERIFY g<> LET  GO SUB {#▚ LET <>:Q FORMAT O VERIFY 8 THEN USR >[B]2▚:R FORMAT O VERIFY `0 THEN >=>`[B]2▚x2▚:S FORMAT 2▚ NEXT !▟▙ STEP w▙ STEP  OVER ▚ NEXT  STEP ▗0 RETURN  CIRCLE  STEP  RETURN ? FORMAT  RETURN 5<>!TAB ▙ GO SUB s#▚:*▚1 STEP ▙ MOVE  GO SUB [Q]=  IF  GO SUB {#▚ CLS <>``© COPY ( COPY XW??WW?X?@@xxx▖xw THEN  DRAW  THEN  DRAW ▖ RUN  THEN  DRAW USR  RUN  THEN  DRAW  FORMAT  CAT IN IN  CAT  CAT IN  FORMAT IN  CLS ▚▜▜;▜D▜ COPY ▜▖[K]▖ OVER COS ▞ PAPER ▞ FLASH ▞ CLS ▞ DRAW ▞ CLEAR [A][A][A]-[A]6[A]:[A];[A][[A]u[A]n[A][B][B][C][C]▙ RETURN ▟:[G][M]PI>=>@2J>O2[L]>?2INKEY$!>P STEP ▖ INVERSE !H` OR  INVERSE ~ O NEW 0 RETURN 0 2. STEP  SAVE o INVERSE f INVERSE n"▚ INVERSE n INVERSE f"▚ SAVE STR$  AND 2▚y VERIFY O0 LIST . STEP  SAVE o INVERSE  THEN  INKEY$' INVERSE STR$ SQR >USR 2J> CAT 2[L]>IN 2INKEY$! THEN  DRAW > FORMAT " PAPER ▞" CLS ▞"n2a2▙> CAT 2▟2▛2>IN 2▟2▛22 RETURN ▟<> COPY  COPY { NEW  LPRINT  PLOT  o THEN OBIN +▚ TO C▚<>:▚ THEN OBIN Z▚ TO r▚<>{ NEW  LPRINT  PLOT  o< THEN =  CLS ]<>  CLS :'▚G<>} NEW  LPRINT  PLOT  _ PRINT  OR G THEN  DRAW STR$  OR (|% NEW ( SAVE STR$  LET <>} VERIFY  o8| AND g LOAD | RETURN USR 0 REM  REM  PRINT  OR G THEN  DRAW STR$  OR ($| NEW ( SAVE STR$  LET <>} AND  o8| VERIFY g LOAD | RETURN  FORMAT 8 REM  REM { NEW  RETURN  0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚Uk~VAL wj:(▚PI  STEP  INPUT ▟ STEP ▙ INK  THEN | INK   READ  THEN 8 INK EXP ( THEN | INK   MOVE }[D]8 DIM NOT K[B]NOT [B][B] GO SUB {#▚ LET <>}[D]8 PRINT Uk~VAL wj THEN 8 LOAD  INK ( DATA EXP ( BRIGHT  THEN | INK ( NEW  INK  INK :(▚PI  STEP  INPUT ▟ VERIFY  STEP ▙ MOVE {[F]0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚~LEN wUk~VAL wj:(▚PI |% NEW  TO  NEXT ▟$| NEW  TO ▙ INK  THEN | INK CHR$ [B] THEN 8 THEN 8 INK  THEN | INK CHR$ [B]NOT {[B]}[D](NOT D[B]-}[D](NOT H[B] GO SUB {#▚ LET <>}[D](<NOT ▖[B]-}[D](HNOT [B]~LEN wUk~VAL wj THEN 8 READ  THEN 8 BORDER  INK (@ THEN | INK ( DATA  INK  INK :(▚PI  STEP  INPUT ▟ CLOSE # STEP ▙ CAT k~ COPY PI(G> COPY  THEN 88▜ RANDOMIZE w(▜8 THEN 8 RANDOMIZE pNOT e[B] INK ~PI(G> COPY  THEN 88▜ RANDOMIZE > COPY wk~ COPY PI(▜8 THEN 8 RANDOMIZE p PAPER } NEW  RETURN  0:(▚PI >IN SGN 8> CAT SGN 0 LET <> GO SUB s#▚~LEN w:(▚PI  STEP  INPUT ▟ STEP ▙ INK  THEN | INK   NEW  THEN 8 INK EXP ( THEN | INK   CLOSE #-}[D]<( CONTINUE NOT K[B]NOT [B][B] GO SUB {#▚ LET <>-}[D]<( POKE ~LEN w THEN 8 LET  INK ( NEW EXP ( OVER  THEN | INK ( DIM  INK  INK :(▚PI  STEP  INPUT ▟ INK  STEP ▙ CLOSE # STEP < FORMAT :? FORMAT PI>=@:@ FORMAT PI>= STEP SGN n STEP [F]:qPI( INVERSE !H`CODE  INVERSE w"< STEP [M][M] STEP  STEP PEEK ©>B2 ERASE [D] STEP =[F]! OPEN #[D]" IF [C]>2 FORMAT [D]>2&[D]>2+[D]:@ FORMAT PI >2[D]>2[D]>2▚!"▚: FORMAT [D]2 MOVE [D]! OPEN #[D]~=w#G> STEP AT [D]y RETURN 82▚ RESTORE  STEP  DATA ▚ LLIST : MOVE [D]=(2 MOVE [D] OVER  STEP PEEK ©: ERASE [D]= RETURN 2 ERASE [D]8: FORMAT [D]2 MOVE [D] STEP CHR$ : ERASE [D]=2 ERASE [D]()<>CODE 2@ FORMAT 2? FORMAT >G! OPEN #[D]~ VERIFY PEEK w# RANDOMIZE  STEP  STEP PEEK ©NOT USR [D]CODE 2@ FORMAT CODE 2@ FORMAT <>CODE 2? FORMAT >G! READ [D]~ VERIFY USR w# RANDOMIZE <>>2 NEW p<> PRINT  STEP ATTR  RANDOMIZE  LET NOT 9 FORMAT  RESTORE !INT  IF  THEN  RETURN  LLIST <> STEP ▞[D]!PITAN  PLOT   COPY A CLEAR :VTAN  STEP INT TAN 2VTAN >NOT PEXP LN 0 THEN ! FORMAT  PRINT [A]7 THEN  FORMAT  INPUT :▝ FORMAT PI. TO  SAVE oCODE 2uNOT 2[F]!#&(+-0257:<?AD (08:qPIUSR ! READ [D]" IF [C]>2 FORMAT [D]>02&[D]>@2 ERASE [D]!"? FORMAT :qPI(J>82+[D]>2 NEW pCODE 2 RESTORE p2 DATA p2[L][M]<2$q! FORMAT  THEN PEEK  STEP  STEP [C]/ OR  STEP  STEP [C] STEP PEEK ©STR$  NEXT  STEP '[F]CODE 2q STEP ~▝ STEP  POKE [E] STEP [R]_ STEP ▟r>NOT U^>2q STEP '[F]CODE 2[K][M]2 READ p2q STEP  INPUT  NEW >22+[D] STEP B STEP F[J] STEP lr!q STEP [F]6#6:q INPUT 2q!H` STEP [F] INVERSE !H`> LIST  INVERSE w> INVERSE w= INVERSE ww> LIST  INVERSE w" STEP [F] STEP  INK ▗ STEP  STEP [C]$ OR  STEP  STEP [I]x STEP [C] STEP PEEK ©STR$  LIST  OR  STEP  STEP Sx STEP [I]x STEP [C] STEP ▗u STEP PEEK ©STR$  REM CODE 2$q STEP ATTR  RANDOMIZE  STEP [F]6! DRAW CODE w# DRAW <> INVERSE !H` INVERSE  THEN ![G]CODE 2[J][M]' INVERSE  INVERSE w" RANDOMIZE <>': STEP [L][G]: STEP POINT [G]: STEP ATN [G]: STEP  CAT [F]:"[F]PI( STEP INKEY$[F] PRINT 2(q CLS <>NOT x[G]NOT t[G]NOT [C][G]NOT ^[G]NOT A[G]NOT H[G]NOT W[G]NOT W[G]::"[F]PI :(qPI>= COPY 0 DRAW x2IN [G]▜!a[F]o0$ DIM = LINE $[G]=(A*%[F] GO SUB [#[F] OPEN # RETURN B RETURN #  POKE z AND  LIST W GO SUB S#[F]"%[F]USR :"[F] THEN ©(A>2"[F]>[Q]2VAL$ [F]!'@ GO SUB S#[F]"%[F]<>*%[F] GO SUB [#[F]? THEN ?_G>0 OPEN # RETURN  RETURN CCODE  OPEN # RETURN  RETURN   DIM  GO SUB S#[F]"%[F]USR CODE 2"[F]:IN [G]<G> CLEAR !(qVAL$ w<> GO SUB [#[F]{▜ AND _ OPEN # RETURN  RETURN CODE C OPEN # RETURN  RETURN   LIST  AND > CLEAR > OPEN #2+[G]>2"[F] MOVE >! AND >! THEN ?" PAUSE [F]g.>2"[F]NOT  INPUT [F] RETURN >2"[F]@@!'y2ABS [F]x2VAL$ [F]NOT TAB [F]>2"[F]2"[F] NEXT P @ FLASH  LIST USR USR  NEXT >2"[F] STEP USR  LIST & THEN  THEN 8 THEN  THEN 8 THEN  THEN 8 THEN <>NOT .[I] STEP SIN COS :[G][M]PI>= STEP ▙[I]>2NOT [G] INVERSE !H` INVERSE ~"PI( READ  INVERSE ~ RETURN @0 BRIGHT  INVERSE ~ RETURN @0 MERGE  INVERSE ~ RETURN @0 DEF FN  INVERSE ~ STEP IN ▜ FOR  INVERSE ~ STEP IN ▜8PEEK PI GO SUB R0ACS >2BIN [G]@CODE  INVERSE n INVERSE fPI PAPER  LOAD SIN  STEP ▞[M] STEP <>[G]`i STEP  MOVE [G] INVERSE ~ NEW TAN 2USR [G]CODE  INVERSE n INVERSE f STEP ▞[M] STEP  OR [G]`i STEP  STEP [G] INVERSE ~ NEW |( PLOT  2STR$ [G]CODE  INVERSE n INVERSE f STEP ▞[M] STEP  OR [G]`i STEP  STEP [G] INVERSE ~ NEW |( PLOT  2CHR$ [G]!U:USR [G] NEW © VERIFY O PAPER SQR [H] NEW Gy NEW O(:USR [G] NEW  # CLEAR yPIG>("CODE 7 CLEAR  AND O:USR [G] NEW   NEW + CLEAR yPIG>(CODE 7 CLEAR O:CHR$ [G]W NEW ©G(z NEW  |% NEW  TO O▗ RUN $| NEW  TO E▗ RUN :STR$ [G]W NEW ©G(z NEW  % NEW  TO |[I] POKE ~LEN w$| NEW  TO j[I] POKE y▜8-LEN ▜85LEN _~COS w:NOT [G]=(2NOT [G]' INVERSE NOT  GO SUB [G]CODE  RESTORE w, DRAW  LLIST $  POKE <>-~ PLOT  w,~ PLOT  w FORMAT -~ PLOT  w,~ PLOT  USR wBIN } AND  o0>XSGN USR  LET ATN | VERIFY g<>} RETURN   LET NOT .[I] VERIFY  o CIRCLE | AND g<>:VAL$ [M]PI>=:q RETURN c>= RETURN >=>2q<> STEP  STEP [I]> FOR ![J]w> RESTORE ![J]ww> LLIST !5[J]w#>$wCODE !@[J]w> FOR !9[J]w?:BIN [G]=USR 2BIN [G]CODE  RESTORE w, DRAW  LLIST $  POKE CODE ![J]w> MERGE ![J]ww> MOVE !5[J]w#>w> FOR !@[J]wCODE !9[J]wIP![ FOR > RESTORE  GO SUB VAL STR$ &▜PINOT ▚SIN !AT ! GO SUB [Q] GO SUB [Q] LLIST $ LLIST  FOR  MOVE  FOR  =  MOVE <> STEP [M] STEP  PAPER  FORMAT CODE 2G FORMAT 2 LIST p2 INPUT p2)q2[L][M]2[M]>[Q]2 CONTINUE p2 REM p2 PAUSE p! PLOT  pw## CLS !#Z: READ p RETURN 8$PI( RESTORE  STEP [F][J] LLIST } AND o OR q# DRAW STR$  PRINT <>!q~PI>=: CONTINUE pPI(: REM pPI ~ RETURN c(6~ RETURN c ![T][J]4 THEN N CODE >W: READ p RETURN 0!!(Zr#r!HZr#r STEP :[K]:G FORMAT  RETURN  >▜▜▜ AND 2 BORDER Z<>*K FORMAT 6!"E FORMAT  RETURN 0zPI( RETURN  >! STEP H FORMAT >" STEP H FORMAT >▘W MERGE ># STEP H FORMAT >$ STEP H FORMAT  MOVE !<Xr#r*K FORMAT 6POINT >2q<>: READ p RETURN  FORMAT  STEP [L] STEP PI[L] STEP [M] STEP  PAUSE o! DRAW ~ NEW [B]w!qCODE PEEK >=: DRAW p RETURN [Q](>c2q STEP  FLASH [K]! CONTINUE p:[T][M] STEP PI[K]! REM p:[U][M] STEP PI[K]:A FORMAT PI:[S][M](<O! PLOT  p~[B]06##  PRINT >2q<>w GO TO <>OPI ! PAPER [K]~PI>=5<> OR  RESTORE  RETURN F CLOSE # NEXT  FORMAT  LLIST STR$ ~[B]8w RANDOMIZE <>6>= STEP ▟[K]! PAPER [K]~ AND w RETURN  CIRCLE NOT  NEXT  FORMAT :▛ FORMAT PIBIN ▝▗! DRAW p~ RETURN [Q](4<>++ PRINT ! CONTINUE p STEP  CLS [K]! REM p~ RETURN [Q]>=4<>: READ p RETURN  FORMAT ! MERGE Z:[L][M] STEP [L]#:qPI(>w<>!"E FORMAT *K FORMAT 6 RESTORE : FORMAT O OR  THEN y>%(>@ STEP % CLOSE #STR$  LIST  LLIST 6POINT <>! BRIGHT p: FORMAT /▚w FORMAT #4USR ! FORMAT ~ RETURN  CIRCLE 85<>4(.<=6▘#6 LIST <>6©<> STEP [M] INVERSE !INT !TAB [R]6<> RESTORE  STEP [M] INVERSE !NOT  STEP [M] LLIST 6:<>!▘ FORMAT >F[G](G:j FORMAT .[G]ACS  PLOT  _bj CLEAR |2`p![O] FORMAT <><> CLOSE #: FORMAT PI>=:G FORMAT  RETURN  ! READ  FORMAT ~PI :[H][M]PI(w!G FORMAT 6!p` STEP ASN ! DRAW ~!G FORMAT  THEN ? THEN ?8 THEN ?8 THEN ?8<>~ RETURN >=6CODE 2 READ  FORMAT <>6<>~ RETURN USR : READ  FORMAT ▜▜▜▜ PLOT   RESTORE  STEP [M][M] LLIST (!ABS  FORMAT  THEN  RETURN <>6!(q THEN  DEF FN NOT [L]![M]~PI(=w LINE INT q<>: DRAW  THEN w>=:▞ FORMAT PI>=:qPIUSR >2[M]!" COPY CODE !_ FORMAT w STEP ▗.kw# DRAW .VAL  THEN VAL$ .{w STEP STR$ > STEP [M][M]* LPRINT  LLIST ~x RETURN = CIRCLE ~<>2SIN  FORMAT :[H] FORMAT 2COS  FORMAT <>NOT ASN [M]NOT s[R]NOT  LET [O]NOT FN CODE NOT DVAL NOT TAN ATN }NOT gLN NOT ACS NOT <>CODE NOT ▘[P]NOT ▟[S]NOT ▟[S] STEP SQR [M]NOT TAN ATN :CODE  FORMAT  RETURN  !i` THEN  VERIFY : qPI>ACS (>VAL$ 28LEN 2▛LEN 2▙LEN 2INKEY$LEN :[D][M]=2[D][M]G:qPI :qPI :COS [M] RETURN 0xPI TO gLN CODE 2[S][M]2[U][M]2[T][M]2[H][M]2VAL$ [M]2[G][M]2[E][M]O INVERSE !2a INK  COPY  INVERSE ~"PI( INVERSE  THEN  v( INVERSE  LOAD y STEP ATN z2Bo> PRINT G STEP LEN TAN  STEP i GO SUB PI LINE .RND STEP  RANDOMIZE  INVERSE  THEN &V 2VAL$ [M] STEP POINT ~y INVERSE  THEN &^ >2[E][M]:[F][M]PI( INVERSE  THEN &V  CLEAR ~ RETURN '( INVERSE  THEN   NEW  INVERSE  THEN !V( INVERSE ~! NEW `(>2[J][M]:{aPI :[J][M]PI( STEP <> RANDOMIZE  INVERSE f$ INVERSE n# RESTORE  CLEAR  LLIST  INVERSE ~  NEW 0(g VERIFY  CHR$ A[O] INVERSE  THEN  VAL$  INVERSE w>USR  INVERSE w INVERSE  THEN &F "!(q THEN  VERIFY :SIN [M]PI( RETURN ( INVERSE  THEN &v( CLEAR ~ RETURN  CODE 2SIN [M]CODE  INVERSE w" STEP  OUT ASN  CLEAR V CLEAR ^ STEP [U]} CLEAR V CLEAR ^ THEN : THEN  STEP ASN } INVERSE ~! NEW `(W RESTORE !_ FORMAT  STEP % DRAW  LLIST MxPOINT  NEW  INVERSE  THEN  v( STEP  IF y( STEP ASN [U] NEW  TO ! PAPER  STEP ▘[P] STEP iVAL$  INVERSE  RESTORE  INVERSE  STEP A[P] STEP A[P] STEP A[P] INVERSE  LLIST  STEP  CIRCLE TAN NOT TAN  SAVE  INVERSE  THEN  [O] INVERSE ~  NEW 0 RETURN   INVERSE  THEN   INPUT  INVERSE  THEN  INKEY$ LET  STEP  GO TO FN  INVERSE =NOT  DATA  SAVE CODE  STEP `|:[E][M]PIUSR 2[J][M]<> INVERSE  RESTORE  STEP [I][O] RESTORE  STEP [I][O] RESTORE  STEP [I][O] MOVE  MOVE  INVERSE  LLIST  STEP  LET [O] FOR  INVERSE  RESTORE  STEP  CAT [O] STEP  CAT [O] STEP  CAT [O] INVERSE  LLIST <> INVERSE F INVERSE N THEN LN  INVERSE  RESTORE  INVERSE ! STEP 4ATTR CODE W) THEN / INVERSE eo RESTORE &PEEK h^$V% INVERSE i^$V LLIST 0 INVERSE # INVERSE  READ  LLIST  INVERSE # INVERSE #<> INVERSE f INVERSE n RESTORE  THEN SGN  STEP FN CODE  THEN 8 THEN  LLIST  THEN |( THEN  SAVE  INVERSE q INVERSE p INVERSE # INVERSE #<>| RETURN 0"PI() CLEAR  STEP [P] THEN < THEN  THEN < THEN <>eo STEP [P] THEN < THEN  IF <>CODE  RESTORE  RESTORE  THEN < THEN  STEP 5[P] MOVE  STEP +[P] MOVE  THEN  THEN  FOR  THEN < THEN  MERGE  STEP FN CODE  THEN 8 THEN CODE  LLIST <>&IN  INVERSE n THEN %~ INVERSE n THEN %▚ INVERSE n THEN %▚ THEN / THEN / GO SUB D INPUT G STEP h[P] STEP h[P] STEP h[P]<> INVERSE N THEN ! STEP 4ATTR  THEN $ INVERSE  THEN & THEN  INVERSE t INVERSE # INVERSE #<>[E] STEP s[R] INVERSE  THEN &V } RETURN `0| NEW ©(CODE  INVERSE w"NOT  OUT ASN  INVERSE ~▜  NEXT  INVERSE ~▜  GO SUB * DATA p"[P] INVERSE  RESTORE  INVERSE  STEP ATTR [Q] STEP ATTR [Q] STEP ATTR [Q] INVERSE  LLIST  INVERSE ~G THEN ©  NEW >(x= INVERSE w> INVERSE  THEN v( AND 2[P] INVERSE ~G THEN ©  NEW >(x= INVERSE w> INVERSE  THEN v( AND 2▝[P] INVERSE  RESTORE  STEP '[R] STEP '[R] STEP '[R] INVERSE  LLIST  INVERSE ~PI( INVERSE F THEN ©(CODE  CLEAR N INVERSE  THEN !F( THEN ! THEN !EXP 8y INVERSE w INVERSE  RESTORE  CLEAR  RESTORE  INVERSE N INVERSE  RESTORE  CLEAR  LLIST  STEP K[Q] STEP K[Q] STEP K[Q] CLEAR  LLIST  INVERSE  LLIST <> OR  INVERSE V INVERSE ^ STEP v[Q] CLEAR ~ CLEAR f CLEAR n STEP [I][Q] CLEAR p CLEAR t CLEAR u CLEAR # CLEAR # CLEAR # INVERSE # INVERSE #STR$ <> THEN " THEN  THEN  THEN :! THEN : THEN  THEN !0 PRINT  COPY / THEN ! THEN <>GJPOINT  THEN INT  <> GO SUB R FORMAT  FOR PI GO SUB RA<>:▝[P] INPUT  THEN / THEN ATN O INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:[P] INPUT O INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:[P]O INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:▝[P] THEN / THEN ATN O INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w INVERSE <> MERGE FN  THEN   THEN EXP _ STEP ATTR STR$ O{FN  THEN   THEN  THEN !x8▝0> COPY [B]0 GO SUB D THEN  THEN <>:▝[P] INPUT Oy INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:[P] INPUT Oy INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:[P]O INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w:▝[P]Oy INVERSE F INVERSE V STEP  CLEAR [Q] INVERSE w INVERSE # INVERSE #<> STEP ▝© INPUT O! STEP  REM [R]: DATA p INPUT  STEP ▝[S]bj STEP  REM [R]: DATA p STEP ▝[S]!T/ STEP  REM [R]: RESTORE pO! STEP  REM [R]: NEW p<▜G INVERSE f INVERSE n INVERSE ~ THEN |( INVERSE w0## THEN | NOT  MERGE _0+ THEN |(! GO SUB D INVERSE w INVERSE t INVERSE u<> INVERSE  RESTORE  INVERSE  RESTORE  CLEAR  READ  INVERSE  FOR  CLEAR  INVERSE ~ INVERSE V INVERSE ^GPOINT  NEW  PRINT  THEN EXP  THEN LN  MERGE  STEP 4ATTR  MOVE  RESTORE B MERGE  STEP 4ATTR  MOVE C}l& MOVE _ RESTORE  STEP ATTR  LLIST 0#G|ehSTR$ H CLEAR F CLEAR V CLEAR ^ PRINT xPOINT  THEN  THEN  THEN  THEN  THEN ?G LET  THEN q ▜ THEN !0$<!PI FOR  GO SUB R0<Wx[C]G0/Gy INPUT O FOR PI! GO SUB Rx THEN ! INPUT  CLEAR w CLEAR t CLEAR u CLEAR  LLIST  INVERSE  LLIST <>O THEN  THEN  THEN <> INVERSE !Ya INVERSE f$ INVERSE n# RESTORE  CLEAR  LLIST >[E]2[P]> STEP  CLEAR [P] STEP iVAL$  INVERSE !ba STEP A[P] STEP A[P] INVERSE !YaNOT  OUT INKEY$k THEN  STOP  LINE  AND  CLEAR ~ INVERSE N" RETURN  LIST 8EXP 8yG:A FORMAT PI!SIN [M]x RETURN P~8 RETURN  5 RETURN  x RETURN 40>w VERIFY Gx INVERSE w" CLEAR F▜8kLN 0h▜8▜8LN 86 INVERSE ~  NEW (X STEP [J]ATN  RETURN 0Q:[L][M]PI K CLEAR ~ NEW  LIST   PLOT   INPUT G OR  STEP [U]STR$  8 INVERSE 5 x RETURN  0!IN  FORMAT  THEN  RETURN ) STEP [J]ATN  INVERSE PEEK %8W INVERSE  THEN  ~(> STEP [U]  INVERSE  THEN  PEEK  INVERSE  THEN  ACS <> CLEAR ~PI(> STEP [U] CLEAR ~ RETURN  / INVERSE  RESTORE  INVERSE !H`' INVERSE  INVERSE ~"PI( INVERSE ~! VERIFY ( LOAD < INVERSE  LLIST  LINE /[U] INVERSE  THEN  ACS  INVERSE  THEN & DEF FN  INVERSE  THEN ><> INVERSE  THEN %F(+:CODE  FORMAT  RETURN  :VAL  FORMAT  THEN © :[L][M]PI  INVERSE  RESTORE  STEP Z RANDOMIZE  INVERSE ~# INVERSE  LLIST 0 RETURN  READ  >2[L][M] INVERSE  THEN &V(V:COS [M] RETURN  FORMAT  STEP [J]ATN  INVERSE  THEN !V( RETURN $ FORMAT :CODE  FORMAT  RETURN >  STEP [J]ATN  RETURN ▖ FORMAT >D RETURN  FORMAT >$ CLEAR  RESTORE  INVERSE  RESTORE  STEP M} INVERSE  LLIST  CLEAR  LLIST <> INVERSE f INVERSE nPI GO SUB R FORMAT  INVERSE f INVERSE nPI GO SUB R FORMAT  INVERSE f INVERSE nPI GO SUB R<> STEP BIN TAN  FORMAT (:` FORMAT  RETURN (8 INVERSE  THEN ! VERIFY  STEP [U]84 INVERSE  THEN &n( STEP [U]8' INVERSE  THEN !V>=:CODE  FORMAT  RETURN (( INVERSE  THEN !^(+ INVERSE ~% NEW © RETURN 0  INVERSE  THEN % RETURN  INVERSE  RESTORE  STEP oRND"LN [S] STEP oRND"INT [S] STEP oRND"SGN [S] INVERSE  LLIST  INVERSE  THEN & INPUT  INVERSE  RESTORE  STEP hRND"LN [S] STEP hRND"INT [S] STEP hRND"SGN [S] INVERSE  LLIST  INVERSE  THEN &VAL$ NOT ▜RND:[L][M]PI( STEP >}USR  INVERSE  THEN   NEW <>y NEW PI( DEF FN  CLEAR  RESTORE  CLEAR !!`' VERIFY /G CLEAR  DRAW  INVERSE  RESTORE  CLEAR  RESTORE  STEP ?RND"LN [S] STEP ?RND"INT [S] STEP ?RND"SGN [S] CLEAR  LLIST  INVERSE  LLIST  STEP 7RND 8*INT [S] STEP 7RND 0*LN [S] STEP ~ RANDOMIZE  ( CLEAR  THEN &V(!CODE  FORMAT  STEP SCREEN$  VERIFY  !VAL$  FORMAT CODE w COPY  COPY  STEP  REM  FORMAT  CLEAR  THEN & RETURN  CLEAR  THEN   NEW  CLEAR  LLIST <>wNOT /[O] CLEAR  LLIST NOT SIN [U])|PIUSR } NEW USR <> CLEAR n CLEAR f CLEAR N INVERSE ^ INVERSE V INVERSE F THEN ! THEN  THEN  THEN   THEN  THEN  STEP <>CODE  INVERSE  CLEAR <> INVERSE ~ INPUT  INVERSE ~ INVERSE n INVERSE f THEN < THEN  THEN  THEN  INVERSE <> CLEAR  RESTORE  CLEAR !LN [S] INVERSE  RESTORE  INVERSE !LN [S] STEP s[O] INVERSE  LLIST  GO SUB SPEEK [S] INVERSE  RESTORE  INVERSE  STEP AT INKEY$ INVERSE g RESTORE  STEP AT INKEY$ LLIST o RESTORE  INVERSE  STEP AT INKEY$ LLIST  INVERSE  LLIST  CLEAR  LLIST W NEW ©("O THEN 9 THEN 9 THEN 9▞ THEN ? THEN ? RETURN 8>GzTAB  NEW VAL  INVERSE w NEW ? RETURN 0| THEN ©( NEW © AND P THEN ?/ AND h THEN ? RETURN @8>? THEN % THEN ? INVERSE wCODE  INVERSE  THEN %~(> INVERSE wUSR  GO SUB [PEEK [S]z THEN $0k INVERSE  THEN &F(LN 8 RETURN 0 INVERSE p INVERSE  THEN !V>= INVERSE ~ INVERSE VAL$ F:b FORMAT PI  THEN 8 STEP [J]ATN LN  FORMAT  INVERSE ~& NEW USR z RETURN  FORMAT  THEN $ FORMAT  STEP ▗ IF  FORMAT z RETURN 8 THEN $ FORMAT !(q THEN  PLOT   INVERSE  THEN ~(:[U][M] AND 2[U][M]<>:[T][M] AND 2[T][M]<> INVERSE  THEN &F(LN  CIRCLE  COPY  RETURN 8 INVERSE p<>OFN  INPUT  THEN   THEN ! PRINT  STEP ATTR  LLIST o<> INVERSE F CLEAR ~ STEP [N]INKEY$ RESTORE  INVERSE F CLEAR ~ STEP [N]INKEY$ RESTORE  INVERSE F CLEAR ~ STEP [N]INKEY$ MOVE  STEP  CLS SCREEN$ 0> COPY  MOVE o STEP  CLS SCREEN$ 0> COPY  THEN <>/ STEP SCREEN$  BEEP G RETURN  FORMAT  INVERSE  RESTORE  LLIST  THEN O ^#V#N THEN ?FN POINT  NEW USR  GO SUB SLN POINT & CLEAR n RESTORE PI GO SUB R8 LLIST <> MERGE  MERGE  THEN H & FOR  INVERSE V INVERSE ^CODE O STEP iAT y2STR$ POINT  LLIST  INVERSE V INVERSE ^CODE O STEP iAT y2CHR$ POINT  INVERSE FNOT ^PI FOR  INVERSE V INVERSE ^CODE O STEP iAT y2STR$ POINT  LLIST  INVERSE V INVERSE ^CODE O STEP iAT y2CHR$ POINT  INVERSE F INVERSE ~ THEN  2NOT POINT  LLIST  MOVE CODE O STEP iAT ay2 OVER INKEY$Y:CHR$ POINT O[E]8 VERIFY @ ERASE  OVER FN :STR$ POINT G[E]8 VERIFY  ERASE  OVER FN x▝W8@[D]0,0>2[H][M] INVERSE  THEN  v() INVERSE  THEN !V(#: READ p THEN O INVERSE ~ INVERSE ~ INVERSE ^G NEW © RETURN @8z RETURN  0 INVERSE  THEN &VAL$  INVERSE  THEN  fNOT ~:SIN [M]=  INVERSE  THEN &vCHR$  OVER FN *LN POINT | CLEAR PEEK 8^:STR$ POINT  RETURN © ERASE  OVER FN O:CHR$ POINT  RETURN ? ERASE  OVER FN G: READ p THEN G:NOT POINT ( INPUT W THEN J y AND ©O>©[B]O THEN B(x AND ?G>?[A]G STEP <FN  STEP <FN  STEP <FN  STEP <FN NOT  OVER FN x STEP LEN "W>  DRAW  THEN  DRAW VAL$ w<> CLEAR  RESTORE  STEP  TO VAL$  CLEAR  LLIST *LN POINT )8|LN 0Dx VERIFY 0CODE 2LN POINT > CLEAR 2INT POINT  STEP  CLOSE #SGN  STEP <>POINT  STEP  INVERSE a INVERSE  THEN  ^>= CLEAR ~ STEP PVAL$ O STEP 7{o VERIFY  COPY  GO SUB Dgy/ NEW  THEN ! THEN !LEN O STEP DVAL h[E][F]TAN ASN ▜▖PIFN FN  COPY  INVERSE  THEN  [O]<>:STR$ POINT  INVERSE w:CHR$ POINT  INVERSE w: OVER INKEY$ INVERSE w: READ p THEN G:NOT POINT ( INPUT OCODE  THEN  THEN  INPUT  AND  INVERSE w INVERSE  THEN   INPUT <> STEP E RANDOMIZE  INVERSE  THEN  ^ STEP - RANDOMIZE >=NOT ▗FN *RTAN "RTAN '<>{78*-B#:"%'/*,~*▝i NEXT 9▝ RUN ~$ NEXT  PAUSE  PAUSE SGN  NEXT qJ#QS LPRINT , CLEAR  RESTORE  CLEAR  RESTORE  CLEAR ~ INVERSE  READ  CLEAR V STEP VAL$  INVERSE  CLEAR ![E]POINT  PRINT :INT POINT  AND 2INT POINT  STEP +SCREEN$  NEW  RETURN (G:LN POINT LN 0#~ STEP SCREEN$  #~ STEP SCREEN$ CHR$ [S]AT <2>=POINT  LET NOT  PAUSE TAB ) MERGE G STEP  SCREEN$  OR G LET  STEP  SCREEN$ VAL <> NEW  AND ▗2(SCREEN$ :▟POINT <>!SCREEN$ ~+w* FOR o~2SCREEN$  PLOT  <>[M]LN :>=POINT PI H:SCREEN$ 8B!SCREEN$ ~+VAL$ G CLEAR n CLEAR f CLEAR ^ CLEAR VAT  NEW g CLEAR t THEN xSCREEN$  NEW W CLEAR r STEP  CLS SCREEN$ o CLEAR ^ CLEAR VxSCREEN$  NEW W CLEAR r STEP  CLS SCREEN$ o CLEAR X INVERSE F STEP ATTR :SCREEN$  CLEAR VAL$  THEN  CLEAR u CLEAR t FOR  CLEAR # CLEAR # INVERSE F STEP ATTR :SCREEN$  CLEAR VAL$  THEN  CLEAR u CLEAR t STEP  CLS SCREEN$ o FOR  CLEAR # CLEAR # INVERSE F STEP ATTR :SCREEN$  CLEAR VAL$  THEN  CLEAR u CLEAR t STEP  CLS SCREEN$ o CLEAR # CLEAR #:<=POINT GCODE L THEN SGN  THEN < THEN  RANDOMIZE 0# THEN y>= THEN  DRAW <>|SCREEN$ 8}<>}[D] FORMAT  GO SUB DPIb<>x[B]0 GO SUB D THEN ?&IN oVx▝o~[C]<>:<=POINT  THEN  =  CLS  CLEAR N THEN EXP  MERGE  STEP ATTR o& MOVE <>x[B]0 GO SUB D THEN ?&PEEK o^$V%x▝o~$foPI GO SUB R<>J THEN  THEN xPOINT  x<> GO SUB R0 FOR PI GO SUB Ry<>|ASN y>= MOVE  LET  GO SUB D PRINT  MERGE +x<>:>=POINT PI :SCREEN$ 8 STEP USR ATTR "SQR POINT  STEP USR ATTR "ABS POINT  STEP USR ATTR  STEP AT "SQR POINT  STEP AT "ABS POINT  STEP AT "IN POINT CODE 2[P]AT 2[Q]AT 2[R]AT NOT  OUT AT !q:[H] FORMAT ▚<><>!q:[H] FORMAT ▚<>!SCREEN$ ~+VAL$ G CLEAR n CLEAR f CLEAR ^ CLEAR VAT  NEW g CLEAR t THEN xSCREEN$  NEW W CLEAR r STEP  CLS SCREEN$ o CLEAR ^ CLEAR VxSCREEN$  NEW W CLEAR r STEP  CLS SCREEN$ o CLEAR <> INVERSE F CLEAR N THEN EXP  STEP ATTR o:SCREEN$  CLEAR VAL$  NEW g CLEAR u CLEAR t FOR  INVERSE F CLEAR N THEN EXP  MERGE  STEP ATTR  MOVE o:SCREEN$  CLEAR VAL$  NEW g CLEAR u CLEAR t STEP  CLS SCREEN$ o FOR  INVERSE F CLEAR N THEN EXP  MERGE  STEP ATTR  MOVE o:SCREEN$  CLEAR VAL$  NEW g CLEAR u CLEAR t STEP  CLS SCREEN$ o CLEAR <>( GO SUB j8 THEN  THEN  THEN 0 LIST  THEN  THEN 7 THEN  THEN z THEN #8LN 0 THEN ! FORMAT  NEXT [A]7 THEN  FORMAT  GO TO  COPY  CLEAR  RESTORE :LN POINT  RETURN  ERASE sATTR  INVERSE ~ INVERSE ACS  INVERSE ACS  COPY 70 DRAW x2<=POINT PI LINE sATTR  STEP =SCREEN$ 2[P]AT "SQR POINT  STEP =SCREEN$ 2[Q]AT "ABS POINT  STEP =SCREEN$ 2[R]AT "IN POINT CODE 2>=POINT  CLEAR  LLIST  LLIST  INVERSE  READ  RESTORE  INVERSE n INVERSE f INVERSE F GO SUB [SQR POINT :[P]AT  PRINT  STEP OATTR "SQR POINT 2BIN POINT  LET 2[P]AT  INVERSE n INVERSE f INVERSE F GO SUB [ABS POINT :[Q]AT  PRINT  STEP OATTR "ABS POINT 2 OR POINT  LET 2[Q]AT  INVERSE n INVERSE f INVERSE F GO SUB [IN POINT :[R]AT  PRINT  STEP OATTR "IN POINT 2 AND POINT  LET 2[R]AT : READ p THEN O 5 GO SUB [SQR POINT :[P]AT O:[R]AT  STEP iAT y2STR$ POINT  GO SUB [ABS POINT *IN POINT :[Q]AT O:[R]AT  STEP iAT y2CHR$ POINT :BIN POINT  THEN : AND POINT  THEN 3 FOR *SQR POINT :[R]AT O:[P]AT  STEP iAT y2STR$ POINT  GO SUB [ABS POINT *SQR POINT :[Q]AT O:[P]AT  STEP iAT y2CHR$ POINT :BIN POINT  THEN : AND POINT  THEN : OR POINT  THEN : READ p THEN Gy( INPUT  NEW 2NOT POINT :INT POINT ! IF FN 0$o:STR$ POINT w#:CHR$ POINT w#: READ pOPOINT FN :NOT POINT 0> COPY w LET  INVERSE  READ  STEP VAL$  INVERSE =CHR$  OVER POINT  INVERSE  LLIST  CLEAR  LLIST <> CLEAR ^ INVERSE _ PRINT ▜_ LET  INVERSE ^ INVERSE  CLEAR ^ INVERSE " FOR o<>* FOR o* FOR o#" FOR o THEN FUSR H<>!aGNOT [M]LN ~" CIRCLE  NEXT v<><><>G▜! IF FN 0$0$o0$V#^#~ THEN ©<> INVERSE  RESTORE  INVERSE  RESTORE  CLEAR  READ  INVERSE  CLEAR  STEP AT INKEY$_ STEP VAL$  STEP VAL$  STEP VAL$  CLEAR  LLIST  INVERSE  LLIST <> INVERSE NC THEN   THEN ! STEP ATTR O{ INVERSE VAL$  THEN  CLEAR FxPOINT  THEN ! THEN  THEN   THEN x8▝0> COPY NOT ABS VAL$ [B]0 GO SUB D THEN  THEN  CLEAR w INVERSE # INVERSE # CLEAR # CLEAR #<> CLEAR ![E]POINT  INVERSE F INVERSE N INVERSE V"CODE  INVERSE t CLEAR t INVERSE FN CLEAR q INVERSE V INVERSE ^ CLEAR s STEP "CODE  INVERSE t CLEAR t INVERSE F CLEAR p INVERSE N CLEAR q INVERSE V CLEAR r INVERSE ^ STEP "CODE  INVERSE t CLEAR t<> THEN  POINT  THEN ! NEW g THEN "ATTR  THEN # NEW AT  THEN $ INPUT  PRINT  MERGE  STEP 4ATTR STR$  RESTORE  STEP 4ATTR  MOVE  LET  THEN w(0! COPY  COPY  FOR PI GO SUB R0 FOR PI GO SUB R INPUT  THEN  THEN <> INVERSE  RESTORE  INVERSE !G OR  MERGE  OR  MERGE  OR  MERGE C STEP 4ATTR  FOR  INVERSE  MOVE STR$ B STEP 4ATTR U INVERSE lc0#STR$  MOVE  RESTORE B STEP 4ATTR U INVERSE  MOVE l&0#STR$  MOVE J RESTORE  STEP 4ATTR  MOVE  INVERSE  LLIST <> RETURN  COPY ▜ THEN  THEN 8 GO SUB R0 THEN ! THEN  FORMAT  GO SUB PI GO SUB R7 THEN  THEN  FORMAT  STOP z INPUT W|SCREEN$ DJ THEN SGN  THEN INT  NEW   GO SUB R0 FOR PI GO SUB RA THEN < THEN  THEN x>= THEN  DRAW <>zRND<>={[U]<>=y▜▜POINT /O STEP [F]VAL z VERIFY x8 STEP SIN _ STEP [M]VAL { VERIFY ?8( STEP  BEEP LEN W STEP [F]VAL | VERIFY x8 FOR  STEP SIN _ FOR  STEP INKEY$VAL } VERIFY ?8, FOR  STEP  BEEP LEN W FOR NOT ACS VAL >wINT  THEN >>SQR  THEN >wSGN  THEN >>ABS  THEN (x[Q][R]>=33USR >© THEN i [C] RETURN ▘W>? THEN a([D] RETURN _>© THEN I [E] RETURN ▗g>? THEN A([F] RETURN oSQR 0 FOR  RESTORE z NEW !ZLEN oN{PI77oATTR  NEW  SAVE ATTR gzTAB  NEW  SAVE TAB o READ }[D]_|[C] PRINT 0 GO SUB DWSQR  ERASE bLEN  LET  LLIST >8>2RLEN >, DEF FN 2VLEN | NEW  GO SUB D AND GCODE [D]2PLEN ▘0[C]yACS w>=$} AND  o8|[A]g▘ ERASE 6LEN  AND  PAUSE  THEN  ERASE 6LEN ,NOT 6LEN @  LET  LLIST >8>2[L]LEN >, DEF FN 2[B]LEN | NEW  GO SUB D AND GCODE [C]2[U]LEN 0[D]y STEP [I]LEN ACS w<>ACS wCODE -8LEN >= THEN 8 LIST  ERASE [G]LEN  AND  IF ACS wy$ GO TO } AND  oy8 READ |[A]gyNOT [I]LEN  INK !] THEN W THEN : THEN [A]8>= RETURN  THEN 8CHR$  AND LEN <><{> THEN Q([F]8 INK G INK z THEN Y([E] PRINT 0|[C](▗ STEP SGN LEN )| INK  THEN Y( LET 0▘<>xB2SIN 0y INPUT O<>[A]0 PLOT   GO SUB D<><zw THEN Y([E]8▗ INK G INK { THEN Q([F] PRINT 0}[D]( STEP SGN LEN )| INK  THEN Q( LET 0<>xCNOT SIN ~ RETURN USR 04 THEN ▚ STEP x^<>~ RETURN USR 04<> THEN ▚<> NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT  NEXT v MERGE PI(0 FOR 8 FOR ) PAUSE [P] RETURN z MOVE <>> GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ [S]SIN <>STR$  INVERSE  RESTORE  STEP "|ASN  + FOR  MERGE  STEP q▘ MOVE  PRINT  INVERSE # INVERSE # INVERSE # MERGE  STEP q▘ MOVE ▜ THEN G THEN 8G THEN > 8[A] AND G LET ▜ THEN O THEN 9▝O THEN > 8▝[B] AND /O INVERSE  LLIST z NEW p z NEW   THEN  THEN z NEW   INVERSE }00! DATA ACS "IFN  STEP <FN  INVERSE ~!8 STEP @TAN , STEP @TAN . STEP @TAN ,TAN $ STEP @TAN , STEP @TAN % STEP @TAN ! DRAW VAL$ "IFN NOT .[I] COPY  COPY  RETURN >PI 3:BIN [G]=USR *P!+[J]~PI() RESTORE !COS 0 DRAW  RESTORE  MERGE $| NEW  TO E▗ FOR  LLIST =  FOR  LLIST # CIRCLE  PRINT  STEP  STEP [I] LET Z![M]FN ^#>= RANDOMIZE D THEN P  COPY USR  LPRINT  LIST  SAVE  DRAW  RETURN ©@`px|~©? 08<>?? OR  MERGE  RESTORE "FTAN  STEP <FN   SAVE  LLIST  MOVE STR$ <>PITAN u42TAN [M]*RTAN  THEN PEEK <> THEN VUSR  THEN  BEEP <> GO SUB [STR$ POINT *RTAN ~ NEW  RETURN  INVERSE  THEN !N<>:qPIUSR  CLEAR ^ INVERSE  THEN &F( INVERSE ~%PI  INVERSE  THEN &N(TAN  INVERSE n INVERSE f GO SUB R FORMAT PI INVERSE n INVERSE f GO SUB R FORMAT PI INVERSE n INVERSE f GO SUB R FORMAT  INVERSE ~▜USR  INVERSE  THEN &N(= INVERSE  THEN ~ LINE FN ASN :▖ FORMAT PI({CODE  INVERSE w" STEP =ATN :| FORMAT PI(n CLEAR ~ NEW  LIST (<:SIN [M] VERIFY  2SIN [M]= STEP [J]ATN  NEW NOT  DATA  FORMAT  INVERSE  THEN &V(E INVERSE  THEN )▗ PAPER [F]ASN  INVERSE  THEN !V ^ INVERSE ~▜ RETURN  BRIGHT 0VG INVERSE ~▜ RETURN  BRIGHT 0M RETURN <0x RETURN <0>2[K][M]<>!(q THEN  PLOT  ! NEW p:[T][M] AND ▚▚2[T][M]<>CODE  STEP CATN  CLEAR F INVERSE  THEN &v(:SIN [M]PI(CODE 2SIN [M]!(q THEN  VERIFY  INVERSE  THEN ~(2[U][M]<2q<> CLEAR ~VAL 2[T][M]:TAN [M]g CLEAR  RESTORE  CLEAR !H`' CLEAR  CLEAR ~"PI( CLEAR ~%AT  TO ) STEP [T] GO TO  CLEAR  LLIST :G FORMAT  RETURN USR : READ  FORMAT [E]USR 2G FORMAT !STR$  FORMAT  THEN  RETURN <>!(q THEN  VERIFY CODE 2 READ p INVERSE !!`' INVERSE  INVERSE w" RANDOMIZE > STEP gLN > STEP gLN <>: BEEP TAN OCODE 2 BEEP TAN : LIST p RETURN 0> VERIFY 2 LIST p! DRAW  THEN F>= THEN ▚ RETURN [A] FORMAT G: READ p!} FORMAT _~PI>=YO=  VERIFY  {[T]>2 BEEP TAN (:[D][M][S]USR ![S][M]4 STEP ▞[D]!(q THEN  NEW y VERIFY >8( AND  AND Oz= NEW  AND  RETURN [Q]8>[Q]2 LIST p:[H][M]PI LINE IATN = VERIFY / INVERSE !H`'=( INVERSE  RANDOMIZE  STEP  LLIST  RANDOMIZE !(q THEN  OVER  INVERSE  THEN &V p INVERSE  THEN  n j INVERSE ~%G VERIFY  AND  THEN   INVERSE w% INVERSE ~" RETURN  COPY (P[B] INVERSE w"(0HCODE = INVERSE  THEN   NEW  INVERSE w" STEP  OR }:NOT  OR }2COS [M]!WTAN "RTAN <> INVERSE  RESTORE  STEP >=~ INVERSE ~2TTAN y INVERSE  LLIST  INVERSE  RESTORE  STEP [I]LN  LLIST USR  RESTORE  STEP >=~ INVERSE  READ  LLIST  STEP [O]zCODE <> STEP ▞[D]NOT  OUT ASN  INVERSE w"NOT ▞[D] STEP [J]ATN G NEW O2 VERIFY TAN x NEW  PLOT   VERIFY W THEN  THEN x NEW  PLOT   VERIFY _ MERGE y PLOT  O!?T RESTORE  STEP DVAL  LLIST  MOVE : VERIFY TAN  PLOT  O MERGE  STEP DVAL  MOVE !?@: VERIFY TAN  PLOT  O RESTORE  MERGE  STEP DVAL  MOVE  LLIST : VERIFY TAN  PLOT  ONOT DVAL  RESTORE  OR *SCREEN$ ATN |G▟gh"SCREEN$ ATN STR$  LLIST <>3 STEP CODE 2Cp2Dp<>:qPI  PAUSE : READ p RETURN  FORMAT !} FORMAT _~PI():8LEN 2 FLASH ATN 2 REM ATN ! INPUT <=> RETURN ACS w. LET H RUN / CAT j FOR  RANDOMIZE  STEP <ACS :VAL  FORMAT  THEN ©(:CODE  FORMAT  RETURN >=! DRAW F THEN INKEY$: FORMAT O:[L][M]PI(=2[L][M]  THEN EXP !(q THEN  INPUT yPI>=2 FORMAT :[S][M]<2[S][M]<>yPI>= THEN `>= PLOT  2 FORMAT >2[L][M]<>222 COPY  COPY  COPY © COPY  COPY XDA[I]d THEN ZPI MOVE NOT Q PAPER  THEN 9 THEN 9 THEN 9 NEW  LINE INT SQR = LINE kEXP = LINE [P]EXP =>== LINE  BORDER EXP = LINE [E]INT = LINE  PAUSE INT = LINE  IF INT = LINE MSQR = LINE uSQR <> STEP  LOAD x NEW ?▜▜o0$#^#V MERGE  CLEAR  LLIST  INVERSE r$ INVERSE s# INVERSE  RESTORE  MOVE !>LN  GO SUB VAL  CLEAR ~ INVERSE w" CLEAR ~O NEW o INVERSE w! STEP  VERIFY  NEW  THEN  INVERSE w  CLEAR ~ THEN ? INVERSE w>~ INVERSE w%CODE  INVERSE w& INVERSE  THEN   PLOT   INVERSE  THEN !V  STEP [J]ATN  NEW  INVERSE w STEP [J]ATN  NEW  INVERSE w STEP [J]ATN  INVERSE w STEP [J]ATN  INVERSE w STEP [J]ATN  INVERSE  THEN  INVERSE  THEN CODE <>O INVERSE  RESTORE  STEP  LINE  IF  LLIST USR  RESTORE y STEP ATN  LLIST  INVERSE  RESTORE  MOVE  GO SUB VAL CODE <> INVERSE !H`' INVERSE  INVERSE ~"PI>= RUN <>O STEP 6EXP USR y STEP  OR ^ INVERSE  THEN PEEK  INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w<> STEP d© NEW  AND O STEP 6EXP USR > OR  STEP [I]LN  INVERSE  THEN % AND  STEP [J]ATN  NEW  PLOT   INVERSE w NEW  INVERSE wCODE  INVERSE w STEP INT STR$   MERGE <>yPI(, INVERSE !H` INVERSE  INVERSE ~"PI( STEP 6EXP USR > OR  STEP [B][D]STR$ >j INVERSE w>) INVERSE w> INVERSE wy> STEP EXP USR : NEW p INVERSE ▚ INVERSE w INVERSE q% INVERSE  THEN & AND CODE <>>(! STEP [J]ATN  NEW  AND (>(>(USR  STEP [J]ATN  THEN G>(> INVERSE  RESTORE  STEP EXP  CLEAR  LLIST USR  CLEAR  THEN &V TO 'INT  CLEAR  THEN !V>= INVERSE  THEN ! VERIFY CODE <>:fLN  INPUT 2fLN (' INVERSE  RESTORE  STEP ?INT  STEP ?INT  STEP ?INT  INVERSE  LLIST <> INVERSE ~ INVERSE F INVERSE w INVERSE p INVERSE ~ INPUT  INVERSE w INVERSE # INVERSE #<> INVERSE ~ INPUT  INVERSE F INVERSE w INVERSE p INVERSE ~ INPUT  INVERSE F INVERSE w INVERSE p INVERSE ~ INPUT  INVERSE Fp<> STEP [J]ATN  NEW ▜ INVERSE w STEP [J]ATN  NEW ▜ INVERSE w<> THEN A(P STEP [M]INT USR > STEP JEXP USR  STEP INT  INVERSE  THEN  ACS  STEP [J]ATN  NEW ? PLOT   INVERSE w INVERSE ~ NEW  INPUT  INVERSE w STEP [J]ATN  NEW ? PLOT   INVERSE w INVERSE ~ NEW  INPUT  INVERSE w> INVERSE w STEP [J]ATN  INVERSE w STEP [J]ATN  NEW  PLOT   INVERSE wCODE <>> STEP USQR USR >c THEN A>(7[U] THEN A>(/> INVERSE !2a STEP PEXP  STEP INT > INVERSE w> INVERSE w INVERSE  THEN  ACS >L INVERSE w>USR  INVERSE w: NEW p INVERSE ▚ INVERSE wCODE <> INVERSE  RESTORE  STEP EXP  INVERSE  READ  LLIST USR  RESTORE  INVERSE  READ  INVERSE  THEN  ACS > INVERSE w&> INVERSE wCODE  INVERSE  LLIST <>> STEP USQR USR > INVERSE  RESTORE  STEP EXP  INVERSE  READ  LLIST USR  RESTORE  INVERSE  READ  STEP 'INT > INVERSE w& INVERSE  THEN  ACS  INVERSE  THEN  RETURN  INVERSE  LLIST CODE <> INVERSE !Yay AND  STEP 5VAL$ >USR  INVERSE w INVERSE wCODE  INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE  THEN  ACS << INVERSE w INVERSE  RESTORE  LLIST BK FOR !]LN  GO SUB [Q] REM COS SQR <>:n FORMAT O:q FORMAT ▝▜O:u FORMAT ▝O:SIN [M]PI . STEP [J]ATN  RETURN 0':VAL  FORMAT  NEW B RETURN  =2SIN [M]>! PAUSE SQR  RESTORE  PRINT  STEP 6EXP USR >s INVERSE  THEN & PLOT   INVERSE  THEN   VERIFY NOT ATTR SGN  STEP [J]ATN [B]8 RETURN Z FORMAT  RETURN P8 STEP 6EXP USR > STEP [I]LN  INVERSE  THEN ACS >USR  INVERSE w<>G NEW _:CODE  FORMAT  RETURN W RETURN [N] FORMAT  NEW (SQR  FORMAT O THEN X LINE ©SGN  STEP 6EXP USR  STEP [J]ATN  NEW ?( VERIFY 8 VERIFY 8 VERIFY 8x PRINT  STEP [I]LN  LET  RETURN ( STEP [J]ATN  RETURN 3 FORMAT  INVERSE  THEN % AND <> STEP 6EXP USR y RESTORE  STEP [J]ATN G NEW SQR 0# THEN  THEN  THEN H STEP 6EXP USR y NEW  RETURN 8= THEN ? THEN ? AND STR$ y NEW  AND EXP  STEP [J]ATN  NEW  DEF FN O STEP 6EXP USR  OR  STEP [J]ATN  NEW  AND  STEP [I]LN STR$   GO SUB <>Ya▙▜ CLEAR  RESTORE  INVERSE  READ  LLIST ">=SGN  INVERSE V STEP ▗POINT  CLEAR ~2 LINE SGN  CLEAR ~PI CLEAR ![E]POINT  <[ PRINT  MERGE  STEP 1SCREEN$  NEW  RETURN (G:LN POINT LN 8 MOVE CODE : CLEAR  RESTORE *>=SGN  RESTORE  STEP TAN ABS 2 MOVE SGN " THEN SGN  STEP TAN ABS 2 ERASE SGN " STEP SGN  STEP TAN ABS 2 OPEN #SGN " CAT SGN  LLIST  INVERSE  RESTORE  CLEAR ! THEN SGN  INVERSE ! MOVE SGN  STEP _ABS  INVERSE  LLIST  CLEAR  LLIST  MOVE CODE  THEN $0< STEP &VAL$  INVERSE  LET = RND CLEAR  LLIST  INVERSE  LLIST <> CLEAR ^ CLEAR N INVERSE ~ STEP [F]ABS  RESTORE  CLEAR ^ CLEAR N INVERSE ~ STEP [F]ABS  RESTORE  CLEAR ^ CLEAR N INVERSE ~ STEP [F]ABS  MOVE  STEP  STEP CODE  GO SUB j THEN x( THEN  DRAW  MOVE NOT  STEP CODE G THEN   NEW ATTR _ STEP ATTR S_J THEN EXP  MERGE  STEP 4ATTR  MOVE z) THEN  THEN <> STEP AT STR$  INVERSE  READ  INVERSE ^ INVERSE V INVERSE ~ INVERSE # INVERSE # INVERSE # INVERSE  READ  OR O: LINE SGN  THEN % RESTORE G THEN = DRAW  THEN yAT  THEN $8 FOR PI GO SUB R0 FOR PI GO SUB Ry INPUT O THEN ! THEN  THEN  MOVE { THEN <>$1@Qdy[A]POINT BIN  LLIST !Di[A]EXP  DATA @q[U] INK I▗STR$ A▗<>Y[U] LET @[B] DATA 9[A] DIM D[R]aBIN )[A] RANDOMIZE d MOVE @LEN $[J]▞▝▝▞[J]$LEN @ MOVE d RANDOMIZE [A])BIN a[R]D DIM [A]9 DATA [B]@ LET [U]Y<>▗ASTR$ ▗I INK [U]q@ DATA EXP [A]iD! LLIST BIN POINT [A]ydQ@1$$1@Qdy[A]POINT BIN  LLIST !Di[A]EXP  DATA @q[U] INK I▗STR$ A▗<>Y[U] LET @[B] DATA 9[A] DIM D[R]aBIN )[A] RANDOMIZE d MOVE @LEN $[J]▞▝▝▞[J]$LEN @ MOVE d RANDOMIZE [A])BIN a[R]D DIM [A]9 DATA [B]@ LET [U]Y<>▗ASTR$ ▗I INK [U]q@ DATA EXP [A]iD! LLIST BIN POINT [A]ydQ@1$ !!"#$$%&''()*++,-./01123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWYZ[/]_`abdefgijklnoprstvwyz{}~©▝▘▗▜▖▛▟▙[A][B][D][E][G][H][J][K][M][N][P][Q][S][U]RNDPIPOINT SCREEN$ AT TAB CODE LEN SIN TAN ACS ATN EXP SQR ABS PEEK USR CHR$ BIN  OR <=<> THEN  TO  DEF FN  FORMAT  ERASE  CLOSE # MERGE  BEEP  INK  FLASH  INVERSE  OUT  LLIST  STOP  DATA  NEW  CONTINUE  REM  GO TO  INPUT  LIST  PAUSE  POKE  PLOT   SAVE  IF  DRAW  RETURN © RETURN  D`@@@ USR USR ©>▝IN = COPY  COPY  COPY  COPY  COPY USR ~ COPY  COPY > CLEAR SGN = COPY  COPY  COPY  COPY  COPY © RETURN  ~▝IN E0 x CLEAR IN } LPRINT   COPY  COPY  COPY  COPY  COPY ▝[Q]}@ COPY  COPY  COPY  COPY  COPY  LLIST SGN A COPY  COPY  COPY  COPY  COPY 0cc COPY  COPY  COPY  COPY  COPY  LLIST VAL ~~~~▝ COPY  COPY  COPY  COPY  COPY [Q]A COPY  COPY  COPY  COPY  COPY  LIST ▝▝ COPY  COPY @[S]A COPY  COPY  COPY  COPY  COPY © RETURN  B▝[Q]E@@!D▝[Q] LPRINT @@  COPY  COPY  COPY  COPY  COPY ▝[Q]▝@ COPY  COPY  COPY  COPY  COPY a[S]A COPY  COPY  COPY  COPY  COPY 8`` COPY  COPY  COPY  COPY  COPY aCODE  RANDOMIZE BBBB▝ COPY  COPY  COPY  COPY  COPY aIN 9 COPY  COPY  COPY  COPY  COPY  SAVE A COPY  COPY < RANDOMIZE PEEK 9 COPY  COPY  COPY  COPY  COPY ? DRAW ? COPY  RETURN  |▝IN E AB▝[Q] LPRINT  COPY  COPY  COPY  COPY  COPY ▝[Q]@ COPY  COPY  COPY  COPY  COPY  LLIST PEEK A COPY  COPY  COPY  COPY  COPY USR d8 COPY  COPY  COPY  COPY  COPY  LLIST IN  CLEAR BBBB▝ COPY  COPY  COPY  COPY  COPY a[Q] COPY  COPY  COPY  COPY  COPY ? DRAW ! COPY  COPY ▝[S] COPY  COPY  COPY  COPY  COPY ? DRAW  LIST  D▝[Q]EI$[C]@H[C]D▖▝▝B▝[Q] LPRINT A COPY  COPY  COPY  COPY  COPY ▝[Q]$ COPY  COPY  COPY  COPY  COPY [S]A COPY  COPY  COPY  COPY  COPY ~?| COPY  COPY aCODE  RANDOMIZE BBBB▝ COPY  COPY  COPY  COPY  COPY  LLIST [Q]y COPY  COPY  COPY  COPY  COPY ? DRAW  COPY  COPY |▝[S]y COPY  COPY  COPY  COPY  COPY  SAVE  SAVE  B CLEAR [Q]}@ ~~ CLEAR IN  LPRINT   @[S]▝ COPY  COPY  COPY  COPY  COPY  LLIST PEEK  COPY  COPY  COPY  COPY  COPY  LLIST [S]} COPY  COPY  COPY  COPY  COPY  LIST USR ` COPY  COPY  COPY  COPY  COPY  LLIST VAL ~~~~▝ COPY  COPY  COPY  COPY  COPY a© RETURN  LIST 8 E LPRINT  SAVE cc▝ 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  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY USR  LPRINT  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 0 COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW ©> 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 " LIST `  ▖`@F@B#@  ▗`@F@|<SGN D @@  D[Q]@@F@B888@x8<:CHR$ 8hh8x8@H@@  B[Q]@@F@B D@@<D DBIN USR DTTD<D @P@@`"[Q]@ &@| x88D< zDUSR DTT<DDx  "[Q]t@ `!`[Q]@ $@@ @BxD B(CHR$ DTTDDD@  "[Q]▗  `USR @$@ <xx<@<=SGN 8TT<D<< !  ▖`USR ▚@$@ 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  INPUT | INPUT  INPUT  INPUT l8 INPUT  INPUT  INPUT  VERIFY  RETURN l INPUT |88| INPUT  INPUT  INPUT l888 RETURN <x LIST  RETURN NOT VAL$  NEW NOT VAL$  CONTINUE NOT s DIM NOT | FOR NOT X GO TO NOT  OUT  GO SUB NOT H LOAD NOT ▜ LOAD NOT LN  LIST NOT  RANDOMIZE  DATA NOT  RESTORE NOT  NEW  DATA NOT  CLOSE # DATA NOT  RESTORE NOT [ DATA NOT [I] READ NOT  OUT NOT [I] ERASE NOT  VERIFY NOT _ CLOSE #NOT z PAPER NOT [S] FLASH NOT % CLOSE #H MERGE NOT  INK m~*JAMESON    CONTINUE FJZHSATN 8TAB [M]= LIST R3[I]ACS  IF ▛TAB <>x>= CLEAR  STOP e MERGE NOT  PLOT   FORMAT NOT [B] FLASH NOT # MOVE NOT [H] OVER NOT [A] MOVE NOT  INK  MOVE NOT <= MOVE NOT M MOVE NOT  DIM  MOVE  PRINT ! STEP b MOVE  LET  STEP _ CLOSE #>] STEP _ CLOSE #!"E FORMAT >Z STEP _ CLOSE # STEP  CONTINUE  LLIST  STEP  RUN  LLIST  STEP  VERIFY  STEP ^ READ NOT  STOP X! STEP b MOVE  STEP  RUN  LLIST  RETURN Y(CODE 2CODE  FORMAT <>!VAL  FORMAT  THEN  RETURN >2CODE  FORMAT Y! STEP b MOVE <= STEP /SIN CODE 2CODE  FORMAT !VAL  FORMAT  THEN  OVER ! NEW  RESTORE  MERGE  STEP  VERIFY >/ STEP _ CLOSE # MOVE  LLIST "E FORMAT ! X LPRINT s#  CLS   SAVE zNOT _ CLOSE # INVERSE  THEN &~(.▚4> NEXT !| FORMAT  RETURN  COPY   GO TO .VAL  THEN  PLOT  >}ps LET 5 AND ko4 AND e.<=6▛#w VERIFY  FORMAT  RETURN ( RETURN USR !_ FORMAT ~ AND 0[P]w<>!` FORMAT ~w#~w FORMAT # STEP NSIN zCOS >= GO SUB Sw PAPER  STEP  OPEN # OPEN #! OR  FORMAT  THEN  RETURN <>:v PAPER  RETURN  CLEAR >=:q NEW ? LINE [H] OVER  RETURN  FORMAT = RETURN 0PI( AND  AND o& FORMAT 45>= THEN  RETURN 4 AND  BORDER 2y PAPER  STEP -q!NOT  FORMAT  THEN  RETURN <>!g FORMAT  STEP > FOR ~PI>=5!| FORMAT 4> TO  LLIST JAMESON    CONTINUE FJZHSATN 8TAB [M]= LIST R3[I]ACS  IF ▛ STEP [B] FLASH !2 ERASE T FORMAT ] GO SUB VAL :[J] FORMAT 2SQR  FORMAT :[H] FORMAT 2SGN  FORMAT  STEP t OUT !VAL  LLIST 6 RESTORE  STEP H LLIST  LLIST 6w! GO SUB  OVER  DATA  OVER  GO SUB VAL ! ERASE q GO SUB VAL CODE 2[R] FLASH <>7PI&o PRINT  RESTORE  STEP } OPEN # LLIST >2 TO  FORMAT " BRIGHT  ERASE ' STEP W OPEN # CONTINUE  STEP W OPEN #d STEP W OPEN # STEP W OPEN # LET 0: TO  FORMAT PI LINE  OPEN #CODE  STEP q OPEN # STEP ! CLOSE #.* BRIGHT  ERASE } STEP q OPEN #CODE 2 DEF FN  FORMAT <2 TO  FORMAT <>*f FORMAT  GO SUB [h FORMAT  MERGE }TAN (>2 DEF FN  FORMAT PI STEP  RESTORE  ERASE CODE 2 TO  FORMAT >2 DEF FN  FORMAT >2 DEF FN  FORMAT  LLIST 7NOT  RESTORE  ERASE * BRIGHT  ERASE CODE PI GO SUB R PAPER d OPEN #< SAVE " BRIGHT  ERASE PI(GCODE 2 TO  FORMAT x AND 0NOT % CLOSE #: TO  FORMAT PI( PRINT <>0 RESTORE PI GO SUB R LLIST 8$PI STEP  DEF FN  OPEN #8d STEP  DEF FN  OPEN #8 CONTINUE  STEP  DEF FN  OPEN #8' STEP  DEF FN  OPEN #8: DEF FN  FORMAT LN >= CIRCLE [A]G OR : TO  FORMAT PI LINE  OR  OPEN #> NOT <= OPEN #>0 STEP % CLOSE #STR$  FOR <> RESTORE  GO SUB R LLIST <>*h FORMAT "h FORMAT PI' GO SUB R CIRCLE "h FORMAT *f FORMAT "f FORMAT <>*f FORMAT  GO SUB R8"f FORMAT PI<>7<>*h FORMAT PI GO SUB R0*f FORMAT }TAN 7>=+"f FORMAT !'PI GO SUB R GO SUB [h FORMAT "h FORMAT PI<> LLIST ~# RESTORE  RETURN   PAPER A CLOSE # RETURN ` PAPER [J] CLOSE # RETURN 8 RETURN [Q] PAPER [M] MERGE  VERIFY [Q] AND r* LET W LINE T CLOSE # COPY  COPY CODE  GO SUB LEN  POKE ~PI>= RESTORE  STEP % CLOSE # LLIST # PRINT * LET W(( COPY  COPY > GO SUB LEN NOT c CLOSE #G:  CLOSE # RETURN x(AT  RETURN   PAPER  DATA  BEEP  RETURN [8 RETURN  BEEP 8 CLOSE #NOT [F] MERGE ~PI>= RESTORE  STEP p CLOSE # LLIST # PRINT  RETURN A85 RETURN [01 PRINT : MOVE  FORMAT  RETURN (/: OPEN # FORMAT PI(CODE 2 OPEN # FORMAT 2 ERASE  FORMAT  : ERASE  FORMAT  RETURN  CODE 2 ERASE  FORMAT : MOVE  FORMAT  RETURN ( LET  AND   PRINT  PRINT >2 ERASE  FORMAT : CLOSE # FORMAT  RETURN  LET  PRINT !E FORMAT 4~ RETURN  8>w STEP LEN  STOP  LET  STEP  CLS ] VERIFY  O THEN ! THEN  THEN ! THEN  THEN ! THEN  RESTORE !@:F FORMAT  RETURN  ERASE  MERGE  RETURN  ERASE & MERGE GNOT - MERGE  VERIFY GNOT - MERGE  VERIFY G THEN 8 THEN  THEN 8 THEN :E FORMAT ONOT  LIST ]NPOINT w$ SAVE <>![R]Z> STEP c MERGE ##<><>> COPY  w# DRAW <>!AX PRINT  NEW  SAVE G RESTORE > STEP c MERGE  LLIST  LET  NEW (G> o0$ RUN  OUT !"X>w#w<> VERIFY  BEEP ![J] CLEAR  VERIFY !COS  CLEAR ▜_~ RESTORE  STEP [J] CLOSE # LLIST #~ RETURN ?>=NOT [J] CLOSE #:▜ FORMAT  THEN  CIRCLE (:w FORMAT  RETURN 8CODE <>[P]2▜ FORMAT =<> INK ▙s!INT q#q#w# PLOT   INK <>* TO  OVER  THEN % FOR * DEF FN  OVER  GO SUB Z|" TO  OVER  FOR " DEF FN  OVER <> PRINT  RETURN (PI  OR  STEP @ GO TO STR$ 0!VAL  FORMAT  THEN  DEF FN  LET <> STEP [J]ATN  NEW >=:a FORMAT  INVERSE ACS ' CLEAR INKEY$<> SAVE  CAT  NEXT !B RESTORE  q# DRAW  LLIST $| NEW  TO E▗| RETURN X  FOR . T] COPY 6 GO SUB VAL  CLS ! @ RESTORE  STEP _ MERGE  LLIST  RESTORE  INVERSE  LLIST  INVERSE  THEN  RETURN  INVERSE  THEN  AND $| NEW  TO E▗| RETURN X  DIM ! LPRINT W STEP _ MERGE CODE !"E FORMAT <> FORMAT <>!<= OVER ![H] FORMAT :e FORMAT PIUSR : FORMAT  RETURN ? FORMAT ▜ READ /▚0[P]# READ  RESTORE  STEP  AND  NEW 8 READ F##~ STEP  AND  NEW  MOVE ? FORMAT PI GO SUB R<> LLIST <> INVERSE ~# RETURN <(CODE  THEN  OVER  THEN V w=2_ FORMAT # THEN ~ 7[P]<>CODE  INVERSE w" STEP z VERIFY !CODE  FORMAT , FORMAT  THEN  VERIFY ! FORMAT  THEN PEEK 5 STEP z VERIFY 8 POKE !i`CODE w2VTAN !CODE  FORMAT w. THEN PEEK  COPY  COPY  STEP <= MOVE CODE <<> STEP z VERIFY 8P: FORMAT = .b THEN vUSR ~ RETURN ▘ CIRCLE  THEN  PLOT  4LN 5 STEP @ GO TO  FORMAT !b FORMAT ~ FORMAT  NEW (GTAN :VAL  FORMAT  DRAW  FORMAT :VAL  FORMAT  THEN oUSR  RESTORE AT ! STEP b MOVE  STEP  RUN  LLIST  LLIST  RETURN YUSR TAB 4NOT E MOVE >2CODE  FORMAT <> STEP INKEY$ STOP : FORMAT PI(':b FORMAT  THEN ©(  NEW ! CLOSE # LET  LET  AND [P] STEP _ CLOSE #:b FORMAT  NEW  RETURN  THEN w>RNDBIN _ CLOSE #NOT POINT  STOP ( INVERSE !3 VERIFY CODE 2q<>USR H<>H<><>*)SCREEN$ ~2(SCREEN$  PLOT  <>*)SCREEN$ #")*RTAN #6 COPY ###6 COPY : READ p<> STEP  LLIST uPI>= INVERSE  RESTORE  INVERSE !u: READ p RETURN 8 INVERSE .z CLEAR  RESTORE  CLEAR !wu STEP  LPRINT  CLS BIN  LPRINT  CLS BIN  LPRINT  CLS  CLEAR  LLIST  INVERSE  LLIST <>! PAUSE .-& BEEP _n& CIRCLE  DIM ▗Kjr.7VAL$ "3TAN  RESTORE W▗▗▗VAL$ 3r. RESTORE  DIM ATN {INT ABS USR TAN POINT ▗▗W▗©▗NOT  AND  NEXT <>▗▗ LOAD ▗▗NOT ^ READ > OR  STEP [H] STOP  STEP - OPEN #> STOP !T FORMAT E>y>i STEP [H] STOP  STEP ! CLOSE # :▘ FORMAT  STEP  OVER  ERASE >NOT NOT INKEY$ STOP >2 DEF FN  FORMAT :e FORMAT <NOT  LLIST  ERASE ![A] FORMAT USR  OVER  GO SUB VAL  STEP  LPRINT ! FLASH  OVER  DATA  OVER  STEP © CIRCLE ! GO SUB  OVER NOT  READ  STEP SGN  STOP >2 OPEN # FORMAT <> STEP © CIRCLE  STEP  LLIST  MERGE  NEW  PRINT  STEP  LLIST  MERGE  NEW >![L] CLEAR _ RESTORE  STEP  SAVE  CIRCLE  LLIST # STEP  SAVE  CIRCLE  LET PI>== DATA ><>>2 MOVE  FORMAT <>NOT POINT  STOP NOT  CONTINUE  LLIST NOT  VERIFY NOT LEN  STOP NOT / MERGE NOT k READ NOT Z READ >NOT LN  STOP  RETURN :^ FOR USR :[M] FORMAT < RETURN 8 POKE <>!z LPRINT t!INT  OVER <>>>2  CLOSE #<>>>NOT >= STOP ~ RETURN ?>=NOT % CLOSE # NEXT !USR  STEP  INK  STEP >= CLS  PRINT  STEP 2 CONTINUE  LET NOT  STOP > FORMAT  CLEAR © INK !4 INK G MERGE  GO SUB VAL O>=<> INK  GO SUB Q~# GO SUB Y INK zEXP  PAPER G<>![K]>= NEXT ><> STEP  INK !>= RESTORE T FORMAT f GO SUB VAL !<> STEP  INK <><>><0>,!M/ LOAD ,z RESTORE ATN O GO TO !S* RESTORE FN >= MERGE !PEEK ▚-VAL$ -[G]/ATTR SCREEN$ z RETURN  FORMAT   LIST <> GO SUB s, PAPER 1 B STEP USR [S]1A<>AA MERGE  RESTORE wCODE  STEP  BORDER © PLOT   LLIST  MOVE ,  FOR NOT !qO THEN 9 GO SUB s` PAPER  NEXT 1 @ STEP jLN 1A CLS <> COPY  COPY  COPY  COPY (ICODE  PRINT CODE 2 MOVE  FORMAT : READ p RETURN 8 STEP TAN  PAPER !H MERGE 6POINT <>! MERGE  THEN  RETURN !"E FORMAT : READ p AND ` STEP % CLOSE #>CODE  STEP INKEY$ STOP  STEP TAN  PAPER ! MERGE  THEN PEEK <> STEP ) BRIGHT  STEP !q!s PAPER ~PI .!t PAPER 4 THEN F e!ABS  FORMAT  THEN ~ ## SAVE <> THEN PEEK N#F OR  STEP  CONTINUE  LLIST STR$ >2u PAPER x2v PAPER <>5 RETURN  CIRCLE : READ p RETURN  FORMAT :u PAPER o&"E FORMAT :v PAPER  RETURN  CLEAR ( RETURN  STOP (:v PAPER NOT INKEY$ STOP :y PAPER  RETURN s(!E FORMAT 444 STEP % CLOSE # CONTINUE *w PAPER 7 STEP  RESTORE  ERASE  OUT : DRAW p RETURN [P]8H:qPI 1:)qPI &!r PAPER ~PI >Fw:CODE  FORMAT =(:▝ FORMAT PI>=:INT  FORMAT PIUSR CHR$ .5<>'{":▖ FORMAT PI>=:▘ FORMAT < STEP [S] OVER [Q]CODE 2A FORMAT .: READ p RETURN  BRIGHT  SAVE odNOT  LLIST  PAPER !ABS  FORMAT  THEN PEEK ## IF CODE 2v PAPER <>! DRAW ~ NEW 0>=G~ NEW  CAT w:[R] FLASH PIUSR :qPI(Q THEN h( THEN `>=:▟ FORMAT PI>=>2? FORMAT t STEP ` OUT * PLOT   OVER |PI +}PI>=G:▘ FORMAT [A]8!>2? FORMAT USR >2[R] FLASH 2s PAPER  STEP  NEW  PAPER  STEP  CONTINUE  LLIST : READ p RETURN  FORMAT CODE 2 READ p<>STR$ NOT  BRIGHT  PAPER  STEP  VERIFY !"E FORMAT >2 MOVE  FORMAT > STEP  STEP _ CLOSE # STEP  CONTINUE  LLIST  STEP ^ READ  STEP  STOP NOT ▜ LOAD ![R] FLASH ~PI>=5(G>2 DEF FN  FORMAT !"E FORMAT x THEN ?NOT  LLIST  ERASE  STEP [B] FLASH :? FORMAT  VERIFY  @CODE 2CODE  FORMAT :▝ FORMAT PI(CODE 2▝ FORMAT 2INT  FORMAT  STEP p]!e FORMAT  OR  MERGE  PRINT  STEP  RANDOMIZE y LET  MOVE STR$ :e FORMAT 2`p NEW 2e FORMAT CODE 2_ FORMAT  STEP ` OUT f^ THEN s#V THEN r#<>:▝ FORMAT PI INT : PLOT   OVER G:▘ FORMAT [A]O STEP [S] OVER >F[B]G: SAVE  OVER  THEN '!_ FORMAT  THEN >: STEP < RETURN  RANDOMIZE  )<2q![J] FORMAT SQR  FORMAT ▚ THEN w![H] FORMAT SGN  FORMAT ▚ THEN wCODE 2q2 DATA  OVER 2 GO SUB  OVER NOT L OVER CODE 2q STEP  INVERSE  CIRCLE [G] FORMAT  GO SUB VAL ! GO SUB  OVER  DATA  OVER  GO SUB VAL : IF  OVER 2[M] FORMAT : RANDOMIZE  OVER 2[N] FORMAT  STEP B LLIST CODE !qw# DRAW > COPY 2q!EXP  OVER q STEP H INVERSE  STEP H INVERSE  STEP S INVERSE < PLOT  ▝ STEP H INVERSE  STEP H INVERSE  STEP S INVERSE N STEP ` INVERSE NOT  RUN  INVERSE # FOR  FOR ~ NEW  PLOT  <> FOR  FOR ~#ACS  NEW ▝<>2q OR !qH` GO SUB VAL STR$ :q!O` THEN 98:q!I` THEN  RETURN G NEW © THEN 98 RETURN  Wx INPUT Gz==< THEN ' THEN   THEN #wCODE !Q`w# DRAW !q:O`PEEK >©2Z` b`R`!q:J`PEEK > COPY 8^`V`!q:P`PEEK 8> COPY >;>©<> RETURN >B(x2b FOR <>:e FORMAT PI(O!n` THEN ~ THEN PEEK   INVERSE !CODE  FORMAT ~PI(= 4 RETURN  w![G] FORMAT  STEP 7 LOAD 8>2CODE  FORMAT !b FORMAT ~#4# 4 THEN ~ THEN PEEK (.VAL 6!q:[N] FORMAT  INPUT  COPY  NEW PEEK 8!e` THEN PEEK >2@ FORMAT CODE 2 READ p2 INPUT p2q2G FORMAT 2SIN [M]>[Q]2 PAUSE p<>^#V'<>INKEY$8 THEN  AND >2▝ FORMAT . STEP  SAVE o STEP [H] OVER >=8 THEN  DEF FN STR$ 8ATTR  THEN  VERIFY >2CODE  FORMAT ASN :▘ FORMAT PI>=! CAT  FORMAT  THEN  RETURN CODE  RETURN G8>F2▘ FORMAT  THEN 'G THEN ? THEN ? THEN ?2 GO TO p<>8TAB [M]SCREEN$ LN  GO TO SBIN 8TAB [M]JAMESON   LAVELAVELAVEX OUT  OVER !e FORMAT ~< NEW w![A] FORMAT  STEP  OUT ![C] FORMAT  STEP  OUT ![E] FORMAT ^ THEN s#V THEN r<> STEP & LLIST CODE 2 OUT  STEP . LLIST  STEP  LPRINT ! FORMAT  OVER  FLASH  OVER FLN  PI(# POKE ! OUT 4CHR$ + OUT 7<> STEP 6 LLIST  STEP o DATA  STEP  LPRINT  STEP o DATA  STEP  LPRINT NOT ASN  OUT : READ p RETURN 8 RETURN 0 STEP o DATA  STEP t OUT NOT o DATA  STEP & LLIST ! COPY  COPY "^ OUT  OR :NOT  OVER G:STR$  OVER  STEP  8 FOR *^ OUT PI GO SUB R8 GO SUB S^ OUT  STEP . LLIST  STEP BIN  OUT STR$  INVERSE *^ OUT PI STEP  PAUSE  OUT  STEP 6 LLIST  STEP  LPRINT  STEP  LPRINT  STEP  LPRINT :[J] FORMAT G:[H] FORMAT  STEP  DEF FN  OUT  STEP  PAUSE  OUT PI<> OR  STEP c LPRINT STR$  RANDOMIZE <> PRINT :SQR  FORMAT  STEP  REM  OUT W STEP  LPRINT STR$  RESTORE :SGN  FORMAT  STEP  REM  OUT  THEN ?W STEP  LPRINT  MOVE <>[A] FORMAT /<>~ INPUT <>8! COPY  COPY |ASN ( STEP ▚[M]l&))" PLOT   OVER <>! THEN : THEN  THEN 0 PRINT <>! FLASH  OVER " OUT 6# CLS *USR  OVER } NEW @PI PRINT  STEP = LPRINT  STEP = LPRINT  STEP = LPRINT  LET (&*BIN  OVER | NEW PI(!COS  CLEAR ▜_~# RESTORE * OUT w# FOR  LLIST ~ FOR  RETURN ?(w#" OUT *USR  OVER  GO SUB [CHR$  OVER  FOR "USR  OVER *BIN  OVER "CHR$  OVER "BIN  OVER <> LPRINT ! FLASH  OVER  GO SUB  OVER  GO SUB VAL <>*USR  OVER "INT  OVER |2SGN  FORMAT  NEW 2 SAVE  OVER *CHR$  OVER "SGN  OVER |2SQR  FORMAT } THEN ? THEN ? THEN ? NEW 2 RANDOMIZE  OVER  THEN ? : SAVE  OVER  PLOT  2 SAVE  OVER : SAVE  OVER  INPUT PIG| NEW G: RANDOMIZE  OVER  THEN ?▖2 IF  OVER ▜▜G: RANDOMIZE  OVER O: SAVE  OVER ▖▞ DEF FN 2 CLS  OVER : SAVE  OVER  INPUT  DEF FN W: RANDOMIZE  OVER  DEF FN  STEP  LPRINT : CLS  OVER U STEP  LPRINT )))" DRAW  OVER *BIN  OVER "PEEK  OVER <>* PLOT   OVER |ASN (>IN  STEP [H] STOP >2 DEF FN  FORMAT * PLOT   OVER 7 STEP  RESTORE  ERASE  STEP ! CLOSE #NOT NOT POINT  STOP ![A] FORMAT USR  OVER  AND  OVER ! AND  OVER USR  OVER  GO SUB VAL <> STEP CODE ATTR 2j FORMAT  STEP [L]ABS  LLIST  INK !p OR ^#~W MERGE  NEW (G: SAVE  OVER OCODE ▝ CLEAR _#F#N#:j FORMAT [R]G{ THEN z < GO SUB D THEN ©(CODE  NEW ?C MOVE  PRINT :j FORMAT [R] THEN Ox THEN z(Wy[C]▝0C▜ THEN ▜ THEN O OR  INK STR$ yx LET w# INK STR$ [O]!VAL$  FORMAT p<>$<>=< CONTINUE VAL  LIST LL POKE lp▗[Q]:!`NOT ASN  STEP Z READ  STEP  STOP : DRAW  RETURN  COPY ( RANDOMIZE <> NEXT ! DRAW 6# CLS  CLS <>: OUT  LLIST  AND  FORMAT  STEP % CLOSE # STEP SGN  STOP  STEP  READ  STEP SGN  STOP * STOP  LLIST ##" STOP  LLIST ^#V FOR 7>2 DEF FN  FORMAT  STEP  RESTORE  ERASE  STEP SGN  STOP * DATA  LLIST #~" DATA  LLIST PI  STEP ! CLOSE # >- STEP INKEY$ STOP 7<>>2 DEF FN  FORMAT * DATA  LLIST ~ STEP  LLIST  ERASE  STEP  READ  STEP POINT  STOP PI<>* LPRINT  LLIST #" LPRINT  LLIST ~PI(: OUT  LLIST  AND  FORMAT  STEP ^ STEP SGN  STOP >2 DEF FN  FORMAT * LPRINT  LLIST ~ STEP  LLIST  ERASE  STEP  READ PI<>7<> STEP _ CLOSE # STEP % CLOSE #>: STEP % CLOSE #> NOT % CLOSE # STEP % CLOSE #>2 ERASE  FORMAT  STEP ATN  STOP :F FORMAT <CODE 2E FORMAT <> LLIST ~# RESTORE 2E FORMAT  RETURN   CIRCLE  LLIST 2F FORMAT  RETURN  CIRCLE >2F FORMAT  STOP !E FORMAT 5 RESTORE !H MERGE  RESTORE ~ PRINT 6 STEP ! CLOSE #  LET  LLIST w LLIST 5<> PRINT  STEP ! CLOSE # LET  STEP % CLOSE #>NOT % CLOSE # STEP  SAVE  STOP  STEP / PAPER >NOT % CLOSE #~ RETURN 7>=# RESTORE  STEP % CLOSE # LLIST  NEXT >2 ERASE  FORMAT : OUT  LLIST  RETURN 8 RETURN 8( RETURN 8>T>K STEP % CLOSE #>G STEP ! CLOSE #K>MNOT % CLOSE #: OUT  LLIST  RETURN  CIRCLE  RETURN  7<>PI<>$v CLEAR <>*E FORMAT " NEW  LLIST <>> STEP >= STOP  STEP ATN  STOP CODE ![R]P STEP } READ !STR$ P OR  RESTORE w# DRAW  LLIST $STR$  NEXT <>* NEW  LLIST "E FORMAT <>> OVER  STEP  TO  READ :[E] READ PI LINE k READ  STEP $ OUT 0! FORMAT  OVER  STEP  READ  STEP ! CLOSE # STEP ! CLOSE # LLIST  STEP  CONTINUE  LLIST NOT  STOP  STEP ! CLOSE #NOT ^ DATA 2<> READ x2 DATA " LINE  READ * LINE  READ "[F] READ CODE 2[E] READ  STEP k READ  STEP ! CLOSE #:<> READ  STEP _ CLOSE # STEP  RUN  LLIST 2[H] READ  RETURN (O RETURN  RETURN (-:[H] READ  RETURN 08D RETURN [0 BORDER  RETURN :8 RETURN @8 OUT W:[E] READ  RETURN 00<2[E] READ z*[F] READ w#"[F] READ  STEP % CLOSE # OR :[E] READ PI(IN =2[E] READ *[F] READ +"[F] READ  STEP  MERGE  STOP v CLEAR  STEP  STOP PI*[F] READ 6 STEP POINT  STOP  STEP Z READ : DRAW  RETURN ( RANDOMIZE NOT  STOP  STEP ` OUT  STEP k READ > STEP  SAVE  STOP  STEP POINT  STOP  STEP  LLIST NOT  CONTINUE  LLIST :+ RESTORE  RETURN (K:[J] FORMAT G:SQR  FORMAT [A]8▜ CIRCLE ▜ CIRCLE G>a CIRCLE  GO SUB D▜ CIRCLE ▜ CIRCLE G>a[A] CIRCLE 2Q FORMAT :[H] FORMAT G:SGN  FORMAT [A]8▜ CIRCLE G>` CIRCLE  GO SUB D THEN ' CIRCLE G>`[A] CIRCLE  RETURN  CIRCLE  RETURN PI FORMAT 2R FORMAT :SQR  FORMAT 2Q FORMAT :SGN  FORMAT  THEN ? AND 2R FORMAT NOT . RESTORE  STEP o DATA :SGN  FORMAT == RETURN  RETURN 8CODE 2SGN  FORMAT   STEP o DATA :SGN  FORMAT << RETURN 0> COPY 2SGN  FORMAT  STEP o DATA :SQR  FORMAT = <2SQR  FORMAT NOT o DATA  STEP o DATA :SQR  FORMAT < RETURN  COPY  =2SQR  FORMAT  GO TO  STEP o DATA :[J] FORMAT 2SQR  FORMAT :[H] FORMAT 2SGN  FORMAT  FLASH PI:+ RESTORE  THEN ?G:Q FORMAT [A]85(3W:R FORMAT Oz STEP ! NEW :Q FORMAT 8I NEW  >_:+ RESTORE [D]O NEW  y[C]Wy NEW  SAVE (M NEW NOT  CAT  RESTORE :R FORMAT OCODE  STEP ! NEW :Q FORMAT O NEW  y[D]_y NEW  SAVE (4 NEW NOT  DATA  RESTORE :Q FORMAT OCODE [B]O NEW  y[C]Wy NEW  SAVE ( NEW NOT  RANDOMIZE  RESTORE  STEP  NEW  STEP  NEW ~SCREEN$ w#! STEP  NEW  THEN SQR  STEP  NEW  THEN ▘NOT D NEW G STEP  NEW  STEP  NEW ~SCREEN$ w#~ INPUT  COPY w# RANDOMIZE NOT ? NEW G STEP  NEW ~ INPUT ©w#( LET ~ INPUT  COPY w# RANDOMIZE  CONTINUE G STEP  NEW ~SCREEN$ w#(~ INPUT  COPY w# RANDOMIZE ~ INPUT  RETURN w6CODE 7  CLS _<>CODE 7  CLS W<> NEW oy NEW 8▜▜ASN oy NEW  PLOT  @gy NEW USR  NEW TAN g<>~ATTR w~SCREEN$ w:+ RESTORE  THEN ?G:, RESTORE O:R FORMAT [A]8EXP 8O:Q FORMAT  STEP ! NEW :- RESTORE O:R FORMAT [B]O:+ RESTORE 8[B]GWy[C]W:+ RESTORE [C]G:Q FORMAT  STEP ! NEW :Q FORMAT  NEW <OCODE 7( THEN ?  CLS _~ATTR w$| NEW  TO [T] NEW  POKE <>} AND  o CIRCLE | VERIFY g<>:VAL  FORMAT  THEN o =[! STEP # CLEAR 0F STEP b MOVE  PRINT >/ STEP  REM  OUT W STEP  LPRINT STR$  RESTORE CODE NOT  OVER  OUT  STEP  RUN  LLIST  RETURN Y w# DRAW .VAL  THEN  INPUT NOT LN  LIST 2A FORMAT :j FORMAT 2q<> LET  LIST ! ERASE  LLIST ~PIUSR 6+>USR w<> STEP  IF  NEW  STEP  VERIFY  STEP SGN  STOP > COPY  STEP INKEY$ STOP  SAVE  NEW  STEP h MERGE  STEP O MERGE  STEP b DIM ![N] FORMAT " DATA  LLIST * LPRINT  LLIST #" LPRINT  LLIST  STEP  STOP 8 STEP d READ  STEP ~ CONTINUE ! FLASH  BORDER  STEP v BORDER 0 RETURN ( LET  RETURN ( STEP  CAT  BORDER  STEP ▟ READ ! OUT  LLIST 4~ RETURN 8 STEP NOT LN  LIST ! X LPRINT  STEP i BORDER  STEP i BORDER w# DRAW <> STEP  MERGE  STOP  STEP ] CONTINUE "AT  CONTINUE CODE 2ATTR  CONTINUE  STEP  RUN  LLIST  RETURN (G RETURN 18 PRINT  RETURN  RETURN ( LET  RETURN :0=G VERIFY 02ATTR  CONTINUE x STEP % CLOSE #*AT  CONTINUE  STEP  PAPER  BORDER 8+ STEP  RUN  LLIST  RETURN >= RETURN 08 PLOT   RETURN  RETURN (PEEK  RETURN :0W VERIFY 0G!ATTR  CONTINUE  STEP *q STEP ] CONTINUE *AT  CONTINUE  STEP  PAPER  BORDER 8PI<>>7<> STEP SGN  STOP  STEP ! CLOSE #NOT 2 CONTINUE  DIM  STEP < CONTINUE :ATTR  CONTINUE G* DATA  LLIST ~[A]8/w* STOP  LLIST ^#V STEP  CLEAR  OPEN #8' NEXT  STEP L READ :ATTR  CONTINUE G0!| FORMAT ~[A]8w* LPRINT  LLIST ~8w: OUT  LLIST  STEP ASN  MOVE PI<>>VAL > OR > DEF FN  PRINT  STEP SGN  STOP  LET  STEP % CLOSE # STEP ! CLOSE #? STEP ] CONTINUE  STEP  CONTINUE  LLIST  STEP ^ READ >7<>*f FORMAT "INKEY$ CONTINUE *h FORMAT "[U] CONTINUE * DATA  LLIST ~2POINT  CONTINUE * LPRINT  LLIST ~2FN  CONTINUE :| FORMAT 2SCREEN$  CONTINUE <>*INKEY$ CONTINUE "f FORMAT *[U] CONTINUE "h FORMAT * DATA  LLIST :POINT  CONTINUE w* LPRINT  LLIST :FN  CONTINUE w:SCREEN$  CONTINUE 2| FORMAT <> STEP k READ >2 ERASE  FORMAT  STEP ! CLOSE # TO > FORMAT G: OUT  LLIST  STEP % CLOSE # STEP ! CLOSE #/ STEP  READ  STEP ! CLOSE # >?NOT INKEY$ STOP :▝ FORMAT PI 6!VAL  FORMAT  STEP [R]©(. THEN VAL$ CODE 2▜ FORMAT >d2z FORMAT  STEP STR$ ! STEP H MOVE NOT LN  LIST  LIST  STEP  RESTORE  CONTINUE  CIRCLE  CONTINUE  STEP h MERGE NOT O MERGE >[G]NOT _ CLOSE # STEP  INK  CONTINUE  STEP ! CLOSE # STEP > DEF FN  STEP  READ  STEP b DIM * STOP  LLIST ##" STOP  LLIST  STEP h STOP 8 STEP d READ  STEP ~ CONTINUE !5 DIM  STEP v BORDER 8 STEP  CAT  BORDER  STEP ▟ READ  STEP POINT  STOP ! OUT  LLIST 4~ RETURN  PAPER  RANDOMIZE  CONTINUE  STEP ^ READ =( PAPER =( RESTORE NOT LN  LIST  STEP < CONTINUE :ATTR  CONTINUE G STEP p[A] PAPER  CONTINUE w STEP L READ  STEP  PRINT  MERGE 0:| FORMAT 2| FORMAT  OR * STOP  LLIST  STEP g OVER  STEP  OPEN # OPEN #STR$  NEXT PI<>!j FORMAT " LPRINT  LLIST !SQR  LLIST " STOP  LLIST CODE 2 OUT  LLIST <> STEP  INK  CONTINUE  STEP ! CLOSE #> CAT  STEP [O] STOP  STEP ! CLOSE #EXP  STEP ! CLOSE # STEP [S] INPUT !_p"` FOR :[M] FORMAT  AND  RETURN 8>2_ FOR >2 DEF FN  FORMAT :_ FOR < STEP  LLIST  ERASE  STEP SGN  STOP i:_ FOR  STEP % CLOSE # STEP SGN  STOP *` FOR ~#^#V#"` FOR &o STEP 4 OPEN # STEP POINT  STOP :^ FOR G:_ FOR <LN  USR  STEP  CONTINUE n STEP ! CLOSE #©>? STEP [O] STOP  STEP < CONTINUE !- FOR  STEP v BORDER 8 STEP POINT  STOP :ATTR  CONTINUE PI LINE ▜ LOAD G STEP  DEF FN  CIRCLE LN  PAPER ▜ LOAD  STEP < CONTINUE :ATTR  CONTINUE  STEP / FOR ^ RESTORE  STEP  LOAD  OPEN # LLIST 8#^#V STEP  CLEAR  OPEN # PAPER ' FOR :ATTR  CONTINUE  RETURN  CODE 2`p STEP  CAT  BORDER >F STEP [S] OVER NOT s DIM  RETURN  ! FORMAT ~ RETURN  ERASE C FOR <w- RETURN  !▗ FORMAT ~NOT  CLS o!| FORMAT ~ AND w RETURN ( RETURN 8 RETURN 0 STEP 8 FOR ~ PLOT   STEP K GO TO  STEP 8 FOR 5 STEP  CAT  BORDER NOT  OUT  DIM  RETURN ( RETURN ( RETURN ( STEP  GO TO  INVERSE  OR  STEP  VERIFY  STEP O MERGE STR$ > STEP USR  STOP >ATTR  CONTINUE h STEP % CLOSE #> STEP >= STOP CODE 2_ FOR  STEP SGN  STOP :_ FOR  AND 0 STEP [O] STOP :_ FOR  AND ` STEP INKEY$ STOP :_ FOR < RETURN 8 LLIST  STEP k READ  STEP ! CLOSE #CODE  STEP ! CLOSE #? STEP  RUN  LLIST  RETURN 0 PAPER " FOR  RETURN 4 ERASE " FOR  PRINT  STEP INKEY$ STOP  LET  VERIFY 0!} FORMAT  STEP > FOR F:b FOR wxPI(!▞ CLEAR  STEP > FOR ~ STEP / FOR ^ RESTORE  STEP  BORDER  OPEN # LLIST #^#V STEP  OPEN # OPEN # STEP  CAT  BORDER NOT s DIM  STEP ] CONTINUE 4 STEP  CONTINUE NOT  OUT  DIM PI<>=!_p STEP TAN !▝ FORMAT :ATTR  CONTINUE _<>>|>hG:ATTR  CONTINUE  STEP [O] STOP  STEP ! CLOSE # STEP 2 CONTINUE  STEP ] CONTINUE NOT ▜ LOAD  PRINT  STEP SGN  STOP  LET  STEP  READ >! X@ STEP c MERGE !@GNOT _ MERGE  STEP  VERIFY >2, RESTORE >[I]2- RESTORE >2+ RESTORE :[J] FORMAT 2Q FORMAT :[H] FORMAT  THEN ? AND 2R FORMAT  STEP . RESTORE :▘ FORMAT  THEN ? THEN ?2S FORMAT  STEP q!`@> STEP  INPUT  FOR !Q> STEP  INPUT  FOR  STEP F VERIFY >2+ RESTORE  STEP o DATA ><= STEP c FOR >!`Z[Q] STEP c MERGE !`P STEP _ MERGE  STEP & LLIST  OR  STEP  GO TO  STEP BIN  OUT STR$  PLOT  <> RESTORE W +q DRAW   PLOT   LLIST $  LOAD <> CLEAR =  SAVE $  LIST  GO SUB { GO TO  CLS <>:STR$  OVER  THEN ? INPUT © AND G:NOT  OVER O STEP SCREEN$ " INPUT  THEN ' THEN ' THEN ' PLOT  USR 6 GO TO  THEN  SAVE ~FN w<>CODE <>> COPY <> STEP z VERIFY < FORMAT  STEP z VERIFY ?<> RESTORE .▙<PEEK  LLIST USR  READ !G FOR  READ <>CODE !POINT w# DRAW  STEP  VERIFY >PEEK  STEP c FOR  STEP O MERGE :[J] FORMAT  VERIFY  BRIGHT ; GO TO 2 OUT  GO TO :[J] FORMAT  AND  BRIGHT = GO TO 2 READ  GO TO :[H] FORMAT  VERIFY " BRIGHT ; GO TO 2 REM  GO TO :[H] FORMAT  AND " BRIGHT = GO TO 2 INPUT  GO TO >2, RESTORE >PI2- RESTORE >2+ RESTORE >a2Q FORMAT >`2R FORMAT  STEP . RESTORE !' GO SUB  STEP  ERASE  GO TO !x GO SUB  STEP  ERASE  GO TO :▘ FORMAT 2S FORMAT  STEP q>2+ RESTORE NOT o DATA " PAUSE  GO TO  STEP & LLIST  OR :NOT  OVER  RETURN 8 RETURN 0:STR$  OVER  RETURN 8 RETURN Y0 STEP x GO SUB  STEP BIN  OUT STR$  OVER <>G:NOT  OVER [A] THEN ' THEN '▝ AND O`:[H] FORMAT G:STR$  OVER [A] THEN ' GO SUB D▘ VERIFY G OR  STEP SCREEN$ "STR$ <> STEP  CLEAR  GO TO |! CLS 6VAL$  RESTORE : OR  OVER  NEW  < AND  PRINT  OR  STEP  CLS STR$  LET [A] GO SUB D AND G MERGE  STEP SCREEN$ " MOVE  STEP { CLS  LLIST 6ACS NOT BIN  OUT ▝AB"# STEP  STEP PEEK ©NOT  INK [G] INVERSE | VERIFY ` RETURN  INVERSE ~" CIRCLE  RETURN  STEP  CLEAR  GO TO  OR  STEP  LPRINT ! FLASH  OVER CODE  GO SUB LEN y INPUT <2w GO SUB STR$ y NEW <2E FORMAT x THEN ? THEN ? THEN ?0< GO SUB D AND 2F FORMAT  STEP  OR  GO SUB  CIRCLE !F FORMAT 5~ RETURN 8 STEP  OR  GO SUB  CIRCLE !F FORMAT 44~ RETURN  FORMAT :F FORMAT !POINT  STEP > FOR ~PIUSR > COPY w>2 ERASE  FORMAT ! FLASH  OVER NOT  READ  STEP ` OUT  STEP  RESTORE  CONTINUE  NEXT  CLEAR  STEP h MERGE >[T] STEP  READ > STEP >= STOP  STEP  LLIST  STEP POINT  STOP  STEP FN  INPUT >[S] STEP [H] STOP >LEN G: RANDOMIZE  OVER  STEP [N] INPUT >BIN  STEP [H] STOP >2 DEF FN  FORMAT : IF  OVER < STEP  LLIST  ERASE  STEP [S] INPUT > BEEP  STEP [C] STOP : CLS  OVER  STEP  OVER  ERASE > AND  STEP [N] INPUT  STEP ! CLOSE #( STEP  DEF FN  INPUT  STEP ! CLOSE #S>) STEP [N] INPUT >o STEP [C] STOP * DRAW  OVER >2 DEF FN  FORMAT PI STEP  RESTORE  ERASE  STEP ! CLOSE #  STEP ! CLOSE #M> STOP  STEP  SAVE  STOP  STEP [S] INPUT > IF  STEP [H] STOP  STEP ! LOAD  STEP ! CLOSE # >2 OUT  LLIST  STEP  READ  STEP [S] INPUT :CODE  FORMAT PI(!INT  OVER  STEP 7 LOAD 8>WNOT _ CLOSE # STEP  CLOSE #n" TO  OVER *PEEK  OVER " DEF FN  OVER ><>_ CLOSE # STEP INKEY$ STOP  STEP POINT  STOP NOT POINT  STOP >p STEP [C] STOP : SAVE  OVER  RETURN (8 VERIFY  AND SCREEN$  STEP % CLOSE #: SAVE  OVER  THEN ? THEN ? AND FN  MERGE  STEP ! CLOSE #TAB  LOAD :PEEK  OVER >SGN 0> RUN NOT % CLOSE #:e FORMAT PI  STEP @ GO TO 0CODE 2[P] FORMAT 2FN  FORMAT  STEP u VERIFY >8CODE 2CODE  FORMAT  STEP TAN  MERGE USR 2SCREEN$  FORMAT <> STEP  LIST ©!ax RETURN  CIRCLE  RETURN  FORMAT  STEP [J]ATN  RETURN P FORMAT x RETURN >= CIRCLE  FORMAT <>*PEEK  OVER | NEW  AND *SGN  OVER lg>2 DEF FN  FORMAT PINOT  RESTORE  ERASE [A] FORMAT PEEK  # SAVE PI<>7<> STEP  IF  NEW  STEP  RESTORE  CONTINUE >PI STEP  READ !"E FORMAT > COPY  STEP INKEY$ STOP  CLS  CLEAR  STEP h MERGE :qPIUSR CODE 2 OUT  LLIST !SQR  LLIST " STOP  LLIST ![N] FORMAT " DATA  LLIST  STEP  STOP ! OUT  LLIST 4~ RETURN 8 POKE <>>2 READ p STEP  RESTORE  CONTINUE  STEP !q▙ CLEAR  STEP h MERGE  STEP  CLOSE #~ STEP 8▟> STEP [R] LIST > STEP [R] LIST > STEP >= STOP  STEP ! CLOSE # STEP ! CLOSE #>q STEP [C] STOP  STEP ! CLOSE # :_ FORMAT PI( RETURN 28x STEP INKEY$ STOP >r STEP [C] STOP  STEP ! CLOSE # !b FORMAT ~PI +VAL$  LIST TAN  LIST PEEK 0 SAVE x STEP U BEEP > STEP o LIST  RETURN ![K] LIST # OR  RESTORE n& FORMAT :VAL  FORMAT [R]} PRINT ~PI(!:▙ FORMAT PI(F THEN  SAVE >0[A] STEP [O] STOP  LET  PRINT 0> CAT  STEP _ CLOSE # STEP r LIST CODE  VERIFY  CLOSE #o LIST  LET  LLIST STR$ >=!} FORMAT  OR  RESTORE  STEP z LIST  LLIST STR$ #  PRINT :▚ FORMAT > NEXT  BRIGHT o LIST :VAL  FORMAT  NEW @ STEP h LIST }NOT F VERIFY F VERIFY  LLIST F# RESTORE PI>=x STEP % CLOSE # STEP POINT  STOP >NOT USR  STOP ~PI>= PRINT >[B] AND ` STEP [O] STOP  LET  RETURN 0r RETURN 0f> PLOT  NOT o LIST ▖▛▟ STEP SGN  STOP  STEP ! CLOSE #:NOT INKEY$ STOP  @ COPY  COPY >2 READ p STEP  RESTORE  CONTINUE >[U] STEP  READ [G] CLEAR  STEP h MERGE > STEP >= STOP  STEP ! CLOSE #> STEP INKEY$ STOP :▗ FORMAT PI(!STR$ X> STEP T MERGE  STEP ! CLOSE #k STEP POINT  STOP :VAL  FORMAT  THEN o(> STEP 'z STEP _ CLOSE #CODE 2 OUT  LLIST !j FORMAT " LPRINT  LLIST  STEP h STOP  CLOSE #POINT  STOP ! OUT  LLIST 4~ RETURN 8 LET <> LET  FORMAT  POKE o CHTGO[G]RNM[C]TD[B]A[G]NT[J]YSYS[M]MP[O] ▛RKET INKEY$SD▖T[O]AG[O]CULTU[E]L[O]CH A[G][E] PO[J] ▛LY UNIT VIEW [K][L][H]TY[L]CHYFEUDMUL[H]-[S]▟CT[B][J]EXP  CLS MUN[N]TC[P]F[I][A]ACYDEMOC[E]CYC[J]P[J][B]E  THEN [B]ESHIPP RETURN DUCT [F]S[A]HUM[L] COL[P]IHYP[A]SPASH[J]T  LINE [R]▟ THEN [L]ABS  -- ABS   LINE  ? SAVE C[J]IOLIS  DANR* LIGHT YES[M]CH.▝[G]LCASH ▚z[R]TT LO THEN j JAMM[I]R[L]STVAL  OF SEGOE[K]IPFOOD[M]X[H]L▞[E]▟OAC[H][G]SS[F][G]SLI[K][J]/W▞LUXU[O]▞NCO[H]CS INPUT S▛CH[A]YAFI▙MSFURSM[A]SGOLDPL[B]UMM- THEN [P]▞ PAUSE ©S NOT FOUND CRLD▞T RETURN Y [L]D  CLS PUT[A] VAD[I]* SAVE z 1 LOAD [E]NK: I[C]  PAUSE  INPUT DO YOU W[L]T TO BUY  RANDOMIZE  ?SUP[A] PRINT SQR HUM[L]OIDMAYDAY* COB[E] MK4ATTR [E]▟▖COM CLS M[L]D[A]  GO TO [I]ROVAL$   VAL INT     VAL$  INKEY$ F[J] SA▝FR[P]T▙▝FT[O]GHTyLOWc DRAW *EXT[E] PULSESQR [D]AMSQR FUELM[N]SI▝ READ  DEF FN  BAYE.C.M.RNDfgSfhSi SCOOPS▞CAPE PODyBOMByVAL$ DOCKG  INPUT z ABS MILITYSQR MGSQR  CLS G j[C][A]GY GA[F]C[H]Cs ONAAKG DEVI DRAW  P▙S[C]T RNDABS  RNDI[M]MLL SAVE  LOAD  [P]  CAT M[C]T:C▝[L]OFF[C]D[A]FUGI[H][G]HM▝SSMO THEN LY AT ATTR ABO[G] ATTR  CLS PET[C]TD[L] RETURN ▖DEADLY---- E L I T E ----P▙S[C]Ti ▝AK*VAL  LINE nLEN P PAUSE SS  MOVE A DIM , [K] GAME O IF RVAL  STR$ S OF  AW INPUT D COS   STOP EIR HIGHE OVER  H OUT  INK R -[D]-LEN  OPEN #LI IF   LPRINT NGSIN PRO MOVE  POKE *SHIP BO INPUT DBIN INKEY$FN  PIR PRINT E[B] >= COS  HA IF  THEN D  INK R LI IF S* OPEN # STOP  COPY K COS , [K]*M LIST  POKE  DATA  LIFE VAL  LINE ABS INKEY$ CLOSE #S*VAL  LINE POINT A CLOSE # PI*[H] MOVE ECI DATA  OR TAN VAL [D] CLOSE #SCHR$  GO TO NOT [D]USR  PRINT   AS FORMAT BA PAPER [C] STOP EIR PISQR VAL$ [D]USR  PRINT   TO  OPEN #[M] [E] CAT  VERIFY  STOP EY SHOW  READ  M POKE CY[D]SUN LINE GONOT  READ VA*[N]S*GROSS INT IV FLASH YECO READ MY RESTORE G DATA   OVER  PRINT  GO TO  SAVE  CLS NGPL COPY  INVERSE  F CLEAR   STOP E  STOP [I] W COPY TBIN  OPEN #     FORMAT B SAVE  IF  [K]  OPEN #  [C]A ISI COPY  DRAW TAKE[P] THEN FN  DEF FN [P] [M]SGN  DEF FN  OPEN #W BRIGHT L COS LIEUTEN COPY TCAPTA LIST  LOAD J CLEAR COL OUT EL BORDER N POKE  DATA  ( LIST   PAUSE  PAPER R IF )BY  LIST VASI OUT    PAUSE FU BORDER  GO SUB   PAUSE SI OVER NOT [H]FIGHTNOT S POKE VI DIM TAN INT [Q]SQR  THEN FN  FROM [D]POINT [B]S VERIFY  GO TO   FLASH S .  COPY D Y INK  OPEN # OPEN #CHR$ COS   LIST TE PAUSE  OVER BIN  DEF FN INT [R]SQR PROVIDE POINT [B]SWITH  PAPER  GO SUB  FORMAT  VERIFY INT [S]SQR T SAVE N MOVE  CLEAR T SGN <>[D]ABS [B]S VERIFY INT [T]SQR  PAPER  INPUT CHSIN VAL$ HIDD PLOT    CLOSE #'S BA PAPER  NE INPUT INKEY$ VERIFY VAL  COS CHR$ DEMO REM LIZI DRAW LEN VAL  CLOSE # PIHAD  OVER OPP DRAW ,BUT IF LINE  FLASH [C]E IF R ?..VAL  COS CHR$ PROMOTBIN <>[D] SAVE NK OF LEN COS R OR : OPEN #<> DES DIM NTOC AND PIBIN  MOVE A DIM   OVER  PRINT I OUT   LIST HA REM T COPY T  INPUT E  LIST G  DRAW   M[I]SI OUT CUB PAUSE AKNAME?  TO  [I]  SA IF . DO MERGE  DRAW  (Y/N)?l JAMM POKE  A SP NEW   STOP  INPUT G OUT CKLEN  OPEN # GOOD LU MERGE *POPUL PRINT I OUT   @@@+ NEXT G LET  PRINT 2[N]PI><>2 RETURN  RETURN x GO SUB s TO  SAVE 1 @ STEP  OUT INKEY$1A>2 RETURN  RETURN  CLS NOT G[O] STEP t STEP  FORMAT ▚ STEP PEEK ©:▚<>CHR$ 8[N] GO SUB s RANDOMIZE  NEXT ! LIST @ FORMAT  COPY 0 GO SUB VAL 1 A STEP f[O] NEXT ! FORMAT  COPY 0 LIST @ GO SUB VAL 1A CLS <>!"E FORMAT <>2[G][M]45 THEN  RETURN ( THEN v>= INVERSE  THEN &N>= PRINT  STEP [O]z LET <> PRINT *RTAN #q#r#s#q#z INPUT w#{ INPUT w LET <> GO SUB [STR$ POINT zS_: READ p THEN G:NOT POINT ( INPUT O<> INVERSE !Ya:TAN [M] INVERSE  THEN &F( INVERSE V"( INVERSE PEEK %7>= INK  COPY  INVERSE  BORDER PI<> INVERSE  THEN &FCHR$ 7RND RESTORE *RTAN ~ LLIST  NEW  FORMAT  INPUT  FORMAT USR  CLEAR ~& RETURN (/ NEW USR  CLEAR w"<<>CODE  INVERSE w"<<><<>2 INVERSE ~!VTAN 6:_ FORMAT  RETURN 88 THEN  VERIFY #XTAN Op GO SUB VAL ! COPY <>:CODE  FORMAT  RETURN (:VTAN  NEW   INVERSE  THEN &^USR  INVERSE  THEN ! VERIFY <> STEP <> RANDOMIZE NOT d}7 PRINT  LET  NEW >= RESTORE !C`G MERGE '< RETURN 8 IF  MOVE ~PI++~ LLIST >=0PI>=H<>O INVERSE F% INVERSE  THEN &F j INVERSE ~ PI>=*RTAN ~_ THEN F#~>= STEP  BORDER  RANDOMIZE USR ~ STEP  BORDER  RANDOMIZE USR #~ NEW ( STEP  CONTINUE  RANDOMIZE (++ THEN F<>w THEN c>= THEN s>= RESTORE !aTAN ~ NEW  LIST  RETURN [A](  MERGE  MOVE  PAUSE  LLIST  THEN S  THEN ~ ( STEP [J]ATN [Q] CODE <> LLIST ~ NEW VAL wH<> CLEAR  RESTORE  CLEAR *RTAN  CLEAR ~ NEW  :VTAN  THEN W( CLEAR ~ NEW  CLEAR ACS ( CLEAR  THEN N 7 CLEAR  LLIST  FORMAT !INT  IF :A FORMAT PI7( STEP [J]ATN  RETURN  0 THEN  RETURN  PRINT  THEN > THEN  INPUT  LET  INVERSE  THEN   OVER <> INVERSE  RESTORE  STEP 6EXP  LLIST USR } RETURN H y RETURN  8[R] y AND Oy=>= INVERSE  RESTORE  STEP >=~ INVERSE  THEN VAL$  INVERSE  LLIST CODE <>▝STR$ CHR$  STOP  READ  NEXT  POKE ACS w<>_!W GO SUB PI(! RUN  IF ~ NEW G~ NEW  SAVE ! IF FN w# THEN / IF Cw# DRAW ! RUN  IF ~ NEW  SAVE 2 IF FN <>>CODE : READ p RETURN :▚ FORMAT  RETURN  FORMAT  RETURN  CIRCLE  STEP  CLS *▚:▚G>©SGN 8▗ THEN 8[E][E]O RETURN 0 RETURN  SAVE 8>HABS 0CODE <>>@ THEN 0[F][F] STEP VAL " THEN  DRAW O INVERSE  RESTORE  INVERSE ! IF FN CODE  PRINT |% NEW  TO O▗| RETURN `8 RETURN  FORMAT 05 RETURN USR 81 RESTORE  INVERSE ~ THEN  CLS ▜o>[B]GCODE ) DRAW B FOR  READ  THEN 8+ STEP  CLS #z STEP  CLS  THEN 8#{ STEP  CLS + MOVE  LET  THEN z < INVERSE #SQR  CODE  THEN  IF  INVERSE + INVERSE += INKEY$ INVERSE  LLIST <> CLEAR  CLEAR ~ NEW ©W INVERSE ~ NEW © RETURN 8INT 8USR  INVERSE ~ CLEAR PEEK 8 PLOT  <>CODE <>CODE <> SAVE @ COPY CHR$ v CLEAR : DRAW  NEW W:(A= INVERSE ~# RETURN ▗>@ >©ACS w<>!z LPRINT 6NOT  BEEP  FORMAT c DRAW =: DRAW W( THEN  THEN  THEN " THEN  THEN  THEN ! DRAW  THEN v(! DRAW  THEN  AND  THEN c(z NEW  THEN 'Oz NEW  THEN ?LEN W THEN k(z NEW Gz NEW O THEN 9 THEN 'LEN  NEW VAL W! DRAW :, THEN PEEK , THEN [G] THEN PEEK --~ NEW  LIST SIN w! DRAW  THEN v>= THEN ACS : DRAW  NEW >=> RETURN 2 DRAW <> OR  PRINT >[D] THEN ' THEN ' THEN '▘=G THEN  !A CLEAR 0$o~2 DRAW !X COPY }o~#F! DRAW o~VAL w LET STR$ <>:b FORMAT  NEW @USR  STEP z VERIFY <:[H] FORMAT < FORMAT  INPUT ]USR :[J] FORMAT  INPUT <>> INPUT 2 CLEAR (> INVERSE ._:qPI( INVERSE !INT CODE W INVERSE 2q<>:▝ FORMAT PI7USR  RESTORE  MERGE  STEP @ GO TO  MOVE  LLIST  FORMAT [N]:b FORMAT  RETURN ▗ CIRCLE  NEW ▙ INPUT ▚USR 7<> P01QA COPY  COPY LO92WSZMKI83EDXNJU74RFCBHY65TGVCODE 2 DRAW =2 DRAW  RETURN © THEN  GO SUB x NEW  INPUT  BRIGHT INT  DRAW   RANDOMIZE NOT  DRAW !a1 y! @@ABOUSEITILETSTONLONUTHNOALLEXEGEZACEBISOUSESARMAINDIREA?ERATENBERALAVETIEDORQUANTEISRIONLEN B:RRT[C]p INK  LET  LIST  RETURN  RETURN  RETURN : READ p RETURN  FORMAT : DRAW G: COPY  THEN @ + THEN H  THEN Y(/<PI GO SUB R THEN t(R!NOT z RETURN | NEW ©ASN  ! COPY NOT z RETURN  THEN |(NOT c RETURN  THEN H 5| NEW ©ASN  ! COPY NOT z RETURN  THEN |( THEN d(PI GO SUB RNOT z RETURN  THEN Q(!NOT z RETURN  COPY PI GO SUB R THEN t(!" COPY * COPY  THEN P + THEN X  THEN Y(/$PI GO SUB R THEN t(R!NOT  CONTINUE  RETURN | NEW ©ASN  !fNOT  CONTINUE  RETURN  THEN |(NOT  MOVE  RETURN  THEN X 5| NEW ©ASN  !fNOT  CONTINUE  RETURN  THEN |( THEN d(PI GO SUB RNOT  CONTINUE  RETURN  THEN Q(!NOT  CONTINUE  RETURN fPI GO SUB R THEN t(!" COPY * COPY [Q] THEN `  THEN h($PI GO SUB R% THEN h NOT  COPY 0!NOT  COPY  THEN l(PI GO SUB R" COPY CODE 2 DRAW <> NEXT  GO SUB sV COPY 1 @ RESTORE  MERGE  OR  PRINT  INVERSE  RESTORE  CLEAR  RESTORE  STEP i CLEAR  STEP  RETURN  STEP %q CLEAR  LLIST  INVERSE  LLIST  LET STR$  MOVE  LLIST  GO SUB {V COPY  CLS <>> CLEAR  GO SUB G GO SUB ^<> GO SUB V<>A@@    @@ <DH RETURN IN ▗ CLEAR > COPY j CLOSE #  COPY BbRJFB<BBBB<K MERGE  SAVE ] SAVE ]ATTR  MERGE <= CLS 5ATTR [S][S] SAVE ] SAVE ][ CLOSE #@[N]`[O]LN [M] IF tCODE 2H MERGE ><>2k READ  STEP 9>=>POINT 2H MERGE >>2k READ  PRINT  STEP ! CLOSE # STEP u INK !o`p`p GO SUB VAL  LET <>!XX COPY u GO SUB VAL <> NEXT !INT  TO "6 COPY ! CLEAR  TO " OR  TO ">= TO >(29<>2=<>>CODE 2<>>2f<> STEP  GO SUB  LINE  ! FLASH  TO " OR  TO >2=<>! @[I] STEP  CAT  LINE :m<>ATN  ! BORDER  TO ">= TO >29<>2f<>2<>/!P▝@O~$ STEP X THEN  SAVE { AND _0z AND W THEN b({ RETURN 8@ AND _&P,  CIRCLE !USR P STEP  CAT  LINE !Q TO " VERIFY  TO !x THEN   STEP  CONTINUE  THEN ! XF` STEP  DRAW  THEN  STEP  DRAW  THEN >D! Xww.@wwww!USR ZG@ STEP  DRAW  THEN !X RESTORE _CODE = DRAW  DRAW  THEN >U2R TO 2SQR  TO >2NOT  TO >2_ TO ! LINE  THEN "b TO !STR$ R"e TO  LLIST  CLS  STEP BIN  LINE  RETURN 1(j RETURN 2(d RETURN 3 LINE 9>= RETURN 4 LINE D INK  RETURN   LINE  CLS <> COPY  RETURN S( RETURN X( RETURN M( LIST  RETURN N  DEF FN  LINE { RETURN H0BIN _E STEP  DRAW  THEN  NEW 0( RETURN ({ NEW  AND o NEW  AND Xg} NEW o_ RESTORE  STEP  DRAW  THEN  LLIST [B]] NEXT :m<>KG OR  STEP  GO SUB  LINE :m<>STR$ LN CHR$ 9>= INVERSE ! LIST G INVERSE  INVERSE ~=( SAVE >B INVERSE PEEK ( LET >f INVERSE VAL$  INVERSE ACS   BORDER   DATA  INVERSE ^o` RESTORE  STEP  CAT  STEP  LLIST T FORMAT  MERGE f OR  GO SUB VAL STR$  LLIST 2 ERASE  GO SUB VAL !i CLEAR "6 COPY <>! @ STEP  CAT  LINE ! XF STEP  DRAW  THEN O STEP  DRAW  THEN F STEP  DRAW  THEN O STEP  DRAW  THEN !LN  THEN # NEXT  STEP  CONTINUE  THEN  CLS !ASN Q  STEP  DRAW  THEN :R TO ATN   IF >B2# TO ! RETURN  TO " VERIFY  TO >T2 STEP !ASN Q STEP BIN  LINE > RETURN  FLASH  RETURN 0= RETURN  LINE  DEF FN w" TO } VERIFY ▝2" TO  VERIFY ; PRINT  DEF FN SGN o VERIFY a2 STEP x RESTORE vv MERGE  STEP  TO  MOVE ! TO 5!" TO 5▘SQR   GO SUB  LLIST  LET 0SGN 6 LN > LOAD  FLASH  RETURN  PAPER SQR >=~ RETURN  }( RETURN SGN ( RETURN ACS  DEF FN  COPY o" TO  VERIFY ▝2" TO  AND  7 PRINT  COPY  COPY ACS vvv: DRAW <( RUN =<> RESTORE  s,  CLS  LLIST $| NEW  TO  READ  LINE  GO SUB <>} AND  o CIRCLE | VERIFY g<> STEP ,>=!H RESTORE  STEP  STEP >02m<> INVERSE  LLIST J.CODE  INVERSE ACS (:=(+>B INVERSE PEEK ($>f INVERSE VAL$  INVERSE ACS  X&P INVERSE ~ VERIFY   VERIFY ; INVERSE ~8> w INVERSE #$ GO TO , INVERSE } RETURN VAL >= PAUSE  THEN CODE <>} VERIFY 2m<> INVERSE "  DEF FN * RESTORE P|ASN <> RESTORE  MERGE  OR  STEP j THEN ~# IF STR$  MOVE  LLIST <> VERIFY  O▜▝&o)[O] DEF FN <>1-LOAD 2-SAVE 3-CATALOGUE 4-DEMO  REMOVE WRITE PROTECT, PLEASE  COMMANDER'S NAME: CAT  FLASH *[F] POKE [O]9LN # GO SUB L RUN &[B] FORMAT  IF E$_NIHSb[N]94 COPY BB" TO  GO SUB S" TO  OR > STEP  TO STR$  RUN <>q# DRAW <>[C][J]POINT [H] PRINT ! TO on"- TO !~#" TO  VERIFY  O▜8' STEP n THEN @ GO SUB S" TO ~NOT #z NEW  { AND  _z VERIFY W CONTINUE  LET <> LET  RETURN  LLIST  9CODE 2R TO STR$ <>>U2R TO * STEP #6 FORMAT !#"b TO 7 GO SUB B" TO  FOR 7"e TO  GO SUB B"" TO y OR  STEP  TO =  IF STR$  THEN Q  GO SUB C_ TO <>CODE [N]ATN ([K]>[G] NEW  THEN V( PLOT   THEN v( PLOT   ▚ NEW `O~ NEW LEN  THEN f( LLIST  PLOT   INVERSE >U2SQR  TO 0> STEP  STEP !NOT  TO 5 PAUSE  MERGE  TO CODE 2SQR  TO  STEP Q TO NOT i CLEAR  PRINT !© THEN &B STEP  GO SUB  TO  LET <>!x THEN B" TO  GO SUB S" TO  OR  STEP  TO STR$  RANDOMIZE <>>2 COPY  TO !@G>w[P],w,6<> RESTORE  MERGE  OR !( STEP QA GO SUB VAL NOT Q NEXT  STEP QSTR$  MOVE  LLIST  CLEAR  RESTORE  GO SUB V CLEAR !:/ STEP = CLEAR  LLIST  STEP Q GO SUB ^ CLS v<> CLEAR ©> GO SUB y!/ LPRINT ~w#xLEN   NEXT  CLEAR ©> GO SUB y<>  STEP  CONTINUE  THEN >IN  FLASH  RETURN 8 RANDOMIZE ! X@ STEP  DRAW  THEN :P STEP  STEP [K] STEP STR$  THEN `(> STEP [R] STEP :P STEP  STEP [K] STEP x NEW © MOVE <>> RESTORE !W/ READ NOT /=* POKE ? GO TO ? DATA  RESTORE !3? OVER !o` GO SUB [▝ INK  RESTORE LEN  STEP  STEP  INVERSE " DEF FN NOT  STEP P STEP ><0>,z STEP [K] STEP P{z STEP POINT  STEP  RESTORE  STEP LEN  STEP  STEP < STEP  LLIST   GO TO <> NEXT  STEP  GO SUB  LINE  LINE 9>=!P0 STEP  DRAW  THEN !ASN Q6E,p,p,6f,p#6, GO SUB [ LLIST Ps,r, PRINT -#p! DATA P4* RESTORE P+" RESTORE Pb{< NEW  $o" LLIST P GO SUB S[A] DEF FN :! DEF FN g VERIFY H_j RESTORE  MERGE  STEP  CIRCLE  STEP  MOVE  LLIST  LET  $ STEP  CIRCLE  STEP !P STEP  CIRCLE  STEP !ASN QT FORMAT  MERGE  GO SUB VAL  LLIST  STEP  CIRCLE  STEP !T FORMAT fNOT  PRINT <>88888llHl RETURN ll RETURN l AND 8l8 AND  NEW  GO TO 0n DEF FN | VERIFY  INPUT INT  AND |8p8888 LPRINT ppp LIST  LPRINT T8|8T00 DRAW 0088p||pp| DEF FN  OVER  PLOT   NEW |8x SAVE xx DRAW  DRAW | SAVE  LPRINT  RETURN  DRAW | DRAW >n RETURN  DRAW  INPUT  INPUT | RETURN | INPUT | INPUT  INPUT || INPUT  INPUT ~``000`|| LPRINT p8p LPRINT  DRAW <8 LIST fmmo| INPUT  INPUT  RETURN  INPUT  INPUT  DRAW  INPUT  DRAW  INPUT  INPUT  DRAW ~ LPRINT  LPRINT  LPRINT  LPRINT ~ DRAW  INPUT  INPUT  INPUT  INPUT  DRAW ~ LPRINT  SAVE  LPRINT  LPRINT ~~ LPRINT  LPRINT  SAVE  LPRINT  LPRINT ~ LPRINT  LPRINT  INPUT  INPUT | INPUT  INPUT  RETURN  INPUT  INPUT  INPUT  DRAW xxxx DRAW > GO TO  SAVE  LIST  SAVE  GO TO  NEW  LPRINT  LPRINT  LPRINT  LPRINT  LPRINT ~ AND  INPUT  RETURN  VERIFY  INPUT  INPUT  DEF FN  INPUT  PLOT   OVER  INPUT  NEW | INPUT  INPUT  INPUT  INPUT | DRAW  INPUT  INPUT  DRAW  LPRINT  LPRINT | INPUT  NEW  REM  DATA z DRAW  INPUT  INPUT  DRAW  DRAW  INPUT ~ LIST | OVER | DRAW xxxxx INPUT  INPUT  INPUT  INPUT  INPUT | INPUT  INPUT  INPUT l8 INPUT  INPUT  INPUT  VERIFY  RETURN l INPUT |88| INPUT  INPUT  INPUT l888 RETURN <x LIST  RETURN [ PRINT =ATTR TFN ;OVAL$  DEF FN  PRINT FN [N]COS CODE ▖POINT ATTR  THEN IN ]G LET  NEW  BEEP ©O.[L]AT ;~[C]FN POINT w{TAB  INVERSE  LLIST #BIN ▙`!i CLEAR "6 COPY !`X[Q] STEP  DRAW  THEN  STEP  DRAW  THEN  STEP  DRAW  THEN !aT FORMAT f GO SUB VAL *▝ INK , THEN e(.$ FOR !H RESTORE  MERGE  STEP  CAT  STEP  MOVE $ THEN c(| RETURN P  GO SUB  LLIST >= MERGE  GO SUB VAL  MOVE  MERGE !PEEK  FORMAT ▚,VAL$ ,VAL$ ATTR zLN   NEXT <>TitAn 12.94ROBOT     <><>*&[B]▟3#BB. RETURN ~ RETURN  DRAW  DRAW  RETURN  CLEAR R ERASE B[K]ABS z:;jG& 8C LIST 3[I]ACS  IF ▚NOT ,>=><>2k READ >POINT 2H MERGE >>2k READ  STEP ! CLOSE # STEP u INK !o`p`p GO SUB VAL CODE <<>> OPEN # RETURN  NEXT !T FORMAT 2 ERASE f GO SUB VAL !VAL$  NEW "6 COPY !G"r CLEAR &"v CLEAR !/"x CLEAR ! LINE >= SAVE ^ GO SUB VAL ▜©=[N] VERIFY >=VAL$  NEW R GO SUB VAL ! INK "vu!BIN >= INK  FORMAT <>q# DRAW ! INK q! STEP  NEW "▟ LOAD "PEEK  LIST ! ERASE  NEW "p[E]!TAN  NEW "u!ABS  NEW "# ERASE !CHR$  NEW "" COPY  MERGE ", CLEAR "SIN ©> OPEN # RETURN <>2z LPRINT NOT [O]s:G:G/ INVERSE ~" STEP  LPRINT  NEW NOT i CLEAR  STEP  STEP PEEK ©NOT  INK [G]_<> STEP z VERIFY < FORMAT  STEP z VERIFY ?<>>[G]NOT _ CLOSE #2A FORMAT :j FORMAT 2q<>NOT  READ  NEW ! NEXT  NEW " LLIST  NEW  GO SUB s BRIGHT  NEW 1 LOAD NOT [F] BORDER  STEP  REM  GO SUB s BRIGHT  NEW  GO SUB { OVER  NEW  CLEAR  LLIST  INVERSE  LLIST  LLIST  MOVE STR$  LET NOT  BORDER <> STEP N GO TO (!| FORMAT ~.▖INKEY$( INVERSE  THEN [O] INVERSE  THEN V  INVERSE  THEN N( INVERSE  THEN ▚ INVERSE  THEN  DEF FN  PRINT > RETURN  FLASH  RETURN  THEN O  LET  PRINT ! REM " BORDER  THEN g 1 LOAD >2z LPRINT :q ERASE  IF  BORDER NOT  DEF FN  BORDER  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  GO SUB s OVER  NEW  GO SUB { BRIGHT  NEW <> CLEAR n CLEAR f THEN SGN  STEP  BORDER  FORMAT  CLEAR N CLEAR F THEN LN  STEP  BORDER  FORMAT  CLEAR N CLEAR F THEN LN  STEP  BORDER <> RESTORE PI GO SUB R LLIST <> INVERSE !G STEP CODE  GO TO >2z LPRINT  OPEN # RETURN  STEP [C] GO TO  STEP CODE  GO TO  STEP [C] GO TO  INVERSE 6 STEP  BORDER  POKE  STEP CODE  GO TO !T FORMAT 2 ERASE f GO SUB VAL  INVERSE 6 STEP  BORDER  RUN  STEP  CONTINUE ▖ CLEAR !q STEP i BORDER 0 CLEAR !H`$ CLEAR ~"PI( STEP i BORDER 8 STEP < CONTINUE  STEP  BORDER  STEP 5 REM  CLOSE # STEP  CONTINUE  STEP Q CONTINUE  STEP  BORDER  STEP 5 REM  CLEAR !H` CLEAR ~"PI( REM $ STEP i BORDER 8[S] LPRINT :z LPRINT PIUSR 1 LOAD NOT [M] BORDER  STEP  CONTINUE  LLIST  STEP ^ READ >7<> CLEAR !q▖ STEP i BORDER 0;:j`PI(5 CLEAR !H` COPY  CLEAR ~"PI # CLEAR !qS!- STEP i BORDER  LIST  COPY 8 DRAW  CLEAR ~& RETURN   THEN # THEN # GO SUB _8 STEP  NEW  DIM  CLEAR  THEN ~(ACS  NEW ©  STEP  RANDOMIZE  DIM <>:[C] DIM PI(=2[C] DIM E:9 DIM PI >29 DIM 3=29 DIM  CLEAR ~[T] CLEAR ACS [S] CLEAR F THEN LN VAL (: DATA p NEW © RETURN  FORMAT  CLEAR ~ NEW  RETURN  CLEAR ACS  NEW  COPY  CLEAR F THEN LN VAL  LINE c DIM NOT  DIM <>>2[C] DIM  CLEAR ~[T] CLEAR ACS [S] CLEAR F THEN LN VAL BIN n DIM : RESTORE p NEW ~>= STEP c DIM <>: DATA p THEN ©(  INVERSE  THEN  AND > COPY 2 REM  STEP  MOVE  DIM  CLEAR ~ CLEAR VAL$ 8 INVERSE  THEN [O] INVERSE  THEN  VERIFY <> INVERSE  THEN [G] INVERSE  THEN  OVER <>2 CLEAR  THEN ~USR  INVERSE  THEN VUSR  INVERSE  THEN NUSR  STEP i BORDER 0 STEP [J]ATN  NEW  TO  INVERSE  DIM % CLEAR  THEN ~( CAT BIN NOT  DIM  CLEAR  THEN ~( INVERSE  THEN  AND > COPY 2 REM  STEP  MOVE  DIM  CLEAR  THEN ~  INVERSE  THEN ▙ INVERSE  THEN  VERIFY <> INVERSE  THEN [G] INVERSE  THEN  DEF FN <>!4 REM 5 : DRAW p RETURN [Q]( INVERSE  THEN  DEF FN  STEP " GO TO  RETURN 8! IF p~ RETURN [Q] . PLOT  ~ RETURN 28:!Y NEW 8 RETURN >=:!Y NEW 8 RETURN USR  INVERSE  THEN  NEW <> CLEAR ~ NEW ©>= CLEAR ~ NEW  DRAW >= INVERSE  THEN ▚ INVERSE  THEN  DEF FN <> INVERSE  THEN  AND  INVERSE  THEN ▙: NEW p RETURN  CIRCLE  INVERSE  THEN  OVER <>:j`PI( STEP  INVERSE  DIM  INVERSE  THEN  OVER  INVERSE  THEN ▙ INVERSE  THEN  VERIFY <>! BORDER " BORDER  STEP  REM  STEP 0 BORDER  PAUSE !G RETURN © THEN  GO SUB x NEW /w#  POKE 6<> STEP  CONTINUE  STEP [M] FOR 8E STEP R FOR * REM +" REM |ASN USR !d" REM : READ p RETURN 0 GO SUB _ NEW =(=( NEW   INVERSE  THEN  DEF FN <> INVERSE  THEN  AND <><>!," REM  INVERSE  THEN  DEF FN <> INVERSE  THEN  AND <>d STEP  CONTINUE  STEP  BORDER 2 STEP [C] GO TO  INVERSE  THEN  AND  STEP  BORDER  POKE  INVERSE  THEN ▚ STEP [C] GO TO  INVERSE  THEN  DEF FN  STEP  BORDER  POKE  STEP CODE  GO TO  OR  STEP [C] GO TO  INVERSE  THEN  AND  STEP  BORDER STR$  PAUSE ! POKE " REM  INVERSE  THEN  AND  CLEAR ~ NEW ©  STEP i BORDER 0 STEP  INVERSE  DIM  INVERSE  THEN ▚ INVERSE  THEN  DEF FN  INVERSE  THEN V   INVERSE  THEN  AND  INVERSE  THEN ▙ STEP POINT  FOR  FORMAT  STEP  CONTINUE  STEP [D] DIM  INVERSE  THEN [O] STEP j GO TO ( INVERSE  THEN  VERIFY  STEP  BORDER  STEP e CONTINUE  CLEAR ~ CLEAR ACS  NEW © CLEAR ACS  CLEAR ACS CHR$ SQR  REM  CLEAR ~ CLEAR ACS  NEW USR ( INVERSE ~ RETURN 8STR$ NOT SQR  REM  CLEAR ~"PI(LN 2 STEP i BORDER 0 CLEAR  THEN ~  INVERSE  THEN  AND NOT  PRINT  REM :▖ FORMAT !| FORMAT INKEY$>= STEP } FOR  STEP  CONTINUE  STEP " GO TO ( RETURN  FORMAT : GO SUB p RETURN @ CIRCLE  STEP  LINE  FOR  CIRCLE  STEP e CONTINUE  STEP : DIM  STEP  BORDER  LPRINT  CLEAR *[K] FOR ' CLEAR  CLEAR  RESTORE  LLIST aPI GO SUB R  CLEAR !o` CLEAR "[K] FOR <>H` STEP } FOR  STEP POINT  FOR  CIRCLE CODE  PLOT  <> CLEAR ~& RETURN >== RETURN ? FORMAT  STEP  DIM  FOR PI THEN ©>= THEN w( THEN O  CLEAR  THEN !V>=7<> CLEAR ~& RETURN ( RUN  STEP  DIM  FOR 7 THEN ©>= THEN wUSR 7 THEN g>=PI<> OR  MERGE  RESTORE  CLEAR  RESTORE  STEP [P] GO TO  !WTAN  LLIST  FOR ~ OR STR$  PRINT ! LPRINT  FOR  OUT [P]PI CLEAR # INK  COPY  CLEAR  CLEAR | CLEAR ASN   POKE ~ CLEAR  LLIST  LLIST  MOVE STR$ <> CLEAR  RESTORE  OR  MERGE  CLEAR !H`' CLEAR  STEP POINT  FOR 0w( CLEAR  THEN !V( DIM yPI MOVE STR$  CLEAR  LLIST <> OR  RESTORE  MERGE !WTAN ~ STEP  CLOSE # FOR 8 PLOT  y MOVE  LLIST STR$ PI<> CLEAR  RESTORE  CLEAR !H`' CLEAR  CLEAR ~&=  CLEAR ~%PI  STEP  DIM  FOR 0 DIM y CLEAR  LLIST PI<> OR !Gq# DRAW STR$ <> RESTORE *V COPY  MERGE ^#V RETURN v MOVE  LLIST <><>d OR  STEP 0 BORDER STR$  RANDOMIZE  STEP <= GO TO  RETURN PI GO SUB B  RANDOMIZE  INVERSE  RESTORE  INVERSE !/ GO SUB / GO SUB !_@O RETURN  COPY (K THEN 0> OR  RESTORE  MERGE  INVERSE ^!* GO SUB N MOVE  LLIST  RESTORE  OR ~POINT w$ INVERSE ~PI(=(=(= 7 THEN  THEN 97 THEN PI THEN  PAPER STR$  LLIST  INVERSE #STR$ , &HATN AT  INVERSE  LLIST <> COPY  COPY  COPY GwpBtpB'0R%Pw'p RUN KTzWzUJ RUN K COPY RNDRA  @[S]▝ @ @▝@@$E0USR USR ©0c8`USR d~?| LIST USR ` LPRINT  SAVE c COPY  DRAW © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY !▟ FORMAT ~PI>=4<>©@@   RETURN 0USR ©©©?? RETURN  RETURN  RETURN  DRAW  DRAW  SAVE  LIST USR ~BBB~ COPY USR  LIST  SAVE  DRAW  DRAW  RETURN  RETURN     :qPIUSR NOT ax>  MOVE  STEP F MERGE <>!= RETURN  >= RETURN 08 RETURN ; CIRCLE  RETURN A8 RETURN [ CIRCLE  RETURN a8 RETURN { CIRCLE !p]<> PRINT  VERIFY  BRIGHT  TO TAN  MERGE (><>2p2j OVER ( LET NOT % CLOSE # LET >RNOT _ CLOSE #j▜( OR  MERGE  RESTORE O:ACS +w(T] GO SUB LN  LLIST  MOVE STR$ :(▚PI<>!z LPRINT 456(*{ LPRINT #"{ LPRINT NOT >▝~B COPY : FORMAT  NEW  RETURN  ?:▝ FORMAT .CODE ACS  2.▚~#ACS (': FORMAT PI(.d THEN  RETURN ":b FORMAT  RETURN  8.dINKEY$(.VAL ~[U]w>▝2b FORMAT 2 FORMAT .d THEN  RETURN .<><> THEN F  RANDOMIZE 5 PLOT   STEP [I]LN ! FORMAT : FORMAT  NEW  RETURN (:VAL  FORMAT  NEW  (:b FORMAT  RETURN ▗8 STEP STR$ .VAL  THEN VAL$ !<c5:▚ FORMAT  NEW >=:{ FORMAT PI>=> CLEAR  FLASH  RETURN / NEW >=4.{5#4!jc INVERSE u# INVERSE t$CODE <> STEP [M] STEP A[L] STEP +▟(# STEP  RETURN  RETURN  FORMAT  STEP z VERIFY 8]:e FORMAT PI>=:CODE  FORMAT  RETURN >=:_ FORMAT  RETURN ©0I<> STEP ▗ CIRCLE  RETURN  FORMAT  RETURN >=04 INVERSE ~IPIUSR  INVERSE  RESTORE  LLIST q#w# NEW w# PAUSE .Ho`[G] STEP [C]x GO SUB VAL #~ INPUT w LLIST NOT ▞x! POKE "<= FORMAT  INVERSE  RESTORE :[B]` PRINT  INVERSE 6I~ OR  STEP 6EXP STR$ x TO [I]LN  LET 2[B]` INVERSE  LLIST <> STEP  RANDOMIZE  VERIFY  STEP xr:g FORMAT PI>=:[F]` INPUT USR :▙ FORMAT PIUSR  STEP  VERIFY >/ STEP _ CLOSE # STEP ! CLOSE # POKE  STEP  RUN  LLIST  RETURN YUSR  STEP  CONTINUE  LLIST !▙ FORMAT 6 CLEAR .g5<> INVERSE } RETURN  h:q INVERSE VAL$ 8_ LLIST ![H] FORMAT : THEN G▜W RETURN  CLOSE # THEN  MERGE :CHR$ O▜INT y0.[J]x▜