North & South: NS+3new.B

  1 RANDOMIZE USR VAL "23884": REM O1PIa! LET <>"CHR$ />!XX OPEN # RETURN 6? GO SUB VAL !FN a GO SUB [ POKE / STEP = STEP ~h! GO SUB [ POKE / STEP = STEP !@[M] GO SUB [ POKE / STEP =NOT @[M]Releaze by Triumph & Goodboy, 2005! Chelyabinsk & Moskow!!! COPY  COPY  COPY  COPY  REM (
  26921RIUMPH'2oo5SCREEN$ 2oo5!2oo5!_@ INK ▙ STEP  AND ~# INVERSE . COPY  INK  [ THEN " V# THEN 208 DIM " V# THEN  THEN !(8 LET 0 INPUT  VERIFY  AND  VERIFY  RETURN  RANDOMIZE  ~# DEF FN  COPY  INVERSE o8 CIRCLE !X' INK <>~# INK og RETURN  CLEAR 0 INVERSE -| RETURN X0+TAB  NEW  SAVE TAB GTAB AT Oz RETURN X0ATTR  NEW  SAVE ATTR GATTR SCREEN$ O0++# INVERSE ,  ERASE 7 PRINT  AND G LET K0 CONTINUE M OPEN #r COPY  LPRINT  CLS  TO  DRAW w RETURN  DRAW  CLS  CIRCLE FN  BRIGHT ACS  RETURN  RETURN VAL  RETURN NOT  PLOT   PLOT   CLEAR  RETURN 8 COPY  COPY  CLS  LPRINT <©<= USCREEN$  COPY Q*[N]_CODE o PLOT  7©? RETURN  PLOT  /VAL  DRAW IN  PLOT  >} RETURN zt DIM  OPEN #[U]J[F] LIST  RETURN Z+tU IF  COPY  CLEAR  RETURN © COPY ©IN  OUT  COPY  PLOT   FOR  RESTORE  PAUSE  RANDOMIZE  NEXT [N] COPY  COPY IN  RETURN © RANDOMIZE  CLS  BEEP CODE  RUN | LET  LINE [T]TAN + INVERSE ATTR  OPEN #ASN FN USR }▙USR CHR$ SGN  COPY  LIST *_y CLS  IF  LPRINT  RETURN } OPEN #SCREEN$ CHR$  PAUSE [K]SCREEN$  COPY  RETURN QEXP  RETURN ▖/FN }USR Q REM  PRINT  FOR ▛▟EXP SGN  RETURN  PRINT  LOAD v IF SCREEN$  CLOSE #s,e SAVE  CLEAR  REM  INPUT  LINE `N RETURN  LPRINT USR /▜FN ATN  PRINT  ERASE SCREEN$ P CONTINUE  COPY  POKE  REM  FORMAT [Q]USR [Q]@b RETURN  PLOT   INPUT  IF / SAVE [H] FORMAT [H] DRAW  LPRINT  REM  CONTINUE USR LN q0 COPY 0000* INK  COPY SCREEN$ STR$  VERIFY W}a TO IN  RETURN ©IN  COPY | PAUSE  DATA  CONTINUE  CLOSE # RANDOMIZE  SAVE  RETURN  FLASH  REM  COPY .]IN wSIN uCOS  COPY qSQR s RANDOMIZE  LET  CONTINUE  ERASE  DATA  COPY (/8TLN / CLEAR *q▘▙ RETURN  COPY cp<>INKEY$ THEN  DRAW  BRIGHT  CLS [D]LN  COPY © OR SCREEN$ _ COPY gRATN P/ COPY ;]<~SGN xVAL r FLASH  RESTORE G GO TO  COPY RND[H]▜ RETURN ▜▜▛<= COPY  RETURN G READ [C] GO SUB  LLIST  LIST  CLEAR [J] COPY  CONTINUE  LIST  RANDOMIZE [I]C▝B COPY  RESTORE NOT F CONTINUE  POKE  DRAW  RETURN [E] RETURN  COPY f*U/_[I]-_USR p PLOT   LOAD  MERGE  COPY  GO TO ©USR CODE [P]CODE  BEEP  REM  LINE  LLIST  SAVE IN  INK NOT q RETURN  COPY ©?`USR [I]<[I]| LPRINT 0x RETURN  COPY ` LIST ~ COPY _*^b7<>P REM  PRINT  PAUSE IN }CODE _PI LPRINT  DRAW  CLEAR  CLEAR  INVERSE [L] CLS  RUN  CLS EXP  COPY ATN O?ATTR y~ REM  POKE  SAVE  LPRINT  CLEAR  INVERSE [Q]@! COPY  LLIST  @^IN ^ CLS  GO SUB  PAPER SGN  IF  CLOSE # CLS [J]wCODE W+7 CLS STR$ @ LPRINT  LPRINT ` IF  BRIGHT p FORMAT  CODE SCREEN$  PRINT VAL  SAVE  SAVE  FORMAT ][P] THEN r OR p] COPY  NEXT [Q]P SAVE h DRAW  BRIGHT  DRAW  TO [M]AT <Z FLASH  SAVE ~ FOR U MERGE .K PLOT  PEEK SCREEN$ ESQR  DEF FN *[O]VAL$ [P]IN  FOR  POKE FN  CLOSE #©axTAN STR$  DIM / BORDER Q MERGE STR$ > DEF FN L[F][G]% THEN  CLEAR  RETURN  LET  RUN INT U(NOT STR$ ▛ RETURN  LINE ATN  PLOT   RETURN RND PLOT   RETURN e[L]]TAN  RETURN _LN + RETURN +/_?_CODE ▛ COPY  COPY SCREEN$ ▝ LLIST SIN EATTR  COPY _ABS ~IN _ COPY } RETURN ▚]▘EZ MERGE FN  POKE  COPY c DRAW V LOAD [R]U{  [I] FOR {U RETURN  DRAW } COPY  SAVE  RANDOMIZE  SAVE  SAVE  LIST PI COPY LEN [H]PIz@CODE ^ LOAD  PLOT  .▛y>= REM [B]ACS  LET @SCREEN$ hAWIN VAL ▚aLN UFN f LINE  MOVE [G] LPRINT VAL$ h*IN  LOAD [S]E, COPY XVAL  LPRINT  COPY  PRINT  IF  DRAW INT ATN T@H F CLS oOf` © RETURN J-▙uSCREEN$ PBIN  COPY [P] IF ▞ CLEAR [T][S] COPY ? MERGE C_[K][N]<<> LPRINT <> OR ▛P BORDER h5Z©C©©*[F]CHR$ [Q] CIRCLE  RESTORE  CLEAR ^+oSQR SCREEN$ SIN TPI. STEP  OUT  OUT * FORMAT [Q]E LOAD  LOAD FN  RUN  NEXT P COPY © MOVE /EXP ▛W FLASH  GO SUB o BORDER (G▛ OVER  GO TO W*USR W FLASH c0!IN D+ CLEAR /[G] DEF FN [F]USR [N] COPY  THEN ?<> STEP  CLS  RANDOMIZE ©CODE U DRAW ▗,AT vSGN EEXP c} REM TZSQR q COPY `h DRAW p FORMAT  RESTORE 00` PLOT  COS  LLIST 9 DRAW _.W-[M] LIST  DRAW  BRIGHT [H]POINT USR [A] FOR  COPY  CLS "VAL$ ACS  READ y{p VERIFY [Q] AND  COPY  COPY ▙NOT NOT CHR$  NEW  CLEAR  NEW dlx88STR$ SQR  FORMAT [N]USR  DRAW USR < FOR  COPY [H] RANDOMIZE SIN  OPEN #s BORDER  CAT ▜Q REM ATN INT RNDn BRIGHT USR _ DRAW  PAPER <= COPY  CAT  OVER  COPY [P][O]> LIST ~n CIRCLE USR 7ATN w_ DRAW  CAT  COPY  OUT  READ ▜l0 NEW @EXP  BRIGHT  CIRCLE USR  PLOT  ▚ RUN PEEK  DRAW  PAPER IN  TO  TO  NEW  DRAW ~C BORDER  BORDER <=^ PAUSE  BRIGHT USR 0 THEN VAL p ERASE  DRAW h ERASE pfBIN JUSR  CLEAR  INK  BRIGHT USR >> RETURN ?IN IN ▗?? POKE <|xxSCREEN$ ▗ SAVE ▖H6 PAPER USR ©N RETURN s> COPY  CAT  DRAW SQR >?> BEEP USR  POKE bJ[D] CLEAR W{ PAPER USR  RESTORE COS  READ W TO 3 RUN 2tpx< AND [P]▜ASN  BRIGHT USR  LINE  CLS NOT  COPY  RETURN STR$ <=[O] COPY <9{2 SAVE  LIST /r BRIGHT USR EXP  SAVE X~ DRAW  k};7 BRIGHT USR { READ NOT %POINT USR  PLOT  Gc LET  COPY  LPRINT  NEXT ©>TAN  BEEP c[O] RETURN  LIST ABS I1 LET NOT ▜4?STR$ y BEEP [O]CHR$ cO DRAW 9BIN  NEXT  LLIST ▟<=< RETURN SGN * FLASH @V CLOSE # READ J NEXT [J] NEXT C{ BEEP  CLS [D]▚ RETURN [O]▝▝ RANDOMIZE C OVER  DRAW x PAUSE , FLASH ATN <=gcb4▚F=$STR$  PRINT  MERGE IUSR B? NEXT <8qSQR ▝w BEEP bSQR  COPY  LOAD ▞<=▘ FORMAT Ev COPY NOT NOT  RUN ▝ CAT R@INT Rl CLOSE #USR 3 LINE XEXP [A][U] POKE i SAVE  COPY G5[O] COPY O[I] COPY  DRAW  READ  OUT  STOP  LPRINT LN  CLEAR  DATA [P] RESTORE  CLEAR p DATA p LLIST |k DATA  LPRINT A COPY  READ  OUT  LLIST A OUT W DATA  BRIGHT  DRAW  READ  NEW  LPRINT FASQR O STOP  CLEAR  DIM [O] PAPER ▖ CIRCLE  STOP NH3 RESTORE  LPRINT STR$  LLIST N RESTORE  CIRCLE  DRAW  LPRINT ` CLS s DIM [J] CIRCLE  BORDER  OUT  NEW  RETURN c OR  BRIGHT  COPY  CLEAR  DIM  VERIFY EM*[U][S]@ COPY ~ LOAD Eop COPY N RUN UTAN  RUN  LPRINT E RESTORE  COPY  CAT  DATA IN  BORDER  DRAW +▝ LPRINT  CONTINUE ▝ COPY Laser Co CLS  STEP [A]i STEP FN a>2 STEP VAL i STEP ei6A GO SUB VAL  STEP ei6B GO SUB VAL  STEP ei6C GO SUB VAL  STEP ei6D GO SUB VAL  STEP ei6E GO SUB VAL  STEP ei6F GO SUB VAL  STEP VAL$ i STEP ri6A GO SUB VAL  STEP |i6A GO SUB VAL  STEP ▚i6A GO SUB VAL vvv STEP ri6B GO SUB VAL  STEP |i6B GO SUB VAL  STEP ▚i6B GO SUB VAL vvv STEP ri6C GO SUB VAL  STEP |i6C GO SUB VAL  STEP ▚i6C GO SUB VAL vvv STEP ri6D GO SUB VAL  STEP |i6D GO SUB VAL  STEP ▚i6D GO SUB VAL vvv STEP ri6E GO SUB VAL  STEP |i6E GO SUB VAL  STEP ▚i6E GO SUB VAL vvv STEP ri6F GO SUB VAL  STEP |i6F GO SUB VAL  STEP ▚i6F GO SUB VAL vvv STEP ri6G GO SUB VAL  STEP |i6G GO SUB VAL  STEP ▚i6G GO SUB VAL vvv>[G] STEP VAL i<>vvv!lZmZ<>!▖Z▞Z<>!FN ZPOINT Z<>!<=Z>=Z<>CODE !XX COPY  OPEN # RETURN 6 GO SUB VAL !@@ COPY 6 GO SUB VAL <>>2v=  DRAW <> NEXT  GO SUB s CLEAR [!% OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ![Q][K] RUN  COPY [C]<> GO SUB LN  FOR  RANDOMIZE  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 1 CLS NOT tm SAVE ©[O] NEXT ! AND  FOR  GO TO  CLS  STEP N OUT  LET ; NEXT >? GO SUB G LPRINT IN V STEP USR  CLS <> OR $|▝STR$  RANDOMIZE f RETURN  CLEAR ▘IN  FLASH  RETURN  THEN G LINE  OUT W]© STEP CHR$  OPEN #DWRND- PLOT  [S]▜ISTR$  ERASE CODE 5 ERASE  ERASE  ERASE <>CODE F LET !X< COPY  COPY  OPEN # RETURN 6 GO SUB VAL ▖g@▟PI COPY TAN <>> CLEAR 7 COPY yx2 MERGE 5 BRIGHT COS  CLS  RANDOMIZE  INVERSE : RESTORE  GO TO  RETURN (1r[G]-)L DEF FN % POKE g VERIFY  BRIGHT  OVER [O]AT POINT © OR  STOP CATTR Z▝M{ CLEAR  CONTINUE  CAT C[K]SCREEN$  STOP G CLS  STEP [D]▘~▜USR ACS 6yum[Q]-R[K]U[Q] OR [R] AND h OR IN  BORDER < LET D[P] DIM [P]`Z >b TO w+ RUN >@ OR <IN S[P]w# LLIST 7 DRAW  LOAD  COPY  OR dBIN >= OPEN # COPY  CLEAR  RESTORE h&~ LLIST  NEW © CLEAR  CLS _6A CONTINUE 0M▝>= RETURN ▛[T][P] GO TO IN VAL >C RETURN [U]3SCREEN$ ^<>z NEW USR { AND  _ CIRCLE z VERIFY WUSR $|}>= AND o>SIN |g GO SUB [[H]▘_ CLS  LINE  BRIGHT ▝0/CHR$ [S][J]▘ COPY S BRIGHT [M]!@Pj OR  RESTORE  MERGE  NEXT  RETURN >& STEP 41t MOVE  LLIST  PAPER  BRIGHT  TO  PRINT  REM   DATA fCODE |ASN  NEW STR$ #N INK ZJ FORMAT  LIST  RETURN 'F[rNOT COS Tf INVERSE F<= GO SUB t VERIFY SQR  OR GPEEK 4 CAT XvTAN  LLIST  RESTORE  1 PLOT  STR$ [S]B MOVE q[J] PRINT ACS  RESTORE  STOP [I]& COPY so)[L][L] FOR  LLIST TAN w$FN  IF [H]<> CLS  CLOSE #AUSR TAN  LIST pw GO SUB  IF `s PAUSE T STEP n DATA Ek}SIN  NEXT  STOP RND GO TO & u[F]gw[U]s CLS v VERIFY   INPUT /Aa BORDER IN rgh! PLOT   CLS  RESTORE M LPRINT [P]TRIUMPH1qviaGOo LET DBY RETURN  CLEAR USR proudlycAT es<>ontNnewsuprb STEP laLEN zXf3bcNvlgm: READ [P][P]North'n|LSPEEK [J]x 128+3RND▟[G] DEF FN si POKE n BORDER _(c)5V98,IN 1 STOP Dpis/InRND DIM fogrCHR$ sVG-IN  NEXT <SPACE IF F2loadiSGN Z FOR g[P]]dEl▛NTRMlx_sHp SAVE g:PEEK >INKEY$ FORMAT ldt' FLASH b4INKEY$g AND <=o LIST CODE SQR INKEY$` IF  AND  DRAW C[G] PAUSE  LOAD ▚ts:TAB a_GhRxMc▜INKEY$v POKE fom[I]▝;rat* CLEAR  COPY kempst'1jy4<=ickxu SAVE  BRIGHT Afix CLEAR +VAL$ USR PEEK b[Q][P] AND [I] LOAD [U]M[D]1COS LN [S] DEF FN w STOP CJ.EHO/CHR$ J INVERSE 1) OVER VAL$  OVER >[M] CONTINUE  FOR r[O].IIN 'D` LET <=[I]A[O]s] READ <>i CAT JEFLBIN I PRINT BAM,NWVE▘ CONTINUE ▘~ READ  FOR  LPRINT [Q]INKEY$RND STOP  LLIST  LOAD  TAB ,[S] GO TO [R]G`[O][Q] STOP NOT ATTR [T]VAL$ [U]▝f LPRINT - OVER TAB  LOAD CHR$  LLIST  STOP  GO TO KYVq[D]Y BORDER  GO TO FN  BORDER "CODE TAB SCREEN$  NEXT  MOVE [O]▟VAL$ AT [T]ATTR  LLIST CHR$ [E][U]$3>= OPEN # CLOSE #P CONTINUE Y LPRINT [I]PI!CHR$ N GO SUB  PAUSE ,CODE  LPRINT COS  CIRCLE [Q] CONTINUE HS[F]AT  RANDOMIZE [S] LLIST >=RND▚▛FN  CLOSE # OUT  BEEP NOT  PLOT  [H]f.[A]clb STEP NOT S COPY [P]W.TUN LIST ▞IQES-BL[P] MERGE .CO DIM zM OUT [F]VAL$ L2 STOP  LOAD [J]INKEY$ATTR `P/[I] DATA , NEW  READ PI[S][J] LLIST SCREEN$ c;jM COPY PI PLOT  VAL$ RND9/fYINKEY$[O] RUN [S]7& STEP a BORDER TAB fSGN  FOR  RESTORE ©SCREEN$ >=1r*FN BIN [A] THEN uK RUN VAL$ [I] READ  FLASH z[C]RNDCODE dL LPRINT BIN &[F]CHR$  REM E CAT  PAPER " CONTINUE  INVERSE ASN  LLIST o CLOSE # RETURN [S] FOR [U] READ AT =[Q] OVER [U][E] THEN  POKE [U]I AND LEN iDPI>=- CONTINUE  FLASH USR SQR  BORDER  BEEP (LN POINT [K]▝ LPRINT (PI OPEN #[R] READ BIN -&C PAPER [Q]/LN  VERIFY  STOP  BORDER xINKEY$ CIRCLE k ERASE  TO {▗/i[S]INKEY$iNOT  LLIST  COPY  LOAD  GO SUB  SAVE A CAT ©[R][Q]▞ TO AT [D] ERASE USR ATTR  GO SUB TAB  AND $INKEY$bSGN f2>CODE  LIST INKEY$ STOP &P TO  LLIST ▟e RESTORE  CLOSE # PAUSE 1[U][R]cNOT TAN  INK  READ ATTR  BORDER  CONTINUE ▚vFN POINT  OVER ▗A[U]aABS [T]1,A LLIST INKEY$[E]IN 6[M][S]ATTR e[D]CODE VAL [Q] DATA  NEW I GO TO )cb9 GO TO  STOP  CONTINUE  DATA  STOP SATTR , INK ASN &IN  NEW <>'F▗NA▙&LUTLN GAM/I▝O}R[E][C]<>[N][K]EXP  LINE "J LET T SAVE  OPEN # OVER d.[U] VERIFY =[I] FLASH  [N]▙[B]RNDPOINT RND1TAN 1▞s TO INKEY$ READ %[P]]>=0d[D]▟) INPUT  NEW .$TAB [I]TAB  READ STR$ CHR$ [R] BEEP [H]> DATA  RETURN [Q]x#s▜[F]▘~VAL [C]▙▜▗STR$ Z AND l BRIGHT ▜LN 2TAB MfcIN ATN RNDPIz1 VERIFY [K] OVER TAB  GO TO [T]"INKEY$[ NEW INT U[I]R LLIST -K LPRINT KATTR  NEW  INK ▟Y TO [U][S] READ [I]< LPRINT [U]▙▜RNDATN ▜;TAN  COPY [M]r))INT  MOVE >fZ STOP INT [P]V CIRCLE :&TAB U CAT <=| STEP CSGTAN  GO TO [Q]AT ▘EXP  REM POINT |.? GO SUB  OR . OUT RND$ OPEN # RANDOMIZE rhQINKEY$dUi[R]mYH LINE  PAUSE 2 MERGE J RANDOMIZE ;COS  REM  PAPER PVAL$ ▛IPIG OPEN #<>:0▟ INPUT  LLIST ACS  RESTORE '-[Q]▚E? STEP  LOAD PEEK .ATN  VERIFY PEEK jINT ZVAL  FLASH r-^Z AND  PAPER POINT 0^ NEXT ABS - ERASE ATTR  INVERSE ▗TAN  CONTINUE  LOAD TAN Z[S]L THEN am-cs RETURN [I]VAL$  SAVE X)▚~tsRND OVER [I]BIN [F] OUT USR  BORDER  DEF FN  LPRINT :YIR<=Cchan LOAD  DEF FN el#Z8 RANDOMIZE  RUN 0.RUSABS ACS [C] OUT ser LPRINT dABS :U.ZXX OVER l INVERSE lp PAUSE [P] LPRINT 6 CLS  RUN 7[H]PITAN 5 DIM ▖[d CONTINUE Yud1l}U` OUT FN @MAILZM[T] PLOT  ▞LN D_3UMF OVER juU[J][H]aCniX[K] PRINT pace CLS y5INT f THEN  RETURN ▟oACS  OVER  PLOT   COPY ATTR  MERGE ▟| RETURN  VERIFY l RUN !0▘8s▜ THEN T>P OVER Vq DRAW <FN O~ STOP  SAVE fBJ[P]w▗$#[E]ZSCREEN$ 0_H. ^PEEK ~@*]>©8@ CONTINUE <p*htz}a<=4 FORMAT B MOVE f SAVE o3 CAT INT ©[K] STOP  RETURN }▖ FLASH D(lPI RANDOMIZE gZ: PRINT D$ FLASH © COPY  THEN p RETURN CODE CFN  BORDER [M]<=Tl▝<>[OP▚ RANDOMIZE PINKEY$Xa[I]▚[H] PLOT  AT  INK  COPY NOT $fEK)> MOVE  CAT  GO SUB W) COPY  DRAW 0 RETURN  LINE 3 NEW ,sL RETURN  TO  CIRCLE  POKE *~ CIRCLE  OR Q6 CLS 9 AND  TO t6fATN  DIM ▗ CAT  RANDOMIZE INT  NEXT `CODE  CLOSE # FLASH INKEY$`[J] AND l8 RETURN . STEP CODE  DRAW VAL$ [G]PEEK  IF K INK  LINE  PAPER cF AND CODE  CLEAR USR y AND  OPEN #/LN 8X READ c[D] DRAW AT  ERASE |USR  CLEAR ^F4 READ 3[N][K],uNOT USR  BRIGHT ' CLOSE #@[C]STR$  FORMAT ?%pIN INT &?USR /f▘LN vVAL$ K PLOT  [T]VAL SGN - MERGE [J]EXP Z`▝[K]T© BORDER [K]XUSR ~< REM  VERIFY  INPUT  BRIGHT USR <% OPEN ## PLOT   STOP DLN | STOP [Q]CODE yhp CIRCLE -< TO  BRIGHT <[R] LIST ▖~STR$ G[L] INPUT @ OVER  PAPER D[G] CAT ?POINT >=1 OPEN #`Z STEP FN f SAVE USR  CIRCLE  LIST  AND ©jFPBIN  BORDER `>▘[S][G]SCREEN$  VERIFY  CIRCLE SGN STR$  NEW  DEF FN *^[I][M]STR$  OVER VAL  VERIFY  LINE tlP2[I]*<>[Q][D]PEEK 8 INPUT +[I]&N[A] OR  VERIFY )[B](hJ[A][B]h<>@Z* CLOSE #!ASN 0>=[I] SAVE ▘ACS >=USR  LIST h> PAPER  GO TO xTAN 7 IF >f6ASN  LIST ` FORMAT ▜v LIST  MERGE [Q][Q][H]©x]:0A BORDER COS ▝~FN `xy7 FORMAT  RESTORE  LPRINT [A]K LINE  FORMAT P[N]L*x@ CIRCLE [F] RETURN 17[M]@ TO 3  ERASE  DIM x GO TO  REM ? VERIFY TOCHR$  MOVE . RUN USR RND/G LINE VAL X- OVER  OVER p[Q] COPY [Q]0A5QW[T] COPY  FORMAT  LPRINT POINT TAN [E]LEN [Q]j COPY E9p COPY 8PEEK  STOP IN RNDn▖[J]Z(I}V©[N] LIST  CIRCLE D*▙[K][S]_H LIST  MERGE [T] MERGE h(▛[A][R]m GO SUB q`D DEF FN  VERIFY  NEW [G]wUSR N6 LINE INKEY$ LLIST  CIRCLE PEEK PEEK J POKE [Q] PRINT y[A]9 DRAW  OVER [J]0| OUT [A]H TO {IN v}^B RANDOMIZE  OVER POINT X OVER @© PAPER BIN .▝0>0 RANDOMIZE USR / PAUSE  PLOT  > LOAD /[F]▖'▜ COPY  LPRINT G LET  ERASE hx4|[L]j COPY CODE <<>▗[A]w DEF FN HVAL SGN 8' LLIST  COPY  LET F STOP  CLEAR ACS  LLIST  COPY  LET  BEEP  MOVE  THEN [A]8 LLIST [R] COPY [N]gSCREEN$ UWp[S]ATN  COPY  FLASH  OPEN #▛ IF  RUN  FOR  LIST  RESTORE ©ZSTR$  MERGE  POKE ABS  PAPER © DRAW VAL t[B][H]g FLASH  GO SUB *[R]YVNOT SK IF [S] FORMAT PEEK PEEK  RETURN PImFN  BEEP ?[P]PI BRIGHT H GO TO ATN mx| BRIGHT dIN >=<>(@ABS VAL [F]▙xPEEK <ux[N] RUN WATTR  DEF FN  RUN VAL P▜RH PLOT  jVAL  LET  FLASH j▖▚WFN /SCREEN$ [A][SCREEN$ [Q]▖ GO TO a.[S]/^hfTAB * CIRCLE  PLOT  [G][F] CLS PI PLOT  ~ LIST  GO SUB  CLEAR  MOVE  RUN IN  DRAW  BEEP w©{|[Q] OUT  LET VAL  OUT _© PRINT [I]©w}[I] IF  VERIFY © VERIFY o[A]▜V CLEAR  FORMAT  POKE  FLASH  MOVE  PAUSE  LPRINT f LIST  LIST }[J] LINE  PAUSE | GO SUB {©VAL ZIN © FOR ATN VAL ©▞ OUT  DIM y LET BIN i DIM PEEK [I]M[K] CIRCLE  [Q][P]$STR$ O? INPUT b LPRINT `[' FLASH VAL$ y2L READ [T]`[A] TO SQR AT  INK COS H<={ FORMAT 8D CLEAR !|▟>" `I LPRINT Zl(O RUN 2▚POINT INKEY$W NEXT (TAN  CAT ! ERASE [Q]0 PRINT <LN  CAT  MERGE ? FOR ▝ REM  RETURN  SAVE ? LPRINT  GO TO  PRINT +Pv DRAW + RUN COS TAB  CIRCLE LEN ▜ LET ; CLS  RANDOMIZE $#▝ CIRCLE  DATA <= PLOT  ACS LEN ▙ SAVE  NEXT Nmp6 FLASH / LLIST [I][E]? LET ▙ OPEN # OR PEEK IN  COPY >=[Q] SAVE  RUN VAL © VERIFY w READ m/[O]oPEEK 0 PRINT  AND iABS `<= REM  LPRINT  FORMAT 7[I]IN [P]b LOAD  CONTINUE _n LET  INPUT u COPY ' MERGE [F]] RUN  MOVE wtACS o READ FN [Q] DRAW i DRAW © BORDER IN ?▚1 BORDER  NEXT [Q]` IF >=oAT  CLS e DRAW USR  LPRINT [P] FORMAT [R]]PPEEK sr+▙ LLIST  IF SCREEN$ YSQR ATTR INT VAL IN [T]UPuB CONTINUE  RUN [S]PEEK [N]L/+ OUT  NEXT  COPY  READ & NEXT f▝8x[2pr_ FLASH  LET USR ~2[Q]@SCREEN$ $UCOS PE INPUT )[P]@PFN  CLS `i BORDER T LPRINT [G] CLEAR vip TO INT ACS x3 LET [R][I] RUN  INK  DIM USR 0 CLOSE #%. NEXT  COPY  RANDOMIZE CHR$ ©CODE ]P[Q]/4 DRAW "!c<[S]y TO  RETURN CHR$ QB(USR [T]SCREEN$ ©[P]S INPUT v DRAW  RANDOMIZE I▜ COPY <>L DIM [E]C0 BORDER  COPY ABS  RETURN  LET ACS N[G]VAL ` RANDOMIZE [F] RESTORE ▟  LIST z RETURN RNDACS  xr RETURN  CLS  STEP  CONTINUE ? SAVE  LLIST  COPY ▝f. LET q OVER ABS 0USR 8 FLASH  ABS  CLOSE #©nL IF  SAVE  CONTINUE , LOAD AT {[B]TAB ©  OVER [ COPY y NEXT  LLIST  NEXT  ▜ COPY _ STEP  LPRINT  RANDOMIZE  LET IN  STOP j$© LPRINT  CLS  LIST g THEN  STEP _ LPRINT  CONTINUE !kpN FLASH © LET ` THEN ptRND CLS "[P]▞ySTR$  INPUT  SAVE |< LET  DRAW > CIRCLE 7[P]NOT  LET NOT 0 READ VAL 0 COPY  LET  SAVE ? BORDER  RANDOMIZE  COPY ~[M]8 OUT  OVER [M]MUSR  LIST 6 MERGE ~?Uu RANDOMIZE IN © LET ▛INKEY$$ READ  = NEW  DRAW  SAVE ? CAT [U]▟0▜y READ | LET ? SAVE STR$ ▜ LIST |s MOVE >0^ SAVE  LOAD `X GO SUB ?LNOT $. RUN IN S CLEAR  fj LOAD UCOS  RUN 8 DRAW g CIRCLE  MOVE g Y7PR[H]d LIST 2?@|(©68op LET  LPRINT  RUN ▜▙aNOT  CIRCLE m# READ zm LPRINT v0USR  FORMAT , INPUT ▘~(TAN GL& RUN ,© LIST  SAVE  LPRINT g READ  NEXT  COPY [L]a REM 0jc STOP [K]~z COPY g POKE }LN ▟© RETURN j FOR  SAVE &[N] IF p{[R]( DEF FN Z[I]p PRINT [R]<▝STR$ ▛SQR % CIRCLE mATTR RLN 0TCODE  [I]e STR$ 8 V[I]`x<>Sq LPRINT  SAVE x GO TO s LLIST x SAVE /07TSQR USR  BORDER  STEP  STR$  LIST [P]  RANDOMIZE  SAVE © RUN  CLS  COPY IN ~"▗ DIM  RUN  OVER w[I]<>  NEXT G  RETURN aG TO  CLS VAL _D}IN ▘ AT `t COPY [R] COPY  RESTORE  INVERSE  MERGE  OR k FLASH  PRINT  INK  STEP  RANDOMIZE ▛USR l LET STR$  MOVE  LLIST  FLASH  LPRINT {V INVERSE  CLEAR  CLS q`<> LET ▟IN ! TO NOT  COPY r NEXT  GO SUB sMUSR " COPY CHR$ VAL$ BIN Dd~#2dSTR$ bBIN  RANDOMIZE  REM 3[I] LET _[P] STEP  LLIST  INPUT  RANDOMIZE PI![Q]USR  FOR /s,r  OR  PLOT  e"NOT / DRAW  OR 7 AND  RETURN _6<=1 TO _!STR$ "y OR  OR ~ AND  DEF FN  ERASE w<= RANDOMIZE R▚SIN  LPRINT  PRINT : CLS  FOR ▞ VERIFY 2]NOT  FOR [J]h PRINT ,[P] LOAD BIN  VERIFY  INPUT  INPUT '  OR  GO SUB QIN Y  LET  DIM  POKE <> CLS t FOR ^#VN LOAD n><>kD TO  FOR  INK * MOVE Hfxz<▚e0 NEW z[U] LINE PI RANDOMIZE g DIM TAB  DRAW *LEN  INK RNDL RANDOMIZE ▛[F] INVERSE YCAT SFPEEK  CONTINUE [H]g RESTORE  OUT PEEK J▛ IF 3jSGN  READ  PLOT  [S]>[L] REM ) CLS l:hPOINT ▛yGTAN AJ[ COPY ;y[T] CLOSE #A!U[Q] GO SUB SGN [Q][T] REM FN [O]<=Z MOVE ▟INT BIN jP MOVE ▟ IF TAN ▟* ERASE  DRAW  U[U] DRAW _7n LINE =LN ▟; OR U INPUT  INK  GO TO ▖* ERASE ~v CAT / RESTORE [O]7z/ STOP AT gATTR vDg RUN  DIM IN  PRINT AT [I]rO. GO TO [O] LET  MERGE [O] PRINT SQR [S] OR COS ▛t` VERIFY COS VAL 9(TAN xFN  FOR  CAT INKEY$[H] OR  FOR YINT VAL INKEY$[N]g=[E] PRINT AT ▗|uoCOS [O]ic▛ MOVE ]X▛AT gNJF[O] PRINT B> VERIFY COS ;741 CAT z/, REM Y)'%#g CLS ` PRINT AT COS [O]x VERIFY x[G] AND  GO TO  AND 3! THEN #l POKE GR LINE CHR$  PRINT [P]CHR$ USR  IF  THEN 2[H]NOT  PLOT  ATN [P] CLS USR [A]<>[O]5] SAVE t[I]`IN [T] REM j%BIN -dIN [Q] CAT [K][Q]VAL$  SAVE <> INPUT  PLOT  R POKE  THEN  DEF FN  BORDER <=INKEY$ MERGE  INVERSE  READ <>LNOT BIN  INK  PAUSE NOT  SAVE _CODE og"[J] OR ▛[E]) GO SUB  IF  CLEAR $?VCOS [P]}[Q]I PLOT   BEEP m CLOSE #[H]*g PAUSE  PAUSE %SQR  OR !R" PLOT  6POINT  OR n LIST .[H]ICODE  CIRCLE  CLEAR [U]/NOT  CONTINUE COS [K] CLOSE #DmCOS b DEF FN BIN  DEF FN R INPUT  CLS FN c▚LEN  BEEP SCREEN$ tASN {ISCREEN$ 6 DIM PI GO SUB BIN  RESTORE &COS 5:[T]NOT  INPUT T FOR 1SIN  NEW kVAL$ o[J] AND 3[J]r RANDOMIZE  BEEP  DRAW  AND U~ PLOT  } CIRCLE  CAT [Q] BEEP INKEY$rM OPEN # FLASH  INPUT BIN -r= STEP  AND !x▖ PRINT INKEY$Mr AND r-PIf FORMAT rSSr REM SGN  INPUT [N]7DOrs[K]rBIN  DEF FN m5ri(LEN [C]8rrTAB V FLASH r[N]ZPIr[U]INKEY$} OVER  CONTINUE 1BIN ASN )r PAUSE {<INT  RANDOMIZE  INVERSE STR$ ATN ( NEW S" LET <= THEN Ld DRAW HS[I] INPUT Ij CLS }>=STR$ [D]8[S]3m&RND DRAW @b>=kBIN !NOT 5cC INK  E[D] STEP ATN  BORDER  OPEN #0 COPY gW GO SUB sABS  LPRINT G FORMAT  TO ~< >▗^#COS ABS | DRAW  MOVE  RANDOMIZE  LLIST  PLOT  ©ne DATA [D]BIN  COPY 1INKEY$_&USR  STEP 9<> GO SUB S1▞©[J]ASN [H]mfn PLOT  ".NOT  INK xa|a][M][B]rj[K] INVERSE ▚@POINT < LINE  OPEN # OR 1/ RANDOMIZE  RESTORE o<INT 8[P]▛ OUT INKEY$ THEN %J TO 9 RANDOMIZE  MOVE z PLOT   LIST o{▜>0b[O] READ  RETURN  DEF FN UNOT  STEP 9 PAPER CODE  RETURN o6INKEY$ AND  OUT &STR$ ~[P][O] THEN ; PLOT  z>H COPY ©b LET  INVERSE g{ NEW bj CIRCLE EXP QINT INKEY$8 OVER  INK o RETURN W CIRCLE  NEW  INVERSE oSTR$ S[A] IF rr_ MOVE  FOR 1SIN }>[K]}LN [T]y.&91':BIN ▚▜0[F]CODE INKEY$[N]CHR$ f▜[A]? INVERSE = IF  ERASE  OR  (SGN [D] FOR m[K]▝ LINE )}s INVERSE  RETURN ( OPEN # FOR  GO SUB R83}▛ THEN [J]b^bIN AT  NEW <> GO SUB Rh<>![F]gjVAL$ w [LEN VAL$  PRINT LEN  AND 1^C FOR ©RND5; STEP  LET >=TAB [U] RETURN Q`[J]#m LOAD  COPY  NEW  INVERSE ASN IN  PRINT  AND  DATA  PLOT   AND & AND  AND H CLEAR ▝o CLEAR -▞BIN T/9k▘<>BIN <>SCREEN$  OUT  INPUT  OR [P] IF ? MOVE <=1 NEXT M* VAL  AND )<=o<=6©<= STEP =<=G▝T LOAD z<= NEW $ OUT  RANDOMIZE k<=ASN  NEXT {<=USR ▗EXP s9IN  FORMAT <=[H]<= OUT  DRAW /J&<= VERIFY [O]VAL$ kf<> FOR <>3~ AND  MERGE PEEK Rq}LN EXP _j"[O] POKE  FLASH >= iPEEK ; INPUT <=[N]/kCODE IN  COPY :xm] DRAW STR$  GO SUB iC[T]B▘[O]_ INVERSE |2 DIM BIN ▚i[L]y, BEEP  OVER }m`V RUN  TO ~ATN (CODE  DATA y6|=_x DATA (6USR ![R] GO TO  PLOT   PAUSE  PRINT  RETURN  DEF FN * NEW kPEEK *[D]>= TO  INK  RESTORE  RUN *SGN +IN * LOAD | RESTORE *IN  CONTINUE  PRINT *BIN <><jN OUT  REM 5USR ▝ FORMAT  CAT  LINE Sk CAT BIN  CAT  MOVE ATN USR `h INPUT _N<> PLOT  MCODE 6( BEEP W▜ OPEN #|©M PLOT  /H RETURN FLN b<>(= ABS n STOP <>8VCODE TQATN  FLASH P MOVE  CLOSE #Fn OVER B▝[I]!▜ AND  LPRINT oN,F GO SUB ChL[O]EXP ]2 OUT  COPY [Q][U]7RNOT  DIM COS  CIRCLE  CONTINUE  PAPER ▝1~ REM [N]e PLOT  VAL$  AND `▙▞[J](0 LET  PAUSE ! OVER CHR$ [K]~,f COPY > RESTORE  PAPER (NOT  OUT [Q]SIN >=▜ACS Z RETURN [S] IF  RUN [C]VAL 2 FLASH 7 OVER S FOR S VERIFY  TO  SAVE S[P] REM ▛USR S GO SUB © DRAW S PLOT  [I].So CLEAR S LPRINT w DATA S CAT  SAVE S/ PRINT  SAVE 5Q RETURN [Q] BEEP Q CIRCLE ~ CLS  OPEN #(SGN 7LATTR LCODE  VERIFY  PAUSE [L]▛POINT [C] PRINT T,>[E]PEEK [Q]3©[B] DATA  GO TO a6IN "<>w NEXT U LIST  AND > STEP c INK sC GO SUB PIAT  NEW 3cN: NEXT ACS  LPRINT CODE ze THEN [P] OVER 2 GO TO  THEN  CLOSE #(ATTR  NEXT -[J] NEXT  FORMAT  NEXT  COPY +BIN <>kJX BRIGHT X[U]M CLEAR [D] NEW ATN [N] FLASH go/PEEK  STOP ▛TgPEEK [I]POINT 7 MERGE {BIN [H]JqY BEEP [▗z BEEP {NOT ▘ ERASE 4NOT  CLEAR ▖Z[D]SGN ▘ POKE #G}CODE G TO [C]![U]~WCODE uKwABS TAB  BRIGHT INKEY$ACS  LLIST ▙[T]ASN TAB LEN ATTR nVAL$  VERIFY }/CcbCODE POINT z OPEN #[D]/CODE '[N]CODE INKEY$<!ABS ▘CODE m> IF CODE 4" LOAD ]1mATTR ?SCREEN$ [<+INKEY$H TO c VERIFY AT INKEY$EgRAT CODE 9W GO TO  AND <>FN [N][D]FN [I]@!6 MOVE RNDLEN 6mRND FLASH  DRAW ACS [S] COPY  OVER  CLOSE #bVAL$ ProT▜/acke© STOP  3.6compil▖atn ▙ DEF FN f}rthSIN [J]adZ MERGE su( BORDER t)©{b8?yjef LET i INK  CAT 093~ CLS 5}D▟©;] MOVE >=*Hg=fx4[I]▚s BORDER [U] LINE  DRAW 3PI DIM TAB ~[F]LEN  SAVE  ERASE IN  COPY  PRINT ,ATTR  INK ({-`©4 CAT ATTR Ys OPEN #g INK )ABS FPI5ATTR  IF AT  LOAD ▘: LIST 0▟LEN xg▚bl[L] RETURN LEN }g* NEW EXP ae CLS ▝U[K] LINE [L]>=3AT PI6 CAT  INK K`U▗SCREEN$ F CAT )[I]SKCHR$ ASN  CAT OSTR$  LLIST  FORMAT >=3}VAL CODE  ERASE <=[L]f[U]z DEF FN 9 CLEAR | STOP  BEEP ASN SGN xyi▗© RANDOMIZE <=8LN XABS usACS v[M][K]`w>c CLEAR  COPY zf[M] PLOT   SAVE Ts RUN [I]q COPY [A]J TO }~ NEW <=IT MERGE TAB [O] PAPER #{RLEN  SAVE *[J] FORMAT  TO iNOT  OPEN #[I]SQR NOT  ERASE [E] VERIFY vL THEN RND▚[A]>=[D] LINE z[H] REM |lUZ▗ NEW [O]SCREEN$ [L][G]R<> TO USR l ERASE PUSR INKEY$ LLIST [D]COS [D] PAUSE INKEY$[J][K] LLIST  CLOSE #j>=RND PAPER r POKE ]m LET  INVERSE 3K) PAPER 6f_S PAPER e INK NOT  RESTORE |INKEY$V INK YcjINKEY$ INK PEEK 5 PAPER [M]nI[G]p^POINT  STEP UINKEY$VAL$ {▛SCREEN$ i VERIFY 2e OPEN #i CIRCLE  INPUT  FORMAT YSQR i[K]> CAT " CLOSE # READ PI- NEXT  PAUSE &q" FORMAT  !O LINE S AND [N] CAT "PI< SAVE   CLOSE #▝LVAL$ <=N▟ OUT  SAVE  AND l3 READ  AND o FOR #] CLEAR  AND ATTR LEN  ERASE  FOR [T]N MERGE )c RUN & CLEAR u[C]W MOVE  PAUSE  FORMAT 3[G][[L]3 THEN  CLEAR [ASN ] LET o[K]v VAL [K]|INT `[G][K]/M&K LET ;> LET  SAVE  REM © RETURN  CIRCLE F+ PRINT }">} PLOT  "▗POINT  OUT [A] INK = COPY >=}[H] OUT h*hw[U]h RESTORE ▙ VERIFY ?h MOVE J>=$+ LOAD [T]hCOS  INPUT RZ[U] CLOSE # OVER  MERGE  OUT @&Gl[F]j{lr`kxCFwBIN  THEN _Yi DEF FN TAN USR x" OUT  OUT > AND [O] ERASE  CIRCLE VAL 3Dog[C]i MERGE PEEK fiZ▛gveVD>6 FOR ATTR > LPRINT D[K]LN vLN  SAVE hLN _ DATA  SAVE SIN >k}LN n SAVE .pSIN *TAB [P][E]lCODE EXP GVAL$ ) DIM ▝V CLEAR r▞▛EXP  FLASH ^{ PAUSE rAT  NEW ▛EXP =I LET O LPRINT 4 CAT r[Q] CLOSE # THEN [A]SIN TATTR SIN AT  NEW [U] RESTORE 6p CLS J CLS [Q]V`[O] NEW ' PLOT  ]VAL CODE  COPY } COPY  FOR G PLOT  IN VAL oxINT D FLASH |8-SQR  MZ RUN LEN 3$^[S]:?FGSQR  FORMAT {O LPRINT 9zAT /WqNSI     C SAVE ©hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT 1 COPY  IF ! CLS  GO SUB [ POKE / STEP =NOT  CLS  NEXT  GO SUB s[!% CLS  OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ! DEF FN  RETURN  COPY  COPY USR <> GO SUB LN  FOR  RANDOMIZE  CLS  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 1 CLS  NEXT NOT  CLS HR TO  LIST <= NEXT 1CODE  OPEN # RETURN ![T] SAVE X POKE | COPY w GO SUB VAL ▘[O]@[G][O] INK  CLOSE #X CLS  BORDER OPI( OR  MERGE  CLEAR  MOVE  STEP I CLS STR$  PAUSE > BORDER  DRAW  DEF FN 68FNOT V`z NEW USR { AND  _ CIRCLE z VERIFY W<> COPY  DRAW F IF  CAT [H]▝ CLEAR  BEEP EXP 8 LOAD  DATA `USR  LPRINT [U] GO TO ~ SAVE NOT |<! RETURN 0STR$  LET  READ  LIST  COPY  CLEAR 6 BORDER  LIST  RETURN ~; COPY  OPEN #[N]y LLIST  BORDER wINT  CAT  LLIST N▝[N]VAL$ ?[M] INPUT ▝ RANDOMIZE  LOAD  SAVE  RETURN ©IN  OPEN # CLS  LOAD LN  NEXT  BORDER ▝; RANDOMIZE COS  CLEAR  INPUT } DEF FN 9 RETURN CHR$ [Q] OVER  LET  OPEN #[N] READ  NEW LN  DEF FN xNs SAVE  LLIST  COPY SGN  READ n~<= LIST  COPY  LPRINT  OVER x SAVE Mq COPY  BRIGHT o READ NOT Dp LIST  OPEN #5 LLIST  COPY p COPY 4INKEY$ BORDER  COPY <= BRIGHT ; LLIST l▗/ GO TO SGN y▜ CAT B TO [G] RUN  RANDOMIZE NOT  BRIGHT q NEXT  COPY STR$ ▜ OUT LN {INT c COPY  LOAD :c COPY y COPY  LET  INPUT ts) DRAW <=[P] CAT }SGN  DIM ▙ COPY  LET [P]q:[O] OPEN #(=9INT  LLIST  DIM ▙yABS ;[L] COPY  CAT w REM } LOAD = READ [P]vPEEK  LINE  LPRINT  CLEAR ?[M]VAL$ g LOAD  BRIGHT i[F]iCOS  RANDOMIZE gAPI DIM  DEF FN <=< GO TO TwNOT © CAT ▜ OR  INK ; NEW  POKE  LIST  DRAW  COPY [ABS ▚SGN  LPRINT p▚▚USR [M] NEXT [G]B INVERSE ! POKE  READ  NEXT 9 MERGE  RANDOMIZE STR$  FOR EXP m DRAW  GO SUB R8T]LN  FOR  INVERSE [A]▛V^STR$  COPY ▛ LLIST ; LET  INVERSE w! DRAW # RUN  INK IN ▜ BORDER  LLIST  INK  THEN )u©A8 NEXT >▞_8 SAVE  RETURN © SAVE _POINT   GO SUB  RETURN (Z STEP  DEF FN  COPY  INK O GO TO >©PEEK 8 OUT (<▘0 NEXT ▜[C] > LOAD [F]< LPRINT ) OUT  DRAW  INK & COPY (g; CLEAR ( LET o GO SUB y SAVE VAL [U] INK  THEN [Q] LET  MERGE EXP  LLIST  LPRINT  LIST POINT  NEXT  LET  VERIFY oO INVERSE ~ OPEN #[Q]▜#~▘ STEP  PRINT ▙ R COPY  PLOT  > DRAW ;STR$ HG? RETURN O[F] INPUT  PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P] READ g[P][R] DRAW  NEW  USR  THEN © RESTORE  STOP  REM  FOR  MOVE s#r'f=  SAVE  FOR 0[L]!X' INK <>zATN O><0_, PLOT  M/ STEP ▛ CAT Q COPY  MERGE tl MOVE $g COPY  LOAD c FLASH <> SAVE © DIM  INVERSE  RESTORE NOT /= GO SUB [ POKE /! INK |K RESTORE  RUN ( LLIST  MERGE [I]O INK  RETURN v>" FORMAT  PLOT  NOT  0 NEXT 0[E]} LIST LOADER  C CLS hrust-packer v1.3 by Dima PyankovHR[Q]0JcNOT  DIM p"%&)*-.6:BCEI COPY (xJ=A" RUN  BORDER  COPY mW LOAD  CAT  NEXT ▙ COPY [N]u/BIN  CLEAR ;"<= OR wh? RETURN ▜7 CLS  COPY ▟V1 STEP o DEF FN [D] OVER  COPY  BORDER ?SGN QSGN ©0[D]N#& READ ' PAUSE o AND  NEW 0>▝ CLS  DIM LN  BORDER  RANDOMIZE  INPUT } RETURN  DEF FN 9 RETURN y LLIST  COPY  RANDOMIZE  SAVE [D]STR$ [P][M] COPY ATN [M]▜[P]X8 COPY [O]x[T]=<=SGN  LLIST  READ  NEW  BEEP  RETURN p DRAW PEEK  PLOT  USR ▗ COPY  FOR SQR  LOAD G: PAUSE  INPUT &[P]{ OUT ▗[O];h+w[L]PEEK ? LPRINT j0^▛!lRLEN ▟y DEF FN  THEN ▜ RETURN ~iPEEK ▜ OVER 9 LET  LLIST  READ VAL  NEW <=▜ DEF FN x INPUT [L] RANDOMIZE ▜ NEXT  PAUSE  RETURN <=▝ STEP F▜ABS  NEXT  CAT ▜} LOAD = READ [L]CODE ▜ SAVE  RANDOMIZE  DRAW  NEW B7 DIM  RUN  RETURN o_▖Z LET u1O OUT ▖ NEXT 0▜[L] RANDOMIZE ?▜ DRAW LVUSR  CIRCLE  BRIGHT u^▜n~▜ INPUT  BRIGHT  LIST ▝ COPY c▜▖1 COPY <= LIST  LPRINT  LET  OVER x SAVE {3M VERIFY VAL$ ▞ THEN  NEXT _▜ LOAD o8[P]? BORDER <=Mb▚PEEK [U] OR 7? BEEP  LOAD ▝ DRAW  PAUSE  NEXT ▞ DIM % READ  COPY BIN © LIST ,STR$ ?IN  TO  DRAW  RETURN ▞ CIRCLE | RETURN FN h▞ DRAW X▜i©?&[J]© RUN  RETURN RND OVER  INVERSE  DRAW 2 DEF FN [M] LOAD 8 RETURN M▜PI SAVE x COPY  BRIGHT 9 READ NOT _0p LIST 4▜ LLIST  OVER  SAVE  POKE  LLIST  BORDER _ FLASH ;▜ LOAD  RETURN  STEP k▜▜ CAT ▜ NEXT  COPY  RANDOMIZE  RETURN ? BEEP ▜ CLEAR ^cg▜&©3▖ DRAW ▖<<> LLIST P TO  COPY ▝SGN  FORMAT  DEF FN ©X[D] COPY  OVER kh▖▖ SAVE ▖`USR h DRAW  LPRINT ~ SAVE NOT |<;? RETURN 0STR$ ▘ FLASH |6CODE y BORDER NOT <=y LIST cy<=[I]y CAT <=[T]y ERASE  DRAW  INPUT  OVER ?<=y<'IN yNOT  CAT  INK  OUT  DRAW COS yATTR [M].M TO y4<>7 LOAD PEEK  GO TO SGN  CIRCLE ~ TO [P]{ INPUT [D]m▞?xG DEF FN y80 GO SUB &▝ LET  READ  LIST  STEP  CLEAR  BORDER VAL $~52; COPY TAB  NEW ASN ▝USR ▝▜ OUT  SAVE 1 OR ▝SGN y$IN [F] RUN  RANDOMIZE NOT  BRIGHT q[T]STR$ JEBIN ▘ RESTORE  BORDER ▝▜ LOAD  DRAW  CLEAR k▝ RETURN  LIST  DRAW  NEW &▝ INVERSE [P] DRAW `[T] STEP ▝W▝uV(0 DRAW  STEP 1 NEW  MOVE  COPY  SAVE  LOAD ^ CLEAR  INVERSE  OVER  THEN  OUT  BORDER u BEEP  LOAD IN mZ CAT  IF z3 STEP  IF z BORDER z1 CAT z<>ACS VAL$ WQz DRAW @[L] BEEP z DEF FN SQR wLN y2{ z LOAD ycTAB z LET zABS ?zx CIRCLE  CAT  INVERSE ▚▚? LPRINT p^U? SAVE [A]▞ ▘<= AND  RUN  INVERSE qvh? NEXT [G] DEF FN VAL$ y NEW bv BORDER [P]jCODE J;v[C]ww DATA  LINE &▝ RANDOMIZE z CIRCLE [G] RETURN © AND }z& LIST  PRINT IN SIN [J]{s{<=[P]ea[G]}SGN  LET ,7v{0~| CLS 3[P] LLIST  SAVE GtJIp) READ RATN :[L]H STEP  DEF FN V7y' FLASH PI8 LPRINT SGN j DRAW m DIM [Q]P0[U] COPY @eTAB  CLEAR ?[N]SQR RND6 VERIFY [C]1▖: NEXT ▝AT nPEEK y▝NOT [P]▙ CLEAR [U]k?> NEXT  RETURN  OUT  CAT  RANDOMIZE  LPRINT c>=INT  SAVE ATN L MERGE 8 CLOSE # CONTINUE  LET ! RANDOMIZE S TO  CAT /USR [S][B]SIN _ LINE  RETURN @ FOR D[D] PAPER ATTR [G]~[S] BORDER  CAT STR$  RANDOMIZE  SAVE =[U]. PAUSE oc TO  LIST { OPEN #*p LPRINT VAL$ bk[N] DRAW  OVER  PRINT I + DEF FN CODE ▙ CLOSE #I DATA *iI CLS >=PI4GM|JM DRAW [S]R[J]& CAT  DIM M[K]d[R] DRAW  DEF FN  DRAW 9Q] CLS u FLASH 6PI BEEP  RUN  BORDER [H]H<> LPRINT t NEW [B]!IN L[T]SIN h▘ LET  SAVE |TAN [I]s RUN s©INKEY$[N]K9STR$ z OPEN #[L] CLEAR PI LIST [A] CLEAR [F] TO P RETURN w3g FORMAT I BEEP b PLOT   LET ▗1i[S] PRINT o4 COPY  LOAD I PRINT [O] BORDER & RESTORE POINT aATN [M]G VERIFY kVAL S DIM I@8yfTAB oI RETURN 3 GO SUB  MERGE  RESTORE MI[G] LIST ? STEP   SAVE ©▜SQR  CAT aGUSR An OVER  CLS  LPRINT  RANDOMIZE Y&YJATN  RETURN `q▖GQZ DATA  NEXT  READ [U]USR ? LPRINT  LIST Vwu1INKEY$ PAUSE [S][N]n[A] SAVE CODE E OPEN # GO SUB  RUN  RANDOMIZE  NEXT 75 LIST A RETURN SCREEN$  DRAW 7▟ IF 1 LLIST [A] STOP m>=▜ CAT $ OVER  BRIGHT ©[P]1[A]I DRAW [E]LVAL$ [L]G OPEN #%06[O]G PAPER [H]i SAVE  INK ; LET GLEN  SAVE  LPRINT GbINKEY$▖p INVERSE ;[D]LV LPRINT G LINE ATN ▚▚ RUN [F]▞ RETURN  IF  CIRCLE RND[L][A] STEP © STEP  OUT E[J]  TO INKEY$) LOAD q CLEAR i CAT FVAL ATTR hx OPEN #▚ PAUSE  INK ▚▛ OR  DRAW 3 READ  RUN ~?DSIN  TO 3U SAVE e LET  LLIST  ERASE ▛▛ FOR &D[Q] DRAW $4[Q]"nh▟m STEP ▝ LOAD og VERIFY h8>[N]<>F FLASH  NEW :>FACS  INPUT CODE ▘[C]SQR F BORDER  CLEAR 1[L]wFDATN  FOR eATTR  READ ? LPRINT VAL$ E MOVE  BEEP & LINE SQR  LOAD  THEN  IF [I]▟▞ASN [N]/ DEF FN  INVERSE  FORMAT  OUT J[F][K]INT PIb ERASE  a▖jG*rZE▚▞ LINE  OVER ▝SIN <> OVER  RETURN 0 SAVE # RETURN p CLEAR LN 8 LOAD ▞? NEW [L]▞CHR$ EO CONTINUE ($[R]5IN [I] CAT ▞ TO [L]%[C]NOT e STEP [B]erYrCPOINT :[N] CAT ~[L] NEXT r RND LET A INPUT 1[C]-A INVERSE lNOT  READ SQR  RETURN  LIST  FOR  OUT ,@ CONTINUE  LOAD  CAT  READ ASN  LPRINT @CHR$ ?USR C DATA sWA INPUT 0|5M INK AZ6 LOAD X DRAW ;:© GO TO - NEW N▟|C.d INVERSE u RUN b[N]y SAVE 2SGN ( ERASE [K]©> LLIST E?[A]HDjACS v? BRIGHT  DIM kk BORDER  OVER k LET 3 RUN [G]<>GG STEP [M]▞G![S]v] NEXT  GO SUB  TO sTAB ![N]STR$ ss DRAW x OPEN #PEEK  CLEAR STR$ W ERASE fH DRAW  LET 0 BORDER ACS pINT  THEN  THEN p LET  MERGE p RESTORE U ERASE  SAVE ? CLEAR ▝CHR$ J OVER [N]?USR 6ia SAVE (GSTR$ u5dlVAL$  OR K[T]*G NEXT PI DRAW ▝ RETURN +CGh[R] OR ▜6[B][M]▟▘H[A]u%DTAB ur▟ STEP HNOT  IF ! OUT 6: FLASH H} OUT  RETURN SQR AT &" REM dCODE  SAVE USR c[K]BIN  NEXT  TO [C]IN  TO  LOAD 4 POKE  CAT ▜ NEXT ACS  DEF FN [E] REM INT  DRAW  VERIFY )fu CLEAR ?4 BEEP b DRAW  SAVE ,[P]SIN  ERASE H?©G OVER /u NEXT  RETURN  DRAW ( RUN  LIST yPOINT g▗K[N]~VAL " SAVE ▝= LOAD [ DRAW 'O- PLOT  ATTR [R] INK  PRINT 54[B] DEF FN [F]▝ouTAN DTAB >= PRINT 7e FLASH  IF NOT  CLEAR ▖X<> ERASE  STEP  NEXT EXP PI- FOR  DATA [G] RETURN u[B][I]uPIu>= MERGE +0[I][C] MOVE [S] CIRCLE ;Yw GO TO  PRINT ]▜ MOVE  FOR @z PAPER e[E]CHR$  RANDOMIZE 6[U] LPRINT [C]NOT [A] FORMAT xs/ VERIFY |k BEEP  SAVE  AND ▗ BORDER SZSTR$  GO TO LN INKEY$©? PAPER ▖^INKEY$[B][J][H]VAL$ ASN vSQR ▞ IF  CONTINUE  BORDER 7 BEEP L LLIST  PRINT  RUN  COPY ` RANDOMIZE TAN  MERGE <=▞ BEEP TAN  INPUT ][N]JfINT © SAVE [I] PAPER v LET mZ LINE )[J]iFe▝ VERIFY P[M]@x<>ATTR P) PRINT [F]3w▙[H] DIM  INVERSE ]POINT # LIST P^jEXP ▗y1 RESTORE T LPRINT 1 DIM  @[N]INKEY$USR  INVERSE  READ *ATN  BEEP / OUT LN 0[3 BRIGHT FN |/FN  LOAD G RETURN  CAT 7INKEY$kPI<>ATTR /< LPRINT K2[M] SAVE 1"IN PEEK M4 RETURN M?USR l) MOVE [G]▞BIN EXP  VERIFY _p FOR  STOP 3[S] REM  AND _5"[J] FLASH 0.[P] GO TO 0VAL$ 53- LET ' FOR ~ABS WI LIST USR oM[R]F LLIST WBIN `[L]PEEK p%(^[L]u2) LET [I] DRAW H. PAPER ,pz OPEN # THEN ; LPRINT  G[Q]▖ DIM m[S] LET ASN  DIM ] LIST pINKEY$ RANDOMIZE . FORMAT | ERASE x GO SUB ▗;]EXP 1 LIST ]▙ABS h LIST @ RETURN ▜ DRAW "N MERGE EXP ]y3SIN  THEN EXP ^yAT bVAL$ .<= LET ]RND INVERSE  NEW R/ DEF FN e.Jb BEEP  STEP cKSQR  MOVE @_[J]' DATA z▛' ERASE x[C]' RUN 'TSQR  DIM  CLOSE #i0'M CLOSE #]USR wgxT LIST  DRAW ▚<[K]CODE SIN EXP '_ INPUT  LINE  ERASE U>=ATN i READ }[K]PIO STEP  DEF FN [I] BORDER  LET U SAVE  LLIST  BEEP  BEEP  CONTINUE <(USR  CAT  LPRINT UPI}U'p©ABS l# OVER  LINE [S] DRAW TAB s SAVE NW INVERSE KKz'z'5) NEW <= AND  DRAW hW[I]fq©L LIST )k DRAW )ATTR < RETURN  TO VAL T LET ( STOP  INVERSE ' PAPER [(>z PAUSE <>USR  COPY [I]FN ATN [M]` FORMAT rINKEY$jqD©M[D]7 LPRINT [E]©<▟[N][K]z5IN zRNDuCHR$  LPRINT zwL[P]▛ CLOSE #O MOVE  LIST , BORDER @gVAL <KFN k SAVE 8[R] MOVE  SAVE ?[M][O] POKE >SQR  CONTINUE `▟<=FN $ IF ▟& BORDER 0W`{[J] DRAW PEEK [J] INVERSE  SAVE j/K<>ASN c|PEEK  DRAW &w POKE  RETURN  LET -▚ CAT  PAUSE vOqx%Af LIST &W PRINT  LIST [J]Z"ZTAB SGN TAB "W= PAPER  NEXT RND LINE STR$ CODE  CIRCLE >=/ LINE  NEW CODE -!HATN  RANDOMIZE /STR$ +HUSR bJ© OVER D▗[P]O- FOR  GO TO  STEP  OPEN #CG SAVE  INK Q NEXT [R]ABS ABS [A]USR ` CLOSE #d READ >=d LIST 6u REM >M~[P]p6| DRAW  ABS d6h<= LIST AQ RUN  RETURN  COPY vC▛▟ RANDOMIZE STR$  OVER  LIST , DIM ▟[J] CLEAR ▞[Q] DRAW  &▝wNOT  DIM FkCOS 0? SAVE   RETURN [Q] THEN J) (@r RESTORE w[E][H][J]/ ERASE  INPUT nU FOR  DRAW STR$ 0? INK fTAB p LIST FN F/~#>▗ RETURN Z] LOAD D[ INVERSE kxOy[H]PIATN N[P] BORDER P NEW  FLASH ]USR  MERGE  NEW  STOP z LLIST /PEEK  LOAD PIZ DRAW  RETURN ATTR  LPRINT  POKE ? STEP  POKE  LIST ©ACS  DATA ▞/ LIST 8 RANDOMIZE HK- SAVE  STOP u DEF FN  STEP  CLEAR n OUT ASN ? NEXT ▜ PAUSE cPEEK [T]& THEN  COTAN ▜7 CLEAR  LIST  RETURN  NEXT  READ  OUT [P] CIRCLE $/=.[K] CAT [J]▚ LIST [J]x STEP E CLS [J]SQR B CIRCLE .ABS  LET  OVER uTp[I]xxATN [E]`;%[S] NEXT  RANDOMIZE  RANDOMIZE @SGN RND9▗IWIF PRINT -]i&LN [K] OR -];#/f[Q]▙SGN ATN *SGN  LIST 3 STEP PEEK ;^ RANDOMIZE [P] LOAD 2SIN >= RETURN *iFN IN U OVER CODE  MOVE  AND [G]#INKEY$/w[R]# RETURN  CLS SQR  THEN EXP FN © DEF FN #=@ABS [T]= IF @  COPY  LLIST NOT 7 GO SUB &  BORDER   LOAD ?VAL  BEEP =© SAVE oTAN "M[VAL$ o<> OR "w+[AT [S] LINE 6 GO SUB F©( LOAD  CIRCLE xmIN z PLOT  SGN [Q]USR  PAUSE  PAPER  OUT  COPY =Y`{y CAT _Ay PLOT  O[Q]J CLS B, FORMAT @@U` FORMAT © COPY 9j*H CAT ?pIN INT h OUT PBVAL }?[P] CLOSE #p,>=@I0PINKEY$ COPY  LIST s[Q]p Br RETURN G(` CLS ▙CODE  LINE [Q] LOAD  pv$▜kUSR [Q]fux` DEF FN ZVAL$  GO SUB [E]USR SGN  CLEAR 1 LET ▘B` OUT  CIRCLE  MERGE CODE  OUT  CIRCLE / INVERSE ' MERGE ?e OVER  CLEAR CODE ATTR i LOAD SCREEN$ [A]ASN  CLS '[A]*h[F] OUT ▝#XNOT  BORDER ▝ INVERSE  RESTORE  LLIST < READ ^$ MOVE  LLIST +;#| COPY  LLIST SGN  }ABS >=~+ CLEAR ! OR [#(?SIN  [J]U LOAD m7FC FORMAT >[B] INK  AND o DEF FN [[F]g~ INK N+F COPY  CLEAR  STEP &oNOT SCREEN$ n OVER <>3IATTR ~S INVERSE >=xLEN ([E] INK  PRINT ▟ REM  OVER [D]▜ RUN [O]H>= FLASH  MERGE  PLOT   LPRINT 7LEN  RANDOMIZE  INVERSE ! INK : RESTORE STR$ #▜_F[O]x[P]INFIN LN nfNOT c[K] CLEAR oIpPI(b STOP [B] GO SUB S6"8 OUT  RANDOMIZE !@xNOT  COPY  STEP :p CLS  FOR le MERGE STR$  LLIST #N2 MOVE  STOP 8G*3e BEEP  DIM SCREEN$  IF [Q]j PLOT   OUT TAN  CLS 9} OPEN #@ FORMAT 4f PAUSE [ TO IN  THEN [N]eY BORDER  ERASE  CAT =  OPEN # DRAW $ACS [S]AT E INVERSE ?[ STEP  INVERSE [U] READ EPI DRAW s- TO <> PRINT  OR  RESTORE  MERGE zb COPY  READ  NEW  PLOT  XW GO SUB [Q] MOVE  MERGE  PAPER  MOVE  LLIST STR$  LET &> _ NEXT a!▘W PAUSE  OR  LOAD [U]o BORDER $▗gCOS MB SAVE oo9 PAUSE c^[P]yINT pd7NOT K[O] BRIGHT ]5VAL$ ACS PEEK P[K] RANDOMIZE  BRIGHT  PLOT  ATTR BIN A AND  FLASH SCREEN$ U RUN =[N][H]?;[Q]P_[N]PIS  STEP [C]~r& OPEN # PLOT  [S]<PIcSGN  BRIGHT  BORDER  OR  CIRCLE  LINE  MERGE  PAPER LN  NEXT 1E DRAW wCODE 2+w[O]_v STEP mt: FLASH ]r[G]~ INK *0X LOAD ▖ GO SUB VAL USR  COPY C(w INVERSE *[INKEY$ STEP XOfs""[I]>= STEP  STOP  OUT r▗>=3 STEP  STOP s! PAPER  CLOSE #~[I] BEEP  DRAW ?~# FLASH  RETURN /INKEY$(<> POKE y RETURN  INT  GO TO  NEXT w INPUT 2POINT  INVERSE 6CODE [J] PAPER  PAPER [I] RANDOMIZE  PAPER  PRINT COS  FORMAT vPI> BEEP  INK lon MOVE 0 NEXT COS ▚": DEF FN ^ BORDER [A]0SCREEN$ . STEP Do3 DEF FN _{ GO SUB cmM REM  COPY ▛'f OVER a"F RETURN EINKEY$[I]K AND 2[O] POKE POINT D STEP ATTR u LET  NEW $ CLEAR ;> OUT ▞; DIM  FOR 0[G]COS [F]▟gATN  RESTORE  COPY [D][S] RUN IN TAB  INVERSE  DATA ©[M]tCOS  NEW  NEW  OR  FOR  DEF FN  THEN VAL  OPEN #CHR$ Qq; BEEP LEN (:POINT  BEEP C▚©!U CLEAR  FOR _~ STEP ACS USR ; VERIFY vLN $ OPEN # INPUT NOT  OPEN # RANDOMIZE jPEEK  READ @©u INVERSE  INK  LIST  OVER SGN  STOP  DIM  STEP [J]n! OVER k THEN CODE v OPEN # RETURN $r LLIST ,aNOT Lj[U] IF SCREEN$ [U]?[B] NEW  RETURN !~SCREEN$ f}POINT  IF  RANDOMIZE |FN  STEP a| CLOSE #1 COPY NOT <> CLOSE #! COPY  FLASH IN  OUT  DIM   OR  RESTORE  STEP LN u_[G]s RUN s v<>M LET ! OUT  STOP  LPRINT  PRINT ? OUT [M]6<>*WINKEY$ COPY  POKE ^#V{SIN  PRINT 3_G:WsFN ?2 DIM  BEEP !PI▖"YINKEY$~[P]S^▜!O}W OPEN #g ERASE  FOR nLEN >INKEY$+:J~=RNDR<># NEXT W CLEAR PI FOR NOT ItEPEEK TAB i LIST  SAVE  GO TO  COPY  MOVE  GO TO |NOT xsXL▜ LLIST sM<> CIRCLE | MERGE ▚SSTR$  OUT  MOVE ~ INPUT [I] RETURN [F]<>3y INK !- OR  MERGE O[T] IF n&)} COPY Av OUT  NEW k>y2uW RUN  MOVE STR$  INVERSE % LIST  INK  DATA ~ PAPER  BORDER  LLIST <>[A]>=! BRIGHT 4mAT =` ERASE [N]USR I[C] LIST ? CLS v!X+}TAN   CLS ABS z DRAW G[Q]r!K REM @>▖ MERGE  TO CODE o^ NEXT INKEY$h>= CIRCLE  COPY [I]yv STEP :t[R]BIN <>z NEW USR { AND  _ CIRCLE z VERIFY W<>& DATA TAB KUSR  AND ? OVER  MOVE >NSTR$  STOP <> OR , NEXT ' RETURN COS P▞ CLEAR K/>1G^| DRAW ! FLASH u>NOT 2 CLEAR " RETURN ▘/ STEP  DIM  CLOSE #ATN m PAPER  NEW  PLOT  X COPY H6?N/ COPY w▗ FORMAT LNOT  AND  PRINT v>4 OR JNOT  CLS  DEF FN ABS  FOR ! CONTINUE  CLEAR $ PLOT   RUN  RETURN 4ASN w[R] OR ; DATA ▞STR$ x STEP  NEXT ▞v=CODE POINT VAL w BORDER o LET TAB  FLASH INKEY$ OVER  RANDOMIZE  BRIGHT IN FN  DIM  PLOT   MERGE RNDFK< INPUT [R]:▙#![N]ATTR ATTR  LIST 6ECODE  ERASE OSCREEN$ x^ NEXT  SAVE VRND'©SGN *VAL :▖ OR y[N][A]4# RETURN IN   RANDOMIZE ▚ VERIFY SGN k?! THEN ?PIP STEP ASN h INPUT =[T]▟%CODE _ INK [H] DATA ASN O^ BRIGHT !VAL$  MOVE  OR [F] NEXT @STR$  LLIST 4O OVER SNOT 1▜ DATA q[G]▞▝? THEN  COPY ▝ OUT  BORDER  OUT ^COS VAL  CLEAR BIN [F] GO SUB [U]VAL$  CONTINUE ( MERGE ACS g[U] CLEAR  INK w VERIFY >fVAL$  CONTINUE =eWCHR$ [F]STR$ }  LIST [U]wBIN  [H] INPUT CODE  RESTORE  STEP   COPY ACS  LLIST  MOVE STR$  LET  INK  CLEAR CODE TAB  STEP *<> CLS  GO SUB M[T]* PLOT  / POKE _^w]VABS P"i: FOR [H] DRAW d[O]G:^ LIST q[L]ATN CHR$ x STEP  RANDOMIZE m! AND  OUT  NEW  DRAW  FOR NOT g'INKEY$ PLOT  ACS  PAUSE [H] PLOT  TzgWD$ READ ABS ^{AT ( BRIGHT <= TO W BORDER  RUN  SAVE SIN _! OUT 8([T]FN  POKE  MERGE <=wS▙POINT  PAPER <> MERGE  CIRCLE ]COS [H]1FN >(T[H][I]9▘W PAPER [ OVER ) REM NOT ©/f~#VAL$ M[P]w_[P]kATTR  PRINT ( OUT © LLIST  RETURN  CLS LEN ?c GO TO  CLEAR  POKE VAL 3IN  RETURN u7J [N]USR  OVER  RUN  IF j LLIST {ACS y<=$<~~ GO TO  RANDOMIZE AT  LLIST >(▚sNbd&F[B]( BORDER LEN *D: DATA IATN  LET  CIRCLE  MERGE SIN POINT TAB  GO SUB 0  CLS CHR$ xLEN *>+[G]Q LINE  OUT [G] BRIGHT [F]z OPEN # BEEP ATN  SAVE [D][D]<> AND  FORMAT  LET <brjfm;8▝O~2LN f2ATTR c<▗p!,L~ LPRINT  INK b`|F[P] FORMAT )< INPUT fB LPRINT I CIRCLE LN ueNOT  FLASH # FORMAT >SQR u[N] INPUT Z VERIFY 0[K]o INK 0▝[K]'©[N]O AND <FmZjJV^@FN 9[N]` PLOT  | INVERSE v©j[I]RPIFN xd▗[E]<=[A]|3 CLEAR h THEN ACS [E]I STEP >=<sSCREEN$ A@= RETURN L8 AND  MOVE hp*BIN  CLOSE #▟ RANDOMIZE VAL  INVERSE [D]▙vj CIRCLE SCREEN$  PRINT  MERGE R FORMAT  THEN USR BIN ATTR [D]VAL 9 COPY P OVER arVAL [Q] BRIGHT Z0~ THEN [J]FN X MOVE © AND [A]4▝INT  THEN INKEY$VAL v CIRCLE Bd<=▗& CLS 'aCPEEK  FORMAT = ERASE  XM0 RANDOMIZE p▝▛`ATN ^TAB /Z CIRCLE ]_v DRAW M2x0 POKE  LIST 8<d` OUT i<=2LN ] CLOSE #[C]B h;2B8WtVAL u[U] FORMAT SIN A[C]L[E] DIM [P] INVERSE R3FN  OUT <=[P][B]H CLEAR ,2 COPY GSGN VAL LN  COPY [I]tPVPOINT  MOVE  LINE KVAL M[R] COPY x READ VAL  AND ASN ▖[Q]8` STEP [E]▖USR ASN Z[B]P▘j<> FORMAT  COPY CHR$ ACS [D]VAL mLEN 4Y PAUSE ,h<>USR [D]! OUT  ERASE 0bxp DATA s>=▝B$STR$ P NEW 1[J][J]{VAL PEEK ©[J]P INK VAL K<>[G]ATN ASN <=. RESTORE ABS  CAT  RUN  LIST cnVAL 0 READ  COPY 4 IF  RETURN @[F]w CLS LN  CLEAR 70fk IF Z FLASH RNDwp POKE mPEEK  FOR  LOAD  LPRINT <=TAB  CONTINUE  STEP TAB  OUT kTAB h PRINT V RUN  FORMAT  CLEAR  GO TO  GO TO >O© READ V LOAD  CLEAR =[L]IN |ATTR  RUN J▙ LPRINT z_COS ASN [U] AND  CLS / [K]STR$  LET >[H][A]SGN ▚ LPRINT  BEEP  FORMAT  IF Jr[J]SGN ATN LN 8 LOAD TAB  OVER o`+AT O OVER [G]INT  PAUSE 6AT CODE [Q]zATN  CLS  OPEN #y[L] DEF FN VAL$  GO SUB  GO TO  MOVE XVAL$  PAUSE 1 OUT vV OUT V OUT ABS <mEXP  FLASH  FOR  BORDER  DRAW ! TO  RUN  BRIGHT [U]?ATN V READ [K]Sz BRIGHT  LIST  IF  CLS SQR CODE  NEW [Q]q FLASH  REM AT  RETURN  FORMAT W[S]sATTR  OUT  AND SQR STR$ < OVER /INT  LET ▘▞wINKEY$TAN [T]NBIN hm LINE <= GO SUB  LINE ;ZUSR  PLOT  USR [Q] IF ▙ AND vTAN CHR$ ATTR W? DEF FN W REM INT ▙w TO INKEY$ OUT  CONTINUE  STEP [C] FORMAT CHR$ >{▚PEEK TAB  FLASH  CIRCLE PEEK TAB ▛▖, NEW w IF CHR$  RANDOMIZE  PRINT  LLIST CODE X* CLS ~IN [P]x?j OUT  MOVE qSTR$ ATTR L[O]ASN m}t[P]g CONTINUE O`` LOAD  CLS  OVER LEN  FORMAT COS Vx LOAD  CIRCLE  GO TO j DATA [K][U] LOAD H LIST  NEW + BRIGHT ▜ LINE ;▙BIN >=1*ACS SGN  OUT  INPUT TAN 4^ INPUT SQR  FLASH -, OVER  RANDOMIZE FN ML RUN 1SIN  DATA [N][M]K[P][S]h CLS SGN ;8▙ LPRINT [Q] LOAD hSIN T> REM SIN CODE  RUN xD PRINT pVIN  ERASE  AND  REM Vo LIST IN ATN  DIM o&zABS  CLS  TO [P] OUT 7[Q] CIRCLE [P]7USR [I] PLOT  z^'TAB  DRAW  MERGE  BRIGHT STR$ 0 CLEAR f▜Z[I]ATTR = BEEP  DEF FN ▘ INPUT ]INKEY$ FORMAT ASN  RESTORE L[O]IN 5 LOAD VAL BIN V( THEN | PLOT   CIRCLE USR  RANDOMIZE TAB  AND Hj<= OPEN # RANDOMIZE  CIRCLE LEN  CLOSE #▚8 RESTORE  PAPER [M] CAT [K]=▚>[K]▖d DRAW [M]f MERGE tRIN  FORMAT -`[B]CHR$  GO TO V~NOT >IN [J][O]_<PEEK  READ  POKE nPEEK # DEF FN / DEF FN w▘[H]n THEN  LLIST  NEXT V BRIGHT  CLEAR  RESTORE  BORDER  INVERSE  PAUSE  NEXT CODE  LOAD BIN  NEW y[yx CONTINUE  PAUSE ▙ATN  FOR w[M]| DIM VAL$  DATA STR$  POKE ▟8z-bINT VAL$ I(AT  RANDOMIZE  FLASH  LET /IN Q INPUT  DATA  DRAW ▗ FORMAT >=8 LINE ▙RND| LINE  LPRINT  VERIFY  NEXT  RETURN  NEXT [F]g DEF FN g>= VERIFY ▝R[A]▝g>gO"c▝*[G]KSGN [K]X STOP ▚,v}ATTR ATTR ^ RANDOMIZE %TAN  RUN  CAT  POKE [Q]ATTR  LINE ▝ RESTORE  BEEP  LOAD h}PEEK ABS x<= RUN n CLEAR ▝Z}[R];[T]LEN  VAL SIN INT INKEY$; IF [B] DIM  INPUT <=2▙ BORDER ]▚ CLS  SAVE [J] OR >/ja<=0[O]WLN  PRINT  FLASH TAN ATN  BORDER TAN f GO SUB yCHR$ <=X DEF FN NOT ASN PEEK [INT  READ  FOR AT  GO TO g3`V[P]TASN ▜C▞ATN  CLS J SAVE vRt[N]oBIN PEEK FN ▖ DEF FN  DATA EXP 9Q AND ; CIRCLE pSGN  CAT &SGN c~ BORDER X POKE  GO TO  DRAW <>SGN  LOAD yG8[A] PLOT   GO TO X OUT ▙[Q][R]fX PAPER  LINE  DEF FN PEEK X▟ GO TO  PAUSE  LIST lgMSIN [I] CLEAR  DATA  PAPER ▜SIN  PLOT  S#PD FORMAT [H] CIRCLE ▘==| OVER PEEK ▞AT SQR LN  NEXT  INPUT  POKE  RUN  THEN @EXP  REM INT  OVER gw[P]b[T]? TO @ LET PEEK FAT PEEK [Q]  MERGE Gx<>ATN  NEW  CIRCLE z^USR CHR$ jBIN CHR$ gCHR$ SGN  OUT Bj OPEN # NEXT v<>W$[O]COS 8EXP SQR V^ GO SUB © GO SUB POINT  OVER  GO SUB ( CIRCLE M OVER b PAPER  STOP @ IF  MOVE ?[H][A]gTAB  PAPER  PEEK  REM  STEP [N]oy BEEP  FORMAT += NEW 4ATN [T]f FLASH  STEP SAT  DATA  LOAD  PAPER PEEK T TO BIN g PAUSE V[M]_[O] TO b RESTORE  GO TO >PEEK ▗V CLEAR `F RETURN VAL  DRAW  ERASE y FOR  LET  PRINT  CONTINUE ▝ PLOT  W NEW (6 CONTINUE  CIRCLE /H[J]J`USR f▗ OR [M]▝ASN ▖ CLS ▘`?pLEN  POKE  FOR ▝!VAL  COPY ` CAT | PAPER ?EXP CHR$ <>ATTR s>= STOP [I]PEEK  CLEAR &- OUT = INVERSE  OVER  ERASE SGN  eUSR SCREEN$  RANDOMIZE PPI' COPY [G] POKE zN NEXT  RANDOMIZE ©$3INKEY$Z▗RND] ERASE  CAT l|M DATA  LINE (8 CONTINUE : CAT a PAUSE / COPY D INVERSE  INVERSE [F][I]|[' BEEP ;BBIN W[M]u CIRCLE ATTR s0 FORMAT  RESTORE @_ COPY [P]I FOR  RESTORE [Q]NOT  DRAW l[E]H©&' DRAW P CIRCLE  LLIST 9f CONTINUE  LET ▛ COPY [C] OUT !VAL$ A`USR h▜CODE  THEN [M]kBIN ` LET #cCHR$ F RETURN ▚" COPY /A▗ COPY [R]▖▖%[D]z▝{STR$ |~A©FN STR$  DEF FN ▝ DEF FN ▞N: MOVE D'[N] CONTINUE [S] MOVE ▞':$ CONTINUE D' BRIGHT NLN  CAT  CLEAR  OVER  COPY / COPY FN -8K COPY <=ou_P COPY [J]SGN ▘IN ▗ FLASH !<= RUN  PLOT  T▛9[P]]:▜~[L] DRAW  COPY ][N] DRAW ▛Z* BEEP  MERGE  MOVE  PAPER |VAL  CLS ] CLEAR  FOR G 8* IF  COPY [R] VERIFY  DRAW C[F] DEF FN LEN INT <> CLS  RESTORE IN  CLEAR  SAVE  AND ]G RUN ~ TO INKEY$l*PI RETURN ▚ DIM 6; DEF FN  PLOT   CLEAR LEN ~SCREEN$ CODE  INPUT (L@ PRINT n8 RETURN  PRINT AT V0SGN  FLASH AT AT  INPUT SQR ATN `kLEN  INK Y RESTORE [J]u PLOT  ok REM ATTR fATTR  MERGE T[y.CHR$ Z}FN USR  BEEP [P]TAB .N PRINT  FLASH ▝eATN  MERGE  RETURN 3ACS  MERGE  DRAW dm LPRINT y PLOT  n SAVE  CIRCLE  RUN  RANDOMIZE ACS  LET LEN ATTR  CLS [C]NOT b©SCREEN$ IN ACS fATN  RETURN ▞ IF *!TAB  DRAW  RUN [ INVERSE  POKE TAB  INPUT { DATA USR  OVER f INK 9 POKE  PAPER  CLS  VERIFY  RANDOMIZE  REM BTAB n[D] DEF FN  DRAW 1▝W4{INT  LLIST POINT  INVERSE  PAPER 0STR$ U[K]pSIN [U] CLS  INK ▝ATN  LINE ( LET USR %<0[{[P]u READ `Tk TO ASN }aUSR ATTR ▚▝ THEN  PAPER  PLOT  SIN [Q] POKE gATTR  RETURN [Q]ASN ▘EXP  OVER SIN  DRAW  RANDOMIZE LV FOR  LPRINT  VERIFY  VERIFY VAL  %▞[Q]EXP STR$ BIN V LIST 0 DIM [S] LPRINT ? GO SUB  RETURN  DRAW  LPRINT Ex[U] LIST [K]/ INVERSE USR + NEW  DIM ?9o DRAW ?[D][E] CAT  DRAW ]o*OSCREEN$ @ DRAW f RETURN ACS 9T ? NEXT  NEXT NOT  DRAW . STOP SCREEN$  OUT k<= RANDOMIZE 9WT[ PRINT U 7▜ POKE ATTR  OUT  DRAW SCREEN$ [A], CAT  CONTINUE  DEF FN U]@e POKE COS i  DRAW  REM  OUT  NEW  DRAW  DRAW D}H OUT  MERGE 6[D]VAL USR ▝INT pVAL$  BORDER o▖_ CLEAR  COPY  CLOSE # BRIGHT d SAVE  IF I;p▜ NEXT  VERIFY PEEK ASN  RETURN O RESTORE  LINE ▚#/~30=o LET %L_8K BEEP INT 4L[P][S];▟[B]u▚V NEXT z CLEAR  SAVE SvP[J] CLEAR INT VAL p^<= DATA  NEXT <▟ MERGE r[D]F& VERIFY  LPRINT  PLOT  * IF @ DIM ` POKE 0 FOR ▜u|{z4X DIM F[G]wASN AT  CIRCLE  OR j~[Q]l- RANDOMIZE USR  l▖▘|NOT USR ▛ CAT ASN D@PEEK L PRINT  FOR LVAL$ ` ERASE ACS 0u%p7 STOP  DRAW 0 THEN qM LOAD  STOP  IF  CLOSE #F}NOT  LINE ; MERGE LEN  GO SUB VAL NOT J>ATTR SGN   PAUSE  FLASH  VERIFY  GO SUB ^SQR j CIRCLE USR X[H] CLEAR X OVER ~|ERNDNOT 1AT  ERASE ▝ BRIGHT ATTR /STR$  CIRCLE ZTAB BIN  PLOT  4u NEW <▛h2 VERIFY [E]rAT  AND  NEW Y VERIFY BVAL INT | NEW  [M]l REM `Gd ERASE /▘-ACS  OVER L COPY ] SAVE -2AP CLOSE #t1 TO H&[K]"VAL HC[C] RESTORE <> AND  CAT ▝C BRIGHT  LINE [A][I]-V[D]P STOP > LIST 74 PAUSE INOT HSTR$ R SAVE  LOAD LEN ABS  y<u CLS SGN ▘3LEN [Q] PLOT   DRAW YUSR STR$ CODE ▗FN STR$ ▚[A]s%BTAN <=[A]< STOP L[D] POKE   MERGE  MOVE  FOR >[P]INKEY$>=moV VERIFY PEEK  COPY  CIRCLE [Q] STEP  POKE  OR n6$E|NOT  FOR 7~ CONTINUE  CIRCLE F[M]voo CIRCLE  CIRCLE v][M]/ATTR u5:▗H[H]NOT 8 GO SUB <ABS t▟aNOT ASN CODE ABS 1< OVER {R LIST RNDX CLEAR 07 BORDER <L[N] CONTINUE % DIM  GO TO [C] CLOSE #yB GO TO y REM  RUN  VERIFY /p[N]LEN xINT ▚bAT [L]STR$  COPY ~Ve LPRINT %i6 LIST `<=eACS  SAVE 0▙ma TO xUSR [G] READ AUSR NOT [D]>=5▗n CIRCLE  THEN +INKEY$[H]ATN ▘▙POINT ▛ACS V PAPER  PAPER 1D GO SUB  !Y ERASE  FOR ABS ▞[F] BORDER  COPY D LIST B MOVE  FLASH  ERASE  READ ATN X[[T] LOAD CHR$  LLIST n OUT  SAVE USR  SAVE ▗RNDCHR$ INT /s8>l▜ SAVE  OUT (D COPY ▘0 REM >- INVERSE v POKE ^- THEN RND`[B] FLASH /ACS `>o# <=@ LET <>NPEEK p▚[I]/AT 0 OUT 2|;<=[Q] ERASE e@L8[F]6 INVERSE !▖ CLS Gb PAUSE  CLOSE #4IASN [A]OU7(STR$ "F3BIN ,j SAVE TAB 4WAT  POKE 6[O]AT 35 LOAD  [G]` RANDOMIZE  PRINT USR B/USR ESGN #USR  INVERSE [J]ITAB _ATN [R]wUSR (VAL VAL$ © READ  CLS 84}8 AND oxj CIRCLE CODE  LOAD ▖ NEXT ▚0 VERIFY om CLEAR CTAB ▚ THEN  MOVE VAL  BORDER _ OUT jtLEN RNDUSR VAL ▜<= PAPER ` FORMAT  ERASE  BEEP  LOAD  SAVE  DEF FN COS K#PEEK [L] LOAD z NEW ▚ CAT r▚w RANDOMIZE  RETURN  CLOSE #TAN A[B]0 CLS 6ACS 2h? DRAW @AT  CLS aBIN nSTR$ ▗ CIRCLE PEEK RND[A] LIST @+0]V~`c%u[L]^USR PEEK  LET h GO SUB _ SAVE USR ▞USR RiUSR SIN  CIRCLE [C]iFN [T]>= GO TO UM▚[A]BIN JV▚_ FLASH | BORDER SCREEN$   VERIFY kSTR$ PEEK  SAVE LEN ▝ FORMAT i▖ LPRINT  IF S▗.LN LNOT J.CpINKEY$LTAB  NEW h POKE ▘ FOR A OR L>[P]▝ FOR ▛ CIRCLE /AT 0/ BORDER VAL ABS SCREEN$  OUT ▜8USR  POKE  CAT  FLASH ATN  SAVE USR SQR  CAT  SAVE [Q]SQR  CAT  SAVE !SQR  CAT  SAVE #SQR  CAT  SAVE ASQR  CAT  SAVE 8@SQR  CAT  SAVE `VAL  CAT  SAVE USR  PRINT  SAVE wc FORMAT x INVERSE  SAVE Ci0  CLS  DRAW  SAVE ABS @yX PRINT  FORMAT 5VAL$  IF  SAVE ATTR ▗uFN mABS  FOR  SAVE hCODE [B]WACS [R]>=8NOT  GO SUB 0xA PLOT   AND  DATA ^ DIM  RANDOMIZE  GO SUB u DATA  LPRINT _XX^P OUT j`>/ TO LEN PEEK  SAVE cy@cy"?C`STR$  THEN  CONTINUE ] CONTINUE  INVERSE [T] MOVE  CLOSE #`z©SGN TAN ?= POKE ©CHR$  BORDER  OPEN #ATN <=[T]▜▜q▜USR O SAVE  LPRINT SGN f [E]▚ RUN BIN 0 POKE SGN %▖+ LIST ▝yNOT 0>W PAUSE  LIST ^[L] RESTORE h DRAW @, COPY  DATA R▚7,SGN  READ  STOP ;[N]pLEN @7AT @ STOP h AND o3 RANDOMIZE  FORMAT RNDSGN  SAVE [N]gOs.>▖ NOT 6BINT |8 OUT NOT  NEXT / LIST G THEN  LPRINT @ VERIFY  THEN IN BIN  PAUSE  LET x LLIST u RANDOMIZE  OUT ?POINT >VAL k INK # LET j BEEP F COPY ! FORMAT  INPUT  ERASE s&STR$ ©ATTR pO[B]p▘ LIST ▞[I]b RANDOMIZE  LIST VNBIN Ix/USR LEN M LPRINT  CLOSE #A LIST [A]/k▖ OVER  CLOSE #USR l ERASE ATN ` OUT  CONTINUE ONOT ▜#ePEEK #USR CODE s@STR$ Jw,CODE [J]CHR$  VERIFY % CLEAR B NEXT  LET ! GO TO b"W GO SUB CHR$ uSGN ] LPRINT  ERASE [H]m[B])` STEP PI CIRCLE  BEEP < NEW `ACS [J]< AND o CIRCLE  INVERSE WLalATTR  CLOSE ##6 PRINT FTAN wD0 LINE ;P( INPUT  VERIFY [F]©FN @FABS VAL  OUT STR$ F>; RUN  CLOSE #H PLOT   NEW 1[A]LN NOT CODE (yw, LET v)?<SGN VAL$  LET  PLOT  " DEF FN 3[L]STR$  IF [G] SAVE wl{[K]GSCREEN$ o OR FN  DRAW XAT  VERIFY ZCWU[F]LEN EXP jSCREEN$  BEEP  NEXT =SQR <=k RESTORE 07▜z3 CLEAR  COPY  FORMAT L[P][G] INK ~X RETURN y# RUN ,?X_^@ OVER  BEEP  POKE . OUT SQR SGN  BEEP  VERIFY  MERGE [M]`_ OR 8b[ DRAW 8pZZCOS  RUN D@ LIST [D]^b RETURN pASN [L] OVER  LLIST P VERIFY  OUT SQR pPOINT }8 MERGE POINT  RANDOMIZE  STEP f RUN  GO TO ATTR 7ATN CODE  OVER  FORMAT [S] RUN  COPY  OVER  LPRINT %{lSTR$ ▚=▚[P] RUN  RANDOMIZE  COPY <` INVERSE f IF [M]Bj INPUT  GO SUB *<> NEXT  STEP r[O]3LN ~[N] BRIGHT TAB SQR  CONTINUE  INPUT  STOP 9 RUN l8<= LINE  COPY  SAVE 0▖ MERGE  RANDOMIZE VAL ` VERIFY [N][I] [M]7[L] DATA  CIRCLE  PLOT  BIN jd GO TO  GO SUB USR `:7AT AT SQR  CLEAR u8 FORMAT +▗ CIRCLE _▟Dp OVER @ BORDER L ERASE @{@ DATA ▘&IN  m DRAW  FLASH  STOP  LLIST w LOAD ASN 5s VERIFY u{ NEW [M]▜ GO SUB  OUT pq▜a}u|[O]=▗ IF  GO SUB  CONTINUE  GO SUB I▚0:0  DIM !`XABS ▗n READ TAN ?D COPY ATN rWAT FN  LPRINT <jc NEXT ▖<z OUT W[A]h7[M]g[G]VAL PEEK D STOP  NEXT LN a COPY ut$SGN ▘ RESTORE z▝0 RESTORE [F]USR [I] GO SUB  CIRCLE  COPY  STEP ABS $,bySCREEN$  GO TO + INPUT CHR$ [N] FLASH 0_X1n GO SUB  X[Q]`[N][L]▛ OUT TAB [z7*ASN  OUT [C]S▙▗PI PRINT >= POKE  FOR VAL < LIST b RUN  IF INKEY$[F]NOT ▜ VERIFY  INVERSE [C] INPUT  THEN  FOR  READ  - OUT  CAT  OUT  FORMAT H▛ RESTORE ▟▗ LLIST S<= BORDER Ww[J] >▖ATN <SCODE {LEN  CAT `d^7' SAVE p[A] OVER  BEEP 3 DRAW  CIRCLE NOT  STEP  [H] OVER 8[G]INT ZXPI[G]; OVER  CIRCLE 0USR  DATA H THEN BIN ▗ THEN CHR$ yy OVER k PAPER TAN / BRIGHT SGN  POKE FN VAL  TO  CAT  INVERSE  NEW  EXP 6LN  LINE ->=[A]FN  FOR  IF  LIST ySQR mABS L LIST { LPRINT +( THEN  FLASH  CLEAR  VERIFY  PAPER l COPY USR ^<=SQR  CLS `VAL$ Ww/[Q]SCREEN$ ((^ LOAD X LN n, LPRINT  COPY RC=l CLS  REM  RUN [zATN k OVER  INVERSE 4▜[F]/|^ BRIGHT  THEN  STOP ▘[H]<<XSTR$ M/?p© RETURN  SAVE  LPRINT [A]^Z▖,( DRAW ^ LIST ▜n[I]h~@!0@ BORDER  PRINT  LLIST  NEW ▜ INVERSE '* GO TO  OVER  AND ▞}NOT  PLOT  j VERIFY KN BRIGHT { LLIST  DATA nSTR$ }x FOR bXa(. VERIFY m[Q]ATN  SAVE FN u READ USR  LET  NEW  LLIST VAL  RESTORE  NEXT P INVERSE  READ ATN CHR$ SCREEN$  CONTINUE SGN cuU>=SGN <>MATTR ▖ BRIGHT  PLOT  ▞ IF  STEP . CONTINUE ATN  PRINT 8 CAT SQR l^▙`]rm CONTINUE @ PRINT  LLIST  OUT  LOAD ▚ VERIFY © DATA <>#{+  BORDER VAL  CLEAR INT LN  BORDER  DEF FN CHR$ TAB VAL  RETURN EXP TAN H.>LN  RUN  SAVE USR  OPEN #[I] OVER  BRIGHT o OVER @ READ  NEXT F LOAD ▟ CAT ▛r[F][B][Q] PLOT  C▜g5[D][F]POINT VAL$ [H][J]AT g[N][P][R] SAVE  LET [T]VAL  CLEAR 6v▝5[L] AND {1>=BIN USR SGN  INK  BEEP  BRIGHT RNDINKEY$ NEW +IN =[R]VAL 1~[F]g`BIN V RUN  FOR py_ OUT R SAVE m[U]@ INVERSE STR$ [Q]X[P]USR  SAVE  LIST ▜AT K2 RETURN X IF  CLS INT U?<= READ  MERGE  BEEP  RUN  LOAD RND▟ DATA W?©O▛▖ OVER W/ VERIFY  LINE  OR ▛PEEK SIN  OR  THEN INKEY$[K] LET  STOP ▙ CIRCLE x▘vQPEEK USR ▟~eKH<= CAT 8P[G]© LET IN LOADING  READ ▝ME. GO TO [L]CHAR AND [I]E OPEN #[J] DRAW TJ COPY U LLIST T OUT yNDOtCHR$ UEGLN  FORMAT PTI▞ RUN SL$h REM YRF`EMm20 STEP 1. DATA DF[R] TO KY/ NEW  COPY 2S[I] LOAD C BRIGHT  DEF FN <R- FLASH ©[L]3M INK  DATA 4o PAPER  DEF FN MPS[O]2TCODE  NEXT  INVERSE  COPY  FOR y BRIGHT URE? NEXT  STEP (Y/ DRAW ) OUT ©uf CIRCLE UPr[L] POKE  TO `WR}NL REM kT REM [O]RIGH[R]j IF tSGN kFSE PAPER CSCREEN$ c/[N]ABO IF T*[N] CLEAR  REM LPI^K, TO [P](1/2){a RETURN J CAT [E] GO TO g{ POKE  COPY  RETURN 5 COPY ▞CODE 6 V[R] TO  LPRINT  COPY  LINE ▚ COPY h` LINE mh COPY  RETURN ▗(O-SCREEN$  COPY ~ COPY SU SAVE =BASV NEXT PU7:TAB  BORDER ROIP] POKE E STOP  BEEP ^R BRIGHT I COPY  COPY R_ BORDER  COPY  [H]NM[T] COPY  COPY  OR , OPEN # COPY CE LIST [K]UGS#COS © COPY  RUN _& OPEN # RETURN ~LEN S LLIST STR$  COPY  TO 4©OG|=?( LIST /) CLEAR fCHR$  COPY GI|:CODE gX;IZ LET INKEY$QUDD IF 2/#) NEW  LET #ISP PRINT y TO ; LOAD USR  COPY PI LOAD  RETURN  CAT ;▜CODE  RETURN  RETURN T▛Lq CAT [I]. RUN DEXP g RETURN POINT ' PRINT AT 3? COPY [O]K#$ PAUSE SGN O[ABS -- AND gim STOP sv[S]S: RUN oETT MERGE  LET CODE LSe!| LET Sd BORDER ~^ CLOSE #P BORDER <=ABS  GO SUB Z1LEN &ATN n STOP  CIRCLE h SAVE 4s BEEP #{cINKEY$ STEP ,x CLEAR Q NEW BY<=ATTR ▙VAL |SCREEN$ ~ft/PKJ!&lan SAVE / IF bdcf▖[N]M RETURN  STEP lcst LIST {b RUN cdeSTR$ IN Fzc=[P]IN b SAVE bs[G]{ge SAVE IN FN p~oINKEY$ PLOT  INKEY$ COPY VFN s}l|▟t_6 PRINT vx_0l<= THEN ~d[G]<=cmATTR [P] COPY  VERIFY djm CLEAR  RETURN yPOINT [H]lbLN }SIN  RUN ABS r> RETURN ao` REM g CLEAR e VERIFY cn▘z NEXT  POKE [E]▞n RANDOMIZE VPIs1 ERASE [D]COS mvWlIN . ERASE _SGN b[G] TO ?ABS nwf INK [H]+[E]o THEN [N] RUN m= OUT " CLOSE #p STOP [Q] REM ![B]6 BORDER ;Wl{|zf CLEAR ABS bfw CLS eUABS  AND ©z>IN o[D]PEEK VAL$ V[G]a6V OPEN #ABS  GO SUB y PRINT es RETURN  IF LEN  CLS fABS g OPEN #CODE  OUT  PAUSE  POKE $kf PAPER PEEK /xea[K][H]>K RUN PIj RETURN em.Caa}/~l[T] TO  READ >=r[U][P] COPY 7m RESTORE 3 STOP c[S] OPEN # STOP [B]X GO TO 6SQR fVo[A][w▚MI099di<0SQR u; MOVE  MOVE d OUT ^~ FOR A>=g*INKEY$FN  NEXT LINKEY$ OUT  CLOSE #s/ AND  CIRCLE  INK  OR d LIST tpr[C]x[R]?c BRIGHT  ERASE  CLOSE # READ SQR  TO l^FN noPIPI DEF FN eNOT IN fRz DIM IPI▙EXP  MOVE  PAUSE e/<>*cg PAUSE  RANDOMIZE tf>?ABS CODE [K] DIM k RETURN VAL$  TO  COPY w INPUT : LET M NEW  READ sXATTR i MOVE chm COPY _h PLOT  ABS ▘)[P]CHR$ EXP BIN [S]CHR$  LOAD K( REM ATTR *[H]PEEK okO~9p/s4 RETURN yu^BIN  INVERSE CHR$ w OPEN #Ct;[E] ERASE TAB s9 MOVE g&}▖npz STEP x▗Z.z7 COPY  NEW 8▜ysoPEEK [I]f6HNOT o VERIFY S STEP 4d[J]
  27775lb RESTORE CHR$ FN CODE % FOR  LET o[H][N]D FLASH  ERASE ~of- READ  VERIFY t:[J]e BEEP  LPRINT da OUT  PLOT  u1[U]ATTR <=[U]vAT Dsa MOVE -_5t}^no COPY BIN onI/r FLASH [C]Z PAUSE  OR  STOP r FOR  CLS  OPEN #INKEY$ LOAD RND.%[Q] CLS [G] STEP W,m CAT  BORDER [I]tuPEEK lw[L]vIN BIN  CLS dbe[N],RNDc FOR SGN 7r ERASE SQR  DRAW  GO SUB  CLS  INK r FLASH  GO TO y▘i CLEAR v CONTINUE  CLEAR STR$ qemrpnRNDi BRIGHT c OR w{[T]} GO SUB PEEK W DATA os PAUSE Em DATA b[U]l FLASH M1TAN [F]3 RESTORE }yRja BEEP jMnAT oTAB } MERGE  AND  LPRINT  DEF FN wv[A]<=pRND1oPOINT [TAB ▖K7= LIST  CIRCLE 1ir7ACS ATTR LEN [Q]~[D][L]m/[B]_1 STEP ]m▗ FOR [R][G][D] STEP RND8R THEN 1 CAT K RANDOMIZE HTAB <>1 MERGE  LOAD g[T][H]) TO SGN ABS RND{ STEP 1 VERIFY q MERGE  FOR  NEXT ? NEXT CODE l(/[O]AT  OUT #SGN  INVERSE  RUN TAB xl▜lSGN  ERASE  SAVE 21 RUN [Q][O]`>oe CAT © INPUT [D]fCOS ©xSIN W RANDOMIZE  NEXT  LPRINT Xig TO [S]FN + AND [M]EXP g▟ CONTINUE S▜/[G]IN  FOR  GO SUB j CLS STR$ ACS  LPRINT yi-T1 NEW p~* SAVE /▝QIaCHR$ [P]/▛)o LPRINT nd▜w`u OUT  THEN  ^N SAVE $ CLEAR l l[O]▜n©IN  DEF FN ? OUT  PAUSE sbtACS [P]$ GO TO SCREEN$ w w3 POKE  CLEAR IN SGN U[K]▞ STEP ^ REM ;h[J] DATA  LET Wa STOP  RESTORE yvpI STEP pD PLOT  [D]1tC=SIN  OVER e[J]g"ai OVER fUSR rSGN oy LIST 6 MOVE joz|mj INK  CLS EXP ▟4<=<>"[M]3 CLOSE # OR [N]MSIN [M]g1DSCREEN$  DRAW [B]A+5 DATA [L] SAVE ASN icO REM INKEY$ OUT SCREEN$ -ABS j©4a)I[P]VAL [F]a{ RANDOMIZE [N][M]j[O]_f PRINT  INVERSE ©CODE ~ BEEP RNDINKEY$HIN  BEEP VAL$ _ BEEP RND VERIFY SQR CHR$ ▛ DIM  VERIFY ▘[O]<!spCODE b> CLOSE #4RND MERGE USQR & POKE CODE l STEP  CLS Ld OVER )# DIM >?q^LEN uag[C] IF  NEW [O] BORDER 3j?PEEK zPEEK oPEEK }o PRINT [N]+] COPY x[T]b REM RND0NOT { MOVE O]PEEK ) NEXT 5laG1txBIN  BORDER  DEF FN _SGN S▛[L] OVER  ABS  LOAD  CLS  RETURN  IF  LINE I`▖v [O]©SQR xLEN NOT LN ACS  STEP ATN  DRAW 5:,w RETURN >= COPY ▜t RETURN  AND LN _ DEF FN NOT [D]W STEP NOT ©2 BORDER ACS &SQR  STEP ;wy>d>= COPY  LET [C]LN <>.6, MERGE Tv LPRINT ]- GO SUB VAL  MOVE STR$ G-CODE wCOS [P]/ PLOT  2I CLEAR 4NOT  OR OVAL$  RETURN G.w,sp.qp$ OR >= LINE -(ABS b0<> PRINT :▘LN 2 OR EXP  LET bftACS ▟Hi▘o DEF FN  CLOSE #[F]gPEEK  GO SUB [Q] FOR wW-^CODE  RESTORE ACS COS INKEY$_LN 6: BRIGHT ATN >=SGN &PEEK NOT ATN :{V STEP ▘ATN [R] RANDOMIZE o DRAW )>2aNOT ATN ( BRIGHT !POINT h5T:p{$IN cATN  SAVE [U] LTAB 1 NEW >= OVER INT  RETURN TINT ABS 2[I]d>=TAN  CLOSE # FOR  LINE TAN 1ABS l.AT  RETURN ~ CLEAR  COPY  GO SUB y#Y OVER IN J` BRIGHT [E]E PRINT 3PI(`STR$  NEW TAB  SAVE hc85xW LET [C]. PRINT [M]> OUT [L] LET >p VERIFY /d ERASE <=[E] CLS PI>=>LN  INPUT  RANDOMIZE  TO !PEEK ~guGNOT  INK T= LINE 2y INPUT VBIN F1SCOS <IN  COPY ) IF INT H INPUT ' CONTINUE  LINE T=[U]:CODE  CIRCLE )<AT />= FOR 0h`[F] RESTORE PEEK  OVER IN >[E]k[J]IN >[T]*2[F]3EXP >j[O]l RESTORE W CLOSE #+<>f^VAL$  CLOSE # ERASE uFN BIN `RNDC[G]▘!d|<=^,V PAPER [Q]/ RETURN j?,7FN ~ DATA [D]_ CLOSE # RETURN  < LIST  COPY  NEW 4PI STEP IN  PAUSE [U] BEEP  LPRINT +2Y RANDOMIZE ▜▖USR  RETURN ▛[G] DEF FN  IF j CIRCLE nc STEP T DATA  JINKEY$ THEN ~[D]H CIRCLE  BEEP COS SIN USR aKrTAN 5(2IN #EXP 1CHR$ TAB EgSTR$ INKEY$ LET Q[P] LLIST ▗ RETURN I FOR  THEN n>= GO SUB _ NEW O INVERSE h<>:SQR ▝w_[L]Kr▟ FORMAT 4INKEY$5▖ LLIST  DATA  TO EXP ▛ATN  IF  INVERSE  DRAW VAL$ s,r)) REM  INVERSE  IF l> RESTORE  CLOSE #PIACS  TO i- THEN ? FOR ![E] NEW O6PEEK INT <=y NEW  PAPER ?4INT [Q] AND  RETURN  LPRINT 0g$ FORMAT gUSR [J]▖VAL OL[D]$aaUSR ay NEW NOT N#F GO SUB C;_g<=k FLASH [K] VERIFY  OUT SCREEN$ w:USR [M]X OR  FORMAT g DATA  FOR 9▟▞SCREEN$  DRAW PI*VAT  OR  INK VAL  NEXT  OUT VAL xO DEF FN NOT [B]G PRINT  OR ` CLEAR !, INK ▚hSTR$  LET ASN G7[U]y VERIFY  THEN ▞KPEEK USR [T] DEF FN INKEY$▙>=F76▙<>Q) LET nb LINE  NEW  FLASH O STEP  DATA LEN  CLEAR ▚"INT POINT USR  PLOT  $[G]INKEY$ FOR ACS  CLOSE #<>VAL 6[A]CHR$ ~[H] RUN 6 STEP + CONTINUE dO[M] DEF FN SGN [O]USR  LPRINT  OPEN # IF INT Q`USR ABS USR  OUT F NEXT (VAL [J] COPY  z OVER  SAVE TAN [G]<> STEP [R]IN ~/<[K]O[D]ABS INKEY$ MERGE  RESTORE  OR  FOR  PRINT 6 RETURN (/[G]4{~w>=49 FOR  INVERSE ▜▚[F]oSTR$ J CONTINUE e1BIN LEN !T] NEXT  BORDER 7 GO SUB [Q] NEXT %#STR$  LLIST  MOVE | LLIST [ PAUSE ABS [H] OVER  MOVE  INVERSE U PRINT $x CAT [S] [Q]COS  GO TO [L],ACS [H]RNDg[B] OPEN #) CIRCLE ACS  NEW <> CONTINUE  PAUSE ABS  LET c. OUT O NEXT 9(fPEEK w▚FJATN  FLASH  GO SUB ACS BIN  FOR O<>VAL$ mw~ATN >= OPEN #▚w PAPER f=F!5INKEY$ POKE ▚0 DIM CODE ATN  PAUSE  PAPER IN [R]8c AND ; OR ▜ NEW 5 DEF FN CHR$ [K]SQR h AND  OVER gW LLIST  ERASE V>= MERGE 'INT [G]N STOP wF FOR ns MOVE PId BORDER ) RANDOMIZE &[L] OVER 7IN [R]dSTR$ ATTR LEN +4-e=6E5; RETURN USR [R]AT gcjt[A] PRINT ▖▗▟ NEW  STEP ATN [H] CLS [M]/7EXP  BRIGHT  DEF FN USR AT gNOT ▞[O] PRINT |vIN  OPEN #R.:_o OR  OUT SQR [F]y BORDER [F]}7 PRINT STR$ [K] STEP X[P]cNOT  RESTORE  MERGE [K]?sACS  MOVE  LLIST NOT AT  NEW `▜USR to▜ BORDER *BIN 0( STEP  PAUSE V[S]~}w DATA  DEF FN [O][A]!6j,CHR$ POINT NOT COS [M]: READ uZGCODE [A]NOT ,G FLASH SGN ~ THEN G RETURN 5] REM  BEEP Sm▗PI w}▘<> PRINT  MERGE ▜[G] LET  NEW  LIST o RANDOMIZE = SAVE u%<[C] PLOT  / LOAD [Q] LET  PAPER  LET  FOR * INVERSE OB~ FOR TAB 1[L] OVER  PLOT  c LIST  FORMAT b LET > PRINT F STOP {F MOVE o MERGE INKEY$[I]>=$>=Sx▟j DEF FN ' OVER TAN fK&[N]) VERIFY INT  LET  BRIGHT NNOT /c_▞▙©WCOS (p-q, READ <>PYSTR$ :bNOT  NEW VAL$ WIN [J] OPEN #f@ATN h DATA OPOINT [L] REM STR$ SQR m INPUT VAL$  FLASH m[O]ACS oV  OUT  TO N BEEP &5 IF ▗seCHR$ %~ !Kj$K CLS | NEW SGN  FOR ▙F2 SAVE  COPY [G] STEP  DIM ~%N THEN POINT <> DEF FN ~[J] MERGE ASN 2 RETURN ▙P[M]}[R]*8ABS PEEK  CIRCLE SQR ^>= SAVE TAN v COPY ,5 S▚ POKE -EXP INKEY$ACS BIN +v[J]ASN  FORMAT  LINE F©LN T+ INPUT SCREEN$ D[J] SAVE [G]SCREEN$ R[O]5EXP ▚ CONTINUE 5USR | OUT [D]@▚ RETURN  FORMAT ▛[K]▝>=K COPY VAL C SAVE  FOR lCODE SQR  CLEAR V▚ABS M_[T]7F SAVE [G] LLIST 7xSTR$  RETURN n[L] BRIGHT  NEW g<>| AND =ATTR K READ  LET [L]g7 COPY ATN v[T]s3 RUN PEEK  CAT z▖Uzv& SAVE  DEF FN RND©Y CAT /: CAT  INPUT  CLS  OUT  FOR YBIN ATTR [D]|g=gS POKE AT @. CAT n RETURN  LIST kW STOP  MERGE  POKE PEEK X=COS POINT  PRINT ,[H]▙▚COS [O]©xz VERIFY qke_Y CAT ZU= FOR PKGAT gC?<[O] PRINT 95VVAL$ 20 BRIGHT * CAT z(&*V$"STR$ g OR ▖ PRINT AT COS [O][I] BEEP  INPUT L STOP  ERASE z[L]d>]mCODE [E]oV PAUSE K/ DRAW J[O] GO SUB ▙ VERIFY COS [E][J][L][R] CAT zFN VAL$ 9FSIN TAN ▘ INPUT p3[I]ONOT  POKE [J] GO TO POINT [M]iCOS ` PRINT  GO TO RBIN LF▟[I][P] LIST NOT @FN b:4SCREEN$ YdX^fLEN v OR SCREEN$ jp▖ATTR [K]|▘j[K]▙[E]Y|[Q]mIN  BORDER | OR ~ AND 0▝ TO <5 CAT NOT 7ATTR  GO TO ^<= OR ACS CODE >= RANDOMIZE VAL$ {LEN  DATA  READ INKEY$#POINT N<>[D]+r LINE Y© MOVE J STEP  LIST  LINE zX FORMAT ▚BIN e MOVE CHR$ ▖] ERASE VAL [N]AT q OPEN #CHR$  MOVE g[T] CLOSE # MOVE SCREEN$ sLEN  MOVE SCREEN$ kABS 5POINT c[A] BRIGHT w▛[U]& BRIGHT s[P] BRIGHT 8 MERGE iPEEK 8 MERGE mSTR$ <>i RUN  OPEN #8 MERGE _ RETURN P MERGE c[K] CLOSE #_ LINE U$[R]Y-PIUFPIK[A] IF ' OUT  DATA ▚qs▖j▙SQR TAB #G?'F?ATN  REM g*FN CODE -d▜ CLOSE #NOT EXP [I] " BEEP #SGN <▗ OUT  LLIST tSQR gb▖[H] IF j CLOSE #VAL >=; CAT kO OPEN #6$kVAL [P] PLOT  3INKEY${ CAT ▗Z[/[J]} OPEN #>[L] TO ▚SIN ~[`48J[P]INT  DEF FN ▞[T] FLASH  REM Z THEN FN 7?[T][I][C]ASN <=E[T]*[H] AND  CLS "[L] MERGE AT ?%>='qJPEEK [M]"[D]USR L<> THEN [J]<> CAT   MOVE PI MERGE ) STEP  INPUT {,▚SIN $ STEP  STEP  LINE ▞ INPUT  ERASE >=VAL =s IF 4 ©8W[P]5[P]T1 REM S?W FOR <[F] FORMAT [E]K3 BRIGHT TATTR  FORMAT : MERGE RND35S FORMAT PEEK  OUT ME CLEAR ▟ DATA ~[S]ATTR 2 INPUT [L]  OUT ~[O] VERIFY PEEK N DRAW VAL$  NEXT s OUT  DIM  DATA &▘ NEXT  CLEAR _ RESTORE GCOS [P] DATA  INPUT FxAT R`/cUSR  LOAD o INVERSE *FN  RUN  LOAD LN ASQR 3SIN 1 IF  PAPER U[S]6R%[M]▜SCREEN$  LINE ▞c BRIGHT j OVER ,. OUT  INPUT  INPUT ATTR  CLOSE # CLS G[D]IN @t[C]v1SQR ? STEP PI( OUT )*i, INK  TO =@ PAUSE %ACS NOT &' CLOSE #LN d}INKEY$[T] CLOSE ##*M SAVE (▗ READ /+AT 1ASN LN USR  CLOSE #BIN POINT [J] STEP ACS LN [I] CLS .]}TAN 6:= DIM  REM 48;1 LIST 2 PLOT   DIM  CLS  INPUT  OUT zPINT J AND <>ABS  CONTINUE ▙[P]/VAL$ HjHU[G] INVERSE  PRINT USR [J]IUSR  AND } LIST COS 5lf8 BRIGHT cc BRIGHT  NEW 3▖ATTR ABS NSLN T0vE3CODE ~LPOINT  LET O<.[U] CLEAR )& PRINT  OPEN #[C]21& GO SUB 3 RANDOMIZE , FLASH  OPEN #'ATN ( POKE 0'( THEN  FORMAT * DATA [L]-^ STEP  INPUT 0 BRIGHT rNLN ▗[E] PRINT * INK  CLEAR INKEY$CODE >=[G]W DATA [S]Q RANDOMIZE ( THEN  BRIGHT 1CODE  OUT c© LET [S][C]O FORMAT  CLS  RANDOMIZE SCREEN$ CODE ATN [I]PEEK  CLS [J]! DRAW 0>=NOT WIN [F]©s]▞ POKE {^ COPY  MERGE  DATA | DIM VAL J TO COS  DEF FN  READ  CAT [S] COPY  LOAD +▘ CIRCLE .VAL CODE [P]>=x RANDOMIZE >= RANDOMIZE ACS q MOVE ;[O][A] OVER  PLOT   INPUT  OVER [K][J] IF [C][ CLOSE # STOP  LLIST {< DATA  DIM IN  PAUSE OPEEK "^[K] BRIGHT  BORDER W-ABS p.ASN COS  INK ▚[_}e[E]m<>6 GO SUB [F] POKE 6 THEN P CAT  FORMAT [J][J] VERIFY  OVER STR$ 4#C GO TO 3idU:=%SIN 6VAL  RESTORE IN ATTR ▝ACS  DRAW Z FLASH ^ELAT - RESTORE / FORMAT S GO SUB [D]?iU RESTORE ▘ PAUSE  NEW #? RETURN  STEP <WCODE  INVERSE N[P]POINT >=$ LET  STOP 2]`>=_PI})"ASN [F]}*=[P]i FOR [U]IN E%UWPEEK  POKE [K] LINE PEEK xASN = INK ,VAL  VERIFY AT CODE  FORMAT VAT zSQR r CLEAR #8v PAUSE V[G]:b PRINT SIN  NEXT /z' RUN  PRINT [D] PAPER +_|% LINE t THEN ATN AT  SAVE CODE VAL$ ▗[H][B][J]NOT ▝l|~ LET eIN  NEXT ` AND ;EXP  TO ATN  AND - FLASH SIN ▟[B]Y LOAD |YVAL ATN  MOVE [H][G] TO © DRAW  BEEP  RUN zATN USR  DRAW  GO TO  INVERSE  CIRCLE "^ READ SQR V>=_<> LOAD TAN ▘z7 RUN  LPRINT ©bABS ABS  RETURN  RESTORE ,)%▟?'my DIM CODE  STOP LN M AND /ABS  LINE + PLOT   AND  MOVE  SAVE rATTR PEEK [S]AT ▖f FORMAT FN K>=>=7▞ THEN  THEN KEXP |A__ AND [G] VERIFY ;SGN  STOP  POKE  MOVE  CAT  CIRCLE [G]SGN ^ INK yP DRAW 8l STOP  LET  TO  ERASE USR USR ABS SGN DXpy[@- RETURN @ MERGE [A]@ATTR [M]PEEK @^TAN [Q] DATA  SAVE [P]P DATA ▞USR  CLOSE #LEN [E]VAL [I]A}N/LEN PEEK  IF  FLASH AT IN  CLEAR !0[G]6D[TAB J>| RESTORE  LLIST  BORDER [D][H][H]/  TO [H]USR ▝▘ POKE ko▗▟ RESTORE  STEP  INPUT ▟7 REM >=[L]ATTR ATN  PLOT  [P]k REM - PLOT   OUT ATTR 3W;CODE  CIRCLE  INPUT BIN  BRIGHT y NEXT [O] DEF FN  DATA  PAPER <>[N] PAPER  LPRINT  PRINT y RESTORE FRND RUN K RETURN  GO SUB q} PAPER  DIM  OVER  BRIGHT  OUT  SAVE  VERIFY  LIST [K] CIRCLE 8VAL ACODE 3ASN [F]6l[S]SGN tD*/j[G]Gs: OVER [O]]/ BRIGHT + OVER O BRIGHT  CLEAR SGN  PRINT  RETURN COS [P]PEEK  PLOT   VERIFY |© FOR  IF  CLEAR x OPEN #COS  MOVE 9PI_[B] NEXT  INVERSE  LET [U] BORDER  NEXT r}POINT  RETURN [H]C( BEEP 7_ ERASE  OUT lASN  ERASE i5©_& PRINT QySTR$ Rsg RUN /[L] FOR (USR 5[D]USR  PRINT mJ[I][K]BIN cR<> MOVE  TO  DRAW >=[B]x PAPER ▛[N] SAVE [S]riI[M]5[D]ATTR CWooTxW PLOT  SCREEN$  BRIGHT [L]TAN [R] FLASH  PRINT ▖6%INKEY$+ RETURN +- PLOT  d] IF RNDnC INK  OVER [C]- LLIST ▜~ CLOSE # LLIST 7u CONTINUE fs▛[L]z`s DRAW  INK ] CLEAR < OUT  PLOT  C BORDER  CAT CODE C.o=VAL  CLEAR Q IF  LET # CAT IN PEEK AT  LLIST j/ TO ABS LN INT j RANDOMIZE  BEEP USR  BORDER INT  DRAW [L] VERIFY  MERGE yB.I DRAW !WSIN ABS yY REM  VERIFY $ FLASH ▜~ CONTINUE  GO TO  DRAW [P]b MOVE [H] STOP PI[Q] NEW [N]fVAL$ Z AND l NEW q DEF FN  GO TO VAL$ [R] ERASE ASN [I]VAL$ R TO  CIRCLE x CIRCLE +7520[O] PAUSE /NOT ?( PLOT   RETURN HATN ABS ,STR$  FOR SGN ▞▚[T]▖[R] REM PI MERGE  CLOSE #^ PAUSE 4[N]1 DEF FN >= LINE PSQR [P]▞PEEK ACS  LOAD WCODE ABS ▖ CLOSE #[M][K][I] RUN 4 MERGE  ERASE USR ▜ PAPER / STOP ▗CODE [B] MOVE  OVER  MOVE SIN [I]ZB+ MOVE  FOR INT  DEF FN 5[D]e PAPER CODE ~ TO |SQR CODE  LET [D]▖ CLOSE #[H]▗ATTR  OVER ▞CODE PI BRIGHT [F]▗ OUT JSGN  NEXT ▘ CLEAR  RETURN POINT _▛ LPRINT ▙ DATA X[J]©#[J] CLOSE # RESTORE W▛UF DATA ASN  CLEAR AT >2 INPUT  FLASH  INVERSE !jPOINT CODE  STEP  BRIGHT  VERIFY > RUN  FLASH  RETURN / NEW 88 CLS  LET > COPY 72 CONTINUE p STEP  CIRCLE ! LOAD  FLASH f LIST ▗ PRINT (6 COPY  GO SUB VAL <> LET  GO TO CHR$  OPEN #[H]ATTR : FOR [I][J] TO lIN |FN  NEW [L][P] LOAD O RETURN  LINE ASN © AT  CAT NOT /S INVERSE  PAUSE CODE [C]CHR$ r[U]ceSGN  STEP PIFN  BEEP  IF [H][K];' IF  LINE *[K]SCREEN$ SGN [H]SIN d[Q] LET  SAVE iTAB ▙CODE j[J][C]:w CLEAR [K] >[E] OR o[E][E]o. MERGE INKEY$? CLS  OR [E]&9[E]VSTR$ 8[J] DEF FN  INVERSE  STOP  RESTORE LavASN } OVER ASN iFN POINT OE PRINT Vh OR  PAUSE  NEXT  RUN  VERIFY [O] INVERSE 2[LSQR POINT  BEEP ▗([T] DEF FN ABS SGN  THEN ' DIM 7! FLASH ACS wNOT  DEF FN  PLOT   CLEAR b IF  LIST  STEP  LLIST  BEEP PI LINE  LET  CLOSE #NOT J MERGE [O]▝ INK  FORMAT X MERGE CHR$ ACS  PRINT _x DATA P[P]t3▜▜ THEN GFg9O BORDER ,W_57 BORDER F PRINT NOT ▟@3[L]zc LET m PRINT =[H] MOVE  FORMAT o|m NEXT g~PI  OVER wCODE 2~NOT   SAVE  LET <> LET P RUN ONe;EXP  CIRCLE o"[S]FN h CAT SGN ASN FN :CHR$  CAT POINT >=PEEK 2A<PI FLASH POINT  LINE 76 THEN <> READ  REM SCREEN$ ▗ BEEP NOT  STEP U[D] INK  COPY V MOVE V THEN  INVERSE ~
  35279#[ NEW ▖! PAPER  STEP PI@G MERGE t▗g LET [I] PAUSE : OVER <= BEEP INKEY$"▚ DEF FN  RETURN & NEXT (OPI>= FORMAT  RUN &) RETURN ©Av GO SUB [ LPRINT s▗INKEY$# STEP [J] LOAD 2 POKE +  FOR  VERIFY [K] CAT VAL$  OVER  CLS PI>= RUN fM STEP NOT SNOT %SCREEN$ [H]M# LOAD ▖<[N]yvU▞$| NEW USR } AND  o CIRCLE | VERIFY g<>z READ {Yd_zHWh READ }[N] DATA >= h3 CLS P RESTORE &SCREEN$ USR  OPEN #[E]<>[SCREEN$  CAT  POKE  READ  RUN  PRINT  PRINT  RANDOMIZE #PI_LN <> OR  OR wK CAT  BORDER WOBIN  DATA  BRIGHT STR$  BEEP O©ATTR x RETURN ( OPEN # OVER  OPEN #▞ATTR  OR  LINE n LPRINT f LOAD  STOP h RESTORE  COPY  BRIGHT  LLIST  CIRCLE [A] PAPER z RETURN (0IN  SAVE  PRINT j_PI NEXT z( NEW c[ GO TO  OVER SIN  OR  CLEAR w# DIM  AND [I] FORMAT STR$ INT pqSQR ▘ INPUT ] DIM  TO  COPY ~#[E]>=INKEY$( RETURN ASN NOT W CIRCLE <>6[D]xk& MERGE CODE N LIST  DRAW Y#  IF  RETURN  COPY  COPY rBIN  RANDOMIZE .<>_ RUN l BORDER _ TO  PAPER [F] DATA  NEW N ERASE  POKE N[O] DATA  RANDOMIZE M FOR NOT [O] OR PIB ERASE ©DC, CLS v OR  MERGE  RESTORE  SAVE  CLEAR q LLIST  STEP  BEEP  MOVE [P][G]p GO SUB  COPY SIN  OUT  THEN ~ PAPER  RESTORE  VERIFY A/W PAPER  FLASH USR  OUT  PAUSE  LLIST  INPUT  COPY USR INKEY$ PRINT  LLIST ▙ NEXT  BORDER [D]_8,IN `USR  LPRINT ~ SAVE @|,
  26684 RETURN 0STR$  LET  READ  LIST  COPY  CLEAR  BORDER  LIST  RETURN ~;; COPY y LLIST tPI BORDER  CAT [N] INPUT ▝]NOT ? INVERSE ;▝ RANDOMIZE  LOAD  SAVE >8 RETURN ©PIw~ CLS  LOAD LN  NEXT  BORDER  RANDOMIZE  CLS  INPUT } DEF FN 9 RETURN Ag OVER ; LET  READ pPI NEW  NEW  DEF FN x<=[N] SAVE  LLIST  COPY  DRAW x<= LIST M INK  COPY  LPRINT  OVER xu COPY  READ  BRIGHT 9 READ NOT  BEEP l COPY p LIST  LLIST  COPY p COPY [I]N BORDER  COPY <=▗ OPEN # BRIGHT  INPUT LEN COS SGN yrs▜ CAT [G] RUN  RANDOMIZE [I] COPY  DEF FN q NEXT  COPY STR$ ▜ OUT LN { COPY [I] INPUT  LOAD  COPY y[N] DEF FN  COPY  LET IN ;s<=[P] CAT c}SGN  COPY  LET cINT [P]q:[O] INPUT 4=c▙ LLIST yfINT ABS  COPY  CAT  IF  DEF FN } LOAD = READ NOT [N][P]?COS [N]<=PEEK k& LINE  LPRINT  CLEAR ?g LOAD PI[F]wCOS  RANDOMIZE )cgs FORMAT <=lSQR <© GO TO NOT  CAT  INK ▜ NEW  OR  POKE  LIST  DRAW ABS ; COPY ▚SGN LN  LPRINT pW▝▚INT / BORDER  OUT  BEEP  GO SUB x▙( DRAW <>USR g{ THEN <0 IF USR W COPY  CONTINUE IN >=O NEW ABS  GO SUB <G THEN 9y STOP >[B]O RETURN  CLEAR  LIST $[R] DRAW ?<>B~ INVERSE H STEP  PAUSE Y[L] RESTORE 67 THEN 5o[G]T OVER ,GSGN YVyCOS N PAUSE fJ RESTORE  STEP U THEN [L]7[G]74,oRY OVER FCOS SGN CfyMK STEP  PAUSE I[L] RESTORE 87 THEN 3o[G]E OVER ,DSGN YX▟COS S.[E] RUN HIFTL,CODE OY OVER 9COS SGN 2SGN zW VERIFY {COS Z BORDER JP▜E[G]NTpATN M , LOAD 0Y OVER 1COS SGN QASN zA CAT o>[J]6q( RESTORE  CLEAR  COPY  VERIFY  RUN ! NEW  LET >2 BRIGHT  OR R TO  RESTORE "o BRIGHT  CLS v NEXT >[A]! POKE PI(=!VPI GO SUB sASN  BRIGHT  RANDOMIZE ! POKE  PAUSE  MOVE k SAVE  PAPER IN -CHR$ INT  NEXT 71INT  LLIST STR$ CHR$  BRIGHT : REM SG=C PAUSE  RETURN  BRIGHT ▚ BRIGHT  RANDOMIZE ▙Cds`USR USR  LPRINT + DATA VAL ©[F]:▖▛SQR ▝ PLOT  la RETURN H;VAL 8 FOR }BIN u` DRAW uVAL INKEY$ LIST USR 3` DIM  NEXT qVAL t NEXT  SAVE  DIM #[N] RETURN  NEXT ,M NEXT  PAUSE BIN [I]POINT ▖ RANDOMIZE  SAVE IN t`3 MERGE  RANDOMIZE  LPRINT ▛INKEY$[I][R] MERGE  RANDOMIZE IN b` READ ;c PAUSE ▝TAB M▝ MERGE ACS  LOAD SCREEN$ [R]:0<VAL INKEY$[J] RANDOMIZE  LIST LX PAUSE ATTR I] DRAW  DATA  COPY  LIST  OPEN # OUT  FORMAT  OR ?USR 7[J] COPY  CONTINUE  CONTINUE ?V[U]?[M] STOP 0A^ 2a GO TO !0 LET  PLOT   CIRCLE p"t[Q] 0D&< RESTORE [J]?&tCHR$ >mSGN $;©9 LPRINT  STOP -x RETURN 4▝ CLEAR  STOP  PAUSE  ERASE ATTR g<=BIN ] COPY K DRAW  COPY ▗AT PEEK AN[A])VAL PI PAUSE [P]- PAUSE c LINE  RANDOMIZE STR$ ▖@ RESTORE IN -# DATA ▗>PEEK  COPY  CLS SGN LN ▛[R]3VAL$  COPY !/[A]_?`▟[F© CLS VAL "<>t$ PAUSE $©G PAUSE  NEW NOT  PAUSE BIN  LIST  OUT  RANDOMIZE BIN USR ©>=NOT  LOAD [GT[R] SAVE  LOAD  ` FORMAT  LLIST  LOAD ATN [E][A] OVER COS @ COPY ; INK  SAVE [L]>=oViATTR F~ CLS [F]▚ATN © DRAW ?R▛jINKEY$INT ATN USR  TO 4 INK  RETURN  RANDOMIZE USR PEEK  COPY ▝_ATN LH PAUSE  FOR  COPY  DATA  RESTORE BIN  RUN v[U]BIN  LIST BIN RINKEY$ RANDOMIZE [R]{F CLEAR  FORMAT  PRINT  COPY  RETURN ATN  COPY ▗?= NEW I CONTINUE J`C[I]V CONTINUE  LPRINT VAL CHR$ [P]'^IN SIN BH SAVE B©{ POKE  OUT  CAT  GO TO =$USR [D]▗%STR$  INPUT  MERGE ` PAUSE 8[J]vTAB NOT /TAB BIN <= CONTINUE j LIST [C]q DEF FN ) DATA  BORDER [I] RANDOMIZE ▗ THEN F? RANDOMIZE  READ ASN j SAVE  DEF FN  CLEAR -© LET  INK  NEW n DIM ▛8~BIN  RUN * LIST  RESTORE  RANDOMIZE }{}EXP qUSR  STOP  TAB [R]IN ?CODE / RETURN  LOAD o FOR ▛x#=[D]▖ABS  SAVE x COPY  SAVE xVAL  PAUSE  LET 7& PAUSE [G] FLASH  POKE . FOR VAL$ BIN [L]ABS IN  DRAW  SAVE wCODE ▜ POKE  CAT IN B?!{PEEK ACS © LIST  BORDER [E]e~h STOP S?qPEEK  CAT L© DRAW  NEXT a COPY  DIM w RETURN ©IN  LET CODE <? LET !Bg RANDOMIZE {©8RND COPY  RANDOMIZE  CLS  LLIST  INVERSE  CLS 3 LOAD RND DRAW  MERGE N CONTINUE  RETURN 5▞8 RUN RND NEW  FORMAT [H] CLS |CODE > OR IN  LLIST  CLEAR [T] PAUSE  NEXT  PAUSE  INPUT  RANDOMIZE o DEF FN  CONTINUE ©BIN  SAVE  OR BIN CHR$  OVER -BIN 1' STOP  LPRINT  THEN  OUT ^`TAB ▝ SAVE  PLOT  [ RANDOMIZE {~4~~isZACS Q STOP ▗S DRAW  GO TO g RANDOMIZE ?[K])LN WFN  TO VAL ▝▗ CLEAR INT INT [D] POKE 1% IF  RETURN [R]rZT FOR ; FLASH >0p▘#[G] COPY  PAUSE ▜ PAUSE  LINE  BRIGHT ©sAT ▚ CLS ©x IF hR>SQR PJgVKNOT [H]]CODE [N]▜ INVERSE  FOR +C▝'ABS *© LIST fINT  ERASE [S]0[U]VAL  LET  BRIGHT ▜ OVER 'E?[C]W LIST [I] LET ]lACS  COPY  LPRINT  CLS VAL <p MOVE IfPI BORDER EXP ▛TAB  OVER ]▙yB▝ PRINT  OPEN #HXIN x CLS  COPY  SAVE O>=V?;tX!©▗ATTR gVAL$  PLOT   DRAW  REM ▗ RETURN 3 PRINT  TO  RANDOMIZE  LIST [A]CODE [O] TO  PAUSE  READ  PAUSE  FOR  NEXT / PLOT   DRAW TLSTR$ + STOP AT VAL <=CHR$ ▝[J] RANDOMIZE  CAT V>=[R]<z▗ THEN  RUN > LIST  DRAW  CLS 8STR$  PAUSE [H]BIN ASN SGN / PRINT IN sINKEY$VAL  LLIST = LOAD  PRINT '[N]VAL  STOP $O`a[L]▚I:USR BIN P[L]K&[N]f RANDOMIZE  DRAW w RETURN INT  RETURN 0[I][A] IF k[C]g&▙> NEXT  TO  OR © RANDOMIZE }<CODE  PAUSE PEEK 0}>=STR$ -Af LIST [Q] RANDOMIZE  LIST  RANDOMIZE -0c CONTINUE  STEP h[J]VAL PEEK  FLASH + THEN  LOAD  POKE ~ MERGE  INVERSE ▟[B]' GO TO  RUN  REM ▜ SAVE r[U] INK <> CLS [K] POKE nCODE  CIRCLE  THEN / COPY  LOAD VAL$ 9%~[J]SGN  RANDOMIZE ▘▘ PAUSE  LPRINT { CLS [E] LET  CLEAR ▝ GO TO `k  RETURN ▚USR u- THEN /▘cLEN .s[N] OPEN #TAN > PLOT   FLASH ATN SGN yF INK NOT VAL$ [R]& NEXT |[O]e5CHR$ ACS  READ [L]POINT x RANDOMIZE  PLOT  USR [B]Pk`INKEY$STR$  INK 3 PAUSE  CONTINUE SBIN  LET 6fBIN PEEK `3 LET BIN b▖C STOP <>[C]LN K PAUSE  MERGE [R],[F]W SAVE IABS <3~USR  DEF FN PEEK ▗YFN 1p▗TAB  RANDOMIZE  CIRCLE `FN  LET L LPRINT [R]GEXP USR S$~INKEY$j FLASH  BRIGHT PI STEP RND CLEAR `'! CIRCLE  TO p PAUSE 2BuV DEF FN 8▟▗ CLOSE #0' COPY  AND [H] PRINT ACS  REM INKEY$[I]c<= COPY `t▞▗` CLOSE #3 PAUSE  CONTINUE 9[[$NOT ▖?[I] RANDOMIZE L!9V CIRCLE LN rCHR$ qJ DRAW ▖ CONTINUE  GO SUB d9 IF STR$ VAL  RESTORE ▗IN B[I]a[J][C] LPRINT  LOAD  RANDOMIZE  LIST  CLS ABS  AND # RETURN ▖▜▗BIN [R]za1[F][R] COPY [S]_x>{ IF  RETURN /[J] RANDOMIZE @[E]_[R]8BIN  DATA #tS(eD0L>? PAUSE BIN [I] CONTINUE  LOAD xDBIN  BORDER B POKE yN3 PLOT  VAL [M]~ STEP  CLS O CAT  FOR N~INKEY$ RANDOMIZE ~B` CLS I CLS NOT  PAUSE , CIRCLE ▗USR PEEK STR$ [I]TAN . CLS  RESTORE ?ATN g OPEN # PLOT  @A PRINT AT BCDE▟[O]FG[O][J]X  COPY   DEF FN 2B COPY  @a COPY   COPY @ CAT A COPY @3[O]D COPY @f<G COPY ` TO xA COPY `[J] LET D COPY `3 READ G COPY g AND A COPY  CAT D COPY [O]G COPY [Q]<3A COPY [Q]Dxf COPY [Q]G LET  TO  COPY USR A READ [J] COPY USR D AND 3 COPY USR Gg COPY  LPRINT A COPY  LPRINT  CAT D COPY  LPRINT  GO TO [O]GXH[O] PRINT IJ VERIFY COS KLMNCOS zOYf. COPY   TO 2[I] COPY  S[J]i COPY  @ COPY @3 READ J COPY @ AND M COPY @ LET  TO  COPY `I READ [J] COPY `L AND 3 COPY `Og COPY I COPY  CAT L COPY 3[O]O COPY [Q]f<I COPY [Q] TO xL COPY [Q][J] LET O COPY USR 3 READ I COPY USR g AND L COPY USR  CAT O COPY  LPRINT [O]I COPY  LPRINT =3L COPY  LPRINT O FOR  INK YPQRg=ST PRINT AT UVWZ2f COPY  e TO c COPY   OPEN #[E]SGN  COPY  @ AND 3 COPY @Rg COPY @U COPY @[J]1 COPY `3 READ Q COPY `g AND T COPY ` CAT W COPY [O]Q COPY <3T COPY Wxf COPY [Q]Q LET  TO  COPY [Q]T READ [J] COPY [Q]W AND 3 COPY USR Qg COPY USR T COPY USR | CAT WZ INVERSE ! POKE  COPY ▟O9 MERGE  RANDOMIZE STR$  FOR  BORDER ACS  GO SUB R~ LIST 8T]LN  FOR  INVERSE V[P]/^ RANDOMIZE  LLIST  DRAW  LET ; LET  INVERSE w©1# RUN  INK <▗IN  LLIST  STOP  LIST  INK o INK )A8 NEXT ATTR  INPUT >? LET 8 SAVE  RETURN _POINT   LIST  GO SUB  RETURN (Z DEF FN  COPY ATN EXP  INK O GO TO >8 LIST  CAT  OUT (<▘0[C]g RETURN  > LOAD  LPRINT )IN [C] INK & COPY ( COPY [L]g; CLEAR ( LET o GO SUB VAL [U] INK  THEN 7[Q] LET  LLIST  LPRINT  LIST PEEK :POINT  LET  VERIFY oO[K]c INVERSE [Q] OVER o▜#~▘IN EXP ▙ R PLOT  > DRAW i LIST ;STR$ HG?[F] TO  COPY  INPUT  PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P][P]| DRAW [R] USR  THEN © OUT  RESTORE  STOP  REM  FOR  MOVE s#r STOP BIN =  SAVE  FOR 0[L]!X' INK <>zATN O><0 RANDOMIZE K, PLOT  M/ STEP <> PLOT   MERGE m LET [P]▙ MOVE $ LOAD c LOAD  GO TO  FLASH <> DIM  INVERSE  RESTORE  FOR NOT /= NEXT  COPY  MERGE !PI/ RESTORE $ RUN [Q] LLIST  NEXT ) MERGE  CIRCLE [P] PRINT " CONTINUE LN  GO TO EXP NOT  REM  PAPER `. RETURN IN [B] READ INT  STOP  DEF FN Fe PLOT   CAT  NEXT 1[ STEP e RUN  OUT t~[>[J] GO TO  STEP  FORMAT  PRINT  LET IN ▞@![N]ATTR f~# RANDOMIZE  DRAW ^VAL$ w{ GO TO  CLS xLEN   POKE AT S` OUT x<INTRO   C[[Q][Q]hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.HR@f#yVAL  NEXT 7~! RETURN ` COPY ▚6 CLEAR  GO SUB VAL >NOT ! GO TO  READ  OVER 2 CLEAR " RETURN 7 INPUT > GO SUB G^: THEN  CLS [ NEW  LIST  THEN ?[K] OUT 2[ STEP @SCREEN$  CAT XFa CAT  CAT  POKE  COPY  CLS v LOAD VAL  STOP @ READ )My  MOVE _lSIN F[M]AVAL CODE  OPEN # RETURN  STEP ▚ CLEAR !6▜ INVERSE  STEP  LPRINT  OR N IF  INVERSE  COPY  OPEN # STEP  STEP  CAT  CLS  CLEAR ^[N]V FOR [T] RETURN Wv STEP ▘▗7k FLASH PI CLEAR STR$  STEP  THEN x[R] CLS =2,▜>gg INK ▗ INPUT > IF l[L]PI!p[C] TO  RETURN ▚ THEN O PRINT  TO ?▝ LET 'COS Gc[K] STEP gK[B] IF  COPY  MOVE >IN  FLASH  RETURN /fO©;CODE LEN  NEW BIN  RETURN NOT  RANDOMIZE  STEP ▖v[L]<>[Q]LEN :POINT <PI POKE  RETURN  CODE [Q]>S[N]C9 BORDER NOT  READ _ BRIGHT  LINE 5= POKE  COPY {ASN g FLASH O NEXT  FLASH CODE SCREEN$  NEW [O] ERASE   SAVE <> ERASE  CIRCLE PI LINE <>CFN  CLS COS ▜3▘ INPUT s▛COS  STEP  READ 7{ GO TO >?7 FLASH m LLIST >[L]7 COPY /▗<> STEP q[O]-▜BIN !cQFN vPI(=  DRAW ▝@ AND G VERIFY  FLASH aCOS [A]=<=[O] VERIFY  FLASH  THEN . DRAW m THEN  OR ▙▞ OUT  THEN [F] THEN USR  TO )[L] THEN :6[J]TAN j( SAVE /^ATTR [J]0[J]4>=M LPRINT [H].TAN IN  READ > BORDER  BEEP  THEN !_[K][E]LEN  CLEAR 6ATTR FW PAUSE  BEEP [H]K DIM [T]H LIST CODE CODE [G]FN ACS  ERASE  MERGE FN # TO FN TAB FN g STOP FN MIN  CAT FN CODE [I]ATN FN IN 1▟ INK [M] DATA  ERASE m2 LET  ERASE  OUT l ERASE  LOAD [L]aPs[L] ERASE 2 ERASE IN [N] ERASE  RETURN + POKE ?s▙ BORDER [M] LET im NEW  ERASE 3 ERASE o[P] READ  STEP  ERASE [U]9~v[H][O] NEXT [P] LET q ERASE  NEW 64 ERASE [R] ERASE USR 2 SAVE [J]G[Q] LET y[D] ERASE  ERASE / POKE N LET  BRIGHT  DIM 5!Z RANDOMIZE (o?<>g RESTORE  INVERSE  LLIST  INK ^ RANDOMIZE LV[Q]1 CLEAR J MERGE  OR iO MERGE nS OUT f[G] INK INT e DIM ok OR  MERGE <8 PLOT  INKEY$#IN 8ACS  ~ SAVE  NEXT  MOVE STR$  GO TO > _▜iLEN SCREEN$  CAT W CIRCLE 'LEN INT  STOP  MOVE FN TAB VAL CHR$ fSTR$ ! LINE  VERIFY STR$  FOR NOT  INPUT bx VERIFY  VERIFY Fl▖ VERIFY PEEK v CLEAR G▚OLN [I][A] SQR 0[| AND [O]ATN  LET  CIRCLE [H]^NOT E▟ OUT YD~<SQR  MOVE  CAT  OPEN #w<> RESTORE m MOVE z POKE  COPY  NEW  PLOT  XW LLIST  MERGE |▜ RANDOMIZE y_}STR$  COPY nr MOVE STR$  INK  CLS v/[J] MERGE  OR E INK LSIN STR$ M PRINT I[F]e MERGE  PRINT  NEW  OVER 1FJ~ RETURN ;▘W CAT <> INPUT f RETURN <>[A]INT STR$ COS gLSIN 0x[L]USR K~ FOR NOT  SAVE ▗PIINKEY$ SAVE 5 LOAD  GO SUB S THEN " STEP sATTR POINT x▙SGN EXP [G] OUT RND FOR =[I]▜h IF  MERGE LN N<= MOVE : LINE l OVER G* BEEP Ug IF  MERGE  ERASE  PLOT   OUT 3@ CLS  DEF FN _h64P FORMAT <>[J] DRAW [ TO  LINE SIN  IF [G] DRAW [N]w9gQPOINT 0 OPEN # DRAW $"[f VERIFY  INVERSE ? INVERSE [S]TAB [U]EXP  LET PI- LIST  CLS  TO <> PRINT  OR  RESTORE  MERGE  CAT  CONTINUE  FOR  GO SUB [Q] MOVE E IF  MOVE  LLIST STR$  LET ?p LET BIN RND}o[T]%[S] DIM d▗g) PAPER [U] INVERSE CODE  GO SUB  CLEAR  INK VAL  STEP 7CHR$ kSCREEN$ BIN  INK  CLEAR  RESTORE  >=© LET PI LET  CLS  GO SUB M! OR [H]1 NEXT @ LPRINT ▛ OR  STEP ▚STR$  LLIST  INPUT  COPY  MOVE  LIST <>v RESTORE !X+}TAN   CLS  LLIST A POKE 8 SAVE  NEXT -3z NEW USR { AND  _ CIRCLE z VERIFY W<>EXP INKEY$pC7PISIN  BORDER  INVERSE !EXP y LIST ^{ BRIGHT (== RUN W RUN  RANDOMIZE  SAVE SIN _} TO 8( OPEN #5*<= IF Gw#xLEN   PAPER MI OPEN # LLIST X MOVE v RUN ?[S]BIN <>~2▜>[O][N] BRIGHT : OUT SGN PI CODE  OR ~SGN  RANDOMIZE + STEP  BORDER ▚ THEN  OVER  PRINT {/<> PAUSE  CAT  COPY Ww FLASH [ CAT  PRINT  MERGE m LET _STR$ [F] OPEN # NEW  OVER =<>O OVER  PLOT  {<G THEN 92 LET >[B]O RETURN <>CO FLASH [Q]ATTR G?BIN W[P]g&▙ LINE WEXP ACS 4 CLEAR cD BORDER +Y FLASH  INVERSE COS O OR ▙ BEEP [H]_[K][M]IN [N]o[P]G[Q] RUN [R]▜[J]PI[T][U]g<='RND▜7[O] BORDER  DRAW INKEY$[R]c[K]▟[S] CAT ;[T] ERASE  COPY  IF  PAUSE *X AND PEEK TAB  RETURN POINT PEEK TAB  CLEAR T OVER TAB  IF [Q]©COS  VERIFY  PRINT +?ASN w REM IN  FORMAT ATN  STEP U STEP ATN  AND SCREEN$  DEF FN  CAT  SAVE VAL  LINE :[D] STEP  CAT TAN  LPRINT  PAUSE  COPY l+87~ OUT [E]V DRAW  BORDER [M] RANDOMIZE ({@ MOVE  PAPER  IF ▚USR "Vg[L][F] OUT  ATN CODE ASN `Gk CLEAR  MERGE - INVERSE BIN [T] RETURN  LPRINT [J]3 CONTINUE  OUT INKEY$+CODE ©[P]SQR O LIST  BEEP  LINE  SAVE k RESTORE  DRAW  PRINT , OVER > MERGE PIV[I] LINE INT  GO SUB  REM ~V CIRCLE  CLEAR U OUT  TO <= REM POINT  SAVE  LLIST  DRAW  AND d=ASN  LIST  PRINT H DRAW c$▙V LPRINT AT m` RETURN 1 CIRCLE USR ATN y CLOSE # CAT  IF V COPY /TAB 8ASN RNDK COPY  FOR _ PAUSE PEEK P COPY ▘IN INT g!<=©ASN ATN T▛ RANDOMIZE ?[C]:▜~[L] DRAW  COPY ][N] DRAW ▛Z* BEEP  MERGE  MOVE  PAPER |[I] CLS ] CLEAR `8 PAPER  RETURN * IF  RETURN  STEP  MOVE  DRAW Ck[F]INT [I] GO TO  CLS  RESTORE IN  COPY  AND <= BRIGHT ]G RUN INKEY$l[I] INPUT *PI RETURN COS c DEF FN  PLOT  k~SCREEN$ >= CLOSE #CODE  INPUT (@PEEK  IF 8 RETURN TAB 01SGN © FLASH AT AT  INPUT  MERGE rpASN V1 SAVE  DEF FN ▘!+ OPEN # FLASH  LINE  REM ATTR  FLASH  REM  MERGE T PAPER zLEN  REM  FLASH CHR$ FN  CONTINUE  FLASH USR z[ BEEP [P] READ  BEEP  PAPER  FLASH ASN u INK ]CODE  LIST INT  RETURN 3n PRINT  DRAW d NEXT ATN  PLOT   SAVE  CIRCLE [{ RUN  LET  CLS |LEN [C]NOT b©SCREEN$ ~zCo NEW ▞ OR ▞ IF *!' VERIFY  LIST  RUN  POKE ATN INT {[ INVERSE  DATA USR  OVER  STEP SIN 9 POKE  PAPER  RUN TAB  RANDOMIZE  REM BTAB  BRIGHT & DEF FN  DRAW 1▝W[H] LIST INT  LLIST n LINE 0STR$ * STEP p THEN  OVER  CLS ▝ OVER *( LET USR 0[{[P]u READ `Tk TO ASN }aUSR LEN PI▚ VERIFY [L][D]M PLOT  xsw9 RETURN  FORMAT  PAPER ▘EXP SGN ATN  RANDOMIZE [J]AT  FOR  LPRINT TAB TAB VAL  J[Q]EXP STR$ ▞TAB  LIST H ERASE [S] LPRINT ? GO SUB  RETURN [F]r[U]% INVERSE iPEEK USR + NEW  DIM ?sABS  DRAW ?[D][E]▚ DRAW SGN =*OSCREEN$ @IN  INK o SAVE ACS 9T ? DRAW 0 NEXT  DRAW . STOP SCREEN$  PLOT   BRIGHT <= RANDOMIZE ATTR  RETURN WTU 7▜ POKE [L]©ATTR SCREEN$ [A], CAT  CONTINUE  DEF FN LEN  GO TO U]@ POKE 6 GO SUB   DRAW  REM  OUT |c DRAW  DRAW D}H OUT  MERGE f ERASE VAL USR ▝INT  DRAW  STEP pVAL$ ▖_ CLEAR  COPY  CLOSE #[L] GO TO  SAVE  IF [G][N]I▜ NEXT ATN ACS  VERIFY  RETURN qBIN O RESTORE  LINE /L RUN P' LINE  NEW /INKEY$ CLS SCREEN$  MERGE  REM [C]t}UW REM  BORDER wz{H[E] POKE CPI:ACS ▞SQR ATTR ASN SCREEN$ [E]V GO SUB  THEN X INK VAL$ ATTR u[N]INT  FOR [H][D] STEP  PAUSE p`VRNDKFN `ylASN ATN  NEXT NOT  PAPER SQR  READ ▜ GO SUB  INVERSE [J]NOT O PAPER n~>[P]m OPEN # INK  PAUSE }V RESTORE  SAVE [J] LINE  INPUT  IF ACS ATN  FLASH  GO SUB  REM  POKE  OUT ASN  INK  INPUT , VERIFY POINT [O][ THEN [U] BRIGHT ASN ATN IN / INK [O]n%RND=, CIRCLE  ERASE [F] PLOT  eL CAT [G] CLS  IF RND PLOT  lE[N][L]]▙"BIN PI8 NEXT  LOAD  PLOT  TAN  RESTORE 1 OPEN #▗ASN mL:[L]d THEN ULN SGN =_0ATTR  RETURN V-NOT [H]ATTR  LIST  INPUT W SAVE f FORMAT gwTAN {+ LPRINT [L]YV.ATN *{? AND )/vATTR 8©_VYASN  NEW  CLS  INPUT >|{>= CIRCLE  RETURN ▝LEN [P]7 VERIFY VAL | RETURN ATN ACS  LPRINT @STR$ ▗ STEP [O]a DRAW  DEF FN < PAUSE  RETURN ▜ LIST INT  FOR TAB  DRAW  LLIST  LIST TAB TAB [K]Z INVERSE +USR  SAVE  DRAW < BEEP xo# TO  LINE k<cSGN  AND  LLIST  BORDER INT AT SIN  PAUSE * MERGE  FORMAT ~3[J]LEN w VERIFY f=KZCOS  RANDOMIZE kYACS /LEN ASN INT  RUN _ BEEP -[M] INK iP{jPIATN F(▘ATN Um/E OR by VERIFY [G] PRINT ATTR  VERIFY  DEF FN  MERGE AL RESTORE  OVER INT CODE  RETURN INT  ERASE ATN  OR U© CLEAR m/mINT  FLASH  IF PEEK SQR H LET  PAPER  GO SUB _ RETURN  PRINT ]46s` CLS  CONTINUE CHR$ {LEN z MERGE  POKE Umv4.ATTR INT TAB - DIM +ASN  PAUSE  RETURN  INVERSE TK INVERSE  CIRCLE VAL$ INT  LOAD [J][Um PAUSE  BEEP oSQR  CLS j[I]x IF ,H6LEN [T]2= BEEP ?▝© TO  DRAW xt OVER p[O]] RUN  BEEP {vi RESTORE @~ COPY G BORDER u PLOT  P[G]S PRINT ASN w PRINT m DRAW 9l SAVE QJ,?pn MOVE >'WSIN  RETURN TAN AT SGN +COS ▜ABS [N]9 DRAW 3[▘ DRAW  STEP [M]SGN  LIST  DRAW P FORMAT ~[O]*~WSCREEN$  FLASH M COPY  FOR  PRINT POINT u GO TO ~COS [L]CHR$ LN  CLEAR ~ym MERGE TAB  DRAW  OVER ATTR  CLEAR _▝y NEW  OPEN # IF  PLOT  ATTR [O]<> READ  LIST  FOR  RUN  LOAD V1o+ STOP  COPY BIN u[>=[Q]^ RANDOMIZE  OR  PAUSE PEEK 8>= THEN  THEN ACS ▗ COPY :<= AND _ FLASH ▛NOT $ GO SUB  LOAD ▘Pw LPRINT  RETURN Z PRINT [H] kPI LPRINT [K]I[P] DRAW Wn CAT dDATTR ▜ OPEN # CLOSE #: RANDOMIZE  STOP  CAT  DRAW ▚& STOP STR$ M LINE ▟ INK ASN = VERIFY ; OUT x/ATTR  LLIST ATN '[M] LINE  DEF FN _ MERGE  LET  NEW TAB IN  FOR  RANDOMIZE BIN  LLIST ~3© DRAW  GO TO  PRINT  DRAW '/b[U] COPY  DATA f[C] RETURN ©_EU CLEAR u CAT  NOT IN [S]ATTR  REM SCREEN$ OVSTR$ ▖ FOR  COPY ©UWgx DRAW <> BEEP  CLS  REM  DATA > INVERSE USR  LET  AND jBIN  INVERSE  LLIST NOT  GO TO I DIM n BEEP  LLIST SQR [B],/ LIST f▛m/ SAVE  FOR n RETURN Z[G]TAB t|1 COPY mW? THEN IN J LIST  PRINT TAB W NEW ▝▜ LLIST  DRAW  BEEP m COPY ▜ TO ATTR  LPRINT CODE  FOR #i▞g LLIST v/ PRINT ATTR  LINE IN  PAUSE _ekm MOVE  MOVE  MERGE AT ASN Qk BRIGHT  BRIGHT yNOT (v}AT  CLEAR  MERGE  INPUT IeY CLS OASN <= BRIGHT ~VAL$ UABS  STEP fABS 6<= INVERSE ?PIYy~SGN ABS L OVER o[O]9? OVER f  OVER mw[Q]HPOINT V STOP  LET ▟ASN <>= FLASH [N]▘ [N]POINT STR$ @ INVERSE  INPUT 1BNOT  DATA &oPIRNDjVAL$ ab MERGE F PAPER [C]OX_ OR dV▜EXP W`>=[[L] RETURN LN J{ AND  OR rAT [L]<=w<YV[F] LOAD  LINE +INT *+ MERGE  GO SUB [P] LINE SQR  RANDOMIZE © INPUT  NEXT  OVER  SAVE zcyow PAUSE  LET AATN 3 POKE  LIST [SGN  RUN <ABS  LIST  DRAW  LET p DEF FN  LIST ASN % CONTINUE  LPRINT COS  RETURN  DRAW [E]~ DIM  IF d THEN O CIRCLE  OVER  OPEN # CLOSE #©USR  DRAW  DEF FN < LPRINT xCHR$ eAT RND LLIST NOT kAT  LINE  STOP  DEF FN [H] OVER  NEW  LPRINT ▙% OVER  DEF FN $ DRAW &[[L] COPY  LIST RNDATN #V` THEN X LLIST aw<="[ INVERSE [A] < LIST  BEEP  INPUT H C[L] LLIST  VERIFY  PLOT  ▗!FN <=ASN  CLEAR  LET &T9>=INKEY$<>[P] SAVE ▜NOT  REM TAB  IF @T[P]wCOS BIN [Q]/* LLIST V[A]V OVER  FLASH %CHR$ [Q]n^[A]IN EXP CHR$  FORMAT (N NEXT  COPY STR$ FN T@ABS LEN v| CLEAR  LPRINT [A]FN /ACS IN  DEF FN  LPRINT POINT PV*▞ OUT COS gU[D]INT PEEK  INVERSE COS p[P]1[C]{ LET  CIRCLE  LOAD Y RESTORE CODE c DEF FN  FLASH  RANDOMIZE 8LEN  PAUSE V_ RESTORE $w[O]ATTR K▘o$ BORDER VAL$ [K]▞ IF EXP RO CIRCLE  DRAW E@' PLOT  ABS USR [B][D] BORDER  CLS  VERIFY  LET FN @)~ATTR  LIST ▞@D<= PLOT   BEEP INKEY$ STOP $*▙©X RESTORE HPg VERIFY WTG PAUSE  FLASH g[S] REM  PLOT  [<>UDW PRINT  CLEAR  VERIFY  CLOSE # CLEAR o IF CODE <pR▞V INVERSE  GO SUB IN  CLEAR _ LIST 5 REM [C]SCREEN$  STOP USR  FOR VQCHR$ RNDINT [SIN  FLASH SCREEN$ BIN e PAUSE TAB [E]U OR  LIST PEEK VAL$ 5 BEEP ▘▛CHR$ ` CIRCLE e PRINT )U DATA  LPRINT ▝v[Q] LINE  PAUSE  ©X<= NEXT  POKE  CLS [H]e RANDOMIZE ▟LEN  BEEP  FOR [D]=▘ OR , CLS  IF >S RETURN <© PLOT  ? AND SGN  CLEAR IN  IF  CLS ACS SGN y[P] LLIST  CLEAR  IF TAB | SAVE STR$  INPUT  OPEN # RETURN  DRAW `@ BEEP g▚ STEP  OVER ~! RETURN ( READ COS 7 NEXT  RETURN [L] CLOSE # OPEN #v[T] PLOT  , CONTINUE LEN  READ Y[D]E! POKE T([P] THEN [O][T][O][P]>= READ 0? CLEAR } RANDOMIZE <>J NEW h RETURN .<>T GO TO LABS  DEF FN  DRAW U@ABS  RETURN  FOR [A] DRAW ' REM NOT  DRAW [M] NEW $# SAVE  CLEAR  DRAW [R] FOR  DATA C NEXT [B]i[Q] CIRCLE  LPRINT "25 RETURN  CLOSE # LET Oo CLOSE # USR  LOAD  IF  CIRCLE  PAUSE U RESTORE  CLEAR D LPRINT  LOAD  CONTINUE /IN  IF ▘ SAVE  CAT  RETURN USR ▝ NEXT  MERGE d}K▙wNOT 5SCREEN$ LN W~ RESTORE  PLOT  VFN { CONTINUE ▙TAB xWPe AND  DATA LN  DRAW /INKEY$j[N]uIUSR bvc DRAW [S]|▛ NEXT  VERIFY BIN  OUT * DRAW ▟ REM gINT ▖ PRINT T OVER  ERASE EXP  CIRCLE 'ACS PEEK COS y-'X CAT ▟AT  PRINT J[J]5©g RESTORE [N] READ  RETURN  INVERSE  FOR + PAPER /ATN  PAUSE `USR  NEXT  LPRINT ~ SAVE NOT E STEP < RETURN 01<> THEN  LET  READ  LIST : CLEAR  BORDER H>=▝~; COPY yOc COPY  BORDER  COPY  CAT  COPY ▝ OPEN #5? OPEN #ABS  RANDOMIZE  LOAD  SAVE ▛E RETURN © OUT  DIM  CLS  LOAD LN  NEXT USR [N] BORDER  RANDOMIZE  INK  RETURN  INPUT } DEF FN 9 RETURN y FORMAT  OVER  LET  LLIST  READ ; INVERSE  NEW <= DEF FN x OPEN #[N] RANDOMIZE  COPY  LOAD LN [L]<= LIST  COPY  LPRINT  OVER ▖x SAVE INKEY$| BRIGHT 9 READ NOT V TO  COPY p LIST  LLIST  COPY pM[I] DEF FN  BORDER  COPY <=S AND  BRIGHT l▗ STOP VAL$  RANDOMIZE [L]▜ CAT [G] RUN  RANDOMIZE NOT  BRIGHT q NEXT <7 OUT LN {| AND t LOAD  COPY y DIM t COPY  LET s SAVE  INVERSE <=[P] CAT }SSGN  COPY  LET  BEEP  MERGE [P]ACS  OR ▜[O]=Gw LLIST  INVERSE 11g3ABS  COPY  CAT N}} LOAD = READ  DEF FN  LLIST [P]?<=[D] INK PEEK  LINE  LPRINT  CLEAR [L]1?gLEN STR$ 8[F] AND ▟VAL$ COS  RANDOMIZE  LPRINT [N]<=INKEY$;<LEN SDNOT ; DATA  CAT ©[M]m▜[F]/ POKE  LIST y?:▚SGN VAL ? LPRINT p,G=]ATTR ;SQR LN o BRIGHT i RANDOMIZE  OR  OUT  SAVE !$IN  BRIGHT O+ SAVE  OR  FORMAT -IN LN $0 CLS IN [H]! GO TO l+ BRIGHT :y COPY  RETURN i©_[M]ABS POINT ATN  THEN CODE [R]kf<= LIST nAo ERASE  LIST INKEY$ COPY xom IF = OVER > READ , LOAD ~©/[G] CLEAR  CLS _IN O LET  LIST  BEEP  BORDER { SAVE ?SGN  OVER /[P] RUN  LIST  READ [R] POKE ) OUT ATN SHTAB |f[T] IF <>▛ BRIGHT  FORMAT  THEN  OR BIN LN  STOP  OR AT [Q]x LET [E]^SGN ▖|_VAL$ pd` READ LQ CLS ^CODE  LIST  CLS ? SAVE B-?3STR$ ! LIST CODE  STEP [C]POINT ▜ CLS  FOR  NEW INKEY$L LET  LPRINT  PAPER FVAL VBIN USR G FOR ▖[E]mD PAUSE TAB ATTR BIN  NEXT  LPRINT MATTR u[J] RETURN  VERIFY  IF  COPY `mTAB ?cTAN Z PAUSE  REM [O] MOVE  FORMAT ▗ PAPER q[K]M[A]USR ?! SAVE [E] NEXT ©FN ATN ▜F▘STR$ |v7STR$ ▘LNOT /▙? LPRINT  RANDOMIZE f PAUSE j0U▝ CLEAR O INPUT {J DIM  LIST  RETURN ,`5 RUN IN WACS -SQR ASN N[O] FOR ATN SQR  IF  PAPER ZKw>= CLEAR R?$[B]k MERGE CHR$ [N] INVERSE  DRAW  CLS STR$ m[B]▖CODE  RETURN ▝▙ INPUT  DATA  OUT  LLIST _▟▗D CLEAR  REM A▜wqH RETURN ASN EXP [A] FORMAT [O]$VAL  FORMAT  LET lSGN [K]F OUT SGN j OVER  RETURN  FORMAT  (POINT  DRAW 1>=C|} RETURN  GO TO  RUN +.~ CLS t*▞CODE  CAT ACS  PLOT  <> RETURN 3POINT LN [E] IF ? LINE  COPY  FORMAT 6`© DRAW  OVER  OUT INKEY$ RESTORE u GO TO PI[P][K]pP^ SAVE k▘[N]<▛wUSR {] FOR }BIN  THEN n/ BEEP <?D8" CONTINUE 9~ DRAW  RUN [I]P@ SAVE xUSR p}>=_▗[I] BORDER VAL /@ OUT c BEEP LN  COPY o<= LPRINT  OR ' POKE  PAUSE  BRIGHT <=ABS  PAPER  ERASE  INPUT  CONTINUE [^[P]NOT  NEXT  BEEP ? STEP Wc* COPY CODE  BRIGHT [S]> BORDER PGATTR  INPUT FN<= LPRINT H MERGE > FOR  PLOT   PLOT  Z!P~ BEEP x49INT ZZ MERGE  CLS <=COS ▞[O] MERGE S PLOT   PAUSE  AND  GO SUB "( PRINT FN [O]M RETURN `©ATTR EXP  OUT <=PIATTR F THEN puGkCOS [O]LN  OPEN #w| CLEAR  LINE  PAUSE ] TO SIN qY!8Y} CONTINUE ] READ  MOVE [I] CAT jxTAB USR  CAT >= CAT  CAT VAL  CAT @POINT cIfLN  COPY  THEN INOT  PAUSE  CAT jVAL$ AT ABS <>< INVERSE  MOVE ▟VNOT ▖ BRIGHT I?NOT VAL$ dOABS  RETURN LOCODE (?[L]F CIRCLE Nf AND ( NEW  CAT k SAVE ▝^S▗/ACS  LOAD <=*y PAUSE o_ LPRINT +wIN  LIST [B]<ACS  OUT  SAVE ?VAL$  OVER [+ GO SUB |TAB H RETURN  LLIST  IF /|A$ [C].[E],▗C/D< DRAW  DATA  IF B SAVE >=9 POKE ▝ LPRINT } TO  COPY  FOR [P]m FORMAT CODE [Q] OVER E▖ CLS  CLEAR  GO TO [A] RUN ? IF  LPRINT  BORDER [J]PI48@h0z[U] POKE  IF / [Q]<=" IF @[P] POKE  GO TO M[F] INPUT MP IF VAL CX4 RANDOMIZE  ATAN  BORDER " IF ,B▝[J]= COPY  READ iMAT ON8▚ RETURN COS EF SAVE 9RND INPUT )? RUN  CLEAR T FLASH  LOAD  FOR Y RUN  LIST o LPRINT S< CLEAR ▛ CAT  PAPER  RETURN HTACS  SAVE VAL$ COS  THEN !d< GO SUB ([L] LINE HL RETURN Z< AND  LET ,[B][C], LET l[U]▗CA LLIST D[S] LET lSCREEN$  DATA Bd▜k ERASE  LINE  FOR [Q]PEEK  FORMAT <[L][M][Q]YC PLOT  [U][A]l REM  RUN  IF [E] BORDER I NEXT 4shCODE  POKE BIN [I] POKE [S]JJ INPUT (FN =U}CODE INKEY$i/▙ATTR  RESTORE  |<A4Y"B READ YPAiS"/RMPINKEY$ DATA P SAVE A-DYBIN TINT PEEK TAB [Q]▘ASN STR$  MERGE @▙O COPY  [S]ASN U OUT [M] DEF FN INT SCREEN$ 9A!wUCODE /VwkSCREEN$  REM mPEEK /uUv[A]Uj COPY  LIST [D]▘w MERGE  VERIFY ▚ DEF FN INT PSCREEN$ u INPUT FN m FLASH  LPRINT  7M STOP  POKE !CODE  FORMAT ▗#[J] PRINT  BEEP  IF [Q] RETURN  REM  LET M▖ STOP U_ PLOT   REM b RETURN SCREEN$  IF USR WAT [L] CLS SCREEN$  FOR  CONTINUE PEEK ▝3 NEW _wW^COS [S] NEXT )VAL$ A COPY  PRINT UW PLOT   INPUT  FORMAT ATTR ▘u▝ BRIGHT P[Q] FOR ATTR [A]= LLIST  PAUSE &v[E]AINT  FLASH TAB Y IF aASN ▝u NEXT H BEEP $R MOVE  FORMAT X  REM  LET PHZ MERGE p GO SUB  POKE I0FATN FPEEK  LET  GO TO ▝▘STR$  PRINT AT M COPY  SCREEN$ [O]U PRINT ▜SCREEN$ SCREEN$ /!8[F]▗[K] POKE  PAUSE U1(I(L RETURN w[J]g VERIFY E▝[R]<=▖ MERGE  MERGE  OR NOT [C]ACS L CAT  REM ▗X: CAT  VERIFY 3 CLEAR ▖INT _f)PEEK <>[J] MOVE USR OAT [F] GO TO AT  PAUSE ([N]>SQR Qxd(INKEY$ MERGE [U](INKEY$LN ATTR )(<=COS [E]INT TAB T[S]( CLOSE #▚VAL$ $IN  READ  INK  CAT ( Pg34TAB  THEN FN ABS ; COPY  FLASH [C] LLIST  PAPER VqP PRINT >=▖PI,Ku>PI©<`a[R]p LPRINT .b BRIGHT ULN  GO TO  RETURN .%R LOAD 5H PAPER  CLS INKEY$ VERIFY 2PIgUSR [I] BEEP >=A LINE  ERASE ATTR g RESTORE  LINE [M]CODE  AND #lA<= CAT s( TO STR$ ,BIN 0[L]SIN  CAT PISCREEN$  AND [M]OLN USR [P] RETURN }^ FORMAT  COPY  RANDOMIZE >eBIN INT  NEW VAL  DEF FN 8) POKE  POKE BIN BIN SCREEN$ #9AT 8s,] SAVE AT #@STR$  NEXT {[S]NOT ▘C© REM V}[C]zh PRINT FT7 DATA l TO ATN / RUN  SAVE  NEW *>1 OUT ,Jg0n LOAD ▗x DEF FN TAN m RESTORE x©Z<~0?d DATA [S]TAB  NEXT ATTR ACS TAB  REM A) MOVE  DRAW INKEY$CODE P[R]z POKE ": PAPER  CIRCLE  INK if8 FLASH 3Z RANDOMIZE  OVER /mu*[B][J] THEN FPEEK [A]y BORDER [U]b IF fSNVAL &c LOAD ASN uSIN [K] NEXT FN  CLEAR fa[Q]IN 0 PLOT   LIST { IF y RUN ▝8_/SGN Q READ  LIST [O] POKE  NEW  BORDER CHR$  SAVE >/ BEEP  STEP  CLEAR  CONTINUE  READ m VERIFY /LEN ASN  BORDER PEEK # BEEP 8+ VERIFY <=HN▚CODE ; COPY [G]&▖[O]w SAVE [B]USR ▟k~|~ LET  LOAD > INPUT  COPY ( OVER  OUT [O] LET ▞] INVERSE  CIRCLE  CLS  BORDER [T]IN ▞ABS [M] RUN d STOP ©SQR  INVERSE `<= BORDER SCREEN$ ngSCREEN$  OUT  CLS IN [P] DATA  DRAW l DATA  CONTINUE ? FLASH r PAUSE  GO SUB COS  CLS  IF m[E] OPEN #4[E]w[E] PLOT  [E]oH CONTINUE [E]VAL  CLEAR [E] OPEN #[G][E][E]OH RUN [E]iZ([E] RUN ?[E][E]=a LPRINT [K]INKEY$[E] OUT [E]IN [E]PEEK INKEY$i[E]h[E][E] OUT  LIST [D][E]ATN  CLOSE #[E][Q][E][ REM ▗ GO TO [E] REM O^ CLOSE # PAPER V[E] RANDOMIZE [I]AT  IF AT sh SAVE [E]4[E] PAUSE 4@[E] DIM [E] PAPER @[E] INK 4[E][S]4@[E]EXP [E]INT USR  OPEN #[I]SQR  STEP  CLOSE #[E] STOP  FORMAT  CLEAR  FORMAT H OPEN # OUT  RETURN  [E][E]w▚[E]ABS GPEEK TAB 4▗ IF CODE VAL  LIST =[Q] REM VAL [A][Q][Q]@[Q]H[Q] [Q][Q]$[Q][D][Q][Q]<> LPRINT [Q] CLOSE #[I] FORMAT  CLEAR  FORMAT [Q]/ STOP  OPEN #[Q][Q]IN ?_ RETURN  NEXT  TO N LINE RNDE. PRINT P CLOSE # PAUSE FN  CAT u PRINT ▝ATTR  CIRCLE  RETURN c~>3> STOP  MERGE > READ ] ERASE  LPRINT 3 CLS  RESTORE cE RUN >LEN  LINE  CAT INT ( OR [P] CAT , RETURN ▖ TO [E] INVERSE CODE [O]LN  READ c[Q]?gwV:▟@ PRINT U PAUSE PIb[I]S[Q]dpTAB S[G][Q]|[Q]1 SAVE [Q]c LIST [Q]<= LPRINT [Q]STR$ [Q][Q]>[Q]?[Q]+.4 OR KSIN  INVERSE C65hc[Q]VAL ?^ MERGE SGN  BEEP @8yRNDSCREEN$ EATTR ▝j RESTORE b REM  RESTORE [P]▗[Q]ATTR  SAVE %> CIRCLE ,EfUSR  VERIFY  LIST POINT  LET `TCOS CODE  CLS [K] FORMAT ~ READ ?1 CLEAR USR  CIRCLE ~L[Q] DRAW LN 1 FORMAT ?EXP  THEN  LIST A LPRINT c[Q]STR$ <=[Q][I][Q] BRIGHT >& RANDOMIZE [Q]|[Q]w[Q][P]6OR NEXT <@ GO SUB GJT[M]E▚oPEEK , THEN .ATN  COPY 9[K]W[R]fPEEK  CLEAR - BRIGHT / BRIGHT  ERASE ,|ATTR Xr[F][R]7VAL$  GO SUB © INPUT T; LOAD [R]E LPRINT  LIST |upINT sp;y LLIST NOT  BRIGHT  POKE & LOAD =^p[J]o BRIGHT  LOAD ▙3 DIM h7U[H]w5A;[N][Q][N]?PS_[D]PI ${q BRIGHT j PAUSE [N]{/ CAT  STEP  BRIGHT  OR [F] PRINT J6~W COPY [F]POINT  NEXT POINT  MERGE PI DRAW USR >f▜ INPUT ATTR ` MERGE xf PAUSE UATTR  GO TO  STEP 4a[[C]▙N*w LPRINT  BRIGHT  GO SUB < OUT  FOR YSTR$  DRAW &SQR AUSR  FORMAT v MOVE INKEY$)P©jUSR CHR$ TAB  AND  LPRINT dVAL$ RNDUSR FN >INKEY$ POKE ACS  PAPER USR  LINE GnUSR @_ GO TO 2USR  MERGE  CAT  DATA USR  LINE  SAVE ` RETURN c TO  LOAD oASN  CAT ECOS /E IF  PAPER "TAN  AND  DIM n[D] NEW  POKE #[O]ATTR [N]USR  COPY  MERGE _)USR VAL$ Y GO SUB l* LINE PI[G] CONTINUE  LIST  AND  THEN  VERIFY [E]▝@POINT  OR  REM  BRIGHT KcVF PAUSE .S BORDER INT ▛+▞ OPEN #USR LN  PAUSE  COPY  LLIST  RESTORE K USR SGN INT [M]<>Q INPUT [F]'[J]<=INT  NEW @"3TL[Q]POINT  INPUT  CIRCLE ▝PICODE  OUT ▗[H][kATTR USR  <[D]NOT [Q]LUSR  LET  OR rUSR WAT  NEXT  RETURN POINT #USR [L]mx▖[L]6 PLOT  USR [Q])AT >=<= DRAW  COPY  SAVE K: VERIFY $ SAVE 2▜mp NEW WSGN  COPY  NEXT [K]ZUSR [Q]USR J[K] VERIFY [Q]▖ CLEAR  CIRCLE ?PI▗CODE  LINE $ INK  IF VAL  SAVE  GO TO  OPEN #|ASTR$ EXP EXP  LIST  PRINT USR `OgUSR +`ATTR  DEF FN  STEP   RETURN ` GO TO g RETURN  NEXT  BEEP SCREEN$ USR ]LEN <> CONTINUE  u REM T.[J]▛USR  DEF FN  ERASE ZUSR ▙USR FN ABS INT k PAUSE PEEK  RESTORE 3 SAVE  NEW  NEW PEEK e▝CHR$ wPIa_RND CONTINUE PLN [K]_USGN CHR$ USR [J][U] FOR INT  PRINT [Q]rqPOINT USR  LIST ASN  MERGE  POKE c▖[P] LPRINT W[F]xPOINT  CIRCLE  FOR @ CONTINUE v@> PLOT  J[O][J]9@[N]$,q[O]▝g[U]NOT ~ MOVE YLYiv:ATTR ng[N][P]©[G]!0VAL$ =($?[B]~<>:b4▜ASN >=&g PAUSE NOT POINT /yAT (< MERGE w OUT O%x2[I]ATN  MERGE ▞ CLOSE #▗RCODE COS  OUT x REM VAL VAL$ [M].6▚ THEN INT [F]1/~r CIRCLE q▜ AND of DEF FN TAN [F]g GO SUB [Q] FOR wW-^▜3ABS  LLIST  ERASE NOT <=ATTR ▜ CAT ABS  LINE [P]ACS !ATN  RUN VAL$  STEP yATTR $ OPEN #[ATTR n CLS SCREEN$  PRINT IN .~ CLEAR  COPY  GO SUB y# PAUSE fIN  THEN INKEY$ CLOSE # PRINT  CAT ▙PI  LET 5$<> AND  RUN  RUN >mSGN  PAUSE ]CODE  PLOT  j6$>[J] RESTORE  CAT  GO TO kIN STR$ 2▝ATTR <>PIATTR  DIM ` CAT wN: NEW Q<>.0 STOP ▜AT >= >INKEY$DY LLIST  INPUT c^,V COPY 5(2 STEP cLEN [C]AT 7COS [Q]hSIN COS n} AND  BORDER 7E THEN n[T] RANDOMIZE >= GO SUB _ NEW O DEF FN :nvVAL$ ▝w.Y( FORMAT 4 COPY ▜SIN ~ RETURN  TO AT  LLIST ATN  IF  DRAW ) INVERSE COS s,r REM ▛[J]d IF [T]PIxT READ -~ THEN ?CODE ▜ATTR ,~O NEW wyACS CODE ▟EXP INT [Q] GO TO O AND  POKE #<> RETURN  LPRINT 0$ GO TO  LPRINT  FORMAT  LET  LLIST USR ,VAL OL[E]SGN  RANDOMIZE SIN [E]LEN [E]yN#FsC9c RUN TAB [M] VERIFY  OUT INKEY$w3LEN USR [I]UAT  FORMAT V▙ FOR iINKEY$ DRAW [T]UAT Y▛ INK VAL  NEXT SIN VAL LOD[B]Ga DRAW !,pT-▘PI2ATPEEK 5 RESTORE USR  RETURN  LLIST OUSR J▙<>[M] LINE  LET  FORMAT  OVER N PAPER LLEN OSGN ~C[P][I] SAVE  INPUT [ GO SUB  CLEAR ATN ( LPRINT  LET | RETURN VAL$ ATN Y_ATTR rVgCODE m#kIN hfV FOR 5o BEEP  AND _F[P]/[A]V[C] PLOT  s BEEP / READ [L]a CLS ▟[R] MOVE  NEW  BRIGHT `▟3Q COPY   OVER IN  BEEP [R][G]<> STEP  REM ▝SLEN ~/[R]PEEK [N]INKEY$C[L]F [D]SGN  INPUT  STEP SIN ,ACS  RESTORE [G][O] OUT 6 CLS  BRIGHT  NEW <>[H]6 FOR  LET [L][O]ATTR  OVER  DIM [H]7[T]▝(5 CLOSE #IN ▚ OPEN # GO TO a<>ACS O<>OABS SCREEN$  IF NOT ~ATN >=▚w=▝Ff!AT  FOR ? RANDOMIZE ▚04 RETURN [B] ▙<>I CLS  FOR  BEEP ▜ AND O DEF FN COS iVAL$  GO TO . GO SUB CHR$ ▟RND ERASE V>= MERGE  DEF FN ATN ' DIM N STOP wF FOR n[F]s MOVE  RETURN d BORDER ) RANDOMIZE &<>]LEN BSIN [F CAT ds VERIFY SIN /PI CAT j DIM Y&:6[L] RANDOMIZE ATTR [N] COPY [S]INKEY$f▟AT  DATA $^& LOAD  COPY  REM  IF  OR _/wo OR  FOR  NEXT u> GO SUB y2 THEN v[O]AT RWS[P]}STR$  OVER INT $!6f,CODE  DEF FN TAN  NEXT T[O] MERGE ~ THEN G[P]* OPEN #[P] GO SUB [Q]~c PLOT  M STEP Fa OVER  PLOT  <>z OUT .w PRINT ABS ▗3[K] NEXT j OPEN # THEN  THEN $ THEN POINT SGN  LOAD FASN  DEF FN 'o PAPER COS %[D]N)3k VERIFY  MOVE f[L] IF F[A]STAN POINT xATN m INPUT SQR mVAL$ [O] PLOT  mV [L] INK N BEEP &VAL$  GO TO 5 IF COS %~ ei[C]$ LET  CAT <[R][N]▙[A] OR  LPRINT  COPY [G] RANDOMIZE ;SGN N THEN EXP [N] FLASH ~[J]r[D]Z RETURN (r[S]ATTR M* STOP  POKE PEEK  CIRCLE SQR ^>= STOP  OPEN #v COPY ,5 N POKE - NEW [K]ACS BIN +ASN  FORMAT  LLIST e LINE AT  CLEAR R STEP SCREEN$  SAVE [G]eSCREEN$ 5Jy, NEW n CONTINUE 5USR  OUT  PAUSE L GO TO ▚ RETURN  FORMAT -j▝"/ COPY 9USR L DEF FN [G] LPRINT ASN CODE wATN  STOP  GO TO  GO SUB  NEXT 51 IF  OUT LN  SAVE  AND  LLIST 7 BRIGHT [I] NEW n NEW g=SQR `| READ  AND ATTR K LET [L]7 COPY [T]gATN s3zv RUN PEEK ▖Uv CAT & SAVE  DEF FN  CAT zRND© INPUT Y/: CLS  OUT Y CAT BIN ATTR = FOR [D]|gAT gS@.n POKE  RETURN  LIST W CAT  STOP  MERGE =▛ PLOT  PEEK COS l]POINT u[H][O] PRINT ▙▚ VERIFY COS ©xqk CAT ze_kWZUK[=GCMkC< CLEAR 5COS [O]20 DEF FN  MERGE -*b&Y CAT $"= FOR  AT gs PRINT [F]VAL$ *<>COS ATTR RTAN W THEN ^TAB IN  CLEAR [B]m[T] CIRCLE F DRAW ~g OPEN #[A][B][N] RUN IN  CIRCLE =SQR  GO SUB ASN -AT g>g[A][O] PRINT [U]LN  INVERSE COS  STEP  READ  LET ACS COS [O]*Q{ VERIFY k▜[D]▘©] OUT Q▖ DATA [F]▗STR$ [P]ABS zOLH▟JMOINKEY$ATN [F] IF zSIN  OVER VAL C@<F RETURN <> FLASH ▗AC▙ DEF FN  RANDOMIZE ?▖ BORDER SIN ▝<A BEEP ESGN d DRAW [B]cj ERASE  BORDER 4 BORDER TAB HMTAN Q▗QaKASN  NEW fTAN ▝_2LEN VAL  FORMAT  RETURN  GO TO EGH' COPY  PAPER <=GE> CAT  OVER  OVER  RETURN  NEXT LEN [D]$COS ~PEEK -(BIN |+? RANDOMIZE SIN  BEEP LEN 4 INVERSE  FOR ▞[D]< CLS  NEXT V INPUT  STOP  BORDER  DEF FN  READ  DATA FN © PLOT   SAVE [B] DIM NOT ACS  VERIFY ▟ TO Zy DRAW  BORDER [E]USR 6 OR rl▚▚`| SAVE ! RESTORE ▟CEXP  GO TO  RESTORE : MERGE [N]INKEY$ CLEAR ▖Au VERIFY J/PEEK z RUN  RETURN  COPY  POKE  DRAW  STOP 0VGQ+5 DRAW  BRIGHT T@O+▞ STOP ▚~ COPY  PAPER K COPY SEXP [M]< MERGE [L][C]CODE  CLS  DIM  CLS  CLEAR T AND  FORMAT VAL$  AND  READ PI5▟0 LLIST  CLEAR Y READ  READ 1 RESTORE ▟▚O08k CLOSE #45TAN AT .[H]INT  GO SUB  RESTORE ▖ LIST  NEXT 0' LET LN  CONTINUE  RESTORE  DRAW 9sjEXP : RESTORE < MOVE  MERGE 2pINKEY$ LLIST SCREEN$ CODE $ COPY M$/[B]:[I]ATN PIBIN  DEF FN lVAL$ ACS CODE  PAPER  STEP VAL$ [J]PI>= CLEAR  STOP [K]*[M]o[F]g RANDOMIZE v STEP  CONTINUE ACS ![M] INVERSE 4<> DRAW yATN =▜ AND  CLEAR o LINE  MOVE #f PAPER " BEEP >q▙ CLEAR [L] INVERSE <> OPEN # RETURN  STOP y DRAW  INPUT  DRAW [O] LET  g<>ATN ! PRINT AT 1@LZCOS [O]hyPI MOVE ▗▙ IF  COPY  DRAW >= REM [P][G]POINT  ERASE  NEXT [P]d2 CLEAR  READ POINT  ERASE SPEEK  IF PEEK [N]POINT PEEK z NEW I PAPER Y9 CAT ?h ERASE SCREEN$ ▘nZF READ 2Zn▘[G]J NEW SCREEN$ PEEK  ERASE  NEW EXP CHR$ <>[STR$ ▖ REM >=VAL  INPUT y- MERGE [L][N] ERASE /VAL$ INT [H];<IN  ERASE  INVERSE ! POKE  COPY ▟O9 MERGE  RANDOMIZE STR$  FOR  BORDER ACS  GO SUB R~ LIST 8T]LN  FOR  INVERSE V[P]/^ RANDOMIZE  LLIST  LIST  DATA  DRAW ; LET  INVERSE w RETURN  OR # RUN  INK IN  NEXT  LLIST ▛NOT  INK IN e)A8 NEXT VAL$ INT >8▞LN  STEP e SAVE _POINT   GO SUB EXP  LIST  PLOT  (Z DEF FN  COPY  INK O CAT ATN  GO TO >8 OUT ( RETURN  LIST <▘0[C] > LOAD [C]g LPRINT )[L]IN  INK & COPY (g; CLEAR ( LET  COPY o GO SUB VAL [U] INK  THEN [Q]:7 LET  LLIST  LPRINT  LIST POINT cPEEK  LET  VERIFY oO INVERSE o[K][Q]▜#EXP  OVER ~▘▙  LIST IN R PLOT  > DRAW ;STR$ HG? COPY i[F] INPUT  PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE  DRAW  TO [P][P] OUT |[R] USR  THEN © RESTORE  STOP  REM  FOR  MOVE sBIN #rK STOP =  SAVE  FOR 0[L]!X' INK <>zATN O><0, PLOT   LET  RANDOMIZE M/ STEP )▟ MERGE ▙m MOVE $ GO TO [P] LOAD c FLASH <> IF  LOAD  DIM  INVERSE  RESTORE NOT /=!USR ^ NEXT &© LINE i< RESTORE  RUN  LLIST  MERGE  CIRCLE  DRAW | MOVE <> NEXT 1[E] IF TAN  NEW  STOP ` MERGE :[ NEW -$USR h[O]xH STEP ©q[A]$)= MOVE [ LET 1 PRINT  INK '[N]X"[O] GO TO ^ CLEAR >.▟ FLASH  TO  TO f<[P]( GO SUB S LPRINT / VERIFY  CLOSE #C STEP [O] RUN  PRINT W RUN ? LET  PRINT /NOT  NEW K▝m GO SUB NlN PLOT  ` NEXT  s CLS e LPRINT MENU    C@@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.HR n AND  COPY NOT ^_j`2abLN g READ <cBIN [dh DRAW m[O] CLEAR [S]/AT  VERIFY COS ACS USR  LINE  CLOSE # CAT z OVER  CONTINUE  READ F PAUSE  DRAW ]▗©h ABORT CAT ?(Y/N)©[F] FLASH :` LOAD ©PAUSEN'p<> INPUT PREKMSA POKE YK DRAW Y RANDOMIZE  FLASH J2 OUT U DRAW RUSR ATTR FEBVyMn}CH6A THEN IL<= REM  DATA c TO  CAT  LOAD UATTR  CAT X SAVE Y<> CIRCLE UG[F] STEP ?|/PMBV BRIGHT  RUN ROCT? CIRCLE NOT  GO TO NV[K]INKEY$ RANDOMIZE DCATN  PLOT  N]AT g[[D][Q][O] PRINT SIN PEEK  VERIFY COS  AND  ERASE  INVERSE  RESTORE 7z PRINT  COPY ^AT g(4[O] PRINT @L VERIFY COS Ykt▝ CAT z[A][L] TO FINKEY$LN MI▚?o=OTA.1 NEW  RETURN ATTR  OPEN #▙[2VG<[L][N]SP[T]I CLOSE #1AR TO xKfaLiR▟[VZ#QU1]>=WI BORDER CN PAPER ASN IN fCOS U AND  DATA SQR POINT  PAPER [K] LET WYRNDK.[A]IW9J[F] CLEAR  REM  MOVE  GO TO IEXP D&[N] VERIFY O[a THEN  OPEN #`▖NfVAL YL[M]m NEW  LOAD K<>S OPEN #`[C]PIQ|([N]+ BRIGHT  PAPER TUCY[D]|9 OPEN #V LET  TO IRGSIN [F]© STEP C3OKHHj+[A] IF w<>[E]COS POINT [J]w8 FOR CKe▚[D] MERGE X[I] LET  CIRCLE L▙[G] CAT ▞/SQR TAB ~<>P{3H LLIST  OPEN #1<=RNDGEABS U[N] PRINT  LPRINT  IF 1sCOS [R]FSQR ▜VAL$ JD OVER ABS X IF 186-,[S]Yr FORMAT ;NS INPUT uRND▞[F]*  RANDOMIZE c[C]DDNOT [U] MOVE INKEY$4BF[K] INVERSE KATTR G[S]0 LOAD /SUM FORMAT INKEY$.SGN [C]1[D]e OUT  LET h[O]{zd INPUT r STEP  INVERSE MPEEK .[N]So? MERGE  PAPER IN OF CIRCLE ITAB ATN i BEEP ▚-9+cLN <>I FORMAT [D]>=E AND SGN S▚0 OPEN # AND  LPRINT 1x BEEP s CLOSE #COS [I]#xPs STEP  DATA BL+<>RND COPY 7NOT A COPY k LOAD INKEY$ ERASE "B@#[G]7D PRINT E OR  FOR XBIN  TO j OR SGN CRNDINKEY$ OPEN #F>INKEY$POINT 0U)>= BRIGHT IN c▗ CLOSE #M[U][T][L]j FOR tINKEY$[G]7PEEK x NEXT ,_TAB  OVER [U]VAL [F][K]▞DSTR$ ▞ TO 71AT  PAPER RTAN v<= STOP Xv GO TO 3Y BEEP ©h MERGE  ERASE 7[D].e ERASE [T]TAB F{[ FLASH NOT !~ COPY [&"MINKEY$>=Y INK  OPEN #2k OPEN #S?}o▛ DATA [H]R[K]EXP "C LLIST POINT Fm STEP  LPRINT [L]$R#wK[I]TAN  NEXT W#INT 2 LET  CAT [I]/"[T]z>= OR  MOVE fSQR |'VAL X FLASH  GO SUB 4<>1=GRND<> CLS T"W#a CLS Q INVERSE ASN d▖SQR L2g[S]<>-S CLS  RETURN kSQR y POKE POINT ATTR X AND IN |"▝CZFACS e:VAL$ 1 BRIGHT sNYSfPx POKE STR$ [I])[D]0TAN -)Zwa4NOT ASN XJ[U]Fo FOR CHR$ RND DEF FN SCREEN$ 8 BORDER <=[Q]VAL$ INT g STOP O:DZ)TEXP [R]y[K]8_o$ NEXT  BORDER INT RND VERIFY PIA"]w[D]w^ REM IN [K]~&[S]8qu INK  RESTORE  INPUT [T] RETURN ▛ DIM ▝ ?%▗POINT WESIN Z[E]USR ,SQR 5![H]UP DEF FN NOT PcEXP o[-;▙ OPEN #RND DEF FN t4BIN OINT  FORMAT  COPY YW/>=w LIST  FOR q_]yINKEY$[R]bTAN MW=AT [G] COPY ▝ PAPER  POKE nBIN eLLN [pCOS  MERGE zLEN !* MOVE <=$[I]f[R]STR$ C FOR 2> NEXT RND OVER  THEN ▞A$:+d DATA [K] MERGE U! IF 5`gO+▛YBACS CHR$ Dp<> GO SUB 'STR$ <cPIZI CONTINUE SQR c LINE SS▖R55 RUN : FORMAT [F]N FOR 5[G] RETURN STR$ ▘SQR POINT MVATN [R]PIINKEY$ POKE [T]XSIN  RUN .#4 PLOT   FORMAT [D]* LINE  LOAD  FOR  STEP qVAL$ ▚ CAT [N]&ATN ? BEEP K LET [O][C] INVERSE v[A]<=[M]CHR$  VERIFY y GO SUB f>b STOP 7[C][C]  OVER j READ  RESTORE  VERIFY LEN MPh% LET ESQR  RESTORE [I]b VERIFY  AND eoBIN  CLOSE #I[F][J][S][A]gv POKE K DEF FN [R])x RUN YGx)INT ▝ INPUT  INPUT w INPUT  CLOSE #[A]] REM  INVERSE C=$ INPUT [I]wd INVERSE  DIM v<YCOS )STR$ LEN TAB CRxM[ CLEAR tASN BIN [F] VERIFY SCREEN$ RNDrW&x OPEN # DEF FN MTAN ▚/2?NOT 5.[D] CIRCLE [C]bL©W MERGE USR $▛iU[S]VAL$  PAUSE [H]YvH,PVRk[O]M LOAD m_R RETURN 7~bEXP _cCOS  NEXT kds TO {" LOAD eINKEY$ POKE [K] DRAW ~▘#Jvk(O{7[C][R] NEW 5Y<SRNDSTR$  BRIGHT PEEK + THEN  MOVE ;rPI>=r PAPER NVh THEN  REM  READ u[M]SATN FN n_ABS  THEN   INVERSE ^ATTR  NEW ^)▗ CIRCLE [I]< PRINT u RUN ATN  OPEN # INK Oomw[L]WCOS ACS COS wlz VERIFY y▞[F][N]Y CAT POINT TAN = FOR SGN  TO  VERIFY SQR g STOP  INPUT ^g=* PRINT AT 7KTaCOS [O]p{ CLEAR  BEEP ▚[J] GO SUB SQR  GO SUB  FLASH  THEN ,D▝[A] OUT PI CONTINUE l INPUT nPOINT "l PLOT   INVERSE POINT  DIM INT SQR zUSR IN /):d[T]PEEK SQR [S][T] INVERSE  PRINT *▝ RESTORE ! BRIGHT [Q]KVAL  VERIFY  DRAW SQR [Q]^LEN  LIST r7[P]ABS wINT  BEEP [M]TAB {h PAPER TATTR WN BRIGHT SQR RND*[M] FOR  STEP SCREEN$ -nPI'MtG[N]M CLS g CLOSE #USQR [P] CAT  LET CHR$ ▜▝ABS t) INK TAB © STOP /TAB . RESTORE PEEK AT  INK 5%CHR$ [K]`C[F] FLASH [P]INKEY$+& BEEP [R]D ERASE U OVER ?<> PRINT Q OPEN #b[J] FLASH X BEEP VAL$ VAL$  PRINT mINT [B]USR l< GO SUB ▙[P]ASN W MERGE UT)RNDSTR$ N RUN LATN +PI LOAD  PRINT 2▙[R]VTAN wSQR  DIM J▟7a/([C] CONTINUE  CLOSE #VAL$ <z&ABS FA[L]ZJ PAPER *SIN ▚ BEEP VAL$ 7 DATA jRND DEF FN FN 1f_D%&5ZNOT  CLS  INVERSE h▗<=eR[T]7 OUT }SQR FN ▛wNOT ASN <= STEP  PRINT TAB T LLIST .[O] ERASE  GO SUB  LPRINT  RUN  THEN  VERIFY [P]?<>RND CAT D[D] LPRINT  LLIST O BRIGHT <ABS [S]n<> INK <>IN <>ATTR _! LINE '[J][F][U]VAL$  REM [STR$ [I] OR  DATA ATTR  TO [R]zRNDd5SGN ATN vjBIN '[B]r[M] LET  LINE c^ MERGE  BRIGHT TAB E[K]1▚q CLEAR Qn[O]LEN [U] MERGE @"[F] DRAW YPI[J][L]_ RANDOMIZE RND[P] REM mNz[J]u CLS ▗ CIRCLE )v MERGE e[H] LINE ASN COS CEXP  LET CHR$ yX STOP  RESTORE AT { CLS ▛, FOR  GO TO  MERGE E<=gJSGN zJSQR |v saINT c RETURN  CONTINUE IN  RESTORE  BRIGHT ~uj# VERIFY SQR CODE -SIN  H6k>=E[Q]}ABS |ATTR ▗ LINE  PRINT  [R]/=@NOT ▜pACS  NEW  NEW AEXP jCLx FOR [L]IN  OPEN #[L]W ▙ BEEP mDX RETURN  PRINT RND LLIST nwINT TAB INT C OPEN #[[H]<= MOVE U [S] OUT R TO  OUT R▚SGN  COPY P PRINT  REM [E] RUN yFATN z AND f$ LPRINT < POKE  STEP H SAVE 9 AND TAB Ys MERGE CL PAPER  GO SUB }pRNDB OVER  MERGE  OVER nW STOP FSIN POINT  PRINT ABS < CLS  SAVE  SAVE  AND [B]j INPUT &/fACS <>V]POINT +[I]{91vQ GO SUB  CLOSE #@ OPEN #e= FOR <>.NOT  DRAW B INPUT ? NEXT ©c RUN  RESTORE dRINKEY$tABS [A]TAN TAB ^▚ NEXT ▞ BEEP © STEP ;/<= MERGE ACS F} FLASH ;SGN 1BASN  BRIGHT  GO SUB Rn]-] THEN  GO SUB [G]7 MERGE  THEN  OPEN #TAN BIN [D]V)>=mL SAVE  PLOT  )C PAUSE Z LOAD .UVAL$ a.COS IN T TO vATTR LEN sSQR [ RESTORE ATN 7SIN RNDhsFN PLEN  PAPER  INVERSE Y_PEEK RSW▗LN c LPRINT SGN *J8ZLN ▘ BORDER  GO SUB [K] MERGE zfULLEN [-_`SQR  INVERSE ABS ▚H+C!=B LET  TO ,8+ INK [H][F] INPUT v LOAD PySQR NOT [L] DIM  CONTINUE VAL SQR  READ - AND v<><] IF H]; INVERSE W THEN N'[R]R<>Rb OUT l TO INT ]SGN I NEXT L[R]l IF  AND p OPEN # COPY e RETURN %0F=/s FORMAT j[C]mYP▟▝▙G[P][C] INVERSE E OVER MpA INVERSE  RETURN q FOR  NEW r[P] VERIFY [N][Q]aloSTR$ dI MOVE KPEEK USR NOT /I▟H PLOT   PRINT ! FLASH ^VAL _[M]`▖atbc[H] OPEN #COS d[E][J][S];0 RETURN  FLASH ABS  INVERSE  BEEP t(SM▝ READ  FOR 6 CONTINUE  STEP >=T[O]t~Q}r&SGN <>INKEY$G[H]▗[A] OVER SQR ]T& LOAD Z CLEAR [U] DATA ABS  LOAD  VERIFY  GO SUB +k LOAD }% SAVE G BRIGHT } DEF FN  INPUT ▟ LINE [M] OUT SQR U OVER [N]]Mko VERIFY CABS 7SCREEN$ COS [O]ATN <=z VERIFY  OPEN # FLASH  BORDER  PAUSE v CAT  IF ^ CAT z , FOR YCO[gg=s PRINT AT ▙[L]SCREEN$ ASN VAL [O]USR  FORMAT  INVERSE 5PEEK ATN  NEW ] PRINT  GO TO UM[F]+ LIST :WJSGN QmPEEK  BORDER 91 DEF FN -0ATN [G]9 ERASE B[U]WE9VAL  LPRINT ) TO  BRIGHT B STEP n4O` FOR SQR B[I]{ RESTORE  INPUT DNOT gEXP  CONTINUE [L]▛[P] NEW COS  COPY  MOVE  RUN w INPUT  CONTINUE  LET  MERGE  STOP TAB  VERIFY ABS I MOVE  NEXT ▘IN WSATN ACS x INPUT ▛o NEW K CAT |wITAN oGr+PI INPUT O MERGE FUqSGN }VAL$ SGN  INPUT N[F]CODE `Js DIM _w[I] INPUT E STEP P GO SUB S DIM V|8[F]R ERASE [T]z FOR +IBATN  BRIGHT [S]p[S] GO TO  LINE ▟ DEF FN ▛ OVER [L]n DIM  CLS ?U OVER  INPUT <[F] THEN  INVERSE BJ&POINT ACS / RUN PIx9 RANDOMIZE [C]Y3D BRIGHT CHR$ .SGN  GO TO wf=POINT  LET [F] RESTORE  LINE ABS P" LOAD  CIRCLE  FOR  OVER Q[ LINE ! MERGE <>SGN LEN  POKE v▘W^EXP +IN SCREEN$  OUT ]INT  ERASE N PAPER ATN K▙ABS [▖[C]IN . RESTORE SQR +vWH#^ RUN  CLS {ATN cO,<f[Q]4$ OVER $k<= STEP ▚ LOAD e CLS C+ INK xs READ POINT RNDAT [C]SGN  OVER # NEXT P% LPRINT AT  SAVE *k REM s+!SQR b[H]EXP 9u GO SUB  DATA 1)IN  CAT ; NEXT p{EXP 7[S]MO!)W FORMAT c FORMAT [Q]A*RND<> CONTINUE %9t?▚ LOAD  SAVE _J%o SAVE ? PRINT ACS  OPEN #[P]^▖ GO SUB ^[D]{/@.VAL$ ;LN  CLOSE # LIST [E]ASN  AND COS - CAT 0Uq NEXT  RESTORE INKEY$[H]▘un CLEAR m▘ RUN A MOVE  POKE  INPUT w[B]x INK  GO SUB opR. FORMAT ACS [G] SAVE N PLOT  ^TAN  GO TO ? RUN V▙[C] OUT [O].VAL$ ▞X CLOSE #!INT SQR  IF [A] PLOT   PAUSE  LLIST (d STOP 0R[R] INVERSE [R] STEP : BRIGHT  INVERSE /0 REM ▟ RANDOMIZE ▝<= INVERSE ABS DkA CLS %SGN  RUN  PRINT [T] THEN  BEEP PI[N] INPUT  DEF FN INKEY$ LET  IF [F]j1SQR  GO SUB  MOVE SQR i IF ©[O]JACS  STOP  GO SUB [O] INPUT  CAT  THEN EAT uZ▚ RETURN  MERGE ATN  RUN 6$ IF INT IN [L]y RESTORE PEEK h[R]COS wASN a# BORDER [F][K] FLASH [K]X? OVER  DATA  ! LINE d OPEN #[H]H OVER [N]W PRINT USR  FLASH #PI READ  THEN  CAT 5~*PEEK " PRINT INT  OVER  TO SCREEN$ [J][N]]S AND EXP NOT  READ ▛▟[I]CODE  CAT  PLOT  [J];1 DEF FN  FLASH  PAPER [U] STEP  LIST 1 TO [D] INPUT (x READ 7VAL$ [J]<~FN INKEY$ BRIGHT COS K[E]VEXP ESTR$ USR  THEN [T]9IATTR ABS  CLS CODE [U]D THEN tATTR lINT NOT >=NOT 7 OR ASN z GO SUB  VERIFY ]g OVER VAL$  AND  INK [G]y BRIGHT FN INT ATN +SQR P5 FORMAT | VERIFY  LOAD G OUT j4[B]PI^_vroM7M_ RUN ' OUT  GO SUB  STOP ATTR  OUT <=EXP [m[S] RESTORE ABS  BRIGHT >=]F VERIFY $INT 7▟"EXP  LINE ATTR  READ ,[P]ACS  RESTORE [N]▜  OUT  INVERSE zw CONTINUE ASN  BEEP [K]  STEP  LIST  RETURN  FORMAT e FORMAT 'w{ LET vo[F]]o NEXT d RUN V GO TO  GO SUB 1a$ SAVE "FCODE S PAUSE  OVER ]!POINT ! LET "CODE  NEXT m OPEN #PEEK SQR UATTR [I] FOR  OUT s IF  DIM D RUN fRNDi_`iD DIM y LLIST J LLIST [H] INVERSE [BIN 4PzTAB LEN  CLEAR Cd RESTORE  NEXT Lv CAT F FLASH ATTR CCHR$  BEEP nG{>=^ TO )h SAVE  INPUT WBOwE INVERSE sZt BORDER YPEEK = THEN  INPUT STR$  NEW NOT VAL CODE =MESSAGESC`  hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.HR0N~y+ CAT  CAT  COPY "%& !'6[> STEP  /!USR ABS H POKE ^@ GO SUB VAL m[A]M[R]- COPY u CLOSE #< LLIST [O]*"4▝ FORMAT 7> GO SUB G{_ABS [<>[B] RETURN  CLEAR " INVERSE [a RANDOMIZE s[C]CODE  OVER  OR  MERGE  NEXT IN  STOP  MERGE [P]^ CLEAR CODE ,oCHR$ 3©[O] CLOSE #k LET © FORMAT  NEXT NOT  MOVE STR$ 1 RETURN NOT  BRIGHT [tAT  CAT  CLEAR  MERGE C STEP N COPY [G]NOT [S] INK 3}[N] ERASE w? OUT  STEP  OPEN #NOT ▝o[C];H PLOT   PRINT  OVER  CLEAR © GO SUB y FOR 3I[R]!la_`EXP  CLS  GO SUB u! OPEN #SQR  STEP IN dPI(!SGN  CAT ©2<>▞ SAVE  RETURN  PRINT  PAUSE y<>▞:/ INVERSE !}nRND BORDER f'ASN ^ INPUT  OUT V>~=M RANDOMIZE POINT [L]▟ MERGE > MERGE  RESTORE INKEY$[[B]COS  LET IN  FOR "e GO SUB SMf2<=~:,/ LINE [L]* MERGE #> COPY d< GO SUB B0 CLS S AND  IF CODE  ERASE u} DATA l NEXT n AND  RETURN  RETURN B TO g| FLASH ▘[R] GO SUB VAL !| FORMAT [D][B] LET /XSIN  CLEAR  STEP 4 PAPER VAL$ S:IN `| PAPER f LLIST CODE fh>= STEP ' GO SUB 7o. COPY (#o CAT f MERGE w+ LLIST  OUT COS  BORDER #POINT LEN J` CLS <>▟1 LLIST  SAVE OCOS ASN != CLEAR % READ  LINE f STEP p BORDER SQR >=t CLOSE #^ STEP rkk DEF FN  AND g VERIFY ABS ^ DEF FN  CLS  RANDOMIZE &▗[N]3 OR  RANDOMIZE  OR LEN f/ STOP ;USR  LOAD  PAPER ! BORDER  MOVE  GO SUB < PRINT 8`M8&=A8 CIRCLE 7R(78[M]USR ?c7 AND IwI CLS CODE PI LOAD  OPEN # MERGE n CLEAR  COPY l CIRCLE NOT ▝~ ERASE B/o&)J RANDOMIZE ^#V FOR  FORMAT !Y?nE<>! COPY CODE  FLASH  COPY  RETURN / NEW  +|ASN  NEXT [T]ABS  INPUT  CAT  PAUSE  SAVE <>"@hW/ STEP C2@▖ PAUSE ▛!: CONTINUE ▜i+/ STOP  GO SUB  STEP ci© REM 1hZLN ;i>* CLS (RPLEN [E] COPY  MERGE  OR !USR  STEP  BEEP |STR$  READ LEN xBIN [U] CLS  MOVE  LIST  NEXT )ISIN  GO TO = DIM RND[A] STEP !SCREEN$  THEN Q)[U] MOVE PIe[O]^[I]POINT 'v STOP  INPUT  PRINT =NGt CLEAR V DEF FN M! PAUSE [G STEP h: PRINT  INPUT (/ CLS l`JGCHR$  STEP [K][L]PEEK Gx CLEAR PIP STEP [L]▛ STEP { GO SUB [Q]YL GO SUB (GCODE  PRINT lw[U][E]lulX STEP ac^lsINKEY$5 OR 5[J] LET ![K]s#iRND+<>CODE R LET  PRINT !j DRAW 7 MOVE  SAVE "[A] SAVE SCREEN$ 2?▟ STEP ▗vq[R] FLASH  MOVE  VERIFY FKbi PAUSE  LET <>▜ RETURN ~ STOP  PRINT ▜ PRINT [K]STR$  POKE e RETURN  MERGE * OR  PAUSE  COPY  OVER vPEEK  LET  THEN '▜oSCREEN$ <= DATA LN R)VAL$  CLS [A][P]r.P,-:POINT <RND RETURN >=RND READ RNDTAB [K][E] STOP TAB  GO TO  PRINT POINT HSCREEN$ TAB EXP z$[D]TAB c CLS pK RESTORE / CLOSE # DATA TAB V=JPEEK RCODE  LIST INT iACS  SAVE a PAUSE  LET =  GO SUB <>[I] GO TO  NEW ▚ OR X# LOAD >[H]_[F] OUT  NEW G'<> BORDER S!iUSR CODE 2VAL$ A<= BEEP [Q]zt< NEW ~SIN  FOR [I] CLS INT ▘▙ LET PI▟1POINT POINT POINT  OR INT t©1 PRINT yTAN NOT  INK  THEN R DRAW r PAUSE  READ [C]SIN U CAT  ERASE  PAUSE  DEF FN  THEN [G] PLOT   SAVE q DRAW [C]©4 PAPER  LINE NOT & LOAD [R]yi[O]0 READ j!QA6b{<:mQ[[E][E]os"BIN ▗ GO TO j/ OR ▗SGN gNF+ FOR  MERGE  OUT  CLEAR z STEP ; LIST  MOVE  CONTINUE PI LINE ej MERGE  RANDOMIZE ASN  NEW ~ MOVE  STEP  LOAD  MOVE : STEP IN CODE O~G NEW   DEF FN xA OUT  RETURN EXP (>= RESTORE  MERGE  STEP [yww▝8 CIRCLE  INPUT  INVERSE 96 COPY  MOVE  LLIST z GO SUB gEgIN pu LOAD e CLEAR  GO SUB  DIM c[A]a INVERSE  RUN b/POINT  RUN bIN oIN `CHR$ PIi[J]^|[H].VBIN 7 CIRCLE  CLOSE #.4mXRNDL"- GO TO b^vIN  LOAD n' CLEAR @{NOT 5m[G] CLEAR RND▚r CAT :, OUT [T]LN m[H].
  62923 LOAD _: LLIST j< RETURN  INT <= TO STR$ ▝ LET  DATA #[F]) REM 1 RESTORE  OR  INVERSE  LLIST  NEW  >2IN  MERGE  PRINT  STEP 9x LET s[U]▙ INPUT [E] LIST &T:C[D][J]PI SAVE a CIRCLE k'R[J] PAUSE M DEF FN k[I] AND l POKE j COPY [L]SIN   ERASE =CODE [G]▘ OUT  CAT d4/J CLEAR P▛ PAUSE ^X~bEXP  NEXT  STOP |xz[A][U]v>= TO U GO SUB  COPY  RETURN  RANDOMIZE  CAT  DRAW  PLOT   DRAW  TO  CONTINUE / OVER  FORMAT Cm[P] READ  CLS  RANDOMIZE [J] PRINT [J][P] FOR  RUN T RANDOMIZE  READ  PAUSE 3[P]{[T]9 AND  OUT [P][>= CAT w DATA  BORDER l NEXT sTAB #?-©[J][P]ATN 7[P] RANDOMIZE SQR ; CAT [B]L LET >=O BORDER  LET #0 PAPER  RESTORE ? CLS [U]$ MERGE C READ gU@ OR  DRAW  LET IN ?8USR <=gSTR$  FOR p[L][I]- RESTORE [C]NEXP ▚o`g~_@ PAUSE  NEW IN ~ NEW  OUT USR ,o LOAD  LPRINT U NEXT  LIST  CAT  DRAW ABS SGN  DIM >= INPUT [J][P]▙AT  INVERSE  BRIGHT INKEY$ RANDOMIZE  GO SUB  GO TO ^ CONTINUE g~ CLEAR  DRAW [J] NEW  FLASH  CIRCLE ▘LN [P] RANDOMIZE ed RANDOMIZE [J] RESTORE  DATA BIN  CAT N STEP <=ATN 0VKH▘ READ <=▗F9/ CLEAR  CLS  SAVE  AND USR  LET  PAUSE -;,_'!INKEY$ LLIST  SAVE INKEY$v[O]S TO  DIM ~INKEY$<=ACS COS a GO SUB y▛ ERASE ASN q|)s~▗[J] READ  DRAW tC4[P] INK INKEY$▘[H][A]c[K] GO TO VAL$  m&o POKE *. THEN  AND z7▖^SGN  THEN  FOR ! ERASE SQR TAB  READ [L]SGN #COS  COPY {  RANDOMIZE x RETURN 0r[G]} DEF FN >&> RETURN sO:@{PI( RESTORE C&k!SQR  LIST n NEW AT L(y2 LINE 7u GO SUB [I][O]AT  INPUT F<~" OUT tU RUN  GO TO  RETURN  " INVERSE  FLASH  STEP p CIRCLE .v CIRCLE q3SGN LEN TAB .0BIN  LET n OUT  RUN any GO TO ▚w PRINT  LOAD INT  INK  LET  PRINT POINT ;IN SGN nSGN 6EXP [D] PRINT  RESTORE  INPUT | STOP STR$  LLIST :LN k[Q]ABS 6/TAN : LET  GO SUB ` CONTINUE lD INK  GO TO ▛ MOVE  RUN oSQR ATTR  NEXT LEN  LLIST "BIN 4 RESTORE  AND  LINE <rRNDfIN RND[J]d COPY [B] OVER EXP SGN  NEW EXP SIN SIN  LET ▜ DIM  STEP CHR$  OUT m%4m=}PI! PAPER T[O]ASN SCREEN$ ZSGN [[] MERGE IN )▙ABS RND/o[E][U]z THEN v LINE  LIST $ LOAD nPI>= BEEP [O]▘ OUT  LINE [H]<>Zg7NOT  MOVE BIN n>=c[T] TO  FORMAT d NEXT  NEXT FJP~3?bv>=g NEXT `[T]"*2,USR )A.3▗ RETURN  ERASE ACS ) NEXT [IN oCODE GCODE O CLOSE #© DIM  OR STR$ y RETURN [N]8 NEW <> NEXT [N]m[G]boYgt▛POINT  BRIGHT [N]>PI[P]o REM * DIM q[K]"_ GO SUB !USR v*rCOS k▖! FORMAT CHR$ pG[K] OPEN # LET |` INK P MERGE [RND[E] BORDER [I][B] PLOT  2 RETURN (SQR [F]>= DATA oBIN  PAUSE 8[B]ACS [N]EXP SGN  INK  ERASE  INPUT  COPY LEN ▜©) BEEP PI[L]& BEEP [P]*[S]O^ _[D] STEP  CAT Dy SAVE : PAPER  CLOSE #X< GO SUB [I]PS[F]R▝tfGJdJ%G[U]iHNOT  CIRCLE  OVER [A]▞[B] READ  OR [F]g LET z2INKEY$v SAVE zU STEP - FOR OATTR  RUN ▖yS LOAD RND[L]©6_ INK NOT 9x NEXT *^[J]fp[P][T]▜2 MOVE a[T]Q RUN X@_ OR  PAPER s©U!N FLASH ▝s6 RANDOMIZE k FOR [H]NOT L1P PAPER C OVER k SAVE  MOVE <1 AND  GO SUB s CLEAR 11U BORDER  FLASH  MOVE  MERGE  RETURN  LPRINT USR  BORDER == COPY  COPY [SIN  DRAW PI CONTINUE [J] READ [K]:[Q] CLOSE # STOP u CLOSE #=COS  FOR [K] MOVE VAL ^ OPEN # BEEP  FOR BIN +▞ INK ACS  RANDOMIZE COS <><> LPRINT *Yzj RUN  COPY cXf^LN I PLOT  S IF PIy+tYskPI[N] COPY  CONTINUE m LINE FN  AND gLCzqb LIST  OR XNOT BIN  INVERSE R<>▖ THEN  PAPER !NOT -hx STEP xX-v#L1f-- PAUSE T5:Wq OUT [G][M]et▙ STEP  AND  REM ![L] COPY & COPY =>( STEP  INPUT ▗NOT  COPY (<>VU NEW [A]SCREEN$ BIN T THEN  FORMAT  CAT USR  LET [P] BORDER *NOT  IF  OR T AND $<>~}ATN N TO NL[S]>81B STEP &COS CODE  DATA "▖qeNOT  BRIGHT [D][N][B]CODE ▟XK5INKEY$[K][N]FN SGN " FLASH {[R]^CODE q6 PAPER  POKE  OUT <~#EXP Y RETURN  CLEAR   RUN $ PAUSE CODE <>G>Q▙<=CHR$ D▜Z_0 INPUT /"r FOR [S]©▗:r▗> RETURN Gl RUN O▘5 IF ▘ TO [Q] LINE  FOR } NEXT ▗y▗COS  STOP  RETURN  TO h STOP RNDvry/MV▟J LINE  LOAD {4#[=W TO  DEF FN DoFO~ VERIFY 0CODE  NEW  SAVE _ GO SUB S DIM sQdPI d NEW  GO SUB [-` OUT [ GO TO  LOAD  PRINT <r>=c OVER  PRINT <> RESTORE [N]9STR$ 5EXP  OVER [U]G LPRINT `$ CLEAR ( SAVE |O+(pf▖b AND ABS [P]ABS  DIM [I]© BEEP  LLIST  STEP NOT Lr2▟W▗G TO  NEXT ▗O LLIST [J]^SQR  AND NOT ` CLEAR cIN k LET !!VAL [Q]sSQR  OVER [C]ABS  OUT [C]VAL$ ; CONTINUE [C] PRINT IN  DIM = COPY  MERGE c~ STEP  INPUT s MOVE :TAB l* MERGE AT  MOVE  DIM ' ©^< NEW 2Ys[U]{+SQR IN ; DRAW  RUN >VAL$ ASN SIN COS  LOAD CCODE [N] OUT LN >= INVERSE  SAVE A CLEAR [S]2 RETURN [C][O] ERASE  COPY ):BIN 8 FLASH ?[PI(G  DATA  LOAD >= CLEAR  LPRINT ▞@L>=w PLOT   REM #▚ DIM  DATA Kwz3-ATTR Y LOAD ABS <>. THEN BN[J] ERASE CODE  RESTORE !LEN USR 3 BRIGHT l POKE VAL$ SIN 0 POKE  GO TO ZSCREEN$ kq PLOT  sPEEK _o FOR  PAUSE <>:/[K](/mNOT [M] CAT { NEXT M[L]'MI PLOT  u} INVERSE 52 PRINT t,[M] INPUT ▞ AND L" RUN RNDINT K CLS t/vNOT LEN  VERIFY ^z▜[J]fsmLEN -1 COPY  CLS v> COPY < RETURN $CHR$ ATN [I][R]5R*▗ CONTINUE  LINE f DATA SCREEN$  DRAW  PRINT  TO  GO SUB t LET (Xg2[H] BEEP F RUN wo CLEAR  CIRCLE ~C`[H]EXP t INVERSE ! CONTINUE  BEEP  REM C CLS FN r LIST +mF OUT W[L]o OVER  LLIST [O]WZ<W) CONTINUE POINT COS [E]f PLOT   POKE  OUT LN  COPY MA▝][U]<Lv[L] SAVE I NEW /NOT [N]FN 7 LET VAL$ u/.▞[U]USR  LINE ▗ MERGE R TO  READ [M]NOT tY CAT  OUT  CONTINUE  (J0G RESTORE  OUT 8D@USR  READ : GO TO C AND  BRIGHT ▚1 CIRCLE  CLOSE # LET HL2 LET @ IF   LET 8 RUN 9^ OUT @$LTJ RETURN L COPY 8 OPEN # LET @ BRIGHT  CIRCLE  AND  CIRCLE  CLOSE #h OPEN #ABS [M][P]FN  ERASE ( CLOSE # CONTINUE  BEEP g MERGE  VERIFY  FOR U▝ BEEP  STOP IN CHR$  STOP  FOR  CLEAR t~z[D][R]NOT _ LLIST o[Q]B VERIFY 8 OUT J CLS > LLIST @6LEN  GO SUB  PAPER mw RETURN USR CHR$ 8! LET  RESTORE ( PAPER l[H][I]U REM AU2xdv< RUN m&[N]uSJgmfzwaPI+x OUT  LPRINT z[N]Wi CLOSE #▚ACS [K]SGN p|/ INVERSE xPI TO ,SGN ICODE rv LET  LLIST Fghq|f/ NEXT  DATA  OVER [U] OUT d LPRINT  SAVE  LIST MJ[M] THEN $X LET NOT pwi<=BIN o<=z IF  LOAD ▗ FLASH n POKE  DATA D BRIGHT [U],1[H]d1 RUN BIN $ OVER ▗COS  POKE [C]L DATA  READ ▗ CAT PEEK ~kCODE VAL [P]IEXP ▚VAL$ [U][Q]ATN s[J]c FOR  IF If STOP [H] GO TO [T]▚ CLS f FORMAT  PRINT { INPUT /}{ RANDOMIZE  RANDOMIZE  PRINT PIIN  STEP A%xCODE JvhB`▝~ NEW FN  TO  RESTORE g( DEF FN  CONTINUE e/& CAT  MOVE  FORMAT  MOVE ▚ljUSR  CIRCLE  PLOT  7,[I]<[M]L[U]/ATTR  POKE 7 DIM  RANDOMIZE [J] VERIFY  OVER BIN ATTR +© LOAD o/[A]: RANDOMIZE  FLASH  DEF FN |4y RANDOMIZE  NEW < OPEN # RANDOMIZE  PLOT  X CLS g<>[L]LT RANDOMIZE 2==U READ [[H]Zxe{DNOT ▜SIN ▜uN DATA J INVERSE f_.n8 RETURN 7 CIRCLE  GO SUB jATN EXP O INK 6gpnCODE  MERGE )CODE  COPY LN [R]ACS LEN LEN  FLASH f[U]TAN d6RNDASN ▚ FOR :SQR ASN  NEW  RUN [F]<>▜oc STOP ▟y AND xACS [G]POINT ~ABS MKVAL LTAB GtINKEY$[E] DIM  DIM  DIM  GO SUB  CLOSE #pr`[P] LLIST  MOVE e6`[Q]VAL ▝Y[ RETURN Y PLOT  {=CHR$ EXP x<>G LET ;` SAVE /▖ z!{" DRAW yZX LPRINT  COPY [O]zv POKE G RANDOMIZE STR$  INPUT >P2?{tACS  PAPER <=y LET NVzRND INK ~ DEF FN = VERIFY [S] OUT  LLIST ©!$ LLIST >XYABS t FOR zPIf READ t![K][M] RESTORE SIN © CLEAR TAB [H] PAUSE  RETURN SGN  CAT TAN | OUT {3 DIM (! SAVE > POKE  COPY [ VERIFY  RUN L VERIFY ▟ CAT  OPEN #VAL$  REM ATTR z▝3[R]:pCODE  NEXT  PAUSE [D]u~W LLIST  INPUT  LOAD 0 MERGE  RESTORE [D] OVER ] LLIST <=;yM NEXT [ VERIFY  BRIGHT  NEW PI(J:P3IN ACS  GO SUB [ LINE  THEN , OVER PEEK  DEF FN 9? INVERSE 2▚z[U] CONTINUE  RESTORE !USR  ERASE  MERGE CHR$ S CAT  LPRINT  LLIST COS  RANDOMIZE <LN ▜EXP [:zCHR$  RANDOMIZE BIN SCREEN$ * CAT <>SGN n"TAN [G][J][H] RANDOMIZE e AND  RETURN X RANDOMIZE  PLOT   REM  ERASE y INK ? LOAD | VERIFY [O]SGN 4<a MOVE '{ GO SUB C[R]SCREEN$ [P] LOAD ]ACS } U[E]▟K[E]X▜ VERIFY VAL 8▖W RUN  PLOT   GO SUB m PI LINE [F];KNOT MNOT 0 RETURN 8 NEW  BORDER  SAVE  OVER [I] FOR  CIRCLE [I] GO TO X GO SUB  TO  INPUT Y TO  LOAD  LIST [J]▝ LET /▖ PAUSE  NEXT  CONTINUE 8 DIM { SAVE XVAL  REM LN hLD{ASN <>[K]gk READ #w? INK "|▟{[K]@[L]▛VAL$ !LEN  FLASH  POKE h▞v INVERSE POINT USR  RUN 'M INVERSE  LET F4EXP [J] DRAW z<=H LOAD  FLASH  INVERSE ACS [O][Q]LN >HACS IN JAT ^ OUT  INK [L]I:FN _>[D] RESTORE :fh OVER ^[T]ATN  PLOT   FOR [Q]INKEY$RND PRINT PEEK M PAUSE OVAL  MERGE 7u PAPER  MOVE  FOR  VERIFY G BEEP   GO SUB DIN m BRIGHT 4 RESTORE STR$ =[I][L] PAPER < LIST  DIM J RETURN CHR$ wo DIM [H]D BEEP "Lz#[I] SCREEN$ ; READ  COPY Gx %&)-7<JNYZfikl)4Icei[C][D][E][G][K][L] DEF FN "▗|[M]<g CLEAR / INVERSE  RESTORE  LLIST Z DRAW [H]IN  MOVE :+SNOT SQR SGN  }v IF ABS >=~+ CLEAR TAB #( CAT  PAUSE ) TO SCREEN$   LOAD e▖9o COPY  LOAD E FORMAT >[B]wW MOVE  SAVE J~ INK N+F STEP _ RANDOMIZE |NOT OINT  DRAW  ERASE POINT  CLOSE #POINT  BRIGHT  OUT  AND xLEN ([C]zACS  PRINT d[T][C] RUN  RUN ATN '>= PLOT  "SQR [F] STOP |LEN y&▖ LET  REM  LLIST  RANDOMIZE  RESTORE JSRND<>▖ IF DINT  POKE / NEW © THEN w<>x2SCREEN$  PLOT  CODE <©![.{ PAUSE  PLOT  BIN ▖ NEW IN  PLOT   RANDOMIZE  RUN CODE  LLIST 6 IF  PLOT  <=[Q] STEP  PRINT CODE  RUN Q]LN  TO PI FOR  CLOSE #]T9I CLS -W▝  DATA ASN INT ) RUN  BORDER T▛ INK VAL$ 3[E] PAUSE J RETURN CJIN [D] RETURN 9= CAT  CIRCLE "[J] BEEP  OUT ,[K][H][D] DEF FN  DRAW C[F]iABS ~[A][D]*COS  LINE ▜ FOR =!#[G]+ PRINT  PLOT  R LLIST  LET  RESTORE sPOINT [I][B][F]6 COPY PI  CLS x LLIST  FLASH EXP [N] RUN ?ASN  OVER [S]IN  PLOT  Gx[B] INVERSE m_w LINE  LET `mr BRIGHT  VERIFY M LLIST L2[R]▝ PAPER CODE Im) RESTORE o NEW  TO  LLIST BIN c^w FOR ~ OPEN #z▞_ OR VAL$ D NEXT SQR   SAVE STR$ [M] GO TO 1 RESTORE sINT [R]x READ }}3iBIN  PLOT  M[K]# OVER  STEP ATTR  PLOT   RESTORE  POKE LEN  GO SUB Z NEW ' LET  OUT *6COS  CAT ][L]_ PRINT  LIST [A]u[B]VAL$ V#UTLvCOS [U] PRINT  NEXT PEEK  VERIFY niSQR o[ INPUT  LIST iYINT ATN fINKEY$W OPEN #Z DIM [J][L]k COPY  OVER  STEP dSl[N]COS USR  LET m STEP STR$  LET  INPUT CODE  STEP  LIST vAT d LINE ▜fjM OPEN #AT oz CLS USR }a1: FORMAT  INVERSE   GO TO 3K(tR LLIST g BEEP } MOVE [G] MERGE  TO [F]^ INVERSE  DEF FN  LINE  COPY |Y]>NOT ▚ VERIFY W RESTORE {vo©[G] TO `~ SAVE  TURNDISK LIST OVERp STOP AND[P]tPRE COPY SmjK PRINT C MERGE O STEP 2 INVERSE LSGN s FORMAT QULq FORMAT [O][S] DIM  TO PfFN UY:© GO TO U LINE DAE OPEN #▗USR  CLEAR V<>[D] POKE A RESTORE VAL$  AND CO LINE [P]_YKINKEY$ LINE  IF S RESTORE  DEF FN n COPY CODE 7 AND ATTR ` VERIFY ▚6▝[B]H PLOT  G INPUT ABS ^1©▝YL INVERSE @USR { THEN  LIST [A] INVERSE ATTR  PAUSE [A]~,2VeACS  GO SUB SIN  BEEP ATN z'/SQR m(& MERGE m)BLN <AT ACS 159? GO TO  BEEP 2/ SAVE y LET  LOAD NOT SABS > GO TO NOT SQR  INPUT +6RABS  PRINT  BRIGHT  LIST <>[S]TAN < RUN  FLASH ▟ COPY 6 NEW  LOAD r LINE i©[K] OUT  IF 1 NEW F VERIFY BIN hY INVERSE SIN >jIN  FLASH  RETURN  THEN G0 STEP  COPY  PRINT  OR  GO TO {PEEK MAIN1   C[00hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.HRc]7 COPY  SAVE ?} READ oATTR  NEXT PI LINE  DRAW  FLASH  LIST l▝ PLOT   LIST ^ CAT  DRAW ©IN @USR  CIRCLE 6<= PLOT  [R]VAL   BRIGHT ▝5CODE HPI RANDOMIZE USR `5 SAVE yG GO TO  CIRCLE +?ASN K CLOSE # CLS [S]/R` OVER  TO z PRINT  MOVE  LPRINT  COPY _ FOR  COPY GFN !FN  LOAD  PLOT  USR  IF /© BRIGHT r& PLOT  ©USR #[L] OUT  LPRINT F`W FOR ?`7 IF [Q] LOAD SCREEN$ F> STOP `© LIST c PLOT  U LET CODE  CLS  COPY A STOP mj@`oUSR POINT USR  LPRINT  LLIST LN SQR 3g PLOT  USR @^ GO TO W LPRINT t LET USR COS yPI RETURN  DEF FN CHR$ ` MERGE O BEEP [C] RANDOMIZE PEEK . CONTINUE  INPUT  PLOT  +[E]>={?SCREEN$  CLEAR ~ READ  OUT *▜ DIM FN x▝_= AND f ERASE  VERIFY P NEW  GO SUB y CIRCLE CODE T CIRCLE  MOVE STR$ INOT  SAVE SCREEN$ ▜@^ INK  CIRCLE IN [R] COPY [T][J]P}n>=TAB  COPY A<>/ CONTINUE ▟?[F]USR tp~S POKE _[U] CONTINUE # LPRINT LN N` CLEAR  DRAW ^<[S][P]© CONTINUE  NEW USR  SAVE Kx DRAW  IF ▝K PAPER USR IN _USR >=tUSR  DATA  OUT y,LEN STR$ !ATTR  FLASH `CODE s DATA _ FORMAT [F]a CLOSE # LOAD  MERGE  FOR =@* LOAD IN ©BIN  REM  STEP S[A]k OPEN # RETURN ▘c POKE g[H]TAB 1W▟ CLEAR l? RETURN  CLEAR  CLOSE # LIST [P] DRAW PIIN v>=USR [H] SAVE . LIST USR ▜ CLS 3[H]6_[P] SAVE  PRINT a CIRCLE  INPUT 0 POKE [P]K▙mUSR ~ IF  RETURN % GO SUB [I]USR  TO  CAT [Q]N`▙W@ REM [Q] DATA PI LOAD q@ RETURN  POKE %" DRAW  REM l RETURN LIN  PLOT  ▙RND▝ CLEAR @ CLS ▜ GO TO USR aq. FLASH ©SCREEN$  CLOSE # INK [Q]SCREEN$ [Q]IN  CLS  RETURN  AND ▟@P[J] VERIFY UA RETURN  OR  RETURN  CIRCLE  NEW  DEF FN  COPY [N]USR [S] LIST IN USR © BORDER USR E LIST ▙^}`[I]USR FN USR  THEN u> DRAW  NEW / LIST USR :RB CLEAR  FOR [N] CIRCLE CODE  NEXT USR zCODE USR F[J]©[G] DATA  LIST &[M][Q][C]USR  RESTORE nUSR  RANDOMIZE  PRINT  SAVE ~ NEXT [Q] LPRINT u[E] PRINT [T]iUSR USR  GO TO _USR [©[K]NOT ASN PI%-LUSR USR  MERGE >=/^ OUT  OR 3@CODE BIN USR  AND [Q]a OUT n?, NEXT >=USR STR$  FORMAT USR [T]LN hp`#%][M] OR USR  MERGE L~ RESTORE  CLS  OVER  READ USR A MERGE IPEEK ` RETURN [R] [J]x@EXP  AND A<>[B]ASN + DEF FN SGN USR  DRAW  RETURN ~EXP JfUSR USR  PAUSE  MERGE _ REM [Q][A](aF▝~ IF CODE `TAN USR rTUSR >= IF 41CHR$ [G]PEEK  CLEAR SCREEN$  [I]ZUSR CHR$  RUN  COPY  MERGE  PAUSE `[N]B LET  POKE ,SQR USR F@[I]xUSR ▝▙VAL$ [A]© LPRINT [B] FORMAT  CONTINUE #) CONTINUE  COPY USR ? STEP ,w VERIFY USR  RESTORE  NEW  MERGE  DATA ABS SGN © LET @?V @[O]+ PAPER ? GO SUB [S]USR BSGN  LPRINT ▝ INVERSE  RUN `/ PRINT USR ▛© AND  PLOT   INVERSE @VAL  MERGE  VERIFY  LET  STOP USR {[`C LET +S? SAVE USR ~5@2USR VAL  LPRINT /SQR (USR  /mN(" Y[T]>USR [E]@7 CLEAR 4` OR F! LET ACS 7.SQR USR  CIRCLE  CIRCLE ▗(G AND [R]< OVER W THEN n*[Q] PLOT   RETURN  RESTORE  CAT <> LOAD ▟SCREEN$ 0][A]▞*[S]p[J]ATTR  OUT  BRIGHT ©-VAL /NFSGN 8 OR @ CIRCLE oUSR ? PAPER kMUSR  OR USR NOT *;f▝ RETURN K>= COPY  SAVE T▗@[B]USR  RETURN  FLASH  INVERSE &PSQR 0[I]VAL$ KFN  CONTINUE ASN [J]5▜ MERGE  FLASH DUSR  CONTINUE  INPUT 0[C]0= LIST  LPRINT  LOAD |[K] OR  DEF FN PCODE R FOR P/ BEEP [S][J]: STOP AT = CLOSE # POKE  FORMAT mINT [R]<=USR FN .cUSR  DEF FN ]STR$ *P▝xg STEP ) READ CODE  LLIST 8IN USR [Q] THEN ▝[E]LFN  NEW { RETURN  STOP USR <=VAL$ 7g NEW PI CAT PEEK TSGN  CLOSE #USR j NEW q SAVE U FOR H+ FLASH  MERGE  !` LET .USR   TO [K] CAT ▙ NEW ATN SQR  NEW USR POINT o  PAUSE >=K CONTINUE USR  MERGE pj. FOR hATTR c RETURN  INVERSE  NEW [D]SQR }w PLOT   COPY [A]Z PAUSE f_"USR  RANDOMIZE OQLACS  RETURN UJINT  FOR a NEXT  DIM U PLOT  WSCREEN$ AT *%c[S][N]w LET [R]][K]TAN IN JWSGN [F]iLN jL IF jUSR USR FN 9`GrUSR [G]R▞USR  NEW  DIM B CIRCLE yUSR VAL$  PAPER  OUT STR$ O BEEP  CAT }USR  FORMAT `#[R] MERGE RUSR CHR$  LET SCREEN$ @Gj READ USR FN TAN } PAPER USR w;5_USR 5@USR ASN g REM USR  LINE j▟` RETURN w2[x LOAD z NEXT IN TAB b IF  CLOSE # GO SUB nVAL 1 CLEAR  NEW  POKE kwu RETURN # READ [sUSR  COPY  DEF FN [I] RESTORE USR VAL$ 4 BEEP [A]*[G]LN  RANDOMIZE ,8[Q] VERIFY z@`;#LN zSCREEN$ S/8@Pv MERGE  OUT 2TAN  PAUSE X GO SUB  VERIFY TAN w LPRINT  [PEEK USR  RANDOMIZE  DIM gc3Q INPUT [F][D]LA<=INT  NEXT ▝@[B]%PTPOINT <jf▝NOT ATTR  OUT F OPEN #jL/NOT  COPY USR PATN O LET NOT z3USR  LET _xDUSR WW9 RETURN B[N] CLOSE #[O]x▖6[L] PLOT  USR [Q])BIN [L]AT G[C][P] SAVE R©iL VERIFY A▜TAB  RETURN c NEW W NEXT j LET USR [Q]mjUSR  VERIFY [Q]l RESTORE e[O]7pPEEK  STEP CODE d INK  IF VAL ]@4[P]USR An INPUT STR$  LIST  PRINT USR ` OPEN #YUSR + CIRCLE  REM  DEF FN 3 RETURN ` CLS Y DRAW 5 RETURN SCREEN$  LINE  FLASH USR LEN E[B]PEEK   REM T[J] STEP STR$ WUSR % PAPER USR -TAB ▙USR  LPRINT  POKE Y# PAUSE PEEK  SAVE 4[P] NEW  OUT  TO USR ▝PI NEXT PSQR SQR <>▘_ LPRINT ATN D[Q]USR  RANDOMIZE <> PAPER INT zE[Q]rLN  CLOSE #USR  LIST ▟ PAPER  GO TO 2 MERGE ▖[G]P AND  PLOT  W NEXT  CIRCLE  PLOT  TAN CHR$ @>[F] GO TO "[J]u STOP  COPY $,y[K] OVER ▝@ IF  LPRINT EXP  LLIST _ DATA [J]XABS (PEEK RMIh PRINT @oZ COPY USR h<▝[U] DRAW  TO G[A]7▝*[A]R▜ THEN USR D REM  DRAW USR ▘ LPRINT )CODE ` LPRINT ! LET NOT  RUN USR fTAB NOT v RESTORE USR Z/[Q]ABS $SIN TABS LUSR  CONTINUE U[K][L] SAVE [J]PI READ ▘ LIST  SAVE [E]ABS [S]STR$  INVERSE [E]SIN USR  SAVE  DATA  FOR SCREEN$  CLEAR  LPRINT  DRAW © SAVE ▝GCOS G SAVE  OUT ▞>PSQR 1USR  COPY x RANDOMIZE POINT ▞ CONTINUE LN |ncFN POINT g@#COS USR C REM  COPY  FORMAT  DEF FN [E]▝CF~▝@ PRINT lBIN  FLASH USR  BRIGHT  INVERSE USR CHR$ SGN FN /( 1[O] PLOT  FN USR  NEXT ATN P CLEAR USR !TAB wNOT ?[T[H] VERIFY USR  READ  IF FN  DEF FN <USR [Q] FORMAT  NEW h DIM <▞g PLOT  FN USR [U]+Rr[J]USR ([J] RUN  DRAW  1 COPY USR ▝VAL$ IN  DATA %*[E]g LLIST  RESTORE ▜ CAT  BEEP  DATA [G]j THEN t▚yw RUN  FLASH  RETURN [O]l/4© OUT ZFN IN  CLS V[Q]~:C~[Fp CLOSE #RND[U] DIM TAB  THEN  RANDOMIZE >z RETURN  RESTORE  MERGE 6 OVER  AND Z CIRCLE CODE USR B FORMAT VAL$ 9FN (USR  CLS FN  THEN INKEY$  POKE  LPRINT ?RNDX>=QU FOR USR ! OVER BIN XSTR$  READ [L]-B CONTINUE NOT  STEP  OVER [S]▗[M]LN f<9@CATTR yUSR 'R`EUSR  LET [G] SAVE  MERGE f©[L]J PLOT  IN CODE  IF VAL HABS USR  ▚U RESTORE  CLS ▝ GO SUB }ABS [O]COS  OVER IN USR ▝| FLASH [[Q]CHR$ vu OPEN # GO TO [R]jSQR B@[R]h PLOT  ©IA<= PRINT !@▝L[D] THEN USR  CLEAR USR ▗F CIRCLE VAL  OUT  CAT r$@ZUSR cB AND  LPRINT TAB  CAT  READ © GO SUB  CLEAR EXP SQR BIN <8` LET ;]/?[J] SAVE  OUT  LPRINT p PAUSE 6[E]  PAUSE I NEW USR  CLEAR m RANDOMIZE INT L DRAW  CLEAR ]s|USR  LPRINT z[J] PLOT   LIST ASN iUSR ©USR  IF  GO TO STR$  INK "+?SGN 6Q[L][Q] INPUT 6|[L]SGN  INK USR  PRINT CODE /~©XFH COPY ▜ BEEP ▚USR O3g PLOT  USR e0f NEW  OUT  CLEAR  RANDOMIZE  PLOT  [Q]v[L]VAL$ Q LIST AT  INK #USR  RANDOMIZE  FORMAT  NEW [P] LINE 7a PLOT  PVAL [T]ATN [} NEW M,EUSR  RANDOMIZE 5USR </ LET  LLIST [SUSR  PLOT   CLEAR CATN  FOR >$[K]C PLOT  ATTR  STEP USR uUSR 7sVAL$  PLOT  FN @~?AASN @nlSUSR  INKEY$USR TAN 3 PLOT  USR  SAVE USR ABS jLN USR c[K] PRINT USR  RETURN I?@D[G]USR  DIM ABS ATN PEEK ! NEXT  LPRINT c TO @{ NEW I COPY  CAT @PEEK [G]USR  CLEAR  SAVE © LPRINT [J]ABS  DEF FN  OUT  DEF FN AT USR = NEW rLUSR [Q][K]USR  RANDOMIZE ATTR  BRIGHT b AND  CLOSE #[G] AND  FLASH ?p "2INT USR PSPIABS '35B@RND[M] MERGE ©P[L]USR  IF I* LINE d_>[M]b[Q]#S▛[Q]?lRLEN CHR$ cUSR  PLOT   RESTORE STR$  PLOT   SAVE  GO SUB m PLOT  [Q]USR FN @[P][R][R]▘.z[T][H]1(LEN / LPRINT 7VAL A[H]▞USR <>INT  FORMAT ▜<= IF `]$Rq▘USR [J]USR IN gABS  STEP >={x LIST  COPY  RUN '9 NEW NUSR @ IF _CODE j[A][Q][K] READ L/[S] RETURN  TO ACS  DATA ▘ TO  PRINT  PRINT IN  PLOT  PI PLOT   DRAW  SAVE :[L]USR Q PAUSE [O]USR © OUT J[[U] PAUSE G<=USR PEEK ?USR [U]_[B]IN EACS f TO  PLOT  USR [J]USR USR <> INVERSE USR _[J]X_ PLOT   RETURN  DATA  OUT FN WUSR >=|USR [R]RND RETURN  OPEN # GO SUB xT PAUSE  INK  PLOT   REM USR LRZPEEK 8xSCREEN$ /2 DRAW gSCREEN$  DATA  LOAD VAL$ y INPUT ATTR  GO TO gRND(NOT USR  LINE ▜UCyFN ▚ FORMAT * RESTORE @ PLOT  Qf RETURN  PAPER  PLOT  4 LIST j CLOSE #>= CAT  PLOT  ▚▚ CAT W_USR TAN  LINE USR SQR  CIRCLE  B LIST  AND USR 3 PRINT S PLOT  /[N]USR ? LPRINT 7`Z /do LET 6▗okiUSR USR INKEY$[L]_BIN  READ  PRINT >USR  DEF FN  PLOT  USR PEEK LUSR  PLOT   DRAW `? BORDER L<<=5g>=USR T@ MOVE #>=K OPEN #xCODE INT  FOR g DATA * VERIFY VAL `ATTR VAL x@=2 PLOT  CHR$ VAL g REM TEXP & DRAW `▜m_USR @ CLS ▝mUSR STR$ $~ LIST USR [E]o LPRINT © GO TO SQR oUSR ;>=USR -o NEW  SAVE USR = OPEN #[R] PLOT   LPRINT x▝l NEW USR   PLOT   FORMAT *G[[Q]/SGN @(/oUSR @USR  DRAW T LIST UASN H DATA 3▝N NEW x FORMAT USR l PLOT   CIRCLE (USR ? PLOT  2 RETURN f MERGE USR V DEF FN  OUT !COS  RETURN  NEXT USR @W BORDER >=[I] PLOT   PLOT  SQR |COS  PLOT  STR$ STR$ USR  NEXT SGN AT [M]▟' COPY  RETURN  LPRINT TAB  LIST ▟z LPRINT  LOAD |[L]USR lt PRINT [Q] NEXT >= GO SUB  LIST ` CLS ▝LN IN [F]USR POINT [H]LPEEK USR l6u SAVE  OVER [J]WZ@JsIUSR  READ PEEK  DRAW fl LLIST [ FORMAT ( LIST sATN yF STEP F NEW  FLASH -$NOT EkUSR [P]p LPRINT  VERIFY <  CIRCLE mCODE mX INPUT >= INPUT  THEN ;IN - INPUT WUSR Y[T]&P RUN vP OUT SGN ▘USR  NEXT  CIRCLE  ATTR [R]6PQ FLASH nUSR j[O]PVjpZr<= OVER BBIN USR |g8▘ PRINT  PAUSE TAB [F] CLEAR NOT  FLASH ACS <> FORMAT  INK [Q]) POKE  CLS [N] PLOT  [P] AND AT hw6^USR w[H]PEEK BIN  FORMAT PEEK *MSGN ^> CIRCLE r▛@ LLIST USR m OUT R[L]▖ PLOT   LIST @g NEW T[H] REM USR ▖[A] STEP ; OVER [I] LPRINT ATTR  RETURN USR CODE  CONTINUE J CIRCLE Z<9 CONTINUE  INPUT USR ATTR  CONTINUE l~zf NEW FN  PLOT  Pa©) OVER USR OM PAPER SGN e[C]0 PLOT   FLASH ~HAT  LET P0_▙` COPY P▘` GO TO USR USR USR USR j DRAW 5VAL ▝; KD>= CLS VAL NOT PSTR$  IF 8 GO TO  OUT 8` COPY `u OUT ▘USR R OUT [O] IF  ERASE [L]X[K]IN x GO TO [@▜B[O] PRINT CDSIN ▟EFG  NEXT  B CAT   2E @[A] CLEAR [J]g@Cy@Fg[A]`[J]A`[A]yD[A]`[J]gAyD[A]g[A][Q][J]A[Q][A]yD[A][Q][J]gUSR AyUSR D[A]USR g[A] LPRINT [J]A LPRINT [A]yDCOS  LPRINT GHz VERIFY IJKLF CAT MN INK O  [A]yJ[J]g M  @@2 CAT J NEXT @Md!@` NEW `J[O]A`,dM`<J3>= TO M[Q]g[A][Q][J]J[Q][A]yMSIN [Q]USR USR   NEXT JUSR 2 CAT MAUSR  LPRINT  LPRINT d[O]J NEW  LPRINT MpA LPRINT VAL$ QSg LOAD <>AACS VW  d[O]R NEW  U>=B @ TO 3@R CONTINUE ▘@POINT Y>=@`y`Rg[A]`[J]U` CAT  2R! NEXT Ud[Q][Q]A NEW R[Q]d[O]U,[Q]USR USR >=<R TO 3USR U[A]USR  LPRINT [J]g LPRINT Ry LPRINT UG[A] LPRINT ~ RESTORE  MERGE ▟NOT  OR  PRINT  INVERSE  CLEAR ATN ACS  INK  STEP % DEF FN  NEXT SQR  LET STR$  MOVE  LLIST  CLEAR f$ INVERSE  COPY  VERIFY  CLS  GO SUB M> STEP  f/USR  INK !2l▛SQR Ob[L]g|NOT } OPEN # RETURN SGN ' RETURN !TAB  ERASE  BEEP )I DIM v REM VAL  IF  STEP 7INT <= DIM |NOT 7{x OR  LET  DEF FN  CAT TAB  POKE  PLOT  ©W' RUN ? NEXT 3[P] CAT 3?USR  LOAD  LPRINT 9 NEXT 1+IN v INK  RETURN _[P][C] RESTORE  COPY } RANDOMIZE [J]/ -WCODE SGN  CIRCLE B[P][N]g`sp LIST  INK yx|~ NEW <=KH[L]E LINE  PAUSE  IF VAL LEN  CLOSE # RUN  OUT ?J OUT COS SGN tLN ABS 18 LPRINT 60▛ INK 3.AT LEN N OR VAL$ u, CAT  INVERSE f NEW  VERIFY 2 FOR :ZW READ Y>= DIM N OVER 9V INVERSE mINKEY$5 NEXT AT POINT  IF CODE  LET SGN  THEN [N]SGN 3>= FOR  AND ACS ▛WVAL [D]INT SIN rtmVAL$  NEW SGN KUVAL ?TAB 9STAN l OR IN SIN 4SIN  LET  STOP h[K]1SIN INT fASN SIN d MERGE e[U]U LINE n&▟PI&<>&AT VAL$ z BRIGHT ©▝ RETURN l RESTORE :RABS PI _L INVERSE ▘ BORDER  DIM  CLOSE #SQR SGN  LIST Z[T] GO SUB ! CONTINUE  FORMAT  DEF FN  PLOT  6 GO TO !X OPEN # PLOT  U CIRCLE  DEF FN [O] DEF FN fg CLS H MOVE  STOP 2 MERGE LN  OPEN # CIRCLE F▛ OR  DIM PEEK  VERIFY ! OUT 7 LET  COPY  OR L LINE [R] FLASH :▛ INPUT PI( NEXT CHR$ *▞ STEP [Q] GO SUB "[O] FOR :'/ REM ? STEP 0t TO  TO v']▚ LOAD  CLEAR ( STEP O>< NEW ABS [K] NEW  READ ABS OCODE BIN rCOS ! BEEP LN  LIST =[D] INPUT [H]/ BRIGHT M MERGE e FLASH  DEF FN COS  INPUT [K]m& MERGE f} INVERSE 6;)PEEK p7O BORDER  LLIST %NOT ACS ABS wjUSR O<> LPRINT + RETURN ( LINE S©! LINE  ERASE [D]= NEXT f STEP INT  POKE / NEW ©2lSQR  THEN oCHR$ J BORDER w▖ NEW SGN sATTR nUSR : ERASE   STEP  MOVE  VERIFY @PIPOINT  IF g9 PRINT IN  TO $PEEK <> CLEAR QO THEN ABIN USR PEEK [P][L]I NEW mvQVAL [I][L]Y[P] SAVE  OR SGN  CLOSE # MERGE STR$  PAUSE aV© BEEP  INVERSE ~ RETURN VAL >= CLS SCREEN$ < INK 2w FORMAT  PLOT  PI LOAD ATTR =M(|EXP  RANDOMIZE  OVER PEEK :pUSR = 2W LET <>RNDCINKEY$K▘ REM  ERASE = DIM $U RESTORE  LINE _ PRINT ( FLASH jRTAB  FLASH "PI[P] SAVE %!SIN  INPUT   DRAW #~PICHR$ IN +? RETURN FN (6g[N]! LPRINT [J] ACS [D] NEXT o THEN ? LINE  PLOT  <G RETURN n CLEAR _"u STEP dIN k<> DRAW V! LET  OUT "USR NOT /ACS  RUN  BEEP ▟EXP SQR e OPEN #; RESTORE  STEP  LOAD LEN 4 CLEAR  PLOT  f^V THEN ▚[Q] RESTORE ![R] CIRCLE  DRAW PI GO SUB R0 LLIST ~ CLEAR  COPY mIN  RETURN ) CAT PI LPRINT  COPY 8 INPUT [Q][A][N][F] RETURN  SAVE  BORDER ( RESTORE  LLIST +N:mPIiATTR y PLOT  VAL$ 2MSTR$ ~[P]KIy PRINT  PAUSE [O]AT SGN CODE [P] FLASH ATTR NOT STR$ :INT IN USR Ok! ERASE SQR  NEXT  hSGN #is[U]EXP   IF TyO&▙MTAB  DEF FN  FOR CHR$ [I] GO SUB VAL NOT IN [N][J] LINE PI[U][O]<EXP ▗ SAVE >o[F]g RESTORE 0 CLS V9TAB YYRND OUT [Q]vPEEK 1;h CLEAR ( GO SUB [Q]i<>CODE ▜O OUT wPEEK #CHR$ 'Q BORDER ]T~NSCREEN$ /NOT  LLIST CODE Y>}v>=PIUSR  COPY C FLASH +K OR w#CODE [D]POINT V[J]RNDo9ATN >=ABS PI^USR  INPUT 7[R]/▛ASN [H] REM COS O( LIST  NEW  a RANDOMIZE EXP CHR$ NOT  OR [O]POINT 6l TO [N]CHR$  GO SUB FN [P]BN THEN 'RNDABS G OR F' THEN IN STR$  RETURN  DEF FN  LINE ~ THEN © 4 RESTORE /PEEK < SAVE ▙6 VERIFY u[R]O(| LET 4CHR$  FOR <=g▘cFN  NEW `<=S STEP 67 RUN " FORMAT <> LLIST AT n NEW AT gSTR$  GO SUB C TO <>ACS  CLEAR  CLEAR  DEF FN [P]CHR$  STEP ; LIST  LET ASN /<>g[R]4CODE GVAL$ 1VAL$  FORMAT  COPY VAL pPI  RUN > READ  LPRINT  PLOT  w+SCREEN$  INPUT q# TO PEEK W:X@ LPRINT }ASN |BIN [U] CAT xSTR$  OR  BEEP r FORMAT <>~] FORMAT ▙T;I PLOT   PAUSE [O] FOR  PRINT  STEP  PAPER <> REM  DIM  THEN k<=+[J]RND1 MOVE =| DIM w/STR$ [L]ASN  RESTORE  INVERSE |ASN  MOVE  FOR "SCREEN$ `K<> FORMAT ▙IN  THEN NOT ©CHR$  INVERSE .6N<=F^ CLEAR [G] DIM V BORDER jfN STEP  BEEP  NEW CHR$  CIRCLE 8u VERIFY  OUT [I] CAT [S](LN   SAVE zr PLOT  {{ OUT 4<©/} PAPER  PLOT  z BRIGHT a CIRCLE ▟SQR  LOAD R▛ INPUT ATN PEEK UIN Ap CAT [Q] COPY *7 RESTORE  OPEN #NOT  INVERSE [U]T STEP VAL  LIST  FOR : FLASH NOT # LINE ▞IN -/LN o&CODE )FN  BORDER [F].O OR  TO e_ BEEP  DRAW  NEW -y NEW ATTR > PRINT  MERGE n OVER  STEP 9x MOVE  LET  RANDOMIZE ! FOR  PAUSE r LLIST  INK :^CODE ▝ ERASE  THEN o sy[R] INK y PLOT  :iPI)g©[J]mNOT sy RESTORE  NEXT RND"VNOT < ERASE SQR  PAPER  SAVE [M]W![I]h CAT , LLIST _ LPRINT +ASQR ▛FN |2 AND NOT %[E]F'*<=KT FORMAT WINT [S]CODE  CONTINUE I<=zDPEEK FSGN  PAUSE ~":BIN  OR  INK {c▗V2@>STR$  FOR PEEK USR NOT  GO TO SQR  MOVE USR  SIN ▜BIN  NEXT  CLS COS "PEEK NOT  GO SUB S OUT u LLIST c}[E] LINE lg" DRAW _K4 ERASE  PAUSE [I][T]▘ LOAD  PAPER  LIST  LLIST y RESTORE  THEN  RETURN [K]CHR$ `*PEEK [G]INT PEEK [P][I] COPY ]l$ NEXT CHR$ SCREEN$ NOT  PRINT INT  THEN  $IN ATN YP"n<=g FOR kW_▘~ FLASH  BORDER [Q]Y[F]wm}5>=! POKE  INVERSE pA{* STEP /[M] CLEAR _ NEW  STEP VAL )/PIx PAPER  LINE  AND  OR SIN FN LEN  TO SGN INKEY$IN w CLEAR *N IF BIN INKEY$2[r VERIFY  FLASH ' OVER  FLASH - THEN  POKE 2▛ SAVE  DRAW ~ VERIFY 0▝w+[P]VCOS Nt IF B DIM  CAT @TACS L RESTORE  OUT ▚ LOAD ;cj[S]h CAT ▞h▘x OR [K]▙< DIM POINT  READ ▙ READ [C] INVERSE  RESTORE IN ,*[D]~+O VERIFY  BEEP NOT 8>1SGN  OVER y AND 0TAB [N]ASN COS ATTR ACS [S]TAN  CLEAR |[L] NEXT :[P] BRIGHT  VERIFY  CLEAR  VERIFY ASN SLACS  NEXT bTAB  MOVE KL LLIST  AND ?>>=m9!$%5[S] SAVE  IF !6 PAPER CODE  MERGE PEEK !0 COS J#COS J$COS J$ NEW kSCREEN$ NOT <=ACS 5TAB  AND [P] LLIST IN [E] THEN 7SABS  RANDOMIZE 9c DEF FN (TAN  RESTORE INKEY$DwJ RETURN eTAB PI>= RESTORE <=[U]9PEEK .0[A][P] OR f"OJ` CLEAR  BORDER UG CLEAR 7xAO STEP { GO SUB [Q] PEEK COS  RETURN / OUT F CLEAR [N]<=[M] REM >9▚ NEW  INVERSE [A]^ LINE }USR  DIM  PLOT  > IF yo LET "zWCHR$ b AND  CIRCLE ^ MERGE #j SQR [D]C2wRND8<=9RND POKE  LET f NEXT n CLEAR V7a^STR$  CLS  OVER B TO [S][R]x(▜ LPRINT x/2 LOAD x LINE [Q]xx[C]s INVERSE PABS  RETURN x{ IF  OR xxCHR$ [K][K]_ LIST [K]%^CODE z RUN l[P][B] REM z LIST fABS LzoCODE YS▛zAT ACS ATN  DRAW  OR ▘ SAVE  CAT " LIST  OUT b PLOT   GO SUB lh ERASE "t>= DEF FN vVAL$  FOR BIN k▗[A]SQR X>2 DEF FN CODE xNOT JPEEK  VAL / CLOSE #<= OVER $ CLOSE #7  CLOSE # SAVE  REM  BEEP  OPEN #IN SGN  COPY POINT  FOR ^6 OVER uNOT w*`PEEK ATN ▗ AND [G] INK  PRINT (]2%~#n FLASH [O]s FLASH E+LN | OVER dFO NEW M INVERSE NMy OPEN #SQR  RUN ABS FN  LINE jvSGN  RUN  IF 8 CAT  GO SUB C OPEN #NOT [ LOAD  BRIGHT *k<=[A]STR$  MERGE ASN <ATTR  LINE  FOR ▛ LLIST  LET O▛g PAUSE  NEXT  DRAW [O]TAN  GO SUB [<=[K]NS FORMAT <> OPEN #" NEXT  NEXT ©-/ GO SUB Kn;IN C DEF FN ABS  TO SGN  CAT 5LN COS <s RANDOMIZE TAB >j LINE SGN SIN  PRINT xS]INT B TO  RETURN !USR > STEP  BEEP |3vCHR$ COS  THEN < GO TO  OVER /ek CLS  CLS  DRAW J: INK <> AND 2CyI GO TO { FOR e LLIST  OPEN #SGN lD LINE  OPEN # OUT mj OUT  PRINT ACS >={ COPY  OUT z<>SGN  PAUSE <> FLASH  DRAW  ERASE  *<=("+,K LET 6 LOAD  RANDOMIZE  OR [G] OVER  RESTORE ▖SGN R▛USR |o FLASH +SIN ^[T]>=JCODE C BEEP [P]PEEK  PAUSE VAL$ ▜[R]bSCREEN$  LIST  SAVE  RESTORE N RESTORE  OUT  LET QSTR$ +S LLIST  FOR SGN  RETURN RND RANDOMIZE NOT  PLOT  w<>▝▜{ NEXT  MOVE lUSR ! ERASE [F]PEEK  T NEXT z SAVE PI(PABS [B]?INT IEXP (Ghbi! CONTINUE  DRAW  OVER  BEEP  IF  CLS  BORDER  STEP g NEW q4* INPUT 3UX2 NEW  COPY [M]A OUT  NEXT S PLOT   RUN  REM Z LET CHR$  STOP  LET  LLIST <>#INKEY$ STOP  COPY ATN COS 8 CIRCLE 9<> RETURN [N]3 INPUT  DRAW +[P]SGN [Q][O] RUN  RESTORE S7 INVERSE [? LLIST  LIST  FOR EXP ▚ RETURN :8# READ +kABS  CLS  OVER  GO SUB [U] STOP ATTR INKEY$▚RNDW FLASH [T].X<> NEW `xM LLIST  INK  RANDOMIZE $ FORMAT [R]i TO w>=i[F] MERGE [H]y▘W[G]▘n|o MOVE  DEF FN  PAPER BIN ?r LINE :,/=2 LPRINT }g FOR INT `' GO SUB TAN   SAVE [NOT [H] LOAD f7[Q]LN A RANDOMIZE  DRAW  THEN >▘ PAPER $IABS  OPEN #t[G]Q[C] CAT  PRINT  INVERSE 4Ye RANDOMIZE  PAPER ACS [K]a BEEP  LINE ASN i BEEP  LOAD TAB  LET =  CIRCLE  LET  INK qIN  INK y INK ▝ CLEAR  BORDER  INK E[L]kb+6G+ NEXT p[J]- NEXT <MRNDNf=G[C]SGN ATN  DIM ▟ INK ATN ~ INK <>2" THEN y>= GO TO  COPY AT X▚_^ LIST &NOT  OPEN # INPUT  LOAD  DEF FN SGN  RESTORE :[P]~[H]▞~ PAPER ▛©0 CLS UjPgTd COPY 7COS  BEEP D~V REM &[O];*}^ INPUT  CLOSE #[M]xy TO  INPUT W` DEF FN  INVERSE T SAVE 1 OPEN # DEF FN fw NEW ~n DEF FN vBIN  THEN  OVER v CAT  POKE  TO - CAT zMm CONTINUE Y[D]ASN  MERGE  GO SUB [O] INVERSE  STEP * VERIFY COS Ff©[L] CAT zSGN  VERIFY zv GO TO  DEF FN 1SuY CAT [F]AT  OPEN # CONTINUE >= MOVE  VERIFY JE[M] OR  CLEAR [K]'~SQR NOT r9RND▙ IF .<>Q LET EXP EXP ABS [C] CLEAR [N] NEW p DEF FN NALEN n7[M]VAL $DBIN BIN VCOS 1AT  CLS Tt~ PLOT  [E]; DEF FN TAN  VERIFY  NEW [R] PAPER w AND [M]=/pINKEY${iUSR PEEK o CONTINUE  PLOT  .l(PI RUN ▜PIg?<= BORDER k LOAD [L]▜ FLASH <4 DEF FN COS [P]INKEY$ABS  FORMAT NOT  LIST .PEEK [L]1R~.rVAL$ PI PAPER <?+~~N POKE  CLOSE # POKE y DEF FN 4? CLS T[E]btl DEF FN  INVERSE .;LN Mcv INVERSE EXP LN f? INK  PLOT   OPEN # INK LN [L]6X*%▚ DATA ; PAUSE  PAPER  CAT  RANDOMIZE INT  PAPER  IF  INPUT M@`PJ[P]© CLEAR #[L]CsLEN c8 PRINT  STEP 8 CLEAR  RANDOMIZE ,L PRINT EXP mVAL$ >▟TAB BIN zATTR VT STEP © RESTORE [K] STEP u[D] READ d OVER M@3^8!L CLS  OVER O4PI[A]9[N] CLOSE #BIN YO CIRCLE PFRND REM  REM Zk) IF y IF [I]n: INPUT pl DEF FN [O]s IF [T]<= BORDER y,[M]nVCftn▝ CIRCLE [K]rk RANDOMIZE VAL C DRAW  RANDOMIZE  INPUT ,[M] PRINT S5sPITh`n9 CLEAR  RUN SIN  OPEN # AND [K] INVERSE [A]`X(M IF  IF  CLEAR [L] GO SUB [M]EXP [N]{[D][E]CODE  CLS 9 DRAW NOT  READ LN COS [M]#C PRINT EXP dRND[S];<> DIM ;[J]ABS ▘[G]g[K] OPEN # LIST O CLEAR /o CONTINUE [U]▛>= PLOT  ▘|v NEXT  RESTORE  NEXT [M][N]u3YgSsPEEK  VERIFY [E]~y. CLOSE # OVER  DEF FN n RUN  PRINT [M]RNDCOS 5Uf? MOVE [F]nO FLASH  OVER f1 RUN i[G] INVERSE  INK  INVERSE  SAVE LN 4<=8[M]Xi CLEAR LEN 4LN r REM  NEW  PAPER  PLOT   OPEN #[ IF 7 RESTORE <> CLEAR RND[O][K]&<>,x CIRCLE [H]PIiYINT  TO  FLASH  CLEAR  GO TO  CLS  PAPER 8nSQR  FLASH  RETURN [F]i4 RETURN  RANDOMIZE IN  PLOT  _@ LOAD  INVERSE USR  PRINT ZB POKE UD NEXT ▛▖ GO SUB ut VERIFY  PRINT  POKE  MERGE  CLS  SAVE PI' THEN >=AT ,ATN VAL EXP 9 CAT USR  RANDOMIZE  INK  CLOSE # INVERSE m▟ OUT USR  DRAW  RESTORE  THEN 3>= INK [J] RUN  VERIFY [L] INPUT p READ  DRAW <=x▟[M][Q]~L BRIGHT [Q]7[Q][P][Q]h`2<= OPEN #[H][Q]▙ OUT L PAUSE  READ o[M] CLEAR  DRAW ATN 7NOT USR }[M]u LINE  CAT ▜,_TAN FN 4[Q] FLASH  INK [I] FORMAT D[Q]KHj[Q]T[Q]o COPY t[Q] BEEP  FORMAT [M][A]CODE / FOR  CONTINUE POINT SGN  PLOT  )ABS =4<=USR ©Gs FORMAT ks4TAN U? READ [F][H]7 INK v ?GsX▗? VERIFY [M] DEF FN  CLS n FOR t GO SUB ATN [Q]^FN [P] NEW n` NEW b[M] SAVE  DIM  LLIST [K] READ 2INKEY$&vtK[M] CAT  IF  NEXT QY54 CAT  FOR IN ?SQR LN [S][T]'<=[M] FORMAT [L]LS OPEN #*; REM  BORDER OZSIN 6VSCREEN$  RETURN 47SIN T[!&a[G][T] RESTORE  DRAW { FOR B FOR j<L- OVER  SAVE -Z PLOT   NEXT ▙%LN  POKE q} DIM  RUN <= STEP p BEEP [T]) STOP |COS CHR$ ▜~[T] RANDOMIZE <[K]9 POKE , BEEP  NEXT ? AND  LINE  OVER LN I SAVE  COPY h IF IN  DIM b REM >`▚/[T]F FOR [I] VERIFY  SAVE  REM 8mACS . STEP [P]AT  STOP <>PFN r RANDOMIZE  RUN  LIST  BRIGHT UPL REM  STOP ) NEW LEDL`[M] DIM ASN TAN 9 AND CZ SAVE USR [A]H)Dp LPRINT [A] RESTORE R[M]CODE [Q]C[I]_ COPY [A]I NEXT [Q]W[Q] CLOSE #>= CIRCLE = AND [Q] CIRCLE G3 GO TO  LPRINT SGN 3[G] READ  CLOSE #^ INPUT z9 POKE [A]9N POKE [T][Q]w[I][T][Q] DRAW [Q]` AND  LIST  LOAD  LIST  GO SUB k[A]NOT ACS  RETURN [Q] PLOT  SCOS @QAT  STOP @▜[I]ML[Q]FN SIN [R]P FLASH ▚[E]CHR$  CAT DRND%7[D]xVAL$ .xTAB -! NEW  CAT USR SQR ;TAN  PRINT [L]TAN  RETURN HIN [A] LLIST  NEXT SGN CHR$ |1[Q]▘ CIRCLE FJ STOP r[A]# LPRINT LEN [A][D]~ REM [M]7SGN >0 CONTINUE ;8 THEN  IF  REM  GO TO cFIN , IF  SAVE  FORMAT )G▖1,[K][T]F INPUT t[[M] CAT  PAPER }Vl&hIN [A] RANDOMIZE } TO [E] ERASE ~ THEN [A]0O▙ NEW FN gACS > ERASE [H]3 PAPER 40g PLOT  +[A] RETURN W FOR ~VAL Z RUN 5[M] CLEAR  BEEP kV IF [E][C]WvPEEK 4 IF qsvINT : STEP [O]j<> IF C@[O] NEW s4▖ RETURN [B] FORMAT  RANDOMIZE  DEF FN  DATA fCHR$ [U] BRIGHT  RETURN  FOR SQR :[A] NEXT PEEK INT  RANDOMIZE ! BEEP [P][I][M]>>L_X CLS [J] OUT  CIRCLE /} OPEN #>=<j LET [A]IN © BRIGHT X GO SUB  CLS [A] INVERSE ! MERGE  OVER  DIM ( OVER iLEN wiSIN  F GO TO : STEP  STOP  OPEN #NOT  RETURN  CLOSE #[O] PAUSE 5USR > LLIST  BORDER [J] MERGE 4 fD# COPY PEEK  TO ASN  CLOSE #H/ CIRCLE }~Zw INVERSE  DRAW  FOR VAL$ 1 AND >=[J] OPEN #<= STEP BIN ABS SGN  MOVE (>ZiUSR pNOT T INVERSE tCODE  THEN  RUN &n!▘ RETURN  POKE 5 6 STEP [L]t}>=MIN : TO  THEN ©>^ SAVE  :.t=> STOP RND!R:PI LINE DtS'2 CLEAR   GO SUB Jn FLASH / FLASH ▟RNDRND POKE  PAUSE N. POKE  FLASH kVAL$ : GO TO  STEP  FLASH 5[P] FLASH [R]VAL$ r3v_[O]<>6!} NEXT  MERGE ~< RETURN Xw7>}o MERGE  COPY N* OUT )3 RESTORE POINT ?[K]POINT  DEF FN [S] RANDOMIZE <>AT .a IF  CLOSE #NOT aw LOAD EXP ABS FN AT , LOAD  LPRINT 6!* PLOT   THEN TAB  FOR 8G NEXT ^;( PRINT x[S]ATN  TO qA THEN s MERGE ur READ  AND ^ INK  OPEN # GO SUB !TAN  INPUT W IF  STEP  INPUT  PAPER  CLEAR  VERIFY k$[K] PAPER  RETURN _2[M] INPUT Of CONTINUE [K][H]SIN u[K]  CLS [F]FN  FLASH g([T]▜->=0]CODE $!= NEW ?CHR$ >HN[P] INVERSE yDAT  PRINT  CONTINUE  COPY  RESTORE ! FOR  LLIST hATN  PAUSE  READ  FORMAT ABS NOT ACS <>[L] PRINT >USR [U] LET >6+n8INKEY$h FORMAT  FOR m RETURN  ERASE =CHR$  OPEN # MERGE  LET  RETURN x IF  PRINT  TO  POKE  THEN ASN 2K[O]<>>}.NRND OUT PIU3/l VERIFY CODE ] VERIFY On[N]EXP >=MUTG GO TO  OVER (> OR BIN 7T0> ( OVER  VERIFY ©_P GO SUB SACS ) INK 2!▜ FLASH % INPUT  CLS STR$ ]ig[N]"▜ INPUT  NEW 7n GO SUB NOT  PRINT  GO TO CODE w< LET w+ STEP  FORMAT  BEEP  BORDER ]/ CLS  STOP  PAPER OUSR xk▛GVAL$ CHR$  CLEAR  INVERSE k MOVE .ySGN PIPOINT [J] VERIFY  STEP SQR CODE 1 OR  LINE  VERIFY [N]4NOT  BEEP M LLIST  THEN AT SQR  FOR  PAUSE  DEF FN ; STOP [K]U NEXT  LLIST  NEXT <> FOR  GO TO [L] LLIST Bi PLOT  [S] BRIGHT !tSQR 27 CLEAR  FLASH Og BRIGHT s-TAN + RESTORE /`[S]Z DEF FN © PAUSE GABS  MERGE  GO SUB xW DATA yASN  COPY r REM  STEP r CIRCLE 8 INK  INVERSE  RESTORE [O]/ LLIST  IF r INVERSE +NOT  RESTORE  VERIFY  STEP { OUT 8 CIRCLE Yv89[N]=G"W BEEP  RANDOMIZE 4|LEN <=▛h>PEEK  LOAD myrSQR  MERGE  INVERSE  LLIST [Q] ERASE  LINE  BEEP ▞1ASN  INVERSE NASN ▙[B];'EXP  RETURN  PAUSE INT  SAVE  FOR 6 COPY  FORMAT [M] DATA ▗u  SAVE RND LLIST  COPY  FLASH  ERASE  TO  OVER SGN { RUN /RND,SQR ASN tSGN VATN u CLOSE # RESTORE TAB  OPEN #~STR$  LLIST INKEY$?|  GO TO G THEN pCODE M PAPER 3 CIRCLE  OVER xNOT  OPEN #zi▙0PI[I]NOT @s<=xKZfaO!LSGN  INVERSE [hZ THEN LAPI RESTORE ▝(A SAVE 4" PAUSE j5<>H-LEN [N]: STEP @X BEEP _BIN jACS  DIM * FLASH w RESTORE 4 GO SUB  FLASH [R] STEP . OPEN #[R] LLIST  COPY 7 ERASE AT E FLASH  OR [D][N]q BRIGHT [J] COPY 3<> CLS K[T]INKEY$ PRINT fG[L]PEEK LN 0[D] VERIFY 9 INPUT CODE RNDd/oTAN  LOAD  COPY ( CLS v DRAW  NEXT <>▙ NEXT s CLEAR  LLIST PEEK ~▝ READ s+<=TAB O: CLS [H]<▚# RETURN 2 FORMAT ij1 .[J]y COPY 9 FORMAT c STOP a OPEN # PAPER  MERGE j CAT  DATA 4[C] LLIST  OVER lUSR $ LET INT 1 OUT 1(Hs RESTORE 3x VERIFY A[O]z▞ LLIST {6[O]("6QE00[O]+2q RESTORE &PEEK 1I!/ THEN  LOAD  INK SQR ATN w<>[D]ATN KKSIN 7[T] RESTORE S^_ CLS  INK W|! BRIGHT [G][O] CLEAR ([M]nSTR$ F}[N]IN ( FOR UINT  PAUSE  RUN SGN "] INK 2/QIN  LLIST  OVER *USR  AND ]wY NEXT * OVER  RETURN  LOAD  LPRINT  NEXT  GO TO J TO MCODE [Q]VAL$ .wp MOVE [L][I] INPUT  AND ? INK & FORMAT <=▚ ERASE F3=▟6[T];8 FORMAT  BORDER  LPRINT  OUT  STEP y_PEEK >CODE [?] OUT USR  IF  DRAW  CLOSE #SIN ▞ PLOT  3 RUN  LIST  BEEP SQR LN  OUT  CLS  SAVE IN ? CLEAR  DRAW ^ PLOT  © POKE | RETURN ?▝[J][E]& CAT oCODE INKEY$©uIN  PRINT  RUN fVAL so RUN COS 3fTAN ATN VAL TAN AT  OUT QFN EXP  INVERSE STR$ : GO TO n RUN [O]* OUT >=!x FLASH > DIM PEEK  ERASE p%TAB CHR$ SQR  LPRINT  IF q#y=ATN PEEK  STOP [B]ABS  OUT ▟,# RESTORE  PRINT  CLEAR  LPRINT Zf RETURN G5 THEN  PRINT STR$  LET O:2~<>USR  GO TO  INVERSE qM RANDOMIZE g PRINT  LLIST  CAT  NEW LN :_ OR [-s INPUT ▟ INK <=ATTR EXP  STOP ~"LEN  PAPER [F] PRINT RND[I]BIN q; LET  GO SUB  PRINT >INT  STEP  RESTORE  STEP  RUN o LLIST RLN } PAUSE  BRIGHT B NEXT InPI CLOSE # LINE J VERIFY < FOR SIN >vs OPEN #[D]TAB Q INVERSE  GO SUB  INK =;YBIN  TO  INPUT n[T]7`"[M] FLASH  CLS ! LPRINT 5 #6: PRINT  OVER S FOR (>x INVERSE SQR  GO TO F( RUN ABS ▘ POKE  NEXT [L] NEXT  INVERSE * AND CODE  BRIGHT &d[G]6 LOAD  LINE ; SAVE ATN  PLOT   CIRCLE v READ y STOP BIN  RETURN ▟nf CLS [C]<> INK :g FLASH mS▘ STEP  GO TO BIN P( DEF FN Xm$TxX NEW xPEEK  RETURN [Q] NEXT SGN .N) BORDER  DIM %SQR  PLOT  USR VAL STR$  OUT +PEEK  GO SUB H:4m[G] STEP [S]zj BORDER  LIST COS 0CHR$ *-t[G]<R/[NOT  AND  LLIST  PLOT  ; PAPER :v|[[ACS [T] OVER W5©a<> NEXT  INK !qUSR  GO SUB 2 FOR sp BRIGHT  RANDOMIZE  LLIST  PLOT  0yVAL$ ATN | OUT ▚CHR$  CAT  LLIST  FOR STR$ ~ INK w>[R]VAL ASN  OUT [I]IN  FOR =CHR$ K BRIGHT 1/[O] AND IN BIN [P]` NEW SGN %eCHR$ SIN p STOP  STEP  MOVE ▞ MOVE L DATA [A]TAN SQR  VERIFY <> CIRCLE ATN  VERIFY ▟<=PEEK USR  DEF FN [I] INVERSE 3▘[I]E DRAW [I]T~EXP ASN p<> LET CODE {<>▗ LLIST [G] OVER < RETURN 0F2 BORDER { STEP WPEEK  FOR GACS [P] READ  OVER C&=Y8`5 OUT  PAPER  OVER Il RESTORE  FORMAT : PRINT RND! OVER > POKE 3/ BEEP VAL  ERASE `<>q"STR$ SIN CHR$ *IN ovDMABS  STEP USR SGN x LOAD ATTR  STEP o RESTORE USR  VERIFY  RETURN  NEW ( CONTINUE USR Y COPY STR$  DRAW >=)/ MOVE EXP O NEW  ERASE  OR  DRAW ,+_y PAPER TAB  BEEP SCREEN$  RETURN   POKE Ly▗! STEP [T]y GO SUB ▖AT  OPEN #> LOAD $ LOAD [ PAPER <> LLIST " NEXT  INVERSE >=[C] REM V|[P]t RESTORE c CLS v:SQR AT SIN ( RANDOMIZE  DIM /oM&u AND lEXP  OVER  PAUSE (INKEY$n RANDOMIZE ' DATA  PRINT  OPEN # INK 6 LIST  LINE  BRIGHT ▖w INVERSE ~<> BEEP /SQR  AND  STOP TAN  POKE  OVER  RETURN  COPY >=< PAUSE  STOP fi STOP  LET  OUT FN  FORMAT ▞2IN o`)2a<> GO SUB y BRIGHT 1 RESTORE  CLOSE #$ RUN /COS  CIRCLE SIN 9x[M] RUN EXP  CLEAR v+IN AT sNOT ~TAB . VERIFY ▞:▛yAT / MERGE  OUT  COPY VAL {▘> LET ▝C CONTINUE <>n PAUSE AT  LIST 3 STOP # RUN PEEK  CONTINUE  RETURN [F] OVER ?s GO SUB  GO TO [P]# RETURN  INK [J]EXP LN ▖USR ▜STR$ _ OUT LN  MOVE ▛▖g[B]▞ACS  DIM TAN C[R] STEP m!▗/ RETURN  FLASH ▙A FLASH [B]▘tq READ gcC▙[G][P][K] CAT ~cACS  CLS  INK U STOP M ERASE g?ESCREEN$  CLEAR  GO TO I[C] RANDOMIZE [P]O▚ DEF FN <=CODE CHR$  INVERSE ?N INK SIN EXP 9PEEK INT qCOS TLEN 1>=LN 8H CAT  SAVE  COPY ATN 7 FLASH  CIRCLE  PAPER INKEY$oVAL po LOAD ATN PEEK INKEY$XL2SGN  OUT {# FORMAT  STEP  RUN #QCHR$ TAB  OUT LEN  VERIFY LEN SQR  FOR %,▞ CLS ? REM [G] LINE  OUT NOT  INVERSE 5TAN  CLEAR  STEP  LOAD  INPUT ABS : STEP  INK  GO TO [G] PRINT AT  LOAD HATTR  VERIFY nSTR$ ~ COPY <>p7c LOAD [L]7; PLOT   FOR USR )V?yPOINT (0AT ▘▘[F]6=hUSR R PAPER ▙ OUT Q▙D▞ CLEAR  READ g8K TO  GO TO  RESTORE  CLS  NEW (~[T]< AND NOT  RESTORE IN [A] NEXT >=? INK  IF >=0H PAUSE  STOP k[F] PLOT  /}[P]▚ PAPER G▙▙INKEY$AT [E]@ CLOSE # IF  BORDER  LINE ;COS D[S][M] OVER  LET ATTR #R<=oWQ`A`  CLEAR ▙< CAT POPEEK   BORDER FN 4 RESTORE [D]J[T]POINT  VERIFY  CIRCLE [H]RNDPEEK  READ gv▜[P]RNDPEEK n RUN IN z MERGE .<= DATA  "[P]ASN  OUT J} BORDER  DRAW  RESTORE 9 RESTORE  NEXT #PEEK  DEF FN Q> MOVE <= RANDOMIZE , RETURN  LPRINT [S][D];~BV LINE SIN ;~![F]i RESTORE . CAT ▞ @ COPY STR$ 2▙R) COPY ASN ``[U]>PEEK  RESTORE XFN rBIN ~L LOAD COS d6?POINT  CAT  NEW  /[O] LIST G[D]. VERIFY  POKE  REM +4FB0 FOR <>w>= CLS AT L READ  INVERSE 9 STOP $' LINE # MOVE Q;[G]Bk VERIFY  DATA  $*▘}PEEK 5 [G]?dXATTR  OUT hPEEK  IF x [I][F]f<=[P] STEP p DRAW O CLEAR  READ 0lqy MERGE  STOP TAN AT CnD[G]77[K]{3[F] OVER ATN LN |6 LPRINT  PAPER ? NOT  BORDER IN VAL  BEEP &SGN [N][ LPRINT 0 COPY qVAL$ ATTR [E] k RESTORE SIN G STOP LN  CIRCLE  BEEP  NEW 3 COPY 6 GO SUB VAL V/ LPRINT  MERGE TAN Mk POKE  PLOT  >[L]^ STOP ( CIRCLE } OVER  PLOT  ATTR  GO SUB [Q]k]' NEW ~'POINT @SGN TAB nP INPUT  STEP P RANDOMIZE xIN OW[T]q RUN [G] RETURN  y PRINT  RESTORE  MERGE CODE  BRIGHT [R] MOVE kZ BRIGHT  LLIST  NEW PI PAPER ATTR }SGN  DIM  BEEP C"8 CIRCLE #_L GO SUB n MERGE CODE  LLIST  OPEN # RETURN 2 GO SUB VAL$ jUSR [G]]<=▗pATN 4[S]+/ COPY n~<[`▘ POKE  RESTORE [G]m( CLOSE #LN J VERIFY  LPRINT z SAVE  RETURN 0Kr GO SUB _iSQR ^STR$ [I]|sCODE JrTVAL "nUSR  INVERSE  CLEAR LN b STOP ▘ USR kSIN u[[F]VAL tX COPY xLEN   LIST CODE <> BRIGHT  IF <=!b/s RETURN  OVER SCREEN$ FN  NEW  LINE  CAT  IF />© FLASH  RETURN  THEN _  PAUSE SQR  INPUT [M]ABS  CLEAR  POKE :1/ NEW t[D] CLEAR  OUT & CLS O>=[M] PAUSE gSIN  NEXT [E] GO SUB  CLEAR  THEN  MERGE EXP  VERIFY L CIRCLE  COPY  FLASH  CIRCLE © BRIGHT ▙▗2 OUT IINKEY$NOT SABS 3 BORDER  OUT hVOLECHR$ R AM:/)[M]lRTO:NK PAUSE  IF (/ CLOSE #I OUT  REM  FLASH $Y INPUT % BRIGHT $/8wiSGN 8 RUN f IF  LOAD f]9<> CLS vLN x0[K]X[ASN ▘ COPY  GO SUB s STOP  DIM 1EXP  POKE  DIM  PLOT  CHR$ ▛ BORDER  OVER  INK ^@ CIRCLE  INK  MOVE XPEEK  BORDER z<=IN  REM [E] BORDER -, BEEP NOT %SQR  POKE RND REM  CLEAR [G][C][N] COPY ▗> TO  RANDOMIZE  MOVE STR$  LET  INVERSE  LLIST SQR  CLEAR  READ aV9 INK  RANDOMIZE k MERGE  OR  CLEAR e< LIST ;XEXP ▗oLN  PLOT   DIM  INVERSE IN  DRAW  OUT ▘ OR NOT <> CONTINUE 3>=ASN [L]/F STEP > GO TO  LET ACS `SIN  REM  RUN  OUT  DATA F FOR  DRAW COS H NEXT  STOP COS ▛D[L]V AND <> LPRINT LN [C]2_ COPY ATTR ▘ CLS  BEEP ATTR  COPY  OR ^oTAB NOT BIN `lZBIN [L]BIN LN TAB BIN zn LINE [M] LINE !* DATA  CLS  PRINT ATTR  GO TO >  STEP  FOR SIN TAN ©,Fn DIM f!TAB INKEY$ AND <=<P&a RUN SCREEN$  DATA ASN  GO TO USR ▞C[M]ztLM VERIFY  IF  REM  PLOT   BORDER  LINE NOT # LOAD [Q] INK x© GO TO 0[S]©3ASN <© LPRINT  PAPER  GO TO "Yi CLEAR  FOR ~PIG>=IN ^j( NEXT x INK y OUT ▞ THEN MTAB c RUN  BRIGHT  BRIGHT X, RETURN v INK  BEEP # CLOSE #[G] CAT  INPUT ▟ FORMAT + CONTINUE SGN %+ FORMAT  OPEN #[E]i TO i, TO  INK  LET STR$  GO SUB  DEF FN 9 FLASH  OUT  w4 STEP BIN  LLIST ATN  IF [R] NEXT SGN x RESTORE L STEP ▙~=r DIM O AND OEXP  STEP oPIV▝_> DRAW 79[U] LLIST NOT j GO TO  DATA [L]! RUN CHR$  TAN  CONTINUE  LOAD  PRINT ▞ NEW  AND  LPRINT TAN - BEEP  STEP  RUN  REM  CLOSE #![J]PEEK T PAPER INKEY$ ERASE ACS #ATN  PAUSE J% COPY ▗©8[F]sRND7[M]3[R] INK "c GO SUB  INK  OUT  THEN j LIST ? PRINT O< LET %.0 NEXT L VERIFY   PAPER zPOINT [B] FLASH  RETURN  COPY / SAVE  INK  RESTORE [L]*ySQR  INK @ FOR ACS LsEXP  LOAD _;zcN!:iSQR x PAUSE =VAL$ [T] THEN M/ MERGE  INPUT 0 CLEAR  CIRCLE ATTR f LLIST jV ERASE L INPUT M▟Om!K RANDOMIZE [F]56 LLIST  STEP c CONTINUE  GO SUB CUH CLOSE # OUT u RANDOMIZE x[T]" LOAD  GO SUB  RETURN ( PI[L]|ASN ▘L LET }S INPUT 0 AND ~| CAT M<= POKE PI PRINT t<>*▜ INPUT  ERASE [D] NEXT  READ T THEN CODE COS &+ LOAD  IF  SAVE 2 DIM ▞▝ OUT l POKE N"0▛ LIST LN >▚#_=BIN 3SIN FN z LLIST STR$   CAT , LPRINT O MOVE ~0:[I]}w COPY }[C][G] ERASE [L] INPUT  GO SUB D VERIFY 3 LPRINT  FORMAT NOT [O]WK[G]<>3+ DRAW CODE SIN [D]SIN X BRIGHT $PEEK > COPY  LINE <>q FOR  LPRINT M INPUT 6ABS vm9SGN < FOR TAB [M]VAL$ ©_>6h_IN TAN  LOAD  RESTORE ] CONTINUE  PAUSE T=CHR$ + LOAD >=|E▟! CIRCLE ATN LN  DRAW [P]gFN  NEW <= FOR S_O|G> DRAW  LPRINT  RETURN  CLEAR [Q]FN /BAT  OPEN # MERGE |[A]G OR  STEP O LOAD STR$ % SAVE  MOVE VAL$ e[N]uUSR lSIN LN AT dkmns CONTINUE   BEEP km[G]U AND <=[p GO SUB ▞(f OVER gvAT ABS [J] COPY  LLIST  DEF FN u GO TO "/fABS 7 LET  PRINT N TO )&VAL  MERGE  LOAD AT  MERGE -EXP  RESTORE  MERGE k^ STEP TAB  PRINT 6 THEN y[F]x(/L BEEP  NEW ©▛/ PLOT  0r LPRINT w~~| OUT  GO SUB SI LIST ZDAT x VERIFY  OUT YH?STR$  LLIST x[E]ATN  PAUSE  ERASE Y LIST  DRAW PAT qNOT [F] GO SUB [F]g SAVE /OVAL >=yLN  RESTORE bk"© LIST . PAPER ©eM INK kHGINT `x OPEN #m FOR }▝ RETURN [A]gLN [J] BORDER o GO SUB [VEO CLEAR g}o OR  MERGE  RESTORE  BORDER  COPY zATTR  LIST  LLIST  MOVE STR$  READ %CHR$ ▜STR$ [D][I][P] MERGE  INK ! LET [F]RT DRAW [H]W LET BIN BIN =o}hZ▝r NEXT 16#S DIM  MOVE ABS & NEXT e CLEAR ▝NPI( SAVE x'SQR 'FN  GO TO LN  THEN  RETURN  LIST FWWI/#J~SCREEN$ USR  PAUSE AT  COPY [N][Q]CODE USR ATTR  DRAW o| DATA  INPUT  RETURN IN SCREEN$  COPY  LIST  CLOSE #ATTR }[N]MUSR  PRINT W SAVE  OR [E]M FORMAT FN  CLS ^ FLASH ,(0g9",,B` GO SUB  OR  DEF FN AT IN  INK  CLEAR ! VERIFY  OUT :Jr=IN 7EXP   SAVE ]TACS ▟▚pzx<>s[N]y BEEP IN  THEN IN  MERGE >| GO TO  NEXT TAB  SAVE 6PEEK  PRINT  PLOT  ©O? CAT ▙?<svL'7g CIRCLE <AffKH CLOSE # REM o[J] RANDOMIZE w|0>5▗a DEF FN  DEF FN <>9| THEN K OPEN # LINE  OVER  GO SUB ,5c% AND j SAVE  FORMAT >go{s)e<LN  GO SUB  STOP  OVER >c`©LEN "{l[L]8`~FN ` FLASH ©1POINT USR POINT  CIRCLE  DIM  DRAW  CLOSE #?] DEF FN  AND 6 VERIFY uRNDZ[P] INK WATTR `▝[D]*©Sq FORMAT V&[T]<3o©RND?@USR AV FOR +[Q]Gh`[O]kFN |f▚" LOAD  DATA AT Kh.JVAL oRND<>>=V.@< BORDER cpflxc OR r OPEN #>="g PAUSE w CIRCLE VAL  IF s{og-[H][A] CIRCLE #^[C]VAL  LOAD [M]5h DEF FN 0>=m COPY FN P STOP  MERGE  MOVE [A] FORMAT ©6USR  FLASH 1`N OR  FORMAT NOT fACS Vg CIRCLE ©J▞POINT [A]#bPEEK EXP EEXP G[A]$0n<>0@~ LET ^ CIRCLE ▚Y SAVE  TO  CAT <> INVERSE [A] CLOSE # REM <>f0<= LLIST 3=iLN E▜8lI&TAB  IF  CIRCLE USR J:<  OVER TAN ©+[N][B]8Lq([F] DEF FN x:_0<8RND STOP `: STEP APEEK J MOVE  FORMAT  POKE OVAL ▝ACS  FORMAT 5[K]PI COPY Z[VAL RND INPUT ATN ▖LN <`/dn▖CODE [A]USR UTAB <> FORMAT ASN [T]ACS LEN  REM [O][B]ASN j@pINKEY$TIN [I]STR$ 8 BEEP [I]INT [Q]v3[A]xSQR LN ASN 4[R]▙i TO [B] INVERSE  LET * LOAD  OPEN # LINE TAN  DATA <> SAVE  LLIST > COPY ! LIST PEEK " STOP SQR NOT  INVERSE  NEW  RESTORE  PAPER E CLS y LET # IF #PEEK   CLS  LPRINT :6 LLIST  RESTORE  LOAD  IF <>~i RUN 2* PRINT > BRIGHT [O] POKE :PI  COPY  OR E OPEN # OR ~+ STEP STR$ {/<>[D]© COPY  CLOSE # PAUSE  POKE CODE PEEK  FLASH  PLOT  [N] PRINT ATTR  FLASH  LET IN ▘~+<>O NEW <GATN 9 OVER ABS >[B]O COPY [R]N FLASH   DRAW ?<>. FOR G>>= PRINT ; INPUT [U]m/ NEXT +LN | READ   SAVE  LET <> STOP o~[F](EXP 0STR$ [A]_3 RESTORE  INPUT {<>BIN y/[U]ATTR {j_ PRINT ©EXP 8 INPUT OC REM x<>:& PLOT   LOAD  VERIFY > STEP ATTR  PLOT  CODE  LIST r MOVE  AND /$G~LN YCODE ▝QINKEY$ PLOT  yi IF <> CLS [L]UW mINKEY$Y&INT  PAPER *ACS  MERGE . CIRCLE ▖Zj{AT  RUN U[F]ASN SCREEN$ ACS [S]PLATN IN Os9 CIRCLE _)[I]8!VAL +ABS [C]pe<G▜~ COPY  NEW ▙ MOVE STR$  LLIST 6 DIM O THEN '▝KASN  LLIST w PRINT [ PAPER [K]I PAPER  BRIGHT  BEEP  BEEP [I] PAPER [G] BRIGHT  READ  POKE : BRIGHT  SAVE  COPY  LET k[U];COS 6 FLASH  BRIGHT N LLIST  PAPER  BORDER H Ex MERGE  VERIFY NOT f AND ▗INT  LET  LIST (8LyCOS  IF  AND LN IN :SCREEN$  PLOT  TAN [C]LN  RESTORE  RUN  RUN  COPY 4>= STEP { GO SUB [Q]O~▝w LET M[O]tAT  MOVE 4 LLIST  FLASH  FLASH  LET  NEW ;USR  RUN C<>vSGN  LET  RUN &ATN cTAN >= GO SUB SGN  INVERSE LN = READ  STEP d PRINT EXP !^[H]ATN  DEF FN EXP   IF SCOS ABS y^ FLASH  COPY  CLOSE # DEF FN  FOR  GO SUB VAL c[N]1 VERIFY X CLOSE # DEF FN  FOR eUSR  CLS  CLEAR [U]e RUN l=szvm" CLS ATN ▛ GO TO eACS [D]v9)( RESTORE !1 FOR  INK  LINE  RANDOMIZE  IF  CLS g= DRAW  CLEAR [T] RETURN  COPY z PLOT  Y CAT = FOR AT g[O] PRINT  VERIFY COS yY NEW ▙ATN [M]> TO ▚5 OUT ▗▖SIN  CLEAR ▛D[P]© OR SCREEN$  PRINT fNF"U[O]} LLIST sSCREEN$  FORMAT HPI INPUT /T} FLASH  INK ▖;E NEXT  MERGE © STOP  TO  RUN OSCREEN$ 3F BEEP  REM  MERGE ASN  CLOSE #=>= OUT PEEK ZjCHR$ [U]TBIN 2ACS  MOVE  VERIFY L LET  TO  DEF FN  PAPER ": CAT ▖ PLOT  BIN fqjpTAN  MERGE PI FORMAT $OO%( CIRCLE  OR  THEN [O]Y VERIFY [R]5[D]Ab[Q]K CIRCLE ▝MSCREEN$  RANDOMIZE [A] RETURN 10SGN >=f[P]ZLN HxF? GO SUB [P][I] CLOSE #VAL 1[Q] STEP + OR hjXFN <|PIUH>= DIM /Aj%d AND  MERGE ATTR [A]LN hATTR  INK x5VAL RSGN [I]USR ▖T LET VAL 5qt/ LINE FN [=h FORMAT  CLOSE #a PAUSE G[K]A5 CIRCLE  LINE !_RND CIRCLE [2Gde▜▟` SAVE pAzig INPUT f LINE RND(<=TAN /R[I]PEEK x COPY 0[Q] REM STR$  LIST j SAVE  FORMAT  LOAD  MERGE  CLEAR  VERIFY  FORMAT tp CAT  COPY  REM %7 CONTINUE  RESTORE  FORMAT  CIRCLE  IF  DRAW  LPRINT ABS FN _FN  COPY =orB[Q]SGN [E];9ABS / FORMAT <Z COPY gVAL ▞ IF -VAL  BEEP  FOR  NEXT  BORDER  PRINT UX[S]3}CODE VAL FN VgPICODE  RANDOMIZE f LOAD =U PRINT  MERGE [R]0/[B],.[P] BEEP  CIRCLE POINT  FOR S`- OPEN #▝▗STR$ IN  STEP S CLS <>"INT  DRAW  GO SUB [T]▖SGN FN  BEEP SGN  SAVE y2EXP  DRAW  STEP R INVERSE ! POKE w DRAW -[L] LPRINT >=[O]SQR ▛[P] PRINT RCHR$ o[K] CONTINUE O FOR  READ  CLEAR  CLEAR PEEK  STEP y LLIST  LOAD N#y DIM POINT  IF  CLEAR ) GO SUB   POKE yuM SAVE  LOAD ACS  GO TO x LET [I]IN  CLEAR ut SAVE [D]#x DIM  OPEN #PI MERGE  OR  FORMAT xEXP  CLEAR I CLEAR +[K]7n OVER fPEEK [F] COPY 9` DIM  ▟ RESTORE ATTR [D]iINKEY$ LET USR <> RESTORE  STEP : FOR js_m RETURN  THEN ©  NEW SQR > MERGE 9 STEP u▙RND4 OVER CODE  FLASH  CAT LN Y FLASH Mz*3?NO OPEN ##EXP  SCREEN$  READ  RUN T] NEW © GO SUB [Q] SAVE >[N] SAVE SGN ~PI  IF +k:[E]w|NOT _ CAT $h; NEW IN [J]TAN ! FLASH [L],TAN  POKE z CAT SGN [ASN 4 PRINT [M] ERASE ~ LIST ATN  ERASE ><= LINE TAN V CONTINUE [E] POKE  CIRCLE  DIM [F] SAVE + LPRINT  COPY  REM  DATA T RESTORE USR  DIM  PLOT  6_ COPY INT  MERGE Q DRAW ~vr LINE i© DRAW  ERASE VAL$ ~ ERASE LEN PI[L] DRAW )PI INVERSE >fZIN COS G6OO FLASH [/![P]CHR$  NEXT 1[L] MERGE TAB  RESTORE $w| LINE  COPY  LLIST  MERGE STR$  BORDER STR$  RETURN " CONTINUE LN  RANDOMIZE  LPRINT EXP NOT NOT  FORMAT STR$ ▘"CODE l SAVE BIN g COPY 9 MERGE  RANDOMIZE STR$  FOR n FLASH USR | GO SUB R86_ DRAW LN  FOR  INVERSE V^ RANDOMIZE  READ ? LLIST d SAVE ; LET  INVERSE w▜ RANDOMIZE ' RUN  INK IN [O] LLIST  INK e▛ PRINT )INT IN A8 NEXT >BIN CODE 8 SAVE  RETURN ? DRAW _POINT   GO SUB  RETURN (<>Z DEF FN  COPY - INK O NEXT ]SGN 8 OUT ? DRAW (<▘0[C] > DATA [J] LOAD  LPRINT )[M]AT  INK &#g;IN  BRIGHT  CLEAR ( LET o[T][U] INK  THEN 7[Q] LET  LLIST  LPRINT  LIST PEEK :POINT  LET  VERIFY oO[K]c INVERSE [Q] OVER o▜#~▘IN EXP ▙ R PLOT  > DRAW i LIST ;STR$ HG?[F] TO  COPY  INPUT  PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P][P]| DRAW [R] USR  THEN ©▟ OUT  RESTORE  STOP  REM  FOR  MOVE s#r+=1_ FOR 0[L]!X' INK <>zATN O><0, PLOT  M/ STEP ▛ CAT I COPY  MERGE tl MOVE $[ COPY  LOAD c FLASH <>#PEEK  DEF FN  INVERSE  RESTORE NOT /=G LOAD *6aZ CLS  LPRINT MAIN2   C[N]cchrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.HR@( RESTORE  RESTORE  RESTORE  RESTORE  RESTORE  RESTORE F` COPY  GO SUB  CLEAR  CLS  OVER [F] OVER 3U NEXT  FOR USR  FLASH  OVER SCREEN$  LOAD  RANDOMIZE ATTR [Q][O]kP OUT W FORMAT [S] BORDER ABS IN .FN [O][N]] CLOSE # BEEP  PLOT  ▖{ CAT :SCREEN$ G RUN /CHR$  PRINT  MERGE tACS ▘j DEF FN  VERIFY  COPY B"[K]U COPY @▘ DIM NVAL [Q] CLOSE # BRIGHT VAL VAL  INPUT `:) BEEP N[H]CHR$  LET [K]AT CHR$ ;VAL$ ; BRIGHT ABS ;[N]TAB 'CODE IN go LPRINT go8go7 BRIGHT go-SGN goY[O]goQ▙go^~ LOAD ggCODE goYPEEK  GO TO STR$  GO TO  GO SUB ? DRAW  GO TO  GO SUB  SAVE = READ ▛g[M]yCOS gq PAUSE  INK  COPY =/ BEEP CODE PI: CLEAR N_ATTR <>K: OR  CAT /RND DIM jlTAN B BEEP g FOR ▜iS REM  BRIGHT M▜TAB Su[K]u*▚INT uSCREEN$ COS ]CHR$ q CLOSE #CODE VAL$ ▚ NEW  AND [O]; COPY WsbZUSR K LIST > INK ,[H] BRIGHT ▜ DEF FN ,I`#VAL ▘ m©h( BEEP  PLOT   RUN m CAT [F]PEEK + NEW  OPEN #0INT © CLEAR NOT NOT PEEK  PLOT   VERIFY [H]} GO SUB  RETURN SCREEN$  INPUT  VERIFY  CAT AU RETURN  OR [I] VERIFY [Q]a RUN  VERIFY  THEN INT  POKE U© VERIFY SIN r BORDER SCREEN$  VERIFY BxP THEN AT  VERIFY BIN AT FN + VERIFY  INK  LINE ? PRINT >fUSR NCOS ▜ PRINT 5 COPY  LPRINT  VERIFY [R]w:SCREEN$ IN  PLOT  ,BN[K]8<>{ACS 6 OPEN # COPY  GO SUB U CAT t;USR  GO TO ] BRIGHT ©USR  PAUSE  INPUT © COPY v INVERSE v`?ATN SUSR a LET ATN COS b RANDOMIZE ATN COS eABS ATN COS eATN COS kATN COS k LOAD TAB  OPEN # LOAD S[N][N]TAB ATN ;gATN COS g[N] PRINT VAL$  BRIGHT c RANDOMIZE  INK 3 LINE [N]{ AND ▛ CAT 8p?g7^ RETURN On GO TO : STEP wL CLEAR | FOR (PEEK [IN (CODE V NEW  BRIGHT  LIST  PAUSE  POKE  DEF FN ?USR  RETURN P [F] DEF FN [M].TAB [▛ DRAW V BRIGHT  INK z▗ PRINT  VERIFY ▟qTAB COS [N] REM q[O]ASN _ COPY <[M]j FLASH  LIST CODE  LIST r9 TO  SAVE NOT Us VERIFY  RUN ABS  FOR  OVER  CAT SGN  RUN WAT  OPEN #Aq VERIFY  BORDER q POKE  RESTORE  VERIFY [M]w[F]© CONTINUE  STOP  OUT  BRIGHT NOT ATTR / VERIFY |W OUT oyY DATA }_j LIST  PAUSE :/SGN IN CHR$ IN FN CODE @[ OUT ▟e@VAL ;{~Pm/ VERIFY ATTR xCOS CODE ▟ VERIFY SVAL$ S LLIST  VERIFY  BRIGHT ATN COS  CLEAR  VERIFY  CAT SGN R NEW  CLOSE #'>= STOP  GO TO [M]ABS <=U VERIFY ▗[D]8y▟C[N] CLS _PI[N]PEEK NPI}[N]EXP  IF :PEEK  POKE uIN  DIM  FOR ATN  OPEN # BEEP VAL PICODE VAL USR j BORDER  LN PEEK  REM .u: PAPER [M]© NEW INKEY$[P][D] RETURN ▛ BRIGHT ▛_ LINE LN ~ LET INKEY$ OR /[E]▘ASN ▝pIN  SAVE LN  READ (o[N] VERIFY  IF : FOR  LIST so LPRINT  VERIFY gSCREEN$  BORDER TCODE 9t} TO ASN  COPY  RANDOMIZE u PLOT   OPEN #J NEW AT bASN  GO TO hyK LINE  DEF FN  INK w OVER USR P=0USR  LOAD SGN VAL  IF A[:y PRINT  LINE ABS WATTR  GO SUB ABS © FOR [N]. INVERSE  AND }_ IF a CAT [H] VERIFY hY[M] VERIFY  AND y>= LET k READ SGN  VERIFY CHR$ r▙/ VERIFY  OUT ATTR ? OVER W{ OVER  BEEP  INK NOT  LOAD X[I] READ  RESTORE ] TO Ys PAUSE ~ CIRCLE SQR xIN  INK _N OUT [L] BEEP [J]COS  POKE _PI LOAD  STOP  NEW NNOT  BORDER y CLEAR [S]ATTR s{c[H]: RETURN  BRIGHT _[B]3N POKE  STOP [D][L]CODE  IF INKEY$ CAT  FLASH  INK  DRAW N FLASH  INK  LIST © FLASH  INK  NEXT  RETURN ▘[E]NTAB ;]yN RETURN ]` POKE  LINE  GO TO  GO SUB  NEXT  READ  GO TO  GO SUB  LIST z NEXT  GO SUB  DRAW K BRIGHT PEEK | DEF FN  LINE STR$ L^ STOP  RETURN | LLIST  PAUSE  RETURN |[E]b OUT [T]tCHR$ ^CHR$ t LINE [N]Wr CAT G CLS  PAUSE  BRIGHT yIN  CLEAR  CIRCLE IN  RUN  OVER 2V INK w OVER SQR 2X FOR { LOAD [J] BEEP  FLASH } FLASH © CIRCLE  INPUT PEEK  STEP YAT h©ABS `[N]SQR ACS ABS  TO [N] RESTORE  VERIFY  VERIFY K LIST  IF x[P] AND  LOAD  LPRINT }^ CIRCLE  PRINT yLEN 1▛▖ASN  GO SUB COS 3 VERIFY ACS [F][E]y}EXP 9 RESTORE  DATA  BORDER  PRINT SGN <| CLOSE #o IF gQ[P] RUN  LIST d<= PAPER  FORMAT c GO SUB  PAPER  CLEAR  DRAW BIN ASN TAN [P]cLN  RETURN x/ OUT <>k▟Y BEEP CHR$ ▜<= GO TO  GO SUB  NEW <= NEXT  LPRINT UT DRAW  DEF FN  PLOT  [L][I] BORDER 'INKEY$>  SAVE VAL ASN  CIRCLE USR x?[K]VLPEEK ©yTAB  CLS ASN  PRINT  DATA ]3|[E]VAL$ VAL 0[K]POINT dvj<=XfvPEEK fRX DEF FN  BRIGHT  CAT [G]CODE /pAT e LET R▗ CLEAR 6@ VERIFY KHVAL Z@VAL USR @TAN (.S3z[Q]d▖4[E]z FORMAT  FLASH  OPEN #SCREEN$ [Q] ED>k OR BIN  PAPER ACS PI' RANDOMIZE .t▟}.(z PRINT  POKE  NEXT YDRe REM G RETURN AT [B]|LAT  RANDOMIZE ▖pO▙ RANDOMIZE   NEW ▖ LIST COS ACS |# CLEAR AT Na{COS [P][H] NEXT [T] RANDOMIZE ▟ FOR  READ "2 BORDER  INVERSE  BRIGHT STR$  VERIFY @#ukVSTR$  RESTORE FN >▟~ RETURN  READ IN  OR  CLEAR  CLOSE #<=▙[L]) NEW ▖>k70 DRAW [T][M][H][A] IF  CAT qs| POKE ` INPUT  DEF FN  CONTINUE 8COS 9 BRIGHT  MOVE b FORMAT [S]"s CAT  LET _@INKEY$&/ CONTINUE CIN xCODE [Q]ABS = BEEP } LINE  FORMAT RND%[I];f[U]$AT  BORDER LN  FLASH x[I] BORDER LN 8[K] FLASH  MOVE ▙y;jWGmH]2BIN z THEN  NEXT W.[ FLASH  RUN  TO } BRIGHT  DIM  FORMAT  POKE hX<= NEW VAL$ ^ IF  SAVE  OVER ]p-:TTAN #4M+>> INK 'TAB INKEY$PEEK (s CLOSE #b STOP  LIST  FLASH ▙ DEF FN  DEF FN Q▛G READ  FORMAT [P]k! POKE NBIN oGLN : POKE TAB ~ CIRCLE y POKE PI8 GO TO ACS  MOVE  BRIGHT 54 FLASH  PAPER ABS SGN jk;8 BRIGHT CHR$ f[T]m STEP  FORMAT  OUT FN oFZa<oA@;[U]x4"▙ IF [E]▚tS▙[L]ACS mG FORMAT ? GO SUB FN ACS #Vv CLOSE #ABS  FLASH LEN . LLIST  STOP PHmPOINT  GO SUB  STEP [F]PEEK  INK FN  PAPER  MOVE k GO SUB -,L) TO ATN [Q]ASN td0^@CHR$ z% READ [ FOR  INVERSE m$▟ DRAW  BRIGHT [J]C"[T]#[I]▞ MOVE " OVER @j[L] LIST CODE /?T FORMAT [P]<=[A][R]!FSIN sD NEW  VERIFY  OVER  SAVE  LPRINT  STOP  CONTINUE ;[S]USR | CAT  MOVE [O][S]USR L[T]ACS jASN p|G} CLEAR =vLEN F TO p=P FLASH  MOVE <=:[K] BRIGHT z FLASH QZ;jYACS ]LN POINT ▞yCOS FN ▖PEEK  LOAD ATN ▜L▙TDy[L]x COPY Q`X MERGE INT @<=SQR  PLOT  DML[T] OVER  OVER ▚ AND [E] GO TO BIN q- MOVE  LPRINT  FORMAT  FOR PIACS #  STEP  TO !<= LET  IF  INPUT [G]c[O] PAUSE  DRAW |▗ INVERSE  BRIGHT G<=j/<= PRINT ▖▚ REM  BRIGHT p FORMAT  OPEN #usBIN  CLOSE # POKE A BORDER X INPUT . FOR  CONTINUE ▜ PAPER { DIM  FLASH  BRIGHT  DATA T^ LPRINT -"PEEK  BORDER  GO SUB  RETURN -CODE  TO ACS 4 OUT ▖ GO TO RNDMUSR BIN =<dVAL SGN IN *@ BEEP  THEN  CAT RNDZATN BIN SCREEN$  PRINT PI MERGE  POKE  DEF FN R[R] STEP hRCHR$ R/ FOR ASN  LPRINT  RANDOMIZE  DRAW y} DIM  PLOT   CIRCLE ;R#GmB CONTINUE l▝POINT  GO SUB ASN @ PAUSE _▙ IF iQ FLASH : FLASH a;mG▜INKEY$bw CLOSE #nFN  GO SUB  OUT > DATA  LPRINT [T] DRAW ©p3 NEXT ?} OPEN # INVERSE  TO  BEEP CODE  CONTINUE ▚W GO SUB BIN [T]m@&W@k^ BEEP ▗@h@w CAT PISQR vk MERGE BIN ;VAL$ o LINE ▙} REM Y} RUN  INK  PAUSE  PAPER SGN   ERASE  NEXT USR }>yx DEF FN G▜ GO SUB  CONTINUE DPEEK  PRINT  ERASE TAN <^nw}| PRINT FN AT m+ BRIGHT "fG/▜[H][E] MOVE  MOVE  DRAW ) RANDOMIZE ▚ LOAD  BORDER  LLIST ATN L RETURN LVAL [S] REM  INVERSE L LOAD $ BEEP W2PEEK [ STEP PINRg▝R/; NEW R BEEP IN  OR R©R{v GO TO R~TAB RVSIN  RETURN !y POKE [C]3 INPUT V IF SL OPEN #7▘INKEY$▗ VERIFY  OVER  IF  PRINT ~ CLS [F] COPY n^ LET  STOP  TO COS ?VAL [H] SAVE #Zr5C43.v LPRINT <>.> SAVE [K]AT  GO SUB ABS o GO TO  RETURN [N][M][T] PRINT  LLIST EXP hx SAVE S OVER  LLIST  FLASH 7 ▚ COPY XUSR 6^RgG PAPER NOT /kCHR$ CODE  BORDER _s4@AT  STEP <= CONTINUE [Q] PRINT  RANDOMIZE G[P] FOR  DIM AcCODE ▖hEXP 7▗© CLEAR X?USR .: RESTORE SQR v. INK .INKEY$&POINT ].RND%. BEEP  BRIGHT . NEW x1.VAL ▖[P] CLEAR  LOAD  LPRINT h COPY  GO TO [I] CAT g[G]-INT [T]q>▗1G[M] LINE [N][T][K]<6 STEP  THEN >= FLASH ▛Z0~ INPUT  DIM ++ ERASE [D]R CAT SQR 9R PLOT  .[>*COS Q FORMAT > FOR  BORDER [T]' st% STEP qX NEXT PEEK L CAT ATN  DATA  FORMAT  FLASH SGN ▜[O][U]$[P]r[C] FLASH  LET  POKE  PAPER ▚ OUT USR  PAPER / RESTORE b[H] RETURN ©#} AND c BEEP  THEN  LET  PAPER x^ INPUT 4PEEK  INVERSE  DEF FN TATTR ABS  POKE S© CLOSE # REM ml READ 31p@ INVERSE ACS @/▚[C]1©[S]"$[N] PRINT  ERASE  SAVE B GO TO LEN [R] BORDER  RESTORE c[O]Q OR BIN [G][C]VAL [XN[T]9[O]9▖ CONTINUE ▙:q8 NEW @▙ INK  FORMAT [K]p0m POKE ▙ DRAW ,%x  CLS VAL {z PLOT  I LPRINT U FOR  OUT EXP  CONTINUE 6[Q] FBIN  DRAW , CLEAR ` CIRCLE /6L} OPEN #[U]g030STR$ ASN | STEP  TO "[R]}▚Z[O]P FLASH h READ GGd!L TO  RESTORE  DATA v▛▖ READ  MOVE FN HK> FORMAT +(GQ[C] STEP 70INT  OPEN #PIbTAN z[C][!n ERASE iBIN [N] OVER ▙s PRINT ACS *|# AND  READ ATN N@▛LTAB CODE AT DVAL ]vQ CAT ~z CLEAR  BRIGHT  COPY STR$  GO TO SIN ▝ RESTORE . FOR ATTR ▖ DRAW  DEF FN NOT  LPRINT  MOVE  LIST  STEP P/ CIRCLE  READ ▚ DEF FN  DEF FN & BEEP CODE  LLIST  MERGE ] LET  ERASE INT  RANDOMIZE  MOVE  PRINT  CLEAR  INK  STOP IN  OUT  LET [P] RUN  NEXT  IF  CAT ABS  CLEAR : CLS <=v9STR$ '[B]# OR ~Q BEEP ▙[R]^SQR ? RANDOMIZE [J] CLEAR SQR nABS QK[N] READ  TO CODE giSTR$  CLS ▖ POKE g INVERSE  MERGE  REM 5[SCREEN$  RUN  FOR  LOAD  BEEP e IF AT # REM U PAUSE  LOAD  STOP  OPEN #g| PLOT  8ATN  GO SUB HSQR e0([ FORMAT  CLEAR E PAUSE  FOR v CLOSE #ATN  GO TO g<>//NOT  DEF FN <= PAUSE 7 CLEAR NOT PI INK  CAT  LLIST STR$  MERGE D' COPY  THEN [P] CLEAR SQR SIN <= PAUSE  BEEP ▛[E] LIST  LLIST  CLS zG[P]1 LET  INK  LOAD  STEP  RANDOMIZE <=▜EXP t VERIFY s STOP  CLEAR  RANDOMIZE  AND  PRINT q LET <>[S] LET %LEN Bx#! OR  OR  COPY  LOAD [T]/ DEF FN  COPY [R] OVER EXP STR$  ERASE  MERGE [J]▝AT [P] PAUSE $ PAUSE  IF iINT ? POKE  POKE [G] FOR  RETURN : BEEP  OUT USR UTt INK  DRAW ▖ NEW  NEXT ▞ OPEN #s PAPER 3= CIRCLE  CLS  SAVE # NEXT  RUN  LIST n STOP c NEW  AND  POKE  OUT  DRAW VAL =>= NEXT CP STOP *? IF  PRINT _@ GO SUB o` INPUT  LLIST SGN  STEP [Q]USR  RANDOMIZE v[Q] RANDOMIZE ,> CIRCLE  LET m AND ? REM [M] GO TO [U][Q]6 LIST  FORMAT  VERIFY W~ GO SUB EXP ACS ([U] MERGE  OR SCREEN$ SGN  REM  PRINT ATTR v[C] PAUSE C PAUSE  OR TAN [Q]VAL c▗& CAT TAN  AND [I][Q]7`[Q] FOR ▖ DEF FN  GO TO  MERGE  MOVE