Numb Cars: NUMBCARS.B

Es parte de la publicación: Numb Cars
Tamaño del archivo: 52224
md5: 02c773bf402fb588489a5ede175361de
  10 REM ICEH NEXT 1 COPY ] GO SUB s=/ CLS *▙]|eo"B/CODE 2D/*O/PEEK  FOR  THEN INKEY$!` GO SUB [ POKE / STEP = STEP `NOT uc   (c) 2oo1 triumphgame lab-------- 
  20 BORDER VAL "0": INK VAL "7": PAPER VAL "0": CLEAR VAL "24575"
  30 PRINT "                                ": RANDOMIZE USR VAL "23876"
  0!_ GO SUB [ POKE / STEP =!USR  GO SUB [ POKE / STEP =!USR FN a STEP _!XX COPY u GO SUB VAL  RETURN © GO SUB x THEN GBIN FN a![J]@ GO SUB VAL > STEP POINT `! GO TO  GO SUB [ POKE / STEP => STEP POINT `> STEP POINT `> STEP POINT `> STEP POINT `> CLEAR © GO SUB y!USR  GO SUB [ POKE / STEP =!USR [B] STEP _!USR  GO SUB [ POKE / STEP =!USR ` MERGE NOT _ CLEAR © GO SUB yB/! STEP =!USR NOT _ INVERSE ! POKE  COPY  INVERSE 9 MERGE  RANDOMIZE STR$  FOR STR$  FOR STR$  GO SUB R8T] GO SUB LN  FOR  INVERSE V INVERSE ^ RANDOMIZE  LLIST  LLIST  LLIST ; LET  INVERSE w INVERSE # RUN  INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK <>tmXR[E] COPY  SAVE  CLS ! PAUSE eIN  GO SUB ▛▞VAL  STEP ! OR PEEK IN !6IN | GO SUB [Q]F LLIST  REM NOT a NEXT G OR [L]^ FLASH  COPY Z RETURN [K]6 INK FN  RETURN o CLEAR  INK ![Q]P PAUSE b  STEP  MOVE c CLS v RANDOMIZE [P]3% RANDOMIZE [Q] BORDER _ DEF FN  PRINT ?[C]"USR EgZ LPRINT ;t VERIFY  OVER PEEK  IF T OR  CLEAR  COPY >1© READ yx RETURN CHR$ MbSTR$ fPI CAT [R] STEP (2 FORMAT FN STR$ O82NOT  LLIST LFN H[H] VERIFY [L]CHR$ CHR$ ▛NqVAL$ BIN )CODE >=#CHR$ Sf DEF FN _x CAT '[E]v LIST ▗ INPUT (IN  LOAD O▚ DRAW #" NEXT NOT PI GO SUB RCHR$  FOR f_X INK 3u MOVE I[J]95@ VERIFY VAL b[J]6LEN  LET ▖?SCREEN$ IN b>=[R] THEN v CLEAR  COPY V CLS  BORDER ▞<> OR  RESTORE w, IF  LLIST  STEP  READ bSTR$ CHR$ ▞<>$| NEW USR } AND  o CIRCLE | VERIFY g<>[K]▗7 CLS  DRAW ~[L]g? o~{ DRAW TAB  GO TO  NEXT  SAVE  DRAW  DATA  COPY n[T]KUSR `OPI MOVE 0RND NEXT  COPY  RETURN  POKE =STR$  LPRINT  THEN  CLOSE #NOT 6 CLEAR  DRAW 8p? COPY  COPY  CIRCLE USR ▝)qSGN [P]<=NOT  READ  LLIST  LET BIN ▝ RETURN >ASN  COPY x LIST <|?▜<=k TO USR !n PLOT  ▝USR  PAUSE <VAL P STEP  PLOT  PEEK ACS VAL [Q]I[N] STOP `[Q]b▛ CLEAR TAN ▜▝ CLEAR  RETURN 8USR 0COS  1NOT COS 8 LPRINT © SAVE USR 7SGN ▝ LPRINT  TO  STOP 30 PLOT   DRAW  TO USR ▛# CIRCLE c STOP USR  TO @ PLOT  AT - DEF FN i LPRINT  >=▝ LIST [H][Q][Q]b CAT |x SAVE :[K][D]<>[Q]s8@NOT ^▞` LLIST  SAVE [I]3pJ]SGN ^BCHR$  LIST p▞GNi LPRINT " LPRINT M NEXT  NEXT  OPEN # LIST `?G^ CLOSE #UINT  OUT EXP u[U][Q]" PAUSE ASN LN CHR$ .B[N](c PLOT  ATN  CIRCLE  PRINT  OR  MERGE  RESTORE  STEP  LLIST  MOVE STR$  LET  CLS x NEXT uUSR  COPY  PLOT   COPY CODE USR !▚▟)NOT IN COS N6 Pro~ SAVE TRACKE 3.x LPRINT 'playerVAL$  BORDER f!by[D]-S RANDOMIZE g NEXT  GO SUB sv"N? CLS / LOAD gi▞ COPY d~2 AND ▗#^c6P RANDOMIZE  RETURN b RETURN  RETURN  DEF FN  RETURN >▖#U RUN STR$  CLS  OPEN #▞[Q]>0 NEW POINT  FOR s CAT  PRINT r=  PAUSE 1▛?> LIST 2+ NEW ▛B▚/▜* LPRINT  OR  OR ACS y[D]▚▚[O]AT h OPEN #)SQR  ▗ PLOT  >NOT  PAUSE  LOAD _RNDE}ASN  OVER  LET {Q[P]Mu[E]}6TAN  CLOSE #ESGN [T] PAPER [Q]RND- COPY SGN  MOVE  REM [Q][A]* FORMAT  PLOT  ^PQu CLOSE # CAT cTAB  MOVE F]BIN 5FN F} MOVE  PAPER F[F] ERASE  SAVE [Q]LEN `o| CIRCLE (▖ LIST  AND ▟` LPRINT X0| OVER n BRIGHT VAL @ GO TO [E]v CAT D SAVE VAL 7zp, CLEAR AT gPEEK ▗Xg RUN   PLOT   LINE  PRINT AT [S]|X8 GO TO [O] SAVE  OUT [O] PRINT CHR$ AT  VERIFY COS [A]{eQ CAT z>, GO TO F DRAW  LOAD [O] PRINT  LLIST  VERIFY  VERIFY COS >=ABS SIN FN  CAT z[P][G]V▙STR$ w=pkz[G]CHR$ ^YTY CAT OKSTR$  REM GBATTR AT g;85[O] PRINT 2/ VERIFY COS ,*'%[G]x#BIN  CAT z FOR Yg= POKE AT  CAT n7N?Fv▝ CLS  NEXT Mle▟▟[M] PRINT ,COS  FLASH  NEW  LET : RANDOMIZE Y CAT I CAT  CONTINUE OU0PI|02INT ▖> COPY /< FLASH ▗▜ DEF FN ^ PAUSE <&5L]f▜b{<>▖ NEW  STOP 0▛g COPY t▝" RESTORE ▖CODE 2 CLOSE #Y▜ RANDOMIZE  LET <>EXP ▖ STEP I<><V<>NOT  CAT ▗ CLEAR N% NEXT -CODE go STOP  NEW  NEW g[N]> VERIFY YV}[N]u[M] CIRCLE  CAT  MERGE "[F]m[L]TAN /[M] IF >_ DIM " STOP ▗ NEW POINT +fK GO SUB  CIRCLE SCHR$ yc TO  IF " PAPER  NEW SGN INT ▞BIN  TO  VERIFY 5VAL$ [J]TAB [U] AND ATTR  MOVE [Q]NCODE  GO TO og OPEN #$PI DRAW STR$  PLOT  o GO SUB BIN SCREEN$ [H] CONTINUE ATTR  READ Q&ym NEW  OVER l*C[R]AT [H] REM ` CLEAR [K]NOT  CIRCLE "U CAT ~m CLS  INK [H]b?ACS  LOAD  GO TO  BORDER "CODE ▜S`Y; ERASE INKEY$▚[D] RANDOMIZE  GO SUB [K]EXP `B▚ INK L` CIRCLE [E]VAL [D]EXP  PAUSE  NEW [S]ACS ` VERIFY ▟nBIN  NEW ATTR u>=PEEK Cf OR [O]1 MOVE CODE '`kSPIa FORMAT )[T]@AT erlyV~ CLS 2 CLOSE #[R]=POINT e-INT ;RND;SCREEN$ 3[P]▜BCODE ][G] AND ATTR ▖ FLASH PI(INKEY$"}SCREEN$ AT S[P]2[E]% CLS  CLEAR . INVERSE [T] GO SUB sG7g CIRCLE  FOR < LINE  MOVE [E]/go<[B]INT 8d PRINT }▜STR$  COPY o9 RANDOMIZE  MOVE z NEW  SAVE {PI PAUSE @:©q/CHR$ = RETURN  LIST   THEN  LINE <NOT  FOR [I] NEXT =INKEY$0 THEN  INPUT [U] PLOT  $CODE  COPY *7'> AND SQR &▝O CAT ~ THEN ; PLOT   RANDOMIZE  DIM zog DRAW  THEN m([L]▛ INVERSE g PAUSE b{ TO ASN  NEW  MERGE  PLOT   LIST  MERGE % DIM  BRIGHT 0%o| LPRINT  COPY  NEW  INVERSE  POKE mSTR$ } DRAW [N]c[A]INKEY$} COPY  FOR iSTR$ j VERIFY iLN iy AND <j&9~ LINE >=e▘ RANDOMIZE  LLIST &▙I"RND ERASE = IF  FORMAT  *<>[H]x" COPY H GO TO !8 GO SUB R OUT  CLEAR NOT LN $ ZJIN [N]og▗ DRAW  FORMAT CODE } INK fTAB f<= LET o<><=:[L] INPUT D INVERSE 2 LINE  GO TO WJ PLOT   INPUT  OUT [L] VERIFY  CONTINUE  DIM  FOR ▚ CLEAR  DIM Y▟ COPY  DIM 1▚ OR  DIM  RESTORE CHR$ (Yz DIM .w< DIM I[ DIM ;STR$ R& COPY AD DIM INKEY$`C DIM y#@ DIM [C]ABS  LPRINT  DIM  CONTINUE  INVERSE ASN ▗ RETURN  NEW STR$ © NEW  LIST w. NEW  REM ▚[R] NEW FN  POKE  AND  NEW  ERASE ▚H! NEW E NEW ▛▖S NEW  IF  DEF FN  DRAW  REM _[N][ NEW <=▜A NEW ! NEW  MOVE  RUN  LINE ▜ NEW  FLASH VINKEY$ PRINT n NEW ▖M COPY  NEW ▜ COPY  NEW K▜ STOP ! NEW LCHR$ B,ABS  NEW HSQR < NEW [U]TAB  NEW UBIN " NEW [▗` MOVE  NEW o▜ NEW [D]▝ NEW ' DEF FN [F] NEW  COPY  RETURN  NEW $ COPY  STEP  BORDER [Q]▜ BORDER VAL ▜ DEF FN E BORDER  ▖ OUT  POKE  BORDER >=▜ POKE  AND  BORDER  FOR ▜[M][J] BORDER IN ^ OR ) CAT  BORDER [Q]2NOT  VERIFY z BORDER L{9<=$ FORMAT  OR <= BORDER ▜ BORDER  REM } LINE S" PLOT  ! OUT )[T]k[K]EXP }doATTR VAL$ [J] MERGE F MERGE  AND W[M]▗O DRAW ]eIN : OR  COPY  CLEAR ] DRAW  GO SUB iC[T]B▘&Y INVERSE |t▗ PLOT  <Ay,ABS  ERASE }USR VAL$ n PAPER  THEN [H]ATN (COS  REM yCHR$ W>ATTR  LPRINT CHR$ INT  LINE /▛▞▞WdUSR PEEK [Q]/go_g2V VERIFY Y[N]PIwUSR  INK @> CLEAR PI 2 GO SUB s▞K~▜05 FOR #n OVER W_ASN  THEN ▗WATTR  CLOSE #5SQR  AND  FOR [ABS "/ CLS  OPEN #<▛, STEP ;▞ GO SUB S RESTORE LSRND INK OJjSCREEN$ }POINT  MOVE bATTR  BORDER [U]<> THEN &VAL$  LLIST  GO TO  PAPER u▞▝SCREEN$ W LET EXP l" MOVE  AND ` LOAD  INK  PLOT   NEXT SIN 0[G] OVER ▜PEEK /]~,f RESTORE : BORDER  AND  INK ONOT @▞ RANDOMIZE g LPRINT oN,F GO SUB C[D][S] READ CODE [J]SGN u[A][Q]G[S]^PI PLOT  =( DIM [G] DEF FN $[mASN i▚TAN  DRAW ▝SCREEN$ [P] READ >= PAPER [L]K INVERSE ©>/ CONTINUE v INK C`<><>[F] CLEAR Se▖h[U]= LET (= 2%▞©SZ REM INT [E]POINT [Q]{_ABS ▜NOT  OR ATTR t▗ SAVE INKEY$ACS g[H]ACS  PLOT  SGN %▗ BEEP Y=,)▜ACS  STEP O GO TO dP INVERSE  GO TO  FLASH  GO TO N1 GO TO  OUT  GO TO [J] GO TO  PAPER e IF  GO TO [C]|▖ GO TO <=<>U VERIFY  INPUT [O]K PRINT  GO TO ▛?COS ▞~ FORMAT  DIM INKEY$▚M DIM Tu LET  OPEN #K STEP o3▗/9Ed NEW  > GO TO _Q POKE  READ [O]/2 READ  PAPER  INVERSE CHR$ o READ ▗ READ ([Q]z READ L CAT [U] READ 9©POINT  READ [B][K] LLIST  READ [E]POINT [Q]_ABS ▜NOT  OR ATTR t▗[J]INKEY$ READ 0▛ LIST !NePI NEXT K▛ FOR ATN 5MSQR  LINE "r OVER  OVER s% CLS " LIST ▟;PITAB ;~ STOP IN ▜ SAVE ]P▛>= BEEP [J]AT cf VERIFY DFN VAL USR 6 RUN M( CONTINUE K[B] READ >=I PRINT  INK  INVERSE NOT [H]'Uob▜/g CIRCLE PIcVAL$ F▛▝ STEP  STEP [H]ABS [G] NEXT VAL$  LIST  PRINT  FORMAT O CAT L CLOSE #{[J] AND co FOR  RETURN k/LEN  PAPER  POKE  FLASH ▚ BORDER j RANDOMIZE `p FOR ]~RNDr#V FOR "COS ,Y<=EXP  INK X INK CODE  FORMAT  OUT % DIM TAB 1A TO # OR :▙[J]5[Q] INK y FLASH [K]}▗<>m LLIST vTAB ACS  STEP  OVER  GO SUB m MERGE  REM =ATTR  ERASE SQR O PAPER OFN STR$  LOAD SIN E▗▟Y[L]SN[L] OR +Yk[L][D] GO TO [Q]o[L]M▗ STOP [I][L][K][F]:F{r@[L]&LEN ▝j[ACS ~V INVERSE ▟COS  PAPER r CLS  CLOSE #▗INT zaJ LIST SIN ABS b COPY  ERASE t[I] BEEP ▜[I] OVER  CLEAR g FLASH [E] LLIST ▜VAL  RESTORE  INVERSE ▚[C] FLASH @ AND h LOAD [B] ERASE =[C]FN TAN ZSGN  PAPER V LLIST [M]  CLS L INVERSE [J]soWTAB !EXP ACS VAL [P]_ NEXT 0[J]tWCODE , TO  MERGE  AND vy▚. BEEP ack[B]3.5 SAVE 'compilatln  LIST  CONTINUE f.cxumb[L] FLASH ad NEW  PAUSE /in▝ GO SUB  CLS rduc</ THEN  PRINT a( CLS PIc)<>pyright8,zj.Oeho CONTINUE 3MpATTR  LET H  FORMAT gCODE 9 NEXT AT _mATTR  FOR  DRAW [S]TLEN  NEXT l5 DIM r FOR SY:VAL  OVER /L DRAW  PAPER  COPY ▚ IF l <▞RNDK READ PI CLOSE #go▗ CONTINUE LL[R]>pPI6/ GO TO  PAUSE ▛Su RUN  CIRCLE  COPY  DRAW  LIST IN <LEN ATN >{Pvs CLEAR K'Ww FORMAT  CIRCLE  BORDER CLEN [U]~D FLASH INKEY$ MERGE LEN "D^LHSQR [R]BIN LN  RANDOMIZE  LIST  CAT [P]t LINE AT LN  ERASE  CAT 2 THEN o CLOSE # PLOT  )O~ ERASE  LIST s[I] RUN SIN } BEEP  TO USR C,[J]y VERIFY  BEEP 4 CIRCLE KSTR$  PAUSE BSIN n BRIGHT  OVER /!a BRIGHT  LINE K STEP  BRIGHT  BRIGHT  DEF FN LN  PAUSE h[F]NOT z POKE [N][K] INK f CIRCLE [U] DEF FN COS [O] STEP  TO z VERIFY  THEN  LINE <>>=Y CAT <= AND = FOR  OR BIN NOT gCHR$ STR$  LPRINT NOT < POKE NOT  BRIGHT c CIRCLE  CLOSE # FORMAT  VERIFY  TO  CAT [G] VERIFY >= LLIST /BIN TAN R.Q-5▟,+N*INT 3M)( BEEP iK' DIM <&%▜TAN $ BEEP #[A]TAN " FORMAT  VERIFY !fVAL  CIRCLE  MERGE  PAUSE >=q6{▗>/PoWs AND <> CLOSE # VERIFY  GO TO  FLASH 9 REM J LINE TAN WK[C]AT  THEN ©TAB  TO  RETURN TAB  INVERSE  STEP IN  ERASE  DEF FN F PAPER  COPY ry CAT 0fM7 CLOSE #▘ OPEN #m NEXT v[G] CLEAR  LOAD a[R]] FOR y CIRCLE { STEP ▜ THEN N PRINT <ASN o COPY  RESTORE wABS INKEY$ LET ▖IN |1 FLASH p POKE  CAT  CLOSE #_$ THEN _ CAT [O] THEN  CAT ▖[O][J] CLOSE # DEF FN '8 LET  OVER [H][I]sq▟▛. REM  OPEN #USR #STR$ `3# CAT  STEP # REM # CAT NOT USR #3[U] RANDOMIZE g5LEN  LINE  FORMAT [E]VAL @ PAPER FN VAL$  SAVE  COPY PI-m PAPER ASN g CIRCLE  OPEN #,AT  THEN  TO M LET  RANDOMIZE  IF  STEP  DEF FN  CLOSE # STEP (k CIRCLE  LINE  THEN G CIRCLE k▛T6 TO 5k[O] CAT  BRIGHT WK CLS  CLOSE # TO [A]-BIN Oz[A]3- BEEP  STEP [T]IN Z[H][R]i`` NEXT ▞CBF LINE @{CHR$ COS <=SIN l MERGE  MERGE X{<=+ CAT SIN 5m LET  SAVE [H] DEF FN  STEP FN EXP m<=}p DRAW  COPY  LINE &/VAL  PAUSE [J] BEEP STR$ Y MERGE [K][S]ACS +/STR$  LET ABS t PAUSE [D][D]UATN TAB PEEK SCREEN$ <> LLIST [H] THEN  OUT oINKEY$. MOVE TAN  INK ?[T]INT  OUT [C]Y^AT y BEEP [H]▝ RUN ` BORDER  MOVE  LINE [I] RESTORE [I] PRINT  CLEAR ASN NOT  BORDER  RANDOMIZE ▝STR$ ? RANDOMIZE CODE  CAT CODE  CAT [ CONTINUE CODE  CAT ▟ LOAD  RANDOMIZE USR [Q] AND  RANDOMIZE  BEEP  CAT IN  IF [O]▛ OUT  RANDOMIZE ▝ RESTORE  CLS @ CLS  PRINT TurlLEN .USR  POKE [O]5} OPEN # STEP  CAT [S] TO  THEN  PAUSE <> FOR Y>=<= AND  OR g=BIN NOT CODE INKEY$CHR$ STR$  RANDOMIZE  OUT )*COS [T][H] INVERSE ABS [C] REM  STOP wPOINT  AND s VERIFY  CAT ABS ACS  POKE BIN  AND [U]<= FOR ) CLOSE #L LET )>USR RNDABS F CLS [N]o DEF FN COS [O] STEP  TO z VERIFY  THEN  LINE <>>==5<= OPEN #u AND v OUT < PLOT  x OR y{ OR }NOT CHR$  STOP ▘▗CHR$ STR$  NEXT {yxcSGN L- DIM ` BORDER @!EXP PIASN [M]ASN CODE [A] POKE _ VERIFY  LET B MERGE [T] DRAW c( RETURN  CAT  DRAW  DRAW  TO NOT  CAT [P] DRAW  DRAW  TO  STEP ABS  FLASH  VERIFY 0▞ TO  DEF FN EXP STR$  CLOSE # LINE t[T]J~▛ TO ▞ BRIGHT [G]▖TAB g▜ LINE LN  READ j▚ COPY #0|<▚+LZ© ERASE [E]< ERASE  OVER ▙ LLIST  REM TAB  INPUT VAL qy NEW  PAPER iq OR u BEEP [R] CLEAR ▜ RESTORE K/1[U]oPEEK  CAT ▘l[G]LN AT  COPY x▚ATTR ▞py~ RANDOMIZE <=z IF ▙WEXP ▗[O] NEXT ▘^VAL$ ▝s3PEEK [K]+ RETURN /^▖)EXP ABS &W INVERSE 6XVAL oS CLS V INPUT / COPY W REM JSCREEN$  INVERSE _© LIST Vf[K]SCREEN$  OUT  DRAW bSQR  SAVE  IN RNDZ OUT  OUT  RANDOMIZE  CLEAR R BORDER [M]  CAT  TO ?[D]>=USR  FOR  FOR  LET  LIST  DRAW 7 GO SUB CODE  LPRINT  INPUT [U] GO TO [R]Js RUN POINT ▛[J][C]IN  DRAW [J]z AND  OR  POKE  COPY *yPOINT  POKE  READ SCREEN$ U} INK W]_@ RETURN  CAT 9PEEK SCREEN$  TO [Q]@, CIRCLE T_/[D][A]0[O]EXP  REM ▘IN  yCODE STR$ jPIP DIM }~ SAVE  RESTORE [H]+EXP @Qc1 BEEP {D@ CLEAR BIN Lj▝ CAT  OUT TAB [H] RANDOMIZE  RANDOMIZE U▖POINT   ERASE ABS g DRAW   IF y] DRAW  OVER <= DATA  ERASE  VERIFY k COPY g NEW  RANDOMIZE ~IN  CLEAR +AT  PRINT PEEK TAN SCREEN$ nFN LN  NEW IN *CODE ~{F REM FN 4INT  DIM 6; BORDER [Q] RUN W PRINT _(TPEEK n SAVE NOT  CLOSE #,fIN P▗ BEEP ATTR  OPEN #▝[Q]IN [M]1 RETURN  RESTORE IN _@[D]▛ FLASH 3 MERGE { SAVE [F]Z>=<=zPOINT  OUT  RANDOMIZE  LET %[B]STR$ RIN  OVER  LPRINT 7[M] LIST  INPUT POINT  )g:[R]&~B CIRCLE 3 ERASE VAL  RETURN ?INT /Qu_USR P▞  INVERSE ▜ COPY  MERGE ?}SGN  LINE  FLASH >*| VERIFY [H]bA LET ] TO ▘' OUT  RESTORE  LPRINT CODE P RANDOMIZE ^DC▝ REM ▖ OPEN #SCREEN$  COPY USR ]>=UK▗3PEEK  SAVE STR$ [H]SGN @▞ CAT RND LIST @E@IN  RANDOMIZE -[A]NOT  RUN R OUT  RANDOMIZE  LLIST  FOR @  PAUSE !2 FLASH   THEN  RETURN ) PRINT  RANDOMIZE   RUN  CONTINUE  FOR BVAL$  CAT  FORMAT &AT  CAT  LPRINT  LET  OUT [G]CHR$  REM % RETURN >CODE 8o?▚ DEF FN >VASN  CAT  CONTINUE U MOVE [Q]ATTR A©+CHR$ z>CODE  RESTORE TAN NU@ CLS - RANDOMIZE CODE C RUN ATTR  MERGE  THEN d`P▖+ DATA  LPRINT ASN T FOR PEEK /© STEP  =, FORMAT SIN `© OR @ NEXT ACS @STR$  THEN SQR M INT  CLOSE #  LINE . MERGE  NEXT ACS  LIST  DIM  LPRINT  READ  NEXT CODE 9 RANDOMIZE q PRINT  RANDOMIZE [Q]_ COPY 1TAN =ATTR ATN T_ PRINT VAL$  POKE  FLASH } REM ATN  RETURN  BEEP :_ATTR SCREEN$ qv<U6 RETURN u CLS  CLS LSCREEN$ ,  FOR  LET  NEXT  CONTINUE >= MERGE _IN  GO SUB ) IF ATN m LPRINT ©[L] MERGE r PRINT {EXP  IF  PLOT  { TO Q| LLIST @{©!gj  OUT  STOP ▝ PAUSE  CLS  IN  LINE [I]>  OUT ~ RETURN ATTR 7 INVERSE TAB  LOAD CODE  RANDOMIZE R[D]PEEK [P]©%->CODE  POKE  CAT P IF  GO SUB  READ zSCREEN$  REM A IF [C] PAUSE e DRAW ( OUT ~SCREEN$ VAL$  BORDER CHR$ :[Q]PEEK  OUT  AND .[K]USR TWxFN BIN [L]q FOR PEEK ~BIN @ATTR G LINE *CODE (▖ LPRINT mzIN  IF PEEK  RANDOMIZE  RETURN  SAVE !ATN Z TO  LOAD [T] INVERSE oF`@ REM  BEEP O [D] PLOT   RANDOMIZE @.[H] DATA  [P]NOT  OUT  REM  LLIST CODE  READ  CLS  RETURN grA POKE  COPY  THEN USR k PLOT  [I]s LOAD  SAVE _ OUT ?X/3 READ  PRINT  COPY uCODE ` DIM  IF V ATTR /[F] DRAW T RANDOMIZE  PLOT  x NEXT  FLASH }^)*z- OUT A PAPER  GO TO 1} OUT  THEN [H]o MERGE WRND] CLEAR p  OUT  OVER UATTR  TO  RETURN  LET Q^z SCREEN$ [P] INVERSE IN  RANDOMIZE  GO TO  RETURN SGN >@ NEXT  BEEP  PRINT ? READ  CONTINUE ▜▗| COPY IN EXP A>[P]}_ DATA  CLS l[z3 REM . OUT ?X/s COPY  IF  COPY PEEK 7t) REM  1 DEF FN (© RESTORE LN  LPRINT STR$ SCREEN$ G OUT hh!^[K] RETURN <> DIM 5[A] IF RND_{ RANDOMIZE m4ABS  CONTINUE  RUN + RETURN - LOAD  OVER  LLIST  CLEAR  LINE  OR  CIRCLE ▘AO THEN  LLIST @© LPRINT CODE  MERGE v[J][J] OUT  NEXT K© OR TAB  REM 6SQR  DIM ]A_[P]=TAN  BRIGHT FN  RUN e MERGE  PAUSE SGN [M] RESTORE d VERIFY PEEK @kPI[M]ESTR$ @VAL$ +E DEF FN  RANDOMIZE  INPUT ▗}P OUT  PRINT OPT+v2 PRINT [Q] OVER  CLOSE #SGN  SAVE tNOT  OUT  INPUT & PLOT  & OPEN #u[I]INKEY$SIN [A]Q&AT  CLEAR Tc LPRINT  LIST >=PEEK  RETURN VAL$ / DEF FN $<>[A]<> CLS T CLEAR  MERGE +[D] REM  PRINT O3LN [K]PEEK [P])8$ OVER CHR$ [E]▚ INK  MERGE P RETURN  CLEAR +@▘[Q]? CLEAR W CAT  OVER Y PAUSE  THEN © INVERSE ; LOAD  RESTORE  REM +zSCREEN$  OVER  NEW [F]▗ MERGE  IF  GO SUB )q[G]PEEK  LPRINT CT FOR  RESTORE BIN 877 RETURN Z[G]TAB xm/ IF 6USR ▘M[J]f LOAD  OR  BORDER TAN ACS [M] CIRCLE *|[F] PLOT  .| NEW SQR [S]."[S]SQR f? REM  RANDOMIZE  DRAW ▜ OR  REM [F]INKEY$ATTR  RETURN  MOVE  IF / NEXT  PAPER TCHR$ ABS  FLASH e AND  RETURN INT ATN  MOVE aFN *SGN  NEW  IF ▘[E]i LINE U[A]CODE / TO [A] AND 3 DRAW  PRINT )7COS CODE [L] DIM [Q]*PEEK ATTR  FOR ^PEEK  DATA *PEEK / PAPER [M]WPEEK  COPY ? OUT INKEY$FN @ MERGE  FLASH ? RETURN PIyJ SAVE  LLIST  CLEAR  OUT RND▚![H]ATTR  STOP ▛[G]^{PCODE ▜W_RNDu~^ INPUT sPOINT ]8 POKE [F]/dUSR  INPUT  CIRCLE w DEF FN  OUT  MERGE  FOR ATN j CLOSE #[M]PEEK  RUN II PLOT  ] LET Eq FLASH  OR [O]K~yPEEK +Z~ FOR ▛7 RESTORE 3*kqa▘( TO [J]}R FORMAT [L]▞<>` PRINT  LPRINT  FORMAT KCODE  FOR FN !IN  LLIST s COPY  LIST }Tjs©INKEY$5PEEK -SIN 0▖ VERIFY LN  RUN  LOAD STR$ //ATN STR$ PICHR$  FORMAT rASN U LET  OUT ©W FORMAT  IF CODE ->x▛ LET [L][U][A]CODE 2*▚  REM [U]S+TAB [S]jzG OPEN #Qc}[M][D][K]CODE ] INVERSE IN  LOAD MVSGN SQR 7[R][Q]* [S]RND}VAL$  DRAW (oPATN  BEEP  NEW [S] RESTORE TAN PEEK INKEY$&G LLIST  LIST rXk STEP  BRIGHT +INT ,8` CLS 2 CONTINUE  LINE POINT  AND D REM PEEK L VERIFY  DRAW  LIST  PRINT  COPY USR ?SQR ABS 7k LINE RND[A]PEEK  FLASH * SAVE ? RETURN ▝tVAL$  RETURN ▞,}MFN > CAT [F] RESTORE ▖FN k© OUT SGN M[A]▛ OUT [Q] SAVE  ERASE  BRIGHT 7DSPEEK !0 PAPER [L]|V MERGE JINKEY$$SGN ▘ OVER 9(PICODE  BORDER  PRINT [R]USR osRip MERGE  AND  READ  MERGE ASN APEEK h NEXT [C][I]USR u[F] DIM ,INKEY$ CLEAR &{|PEEK t_ PAPER  CIRCLE A PRINT V SAVE 3 OVER h AND  READ [J] MERGE ][K]o0[U] POKE a IF >=POINT VC>[I] OR  CLS @▞ CLEAR  CONTINUE  FLASH ATTR H CAT [F]L MERGE PI INVERSE 3 PRINT ▖ CIRCLE  CLEAR  OUT [D] PRINT NCODE  LOAD  OR  COPY  MOVE  NEW nP LINE IN RNDk[T] LIST 4▜/@e FORMAT H[P]wCODE  RUN [Q] INK < LINE olATTR )SCREEN$ x PAUSE ABS yASN  RESTORE h▞ ERASE  BORDER  IF [A]CODE `O[Q]TAN [J] STEP ▜_ STOP  MOVE ▟ READ PEEK 3 MOVE  LLIST [F]*▝n PAPER  REM INT [S]ABS  POKE SPEEK PEEK  LOAD C[* VERIFY J"USR B[L] NEW ATN  MERGE USR ATTR 7[H]t IF  RETURN s(FN  LPRINT ▝STR$ @n[T]USR *uoINKEY$e}7LN {3?^{RND FORMAT j MOVE  CIRCLE  CLS 7INKEY$x LLIST  OR ATTR 3s[K]rk2PI?INT NOT SGN /? RANDOMIZE  PRINT w[P]F[U] LET WI FOR LN Z6SGN INT cABS { CIRCLE E AND  POKE ` INPUT z LLIST r ERASE ] CONTINUE  READ u BORDER g MERGE PEEK TAB  CHR$ {ATN   MERGE }COS ATN  LET QF>LN  SAVE .u▞ PAPER  COPY ERNDLEN  CLEAR TAN  CONTINUE  FLASH  MINKEY$▞ OR [R]SGN J-?[A]>=STR$  FORMAT @ CLS [L] REM ▝TAN /A FORMAT SCREEN$ ▘IN SGN {mZ SAVE U DATA <> OVER e© OUT [K] LPRINT  CLEAR VABS  OR  BEEP INT PEEK  NEW ▛LEN ▝M DRAW 52V LLIST u REM CODE  REM  SAVE !  BORDER  MOVE  CLEAR INKEY$[B] RUN VAL$  GO TO z>[S]^ PAPER [J]Z#.FN [/?-SQR  BRIGHT  DEF FN - REM IN  OVER W<=[L]FN  IF [F]+>©[K]vINT PEEK  GO TO c7 BEEP ▘ REM oe_ LOAD e_▗CODE ]3VAL$  CLOSE # IF N{[P][B]+ CONTINUE  CAT {< LET fABS RNDhVAL$ ^z!y CLS S* RUN  BEEP  FN AP? IF PI LOAD  LIST [J] LIST  COPY  FOR  PAUSE v CONTINUE ] OUT [S]POINT INKEY$ RUN OFN SGN  STEP  OUT  BEEP SQR FN l COPY [S]▞ LPRINT N> LPRINT  CONTINUE  LIST y[L]T LIST Vh PRINT [F] INVERSE p%{ NEXT a CONTINUE  CIRCLE SQR PEEK [J]ABS  CAT O POKE  COPY  NEW ABS : BORDER PI MERGE  OR < FORMAT  OVER  STOP u[H] AND |z~i SAVE  RUN  *▝HyEXP USR  BEEP  PLOT  [J] PRINT SGN 30LlK DRAW  IF ▝eASN USR ._[Q]PEEK  LPRINT HTAN W[L] IF VAL$ [qzVATTR  REM  GO TO  DATA © RETURN POINT p PAUSE STR$ yI STEP N}lPAT  INVERSE  NEW  OUT PIo._[O]I<= BORDER `RCHR$  SAVE N`IN PEEK '/ LOAD @[J]`Oku[S]@sASN  LIST INT ©[" NEW  INPUT  GO TO FN ;▘LN @TAB  PLOT  ABS ? CONTINUE - READ [J]# LPRINT <HSQR w[E] STEP  MOVE  SAVE ?[G] THEN [N]o PLOT  ▜GT`[H].VAL$  INK  CLEAR L3Em RANDOMIZE }b_ BEEP 03[F]UR FOR USR }%STR$ +[S] LLIST # CLS USR k OUT }▚ OR  DRAW  CONTINUE EXP  DEF FN  SAVE [H]m`[A]©RND/xqv[M] BORDER  PLOT  / LINE ▛ COPY !TAN *[U]SCREEN$ INT FN "[Q] LINE *[Q] OUT  SAVE ! BEEP  LIST  COPY @TAN  CONTINUE [N] BEEP Wv INPUT  GO SUB  OR [L] OUT IN  IF CODE INT  OVER ▝[N] POKE  IF [M] FLASH [R]x PAPER IN VAL$  CLS TAB [T]RNDUSR ▞K COPY VAL$ ▝ OR CODE  DATA TAN ~2B` RESTORE ^ REM  LPRINT CODE X LOAD wTAB G` LET  RESTORE  CLS @V REM LTAB  VERIFY  sO OVER  OPEN #k?VAL [U] REM T RANDOMIZE LN *SQR ▘+8 OUT  OUT © CONTINUE Z TAN FN INT  CLS ▝TRF▖M©9XABS _ LLIST  SAVE D THEN r FOR + RETURN  FOR ATN  PRINT /Z COPY /n}kUSR xIN PIJ[R]CODE  COPY ? INPUT FINT [C]9 PLOT  3▘USR STR$  GO SUB  OVER  THEN ABS Z.D▜ IF F? RESTORE  STOP W.RNDi<=PEEK © CLS   LET _[N]AC) CLEAR n CAT  LPRINT  INK  SAVE -4© LPRINT TAN  LINE 3[P]+SCREEN$ INT ▖ BRIGHT SQR WUSR  LPRINT  INVERSE <▖ SAVE ▞UrpVAL$ A PAUSE n~ LOAD  COPY  LIST SGN  CONTINUE grmACS L CLEAR RND REM [M]PEEK ▖ IF "WiSIN ATTR ▖[Q]/ BRIGHT U`APOINT oR OUT [C]5 CLS o OR COS ©TAB h@ RETURN  STOP LEN y^LEN {PEEK [U] CIRCLE  OVER  W LET  MERGE  CLEAR [L]<> CAT CODE  INVERSE x<><=USR ▗ INPUT ATTR ▟BIN SCREEN$ (: LET +INT  OUT `3[N]prs8 LPRINT [R][F]RLEN  CLEAR [L]<= LLIST QU IF  PRINT A`8 BRIGHT v? PRINT _ FORMAT  THEN VAL$ & GO TO SCREEN$ -COS PEEK l[P]SCREEN$ j DIM {*[C] BRIGHT  FOR ATTR [F]@ SAVE A*7^ IF  VERIFY  LOAD VCODE `^ FOR  OR }[P] CLEAR  CLS x  h+ RANDOMIZE  OUT  OPEN # RUN   ▚ IF [U]VAL$  LLIST WRp INPUT A INVERSE [S]USR 9ABS USR  NEXT sTAN TAB [S]SCREEN$  POKE Kky REM x FLASH ;[L]kg DRAW  STOP  PLOT  | MOVE U] POKE iSIN  RETURN ©#y^ LLIST LN zN}~@PEEK x INPUT 9Z INK  OUT n~ RUN r<>v OPEN # BORDER [J]z~ BORDER  BEEP USR  ERASE  PAPER  O PRINT  INPUT N DRAW  COPY ASN fry - RUN [H]O▚ LPRINT  GO TO CODE >_ CIRCLE GSTR$ PEEK  FLASH [Q] IF  VERIFY  CIRCLE E PRINT  CLEAR ] MERGE  NEXT SIN - FORMAT MtPEEK  RANDOMIZE l_ZS RETURN * PAUSE ~[B]oSQR STR$ Mir[M]© TO UPEEK 3 CAT PEEK  GO SUB Ag CONTINUE f DEF FN QJ>=8©VFu"ULEN y LPRINT  CLEAR &}ACS |{ CLS U TO  PLOT  PCC_LdM PLOT  E! COPY U? AND COS }f BRIGHT  THEN SCREEN$ 6 POKE [H]NOT f@y CAT  CIRCLE  OUT GN PLOT  [E] OUT i STOP  STEP INT F RESTORE  RETURN ▞f STOP  TO 4tPOINT [Q] COPY )Oj@W RUN  OR Y[P]# OPEN #~H LPRINT PI OUT g POKE  PLOT  Gp& OUT COS <=ATTR  LLIST USR  OVER #>= THEN [J]SGN 6O CIRCLE  FOR  LLIST [Q]B LLIST  CONTINUE }NOT Q CONTINUE  COPY  OR USR  RETURN AV?USR CODE   CIRCLE ▝C PRINT  RANDOMIZE  OR NOT [H]/P RUN  THEN } CLS  LIST INTRO   CFN aXRShrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm@| READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BINT Y8<>_ REM g[D] DRAW  CIRCLE  GO TO ^V MOVE V PAUSE  CLEAR  LINE  POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE  THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$  GO SUB  LINE IN VBIN SCREEN$  OR [ OPEN # OPEN #>V COPY  LINE CHR$  THEN mRNDRND, TO  LOAD [COS ;m-+k[R] READ NOT ?W LOAD SCREEN$ x RESTORE 6Qg# MERGE ` DEF FN <d[F]ASN [A]G AND ek BORDER TTAN  AND  TO  LINE  OUT 2 OPEN # RETURN  CIRCLE ABS ACS ] AND ▗SGN -z DEF FN USR "yCOS J:NOT  GO SUB Z BEEP  CIRCLE <"Z]/[J]9J<>RNDNOT PI- AND  LPRINT CHR$ CHR$ AT M[O] DRAW PIw{ THEN  ERASE  INVERSE  STOP v RESTORE Yo COPY VAL$ I OR  STOP [F]+}5 RESTORE  LINE  OUT  BEEP 0oBASN &/oY# BEEP  DRAW SCREEN$ ▜ CAT [K] MOVE o FORMAT [J][E]o OPEN #6 RETURN o%9 NEXT FN  BRIGHT  OVER  PAPER oi DEF FN r{5ACS y[TAB  VERIFY Q/[J]X)[L]WRNDNOT 8 THEN 8 DIM [K]'y BORDER  OR [F]3&CASN [B]TAB ▟ MOVE  OPEN #L BORDER [J] CONTINUE  PAPER  CLOSE #[C][L]9 LOAD Z STEP [R] STEP dSGN 2 MERGE g▚ LIST [D] LET  TO TtDM VERIFY POINT ▝0Sg/`oUPIC<=PIVAL$ ASN (LEN USR eJ DRAW K COPY  OPEN #LEN |! COPY #~ACS ▛[C] RANDOMIZE  LIST L STEP o LET !"W[J]RND*/ LIST IN  RUN SGN  DATA kCOS 0 RETURN  NEXT  THEN  NEXT  STOP PEEK  STEP  NEXT X AND IH NEXT SCREEN$ gABS [S]a[H]b PLOT  oXS SAVE v[K][Q] RETURN  RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR rAT  STOP yd6 LOAD  REM SCREEN$  OR  BEEP  PAPER G AND  FLASH [A] POKE COS  AND  DATA  POKE LN  OUT %w VERIFY I/[N] CONTINUE `G CAT u}IN  AND  THEN [Q][I]INKEY$<= STEP w INK j CLS VAL$ PI TO ▜ RUN  LET [Q]: PAUSE F~* IF [G]INT H&[D] OVER NPOINT  LPRINT Ce PAUSE  STEP  NEXT  RESTORE  PAUSE  LOAD [M] INK ( STOP =[ BORDER EXP 1w ERASE <>POINT y[O]EXP INKEY$[K]_.C OUT CHR$ {[J]^ DATA k COPY p^POINT ht GO TO x▞[D] DEF FN x FLASH IN t> OR E MERGE ProTX/ack? LET  GO TO 3.4compiBIN latnc BRIGHT  DIM /OiPOINT B OVER vs NEXT z RANDOMIZE m NEXT v NEXT z RANDOMIZE 8(0:4▙[ABS (c[L]|<>p GO SUB  RANDOMIZE yrightBIN j.eo LET t TO [K]u OR hATN xj  OPEN #VINT ~ DRAW  SAVE g STEP z[A]&_ COPY USR [K]INKEY$ DRAW LN  INPUT PI RANDOMIZE  GO SUB  POKE USR [C] RANDOMIZE  RUN USR BIN SQR  OVER  RANDOMIZE NOT  COPY  RUN AT [C]2sAT g$-Qn POKE { ERASE | PLOT   AND 7-SIN g READ ? DIM nL[U] CLS  READ  POKE ▖[M]r ERASE c LIST  LLIST 7>=LEN t VERIFY BIN $ COPY y OR x AND t<= OUT }< SAVE ▟ CLEAR vNOT  READ u{BIN  DRAW $ CLEAR yINKEY$ RANDOMIZE }LEN USR  CLOSE # AND [[N] LIST - FORMAT  c8 GO TO <=9| TO >=x<>,t  VERIFY [C] GO SUB <= POKE x LINE B-+[D]▖ OR N<><=*%|<> }[ LIST SQR 9'5 CAT  STOP  RESTORE t BORDER  FORMAT  BEEP COS A^ LPRINT ct LLIST o LET  INPUT <INKEY$ DRAW  BEEP jABS 6 LINE [N]VR[D]$ TO } RUN PI[G] INVERSE  CLOSE #K/S INK H$x4Y FORMAT <{`ASN  OVER  ERASE [K]LEN TAB (CHR$ ▘zPOINT cSGN  PRINT VAL$ ac[I][K]3Y MOVE #~ATTR fV<>>h&. DIM U AND  *[K]I VERIFY  STEP [J]©POINT q LINE } COPY $IN }9TAB 5h LOAD IN <@)▟ DRAW h BRIGHT  DATA  FORMAT  CLOSE # OR pACS >=CHR$ S SAVE ▞IN y<=x>=t<>v>}E$ LLIST OI VERIFY <=cRND VERIFY )▟▖ VERIFY oJ DEF FN | VERIFY <>x LINE _1( MERGE ASN  AND ▛ CLOSE # OUT  CLOSE #$A FORMAT  DRAW xSQR [K][P]<>y LINE )EXP  THEN POINT nuZ TO   STEP  SAVE /Iv DEF FN VAL t[P]^[R]-[R](J[R] COPY pe LLIST  LINE /m LIST '| AND P+# ERASE !x OUT COS 5 RESTORE  CIRCLE  NEXT  /bB[G]! OUT [Q]/ STEP  LINE J@~ RUN "HATN hFN  POKE p INK [C]1 PAPER NOT ATTR  SAVE {%AT  POKE {>[O] TO STR$ * STEP ▙O BRIGHT  LET ▖ BRIGHT V OVER 1$VAL$ [K]C▙ RUN $+2<>[O]▞ LIST ) RUN tASN ▟xTAB TAB <RND OVER [K],|_ DEF FN [D][F]P[D] TO <>8f0+ OVER ytD|q- INPUT Z[L]SGN oBIN ATTR m SAVE CHR$ 0 PRINT mjSTR$  LPRINT  DATA h.▚▚ATN SGN m{ CLS  AND CHR$  TO 0▘OBIN [K]O[J][T] OR O-O[T]<>F LINE  THEN  TO  CAT  SAVE A} CAT > CAT  DEF FN kLN [E] CAT |VAL$  STEP ~ LINE y>=D/ NEXT  STEP  <=IBIN  OPEN # PAUSE CODE  PAUSE eW©-PI NEW l▖} BEEP  FOR b|V OR /, OVER  RANDOMIZE  PAUSE  TO  LIST 1 VERIFY  PAPER SCREEN$  CLOSE # PAPER  GO TO [K]><= REM  TO ! POKE  MOVE " ERASE k% THEN lJABS =*1C< OVER INKEY$; LINE +x▝ SAVE ▛D(USR IN Dc[H]TAB EXP [H] POKE  FORMAT [H]|[H] STEP [H]▚D[G]C THEN [G]TAN BD[G]IN D(D PAPER TAB eCo CAT $D IF  MOVE  GO SUB ABS VAL$ 4USR  CONTINUE D COPY [I]<> OPEN # ERASE  THEN BIN  STEP d` COPY h CAT  FORMAT  STEP  MOVE D THEN { CAT R▘[N]STR$  READ p^ TO )SCREEN$  INPUT  GO TO NOT m[D]INT ▙ RESTORE ▘[O] LET W STEP 'a AND ( OR  CIRCLE fATTR fjN[T]O2w OVER  TO ▞<= STOP cj INPUT [J]g' DEF FN s  RESTORE FN N[K] MOVE INKEY$V LIST 1LN USR cAT I& OR ATTR 9c OVER BIN L0[S][K]-sXyVAL ZuvASN 8wq`x COPY jyz{i FLASH 3[H] THEN  CAT [E]▛%[K]LEN c[P]TAT & INK ▜D▖ THEN | LPRINT !6| LOAD D$I2 COPY <= OVER I IPI VERIFY  VERIFY L| STEP  NEXT <=[A]"G%#wh INPUT <=( SAVE t>=EDATTR [O]2[B]" INK TAB SCREEN$  FORMAT XLN VAL ZstASN 8u▞©vw[E] SAVE & READ ACS INKEY$ LET S VERIFY /y<>AT   SAVE STR$  LINE  LIST cSGN  LLIST <=>=~ CIRCLE  LOAD L DEF FN [H]*f INK <> PRINT #COS MATN %<LLN .FN 2 FLASH [($<=L RUN WASN }SQR ▖{zim!a LLIST , NEXT t= RANDOMIZE %3STR$  OVER 6kBIN EXP CODE ABS ;<>^D;ATTR #|EXP b&ABS ]▛ NEW [J]R>= OVER s CAT  COPY [C]sh[J]n[I CLEAR  INK FN J DEF FN ▖VAL$  POKE QBIN  CAT LN Y▙ACS M DEF FN ▞([E]FN  LIST >= FLASH  RETURN  CONTINUE S INPUT I VERIFY STR$ H▞@[G] DRAW )<! STEP  DRAW  TO |ABS yVAL$  RUN  INPUT  NEXT  FLASH ▚+EXP STR$  CLEAR t DEF FN }^3*/d` TO ▛USR +STR$ D,.[T]W[N]!Z LINE [T][H] COPY  LINE ▗- NEXT  RETURN  RESTORE IN ▝ OR / !AT VAL$ ACS /[F]ATTR ▞▖PIp]/ CLEAR ▚ATTR ▗ GO TO ?;/)[L]ATTR {4▟ THEN U▛[F] THEN ▝ REM s▙[Q]VT@ar LIST [A] IF  DRAW  RANDOMIZE  LLIST *W/ RESTORE ATTR VAL$ IN /^ACS 2 LPRINT [A]Z MERGE BIN  OR  REM  CIRCLE ACS  TO  PAPER  LLIST 7 LLIST  MOVE STR$  LET  INK [B]O3@ INVERSE  SAVE NOT 1tQ RESTORE  PRINT ; OR  MERGE [R]`w!1 V GO TO  RETURN  OVER TV6 OVER U OVER U OVER T▝ OVER v OVER S▝ OVER SUSR  OVER Rs OVER R OVER  FLASH YINT {AT  LOAD uf COPY g[P][F] PRINT  RETURN  COPY  CAT ATN  THEN ATTR FN  COPY  RUN ▝APVAL$ 3[N]YC[U][C] VERIFY ▞P% RETURN  COPY [U]w< LLIST ATTR l BEEP %l[O] GO SUB  CLEAR u LET XM PRINT  PLOT   THEN  OVER S ERASE  RETURN  CLEAR ` FORMAT B▘ IF /m▞S©O[O]k PRINT BIN lVn5[G](T?$VAL NOT ▘STR$ [T]),▛p PAPER P LOAD  RUN kX INPUT 0ZTAB ABS 0Z[B]<=WCOS  LIST  CLS >CODE  READ ;[A]IN G' FORMAT [P] SAVE VAL _ RETURN  FORMAT `|[R] READ ©i CLOSE #▝S LOAD  ERASE  FORMAT [G]0▗y▜` LIST VAL AP GO SUB <=[O]INKEY$ BEEP TUn t[N]U:[D]E DRAW  OPEN # COPY /▖Q MERGE `4 PRINT  DRAW V5sX/ DRAW 4 IF  PLOT  U[Q] LPRINT 4 PLOT   MERGE sCOS M03 LIST *]6 LPRINT gc NEW ADC PLOT  STR$ "RND COPY  CLEAR U IF ]CHR$ $ DRAW Q[U]>CODE [N] RANDOMIZE IAT  RUN [E]>=D_ VERIFY ▗T PLOT  S DEF FN  MERGE USR AT hj0D~X<=_ POKE SCREEN$ STR$  CAT @qv REM P CLEAR [N]SIN 8FN (TINT  MERGE [H]l AND FN 3USR ▘i PAUSE  PLOT   COPY [J] BRIGHT T DRAW [U] CLEAR [S] SAVE SCREEN$ CHR$  LPRINT SIN A READ FUSR ATTR s,VAL  CODE [I]4VAL ▝[D]VAL  OVER /▖ LET X@[U] STOP 1▗t NEW ©>=c©SGN ▗POINT  LINE C`INKEY$ RANDOMIZE 12[I]ABS  SAVE ~>▞E BORDER ©[B]U8mQ AND l] CLOSE # DATA  COPY ▞ TAN QT` DRAW [E][P] LPRINT FN ( DEF FN  SAVE ]p3 CLOSE #5h CAT  COPY M%FN pT INK [J]>=!S RETURN IT GO TO ▘IM LPRINT SGN Q[U][I] CLOSE # LPRINT  USR  SAVE  [Q]▚[Q]{[T]70CHR$ [O]▜$[O]▗ MOVE ▜ MERGE  OUT _eAT EXP /[I][N]SQR  RANDOMIZE ▖ CLS n▚:CODE ▖ DATA <[I]PINOT 60 IF ▖ MOVE  COPY  LPRINT ▞2$}J GO SUB XIN Xk SAVE nUSR ?~VAL =STR$ PIaz CLEAR  COPY +4STR$  LPRINT  INPUT ▘?Y0` RUN  LLIST  AND VAL <6AT ` DRAW NOT SV[E]^SGN h CLS ABS  OUT {PEEK  DIM g FOR  NEXT ~ PRINT  REM `PB CLOSE #NOT  LIST 6 LOAD :▝0© LLIST xPI OVER ©NOT  LPRINT  OUT ▚9VAL USR SGN  PLOT  =wUSR d LPRINT ▚`[M] OPEN #BANKK0  CUSR @@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT  GO SUB s CLEAR USR [!%USR  OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !VAL$  OPEN #▗ RUN [Q]<> GO SUB LN  FOR  RANDOMIZE USR  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 RHR7AT  READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BINT Y8<>_ REM g[D] DRAW  CIRCLE  GO TO ^V MOVE V PAUSE  CLEAR  LINE  POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE  THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$  GO SUB  LINE IN VBIN SCREEN$  OR [ OPEN # OPEN #>V COPY  LINE CHR$  THEN mRNDRND, TO  LOAD [COS ;m-+k[R] READ NOT ?W LOAD SCREEN$ x RESTORE 6Qg# MERGE ` DEF FN <d[F]ASN [A]G AND ek BORDER TTAN  AND  TO  LINE  OUT 2 OPEN # RETURN  CIRCLE ABS ACS ] AND ▗SGN -z DEF FN USR "yCOS J:NOT  GO SUB Z BEEP  CIRCLE <"Z]/[J]9J<>RNDNOT PI- AND  LPRINT CHR$ CHR$ AT M[O] DRAW PIw{ THEN  ERASE  INVERSE  STOP v RESTORE Yo COPY VAL$ I OR  STOP [F]+}5 RESTORE  LINE  OUT  BEEP 0oBASN &/oY# BEEP  DRAW SCREEN$ ▜ CAT [K] MOVE o FORMAT [J][E]o OPEN #6 RETURN o%9 NEXT FN  BRIGHT  OVER  PAPER oi DEF FN r{5ACS y[TAB  VERIFY Q/[J]X)[L]WRNDNOT 8 THEN 8 DIM [K]'y BORDER  OR [F]3&CASN [B]TAB ▟ MOVE  OPEN #L BORDER [J] CONTINUE  PAPER  CLOSE #[C][L]9 LOAD Z STEP [R] STEP dSGN 2 MERGE g▚ LIST [D] LET  TO TtDM VERIFY POINT ▝0Sg/`oUPIC<=PIVAL$ ASN (LEN USR eJ DRAW K COPY  OPEN #LEN |! COPY #~ACS ▛[C] RANDOMIZE  LIST L STEP o LET !"W[J]RND*/ LIST IN  RUN SGN  DATA kCOS 0 RETURN  NEXT  THEN  NEXT  STOP PEEK  STEP  NEXT X AND IH NEXT SCREEN$ gABS [S]a[H]b PLOT  oXS SAVE v[K][Q] RETURN  RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR rAT  STOP yd6 LOAD  REM SCREEN$  OR  BEEP  PAPER G AND  FLASH [A] POKE COS  AND  DATA  POKE LN  OUT %w VERIFY I/[N] CONTINUE `G CAT u}IN  AND  THEN [Q][I]INKEY$<= STEP w INK j CLS VAL$ PI TO ▜ RUN  LET [Q]: PAUSE F~* IF [G]INT H&[D] OVER NPOINT  LPRINT Ce PAUSE  STEP  NEXT  RESTORE  PAUSE  LOAD [M] INK ( STOP =[ BORDER EXP 1w ERASE <>POINT y[O]EXP INKEY$[K]_.C OUT CHR$ {[J]^ DATA k COPY p^POINT ht GO TO x▞[D] DEF FN x FLASH IN t> OR E MERGE ProTX/ack? LET  GO TO 3.4compiBIN latns BRIGHT  DIM Ca&INKEY$Wsh[P](Sun<1ie St STOP )M SAVE /03:52[L]<=ABS (c)<>j▜▞.eho▝ NEW triuIN hzoi2 RANDOMIZE  AND Fan7z to FOR  READ ~<(VjVx~▗Y CAT INKEY$AT  LINE  NEW  AND COS  FORMAT  VERIFY  MERGE  MERGE  LIST  IF  PLOT  LEN  DRAW Jy)[O]PSCOS TAB  IF WR~/ PLOT  m#a)!$' REM [L]*-^69<?B RETURN [P]EHKNQ COPY [D] DATA 7*~▞ IF  CLOSE # READ  INK ,IZ!INT f AND  INVERSE .▗q READ SATN  INVERSE  BRIGHT LN 5[F]b RESTORE COS oMz FORMAT  INK  DATA AT  CAT n FORMAT ^▟A AND ▙COS  LET  PLOT  i CAT  FOR  DATA n.AT  DIM  OPEN #}}[N]=[O] CLS  IF SGN y(INKEY$ SAVE [T]▝#4[Q] FORMAT  GO SUB  MOVE g▙Z  CONTINUE COS LN  MERGE !POINT  STEP LN ![K]Q#PEEK BIN  GO SUB  MOVE <$▖%qa| CONTINUE @&[H]=SQR d' STEP  DATA [P] COPY 1( LIST  CAT LEN y STEP  FORMAT m[z[D] TO ATTR  REM uCHR$ DwLEN CACS  LINE $ DEF FN tATTR /r▜mSIN  BRIGHT ,Q THEN <>POINT >= OVER [S][O] CLS  STEP  TO PIIN r[N] THEN t RETURN  FLASH  FORMAT ,▟c RESTORE f? CLEAR X▝STR$ [I]`+ CIRCLE 4SM CIRCLE 9l CIRCLE FcSCREEN$  CIRCLE M CIRCLE  CAT  PAPER U BEEP 6<▖VAL$ VAL @▘^<VAL f09 BEEP  PLOT  u[I]IN w2 LET  COPY AT e LPRINT [U] POKE ] LLIST  COPY  RANDOMIZE | IF  DEF FN  OPEN #<= OUT  COPY  OR AT  BEEP W LIST -a= CONTINUE SQR r STEP  LET lCODE uc]wI CLOSE # PLOT  > AND <=c[C]" DEF FN  MERGE R LINE USR ▝<=<> AND [D]r TO  AND  BEEP ▘ PRINT Q▛H/l CAT F, CAT `Z CIRCLE SGN P DEF FN u&P,m STOP  THEN F0VAL  LINE  CIRCLE  STEP <>`>=nJ LIST  TO i CAT kgSTR$  BEEP  STEP { INPUT  LINE STR$  CIRCLE 2VAL$  RETURN TPEEK  OR <K[P] AND  OR STR$ w[I][D] STOP  FORMAT 2 DRAW AT _ATN RND LOAD [L] FLASH  CAT m[O],TAB  CIRCLE xmCODE s PAUSE [R] IF [G]`<>hSIN iAT  THEN kAT  STEP N▛> READ 4MZ TO ] TO a CIRCLE  TO fX OVER STR$ [M]c FORMAT [P] AND TAN [P]▟1o[P]▝[P]TAN `lVAL `v▗` CAT mSGN ▘COS  COPY  PAPER /COS VAL$ [S] CONTINUE VAL$ w TO !+ STEP Y THEN  DEF FN ~!d▚| RETURN fj BORDER [K]vSTR$ w GO SUB  CLS  TO LEN ▘{!>=STR$ / MOVE  AND COS | DATA  OR INT  MOVE NOT STR$  INK tCHR$ zVAL  POKE >sMP BEEP  PAUSE }~NOT BIN [I][R] OUT  GO TO  OPEN # INK f< PRINT  BEEP N[A]PEEK M▚ CLEAR zFN ? LET  OPEN #FN INT  PRINT ▟+UJ TO ] OVER ▛'[A]cZ STEP BIN y[L]x[I]NOT S BRIGHT [K]#0fk CIRCLE >=6 OPEN #BIN Xb OR [K] MERGE  PAUSE  AND ▖▝ PLOT  <=[J]#[K]x▝` RESTORE 9^ PRINT B LINE IN 9 COPY  LIST <=▝>=<>~t> LINE )hOw AND AT  CLOSE # RANDOMIZE < BRIGHT >=y LINE R` RETURN a BEEP ~TAN ~fF LPRINT  LLIST [E][G] FORMAT  BORDER  CLS  READ [C] READ  DATA  CIRCLE 1TAN LCCHR$ ▙9 CONTINUE  LIST |. DEF FN ~[Q]%6 LIST ▝ THEN  CIRCLE ▝ FLASH k( REM "ikUSR [A]ATTR ABS  THEN K MERGE  VERIFY AT  TO  LET 5 CAT  FORMAT 'tv CONTINUE  BEEP SQR C TO  OPEN #[K]Y[N]u,POINT  CAT Kz[S] BEEP x OVER U[M]TAN t OUT t NEW [H]ABS ' LINE K" VERIFY [D]▙I~& LINE 3 OPEN #[D]▙/©% ERASE * REM 7$INKEY$ CLEAR  VERIFY  ERASE #O ERASE  INK  STOP {[P] BEEP   ERASE W PAUSE ▖VAL =[S]? STEP I& CONTINUE  INVERSE  OPEN #t CLEAR <<=COS [P]>=<>~ PLOT   LINE  INK  CAT  THEN  TO © IF <= MERGE  STEP y}LEN ACS  STEP STR$ Q[N]c LOAD  DATA ▘ CIRCLE ^m%[Q]^J7LN {5s[N] RANDOMIZE tId INK ocC7F INK lVAL$ [A]g[U]TAN  FOR + TO  STEP  CLS V FORMAT  OPEN #oAT c CLEAR  LET & INVERSE CHR$  LOAD RND TO  NEXT d DRAW  FLASH IN ! FORMAT  IF PEEK  LPRINT x LOAD  LPRINT  CLEAR  CLEAR + READ NOT _ CLOSE #TAN  IF J CLOSE #[J][O]A ERASE :T DRAW } MERGE  IF  LOAD  MOVE  MERGE  LIST n MOVE  INK  LPRINT K| MOVE  RETURN ? ▚CODE  MOVE  PAUSE ATN  MOVE ( MOVE M PLOT  ) COPY ( PRINT ▛PEEK IN  ERASE *FN SGN  RANDOMIZE _t+x PAUSE  MOVE [IN  MOVE ,y RANDOMIZE  MOVE  CONTINUE P DATA IN - MOVE ~ LET  PAUSE ATN  MOVE . MOVE M PLOT  /} RETURN  STOP 1SIN  ERASE ^ CLEAR  ERASE xTWABS  ERASE  MERGE  NEXT :ATTR : PRINT CHR$  AND ▟ OPEN # THEN 7ATTR  GO SUB  LINE K PRINT  TO [H] REM  STEP M COPY _ACS ▛ BEEP  CIRCLE U VERIFY ▗[U]CODE  PAUSE ?_d[I] SAVE [I]oI^ VERIFY  DEF FN [P]▜U[C]? CLEAR  LINE _SGN >= MERGE W OPEN # DATA TAB  ERASE | IF m SAVE d MOVE  COPY xF[B]~[I]# FLASH  RUN [O]  PLOT  N[O]TAN ^[P] LINE ©T MOVE < SAVE /b MOVE  LPRINT ▜V' FOR  NEXT  LINE  DRAW '> IF PEEK  LINE  SAVE  IF  DRAW <>© LET  MOVE X[P]<> IF [L]IN vCODE  OUT  RANDOMIZE ▛ OVER  ERASE [O] COPY >=f6 OUT W MOVE VAL Z' MOVE  GO SUB Ge AND  RUN <>>CODE  MOVE  OUT ?RNDAT [L]y IF  OVER  CLS  LET O LIST  POKE [P]X_[P] PLOT  SCREEN$  FORMAT [T CAT ▘CODE |s CAT VAL ~ CLEAR L RUN " NEXT  LET  DEF FN _ LOAD t DEF FN  OR N RETURN [I] GO SUB ▚ATTR z%Y INVERSE zlu OUT  DATA < IF mw CLEAR  PRINT jATTR  OR  BRIGHT SQR CODE  LIST POINT r AND [U] LOAD  CLS  COPY © BORDER _ CLS  AND  INVERSE  BEEP ~X CLS  BEEP |{E~[P]CHR$ >= LINE cINT Xr STOP g OR  NEXT F6m BRIGHT [F] OUT Li PLOT  `CHR$ STR$  PLOT   RETURN  CLS  COPY F[H] BORDER [L] INVERSE  RANDOMIZE  PLOT   RESTORE  RANDOMIZE [L]▝ VERIFY  COPY  LPRINT  RESTORE  BORDER  MERGE [G][P] INVERSE  MERGE ATTR  OUT  LPRINT  MERGE  THEN  NEXT [T] MERGE  THEN STR$ 1 MERGE O CAT = THEN  RUN RND_ RETURN  CLOSE #~yPI LOAD CODE POINT  RANDOMIZE /POINT  RESTORE } MERGE ATTR IN  IF  MERGE IN SGN TAB  RUN  RESTORE  MERGE  PAUSE [H]CODE ~< COPY ▝[J]CODE /oVAL$ yG THEN nVAL f/[M] OUT <=+LEN LEN  OPEN #] DATA eUSR s IF 9 LINE IN  LIST f<>▝ MOVE fofVAL >POINT  DIM #a/▝ NEW `xATN NOT o▖[O]Y SAVE  LIST *`WSGN / LPRINT f8>fCOS [P]|>=<=~ PLOT   AND  INK  CAT  OR BIN , CLS NOT c3 LLIST ASN k OR y LET L LIST  NEXT ▗ LIST  STEP | CLS 7X▖[K]▝8▛ STOP [K], PAUSE LN ▟1 BRIGHT  MERGE INKEY$^zq DRAW q PLOT   PAPER y<>z>=<=|STR$ ATN x▗BIN ATN POINT TAN BIN ▝ LINE  RETURN `xn[T]Sg` PRINT COS S RETURN  OR $ MOVE  STOP COS N▝ CAT  FORMAT ? SAVE FT0;< [K]STR$  IF  GO TO f7y>=▘ PRINT ▟ STEP n NEXT [A] FOR .[P]ABS STR$  CONTINUE j LINE G[qq<>Z{>=<=< THEN  AND )TAB  OR +SIN STR$ ▝ MOVE [F]9/QYmO[O])# LET 1 VERIFY  LET {POINT  OPEN #| CIRCLE  LLIST U|<> VERIFY  PAPER >= RESTORE Y<=,k AND  OR SIN  PAUSE >o ERASE ▝[J] CLS SCREEN$ &|SCREEN$  OR K|}▘▝AT  OPEN #o CLS d LPRINT  DRAW  BEEP  VERIFY  CONTINUE !ZVAL PEEK  VERIFY y^BIN | LIST  LIST  PAPER <= CIRCLE  CIRCLE  CAT STR$  AND  OR ATN © BRIGHT ▚ RUN M= OVER  OUT  BRIGHT  THEN $H RETURN  PLOT   BRIGHT STR$  LIST DACS 7 INVERSE 1[G] LIST PEEK AT RWSTR$ [jh<= CLS <>Fh DEF FN J OR BIN [G]LNOT CHR$  DRAW STR$  PLOT   FORMAT  STEP  FOR ^STR$  INK  VERIFY COS tCHR$ NOT BIN  THEN x OR  POKE tn|[R]<> LINE u THEN   DEF FN  TO *CHR$ ! MOVE m BRIGHT [P] BRIGHT _[G]FN n[H] TO S PLOT  ▛ RUN NOT  STOP  COPY [K] COPY [H] PAPER  RETURN SCREEN$  CIRCLE } STOP [M]LN ?/VAL [M]<>d LIST `[E]Ys2[M][D]F RUN @© DIM ATTR  PAPER   PAPER gIN SIN }NOT ,<>>= CIRCLE 5<= AND  OR  SAVE USR  MERGE [G]▞0R CIRCLE  GO SUB [G]" CIRCLE  LINE [P][U]TW} OVER  CAT ▟}<> FLASH [I] BRIGHT AUSR @ TO [I] INVERSE 9 PLOT  > INK r▞vEXP  COPY TJVAL TAB h OPEN #PEEK [L][R]Wt DATA  DEF FN [[Q]m! LOAD < CIRCLE  RANDOMIZE R DEF FN uVRATTR aSCREEN$ [K]& GO TO  RETURN nD RETURN r[I][I]PIASN H PLOT  ▘ CAT FVAL  LET  CAT  THEN % LINE NOT USR  STEP b`<> RETURN =>=VAL S<=q RETURN A▘#}%eCODE  FOR COS  CLS ~ TO  DEF FN Y BORDER PIN BIN  PAPER / TO LEN "USR c LINE  OVER ▝ RUN ,▟nIN USR [T] OUT   LET "LEN [I]E OVER  RESTORE VAL$ ▜ CONTINUE I PRINT IN  GO SUB *ACS  PAPER  PAPER STR$  MERGE ATTR  OUT <{ PAPER  BORDER Y~ GO SUB L READ  GO TO  OPEN # TO %[D] LPRINT STR$  NEW ! DRAW [N][Q][A]% IF LN  CIRCLE z FLASH Z PRINT ^`ACS  RESTORE m;VAL ▙ COPY FN [K] ERASE ▛ RESTORE USR ONOT [O].SGN  LIST  COPY  DEF FN  LOAD ▝ LOAD ?|[G] THEN  BRIGHT USR <[A] ERASE  BRIGHT  VERIFY ▟ VERIFY  VERIFY [D] ERASE  NEXT  FOR m▞▙ PLOT  & GO SUB LN 9TAB /LN ▚<> NEXT RND SAVE zX BEEP KP CAT ^VAL$ { BRIGHT  CLEAR @g2SQR SGN  CLEAR  POKE <`CARWASH CUSR 78hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm@% READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BINT Y8<>_ REM g[D] DRAW  CIRCLE  GO TO ^V MOVE V PAUSE  CLEAR  LINE  POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE  THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$  GO SUB  LINE IN VBIN SCREEN$  OR [ OPEN # OPEN #>V COPY  LINE CHR$  THEN mRNDRND, TO  LOAD [COS ;m-+k[R] READ NOT ?W LOAD SCREEN$ x RESTORE 6Qg# MERGE ` DEF FN <d[F]ASN [A]G AND ek BORDER TTAN  AND  TO  LINE  OUT 2 OPEN # RETURN  CIRCLE ABS ACS ] AND ▗SGN -z DEF FN USR "yCOS J:NOT  GO SUB Z BEEP  CIRCLE <"Z]/[J]9J<>RNDNOT PI- AND  LPRINT CHR$ CHR$ AT M[O] DRAW PIw{ THEN  ERASE  INVERSE  STOP v RESTORE Yo COPY VAL$ I OR  STOP [F]+}5 RESTORE  LINE  OUT  BEEP 0oBASN &/oY# BEEP  DRAW SCREEN$ ▜ CAT [K] MOVE o FORMAT [J][E]o OPEN #6 RETURN o%9 NEXT FN  BRIGHT  OVER  PAPER oi DEF FN r{5ACS y[TAB  VERIFY Q/[J]X)[L]WRNDNOT 8 THEN 8 DIM [K]'y BORDER  OR [F]3&CASN [B]TAB ▟ MOVE  OPEN #L BORDER [J] CONTINUE  PAPER  CLOSE #[C][L]9 LOAD Z STEP [R] STEP dSGN 2 MERGE g▚ LIST [D] LET  TO TtDM VERIFY POINT ▝0Sg/`oUPIC<=PIVAL$ ASN (LEN USR eJ DRAW K COPY  OPEN #LEN |! COPY #~ACS ▛[C] RANDOMIZE  LIST L STEP o LET !"W[J]RND*/ LIST IN  RUN SGN  DATA kCOS 0 RETURN  NEXT  THEN  NEXT  STOP PEEK  STEP  NEXT X AND IH NEXT SCREEN$ gABS [S]a[H]b PLOT  oXS SAVE v[K][Q] RETURN  RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR rAT  STOP yd6 LOAD  REM SCREEN$  OR  BEEP  PAPER G AND  FLASH [A] POKE COS  AND  DATA  POKE LN  OUT %w VERIFY I/[N] CONTINUE `G CAT u}IN  AND  THEN [Q][I]INKEY$<= STEP w INK j CLS VAL$ PI TO ▜ RUN  LET [Q]: PAUSE F~* IF [G]INT H&[D] OVER NPOINT  LPRINT Ce PAUSE  STEP  NEXT  RESTORE  PAUSE  LOAD [M] INK ( STOP =[ BORDER EXP 1w ERASE <>POINT y[O]EXP INKEY$[K]_.C OUT CHR$ {[J]^ DATA k COPY p^POINT ht GO TO x▞[D] DEF FN x FLASH IN t> OR E MERGE ProTX/ack? LET  GO TO 3.4compiBIN latnG BRIGHT  DIM CHR$ /p CAT ?reliz/ PRINT 7y DRAW (-:n CLS )[U]'ABS c SAVE j▜▞.eho▝ NEW tr!uPEEK h GO TO [P]zoIN  INK nLN me  DIM  OVER  CONTINUE ~ REM  INK )kTAB COS  PRINT <> SAVE  IF  CLS STR$ X[S] PAUSE IN n` VERIFY #CHR$ g©© PLOT  ©~!$<=FN ▘COS 7 COPY 6?x VERIFY [M][T] RETURN  READ  DRAW [ACS ▜ PAPER  AND g[D]p REM  STEP )H[U]▚COS INKEY$<=Dv<tINKEY$mD MERGE  POKE LT[O]▞PEEK [B][G]R DATA ©j LIST  CAT LEN @p INK hl3t <${ CAT w3L POKE  INK SQR r CIRCLE [C]U VERIFY $5 OPEN #[T][T][L] REM >▚ COPY  LINE  FORMAT [B][E] CIRCLE <VAL }[[M]{ THEN  CLOSE #w CLEAR A~ READ `)k DRAW ~[N REM  VERIFY  MERGE INKEY$A▘TAB HvSTR$ ACS Hw©3H{ SAVE 7HJo[O]rKrIN |rl INK 7 VERIFY PINT  SAVE  VERIFY ▜[L]▞ LET  FOR  OUT  SAVE *▟w▙SQR  DATA / PAUSE [A] DATA w PAUSE SQR [B]w/[C]© LET  FOR [D]X▛[T]p[E] AND  LOAD p[F]c DRAW [[G]%IN [C] OUT [H]IN  READ [I] OUT %[J]wF[K]k NEXT F[P][T]pa VERIFY #▟ CAT ^x OPEN # PRINT "▗ DEF FN VAL$ r STEP  TO U TO  CAT ▜VAL  DRAW ▘1)-, LIST  MERGE s.w▖▚▛?▛▛U~ CAT  THEN ▜ DRAW +4▚ INVERSE  RUN  VERIFY 0t$ FORMAT  COPY J:ABS  OPEN #[B].#y▘0▛ OUT # STEP }} STEP  FOR  OVER ©[N] LINE "^HCODE [O] THEN  FORMAT  LPRINT `BIN M OVER g" IF  RETURN [K]T LET SIN  OPEN #ATTR [H]SGN D CLS ! LOAD [Q]+N[B]!ZPOINT [H]INT  OVER a! MERGE [I]# STOP  PRINT / NEXT y%[J]&j LINE  FORMAT '(7 CLOSE # COPY )* ERASE  IF  VERIFY ©SCREEN$ k OVER *3[P]Q[N]IN ^ INVERSE USR  PAUSE  CONTINUE [L]`EXP  CONTINUE [N]^h CONTINUE *VAL 3X CONTINUE [Q]}/ CONTINUE  DEF FN  CONTINUE m<> FORMAT  DEF FN :AT /h▛U STEP >=VAL  DRAW }COS w TO m<=L LLIST Lb} THEN [AT  AND [O]a! OR  DRAW TAN  VERIFY ▜ COPY PEEK  LLIST ▛=PEEK  POKE /=SGN xPEEK 7PEEK PEEK 7/7PEEK [A]#8KPEEK [B] OR PEEK .~ LET PEEK [D]PEEK  BRIGHT [N]i[F]2 DEF FN d;gSIN P3YQCODE AT VAL AL CAT EXP H FLASH [H] ERASE SIN w1 VERIFY HX MERGE VAL -P[H] CLOSE #P<[C]ATN  PAPER SIN =DSQR T OR e[D]P▜AT  THEN  RETURN <[[C]▛ OUT ©▖ BEEP  CLS EXP  DRAW /©▚ CLS IN  IF  PLOT  lPEEK ▟3VAL$  FORMAT ▛z AND  FLASH  LET  AND [F]VAL$ WS▚ COPY ▛▗ < LLIST [T]▝I INVERSE [E]^ PAPER ? RETURN  COPY ▞ATTR [G]SCREEN$ h GO SUB P VERIFY  FLASH  INPUT  OVER  INPUT ▟VAL$ ▛ FLASH VAL$ S▘N-j INVERSE LN LN MRM INVERSE : GO SUB LN  DRAW G"j SAVE [U][H] FLASH [A] OR ?[M] LET  INK  LLIST 3 MOVE STR$  INVERSE 1 CLOSE # STOP V RESTORE  PRINT ; OR  MERGE u▗| BORDER 1[Q]U LLIST  CLEAR +l OVER U6 OVER T OVER T▝ OVER SUSR  OVER S` OVER RVAL A OVER R CIRCLE   OVER Qo OVER Q TO  CLEAR  OVER V OVER  BEEP  / SAVE [R]sU MERGE  PAPER 5 CLOSE #CODE T IF [Q]luU CLEAR ~W PRINT @ GO TO LN  INVERSE ©ACS  RETURN INKEY$ LIST QPRND FORMAT  DEF FN [D]NE* CLOSE #>Q BORDER *SCREEN$ FN  SAVE b BORDER [R][O]<= OUT |J CLEAR } LET  LIST S[N]CHR$ ( OR  DRAW  CLEAR [U] CLS  LET iPEEK > SAVE  CLS  READ  LPRINT TAB  PLOT   RESTORE ▘ GO SUB W REM  FOR Y<=▜1SCREEN$ ATTR  PLOT   FORMAT  RUN  COPY _SCREEN$  DRAW  MERGE o[F]USR ATN  PAPER  CLOSE #+ COPY ?i= RANDOMIZE  NEXT ▞© GO SUB /▟ COPY TF{FN W BEEP h3USR Tw GO SUB *@SCREEN$ Y[P] CLS [J]_ ▟ ERASE  ERASE [U]m[Q]G[N][L] RANDOMIZE  LIST h BORDER [I]Pfj MOVE  PRINT _'ATN EXP  COPY FN  CONTINUE  STOP IN [U]jFN  GO SUB  PRINT [F]© IF [M][E] PAPER  COPY + LINE fSIN kBIN  DRAW [F] DRAW  LINE ATTR + INK  CLEAR  LIST [T]V CLEAR FN  PAPER g@ LPRINT [K]S/ CLOSE # CLOSE # CLOSE #FN ATTR  REM 3 RETURN S" CLOSE #IT6j IF  FLASH  CLOSE #t STOP  DEF FN © STEP (aQ RANDOMIZE ▛CODE etPEEK 'U LIST  MERGE V MERGE IN  CLEAR  CLOSE #POINT  RESTORE ? CAT  DRAW j LIST ©^ NEXT CODE LEN  LOAD _© PRINT  RUN ▙ CODE  COPY [S]INT [R]^[J] COPY W POKE kLEN 0 LINE # IF  FLASH  MERGE PEEK © POKE _I[J]CODE ? REM  COPY  RETURN ABS 9IN VAL  MERGE U▟ABS  ERASE q REM FSIN  RUN kABS  OUT +SCREEN$ ? PRINT u RUN  LIST XP_ COPY IN j▙ABS . REM W ERASE Z BORDER PEEK  MOVE  BORDER  COPY PEEK [G]ABS FN SCREEN$ ▛ CLEAR  INVERSE ASN  LINE FN INKEY$ CLOSE #Bt DRAW AT z"<ATN [U]]ABS D DEF FN ABS NOT [J] NEW (▘[S]ABS  MERGE zOlABS  LOAD [I] BORDER ABS  MERGE ▗ REM % BEEP ASN DEABS  CLOSE #Hf PAPER VAL$ ▘ABS }NO  MOVE ABS  CLEAR Uy[M]* LET [M]ABS   MERGE Q TO ABS ©[J]CODE INKEY$VAL$ SCREEN$  MERGE 4 OR HGABS }[I]ASN 69 STOP ABS SCREEN$  STEP  IF /TAB [M] BORDER  PRINT DA INVERSE  ERASE ATTR  IF FN  OPEN #PEEK  REM  CLEAR PVAL$  MERGE 7dIN ▖/:IN 3fWBIN INKEY$ CLOSE # COPY ~ CLOSE #/ REM #SCREEN$ *d_ IF  CLS % LPRINT COS  PRINT u BORDER  OPEN #^ IF * INPUT ~K= DRAW [I]W POKE U INVERSE tEINKEY$SIN  LET  DIM PISQR [S](PW PRINT  OPEN # ERASE  DRAW E-w/IN  SAVE VAL$ FN ▛e ERASE ▘ IF ©ETACS <= LET CODE [L][J][L] STOP ▘[T]L PLOT  @©LEN  CLOSE # LET UzATTR 1SCREEN$ * INK oIN [T] LINE  LIST  MOVE  FORMAT INKEY$SIN ATTR  LOAD  TO  ERASE  IF  CLEAR SCREEN$  ERASE ABS l CLEAR W NEXT ASN  COPY u RETURN  REM [T]lVAL$ f"▞ BEEP  BORDER @[E] CLEAR VAL$ Tpl DIM pINKEY$[S]SQR NOT  OPEN # CLOSE # DIM SCREEN$ r READ K CLS  BEEP [H] CLOSE #[C] TO PEEK  CLOSE #GINKEY$ LPRINT  CLOSE #[I]INKEY$ DATA >▖ DRAW U LOAD  COPY  GO SUB  LINE ZSIN E©TAB CODE  FOR  CLOSE # PRINT INT  FORMAT 9ZU LOAD  INK INT [E]I RETURN  COPY  LET  CLS J`#[G]VAL$  LPRINT  PAPER ?{[P][B] CLEAR  REM  RANDOMIZE LEN `[B]ACS `_▘% RESTORE FN  PAUSE ,,$[Q]POINT 3}X DIM  LOAD /a▚+S PAPER ?[E]ACS ▙SCREEN$ oPEEK .( COPY ©5 BRIGHT  LIST 7VAL USR ▝AATN  MERGE VAL ` CIRCLE !X  SAVE 9 Df[P]G RETURN E[G],!▝[I]; CONTINUE 2 CLS POINT <= OUT =F IF [D][O] IF @ IF  LPRINT ISTR$ USR XzTUSR aF"[USR 1#CN[T]: CLEAR  GO SUB $e▘USR STR$  STOP USR CHR$ USR CHR$ H RANDOMIZE EXP H"&©i[S]Y TO [A]▗1[Q]▝▖a▖▖CHR$ [U]PI OAU IF  USR C GO TO a<= IF y LIST lVAL$ iPIUSR ▝RNDsUUSR g©D[J]4[J]USR  CLOSE #f▘S COPY USR  NEXT USR UL BRIGHT [L]USR $ RESTORE @USR STR$  STOP USR CHR$ USR CHR$ [Q]G REM COS  TAN .[E] RANDOMIZE  PLOT   IF ,PEEK  SAVE  DATA ACS   FORMAT USR LN d IF STR$  TO :P OR  BEEP ▖NYV3 INPUT  FORMAT  LINE D PLOT  [E]▛VAL  GO TO [U]STR$  RETURN _~VAL K RANDOMIZE USR  TO  MOVE [G]USR -©STR$  THEN ▘+([G][T]K[R]PPATTR  OUT [A]TAB VAL H[O]-VAL {` DRAW `EXP VAL J[P] MERGE  SAVE STR$ ATTR  VERIFY  BORDER p FORMAT  MERGE  LOAD @ COPY  LET [O]` DRAW  LLIST rUSR  FORMAT  OVER  FORMAT jkb DEF FN  LINE [H]U%XPEEK (XP RESTORE RSCREEN$ VAL wm STOP  MOVE  MERGE  LIST  ERASE [F]▘`rq DEF FN  MOVE  INVERSE ▞ LET k CIRCLE <VAL &VAL [PEEK -;LN  IF #_ CLEAR w BEEP n▜PEEK  PLOT   SAVE ▖FN ▛8 PLOT  [H]k CLEAR  GO TO ? FOR `#ASN  RUN  LOAD [S]8[L]? PAPER D[L] DRAW IN k*_VAL$ INKEY$<>g4 BRIGHT  OVER [K]gz OUT [C]IN :3 BRIGHT ▟ VERIFY 8IN  NEW PEEK PI[L] CLEAR sTAB @DSGN  CLEAR  OUT [O] GO SUB -CHR$ " GO TO ▜VAL$  MERGE [P]adR OPEN # INPUT ~ LET IN [K] STEP  FLASH T_SQR /E LET  DEF FN A INT xVAL$  BRIGHT  IF # PAUSE c LPRINT @o CLEAR j@ RUN [IR']sD PAPER  GO SUB  INK  INPUT x CAT ▝P ▖ OUT TAN @ NEW ▝ PAPER P[K] OUT r▛{SIN >SGN }COS Vid~8▙SGN $▟ STOP *[R]_m STOP R RUN A RANDOMIZE /? PRINT 0 BORDER  VERIFY FN (| CLS [▟LEN ▙ IF ]LEN [ CAT  <> OUT  RETURN <>[J] LPRINT uPI[P]e MOVE © SAVE [R][O][K]▙PEEK CODE ^IN  INPUT ACS W LPRINT ] MOVE ^<>`[U] OVER  OUT Z#jqUSR SQR  LET  MOVE RNDo FOR >=IN  PAPER J*<=[I][T]"[S] SAVE  SAVE [N];ezPEEK  PAPER ATTR ▖g CLS W RUN  PRINT  THEN i[U]x FLASH ; PAPER POINT  OPEN # STOP SCREEN$ K IF COS  RETURN  MERGE gB/ PAPER ▗_RND[R]SQR  GO TO SCREEN$ FN CODE TAN T PAPER ASN 5ACS 1ATN |fTAN  COPY C FORMAT NOT WA- DRAW jg<=o$_[D] DATA  THEN  FLASH A DIM <= DATA *=[D]COS ASN  OUT ; PAPER ~RINT ji/ GO TO A`e ERASE ziq POKE cSIN y AND  LPRINT  ASN  COPY  PRINT [I]Z. PAPER AVEXP SQR TAN  CLEAR [O]M`SIN  RESTORE h PAPER  MOVE  BRIGHT  BEEP &0SGN  PAPER  PAPER "▜OLN ~ CAT  PAUSE ? RESTORE  PRINT # MERGE LN SIN  CAT [A]bIN >M<> RESTORE TAN  PAPER /▖TAN CODE VAL$  OVER  PLOT  35G FORMAT  PAPER P OUT  PRINT  OUT  ERASE / RESTORE  PAPER REXP STR$ b DATA RND FLASH B}3COS [= READ  PAPER  STOP  LET ▞3 READ [I]E k[J]rb OUT  INVERSE ABS ACS x[T]mSIN [F]SGN  PAPER VACS  NEW ▙lRj$^INT AT RND DRAW "SIN  OR ATTR [H]_t OPEN #!>=7<▗zVAL  LOAD POINT [E]5r MERGE C[J]k FORMAT ip[S] MOVE ▗+TAB PUSR .v[F]ED9 CLOSE #▖hPEEK  DRAW (~ CLS [R] CLS 6 FLASH [A]r_ ERASE SCREEN$ ▘ COPY [A];TCODE [P][Q] TO ~B RANDOMIZE AW CLEAR  PAPER EXP INKEY$ INPUT  PAPER [I] PRINT ] FORMAT [U]PEEK  RUN  FOR  MERGE Tf DRAW ▟br FOR E PAPER o DIM 7 IF [O] CAT  LINE NOT w LLIST  CLEAR :Ws. READ  PAPER [Q]hINKEY$/h LOAD COS  INK  STEP  MERGE VAL$ ^ DRAW C^MTAN l[S]/[O]SIN ^TAN  PRINT u/PEEK ATTR TAN g DATA VAL$ ^SGN [K] TO  LINE g BEEP _▙ MOVE l READ T[U]c IF VAL SGN LATN COS [J]9Yh COPY  LPRINT RND[ REM TAN  GO TO X RANDOMIZE PEEK  AND }hZ LLIST [N]TAN  LLIST ABS  RUN [R]~ATN  POKE  RANDOMIZE [N]} DEF FN ATTR TAN %▞>=Z PAPER PEEK  BEEP  CAT [F]fz PAPER R COPY IN m'CODE INKEY$TEFN yf INK h VERIFY  GO SUB C BORDER  OUT  STOP <=K PAPER ATN CODE  IF  STOP r[T]▝ MERGE IN oTINKEY$ ERASE [F]▚SCREEN$  MOVE y PAUSE  IF IN  NEXT pY:j CAT  FLASH &[N]SGN RNDG:SIN [K]I STOP [S]COS  COPY  ~USR  PAPER TBIN T PAPER V[S]; PAPER NOT GATN  OPEN #v CAT  RETURN PTAB q[@K FOR hj~ OVER [T]N SAVE  CLEAR  PAPER XSCREEN$ { LOAD TAB Td LOAD  CIRCLE [J][S] OUT  FORMAT LN }SIN NOT 9s[D] LOAD _ AND iACS  LET PEEK TAN O` BEEP ^ PAPER Ojbs[[F] LET [R]B▙ LLIST 7T@=COS ▟ MERGE ▖LN  BRIGHT :PEEK y}<= AND Q CLEAR  NEW ( CLS  LIST IN  OR [D]mf RUN LN  STOP ATN ASN © LIST TAN Z[O]y▘[A]INKEY$o@ REM VAL$ DT RETURN  CLS  TO [N]SGN ▟ CLOSE # RESTORE  CLS -K: GO TO  RUN  CLS  COPY  FOR  RANDOMIZE <>~ BORDER  REM  READ [L]VAL CODE @LEN v?4fpPEEK t▗ PLOT   LLIST  THEN  PAUSE ACS  CLEAR  READ  THEN ▗ RUN  RESTORE m LET ▝[B] OPEN #ATN : PAUSE ( COPY SCREEN$ :9[P]<= BORDER ACS INKEY$e READ c OR VAL$ SCREEN$ SIN 6 LPRINT SCREEN$ SGN M,© MERGE ABS 7USR  ERASE _ PAUSE [C][C]SIN TAB  CAT  REM ASN z#~Gz FLASH  OUT <=>=T PLOT  BATN  DRAW A[P]'[G]J▘ POKE _ AND  CLEAR SCREEN$ u▚USR ▙, OVER  PRINT  NEXT N DEF FN /FN  PLOT  u PLOT  @ LOAD c FORMAT  LOAD [Q]eR▝ OVER PEEK .c▛m BORDER  SAVE SCREEN$ E! LINE ABS  SAVE D NEW b GO TO [P]U PLOT  ▖ (INT 9FN USR c{[E] LIST 1[L]6l CAT [U] BEEP RNDk CIRCLE  MERGE :cWU}D▘_u*J^ NEW  INK 7 CLOSE #W INK VAL  CLEAR T PRINT i COPY DH[Q]<=SCREEN$ PEEK ▞ GO SUB  INPUT ([B]* CLS  COPY EJ[Q]SCREEN$ N OUT EXP  PRINT [q4L CIRCLE [b RESTORE FN  IF ? INVERSE  MERGE [[ ERASE  IF bSCREEN$ ]^TATTR  AND ▗ NEW  CLEAR USGN UP RETURN SCREEN$ FN  CLS j AND [U] OPEN # OVER  IF f[D] CLOSE #o{IN e▖ CLOSE #[U]T▝J-[J] BRIGHT {[Q]INT N CLOSE #[Q] DRAW CHR$ H DRAW PEEK  COPY  REM COS  OUT / CLEAR COS ) CLS ~[F] RESTORE / OUT  OPEN # DRAW  RETURN }}[kPOINT @©A~>8v= CLEAR A3 CLS 6 CLEAR  TO jx CLEAR [I]z PRINT " PLOT   OVER  PRINT ? LINE  VERIFY  RUN  STOP ~©[F]▙ OUT  RANDOMIZE )[T]}IN  DIM  THEN [U] PAPER  GO SUB  STOP ~©SCREEN$  OUT [J] REM A PAUSE @N MERGE  MERGE [T] INK ATTR SCREEN$  INPUT N[P][C]z▛_<>g[C] CLOSE #[P][K][N]SCREEN$ ~ DIM  PRINT  LPRINT __ OUT ^T9N CLOSE #>~c/ AND FN tCODE <>GPOINT [F]POINT <= CLOSE #d SAVE  DATA UPICOS :A_VAL  MERGE SQR 3|BIN @PI[N]~ RETURN  CLEAR pp LET  POKE [F]IN  MOVE G!Z CAT ©s LIST  RANDOMIZE ([S]ATN GS PRINT G▟ ERASE ]▘G3'PEEK o CLOSE #) RUN <G, REM  CLS G})VAL  CAT ~ LET COS Cs{ PLOT  DE= LPRINT X OUT [R]'( CLS ' LIST F CAT  RETURN pwUSR ▙r CLOSE #X[A]B GO TO ▙USR p}[F] RANDOMIZE Bx▝▖@2[Q] REM USR USR ▝ MERGE [O]▝ RESTORE [Q][I]VAL xAABS VAL 8 9m AND   PLOT   AND [Q][R]`NOT @60 OUT [P] 1 PLOT  ?MO_ LPRINT  RANDOMIZE UG_© DRAW ▝[J]zh FLASH  IF  LPRINT  PLOT  A] LPRINT E LPRINT | CIRCLE G VERIFY USR F BRIGHT USR [Q][J]h▝[H] CLEAR  BORDER  OUT ; LLIST 0[U] LOAD ▝v[R]0p▝ PRINT  LIST BANK1   CUSR @@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm@5 READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BINT Y8<>_ REM g[D] DRAW  CIRCLE  GO TO ^V MOVE V PAUSE  CLEAR  LINE  POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE  THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$  GO SUB  LINE IN VBIN SCREEN$  OR [ OPEN # OPEN #>V COPY  LINE CHR$  THEN mRNDRND, TO  LOAD [COS ;m-+k[R] READ NOT ?W LOAD SCREEN$ x RESTORE 6Qg# MERGE ` DEF FN <d[F]ASN [A]G AND ek BORDER TTAN  AND  TO  LINE  OUT 2 OPEN # RETURN  CIRCLE ABS ACS ] AND ▗SGN -z DEF FN USR "yCOS J:NOT  GO SUB Z BEEP  CIRCLE <"Z]/[J]9J<>RNDNOT PI- AND  LPRINT CHR$ CHR$ AT M[O] DRAW PIw{ THEN  ERASE  INVERSE  STOP v RESTORE Yo COPY VAL$ I OR  STOP [F]+}5 RESTORE  LINE  OUT  BEEP 0oBASN &/oY# BEEP  DRAW SCREEN$ ▜ CAT [K] MOVE o FORMAT [J][E]o OPEN #6 RETURN o%9 NEXT FN  BRIGHT  OVER  PAPER oi DEF FN r{5ACS y[TAB  VERIFY Q/[J]X)[L]WRNDNOT 8 THEN 8 DIM [K]'y BORDER  OR [F]3&CASN [B]TAB ▟ MOVE  OPEN #L BORDER [J] CONTINUE  PAPER  CLOSE #[C][L]9 LOAD Z STEP [R] STEP dSGN 2 MERGE g▚ LIST [D] LET  TO TtDM VERIFY POINT ▝0Sg/`oUPIC<=PIVAL$ ASN (LEN USR eJ DRAW K COPY  OPEN #LEN |! COPY #~ACS ▛[C] RANDOMIZE  LIST L STEP o LET !"W[J]RND*/ LIST IN  RUN SGN  DATA kCOS 0 RETURN  NEXT  THEN  NEXT  STOP PEEK  STEP  NEXT X AND IH NEXT SCREEN$ gABS [S]a[H]b PLOT  oXS SAVE v[K][Q] RETURN  RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR rAT  STOP yd6 LOAD  REM SCREEN$  OR  BEEP  PAPER G AND  FLASH [A] POKE COS  AND  DATA  POKE LN  OUT %w VERIFY I/[N] CONTINUE `G CAT u}IN  AND  THEN [Q][I]INKEY$<= STEP w INK j CLS VAL$ PI TO ▜ RUN  LET [Q]: PAUSE F~* IF [G]INT H&[D] OVER NPOINT  LPRINT Ce PAUSE  STEP  NEXT  RESTORE  PAUSE  LOAD [M] INK ( STOP =[ BORDER EXP 1w ERASE <>POINT y[O]EXP INKEY$[K]_.C OUT CHR$ {[J]^ DATA k COPY p^POINT ht GO TO x▞[D] DEF FN x FLASH IN t> OR E MERGE ProTX/ack? LET  GO TO 3.4compiBIN latnG BRIGHT  DIM  DEF FN /umb7CODE arz/ SAVE sun5[L]dt OPEN #x: PAPER n DEF FN X_6▞ABS BIN  OR j.e COPY ho^3uMpH2CODE [N]k1 COPY  PLOT  PI INVERSE  BRIGHT  FOR uY PRINT  OVER  RUN  RANDOMIZE o[D] SAVE  MERGE  COPY I COPY >= DRAW WATTR  GO SUB `V CLEAR b LOAD USR d DATA  RANDOMIZE  RESTORE  BORDER [T] NEW  PRINT  LET  IF [I] READ  INK  COPY [B]INT CODE  REM PEEK  CAT FCHR$ ;[G]FN f IF xATTR [P]▟ STOP !;Q AND KEXP  INK = OUT d ERASE 7 INPUT  SAVE } LIST  CAT LEN  AND ^ LINE .ATN aVAL  FLASH 8c3STR$ ▜d CONTINUE 0SCREEN$ ATN ;INKEY$ LIST "{/USR 89 BRIGHT t}GAATTR ▜@USR ?[D] FORMAT  CAT AT  VERIFY J<>[K]SCREEN$ >="VAL iSCREEN$ <=SCREEN$ ▖4 AND T[Q] OR ▝VAL BIN ▝"PNOT *PCHR$ HSTR$ VAL ?) FORMAT  FORMAT e&d DATA  FORMAT VAL$ <>[U] TO O TO a DEF FN 1 DRAW ~[L][S] POKE cd▜[L]IN 5 CAT #j[H]  CLEAR %.[G]&fLEN '[I]VAL$ (<> DATA / LINE USR j GO SUB a<=▜ OR  REM ▟CODE (LN STR$  IF 1▝ OR  CLS  BORDER  AND LEN  LIST STR$ yLCHR$  CLS NOT ©q?BIN  OR ~ GO TO  BORDER  AND <= RUN COS  PAUSE >=<>~| LINE  CAT  READ  THEN { TO | BRIGHT  STEP z DEF FN y[I]© CAT xwvtSCREEN$  FORMAT  GO TO  DEF FN i PLOT  [K]▝y LET  VERIFY  STEP  DIM ▘ LET LEN  INPUT  COPY  CAT  FORMAT >=f LINE  FORMAT R[T]STR$ kGs[K]'[P]ABS FN  PAPER > THEN TAB USR AT >=[M][I]LEN  REM  PAPER  PLOT  [I] STEP COS  PAUSE sSCREEN$ #[G] FLASH <=6k LINE c TO ▙ TO [F]ATTR AT m INK 0+1!_ CONTINUE u CIRCLE v VERIFY [O]▞ABS  CIRCLE NOT VAL E OUT  LINE ``▘qt▘ LINE ▜ATTR ▞LUSR  CLOSE # LLIST ▜ PAPER Ud LINE [L]PEEK @ CLOSE #[U] BRIGHT SGN  NEXT ▗[E]j[F]CHR$  LINE  PAUSE [I][U] DATA  DEF FN  STEP COS ▞INT  TO p[G]>= THEN <=r VERIFY  FORMAT  AND <> OR [O]%BIN  GO TO yNOT TAB /={_aX?bVAL [L] STOP  BORDER < BEEP tACS [N]W< PAUSE GNOT 2▚ BORDER  LINE NOT  LOAD TAB  LPRINT  LIST  MOVE  PRINT  PRINT SGN Y[U]M REM 7O BRIGHT j LET  PRINT ~CHR$  LINE  PAUSE [I][U] DATA  DEF FN  STEP COS ▞INT  TO p[G]>= THEN <=r VERIFY  FORMAT  AND <> OR [O]%BIN GxNOT  BORDER Y OPEN #COS /^_▝ PRINT G BEEP q` FLASH WG, CAT G MOVE 0A BORDER USR  THEN  BORDER } LINE  LIST  OPEN # IF # SAVE  CLS  FLASH UeUlATTR [U]PEEK  NEXT  CLOSE # BRIGHT [E]SGN ©[F] PAUSE j{CHR$ [U] LINE ▞[I] DATA  DEF FN  STEP [G]COS INT  TO >= THEN  VERIFY p<= FORMAT  AND %r<> OR BIN 2[O]NOT  RETURN 5 CIRCLE  RESTORE [P]y BEEP [A]4SQR ?@ MERGE ©▙ FLASH  THEN ▟ PRINT [H] COPY  THEN ▛©EXP  RUN GVAL$  COPY  CLEAR _▖IN CHR$ |[H] FOR ▚r COPY  INVERSE USR 0NOT Yr=]STR$  THEN ▘. RUN LEN * RETURN /^v CLS IN  COPY [H]USR r THEN ABS  RUN <,`j J[D] CLEAR ? VERIFY [R][T]>?▗[A] PAUSE  DATA [G]ATTR  PAUSE F INPUT  CAT UB,ATTR USR  REM ▚SCREEN$  DRAW  DATA T>= MERGE x[D]N[M] OR .▖+Yx$hH[M]▟▘qTAB 6f DEF FN INT  STOP  GO SUB INT EXP jo PLOT  [F][P]lVAL$ r▛<=U[M]USR  LPRINT <=RNDX OUT  PLOT   IF  INPUT  BORDER USR  VERIFY  OVER  OUT > INPUT  THEN  CLEAR  RESTORE  IF  BRIGHT  COPY VAL$ IN  BEEP _ RETURN / DATA  STOP 6n COPY W0 NEW  PRINT [O]PEEK ▝# LLIST 3 MOVE STR$ . LET  INVERSE 1[E] STOP T RESTORE  PRINT ; OR  MERGE  INK |, BORDER 1`S LLIST  LET ~ NEXT ACS  OVER S OVER R▝ OVER RUSR  OVER Q© OVER Q COPY  INPUT  OVER @V▝ INVERSE  OVER tVUSR  OVER U` OVER UVAL A OVER TVAL   OVER [J] 4 RUN S: OVER  COPY  OUT _ CIRCLE ACS  LOAD [R] PRINT  CLEAR NtTAN  CLOSE # CLOSE #NOT  BEEP  DATA +FN ( GO TO r FORMAT ▖ RETURN |oFN 0 RETURN CODE ▖ CLS [I]PEEK ▚ NEW VAL YyLN x LET  CIRCLE qABS ~ SAVE  DRAW  DATA AT YX/ DIM L[N]K▞~[ DRAW ▚ PRINT g LINE $[N]+ RETURN  COPY  GO SUB  IF S▝ATTR - FOR SGN ~w MOVE ', RETURN  COPY j&[U] PAUSE ▜ CLEAR a RANDOMIZE [B]aq STOP  CLS USR L} OUT INT  CLEAR CODE  INPUT @` FORMAT ap©p RETURN x CIRCLE  SAVE [R] ▖▜p(▖C`▗ FORMAT %[A]A▝FN  FOR I▖ RESTORE  DEF FN [J]#<= CAT  LIST VAL$  DIM  u INK uLN Y[A]Q[UCOS  FLASH 2▖LN ▗DVAL "h>=USR USR SGN ! CAT m2[A]IN  FORMAT d BRIGHT 7 LINE CODE  LLIST INKEY$IN >INT [N]USR " POINT  LET ▗[D]@F0 PLOT  ▚ PLOT  K▗ PLOT  ,>= RESTORE [A] FORMAT ▞*` LLIST @IM[A] OUT g POKE  PLOT   GO SUB SCREEN$  FORMAT FN I[L]pL`@6CHR$ [Q][Q]!B#,RND<PEEK 6P( PLOT  @▘SIN D▖$ LIST @I PRINT IN HVAL V▝0▖<[D]0 LINE tWVAL  FLASH }[F]` GO TO  DRAW jd0is[Q]'x▞EXP 1x LIST [A]x▘![Q]1▚| CLEAR CODE  POKE  POKE  INVERSE @5 IF  LINE  MOVE ^ MOVE VAL l[O]VAL [B]▝[B]CHR$ G[[K][E]# DRAW %[B]'c^ PAUSE  REM @[L]IC LIST  CIRCLE <= RUN ;▝D*[L] REM &AT ▗ VERIFY [K]SGN  INPUT [T]O INPUT &VAL ASN  FORMAT [Q]I INK  PLOT   INPUT &>=ABS >=▖ INK [I]X[J]v" AND [U] PLOT   LET J DEF FN  PLOT   MERGE ▟[D][J] DIM ARINKEY$ IF L| INPUT jL RANDOMIZE l[K]SIN a RANDOMIZE 04Bh CLEAR `a AND +J2 PAPER NR FOR ▟[J]H NEXT <=E3![G] STOP STR$  DRAW p CLOSE #$[B]p▗ PAPER [U][Q] CLEAR [M] MERGE L[O] CLS  DEF FN 1]ogRSCREEN$  CAT )e LLIST ` STEP  ERASE ; INPUT  [D]& CAT qjR/XAmJ[C]!h CONTINUE  TO [U]@~ NEW [S]IN &[Q]AACS [G][Q]@INKEY$x( LIST [I][L] OVER  MERGE @ BRIGHT  FORMAT  POKE C[R]ATTR  RESTORE 0[H]W0`[K][Q]VAL [D]R LLIST H FORMAT  DRAW %^▟ CLEAR 1 LOAD ▛ATN  ▙R[B]o` PAUSE USR j` PLOT  ©Up/▞'r` MERGE [A]?,g[B]▗[R] NEW U:LN % FLASH IX LIST /U LET =" @[G]▝POINT  CONTINUE aE READ ,BIN ! RESTORE  AND  FORMAT ASGN -ASN  2[R]IN  BRIGHT COS EXP WVAL ▟)~ LLIST  MERGE USR >= DRAW ATTR [U][P]Z[A]>=P[H]Km BRIGHT g9" CIRCLE m)4e/8 THEN STR$ USR  FLASH j LET  FORMAT [I]NOT  PAUSE  STOP  OR LN h! PAUSE ATTR [P][Q]`%f8▖SCREEN$ p<= CLOSE #@[I]WNOT BIN  DATA  STOP T▘ TO XIN  RANDOMIZE VAL [G]COS q▖a[D]r FORMAT [F]SGN ▟ TO  OR oFN I[Q] LIST  PAUSE m LIST -TAB  FORMAT CODE  FORMAT ,AT 0[T]CODE ^ DRAW ,[U]^[P]$@ BORDER g SAVE @[▖IN SGN [C]"▚ LIST  NEXT gE▖VAL © CLOSE #[A]VAL  NEXT URo[F] DRAW  CIRCLE  K▝ OPEN #T`▗[B]RND PLOT  ` CAT  PLOT  USR ^A[J]zUSR  IF @ FORMAT /[J]USR  GO TO H[Q]j RANDOMIZE USR =SGN  OUT  MERGE  DATA Do CLEAR  LPRINT BIN [Q] RANDOMIZE 3HASN j@[Q] OR IN $@EXP  IF [Q][P]:USR  THEN  {m▖5zL LPRINT J@ LPRINT rASN @[Q] OUT c/[Q]`[Q][Q] BEEP E[I]}s IF m IF KUXPEEK  PAUSE DINKEY$?a TO "[D]gCOS ATTR *g[J] PRINT  PAPER / BRIGHT  GO TO 7 PAPER FN  NEXT  GO TO SCREEN$ PEEK  STOP ▖▘ RETURN UZ]U RUN  FOR P INVERSE  GO TO SCREEN$ ?[P]" DRAW  LIST (ASN IN W LOAD > BRIGHT TPOINT  DATA <=' CAT ATN  OPEN #ATN  INK [P]▞ASN  PRINT [ NEXT [H]*[Q] STOP  READ *ATTR _RNDT~ BEEP  PAPER WvVAL$  STEP P[D] CLS VAL &IN USR [ LOAD %ECOS  LPRINT o PAUSE [S]▟1LEN VAL i~p▙|CODE  FLASH i PLOT  [F]t CLEAR !XL THEN 'e DRAW ATN ▙P OR  MERGE IN  STEP  RUN CODE +X LIST $ NEXT [Q][C] PRINT [S] READ [S] BRIGHT  RETURN AT  NEW  PAPER P MERGE  RUN [O]I RUN  PRINT |z; PAPER (M87r[O] DEF FN  GO SUB H POKE  FOR i_}^[I]M#LN #g LPRINT  OVER PIIN 2[L] PRINT 3gQ PRINT S DRAW  PLOT  (a INVERSE v>55INKEY$ PAPER ASN TAN E SAVE POINT  [Q][D]+COS >▘ DIM FQe OPEN # RUN VAL  POKE  READ ▞%h FORMAT  OUT SGN 0 COPY /X6 LIST  CLEAR SGN _©RNDUATTR  CIRCLE  MOVE ▖7/ COPY  RETURN ~/"AT  THEN ? PAPER TAN PR© CLEAR W COPY  LIST [K]ABS PIVAL STR$ / ERASE  PAPER NOT  PAPER FN CODE #; AND  OPEN # CLEAR [F]© COPY  OUT  NEXT [K] RESTORE  INK  CLEAR RND GO TO  DIM  ERASE  RESTORE  STOP  COPY  CLS ATTR  IF zt34 LLIST a[G]z ERASE WATN  RUN  STEP  CIRCLE  BORDER [F]U RUN v▘ PAPER  OPEN #m IF  BORDER  RETURN ▖1] MERGE ABS INKEY$ BRIGHT _ LPRINT  CLEAR  INVERSE  LET  IF [M]W3 PAPER  LPRINT SCREEN$  PAPER  CAT ▙w© OPEN #uTAN  PAPER  RUN BIN  DATA  PAPER [I]xJgf0 AND he PAPER  READ +[U][D]USR  SAVE U MERGE { PAPER  RANDOMIZE [U]GTF[Q]ASN ▞Z PAPER [S]k2TAN ?C GO SUB %>IN M LPRINT u PAPER  RETURN JiM-[N]x IF XEL{Nv STEP   FLASH 9 LINE  PRINT <= PAPER ~ IF  FOR t[S] NEXT ZJASN TAN  COPY *JTAN  OR  NEXT  GO TO *S FOR INKEY$ PAPER [H] PRINT C6Z PRINT H [ OR  DRAW ATN  IF JAT eP LOAD SIN  LPRINT T* OR  PAPER TAN  CLEAR R` GO SUB [A][[S]S'LEN INKEY$POINT Z% DRAW h?A PRINT [TAN  READ _uEXP TLZN▜,;D<[L] CLEAR DiT[F] RETURN n. LIST © PAPER Ds1!" DRAW SCREEN$ :Lb©ATN j RANDOMIZE TAN fa PAPER  DRAW JSGN ` PAPER POINT 7SGN r[F]l RETURN  STEP  PAPER 8©>= TO ▗ PAPER +M %TAN &}^ CAT {5?▙ OUT  VERIFY 4 BRIGHT = COPY  BEEP }q ERASE b TO [J]( BORDER SIN  READ  TO 0[F]3 PRINT  OR TAN PEEK  GO SUB  BRIGHT  OPEN # DEF FN  COPY  DATA PI?IN q~@ CLEAR c[A]V/CHR$ Y RUN  PAUSE O CLOSE # CIRCLE ~P STEP IN  SCREEN$ POINT  TO et[P] PAPER  COPY LN PEEK : LET   COPY |K#rX RANDOMIZE ?[P]TAN  BORDER [H][A] INPUT PII<@|m REM NOT $▞[M]p)USR  NEW A$ PRINT % DIM  LPRINT k STEP AT ▟:E FLASH i PAPER  RETURN [A]l[K]^[S]"ATN [D]NOT u4i4 FORMAT <= PAUSE  DRAW  LINE AT  LET NOT  LPRINT  LOAD [F]▝▛%CODE  LINE SCREEN$ :VAL$ FN I INVERSE ▞ PLOT   READ DmpTAB _ INVERSE  ~<[N]@IN SQR  CLEAR )+ ( OUT ?[Q]*v CLOSE #TAN [F] STEP  PRINT ]H PRINT  LIST _ RUN ▞[P]CODE  PAPER P? RETURN 4 NEW  INVERSE >)[ NEXT ▝ PAPER LN  CIRCLE  POKE  DIM ! INVERSE  POKE [L]!JTL RANDOMIZE [A] CONTINUE ATN  LPRINT ▟ PAPER 3gLN  PAPER eTAN ©NOT EXP POINT q© PRINT  OPEN #g RANDOMIZE : BORDER SGN INKEY$CHR$ [Q]U LIST  POKE dTAN 6 OUT  CLEAR  INVERSE  FLASH EXP POINT h▗@OINT DP RUN SQR  OR  CLS [U] PAPER ▖ OVER [i3br STEP { PAPER  POKE !s[L]=fXASN  REM MTAB  PAPER TAN [J]B BORDER  CLS  LPRINT  OUT ATN  PLOT  T SAVE  DRAW 1ASN  FOR g PRINT ▙o SAVE ENOT  BEEP ,u[G]RCOS }TAN  PAPER  PAPER ▚,TAN [K][J] BRIGHT  FLASH RNDTAN <=PEEK  BORDER ▜E INVERSE  COPY 1 LPRINT  OVER TAN c_ PRINT  AND ATN  PLOT  J PAPER POINT ~▛ PAPER iM CAT  PRINT  RUN © RESTORE  LPRINT  RETURN ~TAN [J]5COS P=7 PAPER FN  PAPER k LIST  DRAW ▟0~ STOP [J] REM h/ OUT BIN  BORDER ▛$SGN [Q]1 CLEAR  PAPER ATN  TO K BORDER  PAPER  COPY w PAPER  LOAD UTAN mABS w<H BORDER KBIN [U]!▘ INVERSE ▞1r{ BEEP ▜ STOP @V▗ DRAW V"= LOAD # TCODE Z PRINT *[M] MOVE UR[F]eLEN g6[S]INKEY$[C] CIRCLE INKEY$ BEEP SQR COS [F]RVSGN  CLOSE #2 VERIFY CODE  PAUSE LEN  DEF FN  OUT CODE  IF  PAUSE &TAN P@ RESTORE !0 RANDOMIZE  COPY [G]iVAL INKEY$< TO ▟' RESTORE [U] DIM  GO TO  LIST SGN %>= RANDOMIZE [I] TO "D@' REM TAB  FORMAT -POINT yPOINT TAN [H] OVER 0AT  PAUSE ATN a▘LEN H" GO TO [JX VERIFY  AND PI. BORDER SQR  BORDER LN $SQR xASN h PLOT  q THEN  RANDOMIZE 2 DRAW K RETURN  POINT PEEK ATN W*LVAL$ POINT $[B]<>[A]Z7[S] PAUSE  CIRCLE -5 RANDOMIZE P[ OVER  STEP  ERASE  FORMAT  FORMAT ACS D IF +*[K]AT  OVER  SAVE " BRIGHT  LOAD  CLS  GO SUB [P]_ RUN VUA▟ STEP }9SQR <©oSQR &INT  FOR _ CLEAR SQR  LPRINT  FORMAT  LLIST [J] OR CODE A9ASN - CAT U?LUSR  PRINT w▛AoATTR j{ RUN / CIRCLE ▖[B]{ CLOSE # DATA  RANDOMIZE R LPRINT TAB  LOAD PEEK  DRAW  OR aTAN  BEEP nr//E MERGE SQR  LET Q RESTORE /ATN [O]©} PAUSE  OVER [N]/ INK yTAB [C] PAPER  INVERSE  FOR ▝ TO  IF VAL > SAVE [R]Am▘ NEW USR [R]3 LINE [M] MERGE FN  RANDOMIZE J LIST xj CLEAR [Q]CHR$ USR NOT 6 OVER LEN &TAB  RETURN  CLS ABS  SAVE  DRAW  BORDER }]©lb DIM  THEN >=$ GO TO ?AT xVAL  READ  CLS ▝[M]?▚`|x, LPRINT zc`x LIST x READ  CLS AT V▘|` REM <`BANK3   CUSR @@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm@? READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]@c` OUT  SAVE  CIRCLE (▖ LIST ` LPRINT Xa&| OVER  INVERSE LN VAL @ GO TO [E] GO TO [O]D SAVE VAL n POKE p, CLEAR PEEK Y CAT ▗X CAT  INPUT   PLOT   LINE  FOR Y[S]|X8 INK = SAVE  OUT = FOR CHR$ AT [A]AT g{eQ[O] PRINT >, INK ▟ DRAW  LOAD = FOR  LLIST  VERIFY >=AT gABS SIN FN [O] PRINT [P][G] VERIFY COS ▙~w1zpk PRINT ,SGN ^YTCOS [O]OKz VERIFY GB?;Y CAT 85= FOR 2/,AT g*'%, LET #<=[O] PRINT  VERIFY COS  CAT z CONTINUE Y[O] INVERSE >=, VERIFY COS U`kR TO JR{SQR q ERASE <> REM  LINE  IF <)w OUT  TO  CLS ) CAT COS  STEP /5xPI-VOR© OUT NEZH- NEW <="INKEY$ OR 2U<= CAT fBdSQR ▖<> COPY  LINE  LINE * COPY CODE  DEF FN NOT [P]BIN o▗ GO TO g"[O] TO USR [D] LIST  BRIGHT L CLS  INK 7 OR jSTR$ "▗<=CODE uO[N] CLS <>Q<= INK  STEP  LLIST  AND  CLEAR  STOP <>. DEF FN [ INVERSE  GO SUB s OUT  VERIFY  COPY  COPY g< LINE _BIN  RANDOMIZE  STOP INT  ▙S FLASH  LET o}▜ LPRINT 9 RANDOMIZE  MOVE z NEW [T]NOT @:[U]/CHR$ [K]= RETURN  AND  LPRINT  LIST  <[Q][H] VERIFY 1 NEXT =AT i THEN  PLOT  TAB CODE  BRIGHT  LET COS ©S[D]~ AND &STR$ o~[J][O] THEN ; PLOT  [L]IN CHR$ zo8g FLASH  DIM  DIM  THEN m( LET <> INVERSE g|ASN  NEXT  LIST { NEW  CONTINUE  TO  MOVE  PLOT   LIST  MOVE 4 RETURN  READ NOT  CLEAR o COPY PI) NEW n INVERSE STR$ } BORDER r PAPER  POKE " IF NOT  FOR eSTR$ 7 STEP eLN y6BIN &[U]BIN 9nCHR$ ▞RND BRIGHT ^ RANDOMIZE  LLIST [I] READ I▞ POKE O IF = IF ^BIN  *>=0#BIN  GO SUB ! DRAW  COPY 0NOT FBIN  GO SUB R$ 1 LPRINT  FOR Pe PAUSE * CIRCLE FN [C] DRAW ^[E][L]5 STOP <=©<=INKEY$-:ATN  INPUT SIN  LINE z%[S] PLOT  | GO SUB 3 OUT c COPY INKEY$ DATA ~ OR  COPY M DATA ▛BIN ! DATA IN BIN  DATA USR ABS  STOP CHR$ ACS SQR , DATA SGN <TAB  DATA <>[U] DATA <>▞` COPY  CAT l PAPER  DATA  RESTORE BIN  DATA  OR [L] DATA  COPY BIN ABS  LPRINT  DATA  READ  INVERSE ASN [L] RETURN  LLIST  OR 6 RETURN  LLIST ) OR  THEN  LLIST  DIM [N]} OR  LLIST MIN B OR  LLIST e OR [G] LET  LLIST : OR  LLIST IN! LLIST "FN # LLIST  AND Y<=[O]<= LLIST D[O] LLIST ▖z LINE [J] CAT [E] PLOT  [L] OUT ▘[L]ACS  LLIST [M] AND 7 CLEAR  LLIST SCREEN$  OR h DRAW  LLIST  OVER  OR ▜ LLIST  OUT CHR$  MERGE SIN  POKE  LLIST  FLASH ACS  LLIST  CONTINUE F▞▜ STEP  LLIST  AND &[U] LLIST +H LLIST ' NEW $ COPY  STEP  STOP 7 AND  STOP G AND  DEF FN e STOP [L] AND  OVER  POKE  STOP ` AND } STOP 8 NEW NOT  AND [G] LLIST  STOP X AND  STOP gN! STOP #FN X STOP ATTR ▛[J]<=SGN <= STOP  CLS [Q][P] OR  STOP D CLOSE # LINE ATN INKEY$ PLOT  EXP  OUT [Q] NEW S[T]EXP  CLEAR }o[K]EXP ATTR  MERGE  OVER  MERGE  VERIFY  NEW [M]ABS  OVER  THEN  STOP  OPEN #<=IN  COPY  CLEAR ~[N]NOT  GO SUB iCSTR$ .[T]BCODE  INVERSE |2 BORDER I^ READ  AND [F]ACS y,}v GO SUB  OPEN # THEN Uw[H]ATN (?[I]y><= CLEAR . READ  THEN :>▗U<= LINE  RETURN 6T<>[B]%USR  OUT 2 RETURN VAL ! GO TO  NEW -"G[S] THEN }b LLIST F9f OUT l>MUSR  INK  NEXT O9PI 2 GO SUB sINT PEEK  FLASH ~▜05 FOR #SQR ▞SIN _VAL$ [J] TO WAT R.TAN  LLIST u FOR ABS  MERGE "u<> THEN ▖?% STEP  PAPER <= GO SUB S▗_[D][R] INK 3%INKEY$ LINE ATTR /_[S]<>&USR PIp PLOT   PAPER [F]>=▝ACS ATTR  SAVE  LLIST 0[B] LIST  AND ` OVER  NEXT <>/#0 LPRINT =/▜ LLIST  RESTORE PEEK oQ~,f7~ RESTORE :BIN  INK ONOT  OUT LEN  TO <= FOR ~ NEW m) OPEN #V[R]{)YY▝ FOR  PAUSE CODE  CLS X<> IF Fu THEN ▙]V:;0kh INK y FLASH ACS ' FOR <>s`Q TO mC REM PN FOR Y^ CAT f][US SAVE [T]AT [L]TAB ] FLASH LEN A TO c REM LEN  GO SUB  TO  CAT /LN 9 MOVE [E]©[T]k LPRINT oN,F GO SUB  PLOT   DEF FN C[ THEN  MERGE Q[Q]TAB &@[G] RANDOMIZE A▝aNOT  BRIGHT <=(U<>[J]f IF /6`/d REM  INVERSE ;VNOT ACS BIN CODE  NEXT  DATA  STEP [I] DRAW H RANDOMIZE h[N][T] OVER =A INVERSE 2▘ TO  BRIGHT ACS ▛1 AND c  CAT D[E]RND STOP [J]D{EXP T RETURN ~<S[P]0sSCREEN$ C<> CONTINUE  PLOT  IN &BIN SCREEN$  OR [ OPEN # OR 7U<>FN Zi BEEP m RUN [N]^ OVER  STEP [F]<>)SGN IE LET [A] BEEP ECHR$ ) BRIGHT E IF  MERGE  CIRCLE ▖eE? LINE E`U|▛▖>=[K] PRINT SCREEN$ EACS STR$ AT .9NOT O INK _Y FORMAT B[G] PLOT   OR B[K] OR [H]POINT  RETURN ZCODE AT ^[U] DATA GB POKE ▟ TO ▛1:Bx RANDOMIZE B& DEF FN BkBIN [F]>=j/qxCOS  PRINT w▚huB&x ERASE BINT Y8<>_ REM g[D] DRAW  CIRCLE  GO TO ^V MOVE V PAUSE  CLEAR  LINE  POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE  THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$  GO SUB  LINE IN VBIN SCREEN$  OR [ OPEN # OPEN #>V COPY  LINE CHR$  THEN mRNDRND, TO  LOAD [COS ;m-+k[R] READ NOT ?W LOAD SCREEN$ x RESTORE 6Qg# MERGE ` DEF FN <d[F]ASN [A]G AND ek BORDER TTAN  AND  TO  LINE  OUT 2 OPEN # RETURN  CIRCLE ABS ACS ] AND ▗SGN -z DEF FN USR "yCOS J:NOT  GO SUB Z BEEP  CIRCLE <"Z]/[J]9J<>RNDNOT PI- AND  LPRINT CHR$ CHR$ AT M[O] DRAW PIw{ THEN  ERASE  INVERSE  STOP v RESTORE Yo COPY VAL$ I OR  STOP [F]+}5 RESTORE  LINE  OUT  BEEP 0oBASN &/oY# BEEP  DRAW SCREEN$ ▜ CAT [K] MOVE o FORMAT [J][E]o OPEN #6 RETURN o%9 NEXT FN  BRIGHT  OVER  PAPER oi DEF FN r{5ACS y[TAB  VERIFY Q/[J]X)[L]WRNDNOT 8 THEN 8 DIM [K]'y BORDER  OR [F]3&CASN [B]TAB ▟ MOVE  OPEN #L BORDER [J] CONTINUE  PAPER  CLOSE #[C][L]9 LOAD Z STEP [R] STEP dSGN 2 MERGE g▚ LIST [D] LET  TO TtDM VERIFY POINT ▝0Sg/`oUPIC<=PIVAL$ ASN (LEN USR eJ DRAW K COPY  OPEN #LEN |! COPY #~ACS ▛[C] RANDOMIZE  LIST L STEP o LET !"W[J]RND*/ LIST IN  RUN SGN  DATA kCOS 0 RETURN  NEXT  THEN  NEXT  STOP PEEK  STEP  NEXT X AND IH NEXT SCREEN$ gABS [S]a[H]b PLOT  oXS SAVE v[K][Q] RETURN  RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR rAT  STOP yd6 LOAD  REM SCREEN$  OR  BEEP  PAPER G AND  FLASH [A] POKE COS  AND  DATA  POKE LN  OUT %w VERIFY I/[N] CONTINUE `G CAT u}IN  AND  THEN [Q][I]INKEY$<= STEP w INK j CLS VAL$ PI TO ▜ RUN  LET [Q]: PAUSE F~* IF [G]INT H&[D] OVER NPOINT  LPRINT Ce PAUSE  STEP  NEXT  RESTORE  PAUSE  LOAD [M] INK ( STOP =[ BORDER EXP 1w ERASE <>POINT y[O]EXP INKEY$[K]_.C OUT CHR$ {[J]^ DATA k COPY p^POINT ht GO TO x▞[D] DEF FN x FLASH IN t> OR E MERGE ProTX/ack? LET  GO TO 3.4compiBIN latng BRIGHT  DIM O>ap[T]8 FOR etw MOVE [N]ma0Od POKE yu"/ LET :ATN [R]5ABS (c)jb[K]e DRAW 0ho'3umf/pastor' fixQL;)TAN  RETURN - RUN  NEXT  GO TO ▘OeK RUN r{RND PAUSE ▝[J]V▜ SAVE [N] TO ▝EXP INKEY$NCOS  PLOT  ACS  CLOSE #COS  OVER  CIRCLE  OVER IN  OUT  LLIST  NEXT }[G] GO TO Y[O]USR Y CAT /!g LOAD  COPY ?y=SQR  MERGE d~ LLIST  GO SUB  INK l[F] LET |!ASN ATN POINT q▝ BRIGHT COS  REM M RESTORE *▜ CAT n:POINT m[J]$7yATTR [Q]gATN  CLS D CONTINUE  INK ▗VAL  GO SUB  PLOT   OUT  LET  >=LEN t<= FORMAT  AND  CAT z OR BIN  STOP FNOT CHR$ STR$ LEN ]g@ TO x VERIFY _ FORMAT  INVERSE 1[O]v)e PRINT B[M] MERGE v▝ TO  CAT ©q PRINT   LINE ))!STR$ INT  LET 0VAL TAB <>-}hy)VAL C BORDER  AND  FOR qBIN - CLEAR  INK /PEEK  RETURN  COPY  FORMAT (VAL  CIRCLE ▖ FORMAT <V CIRCLE L LIST IN  STOP LG DEF FN [A] CAT }RND REM [F]▞/(IN tFN > OR  PAUSE ▘COS  BORDER USR &RND▛ LINE [F]4Oq gINT  LIST mk FLASH FN Yo<> DEF FN b▛k PLOT   CLS mX MOVE  CLS |r+BZ^)h CLS  LPRINT  ERASE  CLS  THEN  IF  CIRCLE  DEF FN o THEN a[M],RND LIST  OPEN #[Q][I]!gATTR  FORMAT  LLIST F FOR S DEF FN  LINE  SAVE 35 LINE  CLOSE # BEEP  POKE Z POKE mu[B]VAL$ R▜ RESTORE X RESTORE  REM 5,V`DTAN [N]PINOT  LOAD [D][B] PLOT  ABS y RESTORE - MERGE [S] POKE  COPY INKEY$[N]V LINE  SAVE LEN  FORMAT }[T] PRINT  IF 1 RESTORE  FLASH  NEXT  NEXT  LINE  THEN NOT ACS _>=l OUT  DATA  THEN  IF 0 DATA STR$ ' BORDER CHR$ INKEY$TAB  DATA  ERASE  CLS  CONTINUE  PRINT PEEK  RETURN  CONTINUE 5.jG PAUSE  COPY  THEN l RETURN Wz48 CLEAR G DIM F4- STEP ASN  IF |[H]x PAUSE  LINE z LOAD y DRAW ` TO [S]x TO  LLIST AT yv LIST COS  GO SUB kVAL$ s▟t[U]' CIRCLE [K] NEXT x PAUSE 1 CLS  FORMAT DCHR$ COS <=▟ RANDOMIZE i PLOT   FORMAT qZ: OR o▟▝q AND 2EBIN  OR CHR$  INK STR$  SAVE <NOT [[H] READ !wNOT PI IF  LPRINT  PAUSE )F OPEN #w© DRAW o[P]`q REM  NEXT ` COPY  AND u OVER >`5▜p*U▙▘Q}▚ RESTORE USR a OPEN #)pSIN &LEN he COPY >h} RANDOMIZE  LPRINT  THEN INT  INVERSE  PAUSE  STEP U CLS SIN  PRINT QVAL BIN  CAT  POKE HSCREEN$ ▛ FORMAT SQR _ BORDER fn CAT BIN [F] DEF FN  FORMAT [I]tATTR  DIM F FLASH C▟ PAUSE [O]_[C]v THEN <>n BEEP  COPY  PAUSE   STEP +PEEK [D]SQR  DIM ▖{[U] MOVE ` THEN jp<>i STEP s NEW y INVERSE x CLS 2v FOR  INVERSE  DIM ^wT STEP 0 STEP #o* DIM +,!W# GO TO  CLEAR ▚?STR$  CIRCLE [H] CAT kE] OUT NOT ▝ PRINT  THEN [S]ONOT PEEK ? MOVE LjP  DRAW  COPY ▝l[N]©{SCREEN$  OVER  POKE ATN  CLEAR  GO SUB [K]LN  REM SQR  OUT [Q]VAL$ NOT [T] IF  REM  RUN  IF  COPY INKEY$ CLEAR V LINE  OUT L IF x{[B] CLEAR  COPY VrV▖[J] DATA fV TO efghijklmnopqrs CIRCLE [T][H] LIST q LIST RND THEN !▝ LOAD ▘oX INPUT =▝'VAL X▙ POKE STR$  LLIST USR  IF STR$  ERASE  BEEP CHR$ ! OR [O]F[S]<= THEN ~39SCREEN$ CODE ATN v"mhINT  COPY HSTR$ LEN %[J]U PAPER [F]?PEEK }JK[F]<>[E]>=F[D] DEF FN }` CLS sIN t TO / COPY  DIM [A] TO X▝h_▙O SAVE  CLEAR { PAUSE  VERIFY SCREEN$ ▞ DRAW  THEN  COPY  SAVE W?"m DIM @r[G]CODE osBmCOS  STEP CHR$  AND [M]{<=z VERIFY >=<> LINE  THEN F CAT  TO  STEP ▜@y CLEAR y CAT ` RANDOMIZE [I] RESTORE /-o▟./ ASN sh?Z AND 5+ CLS ASN S OUT TE NEXT USR  OR mNOT T THEN 6▛ ERASE <=KtTAB  CAT  NEW 5 FOR  RUN NOT [C]" RESTORE ▝s|A COPY IN s IF ▙▙ PRINT  OUT SQR  READ  BEEP  RUN  PRINT  LET  RANDOMIZE 1D LINE D IF  OPEN # READ 76b IF G"VAL V/[P] OUT  RESTORE WnXSCREEN$ ▝y%[A]^▟ POKE SCREEN$ ,[A]0/ PAUSE [A]0 COPY  CAT o`>=s LET I[Q]4INT  DEF FN  LPRINT [C] TO  CLEAR [K][F]7m RANDOMIZE MU~[J] PRINT  MERGE ▟COS x. CLS <= RESTORE  IF ACS IN [S] FORMAT ▜ THEN VAL R TO [L] MOVE  SAVE <= CONTINUE SQR `ATTR 7< COPY  RETURN  CLEAR  DRAW CODE  LLIST  TO -LEN  GO SUB AT [E]J CLS  FORMAT <=▘ OPEN #<= PRINT  OR  MERGE  RESTORE 1 Q LLIST  MOVE STR$  LET  INK E>3 INVERSE  BORDER C RETURN T RESTORE  PRINT ;[R](n RETURN w OVER V GO TO  OVER 4V6 OVER U OVER U▝ OVER TUSR  OVER T` OVER SVAL A OVER S CIRCLE   OVER Rl OVER R, OVER &4 DEF FN © RUN Q OVER  LPRINT N) LET  OVER  ERASE W COPY  LOAD y/6 FLASH PEEK oNOT  DATA  THEN e8AT |{' LOAD WZ FLASH  PLOT   CLOSE #0 PAUSE + ERASE  LOAD  COPY  RESTORE kSCREEN$ j[J]b~ GO SUB [F][S]ATN + PAPER  FOR  LIST aCODE  INPUT PIO ERASE X LINE  MOVE  RETURN  COPY / [Q]VVAL VAL$ _5 THEN _ PLOT  ▘ RESTORE [B]▘ OR  PAPER  DATA p▘ CLEAR  RESTORE sASN [R]}▗ RESTORE  LPRINT 4 CAT  BEEP [H]GP CIRCLE [G][Q]j▚p©PEEK db`DNXPEEK bQ?Y LPRINT !e LIST @`W`j [D] FLASH (~ LIST FN EuCOS }(a OUT a)TAN a1j`ASIN `[I] TO  RETURN 6 LIST ▗*;>©?ASN  DATA * TO /VAL$ [S] OVER TAN ▛jSIN [I] TO  COPY '6[R]B ▜P([P]/g RANDOMIZE <> CAT FN  BRIGHT TAN ]LN [M]LN  LET [B] LLIST SCREEN$ [E]*INKEY$BIN < RETURN : FLASH !RBIN ▞ LINE  DEF FN [Q]▘s▚/IN  LIST [R]BXPI▗T▝H▚▖ FLASH pv@▘[P]<INKEY$tBIN  BEEP FN [R]Pg DRAW [U]TAN  READ  DATA  BORDER ▗@[Q]b NEW  LPRINT  SAVE  PAUSE :VAL$ 5Vh▛uW ▘EQ CLEAR  NEW ` IF VAL  READ  READ /jATTR U[P][P]W PRINT o CLS | READ /p▜`b[T]SQR NCrPI©AT [J]FN 8▖@| FORMAT *q RETURN G* VERIFY v NEXT 1B[K]I" COPY  POKE  SAVE  DIM b[R] LINE B" COPY tp<'rF NEW  THEN 3U©[U]4 OVER @POINT  CLS @[C]< ERASE  SAVE ▝CHR$ L SAVE  LPRINT 8▘9USR }"A= LIST T8[E]. RESTORE ▖BIN S PAPER [S]*h IF ▛[C]LN ▜ DRAW [S]c2U FOR * FOR ▖4USR PEEK ▛[M]>©.ACS  IF [U]F▘VAL PEEK  CONTINUE  DIM  CONTINUE  CONTINUE ;` CONTINUE B CAT [D]▜*[P]])Q THEN  BEEP ASN - " INPUT  PLOT   FOR POINT XCOS ~CODE  INK ED BRIGHT T[F] PRINT  FLASH jABS  NEXT / FOR LEN STR$  OVER Q© STEP SIN [R]p' REM P©nTAB = COPY  PRINT LN 7 CLEAR ©EXP SQR INT ACS w3LEN  PAPER Q7 CLS  OR  BEEP '^ DIM  LET  COPY  CLOSE # BEEP nh IF  BEEP  CLS IN  PLOT  { PAPER  CIRCLE  OVER l? PAPER  MERGE U FORMAT ? THEN >= RANDOMIZE /> LOAD  COPY  REM ©f STEP SCREEN$  NEXT  GO TO ABS  PAPER  PRINT L] FORMAT l6 CLS © LINE vINT  OUT  LET Kg DRAW  OPEN #lj DIM {gUwpPEEK 4IN ~ INPUT  RETURN TAN (Ohd GO SUB INKEY$#@ PRINT  RESTORE PUE LPRINT  CAT  BEEP LEN  INPUT >= POKE /  REM IN  IF B STEP 68_ RETURN INT c. NOT  CLOSE # PAPER ▙x DATA K>:© STEP !© INPUT  LOAD  RETURN  DATA ABS n▝& INVERSE " FLASH ]J CONTINUE W DRAW © COPY Ho6 PAPER IN  RUN  OVER ACS  CLS  LPRINT USR Af"[K]COS *[S][D] LET [R]USR >STR$ RzBsU6> DRAW  CLS [D][H] GO SUB 6uCODE  LPRINT  CAT lTAN U PRINT TpU▝ BRIGHT  LIST  DIM  OUT [F]SCREEN$  GO SUB SIN COS  DRAW  CONTINUE &Y NEXT B PLOT  WUSR }5@ FLASH  POKE  BEEP  GO SUB NOT D THEN  LPRINT # ERASE  PAUSE ▗[C]%SGN  LET  SAVE  POKE @[Q]$ RETURN >POINT P[A]QUSR  IF  REM  DRAW UTc[T] DIM  RUN  CAT ASN  FOR [O] COPY  PAPER [D]Q GO SUB BIN ▝ PAPER [O][B]XTPEEK _EUSR  IF iC[S]TAN Wt POKE VAL  SAVE  RETURN  LET / COPY [I] BRIGHT EXP LEN  PAUSE mETAN  CLS  PAUSE  CLS  CLEAR )RND DATA d COPY ©VAL  GO SUB EXP Z RANDOMIZE D PRINT  TO [I]ASN Eh:▙U?Fo[D] CAT 40AT  STOP [J]rfL FOR &TAN [D]jhCOS VAL$ ▝ LLIST AT LEN  CAT INT @©POINT  THEN LN [P][ OVER [H]JJh#}LACS CODE k_[O]KLN lP@[A] PAPER USR TAN [L][E]kijPC2Ii POKE  CLEAR  VERIFY  INPUT  SAVE [M]#0SCREEN$  CLOSE # POKE ABS sLEN / MERGE  GO TO  IF LLEN USR ^▖)TAN @`CODE [O]VAL ]y OR  PAPER  OUT ©}2f GO SUB P PAPER ASN G PLOT  [S] FORMAT g REM h PRINT FN  DRAW  RUN  CAT  LPRINT  MERGE f[H]PEEK  FLASH = OPEN #[R] PRINT SCREEN$  PRINT  SAVE xRND▝ PAPER UuIN  LPRINT f CLEAR ▘ PRINT L4 PAPER  NEXT }@▗~w CONTINUE  MERGE U STEP [B]ATN 6/)A PAPER  VERIFY  BRIGHT ACS  PAPER ©©Z[N]TAB 1USR  PRINT  RUN COS 9w LINE  RESTORE 0TAN SCREEN$  LPRINT VAL [O] PAPER g_o DIM  OUT  LIST  INVERSE  LPRINT T DATA  OVER  LET  PRINT  SAVE t[L] CAT  PRINT  CIRCLE TAN CODE .AT  NEXT  COPY /TAN g[U]'[L] STEP  PRINT  DRAW [ LOAD  REM  GO TO *SCREEN$ g OUT 0 INPUT SSGN / CLEAR  RETURN  NEXT [gT#IN w COPY *INT  PLOT   STEP & RANDOMIZE  {7}SQR  DEF FN L COPY  RUN  LPRINT woTAN  PAPER  REM  LOAD [O]g PRINT SCREEN$ o!CTAN  COPY f~7 OUT  INVERSE TAN  CAT ABS h OUT  IF h CLS IN  RUN |# PAPER AATTR SGN .▙h RETURN COS ©ud OPEN #6 POKE INKEY$ DIM CODE [P] INVERSE  PAUSE <>FN HB TO  STEP  CLEAR  NEXT  COPY h OPEN #V2 POKE SGN ]  NEW k OVER COS  PAPER @0 LIST  GO SUB t9 NEXT  CLS  LPRINT  PRINT q INPUT hDWp<=uINT ▛ LOAD  REM  CAT  ERASE NOT q LOAD  CLS ABS h7 FORMAT ▗ OUT ▜6<=[L] FLASH  PAPER N CAT  LPRINT / RANDOMIZE "c LPRINT  RUN TAN ▗Q CLS  LIST J CLEAR  COPY FN z LOAD  LLIST 7B OVER o~PEEK  SAVE y FOR ;STR$ [F]▚ CAT p PAUSE [J] PRINT IN  RANDOMIZE ▙TAN  COPY  PAUSE  BORDER  RUN  CLOSE #[K]SQR uASN PTAN & COPY  CLS x CLEAR  OPEN # SAVE [F] CLS ,?[H]sNOT  ERASE IN < FLASH  COPY  LOAD  SAVE ' REM ABS IN  TO  IF [Q]B OR [J]M7 CLEAR  PAUSE  CLS USR  AND  PAUSE } PAUSE % PRINT ASN COS IN  FOR [I]r PLOT   ERASE INT  PLOT   FLASH |ABS  IF SGN INT { CAT  PAPER  THEN [H]pASN  CLS  IF ABS r CAT  RANDOMIZE PEEK !VAL ASN  LIST  RETURN  LET ATN 4>= DRAW  FLASH ▞ PRINT  PLOT   PAPER w©h PLOT  2 PAPER E▗© COPY  PAPER FN  CIRCLE [T]7 PAUSE  BORDER VAL © INK q>=^▜IN  IF  FOR ACS ▛ CLS  DIM R POKE MsPOINT INT  RANDOMIZE ACS z DEF FN  BORDER ATTR POINT  OPEN #{6(FN o[S]ABS  STEP STR$ INT  PLOT  v; POKE  STEP 3[D][U] FORMAT  RETURN  GO TO  GO TO  STOP  CONTINUE 0fnRND4 DIM 0 RETURN [B]}P▘▟f RESTORE >=!a` LOAD hx[J]/CODE  RETURN  MOVE  LINE  CLEAR  CLEAR  STOP  CIRCLE  DRAW >= SAVE {^>=[I]>AT I LIST  AND ©[S]PEEK ▜ RETURN ACS PEEK [G][ POKE  BORDER  LOAD  OVER  GO TO [ INK >=R▝xoy[R]LEN 5 AND  LOAD x SAVE TAB ▖n PRINT  CIRCLE  LOAD 'g&VAL  RETURN  GO SUB  CLEAR _`P LINE  RESTORE [I]©|ATTR  FORMAT  SAVE  LIST sxUSR BANK4   CUSR @@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm@USR  READ ! DEF FN 'NOT XSGN 3@ PT RUN Y3| LIST layerv1.0_<byNickofG GO TO ▞DC NEXT "HUSR : FOR _l COPY /ATTR <=d~2[E] TO 7#^P RESTORE  OPEN #!3g[G] LLIST NI} DRAW F GO SUB syUSR  RANDOMIZE  COPY :RND<=[Q]USR O FLASH >0STR$  FOR ~Hs CLS r=  PAUSE 1 DRAW y> LIST 2TAN NOT _/ FORMAT BIN  LOAD  OR *.6 LPRINT TAB C AND BIN  POKE ,%[0 OPEN #@ THEN  READ ; MOVE >NOT k OUT ATN TAB  CLOSE # IF PEEK j[D] RUN UTAN [P]RFN  LOAD RNDSGN  CLOSE # MOVE [T]<[S]PEEK [E] PAUSE  RESTORE w[E][Q]n▟ IF <[B][T]SGN  ERASE mmSTR$  READ utSTR$ E& CLOSE #IN Q<(©[T]q LPRINT s CAT 3 BRIGHT LN [R][E]7n[U]7 CAT SQR gmINT g INK = FORMAT ▛ INVERSE  CONTINUE J ERASE [L]COS [O]g7[O] INVERSE  INVERSE TAN  VERIFY COS ▟hF%COS { DIM  DEF FN z VERIFY TAN [L]▗nY CAT ZF= FOR 4#COS  PRINT  BORDER z VERIFY  PAPER  DEF FN CHR$ ATN Y CAT TAB [T]= FOR [K][B]▞AT g▘zs[O] PRINT mg VERIFY COS a/VR CAT zMI FOR YEA=:=63z[G] CONTINUE .+)Y CAT '$= FOR " AT g[O] PRINT  VERIFY COS  CAT z AND 5# PRINT  GO TO >=,U`1[O]kTAN f CLEAR { INVERSE 8 ERASE <> REM  LINE }[O])▟; OUT  TO  CLS  BORDER  INK ) STEP /5SGN  OPEN #-VORIN oNEZH- CLEAR  READ "INKEY$ OR 2U<=>>[L]d GO TO "<> COPY  LINE +ATTR  COPY NOT IN :[P]BIN og"SIN [O] TO USR LCHR$  BRIGHT L CLS  OR d[P]1STR$ "▗<=CODE  VERIFY ?u CLS <>Q<= STEP  LLIST f AND  CLEAR f▖<> BORDER TAB 9 INVERSE  GO SUB s OUT  FOR © COPY g< LINE _BIN ©qINT  8N{ LET o}▜©9 RANDOMIZE  MOVE z NEW 8 LIST {PI PAUSE [T]NOT @:[U]IN xCHR$ [K]= RETURN  LIST  <[Q]/FY<= NEXT =COS INKEY$ THEN  PLOT  TAB CODE v<=COS 8 NEXT o~ AND &STR$ o~ THEN ;7 OPEN # PLOT  CHR$ z} NEXT o8g FLASH  THEN m(!= LET <> INVERSE g| NEXT  LIST EXP  PLOT  { NEW  MOVE  PLOT   LIST [N] MOVE  READ >= AND NOT  CLEAR o| CONTINUE ? NEW  INVERSE STR$ n}r POKE  BORDER " IF NOT  FOR  STEP  PAPER eSTR$ eLN BIN 7y6BIN &9n BRIGHT [U]CHR$ ▞^ RANDOMIZE  LLIST ▖[T][C] RETURN Tvz= IF ^BIN  *<=[D]>=#? TO BIN  GO SUB !08 COPY NOT FBIN  GO SUB R$ Y FOR  PAUSE *$T CIRCLE SCREEN$  DRAW ^RND STOP  THEN f<=©<=:ATN FN i INPUT SIN  LINE zL▞ PLOT  | OUT ci CLS  DATA  OPEN #IN ~ OR  DATA ▛ AND ©BIN  DATA IN BIN x▖ DATA USR CHR$ ACS KCODE  DATA SGN  LPRINT .< DATA i FOR  DATA X2<>▞ COPY  CAT 6# DATA  RESTORE BIN [L] DATA  OR  SAVE & DATA  COPY BIN ©/ DATA  READ  INVERSE ASN  COPY INKEY$ LLIST  OR ▝▟ LLIST ) OR  BORDER 2 LLIST }oz OR  LLIST B OR | OPEN # LLIST e OR ▖e LLIST : OR  LLIST I▖S LLIST SCREEN$ [S][R] VERIFY H LLIST  AND <=[O][B]b<= LLIST [O] OVER  LLIST  LINE [J]%[S] PLOT  [L] GO SUB 3 OUT ▘ COPY INKEY$ LLIST [M] AND  COPY M LLIST SCREEN$  OR ! LLIST  OVER  OR  LLIST  OUT ABS  STOP CHR$  MERGE SQR , LLIST  FLASH <TAB  LLIST  OR [U] LLIST  CONTINUE ▞▘▜i3 LLIST  AND  LLIST ▝+ LLIST  COPY ▞ LLIST  NEXT IN  NEW $ STOP 7 AND © AND  STOP G AND [J]USR  STOP ABS s[L] AND ▚7 STOP ` AND  STOP 8x_ NEW NOT  AND ▖e STOP X AND  STOP g▖S STOP SCREEN$ CHR$ [R]&V STOP ATTR <=SGN  CONTINUE b<= STOP [P] OR  PRINT > STOP  LINE ATN ) PLOT  EXP [E]▚ OUT [Q][T]VAL$  RANDOMIZE EXP  CLEAR }oATTR EXP f MERGE  OVER  MERGE TAN ASN [M]ABS  OVER  THEN PI SAVE <=IN  COPY  CLEAR ▛_NOT  GO SUB iCAVAL [T]B ERASE k INVERSE |2^ READ  AND  GO SUB yy,{RND}▝] INVERSE TAN  THEN [H]ATN (f MERGE y PAUSE ><= CLEAR .:>USR  SAVE ▗U<= LINE  RETURN ▞▟T<>LdUSR  RETURN  RANDOMIZE ATN VAL !-"G8SQR [S] THEN }F[L]X9f> OPEN #7MUSR  INK 9<= DRAW PI 2 GO SUB sINT  FLASH INT CODE ~▜0b STEP #SIN _ CLOSE #nVAL$ [J] TO W.8ATTR TAN u FOR  PRINT B"u<>Oo THEN % STEP  PAPER $ STOP <= GO SUB S▗<> BEEP [R] INK INKEY$ BEEP L LINE ATTR [S]<> CLEAR  THEN &USR PI PAPER [F]>=▝>[M]ACS  DATA * LLIST  LIST <L AND `<>▖ RUN  CAT  THEN 0/9x▜PEEK o_xQ~,f RESTORE :BIN  NEXT ▟ INK ONOT  OUT <= FOR ~F, NEW m)V VERIFY 4[R]{YkJ▝ FOR  CLS X<>[B] DRAW PEEK u THEN ▜c]:[K]; TO h INK y FLASH [I] GO SUB  FOR <> FORMAT Q TO  REM PNV FLASH ^ INK z] CLOSE #COS [B MERGE  SAVE [T][L]6kTAB z BEEP LEN A TO  BEEP [I]LEN  GO SUB  TO LN 9 CONTINUE 3 MOVE [E] NEXT  OUT k LPRINT oN,F GO SUB C[ THEN [E]ABS Iu[Q]@PATTR [G]▝ag~NOT  BRIGHT <=(B<> IF /6zINKEY$`/0[J] INVERSE ;ACS BIN ▗ MERGE  NEW ATTR  NEXT  DATA h3 DRAW H RANDOMIZE hw BORDER  OVER =2▘mP TO ▛1ATN ce  CAT RND&DIN x{EXP [F]~ CAT [P]SCREEN$ C<> TO  CONTINUE  PLOT   LET CODE BIN ▟j[ OPEN #U<>E LET FN i BEEP [H]m RUN  OVER API STEP [F]<>SGN dIE BEEP J<E BRIGHT EASN p[J]~ CIRCLE E? LINE bE`r▛[K]*"EACS KABS STR$ ATTR 9 INK  BEEP  LIST Y FORMAT = LPRINT B OR RNDRNDB[K]POINT  RETURN k LET Z^ MOVE +[U]B# RANDOMIZE } TO <=: OVER bB RANDOMIZE COS BRND▞Bk>=j=q/qx PAPER lwuTAN !B&[O]B8INT n<>g LLIST [H][D] CIRCLE © GO TO V MOVE SIN ▗V PAUSE  POKE [H]CIN  CAT VPRND~iV<=2V INVERSE SGN ATTR aATTR ©CVQ! SAVE  THEN VP`[J]DXG RETURN  STOP EXP ST~v<[P]SCREEN$  GO SUB  LINE ▚V LET CODE BIN j[ OPEN #V COPY  LINE CHR$  THEN TAN  THEN mRND TO  LOAD N)[m PAPER  GO TO -[R] READ NOT CHR$  LINE ?WCHR$ CHR$  LOAD SCREEN$  STEP CHR$ xQgXEXP #m5 DEF FN <d[A]qee MERGE [B]k NEXT 9TAN 1 LINE  OPEN # RETURN  BEEP ATN  CIRCLE ABS  AND ▛m▗3oUSR AT [O]"p OVER J GO SUB ACS  DEF FN Z VERIFY 5<INKEY$▖]W9<>LN  ERASE RNDNOT PI-[D]1CHR$ CHR$ [O] DRAW PI2kw{ ERASE  SAVE  LPRINT  INVERSE  VERIFY ▚vo COPY kyI OR  LINE  STOP }r RESTORE 5LEXP  OUT oB<>5/HTAB o BEEP  DRAW f VERIFY SCREEN$ ▜ MOVE  RESTORE COS o FORMAT ©&o OPEN #SGN ▟o%v DEF FN FN  BRIGHT [M]ATN oiTAB COS {yu▟[fATTR Q&WXWz LINE RNDNOT 8 THEN N[K] LET <>y<>y[F]C READ ASN [B]yk MOVE  OPEN #: OPEN #[J] PAPER d[L]9(ASN  LOAD Z STEP  STEP /`5g[R]L LIST SGN  MERGE dt3D PRINT POINT T[D]▝ TO g MERGE PI GO SUB [C<=PI([C]kLEN USR  DRAW l[J]K COPY |NOT tTAB <=! COPY #PEEK [P]▛▖d LIST L STEP oU|[J]▛>=RNDCODE  LINE  LIST IN  GO TO = DATA 0 PAUSE  PAPER  RETURN  NEXT  STOP  NEXT  DRAW  NEXT X[C]o AND  NEXT SCREEN$ hga[H]}CODE [E][I]oX SAVE v#BIN [K][Q]▞ COPY [PEEK y AND  BRIGHT ) PAPER  AND SQR AT SQR / STOP ydACS  STEP  REM SCREEN$  OR  DATA ASN G AND  POKE COS  RANDOMIZE 6 POKE [N]1LN  OUT  VERIFY g<>I CONTINUE ` NEXT K LOAD  MOVE u AND h OUT [I]INKEY$ PLOT  2<= STEP j CLS  CLEAR ]VAL$ PI TO  DEF FN  LLIST  LET FN ~RNDSGN *INT [U]PEEK H OVER [A]<>NPOINT e3 SAVE  NEXT  RESTORE ACS | PAUSE  LOAD g( STOP = BORDER ▜USR ]VAL$ 1 ERASE  AND BIN <>yfj[O]EXP _[O]POINT .C OUT [H] LIST /INKEY$ DATA k OR ?^h^SCREEN$ t▞;[D] DEF FN ^ FLASH  LET /▛OE MERGE ProT< VERIFY ack GO TO 3.4 LET OcompilatATN n LPRINT  DIM /ATTR  NEXT umba NEW  STEP rz/ SAVE sundt OVER  BORDER  OPEN #x:czy GO SUB `<=d~BIN ABS (c)'n OVER j.ehoY SAVE ^3uMpHzoqPEEK  CONTINUE i2fans COPY }Z OVER ▘TAN ACS  CIRCLE  OVER [O] PRINT  GO TO  PAUSE  PRINT  GO TO  SAVE .4:DCOS [O]JPz VERIFY V|▘▖F CAT ▙[E]C`AT )R[K] DRAW FN VAL$ [O] PRINT LEN  AND  VERIFY COS  MOVE  VERIFY  OVER  DATA  CAT z BORDER  REM  FOR Y GO SUB  LIST  NEXT  PLOT  = RANDOMIZE  DRAW  COPY ? 0!$ CAT  IF '*-3 COPY JC9 INVERSE COS T|^▟[O]▚ CAT  CONTINUE  INK D[A] MOVE  MOVE  INK 9?ABS  STOP  GO TO  RETURN g▞T[I]>=[M] BRIGHT v<= FORMAT  INK OR[L] CLOSE #zYmD[D]YH PLOT  b DIM PEEK "=v TO F FORMAT *[S]/hLN  LOAD t[F]▚`IN = LIST  CAT LEN  CLS  SAVE CODE 3©LEN ©9USR X[G]VAL$  STEP  PLOT  ▛W> RUN XVCODE [H]`D<>J NEXT  CLEAR  LIST  CAT  [O] LINE j[F][ABS NOT <▝LEN  FORMAT  LPRINT 8Nt{ PLOT  s BORDER ~}[F] RANDOMIZE ` DEF FN LEN [J]_ FORMAT  LIST ABS  PAPER  RETURN  SAVE  REM  OUT !/{VAL 8▝ LET TAN 9JCODE TAB SCREEN$  LPRINT j STEP pASN  LINE EXP Z<> STOP [T]>=[R][O]W<=[O]ATTR  AND [H] OR [F][C]COS  BIN X LET  COPY [O] AND <=▛▞>=▚<> OVER [D] LINE  THEN  CAT { TO  INPUT y STEP  LOAD  GO SUB = LINE <>▛ AND  LPRINT [S] CAT ▜▗ PLOT  USR 1STR$  PLOT  s1<zTAN  MOVE CHR$ ;FN o RUN  THEN NOT ACS ATN  BORDER BIN ATTR  LOAD  OR W OUT  AND CODE PEEK <=]}>=<=> CAT gRNDCHR$ ATN [T]Y[9> VERIFY qh INPUT ?DQc CAT  SAVE  POKE 9INT  LOAD  BORDER USR  OVER [N: VERIFY d;6▗ NEW N@(M[O] RUN {USR SIN ▛N RETURN EXP USR  CAT jATTR v[S]c8<>>{ATTR o} LINE W OUT  THEN CODE PEEK  TO ^} STEP  DEF FN ABS  IF  CAT w PRINT <= RETURN ?cPOINT 0CODE lV[E]WVAL$ ? NEW  OVER WUSR ?_ LOAD  IF  REM ? THEN  OVER USCREEN$  INK ▜ STOP  THEN  BORDER >= REM [D]?Y[O][P]z RUN C@WCOS [N]NOT ▚WS PLOT   CLOSE #=▚pS` RANDOMIZE ]GhD^[C] IF  VERIFY IN  ▜USR z[G]9 DEF FN  STEP  TO BIN 3 CLS  CAT  PAUSE ACS ,} LIST R ERASE  PRINT  TO POINT PI[H]&- LET  LINE ©W STEP vz©LEN ▝/ PLOT  ▘BIN  PAUSE ©[K] INK f@ FORMAT LN q LET Ht PAUSE  NEXT  OR f POKE / PRINT  OR  OR  PLOT   RUN  RANDOMIZE  OR  OR  IF  CLS  OR  OR  DRAW  CLEAR  OR  OR  RETURN  COPY ACS 05 LLIST  CAT z STOP  READ 3S DATA  RESTORE  REM ,kSTR$ [ LINE  BRIGHT  PAPER { MERGE 4I{▝w AND , CONTINUE X COPY  THEN IN ~%{SGN ▚ SAVE  OUT <>s LINE z>=^` RETURN  OR ▘IN  CIRCLE q IF X OR ▜7VAL ▝AT b▚ GO SUB  LPRINT >=IN ▘▙ PAPER  AND  READ {{ CLOSE #<>ov6LAT m? PLOT   VERIFY STR$ ,pf LIST  LIST >= GO TO  CAT USR S?(Ulp<>=wLEN m OUT ~- STEP  FORMAT AT WNOT  PAUSE  IF STR$ [C] INPUT  DEF FN NOT Y CIRCLE ▟1 LET ▙ PAUSE = GO SUB [A]SQR  GO TO [B][C]ATTR SGN ©[E]x;[F][G] INK SCREEN$  PAUSE [I][J][K]e GO SUB [L]i[M][N]V LOAD [O] STEP g[P][Q][P]Y[R][O]4[S] CLEAR [T] GO SUB  RANDOMIZE [U]RND3VINKEY$PIFN AT  STOP POINT  ERASE /SCREEN$ [N]@[N][ PAPER FN PIZaRND GO SUB [O] CIRCLE  STEP g MOVE [S][R][P]Y[Q]f5[P][O] MERGE |[N]S[L][M][M]5 RESTORE [F][J] VERIFY f[I]▗[G] READ  MERGE zsrASN [D][C]b[ZcTP▟lSGN F? PAUSE ([O]S INK >={ DEF FN <=SGN ▖ CLEAR  POKE @USR  LET  LINE [R] THEN TAB  TO SCREEN$  STEP ATTR [L]<=+[P]HATTR W▛POINT INKEY$ STEP ATTR  LINE  MERGE ▘<> CAT [P]>=[N][K]LN Z<=/- AND  LET [D] OR [B]▙[P]BIN  RUN BIN  AND  RANDOMIZE <=▜>=▘X{ LINE y CAT  THEN  TO = LOAD  STEP =CHR$ SQR  BORDER  LINE Oe>= INPUT 9<= OR #HE[R]Z IF [C] DEF FN ZZ NEXT  STEP  NEXT  TO ZZ NEXT  THEN  NEXT  LINE <>O NEXT <>>=J PAUSE  CLS ,LN  LINE [P] DRAW  THEN  TO  STEP VAL$ /? DEF FN  CAT *lBp DATA *ATN  COPY mVAL$ R/ v PLOT  $ATN ?<>~ATTR <STR$ [/ FLASH _0Z▚uIN  CAT  RUN a OR [G]I BEEP  PRINT  OR  LET x RETURN z STEP  DEF FN © CAT ▘ PLOT   CLEAR  DEF FN m OUT  DATA  STEP  OUT  PLOT   DATA  TO  PLOT  m DATA  THEN  DATA  LINE g OUT  DATA <>▗ DATA >= READ / GO TO ~ LINE O THEN  TO Z POKE  BEEP  STEP Y POKE  RUN  DEF FN { RANDOMIZE  CAT Pa MERGE SQR  TO  MERGE z GO SUB  OVER <>▜x COPY |J RESTORE cg~ RANDOMIZE ZIN <>WF[N][Q]▛ CAT ?g▛ INK ▗ LET 1ATTR ▙▟? STOP  READ O DEF FN EXP  LINE  CLEAR EXP SGN ©8▝INKEY$g▛c IF  CIRCLE < READ |▖[E] TO  SAVE C%>=`SIN [K] READ [S]▗ GO TO  TO  RETURN ,[D]G4)▛ OUT USR a[L]i/mT, POKE  OVER *▛ MERGE FN  AND U FLASH [ DATA 9X CLEAR TPEEK  GO SUB  OVER  MERGE `T MOVE [F7 NEW <>Z FORMAT  RESTORE  COPY  FLASH  THEN  RETURN POINT ▟ry CLEAR FN LN  GO SUB  PRINT !VAL$ PEEK ▝c BRIGHT ▜L+ CLEAR COS Z^FN Q SAVE  LPRINT 30@[Q][O]3 INK  LPRINT  9` NEW BIN USR  LPRINT  FOR ©BIN pv*[O]D/ RESTORE ▝[O]X>=":[G]& POKE  CAT + OPEN # DATA [A]IN 0$2KHU NEW  DRAW I IF  MOVE D ERASE +VAL VAL ▖u IF RND CONTINUE  REM  GO TO  INPUT  LIST  PAUSE  POKE  PLOT   SAVE  IF  CLS  DRAW  CLEAR >=:OCHR$ [S]g OUT <>Xv[T]8 SAVE  OUT  CAT zCHR$ AT  FOR Y[A]{eQg=>,COS INKEY$ BORDER  DRAW  LOAD z VERIFY  LLIST  VERIFY >=ABS Y CAT SIN FN  RANDOMIZE  REM [P][G]nAT g~w[O] PRINT pk VERIFY COS d^YT CAT zOK CAT HGBi FOR Y;852g=/, PRINT AT *'%#ng CLS * IF R+v IF  CLS  IF  CAT  NEW @ASN  VERIFY  TO PmCHR$ &r[A]▛[D] U DEF FN T LPRINT COS <>[Q] IF T FOR K[A] LET nK BRIGHT 6 PLOT   CLOSE #5[S] FORMAT &?>=+` PLOT  @PEEK 1 LET USR >= FORMAT 9;~Cg MOVE <>8 THEN *▗! IF  AND  CAT  ERASE  BEEP  DRAW `n3 BRIGHT  TO  PLOT   FORMAT  CLOSE # SAVE  LLIST 5| TO >= PLOT   CLOSE #8IN USR U8;/ ~[F]ATTR ? DEF FN B*@b READ %▟|[I]▚T/Q▜H FORMAT [A]RND:▝/USR  FORMAT ! RESTORE  VERIFY  FORMAT ASGN  ERASE  SAVE FN IN  BRIGHT l~Wl READ LN B^pE LET CODE [U]~j[A]>=A]ASN D.▗LN K``ATTR  FORMAT VAL <C PAUSE ▝ RESTORE h LET USR [F][S]j8p15@[I] MERGE  LIST BIN EXP  SAVE VAL  3TXIN >AT  STOP _[L]k$FN I_ COPY [Q] NEW  LIST `CODE Q[L]>=?LN -^gFN  DRAW  DRAW  THEN  BRIGHT X[U]PEEK >z$@ CAT OUSR @▖F]▗ VERIFY [O][C] RUN ,mHIN ▟E▖ CIRCLE j[A] CIRCLE  RANDOMIZE *USR EXP POINT CHR$  CAT  STEP  CIRCLE ACS  OPEN #▗FN @[B]Q PLOT   PLOT   PLOT   GO TO APOINT USR [N] IF @[C]<>USR  GO TO H[Q][G] COPY USR [D]ATTR q CIRCLE @^ VERIFY IN DN DRAW [Q]?HINKEY$[G]@[Q] OUT ?@ PRINT  THEN @ur[Q]USR [G]?  INK ▖▟[O] READ  LPRINT ▚R@ LPRINT /TAB @[Q][L]ATN EXP K[Q]@ OR `FN [Q]f BEEP EF8L LET SQR QEH CLEAR USR [H] RETURN UT CIRCLE 2 CLEAR *▛USR  PAPER CODE Uw@VAL  DIM  BORDER  PAPER  FORMAT  READ [P] PAPER ▟ CAT  DRAW pCODE  IF [S]SCREEN$ ,f PAUSE _ COPY CODE 9 PAPER `v PAUSE $SCREEN$  TO ©FN  PRINT VAL IN  RETURN ©PI[A]U POKE  INVERSE ] LIST j PAPER %SQR  CIRCLE T COPY  PAPER IN ▟ LPRINT U_ SAVE SPIi©AT  PAPER M@ DRAW [J]C LPRINT  DRAW  NEW  READ  PAPER $" [Q]6© LPRINT PEEK  PAPER B IF SQR  PAPER W RETURN RNDlT CAT e LPRINT CODE  RUN  FOR  SAVE 7TAN  OUT  BRIGHT  CAT  PAPER B"* CLS {ATTR  LET v[R]M©TAN s* VERIFY ▖SCREEN$ /? PRINT @G GO SUB T PAPER  PAUSE 3 LPRINT USR ` CLEAR ) CLEAR 3▟ASN {n PAPER  FLASH W© LPRINT m PLOT   h}ATTR ©[L] RETURN *▟P] FORMAT  READ _ READ  RUN @" MOVE INT [J] PAUSE  PAPER ATN © BEEP O FORMAT  SAVE POINT ( CONTINUE  RUN % LINE  LOAD  GO TO [I]W[O] PAPER G RETURN eZC CONTINUE  PRINT Dqj? COPY INT  COPY IN  COPY  PAPER  DRAW PATN  BEEP 4 RETURN q▖zVAL$  COPY CODE ^2 LPRINT USR [L] OUT  FLASH R[P]1 CLEAR  PRINT  CLEAR  PAPER IN zn CLOSE #+ IF IN  RETURN _;ATTR [R]▟z~ IF  DRAW [C][B] PAPER  NEW 16 RETURN FN CODE COS D COPY  LOAD LN ▞IG MERGE W] LLIST  BEEP  LET  SAVE g CLS [S]RND NEW [T] PAPER  CLEAR TAN u<=<[g[K] IF  LET  PRINT gSCREEN$  REM  THEN ▚IN Z CAT  LLIST  INPUT g2 CLS ~]▙_ BRIGHT gSQR MI[T]* CAT D&~mgP_TAN g[M]DuCODE INKEY$ REM  REM  INPUT  PRINT s▟ FOR C OUT  CLEAR  BRIGHT [ PLOT  [L]SGN COS ~K FLASH  PAPER  DEF FN  SAVE  FOR IN  CLS SQR izSCREEN$  BRIGHT SQR TAN EXP  PAPER zkc PAPER jVAL$  NEW SQR  INPUT  GO SUB  OVER  INVERSE j< MERGE PSGN Z ERASE ▙[I]oz PAPER k;SSQR >▟ LOAD © RUN w BRIGHT Up!LN  PAPER  LLIST  DEF FN k COPY  PAPER  LET 0 IF CODE  MERGE  OR TACS EXP D PAPER  CLEAR VkASN VAL EXP TAN HINT  CLS CODE  NEXT  PAPER gwWu RUN U RESTORE  STOP TAN g FOR 'ACS bASN  ERASE [S] FORMAT  IF  FORMAT  COPY  FORMAT 1TAN `▘ PRINT  FLASH  FORMAT <>LN ! INVERSE Cj▙[Q]%ii CLS jguSIN ^QZ INPUT  FLASH y[A]g BORDER  IF CODE 7- INPUT J LOAD  LPRINT ▞TAN CODE [D] NEW  PAPER [N]C| CLEAR F+STR$ ATTR  INPUT [I] STEP  REM IN  DEF FN LN n?wg PAPER  RUN FN 9z BEEP  AND  BEEP o LOAD [U][L] LOAD FN /iTAN _▗q IF G REM  PRINT USR [S]" LET  SAVE ( THEN ?ASN [O]INT [S]TAB Y PAPER QASN }~fASN  PLOT   PRINT [Q]^} CIRCLE ATTR [L]VAL$ [P]PEDTINT zU FOR  FOR  CLS  GO SUB  DATA ( INK  GO TO b [S]w▞ PAPER [F]} OR *# READ ;W DATA ~ RANDOMIZE  PAPER ,| VERIFY  RUN DPIp@ COPY  LLIST ACS mT COPY RUATTR }M LINE  POKE " PAPER ▛[P] DEF FN QOMACS ibP GO SUB y INK  MERGE  BORDER $ INPUT  GO TO  CLEAR  OUT IN F@POINT PW COPY ▙3l[E] PRINT  DRAW A IF :$] NEW  CLEAR MPOINT  LIST x-y NEXT 5[N]ACOS [H]?U<=[D]+8SCREEN$ t[U][E] CLS DSCREEN$ BPEEK  BRIGHT  COPY 0H CLS  CIRCLE  FOR U{ CLOSE #<= FORMAT + PRINT u OUT E▘ IF naPI CLS Cn CAT 0L} OUT [E] PRINT M LOAD }[P]SCREEN$ "[S][D] VERIFY RuP PRINT USR &9 PAPER  RUN ▜[P] RANDOMIZE ~ IF cn. PAUSE pEXP  OUT  LLIST  COPY PEEK PEEK }c PAPER U MERGE @ATTR ! RANDOMIZE  IF  PAPER  STOP [S]<COS  PLOT  [Q]©CHR$  PRINT pTPEEK ' LIST  IF  PAPER %p▙ STEP  LET  INVERSE © CLOSE #EXP  RESTORE ATTR USR VAL COS iMC CLS v CAT W INVERSE  LIST  INPUT [Q] OUT [I]xPEEK # LPRINT Jk9q PRINT ^ST9 BEEP zCHR$  CIRCLE  OUT ACS  PLOT   BRIGHT  INPUT  CLEAR <▖SCREEN$ Z RUN  LET g CLS  CLEAR Q[ CONTINUE 7 FOR  CLEAR  CLS P OUT  POKE [R]POINT U[Q][Q]EXP CODE [T]W FOR TAN 3Ww@ PLOT   STOP L[A]TAB  OUT  IF [U]z{ CLS  AND  MERGE { POKE BIN  INVERSE mkER! RANDOMIZE &*POINT  OUT _EXP [K]▝jZ) LET n CIRCLE wuW LOAD  FLASH  COPY  LLIST ▛ CLEAR [E] COPY ▘ REM >=SQR  COPY IN [O] LLIST TAN  CONTINUE  DIM m"TAN  GO TO  THEN [B] LINE [Q] FLASH ?gVAL | LPRINT  STOP #fIN  LET  FLASH %/ CAT %[J]SGN zACS V PRINT } POKE  THEN ▝ RESTORE  VERIFY AT L_ RETURN  BEEP a[F]LN  LOAD [K]}'TAB  GO SUB SIN / POKE  FOR  COPY m PAUSE M MERGE  DEF FN ATN }w[P]>N[P]7 STEP TAB [E]_= MOVE  NEW ` OVER ▝d[U]W COPY  GO TO  COPY [N](AT  FORMAT TAB * CLOSE #.[P][A]_T=aTAN ©[A] DIM _▙FN  PAUSE ?Z> PRINT USR G?`p`Sa LIST `]([S]AT  CAT [S]/9▖hFN  CLS  BEEP w[J] RETURN f[E] CLEAR  OR CN▖ CIRCLE IN  SAVE _`xABS  REM  DIM ;q REM  SAVE  IF m INPUT NOT  LIST Wd[L] RETURN  OVER  VERIFY [G]{▛ BORDER  REM  LET  INK IN sCHR$  PLOT  >=RUSR ▘xATN PI AND  BORDER p CLEAR {TAN IN  GO SUB y;u▛~ READ FN <FN l RANDOMIZE >= RUN  BORDER ACS I0 OPEN #FN  OVER  PRINT g OUT ▜o[S] GO SUB  RANDOMIZE VAL E▘USR %[I]o[B] LPRINT  BEEP ATTR SIN [H]NOT  AND =| LOAD  LIST  LOAD CODE ~ CAT 6[A]TAB |© COPY r SAVE STR$ RND|` ERASE `_jAT USR ▗PEEK ▜ DRAW  OVER ©kZSTR$  IF  LIST ▚7>▜0 LLIST  LIST BANK6   CUSR @@hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm-7 RETURN ~ COPY )VAL VAL$ r* CIRCLE ^E[F]ATTR ]VAL$ r TO ^I.VAL U AND IN >=BIN . VERIFY  COPY BIN | CIRCLE CACS USR BIN  SAVE W[M] RESTORE ACS BIN ASN ▝USR ▘BIN VAL XUSR _ BIN `/|a@ CIRCLE USR  WoUSR A BRIGHT  VERIFY  RETURN o-USR >=5j▜m BRIGHT  CLOSE #jLLN ▘USR  CLOSE #CHR$  AND  VERIFY CODE  RETURN  READ  GO SUB L DRAW  RETURN  BEEP  DATA ©,EXP  LINE c/WAhNOT  PLOT  6f REM #k GO TO ©BIN 3W LET USR [P] OPEN #?[B].g1EXP  LINE  @{LEN 1PZ3 GO TO ?BIN  SAVE [O]EXP  LPRINT  DEF FN [O]USR STR$ Y@NOT Y! STOP  PAPER  CIRCLE SCREEN$ VAL ▟ INK  IF ▖[K]▝ GO TO 6 TO BIN  DRAW o LIST {z LPRINT @g9[Q] RESTORE ,` INT [M][T] FOR [I] CIRCLE FN  GO TO cAT BIN  RETURN  OVER ▗LN  CLOSE # LIST [Q]Y DEF FN  FORMAT 9 THEN 083AT USR  PAPER +▙6AT bc[Q]>INKEY$f GO TO BIN IN 1~▗LN @ SAVE "gP CONTINUE  DEF FN 3AT  LPRINT ( FOR  CIRCLE [I]FN @ RESTORE PIBIN LEN 9| SGN FN g LINE tTEXP h/p PLOT   CIRCLE STR$ # PAUSE  LINE  MOVE  IF  LINE BIN <=[I]EXP SGN EXP zT*WINT  AND / RESTORE ▘[Q]ABS 8 FLASH +[I] CIRCLE FN  GO TO  COPY  REM  VERIFY BIN  DRAW > COPY ▛0k1TAN VAL$ v DRAW UTAB 7 BRIGHT  CLS VAL ATTR FN  DRAW USR USR /[K]5NOT G(6f INPUT  AND  MERGE  DRAW *ACS  PRINT  BRIGHT u DRAW sUSR  LPRINT USR  CONTINUE E(l SAVE  FORMAT  AND  PAPER } DRAW  OVER VAL NOT ACS  BRIGHT [Q] INPUT  DRAW USR  GO TO FN xUSR _ LLIST $ INK  LPRINT [Q]▟ASN  CLS  DRAW ABS a▜m BRIGHT + INVERSE  DRAW tCSGN  LPRINT  CONTINUE _$VAL ▟ INK  CLEAR [Q] LOAD  GO SUB  DRAW P▜O BRIGHT Z LOAD  DRAW TAN SGN  LIST  CONTINUE _(X INK  INVERSE  DIM ABS  DRAW FN  BRIGHT  CLEAR  LIST D FOR  DRAW IN  CONTINUE SGN  SAVE ,AT COS  LET Ao RUN  DRAW T|z BRIGHT z? DRAW # MOVE SGN  THEN  MERGE | VERIFY  COPY TAN 1v DRAW SCREEN$ TAB  RUN  BRIGHT  CLS VAL  LPRINT VAL$  DRAW <[G]▛STR$ 3 BRIGHT  RETURN ow DATA /▟I OUT ; DRAW > OPEN # OVER _PEEK [R] CLOSE #LN < RESTORE ACS t LPRINT $Tv DRAW T[I]PEEK SGN  RETURN  ERASE  OVER  PRINT  CLOSE # BORDER .▗ DRAW W LLIST [U] FOR [F]8VAL i| INK y DRAW  DRAW LT CIRCLE  ERASE [I]>SCREEN$  OVER  PRINT  CLOSE #PI▗ TO  POKE S LLIST [U]TAN SGN 3 CLOSE #yi INK  DRAW AT  CLOSE #[I] DRAW SCREEN$  ERASE  PRINT > CLOSE # LET <[I]/LN 3▚[U]LN  CLOSE # OUT jK DRAW [A]AT  CLOSE #▟<>K@ CLOSE # NEXT  CLOSE # LIST <<" AND tSGN [U]{EXP  LPRINT O LLIST j THEN HAT  CLOSE #▟ DIM  CAT /[Q] NEXT P CLOSE #STR$ <?▚4 LPRINT  |/pmi$ DIM E LPRINT COS  SAVE _PLN [O] CLOSE #▘o-/4 OUT LN qASN RND[C]TAB  LPRINT  POKE  PRINT  SAVE [H] AND (VAL$  RUN  CLOSE #7<4 AND |< DEF FN ?a[ SAVE  READ  CLEAR G<4▝ LET  NEXT  CIRCLE [G] SAVE x©NOT  MOVE <4`|<=C DRAW NOT ACS  RESTORE  SAVE  OVER p4<4 OUT  LET  COPY  LIST m9 SAVE  RUN ▜▟< GO SUB <4 DRAW x COPY © SAVE ACS [M] SAVE  CLS NOT ▙ AND <v4 DRAW SGN  COPY ?|[ DEF FN  SAVE  CLEAR aG READ <|[T]4C` INVERSE <= DEF FN IN  GO TO a[ SAVE  READ  RANDOMIZE [T]G<4F|< DEF FN ?a[ SAVE  READ  RANDOMIZE  LINE |>= LIST [A]▗ TO ▖ OPEN # POKE [Q]P DRAW "( CLS w MERGE ^tPI IF  LLIST ▞q[N]  MERGE  CIRCLE  LET SCREEN$  FORMAT [A]mC NEW SGN /USR ▝ INVERSE : BEEP ▛ LPRINT fTAB  PAPER x VERIFY FN IN 2 MERGE U TO STR$ O CAT COS [I]mUSR <=SIN  INK fNASN  BEEP SIN ~ STEP [I][O]VfY VERIFY Z RANDOMIZE > CIRCLE [G]ASN [L] LIST  INVERSE SCREEN$ 3`[I]0COS V©Y VERIFY  CLEAR  COPY  LIST  BRIGHT  REM [M] CIRCLE TAN {ABS  LLIST  TO hkCOS PEEK -tX-ATTR f-3 PLOT  [U] CIRCLE INKEY$e6 PAPER SIN [A] LLIST =TAB lSIN PISTR$ fVAL J STEP XVAL  SAVE eTAB [L]NOT PIASN 6ASN o.IN PIZ`0+ TO INKEY$,▜[J], OUT  INK c LPRINT 1_RPI`IN  LET j~+j[P]<>`l#``lVAL$  LINE ` OR COS `[M] MERGE e▟tVAL [[N]# OVER LEN  SAVE ` AND 4r`cCODE USR `9kCODE e` READ  LIST Y`E▚` RETURN  CONTINUE USR  RANDOMIZE L` DRAW [I]e`0lD`f'` LET c SAVE [B]`LEN v CAT SIN ` INK CUSR g PAUSE `t PAUSE ▟``` NOT  [ COPY `USR [H] PAUSE ▟ RANDOMIZE  CLEAR AT  LLIST ▗ COPY  RUN W PAUSE  LOAD  CLS  SAVE [G]T CAT h5PI}INKEY$h TO j INPUT BIN  DATA [F]kh STEP LN cx( COPY [L] NEW LN  THEN jN▝6w FORMAT  COPY `354 COPY  THEN <>COS ~ INK CODE < OR [N])&COS  COPY 7COS  LPRINT ATN  RETURN COS [J]n}[M]INT 6V`[U]Z NEXT L BRIGHT  OUT LN [K] BRIGHT  COPY  LLIST  CLS  BORDER T GO TO JATTR T[H] INVERSE LN  GO TO ▖©%aVAL RI)*CHR$ [D] OUT @ LPRINT  PAPER  PAPER lZ OUT  GO SUB x PLOT  <>[E]COS @[J]ASN m6USR RJR y PLOT  . BRIGHT 75 PAUSE a FLASH  INPUT 5, GO TO  fRWTAN RND INPUT 6lW_USR  BRIGHT <> OPEN # SAVE [U]INT WiTAN ACS  NEW zATN X MERGE w BRIGHT  CLOSE # RESTORE  GO SUB ^~+NOT "U[S]o<> TO t}INT ?T© INPUT  DEF FN [I][H]PEEK @ FORMAT  DRAW &STR$ [G] DRAW ABS 3 DRAW  GO SUB  CIRCLE `i DRAW ;C DRAW ▙ INVERSE STR$  FORMAT [G]& DRAW 3 CIRCLE ABS  DRAW  GO SUB iC` DRAW  INVERSE ; DRAW  FORMAT ▙&STR$ [G] DRAW IN COS  DRAW  STEP iC` DRAW  DRAW ; DRAW STR$  FORMAT [G]& DRAW 3 STEP IN  DRAW `i DRAW ;C DRAW >PEEK SGN  GO SUB  ERASE  DRAW  IF - SAVE  LIST 7 INVERSE  SAVE "VIN  LIST ;[T] DRAW  DRAW K LPRINT Q[ CIRCLE  BORDER  PRINT ] PAPER  DRAW IN RND SAVE  GO SUB k LIST  LIST  DEF FN FN  DRAW  COPY  ERASE  LPRINT  CLOSE # CIRCLE  CLS ~RNDyp DRAW P PAPER  SAVE 0SQR  INVERSE [M]USR ATTR  OUT  LIST PQ[E]k RUN  PLOT   RESTORE  CIRCLE  OVER  VERIFY RND} DRAW P PAPER  SAVE 0ACS UHX7TAN  CLOSE # REM  LIST 7c FORMAT x DRAW kQ[ CIRCLE  CLS  PAUSE USR  INVERSE K DRAW a+ SAVE  GO TO ▛>= TAB PEEK  LIST MK CONTINUE @_INT  LPRINT  NEXT  STOP  CIRCLE  FOR 34 CAT  ERASE ABS  DRAW  SAVE TAN  OUT  LIST  LPRINT  PRINT ] LIST Sj ERASE -[Q] LPRINT  COPY  CIRCLE [F]}^ PAPER RND DRAW  PRINT [ SAVE  LIST nINT  SAVE ▖ASN  IF  LIST [H])P_[K] LPRINT  PAPER  STOP  CIRCLE CODE  ERASE > DRAW - GO SUB  SAVE  INVERSE  IF  LIST IN WD[D]V LIST  DRAW K; DRAW ( LPRINT [ DRAW  CIRCLE Q7COS C/O?n▟ CAT FN Z BRIGHT  CLOSE #_BIN [L][J]▝[R][F]'ATN a BORDER TAB  AND  BRIGHT T CLOSE # TO CODE BIN  FORMAT  STEP ▜USR VAL  LINE  FLASH  READ  NEXT TAB V BRIGHT  CLOSE # MOVE  VERIFY tf PLOT  ` CONTINUE  LPRINT CNOT SCREEN$  THEN ▟ OUT FN Z BRIGHT  CLOSE #_BIN [L][J]▝[R]▜~NOT  CLOSE #< READ  CLS f TO  POKE P CLOSE #3IN BIN C7_LN .x> COPY  PLOT  < LIST e CLOSE # CLS ATTR BIN ▝5$[H]? DATA ATN  AND  BORDER  CAT TAB  BRIGHT  DATA  RETURN j SAVE BIN  INVERSE  TO ABS | PAUSE  COPY LN 5>cj BRIGHT  CLOSE # PLOT   COPY  READ 7BIN  NEXT  OUT  POKE  TO L`h OPEN #O?~01[R]A?▝ SAVE MBIN  DRAW STR$ ▚7 CLEAR  NEXT  READ  POKE  OUT L GO TO hO`q OPEN #1IN SGN A0▝[R]V?LEN A0▝[R]M DEF FN  SAVE <%0" RUN ▝ CIRCLE ATN  GO TO  BORDER [P] CLEAR  AND m CONTINUE [J]LN  AND >VAL  CLS  PLOT   GO TO  DRAW  PRINT  CONTINUE TAN * STOP hUSR >=▚ OUT  OVER  GO TO ©b[P]TAN  PRINT  CONTINUE  STOP  CONTINUE )h▙USR  OVER b OUT  GO TO ©ACS ~ CONTINUE  BRIGHT =Et CLEAR USR  NEXT  PLOT   GO TO  DRAW  OUT  SAVE [Q]TAB  CONTINUE  RUN `<>G FLASH  RUN  GO TO O GO TO  BORDER  MOVE STR$  OPEN # CONTINUE % INPUT USR r▖[O] OUT  OVER  GO TO ©b[P]ATTR  PRINT  CONTINUE  BRIGHT +PEEK  POKE ▟▚USR  OVER b OUT  GO TO ©ACS ~ CONTINUE [L] CIRCLE  RUN ▞ACS  SAVE ^1} STOP ▘ GO SUB  SAVE K TO  NEXT  LOAD ;l SAVE IN b[Q]VAL = SAVE e CIRCLE  PLOT   RETURN  LPRINT ▚STR$  LLIST %▞ RANDOMIZE ATN  RUN  SAVE ▞ CLS  LLIST  RANDOMIZE  RUN  GO SUB  BRIGHT [T]ATN  LIST NOT  NEXT  PRINT  GO TO  OUT PEEK  BRIGHT z{ LIST <?A0IN  MOVE  GO SUB [ GO TO  BRIGHT ATN  RUN  LIST  NEXT [T]NOT PEEK  PRINT  GO TO { OUT  BRIGHT ?z LIST 0< MOVE A CAT [T]=o BRIGHT ABS  LIST [O] CONTINUE "[O]G GO TO { OUT  BRIGHT  RETURN p LIST STR$  LIST B PLOT  < GO TO  BRIGHT  FLASH  CLS  LIST  RANDOMIZE  MOVE ▘ LLIST ▟ABS o BRIGHT pIN  LIST w0 CIRCLE q; GO TO LN v BRIGHT w▝▙SQR STR$ USR <= INVERSE LN LN 3xUSR BLOCK   C[B]--hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.tm1 COPY  NEXT  GO SUB V CLS ![A]IN  LLIST  LLIST & GO SUB VAL  RETURN © LPRINT  AND xH NEW  RESTORE yCHR$ 6`J{ CLS ©POINT >2bp OPEN # AND  CAT  RETURN vCODE uv FLASH /<=N LINE  OPEN #[F] SAVE ?VAL  SAVE v! COPY Z RETURN 1COS 6EXP hFFN  REM T`!Q▛@ OR  MERGE  STEP |b MOVE STR$  FOR  NEW  LET O# LET !XMM INK  PRINT D[Q] OPEN #< PRINT {v STEP AT PIIN  STOP sINT  ERASE [H]©OAT  CLOSE #/NOT ▗*TAB _#~PI LINE ATTR o RETURN  RETURN CHR$ a STEP "k DRAW <=!k[K]aF{LN  CLEAR  NEXT EXP  LET EXP v OPEN #[N]LN NOT <NOT Z NEXT  MOVE /LEN  NEXT G  OUT  STEP  CLEAR ~XT LPRINT ] CIRCLE W[C][J] CIRCLE  FOR [U][B]f VERIFY [J] ERASE SQR  COPY PI[M]~ RETURN  ERASE  NEXT  COPY  LINE a"<> INK [G][R][L] AND  COPY >< NEXT  OUT 2a'><-%▙ COPY @%ABS 'v SAVE K CLS 7 RANDOMIZE ▙> RESTORE  STEP ▟z LLIST ~S▜w:▙z NEW GwNOT [P]▗ga=CHR$ URNDs▘ PAPER O VERIFY ASN  RETURN FN 6?#@PVAL  LET ? OR  RESTORE  MERGE >USR SGN  STEP [G] MOVE LEN SGN  POKE  FOR  LLIST [N] RETURN SQR STR$  STOP !▟&[FN cFN  X AND SQR v OR v RESTORE ▞?^^▙ INK a LLIST  REM CHR$  FORMAT  ERASE  RESTORE  FOR !b DRAW @INKEY$v PAPER [L][F]`ASN  OPEN # OVER !Z READ  GO SUB _x<=]bATTR  CONTINUE b DRAW a[B] RESTORE  RUN  CLS  FLASH 7USR  COPY  INVERSE d STEP gCOS hb FLASH  AND 0<> PRINT [D] PAPER ub3NOT jEXP Sz LET <>[D]f>=o▞▝ CLEAR "c~$[O] THEN  MOVE  LLIST #[N]l FOR | CLEAR `y<>{[B] RESTORE >uS THEN  OUT yY<>$| NEW USR } AND  o CIRCLE | VERIFY g<>[G]Y VERIFY eu FORMAT  PLOT  0V' SAVE { NEW  PLOT  @CODE  VERIFY ? OPEN #▘ DRAW <>Q OPEN # COPY X?INKEY$PI COPY 7INT 8ATTR  NEW  SAVE gzxO▖ OVER  LET  CLS  GO SUB <ASN  PAUSE  PRINT ▝ VERIFY  GO TO U TO  BORDER ?$PILN  IF  LLIST  FORMAT S FOR V CLEAR I FLASH [N]ATN  LOAD W INK LN  COPY  LIST  COPY  SAVE RND LOAD  BEEP  FOR ▘[T] RANDOMIZE 06TAN bG FOR O|BIN F RANDOMIZE ATTR |> OR  COPY f~[Q] INPUT `"& CAT  LINE fcL OPEN # INVERSE @ OPEN #R[C] RUN r STEP ={Y^TAB  RANDOMIZE  OPEN #E READ USR k DIM 0 FORMAT [C]T DATA "CHR$ [L]dCOS IN  BORDER p`GIN |n LPRINT  CLS ATN DSCREEN$ 3AT >xo `<=|p6[F]`d( CLS $FC~8c6r LPRINT 6 DEF FN  GO SUB _EB<S<3mw[F] RESTORE [K]Of2O* LIST > SAVE NOT ;<=BIN  DRAW C<><=)xB?kuN DIM ([J]dASN  DEF FN  RUN U[E]▞STR$ CHR$  LIST 3 ERASE |0b[K][ BORDER  CAT  INPUT >8 SAVE  LPRINT X[I] LIST  DATA  POKE [D] DRAW CODE '$ STOP '? BORDER  COPY $~ COPY  COPY RABS  DRAW LCHR$ hVAL VAL ydv OPEN #2HX[S]p[R]MTAN 1P PAUSE K PRINT 7n6|<>- DEF FN ^^S>xRSQR ©v?[H]EXP   TO c ERASE Zx CLEAR |) MERGE x LPRINT  LINE 2 FORMAT 8tN READ [R][L]USR np<> DIM ~CHR$ [I][E] SAVE <PI|{[D]SGN  CLEAR  LPRINT  OR F LIST  DATA  DRAW s[I]:▙ FOR  LIST  COPY ▝VAL$ e▙' c,u RESTORE [A]? ERASE 1 NEXT  THEN  MERGE VAL  OR VAL >}J OR ,VAL ▗ MERGE ![U]L,01=|*~@ INK |1[U]vt+ CLEAR ATTR bS3`iLSCREEN$ ~[J]?k[J]?b[K]fPOINT 8[M]) STEP  BRIGHT [B]4 LPRINT Vr~1RNDh PLOT   DATA IN USR p AND  [S] FOR P▞SIN  PRINT iP3▜{ IF 3 LPRINT LN ▜ LPRINT TAB F PI RETURN  RESTORE { TO k> LET  DIM POINT e▛[E]pVAL VAL VAL  STOP VAL  DRAW COS 1508l BEEP H@ COPY PI~1LN &D2kN8q? STEP t[ GO SUB  RANDOMIZE @ RESTORE l VERIFY COS [L]nlEXP  PAPER <©+ RUN p+W T CLEAR !INKEY$5*` CIRCLE  PLOT  kATTR p DIM [J]TAB  PRINT vPOINT X OR  THEN h[F] BEEP PPEEK P LPRINT [T]] LPRINT ▗VAL ! CLS % PRINT ?tk!INKEY${USR PSGN VAL  DIM  MERGE VAL VAL  NEW 0[▘1[K]  INVERSE 2`[U](c ERASE [M]F:R[E]CW COPY  IF !# IF > BRIGHT ACS  RETURN COS [F],< CIRCLE cdY66C* IF ▞[F]L CIRCLE  DEF FN  LET >TAN RND STOP  FORMAT  LPRINT [U] FORMAT <>ATN INT -BxCODE  [D]SGN [P][I]SIN SCREEN$ [O]LS PAPER PITAB VAL i[O] FORMAT  IF ▝? INVERSE 6 GO SUB  CAT ACS /G[M]n NEW  PAUSE [J]fVAL >=5=VAL INKEY$ FOR [J]EL FLASH C OUT  DRAW K[L] POKE  OPEN #H` NEW  GO SUB  CLS [J]_|/VAL  CLS [H] THEN | RETURN kZ[O] MOVE STR$  POKE USR J OUT [C]VAL CODE  TO ) GO SUB s5IN YxCOS TAB [B]u PAPER 0kx AND @k FORMAT  MERGE h? PAPER  MERGE ,Ok> REM  GO TO 2 CLOSE #s MOVE ▞ BEEP s PRINT |CODE ▛SIN <m MERGE  FOR /p" ERASE [L]▛ FORMAT  STEP  THEN SIN  CLS  LINE  DRAW w"COS 6 LOAD # GO SUB  GO SUB # VERIFY  LOAD !7o^ OR  RESTORE  STEP ASN bj| DRAW  DEF FN {USR  LLIST STR$  PRINT [ REM b[M] GO SUB VAL  CLS [Q]PI!mHABS V[F]v INK !XINT [E] BEEP mVAL [J]Kv REM  CLEAR Tu=INKEY$ AND >=[R]'H[I]▘<>HSCREEN$ <= DATA  NEXT oR[K] RANDOMIZE  OR  CIRCLE h TO  PAPER >ATN ASN  OUT ^<> RUN XI ERASE  LET  CLS 4▟▞ MOVE  ERASE :b OPEN #7 CLS [G]LN o? COPY  BRIGHT l:m<2 PLOT  3 STEP ;F FLASH S[I] PAPER PEEK ACS  ERASE  PAPER 6IN |POINT o,G^ CLS !<=7w STEP [K] GO TO b SAVE yPIp!& LINE 5PFN PIB▝t[K]ZINT ▛y[N]z STEP SCREEN$ [R]/g[L]: LINE PICHR$ %[T][U]lABS ~Z LOAD LN u[F]SIN /NOT ASN [U][S]RND MERGE ACS Y▛ACS [A]pJCOS ~ABS  AND  MERGE  VERIFY f▞ SAVE R[U]WINT [M][L]▟[C]rS~iNOT Vn!/IN x POKE [E]:SIN  THEN ? AND G%,x OVER  VERIFY m PLOT   PRINT [L] FLASH P"&m<>%jTAB  OR  RETURN NOT SQR ASN  STEP  CIRCLE 9S BEEP ▛[E] ERASE  LINE LN >= BRIGHT  BEEP [U] ERASE  INK IVAL$ ` PAPER e<>COS  THEN $[O]Z FOR AT PEEK  OVER  DEF FN : INVERSE AT COS  BRIGHT  FLASH / FOR  PAPER E LINE [F]v@[G]pCODE  INK G LINE N PAUSE [R]AT <>:e[L] CIRCLE u& CLEAR  TO :CHR$ [N]<>LN [J]&AT :"BIN G MERGE LN />=ASN  COPY dEXP *>=▚ STEP M RUN [E]INT PPI▙) SAVE  MERGE [N] IF  BEEP RND>COS ?[D] RUN  IF ZPOINT  RUN [M] RUN  OVER [Q] OVER CODE  OPEN # OVER  RUN  OVER LEN SCREEN$ [L] PLOT  v[p[H][K] LINE x!z2 BEEP TAN  OPEN #i BEEP VAL  BEEP Cn PAUSE TAN 0;: INPUT ASN -9 INPUT EXP f CAT y CIRCLE L1CODE ABS p BRIGHT AT [T]BIN !v'IN j~ INPUT w[J] RANDOMIZE :FN RND[S]| LIST  OPEN #ASN  OPEN #BIN  IF  OPEN #<>> LOAD  FLASH  RETURN  LINE o LINE rn PRINT  OUT 4 CLOSE #FN  LET  PAPER ▖n▗ STEP NOT ▛[B]e SAVE  CLEAR  TO  BRIGHT  OUT , CLS [F]fJ](VAL  FORMAT o OPEN #y BEEP $% PRINT  REM  LET h[R]9gLEN ,CODE G THEN ▜ DRAW e=*[C]nL NEXT  INK  FOR  ERASE  BORDER 'ACS [K]/ NEW CHR$  FORMAT ASN ASN  OUT 1INKEY$ PAUSE  ERASE  INK ^fkABS a THEN [C] VERIFY y[K]W CLEAR  FOR INKEY$:©z THEN yACS w+ AND [J] CLEAR  LET  RETURN  PRINT BIN  FOR y[O]6 TO = OVER CHR$ 4oPI OUT NOT  LET  OPEN # NEW  PAPER K&o▞ PRINT  CLOSE # STEP [I] OVER  LET W MERGE [H][Q] COPY  POKE [C]l DEF FN  FOR  FOR 2 OPEN #wSIN if7f AND  THEN  INPUT [J]w<>rLN ?,s▗6?V[J]ABS  RESTORE  INK  LLIST p MERGE Rqc IF H#=CHR$ Ro LIST :SQR  CLS `q STOP [J]O0 LIST [F]▘8© SAVE SIN 1 STOP  DATA [R]#r LLIST ATTR 3 LET  OUT *8) IF 1 COPY  DIM  CAT = THEN 'O CLS ▝ PLOT  [P]W!|o~ AND _COS  RANDOMIZE /#VCOS <>^[G]FPOINT *NM GO TO <=o LLIST =MX= GO SUB SLEN J>5 RETURN ~O ERASE p> THEN 2CHR$  INK }?[S]LEN NOT  POKE [E]>=SCREEN$ UyLEN 5$▟TAB  READ SCREEN$ 9 DATA + CONTINUE 1ATTR Q<> IF = GO SUB  RESTORE  REM 9 NEW D CONTINUE 9eATTR  STEP < OUT  CLOSE #IN * LET LN  RUN  BORDER w6CODE [L]% GO SUB VAL v?W*>= RETURN :a RETURN USR  STEP $IN  RETURN SIN  OUT CODE  THEN G OUT  STEP  OPEN #LN  CAT 7*u" PLOT  [F]1<ABS  LINE  REM 6|NOT  FORMAT GPEEK ) RUN [A] LIST  PAPER [S]p AND 2[J][L] READ  BRIGHT ) RESTORE  BEEP  LPRINT  DRAW ^ STEP q LLIST [O] RANDOMIZE  READ  MERGE ACS 7_[L] THEN ?FN TAB  OPEN # CAT  OPEN #MVAL$  OPEN # OUT  LOAD 0 NEW  OUT  SAVE  OR  OUT  OVER  PAPER  INVERSE  PAUSE  INVERSE  DIM [Q] INVERSE  INVERSE  DRAW  BEEP  INVERSE <> GO SUB sr RANDOMIZE  FOR >FN  FORMAT L MOVE ( CIRCLE L-$`ASN [H MOVE  COPY |=CHR$ q1 LET z<> STOP wATN jPIr STOP  LLIST  OR  RESTORE " BORDER  STEP VAL$  INVERSE  IF  LLIST STR$ 1LN  LET  REM <> RESTORE  INVERSE  LLIST ~ NEW  SAVE  BRIGHT  RETURN >='COS [R] CIRCLE CHR$ rACS  LIST  TO 5sNOT  DEF FN  VERIFY PEEK ub FORMAT  OPEN # COPY O AND G:STR$ yLN  DIM  LLIST + RANDOMIZE  PAUSE  IF  LINE <>j© LOAD  LIST . STEP ▛[M]{<>EXP CODE C SAVE  CLS =USR 4Gg*>= CAT [P] BORDER  CAT CHR$  PAPER ©"u BEEP  CIRCLE :zPIr_USR l RETURN n▗WkF6 PLOT  IN  PAUSE  BEEP Do LET  BEEP [A]▜▙ OUT @dsCSGN 8k OVER zC GO SUB  CLEAR ?C RETURN CHR$ {s>@ INVERSE w CLOSE # FOR 6 LINE ktN[G] THEN F THEN [Q] FORMAT  BRIGHT  THEN © FOR ATN  NEW [J] NEW = OVER  NEXT RND[K]H▚[P]PIPOINT ▛<l BORDER  RETURN h ERASE  VERIFY wSGN RND FLASH  OPEN #USR  PAUSE SGN ?= RETURN  PAPER  OVER ▙O FLASH VAL  READ  CAT >=._Kp▟ LINE E BORDER ftT[L] INVERSE =IN fO OUT |FN  VERIFY  PAPER t COPY GCODE ▝ NEW  FLASH  CLEAR Oy PRINT SQR ]XSQR  NEW ▚ DIM P RETURN >= PLOT  4 VERIFY =INKEY$EXP  RANDOMIZE `.J2TAB v[E]USR n[K];CODE ©<> PRINT [E] CLOSE #[J] OVER NOT  CAT  PAUSE ]% OUT % STEP v>7mRND$v CAT q LINE RNDTAN LABS [uEXP  LINE h COPY SCREEN$  DRAW T/ INK jRND RESTORE RND[I]:[P]tl POKE ~y RETURN >= VERIFY u CLS  BRIGHT lCOS F CLS  BRIGHT [M]▛ LIST >=NOT  THEN  RUN [J]LN PEEK  CLS  LLIST  MERGE [P][S] CLS %x RETURN  MOVE  RETURN BIN  OVER  OPEN #B) CAT  MERGE 3ACS e PAPER  INVERSE ACS SQR ACS  PLOT   ERASE 4 TO ~ ERASE NOT PEEK TAN INKEY$# FLASH IN ▝ CIRCLE CHR$ ZI<[Q]Y[O][S]TAB ONOT EXP  PAPER ;POINT  RESTORE ▟[J]INKEY$ STEP  NEW  STEP  NEXT PISQR " NEW 8J LIST l* ERASE ]> THEN ?NOT _7 FOR [G]9M GO SUB  COPY [H] PLOT  LN  OR 3~ RUN ▝[Q]- ERASE [H]'▗G NEW  PAPER  CLOSE #OxLEN I[I] RETURN CHR$ zPOINT zNOT Fb NEXT wLEN  ERASE ATTR [B] FORMAT INKEY$ BRIGHT PozGt[J]zLN eNOT u FLASH [I]PEEK =3g>=/l.<1CHR$  REM u2 TO  INK / STEP STR$ ! PAUSE o FOR  READ PI$~ RETURN  INPUT NOT  GO SUB USR I> IF  NEXT ▖sL,<> SAVE f POKE [G]LN >=PI2vw CLEAR [U] MOVE  REM G[U]k> AND v AND [G] CONTINUE x▟>=l LINE <>= RANDOMIZE [S]oTAN [N]q[T] ▖▞ BORDER NOT N THEN T DEF FN <> VERIFY STR$  CAT CODE PEEK >CODE [U] SAVE _v STEP cSCREEN$  FLASH  POKE <>[L]+CODE ©STR$ ▜LfPOINT TABS  IF  CONTINUE  LLIST PEEK }w+ AND >086 BEEP [J]ABS 4IN <= OR  RESTORE 6 CLEAR BIN [O]v"Nw DIM PI LLIST CODE  DRAW  OR STR$ VAL$ [N]~G#dW STEP omw RETURN  ERASE ABS | INVERSE ▞NOT IN  VERIFY O RANDOMIZE +_ RESTORE  STEP  LIST b MOVE y|SGN ▗g RESTORE  RUN  BRIGHT [F]CHR$  INPUT v3 RANDOMIZE ![B]PI FORMAT wG3- RESTORE @ NEXT NOT L PAPER  ERASE D3 BRIGHT USR  TO Lr▙VAL$ ▙A$Y THEN  RUN x OVER RNDSQR [J] MERGE {; CIRCLE  FOR  LLIST [N] LOAD  RETURN w VERIFY IN I[L].[A] RUN  RUN [B]/ AND O[N]c[O][B]G[R] DRAW  IF M9NOT ASN 5USR [E] VERIFY INT  RESTORE w{[J] CAT K, LLIST  DRAW &9 REM @sw>▘2SCREEN$ COS  CLS  FORMAT  OR kATTR  BRIGHT <=>[B]NOT PI<>:[ CIRCLE ?PI LPRINT  TO CHR$ [D] OPEN #[H] TO " IF 5 LET  LLIST  INK  DRAW FN MCOS AT { FORMAT  FOR  FOR COS f/1 INK fr NEW © LIST  PAPER CHR$ _ AND [ MOVE ▟[P] PLOT  [J] NEW  ERASE < THEN [I]LN  INPUT  PLOT   SAVE  PLOT   OPEN # PAPER ▝y[O]&STR$  NEXT  RETURN n IF  LOAD >NOT  ERASE v INVERSE ][C][ FORMAT  COPY m CLS ATN ABS ▝x[N]wINT N[S] CLS VAL$ #srx CLS $dHUSR SCREEN$ CODE IN  RESTORE  STEP }.I▞ PLOT  [G] OUT SQR + OUT - RUN XXx REM  FLASH CODE  READ 2fpVN6<> INVERSE RNDjk LPRINT EXP [K]<> IF zUSR yB PAUSE chNPOINT  LINE ▘ BEEP oCOS [U] CLS NOT  OPEN #Sk!"u5lUSR  CLOSE # RESTORE 23 NEW [L] BRIGHT [U]SGN NOT  RUN [H] POKE TAN  3 MOVE  NEXT ©:KsASN xUSR wHUwJSTR$ .t: LOAD z[U]T<>[U]pSIN [G][F]ISIN D[R] TO SGN ABS y%[J] INK  FOR  RUN t VERIFY ( VERIFY U▗VAL$ l[G] RETURN  OPEN #@6BIN w[S] CLS  PRINT [N]w, FOR yASN   SAVE VNs[U]<>; STEP  BORDER  CONTINUE [R]| CLEAR  RESTORE [S]y}(~ RUN 3 LPRINT yw CLEAR 3PEEK  FLASH IPEEK RNDk INVERSE =RND PRINT Z RANDOMIZE G BEEP  VERIFY [Q] GO TO  COPY L CLEAR ie PAUSE  IF o>=*J INPUT ▖[I]©[S]| THEN O CIRCLE 5 LIST CHR$  COPY /SIN [N]SCREEN$  INVERSE  PAPER Qzt BRIGHT nATTR %a BEEP  DEF FN  LINE ATTR .% LOAD  FOR ?TA% OVER s RANDOMIZE [P] INVERSE sB[B]s@VAL$  COPY PEEK c>w▗TAB g THEN o DATA o"0[O]<=INT [J]<>m STEP [G]p RUN EXP i BRIGHT  FOR LN K=[A]Of?GaeSGN  INPUT LEN !NOT _={ GO SUB [Q]ATN  SAVE Iw<!@> FLASH [M]  RANDOMIZE r$ABS  CLEAR B`G▗sy CLS ▝LN =CHR$ N/ BORDER 7{©]<>kASN ~ OPEN # FLASH #foQ FOR  DEF FN 6SIN { BEEP  NEW TAB " CONTINUE )SAT SQR uPI FLASH PI OR [H] STR$ NOT !>=~ PLOT   PLOT  ASN  NEXT  OVER  PAPER &=O} TO <>0ATN , RANDOMIZE  THEN [J]ATN  POKE ACS [J] SAVE >=NOT IO▝0BIN 1 PRINT [O]1SASN CHR$ "COS hL[A] THEN CODE ATN [N]CODE w- DRAW [S]/IN  COPY  CLEAR xS INK NOT  GO SUB iCSQR [T]BSQR  PLOT  ~ATN >= TO ATTR y[I]COS o[C] LLIST  AND 6, GO TO IN -!<=> STEP [I]|;ATTR  INVERSE }em<."!.D[E][H] CLEAR h PLOT  <>2 FLASH NOT ].> READ  AND |_q▖ OPEN #g[E]2ATTR )BIN >; PAPER [F] INK [P] LINE xNc RETURN USR [Q]▞B TO oK VERIFY |f ERASE R%*LEN  CLS " OPEN #CHR$  LPRINT  DATA  RANDOMIZE  GO SUB R PAPER  POKE |" BEEP p RUN  INVERSE , CLOSE #IN vATN & FLASH w INK L INVERSE K LOAD tvCHR$ [Q][T])}ATTR  PLOT  NOT  IF  FORMAT w INVERSE  DIM  INVERSE ~<>[P]t IF  OR u GO SUB b▘B}PEEK  PRINT ( RUN [G] MOVE ▙ VERIFY [L]©ABS  PRINT jp PRINT  FLASH g! TO  CLS  INPUT I[O] BORDER  STOP ▘e LINE STR$  AND .USR m REM  OPEN #< CONTINUE /~km READ  BRIGHT )~@ BRIGHT  LET [K][R] DEF FN j MOVE  CONTINUE  FLASH j<=WSGN oUSR ATN m[G]VAL ru?▟2ATTR  CLS  DATA SGN >ABS i OVER  CIRCLE  OVER ASN { BORDER  STOP .[U] BORDER  VERIFY  FLASH _ NEXT | DIM m ERASE  FOR [L] OUT !m>=[Q]R FORMAT  INK PEEK ![T] STEP PEEK [F] FOR XG`USR ~kNOT POINT %M DRAW VAL (IN [H]+ LLIST  RETURN 0 LINE  BEEP  STOP <~ PAPER 8= TO INT  OVER NOT z[U]AT  LOAD >v BRIGHT / CLEAR F PAPER SGN PI FLASH >= INVERSE )y[I]COS  CLEAR CHR$ VAL iSQR [ COPY  GO TO }*IN  PRINT  DATA *ASN yyLN z CLS v COPY  CLS o[L][U]~ RESTORE f[L]TAN ~[M][L] MERGE TAB  OVER  CAT ©" SAVE  DRAW B▗3© CLS > PRINT 6CODE  OUT  NEXT ASN &[M][Q]SGN < MOVE ▖[H] GO TO  READ [D]NINT  ERASE ▗ TO USR >▖▙b▖ BEEP [P] TO  OR  RESTORE ~, FLASH   LLIST K[D] RANDOMIZE STR$ CHR$ ©*[O]s[E]x[H]EATN  CLOSE ##[C]OxLEN  RANDOMIZE @gEXP HWCOS vCODE EXP CODE ! CONTINUE FN [G]▛yCODE  FOR } VERIFY L MOVE [N]AT  RUN  RETURN W©C@m? RESTORE :V©[T] STEP  ERASE COS *S[O] RANDOMIZE [I]h COPY gCACS POINT R[O][U]y>▞ATN © LET LN ATN <> ERASE ~EXP 1sNOT ©PEEK ~. DRAW  COPY ▙CODE [Q]! [C] FOR #XSCREEN$  FLASH @ GO TO  LPRINT RND[Q]ATTR  GO TO TAB  FOR POINT   BORDER RNDr[R] CONTINUE :7TAB VAL$ COS pCODE  LPRINT AT  BORDER =[P] LLIST  LOAD STR$ [S]VAL$ [S]t LPRINT RNDAT  LOAD  STOP FN Z[I] CLEAR  STOP  DRAW  LLIST AT EXP /LN BIN  NEXT WPEEK ▟ READ `[K]FN PI CLOSE #[I] READ  LPRINT  OPEN #AT [Q] RESTORE  READ  LPRINT VAL$  STOP [U] FOR }Y[Q] STOP ;)[D] PAUSE  CIRCLE  PRINT VAL$  FORMAT  DATA  FOR  CIRCLE [A] NEW y[S]RND FLASH [M] STEP w READ  OVER  CLEAR 3TAB  PRINT  [K]SVAL [K]SCREEN$ FN STR$ [S] INK  NEXT CODE Z[U]3 OPEN #▘INKEY$ CIRCLE c DEF FN  DIM  CIRCLE +? SAVE NUMBCARZm[O]-22[J]VAL$ ?lL PAPER B6 RESTORE FN | AND AT ▝COS  RANDOMIZE VAL !TRI CLOSE #PH MERGE ?[M]} CLEAR Y▝w[E][C] OUT  BORDER  STOP VAL$  VERIFY ATTR  CIRCLE [B] LIST nC LLIST FN [R] LLIST [E] INPUT ,SGN S OUT wAT [T]3 LLIST PI[U]v RANDOMIZE TAB YS[T]▘[L]'▙ NEW cG$AT ABS  LOAD ':[M][G] AND BIN  CAT  LPRINT  MERGE PISGN T BEEP USR tMVAL ATTR  LINE  RANDOMIZE VAL$  FORMAT y[N] INPUT  CLEAR [D] RESTORE 3AT  OPEN # LPRINT COS SCREEN$  TO /[S]CODE `▖SIN 2 INK [T]▜ DEF FN  DATA  DATA *;L▝ATTR [U] INK S STEP  OPEN # LPRINT FN [I] NEW ,-S_N%[M]x LPRINT  GO TO [F] LIST ]AT ©b REM H LINE [I]}O8J[I]▖`O[O]/ RNDPOINT SQR _gPEEK PI[I] CONTINUE U RESTORE a_>= FLASH T DATA P TO p CAT SGN eATTR FN  LLIST TAB | DRAW USR I DIM ATTR  FOR 8 LET IN RNDASN TAB 8'PABS  DRAW [S]h CLEAR V LOAD -[P]VAL$  CLEAR  CLOSE #"MLEN  INK  GO SUB O3 BRIGHT '+[U] FLASH b0TAB  COPY  PRINT h4RND[M][D] MERGE  STOP [J]USR  FORMAT FN 0LABS 4F9 FOR POINT 3 CIRCLE PI#FN K AND ABS [G] BEEP [I]~0>&] GO TO  LOAD ▟[D]1kIN  CIRCLE &1TAB  CLS CODE 5 STOP 9O<s READ  INPUT -SO DRAW [T]6VAL$ %INT }[J]t BORDER oRNDA0Hu CONTINUE <>L[F]S[U]'h BORDER   SPOINT  LLIST >[H]SGN LN SGN [J] REM ▖[O][Q][D]▗PEEK LEN %LEN 8}[J][T] LPRINT /[M]) PAUSE #5RNDLM" READ  LINE  LIST [I][O] COPY C[D] IF 4[J]/ VERIFY  LOAD LPIoSTR$  OPEN # READ [D]▛IN v DATA 7 TO  CLS [U] TO  m.BIN _FN $fL[A]FN  GO TO w OR [[E] PAUSE <= AND  CIRCLE HbtBPOINT F LET eSGN [M][T] PAPER [J][S] DIM  OUT  READ VAL >;)X OUT  IF FN ?STR$ Z<=LN  PAUSE ^TAB  GO TO [Q] PRINT ▜9 READ [D]fSg[R] LOAD  LET }][S]v▝BIN - CLEAR FINKEY$)& IF 1AT CODE ` LIST - CLS  LLIST @ LOAD 201(C)6~ MERGE bj-▙> RETURN wPI LINE  DIM ▗GZ OVER  GO SUB  DRAW  PRINT INT  CLS v▜@ PLOT   NEW [Q] OR ABS INT ,a INPUT  FOR  OUT  POKE ax@ZSTR$ <>:}▗ THEN ?2COS  PRINT  PLOT  STR$ 'CABS J CLOSE #[M]2[D]STR$  BRIGHT  COPY <>' STEP j CONTINUE TAB mdTAB ACS  CLEAR ASN } AND 0<>CODE  RESTORE  LET w©w<3 NEXT NOT k COPY  LLIST  SAVE  CLOSE # COPY  OR INKEY$wV[B]ACS  OUT ▛EXP  PRINT [D]:[F]} LOAD SCODE  CLS  DEF FN g[E] CAT  RETURN F INPUT YxAT  RESTORE 2 COPY  DRAW CODE  ▚!▜[T]7n[R]▖ THEN ▞ CLEAR  OUT Xr COPY  CLS sSTR$ PEEK  LIST  LPRINT [O]Z}[K]: BORDER  REM  SAVE  DRAW  PAUSE b?[Q] INPUT  BORDER p STOP  BORDER  DEF FN USR  DEF FN  INPUT 0 ERASE  INK ▛P` NEXT r OR  READ 6 DEF FN [M] RESTORE  OPEN #NOT m DRAW COS C▝ IF  PAUSE [D];NOT USR  PAUSE @ LINE RND[T]X>=?EXP ,USR [I]/s[M] TO  LPRINT s[P]/c`▚ LPRINT c RESTORE JS,l[P]/C©▚ LPRINT C* BEEP Kl LLIST  COPY CHR$ : FOR qCOS  DEF FN _ FOR AT @{ DEF FN :lAT COS [<: FOR wgAT  DEF FN VSGN ) MERGE  PAPER 0gSQR SIN v]/[S]<z=SQR [C]][O]▘ CAT .r[H]G[T]gbCOS  THEN R RESTORE  MOVE  CONTINUE  INK B GO TO  PAUSE 2W POKE )Jz FLASH SQR [U]SIN 8 FOR SQR >= BEEP ATN |VAL$ o@ INVERSE  OVER  FLASH 3 INPUT  DATA  BEEP ATN PEEK VAL$ o[Q]] OUT rSQR PEEK _v}PG DIM  PAUSE  PAUSE Y RANDOMIZE [C][O] DIM  RANDOMIZE [C]3] RANDOMIZE [C]SCREEN$  THEN n CAT [I]> RANDOMIZE ▘[J]. RANDOMIZE ▘ OPEN # RESTORE INT < RANDOMIZE ▘6[R] DIM , RANDOMIZE b DIM  PAUSE ][O] RANDOMIZE b THEN 3 RANDOMIZE bSCREEN$ [I]n. CAT  RANDOMIZE B RESTORE [J] RANDOMIZE B< OPEN # RANDOMIZE B[R]INT [S]3J INK [L] LLIST  ERASE  IF COS  MOVE STR$ UCODE LEN ABS  REM [R]SCREEN$ W[B]▝^ PRINT q VERIFY ATTR aZ INVERSE  NEW ATN  LLIST  FLASH zW<> LIST CODE [C] LET ^% INPUT SGN J LOAD y[F] GO TO  PAUSE * GO SUB  BORDER U REM COS 1 OR  NEXT ATTR ? NEXT VVVAL$ , LINE U+WEXP 5 READ  INVERSE ATTR /[H][H]~ FORMAT T FORMAT V FORMAT LN J OPEN # FORMAT +c INPUT  OPEN # FORMAT 2▚ INPUT  OPEN # FORMAT cLN  INPUT  OPEN # RESTORE 6 FLASH NOT  LLIST ' FORMAT NOT  FORMAT ▟+ FORMAT cVAL  INPUT NOT ▚+ FORMAT *5 INPUT NOT  FORMAT COS  FORMAT  LLIST  INPUT COS  FLASH  LLIST  PAUSE NOT  FORMAT * FORMAT POINT STR$  FORMAT [T]W FORMAT  INPUT [T]pe FORMAT W AND  INPUT [T] FORMAT f INPUT [T] FLASH [U] BRIGHT [D] FORMAT 1 DRAW  FORMAT e SAVE  FORMAT ACS qe INPUT [D] FORMAT  AND p INPUT [D]/RND FORMAT  FORMAT [O]1 INPUT  FLASH 1/ FORMAT e SAVE  FORMAT XQ*5 FORMAT s FORMAT  LLIST  INPUT s FORMAT VAL$  INPUT s LLIST  LINE  FORMAT  FLASH  INPUT s FLASH [P][E]c FORMAT ?▚ FORMAT VAL$  FORMAT STR$ 6VAL$  INPUT c FORMAT  LINE  INPUT c FORMAT  LLIST  INPUT c FLASH VAL$  LIST k=LN TAN  NEXT  CAT /? READ  RANDOMIZE <>b▝ CAT  DATA  OPEN # DATA  BORDER NOT " BORDER  DRAW CODE COS ~ NEW <>[T] TO U RESTORE [D]ATTR  DRAW [I] SAVE [J]LEN  NEXT crk<?▛▝PI LINE ATTR [S]SCREEN$ USR NOT ?x OVER  NEXT ATTR  BEEP ▜/ FOR  GO SUB s CLOSE # CLS  RANDOMIZE A MOVE {INKEY$SIN w,kTAB -$ RANDOMIZE ICHR$  MOVE } AND  o PAPER  CLS  NEXT | VERIFY g LPRINT PIsSQR  CLOSE # THEN ©▛ CLOSE #V DEF FN ABS } VERIFY oIN ▛ RANDOMIZE  DATA IN ssIN  THEN IN [C]yH▛ MERGE  CLS s<> ▛ MOVE ORv[T]9 PRINT { NEW [D] PRINT _z PRINT j INK W MOVE ATN ▛>SGN [P]COS <= STEP  CIRCLE R<>LO FORMAT ATN PEXP ~DA,#7F NEXT  DRAW E RETURN POINT IN(#FE CONTINUE  DRAW  ERASE  LOAD  CAT RCAs LINE J©<>NC,STAR1 RANDOMIZE ~ READ SQR F|SCREEN$ SQR ( RUN OIVES+1), LET  REM BIN TVAL  CIRCLE BPOINT [O][D]LN I LOAD L[B] CIRCLE FO;8HAGE CAT  DATA INT  PRINT D5 LET [C] SAVE IT$▝[F] TO PI[J]TAN [F]R NEXT T[G]9 COPY USR R:IN ▟~75q BEEP Z,BIN  PRINT j▙ PAUSE [I] VERIFY B^zEATTR _ RETURN  BEEP W[ PAPER GCAT  FLASH H~ep5A FLASH R RUN  PAPER  DIM  TO  TO  MERGE oYg STOP SIN  DRAW 1 RETURN SIN CHR$ A INK "0: RETURN 1.CY[P]J[U]© IF 1poiCOS ntxspe©dabo STOP lute: SAVE y harmes[K] RANDOMIZE  GO SUB PO OPEN #C AND ▛ LINE 2 ERASE sf DRAW  MOVE o<=$ MERGE COS f CLEAR cY LIST o BEEP c INK  CLOSE #ACS  PAPER 3LN  BEEP angL& INVERSE  LET sfD0[L] NEW liv DRAW SvR▝MKe44 OPEN #fu▝ [I] INPUT s TO >=<ty CIRCLE ` STEP LSE NEXT  5 DIM yATTR tim RANDOMIZE ATTR LUNATS POKE 6 INK  COPY  OPEN #wj2LEN  FORMAT !i[A]▝mVAL$ ▝ FORMAT h] OR <= LLIST  CIRCLE [L]AT RNDABS  INVERSE [P]PI RUN RND▘C2DITS INK  RANDOMIZE o MERGE  RANDOMIZE  FORMAT 3 CLS KEXP )O▝SQR 50%INT ▟ NEXT [T]EXP [R]&[A]astVAL [K][B][E]IN ( TO ?:[J]RND©~z%# RETURN  THEN  NEXT GRA`&[G]-o[S] NEXT st^>=▚/t MOVE ce'd COPY  CAT SOjCOS  PRINT D)AX[D]a[K] ERASE ds LOAD g[S]f RANDOMIZE [T] LPRINT [Q] RESTORE Lj[I] RESTORE  GO TO ehoGa OR  RESTORE [I]/woBu BRIGHT <▛bnSGN 83.5km MOVE va[Q][G]xPrA LOAD 6VAL$ Wq FORMAT bu>= DEF FN [A] CLEAR d_p OUT  READ >=5.6 DRAW  THEN <> INK W DEF FN  OVER p CLOSE #[H]Z CLOSE # AND ? LIST  DEF FN 7 FOR g LOAD 8 DEF FN :<=mid!_ TO INKEY$[Q]!Py:[O]agiSIN ▙ INVERSE [M]?[M] AND 9. SAVE gCODE CODE [D]P▘T=a?bLN  DATA ? AND  OPEN #1.3©9ex READ  SAVE  AND POINT CODE  INVERSE  RESTORE  PRINT  OR  MERGE m[L] INK qq STEP USR ATTR {wv|[R] LLIST INKEY$ DEF FN  MOVE STR$  LET ▜ PAPER  INVERSE NOT ATN  CLS <><=EXP  CIRCLE GAMACODEC`11hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.