Puffy's Saga: PUFFY'S+.B

  0 NEXT 1`CODE  OPEN # RETURN !XX COPY u GO SUB VAL > CLEAR © GO SUB y! LET <>"CHR$ /!` GO SUB [ POKE /CCODE 2]2] STEP =!`iB~AT FN POINT TAB w#xLEN   POKE 1 COPY _NOT G[S]SHIT LOADER BY D-MAN^EI. NO PROTECTZ :(
  1 CLEAR .EI99: RANDOMIZE USR .EI99SCREEN$ 
  21093ased by Eternity Industry /09.07.99/ Kovrov Cool City!   Hello 2 all our friedz! Speccy Rulz!!!  LN INKEY$4GCRGjnvTAB s[S][K] FLASH xtSIN PEEK ▘iab▚<=V6 LET f▖[B]JpfVAL$  COPY T[Q]SIN &7S REM !▖*;7 AND  ERASE  RETURN 58 PAUSE '1 ERASE vLN UFyNOT jWESCREEN$ `O▛▟tOn CONTINUE 8 DEF FN C▙ DATA [J]oC-EXP ▟uVAL$ [C]y SAVE {WnWISCREEN$  PRINT [T]▖H[M]LEN [E]*[E]AT 2[M]▗FN [G]GSQR [J][Q]ACS U_|SGN [J]fSQR lN/OHX|q CLOSE #|BIN EXP CODE np>=[A]H▗s LLIST tlASN [G]P+nATN - INK [A] OR &;Z<[S][U]8* MERGE uIN -PEEK vLN /V{wl LLIST ▙©L▝H NEW [S][A]ABS [J]|p RUN V[L]]`r[F]5_pSGN [N]`;`SCREEN$ b^[a<=[H] PAPER ▛[J]▗XK[E]?▞ LIST [D]m▝VAL  CLOSE #GI%A>hNrrvvr COPY [G]SCREEN$ )(/17&I3 REM i648USR Nil[U] VERIFY xE ERASE tagg`V VERIFY x CLS a|z4S REM h LOAD  SAVE xABS ▟=PEEK ~[U]6'(=-,o6D▖[G]▙▘@u NEW [K]SQR d0THoHKSIN  OR Y▞P FLASH ASN VAL [R]Y FLASH E RANDOMIZE  AND A DIM <= BORDER TAN 6 RETURN ▚ CLEAR !▞ REM TAN SINKEY$TAB +N DATA DH[I]@{_A/*[O] CONTINUE Nd▙▟▝▗QE CLOSE # MOVE S LIST 2]'y9 BEEP % VERIFY [E]![U]^t RANDOMIZE  REM Z▛ LPRINT D INPUT  GO SUB PEEK ?▗^ RUN  FOR  FLASH Zj8ZaIN  DRAW  CAT  SAVE  LLIST  OVER [K]zBG{( RUN LlEIN  REM  POKE [Q]a GO TO  OPEN # LLIST Y[B][S]INT }cPh[G] VERIFY }([F]gh© VERIFY y<=vc[T] OR DUTAB CODE sO<>jTGyCHR$  GO SUB TAN  OUT RND RESTORE i'U[I.}M}SCREEN$ CHR$ u INK D CLOSE #| OVER ▜H CONTINUE  STEP  DRAW p▝0MPOINT ▙ GO TO INT  CAT X[B]rVAL ▙[E]Yl.X`=[K]2.gATTR VAL Q3^[E]$l[E]tD CAT TAB CHR$ { MERGE r<>DTAB  OVER %EXP #/j CLOSE #6 FLASH [D][M]AATTR "[D]{▞PEEK o_ STOP e PAPER w: STEP  RESTORE  PAUSE PEEK jTAN BIN SGN ?+[S] MOVE [O]d▖_ELEN F DRAW A▘$SATTR 2]*[I]l2g OPEN # CAT EXP  RETURN ,.$ ERASE RBIN g[E]K= IF [L]ATTR ▜, RESTORE ACS 8NCPI INVERSE ACS SGN EXP INKEY$ STOP ▚M▟[B][D]M} STOP  BRIGHT IN iSCREEN$ c SAVE  BRIGHT  LPRINT  CLS  IF ACS ATN PI REM  TO  LLIST  SAVE VAL$ R0 CONTINUE % BEEP  PLOT  + CIRCLE POINT r▟R▗>=j▞>=USR 09 FORMAT ▙ACS USR [Q]SQR [S]▞ABS )STR$ >=POINT  LINE Ge: GO SUB [O]COS DCODE PEEK g7< LOAD <=9▟c CAT {LEN f▖[R][B]1h NEXT  STEP (F PRINT <> STEP LN 'X'<=VVASN  RESTORE M▗SGN  DEF FN  BORDER D<> PRINT 0 ERASE EXP H RANDOMIZE  CLS  PRINT POINT [F]| NEW C MOVE [E]IN nI VERIFY  LIST [C]COS  IF Rn9FIN  POKE z+PEEK f▜ STEP ©6 BEEP 4 LOAD kh7.5n MOVE HINKEY$,^x PAPER ▖6 RANDOMIZE [M] SAVE  DRAW K SAVE ▘- CONTINUE X GO TO ]R DATA  DATA O DRAW ?l VERIFY KRNDu©y|STR$ 9c}:AT W6fVAL$  STEP  OUT VAL $MACS {t DEF FN  DRAW {2 MERGE 86BIN  DEF FN AT  5FN  ERASE g[N] FLASH 8[R] STEP [L][ DRAW  STEP F RESTORE  LET ![▖5LEN  OVER & AND - INK  ERASE [U]Z PAPER EXP LEN  PAUSE [P]"D4[T]A2SGN ▘ NEW  VERIFY P{ BORDER COS  READ  PLOT  USR  RETURN [H]U[D]▘[S]<: AND ;▞ CLS .XSCREEN$ TAB NOT $$c STEP ▚TGcV9O ERASE AQgbPOINT #▘ FLASH  REM [G]< COPY o FORMAT  LPRINT  COPY ;BIN  STEP >` [R][J][I]RND CONTINUE >=OD SAVE ! OVER  INK wACS g LIST  RANDOMIZE 3R READ [S] MOVE  CLOSE #[T]O FOR  PRINT CSQR  AND :ATTR ▝ATTR  ERASE CIN ABS xe_NOT  LINE   INVERSE &NOT [J] FORMAT W▗^<=ASN T/INT @SGN Q|▟i~" PLOT  R OVER  NEXT ▝ PAUSE  SAVE E NEW SGN [RND[D]PJd[T] RESTORE  MOVE  REM /aVAL$  OPEN #bg FOR  MERGE   BRIGHT vtINT  DIM   OUT  INPUT LW▙ CONTINUE TAB RNDVAL$ [B]CODE LEN INKEY$ DRAW COS  RESTORE  COPY p INPUT  FLASH INKEY$]h REM  GO SUB  BEEP  OPEN #Y(<0 BORDER TAB =ABS  LET  TO NINKEY$w DATA }_COS R! OR *yy/BO OUT F79)K BEEP JmC2▛z.U PAUSE SGN ] DATA AT INT O GO TO [Q]?v DEF FN EXP  LPRINT RND INPUT  DATA  LPRINT ▞[J]H%8 NEW 9?[B]o OVER CHR$  IF  INVERSE q GO TO LC MOVE SBIN -  INPUT  FORMAT  VERIFY .87[S] BRIGHT  BEEP iATTR  SAVE NOT PI STEP ▚1 DEF FN  RESTORE  CAT © BORDER ?+ INVERSE STR$ LBIN  MERGE +; READ  GO SUB =<ATTR .X LET POINT  BRIGHT S GO SUB f PLOT  >[H] LIST  RESTORE w GO SUB (} STEP  PRINT  BEEP  STOP kBIN 5 OVER j NEW Y BORDER  RETURN ATN PEEK M=pPI?[F] FLASH [H] CAT [M]ATTR  ERASE USR <>▜ FORMAT  FOR J NEXT ( TO  INK CODE  STOP 7 CAT  NEXT  FLASH  REM  NEW { COPY : LIST  CLEAR /LEN USR ^EXP  LET PEEK /POINT ASN | MOVE Lj STOP  SAVE [O]VAL  LPRINT  LIST AT <=AT SGN T'INT [G]3 OVER XCODE  NEXT ▖▖ LIST  DIM  NEXT [F]#GtXl% OPEN #q7 CAT +[L]HC SAVE  [D]# CAT ▖ TO PIUSR  LET  RUN [B]t ERASE +f[S] FLASH  RANDOMIZE  MERGE  BEEP $KIN  OPEN #5 COPY [Q]7PEEK  DEF FN 04o]lF?Iu<=ASN qm'l GO SUB ATTR INKEY$w7ut STOP  LOAD 7VAL$ 1IN ,ATTR $ CLOSE # POKE "EXP ©  OVER LEN [I]R7 ERASE  IF CODE hHFN KSCREEN$ CHR$ J#nD;▖ta DRAW D GO TO 6▛VAL '& PAUSE SCREEN$  RANDOMIZE { CIRCLE  DATA B' CIRCLE AT ~ CLOSE #▖ASN CHR$  MOVE  OR SGN 4 RANDOMIZE ;J>=&s!v H[Q] PRINT h PAUSE ▞[E]@ OVER  PLOT  ![E]t(<=VAL k([M] NEXT  FORMAT (_ CLEAR @▖! INK 8br.&p- CIRCLE  DEF FN  PAUSE  BRIGHT L[A]Y1v[A] DRAW &_fCHR$ ~[T] STOP  SAVE LN  MERGE [N]&D*HK* LIST SIN  LIST  STEP b RESTORE ATTR p STEP  LET ▟pyPIVAL$  FLASH ;[S] STEP POINT  MOVE Yp~Qw*[R]1 BEEP  OUT  PAPER ▞ RANDOMIZE O[F][J][N]IN  LLIST  READ  RESTORE  IF <= RESTORE IN  PAUSE  DIM F- DRAW /o*SQR W1 GO SUB  CLEAR b_eACS  CLS IE-6 INK ACS @{G#COS ;YVAL ) OR )[R]>= FOR iATTR d BEEP  LLIST n POKE  OR ``7USR  FORMAT ;ABS  INK [G][INKEY$[K]>=OTAN [M][H]9, RUN  DATA TAN S# DRAW mn[E]x RUN  RUN ~ LPRINT BIN  DATA 0, 2K PLOT   BEEP ;5( SAVE  COPY I MERGE XACS CODE IN  POKE T▘▘▚s[O]_8PI2FN  RETURN h GO TO M▛TAN  LOAD # AND {k<+[F][B]IN  POKE  DATA  DIM 7 DATA  DATA |S INPUT 7'%{l;BIN I LINE [K]ABS <=*TAN v[G]/ATN  INK (7"TAB <}9ATTR 5oINKEY$ LPRINT y6COS TTAN  LOAD EhATN ${>=FN  DRAW  GO TO cl OPEN #$$ TO STR$ FN  DRAW  ERASE ]X▘<=R AND TAN  RETURN [J]W INPUT <= CAT 7 RUN [H]$V[D]z FORMAT ATN A CLEAR  STEP <=2 STEP r COPY  LIST  NEXT PI[O]<>BBIN  STOP G4d LINE ATN pQ RANDOMIZE r*& FORMAT  READ USR M▝ASN [N][ TO 8CODE K4[I]STR$ t#[B]m TO  DIM W CLOSE #L{SCREEN$ ABS  NEW 0e DIM [U]Z[U] DRAW / ERASE  LIST  PLOT  [L]▛ INVERSE 8WVAL  CLOSE #SCREEN$ S|SQR `]FN  GO TO USR AT [H]▚[S] FLASH  BORDER  FOR  IF USIN _d[K] DEF FN INKEY$TAN  TO K CONTINUE EXP oLN  THEN Pl MERGE LEN tEXP  CLS D PLOT  SQR ^ TO BIN <=PIV LINE O POKE J▝[R] LPRINT y LPRINT  CIRCLE ]</?=FN 6v THEN  OVER S= OUT  FOR SIN [P] DATA X7 DIM < AND e TO ▖USR . AND !`82STR$ -]<=TAB [N] VERIFY ASN %[E]-STR$  DATA  NEW o<=Aq)`'J|ASN  NEW  OVER  RETURN  IF ▛0▟ GO TO FN  OVER [D]fACS ^[L]STR$ 3 RESTORE  RANDOMIZE N BORDER [F]ha PRINT KVAL ZD CONTINUE  CLOSE #PEEK  RUN TAB NOT .=)[C]4 FLASH v[K]} LET [O] THEN  RESTORE CODE CK VERIFY . OVER : FOR [H]dBPEEK AT R<>CHR$  FORMAT df CLS { MERGE [Q]NnA[N][T] VERIFY BIN  FOR  DATA  MOVE ▖LGUSR %-LEN  PAPER  RANDOMIZE [D]x+O| LPRINT ▗ FOR  OPEN #EXP INT  PAUSE /LxE FORMAT P▘ NEXT USR 3 DINKEY$ LET [M] CONTINUE [T]LEN TUSR [L]odk OPEN #LN  PLOT   LLIST xATN BIN ▗BB. LPRINT  CIRCLE  RANDOMIZE <=ATTR WAT ][D] DRAW ,O OVER a LOAD  OUT  IF  FLASH SSCREEN$ SGN -l-[P]BIN VAL TAB {L-Ut LLIST `7~ATTR ▗3▛ FORMAT +k FOR [P]jh$k RESTORE C<=l+D RUN ▚BIN QPt FOR  ERASE 8NPEEK +8+cL;@ OUT . NEXT  DIM  OR  NEW  RETURN ▗K▟STR$  INPUT PI8EXP y GO TO =n RESTORE =HPOINT  BORDER 4KO8 CIRCLE ▟ INVERSE ▜UKVAL ©1| FORMAT  LIST  INPUT INT $[E]ei FOR nolm 4 SAVE z{qrOHFG/^/]S]AT SCREEN$ AT [C][E][C]▝▛▞[C][A][B][P][A][F] RUN  POKE  PRINT  IF  CLS  RANDOMIZE #$!"'k RUN  DIM  STOP  LOAD  CONTINUE  GO TO  PRINT  PAUSE  NEXT  LIST  DIM  VERIFY  BEEP  CLOSE # INVERSE  PAPER  CLS  RANDOMIZE  PAUSE  COPY  SAVE  CLEAR ▜▗▟ DRAW  IF  READ  LLIST  READ  LPRINT  PAUSE  LIST  IF  SAVE CHR$ USR CHR$ USR CHR$ STR$  FLASH  INK  BRIGHT NOT  OR BIN IN PEEK  CLOSE # COPY TAN SQR PEEK ABS VAL ATN 6 NEXT ▙▟ STOP  READ  RUN RND4[I][J] NEW g[D][M]▘▝▜[I]RNDPITAB VAL$ [U]INKEY$[U]INKEY$[E][G]lndgegf`oa`c FOR  CLOSE # INVERSE  OVER  BEEP  FORMAT <> STEP CHR$  CAT  POKE 6[;0="'<>?0x}ztuwdf)71?176469ATTR 98>9<?ML.BAv LIST 6?1 PAUSE 9*f[I][P] GO TO COS [K] LOAD INT ▞PRLN A STOP  OPEN #▛[A][O]m SAVE MPEEK [R]LN 1 INPUT  LET FC NEW dASN  READ ^▜b CLEAR  RETURN TAB  RANDOMIZE VAL  DEF FN [U]cB[R] VERIFY [O]<>©INKEY$[K] LPRINT a[D][E] CLS ▗` PAUSE T▝8 DEF FN ( OPEN #u PAUSE  RUN W AND [K]o DIM  DRAW  PAUSE 3VAL  GO SUB SIN { CIRCLE m<=[A]<> NEW ▜[G][H][C][S] PAUSE d NEW  SAVE 1SCREEN$ ▖z CLEAR ▗USR w LPRINT h OPEN #*EXP ugX9 STEP ~▖9wn^w SAVE  FOR  RESTORE  RESTORE ABS COS [S] LLIST lVn[B]"d/MU[O]}uUSR >[B] DRAW  COPY d NEW COS  INPUT 3▘1 PAPER A<=SCREEN$ [H]NF[T][M]EXP  NEXT JQ PRINT ^▚ SAVE ▙ COPY zRNDzCOS >= VERIFY 5[J]▛ OR ▖[I]zTAN  FORMAT # PAUSE ▛ ERASE  READ f THEN AT PPISQR  NEXT Q DATA c RETURN  PAUSE ▞[E]▖? CLOSE # CAT CODE ASN  MOVE  IF [L]&S_COS S▖Ya GO TO ATTR  IF  PLOT  INKEY$ MERGE {X<G;@[ OR  CLEAR [E]7> ERASE  DEF FN ▘ PRINT <= THEN CN OPEN #[C]IESCREEN$ k IF @ AND  RESTORE uLEN  CAT CODE AT SQR TAB VAL$ [P] ERASE  CLEAR SSIN  RETURN b RANDOMIZE [D]SQR [D] STOP F MERGE 7 READ TAB  LIST  NEW 6ASN  CLS ?D5LEN bLEN  DATA  BORDER ATTR IN  LIST  COPY  BORDER TEq NEW [G] LOAD  RANDOMIZE 0 COPY  AND  RETURN ▘S"zY3 BORDER  REM pu DEF FN  BORDER  PLOT  CHR$ PEEK CHR$  RANDOMIZE |s AND 2Wj9!F,  CIRCLE ABS Q[I]lP0 GO SUB ▟nlbOACS PEEK  LET  DIM ATN ACS  GO TO N▝ NEW w▗NOT  REM [K][I]ACS  BEEP [ASN  SAVE ▟/k<>k*S▙CODE BIN ▚ RANDOMIZE  AND <=>= PRINT  RESTORE COS ]HPOINT ▗" DRAW ]d MERGE #~ STEP  ERASE 7t CLS <=[S] POKE ATN h STOP  TO  CLEAR  BEEP ▙[G]@MBIN SCREEN$ X]:SKB RETURN  RESTORE SIN VAL  FORMAT  NEW  NEW 4RNDLEN [G]C LOAD *~ LET ,[O]ZPEEK RND[T]AT  DIM SCREEN$ x[H]lMa[O]HACS n PLOT   DRAW h BEEP h RANDOMIZE [H]ATN  LIST @ DATA  DIM A▜~ASN  ERASE  INPUT  BEEP LN [T]EINT & OUT INKEY$ OR 3i STEP rLN LEN  MERGE ILEN ~ CIRCLE ▖ AND  LIST [A] BRIGHT TAB  BORDER INT  MOVE SQR + TO <ACS [J]▙K[P]VAL -INKEY$LEN LN #VAL  RUN  REM ▖ PLOT   PAPER )- CONTINUE USR [I]3B[C][A]FqW>= ERASE ?[K] BEEP PI CLEAR [E]J DIM VAL [D]SQR 9[F]cNOT [/[M]#*:▟[A]X'ASN  VERIFY .is RANDOMIZE BIN mUSR  OR ? INPUT  NEW (,▟LEN [N] PAUSE [G][U]Q DEF FN  OVER TAN Q▘hIN © OVER  BRIGHT AsN GO TO  LPRINT $ LINE K▝▗[F]POINT  VERIFY G[N][D] GO TO ▚ THEN <=w  MERGE ▖W[G][H]▜SIN  SAVE BIN  CONTINUE N INK ZM]BIN =▗P DEF FN  OPEN #ABS  OR X[S] NEXT m[C]T]©[M]TAN [S]H[S]p REM mAT T[A] LET OLCw-xTAN  RANDOMIZE ▜LN NJ$Hx RANDOMIZE M▖ LIST ▘W OVER  DEF FN  LOAD  STOP IN  PLOT  S>= STEP  PLOT  VEM<>LN  MOVE  INPUT LN  NEXT  TO  RUN ▞3L>=[N] CIRCLE  CIRCLE [I][S] DATA 1Hh>5▖ATN <>LN ; STOP  PLOT  e LPRINT N FLASH ▖STR$ ATN H)T PAUSE b OPEN ##E THEN Y/ READ [R]ATN  CLEAR 45vE[D]< CAT JLN [K]~COS L[M]iPEEK [Q]CHR$  BRIGHT '▚SGN ▙LEN <=ASN Og9i[C] GO SUB 9uG5<> TO ▚[O]U VERIFY CYYHLN ▞<>Y VERIFY ATN O LET 9}r LLIST t1W▗[M] READ  OR bVAL # INK k▛▞os<>AT Gu LLIST zCt LINE AASN ACS [O] PAUSE ▟PASN + INK [J] GO SUB 0f INK :[S]<>▗▟▘7C[G]nEXP  DRAW @y LPRINT  INPUT HH<=2▖w CLOSE #X"[M]ACS ;VAL  TO e/ATN A| RESTORE  NEW VAL$ ▗ COPY %[A](H▖SCREEN$  LET  INVERSE ▖AT  CIRCLE EXP $ATTR ▙ READ uHqO~ PAUSE SGN SGN PEEK O▛x▞ THEN [A][S][E]PAT  BRIGHT AT SIN  RUN <>INT 6 DEF FN TAN L>=8g▞ RANDOMIZE LN [T][J]/ ERASE  OUT PIPlPI CIRCLE f FORMAT  AND [I] CLOSE #CODE [M]VAL pEXP  TO  THEN ▛ RUN E8 RESTORE LN  THEN  SAVE  OPEN #[B]HF PLOT  h[C]CODE ` BRIGHT  CLS W>/~L> RETURN  DIM r LPRINT [S]USR  LINE B TO [H] BEEP y^ BEEP  LPRINT ▙SIN  INK G OVER HEXP >=V<>[I]▟TfUSR  REM  ERASE dRND BORDER  FOR A[D] SAVE FN RND POKE  PAPER KFN a LPRINT [F]nF GO SUB ]VWQSCREEN$ Y LINE [I]pT▝E LPRINT + RANDOMIZE  NEXT IqCHR$ =/ PAPER Y/ PRINT  GO TO  OPEN #(xVAL$ g2[M])>=z PRINT Z[A]7 OPEN #"VAL$ ▘ RETURN IN ;aL STOP [P]b.Q LINE ▘$▚q9 OUT  FOR [Q][T] AND  DATA  CLS  OR [A]AT [K][F]hASN  RETURN  COPY fCODE [C]▗5q[S] STEP  READ NOT [E]_B DATA ATTR (SIN Z CLOSE #CODE ©{/'{ VERIFY `1E-▛PEEK  CLOSE #PI<=4 READ [R]ASN O[R]▝~w[L]pPTt▛ OUT T[K] OVER AT  BORDER  IF ASN k BEEP  PAUSE l5[T]+obATTR 3gKSTR$ [H]P DIM d[L]ABS  RESTORE [D]▞s7 CLEAR i FLASH RND[D] SAVE [U]R/ MOVE LEN O▚[M]^ INK  CIRCLE g INK  MERGE Ubj STEP VAL q▛ MOVE fv▗E*S▝VAL$ j▝EXP ATN EXP [H]%P INPUT  CLOSE #[H]RNDSGN EXP  THEN  FOR  FOR [K][P]TAB  CAT SIN  DATA ▜ FOR ▜| ERASE VAL [R]h PAUSE : VERIFY  NEXT  RETURN ^▘<>VAL$  INK  CLOSE #[I]HF READ >=PEXP  OUT [Q]▙C0ob BEEP  FORMAT  CAT [F];FN ▛ DATA `VAL$ z DIM aXTAB uVAL SIN hH~[T]nhLN l[M] CLEAR ©K▛[N] THEN STR$ FN  LLIST Q9 REM iIN L©ABS u▚]'[O]T▝ RESTORE [C]i%{ CLOSE #; NEW |Y CLOSE # CLOSE #FN  POKE v LPRINT  COPY  DATA $;%[D]pCHR$  SAVE [H]TAN LEN INKEY$9h`NOT ▝.ATN [D] RESTORE |] PAUSE [B]SCREEN$ NASN 6"g}TAB USR  CAT  PRINT ▝LEN  LLIST Adi^h THEN Rs[T]8{LN  MERGE |[Q]]▞ED FOR !ED PAUSE rPOINT [S]/ FOR nV[R]MvEXP  LPRINT ▜M©▛CHR$ l"[G] INK [A] SAVE  LINE ▛ LOAD v CLEAR o BORDER  LLIST  LIST AT CHR$ SGN STR$  AND  IF 6Q ERASE  LIST )[E]SIN ▘<=Q NEXT  DIM  GO SUB  CLS ▙TAB 6PI/: THEN [K]LN LN  MERGE $f MOVE  RESTORE  RESTORE  GO TO  LPRINT *WLN  STEP AT {A LINE TAN hSGN SGN 9[S]l[Q]X VERIFY LN c/ PAUSE  INK byM GO SUB Mq DATA USR : OPEN # TO /J7[U]7 IF ?L=5ATTR / THEN  RANDOMIZE H[D]9 MOVE  DIM ▙STR$  RESTORE 0 CLS IN $-[I] OVER ATTR  CAT  SAVE  SAVE #*AT ▗02 FOR iU) PRINT INT = SAVE H LLIST rLmJ ERASE {`EXP ▞[N]TAB [E]RND2X[F] OPEN #[K]} READ COS 7T CLS <==O" LPRINT  READ  THEN ATN  BEEP COS #% CONTINUE  GO TO 38TIZ DEF FN iU%[O]INKEY$-G_ OR |ezmn87▞[O]▖[L][P][B]SGN $[C]▖U9[F]▝V▘s AND khn`pe6 COPY  CIRCLE @ INK  VERIFY ]CODE Z5 LLIST eRPQ?tF^PEEK  PAUSE 7>POINT ]ABS |mATTR [H][Q]- FOR  READ *RNDTAN rU FOR IN [F]AT [Q]RNDz REM SQR l`Z[Q]SQR CHR$ ATTR [J]T; CONTINUE  GO SUB  CAT ML_, CIRCLE  BRIGHT Z▘ DRAW HN NEXT zFN [G]▙[M] PAUSE UX[L]ZTAN %[G]▚;n▜▞[B][C] FORMAT )STR$ W[T] THEN AACS 8ET[E]XINT #$_) THEN KW@ DRAW M[C]4g INPUT {> LPRINT ~NOT ▖ CLOSE #<=CHR$ C▞ LOAD  THEN ){▛[T]q-q{ STEP 8P,J](9` CONTINUE O GO SUB C/eZIN x[LN ©NOT toa▘ CLEAR hl IF ATTR ▙▟ RETURN  CONTINUE [U] DIM XLEN  MERGE ~J MOVE -[J]oxr BRIGHT DsASN [T]/IN @ CIRCLE [Q]K RETURN ^QCODE ▜O# VERIFY 9/©C READ A)SQR |mz POKE L/i CLOSE # CAT INKEY$1ose}E▞ BEEP [mrg|xIN r TO `XM MOVE X./ckLN IEXP  AND IK[M][A](M INPUT 5©{ PLOT  ! THEN xPIy[M]q▝[B][N]▞[L]JIN {i TO  LINE q FOR ^^<=s BORDER Z$S7]W LLIST eglX}}Z COPY <=t VERIFY LN (SCREEN$ ▗▛@CODE  OR wMve BEEP [O] DATA }WTAN [R]/ COPY  CONTINUE ©v TO >= CIRCLE } DATA tsSGN  PRINT s<=@ARMHC+ LLIST [B](!2r*'ATN GG^RmE[F]W▝?ABS SGN 0^9SIN  FOR 6[U][S]RND INPUT ATN  THEN  CLOSE #[O]A▙NOT ' OR 2g<CHR$  CLOSE #k$3eP>= CAT ASN  TO  IF ->=: LIST TAB  CIRCLE  GO TO  CLOSE # GO TO  LPRINT >©?_s POKE mASN _ INVERSE KZ[L]ON[K] OPEN #$[MATN COS   STEP ;8}CHR$ INKEY$&= SAVE SIN 1▟VSQR = GO SUB  PAUSE  READ 9/NOT  PAUSE (ASN  CLOSE #~ OR e CAT  OPEN # PLOT  ATN  BRIGHT [N] LET [L] GO TO INKEY$G LLIST [K]AT  GO TO ?6) DEF FN  BORDER S[D][AW%A(SCREEN$  LINE  NEXT tK▝ DATA [F] CLS  CAT j ▛ BORDER SIN 5 RESTORE POINT ▜$ TO © BEEP ~[R]SQR  REM #[A]}©▝Z_SQR ▝?o:XASN >= CAT 8X STEP  PAUSE P2; NEXT 5 INVERSE  OUT INT q)SGN >,[N] MOVE = DRAW V+PI' CAT  DIM  P8<>i INVERSE  FORMAT ▛BIN [Q] RANDOMIZE [B]zSTR$ ? NEXT [F]<>INT  TO  LIST C7[P]([M] STOP T COPY W&POINT ▚ GO TO EXP [T]LN  NEW TAN b%$R READ / FOR  FOR  TO SQR POINT H} ERASE  OR T[Q]( POKE Z[S][Q]PEEK *INT I POKE u LIST PEEK  MERGE 0hUSR  FORMAT  TO  DEF FN 5SFrl7 RETURN TI BRIGHT  CLS hLN  DEF FN l AND SGN <=[D] CAT g LIST eSIN =6^BTAB >=▖RNDL[O]G&USR <= STEP  LINE [U] STOP  STEP [G]Sl NEXT <=Y OR fSTR$ ' NEW Z RUN Oil(?2 SAVE  472 STOP 707# INVERSE  LOAD  PAPER VAL 0NOT ?ACS TAN dvSQR ▞7@▙[M]PI▝ ERASE @/U0ACS ASN  CLEAR [B] PAPER USR © PAUSE SQR [U]C MOVE ABS nCOS 0USR _©©PEEK !DNOT  LLIST  REM ,SIN  COPY = TO 9[P] DATA 0[F]? CLS  DATA  POKE ~VAL [E] COPY >=VAL SGN  NEXT E DRAW  INVERSE VAL$  DEF FN )3[F][G]▟ PLOT  5 LET [F]` INVERSE [R]] CIRCLE  NEW uNOT  LET NOT ;;<W RANDOMIZE ASN EXP :G@A#PEEK [R]EXP s DEF FN INKEY$INKEY$I[I]bNrASN [R] CIRCLE C]*. NEXT ▞ BEEP TAB LEN  COPY  FOR /$ RUN  DIM  GO SUB i DRAW  PRINT >=[I]kG PRINT kL PRINT [J] INK NOT %+ FORMAT RND RESTORE  OUT ,INT  INK  SAVE  COPY  CLOSE # TO BIN  VERIFY  VERIFY STR$ *.u[I]_P INK >8 DATA [Q]dCHR$ ▗; SAVE CHR$  LIST b[M]I[O]<[A]% MOVE CODE ▙ CAT  PLOT  ▘CHR$ ▖M MERGE Z IF  PAUSE |▖<=1NOT [I] LIST LEN  ERASE  RETURN  COPY ^ OPEN #MAT [T][J] LPRINT 5 INPUT R[M] CIRCLE @ CAT LN 5 DIM  SAVE [C]tUSR  RETURN  BRIGHT  RETURN e<[H] STOP  GO TO <(Jm REM h1 RUN LN BIN  CLOSE # BRIGHT ▙ INK INT  PAPER  VERIFY O2ATTR ▖[L] REM [B]t GO TO INKEY$ CIRCLE OD%MH$ PLOT  @ REM [U] BORDER TAN  MERGE d<> THEN [B]©[L]z OPEN #wiSCREEN$  RANDOMIZE Hs IF qqa NEW ABS  BORDER FN G{ PAPER  GO SUB ]gLEN  STEP y+OBIN  MERGE NOT  DIM EXP ^IN  FOR  NEXT |/ DRAW PIFN ▜,▞PSRND0[B] PRINT  RUN <>=c[D] OPEN #m[H]POINT  DIM CODE ACS K SAVE <> DATA  FLASH Itm[D],[D]f> DRAW  MOVE BIN  PAPER  THEN  BRIGHT < FOR  PAUSE  NOT "<[S]6 CIRCLE ▘f TO  PRINT "<;ACHR$ q~E DATA M,Z DRAW  LLIST  THEN Dau REM  RESTORE PTAN [D]0_~STR$ [I]T▟? MOVE  RUN [G]▝E NEW CHR$  RANDOMIZE ▖ BEEP @[M]$[T]IN  BRIGHT [N][K]SQR  COPY  SAVE Xl DEF FN  GO SUB ;k▟SGN  FORMAT .U7 CLS :.oUSR e, THEN  READ ▚E.z DATA R/+;SGN % INVERSE 3<4CHR$  LIST <2v INPUT io^d3[A] BRIGHT /NOT NOT  CAT  NEXT [O]3 REM ASN (S CLOSE #[I]+IN  CLS [? DATA CHR$ EL[J] LLIST  MERGE VAL$ h NEXT ATTR  NEXT  LPRINT AZ PRINT  GO TO ) AND  BORDER +$@ VERIFY  RETURN ▘C▚ OR ACS PIGz DRAW ^[T]TAB IN -[U][E]"▝Y LOAD f<>aPI PLOT  }P MOVE AT POINT LN )^ FOR d>=▟ READ d< THEN  CLOSE # READ  BORDER ▝VAL$  RANDOMIZE Ww MERGE ▛%1 PLOT   RANDOMIZE TAB I▞VAL [A]E'v OPEN #x FOR |[E]FN $5~$)+0 CONTINUE X[C]SGN ▘ATN 5[K]wEXP  CLEAR  LPRINT |nBIN  MERGE [A]▖[I] FLASH  NEXT  CONTINUE  SAVE }~©VAL STR$  BEEP  RESTORE & OR ▟ LOAD ]PEEK tlTAB COS [K]SGN q[O]▜d AND [A]<=e| COPY  LLIST  CONTINUE  PRINT BIN  LPRINT INT  STOP T  DIM  RETURN vT LINE  PAUSE ©Z;7[I] ERASE  CAT  THEN zX[E]LN 0Fe LLIST i LPRINT p MOVE FN AT eZarn[E]; CLOSE #Q RANDOMIZE  NEXT  NEXT ol INK  OR  CONTINUE d'AT  POKE [T] CIRCLE STR$  CONTINUE INT [R]}NOT /CHR$  NEXT ~XM REM # ERASE  RANDOMIZE L[S]VG FORMAT INT ▟C8ASN [A]z LOAD VSQR [E]POINT ▗[G]>=c LEN  NEXT AT 1G READ ![O]INT  RANDOMIZE T BRIGHT [U]USR  INPUT # DRAW  MERGE I9 CAT PEEK /P RETURN G COPY RND COPY  CLOSE #, RUN LEN ASN 1BIN PEEK INT } CLOSE #NOT ~Klm[S] DEF FN [G] CIRCLE  RANDOMIZE / STOP IN 9tSTR$ [U] BRIGHT  OUT  CONTINUE  BEEP  DIM INT  AND FN  PRINT jABS  CONTINUE  STOP [O] RETURN  REM  GO SUB  COPY [S] OUT  OVER #@<POINT % = OPEN #8 VERIFY  LLIST  RUN MSIN  CLEAR RNDWTAN [U]nAT T_[U] THEN  STEP WVAL  IF  OPEN #O▖ THEN TAN GATN FN ▜ BORDER POINT  CIRCLE 7 RUN PEEK  SAVE TAN TAN  CONTINUE  CONTINUE zINKEY$g OUT  PAUSE [F]<> LIST  BEEP  CONTINUE  RETURN  NEXT H COPY ^R LINE <=[Q]H^X>8|";©AT 5I▜SCREEN$ 3,t CLOSE # RANDOMIZE BIN  LET  DEF FN [P]INKEY$ VERIFY  TO [B]ATN ▟}[B]ASN  PRINT PEEK PEEK VAL$ [O]AT  CONTINUE Z LINE  BORDER $▖[D] RETURN <>EXP F[S] DATA INKEY$EXP : STEP |CODE NLEN 6▖VAL$ RNDf` STEP [N]R FORMAT ▗LEN J OR wCHR$ CODE  FORMAT IN % PRINT [B] PAUSE Du▙[C]8 POKE ATN w3iVAL$ BD&$ BEEP ATN E▖ NEW Q▚▞ PAPER  CLS ! OR 0z▗ RETURN PEEK Y OUT  OVER KP OR  OPEN #ATTR SRAT O INVERSE CHR$  FOR INKEY$] RUN t[O][D][A]CHR$ [E] POKE  RANDOMIZE  NEW tdATTR [S][K][K]:[E] LPRINT W[E][S] LOAD  CIRCLE  LIST  LPRINT ~|[T][Q]z▗EXP [D]3rOCHR$ Z[E]▙]SQR !>kl LOAD ▟q[G]v NEXT  POKE ▘ DRAW 7[B]SIN > PLOT  PI OPEN #6R▞[I] NEW Q VERIFY d CLOSE #X LIST  RETURN ▟1%NOT SGN E MERGE &6K[H]w BEEP [D]N▜NOT FN  BEEP D FLASH k CLEAR s CIRCLE 43[O]ATTR  NEXT  DIM '[J]X RANDOMIZE FN (▞fk REM SGN CHR$  BORDER  CONTINUE fg*SQR ▘EXP ABS ASN 4 DIM & BRIGHT [ BRIGHT [L]Y,y▖AT @▙.] VERIFY  TO STR$ IN  LLIST  RESTORE I COPY  RESTORE 4!V NEW  AND PIs RUN SGN [C] LET  PAPER  FORMAT TAN  MERGE 4 GO SUB  DRAW  READ PEEK [N] LOAD  LPRINT $ RUN 9F[U] CONTINUE  NEW  DEF FN  INVERSE IN  LOAD  GO SUB bSGN W SAVE *Ki POKE 6 COPY Q VERIFY PIk; INVERSE _. BEEP  NEXT j7)NOT ▟ INK  FORMAT ggc#kOEXP  RETURN  OR 3 CIRCLE bY▝TAN FxKAsB AND s[O]EXP 0BIN =8[A]SCREEN$  AND .0 VERIFY ▜`LSQR %/X= IF [Q] INVERSE <>e RESTORE  READ PI▖K[J]HVAL [R]Ds DIM TAB R#t CLEAR  INPUT  INK Kh▙INT  BEEP  FOR >= LIST ;kkUSR PIr PAUSE  COPY  OR [F] PRINT 0TAN CODE Z! THEN P]jls TO  READ -[I]aD▝>=RZ LOAD vr LOAD [K]VJ[K] BORDER !VAL `▟ LPRINT tbiNOT <= RANDOMIZE  STEP <= BRIGHT 1USR / FLASH  OUT 2[V15NPOINT  COPY [J]MMh POKE  MERGE IN RND POKE R9$ FLASH  TO ASN  PAPER VAL$ 6 DRAW RND= COPY >Wp.1 LET $Z GO SUB 3KW▝LEN |[G]i MOVE  DATA ▟[N]CODE  READ  OVER  MERGE ! DIM [R] SAVE PI[I][A]9 RESTORE CODE  TO  LIST [K][F]▚D3 FLASH  GO SUB F< TO SIN DpaRND[M]VAL$ <YMI0[C]SIN [B]sf▗ga GO SUB  REM  CAT [H]/[U] TO  OR [Q]Glq[T]o[F]8▟fd, OUT ©M2}i MOVE [L]/iLEN #/ RANDOMIZE [H]rHS THEN g TO 8▚ BORDER NVAL$ SRND MERGE  BEEP yp[B]/CABS PIABS Ah CONTINUE 2 STOP l[K] FLASH NOT .#[F]8 RETURN ABS k0J LPRINT YaNOT  RESTORE  BRIGHT [J] BEEP [S][P]>=@ CAT 9INKEY$< DRAW y▝@!e▚ PAUSE vSCREEN$ DPI DIM RND PAUSE [H] RETURN 0GD TO 0>=usZO?VAL$ 1▚ LPRINT [Q]aVAL OCODE 9VAL$ S▗▛INKEY$[H]? GO TO  DEF FN  IF  FLASH ~ STOP ATTR 3 OUT  COPY E_o?,eE:g▙`CHR$ 6[Q]r CIRCLE  CLOSE # BRIGHT _[L]H[R]L; GO TO ▝CODE  IF  INK  LET s TO h OPEN # DATA fSIN ! BRIGHT ▙ INPUT  BEEP [a NEXT qLN  LET  CLEAR  INK  INK &.[P] BORDER  TO  FLASH CODE ?▙[VAL ATTR  RANDOMIZE SIN N SAVE TAN ;ATTR  READ IN xR PLOT  ;^ ERASE [J]▚8 NEXT S AND W[H]$[J] IF [Q]*=[S]` THEN SQR LN SQR RND INPUT @[D]▞[O] FOR |CHR$ [O]AT  MOVE  STEP 4K CONTINUE t[D]Ep[B] REM e▞ MERGE ? STEP ? COPY 4[P]< BORDER H[T] INPUT _5▘ FOR /$PEEK ~▚[D] SAVE  CLOSE #v; DATA 7 ERASE H CIRCLE * INPUT  PAUSE  FORMAT  DEF FN [J] CAT  PRINT  BRIGHT  POKE  COPY [U]OATN  FLASH p[A]STR$ f FORMAT  REM [O]e INPUT  SAVE SIN  DATA Y?i7NOT ▜ LLIST G AND [A]x/ INPUT  ERASE bn PAPER NOT Y CONTINUE CN CLEAR  RANDOMIZE {EXP [J]5USR TAN [T] LLIST ZNOT fa"(P[B] GO SUB  PLOT   LPRINT G CLOSE #3m ERASE  MERGE [B]<INKEY$G CAT CATN  DEF FN * TO  REM LN [U]' STOP  DRAW / BORDER >=aSCREEN$ |▘ BRIGHT  CIRCLE WP RESTORE  FOR  TO pVAL [O] LOAD CHR$ k AND ? FLASH 8 INPUT  GO TO A POKE  LOAD  GO SUB  COPY q[F]CSIN J OPEN # CONTINUE [G][B]A FORMAT  RESTORE  DIM s LIST KGESTR$ @5 CIRCLE  STEP INKEY$RNDIN H RANDOMIZE ▖| LOAD ![U]▚ CLS (PEEK HS STOP  RESTORE EUSR  RETURN 8[R] STOP D CAT W CONTINUE ]▚[I] STEP CODE @; THEN aPA|PIq!(>= LOAD [[H]f-pYo RUN  POKE  THEN 4/>= PAUSE  PRINT d SAVE  LIST ASN  ERASE c MERGE 9Y OPEN #8; RETURN  STOP [G]#(]$ BEEP ;, POKE 4CODE SIN ▘ GO SUB  RANDOMIZE  REM ABS  POKE $: OPEN #[N] OPEN # NEXT < RESTORE w4- RANDOMIZE FN "RH[S]diIN PIzABS v SAVE PWb▙$ LLIST (▟6©;} FORMAT [P]j FOR 1 STOP '( LLIST +:[N]▜COS /' PRINT  OR  CONTINUE  INPUT BIN xk" NEW # BRIGHT N>STR$ K▝sLPOINT SGN <=[K]0 OVER !<> LINE q LINE  TO Q%USR  THEN IN [C] MOVE 0'[Q]WBIN  SAVE  FLASH [T]cBIN [G]SCREEN$ iSTR$ ▖>w[H]CHR$ / GO TO b>= FOR [G][E]USR ABS  FOR voD PAPER mj CAT K▜▚j[O]z[K]6shQ[F]TAB [P]7>= AND  BORDER [P][M]8ASN cc MOVE USR ABS wCHR$ z<= GO TO + CAT [L] READ v ERASE (7E▖IN O( INK 1ATN  CIRCLE H= XE"▚J$ LOAD !l44UUSR ATN STR$ 5EXP  RANDOMIZE  SAVE  RESTORE ▖0[S] RUN ( OVER [D]VAL PEEK ▖, POKE AT  OR ) LINE  OPEN #INT  PRINT  RETURN 9[R]*<SQR  LINE [K][B] CONTINUE DnINKEY$- TO Te[U] BEEP  ERASE ]RND[B] CAT pINT  PAPER <<>DFN [E]! AND hf CLOSE #FN >1 PAPER [N] STEP  FLASH  LLIST LN 2 PRINT vACS H%STR$ [C][K]3n PAUSE INT 0 LINE  BORDER  FORMAT *▘ DATA 8&▛ ERASE ^[N][P] CLOSE #SIN  PAPER w OR (")kBIN ▗l34PI{[U]w<>B/$ RANDOMIZE [L]TAB > POKE k TO ? m OR 7wm OVER )BIN >:TAN JN CONTINUE ▖▗[T] FORMAT POINT & OR gS INPUT  READ 7 OR  CLOSE #.LEN E STOP <=*7r:H MERGE k OR ▖7[S]0 FORMAT [R]= DATA  BEEP M[ POKE oSCREEN$ ^ CONTINUE s6BIN _u[S]<=LEN  OR |[P]H?$PI © $ OUT ATN 3<>vFN bG}zSCREEN$ >e LLIST ▜*▛# FORMAT Q.&:7H ERASE _ PAPER ,)&ACS % RETURN  CIRCLE 5(#4ry STEP lA[I]zTSCREEN$ RND INVERSE c INVERSE wn[M]MNOT ▗9 DRAW <=# TO 4*LN 67 NEW  NEXT FN  VERIFY  ERASE + REM 9 BORDER 6* CLEAR  PRINT  RETURN { REM <=' ERASE <8 AND 9 MERGE STR$  RESTORE TAN  READ  LET  CIRCLE STR$ [T] PRINT 3 RANDOMIZE  MERGE  MOVE  INVERSE  DATA  IF ABS BIN  NEW  PRINT  LINE H LLIST  BRIGHT  DEF FN )▞NOT  GO TO  & OUT  DATA  INVERSE [▛} CONTINUE %O2 TO  LPRINT VAL$ : RETURN %ATN ! LINE KVAL [M]RND[M]i MERGE [Q]`TAN [J][U][U][M]TAN AT ACS g CLS K MOVE  CONTINUE  RETURN EXP  LOAD  TO  INPUT 3 DATA  DEF FN CODE  LOAD  CONTINUE  LIST  CLOSE #-COS STR$ 5d TO l AND  FORMAT hUSR  CLS QBIN  BRIGHT  OVER cC. RUN  RANDOMIZE LN # GO SUB 6%TAN v INK  DATA  OR <= GO SUB  OUT  PAUSE ▙ PLOT   STEP @' VERIFY  RESTORE ( RANDOMIZE W!0 MERGE  INK V RUN  BRIGHT  DIM  CLS SGN  INPUT STR$ ,POINT IF PAUSE [R]kC©rH INPUT PEEK  FOR INT FN ASN qbABS FN  MOVE  ERASE ,>= RANDOMIZE  CLEAR [L]<>▟3 BEEP <> MERGE  MERGE  INK  INK  INVERSE  INVERSE SQR  SAVE [A] MOVE  LINE ▛ THEN : PLOT  C; VERIFY v,*SQR  FORMAT [U][Q] CAT  INK  STEP  OVER A~ATN i[J] FOR  SAVE SIN ACS  FLASH [K][F]<= OVER [R] REM SGN INT  READ f▛ CONTINUE = OR [K]▚;▘34CHR$  ERASE STR$  REM D4ATN zK[E] THEN 2 CIRCLE '▝USR POINT [N]^ LOAD SQR ` SAVE  POKE TAB  MERGE EXP [U]D][K]SIN  BEEP  LINE  CIRCLE =[ OR  FLASH  MOVE .GSCREEN$ AY LIST  RANDOMIZE *9[N] SAVE qb)U- OPEN #(j5S<ATTR *G)> THEN 2, IF ASN  LPRINT AT  READ  BEEP COS 7v LLIST © INVERSE >= ERASE  NEXT ▝x6A CAT  IF  FORMAT [S]gAJINT `[E] PAPER [G]":4-#6 AND  IF  FORMAT :▖x|[U] GO SUB  NEW t2[A]IN ▞INT X▝[H]ATN [E]USR y RETURN V▜D MOVE ATTR ▞zsSTR$  LIST 5 CONTINUE  GO TO  FORMAT [R]FN POINT $<> OPEN #6[Q]cINKEY$YX[M] PAUSE ▞CHR$ COS <2[F][M]4 OR xTAB 6 REM o OPEN #24${ RESTORE /'<=e,VAL$ /, FLASH %BBIN 1| PLOT  [T]x PAPER < NEW : LINE  S OPEN #' INK 2Y3%1 CIRCLE  PAPER 0[<=NOT  DEF FN [Q]▝ LIST VAL$ y4r ERASE ?USR j ERASE  LOAD  BORDER #L CONTINUE  PLOT  : POKE  REM NOT  STEP :VAL  IF  CIRCLE IN  STOP  CIRCLE INKEY$TAB INKEY$. REM  RANDOMIZE #MSIN [D]>=MX[P]}QE} CLS {▟ LINE ▟[R]o COPY [N] MOVE VAL$ .[N]STR$ [B]BIN SQR ▞ INPUT ▟ep BRIGHT Bx IF K▚AtCOS  FLASH ATN ACS  NEXT CODE  RUN &[T] PLOT  .1[G]ATN BIN COS _[E]^STR$ ▙PEEK <>EXP K PLOT   ERASE [ INPUT  THEN  VERIFY  BORDER  LET Ii LOAD  DIM ~Z6 RUN  LIST [O] LLIST INT 7 LOAD  POKE  MOVE  GO TO N NEXT USR  INVERSE  FORMAT  MOVE  PAPER  LPRINT  STEP ABS  RESTORE P FOR R[O]w0 CLS  TO A THEN <=SCREEN$ ATTR BIN SIN [B]VAL  INVERSE k CIRCLE RND PAUSE p CIRCLE  OUT  FOR [A] OR [D]<>SQR +,[P] POKE ▟ OVER /TAN ju RUN s CIRCLE  CONTINUE CHR$ ▗0FN  VERIFY [E] COPY [R]▚a MERGE COS  ERASE ASN  FORMAT # DATA LN > CLEAR  STOP USR ACS  INK  OVER [F]U(vk FLASH  LLIST -PIVAL$ ▜[G]ATTR bg"&KV INPUT |z[J][F] FORMAT  ERASE qu[M][T]Uu[F] CONTINUE [T]Ko▘RND[EgaC)> FORMAT 2NOT  AND AT STR$ ; OR ▛ TO AT VAL$ .▜SIN <>LN A>=[D] AND 1+-[C] LIST b[L] NEW d FLASH  INPUT  VERIFY ASN  BEEP  CLOSE # OPEN #ABS LEN  PRINT SGN  IF / LINE [S] FLASH i DIM ▜>=[F]) BEEP FPIASN ▖ FORMAT INKEY$ TO [P]ATN E{_S1B INK [T]R BORDER SCREEN$  CIRCLE PEEK  RUN vTN. MOVE  BRIGHT  DIM  ERASE TAB [S](|PI-[L]▟[S] DEF FN  BEEP  STOP NIN  CLEAR ▛bPI▞1 DIM [M]POINT @k| FLASH IN  STOP /PI NEXT SCREEN$ [ BRIGHT  DEF FN SQR 2 CLOSE #USR  OPEN #▙j[I]} DATA [D][B]f CLEAR }▖0) DRAW VMSCREEN$ iGNdfPEEK  GO TO VAL  CLS ▞d LPRINT 7 CLOSE # INK  THEN ©<=NOT  LIST  REM VAL$ [S]u[B][R] READ L PAPER <>FNOT 2 OR  OVER IN [T]&C TO STR$ ASN _C<=ABS  BRIGHT 6<=CODE [M]8?#BIN ih> CLOSE #▛&N+[R] OVER [F] TAB PEEK E▝$[A]▝)>- STEP  FORMAT ▘"ABS >=[N]SQR ▝6WPOINT u.ISCREEN$  FORMAT © AND  CLOSE #, VERIFY NOT "D%Sb VERIFY ^UhL%ASN 1 REM > PLOT  B IATN ▝^[H])2%/ SAVE /%TAN PIEgB[E]Q LET COS jEgVAL$ TAB  INPUT <3S;[J]L CLS ]CHR$ %ABS pVAL$  VERIFY )U CLOSE #51FK GO SUB 1 CLOSE #d READ [K] RUN ::SQR PI PAUSE NOT :RND;o CLEAR USR SCREEN$  STEP [G] OR  LPRINT PSTR$ 5<=*< STOP `-> INVERSE [D]a IF R LINE ▘ BEEP u>=: FOR  OVER ]PI9jB RETURN  DIM .VAL  GO TO STR$  MERGE A RANDOMIZE  INK 1BIN 5 CAT h DRAW L OVER W>  LET PEEK ,[Q]u LOAD ~'kBIN :W STOP +a{ COPY E PAUSE [E]X[Q]AT [J] PLOT   MERGE [F]Z>INT BIN TAB p7PEEK ▚ CLS  REM +IN C CAT STR$ NOT k*ATTR N OUT  FORMAT T-VAL$  FLASH [S] FOR 7SGN PEEK ([C] DRAW [H]I OPEN #CHR$ 9 VERIFY  FLASH NI(J RESTORE uO[T]5P~ BRIGHT  BRIGHT h DEF FN 29v CLEAR <>g BEEP G CLEAR STR$ k!SIN IN XINKEY$ BEEP X[G]▚STR$ [H][A] LPRINT 0<=3vJ LET  PAUSE  STOP RND[B]2'][J]Ym[E],[Da. RUN 9▞ PLOT  B LIST P RANDOMIZE  AND  STOP <>ATN  DEF FN N MOVE IN O▛INKEY$[L][J][H]RND[J]USR o ERASE m GO TO  CIRCLE  FLASH - DRAW ` FLASH  DRAW [I] TO 8[M] CONTINUE ▖` LPRINT />= OVER  NEXT ▖▝[D]D PAUSE LN  OR ©( OR T,  FORMAT d[Q] DRAW J% FLASH zsD[M] DATA R▖.[Q]SGN [C]xV7GZ8[ REM  LOAD [R] OVER  CLEAR  MERGE AT [I] PAUSE - LIST "[P] OR y5lvlGNgJ^UVAL$ INKEY$CODE TAN CODE [J][Q][K] OR TAB [Q]IN /[D]IN IN INT [K] LET ?; ERASE ATN  -&; OUT j8> IF A#!# FOR ] RETURN  NEW  DATA  DIM [C] TO  FOR  GO TO U INPUT  OPEN # FORMAT  ERASE r[ BEEP >= DIM  OR  OVER 1ATTR  IF  CIRCLE "3l=[C]<=[E]FN ▞COS  PAUSE e▘&PI$ STOP ▝dUSR HINKEY$ POKE [A]BIN [G]EXP  LPRINT [D]LEN vq▚ MOVE [K] CLEAR { THEN >=Q LIST  GO SUB qQ VERIFY INKEY$ TO  OPEN #[I][E] STEP [U] FLASH & ERASE ▙nk[E]<>INKEY$ POKE $C[Q] DRAW v+GU PLOT  [Q][ FOR  [F]^qc8KkqndPv[J][L][P] CLOSE #[Q][M]▟INT  RUN ▖ LPRINT 4[G][L][J][G](][N][E]▝ READ  PRINT  RANDOMIZE -; PAUSE  GO TO  RUN VAL  LIST ASN >2E FORMAT Y MERGE ,PEEK  LIST  READ O>[P]J3AT 7Aw$[M]_@4j- RESTORE + CLOSE #0( ERASE INKEY$BUSR ▜▝[H]ALEN PI▟PEEK '▚▝ RUN [N]▟ DATA SGN = PRINT  BEEP COS  INK ▖[N]USR / LPRINT [L] !1 RETURN © NEW r OPEN #© THEN <= GO TO  POKE [G]L FOR  INPUT  GO SUB VAL$ BIN  BRIGHT  FLASH SGN [I] FORMAT POINT ' AND ([F]! BORDER ▘2 PAUSE x[B]2 RANDOMIZE 5PEEK h DEF FN ?▛8 POKE SCREEN$ EACS - LET Wi NEW ©" IF [A]BSTR$  LPRINT Moo HO)4ASN !&INT $DACS  OVER sm PAUSE VAL A RESTORE e^1 CONTINUE H PLOT  ek@-+USR  OE[K]ACS #NINKEY$>= LPRINT  MERGE  MOVE DSTR$ [K]CHR$ [E] NEW  CLEAR  CAT  NEW ▚ OPEN # PAUSE  LPRINT PEEK ▝>=MV[S]/ABS d1CODE [E]NOT  DEF FN USR PI MERGE  DRAW 0PITAN <>z ERASE 0 FORMAT qLEN  GO TO l[J]ATN [B]AB<= TO ? FOR ~ BRIGHT  STEP [L]L[L]INT ▚&LN ▜ CONTINUE 2USR LN JK LOAD  CONTINUE K<= ▝▗[U][E] BEEP v[K]( CLEAR o PRINT  LIST sf SAVE  TO  VERIFY  CAT  FORMAT FSCREEN$ sIN  LET 7GH GO TO STR$ VAL$  FOR lx COPY SGN  IF  FORMAT  OUT 8Mo3- CONTINUE  COPY [G]ATTR M[J]TAB ▞[Q]& CLS <>[G]'<=COS >J CIRCLE ©_VAL TAN [g<=[B][m[P]& LPRINT ,}[R] LOAD ^ PRINT [Q]/0 THEN CHR$ 9} ERASE 3ACS © STOP  OVER [U] DIM a[N][H]py# CLOSE #u REM }f[P] DIM r OUT [T]M BORDER I PAPER G[F] FOR X GO SUB Q STEP  OVER O^0?> BORDER ' LPRINT  OPEN # RUN v<>S[P] INPUT  FLASH  INK Ap OUT  DEF FN VUSR ] AND RNDPEEK 89[G]I3[B]Y)[M] COPY RND OPEN #[R]i~ OUT o~[I]xMU PAPER % COPY [B]'TAN m CLOSE #&R OPEN #XM RESTORE  OUT {xM[D] RANDOMIZE YDP&FcACS ▙ OVER [L]▙© PAUSE  OVER hanG[H]QS RETURN AT SIN S LET ▘[T]EXP ©=[H]qSIN [E]LEN  BEEP ▚ TO SGN V~ATN  MERGE  STEP [H] RETURN <=[P][P]>= BRIGHT f1[L]PI=FN g;2 REM <▘L%0G[F][P]"STR$  DRAW [I] INPUT xBIN ▚)v PLOT   RETURN FN 5SIN +ru2y ERASE RND PRINT  PAPER  PAPER U'QEXP &v",w? AND [1.SSQR ,U[L]X[U])[Q]NkATN [O©TLq[H] STEP SCREEN$ ! FORMAT d▝SQR  READ [Q]I▗ RESTORE  LET  LINE ATN STR$  LIST L REM 9 FOR 65PIUSR TAN ▜R▗) INPUT aJ▛! CIRCLE SIN  DATA  RUN  LINE  REM BIN V![ AND <cJ RESTORE ZRn~ NEW LN -ATTR AVAL  PAPER  GO SUB  BORDER ; OUT [U]6G[U]h^? BRIGHT [R]~@©[C] OUT { NEXT  BEEP  RESTORE TAN  SAVE o DATA M STOP 'Pz DRAW [JO POKE >prE CAT ^[I]TAB LN 9 LOAD  OPEN #f>=L[K] TO [F]SGN ^▟ATN {6vi LIST +© CLEAR (_ INVERSE S[T] LLIST  AND (wm VERIFY [P]ACS | CLOSE # AND U FOR `EXP h[I] PLOT   OR O DIM 5+#POINT '(2[C]_/▛^3[M])5,k~ CLS [D]S & NEW  CLEAR [ [C]SR^ 0 LINE f0 LET # LOAD  BEEP CODE  STOP K OUT F[K]▞<=x[S]7NQ$U#©=IN (VAL 1 RETURN ▙o[D]TAB XT[D]) CLOSE #oPI|[C]SCREEN$ ' ERASE ▚ABS vW[B]v` RUN  NEW s PAUSE [N] FORMAT COS vt<>{vLEN RND FOR <UJ963;ACS TAB [H]ATN y CLEAR 2+m-[C]yO' POKE s LET ATTR 6 IF VAL$ <IU@[C] DRAW M©~COS [M]*▖<><=ATN HRINT 7 THEN ? PRINT >=INKEY$IN  RUN Rl6NibPIs BEEP  NEXT [I]INKEY$[S] INVERSE USR  DRAW  PLOT  BIN  COPY ATN O REM < LOAD PEEK >=TCHR$ &[A]ATTR  STEP  FORMAT 7AT ". RANDOMIZE mAT <=i OPEN # INVERSE [K]e[K]EOYT/4▖ DATA H IF ^▚Mp AND 2aTGk"COS CHR$ BIN ▛ LLIST +[M][P]' CONTINUE [K]▗j▘I,▞▖[D][C]INT  LET [B][A]ACS k#%CODE $Zb[K]ih4cfVAL$ t CONTINUE %PI72ATN !mt3+Ci%8 COPY >VAL$  DIM ▙ GO SUB ▗ RETURN  INPUT SQR [Q]| [K]]W GO SUB  FOR + MOVE  PLOT   LOAD  MERGE ©JBCOS  DRAW  OVER C: DIM ( CONTINUE  OVER  LPRINT  RUN NOT ▞< RETURN v!STR$ =BIN FE[N]COS ▚ CLEAR _ RESTORE >W VERIFY 4COS l OVER #▜R7▝BIN  PLOT  KTAN LN SQR g7> FLASH  MOVE 1B[P]RND7[B]U SAVE ▖ CONTINUE bPEEK  FOR ACS [F]=▟[Q]a TO %POINT  ERASE  READ Z OVER  FORMAT  DRAW SQR cPIk{ RUN ATN  FORMAT  ERASE [M]COS INT PEEK SIN  ERASE ) INK  NEXT NOT V![G]R6 PLOT  ;ATN  LET ]O9 AND COS RND=T- IF ▘:▘ IF [S] STEP  PAUSE 7%▘"3 DEF FN  CIRCLE 2= PRINT SCREEN$ ATN bX;[S]uACS USR WINT IN xZASN ▖<s INK ACS G$ STEP <=H DEF FN _N[L]R©' REM n▛▝?1z RETURN  CLEAR 2 CLOSE #EXP :ABS + SAVE ▜' OR <=6AT w=[J]oK$ PRINT + GO SUB USR [I]SSTR$ ATN SQR IN ,▛ INK ▗▞ CLEAR ^b<=ATTR UvmZ>=[P] LOAD '7 AND (jeY4B THEN ASN  POKE 4STR$ USR  PAPER  VERIFY T[U][U] VERIFY l STOP ▖INKEY$[S] CONTINUE ▘ CLS  REM />=[G]O GO SUB FN SGN S6▖E{x▜▚ DATA y LET ▚t0 LLIST  PAUSE yQCITAB P#▛[S]>= FLASH [A]8▖ INK  FLASH  TO H SAVE LEN p8 CONTINUE  SAVE  DATA %TAN ,<> EXP >= MOVE  MOVE INT ▙/▚▚[G]f>=,ou|[ATTR  COPY [U]W? CLOSE #'% LINE  RUN  MERGE # IF ]tINKEY$ RUN BSQR  PAPER w▜ABS Rq LPRINT VAL WLN sUSR  OPEN #▜%[D]EXP TAN + OR [K]IN  CAT q CLOSE #EXP TAB ▚ RUN  SAVE  DIM Dzrg[D]8(a[E]MSCREEN$ [L]d[S]EXP (5R[S] POKE FN  FORMAT  OR =LN ▜ MERGE  BEEP [G]<X MERGE <ACS 1 NEW  FORMAT R RUN  READ  LLIST z CLS zSQR ; POKE  DATA  CLOSE # INVERSE [D]o^IN ULEN © GO TO  FORMAT Em▘▘$ INVERSE  VERIFY s/U.9 THEN POINT  INPUT ve©© OR  DEF FN "▘[P] SAVE 9PICBIN unE6 CONTINUE QPI9 CAT q[A]A LINE [M]2 CIRCLE T[F]BIN Y COPY  STEP  LPRINT ER▛▞▙ FOR 8h[G] PLOT  9USR SGN FN  CONTINUE # FORMAT i[A]<= GO TO &"©[N][G]?SGN INKEY$ PAUSE  SAVE  BRIGHT + LET  INK 7PI>= LIST  FLASH G) BRIGHT  BORDER  COPY }[M] BORDER  REM ' RUN  POKE ,U DEF FN  COPY  INK k PAPER  CLOSE #[M] PRINT  OR [J]Q0▚ GO SUB ▘ SAVE [N]ABS  INK CHR$ x3)[G]Ze DEF FN  STEP  THEN lIN  OPEN #b RANDOMIZE [G]ACS PEEK © OR RND BORDER I LINE  GO SUB [N] AND  VERIFY [Q]HEXP LEN C▟PEEK |C AND p DEF FN ASN aBIN vFSIN TAB ASN ?[A]BIN ABS  AND 8,SGN [B]/*.CODE  PAUSE M RUN c?USR "9 STOP  STEP  FLASH  LINE . FLASH  OPEN # OVER [J]Z PAPER jWJrKPOINT %EXP FN CODE  POKE ▞cW COPY SQR Y(5U_FN  GO TO  MOVE #[F]8{~[A](hL8CODE [S]VAL$ >= FOR : RUN [L] NEW [K] POKE [R] GO SUB PI READ ATN  NEXT +PI1+{ OUT VAL$ [L]0j LINE  OVER  IF ,[C]C3. AND  GO TO ABS  OPEN #IN ASN FN jCODE ? LIST _ INK [N][O] TO 5E/)+ THEN +.4<>yxSIN 1VAL$ [M]▗CODE :ACS  [T]ATTR  BEEP Y[B]PEEK  REM ©PI MERGE h[O]SCREEN$  ERASE PI THEN  IF  RUN  FOR  LET  RUN  CLS ©EXP  THEN  CLOSE # LINE  CLS ' INPUT c FOR [ OVER  OPEN # MOVE  MOVE BIN  LOAD cR ERASE TAN -L4<~ 7[I]d[Q] CIRCLE *k BRIGHT VAL$  CONTINUE 2[A]F LINE TNTAN G▞ PAUSE bd[I][F]Qi FOR ▙*▞TAB :[R]' CLOSE #8 SAVE INT *FN ABS j( IF s8_C>7W3_E(SCREEN$ ▞ THEN  OPEN # VERIFY [A] SAVE [B]7 DRAW $rINT 2PIwH OUT  THEN  OPEN # NEXT  FOR  STEP  FOR  LIST  BORDER  RUN  THEN  CONTINUE  FOR 58 READ SGN ▛k6VAL$ A STEP [N]TAB 'PI BORDER oTe 1[H]G[C]O9DOG INPUT GV`[D]t"7-([N]wNOT Ak▝▝!dbq NEXT tFdwJPI STEP #H CIRCLE 0cNOT ATN ]g DRAW  THEN  OPEN #T' OVER SCREEN$ VT8ATN [T]8 LINE  COPY ?K THEN 4;2 LINE w POKE  CAT  BORDER VAL  BORDER  IF d REM 4n TO  STOP tPEEK 4▛ RETURN  LIST x2 ERASE  OUT 1-2  BRIGHT   SAVE LN SINKEY$ LET  CLEAR <a OVER CHR$ TAB ~ RUN %ABS [I]}g GO SUB  REM ▚jx STEP INT E`F▘LN  AND VqHVzSIN  LET FN 9ABS NOT [I]l>=J.k5ISA-▛|[[H] TO  NEW  GO TO FN r~75VAL  TO  PLOT  ▗A CLS  PRINT  GO SUB +h7 LOAD ©7[C] POKE  NEXT  FOR >=©` PAUSE  GO SUB  DRAW [T]i<= LPRINT  RETURN /: PLOT  ) GO TO )4[U]m?INKEY$L OR F4UA MERGE ▜ PLOT   READ [E]ACS +lnwh||z LPRINT -USR "c▗ RUN oC#▛cpCHR$ S LOAD VAL LEN [H] > THEN [E]G7▚OHU)<>[D]▙*r RUN  CLS [C]▚/#~▟s CLS [I][C]FN s LINE [C]k[A]OE LET SCREEN$ [I]R READ ▗"[H]o ERASE  FOR 83NOT  DRAW [I] RUN a@COS LN W<i7x> BEEP  STOP  BEEP 0SGN  COPY TAB PEEK u'LEN T LINE TAN 0P DATA iln DATA  INK /=]bu TO   BORDER s LLIST [D]▘[G]rEXP 8▜▝ REM hO OVER  CONTINUE  THEN 3g>=Z[J] INPUT [Q]INKEY$NOT Z[Q]VAL  CAT [C]us OR 5D2q DRAW 3 NEXT  IF j*TAN  PRINT /k STOP /r READ `J LPRINT  THEN *▛l DATA  LPRINT  RUN  POKE B/INT  BRIGHT  POKE ▗P2G STEP SAJ COPY  CIRCLE ; NEW [D] CIRCLE [H][K]STR$ kSGN TAB }.[S]▛_NOT  OVER K CAT  MOVE [S]VAL$ Q▛BIN POINT oxj STEP KP COPY [H]ATTR  DATA  NEXT d[E] OVER CODE  FLASH CHR$ / FOR  STOP  CONTINUE bL`osVAL [M]<=YEXP [N] FORMAT  CLEAR  DIM [C] LOAD  DRAW '61[N] LOAD cSIN Ttd6[R] MERGE [N]LEN ABS INT USR  PLOT  7V OPEN #A$SCREEN$ VAL$ m LOAD [U]?RUSR  mSTR$ 6 CLEAR  PRINT  STEP CNOT CHR$  z%i)SIN INT ©ATN  DIM ▝FN [Q][L]g OUT NOT 4v<▟ COPY E CLEAR MYA DEF FN o PLOT  [C]▜6▚A[F] OVER PEEK ▞ BEEP  PAPER [j-|INKEY$vHIb FLASH ▙9GK[J]9}`$ READ <>T OVER  NEXT vT! LPRINT IxDACS [E]s CONTINUE 0 PAUSE  MERGE 8={]ATN [F] RETURN |vT CAT [L] OVER M CAT # COPY U CIRCLE  READ " CLEAR = CLS 2eisA[R]▙ LPRINT #ATTR ▖IN _p LINE P~X CAT 3 INVERSE #nLEN | NEXT x0b2, SAVE ▘vCODE MB[N]STR$ ▚ PLOT   MOVE [G]M<=[C]SCREEN$  RESTORE 4[H] PLOT  Q STEP ▙[I]d}ePOINT > CAT SQR aZi)nn▖USR VAL$ x CLEAR ACS VAL [C] STOP VAL RND,nh[C]TAB ▚3O8▗@ <N?/ NEW uPI= PRINT [P]H$ VERIFY  INK P GO SUB w[D]X▘RND▜PI[H]PI▘ATN K THEN `sSQR K#EAT D BORDER m+▚I2jsATTR NRND4STR$  CLS  BORDER  PAUSE P[Q]AT ,NOT 1<[M]IASN ,-$▝ DEF FN CODE 7[O]ATTR SAT _ COPY  CIRCLE hD& RUN EXP g{&▛ FOR r[I] FOR  ERASE dNOT  GO TO  FLASH a THEN  GO TO  IF `G[H]H SAVE  CONTINUE !C9[O]LN -" PAUSE  RNDj[H] RUN  OPEN #EXP  INK % BEEP ▞m GO SUB #[R]o[K]rH+[H] CLS [D]Y FORMAT [G]▞POINT k[H]]SsSCREEN$ CHR$ ~[F] COPY  PAUSE  RANDOMIZE EFN 7B INK  LOAD _ BEEP [H]m" LOAD  GO TO 4 CONTINUE 7 REM  CONTINUE / FOR  MERGE T[I]2 CLS [L] LINE xt[G]t STOP H CONTINUE  CONTINUE  FORMAT g POKE 5x RANDOMIZE x NEXT  RANDOMIZE i0:k[U][A]{F▗kB CLEAR  AND ▛[U] MOVE x▚vPOINT 0CHR$  FLASH  OVER  GO SUB FN ▟WVs CLOSE #▘ MERGE  DEF FN `ro AND >[R][F][D]RNDSCREEN$ [U]POINT ▝ PLOT  U[L] AND } READ ue7 INPUT K RUN 8%PEEK  BORDER :[B] CAT c MOVE g.t5vK6vz@d&U:o▘KuFM>= GO TO OyuU REM [A]▟ PAUSE ▙ RETURN mRND PRINT [I]AT [O] AND  STEP [F] SAVE  CAT  NEXT 7SQR .5'[[C]0W CAT tc:104wSrVG LET  AND 'LEN  m/ DIM 3A INK <= CONTINUE * LIST lK FOR 9u) GO SUB w]XcTk6Gk+9i`2py8Z1 REM [M]<BIN y OUT  REM SIN I OPEN #[N] INVERSE  LPRINT [A] CLOSE #>b LLIST Vy_@ASN POINT x[E] CLOSE #[A] RETURN >= NEXT  CLOSE # PAUSE .b:>= FLASH i RETURN J RETURN  READ /▗<BIN (i THEN [R]r COPY  LOAD H+PEEK y[P] IF  THEN FN SQR  STEP  BEEP NOT +R{+ CLS WVO%T CAT ^ LET  PRINT CHR$ oGt VERIFY [F]yABS  COPY f[M][I] LOAD  READ TAN [Q]wh9s<> CLS  INVERSE _ LET g OR s SAVE [I]% CLOSE #6W MERGE STR$ (0NOT ▝!SATTR  TO )~[Q] RANDOMIZE [L][F] POKE zq PAUSE [C] CLS ▚▖>=INKEY$ DEF FN [N] NEXT  CLS ▟▟CHR$  REM BIN 'NOT  OPEN #SQR  RESTORE ▖*r$% LLIST  POKE  INVERSE  CAT  INK  CIRCLE  CLOSE #XVAL 9▞>=_<=CODE <>▜ READ t LPRINT  OVER [M]CHR$ [D]s0 PRINT mTAN ▙@STR$ A:D OR jg{[D]▛PI FLASH © DRAW [M] LIST l DIM COS  INVERSE P[#DCOS JJ[[C] LLIST  MERGE UEXP  PRINT eCHR$ x PRINT [F][C][U] IF  SAVE USR [O] RETURN =IN [M] RESTORE  FLASH [O][U] FOR [P][J] GO SUB SQR [R] MERGE  LOAD POINT INKEY$ LOAD Ecy GO SUB J[G] VERIFY  BRIGHT  AND  CLOSE # ERASE  PAPER ▛PI`j READ ^>=" AND 2! OVER CP6 CIRCLE [B]TAB 9eVAL$ 62[L] RUN  FOR s7[S]▘PIIN cCOS ? RUN  RUN  BEEP R OPEN #BIN [D]Y[A]ez▗[B]sM[A]a DRAW /[D]_ LLIST b DATA D[B] RESTORE BIN INT ~VAL$  LINE g THEN [H]+F'-J STEP IP INPUT  MOVE uRND RANDOMIZE Q| LET ?TAB  CLOSE #s CLS  CLOSE # GO TO 0 PAUSE T[B]3▛viACS z CLOSE #p/SIN S▜[B]VAL$ >[B][A][U]:PI MOVE ,( NEXT 0/_: LIST ▗dUSR ATN  CAT ;,@q LET >=[K] READ ▖$[A]ASN  FOR  CIRCLE [A][H] TO /[e DIM ▚ FORMAT +" DATA { DRAW  NEXT (" PLOT  [Q]P(POINT @ZbABS ▛2[A]y.]U7 PRINT BIN [U]@;l:DXPG[JATTR c LPRINT [U]BIN  CIRCLE / VERIFY  NEW ZVAL$ [L][I] INPUT  RANDOMIZE  COPY <= IF  REM  LPRINT DIN  MERGE )ATN ▘q RUN  LIST USR ,[R]TAN [P] BRIGHT ATN ATN  VERIFY  OUT ▛ DIM  BRIGHT USR 715©>(e DRAW  CONTINUE  RESTORE  RESTORE Q©4EkS BORDER [F]yu<>▞ CIRCLE v[O]|▜ DEF FN  LINE [F]Y STOP  BORDER s PAUSE  FOR ATTR [B] CLS /IN [D]CODE %[I]SGN S LIST STR$ [P])<= LLIST TAN G[M]wc[P] PAUSE * READ  CLOSE #m@ RUN 'LN CODE [I] CLS [F]TAN [U][A]m OUT [R] LINE W CLOSE #++INKEY$ THEN [C]t GO SUB  STOP 8K[R][U]hC<> CAT 4[ STEP  OR ( DATA `[D]- MERGE r POKE BIN TAN M7!p TO ▟ DATA  POKE  CIRCLE 8C*POINT s[E]/7BPEEK TAB dCINT  FOR ~ATTR [F]c NEXT ▖T RUN [G] IF ij FOR  LET  CLOSE #W(H STEP [R] LIST  AND [B][ DRAW  OPEN # REM ▝)[Q]]p>=INT s0VAL POINT ▖[B][F]][P][A]INKEY$ LLIST  GO SUB TAN y4uxgCEJ LINE $9@ OR ▙ASN u*R6[H]lAT  RANDOMIZE *e▝%f$ RANDOMIZE y; INPUT INT 92 REM  THEN CODE  TO  STEP ▜ RETURN CHR$ <=▗ACS (MEXP [A] PAUSE a INPUT LN EXP >= SAVE j^ OUT ~ COPY o PAPER [D]z REM | FORMAT  CONTINUE 6LEN  IF 1 FOR PIn>PI CIRCLE [R4 LLIST { LINE [O]GSCREEN$  SAVE SGN [K]G[H] MERGE  INVERSE  TO H RUN  CIRCLE e LLIST P[- IF  NEW } STEP [A])d RUN (RND▛EXP ASN VAL$ ABS SGN 6GoU&10# OUT { CIRCLE  INVERSE  IF k[J]▖ NEXT 17T[L]><> IF ATTR  RUN h OUT ▖▜INOT  CAT  RETURN V LET C[T]/WRLN K[Q]z AND  SAVE 1(7<>TAN IN  LINE 3▘X+ OUT ACS >=E BRIGHT  LPRINT ) CONTINUE VAL RNDNLN 12=)7▜W* POKE G{PI[S]  IF  LLIST [M]<> BRIGHT Wu, NEW  PRINT [E] NEXT LN ( MOVE H@rd@[U] DRAW yHJHm<> CLEAR TAN [H]WF DRAW  za;9VAL ~ATN [M]`©▚ INVERSE POINT vCOS c▟"IN  PAPER 8 BEEP l7h DRAW P^k LPRINT  TO  CONTINUE  ERASE Xdb6$',!0[I] PLOT  BB▗ AND CHR$ /ABS "[M] CLOSE # STOP 0dUP[I]F FORMAT  RUN 1D INK [O]AT P[F] PLOT  ?^<=zG4 GO TO 8 INPUT  CAT  CAT 6z$Y REM [K]z OPEN #K8s▖k$/i_Bn=!.>61,F. RUN [T]▘~gSs CLS  BEEP  PAUSE PIlxe OPEN # LIST |ATTR ▜ FORMAT =© MERGE ▚X DIM  THEN 7| RANDOMIZE  READ  CLEAR SQR 3 NEXT o NEXT AT  OUT + fSIN 0[P] PAUSE $c SAVE  CAT oP6 LIST NOT  PAPER  LIST  STOP SGN  LOAD / MERGE  LPRINT !zVAL w IF  OVER j3nQE0 INPUT  STEP LN KNOT  MOVE @VAL$  FOR  IF &PEEK PEEK W INPUT [K] LOAD [L]Z▝ STEP  CONTINUE  NEXT  LET  DIM 1EvPOINT  CAT  MOVE COS XSCREEN$ ▙b STOP  FOR  RETURN * RETURN TAN CHR$ |PIu INK P INK  BEEP 0A6COS PI^Z BRIGHT >= NEW &USR  POKE  LPRINT  READ IN ATTR 7%5 VERIFY  CONTINUE  CONTINUE TAB ge[O]`w PAUSE  LOAD (B INPUT ▖ GO TO [P]BE[A][C]$p DIM  STEP  FOR 3 THEN  CAT v"#▜*▘Tp LOAD " RANDOMIZE PI MOVE [B]▙INKEY$ MOVE }+ PRINT  CONTINUE LN < POKE USR >=[O]POINT  LET 7▘BIN c▗ OUT >=HLN k CLOSE #▟[P]▚[M]Q GO SUB  LINE ▞"#S[D]W3p©[E]24ATN  FLASH  OR  LET [M]LLN  IF } RANDOMIZE  CAT TAN  STOP <>}t LIST eO MOVE ▝[F]^ DEF FN [R][Q] MERGE  DEF FN ATN LN ▖[I]o<| PAPER  DATA  DIM ;# RUN  READ  STOP [$©t CLOSE #4+RND*;x INVERSE & LIST qb@_ DATA i%.) READ  CLS : COPY @ABS RPI6=tTAB ▛[I][Q][A][B]m}U~A LOAD ▞ GO TO F▚ REM t GO SUB MNOT  BEEP DC=f< OR  LPRINT Q4<>* RANDOMIZE ATTR [ MOVE  LOAD {TAB  FOR  THEN CODE [P]EXP '▛▘ACS INKEY$[O]▙ATN [O] VERIFY 0 TO 1 BEEP [R]? DIM  FOR : PAPER P LPRINT IN  CLS  RUN  COPY nVAL [J] RESTORE  CAT  COPY O[O]ATN  INK  NEXT / STEP RND[Q][S]7 FOR  THEN  CLEAR  LPRINT $r<=SGN Y8 CAT  INPUT ITRND7VAL nwc▙[R] DATA Z;ATN @COS LEN tq▚r AND 'd[T]sSQR [H]/#q STOP  MOVE ~'SIN ▞8+ BEEP 1 INK A FLASH  PLOT  { CAT  CONTINUE * MOVE  BRIGHT SQR [K]AT  STOP [ FLASH , STOP  COPY  READ  OPEN #F COPY  LINE Fb= FOR TAN /HIN  MOVE ACS z[R]5O6CHR$ 8:/ LET  COPY TAB /INT jAT  BORDER ASN 8BSCREEN$ $L BEEP EXP P]C BRIGHT  CLEAR [T]{RCHR$ [G]I[U][T]!# NEW  FOR ATTR  MERGE 2hMPOINT np GO SUB <=PI[E]2& COPY [J]INT  BEEP (4RND;Kn[LN n)>= POKE  CIRCLE RNDeXO LINE [C] INVERSE Q PRINT [L]7dtBIN z[E] INPUT  DATA VAL  READ q`6p CLS [I]:  RUN NOT  PAPER PFN ! FOR x2+*j PRINT >=POINT 0S[R][O]D ERASE  FOR ?`[L] BRIGHT [T][H]P^▚ RETURN  OPEN #gW[M][D]I[U]ATN 0 DIM |7/o> v'.+ NEW [K]7INT ▝$? OVER +w-L RUN ATN  PLOT  eCOS "[ RETURN 9 OPEN #)▜> OUT 1SCREEN$ STR$  FORMAT EXP  OR L?ATTR Y+ TO  CIRCLE vQNOT wK<= DRAW ▛7 LINE ` PAUSE [C]&POINT -▜& LINE  NEW 1 LLIST AT z-[I][N] CIRCLE  IF C:sVAL LEN SGN -;©[L]BIN POINT 7 DRAW hPEEK LEN VAL CODE  OPEN #% PAPER LN a_"do OUT K[K]z LINE c;z OPEN #STR$  OUT g[P]▜hAT d^CHR$ TAB  RETURN qe READ ATN kZB CLEAR ) LET kC NEXT [Q]hHZG&INT ) DIM ^[M] TO vGs CONTINUE  INK >=▘INKEY$ CAT C PRINT BIN  CAT  LPRINT Y▟t BORDER ASN L OUT ;4yt:[R]` LPRINT # DIM  REM  RANDOMIZE SQR ▝▘; LPRINT  NEXT ~[D]< READ  RUN  INVERSE k VERIFY  DIM 4 INK  RETURN  POKE  READ  PLOT   NEXT D/ LLIST [T]s[M][U]S BORDER  LIST ▜O[U]f TO ▗[A]=pSIN COS  INPUT ▗© OUT  VERIFY K- OR [U]SQR  TO II INK  TO h@ DIM 5$#" CIRCLE  OUT FN XG<>[E]_Q▘j LINE <> THEN  LET SQR © CIRCLE .)%&b[G]ATN j,ATN u+ SAVE *`%▘* CLS INT  DRAW x▙":"▖%3-:ACS  PLOT  ACS LEN [K]TJC3[R]WL PAUSE CODE  DATA  RANDOMIZE LPEEK ASN B GO SUB 0)[U]& RETURN USR 3 INK 5 PAUSE ASN T[K][H]I LPRINT 3 PLOT  9 FOR  OVER p RUN  DATA  DEF FN 6 STEP e OR =ZG$[P] LET ▚3 PRINT [E]I>=Z=[C]▚t DATA 57p RANDOMIZE ?& DIM 17uSTR$ 8!VAL aD▗4<=AX[I]TAB ~[L]▗=b[F]8cLN 5 CIRCLE J RETURN p$ COPY c>=J4▙SIN ?S_{6 GO TO  RESTORE  CLEAR [Q][!IHKE^ DIM  LINE [R]MH INVERSE "X▝%( LPRINT ~SGN T▖ASN  TO $▜[S] REM > NEXT ASN SCREEN$ Q LET CHR$ 7▜F@LN 1 THEN VAL  LIST ▚[SIN  PLOT  [Q] INVERSE Yk-BIN ▖[H] DIM /▚ASN V CAT q MERGE 3 INPUT 0F/INKEY$]@- STEP ACS  TO NOT [U] DEF FN NOT  ERASE  OVER [P]VAL$ [T] THEN /[R]EXP PEEK [C] FOR ©▜▜[G][E] CLOSE #[J] INPUT [J][D] CIRCLE  SAVE  LLIST  REM [E]8` LPRINT [D] FOR STR$  IF 6TAN Q BEEP [E]4< OR # AND 4 IF  THEN [H]<> STOP >[E]U LINE TAB e PLOT   READ # NEW  NEW  THEN G<> READ >[E]U THEN PI AND >SGN *PEEK hr213 LLIST $AA CLEAR  CLEAR  COPY ▘BIN ▗M▟▚JNOT KV PLOT   CIRCLE  LIST g▝▜▖▞DI▟▜J▙▚ RUN  RANDOMIZE Ao REM K▖ATN  NEXT ~~ CLS A[A][B] LOAD  OUT D[A]u SAVE  BORDER  DATA EACS  RANDOMIZE oAT  PLOT   MOVE  COPY ? CLS I8 BEEP Q▘IN JNPOINT [B]t RETURN  COPY ▝▜]&ABOPQRUVWXY[]^_ceghAT  COPY /q DRAW NG▟]B DRAW  AND  LET D OR C AND F[D]J IF  PRINT A>©▝&`▘ COPY ASN  COPY  GO TO & RETURN 5▚ INK  DRAW U[P]F CLEAR R▞! COPY  DATA  COPY AT  RUN !UQ▟C▙▖[A][B]B▙[C]▙ DATA v COPY x LOAD C▙INT [C]>= NEW  RUN IN [C][D]▟D▝ LET O[E] LPRINT [F]o[G]T GO SUB  IF Dq RESTORE [H]A▗ AND [B][P]K CLEAR L[I][J][K] RETURN  LET  DRAW L" BORDER [P]^ RETURN AEFIJKLfYb~}[L]VAL  COPY _E[M]ALX!IN LEN If PLOT  AsN READ CP! RANDOMIZE GKVAL M CLEAR >]▝4A LET  VERIFY X▘[T]BTA DRAW  REM  RETURN M GO TO 7 LET  NEXT D▚7▜ RUN  DRAW ▖ PAUSE ▗J▞ BORDER | RUN ▛BKD© PLOT  G7▝O DIM  NEXT ▟AABS  RUN  POKE ▙C MOVE  PLOT  Y CLS  RUN E OUT  POKE G{ PLOT  ;[S]E▞<> PRINT ? OVER ▟Fc RUN ▛]▙ SAVE  GO SUB G▟H RETURN  LOAD DF▟I INK  RUN  OPEN #ATN OuC RANDOMIZE S▖ SAVE  READ B[A]Ua RANDOMIZE A AND W▞ RANDOMIZE Y7[ STOP ] CAT  COPY PIA<=sS MOVE W0 OPEN # CLOSE #_cdg}ATTR AT CODE  COPY ]WD DATA  PAPER 2H>OINT G CLEAR ▝ COPY MJ▘Y> CONTINUE ▗▚ BEEP  LINE  QHG NEW %D RUN A5▞C RUN FN  GO TO  LET BSCREEN$ C RETURN I INK  LET  COPY # SAVE USR ▛Z PRINT  CLOSE # NEXT  LPRINT Z▜SGN  PRINT  MERGE  RESTORE B LIST  LOAD  COPY ▘CODE & DATA ▟CN CIRCLE INT  LET I▖TAB  VERIFY  DATA  PRINT  FOR  OVER  RETURN OM DEF FN FN QINT  VERIFY  RETURN R DRAW %▙D[A]P LPRINT [B][C]b BEEP Q INPUT B#[D][A]CODE O GO TO [E][F]▞< INPUT [G][H][D] TO  LOAD N LOAD [I][J]O LIST  LOAD  $[K]3 LOAD MP LOAD s[J]N LOAD [H][G] STEP [E][L] LOAD LA LOAD  BEEP [J]MSQR C!: OVER  BEEP  BRIGHT K GO SUB ▜POINT ▛INT  COPY  PRINT "[D]LN VAL$ J GO SUB EM GO TO dFLN AT [M] GO TO 2 COPY  RETURN ([L][E]F/G%8N[N]H MOVE FPOINT KqS?$)* OPEN #,A COPY ▝UVYZ[/] POKE _`ab COPY }ltu▘▖RND▞ COPY POINT [L]ATTR AT TAB  COPY ▟%" CLS BIN 1 IF DbAFP▟BL NEXT >SGN $F# DEF FN 'b,"hH▖[M]XIN  OR B  RANDOMIZE Y▝$ DEF FN  OR V▘<>USR SIN  LIST S▘▝! BORDER Y PAUSE  DRAW ▗BQ#>▚▜[S][A]y▘ OUT RND▖jL▙▘ INPUT D SAVE ACS  SAVE [K]LEN ▝ DRAW ACS  SAVE  OUT  COPY o LOAD / OR j BEEP <= PAUSE  OUT  STEP  AND  NEW  BEEP [A] IF  OUT _ RUN Y LOAD COS  SAVE  OUT f|/K GO SUB A" AND  POKE C COPY J[B]A▗[I]7▚?C PAUSE H[C] FORMAT /IQLEN Ex[D]H FLASH S[ COPY $)AGHJk96 ERASE ZRND MOVE +IN fg CAT i|TAB  COPY  NEXT B DRAW  LLIST AXCIN O CLEAR G BORDER  CLEAR ▝▗ILEN  COPY DCOS CvIAT ▖ PRINT ▞ DRAW CMASN  PLOT  B DRAW 9/M REM BIN ▜B[I]▛ POKE R MERGE H LOAD  AND F▝IVAL  RETURN U COPY  CLS  NEW ▟ GO TO B[ DRAW  DEF FN * NEW  CLOSE #RNDBIN AT p COPY fMPI DIM  REM ATN ▙ GO SUB VAL$ [A] CLS E FLASH [E]g POKE  OPEN #▞A%CODE  DATA  PAUSE [H]>=▗[L] NEXT ▜z[J]AINT AT  LET RND THEN  MERGE  POKE  CAT  VERIFY ▘ PAUSE AJSGN [G] LIST  STEP  DATA z ERASE POINT  PAUSE [I] MERGE ▞B> ERASE  PRINT  LPRINT  FLASH  OR  FLASH  STOP ATN STR$ [H] AND uXC POKE m[j READ ▛MSQR ▜▜▝j= LLIST ASN  DIM [B] STOP +RND8VJ FLASH [F] LOAD POINT  RETURN  LOAD ACS SQR [ INVERSE  LOAD o COPY ▛s[H]>= INVERSE  MERGE  LOAD [H]x CLEAR POINT ▜Ea RESTORE ▞ACS ▘<Km INK  FOR K GO TO  BRIGHT ▞C RUN  CLOSE #O~ INPUT ▜M▝▖[C] BRIGHT  OR OATN [B] SAVE  COPY A LET  RUN )/^/INKEY$ef ERASE hj COPY VAL$ CODE LEN  COPY D[H]n RANDOMIZE ▞$hQPOINT G▟AEi COPY [J]▝ [P]M▞R▞▘PUSR ▚BG LLIST  COPY ▞[P] RANDOMIZE ▝/ RANDOMIZE H▟SGN  INVERSE ▛A POKE S BRIGHT  RANDOMIZE n▟M INVERSE  RANDOMIZE ▘,^ RESTORE  IF ▙M DRAW W POKE  DRAW ▙7[A]{ LET  LOAD [B]k NEW  GO SUB ▖ FLASH C[C] STEP W LET F LPRINT  OVER ] PAUSE  IF ; OUT [D]▚ CLEAR ▟ LIST SGN [D]SGN  SAVE  RUN NOT AK PAPER  PLOT   STEP  LPRINT ^ FORMAT o>=w LOAD  RESTORE  MOVE ~ RETURN [C]C CLEAR [L] LIST y OUT  PRINT ▗[L] OR ▛ NEXT  LET M} PLOT   GO SUB ▟[N] CAT  PRINT [E][F]IN  CLS ▛G`S; INPUT  DATA ▞R OUT  DRAW IN O▚A> PLOT  ]~),/AI DATA ?WeASN g/[A]ATTR  AND  OVER F STOP TF▟CE( CLS  GO TO ZJ/[K].JA[M] RUN  NEXT K RUN UTAN  CLEAR  COPY X▘BSQR A RETURN ▗ABS [M] RUN ▙▜▗a[I]CHR$ DFJ▚ ERASE [T]H DRAW  INPUT [B]&▚[C] NEXT  PLOT  G▗[D] PLOT  B RETURN ▚▟▙E▗|L[G]▚%_[H]▙[I] RETURN ▗[J][C][K][L]© BRIGHT [M][N][O]%▖ STOP ▗|)[K][P][B]D BORDER ACS ▛B INPUT  BORDER COS [F] LIST B_VAL D([N][Q] SAVE [R][S]!A/*[M] RANDOMIZE  DEF FN [D][H][T][E] CLEAR  COPY  SAVE [S][U][A]RND[B]CODE GTAB ▖"▟O THEN [F]$[C]_ATTR [E]" NEW [C]INKEY$▖ RETURN $7[E] LET PIGFN "HAPOINT ▘ "y▘E PAPER &X RETURN  6[E] DIM BIN  PAPER  OR [A] INPUT [N]▙  NEXT BIN [D]PIAZ[N] PRINT ▙D▗}[E]'|b[Q]# RETURN A▝[R][P]T NEXT %[J] READ Q LINE <YRND[O][D]%9 PAUSE  RETURN A▗KA OR {A[B]ACS [N] DEF FN X[B]VAL ▞N OR )Z RANDOMIZE  REM ▟▙BSCREEN$  POKE  PAUSE  LINE E NEXT I INVERSE ATN  RANDOMIZE [E]▗IJsSTR$ TAB %y RETURN [H] GO SUB  OUT  PRINT &[S][D]SIN  COPY )+,-/123 OVER ABABS (/CODE 'f CLEAR ghklmn CAT "[B]K▜ RETURN VAL$ VAL LEN  COPY ▟' LPRINT A(Ma14C' RUN H DIM  AND ▟GE CAT  PRINT B AND STR$ DCHR$ ▟A1 LOAD #! OPEN #g LPRINT ▞J DIM  CLEAR Dc^C>=▗ COPY ▚A▜ LET ▖▞s▝ LET  LET  NEXT ▗▛[R]dx STOP  LIST AVAL$  LOAD ▙RND LOAD l[ OUT  LPRINT  LPRINT A▚, LIST C OUT n LIST [C][S] NEXT + READ TAB  CLOSE # MERGE  NEXT E NEW ABS  BORDER [D][E]INT  CIRCLE [F]5ATN SCREEN$ {SQR G▚>=AT [N]▝n LIST [G] AND PEEK [H] TO I▝ BORDER  NEW  PLOT  [I][J] GO SUB [K]SCREEN$  SAVE  INPUT  LOAD  RANDOMIZE [L]' CLEAR  RANDOMIZE [M]W▙ BORDER  REM ▛HA PRINT B[N] COPY - LET  LET  LOAD H=B[O]▝K COPY C RUN CHR$ [P]6 COPY  THEN NOT ▟ STEP  FOR [Q]ACS  SAVE  INVERSE [N] RUN ns[R] LIST ▖tW[S]VAL$  LET ▚ IF RND:U[! RETURN [S][O]▙▜A IF  FLASH SQR  NEXT CW READ [H] LIST  DEF FN  LINE CODE  LLIST ! LIST  FLASH w INPUT A▝ PLOT  E▞ INVERSE  LPRINT  LET CHR$ DGTAB S IF INT x INPUT ▖ CLEAR $A DRAW  DEF FN  PAPER Oggh© DRAW AT  COPY  CLEAR lH#EpC CLEAR 3B GO TO [A]C DRAW bE|AG(I OVER H LET HccK THEN  READ OrR DRAW < CLEAR P LLIST {▗LLTF SAVE  REM ▚▜ MOVE ▖PI▞▗Q<>R' GO TO ▟▛ BEEP B▞ LOAD ▗ STOP ▚A[P] OVER ▟▜▛ READ ▙, MOVE [A]h?[B]▟[C]' REM ▚▛ BORDER ▟0B▗EB BORDER ▛[D] CAT ▟ ERASE ▗H[E] FLASH B[F] PRINT 3 CIRCLE I[H]' RETURN  PRINT [E][G]&TAN  FLASH E PRINT " INK ~[H]▚I PLOT   BRIGHT J TO ▛H MOVE D=A[I]J POKE [Q] TO  INVERSE G CONTINUE ▟Y RETURN ?[T][J]▞C'[U]▜▟<>[I] CIRCLE [F][A]Y[B]IN [D]C LLIST USR [A][J]B INVERSE ▜[D]$ INVERSE  GO SUB _[J]*s[N]k NEXT A[K][E]Q GO SUB J DEF FN ▖ CLS EdVAL D[E]l[K][K]▙jG[P] RETURN T▛^) CLOSE # BRIGHT [B]{ COPY SCREEN$  COPY ATTR  COPY A_C CLS G[S]CK[E]E RUN /$^ABf RANDOMIZE X,Ja PRINT $ AND >= DIM I NEXT  LET KABS F CLEAR  CLEAR ACS ▘ RETURN  STOP ? CLEAR ▜▖i▚ DRAW  ! POKE Q▞+ FORMAT  NEXT -8SGN  RUN  LLIST  NEW  OVER © RESTORE Ao LLIST ▚▛ STOP ARND LPRINT  DRAW BA▟ INVERSE ~E[H] FLASH ▙ CLEAR < SAVE [A]▖h/▟!▚hCEXP [B]JACS [O] IF [C]▖[D]8'[U]▟[B]POINT I LOAD  IF PI[C]v9 INK !I PAPER ? ERASE [E][F]▚ [I] DRAW  ERASE  IF x RETURN ▘[G] SAVE [H][E] STOP [D]y RANDOMIZE [H]▞[I][J]4[B]ZI[N] GO SUB  RANDOMIZE [J]4& GO TO  OVER [K];SIN  GO SUB  RANDOMIZE y CIRCLE  LET FN , PAUSE LEN [L]▞ACS  RANDOMIZE ▘WASN j COPY ] COPY SIN  OVER >dgj~[F]▝▞ COPY ATTR  COPY ]C LET VAL #AhBLN sPEEK  BEEP COS BIN / READ G!BI  RANDOMIZE  DATA 9© CLOSE #▟ COPY  CLEAR ^" OPEN #▝A LET [I]M▗INKEY$ IF  LINE  IF [A]+Qz7 PAUSE ▜G PRINT [F]B CLEAR  DRAW  PRINT I▗ PAUSE  THEN  IF { LET H▖[A] RUN  READ GACS # DATA | RETURN ▜▞ OR [U] DATA FNOT  TO  LET COS E DEF FN TAB  LET x NEXT B▜ OVER  ▛F GO SUB  RANDOMIZE C▗ LOAD % ERASE  SAVE } PAPER E▞BABS  ERASE C▖ OUT  THEN ▟) LLIST ▗'C> LET ▛*|SGN ,-▙▘J! LIST [A]yI$ GO SUB [J][A] INPUT [B] BEEP [M]%m&.[C]I[B]TX[F]3AT Q IF >KTAB EPEEK  GO SUB  PRINT  CLS ▘z[ RANDOMIZE o RANDOMIZE ? CONTINUE FB( INVERSE  PRINT  RETURN D!▗z OUT [C]D REM _A SAVE  GO SUB F[D]E FLASH O▜0$')ABDIJLo SAVE  CONTINUE p OUT iz{~INKEY$K NEXT ▛ATTR CODE  MOVE LBIN [U]Kq[U]AA[B] PRINT yJ CLS  READ +A,S* SAVE s CLEAR ta BORDER  LINE ANOT  SAVE D▚▘<= DRAW ▜9 RUN ▖▞ FORMAT ABS ▟ LET  OR ▛g PRINT ABS ▟ LPRINT  PRINT ▙w[A][B]FVAL  DIM oB8 PRINT #<= NEXT "  RUN ! POKE NOT h# NEXT /[L] LINE  BRIGHT $INT SIN ▞Ta<= DEF FN ▟yB▖INT [C] CLEAR ▜}FN e[D]▘t CLEAR  LPRINT PQFN ▘7▜[F]GII DIM  RANDOMIZE [M]L▘ PLOT   DIM  OVER  CAT [G]G5t PAUSE  LIST N[H][I][J] COPY R▜h▘B©O[A] PAUSE ~X[J][I][H]] STEP $M DATA P[G]G DRAW ,kouATTR AT  MOVE  PAPER © LET ▗B[R]CD STOP DfA(▜[I] RETURN  DRAW IN A[D]/ LLIST <=>=IN MC CLEAR  STOP [[A]< RETURN ▝▘R▞▘VAL ▛G▚- POKE %8 POKE  STOP ▖▞G CLEAR  LINE F DRAW  DRAW ▟▙M[A][N]E SAVE ▝[B] INK  PRINT I RUN  PRINT ▘F[C] PRINT  PRINT G[D] NEXT / MERGE  LINE  CONTINUE ▖rCODE ▛ SAVE 9INKEY$SCREEN$ [C] LET SCREEN$ SCREEN$  CLEAR <>INKEY$▝ATN  BORDER ▛[E]B] NEXT ▘Cm[F]<= FLASH  PAUSE G~t▟[D] LIST [G]qeTAB ASN [G] NEXT p READ ? POKE [H]'Y AND [C]T[T]|[B]] GO SUB J DRAW <>A[D][A]/[C] NEW PI▘B OVER [G]d PRINT ▙ READ ACS vATTR SIN  CLEAR G<>[U]7POINT f5CSCREEN$ [A]ATN  COPY YG-[C]Y1 COPY oY[E]E PAPER ▝5 READ O COPY [C]C& AND SGN ▞I|SIN  STOP  MERGE ▗▙P=BIN [O]8[A]@`~▟[I]© MOVE ▞DBN3▝[D] PAPER [A] DATA [E]OPEEK [J][T] OVER Pi5ACS ▞X[E][I] THEN }SGN = LET BbYASN  RANDOMIZE  ERASE  OVER [B] RUN g POKE hiVAL$  COPY [R]jSGN B_D LLIST <> FOR  CLS  LPRINT ▜H▛Q LET dD READ s LET Q SAVE  CLEAR RH CIRCLE AP▝[M] LET PI RETURN CNOT A[S]FDc[M]P▙-[C][T][D][O]PIGABS >=C PRINT |▗[E] SAVE IN SCA REM [C]>=O RETURN  PAUSE ▘[G]PEEK  POKE [H]▟WABS VAL [G][I] NEXT N▝[J] DATA >=▖b[O][K]K[L]▟* DRAW ▖[M]! PAUSE  NEW ▜B[N]ACHR$ .[A]EXP w▝[O] OVER  BORDER A INVERSE [B]HCODE ▚ CAT C▛▖ AND  CAT [I][K]{[E]▞▝[O][P]<>C[B]N FLASH B CONTINUE <> INVERSE ▘Ke SAVE E[P]PI POKE C_▘E# ERASE  TO S READ B PAUSE  CIRCLE ▝Kfx2[F][J][Q]6[R] AND = LINE G[M]YA PRINT 4 LET G? NEW L!Q+CN VERIFY  BRIGHT  NEW [M]$[E] POKE L4P4 RUN  LET U? FOR P[Q]TAB M INK C} PRINT IXO$ RUN h MOVE ^k[T]BIN ij COPY kost{©▝TAN INT  INK CODE / CIRCLE  RANDOMIZE R[D] RANDOMIZE  CLEAR B MOVE  MOVE TAN /}EHI PLOT  [B]Bq;G[B][M]C▞"DF LIST  A[S] LIST FN ! PAPER  PLOT  AxZD OUT B▝▚ RANDOMIZE ▜▗M RANDOMIZE p RANDOMIZE lO SAVE [P]▖ CLEAR ▞SGN  LPRINT  NEXT J PAUSE  RETURN YVAL  INVERSE  BORDER GB▟ CAT ▙ RETURN D[A][U] LIST  CONTINUE ▚▘y[B][A]yNOT [C]▞N[E][F]L[I][G] FOR #k[H] GO SUB ▚ REM [B] LPRINT [F]([N][P] CLS  SAVE ▟[K]VAL$  PRINT [E]$H LINE  INK J LOAD [I] READ  IF J COPY I RUN  LOAD  MOVE "[L]L[L]STR$ [M][H] FLASH [L]INT  REM R[H] OUT  DRAW PEEK  NEXT H▛LEN FN [N]=[I]C3VAL a COPY NG FORMAT EXP  FLASH [G]C POKE  NEXT ▜ DIM [O]" COPY Q DRAW C[M] BORDER  CONTINUE ▚ATTR  PLOT  uLEN  MOVE BF▜F$ READ INT S PLOT  lD▚ SAVE ▛INT ' COPY  PRINT C[G][D]SCREEN$  CAT GA SAVE TAB [L][M]6[B]_[R][L] GO SUB BCCHR$ -]RwY^f CONTINUE h[L]`E//AQ POKE MB READ hqZA=KE`NOT F[J]I GO SUB  NEW  AND BI CONTINUE [O]F CLS BT^R([G]O TO !Q LLIST  ERASE m COPY 7USR ▜G CONTINUE ▖ CIRCLE  INK STR$ x▛K[J]▜A PLOT  [ REM h RESTORE  LOAD ▙▞BIN C▞▛▙NOT ▝*8▜K MERGE B SAVE 9 LLIST ▛[B]▝ CAT [C][D] CIRCLE [E])0ASN RND` CIRCLE  SAVE BIN COS VAL$ ATTR [M][F]OTAN  READ [G][H] LPRINT [I]STR$ VAL$  CONTINUE ▟[J],#[K]CHR$ 6 RUN J RESTORE  CLS  MERGE  PLOT  [L] INPUT N RUN  DATA |[F][M]▗[N] REM [I]  READ INKEY$IN  POKE [I]U LOAD LN © READ [F][C]A"STR$ [B][I] RESTORE )PEEK [E][O]A[H] MOVE [D]I RUN  PAUSE u MERGE ▟[P]QE CLS  CLS [Q][Q]▝[I][R] DRAW &A[D]%?[O] DIM [S][F]5 CLEAR [T]VAL ▟[U]RND LINE INKEY$[F] CLEAR [U] SAVE  CLEAR  CLS [I][K]PI(q REM MI SAVE  INK  DIM [E]▛FN  DRAW  CLS  DRAW  LOAD [T]:7}▘ PRINT ([T]PEEK  SAVE N(u▛[ OVER [I]j VERIFY INKEY$ COPY uGm TO (* CLEAR [A] DRAW  RESTORE ▖▞ AND LEN  TO POINT B RETURN ( LET SCREEN$ [R][C]?&$ CLS &),03+zE©{ij[C][L][N][P] FORMAT [R]ATTR [N]D RETURN  STOP [S]f DEF FN A'6Q| PAUSE  DIM ACHR$ )> NEW GDa RANDOMIZE E LPRINT  PAUSE  PLOT  0AD$ COPY CFG( ERASE #N OR KIN ▚A▜▝▖▞USR  POKE ▖▛[C]BIN %▙ AND ▝[A][B]< LOAD [C]▜[D]N[E]▟[F]O RUN [L]USR ▜[G] BORDER [H]▟[I] NEXT A[I] OVER [J]=[K]▟[L]k BORDER B POKE [M][N]▟ LET  LOAD [O]▜[P]$[Q] RUN  LET  PAPER [R]▜[S]$[T] RUN  RETURN BIN [U]▜[B]L PLOT  LEN JPOINT CHR$  RESTORE [R]▝K THEN B RUN ▖▗IRNDINKEY$▘PIHAIf BRIGHT  POKE HDs LINE [L] FORMAT VAL$ tNOT  MOVE >8[A][F]FN ATTR ir[C][I] RUN i[U]v INVERSE  LINE  RUN D PAPER BIN xPOINT ▜E+ PLOT  zPOINT [J][G] PLOT  F PLOT  /yPOINT [D][F] PLOT  py2ABS  RETURN INKEY$NOT lRNDs[B]POINT ▛ REM [U][O]POINT ▖r RUN J RUN +n STOP  AND  LPRINT SCREEN$ [A] GO SUB  RETURN ▗MINKEY$L[D] LLIST $IN U_ieg[T]j©DM LINE XJxAICUSR BH0ACG"! LPRINT Fp IF CE[A] CIRCLE SCREEN$ D LLIST GC`[R]HBB(IRASGN  CLS L STOP ) CIRCLE  OR s[B]▗ IF ht>=Bj▜M PLOT  CPI CONTINUE  INK  RETURN  PAUSE CATN & POKE  CLS RND PAUSE  DATA  BEEP  CONTINUE [L] DATA  IF  PAUSE q[J]▝~▞ NEXT  RETURN  CONTINUE c5JD OUT  RETURN F▗[▞ AND ▚T CONTINUE G▖k PLOT   CLEAR  POKE  DRAW FN[C]ICOS  PRINT HkhW[S] CLS  OVER  PAUSE GTNOT = GO SUB nQfh4z STOP  STOP  LET  LPRINT Bm PAUSE TINKEY$▞LN EdeATAN ▚[G]> LOAD  PLOT  C0 RUN <> LLIST B OVER _ PLOT   PAUSE ▜Nq RUN ▗@[O]C PLOT  [K]K PLOT  ▖<=▞ LOAD g SAVE INT B OVER ACS  LOAD B CAT  SAVE  LINE KINT ▗ GO SUB h PRINT ▚S GO TO i[F][N]w LIST [G]N LOAD  RUN ,ATTR  LOAD  RANDOMIZE Q`▗]rSGN TIN k SAVE  RANDOMIZE n OVER  FLASH QFaSCREEN$ P<>SGN  RUN IN  IF  RANDOMIZE }SGN A'9SBIN ▞C:Kr▗ PRINT <# PRINT N[O]M DRAW Q CLEAR M RESTORE ▝L FORMAT [S] COPY BIN )▝FCf THEN ▜ SAVE ▖?▗#4] PAUSE  COPY Hm CONTINUE [Q]PIE RUN VD PAUSE  LET  OPEN #3K▝X LET ▙y PAUSE 9 LET B BORDER  CAT / DRAW ][A] LET H[B][C]LXB(▝&[C]K▘ REM [D] RANDOMIZE [E](%!▗ NEXT `+J▙[F][G] A" LIST IEOO LLIST C▞[H][I]Y LIST H LPRINT  READ ▝B[H] FLASH E POKE C^ PAUSE A[H]IPEEK  NEXT "d POKE M PLOT  [J]L[E]B/? STEP [J]$# BORDER ▞H[H] PLOT  L PRINT $%'[G]|$o STOP  PRINT  ERASE '[J] GO TO =SQR H[E]J GO TO / DRAW  NEXT C[H][K] LET  RANDOMIZE D[E]ATN [F]E INK  FOR E PAUSE n FOR J==y GO SUB [D]HINKEY$SCHR$ }[E]F[E][D][G] LOAD  CONTINUE N[F]A>PA "4 STOP r RUN $ IF ) RUN  REM ©[R]inoqrs[S]u|k▗VAL$  COPY [T] MERGE  CONTINUE  INPUT [B]pLN FD▞tE▘M< LET CBa CONTINUE ~ GO SUB DINKEY$,▛? NEXT LN CLEAR  DIM _ TO 1FmI gt[M]▚Y▜ CLEAR [Q]▖ LET ▞ CLOSE # LET  PLOT  4▛▚z PLOT  [T] BORDER ▟ MERGE ▖ RUN SIN  OUT  PRINT  LPRINT  INK POINT  BEEP . STOP - FORMAT [U]d STOP  CONTINUE  LET 2bATN ACS  COPY  NEXT  GO SUB BW▜ACS Z FLASH  PAPER  LPRINT ABS  FOR [G] COPY  INPUT  INVERSE  OUT [A]SCREEN$ D RETURN  STEP [F] CLS INT  LIST POINT t COPY  RANDOMIZE  COPY ▛▙AT [A] LPRINT F SAVE  LET [B][C]▟▟ FOR  IF b[D] COPY  TO [E] COPY ?I[F][G] SAVE ^[H]T|[E][I][J]A[T][K] LET [L][M]A RANDOMIZE H SAVE  RUN [N]D[D][A] RANDOMIZE ▘* RETURN  NEXT " NEW [L]▘7[K][I]5 PAUSE D NEXT [J]E POKE [O] PRINT S CLEAR  DATA [J]hTAB <>C BORDER  READ [P]B> POKE [O][M]▘ ASN [Q] LINE  FLASH [R] RESTORE  CAT [S] RESTORE E[G][Q] BEEP [I] PAUSE [R]VAL$ [G] THEN [Q]p IF [N]ATTR C LOAD BCo PAUSE As LOAD E LLIST o LET G LIST [H][P]D;[S]_[F]H NEXT  COPY $%&'APEEK B1e COPY  RETURN 4DhC MOVE A[T]a▚G{EL<>_C:DX[I] ERASE E CLEAR <lAGIC RUN ▙B+ LIST  LET  PRINT SGN I▗>B▚ATN 6 LET B LET  LET JFN  RANDOMIZE  CLS f LIST  OVER  CLS Q▗IN  THEN JIATTR INT LEN USR  POKE "#▟▘[A][O] LOAD [B]H[C]q RUN A[D]ATTR  POKE C IF ,▛"[E][F]< LOAD  PRINT  BRIGHT J[G] IF  POKE [H]'%~*&[E]EXP  GO SUB ▟ NEW NOT #$SQR [I]SQR Hy RANDOMIZE  COPY A[B][D]▛$[O]▚E▟) GO SUB  PLOT  C[J]F CAT  BORDER <=[K]ATN ABS [B][B][J]<>$D GO TO  BEEP  LLIST J<[L]E FOR : RETURN E[B]A  CIRCLE /r[E]y DRAW  NEXT  BORDER H[K] FLASH J[L]:[C]H[J] RUN k▙[P]? INK *? INK C[C][A]▗-[M]. RUN [M]ChD FLASH R▜}!$'AU REM  GO SUB SGN gACS pKUSR `tuvwxyz{|}~© DEF FN LN  STOP  GO TO TAB  CLEAR LEN  COPY M.USR  LPRINT  LLIST BIN `I▞▟U+ STOP *, AND [P](D[P] GO SUB A) DRAW B!|C_ CLEAR NM IF ▝ICHR$ VAL$ C▟▟H▚X POKE I/HN LOAD [G]▞F▛Dzg▗▟E STOP  NEW A4[A],<=▘▚ NEW L LET  NEXT ▘USR  NEXT GFN C RESTORE [N]SIN  LINE SIN L CONTINUE [U]A[D]VAL  GO TO  RETURN AT [A] INPUT N READ  DATA ▛E CIRCLE LtIN ▙=!LN  INPUT ▘ AND  MOVE  ERASE  COPY  CLS  BEEP  RUN ▛▞[M] GO TO ▟ FOR  STEP ▝AgP[C]▙ACS  NEW  PAUSE  FOR ?[B] NEW D[C][D] GO TO ▖f RANDOMIZE Q RANDOMIZE d RANDOMIZE BIN ▛▞▞ REM [E][B][F] GO SUB q.▛D▟ PRINT I PRINT [Q][[H]G OVER  NEW  OUT Is POKE  REM ▛[G][H]9 PLOT  [F]▝AT 'A CAT [I][F]U BORDER  LET 8 FORMAT ▙[G][F] POKE 8A MOVE ▞ASN  CLS  REM [I]▖ INPUT e READ O PAPER +O FORMAT /~[H]EK LLIST  INK BD&TAB t CONTINUE B?TAN MA▚▜C[K] CLEAR  BEEP  LET  DRAW D▚E© CLEAR B CLEAR  THEN SXJ DEF FN p FLASH ▞ CLEAR  CLS  CLEAR H▚B▜ELN  PLOT  ▖Dz PRINT ▞5[F]{ RUN  CAT  RUN D▟J▙ DIM  RUN  READ / CLS w PLOT   NEW  PLOT  ▖^( CLEAR  PRINT [A]G[M] INK  NEXT <= CLS ▟I[B] CAT  PRINT I[A] FLASH A▟ASN Z PRINT L5TSQR  RUN [A]>= RUN }B[C]M DATA  RUN  LOAD  OVER N[A]  RUN  OVER MK[B] LOAD >=FN  RESTORE  BORDER IN  SAVE ▜=XA[C] BRIGHT j[B] STOP  CAT D[C]c^qZB&b READ ▚ BORDER ▜K PRINT [D][E] STOP A COPY O[E]▝[F][G]SA CLEAR  DRAW [F][D]] COPY NOT [P]+ OR  COPY @▚▜▞ATTR  COPY C[R]* MERGE ,F=E@BATTR  DIM A[I][T]Cd' CLEAR ( IF 1E NEW  CONTINUE ▘H PLOT   BRIGHT 0[E] PRINT oB% POKE  DEF FN p NEXT ▟▗ FORMAT >=y[A]_[B]▖[R]F INVERSE FE[T]LN  LIST ▙▟[} LIST [F][G][H][I] CIRCLE  LLIST G VERIFY [J]STR$  STOP K CONTINUE  STOP T[J]<= FOR  CAT ▝N CONTINUE PVAL$ ▛ DRAW ▙Jm MOVE B[L] MOVE  FOR [K]o RETURN 6 LLIST [ BORDER  PAUSE / NEW C[F] OVER S| RESTORE [L]▘T[M]>[N]C[D]▖POINT  OVER  PLOT   STOP L<>E GO SUB  CONTINUE ABS J DRAW  GO SUB /[M]]V[P]▞[R]~PBCEF FORMAT 5b RANDOMIZE cgAT  COPY G FORMAT [P]COS XD[S]3G POKE D* SAVE CHR$ |X AND  INVERSE JSTR$ I COPY TAqE"D© CLEAR a FORMAT ▜!fCt DRAW ▘RA[Zy CLEAR ▜▖ NEXT  BEEP ▞ RETURN  FLASH  SAVE m STOP ▛ INPUT  RETURN ▟IN  SAVE  DRAW  LET ▙Vl LLIST  RANDOMIZE Q LET ▜ LIST U CLS  POKE JTAN ©[E] OUT RND CLEAR  LIST u RESTORE  GO SUB  OVER  RESTORE  INPUT  CLEAR ABS © PLOT   DEF FN {.A;<CHR$ [E] COPY ATN NOT  LIST A BEEP [F][C] RETURN v RANDOMIZE b CAT }▙[C]▝[G] CLOSE # CLEAR GEXP ▙ OVER ▗INT g©▙CHR$ Y▞BA/[A]SIN  OPEN #^i▜ BEEP |CODE fgATTR AT VAL  FORMAT  COPY =[D]CEXP TAN  STOP zm(I PAUSE  INPUT [I]A) PLOT  Jp[A] REM [I]C CLEAR -ZE,(ATTR pB[T] DRAW ▖h CLEAR DATTR AT [L] PRINT A▞[R]VAL +y▖▝ RESTORE [Q]▟ BORDER EXP  IF D▛ PAUSE ▙▜P RUN  OPEN #FN  LET ▟BIN ?a[Q]* TO F▛▖ NEXT 'I FOR ▘ RANDOMIZE ▞[A][B] STOP  THEN [C][D] CAT © RETURN [E]H▙DL' NEXT  PRINT [F][A]SIN ▟ REM *▝BIN g LINE  NEW ▟L  LINE  PAUSE D[F]|[L][G]<>CODE INT  PRINT  PAUSE [H]▟H[I]W/▙KPOINT ▚[M] CLOSE # FORMAT ▖[F] SAVE  SAVE  PAUSE ▞[H]u[d LIST [P]H CIRCLE ▚D BORDER [G][J] RUN [K][L]S TO CODE $ RANDOMIZE HM# PAUSE CODE [B] TO [E] REM AT x#A NEXT  DATA ▗NATN +_8[D]A5▘[M] RETURN 6 OVER ▚ SAVE  LINE [N]H[F] LPRINT [P][O]<B[N]+ PAPER  BORDER [F]8 DRAW ▟[O]▗ CAT  READ A LOAD H%o DATA [J] INPUT >=[P]& NEXT *D GO SUB )RASN e INVERSE  CLS  LOAD : RETURN z BORDER )KCACS [C] DIM ▞ POKE  DRAW [K] COPY INT A[Q]G[C]J BEEP [N]ACS  RETURN  NEW  OR ▟[S]P%J;SGN  RUN  CONTINUE [P][P] COPY C RETURN $*,/58= ERASE 7 CIRCLE Z^▞ DIM  POKE hi▛GCOS [D][E][H][R][I] OVER %[T]RNDPIATTR ▙ MOVE  AND ( ERASE w[K](F,G<> >▙ CAT C!NOT B3 FOR F%*RNDE STEP a/'<=&8 OPEN #+[O] CLEAR  6▝M MERGE % LIST P LET IN ▖B0▞[B]` RETURN A POKE  LPRINT ▛= OVER  LOAD  LIST ▟▙[S]▛2 PAUSE  TO ▛ IF [B][K] DRAW  PAUSE ▗m OPEN #FASN  RESTORE  NEXT l RESTORE ATN  POKE  BORDER D RANDOMIZE #-CTAB o NEW [C] STOP JM THEN } THEN [D][C]▚▜[ PRINT [S]▛} POKE ' DIM  RESTORE A& FLASH [E][F][I]C INPUT [I][J]SQR [K] NEXT m RESTORE  PRINT  NEXT ATN  NEW  RESTORE  NEXT ATN  NEW  INVERSE  INK [L](3j PLOT   CIRCLE W RESTORE }A# THEN [E]$ RUN ATTR  LET  DATA !u[G] BORDER  NEW D[M] OVER O PAUSE  BORDER [M] AND E[N]w PAUSE [H] COPY +[N][O]A"[P]B' INPUT  OR U CONTINUE _{[F]TIN  SAVE )SVAL$  PLOT  X© LIST [L] VERIFY N NEW CODE Y RANDOMIZE [O]MC3 MERGE E OVER [Q]>mV{ GO TO [Q]S% COPY &'),./02~ATTR  CLEAR  LPRINT <>iF{ RANDOMIZE ▘▗▞USR  BRIGHT ABS [B][C]+B▛ A MOVE 5RND CLEAR L,] CLS A= D!x[J]+x[M]/F%[T] FOR  NEW ▞.F4 CLEAR ` RUN CHR$ c RETURN "] CLEAR B6▝ DRAW  RUN  RETURN ▘C INPUT  LET ▗_ NEXT IN  LET ▚©[H] LIST _ NEXT Q LET ▖ MOVE SQR  CLS  LLIST ▖IN  CAT  LPRINT ▖©r LIST ▖▞ FORMAT  GO TO  LET HINT  RUN NOT ATN  NEXT D[J] VERIFY  CLS . PAUSE [I]▞ RESTORE RND<>INT  PAPER D THEN  PAPER z INK ▘ OVER  RANDOMIZE ▜APEEK SCREEN$ F CONTINUE SGN  RUN RNDrACS INT [I]T STEP IN ATTR . INVERSE PI DATA  REM ▛ABS ATTR  NEW ABS  THEN  NEXT ATTR NOT  CLEAR ▟FN  LET o/pCODE RND▞[N] CLEAR  DATA m▜ DATA ];▙a OR SGN ATTR  RESTORE  STEP  FLASH [M]7 NEXT ATN  CAT  BEEP  THEN  GO SUB  RANDOMIZE  BEEP [K] COPY  CLS }[S]~ INK  TO  MOVE  RETURN :^VVKh LPRINT @b LPRINT 
  17733b IF d RANDOMIZE 2 GO TO F8z2%▛RND FORMAT h0B CLOSE #J©2▜▖HFTAN  SAVE KPOINT SGN ▞ READ - NEXT [D] PRINT  IF  RESTORE ▛EUPOINT  IF  NEW FN G DIM  TO  DATA  RESTORE ▗ DATA  AND  RETURN D DIM C▖$, PAUSE [E] GO SUB  POKE ▞E[D] BEEP  POKE VY>=I THEN 1 LIST SRND▛ LINE `- LET  STEP SCREEN$ 2 BORDER  INK [I]aMc CAT - PAPER PIL CONTINUE J FOR COS S BRIGHT [F]mc FOR ) OVER  BRIGHT  SAVE W OUT  CLEAR J▚SCREEN$ Y IF HABS  MERGE L RETURN -~:x FORMAT fP PRINT ij OPEN #▘>= READ [K]fq/ RETURN  NEXT a▚Q COPY  IF XZ/^K COPY W LPRINT A LET COqxK[E]Aq2N ^[N] RUN E9 GO SUB 5FB/ TO ▗ IF ▚L▜,▖VAL$  RUN  COPY ▞,ACS  CLEAR  COPY x FOR ▖▛]▟▙k POKE  DRAW h PLOT   FOR  RESTORE [A] CLS ▚? TO [B]▙o BEEP ▛[C]v FORMAT [D] FLASH  DATA  CAT BIN [E]Gw BORDER ▙{ BORDER 6USR [F] VERIFY  BORDER [H]ATTR  CLEAR ABS - DATA [K]FN [R][C] CLEAR  RETURN ▜▙[G] OUT <=C[A][E]e[J][H]PI©▟▟[I][B][G]▗[O][J] REM R[K]yASN ▟[L]▛ RETURN  OR [M][K][K] GO SUB EufsG PAPER M LOAD  VERIFY ▚Mr[E][K][F COPY  INVERSE [N][I]PI[▘[K]TAB n MERGE  GO SUB  INPUT  GO TO CODE w FOR FACS  BEEP  INVERSE  DIM a{ CONTINUE x LOAD  RUN . CONTINUE ACS 0CODE  BORDER -NACS  NEW w COPY ▟u READ VZ^ AND N▙2 RUN 1G_USR  VERIFY z RETURN hiCODE  COPY # CLEAR D[K] DRAW  POKE LmNB▙ MERGE (D CLOSE #bf STOP 7ECJB▖ CLEAR  LET /▝▘FQL©p RANDOMIZE  MOVE mC{BG LIST  READ CIA CLS  CLEAR [T] FLASH q LIST  STOP ▖▞A▟ OR ▛1 RANDOMIZE ^ DATA  OUT E LPRINT [J] READ  OUT G POKE [P]▛CHR$ ▟▙! READ  [I] INVERSE ▘YOBIN  CAT T.[L]LN  PAPER  CLS  OPEN # CLEAR < PAPER  PLOT  PWSQR [N] PLOT  L^ FOR <= POKE ATTR L DRAW  INPUT  POKE H FLASH  BORDER  CONTINUE  PAUSE  PLOT  H OUT  CLS [O] PAUSE D▞ COPY c LIST  PLOT  C OUT g INK  INPUT IN  FLASH  LOAD CODE PEEK SQR  PAUSE ▛Ho READ TAB  PAUSE ABS ▖ REM  POKE ▛L BORDER  PLOT   POKE CODE Z9 PLOT  ▛P FOR y PLOT  .4USR  SAVE ▛+ SAVE ▟) STOP LN ▛ LOAD `] IF  CONTINUE ^ REM  OUT vu DEF FN  DEF FN EA[R]SGN DZ$K>= HRUST v2.1 by Dmitry hr21CHR$ 6B4ywv©©z▙{/~|} RANDOMIZE  SAVE © NEW  DRAW ▝6▘▗0▜ RANDOMIZE ~A READ ▘ TO  COPY l▜▖ DEF FN  CLEAR ▗ NEW ~{$|▖ CLS a OUT  PEEK |{tx7ywz?ABS ▗▚▘▞9USR xu COPY  COPY w|y{▝}▜▞▙▟| LOAD wpos[G] LOAD PI|▚▜[D][I][N]▖▘rjnoA INVERSE [G]v FOR ▛[T]CODE [A]©likr{yvqv[P] COPY [R][G]▞5 PRINT sSIN 'LN ▖▖[C] DRAW [H][I]▗ml SAVE USR ~wtSTR$ y©[N]SIN INT c RANDOMIZE T>ns} COPY  LIST ~[K][D][B]▘p<=ko DATA rzx▚[P]nSTR$ [Q][I]jp RANDOMIZE Vk|▗▙CHR$ q NEXT [K][M][A] LLIST m%[G]V▝|▘x▖▙ATTR  OR `LE}q[D][P]} DIM v~▟[H] NEXT [Q]|lBIN s9©{ COPY ▞[D][S]CODE fnJK RESTORE }[C]COS ▝o©▖[G][K]{k`ut©▚3 RETURN ~B[T] RANDOMIZE VAL riFAb[I]▝zv▚[M][C]▛x/nrt▚{z▛▛[P]VAL$ oPFy|▖▟[F]© CAT INKEY$mps THEN y{m▞[P][B][C]LEN x_`Ae▜▖v▗©[B][L][I]▗ylnqtINT `|▛©[E][G]ATN LN Tf>M▛0 LIST t[L]INKEY$|seHgO}z{[P]yIN USR HU RETURN =S▖[L][U]juXG LINE [E][J]▙iDJow▟▗|{[E][P]<>UPDw[C][P][J]©us▗[L][C]lNez▜[A]pJ BORDER [F]<>DU_▖ COPY CODE [Q]z▘i~▙[E]kc,[A]y~▛▞[F][A][J]BIN TAN OL=O▟| COPY ©▞p[G][D]/AT @VAL$ [B]=▛▚ABS  ERASE LN ?@4][A][N][J]yzm[B]PI▖h@@c~▖w}▜[P] BORDER  FORMAT =X9?▜[N][U]i▜w[A]zjRoqr[B]vw▜▝ATN  GO TO `G@8k▛CODE [I]▚p[P]]▘▟[E]ZK NEXT xe[D]▚w▝ RETURN IN  LIST <oHG[P]SIN w OR j SAVE [H][M]▖t@ BRIGHT _▜[C]~x▞ COPY ▟ THEN 2 RETURN k THEN [C]{xc.▟▘/bmj DRAW r▙[D]xu}v?IN VAL Gf@KuCODE [T]▙▗mu▜sjDga[G][C]▛▗©[O]TAN RCpO[J]ATN FN }▛xASN QkCHR$ lK SAVE [N]FN ▗[C]_ OR /Sm IF K▜[L]TAN fo▞SQR FkpKCODE }▚ COPY >=Hg/U▞[D]SCREEN$ D[H] RANDOMIZE  ERASE 8gXFLN `gACS [C]INKEY$xyUSR @}/D{▜SCREEN$  NEW s© RANDOMIZE >=4thFvc BORDER [M]POINT ▚sCODE USR +tHB©[B][K][O]SCREEN$ YoPIUSR <▛JRw[E][C][Q]yCOS  CLOSE #1o`Co[D][Q]▛PIu] CIRCLE ,,!{:s▛[A]▜VAL$ pkASN BIN 0©P5sATTR ▚ASN dk THEN BIN 5oJ>W▜[Q]SQR k<= CLOSE #:gH9O▙[U]▛SGN mTAB  TO @kP=fr[J]LEN rATN <>y NEXT L=i NEXT  NEXT ▜INT ▗wSIN Tc<=▖>O{PI▖ATN [E]q[T]<=`]h@Bw[B]ATTR r[F]<>▗GqAEs[E][T]FN t[H] PAPER GID^<= COPY [K]▛CHR$ x▜<>VAL [~/<S{[I]ASN ▗▜CODE  FORMAT Q©h=?K[B]ePI[G]▛ASN  CLOSE #▜tB<Amh▛INKEY$▙COS  BEEP [Q]▘ THEN P9[S]XeAT ▗COS  INK BIN }f<;Ac[ATTR [Q][N] OUT  CIRCLE ▝h;5?DJ▜SCREEN$ [H] THEN  PAUSE [A]lF3;WLoEXP [B]CHR$ O LLIST LN }|/47BHM[Q][T] INVERSE  CIRCLE ▞iF6D NEXT ▜[O][F] LLIST  OR  DIM [U]OxVAL BEK RETURN gSCREEN$ COS  OUT  TO [A]p8=FKO©[S][K] BEEP  PAUSE [Q][H]▚K RESTORE QJ_[F]ATN  NEXT  FORMAT [G]h49X[S]K©[A][L] PAPER  LIST [U][C]▘J5>SGN S COPY ▙▗ATN  PLOT  >=[J][I]l[G]@zEIs▝[H] DIM  CONTINUE [U]RNDP6LEN  PAUSE ASN FY▙©SQR  NEXT  AND ATTR [G]q@7?GJm▞[J] OUT  INPUT LN SCREEN$ [A]`15<BJyyCODE  READ  CONTINUE LEN ATTR ▝P3VAL$ c COPY U~▞<= NEXT  LINE CODE [L]t24:>Eyz[L] READ  NEXT INT LN [A]P05/:OwIN  LOAD  CONTINUE INT FN x6--3?Fq▛ CAT  NEXT  BRIGHT SGN  RANDOMIZE [K]x91.AT  COPY _©[P] BORDER  COPY BIN VAL$ [D]<=d,cO-.=e{PI FOR  CONTINUE CHR$ VAL X/0*5E_▛<= CLS  PAUSE USR FN F**%3Ek[J] MERGE  CLS  CONTINUE SQR SCREEN$ <>) + DRAW 7G{RND FLASH  COPY VAL SQR S[N]p)('*9M}[P] DIM  COPY  VERIFY ABS [Q]`# PAUSE + RETURN ;o©TAB  NEXT  DRAW CHR$ '[A]L"#& COPY ?e▖COS  CLS  RETURN BIN VAL @$#, RETURN Ds▛ THEN  COPY  IF  AND XTAB ▞4'"%,Cg[D] CAT  COPY  SAVE NOT [M]▗:'!+2Gw[K] OPEN # COPY  LIST SGN [J]u4 RESTORE ` BORDER &3M[T] INVERSE  COPY  PAUSE LN [J]x,& '2U▗[T] DATA  GO TO TAN  RANDOMIZE [G]x*"u NEXT K▜[P] BEEP  PAUSE USR ,{*($4K{[P] OUT  COPY  PRINT BIN [K]p8$&7JoRND PAPER  RETURN  COPY >=[I]t@%%*=I©PI<= COPY  COPY USR [R]tJ"(1Cu[P]<> RANDOMIZE  COPY  FORMAT [Q]yf/ COPY [N]ATN  REM  CLEAR  GO TO [R]p/ BORDER 0/g<= COPY  RESTORE  GO SUB  COPY  LPRINT x$"{IN  VERIFY USR  STEP  READ FN 0*2/7Eu|RNDASN [P]CHR$  OPEN # CLOSE #PNHFHPwlPISGN COS  STEP  PRINT  LIST H7>RNDD©[tPIACS LEN BIN  RESTORE  COPY  OPEN #T9 COPY 9Kw`[H]ATN VAL$ NOT %ru▝>BCNk▟[D] TO VAL SQR  INK  PAUSE [A]2, MERGE :HG_▟ATN ATTR CODE  OPEN # POKE [Q]I6@CJg▛SIN TAB STR$  THEN  GO SUB >=HvDEK©[D]CODE [S][R]ATN  OUT  LPRINT `37<AXi[N]ATTR AT ACS  VERIFY  REM j35<CGi[C][P]AT [O]TAB  OR  FOR [A]8;A<= LET _[I][L][M]©[S]IN  READ VAL @6[P]?▙O{[G]SCREEN$  CLEAR [N][T] THEN  FORMAT j0>=5S[H]CODE [K][P]IN  CONTINUE [A]CFGtT{PITAB [D]PI OVER >=PTAB L COPY u[H]SCREEN$ [A]IN  REM ▜L?gpHmPI[G]}▞[T] READ USR U7UmpWz[C][I]▘t▟[O] CAT @;oRu[H][C]▚ COPY ©ATN  INK VAL /9Mr_s▜[E]t©<= LPRINT [K]V=nuZ]y[A]z{[P] BEEP BIN pBGqoox▗w©COS  CONTINUE VAL b8W READ {lm1▜}▙wq▜ OR  STOP [C]R<k}XC_©▛xy[P] VERIFY  CIRCLE HCsyEGg▘▝COS  FOR  OR ;_ DEF FN ▗d/g[I]©ACS IN  GO TO AT e@_CHR$ [P]`HMu[M][A]▘[F] STEP  CONTINUE [Q]P>i~LIMs[M]▙▝[J] DATA HA?pIJg[G][J]▙}STR$ KRND LOAD  LPRINT 8<uhFKi[L][N]▚▘ATN  GO SUB ACS :Kt`CJo[P][E]▛ THEN  POKE VAL X5_|Z@GZ LET  RETURN  LET FN D7]{XIw[U] NEXT [B]▟ INK PIL COPY 5MtbBO©[J],k1[F] FLASH  LIST [K]@5iwPCOSIN [E]w▛ CAT  CIRCLE @?o|Pz` BORDER ▟AT [F][P] OUT  CONTINUE [G]P6[|`EJSCREEN$ [E]y STOP  DIM [U] BORDER Y9o/BI RANDOMIZE RND[E]u▚INKEY$adAT X/JmQBK}[P]▟|▞ OR  REM VAL `7?s/HL LET  COPY ▖▜IN  POKE LN d;? THEN wiASN ©TAB [S]{ATN  PAUSE BIN h8?vhGIgPIINT t[P] GO SUB  LPRINT ▘82TAN pUSR We[P]LN q▜ OVER  GO TO [Q]:7Spx[H]>= RANDOMIZE [Q]q© CAT  SAVE K RANDOMIZE /OoJ? LET  LPRINT PEEK [I]T©SQR  COPY LN L*:kXUSR L?▟STR$ [U]p[ATTR  CLS  CLOSE #h02j[R]ALEN TAN  GO TO AT sM FLASH  STOP ▖<7[~PIY[P]EXP ▗d} CAT  POKE TAN P:GzRIQ▛ASN [A]lcCODE  LET >=tADcd©NS}CODE FN m[H] INVERSE  LPRINT [I]JDOsPS_[J]FN [A]▝[F] CAT  LIST SIN `CHuXTYSCREEN$ [G]}ASN  NEXT  TO ▗DE_ RETURN xrT▘INKEY$[S]▗[J] FLASH  CIRCLE ? ERASE 7_roZ SAVE w[T]▖v LINE  CONTINUE FN X3ElFB_[E]POINT [A]r* DRAW  RANDOMIZE >=h38i©/_|[N]<=▙r?* ERASE 46WhM[G][C] RANDOMIZE rn[H] READ  BRIGHT  LET c COPY 7Ml/Es[L]PI▘r▛<> GO TO [S]J8OqHHk[D]SCREEN$ [A]t}IN  RUN LN X8?olPR▛[R]xyPI LOAD  TO t;>e,I[POINT [M]zw[P] FOR  CIRCLE 9=WmLN©RNDIc/ OUT  DIM [Q]B?EtMNs[O]CODE ▖T▜IN  IF VAL X<EoqLo[H]SIN [I]x}SQR  CLS BIN jwAT IBW▟RND[A]suCOS  CLS  TO p69NOT `'hE▞INKEY$[K]rgPI NEXT  FORMAT 67▚aF RETURN w[T]AT o[F] RESTORE XRND COPY 8:[mPEwPOINT VAL z`▞ INVERSE  DATA [E]@:GraGz[T]VAL$ ▘q▜ VERIFY  POKE [S]A7>mkFc[H]VAL ▖pNOT  LIST [U]L BORDER 2?nYO[C] DRAW CODE [I]q{ABS  CLS [G]JhnkJS▛COS INKEY$xtPI LET BIN `4CrhFI©SIN SCREEN$ VAL  LET [P] LOAD  CLOSE #3;gpZITAB RNDq[H] PAUSE  REM  DATA :USR LpdFv[O]VAL$ ▖n© MERGE  GO TO [K]5TAN kVAL  LET COS g[J]COS [E]nyATN  LET SIN P4EnYEU[D]ASN [F]r{COS  IF J7kO[G]TAN TAB [M]p DRAW _[H] LOAD  LPRINT ▖:vWnbK©INKEY$POINT ▘O OPEN # GO SUB [U]H:aMl▛[P] RETURN SIN ▗n{IN  PLOT  VAL xNOT ClgAT 1[PI[A]bcCODE  PAUSE  FORMAT t9<WldN▘[T][M]yV[L] BORDER  STOP +c CIRCLE ;KopN©[P]SCREEN$ ▗q LINE  GO TO FN P8=kqT_[O]▚v}ATN  FOR TAN d:Avulk▟PI[G]zu[P] READ  TO ;>KqpR▟[U][R]▗r▞<= PAPER [Q]H=Dutuz▛[H]▘s_(INT p= THEN A_COS s▘[E][B]xw[H] CAT  CLOSE #[A]I;Cour|▞[E]▗u©CODE  CONTINUE EXP h=B© LLIST tw[D][E]~▞y CAT  RANDOMIZE  VERIFY [Q]L<GBIN  LET vx▘IN w©POINT  PAPER LN p CONTINUE 5=i DEF FN h|+t▙<= CIRCLE [U]P>Iv{uw[F]ty[L] OPEN #LN @E[J]x[S] LLIST ▞qABS  RETURN  CIRCLE FN X9Gtz;r{▙xu[F]<>USR ▖B>[|}crx[G]▖ LINE NOT PI CLOSE #SIN tBCs~zfv▞[A]v▛ABS  FORMAT [R]bD]}©TBIN vw COPY <>LN ▖PAm|>=rydG_PI TO  PAUSE TAB vBU{ PRINT `([A]ys▜ATN  TO [U]l<e~▝ DEF FN #▙▖p<=INT  RETURN ];s}{l[F]M▘r[D]BIN SIN ]dqwrhn{plu[L]LN [Q]pT[M]SfmcH~ COPY q_{RNDASN  LPRINT [I]hKLEN h▘VW▗▚pcATN CHR$ [U]tRv▛|o▝[A]▚▗[G]SQR STR$ [S]xnu▝▝LEN 9?▗yz▛ATN INT  BORDER [I]ql[F]ym NEXT Lkv}3 LET RNDFN n THEN ethM_~▗zgSCREEN$ ATN [G]y$ LET ▝VAL [L] AND _▘▛PITAN [K]}ux{uYk▝▟▖▝ATTR ABS  CAT x8~vou▙[B]VAL$ INT ▘POINT bEXP z COPY oks©▖▘~ LIST ▜[K][T][I]IN qosrje[B]g[K] RETURN ▜[H][K][A]x%mkjNOT [P] CAT }▙ LLIST [C][B]▖|wmediNrx{PIM▝v NEXT pmih LOAD o[P]y MOVE ▗▖▜ph BORDER efj COPY ns[D]y COPY [F]v1QjIN nprsw| MOVE ~}A5▘© SAVE z/ZaDTAN  RANDOMIZE [E] CLEAR Q CLEAR  SAVE ©[F] INVERSE  REM P CONTINUE IN zivTQk NEXT VYg▙▟[G] LET [N][R][Q]RNDB▘[M]/[A]▖ NEW zwsp! COPY ▜[E][D][J][S][T][L][B]▚T CIRCLE Ymqpnlow▝▜▛▚uw}▚▜yohmp FOR ▛iv MOVE y©9 OUT ▖[S]qs▜▚ OVER zFN ys[I]utC[P]<|▜[G][K] NEW [E]▖u{a LPRINT pdqt RANDOMIZE  DRAW [F]POINT [T][C]w READ VAL {▖ DRAW xqs}▘LEN P SAVE |INKEY$RND[C]sego©▚ytrz▚[M]COS ASN [M]|^>_m|unqvx~▙CODE USR [T]D7<cRy MOVE X DRAW "w▚COS  ERASE TAN ▗J9=Y▘{zuz)<= DRAW <= STEP INKEY$d36?k[J]▞|©xrw[P] OVER EXP ▖8*7]▞[Q]}▝{|v©SQR  DATA TAN p++E▜SIN [E]|muVts BEEP LEN @$8k[P]SIN ~vjvmn}<= LIST ASN h ;LEN  BEEP  COPY [A]zfkysr[H] GO SUB  FORMAT [A]4+cATN  FORMAT fLgaj©<= COPY AT `/w OR [K]mZWoek▛ OUT  CONTINUE 8#STR$ WSQR c CIRCLE ▘T2UemzSQR  COPY USR d'} STEP USR cD6cil© MERGE  COPY [K]DKATTR  INK [A]V5<agq[N] COPY  POKE ▖,k THEN  LPRINT tQ9MIl DEF FN [P] FORMAT TAB 3 OUT ▚P6<Uot▟ BORDER  COPY FN 8?ATN  NEXT VAL @8Eoms[D][P] LOAD  LOAD ,k RETURN IN  REM ▗03Gq(▙ COPY  OR ▜ INK  CONTINUE h.3OpjwCODE  COPY  IF hX.5glhuIN  LOAD `[L] NEXT  PAPER H+2[shv COPY  LOAD  CONTINUE T[J] LINE  LOAD 3Y RESTORE gz BEEP  LOAD H+[P] NEXT USR @3:]`I© CAT  COPY  LPRINT P;ATN  FOR BIN L7=gYJ} OPEN #, LOAD LH7PI POKE >=P?E}iOs THEN  COPY  LIST T?IN  NEXT >=TXKoTG}VAL  STEP 2 DRAW d+[T] INVERSE  TO h^]bN@_[K];p STEP  VERIFY i`^P=SSIN  LOAD  LOAD USR ©PEEK  MOVE ▗zf/D:GATTR  LOAD [Q] LIST SQR g[P] AND ©rP57E[P][F] LOAD VAL * LPRINT C[H]CHR$  RANDOMIZE [L]▗X7 LOAD [M]© LOAD  FORMAT @USR  STEP 5 COPY CODE ACS [M]R:1E[G]g LIST `-][J]IN TAB INKEY$d; FOR  OVER _ OUT SCREEN$ ( COPY <oCOS SQR LEN x AND B=VAL$ W[J]VAL 8O LOAD 8[L]PEEK ACS STR$ [E]N RESTORE 9L LOAD ▝ LIST r* .?wCODE ABS AT hA>I[B]{C CIRCLE #TAN X-$6g[N]SGN ASN J>CO[L] FOR  INVERSE [C] COPY 8(/ECOS SIN [E]STR$ hD NEXT IyATN  PRINT ▚ COPY .1;yINKEY$RND[A]r>SI]SQR sUSR tCHR$ S RANDOMIZE ▛[R][E]yrSTR$ RobJSQR  DIM  GO TO VAL lGS[D][I]}{z{▗}}▜[T]NOT  FORMAT VAL ▗tyxx INPUT _▝▙POINT  SAVE NOT SQR [O]▛▚ OVER |zy7}▝~▜l[F]LEN SQR VAL [P][D]▖▚wvw~~zwxm[D][U]ATTR EXP AT [I]INKEY$g[B]y GO SUB  READ u[G] CLS x©[G]ATTR LEN [U][C]▗~▘▝wturus COPY SCREEN$ ©[D][P]INKEY$FN [K] NEXT ▘▖▝z LET yRND|[P]h CLOSE #▝▛[L][R] RANDOMIZE [G][A]▜©▗ COPY ?NOT vospln▜ STOP [D][F]©▖[B]▚}|~ FORMAT xv CONTINUE  CIRCLE qi©▚▖▟[A]▞ASN sr[O]q[P]s▗▖[B]BIN ▙▟}rBIN qnNOT y SAVE ▘▚ATN ▟A▞▝x RESTORE top TO [B] VERIFY ?[B][J] CIRCLE  INPUT ve SAVE {▝|}PI BORDER ▜[A] DIM ▘D[P]9[J]&r#-[O][J]|v▘ MOVE K:=u| ERASE BIN }PEEK [O]▚▞TAN NOT uLN ©& IF y7▞▖ THEN  OPEN #/ LIST  TO y"w[P] GO TO >=▞z|[B]▝>=▟2{ DIM INOT W[M]! RANDOMIZE - LIST I POKE  COPY  REM # DEF FN TAB SGN N FOR 9[N]2 CONTINUE x[U]1.S CLS  RESTORE ©[E]1sPIz▘ NEXT  PAUSE [D]▗SQR ` POKE ▝RNDRNDt RETURN ~USR J[N] REM ATN zr IF ▝w STEP H IF  INVERSE [U]Q[I]J_ DEF FN [A]AT  INK x▖<>z~POINT [R]( OUT iSTR$  STOP *EXP  RANDOMIZE y OR ▚▝▖&EXP ▚BATN STR$ }w%[C]0@[C]N LET I LIST  PRINT SQR $< INPUT <>[B]}* DIM I FOR ▟ INVERSE CK TO  RANDOMIZE d▗P[C] DIM ATTR  LLIST Z BEEP  LLIST  GO TO [F] LET  RETURN [C]©* NEW [C]zS AND ASN [K]$x>=[D] INVERSE  STOP T▗SCREEN$ [A] CONTINUE  LINE U|s[D] POKE zR RANDOMIZE  IF VAL$ ATN TAN  LPRINT b7 ERASE 3▗I2EXP "EXP ~[C] PAPER I' OPEN # LOAD %@COS 9 TO I* LET [F]STAB [U]TAN [C]EXP  GO TO POINT  FLASH CHR$ [G]Qt POKE ©y5UTAN 0,Y BRIGHT *# OR 6R CLS  REM [U]BIN |[F] BORDER  IF  RETURN  LEN )NOT  DRAW <> CONTINUE { FOR  RUN R[F]/ INK ll/[A] STOP  FOR  REM POINT POINT [G] STEP [N] DIM ▚Z PRINT  FOR ▟=© FORMAT | STOP C9Z[R] RESTORE 'b;▙e FLASH  FOR 9 IF  OVER M_▗$ INVERSE LEN D DIM d LINE & OR [I]> OPEN #©VyABS CHR$ xIj[J] MOVE ▗Tv<> OPEN # IF ▝TAN -Z4PI FORMAT  COPY USIN  DIM [G]g PAUSE  FORMAT { AND  PAPER FN  DRAW  CONTINUE {x STEP  LIST v LIST zSM@▟x"LEN bw▘>=s MERGE ▘[N]:. VERIFY ▝ PLOT  yM[T] STEP IRND COPY  ERASE E OR ! RANDOMIZE ATN ▘<=▗m DIM 9Yi$ NEW  RANDOMIZE R PAPER Sb ERASE  RETURN $la[C] REM  RESTORE  FOR UlNLEN [D][E]Ea-CODE !n▞T NEXT )COS ] BEEP ▜[K]z▜tYt^POINT ▚▞▜) REM  SAVE xpolm[R] COPY ty▛[C][R]CODE STR$ [S]▖c COPY lJ?CGMk▗~[B][P]SQR  BEEP  LPRINT [A]▛[G]@?h>Bwrn{▖uPI STEP VAL vPOINT ▘;_hAe▘`i▗u{CODE EXP SIN  AND ▖AT  COPY :w`=spO{[O]SQR COS  OR  TO 'SQR [A]; OR ©` RESTORE ulf▜o[T]IN >=sPEEK .©X?▜hg▝ls▘[L]PEEK USR ONOT d/[P]▞POINT ©H]▗[J]q STEP [H]ATTR  COPY O CIRCLE hG[I]DK▖[G]Mh!q©|[L] BEEP LN k PAPER XU[M]4OpC{rW~x CAT [Q]} TO TO[K] LOAD ▟ COPY INT [C]zPI LLIST VAL s MERGE  NEXT X[[A]8vJ[P]?yPI OVER  PAUSE VAL ▛ BRIGHT /IN STR$ 2W`O[B]hoz[N] INK FN o TO Z_e?ch][B]t©[G]x[P] BEEP VAL _ CLOSE #`G▘4WdS▛t{[G]t[H] BEEP SIN © LPRINT hW6]j[▟dw[A]n[H] TO  BORDER LN ] ERASE x@#▞q[A]lkXNOT q MOVE USR ` INVERSE t>▞8KpJ▜lg[I]q[D] STEP CHR$ p MERGE t=▛HUxE}z[[C]d▜ OVER l CAT  BEEP [A]7XK▝ DRAW T[E]▗m[K]p/ THEN BIN OSQR [U]E▚_T© LLIST f[F]| COPY NOT <>[P]TAN E{ THEN x:o▘/▛gIN <=[K][P] FORMAT Pgp;▘P~q▛▘gCOS  AND FN © FORMAT fO▘2wXg▞]OATTR STR$  AND  OPEN #VAL w OUT p?▟9cf_`}Q[D] OR ACS t MERGE ▘9©DOtOts[A]/© LINE SGN IN [I]A LET ATTR zO▝sk[C]ATN VAL @,!;▛P©▗_▙vwPEEK  AND [Q][P]>=Tk7} CLS bL|`xmCOS IN AT ▛ LPRINT P[▗8c`_▞`▜▘_[T]CHR$ LN y CIRCLE Qr`|lu▗[USR [J]IN  COPY  OPEN #[A]H▜L>▘Ixg`©▙ABS BIN O[A]CODE TAN <_h;L}▗b[C]vWASN NOT FN [D] FORMAT HO▖5{Zs▟d2OCODE LN  BORDER INT  BEEP [B]@ TO gdSCREEN$ hLEN e[T]USR  AND z CAT [A]>©JSUpu▚b[F]ABS  OR [I]COS VAL <o`G▚SCREEN$ p NEXT rdcTAB VAL  COPY © PAPER T[▖<gj THEN _▚QxZATTR LN CHR$ { BEEP t;HSxW▚ty;dEXP  TO ,1<w`?M▘xe▚mCODE INT [I] BORDER  VERIFY X_[I]cp4<=i OUT  REM [N]ATN  CAT t OPEN # NEXT =[H]PDS COPY ▗xV▖d▙COS  THEN  CAT FN [P]do▗C[M] CIRCLE }`o|w[P] OR ▚>=USR N INVERSE dG[F]@WpU▘ho~lINT  DEF FN [Q]/USR 5w THEN ,ak|[xro[J]<= AND ~ REM d;[A],_b?z/_▘p©ATN  DEF FN [A]ATN LN ;h5IyyL▞,[C][T] OR CHR$ © DATA `O[I]BWtQV[R]<cIN  FORMAT [I] DRAW INT Bs?LEN xO▟pe[L]<=USR  INVERSE ▖C[D]@_Gfg[A]V▜ATN BIN VAL [L] CLOSE #%tNINT |Rz6[N] STEP  TO [I]IN VAL S▟PK[A]DupO▚p}CODE >= AND ▙ BRIGHT h RETURN .0g`C~X▖m▜INT CHR$ AT [L]USR I{p7©E_tLt[L]BIN <>[D]IN [Q]K▛X▘[K]@oiS▝pwCODE STR$ CHR$ ▜ OVER lG▜Ds`K▖Zoe▟SIN PEEK SIN [G]BIN  OR = LPRINT /gEmaeS[H]>=STR$ FN TAB VAL Lod=▗IglL▜eCODE PEEK  DEF FN [K]EXP ▞D[D]`_xF©j[[G]t}COS SQR  CAT  OPEN #M[B]H_pK©Ts[C]a▛[M]INT +▟ CLOSE # RETURN r[C]@kT?{© INPUT ▞n[D]COS IN >=▟▛d COPY k8_PSti▝un LET TAB SQR INT ?CHR$ H[v<{ PAUSE @Ymn INPUT USR  CAT q[H]ATTR IN TAN BIN Lkt:vFWtpk[L] RANDOMIZE ATTR  THEN SIN [P]LN  PLOT   COPY l7vMZqX{ BORDER w[I] INPUT FN [P][P]USR ▖;qE SAVE mtV▗~ COPY [G]TAN  STEP FN CODE VAL$ USR  ERASE Mz©9yt▜}w[H] LET COS >=VAL ATTR [I] COPY ]{h?t<gpq©xs▟ATN USR SCREEN$ [P]TAN `wr?qD_touzq▜TAN ATN LN [P]LEN hot?mB[wpr▟}©LEN SGN STR$ [H]USR  RETURN kz<^LYv TO T▘p▜LEN POINT  TO ▟SGN g|B]IG|lepgCODE SIN  TO [I]PEEK [E]hX[hI CLEAR j_▝dePIXoCODE AT n}dAqIcyX©▘ INPUT `gSIN <=USR [T] OR p>wPW▘]©l[D]CODE  READ EXP  TO [K]0(j▘@cJGwVs}^RNDLN  VERIFY NOT  OUT c~LGb SAVE Cojt|[P]x[O]PI THEN [Q] DIM ATTR [U]/SGN [b:ghVAL lsqrINKEY$SQR USR [N]ABS xi@kNEnHk{?RND MERGE ▟SQR [A]g▛PU/Fwb9[S]lo<> OR  OPEN #VAL [G]USR tEoIWzP}[[K]SCREEN$ ATN  ERASE [H] CAT ▞wLoXQ| COPY %{v©[L]ATTR  CAT AT  CAT ASN FN dGj READ Bkp BORDER t{mPIATN  COPY  FORMAT [C] OR ▘j|<]<mnmkq~[N]POINT  CAT [Q]ATN FN ivZ>]:_hK© BRIGHT g▚[N]IN >=[H]lx<gPGrZkva[F][S] OPEN #[Q]COS ? FLASH }`OXA NEXT WtS▚b[A][G]INKEY$ FLASH >[O] LINE u|EODGybz}n▜[L]COS  FLASH [U]IN FN l©`=gCWu[▖▘|[G]VAL$ <= FORMAT [N] FORMAT o▗@aACS Mp COPY ©uy[J]VAL  CAT FN SQR  CAT AT i FLASH Gd: READ kuh©xp▛[S]IN  MERGE [M] READ  TO e0TAN 4GZCkhgvlrPOINT  THEN AT PIVAL ft`1aFO▚PI|n©[P]ATN  BRIGHT [G] AND [A]^zH9d3:Wrw[B]RND STEP CHR$ [N]USR tsrAOHAnV,RND<h{[D]TAB  FLASH VAL COS LN p}b;[EL{Z©▚i▚[S]INT  FLASH INKEY$ OR [M] PAUSE PEEK VEf[T]BIN  CAT xe▘qg[E]ATTR <= ERASE [S] STEP ▚r{H[JIyT▖t[B]CODE  CAT USR ATTR INT t▚6eDCHR$ Iu COPY y▝s[L]ASN  ERASE VAL ▖FN pu`;i@Ov]}zo[H]STR$  FORMAT [S]SGN [E]pvX8NCOt[R]f GO TO  CLS [B]PIIN  CIRCLE [Q]NOT [E]kwP;LAWrx PAPER `hy[E]VAL$  OR  TO RNDUSR ▗ks@;?Mm LIST vy[F]SIN  RETURN <>USR CODE LN zqls4JCLN { NEXT xX©[F][S]TAN  COPY CODE AT yof<JB[P]I IF |a▜ CAT [N]TAB INT POINT q[P]s!BHOu RETURN o▚}Z▟[P]ACS h1IN o:d<? CAT ES ▝}`, GO SUB $TAN  OUT AT INT FN mq/<AGOy{©d▟TAB SQR  OUT  NEXT  PAPER [U]qtV/ LPRINT Bos CAT w FORMAT ▛[S]ASN  DRAW  MERGE FN ABS [I]ps PAUSE V9?_l▝ CAT ▛V PAPER ATTR SQR  RETURN [C]hlR4@:▝VAL ASN  NEXT |py▜[T]ATN  CIRCLE [R]SQR [A]hmP=T?pmswp{INKEY$SQR  ERASE RND GO SUB d RETURN qR8=Clt[U]SQR  DRAW  FORMAT [T]SGN ▖go POKE  PAPER AF_D THEN  CIRCLE ▛▙hR RANDOMIZE >BGi DRAW r/[D]SCREEN$ <= CIRCLE _USR io[S]LCOS {▝ GO SUB v RETURN ~[C]TAB <> CLOSE #AT SGN G[R]C?aOm{tsn RANDOMIZE c[F]RNDIN  CLOSE #[R] SAVE ▖bnHE BRIGHT Bkxyye LET [H]CODE <= VERIFY O[R]clQ DRAW 9LDm~vv&`g▟PI<= TO RNDLN cnDOTKzuux/m[N]PI OPEN # LINE CODE ACS jj@t[R]Gn?▖`[ DRAW [F]TAB  STEP USR CODE TAN  RETURN  GO SUB rJWR^▟EXP /USR Q[F]VAL  BEEP BIN CODE SIN ipDWE]T[N]v IF [I]TAB  INVERSE ©[I]jghA<>WHC2▙Y©RNDCODE  OUT VAL TAN [Q]fkZ<_Dgvy{T▛ATTR ATN  OVER [M]ATN [A]bsPGXG▝zp{vs[P]SCREEN$ VPILN ▚c LET kLGRFN ~[T]b▞<>[P] THEN [S] RANDOMIZE fnFKPASN  LIST uz{p COPY [J]CODE  OPEN #SIN LEN [Q]e/▟;>[G]g©wi[N]COS  MERGE RNDINT [E]dnP:d>oq PAPER |<[C]POINT <= FORMAT ^USR zh?:O@ READ DyuK▘ CLEAR [G]POINT  BEEP VAL ATN AT pq/9R@]4!8[P]CODE  BEEP [J]CHR$ duJ>]C[J]c THEN ▗[R]`M[H]ATTR  STEP >=PIEXP _p8[HC|<=▗IN  FLASH  BRIGHT [Q]IN [C] IF _tU?cG FLASH s▚p BORDER o[H]RNDk[T]ACS  BORDER rkl3LI AND {n AND ▘s RANDOMIZE [F]CODE  MERGE [J]SQR ~ RANDOMIZE uX?/DX STEP BIN [P][G]INKEY$ THEN LN RNDUSR pjv@eHIzR~b▞RNDCOS  INVERSE [B]CHR$ [A]g©P?`!fc▞x DRAW ▜[U]SCREEN$  BEEP AT PIohwd? RETURN kF_r^{VAL f(ABS  FORMAT [G]ASN xcvB[Z?rtpFN [O]ATTR  COPY  INK [M]ASN [E]b PAUSE wR?d©<= RETURN xq}yPIVAL  CAT [U]ATTR [I]dke<`@Yv_©x}[J]VAL  AND USR [P]VAL pez=^PW~T}▗q[B]ATTR ATN  FORMAT [F]LN tXATN  DIM @WPUyq|▘t▜ATTR LEN  BEEP [C]INT ▗]sL;bB{lo▝y©PITAB  ERASE [Q]ATN [I]PrZ>lFsNOT ▖|>=[N]TAB IIN AT lmh@ SAVE uPSyx MOVE ©[H]ATN SQR BIN [L]SIN ?RNDl@OXN[R]~bABS  BORDER ▟TAN RND[G]SQR o/]T NEXT K~wp CLEAR  COPY LEN ATN >=[M]EXP cx THEN DI%tw~s▟VAL$ CODE  TO [L]ATN _qFE▘▖ CAT D[R]▖INT [K]m©[T] RANDOMIZE 1 PAUSE -S OR ▞ LPRINT ▜>=▖▞ COPY !▘{tonmqs©▝▚}{u{[B][M]SCREEN$ SGN c CIRCLE ATTR [U]x`<8_▚[E][C]vhK?EINTz[C][L][H][B]▜▛[L]TAB COS SIN PIPI[G]mE:Gy[B][Q]tKBCJQw©}▗[C][D][L][J][T]SIN PEEK  FLASH TAN ▗P/<= OR  OPEN #INKEY$ CAT [U]zH6<S`DKw▛[Q][K]x©[K]BIN  STOP  LOAD LN f)&._[J]POINT nHA90#dL_▟TAB [Q][R][I]SIN  MOVE  RANDOMIZE LN q*'1{[P]SGN 5 DRAW  CAT @gHIM[R]ABS  FLASH  CLEAR  COPY [I]`7ATN  RANDOMIZE yP9<UXKW RETURN [L]FN TAN [U]SQR  OUT  COPY hkIN  LPRINT ▗D+5OxpKF[[T]ATN  FORMAT ACS STR$  INVERSE  BRIGHT [E]P;▛NOT APEEK w:g[A]bX[K]R©SQR  PAPER  DIM  READ  RANDOMIZE  DATA ▚@T("=o[G]ePI INVERSE  POKE  COPY  CLS  COPY BIN dGELEN ~r8 #:e▙▝`IoCODE  RUN  COPY  COPY  RETURN ▖#o[M][M]@ /;ajiW▘[P] CAT  DIM © MOVE DcCODE  SAVE VAL 8)[P]kodM©CODE PI ERASE  SAVE x NEXT OPI@( IF 9C`^ THEN [T] BEEP IN  OPEN #[Q]43STR$ CHR$  COPY ,(!;Kv/a LINE c[O]/ RETURN  REM 0?PI FLASH @ COPY 7KwzZ_[F] LOAD Y REM  MERGE `PgSQR  TO ▖4"7@Ur[[H]2<>STR$ 60=[L]ACS L8:AHMT[SCREEN$ STR$ P[A]"_PILN m8/B[r_j[[D] MOVE INT  RESTORE pCHR$ ▝© CAT FN d*->q/ePRPIoT COPY GSQR  FORMAT @#+tx GO SUB XJc CAT  BEEP P GO TO ▛>=[G]' POKE 4MjrBIN s GO TO  POKE @BIN  POKE wVAL H!o▗ FLASH l▛BIN [P]VAL 6;[B]▙ BORDER d6= GO SUB kt[Q]gc RESTORE  LIST H OR 'w▗Z4?J©|▝Twn_PIN  AND ©LEN h0+ CLEAR Ev▗fQ_CODE  OVER h= GO SUB .©[Q] COPY  RETURN G▞▘bOc BORDER r INPUT >=2 FLASH USR U[E]L?F©▗|P_ATN  INPUT  CONTINUE D NEXT  INPUT S©▖[B]Z IF [S][E]TW SAVE  LPRINT H('▜▖PG CIRCLE [P]IN AT ▙▝ATN  GO SUB  POKE [Q]P,<I©yCt[K][T][U]SQR  READ  LIST LN /CGgpRWgCODE  OVER  MERGE AT POINT NOT  INK USR p:?MuzVY{[P] AND  CIRCLE  TO  ERASE  TO TAN h<= COPY JFLQVw[P] DEF FN  OR <>SIN  TO LN [J]XCIs▝▗xU©CODE  INK  PAUSE  READ BIN Q69Bksdg©[R]NOT  OUT  FLASH  INVERSE BIN [E]@+2K CAT PMAT ▞ATN  READ  PAUSE  BORDER  PAPER STR$ [A] LET STR$ 19gwnTS}VAL$  ERASE  BORDER  LIST VAL P%' LET rzt~▞PIBIN  OPEN # PAPER [U]`**9 STOP NOT pH0r▜IN  OPEN # INVERSE  TO [U]Z0,9Owvt©[J]IN  PAPER  PAPER r<=Z*5Str|[T]<= DATA  NEW  LPRINT [Q]L/_w}`k©ATN  RESTORE  RUN  GO TO [I]8 5i_ecy[L]<> INVERSE  FORMAT  RANDOMIZE x4'K AND b CONTINUE rlp<> LLIST  FOR USR P&O▜zkk{[J] OR  INK  REM [Q]D$;g▜▛p©ATN  THEN + AND "'k[K][J]rw▛NOT  RESTORE  LIST [I]@:©[I]mw[F] LINE  FLASH  BRIGHT FN T%3S[A]zATTR  BEEP  BORDER ? AND 87o OR [I]▘c CIRCLE yPI ERASE  REM  BORDER VAL @7[[M]©x/[L]ABS  RETURN  NEW  ERASE X ';uz▝q[H]CODE  DIM  ERASE  VERIFY J6oxP{PI FLASH  COPY  FOR >=@.C VERIFY X DIM K OR  RETURN x$7▗D+F READ PI FOR  NEXT ©SCREEN$ H*Iz<=vs COPY [H]IN  GO SUB  INPUT  LPRINT x([G] MERGE ▜yPwPI RUN  CLS  DIM x,<©[E]}Xe▟ OPEN #CODE ?[L]I[C]▝p_ RESTORE ▞ASN  LOAD LN b!;▚|p={CODE  CLS , READ ▗)w}IWuIN  LET `)USR B*_[I]}Z?wRND NEXT IN D9▞▜ BORDER FoLN  PRINT  COPY  CAT FN @ PAUSE 5WRND CLEAR [G]hSt[F] INVERSE [S]ATTR  LPRINT ]}vCODE  BORDER [S]©[P][F]mo CAT t ~?[L]PI RANDOMIZE AT XlcRND5c THEN >=p'W[O]ATN [E]rmyCODE  OUT  COPY [I]P+s[N]SGN xxgASN  NEXT  CIRCLE t0-J[P]EXP FN urqRND4SCREEN$ `,+Bg[M]PI▖©▝[P] DEF FN  DATA USR /4)H_LEN COS [Q]z▟ LINE  CAT  FORMAT X:3MwPEEK VAL$ [I]uz[D]<= BRIGHT <=VAL CHR$ p@7GsCOS PI[I]t{IN  FORMAT  AND =5EW[P]INKEY$[K]xz▛INT  DEF FN LN d==KPOINT VAL [K]t|[D]SGN  BORDER TAB [A]TCJu▞[P]▘z[T] INK  TO ▖B1?gATN  OPEN #VAL xPO CLOSE #SCREEN$ [O]▝▖r RETURN ltP_|▚ASN `9LN ©?RND PRINT  GO TO ▖ LET 81On COPY TBF_POINT  OUT  FORMAT USR ▗[O]bS▘[C]?▟▙ LLIST ▛[H]hzRSb[P][L]▘hu[T] LOAD  LIST [U]H-]IN  PAPER VAL dVS▞xAD_[G]ATN VAL$ |PC_[Q][G]▚▝whI/▟[T]PI COPY [P]xu©▗▖~▝ LET [F]▛}x▗[Q][I]PEEK Jsw▘▙8?▝▚▞▖▝}C([C]▘h^ LLIST }▜▟[A]▗▞hFN [R]©[U] NEW x▘hpSTR$ !PEEK Z▛%F DIM <=▚▜[R]▗▘z[R]cAT  RESTORE ▘ INVERSE c CONTINUE {▞BIN 6&[R]s<>| REM ▗▞[Q]Z COPY -h CLOSE #3|{C=MSQR a▗[U]mAT  CLS x1PIK AND RNDPOINT  STEP >=;{>FN >=[K]wRND READ P RANDOMIZE [E]m- LOAD U BORDER TAN SIN [E] POKE  MOVE ([RUSR TAN CODE + LET [F]y LINE SQR hV LPRINT ▟C/ STEP U[T] DIM SIN [M]sFN b2 RESTORE ▚6{ LINE FN  CAT  PRINT  NEXT  CAT [S]PzCHR$  LINE [M] LLIST SCREEN$  NEW SIN ( BEEP  GO SUB CK▙@W CLEAR pUfuKTAN  CIRCLE yINKEY$ CLS * BRIGHT  RANDOMIZE P IF INKEY$FN  BRIGHT  BORDER PT[E]3ACS [P] FLASH  OPEN # INVERSE `q RESTORE }x:ATTR  COPY  FLASH dEACS  PAUSE [U] BEEP  LINE Tx% OPEN # BEEP  COPY hATN n▝[INT  LLIST ATTR  BRIGHT PIVAL$ %INT  READ  LPRINT ▟ GO TO INT  RESTORE VVAL$ OTAN ▜ RUN [G] THEN LN [A][N][M]] SAVE  RANDOMIZE U MERGE RV COPY [M] RESTORE FN  BRIGHT [NOT n CAT ATN F FOR {▛xyz<w1[A][U]w,_[R] DRAW j+POINT <=▗m[A]ATN  CLOSE #=▗[R]B FLASH >WR[B] COPY VAL$ ACS  OUT [N][P]ACS ▖ PAPER f7Bm[C] LLIST hFI COPY COS  OR INT [S]rleongm NEXT ©▞ BRIGHT  LLIST [O][S][I] DRAW gceikh/,D▘[F]LN ASN AT ▞ua`Npt[C][G][L]▜|mmZBFKQ©CODE STR$ BIN TAB [O] INK  LINE ijsNOT ▚q DRAW x[D]INKEY$ATN FN [G] DRAW ▘uyljiF▟[N]▖pTCHW{[P]VAL ASN TAN INKEY$[C]xfY@fquxwvrX OUT [C][P]PICOS SIN [O]zL<Bc[R] TO a DIM HK]© BORDER [B][O]AT ASN VAL ▘f SAVE EHLR©[R][T][E][B][D]ATTR  OR SGN @,9[[F]IN FN pX DIM  REM m[E]▙▗▝[O]<= RESTORE USR r8&1Fs[D][A]{lvz[D][T]POINT SIN [T]XBGO©[S]FN iORUY} PAUSE SCREEN$  DRAW SGN USR LEN [B]lJv9O[▚[P][Q]▛▝~[C]ACS  OPEN # LLIST [U]T(&?{ACS  OR [Q]hEWw▟▝u}[F]ATN ASN [J]`81>S[H] RUN c CIRCLE ©[L]IN  BRIGHT ▗T!;<> FORMAT P29k▗▜▘w▚[T]INT AT J68@_[C]PI[S][K]▙[F]POINT NOT  VERIFY ▖BB7▜ATTR  LINE [I]e:<gy[A][N][T]SIN [S]<=STR$ K8>Eo[I][E]▖▛[D]PIATTR CODE INKEY$rV STOP M}[P]SCREEN$ ▖mIW~[T]VAL$ SGN VAL TAN [M]▘Z7ACWA CIRCLE  DRAW wy▚[L]POINT [R][K][O]ASN FN [E]P?<IwAT RNDZKQ▛ASN STR$ TAN PICODE [R][A]b@AFc[F][I]xsy▟[U]PIVAL  RETURN PIEXP INKEY$P;9Gw[P][K]RIo[K]TAB VAL FN LEN USR ACS [K]H9> RETURN c▚[C]▖tov[F][H][J]PI LINE LN [S]X0.?O[C]▚mnq[D][J][I]RND LINE  OR FN `2%7O[D][O]▙jXG|[A][P]IN NOT  STOP  STEP  CAT @!e[P][I]>=gP▞[B][J]SIN  BRIGHT  FORMAT VAL /*#5O▚[B]▖qLL_LEN [J]LEN  MERGE  GO TO  FORMAT [I]H.#=[▙[I]▚nNJOo[N]SIN  INVERSE  NEW  LINE ▖@1'ATN ▞x AND TP`NOT  PAUSE  INPUT  DEF FN :.7d▙X GO TO LV{[H]POINT EXP  GO TO  LPRINT  TO x@, NEXT k▛t OR M▘eSTR$ O[I]PIIN  DIM  OUT  STEP ▖J/;ColHK▞▚[J] DRAW ATN  GO SUB  INPUT  CLOSE #▗: COPY  CIRCLE Cw©{lIKy▝▞[F]SIN  DIM  POKE  DATA [C]H*/[U]6VAL hgkPWrwz{▟TAB  FOR  COPY  CONTINUE [I]L(/3[)hG[Q]OABS LN w▞CODE 4`RNDFN Q%!*:eolaDG[z}[D]COS  CIRCLE ▜ LET TAN /-#28enmjHMb▝~▛ATTR  OUT  COPY  IF BIN h6.3!xkb[u LET w CIRCLE K[S] BEEP  COPY  DRAW  FORMAT t@)+5KjlmlRM{yL[T] COPY  STOP P'/2:_ AND oqpj CONTINUE Zy[J] OUT [O] GO SUB [I]T$ RANDOMIZE %+6]iCHR$ 1 FOR rs OVER  PAUSE  CAT [Q]Q GO TO )S_ RANDOMIZE /FWnr COPY  PAUSE y©ATTR  NEW  FOR USR  CLOSE #x6 '.;cdikl VERIFY n▝[N]COS CODE  DATA NOT * RETURN (+B9_LqbBIN t0)uACS  RUN  COPY  RETURN LN l4&0;RcPOINT PgZ SAVE PI6% CONTINUE @+-5EQDI_x~w[B]Q[K] CIRCLE $LN d*%-49AGLo|}fYx▝ GO TO  GO TO [A]I&*17<KFhY▝XWgINKEY$} CLS LN /"#- BEEP I RETURN MS]©{g[D] ERASE  RETURN USR  BRIGHT t*(© iaDMQU IF k[L] DEF FN  COPY  BEEP INT `0+3@E READ mXR~Y^▟[D]ACS  COPY  LIST :"%7;_ STOP jLO$ PRINT O[H] STEP  BEEP  COPY TAN H'2_fES CLS wy{}▚NABS ` MOVE  CIRCLE `$*Ka/;AOvxz▝[T] READ [P]F▖4'Ql DRAW kcKPRV+[J]©NOT USR d,#+ NEXT 8?GK LOAD i IF ▜▗cSQR VAL  GO TO  DATA p!';gkXHKWZvz[P]8INKEY$~[U]D xH4G> OUT MP_▗ FORMAT ▚[L]!INKEY$ CIRCLE  LPRINT p"/_dbDFKm▚ PAPER [P][▙VAL 0#Sl`J?Egz6▞ABS  STOP  LPRINT 6 READ =d DRAW L;@Gs GO SUB  FOR {[J]/%FN @ BORDER %[J]aBHN PLOT  o▝▛ CIRCLE  LIST h2WrRBGLkM[F]RND COPY  FLASH VAL @+Ku CAT nE▗Rk OPEN #▜[A]LEN  COPY ▖" COPY  FOR 1glRDI RUN [~▜▖rG POKE hUSR [5gp/=CHk▛[G]CHR$  CAT USR 0[J]#[©[R]pPEEK  MERGE O~▗5[H] BRIGHT [8 RANDOMIZE STR$ c{q@ VERIFY  RETURN Ny▖▜[P] FOR  ERASE PI[E] VERIFY _[P] VERIFY 6@[} PLOT  ▗|y[H] REM  FOR [A]TAB USR S/u▙d89BW{[L]▙'1 COPY 3{▗`8:B[S]O- FOR }))O FOR TAB /w BORDER j9:▟▜ GO SUB xZ BORDER  VERIFY [A] FOR 3w PRINT [C]xB> FOR ▙X{ FOR ?STR$ +k▚p= LIST @Go▞wy]> LET [Q]g▘'/t@ NEXT ?CW▜ FOR [EXP [G] NEXT  BRIGHT   FOR W CAT qCCe▚ PLOT  ▖/S[H][F]j[Q] COPY $+O|l<>AT j}▚]^iQ_[S]O▟▚L>Dy}/[S]o▜ AND PI LPRINT  AND  CLS Wy▗T^[N]uV▚ACS  FOR  CAT  STOP LAT S▞d@ CONTINUE AJQSIN ▝[P] STOP TTAB -STR$ B COPY :=Cg▗▟zdLN ▞[C]l▝|Wo▚= RETURN  FOR _▗[B]xv▛EXP VAL  S FOR  COPY P4:Cs▞vuATN {[G] CONTINUE ATTR B FOR 7▙`6=?r▗|tz[N]]ATTR  SAVE h~ FOR =[H][I]<?B[©:,k[N] NEXT [I]+ RANDOMIZE {[L]▞<6USR  STOP v▟y PAPER © GO SUB EyZ COPY [M]`>?Gr▗ PAPER xo IF TAB  LIST X©O[P][U]r RETURN 95>Gv▗z=[D]ATN k;▟TAB [C]H9=Js[E]▗Z▛ VERIFY [O]INKEY$>=, MERGE RND[Q]Z35?kjg[H]vp DRAW  FOR [H]SCREEN$ x4y= PLOT  ▚vU▛ASN J[I]©USR +©TAN [F]H. POKE 6Fs▖ PLOT   VERIFY COS  OPEN #USR 0s+~IN TAB d6.Dk▖lc[L]USR  POKE [S]h?[I]KCOS CHR$ 8);▜ RUN rM©[I]D~m[F] TO [A]@$+g▞y GO SUB NcATTR  OPEN #@4CODE  LLIST VAL P*  READ 9g PRINT `SUSR  BEEP  PAUSE XGATTR  DRAW LN p0 6K PLOT  bVk DIM [I]?ATTR >=[A]<(6M[J]TgtVAL  GO TO [G]/[H] CLOSE #FN L&'>y[D]▘/U[H]^AHAT kg THEN USR `.$<_[M][E]hW▙ NEXT  NEXT  FOR WABS >=+% RETURN 9S[H][E]zO▞ VERIFY  BEEP  THEN [F]SCODE  MOVE ▖5#3M▛[L]▘`©k RESTORE  FOR [Q] MERGE ▝+[H] MOVE [A]8%K{[J]▝/gCODE j BEEP 7A'[L] LIST <>[Q]B$IN Cs[K]▞ZSATN [P]A,VV▜CHR$ INKEY$J(&Ck[H]▚`UABS  FOR  LPRINT Ds FOR wIN ,( BORDER 7g[G]pLTAN ▜▛'Tl,CODE BIN t3!5O[I]zR▚_ GO TO ▝;[H]STR$ ▖@'2I©[A]Wwk DIM ,[E]uH©[G] BORDER (/GATTR [A]Z BRIGHT eTAB  DIM SGN ▘oATN [U]X-E][F] PLOT  ▟|_[P] FOR ,`ATTR _ COPY ASN PEEK x8+9WUSR [P]▘ASN ▜ FOR ▗,3 COPY USR [A]@%1E©[P]sSQR zUSR *Ols LPRINT SQR AT X©(:m▟rtk REM  LIST d MERGE USR ZO[L]ACS t4&2My▘w▟AT $[E]$ COPY /▛NOT [Q]T,5INKEY$?; PAPER ty GO TO W CIRCLE PMTAB LEN l1,;M© MERGE EXP |yTAB SCREEN$  RETURN K[N]ACS ▝:&/} MERGE ▟▗s|SGN [F]BIN 0 CAT SCREEN$ U[Q]`+ COPY ):Nzw[D]MA IF PIATTR  LPRINT G[P]INT  DRAW 8!+>e GO SUB Vu~b*X FOR STAB INKEY$`7/BQ}▖z}[L]t[M]j[N]TAN <$2C CLS g▜|V[B] VERIFY 4,UsCODE [Q]/,*>W▞▟tzATTR ▝ BEEP  SAVE p*G[L] BORDER LN x@©Ek GO SUB {/BEfATTR IN ©ATTR [K]R COPY .+?Ozljn MERGE  POKE  VERIFY  CONTINUE GSIN  OUT [F]4Fo} CONTINUE z|▞▘vT OVER  MERGE vPI@T NEXT +;GmUSR kEXP [T]TC TO SCREEN$ ▜ACS ▚D-7FY▝}▜vT CIRCLE ATN jc[N][O]VAL$ / MERGE Eg[Q]ASN [O]Ll[E](-{TAB @38BW{zy▞ASN BIN  ERASE H COPY ©AT v8+4C CLS k|{y[F]/hINKEY$PEEK `sTAB [E]X*2;Cm{▞ FORMAT POINT  SAVE 'IN K▙ COPY POINT x<(4?W|z DATA kd LINE P_ DATA [L][I]fPOINT  CLEAR  MERGE U|©▞ATTR <>[H]_IN +u[P]▖?(3?G^© FLASH ~[F]i RESTORE  LIST xSM▞[U]|J06AIo©ASN [F] PRINT  CLEAR  CIRCLE d`[W[L]INKEY$r8,5F_▞▛▟[P] MERGE ~[G]D[D][[J][G]`3.7Ic▞▙[G]TAB SGN =[Q]( DRAW  REM 3{[N]▘L3POINT H IF g▟[J]ABS  PRINT  FOR  GO TO  REM `▜[J]xD1.AKv▛[N]h`FN  FORMAT p;[M]l603GU▙[F] DATA [J][C]8 MERGE `o&cRND[A]b4+1IW©▖[C]PI RESTORE >R+s[R]gPOINT 1'N_ IF ▟[E]COS  PRINT ? BRIGHT " SAVE M▜RND?J-,CT PLOT  u[B][D][L]COS $I[D][S]pB15JS{[G][H]INKEY$ VERIFY k COPY o[P][I] BORDER X2'[D][[C] INPUT [A]RNDG}4 SAVE -wRND[G]X©(.F^▜ FLASH [A]▛& THEN  IF [K][D]:{[R]▚A4,?Rk[E][O]ATN NSTR$  ERASE  DATA ▖*"?▜PIvA2/ESm▙[C][M]SQR  CIRCLE  THEN 6 FORMAT l( /W[N]iC26L[[C][E][N]COS  RUN USR X&5k[K][E]`@4=S_tIN [I][T][G]L DRAW [U]@'+B{[L]`A@K[yTAN IN  LOAD SIN  LPRINT .% RETURN (J©[C]zA;?N[[H][S]ATTR NOT POINT >=p "*c▚[E]h94;FW©▟PIAT R SAVE [Q]@;o[C]E57?(© REM [D]COS  GO SUB ~STR$ 7. ([©[E]jB8?FR}▜▛[E] POKE  COPY FN V(+?l▜ FORMAT R;ov]▖[K]AT SQR  MERGE  CLOSE #@*2K▚rJAFMSr▚INKEY$ OPEN # CLEAR  COPY SCREEN$ VAL e(,Eo▗ DEF FN Z FOR LQ▖▙[L]ATN ABS SCREEN$ ▗ COPY H.3_~pB TO EKUSR ▝X© REM [U]d14Kq▚yVDIMg READ ▛ COPY [N]<= NEXT  COPY  PRINT SGN zD?[F]dy}hA9 REM U| REM `FN [F]SQR  RESTORE  IF  PAUSE CHR$ ▖Z;=gmrk`Gj[G]▚}PI INVERSE  DRAW  POKE >=▖P.7knpiXFSw||yXU▗ LET  CONTINUE SGN /<OszrXHNm▚▚~PI VERIFY  GO SUB  DATA TAN P;cVZAT [I]▜[C]~▗[S] CAT  RESTORE  PAPER VAL xT FOR CHR$ } CLEAR `INe▜[F] TO  OUT  MERGE SCREEN$ y/Ei{|pXIW|[E][A]▖▟PI THEN  INK >=[N]r_bhwvlT CIRCLE [C]▜IN ©VAL$  LINE  DEF FN  SAVE INT [A]ladIN wphRG[M]k1▖▘O[H]ASN <> OR  LET FN ea▙tkD RANDOMIZE a(}▖▗[O]COS SGN VAL [D]tbbgllibMvy▝FN IN ▙[T]ACS ASN [U]▖><=kstn'SJo LET ▞▜ COPY [D]INKEY$TAN COS [Q]▘ CAT miso` RETURN J]©[A][D]▟?[J]INKEY$VAL$ [E]| RESTORE roq COPY ▝lRLW▝▟[D][E][B][A][F][N][R][K][D] FOR  CIRCLE t COPY ulQU▝▞[C]D READ Y[F][I] COPY [A]yvwsX▟S//[I][H]y[F] OPEN #[A] COPY zpTVY/_?iw[J][R][O][M] LPRINT [G][H][I]▟[B]?R▝p[]_ LET cez[F] NEXT [L][P] REM [H] CLS [G][E][C]▟▜FTAN  PRINT © BEEP ▝▜▙ TO [C][H] LOAD [A]©▛▞▗▘ NEW }|yu/z©▜ AND ▙1 LOAD  PAPER ;?xwX GO TO s COPY y}▗▖▞ MOVE y3 FOR  MOVE uthto[P]|©▝SIN ~HRUST v2.1 by Dmitry Pyankov./[ NEW  LOAD 2/[ CLEAR © GO SUB y CLS NOT NOT ! CIRCLE ! LINE  CLEAR ©:/[ PRINT  NEW  LOAD  NEXT 2/[ GO SUB yNOT  NEW  LET  CLEAR © NEXT 2/[ GO SUB y CLS <> OVER  INK  CAT P NEXT [ GO TO  FOR  GO TO +H!?© COPY  RETURN  DRAW  SAVE  LIST  LPRINT USR hr21b-[U]~©©©▘ SAVE |©▞ BRIGHT ▛}~p▖▘C OR ▝▞▗▟X STOP ▝▛▘©  LET A▚▚) RANDOMIZE  BORDER ▖▜ PAUSE ~▘0 CLS ▚<=▟{▗y< RANDOMIZE |}z▘USR F RUN [J]{ LIST ▝ FOR [P]} RANDOMIZE ©zp▘BIN  LLIST ©|▜ AND ▞lx▚l▜z(w STOP bv▗D} AND  LIST ▖[B]© POKE SGN wy▝NOT  RANDOMIZE |& FLASH  RANDOMIZE wq LLIST ▚y▝}>=CODE {ATN  BRIGHT ▜|▛i▝LEN ▛▖▞[P]~~z{▙▜8b▝[A][B]$[M] LIST ▛ DRAW |~l▗s[K]}USR ▟▘S[M] FOR |▘r~cF RANDOMIZE  SAVE kYij[P]WIOKl PRINT zTSh) COPY LN STR$ [N]EXP [S]ATTR  TO INKEY$ CAT PEEK [R][N]ck RANDOMIZE CdINKEY$ACS [Q] BEEP a▛[U][T]▟[O]{up[w.ATTR [O][E][B]▘[B][A][R]ATN [C] CLOSE # MOVE COS  DIM VAL POINT [U]}<> BEEP  TO  RUN >= FLASH  FORMAT COS BIN SCREEN$ [I]▘[H]▙iV▖`[D]©|o{[C][J]y}▞▛[O][G]z[I]?mD(:.9"FGNL``W© DEF FN [D]w[I][S][L]▞ OPEN # OR  INVERSE  RUN  OUT LN AT  VERIFY  COPY  CLS POINT RNDs▜nS COPY ▙[C]G▗[L]pi[H][Q] COPY [U]SCREEN$ b=!J-]8!STR$ 1 GO TO (*▛ CAT "[G]X>TAN [J]iXATN ▝R=][XMGk-y TO VAL u[M]<>psPI▘[U][N]sn▝w4x `J7Y AND ▚dhTCLsSIN ▞X[N] CLOSE #▛n[J][Q]/{Qaol▛f▘IN  GO TO VVAL$  OR ▘L©tUSR ATN [M][M][A] DRAW gl&?}[S]>= DIM  COPY ATTR [C]▙"v@CW@wwse/lPPIzW PAPER <=<>TAN ,▗d▟ COPY [D]XR>t!GZ( LET eLEN I▟▝1P][I]/S&ABS |[M] INPUT INT INKEY$ PAPER  RANDOMIZE  COPY  COPY  COPY  LET COS [A]<>SGN ~fD▝▖[O] AND [B][P]`WAFN VAL$ SGN PEEK  LINE dQ▜[ COPY  PAUSE :▞-"b<=LEN V0^sk COPY  DRAW USR ASN  INK VAL$ IN  OVER  PRINT  STOP  BORDER [J] STEP  COPY  LIST  FORMAT  INPUT [F]ZATN >=LN SIN SQR [C]=FINKEY$qSQR  PAPER CODE  CAT ▟& AND TAB H[G] LPRINT B▗FN [R]▙ OR ATN POINT m27e0k1m?[A]cFCODE  TO XCRCODE  FLASH [G]&E READ ▖[J] INPUT NOT [H][R] REM SGN  TO  COPY  LINE  PAPER {I<= COPY k[G][Q]pu>nSGN AT  INK POINT c[M]VUVPEXP rlu)W^G.[O]wRSUTzATN ABS Kke[L]PI AND [C]w▘ COPY CODE  OVER ▟[P]▞?ABS LN vW RETURN .G▝USR  COPY  RANDOMIZE X DRAW }gzX;(3~s/NqwUSR POINT [R]EXP tIdkN5YY h[I]SGN ▘AT  COPY [E]© OPEN #N[L]▚STR$ #LEN P?[C][M][P] OR TAN [N]VAL$ RNDTAB [E] FLASH  SAVE [J][F]CIm[S]LSIN ABS INT [U]qJM@▖[I]Mg NEXT [D][P] LPRINT ▙<8 CLEAR  RETURN  CIRCLE AT ©CHR$ k  PAUSE H OVER LEN b0@9[L][B]DN|c5[K][G]r;34;[C};▘I▞">=P] COPY T%]C? RANDOMIZE {[P]wXINT  NEXT $|BIN O▖ RETURN [T]i©TAB V]SGN ©CODE _ LET <>[N] POKE  TO [B] LLIST  GO TO lT FLASH ATN [J][H]USR  OVER CODE ▚ INK  COPY [P]c CLOSE #^%0G,E SAVE I<>INKEY$[R][M]e*[O]SQR  FLASH VAL ZATN ' INVERSE e LPRINT CHR$ [K] RESTORE  LIST ASN yx CAT  COPY UAT Y[T] LLIST  AND <=▖yM|CHR$  LLIST ▟▜ FOR : CLS C| RETURN SIN  ERASE RNDp NEXT [T]yCHR$ K RESTORE  OVER t[I]EXP +_[L] INK  CIRCLE  STOP INKEY$ CAT  OR qPI COPY NOT  RETURN _[A]SIN FN cCOS &{sFN tRND OPEN # LLIST s▖SIN  SAVE  BEEP  CLOSE # LET  SAVE 0CODE j OR IN <[U] COPY  CLEAR [N]M[B]{*▛ READ 3[B] OVER  LET <>ATN  RETURN  PAPER [L]RND OVER  FLASH '+<L[ OR r IF STR$  COPY [J]FN ▙▗9LW_ OVER "`mk FLASH BIN  BRIGHT CHR$ n COPY tG ERASE [J] COPY z LOAD /l RETURN ABS  FOR C COPY *j2 INK  COPY [T]R LPRINT  LET G CLS ▟0{ BRIGHT  AND + PAPER  REM [C]y CLOSE #[F]ATN ASN  CLOSE #" CLS BIN ` THEN  POKE EXP  FORMAT  NEXT  CONTINUE (n GO TO  CLEAR } CLOSE # COPY  OR i PLOT  [O]=gINT  GO TO  FORMAT  RUN  COPY d5 NEW TAN  MOVE  NEXT [S]AT [H]▝ CIRCLE  RANDOMIZE [B] COPY ATN  PRINT  BRIGHT SGN INT [N] OPEN # COPY P rz! MOVE uPEEK z%a/ CAT mt[M]_ DRAW  LOAD [C] NEW j LINE m PRINT  GO SUB  DIM ou[N]( RETURN  LIST  COPY ] DIM uvEXP SCREEN$  BRIGHT  DRAW q OR CHR$ 1oRND INVERSE SQR VAL$  IF EXP } COPY  PAPER & READ  RUN  AND  DIM  REM yFN . REM  NEXT  OPEN #<=9EXP  REM  LPRINT  MERGE INT * REM 8ACS [F] OR  INPUT 4 GO TO  NEXT  OPEN #4 REM ! REM CHR$ USR  SAVE  NEXT  VERIFY  BEEP CHR$ PITAN n{u NEW ,w REM 5 CIRCLE PEEK % LOAD b NEXT  RUN  FLASH LLEN }=NOT /VAL$ n PRINT  THEN ▗[H]u&BIN lbSGN  OPEN # OPEN # COPY ATTR  INPUT j COPY  LLIST  RANDOMIZE  GO SUB H[G] INVERSE g TO SGN [K] RESTORE k[U]TEXP e COPY  BRIGHT  DEF FN 2=s CLS  VERIFY NTAB  FLASH u ERASE [ PLOT  CODE  RUN  BORDER  CLOSE #U; ERASE m CAT SQR ACS SQR  REM  CONTINUE w SAVE ASN  COPY  NEW ~<= MOVE SGN gINT EXP  CONTINUE  PLOT  # GO SUB [Q] BEEP  CONTINUE U]EXP  RANDOMIZE  CONTINUE  LOAD enPOINT ATN CODE [P] ERASE EXP  DIM ATN  INPUT yATTR ,<>n MOVE Na NEXT  COPY [E] CLS ▙NOT TAB o) INK ▘ OUT IN 4w DEF FN  RESTORE  NEW ATN © LOAD  CONTINUE  LOAD ©_ CONTINUE  FLASH f" FOR ASN Y0 CLS h OVER O3 FLASH  MOVE  NEXT  BORDER  STOP IN  FOR / MOVE  RUN 8:~ DIM oOstAT ▛{ REM  OUT t REM  MOVE  LINE  DIM NOT  PAUSE  OPEN # RUN  FOR 5ATTR [E] INVERSE  THEN SGN  CLS POINT  SAVE ~ THEN 3 STEP  LET  PAPER  DATA  GO SUB )umINT { FOR  POKE f[J] OR  BEEP  FOR NNOT EXP RND DRAW  FOR "m INPUT [3 AND  VERIFY <0X COPY >=ASN  FOR ▜▟[I]U6POINT INKEY$g SAVE  PRINT [T] REM C STEP  READ 9< DEF FN INT  LOAD  LINE RND[M] STOP IN [F][I]][D]9 TO m VERIFY ▞K CLOSE #f GO SUB Y5<>ATTR ▟SIN U} REM  OR ▜CODE RND! REM 3c CLOSE # CLOSE # VERIFY [B]6 DRAW  STEP  READ e9WW LOAD n MERGE bUSR ATTR wl CLOSE #y# CLEAR ' RUN p©[I] PAUSE  CIRCLE ▛ CLOSE #LEN @[S]u STOP  PRINT  OVER  TO r REM ©CODE  CAT  AND  VERIFY 2ll.^LEN fp DATA  RUN sf OVER POINT  REM ATN  RESTORE ZSTR$ *TAN M CLEAR  PAUSE a' VERIFY j PRINT POINT  PRINT <=POINT ▟A< REM [B] CAT 9J REM ;! AND [O] CLS  PAUSE 4▚ STEP [G])[M] CLS  OUT  CLEAR BIN -SQR : READ ]ACS VAL$  PAUSE _ CLEAR ▙; PRINT [M], RUN %k FLASH  FOR  RESTORE [G] FORMAT  NEW  LPRINT  OPEN #TAB SGN PEEK  DIM  COPY IN [L]QAT r^ SAVE  GO SUB  FOR  PLOT  [RT[L] LET }tm IF VAL  NEW  CONTINUE [F]Z INPUT  INPUT )ZSQR ▘ STOP  CLEAR gj;; NEW [L]~j REM EXP  GO SUB  PAUSE  INVERSE  DIM  LOAD  RANDOMIZE  CONTINUE ABS VAL$ [[U] RETURN eINT  FOR 5[K]oSGN  INVERSE  DIM  LLIST  SAVE COS /^ STEP { GO TO  ERASE  IF USR [P]AT U CLEAR X_ DRAW  CAT [B]* THEN [R] COPY TAN  BORDER j▜[P] COPY  FOR CODE [B]YINKEY$0[A]{ NEW © MOVE [O] PLOT   OUT  OUT  NEW o[K] STOP  STEP  CONTINUE ▝ CLEAR  DIM ©[J] CAT [P]▗|SIN  LOAD AT  DRAW ] NEW  RETURN )COS  CLS  ERASE ABS [e[N] LINE  RANDOMIZE V OUT  DRAW /: IF F| TO  CLS  DIM  INK ~) GO SUB CODE  READ  DATA } DIM Nw CLEAR IN 5RND RANDOMIZE  REM j PAPER }ABS  NEW COS  LOAD  FOR  CONTINUE OmCODE  DATA  REM T CAT >Z GO TO { FOR c MERGE G CONTINUE [N] REM ;EXP TAB  OPEN #w>=p LOAD T{ OUT FN  RUN %©9^ INVERSE v~f LPRINT A FORMAT ▗ GO TO  GO TO `ABS  LOAD RND[M]ATTR ]7[J]6 REM s[U]+5USR |a>= INPUT [J]LEN  CLOSE # FORMAT INT TAB  NEW  BEEP pLN b[L]ATN $EXP RNDASN ▞ACS CHR$ INT ASN  FOR nATN  NEW 3PT{ FOR ["[E]TAN b RANDOMIZE  RUN  COPY O[I]▟t%r FOR [N]▝ VERIFY SQR F} CLOSE #Z&#SQR  PAUSE INT [A]}Y-^ LINE  DIM o FLASH  COPY OD CLS *seRNDUSR  OR 5PIQ GO SUB pfA OPEN #[D]e PLOT  [H] MERGE TAB E DRAW [ FORMAT HPOINT INKEY$+}▘STR$ [M] COPY  POKE PEEK FN LEN j FOR "QzSTR$ G OUT  LINE ▝;g[G] CIRCLE TAB  COPY  OUT  READ [A]= CIRCLE  RETURN ATTR VAL$ x LOAD y MERGE RNDFN Zt BORDER PI AND  POKE SGN CODE EXP ABS d COPY J~ABS  DRAW ▜ LLIST  SAVE ▚ RANDOMIZE TAB  RETURN %' DRAW TAN  COPY ATTR  OPEN #INKEY$ DRAW gI DRAW  AND  COPY CHR$  CLOSE #? INPUT +BIN ©▛ RUN IN  CLOSE #m STOP y DRAW  OPEN # OR BACS PEEK [ DRAW aw LOAD [D] GO SUB  STOP ; CLEAR  RANDOMIZE L STOP <> RUN  BORDER ▖FEXP  LLIST  PAPER VAL  INPUT SCREEN$ S PAPER  PRINT  CLS  COPY o<=[H]M LOAD IN  OR  PAPER AT G6/ VERIFY  DIM  INVERSE  CLS PEEK C PAPER  NEW 9sPOINT  DEF FN + PAPER  COPY & SAVE  COPY  INK + LIST  COPY ATTR NOT [T]P6INT + READ  BEEP s_xATTR PEEK d▗ OPEN #] THEN }q<=EXP STR$  LLIST X} RESTORE  OUT  DATA [H]n[N]k{ CLEAR +kIN f[F]R LINE ~ LOAD  NEW [T]VAL$ {e LET  PRINT O; BORDER O|h PLOT  [R]FFN ▗ub SAVE  CLS  LINE  THEN  OVER ACS CHR$ L NEW $qVAL$  LLIST ACS  REM  FORMAT  PRINT SCREEN$  COPY  CLS  REM  RUN L-; INVERSE  INVERSE VAL$ TAB 4##` GO SUB ACS 6TQ THEN  OR  CLS ACS  FOR  STEP E<[L]▛; NEW 4 IF [G]▛ BRIGHT L LPRINT NOT ATTR  OVER U; RESTORE  CAT ASN  TO [T][U]-_z| GO TO  FOR [L][M]▟r VERIFY  THEN ACS ^ACS  CLS  AND  LET  STEP [K]rm PLOT  q PAUSE i3n INK u[P]▝o2 COPY TAN :ACS VAL$ LEN 'SINKEY$^F MERGE ▝ FLASH VAL ATTR ▝VgLN > BRIGHT 1x THEN  VERIFY  NEXT w CAT  POKE  LOAD  REM C!n REM [C] OUT  CLS SGN %STR$ CODE  ERASE =▜V THEN G[T] RETURN  INVERSE 6 INVERSE CHR$ I SAVE / NEXT VAL$  POKE  NEXT  AND ,EXP 5 CLOSE #w<([ INVERSE sn MERGE )m7}[R]© INK  LET [O]]:31 BEEP  BRIGHT &ASN V)w CIRCLE es?. MOVE ▜+[O]3 DIM ( THEN 1 GO TO 1)s VERIFY  PAUSE  FORMAT  READ 5g TO [I]/ COPY ATN ▟ LLIST G4 PRINT  LET  COPY kIN [T]R POKE [G]4 DATA LN [J]SQR  COPY PI PAUSE  CONTINUE [k5 CLEAR /N LIST  OR : COPY ACS  NEW  MERGE ACS  LLIST  RETURN <P© CLS TAN ^IN ?V▜ COPY ▟o COPY  PAPER TATTR 9 LLIST  PRINT f, LLIST ▙ RETURN  OPEN # STOP LEN ? CIRCLE  OR IN KTPI INVERSE  COPY [K]VAL$  TO  RANDOMIZE ngk RUN lPIqTAN < RUN FN  REM l DATA { VERIFY b INPUT  CLEAR [F]AT ([T] RETURN  CLEAR J(@ywO CONTINUE  PRINT LEN f@ IF 7w]j[ VERIFY  COPY LN  BRIGHT  FLASH s[ GO TO EP PLOT  > DATA INT  INPUT TAN ( TO }`▝} INK  DEF FN  COPY  COPY GPI[I]VAL  FLASH SGN  CONTINUE ABS uPI[E] GO TO  COPY  COPY  STOP $QGmPBM▙ PRINT n( REM [J]~za READ [H]M-STR$ LEN  VERIFY IN enASN USR  NEXT ? GO SUB  AND  STOP SGN fv CLOSE # COPY  COPY +4E2~I[P]9_O:,$ RESTORE 7&} REM O[M]PEEK  READ  RANDOMIZE PEEK  RETURN IN COS [A]|H©N'7|VAL$ <>SIN  COPY  DIM  RANDOMIZE  DEF FN txfT RUN Q([B]▙ PRINT 6, CLS u[H]8Plp~[J]SCREEN$ ABS INT >= CAT  VERIFY  RESTORE  REM  POKE  LIST  PAUSE  IF yATN  LET  POKE  GO TO  SAVE  IF / DIM  BEEP  AND  FLASH ABS 1<=bo"0>PIFJZh_tqonk©▘[G]▖▜▖[C]▞▙ MOVE ▙R RETURN  ERASE  AND xN/*7BIm RETURN R_▝[U]INKEY$[S]FN © OVER zU<-=*EXP  FLASH  BRIGHT }QCOS [T] READ )VAL h7+.K▝|[D][H]FN vrdDB5- COPY STR$ ▜FN NOT INT ▘ CIRCLE i!_ SAVE ATTR M GO SUB  STEP  FOR AT 5= DATA <=IN 5[L]▜BIN >=EXP - LOAD  COPY Rj REM ~ COPY  LIST LN  POKE  LOAD n^h▞[A][C]SIN PEEK  OPEN # THEN TAN LEN ▗bM:J_}RNDLN  INPUT CHR$ VAL [I]/]8;r[I]w▜ THEN [S]EXP om[P] CLS  AND +bAT  BORDER L MERGE  ERASE [Q]RND PAPER ▚[B]INKEY$ATN A IF  STEP M[ THEN  LET [N]ATTR ▝|▗)▝pTAB LN .Wo ERASE 6Ady IF VRNDSIN  }Y STEP Er RANDOMIZE e@8FN ATN H COPY  DEF FN f MERGE  CIRCLE  BEEP n REM  INVERSE A_CHR$ . CAT KO LINE +}?BIN CODE STR$ COS o STOP  GO SUB INKEY$ ERASE FK[J][P] BORDER ea AND K LOAD 4 COPY >4▞COS  CONTINUE  GO SUB  NEW  OPEN # FOR  COPY [F] OR 9[L] LINE HHABS lQ OPEN #h[J]▙ DRAW  INPUT J NEW  LLIST O AND  BORDER  NEW  PAPER POINT  CIRCLE P OUT  NEW ;* DATA  CLEAR a▜6 CLOSE # OVER D; STEP S BORDER " STOP  LET [L][T]moSGN x SAVE q PAPER ▖Sw.▖ POKE 6 LET EXP [B]qATN jVm DATA 4*=[ CLEAR  READ STR$ j9ASN  PAUSE I[B] BRIGHT  BRIGHT ▗VT^R8Xv(PIINT Mh= BORDER  FORMAT  RUN o%( BORDER [U]TAB  INPUT  LINE J RANDOMIZE :NOT !t CLEAR >K:: LIST  RETURN  BRIGHT nMb RESTORE PI PLOT  TAN ^[R](<=[D][O]bNOT x STEP  INPUT *▙n RANDOMIZE [S] BEEP [C]©INT m OVER  INVERSE [U]z0iEC GO SUB [P]iASN v ERASE 6 CIRCLE [B]ABS o[F][ INVERSE  RESTORE  LINE c INVERSE  READ t5[S]ATTR  RESTORE ▟[M] RESTORE  AND  COPY | GO SUB POINT CODE  DATA CHR$ h MERGE [E] GO SUB  MERGE j[C][T]Z_ LOAD cZPEEK [▟.9}N+ DRAW ▝S▖1aIN COS  CONTINUE ATTR  STOP Gtt READ VAL$ m DRAW ▗ CIRCLE sQ FLASH  PAUSE [R]ACS  NEXT * LIST  PLOT   RANDOMIZE PEEK "/[L]tW~7LEN PIx5, PAPER  READ  LOAD NOT /▛▚7LEN [D]F LIST  LET  CONTINUE [S] PLOT  [N]/ASN VAL  LET [Q]/COS ▚ CLEAR kTAN  BORDER [M]C PLOT  OG▚v,=E[P]SGN [B]xn>=[O] DIM *+ LIST  FOR ▛VAL VINT  LET [K][I]XTAN wTAN =C[T] BORDER  READ [J] MOVE F8:▚l READ o[G]g/[A] THEN TAB za{ COPY TAN ^ RUN ) BEEP  STOP ATN  COPY  LOAD  DATA  OVER 5WlW; GO SUB c RETURN x FOR SF7 LOAD [O]b DEF FN | OR  NEXT ATTR  LINE [G] CONTINUE RND[R]H ERASE >= CLS [N][S]>=Fx[N]3INKEY$6USR POINT  BRIGHT  CLS qk,NOT _} COPY  INVERSE [H]U STOP [K] RETURN =PEEK  OR [P]COS [C] IF [I]SCREEN$  COPY ▟©BIN y▘[U][P]?ATN LN  DRAW 5▗ LOAD  COPY  PRINT  THEN  GO SUB LN [U]<=?i CLEAR GSIN  SAVE  RESTORE CODE  CLEAR ▞TU;0%3 LOAD  SAVE  VERIFY [G] RETURN  DRAW  AND  BRIGHT  RUN ASN [K]ABS o CIRCLE [D]▜nEXP  COPY [zr>/ LPRINT  NEW ▙ INPUT  STEP  NEXT "z INVERSE [K]E FLASH pNOT  CLS [H]FIN ▟ LINE SQR t7Z▝B[ATN  OPEN #/E2M#O DATA [B]_<3▗[O]kq SAVE  LET >= TO INT  MERGE C CLOSE #TAB  NEW  OR ▗ LET [N]} CONTINUE ©e_ASN >=[K]0 RUN n POKE ATTR  OUT oNOT  STEP eI FLASH * CONTINUE  OVER &! PLOT   OUT  COPY 9P READ LEN SQR TAB  CLEAR EXP  FORMAT v REM W STEP  COPY - COPY [fvsACS [R][K]ABS  CAT /▙ GO SUB  RUN  CLS POINT OfH( DIM  OVER r?COS [L]{SCREEN$ AT  LINE PI BORDER  LET  CLEAR  LPRINT  CLEAR  OPEN #▙tR CLS ©? LPRINT ->Op LOAD }▖AT PEEK [M] COPY  COPY  IF  LINE ▞R CLOSE #IN LEN  CLEAR  GO TO %;HZgs[G][M][U][L][L][M]rUH?&8 @/W©[J][I][I][A][S][M][S][I]xmaRgJLG7H>>=[M]U MERGE ▛ CLS  INPUT  DRAW  FOR  THEN CHR$ ASN INKEY$VAL mATTR [N] STOP [H]FN 1 COPY 7WTdcp▝7@SGN  CONTINUE  POKE jW INPUT  ERASE <> OR <=IN  DATA BIN  OUT  RESTORE  REM o POKE  INVERSE  CAT [Q] CLS ©V:2SCREEN$ LEN r LET ,[A]='9CO_v{[H][G]TAB [I][B][T][P]IN ACS SCREEN$ [L][G][A]tkdkb[b? GO SUB ~▘[O] LET TAB SCREEN$ SIN COS  CIRCLE  COPY [N][I]rZRD]OPBHLM/Q<33<:KFTejmlyrxnpnqxv}sstt~{▝ywNOT vo AND ©▖ RETURN ▘~▗▞▝(NOT [K]( LPRINT  RANDOMIZE ▘D▜▚▖FZY▜ OUT  TO ▗ CLS ▞USR  ERASE ~  VERIFY ▟▗[I]} READ ~#F▜▝▝©[C]▛ RETURN  FOR a COPY }NOT ▘|3 STOP ▙ FOR }▜ STOP  PAUSE {| STOP ©▟by}STR$ {zh COPY ▙  OR VAL }u▛w FOR $ RANDOMIZE  PAUSE ▗TAB H~>=1| READ z▚5▚STR$ 1VAL x▖ PAUSE EXP { LIST ▝©y▚~▘O PAUSE ASN NOT  AND {<>}xR LIST [A]© PAUSE  AND  PAPER ▖~2b[B]Jf[R][D]uC COPY x#BQAT [B]▚[O]~`▛▘ LET  LIST ▞▝▘▖0 LPRINT >=| GO SUB # STEP ? TO ▟} IF ~[C] SAVE 4 MERGE USGN @ COPY  PAUSE  COPY ~tFN  OUT  J LIST ▘ COPY xvunor▗tR<.▜▞ OR  RETURN ▖[D]EXP [U] PAUSE z LLIST |{yc▜[C] FLASH !&] LPRINT {D▛$>=F[F]b LIST j$[K][I] CLOSE #[L]C INPUT |xu AND sq FORMAT tw1w<> BRIGHT  LPRINT [J]``N[C][M] SAVE ▟[C]] OPEN #@ CAT BIN  COPY ▙▖>AT xtuw0D[C]>= STEP yCHR$ RATN [R] LINE { DIM _rINKEY$pH COPY >=Z13Fav,i$nU<5Jj[N]STR$  MOVE  TO [B]F2 THEN  COPY  CLS  LPRINT [Q]H RUN  MOVE 3[N] COPY  BORDER  CIRCLE [G]fP_ LIST {PISIN LN  p©=Jg[E]{d BEEP  DIM [N]P] INVERSE [U] GO SUB  OPEN #▗ LIST  PRINT C[T]LN :67 BORDER  LIST  AND [A] LET  BRIGHT c3{ FLASH ?PI[L]J CIRCLE [H]POINT ( BEEP  LIST ^ NEXT  RETURN SQR $ OUT  PRINT KATN jmIN >= GO SUB  POKE SSs©▜+Y©[R]A▙]w CONTINUE VAL INT  LET 'IN 53i SAVE gD IF ;jmM GO TO  VERIFY  DEF FN F RUN  FORMAT  PAPER  BORDER VAL$ CODE  RANDOMIZE [ASN  LIST  INPUT  RUN TAB k CLS k SAVE +[T][Q]6 RANDOMIZE [S]l LIST ASN  LIST 3HTAB  SAVE  SAVE ,kATN USR  SAVE #SGN [H] GO SUB  LIST U5>%o OUT  INK :gTAN [O] LINE ▟ ~ COPY 4e▙7 GO SUB  PAPER CODE  PAPER $N{]w LIST  BRIGHT G# VERIFY MRND GO SUB  OUT I7e MOVE ▛LEN  INVERSE  IF  DATA  CLOSE #ABS ▙] OUT b PRINT W▛ RUN p FLASH  BRIGHT [U] NEXT TAB 3▟ GO SUB IN  RUN ?u[N][T]STR$ 6+ SAVE  READ  IF  FORMAT C[P] FLASH  LPRINT  PLOT   PRINT >i[F]ABS [E] PAPER  REM  CIRCLE  IF ▚>▛ CLOSE # LPRINT D GO SUB  COPY ;{} DRAW VAL$  PAPER  FOR ATTR _RND PRINT  INVERSE @nrE[P] GO SUB  RUN  LLIST k[K] AND N[F]y NEXT  FOR SQR [C]D NEXT  STEP TAB s IF ▛Cs[P] CAT ] RUN VAL [S] PRINT IN SGN Eg▛F FOR | PLOT   OUT  VERIFY * FORMAT U}z[P] REM ©COS CkZ REM  INPUT  IF y!Ik  NEW _K1Vv[H]:> RETURN  STOP ©[U]GM{[L]3[N] NEXT IN  PRINT .Vy[G] MERGE [O] GO TO 7ASN `h NEW 1 CLOSE #~ DATA =e LET POINT  LET . CAT O[F]▜ZD CONTINUE  RUN ;y#CHR$ s[E]o PLOT  ▜ LOAD LN F PLOT  _ BRIGHT % READ B OPEN #- PRINT b CONTINUE [I][H] MERGE D'[B]rZ RANDOMIZE &wk>[P][P]ThN4t POKE ^U DIM VAL$ wINKEY$ STOP  CLS ©g DRAW IN  CLEAR Q/'/[A] FOR ▗[P] DIM USR ! INK  CLOSE # BEEP  REM VAL$  PAPER  PAUSE o[M] GO TO  CONTINUE ▙?[N]BIN g FLASH  MERGE KVAL oO GO SUB CODE [B]} RANDOMIZE  IF Q 5ACS  RUN  BRIGHT  PLOT   IF [S]▞'9W15[L]' BORDER T>K GO TO 'iABS  PAUSE w[T] AND [S]USR [Q]PIv PLOT   NEXT qe▜s LIST c©AT ASN  VERIFY /N-Y CAT $ STOP AG| DRAW @ POKE Nm NEXT  CIRCLE ^G[U]n[N]|+If▝INKEY$O>= RUN C/w▝PI BORDER Mk3 FORMAT pUSR J SAVE a© THEN  COPY  LLIST ?w.© NEW  STEP />= OUT  SAVE k BORDER <>' STOP  LIST  MOVE U RUN [N]UGV REM  GO SUB  RUN b0H[N].f DRAW [P]z+ FLASH Q OR AT  STOP  DRAW  THEN  INVERSE ^SQR  OVER ?[N] FLASH n DRAW 7rPEEK  CLOSE #=U LIST oNkABS  FORMAT  [[K]TAN )SIN k NEW [M]f FLASH  LOAD [[Q] FORMAT :sAT  GO TO @ THEN N RETURN TAB POINT  POKE Dsn[L]USR  BORDER [O]* CLS }[N]nASN INT [M]SGN USR [F][H] LOAD FN ▜g Q PAUSE u; CAT  INVERSE sPIATN d5 CLS  PAUSE  IF [[D] FLASH INKEY$ NEXT 85wq RUN ACS G[S]E▞BIN U▚SCREEN$  PAUSE NOT [E]EXP SCREEN$  DRAW  OR FM STOP OxRNDL PRINT SIN  BEEP 8 OVER s,[Q]SIN  NEW  OR FN PI$ CONTINUE <[P][F]/T{ LINE CODE y8 STEP  PAPER [L] LINE n" BORDER  NEW 1 CLEAR dK CIRCLE  CLOSE #AT {9{5[E]SCREEN$ $[K]5;ASN [J][N]OABS  CLS s@F DIM 8<=ASN PEEK 7CODE w/OCHR$ 3 CAT  P INVERSE k[H] REM 3&pINT  GO TO  CAT 7 RUN ATTR ©[Q]; FOR [U] LIST j©[P] FOR [K][E]U RESTORE %[E] PAPER  RETURN  LN  LOAD KSIN  LPRINT VAL$ [E]kf[ RUN  CLS IF CLS  INPUT 4 MERGE ▟ PAUSE [S] GO TO F FOR CODE iEXP a"U;" DATA [P]z`TSTR$ ATN  FOR <=ck_RND[Q] CONTINUE  MERGE -t)5 INK ▙;INKEY$ NEXT O[Q] CLS  THEN ASN C RANDOMIZE 'M▛ RESTORE ASN J NEXT V3S3 RANDOMIZE Jcrj ERASE /▗ OVER Z'N MERGE  CLEAR  INK ?_▛TAN ?ATTR f©[I]XLEN  LPRINT Op PAUSE AT  OPEN #▗e LET  VERIFY r RANDOMIZE O REM r AND 2}INT DBxa PAUSE =>f,CHR$  STEP ACS K<> INPUT & CONTINUE [C]NOT [F][L]PI7ZT FOR (*[R]?COS [R][Q]STR$ >EXP u*[O]E MERGE Tx)▙ POKE  READ 7g FORMAT  POKE %=USR POINT * LPRINT M RUN S IF ATTR  ERASE /kUSR 6 REM m MERGE  STEP ▟[R]CI2 VERIFY ] FOR  LIST [D]pI[[U]EXP  COPY  PAPER e DRAW [C]CUABS  PAUSE 7o$[O] VERIFY kINT  RESTORE FN  REM RND MOVE  DIM  SAVE )5INT  CAT J@z~N[M][U] AND ? REM  CAT  CLEAR  DATA  REM [E] CLEAR  CLOSE #/[L]eINT -INKEY$O VERIFY . SAVE  DIM k"W▙ LIST ?[E]P[C] RANDOMIZE  VERIFY IN ]LN M*5 CONTINUE RLN  PRINT  RESTORE  POKE  OVER j+▟] GO SUB C} OPEN #{VAL 9ic INPUT  DIM / POKE LN "V▟[D]▖>=UH MOVE [iT?7kI[D]Z INVERSE fSCREEN$ IN  MERGE Z IF mRNDSNi SAVE E[C][O] RETURN ATTR w MERGE 3FN d AND <)GuRND7 OPEN #VAL$ ATN SCREEN$ '[VAL i POKE u3]iRND BORDER / PAUSE o▟G}[E]@$De: LINE SLN  POKE >=k LIST  INPUT  GO TO :GRNDc READ  DIM TAN  PLOT  ACS >o IF POINT FZ{z| FLASH { ERASE  CAT }(7e Uk▛ FOR v REM 'W AND  CLOSE #A BEEP m[K]RND1%C OPEN #;CODE { IF *U▜j<=OPISTR$ ZBIN tzPEEK ▟.W[J]>5.V3e[A]P INVERSE fw[U]t| CONTINUE %[H]CODE  INVERSE _AT z DRAW 8SQR U[B][A].wdL ERASE w[L]: FOR ?t LLIST [L][E]SQR -V▜ TO VAL  CLS y OVER RNDjASN Rgn,[ASN  OVER AT 3[C][Q][J] DATA : IF SGN =g▟[C] DIM  PLOT  TAN  BORDER COS ATTR Jd MERGE <>NOT 5o:qoPOINT %Py[S]M CIRCLE  RESTORE L[N]reRNDD8 AND  CLS *]O RUN K[K]XRND CLEAR INKEY$TAB oD._PIB[J] LET  DIM f TO RND INPUT INKEY$VAL _ASN ?k[B]SJ[E]W$TAN `;kh=t]2 DIM  INPUT weW CLS 7g[T][B]>= CIRCLE WASN SQR  LOAD L_ VERIFY [Q] PAPER Dq[N]ASN [F] LIST :Gb6k[J][M][U]▖SQR  OPEN #j[F][N]ATTR O9 LLIST  CLEAR  INPUT %SPI NEXT V ?_ POKE ]CODE % REM ~ COPY 5g[M] RUN  FORMAT [F]_oN[O]#[D]n BRIGHT k DIM  MERGE W} STEP [B]<=-▜ATTR SIN  INVERSE  BEEP  MOVE  POKE 9c~<= PAUSE [G]© BEEP  I<>k}SIN Gm[T]s NEXT INKEY$ MERGE INKEY$ PRINT  PAUSE  LINE g NEXT < NEXT EXP ^▞AT  CLEAR  ERASE  'FN  RESTORE  POKE  GO SUB EXP  RUN  OUT sB}[C]RND[T] POKE } CONTINUE E DIM STR$ h DIM  PLOT  e GO SUB [R]UA%FN  NEW  LINE In VERIFY ;}w-NOT ?F-}H LPRINT jIN CLS <>SCREEN$  RANDOMIZE ▜VAL$  IF ={ LPRINT Sq[J]a%▗ATN RND0 IF M BORDER ATN LlDU OVER oATTR u OPEN # OPEN #TAB >=+W LET b7[O][O[L] INPUT I STEP IjKCODE  ERASE =t IF /[ABS  FOR V! DRAW =[Q]PIkRND OUT kVAL  LIST I) RETURN  RESTORE 9_IN s9 INVERSE Lx[J]NK[N] DIM jTAN  FOR (OACS PEEK n#_▖5 LIST P GO SUB * MOVE [M]& STEP /dASN ▝ LINE  REM ▖ SAVE  PAPER  GO TO ▞-[P][G]0 CLOSE #INKEY$o?=nM RANDOMIZE ▝IN TAB IN  GINKEY$ OUT [C]N2Ir DRAW z[E]TzCOS  LINE  BORDER # DRAW W='Cwq PLOT  ]- DRAW  CLS bg<= ERASE {OVAL$  CLS USR [U] LOAD ASN  [R]o FORMAT  THEN SGN Q.jwD. DIM  +PIvH FOR 6 OPEN #a%3# DATA  DATA [Q][G] PAPER BIN z2C<QPI{INKEY$G OPEN #)SCREEN$ -@ PRINT  OUT  RUN NVAL  REM Aj▘KCOS [J]zVAL$  PRINT  GO SUB  NEXT  THEN  DATA  INPUT ?`6[O]/PesRNDSCREEN$ }~ZSJ RETURN q[T]> PLOT  k▖ASN "= READ  SAVE :# PAPER ▛ CONTINUE  DEF FN AKTAB KrkASN [T])%t8ATTR  BORDER  ERASE O MERGE  ERASE  ERASE TAN [J]V. DEF FN @%COS  RUN  READ BNPj_#[K]XPOINT  BRIGHT M ERASE RND BORDER VAL$ ATTR @pt RESTORE S▚3% FORMAT [T]TAB  MERGE CODE 4 TO  BRIGHT  READ  MERGE [U]▞VAL$ x/[I] READ ABS  OPEN # MERGE RNDCHR$ T DIM 6/SSQR  SAVE I▛kPNOT SQR  RETURN  PAUSE J POKE r[A]▚CHR$ CODE  OVER  STEP N[N][H]bsq THEN  LIST V READ  ERASE TAB f[Q]0 IF 8[F] SAVE  PAPER [C]l INPUT  CLEAR ASN ~ RANDOMIZE )_[A]/;CODE '8 CAT x FOR FZ NEXT  SAVE R3ATTR  STOP B][R]TAN ATTR k[L]OQTAB  LPRINT  REM  POKE ATTR  IF ATTR  RETURN y#[T]W PAPER !i|NOT NPIr CLOSE # TO TO CLOSE #=h6[K]('RND INPUT  RANDOMIZE ^ CAT  LIST @O RESTORE JINT _BATN >=BIN %%E'▞TAN  RETURN [E] CAT  GO SUB  CAT ke*3BIN  RANDOMIZE ▟ATTR *VAL$ ATN IN  PAUSE c5ATN  GO TO 2 TO PId STEP  TO ATN [D]STR$ [E]j BRIGHT ] READ POINT [U]eCOS %. RANDOMIZE  FLASH nABS  CONTINUE POINT  MOVE  OPEN # FLASH > THEN RNDj CLS TAN X BEEP [H]FN 6URz1)IFkt/ OR  OUT LN  CLOSE #[M]Z3g DIM ▙FTAB  CONTINUE w[D]! VERIFY h-F<OPIABS t*FN [T] FLASH  LET Z BEEP 3i! POKE INT ^PI RUN ▜ CIRCLE  CLS FN STR$ [L] OUT  READ SQR )K CAT [A]ATTR EXP Z` LPRINT [U]|[K]x©dZ[A] RETURN [K][H] LIST 0[P][S]*3▖ SAVE  LLIST / OR e IF  RESTORE _y[R]INT [G] LIST  OR VAL LN [S]BIN  POKE ? CLOSE #CODE  IF S*<> INVERSE ( BRIGHT PqSIN TAB GEXP  AND U▗K5 READ SAT [Q]RRNDz©hmO>t SAVE  gVAL ▘q RETURN SCREEN$  LLIST X7wR8▞% COPY `PI INVERSE 8[H]USR  COPY X THEN [L]+ OUT  CLOSE #[A]='CODE  LPRINT  FORMAT @/©▖ul▜ GO SUB LN h,)/ft4[P] CLEAR TAN 2w INPUT *V5[U]VAL ▟/U© FORMAT PI▖w LPRINT a~DPI LINE [U][R]4+VAL  REM  RETURN CODE X?tX PAUSE  COPY (gpoSTR$ [C]J,' FOR [E]CODE /b THEN <>USR h© LOAD  COPY (WwL#© INPUT  BRIGHT "_ COPY  GO TO (O BORDER  CIRCLE B DEF FN  DEF FN  LINE ▘TgUSR uv▛SIN REy BEEP [Q]K/ CAT  FLASH  CIRCLE h~[B]LN ▞NW DEF FN LN PXNOT  PLOT  STR$ IN  FORMAT Ug DIM Yw[B]h;wSQR [U]▖R[B][I]t8cCOS  PLOT  [I]BO[D]IN VAL$ [▚©|ATTR hW?yATN BIN `K©CODE [A]Lhn[P]USR hc@CCOS >=xLUTAB  CIRCLE [M]Xs[D]USR w▗[L]▛[I]▚[C][H][Q]n©RNDABS  BORDER FN tPl[L]▖ DRAW p`^z[F]{?e▙[I] SAVE ~r|{©dc©▜ LLIST paV RETURN [J][T][I]wgu[C]▝tqSCREEN$ [Q][F]~▛▗▞▗py|▝▚[E][Q][R]zjk©jo▗[D][A]C~▟~▞[G]▖▗mfkhl▖xQ[C][O]AT ▚▖[r▛uf{f|s▛yz~s|ltiu{<w[J]▚▝▟[B]~▛▙0`©}uow~vx<[H]}z,sv/lgek[J]m PAUSE s FOR STR$ {USR vn LET z▚[A]▗|[D][G][K][C]▞▟▛F STEP [E]©▖©vr? FORMAT |▘▞▚STR$ [P]~ptwxBIN {v|[A]tSQR  STOP {©▘<=z LET ux}|▜▘▝▚▞^▟v~ MOVE TAB ` MERGE  CLEAR © DRAW Z CLS 4R[G] DRAW  PLOT  @HRUST v2.1 by Dmitry Pyankov./[ NEW  LOAD 2/[ CLEAR © GO SUB y CLS NOT NOT ! CIRCLE ! LINE  CLEAR ©:/[ PRINT  NEW  LOAD  NEXT 2/[ GO SUB yNOT  NEW  LET  CLEAR © NEXT 2/[ GO SUB hr21▘<<>0©[L] COPY ▝k COPY  RANDOMIZE ▘* RETURN  COPY m PLOT  ©[C] COPY  LIST  CLEAR j IF ~ LLIST [U] PLOT   SAVE [D] RETURN  CLEAR  DRAW }% COPY  DRAW EXP  VERIFY  CLEAR POINT ▗ COPY  RANDOMIZE  DRAW ~|zyxqGLEN  CONTINUE  LLIST ▛[C][H][I][G][D]▝zupkjjlnopsw|▝▜[A][F][J][L][I][E]▙▖▝{tpjgfgh PRINT mqu BORDER  DRAW ▚▙[A][C][E]_▞VAL$  RESTORE ml8[T][P] TO qtw{ RANDOMIZE ©▜▙[D][F] COPY [C]khiE DATA  BORDER sx{[J]▟ SAVE [B][E][D][A]>▚▘|xv RESTORE nl CAT [F] NEW vy} RANDOMIZE ▘▜▛▙[B]>=@[H] DATA ~z PAUSE vron COPY IN |tvz}© DRAW ▚▖▛▟CODE  COPY [D]▝~{<=zw FLASH ts COPY  PRINT wz~▝ READ ▙G LLIST ▗▝}} READ xvutC COPY  COPY '|▗▖▞Q READ ▗▚ CLOSE #©| STOP  AND BIN v ; CAT ] RUN  DEF FN  POKE ?©}|* LLIST  COPY S RANDOMIZE [M] OPEN #AT ▚c CLEAR ▜▖[T] RANDOMIZE  TO p{▙ DEF FN SCREEN$  CLEAR <>[N]INT VAL$ SQR SIN  COPY  CONTINUE  BEEP N[S] PAPER <=[C][U] COPY ▗s▞t GO SUB ▝9}[O]VAL n▟ BORDER r}▗ RANDOMIZE ▘▞|zo<A[A]▘▟O[H]▛[E] DEF FN U~wi CIRCLE © NEXT {zVAL x[I]▗LN |▚P▚[ RANDOMIZE i?©y{xmvtw~▗)USR  AND  LPRINT  READ X|r0'qu~mozlwxp{▗u▟[J][K]STR$ [F][M]c COPY ▚▗hk]e>AGLQul[B][B][P]ASN ABS  ERASE  DATA LN  CAT [E]sdN@),66BFJRw▗COS EXP  INVERSE  LIST <= REM [S][I]▖Z SAVE M`$7( GO TO {32?EKc~[O]SGN  THEN  COPY  FORMAT  GO SUB VAL ATTR u/` '"+5?JOTwPOINT CHR$  OUT  COPY  COPY  FOR LN CODE jsFH+)(4>@ZgX[P]BIN <> COPY  DRAW  FLASH  LINE POINT rzHO@"!(!->CINR_PI OPEN #, ERASE $ CLS BIN SIN [I]pZl%F&#1,;EIVVoABS  INVERSE ▙ DIM CHR$  LPRINT ATN ▗zSf)D&(1-?DKQUgIN  CLOSE # REM  BORDER  CIRCLE COS ▖o`aMD$+./@v IF TU©RND VERIFY  COPY ▟ DRAW [G][E]qRZX LET ":#2 CIRCLE  COPY <GJSY]s THEN  NEXT  COPY  POKE  IF [Q][B]efKR//78B@OV/`s[P] FLASH  CLEAR  COPY  SAVE  RUN FN [E]bfQcE13>0 CAT IM RUN joINT  CAT IN  FOR  ERASE  LOAD FN [G] READ lhb©ZP1=3GN READ I_fs[H] OUT  PRINT [T] CONTINUE  LET FN [J]`W CIRCLE [>e%.3:CKNm[[L] OPEN # PLOT  VAL r CLOSE #odW9wL1@4/B<LWZm[J]IN [U]? LLIST USR ▜ LET ZKXeIN 1H46ED READ QWi FOR [H]IN 1 FLASH  NEXT  LPRINT `[}i RANDOMIZE D9>;?` DRAW Uab[D]COS  LOAD  LET  DIM  ERASE  POKE p COPY aLK▖<7 OR 9@ COPY MRW_t{IN  INPUT _▟ OUT [Q]T^ RETURN Z3▜X7L+© CAT CNQv[J]ATTR  GO SUB INT NOT TAN vYXQ|`HC*7@DLQkcRNDATN IN  DIM SQR  CONTINUE pJx SAVE 8W▞@19$7 IF Ly^IN VAL [T][F] CONTINUE  BORDER [C]b9j/kl4C8)KQOux_ASN  FLASH  MOVE aLEN TAN `EhWfrA6?*ILVZ▟hATTR  ERASE  MOVE INT IN INT kH_[A]V NEW 37*SQR K▛p[L] DIM EXP  READ  RANDOMIZE  CIRCLE wCUSR `G▚Tsp2/6-AGNTyw[T] BEEP  FOR  MOVE ATN  SAVE  FORMAT nLgb TO D▞JZ2'=>Mby▘[P][T] OUT  POKE  COPY  CLOSE # CAT FN PWx+©[A](+2  COPY N[▖_[T] DEF FN  FLASH  POKE  RUN  COPY SCREEN$ EXP  GO TO dkR>B:CPU/c▛[J]SQR  READ VAL /[D]ABS TAN U,©:{▖X1=(?OUY[H]j[P] DEF FN  PRINT ZUSR  COPY SQR P_ti▜▗0> COPY @HNS^[H][E][P]>= INK  LIST  FORMAT l~SGN hNqT▜[E]8]3:;FLmc[I]VAL$  OVER  DRAW  COPY >=ATN [Q]@G[E]CPI▖1a&[A[[E]`c[N]TAB  MOVE © MOVE ATN #_xCHR$ ?[P]`'/5<'kJQm▚f[O]TAB  MERGE  CONTINUE <=0[A]© CIRCLE WASN `3?29o]/[H]c▖[D] BEEP © DATA |TAN j0 DRAW _▗iINKEY$`W COPY Z>OQj▖▛ DATA [L] BEEP  RESTORE  CONTINUE &VAL ^Cwps[P]Z392>KP/▙ COPY  PRINT [U] THEN  LOAD  COPY  LPRINT [I] LET ^4©t[I][Q]`1367mJ_▛{▟PI MOVE  PAPER qc POKE ©[E]T3qoAT P.5&;K/_[F]c[A][J] BEEP  BORDER  COPY TAN ATN ▖@Se▛[R]P7;6GXUs][U][T]ACS  STEP TAN ASN @E▖/▞[U]H-3%7_Pm[B]{COS  VERIFY  COPY  BORDER USR [P]▖BG▞XCHR$ ©[K]`e-60>MUf[D]~IN  FLASH  GO SUB  COPY [I])H;[C]u[J]▗812+BIOm▘_[C]PEEK OSIN  RETURN IN 2W[I]GATTR B30OWN{| REM ©▙ASN [Q]CHR$ [M][Q]IN J!6x_PI[A]:47*HNTkw[B]NOT  BEEP  CONTINUE [A]ABS  SAVE O▘sCODE LN H5+G_T[D] PRINT ▞▗[F]<> FORMAT aO[E]ACS `*G}PI▖41 -GMW▘▖▜<= STOP  CONTINUE [I]SCREEN$ / NEXT -gys CONTINUE 032 COPY DJT©[G][B] MERGE ,LN % RETURN ▚USR `4_ePIlQ+70EMRk▚[C]▛CODE <>[F] RETURN [Q]X8[f▜INT 9//GLS▜`[O][I]IN  LET > CONTINUE [L]USR T2©|gRNDp37([P]:▖W▞ATN [D] FORMAT [S] COPY VAL 4-©u▟[U]/▟M COPY SXw▖▛RND ERASE  NEXT >[Q][C]AT T0X FORMAT ▞[R]rP 4.ENf©{[R][G] OUT  DRAW  FORMAT [N][M]8/yVAL  PAUSE %SCREEN$ p+0#/DLRg▚[B][T] NEW  FORMAT  CIRCLE [H][A]A1uj[S]p54,/EOW©[B][P] RESTORE [P] PAUSE  FORMAT [H][I],V DRAW ow[E]H36;Ie DRAW ]▚▞[P] BORDER [J] FORMAT  CONTINUE [Q]`>={q[R]X18!<KZg[B]▜▜PI DIM  PLOT  LN ©L.mr LLIST ▞[S]`0RND 36JOorw[I]PI OUT  RUN  COPY TAN CODE [A]J7▟u[F][J] CONTINUE 1!4Sd]▚[N] FOR  RANDOMIZE  COPY USR CODE &G[E]r[G][Q]H-/+9EdRmk[A]PI LOAD  RETURN  COPY  LPRINT [D]▘@?[P]© PRINT FN P) LLIST *2M13O▘~©[P] DIM  CLS  COPY  CLOSE #[T]FO©[T][E]R(!4Fa_pn▚[F] OUT  GO SUB p[P] SAVE pEQ[C] OUT [I]T-%3[U]; DRAW _U[{CODE  READ  COPY @ LPRINT [H][U]/Z[P][G]▗[D]USR %P02%8GUSh[RND[L] RETURN t LIST [D]TAN Z/▛r FORMAT [A]Pp;DM PLOT  RXa[C]INKEY$[U] DRAW X FORMAT cT[L][C][F][S]H%2&3E?S DIM Yo[T]PEEK  CONTINUE [H]VAL lRX ERASE "▜[I]P(#/6?INTg[D] OPEN # DIM LN CHR$ O[F][Q]b[P][E]P,&'?HMQWe[P]<=( LIST [G][U] LET bs[H]SGN @17 COPY (IOTX]}[P]M LIST  COPY [L]VAL pi[J]▚[H]<=D2 ERASE -A> COPY X[e[N] CAT X[Q] FORMAT SCREEN$ AT hg[D][C]jT5.&;C IF  CAT [©[T] LINE  NEXT  CONTINUE POINT VAL xVAL$ ▜ COPY ▛h<P-/9E= DIM Z©AT aUSR RTAN IN [Q]pq▟▞P38-,ATN Y©[I]VAL$ Jna[K][L][E]|es[D]▘*0120?NSW/wPOINT s[M] DATA AT ,n▚ RETURN h4065>D}BW[oPIXEXP 3 LPRINT VAL ▟[F][C]{vxb@+/:BGLRV FORMAT INT I? RETURN  VERIFY VAL [F]▝oq{r2,6© CONTINUE QUk[N]ABS ,[R] GO SUB  ERASE LN RND[B]|©▝fN03;?FVAL ▞ NEXT U[y[J]IN  LOAD  INPUT  CLOSE # AND  LINE USR FN [G][I][A]rX9;AFKPUY]`[Q] MOVE  AND  OPEN #<> COPY  READ  VERIFY IN LEN POINT [I]▘h[C]H CONTINUE INT OBq`e▜▙ AND STR$ I>= FLASH  LOAD  RESTORE  FORMAT  TO SGN [U]mXP26<=C STEP  COPY ▜LEN COS IN  OUT  POKE  CONTINUE  BEEP ? CONTINUE [N]cTG▙+<= RANDOMIZE .09BHM[[L]SCREEN$ CODE  OR  DIM  LIST  BRIGHT  DEF FN  AND VAL lVH8#))+7DKRsPOINT POINT ASN  MERGE  PAUSE  FOR  FLASH  VERIFY >=[U]▝dMB. CONTINUE a RESTORE &,8CJS©[P]INKEY$ATN  FLASH  REM  READ  CIRCLE  DEF FN LN [I]t]M8(-()3?▚▘e[P][O]ATTR  ERASE  DIM  GO TO  CONTINUE  LLIST  STEP AT ▖jUI+[G]* CONTINUE /<GQ][C][M]INKEY$ CAT  RESTORE  DATA  READ  NEW  CIRCLE LN [E]vaPF*,VAL  CAT  BORDER 7BNU{[C][K]EXP  INK  LLIST  STOP  LPRINT  CLOSE #SGN [I]xdVN20./7CO/[C][N] LET COS  OPEN # INVERSE  LLIST  COPY  PAPER CHR$ [M]zfX READ R@2LEN  DRAW 3<EPW{[E][O]SQR  MERGE  INK  OUT  STOP  ERASE SIN [F]z`SQ5347=HR^[B][T]NOT  MERGE  INVERSE  READ  OUT  LINE AT j^WP54f9?KQa▜[A]ATTR <= CLOSE # OVER  LLIST  CIRCLE USR INKEY$▖mYYQ89 RESTORE  REM GOSGN ▟[I]TAN <> VERIFY  BRIGHT  INVERSE  THEN VAL$ [E]zbXV:9<A,ARk▜ATTR  AND  DEF FN  CLOSE # PAPER  FORMAT INT [O]j`[J9>BGMQoRNDABS SGN  RANDOMIZE  INK <>TAN [R]▚ REM  RETURN YP6:?EJ~▞ NEXT PISQR <> FLASH zLN  COPY RND▚i`XI03R DIM FN ; CAT  ERASE STR$ VAL [D]wi]W@8<CGK_|▘[J]LEN PEEK <>[P]|FN ▙ RETURN vk`P9=A©IN Sy▝▜POINT INT ? MERGE  OPEN #USR AT [A]q POKE dcaZwU▚[B][G]POINT SIN LEN  SAVE TAB [Q]ec PAUSE HlSTR$ Kmz▗[H]TAB ATN SIN POINT ATTR [Q][N][O][E]uaL; AND IMg[L]IN  DIM  LOAD  CLOSE #VAL [I]zlolZ925'C[L]m[C] READ ATN  RUN  COPY  COPY BIN yH5:GQ READ @"$ BEEP &s▟i GO TO $TAN `"#=W/(!mk[L]3t DRAW ▖8B)AIR{TAB IN  BEEP BIN PO DRAW [C]f8oBLo|[U][C]}▖ COPY "/}SCREEN$ [A]P%▝;;[K]}O/`SCREEN$ FN @#_COS VAL l8 3Iw▘ATTR  GO TO STR$ 6USR 0SACS SGN ▖- /O{▞▛ GO TO STR$ [VAL (KATN  TO x0!3Mw▙▙ASN  GO TO [P] GO TO o CAT  FORMAT `[P] CIRCLE 7O▞▜wVAL [A] RETURN  FOR USR PxVAL ?W▜ PRINT ▛_ DRAW  SAVE P3 THEN [Q](# GO TO C AND y}AT [H] INK [Q] LLIST  INK ©s LIST H CIRCLE 4<=]jASN UsAT "SIN OS NEW  OPEN # CLEAR /Kj@GPIB INK Y STEP  CAT 3 COPY (-s[C]tkAT [P] GO SUB 4 DEF FN <= GO SUB USR ©▛?omiCOS Y[Q] INT [M]7IN [U] CLEAR  OPEN #K[Q]pu+ DIM USR 9INT ? LOAD _TAN K[A]▗[N]CODE  INPUT  RETURN @f GO SUB ©g8~a1O[E][J]EXP EXP ACS `>= COPY o VERIFY VAL D ";w FLASH [I][H]CPOINT h BRIGHT / COPY LN P&+AY[E]ATTR J DIM  DEF FN USR   BRIGHT 3h-/ IF Ao[L] OR  BEEP EXP X INVERSE wSGN  COPY [E]H(;G{PIF BORDER  VERIFY USR  INVERSE ?CODE  COPY >=,.By▛[H]RND BORDER 0$[P]ABS x@8Cu▘▟g LOAD   LOAD /[H] COPY LN =6?©[L]SCREEN$ I FOR  CAT VAL SQR [TAB SIN  CLEAR d0;_[T]EXP XR[E] PAPER hg OR VAL X19UPIBIN  NEXT  COPY  CONTINUE ▗ACS D4?{SCREEN$ n COPY [I]$p LIST #_IN JBK▟ATTR G0BIN  ERASE HkPOINT ▖@4BoPI LIST  CAT  CIRCLE @ LPRINT w<> RETURN FN L)9S[G] STEP COS l@VAL  COPY {SIN [A]H7A_[J]FeLN 0 MOVE ©<=[M]P>DoCODE  RUN  COPY  DRAW CODE t MOVE ]TAB STR$  CLS ▖B<G[D]^ ERASE 0IN  MOVE ▜CODE TAN `8 BORDER >e[K]> DRAW Y[S]7[H] IF /[r[D]j>=▖ COPY  LET /[D][K]HSys[T][Q] LET 5 RETURN ▜[N]tLW[B]ATTR [P] INPUT  FORMAT @? LLIST ©RND[Q]`<>>W[O] LET  BEEP  LIST H4m[Q][N][C]S▞=TAB  LPRINT PEEK V©TAB VAL ▙z CLOSE #{POINT  STOP  LET  COPY o[O][K]l48w9 LET  POKE H CLOSE #?BIN SCREEN$ [M]L:l FLASH ▜INKEY$ASN _x[H]IN USR d DIM H=~ FOR M[Q] CLOSE #W RANDOMIZE LEN CODE <e OR 0y POKE PIOACS  NEXT USR rSgVAL  CLS Y STOP  RETURN [L]PEEK SIN LQ_[H]EXP =- LET 7 OR  DEF FN [A]=o{CODE  FOR 1[F] READ  COPY TAN PEEK VAL `fPICODE  MERGE  MERGE  COPY [Q][O]X▛AT  AND PEEK 9}t LET  RANDOMIZE ?TAN [N]xj[G] CLOSE # DEF FN  INK  MERGE VAL  LET 'IN TAN ▖4k[O] OPEN # CLEAR  COPY  CIRCLE 8 LET CHR$ W©USR [F]9= STEP  PRINT  COPY  DRAW p/SQR [S]t0o[J][M][Q]? PAUSE [P]POINT ▖E OPEN #X▜kSTR$ >=LN © RETURN SIN [Q]DOwATN  LOAD [L] BEEP  RETURN w[U]`5WATN Sd▝ PAUSE ?[U][A] RANDOMIZE HWCODE  NEXT ▙CODE 0coSGN v DIM @9 BRIGHT  SAVE S BORDER #W FORMAT >=-mK.[C] LPRINT V*©[K]<NgABS  GO SUB <> COPY  CONTINUE + PAUSE  CLEAR WUSR tDE▛k DATA  POKE  VERIFY  CLEAR  DATA [Q]6+_# DRAW T_>=_ PLOT  VAL P BORDER #O[P][N] DATA  0 VERIFY ? DEF FN [Q]4,G[L]0AT  LIST S COPY  MERGE g ERASE [I]lKw9- CLOSE #(SQR  COPY 'SQR  FORMAT x;G[D]IN 9 DATA  CONTINUE   DATA  RETURN # TO ;O[D]▟I CAT USR >=ATN  CONTINUE  GO SUB AT D; CAT ▘0W NEXT  IF TAN t'o▙]©XxKO PAPER FN <:xRND OPEN # VERIFY  DRAW  COPY  THEN o CLS USR 0k[T][H]+▘ PAUSE [P] RETURN  CLOSE #[M]D7oPI BORDER TAB K CLEAR  PAUSE USR 8K[L]5!LN ? SAVE  CAT  GO TO  POKE %;USR  OPEN # CAT Y' FLASH  FORMAT  COPY [I]0_▞ CAT  COPY  GO TO DoTAB  INPUT [Q] LINE /+<>: POKE  IN <> PAPER [I]:C OPEN #© OR  OPEN #? RETURN jATN  STOP [C]@7▟[K]>▖©SQR + THEN LN A ERASE iRND FOR ▞XTAB ; CLEAR  CLS TAN P%rSQR s<>TAB o IF  LET FN 27{ BORDER [Q][Q] RESTORE <= IF USR ▖$G©zm[A]USR <>G IF SCREEN$ d"o[O]ATN SQR [C]w IF  BRIGHT ▗HG[H] BORDER  LIST  PAUSE CODE [U]*SGN -PI<>` COPY  CAT VAL ▖*E[H] GO SUB  COPY [E] RETURN [ OUT  CLEAR  CLOSE #SGN [U]Vj[N]ySQR  IF 0xSQR  FORMAT p:KIN ] MERGE  ERASE 7 COPY IN  DATA  POKE K[N]f PAPER LN © PAUSE  BEEP  CIRCLE  ? IF [H]ABS  COPY  RANDOMIZE T COPY ▗? MERGE LEN p![[M] OUT [Q]$ RETURN [Q]oBIN [A]VW▛G RESTORE POINT >=VAL$ [C]=▗'W[H]. CLS [A]IN N/ CAT CHR$ G ERASE q[C] FOR  OVER ` PAUSE ? COPY  LINE SIN bOATN  DIM  COPY  FLASH  POKE (2 IF  RETURN [Q]2*©^ LLIST >=IN M[L]ASN ▖.WABS [P] RETURN 2TAB [K]▖w" FLASH  DATA P<> DRAW >=RND}[M][N] FOR  PAUSE  DATA 02[P] PLOT  FN H7©[J]C[Q][P] DATA SQR ASN d DRAW 3©COS  BEEP  CLS  COPY $ CLEAR O[T]▚Co[N]RND BEEP CODE Hvk STEP  BEEP 8[C] FLASH  COPY INKEY$ LPRINT i RETURN g[Q]pBw OR INT  RESTORE  FORMAT  RETURN <>▛[I]▟[P]TAB  ERASE  BORDER VINT ;[J]<>=[N]CODE  NEXT [ CLEAR ` PAUSE W COPY COS c{PIPEEK  BORDER  COPY  BEEP  GO TO @ PAUSE ?[R] DRAW g▜ATN <> LOAD  BORDER <>[O]▜[K] IF ▝w[O]FN CODE ' MOVE  CAT SQR fo[P]ASN <> BORDER FN  DATA j RETURN SQR  MOVE  ERASE  INPUT  CLEAR [I]©AT ;RND▖XsCODE  IF BIN  VERIFY  DRAW  SAVE  COPY  PAUSE '©▟p▛CODE  MERGE ,TAB  LIST @;xbf[H]NOT CHR$  BEEP  IF 1_[P]_iX BORDER ▜COS SGN u GO TO 8?SQR WiL] PAUSE [P] CAT <= OPEN #USR  BEEP HRND BEEP  VERIFY  OUT  CLS  LIST T_}G[F] COPY  CAT  BEEP  NEW  COPY  SAVE p?gjX=▛ OR  DRAW  VERIFY  DIM  CLS  RETURN ▖ COPY  MERGE 7i`G▟CODE  AND [M] LINE EXP [I], COPY AT 5/?EsPOINT IN  DEF FN  CLS  FORMAT `=oUIQEXP VAL$ NOT  OUT  DRAW [U]L/?cbLMcPISGN COS IN  BORDER >=DEe▖dNT©VAL$ ▙[N]BIN OIN  GO TO  AND ▘FZXQV{[U][D][T] CAT  CONTINUE AT bJw[R]▗YSW{▛m BRIGHT [U]j RETURN g▚[E]dQR{▘[T] OPEN # CIRCLE [Q]p©[C][A]hKNyG LET c COPY [P]SQR STR$ [G]tw▖x`W©▚▘[H]ABS SGN [A]us▘▚xrq{~zy▛PISIN [A]row▝~vy©▘|}▖[I][T] POKE [M]{ry7 CLOSE #▘<=▚~ COPY [E][A]▘pt▗ FORMAT ▟ DEF FN ▙uy~7▘▛▗?NOT ©[B][L][J]▙▘~ STOP tnm[P]w©▟[G][K][C]▞zrmln~▗▞▛>=[C][B] LET vkfl©n}▛▙▚▝ PRINT [F]▟ STOP h>wdACS ▖ LPRINT _▘yu RANDOMIZE pq|{©. AND LN [J]|[F]vp PRINT wuz▘POINT [D]v COPY [F]x>=tq MOVE [T][R]▜|k▗▚1 BRIGHT xHZ OUT ▖[A]▙[F][B]93[G]▟EXP C[E]>▞[A]▖▝[O]▜ABS vsp8[R][R]▚@ COPY ▚PBxLEN [L]▖USR [F]{ATTR 1 SAVE sI INPUT CICHR$ G▛[G]9[A]▛^▞[E]▟©[C][B]▛x COPY ▞▝adl4K[F]WL[B] LPRINT [L]ko[G] OUT m[L][I][H][E]▛k[J][D]▟[F]▛[D]D COPY  AND ^ SAVE ©jk[A][G]PEEK  BORDER jz/v▜ DRAW l[C]▙▟h[E]2ATN 9g DATA ^ LOAD `r▟▙Wq LET [A]▜ DEF FN  CAT y STR$ FN p▞ CAT 3{▜ BORDER ▝zqRmw DATA |{▝*# PRINT o COPY klndMXQm%~ ERASE |▘©zdu{VWk▚<▟[N][T] DRAW  ▞▜▘}FN 5%/▛[O][D]USR u▘ STOP ▗}Vrt©![R]TAB [G]y,wnoji©is|▛PI OR VAL  STOP [B]© DRAW ▞pd`ao_fno DRAW y[T]IN INT ▙r©}F^/ZRGcfoq[J]ATN  STEP [F]xj}p[W89AGivVAL 3CODE  INK  LINE [A]lrypcTIXBIcx▜ COPY CODE  VERIFY  REM INKEY$apw[M]lATN VD©_▝©▖ LET [L]<= LET  CIRCLE 8jei MOVE ] CIRCLE c@JKnsz▛SQR  DIM  COPY VAL pLZZD/8cI_hy[G] LLIST <> COPY  DATA PL COPY INKEY$6PCZ CLEAR Ucis©vFLJE2[cZ8Svzx▞ VERIFY k.VAL d=KP-18iXFgz▜[T] CAT  COPY  LIST ▖@?006<gnkS|©ASN ` FLASH BIN VAL )EP17=B[XRg[F]FC>=.QK© COPY }ZT_▚ DIM ▞▟PI~FN @76▚©(kr]Mw~t BORDER s[P] PAPER  GO SUB [U]P CAT ;@ASN Ckd SAVE HM©} CLOSE #COS wJ0)5= COPY o▛`G[}v_j8>>=▘* RESTORE ©?itZG_▘©▝INT  RUN  COPY  LPRINT -.3? GO SUB ]▚`OU▘© PAPER  DATA &/0:[O]Gplg7NW[D]V GO SUB  FORMAT t$C.5K▜[A]`W{NU▜![J]▘USR d%S/3K[C][E]Iou|p][F]ATTR NOT [R]l$@'3O▜▞ho[bzp_CFN P) DRAW .7U[P][K]W IF  AND lqVK OPEN #[U]H-3>{[A]▖i`]Ts▘[N]IN  PAPER ▖@+<8 BORDER :oTAN Ki DIM PXw THEN  RESTORE `'6=@o[B]RPTV/_ OPEN #RND5[Q] PAPER ?;K_[J]zW/afikATTR  PAPER [E]H2GAKg[L]_bfjkq[H][N] DATA ▝[I]H8<BSSCREEN$ [C]|sXZzASN x[I]@/X8 LPRINT C[P] DIM ©Zgkfs[N]IN F0 FOR ELN HRML LINE INKEY$gse`_{[O][R]▜ RETURN >=PD7J©ATTR [E]RY[gdqy[D] LOAD  COPY TAN 4:[P]oTAN FbPB NEXT 7m[J]<= CLOSE # RETURN @'/KIN ©';Bvr©[F]E DRAW # CONTINUE XG5vg<>LN POJn[}[T]ASN  NEXT VAL  GO TO Kj(-@G_ASN VAL$ `MSnI{[C]INKEY$▟` RETURN ()?VATN SIN 7=AT  OPEN #[A][P]VAL SGN 6p&4;F[P]VAL$ hEQV[^o MOVE  COPY 4)CBQPIUSR R} INPUT _m[K][E][N]STR$ 6USR 9'?FM© DEF FN JSXY^u[F]STR$ "T0;HK_ATN [Q]XW]^cj[F][D] PAUSE ▞`"yUSR SPWCODE USR lQZ^_d▟FN SIN  COPY  DEF FN 7)EKUPI FORMAT [D][A] CLOSE # OR / MOVE ▙[U] BRIGHT  CLOSE # FORMAT 8  RETURN  AND gATN [K]RK}_▗[B][F]#▚L+ COPY 3BEW CAT SIN PLS[ CONTINUE ©TAN [O] VERIFY T /tLgATN USR Z9Kew▞[N]jy LOAD f??_b POKE [P]TAB hI?q©[J][S][E]<>[Q],?G DRAW cRNDLN pMP POKE [Q]oAT [Q]_[B]USR 6" LIST ?HwTAB hpg POKE WoSQR  RETURN AT r<= COPY  CONTINUE 4▜ CLEAR A[L] CLOSE #▖<J[[T] BEEP USR ,@  RANDOMIZE 3lbwATN g[P]: INK [[P]AT ▟T▟ TO  VERIFY _e©IN [Q]D:]qb[F]POINT [B]▛© NEXT $#YX STOP nATTR LN ©6WZB©POINT [Q]Om[A]$. COPY C▜ATN  OR `5;@▝MCODE  MOVE FN [D] GO TO  RETURN $%W_sPIBIN p6?Cr}AT [M]▝IN s▟/EFN [D] IF  OR [F]HWp3oPOINT [A]? GO SUB  DRAW @$/g CAT k▞[Q]T9> RANDOMIZE Sr[J]VAL [N] GO SUB `SCREEN$  SAVE 8'+dk[F]NOT [I]J3;Oo[L]SCREEN$ zz PAPER +`[ LET zL>dABS I▞[S][A]s GO SUB p[Q]U,TAT b6gL?©[Q]▟ CLS  COPY TAN ($?>fCHR$ 8 CLEAR CJe[Q][I];m@05dg©ATN [C]T?GMk[H][A]▚ OUT  AND +.Y PAUSE cCOS [Q]NOT [T]CFR[U]▘ RESTORE  COPY  LPRINT 6-E/u▛USR tAEKN_[K][G]▖PEEK S16[kAT J?FLc[H][L]▚▞ BORDER  COPY  CIRCLE <7SZG CONTINUE PEEK D© INK [[P][E][S]▗© [Q]46=G{ CONTINUE IN USR `© FLASH S▜ATTR  BORDER <=>H6 COPY ULS[L] THEN DE[P]O FORMAT [P]SCREEN$ h▜F<=70`S_CuRNDAT p?WHLg[L]▞©SCREEN$ p/5JI▟NOT  LIST [Q]DBH}T[D][J] RANDOMIZE  CONTINUE  NEXT X3?TXUSR  COPY BEXMn[J]▘ OPEN #T[L][G]USR  MOVE 617_ASN >=p5;DH{[P]▖x[G]▗?_`60 GO TO SGN  COPY ;cIJv[P] BEEP ▘uLEN h- RANDOMIZE :H9}SQR (bG IF L▜[E]Yo- LET hV68K[F] THEN [K]T=CHQ[D][A]t▜ PRINT ,P39B_ATTR  MOVE [E]JFNQ][N][G]. BEEP  CIRCLE ▚©ATN =kCODE  TO [E]B>>&V[G][K]▘IN  GO TO USR 98GE IF _VAL$ SQR ▖@ FOR [B]▞▘F COPY [C][A].3E>OIN  FORMAT  TO p LOAD ATTR KgPOINT ▟[T]|▚OU9 PLOT  ©IN LN P▟c NEXT s[N]▘©▞ SAVE  COPY @362?[D] BEEP [U] FORMAT D;© REM [J]zJ- COPY 2(/6MCODE  DEF FN ▖C~;Hi[L][G]`& NEXT USR (E2[L][T] CONTINUE >=@g#c[H][A]ASN ~i[F]? NEXT ;w<=USR ZPI6CODE  RANDOMIZE g[K]{ CAT : COPY `7H<E▜ AND SIN <=XI▞R POKE [C]▜[H] NEXT > MOVE ;?EU[P] DATA  FORMAT [Q]I[[D]▙▜MA CIRCLE  COPY 618>YPI DEF FN [A]?LEN IM[▟[B]PI} BEEP  BORDER FN ,H[N]gATN  PAUSE  MERGE 7<9}Kl COPY -H5=▜ THEN  CIRCLE  DATA X4BVAL FN  GO TO JL`TAB X5<6C▜CHR$ VAL Y>DIW[H]▛V DATA )*~ LINE [Q]M;}uS▜[E]|©N CIRCLE 0,35W POKE [P] DATA [I]@;PI_[F] MERGE [G]z[N]▘[Q]'(25g<= LPRINT p39>EoCODE [K]CODE r GO TO `'. IF [<_<=>=WpGM©ASN INKEY$ COPY  FOR  DRAW 8+2JW IF [H] OVER [I]:7 LINE  OR [P]&_ASN USR +1 RETURN WH[SQR  CIRCLE 4@LEN 6 OR [M]SQR %p(.P=k CAT  FORMAT h1BFM}PI▖| BEEP [P]VAL -5 SAVE AK BORDER LN 6BHS[H] POKE SGN [A]▜ RUN Om.]@ DRAW WATTR  RESTORE ▖2=▝[N][T] OPEN #FN }g&`&7w LLIST  CAT >=X[G]:K©EXP [A]▛ FOR  COPY  LPRINT 0*7D_ATTR  STOP [E]17AGm[P][R]~©[O]▖")K9© FOR  MERGE  FORMAT L INK I POKE ▜COS [E]g▜4$I[O]@k FORMAT [A]89▝[INKEY$PI▝LEN  BORDER p,2/w THEN CHR$  FORMAT ` COPY EKP{EXP RND▚ INVERSE ? INK 2+?ds SAVE [N] CIRCLE [Q]06G][D][U]▝Ma[Q]) DRAW 4eIN  TO [P] INK dNi[R][E] OPEN #▟ LOAD  RETURN  PAPER #3:SPI BRIGHT [P]wHM POKE Y[L]RND▞ OUT  INK P/JY LPRINT ▜ STEP USR `5CzOSGN [G][G] AND =,SiyASN  VERIFY p4:AI©POINT [K][F]▞ABS  DRAW 1/@mRND NEW  AND 9;[P]eINKEY$[C][C]pSTR$ (P%0O[F] OVER VAL D57?R[D]TAB [A]>[P]1S▞ NEXT PEEK  FORMAT d/=G POKE }ATTR [C]W[G]8"* CLEAR 5G MOVE LN T NEXT  GO SUB S▛[M]? TO  COPY "7O©NOT >=t9[P]?oRND[I][K] PAUSE  RUN  COPY >=0xUSR W?yCODE  DATA [A].6DJe[T]AT ▙ INK ` RETURN #7G▜ OUT USR T[N]ACS ▘VAL 37}<> LPRINT 59<DkPI[I][S][H]?"+5uATTR  NEXT  BRIGHT [I]:6LEN W PAPER [N][Q]©ATN X" NEXT 2_▜ ERASE 8[R]> PAPER ▛POINT ▙_ INVERSE [I]%$[O]2COS IN  FORMAT l[L]K OPEN #[U][G] COPY ATN  FORMAT *'5{INT 'COS TAB =C POKE oPI[Q] OUT [A]D)3[ POKE [H] MOVE VAL @▖Z[O][E]_▖"5 RETURN E© CAT  ERASE d7AM▖M COPY  FORMAT (/GPIBIN  ERASE L SAVE  NEXT o[L][Q]<=? LIST 0 CAT !%y[J] MOVE [A][P]@Dg[H][G]h LOAD ▗H . IF W OPEN #[U]@)[ DIM [C][G] COPY [B]p 3G[F][J]<>,:COS  PLOT  [▛[O][A] RANDOMIZE  GO SUB &1f CONTINUE NOT TAN TW▟[R]CODE [K][A](! DRAW 2O}<=SGN T[O]T PAPER [H][S][A]▖ RETURN USR ('.?wIN b[L] IF M{[K]▙RNDW PLOT  8*6ASN ;_©BGKQ© BEEP [U][M] GO SUB  CONTINUE 4 COPY %/5kATTR USR l=A>~}[N][F][P] OUT  VERIFY [G] DRAW 3<W[T]>=▖:Df[H][Q]PIAT LN  LPRINT H*7>mPI AND PGIPw[Q][G][P][H] RETURN B+28W[P]SGN }TAN DKOwACS  FOR  DIM  COPY  CIRCLE D~IK[P]LN l DRAW  LOAD Uk[Q][O]ATTR  COPY  SAVE @./;oPI BORDER >=x=TK{ NEXT [L][G]RND BORDER <=TMqs CLEAR PIINT t@CHy FORMAT [F]PId LET [R];g[K]VAL pM@Kk▘G RETURN  LET  CIRCLE T16<]©6y`HLk▞▚[J] CLOSE #▘USR T-39_PIAT `DH[▞[C][K]MVAL$ [Q] COPY 8.0?u[P][A]x AND F@ PLOT  y▛[C]▟ RESTORE [P]60E{[T]▟CHR$ vH IF Lz▙▖[N])47c▛[R]|mHIOk[G][E]CODE  DIM  COPY  GO TO p65<M[L][Q]r`^k▛[I][C]TAB [J]OVAL$ &V8uRs'▞[A]▗ RANDOMIZE TAB  GO SUB  COPY >=HW COPY ?m[D][A]zXGN GO SUB o▙[B]7VVAL H POKE 4;UrS^LHo©▖▝[F] INVERSE  IF  POKE tF;A_▗[D]▞pKNw▛▙[A]CODE  LET ,ASN j/:?r[D]hHKm▘[E]▟[A] RETURN @-4Wq[F][C]Xj PRINT DO}▘▜[P] BEEP  IF  GO TO x835[|[C]▟dDG[w[G]SIN  INK  RANDOMIZE  LPRINT i97CwtdO{z▜▚ PAPER b▛ COPY  CONTINUE t52:_▟▘nJSw|▞[A][L] OPEN # LET  FORMAT p8:>g▜oP_} BORDER  RETURN  LINE Z16?u[D]zlFKg|[C][O] THEN  RANDOMIZE  PLOT  ▗E4:S▙[K]vTIJg▞[L][F][N] OPEN # CLS CHR$ / SAVE :/5Y©[C]udEMu▙▞[J] MERGE  RUN  PAUSE  GO SUB 8] COPY [E]s`DIq▛AsM RANDOMIZE  CONTINUE [S]3 COPY :cINKEY$yX@E▜L[B]PI[F]u COPY  DATA d,-/_▜[I] BORDER nP=={ IF [P] READ  COPY  CIRCLE `7 PRINT O[I]t<= POKE R©[B]▟ RANDOMIZE USR  ERASE P[S] COPY ;g[I]wfFH~[B]COS ▜VAL ACS 'T/3;o▟rPCg}▚▗<= RESTORE  COPY  MOVE  LIST x COPY  CLEAR ]▗pn0 FLASH {z▖xPIf LINE l1/6g[B][A]xVAF_y▚▟ASN  DIM IN <=46Gu▟ IF ▖tLI[ NEW  PAPER [C]SQR  PAPER >=[A]<=>o[D]rFIMk▖IN  POKE  RUN LN `<?Gr[C][A]y[Q▜▘▜<> CLEAR  SAVE [Q]R7;>_TAN |T▙[S]~RND INK  COPY  PAUSE ▗@28Uu[C]|LESv▛NOT  CLS  RETURN BIN T+0:[P])/ RESTORE AMyb▛ATN  OUT  DIM [Q]c<7Gty▗INKEY$▚ LIST STR$ {▛ RANDOMIZE [P] BEEP  PLOT   NEW  INPUT [G]; LLIST [C]▚xRKT©[A][E]ATN  GO SUB  RETURN  COPY 38>M}[H]<=mN COPY T{▚[L] THEN  GO SUB  POKE LN [M]XkDk POKE <>▘/P▟▞[T] DRAW  MERGE  POKE  CONTINUE PBVAL [H]▜©[A]mQT/~[D][J]SQR  BEEP  GO SUB  FORMAT vDCW}©aQo▚[D][P] THEN  LLIST  CONTINUE FN fACI©▜▟▗ZMQs▟[L]IN  REM  REM BIN `8=_n[A]}`LQ{▜[K][T]ABS `▛ OUT  BRIGHT AT `9<ejtZIOw▘t27Oy}▛▘jCEg©[L] BEEP  LLIST  FORMAT ▖Z89o▖r` DIM tPHk{[F][C]COS  DATA  STOP TAN c8;g|▝▗we AND w[M]CODE  INK  DATA  TO L:=o▗~rIJRo▟RND CAT  PAUSE TAN  REM R^ POKE [C]▖T©▗[E]SIN  PAUSE  STOP  LIST BIN pATN © INPUT ▜[M]▚ZBG[M]O@TAB  LINE VAL ACS >=[Q]L3Ciz~▛RBKxy▛CODE  RESTORE  DIM CHR$ pB5;j PLOT  G,hEDLk[O]<= REM  PAPER FN M7>e▟[E]xXGJf▞[J]CODE  INVERSE  NEW  LINE p67AkUSR  PRINT ▖ COPY JMPo[D]POINT  BEEP  FOR USR  LLIST [U]K[U] COPY {▞TJQ~,CODE CODE  NEW  CONTINUE  OR tJ5?q▗[D]▚iSTR$ ©Wc▟[P]NOT  DATA  LPRINT VAL `6:k©[B][A]dEHi▞[L]CODE  FLASH  LLIST <>F6[ty▚▗jFG_▟ABS  INVERSE  FLASH VAL iB9S}▘hX")m{▜[P] ERASE  RESTORE  CIRCLE J8?o▙▚xP GO SUB  NEXT s▛[D]COS ~USR  COPY l<?Ww▚[F]▖JKU|[B][T] THEN  RESTORE  CLOSE #[M]/==uz▞yMIWx▜[H]SIN  PAPER  OVER BIN [T]r COPY w▟[H]hG PAUSE MW©[C]4<= READ  READ  MERGE [Q]d@<]{[E]xLJU▘▛[G]RND THEN  ERASE  AND [A]X9bo©▛{tPFU©[F]ATN  INK  PAPER VAL e@:n RANDOMIZE ▛z`FKLN  DRAW [L] OR  CIRCLE  DEF FN b DRAW ASN g▜[E]▞rVAL Y[C]P©[H][K]POINT  STEP  CIRCLE USR zcefo|sfHFkz FLASH  OR [G]ATN  FORMAT  TO FN cL?wzyXDM~▜▖[P] CAT  INVERSE >=[A]c<Cu©▘qXEK4 [D]PI CAT  ERASE TAN tbdgo}▗ykLUw©[E][O]IN  THEN  STEP [E]^>gj NEW 3{v>=Y© RANDOMIZE ▞RND STEP  CLOSE #LN x▙_VAL [T]▜Xh/CZ©[I]▟ATTR  STEP  TO RNDh^`c[H] RETURN ▗ujPD_▘©ASN IN  BRIGHT  ERASE [I]`5 BORDER 7iyEzdG©ABS ▜[B]ATTR  MERGE  PAPER INT t NEXT /Ekq▗yUSR pV` CAT g▖▟[B]ASN  MERGE  FORMAT [I]b_Sky▜}peF RESTORE ▛[E][L] DRAW NOT  ERASE >=▞[cVAL [S]UqymXBe~▖INKEY$ THEN  LINE LEN pZ9[A]xFIj,[U][L]<= ERASE BIN [E]d?Ov▚▖▝sXGSzF RETURN  THEN  FORMAT SGN P@G©<>[B]▗jLO_▘[H][P]SQR  INK  TO [U]hAFo{▞▟zUL[P]W[G]PI<> DEF FN  DRAW NOT b@Yt DRAW xRJo9▛kc RANDOMIZE  OPEN # VERIFY TAN pR<W{[B]▟|`EG[[N][P]PEEK  CLOSE #>=[M]U;Cm~▚vMJNw▙[M]TAN  CAT  OPEN #LN p@9_zACS PILEN ACS u[J]EXP  TO CHR$ [I]f]hm|▜pTHU|▞[C]PISTR$  DEF FN ACS xV;qu▗[A]lLIo FLASH bCODE  THEN  DEF FN FN XOgpu©▘r^Agr~▛[L]TAB  OR SQR ccht|©zn`d&STR$ [G][N]ASN  OR TAN q_cky©▗xkHFq▗[C]3NOT BIN [M]bArt|▝lXCi SAVE STR$ [I][P]ACS USR  OVER ▗R>f~ LOAD ▚kFW©▙[H]CODE SQR ABS  IF [Q]jeot▙q,k_w[B][L]TAN STR$ ASN igjs~ FLASH <=lI BORDER |▛kTAN SIN  DRAW [Q]vfeiyASN n SAVE dKq▝[D] COPY LEN NOT SIN ▚g DEF FN ijsuTU L[I][J]TAB ATTR [M]plsnovwmkl@aATTR [H][T]PIFN [G]▛trpqonnlmor[D]TAB }{[F][A] SAVE  RANDOMIZE }▝|▙qIN ©}y▞STR$ z~ SAVE |▚}C[D] GO SUB |y▘x@Aw▖0SGN |y▘<=}w▝▟{©O>▘▞~▝}4 CAT ,]▚1}SGN  PLOT  |▖©▜▛<=▞ NEW y?ACS ▛▚SGN EXP VAL  READ CHR$  OR <=1IN ATTR silf_?-+6YXA1C74:(" * COPY   DRAW '(:KU©Zsw POKE [O]<> MOVE  NEW ATTR  PRINT  IF W CLS  PRINT  COPY ▝ RANDOMIZE  PRINT  LIST  RESTORE  CIRCLE COS ▙nU=6)©[D] COPY USR  COPY !-[INKEY$<> OUT  RETURN  PAUSE  COPY [T] THEN  PRINT  CONTINUE TAB " OVER SGN  THEN  COPY  CLEAR SGN  CAT Dg` RETURN m^>' NEXT USR  IF ,Vd▗[L]) RUN [O] COPY STR$ H NEXT USR W COPY USQR  FORMAT 1Pls©ami/E 23@2&!Nn[M]ACS h' MERGE  RUN  COPY INKEY$S<> TO W COPY [F] OR <=ATN [N],<> OUT t) DATA Co)'s CLEAR © CLEAR ▛ LIST [ OR  AND yCHR$ vI OUT [Q] FLASH BW DEF FN  NEW  FORMAT o& RUN  COPY CODE / AND  THEN <= INVERSE  AND [F]ABS  CONTINUE SCREEN$ / RETURN PEEK  TO AT  DEF FN <=[O] RETURN ABS ▙ BEEP <= TO  DIM  CLEAR LEN [G][8SQR  RETURN  STEP ▙USR  COPY  RETURN  LINE  LLIST FN y3 PAUSE  IF © FLASH CHR$  COPY  OUT [Q]Lm[A] FOR [L] CAT  COPY  RETURN  RANDOMIZE <> CLEAR IN [G]b BORDER ~[[B][A] FLASH  BORDER  THEN IN Q<> BEEP S[ LINE B RETURN  DRAW  LINE  RETURN STR$ [F]Q OUT [E][G] LINE  NEXT  FLASH [G] OR $FW[E]PEEK [H][C] COPY  PRINT ][C]a~ FLASH  STEP [G]x LOAD ▞<=INT SIN l RUN  PRINT  INVERSE  NEXT PEEK ▗w▘ SAVE  PLOT  N^w CAT  RESTORE  SAVE  LOAD SCODE [O] INVERSE q[N] FORMAT + DRAW  FOR [G] INVERSE  LOAD 8N6SCREEN$  PAUSE  DRAW  VERIFY  DRAW  OR  REM  MERGE  FLASH  CONTINUE  CLEAR  PAUSE ( COPY $tSGN  CLOSE #ACS USR [G] DRAW  CLS AT  GO SUB PIb INK POINT  DIM ~z BORDER [G]CODE o VERIFY ©@~z MERGE  PLOT  IN ABS  INVERSE  SAVE PEEK ▜ COPY yt FORMAT z THEN  OR n~ PLOT  V CAT NOT  PAPER SIN  FOR 6INKEY$(Y<>ASN  LIST CHR$ xNOT 1 OUT |SQR  BEEP [D]jSTR$  CLOSE #[O]ATAB p RUN d/ATTR <>M AND  LIST  RETURN  ERASE <> CONTINUE SIN  VERIFY V OPEN #EXP y INVERSE [C]) SAVE [ INK [L] SAVE IN < OUT  BEEP ATTR PU FOR PEEK 5 CLEAR `[A]R RUN  CLS  REM ZIN RND BORDER CODE j MERGE [I] DRAW LN [B][U]LN 6A FLASH  NEXT k OUT SGN  DATA ▗ACS  OUT TAB  BEEP [H]Qxt FOR  PLOT  ^LEN SVAL  LOAD SQR i BRIGHT POINT u IF  RESTORE ▚ OPEN # RETURN $ NEXT  LPRINT +©c"[I] COPY ' BORDER IN  LPRINT ASN  SAVE BIN  PAUSE VAL$  FOR [E]if THEN fLN  RUN [T]EPEEK INT | RUN  IF E REM [P] PLOT  qAT  NEW U POKE ySCREEN$ / IF  MOVE ©STR$ <>{7▟ TO  PAUSE  LLIST CODE me[O]EQIN  PRINT H3 TO PI[M] CAT B CLEAR ATN MSIN lcASN  LINE  FLASH IN Z GO SUB  DRAW QBw? NEXT  OVER  DIM  LIST Zc PRINT Ot* OPEN # MERGE  PRINT  PAUSE SQR [D] FORMAT kk[D]H[I]E FOR oaTAB [K]U GO SUB  LOAD x INK  CLS  BORDER  RESTORE POINT  NEW ▗ CLEAR ACS TAB hgc▙} LET ] CIRCLE in ERASE ky1 OR  AND w OPEN #AT /r NEW [Q] CLEAR  PAPER ACS wABS 2 BEEP USR  NEW  DIM  RESTORE  CIRCLE - LIST  READ  TO PI FLASH [D] NEXT  INVERSE  INPUT LN  COPY Sf THEN  NEW  CONTINUE  IF  LOAD SCREEN$ w IF EXP INT U▝O TO  DATA  INVERSE L▛ INPUT  INVERSE yPOINT  PAUSE ccB[J]▞zMk▝ RESTORE  GO TO SQR  INK 5 MOVE [P]RFN kPI REM  FORMAT mIN V BEEP  THEN VAL$ 6e< BEEP eAT BIN |4NOT INT b- READ s LIST  THEN 6 SAVE a COPY u& RETURN /e[L] DRAW  SAVE  AND k5 RANDOMIZE [P][Q]<SQR ▜FN ATN IN  POKE [Q] AND "qs;[H][J]cCT▙[F]yo OVER 7 NEXT [P]AACS  LIST  CLS Z LOAD  GO SUB  DATA v  ERASE U REM  CONTINUE [S] SAVE  PRINT  LPRINT o FLASH U/[M] STEP  BORDER W IF 3[S]]C DEF FN @ BORDER  LINE k^-+J| CAT [K] NEXT x LOAD B GO SUB RNDdRND OVER ATN s OR 7 CLS TAN [H] OUT [K]FN %ASN } CLS $COS  COPY [U]ABS  OVER AT [U]y<> LOAD  READ COS ▜ACS [U]TAB COS / STEP  GO SUB  OUT  ERASE ULN V9`ASN C FLASH ;s OPEN # POKE  SAVE ABS  LLIST vj GO SUB DXRNDZ GO SUB © RANDOMIZE  POKE  COPY  POKE  REM [L] MOVE  LOAD j OUT LEN  RESTORE ACS  LOAD [E]RND[L] RANDOMIZE SCREEN$  CLOSE #TAB ▚<>VATTR %[N] MERGE  NEXT  CIRCLE !_ATTR X- NEW [L]{ FORMAT  STEP ATTR  MOVE  CONTINUE Z CLS ▙ FLASH  POKE RNDSTR$ yIN r[U]9 READ  CIRCLE .4Oj RUN   NEXT  BEEP SCREEN$ ACS FN #ASN  TO ) OUT SCREEN$  LINE PIwSTR$ x REM L CLOSE # PAPER <=ATTR ;vk SAVE  LET ?6 FOR LEN  FOR [G]}lPI MERGE ~ASN  RESTORE T NEXT USR `[N] REM mIN ▝{o-kFO1 REM mW RESTORE /AT  MERGE  LET SCREEN$ C LOAD [C]q PLOT  [I][T] DEF FN  RANDOMIZE  SAVE LN m BORDER  OUT y MERGE :[R];[ ERASE [T]PI▝y CLOSE #u LPRINT EXP H LIST FN ~INKEY$▜ CLS kPI▘GS REM ▛Mp" NEW  DEF FN ▟SQR [R]Io BRIGHT wACS STR$ /COS tATTR r THEN  PRINT  LLIST K[U] READ ▚[C] INK [E] PAPER TAB 6 FLASH .f DRAW ![S][P] PAPER SIN [L] NEW FN ^o OPEN #6<=[O]) CLS .6FN xSTR$  VERIFY  FORMAT SQR [T]i LPRINT  PAPER { CAT [E]*% VERIFY bmVAL$ d PAUSE  FOR  RANDOMIZE VA AND  DIM 4 CONTINUE [H]G[L]>=VAL BIN SGN  PAPER  DIM  LLIST  CLS  DATA C DATA ASN VAL$ AT <=c/ FORMAT  LET  PAPER fE GO SUB SQR PI LPRINT j OUT CHR$ !U^ LOAD INT [O] OR USR 5ASN ▘/Xmv PAPER COS [A]TAT  FLASH ▚] COPY  FLASH  CLOSE #[N]1 FLASH  COPY [L]BIN <2d> FLASH =T4 OR ASN [B]o TO R LLIST SIN !2TAN ▟ BEEP  DEF FN  RUN  PRINT [Q]VAL$ w FOR [T][B]rVAL$  COPY  COPY [L] MERGE t<=ATTR <>vT/ INVERSE [N] LOAD  RANDOMIZE  LPRINT RND TO #[G][P]aPI= SAVE : PRINT # CLEAR  OUT ABS ^[N] OVER  STOP $l5( LET [E] STEP uIN  LLIST  THEN  FLASH ▙ REM  OVER Z{ CONTINUE  INVERSE © VERIFY [N]STR$  GO SUB  READ VtFS RETURN PIW FOR IN  OR ▙@y PAPER G_ SAVE SGN  INVERSE [T][YCODE  LLIST  THEN WNOT VAL$ U?1 OPEN # CLOSE # COPY >=ATN T BEEP  INVERSE [I]zSGN [H][B] RUN [H]COS  DRAW [L] POKE  INVERSE o INVERSE  OVER R_ PAPER  INK  INVERSE  GO TO  CLEAR SGN  INPUT IN INT m FLASH =[P]©o COPY  BORDER  READ  POKE M[B] FLASH $ COPY  FLASH 3 CLEAR TAB  FLASH  INVERSE w COPY w INVERSE  AND  DIM CODE MIN , READ INT  MERGE  DATA POINT diASN  COPY ©▚^W[U] CLS  COPY BIN  THEN [N]/p IF LN  OVER  BRIGHT ▚TAN  COPY SGN N OUT >=INKEY$IN  REM nINT IN  FLASH  THEN  DEF FN )CODE ] FLASH o PLOT  J MERGE ^.% RUN  READ  DRAW [Q] RESTORE [A]AT h COPY / CLEAR  CLEAR  COPY  VERIFY INKEY$_PI^L▞k? DIM  CAT %L FORMAT y NEW  FORMAT ^g>= DEF FN [J]C COPY r/ FORMAT 6E[P]<RNDe!~m FLASH W1CODE  COPY Mi RETURN  OR OIN  POKE  VERIFY FN TAB  IF  INPUT &q OPEN #STR$ 2` OR ▞~SQR  POKE V NEXT  RETURN w▙:2 CLS  FORMAT  PLOT   FORMAT  VERIFY CODE ▙~[S] LET  READ G4 OVER [E]V[G] COPY L[C]j_ STEP  DRAW  FOR X INPUT * REM Y<©▜%&PEEK 6SGN g GO SUB BWVAL ?3% INK [L]POINT  POKE 8 RANDOMIZE m IF IN  READ POINT  PAPER ▚ LET _LN INKEY$[F]]1 COPY SCREEN$  PRINT SIN  FOR  DIM  NEXT U<>cZ CLEAR ▖ ERASE  LINE y COPY ATTR [K]d CLEAR /0 TO /[M] DIM  LINE  FLASH u RETURN [K]▞ READ  OUT  READ u8 COPY 5 DIM LN TAN LEN  PAUSE hY BORDER U[L] COPY [U] PLOT  c LIST  LLIST d@[J][I] DIM [S] BRIGHT G▖▝?INT /9CODE  BEEP V[Q]h CIRCLE J FLASH  CIRCLE  CAT ▟x©▛[G]j[C] STOP [F] THEN  RESTORE TAN h▚s FORMAT  BEEP GW DIM / LET j|TAN +LEN n DRAW  RUN QATN  LINE  OUT <> PLOT   RESTORE ▚ BEEP  STOP [B]TFN  OR ] FLASH J©▟'z LOAD " OR mBgATN NVAL$  CLEAR g MERGE  RETURN ATTR 3J LET Mj CAT  VERIFY ▖ LPRINT " COPY  MOVE zM[O] CLS  BEEP [T][L][N] OVER TAB | INK POINT G LPRINT SQR  DRAW 7 RUN  IF SLEN R COPY  ERASE AT f▘ DIM  RANDOMIZE lCODE  VERIFY  RANDOMIZE ~ INVERSE K! COPY ▛BIN " IF ^q LET %# DRAW W0 AND zPEEK N[ BRIGHT  CAT UN>_ CONTINUE 4[H]S][N]5^ REM  FLASH  COPY  GO SUB _R[B]K RANDOMIZE  RETURN # COPY  CIRCLE  COPY ▞ FLASH SSGN W!i COPY POINT  BORDER  COPY [B] OPEN #iACS aINKEY$COS  OUT  CLOSE # OUT yT REM [P] FOR ]▛] GO TO TAN  OPEN # BEEP  THEN jKl}LIN  OR [L]CHR$  READ d STEP  DIM B LET /&IzPI> CONTINUE  RUN o DATA P~ PLOT   CLOSE # BORDER ACS qOSQR 7 COPY cNOT [O]3[B]J4y DIM LN D▜s READ ? OVER ATN  COPY  SAVE 9=o* STEP ▞m PRINT C PAUSE + COPY TAN 6[H][B] RANDOMIZE A] RUN  RESTORE CHR$ ▙ RESTORE  IF  TO  COPY [O]COS ~ FLASH  READ  PAUSE [K]COS [I] GO TO  OVER 6 CLEAR UCOS ▗ POKE  PLOT  USR ^~# RANDOMIZE [P] TO {U PAPER E&[S]© BEEP  READ aFINKEY$ COPY ASN >= GO SUB ~Z>=VAL$  AND  STOP  LET  NEXT  CONTINUE ~ OUT [ AND ( PLOT  IN oR COPY  RUN ▙ FLASH BIN LN  BORDER  INPUT [B]K PAUSE Y:1r RETURN  CLEAR  COPY  LET EXP u_>= LIST  BORDER @ABS  DATA u@ RESTORE  AND  LIST BIN [T]SCREEN$  RETURN { COPY  READ ph RANDOMIZE OMFPEEK ,} SAVE [N] SAVE 1+ STOP lL OVER [Q]-(ysZ-▗m5/[T] LOAD [S] RUN BIN  FLASH LEN  OPEN #f(IN  CIRCLE STR$ ▟ DIM  COPY  CIRCLE  BRIGHT  MERGE 9[M]d|5 DATA  LPRINT  FLASH  FLASH mF?[L] OUT  COPY  IF  AND Wx CAT  BRIGHT  PAUSE CHR$ [E] LLIST N BEEP  AND  COPY  AND c RETURN ,4*/52E;MBCJEVKZVTZT_[i]dd/gcqhmkeliwqrpgtnzvo SAVE ys©{▝ FORMAT wxu▗} FORMAT ~▗ SAVE x▞▘C LPRINT {▗STR$ ▛p|LEN ©▖1▘y RANDOMIZE {~▗ CLOSE #z4|>= CAT  CLS  FOR  PAUSE ▚< GO SUB ©▘<▖|B SAVE ` FOR ▛<> ERASE LN ▟H THEN USR  LIST STR$ 1USR ©>= RANDOMIZE  INK ▚ RANDOMIZE < GO SUB {▞ LPRINT CHR$ ▞▖ LLIST ▘©▛NOT [B] LET ▞▗b▙|[A]©▘▝ RANDOMIZE  STEP 1F[C]▝ NEXT  RANDOMIZE 4[D] GO TO  PAUSE >=▙[B]▝ OVER  NEW ▟ AND ©E RANDOMIZE  SGN CODE q~▜{ FORMAT z[D]n▛y▙ DIM [C]▗ COPY CODE s RANDOMIZE ▘p▜[R]|3rzY{ NEXT |▟▛>=[C]}[K]VP0 LET t CONTINUE zN;ws<vx▝USR  DATA ru▛-t[P]*9gJW INPUT jeMNOT LEN  IF  COPY >=HRUST v2.1 by Dmitry Pyankov./[ NEW  LOAD 2/[ CLEAR © GO SUB y CLS NOT NOT hr21a OR }|~©▝ COPY ▛▞▜▘~wtomnqs RETURN wz▘▜[I][M]?[K][B]▛ SAVE tnhj COPY ZGIYz DRAW ~[F][T]LEN TAN v?CODE [U][E]ypldeT?DIOt}▝▞[E][J][P][T]FN INKEY$[T][N][C]▜{nfedHEMsy▝▚[N]SCREEN$ ASN  NEW TAN ACS TAB  REM ▝}PEEK _^J:X ERASE Bgx©▛[F][P]POINT AT ATTR FN PI[G][C]vkbcX@ REM NOT ]z{[J]VAL$ PEEK ABS NOT EXP ATTR [N]▚tdVV@6<?FK_ CLOSE #[I][N]CODE PEEK  LIST EXP ABS TAN [S]?▘piWV8 IF <BGKO COPY  DIM [L][T]SIN EXP STR$ AT ATN  CAT [K][E] ERASE ebB SAVE ?EJOQ▗▙[L]PILN NOT SQR >=TAN RND[I]▗olQ LIST [C]CHL[I]3Ti[F][O]ACS USR CHR$ BIN ABS SCREEN$ [N]▛xhZ:; OPEN #L PAUSE OT_▝dUSR  THEN CODE  AND <>>= LINE ACS INKEY$[E]}g_D7<ASGN NSs▚[H]INKEY$EXP  THEN  AND  STEP SGN ATTR [K]▗nbD8>%ABS [B]T[~[K]INKEY$SQR  LINE  THEN  TO >=VAL [U]qdY99CODE =zSz© DRAW [H]PIEXP  CAT  LINE <=oFN [N]▖j IF _T468VAL NrSvy[S][Q]ACS  CIRCLE BIN  CAT >=[O][P]Zb@/79 CLOSE #BIN [P]Lcd©VAL$ [T] OPEN # PAPER EXP  OUT VAL [F][G]b[X1F8=EHWy^POINT RNDEXP  RESTORE ACS IN ▚[E]x5 CAT k@STR$ BJM RESTORE SokhATN  FOR CHR$ ABS  ERASE ▖▟:gD=PFM/S©▗[D]SQR ASN  BORDER STR$ EXP  LINE xt4a>VVAL$ PW[[D]LEN NOT  BORDER  LPRINT ACS  INK [E]m▖DS OR  DRAW RNDMen▞[C] COPY  GO TO  BEEP  PRINT VAL IN USR Xr-J8+>D©_▖TAB  OPEN # LET  MOVE  COPY USR ASN  COPY `[T+/6[M]9 GO TO ZUVAL BIN [P] THEN  LLIST  LIST LN IN SCREEN$ Y]R,4▚▘EMrV[S]LEN  CIRCLE  RANDOMIZE  CONTINUE PICHR$ [E]6T83 CIRCLE 7W COPY n_▟PI LINE  RESTORE  CLEAR >=VAL h RANDOMIZE ?L,39 bTAB Jb|©[P]IN  READ  RUN  DATA ATTR LEN LS64:AdIN}}[B]VAL$  FLASH  RUN  PAUSE TAN ATTR [I]`2 COPY  PAPER RNKW[H]SCREEN$  LIST  OR  RUN  COPY BIN [I]i[O]q@*06;A]MKi[A]PIEXP  READ  COPY  LPRINT [J][C]X216[R][O]H;U]▛cCOS  COPY  COPY SIN [C]▗eD2= CAT HA/Vc LET [L]ATN  FLASH  SAVE  CIRCLE CLN [E]}l/<@_MORY~k[D]RND THEN  INPUT  DRAW USR <=m FLASH _FUSR UX RANDOMIZE fPI OR  FOR COS  DRAW [Q]ynfV@VAL Bo~|▚[T]ATN  INK  RUN  GO TO INKEY$WVAT ;zvyfy COPY [L]COS  THEN  READ  POKE INT ▟aSCREEN$ Bhf[J]~vVm[E]ATTR  DEF FN  LOAD  CLS  CIRCLE [Q]vZ@|hFMs| COPY ©[L]SQR  OVER  POKE  PAUSE LN  FOR ▖`L INK E'B GO SUB X[ BORDER ▜PI ERASE [P] DATA SCREEN$  POKE u/[T RESTORE R▘iXY_SGN  BRIGHT  IF  COPY  FORMAT [K]pa_P:_ CIRCLE OTW/ CAT g[H]> CLS  DRAW  LINE  READ [I]p] OPEN #Vg HNPs▙ RETURN [H]SQR  INVERSE  RANDOMIZE  PAUSE CHR$ [E]~ GO TO [/D<C©BIN Uw▘ATN ^ GO TO USR dLEXP  FOR =[G]NOT  FOR r©}▛CODE  BEEP  RUN  RANDOMIZE  TO [K]hVV[ COPY r=CGNu{},▖ MOVE  PRINT  DRAW  CLOSE #[S]nTSWX<7@VAL VAL$ T]y~▜[P] AND  GO SUB  COPY  RESTORE TAN VOSXD9ACS  DRAW Mm}[H]ATN  OUT  CLS  SAVE  FORMAT [G]bN2-5VAL 7tGLO]▟[M]ASN  MERGE  RUN  COPY  GO SUB LN P,-4: TO CLQj[L]TAB <= DIM  COPY  PLOT   FORMAT [A]/6vv CIRCLE BIN *QZ©[K]POINT CHR$  FLASH  SAVE  IF  BRIGHT FN pI.19>VAL sSYy[H][T]ATN  ERASE  LOAD  COPY  REM INT R GO TO 7XsMTWo[H]PILN  STEP  BORDER  DRAW  LIST  LINE [A]`6-6:@EJPTgRNDCOS  OR  OVER  PLOT   LIST  CLOSE #[Q]h: GO SUB ▜=Bv RANDOMIZE Yw[L]CODE BIN  OUT  PRINT  POKE  CIRCLE SCREEN$ zP3[J] AND ©[M]UYk[H]ATTR  OR  RANDOMIZE  FLASH  POKE  IF  LPRINT LEN CODE [O]2s@FKXBIN Zu[H]INKEY$ATN  CAT  FOR  SAVE  NEW SGN ▗X64▜K_ BEEP Vi[N]ASN  TO  BORDER  CLS  GO TO CHR$ `P:▜;BVAL  BEEP GUr▞[D][T]PEEK  READ  RETURN  LET <>[A]dS838^JN RETURN Tj[C]VAL$  BEEP IN [F]jYZ/[M]Q!AJ?w▝▛ NEXT PI OPEN # IF  DRAW smWZ<=T:a?FMo|}▘[T] CAT  PLOT   SAVE  ERASE [R]xb]ZM5: COPY  DATA _d[▜[O] THEN  GO SUB ?sTAN uha PAUSE Z@9AISTR$ SeUy[G]<> REM  IF  GO SUB >=[S]▖xl]@[K]DGNAT  [D]ASN  OUT  LOAD  REM  FORMAT VAL$ [G]p`H9: SAVE VAL q[zSCREEN$ <= FLASH  REM  LPRINT CHR$ FN [A]xdXINKEY$FN INRV_©[N]IN  BRIGHT  BORDER  CONTINUE  FORMAT TAN [I]l_H1 LET  FOR `TYz[D]CODE  CAT  LLIST  CONTINUE  OVER USR [S]▚NOT P9;s RANDOMIZE  CAT ][U]NOT  BEEP  COPY  NEW >=TAB [B]tdYB RESTORE 8<A▝]|▝[G]ASN  VERIFY  NEW  REM  ERASE SIN [E]vaUINT HSTR$ 'Le~TAB  THEN  OUT  INPUT  INVERSE ASN [C]t^T@/RND`<>GMSu[E]COS  CAT  BORDER  PLOT   DATA LN [A]rZP4/6qNOT [P]Y▜SQR  CLOSE # GO SUB  COPY  BORDER  STOP VAL ▗[N]H-N READ X MU{[P] OR  OUT  NEXT  COPY  FORMAT [Q]vVN0.Yi[P]Q RETURN  IF LN ▖dNI*Z GO TO <= INVERSE LEN PI<=K[A] RETURN  BRIGHT [M]mPG0&rBIN 9? GO TO USR INKEY$T©LEN  CAT  PRINT  COPY  SAVE VAL |^M@',ACS  RETURN EKU}PICHR$  FOR © INK SCREEN$ teR8' FOR -7=Nf NEXT [F]SQR  DIM  GO SUB VAL  BORDER suX[Q]3D[P]CQ^{/▜ CAT SQR  BORDER  GO SUB TAN ▝ LINE P0<> COPY W{v][K] CAT  NEW ? GO SUB USR |L0?<>DHU▚t IF S_[J]NOT  BEEP  RANDOMIZE  PAPER pzL4U DRAW QGN©zX REM  PAPER NOT <=TAN STR$ o▘L(.<RCg▞lOv[P]SGN CHR$  GO SUB ▖k[G]8 OR 1 COPY ?A_[I]dW[C][J] CAT POINT  OPEN # GO SUB p©[I] NEXT $)3[Q]c DRAW ▚Ls▜▖[P] LPRINT h RETURN j RETURN (lRz DEF FN SQR  RESTORE  PAPER t[L]7/@[M].1or PAUSE ▘[H] AND hSTR$ [P] RETURN eIN `J{~t~wPIEXP  OUT i[ STEP 2 RETURN r$/tJ▚|#yPOINT TAB  CLEAR  COPY o CIRCLE r;E▜zo9[R][H]CODE ASN `RNDPIFN 7`Wd?[B]sx[F][H]IN  GO SUB ▘M CAT _@©TG[C]/o|[P][K]8[S] LPRINT O[P]@©Po▚mx&[F][L] CLS  COPY >=O OVER 0@ STOP aote[L]ATTR >=▘FN _TAN bWO[R]xnu©[C]_[H]▗ RETURN 7Hgp[[O]( NEW [P] RESTORE PATN ^W8oc▖xw[G][R][S] DATA : BEEP 0_2/[C]T▞vRw[M][P]X FLASH ) FORMAT oBIN ]?O▗h[[G]ATN  GO SUB ▗[E]USR  OPEN #[I]'pgxK[C]▚Zs[H][S] THEN  RANDOMIZE  OPEN #IN /W COPY gl_▚Xo[G]PI[C] OPEN # SAVE @ BEEP 8?IN uLk▚ RANDOMIZE zSw[K]▙ FLASH `[E] GO TO ; OVER "K(BovlB}[K][S]VAL 1) CLOSE #U +yL©{hN▞ COPY  RANDOMIZE >=_USR  O LPRINT GdjzX©[E]VD$ CIRCLE wVAL *Q%CMk[A]`▗▘b[D] CAT  DRAW  COPY  CONTINUE ▛LN @3L@GLo[K] DRAW [A]▙]}IN  LPRINT  COPY B[I]USR ▗x?JsSTR$ EORNOT [P]VYa[N] OPEN # OVER  COPY  SAVE CODE  FORMAT ▙leDb:eTDJOo▟[P] READ  INPUT [P]IN VAL st OR U; ERASE 5_[I] PLOT  W©IN  REM  LOAD  COPY [Q] OR xi-#?EG>No[B][N] BORDER  LIST  CLS  LPRINT ▜[Q]l0G/X/u/;ss|©ATN  GO TO  OUT  COPY SCREEN$ tP94V5?mBAS~[P] BORDER X▛[E]FN ATTR [E]l3TEI8kFHYy©[A]IN  STOP  NEXT  LIST LN BU:d7WUINKEY$4u[P] RESTORE  INVERSE  COPY VAL NOT [Q]uMLGDB`!INT g▛▟<= BEEP  PRINT  RETURN [P] LINE [I]ijH^=SbJIT▘[J] BEEP  INK  COPY  LPRINT COS LN a`8T1SINKEY$H(`[K]n~[F] AND PEEK  RANDOMIZE BIN CODE SIN ▖[X9P6DACS -Za{SQR INT  NEXT  FORMAT ATN USR [E]vzVRLUXY^`ehwCODE ATN  DIM  LPRINT SQR  THEN AT ▘vkPOINT  CLEAR a%]aegk©TAB  THEN  CONTINUE  CLOSE #STR$ BIN ACS ▞slJMTQ VERIFY ▘bdj[D]INKEY$IN  READ  STEP <= VERIFY USR [I][A]f>HASN S OPEN # DIM  SAVE [R]EXP  CAT  FLASH  AND IN  LINE FN [G]▙xEXP dIG?[U]c[E][R]ASN  OR  SAVE  DEF FN USR STR$ <=VAL m[K]▗r]WYB3;>Ee▝[F][R]ATTR COS LEN LN SIN FN RND[C]▜vd/VV:5<AIoy▝▟G BORDER >=ACS ASN Q3[C] FORMAT fEXP TIzj|▟[L]RNDSIN  STOP INT CHR$  OR  COPY USR TAB [M]▟|l`[U]F#[I][N]RNDCODE ASN IN STR$ SGN TAN SCREEN$ [P][B]uid^BCFMPTXs[B][H]RNDFN SCREEN$ CODE VAL$ CODE SCREEN$ PI[Q][I][C]|tnkj MOVE lm▜ RESTORE  COPY v} SAVE ▞▛[B][E] LET [I] COPY [G][D][A]▗▝ DATA zqm DATA e DATA  COPY tuvw|▗▟ READ [G][K][N]BIN [M][A]▛ COPY ▚xrlhgi_ READ pu{ RETURN ▚▞▟[D][J][L][M]1>=?<>▘{uqn CLOSE #jg DATA .ux|~0▜▛[A][D][F]?[E][C] RETURN ▟▞▗~zupd READ m COPY Oorvy? READ ▜[D][E][B][A] COPY ▜|vspk8 LINE df[R]|oty© FOR  NEW [E][G]x[C] RANDOMIZE ▟▖▘|y LINE Sw COPY n RANDOMIZE quy~CODE [D][B]CODE  LINE [A]? NEW {wtr<>on COPY ATTR [O]VAL y▖▟u[E][G][H] THEN  DRAW ~xvqVAL$  RESTORE 'pry THEN ©▗▞LEN [N][J] COPY [K][F]M) THEN s©`cbeilq CAT w} NEW ▙[D][H]*D+s TO }t}h"© COPY ijmqv|▘[D]▜+}[H]! READ T[K] TO bf FLASH  NEW lF$VAL { DEF FN F[H]a[F][B]EXP `}x` OPEN #ljPIINT  BEEP  OPEN #y} PAUSE  NEXT [B][F] DATA y AND [D]▟▛y[N]{ymjdATTR iv FOR <=z~ATTR [B]*^ AND V( PAPER [A] RANDOMIZE INT rsu BEEP ▖<=[I][J]> DATA [E] PAUSE <=d RESTORE l# IF  DATA x{©y[M][A][C]9 READ  PRINT ▚▝}y; LINE ml COPY rHSCREEN$  OUT  READ ▙[A][C][I][E] COPY [D]_▛▜▘{T CONTINUE [K]IN rx| DEF FN ▗▚S▙[B]p OR [C][A]p|yO STEP l0▞Z STOP _ SAVE |©▟[R] POKE [B]▙▞ DRAW  AND yq~|v▘_|©<=▛▞ RETURN ATN ▜▚~pnh| COPY .[F][P]PICODE IN  CAT  AND >Mh4#,[B] CLS U READ Nzy AND  PAPER ▛[H][L]ATN  STEP  VERIFY  NEXT  TO ▝X!!'/5:WOqwwy▘▚[K][P]TAB ATN ATN CHR$  LINE USR rlP*▞2WK`TAB ▙▜▗▛[O]LEN >= OUT  LIST [Q]tg6#CVky▞▖{▘▝[P]SCREEN$ NOT  BRIGHT  DIM VAL hR-(7z DIM ▖zy"xATN  READ [P]TAN SQR VAL PEEK CHR$ USR p0*,1AW}▛N3s[F][U]COS IN BIN EXP SGN NOT USR d2- 3Kq{zPJQg[E]ASN CHR$ PEEK IN IN ATTR ATN  BEEP VAL D*0-?qxx<=LEN tiJM[▛CODE >=STR$ TAN SIN VAL$ [U]AT  OR  CIRCLE H+X1=w{tl`GO▜PILN VAL$ POINT [T]POINT TAB <= GO TO p$?@)©[S]z<U>Gk[N][R]POINT TAN [U][E][S]POINT ABS  RESTORE &7P.▛[K]▖HIN |WRNDATTR COS 1 OPEN #▙©ASN  BORDER >=$-b NEXT 6{[Q][M] REM @ THEN D[[D]POINT [R][A]▞RNDCOS  NEW  PAUSE @#.BoAT SCREEN$ `-56S[H]ACS [U]▟▜,CyNOT  RUN USR (I8[P]LN [S]T58?}[L]PI[T]▖▜[H]TAB  RESTORE  FORMAT  +g8LN [G]B<>W▗AT [Q]VAL$ [L] VERIFY c CIRCLE  LPRINT  '[H[P] AND ▘4"3g[H]LEN [I]▝©[T]COS  BORDER  CONTINUE 0G6[L] STOP [I]%1:▜ATTR [Q]u}COS STR$  GO SUB  STOP  COPY ?ZSQR  FORMAT [S],C]}[P][Q]l© CAT  VERIFY  FORMAT +O@[L] LPRINT [M]4[y[F][C]}{ CAT  RUN  COPY (C:[L] DATA [K]DPIgSGN  COPY [D]t} OUT  COPY  CLOSE # LLIST GEASN ~x_[F]▙©qs BORDER  COPY T SAVE GPoABS LN [O];©▘3[C]q CAT  COPY GloSQR INT ` ;▟[I]{[A]ps? INPUT P?/{[G]PEEK  INPUT 6$[SCREEN$ ▘▗y BEEP  SAVE  wX©[N][D]R7©POINT [E]s▞▟[H] COPY [A]7RNDj[L][K]p0O[T]LN X9▛ FLASH  COPY 0WINKEY$[I]▗6'©SGN [Q]s}[B]INT  COPY  #w[P]AT ▙P▜.[S] STOP [B]▚▜K BEEP  LOAD _▗[G][I]y@)▛SGN eu[P] LOAD  LIST "uxCODE [E]tD5[P]VAL ▖st[N] COPY [Q]/[P][K]rT&g GO TO jk COPY wPI SAVE 0G[H][L]8 RESTORE `;SBIN gw[O]IN UOy[I]vT LIST 6k GO TO [Q]IN s COPY USR G READ [A]Tz RANDOMIZE `@_ OUT NOT x▛c DRAW VAL OSGN [I]|mHS FOR AT ASN  RUN VAL gCHR$ [M]d=0w COPY FN @sASN  COPY p_[U]k▞pP[ RANDOMIZE [C]9©VAL ]HoFN [B]▝X@_ FOR [A] LIST  CLS  CIRCLE  LIST PI©tb4-IN STR$  BORDER p=CODE -w<=CHR$ q COPY h/&_ DATA [B]Ho,[C]/ABS [Q]|al6- CAT  CLOSE #T?VAL 0'0©INT |HKP[P] STOP [Q],©[T]O[P] AND BIN _|(g STOP  FLASH >=J>7 MERGE [U]l0i8W GO SUB BIN X_ CLS  LPRINT CODE LN qFo8% OUT  CONTINUE d3 RUN  FORMAT 'IN USR hFs@% THEN  CLEAR [A]G* COPY  STOP  FOR USR R@g8/ NEXT IN  DIM G[G] LOAD [Q] LIST <Su"|ATTR  VERIFY OBIN  COPY  RANDOMIZE TAN R/v(_COS  DEF FN  ERASE p[H]@#|!o[Q] LINE XIN  COPY  CODE  CIRCLE [I]@Gh-[T][I]FN i COPY [L] BORDER  FLASH [S] COPY 4WHOLN RND[E][J]PI OR H COPY [Q]T m,[F][S] CAT ▗ PRINT [J] OUT  CIRCLE  COPY 0KHGUSR |