atarin: atarin.B

  0 COPY ,$SIN X[E] COPY  COPY ! TO  COPY XVAL  COPY CHR$  RETURN iVAL ACS  MOVE  STEP  MOVE VAL CODE  MOVE `▟ RESTORE  PLOT   ERASE A POKE 6"USR # INPUT LB=C COPY 9GX▘▘ LINE +[Q]vPEEK "j&CODE SIN ^`_ FOR INKEY$ NEXT `0R[K]INT  RETURN (FVAL %! PLOT  ▙(# PLOT   PAUSE : INVERSE X▘+ NEW .v PAPER  RESTORE "+j DEF FN a FORMAT ^`%CHR$ [H] PRINT TAB  INVERSE ACS USR ( CLOSE #ATTR  INVERSE INKEY$ REM v?$0D0 CLS  NEXT #NOT  GO TO T: FLASH A DRAW  RUN HPEEK  CLS ▘ NEXT B CAT  RUN INOT  NEW ▘ACS ▗ NEW VAL$ +▙# RESTORE % RESTORE  NEXT E INVERSE >=ATTR  RESTORE 63INT INKEY$ 8POINT POINT `! COPY  NEW JVAL$ SCREEN$ v PAPER >[S]AT j DEF FN 2[G] IF ^SCREEN$ P CLOSE #INT  CLOSE # DRAW  FOR  FLASH 05POINT  NEW  LOAD  DRAW ltit4ATN t COPY @ REM ]]uuINT INT 2 FOR  FOR  BEEP ' COPY 3!INT [H]3[F]7[H]0 BRIGHT  LLIST # INVERSE  INK t" PAUSE [C] TO  FLASH  BEEP tM/` OR eht▚E[L]/INT  TO FN  CAT CHR$ VAL  NEXT [H]tBIN NOT  FLASH  RESTORE 0 LINE [M] LOAD Y- COPY CODE F INVERSE [T]tr[J]ty ERASE f[N]f FLASH MuZt+[I]k[L] NEXT xp|C[U] BRIGHT  DEF FN k TO fb CAT  MOVE  COPY [N]: PLOT  ▛ INVERSE ▚% CAT  PLOT  ^MZ PLOT  )UX[T]CHR$ RND RETURN  PAUSE ASN I▝▘6; COPY fR2[A]©e FORMAT  THEN  CIRCLE ▚TAN g COPY COS ▖ DATA - STOP $$lc▝ FORMAT `BIN T`(LN  READ HAT  STOP  POKE <[Q] MOVE ] CONTINUE j CLS 0[E] BRIGHT $▖"|"pLN 0[D]dAT  POKE  PLOT  OTAB 4L▙INKEY$Y-D COPY ©A LOAD / NEXT AT  LINE 0STR$ F LOAD [J] INVERSE [S]POINT  FORMAT  TO ▞ LPRINT TAN ▖▖▜▜▜STR$ ▞▛▞▟UPOINT rINKEY$ COPY E COPY ) INVERSE  TO ▘! CLOSE #3NOT !SIN 3 NEW  CAT EINT COS -TAB ATN ,AQINKEY$ MOVE t NEXT POINT XcINT  THEN / COPY  LET VAL x% POKE  GO SUB 1" DIM [U] PRINT ] PAPER  ERASE RND COPY RNDRND[U][U][T][T]a`IN ©©©~~}} COPY bn[L]Eet0i[S] AND 8XSTR$  iif RETURN VAL VAL f MOVE  COPY  PLOT  v THEN e*▞ CAT  LIST u8VAL ACS  VERIFY :8}(1[H][U]Ic!1 CLOSE #ASN 5gX[G]SIN POINT GINT  OPEN #%[D]3[G]w▖a GO SUB ILU INK  PLOT  FN c MERGE kFN TAN  STEP `1K COPY STR$ tIN tl RANDOMIZE / LIST TAB  LIST  GO TO [L] COPY LN [B]CHR$  CLS QSIN ▖/SLN  FORMAT [E]SCREEN$  PAUSE _ COPY  STOP  LIST  INK  PRINT <▘COS ACS TAN A CAT NOT  OPEN # LET  GO SUB  SAVE  TO LN C BRIGHT  LOAD r VERIFY O RETURN ▘▝RND▘ SAVE J[T] NEXT FN SIN  DRAW 3 COPY  0jj[F] POKE ▟ PLOT  ▟▙▙▛▖▙ LIST >=▗ RESTORE  GO TO SIN  IF [bLEN [lmLEN STR$ [A] RUN [A][B]▙TAB [B] RUN [B] SAVE ▚[D]iINT  SAVE ▝" RUN ^opt▙[D][D][E] AND [B]SCREEN$ LN  RESTORE ASN VAL !QINKEY$3COS kBFN P[ATN ABS ASGN ( PRINT  PRINT  TO Z[L][J]ATN ASCREEN$ ( CIRCLE ▘[L]- LINE -v▚▖ THEN (;SIN NCHR$ ▞SQR VAL$ STR$  CIRCLE  DRAW TAN  BEEP RND` GO TO z CLS ▜f PAPER /# RUN Gz!SQR Y LINE `BR"USR  BEEP b-q4▝B[A]R[Q]h1 RUN  NEXT ▚ OR  CLOSE # NEW BIN <=jACS BIN  CLOSE #1 NEW [A] CLOSE #O GO SUB [F] AND GFN $=3 INVERSE _ NEW [J] READ J9 NEW [F]D▞eEW COPY [B]▜C▜C LINE  THEN [C]INKEY$ OR  PAPER  STOP VAL$  OR q<= PRINT FN [H]f) RESTORE  INPUT f NEW  CONTINUE #LEN 1#POINT POINT  POINT [T] THEN 6# CLOSE #PI9▞ PAPER `)9J$Z*j8yB▞S[I]hFN STR$ :ASN  CAT [K][E] SAVE o#g▗5 NEW B3[H] TO Y INK ▙M▘CC INVERSE ,! THEN ▛b*USR k7,CODE <M&]-m<|FX[L]nATTR ▛COS +yt4D#U-e5uG▗S[E]i[T]COS RNDAT y STOP anATTR fK! LLIST I14[U]K!) MERGE  RESTORE @K READ  LLIST K FORMAT [H] MERGE ,]CHR$ ![P] LPRINT STR$ Gt{PICOS  POINT (w7t7 J%/8 FORMAT vJ[F].=[F]]▙,8▟-8▛▞POINT STR$ #[I] GO TO /▟▟ OUT ACS  FOR 6▟[A]{ ERASE ▚▛)▛LEN PEEK l FORMAT 9 MOVE ] ERASE SQR  OPEN #0SQR  CLOSE #`SIN  MERGE SIN STR$  VERIFY LEN  BEEP VAL R.[Q]SIN  FLASH  THEN  RUN SIN  MERGE  THEN LEN 4F ERASE  ERASE +L,+X+LEN * RUN  DATA  GO TO t VERIFY # LIST ,▙ PAUSE V4 PRINT  RESTORE  MOVE ATN ▞i▖[B]! INVERSE 7fPI[D]PI[P][O][M][K][L]EZ<> PAUSE  REM f[Q]=[Q] RUN kj▛▞zVAL$ h OUT r▝CODE  STEP  PRINT  READ ▟ ERASE  CLOSE # LINE USR ! RESTORE  INPUT ©PEEK hf<=FN FN  CLOSE #(USR  CIRCLE (NOT 0('<>"4i ERASE [I]h. ERASE . MOVE - FORMAT ,f FORMAT # CLOSE #?7 AND o OVER  OVER [T] OPEN # ERASE  FORMAT  DEF FN  CAT  LIST {ASN [M]' INPUT ASN s INPUT 8 SAVE H[H]&<>[J]) LINE ▗t OUT [S]a CLOSE #8 CLOSE #jPi[K] CODE NOT  FORMAT  REM yX[H]NOT bCHR$ ]E THEN  IF  OVER TAN USR  TO 7J TO 8 CLOSE #[B] REM FN  THEN B 1B OR [N] OR ttSGN @8▚ AND #NOT BIN  CONTINUE  DIM  OUT xwPPEEK NOT 1Mt0B AND 4[Q]F[Q][P]STR$ Y MOVE w GO SUB ABS Kt% LET tTAB ▘INKEY$!CINT 1cdJ}'INT  TO  NEW FINT [C] LINE P[G]> INPUT  OUT  POKE  SAVE ,uu) LINE VAL  LIST  INK BIN >=INT ©+2%J[F][F]▙▟ NEW ^CODE *TAB <t/ OR  REM ▟▝▛ LPRINT EXP ]SQR SQR SIN SIN LEN VAL SIN Qd CLOSE # OPEN #▙).# INVERSE e[J][I]j[I][N][C]CODE [J]INKEY$[A][L]bHFN [L]T[H]OKU@ NEW  CONTINUE Y INPUT ~ FLASH =▟ FLASH PI3NOT lINT  MOVE #sk▟ GO SUB ▖ READ %6CHR$ K[H] BEEP  RUN  CONTINUE y#.o9[B]V. NEXT ) PAUSE  LIST =.B. PAPER  CIRCLE LEN EXP ▞ LLIST ▚NOT L![Q]H4 INK )g INK  BEEP " MERGE  OPEN #x&▝ MERGE  OPEN #INT  MERGE  MERGE  THEN o MERGE  OR  MERGE ,B MERGE [E] MERGE V MERGE  Fojlu4M;MvLv SAVE 9QxN5Q#f7[U]-@FNFN▟M▟O`cO AND OONSCREEN$  STEP N▖[ CLS  CIRCLE ~PIo MOVE * ATTR ;Z-K5H[ IF  GHjSHziG▞G[J]RND CLOSE # CLEAR ▙ BEEP CODE 9 REM  FOR SGN STR$ l POKE  RESTORE  DIM  RESTORE 'INT ABS  BRIGHT <G BEEP POINT  PAPER >=ABS  CONTINUE p<=VAL 18' FOR SQR [R] DRAW [G]SACS  CAT FN ) NEW % NEW G▙VAL$ = OVER [Q]' NEW  PRINT ? LPRINT USR [G] BEEP  DEF FN !2B$R0a7
  28998[A]n BEEP ▝[M]P THEN  THEN NOT ^[Q]!CHR$ >= MOVE !.USR  NEW 4. SAVE  INK  GO TO [▞P3 CLOSE # CIRCLE -[J] CONTINUE ! LOAD  LIST  MERGE  TO H CLEAR ©B DATA u DATA ` TO  INPUT [N]N[O][O]▟NOT [O] LLIST INT INT [U]# FLASH X/`O AND  INPUT e[N] READ SQR N INK  LPRINT ▞INT [N]0H; INVERSE =USR [U] NEXT  ERASE  AND  GO TO [U] ERASE RNDP OPEN #POINT  STOP  OPEN #[U] ERASE [T] MOVE [T]▟ MOVE  CLOSE #JI[Q][I]#,;STR$ [Q]@1▙P4▖[J]~▜0 DRAW #~ CLEAR jJ©cB DIM  FOR _NOT .,YVAL$ CHR$ ?};[B]▝Y COPY E/<=;X<XPI<5WLEN TAB LEN 0 LOAD WWKX OVER JEXP ▟pYIVZ COPY [:Z:Y NEXT  OPEN # NEW " FORMAT W STEP VUCHR$ 7VIN X`[A]W LIST *_ PLOT  KL<POINT ABS [K]D[U]▙VAL MP[D][L][P]C*USR  COPY  FORMAT $ IF  ERASE y; STEP vL▛e LPRINT  MOVE  PRINT v[Q] CLOSE #VAL  INPUT CHR$ LN G LOAD )PEEK  INPUT PIf THEN ▟e INVERSE TAN CODE aLEN  4` PAPER 4 RESTORE ▖ACS [Q]INT LN c/ FORMAT LN 1/EXP d]A DEF FN ▟ MERGE  MERGE ▛<=_0^/ THEN 2FiR SAVE [ LIST ▜/POINT ^`%▝EXP _][D] CIRCLE y[P] LOAD ▝©[U] RESTORE `iih+.EXP h]▙TAB &7&G-W NEXT <fFvXn[J][F]|▛<YINT  CIRCLE Bic INK c]%] POKE ^^ATTR CHR$ C MERGE ![A]e COPY 0 NEW [T]USR [S]LN /:ATN [ MERGE : SAVE [A]0U LIST CHR$ 0kPJup<=p LOAD S[K]k~j LPRINT [B]g?▙67DASN +?-76!▛ DIM [F]PEEK  LOAD  BEEP NOT  TO IN d<=IN e6*▝RND COPY m[G DRAW u CLS  BEEP  IF ▛ [J]RND> NEXT .<=g[B]=.INT .-LPOINT 5 GO SUB STR$ FN ATTR  LLIST  DIM f COPY  AND EXP ▙i'5 COPY  THEN ▗$COS [L]4ASN AT  CAT  LIST ,COS CSIN ^ PAPER 5TAN SGN @POINT S NEW ?X} INVERSE PI CLOSE #;ATTR LEN !ESTR$  CLEAR ^CODE LEN USR [I]y7$v[A]6VAL ©VAL dLEN Q'SCREEN$ TAN #ASN SCREEN$ RNDFN j'FN R(SCREEN$ BIN VAL$ POINT ▘FN POINT [N][J]FN t▝[F]FN KZFN /INKEY$eSCREEN$ S LLIST  NEXT |COS X CLS  STEP  THEN  POKE ©{[F]Za3LEN [M]Y,j▚[Q]Y▗B NEXT ABS  INVERSE U%5[H]▗STR$ ▗▗▛INT  POKE  AND 7=STR$ LK▗J[Q]Ig.d▚ OUT ▜▚_.[K]▘▝ GO SUB (▘AT ABS  REM [B] RESTORE - LLIST 4 OUT [U] FLASH  MOVE [N]LEN [R] INK ▝CHR$ h OPEN #AJ COPY  OPEN #▘ ERASE  VERIFY  ERASE  CLOSE #[R]▗E STEP  LOAD INKEY$ CLOSE #RND3[R] FORMAT )[H]i LINE * DEF FN .l[F]▚[F]y BEEP [U]LEN  SAVE  RETURN H MERGE h[P]SIN  INK s CONTINUE  GO TO m STOP ,[N][N][M]f![L]rZc][E][L]LV[D][P]mINT ^[T]NOT ▛NOT B! INPUT [D]USR  LOAD ▘fd OR  PAPER >W OR w[E][T]<=u>=Et[Q]<>t▛Q RESTORE ▛ VERIFY PEEK [K]ABS 0 PAUSE  PAUSE O STOP )CHR$ #-HABS i[U]IN hiUSR hU[iPI FORMAT %c REM  NEXT [L] TO [A] DATA w DRAW ▜byiNOT iCHR$ [Q]PEEK [T]i[A] CIRCLE i([D]]VAL  THEN [N]LN VAL  DIM 4( MOVE  VERIFY  FOR  MOVE  GO SUB COS  PAUSE  FORMAT A LET  IF '[B] MERGE [I] PAPER  PLOT  ?O%/% CLOSE # LINE q CLOSE #i BORDER [O] NEW  POKE INKEY$/ REM ▟/ FOR . GO TO .[O GO SUB . INPUT 4- LOAD h- LIST ,SQR  FOR  THEN [N]5DN CONTINUE ▝'/VAL$ [H] RESTORE  NEXT  PLOT  ▙0''[L] CONTINUE  GO SUB  RUN 3ZINT ▘[H]"INKEY$▝tSINKEY$/INKEY$,:[P],[O]-[M]-[K] BEEP [A]INT M PRINT q▜STR$ iAT  LET  LPRINT  ERASE VAL  LPRINT E ERASE  MOVE  MOVE  MOVE  MOVE  FORMAT  FORMAT USR [R]`+IN .[T]AT +<=+*SCREEN$ }EXP ATN ▖VAL  NEW )COS [R]NOT [H] LET  FLASH  REM ▟*USR  CONTINUE [S] INK CHR$  INPUT CODE  NEXT  LOAD jCHR$ v S CONTINUE  NEW  TO V TO [L] FOR  TO  PAUSE @ FOR  LOAD [L]( LOAD (-[S] IF  CLOSE # STEP INKEY$LEN SPIPI LPRINT %. CLOSE #[L]LEN  MERGE  INK Yt▝ AND 7 LPRINT ▘o INVERSE / INVERSE - MOVE  MERGE Q SAVE SIN  NEXT [S]RND FORMAT PPOINT  OUT  LOAD XASN  CIRCLE  PLOT  `X VERIFY  CIRCLE [R]iRND©l[L]▟▚ FOR RNDu[U]VAL V GO TO  OVER PEEK  GO SUB MyO CLS qTAN  STOP [B]4IN OAT XXLEN  INK  CLOSE #▟ INVERSE ? OUT z[G]STR$ <>LN }j DATA ▗[B] STOP @VAL VAL }EINT ` STEP ;W} RESTORE ] INK y MERGE  FORMAT 3J CLOSE #fZnk PAUSE NOT  STEP ABS a REM  COPY ATN NOT [O]1iINKEY$[N][N]<=▝<=VAL$  MERGE  CAT [T]I.E<=[D] AND ▞|t`tSTR$ RND[N] LPRINT  PAPER SCREEN$ p OR _4[U]).SIN LEN ▖&B DIM  INPUT pPOINT  RUN  NEW 8 LLIST /[K]GFa<>[H][T]▛FN  RESTORE  LPRINT {*PEEK ATTR  NEW ▛~ BEEP X_^ COPY 2nlKU FOR [F] REM @INKEY$▛ GO TO ▘POINT  NEW = MERGE  LIST  SAVE f FORMAT  GO SUB RND!a RETURN Uc OVER  VERIFY BIN .USR FN [M]izt BORDER ASN [M] BORDER W.[H]L READ INKEY$?INT  READ LN  LLIST  RUN ATTR  STEP TAB l▛[F]c[N][E]S[E]▖>= BORDER [R]=t][I][H]SCREEN$ ]]oSQR  LET "/INT INT EXP [ INVERSE EXP  INK POINT .+AT } LET h[Q] LET PEEK j.PEEK W, FOR R BRIGHT  FORMAT  MOVE t RANDOMIZE  DRAW  THEN >=YU TO ▙ GO SUB  AND CODE +CODE Up[N]©PI5 AND  OR  BEEP  FORMAT  MERGE ABS ▚ COPY k1[C]4SQR INT EXP [B]ik[R]5[P] REM TAB g PRINT ^ATTR [B]POINT J/PI][U]INT PIVU BORDER 2([N]N[T] VERIFY |u>=NOT J NEXT  MERGE ATTR [I]% RANDOMIZE voPEEK 7pxpkj MOVE hfUSR gk`SIN [G]xhATTR jl THEN STR$  COPY  RESTORE -s▗Zq▝oyz|AT ▜SCREEN$ ▛J COPY [T] THEN EPOINT  AND NOT ATTR  DEF FN -'▜©8 PRINT  RETURN $ DRAW EuFN ; MERGE kRNDACS c.Jxu[M]! THEN Q.YMSCREEN$  POKE F/SCREEN$ ,COS  CLEAR  GO TO ; REM J CONTINUE B NEW  FORMAT  CONTINUE RNDb INVERSE vD LLIST INKEY$t LLIST [K]# LLIST  THEN [H]b NEW Ez CLOSE #▖ OR M▟& ERASE RND@xEH/ IF  THEN [D]EXP  STOP %Z FORMAT  MOVE YWiU[N] RUN [T] IF V! FORMAT  DEF FN WY POKE  CONTINUE  SAVE ; TO }[U]U[K][R] VERIFY Fh BRIGHT ojj NEW ▘ FORMAT  BEEP [B] FLASH  LLIST  IF  FLASH 6USR  GO SUB ▛POINT >c INPUT &C PAUSE ~▛TAB  INVERSE  BRIGHT ,INKEY$0 CONTINUE EXP [B] OVER [N]H CIRCLE r NEW L▚[D]v VERIFY ▚F OR ( INVERSE [E] OPEN #TAN  CAT -FN  CAT  DRAW  THEN >[P]VAL ACS  FORMAT  THEN LN EXP  AND [C]POINT CHR$ 6[C]J CAT 4▘4i[D]i FORMAT  STEP aINT e=P SAVE PI LINE STR$ 9[B] ERASE  TO EXP  DEF FN [P] OUT [INKEY$[A] READ [Q]<>B RUN  OPEN # STEP  TO AASN 2 LINE 2W LIST  LOAD VAL$ eDFINKEY$>=INT u LIST  THEN /VAL <>VAL$ /TAB %n[E] CLOSE # OPEN # MOVE TAB + OPEN #JABS ▛ OPEN #Coo IF 0@,RX OPEN #+LEN  OPEN #O REM  CONTINUE AT ▟EXP ATN  LET  LIST PEEK  SAVE v RUN ATTR COS tTAB INT  LOAD COS POINT WCOS f?CODE # COPY  INVERSE ▚[D]( OUT "?O POKE  AND POINT  COPY ATN  GO SUB K DRAW DVAL ▜ PRINT  LINE d[N]T7* PLOT  3 OR  LINE NOT ABS  CAT  PAPER  FOR ▝/[G] CLS [F]C▞]PIS COPY ] STOP "[B]([N][D]F BEEP ▛.▖ STEP [H]C▚ASN [L]ASN [J] LPRINT CHR$ INT C| COPY  CLS ?RND[O]R[K][G]# NEW [I]SCREEN$ [M]xTAN ▙ABS ,[U] TO RND INK  FOR VAL$ n▗ INVERSE  INK Z▘. OPEN # PAUSE  GO TO B[N] AND .[N]A▙▟▛▞[G]{RNDZVAL ▘IN VAL  BEEP [L] LPRINT CODE CODE SCREEN$ ▚INT @SQR SQR @ DRAW  OPEN #SGN SQR 1EXP ATN  OPEN #jLN ▗EXP USR SQR ABS  SAVE  CLS ▘▚RE COPY  GO SUB ▚SIN 6INT [K]ASN -'▙I RANDOMIZE [F]▙ RANDOMIZE j▟ IF VRND"k GO SUB ▙T GO SUB  REM  PAPER  CONTINUE ▙POINT  DIM ▙s RETURN <>[K] REM d[P] GO TO  DATA  DEF FN  SAVE 6 CLOSE # INPUT %▛t STOP OtFN 1i▗▗j▙Z▖ PAPER ASN #Px LIST -X DIM  TO ▟[U] DIM TAN  NEW qct TO PI RETURN [S] DIM  GO SUB  FOR [D]RND DIM  RETURN <= DIM [B]( DATA dSQR  READ ▞ LLIST  CLOSE #ih NEW INKEY$)t BORDER  BORDER Z RESTORE 4EXP  MOVE 4COS  READ  AND  FOR T READ $[C]VAL$ ▛at LPRINT I OUT AACS ]t LLIST ▚]]u/POINT INKEY$~ OUT I OPEN # INVERSE  FLASH I[D] INK  READ [N] FLASH ASN  VERIFY - CAT =s STEP % NEW  STEP BINT D STEP  OUT IN  CAT @ STEP 6CODE TAB  STEP VAL$ [INT LN CODE BIN PILEN COS 1 SAVE  PRINT | REM  DATA  INPUT 8(▝=[Q]ACS 58[Q]LEN 9~SIN AT y RUN OtVAL$ VRND▟#}i[T]▚5 PLOT  p[H][D] VERIFY [J]SIN 1u[L][N]EStRND▛ CLOSE #[L] BORDER  CLEAR ▟ BEEP  BORDER  PLOT   POKE ) LIST  MOVE  INPUT AT  NEW BIN Y▚ INPUT [N]<= MERGE  DATA <VAL$ | LPRINT )TAN ?VAL [M] DIM  NEXT VAL ..--, REM WYt DIM RND LOAD 5/ABS  READ y(r NEW [T] FLASH COS  INK  DATA ; INK 4 INVERSE  AND  INK  INVERSE COS  INK 1 COPY  OVER  FLASH  NEW  OPEN # ERASE  STEP  VERIFY  FORMAT COS  DEF FN  INK I CAT  CONTINUE + FORMAT CODE  ERASE  CLOSE # BEEP 6> CIRCLE  SAVE INT  CLOSE # STEP  FLASH  DIM 1 FLASH [G] CIRCLE v VERIFY xNOT " MOVE N INK  CIRCLE ; RETURN   BRIGHT 8NOT  CIRCLE  PRINT ASN  ) VERIFY RNDw CIRCLE 8 VERIFY ▞ CLOSE #2,S CLOSE #cX▛ BEEP hK[D] OPEN # CLS  STEP c AND  AND -tGt5▙ MOVE  NEW ATTR  TO  STEP % GO TO NOT [D]<>5[L]<=  AND 6 OVER  INVERSE  OVER  INVERSE <=6 INVERSE  BRIGHT  CAT  LINE rSQR LEN  RUN  LLIST ].] DIM SQR LN  READ  DRAW SQR A PLOT  BIN `SQR [Q]INT USR ATN EXP  COPY &USR USR  DATA  RUN [B]!POINT ]+<=▝(o[O] NEXT 0 RETURN [Q] CLOSE # FORMAT  PAUSE STR$ z[F]0 INK [H]YiM COPY %C[H]ATTR e PLOT  [Q]5 STOP [F] FLASH VAL$ 3 OR F MOVE 1 PLOT   OUT  CONTINUE  DATA  ERASE x RESTORE ! PLOT  r DATA POINT  BRIGHT  READ [L] OPEN # LLIST [M] ERASE nECHR$ !uASN ▗ READ ▝ BORDER  SAVE [O]t CLEAR 3 REM  CLEAR  INVERSE  © COPY ACS  CAT [K]COS  TO  RESTORE [C]ATTR  RETURN ▝BIN  INVERSE [T]SGN SGN [J][J]sa1 NEXT ? CAT  NEXT Dg0 COPY FN  POKE /a[I] GO TO @ DRAW  NEXT rSCREEN$  RUN ABS : PAUSE OSQR 3 NEW lo[A] POKE <> RESTORE  INPUT  CLEAR  g[M][I] LET [S] PAUSE .INT  PLOT  ▞PI COPY ▞ OUT  MOVE ▟t▖▖▜ LOAD ▜[T]▜ INPUT ▜ CIRCLE ▞[G]▛ PAUSE SIN USR ▗▝E▚#[A]y[D] CLEAR VAL$ N BORDER ▜ COPY [T] LET SCREEN$  READ USR : SAVE ` OPEN #t COPY t MOVE  STOP n[P] BORDER y/~ LET 1[H][R] RETURN PEEK fTAN  DRAW [ DATA i  FOR  CONTINUE  PRINT m PAUSE  DIM  PRINT  OPEN # OVER  OPEN # OPEN # ERASE RND4tl DEF FN 8 MOVE NOT *b`& PAPER dIN H©©~~}<=vi. DRAW g[S]]▝z▙l0▗USR 9 PLOT  dVAL )8 PLOT  ASN ▘[D]rc LET [S] LET w: TO 4▖[A]AT  GO TO $ REM SQR t REM P PAUSE  CAT O[ POKE [G]0 DIM USR  CONTINUE [A][A][T]INT STR$  OVER [J]SQR  POKE ([A]iv THEN USR W%▙4<= PAUSE ) STEP  PRINT ▘BTAN ACS m COPY (CHR$  FOR e LET [B]2([D]0-+>= RESTORE  CAT  MERGE FN  FLASH t▖# GO TO ▞SIN  INVERSE SSIN ▖e SAVE + NEW  CIRCLE  SAVE © GO SUB i LIST ▟▞[H]b CLS [C]f CLEAR [Q]▜f[K]▜ NEW @&<=[G]` NEXT ( RESTORE INT SQR  THEN RND LOAD TAB TAN  FLASH  BEEP ▝BIN  LLIST  SAVE  CONTINUE  MOVE " STOP * CLS !l" INK ;[J]0b{b{[S]SQR  LOAD  STOP  CLS  BEEP EXP  GO TO ; THEN <>[R] THEN LEN  RANDOMIZE ▛ DIM  NEW SIN  CLEAR SIN ▛ MOVE  OUT #8U ERASE ' PAUSE [C]: LINE % OPEN #2[F] PAPER 2 MERGE  OPEN #r MERGE  ERASE r ERASE SIN  CIRCLE [G] MOVE SIN U MOVE  PAUSE  CIRCLE o^p NEXT [H]([L] READ ▚[B]i;dIN i©NOT [B]q~[B]bo DIM ▙ PAUSE NOT %P INPUT [K] PRINT [[N] INPUT [S] GO TO  LOAD  INPUT  GO SUB  INK SCREEN$ TAB  NEW  COPY  CLEAR  LOAD  THEN  RETURN  COPY  COPY SQR [N]ACS PEEK +a▜EXP  LINE  TO  GO SUB PEEK  TO # INVERSE SGN ATTR [K] ERASE ATTR S[I]SQR  GO SUB  INPUT  INPUT  RETURN  CIRCLE % OVER ABS ATTR SCREEN$ [J][O]INT RND PAPER TAB  COPY  SAVE ?)SQR [H]9[L]RND INK <>{[J]U FLASH +`? GO SUB  OVER  RETURN  INPUT ABS [L][J] OR ▚[J]FN POINT [K] BRIGHT  STEP  INVERSE POINT  BRIGHT  INPUT  LOAD SQR 5ATTR  DEF FN  RANDOMIZE SGN ▟[I]t8fTw[I]POINT SCREEN$  THEN  GO TO  THEN C LOAD  BRIGHT _ COPY M@70POINT ATTR ▚[L]▞▖[I][J]A DIM [P] RETURN  GO SUB  RUN QpxZ▚`[L]AT e[J] MOVE  FOR [K]ay▚x$SCREEN$  PAPER  INVERSE SCREEN$ 6 LOAD  OVER  INPUT  CLEAR  CAT  RETURN  OVER  LPRINT I# OVER  TO SQR SCREEN$ ATTR lhEXP <=▖xg▞ ERASE  INK [M] GO TO [D]cXCOS JL OUT  DRAW ▙ INK ▟LN [M][H]▛QPOINT [J]<>SGN SCREEN$ rw▞[J]2SQR ABS  IF IN  CLS  COPY <=( DEF FN  FLASH a FORMAT  FORMAT }QABS ▛ NEW m[B]SGN F<>AT EXP  STEP [K][K]▞[K]INT SQR  TO  INVERSE C▜[P]r LOAD  GO TO z" PAUSE }AT  OVER SGN @z MERGE ▟Q PAPER AT a<> GO TO CHR$ UR*[T] PRINT -(+ RUN 9VAL * STEP FN USR ,[J]{LEN [N] INK  OVER [K] LINE SGN ▞POINT ATN INT  BRIGHT  BRIGHT xWATTR {-AT VAL ' STEP _~+`,SGN  LIST |[K]I MERGE PEEK  AND  INPUT [N]▖ LINE ATTR  THEN SGN  THEN J GO SUB  PRINT >-XATTR ^ PAPER / STOP / BRIGHT Xl STEP ,[J]Yh RESTORE  OVER [G] GO SUB  DEF FN i[H]2 LINE AT ] BRIGHT  OVER a>= LIST -3TAB [J] CLEAR  COPY VAL ▙0 OVER  THEN [ STEP ATTR EXP INT [J]KPOINT dJ BORDER  OVER :▚EXP  INPUT SQR [I]LN  BRIGHT [B]AT INT <|)PEEK ▖j GO SUB - OVER  STOP # INVERSE [L]/ LIST ▚EXP zhx-{&b[T] INK [J]6c[K]ATAB ACS X b-IN [H] INK ▗USR TAB  FLASH  TO n INVERSE [K]POINT p READ BIN LEN [F]k CONTINUE  INVERSE  NEW 0QAVAL$ yuEXP POINT JLEN _2 CAT w PAPER O7 DEF FN '( STEP [L] PAPER p CIRCLE i▝j DIM  INVERSE ABS qQEXP [A] DIM ; LINE FSGN  CIRCLE - OUT [ OUT [J]EXP ACS ABS  INVERSE L FLASH  CONTINUE SIN ACS fx STOP [L][I]J BEEP  THEN PEEK WFN b GO TO  ERASE [L]ax DIM R▞[E] OUT  RETURN [P]©a[H] RETURN W.]yf▜yFN  REM  THEN TAB G1FN  FOR  INPUT D[K]RwACS U CIRCLE ^▞[K][I] GO TO  DEF FN ▞g[J]SQR  BRIGHT  BORDER [J]w[F]( FOR PEEK Gr<>F▚▛mEXP SQR M^ RANDOMIZE [^@- INPUT AT y[I]INT  INVERSE [Q],g[H]▞EXP } FOR  FLASH [N]Q LPRINT q4▖FN  CIRCLE  RESTORE J▞ CAT PEEK /[I]EXP ZSQR  NEW 3 DEF FN ([J]▖[H] AND zPI[[N]s PAPER ,[M]xPOINT CHR$ SGN a[E] CIRCLE  CAT [O]▚ REM ASN ,SQR  READ H FOR ASN [J][A]EXP  GO TO  GO SUB JLN &[L]▜ LINE POINT AT [C] RETURN SIN /IN l[H]▞ THEN  STEP E[N][F] LINE FN +NOT p RESTORE ffq READ [M],+NOT  THEN IN +▚(i>=[R] GO SUB STR$ [L] INPUT [O]SGN  OPEN #j[L] PAUSE ?.[) INPUT PEEK ACS LEN M▖▜ PAPER ACS 1 DEF FN  DATA ▞▙O GO SUB SGN i▞ GO SUB ABS SQR  THEN f[M]INKEY$[M]fEXP  IF Y INPUT ▙A FOR  OVER y<>[P],ACS  OVER [S]* MOVE -VAL$ POINT  LOAD CHR$  OUT #TAB  BRIGHT .SQR [L]SQR  DEF FN POINT LN J INPUT RND GO SUB |LN  GO SUB [L] LINE [U]: INPUT f[ COPY -[N]d REM ▝ CLEAR NOT [N]FN [I]0 DEF FN [R][I][K]SCREEN$ POINT ▞<>i LOAD  INK PEEK [H] GO TO [M] INK  INVERSE INT  RANDOMIZE D+[G] BEEP [J] CIRCLE ATTR [D]▜ FOR ATTR }[F]INT . GO TO  DATA pATN USR POINT <>y OUT t GO SUB  PAPER TAB <> STOP  INVERSE  TO ['[N]- LOAD [S]ABS SQR  LOAD *,F^SQR , BORDER  LINE [I]IN [T]PEEK FN  STEP POINT  STEP  LINE ATTR 8ACS D▘- INVERSE  OUT  REM PEEK  FOR INT *@ POKE CODE SGN -[FN [P] MERGE } REM [L] BRIGHT SCREEN$ .(ABS  BRIGHT ▞'-n GO SUB [Q]TAB + INPUT  BRIGHT .INKEY$/[Q]ATN INKEY$ RESTORE INT POINT  LINE LN o DIM [J]PEEK  INK AT  TO [D]6 BRIGHT  LOAD  RESTORE F+BIN  PAUSE  GO TO [P] DATA  LET PEEK  GO SUB [K],[K] LOAD USR ZSCREEN$ LN SQR [I] OUT ' DIM PEEK x PAPER  GO SUB B[I][N]SCREEN$ ▗ LOAD ACS  PRINT ▛ LLIST  PRINT  DEF FN CHR$  CLEAR  STEP [H]LN , TO  RESTORE  FLASH ▞ RETURN PEEK [U] SAVE 'EXP Gg[C]R] IF  STEP  CLS "4 DIM RND[D]E OVER #TAB ATTR [G]▛ PAUSE n AND ▝x RETURN [O] CIRCLE [G] THEN  MOVE {, THEN 0[E]EXP ) BRIGHT  INVERSE  CLOSE #COS tINKEY$PI CAT  BORDER [O][Q] STOP [T]INKEY$ PRINT [F]f▖ABS a) GO TO PEEK ▚^ATTR TAN R READ PTAB  BRIGHT  COPY }bATN  AND  FLASH  THEN  DEF FN  CLOSE #/ TO  FOR  REM [K] AND -PI LOAD ▖<> NEXT [E] STEP LN  LLIST  OPEN #▛▟ OUT " PAUSE -[I]z PAPER  LOAD SQR 7 FOR [G]; THEN  DEF FN  PLOT  TIN 8TAB  THEN ACS  OUT [L]L[H]TAB [P] PAPER + READ .▚vZ-▞ GO SUB  DIM  GO TO s▖ GO TO @INT 6SCREEN$ [L],[M]1 TO  MOVE CODE q INVERSE FABS [P] ERASE ) CIRCLE  OUT  LINE  POKE <= CLS  CAT n DRAW Z[D]CODE  CIRCLE YSQR INT  VERIFY [R]VAL$ [G] THEN [G] GO SUB  PLOT  S[F] RANDOMIZE )SGN  CLS CODE ! THEN w INVERSE 6 RUN ]2SGN  DATA > CONTINUE l PAPER [L]Q FLASH [J]Q RUN L[K]IN  STOP [[P] GO TO TAB  RANDOMIZE  DRAW _- RUN  GO TO [I]ABS <> PRINT - OVER =[- DRAW [O] INPUT  PAPER  DEF FN  GO TO e LINE }-(E INK [[M] SAVE JPEEK  BEEP [M] BRIGHT  LINE TAB  STOP [AT [A] CLEAR TAB  OUT  FOR } DEF FN Z.[P][U])LEN k-▙▚- INVERSE FN TAB  RESTORE  INVERSE g[ PRINT -[SQR  FOR .*-SCREEN$ [C] OUT -[L] CONTINUE  DIM ▛ FLASH aAT ▖- INPUT  DRAW [P] FOR USR  LLIST [K]a▞* BRIGHT tZ▛ BORDER N OR PEEK LN VAL$ ZNOT EV-[I] DRAW CODE  INK [U] LET IN  OUT  LLIST [C]Z▘ BORDER  AND - RESTORE ~▝[D] PAPER ▘5 THEN PIL BRIGHT VAL [H][Q]- CAT BIN o IF =[ TO I BRIGHT cABS COS  POKE [K]- DATA [O] DEF FN c INPUT  BRIGHT SQR  NEXT A- OUT  CLS  OUT gPEEK [Q] OR <= LOAD PEEK H[K][U]SCREEN$  RANDOMIZE COS SQR 6 INVERSE m SAVE 72 FLASH  LLIST  GO SUB (MLEN %▝[G]▞LEN /)e[U][B]PEEK 7EXP NOT )8▜q[H]XPOINT L OUT ▖ CONTINUE EXP 95 GO SUB  POKE  SAVE >=[K][M][O][M][P] IF _ VERIFY  FN [D][B]/ATTR  LLIST ABS ▗<=IN  CLOSE #[Q]VAL$ IN <=}▜LEN Hk BEEP [F]▖[I] CLEAR | OPEN #▘% TO  RETURN o DEF FN  CLEAR  PRINT - CAT  DEF FN @ OUT  LLIST  RANDOMIZE USR  FOR  COPY ABS O OVER  CLOSE #INKEY$g*j[I]e[K] ERASE  BRIGHT mPI DRAW :SCREEN$  OVER * AND VAL VAL$ CODE  CLS  DATA ▛ INVERSE  CLS  GO TO PEEK = AND Y THEN AT 3 INVERSE aq<>[S]PCODE  RANDOMIZE h}>=[B]x[E]vZ[U] STEP 1[N]TAN  RESTORE f[L]* COPY  TO © CAT  CONTINUE / INVERSE <>PEEK  DRAW  NEXT [K]USR F OVER  DEF FN ▟ OUT  OR @ CAT POINT  CIRCLE  DEF FN  OUT ~ BORDER BIN x[J]6▖qD▜ABS {4[D] REM ASN  FOR ) LET [K]n FLASH ▞[O] RANDOMIZE [Q] GO TO NOT [▟ LINE  INVERSE C▛EXP  TO [I] COPY INT PEEK RND STEP Uyq6[H] THEN bt STOP  GO SUB ACS  NEXT PEEK EXP  COPY S[J][U]COS SCREEN$  GO TO  FLASH VAL$  PRINT A_ THEN ` CLOSE # LOAD # PAPER ▛>=RND[VAL$  VERIFY ▞ARFN ATTR 8/▗ FOR  OUT  LET  GO TO  CLOSE #cPOINT 8[N] RESTORE  STEP [L]PEEK [O] OPEN #E[L]<>] RESTORE {LN  INVERSE  FLASH lINT lSGN PIx5e▜ DRAW 7 PAPER  CIRCLE [F][B]JFN e POKE COS  FLASH ABS  MERGE SCREEN$  NEXT K STEP s[R] OUT :M▝`▚USR  THEN AT h▖▜INT [L]5[F] FLASH  CLEAR -{D; DEF FN AT CHR$ ACS ATTR [D]BIN INT  GO TO  BEEP  OVER ▚ TO (}<=B GO SUB  OVER v▖h[H]INT [E] CIRCLE b, RETURN ▙ GO SUB ▜ CAT g>=[Q]▚ PAPER [K]▟ OVER /SGN vIN  PAUSE [H]>=NOT z▗ AND Z1▜si+▝IN VAL [H]S BRIGHT XPOINT AT NW▙ FOR  FLASH  MERGE ▛©`c GO TO rPEEK INKEY$ CIRCLE VAL$  READ  THEN  TO [Q]LN [U]0R MOVE  ERASE  COPY LEN zFG[D] GO TO [N]ISCREEN$  FOR ae▝O RETURN  LIST ▝ DEF FN ClVAL$ [J]FN {H}[T] IF 5G BEEP 1AT v▛[J] FOR W|X THEN COS POINT [U] DEF FN  CIRCLE /TAB ;▘ INK  AND [N]x<> READ  PRINT  OR INT LEN TABS $K1 DIM C[E]]▞ FOR ]PEEK [ACS USR [L] BRIGHT  GO SUB SQR  OR |T INK  RANDOMIZE j3[G] LLIST  BRIGHT SGN  LPRINT EACS  GO SUB  TO  PAPER [J]▟1~>=y GO TO 5)K GO SUB kPOINT  OVER  NEXT  LINE &VAL$ VAT D TO LEN ▙ AND  PLOT  M READ b[N]FLN NOT  PAPER  LINE  MERGE [I][F] GO SUB  IF INKEY$[L]POINT SQR x-SIN  CLS [B]FINT VAL 4 RETURN ▞USR  LLIST [F]AT /yUw[H]o BEEP  MOVE  ERASE F▗ACS t/▛PIF&ATTR  FOR SQR  PAUSE &▗ PAPER >=[C]▛ DEF FN PEEK CODE ATTR  OR E RUN -rCODE ACS [Fmb[P]~CrATTR e LOAD %f<>CzvFN [K];[N]CHR$  CAT  GO SUB [H]-sSIN TAB xABS  OR  INVERSE  FLASH  RETURN  TO *[Q] RETURN bLN =:1 PAPER [F]C[G] FORMAT ▞U[U]><=5 GO SUB  OUT [G]Z OPEN # INPUT [J] LINE /6 MERGE T DEF FN d[I] BRIGHT  RANDOMIZE  INVERSE  INVERSE [M]hdQb COPY STR$ SCREEN$ ▝[L]LEN SGN  TO INT  RUN rLEN A RETURN a OUT [L]6ABS  LINE [F] BEEP  STEP `▜▞hDf[H]-COS TAB  LOAD NOT !_INT L LIST LATTR  RETURN INKEY$POINT LN  CLEAR # OUT  INPUT  FLASH [N] THEN ATTR ABS LN [P][G] STEP EXP m[N]z FOR yTAB `Y▟SQR [D]SCREEN$  REM  FOR 6 BRIGHT ▝ACS [L]U[I] STEP CHR$ &[K][N]SGN ez CONTINUE  BRIGHT  AND  CIRCLE [K]▛Q[D]G STEP  BRIGHT ABS  RETURN n▗y FLASH  DIM XbM▗KQ,f[J]SQR  RETURN SGN [P] CIRCLE [K][M]- OPEN #SGN [R]NOT  INPUT q CAT  GO SUB  DATA J CLEAR SCREEN$ VAL$  INK [M]t FOR MZLN u INK  GO TO  PLOT   GO SUB ▜ GO SUB jSGN ▟PEEK [K] AND [L] CLS  TO [D]0dX INK [L] LET 5+[K] INPUT i CAT >=H INPUT [Q][I]INT ▞: TO  PLOT   LINE  OUT  MOVE PEEK  FOR [D] RUN  REM ^VAL$ [LN  REM  OUT 8 TO CHR$ ▚ NEXT LEN <=` THEN IN  LLIST ▟1 LOAD  DATA %}PI▜P[N] COPY [L][K]yATN AT G GO TO [O] FLASH  DRAW  CLS W GO SUB  BRIGHT [A]POINT  FOR USR p▙ FOR ' BRIGHT  LINE  LOAD j REM  THEN SCREEN$ U INVERSE  CLEAR 1EXP  DEF FN S DEF FN ▞SBIN  CONTINUE  CAT INT ATTR 2TAB  INK [O] POKE POINT  FOR [M] LINE 7 LINE  SAVE   INPUT [O]RND[K]ATTR  RETURN {[L] CAT ▖RND[N] GO TO  PAPER mSCREEN$ |POINT zCODE TAN VAL INKEY$ABS >=SIN 8u FLASH  INVERSE  CLEAR l THEN [E]CHR$ ▖▖ LLIST yLN  DIM  TO SIN [S] LINE  RETURN EXP 9 OVER ATTR POINT INKEY$f[J]& STEP [L]▜SQR ▛_ RUN [E] CLEAR [J]-[E]<=CPEEK x CIRCLE , RUN  PAUSE ABS  STEP [I]▝ REM FN USR  AND ABIN PI DATA SPOINT ▗<[J]n OPEN # OVER  TO +G RETURN  LPRINT ATTR ▙f CIRCLE 1[K]<=,SCREEN$  ERASE CODE CODE [Q]USR  BRIGHT  GO TO INKEY$ COPY ~Ao IF CSCREEN$ , READ g BRIGHT <= AND / SAVE I[O]>= COPY mq DRAW  SAVE 0 MERGE  BORDER  OR  INVERSE ABS  VERIFY  CAT  DEF FN / REM <POINT  COPY 1/▗ABS g[K],TAB EXP XATN SCREEN$ ,^ LLIST Q GO TO [I];[U][G] MERGE  LLIST  SAVE / FLASH CODE  LIST [R] INK  GO TO D BEEP  OPEN #[G] PAPER  ERASE VAL VAL$  VERIFY  OUT  STOP BIN PI DIM SGN  POKE  MERGE TAB  DRAW [L]ABS  LOAD  LPRINT l[K]▝&9 CLS u RETURN KCHR$ |CHR$ ▚Dtw[L][ DIM CODE  MOVE  BEEP : OVER  LPRINT ATN yK[M]RNDABS  FORMAT [H]VAL$  OUT >= RANDOMIZE  GO TO  CLS [F]* NEW  REM [P]8[O] CLEAR  OVER ? FLASH  AND >=POINT [H][L]>=[H]=/TAB FN  BEEP CHR$  RUN XIN [I] LLIST [N] INK LEN [R]lCODE AT  INPUT V THEN [M] BORDER |POINT  MOVE  CLS ^*[M] GO TO s[F]i DRAW TAN @CODE  DRAW ▚d▞kINT  CIRCLE  CLEAR ATN [L][P]PEEK  MERGE ▞ OVER h▜ RANDOMIZE ▙ GO TO [M]a CONTINUE CODE LN  TO  OR = INVERSE  REM SGN >= CAT [I]e▝ FORMAT  VERIFY [K]VAL$ NOT [M]~ THEN <> INK m[S] CLEAR  DEF FN [A] NEW  GO SUB [L] CLOSE # STEP LN SCREEN$ <=EXP  VERIFY SGN [P] POKE [J][I] STEP  INK  PAUSE [L]LN ABS TAB  LINE  PAPER 6▖<=n LINE G[N][C] TO ,hRND INK  BRIGHT  DEF FN  DRAW  THEN W,▛SQR [M] LOAD [N]INKEY$ BRIGHT ATTR ▗ BORDER  PAUSE y OR ABS xFN c}/[B][J]IxSGN VAL$  OVER [Q]- RETURN y▘PTAB (▝ FLASH  STEP  LINE [J] LLIST ▛LN [T], RUN [U]NOT 0[D]xg;▚INT KATTR  STEP [R]k OUT , FLASH ATTR [T]6POINT - INVERSE iA<>r[E]a[J]EXP [L]PEEK  DEF FN [T]cTAB WugDqAT I GO TO { CLEAR  MERGE :[I] FOR - CAT Z`▞LN {<[F],f[I] REM PEEK [O] REM  RETURN 4 DIM P[J]1k[H]INT  POKE SQR . AND  READ  AND IN  PLOT  Xqz BRIGHT  DATA H OR FN SQR  CAT ATTR  REM D[J] REM <=.Q[I]STR$  RUN FN &TAN  BORDER [R][C][L] LLIST SQR SGN  STEP LEN  AND AT W[E]IN - INVERSE Y PAPER 1SCREEN$  LOAD [M]CODE  DEF FN  DRAW ,u COPY 3AT  CLEAR ^=▖0▞COS . INPUT SGN  VERIFY TAB .POINT  BORDER  LOAD LEN  FORMAT ;[M]sSQR EXP  DRAW  CAT ! AND NOT >=SCREEN$ SGN PI] TO [w DEF FN y PAPER .AT  FLASH ATTR  TO jASN  PAPER  BORDER  DATA  CIRCLE W[P]TAB W STEP  OPEN # COPY ▜ RUN  MERGE  FLASH  COPY *[G]i SAVE  MERGE )[H][N] NEXT LN qSGN ytQ<>SQR ABS AT  NEW G[H] BRIGHT e>=[O]xV PRINT wPEEK VAL$ '[Q]JSGN  CLS ▚[L]- RETURN p FORMAT ]POINT RND=[J]a[B]XABS ▙TAB $[H] INVERSE [A]V▚ THEN  STEP POINT  OR  COPY U`*[R] LET ZATTR 8PEEK COS [L]<=J MERGE  OR [L]SIN ABS ▟VAL$ fPOINT  STOP  PAUSE PQqSCREEN$ [I][K]| FLASH . BEEP  COPY [H]}[Q]c[O] RETURN CODE  NEW SIN W GO TO ZATN ▛ MERGE  GO SUB >ABS i▚ NEXT E▖w DRAW [K]C POKE R VERIFY  IF SCREEN$ INT  IF -W OR  VERIFY  INVERSE  PRINT LEN { MOVE ACS  DIM  REM hU<>[I]a[J]'▜EXP  BEEP v DRAW  RUN ▖ CLEAR ACS STR$  OUT g PAPER c/ STEP [H]E[S]TAB  FOR VAL$ [C]PEEK  IF RND[K][H]x/SQR fSPEEK [Q]*TAB SCREEN$  PAUSE  INVERSE [L]AT %▛F BRIGHT  MERGE <>xATTR [I] BORDER  FLASH ▞ TO [K]EXP PEEK [I]3[I]QATTR TSQR VAL$ 7 RESTORE  OVER  INK $[K]ATTR  CLEAR  RETURN  MERGE Cv1▖SCREEN$ RND[N]PEEK  CONTINUE INT  OVER SQR ▞ GO SUB [B] CLEAR XVPI CLOSE #[L]POINT  REM  STOP !xyPOINT ▟▘IN SGN  THEN y[A] CLEAR [D]FN  RANDOMIZE  INVERSE [N]ykf. INPUT <=jhsCHR$ VEXP PEEK H LINE ax8PIINT &.^NOT [E]H3[M] DATA | REM } DRAW TAB  GO SUB VAL$  INVERSE NOT INT [Q]SGN  STEP  INVERSE  THEN USR  LINE  DEF FN  GO TO SGN [O] RETURN e[P]POINT  VERIFY [M]ATTR [O]▝a DEF FN  GO SUB  GO TO I▝ DATA [K]SGN ▝IN TAN VINT  PAPER SGN  DRAW  INPUT LN  THEN  DEF FN EXP [O] GO TO 6SQR  OVER | DEF FN -[O][N] CLS  OVER ▝ VERIFY ▚= LLIST u RESTORE NOT  RUN VAL$ SQR POINT ACS [O]GLN fCODE { BEEP ATTR TAB  RETURN  MOVE [O] INPUT <>INT  OVER  DIM  STEP  LPRINT [H] REM _ DRAW  INPUT [C] VERIFY F OUT  VERIFY PEEK /TAB  CAT  GO SUB [J]IN  OUT  PAPER  DEF FN  INK [P] CLS  INK  LINE 5▚ LOAD [M]p CLEAR ABS INKEY$qVAL$ CHR$ VAL  STEP hATTR [P] IF  OUT  STEP  DIM  RESTORE 'y GO SUB BIN c REM [ TO q LPRINT  LIST POINT  RETURN a LINE - GO SUB ▙[U]FN  RETURN /ASN [L]SQR  RETURN AT PEEK STR$ ▛ OVER  CLS mVAL$ ^PEEK CHR$ 3 PAPER  DIM ABS COS A LOAD  PAPER :[I]▛ GO TO  LET SQR POINT PEEK SQR  REM +▜fASN TAB  INPUT [E] GO TO LEN [G]G▚[J]fPI FLASH  DEF FN  READ  RESTORE DLEN  INK  CLEAR bATTR EXP K[D]HuX[H]<>SGN  INPUT g GO SUB  LOAD  INPUT  GO SUB [M]SQR wYaTt[G]▜VAL NOT I FOR Cx0 POKE TAB  CIRCLE [J]cg▘yEXP  DEF FN  PAUSE  RETURN /[I]SGN ABS POINT [RND▜yx[B]IPOINT <>NOT  REM .u OVER  FORMAT B▞[L] CLOSE #[N]Z>={tASN AT NOT *▞&g8TAN  GO SUB SGN  INVERSE SQR IN K[L] DEF FN STR$ `HWF▝6)ACS INKEY$O INVERSE * REM +ASN hWQB[G]y PAPER  BRIGHT ▖mUSR VSQR vVqv▞INT AT  GO TO  MERGE  STEP [K]▞%CQU▖ IF wSCREEN$ g INVERSE hABS  BEEP SGN  LET Ng[J][K][K]M▗[ CLS ~Q CONTINUE  PLOT  [C]ABS G6[F] THEN  DRAW 0PEEK  LOAD ▞f1[I] INK [Q]▖jxAaqPOINT  ERASE /qq INPUT LEN  CLEAR FN  DIM USR w LET KLEN [O] SAVE  PAUSE ABS [P] OVER aK3[B]uEXP ▝Q[G]v COPY [R] CLEAR  RETURN  RANDOMIZE /[O][Q][D] OPEN #▜m READ [J]▜ VERIFY gVAL$  REM  VAL$  CLS  CAT jACS [I]iLEN ▟ THEN ▗jS READ IN  STEP :^=P LET [Q]ATTR RND[L]d BRIGHT ▞INKEY$[O]>=[O]▖[I] BORDER {>=IN g▝@ FLASH {PIATTR y[J]w▞[I]hh LINE  DATA INKEY$▙B[I] GO SUB I RESTORE @EXP SGN  DIM VAL$ [J]8e▚ GO TO  CLOSE # INK [P]CODE [P]TAB  REM SGN  CLEAR 7#.EXP aAT  PAPER  COPY  BRIGHT CC:[F][L] LOAD &vSTR$ [J]▝= FLASH POINT AT  CLEAR -] DEF FN m COPY L CLOSE #SGN INT [L]8q▖i"PI GO TO 7s[C]LEN xD▙INKEY$ GO SUB [N] CLEAR m POKE OFN ATN c STEP  CLS  RETURN  PAPER BIN 8POINT aFN Iv INK INT PEEK  INVERSE DINT  STEP RND_[M]AT NOT  INPUT a[O][C] STEP  FLASH [N]DNOT  COPY  ERASE XZ LET ▝SGN I▘ BRIGHT z[E]>=DATN [M] MERGE {uATN ,4[N]PI MERGE [Q]q BORDER XNOT  BRIGHT [M]g>=[N] OPEN #NOT SGN Z CLS  CLOSE #▛ IF [N]*ATTR  PLOT  FN  RETURN INT + CIRCLE XuLN [T]USR  THEN TAB [H] LINE PEEK ▞x LET ▛ TO [B]>=INT ATTR  LPRINT )[N] GO TO SQR TAN [C]<>u[K] INPUT d[Q]BIN ▛1a>=e▖ PAPER SGN  DEF FN ▖ RANDOMIZE WATN NAT 0[A][T][Q CIRCLE  BEEP  OUT INT  RESTORE 1 NEXT  FLASH LN SGN  OUT  INK SGN v8Q@ VERIFY XUSR  REM  OVER  THEN  INK lABS [M] GO SUB [H] THEN  RANDOMIZE SCREEN$ TAB xATN !SGN ATTR COS [L] OVER  DEF FN ATN PEEK ▝lATTR ZABS G DEF FN ATTR  DIM F▖ MOVE ~ PAUSE [O]ATTR L DEF FN x[ PAPER  MOVE  TO POINT  INPUT  CIRCLE `-VAL$ ABS  THEN [L] FLASH  LINE SCREEN$ {[B]AT j LET [O]o LOAD  CLOSE # FLASH TAN [L] COPY G OVER d[U] INVERSE  BEEP  COPY ▙ STEP SCREEN$  BORDER ACS -AT SGN  FLASH [J]9▝▖ SAVE y▖▛ IF  CAT SQR AT  CONTINUE TAB ▛W▝ CAT aSTR$  PAPER ;BIN 7PEEK  CLEAR  INVERSE 9[J]vQ LET [I]ATTR  FLASH ▛C$P INK /[J]{ RANDOMIZE  OVER  BRIGHT PEEK ACS h DEF FN w[K]LN  OVER COS  PAPER SCREEN$  FLASH Qb CLEAR <= OVER =EXP  STEP 9[N]ZSIN uASN  GO SUB ? NEW -CHR$ ▟(▞FN ASN SIN oiSQR  PRINT  GO SUB  CONTINUE  OUT  INVERSE  FOR )SCREEN$  TO d MOVE ABS H[I]v<=[M]▖B LLIST  OPEN # READ * CONTINUE  INK FN <>lx[H]pTAB [Q]LN AT STR$ RND[A] INPUT  ERASE  LOAD ▜ATTR (▜wUu[O] INVERSE  DEF FN <=AT LN  LPRINT [O] GO SUB ▖VAL$  DATA  INPUT  GO TO NZ PAUSE 8▟ BRIGHT [L]xEXP COS [ STEP ▛ DRAW q▗ VERIFY ▝[I]CSGN  PLOT  5 OVER ▜ BORDER ▜[EXP  INPUT <6[N]VAL  DRAW TAB Y;B COPY [T]<>oAT -PEEK ©[E] DEF FN [L]}▖PIvSTR$  OVER RND9SQR KBPOINT USR [K]W!0aPOINT  RUN  LPRINT [L] OVER [M]fEXP  RETURN tui SAVE CHR$ SCREEN$ [K] LINE  CLEAR !-[U],RND GO TO  ERASE VAL x%13[G]INT @[N]<=[K] PAPER >=; RUN < LINE wABS [Q]▞/POINT  GO TO PIASN  LINE ^[K] OPEN #_ PAPER `▛t<= RESTORE -8ASN ▞,FN  INPUT NOT  GO SUB  POKE [L]WVv LOAD + NEW [H] INK  TO BIN  OUT t CONTINUE  ERASE XC)AFN ATTR ▚ DEF FN { AND  MERGE N LINE  CAT  LIST SQR yha[J] CLEAR C- CONTINUE [M]- RETURN qASN  CONTINUE pY1[F] STEP NOT ABS z[J] INVERSE INT [O]e STEP INT KCODE x LINE  FLASH ▖ldVAL$ POINT SGN  ERASE LEN  THEN  TO [L][I]I![I]INT [S][F] BRIGHT SQR POINT [NOT CSGN [J]Wt SAVE ~AT [C] CIRCLE  DATA V▞XA[H] FLASH , RETURN [I]FN ▗[I] CIRCLE N[A]▗▞F2[G][J]TAB ▙[M] OVER [Q]SGN ▞h$1,INT Y THEN  THEN |▜FN  NEXT  LOAD N CLS pW[E] PAPER IN POINT -[H]w- CONTINUE NOT yE1 PRINT ,VAL$ k[J]USR  THEN SGN lTAB  VERIFY  BEEP , STEP  LOAD  FOR pASN ;▖▖ABS *ATN c[O] REM  RUN ▗ CLEAR [L] PAUSE ▞ FOR FtAASN ▚▜ GO TO  LPRINT  THEN ABS k INK u* STEP  FOR  POKE 1INKEY$ TO W▚ OPEN #nO▘.▟ REM [E] OVER  LET - GO SUB  OR r[E]▙ FOR [SGN SGN [ INK [C] THEN E COPY  RETURN INT .eCHR$ CHR$ a[▟ FOR [R]u OR  RANDOMIZE sd POKE [I]NOT ▞e CIRCLE [Q]ATTR j CIRCLE u INVERSE  DRAW 1 NEW  STEP VAL EV IF [F][L]NOT  DEF FN  CONTINUE xABS  TO ATTR ▖Fu INVERSE [J]ATN [G]`[L]j MERGE 9 FOR TAN [S] RUN  GO TO  OPEN #▛L▝ REM ,[A][K] BORDER { OVER POINT OSTR$ [T]EXP g▞ PLOT   AND [L]PEEK >OBIN ]J CLEAR ~D[Q]~ POKE % INVERSE  GO TO pABS [L] BEEP [N]RND LET VAL  RESTORE  FOR [S]+ INVERSE  STEP b?STR$ ▘SIN |ATN /EXP it[J] MERGE  FLASH  LIST 0SGN G[K]SCREEN$  MOVE /ABS [D]STR$ W MERGE ABS [I]x[N]/[K] INK HT CLEAR zg BRIGHT [D] NEXT T▖ GO TO  RANDOMIZE ▟oIN ▘s GO TO  FLASH [O] FORMAT  FLASH  REM  CONTINUE ▙PEEK TAB  GO SUB  PAPER  IF CODE  RETURN [J] CIRCLE  LOAD VAL$  SAVE ▘ OVER  BEEP [K] OR INT ▟ OVER  CAT  RANDOMIZE  SAVE FN  LLIST VAL$  FOR  FOR  RANDOMIZE LN [D] INK  BORDER CODE  CONTINUE ][H] LIST  LOAD  REM  IF SCREEN$ VAL$  CLOSE # DIM [L]ATTR [S] OUT ©rg[L]23 COPY  SAVE  OPEN #AT x-ATTR l[G]7ATN ▛ PLOT   LINE ( CAT  CONTINUE  RETURN [P] CONTINUE [C] SAVE _TAB t FOR [I] RETURN [R]SGN  LOAD INKEY$ FLASH LN <> CAT ▟ABS  DIM | CLEAR  RANDOMIZE [J]ABS LEN  RANDOMIZE o CLEAR  DRAW ABS PEEK  THEN ▜▛[E]I CONTINUE ▝ CONTINUE TAB ©0[F] INVERSE  LET  DRAW N[N] RANDOMIZE ▗ COPY  INVERSE IN <=ATTR  CIRCLE [L]vPIXTAB ATN  RETURN b FOR PEEK [B] BEEP  GO SUB IN  RETURN  CAT = CLS TAB  OUT  DIM INT ZEXP 8 THEN `[H]2, FOR } GO TO y1 INPUT  CIRCLE ▜? OUT  CLS 5#[G]p CLS [ CLS VAL$  RETURN ▛ DEF FN ACS PEEK  FOR i FOR ▞ BRIGHT [I]INT ABS  LOAD PI INPUT POINT !q[P] DIM  NEW  PAPER ABS  OUT  RANDOMIZE [O] RETURN  STEP CODE  VERIFY [P] RANDOMIZE ^ FOR [H] INPUT  REM m DIM ▟ CLEAR [O]USR S[J] RETURN [K] RETURN FN VAL$  REM IN  GO SUB [L] INVERSE >= CAT  INK POINT  INPUT  TO LN  DRAW [O]TAB  DRAW  IF ▝[J]AT LEN  RETURN ▙ BEEP ATTR z OUT |SGN *VAL$ [D]AT TAB  COPY [P]▖ RETURN ▚<==<=[O][E]@AT SQR v[L][U]USR [L]SQR  RETURN  INVERSE PEEK  INVERSE H DRAW  DEF FN ▟ VERIFY  LOAD ▗ASN  SAVE @[I] TO h CLEAR  RESTORE [N] GO TO [D] STEP  FLASH  RUN  LIST AT uAT e BRIGHT Y[I][U]<=[K]6SCREEN$ KFN  DIM #[R]7P STEP QPOINT STR$ z CLEAR ▞ COPY ABS ATTR VAL [D]/ INK [M] DRAW  ERASE [B][M][G][M] CONTINUE VAL$  CLEAR PEEK PISTR$  READ CODE  IF M NEW  VERIFY  OUT  CLEAR 3▞ CAT  INVERSE Y[I] GO TO  INVERSE | FOR  DEF FN  FLASH VAL$ #FN  THEN <>[L][D][N]o?SCREEN$ E LPRINT PEEK [B] OUT  OR  PRINT c>=u.▛VAL  THEN  DRAW >=: PAPER SQR z>=^[N][Q]yx▘ATTR l1 PLOT   STEP 1[C]<=FN <> NEXT STR$ !WPEEK U/{ LOAD  GO SUB [O]▚EXP  CLS  CIRCLE FN  FOR c▙O[N]HQVAL$ cFN *a DRAW  LOAD ) MOVE [R] THEN [U]{ CLS  VERIFY Z LLIST /1 INK  COPY  TO ▚INKEY$Wc- DIM  CIRCLE BIN y%▚ LINE SCREEN$  FOR  LINE  CLOSE #|POINT ABS  RESTORE [S]5[N]EXP Tw FOR ▙ LOAD ▛wUSR = AND  RETURN [O][E]SGN <>>=uTAB  THEN [T] STEP AT ATTR  BORDER TAN EXP PEEK Ka INVERSE LN  LOAD hiH%[F] GO SUB K SAVE  PAPER M[R]ABS [N]INKEY$[L][L]hBLN  GO SUB (SGN SIN [O]TAN 8o GO TO  GO TO  OUT VAL$  SAVE  FLASH  OVER m LOAD [B]B BORDER  LOAD  DIM PIVATN  READ `l BRIGHT AT ABS h[L]PIm REM  DEF FN  OVER I THEN 0<> LOAD # GO SUB [K] GO SUB  BRIGHT < LOAD  IF [F] NEXT  CIRCLE  LIST *< GO SUB { FOR ATN STR$ -[O]<>Y DIM x[Q] READ ~ACS ▞< INK  ERASE :[M]COS  LIST <L GO SUB LN 5▘RND▞AT INKEY$ MOVE [Q] RETURN ~BIN INKEY$ATN  INVERSE  DRAW  DRAW [J][L]o BRIGHT  CLS NOT [G]s▛ OPEN #} REM  OR S▜[L] REM L OVER  RETURN SCREEN$  LET IN WNOT  BORDER  INVERSE )`▘SCREEN$ a= RETURN SQR  GO SUB SCREEN$ FN [A]ABS  PAPER  DIM  THEN {VAL$ [N][H]▝ BEEP  PAPER  TO  CAT [O] CIRCLE INT [T][R]ATN `[N] COPY  GO SUB [ CLEAR ▗SGN  GO SUB [ DIM ;[F]LN  VERIFY  SAVE  STOP hW0[I]SQR  LIST 8ATTR ▞▛rvLN  BRIGHT  INVERSE SCREEN$ ▞. READ y RANDOMIZE o$[K] PLOT  ATN  INPUT © CAT AT ▜[A] INVERSE  READ lwACS  MOVE `VAL$ VF▜[J]ABS [H]▛SIN STR$ rGEXP  CLS PEEK [H] OR 2INKEY$ PAUSE + OR [S]bPIATTR  CLEAR <> READ  LINE  INVERSE [I]INKEY$xBIN @ATTR i[J]▛g INVERSE  FOR  THEN  BEEP q OPEN # CLEAR X{o*PEEK iMSTR$ -[O]w<> RUN  PAPER [L] PRINT USR SQR x<=TAB  FLASH [L]gdFN {▝k BEEP  INVERSE ▞ FOR STR$ _"+ RETURN *4▗▚▚}yPOINT 'ABS LN [O]x▝c▖FN CODE |[G] GO SUB PEEK x▖[D] PAPER [K]<> CIRCLE $ STEP ▛+ STEP Z, COPY +g▚|;ATTR ACS  BEEP  LIST ▗@ GO SUB EXP [L]SQR  REM [J] COPY IN [J]qSTR$ ▙[H]EXP [R][K]▟POINT  THEN  BRIGHT SQR ' BRIGHT [P] GO SUB  THEN [J] INPUT  OPEN # READ IN T READ ACS STR$ IN ATTR ▝ PAPER ABS YG FORMAT LEN ACS  NEW  CIRCLE  INPUT kEXP yABS  CLS ▜+ CAT VAL$ PI RETURN  STOP 8[A]< FLASH  INPUT  LIST [ GO TO l DRAW  READ c THEN [T] OVER  READ INT  COPY  CONTINUE RND STEP <>|7 GO TO TAB 9SGN LN  REM VNNOT VAL$ AT C INPUT LEN V▙ FOR  GO SUB [N] VERIFY  CLS  OR ABS ▚VAL  NEW GPEEK TAN 8LN  CLOSE #SGN ABS vSQR  CIRCLE AT COS PEEK i GO SUB  INK  OUT  FLASH F[B] REM  BRIGHT POINT  TO  COPY  CLEAR IN  INK PEEK CODE 0SGN > LOAD [I] CIRCLE jABS  LLIST  INPUT i THEN  PAPER IN SGN ;[LN yTAB POINT ▟ REM } CIRCLE RND INK  CLEAR SCREEN$ LFN  GO SUB  OVER  OUT  LOAD [N] GO SUB NOT PI INVERSE 9{PEEK DT RANDOMIZE H[G]SGN  CLS [L] STEP IN  LOAD J TO SCREEN$ n[K] FLASH  FOR [K]LEN [L] CLEAR  CLOSE #RND▙[K] RETURN N[P]PEEK  MERGE : CAT BIN ▟ RANDOMIZE  CLS USR  LIST [K] OVER USR 3 BRIGHT  CAT  CLEAR  OR SQR  CLEAR  VERIFY ABS C+ PAPER AT [O]<= BEEP VAL$ fSQR INT [P] PAPER  BRIGHT ATN wACS  STOP gTAB  LINE ▛▜ RESTORE  LOAD  FLASH CODE  OUT 3 SAVE ▘ OPEN # CONTINUE m CLOSE # DIM  LINE C READ ▛▟INT ▙[D] CLOSE #xPEEK ATTR  REM TAB x CONTINUE kTAN  INVERSE  CONTINUE  NEW a[P] AND [R][L]$PEEK  OUT  COPY 0▙ GO TO ASN NOT  DATA [C]; LINE  CONTINUE  GO SUB <>L CAT  GO TO :PICOS  FLASH 1SQR -/AT  PAPER [G][P]▙SQR <[P]7 FOR [R]f OVER 6 CLEAR  DEF FN [L][L]POINT  LLIST & CLS  OUT [E]y LLIST  DIM ATN o▞[S] STEP EXP >= TO AT [G]FN  FLASH ABS Il[M] FLASH  LOAD  BEEP [C] AND " STEP  DRAW [C]▜ LET  SAVE  COPY n IF  CAT b▚ CONTINUE <>`▛[U]] INPUT  FOR W[B]9 MERGE ,[Q]A[J]STR$  INVERSE  OVER ▖[C] COPY TAB AT STR$  DATA  DRAW INKEY$ STOP LABS z|ATTR  DRAW [U] CLOSE #]ABS TAB  BEEP  CLS 4>=INKEY$,EXP  CONTINUE  CONTINUE  TO IN [N]hEXP  RESTORE  DIM AT PEEK [O] FLASH PI CLS  OPEN # FOR  POKE 7 LINE  GO SUB  IF  GO TO  CAT INT  DATA , CLS [M]VAL [C] POKE SCREEN$  GO SUB  CONTINUE  FOR IN  CAT  INPUT ATN {EXP  NEW AT ~PEEK  REM [H]Z<>STR$ 6[M]n[J]VAL$ LN  DIM IN  CIRCLE <> OVER  DIM SQR IN  INPUT aUSR NOT EXP [O] DIM CHR$  FOR STR$ [C]<>[M] FORMAT  RANDOMIZE  DIM  FLASH  OVER VAL$ TAB |EXP  OR SCREEN$ VAL$ ▖ MERGE SCREEN$  BEEP [T]2ABS ▛[L][T]IN qVAL$  CLOSE # VERIFY YPEEK  DIM  DIM  GO SUB h[M]USR  GO SUB  CAT  INVERSE  PAPER  INVERSE ▙ DEF FN [Q] LPRINT  VERIFY [I]▛PEEK  BRIGHT  INK ASN ▝mEXP  BEEP ACS ATTR ACS  INPUT [P]) STEP  IF  PAPER 1] GO TO n[N]<=4- DIM POINT CODE SQR 0 SAVE  OVER  DEF FN <=7[G]zSCREEN$  BRIGHT EXP [N]AT  AND RND} GO SUB O INK IN TAB L<=[N] LOAD  LET [K] CLEAR g DEF FN ▙ BEEP AT  GO SUB INT SQR 0 CAT  IF [D]STR$ [H]IYPOINT  PAPER  OR  TO  THEN zKxINKEY$INKEY$ POKE {>= REM ▟ PAPER [J] LPRINT $[E] LPRINT [L] THEN >=TAB ACS  OR STR$ / THEN o IF  TO  OVER <=LEN ▛C▞[B][J]ava2LN  REM  LIST  PRINT ; CLEAR  OVER ACS COS  DRAW ABS INT [I] LINE  MERGE . DRAW SQR [H]ATTR { FLASH 0 POKE n DATA ATTR  MERGE  FOR  INK  RUN <=>=`[L]▜[S]][ DRAW  RESTORE U READ = INVERSE K% GO SUB  VERIFY  STOP  BRIGHT a[P]▗AT SCREEN$ ▖[G]INT  RANDOMIZE  INK  RETURN EXP INT  OPEN #GXqPOINT [G]uRND; INPUT [M] BRIGHT  GO SUB  STEP }S IF  ERASE  LOAD  DIM [E] LPRINT -USR SGN  DEF FN LN ▛SCREEN$ POINT [K] COPY STR$  OUT  LIST SGN lATTR [C]QEXP STR$ INT INT  LLIST  SAVE  ▙e INK  INK  STEP SCREEN$  STEP EFN A▜[Q] RESTORE  OUT y GO TO ▛AT  FLASH AT 6 FLASH [E][P]SCREEN$ [T]f>=[T]CODE  BEEP [C]:U RETURN xp[M]SCREEN$ U LOAD S MOVE [P] PAPER  OVER  COPY ▟[O]EXP  TO  CAT xINKEY$ GO SUB [N]ATN [L]RNDSQR b7 DRAW [J] STEP b MOVE [E]©[C]4Y▛[P]PISTR$ AT USR hqUU GO SUB  BEEP FN )[H]1I}▖TAB  SAVE ATTR |h6[C]SCREEN$ [B] BRIGHT [E]▝ CLOSE #_LN J[A]i RETURN  POKE LEN INKEY$NOT [S]PIIN STR$ 5ATN [B][L]▗FN 9CODE [I]LN TAB EXP rATN LEN X[I][B] CLEAR /= FLASH  IF /EXP FN IN [O]INT © REM  NEW ▙▘Lnm GO SUB <= LET  BORDER ▙ NEW [I] DIM ▜ PLOT   CIRCLE jATTR PI;▜> OPEN #[U]e<>ATN  CLEAR ATN  CLEAR K GO SUB y MERGE [J]C LET ATTR SGN  READ  LET #][L] IF ▗INT  OUT n OVER  PLOT  m▖[R][B]▞ INVERSE PI2i[E]TAN 4[J]INT CHR$  OPEN # INPUT  PLOT  z1 MOVE ▖<>^[A] LOAD | REM [T] RETURN  CAT TAN  CLS AT g LOAD [J]>=RNDSGN  LOAD [D]m<><> LPRINT s&d[G][O]POINT A GO TO  DRAW + VERIFY  DRAW ASN  DEF FN  COPY SCREEN$  GO SUB  LINE ▛STR$  OVER  FLASH [N][G][P] NEXT  CLS x}FN SGN  CLEAR z INVERSE ▚ GO SUB  DRAW Pws[H]EXP [H]<>[C]SCREEN$ EXP  DEF FN [L]FN [F][K] DRAW  INK &[L] READ % BRIGHT  MERGE VAL$ >=[F] COPY STR$ [N]PI[A] FOR TAB xPI[K]vy▖ABS [K]w FLASH W TO 2RND LIST  RUN [R]NOT ▖ABS  MOVE ' REM %IN  READ mINKEY$ INVERSE COS  LPRINT  DEF FN POINT ATTR [K][K]EXP F REM AT ▞▝ RETURN  SAVE  INVERSE  CIRCLE  OVER  OUT ▞ OPEN # NEXT AT SQR  THEN i INVERSE  FOR RNDL1▙a FOR  VERIFY  LPRINT [J]POINT  TO ▞▞[H][K]IN PEEK w[N] REM [Q]ATTR CHR$ CHR$ ,AT  LINE l THEN +ATTR  BORDER :$ CONTINUE SIN 3IlPI GO SUB xSTR$ -COS  INK AT 1q CLEAR LN R NEXT [P]COS  CLEAR hASN 5- GO TO INKEY$<=[U]g FOR [N]SCREEN$ c INPUT 3▖0dy[T]INT [J]eLN L COPY [P]FN  NEXT SCREEN$ ATN ▙VTAB [M] CONTINUE 6[S][F]ABS [F]; INPUT  DIM ATN  READ [O]#[K][G]2 LLIST  TO  FOR ikLN  POKE s<=mVAL$ <> DEF FN ▙▛L[M] RETURN  DEF FN VAL$ M LINE [L] COPY <= BRIGHT [G]3SGN  PLOT   FLASH cTAN  PAUSE i[C]▖▛ DEF FN  DRAW [L]5INT [U][B] INK TAB POINT  DIM TAN ▚STR$ EXP [J] PAUSE hVAL  DIM TAB S[N] MERGE  GO TO [M] FOR ,[D]WSGN  LLIST T CLS E FLASH [H]▜ATTR <> FOR  CAT  INVERSE [J] BRIGHT ; PAPER SGN LN Y PAPER  PAPER  INPUT PEEK  OVER 2;ATN SGN  FLASH  THEN  FORMAT  CLS ,[F][O]y INVERSE  REM  CAT  DRAW  TO [N]▟i[K][U]j IF INT ▘rPI RANDOMIZE  INVERSE [N]xTAB  DIM  DRAW ▞ PAUSE ▛▛▚ OVER LN :<>▜ DEF FN  CLS [O] OUT GEXP PEEK  CLS EXP  SAVE EXP FN  DEF FN v OUT  NEXT [I]VAL$  MOVE ATTR  RUN  BORDER ATTR  DATA TAB  RETURN [L] DEF FN s>SQR  CONTINUE P STOP NOT  CLS ^ PAPER  CIRCLE # DRAW POINT [O]H~ FOR INT  DATA VAL$ l TO  REM ATTR d CLEAR I|V DIM ▚ INPUT [N]g STEP ATN  CLEAR VAL  MOVE  CLEAR VAL$  INVERSE ATTR  BEEP 1FN k THEN  NEW VAL$ /[L]|[D]Z OVER 0 CLEAR mEXP {▖[R] RANDOMIZE  POKE  BORDER  THEN SQR SCREEN$  LLIST fSGN ▞ GO TO yPOINT ] THEN  RANDOMIZE  DRAW [G] INVERSE  READ ' CAT  TO CHR$  GO TO >=U DEF FN zu INK  CIRCLE  AND  FOR [N] VAL$ [L][J]▝ CONTINUE PI TO [M]INT  STEP  BORDER NOT [M]g THEN  FLASH [H] INPUT <= BORDER TAB *INT  INT [H] LINE  FLASH  TO  STEP ▟C8 AND  FLASH NOT  CAT [C]S LIST [U]! BEEP m GO SUB a[N]▜ CONTINUE  MERGE x[S]SGN  OPEN #PIFN TAB HLEN TAB  LOAD )[N]POINT  INK ▟ STEP [J] CONTINUE |G INVERSE  DEF FN  IF  IF {POINT C<>[I]SGN SGN  LPRINT SQR  INK  RUN cSGN [K]TAB  DRAW !ABS  PAPER <= LLIST 1<=[G][O][S]a|J[U][J]LN  MERGE ATTR SCREEN$  GO TO  AND  CLS ATTR ATN a CLEAR ATTR ▗[K] BORDER INT SGN NOT / STEP  DATA  DEF FN SGN  INVERSE E[D]<=LN  IF  FLASH SQR ATN SSCREEN$  FLASH &COS LEN  OVER ATTR [F]{ LINE  DEF FN  BRIGHT ` DEF FN hdLEN W INK &?▚▗ LINE "9<> REM [M] INVERSE PEEK VAL$  TO  PAPER ▖C$[R] AND  LPRINT M[P]SCREEN$ [E][B]TAN [D] COPY  CLEAR ATTR EXP Q[B][B]SGN  RANDOMIZE -9 TO [J]SQR  PAPER  FLASH m OVER  FORMAT SQR [I]BIN  REM  DEF FN  OUT  CAT  PRINT  BEEP H OR  INK  INVERSE  PAPER SGN  OVER AT ▖INT  INK yd PLOT  ▜ STEP TAN jVAL$   GO SUB J FLASH [K]f[L]z LET  COPY 9 BEEP POINT  STEP  INPUT ▗[C] OUT [A]FN ACS AT  OVER  OVER  STEP [K] RESTORE FN EXP  MOVE  OR  BRIGHT `SCREEN$ [U]9▛ STEP { BRIGHT  DEF FN /  LPRINT M CLEAR USQR  PAPER  AND ! DEF FN nSCREEN$  DIM [▟ RUN @ OVER POINT y RESTORE  COPY  STEP u©[K]ASN @TAN ▟>PI<> BRIGHT CODE B LOAD [C] PAPER ABS [F]BIN LN [G]BIN ▜AT {BIN  INK  RETURN PEEK  PAPER AT INT ABS ATTR  PAPER  LOAD  GO TO  CIRCLE  LIST AT  FOR USR [C]▙POINT 5ATTR  RESTORE t GO SUB  POKE ABS  STEP /SGN  FLASH  BEEP LN  VERIFY  RETURN [R]SGN i4▚ BORDER  PLOT   OUT VAL$ SCREEN$ SGN  DIM G[O]LN  DATA F CLEAR  TO [Q] MERGE  CLS !▖[H]VAL$ C PLOT   CAT  PRINT  MOVE [R][K] IF [T]<>[O] REM LJ[O]Y=RND[K]DFN 9 RUN d GO SUB  NEXT SQR  RANDOMIZE  INPUT ▙PEEK  GO SUB TAN [E] STEP [I][G]TAB  GO TO SIN  NEXT  CLOSE # CAT [N][L] PLOT   GO SUB ▙wd CAT ▖LN STR$ ▖VAL$  LOAD 5COS  GO TO ©PEEK i|>= FLASH cAT FN Z▗POINT  MOVE  INK  DEF FN  CAT  COPY y POKE xSQR  BEEP tFN 1 CIRCLE  SAVE VAL$  GO SUB ATTR [J]i▙[N]a FOR  OUT PEEK NOT INT  BRIGHT V0TAB  INK [U] TO  INVERSE SGN ATTR 0 CONTINUE  LINE ▗{[M]>= NEW VAL  CONTINUE F DIM VAL$ SCREEN$ | LINE [[H] PAPER [O]CSCREEN$  INVERSE  LET pNOT 2 LINE TAB [U]|POINT  CLOSE #xcEXP  FLASH ▜POINT  STEP [E]z RANDOMIZE ▗ LOAD QINKEY$ BORDER ▖▞PEEK ABS ATTR [J]uPEEK SIN [I] ▙[I]PIn[D] MOVE  INVERSE  REM  DRAW POINT [B]1{SGN  CIRCLE q[O] FOR ▖ INPUT ABS  THEN  RESTORE : COPY <= FOR F BEEP FN RNDVAL  DIM [M][P]INKEY$TAN  DATA  RANDOMIZE ABS [H]i INK  DIM  CAT  BRIGHT [A]▚fxag▖NOT  LET NPI MOVE ABS @STR$ jZ▞a INK NOT v STEP  OUT 3 RANDOMIZE [K][M][E]Y[[A]5PI BRIGHT  THEN  FORMAT X POKE IN  MOVE [K]▟SCREEN$ ZSCREEN$ FN u STOP  BORDER 0VAL USR  PAUSE POINT [T]POINT  INK SCREEN$  OUT [J]G▙ FLASH [H]<▗EXP ▙SGN j INPUT POINT >{[H]INT BIN  LIST ATTR SQR  MOVE [H]PIVAL$  CLEAR VAL SIN  OR <=mINT >=^[H][Q] DIM  LINE CODE  OVER  DRAW ?TAB  OUT xPEEK  DRAW [O] VERIFY 3LEN  FLASH 5V DEF FN EXP  DRAW [N] STOP C[F] BORDER CHR$  BEEP ATTR '[Z[U] OPEN #[K]Q[J]ATTR [E]POINT [P]sRATTR [G][S]AT  OR  CLOSE # GO SUB ACS [J]<>}▚>= CIRCLE USR ▛▛ GO TO  LIST RND COPY W CLOSE #1[G][G]<=▝▚EXP ATN ▜N COPY  STEP [K] BRIGHT COS CSCREEN$ y1▟EXP ▞|▜▜▛[G] THEN  BRIGHT  PLOT  ABS +VAL  DRAW CODE LEN USR  INVERSE d[I]y▜ DIM  VERIFY  DEF FN / FOR  LINE 0[L]POINT ?A INK  OVER [L] DRAW  THEN SGN POINT c THEN USR ][U] PAUSE + FOR  TO B LLIST LN  LINE ▖ NEXT w LINE  TO 0[L] FLASH ▖SQR  GO SUB [J]AT 4INKEY$[O]hAiC▜K<>[F] OVER M[U] PAPER 0[Q]TAN rSGN  RESTORE  BRIGHT zINKEY$>=ys▚f FORMAT  FLASH CODE  RUN SGN jwjnRND>=U*S/ASN  DEF FN ATN [P]SGN ▛Lyp[L](S THEN :▛ATTR  CIRCLE tRND COPY [I][I]ACS ▛Thy[G] FLASH ?[/[x<=[E][G]v GO SUB f THEN  CAT  BEEP .aPOINT  FLASH  STEP [G] FORMAT [H] RETURN POINT Y[I] TO  GO TO [L] BORDER EXP TAB PEEK  PLOT  [G] CIRCLE ▖ SAVE m[E] OVER  OUT mSQR  OVER  COPY 5 INK  AND SQR  THEN  LOAD ABS [D]G STEP [P]ATTR INT ' REM  CLS & PAPER  ERASE  LOAD  COPY uMu,. BEEP $ RUN  BRIGHT >ASN [N]VAL$  CLS  DIM  FORMAT USR  BORDER TAB CODE  TO  DRAW  DIM TAB © DEF FN  RANDOMIZE  CONTINUE  FOR  GO TO [O]6 OUT [M]▞ RUN ~ CAT  IF  CONTINUE ABS ~[Q] STEP  REM SGN [O][P] IF  DIM  DIM ▘TAB /▙@ SAVE  DIM ▙[P] CLS n CONTINUE >=.CODE  REM  STEP  INVERSE  IF  SAVE  CONTINUE [Q] GO TO ?o OVER  REM  REM  RANDOMIZE  NEXT  TO ▙ OUT [E]n[P] GO SUB  RANDOMIZE  DIM  STEP  CLS  PLOT   REM TAB ?n[P] STOP ABS ` OVER SGN © OVER  IF  RUN AT PEEK  FOR  CONTINUE LN E FLASH noUSR X INK ^CODE  DRAW  PLOT  SQR a© CONTINUE ▙CODE  GO TO PEEK PEEK $ RUN SQR _ INPUT 7STR$ [D]PEEK [F]NOT gn INK [O][I]j THEN ▙ CLS  SAVE  LINE  GO SUB IN 8 STEP ▘PEEK _ PLOT   PAPER ~[P]SQR [O] TO VAL$ v BRIGHT  BORDER  MERGE 1 OVER g[O]k▞ REM [P]F" GO SUB  FOR VAL$  TO % PAPER ▙?9 CLEAR (WZ BRIGHT  DEF FN  RUN  GO TO SQR FN CODE  IF [P] MOVE CODE IN [G] IF  GO SUB  LET  STOP O? CLEAR IN  POKE  REM [L]CODE  RETURN COS M[I] POKE  CLEAR ▞[R][P] CAT FN IN  FLASH  CAT  NEW  RETURN  LLIST  CLS [U]7 CAT [H] MOVE  DRAW SCREEN$ © CAT LEN  COPY ATTR ~9▚ RANDOMIZE  DEF FN  LET  GO TO [L]fCODE FN 0 COPY  LLIST  BRIGHT = INK o▜d DATA  LPRINT N3[O] BORDER [H]ATN  LOAD ^ CAT n FORMAT  SAVE  BORDER  GO SUB [P]SGN 3CODE <>LN  READ ▙ CLEAR [N]▛VAL$  CONTINUE [Q] GO SUB STR$  LOAD [O]| DIM J LLIST  CONTINUE PI[N]wn PAPER TAN | STOP  AND  CONTINUE ^ INVERSE [P]n CLS  CLEAR ABS  CLOSE # OR  OUT ATTR  MERGE  INPUT  CIRCLE  INPUT SCREEN$  INPUT _ OPEN # RETURN <= GO TO  DRAW LN  CLEAR ▟ INVERSE ?VAL$  RANDOMIZE [G]▚ LLIST [C]`M THEN  LOAD  AND  RETURN [K] CLEAR ~[R][M] INPUT [L] DATA 8[G]hCODE VAL$ VAL$ d FLASH SCREEN$  PAPER x LET  SAVE  LOAD VAL$ Q DIM f LOAD EXP USR : GO TO IN  TO  LLIST  FOR  THEN  FLASH O PRINT  COPY <= RANDOMIZE SGN  OVER  AND ZPEEK INT IN s OPEN #ATTR  LOAD [M]CODE  CLEAR  CIRCLE  IF NOT  OPEN #[O]&VAL$ ATN ' DRAW STR$ ▞LVAL$ USR PEEK  SAVE  FOR  LINE  CAT > STEP  BORDER  SAVE PI LINE ▘AT l NEW F INK  CLEAR  CONTINUE m[P]v. CLEAR  RANDOMIZE  CLOSE # RUN [P] CIRCLE  REM  CLEAR <> CLS ATTR IN PEEK b ERASE  DIM  IF <> DIM RNDo GO SUB  DRAW  CONTINUE  PAPER IN lnVAL$  BORDER  RANDOMIZE  LLIST  DEF FN mCODE [P][O]▚ NEXT  PAPER TAB PEEK  FOR  PAPER ▗[I] PAPER  AND |FN  IF  PRINT  INK CODE PEEK  FLASH SQR [P] FOR USR A LET TAB TAB ~CODE  BRIGHT  DRAW  LET  RANDOMIZE ▟[P] INPUT  DATA ^ DRAW  RESTORE 3 DEF FN <>[D] BRIGHT  RETURN  REM  RUN >=[G]▙ TO  CLS  RUN ▖ TO [N][A]M DRAW  SAVE  STOP IN  STEP USR EXP ©PEEK  RANDOMIZE  CLS  NEW SGN [P] INVERSE ` REM  GO SUB  PLOT   DIM [L] AND Z[O]IN  IF ;SQR ▙IN ABS  DIM }CODE ▞[H] STEP [O] TO  GO TO  PRINT  CLS SGN o_IN  FOR SGN  CLEAR  POKE >=(VAL$ e[M] LOAD  REM 3AT VAL$  STOP f GO TO  READ  READ  NEXT L[G]f DIM  OR  PAPER O[P] FLASH  COPY [J] SAVE AT /IN [J] PAPER VAL$ [O]VAL 1 RUN  CIRCLE VAL$ [O] DEF FN } DIM  PLOT   AND  LINE o DEF FN   FLASH  DEF FN [O]©[P] INPUT  DIM  SAVE  DATA aSQR  FLASH [T]▟AT SGN TAB  PAPER ▝ NEW ~IN  THEN A DEF FN  OVER K[P] INVERSE .8! READ ABS  STEP ▚ PAPER VAL$  LINE ©%X4^" FOR m CAT POINT YTAB  GO SUB  VERIFY 8G FOR  FORMAT [N][O] INPUT = SAVE [M][G]ao& POKE  CIRCLE  INVERSE [N]▝ TO  GO SUB  RUN  SAVE 4u DRAW  POKE INT  POKE + CAT = REM SQR t[A] OVER /x PLOT  4 FLASH  BRIGHT  STOP  LET g>=+▟ VERIFY p CLS  MOVE SCREEN$ TAB ▜[L]B LLIST G DIM ABIN ▚▖ BRIGHT  TO r▟o;SIN ▟Y PAPER IINT ▚CODE  INPUT VAL$ SQR %[H] THEN COS CODE *[D]SQR  DIM [E] CAT  DIM a AND ▗[F]+ DIM W GO TO g( CONTINUE ▗p STEP 7INT © DIM  BORDER FMPEEK ABS [O] POKE SCREEN$  OR ABS  DATA  FORMAT [N]bq PAPER nATN R DIM (▚ MERGE  READ X6CODE 9 BORDER [C]LN ATN ~RNDTAN [Q]>X[H]X ERASE ▙ PAPER  INVERSE  REM [O]}TAB i<=ATTR X PAPER TAB AT ASN ? FORMAT `ACS TAB AT 9▚ASN ▗[H][u REM INKEY$ LLIST  COPY A▖VAL$ } RANDOMIZE HPIj BORDER  BRIGHT  STEP  CLS  GO TO ASN TAB <fIN w6 DEF FN PEEK lPEEK  FOR  DATA 7 BRIGHT NOT 0 RUN EXP [H]SGN  OVER  FLASH 0@PEEK  INK 1 INK AT IN  INPUT SQR 1ATN  FOR x[O]INKEY$ MOVE Y GO SUB : PAPER 9 IF [P]1"<= DEF FN  DEF FN  STEP ([E] GO SUB @ INVERSE `ABS m CIRCLE [P]R PAPER ABS m"▛TAB [P];[D]}@9 CLS  BORDER USR  FOR a LOAD  GO TO ? OPEN #[E] FOR  IF :AT BIN 4 CONTINUE  LOAD  GO TO -ASN  REM  TO ATN H BRIGHT  COPY  # OUT :" BRIGHT CHR$ LEN ABS 1 TO  CLEAR !4?m PAPER 1_ LIST [U]CHR$  CIRCLE [N]`PEEK uPC_$8G MERGE .BIN  COPY 'ZXv STEP W RETURN CHR$ <= CLS {4T LOAD CF LOAD /,VAL$ SQR )P+ RESTORE Y [Q]VAL  INPUT SQR &3 INPUT M*SGN 2m[C]nTCHR$  CLOSE # REM  AND ▝ RESTORE j REM l-^6 CONTINUE PI&w[C]A INPUT LJ.PEEK (SQR @SGN ?%EXP %&JSCREEN$ yEXP l-)2 DEF FN < LPRINT  BRIGHT [R] REM 0[B]K4W15 STEP 1s CAT 5 BRIGHT [C]▗SGN COS $&W BRIGHT 2EXP n"I$n,T STEP ATN - s▟[S][G]- PAUSE 3]pn TO  READ  BRIGHT =' LLIST  THEN q![I]7R[E]IN USR  GO TO INT ▟Nkx[I]FN (▚ RESTORE ^ NEXT ▘EXP bAT  INK RNDsEXP zii OVER PEEK )) CLOSE #LPI9ABS  LINE  INVERSE  INPUT [H]}y FOR F STEP $SIN SIN PEEK 1_P INPUT eATTR ! GO SUB &l INVERSE 59 INVERSE [TAB  COPY  NEXT n*▙ LET 7 OVER SIN  FOR [A]*▖Z VERIFY 97s+ GO SUB r_ PAPER [U] OUT ▟J CIRCLE )ABS R[H]s▜[M] LET W BRIGHT rcOa; DEF FN o FORMAT R<>x6[T][C]BIN [M]ASN i DEF FN CHR$ HNOT ▗NOT [R]▗2▛▗> CLEAR © GO SUB y<> RESTORE  OR  MERGE  PRINT  INVERSE  RESTORE  CLEAR  RESTORE  INK #-> STEP ▗ STEP b▖ STEP s▜ STEP  LPRINT ▗ LET  MOVE STR$  LLIST  INK  CLEAR  LLIST  INVERSE X LLIST  CLS <>! COPY  COPY |ASN >=+" LLIST ▗<>*<>v STEP  FOR ▗>=NOT  LET ▗!AT @NOT USR [A]> GO SUB G GO SUB ^1) COPY ▘J▜@USR  STEP ▜!R AND "PS<>U CONTINUE  STEP  PLOT  !s▛"[J]VAL$  CLS vPI! RUN  FLASH 3 STEP hiU LET I STEP <>D<="zZTAB s0 RETURN PEEK ▙&!c!▚R`q RANDOMIZE ▗v CLEAR [S] PRINT USR m>=USR  DEF FN  MERGE [D] FLASH  DATA  STOP  GO TO  PAPER  GO SUB n COPY  FORMAT  DIM 8 CLEAR } AND 0 RETURN 8 PLOT  #800 FORMAT <> NEXT CODE TAN  } VERIFY ]!▚[F]0 CLEAR on DIM  THEN  COPY  REM  GO TO d[E]#PEEK <> OUT  DATA  DIM  INPUT  OVER  READ  CONTINUE  GO SUB  INVERSE  STOP  BORDER  GO TO  BRIGHT  LLIST  NEW  FOR  NEW L!^#V# GO SUB S"▖" READ USR )pNOT :USR  CLEAR USR  GO SUB i GO SUB [T]A CIRCLE  THEN ~ ^▘ INVERSE ▚[B]a INK !27 COPY SGN  INVERSE ![N]▜ GO SUB [r6 STEP PIS INK `*+ FORMAT [R] LINE 0▜"<>N▝ON4 INK  INK >=-~ATN (5USR -ATN CHR$ [J]▜ INVERSE  DIM w-=0▚ STOP '6- POKE  GO SUB ▜5 IF !▖^> LET 1G COPY }o RESTORE F= J1)[K]1TAB Yr2LEN  RETURN J<>Y3▖ RESTORE BIN NOT  RUN ▜[N]Q▟[N][E]()@[D]>0 COPY ~0,ACS  NEW  LPRINT CHR$ H▖![I]▞"[L]▖d NEXT B!VAL  GO TO  STEP IN ATN [J]`2[O]▖0 LET  CLS ,▖ LINE 4▜* INK 2"[D]/Y▖ CLOSE #NOT CODE 2lVAL [K]ABS [A]CATN  LINE y▖C2JNOT  STEP p NEXT [Q]$<>NOT  DEF FN ▜COS  STOP [M] OR G!ASN ▖^g COPY <>[C]t!NOT [J] NEW ![M]_USR M MERGE  POKE ▝x2ASN y(K![B]<"}6K" LPRINT CHR$ ▛! LLIST @[O]`[R][H] NEW 2▛{2▛ LIST (%| NEW  LIST CHR$ a ▞!# NEW D)INT  FLASH @P)| CLEAR zHT CIRCLE  NEW TK#" COPY [E]K2,h▞0Wg"m ERASE Gg2) TO GFN I▞ MERGE  CLEAR  MOVE  FOR VAL RATN  GO SUB R"+▛ POKE  DRAW VAL [Q]"x0EXP P AND PIPO RETURN :F PAPER PEEK BIN [B]d▚[I] THEN wCHR$ =▞ THEN oCHR$  LET 9[I]8A'CHR$ A!j1[N]zY9!7HCHR$ [A][Q]▗x% COPY !m COPY ~ PRINT  DEF FN IN ACS [J],ATTR  ERASE U, THEN Fh(X CLEAR B OPEN #lPIq: RETURN [N]Q>=▙FN NOT  RETURN ▝IN  COPY ! MERGE  STEP  AND ▚ INK © GO SUB Q CLEAR ~ GO SUB Y_BIN  BEEP >= CLEAR d# LIST D BRIGHT Es▗%%{r▚NOT [G] INK D CLOSE #I INK  AND 5 RETURN J RESTORE ( LLIST  PAPER  RESTORE  RESTORE 3 STEP  RUN  BORDER 1 OUT 3VAL$  INK SIN /2 CLEAR  NEW .B[C]C!O<>25▛Z5v>▛ GO SUB sp▛1 READ ▝TAB ▛ OR NOT  OR 3L PAPER [Q] PAPER  LLIST " RESTORE  MERGE ++ IF 1 MERGE  MERGE 3ATTR 30 MERGE X MERGE =  STOP "L▛ INK  INK 1 AND A NEW  LPRINT ▖▞ STEP  CLOSE #▛s AND INKEY$Q!%A[J]Z▖>ATTR 2[L]▛ACS  oVAL I▜?:▝▛,/- NEXT [J]-[L] FOR [A] AND GgG>=[N]` RANDOMIZE  INK ▜o DEF FN ▙[F]gN,F<= FLASH ▘ READ [B] LIST  [B][P]▙▙ GO SUB  CLEAR }|0 PRINT <>CODE !STR$ [A]- CLOSE #▟"<>▚_S GO SUB `w,q, RANDOMIZE [B]<= INPUT USR pC  RETURN ! GO SUB [Q] OPEN # REM D?2v2INKEY$ RESTORE !ICOS  READ  READ  OR  LLIST k RETURN  STEP  RETURN  INVERSE [L RESTORE  GO SUB / DRAW } STEP  IF -[ FLASH SCREEN$ /[D]RNDe[B] REM CHR$  OPEN # STEP (` STEP  MERGE v[K]0>a>` DIM  LPRINT ,z2BIN TAB 2[S]0▛v6▛ STEP <>(▟:9D'▞STR$  INVERSE z POKE L▟ BORDER ? @ READ  DRAW  DATA } REM ACS  NEW F INVERSE ! OVER  LPRINT ~#8% REM ▛▜8 Z▘( BORDER 8 OR  LPRINT 8▜ INK  ERASE  BRIGHT [A] VERIFY { VERIFY 0P PAPER =[B]` PAPER 3[B]NOT * CLEAR [A]>H[J] MOVE <>0<>( CLS  THEN  THEN 8 LET   POKE {NOT %4 GO TO  PLOT   PLOT   LIST  THEN {( AND  THEN +ASN 4:0 THEN SQR  READ > RESTORE 7 READ  MOVE  GO SUB VAL [H]* DIM PRND0 BORDER NOT X[B] IF  INK } DEF FN )0 AND D'a LET 9pd8 LPRINT 6[N]&USR ?q LIST r▘USR  RETURN © PLOT  USR  NEW USR vUSR © LIST  DRAW  BRIGHT  DEF FN  OVER  COPY  DRAW - LIST % LIST x` LIST  LPRINT USR <x VERIFY r CONTINUE 3 LIST  LIST © DEF FN ? DEF FN USR  LIST 2© DRAW  LIST pPI FORMAT VAL [J]:Q MOVE S RETURN q?3PEEK @_#s8;p LPRINT USR aASN  COPY [S]SQR g RANDOMIZE a[E] DRAW {u LIST =N[B][D][F][P]xF<xIN  SAVE <=POINT CODE COS r READ ▙ MOVE  LPRINT IN ATTR )?5▝2? SAVE  DRAW [T]AT  NEXT ;Re LINE SQR [H]5 LIST W[H] COPY  RETURN  RANDOMIZE K OUT  BORDER k LINE ATN  CAT ▜▟8CHR$ ▖[K]G MOVE Q LPRINT [D]k LINE ?ABS h LIST [S] LPRINT ,IN %?▘0 COPY SGN 3 MOVE '[O]?xVAL [P]▛▟ATN ) LLIST r BEEP  OUT 0[H]5[N] CLEAR [O] LET [O][K]_ DIM qs<=F1FM▞ COPY  RETURN qTAB IN  OUT  READ  DEF FN  BORDER  DEF FN  NEW  INVERSE  RETURN  TO F FOR ▜[P]1▛" NEXT  ERASE  SAVE xL[P]PI▛_?▛I OUT  LPRINT qVAL ?AT  LET ▝IN VAL$ ~5 OUT 'qCHR$  OUT  SAVE 'F▝ePIIN / RETURN kPEEK <=`_{< LPRINT x LPRINT  LIST ! LLIST  LPRINT  FOR POINT  LLIST STR$ [P]6 READ [O][H]▗ LLIST ▝IN [O]_p COPY ▙[M][P]#&? NEXT `IN f2 LLIST  DEF FN  LET  OVER ?NOT  BORDER  FOR  LOAD <©A OPEN # SAVE 3COS CHR$ M[P] CAT / BORDER pFN  BEEP F[F]IN  STOP 8CODE ▜. REM SQR  CLEAR = OUT ▛?▛ATN  RUN IN ~ DRAW  OVER -Kx*<< DEF FN  THEN  LPRINT 5 COPY  GO TO COS !X[P]▗[O] OUT  DATA  READ |[R]©|[E]ABS T COPY  N O@H@I@J@K@L@M@N@O`H`I`J`K`L0KMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR I>=2[J]CHR$ ,[J]> LINE [Q]!0[J]"SGN ▖3 COPY <>aUSR > =(21[J] &Yo>Iw[B] BRIGHT  RETURN ^2q CIRCLE 2[Q] Y".[K]! CIRCLE [I]" OPEN #[U]VAL$ Dd LIST  !▞ PLOT  L/! LOAD [J]4I[K]"CODE b&X<>P>2 RANDOMIZE q?[Q][Q]ATN  LINE [P][J]< LINE [F][J] VERIFY " PAPER ▟[J]▜▜&o)[I][B]" FOR [J]ACS 2 PRINT  STOP PEEK T▝[B]LEN 62 READ VAL  COPY  GO SUB s[K]1 MOVE {? FOR :F PAPER nb:G[A]~O AND wC@O MOVE s[I]SQR [N]+TECHNO LABIS BACK AGAINANDONCE`BODY HASSTR$ WNED y!E▟>W W'CTROLYO?UR?<=HIP9]PLE5(5KU  NEW LF BEEP CALM UDK LLIST k▝ LLIST ~▛[B] CLEAR TO[N]0IXYPEkoF#UK=YCE3L GO TO HC[E]TARICOS )7VOF>=THWHOPPIUSR >6KHZDIGI*LAM▗Mt[Q] FOR ©F%L7SGN oU_TH NEXT jIM[ LIST YFVERY PRINT =G▙▟[D].OyP LINE  LIST 8INT CHR$ SCREEN$ FN ( TO OKE▝[F]PA LOAD 5N0CFOR71![T]BnVAL ▙EXP 1@AT MU[Q]LN rI RETURN .*jCODE 70~{INT ;K[Q][B]RND/ ▚▚ INVERSE  RETURN ~/ LET 8TAB LEN L[F]INKEY$GKFB CIRCLE &[B]Y[L]`▗EQPu4C▛ CLOSE #M[Q]GR$TSo VERIFY /▗OFScWDT( INK YTAB (A[P]:G FLASH L;IN S.E[I]C0PS▛ THEN ▗VUSR [K]T'NOT F1984S RETURN _6N▜TAN  DIM LEN XN THEN [I]HT COPY [O] AND POINT  NEW O NEW  LIST LEN &FN oN{&Xoq/&`Z{<2}[M]$(ASN PLEN [M]"[R] STEP  BORDER  MOVE H DEF FN  CIRCLE [M]SIN [M] LINE BIN [M] LLIST HV CLOSE #[F] GO SUB _ NEW ▜ AND [O]2~[M]: COPY  AND FN 2N OVER CODE D GO TO [M]4NqINKEY$~▝2▝[M]$SIN S2H|" FORMAT "<TAB 10/.-,+*('%$" 22 *)'&BP4%33 AT @#!:>[E]544} a@%{^][E]655k a@INT > RESTORE ]766 LOAD B @ COPY `^>SQR < CLEAR <>! BEEP B @}>]<99 OVER ! ▘)%"||USR uz©▗[A][G][M][S]FN VAL$ COS LN SQR PEEK IN IN PEEK SQR LN COS VAL$ FN [S][M][G][A]▗©zuy~@[H][O]RNDAT TAN SQR STR$ <= TO  CAT  MOVE  MOVE  CAT  TO <=STR$ SQR TAN AT RND[O]P[H] ~y|▘▞INKEY$CODE LN STR$ <> ERASE  INK  OUT  READ  RESTORE  RESTORE  READ  OUT  INK  ERASE <>STR$ LN CODE `INKEY$ ▞▘|▚▟[F][N]INT BIN  CAT  PAPER  DATA  INPUT  PLOT  INKEY$ OUT POINT  PLOT   INPUT  DATA  PAPER  CAT BIN INT USR  [N][F]▟▚▗▛[C][L][U]VAL$ EXP  OR  ERASE  OUT  GO SUB  IF P IF  GO SUB  OUT  ERASE  OR EXP VAL$ [U][L][C]▛▗▜][Q]ATTR ACS NOT  MOVE  LPRINT  LET &5AH>=5& LET  LPRINT  MOVE NOT ACS ATTR [Q]a▜USR >INKEY$LEN PEEK  TO  INVERSE  LOAD 3Kbt~~tbK3 LOAD  INVERSE  TO PEEK LEN INKEY$@▟[G][P]ATTR ATN  AND  VERIFY  DIM  COPY 5Vy[L]EXP  LINE  LINE EXP [L]yV5 COPY  DIM  VERIFY  AND ATN ATTR [P][G]▟CHR$ BIN  AND >= LINE  TO  DEF FN  FORMAT  ERASE  CLOSE # VERIFY  CIRCLE  PAPER  BRIGHT  INVERSE  OUT  LPRINT  LLIST  STOP  STOP  READ  READ  SAVE  STEP  OUT  INVERSE  FLASH  INK  VERIFY  CLOSE #<> THEN  STEP  CAT COS  OVER  READ  DATA  STOP  NEW  RESTORE  DATA  READ  LLIST ! PAPER  CIRCLE CHR$  OR <=<>> MOVE ) OPEN # MERGE  OUT ; DATA  NEW  BORDER  CONTINUE  DIM  DIM  REM  CAT  DIM  CONTINUE "!+ OVER  BRIGHT ^RND> BEEP  READ [O] REM  FOR  GO TO  GO SUB  GO TO  FOR $ BORDER  RESTORE  STOP x LPRINT ~ STEP  FORMAT  OPEN # VERIFY  INK  FLASH  OVER [Q] GO SUB  INPUT  LOAD  LIST 0 LIST  LET  LOAD  INPUT  GO SUB  FOR  DIM  NEW  DATA  THEN  CONTINUE ^> INVERSE  LPRINT COS  GO TO  INPUT  PAUSE  NEXT  POKE  NEXT  PAUSE  LET  LOAD  GO SUB  REM  CONTINUE ATTR ^} CLOSE #] STOP  GO SUB 0 LOAD  LET  PLOT   RUN  RUN  SAVE l SAVE  PLOT  " LET  INPUT 0 GO TO CHR$ PEEK  IF ^>) DATA  BORDER  PAUSE B RANDOMIZE  IF  CLS  IF  IF # PRINT  PAUSE  LIST USR TAN POINT [Q]ATN [Q]▛▚▝© DRAW CHR$ ▘▖▟[C][I][P]INKEY$VAL$ ACS PEEK <= CAT  CIRCLE  LLIST  DIM  LET  RANDOMIZE VAL [U][J][A]▖▝|wtrqqsux}▘▜▙ CAT RNDVAL$ ATN USR  LINE  OPEN # INVERSE  NEW  LOAD  SAVE [Q][E]yrlhedcdehlqv}▗[E][N]PIVAL INT  OR  CAT  INK  READ  GO SUB  PLOT   COPY [A]▗zqib]YWUUVX[`ekrz▘▛[F][P]SCREEN$ TAN IN  LINE  MERGE  LPRINT  REM  POKE  RETURN tjaYSNJHG THEN [D]K ERASE [Q]Y`gpy▘▟[I][T]VAL$ @ MOVE  INVERSE  CONTINUE  NEXT  CLEAR pdZtQ FORMAT ?h; AND 9;>BGMT/eoz[A][M]FN TAN STR$  STEP  PAPER  NEW  LET  CLEAR `TJA:4/SGN @*+-05: POKE  LLIST R[fq|▖[F][S]CODE SGN <> VERIFY  READ  LIST  DRAW PD:1*$ ASN #(.5>GQ/ht▝▙[M]SCREEN$ ATN  OR  OPEN # LLIST  INPUT Y CLS  FORMAT QSIN b CIRCLE  GO SUB [E] INK X PRINT [P]LEN  SAVE [Q] OR [R] DRAW POINT  CLEAR  DRAW -TAN [G] RUN [U] RETURN AT  PAUSE TAN > FOR [C]>}i DIM # OUT  STEP  BRIGHT ^>ATN + NEXT  DEF FN  INPUT ~^ REM >/ LOAD / MERGE ^u>{-[C] INPUT ^> LINE  PAPER j{ OUT J NEXT w^'>] STEP FN `/xXASN Q LET  CAT M LLIST  REM MM LPRINT CHR$ RUWZ^bfjosM SAVE LEN  INK [F][L] RANDOMIZE STR$ PM FOR [J]G[E] IF ©F▘[A][S]QTW[_din ▛[B][H] CLEAR = MERGE  DRAW  COPY ?>`=>?@BDGJMQUY^cVh  CLS USR [D]HD@e=SGN q▝SIN 7CHR$ =@CFJ MERGE NOT X]b t{▝▖@<8q5 INVERSE  STEP [O]/02469<@DHMRW]c3io THEN  CLEAR aSGN T0 SAVE t[L]&USR ')*,/259=▚[I]LQ djqx©▚0,(PI MERGE [G][Q] !#%(+/37;AFLRX^e[C]U SIN = MOVE P!$(,INKEY$@FN   REM  POKE a~P[P]AT  POKE [P]qPEEK [R][O]b[K]IN 4 OVER 4PEEK ,SQR @ DIM [B][G]INT  BRIGHT + OVER L>[O] LINE PEEK ▛[O] LINE [M] LET ^> FOR ePEEK &~[M]ST^> VERIFY  RETURN V[O]J~^i>[H] LOAD ([O]k^^VAL [N] OPEN #>VAL$  LET {~^NOT [N]>`^]/[ZZY[/]^`bc CIRCLE <=jl6or GO TO |©▜XVUTSRRQ TO ST[O] OR XZ/#egjmqtx{©PEXP aKJJI STOP KKL TO CHR$ TVUSR #]`cfimlp!HEXP STR$ DCBBA READ CCDCHR$ 0HJLNPSU▛VAL ^Dilp@ TO EXP <;::9;Q<NOT  CLEAR '$ NEW "W PAPER Da!8L BRIGHT  RUN [Q] OR 345[L]NOT <#aC"LORV[C]!b0wSQR [M] INVERSE 9▝,-[I]BIN 135 AND #<>A▞[N]D{! OPEN # LET  MERGE #"FN !#$%&()PI LET #47:I▞ DIM !▞" CONTINUE  CIRCLE LEN  STOP VAL  #&)[T] RESTORE ^4g MOVE y><ISTR$  INPUT USR  DATA  COPY 7#<> CLEAR A[Q]:/ GO SUB ? >[G]▘_RND OPEN #▜~[S]*~'[T]Z#LEN #" RETURN  DRAW  INK FN  PLOT   PRINT  INVERSE  GO SUB  DATA [C]ASN  CONTINUE  DIM  STEP [D] INPUT  CAT [K] CAT 3 PAUSE [H] COPY  LIST b COPY  CLEAR  RUN >= LIST  THEN  CONTINUE  GO TO /CODE @ MERGE  OPEN # FORMAT  DEF FN  TO  LINE >=<= OR BIN NOT CHR$ STR$ STR$ VUSR CHR$ =NOT BIN RND[D]CODE  AND W INVERSE <>[K]LEN 5 LIST CODE  OPEN #CODE _TAN  GO SUB [K]]y/[G]]STR$ _[P] RANDOMIZE  FOR ▘ PRINT  POKE  PAUSE ▘[R]p[Q]INT <>J PRINT  INPUT [I][O]P[K]AT [K]A"%'INT STR$ . STEP [Q]8[O] FOR  REM k>[N]PEEK wAT 1FA▜ RETURN a LLIST uB/.GATTR x~_[P]| OUT > CLS ATTR DDF[H]ABS EXP  LOAD EXP 8 CLEAR -'!JA PAUSE AT keAT SQR [U]W[S][F]B[G]eINKEY$b[G]v STOP  REM /,!F_DT> STOP 5e BRIGHT sDnMD$vT OUT 6 LINE  BRIGHT NOT [G] STOP n RUN } BEEP W CAT ~ PLOT  )LN N6/>O>o<#CHR$ CODE < CAT #CHR$  LOAD  CLEAR  COPY  SCREEN$ 6*▚KBBIN FN BIN (*;NOT bV]▜[A][S][Q]!STR$ `SCREEN$ FN  LLIST |STR$ [N]▘0 COPY  LLIST } LPRINT [P]@PEEK  COPY l RETURN 8B"x LPRINT ! LIST  COPY A SAVE  COPY  w COPY < *( COPY  LLIST C[T][K]*EXP  COPY [Q]7 OVER CA MOVE  RETURN   COPY ▜`> BRIGHT  COPY [Q]3 COPY * COPY   COPY  ©[A]SCREEN$ [Q]w[A][J]FN NOT [K]|@[O]STR$ ▜* PLOT  _;STR$ <=CHR$ [U]@SCREEN$ @ COPY ![S]FN  COPY  LPRINT  COPY " LLIST LN A COPY * SAVE  COPY !▘PEEK ▚▘ COPY IN ? COPY SCREEN$ ` COPY ▚x©| COPY ! CONTINUE @!IN | COPY ~ COPY < COPY [Q]6 COPY zACS  COPY 0 COPY : OUT [P];▘0 COPY C* LPRINT  COPY @[G]H CONTINUE EXP a4[J]# LLIST K^.>?[P][R]HnyM SAVE  BORDER [B] O/[R] LIST  OUT [M][T]bF[I](SQR y BORDER [R](<[K](  LOAD ( NEXT TAB Hf.!xKbA. COPY ▘@BIN  COPY  LIST C USR  LPRINT ! LIST ▜ MOVE C LPRINT  PLOT   CAT  PLOT   CONTINUE  RETURN ?!USR  PAUSE V_ SAVE  LPRINT >=CODE ▝©USR ? READ xIN  DRAW USR ~B?@ DRAW  LIST USR  SAVE  SAVE ?STR$ ?[L] RETURN NOT  COPY XNOT 4!! RETURN BUSR ▝2 VAL  COPY ! RETURN  DRAW  RETURN   LPRINT  CIRCLE FN [P]0 BORDER  SAVE  LIST  DRAW o RESTORE [Q] OUT [T][A]USR a INPUT  COPY  RETURN  COPY  CAT  SAVE |6 COPY  SAVE  READ CUSR   CLEAR  LLIST | CLEAR @ NEXT STR$   LIST  LPRINT D POKE /. COPY  MOVE  COPY [O]< RETURN  POKE W6VAL  COPY © SAVE  FLASH  SAVE T COPY [Q][M] FORMAT ?STR$  COPY @ COPY {! SAVE ,KQ▝C) OVER ▖ COPY  IF y LIST `PEEK =;9 DRAW BIN  SAVE  OUT 0a OVER ©[B][P] RETURN +b CONTINUE ▝ STOP IN g BORDER  PLOT  @w COPY w RETURN  LLIST  DRAW  COPY  COPY  `[R] OUT _! SAVE @@ OUT , IF  SAVE  COPY <IN PLN  COPY  RETURN @B COPY  LOAD [A] COPY  IF  LIST  INK [U]▗xP). COPY  RETURN `PEEK EXP IN  RETURN N<>T FORMAT |IN  LIST USR ©  DRAW  LOAD [I]@ LIST [O] LPRINT E COPY  RETURN  PAPER  READ  COPY O LPRINT FN >P COPY  DRAW  COPY ▗▖,a COPY [A]D PAPER TAN 5 DRAW |.,PEEK ▘ OUT  COPY  CLS  CIRCLE ▚!IN u[P] INK } NEXT  OVER f<=%[R] OUT ~NOT  FLASH USR a RETURN  OVER VAL [P]NOT  GO SUB  COPY ▝` COPY [P] CAT  LIST ? CIRCLE  COPY 7PINOT  COPY SQR TAB  TO CHR$  RESTORE ABS B5 DRAW 1[R]f<=RNDUSR -PEEK A[I]Y©?[R]!STR$ V@[L],▘$ BORDER CHR$ [R]▘EXP [F]<=L OUT LN  LET [I] CLEAR  DRAW xUSR 9s OPEN # SAVE  COPY  POKE i COPY O▗ BORDER %▘ COPY  TO ? CLOSE #f DATA ▚k RETURN ▙ LPRINT ;RNDb DATA USR  LIST  OUT CHR$  SAVE `INT [P]USR  COPY ▝qUSR 8[O] COPY Ou@ OUT [A]B RANDOMIZE INKEY$ OUT ? SAVE YB! BORDER STR$ / OUT SCREEN$  PAPER u LPRINT [R]bu REM [U] DRAW  TO  SAVE  RANDOMIZE [H] LPRINT  OR hH[Q]{©[Q] POKE ~<f▗▚ CONTINUE  CLEAR LN "▝ STOP ▘ VERIFY USR  RETURN J POKE _[P]  OUT  RUN  LPRINT h[R]SGN CHR$ ▝INKEY$4 ERASE j DRAW &y[F]) DRAW ▜▜STR$  LPRINT ©) DRAW  CLS @K[L] OR  CLEAR 6R8▜ OR  LPRINT 0 LIST  NEXT TAN [A][T]▚ LET SQR B▗▗NOT [O]EXP [P]]K SAVE hQ DRAW  NEXT |/! DRAW P COPY [Q] LOAD D RETURN  SAVE 8 LLIST !=`Y COPY LN >USR / COPY =[K]FN IN RNDep COPY @ COPY m2>tSIN IN [K][F] READ z?3STR$  LINE  COPY  COPY  COPY [I] CLEAR USR [L]?kP COPY z'2CHR$ = OVER STR$ RND LLIST .@ COPY P SAVE  COPY  RETURN CHR$ [R] COPY  FOR G[K]CHR$  LPRINT  LOAD ETAN Dx7TVCINT U;USR . LIST  COPY * RETURN Xx COPY , LIST  COPY  COPY STR$  COPY a[K]▘ GO SUB  NEXT FN + LOAD NOT  LIST w?ABIN ▚ COPY [J]3[M]IN STR$  COPY [I]B SAVE o$ BRIGHT NOT  COPY USR T LPRINT 0 COPY IN USR  COPY  SAVE  COPY EXP  RUN RND[P]hDx?[E]V CLS BSGN @! SAVE p COPY ACS [O]IN <_INKEY$/ COPY 4ASN )USR IN  COPY [M] COPY  LET  COPY  COPY ▗ LPRINT ?[Q] COPY  COPY H> COPY @ COPY [B]Z NEW  DRAW ▘ COPY  RETURN $ COPY 0[U]l POKE  LPRINT aP COPY ASN ▛ LIST 5[Q] COPY + OUT ^ STOP CHR$ x COPY  RANDOMIZE x?L COPY ▝ZP  INPUT SGN  CIRCLE  RETURN [Q]hL COPY r.
  11934 COPY INKEY$3~ ERASE  OPEN #NOT  GO SUB 1 DIM STR$ SIN  DATA  READ 0 COPY H GO TO ! OUT  DATA  STEP  OVER @EXP i▚ DRAW  LET  DRAW 2USR L COPY /9 STOP  OR  GO TO ▗[O]'▝b LPRINT { LIST  RANDOMIZE  RANDOMIZE 8[LN  LPRINT CHR$ RT BRIGHT P# AND x▗ OUT ▘[J]PEEK  DIM |▟K CIRCLE y GO TO  GO TO  FLASH [C][B] OUT  INK  DRAW zE▝CHR$  COPY [F] ERASE ? RESTORE  LINE |ASN ?[M] COPY USR  SAVE  COPY ▗z?© RETURN /P OUT <> INK /] COPY ~Sm PEEK 1a COPY  INK SQ`▚ COPY U DEF FN ? NEXT TAN  COPY ` COPY ][S][J] STEP RND< COPY  CLEAR 0ZhLN G OR  OUT  STOP {~ CLEAR  GO TO [I][J]r!▚▛[S]q~ ERASE SQR  THEN  NEW ~ OVER @[Q] PAUSE ▚ COPY  RANDOMIZE U TO  BRIGHT  OUT  PLOT  ' COPY FN 1 DEF FN ~ LPRINT  VERIFY [S][P]LEN USR  COPY (<=[M] SAVE [U] OUT D LET [Q] COPY ▞ DIM T, COPY  OR [Q][K]STR$  LET  POKE 08USR  COPY P GO TO VAL$  OVER  OUT [R]F0 [F] RUN VAL [E]K OUT <=& DEF FN F[P] MERGE & INK a. SAVE [P]0 COPY Ee OUT  COPY  ERASE  OUT VAL  COPY [L] OUT ( COPY :[P]_NPOINT z PAUSE C OUT M/ NEXT  OVER  DATA [R] FORMAT  COPY m LOAD  LINE ▜8STR$  LPRINT  NEXT  NEW ATN c#_ RETURN ? OUT [M]mIN [D] COPY [G]![Q] COPY © OUT [O]©` COPY Ai COPY  LOAD  OUT  NEXT  RANDOMIZE  OUT  COPY  LPRINT ?5USR  COPY  RANDOMIZE  CAT 8 OUT <=BIN USR /?[M]▛ OUT B@ COPY  LIST p COPY @ COPY i COPY  CLEAR [P][U] COPY  COPY  COPY D COPY  DRAW  COPY   CLS ? COPY ?< COPY @^@ ▘5!(ASN  !STR$ >)NOT SIN `/>`;NOT `[H]^`USR IN )h▚.ESQR ▚▗▝R g rz CHR$ ?STR$ [Q]Ap~r0[R])p2z~~ LLIST Aq Dxp.[Q][M]y@`xx▜ LPRINT SCREEN$  r`AT [R]2>@(10r88▘STR$ h[S]zz[A]%hSIN 8BIN 890pAT PyEXP _00x?[R]xP2PP2TAN ©{(wP [R]ez/ PAPER 2ZP8B( READ ppr1~P LPRINT Pb=8x(NOT SQR aCz+?z▚SIN _PEEK  SAVE Q_0nZ< FORMAT [L]PXZSGN  CONTINUE yM8 STOP `!Z{©?[T]▘ LLIST @▟_ 2▞RND~?H0Z IN -azHHH0>[S]PEEK .0`X2:z[U]9)?X_ RETURN  LET ]FN ?Y▚1 COPY R&~Yyyy LIST ^[S]y AND ;PZPEEK  LPRINT GPEEK ?▘NOT  FORMAT H[L]3TAB  OVER .^8YY CAT |A RETURN ^{x[P] INK >&[O]{[P]TASN x THEN TAB [O]u@_ PAPER N{>=x{PI0>a[O]Wd{HINT > LINE  INVERSE tYL! RUN [P]INT  STR$ r/H? LLIST ?[E]|L POKE [R])z NEW  OUT {{j" RETURN [K]aSIN IN LN  LET [P][D]? SQR ▛(STR$  OUT [O]STR$ [R]:,%,▝f COPY { FORMAT _INT 0TAN AL1A▘K BORDER  NEXT STR$ PISCREEN$ ▗LEN [O] CONTINUE ]_z$ TO  FORMAT %NOT > #x COPY ▘&? COPY VAL  DRAW © COPY [P] LLIST STR$  CLS  CAT  COPY  LLIST LN A SAVE @b SAVE   DRAW  DRAW 16! LIST ?0 LPRINT ~PI SAVE  DRAW < DRAW  LPRINT  COPY  SAVE USR p` RETURN _ COPY  NEXT  LOAD USR  OUT SIN  CLS !COS ; COPY 1 CAT  LET ▚TB LPRINT y LLIST B RETURN STR$  COPY ▝SQR  RETURN  SAVE ` COPY  RETURN !&©@~ RUN USR  DRAW  SAVE `:* COPY USR ? LLIST LN  LIST  NEW C COPY ZUSR   CAT  LIST  LIST A8VAL  COPY P LPRINT 3 INVERSE ▘B▖ LPRINT  RUN  COPY  CLEAR  LET  GO SUB  LOAD [L]▖@ DRAW ,  OUT USR  COPY [R] LLIST Q SAVE / RETURN ▜SQR ▘ OVER  COPY ?! DRAW  SAVE X COPY  LIST  RESTORE  COPY ▖ LPRINT USR X COPY 5 COPY  LPRINT x LLIST _WIN _NOT ~" GO SUB  CLS © OUT  SAVE  RUN ABS  CLEAR  RANDOMIZE [U]A RETURN  LIST  RETURN [I]^IN [S](USR ^ LIST BPI LIST [K]©POINT B[I]@ VERIFY  POKE ] COPY PEEK P SAVE [Q]▝`9^ LIST b?BIN >S COPY P COPY pUSR  COPY b LLIST p CLS ~USR  RETURN [P]IN  IF <= FLASH CHR$  SAVE  LIST !aIN  NEW  PLOT  ▞[Q] DRAW |H INVERSE ? DRAW  LET  NEXT SIN [M]©USR <[R]P FORMAT FN  COPY © SAVE  RETURN ?!▝ PRINT P COPY <=INT  LIST $w LPRINT ! CIRCLE ` COPY 0 SAVE o[O]Bx[T] DRAW {U RUN >= INVERSE  BRIGHT  MOVE  OVER  CLS bNOT `! SAVE q[Q]Z SAVE  DRAW  CIRCLE  RANDOMIZE *USR ▝? LIST  COPY © LPRINT ©=©[Q] COPY  STOP  COPY  RETURN 9 INK ^p COPY 8USR h COPY 1? LPRINT [A] COPY  POKE  INPUT  BEEP 8ATN  BRIGHT  ^ RETURN 05 CLS  CLEAR <> LLIST [U] RETURN ▘ BORDER  LIST USR  CLEAR VAL © LOAD  BORDER B=EXP [L] LIST [P]▗?USR ([P] CLS  DRAW S DRAW  COPY " COPY | COPY [Q]@@ COPY { LLIST  LPRINT ) OUT INT  FORMAT  COPY ) SAVE ba COPY AT  READ [A] LPRINT  LINE  OVER  COPY  LOAD  POKE  LET  CLEAR $/)V RETURN LEN   OR [R][A] OVER [A][M]LN  COPY : OUT p AND H COPY  LET ? POKE | OUT ' RUN /[I]▘ POKE  FORMAT B LIST  COPY  LIST z COPY PEEK COS B DRAW [Q] COPY  LIST  DRAW ©[T]n3 LPRINT  PLOT  #< IF  AND [I]HUSR [C] OUT ENOT ©2 READ  CLOSE #PEEK  LLIST  INPUT " THEN  RETURN INT  PRINT AT PEEK P OUT BSGN x RETURN ' LLIST EXP SCREEN$  LIST M[B]j MERGE  REM ©POINT $<I©) RUN tKUSR ^©J~aUSR x MOVE  DIM ?Ky▘~ CLS  RESTORE ECHR$ <=y COPY >9[K]0 COPY USR :/!/P COPY  DEF FN  CLEAR [B][T]`▜ COPY bPOINT VAL$ BIN AT  COPY / INK ▘ COPY >▘ COPY ▘ STOP K[K]B DRAW  COPY EXP K0 LPRINT  USR L LIST  COPY USR ?? FLASH E?[M] COPY  DRAW  CIRCLE :ABS V[S] COPY  IF U(}a COPY V[N]©CHR$  COPY D' CLEAR x[C]Zj<> DRAW 7'Pq` COPY <= LIST  NEW ▚B COPY  LET [M][O]i[R]` COPY ▛IN  STOP SGN ©NOT e▚ COPY ;USR D▜ COPY + DATA  COPY  LIST [VAL IN  TO  COPY IN -<CCHR$ 0 COPY 7 LPRINT m*INT [P] COPY  RETURN [I] LLIST u COPY  COPY 9[S] LLIST [M] COPY 9VAL$ TAN  RUN X COPY 4▝<IN ▝ FOR  COPY ,|PEEK  COPY 3 TO VAL  COPY  LPRINT C▘ OVER [G] COPY y% PAUSE  ^ COPY A ERASE ?▝▘ COPY  LPRINT  COPY Q[S] INVERSE <=A LIST LN e OR TAB ?IN l COPY + NEXT I>[A] COPY NOT ~© OR B+[Q] COPY ACS [K]Z▚ COPY  INVERSE ;RND[M]▗ NEW [R]CHR$ BIN CHR$  FORMAT  MOVE ?STR$  OUT 8 COPY oSTR$ ▘POINT  LIST  LLIST ` COPY [L]?CHR$  RANDOMIZE ▝ COPY ~[J] OVER FN  OVER M]▚ BEEP ;&▗ COPY % SAVE  REM !a OUT d LIST  TO ▜ OVER ▜ COPY CHR$ ;O?hJ DRAW [A] COPY + COPY STR$ W! SAVE  OUT P COPY USR  NEXT . COPY  NEW FN  COPY 2▗R~!V OUT [S]"PEEK  FORMAT /[A] COPY RPEEK [$> READ FCHR$  COPY [O]ABS P COPY a CIRCLE SCREEN$ 8 COPY =? LLIST  LINE  VERIFY [D]h RETURN [Q] COPY  FORMAT >=[U]USR [I][O] LINE  COPY  COPY TvF OR [E] COPY  SAVE R▛ COPY J POKE  AND  RETURN >b COPY [J]U3ASN  CIRCLE ▚!0 COPY INT  RESTORE / FLASH  LLIST ` COPY [S]BIN  CAT  RETURN [R]o OUT 8NOT CHR$ ▚ GO TO  FORMAT  INVERSE PUSR @ [M]E BEEP &"E` COPY SCREEN$ LN [M] OUT  RETURN [tM COPY  8 COPY ([P] LOAD [K]Z DRAW Z OUT  DIM  DRAW b{▗[O]U ERASE ©[F]o^ASN TAB $ LIST e NEW  OUT ▚USR < COPY  COPY [D]SIN &RND OUT ▘ LPRINT  COPY  STEP  PLOT   DRAW P CLOSE # BEEP  SAVE  OUT [E]POINT  REM  COPY & OUT [U]▝STR$  COPY " OUT V CONTINUE E OUT [P]INT 7 OVER P OUT (|RND OVER  INPUT  READ ▝▝ COPY  LPRINT  LIST POINT 1CODE  DATA ▗[O]H<>8 LOAD I FLASH  CAT  LLIST H DEF FN ?0 LPRINT N READ  LPRINT [G]H DRAW ?>= TO ?▙RIN @eF COPY  NEXT  DATA <>[U] COPY  RETURN ?[M]? COPY  LIST ▜ COPY 0 LET <= NEXT  RANDOMIZE BIN USR =?& RETURN [Q] COPY   LET [I] COPY ?[D] MOVE  COPY , CLS FN  COPY  CAT L COPY P@ COPY IN ` COPY ` SAVE  COPY  LET CHR$  COPY  COPY ;[E][S] OUT  COPY  DRAW [P] COPY  DATA  COPY @Y▘ COPY  COPY STR$  COPY ▝ COPY [J]▝ OUT [A]▘3 CH (( (!H[K]>)Hh CAT ][A]!H CAT [A]_)yIN @}Y~9hSQR } [H]`~h`iZZV` USR f INPUT `&[T]0!))l`p~8p0F/ LPRINT 1=~xx▖ii/USR Vp pBHSTR$ 0t STOP hi ^CHR$ [N] DIM a`hEXP r!!`©d{!ph) LPRINT /2~~20x-▚[F]rt0(8[@ax_~42>RND00rr▝E28x`© OR xGprpH8W?7 RESTORE z?<z[S]2x RETURN LEN  PAPER  POKE {z9PEATTR ~7CHR$ ▝LN #Z[B(X PLOT  K_hO PAUSE ^[P]▚0pCHR$ ?t▜[L] LPRINT +ByLN  INVERSE TAN P0,?H(8r8VAL INKEY$!yH"8P▛PEEK ▘4:80 LLIST ©▙_EXP  <>iY";pSx,yyy[S] RETURN Vy1VAL PEEK p [P]x=ZPZRziYr DATA x{H GO SUB [A] PAUSE 4SQR IN y RUN x>[P]KP CHR$  RETURN ~T BEEP x-] ?vx}+ [H]W▛i}i MOVE !p{BIN Y| 4 CONTINUE ?x[U]yc FORMAT _~SIN ?YSCREEN$ ^%?}H GO TO [Q]- FLASH [T]NOT [P]*JH  OPEN # 3 RETURN H OUT $}SQR `O2[P]2T ▞i RESTORE ?STR$  CONTINUE @44TAN H',[Q][E]4> (Bi CIRCLE ▘ RANDOMIZE !IN !(CHR$ *PEEK  FORMAT 8SCREEN$  +▜a GO SUB  THEN a STEP Pp6}[U]_z[J][K]LN cINT (} F LIST  COPY ▝SGN  DRAW C©a=USR TAB  RETURN z? COPY  LPRINT   COPY ya LIST ▗▚[A] LPRINT H COPY ©_z9@ LIST  RETURN  COPY USR lPEEK  COPY  SAVE # COPY 5 ▘ COPY  LPRINT p COPY @ POKE  COPY p COPY $[O]~PEEK $ RANDOMIZE USR  COPY ? LET zEXP @ SAVE USR  COPY  LET q RETURN ePEEK 2 OUT ©STR$  COPY  SAVE a READ a COPY  FOR z LPRINT 9 LLIST USR VAL$  LPRINT ▜[S] RETURN RPEEK [Q]xtPEEK [D] LPRINT  COPY z]@LN  LPRINT ▖©v RETURN !<= CLEAR A COPY !FN zj[Q] DIM z[Q]0( DRAW `/: LPRINT ▖: COPY qPEEK .z[Q][E]USR < COPY Y$▝ INK Y▝B STEP ▘=Y[E]▝"RND▙USR T8 DRAW q PAUSE BIN Z▘ DRAW  DRAW  LPRINT BIN  SAVE ▞N PLOT  INT p COPY C LLIST  COPY ▗INKEY$0 COPY  LPRINT P COPY Z GO TO SQR ▗o3Z[N]SQR 8 RANDOMIZE eZa[C]M COPY i PAPER R©▘[N] IF [J]_USR !▚SQR  LIST ▘ COPY  RETURN (PEEK [A]USR USR 0 COPY 8A POKE p COPY   LIST R COPY  LPRINT RPEEK ![A] COPY VAL ▗▗ MERGE CHR$  OUT  COPY 8hQ OUT 9Z INK SQR  SAVE 4ZSSQR /$ OUT  LIST  PLOT   IF  OUT [ BRIGHT  IF  LLIST  COPY "[M]PEEK [A] SAVE [K]  LPRINT (PEEK [B] LIST  NEXT TAN  CAT  INPUT [Q] DRAW  COPY  SAVE (▗ COPY BIN PEEK  LPRINT  NEW  LLIST bPEEK  LLIST /A, DRAW [U]' LLIST  SAVE  CLS N©PEEK H SAVE | COPY  COPY NOT ▟TAB  CIRCLE  COPY aRND PAPER  IF  COPY  SAVE  DIM PEEK [M][Q]YPEEK ! DRAW P COPY ▞[Q][M]TAB `O OUT [S] LIST VUSR RNDm?q NEXT ^[S]PEEK  LIST EXP  ERASE PEEK  COPY  MOVE  DRAW x OUT  RETURN Z COPY ( COPY  LIST '▚ COPY y|l LIST USR 0> RETURN USR  STOP -mtINKEY$pUSR  z?)>CEXP  OUT _ OUT  BORDER $USR S TO no SAVE RND DRAW : LIST f POKE ?(?▗ CONTINUE  COPY <=q© LIST 1 ERASE wCHR$  COPY  RUN 00 COPY F▘AT [G] LLIST IN 8 COPY  DRAW T COPY CHR$ [R];[P]+ COPY [P](CHR$  COPY ▟ SAVE a COPY LSTR$  CLOSE #© COPY ABS  LLIST @ RUN  LIST VAL  OUT [Q] BORDER JUSR [P]▚ COPY  DRAW ]▜ OUT SCHR$ B{ IN [J]Z[P]@ COPY ASN  LOAD VAL  COPY ATN ▘[M] COPY 8D COPY B COPY  LPRINT P COPY   COPY B LPRINT [Q] COPY  DRAW @ COPY  SAVE  LPRINT [I] COPY FN  COPY Z RUN & SAVE  COPY  LPRINT x COPY BACS  OUT  VERIFY _ COPY _@ COPY ▘ PAUSE  LIST P COPY ' LPRINT  COPY  OUT ▖ LIST  COPY [P]8P COPY  LIST  COPY USR / COPY 0INT [P]e▜ OUT ▛(} OUT !ASN [P]LN  BORDER  OUT ATTR _ OUT x0 COPY ▟[P]SCREEN$ AT ▘SGN  OUT ▖[P]LN X COPY $ OUT INT PSQR  OUT ▙ COPY 8Tx POKE ?STR$  PAPER x CLOSE #xhx[I]u x[R]xBIN x[Q]xRNDx[E]INT [Q]x[J]x CONTINUE x^~ [A]8 GO TO  LIST ym[J]0fx▘x?@>1 RESTORE  IF  NEXT NOT Q MOVE  FORMAT @w NEW e[S]/ LIST s CIRCLE s PAPER ,[P]▖x SAVE 'Hr LPRINT [O]0 INPUT 8qx POKE ?©pJx▜.@xEXP Q! BORDER  READ  READ USR   COPY ▝SGN  SAVE C?m=TAB  DRAW ,z LPRINT  COPY ▝ RESTORE  LPRINT  COPY USR ▘PEEK ? FORMAT ©INT zP COPY @ POKE  COPY USR lPEEK ▖ COPY  LIST hPEEK VAL$ rPEEK @ COPY  BRIGHT z` COPY  RANDOMIZE ▜aCHR$ PEEK CHR$  OUT  COPY  CLEAR t^?▚dz COPY ` COPY  LIST ▜ DRAW ▗ NEXT  OUT !© READ [P]CHze[Q] VERIFY  DRAW EXP ) SAVE   / LPRINT Hz RETURN !<= CLEAR A LPRINT  COPY USR © BRIGHT [Q]TAB  SAVE 9 DRAW  COPY CFN / LPRINT " COPY ?8PEEK 0 ERASE PEEK cEXP  LINE [Q] LPRINT $ COPY 8' RETURN  REM /CHR$ ▗l OUT  FORMAT z? CIRCLE  COPY S[#▚E LLIST ▚n IF  ERASE ▝ LLIST (▞ IF LN 'E" DEF FN  NEXT Z▗ DRAW | OPEN #Z▗ DRAW >u.INT [C]]d|3 IF <{.STR$ 3B[Q] COPY ▞ COPY "USR  COPY | CAT [G] DRAW Pz COPY  NEW  IF >=|▘ COPY C COPY  LPRINT ▗CHR$  COPY ▘INT  ASN [A]USR ▟ NEXT tZ[S]SQR  LPRINT >hZ[O] BRIGHT PEEK )< OUT   POKE  COPY $u[K]USR P TO  IF  INK ▗Bj[S] CAT [M]PEEK [A] LIST [I] COPY " LIST ▞PEEK  LPRINT [S] OUT q LLIST ▗[G] STOP DZ?M[N][Q] DRAW R COPY [B]cUSR  LET {▝ COPY ;[Q]CHR$ +▝:PEEK pg[I] COPY " LPRINT ▝ COPY  LIST *2  COPY  DRAW  NEXT BIN Z[Q]wUSR Q COPY  AND PEEK ▚TAB  IF 2 OUT  RETURN tPEEK A COPY PEEK ▖ SAVE T COPY "][Q] RETURN <8TAB PV COPY  RETURN POINT  SAVE ASN >= DRAW Z IF  FORMAT  LPRINT SGN  OVER NPEEK PFN  COPY s][C]PEEK  DRAW D RETURN ATN PEEK Y<= [T] DRAW C COPY  LLIST TAN  COPY [K]TUSR X LPRINT USR 8 RETURN ( COPY  STOP  OUT  COPY ( COPY  LPRINT NOT  COPY }▗[B] DRAW hPEEK  RETURN B COPY &[Q]xI| COPY  IN  OUT 5M8 COPY Py COPY ,0 COPY 4©a[O].▝ VAL$  2 LPRINT (USR  LOAD _ OUT  FLASH [S] SAVE *> LOAD }SCREEN$ _f[S] DRAW ? FORMAT s[N] INVERSE ©=#©` LPRINT cRNDw COPY [G] CLS ©[Q] COPY LN @IN  DRAW [O]zSTR$ [P]©a COPY  PAUSE 4 COPY Bv[P]W= RESTORE `[P][I] COPY X RUN X COPY " LPRINT CHR$  COPY + LOAD  MERGE [U] COPY  COPY H COPY ! DRAW   COPY B LLIST  COPY A IF a OUT [R]S SAVE P COPY  INPUT x? LPRINT (t COPY  LPRINT USR  COPY USR B COPY  MOVE ATN  LIST 0 COPY 'USR [P]+ COPY W[A] COPY ._ OUT [B]l LIST  COPY  MERGE h COPY "STR$  COPY  COPY  OUT USR  COPY   LIST  COPY ._▝ CLEAR USR 0 COPY ! LIST  COPY  OUT  READ [P]▜[P]4[I] COPY USR USR  COPY % RETURN  COPY [P]▘[N][R]INKEY$ LPRINT I OUT [P] LIST [Q] COPY   LIST 'NOT  COPY  RETURN TM[P]U  LIST CODE  OUT ' COPY [P]LN  RANDOMIZE  INPUT  OUT [A]= LIST ! COPY 8Tx RUN  PAPER xPx![Q]x5 OPEN #xSTR$  INT xAx REM xPx<> PAPER CFN x[A]x~x▜ LLIST ! LPRINT  PAPER xYYx83
  8001x@>[I] PAUSE  IF Tx|= s▚L STOP ; COPY  NEXT EXP  FORMAT  LPRINT  COPY USR COS ' INPUT 8x▝z LPRINT ECx[H] x/[O] LPRINT  CONTINUE  COPY ▝T RETURN ▖R` LET  DRAW  LPRINT USR  LPRINT  LPRINT pSTR$ ?TaLN A~ LIST USR [H]a RETURN A CLOSE #bd*?LN  LPRINT  COPY  SAVE STR$  >= LLIST a[L] DRAW  VERIFY } SAVE Q AND  SAVE  ▝[L]▝ LPRINT  COPY ▜ BORDER |@[A]CHR$  READ  COPY 6 LPRINT C SAVE @▝VAL USR  COPY 9 COPY  DRAW  DRAW I|NOT PEEK ▘ DRAW  COPY USR  PAPER USR STR$ B LPRINT  COPY 1USR  RETURN /© LOAD  SAVE [L]USR STR$ ,USR [M]!c RETURN BIN  COPY [Q] STEP  LIST p|<>! SAVE ?[Q][P][P] RETURN a▗NOT [U] COPY  COPY  COPY % COPY <CHR$ e LPRINT  COPY  MOVE  OVER  RETURN  COPY  RETURN USR X COPY   SAVE  LLIST  RETURN = LIST  LLIST  SAVE  FORMAT ?USR LN  COPY ▗ LIST  LPRINT > LLIST USR POINT | DATA ?>© LPRINT . OUT NOT  POKE ]@, OUT & RETURN ▜[R] CLOSE #[T]D DRAW  COPY [R] LPRINT ©[{bB LPRINT  COPY [G] RETURN USR © LIST  COPY [I] BORDER 1▜a` COPY p: FLASH  LLIST ▘USR  SAVE <>q COPY  INPUT  RETURN VAL  COPY AUSR  COPY /©4ATTR [O]D RETURN 0[R]n DRAW  LPRINT  LPRINT ©[M]P SAVE LN STR$  PRINT  RANDOMIZE  COPY ©B DATA  LPRINT  COPY >!} LPRINT USR  COPY hIN  OUT X DRAW [S]!`[O] INVERSE  IF  RETURN `CHR$ ?▚ COPY SIN  LPRINT ▚V MERGE  CLS  GO SUB NOT CODE [O][O]X COPY 08 DATA BSTR$ CHR$ STR$ S POKE STR$ C8 OUT ?n©[M]USR ▚ LIST  OUT  SAVE $ RETURN [S](] COPY  RETURN  STOP CHR$ USR [H]PEEK [Q]VNOT HX[I] READ  LLIST  POKE  NEW ( CIRCLE  DEF FN  SAVE [O]<=INKEY$E▝ SAVE  LIST  NEXT  LPRINT ASN [O]+STR$ 0n READ  DRAW  TO STR$  DEF FN IN  DRAW /[L]G© CAT  DRAW [R]1 REM LN RNDlpxs[I]KCOS  PAUSE W COPY PEEK  TO ;? LIST  NEXT #>G LPRINT | VERIFY p>K RETURN x▘!{[S] GO TO  FORMAT  LLIST LN  COPY a[E]b OUT ▚ COPY [R] PAPER  READ STR$ USR POINT />= OR INT 0=▜ REM C COPY  CLOSE # CLEAR  PAUSE H4 COPY  OVER RCHR$  COPY ABS xIN  LOAD  DRAW W DRAW ?[O]' COPY p7[Q] COPY sUSR [I]BIN w COPY _ DRAW  CLS PI?F0|?pEXP ?[A]o PLOT   CIRCLE  COPY P LPRINT ▖ DRAW  RANDOMIZE  LPRINT T OUT Q8 RETURN  COPY  FLASH @8  LLIST #NOT USR RNDT RETURN H CLS ABS [A][Q] COPY  LIST ©0  ( RETURN STR$ AT IN AT  CIRCLE ▝ COPY dIN  LPRINT * RETURN  INK  LPRINT W[M][M] COPY -p~& LIST [O]SCREEN$ TAN  CLOSE # OUT CHR$ [I] RESTORE  CAT [Q] COPY J COPY  RETURN  COPY ,_ COPY ~[U])7bIN Va COPY  DRAW  COPY  LPRINT  COPY [M]0< RETURN  COPY FPIT OUT  COPY < INVERSE LPOINT  OUT  LLIST & COPY  RANDOMIZE  COPY 8<> RETURN  COPY  LPRINT >STR$  READ 8▚ SAVE ▚e  OUT  RANDOMIZE  LIST < FORMAT <=© STOP ) RETURN 3~ COPY   BRIGHT ; LPRINT ASN  THEN  COPY USR bIIN <=UIN  INVERSE © GO SUB ▞ POKE Q*IN  FORMAT [B] LPRINT  OUT  LET  POKE VAL$  MOVE  COPY V$2A FORMAT  COPY  LPRINT  DRAW [Q] PAPER !©o[P]b[A][J][P] LIST  COPY `RND RANDOMIZE ▙ OUT  COPY  OUT 4`< PAUSE ASTR$  FORMAT [g~ LET J LIST  COPY USR < CIRCLE  COPY USR ▚P8 COPY tZ LPRINT [E]CSCREEN$ [J]NOT  COPY  LET p0D LLIST [M] OUT IN [Q] COPY © RETURN > POKE T DEF FN _USR ` NEXT [K] BEEP  POKE USR  COPY *NOT SCREEN$ 6B LPRINT  OUT USR PEEK  LPRINT  MOVE IN  SAVE ATTR =0 SAVE  IF  COPY (V OUT 0©8 DATA C DRAW @ COPY  LPRINT i LINE 8 COPY ` CIRCLE  LIST , COPY  LPRINT ▘ COPY ASN ?LN  STEP Y;ej5 [Q] LIST  PRINT  STOP  OUT @ LLIST >▘ COPY  RANDOMIZE IN I` LIST VAL$  READ  OVER >=▝ COPY   RUN z▗[M]b8 COPY  RETURN ` COPY [E]du RETURN  COPY [A]cNOT  BORDER  READ ▜ OUT [Q]GLUSR  VERIFY ^? COPY M[P] CLS SIN  FLASH  NEXT [Q] LIST  STEP  DATA $ COPY }▛▚ OUT  COPY ; NEXT ' COPY %! OUT  PRINT  READ q FLASH  COPY <3 NEXT W CAT [A] COPY 4#p▚[P] LLIST j SAVE  REM <>INKEY$[P]▚[C] OUT [E] LPRINT  LIST C LET jPEEK @ CONTINUE  OUT  CLEAR  COPY STR$  SAVE NOT  LLIST  CONTINUE  OUT USR M3 COPY NOT  CAT X COPY l COPY  COPY ▜I LET R[P] NEXT  OUT [Q]'TAN ABS ▖[P]; LIST  DRAW %1J BORDER  OUT  THEN  OUT  OR  LIST  STOP  OUT ©V OUT  LOAD  COPY  LET  LLIST 2[N][P] GO SUB @ OPEN #0 COPY 0IN  COPY ^< OUT 7 LPRINT NOT ASN  RANDOMIZE ▚ REM  OUT ▗[Q]A MOVE 6 COPY  STOP VAL  PAPER  DRAW VAL i<~©[P]▗;:IN  OVER [T]X0<G RANDOMIZE ( GO TO  DRAW  LOAD  MERGE 2ATN !▜ COPY {Z IF (X CLEAR xVAL$ c INK LN @Z![H]!6 LPRINT 5 DRAW ▚ DIM PEEK . SAVE [P] RUN  IF  USR [L]<▗E[N]`▘ RANDOMIZE  IF ▙ OR [P]} COPY STR$  COPY !▘ COPY  LPRINT  COPY USR  OPEN #/©IN  LLIST A COPY NOT = OUT  LLIST A COPY [O] REM @ COPY P RETURN F RETURN sEXP # OUT / PRINT ACS  CLS NOT  DRAW  CLEAR ▗ OPEN #< LPRINT ▖ COPY Q LPRINT  LIST  FORMAT  BORDER @ COPY 8 RESTORE s?x COPY & IF B RUN  COPY USR k<=- READ 0 COPY ! CAT ' COPY + RUN _[L] PAUSE [P]Br<<= GO SUB  DATA BIN : COPY  DRAW  COPY ![U] OUT x_[N][Q] RETURN  TO  COPY  LIST 3vk~NOT  COPY >=▛ OUT ,▝my CAT w [O]8 COPY *?STR$  PLOT  [R]BH;▗ OUT !USR > FORMAT  COPY  NEW [A] COPY  LINE [R]USR  COPY  LET  BORDER  LPRINT =[A] COPY  LLIST 8/[O]LEN  COPY  RANDOMIZE  SAVE 9 DEF FN sBB[S] LPRINT  NEW i RETURN 0 COPY CA COPY [G] OVER ]C SAVE  COPY  CLOSE # STOP ▝ COPY  DRAW STR$  COPY  STOP SQR < COPY ! DEF FN  DRAW VAL [T] NEXT  NEXT [J] DEF FN ▘ RETURN j`IN  COPY  DRAW USR @ COPY ~▚STR$  COPY  DRAW  COPY  STEP  STOP CHR$ ▖>  OUT LEN ▚ STEP  COPY J IF  GO SUB | COPY ©[F]~ DRAW  RETURN  OUT  RUN  COPY  BRIGHT  LPRINT  COPY VAL  COPY INKEY$ COPY CHR$ PEEK  OUT $M OUT !|p OUT ] DRAW SIN  MERGE  OUT C@ COPY  CLEAR ▚IN  RANDOMIZE  VERIFY  LLIST ~ IF  OUT ▜STR$  COPY IN O GO SUB  FORMAT <[H]p LPRINT x~xCxO0▚PEEK A@_8>>x8 INK {{@y~B~ LOAD p>C7[d{8,?:dz0XY{z4@p*Pz;@▝Xz9LN >`X CLEAR @z:▚?2:{Y!3}^ LPRINT Z[P]Y[N]_ OUT  PAUSE  ▞ LPRINT xyNOT azx BRIGHT -:~▜IN ▝STR$ z READ [N]A LLIST P{!s*r~ LLIST >[H]??X{ LLIST +[S]Y RETURN X>{c STOP ▜XYCOS  LPRINT .;{~ CLS }_▚=b[R]!▜PJ2BH8 VERIFY [O]"{ZYY INVERSE X DATA iLN  DRAW :3[M]K?Ey;y CONTINUE  RETURN IN ?[L][L]x OVER CXSIN Xz_>ABS QCHR$ >xO.3Y~ DIM ©{"x#_ CONTINUE `[N] DIM Ydx}[M]/ PLOT  >{[B]y_ CAT  FLASH INT 4~ NEXT OWl INK SQR q]){ INPUT # COPY ?[▗{xIN &}_a[P]<>M~ FORMAT [S]e READ */Y{[R]'8 OUT GbSTR$ SGN NOT  RESTORE IN {i LIST  LIST EXP PEEK [[P][J]vY<zE/ ,[F]?z RUN <=pABS |^ LPRINT [R]y[L]?!}e STOP _;xPvQ OVER z]P|?5~©RND{Pz▗ GO TO  OUT {ABS  MERGE CHR$ !?~ CONTINUE ]?*z,PEEK %CSGN  VAL [O][H]a OUT I READ  NEXT =CHR$ WSQR  CAT ?YSTR$  THEN [R]~z>xN_dFN zZ~CPEEK  INPUT [F] LPRINT ©r▝[P]P COPY ABS [T]KX▖(NATN ?rw[H]=_ApmaWSGN d6?XC|7_) DRAW s!X;?![K]
  42050r:+>=e<>BPTAN ▗ CLEAR '>>? COPY ▝Yh] DRAW BUSR  USR @ DRAW @© DRAW  LIST !NOT Q7 READ  RETURN ▘@© LIST  STOP  RETURN © OVER >= LIST ▝▝_ RETURN ? LLIST  RETURN  LPRINT p p LPRINT !?[U] DRAW ▖}lCUSR  USR [I]@? CLEAR x COPY 6[Q] COPY <| LIST XUSR A© COPY  LPRINT ?USR USR  COPY a SAVE SGN ©[K]?USR ? RETURN NOT 8STR$  COPY / LPRINT |▗/S COPY  IF * COPY  RETURN  DRAW C LPRINT A▝[I][M]? LIST ©A CIRCLE  LPRINT  COPY PABS CHR$ STR$ [M],`▖©]©▖>??b  COPY [P]  DRAW  RUN ?STR$ B[R] OUT [C]SQR 8▗~ LIST  SAVE , COPY L= LET ▚ COPY  LPRINT ? SAVE > LIST < COPY 4 OVER  MERGE `DZ DRAW 0[R]& LIST [Q] READ USR  COPY >= COPY  SAVE  COPY  LOAD LN  COPY , LPRINT  RETURN ec COPY [M]e▘H/SGN LEN STR$ A DEF FN  READ  COPY ! DRAW SIN  OVER LEN [N]COS [O]NOT [O]LN i▝SQR NOT  GO TO  DRAW  NEXT  BORDER  TO  DRAW  COPY u THEN  LPRINT `▛ SAVE ▝ RETURN @ COPY D<8B@ LOAD  RETURN ▚>USR  LPRINT {STR$  COPY IN  THEN [L]/  LPRINT  PLOT  ASN  OUT < LPRINT p COPY  LIST ? READ  DRAW  OUT x GO SUB  RETURN I RETURN M INVERSE [Q]<> FLASH  COPY © IF  LPRINT ▜USR / COPY ??CHR$ ;0 LIST  RETURN COS @STR$ . COPY C COPY CUSR 9[Q] GO SUB SGN h_/?>1__ BORDER  RUN  RETURN  DRAW  POKE }<=| SAVE OCOS xy[M] COPY d OR  OVER [U][R] COPY NOT }▝ GO SUB ▚▟USR ASN `a[K] DRAW !/IN l SAVE p?I8©[D]TAB  PRINT G BRIGHT PEEK W OVER RND LIST ? LIST < DRAW  LPRINT 8▘@0Ep LOAD ,p{[P]LEN USR USR STR$  COPY  SAVE FCHR$  COPY [Q]`<~zBIN 0 BORDER  LOAD VAL  COPY  RETURN {[Q]4C CAT * COPY [P]~du[P]▗ COPY <>p?-[Q]IN  OR SGN <B RETURN /" COPY p AND  LET  COPY USR [I] COPY *=▟[R] LPRINT ` COPY  COPY JJVAL  COPY  OR Ix©!y CLEAR  FORMAT  COPY ▝FN  OUT :! LIST @VAL  COPY @| RETURN < BORDER F COPY PIV COPY  COPY  INPUT B CLS [Q] COPY ©=B OUT  RESTORE ▞▝IN 0 COPY ▘ CLS xCHR$  COPY NOT IN #P CIRCLE  LPRINT ` AND SCREEN$ [F]3 SAVE STR$  COPY  LPRINT  PLOT   COPY STR$ 2< OUT  LIST aIN J© COPY < COPY _LEN  BRIGHT TAN  OUT ! RETURN  NEXT p COPY H COPY #* OUT  BRIGHT  COPY USR >CHR$ f LPRINT  COPY USR P9 RUN  CAT F DRAW PIV COPY C RETURN X LPRINT PEEK CHR$ ` COPY  LIST d COPY CHR$  DATA  INVERSE  RETURN ▝ COPY  LPRINT a CIRCLE @ COPY [P]P COPY [A] LIST <=? CONTINUE oM<?VAL  COPY  | POKE  CLOSE #TAN INT  CIRCLE _ BRIGHT ce BORDER USR [M]{ COPY  DRAW .IN  STOP ~ RETURN P COPY <>_`A COPY  COPY CHR$ = LPRINT  OUT [B] COPY 8O_ CLEAR sCOS  COPY [P]G LPRINT  OUT Y LIST ~ RETURN  DRAW SCREEN$  INVERSE C COPY  POKE [I]© SAVE  LIST   COPY 0USR  DATA , LPRINT  COPY 0[A]NOT  COPY p LIST  OUT ~ABS [R]▙` COPY xSIN  COPY a COPY  LPRINT  COPY  RETURN [Q] COPY H COPY AT TAN USR  LPRINT ▝ COPY VAL$ [E]:©TAN  DIM i>B COPY B[H] TO  READ  RETURN  LET NOT  COPY  SAVE <;` COPY 9ECHR$  BEEP > LET b[S]: DRAW g CONTINUE  OUT > RETURN  FLASH  SAVE _USR (EXP U COPY ( INK SGN AT  COPY  CIRCLE a NEXT POINT  SAVE 78` COPY VAL  OUT © PAUSE  STOP  STEP ATTR 0z8▚▚LN [J],0[P]zRNDIN TUSR  RETURN NOT  PAUSE  LIST ▝ CAT [D]_&USR   COPY ? DRAW ▚ COPY <>SGN </ OUT J@▘AT  LOAD >=▜^ OUT FN A! SAVE  BORDER j OUT NOT  COPY  RETURN lX COPY xMPEEK KT[G]<= DIM L[Q][P] CLEAR  CIRCLE I OUT U5` COPY p CONTINUE  OUT ▝,▛ PLOT   COPY  IF  LOAD q[Q] MERGE [P]INKEY$ OUT  PRINT [E] OPEN #V&#0[A][P] STEP [Q]; RANDOMIZE ECHR$ CHR$  OUT "[H]LB LLIST  CIRCLE  GO SUB  PRINT  LLIST ] OUT [J]0bnNOT ▗ OUT 2 COPY [D]R FOR NOT   COPY ` RANDOMIZE  LLIST  CIRCLE [L][T][U][P]<=<= MOVE STR$ [C]~m▘CHR$  FOR  REM [P] O DRAW  LIST  DATA <LN  RESTORE F OUT ▘ COPY  LPRINT  INVERSE ▚4 OUT n[T] LET  LINE PEEK H OUT S LPRINT [A] INPUT 3</[A] COPY IN CHR$  COPY AT  BRIGHT  OUT dVAL  LPRINT a4 LPRINT ACS  OUT ▛ FOR | BORDER [S]?H© CIRCLE / RETURN [M]1 RESTORE © OUT 5 COPY < BRIGHT ; LOAD ▖ FLASH  LLIST COS  INK ©PI CLEAR h SAVE @DUSR <= PRINT x MERGE USR $ SAVE  NOT / COPY  CLEAR DSTR$ s[A]j▝ CAT  GO TO [G] PRINT U RETURN ▖[B]>=Vb NEXT  FOR RND DEF FN [G][Q] CONTINUE  OUT 8 VERIFY FN  GO TO  CONTINUE [A] PAUSE 0 MOVE CHR$ USR ▞[P]8 SAVE  THEN >©USR c FORMAT EXP ( FLASH  RUN  DRAW  AND [Q] GO SUB  OVER  LIST E▚▟[O]E THEN [O]<P COPY  LLIST (_%b@ OUT  LOAD STR$ CHR$ [L] COPY w DRAW ▞ COPY 2 FORMAT Q READ 3" COPY  TO ▚&<Q▜ OR PSQR ▗ LPRINT USR ?$ COPY  RETURN ▘ COPY  INVERSE CHR$ T " COPY  LIST 9[D] SAVE  INVERSE )[I]IN .© OUT USR  LOAD  LET ▜A COPY  CAT [U] INVERSE STR$ # DRAW q#' PAUSE  LLIST J COPY L<©P GO SUB  COPY 0[I]>=BE COPY LEN 3 COPY [E]J© COPY  DATA CHR$ $ OUT  DATA H COPY X LET USR  ERASE ©IN w© COPY ▝ RUN  FORMAT ▜A COPY  RUN [R][O] LPRINT  COPY [J] LET ([U]>INKEY$!1 DEF FN %[R] COPY TAN  LINE & COPY  DRAW © NEXT " OUT ! RETURN 2 COPY USR [J] COPY $ RUN  LOAD  REM ABS  COPY C? LOAD [P]<CHR$ 2a PLOT   RANDOMIZE IN g< COPY < COPY ▘ BORDER  COPY  LLIST  DRAW e FORMAT GVAL  COPY L BEEP [E][U] LET  COPY s©`# OUT t[C] COPY ▗ AND SQR  CLOSE #c LPRINT [Q]9USR ?[J] COPY i LOAD  COPY  DATA ▗[T] COPY ,<= OUT )[M] GO TO ▗!@PEEK ▜ COPY  COPY ?▜C COPY _^ READ |~!Cp COPY a▝0 COPY  NEXT B RESTORE  DIM IN $[O]4( RETURN [G] CLOSE #▞ LIST  COPY ©[T] COPY  SAVE IN ATTR  POKE  LET  SAVE IN >STR$ BL COPY R% LOAD IN  RETURN  OR , SAVE Z{ LPRINT s" POKE [B]* COPY [P][ASN  OVER T2 COPY [Q] OUT USR  READ  READ INKEY$ BRIGHT  PLOT  RND COPY USR [P] CLS ▘▜ DATA ABS ~▗▚ PRINT © BEEP ) LIST  COPY ▝xD COPY ▛ CLEAR  COPY $}0 COPY  RETURN ©Z[F] DRAW h OUT  INPUT  DRAW [Q] FLASH  POKE  COPY C[H]p  LLIST pxNOT Ex~CUA[Q]@x[F]x[A]~~CHR$  USR [N]rr LLIST TAN >{2p PLOT  [;|B8 AND ?z{^:T:e,?:er^:NOT ,?2{z:C~m[2[A]B~pFN X4y;©:.?s1[rX2P[K]28r,_,0r[Q]Hs~X? 9%2z$~(0. LLIST "f?[Q]({dP8x;h AND 2p#{▚Myc[I] READ STR$ [A]x{ CONTINUE ?xpp!TAB ?x&USR PATTR P[C]> OUT ,[N]t©~4[S][P]TAN {02zy{p BRIGHT br!0 OUT t BRIGHT [K]Y[A]AHINKEY$ INK [K][Q]h}]Q MOVE  LLIST  LPRINT P©SIN r@STR$ ▗y▚Y:XP[O]~? MOVE _y} SAVE [L]P:2r5[O]SGN  LPRINT  OVER !r[B]?r; CONTINUE |yW<6Z RETURN B~ FLASH };~ AND [U]}v INVERSE 9qHx[K][K] INVERSE ,{ INVERSE [C]rr RUN :mH~$B_{[U][E]rSGN RNDPIEXP WCODE iA[R] CLEAR EXP _ SAVE q) PAPER  RETURN ;yy RANDOMIZE ©SCREEN$ ABS |=CHR$ gL}#i[G]:;RND[E]xkh:[A] OUT  LIST !CHR$ ▞ OUT Qy STOP  OR [P]xk*oRND LOAD X NEW &[P]/+ POKE _▝ PAUSE !8z~>=Zzl?!>xdH[J]_ READ [A]xPTAN FN {: LIST [P] TO PzLN [? DATA 8] PAPER xVAL ? CLEAR [F]y[U]▘+?/ LLIST 5? CLEAR   OVER ,SQR ABS 4~-BIN USR  LIST [E] COPY  NEXT <SCREEN$ ?2▝!YpPEEK ▗SCREEN$ IN  BORDER ▗ RESTORE _L OVER {[~ FLASH Hj FOR [Q]+USR ▘{X[P]2Y CIRCLE [Q]XXj? INPUT [P] DEF FN  X!J DRAW VAL$ ? LPRINT  FLASH  IF SGN [T]=p0▚ FORMAT ?p INVERSE ?8P CAT =x OUT LrB OUT USR 4) PAUSE >[A]XZCODE e"<Z GO TO [Q]:@ COPY ▘@[N]0C [A] OR  RUN ABS ▚@ LPRINT USR ? LOAD VAL BIN  RUN Y?SQR  RETURN >[I] CLEAR  NEXT -USR $ DRAW ▟ PAUSE @<= LOAD ;l RETURN [R] FORMAT  COPY #,NOT W, SAVE  OUT A©, TO % PRINT  COPY ,}[G] COPY  FOR -9pC LIST / COPY EXP f: STEP ▖© COPY 8 COPY  LIST @=!<=IN c SAVE ▚▛[ DRAW  COPY ? BORDER  COPY [E] LPRINT .C[I] RETURN GFN  COPY <=FN  COPY [P] LIST tO IF 9 LOAD  READ # CONTINUE ©USR 8 COPY `CUSR , OVER IN 2 COPY  OUT  CLS ▞  RETURN ▘ LLIST [P]U[O]!/[Q] COPY  OR [Q]▖ RETURN B RETURN  AND [P] IF 03j[N] DRAW [U]>= COPY t COPY  COPY ?SIN [R] CLS ` OUT [E]@SGN ▗© DRAW 0>USR VAL USR  LLIST !r? CLS ` COPY B▟▖ CLEAR % RETURN @B[U] COPY  LPRINT 0/ LIST <B<=▘ SAVE 3 REM [M] DRAW  POKE  FORMAT  LLIST  RUN  PAPER [N] LIST ▚ RUN USR ▜USR  COPY PEEK USR LN SGN Cx[A]LEN  INPUT ) *=G COPY USR * OUT <=▚ NEW  INK = AND [P]!▛B# DRAW [J];@=9▝ COPY  POKE  LIST [Q] RETURN CHR$  LIST  CAT  OUT  RETURN ▝b OUT  GO TO  COPY  LLIST ACS STR$ !8Q GO SUB ABS * <=IN  NEW ! LPRINT  COPY  SAVE ▙[I] PAPER  LLIST  CLS NOT ▝ COPY 3 CIRCLE [Q] COPY SGN  IF [H]©e LPRINT ▗ LET [D] OUT 2 COPY USR  LET M LLIST R COPY ▘ COPY  LPRINT I[P]B[U] PLOT   CLS VAL  OUT . OUT !R OUT < PLOT  [O] LIST VAL  COPY j[P]/ INPUT x INVERSE © COPY  RETURN ▛>=@z@8~ FLASH B?▚_[B] RETURN  ?USR w!▝©E[O] GO TO @?! LLIST * LIST  IF  COPY  LIST b[Q]© GO SUB  RUN ?P8 RETURN  LIST D? CLEAR LN  <[R]2 SAVE USR USR v COPY M?[T][C] LET w% CLS  RETURN FN  INK <= IF  LET [S]CHR$ L DRAW <~ SAVE iU LIST q LET p??LN  COPY INT  FORMAT [L]ATN > CLS [C]ACS P#`^EXP ! SAVE P[M]VAL  COPY [T] FLASH NOT [P]2 GO TO  GO TO POINT SQR  CAT ▘ COPY  LPRINT ▛[K] RUN STR$ ©pBIN vNOT ?*bSQR  BEEP  BEEP  COPY Et COPY  RETURN ;!d8 READ >=CHR$ STR$  COPY ©@ COPY  LIST [H] TO 1 LIST  PAUSE  DRAW PEEK ▗ OVER  NEXT  INK #x LPRINT  COPY y, COPY y CLEAR ▜[C]<=USR  COPY ASN ?USR 0 NEXT 1  REM ATN  INK [H] LIST  COPY  SAVE [Q][T] CLS [T] INVERSE !F`P COPY a DRAW [B]▘k▛> OVER  COPY  SAVE  CLS  LIST p RETURN  OUT IN , COPY M8STR$ [O]p[T]USR D" COPY  SAVE  CONTINUE PH▘ [U] CONTINUE  COPY L?IN TIN  LLIST  STOP [I]IN  BEEP  RETURN SGN IN w4 COPY ?▝ COPY  PRINT 9LN [L] NEXT  COPY `[T]>= SAVE ▟ COPY IN  COPY P0 VERIFY  PRINT 'FN  LPRINT  COPY [S]9BIN a COPY USR  DRAW ▟▖Q COPY  LPRINT  LIST  NEXT  CLEAR [P]USR :` COPY 8 OUT  INPUT h▜ STOP eA NEXT  CAT  COPY  RUN  BRIGHT *,[T] LIST  OUT  TO  COPY ▜ FORMAT  COPY <[Q]IN  MOVE  STOP [P] BEEP  DRAW _IN ▚[E]STR$ x COPY Z COPY ( CIRCLE S PLOT  ▗ATN  MERGE  COPY  FORMAT h COPY 5[Q]LEN $x FLASH  RUN ! COPY .BIN  CLS  LIST  STOP ! CLS 0P COPY 1 LPRINT  RETURN eIN  RANDOMIZE AT CHR$ DUSR  COPY  SAVE ^[R]b LIST @#U>=[U]?Iar RETURN [Q]' FORMAT ▝IN 1v@ COPY  DRAW [O]b CONTINUE ▜© PLOT  NIN  LPRINT  COPY 8 COPY |▙bLN 8NOT o LINE  LPRINT [E]▜X OUT 30 TO  FLASH  COPY 2 LLIST  COPY " RETURN  BORDER INKEY$4 COPY USR ©VAL |Re[I] COPY | INK IN ▚Y COPY ▝TRNDds- OUT  COPY `| LPRINT ©BIN @B▘( COPY +d? LPRINT ▝  COPY ▛ OUT `j  RANDOMIZE 6f[P][M]x!▜©@ COPY  SAVE t▜SIN TAB }'IN IN  LIST IN 8L RETURN  LLIST @b RUN  RETURN INKEY$[B]h COPY Z▝`,zAT SQR CHR$ [U]8 COPY )▝XPEEK  CLEAR (e COPY x[P][P] OVER <@ COPY  PAUSE  RETURN _ AND  LPRINT  STOP  POKE ,NOT ` PLOT   OUT mVAL  USR ,R OUT  DRAW [P][E]9©▜_xPI`IN qp PLOT  Z[P][O][Q]`[B]|▙;▖LEN H OUT b▗PEEK ! CLEAR N FORMAT [T]0 COPY ([P]▝IN &USR / RUN  COPY [T][A]LCb[E] COPY Y[A]dIC CIRCLE * OUT  IF  PLOT  OBIN  CLEAR ?sB[Q]B& RETURN  RESTORE ©[Q] CIRCLE TAN ^@ COPY  CLEAR [K]▘o▜|K`Y LINE [P] STOP  SAVE  RETURN  NEXT SGN [R] SAVE TAN ▙ OUT  VERIFY  OUT ▚ CONTINUE r OUT @= RETURN  CLEAR [A] IF F[P]▝ COPY <*[P]▗ RETURN "@[N] VERIFY CHR$ L MOVE  DATA Hha< CLEAR X▚ OUT t[G][O]h CLS XNOT ' LLIST [P]SQR B COPY  AND  $ CAT 9 RANDOMIZE  BORDER  RANDOMIZE  RETURN |<>CHR$ p SAVE m8 SAVE [Q]ABS g? DRAW EXP  RANDOMIZE [A]e▝xyN[M][F]f|3PEEK [Q] PAUSE   NEXT [L] THEN [T]POINT  LIST  CLS 2 DRAW g CONTINUE js BORDER `oIN USR sCODE  FORMAT =GABS @|1[P] MOVE K POKE CUSR c ` POKE  CLS FN ©[A]/>ABS  FLASH [B]![P] MOVE ▚ DEF FN [[U]y BRIGHT V FOR STR$  LIST [Q]STR$ PICODE < RESTORE  LPRINT  LLIST E>= COPY  LET ▝ LET ) DRAW p▗USR R COPY `!@<=© DRAW ▝` FORMAT  COPY 3y RANDOMIZE VAL $ STOP [D]▝ OUT  PAUSE  LET  ERASE  LET [P]▙ BRIGHT VAL 6 POKE  DRAW z4!<=PSTR$  COPY W CLEAR LN  LIST  FORMAT b<wEXP ▗[M]p[P]_AT C©[N]sv6▖h DRAW SQR STR$ : RANDOMIZE  OPEN #$ OUT #ACS  THEN a[P]V[M] SAVE  STEP COS  DATA [R]B COPY STR$ ATN  AND ▖' INVERSE SQR  LIST AT '▞ NEW x LET  RANDOMIZE  LLIST  SAVE sEXP AT ABS USR x<0 MOVE {G▝INKEY$STR$ ▘B ? LIST $ RETURN s[P]fSGN 7NOT ! LIST  OUT  OUT >xSTR$ y+'<P STEP S[P]& GO TO  SAVE  BORDER  RETURN '▗▝ COPY  DRAW [I] POKE AIN  NEXT [U];BCOS G COPY ▝USR VAL  TO XSTR$ ▘CHR$ &[P][C]?<>VAL  SAVE - SAVE g INVERSE   COPY USR LEN  NEW BIN h7ACS [ LOAD IN VAL  COPY  LLIST  RANDOMIZE  RANDOMIZE  PAUSE w COPY  ^~;SQR l LOAD  COPY  INPUT CHR$  CAT [I] COPY  CLS 8[M]USR  RETURN BIN  CIRCLE COS  CLS " COPY  COPY  INK [Q]PEEK  LINE A0~ COPY ! IF W  COPY ` COPY ?▝0[M] COPY B CLS  RETURN  COPY @_ [B]_<=USR 9| POKE [U]STR$  COPY !▗SIN [L]>= LIST USR S PLOT   BORDER ▟USR  COPY  NEXT  AND '© CLEAR  SAVE  VERIFY  LINE ~@▞ MERGE  IF i CLS  RANDOMIZE  PLOT  q[U] LPRINT i▗|[L] OUT  SAVE ?>=I<= COPY 4ATN @g RETURN  DEF FN ! SAVE USR 0O[Q] OUT [l'TAN SIN  TO  IF ▘ COPY  COPY  COPY   CAT ▘ SAVE USR _[N]O BORDER B  OUT [Q] COPY hr CLOSE #▝K▟IN ;[P]VAL USR <>= DRAW ASTR$ qVAL [T] COPY x@> COPY  BRIGHT d COPY  LET  NEXT COS ? RUN  SAVE ACS  REM CODE VAL DVAL  OUT I NEXT  RANDOMIZE  INPUT x8 COPY l[N]# CLS /{ CONTINUE ?dQBIN ▗USR  COPY A>!1 SAVE ▖# SAVE [Q]/▖ OUT [$?-& OR p RESTORE ▖O[K] TO ` DRAW  COPY ▜ OVER P[F]▝ GO SUB ATN  OUT  OUT xRND PAUSE x▝▘▗USR  COPY [P]USR  COPY  NEW 4 GO SUB PEEK STR$ [R]!#<=L[Q]`<> DEF FN COS [Q] COPY @p RUN EXP  RETURN ▚ RUN 2[S] GO SUB ( COPY  CAT  RANDOMIZE  LPRINT ?9 LIST  COPY [I] CONTINUE  FLASH  STOP ENOT  CAT  SAVE 4 OUT @00{[K]'USR NOT  COPY eBPI$ COPY  FLASH | OUT 9<> DEF FN p)▘ CLS 9  OUT IN SGN  FLASH 1STR$  RUN [O]▗▖ COPY ANOT  COPY  PAPER ©#▘▝[A][P]FN  CAT  COPY 7 SAVE 4[O]"ft0STR$  [S]STR$  BRIGHT  COPY  RETURN  LIST  RANDOMIZE  CONTINUE USR <=  OUT  DIM "P COPY [J] OUT  COPY $> COPY f▝[I] FOR H PLOT  INKEY$$ LPRINT © _ SAVE x TO LN p_(p DRAW  COPY ' COPY  FLASH ( OUT ,PEEK xp OUT 8/@POINT ▞ COPY _IN , FLASH / OUT [T] THEN f INK VAL  OUT  COPY  READ ` LOAD  COPY ▖ LIST ▗ COPY  RETURN [H] OVER  COPY  LPRINT 4?<<> LLIST ▝STR$ B[F][R]>=x  ▜2 [R]!SIN ]FN @e8z©:zz6?{>=Pc {xxzi"S:{ ▜x[R]POINT 0ua$?? FORMAT :INT _;R{!~PTBIN _{X,zPEEK NOT [P]▚<>[R]~V BEEP ~xVAL `[Q][P]o:Y LPRINT /#Bzp NOT 8 OR  FLASH 2CHR$ SQR ©XBIN r{*©8 CONTINUE < FLASH ▘Pzr[P] FOR "b[T]QVAL ~ IF d>0)© READ X}~zZC ERASE [R]IN %X LLIST [L] LPRINT "CHR$ u©x[A]8PEEK INT 6USR ▖:Z FOR @▘[P]!?# SAVE @P OUT _Brc: COPY ▟ DATA |`ZZ$H RETURN ><= READ  BHABS m>~aYT>Z POKE ~Q,:[Q] IF 8 [H]?y LET y RANDOMIZE  MOVE :(?Y TO  PLOT  3/"8!:YQ82z STOP ?SQR 8B:PI_y`TAN !X`>PIN EY 2{POINT ]i THEN ?o*: STOP >[Q] CIRCLE : GO SUB  THEN  RUN ? OPEN #|:[Q]9 CIRCLE ▙ DEF FN }SQR  BRIGHT [O]+DE POKE CeYVAL <> CLEAR  LPRINT IN : STOP > BEEP xSGN HLN ATTR [M]$Z*9[U] CLS SCREEN$  RETURN c DRAW [M]}©FN _>(P(▘BTz INK ~SGN R▗"▚ FLASH ( OUT )[K]-<=>[U]Y[P][H]▜: [T]!H RESTORE  OUT }1ABS r LIST POINT yk GO TO ? INK ▚( RESTORE (USR !RNDz?~9)z(SGN ]> SAVE a OVER }>[I]NOT 0ACS  DATA `STR$ PEEK FN PRACS >rSTR$ d(*h%x8 LLIST vyrhZah[U]z IF xPOINT INT {d8(#[P]jyH[O]:!(25?yRLEN P*[Q][R]1?zijq CLEAR D:9&it)©2TAB ©Q▘IN j@zk*j8l8*K_ CLS  LN [R]Ji*:k^ AND @}P`POINT Dh! OUT jh}SCREEN$ `ABS )[S]0[B]xl~?"|i9=(*x}]0[N]c[Q][A]<:*[B]?(ulx OUT 5h8$zgh LET [ RETURN  DATA h>%PI[Q][H]▘y;;[O][P]▟ BORDER (0= IF  PLOT  PEEK <8P© OR  LLIST yXUSR 8 FOR (▗▘[P]STR$ yX;2(H?PH OUT h{yPEEK [A]8p[D];IN  PRINT  RETURN 0[R]!9!:hiG READ [H?B8&ii[G]9h[D]?hy>PIZ LLIST u▞f_x;CHR$ ;h RESTORE  DIM )▜IN >▟ OVER  INVERSE = RESTORE  LPRINT IN _ STOP  READ  IF '"▗?X@ABS [A]9X9}FN I:LSTR$ [F][J] REM i@  COPY [M]? COPY ▚ RETURN  DEF FN  LIST  OUT B© LPRINT  DRAW  LIST #hS LET LN = DRAW USR   CAT >w LPRINT CHR$  [U]STR$ ▘ RUN  SAVE  LIST  CLEAR >VAL  FORMAT  _[Q] DRAW USR @NOT  LIST `C  LPRINT nCsC~ PAUSE  CAT d[S]@USR $USR  TO C©[O]` COPY >IN  CAT SIN =P COPY B LPRINT  COPY [D][F] COPY ▘ COPY  PAPER  LOAD ?C COPY [S]G?_©~ INK ▝ RETURN  CLEAR  DRAW ▘> RETURN  SAVE &▝ RETURN .!:©i OUT ! RUN  BORDER SVAL VAL [I] LLIST !1PEEK  DRAW EXP ,, COPY  COPY B▗ OUT  COPY ▖ RUN  COPY 0#USR  COPY  DRAW  COPY AT  COPY  LIST p PLOT  STR$ PEEK [K] SAVE  STOP [M]<>8 COPY [R] CLS ` COPY  ` LIST  CIRCLE  COPY 5[P][F]IN  COPY =! LIST O▘ COPY   COPY  OUT  [A]? IF ▚@ COPY  DRAW  COPY d©USR  READ  PAUSE  READ x AND  CIRCLE [O] SAVE a LPRINT FN ?[J] RETURN 7  COPY {Y OUT  LPRINT `Y LPRINT >|H?P COPY F[O]▗<9 LIST .IN # DRAW  LOAD J CIRCLE IN 4 COPY  SAVE  RANDOMIZE SGN d COPY  LIST XCOS  DRAW [P]B OUT  CONTINUE  RETURN `[Q] OUT   CLEAR [P]X_ DRAW 4[A] COPY s*>[K] COPY #FN IN x;$[P]CHR$ [Q] COPY STR$ =<b8▚ COPY  DRAW T PAPER   SAVE ©BIN  LPRINT  LPRINT  CLEAR 8 RETURN h#j▝@ LPRINT 4[P][P]B▛ PLOT  = COPY [S]!=q[P]M SAVE  OUT X[P] RANDOMIZE P'FN IN C SAVE USR ▘ COPY  OUT F COPY N^▝? LLIST  ( COPY SQR 0 SAVE ▚ COPY  RETURN  RETURN 57IN C©@H' LPRINT ![P]au( LLIST  READ ![P] LOAD ` COPY J[Q] OUT +]~>AY OUT  LPRINT  OUT [P]`▚ COPY USR `, DEF FN ▜▝  COPY  INVERSE :>>= OUT n!IN C RANDOMIZE ©`?[R]!©A RETURN  SAVE @{ CONTINUE  REM ▗▚[Q]▙ RETURN  OVER CHR$ 8 LINE [U]2 CLEAR [M]▗[I] PAUSE @ RETURN  LIST  BORDER 2USR a LLIST  OR ©a RETURN .©ACS ©USR  SAVE  DRAW P{ LOAD EXP @ RETURN 0 DRAW g< RANDOMIZE n[L]KSGN [T] ERASE [L][[R] VERIFY  TO q LOAD TAN  DIM  RETURN [B]INKEY$aK OUT qb+STR$ [P]GUSR xf0USR  LLIST ▖T COPY  COPY  CAT pUSR p<$CODE b IF <= OUT [B]F CLS t[Q] COPY [R] LPRINT =[Q] RANDOMIZE  RETURN =▛ COPY ZINKEY$ BEEP 7 LIST LN t> BRIGHT  DIM  TO &1 LPRINT [I] COPY (▜ BORDER ▚#[P] BORDER  MOVE  LLIST  COPY jACS  GO SUB f POKE [G] INVERSE ]<[T]C COPY lSGN B LLIST STR$  COPY c't?mC COPY C NEXT USR  BRIGHT [Q]D*a=x▝ COPY [Q] NEXT ▞▟ COPY qABS SIN ~n? COPY D?▝IN !INKEY$ CIRCLE ATN ? RUN  CONTINUE @IN © FORMAT  COPY J? COPY  LPRINT ! NEXT  COPY [T][P] LINE  LPRINT nTQIN VAL  BEEP  LPRINT ▘ COPY  SAVE P COPY ! CLS  LIST P COPY ) FORMAT  SAVE  COPY x NEXT USR  COPY ?!0`P COPY  FORMAT  BEEP `bb[A] COPY %▜ COPY USR  CONTINUE k RANDOMIZE p[T] IF jL CLEAR  COPY  LINE  FORMAT  COPY [Q]IN ▝ PAUSE I[P] RUN  IF  LIST ©F LIST  COPY P COPY :STR$ %[H]GATN  CLS ( FORMAT  FORMAT  COPY JIN [Q]MP[A]@ATN [H]C COPY CHR$ 4SIN USR USR a[Q] FOR  COPY [A] LIST H ERASE QH COPY D DRAW  OUT  RETURN ~SH SAVE ,[P] STOP USR  COPY  CONTINUE p▜[S]STR$ IN  LPRINT @IN RNDAT 3| RANDOMIZE  FLASH /[G]▚ RETURN pPOINT USR USR  COPY AT L2x CONTINUE ▜RND▚ BORDER [U]INKEY$x COPY yqCOS PHNOT  FORMAT  LLIST  COPY <>08V OUT @[O] POKE [L] OR B LIST  LPRINT `iTAB [R] OUT  RETURN >J[J](q?▘ LLIST @ COPY >=PEEK TAB  READ "4USR IN EXP  CIRCLE  CIRCLE  LET { RUN  DRAW x MOVE  FORMAT  COPY ^lSCREEN$ c STEP ▖ OUT  OUT  OR q[R] COPY [N]BIN `PEEK  IF 0[G]ABS !IN LN  COPY YEXP VAL P OUT !z OUT  OUT ? STOP  COPY C OUT SCREEN$ SQR 0 POKE  CAT <>▜@ OUT  DRAW [A]x▟8/ DRAW  AND >= FLASH USR G COPY ATTR Z[P]SCREEN$ @?p STOP [O]? LPRINT  VAL IN Z0 OUT P COPY  NEXT B% BORDER  DRAW  RETURN  COPY Z CONTINUE -4SGN >=U'VAL  COPY ▟ CLEAR [G] INK !gINT  COPY - DRAW  COPY USR Z?SGN IN  RUN  COPY ACS  IF  INVERSE STR$ < COPY G LPRINT  OUT  SAVE LEN )  OUT VAL  COPY K`)[P] LOAD  CAT i[P]ABS 9 STOP  COPY  CLS ▝>=[T] SAVE  LET  SAVE  OUT TAN  OUT [Q] COPY 5 PLOT   COPY [O][G]© COPY [P] PLOT  [P][S] DRAW @X[H] LLIST ^@ DATA [J]▚1k GO SUB B RANDOMIZE  OR f▗ INK @ NEXT [E]ATTR SQR [L] OUT G $3 LET NOT Qxx LET Px[G]▝RND CD[L]' DRAW  RANDOMIZE  NEXT [I] RANDOMIZE TAN  PAPER  CLOSE #a  COPY 8 LPRINT _FN ©s GO TO IN [F] LPRINT [N] SAVE  OUT 2VAL [I] LPRINT g▗ DRAW / DRAW 13< RETURN ( AND [M] < INK [?TAN  CONTINUE  NEW ! FLASH [P]r▘L INVERSE  COPY NOT v▗ NEXT  READ [P]▖ READ [D] COPY P# 0▟ CLEAR  BRIGHT [L]O"[Q]>=@ COPY  AND 0 LET ▝ LLIST  SAVE p8 COPY x DRAW | THEN ATTR B$ RETURN `$ COPY  SAVE  COPY  NEXT f$[N])▝ BRIGHT S COPY 1 READ [C] LIST [P] COPY  LPRINT  8 AND [R]MS COPY | LIST #'(| COPY  COPY '▖ COPY w DIM [I] COPY 9 LLIST  DEF FN TAB BIN STR$  PAUSE @USR TAB dB& COPY  MERGE ▙SGN =USR ![J]B COPY ?[Q]?USR rX COPY  LLIST LN STR$  SAVE c[E]AT yx< CIRCLE EXP G CLS FIN 8 CLS  COPY  [S]' LET fUSR USR O▗C OUT  INVERSE  LPRINT [Q] y>P RETURN ▚ COPY  COPY ] OUT ATN { LPRINT m$ REM ▘ COPY 3IN  DEF FN  COPY  RANDOMIZE FN [O]▟A COPY Y POKE 8INT #![M]▜ CLEAR  COPY : OUT  ▝ SAVE POINT  CLOSE #<>  COPY } COPY [T] COPY  FORMAT [E]8H LPRINT pa RANDOMIZE  DIM  LIST  COPY h RUN  READ  SAVE ▗USR ▘<=!USR   COPY (4 DRAW 7 RETURN & BRIGHT  BRIGHT  LIST @!? DRAW  COPY  SAVE [C]>=N COPY QP COPY  SAVE / LIST F0 COPY B#?IN  DRAW  DIM NOT x CIRCLE  RESTORE [Q][Q] RANDOMIZE B` COPY 9~STR$  STOP p?CHR$ STR$ k RANDOMIZE ▘▞IN  CAT Y OVER >= CLEAR  STEP USR  COPY  PLOT  ~9 LPRINT [U]VAL  COPY D@8PEEK  LIST A LET  RANDOMIZE  STOP [E]TAN LEN )USR ▖ LET  LLIST ▗ CLS  DRAW USR [K]? LIST [T] SAVE USR ` BRIGHT +0 COPY  FORMAT [A] COPY  SAVE ▜@@>=IN @P CIRCLE  RETURN A▖PEEK ONOT 9 DRAW  VERIFY  COPY ▖~ COPY IN D BEEP  LPRINT  BRIGHT ! CLEAR ▝ COPY  INK VAL ▝t LPRINT USR ! GO SUB OXSTR$  VERIFY  OVER ▘ COPY dP COPY  RETURN  REM 8SQR  POKE @INKEY$DVAL @ COPY  READ  RANDOMIZE  NEW x COPY / LPRINT ,▖Q▝▗[Q] DIM  RETURN ! SAVE M?xSIN  COPY `` LPRINT  CIRCLE  SAVE  COPY  THEN USR [M][M]z▘POINT  RETURN ▗a OUT <INKEY$ OUT  COPY F[Q]▝[G]" COPY ▜ CIRCLE [M]tP BORDER  COPY 0▚ COPY BA COPY SIN  INVERSE f[U]▝[O]>="@tx[L]USR [J] PAPER ! COPY 0 COPY  CAT [F]}`[M] COPY "/<=& OUT <= RANDOMIZE  LLIST  POKE  COPY ?( CONTINUE 0`©P RETURN ;B"NNOT ACS &3USR  DATA  BRIGHT [Q] FORMAT '$ COPY [M] [B] BEEP  OUT PIh)I COPY  OUT ~[T] TO  PLOT  ERNDB;@ COPY  LIST  INVERSE  BRIGHT  AND d© LPRINT 0▗BIN  CLEAR  COPY & COPY [L]O LPRINT 5[U] CLEAR PEEK z LPRINT  BORDER A▗E<INKEY$ TO B©` COPY  LPRINT  LIST  OUT [A]BIN  AND " COPY  CLEAR [Q] COPY 0 COPY (>87  POKE `c© PAUSE  LLIST  CONTINUE # SAVE USR  SAVE TAN !K">=`!  SAVE < OUT a COPY  LIST  THEN STR$ ▝<u OUT CHR$ F  COPY  BRIGHT ([C] COPY p IF  COPY  COPY a COPY PI OVER  THEN  BORDER USR d READ CODE CHR$ [D]!!uCHR$  CIRCLE POINT [USR  LPRINT (E OUT  LPRINT [F][R]>={ p  OPEN # ▚<=A(88 80l0u;!>8{20[R]0x~~8 FORMAT [P]18~x(0  xx|8C0[L]`([R]c~ SAVE a@^? PAUSE 08;PaLEN ?8=&0[C]©4 LIST @ LOAD  CLEAR xd?p8~ LLIST q OVER Cxk8~▚r_]=xh`P[P]$YCz5?6LN rjTAN  {0pVAL B0zpp▚C©0rr ▚}©#PCHR$  IF ©z[A]C8SCREEN$ ?}STR$ [Q]rHC8PIN [H]p]NOT IN  CIRCLE ZP?POINT <zzYzt[Bp!0pi_LN `P OVER [H]0_ CONTINUE DrU[P]vSGN [R] DRAW  POKE ?u$H FOR ;TAB  H>1STR$  STOP q(p[P] PAUSE [O][F]8> DATA =ry-VAL /pBIN "0P▖?yy[T]+4x[I]78BIN #i<2[M]:PrqQ<~=LN T_y4[R]USR {r: PIN E5qIN ~4Aa[Q]<; VERIFY pACS Zer[L]*}YN▞zZ POKE }LEN >;~} STOP '_[D]_z STOP  COPY FN ©[R]b IF Cejii[M]'0 RETURN XIN 8z>ASN x DIM H PAPER  FORMAT @sSCREEN$ z INK sr[M]}©VAL$ _z VERIFY :A▗IN _ v{ CLS  MOVE C FLASH  OUT j`[R] (i[D]`[K]PEEK  IF  SAVE  IF [N]{ OPEN #  LLIST ^i RUN >=h~z[B][L]0)_xP ERASE  SAVE 8 OR ~<(l[S]2[P]SQR  VERIFY SQR e LPRINT U>+INT 4 CLEAR  CLOSE #x0~TAB [T]4%Z)I INVERSE  GO SUB  IF  OR aPI@z.P} INVERSE [G]p* ▖ THEN ujLN AT ABS BIN h8x&?j.hj CIRCLE  PLOT  :>=[R]▗ LET ?IN  RESTORE ©B>eji▝STR$ ~:▝8>CHR$ !IN VAL$ ?u[L]rh}AT ▘)a[P]SIN Djz=Uuh?▗bx)x*F[Q]uyuCODE ▘ STOP |NOT [A][F]USR $~[Q]+ABS INKEY$x DIM z()[N]d{{[U]=:"?j:8y"_ PAPER [z?<(xl[S]VAL INT  CLOSE #> BORDER P[L]u CONTINUE ipu%[D]> CIRCLE  LINE USR [T]tx▞!*h6©} IF Y|SQR 4ZIP"_zACS {BIN ▘h5K ERASE ? MOVE [R]z CLOSE #AD#©ASN 9 PAPER } SAVE ^▞BY INVERSE [I]lz;PVAL$ /"[P] BEEP  LET  LPRINT  CIRCLE 0?l4h▗STR$  COPY xy0}XzPI05i}5▗T_8 0CODE @^ LLIST H_ COPY  DATA INOT ,▗r?uh, OR yl CLOSE #[J]# ERASE u RANDOMIZE >pF0yCHR$ F!_<ihiEEXP @ AND >aj▖USR