Quadrax: QUADRAX+.B

  0 REM  NEXT 1COS _! LET <>"CHR$ / STEP I^![ STEP ^!` STEP N^ STEP [ STEP /v!FN  STEP N^ STEP #^ STEP FN  PRINT !@[M] STEP N^ STEP #^ STEP @[M] CLEAR ©> GO SUB y OR !USR  STEP N^ STEP #^STR$ > GO SUB y!{ STEP N^!` STEP N^ STEP '^!`P GO SUB VAL ![A GO SUB VAL ! FORMAT ]@ GO SUB VAL  NEXT NOT @ LET 1 COPY W PRINT !P]T STEP A!/ STEP A LET ATN  !Pt[M] BORDER  GO SUB VAL ! COPY  COPY  CLEAR ©s GO SUB Yr GO SUB Q~SQR (>2 LOAD ▛><>2 PLOT  ▛NOT / RESTORE  STEP = LLIST ]T<> NEXT NOT [! COPY Z RETURN Z COPY CODE  OPEN # RETURN w GO SUB LN <> CLEAR !:/ CLEAR  THEN INKEY$>? GO SUB G GO SUB V CLS v NEXT <> STEP 7^ INK > COPY 2▞[USR 
  1 RANDOMIZE USR VAL "23872"
  23329 RETURN Z COPY CODE  OPEN # RETURN w GO SUB LN SCREEN$ 4" LINE 1 GO SUB i GO SUB a INK  INK ! GO SUB a© GO SUB iSTR$  LLIST  INK <> INK  RESTORE ! OR  CLEAR ©NOT ^PI^1 OUT  STEP 0^LEN ^1 OUT  STEP 0 NEXT  DEF FN  DATA P DEF FN  RESTORE P BRIGHT  DEF FN  FOR P BRIGHT  BEEP LEN 3▖^ FLASH MACS OJASN O▗/q AND 0uv>8x SAVE  SAVE  SAVE  SAVE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ???????? CAT  CAT  CAT  CAT  CAT  CAT  CAT  CAT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  INVERSE ! POKE  COPY  INVERSE 9 MERGE  RANDOMIZE STR$  FOR STR$  FOR STR$  GO SUB R8T] GO SUB LN  FOR  INVERSE V INVERSE ^ RANDOMIZE  LLIST  LLIST  LLIST ; LET  INVERSE w INVERSE # RUN  INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK <>HRjN GO SUB VAL NOT ▝ COPY m} PRINT 8x SAVE  CLOSE # FLASH  CLS  COPY ATN  RUN ?o LOAD  CAT [A]PEEK USR  FLASH  CLS  DRAW  GO TO ABS H RETURN jVAL VAL$  READ IN ▝8FN  TO | DRAW  RETURN  CLEAR :ASN  NEXT [A]?© VERIFY  PAPER  RESTORE [P]SQR  PLOT  dO>= COPY  PAUSE  LPRINT ATTR  LIST Pp[P] PLOT   GO SUB  m5r FLASH  CLS X GO SUB TAN oUSR PEEK o{▝ PAUSE }C IF  DIM  FOR gJKJI RETURN  CLOSE #$ SAVE U LPRINT  IF RND:9 NEXT 8USR  LPRINT >[B] STEP  SAVE >=? MOVE  DIM 6z~h OUT mINKEY$ACS SQR  RUN USR KPz LIST  CIRCLE [P]N3 RANDOMIZE XPOINT  NEW  THEN }y[C]▝X PLOT  ▗IN ▗P9USR  DEF FN {▜ INVERSE Z>=RNDx DRAW P'| POKE  DEF FN [R][J]▖ POKE u CIRCLE  LET [S] DRAW  CIRCLE ?P FOR  PAPER  VERIFY  MERGE  LOAD ^[U]▘ OR  CAT _P DIM  RETURN [I] THEN ATN / DRAW  LIST @ NEXT  PLOT   GO SUB <>TAB 9;NOT _/0 STOP  FORMAT ^" LOAD ▚y▞ MOVE  COPY }l LPRINT © CIRCLE BIN  CLOSE #ZIN TAB POINT ▝ RESTORE  GO TO +,_, LLIST Z DRAW -b LPRINT SCREEN$ =SGN /XhPEEK ▖ RUN )TAN Z DRAW SIN AT P TO $ TO $B RETURN O RUN 9 COPY  OUT 0 OPEN #PEEK COS [F] STEP  PAPER [T] OR ▚ATTR ▗{9X VERIFY AT ▗ LLIST  RUN  FLASH  PLOT   LIST  NEW ATN [L]Q CIRCLE  SAVE p[A]0 CIRCLE USR p RETURN  GO TO USR p,@INKEY$ CLS (8_`@ CIRCLE ▝USR  LLIST hUSR ▝AT  LOAD r4@▜USR ▚CODE [O]9K`USR  CLEAR gFN  LIST }"NOT N@StG COPY [A] THEN v DRAW  IF k PAUSE  PAUSE NOT 8w DRAW : OUT ASN `QF[O] DRAW / PAPER  LOAD  DIM SGN (W[R]9PEEK  INPUT  LINE  PAPER [M] IF ▘ PAUSE  PRINT _ RETURN :▞ INVERSE [E][P]CHR$ A[ PAPER /COS _TAB [ CLOSE # REM =[E] CLEAR  IF 8 COPY [S]| RANDOMIZE  NEXT  OUT /fY6m▚<[P]1 RUN [P]v DIM  LPRINT <y CIRCLE ~0#COS  DRAW 0nY BORDER x GO SUB STR$ >= CIRCLE [G] SAVE ! IF IN  PAUSE z/[M]>s LOAD " CLS ▜' AND ▘COS  LLIST " [Q]PATN [S]@z NEXT  PAUSE SQR  STOP  PLOT  < CAT  PAUSE  / PLOT  CODE [R][C]m LET "  STEP ▝ABS  LPRINT  INPUT r PAPER <PEEK  NEXT  CONTINUE ▖VAL USR  GO TO © LPRINT x DRAW  MOVE ©l}x<@s[G]Eg PRINT  RANDOMIZE %VAL = IF Z▚ IF  POKE USR ▝p(`[P]STR$ USR ▜f POKE  PLOT   LPRINT `XVAL  LLIST [R]5 LPRINT  CONTINUE s TO [O]▖@?X}[?p&7" ;3 POKE ▝ PRINT VAL  DRAW 1 CIRCLE USR | 8bATTR OUSR p[A]73 SAVE [P] LPRINT CODE CX`7IN SCREEN$ 0@ZE[R]p&VAL  RESTORE q` LIST  LPRINT >INKEY$ CAT bx DRAW ` COPY  OUT u RETURN  OUT ' INK  MERGE  OR  RESTORE  STEP ▝▛ DEF FN  RETURN LCOS [L]▘* RETURN  LOAD j LLIST STR$  MOVE  INK <>!X OUT ( COPY 69N NEXT  GO SUB VAL > OPEN # PLOT  <>.INKEY$^▘b IF l#  RANDOMIZE  MERGE  MOVE [P]S LOAD  DEF FN [F] INVERSE  INK [P]▖Um~[S]ACS  PLOT   INVERSE i RETURN  PRINT z INPUT UW CIRCLE  GO TO COS USR [G]▝USR  GO TO lAT H:[L] REM [B]ASN  FLASH [U]u* SAVE Rf>=P CLEAR [J][D] RESTORE @ RETURN n LIST  INK  INPUT 1yVAL l[C] FOR  PLOT   CLEAR  STEP  BRIGHT mN OUT  FOR  LPRINT 0,cRNDAT  CLS  LLIST w COPY  DIM ▘ GO SUB  LLIST  OR  ERASE ▝STR$  RANDOMIZE <>> STOP  NEW ?2 BRIGHT ▝ INK Y LLIST 4[L] BORDER IN 6?F:POINT  LIST = DIM ▞[H]<> RESTORE YCODE 1<=<> OR k^<= INPUT <>P` LLIST XLf RESTORE  OR Kp OPEN ## NEW [A][Q] LLIST <> BORDER  FORMAT  GO TO STR$ zPI6M INPUT  PAPER  CLOSE #f FORMAT [A]ACS f FORMAT [D] FORMAT n STOP [A] STEP @(j PAPER   MOVE , COPY s MOVE ▚ LIST <>|< NEW (>$ COPY  SAVE g} AND  o FORMAT |INKEY$Lg[R][A]▛<=, LOAD 6▞E[E]@[J]USR [P]`[B]> STEP T STEP wLEN [I]l[C][D]/[S]U6SCREEN$  LPRINT [G][D]QEATTR % DEF FN xFUSR Q[F] MOVE ▝[K]b`p,[E] DATA T[S]VAL  DEF FN  TO  VERIFY [F] OVER %VAL >COS G<>2*[B]|"9 FLASH (}) THEN  GO SUB SK CAT ▟JL CONTINUE  OUT  LPRINT 0 AND NOT  RUN ▞ OUT ( TO xCOS ▟ THEN l} INK  PLOT   DIM 0[R] DRAW 0  OUT D BORDER [B] CONTINUE  RESTORE m OUT  DATA [F][A] DRAW ▗ SAVE CHR$ & STEP J SAVE BIN [T]EXP <>V# TO eBIN  INVERSE s[O] RUN l LIST C(V FORMAT  bm LOAD n[C] TO s>▝[E]xUSR ultra!  C`jhrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211HRq. BRIGHT %~ DRAW  NEXT  GO SUB saATTR 1 COPY  STEP ▙LEN  STOP / CLOSE #TAB !@ULEN  STEP  COPY u GO SUB VAL ! ERASE  REM  YUSR &U SAVE  FLASH P DRAW  STEP  COPY NOT  OR !hIN " FORMAT  STEP [R]>▖ ERASE ©>2 OR VAL$  STEP _^KATTR  GO SUB  ▘[ CLOSE #'1 BRIGHT  MERGE =▜lCODE  MOVE ;SCREEN$  DATA  OVER ATTR  GO TO ATTR WSTR$ INKEY$f BRIGHT  POKE  BRIGHT  DRAW a DRAW  BRIGHT CODE ABS ]yCODE  BRIGHT [P]0SCREEN$ >VAL _[C] MOVE  FORMAT [E] DRAW [J]POINT [Q][N]INKEY$ DEF FN dPOINT fSIN ATTR 4 INK  PLOT  STAB d AND  BRIGHT v(] POKE SIN  DEF FN INKEY$YgPOINT BIN 3ATTR  BRIGHT  INPUT  LPRINT P RANDOMIZE ©ACS w#yVAL   PLOT  j FLASH H$& COPY [O]H NEXT SSTR$ CHR$ NFN  STEP  OUT  RANDOMIZE ! TO VAL$ TAN  IF  OUT ▙J NEXT  OUT [F]TAB  INK  OUT USR G CLEAR & RESTORE  MOVE [P]W.0  RESTORE  MERGE  PRINT  COPY  STEP  NEW SCREEN$ ATTR , POKE :bPOINT ??2 MOVE  LLIST %z LET  AND  NEW  RETURN  { VERIFY  OVER ?_8z AND W|[N]O}PEEK  NEXT o| COPY wg CLEAR - IN  LLIST NR$ACS LN >[N] THEN  VERIFY SoPEEK oP SAVE %[M][N]^# BORDER V RESTORE z VERIFY xWGK MOVE  LLIST ~h<> FOR pIN  OR 8INT  CIRCLE >[]^ INK  DEF FN %STR$ LQy GO SUB g REM 47gWPIS:FN "g[L] TO TAB  REM  LOAD VAL$  MOVE Y RUN  COPY JvCODE ' NEXT O| CLS [N] INVERSE CODE ASN n SAVE  CLS hSTR$  CLOSE #q CLS ! INPUT  SAVE k OVER  STEP d PRINT /gznR CLEAR ulWSTR$ PI SAVE  RESTORE @ INVERSE [I][T]INKEY$f!Ek[F]} OUT o FORMAT 2f RESTORE ! FLASH is6BSCREEN$ ASN h"x LET <=LEN >=6[Q]+ GO SUB PEEK  GO SUB  RETURN IN k- <>[C]7 CLS v NEXT " RANDOMIZE  LET /~ATTR ! LPRINT X  READ [E]s▘6G MERGE 2 COPY  STEP NOT  NEXT *SGN  OVER ? STEP  AND LEN | RETURN FN  O)ATTR  OPEN # OVER  THEN  RETURN >© FLASH  RETURN 8[H]nO CLS  THEN _USR  PAPER  COPY  THEN 1© LET  PRINT NOT ! COPY Z RETURN ©jASN  READ LN  LET  CLEAR !:STR$ /X' INK <> DRAW TAB ATN (= LINE  IF ATTR  CAT  DRAW <AT LEN  LINE LN ▞NOT L STEP ?5@jIN LEN  ERASE AT ATTR * BORDER  BORDER BIN TAB +"|ASN W%USR %0▜>2 LINE M<> OUT  CONTINUE >=< PRINT [F]>= RETURN USR [H]<e PRINT  AND |ATN  COPY PF RETURN g~<▞oy  DIM  INPUT  FORMAT STR$ PEEK e`=POINT [I]PEEK ATN &vfPEEK q[S] LIST STR$  REM |6 COPY NOT TSCREEN$  GO SUB _Y OVER 30 SAVE USR @~IN %G>▗g[K]m LIST  INPUT L RANDOMIZE  SAVE  NEXT [I]"[B]4 RETURN ! NEXT ATTR VAL$  NEW  AND w5CHR$ COS 6COS  DRAW  LIST [ LINE  SAVE e, MERGE  FOR y_ATN  THEN  SAVE wo[C] REM  FOR  RESTORE Y_ NEW  LIST w▚`USR  DEF FN  LLIST  MOVE x READ SGN ?VAL  CIRCLE  OUT dSGN # CLEAR %CHR$ FINKEY$[L]AT  LOAD *VAL$ ▚/[I]TAB  CAT [H]_ CLEAR !0 PAUSE "▚|<>*STR$  INK 2N6z{ATN [N] RETURN [O]{ COPY _ THEN /CHR$ rK TO  BORDER  _ PAPER z THEN TAN  DRAW WSQR J[H]OCOS  RETURN  REM j:▝BIN <=SQR INT  NEW . MOVE ▘W CLOSE #[O] RETURN  RESTORE  CLOSE #CODE AT TAN PEEK TAB {[M] AND   CLOSE # THEN TAN y ERASE  BEEP <> DIM USR @A▖p[F]p▟ LET IN ▖POINT  CLEAR 'd[@USR s%r$, STOP TAB  THEN  NEXT ©ASN |?<> THEN  BORDER {%N|$,  RUN } THEN ? OR  FLASH 0e' PRINT ><=g CLS <> DRAW  DIM  THEN {(▚D_z STEP #VAL$  RETURN  RANDOMIZE <>&go▜[P]n CLEAR  RESTORE e.U)0[L]▝?[M] ERASE PVAL$  THEN } LINE V$| LLIST :->= OR ! DEF FN SGN  BORDER S RESTORE  AND  IF  OPEN #][F] RUN  STEP [G]VAL$  MOVE ▝L4 FOR [E]d CLS <>qsF: OR  READ 32#[I]^ RESTORE  LIST  LLIST >=SF>=[N]!%" LINE ^ INK K*>=POINT Y TO  MOVE  COPY u RETURN ▝ CAT [M]>©~"VAL VLEN PEEK VSTR$ * RETURN 8INKEY$ PLOT  / PLOT  ? PLOT  ?▙STR$  PLOT  ?` PRINT NOT  PLOT  ?T]l STEP _VAL <> IF  DRAW  OVER EXP Y~ RETURN $0 RETURN  INPUT # PLOT  !_CODE ~ OR ~XT DIM <  RETURN ^KK[L] INVERSE  INK o8~ BEEP 8 VERIFY ACS INT O0 TO q DRAW o THEN  CONTINUE <> ! LLIST  LPRINT  OUT  COPY +6 CLEAR © GO SUB y<>zLN 0PG{YOySQR [P] NEW .-([G]< LPRINT SGN  DEF FN v GO SUB }ABS 3CHR$  RUN  STEP VAL  THEN [K][P]z[A]▘[J][B]_SQR ~>O{ COPY  POKE INT 02B RETURN [C]CODE SCREEN$ yACS  CIRCLE nwl(0 THEN 8 GO TO <>,[I]▘EXP  READ  DATA [K]=o BORDER [K]NOT ATN CODE Cq3 DEF FN W LOAD ATTR  ERASE / DEF FN  OR  LINE [D] CAT [C]ATTR [E] GO TO  THEN 4NOT  THEN m NEW  CAT  STEP  AND  OUT  AND  DIM CODE n DRAW  MERGE &chV$~iACS _v} FOR  MOVE <> OVER  PLOT  ▛USR  PAPER  FLASH ▟ CIRCLE BIN <>y]"@LEN ne OR !1 NEW  VERIFY !s OUT [[O]L-C$<9[H] MERGE  STEP  NEXT  LLIST :O8<= RESTORE  MERGE  OR M INPUT ATTR !l AND  STEP  VERIFY LF!? LLIST 5 LLIST STR$ R MOVE  DIM  OPEN # LET STR$ ,STR$ S[C]STR$  MOVE <>[A]▟ FORMAT vIN /<>[P]INKEY$ PAUSE  GO SUB LEN [U]s. DRAW  INK X RESTORE CHR$  OR  COPY '~ATN  #6 COPY (&gE[R] PLOT   RANDOMIZE  RUN  COPY LEN : LINE wLEN [L]|[L] THEN  ERASE  OPEN #8$ PRINT  READ [R] 4 THEN USR  BRIGHT [K]0 OVER B COPY IN SGN } NEW E REM STR$  LLIST ][P]KT2 TO |ASN CHR$ TAB  DATA VAL 3;` MOVE  LIST EATTR  LIST F<>D PAPER ▛ FOR  BRIGHT F[P]<>[P]>' LOAD  BRIGHT  STEP ▚mLEN Z>Q▝CHR$ Us RETURN !q MERGE bSTR$ g[O]COS e▘ FORMAT SCREEN$ PEEK  RANDOMIZE  LOAD ! COPY  LET  TO 0 PAUSE [B] INPUT  PAUSE  FOR IN >=` REM TACS ▛PEEK  RETURN  PRINT  SAVE  INK  RANDOMIZE  GO SUB LN  RESTORE a>= MOVE  LOAD  GO TO  PAUSE NOT X AND @ P}T3 DRAW layerv1.0byN OR NOT ickof{ STOP GDC NEXT "HNOT  DEF FN :_ COPY ▛lATTR  LINE d~24 BEEP [E] CAT #[J]P RESTORE  INK tINKEY$p STEP [G] LLIST N[D]IABS yNOT  RANDOMIZE  COPY :RND LINE [Q]NOT O FLASH >0STR$  FOR }Hs CLS r=  PAUSE  LOAD > LIST 2TAN  AND  FORMAT  STEP <= LOAD >=* LPRINT TAB ,[G]C<>7<=%1 POKE  OPEN # LOAD , CIRCLE  DEF FN  MOVE >q OUT NOT ATN  RUN  CLOSE # OUT PEEK TAB [D] IF UjTAN  RUN R LOAD [P]SGN FN RND CLOSE #< MOVE PEEK [T] PAUSE [S]w[E] RESTORE n[E] IF [Q][B]▟<SGN  ERASE m[T]STR$ mu READ STR$ &t CLOSE #EQ(IN [T]< POKE © SAVE @` CIRCLE ( OUT ▖ LIST ` LPRINT &X|SIN a OVER VAL {vp GO TO [E]D SAVE  MOVE COS VAL p,=SQR  CLEAR PEEK ▗SQR gX  PLOT   LINE g=[S]| RUN AT X8 SAVE AT g OUT CHR$ AT [O] PRINT [A]{ VERIFY COS eQ>,7z DRAW AT g LOAD  LLIST  VERIFY [O] PRINT >=ABS  VERIFY COS SIN FN [P][G] CAT z▙ DIM Y~wpk FOR ^Yg=TO PRINT AT KGB?COS [O];8z VERIFY 52/,H CAT *' CAT #<=Y CAT = FOR AT g, LET g RUN  THEN , PRINT AT U`kRCOS [C]R{n ERASE  TO  REM  STEP > CAT ) AND [N] OUT  CAT  CLS  NEXT  GO TO ) FORMAT /5 OVER  DIM -VOR OUT 7NEZH- IF  LET "INKEY$>=2U LINE 3 BRIGHT ed. STOP  TO  COPY  STEP  LINE LN >CODE  DEF FN  AND [P]<=o▗ GO TO g"[O] CAT USR [D] LIST  BRIGHT L CLS  INK 7>=jBIN "▗ LINE CODE uO[N] CLS <>Q LINE  TO ▗ STEP  LLIST  CLEAR TAB . DEF FN   GO SUB s OUT  BEEP  COPY  COPY g< LINE _<=|qINT  <=POINT  FLASH  LET o}▜ LIST 9 RANDOMIZE  MOVE z NEW ~{PI PAUSE [T] AND @:[U]CHR$ [K]=[H] CLEAR  RETURN  LIST  <NOT [Q]c[K]< VERIFY = NEXT [U]IM THEN  PLOT  TAB CODE  COPY COS S BRIGHT [D] DRAW ~&BIN o~ THEN ; STEP  POKE  PLOT  CHR$  OVER  DRAW zo8g FLASH  THEN m(ATN e RETURN  PLOT   AND  INVERSE :[U]g| NEXT  LIST {3 INK  ERASE  MOVE  PLOT   CONTINUE  VERIFY 1 LIST  READ  CLEAR ?RNDo) SAVE  NEW  INVERSE STR$ }1|r DIM  CAT " IF  AND  FOR [K]ASN eSTR$ eLN y▞o6<=&9nEXP I OR ▞^ RANDOMIZE  LLIST [D]J[I]▞ POKE  POKE <== IF ^<= *>[O]>=#<= COPY a GO SUB !0NOT FUSR  RANDOMIZE <= GO SUB R$  LINE b FOR  PAUSE * CIRCLE %[R] DRAW ^=Pk( STOP <=[6©<=:ATN  INPUT DMSIN  LINE zgJ PLOT  | OUT cM FLASH  DATA ~>=[L] RETURN  DATA ▛<=4 RETURN  DATA IN <= OR C DATA USR CHR$ ACS Yz DATA SGN w< DATA I[ DATA <>STR$ [C]▞ COPY  CAT TAN  DATA  RESTORE <= CIRCLE  DATA >=STR$ 7 DATA  COPY <= DATA  CLEAR { READ  INVERSE ASN  DRAW 7 LLIST >=l LLIST )>=;[H] LLIST }>=~ OPEN # LLIST B>= READ [L] LLIST e>= LLIST :B,>= LLIST II[M] LLIST T DRAW }[B]B LLIST  AND  OR AT <=[O]<=" LLIST [O] LLIST DABS  LINE [J]gJ PLOT  [L] OUT ▘M FLASH  LLIST [M]<>[L] RETURN  LLIST SCREEN$ >=4 RETURN  LLIST  OVER >= OR C LLIST  OUT CHR$  MERGE Yz LLIST  FLASH w< LLIST I[ LLIST  CONTINUE STR$ [C]▞ COPY  INPUT TAN  LLIST <>USR ▗ LLIST +#▞ LLIST 2 COPY I LLIST  NEXT IN  NEW $ STOP 7 AND ©<> STOP G<>[J]USR  STOP ABS s[L]<>▚7 STOP `<> STOP 8x_ NEW NOT <>▖e STOP X<> STOP g▖S STOP SCREEN$ CHR$ [R]▞W STOP ATTR INT [I]<=SGN <= STOP [P]>=ABS  STOP  LINE ATN JD PLOT  EXP RNDa OUT [Q][T]k>EXP  CLEAR }oATTR VAL$ [J] MERGE  OVER  MERGE mm[M]ABS  OVER  THEN VAL 5<=IN SGN _PI AND  GO SUB VAL ▛iC[T]BkA INVERSE y ERASE |2^ READ  AND RND GO SUB y,]{}TAN ▝ THEN  MERGE  INVERSE [H]ATN (fy> LINE  READ  PAUSE  CLEAR .:>▗U LINE ▞ LPRINT  RETURN  STEP d▞T TO USR ©WVAL !-COS [L]"G[S] DEF FN }▖F9f▜VAL  READ M DRAW  OPEN #USR  INK 9PI 2 GO SUB sINT ^ THEN  FLASH PI▜05 FOR # INVERSE BIN SIN _VAL$ [J] CAT WWPOINT .TAN B8u FOR o PRINT "u TO  STOP O DEF FN % STEP  PAPER  LINE  GO SUB S▗ BEEP $[R] INK L<>INKEY$ LINE ATTR EXP  CLOSE #[S]wNOT COS ©PI PAPER [F] THEN ▝ OR ▜ACS  LLIST ▞/ LIST [O]▜ AND ` TO  LET  LOAD y0//▜PEEK oQ~, LET f RESTORE :<= INK OePEEK NOT  OUT  LINE  FOR ~ NEW mcBIN )VdM[R]{Y+INKEY$▝ FOR  CLS XF IF u DEF FN  IF ▙]:;kVh INK '0y FLASH `ACS  FOR <>CsQ CAT  REM PNYm^f FOR ]S CAT [U SAVE [T][L] FLASH AT TAB  REM ]LEN A CAT LEN /c GO SUB  CAT LN 9[T] CAT  MOVE [E] DEF FN ©k LPRINT oN,F GO SUB C[ DEF FN Q PLOT  [Q]& MERGE @[Q]VAL$ [G]▝a CAT  DRAW NOT  BRIGHT  LINE (▝/ PRINT  TO  IF 6 INK `/a2 INVERSE ;ACS BIN ATTR  TO W NEXT  DATA  DRAW H MOVE f RANDOMIZE h INPUT  DEF FN  OVER =2▘ CAT  FLASH [Q]▛cnc LINE   CAT RNDL"D{© LET EXP )*~9[O][P]SCREEN$ C TO [I] CONTINUE  PLOT   STOP _BIN [ MERGE  OPEN #U TO  STOP FN i BEEP /-m RUN  OVER ▝N STEP [F] TO SGN dE BEEP J<E BRIGHT EASN p[J]~ CIRCLE E? STEP bE`r▛[K]*"EACS KABS STR$ ATTR 9 INK  BEEP  LIST Y FORMAT = LPRINT B>=▛INKEY$B[K] TO POINT  RETURN  VERIFY  STOP Z^[T]W[U]BF PAUSE  CAT  IF ▙: TO ▝ATN B RANDOMIZE B STOP  GO TO Bk/i>=j/[Oqxw▖6uB&'mB FOR ▝<~POINT g[D] LET  CIRCLE  GO TO VKx MOVE V PAUSE  POKE  POKE +[H] CAT U:V[H]V<=[D] LPRINT V INVERSE &SGN ATTR © POKE VAL 2V SAVE  DEF FN V V CAT qI DATA X/[O]GEXP E RESTORE ~<=3[P]SCREEN$  GO SUB H` STEP  COPY jVBIN FN [ OPEN #L CLS V COPY  STEP CHR$  DEF FN mRND CAT [E]SIN  LOAD [m STEP  INPUT -[R]WVAL$  READ  AND ?W LOAD  LLIST CHR$ SCREEN$ xosQg+# DEF FN kW<d[A] READ [F]eSCREEN$ #k NEW sTAN -c LINE  OPEN #TAB  RESTORE  CIRCLE ABS  STOP  THEN [USR f PRINT "J▚ NEXT  GO SUB LEN uZTAN VAL$ <2e<96LN <>RNDNOT PISTR$ [F]-CHR$ [L]CHR$ [O] DRAW PI[H]Yw{ ERASE BIN  INVERSE vCOS 6o COPY / THEN I>=W. STOP }[F]+5a LINE  OUT oBMVAL$ /oFj BEEP  DRAW 5COS SCREEN$ ▜ MOVE )[P]o FORMAT  DRAW 3o OPEN # NEW mo%FN  BRIGHT ASN s RESTORE SGN oi{l[N]yTAB k[2[QX6EXP WRNDNOT 8 ERASE S THEN [K].p▛Oy[F]L DEF FN CASN Hf[B]8[SQR  MOVE  OPEN #[J] DEF FN [J] FORMAT  PAPER [L]POINT %9 LOAD Z STEP C STEP <>xeSCREEN$ g LIST & READ t[I]POINT D0[K]AT POINT ▝`INKEY$g^USR  OUT SCREEN$ PIC LINE PI(/kLEN USR  THEN [E] DRAW K RETURN  GO TO r0|NOT tVAL$ <=! COPY # OUT  CAT ▛"[J] LIST L FORMAT o[J]"rRNDU RANDOMIZE  LIST IN ABS  BORDER  DATA 0_[L] RETURN  CAT / NEXT  STOP ~[L] NEXT X<>IH NEXT SCREEN$ gABS [S]a[H]1 CLS oX▖) SAVE v[K][Q]?EXP ▖[L] CONTINUE y<>VAL  RESTORE  BRIGHT [G]R PAPER SQR  THEN h▜ STOP yPEEK  THEN dASN m REM SCREEN$ >=|G OUT ▖ POKE COS [D] POKE LN  OUT  VERIFY K OVER I CONTINUE _:`G[P]u LOAD K CIRCLE TAN [I]INKEY$<= STEP [H]}j CLS VAL$ PI|© CAT  MERGE 9 LET  MERGE  READ LABS [S]INT 2 PRINT  OVER N>dPOINT e OUT  NEXT  RESTORE  TO [G] PAUSE  LOAD  CIRCLE  STOP ( STOP = BORDER  IF 1 OVER  RESTORE  ERASE 3&<>y[O]5SEXP _ RUN L.C OUT PEEK ▗x[J] DATA k▛©^hSGN Tt▞v[D] MOVE PEEK  FLASH  LET /▛OE MERGE ProT BEEP ack GO TO 3.?acompiBIN latn< OVER  DIM MINNlSOG F DRAW R:E9© RETURN A'S 48K. NEXT TR DRAW  ▛?ABS Mast/F CLS  RANDOMIZE L 17.0 LPRINT [O]98r>=: ERASE IN >3 BEEP  BRIGHT COS  COPY POINT ATN  CIRCLE  MERGE ?ATTR q/ASN 7/[F] POKE ▞[S]` TO  CLEAR COS  CLOSE #ACS AT +IN  STEP _>= AND  TO N RESTORE [J] FLASH TAB  CLEAR  COPY  IF LN QJEXP bFN  DIM  INK ASN VAL  CLOSE #64 PAPER ▗[R] DIM [J]&[O] CLEAR  NEXT  LINE LEN  BEEP  FLASH  PAPER  THEN  DATA g TO  PAPER VeINT  DEF FN  CAT a DATA lLN  POKE  FOR  NEXT  PAPER  COPY W CLEAR  CAT LEN [L] OR [K][I] THEN [D]L B LPRINT [B]▗p▙▟e▜SGN ![O]= DEF FN  FORMAT  STEP  VERIFY COS  TO  LINE <= AND  CAT zBIN CHR$ INKEY$STR$  IF ▛n)? BRIGHT ▙ INK 4 BRIGHT |x▙3 CAT * LET  GO SUB f ERASE <> CLOSE #& BORDER >=~|{ DEF FN <=$USR STR$ PEEK  BRIGHT Uc FOR  THEN INT  AND FCINT NOT ' LET  LIST IN <}[O]▘PIzo NEXT  VERIFY  BORDER  LIST ABS oL~ CLEAR [ CLS CODE  CLOSE #&T BEEP COS  MERGE ▞ GO TO INKEY$[U] VERIFY r POKE  VERIFY P VERIFY [E]VAL$ rASN TAB ]QTAB BEq` TO V BEEP SIN ▖[T]S)[I] OR COS  BEEP  PAPER COS m[I]+ PAUSE  TO ]m DEF FN  DEF FN 01COS a[I]▜VAL$  CAT  PAPER !0i_ RUN [I] BRIGHT [N][I][E][M]USR ]CHR$ ▖[Q]"B INK {Dk[Q]y[K])8 LPRINT  PAPER [C]x CONTINUE Y▜▖# DEF FN  CLS STR$ ▝EXP Y[H][I][C]nAT [K]!▗TAN h[O]<= OR SIN ZSIN -ASN it FLASH Zj STEP .-t8Z.U CLOSE #&T BEEP [K] MERGE vZSIN PSIN (v[J] FLASH P▜ NEXT RND ERASE [S]jTAB INT  COPY ▗ OVER T BEEP TAB (VFTAN  BRIGHT TAB AT SIN SIN  CLEAR [N]N[A]  LIST [I] CLEAR ▗&LEN [G] LLIST ~INT [{[D][F]B LPRINT  STEP T)▝[O]<> READ YCHR$ >=VAL$  PAUSE <= LINE U AND  OR [G]LN  LPRINT [D] DRAW xNOT ~txL DEF FN [B]▖ STEP | TO ytp THEN mh LINE da<>USR m4SIN py| TO  OPEN # CLEAR ▖ RANDOMIZE [B][E][I][N]f[K]SCREEN$ [P][G][I] STEP [G][D] AND [H] STEP H RUN F? COPY [K] DRAW  COPY Mg[P]CHR$  CAT <>r[F]>=<=UVAL$  AND EXP  LINE  OR WBIN fF[D]CHR$  TO VAL$ [K]CHR$ $ GO TO  TO !STR$ [S]V▙F  MOVE ▘" NEXT 8{8w8v8t8o▚[M]USR ▘1[G]USR BIN L* STEP BIN USR 8▝ THEN L* THEN BIN USR LJw~USR BIN 8ycBIN USR  DEF FN rUSR 3STR$ BIN R▝m}|[P] LINE p▚TAB J& INVERSE TAB IB[B]STR$ 1POINT [B]▖STR$ ujtRNDu[E]JLRNDY^[N]bY[Q] DEF FN [U] DEF FN POINT  DEF FN [P][J][A]=[R] AND [H]= STEP $Ay0iA▛ TO y3IAyLZA©VAL yLAy[D] VERIFY As[E] PRINT yg▙!8{PI CLEAR ▟ CONTINUE <[M]EXP  STEP FPOINT NOT m CLOSE # RESTORE [J] THEN LEN ▗ MERGE BIN  PAUSE  COPY  PAUSE s CLEAR VAL$ 5q>[G] !WQ DRAW n/z8 GO TO .? CONTINUE c7 PAPER LN  DRAW ▟ INVERSE INT  INVERSE  CIRCLE INKEY$ CIRCLE ▟[C]~▟ INVERSE jACS  CIRCLE VATTR /2vc STEP ▟+jUSR  CIRCLE 3<> RESTORE d SAVE zW[L]▘CODE l>=&TAN CODE  CLEAR +EXP $%eO[P] RANDOMIZE k NEW [F]yU~/ STEP /RNDZ) BEEP [P] RANDOMIZE # MERGE [F])tATTR ACS 6[H]  PLOT  hABS ▛ DEF FN [Q] INK ▞ THEN  PRINT ▖ RESTORE  IF ▜ BRIGHT  COPY  CLS IN ▚ COPY [H] COPY r▗_ INPUT &ATN g STOP . DRAW  COPY ▟ RETURN  RESTORE ▙ABS B- RUN lX ERASE ?r%n^BIN  RESTORE  READ INT  CIRCLE  REM Wy9TAN  /~PEEK INT IN T OVER (%. f[R]s= CLS RTAB  NEW SCREEN$ "YBIN NO; POKE ABS ▜[I] RANDOMIZE  MOVE ©m PAUSE [L] LIST ▗a CLS 6 FLASH 3ACS o INK [N][P]k}SIN  LIST [L] CLS [M]ATN l OUT  INK W NEW  RESTORE  REM 'n^ FORMAT INKEY$|}▙ PAUSE ( COPY GW CLS  BRIGHT  FLASH  BEEP  COPY POINT ?4_6*wk THEN O+6'SGN ▘+>-▖upATTR ▟PISGN ▘: STEP AT <=LN [C] CAT  REM  STEP  FLASH ©[Q]UATTR $Zycm CLOSE # GO SUB y[N]e DATA  REM  LIST  CONTINUE h{ DRAW ? DRAW ▚Uy OVER Fa ERASE ?▝M FLASH ATTR SGN NOT INT  PAUSE  PRINT  FOR D CLS |#>SCREEN$ [Q]SGN  PLOT   INPUT O?#▝ TO Gf[M]P"@▖1O REM  TO  RETURN INT ▚[K][T]<=[U]ASN CODE /dUSR  INPUT ATTR ABS  OR [RNDf CLOSE #PI/SQR jASN USR VAL [J]PEEK a OPEN #P_© LET  TO [U] INVERSE V>=> MERGE  INVERSE ▖INT 'yu[Q]▘INT PIVAL 6& LIST POINT NP[H]p MERGE j CIRCLE [N][G]ATTR TAN g[Q]TAB [N]▛g LLIST D▝ DEF FN BIN ©POINT e[Q][I]ASN a LPRINT LN IN N OUT [E]USR 3ASN PEEK "<=BIN VAL cV CLS p[R]VAL$ `u TO JXH DIM  PAPER rTAN >= SAVE h INK ;O AND TAB ▚EXP EXP />= INK X©[Q]EXP zHVVAL BIN  FOR -©<=</FN hf[ FORMAT VAL$ ▝ PAUSE ▜[C] FORMAT  CIRCLE NOT -VAL INT = LIST USR  LIST  MERGE  DEF FN USR  BRIGHT !_VAL w LLIST +zCODE j; INVERSE  SAVE VAL$  TO ▟u COPY [N]f©[H][P]|T RETURN ;IN  TO  SAVE U LINE ` BORDER `▛@/[C] STOP u INK T© CIRCLE  INK r DIM USR  CLS :;<=<==©:KFN 3 DRAW f[U]▟1E DEF FN  POKE VAL$ LN (▙*3CATN oCODE  NEW 0n INVERSE ATTR [D]R MOVE  FORMAT VAL - CLEAR  FORMAT d[Q]PIKEXP FVAL OT▖ RUN ,DnzF/AT jASN USR <> FORMAT G}*jsYLEN  PAUSE  LPRINT SCREEN$ VAL  CLOSE #▘pS FLASH -0TAN /3 PAPER ? RANDOMIZE TAB [J]F[N]xSCREEN$  TO [C]FSQR ATTR ▚ STOP | RE RANDOMIZE XPL! OVER  RETURN ABS xJATENDCOS ASN OF32 CLS YRW9 CLEAR BCK THEN GI CLOSE #[A] CLS  sHVDFN PI SAVE  FLASH NOTI BORDER ]2 AND <ST FORMAT  LPRINT WUSR P INPUT OMi NEW AT S RUN ,G SAVE  RESTORE T=1 OUT QUADR FOR X: GO SUB &CHR$ [G]U[O]e$ GO SUB _;-)NCOS Y LET USA PLOT  :[H] FOR "IT▞LA NEW ME!"yLz,t[M]s[D] RANDOMIZE PRHY©SCREEN$ .INKEY$ LET TP'Nc6BO(COS CODE T STEP <-LI FLASH  FOR f▞PJE-G PAPER [B]Q GO TO c THEN 1 AND [G] COPY IT>▟ NEXT R9C[T] TO  POKE HCHR$ Z"ABS }PEEK  RESTORE  BY DATA  OUT ▚<>ICSGN *q<=T/FjMsOINKEY$ RANDOMIZE  IF USR i LOAD Z/P7▜TE FORMAT GNCHR$ 5,xX PLOT  [D] FORMAT  IF S FORMAT [E][I]X PAUSE hCATN j COPY POL FORMAT ?SATTR 8[L] STEP 4[R]K> ] FORMAT ABS PEEK  SAVE UINT W<> LOAD dIRXD PLOT   RESTORE [O][M]i CLOSE #[G](H OR [I],U[K][P] RANDOMIZE p GO TO INT  OR D▖ STEP N6 FORMAT h RESTORE  CIRCLE C VERIFY THG)RND OUT CODE © SAVE JgcZRG THEN ?CODE 2 DIM LEN  FOR I[O]A[S]L5tG INPUT  CLEAR + FLASH nrPEEK ▚[M]I0RNDu LINE W[R]>=POINT WRL FOR B ERASE QACS ASN e/ CIRCLE ACS lRZ!0,[U] DEF FN ACS [U]PEEK  INK ATTR  PAUSE COS i,ASV FLASH , OR 4C THEN 0i BORDER IBIN i READ 3SC!.F▙1▞Xv MOVE " DEF FN Dmi▗,4 CAT I[R][S]FCOS SIN ▚ GO SUB G DEF FN FBABS PYiKL DIM SQR 4[F]PEEK  TO ©}[B] CLS ACS POINT -@!KM;FN INKEY$E▗[K]CODE +) READ ▙ FORMAT [H] INVERSE [M] LOAD J OUT oCODE eA STEP CFs READ  PRINT 194.VAL 6 INK O8UATN D_[U]RNDSGN [U]`/P LLIST .&[H]W FORMAT IN [B][H]UCOS NOT WACS  AND  AND  OUT hJN1[P] BRIGHT &-JOY MOVE R7 BORDER  CLS STR$ [I] DATA CHR$ [B]▜ SAVE 20.1o GO SUB 9 NEXT [ ERASE [M]SKo?)S TO B BEEP {_©v~# VERIFY USR 8G0 THEN  STEP F# LET CODE 58 IF 9AbLN ,>= FLASH ©( RESTORE  AND @GnLEN gxf[M]86" AND  THEN xG| RETURN H08TAB [R] INK W[I]0AT  LET  LLIST _u DRAW z: DIM ,ATTR  DRAW ATTR INT BIN SCREEN$ L/(_<#8~ STOP s LIST [G]0 IF + AND  LLIST LATTR ▟CODE g[K] GO SUB  LLIST  FORMAT  MERGE  STEP {W BRIGHT  VERIFY  COPY  MOVE  PAPER NOT CHR$ IN  COPY  OPEN # DATA  ] CLS NOT  RETURN 8`W ERASE  RETURN  CAT w RETURN  GO TO / NEXT  BORDER U?WIN 8 RETURN  COPY PSCREEN$ }PEEK ]>/_ COPY ▟IN © PAPER sFN P ▖ SAVE p NEW COS  LPRINT USR s NEXT  FORMAT  AND <= ERASE  VERIFY IN _ COPY  CLS © STEP  CIRCLE  LOAD  CAT  OUT [P]CODE [H]▛NOT <=USR @ FLASH  LINE <= SAVE  COPY NOT BIN ▚ TO STR$  FOR  RUN SCREEN$  MERGE [S][H] RETURN  LLIST  COPY BIN | LPRINT  FOR o▙ CLS >=USR  LIST [L] COPY <> SAVE  OR  DRAW [H] CLS  LINE  LLIST CHR$ ▝▟ SAVE O RETURN n+ SAVE  DEF FN 'SPEEK ?_ RETURN  DEF FN '~}PEEK  LOAD W3 LPRINT *SCREEN$ ©? NEW CODE  DRAW VAL  INPUT Oa STEP IN T GO TO  CLOSE #.XVAL `[P]??▜x ERASE  READ  LIST g PLOT   GO TO  DRAW  POKE AT  CIRCLE SQR NOT  AND SCREEN$ ]VAL$ SIN BIN ▝ RETURN ▛ TO > MOVE $ PLOT  [I] DEF FN  TO [E] RESTORE CODE  NEW uP[L]_[Q][Q] LIST ▜< OR ▙©BIN ▚SIN  AND ~b LLIST  RUN  OVER  DRAW  LIST  RETURN TSCREEN$ | IF } RETURN  CLEAR  OVER 4<>X[P]NOT F/! TO ▝CSCREEN$  RETURN  DRAW  SAVE N[R]5 CLEAR  CLOSE # BEEP = SAVE ▘ RESTORE  REM  RUN [L]▜[ COPY & RUN J CIRCLE  9,B[I].R COPY  LET P RETURN ▟CHR$ o[T]>=6` DATA @ NEW [Q] BRIGHT ▚UP▘ FLASH  LINE  SAVE |SCREEN$ [H] IF CHR$ @? READ  RETURN  CLOSE #[Q]USR 3[H] REM  CLEAR  NEW ?[N]>=8( LIST  FOR  AND /▚JNOT  AND TAB X LINE BIN  TO ATTR _ LIST KO READ NOT #▜h OR  LPRINT  FORMAT  LLIST `a STOP A OVER ~ DATA ABS  CLS D©▜BIN ? DATA !F FORMAT .UPEEK TINT /[E] SAVE } LINE y[T]zABS  CIRCLE  NEXT  LPRINT ▚LN ; CLEAR  IF  MERGE  IF  NEXT ▗PFN  POKE  SAVE  FORMAT  DRAW ▙0BIN  LIST <=> MERGE ABS LSTR$  LINE  BEEP / PLOT  V RANDOMIZE  CIRCLE USR  CIRCLE n<>oBIN  BEEP [G]▙ CLOSE #/r0y LIST  AND  DRAW F CIRCLE STR$ CHR$  NOT [A]M STOP  OR  STEP  SAVE <>x TO CHR$ $03 DRAW ▗BIN  FORMAT o~/ TO  CONTINUE  POKE  IF ©PEEK ▗CODE NOT / OUT  DRAW >=0P[Q]▜LN  LET ABS C DRAW K OVER ?1 OVER 37/l CLOSE # CLOSE #NOT  COPY  COPY <><BCODE NOT ▙;▝CHR$ N|▛[F] PAPER  FORMAT ▘[H]/EXP zLEN r PRINT  READ  RESTORE  STOP STR$ <>USR [H]NOT  AND  READ  COPY  GO TO DIN >=pt?#▝/^ LLIST ^FN IN l CLS  IF [E] NEXT  LET  LLIST IN  VERIFY  n PLOT  SQR  PAUSE ? RETURN CHR$ /~ NEW  RETURN ▚x BRIGHT  SAVE PEEK ©TFN  SAVE t IF  CLEAR o RETURN ]IN Wg@[F] SAVE bH PAPER  IF ▗ READ  AND S RETURN  DEF FN _?▗[H] DRAW BIN Q©( CONTINUE u IF ABS  VERIFY [P] STEP [P] BRIGHT  FORMAT T LIST  CONTINUE USR ▞[J]STR$ COS BIN RVAL  CIRCLE  DRAW  INPUT  POKE VAL$ D LIST  LPRINT ABS 1 LET [N] RANDOMIZE &j FORMAT Aru{ OR  COPY  AND VAL$ +[P][B];©-[E]: RETURN  NEW  DRAW h[F] LINE  PEEK  PLOT  p0[E][) DEF FN pU*©COS f▘[R]< STEP  LPRINT CODE BIN SGN D▘ COPY INT LEN  PRINT J STOP ▛ AND  IF  TO [H]S6ATTR  CONTINUE uUSR  OUT  BRIGHT  DRAW PL TO KB>AT [M] PRINT [N]:>=SCREEN$  TO Tp`}oA AND  BEEP <> SAVE  AND LN F OUT zn@SCREEN$ / CLS ^VAL$ IN  STOP W TO  FOR  NEW  OVER x:FABS  LIST SGN CODE  CLEAR  DEF FN `je LOAD  OUT  THEN [F]Q MERGE ;BIN VAL$ y._ BRIGHT [A] REM SCODE q COPY  NEXT  PRINT VATN _8U0iT9v▘~SGN | SAVE x▞T}©9 PAPER <8xLN p[Q] LPRINT  SAVE ▚vBIN USR IN YEXP ▗© FORMAT IN  OR <=t AND * STEP / CAT [P] COPY  MOVE BIN  COPY ▚SQR  STEP W LPRINT CHR$ ▜X[P] COPY 'z[O]/ LOAD ▜ CONTINUE ~IN  DRAW  PRINT  LLIST  INPUT o COPY a CLS BIN  OR [H] PRINT  DRAW 8 PLOT  / RUN G AND  DRAW o[H]PIIN BIN ▜ ERASE  STEP ?▙ RESTORE 1p, PLOT  IN  RETURN STR$ "USR %,28>DJPV/bgmsx~▖▙[D][I][N][S]PIATTR VAL TAN EXP ABS STR$  OR <> STEP  FORMAT  CLOSE # BEEP  FLASH  OVER  LLIST  DATA  BORDER  DIM  GO TO  INPUT  LIST  PAUSE  POKE  PLOT   RUN  RANDOMIZE  IF  CLS  DRAW  CLEAR ATTR R+ ERASE  THEN  BORDER  RETURN  CLEAR  DRAW  CLS  IF  RANDOMIZE  RUN  PLOT   POKE  PAUSE  LIST  INPUT  GO TO  DIM  BORDER  DATA  LLIST  OVER  FLASH  BEEP  CLOSE # FORMAT  STEP <> OR STR$ ABS EXP TAN VAL ATTR PI[S][N][I][D]▙▖~xsmgb/VPJD©TAN ,% DIM a<`HRF[K]GG COPY  NEXT !.[N] RESTORE  INK  MOVE !& RETURN PNOT   RESTORE  MERGE  INK xPI FN  INK  RETURN [K]O FOR lG▞y INK w$ CONTINUE  LLIST  > INVERSE SIN ▝ MOVE s SAVE  FORMAT #>={NOT  FLASH oVAL$  TO # CLEAR LEN  RESTORE  CLS  STOP STR$ VD1.2FN O©9 CIRCLE  LIST 5Q▗ThimotyCODE !@[U]IN  COPY w GO SUB VAL  OPEN # RETURN {[A]<=FN  TO COS CHR$  SAVE XPIo RETURN R"&[N]!jY OVER B STEP  MERGE ▟#[N] IF C STEP [P]> o0t THEN l POKE +[N]<>} VERIFY  [N]L%▘CODE ? FLASH <>BnvzVAL 8<=<> RETURN o/P~ LLIST w MOVE <>SCREEN$  PRINT USR < FOR FN RND CLEAR g▘[Q] VERIFY AT "[K]' BRIGHT >^[T]9/ INK <INKEY$ RETURN  @USR  INPUT  OUT f*USCREEN$ SGN ▞ATTR Tt OPEN # DRAW (P"$ISCREEN$  CIRCLE  RETURN F BORDER }P[B]AK<k RUN [P] INVERSE  COPY  CIRCLE  FOR VAL$  OVER d BRIGHT IN PEEK ©@VAL VAL$ COS ASN rt" AND  CLOSE #▖vPIEXP |[Q]~8kv[S]Y NEXT * LIST UATN  STEP  INPUT ^ CLEAR  REM _Ysw] COPY 1%0 FOR GWYwM READ © TO LN  AND ▝ MOVE [S]SIN <=@[I][U]z|?~s CLS  REM  DRAW  GO TO  GO SUB ▖[P][O] COPY IN  GO TO 0RNDn) IF z[N]▞[S]SGN  IF @1rVAL TAN  LINE *RNDif>=)SCREEN$  PAUSE  LOAD @▝ NEW &[B] MOVE  POKE t INPUT  BRIGHT ▟xey VERIFY [A] OUT ▛POINT x INPUT N5s RESTORE  PRINT  STEP ?gvK PAUSE "T6 LIST CHR$ USR FN  DATA e NEW [U] TAN  LET RND5{ LINE USR [Q] LIST LEN  LET  CLEAR  RETURN  IF  CLS #[I]S CLOSE #/ ERASE  DEF FN pZV THEN ( BRIGHT V#d▞[C]Q▘ BORDER  AND * MERGE [S] DIM (DSCREEN$ 0▖V STEP `]INT [C]v▚9©FN  CLOSE #z REM  COPY ^VAL$ ATTR SGN ▟Z& LINE ▚d VERIFY , RUN  SAVE  PLOT  [L][Q][S][Q]~ COPY  IF >Ry1CODE k CLS  COPY IN [L]id& LLIST PIUSR cj AND BIN R`  CLOSE #:#0COS  CONTINUE J[H]~ GO TO  OR  DRAW D▝▞Z[G]Q[S]D RESTORE Q>J*_ 3LEN  PRINT  REM SCREEN$ c[B] FOR  LPRINT  FLASH LN STR$  REM  CAT  COPY  INPUT J[K]lCODE Z LIST TAN ,P RETURN VAL$ [J][U]AT  RETURN  PAPER  INK  LOAD @(X>▙BFN  LPRINT  CLEAR  DRAW (STR$  AND [S]bj> CLOSE #$BIN _ MERGE :@▘A [A]▟*QSQR 4oq▘.w PRINT INKEY$=VAL$ U PLOT  pW RESTORE 0 PRINT  BORDER AT d▛Q0I RETURN SIN p[Q]8AT  DRAW PEEK  RANDOMIZE ATN SQR ? MOVE  RUN 6[ OUT  LOAD cC[ LPRINT SCREEN$ EXP  CAT H VERIFY ` INVERSE INT ▞76"5*▞ LET RNDSCREEN$  OR _ BORDER  GO TO [< RESTORE r*e[S]INKEY$a[S]ms>=[P] MOVE ▖P<> RESTORE )[J][O][F] CONTINUE S DATA w#* AND  DRAW R[O]LN `. CONTINUE YVAL$ STR$ Vt_VAL$ j[L][▜ INPUT  CLEAR ]3 MERGE sBIN cz[*[Q]` STOP YOf/= COPY  RETURN VAL$  CLEAR  ERASE 0TAB  OVER INT  STEP [A] CONTINUE  RUN  PLOT  4 LINE 0>=o BORDER  PLOT  ▛ LLIST FN USR ▖Ay READ *# GO TO ▟A LET [Q][A]*▟SGN  STOP  AND  PAUSE jgd][Q] COPY  D[S]▗ CLS I[K][A]aSQR tLN [L]GINT  LOAD G PRINT ▝[Q]%* DEF FN 6sX[_PEEK [E]~M COPY  DRAW INT  CLEAR [Q] POKE [S] BORDER  DRAW  VERIFY  LOAD |WATTR  READ  IF *©(7MVAL$  POKE ATTR SCREEN$  PLOT  VAL$ CODE  CLEAR CUSR LN }INT :lACS xV([U]<=AT [L]▙[O]2 POKE SGN INT ABS INT  FORMAT cS REM  VERIFY 6 LET FN P ERASE V▖COS  LLIST cP©:8 HTAN (3 MERGE "+]SCREEN$  MOVE ▘ATN 6C$[R][O] RESTORE  RETURN  READ ▟ OVER  CLS  MERGE :BcATN  TO ▛▗ RETURN SQR f$wt CONTINUE  LINE  DATA 1B MERGE FN  LLIST  REM 4c[B] NEXT F PAPER BIN  PAUSE 5z[N] BEEP  OUT ▜l/g RUN wATTR uy7AiFN ▝VAL @[K]MF▖Bt NEW d[U]© RETURN  BEEP [Q]ABS ?o[A]SCREEN$ ▝[T]TAB ATN  OR  RUN  FOR [M] OPEN #hSGN ACS pFN yD!" RUN 4▟▘ AND  LIST USR ,OJ INPUT © IF ASN ?]▚ DIM [U]BIN  TO X~ REM BBIN FABS LN =(uINKEY$ PRINT [T]▛▙SCREEN$  FOR  REM  STOP Wi[K] CLOSE # RUN  NEXT COS  PLOT  6g%▚B,9©rABS  CLEAR [H]F RETURN  INPUT y RUN $ CLS CHR$ ?H{ AND  INPUT < INPUT n FOR  FOR  BEEP SQR _x FLASH  RUN [T]©▘ VERIFY  INVERSE  INPUT  POKE SCREEN$ TAT m'POINT [P]+_} RANDOMIZE ▖ATTR ©FIN H[H] DIM Q[B]g CLEAR L2@CHR$  BORDER 'Y LLIST SCREEN$ ATN FN QLc[J][E]/Z PRINT INT [I]0TAB /IN CODE  COPY  LOAD  SAVE  FLASH  DIM [G]x CONTINUE /1 REM CODE LN  DRAW  LPRINT  READ USR  LET [T] CAT ©PEEK | DATA ATTR  LPRINT  POKE 0[K[N] GO TO IN  AND F`a LPRINT [U] RANDOMIZE  CONTINUE  CLEAR FN [K] COPY M PAUSE  THEN 0LN  CONTINUE ! STOP  OR 4U FOR CHR$  GO TO  AND [O]STR$  STOP ▘ LET INT  CLEAR  LET SCREEN$ d[I][S] LIST  PLOT  CHR$ SQR -`T LOAD ▙$ MERGE !c BEEP  RETURN  GO SUB  INVERSE  INVERSE  PLOT   INVERSE i77]I RANDOMIZE @FN d[S]GZ PLOT  Ou IF Wq[S]▘[Q] RESTORE HZ DEF FN  PAUSE [U]INT STR$  NEXT j DRAW  FLASH @ INVERSE B DATA ( COPY [J]<< OUT x▞[S] DATA [I]ATN ▝(| RANDOMIZE  REM TAB [F][S]?SGN -K<k5 RETURN  LOAD [C] REM @[D]EFN  DRAW /<=▞[C]0 GO TO CODE ?j TO _/ CLEAR / CIRCLE > RANDOMIZE LN `y ERASE ?RND!▙[I] GO SUB ( BORDER 6 NEW [G]`FN STR$ IN  INVERSE  LET  STEP  CLOSE #Gv▖[S]2SCREEN$ }x ERASE  PRINT @▖ OPEN #AM[O]% DATA ▘*▘duPOINT k NEW  RANDOMIZE INT  CLEAR SQR o CAT  LINE 7©%[T] COPY  FOR  NEXT  CLS CODE qR RETURN }PEEK ~ THEN  COPY ?VAL$ SCREEN$ ▘▖ FN  TO BIN G REM Y▙)r MERGE {[SQR +VAL$ Y AND  LET ] POKE FN px READ  COPY /<= THEN  BEEP  OUT  CAT  CONTINUE  MERGE  LOAD [K] RANDOMIZE EXP  COPY 3 BORDER  MERGE R}PEEK ▘[P]ATTR INKEY$M[Q][G] kv▟[C]W*y[G]b NEW  RESTORE L DIM (M RETURN [S]▘VAL$ BIN  INVERSE CODE STR$ $ CAT ▜[G]V▜/lo INK ACS ▜PEEK  READ  AND LN IN INT [P]VAL$  THEN ©▛<=POINT USR LN  BEEP [S]; READ  FORMAT INKEY$ OR  THEN  RANDOMIZE  GO SUB  GO TO l RETURN FN USIN "c(A OVER  CIRCLE  BORDER  STEP ▙[G]SGN  INVERSE  THEN  CAT *AF▖ CAT [C]PI RUN ▜[H]▘s[C]3SIN [T]CHR$  LET POINT  LIST  MOVE  SAVE [K] BRIGHT x DRAW LN  REM USR  LPRINT  GO SUB dSFN h OVER  LOAD  BRIGHT  GO TO ▙oIN ▗[S]V THEN RY[D]e]nLN  LET  THEN mSCREEN$ INKEY$▗ LPRINT 1!P▖"LN  DATA [S]r[Q]A REM  FLASH rFN  STEP USR [K][I]+_C@[S] FORMAT 5 CLEAR  FOR LIEXP  RUN ATTR  DRAW d/ DATA  IF tSCREEN$ Y[S] POKE [M]6FN  POKE ATTR PEEK URND COPY CODE X>=VAL$  RETURN [I] RESTORE USR  CONTINUE USR SIN  COPY _INT SATTR  LINE  BEEP LN  RUN  OPEN # RESTORE  GO TO  REM  SAVE  GO TO  PLOT   POKE F.SGN pKe DRAW ~INT  DRAW SGN  CLEAR AT  DATA  CIRCLE [N] RETURN RF▝ LLIST >wTAN f RESTORE ▙PI<=U  AND y*}tBIN  CLS 5(+9)E LLIST PI[Q]VAL$ ▛E LOAD E[G]TAB  RETURN "zVAL$  BRIGHT xCOS [E][E]{▜f▞(▜eUSR $[C]6P[P]VAL$  STEP  LIST  LIST 1K<>]FN E[a CLOSE #[U] CLOSE #[I] MOVE <> THEN %#ir IF  OVER ] LINE ▘BIN  COPY ?POINT UP<> COPY  CLS ▖! STOP p IF GSCREEN$ STR$ d.[N] INPUT  STEP <=SGN ▘[S]▛ ERASE [I]▝Q GO SUB @>=▖COS  LET 6[Q]TdSCREEN$ DSP[U][I]PEEK  PRINT ▟ AND vxn>= CIRCLE  AND  INPUT ,Dl5 OVER ATN INKEY$ DRAW ECPRNDLN [S] PLOT  #b& , DATA kP▘PIi3DMPEEK y[Q]USR *P= FORMAT  READ  PAUSE [Q][G]i THEN ` RETURN NOT  BRIGHT cP[I]RND GO TO [I]#RND/ FLASH [H] BEEP /&a}▘ STOP Q NEXT  SAVE  IF  OUT  LOAD Y IF p BORDER @"_0 REM  BRIGHT .T PAUSE  PLOT  ABS  CLS 0▛@[H] GO SUB  GO SUB  OUT '&[L][G]▗▚oBIN ▘CHR$ [S]}<>c"aCHR$ ATTR  DIM 5▟ SAVE [T]INKEY$[P]R-INKEY$[R][L]SIN ▘TAB +▟W[Q].! DIM   OUT  ERASE  PAUSE VAL kSCREEN$ @W OVER BIN *[H]IN 4 CIRCLE INT SCREEN$  LLIST  REM pU2b0)▟ BEEP USR ca'i" CLEAR  INVERSE .▘[A]k DATA ▝ CONTINUE  RESTORE  OPEN #% FORMAT  VERIFY CODE  DEF FN 8LN <VAL$ ▟ RANDOMIZE INKEY$▘C[T] LET [Q]Z SAVE H INPUT ▖DUSR <= COPY [S] jq(<= STEP  REM  LET  FORMAT VAL CODE 9xABS [O]P(USR CHR$ POINT PcSIN EX[U]US RANDOMIZE FN Q▖AD FOR  DATA  MERGE "T= BRIGHT 1q POKE yCHR$ [F]Sk CLEAR [E]HL" OPEN # OR [E]▜ COPY [H] OUT  SAVE [G]▛<=[S]u DRAW  CONTINUE z. COPY  AND 5Y"▘ LET  CONTINUE  LIST  CLEAR LN  IF ©k?:2i-LN  LIST "#@USR &>(p80HINT INT {ATN  PAUSE "[H]s FORMAT  BORDER  AND  LPRINT `h048 BRIGHT 0[G]u3A]?aH[K] FOR B CONTINUE [Q]~INKEY$968 GO SUB  SAVE 5$[K] GO TO SQR C▖8S POKE @<S INPUT [Q] RETURN $_J9 PRINT [ INVERSE  p OR  DIM ASN 'ACS s NEXT [T][L]G<=<>N LET © LPRINT px(▙ OR [S] OPEN #FN INT `4 THEN [L]* SAVE BIN  LPRINT  LLIST [S]LEN  RESTORE  AND _ATTR  OUT G FOR ATN f RANDOMIZE  RANDOMIZE :! THEN V3SQR H0' RESTORE =?c READ f LINE B▛Pj[Q] FORMAT [C] NEW  NEW `▙0: THEN [P];Pv1 LPRINT 9bBIN 7INKEY$[U]IN Q[K]1ATN  CLS <>bE/[C][E]A CLS  SAVE [D] INPUT [K] READ [K]1*SIN 2K VERIFY [E]NOT /uJ[S]ATTR  LET  LIST SCREEN$  CLOSE # REM  CLEAR  DRAW [C][P]M LIST AT  RETURN >© CONTINUE +9 LPRINT  OUT /<>*a/©FN  FOR PEEK IN INT  COPY U RUN ^+ RETURN  DRAW ?o</.OATTR  PAUSE  BORDER  MERGE  REM  LIST PEEK y:4 DEF FN ▟<>[U]MPOINT 5L17j STEP n CLOSE # NEXT y- INK  CONTINUE 1o[T]N DIM  LET  OPEN #zVAL$ LAT  LET  SAVE -X[I]<=?[A]40VAL  d@TAN hm STOP 2▞ ERASE @[Q]LI]VAL mC![S]ABS xm/>USR  REM [G]TAN -pSGN $[T]`0[S]INT }[Q] SAVE INT x REM  TO VAL$ 2EXP PEEK INKEY$ LET RNDINT  LPRINT o,:& RETURN  LLIST  LET  LOAD ▖ FOR ;?SQR 4 LINE XO[M]AT  BEEP STR$  STOP  RESTORE © LPRINT  REM sINT y|:>.LN ^COS  THEN u^ DATA Xw [A]!cVAL$ ▘ NEXT  ERASE [F]%>= PLOT  yAT  OUT VAL$ TAB #ABS  IF =vEXP JINT ▝UbN[S][Q]D IF $CODE CHR$  OVER USR  READ e`[Q]W<= GO TO  USR ABS  INK [I][ COPY  TO pVAL$ } FOR  COPY  REM  FORMAT l"[S]▟ATTR  CLEAR [K] REM  OUT [C]pPEEK  CLEAR CODE  DRAW FN  RETURN ▘|SCREEN$ ATTR VAL$ WCxUSR  PAPER / DATA  PLOT  >=LN FN /M BRIGHT X LPRINT  BORDER z LPRINT  REM  NEXT  GO TO  RANDOMIZE e+~*9 RUN [P] FLASH  OVER  THEN CODE  OVER  BEEP D,M RETURN `5BIN @[ OPEN #}^LEN Y{ SAVE I▖PACODE VAL CHR$ ATTR W[C]. LPRINT  INK  MERGE VAL$ B$[P]COS ▞[J]V0 CLEAR [B] NEXT TAB W6 LIST G[O][S]>[R]MATN  LOAD  REM CODE  BRIGHT SCREEN$ SH[F] RESTORE  AND J STOP E FORMAT  PAUSE [S](x8[O]▛"NOT [S]A8 POKE FN ▝SCREEN$  OR ▘ LPRINT  REM  PRINT [M]z<LN ^:+f VERIFY XIN }m IF  REM gD PAUSE _x_>= PAPER *OVAL$  FLASH  PRINT ]B[L]aU LOAD VAL$ U[A]YV;*+8a REM 5 RETURN  LPRINT © READ `INT ( RETURN SCREEN$  LET  IF STR$  SAVE VAL$ CHR$ 4<>PEEK f LINE =▘![S]P DRAW COS J/ LINE  OUT ▛▖ OR CHR$  STOP [R] LET SQR BIN (<SCREEN$ ▛OPIA[T]FN TAN Y LINE S[C]▞ OUT S RETURN c THEN _!_9SCREEN$ [G]1_U RETURN - REM  DATA tA THEN +jNOT [R]▝ RANDOMIZE POINT ` NEW 5[Q] `pWEXP  GO TO STR$  LINE VAL$ w(/C BEEP  OVER SCREEN$ [I]| CLEAR SIN [E]LN  LET  STOP @j[H];W".[H]ES POKE _<=I+CHR$ | LIST FN  SAVE ▙[L]| GO SUB >_' POKE Bzt@CHR$  LLIST 7 STEP UxU*UU~+C RUN  LET ?R AND ▝_ OR INT _iy ▟4zATN  POKE  MERGE  FOR y$[Q]▚▗ PAPER uTAB `2+(0 CLS rTAN W LPRINT  IF SCREEN$ 0 CONTINUE  PAPER  NEXT ▖ATN WeINT  BORDER wb PAUSE AT S3 LPRINT FN <qcSCREEN$ O'" OUT ~▖ AND ▘AT [C]=q@ FORMAT s/g THEN W MERGE 2 PRINT wS©[Q]04 LET [P]NOT BIN  BEEP [P]!@h9 SAVE ▗ LIST SGN c©_ AND X CAT >)ATN sD LINE  PAPER 2tFN [A]▟ OVER  TO  PRINT  PRINT USR [Q]Pr PRINT [ BORDER >©~R FOR  NEXT POINT ▗ THEN LN Nz[A]PFVAL$  DIM # CAT  CLS [S]pFN /[D]F^ED[G]CODE /▘[D]SQR  CLOSE #kC[A]ASN ~ FOR V[J]PEEK EXP [@*[Q] LET BABS <= VERIFY >=y▙DQ{%XABS  RETURN USR pLN "[CODE 2W(&0[T]CODE "[T] CLEAR CODE  ERASE o>>=[Q]/ACS  LINE  BRIGHT [U]SGN  STOP P[STR$ [Q]p BEEP /▘C ▜u6z=LTAN  FOR  CLS ▖▗|rATN IN  CONTINUE  RETURN ~VAL$ ?SCREEN$ V[D]:[E]C[Q]B8` CIRCLE so RANDOMIZE [G][P] IF .Q* RUN [[Q][S] OVER ©% LET GA PLOT  © LOAD SGN `?LEN USR  READ FxN COPY  COPY hK IF FSIN % POKE SGN [T] DIM SCREEN$ ©[E]Q CLEAR  CONTINUE NOT $STR$  CLS  CLEAR < CLS  CLEAR [C] COPY [G] TO TAB  MERGE | STOP QIRND NEW DQK ERASE  CAT O STEP [U] ERASE VAL  AND wJ9SIN x FLASH [A]fPOINT VAL  MOVE  DEF FN G~ TO [{9USR ~nl5mASN BIN [C]WK FORMAT EXP TAN V▛ABS [E]1 CLOSE #FN [H] POKE LEN ^[N]'2N BEEP EXP ZPEEK ▙ CLOSE #r<>b/ CAT AT [S]/VAL$  DEF FN /SGN T CAT  OR IN [S]jR MOVE [M]&g[S] MERGE  FLASH j<>3ri[K]▙LEN gk RESTORE  LINE EXP [D] RESTORE  THEN  TO SINKEY$ STOP [G]dIN  SAVE +LEN INT # REM [C]Q! BORDER L^a CIRCLE 1[T]h LET [H]U; LET  OPEN #* PAPER [H]+ PAPER d GO TO [I] OVER  LIST Q$+     C@[M]hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211HR3© POKE  READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BCOS uSTR$ gCHR$ /[D] CIRCLE  GO TO / RETURN V MOVE eV PAUSE  POKE [H]▜~ CAT V[Q]J DRAW  ERASE V<=dV INVERSE SGN VNOT ATTR ©▚V[S]B SAVE  THEN V[Q]USR Vd CAT q3▞XG DRAW  OR EXP INKEY$FN ~ GO TO x[P]SCREEN$  GO SUB  LINE V STOP _BIN [ MERGE  OPEN #V COPY  LINE CHR$ [G]i THEN mRND TO  LOAD [N]R[mASN  INK -[R] READ NOT [F]?W LOAD SCREEN$ [L]xQgVAL r# DEF FN  PAPER j<d[A] READ  LINE eSCREEN$ #k NEW sTAN c LINE  OPEN # RETURN VAL$ o CIRCLE ABS  AND  FLASH ▗g OVER USR Y=" LLIST SGN J GO SUB l[N]ZTAB k<L]VAL$ 9<>RNDpRNDNOT PI-CHR$ &cCHR$ [O] DRAW PIe VERIFY w{ ERASE  LET STR$  INVERSE AT vo COPY  BEEP  PAUSE I OR [F] STOP } RESTORE  LINE 5[I]r OUT oB[D]k/[B]Zo BEEP  DRAW  STEP AT SCREEN$ ▜ MOVE  LINE go FORMAT  COPY Lo OPEN #yo% GO SUB [M]FN  BRIGHT 9ooi[g{y FOR [ TO VQMVAL$ XWRND POKE [E]NOT 8 THEN [M][K] STOP [D]y[F][D] NEXT C[C]ASN [B] VERIFY .8 MOVE  OPEN #INKEY$ NEXT [J]t PAPER j<>[L]9 LOAD Z STEP USR P STEP 2^[J]jgC LIST <>xfSCREEN$ tD& FOR POINT ▝[I]POINT g0ATN SCREEN$ PIC<= BEEP  PAPER PI(LEN USR 2% DRAW K COPY  DIM  CIRCLE |▜! COPY ?[#▛<>| LIST L STEP  SAVE o[B]ATTR [J]RND[F] LIST IN {^ DATA ASN  INK 0 RETURN  RANDOMIZE  RESTORE  NEXT  STOP  OUT  NEW  NEXT X AND $$ NEXT SCREEN$ g^ MOVE a[H]1 CLS oX▖) SAVE v[K][Q] COPY G|y AND ACS  BRIGHT R PAPER SQR EXP AT  STOP y[L]wd REM SCREEN$  OR kmG AND m>= POKE COS c PAUSE  POKE LN  OUT [C]; VERIFY I[H] DEF FN  CONTINUE `[T] BORDER uPEEK  OUT  AND e FORMAT [I]INKEY$<= STEP SQR  GO TO j CLS VAL$ PI TO NOT  CLS  LET P[N]y#~}K*INT [D]IH OVER NPOINT  LIST !e RANDOMIZE f NEXT  RESTORE  PAUSE  DEF FN l LOAD ( STOP =▝- BORDER /1▞SQR  ERASE <> CLOSE #y[O]EXP S STEP _.C LLIST = OUT L/ DATA k©LN ^T▛htvSGN ▞[D] DEF FN SGN _: FLASH [P] STOP E MERGE ProAT Tack▗q GO TO 3. COPY compilatqn COPY  AND  DIM McAKER/FT~[O]L:UZIC SAVE 4= AND AGUACS NE VAL LN ABS ©C STEP  LOAD  BORDER #+|+ GO TO  FOR  RETURN YVAL$ P[P]ASN uLEN SQR INKEY$ OPEN #CODE STR$  BRIGHT ▝5BIN  INPUT  SAVE  CLEAR NOT W CLOSE # SAVE COS  REM  OPEN # CLS ?'*!$-0n CAT > COPY MFN ATTR U RESTORE  INPUT  PAUSE  PAPER < RANDOMIZE k[F] CLEAR b}▜yv6INT ▜ACS  MERGE ACS `▖ZAT vt0UACS yVAL  MOVE SCREEN$  CONTINUE  PAPER  BRIGHT  OPEN #▜jSIN - PRINT 1 BRIGHT ▟VdPEEK SCREEN$ uINKEY$ READ  RETURN ASN  LIST IN (LEN {v}#}USR TAB :RND OPEN # MERGE -ySTR$ INKEY$LEN LN y PAUSE  CAT PI▘ LINE }pV▗BIN  P[I]▚RND▜▞[T]*zm▘/{ CONTINUE  NEXT  TO LEN  Du@USR d6▞▞ DRAW  FORMAT  STEP  LIST tznjN[R]}oPOINT # THEN INKEY$"F INPUT  LLIST FN  FORMAT  NEXT PI[P] RANDOMIZE AT D"[P]PEEK SGN  LET c}CODE vtGRNDx▗ATTR Z`CHR$ PEEK d COPY  INPUT SCREEN$ Y[A] LPRINT T RETURN POINT S STOP W<=V IF  CLOSE #G`{5QX LIST  INPUT  GO TO  DEF FN ▗ DEF FN  FORMAT  STEP UCHR$ Z TO  CIRCLE [T]▖ PAUSE uRCODE ▞ THEN  RETURN  SAVE Y{▘c▘ OPEN # DATA  PAPER  BRIGHT  PLOT   LIST  INVERSE 1 CLOSE # RANDOMIZE  CLOSE #[U]▜3 OVER dVAL 3SCREEN$  OVER ATN ▜ATN R OPEN # LINE JPEEK  LINE  STEP %vRND5 BRIGHT  INPUT [T]▗ OR ▘[T]d STOP  PAPER  BRIGHT  VAL  BORDER  STEP Z[B]Z CLOSE #w|jq PAUSE `Xo POKE G[Q] STOP ▘ SAVE 1n LOAD  FOR 3} DATA .}ABS 8 INPUT  REM  LLIST  SAVE /OzxxTAB 5v CLS STR$ RNDTAN  OPEN # MERGE VAL$ ▘ IF  SAVE  LPRINT 6 LINE  MOVE  RETURN  COPY j▗ATN [E]/fl BEEP f^AATN nz[B] THEN  LINE <>0 CAT >=[J]F>=. LIST [G]NOT POINT  BRIGHT SQR ▞LPJ GO SUB ▜USR [e_= LINE INKEY$=C*8 GO TO >=[T][O]<><> PLOT  INT <>O TO  LOAD <> DRAW L GO SUB >=ABS ▖▞'LN  RUN  STOP PEEK ) BEEP POINT SQR CODE ~DSQR `ABS [A]`q▝`▟NOT 2u{ RETURN  CAT  INK rz AND ▙ CAT Y LINE ▟ PAUSE NOT Y<>( FOR ▛▞▛h BRIGHT ▚ COPY aZgCOS j CLS G GO SUB  CLEAR LN  LINE %ACS * ERASE 1 CLS nATTR  CIRCLE ▙-2 RETURN LN 1▞[M] CLS [E]▟ PLOT   VERIFY INT [A][O] LLIST zlZ FOR NOT eVAL 2 COPY NOT FN  RETURN ;LN U CLS  MOVE | MERGE USR NAB2    CUSR 3hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211HR[U]bzEXP LEN TAB [U] DRAW  BORDER [P] COPY 8 NEW ZASN  PRINT 1g CIRCLE INKEY$ TO POINT  OUT  INPUT  STEP <@ LINE  DRAW _PI COPY  RETURN  NEXT [B] CONTINUE 0 THEN /& PAUSE ACS ] POKE Y| DEF FN < FOR  LINE  TO  STEP © MOVE  CAT {[C] FOR  CAT  LLIST  PLOT   NEXT X COPY  CLOSE #▗ IF  DRAW ! @ LPRINT P[C]? PLOT  8 COPY [H]EXP SGN ©▙CODE ▝ COPY  LET [C]_[J]USR  POKE FN  RETURN >KBIN S▝ FLASH }R[P#8 RANDOMIZE  RUN  CLS SQR H BORDER SCREEN$ QF=IN ATN ~ LOAD  FLASH PEEK TAB SQR  COPY  PRINT [M] CLS  NEXT INKEY$EF NEW  OUT  INVERSE  CLEAR  FOR  BEEP [S]F THEN ▞ FLASH  CIRCLE  CLEAR  CAT  IF e~ GO SUB ^IN { LOAD  BEEP & CLEAR ~TAB  IF _ DRAW F©>n RETURN  IF  RETURN FTAB  PLOT  yzABS  OVER  CLEAR  THEN  NEW  AND  INPUT ©PEEK [N]U IF  LLIST STR$  RETURN  REM  LET z INVERSE USR  LINE  MERGE { DRAW v TO  DRAW INT UCATTR I+▟}}* ERASE [T] VERIFY ▟B<z MERGE IN u CONTINUE  BEEP PIESCREEN$ C LOAD  PRINT  CLS [S]SRNDJNTAB  OPEN #[K] MOVE SCREEN$ y FORMAT  AND  FOR  VERIFY CODE ACS LRC RESTORE ATTR ▜3) LIST AT N RESTORE  ERASE [U]CINKEY$ STEP F_PEEK }LN TSCREEN$ UF BRIGHT  NEXT ,^INT | POKE  RANDOMIZE .U▛*ATTR XPEEK uF SAVE  CLOSE #i[S]U#-YSGN SIN oSCREEN$  RESTORE CHR$ RNDJ& CLEAR Q|LN t LIST P OPEN #L IF FN A* DIM POINT USR EVAL y LIST [M] STEP RTAN [R]O LOAD  INK PIM RETURN QZ MERGE [K]uPAT  FORMAT i[O]V?aCODE uINT yVAL YpJ[S][N] MERGE  ERASE E SAVE RNDDSACS  GO TO  INK 0IN 1ESTR$ jATN  FLASH [K]^ABS CODE QOc[C]▛ OR EXP  MOVE CODE VLCOS INKEY$RFN  LINE q[L]I[P] OPEN #▝ THEN fAT  LIST 4{[F] OPEN #TAN O/,H] SAVE NOT  DRAW qh[B]F▘TPOINT <=ZzSGN XF[Q]RND COPY  ERASE ▟[F] STEP  GO SUB ASN [J]@LN  LOAD [H]TAB  POKE a GO SUB  INVERSE [N]T OPEN #▞SGN TAN }PEEK ▘s NEXT VSGN Z } IF mlL LIST R@INKEY$C]. SAVE o:T[Q] RESTORE ASN [L]PI▟sVAL LEN E DIM  OUT TAB ▜f0PI POKE  OPEN #YSIN q[S]UCSGN [C]1we▛ AND  FOR NOT COS LN  RETURN  CONTINUE 6ATTR © REM  CLEAR  LINE  LPRINT M1COS  COPY FN 9[N];Dl[L]9 RETURN PI^ BRIGHT  CLOSE # NEXT  BRIGHT K RETURN  CLS  REM TAN  MERGE  LINE [H][M] LINE  CLS  STOP  AND ▖[F]FN AT [N]NOT COS SGN ~▝SCREEN$ JVO[P] AND ABS  DRAW TAN ]Ev CONTINUE EXP ▙©9< BRIGHT [F]ATTR SCREEN$ $M CLS  CAT SGN  THEN q<= BRIGHT  RETURN [M] DEF FN  OPEN # COPY  GO SUB  IF CODE Q VERIFY ▘< ERASE  SAVE x CLS  CAT 1ACS ▚ATTR >IN  COPY <>6[H] COPY F RUN _CODE  SAVE 7<= BEEP  BEEP  COPY ASN  NEXT m READ /lCOS TAB _LEN  INPUT  COPY  ▝ SAVE "1+WABS oIN }CODE Fj POKE  COPY  PLOT   OUT  RETURN © PLOT  VAL$  PRINT ;{ PLOT   GO TO F▛X LINE [A]* CAT ngSIN ASN 2 DIM  GO SUB TAN  PLOT  ATTR /z PLOT  ©|ATTR _ COPY  READ  OUT | RETURN  CLS  RETURN N3 INK  INVERSE D CLEAR  THEN  PLOT   LOAD $NOT ] RETURN _fcD IF ?1g CLEAR PDafc LLIST  NEW gPILEN SIN LN  TO  INK [ DATA ▝l AND  THEN  OVER  DRAW [M] RANDOMIZE PEEK  DRAW [Q]©*CODE _?f2CODE  RETURN [G]ABS  PRINT  DEF FN xCOS LN  OUT  NEW  OVER *D GO SUB INT LEN  CLOSE #ZEXP POINT 9FN DVAL  INK  GO TO  PLOT  z CLS wVAL$ /EXP p NEW <>PI2 GO SUB ▝?[J] THEN  COPY  GO SUB <▗ PAPER  PRINT FN T RANDOMIZE SCREEN$  REM ~ COPY  RETURN uOIN CODE 5o?^ATTR BIN ASN  RETURN [^SCREEN$ W[I]+ LIST U PRINT [J] AND [Q]RND[M] TO &[N] CLS CODE c[K]{USQR SIN T2U LOAD  RANDOMIZE PEEK zCODE j4EL GO TO ASN [M]XLD MERGE  NEW  LIST ` PLOT   POKE  OPEN # CAT [M]q NEW  OR [K] OVER INKEY$+/▞<dy LIST  CLS  CLEAR  BEEP }< DRAW 1LN SGN  DRAW [P]▘ FORMAT  BORDER [P]x STOP 6 NEXT  VERIFY [I]QIN AT  READ [E]NOT o[M]y DATA  AND  PRINT  ERASE INKEY$ COPY  LIST ATN  RUN <= FLASH  OPEN #▚ GO SUB  LOAD  BORDER > LIST  INK  PAPER CHR$  CONTINUE ;▚ GO TO q[M]▘o BRIGHT NOT & LOAD  NEW fBIN  LLIST  DRAW  READ l PLOT  g VERIFY [T]} COPY  REM .[K]FN tINKEY$IN  INPUT ?ir CLOSE #H>ASN *U▖[B]n MERGE |OINKEY$ INVERSE  REM PVAL$  CLOSE #POINT  OPEN #[R]y~YU[K]LINT SGN i BRIGHT e▘* OPEN #VAL$ b INPUT  COPY AQ▖RINKEY$MI: OPEN # BRIGHT jU[Q]4 STOP @▟OCODE w IF  MERGE j OPEN # VERIFY  CLEAR  DIM [J]5W▙ RANDOMIZE  NEW ] FOR T THEN z READ INT [F]H5=y[N] REM  OPEN #n▘U▙P AND ! LLIST W[K] TO [L]"STR$ f CLEAR j PRINT {[G]c VERIFY Wi` BEEP / OPEN #O OPEN # CLS  CLOSE # FORMAT [I]u[Q]D CLS n3 DEF FN  LOAD  MERGE cl~ LINE VAL$  OUT 5[K]s▜ FOR  RANDOMIZE /INKEY$SUSR [I][S]pASN ©[K]p NEXT fk▛ INVERSE POINT  MERGE [R]dgLASN [P]POINT ASN  AND ATTR  LINE INT 95^Q LIST ~INKEY$}6▚ACS U RUN  CLEAR  PAUSE B INK { LIST  LLIST M COPY h~? CLS M BORDER BIN ©<= READ NOT Mz OUT  LET  DRAW  RETURN ` SAVE  SAVE  LPRINT M©NOT LEN w; DRAW M BORDER  NEXT }PEEK [P]?REXP  OPEN # OUT <= SAVE  CLS [R] CAT o OR  POKE ©IN <xSTR$  ERASE ©[P]ABS ={ NEXT  CLEAR M NEXT Xl RUN  OUT 3 DIM  LIST  NEXT  LOAD 7 COPY  INVERSE IN CODE  PRINT  BORDER H IF  DEF FN [P][N]9SQR w CLS SQR  NEW  DATA O OPEN #IN nCSCREEN$  PRINT  PAPER  RANDOMIZE < CLS  FORMAT  OVER  POKE C RETURN TAB ABS *V INPUT TCATN 7ACS wkH_FgvenATTR  DRAW 7 LPRINT  INPUT  GO TO T©[M] READ  GO TO  CIRCLE LN - THEN LF CLEAR ~wP PAPER [E]SCREEN$ ▗qwpAT >= RETURN  RUN JE> STEP  INVERSE  LIST rko^ COPY ?5 ATTR 0q OPEN # SAVE  SAVE /q RETURN  FORMAT STR$  COPY  LIST [Q] COPY 1 DRAW FN USR  MERGE  CLOSE #U©^|Dfy5 BRIGHT ACS ]FN  AND  BORDER  LINE CODE k READ  FOR  FLASH  TO / DEF FN @o OUT Df[F] FOR $AoDSCREEN$  DATA SQR  FOR  POKE i( BEEP PEEK  AND $©Oi6 LOAD  RANDOMIZE e-JA CAT  LPRINT  VERIFY  FOR W[E] COPY tVAL$  DRAW  SAVE  LIST  LPRINT "<=[ PAUSE 8" STEP ;©? COPY STR$ 5+b CAT SGN  RETURN SCREEN$  NEXT  CAT rUSR  LPRINT P CONTINUE  DRAW  INK SQR SCREEN$ SGN INT PEEK  LPRINT >CASN  RETURN  PRINT IN Q OVER ABS *©/4] LINE _B[S] STOP WRND BEEP [T] PLOT   GO TO INKEY$DU▚ LET { READ  RUN  BORDER  STEP ▗ BEEP PI OPEN #g>b MERGE F LIST p[F] OPEN # PAPER ▘©C OPEN #Q*t:uhg7U BRIGHT !TAN 8[L]▚9 LINE  COPY  RESTORE ;/INKEY$yE COPY TATTR  BORDER #BIN 9 STOP  MERGE  RUN  DEF FN 8 PRINT  LINE  CLS [H]©;[M]g{ OUT  LPRINT  DRAW PEEK ? REM TUCODE ]S6` OUT %/E STEP ,B DEF FN PYBqVAL$ BIN WIN wFSCREEN$ [S][B]" MOVE [I][O] OUT  LIST ]CODE UFh RESTORE [D] PRINT () OR USQR  RUN  DRAW  ERASE LEN  REM  PAUSE  CONTINUE  MOVE SCREEN$  STEP [Q]E OPEN #[P]/SCREEN$  COPY ASN  ERASE  DIM  PAPER POINT o RETURN :o_/[S]E? RETURN ▘SCREEN$  INVERSE ?}z INPUT 14SNABS P▝PI PRINT  OUT IN [K]L[Q]P CAT /~x/ OUT LN q[Q]Q IF  MERGE  FOR ; PAUSE SQR  DEF FN  SAVE IN ^^ LINE [O] OVER CODE  MERGE COS STR$ A NEXT 7E[Q]D BEEP  NEXT © PAUSE _ OUT ATTR CHR$ RND OPEN # RANDOMIZE  REM  LET 1Y▟ BEEP E[Q] FORMAT [T] MOVE BRND8keUPI CLOSE #ATTR IN [J]PI CAT  BRIGHT bPOINT s LET / THEN  ERASE  LLIST  PLOT  SCREEN$ q=? RUN [E]MO8INKEY$TAN  PRINT SQR  ERASE  TO [P]▛" FORMAT LEN  DATA Jin(e▘E(VAL$  STEP IN Cp[Q]$VAL Db STEP :_ TO " INVERSE SCREEN$ 3Es POKE  GO TO Mw= OUT CHR$ 4 FLASH IN  COPY _NOT G!© STOP TINT ~:4[I]USR [Q] DRAW = CLOSE #3 TO  INVERSE SQR Cq▛o[E]EVAL$ ^5CODE PEEK ABS HVAL$ O_CODE .TV'/:SGN [F]▞U DRAW IB*[S]"[C]▗I[A]A CAT [U] MOVE EXP AI[F]3 RETURN 0SCREEN$ 5INT 18IN E|SGN  RETURN  INPUT  PLOT   IF  CLEAR /IN *} CLOSE #vPEEK  DIM C INK FN  OPEN #POINT ▙ COPY  PAPER 'd RETURN SCREEN$ CODE TUFN  BIN Z POKE  RETURN /T DRAW  IF ~ BRIGHT  SAVE fw1VAL$ * COPY 0jFN  CLEAR $n PRINT `LN [C] MERGE 2 READ ^ VERIFY  COPY |x OPEN #u DRAW  LIST  RETURN ?bj POKE  SAVE SCREEN$  CLEAR P NEXT ▖ PRINT T[O]INKEY$TAN ?[J]Z.z BRIGHT USR *3|( AND  DRAW [F]nSQR SGN [H] IF IN  OVER _INT ATN  DRAW SQR  PAPER = POKE LN x[ RETURN Vg COPY POINT  NEXT > LINE { DATA 7 CIRCLE pACS d CLEAR INT  LPRINT ▗ CONTINUE +X©t{[K] DIM PAT SCREEN$ [F] COPY  THEN ]BIN CHR$ © BRIGHT  DRAW  CONTINUE  RANDOMIZE d FLASH  PAUSE  CAT  INK  CLEAR  LIST  COPY  OUT  RUN  STOP y▛ STEP  OVER FN tSCREEN$ [I]IP`RvINT : BRIGHT  POKE  SAVE w LPRINT  LOAD  PRINT  DEF FN rlTAN  STEP SIN  INPUT uCODE  PAUSE <= DATA VAL [P]U!@© RETURN <= RANDOMIZE NOT  LIST  BORDER  RETURN  DRAW  LOAD  RUN  INPUT w GO SUB ATN >>=cl INPUT *[D]RaAT TO  STEP PI STOP O NEW VAL$ LASN TAB  NEW NUnUSR W RESTORE [Q]'/ T  DRAW  OUT ABS JL LPRINT ▖W DATA / POKE ▙pp OVER [Q]▟SIN  LPRINT  Q▝[Q] AND ZD[P][M]CHR$  LPRINT oSGN  PLOT   LET p,0VAL$ u/ AND  NEW  LIST G DATA  PLOT  [N]PSQR @} PAUSE "@*▞USR ▝R$ BORDER  PB[Q]#BSGN ASN CODE O2 VERIFY  PLOT  P[B]lNOT  BRIGHT [Q]hASN USR $ PLOT  = CLOSE #^SCREEN$ IN  LET nhABS =[[I]ATN  STEP  LPRINT 1wINT #INT  REM ©ASN [T]b[▞COS Tk[K] OPEN #MnINKEY$o[H]LN COS {P5▘ j$ AND  TO  STOP * COPY [S]VAL VAL$  INK / GO TO EXP  PLOT  pz NEW <> CLS PIw2©NOT  BORDER  SAVE  NEXT  RETURN }wPEEK ;[P] DRAW ? OUT ©v COPY <pBIN  LIST ]FN :IN u_SCREEN$  OUT ?PEEK [P]ASN FN 4USR  GO TO  COPY [K] COPY u GO SUB  VERIFY  IF  CLS CODE  CAT Q1ATN ?ACS ▚> PAPER  LIST ▞ MOVE  LET  INK > OVER ABS TAN POINT  MOVE  READ  COPY  STEP J[K]6 RUN  PLOT   RANDOMIZE / OVER  PLOT  ] FOR  GO SUB  THEN &o LOAD .< BORDER  RUN uwog CLS ▗> FLASH  RUN  RESTORE  SAVE /? RANDOMIZE SCREEN$ W[S]MEXP }o▖PEEK FD RUN  LLIST  VAL rf LPRINT 1<>[D]7nAT / CIRCLE YEXP 2e LLIST  OR  DEF FN BIN ▖[D]'n[M] CIRCLE LN SIN qaVZM:#TzrUSR VO RANDOMIZE &{ MERGE  RANDOMIZE [K] CONTINUE USR [K]^iZ? RESTORE w RESTORE  NEXT  LINE P PAUSE  INVERSE  BRIGHT ▗o STOP USR > DRAW C IF  STOP  LOAD  AND  INPUT [P] THEN nc▘<=PIVAL$  [T]/`5 COPY  DRAW ▗K{E<= COPY ▖[A] LIST ~ GO SUB E @1U NEW IN 9v}?E COPY  DRAW [O]ABS  CAT R RANDOMIZE O DRAW  IF ©ABS  LOAD  CLS  RUN 6 RETURN cTAN XAT  CLOSE # REM  VERIFY < STOP X AND  CAT ▚G VERIFY [K]7 GO SUB  MERGE ty PAUSE  OR  POKE  CLEAR ABS ^H_IN  INPUT  PLOT   REM  RETURN 7 CONTINUE TFN pUSR  RETURN ?=E READ [M]"UCODE [L]'o}ESQR oIN D LPRINT [F] LINE / CLS [B]P3i[R]76PEEK  RANDOMIZE  RANDOMIZE  NEXT  PAUSE GRd DRAW ASN FjV FOR  OPEN # STOP  OUT [P]gcS8CODE W LOAD  CAT G[L]J LPRINT ABS  RUN  REM  REM F8DU COPY [S].}z MERGE +_G[H]©7U COPY  FLASH 1?ABS  LIST e*ASN  CLEAR F COPY  PAUSE [P]] OUT ATTR  RETURN T0[M]VAL$  STOP /PpATTR 3z[U]<=? LIST  FOR  RETURN  RUN ▟KATTR [SQR u DRAW {MTAB  VERIFY INKEY$ LOAD q? CLEAR [T] NEXT  FOR  ERASE  T CLOSE #ztFN ▝< LOAD  CLEAR ▖8Q#G RANDOMIZE  REM IN  LLIST FABS VAL$  RETURN  PRINT >=[A]oATTR pm9p BORDER p AND ABS _ DRAW Z[L] PAPER CHR$ NOT  OPEN # FLASH  AND <RIN 2pSIN GY| RETURN  FOR } COPY  BORDER [L]UCODE @ LPRINT  PRINT OVAL  DRAW =?<;:>G SAVE  BORDER 7^ PRINT  OVER [Q] SAVE G7> GO SUB  CLS  LET 1 PRINT  RUN  LINE OLSCREEN$ G SAVE h[A]k COPY © COPY  MERGE ATTR  VERIFY TAB ? LIST  FLASH ATN O COPY  MERGE kASN  FLASH  GO SUB  BORDER  IF  LIST ©IN  SAVE V OUT  IF G IF  GO SUB FN  MERGE RNDG▟ THEN v^}m OUT ©[I] COPY GSCREEN$ Q[I] MOVE h LET FSIN y_ CIRCLE o?; RESTORE LEN  MOVE  CONTINUE [A] READ ▚TPOINT <qTAB /SCREEN$ [Q]Fo>ilINKEY$J▟ LOAD [S] FORMAT AT 0P[R]▘ PRINT  AND ▞SIN e[S]EVAL$ [H]rSCREEN$ ~TAN @ CAT M LLIST  OPEN #[S]X_ OR  LOAD  RANDOMIZE ATTR _?ZAT PT READ [F] LINE J© INPUT c PLOT  u RANDOMIZE f RETURN  PRINT ( AND  STEP  VERIFY  INK V RETURN  CLEAR  INVERSE u~}PEEK ABS  VERIFY ▚? BORDER Fv BRIGHT  DIM BIN  DRAW  MERGE  INVERSE NOT JrY</ MERGE  CONTINUE sNG<= LIST  GO SUB POINT  CLEAR  PLOT  7PEEK  FOR IN  SAVE  LIST FIN  IF  INVERSE  PLOT  POINT  AND =F RETURN PI ERASE [R]VAL  LLIST  SAVE _ COPY  LOAD ~ATN {.IN ~ DRAW sE[P]!F[O] BORDER  NEW srCOS E RUN  GO SUB Z BRIGHT POINT [C] PAUSE s▙0l LIST USR ▞[B] NEXT <> DRAW ISIN rf DATA  STEP <>[L]E% LLIST  LINE BIN [B]"ATN  INPUT  GO TO  BRIGHT  CIRCLE  INK EXP SIN USR  OUT  FLASH j[E]>=VAL [S]Tb[G]b COPY m IF giL[F OUT ~CODE _ATTR  RUN  FOR w'F;/ RETURN  INVERSE  FLASH ▟k LOAD  FOR F[L] GO SUB ! PRINT EXP  o CLEAR 2 BORDER  STEP  BEEP  RESTORE SGN / LIST  MERGE  DRAW USR  LLIST PI[P][%<=/G< PLOT   FOR  PRINT  CLS V GO TO xv-z5| CIRCLE  CAT ©Gl DATA <=| IF i NEXT  PAUSE D[N] RUN  RANDOMIZE IN F? COPY [ COPY  LPRINT  LIST  DATA #▜[K]@]<=<= FLASH ?NA_ INPUT a/USR `M DIM [Q] CLS  LPRINT  MERGE  SAVE _ CLEAR  RETURN  IF N BRIGHT  GO SUB  SAVE  CIRCLE p` COPY 1<> COPY xSGN |F[I]Y AND  RUN ([D] OVER  DRAW  FOR U`, SAVE  LIST [N]SCREEN$ uATTR  PRINT SGN OcFN T/ PLOT  ABS C OUT ATN  STEP PI GO TO { BORDER  LOAD kFN  POKE  CIRCLE o POKE  SAVE  CONTINUE - RESTORE * UIN  PRINT C>/TATN  CLEAR SCREEN$  COPY sXT REM U[S] RUN *w' CONTINUE ABS  BORDER  FLASH  FOR u[S] NEW w[Q]▝UCODE  CLS h+ BEEP  STEP  RUN  PLOT  ACS 0< NEW  GO TO &:/[[P] RUN ~^ LOAD g RUN  NEXT e READ [L] STEP  OPEN #ATTR [A] TO 3 INK  MERGE ]▝ne©<= LINE © MERGE L© MERGE  LLIST 0 OVER  PAPER  AND ©D RETURN ATTR ▚yzYsbDPEEK  DEF FN  CLEAR  GO SUB  PLOT  LN IN GDxsPEEK ASN j LIST B COPY  OUT  INPUT  COPY  BEEP  OUT  OPEN # LOAD [H]C▞ATTR  COPY I CLS  FLASH  NEXT  DIM  PRINT C[P]O_-~ACS CPOINT 2i~Jmy DRAW [J]| RANDOMIZE SGN ;}jF REM  RETURN CODE ©_[M]F CLOSE #INT  DEF FN LN 5[L]SGN LEN ▘ DEF FN POINT [R]6- OVER  GO TO  LINE RND:/ CLS  PRINT hF[O]©VAL$ ABS ^] CONTINUE F` BEEP [J]SGN vzR RANDOMIZE ( OPEN #<VAL pBIN  BRIGHT /PI O[N]7CODE ?IN ]F DRAW  INPUT ASN  DIM  LIST SCREEN$ B[Q] DRAW  PAUSE >© PRINT  REM  OVER IN vABS rP+oINKEY$▘SGN L[O]>~]L RETURN  CLEAR r%▛cPOINT 0ABS Rm> PRINT  RANDOMIZE  GO TO LN 8 PRINT c▚AT  IF Q~o[T] COPY  RESTORE C MOVE [M]TAN  SAVE  STOP t CIRCLE C GO SUB x[E]wJ)m PAUSE FN  PAUSE = CLOSE #d IF W VERIFY ~ GO TO %C NEXT [B]©ASN LN  BRIGHT j CONTINUE VAL  RETURN bTC?q`w^pAT  BEEP F LET  COPY  MERGE SCREEN$ [F] IF ]j SAVE RND*SPBhPOINT  INVERSE JzTAN  PAUSE  OVER  LET G} RETURN  OPEN #b NEXT qG;ATN  CLEAR `[Q] FORMAT  LPRINT EXP  BEEP [M]G<=ABS 1CODE  CLEAR  LIST  STOP  RANDOMIZE G FORMAT ?qn#8VAL$ 3kW FOR  BEEP ATTR  OPEN #G IF 5USR  PAPER o RANDOMIZE ©Gv PAPER ASN ZVPEEK qIN _-7ESCREEN$  PRINT BIN XG CLEAR w3 GO TO  RETURN o[A]- RETURN  POKE FN  DRAW [P]/8) LLIST q OPEN #IEX SAVE [S]S FLASH O LOAD Ta BRIGHT  CIRCLE  CLOSE #Xc<):( RETURN  LIST  DEF FN  COPY E]SCREEN$ o THEN  OPEN #K BORDER E[G][D][E]CODE SIN 8AUSR _~6CODE  GO SUB ~ COPY  IF  ERASE  DRAW  CLEAR jE[E]COS bsRNDSCREEN$ =[P] BORDER 4INKEY$© CAT "▘B©nD RETURN ▜;*EdX[Q])oT^[COS ,SGN n: DEF FN  PAPER j MERGE  CLEAR P BRIGHT {:▘COS  DEF FN  PLOT  R IF  LIST c REM  PAUSE ACS Z PAPER ,V▛ CLEAR ETAB [[F]2d LPRINT Q[P]POINT P▚ GO TO ZACS x: CLOSE #`a7[I]M STEP INKEY$PI{? COPY /T BORDER  PAPER  LOAD D[P]oE<R LLIST  ERASE F INK [R] IF  PAUSE W RANDOMIZE o RETURN SGN ASN Z CLEAR RND DRAW AOACS  LPRINT [Q] BEEP l;^ OVER  RETURN ~ INVERSE PEEK D[N] THEN #D=o BRIGHT  DRAW ~vSGN jPEEK [M]TAN JTFN U  AND '▖ADH2▜1" ERASE e OUT TAB <>//G: BEEP ▝FN  ERASE  LOAD v POKE  OR (yINKEY$Q7 COPY  GO TO uIN CHR$ ©▖[F]SCREEN$  INVERSE  FOR e3N BASN "@FN  OR  DRAW [L][K]pDiY  CLS  POKE  COPY o`F BORDER kO. READ UVAL [A] TO 2[O]rN[F]Z DRAW  COPY BIN UF?j INVERSE ▖[S]wu[J]E DRAW  PLOT  <>▝y REM BIN © STOP [?p LPRINT F CONTINUE U▘Q GO TO  STOP  CLS  RESTORE u'[A]▖^GDU RETURN  GO SUB  PLOT   REM  CLOSE #FN USR 0` FLASH  READ OXlFE DRAW 4lcAb RETURN ▚, CIRCLE ABS EH>=l7S CLS c[A] CAT e?]o© INK DFN ACS @C=Y CLS  LPRINT  STOP ? FLASH  MERGE 1~ LIST I|hzu(C CIRCLE  GO TO  PLOT   CLEAR v|:BINKEY$SQR S[Ce OUT  CLS #Fm DRAW  CLEAR ;[K] CAT  NEW  RESTORE SCREEN$ }RND{w5<VAL$  RESTORE  CAT  THEN [O]▝*>UsACS TAN EXP [I]Y INK TAN ]TAN mTAN  READ t CLEAR [F]Fy LIST  DIM  ERASE RND NEXT r SAVE b+z BRIGHT ACS  LPRINT ▘ COPY $0LEN isBIN PIf?"COS %U[L]!( THEN VAL 3*[K]o0 LIST 5" AND  REM 7 $;2C LIST iSTR$ I▜Z[T]M INK ACS "QASN MEXP  CAT 1Y TO ASN VAL / CAT ] DIM _ TO POINT aABS ko LINE b SfASN [U]QuB PLOT   INPUT ▚▜$ASN  LINE [K] TO  LIST ▙[A]>LEN [D][H]-[F]kk[I]<=[M]INT m[N][P]ATN Z OR [T]▟ACS CAT LN  GO SUB ACS SGN kATN USR  INVERSE LJBIN [P] LLIST  AND  FOR <=m[L]J LINE  FLASH  STEP  FORMAT v FLASH  CLOSE #ACS  FLASH  CIRCLE [ INVERSE  BRIGHT - CLOSE #2 LPRINT # NEW  OPEN #AT ▝ GO TO  FORMAT  GO SUB  FORMAT LN >= LIST  INK  NEW  LET ▝q▚= FOR ▛[A][O]AT g[T]ATTR COS [O] PRINT LN ABS  VERIFY COS CHR$  LINE  ERASE  PAPER  CAT z OUT  DATA  CONTINUE Y DIM  INPUT  NEXT  CLS [O] INVERSE r VERIFY COS  CAT z'/ FOR Y49>Cg=HM PRINT AT RW/aCOS [O]inz VERIFY sx}▘Y CAT ▜ THEN  CONTINUE [B][J]7 AND  LINE <<= LPRINT P RUN "![R]bC PRINT *J PAPER ! LLIST x REM ( STOP P OVER p LLIST  SQR [G] PAUSE  GO TO m8USR > LOAD SQR gcQUSR 7CHR$ , FORMAT tIN [C]b!s( DIM  INVERSE ▗[A][R]a& MOVE 8}8x NEXT [A] SAVE IN ▟PI, COPY "▚p LIST >= [I] BORDER VAL$ $BCACHR$ [A] LPRINT <T0(DG LLIST  INK m LPRINT `"<[Q] CIRCLE FN "yp▝SCREEN$  CAT  VERIFY [C]}mUSR w NEW  FORMAT 0 DRAW  TO 8m[Q][Q] CAT lm CLOSE #[A]D$b& RUN ▝: ERASE WD NEW  REM k INK  N,LEN 0^ LET  BRIGHT  PAPER l1 REM  OR  FORMAT [O]<> LPRINT [I] GO TO [C] FLASH ? LIST [Q].W TO ▖lBIN ATN = PAPER SGN /H([Q] RANDOMIZE :[N] MERGE CODE @ NEXT  RUN  RESTORE POINT 6 DEF FN  INVERSE e MOVE  OPEN #|[A]< PAPER  RETURN (g&[P]VAL$ 9 NEXT PEEK ,0xp CLOSE # RUN ~$ COPY ` LPRINT  CIRCLE h LOAD ,^TAN ▖F* CONTINUE Np▞POINT [Q]0(iHTSTR$  SAVE %W MOVE  Vjh[Q]DPEEK VAL$ @ LPRINT  MERGE :8~l COPY CODE k[A]ACS b@ SAVE  RUN +3TAN & POKE mF4d NEW L>oTT] RESTORE SCREEN$ LN [A]PI<=D&H>=<e6 FORMAT n OR  MOVE | LINE S CLS USR IN <Bgk[T]3 TO 1fSGN CODE c; COPY @cAG CLEAR  THEN  FOR ?(<COS IN  CLOSE #[P].▛ RUN gPI GO SUB e/▙"EXP  OVER n DEF FN *▟ DEF FN lSIN ©POINT  CAT _J=1 LLIST [S]SCREEN$ F REM  PAUSE  LPRINT  OVER  CONTINUE [H] CLEAR POINT 8P~ATN  CAT N$(/.3G>[G]▝ IF  LIST ▖[A][A] RETURN 1 CLEAR [Q]~TAB [N] BEEP [Q][O] LOAD [B][G][P] BEEP  CLOSE # OPEN #WINT  IF  IF > COPY > PAPER  REM  LOAD oO|KTAB INT 0F!VAL ,n8STR$  LINE . PAPER  CLS DB DRAW 3 LPRINT YLEN  GO TO >VAL N PAUSE  STEP ATN .<,"B5cIN W-AT  AND ▗6 FORMAT  DATA qACS SQR b[Q]zq PLOT  g OVER  COPY [E] GO TO 9 LIST l&} SAVE  STOP  BORDER ?PI RETURN ]?©d&Y OUT  GO SUB _ COPY  IF  CLEAR > COPY /![K][I]▙m CAT PEEK PEEK  SAVE ▗ PRINT  FLASH COS tPI CLS 'Gh(@ OVER $BIN eD)= PLOT  w" AND [U] SAVE  FORMAT  OUT  DRAW >" USR ▖[R]X OUT COS INKEY$USR  IF :FoINT 0$` LET L RUN  CIRCLE  MOVE `-TAN l% RUN + PAPER [B][R]0 MERGE  BRIGHT ▝SGN vQ[N](4 STOP A< OUT  DIM QCODE ([O]h DIM [F] CLS TAN e LPRINT TAB AT  LET  PLOT  ATN  FORMAT  SAVE J OVER M0<>▜-_ OUT > NEXT   CAT  RUN  PAPER ^T_[L]|EXP $ DATA @BIN |}X[I] BEEP  BEEP J[A] CONTINUE  BEEP [E] GO SUB  CIRCLE sxXd▝6 PLOT  [K] BORDER , TO ▙ CLOSE #2▟()&l[F]}[B]TAN Q AND ▟'#=_ACS ? OUT  INPUT 
  14396s RUN ; STEP z0&. PAPER 3 OUT N.[J] STOP SGN  COPY  CLOSE #[A] CAT WX[J]| MERGE O[S]/P RUN ©p4n DEF FN $4JV FORMAT f NEW 6 MERGE  COPY F▗Dt=JZ[C][M] RANDOMIZE LN▙▚BIN u=5*BIN  LPRINT O NEW ▙[E]FDe%56FJN▚C RETURN ^LJ STEP ;E8~ LPRINT ZY▟E^INT TAN [L]]o>n:s[G][K]0 SAVE .*] CLS [N]VAL$ tSQR IN h48|~ RETURN {k6 RESTORE "~>ABS )@▝ CAT /▖▞z"SIN F" COPY x@ [R] TO !(>*&B LLIST [D] CIRCLE  RETURN cL STEP ` MOVE 02 FORMAT  LINE [U],▚ SAVE A▙STR$  GO SUB VSIN 5? OPEN #$5[VzPEEK <=W]" INPUT F NEXT ▟/>|:T, LLIST  OPEN #=p(T* INVERSE LN 9 PLOT  x CLEAR <|>/VAL$ ]PEEK [J] BEEP / COPY  CAT  ERASE I"[M]B INPUT M{~SCREEN$ VAL$ ▙STR$ l/ IF  INPUT  LINE  DRAW S LPRINT  BORDER  GO SUB } NEXT IN  OUT [E]$ DRAW gY STEP R DRAW X; LLIST  LPRINT  OUT XN#~EXP  y CAT FPEEK &z NEW   VERIFY  GO TO USR W{ AND _0[B]ATN  AND W RETURN X  LOAD  COPY [B] RETURN @( FLASH  DIM [L] DEF FN  LINE X#` OR ~ CAT  AND  INVERSE g THEN  RETURN |8~# POKE STR$ / CONTINUE <> NEW 7+SGN  CONTINUE  CAT ©[T]* OR $$ VERIFY  PLOT   RANDOMIZE YsI COPY  CLS ? NEXT ATTR ]ACS ▝*? FOR U▘Y INVERSE NOT M_#CODE  PAUSE  PRINT  PLOT  <STR$ .U[T]D VERIFY :[F]Yi[J] LOAD VAL$ 7 RETURN (SVAL$ _ASN j MERGE YFN  INK  POKE  BRIGHT l FORMAT AT H CLEAR 0CHR$ [C]CW1CHR$  MOVE Y TO ©!1 CAT qUiu= GO SUB <!▜J RANDOMIZE  BORDER  BORDER  COPY NOT [P]+VAL <> CAT  OUT <=LEN ▝ ERASE  FORMAT [P]IN SCREEN$  CAT  RESTORE  LLIST  LINE wSCREEN$ &= CLS [A] MERGE *WINT t} CLEAR PI COPY  REM +ACS  CIRCLE  COPY o[N] OUT © INPUT _SQR >USR  LPRINT 2  CLEAR [H]▟SGN ▖[I]ASN 0>[U]8BIN 9` DIM USR  LIST x[S] SAVE STR$ BIN ▘▗ FOR RND?C▛ CONTINUE PEEK !~FN A4? ERASE [Q]>=c> OR / DIM LEXP <K MERGE ACS  CLOSE #H[B] LLIST  LET @n DRAW  OR  BEEP [I] LPRINT _▘)!<= DEF FN q TO  GO TO %>= CONTINUE [J][K]PEEK ▝EXP [E] AND ©ATTR  CLEAR  CLS tXVAL$ _ INPUT V+ MOVE  MERGE nPEEK &[Q] LINE CODE  LOAD aIN  LET  AND @CODE :? CLEAR  NEXT #%WPI SAVE NOT =9;{w COPY ATN o LOAD n RETURN LN / PAUSE |FN p(PR IF SGN f READ  RESTORE o+[O]%M GO TO QPOINT j OUT +K INK  LIST J5©k LIST  COPY  BEEP ~CODE ' CAT WV THEN FG[STR$  READ = LET oIN © RUN _^VAL$ ~SCREEN$ [O]/ ERASE  LOAD  RETURN 7PEEK vSGN / GO TO EXP = OVER ~ GO TO LEN | LINE [M][Q] SAVE PEEK  RETURN  INPUT  DRAW AT TNc SAVE x NEXT <>X▗ DRAW  LIST pVAL q~`EXP  RESTORE RND BEEP k© POKE [Q] COPY POINT X[S]T[R]`▝BIN CTAT >= SAVE  LPRINT  LET  PLOT   LOAD  COPY > FLASH  BORDER LEN  PAPER  PRINT j CLOSE #[R]MIN oSGN  LET  REM  BEEP y PAPER [B] INPUT  NEXT  CLS  LIST USR O| CIRCLE $J LPRINT PEEK  STEP W'ATTR  RANDOMIZE d READ  RANDOMIZE ABS  COPY INKEY$pATN tV,BIN  POKE SGN  RETURN g NEW l DRAW LN  SAVE [G][P]RNDVAL  LPRINT _[P]c[F]rUSR  RESTORE ▘>} DATA %▖n>=[T]SIN AT  COPY " TO  MOVE  VERIFY 9 CONTINUE  GO TO  BRIGHT t[Q][N]RNDIN PTSCREEN$  CLEAR  DATA  CIRCLE  STOP PCODE  SAVE  OUT  IF uSCREEN$  FORMAT J [A]@/[R]CFN CODE U RETURN  DRAW / OPEN #SIN ▝CHR$ STR$ j RANDOMIZE  LIST y DRAW  BRIGHT TAB /[F]IN  CLEAR  STOP  PRINT RNDE[H] CLS  INPUT  RANDOMIZE ▝o TO z LET  DRAW  COPY  CONTINUE CODE WATTR  INK V>[E] BRIGHT  CONTINUE  SAVE |SQR [J]LN pJ TO ZVAL$ ▟M▟ NEXT LEN "T@[A] CLOSE #^[Q]LN :[K]s* FORMAT lRH INVERSE TUSR CHR$  OUT  OR  COPY a NEXT "~ LET USR [R]PR[Q]SCREEN$  PRINT BIN ▜ BORDER kWIN VABS /LEN ZASN CCODE E▖ABS  STOP EXP  COPY VASN  INPUT e VERIFY  GO SUB @ REM |v2[H] GO TO  SAVE TAB ` [M]TAB  READ  LET ` COPY  IF 3 SAVE RND<= STEP <>[Q]▘B CLS " CODE NOT  DRAW [R]}Qm6LEN r LIST PEEK  BEEP  FORMAT E+9 CIRCLE | PRINT  DEF FN _O)Q;& INVERSE Z4 SIN }>~, NEXT  BRIGHT y[R] RANDOMIZE qtA[Q] OR [E]ASN  LPRINT /PI2 OUT J OPEN #1SGN  FORMAT %J LOAD qJ[T]M VERIFY  RETURN PEEK VY^CODE  LIST 9 COPY J` PLOT  Vuj THEN  RUN a THEN  GO TO  STOP  MOVE  CONTINUE 4ZFN FN H STEP KVAL ;*_MJ COPY U PRINT $TAB  NEXT 7 LN  VERIFY  COPY  BORDER  CLS  CLEAR  RETURN [B]©e/#[J][E]1YPEEK  MERGE rLEN bq?~fj1▟ STOP ▘">ABS ▖[U]S)▘CFN B)*5 AND : DRAW [A][L][P][E] PLOT   VERIFY xLN TAN / COPY  GO TO  BRIGHT n INPUT  GO TO  PLOT  FCOS VAL$ :8ASN u/LN  INPUT AT  GO TO wSIN B@USR  CAT  PLOT   LLIST ▗ LINE [B] MOVE [L] MERGE U LPRINT TAB zY64}bUSR Zk/▙%e©ACS :[K]AT R[T] RANDOMIZE ~s~3 DIM  FOR i READ )+ CLEAR yk*N; LINE *hI LINE BIN  STOP NoBIN *© LPRINT ▛ LINE [C]@ NEW N!i CLOSE #]q[T][C]▗<SQR $,/m$LM GO TO [C]3 AND ] BEEP  PAPER [Q]R OUT [H]8 DATA T.?HATTR  OR [A]He]_8l?PPEEK :QDF= OR ▜ POKE ©G©RS MOVE C OR K OUT [E][K] NEW VAL$ OQUSR ▞$LEN ▖$ OPEN #{(PUSR INT  DATA  CLOSE # DATA }CODE  LINE o RETURN ek LET &JZRnJ LLIST INKEY$CHR$ H IF  LIST IATN =m[I][D]z*#ATN INT  THEN VAL$ LN ^(PEEK SCREEN$ E LINE >H[E]* INVERSE  COPY h,N>=▖yF BEEP ▙IN [H][T]STR$ [F]▝ READ  MERGE ▖<>>=[M] DIM nfuo COPY ▝3ASN  REM ?MFx.)y3anINKEY$vSCREEN$  IF 4[F]r RANDOMIZE ACS lAT [E] PAUSE /[U]g@@ CIRCLE L AND V PAPER  TO N▚F LINE  ERASE ▟ CLEAR [C] STEP  BEEP @ PLOT  /SIN  PAUSE X^INKEY$SGN !T $ NEW  PRINT 2 THEN 7PI IF "(>+jPOINT ATN ^ COPY  LOAD [G]h CONTINUE l GO TO f%u#z*H{ IF X SAVE Z REM J PAPER EXP z<>u[B]ABS BIN % GO SUB ATN  MERGE [O]P[Q] DATA  FOR  CLOSE #!1:] SAVE /[O]@[A]@ BEEP I$ASN dAT  THEN  FLASH  GO SUB e[A] CLOSE # CONTINUE  TO *[K]▞<>/ OUT ©ZABS VAL LATTR tSCREEN$ [A][S]Z INK p[U] READ  COPY  BEEP  RUN ATTR -STR$ [E][S]ACS SCREEN$ 1 AND * STEP i=wnP! DEF FN  CAT  INK h MERGE ?=U:u REM [N] RETURN L▗ TO [U]m&odjNOT d[N]VS LPRINT  CLS CODE  MERGE  DIM BIN  T[S]ABIN W^4`~SQR w▟© NEW x0 DEF FN  FLASH jACS [K] POKE  PLOT   REM `[S] INPUT [P][F] THEN [C][U]jjPEEK CODE [Q]USR )[F] THEN IN bj4USR 5?zw OUT IN  RETURN [N] COPY  LOAD CODE <_ FLASH  OVER  DRAW  CLS y[I]©<6TAB  AND  POKE XAT  CLEAR 6Y INK  LET i'b READ uASN SQR  ERASE ^$QN5V^ FOR [L] GO SUB "D[S]5CHR$ t9 MOVE <=ehUSR ©yX>=e LET [Q] CLOSE # CLS  DRAW  RETURN |[O]IN _ OR  STEP ^/ COPY  NEW ? DRAW  LIST  LOAD  RUN > READ TAN STR$ W PLOT  BIN d$ STEP INKEY$.INT ▘BIN , -_ DEF FN ▟yMPOINT SCREEN$ U FORMAT  POKE  LINE HSCREEN$  PAPER EXP AT UAT EXP b CLS F[Q] DIM VAL  RETURN  LOAD  COPY © CLS  SAVE |?[P] OUT ; DRAW  COPY  CLS _WsPEEK [G][Q]▖y OUT `FN SGN VkAIN  CONTINUE  GO TO .(JM[O]w@ NEXT ?PI LPRINT 0  RUN [N] LOAD  DRAW  OUT 5as5 INPUT  SAVE [Q] COPY 8 ERASE @▞©B▗HPOINT  FORMAT VAL  LLIST  STOP c CONTINUE  RUN # INK xCODE ©o=* OVER  MERGE  IF  PRINT  SAVE <>:[Q] OVER  BEEP  GO SUB PEEK T:▖-7*▖ATTR S][Q]AT IA CAT e▖ NEXT [Q] DIM  CLOSE #`[C]d LINE uINT TAB ][G]▘Q INVERSE W TO IN  CLOSE #AT PFN  FORMAT B FLEN <WJ[J]4h[A] ©sRND{ COPY T REM G AND ASN  CLS  LOAD ▞ OUT  PRINT b DIM ^[S]U▖▛?QSQR  VERIFY INKEY$m)B+S-<=▞ ACHR$ '▗▝[S] CIRCLE  PAUSE [H][Q]>=<>@<>6ATTR T" STEP y[M]FN BPEEK >=([A]  TO M[R][C]rEoH[D]GZGCODE u OVER  RUN  TO 0X[L]WATTR  BEEP ~ CLEAR  REM  MERGE  SAVE  ERASE LN  FORMAT  RESTORE P▗A&PEEK Y[B](▞ OUT SCREEN$  OUT oMy"u[P]% NEXT  IF  MERGE FN BF;-u[T]CODE vAT 5+qINKEY$IN  OUT  TO e '[G]VAL hBIN  THEN  FORMAT ▘UxCODE  BEEP H[U]IN POINT  CLEAR  PAPER  INPUT INT  BRIGHT  DRAW _]VAL$ gINKEY$W[G]BJAAT  OVER `RND[Q]S[A]RND1RNDAB RANDOMIZE OuVAL$ 4` MOVE [T]W▙[U]hCHR$ ▞S1▚2 OUT [J]S INPUT ▖ut IF UrfyCOS <=/n MERGE  LINE [T][T]|AT  IF  GO SUB  RETURN s[E]B CLS ACS  ERASE 7 OR }.[J]w REM 1 COPY  INVERSE ATTR [Q] STEP ©g%xB`[A]P▝ TO  LIST L92I~[D] DIM Z CLEAR WHFB NEW O[C] OVER 5F/bRND COPY /[N] LINE _ATTR KBUD[P]'[N]* RANDOMIZE _m[F]x VERIFY FN U LINE ASN *[B]RNDF+SCREEN$ [Q] CLEAR  RUN CODE _+o CAT SQR w<= BEEP CODE M;ATN k PRINT ATTR ▜© STOP E[+STR$  AND C# ERASE  COPY ESCREEN$ VAL$ [U] RESTORE * MERGE jINKEY$_[R]r MERGE /0+<>o[N] LOAD { PRINT  CLS w RETURN Xh READ W FOR  COPY  INPUT  FLASH  CLEAR  BRIGHT  BEEP ACS *AT T BEEP  SAVE 2IN EXP 7 COPY  SAVE  OUT  CLEAR  LOAD  PRINT VAL$ }[J] LIST { RUN  RETURN  BEEP IN  TO w_SQR ▙▟ FORMAT [D]][K]▞v CAT  CLEAR [K]! CLOSE #HRNDwPEEK  COPY {TAB 8V&nACS INT uATTR  BRIGHT FCOS l IF  STOP D COPY  DEF FN  OPEN #^DS=PEEK RND TO  STEP 3LN M LLIST 8 CAT  DRAW D DRAW ACS H>ACS [F] SAVE u REM [P] CONTINUE SIN # LIST [D]7?FACS fSQR  AND [E]i OR  INPUT  MOVE  CIRCLE t|<=Cs[N][U]© AND VAL  PAPER  CONTINUE 2 VERIFY  SAVE CHR$ [L] TO u CLS SIN &wSTR$  IF 2CODE f INVERSE ▚[N] RETURN  LLIST  OUT  CLOSE #ASN  ERASE  COPY  STOP  BRIGHT 5 REM BIN ▞ RETURN G~x> FLASH 8 LET /5>= INK ▘▜GFVAL$  BRIGHT POINT &W MERGE  LPRINT VAL 1Gu PRINT 1EM LIST  DATA  GO TO gPI[M]> DIM /©TAN  DEF FN |M OPEN #POINT  COPY  LET  CLOSE # COPY F DRAW } CIRCLE < CLEAR [P]USR  LET 0[P]!k STOP  PAPER tx BEEP # REM  CAT NOT ©7 NEXT  OUT  MOVE [C]COS  PLOT  |[I]x DRAW  CLEAR P MERGE 6q BRIGHT  LET ' FOR  COPY ) STOP  READ ye< RANDOMIZE Da8 CIRCLE ▜[P] MOVE / COPY  DRAW [P]w[T] BORDER © COPY PEEK ."<8!:PCOS 7D@jSGN F[C]Z[B]D AND  LOAD [T]!s{▘ OPEN # CIRCLE :USR ~LN  OPEN #SIN vINKEY$[D] CLEAR [O]▘▝% DIM tV GO SUB [A]P DRAW [I]b[K] SAVE  COPY [O]RL!s VERIFY COS  FLASH [D]SGN  POKE [B] PLOT   FORMAT @[E][T]9 LPRINT INKEY$R[U] OVER POINT Z FORMAT g▚[D],[A]SGN VAL$ - OUT /[F]R[D] MERGE |X<>INT  CLS I[R]/USR ]W[C]1 DATA [U]▛SCREEN$  RESTORE  OUT  ERASE SQR ▘gS▟[S] INK O3[D] CLOSE # INVERSE  LIST  BRIGHT T MOVE   CLOSE #[K]VAL$  STEP <>~3▘w RUN ACS L~gZWY5 BORDER / COPY SIN Z1PI DIM KiS/;AyBIN  CLS Y MOVE <> REM NOT ;$ZdUSR  BORDER  COPY INT XPI?j-[PEEK  RETURN 9FN m[M]X[L] PRINT q COPY  INK 'ABS NOT Z- MERGE  CONTINUE .56▞[D]31 INK  SAVE !1 POKE INKEY$ RUN  READ  CONTINUE  RANDOMIZE [J]KN▘6 STEP T`kP THEN >= INPUT  INPUT [A]EXP 5_[K]USR [[K]TAB v_B[R]!▙2K>LN B Z COPY  CAT pLN c▘NOT >=>= CAT P1COS USR  DRAW [I]S? CAT I&[J]IN INKEY$1FrRNDMTAB  VERIFY FN LN [A]/▜ LLIST [E] PAPER }c[K] TO  LPRINT  OVER [N]2 LPRINT -C' MERGE UCOS  ERASE  LPRINT B DIM STR$ LABS VWATTR  IF CHR$  LOAD [R] LLIST  REM Y*ZJ[E]eBIN g<=c RANDOMIZE  INPUT COS /-uC▚ LET  OPEN #AT  LET X RESTORE EXP | DEF FN LEN TvCOS [ INVERSE  COPY XINT [N]m>" CIRCLE [C] MERGE  COPY  CLS 5[E] LLIST  BORDER  REM CHR$  DRAW !L[G]> OVER  TO vQ<>x LPRINT f[R] LOAD  CLS 9 LINE  OVER i DEF FN  RANDOMIZE aR| CONTINUE COS NOT 9HATN 0TAB  RUN [J] CIRCLE ▝COS  TO h CIRCLE sLEN <= CONTINUE OATN 1 RESTORE  FORMAT c[C][B] VERIFY [E]<>[M] OVER  PRINT  READ 0j PAUSE 1d[B] NEW <=[I] PRINT SIN  DRAW [R] LINE dR[U]qmSIN  BRIGHT ?LLBIN IN #`2 READ PI7 LLIST bUSR ZV CIRCLE 1L; PRINT c VERIFY BIN Z▝m[S] LOAD lW OUT &LN  SAVE  INVERSE  RESTORE  STEP [U]▙kSTR$  LLIST <> CLS v> STEP <> GO TO ▛ NEXT <> GO SUB  NEXT NOT [F]CODE  LLIST COS [[L]2 LIST 1q GO SUB s NEXT 1PEEK i7 RETURN  PLOT   STEP [L]USR 1<>ATN > DEF FN ([B] RETURN  CLEAR © GO SUB y<>1 LIST  COPY  CLEAR  PAPER ©qTAN "[B]:l▙x[K]2mLEN  ERASE  RETURN  STOP )[F]P REM  RETURN ( PLOT  l DEF FN  READ ATN COS  CAT  LINE 7▟ OPEN #p< PAUSE  READ BIN  LINE @TAN !CODE w+ACS   IF  STEP `[U]v RETURN  REM m<2g ERASE Q~!XU$FVAL 6PEEK N GO SUB VAL ?q LINE Y OR  RESTORE 6(# SAVE TAB  CLS  LLIST  DATA STR$  LOAD  CLEAR   CLEAR H VERIFY  OUT  CLEAR  STEP  [F] LLIST $|' INPUT F} AND o8© NEXT | VERIFY g OUT  DATA 'H![K]SQR  GO TO ▟ STEP  THEN [C]GATTR .TAB  PAUSE JgLn[B] REM  MERGE LEN wIN )VAL  IF  LLIST  MOVE STR$ $[K]O LLIST  INPUT ?'60#1$ix|[R] CHR$  TO ATTR NSg PRINT  LLIST  FLASH J OR [K]AT  CIRCLE ?COS [J] CIRCLE  DRAW  CIRCLE  POKE 4ATN fL REM ASN /SGN ▟kH/ OPEN #f3O!i`I) DRAW N3=SQR  OR ~ INPUT D CLS  VERIFY # NEXT © CIRCLE  PRINT >IN  FLASH  RETURN 8 RANDOMIZE NOT  INK l LOAD Yy GO SUB ▟s3 LPRINT Z6BPz! LPRINT PABS  LLIST [F]. STOP  RUN  BEEP POINT ▖ BRIGHT  SAVE TELPOR FORMAT AItACS N KABS  COPY =LN Y STOP [B]UAREbDI-3. VERIFY Y3▟AGI PAPER  NEXT oCO& DRAW E PLOT  FNX AND  DATA   RESTORE V PLOT   THEN  TO CHR$  COPY Push/ COPY Enter- MERGE n▙ LLIST  PAPER ~ATN >=U RUN  POKE K([s▙ REM @F[J]n= TO  OPEN #6.] STEP >=▟ STEP [O][B] OR [D]//STR$ - x0 LOAD  MOVE  INVERSE + CONTINUE .T PLOT   RETURN  8 LLIST wY# OUT  ERASE i MERGE  DIM 2 FOR WR>= BORDER K IF ~ NEXT PEEK  # LET  NEXT  LLIST STR$ >2[A]l▖ TO  CLS ©[R]ATTR #H CAT ACS  MOVE  VERIFY CODE  MOVE [K][B]▚hLEN m)[J][K]RNDFN } FLASH [C]C<>▜.6 NEW :PUCODE f- SIS9[E]R SAVE T IF R CLS gFAL; RUN  LIST SGN :[D]ATN [E] STEP !EXP ?<&,[F][H]]_mm READ [P][I]* [B]~# PAPER  LET  INK [M] COPY <" STEP  LINE COS o&M);: PLOT  [I]>= RESTORE ACS ,#ndATTR CODE <8[J]2VAL$  CLEAR TAN ![E]EXP  INPUT 2 LET  THEN &# FOR +7PI LPRINT  POKE " FOR ; GO TO :>ASN [C] FLASH PEEK INT  THEN ?▜ NEXT PEEK  LIST ! AND [A]<>[I] INPUT [U] FORMAT [A] FORMAT ▝ PAUSE  BRIGHT  BEEP  LOAD  NEXT <>PEEK (5CODE  RESTORE  GO SUB  [_ BEEP ©z"J FOR VAL$  LLIST  RETURN 0EXP USR  DIM <6<>▚VAL$ NOT A RUN  AND <> STEP ▛PIP'▟SQR  MERGE  COPY  PAPER m MOVE  VERIFY  GO SUB IM FOR F5CTAB  RESTORE  PAPER  OUT 2 PLOT  ,~BVJf RETURN xFy~<G4e GO TO H< GO SUB (8 INK [Q][Q] STEP Gy<▝SCREEN$  ERASE  OUT  DATA  NEXT  POKE  OUT VAL$  BORDER )ATN (n READ  RUN VLEN [F] CAT PEEK n=[M]> RUN  BORDER F FORMAT  CLOSE # BEEP ▟~ NEW @[B]<>U]o FOR [Q]▖ CLS  DRAW  STOP :^[E] INPUT 2IN  INK  VERIFY 0= STEP [B] CLEAR CHR$  OR PEEK ▛STR$  SAVE } LOAD INKEY$ INVERSE ! NEXT [D]g[L] RUN 4TAN  LOAD N CLEAR [D]/ NEXT  GO TO  STEP AT zNOT STR$ CODE [P]Z NEW @!>[E] NEXT u[K] MERGE  FORMAT  MOVE VAL$ o FOR  SAVE 0|PEEK g[L]x NEW  OR  TO [M]LEN  RANDOMIZE VAL$  BORDER A<>1.Kempston+ GO TO <=W PLOT  2RBIN ▟edfin OVER  OR  kys NEXT  CLS  LPRINT 3.Ma<>TAN  COPY mLN < CLEAR u PRINT  INVERSE  RESTORE  COPY POINT ▙ LET H!SCREEN$ [B] THEN  GO TO  RETURN  SQR  FLASH } LPRINT z FOR  AND [B] ERASE ATN }Z6i LET  NEXT 0( OR ~ PRINT  SAVE 8 NEXT  INVERSE  LLIST  LET <>>mSGN G'% RETURN  LLIST * LINE [I] PAUSE  POKE TAB a; FLASH  FOR !{[E]U>=/N#ATTR )q RETURN  INVERSE  LOAD g>=ACS  DRAW ~IN  STEP D<> DEF FN  POKE CHR$  STEP  FOR [B] CLEAR G CLEAR ![F] RESTORE 6VAL PEEK EXP GuIN  THEN CODE .TAN J[M]> GO SUB LEN  DIM  NEXT r~ STEP  GO SUB s[T] MOVE  LLIST w#▞[P] RANDOMIZE  INPUT STR$  BEEP <> COPY !▛[E]#~ATN   CLS  SAVE kAT ( COPY  OUT  PLOT  <> MERGE  RESTORE [P]& CAT oo~ NEW  FLASH # MOVE M[U]!PEEK SQR INKEY$ FOR  GO TO LN  RETURN  FOR [U]M CLOSE # THEN o FORMAT  GO TO s MOVE <>Oo▚NOT  INPUT  SAVE  OVER  RETURN J[L] NEW B GO SUB x'[K]# THEN k SAVE 8 RETURN 7 GO SUB [S]NOT  DIM COS  OR ! DEF FN /R[D]PI[J] SAVE  RETURN (M CAT 1CODE S[D]]PEEK ▞= THEN G CAT  BEEP CODE pSTR$ @ STEP /[D] LET ": NEXT  TO  INK  PRINT CODE 2 FOR VAL$ M<LN USR  DEF FN E6>©COS  GO TO IN FN [S] CLEAR TW[B]SCREEN$ IN  CLS X OUT yPOINT yQl▘1:RND▚ CAT ▚S ERASE PI IF [I]au6CODE s[F]>^<=P/[L]INKEY$> RANDOMIZE >=[A]8; CAT cR PRINT  COPY  ERASE [K] STOP zo<>ozs LINE m[D]r LOAD  MERGE  RESTORE [G] REM /WZzTPIINT ~CHR$  STOP  BORDER POINT [D]7NOT PEEK  OVER ~LN  SAVE }Star g_d[L]/r{Co{#SQR Ply LOAD  TO rs:U ASN y47[B]Orl  CLOSE #[B]?[D] DRAW 5[E] RANDOMIZE 2NOT  FOR  BEEP FI POKE [P] STEP DOWNUPEEK UPRIGHTvAT LEFCODE  INK S2SIN CTNOT [K]APSeNy[N]RPA RUN ▘ DRAW EYMBO LLIST  CLEAR  BRIGHT ▖ZXCVASDFGQW CIRCLE _▛T1234509876POIUYLKJHMNya LINE <= READ !ATTR [L][C] COPY ~#fo"POINT [L]<> RESTORE  LINE  REM EhB!@ BORDER  INK 6G> DEF FN !CODE ;(4 PLOT  <=CODE  DEF FN PEEK p RESTORE r[B] LIST CODE " DIM  RESTORE v GO SUB Sw! CLS  RETURN ] LET  LPRINT ! COPY  CONTINUE X LIST  OVER >LN x2[P] CONTINUE  FOR  BORDER  EXP J GO TO  OUT  OR &3H[L] RANDOMIZE  COPY  COPY w DIM !t IF [O][H]^:LEN  IF ^W RUN SGN Ak3fW OUT ^ RUN [O]KPEEK WhSIN CODE X POKE CODE  GO SUB d MERGE %]SIN  READ  LET CODE  GO SUB [N]ABS [M] DATA VAL$ SGN [R] DIM /.][K][G]~ READ <>^#VK{ NEW  LPRINT  THEN :+ CAT [J]WY7{<>* NEXT  COPY =[D]ur TO 5t ERASE  RESTORE  MERGE  PLOT  " TO  FLASH ]LINT ! AND h STEP |[I] LLIST "n STOP [T]6 DATA # LLIST CODE d[N]~IN [G] THEN ©d%IN  FLASH  COPY b RESTORE  OR  MERGE  PRINT  STEP M[J] LET  MOVE  FOR  PRINT  LOAD POINT  PAUSE  LLIST  OVER # STEP  CONTINUE  CONTINUE eL©SIN zCOS (* FOR  MERGE  LINE 0 LLIST INKEY$NOT SIN  PRINT |[Q] INVERSE s[J] NEXT >PI[A]SCREEN$ USR 8[Q]w# OVER [ INVERSE ▖>=5cBIN  [C][L][E]I^p THEN  RUN & BEEP  OR NutPEEK  STEP t6 FORMAT PI CAT = PLOT  ' MOVE  OPEN #[S]}▚ CLEAR 'G DIM ;[I] OR  PRINT  PRINT NOT  THEN  LOAD u$SGN  CLEAR u4t[F]CODE [H] OUT COS y AND [A]wY1?▞6 DIM s LLIST  LET 0b#ABS  GO SUB  BEEP [H]CODE  LET  INVERSE u RESTORE  STEP n<=^ FLASH ~6[C]a[J]ASN  DIM [E]Dy>MIN Y MOVE  OVER [C]gkINKEY$ OVER `* RESTORE ▟▛ BRIGHT  BRIGHT [U]gFN  SAVE CHR$ & RANDOMIZE NOT ,EXP  PAPER >[S] DRAW ▙AT #f[S]- LLIST <=; RESTORE rATN ~© CLS d+[J] SAVE [E]ACS  PRINT [R] ERASE ?~ MOVE [C]h STEP [C]4dVAL /U$0[O]aAT LEN  REM [J]VAL AT ~ POKE  COPY [L]?PI!ACS g LET ATN @  LIST hy STOP  OUT [A] MOVE  LLIST Y[L]Mx LLIST  RETURN [I] INVERSE  CLS  CLEAR " NEXT STR$ NOT  LOAD [G]BIN {<cSGN LN  FLASH 2|6SIN $ GO TO  RETURN .>=;[J]LEN }; GO SUB  RETURN ?~ THEN  FOR "UABS f[C] STEP ,7 PRINT Q FOR o AND STR$ OyIN [G]=2 RESTORE [I]x00[J]>LEN [T] BRIGHT , RETURN  RETURN #( INK [!$n_""y[J]l$ OVER 5 MERGE O NEW U[L] PAUSE y4cZ STEP EXP )CHR$ G: RANDOMIZE [D]NOT  TO >[A]GX RESTORE K0( NEW  LIST _ GO SUB  LIST v INVERSE nbSTR$ [E] NEXT  RESTORE  PLOT   DEF FN /▚▖ RESTORE  FLASH ]4 AND /w LLIST ~CODE TAB  LOAD [K] FOR ^ OPEN #| BORDER w$^ LLIST  FORMAT VAL$ INT  GO SUB  OVER y7<>N CLEAR [P][D]<CHR$ r=[I]< LINE |ATN  [T] RETURN 8/ STEP  PAPER [K] INPUT  LIST ? CONTINUE [J] VERIFY  PRINT  DRAW  FOR PEEK [R]rN#F OR 1 OUT  INK + LET  STEP  MOVE M▟J^OBIN [B] PAPER C<>=[D]CODE  INVERSE  DRAW  CLEAR O?TAN  RUN r5VAL [J]CODE O OR  LLIST 8S FORMAT / CAT BIN TS[R]> CLEAR ]ASN  IF U RANDOMIZE [I]Z IF Zo]e BRIGHT  STEP /[ FORMAT :COS v[P] VERIFY [P]z> READ z}TAB ▝ INK  FOR  RESTORE  PRINT  VERIFY  LOAD FN ATN ~ CLEAR 3 FOR [N]+ COPY , LET O[F]kUSR  FORMAT e DEF FN  ERASE  RUN  REM NOT  LOAD (©[R]" BORDER s1SIN I[CODE  RUN ©h THEN  CLS q,<>= NEXT <> RUN OuA$ACS tvSTR$ ZH<>[L] RESTORE CHR$ !1/ BEEP  STEP  DEF FN ▟VAL  >[C]6 DRAW  RETURN Ro▛== CLEAR CABS [F]VAL$ BIN F FOR  IF x▛ STEP m[D] PAUSE  PRINT  PLOT  [K]ATN (c CAT Y LOAD ©  GO TO 2[N] DRAW  CLS tINKEY$SQR  INVERSE [L]VAL EXP  OR >-x IF  RUN ]+ATTR O bSCREEN$ BIN VAL$ <>▟| FOR G NEW CRNDB[S])▘ NEXT rJ><>x DEF FN T DRAW @< RETURN  CLEAR SQR *COS [O]FN CODE  DRAW EWD RETUrGAT =]S OVER ATTR A[O]Md[L]XIT[G]7 FOR o AND 3+TAB ▛o CLS .[L] INK  RESTORE p<> LLIST z* PAPER  AND  SAVE ATN  REM VAL$ e DRAW  COPY  RESTORE [Q] LLIST COS  COPY [O]!T[D]"s REM uTAB VAL$  OVER  OPEN # RETURN  BORDER  OVER <[E]:SIN  AND  NEXT  GO SUB G^BIN [B]<> COPY  CONTINUE  CAT [I]ATN  DATA n BRIGHT :LN ABS =EXP SGN 3 AND ▞ASN INT PTAN  CIRCLE SQR ATTR SGN ACS ABS  DIM PEEK VAL IN [H]USR >= MERGE ▝STR$ ▟CHR$ RNOT E INK  INVERSE SBIN  RANDOMIZE bSTR$  OR  AND +<=M>=1<> LINE  STEP PEEK W THEN [C] TO  CONTINUE LEN  CAT SCREEN$  FORMAT ▙ MOVE  ERASE " OPEN #S CLOSE # CIRCLE  MERGE #▞5 FLASH mPEEK P BRIGHT  STEP  OVER  BEEP [Q]▜ DIM  OUT  PAPER ▗ INVERSE  REM TAN  CLEAR David urcha$.k n[U] NEXT M COPY r SAVE Fekop1sLEN nt? LPRINT ▛DRX.x FLASH  RANDOMIZE clusivdt LLIST VAL  FORMAT buo<=f ( BORDER )19[N]▜4Ul[O]aSof)| CLOSE #TD. RETURN SdPEEK  INK awnihLEN !▗ PAPER [T] TO ll.egPIdyL[M]H CLOSE #y[D][U] MOVE lncaINKEY$RNDO CIRCLE sX DEF FN klaw SAVE ▚ INK sx ty@zq~ LIST limk LPRINT  ERASE IuATN  INVERSE &RNDn RETURN l OUT [C]1 SAVE }[Q]X[P]|ATTR &=pt LET n=▜ CIRCLE Mo RANDOMIZE [I]CtIN u AND POINT ▚[D], AND INKEY$(k GO TO 4M OR wiHLEN <>[I]▙p1[P]▛I BORDER {VAL [U] CLS T CLS zeml`,CHR$  FOR [I]vUSR 4TAB s[1y}h CLOSE #▗PEEK w&}<=qN BEEP d@Op[F]yy MOVE [R]igwkTAN :tSIN PIATTR 2M>= FORMAT mv1A▞LN )[D]TAN ACS | MERGE zINKEY$<>PPEEK [E]O SAVE g, TO  AND a MOVE jO STEP  LIST aqPOINT ot▜[C]asLN cUSR M[S] LET y THEN INKEY$4j LINE KR OPEN # OPEN # ERASE kCHR$ >= BRIGHT %8b) CLEAR  STOP  FLASH  STEP %cKE[B][G] PAUSE dLEN 9LnwiJ[N] RANDOMIZE !sJMUSR 6lhR%&xxIINKEY$SQR dSR IF ATN  STEP / PAUSE bx{2<>VSBIN [U]ZY[G] CAT R OPEN #yx INK ~ INVERSE 4dSCREEN$ dPI[U]TAN } IF J▝LN  PLOT  3 PRINT TEXP .U(k& RESTORE cSGN G[M]▛rIIN {ag▙T STOP [R]HQ AND r▚xu! OPEN #p2SQR CHR$ >= RUN 1ASN ▙?[D]6▘▙<>[_2h<[C]i LPRINT [G]wbu CLEAR <=u OUT i6by1d@[C]=ATTR 2ATTR I IF v7zPEEK  DATA *[M] LPRINT ZJS<=[U] BEEP & BEEP W INK ▝> OPEN #▝1M DEF FN  FLASH SVAL$ PEEK  REM b[J] PAUSE [G]_ CIRCLE S[J]PEEK  CLEAR [G][E] SAVE BIy CLS BIN  POKE i[T]1?SGN [D] FOR PEEK [K]zuLz* IF T/"PEEK  OUT  CLS bTbl[J])& CLS k LET [F]bs INPUT  POKE M STOP ! POKE cINT +])}@3 OPEN #[H][R][L][N]W FORMAT +▛ABS  CLOSE # BRIGHT TAN Woz INK v AND  LLIST OLJSTR$  NEXT { STEP [H] BRIGHT PEEK gzgINKEY$P[B]A▚h THEN  FLASH POINT [Q]BIN ▙<>R LET v OUT h INVERSE [1FN [G][S][I]USR BIN  PLOT  RND8,0l0VAL ▛ IF  MERGE {<>CfD DRAW t▖$~te7| FORMAT  DRAW  SAVE [A] DATA [U] CONTINUE .JN RETURN p CIRCLE r VERIFY  TO vs0 CLS + CONTINUE @8▗t▖.t[R], AND [R]PEEK T RETURN p STEP ; LLIST |CODE  LPRINT 4oABS  CLOSE #|8 AND [D]`AT EXP [B]0BIN <=USR | AND  DEF FN  VERIFY  NEW z98`~< SAVE 9f0b~OL LIST <f[D] SAVE ,~s IF > GO TO | CIRCLE ▙STR$ / AND ~FPEEK P VERIFY T▜4,▝R GO SUB > FORMAT [D]LN  DRAW [B] VERIFY ▖[L]3▗`ABS V▝© LPRINT 0![P][U][E]d© OPEN # CIRCLE  OVER  ERASE USR [A] COPY l AND  RETURN  PAUSE [J] NEW  PLOT   DRAW POINT  FLASH  DIM [P]CODE USR ! CAT CODE  CIRCLE  GO TO BIN " RETURN b STOP x PAUSE  NEW USR 5PIN  DEF FN  AND B▚ATTR  RETURN 9hoPEEK COS ATN  RETURN h▝ TO x NEW  CIRCLE C LIST [B][S] LPRINT EXP L NEW CHR$ >= PRINT  INPUT  VERIFY < FORMAT  INK  TO  DEF FN  NEW  PLOT   OVER E<=<=8▖#[A]  BRIGHT :[D][C] OVER y▜ LINE d:&A>=[J]gUSR  BORDER  RETURN SIN [E] FORMAT 63 BORDER ATTR  CLEAR fl LIST [R]ATTR  GO TO  VERIFY 1 NEW l PAUSE  INPUT SQR V▘ OR R-,©i!`[A]  CLEAR c[ PAUSE &ATN USR  CLEAR &#( DATA  LLIST w INPUT SQR <"[C]?%▖?t BRIGHT BIN  TO [C]v©0I▜x TO USR 9[p'|PaABS 1YVAL ht` SAVE t&PIP OR | FORMAT INKEY$1 OUT  FORMAT ▟I?▘1[G]tNL8[R]5 DEF FN |[I]_6▖[J] COPY AT R CLEAR 'SGN ▙6@ OVER p RUN O1[E])[A]VAL v REM aSTR$  PAPER 1R©<`PI▙TAN INKEY$3 DRAW USR 2Vk@z)▗[F][I][U]ASN  DIM  ERASE 9 INPUT [Q] STEP B'Y>= COPY [M]USR [B]9 LINE  INK LEN j CAT  FLASH L INK NOT  CLS  RANDOMIZE c[D]PEEK  MOVE ▖▝<[P]B$ BORDER fRND STEP  CIRCLE ▘INT [S]x CLS ▖ GO SUB [J]ACS <=▛[M]xtSGN  READ  :4▜N0&▖@ CAT U<=<>=jfP PLOT   DRAW P▞g FORMAT P'[O] CIRCLE h AND J GO SUB 0y▝[Q]VAL  RUN  PLOT  [Q] LOAD  GO SUB [Q] BORDER  INVERSE LN  CONTINUE ; OPEN #>= INPUT 8- GO SUB  CIRCLE i{ CLS  LIST SQR  RUN  LIST  VERIFY F LIST  DIM  LIST  LIST ( DIM  NEXT FN &[O][I] RUN y CIRCLE  SAVE  STEP  AND  V@~# VERIFY USR 8G0 THEN [L] F#INT CODE A LET 58 IF EXP 9,>= FOR IN ( RESTORE  AND @GnLEN gxfAT [C] NEW 6" AND  THEN xG| RETURN X08TAB [R] INK W[I]0AT  LET  LLIST _u DRAW z: DIM ,ATTR  DRAW ATTR INT BIN SCREEN$ L/(_<#8~ STOP s LIST [G]0 IF + AND  LLIST [N]MATTR ▟CODE gOCOS  LLIST  FORMAT  MERGE IN yW BRIGHT  MOVE  PAPER NOT ▞ LET  READ  CIRCLE © LET 7?= DRAW  SAVE  CLOSE #u BRIGHT [S]/W©` DATA CHR$ IN  OUT NOT  PAPER  BORDER  LET [N]? COPY  INVERSE wI DATA  CLEAR ©WACS  INVERSE  PAUSE [N]7 CAT q LPRINT  STEP g RUN  INK 2~ BRIGHT $?s© STEP # NEXT ▖6 LET  OUT PEEK ©LN  OPEN # PAPER >=r~ DRAW <= OR  COPY  BRIGHT <> DRAW v© INK BIN  DEF FN  OUT  LET  PAUSE w~AT  NEW ©[N]x TO  CIRCLE ?<=wx2'C$7© TO BAT ABS SQR ' RANDOMIZE  DATA USR ` LPRINT >= BRIGHT ATN  COPY  LET o INK s?▟ STEP bp>= CIRCLE >| OVER r}PEEK [Q]w▖© BRIGHT 3 LLIST 7SGN V NEXT  CLOSE # RESTORE y INVERSE rp SAVE IN  RANDOMIZE  LLIST ▞STR$ @ INPUT  VERIFY s[M]a PAUSE  LET STR$ [I]c▝IN y INVERSE [N] THEN CHR$ NOT  RESTORE 7 RETURN )r LIST ▖USR   SAVE 4ATTR  STOP 7<>▟ NEW © BORDER >= INK !q▞ INVERSE  OVER c~: LET ▙rx[I] CIRCLE 7]`c PLOT   NEXT g DEF FN  CIRCLE qvt>=IN ▝ <=BIN ▝'▜CHR$ w SAVE  RETURN ^ MOVE  INK sw TO  NEW ▞▟6 INVERSE  STEP 2v STEP  COPY  THEN &▟3?▖"CODE  STEP  COPY 0 LIST [M] NEXT CHR$ "▜ CAT  RETURN 3 ]LEN 4[O]▞IN  OUT  TO  THEN  STOP  STEP  CLEAR c CAT  NEXT ' BORDER  OR "A[J]q BEEP >= ERASE !ACS d CLOSE #0w▞ BRIGHT  POKE BIN  COPY  GO TO  RESTORE /` VERIFY v?▞▟#w? LIST INT rq<> OR ▜▟USR /▖ ERASE [J]1HPIPI▜ TO  PAUSE [M] LINE "`▛▞BIN PEEK ACS  RETURN  DEF FN [M] BRIGHT  PAUSE  LIST >=D OVER  CIRCLE BI[H]STR$ c▝▗ PRINT @ TO INKEY$$` VERIFY  FORMAT  FORMAT  STOP o RETURN ▞[U] AND #EXP | CLS AT [H] POKE [M] LINE ©▖ SAVE L[R]pSQR "qUSR 7ASN 0STR$ fs8PI[M]CHR$ [T] POKE  VERIFY j[K]Y? BRIGHT 7▖ LOAD USR  ERASE nINKEY$ INVERSE 3 RUN >=0 MERGE  BORDER  LINE  OUT c STEP ra STOP ▜BIN >= FORMAT 13▟[N]'? INVERSE [Q] DEF FN  BRIGHT "0/x w@ FORMAT  DRAW 7A OVER  POKE  MOVE 6 LPRINT  VERIFY  OVER ) DATA K FORMAT  RESTORE  LET USR  CIRCLE  FORMAT  RETURN 7 CLS  LPRINT  SAVE  DRAW ©lUSR  DEF FN #PEEK `[U]" CLS CHR$ P LPRINT  STEP  NEXT ^"4 NEXT im2 DATA  BRIGHT ![P]| VERIFY y" STEP YQ/AT  SAVE  RETURN o© TO "s_@ GO TO © CLEAR  INVERSE  RUN ?$ OUT #[M]~6 INK eM▜X LOAD  CIRCLE BIN >= DRAW [M] CIRCLE 4 ERASE S COPY j#'▗[M]▞fCHR$  THEN [L]o CLEAR ▜h CIRCLE  LPRINT  DATA  OR  DRAW /2ACS <> INVERSE Bz RANDOMIZE BIN eD LPRINT  LIST  AND v DRAW  INVERSE <LN  NEW < DATA BIN ▟_USR  CIRCLE E3?7#▜ DIM  LINE LN /7!VAL >= RANDOMIZE ©▜g CLOSE #<` PLOT   TO ,BIN  BRIGHT  STEP AT ABS  AND  FORMAT 7BIN ©/ PAUSE  NEXT  STEP  INVERSE © CLOSE #" CLS [M]▟&g<>2[P]/ DEF FN  TO  NEW 6b▟[D]'[A]xBIN 04?'7 LET COS L FORMAT `b RETURN ^ RETURN  BRIGHT  DRAW  RUN LN  CIRCLE [T]▟31/ BEEP # STEP `▗8 DRAW /  RETURN 6CSGN / FORMAT /o CIRCLE ~©▟▗ LIST  STEP  LINE p[J]w RUN BIN CHR$ s[S][E] DEF FN QVAL$ '▙ TO  THEN >=8 PAPER FN <@ VERIFY  STEP ceM[J] RETURN 2s>^[K]p RETURN y# CONTINUE [A]<=R LINE 2 BORDER ^<= FORMAT 0 DATA  COPY K[P] BRIGHT STR$ r' DATA 6v NEW  OR )0P INVERSE '3 OUT  PLOT  [N]p~ABS [A][N]STR$ 3▗ RETURN  TO ▖ OUT [N]3W▞EXP I4<>[Q]> TO  INK PEEK <D▝2C<> TO  OUT <#[P] STEP b LIST  NEW '[B][M]6NOT [U]4t BRIGHT  PAUSE 4 COPY 9 BRIGHT <>#▘oBIN 3 RUN C▚<I CIRCLE  LPRINT  TO ` NEXT  NEW [P] CIRCLE c PLOT  [I][F]u FOR  LINE TO^USR ] BEEP  DEF FN  INVERSE w DATA  THEN  CLS  INK  STEP 5 SAVE >= COPY  RANDOMIZE Ys< ERASE w FORMAT I>=r LET  MERGE  SAVE  IF IN SGN  THEN CHR$ /AT  DRAW H@IN y LOAD Ls INVERSE  STEP [P]USR 7s7~ RESTORE IN "b RETURN [H]L OR  PLOT   RETURN [A] NEW RH GO TO p LIST !b' ▜ COPY BIN ` LPRINT AT INOT  BRIGHT / DRAW  INPUT Ui VERIFY L@+!▞SQR [D]I NEXT $ LPRINT CHR$ 6[R] DEF FN + MERGE [P][B][H] CONTINUE CHR$ ▗AT  ERASE  m< COPY ; CLEAR  GO TO  FORMAT 2O LINE O'[I]$▟)dA READ M[A]`[N]  DRAW  BRIGHT [H]NOT 0Ap DATA [L]NOT  STEP  STOP l DRAW  CONTINUE 4[J] DRAW W"r▖ TO 
  819303 ERASE y READ [U]AT `[F]<= fQ▜nSTR$ R PAPER 3[P] SAVE ? BRIGHT USR 7 INVERSE # )▚ DRAW  CLOSE #< FORMAT ] NEXT >= LPRINT  CLOSE #POINT ▝I@, LIST 7>STR$ a0i>=b PAUSE X CIRCLE ▜ THEN bF CLOSE #▟CHR$ ?▗/ TO cCODE ▖h*ABS  TO 0 ERASE R VERIFY 7©▖[C]_▗ STEP   LINE [M] COPY  LLIST o[J]AT CHR$ ▜d DRAW  qMy8[H] DEF FN  INPUT ATTR !▜BIN " ERASE L}_>B TO r#USR  AND e<>BIN [I] PAPER VAL$ >= INK  SAVE  STEP A[M] CONTINUE >=,USR ▗ POKE CHR$ 4▚CODE BdRNDI GO TO  LPRINT FN   THEN [L] FORMAT  FORMAT [K] TO "6>=Z▛ STEP #LN  LINE  OR 85ep IF ▟ LIST STR$ LVAL /NFN  DRAW © LPRINT G STEP d LIST  PAPER r RUN <>++ STEP  DIM [H][p▖2 GO TO  AND r COPY  STEP ▘SQR PEEK BIN s▞USR  LINE RbCOS INKEY$[N] CONTINUE [L]o POKE BIN E RANDOMIZE  LET  AND ▞ STEP #▜ FORMAT 'wEXP [H]0INKEY$ INK STR$ INKEY$BIN y▜g9 OPEN #$ DEF FN  NEXT " BRIGHT M[N]▖[G] RESTORE [M]w COPY  INVERSE 0 INK 3 RANDOMIZE  OUT  TO VAL BIN r SAVE <>f POKE tTAN 2 RUN [J]O COPY sw▘<>BIN  NEXT >= LPRINT  STOP  CIRCLE #O RETURN  GO TO lCHR$ >=- CIRCLE g[P] INVERSE [L]r{  DEF FN + CLS [I]ASN 0 NEW " NEXT  CLEAR O@o[P] RUN  PAUSE SGN @ TO 7[J][I]w STEP  DEF FN ~ CLOSE # REM  INK ?1 TO '[M] OUT  RUN  COPY  CLEAR e NEXT ©y"H IF  AND  PLOT  HSGN hS OUT CHR$ PEEK LEN  CIRCLE BIN #c[I]o OR @ CIRCLE  DEF FN  FLASH  LET s LIST |s SAVE  FORMAT  INVERSE "sb OPEN #ABS bSCREEN$ [I] LINE ?271 RESTORE  INPUT LN 1▟ INPUT ?w BRIGHT  BORDER  RANDOMIZE  FORMAT p1▞ BRIGHT "[J] CIRCLE ▚ CLEAR CHR$ 0P AND `▖ CIRCLE >=CHR$  TO  LINE ' RETURN ▛BIN  FORMAT 0CHR$ t[G]I@[J]L INPUT 4[H] PLOT  © NEW  RANDOMIZE rL AND  THEN  COPY  DEF FN >=p LINE "1 TO [E] ERASE 0lB▖▝ NEXT  CIRCLE  CLOSE # DRAW  ERASE Lb RESTORE USR 2>hSGN n[F]}ATTR Mt SAVE n DRAW ▜O RETURN 9 LIST a DIM J>=i#[F][K]/ AND  PAPER "$CHR$  AND  TO [D]'&[O] SAVE  REM STR$ ▛!COS BIN ▛[I]/▝▖ PRINT <><▜AT  LINE ▞ RESTORE [D]7~P DEF FN t35▖$BIN  THEN l AND @b▜m>=BIN  OVER ([cG{w? INK 66 FLASH ▜ DEF FN  ERASE `©N. INVERSE Nq▖+PI LINE  DRAW o[F]▝c' FORMAT CHR$ bBIN  LPRINT ▛ THEN vCODE ` CIRCLE AT / RESTORE  SAVE ]© CAT [L]e DRAW |pUSR  TO  LIST 7[P] OUT #w CLEAR  CAT s NEXT  INK   FORMAT USR 0 STEP ©TAB rt GO TO  ERASE x▖ FORMAT " PLOT  ▖ NEXT 'y& DRAW ? POKE  OR USR CHR$ p▜[T] CLS ▖H pUSR s49[P][I]0p▚ LLIST | RUN KlL BEEP #& AND  THEN <> OPEN #E[M] STEP ▞ POKE 0NOT 2CHR$ | GO TO  AND  BEEP  INVERSE j LINE .NOT  INVERSE 3 PRINT ACS > THEN >=z CLS  COPY IN TAN NOT h>=PI RUN `USR /[P] SAVE $2 LINE t[E] BORDER  CLEAR NOT /@ PAPER 
  62554T,h!oBY DEF FN <25AT NOT [T]BIN 6> RANDOMIZE [L]<=▜ RETURN  TO ▘>==0 OR TAN VAL  TO  a RETURN x VERIFY  LPRINT { GO TO  CAT BIN <fBIN `QO|# RANDOMIZE  AND " FN  LOAD [P]SQR  OR ~HINKEY$J TO  RETURN :STR$  OUT BIN >=` DATA _6~[N] CONTINUE pu RUN CHR$ NOT  LINE  READ  PAUSE VAL wVAL <R CIRCLE ASN  LIST   LPRINT >=r8v GO TO [H]7!~ABS  OPEN #BIN |/. AND tY IF SGN [P]I PLOT  CHR$  LET  LIST  PLOT   DEF FN 7/2v>=INT  CLS [B]e LINE )©[H]G8 BEEP X ERASE ▟LEN [B]SCREEN$  RANDOMIZE e1OSGN [ INVERSE  CLEAR F LIST P<= LINE $?O7p CIRCLE BIN 3INT USR ▙ SAVE /D>= CLEAR fb POKE  OVER  READ  FLASH  DEF FN  COPY hxBIN  NEW  BRIGHT  MERGE [P]| LET  DATA  CLEAR wU DRAW CHR$ 971m?t▖[ LET  SAVE =>=6@ DRAW  CAT INT ▜~CHR$  CLEAR h▝8 FORMAT JTAN IN ▖ SGN  GO TO  POKE n7 TO s© INVERSE 3 NEXT ' DATA BIN [Q]PIaINT ?6 DRAW Q BRIGHT  CAT  PRINT O/8 AND [S] OR ▖ LINE >="764 INVERSE tAT >= NEW [I][P] LIST w ERASE <[C]%©6G' OVER  BEEP 5 LIST CHR$ ▜[P]7!]7PEEK  DRAW 8PNOT /[A] RUN ASN  READ  LINE 3USR ?▖>=0ABS ▗  LOAD  INK +}u OUT 8 COPY VAL$  TO  BRIGHT  THEN  STEP  ▜ATTR ^s97PEEK / GO SUB # OR  FOR  CLOSE #  LIST ▖[A]w STEP &NOT <>K2#EXP 3© PAPER D RANDOMIZE kK04 RETURN  CLEAR  AND  CIRCLE NOT W_SGN [H]TAN > SAVE %0 LINE  CONTINUE  RETURN  NEW ▖ CIRCLE 4[K]`@ LPRINT NOT "1Q OUT @z READ ▗(,8 NEXT BVAL 0/>=k LLIST  FOR ($@eLN  FORMAT l*-~ GO TO _t OR FCHR$ E COPY  DIM STR$  BEEP BIN D[H] LET PI RANDOMIZE  RETURN  PLOT  >=EDF RESTORE * INK  DATA  OUT  LPRINT [D] COPY  DIM D OR G LPRINT ( OPEN # RANDOMIZE PI DATA [H] COPY G LLIST ! COPY CHR$  STEP ▜ CONTINUE [P] CLEAR ' DATA >LN {7 LPRINT ▜▘ STEP F SAVE yCODE <> IF  NEW INKEY$ NEW BIN  FORMAT  COPY  POKE NOT ATN  GO TO [H] DRAW  IF CHR$  LLIST ' INVERSE 7ASN  INK  LIST 7F TO ▜ NEW  OR /USR oTAN 1STR$  LLIST  STEP  OUT  DRAW  GO TO © OUT 'STR$ [N]_©USR [H]} RESTORE [S]FN s/[Q] MOVE  DRAW /GA[H]w LPRINT ?[P] INK sSTR$  OVER  OUT COS USR f FORMAT PI, RANDOMIZE `[Q]/VAL  NEXT  BRIGHT CHR$ D NEXT  OUT FN / LET g!PEEK nSTR$ FNOT  TO [G] FOR ▝_GCHR$ [D]> SAVE  RETURN ACS  CIRCLE  CLOSE # PLOT   CLS  CLEAR  VERIFY  OVER lIN IN ATN USR  BRIGHT  INPUT  IF  STEP ATN 6n# DATA P GO SUB wIN p/[P] OUT ATN l VERIFY  NEXT vATTR  CIRCLE  CLEAR  LINE x LIST NOT  RANDOMIZE 7 NEW  CAT  LLIST n DEF FN  OVER  PLOT  BIN :>=<= LPRINT  TO  CIRCLE  SAVE y CLS  CAT o[P] STOP  NEW /5ATN  DRAW  DEF FN  RETURN  RETURN  NEW  PRINT  STEP ATN  DRAW 2IN <= DEF FN  INPUT [D] LPRINT LN  CLEAR ~ OVER > FORMAT PI} RANDOMIZE  OPEN #SGN ATN [I]n3. &D FORMAT O▝|0[T] GO SUB  PRINT  PAPER  PLOT  SGN [P]PLEN  GO TO  OVER  GO SUB | DEF FN ▙d[R]W RESTORE ^LN x TO >=: CLOSE #V>IN r▞ NEW ~ATN .8VAL$ SQR ~ VERIFY  PLOT   PAUSE USR  PRINT  AND v OVER 6 TO  RANDOMIZE  SAVE USR RND SAVE  GO SUB ACS  GO TO l>= VERIFY CODE TAN Tep- AND V RETURN INT )VAL$  STEP ▝[G] DRAW 0TAB 1&x STOP  CLS [A] INPUT 6ACS  INPUT hCHR$  LOAD  NEW ?ACS 8AT hfs(| ERASE  IF  GO TO ) NEW ~ COPY SQR [P]▗ MERGE ACS }; LIST ACS ~ OUT SQR PEEK /oINKEY$l[G] FLASH o OUT ~ INVERSE [S] VERIFY  CLOSE # COPY V[C] CLS 7 SAVE  DEF FN XACS [B] COPY IN + AND ACS  IF FPOINT VAL  RETURN Tj>=GINT 9 MERGE [Q]▝USR SIN ©RND COPY  OUT <ACS  STOP  READ [P] RETURN (COS  REM  CLEAR USR  GO SUB C THEN COS > <> LINE CODE  POKE  CLS  STEP PEEK ▛ NEXT <> PRINT  COPY :TAN  LET USR NOT [D]0 NEW VAL  RETURN @ OR  MERGE !hg GO SUB  STEP ' MOVE  IF STR$  LOAD <>n<>`USR sk? CIRCLE /~@<> STEP w[B]NOT > RUN [O][L] FLASH  RETURN <= READ COS  LET  BORDER  PAUSE NOT [C]STR$  CLEAR [O]PEEK Tc LOAD ( SAVE } MERGE  NEXT  MOVE <> OR  CLS v NEXT 4©IN  RANDOMIZE <>@0▖F[D]TAB "7n'!,27 RETURN F"<>B FOR X GO TO 3Y MOVE  INK 2lx,▚ POKE  DIM :{▜5[O] DEF FN :3>=[E]SCREEN$ [P] CLEAR LN 2▚>=[F][O] INK ePUSR V6▗▟X[J] NEXT ▘ATTR IN kVAL K COPY © STEP ▝▙X©[B] COPY  AND ▞ FORMAT Y[P][M]p$ MERGE B RESTORE  TO ▟" LOAD  POKE 2COS d▟77cZ| DEF FN 6 LOAD f CLEAR [I][I]ABS INT VAL$  DIM  IF ATTR [G]/SCREEN$ [K]% RANDOMIZE H]}zPOINT O< CLS %`L POKE ^ COPY . GO TO ▙1▜3Q<=[J],#:S PAPER Og[R] RESTORE ,Mc CAT D▝ LET  DEF FN © PVAL$ Y[U] DEF FN LEN P SAVE  REM  OPEN #@c MERGE SCREEN$ z3 MERGE @ OR  DEF FN  LINE ;EXP [P] COPY  RETURN k[L] SAVE USR ©COS <> CLOSE #▙ NEW [P]_OW LET  DRAW  BEEP NASN *_IN  AND A40Fq7[F]mb<SCREEN$ rOATTR  OVER  DIM [N]U RANDOMIZE  CAT } TO }EXP  FORMAT C5[P]I INVERSE SGN hATTR  INVERSE P%<=U[M]}[U]V<= BORDER =POINT  CLEAR  LLIST  NEW [O]FS3[C]} VERIFY  IF  LPRINT  CIRCLE 1 ERASE O[K] AND  CLEAR FCOS  COPY STR$ TAB sNOT # ERASE G▙= CLS  DRAW F>POINT  BEEP <&TAB [L]▙IBRNDd DEF FN  OUT  OVER * LPRINT SkABS POINT 1[O] MOVE B/? BEEP PI[N] MOVE ▟Q<= VERIFY  DEF FN =[E]SCREEN$ [O]FN <fCHR$ m)VAL$  PRINT 39SFN [C] FOR m5 BEEP >=< MERGE  AND K SAVE IN c PAUSE YZ}[Q]c% MERGE SCREEN$ [J]INT TVAL D@Z CLEAR C[E]1m> TO q[P]ck LIST T CONTINUE [I]m[F]?[Q] OPEN #L OR  SAVE *[O] SAVE 3$2NOT  PAPER IN 1CHR$ 1! 4 OVER COS " MOVE .[A]Yx CAT ATTR  STEP '(M[A]9GB[C]WP MOVE l[D]=L[K]4 RUN ▙ OUT USR 7 VERIFY  LOAD SCREEN$ $ CLEAR  REM N READ o51)4M$AT  READ rlh OVER TAN ATTR &SIN  NEW ▗x▝')SGN  PAPER V▛▞VAL  INK  RANDOMIZE  RESTORE 6RND▘AT [T],EXP [R]SCREEN$ 3[J]SCREEN$ ^AT ) NEXT u/GYM[J]INKEY$[I]INKEY$TAN <>> STEP IN ▜ TO  5e RANDOMIZE CODE [K]|1VACS [A] TO " BRIGHT <=TAN ▜FN $+INKEY$z[K]x3~9E AND ^▚<> BEEP  IF CHR$ TAN AT VAL  OUT STR$  RANDOMIZE ▘ OR ASN  CLS ©Y▟ SAVE /} INK !"_▜X▖VAL$ 3m STEP c1[D] PLOT  9+9R>=9YY!5Y[C][L]) INVERSE [U]USR ▞Nm/▝Oqy}SGN gCOS  TO STR$  NEW 02 CIRCLE yh8 CLEAR [T]l BRIGHT INKEY$POINT SCREEN$  PLOT   AND v0 INPUT Y DEF FN EXP zSIN ? STEP EXP COS HfCHR$  NEW  FOR G FORMAT  PAUSE K AND [U]▞ PAUSE  REM P VERIFY  RESTORE SGN  CLOSE # DEF FN I[D]J CAT DIN  RETURN  THEN SCREEN$ ©M DRAW CODE ;[L]VAL CHR$  COPY "<8!:7[O]COS ASN FDSTR$ X OPEN #]6iZ▝ OR /9([A]▞ DRAW BIN w SAVE {[K] READ [E]RND POKE  LET VAL 5 SAVE _@Kx[B]u[S]INKEY$ CAT  AND [A]d BRIGHT < LIST e LINE js8 RANDOMIZE EXP  OPEN #▟I FLASH LN  CIRCLE 5 OUT  DATA  LINE SIN  OR cVAL$  INPUT 3 LLIST  MOVE V▙ AND k AND  MERGE ATTR SE CLOSE #2▜ OPEN #8z▙[K]v▝ASN J[M]N>t%SIN  NEW SIN GZ[B]L COPY  RETURN [R][U]SGN z[F]YdF[D] CLS ZV SAVE [R]W▜CODE  INK D@FINKEY$X1BIN [A]YSQR  PAUSE ▝5▞EXP STR$ : SAVE POINT ATTR kIVAL$ ▘(g STOP  DATA  COPY [I] ERASE FN  OUT 7CHR$ L ERASE q^ IF  STEP ~GcP_bPEEK  DEF FN "c[I]m RANDOMIZE <>VAL$ ASN [C]) BRIGHT  INPUT  FORMAT SGN  PRINT  CLEAR ▚[A]R BRIGHT USR  STEP <[S]AT ▖LN INT mRZ LINE ABS DODATTR  GO SUB ▛C▝ BRIGHT ySCREEN$  RESTORE  INVERSE IN INKEY$ACS INKEY$!& NEW  DRAW ABS  MERGE  COPY JY? RANDOMIZE XnPIcRJ~t PAUSE ibV[C]*INKEY$ OVER  COPY  CLEAR eASN [O][O] CLOSE # MERGE VACS  REM  FOR [B] CLS  CLOSE #[U] LLIST x FLASH  GO TO z ERASE  SAVE [A]j DATA &▘SGN  SAVE ▝ GO SUB ;PI POKE [B]|3[F]Q:_]pE"[D]Rn:}L| 7TAN [F]*TAN +93 AND  OUT  CLOSE #U. CLEAR I POKE VAL _ LET ABS R NEXT 2[C] TO ▝[U] CLS TAN  PAPER [U]mLEN .PEEK  LIST 4AT ^ RETURN  RESTORE Y[H]T[N]SCREEN$ e; RUN  OUT M OPEN # BRIGHT '0*|%$+ CLS Z- DEF FN XI}U< COPY -.X1&mY RESTORE  OPEN #> RESTORE eIk:X 3e RETURN e5 ERASE  GO TO [E]wz>=SQR ;zICHR$ oQ LPRINT mY DIM t0GCODE -<= LLIST  INK ZVAL MJ[B]% POKE  STOP bEXP A-B8 RESTORE  LET  STOP U~ TO &SIN  LOAD  TO ABS  DIM S DATA [H]INT  CLEAR  ERASE   DATA K▜INKEY$[C])VAL  LPRINT /[D] FLASH  SAVE INKEY$S RUN cN* DIM  FLASH [S] INVERSE IN [J]Q9ASN WHl CLEAR  CONTINUE < CONTINUE I NEW } MOVE IN ▝▝h COPY ln26 RANDOMIZE rCOS ^ PLOT   POKE INT ▗.|ABS 0".▞Y FORMAT  RANDOMIZE o▗Z7EXP  BRIGHT /# OPEN # THEN [U] POKE SZg8 ERASE 'P CLOSE #[G]WQW VERIFY quOyY▜ SAVE  RESTORE  OVER ( INK  LOAD  OUT ^&p MOVE ) CONTINUE IN READ  MERGE  CLOSE #?7z GO SUB  IF I;8 LLIST NOT  PEEK [Q]TAN  OPEN #U OPEN #A] CLS  MOVE Ww[U]FJINKEY$PEEK CODE <=CODE (lm')[U]% INK 6[C]U(▟{ VERIFY  DEF FN -AT ▜CODE PEEK  LLIST {7>WJ LOAD [D]EXP }<=uCl TO  OPEN #WX NEW  READ  COPY )|~[L]LN  IF  REM  INPUT YZlBX FLASH [N]STR$ :! DRAW } AND  INVERSE PI[/▜▞}PEEK  COPY SGN  LOAD  CLOSE #B INVERSE  THEN 1) NEW RND<> STEP ▗YETAN , GO TO EXP  STEP  STEP 0[I][H]S IF } FOR r PRINT  PLOT   CLEAR ULu▘ THEN  AND [B]`!SQR [U]I~t THEN ,[H]PEEK ygCHR$ B PAUSE bBIN  LET j BORDER )<>9▛TM LLIST  BRIGHT  ATTR CODE ( AND VCOS 3 PAPER ATTR "$c[T]TAB IN  LINE  LIST STR$ INKEY$ CONTINUE  DEF FN [H]BIN =[A]p> COPY 1^: OPEN #& PAUSE W[K]| RUN D▛F[D]9A.▟▜/Y FOR  GO SUB e GO TO i9 LIST &.l4!INKEY$9VAL  CLEAR  GO TO [I]KLN ;'SQR ▟ FORMAT ▙6bINKEY$Rs^lY MOVE 7INKEY$i▜[H]dSIN  OPEN #|/'▖+5_~[K] INPUT  POKE &© OUT  SAVE _ GO SUB k@PEEK [T] [A]&<>YX[R]SGN  BORDER  OPEN #: LINE >=BIN  FLASH n DATA  POKE [F], LOAD c GO SUB ▘ VERIFY  CONTINUE e LET EXP  AND ( DRAW ! INVERSE PEEK  POKE  AND  BEEP  LPRINT I IF ▜ COPY COS W IF [P] COPY [J] THEN  RUN ]-NVN3K LOAD  OPEN #XASN SQR [T]©wATTR N TO  AND ▘X DIM LZCOS uYPP %E STOP /} PAUSE CHR$ SCREEN$ O_IPIB>MsNOT [H]COS  RANDOMIZE s3_ DRAW  COPY  LET sNOT [U][P]}%wRNDAT [U][L]M OVER ▚I RETURN $ PLOT  Q REM ▚SCREEN$ Z ERASE fF▚[E]lOPOINT =[P] LIST , IF ;N_ PAPER /[T]#ATN ▚<>▟SCREEN$ CHR$  CLOSE #K OUT n READ  GO TO  FLASH [K] LET " CLEAR ]u POKE 4>  TO  REM  DEF FN n OPEN #(P"[K]fUSR  CONTINUE Xo,LN  OUT lX OR  PAUSE  ERASE  AND +Z BRIGHT u@BIN Yha▟C RANDOMIZE prQe BEEP XW THEN | DIM  MOVE  BEEP Y DRAW FN ▚ INPUT [L][K]]>=k/Ur- LINE e$SGN  SAVE  BRIGHT ZTAB w FLASH  PAUSE  CLEAR  CONTINUE COS 1O>=/ABS ; POKE  REM  IF V[U][H]^Ej[K] SGN !RNDNOT W▛$ CONTINUE BIN  BRIGHT m STOP EIN ! GO TO m INK c[F]c[N] CLS SCREEN$ [T]CHR$ SQR 3 BRIGHT +[B]S LIST  AND  IF CHR$ SCREEN$ CW"g NEXT lI;R MERGE  LLIST # OVER 3▘[R]SGN SQR  PLOT   COPY  INPUT  INK  DEF FN Xo▟Y8 CAT Qq CAT ▜ SAVE Z]PI NEW COS [F]B▖F CLOSE # STOP  GO SUB P DRAW `d1r!m<>TAN FN  CLS ▜EXP #o▛1= POKE [C]EXP #▖[P]PEEK -h COPY 4*<>▖T7j RANDOMIZE v5▛/EXP [D]K▞~ IF 5j<=e{©[P]&5IN /U/sSCREEN$ ATTR  COPY  PEEK [E] THEN $ RANDOMIZE  POKE  LET 6 PAUSE  LINE &INT o IF [ABS  RESTORE = RESTORE ( TO c OVER ▘m6PEEK  AND d CAT  FLASH  DEF FN  COPY =n) GO TO  CAT n GO SUB Y OUT LCCODE E;Z[K]▚;w9<=@i RANDOMIZE  DEF FN  VERIFY /e BEEP 1t PAPER  FORMAT COS [J]▝[F] LET SCREEN$ 1[D]]}I4 MOVE [S][U]INKEY$[R]<>INKEY$J▘OIN [ REM  PAPER KINT  LET [M]w LET SIN [U]▖ RUN  POKE =5POINT 8A.w' CLS  CLEAR  BEEP  COPY pt GO TO  PRINT tRNDY0 GO SUB .l OPEN #/[H]P[E]BIN o[K]1[N]![O]q READ [H]▛Y[C][J]INKEY$ INPUT uk INVERSE g([S]ATN  INK  PLOT  5`ABS t<=[P]YT6▚i DATA RND PAPER J[H][E][S]+}[R]+LEN TAN 5 CLS @©q COPY I LET I,Y2&f&M& LIST XINT  COPY  RANDOMIZE c#S$e"/! OUT COS bojZ_ STEP FN YrCOS  FLASH  CONTINUE FN / LLIST .<=jeSIN #$ PLOT   LINE ©/INT } GO SUB ' PAPER [A] CAT * FOR [G](]) LIST INT Y▙SIN ![J]INT  GO SUB  PAUSE , OUT SIN ▘ RESTORE [F]B/pk INVERSE Z'kATTR *ABS INKEY$ CLOSE #$)PI[F]TAB ATTR c LIST ▝SQR R>= [M] THEN .>^AT  DIM Cr RUN  BORDER  FOR #EXP SGN [Q]gINT ABS CHR$ <{FZ[A] CLS i DIM y5PyB REM  MERGE BIN I[J][L][G] IF " DIM  POKE USR Io CLEAR |STR$  CIRCLE  PAPER INT  CIRCLE  RANDOMIZE [K]!▝rEXP mPI[S][ LINE POINT oQABS ![R] LIST  GO TO ▚COS }[J]cSQR  MOVE |BIN  FLASH Y#g=<▗W[T][L] READ  DRAW w OUT [B] NEXT Q7NL POKE 83z▝ NEW o CLEAR [O]STR$ Z▚[J]` RESTORE POINT a▝ THEN ABS N STOP KY NEW ▖uLN [S]k7#2[O]lSTR$  LOAD  LPRINT  PRINT [A]V©oA1 OPEN #93p,▟YnVAL$ ;%^▖ BORDER [H]/e@*^5[H]G2 MERGE  NEW  DEF FN G2x FOR  LLIST E SAVE  STEP  AND o RUN  ERASE [K]bSQR  NEXT [N]7b[U]q RUN .g SAVE [S][R]CODE PEEK 46[E]0VAL$ PEEK [K] PAPER ATTR {0EXP  INPUT ▝)CODE  MOVE VAL [L]Q CLOSE # LET  TO ▛TAB H GO TO  OVER  CONTINUE  LIST Zs VERIFY LEN Hy%CHR$  RETURN c>=gP CIRCLE PEEK [B][U] FOR {TAB $ OPEN # RESTORE ] DRAW PEEK ▜PEEK  OPEN #zT[Q]©fLN $ RANDOMIZE 1ZS FORMAT [A]SATTR S FORMAT COS o OR 04u▞CODE ▙_ CLS Rg©Xr{TAB  COPY SQR ▜Z▖Z© INK W GO SUB PEEK 1RSIN NA ERASE p RUN o BORDER >= AND ATN  AND [ REM  GO SUB iF= PAUSE [G]EXP  BEEP [P]/ PRINT e4ATTR iM DIM POINT ▜&>▞>CODE wF▖s OPEN #USR /!} BEEP WyF[R]WATTR PEEK J[L]KCODE 6 BORDER [C]g_ INK IZACS o+4]EXP BIN <= COPY + OVER  CONTINUE 6oq[I]; OR nn*▚ OVER AT CHR$  THEN ASN  CAT 6W▟.+M+ COPY /W▟s[N]^VK INK [G] BEEP ESCREEN$ [R]_ GO SUB m CIRCLE , RETURN [L]/px-LN hJ# NEW 7 GO SUB ` COPY [T] LET [D]|_- RESTORE  AND SIN XATN LN Y7@ COPY  OVER %IN  PAPER {P!▜Z REM  BEEP }! RESTORE %[M]ABS wpKs RANDOMIZE Z[~f CONTINUE  PAUSE IR AND / INVERSE  FLASH yIz▜v[H]aW}<>▘[S]SQR  LET  ERASE ABS L OVER POINT ATN  PRINT  MOVE [N]eggVAL  IF [S]SQR  FLASH {POINT  MERGE }<=z[H] FLASH 8SQR WBSQR <W[E]TAN RND)ABS [E][O]. CLOSE #ABS iASN ▝]SCREEN$ [I]▝ COPY  MERGE TAB NOT wphZCOS [A] CAT  LLIST VAL$ S▜ LPRINT  LLIST ABS  AND INKEY$ BORDER [O] RESTORE PEEK  READ [D] BORDER  SAVE VAL / PLOT  A CAT >1/CODE >=-[K]ACS ![R]+p ERASE z[I]y STEP  SAVE  STEP [K]Z<%2[A]qATTR ▛9 DATA J CLEAR [B] MERGE CODE INT COS  REM ASN e PAUSE vTAN  OPEN # GO TO   FLASH ^[M]| LLIST h]gPOINT Fo,FCODE  DRAW  RESTORE  CONTINUE ▟[A]COS Wb<> LOAD =3,[F]PEEK  GO TO e INPUT [U]<> NEW POINT ATN FLN  IF CHR$ [R]IN  LET +ATTR  POKE [C]Z OUT 4 AND  SAVE ! COPY SGN E OVER [J]*+ ERASE  THEN d ERASE  OR qX`> DEF FN r#[K]PEEK  PRINT U:y LET [G] PLOT  COS SGN IN #EXP 2COS "ASN  LPRINT [E]<'[K][E]Z9 RANDOMIZE y THEN ▗INT f▗▜z[J]* COPY {INT .! PLOT  n[F] LIST [B]*R{+ BORDER ATN INT PI NEW CHR$ INKEY$$ NEXT 2m DIM  RETURN  OPEN #*▘W> COPY [L] INPUT OI&jJH COPY Z INVERSE gjH,'IN RUACS  OR 2 OR 'W/kXP AND  COPY 3z21▞"[B] LPRINT  FOR [A]VAL 9i#gASN [b(▝ CLEAR  FORMAT  IF d BEEP SGN  GO TO ]d▝p AND  IF  CLOSE # THEN CODE PEEK  FLASH K[E].LN  SIN ' LPRINT CODE  PRINT < DATA ▙ TO {▚ATN PEEK Wx-yk PAPER H6/CHR$ j7 LOAD RYLN [P][S]/ COPY  THEN l~TAB l6 READ v"| CLS  AND zp!▜YHl< OPEN # THEN !QqLEN  AND .10 PRINT |"R]wACS 6[U]R[C] ERASE a RETURN  TO [L]q]xPEEK  GO SUB 'e STOP  GO SUB  BEEP  FORMAT } LET LEN  LPRINT  GO SUB  RESTORE w INVERSE ENOT JIN RND CIRCLE  GO SUB ^o DATA [M]CODE RNDTAN [U] PAUSE  BEEP PEEK [U] LET Z FORMAT  VERIFY o FLASH  DRAW & OR [K][C]INT # LINE iCODE  BEEP  LET W" LET  POKE zi OR OkABS ▘ REM rj NEW ATN ATN ▞pHF CONTINUE  CIRCLE   COPY  LOAD ! RUN  PAUSE  OVER  RUN MPOINT  BEEP xP[U]j RANDOMIZE mt NEW NOT /$ DIM ▝G1BIN * INPUT MATTR T!J[B]= CLEAR kCOS [T]FN Z DIM INT R COPY '[ REM 5EXP PEEK  CLS VAL ZQ OUT  BEEP q▛Sbo!os ERASE ▞▛CHR$ Y7/ POKE ▝+o FLASH FPEEK  VERIFY ATTR fABS CODE PEEK [T]_▞ PLOT   CLS 4UINKEY$ASN  GO TO  DRAW `IN  INK . INK k▛5 OVER [T]PINT J NEXT ATTR |G IF 5 OVER ^COS AT 1K RANDOMIZE [I]m OPEN # NEXT zVAL$ RNDoPOINT  RANDOMIZE RND RUN INKEY$AT uu MERGE wTAB _ LINE  LIST u PLOT  6yP▛INKEY$* INPUT Oio RUN FN t-! BORDER -aACS [M]GD[E][A]ikPEEK [I][Q]POINT POINT {| MOVE R BEEP =yK/[U]x} BRIGHT  COPY  INVERSE u1 LET }SIN ) BEEP  OR Z+-l#D FORMAT  TO  DEF FN ]X|[K]"RND RETURN  RESTORE STR$ [I]RND[P]▟7ACS [N]EN3[P] INPUT  OPEN # DATA ua(LN LEN LEN  BRIGHT  INVERSE Y[T] OVER  OPEN #[U]y87zZ©[H] INK M" STEP [Q]? CAT [R]YSTR$  AND  DATA &[J] PLOT   MERGE ZASN & PAUSE 3▟ MOVE [ MERGE / ERASE *r/ STOP ATN  PRINT [S]_ MOVE  STEP  PLOT   PLOT  ASN R CAT ATN PEEK  LPRINT }c POKE  MERGE  BEEP ABS  BORDER  POKE  RUN  TO V STEP 7PEEK  BORDER PEEK  RESTORE H_INKEY$-lNOT {M[L] BEEP 2&/▗▝~ATTR ATTR Mk CAT m} FOR g[K]6Q OUT  IF X GO SUB  PRINT ASQR ]/[L]Y VERIFY  VERIFY * FOR 7▝ INK  INVERSE >=)[F]h DIM [P]▘ THEN [L] INVERSE 4z MERGE  BORDER ACS n[D]3 PLOT  +[R][T]▗5B>=[IN g BEEP VAL EXP  COPY # LOAD  CLS <=d]3bC[T]▟c BORDER  NEXT z%LN dyQn▛q MOVE c>= AND fTAB  FLASH ]EXP [IN l GO TO [S]% PAUSE BIN  CLEAR  NEW c▗W POKE fay$AT AT  RETURN > THEN sNT GO TO RND BEEP ▞$e GO TO  IF  REM STR$ < OUT  CAT d` OVER  POKE ▚mTAB RND▗wnTAB [K][J] PAUSE  MERGE  TO  FLASH  FOR FN [N]SGN <z DIM  BORDER _(_#h MERGE <=%R STEP L IF  LIST RNDu[[M] THEN +USR 0/PEEK O PAPER ▛d RESTORE  CLS VnTAN .▘l NEW WM▖▘ POKE  VERIFY EXP Jo LLIST RND LET [O] CLOSE #nAkRABS  BRIGHT b1 CAT $Gm`▘PEEK  POKE ▟SCREEN$ OTAN T OVER j PAUSE 5▘q FLASH G▛[P] OR  THEN k?3>=MPOINT  BRIGHT  OR /C OVER #[B]▘SCREEN$ [H] CONTINUE [L] DATA  PRINT  RETURN &ATN [D]RND2YPEEK [N]ABS "ACS RND/ATN V[D] CLS BIN  CLOSE # CONTINUE ATN  PAPER 2F LPRINT  PRINT [D][I] PLOT   STEP @o CLS  DEF FN ! RANDOMIZE  OUT <MbzSCREEN$ XYZ STEP [G] ERASE ▝^l ERASE TAB ,/ASN m▟ DIM * STOP +[D]POINT  STOP Ky[F][U]mJ▜ VERIFY c▚INKEY$ REM [R] THEN VAL$ SQR  LOAD  STOP  DRAW  REM [Q]▚ CLOSE # LIST ^VAL$ oi BORDER ▚;bPOINT F POKE Z SAVE CODE PEEK X^dEXP /])T PLOT  [K][C]|PI1[E] MOVE jPI BEEP ▛▝ GO TO 2COS  INK gm(USR [F]© CLEAR = COPY [T]P READ ATTR =)Y DATA X▗▗_ NEW n*Y[O]$▜x OR  MOVE VAL$ -©N DEF FN ATTR  GO TO YTAB AT VAL$  OPEN # IF POINT ▝ DRAW ▙▛ INVERSE USR ! LIST Q[U][P]▛"R RESTORE ▛ FORMAT UY[L]WY7tATTR ABS  STEP Pt CLOSE #RNDAohVAL$ SGN E[P] PRINT  PRINT  INVERSE 0"F READ USR USR F. PLOT  Y8f IF [F]x DF@kYuCODE  THEN [D]"▗ VERIFY ^&}M[R]W_hF INVERSE I]]T DATA [L]l: CAT [O]▟VAL$ [E]▝ GO TO  SAVE {^ AND [D] LET [H]RND INVERSE 4Jd INVERSE 9CODE tJ▟ DRAW ATN <FVSCREEN$ v OVER <> OR "E[J]D=<= NEW  LPRINT -CODE 17LN t[T]$CODE .VAL$  STOP INT s VERIFY  OPEN #IN  OR o$ INPUT INT  STEP  THEN VAL$ B_ LET  NEXT kABS  STEP  OUT ][U]FN t COPY ob"IN SGN  LOAD X<=LN  IF RND FORMAT  INVERSE ULEN 5ATN W[I]p|Z STOP SIN  RANDOMIZE x REM ?X DIM TAB  PAPER -^FKJ LET  RESTORE  PLOT  GKH[#uN[I][L]RXM RUN f OPEN #▝Nv[J]CODE ▛iP BIN lO3 REM ABS kj BORDER BIN BIN  DEF FN /o INK f[ LOAD W0o POKE <[U] PRINT  ). FOR <=oNOT ▟[L][G] INVERSE RND LIST T|TAB  BRIGHT ZJ4 CLS  REM  PLOT  [F] FORMAT 6▜GLEN [O]SIN SQR O[S].STR$ e GO SUB  ERASE ▞eCODE SGN SGN [E]K▚~[N] DEF FN TAB  STOP mCODE  [U]Y DEF FN  COPY  BEEP IE CAT [H]RNDtZ2Y[J] DIM [C]0kr,SIN SIN [L]` VERIFY p[A]0= DRAW LEN AT n*P CLEAR LEN AT l.EXP  DRAW e CIRCLE x FORMAT W[M]hbg MERGE XASN [P]j[F]Y NEXT 7 OUT <=17n)GINT [K][C]".R CLOSE #ATTR  OPEN #< AND aV/lSQR e"/to OR ▚}%;5]>(ABS  PRINT ASN BIN  LLIST g▗SGN 6 PLOT  'ATTR CODE h[D]ATTR c8h STEP sXATTR [V OUT .v READ l CIRCLE [G]  LOAD  GO TO ▗ BEEP  NEXT  OVER r7>=USR ATN  PAUSE 1 RESTORE   STEP  ERASE +CODE %GO ERASE [O] STOP  PLOT  u<#TAB ACS KSCREEN$ KIJ BRIGHT  PLOT  hn[U]%l[U][R]USR  CLS [P]d MERGE COS Z[O]CHR$ ▝-[J]2 READ RND PRINT [J]! STOP [F] COS ▙mqATN [T] FORMAT  LINE I LLIST  IF t#lN LPRINT  LET  PRINT EXP CODE  IF  OUT fATN  GO TO NOT oSQR  AND  COPY ? CLEAR ]SIN 1^9 FORMAT ~ CONTINUE  OVER 51) OVER iO6 NEW TAN 1CODE X[J]ZU+ INVERSE ^ DRAW  DATA FN  INVERSE VlYm} PRINT  INK  LET  FLASH @[B][B]] ERASE VAL  LET [O]v[H]B SAVE bRNDRND[ OUT 9 INPUT SIN j>=7EXP mWSQR O[U]ASN 4 DEF FN  INPUT k]IN oE3▚tVAL$  DRAW $TAB * PRINT  SAVE Gu^EXP ABS  READ 5 DEF FN  FOR  MERGE >BIN _{ SAVE <> BRIGHT iSCREEN$ SCREEN$  INK SCREEN$ [K]FN b MERGE g"l NEW ]POINT ATN SGN  ERASE I[R][Q INVERSE  COPY  GO SUB  OUT [O] NEXT ZH STOP [D]$POINT  FLASH  FLASH Y RANDOMIZE  ERASE [O]EXP ATTR [O] PLOT   READ  OVER  FORMAT [P] INK T[N]USR  CLS  STEP [P]▜ DRAW  BRIGHT XTAN  OPEN # GO SUB  MERGE LN INT Z▗VAL$  COPY  RUN @▞![A]▟5▗3z AND [R]5 CLS  INK O NEXT [H]ABS  READ [G][R]^ LET  BEEP [N] INVERSE  VERIFY n@Zn SAVE  RESTORE  MERGE PIN ?|V NEXT LFmSQR O-[S]SQR < VERIFY M[S] INK CODE } RANDOMIZE PEEK s▟EXP INT % INPUT  BRIGHT  REM k[B] INK [F] PAUSE n COPY WEBTAN VAL AT +1 THEN - OPEN # OUT VAL$ #>=n POKE CODE  MERGE Fn[R]/ KAT ;VAL  LINE R[R] LOAD IN L LET ▗ DEF FN ASN  COPY  FOR w>=X BEEP ABS  STEP }IO^ CONTINUE m RUN  FORMAT VSIN TAN c DATA [U]q[P]bX RUN [T]CODE K[D]$/VAL$  LINE Wm▛VAL$ ATN  CIRCLE j= CONTINUE d▛ CONTINUE 3 PAUSE ▙ STOP ATN  STEP .PEEK FBIN  INVERSE  COPY SCREEN$ VAL o[U]VCODE rSTR$  oF% LLIST TAN C LEN N MOVE 42ASN POINT ATN AT  RESTORE [H]W[R] PRINT  CONTINUE [H]PEEK  LPRINT KTAB [M] LOAD  DEF FN  LINE  FORMAT ATTR FN  LOAD  MOVE  INVERSE ZSGN 5y=] BEEP STR$ POINT PI OUT Kz NEXT  MERGE 7g CLOSE #-nT REM z▘▝[D]▟ OUT INKEY$SGN  OVER © COPY L CONTINUE  FLASH y CLEAR  COPY [J]Z CLOSE #X_ CLEAR T[P]e CIRCLE  GO SUB  CLEAR F▚&[S]$ NEW  DEF FN e COPY BIN COS  CLEAR DEG MOVE COS INKEY$JKM}PIN[U]COS [O]RNDPIz VERIFY FN SCREEN$ ATTR TAB  DEF FN [L] LOAD VAL$  INVERSE ~M$eoTAB yg OUT [K][K] CAT R ©▗ INPUT  OVER POINT < INVERSE ii▟▘ CAT TRNDE POKE +) IF  RANDOMIZE "FN  MERGE  FORMAT COS PEEK  ERASE #CODE  RANDOMIZE  LOAD FN  GO TO H[N]P>=[F]3ASN ABS [R]INT [H]PHK8ACS 0O[n[O] OVER VAL$ ^x MOVE  VERIFY  BEEP  FORMAT ABS 2NOT |[F] GO TO x LOAD g<>P OUT ©nATN 2 STEP Ym STOP  PRINT l<LEN MSTR$ TAB SGN  OVER ;!<~#{XZM-*-F=< INVERSE  NEW 0▞ MERGE >=[C][O]ABS  MERGE wnpBIN  OR b]▘ THEN  STEP  READ  GO SUB  CLOSE #▛EI)#^VAL  BRIGHT - VERIFY  PAUSE j>=!t/} SAVE n[L] VERIFY CODE INT ATTR 1 FLASH ! PAPER [S]e[H]▘ACS LN  LLIST FV VERIFY [R]KAT [I] CIRCLE [C] INK  LLIST [J]! OUT L? ERASE  BEEP  INVERSE F]eRND( READ [S]&  FOR u)< LOAD  ERASE j FOR MT4SGN  POKE  PAUSE 8j CONTINUE : MERGE fY5LNOT s[G]UB▛INKEY$rkm AND  VERIFY [H][F] FORMAT ▙ POKE ${ DIM [I]=y1WX LOAD g NEXT ABS Y GO TO Yw<>y PRINT  TO  SAVE y5 OUT AT  DIM L1! STEP ] GO SUB  NEXT t3 CLEAR  DEF FN  PLOT  -0*) DATA  RETURN  LPRINT  LINE + DEF FN ;xAoO$ FLASH  OR > OR SCREEN$ ATTR  LIST & INVERSE qNOT /rSQR  DATA  OUT  ERASE  COPY MATTR J= FLASH ▙[P]P~# CLS <= OVER $ABS *J+NOT  OUT  LPRINT .JFN  GO TO ATTR  MERGE UCOS f LET POINT }▛W_SQR ABS 7&CHR$ :0BIN  INVERSE [U]e? THEN >=5NOT SIN S READ  STEP .8 OUT P[A][I] STOP ▛VAL  NEXT  PRINT  CIRCLE }| PRINT INT o DEF FN  STOP ▘CHR$ SVAL$ SQR g▛ OR <> LLIST  LOAD ~aoi! DEF FN CODE  PLOT  POINT ATN  CONTINUE [G]ABS ABS lPEEK jJIAqCHR$  CAT NOT [U]CHR$ ▛VAL$ >h{ LOAD  LIST ASN kSGN I$[O]LPINOT  IF jBIN ATTR | COPY  RESTORE  PRINT [%Z[F][^e[T] NEXT TAB NOT [E]/PIWSCREEN$ x TO RND DRAW ZLEN  MERGE a BRIGHT or PLOT   VERIFY <>m?$$PEEK  TO B[T] VERIFY  BORDER  CONTINUE  PLOT  / STEP  ERASE POINT D[L] LLIST CODE  POKE ' OUT  PRINT POINT  ERASE kABS [J]h DIM ,▟ATTR  OVER [I] GO TO  REM ~K2PEEK ~EXP  PRINT #RNDz OR [R] FLASH + FORMAT CODE T PAPER SQR Y▞[R] INK TAN *; CAT  COPY SQR +'POINT C▗7j!NOT CODE gy ERASE eMqR>RND1 PLOT  /EXP BIN ACS  LOAD w[T]ATN  SAVE [M]L[O]hINT [M]ZCOS B MERGE m3[L] PRINT [D]+-' AND [M]PCOS BIN  INVERSE  CLEAR  OUT [B] COPY  PRINT b DIM [E]ZbSGN ![A] SAVE SGN  FLASH R[I] OPEN #Z-1n LET  OR ▜[J] INK f INVERSE [Q]} LET  LOAD o PAPER  REM  PAUSE [M]P NEW VAL$ 'w1▘IN =EXP FSQR &P"vLN  BEEP [J][F] DEF FN [O]/[B]ATN [H] GO SUB  OUT [K][A]▖CODE ABS ATN ^ RETURN u POKE  OR W LOAD o OR [N] LOAD  GO SUB hSIN CODE x POKE -&T READ [G] FLASH W[ INPUT M CLOSE # OR ▚7ASN ▝ STEP L▙COS wAY LIST v FOR kr BEEP ^M TO  OUT  POKE ▟6B{RNDdrSGN j7>=LK; LINE V CLEAR ;H CAT k GO SUB ▚e MERGE Y OR { CLS USR c PRINT [R]ABS E[G] SAVE H LIST  THEN  FLASH r INK  INPUT ASN [I]]k[O] CIRCLE ABS VAL }ASN  NEXT  CLS VAL$  COPY ATN ▘ZY[N]g FLASH 2 STEP =f2*wD} PRINT Jt▘▚w"MCODE  RANDOMIZE ~ASN [F]yS}[G]COS PI^S1B[A]TAN JVPOINT  PLOT  [E]/2 TO  BEEP [T]RNDn5 INVERSE <>x[U][L]c[M]EXP  MERGE  VERIFY  THEN ZIN  CIRCLE wM STEP (VAL$ r CONTINUE V_ NEW 4 INPUT U PLOT   NEW [B]Us[F][L]SGN O NEW [N]D PRINT [G]$ATTR ^▘Ig GO SUB .n▘wABS  MERGE o VERIFY squTAN o▚ COPY ^PI LINE [C]8{W POKE T[G] LIST  LINE NOT  STOP R ERASE  IF FN [D]g REM 8 FLASH  STOP  IF  INPUT  MERGE yB OUT 5[P]F'( LOAD w) POKE Fj AND ltZv LIST  PRINT $YX▚ FLASH O)bSIN INKEY$|$. IF P/1 OVER  NEW ] LOAD ▙ PLOT  vvCODE qnDZ DATA  CONTINUE %[S]M[D] VERIFY USR  BEEP z PRINT  RUN +_op FOR  POKE [J] INVERSE ▛olACS  MERGE AACS  CAT EXP ©7[U] SAVE y READ QRND CAT  INPUT TCaAT POINT .q AND ]> PAUSE b LINE  CLOSE #HCODE INT [L]ZPOINT  DEF FN [E]VAL ▚zRNDu DEF FN W^[B]FN INT ?LCOS  PAPER . NEW ▚4LN  S1^,e▞_[I]▗$ COPY ( NEXT  GO TO 5 THEN SxACS TAB ▜XsACS  COPY G▘ATTR ?Y STOP AT [M],J IF  OR & NEW  OPEN # POKE  PAPER  FLASH  TO  DEF FN  RUN p INK ZSGN POINT  DEF FN ▚z) LET Xw PLOT  VAL$  RANDOMIZE 5 FOR [D]^Y3▛=VAL$ +;IN 1▜ FLASH  TO  OVER INKEY$ OUT %▜ SAVE  STEP  NEW  INVERSE 6. DEF FN BIN  RESTORE [P] STOP  DEF FN .E READ COS ▛STR$ _ DATA  STOP [S]ABS [O] CONTINUE  DIM  GO TO  REM  BORDER v MOVE [J] IF p1[N]x OR  LLIST <>T CIRCLE  PAPER /0 CLS  DEF FN  RETURN >=▗[K] RETURN ( PRINT c LET ><>n RANDOMIZE  LET ! LPRINT P OR  RESTORE  MOVE 6LEN b RETURN u GO SUB VAL  LLIST $STR$  LOAD >G2 LPRINT Z BORDER  COPY [N] LOAD <>>IN  FLASH  RETURN  FORMAT 0VAL  SAVE 0 RETURN qBCDEFG©▝:( STOP < NEW LEN >2!)<>dO RETURN N RANDOMIZE [L] INVERSE ![L] q?nf RUN g#|ASN ABS  GO SUB ( THEN <= CLS | PLOT  Xgq#BIN + OUT <>&PIY DIM m< RETURN ZCODE IN j BORDER m3 COPY O! AND h GO SUB [n STOP  LET "MoINT U NEW  REM ~#|c LOAD  PRINT RND: IF  STEP  READ /~F[O] NEXT WOs RANDOMIZE >=>=~ RESTORE INT  SAVE OCODE  OPEN # RETURN  INPUT  OR A[R]NOT = SAVE [K] IF # GO SUB INKEY$+7 READ  BRIGHT  OVER  BRIGHT 0RNDABS  PAPER IN < GO TO  TO ATN [D] LIST  x NEW ©INKEY$xATTR  ATN (-SQR  RETURN INKEY$ RESTORE ~ NEW USR USR  PAPER <>]>= PAUSE BATN M▞SCREEN$  INVERSE  OVER | INVERSE VLYL[S][R]BIN ASN e[M] DATA  IF  NEXT  DATA ATN BIN ZLSQE OR  BEEP G COPY  BRIGHT !VAL  OVER f RESTORE  STOP [T]PIABS  INPUT  GO SUB R THEN $ SAVE  CLEAR SGN  MOVE  FOR z[R] { AND _8 VERIFY  RETURN z VERIFY W BORDER STR$ VAL$ 4{cLN  RETURN  CIRCLE CODE <=IN w#e[F]+NOT VAL CHR$ [Q] OVER ▚LEN  CLS USR ~ RETURN pCHR$ P DATA #▚ LET + Z8#z TO  m NEXT (3 RESTORE  NEXT @~BIN FN [S]  MERGE  COPY #PEEK ( CLS  THEN C MOVE  LLIST   RESTORE N[I]r~0f CIRCLE  FORMAT  OR o INPUT  INK  FORMAT /5(6<3 SAVE CHR$ t%62 RANDOMIZE  THEN 's6 LET  CLOSE # CIRCLE  CLEAR e+ LIST  STEP X DATA ATTR /+▚[J] LLIST #SQR A CLEAR xLEN CHR$  THEN  READ <>[J]USR  PAPER  NEW  NEW RASN ]LEN  OPEN # LET <>VAL : PAPER  OR EXP STR$ ]P8 OPEN #n LPRINT &</ RETURN [Q] PLOT   LIST  6pSQR ▝NOT ▛ LOAD  OUT I OPEN #▖] RUN KINKEY$ LPRINT ATN  OR BIN  CLOSE # DATA [G] MOVE COS  LIST  GO SUB n%jUf<>/▚C> FORMAT CHR$ INKEY$ INK [E] RESTORE PEEK POINT  LLIST  RETURN )0VACS ▞m RESTORE  REM {^N PRINT 5 MOVE  EXP  RUN ? RETURN [U]>[D]OC FOR  LLIST  MERGE  RETURN Z[, DATA w$|a} THEN SIN aoa|a) OPEN #g FOR SIN <~>FN VAL$ Fd OVER I POKE )  GO SUB INKEY$6▚CODE [A] CIRCLE [B] OVER ]eAASN M[A]IHO CLEAR CHR$ X LIST c OUT f▙=ASN  RETURN CODE KNOT V▙ABS 3.^zAT IN >= RESTORE  FOR  PLOT   OR  CLS  COPY  CONTINUE G DIM  WC~©[H]e GO SUB 3 DRAW  PLOT   NEXT <> THEN [H]= NEW  STEP [M] RESTORE  OR O^#V[U] POKE W PLOT   THEN ATN [G] BEEP ABS CODE  RANDOMIZE PIcSGN xINKEY$#ACS  ERASE  CAT  RUN STR$  LLIST ATN  RESTORE  NEXT ▜' FLASH  OVER }USR  LIST ▞FN oeATN >= COPY LN  INK 3?SQR ~▜O NEXT 9A NEW , LIST #fo DIM G<> GO TO  RUN [J]:J GO TO =(C MOVE H[B]BIN >=w DIM  TO ;= STEP 7 BORDER  GO SUB [<> FOR s#rBIN 2 GO TO 3H GO TO y3 AND  IF S IF ^^l STEP ▝ CIRCLE  THEN  LIST BIN ~2>= INPUT  COPY wCODE FLATN RND POKE _<>:[P] CONTINUE =USR TAB [U] OR  TO <3eNOT >=POINT  LIST ^ MOVE / ERASE } DIM  ERASE {$3 AND  DEF FN  BEEP IN ▟x FORMAT  FOR  BORDER [J] BORDER  FORMAT (7 RESTORE ACS Z!^_2B2LN lACS VAL$ EXP q+ LLIST  U>=WLm DATA  LLIST  THEN _ RANDOMIZE ABS ▞USR [U]z DIM  INPUT L NEXT [E]©[E]y3CATN re|TAB fc[G]SIN  BORDER DI RESTORE ▖<>[S] DATA @ RUN ▛u<> RETURN LEN USR  RESTORE  MERGE [D]S FOR g!)1[S]<=[Q]G TO VAL$  MOVE  LLIST <>+ RUN vc>>TAN _ ERASE cRV OUT  PAPER zr INVERSE BIN ▜ BORDER M SAVE <> OR  RESTORE  LOAD M PLOT  ^[A]~ MERGE  PRINT  FOR  INPUT  CLS  FOR ▜[Q]©B VERIFY  LET IN /o6_VAL  RANDOMIZE  LET PEEK < RETURN c[G]8| FORMAT q/6GASN  DIM #w+POINT STR$ [L]xp+▝ RANDOMIZE  PAPER  STEP  RETURN SIN STR$ n LINE U BORDER  BRIGHT ATN *_ PAPER 1 RESTORE PI[P]<>AT [Q]:([L][O] RESTORE _nACS  INK g MOVE zATN CHR$ ▚ 3x% MERGE [S] COPY s▝ DIM  GO SUB VAL  MOVE < NEW  IF !Mz{ FLASH ATN  THEN >O LOAD 4WY] LET  DEF FN C THEN 2< FOR ~~ STEP ! INK  LLIST 6#[D] RANDOMIZE + RESTORE  INK  MERGE  VERIFY BIN ©[K]g GO SUB [Q] PLOT  <c[T]SGN [P]RACS EXP  LPRINT [Q]z AND t PLOT  W THEN &+5 CLEAR LEN  VERIFY EXP  POKE  FOR ATTR VrVAL$ LLIN LDvhx NEW <= OPEN #_~PEEK @ MOVE GATN  PRINT (/c[B] SAVE MLEN O PRINT  RETURN VAL <>4 FOR u LET FN  LIST y VERIFY a DRAW BIN  TO <=<>$BIN ▛dABS E STEP  CLS IN  PAUSE G PAUSE  FLASH [P] LOAD U[N]` l$▝v4z LIST ^] LPRINT ( LOAD STR$  LLIST <w LLIST  FLASH [D] CLS [P]MSQR  INVERSE  RETURN ©IN  OUT  LOAD  READ cV RUN  CLS @O OUT =B[P][T] CLEAR CODE sCODE v3;IN  CLEAR  RETURN z COPY [J]g©{ CAT Qf[K] INPUT  DRAW  CLS  RANDOMIZE INKEY$f OPEN # CLEAR  MERGE  DEF FN 7 OUT  BRIGHT  CLS _IN © PRINT  CIRCLE [U] FOR ATN  RUN e>NOT  xPOINT <= FOR [P] FORMAT  FOR  NEXT !TAN - OR  IF ASN [F] NEW w[C] STEP ) IF  DEF FN ▚ IF <7 COPY Y STEP T[D] INK ! BEEP  GO SUB [ OUT W IF  COPY b[K]s" CONTINUE  RUN CODE  READ  FLASH 2o SAVE y  DEF FN 9▟STR$  CLOSE #[J] RANDOMIZE  STEP SGN  POKE  INK "= INVERSE *S>=_:^ LIST  FOR j' OR  BEEP L OR USR  OR  SAVE 5 SAVE  OR 1▞[N] OR js FOR Y OR Z OR RNDx▟ STOP " OR 9 LOAD  GO TO  STOP  CIRCLE  RUN / FOR : FOR > CAT [E].I GO TO  DRAW O▘SIN  DRAW o{ CLEAR [J] LLIST NOT p REM  RUN ^ FOR  STOP [O] RETURN  DEF FN ^V{EJIN USR  GO SUB LN ^ LET B BORDER NOT  ERASE  CLEAR  DRAW  NEW  SAVE  RETURN [A](© CLS F oSTR$  LLIST <>INT Tv OVER j7 RETURN  DATA USR INT FN  CONTINUE INKEY$ LET CODE SNFN SGN ACS u FOR [O]SQR >G FORMAT CODE  AND  DATA SGN >=[P]INT  FORMAT USR  INVERSE 6<[B]<> STEP y PLOT  [B] LIST [R]RFN [M]PI LOAD  INK [R] CIRCLE  LET  FORMAT  INK &oI BORDER  DEF FN NOT  LPRINT  POKE  IF 4▗▞~ INVERSE w CLEAR SIN 7 CLS  RANDOMIZE j© RANDOMIZE  CLS wBIN 9 DRAW [J] DEF FN  CAT SGN  FOR : OVER ABS ATN ( NEXT nMM[A]oMw TO  COPY % NEW [ RETURN 9 VERIFY 3 LOAD 9 AND oSIN " OPEN # RESTORE ! FORMAT  BEEP Oe INPUT BIN  NEW  LIST  VERIFY ATN  CAT TAB  MOVE  COPY ▝ RESTORE O[D]/ABS  CONTINUE CHR$ W PAUSE  OR ATN ePI CAT *CHR$  FOR | STEP r PLOT  ▟STR$ ;t▚[J] LPRINT !H GO TO 6▝EXP  DIM  GO TO "PEEK im<>mCHR$ FN  GO SUB fVIN # RESTORE Nr STEP  PAPER R LLIST  LINE O INPUT  RESTORE U DIM #ACS  DRAW ▛b PRINT  THEN ^+F FOR =M OVER PEEK KTAN [E] INPUT  LINE TAN INT %yVAL POINT  CLOSE # LLIST  COPY  NEW ~ COPY  RETURN 0 RESTORE rw+-6CHR$  PAPER 8 PLOT  [)[L][L]SIN USR : INVERSE USR ©[N]PEEK  INPUT  LLIST L OPEN #SQR [H] COPY Wz[P]r[F] TO >2pc AND  DATA RND7< OPEN #▘>[Q]5" GO SUB u` LPRINT  DEF FN <>%INKEY$wM=TAN [G] INK ! TO  PAPER  CLOSE #G6x▚ VERIFY 6 PAPER C LINE  © OPEN #USR + MOVE x DRAW  OVER WTAN g[C]Wt&VAL COS n▗-S LIST  INPUT SQR  CLOSE #[I] NEXT [Q] AND  LLIST !> ERASE li▗ GO SUB [[E]TAN }2 DIM [E]>PIuJ[Q]>=F OPEN # FORMAT k= THEN >=<= THEN  RUN ~ACS   PRINT ▙<>+m[K]OFN (LN T FOR OPEEK TAN (ATTR INT SGN ( OPEN # OPEN #v1 OPEN #NOT L [A] CIRCLE [E] CLOSE #(PEEK ▜$ MERGE LN K#ATN [O] INVERSE [O]▛ INVERSE  FOR NOT ' LET ZCODE ?AT CODE  MERGE *RND RESTORE  CONTINUE INKEY$▚ OUT  LPRINT  RUN  OUT  GO TO CHR$  LLIST  RESTORE  RUN [F]$▗ LLIST  THEN [B]~2ATN INKEY$ CAT LN T& OR RND<> RESTORE ASN [K]STR$ 8>=xTAB BIN SgUSR z<>6f(>=#SCREEN$  OVER LTAN  LINE  MERGE f VERIFY  AND  BEEP  VAL$  TO ACS CODE  LIST "[F](EXP iSIN  SAVE  LIST sWBIN i/SIN e COPY !-INKEY$p&▞ MERGE ▝ DEF FN COS   MOVE `SIN <>0VAL t AND W ERASE ATN 0 PAPER LNOT LEN  OPEN #=FSQR  READ J LOAD  BRIGHT [Z RETURN >= PAPER  NEXT >=INT  IF  INPUT SQR  DATA 2 ▜ OUT [E]USR > RESTORE  POKE  SAVE w<> LET  RESTORE  DRAW /[K]SCREEN$ 4 INK 5>=▛Go FOR [N]gx PRINT PI RUN SQR [IN EXP / TO ▗g LET  MERGE  RESTORE SQR  FORMAT ek▜POINT SGN [J] INK o{CHR$ {PICHR$ y`CODE ,^INKEY$# RUN x[UGCODE oT NEW  MOVE [E]SQR x# DATA  LOAD o RETURN R▚[I]VAL$  OR  OR CODE  LPRINT  STOP  OVER ASN  LET TAB  OVER  LOAD  STOP  DATA  STEP  LIST LEN  STOP STR$ © BEEP  BRIGHT LN y AND IG LLIST a|M2 OR R?+ VERIFY  GO SUB VAL$ #xINKEY$ CONTINUE F# REM [P]{&[R]K[S] BORDER TAB *<>v DIM  INPUT  LPRINT  THEN [O]>6* SAVE  FLASH j>== BORDER ABS ?!q LIST 7^ FORMAT [T] PAUSE [H]▛ LIST  DRAW  RANDOMIZE ▟ NEXT Rf PAUSE Z LET [K] IF  COPY CODE SQR  LET 1SQR  SAVE u INVERSE nf FOR INT  TO Oy[D]^,e[E]=<=BIN 4[Zy BORDER  DIM  NEXT  INPUT a~ INVERSE [M]SQR Of_|[D]VAL$ r RETURN y[O]C[L][B]f RUN  THEN ~ OVER t= COPY } CONTINUE JqIN c OVER & RETURN  PLOT  cNOT  COPY  PAUSE  DRAW  IF  INK #"zg STEP © STEP [C] RESTORE -[C]&d[K] INPUT [A] AND TAN O OR 5[A]> STEP ©[B]▟▗7 COPY   ERASE  SAVE  G CLS  LOAD [U] RESTORE [K]AT N[U] OVER 9yW DRAW ▜ OPEN #9▗ITAN  RESTORE ! CLEAR  LET I=ATTR ~w[U][T] LET  FOR  OPEN # NEW [K] REM [I] AND SCREEN$ ▖W RUN  BORDER  THEN  NEW USR VAL  INK SIN W}8[ NEXT  INVERSE srPEEK  PRINT [E]F DIM  CLS %[T] BRIGHT  RETURN  PLOT   CLOSE #▘ COPY [H]!|<> LET ?>© BORDER CHR$ [S][R][U]CODE  PAPER [T]INKEY$RNDW LINE SCREEN$ ( DIM  BEEP  COPY S/U!T PAUSE  RETURN 0}5>COS ▚[J]/F NEXT 5 PAUSE ",SGN  CAT : DIM td[T]<m8 IF [K]▙$INKEY$[G]▖[E] FORMAT  RUN {<>wPIy8 CONTINUE ▛sCkr LET ▞$( LINE  STEP ^IN  CLOSE #[T]! OPEN #USR HWLN VAL$ = NEXT [L]6(K$"CSCREEN$ vIY[S]YjSCREEN$ NsfxRRASN BIN USR [F]<> TO l THEN SGN  GO SUB D#KPI READ & AND +SIN O▙ACS ▚▜ DIM |PEEK  CONTINUE [N]8 VERIFY / DRAW p$RND_V/[F]=G VERIFY ASN y LINE ATTR k STOP  THEN INKEY$USR LN  IF  MERGE  CLEAR uABS  DRAW  CLS PIaINT ATN  RETURN  BORDER  COPY COS  CLEAR SGN ?|VAL$ LN ?COS K2[O]ASN LN 5s INVERSE lLu2fG OUT  RETURN  VERIFY  NEW pO RESTORE  DRAW _ FOR  LLIST  INVERSE N THEN y(1)67wLN m[F]xCHR$  BORDER Q CONTINUE  LLIST *INKEY$x FOR  DEF FN >#IN ATTR  PRINT  RUN [B]/@NA[M] NEW  POKE [N]<[R]4 3 MOVE {]F NEXT ▙NG FLASH L8Mzy▚ OUT #QPIj[K]jj READ  BRIGHT  INVERSE ▗ LINE hs9 BEEP rf6[T]5* OUT  THEN ©  CAT ~ PLOT  * OUT [G],▜,AT [F]©l DIM  DIM [H]ABS oK RESTORE ATTR  INVERSE ©OVAL$ ATN VAL$ y LINE  MERGE  POKE [L]E;USR uIN  CLEAR z AND W INPUT  LIST /, MERGE lCODE " MOVE hOBATN CHR$  ERASE  RUN : FOR O NEW  SAVE ( FLASH Y TO ) FOR AT >y RESTORE  TO  LLIST  RUN | COPY  STEP [U] PLOT  >= CLS SCREEN$   RUN i.{[M][I] DATA  RESTORE  RETURN  OR [T]^ TO F RUN STR$ CY@@ REM  ERASE QPI[O]CHR$ ▘ PLOT  Ct([E] IF [C]SGN  LINE { PLOT   PRINT S!<>_DZ PRINT "VAL$  LLIST daASN i@ RANDOMIZE  RETURN [Q] LINE  LPRINT  POKE  THEN _CHR$ [G] PLOT  [> IF ▖SIN m(tVAL ^ sATN v} INK &Vo LET 1 PLOT   RESTORE W FOR ▙ MERGE LgNOT TAN  REM m CIRCLE  ERASE USR x CIRCLE "y▜ PAUSE o[A] OPEN #dABS yVAL$  PAPER OCODE  BEEP +eCODE  RESTORE *[K]ACS COS U OR CODE JSTR$  TO ▚ CAT NOT c CLS  RESTORE  PLOT  SQR [R]SCREEN$  STOP SIN ut[L]<>q BEEP p INVERSE  LLIST L POKE  MERGE  STEP  LET  RANDOMIZE  MOVE ,Y/ BORDER } VERIFY o8STR$ ASN &c?BIN c RESTORE  MERGE [I] LLIST {( VERIFY / AND _}SQR 8{,ABS zPEEK [N]9W|INT  LLIST uKSGN <= BORDER  NEW /YtOZGt LINE  LINE  READ  POKE <> COPY @<>[S] MOVE <> PLOT  <=[B]L<=NOT h PLOT  O OR  MERGE  RESTORE z RETURN [P]0Fk[J]dwNOT 7 MERGE iK RESTORE ASN F'[N]R[L]ACS CODE #Wm&zKA[U]z+f- SAVE  OPEN #STR$ ; OPEN # TO NOT > LLIST  MOVE ▞{jJJIN  NEXT [H][O][S]8 CONTINUE p INPUT p THEN  OUT  RETURN STR$  OR oVAL  BEEP [Q] RESTORE <=+xAT [H]ACS [P]4▚[J][N]LEN LEN  CIRCLE LN PEEK wDLEN <> MERGE ▚ ERASE NOT USR  RESTORE o(m(jVAL "*WTAN "d OVER b STEP POINT ;k|<> DIM ATTR uPEEK POINT  PAUSE g_sXATN ACS  STEP DM LLIST ASN `i POKE a[P]nG TAN F>= REM  MERGE z THEN < FOR ;©CODE  NEW  LPRINT COS o LLIST [A] CLS $w▛"8▗CODE r} DEF FN /2SIN  RANDOMIZE ,oSIN  VERIFY ▗ RANDOMIZE LEN ?w9 OPEN #k>▟VAL$  CAT F©YOVAL$  INVERSE Mbu<^" MOVE  COPY V#v NEXT [J][J]/INKEY$ RANDOMIZE ,©>->=  CLS J<> CLEAR *[O]CODE y POKE ,! GO TO CODE  PAUSE :2-$| CLEAR  VERIFY ;ACS  CIRCLE  PAPER 7^ FLASH $CHR$ %f REM CHR$ qUCHR$  PAPER PICOS CHR$ " SAVE  CLS  IF e STEP  DATA  INPUT  MOVE © PAPER [J][E][[U] INPUT r INK [U]TAB `S# TO  MERGE ATN ACS EXP l FLASH 6LN  INK [T][J]i LINE  BORDER ACS !AT [RNDVAL cet AND [O] RETURN  NEW COS :o SAVE T)X POKE *K IF [K]ASN  COPY  OR ▗dIN SQR  TO  PAPER INT W OUT s LET 1=USR  LET  LET h5▘ ERASE W▖<>O NEW G~LN BIN  IF y NEW © COPY [J] GO SUB _-o/)o DIM  RESTORE uSQR  CAT LN  RANDOMIZE ATN  GO SUB  INVERSE kbINKEY$ASN ©i|jqW CLOSE # RANDOMIZE  FORMAT  FOR Y TO >= FLASH  OUT = READ  BORDER  THEN [O]g? READ  BRIGHT w#qVv BEEP <>'. COPY g^? BORDER j▜SGN  DEF FN WCODE  THEN  AND IN  REM < PAUSE  PLOT  @SIN g}NOT O IF SQR ABS <> MERGE  OR [T] RANDOMIZE ~ INPUT w[ LIST NF[G]W^[N][ PLOT  7 TO ©><>![CODE [S] INVERSE O GO TO q,<>= NEXT y FOR } CONTINUE  RUN RND CONTINUE u INK G` MOVE  GO TO  MERGE `[F] ERASE  REM  READ O▚8, LIST  FOR  OUT  RESTORE # CLEAR [H]TAN  LLIST  THEN C LINE  GO SUB NOT  FORMAT  GO TO /W CLS ATN  BEEP  COPY .& DRAW 6PEEK BqxNOT D`CHR$  CLS ~NOT 5 BEEP _ PAPER  INPUT [ LIST [T]HSCREEN$  PRINT SGN p FOR SIN V PAUSE {[U]TAB =WK@ CLS dXSCREEN$ ▘([S]CHR$ 2EATTR  LPRINT ▘ TO  STOP `▗ SAVE Z▝ LIST i AND  COPY ▘/[O]▗ READ [Q]9 CAT  CLS b MERGE STR$  NEXT  CONTINUE INT  CIRCLE y LLIST STR$ [I] RUN P DIM [N] OVER g FORMAT  POKE ▚ CONTINUE z[A] THEN [R]ATN b(,/▜[O]hy) GO TO ▜![A] CLS  FOR +~ VERIFY [G]  SAVE ACS ([P]L RESTORE n/g#©]POINT  AND O GO SUB LN BIN ▖ LLIST  COPY  R  FLASH <>CODE  LET INT M . THEN TAB gI"▖r AND  RANDOMIZE 6y MOVE  PLOT  ▞ STEP oq▖[N]1[R]vaACS 4LbQ POKE  GO TO BIN ▚▞$[S]▛,PTAB m] STOP HACS [M][▛ OR F COPY  THEN Z LIST ▝C TO + PLOT  8KFaTAN   VERIFY Eo GO SUB AT 8STR$ [B]EFN RB▝*( LLIST e[D] FORMAT  PAUSE Q~Z PAPER >=[T]2[P] RETURN  FORMAT  LPRINT JtE, MERGE ▗' COPY CHR$ 8- CLS <=x COPY p▘▞[J]0PIcUSR ~ PAUSE [I]FU▘CODE  GO SUB A< ERASE M+1(CODE [H]+HR[N]rATN aIN CODE  OUT  CONTINUE 0>FN  STOP  RUN & LET HGEXP C READ I MOVE <= TO  DRAW 2▜ OR #[U]7o▗J/VAL$ = GO SUB O1 CLS {S TO ~* GO SUB  LPRINT ASN X[J]cABS  CLS A▟B LOAD * READ  INPUT iYj▖ GO TO y CLS [Q]EA COPY  POKE 'b$9&[H]l! CONTINUE  RESTORE  COPY GF OR }^ FLASH  LLIST STR$  MERGE  BORDER  NEXT !SCREEN$  READ  OUT  RETURN > THEN  FOR 86▛?# FOR 0 INPUT  MOVE  OVER  BRIGHT  RANDOMIZE POINT D PAPER  FOR # DIM o[O]O>O▞ INK  MERGE ATN  LIST  OR ▖ INK !D OPEN # RETURN  NEW  LLIST  CAT yN GO SUB JO RETURN t0 INVERSE ~PI  GO TO LN ? PLOT  TAN [H] INK  RETURN  DRAW k OPEN #STR$  MOVE  INK NOT r LIST [B] INVERSE dIN  SAVE ▗SQR PEEK ~zCODE DL CLS  RUN ] NEXT [P]© PAUSE  PRINT ACS - INPUT  FOR  OPEN # CLS ,v MOVE  BEEP IN [T]PEEK 1C+▗DAa@)c`0B <@IN _g MERGE % VERIFY [L]zd RETURN ©z[G] SAVE 7 OUT  !"#$▚BIN %&'()*+,-./0123q READ 4567?IN 89:;??<=>? COPY =;@A[O]g  COPY c LINE HIJKLMN~ READ OPQRSTUVg7WX OVER LN /]^ DRAW  BORDER  BORDER _`aBIN b[P]cdefghijkl# NEW [O]]mn! AND  AND SCREEN$ o RETURN pZY PLOT  q~0X LET [G]wqrs" INVERSE LN tu STEP vw( LET [O]Uxyz FOR COS  IF {IN  LET |}~©F▝▘▗ LPRINT ▟▚USR iOo2 GO SUB r▖ TO [O]©8oBIN ▝▜▖▞ SAVE p▛▟▙X INVERSE <>[H]@ RETURN ▟ GO SUB [A][B][C][D] FOR  RESTORE  LLIST 7zE* BORDER g< AND > NEXT  AND :▙T LPRINT >=nCODE [O]} VERIFY `▘ BRIGHT K STEP D CLEAR | FOR 6 MERGE BIN 7vt_W▖ CLS  LIST ▜▚+ATN ▗. RUN  THEN ▘sePa?~▘ PLOT  u© READ , TO | SAVE zOG LOAD IN y READ  DRAW  REM uSTR$ 1yt PRINT [I]EXP T[B]lCN OUT [E][Q]$ CIRCLE f OUT  OR oFN ▟xi VERIFY ATTR ▗ INPUT  DIM dR3 LET  SAVE  STEP B='hAV^[F]?q/H[j REM LEN gM54 GO TO  MOVE JS CONTINUE  INK ACS ▚[& NEXT {c]JSN FORMAT [A]}/)VAL m POKE @kLINT VAL$ [K][F] BORDER  STOP NOT ASN 7 CLEAR  COPY [P] CLOSE #POINT PEEK  RANDOMIZE  DATA  LINE CHR$ % BEEP [S][N][E][D]SGN [C]▙[M]ISQR ;- READ  FLASH  CAT INKEY$[I]QBIN ABS [R]▞LN  ERASE  DEF FN [L][J] PAUSE SIN PI[T] OPEN #TAN  PAPER RNDAT K9▛ OVER <= LIST Q7      C/[U][U]hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211HR BORDER [I]ybe... RETURN  Already?<ongtim[C]ruc<dlegt NEW sSIN  STOP ha OVER yTmp, DATA cACS Ia VERIFY  FLASH t.1YV RUN ih▝SCHR$ myR BORDER teri1S DEF FN  RANDOMIZE br PRINT aPOINT ▟ CAT  OUT ThL AND  FLASH LN y DIM  OPEN #[G]r5 PAUSE SCREEN$ p3LN i BORDER sNOT  CAT  BRIGHT >=ory VERIFY [D]t OUT  READ pi[E]c STEP [I] LIST vLN L MOVE  ERASE csfa VERIFY fsr PAPER  CAT :Ac CAT BIN *RND READ i>=BINKEY$[B]fct TO ;qu CAT c BRIGHT w FLASH CHR$ s LINE PI▚ OPEN #▙[R]lSCREEN$  AND ,VAL aza LINE I[L].g) OR f[O]QkcLINKEY$ BEEP © OPEN # LET u DEF FN ATTR NIM PAPER pASN sy▟<> MERGE eBIN <=|tRND RESTORE k[S] IF [I] SAVE nf:▗f CLOSE #ry^COS 8POINT  PAPER POINT 1 STEP PEEK G/R PAUSE  AND INKEY$ LOAD 7l#[O]7[E] CLS E ERASE [I]w CLOSE #INT azASN [C]t STOP RNDBIN 9SGN  GO SUB h[T]mdLEN [S]▙ CONTINUE [I] FOR c CLOSE #4lwhASN p[H]uKINKEY$ PAPER STR$ [J]TI PAPER [H]I[H]l^[E]'PEEK >=$9SIN OBSTR$ SQR HC[du[U][R]BpTAN  OR E READ cSj LPRINT CHR$  MERGE I4[U]ATTR d[H] FORMAT :K▘ NEW t POKE [I]ASN ckCf>=AT SZ STEP QVAL LABS [Q][A][F]R RETURN "]NOT u)INKEY$ CIRCLE [C]l MOVE USR  BORDER z STOP xPLl DEF FN ACS [K]VNOT  MOVE wINKEY$Ycdbh MERGE  THEN  OPEN #HSCREEN$ ▖▛I[T]<>$4^>h5diKPOINT 4OB DRAW ▖0CODE _ ERASE !BIN  FORMAT [U] LLIST C CLOSE #Yv AND VSIN JSGN NOT >=jc OUT  PLOT  p[K]s▚ GO SUB COS  PAPER 1d©[I]z<= FORMAT SCREEN$ ▞RoABS ASN <>f▘O OVER STR$ ACS INKEY$[J]r? RESTORE  PAPER  FOR LEN  INPUT i CAT ) FOR [O]N STEP >=▚ckdACS XmSATN  DRAW fyL2l/ STOP  LINE  PAPER IOb©RNDR DATA f OPEN # RUN STR$ $^1s FORMAT XATTR 4 PAUSE x GO SUB  RUN STR$ [I]z<>▜2CHR$ f[P] STOP  VERIFY  PLOT  %STR$  COPY jqC▟/ CLS VAL$  RANDOMIZE  IF  OR [P]qd[&BI[D]fy INK n▘ THEN [J] LPRINT _MaPOINT  NEW COS ' MOVE CATN x[U] CLOSE # PAPER 56AT  VERIFY 'p BRIGHT ENG     Ct[M] BORDER hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211