BestView: BV 2.7.B

  10 REM  CLEAR  THEN INKEY$v!USR @> STEP p^u~PI PRINT  STEP n^ LET  LINE =CODE  OPEN # RETURN !XuX COPY  GO SUB VAL  MERGE !© RESTORE  STEP `^ LLIST  MOVE  GO SUB VAL  RESTORE  RESTORE  RESTORE T] NEXT  STEP [ CLS  LLIST @ GO SUB VAL v GO SUB VAL !VAL$ ^ STEP ▝^ LLIST  STEP p^![ TO  GO SUB VAL  LLIST  NEXT  STEP [ CLS  STEP n^!` RESTORE  RESTORE p STEP `^CODE  STEP v^> FORMAT  STEP v^! TO ^ STEP ▝^ LLIST  MOVE  NEXT  STEP [ CLS > STEP p^![L] OPEN # GO SUB VAL > STEP p^!VAL USR { GO SUB VAL ![A]ACS  AND t GO SUB VAL !SQR  CONTINUE E GO SUB VAL >2 LIST  STEP n^!USR [M]  OR  MERGE  OR  MERGE  OR  RESTORE  MERGE  GO SUB VAL > STEP p^ LLIST  MOVE STR$  GO SUB VAL  STEP n^! LPRINT  MOVE STR$  RESTORE  GO SUB VAL > STEP p^ MOVE  LLIST STR$  GO SUB VAL  STEP n^v!-- STEP PI^!/6~PI( DRAW 6NOT `CODE 2] GO SUB [ POKE /<>> CLEAR © GO SUB y<>* INVERSE  RESTORE NOT /=v=@  GO SUB [Q] GO SUB [Q] RESTORE  OR z NEW  { VERIFY  LPRINT _z VERIFY WSTR$  LLIST yPI  DATA !FF"=X"]X<>© RETURN A RETURN ] DRAW A DRAW © RETURN ~~|>|>~~© RETURN ~~~~~~{ OVER © RETURN ©©©©©©@ RETURN @ RETURN @ RETURN @ RETURN @ RETURN @ RETURN © RETURN 
  20 CLEAR VAL "24575": RANDOMIZE USR VAL "23872"
  30 CLEAR VAL "65367": RANDOMIZE USR VAL "15619": REM : RUN "PROGNAME" 
  0 2.7 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 <>HR DEF FN //////[G]`SCREEN$ ` COPY CODE  COPY  REM UNATTR ACS / COPY ▝ CLEAR  INPUT [ FOR  DEF FN  NEXT @ STEP  BRIGHT 6 RETURN EXP ▝a TO 0LN ! COPY  REM  IF ATTR SCREEN$ ▙SQR <g FORMAT  LET STR$ y LIST 87 CAT  OVER p0COS SQR  CONTINUE  LPRINT  GO TO  OUT USR 7 LOAD  CLS  PLOT   PLOT   PAUSE [R][ IF >8 RETURN  COPY IN  DRAW  COPY {6 CIRCLE 8 PLOT  USR VAL  RUN yCOS [L]3`ACS -FN sp COPY  PLOT  + NEXT USR STR$ IN c BORDER c▙8VUSR  CIRCLE /©[G] SAVE gnCOS  INK { LOAD ATN ^z[J] RETURN 3UPNOT q CLEAR 4RNDT PAPER [O] LOAD  LIST  SAVE  LPRINT VAL  PRINT P ERASE : CLEAR  CONTINUE NOT  CLOSE #| COPY ASN x9ACS USR mVAL 7~ FLASH  FORMAT  CLS ▖© RUN  RUN ZNOT ▝[A]USR  NEW  FLASH lSTR$  STOP USR  LLIST ` THEN ;o1IN 5[T]J` [P] RANDOMIZE  ▘ PLOT  CODE a▝N CLEAR ABS [Q][R]=~FN [J]6 FORMAT USR ,VAL USR LEN ^ SAVE ~ RESTORE [D]< STEP  RUN d BORDER [L]{[Q]K FOR ? DIM  RETURN  CLEAR o OR ▝LEN fVAL  DRAW 54VAL FN  CLS _@ LPRINT [M] STOP U@P LPRINT | PRINT IN TAB ;ABS nXRND DRAW /USR INT x▛ PRINT SCREEN$ r? COPY PEEK ATN  VERIFY p8  DIM Ve RETURN m DIM  SAVE  STEP ▝ FORMAT qK CAT [B][B]▘= SAVE 9<NOT  RETURN  PAUSE  INK  POKE [L] COPY L IF >= LPRINT  OUT  RETURN g©a 5[R]6©` BRIGHT ~INKEY$ OUT k%<>K CLS  PAUSE  LOAD SGN ▟ RETURN rk INVERSE USR <▛FN { RUN  LIST f~ CAT [J][G] TO `NOT ▘KPEEK  DRAW [H][G] INPUT }U AND L CLEAR @IN a3©@ LET ▘PEXP  CLOSE #~. INPUT ` SAVE  TO  CONTINUE P CLOSE # BORDER  NEW  OUT LU LOAD SIN xCHR$ [L]@ MERGE ▛[H] NEW  RUN  GO SUB  PLOT   RUN  LLIST [I] READ  NEXT + CIRCLE  IF U INPUT ▝ DRAW gPIN  PLOT  ©`[S] SAVE  CLS  CLEAR  LOAD 1 CAT ^x DRAW  IF ▛ REM  7 v/ COPY  STOP ABS © i CLEAR  RANDOMIZE  RUN  LIST  SAVE `p CAT <= PLOT  / READ  RETURN IN ~> CIRCLE l BORDER [J] READ [I]2 DATA  REM  OUT <=  FOR  DRAW  COPY ~ CAT  LIST  0w[K]0`ASN YVAL <=ATTR @ RANDOMIZE s LET U PRINT ! CIRCLE [M]: COPY fVAL$ EXP 4  LPRINT 18 PLOT   LIST  RANDOMIZE  RETURN PEEK ` <=NOT 0 CLEAR R CONTINUE ? STEP  <6USR mACS  FLASH PEEK s [N]F LPRINT kQ▝ FLASH  RANDOMIZE  CLS 6 THEN ` LIST  LPRINT OK@IN  PAPER F FLASH l▜ACS 1LEN ▝o▙ PAPER `▘ TO l CONTINUE  LOAD 0NOT b[K] TO a LIST STR$  AND [M] DATA ▜USR  BORDER 1 READ  OUT 9m NEXT USR  COPY  STOP [L]m▚COS 6a0[O] FLASH POINT [H]USR X INT SCREEN$  REM G CIRCLE |0> LPRINT /=7USR ▘8NOT  RETURN ` NEW  CIRCLE  PRINT c▛` INVERSE >[J]P@@CODE ▖ PLOT  USR 1 BORDER  CIRCLE y▜USR  FOR Yu FLASH &©▘USR  TO @ AND  TO USR 0`&`LN INKEY$ SAVE aCOS [T]© LLIST CHR$  LPRINT CODE Nd INK  SAVE  NEW  DEF FN x READ [M]| BEEP |▘COS [O]8R RANDOMIZE PI NEXT USR CNOT cINKEY$f1INKEY$▚X6 RUN 1COS 2▝ CLEAR © PAUSE G[M]STR$  RUN VAL  LOAD  LOAD  INK 9ATN ▖ VERIFY [USR W COS 2] DIM  FLASH fd TO [K][P] CIRCLE l@^S POKE x@ OUT l NEW  GO SUB IN  INVERSE USR IN [O] LPRINT S PAPER ACS ▘L*g▗STR$  NEXT gwUSR  THEN  COPY C▙e READ [I] DEF FN m0<>[U]^ NEXT eCOS [J]}[G][D]PEEK  CIRCLE  LOAD R?* LPRINT A|[Q] CLEAR  NEW  CLS f` READ INKEY$ PLOT  X9▚^1IN [K][D]USR INT  LPRINT COS  PAPER USR POINT SIN  RANDOMIZE CODE  IF C[P]d NEW slVAL$ #gLSUSR  LIST @ BORDER  REM USR  9POINT  RANDOMIZE [H]1[G] DEF FN e▘▙a PLOT  B CIRCLE @ CLEAR _X @  LPRINT STR$  LPRINT USR LN !STR$  STOP USR CHR$ * _USR  LPRINT m7LN  LIST  BORDER [P]; NEXT [O]s< DATA [R] CLEAR  READ IN  LOAD  RUN G[L]Lv;x LPRINT + PRINT   SAVE D DRAW SQR   LOAD 0 FOR   DATA  LPRINT GE LPRINT 8 DRAW   RUN SGN ABS d[O] ACS  PLOT  cUSR SCREEN$ (FN _`[I]8 DATA  CIRCLE @l READ  FOR   OR L MNOT INT  RETURN D< LET USR ?xzOh6y PRINT  DEF FN USR  MERGE UF OUT >=ATTR ▝ CIRCLE l AND  FLASH  INPUT  PLOT  [H]? MERGE  [P]o  CIRCLE 1VAL ^z PAPER ` SAVE m RETURN m  RANDOMIZE s OVER }VAL ~ CLS © LIST @ NEW  POKE USR 9 BORDER WLN  CLEAR  LIST ? NEXT  SAVE USR [L]mVAL EXP x[N]63SQR [L]SQR  6STR$  MERGE USR UINKEY$? L LPRINT r ?VAL$   CLS /SINKEY$u ▚*▜@(K MOVE {[L]y@6 READ USR %USR  INPUT m 6} DIM  VAL :M LINE  RETURN USR `{ GO SUB  PLOT  STR$ ▚ OVER NOT SGN  COPY ^ CIRCLE y NEW  OVER Z| 1O▚ FLASH x SAVE }` PAUSE  LOAD  AND 0 LET  THEN  TO VAL$ j X MERGE TAB  LPRINT  COS  DATA  RETURN  LPRINT  RANDOMIZE SIN  LPRINT @0c6Gzo▘ NEXT 6CATN USR  ZINKEY$ ▖NOT SLdSTR$  CIRCLE & LET  RUN lVAL$ ©Sl BORDER VFN ▜ PLOT   @ DIM [L] USR  COPY  ERASE PEEK VAL INT  RANDOMIZE 7 [L]| AND  DEF FN -D PRINT  THEN  COPY sC LPRINT  TO  STEP STR$ ▜[I] FLASH  OVER  CLS x[L]) CLS [H] MERGE n OPEN #ATN NOT  TO K} RUN  TO  CLEAR [USR [L] CAT  y LIST  LET [N] NEW )X RETURN #SGN <>  LPRINT |3< INVERSE NOT < OR  OVER a^CODE USR UW LOAD h[O]@| LPRINT ▖s[E][E] ERASE  DRAW 8SV RETURN  VAL f7FN  LIST [G]3 [H]@USR KQj RUN @[F]rM▘ STEP  NEXT CODE  FOR y PLOT  ae` REM VAL$  THEN *▝ LPRINT  CIRCLE  DEF FN 0 REM  GO SUB  VERIFY  LLIST P TO ©USR  NEW _lNOT [J]`s BORDER < PLOT   LPRINT < INVERSE ASN  STEP  OPEN #USR  AND z ACS  AND 6i>VAL ▞[M]CHR$ 6[E]IN VAL b[J]`$ LLIST 9LEN B[M] BEEP VAL 6 CLS `aLEN ▟VAL  FLASH  COPY U_VAL [©#P}NOT SCREEN$  OPEN #LN [Q] INK |= INK 2 FLASH ! AND `0 INPUT _EXP  DRAW [Q]O LIST  BRIGHT bl:9FN  LOAD 6SQR ?c STEP PEEK  RANDOMIZE  THEN  INK  INPUT ` IF  STOP  CAT # COS ▚@ RANDOMIZE q PLOT  9[A][L][C] RESTORE  THEN  LOAD SIN  MERGE [ SAVE  INK 3 COPY USR i& OUT  `s:[M]a LIST > LET VAL S: STOP [S]T STEP 6[ [N]>~W8{f STOP _ CLEAR 6c<s` RETURN [B]ACS  LLIST IN L= NEXT  TO 0 BORDER 6 COPY ` AND EXP  STEP [I]cmPEEK  STEP  OUT  LIST x CLEAR  LET n[M]_W~ATTR }{/▝ FLASH IN  OR ` DIM ]6PI ▘ LPRINT IL[Q]9x! REM  CIRCLE VAL 6 FLASH @2bu:0CODE VAL$  POKE  OUT ©pINT sINKEY$6 INK  LPRINT  COPY  RANDOMIZE L PLOT   TO 1aACS k7NOT 6mF CIRCLE STR$ [L]`ACS 5FN   RETURN  LIST }COS 08 NEW _ STEP [A]6 THEN 9ACS  LET PEEK qCHR$  COPY  REM U AND  PAUSE  GO SUB [C]IN T[P] COPY STR$ ▟SIN NOT ,6 CIRCLE f COPY CODE 'PEEK ▝COS  OVER y LOAD ▖{v? AND s<=;g6y[L]<r  RANDOMIZE  PAUSE  VERIFY COS VVAL ©9% NEW I PAUSE  OUT [M]q RUN ▙  / RANDOMIZE  NEXT  LOAD INKEY$ BORDER ▙  OVER ▘ RESTORE IN [O] LPRINT 7 MOVE  LPRINT  BRIGHT _[F] DRAW  STOP oQIN  RETURN  BEEP  LOAD IN < INK ▜y AND  RANDOMIZE ▜AT  INK >=qp [Q] RANDOMIZE  INPUT   FLASH mVAL USR ▖yB CIRCLE [O]  c SCREEN$  OVER CODE TAB USR  READ  CLS k[Q]p* STEP VAL | m NEW  FLASH a LPRINT 0▘ASN  CAT > RANDOMIZE  BORDER  OUT [L] LIST © ▙m LIST ?}IN USR 8 BORDER [P] SAVE SGN 0[L]▝%  IF  DATA  FLASH INT [U]▟`[T]▞ LINE O▜[P] CLS sRND INVERSE aUSR  OPEN #x PLOT  yAT ▜[P]<>VAL  NEXT  OUT SIN  RUN [P] FOR  NEW  F  RANDOMIZE COS  GO SUB  RETURN   CLS |▝ LLIST  RUN RNDCHR$ TAB [I],p INPUT  REM [M]qUSR > SAVE [P] COPY L[T][A] DRAW 1▝<=rUSR ▞ CIRCLE © NEXT 4p9 STOP [S] READ e`w POKE  PRINT M▛`IN  DRAW  PAUSE -[G]w,▙ OUT 5p PLOT  m  GO TO +USR  IF ACS 2 CIRCLE VAL  LPRINT }[0XVAL ▝| PLOT  m:[Q]a9 n7` COPY v>3 COPY  OVER [A]*:? CIRCLE ATN AT  CONTINUE @sVAL /} LIST BV_PIC  C@hrust-packer v1.2 by Dima Pyankov,HRUSR o DRAW > TO "▘ GO TO  AND ▟/ VERIFY X RUN  GO TO  LPRINT n[P]COS @ NEW [B][O] INVERSE A PLOT  VAL$  INK ▟k, LIST ATN = FOR ▘O  FOR  INK  NEXT >=[R]{g=W6=SQR  SAVE  BRIGHT STR$ AT gFN [A]y[O] PRINT dP MOVE COS =,=SQR  DRAW  INPUT  LPRINT AT g CLOSE #>=ABS [O] PRINT SIN FN  VERIFY COS [P][G]▟ CAT z~w FOR Ypjd^g=YT PRINT AT PKGCCOS [O]?<z VERIFY 852/Y CAT -*= FOR (&$AT g" [O] PRINT  VERIFY COS  CAT z FOR Y AND = SAVE s CAT 3[R]7n[E][U]COS 7 CAT m[O] INVERSE INT g POKE  GO TO  FORMAT ▛J CAT n ERASE [L] INPUT Yg7 INVERSE TAN Y CAT ▟h= FOR F% FOR  INK  DIM  DEF FN TAN [L]g=▗n PRINT AT ZF4#▟[O] CAT  TO  PRINT  BORDER [S] FOR Y DEF FN CHR$ ATN TAB g=[T][K] PRINT AT [B]▞▘zCOS [O]smz VERIFY ga/VY CAT RM= FOR IEAAT g=:6[O] PRINT 31 BEEP COS .+)' REM TAB BB<kD[I] COPY BCOS  OUT !ATTR  THEN NOT  USR [T]AT [E][H]0 COPY "COS USR  FOR !LLN SSTR$ /CHR$ ©SGN ANOT +~#f'<oh LIST ▗p3 DRAW VNOT >2 STEP Hv RUN "0<> READ  INK _[R]BIN CODE 2_ OR q MOVE z▞ AND [J]x[O]<=<ATTR USR  LET [R] RUN [S] MERGE  INVERSE  LLIST TAN ~I NEXT NOT fnG NEW H>=$"ACS USR ![N] THEN CODE w# DRAW !SCREEN$ USR 'RFN  INVERSE INT 9NOT CODE SGN CODE >=PI REM CODE [U] THEN [N]<>'STR$ NOT VAL$  STEP <>lCOS  1D COPY  LET  RETURN  COPY   LLIST  RANDOMIZE  TO > PLOT   CONTINUE  LOAD  BORDER TAB  IF STR$ n OVER  GO SUB sPOINT " INVERSE CHR$  STEP  VERIFY ▛▛▛ DATA  LOAD STR$ c[K] ERASE CHR$ <= FORMAT :BIN   GO TO MPIB RETURN |8'[M] RESTORE [Q]B REM USR a VERIFY IN l~USR ! INPUT STR$  GO SUB C>NOT LN l RETURN ~6 GO TO [P]}(#NOT  LET USR 8[N]gS PRINT W VERIFY NOT [P] >2c<>▝ NEW (jhLFN  THEN  LIST  PLOT   INK  INK ▝<>Nu SAVE  VERIFY ▜&[B] INK o TO ` CIRCLE NipS<>©) DRAW [Q] LOAD [C]Y CLS %k(=c:[K]~ PLOT  * INK  CAT /2FN  CLS 9# OR SIN  NEW NOT [H]2tINKEY$ INK AT  CONTINUE ~qe STEP e▝ LPRINT eU[T]TAB `USR t[N]>=[Q] CIRCLE d2STR$ !▜n RETURN + RETURN z PAPER |CHR$   PAUSE CHR$  VERIFY NOT # FLASH } FORMAT }n MOVE SQR [U]AT Z PRINT ^ PRINT + RESTORE INT ! MOVE CHR$  PRINT 6 POKE CHR$  PRINT 4E MOVE  PRINT  DRAW STR$  PRINT [U] PRINT SGN  DIM  PRINT BIN $  PRINT . STOP  PRINT LEN 4 LINE  RANDOMIZE  OUT  PLOT  FN  RUN w[M]BIN [E]T RETURN  SAVE  THEN [O] RANDOMIZE LEN "[D] RANDOMIZE 'CODE  RANDOMIZE $f MERGE LN  RANDOMIZE VBIN ▘g RANDOMIZE [M] RANDOMIZE RNDi RANDOMIZE sSIN  STOP % RANDOMIZE  OR V[R]1o LPRINT !SQR NOT  LET V PAUSE IN  OUT CHR$  CLOSE #ASN  PRINT  INK [A]8SIN }nIN  RETURN g INK  TO BIN / RANDOMIZE o[G]SGN  LINE INT USR =sin RESTORE  STOP ]K[K] OR xV<>POINT [K]V! FLASH 1COS  LPRINT  FORMAT : INVERSE [S]ATN CHR$ u OR 3[R]PEEK nwCOS  TO 2[M]v[N]SCREEN$  COPY #d LET :▞ AND LEN O THEN 0# INK ASN D OPEN # GO SUB ([B]L<= MERGE  THEN  CLOSE #INT  BRIGHT [I] CLOSE #$ INK cSQR (TCK-COS . RETURN }b RUN  COPY }/o#[K]) PLOT   LIST ATTR  NEXT  PAPER  LLIST f[T]1: STEP ASN  OR ▜ LIST <>9 CLEAR  MOVE *[P] THEN ATN  GO SUB RINKEY$0#ASN  OR  THEN | INT 1 DEF FN <>#8[J]o LINE { THEN ▝<= IF CHR$ w( PLOT   GO SUB D OPEN #Y}# BEEP ![F]TAN 2yCHR$ ▟ CLOSE #qy SAVE wB[O]<= OPEN # STOP B>= POKE  INPUT CODE ▟1INKEY$>= LPRINT >=/SIN [P]ASN  INPUT  LET  CLOSE #jTAB SQR B AND VUSR ▚a:▛B:B&B7© OR B[R]`&B[T]1MB LINE AT [O]` THEN &BNg}9W+7[F]f PAUSE BN7[U]q[O]:▘USR  CAT  OR 2|J[D][P] RANDOMIZE [I]J?B▞VAL$ RND THEN  BRIGHT | LINE S LINE ▗LEN  ERASE STR$ KSGN  OR  FORMAT BIN  RANDOMIZE STR$ ▝z PAUSE [G] OR  VERIFY SCREEN$ W LLIST  LLIST V8y PRINT  RANDOMIZE "ATTR  OR IN  PRINT  THEN C NOT ATN  OR &[O] THEN  CIRCLE  DRAW [N]▛ GO SUB s▞ OR  ERASE 2{BM=Js<STR$  OVER ©WSCREEN$ ▖ FORMAT  OR  THEN g▞ ERASE ( FOR ATTR USR 3[L] THEN PI DRAW  OVER }[N]< MOVE W{ NEW [C]jPOINT ▞}#5SPEEK  VERIFY INKEY$ IF  AND  BIN ATTR 2[U]Io|EXP  TO  LLIST  RETURN [I] CLS  CLS  MERGE  AND ▗ COPY SQR *[M] LINE ~ INK  THEN c <>[I] PLOT   CIRCLE ?[P]COS [O][<>g GO SUB K▛VAL  NEXT ▜ STEP <>ACS  RANDOMIZE [T]{WTAB  CLEAR * STEP  OR "l AND ?Z% READ ?x CLS [K]<=AT ?[C]?▚)A2; READ 3VAL$  POKE  LET [J]V[Q] LET M LET RND AND [H] RETURN  LET INT I/SIN  LET  AND [P]SIN  LET  NEXT hG LET AT p` LET !H LET YF FORMAT O-[P] LET  NEW O: LOAD LEN 3▝ FOR '7x<= FOR [F]▚ INK v.HVAL  DIM  FOR (<=, FOR 9S▘ FOR  BRIGHT  STOP  LOAD  AND "▝<= FOR ▟STR$ GI FOR b LINE ; FOR  MERGE +ABS  FOR PI FOR CODE ATN FN 3 FOR  LPRINT MCODE AT  FOR INT <=[H] RETURN  FOR  CAT I/SIN  FOR  FLASH [P]SIN  FOR TAB <=[N]G FOR @` CIRCLE  FOR  POKE <=t FOR ^[R] FOR 0VAL  REM $x REM >=▚7 REM ▝ SAVE ▗uDUSR  REM >=fVAL  REM 8O REM  LET <="▟IN [H]>= REM [T]>= SAVE  REM [J]INKEY$:[O]4 RETURN s AND IN  COPY  RETURN . RETURN (#<B GO SUB yCATTR = MERGE CHR$ i[N]> COPY ASN [B]i[D]dATN CHR$ <>q[L]©KINT [C]q FORMAT  OVER >qG: OR SIN qo FLASH >=$[O]P▞ CIRCLE  INPUT q DIM  VERIFY 6RNDo COPY q LLIST [J][ OR q DATA  PAPER  OVER  NEW q INPUT q4 INK  INPUT q[N]q[I]INKEY$CODE  INK q LINE {[G] THEN f6q} STOP t AND lqNACS y RETURN _ INVERSE  RANDOMIZE / BRIGHT ,ABS  REM n}{PJ CLEAR  LOAD  FLASH 6POINT _RNDA{) RESTORE  IF  RETURN  LINE ▛ INVERSE Q GO SUB A LINE TAN GR^ PAUSE #5 LINE P7F}[O]>=Q^ ERASE ACS ACS ` LET INT INT `" REM ▘ OUT FN [E]+QP[T] RETURN  LOAD ©![F][G]n TO U DATA t[D] OR UCBIN 9r/y AND STR$ [U]L[F]oq[E]CHR$ ?' STEP LFN  LIST ▗PI READ RNOT >m<=..)>=E<> VERIFY ABS ©BIN  FOR  TO 2W DEF FN :vAT COS ▝: FOR [S] CIRCLE ▛ DEF FN  PLOT   CLEAR $*COS [P]Ml~ PLOT  w INK  CAT [I]? CLS  DEF FN  GO TO g GO TO  RUN L CLEAR  REM  AND C[P] CLEAR b POKE COS m PLOT   OPEN # CONTINUE  AND ▙BIN  CAT ~ STOP  LOAD  VERIFY [T]-g RANDOMIZE < CLS  CLS  ERASE  PAUSE  NEXT K SAVE PEEK OSTR$ !▜ TO [J] OPEN # IF USR " CLS USR [L] NEW ^ LINE M CLS ▙ TO INT W`COS  FORMAT J<INT =.CHR$ 2POINT "SGN ' STOP a▛4STR$  TO  STOP &CHR$ TAN  OPEN #[D]<= CODE y) PLOT  W8,g2g:B LPRINT zASN u|(Zk NEW 5INKEY$ VERIFY  NEW D NEW  AND O CIRCLE COS !%CHR$ NOT  GO SUB >PIx DEF FN  RETURN [O]a BRIGHT >3 INPUT  LPRINT SGN %U PRINT Wb COPY VLEN  VERIFY v"F CLS ATN 1[O]NSIN  COPY M STEP  FLASH ▛ MERGE [F] CLEAR TAN ,COS [P]167 RUN ?#hSTR$ y[C][K]ATN [A]COS  AND  INK [B]~▟= STEP ACS ▖SCREEN$ ▚PEEK +CHR$ t FORMAT ▖SGN n2Uo FLASH ▜ CIRCLE [[R]W OPEN #0>= CLS  LPRINT  BRIGHT ACS : CLS ASN K7 RANDOMIZE 6INKEY$u( FORMAT [M]{INT 5![K]INKEY$<KL ERASE USR !COS I AND [C][O]sH<=ACS #[E]$[J]C)SQR  DIM  INVERSE =[K] INPUT  DRAW CODE XSCREEN$ [U] NEXT  OUT [U] COPY [K]< OR [B] FLASH [J]C MERGE ABS NOT 0$▝s NEW I▚SIN AT BCOS BO&[T]~TAN  LET FN CHR$ l▖<▞2E MOVE ▜ CIRCLE [R]r L[H]4PEEK S▟fY OUT [A]* RETURN 4Un MERGE VN[F][K] FOR U2 AND Ut[K] COPY U9L[L]aV GO TO  LINE e![P] CLEAR )>ATN -S9#H[C] NEW W|COS !Wy= INVERSE 6[J]HtSCREEN$ ▞W VERIFY POINT  LIST 2Y COPY $ RETURN [P] BORDER S$<PI<=POINT  PRINT b DEF FN rz9 DRAW r PAPER NOT TAN Yq+[O]Kpv LINE l PLOT  }+POINT t COPY 7s6Jrs/ ERASE ;! LIST [D] FOR  SAVE USR :ATN  READ  INVERSE CHR$ <=SGN  CAT  INK FN ATTR  OVER 8[C]▚CHR$  BORDER  OR  PAPER  DEF FN [E]y)Y?! FLASH AT  PAPER Ygv  FLASH lCODE  INPUT  POKE [K] DRAW 7?u[Q]RND FLASH ::3 INVERSE  RANDOMIZE i TO <=IN &H MOVE . MOVE EXP O MOVE  BRIGHT ATN  :[R]JINKEY$ LET  PLOT  fVAL$  AND dATN ABS [C]! BRIGHT ▛ NEXT [L]IN ABS nL INPUT 9▟Nt|s▘64:[P];[L]; PAPER  LINE y CLS ^#V*▜ TO 3:p[K]|: THEN {[D] THEN <= DRAW ©[N][J]:RSCREEN$ 8POINT PI PRINT [I]:^s GO TO TAB G^ PRINT  OPEN #5b)>=AT 4u&6[N]▘9<>f[I]']g IF TSGN  NEW SQR Z© RANDOMIZE  CLOSE # VERIFY ▟[U]-TAN /jH7 MOVE  GO SUB  STOP _ BRIGHT FN  LINE [D]▟ABS  BRIGHT [F]ABS L[L] DIM ©x▞▙▟[C]D FORMAT @ RETURN [J][L]&7▞M`p1 THEN ( THEN 0b<=[J]"R8[N] OR SCREEN$ NOT [I]:^ PRINT 15|SGN  REM INT jk64LP[J]VAL ATTR t VERIFY FN [O]a PAPER 9' LINE D[N][J] IF p7L INK LPOINT  STEP [L] VERIFY L NEXT ITAN VAL$ ▞gC©INKEY$b MOVE [Q]SCREEN$ <>m BORDER <>FABS  BRIGHT C^INKEY$[L] POKE IN (D<=▟VAL$ [N] CONTINUE v3[L]n DRAW ▛USR Lpc[K] THEN  OPEN #( THEN <=▙ 0 LINE [N][J]RSCREEN$ 8 STOP  LPRINT  STOP BIN cj: PAPER  VERIFY  STOP 1INKEY$AT  FOR  GO SUB  AND ^▞SQR 5S▘1$ DRAW  DATA <= SAVE <>VAL$ o: TO NOT %>=▜] LOAD 9O FOR STR$  PAUSE ' CONTINUE  RETURN V8E<> LOAD  THEN y * OUT [O]"Bq 7[Q]PI0 MERGE o BEEP  BEEP [E]1} COPY i^$1PEEK  NEW N GO SUB s PAPER  INK  PAPER _5 NEW w INVERSE l<= INK ▙ LLIST  OVER [U] FLASH * LLIST  MOVE [E]INT ▙4 STEP ABS  RESTORE TAB  CAT PEEK [A]rTAN  DEF FN  DRAW  CAT VAL$  CAT  RETURN  CAT ▚ CONTINUE ~ THEN  RESTORE RNDe> RESTORE  TO i RESTORE } DEF FN : INVERSE  READ [C] TO < NEXT <>LN  INK ▝[D]v BRIGHT ▟6S CIRCLE {3i>=^ THEN sxATN 3kNOT  BORDER 8 OUT  LOAD SIN  REM [A] REM A<> OUT  POKE  REM =>=▝ REM WKA REM - STOP X REM  REM [I]^.SIN  TO  PAPER  LIST  REM ▘>=wLN  REM 0 REM A▜▗ GO TO  REM `▛COS  CONTINUE LEN ABS L DATA <>PEEK  STEP <> DRAW jl FORMAT  RETURN  DEF FN <> LINE  RETURN  STEP <>` DATA 8#| DATA  PLOT  & DRAW  DATA © LOAD [N]z+[N] SAVE  DATA ' LOAD  DATA )YL2 OUT  DATA [B] IF w DATA ^ LINE USR o DATA Y<> DATA  ▙1 DATA I▝RND STOP t| DATA p<>cH DATA P BEEP ▝SIN  PAPER ©C DATA [O]<>SGN  READ  DATA .:^▛[D] DATA AT  AND  READ  NEW <>o LIST  READ ▗▚Ck GO SUB  CIRCLE  SAVE  READ  BORDER <> READ 7 RANDOMIZE USR  READ CHR$ IN ' LINE  READ [L] OVER iyH▞ COPY  READ D LIST  OVER  CAT [U] READ E1 OUT  VERIFY 2INKEY$[E] TO  CIRCLE PINKEY$[D]>=jINKEY$ TO USR  NEW LN kxPSC_PL  C STEP USR hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.HR BRIGHT [O]SIN o STEP ]▞ BRIGHT <> DRAW  LIST  STEP Mc>▗[E]:VAL$ vY STEP  INPUT CODE  IF  CAT  LIST  STEP  READ [I]:[B][E]PI(lb PLOT   RESTORE v[B]bO LOAD HPI  PLOT   PAUSE [Q]: POKE s LIST dPIBIN  OUT ch[G]▙ SAVE  NEW ]t DATA  CLOSE #gM CLOSE # CLOSE #[K]▛/pLEN v RUN  GO SUB !ABS iSIN PEEK  LET INT d> COPY b SCREEN$ BIN [A]ASN  DIM  INK t PAUSE "Gx NEXT TAB xCHR$ ` CLOSE # INPUT  RETURN   GO TO  POKE  AND  CLOSE #CODE ~ INPUT wINKEY$COS  OPEN # OVER x NEXT / ERASE  SAVE > OPEN # FLASH >2POINT [K]v4 DIM  GO SUB  ERASE  OVER 2[K] CLS  TO ▝CODE Y DIM  CLOSE #N[D]ASN ▙x RESTORE d  DEF FN mz[M]n>=[K] RETURN l RETURN g BORDER 0 STEP  SAVE AfNOT G` RETURN  LINE [S]aV[L][J] CLEAR  /: ERASE PIvB PRINT "CCHR$ g` SAVE v(*[T]EXP 9h GO SUB R PAPER  FLASH +UCHR$ [ATTR vSINT  STEP wp CONTINUE g LOAD TAN ehX> STOP © CIRCLE ! LIST [M] GO SUB K PAUSE d)qCl▞VAL  STEP : DRAW TINKEY$ OR 2l DIM B REM ASN o1 CONTINUE "tj TO SCREEN$ (©[D][M]▜▛[G]; FLASH  FLASH [K]CHR$ [H] STEP  OR  OPEN # SAVE ▞m CAT RCODE #ACS [M]xi OR 6h PRINT  STEP NOT  OUT l[E]CHR$ R STEP POINT [H]PI%[P] LINE 8 OPEN #4| COPY ! PRINT  INK nCOS E OVER E<}[D]D*i|ASN   LET ".-( RANDOMIZE k[J]  STEP 1qARND NEW  LOAD A;4TCODE  LINE [H]SCREEN$ =] CLOSE #`SIN o[H]N LET [P]M`[G]FUl & CLEAR SIN  FORMAT 2▖[F]:F6 PRINT  PAUSE SGN  INK  LET !▟= 5z4▝{LEXP IN CHR$ Z BEEP z>= LET w#>[I].<>5[C]iFN TAB |y▛DINT p[D] PAUSE  COPY g STEP yi OR  THEN  PAUSE [G]USR [C]PIUSR (INT [I]>=~IN BIN M PAPER [G]&@>=~ LET  DIM  COPY SCREEN$ G OR  STEP ~uSTR$ f LPRINT  RANDOMIZE CODE <>[B][L] STEP  INVERSE [I] CLS  OUT ! REM qABS l DRAW c OR > RETURN  FLASH  THEN GCHR$ LEN  RUN [P]VAL  DATA m[F] NEW } RETURN ![D][E]PEEK ( RESTORE 2▚ THEN  OVER +d NEXT  THEN JY:FN  OR ▚[M]SQR  OR I RETURN 7▗[P]Y6<> RETURN ?Pleas>/ in` LIST rtd:k[U] COPY or cha COPY g LLIST  LOAD riv IF O.w FLASH svSCREEN$ <>EXP { PRINT [F] ! FLASH a BEEP ACS  BEEP PI!< POKE +"8cs▘SABS * DATA d[A] DRAW  LET <>!;] RESTORE  OR =H DRAW #x PLOT  ^V$ MOVE  STEP  RESTORE * DRAW  CONTINUE |eo"B/ MOVE CODE DSGN  FORMAT STR$  ERASE  NEXT %f PAUSE  LOAD  REM [A]> " IF >:;. PLOT  h PLOT   BEEP j LIST ▚D[L]6[K] THEN  AND  STEP J POKE  AND [L] GO SUB G^<> COPY IN PEEK f AND `NOT  COPY  INVERSE  READ  RESTORE  MERGE  PRINT  RETURN  OR f COPY n RETURN E[M])dsy/ GO SUB S MOVE  LLIST !▛ STEP z OVER CODE [J] PAPER <>[P] SAVE  LPRINT  BORDER  FORMAT  ERASE INT  OPEN # FORMAT  OVER  LET  RUN PI PRINT V INK # PAPER  FLASH Q82 BORDER HU5SQR CHR$  MOVE ]d COPY BIN  INPUT p CIRCLE  FOR ABS  OVER r INVERSE COS B READ  NEW  FLASH  DATA  FOR [G]© READ P MERGE R LOAD  OPEN # MOVE  ERASE 7 CIRCLE  PLOT  { FLASH # INK ▟ BRIGHT 2C RUN 7 INPUT [H] SAVE (6 RETURN AT gIq▘ DRAW  RUN CODE + RUN  STEP [M]d LLIST :[E]5▟[G] LIST  RESTORE ▜: LET LASN ▗8 COPY >▚<>"[J]d PRINT  COPY f LLIST [E]<>PEEK USR #j CLS xLEN   PLOT   INPUT  PAUSE #~~ RUN <>2-wd PRINT BIN & RESTORE } LET  TO BIN  OUT c[M]$CODE  FLASH / NEW  PLOT   PRINT  MOVE d( CLS 1 PAPER  NEXT  CLS [P]rT[I]:LN  MERGE  LET  COPY /ACS  OR © CLEAR !:/*xBIN  CAT #"&y> CLEAR 4@▟ FORMAT jCODE skh THEN  RETURN [P]6SGN  SAVE  NEXT W AND  NEW ;RNDkp! FLASH  RESTORE [T] GO TO ~ PRINT CODE wUSR SCREEN$ * INPUT  DATA  READ 6 CLS  STEP SQR 5]▜ VERIFY  OPEN # REM J LET  LLIST w# LOAD <>>&M^ * NEW  CONTINUE ~eqTAN  RETURN u PAUSE  GO SUB xCUSR  CLEAR CfO$ NEW ([R] LLIST 2CODE hATN TATN  LIST  FLASH USR :U VERIFY  DEF FN <*[Q]<>USR [A]dxINKEY$▛fPI▞@|PEEK |3@▚[B]Ll~ INVERSE ▛J=x BORDER cfnGp LET Pk5RWmLN  DEF FN  DATA TAB INKEY$.^LEN e STEP UU [J]4PUSR  INVERSE [A] PAPER [R] TO {ASN  COPY [B] OPEN # COPY  LLIST .|' ▞ ASN ACS PEEK ":}u OUT ATN } DRAW ▚7% DIM  OR  RESTORE  STEP Mu[A][K]v~[L]© FOR STR$  LIST NOT  CLOSE #g PRINT o▘: COPY [D]CODE NOT  REM df3[I] INVERSE [I]+[M] INVERSE g3SQR <> CLEAR !M[B]$ POKE 5VSIN  RESTORE m4d[B] PAUSE hk"{ TO FN Xp>▞SIN TAB R STEP TAN * IF +[3<!▚PEEK >~ RETURN 0 OPEN #AT = PAPER PEEK m<> VERIFY !▟c OPEN #4mh LET _lASN SEXP  OPEN # MERGE NOT  FLASH  FOR  VERIFY 0EXP L CLEAR CHR$ [K] GO SUB Dv LINE [H] CLS RATTR [D] LINE 5[K] AND  MOVE &ACS COS 0[U] FORMAT  TO  ERASE  FOR [G]TgABS LJ AND 6 STOP ~ CLOSE # RESTORE LN  OUT  MOVE  CIRCLE  THEN :t RETURN ▜X MERGE = LINE lGTAN z BEEP [A] CIRCLE >=yFN [I] STEP  REM  ERASE ▖hINT ▟TAB 3wATTR {▘ OVER zLN  TO < MERGE INKEY$ TO [T][A] FORMAT  OR [D]3 THEN  FOR  THEN [F]&[T]thL, FOR  FLASH n<>0 REM Q FOR o[T])b READ  RESTORE DMK READ STR$ i PAUSE [L]v LLIST & AND _NOT  PRINT [E][ OR  POKE 4[N] LOAD CHR$  LLIST  RESTORE [I] MOVE PI[J]ASN [C]=[B]1U[T] COPY  RANDOMIZE  RETURN >=L[ AND BIN 4CODE 8w CLEAR '[M] BRIGHT [Q][U] LET tINT R(9' RESTORE PEEK  RANDOMIZE  RANDOMIZE '4 LLIST %VAL$  GO SUB VAL STR$ COS [P] RUN 4x NEW   DRAW ~q8 RESTORE  MERGE  OR  INVERSE  AND f LLIST  CLOSE #[K]STR$  MOVE  FLASH  FLASH ZCHR$ ▞NOT ©SQR TgTASM PLOT  STR$ .FNCRUS NEW  CIRCLE  C BEEP  INK <▘h[H]ve PAPER AT  LET  RANDOMIZE OAT hPEEK #4 PLOT   SAVE  BEEP LEN f DRAW n<> LLIST  TO  BEEP  OUT ▙ OUT ▙ OPEN # OUT SGN i[K][K] AND <>|% RANDOMIZE  OUT uUSR } VERIFY  o CIRCLE | AND g~< `[G]!U" LLIST S NEXT  DEF FN  READ |2 RESTORE [G] RESTORE {U READ  LET ▛&@CODE  GO SUB  COPY  STEP ]▞(>CVAL$ De©CINT  STEP [D]i REM  TO : PRINT  DRAW  PAPER  AND W CIRCLE v7 INVERSE 6# COPY [P]AT  LPRINT !T[L]STR$ [H]J NEW  DRAW ©.yv^h PAPER X COPY  GO TO TAN 2 CLEAR [N]POINT '@ RESTORE  STOP By[G] LLIST COS ©Q[H]| RETURN P  LET } MERGE r BORDER  GO TO  INPUT q)+iPUSR  PRINT  FLASH [N]'V#^ BEEP [H]f FOR ▛[ SAVE ?N LINE  VERIFY iG~# RETURN (DEXP  DRAW IN  PRINT NOT  CLOSE #ix AND  NEW  SAVE [I] OUT  CLEAR   CONTINUE ~LN  IF ,U_#ASN PI" NEXT V{ RETURN @CHR$ C| THEN NOT j>  STEP b RUN #j PAUSE ACS CODE ()C LET <> STEP SGN  LIST <>>a=2K CLEAR |>[I] STOP &<> STEP  PLOT  @[N] MERGE  THEN ?INT ATN  PLOT  Xg©uINT ATN ▘<>PEEK o<>jXGF RETURN  OR <> CONTINUE dRj!HBIN VAL  CLS USR [Q]:Q AND A#e*NOT  RETURN rABS PIj!POINT _ RETURN  STEP  CAT k> BRIGHT  DATA vv INK  RANDOMIZE T ERASE  OR k: PRINT PI  LET ~USR  PAUSE ▘- LET  STEP <©[K] TO mPEEK #(VAL  IF  RETURN u~ LLIST G0ACS ( PAPER  THEN ©:[P]g DEF FN NOT X[3<= AND CODE b%JR IF ?m_T]=[U] INPUT i"&IN &p# PRINT OTAB ▞[B](6VAL % 2j LET <>SGN NOT >= ▞[N] TO  POKE O~+[K]^ SAVE x DIM SIN  LET 6 FOR  OR  VERIFY [D]INT [I]y NEW  INK i> INPUT r[G]w PLOT  &q' OVER 0 RETURN RNDL CONTINUE <> RETURN CHR$ vj:Ny27# INVERSE  LET qY69 STEP  PAPER mG OVER 4 STOP kxl)3 DIM   AND {STR$  SAVE USR < NEW  RETURN A8 CLOSE #[O]E0 FORMAT  VERIFY _ DIM QVAL$ STR$ SQR [G]INKEY$[N]<> PRINT BIN 2 STEP P[E]F LET ▘WWSQR  CIRCLE SGN =0 CLS PI<>| READ  GO SUB VsINT l PRINT  RESTORE SQR  CIRCLE  MOVE ] INK l DEF FN : PAPER LEN COS  FLASH  BRIGHT =CCHR$ ol" PRINT [R]>ATN =S LLIST  DIM  NEXT  CLS ▝cSCREEN$ [D]h RANDOMIZE ef TO NOT EXP NOT [ STEP <> CIRCLE  LET  FOR  POKE o READ "G READ  READ  MERGE  PRINT [G][J]0[N] CLEAR [B]CHR$ (▙ BORDER ASN &SGN Y RUN SGN +^ FLASH BIN {kzmVAL$  OVER [C]<>[P]c73! FOR  NEW  DIM '& COPY  THEN ▚ INVERSE  GO SUB iEXP ACS Tv[J]cD2 BEEP }n_ MOVE 5 PLOT  i{1[K]RND?:c VERIFY e4ASN e: LINE  CLEAR  VERIFY  INK +N INK lNOT 4YY PAPER ZSCREEN$  OVER  CONTINUE /▜! INVERSE l▙ INPUT _#V FOR VAL$  LLIST wma PLOT  X!jf[L][T] LET  LLIST INT  STEP j[C]v CIRCLE cINT NOT  DATA  READ r INVERSE  COPY Not TR-DOS[O]POINT  VERIFY  RETURN >=Write pCHR$  CLEAR cLZATN  IF Rj IF D FLASH  CLEAR et ERASE v COPY =[D] COPY ABS  STEP © OR F FOR l NEXT PEEK  ' MOVE '3 LET  alredy[L]M LINE x PAPER t![U] BORDER [K]OvIN w[Q](▟ RUN y/n)?1&[U] BEEP [D]<=▟INKEY$ MERGE ful THEN ©▟ TO <>PEEK E STOP NOT  STEP  TO  THEN  AND  OR ~|/{}[] CAT 7[M] OR ( IF <> OVER  SAVE f!AD CLOSE #>MfD&1[D]% LET  BORDER  GO SUB Cn11SE"Yfq2c NEXT LN ▚ DEF FN |[J]h! ERASE  OPEN # RETURN  COPY VAL$ 1@(>[F] FOR >▙ CIRCLE  RETURN  RESTORE AT ATN sCODE  INVERSE  LLIST ACS <>![U] STOP  NEXT Y0G OR L COPY  CLEAR ©> GO SUB y STEP [D] LLIST  RANDOMIZE STR$ X9W IF  OR [T] VERIFY wy STEP  FORMAT OsRND MERGE VAL$  INVERSE NOT  OPEN #LN  INPUT ASN (PEEK CHR$ Pnn PRINT 3 LOAD <>ACS B DIM y OR  OR n>=<=ABS  RETURN  INK *[A]USR  RANDOMIZE 7STR$ txSa RESTORE p BEEP  ct PLOT   LINE IN og)ABS 1 INPUT  DATA  OPEN #L INPUT  POKE  INPUT  NEXT  INK FUSR |S CAT  LIST K RESTORE  OPEN #scPEEK n[G]g CLOSE #?1 !o'LQ LIST  CLOSE # FOR SIN -[l▞EXP TAB [M]/oSGN rUNOT RNDK THEN xxTAN  STEP  STEP  COPY c CAT "f[G]▚o CAT ▞ CAT  SAVE `X[I][P]^Cjr[L]2u3[T] TO u[STR$ w![M]o LET  ERASE  STEP  LOAD n[K]STR$ <SIN 6[B]T PRINT [E]1CODE ~J STEP S BEEP r LLIST  MOVE k FOR [F]-wu▚ CONTINUE [G]!U1 STEP lABS [A]=vA~ INVERSE <>EXP  MOVE o<>m: RETURN [Q] OR [H] INK LN O>=q MOVE  CIRCLE Dx")p" NEXT  VERIFY } MERGE  V PLOT   PAUSE CHR$ NOT [R] STEP [S]s INVERSE ! LLIST  GO SUB ) COPY COS [U][M]~#[L]COS  INVERSE + INVERSE =|ASN   LIST [M]AT  LLIST l CIRCLE L5czCOS  COPY PI !▜USR "8 CIRCLE  OPEN #L[O]@ STEP 4 CAT 79HsCHR$ M[N]m[L]O[O]Z=[P] PLOT   GO TO [Q]j LINE [R][T]F@Y6j2RND[B]@ VERIFY /[L]▛TAN <>EXP TAB L[G][G]<G PLOT  ©[P]X  CLEAR q'b VERIFY  OR >6 GO SUB LEN USR ~ RETURN 5  PLOT  # LINE  CLOSE #3p/ CLOSE #6 REM  STEP PEEK  DIM /c] FLASH TAB  FLASH n>e^ OR  COPY :] NEW 2 PLOT  /▝!>= NEXT  REM >w# THEN , IF COS 6o{&}s2!jX COPY FN D[P] NEXT 1 RETURN _! RESTORE  GO SUB s=/*OCHR$ /us^ FOR  SAVE ?[I] CLEAR  THEN INKEY$!X' STEP  POKE  INK  CLS NOT vA NEXT  BRIGHT  FORMAT VAL$ -q[T]l GO SUB m6 RESTORE  NEW  PLOT  TAN cSQR  FLASH ▚k[S] LET d_u% GO TO dPEEK ACOS   GO SUB  TO {USR  STEP [G]s5[L]▞q/, TO s RESTORE ▜[G]7[G].[R]f RETURN [F]" ERASE [G] RETURN _ LOAD [O]CODE ©3 PRINT  LET 8 FOR "oIN PIBIN [G] LET SIN [L]USR BIN CHR$ :rRNDAT  RETURN [M]USR :▜[F]PI>e<>8w OVER LEN TAN w[L] CLEAR TAN v> SAVE 2C LLIST  IF x NEW T!X NEXT ▜y[G]| RETURN [i<Q AND & MERGE [I] AND " FOR ▚▝ RANDOMIZE  RUN @USR  MERGE  OR  STEP COS  RUN  PLOT  STR$  MOVE  CONTINUE  LINE  INPUT 7<> IF  FOR z'm DATA X LOAD v[G] COPY EX6H[U] LOAD NOT  NEXT n[ STEP  LPRINT cAT }▝2BIN 'SIN NOT FN ▝)PIs INVERSE  OR  MERGE f COPY ~# IF  MOVE STR$ ' CLEAR  LET z AND W[E].TAB  STOP BIN  BEEP  INPUT 3CHR$ S DRAW   STEP W~:S5y[I]t*(p READ  BORDER 5©▙~2H▞6 CLEAR ^ INK p.SIN ~WpU[J]▟:[M]F THEN HJ* STEP +<> STEP  OVER  LET j LINE >[B]C}STR$ d▝.: PAPER lPEEK  OVER cl COPY xi NEW SIN PEEK (^ LOAD © DIM w FOR | FORMAT  SAVE © BEEP wo!p▛~6[+ IF Xm[K]3M▞p PAPER  DRAW Fzf/ LLIST 2 NEXT  FORMAT 3 CLEAR 0v MOVE  GO TO n|VAL$  PAPER } RETURN SCREEN$ k THEN k COPY  NEXT © OR  PRINT  STEP [K]i LET STR$ # READ  OUT < PRINT BIN [B]x FLASH BIN  CLOSE # NEW 4 OR @ OR  STEP A NEXT  FORMAT [M] CLEAR cvs^yB[J] LOAD 9LEN ▖ LINE  CIRCLE  OUT ABS <= FORMAT  OUT ABS ASN `[H]<> COPY J BRIGHT IN c<> STEP [K]STR$ o INK ' GO SUB  OVER  PAUSE [ RESTORE Mc OR OYn FOR A DRAW ACS t▖b INK ▘SGN ATN rBIN POINT  INVERSE A PAUSE  INPUT ATTR  CONTINUE .<>kLu- INPUT $ THEN u OUT  MERGE  RESTORE   LINE  NEW  STOP Zt! AND  COPY  INK  RETURN  RUN  GO SUB x NEW w THEN A. POKE  NEW [J]TAB ▛@ THEN  AND LEN ATTR  BORDER  POKE n"mPEEK  -uASN 'TAB ATTR !j]W FOR ATTR Z RESTORE A FOR  AND [I]_[F]VAL$  PRINT _PEEK v MERGE  CLOSE # OVER [P] LLIST  MOVE t[Q]9<>~Z}zt CLS vCODE  BEEP  LET <> FORMAT ▛ LET d] BEEP <> RESTORE ! PAUSE lt[H]sTAN  RANDOMIZE z LLIST  CONTINUE  INK <>q9s[O] INVERSE a INK ▟8xo MOVE  CONTINUE 6 POKE  GO TO p7 DRAW heSTR$ o0;"[B] COPY =[G].▖?bcd/i^A INVERSE  RESTORE  MERGE ![D]tm[N]FN >©STR$  GO TO >=O(IN 0 LET WW LIST Q V2 CIRCLE t|] CLOSE #gPICOS  PAPER |89 DRAW 2 INVERSE PEEK (#^ CLEAR GrDPIxkKW LOAD [D]ACS u GO SUB  D]b(IN  CLEAR PEEK  RANDOMIZE = MOVE  INVERSE G[K]v PLOT  b STEP hu INVERSE [P]r▙ MERGE [B]?SGN <> MERGE HvB PRINT  NEXT { MOVE x[B]S@ GO TO +X LPRINT U ERASE INT ASN  BRIGHT [T]![R] LIST  LIST C OUT  OUT SQR ! SAVE  COPY tN RETURN  CLS  REM [O]]/ INVERSE fndOJ[L] PLOT  Uys# LLIST  GO SUB IVAL  MOVE ATN }uPIUSR [I] PRINT [N]6 CLEAR 0[P] STEP / ERASE  DRAW  LINE ~ MERGE [[J]z[P]hv1 BORDER j2Q STEP g MERGE  LET [L].dQj<> STEP ~LN COS  STEP  MERGE 9vu7 MOVE  FLASH =~ RETURN .LEN  GO SUB NOT - CLS W[E]+_ATTR CHR$ f▜[B] BORDER 7 LET ▘y~# COPY ▟ THEN CODE w  AND ' VERIFY 7<> 5CODE | RUN {[F] BEEP [G] CAT = BIN ▞ASN  RUN ▘L CLS  FOR ) RANDOMIZE  VERIFY 0_USR [A]5SIN  PRINT ASN  STOP  NEXT PEEK  STEP w!>= NEW [S]wVAL d LPRINT dSCREEN$ ?TAB vf CLOSE #E PRINT w"ggvCODE * BEEP  GO SUB [RNDbPOINT :VAL  PLOT   NEW  DEF FN  RUN VAL zCOS  ]C!c4? NEXT [H]PEEK (N3<=EXP ( CAT a[B]PIBIN  LET z<>ZIPp INVERSE © DIM  PRINT  VERIFY -g FOR ©▘XSQR : LET dPI>= RESTORE !M OPEN #o LET  LLIST k▛WgR<> NEW -~ LET wASN  MERGE  COPY TAN  RETURN STR$  GO SUB LN  FOR [E] MOVE  BEEP 0ACS !N OVER SQR  STEP e©POINT  PLOT  <>[L]PEEK zG <NOT  GO TO }POINT >= CLS ASN -U<k{ SAVE [T]SGN 0W INK g<>IN o[D] STEP >=c INK c POKE = PRINT LEN  PRINT  FLASH  LET = LET mR?> PRINT SIN ACS  FOR [F] POKE <> DIM y[K]^ASN  RUN IN W[K]<>! DRAW ATTR $w'tKJINT [E]?  VERIFY Pa▛ MERGE  RETURN oflng" LOAD ch[E]yA1Y CLS cr MERGE  PRINT up NEW  DRAW  d COPY 6x IF w6 INK (<>ORND STEP Qw2fx MERGE  CLEAR  CLS :[LN y> STEP ([P]POINT =2[O]  LET NOT  OVER L1MZ LLIST Cm LPRINT rsVAL$  VERIFY [A]1.0W CLEAR [A] OUT E[I]& CHR$ ]f[H]<fn[I]Nam PAPER  OUT St[J][Le]<[J]h ERASE ] CLEAR s[L]{Dc_2kjV STEP  READ g!kt[D] TO NOT  INPUT ©s# MERGE sdv&CODE ▖ FLASH "[F] STEP f; BORDER [H]2jH[G]`j PAUSE [[I]w[ DATA  DRAW   GO TO STR$ n.g[D]PI LINE U PRINT SQR = INK [O]STR$ ▛p2 POKE IN  LLIST SIN  LET  RETURN :[F]sRND[C]@<INKEY$[I]a▙ABS ?L>ACS [M]COS  STEP ▘ THEN CODE [N] CIRCLE CODE A>©[U]t<><>m[G]-[T]u<-s INPUT VAL$ ':  CLS f IF :BASIC OR yCODE g PAPER 3ESv OUT i LLIST [H]b INPUT sUnu[J][K]  LOAD pc)K LPRINT SGN d RESTORE  ERASE  LPRINT VAL$  REM  LOAD  CAT SQR  OUT [O] LLIST  GO SUB s/© REM [D] CLS Hm7Bmq INVERSE >([M][I]D POKE BIN 2 RETURN COS /▚!▟"B INK [H]f DEF FN wm RANDOMIZE  FOR J RETURN I STEP (0 CAT B>=[G]G3RND TO  GO TO I= INK 0kRBIN I^NUSR J NEW  LPRINT  CLS  TO J MERGE CHR$  OVER ▚▙z[O]}(t CONTINUE  NEW  INK 2ax▜BIN L IF O TO  OVER  INK c GO SUB [ RANDOMIZE PEEK g INK  ERASE [M]{-f? THEN  DEF FN  INK GATTR /OACS [N]2 CLOSE #z7[R] MERGE icR LET ©)i LLIST y<>y DEF FN [C] DIM pINKEY$ RETURN [R]CODE &:SGN 8;NOT  LOAD JATN <>BIN ]>=b3[>=[J]bTNOT sz> FLASH  DRAW . RETURN [G]PI>[U]k READ  AND ~/aRND OPEN #▞EXP CODE >( VERIFY [N] GO SUB KxLEN V[D] PLOT  @ PAUSE  LINE PIM[K]>=CVAL$ ~ DRAW  CAT $▞ RUN = INVERSE SGN INKEY$EXP  CLS  DIM $ PRINT  RETURN ACS  PRINT  INK g. CLEAR PI MERGE  OR  PAUSE LEN wSTR$  LET =( PRINT  ;INKEY$ STOP )PEEK sLN +yj MERGE w©CeRND8 OPEN #POINT  REM  VERIFY RND PRINT  TO  NEW :dB BIN  MOVE 'c LOAD f INPUT  JATN [F]xz[R]' OR  BEEP  CONTINUE r BORDER ATTR _)[F] POKE PI! READ  OUT 8[B]SQR c IF  LET  FLASH  MOVE  VERIFY ruv| MERGE TAB  LOAD [N][PEEK eR LOAD  GO TO ATN  LLIST :SCREEN$  THEN SGN  DATA  STEP  CLS /<oFN  NEXT jRNDFN c FLASH y DEF FN [I] RUN  POKE SCREEN$ W<>} FOR 7POINT  PAPER Q[L]▝SIN  INK EXP  SAVE /G}OEXP [ DEF FN  ERASE N| MERGE > PAPER [M]<= OR VbBIN ▖ CLEAR {iIN TAB R COS  BEEP  PLOT  /* INK ABS ASN [B]b[J]{# NEXT >,_2[A]▘w FLASH wABS >= RESTORE [A]▙▚[C]ASN ACS ATTR VAL$ USR  DEF FN P[J]QE<= BORDER ]PEEK  LINE Y THEN CODE : BORDER zBG(<>" MOVE |[J] FORMAT VAL$ ▘SCREEN$ 5 LINE :<;8SQ DIM ▜ ERASE  BEEP B[L][O] THEN 8 RETURN <JLN ▝ OPEN #{z INPUT :▞ NEW <=([L]h LINE  INVERSE [E]ACS } LOAD VAL ~|VAL$ X RESTORE !▚. BORDER 0 RETURN  LLIST  OR F#N}iNr[N]ATN [O] LLIST =PEEK  VERIFY STR$  LPRINT [I]_k/![P]}7 POKE y LIST  REM  ERASE G BEEP  PAPER  MERGE  POKE 1 READ 4co[L] NEW BIN ▝O▖G=▚.▘ OUT NNOT 0ACS [I]}:MSGN y DIM [E][E] OR 6ATN 7 PLOT   MERGE  OUT 0 FOR 9 GO TO w}O THEN ?(G[S] PLOT   CIRCLE ZA THEN pLEN  PAPER 6 += PLOT   MERGE AT  OR [A]>=CODE  IF V▚wX[K]O CLS g COPY #| RETURN  MERGE  NEW  LIST  STEP I~ PAPER _,} OPEN #[G]G STOP &<>80 AND  DEF FN ▘.ASN 7USR [C]S~ATN  DEF FN T IF  BRIGHT vU%n CAT ATTR  OPEN #[E]PI~_s[D]W NEXT + RESTORE *<RNDf LLIST 0!SIN PI|[E] COPY  RANDOMIZE : DIM  AND  CAT INT ( CIRCLE <E<= REM  FORMAT fCODE SQR ▛k FORMAT n[F]▝F, THEN n CLS -?C( INVERSE ;JSCREEN$ [T]ASN 8My] PRINT  RANDOMIZE ! DIM  FLASH  OPEN # STEP N▞ATN M[H] RESTORE ▞ POKE uVAL$  RUN  OVER o3 VERIFY  GO SUB  OUT [G] LLIST  NEW ▝ INPUT & RUN  VERIFY lfPEEK ▙ DEF FN SQR o DIM |L▟INKEY$VAL$  NEXT ©n© DATA  FOR djI  CLEAR  FOR d[P]n8j REM d GO SUB ~3{|[G]TAB POINT  THEN TAB  OVER LINKEY$o# INK O[H] LIST  LLIST |ASN CHR$ a[I] MOVE  BRIGHT c▙IN  LOAD 2d©{ RETURN 4k DRAW z COPY 7}CHR$ [K] POKE NOT [G][I]SQR <>ABS VCVAL$ zSGN ▞ VERIFY  FLASH |TAB  OR    INVERSE =` CLOSE # DIM ! COPY  OVER DM] RETURN # PRINT ASN  GO SUB LN $▖ SAVE  INK :©GEAT  OPEN #^SGN [L] BEEP SQR  x CLEAR k LET x>7 FOR  PAPER  CHR$  NEXT RATTR  NEW ( CAT LEN  INK LN ( IF  INK  REM  GO SUB ▚ NEXT . LOAD CHR$ [I]; LOAD <=[B] OPEN #[F]EXP : RETURN X[G]z LINE ,COS ▝ THEN ,n[K]CHR$ USR ATTR [J]s< OUT Aqj RUN ©[M]5 LLIST  CAT  INVERSE RND04GTAB x ^ FLASH ▛/[G]>[M]!:IN SIN  PAPER [L]▟ PAPER ATN  <=[P]_ RUN RTAB K/ PRINT [ DIM f/ABS ▘u INVERSE 7 OUT 8ATTR |ATTR ▞ LET  FLASH  CONTINUE GPISQR { PRINT  LINE [L] INK  PRINT 9 OVER  GO SUB  SAVE  OPEN #[M]IN  PAPER [B]ACS o FORMAT  INPUT " REM [P][S] CLS [T] DRAW [U] CLEAR  FORMAT  RETURN  OPEN # COPY 67 OPEN #USR TAN VAL ▟PEEK TAN @?=▝RND! OR  AND I6| LIST IN ▚MACS  OPEN #Y8USR clATN sbj8l CLS 0h THEN .INKEY$` PRINT PEEK BIN LN [Q] REM ▗COS G>ATTR V[A]8ATTR D<> TO  CAT  LET  PRINT  INK ! ERASE B RESTORE : SAVE ATTR  R)TAN % INK  OVER  BEEP [A]4&0 BEEP [C] LET : MOVE  LLIST  LPRINT [P]8CHR$  PRINT  NEW  DRAW {[F] FORMAT TAB  NEXT [L]4:▜PI LINE  CLEAR %_ RANDOMIZE AT Y PRINT  DATA xG[D]ASN s, MERGE  CONTINUE (SGN  MOVE ;PRND MOVE ] CLOSE #[E] OR A INVERSE =▙CODE G[E]fn#ACS #$S6#ABS w4▖U RUN  DIM [CODE 3 OR ▘ LINE POINT CHR$ ▛6[C][B] VERIFY "LN ABS  INVERSE  RUN e+ASN  VERIFY O,>[A]ZIN  AND % LET  RESTORE snIN )C BRIGHT <ASN cFN ©rCOS [U] DIM COS  PRINT SIN  INK  ( [J]SQR [F]m▜ FLASH  STEP VAL$ ) BEEP l[I]S} OPEN #(H CLOSE #-I-T,<s PAPER  TO INKEY$NOT ^FN rFN +[J][K] OPEN #[K]VAL f  BRIGHT FN CODE 1[C]ATN ;xRND  PAPER Z1Y[K]YATN  DATA 3 CAT ▝[P]>=Zn<> TO  CIRCLE  CLS ▛ VERIFY BIN ▝{8" STEP  PAUSE © FORMAT  VERIFY kw MERGE $ OR ▘P[E] TO d<>▗▚▖▞▛[D][E][G][H][L][M][N][O][P][K][I][J]▝ RETURN ":PI[P]LEN W[U]t DIM A LOAD [POINT <= RETURN SQR USR  AND  N NEW [D][G]STR$  STEP  THEN PEEK M[J]<> RESTORE wCHR$ ^/<>▞ COPY S THEN ©( RUN w DIM IN x RESTORE =BIN :b<> BORDER  DATA =sc% VERIFY USR :EpFN C© NEXT  VERIFY  MOVE <>!POINT [K]6 STEP v PRINT <>[ CLS  CAT  IF  PLOT  SQR [T]TAB i0 PRINT p POKE "Q▚i STEP ATTR  RESTORE ©:LuPI TO ltBIN cIN TAB  OUT  STOP COS [A]! NEXT  INK NOT o[N]R K LLIST n9 OPEN #7* ERASE |ASN ( MERGE + LINE USR  LINE  STEP %▜VAL -DMSTR$ +[U]  BEEP [K][M][P]AT  STEP [E]M VERIFY  VERIFY  RESTORE 6[S][L]8▚CHR$  DEF FN : LET GSfSGN  DATA ( PAUSE  OUT <>Us![J]w( ERASE  DRAW TAB  MERGE  THEN TAB  RESTORE [F] FOR AT  LLIST 8 LET [E]4USR USR CHR$ b OPEN #LN  DATA m=<=bn<= DEF FN <=F_<> PAPER 3 LOAD  DRAW  CAT ABS <=CHR$ EXP U OUT w| PAPER  PRINT  TO  READ  VERIFY  FLASH c LET [J]  SAVE ▜ REM S[C] BRIGHT [B]5i LINE ATN  SAVE ( PAPER D BRIGHT CODE  STEP  OPEN #CODE  GO TO CODE :y▙AT | OUT sINKEY$R RUN  AND  OVER sk OVER  FOR ▟PI DEF FN T" OPEN # LET )▛ THEN < INVERSE INT  IF OL IF } RETURN 0 CLEAR PIs$ FOR COS 3 RUN ▝[N]!z> FLASH - MOVE 0LN t<= FOR  THEN LO-vSQR ACS wcTAB /. TO k RETURN )▖8 CAT S3▞ DIM - BEEP [H]w6 INVERSE [D]: ERASE [I] LET <> COPY Y OUT ?( NEW l[C]ASN IN U INVERSE  FLASH STR$ ▜ABS [F][I]/s DIM 5 ERASE POINT  OPEN #▘ACS LEN  LIST  RUN  RESTORE C LPRINT jyACS  LPRINT  STEP V▖ STOP je▗6[H] PRINT ▟>=[K] LPRINT ]▝g PLOT   SAVE ▖NOT 2ABS  LPRINT 6"&8 READ n CONTINUE AT ^▞H[M] RESTORE  PRINT  RETURN [Q] LET  VERIFY  MOVE COS [Q]PEEK  CONTINUE  VERIFY LN ▗V} CAT j[j STOP Y▚PIINKEY$[K]© AND <>[O]} DRAW nIy BEEP COS LEN INT  STEP <ZATN  READ ▙ IF  SAVE W1[G][Q] IF pRv INK  IF D[P]EXP USR  PLOT  CODE PEEK  NEXT a PAUSE  OPEN # RETURN mkc)4? PLOT  B GO SUB S[C]VAL y▚>FN 7R LET  STEP z+5LN [U]EXP  PAPER + INK ^ OUT Vm IF E STEP v?0CODE VAL <=c<>ISCREEN$ [C][L]▟}[P]m( TO ^▜}<>0{} RETURN >=v RANDOMIZE  INPUT @RND RANDOMIZE [O]X LET  INPUT PEEK ! OUT ZSIN SCREEN$  PRINT  FOR  RESTORE  OR 6>=Wv _nNOT czSIN  PRINT  STOP L READ STR$  SAVE Dr<>IN [J]1ACS [U]r GO TO [Q][D][O] LIST <A9ASN :]▜ FLASH f! COPY POINT NV "▖vTAB TAN d SAVE 1 AND ; GO SUB sa CLS Q3 STEP  FLASH  LET [F]G9SIN !▜TAN SQR } FLASH 3ATN VAL$ F IF bCHR$ 1 CLS 2c NEXT ><>TAN dINKEY$ PAPER  MOVE AT <> RETURN SQR  TO  LLIST  MOVE STR$  LET  INK J FLASH [O][P] PRINT  OR  MERGE  RESTORE TAN m▚ DATA ASN k"▟EXP SQR ` MERGE R[B]SIN  FOR  OR  INVERSE sr!8u-SQR t4 PAPER  FOR  DATA VAL$ ▖ INPUT  POKE ! LPRINT P  CLOSE # MERGE L STEP  LOAD @ STEP 5 READ  OPEN # ASN PI()z NEXT <> LPRINT  OVER  BRIGHT <>USR <> FORMAT P.;▜PIATN  PRINT ▚[Q]▝N DATA TAN ▚MW[U]ATN ~G▚USR ▛ STEP  AND  THEN ▚<>@ PAUSE  RESTORE <>▚ IF o▛▟: LIST dPICHR$ ▞ VERIFY  RUN CHR$ ! FOR  CLEAR = OVER N=G▜XzEXP  FLASH p[I] INVERSE <[Q] SAVE 4V▟ INK  DRAW ▖~foABS m= DIM  TO  LOAD )(C? INVERSE  RUN  LOAD = NOT ATTR ▖TAB [E]SCREEN$  CLEAR  OR Gk FLASH I! LET  INPUT  OR d: REM INKEY$ 7+ ERASE  SAVE  OUT t SAVE USR [G] PLOT   RANDOMIZE  BEEP  RESTORE  LOAD  STEP m COPY ABS [P]ACS iv REM 7eLXUSR *INKEY$"Vz NEW USR { VERIFY  _ CIRCLE z AND W:>=[B]▟ LPRINT Q FORMAT [G]w[T][ INPUT  CLEAR  BEEP 2 NEW EXP EXP  RUN :SQR _g<>[O][D]w GO SUB ^ LET [ FLASH [J] MERGE L RANDOMIZE wCHR$ ASN dw;EXP [RNDS3▝ACS  BRIGHT  DEF FN [A]STR$ Hu[N]zSGN INKEY$/! SAVE | INK  VERIFY 50 POKE  BEEP  COPY h BEEP SGN  RETURN oCHR$  STEP  DEF FN c2f CAT ? LINE  INK [B] BdLEN b VERIFY ] CLEAR SCREEN$ u[E] CLEAR  FORMAT  RETURN p▛<> BEEP  FOR [M] NEXT I[L]ACS  CLEAR [N] RESTORE  LLIST 8% FOR  INVERSE ATTR ikx PRINT NOT /L[J][I]!SCREEN$ ▞ STEP .[A] GO TO [D][F] FOR BIN  OUT mPOINT [F]v[C](f VERIFY  NEXT >=Q[B]{j INVERSE +` ERASE <> GO TO R"I▛S REM O PLOT   BORDER  STOP CODE 2[H]PEEK  CLOSE # LLIST  ![S]si[U]TC▗ RETURN  CONTINUE  SGN v CIRCLE + BEEP  LET  MERGE VCOS LEN   MOVE 4 CAT x7:^ STEP ; CIRCLE  MOVE * AND  POKE VAL U% DIM INT ( LPRINT vHNOT ▚▛[K] MOVE @ LIST # NEXT [M]▞ DRAW  POKE e!~▗[O] TO  LINE [O]a>XvBIN  MERGE [D]{ GO SUB  BEEP ><=oCODE q▙@TAN SQR TAB  CLS v.▜ RUN [A]t RETURN NOT  INVERSE  ERASE  PAPER nK;[S] LIST  CLOSE #▞ IF  OVER *▚▝▟ STEP  MOVE  PAUSE IS LINE [H] READ [Q]!q DIM © REM  STEP  INPUT wNOT q▛}dPIUSR [F]rLTAB  LINE (s COPY  MOVE  LET e COPY  RESTORE _[N]2+[B]ATN  FOR  LLIST  NEW CODE EXP NOT INT  LIST 'K MERGE  OUT d TO [sASN /O CONTINUE USR w▛ ERASE INKEY$ DATA  ERASE BK FORMAT [B]U OUT > IF  REM  INK  RETURN #[S]ZCOS  STOP  MERGE  INVERSE v© CAT 8EXP  INVERSE  DIM *u▛e AND  VERIFY ^[P]uSTR$  LLIST [O][K]7vRND TO Q~&! OPEN #" CAT  MOVE kebk}t ERASE  RESTORE lSCREEN$ ?IN 2:▗ DEF FN =S SAVE (,<! PRINT IN YV VERIFY  STEP ;oG DEF FN Z$[E][L]USR  LOAD  POKE  ERASE  INK f IF FN lAT  OR %IN &[-[P][D]6[H]|+p STEP  AND  CLS I CIRCLE  ERASE b? OPEN # CLOSE #f DATA *y BORDER  MOVE PI{FFN  NEXT {[E]LEN [K]▟X▞ INPUT SGN  SAVE E VERIFY Wg MERGE TAB ] SAVE > STEP PEEK POINT  RETURN  LINE H▟{[P]> OUT etBCHR$  DIM ATN  INVERSE 7COS SQR  CAT NOT  STOP EXP  BORDER  CLOSE #gCHR$ NOT F/ IF  BRIGHT ]POINT SQR [L] PRINT IN USR v(!@ OR  RESTORE  LLIST ▛ POKE JSTR$  PAUSE ▗ THEN RND OVER d REM  ERASE  BEEP W THEN !_▟ RESTORE  LOAD [K] NEXT *n DIM ACS ~ INVERSE  CLS <>PaAT ]?/ STOP & PAUSE }:o=50 NEW BIN  RANDOMIZE ▟o[T] STEP ASN   FOR rZ LOAD [Q] OUT PEEK Z OR ▛^PEEK z VERIFY s{/K[Q][P] OUT 6`= READ  RESTORE +T BEEP  COPY [C]i STEP 3 LINE e▙~+ LLIST * POKE  &COS  LIST PI GO SUB s TO : STEP  STEP  OUT VAL$ NOT  THEN { DIM CHR$ ▙ BEEP  DIM &f~. THEN  LINE  STOP ▟Gs INK x@) CLEAR PEEK  IF [I] LET  OPEN #[M]K@PI(<TAB  CLOSE # INVERSE PI FOR 4 TO 0N` CLOSE #> THEN >OLEN [K]©PACS 9 PRINT G NEW MABS  DRAW $ LLIST  READ [F]|▘# DRAW  PLOT   STEP  POKE wCODE ABS [1/USR "TAB  INVERSE 'O GO TO  AND PEEK  VERIFY  NEW  NEXT P IF  LET /NOT  PRINT  FOR  INPUT  PAPER % LLIST [I] w[H] CONTINUE ni_ INVERSE USR Sy CLOSE #twu NEW  VERIFY  BRIGHT  STEP 4V LINE >= OVER  BEEP  STEP LEN  LPRINT wPILEN  GO SUB ATN 7S AND  STEP >=TAN [R]C[T]( GO TO NOT  CONTINUE  THEN p©ATN  LET  OVER #PI RETURN  FLASH x NEW  SAVE  AND G:[ OUT  TO _w<> OR ▛[H][P]<>FN [U] AND xW[H]}VAL$  LLIST TAN <>G:| TO | RETURN [M]<>M CLEAR  TO [P] CAT !IN w[U] LET ] PRINT [7 NEW SQjPEEK POINT  NEW [E]"LN COS  IF / DRAW ! OPEN # GO TO >=VAL : LINE |k INK l NEXT  AND  INVERSE ▚ LET 2! STEP R;[E] LPRINT ▙ IF  DATA ▞CM3H VERIFY  FOR l MERGE  DIM y[D]<= RETURN  STEP  CIRCLE [D] PAUSE ATTR elyBIN  THEN ▙▛] CAT  RUN  OVER INT ATN >y] OPEN # PRINT  TO m LET [K]ACS [EXP &h PRINT [J]▟[A]c RUN  DIM  RESTORE  STEP vLEN j GO SUB + INVERSE RNDTAB >=ACS  INVERSE `▖S DRAW f INVERSE I STEP M LLIST : CAT < THEN f" FOR LN >=SGN CHR$  RUN  OR ^ RUN STR$  FOR [B][A]{ RESTORE GV LIST p RESTORE  CLEAR [N]lJtBK INVERSE  FLASH O|[N] INVERSE  RUN <>![I][A]SVw BORDER  CONTINUE  INK i RANDOMIZE  CLS > RETURN W[N],COS STR$ -5<>8[M]m LET o' BEEP  BRIGHT <> DATA  MERGE  CAT VAL$  CONTINUE  VERIFY Q▛F[B] BEEP "AT gVqLEN j POKE >= DIM G NEXT  OR <:lPI|LIN USR +TAN yo THEN  LOAD  INK  STEP 2( SAVE ▛ LIST CODE b OUT O▖.H`a STEP  CLEAR IN h STOP 6 COPY  REM [G]RNDj POKE 2 LLIST [A] PLOT  <|%m[O]> IF A[E][N][N]G:H7 PRINT `I ERASE  NEXT PASN  LINE 6RNDI>=K5 PRINT B INK G[D]J OUT  OUT TAB  RESTORE  OR N STEP [B] REM dCODE 7 MOVE ASN a TO  THEN B[O]PEEK PI AND  LLIST  RESTORE # BORDER CODE r THEN [N]Pz> ?ATN [U]k▙EXP <= MERGE {< CLEAR _ LET ATTR  RESTORE )COS  NEW SGN  POKE [Q]l BRIGHT p[L] STEP | BEEP ?/$Ku[D] PLOT   PAUSE  MOVE STR$  LLIST  THEN g><> RANDOMIZE d_+[P]#X)2W@[K] DRAW MATN [B] NEXT  0(lM)V9w[B] LET M DIM { DEF FN w[USR POINT ! NEW POINT [O] CLS 1 OPEN # VERIFY IN [I]ATN oL MOVE >= SAVE  PRINT  INK  LLIST ~ RANDOMIZE  LET <>V[ DEF FN C[C]_COS  DEF FN o)POINT g NEXT  OR % BEEP INT  /SGN  CLEAR  AND [B]L[J]6_POINT [K] CLS v>= OPEN # RETURN ox TO  NEXT  ERASE [D]kU[J]vx<=< VERIFY  TO  STEP S PLOT  VEXP R9I CAT /[K] ERASE  ERASE  NEXT ASN  VERIFY [Q]{}~ PLOT  | CLS  NEW $ INK  PAUSE <>{ AND ▙uINT ASN [S]©BIN  FORMAT <= BORDER " FOR [C][ INPUT  BORDER = THEN ?▘O INK 3 DRAW  BORDER  INK EXP @s48: PAPER =M VERIFY  INK LN  CLS  COPY ASN  PAUSE  MERGE  LLIST , DRAW  INK  CAT r BEEP out RESTORE o[D]LN 8 INVERSE p?g DIM w▗g RUN ex[G]G INK d! CLOSE # CLOSE #AT  PLOT  x STOP } IF :{ RETURN 8MwUdSIN 2 CLS Sj NEW  PAUSE [C] IF z[Q][K]% RESTORE [L]X^[P]'▛[J]Vh[C]/▛: NEXT PICHR$  FLASH ,<>4 TO VAL  MOVE ;BIN  DRAW ,Wn[R] RUN  LINE ASN 5A[J] FORMAT >= CLS INT [E])W/mATTR  STOP +> FORMAT  NEW m6COS  NEXT 2 GO SUB [D]x[K][N] POKE : RETURN [K]M▙ACS /e▜[Q]'= POKE  CLOSE #*S[P]"} REM  BEEP l SAVE /%> COPY [S]I2 DEF FN  BEEP =[E]STR$ c6 POKE >=!, PRINT " BEEP  DATA !9 POKE G MERGE ▛COS  LOAD [O] IF m>!3ACS I IF  INK  PAUSE SCREEN$ +MCOS OUSR f+TAN  TO VSQR TAB [J]TAB 3[▚EXP xINT mKAT LEN PI▚x<>STR$ z[J] RANDOMIZE  RANDOMIZE ASN ATN 9 THEN  COPY 6[U]S* THEN B[B]LEN   OPEN # RANDOMIZE  GO SUB NOT /= MERGE SCREEN$  FOR  MOVE ~<> ERASE  OUT  POKE  RESTORE  COPY  DEF FN  STEP Q[J]©>FN * RESTORE  LET "▘ INPUT CHR$ [E]! PRINT CODE c▞ OPEN #S THEN PEEK ?_[Q]_ OR  CLEAR ©2 PRINT [E] GO SUB ySTR$  INPUT fq COPY g[L] CLOSE #M INPUT <[A][E]t}[B]<>v STEP  DEF FN [J] GO TO  RANDOMIZE  NEW @[C]w FORMAT 9POINT <>:ACS  RANDOMIZE PIUSR  DIM D>=9[N]!PEEK w TO K1[H]2fCHR$ ▛ OUT < OVER ▗ RUN [C] PLOT  $o FORMAT  INPUT y#CODE  RUN _ DRAW  DEF FN }u[D] PRINT 8k LET FNOT 2CHR$ EXP [F]"Xp GO SUB s-M DEF FN "r[R]@'USR ASN =p NEXT  RANDOMIZE XCOS SGN  FOR [U]TAN STR$ /FN <>CHR$  CLEAR  AND [E]IN X[F] THEN © CODE z LET SIN [F] FOR w FOR J[D]|CODE  CIRCLE TAN INT =Y` OVER  TO u CLS <>OSGN  RETURN (CHR$ C7L[G] THEN ▛=sSCREEN$ I DEF FN AT  DRAW [U] SAVE USR :▜[F]PI>[C]8▛`bTAN COS w COPY Zo▗ STEP l BRIGHT $5f BRIGHT   POKE ▚> OVER  DRAW @USR  OR  MERGE udq[F] MOVE STR$  FOR O BRIGHT N LIST y▟ THEN ▟{v(ATTR INT XUSR *1 FOR  DRAW Mn]Mv FOR L LOAD 2ATTR POINT USR Wj CLEAR sPOINT  LOAD FNOT )▖ COPY xTwKASN  STEP /[M]J[G] OR POINT j> CIRCLE  PAUSE  IF  FORMAT [H]zSQR R STEP `[H]<><Oe@uSGN  INVERSE Y:7X BEEP PI▛FN TAN [A] CONTINUE PEEK  LN }T] DEF FN ]o[C]STR$ e STOP TAB [P] CIRCLE [M][L] THEN TAB # LLIST c[T] GO TO &XdFPEEK  LIST [K] IF  GO SUB  POKE PEEK [F][F] ERASE  ERASE k THEN hINKEY$ PAPER  MOVE  CLOSE # OVER lCODE  CLEAR c[M] CONTINUE  GO SUB  CONTINUE [J] FOR + LINE 2! FORMAT Odd PAUSE  OPEN #SGN 8 COPY  OPEN #" ERASE j[R]"[H] GO SUB SIN ▖SDINKEY$TAB )/e RUN M[M]=G PRINT ATN  STEP  CAT  GO SUB [ OVER PI RESTORE SGN ~x FOR  BRIGHT  VERIFY } AND $Db FOR /FN v LET ( OR G STEP B[H] CLS STR$ LN LN '<> RESTORE ▜ NEW [Q] THEN e<>$W LLIST RND FOR  LLIST <>|#&} AND  o CIRCLE | VERIFY g<>x2p[H]!yf[N]/$ SAVE  SAVE ▗ FOR .~#C FLASH sK FOR [J] LPRINT [C] CLEAR `ABS LDr RANDOMIZE  RANDOMIZE  LOAD :A[J][P]BCATN  RANDOMIZE ▞[H] STEP ABS [H]9t|[I] LLIST FN _[G]4 NEW fePI STEP [T] NEXT  IF [I] INK t PRINT !: VERIFY [B][E]ACS ] PRINT D STOP h LINE x[I][ MERGE  INK ACS n RETURN  RETURN  VERIFY = DEF FN [G]EXP  PAUSE  CAT  CIRCLE ASN Ya(<D4 READ  COPY SQR  _TAN ACS ▝ LLIST >AT bAT Y[VAL Y INK 0a[O]5 INK ▟ TO [B] OVER FN  BEEP )▜PEEK  PLOT  <CODE t;k<>▘~ REM IN [J]o[P] CLS =o▖ IF 6 IF :NOT BIN [H],bIF RANDOMIZE POINT y][J] BEEP e7m PLOT   LINE V>=[E] RETURN dSTR$ <=CODE <>!bY LIST BW[I]=-s DRAW  RESTORE STR$ PEEK  OVER [N][I] LLIST 69 REM  FOR  RESTORE @_USR [F][A]Y OR  RESTORE  IF Zw[L][G] LLIST r MERGE STR$ 3EXP *▖u[D] NEW G MERGE  OR  READ ySTR$  MOVE ^'LN  PAPER Gym~BzCOS   DIM INKEY$: INPUT 6qPOINT  LINE  PAUSE h2c ERASE  DIM k LOAD  AND v*/yivm@_ LINE ▞y[G]▘`| RETURN X RETURN PI  PAUSE  DRAW  <>!@VAL  OR  MERGE  FOR [K][D][F] MOVE ATN  LOAD [G] LET  OVER !X RESTORE 6TAN EXP AX PLOT   RESTORE  MERGE ▟CODE  GO TO PIS OVER 3w^ INVERSE  INPUT ~^[F][T]2[J]"[K]+)FN ▝N BRIGHT L RESTORE *Ov#{[S]Z|M TO 1 STEP  DRAW { OVER  POKE 2 CLS ©p POKE [U] POKE   STOP EXP ] LOAD 8TY BRIGHT NATN SQR .2 RANDOMIZE  STEP  LIST [I][K]@ OR  FOR LN 0=8 FOR tV<>f^:ACS /<G OR 'N STEP  POKE $b LINE  IF STR$  RESTORE  CLS [R] CAT kf FOR [C]^INKEY$ LLIST  NEW {>=$<>_ COPY  AND <> THEN ▛4c CLS FINT SQR  RESTORE  MERGE [U]INT TAN USR [C] STEP  CLOSE #[R][E] OVER  IF /wFB' OUT j2;[K]"= OVER [P] GO TO @ NEXT  LLIST  PRINT  RESTORE eQdL LET  COPY FQ IF  RANDOMIZE ]<> GO SUB _ CONTINUE ` NEXT  LPRINT  CLS ▛_&WSQR  OUT  NEXT l INVERSE  CLEAR v|LN 3 STEP TAN  RANDOMIZE  SAVE VAL BIN e STEP T? CLS ▖[O]b COPY  INPUT > NEW ( BRIGHT ]JO 7ATTR .W(,e OUT [E]AT  VERIFY  PRINT d CLEAR  LLIST  CLS  INVERSE ▝LEN VAL$  READ 'ZHRCOS $X▘ DATA d TO IN  SAVE !<BIN NOT USR DSTR$  NEXT ~▛▝2x"SQR  GO TO BIN # STEP ASN <[P]zIN LN 1p>mir DRAW [I] RANDOMIZE  MERGE [N]▖t!y COPY [G]INT  FOR  PRINT v! IF 4▝ OPEN #{▛▘[J]<= PRINT  CLEAR ,pX[G]© READ [K]!CODE  RANDOMIZE = FOR ▛[N]u[F] OR  TO INT  INK [P]x<=y# VERIFY Y PRINT ▞[D] PLOT  w[N] STEP BIN  NEXT <>_ READ { COPY Y[A] CIRCLE BIN = CLS P7 TO /[M]> LET  COPY 6>=▗ LINE  DIM e OR  BORDER XBIN ;IN  <=|!AT VAL X DRAW  (PEEK NOT t[n[N]SGN  RETURN ABS ©hF<>POINT 1[A]▟▛▜ INVERSE ▝ COPY ~ THEN ©J INK w FLASH B NEW ? BORDER g INVERSE ^LEN LTAN J1LW LET &o RETURN BIN  PAUSE  THEN n>= STOP  MOVE LEN [Q]USR O! TO oPEEK  PAPER STR$ CODE O~yi&) GO SUB [_nDNOT yc6*X14[D] LOAD f[N]} TO  PAUSE ©[K]O<>} TO  LLIST 5 LIST [U] COPY [I] TO wTAN ? AND [J]1CHR$ ▙_ex INVERSE  OR [L]!▗ INK 9STR$  PAUSE o▚O DATA {~< TO  SAVE %AT  RETURN [I]-D▖ CAT ▙g MOVE ▘T*ASN  CONTINUE  OPEN # GO SUB LAT  COPY CHR$  STEP [G] COPY ©PI>NOT  GO TO NL` PAPER  AND STR$  CLS  BRIGHT p OPEN #yCOS  POKE  LINE  FOR f LET ▝EXP  INK [I]` VERIFY F[L] RUN  PAPER  VERIFY  CLS I[R]▗| TO  COPY #NOT SGN 8[E] OR 6 STOP  COPY  DRAW  #<> VERIFY ` RESTORE  BEEP  ERASE c LPRINT vC INVERSE  PAPER ▛ut LLIST ▜[O] FLASH z_|[T][H]P PLOT  pTr OPEN #<= OUT >= CIRCLE s[H] RETURN  FLASH / BORDER  VERIFY 2VAL$ ~ifAT  GO TO L RESTORE CODE 6 VERIFY  LLIST IN [B]~<>== FORMAT USR  PRINT [R][O]RSTR$ [G] STEP [Q] LET  CAT  COPY 7^[E]V!`~= IF  GO TO  {STR$ 'USR COS  BEEP <> IF yATN `|2PI>=x[P]BIN  RETURN ATN  IF b LINE ▜CHR$ STR$ A[L]NOT ▛[G]INKEY$CODE  THEN  LET <>I2 AND 5y REM 9 RUN NOT *▜ CLEAR 0yVAL [A]- CLS FN ) MERGE <= INPUT INT <> RANDOMIZE i2NOT "LEN bAj[I]POINT w3LN qVAL$  STEP ^[R] LOAD COS ACS  AND [B]n▗:Ki<>LEN VAL BIN  CAT  STEP [E] BRIGHT  THEN [T][R]zSCREEN$ '+ FOR (?NOT  CLOSE #[L] LET IN w OUT VAL LEN S LINE <= CIRCLE 4SQR  TO 5RNDATTR [Q]<=NOT /[P]<} PRINT  MERGE  INVERSE n PLOT  f THEN rp▞▚ AND ▜_ VERIFY Dy!NOT  COPY h FOR  MOVE  LET  THEN b([S]$ BRIGHT  FOR <>RND SAVE 6vm` CIRCLE ( OUT ▖ LIST ` LPRINT &X|c0YsVAL @ DATA  GO TO [E][G]+BIN ▗D SAVE pCOS {, LIST PEEK z VERIFY ▗X  PLOT  ~[T]V DATA [S]|,18g RUN  SAVE  OUT  PRINT AT CHR$ [A]{COS [O]eQLEN p[L]>,+7 DRAW  LOAD Jg= VERIFY >=ABS o DEF FN SIN FN [P][G]▙- NEW  NEW  OR l▞SQR [O]kdy LET  BRIGHT ^YTO CAT KGNOT ?B?;AT g852| SAVE  POKE /,)INKEY$'%ab LET  IF SIN F TO  POKE 1AT  LET 6[O] PRINT  ERASE COS !iCODE ACS > RETURN  OR L VERIFY + INK  COPY  RESTORE  GO SUB y STOP  CAT IN ATTR = PAUSE /BIN <>! PRINT r LINE NOT Y GO SUB CODE  OR  fVAL _X/ CLS  CLEAR ,1 STOP RND1  PLOT  _PEEK ABS * COPY  RUN U[ CLOSE #[P]Q RESTORE TAN  RUN  INK yP NEXT H FLASH g CLOSE #AJ] LINE ;[S]Q PAPER  CLEAR  OUT  LINE [S] RESTORE & RUN P_>F] GO SUB < MERGE  LIST  OR j MOVE BIN  CLOSE #W1am CIRCLE  RANDOMIZE [Q]oT ERASE CHR$  FORMAT  COPY  TO [I] OR  NEXT  RESTORE " STOP ▞NNOT ~2 LLIST  AND - NEXT COS  OR # RETURN D RANDOMIZE r" LET CHR$ [L]SGN RND CLEAR  INK ' RUN I;OuI!K OUT [G]L FOR  STOP 5[N]}LHCHR$ RgIJ NEW 9▛ DEF FN [O]COS  NEXT  FLASH NOT ZBIN [T]AT  BRIGHT 4 THEN :[J][S]COS )ATTR  RANDOMIZE . OR G/ CLS CODE  VERIFY VAL  PRINT ,> LET [M]▘~! CIRCLE STR$ ">.:[T]$BIN  PLOT  1 DEF FN INKEY$ RETURN ) OR  STEP 6NOT  GO SUB S THEN STR$ 7?sNOT 1f CONTINUE  COPY STR$ >  LLIST  FOR s#r INK >=  PRINT _INT (CHR$  COPY  STOP ? INK  GO TO *c PAPER ? INVERSE OSGN COS INT NOT  GO TO , RESTORE 9SQR  NEXT  ERASE [H] OR [N]l▜f[K]ACS ^Q STOP  MERGE 8 INPUT ▚*&:INT [G] RANDOMIZE B1 RUN [D]SQR "zATTR  DIM  OR  AND AT IEXP  RUN <>{ LPRINT [D]#s010 OR NOT  THEN EXP [F] PAUSE  OR 4 NEW k&VAL  THEN Z  PRINT 2QCHR$  LET ~ NEW #ng INVERSE b FOR  DEF FN TAN  BRIGHT [I] DRAW ?}PIATTR (USR TAB IN <=foVAL$  OUT 38 IF  AND wIN VAL +( BEEP H[K], FLASH  FOR y NEW  PAUSE <[F][N]TAN NOT  OVER ▞}[F] FOR x_[O] FORMAT ASN z INVERSE .▚ STEP c RETURN J BEEP RNDFN  FOR  CLEAR LEN  IF BIN (& RESTORE />>={PI PAUSE  CLS  INPUT DO<B0 LET <= LLIST ,<>AT  INPUT  INK [A] DIM  FLASH Lgo RESTORE  LPRINT c6 PAUSE  DRAW [P] LINE  INVERSE |2R STEP EXP CHR$ %~ PLOT   PAPER l*S BRIGHT ▝zSQR ?<3BIN g RETURN 4 CLEAR [oM[L]CODE C/BIN bCOS [K] READ X8 LET ha"_INKEY$M[M]q FORMAT [D]w OPEN #>8 SAVE !ACS s FOR ~T INK 7E`{ PLOT  IN  STEP ▙ASN ACS  FLASH  COPY  PLOT  FO BEEP  OR  STOP 7 AND g DRAW m[K]© PAPER y STOP  REM Mf LLIST ▗~ NEXT  OR ▟_SGN  CLEAR  PAUSE PI FOR }UFN X BEEP  INPUT IN  COPY }vAT  VERIFY ?dUBIN >=Bn COPY aZCVAL$  LINE j/v CIRCLE <>CODE G>=VAL$ (3▝!EXP "CHR$  OR  COPY yH STEP  BORDER 5 PAUSE 6'PI GO SUB Qc TO  STEP t}o<=2 AND NOT IN BIsa STEP [I]>=▞[M]fzl IF qJSGN  AND [M] GO TO [P]<> POKE  DATA RCODE 0 DIM SGN  LINE  PLOT  [AT  COPY u<=[T] LLIST ,ATN Si OUT  PLOT  -nASN )BIN  FLASH 2 DIM $LEN ATN  CIRCLE 6 OPEN #| CLS DAT INT  INK fTAB U▖; SAVE !VAL  INVERSE SCREEN$  CIRCLE V CONTINUE Rs[R][B] AND ASN &s[L].[#SIN  CLS  OUT 6ZS▚[L][C]& FLASH CHR$ ATTR Z7 DIM INKEY$n[L] FORMAT POINT [R]mBIN 9 FLASH dEXP ▞L CAT  INVERSE ACS  CIRCLE ▘1 PLOT  # OPEN #gLEN YUXV-( CAT  OPEN #" VERIFY 5ATTR []:l>=y;[G]"KPI READ  GO TO c7X<> OPEN #L,:O REM  LPRINT 9 BORDER ( PAPER [N] BRIGHT <> IF W▜! CONTINUE USR Q INVERSE ^> BORDER  LINE NOT PI CAT  THEN & OUT kPI IF  NEW x PAUSE A<=Bf AND -{[J] DIM 2U GO TO [M]o READ [I]g COPY ` FOR [O] FLASH i;IN  LIST ?eSGN *<> OR r PLOT   AND  8+`U DEF FN g9 THEN 1@$V DATA ▙COS [P]#v[K]. IF VAL  LINE  CAT  MERGE x LPRINT ▜[A]fINKEY$(%bFSTR$ <= NEW 1 LOAD  POKE "'5{POINT w! COPY CHR$  CLOSE #BN PAPER [SCREEN$ ▗PIU7 IF POINT .DNPI FORMAT / FOR BIN <=E<?.[Q] LIST  RUN b LET a_ FLASH [L] OUT FN  DATA  BRIGHT  PAPER $] LLIST ▗ABS  RESTORE e PRINT  MOVE  INVERSE  LINE >= CLOSE #[S] BRIGHT ▜▘[T],POINT  DRAW  READ [J]LEN m:FN ] BRIGHT 9▛STR$ _ INK  CONTINUE  TO  FLASH  STOP  OPEN #b[T]▙ DATA [H][M]^ CAT  BRIGHT  FORMAT  OUT [E] LIST e READ / THEN INKEY$[T] BRIGHT 1]yz DIM  NEW M POKE USR ^ GO SUB [O]V BORDER  STOP  LIST  LET Cx DATA ©[A]| AND 4w[U]COS  PAPER  RETURN ©R OR .SQR 7 VERIFY F BRIGHT ATTR [H]▚/[J]EO GO SUB  DRAW ABS : PAPER SIN  RUN PEEK  FLASH <=_>=NOT U<>Jq LIST  OR  DRAW  REM {© FLASH mCOS fYACS  ERASE ▛CODE ASN <> PLOT   DIM BIN [L]  RANDOMIZE / GO TO 4 OR * DATA [F]o PRINT INKEY$ THEN 3= CLEAR  NEXT !BIN [I]▙[J] BRIGHT Y RANDOMIZE [R]LN ?q&WSJI/+,g GO TO SGN [D]/[S][G] CLEAR COS  RANDOMIZE  STEP  OUT  BEEP z CLOSE #($ FLASH BIN  RETURN LN iNOT TAB ▖ SAVE  LIST  AND SQR L[J]r ERASE > COPY g>=7. OR  CAT ▘ AND  LINE AT 1[S] INK AT  OVER OSGN  DIM ▜ [I]l)! DRAW  DEF FN X LOAD  TO @ :O IF  DEF FN  RETURN 0 BORDER LEN " TO | RETURN k STEP  FOR  GO TO  NEXT "HUSR _/[I]9ATTR <=SGN VAL$ dUSR 2[E] TO # VERIFY x^P[L] PRINT |[J]COS <=[G] LLIST N OVER PEEK  DRAW F GO SUB syUSR  RANDOMIZE  CLS [D][L] RETURN RND[Q]USR >0STR$ PEEK iLN  STOP o PAUSE w[F]ACS >g[L]<u/ FORMAT FN  LOAD  OR * LPRINT TAB CY AND [P]%` CONTINUE  OPEN #tACS @ THEN  MOVE  TO  CIRCLE xNOT USR  NEXT CODE EXP  CLOSE #W CLS j<= PLOT  l NEXT ?L_ CLOSE #ABS INT EXP  INPUT  MERGE  BEEP AT  VERIFY  IF  REM EXP  GO SUB INT _[G]TAB >= RETURN [L]5 FLASH SCREEN$ y CIRCLE  BEEP TAN  INK ATTR :Zu PLOT  [M] PRINT lASN POINT ATTR %EXP  MERGE  COPY >=A RANDOMIZE }▝XEXP COS  CAT  DRAW  OUT {>=,z VERIFY U`kRY<>▘_{7▙ ERASE @BIN  REM  LINE [P]g) READ N OUT  TO  CLS yvO RETURN  STEP /5 FOR  POKE - RANDOMIZE  RANDOMIZE  RESTORE ] TO c DATA  COPY "INKEY$ OR rSIN  COPY <= RETURN CATN  INVERSE d"><> READ  FOR  COPY  LINE [T]:+NOT [P]SIN IN BIN og"[O] TO STR$ USR VAL$ uJ CLS dIN  AND STR$ "▗<=CODE  VERIFY ?[D]<>Q<= STEP  LLIST . CLEAR  DRAW }▖<>. INVERSE  BORDER Xy RETURN  OUT  FOR ©[F][E]< LINE _BIN / INPUT 8[F]INT   FLASH  LET V.}▜ IF  LLIST 9 RANDOMIZE  MOVE zSQR  OVER p LPRINT B[T]NOT @:[U]© LET CHR$ [K]= RETURN  LIST ''0<[Q]EXP COS ▙ NEXT =gM THEN  PLOT  TAB CODE  STOP  DRAW [L]/ DRAW [D]~ AND &STR$ o THEN ; BEEP  OVER  DRAW  POKE  PLOT   STEP _▟z LLIST g FLASH  POKE ; THEN m( LET <> INVERSE g| PAPER ▜ NEXT  LIST { NEW t MOVE  PLOT  3V© READ NOT  CLEAR o COPY S) NEW ATN ▝ INVERSE STR$ }▙ LLIST rM©" IF NOT  FOR eSTR$  OPEN #▞AT ▞%LN yE|6BIN &9n INVERSE  CIRCLE f INPUT ▜ COPY  INVERSE  DIM Oz= IF ^BIN  *|<>=# COPY NOT  GO SUB !0 OR ▖FBIN  STOP  PRINT  GO SUB R$ ] LINE ABS m* CIRCLE %[R] DRAW ^=Pk( STOP <=[6©:ATN  INPUT DMSIN  LINE zgJ PLOT  | OUT cM FLASH  DATA ~ OR ▛BIN  LLIST >4IN  DRAW  LLIST  OR CUSR CHR$ ACS Yz/SGN w<I DRAW [<>STR$ [C]▞ COPY  CAT TAN v PAPER  SAVE  RESTORE  CIRCLE  NEXT STR$ 7_X COPY  CLEAR { READ v NEXT  INVERSE ASN  DRAW 7w OR lo);[H]SIN }~ OPEN #6[L]B STOP [L]e▙/:BIN SQR I$)UQ FORMAT k[U] AND  STOP <=H1[O]#. LOAD [K] LINE Q[J] PLOT  [L]<= OVER  CLEAR K FLASH  LLIST [M]IN y[R]M[L][N] INPUT SCREEN$ ! SAVE  OVER  OUT ABS  STOP CHR$  MERGE SQR , OPEN # FLASH <TAB  CIRCLE  OR © LINE  CONTINUE ▞▘▜i3SGN  AND  BORDER + . NEXT ▚PEEK VAL IN $ STOP 7 AND ©73G RETURN ▜[J]USR ABS s[L] AND ▚7<>` COPY 8x_ NEW NOT  AND W_ SAVE  STOP Xcg8 OVER [R] CAT PI OPEN #BIN ATTR ▝1 FORMAT <=SGN  CIRCLE  LIST [P] OR  OVER ▗ LINE ATN %[S] PLOT  EXP  OVER 0 OUT [Q] NEXT s TO  CLS o DRAW  STEP /ATTR  MERGE  OVER ks COPY [M]ABS INT h THEN <=[N]b% AND  LINE  CLEAR .~TAB  PAUSE  NEW iC[T]BSTR$  LINE RND INVERSE ^ CAT [D] READ  AND y+m,} GO TO  PAPER INKEY$ THEN ATTR  INPUT [H]ATN (~0y><= CIRCLE :[O] OVER / RETURN 1x LINE  RETURN #0-bT<>G▙d<=SQR  RANDOMIZE !-"G[S] THEN }X8F9f7[L]>M OPEN # INVERSE USR  INK  o NEW 2,FINT  FLASH  VERIFY }0 OR k#SIN _ PAPER w5 TO Wy[F].TAN wu RETURN ©<> OPEN #[ THEN % COPY INT SQR  PAPER  BORDER ▗k1 READ [R] INK INKEY$ DATA  COPY  LPRINT  LINE  RESTORE kATTR [S]<>&USR  DEF FN  RETURN PI PAPER [F]>=▝ACS  LLIST &r LIST  AND `{<>eBIN SGN  BORDER 0/▜PEEK oQ~#,$ COPY c/ RESTORE :BIN  INK O[H] RANDOMIZE NOT  OUT <= FOR ~ NEW m THEN ▖)VAT Q[N]Y BEEP [E]▝ FOR  CLS X<># RANDOMIZE u} THEN 5+h[I] INK y FLASH  OVER  PAPER  FOR [R] RANDOMIZE [E]Q TO  REM PNAT ACS ^COS  PRINT ]POINT g[f[H] SAVE [T] REM [A]i[L];[J]_LEN A TO  AND  CIRCLE f CLOSE # GO SUB &▗[P]EXP LN 9 MOVE [E] COPY Fk LPRINT oN,V& GO SUB C BEEP VAL$ [ THEN  FORMAT [Q]&[F]@PCODE [G]▝ag>=% BRIGHT <=(B<>3 STEP  RETURN 6`/▟ CLOSE # INVERSE ;AT ▚ACS BIN _% NEXT  DATA [L]1 DRAW H RANDOMIZE h;G OVER =INT 2▘ TO EXP m▛c STOP  AND   CAT ▞(RND OR 3D{EXP FN  DRAW ~xINKEY$[P]` NEW SCREEN$ C<> CONTINUE  PLOT  ©MBIN T▛[ OPEN #oU<> LET  COPY FN TAN (i BEEP m RUN 5ABS  OVER  LET IN  STEP [F]FN >=^62E BEEP [P]LN 8% BRIGHT IN Z CIRCLE LEN L? LINE ▛`▛EXP [K]^EACS STR$  MERGE RND9 SAVE ▞ INK  LIST kY FORMAT  ERASE fl[K] SAVE b,POINT  RETURN [F]ASN Z^[U] DRAW  CONTINUE BPEEK [B] TO c1▚:o RANDOMIZE  RANDOMIZE BIN  ERASE  RETURN BIN kLN  ERASE >=j/ACS [O]qxwmuB&O PAPER  VERIFY /x~ SAVE _ PRINT [D] LET  CIRCLE  GO TO VKx MOVE  COPY [I] PAUSE  POKE +[H] CAT U▜:V<=BIN ▖[D] LPRINT  SAVE " INVERSE &SGN ATTR © POKE VAL 2V SAVE  THEN  /l CAT qI DATA X/[O]GEXP E RESTORE ~<=3[P]SCREEN$  GO SUB H` LINE  COPY jVBIN FN  CIRCLE 5L CLS B COPY  LINE CHR$  THEN mRND TO [E]SIN  LOAD [ STEP  INPUT -[R]+CODE  READ NOT ? LIST CHR$ W LOAD /SGN SCREEN$  LINE xQ BORDER  SAVE #5E▛ DEF FN <d.SGN  DRAW  REM  READ akNOT  RANDOMIZE [M]TAN  THEN [I] LINE  OPEN #ABS PEEK  CIRCLE qc AND -ACS ▗gPEEK USR Y=" LIST SGN J GO SUB  RUN  COPY <▖ VERIFY ].INKEY$ ERASE )RNDNOT PI-SGN CHR$  INK  CIRCLE ASN <>[O] DRAW PIx[J]w{ ERASE !> INVERSE v[O]ASN o COPY  LIST ZI OR  STOP CODE SGN } LINE +5[I] PAUSE  OUT PEEK <>k/HTAB  BEEP  DRAW f VERIFY SCREEN$ ▜ MOVE  RESTORE COS o FORMAT ©& OPEN # POKE ▞PEEK ▟%6WFN r)LEN  LOAD ATN i VERIFY Y{yINT  AND [COS  MERGE Q<>+XW[O]SIN IN [S]8 THEN ▝[D][K]>y COPY </[F] TO [I]CASN [B]v8 READ  STEP  CLOSE # MOVE  OPEN # FORMAT [J] COPY  PAPER  GO SUB [E]Z LOAD  STEP 86D0M AND g(S LIST /`[K]t'INKEY$D_USR 6YPOINT ▝0 LOAD ▟ATN  REM PI PLOT  TAB C<=(p RETURN  LET ACS LEN USR TAB ;_i1 GO TO |<=NOT ! COPY  CAT VAL$ #▛[J] OUT  LIST L STEP "or[J]RND RANDOMIZE $EXP   BORDER UIN  LINE ABS " LIST !_ RETURN  NEXT  STOP  CAT lxX AND H~fRSCREEN$ [S]Iga[H] CLS ABS )1oX SAVE vG▖[K][Q]z3$ COPY yACS | AND  BRIGHT R PAPER SQR LN  READ  STOP ywdACS  STEP  REM SCREEN$  OR  PAUSE ASN G AND  POKE COS EXP [Q]LN 1 NEXT  OUT  VERIFY [ OVER I<> CIRCLE 1 BORDER v POKE u{ PAUSE  PLOT  [I]INKEY$<=SIN / STEP j CLS  LOAD )[L]VAL$ PI TO :▜ LET  OVER [Q]POINT KB[S] PRINT [L]INT HL&N# RETURN STR$ ▜e PAUSE [L] NEXT  RESTORE ▘ LOAD [M] INK ( STOP =[ BORDER /1BIN SQR  ERASE <>j AND y[O]EXP POINT f_. LIST  OR C OUT  OPEN #[H] DATA /k^j LET ht▙[H]▞[D] DEF FN ▟[F]USR  MERGE ▞ FLASH ) RETURN EI LLIST  MERGE !h<=N= NEW  NEXT STR$  GO SUB K COPY <>+SGN <VAL$ p LET  FORMAT  PAUSE ? NEXT $USR > DRAW 2[M]MD]s IF e-STR$ R OR ▚USR S AND y} INPUT |2 STOP "▘ MERGE  DIM  RESTORE qACS [T]NOT fbiCOS CHR$  STEP 
  10069 POKE [U]T IF  THEN STR$ I6 LLIST ATN ( CIRCLE x LLIST  FOR [I]Qrs# NEW  COPY =  NEXT !IUSR  RESTORE  READ  COPY  PRINT ,[N]'BIN  INPUT  READ 5 OPEN #! INVERSE L DATA 2STR$ =[H] OPEN # RANDOMIZE [P] POKE USR w# DRAW y2}[H]3 DIM >YxK<= OR NOT O| AND SGN  FOR ?_[K]<>[D]~ READ  PLOT   RANDOMIZE `s OR  INK  LIST  RETURN h>pUSR 5CHR$  CONTINUE STR$ # INK : PAUSE  FORMAT  OPEN #[D] CAT USR ACS  LINE  LET @< RETURN 8[B]0 INK > CLS ANOT Y[P]Pa ERASE BIN [J] SAVE :=b[D]n_[N]W*e CIRCLE CODE ATTR !k`SIN [P]EXP i6INT STR$ ( LET VAL$ TAB a[F] CIRCLE y LLIST  CLOSE #RNDW▜ INK © ERASE _[L]CODE x~UEXP  PLOT  ▗ OR  OVER <>[J]luACS  LLIST ?STR$ 2 TO ▛[B]BIN J[L]XOACS  DRAW ^F GO TO ATTR  RANDOMIZE Zd@INT [D][Q][S]<J[M]` FLASH gPLN COS [I][D]NOT INKEY$[E]X CLOSE #jb_3 VERIFY LEN ~=CHR$ & FLASH  PLOT   CLEAR iCODE ©e_>3 LLIST 72#;[K]i▖Ns[[M] INVERSE SCREEN$ INKEY$BIN ▖7[E] LET ![S][B] INK ATN [D]Kb[J]>▞ CLS f OPEN #?1BIN  PAUSE (ec[K], SAVE BIN  CLEAR ` CLS )* OVER  LINE 3_ PAPER  PRINT CODE  THEN  BRIGHT  SAVE ▞NOT cNOT  INPUT V AND  MOVE {TAN  GO SUB  ERASE 2 CLOSE #CHR$ [H] NEW ,TAB  STEP q BEEP [S] RESTORE Zi+FN Mh DATA ASN INKEY$' DIM  STOP I[S] OVER ABS LN xS PAUSE [J]<>[I]d CLOSE #,; INK I AND CHR$  OR ASN [M] CIRCLE ABS  TO ^[K][U] ▙e1▞▛c READ  RETURN BIN [K]BIN  TO K=POINT 5[O]|P LIST ABS INKEY$LEN cVb#fAT  CLEAR  GO TO  COPY A[A] RUN  FOR © LINE  OVER  PAUSE L0[H] PAPER ATTR #w NEXT <©SIN [B] FOR cLv ERASE  LINE  BRIGHT ▖[L] OUT [L]TFASN  RANDOMIZE INKEY$BIN 1CODE [S]) CONTINUE 7#6k:(-[O]TSIN ©; MERGE [P]xINT 1<>I& STOP  CLOSE #d INK C[M]CHR$  THEN [J]©T[K]( INK 'USR *wz DRAW _" OPEN #o PLOT   MERGE 6 RUN  GO SUB C-NOT /Fk PRINT  NEXT  OVER  CIRCLE  LIST m RUN [ GO TO [I]}Z" PAPER [K][M].3 MERGE  DRAW  RETURN  INPUT / LET n[N]I DEF FN [O]CHR$ uASN  CAT &[S] PAPER ▞v FLASH POINT ACS  STOP  COPY ▟ INVERSE TAB  INK  BORDER LN m▗SGN  NEW k[C]FN 1[M]V PAPER  OPEN # POKE ASN POINT  LLIST Q LINE  THEN Ab PAPER }[R] LINE VAL P_ CLOSE #INT [S]SQR PEEK CODE LN [R]  OVER { RETURN [Z[F] MOVE . BORDER ▚▜TAB FN  AND  INK c DRAW E< IF A AND _ CIRCLE [bPI NEXT 6STR$  RANDOMIZE FN ▖ NEW  VERIFY o?[P]RND THEN :0©b OR  IF USR {8 INPUT  ERASE  INVERSE b CAT  AND fmNSTR$ /o INVERSE 1 THEN >|0▜l POKE [J] IF [G]q▝O[M]K COPY *VAL  RANDOMIZE  OVER  TO  CLS  PAUSE ? LET V BEEP g VERIFY T REM &BIN [G]VAL EXP M FORMAT "▜'W PRINT  FLASH  COPY  STOP BIN Xl DRAW s6▞/[Q]LN  LET < READ  OUT [E] 4~CODE _[O] SAVE  CAT [I] RETURN  OR  BEEP {9 LIST  SAVE > GO SUB y DRAW OBIN > DEF FN v`l3 BORDER u OPEN #W INVERSE } BEEP TAB j|ATTR ` PRINT : [C]Y FOR X' INK  NEXT PEEK ~ INVERSE .NOT  DIM  INK bB[E]1 READ VAL  PLOT  TAN SNOT VlSCREEN$  COPY USR $CODE ©CHR$  OR * PRINT STR$ ACS  THEN s VERIFY lGVAL$ W FOR u AND cCOS USR  FLASH >=N%PEEK ]_|ATTR ▚ ERASE  RETURN o▟ MERGE  AND `&G DATA  LIST _h OPEN # SAVE IN ▟+ RETURN [I]s DEF FN 3 READ  AND [Q][D]SQR q[U]6 DEF FN m INK =EXP g CAT  INPUT  FORMAT ▛ GO TO FI ERASE [L][O] PRINT g6 LET / GO TO  BRIGHT COS hIN x[O]E$ INVERSE  DIM  COPY <= STEP  VERIFY COS [L]▗n CAT zYF RETURN  CONTINUE 4", INK  POKE  CIRCLE >$AT  STEP CHR$ g` CAT [T][M][K][B]▞▝ COPY #s FOR YlfaPI NEXT [g=VQM OR  TO HD@ABS F[S]=9z VERIFY 630-Y CAT +(= FOR &$"▟g H STEP M BORDER  COPY VAL  IF FSTR$ ADC[Q] BORDER  LPRINT m DATA  AND FPI LET [H]N[Q]CHR$ BNOT PEEK EGIN[Q] READ 9TNOT CAL FLASH ▗ FLASH v PAPER u STEP  GO SUB mP OR tASN N[N][Q] DIM & FORMAT ▜0 CAT  AND  MOVE [J] DEF FN BIN  PAUSE sD ERASE <> MERGE ~IIN [I] TO REAT▛NOT  OR BIN DSTR$ g▛B[Q]NOT ?INKEY$ OR E▖[J]*Fu RUN MPISQR An FLASH SW AND }<>PISIN I FORMAT ` NEW PL IF Y PLOT  9JNZSTR$ [M] INK OWhrINKEY$ INVERSE U'[J] BRIGHT  LLIST E[D]USR <> INK  GO TO LNBIN j IF  ERASE  AND jACS LN NOT WASN  STEP  RESTORE ' ERASE  CLOSE #41 RUN Q[Q]RA▚ CAT  OVER XStSTR$ [R]+D NEXT  CIRCLE >=HS CLOSE # INK COS  TO  CIRCLE  INK <>[J]▚ LINE F[P][ OR mINKEY$ THEN ▟p GO TO SgVBIN  PAPER  CLEAR  DATA  FORMAT Ly2 POKE ▝ OPEN # FOR +ZYu DATA L[F] SAVE D'[D] LLIST  AND INKEY$0COS ? DEF FN COS R CLOSE # CIRCLE  INK J INK O PLOT  NOT ? CLS  STEP VAL$ J FLASH <>O PAPER  FORMAT U IF BIN ~r CAT SRU▗ RESTORE hA>? PAPER  TO LCO LINE P RESTORE { CAT ~BIN  OPEN #AT  POKE [D]<>KCHR$ CODE O^TCHR$ ▜▚F CLOSE #R CIRCLE  INK ? OVER  BORDER  CLOSE #R CAT I DEF FN j~K OR N LLIST  CLEAR #PEEK ]<=O FORMAT ▗[I] VERIFY  PAPER  PLOT  cPIGL~TABS ~USR UIU6EXP  LINE BIN c[I]<> FORMAT ▘f_[Q]~ IF xO FORMAT 4"H LIST  ERASE E>a CLOSE #~INKEY$4+T/[J] READ R VERIFY [F]ATTR  STEP  DEF FN  STEP p[U]VATN  PAPER  LLIST  REM  FORMAT n[L]PEEK  CAT [N]TAB ?BIN  READ  DIM gSTR$  OR U FOR )bBIN  OPEN #▚u BRIGHT  DRAW <▗ DRAW AVEOB LINE [R]Ne LLIST ▗ LINE 8O DRAW  DATA IS FORMAT c& DIM EXP EXP 2 INK E4P4 INK Un REM  IF Y STEP UN VERIFY T OR  STEP [B]X{ TO  VERIFY W+ DATA  INK  THEN X>= TO USR  Y▖ PAPER (HLPOINT  PLOT  S[H] INK )[U][P]bs?▗ CAT ]IX▞/Y< TO {[Q]!USR  STEP [A]2POINT  PRINT '1 DEF FN  CLEAR  LOAD F AND HRCHR$ ▞ CIRCLE ATN  CLS  DRAW [E] DIM *a<=>l DRAW 0y- RESTORE ^ }INKEY$EV?Pw▝{s CAT  SAVE [I]STR$  GO TO cIBZS POKE oeQp[O][R][H]AT  CIRCLE [K]^aWZ TO JMPCF GO SUB  LLIST  DIM  INVERSE M^ INK  LPRINT rEXP COS }[D]▙T;!NOT  LINE IN nSGN  RUN ▙PEEK LEN COS EXP SQR CHR$  OR >= TO w DRAW Z/© FORMAT  CLOSE #>vABS  LINE } IF  PAUSE  LET ASN  POKE [O]u INVERSE  INK RNDACS  MERGE hNOT e LOAD  GO TO ;(#-61zkagdovr%*/4i AND :1 PAUSE @FK▚;4ACS  DATA IZ SAVE  INKEY$ GO SUB  DIM [R]aP LLIST [K]ZF INVERSE ▘ STEP ▟ MERGE ABS ▞SQR [Q]f NEXT PEEK  FORMAT  BEEP  FLASH  CAT d% PLOT  S> OVER [pQ1 DRAW a POKE CODE g9; RESTORE  TO  OVER  CAT ^M[O][H]WC7oT INVERSE JACS  CLOSE #l[E]i[K]}^POINT *dc CLOSE #SGN 7 LINE h RETURN LEN ▞COS @B]ABS K&fSGN NOT [R][K]<><=aZ^WPFMC TO 7/ MOVE [E][G] VERIFY ASN _2T▚[M]) TO TAB SGN <=▖©ATTR INKEY$^}  POKE eoI▚fkABS ~ NEXT i INK  INVERSE  LPRINT TAB SIN ATTR COS  LLIST  NEW AT  OUT  LIST  NEXT  CLOSE #j CIRCLE >▖4 CLOSE # CLS  CIRCLE  DATA  DRAW  THEN  RESTORE  FOR  INPUT  CIRCLE FN 'IN  RETURN  POKE QTLEN R▚?(enowy}▘▙[D][I] POKE INKEY$SGN STR$ [O] LPRINT  DIM  RUN  SAVE  DRAW S LINE *-0so)VAL$ ▙[E]_[J]©[ASN  LINE  TO  CAT  ERASE  CLOSE # VERIFY ▙▖ LLIST  RESTORE  DIM  GO SUB  LET  PAUSE # IF  DRAW L?PI STEP BE CLS 7SVATN lL NEXT psw©▝TAT  NEW _[T]{JLEN  RETURN COS r LET ▚eEXP C3[Q]G[I]LEN  LPRINT VAL  DRAW  GO TO COS  RANDOMIZE <>ASN SGN AT ABS © OUT  INK 2fL MOVE  CLOSE #/6STR$ { GO TO J NEW  LLIST  INVERSE )INKEY$m[U]f:EXP | LPRINT  TO W^C[M][O]Q[H]IN  SAVE  CAT BISZp BRIGHT  DIM IN [Q]  CIRCLE  LPRINT  RESTORE -INKEY$}| OVER  CLOSE # LPRINT [E]#<=4;rR[D][J] DIM BIN VAL$ RND[I]▟[G]LEN [P][R][T]FN CODE COS ASN LN SGN USR NOT  AND <> STEP  RESTORE C MERGE  CIRCLE  PAPER  MOVE  READ  NEW B[I] RANDOMIZE  LOAD  PAUSE  PLOT   IF  CLEAR o AND ( PLOT  "(,17>C8▚b9[`fmqtz©▜▛[C][F][L][T]INKEY$POINT AT LEN ATN - IF USR BIN <= TO  FORMAT  CLOSE #[E] DATA h| OR  CLS STR$ USR CHR$ z▛SCREEN$ *n/ BORDER  RESTORE `[L]VASN  FLASH &j FORMAT  PAPER  CLS  PLOT  INT bkVAL$ R▛ PAUSE BIN STR$  COPY CHR$  MERGE r@[I][H] FORMAT  OR gUCODE  MERGE / BEEP ▟ PRINT  PAUSE PI~AT ATTR CODE Y CAT F LPRINT  LINE W[ OVER ^[P] SAVE <=- BRIGHT P_G▝[H]▙FN <=/ STEP b OR ATTR LN 5[H] REM @ INVERSE |MCOS ACS CODE >=IN %ATTR  MERGE [S]RNDa[U] DRAW  STOP B-^A[I] CIRCLE  DIM  CIRCLE $Or8ABS  FLASH ATTR  RESTORE PV[E][H][A]RND DATA >ATTR [E] DRAW  LET PEEK ©AT  OVER [H]ATTR  OUT bWIN  BRIGHT [T]GLEN X DRAW STR$ CODE ZABS [R] MERGE ^SGN ▜- LIST  SAVE *zSCREEN$ ▗CODE [R] GO SUB  CONTINUE ▜~COS @▝ PLOT  f IF  PLOT  0/VAL 1VAL INT 0 PLOT  ~@ATN  CLEAR ? DRAW  REM >=COS  COPY < CLEAR  GO TO ;:9[P]87 SAVE COS 65432 SAVE  SAVE 10/. DRAW  SAVE -,+*)©('&%$ READ #"!  DRAW  LET >~>> CLEAR  GO TO [P][P]} PLOT  ?[P] DIM  INVERSE ▞CODE  COPY x+=u2 DIM  BRIGHT  BEEP cL ERASE  STEP <>c OR STR$ SQR 4MATN LEN ATTR f OPEN #RND[P] STEP  NEW [H]▟[L] STEP  !{#$s&4[L]'(i*+a-M OPEN #[/U1OINKEY$13IE61?;73%[D].)$[H]ATTR  RETURN TAB 63 OUT  LINE  RUN  FOR  NEXT  RESTORE IN >▛_~/IN  PRINT [J]y PAUSE  CLS  RANDOMIZE  CLEAR # DRAW ~$~IN &3_iIN  DRAW  COPY "^ LINE v!X[O]o COPY u GO SUB VAL  CLEAR [P]@T]CODE >U THEN D(COS [K]▖L9_"w▗X#| RETURN X  STOP  INVERSE ! COPY <=&>=ABS  DEF FN >SQR  INK CHR$ B> POKE  GO TO i▚hkj▛o NEW © INVERSE w CLS +>GEXP  ERASE  INK  FORMAT ©EXP  FORMAT _LN =CHR$ SGN <> RETURN ▛* OR &+|2 LINE } REM ! LET  DEF FN  FLASH AT !© OUT <VAL$ ATTR POINT ▘ VERIFY !e LINE  NEW yX[C]~ THEN  LPRINT IN ▞ RETURN  PAUSE 6 LINE 4 AND g CLEAR  IF 5:r PAUSE PEEK ▚wIN 1f PRINT f[O] REM IN  COPY g DIM [E] COPY LN EXP S INVERSE h[M] STEP i[R]:`PI[E] READ LEN <> NEXT  GO SUB s LIST  BRIGHT <>© LLIST <=1YoVZSCREEN$ ` MERGE  STEP  BEEP yPICHR$ x LINE  OR ▘5 AND  OR [l NEW  OR  OR  RETURN h VERIFY  CONTINUE COS x<=0 IF STR$  NEXT  CLS ~L_g OVER = OVER _ CIRCLE s GO SUB ATN O COPY [D]7 PAPER G CAT  TO ASN  COPY  CIRCLE 3>=ACS fm DATA ] OR  FOR  MERGE v GO SUB y VERIFY U]OSGN [P]W BORDER [L]l AND <>^{ FLASH RNDATTR  DIM ATN zu[J] FOR [A]EXP  POKE  DEF FN  OVER e[N] CAT ATTR AT  PLOT   LINE j BEEP VAL$ ACS  DEF FN nCHR$  BRIGHT PIVAL$  READ %CHR$ m▚mTAB [T] CLS w MERGE  LINE  REM ▟[D][O] LOAD  PAPER  BEEP [L] PAPER reX INPUT   POKE  COPY <>USR  OR © RETURN ` LIST [A] CAT STR$  LPRINT FU=Q COPY  CAT Pp  LLIST ?:8FN SCREEN$ SCREEN$ [Q]PIPOINT  LINE 2 CONTINUE [F]FN  PRINT  )Q PRINT AT ACS VAL  PAUSE s LIST 3cEXP LN ▙iNOT P BRIGHT <= BRIGHT  BRIGHT 8F FORMAT [Q]FPIPI8 MOVE E▙ GO SUB  AND  PAPER cmATTR  READ 2ATTR 0[I]ACS  AND  BRIGHT  BRIGHT ACS ▜?[S] RETURN [I] FORMAT [S]d OVER d FLASH  OVER  READ ▟ FLASH @`pCcLN 0palLN  MERGE SQR LN  DIM 'Z RANDOMIZE  ERASE  NEXT [F] FORMAT SCREEN$ c;p FORMAT  REM X[D][B][R]LN R2`[R]LN V BRIGHT ©p AND  IF A AND =s CLOSE #v▗RJLN LN }[F] CLS *AT MJ RUN  LIST 5 FLASH [H]=Pf THEN @SIN  COPY INKEY$▟[F] RESTORE EXP  FORMAT hCODE  SAVE LTAB CODE [S] AND - INK ASN  READ [G]W3BIN [S]BIN  CIRCLE  COPY ▗I CLS  RESTORE J▚LN N[G]PEEK N1INKEY$EXP LN ATN aLtLN ATN 2 STEP EXP `4fpCHR$ @ DIM PI<=~ CLOSE #<=-INKEY$ REM [Q]VAL Pg1 REM SQR S=9PEEK [S] LIST  CIRCLE  INVERSE ACS FN  STEP  BRIGHT  CLOSE #f[Q]JVABS ATTR [R][O]ABS cPOINT [H]3oASN [M] BRIGHT U=|2 GO SUB i]_KH▖ MERGE [D][O]BABS ABS  FORMAT TAN  OUT ▗ BRIGHT STR$ [E] BRIGHT F='0 BRIGHT  AND FN  STOP A BRIGHT : RESTORE pE=D PRINT [E]Dz0z"s)!s OUT GKATN  OUT {LN [U] POKE  DATA != LIST !ATN ▗VAL$ NVAL$  FOR COS  GO SUB [O]tOo STEP [U]o▞[C] MERGE Le[C]A[C]POINT ?A?%RND BRIGHT 9J[J][K]d CAT POINT d CAT BG[R]PI[42G4rJp+KpPh CLOSE #U|x)5 ERASE ' MERGE n@i8 TO 9@*{[T]g[U]i FORMAT [K] CLOSE #LN 0 FORMAT LN } RESTORE TAB I▗TAB ▗ OUT  PRINT IN 1CASN f RETURN AT h PRINT  GO TO ) MERGE SCREEN$ CODE [w BRIGHT {p[J]~ DRAW CHR$ [A]-ePEEK AT T DIM LN POINT [C]LN CHR$ ! SAVE  GO TO  MERGE PEEK pZ-▖Z)RND▖ PAPER ▖AACS  PAPER  INK  IF  REM 4Z[U]Vr|[U] SAVE VAL$ | CONTINUE INKEY$f CAT EXP Ku CAT  )SCREEN$  SAVE 'T RESTORE [E] OUT jSCREEN$ O▟[G]| CLEAR 3 RETURN POINT  OVER !▗, ,J © LLIST R©[H]PIN  FLASH ▝[U] OUT  LET  ERASE o GO TO  LET  REM ; GO TO [D] DRAW  SAVE  RUN  IF [L] DIM INKEY$<= DEF FN  POKE ▚<=B IF ▚ LET }2 LET }[E]RCODE >CODE  COPY [I]> PRINT 0:BIN 1 SAVE * LINE Z* LINE ZJ_▞ tCB CONTINUE [D]Pyy DIM 7 FORMAT  CIRCLE  PRINT [L] FORMAT  CIRCLE  INPUT >=LN  CLOSE #JLN >=nh▚l[P]▚f FLASH B FLASH  GO TO " FLASH ASN ▗" FLASH :5nCODE 5[ GO SUB ©p|x{g OR fhINT  GO SUB COS p▚ GO SUB  BRIGHT © INK S FLASH e35PIePI[R]SL[A]SCREEN$ L[R]▗ GO TO p GO TO o|@{<=p3VAL  BRIGHT FN ©9[L]AT [M][O] STOP 7Y PRINT ]▖ IF - BRIGHT  GO SUB ©[G]CODE ©0▜[T]G_CODE + SAVE "LN ! DATA  MOVE  IF 3[h RESTORE [Q]_~ATN  RUN  PRINT  RANDOMIZE J}03[H] IF 03 PRINT  RANDOMIZE W}$ MERGE  BEEP $'} FORMAT ' CLEAR  LIST  FORMAT  RETURN  CLEAR ^ CLEAR  PLOT  O PLOT  ? RANDOMIZE  PLOT   OUT  LINE 9}RND[A]9IN  LET 7ZHSQR  CONTINUE  INK  CLOSE #g OUT  CLOSE # DRAW [T] FORMAT  IF -h COPY -ATN PEEK [M]~ FOR  RETURN RNDp©|BIN [[P]z) BEEP w<S PRINT  CLEAR  LET  CLS X CLEAR  COPY ~+ ERASE PEEK [F] ERASE  RESTORE [X@[T]RNDR$ FLASH SCREEN$  STOP uASN [F][I]ACS  LOAD  CLS PIp CLEAR Sp BEEP USR PEEK CHR$  STOP 7BIN /<= COPY P/ MOVE CODE >H PAPER ATTR 1 ABS  IF 1 RANDOMIZE  CAT  VAL  FORMAT ? CLS  FOR  BORDER LN ~ INK _W BEEP  BORDER  DIM  RANDOMIZE  DRAW W}FN  MERGE [H]FN %y BRIGHT [j BRIGHT ▞V MOVE [U]_^ OR |HIN  LIST ▟ FORMAT © LIST CODE © FORMAT TAB  CIRCLE ©BIN } LLIST  LOAD h TO mINKEY$/<>!EB*[D]▚W[D]>=p CLEAR [M]©~ COPY jLN ©BIN  RETURN  COPY 3LN ©[E]PEEK  POKE HFN  BRIGHT -BIN FN SGN [Q]▖ATN [O] FORMAT  FLASH  LIST # INK 1(© INK U[P]lSCREEN$ { LPRINT P[J RETURN CODE [F] LIST gCODE } LLIST g}3iNOT T[J] FORMAT NOT }j BRIGHT s< BRIGHT  FORMAT g& FLASH  INVERSE  FLASH w} CLEAR ASN ▚, BRIGHT  LIST .! MOVE j[A] BRIGHT  LIST oMM BRIGHT  MERGE NOT TAB IN TAB +7b[E][CHR$ ,LN * PRINT |[B] OPEN #| OUT  LINE PEEK oPEEK SCREEN$ ▗ FORMAT 9 OVER  BRIGHT 2 LIST  BRIGHT W. BRIGHT L>=vv'tSQR +AT  CLS 9d DRAW 1 BRIGHT  INVERSE  RETURN  CLOSE # INVERSE ©dPEEK VAL$ {7Y|SQR Q[POINT (Q[E]" FORMAT ATN UASN XATN [M]@- RESTORE ( BRIGHT EXP / FORMAT (:[D] LINE [J]4 FORMAT [P]Z BRIGHT Y_ STEP Y RESTORE  PAUSE  FORMAT C*LNOT [H]XSGN ASN ABS [K][E]K BRIGHT }XIN RNDBIN X#ATTR  DIM L.Wc FORMAT g SAVE ▖AT j)|BIN 5©[K]?p8D LPRINT ABS ▖[G]NOT  LPRINT PEEK 2 GO TO  RUN  LIST }e RUN  RETURN POINT ▖ COPY  CLOSE #▖ CLEAR INT USR  INPUT  BEEP 0ATN PEEK  LOAD +3 OVER  OR  OUT  OVER [P]<=[H]USR ?o}[M]|PI▗[L]]? INVERSE  RETURN  INK yw{ INVERSE  OR ?U[L] OVER  DATA H LET ?Z_j OUT  RUN  IF ACS @ FORMAT  SAVE [S]▜H LOAD TAN <=o©KRT LIST @P+USR ▜ PAUSE VAL$ [Q]▜ LOAD @~CTAB .@VAL  NEXT [A]~ THEN ▖ READ 7?LN |W▖ OUT @ CONTINUE @ SAVE  DEF FN ▖?= COPY |% DRAW r~Kpr STEP pBIN  AND  OUT LBIN  AND 5%@▟|3J POKE SQR oINT COS pVAL$ SIN VAL @ OVER  GO TO p]POINT ▙)PEEK  ERASE V)ATTR VAL$ INT  ERASE VSQR SQR SGN NOT >=B5 LPRINT 6^ INK [6Z DEF FN NOT {v BEEP [Q] STEP VAL$ qfINT  SAVE + STOP SQR ▟SQR [F] PLOT   RANDOMIZE  FORMAT  OUT  GO SUB  RANDOMIZE  LLIST ]USR  STOP  OR  COPY % OR  MERGE  RESTORE BIN ▖ PRINT  LET " THEN : STEP *j MOVE $ RESTORE &oO)^▜ GO TO ▘ OVER  THEN B LINE  OUT EXP  FORMAT bSTR$ NOT ▝ MOVE  FOR : CONTINUE dPI(w$O/ RUN ASN * READ xINKEY$ FOR ACS lIX THEN STR$ [C]FN  GO SUB  LIST BIN z<> GO TO F LET  LLIST  MOVE STR$ <>~PI>= RETURN  #V^[G]ASN ACS  COPY F~ STEP  FORMAT  IF BIN # BRIGHT FN INT  CLEAR  SAVE <>▜!▖ MOVE [I]fD^ MOVE ! IF  FOR  INVERSE d PLOT  [ MERGE & TO n_,F$N STEP  MERGE  READ $ FLASH  RETURN  FOR  MOVE ACS ,[#>ASN z VERIFY W READ STR$ BIN  IF  RETURN  INVERSE } RETURN @CHR$  CLS  FORMAT <> CLS [P]>CHR$ 7 MOVE <>A g=@` POKE AT [Q]USR  LPRINT AfId[O]@ NEW I[Q]f@I[O]AQd@Q@ NEW [Q]Q[P]oINKEY$▝wq FLASH  BORDER [ OR :SCREEN$ v VERIFY !LN  MOVE  STEP P[E]G8h CLEAR STR$ >2_ CLS 7o) CIRCLE  FOR  STEP " CONTINUE  DRAW  MOVE  THEN z :s STOP G!~ RETURN A RANDOMIZE  INK [0 THEN  LOAD wrj LLIST  LET O=USR  THEN INT [I]/zASN >=PI  OVER eJUSR  CLEAR 5 SAVE =[J]>=#6PI4<>[J] CLEAR :[H]hPICHR$ TAN  ERASE +▘▗$e![M] GO SUB [h STEP  POKE [C] REM  FOR  MOVE ` OR  CLOSE #? DEF FN hSTR$ a. PRINT [Q]USR  OVER [M]ASN @=A SAVE [B] READ " OVER v VERIFY ~ NEW  LIST ▝> RUN  CLOSE #5U OUT j<>c4D?t LLIST IN ICHR$  INK !yBIN 6/Lp INPUT /jNOT <> STEP  CIRCLE [U]`[H](~ DEF FN Z>=4[F]▙ OUT  DIM  MOVE  ERASE [Q]. INVERSE U{ TO  DRAW or$s%# FOR i}2[L] DRAW  DEF FN  CIRCLE 3 STEP <>[O]▝[G]▗[E][F]▖▞▛▟▙[P][A][B][C][D][F]▘[M][L]▜[I][N][J] READ [K]`i©ASN  DRAW  ERASE   RESTORE  INK TAN )▛T]CODE k▞[U]CHR$  LLIST ACS  TO 3 STOP [G] LINE  INK # COPY  CIRCLE <>Reimpor RETURN [t[S]file, CLS p OR asw?it. COPY BASICZ(XM CLS LTY OVER  3BIN ▟4(byA PLOT  XLD)MRNDP1 LIST 1 CLEAR Rn DEF FN ST7GEN- INK L INK gBIN XE2f▚A COPY ^CODE W GO SUB R0COS  CLS ~t SAVE  BORDER <> RESTORE  AND V'LN o COPY N STEP BIN  INK  CLOSE #STR$ 4 ERASE [F] INVERSE [R]zINKEY$PI DEF FN  PAUSE  OUT <= FOR  OUT MjIN ▚ RETURN GSQR PEEK j[A]INT  OVER x VERIFY > THEN 0 CLS  TO =  PAUSE Mi<> REM  FOR PIB NEXT  CLS  PAUSE STR$  CIRCLE < LET  BORDER  GO SUB g, DIM  IF  COPY USR  COPY h} NEW  LPRINT  PLOT  o9a$ASN  INK <> CIRCLE -INT  RETURN  CLS g CIRCLE TAB E CIRCLE CHR$  STOP LEN `S INK <> BEEP VAL  RESTORE !3 RANDOMIZE =@0 MERGE  CLEAR  GO SUB [Q]? IF + STEP Q CLS [D][H]y[E] NEXT *=X"▘ MERGE  STEP 4]STR$ q▖v!T PLOT  > LLIST m[L]g<=STR$ ~AT BIN  STEP ]▞< MERGE BIN © RETURN AAl] DRAW ▖~ DRAW  RANDOMIZE |>6}oCOS O GO SUB { OVER y&z RANDOMIZE @ BEEP g LET @c▙ DATA ▛[M] LLIST 9[~ar<> FLASH [P] DRAW  COPY  GO SUB =_ INPUT O LLIST SGN x TO  POKE $ LINE  POKE .6 STEP SIN ([T]L[D] REM , IF  RANDOMIZE  LINE  LINE POINT kPEEK T GO SUB }▝ THEN ▝ABS USR  STEP <> INVERSE !XASN 'PIh PLOT  L$TAN Y) OUT ASN [O]INKEY$ RANDOMIZE k'LN SGN <>▞v] INPUT  LPRINT Z* AND h RANDOMIZE ' REM  RANDOMIZE  LET [M] CLOSE #SGN *j<> RANDOMIZE  LLIST LN [J]SCREEN$ d RUN  RUN ^=<>[M]CODE  GO SUB  DIM  PRINT [O] CLS [L] FOR  OPEN #[D]INKEY$ GO SUB INT a[2USR [M]NOT ?M STOP LEN  RESTORE [A]. GO TO g6;[P] CLEAR k PLOT  COS v[M] GO TO ~A: FOR MUCOS  DEF FN c DRAW [S]▜▙[N][F]INKEY$<>[P]ASN PASN { NEW ASN [N] TO !ASN [K][M]CODE  3 OPEN # CLS LN  INK  CAT  DATA  OUT $[L] AND [U] CLS  TO # BORDER  PAPER L[M]g NEW  CIRCLE  LPRINT ,e4 CIRCLE POINT t AND [U]v CLS [O]▚ OUT h&LN up DRAW VAL$ CODE VAL$ [L]Y|USR  STOP w▗RND FOR gq BEEP y8PIhCODE LEN POINT ACS RAT Y<=[ CIRCLE  IF  OUT WX OUT  GO TO  COPY  RUN mCHR$  PLOT   COPY  STEP `[G]! C LPRINT T VERIFY [F] OUT :CHR$ [K]PI = PLOT  [B] PAPER STR$ c, PRINT c: LLIST [A] AND AwuJUSR k[R]v[G]# RETURN + SAVE m([K] DRAW CHR$ >. BORDER [L]NOT :[S] PAUSE [R].. FLASH  INK G<=l CONTINUE  PAPER LN EXP A CAT :D[J] DRAW  GO SUB INT  CLOSE #CINKEY$PIX6D[G]S[O]▚X OUT ▙[T]y▙▜ LPRINT [F] RUN ) CLS  CLOSE # THEN = BEEP <> RETURN 8 PAPER = VERIFY G>1 INK  PLOT  INKEY$x AND 0 COPY <>A:/<=>a COPY Clipboardm[P]P[P] NEXT 9ofNm3 IF g NEXT ASN 3[D] COPY [D] GO SUB  BEEP BIN CODE 2▟<> ▙e1 BORDER  STEP [J]PIm NEXT <>PASN  CLEAR  FOR NOT !{ MOVE ▜[J]z VERIFY ▛2 MOVE "3 PAUSE <>: CLS  GO SUB *[A]'[<> CLEAR >6yx PRINT INT  TO  VERIFY  STEP  RETURN MCHR$ LEN [K] STEP  CIRCLE  PAPER !f▟$PEEK ;I LET / OVER d[B]Q~l[O]j AND  CLOSE # LET IN ▖}RNDzCHR$ T PRINT POINT INT VAL 9POINT  BORDER  CONTINUE n[L]ASN TAB [S]N[D] OUT IN CODE <= FOR © TAB V. NEW  AND GamzovSQR  LINE AT ! NEXT ATTR BIN  TO U[T] CLEAR INKEY$RNDd :[M]PI>USR *[T]v| RETURN * CIRCLE CODE <> STEP  BRIGHT  OR <=W2TAN  FLASH !▝FH~IN V DRAW c COPY  FLASH :[C][E] NEW  THEN PI([N] BRIGHT <> FLASH  STEP ] NEW  BEEP  RESTORE  RESTORE ~ PRINT 6h!s DEF FN  CLEAR  PAPER  IF m[E]'jK CONTINUE ACS e*▘u NEXT 3IN  LET  LLIST w NEW LN  SAVE OlBestVik©w 2.7d DRAW  LLIST IvanRoshig[N]Dis[O]k fo[J]5 PRINT :M READ $Stau CLEAR :▗USR wrieACS SQR [Q]NOT  RANDOMIZE  REM VAL$ FFN K[R] BORDER De{<=deKFrU^e?5PIPIenaf2b OVER  BORDER po DRAW ▛ PAPER c: LOAD d RETURN ( RETURN O !@_ SAVE X  NEXT EXP 0 STEP /p OVER t6# IF w CLS  DATA _L[J]![U] MERGE  STEP  BEEP .Xa[D][S] BRIGHT 3SQR ACS _PEEK 8&w#uABS ( GO SUB  READ INKEY$ RUN  RESTORE +ng RANDOMIZE  GO SUB 7 STEP * INVERSE  LLIST 8▞tw<BIN w[R]  MERGE ▙ DIM  FOR {"l▞ LLIST cIN VAL$ SCREEN$  MERGE SQR [L]?[E]> FORMAT JEXP  CLS  BORDER  LLIST  CLS TAN  CLEAR G[I]"[K] BRIGHT *FN v4[K][M] PAPER [O] OVER [I]VAL$ v[P][O][B]<> RESTORE  MERGE  OR *PEEK [I]:[R]TAN ASN (Z THEN [K]FN BIN <> BRIGHT POINT (d[O]S FOR  GO SUB [IN b OPEN # STEP [B][E]:SACS  4 PLOT  [O]+[F]&IN a DEF FN W FOR ACS ▘ CLS < OR  OVER 2ABS [M]!4  INK [C][M]< NEW TAN [Q]2  CAT  CLEAR  RETURN [N]4 LET PIc7STR$ IN  POKE  MOVE  LLIST <> FOR  MERGE <=e BORDER  LINE  MOVE  CIRCLE  STEP POINT [O]l PRINT z<> RUN  LIST _ LET { DEF FN  THEN :EXP ATN [T]SQR ( IF Mt LOAD [M]}o THEN RNDABS  OPEN #POINT |▘g>@ RETURN PI<>!C OVER  STEP jACS [C]IN :r▛ RETURN  PRINT BIN  DRAW  LET  BEEP <>INKEY$ TO  FLASH  INK CODE [C] OUT [C]▝▛CODE [ RNDTAN  SAVE  CLEAR [L] CLEAR ▘[L] GO TO   FLASH dG!| READ pt~#- CLEAR   CLS  RANDOMIZE  CLEAR 7 RUN  NEXT ▗ATTR  COPY ([H][M] CLOSE #F POKE PI<= FORMAT .#© DATA  FORMAT _ASN  FORMAT  FLASH @4_^[K]POINT ~KRNDPI/ASIN G+ STEP  CLEAR  NEW C BORDER ATTR EXP kc LLIST Q>=*}EACS ©SCREEN$ W(<= COPY <> INK o^:o LET  READ  OPEN #▝$d_ar[M]LVAL$  RETURN #L[L]gth PAUSE  PLOT  EdSTR$ iVor FLASH Cz ERASE mp CIRCLE [I]7I PLOT  i▝ FOR "© REM Playo DEF FN $ NEXT  FLASH  PRINT ▚0FN  CLS  AND  VERIFY NOT  INVERSE ! SAVE  OUT by▘f|VAL$ BIN |RND RETURN [H]©G>>=x COPY  <>~C LINE " NEW [A]INT vL- OVER  DRAW  CAT  STEP  LET  TO  RESTORE  MOVE ▜_ PLOT  PEEK  #ATTR < PRINT  LLIST NCODE 4x GO SUB LEN  OUT  RESTORE }NYAT  MERGE ▛VAL$  DRAW ▚[S]+h PAPER hq▛ NEXT i[N] PAUSE [E] CIRCLE  RESTORE R' FOR g. OPEN #[L]▘f DRAW esNOT  DATA &v BRIGHT RNDn) PAUSE [E] THEN [L]▗u▛'w[K]F^STR$ R[ PRINT }TAN EXP W ERASE 5ATN RND[F]VAL$ yBuRNDACS CODE COS  COPY  OVER {l~ CLEAR ![m2f▚ LPRINT Q RUN [ LIST ,oOPI^&_V CONTINUE  GO SUB VAL  OPEN #GQd'1 GO TO <>[A] CIRCLE $&* SAVE ▙ OPEN # CAT ~K2<> COPY `▚ MOVE HBY S[ FOR T< THEN ATTR VAL V PRINT  COPY TAN < IF FN  STOP  BORDER ?IN <PI©_SONG_INT <>[B]SCREEN$  CAT INT  BEEP IN rSu CLS O INVERSE * STEP  NEW  PRINT <37<>KSAASN [K][T] INK (ACS  STEP ▟9USR  LOAD O RETURN  CLS R v1.3L@TAN LEN W REM [P][K] AND  CIRCLE  POKE x2COS h GO TO  TO PEEK --<* COPY .}$ READ  ERASE }] CAT  COPY SIN Y(C) STOP 5  LOAD LV▘ PLOT  z TO  LOAD o OR [T]+PICc[K]'L17 VERIFY  REM 2tEXP ▜/TAN  INK ABS [E][I]AT <=6@ABS  LLIST B. DATA TAN SCREEN$  RUN d FLASH VASN  STEP ▗[K]z7TAN 9[L] COPY TAN  PLOT   CIRCLE 3[L]ATTR E COPY  MERGE  STEP EXP GUASN IN [S]e RESTORE %*! c' PRINT  IF WAT  ERASE [B] DEF FN [L][T] FORMAT  ]?B STOP  DEF FN  SAVE ▜TAB  DEF FN  SAVE W DEF FN ▟LEN  MERGE  DEF FN 7 OVER  DEF FN 4 OUT  DRAW  DEF FN  DEF FN ▞ DEF FN V COPY  DEF FN .<=?PEEK 8 BORDER  NEW  THEN  THEN PAT  RESTORE SC V#0 FORMAT  DRAW ▝[F]<VAL$  RUN  NEXT  AND  CLS % COPY  DRAW :[B][S][N]SQR N? OPEN #IN 4 CIRCLE  OPEN #!2 AND 9lATTR BIN l STEP  BRIGHT [Q]5[U]▞ACS  STOP f STOP  LINE $ INK  INPUT Z STOP ATTR 7LEN IN T/ CAT ^[S]9}[N]}[O] INVERSE i CAT ▟LN [M]PI>=G!▗ LLIST /CODE  THEN ~USR # IF 4 LIST <>/<>[P] SAVE  CLEAR  RETURN 8905*^<>[M] RESTORE u@{ SAVE  PRINT  LLIST 0([ GO SUB |;8CHR$  RESTORE NB|ASN  FLASH  DEF FN  FOR  MERGE INKEY$*cCOS  PAUSE  PRINT ▟CODE _7! BEEP  STOP M:▞ STEP VAL dVAL  LLIST [P] RETURN 4PEEK D FORMAT <<>SOUND TRACKSUPCODE PEEK  RETURN y▛[M] INVERSE  PAUSE ^A OUT  LET  STOP PTP▛ OUT O BEEP <j>=▚NOT  STEP RA RANDOMIZE OGL~BIN BA2% OUT d"pD FLASH  DEF FN PI OUT .[ LLIST POINT IN  PRINT rINKEY$ DRAW [D][S][G][R] DRAW  (roughZupy)1 RANDOMIZE  GO SUB [A]FR DIM PEEK [S]ZE/SG READ PIXU MOVE # MOVE  DEF FN ST[I]5]GJ?MPILO[P]N[L]tan[K]^d#IN [T][K][S]0 VERIFY 5 CAT MU SAVE ' CLEAR R CAT POINT <[D] LINE ▟ LPRINT  POKE 1i0s▟"+4TAN USR  COPY PI<=[Q]/l DATA 'SCREEN$ ▟LN h CAT O FLASH  PAPER [N]! ERASE DPEEK VAL$ [P] RESTORE ABS TAB e`jg INVERSE !g]@ PRINT  POKE D[Q] VERIFY [B]w GO SUB ,o~ LPRINT ![K]@:H CLEAR SQR SCREEN$ PI THEN  GO SUB FN ▘INT ▛ REM / LPRINT !N▞? NEW NOT ▜( VERIFY 0 OVER SGN ~p LLIST LN [N]_ THEN ?PI RND][L]O[A][S]( OR G[O]I PAUSE  NEXT ~ NEW  RETURN w RANDOMIZE  PRINT STR$  LIST STR$ x▜ AND *LEN  LINE ~ PLOT  wLEN q LLIST  RUN <> BORDER vw! CONTINUE  RETURN  AND  RETURN  GO SUB Qx THEN g(>[O] OVER  DATA  NEW  RETURN Cj LLIST 6 FLASH <> NEW SQR  RUN COS ACS lm>=Fi THEN  PLOT  = LLIST pTAN E<BFO!/ FOR ©COS  AND ~<> STEP  SAVE [E]B NEW  DRAW wV/[F]EXP  INK  MOVE b DRAW K DIM NOT n NEW  CLEAR V REM ^7|FN PI<= LET < INPUT  DRAW P=ATTR {▜[U] FOR ? LET <>fD AND ▖LEN  LLIST PEEK ▚▚o RETURN  DRAW !>=* INK 5 DEF FN CTU RETURN  RANDOMIZE  DEF FN [N][F]+I$& RETURN /o<L OR _[D]x<=[H]IN [F] LIST  COPY [F] VERIFY ;[C] CLS  TO  PLOT   LOAD  IF !VAL$  NEW k$U LET <>LEN [P] LLIST :> TO [E]w#W RETURN /W>= OR  NEW  RETURN POINT  BEEP  RETURN  OR 4~ RETURN 2USR CODE w* THEN SIN  INK :USR  FLASH j[LEN V INVERSE 6CODE [E] CLEAR  ERASE gBIN /[H]STR$ + IF SGN [G]~! GO SUB PI MOVE [L] OVER  FORMAT  LLIST >= DIM  ERASE  DEF FN [12Z'~# THEN  FLASH  CIRCLE [J]w PRINT ABS  ▛ GO TO bkPEEK  TO ' RUN [P]W RUN ABS  CONTINUE W RUN d INPUT SIN  BORDER CODE } AND 0t MOVE [T] RESTORE  STOP #[P] STEP  RETURN 0 > ERASE [N] COPY  BORDER  PAUSE :1 BORDER ▗ LLIST SGN 5~[Q] OR T]# OUT _ STR$  LLIST e REM  DATA -RND[ PLOT  <> PRINT  FOR X0 CLS SGN  LINE Q<>/I#6gg[G] PAUSE  PLOT  ! RESTORE AK?LEN BkATN  OR  MERGE NOT [H]oATTR  MOVE VAL STR$  TO 4 OUT [C]D PRINT / PAPER [P] DEF FN ▝ STEP > DIM !CHR$  STOP /[N]h^b GO SUB  REM - CONTINUE ▝2▜ LOAD 64 RESTORE  RANDOMIZE  CAT ) CAT  CAT C[K]▞EXP gEXP [D] CONTINUE  REM H SAVE  PRINT  PRINT h BORDER  MERGE [H]ABS SGN  RETURN  REM <>@  COPY +a2[B] CONTINUE  PRINT 7 LLIST  NEW !▜[C] GO SUB ATTR ~e PLOT   LET >[A][C]t'[N]: FLASH  READ  THEN ? RESTORE xWe[C]{[2GINKEY$ LPRINT   CLEAR  BRIGHT >=w COPY ACS w DIM O PRINT <> LPRINT .<> READ LEN FN [E]{POINT ▜! PAPER FN fINKEY$ LET TAB  FORMAT EXP TAN  LET O GO TO RND_▜zINKEY$[S] MOVE [U] INK [S]#[A] DIM [I][M]$ NEW  LOAD <> INVERSE  LLIST 6[O]W[{ RUN TAB  CLS  DIM [F]mTAB ACS  GO SUB TAB PEEK { DRAW v?_  INK  LINE s THEN g PRINT  NEXT UhPEEK [G]8 DIM w LET * CLS o PRINT TAB ' INPUT  FORMAT / NEW UFn!hSTR$  IF ` STEP AT CODE  REM CODE g[T] DRAW [N]Ng'IN ▙INKEY$[F][H]R:u[I]WASN  PAPER  THEN [J]INKEY$[F]~zX BEEP  OVER STR$  RUN SQR RND[B] BRIGHT RND>! OUT +TAB  STEP ?[P][K]|gCODE  GO SUB s NEW  STOP @ REM 1F DIM l READ uR0*[M]INKEY$> MOVE z IF l AND  RANDOMIZE <NOT 4 COPY PEEK  OUT .[K]<> LET -▝ INK =[I]nPOINT ! LPRINT [N]EXP  BRIGHT CODE C y GO TO lSTR$ mg RUN  MERGE [B]v[T]O OVER [S] CAT zo=zv LLIST ATN [A]kY CAT I( CAT  INPUT  GO TO  MOVE  REM YLN [P]▚qg CLS [D]HgRND6%LN YCOS  PLOT   BRIGHT = FOR  FORMAT NOT LN AT gVAL$ [U][L][O] PRINT [D] VERIFY COS ▘{tn CAT zhb FOR Y/WRNg=JEg▟A9:[T]74c.Y CAT ,)= FOR '%#ATTR g!u GO SUB  GO TO [BIN [T]g=ATN [L]FIN  FLASH irsbSGN y< OR Packd[P] RESTORE lo NEXT C[N]Ur▘VAL PRNDB  INK ACS cad PLOT  Snx BORDER  NEW  OVER DfABS ec THEN  COS © COPY o[N] BRIGHT INT Y IF In IF .fNnexi▖/ CAT 7 NEXT o-| AND  THEN ![K]N INPUT ATN  LIST SP PAUSE INKEY$x©UnpSSGN i[H] OVER MWo MOVE [M][N]usK=[J] OUT , save DATA ATN  K RETURN . FOR EXP (<>u* COPY  GO SUB Ro[E] OR )"oCODE !i▟[ GO SUB m FLASH LN IN G TO  COPY  MERGE  DRAW  GO SUB  RETURN ( FLASH 7 OVER  STEP [[2 RESTORE  CLEAR INT  CONTINUE DCODE SCREEN$ x NEXT  DEF FN U PRINT  ERASE  DEF FN ▜ATN  OVER  DEF FN  INPUT  DEF FN fo[B][Q] CIRCLE +ACS  VERIFY  AND NOT ) OVER wPEEK  LET  OVER _O OVER  INPUT  RETURN %>= CLS >E STOP D[J]PEEK { DIM [T]I OVER  DRAW [D]▖ FOR 7 FORMAT VAL$ VAL$ ~VAL$ o OVER [J] OVER PEEK  PRINT  OVER oqSCREEN$ ? REM <=SIN  FORMAT  MERGE ` ERASE  FOR WCODE  LLIST Kz GO SUB R} POKE  RANDOMIZE  LINE [O] NEW ACS ACS >-f INK ,VAL  CLOSE # SAVE [U] CLOSE # RANDOMIZE %SGN [J]<> LOAD PEEK [G][J]:SQR  FOR  INPUT HRUSCREEN$ 7.5i BRIGHT ST ctAT PCDLEN PEEK  IF 6 BEEP 2MS-P>=o7 01.96 OR BIN i POKE Q4 IF tCODE▞ GO SUB HIN [F]eh INVERSE W5PEEK H8[86J BEEP  STEP LZ<=kf ERASE 5TAN IN v62COS bTAN  OVER  INK [L]US RETURN 3 DEF FN  PAUSE [H]CODE 2N FOR NOT ![B] LIST © OVER  zCOS >= RESTORE pm FOR  LIST  READ [M]N)oF^ VERIFY PI RANDOMIZE CHR$ 8 LOAD  PAPER _G FOR ~jEXP PEEK #^ CLEAR  LLIST  STEP DCODE ▜ DATA  DRAW SLEN PI FORMAT PEEK  PAUSE  DATA POINT  INK [H]= REM X MERGE  LET SIN ▜ CLS b OR [O]bm>=[O]9U@Q!{XVPOINT <=a FOR  PLOT  ~ DRAW ^ FORMAT ▛>8 CLOSE #N(f▗ ERASE /"V@|[T]bSk9| RESTORE  CLEAR ASN >=) THEN  BORDER  MERGE ASN }s LIST  VERIFY do| OVER gz NEXT W8CODE CODE  LOAD Sc RESTORE  OVER  BEEP 4k INVERSE [B] OVER [I]j▙ OUT  INVERSE I LIST [F] LPRINT  FORMAT POINT f OPEN #5#] COPY PI>dABS 0SGN [B][Q]ATN t" FOR [A]i RETURN ▟#h] LPRINT 4 LLIST ▛ PLOT   THEN NOT ! INPUT  COPY CHR$ © STEP  RESTORE  STEP R LOAD  FOR owq#!kM RANDOMIZE  LIST NOT o STEP /STR$ / FLASH  MERGE  GO TO ABS <= FLASH  READ [L] INVERSE BIN  NEXT 6 INK [ASN INT V RETURN < TO  MOVE  LLIST  RESTORE  STEP  AND  STOP [D][T]PEEK ▛ CLEAR &M LLIST vCODE RND PLOT  3 BORDER SCREEN$ PEEK [J]O~ RETURN VAL CHR$ [E].SIN [C] BORDER  LPRINT AT  RETURN INKEY$ MOVE s READ r▝ NEW [O]vwYg STEP ▝[J]NOT  CAT TAB ABS [I]SCREEN$ /?_cf=^ZUSR R?VAL SQR EXP  NEW RND2 OVER  CLS  GO SUB [U]5ABS CODE  PRINT [P] CLEAR  RUN ACS IN ~mL<>] LOAD AT gfoy[O] PRINT ▚ VERIFY COS [E]FN USR  MOVE COS { GO TO  LIST z VERIFY 5PSF CAT VY PRINT  GO TO } LET [G]LN COS [O]SGN USR z VERIFY BIN  ERASE  INVERSE  RANDOMIZE g7 PAUSE  PRINT AT !%COS [O]3>z VERIFY BIJNY CAT OP= FOR QRSAT gWel[O] PRINT ▙[C] VERIFY COS [G][K]FN COS  CAT z CAT  OUT zv NEW  NEXT Y CAT "-= FOR IX_AT g▗▖[O] PRINT [A][O] VERIFY COS POINT  OR  MOVE  CIRCLE  CAT z OUT  NEW  CONTINUE Y REM  FOR  RANDOMIZE  IF [O] INVERSE  POKE  VERIFY COS "& CAT z*8 FOR YFbnrg=z▘ PRINT AT ▚▞▛COS [O][N]z VERIFY [U]ATTR CODE COS Y CAT ATN  OR = FOR  FORMAT  GO TO  CLS  FOR  INK  PRINT g= PRINT AT #29COS [O]@Dz VERIFY HKYZY CAT et3 READ { RESTORE  PRINT z VERIFY ▟[L][M] INK INT VAL  OUT  CONTINUE w&STR$  LLIST ; LET  PRINT  OR  INK )?IN SIN  POINT  LET (%ATN o[S]TAN  PLOT   READ q DRAW [P] RANDOMIZE  LET ▟<;▙<> MOVE  DEF FN  OPEN # DEF FN 2ATN  TO PI INK ▛L POKE EXP  GO SUB [I] FOR <= CAT  OPEN #SGN SCREEN$ USGN n[S] PAUSE HR3 DRAW cLSIN  RESTORE %rL BRIGHT IN [D]& CLOSE #+[P]AT [D][T] COPY  DIM SQR  REM  CLS R2 PAUSE  LINE  AND [P]:y CLOSE # CLEAR c LPRINT 9u/ATN  DEF FN  VERIFY @ DRAW cSGN <= CLOSE #[M] MOVE  COPY ASN <[NOT [T]L▟▖RND*[H]©ABS QgpSCREEN$ xnSGN Tnx[M]INKEY$ PAPER ,AT ▛ OR NAT <= TO BIN ▛PI DEF FN INKEY${▛(ij▛CODE ▛INT  FOR 4*EXP NOT  CAT [I]<= OPEN #USGN [S]SCREEN$ SGN  AND [I]▖[T] RUN  STEP G` INK 0 LLIST A)0 ERASE 4[F]&▚' LOAD  RANDOMIZE [E][H] FLASH *^ LINE  STOP [F]▚PITAB 7)▚USR EXP XCHR$ t MERGE ▚! NEXT # STEP ▚▚)SQR  VERIFY 2SIN EXP = TO u<=▛g OPEN #SGN TAB  LINE 2eLN a AND c~▚ MOVE  INK  LLIST  AND [Q]▗ TO 4 DATA  FLASH  DEF FN * LOAD r LINE [T] FOR RND& THEN  THEN !R DEF FN [O]▜N RANDOMIZE 1 MOVE /M▗ LLIST [K]LN  STOP 4[N] THEN  READ INKEY$ POKE 4RND▗ OUT N[D]▗ACS EXP EXP  GO SUB BIN  OPEN #U LET ▗SCREEN$ ZEXP VAL$ )[K]: COPY 0'E, STEP [G] LINE y NEW >INKEY$VAL  PRINT VAL  VERIFY W RESTORE [K][T] OPEN #IN ASN  STEP [H] RUN [I]) SAVE INT INKEY$1RNDATTR !▟8 CLOSE # VERIFY =+k" IF ~ THEN ?8+ NEW  CAT  DRAW INKEY$[G] POKE &H> REM [J]IN ~[S]r MERGE j[F][G]r BORDER f7 POKE STR$ 2ATN STR$ [B]L1B▞[B]LN :SVAL$ ATTR d FORMAT BIN 2STR$ fcFN ▗ VERIFY BIN [J] DEF FN  OVER y?▘NU$[M]TAN [O] PAPER lNOT ,AT [I][E] BORDER  CLS o^F#[K]dSGN )s©  NEW o POKE  OPEN #m RANDOMIZE i`[S]:EXP  BEEP $NOT  OR juw<= TO 4BIN ▛INT  INK i PAPER  RUN  TO vs:▞v LPRINT [H]>= OVER  OPEN #SCREEN$ ▘ INK *cSTR$ s[J]8ATN  GO SUB hABS USR B LLIST  CIRCLE ~L* INVERSE  INK ' DATA 7V MOVE  DATA )5 OPEN #8 OPEN #*{-[H]p INVERSE VAL$ +[S]FNOT (▜no AND OR[P]3VAL$ [G] LOAD ]d[G] IF >=>VAL$ e[lX PRINT EXP ATTR  DATA j1▚{COS  VERIFY PEEK DPEEK  DRAW {PEEK G GO SUB o VERIFY  COPY LPEEK  NEXT [J]PEEK YPEEK [K]wPEEK  LET  DRAW PEEK :PIvASN  ( NEXT  RETURN A$+|2(1RND FOR  RETURN BI)MINT ]P! FLASH +$i- OUT  MERGE B'y CLEAR " NEW ATTR nOSGN SGN ( THEN [D]D GO TO s* OUT >(zSCREEN$ EXP ATTR RNDCOS  RETURN (r[G][S]` CONTINUE > RESTORE l]YMCODE ▗ LINE $ RUN  COPY USR AT  THEN C[E] ERASE ]SGN > FLASH  CONTINUE =Wf CIRCLE f[L][E]COS -[N]aRND[H]Sy5 CLEAR @sm1S SAVE $▞TAB  AND "{^POINT n SAVE BO▞iRND NEW AT = PAPER gSQR  VERIFY  PRINT z PAPER as OPEN #hXm5[J]O READ  THEN  GO TO sFN {o[P] NEXT 4#h RUN dH# THEN  RUN R;ASN (OUG THEN CODE  RETURN Xx :i MERGE Ae GO SUB o[F][U]Sx(AT M5 PAUSE tASN x RESTORE %[J] INVERSE  CLS TAB  VERIFY STR$ PEEK "! RUN COS %d(▞(2SCREEN$ v`AT [H]NOT 6ATN /▖|e[L] LOAD  COPY  PLOT  =[B]0 DRAW x2C<>* AND o[ SAVE n▞" SAVE Q▚BIN 5▖ INVERSE !▗< RETURN  STEP USR c_@>ACS  INK z SAVE [P]GpU" INK ATTR  SAVE ▛ DIM  FORMAT Ry OUT r>=[E][B]{SCREEN$ <> TO FN CODE MFN  RANDOMIZE [T] VERIFY [I] COPY g LLIST [B]SIN ▟ PRINT [S]SIN FN  RUN <>AT [P] CLS  RESTORE  LLIST  OVER 4 CONTINUE [D]POINT 90#y LPRINT  RUN [E] IF nFN yACS w= POKE  CLOSE # LLIST T COPY }AT  GO SUB VAL  NEW ©ACS  PAPER POINT >UCOS  STOP D>i LLIST S LLIST  RANDOMIZE kSCREEN$ UI PRINT  OVER [R]u6 REM [H] SAVE [K] STEP  STEP [G]C/ RETURN [U]1. BRIGHT  DATA COS  THEN c VERIFY  CAT  CIRCLE  FLASH <>H_VAL$ &@:[M]m2GAin[L]>8 LIST  FOR 5 CLEAR [N] THEN BSGN >=VAL$ y LET <>INKEY$COS  FOR )" REM n▝ OVER ~ NEXT o▘+ CLS ![S]vEKINKEY$W NEW  STOP PI> RETURN  THEN 8PEEK 0k@[G]2POINT  RANDOMIZE  GO SUB KFN N~[ NEXT RD: IF ?&9 DRAW  RETURN  FLASH  LLIST 8SSTR$ EXP   GO TO  PRINT ! NEW  SAVE CSQR w LIST  INK ▟ IF l RANDOMIZE yV REM ▛CODE  REM [?} SAVE  FORMAT >VBj COPY (v OR  CAT  TO z LLIST  CAT / BEEP  OUT COS M"' DRAW  THEN  RUN fABS VFBIN k IF COS YN STEP *[O]VV[J] DRAW <>l^ STEP [L] PAUSE ▞ PAUSE EXP - DATA  CLS EXP  FORMAT  BORDER  IF :BIN LEN [K]PI LINE 3MVAL =NOT i PAPER *T" FORMAT ▛3[F] LIST  STEP SCREEN$ [J] IF gSQR = PAUSE dk54,EXP  OR  MERGE / MOVE % DRAW STR$   PAUSE <>INT  GO SUB z DATA  OUT  PLOT  vb CLS  FOR POINT  RETURN AT V.m OPEN #Z ERASE COS  NEW  STEP 6bBIN  INVERSE NOT  STEP [M]IN  FORMAT [N]c REM L[L]3[P] DIM PIBIN INKEY$*RNDLEN FATN u OR  INK  OVER STR$ /Ys@ MERGE z MERGE =W MOVE [S]Z VERIFY 8 <>>h[C] RESTORE *j~/w, AND  ERASE STR$  LLIST $k[L]RND6 INK 8k0 OVER  RANDOMIZE FN $w STEP  CAT !@_#~ RETURN 9 MERGE  STEP [L] RUN 5 MOVE :|▚<>j_vG CLS  FLASH  CAT ~ RETURN >=5' IF INKEY$Z: INVERSE 5ASN  STEP  FLASH  IF  PRINT [J] LINE >=5ACS  MOVE  LET 4UATTR  FORMAT  INK LEN  TO [O] NEW 3 [O][B][E] RETURN  GO TO [O] PAPER LEN ' STOP W{ TO SIN [S][G]= PAPER ASN { CLOSE #3 OUT  IF @[S]3 GO TO [S]$cACS j CONTINUE  INK ACS [S] INK 3/[M] COPY 6 CONTINUE 5c'▛u[S]& COPY <= FOR  INK !USR 8CODE ▚^~# RETURN  INK o6  REM e RUN PEEK  [S] CIRCLE J INK  INVERSE $▙A[J]~ NEW  PRINT ▝O$ RUN  REM z LIST FN  CLS  LPRINT  DRAW  NEXT ![ CLS  THEN  DRAW  VERIFY  NEXT  BORDER R PLOT  yPI~ o>=[H] THEN F( DRAW SGN SGN [PEEK  % PRINT IN t&)T]7USR COS F THEN  RESTORE [T]+ SAVE h PRINT a LET }=? BEEP NOT  MERGE SIN CODE WN THEN .IN 9?[N] LIST  RETURN 8EXP " CAT 8W>SIN 9QASN VAL G RUN LEN U2a7 CLS B LOAD  BORDER a CLEAR   VERIFY  LOAD Aqa<> LOAD B1 OUT ▘ SAVE ▙n OVER  PAUSE Q LIST  RETURN lATN  PAUSE O>=m THEN [F]LEN G CIRCLE 6 RESTORE  RETURN [J]Xx OVER s©OVAL$  THEN %o PAUSE  RESTORE  FOR  ^ RESTORE  NEW  ERASE  OUT  PRINT 5 OUT  RUN CHR$ vEXP ASN W STEP  BORDER  INVERSE TAN (6g[K]TAN f FORMAT  OVER ( LINE  LOAD POINT N[ VERIFY ACS  PLOT  b AND s% DEF FN U*▚COS <= THEN OINKEY$! DRAW USR  STEP (G FORMAT #/INKEY$J▜~ CLEAR ACS  INK  SAVE +#[C]IN  BORDER  VERIFY  LET  FLASH TAN OoftS<=OkSCREEN$ ^[P]HvV#^LN  IN M1j LET x OR x▜=VAL$ PIG/ CLEAR  INVERSE `~6,y VERIFY {EXP =  IF  LLIST  FOR t> ERASE  RESTORE y DRAW  STOP RND LLIST s- NEW  LET . OPEN #COS m COPY [P]@+ LET  COPY  RESTORE  CLEAR !:/ GO SUB V>?{ GH/ NEW 8} STEP [K]v OPEN # RETURN PEEK [C]▟O PAUSE [T]Gy NEW  SAVE VAL ATN  DATA Xw[M]=W@uLEN SCREEN$ SQR [S][S] INVERSE  TO  AND P(?COS SCREEN$  IF _> STEP ▗[E]▗?/ PLOT  6 GO TO  STOP 6CODE ▙/q{=[K]vTAN & TO [ FOR +[R] SAVE [R]USR 6"#IN ©+ NEXT [I] VERIFY ▖~LN SIN ~ SAVE ▖ OVER  NEXT ` DRAW  SAVE STR$ ▝O GO SUB USR [O] RETURN nU©STR$ x LLIST COS  PAUSE . LINE  CAT IN  FORMAT y LOAD Cj( IF  SAVE ASN  CAT  DIM wVIN HUSR  INVERSE  REM RPI COPY ASN <>*[M] BORDER d THEN  GO SUB -kSTR$ ATN ©3= GO SUB VATN  NEW  PAPER [O]G6TAB <>n STEP USR SGN Qgfo| NEW ' AND  REM <>! RUN  STOP [R]WSTR$ T OR [P] INPUT |%- DIM ~EXP  CLEAR [S]#STR$  STEP  READ h STOP INKEY$ CIRCLE  BRIGHT  OPEN #A@ COPY ▝] OPEN #$AT  OPEN #mOBJ     C` BRIGHT [O][P]hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.