Denizen: DENIZEN.B

  21065 CLOSE #USR BIN 1COS _ STEP  READ ]CODE  OPEN # RETURN !FN a STEP  PAPER ] STEP FN a2[L]] STEP  READ ]!@[M] STEP  PAPER ] STEP @[M]!TAN _P STEP  PAPER ] STEP TAN _1 STEP  FORMAT ]" STEP  FORMAT ] STEP  FORMAT ] STEP  FORMAT ] CLEAR ©> GO SUB y2/[ THEN @(CODE 2[N] READ  THEN H(CODE 2* LOAD  THEN P(CODE 2 STOP  DATA > STEP 2INT  BRIGHT  THEN X(CODE !2[G] GO SUB "[H] GO SUB 2COS  INPUT "TAN  INPUT NOT ▖ POKE !USR  RESTORE  CLEAR © GO SUB QC GO SUB [ POKE /!@@u GO SUB VAL <>SCREEN$ IR STEP  REM b STEP  AND b![D]c STEP zbv CLEAR  STEP Bb RETURN   LINE  NEW a RETURN  LINE  OPEN #a RETURN 1 PAPER TAN a RETURN 5 PAPER  FOR aNOT TAN a:[A]cG>1 OR  PRINT  STEP  LET a LET STR$ < PLOT  NOT TAN a NEXT :[C]c<> STEP  LET aNOT TAN a: CIRCLE c2lc VERIFY 0O! THEN <==CHR$ b"bG:[C]cFN o2[C]c>2Bc: BEEP c THEN ▝2=c}[Q]FN !▟cCHR$ 2b!c~ STEP -c#~ STEP -c#~ STEP -c#<>> RUN  FLASH  RETURN 00000>IN  FLASH  RETURN 0>© FLASH  RETURN 0 INVERSE >1<>>2<>>3<>>4<>>5<>><>> <>~2Bc#~2=c#~2lc#:Bc2[B]c~ATN >= RETURN  LINE VAL b RETURN  LINE TAN b RETURN  LINE PIb STEP -c# CONTINUE #~2lc#NOT b#NOT zb:[B]c2Bc:=c<<2=c#NOT b!@ INVERSE !© OR   INVERSE u INVERSE t INVERSE # INVERSE # NEXT STR$  NEW <>!= CLEAR  OR ~ THEN /ACS # RUN  GO SUB [Q] GO SUB [Q]~ THEN 'ACS # RUN STR$  STOP ! DRAW  OR  RESTORE  OR ~STR$  PRINT  LLIST #STR$  GO TO <> PRINT  MERGE  RESTORE  STEP 7c LLIST  MOVE  LET <>_&©.~,f AND ow$w$w$w$w$w$w$w| NEW  PLOT  Xg6:Bc<2Bc RETURN   CIRCLE CODE 2Bc:=c<< RETURN 0 PAPER ▚cCODE 2=c<>.ONOFFDENIZEN 128by PLAYERS PREMIER, 1988SELECT GAME OPTIONS:==========================1. INFINITE ENERGY.....OFF2. INFINITE AMMO.......OFF3. TORCH...............OFF4. DOOR PASSES.........OFF==========================REDISKED, PACKED & CHEATEDby RIMO BLACK from SLIDERS,PRESS "SPACE" TO START GAME.PRESS "ENTER" FOR TOGGLE OPTIONSB INK  INK !LC4.0   B[H][H]*PCD6.2  BqqPACK BCMSP v1.6BSQR SQR 4LDR     CUSR ▗LO      CUSR LZSSNEW BBBTRUSH   B55ER   CUSR  INK LOAD    CFN a  [A]@~ VERIFY USR 8#>=G~0E THEN 8 G#0CODE :8 CLS CODE ~#2 AND @ THEN ©~LEN G~# NEW  ~# THEN < RESTORE n`G| RETURN X08TAB [R]TAB  INK W INK TAB AT  INK _ INK z RETURN X0$ATTR [R]ATTR  INK W INK ATTR SCREEN$  INK _ INK (#8~ STOP 0 IF + AND  LLIST #▚7 PRINT  AND  INK W INK  LET {0 BRIGHT }BIN <= FORMAT ?:>E RETURN >= OVER  INPUT  PLOT   NEW © RETURN <=CHR$ SCREEN$ <> COPY BIN SCREEN$ U THEN  AND hll<>f MERGE cIN  RANDOMIZE NOT $?USR NOT 8 COPY USR USR <>o<>`<>n MERGE `PI NEXT  COPY @ COPY USR WUSR  STEP c OR s STEP { OR k MERGE c COPY @IN USR F_USR <> NEXT ? LET CHR$  CLS CHR$ PI POKE  AND G CONTINUE ?USR <> CIRCLE  GO SUB USR PI NEXT  CAT CHR$ T/[K] FORMAT  DEF FN ▘USCREEN$ / IF  RETURN  AND TLN A@ AND P* PAPER  AND @FN ATN  FORMAT G RETURN LN [P] DRAW ICHR$  DATA  A[Q]USCREEN$ ▘▘▘E[H] AND  AND Q TKUSR GLN ACS PEEK CHR$ *[H] FORMAT *SCREEN$ TSCREEN$ OUSR <>©[G] CAT <><> OR 0CODE  PRINT NOT  TO [Q]PFN P@?VAL$  COPY USR  COPY USR  COPY @ COPY USR  COPY @ DEF FN [Q] LIST  SAVE  DRAW LN |xo RETURN ▗N./ RETURN NOT NOT NOT NOT GVAL hjCHR$ ANOT - LINE (USCREEN$ .t▞. RETURN  DEF FN (PK GO TO  RETURN [A]> DEF FN SCREEN$ @D@▖TAN CHR$  NOT (CHR$ [P][A][Q]INT CHR$ FN TAN  LIST  POKE FN SCREEN$ PI GO TO  LIST G PAUSE [C]▖[G] AND  BORDER BIN TFN [A]PEEK [P] RETURN [P]BIN CHR$  POKE ▖h>=FN A REM g RETURN Z ERASE CHR$ *OSGN INT [C] RETURN  CONTINUE [H]ACS BIN *PBINT b[E] DEF FN ▘[P] PAUSE ~  RETURN BIN  SAVE (J THEN  POKE * PAUSE  LIST CODE  INPUT % ERASE "R▙[C]▙[M]CHR$ >=ACS  RETURN MVAL$  FOR  TO @([Q] POKE !2QINT GNOT NOT r/ RETURN ▗>>=?qCHR$ USTR$  COPY CODE  DRAW  TO  RETURN  RETURN ATN  COPY [H] IF  RETURN >=x▗TAN [U][P] RETURN ATN  THEN oUSR  ERASE  RETURN  DRAW  SAVE  LIST  STOP USR [P]©GUSR  THEN CHR$ USR <> [H] AND  OR   AND CODE   OPEN # LINE ]U]EE THEN  TO  GO SUB  DIM  GO SUB  LPRINT M7USR >= AND  LPRINT >=<><= FORMAT ABS #' CAT ?~ GO SUB  PAPER  CONTINUE >=▞▖▚ DRAW LEN <=BIN  BRIGHT T RETURN [H] SAVE  OR  RETURN  AND U{[M]/BIN *?[D][B]2>=17/>=BIN  LPRINT USR  OPEN # LIST  RETURN CHR$ [H] AND [H] / RETURN CHR$ PI"# THEN  BRIGHT ? RETURN  DRAW  DRAW  POKE  CONTINUE PSCREEN$  CAT O/>= FORMAT  LLIST CHR$ 7 NEXT  MERGE @CHR$ G<>H FORMAT  FOR H LIST @[H] ERASE CODE ▚USR  AND ;)POINT IN  SAVE [J] DEF FN  OUT USR  LINE  CAT <= LINE  READ ACS  POKE ?>=!STR$ Q<>Vy<>CHR$  BEEP [H] DRAW <=>=SQR [S]COS "[H]SGN IN  BEEP [G] INK CODE 7USR  LPRINT ▗▗ DATA j MERGE w CAT  LINE 8[Q]8▖INT ?USR [H] COPY  TO *_/_5[H] DATA  FORMAT [Q]USR  LIST >=0j+USR AUSR ▘[ CLS [H] DATA CHR$  STEP [H] IF PI RETURN eUSR <>CHR$ CODE  LINE  DIM ATTR 'USR "TAN SUSR ▙▗ AND H▞[G] COPY  LINE ▞▖▖▞▗▜>= LINE PI LIST  IF EXP  LLIST x<> SAVE CHR$  LIST [S] ERASE OUSR [H] OVER CHR$  MERGE  THEN  AND < CLEAR #@[N]Y CLEAR  CLOSE # COPY ~IN ~IN [H] RETURN CHR$ xPI PLOT  ▟[P]CHR$  RETURN 'USR  ERASE  SAVE ▗▗*IN [P] RETURN #USR  DEF FN  DRAW  RANDOMIZE PI VERIFY gWG RETURN  LINE S`SgV▜ IF  CIRCLE  BEEP PI3FB[S] PLOT  [P] RETURN $USR [H][g DRAW g LIST  POKE  RETURN ▙USR  DEF FN STR$  LPRINT  LIST x<[B]v RETURN  RETURN _USR 7STR$ >=[I]6WUSR  DEF FN O BORDER  RUN VAL wp STEP w OR p FORMAT w LET  RUN  LPRINT  LLIST  RUN LEN [H] SAVE  RETURN  DEF FN vqvq RUN  LIST  LPRINT [A][B] FLASH 7STR$ >=P[Q][J]8CHR$ [S]OUSR  FORMAT ?©5z<x=y/ RETURN  TO I GO SUB hlj OUT PIH▖ZCHR$ ▘▜J]▝W RETURN ? PAUSE ? SAVE CHR$  FLASH  PAPER <= AND  CLEAR }=[Q]L[H]▜ LINE  ERASE  IF  CLEAR  RETURN /PEEK >[M]PEEK 5 RETURN [H] STOP  8CHR$ U8ACS e DATA  DRAW  CLS  POKE  POKE  RESTORE BIN [F]$U[U]BIN %RNDRND!VAL$  <>$R MOVE <>[L]TAN  LINE  LPRINT  LPRINT @ LPRINT [P]CHR$ !▛ PRINT ▛ CAT >= PLOT  ATN w STEP  RUN  CIRCLE ▜ RUN @cW NEW W BORDER G[H] RUN  AND  BORDER WW RETURN  DEF FN S LLIST D LOAD ET▘zRM FORMAT PI FLASH O CONTINUE iUSR BIN p`%USR  ERASE E REM  LIST LEN rpwtp[H] COPY  AND t LIST  LIST [H]BIN  LIST VAL [P] SAVE ? DRAW  MERGE p BORDER z_ CLEAR ^BIN JI[H] PRINT  INVERSE HCHR$ ▖<>BIN 0>=EXP ▜ MERGE [P]CHR$ _ STEP !USR ▙▘NOT  VERIFY P RANDOMIZE !ATTR !NOT {<> CIRCLE [A]W LOAD ?©! NEW [O]▝ CAT ▞ RESTORE  LOAD  FORMAT  LIST |>>'USR  DRAW  THEN  STEP ~[G]LN CHR$ CHR$ >=>= RANDOMIZE  LET  LLIST STR$ >=BIN <=  MOVE ! OR  ▜M ERASE CODE Wp8USR BIN  THEN >=▝▜6>= LINE  IF  LET  RESTORE STR$ ▝ MERGE CHR$ }<>F▙R<>BIN  CLEAR [F] PLOT  ^VAL [P]E LINE SCREEN$ QW CAT '>=XBIN  GO TO CHR$ ) OR CHR$ z MERGE  CLOSE #O AND  RUN [H] RETURN [H]ATN  RETURN [P]SGN  BORDER >= CLEAR  CLS  RUN CODE / CHR$  NEXT  [P] OPEN #[ LINE  AND %&[I] INK S TO ASN BIN  PRINT ( OUT [H]^CHR$ U<> DRAW [I]> TO `_?© COPY  COPY  DEF FN B>=CAH BIN CHR$  CLEAR [M] BORDER  RETURN [H]e[P]b DRAW wUSR STR$ !CHR$ g CLS  OR ▜ CLEAR ▜ CLEAR  AND ▜' RUN <>[H] DIM  RETURN IN  COPY W FLASH  MOVE  INK  STEP ▜ CLS 7 NEXT ▜ LET ATN  DRAW ' GO SUB ) LPRINT CODE  CLS ' LPRINT  INK ASN  LPRINT [P] RESTORE 5`▜%3 LPRINT AUSR PI DRAW + LPRINT ▜d. LPRINT IN 7 LPRINT ▜ MERGE ' FOR  INVERSE ▜wSTR$ CHR$ E CLEAR  RESTORE E LOAD ▜ SAVE  MERGE B POKE [H] RETURN  CLEAR CHR$ D[H] REM [H] RANDOMIZE [P] STOP PI READ IN  MERGE ' CLS  LPRINT ?CHR$ ▜ATN 7[G][P]STR$ CHR$ F[H] POKE  OR F▜ NEW  PRINT E[D]CODE  BORDER # LLIST [H] FOR <>V?[A]7 LLIST USR PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB  NEXT  GO SUB s?`! OPEN #_▞[w MERGE  GO SUB VAL TAN _ INK ! OUT VAL$  RETURN  COPY [G]N<> GO SUB LN 1iLEN STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> OR  OR NOT  AND _©` OR [J][I] CLEAR [M] CLEAR a SAVE ▛CODE 2 INVERSE RND> RUN  INPUT a CLS  LOAD  PAPER a CLS  LIST v[I] PLOT   LET  CLS  PAUSE ZTAB  PLOT   NEXT  STOP  POKE s[I] PLOT   PRINT  CLS  PLOT   CLS  MERGE VATTR BIN  RANDOMIZE  GO TO  IF INKEY$ PLOT   CLS  CLS  DRAW VATTR  PLOT   CLEAR BIN  RETURN iTAB  PLOT   COPY VAL INKEY$ PLOT  M& CLS  DEF FN  CLS BIN ▜POINT  PLOT   CLS  OUT  CLOSE #& CLS  DEF FN  PLOT  ▜[J] CLS INT  CLS  CLS aj PLOT   CLS  CLEAR [I] PAPER  PLOT   CLS ©mr CLS INT BIN ?><> RETURN ( SAVE . GO SUB xRND>= THEN O BRIGHT m( PRINT zATN [P] SAVE   GO SUB <>v CLEAR =o& COPY )COS `~ INVERSE w#<=; RANDOMIZE <>©4 BRIGHT hIN  MOVE hq[T] OUT F[T] AND ▟ LOAD ▟7 RUN h4h BRIGHT  CLS [T] MOVE 4f CLEAR POINT  AND h▜h4IN  MOVE  STEP ©`z LPRINT  COPY PI( RANDOMIZE <>G:INKEY$LN  LINE <a/ OVER  RANDOMIZE ▛ RANDOMIZE  RANDOMIZE  CAT  OR  RANDOMIZE  RANDOMIZE ! OUT RND PAPER  THEN [O]<> IF  OVER  STOP  COPY  LLIST #. COPY  COPY /01(-,+*)!LEN  DRAW "$ BRIGHT [E] COPY I COPY +:A;5 DRAW C STEP s COPY  LET  CLEAR /ASN ) LET * LET 42 COPY ▖PI10 LET =<A>o SAVE  COPY  LET Ap LIST  COPY  LET  ? PAPER  LIST @[A] NEW  COPY "#$ LET %BIN !RND BRIGHT  COPY &BIN N" DRAW  LET  COPY INKEY$ CLEAR SIN LN [E])▜, NEW  MOVE zCHR$  LET } DIM >= LET  DATA  LET cABS  LET PIATTR x CAT COS  LET  OVER  NEXT  LET FN AT CODE TAN  LET  OPEN #> LET POINT TAB VAL ASN EXP AT = AND  LET SCREEN$ VAL$ ACS ▜ LLIST [M] COPY <= DIM  DRAW :[S] DRAW  GO SUB  DRAW  SAVE  LET ^n CIRCLE ▜E OPEN #CODE R LET 7PEEK  DIM  LET [A]7 LET ATTR [B]ATTR  STEP  PLOT   GO TO  GO SUB  LET [C] RANDOMIZE  NEW  LET  INPUT  LOAD  STOP  LIST  CLEAR R IF  RETURN  DRAW  CLEAR ▛]~Oi LET ' CLS PEEK  DRAW ▝▘ CIRCLE  DIM <> INK ▞ COPY  PLOT  INT IN SGN POINT =4G DRAW D COPY  IF SQR USR ABS  IF  DIM ^/| COPY  LET [E]M POKE  INPUT [E] DRAW  DATA T THEN  LET ▚ LET © DRAW  LET  BORDER d DRAW  LLIST [E] COPY  LET PI[D] COPY ABS [O][Q]▝ RUN # OPEN # PRINT  OR [K] DRAW  LET [H]C DRAW :▗ READ  GO TO  GO SUB  DRAW ▖NOT  INPUT  LOAD -~▖o1[L] ▙▗VAL$ [P]u COPY & RESTORE }▗[D]~ CLEAR G DRAW  CLEAR D CAT  GO TO / CLEAR EhNOT  RETURN  COPY CPEEK RND▝ INK ▖ GO SUB ATTR ▝[O][J]^ LIST [T][U][Q]▜ AND p LET  CLOSE #[K] LOAD ATTR |[K]AT  RANDOMIZE ▞x DRAW  LET ▛ BRIGHT i[A] CAT TAN hNOT  RUN [K][C] CLS TAN TAN 1[E] LET  NEXT TAN TAN [D] LET  POKE LN TAN BIN  PAPER  RANDOMIZE  COPY ▗E DATA >=yBIN TAN i<>[Q]BIN  LOAD TAN  LET  AND PIBIN [H]q@ DRAW  RANDOMIZE  LET [E] LET NOT SGN  BEEP .]/|NOT K/.SQR BIN  GO SUB ▟NOT . REM  DIM BIN  COPY  PRINT  POKE BIN  COPY  LET ~@ INVERSE ▜ COPY  BEEP yQ NEXT ^ BORDER Q RUN z8▛ REM  STEP NOT (<=] COPY CODE M[N]( COPY ▟[E]w BRIGHT PEEK ~/( STOP  RETURN q[Q] DEF FN v[D]iEXP [C]▗ PLOT  <= LET [C]z| PLOT  [B]rz BORDER [B] LET  BRIGHT  BORDER w COPY ▟©OZ CAT ©[B] CIRCLE qINKEY$▘[K]ATN  IF  LET  RESTORE  RETURN  PAUSE  LLIST TAB  REM [I]xxVAL$  LET  INK PEEK [K]BIN  PAPER  CLS jPOINT @ OR ]n PAPER m▛ LPRINT ATN IN  CLS [R]©yPOINT ▗}Y%<= BEEP  CIRCLE [A] LLIST  CLEAR  BEEP w|CHR$ NOT ▜[P][L] LET /[O][L]r<O LET [L]; LET  STOP RND CLEAR LEN ATN  COPY NOT  OPEN # RUN  NEXT ▟ COPY  CAT  OVER  OPEN #o LET 4▙[K] CLS  LET NOT  READ [K][F]<NBIN [K] COPY ?[F]x?HCODE  RUN  MERGE ; OVER POINT  OPEN #CODE  RANDOMIZE  LET NOT SGN  GO TO  LET ]SGN [R]COS  BORDER  MERGE ▛ LIST  BORDER  STOP  PRINT  FOR , CLS ▙ ERASE  ERASE  READ  CAT [M]_PEEK #(POINT  DRAW  LET POINT [G] LET , LET  OPEN #r LET ,9O STOP [H]j, LET [K]▚BIN RND_SGN  LET BIN .+ CONTINUE  LET  STOP  MERGE UBIN o CLEAR  LET () NEXT 0 TO /VAL  THEN <VAL  NEXT  NEW  COPY  OPEN #NOT  INPUT %iSTR$  OPEN #91v IF INKEY$ PRINT  OVER  DATA o BORDER [K]u COPY oIN  SAVE  COPY ▙AT  RETURN $ SAVE  FORMAT _/]^PEEK K LET 8b`B{INT # MOVE  DATA  INPUT 8ca LET CHR$ KLN  LET D INPUT 8dz LET JzABS ASN  NEW  SAVE  LET VAL$  OUT d[Q] LOAD [K]-~ PLOT   LET ▛<= PLOT   CLS s THEN  CLS  PLOT   DATA  DRAW NOT <>? STOP @ LET # DEF FN @<> READ  DRAW @ CLEAR LN  COPY  FOR SSGN  READ POINT  RETURN & CLEAR  LET  STOP  BRIGHT EINT  POKE  LET 7PEEK [H] LET D^o RANDOMIZE 7^LN Q LLIST u7▛[H] RANDOMIZE jATN  COPY / PRINT  LET "[M] OUT &qc[K] LET ▝▘rINT  LET  LET  LET F CLOSE #ABS [M]PI LET X INVERSE  PAUSE  RUN  OPEN # LET =▙ LET  SAVE  NEXT ▟ LET PEEK  INVERSE  OPEN # INVERSE NOT x FLASH ABS >= CAT  RETURN  MERGE  COPY  PRINT  IF $▛ LET  FLASH ▜6/▝'LEN  DRAW R FOR  DIM PEEK K FLASH >= LET ACS  CAT  RANDOMIZE >= NEXT  ERASE  LET  RANDOMIZE  FLASH ▙[~ STOP  OPEN #[▖/ MOVE { PRINT  CLS [S]▛▖CHR$ w BRIGHT GVAL$ LN d[ BRIGHT  SAVE @ LET [T] INPUT [ LET 8VAL$ sSQR  ERASE BIN  REM  NEXT MBIN [P] FLASH tD BEEP SQR  REM  DATA /PEEK  DIM  CLS zC READ  STEP @ NEXT SIN ! PAPER FN  LET SQR AT  DATA !<VAL$ 4 THEN !:ABS  INVERSE @; PAPER nzSGN o@ TO TAN ]▞@uG@ CLEAR [g DRAW  COPY n[K]{ NEXT +oM$ OPEN #INKEY$w.- LET 79RNDBIN  CLEAR 1LN M CONTINUE ;6 STEP /▘ CLEAR COS SGN q VERIFY u RUN sSTR$ POINT ©SGN [K]q▗ LET 9 LET  INPUT = BORDER  OR  LET o DIM PI OPEN # POKE ATTR ▝ OPEN # DRAW  MERGE  RETURN i OPEN #[U] AND INKEY$POINT m[O] LET COS [H] RANDOMIZE r BORDER ▜ STOP ACS YW[F][I][P] STOP ATN yS▚7 NEW S▟▜ COPY S[P] LOAD a COPY [K]w{ LET ABS }ABS  POKE ntABS  REM  INVERSE [O]ABS  INK <= REM [G]{[G]w RETURN U8 CLEAR u LLIST  LET <=POINT  LET rABS % LET  LPRINT FN  READ  LET VAL & LET W7 GO TO & CAT  POKE W4 GO TO [D]o PLOT  W PLOT  INT  POKE  FOR lWpSGN  INPUT | LPRINT VAL  RUN z|EXP VAL mxx[A]<=p] LET m LET  LIST SGN  SAVE  NEXT 7[C] LET IN  LIST @ RANDOMIZE x MOVE  LET  STOP ~ OPEN # STOP  RANDOMIZE  LET [P][O] RUN [H]m[P] RANDOMIZE 1[P] RUN 9 PLOT  <= STOP ▛ INVERSE [H]o[A]+ DEF FN [B]E STOP  BORDER  COPY  LET [H] STOP  LET  LLIST [P] LET  LET my LET  SAVE  COPY  CLEAR  CLOSE #[J] <>▛][C] DEF FN ▘^D BRIGHT  RETURN kA LET H+ NEW  RETURN ▝[D] POKE  DATA Q OVER y▛ RUN SGN  RESTORE m LLIST y OR  DATA  LET 4ASN [F]▟▚v LET Q OVER  THEN IN 6/ INPUT  THEN ! REM IN  LET  GO SUB ~ ERASE  THEN  CLEAR uSTR$  IF F DIM 2o RUN  NEXT =0▖ NEW  DIM ;©▖ ERASE : COPY  OPEN # POKE  READ POINT  LET W NEXT  SAVE SIN <= LET <=© RANDOMIZE  OPEN #/s@ LET t COPY  VERIFY  LET  PAUSE | COPY ▙d LET Z? COPY  STOP y%? COPY  VERIFY y▙OW[N]qlu CLS D}/l CLS [U]▜4 CLS ▚©[E] COPY <=[P][D] COPY  LLIST ▜[B] COPY  LET PI[D] COPY o[M]RNDSGN Do@Z GO SUB q@<=]fV PAUSE vxz MERGE ▟ NEXT  PAUSE ▝7 CLEAR ▟ THEN  BEEP  READ ©eATN 2 RESTORE Se[T] CLOSE #PEEK  LOAD  DATA m OUT  GO TO  DIM [ GO TO pASN YG PLOT   RANDOMIZE tCOS  GO SUB Y&IN  PRINT ASN  SAVE *6ASN EXP  INVERSE ' BRIGHT  AND }▙[K] RANDOMIZE  RESTORE w BRIGHT Oyw FOR ▚Em INVERSE qm NEXT SGN PEEK BIN m^ GO TO  OR  PLOT  ym LLIST Sa RETURN b STEP  RANDOMIZE @[E][C] BORDER POINT  LET  VERIFY [K][K] GO SUB ASN  PRINT G LET  PRINT © TO ©[H] DIM ~ FORMAT ASN  DATA qtq PAPER  DIM  LET  OVER  NEW q LIST . BEEP |▝[D][O] OPEN #.X LET  INVERSE mPIX▘SQR ^ DATA [L]TAB eX6 STEP (| LOAD  INVERSE  PAUSE TAB  FORMAT  LET  SAVE  NEXT TAB  LET = PAPER ▖ DEF FN  PAPER P GO TO [G] COPY  STOP  CLS CODE  CLS  GO TO ▛ NEXT 4▛ COPY  DEF FN  READ PEEK [L]@ OUT  OVER [L]▜ GO TO  CLEAR .INT NLN ▛CHR$ @IN  CONTINUE N OPEN #< CAT  CLS NOT STR$ U REM J|SGN >=|KN LET  TO  THEN [B]LO LET  LET ABS  CONTINUE  DIM  REM  FOR  STEP  CLS  GO TO  GO SUB ▛ RETURN ▜6= CLEAR ▜ READ  FOR LEN ▜ READ  COPY |COS  DRAW * PAUSE 24 THEN o/ACS `"SQR = LET ` FORMAT n[Q] GO SUB [A]PI MOVE I DATA  BEEP  BRIGHT G OUT  REM SQR y}i OPEN #[A]* PAUSE . LET  FOR [J]- REM < LET F}<> RANDOMIZE o LET  COPY =*[Q]- STOP }CODE GTAB  STOP {xt[D] INPUT  BORDER  RUN  LET PI OUT GD^[M] LET  RETURN SACS  FORMAT x#]^ OVER 4▙g[B]D BRIGHT ^ PAPER  BRIGHT [ VERIFY [Q]C LET  PRINT  NEW  FLASH  FORMAT x OVER W FLASH  LET ▝N LLIST  LET  READ  SAVE yxx LET  COPY _d LET x LOAD POINT CODE ACS  LET  STOP n RUN  POKE  STOP FN USR TAB  NEXT NFN  READ sUSR CODE  RUN ?_FN USR  SAVE  CLEAR USR  RANDOMIZE a DIM [I]<=[K]SGN ©SGN v▛ GO TO [H] LET 1vy STOP ▛y[M]▝ LET  LLIST w▛ LET  MOVE  RESTORE ▛ LET ^ RESTORE J POKE ]▛ PLOT  [Q] LOAD [P]7| RUN | RETURN ATN IN 4ABS  LET  LET ▛ PLOT  ATTR  DATA LN q LET qx[R] LET GSGN @m[K]o INVERSE ,[H] INVERSE  LPRINT  TO  NEW  MERGE ]$1 LLIST L LET 6 VERIFY GD BEEP  LPRINT m REM D]~ DRAW ACS ?eVAL ▛ DRAW .ASN  VERIFY  GO TO  GO SUB  BEEP ?h[R]F FLASH  INPUT  LOAD 'USR PEEK  POKE  PAUSE ATTR 7U,CODE 5 LET  COPY POINT  DRAW xBIN  COPY  READ LN  RUN NOT W REM j[P] LOAD ;▚z▖ACS ▘M LET INT  RUN zO[T]M LET U4LN [B]yM LET  OPEN #[S]LN H LET ; INPUT POINT  REM q>= INVERSE  RESTORE CODE ▗4om DATA FN  COPY [R]>= LET ^COS  STOP z FOR  CIRCLE ▖▗ STEP EXP [K] STOP XE CLOSE # STOP  DIM [J]INKEY$y LET  DRAW [H]▙SQR  RUN  PAPER _ATN }]FMPEEK _ OVER PI. DATA  INPUT _SCREEN$ ATN  STEP KwIN 92VAL$ k LET ;8 DEF FN nn[A]LEN  OVER BIN HKnM OPEN #[B]# RUN };n▘ DRAW  READ m]4 CAT PEEK ATTR * INPUT ]{[R] MOVE  COPY BIN [H]PIsJ~sVAL$  OR  INVERSE LN USR  THEN IN F PLOT  [L]n< DRAW >=g COPY QSQR S[O] COPY ▖TAN PINT [B]f2 DRAW  BEEP [V INPUT [H]1& STOP  DATA [Z|D-C LET  LIST  CONTINUE  OVER BIN  LOAD TAN t STEP  NEXT BIN 9>X DRAW ([N]BIN i MOVE TAN  SAVE BIN *PEEK Fd PAUSE [F]&o?"o DRAW  LET ▟ BRIGHT ACS  LET [H]©jv_ BRIGHT  LIST [S] LET wATN  RUN F*/▝[D]< OVER @ NEXT SQR Q@PI7V^ RUN  OPEN #[F] RANDOMIZE vnBIN y BRIGHT V MERGE  BORDER ▟^- COPY BIN ▝▜u STEP Nz INPUT ATTR [P]IN i>=2 COPY 10▜O= COPY SGN  MERGE [K]A< COPY [P] CLEAR  ?A| LOAD @"#$,P=%[T] NEXT K&o CLOSE #, LET ABS SIN . GO TO  GO SUB 9[Q] LIST F LET M OVER ~ INPUT  LOAD u% FLASH  LET 7©PEEK [I]/[H]a DEF FN y9[K]▚ LLIST  GO SUB [K] LET  INPUT  PRINT  RANDOMIZE q|PI BEEP  DATA  LET x[H]-<=/BIN oINKEY$ BRIGHT xCHR$ SIN SCREEN$ IBIN [E]INKEY$ CLEAR SIN <>!BIN CHR$  OPEN #[D] OPEN # DRAW  FOR ,7 REM FN  LET ▜CODE VAL  DRAW  LET 4▖% RETURN  COPY  OVER  COPY A> LLIST  RANDOMIZE  LIST  COPY [I] LOAD  PAUSE  LLIST  LOAD  COPY @  COPY 4ABS ASN !ASN  CLS  INPUT 3 STOP SGN [J]POINT  PAUSE  ERASE  LET  RUN  OR  READ   LET  LET [ LET !▙NOT (< LET }▞ READ ▘ CLS [U] LET ▙ IF p~ DRAW |ABS ASN ▘}/W LET  NEW ©2[O] LOAD  RUN  LET 0 DIM [O] INPUT [O] RUN  IF STR$  READ [H]ATN  LET BIN 0 {ABS  RUN  INVERSE 7[E]<={ RUN ! OVER ▗ FORMAT / RETURN  NEXT %a REM a COPY TeINT BSGN COS  IF 9ASN  RESTORE +ATTR ASN jATN ATTR [U]ABS = FOR }[D]$ RUN E CLS _VAL$ $k=e▜▙NOT ©ABS  MERGE ACS ,▟▜.E PLOT  [P]▜SQR ;+ LOAD EXP 9NOT QTAB SIN TAN ▞ CLS o BEEP ▜C()ASN  COPY Y LOAD >=VAL$  LOAD > LOAD =TAN  CAT  DATA EXP  LLIST J]!▟ COPY  LOAD .[D] CONTINUE ;5 FLASH 5H LET 5 NEW q[D] LET K GO TO  COPY © CLEAR ;F[B] IF  COPY  FORMAT  LOAD @P RETURN  LIST USR  RANDOMIZE PI`_ DRAW JVU MOVE LN  BRIGHT * DATA @POINT E DIM O BRIGHT ;DJ[E] DRAW ▖▞▗Uv LIST _ COPY  BRIGHT  CLEAR uo▝ DATA [E]▝ RANDOMIZE ▖USCREEN$  DRAW O[E]6H COPY  CLEAR : BORDER  BRIGHT  IF IN  DRAW [Q]H DRAW SCREEN$ RND COPY "▙ LOAD  ERASE  DEF FN   DEF FN  CLOSE #RND BRIGHT  COPY DBy@© FOR L[O] COPY  DIM  DRAW UISQR  CLEAR K STOP SQR <><=D PRINT BIN / BRIGHT PR▚D▖#USR N~LN @P▗QD DRAW  GO TO W COPY Db DRAW  BEEP / RETURN (( MOVE hU DEF FN EXP SCREEN$ [P]LEN [Q] DRAW /[B]. COPY  SAVE [C] STOP G{%" BRIGHT [K]HRND DRAW [Q]CODE  CLOSE #: DRAW  z COPY  LPRINT vSCREEN$ DK?d[S] BRIGHT [M] BORDER  OR BFN  COPY  RETURN LT STEP [J]SCREEN$ RND- COPY  DRAW ▗T DRAW G OVER  LINE & SAVE  BRIGHT *STR$ }uINKEY$[B]UPOINT  DRAW  LET !USR  $ COPY  NEXT INKEY$ DRAW  BORDER > OUT [I]T$FN 7 MERGE  COPY $$ POKE <> PAUSE  DRAW  SAVE TAN [M] POKE  GO TO  OR  COPY  DRAW  BRIGHT [SGN >=[P] TO  DATA ~[U]©@ COPY H INK hTI_ABS  DRAW GPEEK ;x DRAW LN [E]*[U]4M▖ LIST  COPY /^@U RUN mSCREEN$ ~#[O]8 BRIGHT SCREEN$ EXP [I] INVERSE  DATA ©"VAL  SAVE RNDPSCREEN$ [F][U]▝BIN [S] NEXT 8 LLIST ▘%B* BRIGHT #@XRBIN  CLEAR t[M] PRINT © DRAW UT THEN  TO  PLOT   CLEAR IN  SAVE SCREEN$  OPEN #[M][P](_>=PTH DRAW U FOR  DRAW USR  DRAW  LIST ▖O@VAL$ BIN [E]JUSR PEEK  CLOSE #[E] IF [P]▖SCREEN$  PAUSE  BORDER USR $@O%TAB  MOVE  SAVE "~an RETURN  BRIGHT E5rF8 DRAW E$IN  OPEN #jD© RETURN /G DRAW  LIST E COPY QNOT  BRIGHT  DRAW @D"`p▞x|:H$[B]/Eb READ  RETURN  DATA  FORMAT EXP x@P[Q]$FN '* COPY VQ DRAW  DRAW SCREEN$ LN 1ATN  BRIGHT  DRAW D"TH$FN P"[B][Q]@[C]P CONTINUE  DATA  BRIGHT  COPY ^DSCREEN$ ▗ AND (/▟@H9 DEF FN USR ▖ LPRINT   SAVE SQR DsEXP LE CONTINUE  COPY  PAPER  INPUT  LET I GO SUB  COPY UT IF SCREEN$ ©-1 COPY  REM  DRAW FG INPUT D[E]"> BRIGHT [S]TASCREEN$  LLIST 4SGN  DRAW  BRIGHT  LOAD ©[E] BRIGHT [Q]RP▞UFN T.▖$ FLASH  AND  BEEP  BRIGHT  RETURN  COPY ~$SCREEN$ U▝HCHR$   DRAW [M]xR|U SAVE pT LPRINT [D]H@ BRIGHT EKPAINT PEEK [F] IF LN p FLASH  RESTORE  ^▞ DRAW  LINE ©{[E][P] RUN  IF  THEN 5+p CAT L CAT 1▟58 DRAW r SAVE pAASN ~LN > CONTINUE [F]T?= OUT h1/ DRAW ABS LN  OR <=[A] VERIFY $y RUN P DATA  RETURN [I]e OVER [A]▝<BIN U BEEP POINT V[B] COPY QK[A]pA% RETURN SCREEN$  DATA V FORMAT *0. TO >= DRAW <K[F]o[I] STOP © INPUT Bx:t CONTINUE  SAVE STR$ 8([E] BORDER  PRINT _▘T*w[K]▚ DRAW (~[J]L RETURN  RETURN U LIST {y,VAL$ ^ RUN  MOVE ATTR  RETURN _ REM  LOAD [J],[I]R!T PLOT   FOR [U] THEN SGN pWCODE LQ>^▗Q▗AQ DRAW 0▖4[O] PAUSE [A] BEEP xQ[E]Bh/ NEXT R LPRINT U CLOSE #▝▟?[C]@W LPRINT p OVER  RETURN  SAVE P|^SCREEN$ @x TO SQR [M]Q NEXT  DRAW 7:ASCREEN$ [S]< FLASH VAL$ 0 LIST H DRAW l[T] MOVE |FN ATN FP[Q] LOAD  AND  PRINT  BRIGHT ▞Dh.1/ CLOSE # POKE W"P*[B]+[E]~LN H-J BRIGHT K:T8V CONTINUE  BEEP ▗ GO TO  CONTINUE  BRIGHT [B]+FN FN T.$ SAVE R OVER  BRIGHT [B]H:|D"xpJ▞`@SGN D[U] DIM  GO TO  CLOSE #V>=RVAL$  CLOSE #| RETURN © DRAW  CLEAR  DRAW [U] RANDOMIZE % TO USR  CIRCLE ©CHR$  N PAPER @ RETURN D~H'> BRIGHT  OUT PR FLASH >=[E]TSCREEN$  IF  RETURN VGt`| VERIFY @ ACS UBSCREEN$ D&.r COPY   VERIFY a DRAW  STOP $▞BIN  AND  FLASH  INPUT > T?>= CAT |[U]5[E] DRAW ▘y%E:g FLASH  GO TO ?[H] LPRINT 9|:%7 STOP "$AT  THEN P DATA ' BRIGHT  COPY ? RETURN   LLIST PnT COPY *< OUT , DIM V BRIGHT ©LN  BRIGHT ▞k BRIGHT [A] CLEAR 0( PAUSE U?SCREEN$ [Q]T. DEF FN  BRIGHT [N] OUT p*TAB PFN H$^@"[B]JT-D>=($[E] POKE ( FORMAT N [F]HD*CCOS ▗ BRIGHT  DRAW  CLOSE #INT  IF   LIST  ERASE  DRAW [J]` THEN <▚R[Q]BIN FN >=TAN H$ AND  OPEN # COPY + RETURN W© DRAW  NEW ATN  AND ^ PAPER < DRAW x[I]| MERGE b8 DRAW _ THEN  DRAW / DRAW  CLOSE # DIM INKEY$ DRAW  LIST ~hPOINT  RETURN [S]|o4 SAVE pPEEK  LPRINT  AND  OR @ POKE L▟ IF  COPY  POKE [F]EV[H][B] FLASH  PLOT  ▜u LPRINT >=*[O]+ DRAW D|U8SCREEN$ SIN CHR$  DRAW  INVERSE H CLOSE # CLOSE #[Q][B]P[L]▙ DRAW CHR$ ATN Z DRAW  INVERSE  COPY L OPEN #NSCREEN$ INKEY$  DRAW  BRIGHT  FLASH b0;3ATTR D9ATN [F]EXP  DATA >BIN  DRAW  BRIGHT [E] LET  SAVE ▗FN [E]bVAL [A]L>=[P][T]D:VAL TAN  LIST LFN |NOT  DRAW t0/ BRIGHT x DRAW | OPEN #t^VAL INKEY$AT CODE [I] DRAW  BRIGHT ATTR  SAVE 0D DRAW  BRIGHT aCOS | CLOSE # DRAW  IF  LET  BRIGHT 0,[G] DRAW LN [M] COPY ^? BRIGHT 2O PAPER  BRIGHT @V[R] THEN  RESTORE  DRAW P DRAW POINT  LET [P] DRAW TW CLEAR UAFN m.SQR  SAVE  DRAW ^ GO TO  POKE  DRAW  DRAW  CAT *P POKE :o▟ BRIGHT  LIST _BIN ▝; LIST  SAVE K▖LN  SAVE  DRAW FN VAL$ T CLOSE #/?M?L DRAW .LN  NEW [U]SCREEN$ ATTR  DRAW $NWD POKE iCODE  DRAW  LIST  READ BF▝_$INKEY$ LIST  DRAW IN C LIST $© DRAW  LIST ▟H▝@ BRIGHT V▜?_CODE  BEEP H$ FOR  PRINT /[B] IF  DRAW  INVERSE  SAVE [E] DEF FN ?`SQR  SAVE n LIST  CAT  DATA  BRIGHT  SAVE  FLASH l CLEAR  RETURN TVAL [I] REM  IF  PRINT qc FOR W COPY CODE  DRAW CODE L▘ FLASH GFN o LET "[B]@ READ UIN DPY DRAW  GO TO SCREEN$ [K][B]@E(IN m[S]SQR ABS *POINT 3 LIST N5 DRAW 1") DRAW ▟ NEXT VAL  BORDER  NEXT  LPRINT  BRIGHT  RUN  LOAD ABS  DIM UMINKEY$SCREEN$  DRAW E1 DRAW  BRIGHT  LOAD MN DRAW [Q]VAL [L]▖ INPUT  STOP  LET  BRIGHT  COPY >=© POKE [K]V IF ▞ DRAW  RETURN  SAVE ▖BIN  FOR  BEEP ▖|C_~IN SCREEN$ U MOVE ▙MFN  FLASH  READ  COPY >*| SAVE <>DFN 6 REM SCREEN$  CLS  REM } DEF FN  LIST BBIN  NEXT [J] BRIGHT * IF xT SAVE  CONTINUE r_ BRIGHT  IF FN  MERGE  OVER $ RETURN  CLOSE # PRINT a BRIGHT [R]AT  DRAW INKEY$ OR [E]/ POKE ▗t POKE  RANDOMIZE VAL$  RUN rINT  THEN xT? OUT tASN  INPUT VL▛k REM LIN _W©z*L[L]<= BRIGHT [O]©▗PI}<FN ▟ SAVE  DRAW _ABS CODE  BEEP D7 PRINT  IF  DRAW U,] CLEAR [D]©, BRIGHT  PLOT  T[Q]/ SAVE SCREEN$  LPRINT ▘,FN  DRAW  BRIGHT ©ATN 6©ywAT _SQR  ERASE [M] DRAW  LIST nvxW LIST kW DRAW TjPIT SAVE U DRAW  PAPER V LIST ?? BRIGHT VAL  CODE  IF *TAB @BIN  SAVE Ry GO SUB ,-P DRAW .z LIST  POKE  DRAW ?< CIRCLE  POKE  CONTINUE  BRIGHT ▘ GO TO [H]X[S]@INKEY$% DRAW ▘>= DRAW TAB SCREEN$  BRIGHT UlABS  CONTINUE  DATA  CLS UY DEF FN yV DRAW FN  LINE   OPEN # STEP [H]H LOAD  DRAW USR  CLS  RUN o NEW YUSCREEN$ SIN  DRAW FN  DRAW Q~ DRAW  BRIGHT  OVER  INPUT JSCREEN$  VERIFY f LIST f DRAW  AND  DRAW " DRAW A RETURN  BRIGHT  DRAW 1 AND | COPY  DRAW  CLEAR F[T]TpEXP  DRAW  DRAW INT  CONTINUE  GO TO U( BRIGHT  OVER  DRAW [C]VAL$ W$ STEP FN  LPRINT VYW:COS [K]▗ATTR #x^` COPY < RETURN SGN t IF  DRAW  PRINT [T] MOVE  FOR [H]▟FOIN J? DRAW  IF  DRAW *FN  PLOT   DATA X RETURN  LET [P] PAPER  DRAW [H] SAVE  PLOT  ( STOP y BEEP l/ INVERSE FN LN © GO TO  GO TO VAL IN W NEXT  READ  CONTINUE INT ▖BIN  LPRINT !EXP  COPY BIN [R] AND  DRAW /_ DRAW 5j SAVE CODE  BEEP -fb^ZINKEY$7[C]x LINE }VAL  INK l( LINE  CLS SGN =v@ CLOSE # BRIGHT *▗TAB @ RANDOMIZE ▜ DRAW PI BORDER ,Ra DRAW <IN  RANDOMIZE [U]▘-@$ REM  IF EjFRND DRAW  GO SUB  COPY  STEP s[H]n IF  DRAW CHR$  REM  BRIGHT  TO  DRAW x INVERSE tB*[E] SAVE TAN INT RG DRAW ©TT▟[E] DRAW  M OVER  INVERSE T" LET  PLOT  ? COPY [Q]/ MERGE {TAB U*SCREEN$  DRAW SGN P DRAW  DEF FN ?L ERASE 4$P@ LET FN  OUT ># OVER HjCODE [G]U CAT  DRAW  READ  LIST ▞ BORDER | RETURN [Q] CLEAR VAL dLN ▞ DRAW [I]▖/STR$  LIST EXP  FLASH . LOAD ^[G] ERASE [E]TAN F PAPER U BRIGHT #K[U]FN ( LIST FN  FLASH  COPY ▗[O]SGN  INVERSE  RETURN  CLEAR [Q]H$[A]FN )[B][E]SCREEN$  POKE ! MERGE jH REM  ERASE  IF L5 CLEAR >©t[E]ZATN l[P][I]▛© IF  RANDOMIZE IN }_G RANDOMIZE =CODE WATTR INKEY$(( IF  BRIGHT PEEK INT HLNOT SIN [O]PEEK 4[E]SGN JB[Q]BIN [D][F]F~ OR USR _USR ▟ OUT ]U CIRCLE , INK SCREEN$ [C]@ DRAW H$[Q]?[D][S] DRAW F COPY DSCREEN$ PEEK  COPY TSGN v6`U<VAL  SAVE SCREEN$ INT ) DRAW  POKE :4  OUT 4 INVERSE $ RETURN  SAVE * LIST lL COPY  RANDOMIZE  PAUSE SCREEN$ CHR$  SAVE  NEXT  CONTINUE B LIST  LIST [I]U FORMAT [G]UFN @▖[D] BRIGHT  DRAW x FLASH  STOP SCREEN$ [A]"ASGN POINT [S]▗[B]HUL"Y[E]DNOT TAN  RETURN  DRAW [C]>=TOSQR H BRIGHT [ LET  LIST  INVERSE $A[Q] POKE K[S] DRAW D ERASE  BRIGHT  SAVE ▞FN CODE ?[B] SAVE  COPY  BRIGHT SCREEN$ X^ LINE fUSR /w@T~^^ABS  OR [U]]tSGN  LINE NOT  BEEP ▞BIN  STEP  CLEAR TB LET 40(}[D]D DRAW UP CLOSE # INVERSE ▝[F].^ CONTINUE SCREEN$ <IN Z INPUT  DIM  RUN  CLEAR WCODE N DRAW ▝SGN  CONTINUE EPI©U GO TO n DRAW  DRAW COS [G] TO  LIST © COPY d GO SUB TTAB V LINE  DRAW  PLOT  ILN xJSCREEN$  DRAW ▟>=WNCODE  SAVE qapE]>J_u STOP /Uq*[M]  PAPER *SCREEN$ uNOT +~i^ RETURN ▗ATN H GO SUB iTAB UI DRAW  PLOT   CAT ATTR  REM  INVERSE |} OPEN # DRAW  LPRINT >1POINT >(tUz CLEAR <%Z▞Tz(B▞rWCODE  DRAW  SAVE fP DATA LN G[I] POKE  DRAW  BRIGHT c]H[I] GO SUB ASN *Sj DRAW  PLOT  (fb DRAW ATTR _r SAVE A#LN  STOP xINT R| IF >=z POKE SCREEN$  CONTINUE h[K][H]ACS /K/ LET LASN - PAPER [G][C]SCREEN$  DRAW  PLOT  AT 3 REM  DATA H CLOSE # SAVE SGN [H]: DRAW  OVER jLN [E]@NH<:SGN  SAVE [B]H$r DRAW  RETURN [B]HB[I])z BRIGHT D RETURN 80* ERASE  OPEN #[I]P:[M] DRAW & DRAW TSGN 3 DRAW >=|t BEEP VAL$  RETURN  DATA  IF WD0[O]TAN *R SAVE o[E]POINT *T[G]PUSR SGN  SAVE  DRAW  PRINT  DATA  CLOSE # FORMAT K$ LIST 3T>=[M][I] DRAW . SAVE  LPRINT  [E]?7tAD RETURN  DRAW  PLOT   CLEAR  POKE  RETURN  CLS  RUN ▗ LOAD  OVER ,SGN [O]xH$ PAUSE  NEW [B] DEF FN ▞ OR <> RETURN #SCREEN$ ABS SGN © OR  RESTORE  DRAW > DRAW  COPY  BEEP  RANDOMIZE INKEY$< LPRINT  STOP  PAUSE  RETURN k4 PAUSE  CONTINUE [Q] DATA  DRAW SCREEN$ ] CIRCLE FN ▞IN  PAUSE ▞ CONTINUE ▘"aPEEK BIN P POKE  DRAW  LIST 7▖FN  BEEP RqZ▗ SAVE l POKE r[H]2▖ CONTINUE ▞D DATA © @PCHR$ kR[E]AIN  VERIFY BIN r DRAW  RETURN [F]COS ▖z IF *[Q]1FN  DRAW  BRIGHT q SAVE ▚▗ CONTINUE  CONTINUE >= DRAW * THEN %U SAVE ©R▝ LIST  ERASE  DRAW [C]ASN <INT  COPY CODE [E]SGN ^PEEK .IN ▜▙ATTR  DEF FN  MOVE [B][I] NEW  REM yx<D"▙D STOP F IF [S]X INPUT ▖AT ▝ RETURN  LIST Y▚ DRAW ▛VAL *[P]+b RETURN ? DRAW X▛~ SAVE  LIST G5VAL$  LIST _[G]LN ▚ DRAW  DATA ~ GO SUB  SAVE  STEP  PAPER N READ [D]z RETURN ASN  BORDER  BRIGHT ▘>^ DRAW [I]k[C] DRAW .SCREEN$  DRAW INT ▖[D]▘ SAVE  RETURN ▚0g(E RETURN SGN .NOT  DRAW  BRIGHT )U DRAW _H$ZTAN [E]X BRIGHT D SAVE VAL$ BIN  DRAW  BRIGHT OFN 0T CIRCLE  DRAW TAB XMIN )[E] DRAW  CAT  PAPER [I]PU VERIFY h SAVE ( DRAW ~j COPY 4©[K]"[B] TO  NEW lU PAUSE  DRAW * FOR  DATA Po NEXT 0 FLASH &LATN  DRAW VAL  LIST @<>H<=[S]0© SAVE  FORMAT I▞© INVERSE N OUT O[Q]%NOT  DATA  POKE LEN  RESTORE HBIN [U] READ [P]%N+ INVERSE 'K/ FORMAT  PAUSE F@<= OUT H? TO i^ FORMAT  OVER  LLIST RND BRIGHT [K]SGN  READ >SGN [L] REM h CLEAR  COPY PACS  POKE <▗ DRAW LACS  COPY  LET O$USR v DATA  PLOT  D" RUN  CLOSE #▖LN  CAT '#D"![Q]t RETURN  BRIGHT v STOP $ PAUSE [G] IF  CLOSE #f RETURN LEN % TO >=BIN  OUT k▗ BRIGHT  RETURN ▘~[E]▖ DRAW [C]▞ DRAW SCREEN$ INT ▘(D[H] CLEAR 7SGN u CLEAR 4LEN |x DRAW POINT # BRIGHT 3Th DRAW  POKE QG&TAN ( DRAW xQ%` SAVE  LIST  DRAW  Q} OVER P7 RETURN  DRAW 5jS(Q IF  DRAW -O GO TO vRFN 5P NEW ~ LIST P~AT  RETURN Yh4COS g[T] MOVE  CAT [P][J]W? REM [O] VERIFY 0 REM  OR / DRAW _ DRAW / PLOT   REM  DRAW * CAT L LIST 5> DRAW  BRIGHT  PAUSE 5U+▞ COPY  DRAW  GO TO o|VAL$  BRIGHT ▜}SIN RNDjQL DRAW f RANDOMIZE LCODE U"[I]LN TAB Te RETURN a DRAW (;LN U~CODE  x INVERSE  COPY  CONTINUE  LIST xwpNx IF  BRIGHT ?oVAL$ > LIST .V[E][Q]▞*UVAL ujD[O] SAVE [E] DRAW Fw<B'[F] TO  COPY | PLOT  ~ SAVE >p$[E] DRAW IN $[I][E][A] COPY _ BRIGHT  CLS  IF | PLOT  ACS NJ RESTORE .R^ COPY USR  CONTINUE >H LIST ,`USR T BORDER  CLS PEEK f|vFN LN  POKE ©INKEY$ OUT  IF VAL X0>[E]A"▞&D[D]n PAUSE IRNDW1 DRAW D RETURN  CLS  PLOT  V6t SAVE .CODE  POKE  LPRINT [C][E]USR  SAVE  POKE t GO TO  CONTINUE [S]_ SAVE  CIRCLE  TO >=USR [M]▛ BRIGHT ESGN RACS 6 OPEN #b DRAW SGN M READ  FORMAT SGN  OPEN #4 COPY  BRIGHT  SAVE OTAN [Q]/ MOVE  FORMAT BIN USR b[M] BRIGHT ATTR Z DRAW  LINE NOT SGN  PLOT  ZP BRIGHT SCREEN$ ET LET [P] LIST TAN  READ  LET >=LN ]NAT ▟ DRAW  POKE TAT  OPEN # PAPER  LPRINT  RETURN LN "© DIM 0NmPEEK [I]+[K]USR [G] FORMAT K>BIN [T]}Fn VERIFY v DRAW  STEP ATN [C]D< COPY  NEXT $ COPY  READ  CONTINUE u4LN  DRAW  CIRCLE *SCREEN$ [H]m>=[C]iUSR LN [I]gBIN TAB  BRIGHT [R]ASN C▞[S]! SAVE  POKE [B]"POINT  POKE ▝m(* DRAW  SAVE  BEEP SIN (PI COPY JJ▞~@ DRAW H[E] DRAW  POKE ▖ LIST Bt; SAVE  DRAW SCREEN$ ATTR FN [P] FLASH PEEK  INPUT ~ LPRINT   DRAW I LIST  DATA SCREEN$ /% DRAW @$^LN  RETURN [Q]| INPUT 0(USR  DRAW $▝ LIST NSIN E= DRAW  READ =LN u▝ SAVE J LLIST pwRc`v DRAW w CLEAR 7 LPRINT r[Q]%@PW DRAW tRND0 LET /OUSR  BRIGHT ▟d[S]L@ DRAW  LIST [M]x RANDOMIZE HE@ DRAW [I] AND  BRIGHT  INVERSE P SAVE  NEXT p▝ CIRCLE A[I]SIN STR$  DRAW ▞ LET CHR$  LIST FN P[F] NEW TAN  CIRCLE LN  BRIGHT v?P[I]p73[R]1O?"*[C][I]▝ R CONTINUE  PAUSE  LET  BRIGHT  RUN Tw~ PRINT  ^d[F]▜ BEEP  DRAW "~U*T!RND COPY x FLASH  BRIGHT U OVER  CLEAR  BRIGHT  FORMAT  DRAW ▝ PRINT  RESTORE BIN [I] VERIFY  POKE EXP [O] DRAW ▖POINT T_SGN BIN UJ[E] OUT 3 BRIGHT HP DRAW ~ NEXT [O] BRIGHT  SAVE  GO TO n FORMAT AT *@T DRAW i4 DRAW [Q]SCREEN$ RNDd OPEN #[G] REM [C] GO TO  CONTINUE  DATA <=[Q]z COPY  IF RND OPEN # GO TO  INPUT  NEXT  IF O BRIGHT LN  LIST [O] STOP nCHR$ [K]▘SGN X2~ BRIGHT E DRAW © BRIGHT  STOP NCHR$ F[K]Z▘B@~ RANDOMIZE O▗ IF BIN  READ  INPUT  CAT q CONTINUE  BRIGHT LUR OUT ©▗ IF _ DRAW W INPUT  FLASH  LINE UTAB %▙ DRAW  SAVE  LIST USR EXP  LLIST Lkc@*UVLN  MERGE ▚ RUN JRVAL$  BEEP  REM SGN CODE y0 LPRINT  POKE  LPRINT _[B] SAVE  IF  FORMAT SCREEN$ R PAPER  CLOSE #Pv`50LN *▘[Q]USR  DRAW @ REM , IF  GO TO  LEN { DRAW FN  REM SCREEN$  STOP  CAT B BRIGHT T DRAW UIIN USR  DRAW P BEEP  CLS  CIRCLE  MERGE @[ INVERSE LEN  SAVE ©VIN _F[T]CODE  BEEP ▟ FOR  PRINT  IF  FLASH  THEN $ DIM 7 CONTINUE  COPY  OUT  RESTORE 0[H]PIACS LEN 0 CIRCLE  BRIGHT  CLEAR  RETURN T< REM  IF  DRAW  PRINT  FOR #[B]WCODE <=_& BRIGHT ©$6 OUT  LIST  CAT  COPY ?0~STR$  CLEAR zA POKE u COPY  CONTINUE h FORMAT ojP DRAW W INVERSE x<P RETURN  PLOT   BORDER ATTR [B]© DATA PEEK ^ COPY H. RETURN  OPEN # VERIFY  RETURN u VERIFY  BRIGHT $STR$  FORMAT >=BIN USR I[C]SGN LN TAN VAL AT UGFN [U]t▘PI BRIGHT  FORMAT >=bPBIN USR LN %I INVERSE VAL AT FN [U]Z RESTORE t[H]r BRIGHT 6 STOP  DRAW CHR$ ATTR  LOAD SGN  AND AT  DRAW - POKE  DRAW wPEEK SGN POINT ▜ DRAW  COPY  READ I DRAW  FCODE [Q][H]n ▞P BRIGHT [Q]$[A]FN [E]rJSCREEN$  POKE  MERGE  COPY U[N]N% PRINT H CLEAR ACS ▞2 COPY Bq STEP L COPY *(T STOP FN 7U[Q]SCREEN$  PRINT [A]FN  DRAW .▖F BRIGHT  THEN AT  COPY  COPY .|!>~< DRAW 87 COPY % SAVE ATTR Y+6Q4SQR "[B]qSCREEN$ cb$ NEXT WG<=ZH CAT | DRAW  LLIST  COPY  GO TO Ul~( CLOSE #` PAPER $ GO SUB  OVER ,$ THEN [F]PM CAT ( DATA BIN _ RUN 6 NEXT 4▞ CLS }SQR  SAVE $[+SCREEN$ VAL$  PAPER :0[U]?<INKEY$/INKEY$USR E OUT `H DRAW  LOAD $l COPY , OVER  INVERSE  DATA [P] PAPER h CLOSE # `SCREEN$ [U]VAL$ /><|% CLOSE #0[E]©<= SAVE kgky▚s SAVE <.INKEY$ COPY ? LIST c`©* VERIFY  SAVE  BORDER l© LLIST VAL$ Y`~ LIST  READ ;PEEK  SAVE ©NOT E CIRCLE  RETURN  CONTINUE  IF q-? AND VAL$ x▗ DRAW H▜ SAVE  SAVE [J]h RETURN  SAVE |[G]h COPY ▖ PAUSE  COPY ▚VAL  LIST  DRAW / SAVE  FORMAT EXP  LPRINT [M]▗x SAVE KABS  STOP >=  COPY  LET R CIRCLE  COPY  CONTINUE  ERASE ▖ LIST  CONTINUE  BRIGHT 9EXP >=▗ TO TAN  BRIGHT  CIRCLE BIN [U][E]e-[A] COPY  CIRCLE  DRAW ▘VAL$  OVER [U]VAL  LIST [E]h;[K] CIRCLE [Q]xq[E]x COPY [I]< STOP  FORMAT ▖P AND {  LIST TAN Hq FORMAT  SAVE 0([K] FORMAT  DIM ©+ CLOSE #USR @I>= COPY USR  GO SUB >= RANDOMIZE `BIN [ SAVE PPEEK  LET  COPY p[I]FN >=rSGN  REM [Q]P LIST p.' STOP  SAVE  RETURN  SAVE 0P▙TAN [A] DRAW [A]▝Kx SAVE ▖EKPI[Q]XBIN  RETURN  SAVE |[U] SAVE [H]©:/[ NEW  SAVE © RETURN LEN  CLEAR © NEXT  GO SUB y2 POKE  CLS <>!SIN  VERIFY IN  COPY JSCREEN$  MERGE  GO SUB VAL <>TAN SQR LEN qJ LET [P] COPY ZPEEK ACS  RUN  LOAD [T] IF IN Ob DEF FN ]6 STOP  LINE  CLOSE # COPY  DATA  RUN  READ d INPUT  GO TO  POKE  OUT ld CLS [G]©7 LET  POKE / LOAD  CONTINUE [B]ATN FN  CAT CHR$ JR*N© COPY z THEN  COPY VAL$ ( REM 0 FLASH  CAT t[U] COPY  INVERSE <>"<> READ f RETURN + PRINT A GO SUB  PLOT  ED- PRINT  CLS  POKE  COPY <=lFYa> STOP © STOP  COPY NOT r PLOT   COPY  STOP ;t THEN 0L STOP  COPY " STOP  RETURN  OPEN #PIBIN 0 IF f STOP tL CONTINUE x CLEAR © LLIST  CLS  POKE ▜ COPY  FOR G AND © STOP  LLIST <= STOP  COPY ▚ DIM  BRIGHT  STOP © COPY  COPY  STOP ▟ RETURN  PAUSE P[I]5 LPRINT U COPY 8[> DATA * RETURN  REM TAN  TO  SAVE  INK [S]ATTR  NEW  INK  LIST R▗ DIM >=*SCREEN$  COPY SIN  SAVE  FORMAT  DATA  CLEAR u IF IN  COPY v GO SUB  SAVE ]W CLEAR  LINE ^DwBIN ▝BIN PEEK z SAVE BIN ~BIN  FORMAT E▝ DATA O OPEN #" SAVE PEEK CBIN  OPEN #~BIN  DATA @[E]BIN WO SAVE BIN SCREEN$  SAVE  CAT BIN SCREEN$ ©=M SAVE <cBIN @5[S]QBIN BIN  RUN  IF BIN  OPEN # SAVE BIN P' OVER L`BIN .▖D OPEN #2 SAVE  DATA  SAVE  OVER BIN BIN QLp=BIN T DATA J[E] RUN ▖ STOP PI SAVE BIN xI LET BIN FN BIN [O]62USR  SAVE CODE BIN  CLOSE #|[D]BIN PBIN  COPY . STOP i@ SAVE BIN W LET .8:BIN  FLASH #[Q]BIN OATTR @ SAVE  STOP  OR BIN BIN @gBIN ▗ COPY  LOAD _BIN  OPEN # SAVE BIN  BEEP > OVER BIN BIN  FORMAT UEHPIeBIN  BIN  SAVE  STEP BIN BIN [E] RUN [I]▗INKEY$:4J DEF FN  STOP 8 DIM }/_E CLS P CLEAR  CLOSE #RNDUJ SAVE BIN [O] INKEY$A▘BIN [O] DIM  TO  ▗(BIN B{[G] GO TO  SAVE  I: DATA  CLS BIN y GO TO [E]g SAVE  s]▗BIN [Q] NEXT K GO TO  SAVE  BEEP  BIN [Q]$ POKE /BIN CODE © FOR  LOAD | PAUSE BIN SCREEN$ 8 LIST BIN PKPEEK [P] CLOSE #[Q] GO TO  SAVE  BEEP  NEXT  BIN FN @_rBIN  COPY  DIM  GO TO  SAVE ABS x/B RANDOMIZE L[Q]  RUN %BIN  GO TO  SAVE ATN   COPY  DRAW BIN * COPY [H] DRAW H@ UI GO TO  SAVE  LET CHR$ BIN  OVER BIN q SAVE V COPY USR ▖/ LPRINT @BIN y/ IF BIN H"[J]BIN  STOP [L] NEXT > ▛ PRINT BIN  LIST [C]NOT  SAVE   GO TO  SAVE ^ OR BIN  SAVE  FORMAT [P]WBIN ▗ RETURN z[I] BEEP UBIN  DRAW PEEK  DATA ?<><= GO TO  SAVE  LIST  NEXT  BIN USR  INK  BORDER %^D RUN C[U][P] I STOP s"[S] GO TO  NEW y SAVE   LLIST <> INPUT BIN ~COS @oVAL$  RETURN  INVERSE BIN ( RETURN ▖ SAVE  CAT 6 RETURN Y STOP IaBIN :▛u VERIFY BIN  OR [U]rBIN CODE ▗TAB  STOP SCREEN$ [P]▖; DEF FN @LEN BIN  CONTINUE VAL &[Q]BIN TAN  CIRCLE  IF BIN  BRIGHT  OR >/BIN XAT  BORDER  MERGE /BIN  LINE BIN  SAVE MNOT BIN N FLASH  INK BIN *RND STOP  AND BIN Z LLIST RND COPY % BORDER BIN  RETURN <=[H] BORDER  OUT  COPY "[C][J] RhO COPY [A][[L] RETURN UT RETURN RND> RETURN [A]0< RETURN INKEY$BIN  OR SGN [I]BIN CODE ▛BIN  CLOSE #5BIN  RETURN  BIN  RETURN  BIN LEN X LPRINT :BIN ▖ccBIN SCREEN$ ?BIN U[P]g(^6 COPY [S]rU[Q];V DRAW  OPEN #[K]h= IF  RETURN [Q] DRAW  INPUT  IF ] PRINT  RETURN FN  DRAW  RUN l OUT  LIST  PLOT  TAB | IF  RETURN TAN ▟ CAT  BORDER  VERIFY  COPY  IF 6E RETURN RND BRIGHT 0 LLIST [P] VERIFY  IF = FOR  RETURN T OVER ~STR$  LLIST  CIRCLE  IF  DIM  RANDOMIZE RNDIN <= OVER  CLEAR ~ LET  READ  IF L COPY > OVER zAPEEK [E] IF  RETURN  COPY  RETURN [L]BIN  POKE ^? IF BIN ©S`u^ LINE <= IF  RETURN T COPY MBIN  CONTINUE  FORMAT .▞ IF BIN  RETURN [L] OVER h[E].? IF ▖© OPEN # AND  FORMAT  INPUT  LPRINT <= IF BIN [U]u><=© INPUT  IF q BORDER FN SCREEN$ © PAPER  FORMAT  AND <= IF  COPY  OUT  THEN [S]W INVERSE u VERIFY  RETURN  LET  IF ▟y ▖* NEXT ▖/ CLOSE #BIN STR$  DATA [I]d+T COPY ▚a COPY  COPY  COPY b COPY  COPY  COPY 5 LPRINT  DRAW  RETURN USR  IF gR NEXT  IF  LIST  IF  OUT  IF  LPRINT UQH#J LIST ▞>/USR B[T]G$▞SCREEN$ 9 BRIGHT  IF [Q] LPRINT SCREEN$ 7 BRIGHT  IF INT  IF t STOP   LIST  VERIFY T[M]X SAVE .[S]!LN  DRAW Ha CLS T[E][K]POINT  LIST }@ IF !Z|  REM 4▘8[H]ATTR  IF vSTR$ /7 IF  IF >▖ IF BIN [K]v LIST LN SCREEN$ [E]▙ LET v[E] BRIGHT )%L CONTINUE  DRAW &▙ PAPER *v$W FORMAT | PAPER  LPRINT p FORMAT [Q]D STOP BIN  VERIFY  SAVE p VERIFY  BRIGHT pPEEK #"AT SIN INKEY$> DRAW [E]<<▘v=<j^2!R IF BIN  IF  IF MLN .DINKEY$ BEEP  FORMAT LN jp[I]y[B] CLOSE # CLOSE #yy RETURN  CLOSE #7|USR  IF  OUT d▗! DEF FN j STOP ,^O POKE p/ LIST POINT SCREEN$  LINE  CAT . %/SIN [C]j[P]ATN  OVER z_ NEXT  STEP nt< LOAD b' LET V3 DRAW  STOP  FORMAT rp IF  SAVE  IF 9 LLIST  FORMAT M^ CLS  LPRINT .  OR LN np▟R84:|hl$$ STOP  AND ~U LET ▚( IF  BRIGHT ] LPRINT e IF  BRIGHT  IF  BORDER CHR$  FORMAT  STOP USR * VERIFY [Q]9T(@x▜)▛y*?g CAT (PEEK [K]^-E  LPRINT vBIN 2[E].&vj;p$e[E]2 CONTINUE  DRAW T▙[kdvA|`"TAB  IF 0 INPUT pQ STOP  VERIFY DBIN  LINE 9@PEEK TAN hpSIN AT INKEY$? OUT  PAUSE  GO SUB L[E]$USR ▖▝ IF 4".▗>=USR "INKEY$Dypj^^ CLOSE # RESTORE  RETURN 4|h OVER TAB  IF P POKE - PAPER d DEF FN `JB NEW p BRIGHT F LIST ACS  POKE S INVERSE t LINE USR  FORMAT ABS  STOP [C]SIN ▚w) RANDOMIZE INKEY$ IF  IF  NEW [N]zn BORDER  RANDOMIZE b#[O]V RETURN  DRAW 4N[K]ABS [I] SAVE  OR [Q]Z POKE  LPRINT L[U] LLIST [K] INVERSE ABS .$Y▙"<>s▗< POKE TB SAVE Fc LET ▝i[U]= IF PEEK y5 VERIFY [O]}J#IN SGN x IF n GO TO ?<~ BRIGHT jU CIRCLE 0▝[A]^ OPEN #$ INPUT @SIN  FOR V▟ LPRINT TAN AT XSQR TAN STR$ ATN ABS FN ,[S]RNDFN EXP d[A] RESTORE  VERIFY  IF  IF P[R] INVERSE 6 j[R][R] BRIGHT  IF j OVER p[A] POKE FpW@[Q]CHR$ M REM LN B▙ABS hI DRAW v IF vITAN pj THEN  POKE J- GO TO  IF R~ BRIGHT $ STOP  FORMAT "▝[U][U]▘PEEK ~▘SIN v*INKEY$ FLASH USR MXINKEY$XZ RANDOMIZE SQR q}xx RETURN  RETURN CODE TAB  PLOT   CONTINUE  STEP ]SGN ( ERASE ©SQR SGN [Q] BORDER  ERASE  LET SCREEN$ v<b LINE VAL$ ▙B6xSIN {jvpSGN P REM  LPRINT =SQR PEEK  BRIGHT  STOP  FLASH  IF  PAUSE  CIRCLE >=▛vVAL v ERASE ▛▖[I]~▖ READ [F]vLEN D IF 3ASN 7? CONTINUE [Q] PAUSE  FORMAT ATTR +4 POKE  CIRCLE < CAT  DATA  PAPER  CAT  CLS  DEF FN SGN |CHR$ ACS  CAT  NEXT SCREEN$  LOAD |[O] NEXT <[C]▚= CAT z CAT  NEXT n/>bv NEXT <J>= CAT 2SGN  NEXT & CAT  NEXT SGN  PLOT   REM SGN  DEF FN  OVER NOT  FOR  ERASE  RETURN < CAT  PAPER  OUT  NEXT  DEF FN  CAT ;CHR$ ACS  RUN <SCREEN$ < CAT [O][C]< LOAD ▚ CAT  NEXT z NEXT =nb7 LOAD V NEXT  DEF FN J>< CAT 2 OUT  NEXT & CAT ;CODE  PLOT   REM CODE  NEXT  OVER  OVER INT  ERASE  NEXT SGN  AND  PAPER < CAT  DEF FN  CAT  NEXT CHR$  NEXT =ACS SCREEN$  RUN SGN [O] NEXT  DEF FN [C]▚< CAT z CAT  NEXT n:?b6< OUT JSGN  NEXT >2 CAT  NEXT & NEXT << CAT  NEXT : REM INT CODE  OVER  ERASE ▟ NEXT INKEY$kej POKE  LPRINT :oINKEY$`* CLOSE # DEF FN [J]ET ACS  IF  FORMAT Y[M]vR IF [A]N OR  OR  IF pa_NOT  OR  [I] NEXT CHR$ `INT H LPRINT [K] FOR  OPEN #8[A]▙EXP H`INKEY$[G]" STOP Q<- LINE x# LINE JPEEK ~INT SIN AT INKEY$ FORMAT { GO TO  PLOT   GO TO  LPRINT EXP !BIN  LIST  RETURN  FOR pos IF  IF  FORMAT  MERGE SIN >"<v VERIFY ABS [U]$[E]<=n@7ASN 4 POKE ▙ VERIFY  IF (pyq@pATTR (p@p GO TO [K]p[A] CIRCLE LN $mJUSR p CONTINUE INKEY$ LIST  POKE /▟ VERIFY ~ LIST  POKE  LINE PEEK  LLIST  POKE SIN INKEY$oASN [K]#[K]"^8▘.v RETURN ASN z IF VAL @% GO SUB  GO TO VAL$ WTAN  IF FN  LINE #-F STOP H LINE P POKE cp$q▙ [I]pi FORMAT  TO @p[B]~ VERIFY EXP  POKE  LPRINT :LN  VERIFY p OUT  LIST LS VERIFY  LINE ( LINE USR  DIM $PEEK  SIN LN ATN USR < LPRINT  CIRCLE KzCHR$  BEEP Kn GO TO 5zb RETURN IN  INPUT  CLEAR N SAVE /[K] NEW V>=4 LPRINT &[A]VAL mr: [G]USR  IF  r:X?▚▖INKEY$/|] LPRINT <2[Q] POKE [N][I]D)o/[I]V STOP [U]A^ VERIFY TAN '▟ LINE rPEEK  MOVE jBIN SIN [Q]tH/AT  OVER ]Znjw].LN nSIN  BEEP n CIRCLE [N]bBIN  POKE D>AT v8$hPEEK ASN  IF kRASN BINKEY$phpp BRIGHT Ip[Q]▗Yp^[L]O OUT  CONTINUE /[I]: PAUSE ▖[H]z VERIFY LEN  LLIST ▜ LINE PEEK ▛<=SIN INKEY$BIN [H][K] DRAW ▙▘v</ RETURN TAB LsINT F STOP [U] IF ▗4 REM L CONTINUE BIN [R] MERGE  REM b LINE S READ `p AND [U] TO TAN FN ▖>=▙|] OPEN #h▞p©jp[N] VERIFY [R]/H[E][I] CLS  NEW  STOP  FORMAT  AND -<>p LINE SGN  RESTORE  NEW b DIM  FLASH ACS  LPRINT  NEW  LIST LN INKEY$INKEY$H IF vPOINT b7R CLEAR BIN  NEXT xB IF  IF SGN @VAL$ / RETURN 0 BORDER P OPEN ##f[P])ACS f BORDER jUSR nj4ZABS [A] TO n[F]_@[G](*▘▝[R] LIST INT 4ABS INT u USR 0< LINE uUSR "VAL ZIN $`ATN VAL$  THEN 8,CODE ^ STEP ;Dp[H]#* POKE  INPUT ▝<=+ INPUT  CIRCLE  FORMAT  RETURN  LET  BRIGHT y.?8 LET 4A OUT  FORMAT IN [K][J] | DEF FN [E] STOP  GO TO f$ OPEN # PRINT RND▖<p4/ CONTINUE  BEEP SCREEN$ |[F]P6 INVERSE j^l▖▝` REM UVpPkpB0B[H]ABS SGN TAB  LIST xXpNOT p MERGE SQR  INPUT  RUN j LLIST  GO SUB  NEW  BRIGHT [G]ltSCREEN$ ! RUN [K]d DRAW ^DUSR © FOR [Q] PAPER $ DATA 0!pUSR _<= MERGE ▖[M] BEEP  FORMAT P POKE phM AND p$ REM INT  VERIFY XJ CIRCLE ABS ,uJ▖~@ POKE < I[T]INT USR  IF  BORDER SQR ▜ IF  DRAW  THEN _AT PpNOT  THEN  THEN  INPUT <=8<| POKE  CONTINUE > OUT  PAPER  CAT  NEXT  DEF FN  NEXT <CHR$ ACS  OPEN #NOT :.<▟ INPUT  CAT  NEXT z NEXT =nb; CAT V< CAT J> CAT  NEXT 2 NEXT |& NEXT  DEF FN  FOR  PLOT   FOR SGN  REM  OVER SGN  DEF FN  ERASE  CAT  FOR  AND  NEXT > PAPER  DEF FN < CAT CHR$ SGN 0▘pz CAT  NEXT n NEXT <b< CAT VJ DEF FN  RUN > CAT  NEXT 2 NEXT =&< CAT VAL$  RUN  REM  DEF FN  FOR  OVER  FOR SGN  ERASE  AND 3 LOAD  PAPER < CAT CHR$ SCREEN$  COPY p CAT  NEXT ▚ NEXT <zn= CAT b LOAD  NEXT V DEF FN 7J> CAT  NEXT 2 NEXT <& STEP  NEXT SQR  PLOT   REM  NEXT : OVER ;CODE  ERASE  AND <>y* INVERSE H MERGE UB[Q]N REM TAB P MERGE HW BEEP  MOVE H DRAW oCODE VAL$ ▞ POKE A[[R]FM GO SUB  OVER CHR$ 5 POKE  THEN PEEK  POKE dk DRAW ATTR  RESTORE  POKE ▟ AND  LIST w MERGE CEXP  BRIGHT ?ACS 5 BRIGHT BIN  RESTORE  PAPER  RANDOMIZE %?|[K]` MERGE SGN  CONTINUE /1S CIRCLE  CLOSE # STOP [[Q]ZLEN SCREEN$ ASN >.r[R][P] LPRINT  LLIST G POKE  PH[Q][D][B]ATN @ READ  FLASH  FORMAT  PAUSE ~ OPEN # STOP  ^C VERIFY ▞[N]3~ VERIFY p/ FORMAT : RESTORE  OUT  CONTINUE FN  BEEP T% BEEP SQR |} INPUT ASN .p+▘U!nThFN  INPUT FN 4 DRAW BIN [h INPUT INT  LINE  CIRCLE -SCREEN$ _BIN ) GO SUB VAL LN  LINE ▖PEEK | MERGE SGN J|6[F]! OVER  MERGE rv RANDOMIZE ]▙M,<1LN [L][U][U]sUV▙ CLOSE #HATTR 4=^[R]4( LOAD p:[K]#RND OVER Up SAVE VAL$ VSCREEN$  CLOSE #▘*%pSCREEN$ pBIN }FbBIN WLN #dIN  CLOSE #0[N] POKE  CONTINUE ▙POINT  FOR Hm" OUT p LOAD  IF SCREEN$  LIST  BEEP SCREEN$ [A]l MOVE  LLIST 00p|ABS dEXP xp RETURN  BORDER  IF VAL$ wCHR$  CLOSE #USR [E] PAUSE  CLOSE #▞TVAL$  FORMAT  CONTINUE m[R]CHR$ # AND PA, GO TO lUBIN U2p POKE k LET 6Uc READ z ERASE G( NEW H▜LN FN BIN )F POKE Q[K]mSIN INKEY$ PRINT J| MERGE INKEY$ GO TO POINT ATTR  VERIFY [K]Bw[K] RESTORE [P] GO TO [S]J OVER b CIRCLE LEN  STOP  BEEP  VERIFY =[C]▖CODE  BRIGHT Pb IF A: IF  PLOT  >=PEEK  LINE  IF SGN  MERGE SGN  COPY  RESTORE USR  LINE ` DEF FN Jfr▟~INKEY$u5AT f-VAL : DATA  MOVE ▟`ATN &T CONTINUE  STOP 4 SAVE 2CHR$ >@jdATN  LPRINT [R]VAL TAB  BRIGHT  SAVE p▟ CIRCLE <>j( IF <PEEK  RETURN c▛TH%*STR$  IF <v<> IF `j▖P[S]|QCHR$ ,EINT `0▚~INT SIN ▚8*Q▚5 AND $ LIST  CONTINUE  PAUSE  STOP  INK 5 POKE R2" GO TO F PAUSE  PAPER #}<S5R FORMAT  IF  RUN ▘%% IF  LIST  BORDER  IF  PRINT  INK z PAUSE  LPRINT  GO SUB 6nxg PRINT  CLOSE #GACS  FORMAT  CONTINUE  GO TO 5T LPRINT 0 IF  VERIFY ~5[T]▘UUSR SCREEN$ USR ( INKEY$ IF 4SCREEN$ TJ IF ]n06TAB  OVER ▝6▟6 TO ABS *jSGN  LINE ACS !VAL$ PEEK  IF >▟SCREEN$ $rTAB SGN ▝ CLOSE #V▖PPOINT Wf CLOSE #b IF  CONTINUE /[]@F PLOT  ), LOAD P=84 IF [E]H<> IF b IF  POKE T[A] IF FUH`^> LIST ▝ PAPER N▝: FLASH VAL$ ▖<$xCODE DVAL$  COPY I*>0Y[R]VAL$  CONTINUE ABS B BRIGHT 0]▖[S] IF |CHR$ [E][Q]T<, LIST [S]USR x IF  INVERSE uDp]3 BRIGHT ^SCREEN$ COS %BpPEEK VAL$ TAN TAB o!d COPY  DEF FN  OVER  STOP SGN :2$iu[O] DRAW  LPRINT zy^ DRAW  AND  RESTORE [G]PEEK OR DRAW  RETURN  REM  RETURN [Q] LIST [M]_ RETURN  SAVE [O]ATTR  RETURN  PAPER  DRAW JEXP  PAPER b6jINT  DRAW  IF ▞ySQR SGN  DRAW SCREEN$ < AND :ABS  LINE  DRAW ZPEEK  REM  LET lzIN  DRAW USR [K]COS *STR$  DRAW INT JxCHR$  PAPER  DRAW jNOT  IF  READ  INK BIN  DRAW  OR SCREEN$  DRAW g: AND  DRAW dP RETURN eSGN !F{>!▚ CLS  COPY `INKEY$ GO SUB _©BIN  POKE dSCREEN$ [D]BIN  STOP z OUT <>2<>= CLS  DRAW  LLIST !P TO ^ RETURN H▜VAL$ J GO SUB mn DRAW  OVER h PLOT   CLS  MERGE VAL  COPY  INVERSE POINT SCREEN$  OPEN #7ATTR RND OPEN #( CLS INT T[ PLOT  0 PLOT  XF] CLS p BORDER  THEN ATN  CIRCLE P GO TO TAB V PLOT   CLS ASN Z LET  CLS BIN  MERGE jVATTR  LET ~ZTAB  PLOT   PLOT  Eq BORDER INT EASN ATTR ~[C] ERASE j LET  LET 5 REM  BORDER ZTAB BIN BIN  FORMAT LN  BORDER  INVERSE tZm BORDER z/e CONTINUE  MERGE rINKEY$BIN  STOP VAL$  AND = INVERSE VNOT  INPUT j PLOT   PLOT  5 LOAD  CLOSE #<>INKEY$oASN [M] PLOT  Q8 OPEN #jBIN  CLS ,▙3GN#[M] GO TO [T]-$ STOP  VERIFY  NEXT  READ TAN [M] INVERSE IN ~PI RESTORE VAL  CLS i[O]u<>ATTR  LLIST  PLOT  VAL$ V BORDER yV NEXT LEN  INVERSE Q[G] LET ATTR  LIST ATTR  STOP SQR  STOP [D]Z OUT [D] DEF FN SQR [R][S]V NEXT © STOP 8TAB  CLS IN [R]8 LOAD [S]8 OVER  RESTORE e THEN iLEN  CLS 8[M]V CLS TAN L DEF FN W LET e INVERSE qASN [M] CAT SQR  NEXT [D]; CAT H NEXT  DEF FN  CAT  DRAW BIN  LET  VERIFY ; CLS  CLOSE # NEXT VAL$  OPEN #VAL$ V GO TO  PLOT  i5[ LET  BORDER _ LOAD ▜= OVER  OVER i CONTINUE  OPEN # MERGE LN 9LINKEY$NATTR . LET  SAVE  PRINT > READ TAN  LET ATTR  GO TO [N][G]▟ PLOT  V FLASH  DATA  STOP 8VAL$  LET j NEXT  DRAW * LOAD SGN  CONTINUE rZ▙ BORDER oSQR  READ  BEEP }` AND  OPEN #z CLS  READ INT  BORDER SGN p[M]V LET  LET  DEF FN ATN SQR VAL$ ;L BEEP ]$DATTR y INK  BORDER 5▙V[H]Zwv INVERSE qBIN G[N]w&AT <=|[M]ATTR  MOVE [C]IN  LET  MERGE SGN LEN  GO TO ~ OVER [I] BORDER [M] LINE <=yk DEF FN  BORDER qEq[P] OPEN #[M]PIeq~▝COS <=Qo<=[F] GO TO  BORDER *yASN  GO TO  GO TO _wbw[N] DATA  NEXT .JaqW INVERSE  REM  NEXT ATTR  LET 8 CAT ▗ LPRINT ▙ READ [R]8w5B STOP [O]r INPUT [Q]*[w;8Y RANDOMIZE qSGN  FOR /a[H] OPEN # GO TO VAL PIuX CLS  BRIGHT mB OVER q[K]-w PAUSE <=ATN ] DEF FN  IF  FLASH  LLIST [M] DRAW r▘ OPEN #INT  NEXT [S] THEN  OPEN # CLEAR  RUN IN ▝$w7 FOR w AND COS TAN Z PLOT   LET  DEF FN  NEXT * NEXT  NEXT  OVER ;▙ LOAD VQn[G][C] BORDER  INVERSE  LLIST  COPY [N]w! INK u BORDER z[J]w FLASH +TAB p CLS ;ABS x COPY  NEXT VAL$  DIM [S]wATN Zi/ MERGE [R] PLOT  x OVER u<=i▟ PLOT   DEF FN w▖r[M]a GO TO `; LOAD [N] STEP on READ LN PV INVERSE  READ SGN  LINE L1INT  PAPER ▟IN ABCTAB  CONTINUE EF7G @Ah4BC[T] MOVE DE TO FFG@ COPY A MOVE hBCF[T]DE▟FG`h4AB[T] MOVE CD▟FEF▟ AND G@A4BCD MOVE hEF MOVE LN G[Q]@AF[T]BC▟DEF7GUSR @Ah4BC[T] MOVE DE READ FFG LPRINT @▟FAB4CDE MERGE hFGTAN :LIpK[U]jL N4nO HI MOVE hJKF[T]LM AND ▟NO@H▟IJKh4LMLN  MOVE NO`H[T] MOVE IJ▟FKL7MNO4HIJ MOVE hKLF[T]MNF READ O[Q]HI▟JKLh4MNh BRIGHT OUSR HI[T] MOVE JK▟FLM▟NO LPRINT H4IJK MOVE hLMT[T]NO MERGE  REM [S]QINKEY$S MOVE H AND UV MOVE LN W PQF[T]RS▟TUV7W@PQh4RS[T] MOVE TU READ FVW`P▟FQR4STU BRIGHT hVWP MOVE hQRF[T]ST▟UVW▟[Q]PQRh4ST[T] MOVE UV[T]qWUSR PQ▟FRS4TUV4nW LPRINT PQ MOVE hRSF[T]TU{▟VWLN  MOVE vUSR   POKE  RANDOMIZE @ RETURN  GO TO IN  RETURN ▟F?cxTU MERGE  RETURN   PLOT  IN INKEY$kBIN  OVER pSQR ▟ STEP <= MERGE  PAPER ATTR  CLOSE #▖ COPY USR 0p| STEP PI PAPER ?SCREEN$ CODE  BEEP  NEW NOT  OVER PIc RETURN  CLEAR KCODE ATTR  RANDOMIZE $ COPY PI RETURN   CLOSE # RETURN 0CHR$ _[N] COPY ATTR TAN PRND[P]@: SAVE K40▝- MOVE  STOP PRND/[P][J]`4SGN  DRAW ▝ COPY Z LIST  NEW [J] DRAW /`ASN ▝< LOAD  COPY K4 NEW :ASN 0I CLEAR ▝pP LET iLF[L][U] COPY cUSR PZTAN LF@^m:▜? COPY  SAVE  COPY pIN  CLEAR S DATA  PLOT   PLOT  ,r| PLOT  USR [E]k~ PLOT   LPRINT [N]EXP  PLOT  © PLOT   LIST RND©Z:IN  SAVE  PLOT  NOT  MOVE  NEW  PLOT   DRAW  LPRINT  PLOT   READ  PLOT  PI> ERASE  PLOT  { NEXT x}INKEY$ SAVE  LLIST  LOAD  COPY y CLS  DEF FN 6[D] PLOT  x PLOT   RANDOMIZE  PLOT  SQR  PLOT  {▝ LET  PLOT   CAT [K] PLOT   INPUT  PLOT  ▜STR$ [G]IN  LPRINT  PLOT   READ  STEP ATN  PLOT  ▝ PLOT  [P] THEN 7 PLOT   BORDER  DEF FN  PLOT   COPY W PLOT  PEEK  PLOT  ` RETURN i PLOT  ` LLIST  PLOT  . PLOT  ▚PI$ PLOT  ▙U DIM ^ COPY NOT SCREEN$  MERGE  OVER P@VAL$ g▛ LLIST y{5USR !+ READ [C] CLEAR  BORDER USR !L BORDER  PLOT  " BORDER NOT  COPY :IINKEY$ INVERSE !MSCREEN$  RETURN  LINE [L]L3 RUN f RUN  RUN < OPEN #/NOT [F]b[N]▗ STEP COS  CLEAR USR  CAT TAB  IF 2 INK  POKE  TO  INVERSE nfN RANDOMIZE F| PLOT  USR g OR  VERIFY  RETURN  PRINT  STEP [K]RND~ PRINT ©NOT STR$ #xLEN CHR$ NOT SCREEN$ CODE  POKE YPEEK  INVERSE # RETURN <>x NEW  NEW  COPY  COPY }[O] OVER  SAVE ▚ DIM TAN  SAVE LEN 8BUSR NOT LN  INK  VERIFY ©o&)]T RANDOMIZE  CAT  LINE  THEN  DRAW OINKEY$ GO SUB VAL :^ TO  SAVE 2U CLEAR V<>:Q'PI>= NEXT O!RG©▖ INPUT o GO SUB g> OPEN # RETURN  INK  PRINT }=CHR$  INPUT  INK T| INPUT ▝ SAVE  PLOT   GO SUB :PQ LLIST  THEN  OVER  RANDOMIZE  CLEAR  DRAW T READ Q INPUT S PRINT  REM  DRAW yVAL  CLS <>[G]0,~NOT SCREEN$  PAPER  RETURN  TO  STOP  CLEAR  FLASH & CLEAR ; DEF FN  TO  CLEAR c CLEAR PI CLEAR STR$  CLEAR  BRIGHT  TO ,> CLEAR SIN  CLEAR <= TO  STOP  CLEAR  INVERSE 4 CLEAR ▝, DEF FN  CLEAR  STEP  CLEAR Q OUT L STOP  TO  CLEAR W CLEAR  CLEAR ▙ LPRINT  DEF FN  STOP  BEEP  LLIST  GO SUB  CLEAR  STOP  DEF FN ,? CLEAR  CLEAR  READ  TO ,* CLEAR r CLEAR  DATA  TO  CLEAR ATN  CLEAR  PAPER  CLEAR ! DATA BIN  TO  TO  CLEAR U CLEAR p CLEAR ACS  CLEAR  INVERSE  TO  STOP  CLEAR b BORDER [U] CLEAR CODE  COPY _ NEXT  GO SUB s IF  PAPER >1Z ERASE ! CLS JSCREEN$  MOVE  GO SUB [Q]: RETURN ATN  LLIST  BORDER  PAPER 1[C]_- OPEN # COPY  FLASH  RETURN [Q]$INKEY$"1Z PAUSE  OUT  MERGE  COPY ;INKEY$? GO SUB 1[A] CIRCLE  RESTORE h DRAW ABS [B]J ERASE ~_# CLS YW POKE i FOR  LLIST <>a|} COPY  COPY  COPY [U] GO SUB KBIN RND STEP & FLASH ~0 BORDER # IF : PAUSE <2 DRAW <> RETURN ATN  GO SUB R0 IF 8 DRAW 'CODE  STEP / FLASH  RESTORE ; RETURN ~ LLIST  CONTINUE  RESTORE o NEXT d NEXT  RETURN  NEXT POINT [U]I NEXT  PRINT > CLS <> BEEP VAL [F] LLIST C BRIGHT  FORMAT  PAPER : STEP RNDrT]o8yPIUSCREEN$ _{ DEF FN RND: TO O LOAD  COPY Y MOVE {INKEY$SIN w#} NEW  IF  FOR  DIM 1▙7": FORMAT CHR$ SGN  SAVE   RESTORE  MOVE ogTAN  LET  READ ~ THEN [P]PIwLEN  DATA < READ  OUT  BORDER  COPY w<>! OVER RND6: INVERSE `jPOINT AT { ERASE ▞DG MOVE K NEXT  STEP  RETURN  PAPER  TO [N] NEXT  CLOSE # NEXT  OPEN #K[D] NEXT [K] NEXT  VERIFY  NEXT  MERGE K[D] NEXT [Q] NEXT  CIRCLE  NEXT  BEEP [C] NEXT [T] NEXT [B]/ NEXT  INK  NEXT INKEY$ NEXT  BORDER [C] NEXT  FLASH  NEXT POINT  BRIGHT  TO  TO <> THEN  AND  CLEAR  DEF FN  CLEAR  OVER  CLEAR  VERIFY ^ TO  CLEAR  NEW  CLEAR  INPUT  FLASH 2OL[A]R OUT  THEN G TO <=STR$  BRIGHT BIN 2> NEXT {Z<>>B CLEAR D CLEAR !X DEF FN 6INKEY$< NEXT <= REM PI=CHR$  CAT ▜ CLEAR  COPY !ACS P GO SUB [ REM RND STEP ( INVERSE ! VERIFY PPI CAT  SAVE <>w# DRAW $-/[O] PRINT  POKE  RETURN  COPY >=d LINE (▚[G] INVERSE ACS NOT a CLS >=[U] GO TO SGN  MERGE  INPUT  INPUT >[U] FOR G PAUSE  GO SUB ▝ INVERSE $ COPY POINT ~ PAPER  OR t BORDER 5INKEY$ THEN  BEEP gIN  INVERSE  MOVE  COPY / CIRCLE  MERGE  MOVE IN RNDyo MOVE <> INK % CLS  OR  CLS  INVERSE USR 2 STEP -RNDINT _ RUN !<= NEW 34 INPUT  RUN aZ RUN  NEW > LET  STOP SIN  INK [U] BORDER <>82W OUT LN X FLASH b BORDER xLEN CODE  OVER ^D INVERSE [S] LPRINT CODE 7LCOS ASN  OPEN # RETURN ATN _z RETURN  LINE  OVER ▜9[M] CLS  NEW 0INT  CLS  READ  CLS q OUT ©8 NOT  DIM  INVERSE d BORDER  COPY 8)#* NEXT  NEXT H+PI SAVE  PRINT P LIST ▝,; OPEN # NEXT X- NEXT [O]@ LINE  NEXT h(▗H OPEN # LIST STR$ 9_dx OVER #g> STEP  LIST ! GO SUB 1SQR 0 COPY NOT "[E]PI LINE [E]bd▗bT▖▖ INPUT 0©CODE  NEXT PI LIST  READ / COPY  STOP L RANDOMIZE  STOP  STOP ! GO SUB ]/ MOVE  DRAW i LIST  RESTORE IN  BEEP  BEEP ATTR  BEEP  RANDOMIZE  BEEP  PAUSE  IF VAL ^ RUN IN { CAT  THEN NOT qCODE RND OUT  LOAD 5[T]SUSR !INKEY$ COPY [E]>=<> LOAD G! FOR X  RETURN  STEP Q OUT <>w# DRAW PI>=|a  CLEAR  OR  RETURN  LOAD  DIM CODE  CLS STR$  INK [ LOAD <>v CLEAR CODE S LPRINT ABS  IF ^▙^3▛INKEY$ CLEAR  CLEAR 13 CLEAR  CLEAR  CLEAR SGN k![O] STEP USR  OR oNOT ^SQR [C]CHR$ [N] GO SUB [N]7? MERGE xw STEP  RETURN 9INKEY$▗TAN  DIM < ERASE  RETURN [O][E] INVERSE  INVERSE a: OUT  STEP ABS _hLEN  IF ZTAN VAL$  IF ATTR - IF FN  IF RNDCODE E IF a8Cn DEF FN CHR$ [B] OVER  LPRINT @ PAUSE  AND H/ PAUSE H PAUSE PEEK [U][H] PAUSE P PAUSE  ERASE KACS  PAUSE X PAUSE  DIM %VAL$  PAUSE ` PAUSE  LET INKEY$ PAUSE <>d [K]{ RUN 8 PAUSE PI LOAD PEEK  SAVE H FOR ]<>ATN X INK  OPEN # RANDOMIZE `. COPY  RUN  LOAD IN ~{ RETURN >=NOT [B] LPRINT  CLS  RESTORE  GO TO  MERGE  VERIFY  FLASH ; MOVE  LPRINT RND LPRINT ~ OUT  INPUT Ba~2 CLOSE # RUN J MERGE  CLEAR LEN <> OR  GO TO  COPY d▖[J] COPY  DIM  LINE  IF ] LIST  LOAD o▙x COPY  FOR  COPY  DRAW [I]©STR$ " & MERGE 2SQR C©[D]CODE  STOP ! OUT POINT STR$ AT  THEN  LIST ▘ COPY CODE  POKE  POKE SCREEN$  FOR _[C] GO TO BIN SGN STR$  OR  FOR  FLASH  LINE C CLS q=[L] FOR #▜4▝9- BORDER  REM  VERIFY  OVER %LEN  GO SUB  INPUT pABS  BEEP  FOR : GO TO _ OPEN #- COPY  LINE  OPEN # IF  COPY " REM RND STEP  INVERSE <>G! LIST  LPRINT  OR  LOAD TT]▖[D] CAT N"JINKEY$ OVER ~AT  INPUT <>:& CLS ASN [N]<> THEN  FOR :'7 PAUSE d RANDOMIZE AT  GO SUB SCODE $INKEY$2 TO >=[J] IF % IF  STEP  AND STR$  FLASH  MOVE ?:1INKEY$_ CAT ▙ GO SUB [3=jw DRAW <> NEXT  INK  PRINT BIN "INKEY$ STOP  INVERSE *CHR$ RND COPY * RESTORE  MERGE  STEP ATTR  STOP  MOVE  LLIST  READ #  POKE CHR$  DRAW ` FOR  INK !X' STOP L CLS <> PAPER ~s BRIGHT #b[A] READ BIN  RESTORE  INK  MOVE ABS b LET  BEEP a INK  LET ©/ CLOSE #▛ VERIFY   VERIFY  LLIST  PAPER  RANDOMIZE #& READ ABS  LET INKEY$▘_ BEEP AO DRAW <>VAL$  THEN  NEW G LINE l READ  SAVE ? DRAW PI RETURN  VERIFY  CONTINUE jFN >/S[U] RETURN NOT [O] RANDOMIZE  RUN @<>xqNOT CHR$ ZCODE ^<>[Q]O CIRCLE ©[S]G STEP r READ  RESTORE  INVERSE  LLIST >z STOP ACS <>< INVERSE * LPRINT RNDYgVAL$ " RANDOMIZE : STOP  NEXT *FN  DRAW  MERGE  GO SUB  TO [H]{ NEXT [O] THEN  INVERSE  INVERSE >c2 READ  LIST o CLS  OUT  LIST LEN % RETURN [I] LINE  DATA 080INKEY$PIASN s=2 SAVE <>CODE  CLS [S]> IF  STOP  INPUT  DRAW  DRAW  LOAD <> STEP  CLS  READ  CLEAR w READ INKEY$e LET j AND [R][R]©INKEY$[C] OR ^j CLS [D][ GO SUB [H][T]SIN LN Z DATA  INPUT m<g[U]CHR$ :B>STR$ CODE  RUN [R] RETURN NOT  RESTORE  STOP P7 DATA ▛ DRAW  LINE PIm>CODE SCREEN$  COPY &CODE  LLIST <>{[ LET :-[N] DRAW  MERGE !2 INK wGCHR$  MOVE  DATA p8O BEEP  PAPER  PAPER mACS <>yEXP  IF  PLOT   IF  RETURN LEN x MERGE >=w[O]WTAB  BEEP yw4 REM TAB  BEEP X[D]< NEXT  PAUSE O[G] COPY  LIST  OUT TAN ABS iINKEY$ FLASH  MERGE  BRIGHT ~ RETURN ▙#VH RANDOMIZE B INK INT . RESTORE > LET PIPEEK  COPY  OUT  STEP [Q] RESTORE fq4 NEW  TO  IF  RETURN ff CLEAR a RUN z CLEAR [E] CLEAR VAL$ qf CLEAR <> CLEAR  GO TO  CLEAR  BORDER <=k8[gPIFN F>=VAL  THEN  LPRINT  THEN ▛ ERASE SGN [M] DRAW  SAVE  RANDOMIZE PI7[D]NOT  CLOSE #+ DIM  INVERSE  REM u NEW FEXP  NEXT ;COS STR$ COS ,COS  DEF FN  RETURN [R] LLIST  MERGE ? BEEP  NEXT ?▜ THEN  LINE ABS  LINE l RETURN AT 6h LINE `▖ZABS // OPEN #[O]4 OPEN #kf OUT  GO SUB  LIST 6! READ  READ  SAVE  BORDER  THEN W© READ  NEW < ERASE  NEW [Q] THEN Q TO _ LOAD  NEW [R] PRINT  POKE ▚ THEN PEEK |c RESTORE [N]zi RESTORE >= DEF FN USR ~PTAN u[O] IF CODE ACS  INVERSE `>=E PRINT O OR  BRIGHT  READ {~ INPUT SGN ^▛ RETURN  INVERSE PEEK qLN  REM  THEN © COPY  RUN CHR$ CHR$  RUN  AND ▜ STEP TAN  OUT  BEEP  STOP  RUN SGN  VERIFY  NEXT !' RETURN J MERGE "| BORDER  GO SUB s[Q]1jg RETURN  ERASE   LLIST >ASN o PAUSE [L] PAUSE  VERIFY  MOVE ,r?STR$  CLS  LLIST  CAT 1SCREEN$  ERASE  MERGE t OPEN #▘%[N]O/ INK - SAVE  VERIFY cd rNOT [M]E CONTINUE B CLEAR  FLASH  REM Y/h GO TO ▗/[M] CLEAR  THEN  CLEAR  FLASH  GO SUB  CIRCLE  LET Y/ PAUSE  PLOT  [J] OR  CLEAR 8 NEXT R CLEAR PIo OVER  CLEAR U POKE *<INT 7 CONTINUE  SAVE TAB SCREEN$  PAUSE  ERASE  RETURN  ERASE  PAPER %u FLASH  FLASH SGN D PAPER 6EXP  AND  IF : OVER [L]& BEEP CHR$ m CONTINUE |EXP  CLS W DIM _m8Q PAPER POINT  DIM ▟ LOAD  PAUSE ▝ LLIST g COPY  INPUT  STEP t PAPER 7ATN U DRAW >&INKEY$USR {NOT  LINE [P] DIM  STEP mATN  GO SUB / OUT  STEP  PAPER  PAPER Ly▖PIUSR  CLS !ACS [F] CLS ? CLS  CLS  OVER  PAUSE  PAPER >=JW2 DRAW r[G]? RETURN  TO [N] DIM 2 RUN XCODE TAN CODE ASN  LINE 
  50598ASN  COPY WATTR INT  CLS ;VAL  IF ASN =ASN ▟SCREEN$  INPUT TAN  GO TO  LOAD [S] LINE [B] REM  STEP l INPUT ASN ZTAN ZEXP [ CLS ©/TAN  FLASH  AND ^,2 CLS COS LEN 9COS PI LINE GTAN ?TAN  MERGE j STOP EXP  READ  CLS  DATA AT  RETURN TAN  VERIFY  CAT FTAN CODE :.mCHR$ ACS  PAUSE TAN  DIM > COPY 2 PLOT  ( BRIGHT  CLS  SAVE < RANDOMIZE  OR  FLASH x LLIST  STEP POINT 0D CLS b"CHR$ RNDCODE ( PAPER s[M] RESTORE  DRAW  INVERSE * PRINT T8? RANDOMIZE w@O IF A IF  STEP  CIRCLE  LET h GO TO k| PAUSE ▛[R]PIBIN  MOVE CHR$  REM :[S] AND r SAVE [S]=[S]>K LIST [R] DATA  DRAW TAN ATN /ATN [ATN SGN Z RUN ATN @ OR 8ATN QACS hK[S] CIRCLE ACS  DRAW %ACS ASN  AND  DIM ASN d,ACS  INPUT <ACS %7 FOR [INT l CLS |[L] LOAD VAL$ z GO SUB SQR 6EXP  BRIGHT = FOR  RANDOMIZE  DEF FN  RESTORE oUSR  LOAD  OR  RUN  LINE  FOR  CLOSE #▛ GO TO  OUT  RESTORE QLN  BRIGHT ~ GO TO  LOAD  FLASH wL FLASH INT  CLOSE #[N]PI FLASH  MOVE NOT >w RESTORE  PLOT  - FORMAT ! GO SUB ~PICHR$ CODE  GO TO  RETURN  THEN &p# RUN  OVER <>y PRINT  DEF FN q READ  POKE ATN  COPY VAL$ c INPUT <>CODE ([G]COS +ACS =ACS BIN  LIST  ERASE ATN > READ IN  BORDER irsSTR$ BNOT #& RETURN  IF  OVER  VERIFY  POKE INT  READ  MOVE  COPY  OR ASN OCODE ASN Zzq CLEAR ATN  AND ATN  LLIST  OPEN #ATN [L] BORDER > LET X[Q][T] TO `="*<>ACS SIN ▚ COPY  LPRINT  LLIST 7~ RETURN E LINE [U] GO TO  LET  LIST @ CLOSE #AT  BRIGHT POINT  CAT ©#xLEN   REM {NOT [D][L] GO TO  CLS  SAVE  RETURN [P]ATTR USR Q[P] LINE IN u} GO TO Pn{V<VACS ABS 3 THEN ?0 CAT CHR$ 6[} RETURN G' STEP  DEF FN ACS _ PAPER [U]= LPRINT ▗ STEP  GO SUB  STEP i SAVE [T] GO SUB [Q] DATA  LINE ▞ PAPER [I]NOT  STOP  CLS AT [C]BIN INT mPI#[K]| STEP {COS  INPUT ©1 RANDOMIZE   CLOSE #+[P] MERGE IINKEY$ RETURN >=BIN  TO [B][O] AND w[% PRINT 3PIi DIM  LINE  INK  GO SUB  LET  NEXT  RESTORE  MERGE EATTR  OUT ▟ OUT  CLS  OUT  RESTORE  SAVE  PAPER  AND  LOAD  AND ACS  IF  CLEAR = NEXT  VERIFY  CLEAR  DIM ABS  LLIST <> LET [Q] LLIST 3▗x STEP  STEP  TO ; INPUT  MERGE ▖ CLS  THEN VATTR  CLS  LINE  CLS <>ZTAB  CLS >= CLS <= FORMAT  PRINT  TO a CLS  MOVE  RANDOMIZE  CLS  ERASE ASN 9 LET  CLS  OPEN # CLS  MERGE j CLOSE # CLS  MERGE  CLS  VERIFY wSCREEN$  CLS  BEEP  CLS #AT DR NEXT 0 LINE O STEP [H] FORMAT  DRAW ! OPEN # DRAW VAL$ [A] RUN = MERGE  DATA  CIRCLE  TO [R]6VAL$  INK  CLS IN  OUT  LOAD [I] PAPER TAB W READ  VERIFY  READ +;! LLIST p LLIST  CLS  DRAW | BEEP  BEEP 3 LET  CONTINUE  LLIST [Q] OVER  BORDER <> AND R[A]> DRAW  FLASH 6c DRAW CODE 3u AND vIN  POKE [A]!<>v" IF  RANDOMIZE D PAPER : READ Re[G] LOAD EXP IN  CLOSE # LIST INT <>▙EXP V LIST lATN O OUT  LINE [D] CLS EXP  LPRINT <>"8[S]X;[S]J THEN [S]6INKEY$ATN X OUT  LOAD [F] OR  AND CHR$  PRINT [M] INPUT L OUT 2< DIM BIN  LIST [r▚ BEEP  SAVE IACS q IF  NEXT  GO SUB s FLASH  LOAD 0[D]{ STEP *INT  MOVE INT ESIN 0▙ CAT  RUN $ IF [R] FOR  OR [U] NEW  LIST D LIST  RETURN  CLS 49  INPUT ASN  FORMAT h DEF FN ▟Y AND :;<>^ BORDER + REM ] DIM  FOR  READ z FOR  ERASE  AND [PEEK  FORMAT  RESTORE  INPUT ATTR  BORDER " READ  ERASE CHR$  READ Ij9 READ ▞s▞~ATN  CLOSE #▞VAL$ RNDUSR   DEF FN  PRINT COS [N] PRINT ,PEEK  RETURN  POKE ;= CAT  PRINT <> ERASE [R]:LN POINT K VERIFY :[G]m^IN PI>= MOVE  VERIFY  STEP © NEXT { OUT AT W>= STEP  LIST [L]SGN [T] RUN VAL$  LET  STOP  MERGE  RUN ^ RUN CHR$  NEXT SGN [N]NOT CODE PI[U] REM  DRAW |POINT  LET PITAN  PRINT  COPY 4 LET  PRINT  BRIGHT DSm CLS  INVERSE  CLS  OVER  CLS <>SASN <w▙[G] ERASE ylTAB  LIST [L] CLEAR >9 RETURN  NEW fLCODE :< NEXT [F]BIN ▜9[R] CLS $▘s▘x STOP [- CLOSE # DRAW  CAT K LLIST  NEXT K8<=STR$  GO SUB v NEXT M GO SUB w/Z POKE  RETURN  NEXT <▛g NEXT ' GO TO ABS . RETURN BR! IF C IF !D IF RE IF FR! IF G IF .H IF >=6IN SGN ▝AT SGN @BSGN  [R]SGN [A]PSGN H(SGN $SGN SGN ▗SGN ^SGN 5iOSQR [G]KGSIN  STEP { PAUSE ? DRAW  CLEAR  BRIGHT 0` LOAD [D][M] PAUSE  AND  TO  OPEN # IF ;[R]fCOS  PAUSE <| SAVE  CLS CHR$ - DIM >=- NEW USR  MERGE  PAUSE  CAT o BRIGHT S CONTINUE  BEEP [G]| IF ,INT |<> THEN  BEEP  FOR  THEN < OUT © IF  CLS CODE  BEEP [L]I OPEN #k[P] NEXT m CLS  OVER  STEP 5 PAPER ▗CHR$  GO SUB  NEXT VABS ,h OVER © LIST  POKE  BORDER  THEN  LIST , LIST  INVERSE !1▛q[D]Zw#[H]RNDEXP R LET  NEW K LET  NEW ^ GO SUB )AT _ NEW  REM ? BORDER  RUN  MERGE d CIRCLE  OPEN # OVER  RUN [O]#/ RETURN  LINE Z PRINT [O] CLOSE #W LINE  PAPER  NEXT o▜[S]U LINE ATN y AND UG COPY h THEN [I] LINE  LPRINT  CIRCLE n OPEN #ATTR =▞ OVER 7 RETURN <>d@[G]NOT _dP2STR$  GO TO   CONTINUE s~~[H]>= COPY d BRIGHT  PAPER  IF i OUT  LET LEN  RESTORE * RESTORE +dP▛ch" LOAD  BEEP A OVER [C]o CAT CHR$ *J#" DRAW } RETURN  GO TO  INPUT ( LINE i POKE  LET VAL$  DIM 8 INPUT ?CODE  STEP PIVAL s RANDOMIZE YCODE 2I CONTINUE  FOR ▛e PAPER TAN _>ATN m3[M] DRAW  MERGE N CLOSE # LPRINT  RUN ` DRAW  DIM [A]q[R] INPUT  NEW  PRINT  OPEN #z/ PAPER CODE  RESTORE FN Q LET  BORDER  BORDER ▙ACS / TO , DEF FN  IF  STEP  POKE  PAUSE v PLOT   PAPER  DEF FN [U] CLEAR  BEEP  OUT  POKE  INPUT  CLEAR  BRIGHT  RANDOMIZE  LET .= IF  LPRINT 3$ LPRINT zINT }ASN ATN sPEEK AT [J]#G PAUSE  LLIST n[P][J] IF  CLEAR  CIRCLE ABS  TO  NEW  CLEAR = RUN :USR ▝LINKEY$CHR$ ▝ RETURN  REM  STEP  STOP  BORDER AT  RETURN ACS  LINE [R] RUN v PRINT ▚ PAPER E RANDOMIZE  RETURN  OR  STEP  PAPER STR$  RANDOMIZE  NEXT 1[S] BRIGHT  BORDER  NEXT  CIRCLE  READ  PAUSE i VERIFY  READ  NEXT  IF  TO  DATA  VERIFY  RESTORE [K]J[E][L] COPY  STOP  CLEAR  SAVE  RUN *$INKEY$"Q;[@ INK  BORDER  RUN ]E|v STEP / PAPER -_FN  NEW @ TO {[Q]v SAVE BIN IN  RANDOMIZE  SAVE [J]@ AND * BEEP "▟ PAUSE  PAPER  STEP [O] PAPER * BEEP  RUN P{/BIN y CLS  SAVE @.▜ SAVE [J]▝[F] STEP  CONTINUE [O]▞[P][J] FLASH  LOAD  OVER >=  LOAD  PAPER  RETURN  AND  PLOT  © GO SUB x THEN _ NEXT [T]IN ] FOR  INVERSE !]▛bv SAVE  TO  RETURN  LLIST  TO N PLOT   READ ZTAB  CLS  RESTORE  CLS  INVERSE 6▜ CLS  OVER P CLS  OUT  TO [R] CLS NOT S CLS CHR$ ▜9V CLS STR$  NEW 0Y CLS  DEF FN B CLS  CAT NOT E CLS  FLASH p[I]K CLS  PAPER H VERIFY  INVERSE < TO  RUN =SIN <>>BIN  CLEAR  OR Y TO  CLEAR  CIRCLE  CLEAR  INK =[I][J] CLS  BRIGHT  CLEAR USR  CLEAR IN  CLEAR PEEK EXP  STEP  FOR l RUN  DEF FN  NEXT 8B~~CHR$ [T] POKE  STEP  CLEAR p MERGE O PAUSE o_&T)*q POKE VAL$  PLOT  ~R[C]%# CLS " CLS %PI MERGE  CLS . CLS FN RG LOAD ▟ICHR$ RND BORDER <>@?)P8 BEEP  CAT FN : DATA RNDPIUSR gw[D] NEW @<= PLOT   COPY <>2 INK @>w# RETURN < DRAW  POKE r INK  LET @ GO SUB VAL <> REM  OVER ow>= OR ▘H© NEW  GO SUB % RUN < DEF FN  PLOT  i CLOSE # STEP  RETURN  INPUT [N] RUN [S]1"MINKEY$ RUN -f BEEP USR  STEP ][P INVERSE  COPY [M] VERIFY © STEP  RUN 2 SAVE <>d▖STR$ NOT #Nh RUN !'[M][N]USR  CAT >=*.FN IN tWF|c RUN  GO SUB  LPRINT VAL |2yiSQR [G]wL[M] OUT [I]SGN L▖ CLEAR  COPY [ NEXT SGN  NEW  INVERSE " OUT  DRAW v BEEP [R]1STR$  PRINT VAL  TO dINT _ OR PEEK [J]NOT / PLOT   LPRINT  LIST ABS  COPY  LPRINT d8[G] BORDER x PAUSE [S] PAUSE E6Xp RESTORE [M]NJ#▙ DATA [H]> STOP < MOVE ▚? RESTORE  NEW EXP HASN c PLOT  cQ▗CODE  MERGE na;j_ABS SGN [Z~▞[P] SAVE  RESTORE  COPY YF}oSINKEY$ CLEAR © MOVE G~ NEW @VAL w#~ RUN INKEY$[P] FOR  BORDER qAT  CONTINUE <><>[E]▜O CLEAR ~ IF  RUN  CLS O BORDER  READ  RANDOMIZE  RUN !J INVERSE [N]SCREEN$ CODE w ERASE ABS p SAVE V RUN  TO !IINKEY$4VAL$ ▛NOT  SAVE  RANDOMIZE [Q]PUSR w▛ AND )2ABS  INPUT  LINE [F] LOAD  COPY  CLS _,2NOT SIN  POKE < LET  NEXT  INK "' RANDOMIZE  INVERSE !/ CLEAR  COPY _^SCREEN$  RESTORE  MERGE  STEP , RANDOMIZE ` RETURN  MOVE  LLIST #  PRINT  DIM b[S] FOR  GO TO  INK  STOP INT f CLS <> FLASH ~ POKE  RETURN  GO TO  CLEAR  MOVE O RESTORE  INK  MOVE  OR 0 POKE ACS eSTR$  PRINT <>oABS SIN uSIN 5X THEN WSIN zSIN SIN PISIN  LOAD  RESTORE <>d0  LET  STOP  ERASE d@CHR$  NEXT VAL$ KdP>=NOT  COPY ASN  RANDOMIZE : GO TO RND< RETURN  TO  PAPER U[F] RANDOMIZE 2 RUN # INPUT  DEF FN STR$  RETURN USR  PAPER ▚ IF  IF  RESTORE  RETURN ; RESTORE  RUN  AND o BORDER SCREEN$  IF  CONTINUE JX[I]]▖ RANDOMIZE [K]|INT Y[P]$SGN VAL$  CLS <>[G]▙1 IF 8<▙RND[J]▗COS  "PI COPY  PAUSE  LINE  NEW  TO /SQR i IF [R] NEXT y IF  CLOSE #F INK ]@p DRAW  REM  LIST NOT ? LIST TAN v<>=mw RETURN ACS [T]0.W' CIRCLE  FORMAT  CLS =:W FOR |l LINE @m2 RUN <>h OR IN pJ ERASE ~_# COPY  CAT Wi NEXT <>:XINKEY$O STEP  OR  BRIGHT  GO SUB  IF ~2YTAN Z READ 7 INPUT >[U]CHR$  PRINT  RESTORE  RUN  MOVE  DRAW < GO SUB [Q] RETURN  LLIST STR$  LET =  CONTINUE ▜ STOP ▚ MOVE w#?C MOVE ABS  COPY  OR v> OVER [M]2 DIM  STEP  BEEP  TO q= SAVE STR$  FOR <>o LIST  GO SUB  NEXT i CLS BIN ASN ATTR RNDz CLEAR X INPUT RNDP[G]?l LPRINT d_▗` PLOT  = NEW CHR$  COPY d@? DRAW  OUT  LIST  THEN 2L_~INKEY$o THEN  POKE i[H] PAUSE CODE  PLOT  / THEN [P] PAUSE <>VAL$ SN: CAT TAN  LIST IN  OUT  PRINT  RETURN AT  TO  MERGE  DRAW  LET  GO SUB CHR$  FLASH  POKE z ERASE  LOAD  RANDOMIZE  STEP  ERASE  SAVE NOT K; NEXT { OR h<>POINT LN 4[N]>== CLEAR  AND  RANDOMIZE  VERIFY y[N] RUN  DRAW  OR x^:]VSIN T DRAW 5 BEEP TAB  GO SUB VAL STR$  GO SUB (* SAVE  TO  GO SUB o` MOVE  LIST  CLEAR |AT y OVER M DRAW YW!<>SCREEN$  DEF FN [D] LINE  PRINT  OVER  RESTORE [Q] RETURN  ERASE  RANDOMIZE ASN w1$ COPY H CLS  PRINT  OUT ATTR [I]RNDn{ STEP > PAPER  PAUSE 3EXP  PAUSE  STOP  PAUSE A PAUSE LN zFN  PAUSE  READ  PAUSE n DATA  PAUSE <RND PAUSE M IF CODE Rc▟CODE )?235 IF  OUT  IF  GO TO  CLEAR 0 RUN ABS  READ PEEK ABS  INK SIN  OUT  DRAW K BRIGHT R[I]' RESTORE o>=G PAPER NOT  OR  LIST BKNUSR <NOT ▝ REM /[N]ATTR CODE  STEP ;© BORDER <= DRAW VAL  BEEP  OR  LIST y{[H]▜ BORDER ATN  LINE c[M]0< COPY  RUN  AND  RANDOMIZE  PAUSE  RANDOMIZE  BORDER  ERASE  PAUSE  DATA ASN k FOR  PAUSE  GO SUB  PAPER  DATA  RANDOMIZE  OPEN #R DATA  COPY  VERIFY 4▙ RANDOMIZE  PAUSE  DATA  CLEAR  PAUSE  RANDOMIZE 1[I], RETURN EPEEK BABS Z$RNDq NEW 8LN 4 RETURN [A] INPUT B▝▞ LIST  GO SUB ▟"(/ NEW %H[J] NEXT ▝f<~ READ D($H[U]~c INK XU?_-E$ RANDOMIZE , RUN  DRAW  OR BIN El<ASN  RUN T IF  DRAW E_ COPY ASN  DIM  RETURN /E OR  TO  FLASH  RUN  LOAD  OUT o CONTINUE IN SQR E CLOSE # DIM  RETURN [U]<=S RESTORE + DRAW ECOS [T] GO SUB SQR IN  OUT  LOAD E CLOSE #4 BORDER  RETURN  RESTORE / LET oKe EATN [L]▟bPEEK  READ YETAN  DIM  SAVE  NEXT  COPY  REM VEj5g▟▟[K]I FLASH ><Z RUN ACS L[I]VAL [H]{ RUN 0( CLEAR F OR  OVER EXP %!" DATA  OR @B  BRIGHT L"$L >= RANDOMIZE [A]@ LET [B] BRIGHT [A] RESTORE ">=CODE A[U] OUT (▗DSTR$ [M]@ LET ▞ REM D▘BIN $FN Ql ERASE  LIST  COPY  RETURN © SAVE  PRINT  DRAW PI BORDER PI© LET  GO SUB PI LET  DATA  PLOT  ▚ PAUSE HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  NEXT  GO SUB s▛USR !USR ▞[w MERGE  GO SUB VAL USR  INK ! RUN  LIST  COPY  COPY b0<> GO SUB LN 1[O] CAT STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>N@ GO SUB  DIM ▚OPN CLEAR QRST[K]q CLEAR *LN  STOP =LN  COPY EXP  CLEAR ' LPRINT  DIM  SAVE  CLS  COPY y$ SAVE ,-+./0}j1 CLEAR ! INPUT ▚PO8 FOR BIN ▞ STOP TAB USR [C] COPY  PRINT  VERIFY TAN  OVER  PRINT  LOAD Dt CLS NOT ASN [G][U]BIN ▛▞BIN  OR  RETURN [U]<= COPY  INVERSE  LIST ,[F]<=[P]> PAUSE .<x COPY  BORDER 'LN  LET  READ  LOAD POINT fFN Oq LPRINT 4 MERGE q LIST <= ERASE JhFN  POKE <>( CLS  INPUT  DIM ▖i7 COPY )I BEEP  IF nGPOINT FN 8 DIM  COPY  REM  RANDOMIZE ▞. INPUT  LIST  SAVE # THEN  TO cJ LET EK[T] AND .8 POKE @PI COPY ![D] COPY  CLOSE #T[E] MERGE ASN  OPEN # CLEAR " INPUT l, COPY  CLEAR ▛$ GO TO 9S[D] MERGE !AT vVAL$  PAUSE %/RND DIM . CLEAR POINT [H] CONTINUE  DRAW INKEY$/ NEW fAT VAL$ -[A]) GO SUB  DRAW p'.,ni[H] REM ) OPEN #©[D]/ FORMAT X/▖[G][F] CLEAR [H]VAL$ w NEW _?[F] COPY ▗GHMOI CLEAR JKLM CLEAR ▚/PEEK ▟ CLEAR <=}<=#$ STOP  MOVE VAL EXP  RETURN  COPY  CLS #▞ DATA LN  RETURN [U][Q] PRINT  SAVE SGN ^▛+ LINE  CLS ^ CLEAR ▛▟ CONTINUE  DIM ▙234 CLEAR 5678 CLEAR zz[U]9:; CLEAR <=>? NEXT ? CLEAR ▖[T] OR [B]J CLEAR ]SGN ▜▖[B]Qt LLIST ▞[T]%[R] COPY [H] IF [E]?TAN [R][S][B][D][T]EXP  NEXT  PRINT [E]) CAT  RUN [U] BRIGHT RND PAPER BIN PI[A][E]▜EXP INKEY$PIFN ▗INKEY$▗[B][C][E]IN Q AND 5 MERGE  DEF FN [E]<>© STOP ▚$ DATA  LET  NEW  READ  STEP <= BORDER n< PAUSE  BRIGHT a SAVE  COPY [T]Gq NEW ▚▟<=[A]ATTR [L] DRAW  OUT [J]n.i72 BRIGHT /LN @ OPEN #S CLOSE #▖c POKE  MOVE  CLS  CLOSE # FORMAT  MOVE Q} PAUSE  CLEAR <=[I][H] CLEAR  STOP  ERASE nR LINE % CLEAR  PLOT   COPY  REM % PAPER  CLEAR LN IBIN  TO  CLEAR  STOP P RUN  CLS  OPEN #oNOT '(POINT D NEW ▘!kF LPRINT G[D]▝ READ  OPEN # PLOT  <=[G] CLOSE # SAVE >=[C]/r~ DRAW  INK DPI'FN ;)NOT / PAUSE 4{ DEF FN MX OVER bP[D] CIRCLE  LET ▚ LET  COPY b=LN ▘ PAUSE ;wX AND ATN :]x[M]<=! [R] LET STR$ [S]"[T]▜ CLEAR ACHR$ $ >[U] CLEAR RND%INKEY$&[E]IN CBIN BNOT ('[I]# CAT o)SCREEN$ [E]BIN  OR ▘? STEP I[H]qLN EXP &CODE '[E]PEEK [F]''▜ IF [G]SQR VAL$ IN  COPY  BRIGHT [J][K]LN  IF #$EXP [L]USR COS [G][M][N] BEEP  IF  OPEN #>= FOR LN [O][P][Q]P IF 6' RUN ; IF [F]VAL  PLOT  [I] SAVE EXP u PRINT PI>=[N]PEEK  STOP  BRIGHT y^]?~ IF ~ CIRCLE  INK © AND +[R] LET  RESTORE !LN LN nc[P][P] POKE [U] BRIGHT  THEN spI CLEAR  STOP [D]:jz▛▙ RUN 7u BEEP ▞ INPUT  REM < STOP  LLIST  INK [F] BEEP uy*vABS v MOVE  PAUSE O NEW [C]"CHR$ . COPY <0 SAVE 9= MOVE  CLEAR A:FNOT  STEP > RETURN ▗r[K][F] OR TAB ▗[N][D]F NEXT  TO  CLS  COPY  CAT  OR NOT ASN  PAUSE RND POKE AT  RETURN NOT  CLS  REM  AND %▗SGN  OR  DRAW  TO  CLOSE #A CLOSE # CLS  MERGE  BRIGHT  COPY  DEF FN -BIN  OVER  DATA  GO SUB  RESTORE 9 CLS  ERASE  THEN ABS  OPEN # POKE  CLEAR  OR CODE  CLS ▝YcSTR$ a ERASE iqy▝▞ CLEAR xSQR  CLS +USR  BEEP ^ IF rz▘ CLEAR [D][G] STOP SIN [C][K][S][E]IVAL [P]ATN %[P][M]K▖BIN [P]ASN [R][P] LIST  RETURN ▗[P] GO SUB & RESTORE +EXP COS  LIST  INPUT [K]5=CjASN [F][E][H]{[H] BORDER  LET Y/,(▛ FOR [H]:CCHR$  GO SUB ▛BJRZbjw CLEAR r{SIN ▖+> CLEAR [F] STEP  DEF FN % DRAW  COPY .o PAUSE  NEXT <>=EXP SGN  LPRINT =[B][L]STR$ ^/[J][R]POINT LEN EXP X CLEAR <> OPEN # STOP NOT  MOVE  INK M IF  LLIST  DIM  LET  RANDOMIZE  CLEAR  CONTINUE  FORMAT CHR$  CLEAR D▖ PAPER s▛<|UUSR hp>kt▟7[I][Q]FN [U] MERGE L OR  COPY P GO SUB  STOP ▖[A] LET  STEP  PAUSE  LOAD  OPEN #▝ CLEAR  VERIFY -USR PX`[P]VAL$  LET EXP BIN =E8@ LET kH LET  LET  DRAW LU<=▛I CLS @P STOP  LOAD p[P]aq PAUSE  SQR  BEEP [F]^x PAUSE  CLOSE #wO STOP  MERGE  NEW CF@a LPRINT  LET SCREEN$  LOAD p;RND([I] LOAD  READ &M LINE Zjz LOAD ZFUSR 7v[E] DRAW  READ oCODE  FLASH / LIST [O]{0 LOAD w7p< NEXT 4[C]6 LIST  CLEAR [M][P]POINT p▞( DIM  CLEAR Ii~POINT  CLEAR pVAL  LINE <> REM ~(*Jje[O] CLEAR Dc|[H] OR  COPY  INK  DRAW  CLEAR " DATA [R]G PAUSE  RUN  DRAW [O] RETURN 1qRNDe CLEAR  OR  NEW %[I][P] CLEAR  LET LEN  AND ▚Ff CLEAR INKEY$~: BORDER  CLEAR USR g'G/} CLEAR ▜PI<= BORDER  CLEAR [Q]F CLS  INVERSE ▖[H] MOVE  STOP POINT 'G IF  RANDOMIZE "b[A]VAL  BEEP  PLOT  4L OPEN #Tw RANDOMIZE " CONTINUE n LINE zi[P] FORMAT G COPY CVAL$ . RANDOMIZE  OR E CONTINUE AT [P] RESTORE  INPUT ▘ LINE  THEN _ CLS [S]▛ TO ! INPUT  OUT ACHR$  STEP ▟M STOP x[M]bPOINT  OUT .N5 RETURN ▙ DEF FN O<=d▗<>@<=s OUT _ NEXT !INT  LPRINT  F GO TO  RESTORE TAN CILEN  COPY AgP<>kd CLEAR  DRAW A▛8<= BRIGHT D▗1xe© FOR INKEY$ THEN *[C]K TO N_ STEP L DRAW ?l?IN [A] BRIGHT  LPRINT  TO Z[O] DRAW  STOP w CLS  OVER  CAT O FORMAT y STOP TAB TAB 'FN bABS  POKE  COPY * THEN  INPUT LN ABS [O]sIN ?|▘▗ COPY © CLEAR ▚▖[C]*2H8D DIM Q DEF FN  ERASE [C] OPEN #R CLEAR SNOT / NEXT g VERIFY CODE  NEXT  ! LPRINT ACS K GO TO  CLEAR  DEF FN mk RANDOMIZE LEN  LINE  LINE  LPRINT  FOR  INK >= BRIGHT [G]F GO SUB  PRINT  DRAW  THEN <=SCREEN$  BRIGHT  ERASE r LPRINT  DRAW [ INK ▛ OPEN # FORMAT vi THEN  CLOSE #ABS  PLOT   COPY @AB CLEAR CDEF[I]PI CLEAR  INPUT  LET y LIST  RESTORE ▜ LET 4 LINE {<> COPY [F] READ  OPEN # SAVE  PRINT STR$ ▟ GO TO i CLEAR ▙[J][R]SGN dV GO TO  FORMAT 4▙ NEXT <=C[O] LLIST CHR$  STOP  NEW  COPY  CONTINUE C COPY  IF STR$  CLEAR ASN ? CLEAR o FORMAT !% CLEAR )-1mi5 CLEAR GJCODE  CLEAR EIMQ CLEAR J▙' THEN  CLEAR ▚▙ STOP h FORMAT  RUN  PLOT  D{ IF [D]r[G] GO SUB  PAUSE ▜v PLOT   LOAD [K][O][S] RUN E# PLOT   FORMAT  RETURN ▖[S] RUN  CAT  OUT <> RANDOMIZE ▘ IF USR SGN AT  OR  FLASH  BORDER ▛[U]SCREEN$  DATA  LPRINT LPT CAT NOT  PAPER ▛&>Bi DATA @ BEEP  GO SUB DH TO  TO BF? BEEP  IF lASN %z3[S]*5SGN v GO TO  MERGE BIN /b]|kCHR$ momIR STEP ` LET  TO r[K][T]SIN RND©~& RESTORE 9 IF [L] COPY 1x NEXT > CLEAR sMOQ NEW  READ <= PAUSE 7 INPUT .K/VAL$ " DEF FN  TO  STOP [H][I]SQR  CLEAR ▙d LET u IF [I] LPRINT ▞dhn CLEAR >=S STEP >= ( FOR SGN & LPRINT  CONTINUE  PRINT  COPY g GO TO  LET USR 8Db|▛ DRAW  COPY  CLOSE # PRINT 4Qq▖ DIM [T]<>LN  NEXT K%9SGN t1ABS  ERASE % SAVE  POKE [U] RETURN  CLEAR OO COPY  PRINT  LPRINT AT VAL TAN  CLEAR LN SGN USR  BRIGHT qBIN  CLEAR  LOAD  RUN 3[L][P][T][U] NEXT >POINT SCREEN$ SIN SQR AT  RUN m OVER }SIN PEEK  OUT ACS IN TAB  RUN  CLS }#SQR IN NOT  OR y OUT }? THEN  CAT  OPEN # MERGE  CLS  NEW }E READ [ PAPER  OVER  COPY ▖[F][E]B COPY ▖9PEEK ▜[R] CLS <= GO SUB  LET  PRINT  CLS ce RETURN [N]j<= COPY [E][I][O] OVER PEEK  RETURN @EPI{[C]TAB  LPRINT 4 REM y9^ PAUSE yATN (PI CLS :F NEW  LPRINT ~" LPRINT ABS  LET  RETURN ©^COS  OUT ▖CHR$ >@b NEW  RESTORE  GO SUB ABS <>R$n|V COPY N DRAW  BORDER ▛[A]z COPY VAL$ VAL$ PEEK R IF VZCHR$ NOT  CLS  RANDOMIZE ▛▖z[D]sTAB ^b RETURN fj^Y LET ▚VAL$  OUT  PRINT LN orv_USR ([P]▛ STOP z<=[P]~▘ NEXT NOT  ERASE VAL$ .? OVER + COPY o1 ERASE  RETURN SIN  OPEN #▜7(1 RESTORE [WU OUT  ERASE  CLS g$BIN  LET n RUN Wv STOP  DIM  IF d[H] THEN [L][E]ACS  LLIST uD IF  LET $ABS 9 CLOSE # PRINT  RESTORE t IF n RESTORE  GO TO  READ  DIM + OVER m RESTORE TAN $CINKEY$ MERGE  PRINT ATN  OUT INT  OPEN #[T] BEEP  PRINT ATN iBIN  RANDOMIZE  OPEN #[R][L]▖[J][D] FOR 76 STOP H RESTORE  PLOT   IF i DIM  STEP AT ▖/ DIM  CONTINUE [B]TAN  READ HPOINT  GO SUB ▛INKEY$POINT [S]i8INT cr[H] CLOSE #POINT [G]?LNOT  IF COS  NEXT 3WB6 FLASH  PAUSE POINT  INVERSE  READ  REM & LIST 'nkGy[S]'▛▖PI CONTINUE  PLOT  4N THEN  COPY  GO SUB SCREEN$ [N] READ " READ  PLOT  h MERGE ▖l FOR AT  FLASH #[E]t)7tkluVJ LIST  DEF FN  SAVE  DIM [S][L]▖u NEW !Q LET  SAVE  OPEN # GO TO  OPEN #SGN T[N]tL OPEN #nxAT BIN  OUT  OVER F NEW [S] BORDER i[P][D]wt; RESTORE , ERASE  GO SUB  NEXT . LLIST  STOP TAB ABS CODE [D] CLOSE # CLEAR [S]bQ NEW I MERGE  INPUT VAL$ NOT C8 PAPER ,▖TAB DQ DEF FN  LLIST ,[K]▟;TAB ▘NOT  OPEN # CLS  LET sCHR$ ZVAL  COPY  LET =[C]A RETURN  READ  OPEN #8yVAL  NEXT aUSR AT  LET [G]2[P]© RESTORE  REM *T MERGE )SCREEN$  LET / CIRCLE Rp DRAW ▛ DEF FN . PAUSE  GO TO SGN B RETURN % BEEP  LET  CLS  PRINT  LIST 8©p NEXT  LET Csr READ g PRINT e CLEAR d RESTORE a▞+= LET  BEEP  VERIFY  VERIFY  COPY ` INK  LET 7s/ BEEP  OR SCREEN$ AT  BORDER $CODE  LET  BORDER  LET 1a STOP ` GO SUB  NEXT VAL SIN TAN ACS LN  STOP r[M][O][Q]qz CLEAR [S][U]INKEY$FN  CLEAR RNDsqc MOVE  CLEAR Q CONTINUE  COPY IEXP K IF  RESTORE  COPY ATN RND NEW { BEEP  GO SUB  NEW G RANDOMIZE  PAUSE  CLS xx NEW  DATA xz LPRINT <>[Q]q LLIST  GO SUB  COPY Bo▖SGN EXP ▜PI8!FN  COPY L PAPER `4m▙ CAT SN COPY  LIST ` DIM FN rEXP  SAVE XZ/^`baSQR ? STOP IN r STEP  CAT  MOVE  ERASE ~m CLEAR [S]r MERGE Y] VERIFY  BORDER  PLOT  2 LOAD ` INPUT  MERGE [_ LET }OV<>_ INVERSE  OUT  DRAW  BORDER 0|x COPY y COPY [R]BIN ©CF▙ STOP STR$ UYINKEY$ FLASH ^ DATA 6/ RETURN  BORDER  RETURN STR$ aeimpB NEW  READ TAB AT [M]ATN Z COPY ▘ REM  PAUSE  CLS [I] PRINT ©VAL SQR k CLEAR #+0P INVERSE  RESTORE  SAVE  COPY NOT eSQR ;CKU PRINT  OR  STEP ©CHR$ eATTR ksm MERGE  PLOT  ASN !IUwZL STEP  DIM T PRINT ▝1= LPRINT  RESTORE DSIN  CLEAR  REM ▝% MERGE PISIN CODE F[E]STR$  OPEN # STOP SIN IN CODE  BORDER ▗/aY COPY ATTR EXP  SAVE  CIRCLE  READ &L STEP [K]C AND [L][M] CLEAR <[N]G?[P][O] CLEAR |ACS [T]S COPY *[U][ CIRCLE  INK SI IF  COPY  DRAW m* INPUT c[S]& LOAD Rnm CIRCLE X CLS  LET  MERGE ([ RETURN v CIRCLE [E] RESTORE COS  LIST  MERGE ▗NOT  CAT B READ COS [J][K] FORMAT iD OR  CLOSE #CHR$ NOT ▜ FLASH C▛▛ CONTINUE !s▗ CONTINUE [B]▖▝ POKE XTAN ▖#IVAL$ #][T] OR  IF i▟J_ THEN  DRAW  FLASH [S]LEN  LIST t FLASH 3 THEN / PLOT  &LEN [H] LOAD M_ CONTINUE 3 MERGE eACOS +iSIN [P]▖H/ CLEAR ▖ CIRCLE ▘[O]x*▟SGN ▜ GO TO  CIRCLE x[A]l▞H LET 1[O] RUN  OUT ▖▞LEN  READ =PEEK ▛ PAUSE  OPEN #o▖<=>=ASN  LIST &▛ CLEAR H<> LET  COPY  POKE ▖ CLOSE # CAT [A] COPY ACS  COPY 5 BRIGHT .CODE /VAL 0ACS <=38[T]7ATN 1f LIST SIN 2COS Z6 THEN  NEXT ABS  RUN [COS TAN 4ASN  DATA <=[P]pLN  STOP % READ ▜V VERIFY  BEEP ▟ NEW  FLASH k IF ?6.<xLN  LIST  BEEP aAT  BORDER 3=CHR$ NOT <=VAL$  SAVE  RETURN v OPEN #[S] LINE zBt▘ LET tK LET  VERIFY f# INVERSE t STOP FN hPEEK ABS  BEEP  STOP  IF Hm STEP  MOVE (TAB AT  PAUSE  FORMAT FASN  LIST  BRIGHT w CONTINUE f▟ ERASE  OVER ! RESTORE -ASN V STEP pw CLOSE #SGN  OR BVAL$  CLS RND[L] LET  OVER INT VAL$ @ASN  GO TO 7 GO SUB  REM TAN UwB[U] FOR F LET  PRINT hlqD IF  OPEN # PAUSE u; STOP @` LLIST  INVERSE Q PRINT {SQR  DRAW <S>= BEEP z LLIST a[E] INVERSE <SGN LEN  SAVE  CLEAR =U[E] MERGE ▞ GO SUB  CONTINUE  INPUT  VERIFY X7▖,H<>vy8AT INKEY$;[C]gIN tO IF g CAT c STOP GVAL$  PAUSE ! TO PI[R] GO TO  OUT a THEN ▚!P▟bSQR  CAT <=SCREEN$  OR  AND  READ C DRAW JVAL$ nDBIN USR [U]ASN LN |-[ COPY /n PAPER  BORDER F[I] RANDOMIZE ▜ RUN %?^ STOP  AND  DIM  RANDOMIZE U[F] GO SUB % NEW / OPEN # NEXT f▗<=AT V[G] BEEP [K] NEW  ERASE  COPY  LIST '.CHlW[H] CIRCLE g RETURN COS [O]B▜TAB  CIRCLE [I] INK Y BEEP FN U TO A AND © RETURN  GO SUB Y PAPER ZAT ,<SGN TAB -VAL$ SCREEN$ SCREEN$ /y RUN  RETURN COS ]^_`a RETURN  OVER  NEW  BORDER  CONTINUE  DIM PEEK  RUN  REM  DRAW  CLEAR  FOR  CLS * POKE + GO TO  RETURN  COPY  GO SUB uj NEXT ▗m_+ INPUT  LOAD  LIST  LET ATTR N LET ▚+© DRAW  PAUSE  NEXT  POKE  PRINT N^[Q]JR[I]ZU IF  GO SUB  CLEAR  LOAD  GO SUB NOT  STOP  LPRINT VAL$ SQR Q COPY  COPY h▖RNDATTR  OR <=$/ FLASH < BRIGHT 6,LEN { DATA  OVER C[E]POINT ~[D]$ PRINT : MOVE  POKE [F]#*INT PI PRINT )[F] OUT  PAPER POINT > FORMAT D/[tbZ~ ERASE ▗rTAB  CONTINUE ZTAB ▟& NEW -ACS [T] BEEP +▞e CLS  CLOSE # OPEN #h[T] POKE  CLEAR  OPEN #▖ COPY  RANDOMIZE  BORDER LEN  OVER  COPY k CLEAR l PAPER "*2 CLEAR  CAT  RESTORE  CLEAR =>= STOP  CONTINUE jSQR Q STOP mG SAVE  LET o SAVE [N][C] GO TO g[U] INPUT  CLS  LLIST PI▖ INPUT  VERIFY  INVERSE  STOP  CLEAR T<A▜FN  STOP ▙; CLEAR LP LET [L] LET <= (>= PAUSE y9 OPEN # LIST >=[R] CLOSE # STOP  CODE USR ACS  PAPER  BRIGHT  DEF FN = STEP k^w_USR  LET U][T]ABS  PAUSE %PJh<= LET  STOP hQ LET = CIRCLE h CLEAR  NEXT  IF ]<=L*;[O]S`[G]PEEK +[R]SQR  CIRCLE VAL$  CAT  PRINT SIN -|WS3Sn COPY  CLOSE #yEXP VAL  LLIST r OVER  BRIGHT  PAPER  READ 3iqNOT TAN <=▞ NEW  PAPER  COPY ' GO TO ,85 CIRCLE p LLIST  NEW ATTR  COPY  LOAD ▙v GO SUB TAB ACS [H]l COPY v</xLN lVAL  LET [H]LN UVWCACS l DATA [H] LINE  DRAW XYZ[/ RANDOMIZE  STOP [H][I]EXP  IF td LET ASN mn PRINT  RETURN bcdefA$ PRINT  CLEAR - CLEAR ghijPEEK  INK [D]L' CLEAR #$VAL Q▝ RANDOMIZE ) THEN STR$  LLIST &'LN  LIST zPOINT  SAVE  PRINT  REM [H] LLIST ~ CIRCLE  INK © COPY y▙ RANDOMIZE ▝ !BIN . RANDOMIZE  RANDOMIZE  DATA `SGN  REM 0 PAPER  RANDOMIZE BIN nr REM  RANDOMIZE  DATA `SGN  REM $USR  RANDOMIZE ▞ SAVE [D]j[D]]z[K]J* LET [E]PEEK [F][G] COPY © LET ~USR CHR$ &Oom/1©35pINT  CLS [P]SGN PEEK  LET  H CIRCLE  BEEP q7▝9s[O] AND  LET B LET =?A<> POKE  LET  LET 0 CIRCLE  OVER  PAPER  COPY  COPY  BRIGHT BIN  AND >= LINE  TO  BRIGHT  LET  COPY  DEF FN  FORMAT  ERASE  MERGE `.X CLEAR  CLEAR EXP  BEEP  CLEAR _247<= RESTORE bSGN [P]' IF p,.1[O]IN [H]/}+- LET 8:= COPY  FLASH [H]N|<= RANDOMIZE [J]ATTR  COPY  COPY [A][B][R]INT jz▛?M[L]USR EXP v LPRINT  COPY  COPY |▝ STEP  OR  NEXT  NEW fPI GO SUB  FLASH [L]@&?e LLIST . BRIGHT ACS /%©F▛ABS jn BRIGHT  LPRINT SCREEN$ AT ©VAL$ P* READ  STEP <=▛[G] THEN o▟[F]ATTR SCREEN$ *?2j LPRINT ACS LEN <Q VERIFY  COPY  LINE  PLOT  . INK  RETURN  THEN ▘5VSIN SIN s'SIN SCREEN$ ATTR 1n+6ACS A STOP ATN  FLASH  VERIFY vy OR L OR  DRAW 5)ATN VAL$ POINT  MERGE  INPUT i+ MOVE dRPOINT  RESTORE TAB  INVERSE [ FORMAT [J]w-XPOINT #pNOT Ix MOVE  RANDOMIZE  PAUSE v[B] INPUT uh IF [B]`[H]PI5ATN  LLIST Bb[H]PIX COPY ?xLN VAL ▚9:;<= INVERSE >? CAT ATN ATN _ COPY VAL  LLIST a` FORMAT | RUN LEN pATN SGN  STOP r6SGN  STOP PEEK <=  LET  "$wSIN  CLEAR ] [L]▙ ERASE dfh CLEAR k# CLEAR USR  READ rtv AND  CLEAR Yc=3 COPY OaNOT ▜ VERIFY  COPY vqNOT [H]8xATTR U LET j4 LET I; BEEP "[S] READ <=[O]J READ  RUN W INPUT . INK  CIRCLE [J] RUN n@VAL$  STEP T~Dn< STOP [L] GO SUB  POKE  LET  DIM } BRIGHT COS yEXP LN  BEEP [L] CLS 051 STOP  READ  RANDOMIZE  CONTINUE "[L] DRAW  BORDER LN [E]t▗ CLEAR INKEY$KLZ[G][I][K]o][Q]EXP ▚ PRINT VAL$  COPY *YSCREEN$ 2 STEP INKEY$l0 MOVE  COPY yJ NEXT sa THEN  OPEN #< ERASE  BRIGHT  DEF FN  NEW  REM  DRAW e POKE AT  REM 4wgp STEP Gc&`[[▛1SQR ~ DRAW [J]SGN  THEN [K][A] RESTORE [L] ERASE SIN >={ LIST  STOP C[I]C NEXT  DIM ▜#8[I]ATTR  OVER © LET Xcsr2K▛9 STEP  FORMAT  LPRINT  RANDOMIZE  RANDOMIZE k[P] RANDOMIZE  CAT ▝b DEF FN [B] RANDOMIZE [K] DRAW <=*1@[C]ATTR ▛[P] RANDOMIZE  LET M LINE Q BORDER [P] COPY ATN <= GO SUB ▟[H] SAVE +[P][Q]VAL [C][A] RANDOMIZE  STOP x[D]@PqATN FVAL$ pB| LIST SIN CHR$  ERASE LN  RANDOMIZE [R]SQR F PRINT f▚R2@ LET   REM vINKEY$G COPY .▖<=(Hh▚ASN FN >= CLEAR  DIM IiASN ▞POINT  CLEAR <> INPUT  POKE ? REM  LINE *JjPI PRINT  CLEAR W78[H] RANDOMIZE [R] CLEAR  LET  OPEN #. REM ©D DRAW  CLS e▙ RESTORE RNDN DATA & CLEAR FoSGN  FORMAT INKEY$ AND  BORDER <= CLEAR USR Sl OPEN #-LEN  CLEAR [H]ATTR  THEN  CONTINUE  MOVE  PAUSE ©ll▞OlSIN 6 LET ATN 2o BRIGHT T COPY / NEXT ?F▙[K][O][T] STEP ATTR M FLASH skm<>- TO s]FN x CLOSE #l NEXT CODE © BEEP  AND  COPY 7.< COPY  COPY [M]:l LLIST  OPEN #g[I][P]01>d TO  FORMAT  SAVE  PLOT  <>[J][R][D]S[O]s CLEAR  CLEAR f[G]SQR H* NEW  OPEN #SCREEN$  LINE  RUN ^AT  BEEP w▛[J]?+Kk[H] LIST  DIM pq LET s GO TO  STOP  LET TAB ACS  STEP  GO SUB O[J]AT s CIRCLE d▟ GO SUB  PLOT  0 STEP  LET  TO -PISTR$ ^ SAVE %CHR$ ?J?GNOT 2 NEXT PEEK "[D] FOR mE[R] MOVE ▖ REM  MERGE [M] DEF FN [M][H] PLOT  zPEEK q▞)[M]VAL$ POINT  VERIFY (vCODE NOT ▗q LINE B[M]▙.lVSIN ATN ACS P[E]8[[B]o[H]H▖ DRAW ▖.MBIN ▖ DRAW ▖ COPY y[M]<=sATN [R]  AND ![S]"[T]▗' CLEAR  LET #[U]$A| CLEAR RND%INKEY$&z|CBIN 'FN NOT x CLEAR (POINT )SCREEN$ ▟ REM BIN  OR [M] CIRCLE  PAPER [F][E]SQR  LET q▘G▖ PLOT   LOAD  NEXT ▝ CIRCLE PEEK [F][G][M] PAPER SQR G>=RND<INT C>=INKEY$TAN ASN STR$ x NEXT  PAPER  FLASH  PRINT ▚n▚▙ CIRCLE  PAUSE R BRIGHT  DEF FN NOT ▜[O]+LN  LET  CLEAR ? LPRINT  PAUSE c6z[I]h MOVE  CIRCLE Y IF m STEP  IF ci4h DIM ngaABS  RESTORE SGN  FLASH  OVER +F BEEP  OR SGN [M]/EXP A[J][P]T LLIST >=▛ OPEN # POKE < DATA PX[O]n OR [L]EXP  BORDER  FOR p LIST u COPY EXP z▗H INVERSE ; COPY  BORDER >=▞A REM [[E]ACS  LPRINT  MERGE ▖ DIM ATN t CLOSE #VAL$  PRINT  ©SCREEN$ 4 THEN !▖ BRIGHT a[S][T]AT ,VAL x COPY VAL $<>mABS J=C[U] OM/,P^G CLEAR `csarUS`A PRINT &ln;SGN  BORDER  NEW  CLEAR JLO[F] BEEP  DIM ▘▗ CONTINUE  CLEAR  DRAW [P] FLASH sp&"*▖▙[A][C] REM  CIRCLE ^[D]!u PAUSE [G]© GO TO  PAPER INT [R]#REi CLEAR RND[T]▞ BORDER STR$  VERIFY )TAB EXP E▛[R].CODE 9 CLEAR TAB ZLEN TAN  INPUT >==VAL$ UATTR TAN  PAUSE 4SCREEN$ VAL$ j CLEAR F STEP % LINE B( IF z CLOSE #POINT  RESTORE @FN ▝ CAT ▗: PLOT  ▝) OPEN #~ FOR }P▖ COPY ; COPY  COPY [S] NEXT [B]ATTR AQ▛CINKEY$▝N▟COS  CLEAR  COPY [K]<7{ PAUSE  RANDOMIZE POINT  PRINT W>=CHR$ $QRND BRIGHT |LEN [A]+▟ CHR$ VAL  RUN  SQR #0jFt BRIGHT *Fc[K]oR>= NEXT COS [F]H▖$ OUT  REM  CIRCLE VACS <=}" COPY  COPY # CLOSE #G▝[T]USR O>.IN  LET  CONTINUE [J][F]q[Q][N]Q NEW { CLEAR ▝[R]@P OR D MOVE 8J▟5( RETURN v INVERSE jR&▞S CLEAR  PAUSE P@` DRAW  FORMAT [Q][C]I$ POKE FN N IF ZfX Pp INK *▟oLlg>▝ PAUSE ~ READ <[U]$[C]J`H LPRINT  COPY  NEXT F▘h:t REM  RETURN  COPY  FORMAT ©@ CLEAR # POKE 'SCREEN$ O FORMAT /z▘ PRINT ▖zxH▞BG DATA JL OR ,[Q]USR q AND #D+▝▙(▗! LET =/IN t STEP PEEK FN  READ ▚SGN  FORMAT  THEN FN  INPUT  COPY ▞ DRAW  BRIGHT ▞"  IF ▜ CLOSE #LN B FOR  SAVE _ SAVE LEN (B[S] CLOSE # DATA @ REM >/R[E]4ATN  BRIGHT O VERIFY  COPY  CLS I[E] FOR 'AT  FORMAT  LOAD [J] GO TO  RETURN P CLOSE # RESTORE  INVERSE $B RESTORE  >@sX LIST H COPY $@+'#Y(#INKEY$@@ DEF FN  PRINT # MOVE  COPY  DRAW  COPY - CONTINUE U' IF  CLEAR ! COPY @<= FORMAT A CIRCLE  SAVE [Q]t(:▘ LINE ▟ DIM ▝#>=Q[E]([S][E][I] TO @INKEY$RUSR Q LPRINT TAN dSGN ([B]B@ IF B#`P~ FORMAT h  INVERSE  INVERSE  MOVE ;BIN  COPY  SAVE ▗▘POINT Vr▝RND▟ PLOT  ![I] OUT T▞IN  BRIGHT hPr[Q]Q COPY  COPY ▝BIN +[E]▞ INVERSE  CAT USR G[T] CONTINUE IS PAUSE  PAUSE [U]SGN " COPY 4▟[M]<>8<>X▟POINT 1ICPj▖ DRAW BIN :@"DH▖ CLOSE #1 RETURN R-]FN [U]©uQ LINE =P PLOT   POKE >▗x COPY w ERASE I' LLIST ATTR  DATA  CLOSE # COPY  COPY  IF  RANDOMIZE |ABS [O] INK  STEP  AND @PISE- COPY [R]FN USR  MERGE [Q]y>=;[S]INKEY$* POKE v0 THEN  CONTINUE [F]NOT  STEP  COPY ([D][D] GO SUB (▘z OPEN # COPY  FOR 1INT  VERIFY ]▘$$+ PLOT  ? CIRCLE [J] AND  DEF FN USR  RETURN  NEXT q$DrSQR ▝9 LPRINT ZVAL 1X RETURN ',[Q]P&:9ATN [M] COPY ' INVERSE  DIM  PRINT  PAUSE SIN }X~$ BORDER [B] INVERSE NV RETURN PxCODE  PAUSE T POKE "ATTR  PLOT  -[N] RETURN [P]USR  SAVE W CLOSE # BRIGHT @ LPRINT [K]v▞VAL [A]"u PLOT  8▝ CLS @  TO  LET At LPRINT USR ` TAN  COPY  COPY  BRIGHT B+USR ▝ DIM *|[A]PEEK ([J] STOP  COPY  BRIGHT ▞LB▙[R]*▗UUSR zpPLN [R] INVERSE [E]▜?@| LPRINT p,sTDSCREEN$  COPY B LPRINT Z% BRIGHT &ZG[E]sVa IF  READ g>=[Q]▖0P hACS )?LP[O] LET [K] LLIST RND COPY  COPY ^/ RETURN  COPY !©[C]CODE [Q]Z LIST  LIST kzLN E LPRINT SGN K▟y[K][O]FN AT [M] BRIGHT O CONTINUE |PI@C][E][N] COPY  RETURN <> ERASE k LPRINT  LIST [Q]Z GO SUB ACS ©.[G]x BRIGHT CODE ▖ LIST ▘VAL  NEXT  COPY HTPO FOR INKEY$ @x CAT P"[R] REM +PEEK Ov[E] pUSR  BEEP VAL ] LINE K▗ PLOT   PAUSE  OVER  LINE  COPY ▞[E] PAPER '▜8 DRAW $P,($C[Q] LEN  COPY  COPY   CONTINUE ▖▞$ GO SUB INT  RANDOMIZE 5 DATA _▗ DRAW  COPY IN  DRAW USR CODE /LN -p[P] COPY  COPY [T]([R]1B▖[C]"I) FORMAT [P] SAVE SQR USR  GO SUB %[A]FN SCREEN$ COS  PLOT   IF {y&e[R]^ LPRINT c PLOT  PEEK I$EVAL oe`!P^B FORMAT  TO  LIST  FLASH ▟ CLOSE #[H]. COPY  OUT 7▝S[S]VAL$ AT LPRINT  COPY  COPY uJb. DATA |>= LET  OR [C]%NVAL$  RANDOMIZE <Ex[B] LPRINT ▖s&| REM :▚ LPRINT :x@SCREEN$ sVpUSR %v INVERSE ,;8o_Q(FN  READ [I]5`=$I[C][B]v DRAW [H][G]D[F] PRINT  COPY [K][F]C LET  REM CODE [F][P] COPY  COPY O OVER  GO TO < LPRINT Y STEP LEN  FORMAT r▝eCHR$  MOVE o COPY ATTR [O]▛LN q LPRINT © CONTINUE CODE  DRAW STR$ ) FORMAT W[I]@LN B[U]O LET COS  LIST  PLOT  SGN  LPRINT (o+ LIST W[Q]9 LOAD LN  LIST #"%?[B]d[E]AT  COPY  OR <>it[G]2 GO SUB & CLOSE #AT  LIST  BEEP [EXP A READ #bACS  RUN [R]a[C]IN  FOR  OR f[T]}TpVAL$ kATN  INPUT XVAL$ [F]▛ASN  CLOSE #▗[P]>=<>=[E][I]![B] SAVE T0#FN C"[S]?PI% TO ▛▙ INVERSE  PAPER  OPEN #~-q DRAW  RETURN  DRAW © LLIST ([E][D];[U] BRIGHT i!  LIST !010qQ RETURN ?[I]EXP PI3INKEY$q ERASE ▞$[C]Bpb[D]▘BIN [M]©▖[A]DP{ CIRCLE  LET # GO TO +FCODE ]C THEN 8[N]$[B]▗LEN >=USR  AND BIN &STR$ 7[I]R? DRAW VAL 2Z1)bACS j INPUT  FLASH W DATA ; NEW 4LN  MERGE  COPY /[Q])STR$ q[R]kR CAT  COPY  COPY  OPEN # LOAD  RUN  INVERSE ATTR <T} PAUSE ▝ LIST  CONTINUE D NEW h LPRINT ▟ COPY  COPY STR$ 7Ek&▝P[S]CODE  FORMAT /SCREEN$ [Q]T BORDER  COPY )M[O]▘r SAVE C DIM ([H][F] COPY  COPY ▙:Q FORMAT @GRND^9 RANDOMIZE  COPY ASN  BEEP  AND ▝▟▙TAN > POKE  CLS  OPEN # RANDOMIZE  COPY  COPY TIUSR NOT ▚[K]8▙a CLOSE # OUT *T< LIST  CONTINUE ▘ LPRINT RND<= MOVE ▝ABS `BCODE v/R<A COPY  COPY .!/[A]POINT CHR$ R RESTORE ▝bASN  COPY  LPRINT LEN qX SAVE ,SGN ^ RETURN / BRIGHT  COPY  COPY USR XBIN bT/_ATTR  RETURN  COPY POINT  FORMAT P*[T][F]>= STOP ! LET  SAVE  COPY  BEEP  BRIGHT rYSIN AT P:[R]+ TO  OUT . LOAD IN  NEXT W SAVE FN <D| RETURN  COPY IN K▝BIN ▖▞pSCREEN$ @[VAL$ TAB d[N]<? FLASH i GO TO STR$  CLEAR  COPY #USR ▘uHFN U"mmhuATN ?[O]▞ BRIGHT &▙[S]M MERGE  IF *P ▝VDASN EXP k! DATA  DEF FN G RETURN  BRIGHT  (P FOR SQR 0<@TRND7$X#r ERASE P RESTORE x-▙ RETURN o[A]EqrLN pPOINT @2Js FOR INT  DATA ▖TAN  THEN ▛©SQR  OPEN # COPY  LOAD  LINE  COPY  GrFN [F] CLOSE #%q FOR  LINE  LPRINT VAL$ K[K]B9; COPY y8VAL$  RANDOMIZE [K]@  LPRINT * BEEP BIN  LOAD LN  DRAW YU~ BRIGHT  COPY xD PRINT ▞ INVERSE  BEEP ▘[H]▙w[F]@Z BEEP  VERIFY INKEY$ PLOT  [M]8[E]▝H[Q]UR+ OVER ?[N]BIN  LPRINT [S]mn COPY [u▛Y IF  REM  BORDER ▘APEEK  CLEAR [Q]JT:[N]=qv BRIGHT ▖[Q] VERIFY `▝eVAL ©cLEN 4FN xp z8P[U]o BRIGHT 5sINKEY$D/( GO SUB  DRAW q CLEAR 0POINT F LLIST E OR AT  GO TO >=rEq LPRINT g SAVE s DEF FN %LEN FN [F] PAUSE USR G DRAW 7SQR %)y+<=(<=USR ZCODE  FORMAT  FOR 8 COPY  COPY  BRIGHT GQ[U]▝ IF  |B<[F]j CAT } COPY  COPY  RUN t CLS 3 CLOSE # CONTINUE Z LIST /(5M COPY kN BRIGHT H▗G  FORMAT )X COPY [Q] OR T▛[F]U IF  GO SUB  COPY [U]*a CONTINUE TAB pFLN # COPY © BRIGHT t©z>TAN ▙▟F▝PIK COPY  COPY NOT [F]▞ LPRINT [Q]USR  POKE ▗hHt:<CODE J BRIGHT !@NOT ▟▝ MOVE ▞ COPY STR$ K[S]<># LPRINT  COPY  COPY U+ LLIST  STOP 8 ERASE [R]▖NOT ▝B$H[C]~ RETURN  COPY >x CLS  LPRINT LEN  OR c▘ AND ▞O:[M]  PAUSE  RETURN © BEEP BIN ▖K▗[H]O[B] COPY  INVERSE SIN PEEK |A8▘ LPRINT  COPY  PAUSE ehUSR SCREEN$ t REM  THEN  CLEAR ©U>=! GO SUB E[I]LEN {PEEK  STOP %USR _>< COPY  COPY C SAVE ATTR  NEXT W LOAD PEEK  OUT . TO [R]*Z:PEEK  CLEAR rY▞ COPY vLN N CLOSE #AT  PAPER FLeJ RETURN -'SIN %6d"f-/>POINT $ SAVE  COPY [C]^X LIST  INVERSE  IF FN ASN ▖0%CHR$ ▘COS 0 IF  COPY ATTR N▛▙/2[F]9@1 STOP ▝B, DRAW A▘*1@]IN |oo!CQRNDq[T]▚J▗2▙xH} LET n IF © RESTORE e DEF FN ▜3▞ COPY :nTINKEY$t@ GO TO !/ LINE  COPY >=▘▖A[I][A]▝[B] PAPER  LIST ' COPY  OUT [B]PIWPCHR$ ATTR USR [S] NEW  COPY l*8($[A][T]BsBIN  FLASH %▘▜O INVERSE ▞>=v CLOSE #TAB  COPY BIN l[I]<>I[C] MOVE 5▝R[B]H DRAW 1#E !FINT ▚snSIN  IF [C]  CAT ]LEN [I] MERGE X$9 LET 0FN 4SGN ? AND [D]X COPY ▖SCREEN$ POINT L TO CODE  DIM  DRAW [P]SCREEN$ AT SGN /CODE  GO TO [F]I/ SAVE [H] SAVE ATTR SQR  OPEN #[E]▘▞@SCREEN$ J"^ GO SUB v[K]gFN FN d▝y▙> LINE  EXP < REM @ CLS  LLIST  GO SUB  RETURN  REM  ▗8ZLEN m[N]XCHR$ "STR$  FLASH [E]PID[C] SAVE P CLOSE # COPY  STOP I"▗ VERIFY $Q RETURN  BEEP  PAUSE FN SCREEN$ UNI[H] DIM [C]ATTR AT |p SAVE |>l POKE IN [P] TO IN  DIM CODE [N] DRAW  FOR FpPBBIN  COPY  COPY Q  PAPER T▗>=)U@▖&" VERIFY  COPY [E])jT LLIST  COPY CHR$ ATTR ULN  READ NOT xfPOINT ▟Rs SAVE PA RANDOMIZE  [K]L[E]0 SAVE 5 COPY  OR  OPEN #AHJINKEY$<> OR  COPY UkfLSCREEN$  INVERSE [J]2ATTR [< DATA  COPY  RETURN UCOS S LPRINT [B]H[F]© OVER r COPY Q MOVE SCREEN$ j[O]SQR _ DRAW ATTR  LIST ' COPY  NEW SCREEN$ [A] COPY IN 4D[C]% COPY  DRAW  LPRINT 8up PRINT ▝ RANDOMIZE  CLOSE #;▝_T. DRAW U PRINT  COPY [C] FOR ATTR  MERGE  READ  BORDER Uv<SCREEN$  CAT  OUT ]MV[P] COPY USR VSFq READ INKEY$ATTR [P]?]>}tLN INT | IF p© LLIST INT  NEXT UP[C]D[G]SCREEN$ CODE  COPY  COPY  COPY  LIST *R[B]T DEF FN f-Z[M] LINE :STR$ ASN 9[E] GO SUB [I]▗^SCREEN$ STR$  LET VAL Z* STEP FN H DRAW 8(* STOP ?k SAVE SCREEN$ POINT  CLS  IF ATTR  PRINT DRSCREEN$ FN  LPRINT  RESTORE [P] NEW  COPY <TFN  POKE U INVERSE  POINT  CLOSE # LET  DRAW @[F]DH MERGE  DRAW ▘[E][U]"[C] OUT  FLASH >=[A]T FOR  STOP CODE  STEP  FOR STR$ [P] GO TO TAB POINT SGN  PLOT  [H] DIM xSGN SIN [F]LCODE [G][H] GO TO  CONTINUE  PRINT  SAVE [P] LINE SCREEN$  LLIST  COPY  LOAD  DRAW ) FLASH [E]RND![I]▝H DRAW [F]%J[A]▞@[C] SAVE ]I©[A] CLOSE #FN POINT U MOVE USR  STOP kACS HD FLASH VAL$ BVAL$  PLOT  P@LN $INT ©|CODE  DRAW ▛W NEXT  PRINT S PLOT   BORDER /TINKEY$VP©CODE WAzkXm PRINT R▗+U[A][S]A%▟ DRAW :& POKE # READ USR TAN  OVER  COPY  COPY *[D]UY/ OPEN #_ INK FN % SAVE  POKE  SAVE />=[J]US CONTINUE _ OPEN # DRAW ATN  MERGE  [C] SAVE [R]FN J(STR$  BRIGHT ABS USR F OVER " IF ?ft [A] RUN EXP @ DRAW [B]  OPEN #▛ DRAW O SAVE NOT X DRAW D@ABS  RANDOMIZE  LIST a DRAW `[H]? DRAW  POKE Au▟ SAVE @[B]VAL$ YutINKEY$ NEXT  COPY *SCREEN$  COPY  COPY ASN U OUT U INPUT Mj STOP I[N][E]NBIN  DRAW aWSCREEN$ ATTR  INPUT  COPY  LINE i RETURN  IF D FORMAT  CONTINUE  LIST [H][H]+! READ  OR ▘ GO SUB  INPUT BIN [Q]USR  LPRINT H$CHR$ [L][Q]r^▝~VAL$ BIN   SAVE  MERGE # INVERSE SCREEN$ h FLASH TAN ; PRINT  LLIST  LINE  AND SGN 6[U]{ RETURN  MERGE VAL ▚[S]%*EATTR  LINE PCHR$ PEEK UATTR w2 LET  OPEN #"LN -< COPY D VERIFY TAB "D[S]3Wd`,▛ STOP ▞[U]I[D]01[T] SAVE AT  LET ?4A[Q]ATTR U[U] FOR =©9 COPY 4d COPY eNOT AT 5 DRAW AT  BEEP  BRIGHT SCREEN$ ASN U, READ @ PAUSE .ATN  COPY  FOR  FOR _ BEEP  DRAW  CONTINUE *[M] INVERSE >= FORMAT />=_ POKE CODE  DRAW SCREEN$ o DRAW  CIRCLE hYUj NEW ATTR  RETURN k COPY H>= COPY  INK 1▟ SAVE  POKE  DRAW  CLS I[B][D]g RANDOMIZE CODE  PRINT k COPY _ DRAW iINKEY$[K] VERIFY [G]FN a2▜`▙ COPY USR VAL COS [A]H[U]<>[D]ACS  FOR &CHR$ UVAL  REM U▘<>G CAT  CLS 2 FLASH CHR$ dUSR "A6qp`/TAB  GO SUB ( CLS ?[ FORMAT $9@TAB kt THEN 5 INPUT ~ SAVE  OPEN #UrSCREEN$ |FN  SAVE PI6U}ATN  RETURN  IF [F]]* LIST wRNDT PLOT  [P] LINE SCREEN$ IN  COPY  LPRINT U_ DRAW  PRINT  FORMAT . TO  COPY  PRINT UCOS  REM SCREEN$ FN  LPRINT [B]rU RETURN ▟ELEN  COPY  READ  MOVE [T]Q DRAW [T]@ NEW  STOP F COPY xL SAVE ©USR CODE  MOVE  READ  OR c NEW  DRAW  AND  COPY  RETURN  NEXT bUSR SCREEN$ UT COPY z;▟ VERIFY  COPY  RETURN ▖BIN  COPY [F]ABS <= THEN a RANDOMIZE  BRIGHT DA RETURN [U] INPUT >= BRIGHT POINT  LIST  MERGE U[Q] ERASE RND$ISIN  REM [R] DATA )z STEP P▗@ BRIGHT  BEEP 98o@ MOVE [[H] COPY  INPUT . MOVE DY GO SUB 1}uINKEY$ BRIGHT  AND  PLOT   RETURN IN VAL$  GO TO s NEW SQR BATN  COPY  BORDER o(XVVAL [R],`USR ( LPRINT X[T]1COS [E]s},T LPRINT 5(E▖. LPRINT IN (▝/ SAVE  LPRINT / RETURN "'<=DCHR$ L[A]USR % LPRINT  BRIGHT +0hWCODE v©©▘ RANDOMIZE ▜USR F] CLOSE #▚ CLEAR  PAPER ASN  POKE P$[E] CLOSE #[F] COPY STR$ ▘▚F[R]PI ERASE  CLS BIN  READ HQa@9[Q]r<L BRIGHT N[H]SCREEN$ !1"$/ DRAW DC READ  AND ▚H RANDOMIZE  COPY @ REM  POKE  |#^ LET [R]F~I$  NEXT SQR INKEY$[G] GO SUB  NEXT  LLIST !C TO ` FORMAT  LPRINT [C]USR  LIST  OVER  RETURN  SAVE p[Q]P[B]>=[O] PAPER <SGN PVAL ACS  DRAW [C]JTAB  SAVE  NEXT  COPY ^VAL$ $ AND ) RUN oK▙▗ BRIGHT  DEF FN a CIRCLE [Q]I DRAW < BRIGHT G DEF FN ▗ OR cRND RETURN orCHR$ LEN @P`0[Q][A]  PRINT  DIM hPEEK  INPUT  BRIGHT  NEW uA RETURN [Q]1 LIST  CAT [Q] COPY Pz3'u REM E@A PLOT   LPRINT  ERASE [R][B] LET ▖tjPEEK [E]} REM  CLOSE #E LINE ATTR  OR © PAUSE  DIM l▞h FORMAT [Q]ASN $@CHR$ LN  DRAW C STOP s AND [A]RND FOR  COPY TAB CJ MOVE # GO SUB TAN   BRIGHT [T]= CLS =vL▛IN  INK  OR  BORDER Z IF @▝vD SAVE u[PgK[K] IF  POKE ID LIST z BEEP ▟ SAVE $KSCREEN$  LPRINT Q[B]t COPY ]/qp LIST [U][A]^wUSR A[R]( READ  CLS JRASN  INPUT  LIST  BRIGHT 4 DRAW  COPY [C]WTAB  STOP  POKE B OVER >=E BRIGHT  MERGE  LIST [G] SAVE `r READ  SAVE ) FORMAT  SAVE [Q]+ RESTORE  LIST tqO[P]<VRND LINE [R]"[B] DRAW [Q]USR  COPY D[U]STR$ RNDY▗R3 RETURN [A]UD LIST ▖ RUN qATTR z DRAW VSCREEN$ 2WY DRAW  INVERSE POINT W DIM K STOP [K]~▝ BRIGHT  INK  LIST POINT VAL iGEkSTR$ [H]4|@▜EXP SCREEN$  RANDOMIZE  PAPER [A]`[K]FN o▝*^▜[Q]# CONTINUE  LINE =SGN  OVER  COPY I COPY [ CONTINUE IN [Q]h5POINT ^FN DE, DRAW  SAVE ©TAB  MERGE T[S]USR 8ESCREEN$ <INKEY$zEsFP PRINT M[U]INKEY$ IF PEEK j OR +[Q]SGN 0{SGN [B]qRND_ COPY  COPY  OVER ▛POINT T INVERSE  RANDOMIZE ) DRAW  DATA [M]P%COS $t NEXT ▟ RUN [G] NEXT ACS ▟ GO TO  DIM  INVERSE Jv▛X GO TO 6[O] LIST  STOP [J] BRIGHT [U] OVER ~ FORMAT @C{x LPRINT  COPY L▖ 7 LET USR FN [F]p RUN  COPY V[C] IF %@B▛K RETURN  COPY A DATA <> THEN [T]ATTR CB▘▟AZSCREEN$ PEEK $ COPY D FLASH [Q]9 VERIFY s[C] IF  DRAW -> DRAW  GO SUB ;@,[U]▝?p BRIGHT FN B"CHR$ ▞BIN  COPY  COPY  SGN jT[H]h+[E][F]a0 CLEAR A[J]TAN  COPY [ LPRINT O>=[C]COS XX©)!R▘>= RETURN  GO SUB SIN u[S]B DATA  SAVE 'FN  COPY @*[A] BRIGHT [O]h@▖ RETURN 4[D]' COPY  INVERSE #USR (0 CLEAR  COPY *FATN mdAJ REM T▝ IF m FOR <>] BRIGHT [R]B LPRINT  GO TO  BEEP nEXP  BEEP <=[L]STR$ k~[J]ATN  CAT  CONTINUE  CAT [B]C@▟)[Q]▘USR  A> OVER &F COPY  RETURN $[C]BAT  GO SUB  COPY SGN USR VATTR  LIST -p0 CIRCLE  STOP  INK  FORMAT h DATA VAL  RESTORE ]l?FATN h LIST `COS 3N OUT  COPY  LPRINT  IF ) OVER -/[U]SCREEN$ [J]SQR [B]= SAVE  IF JG RETURN ;©" SAVE ▜[Q][S] DIM CHR$ {N DRAW  STOP S CONTINUE 7 LIST  OPEN # RANDOMIZE  CLEAR A~` COPY Sw LET  DIM 7<> SAVE  RUN I ERASE  THEN  POKE  FORMAT  CIRCLE  LET  RUN  PAUSE dABS ?? DEF FN TAN H BRIGHT ▝ BORDER  POKE ▝IN [R]-! RETURN $ OR V0[Q]9}▞ RANDOMIZE = CLEAR [A]▝ BRIGHT sD ▖ BORDER  COPY }FN 97LN ▞<RNDPEEK  CLOSE #m[C]IN ▝ TO >=BIN [F]([S]r BRIGHT lIN VAL$ o CLS  POKE ▛ACS  IF  BRIGHT  CLOSE #=▞pEXP k STOP ~[Q]m[A] FOR ,|ASN D VERIFY aINT P COPY  IF  COPY >=s[U]SQR v|VAL &sD BRIGHT  RUN © RETURN  IF [S] SAVE FN ACS  BRIGHT PEEK  OVER TAN A NEXT . BRIGHT  MOVE  AND  PAUSE h DRAW [S]INKEY$ SAVE  DRAW TB READ  RETURN SCREEN$ ~CHR$ ▜ DRAW | SAVE n▞pUSR  AND  LPRINT BV[E] DRAW  AND D DRAW  POKE COS ©~ LIST ▜?>* FLASH  NEXT m[U]T< AND USR  RETURN pPEEK |SCREEN$  DRAW 2L~SCREEN$ > INVERSE i|>d~U>?* LLIST i INVERSE ` BRIGHT n INK e[I]_$[H]{PIR[K] RANDOMIZE ▘ OUT l~PEEK  THEN qu[S]COS  BORDER  NEW [Q]nSQR 3[S] FLASH  COPY ATN  BRIGHT  SAVE ATTR SQR !Q FORMAT POINT USR PI MOVE  DRAW  MOVE #"H NEW [O][I] DRAW  LPRINT NOT ABUSR  INK  RESTORE  TO  LPRINT  POKE  REM  LIST COS eATTR ^ INVERSE [M] CLEAR  BORDER SIN  LPRINT  BEEP [U][J] RETURN lU PRINT U INPUT ATTR  CLEAR  & RETURN  CLS LEN  CLS _ IF ^ DRAW BIN _F[O] GO SUB  AND  RETURN PEEK >SGN  SAVE ©LN / CLS ) DRAW ▗© TAB  STOP yU RETURN PEEK  CLS S LPRINT  LIST i SAVE  DRAW  CLEAR  RANDOMIZE  COPY PI& OUT R5 FOR 1 COPY g DRAW ATTR  COPY  CLS USR EXP ZRPOINT  RESTORE V SAVE  VERIFY z SAVE  CLOSE #vx DRAW  AND ©COS i COPY  IF ▖▟ LET ATTR  CLS 8 LPRINT ▟yUSR z COPY PEEK  NEXT D TO  LIST _ RESTORE  IF  REM  COPY  CAT  BRIGHT * COPY -p GO TO PI PAUSE  DRAW ▘ATN  COPY USR ▞ RESTORE W CLS  GO SUB O PLOT  S READ PI COPY  COPY STR$  NEXT  BORDER  COPY  PAUSE PEEK INKEY$[S][Q]PDTU▞ LLIST  PAUSE [U] LPRINT [Q]` COPY ▛[C]@$ H[L]▚ LPRINT AI$UjUSR  CLEAR HlASN [L]O READ Ws▙_▝ OUT F# POKE  CAT [H]>=STR$ © DRAW ATTR [K]SCREEN$  STOP  CAT Q COPY W RETURN COS  DRAW  VERIFY ©` BEEP SIN /: DEF FN s' RETURN @[P][N] CAT :[K][O][P]jtEXP &L[I]O READ : INK  NEW PI BORDER  REM  DEF FN  COPY USR IN  CLS [I]C RETURN  STEP USR  VERIFY ©[L] COPY POINT [D] OVER " LET  FOR 9 STEP p? BRIGHT x`~OjyPOINT  OPEN #INT  NEXT  OVER L[J]2©VAL$ s COPY tSCREEN$ yT DRAW $VAL$  BRIGHT  LPRINT Vm▜ RESTORE % DEF FN 1? INVERSE  FLASH  CAT i▚Z CLEAR  VERIFY  TO # DRAW  REM  BRIGHT TAN FN SQR BIN  CLS !SQR  GO SUB @R[T]a>=USR  IF  INPUT z CIRCLE FN SIN  STOP [P]TAN SIN / DRAW  RETURN  CLEAR  LPRINT  CAT CHR$ [ CAT `▖>=INKEY$ INPUT  CLEAR ▞BIN  CLOSE #xSCREEN$ TAT IN [Q]TAN #MNOT LN  COPY S>TAN fLN  VERIFY ©D CLEAR  LIST za PRINT  FLASH LN LEN  RANDOMIZE  PRINT ▝ COPY 3INKEY$PI[K] OUT TAN <SCREEN$ n POKE  OPEN # MOVE  IF - INPUT USR VAL$ INT lS# ERASE LATTR  FOR / DEF FN  MERGE [O]nrG<>ASN  ERASE  GO TO j[U] COPY [L] GO TO  FOR  IF f THEN  MERGE  IF  PLOT   INPUT  DATA  FLASH  GO TO ▖USR  RETURN  LPRINT  OVER [R]! DEF FN  COPY FN  IF  LPRINT j7 RETURN  POKE [S][O][Q]$▘FN  FLASH  LINE [J]$[P] DRAW  RETURN [C]4 PLOT   PAUSE  REM LN ▞ BEEP LN [R]`8/ LPRINT ▞ DIM h[A]USR [A] PAPER BIN Q RETURN  INK h$USR [D]Vw[I]RNDCU" GO SUB IN  FORMAT  BRIGHT  SAVE  LIST  LPRINT  PRINT [N][Q] VERIFY >=+ COPY ALj BRIGHT USR  COPY T]INT P^pPEEK 5VAL  INPUT  READ [K]Q SAVE TAN :[E]IPEEK j|~ RETURN  IF [P]$ PLOT   PAUSE  INPUT  REM  NEW * RETURN d>=USR POINT @[ LPRINT LN SSTR$ USR  IF  MOVE  A AND [U]@ IF  PLOT  L TO INKEY$▘_oRND#a IF  COPY &U* COPY LN SCREEN$ [E] RANDOMIZE  FLASH j<>|>=~[C]$ RETURN  IF  PLOT   PAUSE  INPUT  REM gK NEW  STOP v( RETURN TSCREEN$ - COPY /(U[C]_V FLASH >[D]~ RETURN  IF $I PLOT   PAUSE  INPUT  REM  NEW  RUN TAN  STOP  BRIGHT  INVERSE Nl@SQR iPI LLIST ~x GO SUB iLN © FOR  COPY  GO TO  NEW yT[A] PAUSE  RUN  COPY  SAVE IN zVAL  LPRINT PUSR )TAB  BRIGHT  DRAW  COPY BIN = LIST T CLOSE #b MERGE  COPY T:ASN H▖p FLASH b▘QG(B▙ RETURN © BRIGHT CR[D][B]*4LN [ OUT ip VERIFY  OVER NOT T MOVE  BRIGHT B 7fLN [L]▜ BRIGHT [E][P] BRIGHT 0I RETURN STR$ [R]F▗R▘ 9HAT  COPY 'TjV$X▛ OPEN # FLASH FN J▘ OR jPEEK  LIST UO COPY ▗>=P"<>[B] LINE x( POKE  DRAW  SAVE ">= FLASH [K]U LINE  RANDOMIZE SQR NOT  BRIGHT B BEEP {▛W CLS  RANDOMIZE  BRIGHT  STOP BIN SCREEN$ ▛ COPY  CLEAR ▘POINT DU.D COPY  GO TO  CLOSE # CLEAR  LIST  NEXT  GO TO  BRIGHT  THEN  DRAW _ THEN  OPEN #LN VAL$ 4 COPY  NEXT  LINE  LET  OVER  COPY _SGN NOT ▚w6nV SAVE  RETURN SGN ? DRAW  SAVE +[K] INVERSE [G] OUT 8[T] FLASH  CAT  PLOT  k NEXT My▗m DEF FN  REM @▝ COPY © RANDOMIZE [Q]▘! AND 6 ERASE  LPRINT  COPY uR%n[Q] OR D.[R]GH BEEP q[B]©8d[A]T[U]%R SAVE  COPY ▟RNDjUfVSCREEN$  CAT J[[D][F] DRAW *IN @ COPY @([K][I] COPY P[Q]▖5U: FLASH [H]][J]k DEF FN  REM  INVERSE  BRIGHT j COPY  OVER  COPY [B] IF 5pjx STOP P#`*$0 LIST A>?b[S].8OD BRIGHT #"[B] SAVE :& CONTINUE t*L▞IN c[S] FORMAT ;[Q][B] RANDOMIZE CHR$ [R]3'@[D][U]W COPY 8 DRAW  SAVE D[B]#/4.'P `LN $>=dUSR NkpPOINT q LPRINT ▘ STOP [B]c LLIST  READ As LPRINT © CONTINUE A FORMAT  REM ) MOVE 1@! POKE >, DIM  MOVE @POINT T9 CONTINUE n$FN  INVERSE  LLIST A[U]t FORMAT  LPRINT <> DRAW [R]>=Q CAT OBIN CHR$  LPRINT  AND  PAUSE F COPY BIN  READ " STOP 2H>=[C]BIN  COPY  AFN TWSCREEN$ IN Uz? RETURN  RESTORE USR ▝]Ao COPY ,▛GQVAL$ ▖<=@ DEF FN  OVER ©[U] LINE SCREEN$ PI LET  LOAD  CLS  BORDER  COPY ?▚ DRAW  DRAW  RESTORE  RANDOMIZE  LPRINT P"CHR$ PI IF  FOR  POKE ©N COPY  DRAW  LPRINT [Q] COPY SCREEN$ *▞KATTR  COPY IN ~[H] COPY  CLEAR . RETURN   LET DTAN M CLS  RANDOMIZE ©VAL$  PRINT  DRAW  SAVE (:▘ COPY SGN #PUSR  PLOT  SCREEN$ cVAL ▞ COPY f[M] LINE >INKEY$▖h GO SUB  LIST ©3 RANDOMIZE c2n COPY IN  INPUT 10[B] PLOT   RETURN  DEF FN VAL$  INVERSE HRUM v3. NEXT  GO SUB s▛USR !USR ▞[w MERGE  GO SUB VAL USR  INK ![ LLIST  COPY  COPY  AND  <> GO SUB LN 1: OUT STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> LET  COPY  GO SUB sFSTR$ CODE  OPEN # RETURN 2 OVER >= STEP ^<>_|uUSR ▚| COPY 6 GO SUB VAL !LEN CHR$ [A]~ PLOT   COPY <=w# SAVE !| ERASE "1 OR  LIST STR$ >2K▜[J]7 CLEAR E PRINT 3▛ACS ZATN  CLEAR  VERIFY  CLEAR  RANDOMIZE  BEEP >0!:STR$ ▜ RANDOMIZE  MERGE  DRAW CODE 29 READ  LIST [J]U THEN  RUN D BEEP ;/!>=COS "B INPUT [I]25 CLS  RUN  STEP [B]>=vNOT <=!▗ NEXT [I]NOT EXP BIN . AND } COPY  INVERSE B DATA F OR / FOR D COPY  LET G SAVE  LIST  SAVE E RETURN 69 DRAW  SAVE 9 CAT  DRAW T▝ ERASE VAL$  ERASE 8 NEW  MERGE 4 RUN 1 OR ?68e+STR$  DRAW 2[M]_ NEXT TAN B'LEN CD@A IF  COPY  COPY &E%F()*+,-./01GIJH COPY  COPY ? COPY  !"#$EXP ▟ RANDOMIZE  DRAW  RETURN  POKE n DRAW  CONTINUE P<>USR l4[J]▖ COPY RND@  COPY  SAVE  RANDOMIZE ~[U] DRAW  SAVE ,( RESTORE  READ  SAVE 4<FNOT  IF  ERASE  OVER [M] BEEP  INK 8 READ [E] BRIGHT  SAVE 4t THEN 5 FORMAT (,.<= MOVE [I] VERIFY -USR F[T] LPRINT  LIST ▟ SAVE  DRAW  RETURN 5 COPY  DRAW  SAVE  OVER $ POKE  LIST  GO TO  CONTINUE 6AT x RETURN  LET ?▙19USR = LPRINT > LIST ?xF[T]SGN  OVER [C][R] LOAD  DRAW  SAVE x LIST  GO TO [K CONTINUE  DATA  OVER ? DRAW  RETURN USR 4~| DRAW ={j RUN  DRAW  SAVE  POKE ,I LIST  GO TO  CONTINUE  DATA  PRINT R RETURN (@ MOVE hABF[T]CD▟EFG▟H@ABh4CD[T] MOVE EF[T]qGh@A▟FBC4DEF4nG▖@A MOVE hBCF[T]DE AND ▟FGFN @▟ABCh4DELN  MOVE FG>=@[T] MOVE AB▟FCD7EFG CONTINUE 4@AB MOVE hCDF[T]EFF READ GHI▟JKLh4MNh BRIGHT O(HI[T] MOVE JK▟FLM1NOH COPY IF[T]JK▟LMN(6Oh[T] MOVE IJ▟FKL7MNO▖4HIJ MOVE hKLF[T]MNF READ OFN HI▟JKLh4MNh BRIGHT O>=HI[T] MOVE JK▟FLM▟NO CONTINUE H4IJK MOVE hLMq[T]NOPF[T]QR▟STUk4VW<=8~TAN j COPY $ STOP [SEXP  OR  LOAD  RETURN  POKE # RESTORE ! CONTINUE  FOR  LLIST STR$ [P]NOT  NEW [B]! FLASH  STEP  REM BIN 8[N][L] RUN ;S MERGE OIN G~[Q]LEN w$SGN © LPRINT  LET <>ACS P CLS GNOT  PRINT  VERIFY ] RETURN  LIST <> IF IN 8:8STR$ PI LINE 1 OR >[A]N POKE  STEP  SAVE :J LET U CAT t=2 SAVE CHR$ m DIM 2? RUN  INPUT  AND ! CLEAR STR$  PAPER  DRAW BIN !?CHR$  COPY ?NOT  IF  STEP  NEXT <>!STR$ } THEN +ASN  RETURN  CLS :KSTR$ = LINE u OR  AND  RETURN <>&. COPY  STEP  CLOSE #>=*1<> RANDOMIZE STR$ ~ RETURN ▝CHR$ CHR$ 2>=ON THEN [H] OR  RETURN ▘RNDNOT CODE  LIST LEN  GO SUB ; STEP SQR  LLIST #a~▙<> RETURN CHR$  AND  OR  DIM G9 DIM ~[E]( DATA  OUT 7[M] NEW  OUT  COPY  TO  PRINT  CLOSE #~!L COPY O VERIFY  _~[U] THEN  NEXT  COPY w LINE  CONTINUE  OR  NEW ?RNDSTR$ &o) COPY [K] BEEP [N] STEP  CLS 6SIN  INK ▞F NEXT tCOS [P]ATN 9 IF  STEP g AND : BEEP  IF  GO SUB CH/ AND />=* MERGE  OR STR$  MOVE !IN  DRAW  LET 4# INPUT 'ASN @[Q][Q]<=IN H AND [Q] FOR  GO SUB CODE ?K BEEP  STEP ` AND  LPRINT g[L] IF  MOVE `P}LEN o MERGE ATN  LINE USR  LIST  GO TO  BRIGHT ▜<NOT _*??3" DRAW [H]' STEP [;[J]▙ CONTINUE  IF d!W IF  IF  AND ©CODE <ATN  GO SUB R ERASE [K] AND  CLS  PLOT  0<> CONTINUE v OR ?:_PICHR$  NEXT  AND  STEP &>=[J] OR EXP BIN  FORMAT  RUN [P]d IF SGN <= INVERSE  RESTORE  LLIST  PRINT  BEEP  DRAW NOT ATTR  AND :7STR$ = SAVE  LOAD  INPUT CHR$  PAUSE  AND >D INPUT @2 FLASH 2/_+ NEXT S CAT  THEN S OPEN #,<LN <=NOT  OR  LPRINT 2 IF  CLEAR CODE <= CLS !_CODE ^ GO SUB [ RUN [ TO  MERGE  RANDOMIZE  RANDOMIZE xh COPY [F][M]<=STR$  RANDOMIZE !© VERIFY [G]A GO SUB !Tk COPY  NEXT  NEXT ▟0 RESTORE x RETURN  COPY CHR$ : GO SUB  PAUSE  LLIST yLN  PRINT PEEK ▜<=©x▚LEXP  NEXT "ABS  LLIST [N]▚0FvX OVER : COPY tNOT PI AND  GO SUB _ NEW g CLS FN o▘S OVER v INVERSE NOT VAL <=CODE Py OR :;/ THEN oCHR$ <=hX/HExN@ INK  GO SUB {F LOAD  NEXT :5 CLS vGk` DRAW [R]CHR$  GO SUB s">= COPY  COPY <=1NOT *3STR$  AND p2>=x LET ~ MOVE  THEN [P] RETURN < RETURN [U]CHR$  SAVE  THEN [K]_ CLS V LINE <>:DCOS CODE CODE ;EVAL$ [P] DRAW CHR$  CIRCLE <=*Bp SAVE : LINE X>=▝AT  LLIST ~[A].f BORDER ' VERIFY NOT  READ : RETURN AUSR CHR$ b>=CODE 2 OVER ~ PLOT  G▜ LINE  RANDOMIZE  INVERSE ^#V PAPER  GO SUB Sz(PEEK  PLOT  NOT ▝ GO SUB E BEEP  FLASH  CONTINUE  LPRINT  OR  CLS  COPY  DEF FN <>!HX[I] RETURN STR$ CHR$ [J]>=^ CAT ASN v[A] RETURN ©, NEW  GO SUB x THEN GATTR BIN BIN © CLEAR  COPY  GO SUB aIN n OUT i<> OPEN # SAVE ▖[P] DRAW | CAT  RETURN Z CAT  STEP . CAT ▟▛ RUN LN  SAVE c0▝ DEF FN } STEP  CAT [E]|# FLASH  CLEAR > FLASH  BEEP 7 STEP ASN  LINE q AND  LOAD  COPY  MOVE EaSQR  BEEP  DEF FN  OPEN # LET  DRAW ▟ CAT < LET  RETURN .8 LOAD HACS ▜ACS +^ FLASH [K] DEF FN [I] OUT ▛▖i INVERSE ! REM >=^▛: OVER ▜ READ  COPY  DRAW o&q DEF FN "▝<>#j▜▛ CLS [F] DIM * LOAD  STEP PI FLASH ▞7 PLOT  s PLOT  4ABS TAN  PLOT  u PLOT   GO SUB  FLASH VAL$  OPEN #>=<= SAVE bPEEK  DEF FN  INVERSE u  CLEAR #CHR$  BORDER t! CLEAR $ STEP [F] TO v STOP 6 THEN PEEK  IF CODE  INK ▛ATN INKEY$! OUT -▛ LPRINT n POKE  LOAD RND> SAVE 2 NEW >=+=▛ REM o OR  LLIST STR$  PLOT  [M]m PRINT <>: FORMAT PI($ PAPER [D]hABS ~ TO  LINE ~▘ PRINT ▝ DIM  ERASE  PRINT VAL ▛ OR  PRINT ~5[U] OPEN # LINE ( THEN  GO TO F n IF N[J])7 FOR USR 1 CONTINUE ] PRINT [E]xFw<> DRAW  RANDOMIZE LN (0 INPUT  PAUSE ▝[C] NEW C SAVE  OVER  REM y NEW  DRAW  PLOT  SGN wWIN 1<>&t-<><> THEN © ;ASN  STEP  STEP +[E] SAVE  CAT  POKE [P]0 SAVE ^wfkn NEXT [R]8 BORDER  PRINT "NOT ▚ PAPER  IF  STEP ▟ THEN  LET  RANDOMIZE VAL 84CHR$ ~VAL$ )COS   SAVE  LOAD  PAUSE 9 RUN  RETURN  COPY (I A2▜ CLS  IF  INPUT  SAVE ,24F NEXT  CAT { LET ([A] GO SUB  DIM O COPY po PRINT ▞SGN qQ FOR r+s<>STR$ [J] LOAD f>=6[O] SAVE ~ RETURN `(Pa LINE . TO <b READ  THEN s8cd PLOT  G VERIFY m#~SGN K IF 7 LET  CONTINUE ,uNOT tT[L]N LET Cww THEN ?}Zu6VAL$ NOT ' LINE  POKE 3<>NOT ~PI Z!<▜ DRAW  RETURN  CIRCLE ![H] STEP N#F LOAD urq#pn GO SUB D OUT  PRINT  NEW 2 RESTORE >=[G] DATA CODE ,2<>&w OR  CLEAR K9[M]▛SGN (N STEP &: LET [Q] GO SUB  READ RNDB FOR  RESTORE ~ NEW ?% COPY  TO <G CLEAR ~ CIRCLE vM BORDER  CLS ATTR TAN v STOP  LLIST %NOT 2[P]>=^"= REM  NOT ▛tj TO  LET n4f©D OR IN  LET  LIST &ASN ASN <>ASN  GO SUB F INPUT  LLIST INT  DEF FN SIN ▞TAB [G]ATTR INKEY$o CLS  LLIST  LINE  MOVE  THEN  LIST AT ^[J] COPY  DRAW  LOAD  FOR 9 RESTORE PI LINE  STEP IN <>[R] THEN  DRAW (q( THEN STR$  NEXT >[O] !~ RETURN (*VAL$ ABS : GO SUB  RESTORE }{<=)Y STEP q[J] INVERSE s>=rATN Xi2D PRINT U[U] ERASE tsO THEN  PLOT  f$; BORDER cC DEF FN 9 COPY BIN {U`[B] RUN  RUN $ INPUT  CLEAR  DRAW  INPUT  RUN ABS  CLEAR  BRIGHT  CLEAR <=[N] RUN >& DRAW  COPY  INPUT ( COPY  PAPER ;JLN P COPY GSGN [L] PAPER  CLOSE #<= COPY . CAT Vnh4▜▙[T] MOVE ASN  VERIFY ▟F GO SUB  IF ▟ AND  FORMAT #4.Wt MOVE h▟INKEY$F[T] OR  DATA F READ  MOVE  W▟STR$  NEW h4 LET  IF h BRIGHT  ERASE @E MOVE JUSR IN  RETURN  AND  BRIGHT  TO " AND 7▘ FOR ]q READ  VERIFY W OUT nq[T][P]@ MOVE LN  NEW [B]A MOVE LN  PLOT  VAL$ kq[T], LIST ATN F[T]▘O AND ▟  NEXT >=▟[R]{Wh46h BRIGHT  SAVE  BRIGHT STR$ [T] MOVE FN [A]▟Fyd4P=, OPEN #h▟ INPUT  LPRINT  CLOSE #h4>=ABS [T] MOVE SIN FN ▟F[P][G]4▟~ MOVE hwpF[T]jd▟^YTh4OK[T] MOVE GC▟F?;4852 MOVE h/-F[T]*(▟%#!h4[T] MOVE ▟F4 MOVE hqSCREEN$ [A]F[T] RETURN  RETURN 7R RETURN } DEF FN 3 OPEN #[I] CLOSE #<= IF INKEY$[Q] SAVE  POKE  LET F RETURN  DEF FN `h$[P] MOVE [H]8 SAVE TFN  IF M▟=57[T] DRAW  POKE  TO IN  DRAW K IF E OPEN # DATA  PLOT   CLEAR "STR$  COPY  SAVE 1▘ NEXT SGN [K][G] RETURN {4[F] DRAW  PLOT   RETURN )D/ RETURN 5.  RETURN 0FCHR$ <b GO TO %▛V RETURN 1 SAVE  DRAW ; MOVE  RETURN  PAUSE  RETURN '▛V RETURN 3 SAVE  DRAW ? MOVE  RETURN  PAUSE  RETURN  RETURN ab`▙` RANDOMIZE  STOP iUSR ?b CLOSE #8 DRAW  SAVE  RETURN  LPRINT  RESTORE  RUN  LET  COPY [C] AND  IF <> COPY  INPUT  OUT abiAA DATA ?` IF <[B] PLOT   DRAW  RETURN DC LIST b RANDOMIZE  IF  RANDOMIZE  NEXT l RETURN F$>= RETURN  INK  STOP  SAVE H! DATA <=%E STOP  LET  IF `VAL$  NEXT :9 BEEP +iASN  RETURN 6"2▚%=/TAN ©5▜ DIM  OPEN #H IF  RETURN /Z SAVE  RETURN 1 GO SUB %< PAUSE  IF  RETURN / MOVE  RETURN  SAVE  RETURN 3 GO SUB  PAPER  IF  RETURN xPI FOR  LLIST `[O]COS VaU DRAW <0 IF ATTR % RETURN  RETURN  SAVE  RETURN [G] READ  RETURN D/ LLIST =BIN TJ[E] PLOT   READ  IF  RETURN ;IN 5 RETURN  SAVE  RETURN ?▟BIN  FORMAT  LLIST [K] LINE  RETURN  RESTORE  OUT 2 SAVE 7CODE 6l:dL RETURN xiF INPUT [L] GO TO ▚ LET ▟ OUT ©[I] GO TO  THEN <=u OUT <O OPEN # OUT m© CLEAR  THEN ; GO TO _5 NEXT |;ATTR  MOVE 1<,PEEK  BEEP _)/  PAUSE & DRAW  RETURN 87[P] BEEP  DRAW :( PRINT &[K] OPEN # LIST  RETURN [A] FOR M RETURN [O]{ DRAW  LIST a RETURN H POKE z GO TO INT NOT KFN [U] PLOT   MOVE  DEF FN LEN '[I][B]ABS N CLS S CLS )` RUN ?▛ TO  OPEN #QRPT c LINE  COPY  LIST ADIN  LIST  PRINT  THEN  LOAD  LIST TAB NEXT PLA LIST YERS 18INKEY$N LINE >[A]COS D SAVE IZ DRAW ▛#< READ BIN (C)198[R][H] LLIST  INK xPEEK OFTWA CLOSE #. G[D]PM MERGE Sd LPRINT IGN,CO PLOT  ▖<AN[L]<=[E] OVER U SAVE EFsCSIN BY AND E DEF FN AUL OPEN #RI LOAD 8<>THIN  PAUSE  IF ORY$EXP "▟ GO TO DNG9O LIST  OR RAP NEXT S"▟$SCREEN$  LPRINT V CIRCLE ^ON THEN '[T]POINT USR  OUT H[C][E]ICSTR$ CODE M▝ OUT 8r DIM "J<[R][A]EVNOT  OPEN #gN AND 128KSGN < BORDER TROp[K]5{ AND MUSQR C[G]P`N PAPER  PLOT   RANDOMIZE BIN [A]PEEK  CONTINUE  CLS "IN MNOT  LPRINT  INK  GO TO u TO  BORDER WcTSIN  NEW  DRAW [A]IK_TAN SCREEN$ W CIRCLE ▙W[Q] RUN MEX OPEN #,U^S[H]C&[Q]RE INK ,T LOAD ▚ PAUSE  STOP - MOVE 4 DIM  LPRINT  OR LINKEY$AT M▙"F[M] PAPER T TO ATTR D▜I LINE  RUN EXP  COPY [E]COS [L]HA+TO OPEN #<>^ THEN  SAVE UL%( STR$ ON&#SGN LN PBIN  TO NC[F]I INPUT SQR  LIST U POKE  READ  CAT [E]AD▘W LINE ABS +IGG)BIN  PAUSE  FOR L3<=R▘PG@ MOVE  LIST b<><▞ CLS <> AND ORMEXP  TO  MOVE (/' IF  LOAD d&J MERGE U[S]NK[A][J] CIRCLE  GO TO W INPUT K PRINT  DRAW ▞B PAUSE CAP'N) TO  DATA 7TWmxS@V▛ BEEP  DATA L BRIGHT KjD[B][T]Z DATA I[U]L[I]BTAI BORDER  TO CHBIN -TKR{NP[K]DM:JH?)LN  DEF FN  PAUSE {[E] MOVE eEXP P[R];<>RE PRINT &,:-B[K]ONCOS G LIST  MERGE [B]VAL$ 0PEEK [T][N] LIST  RUN  BORDER  VERIFY  THEN  CLOSE # LLIST T4Y[P]WINT AT  POKE PEEK Q RUN } OPEN #}ULN  STOP uGIBIN RND LLIST  STEP g- DATA i;#z▖ '86! MERGE  OUT SGN W./▘[F]k[C]DtSGN WPEEK  OR # VERIFY E[B] INVERSE (INT ▛ BEEP LEN Z LIST VAL  OUT y[J]^PVt0 ERASE Z▗CsE VERIFY O MERGE [S]<=SUGE[T]gj LINE  MERGE 12ASN LUBIN [C]xM B[K]^ OPEN # NEXT  PAUSE y PAUSE SNOT w+ZM NEXT % OR +SIHwIvATTR L[Q]SSQR p[H] NEW  LET WINKEY$ LPRINT K PLOT   RUN [Q]eTAB SQR v'CODE  POKE L>=TAN 7-OB2 RUN ▜F OUT a(^[M]ABS  NEW SGN N STEP  AND D-)  DRAW  OR  POKE LEN ATTR >!m BEEP ATTR W ERASE  LLIST  POKE  INVERSE DUO[C] LLIST  OPEN #VTAN }[H]sSIN PUGICACS NOT q OR  RESTORE  PAPER "BATN QK READ  RANDOMIZE  CONTINUE  NEXT VAL$  STOP  LOAD SGN  IF PEEK . GO SUB ) GO SUB  LET NOT ▚UCK PAUSE 4)<> LLIST Qf% LLIST wSGN  BEEP SQR [J]v VERIFY : BEEP  OUT K FOR - PAUSE B@x<ATN  OVER -ACS  STOP  K[A]W INVERSE  CLOSE # READ  FLASH JS@AT ACS rIxW PAPER  LET * MERGE i[J][G]W©Y[F]5BIN TAB CODE [ PAUSE ▖W[R]d[G]IM[H] INPUT }[H][D]VAL YW ERASE RC][N] LOAD u^ CAT  BORDER [E]=py LINE VAL$ [E]ABS uPo[H], NEXT KVAL$ [ RUN o[Q]-bPI[H]DPOINT SQR oPEEK kk FORMAT F FLASH  DATA  ERASE rMATN "TAB [E]B LPRINT [P]NJ[B]USR COS TAN  LET  FOR iDd▙[E]X@lSQR HP{;$GM.[B] PAUSE @BINKEY$UAT ]5BIN  OUT IN 8ToPOINT bP[I]EXP [A]` STEP  NEXT  PAPER //B+TAN D$ BEEP  COPY ▝ CLS ^ ERASE  TO q LET [U]ATTR u7aOMFN 4 FLASH u▛A]'wACS ▚LA'C LIST BW[B] REM Mo^B GO SUB [H]W^▖[D]I7wY LET .R[J]TAB VAL$ SX<-▚YZ;V[L]OLk PAPER PEEK SQR YUuPEEK PDAVI CONTINUE RU▟INKEY$PIFN CHR$ X OVER CHR$  BEEP ▜VAL$ . VERIFY  INPUT ▞P BORDER M▘SGN ▜(PH! ERASE  REM  ERASE  CLS USR  NEXT  DEF FN =]9I'X[B]2Z▝F DIM SQR ! BEEP  VERIFY U FOR [C][W OR u]H READ [H]ACS &[J][D][L]▛ LINE eCZFFN FZBYK[yx STEP v[E]LN  PAUSE ▛[A][[I][L]ATTR @2ABS H<=u[G]U▛B[N] INK z STEP  INVERSE [E]G4D[S]u#F GO SUB ACS TAB  REM JPP PRINT  DIM STR$ >=[U]M CLS SGN TAB t DEF FN SIN TO: THEN ATN  CONTINUE Bi GO TO ▖EXP ▜CHR$ ASN "G▗LN  BEEP @ LIST FUSR  NEW  PRINT  BRIGHT IGHB RANDOMIZE  LET  FOR [C] RESTORE RSC▘y PAUSE  READ I INK Y LIST B LLIST  RESTORE  DRAW RAZ FORMAT sK:AQC1 DIM HACS COS r PAUSE SIN RR[O]i NEXT @E-P VERIFY 1Z/>= PAUSE {i IF nOYU VERIFY  NEXT jM)W▝NOT W[H][H]:; REM v PAPER OTAN SIN C)< LOAD  IF STR$  POKE RS[B])u7[S]CTAN  BORDER  LET VAL$ [K]SQR B!/]p
  47340[F]"B4[J][I]NzTAB CtM[D]YB INK k FOR EP FORMAT  OR  THEN `SGN  THEN  FLASH uCOS ;! CLEAR a NEXT VAL$  THEN  ERASE ZEXP [M]U[N]o RANDOMIZE %:SIN ▘R? VERIFY  LET [] PAPER BOY?▟v[D]M DIM Kr BORDER 7.U^ PAPER JO LOAD k VERIFY Y.gZATN ▜M LET mTAB VINOT mWo▟ READ 8©TAN .BIN V THEN TAN 0 TO  CONTINUE UVAL$  TO VALh▘ VERIFY ATTR <>OIN NATN COA LINE SGN D!- PAUSE PEEK  POKE })ATTR v READ 7wh LOAD [N]"D<=wA [O]W[G]COS 4D? NEXT  LET VPOINT USR S[T][AT G BEEP EXP [K]WEB▟[H]VAL  NEW  AND NTAN p SAVE `F)SGN 3 OVER [C] LET ' OPEN # INPUT ▖Ot RUN B[J]INT M▞ N%# CLEAR  SAVE ASN [N][ OVER  CIRCLE ACS _[O]CODE LEN ` LLIST Mw][J]w FOR VAL$  STOP Y▜zFN  INK QJEhU MERGE y GO SUB TW[ey[J]STR$ ASN jSL RESTORE y3[R]COS SIN  PAPER [A]$[R]BEIN  OVER FN uTAN [F]ATTR  GO TO ?-INT ▞▜ LET  COPY  CAT U~%rbVAL ! COPY  COPY  INVERSE  COPY  COPY ▙m© READ  STEP  SAVE >=A LIST ASN  INPUT xTAB  LIST [Q]Mn SAVE - LIST  SAVE  AND  OR  THEN  LIST ABS  LPRINT  LIST  OVER  SAVE  LIST COS x▜ LIST IN x<= COPY BIN  COPY  PRINT [F]▖©POINT  LPRINT  LIST ?IN  LIST eAT V LET  RETURN  LIST ▖? LIST [P]a<= OR  LIST  LPRINT  LIST ▜ DIM © LIST ▛ DIM o LIST USR 4 COPY  LIST A DRAW o COPY  LIST  TO  NEXT  DEF FN  CLEAR 0 LPRINT  LIST G1/, LIST  DRAW I▜p LIST  SAVE  OR ?i LPRINT  SAVE y LPRINT SGN z^ LIST FN  COPY  LPRINT  LIST RND RETURN  LPRINT USR  LIST  AND  RETURN  LIST  LIST  OUT Y▝[M] LIST  NEXT { RUN PI BEEP CODE USR [J]& LLIST  LPRINT  LIST STR$  IF ©  DRAW  LPRINT  DIM ▚ STOP G BEEP  LIST  BEEP z LPRINT  LIST PPEEK G? LIST ^C[U]l LPRINT jx LPRINT  LIST 8>= COPY  LIST USR  NEXT ▙ LIST © LET  MERGE  FORMAT ? LIST PEEK AT  LPRINT  SAVE  CLOSE #/S FORMAT  LIST  LIST USR ? CLS  DEF FN  MOVE  LIST  RANDOMIZE  SAVE ?; RANDOMIZE <> RUN  LIST  LIST  LIST M RETURN  AND  RANDOMIZE  LIST IN  PAPER  NEXT  RETURN  VERIFY O LIST .[B] LET => RUN  LPRINT  IF  GO SUB W LPRINT  LPRINT © DRAW  BORDER {`[Q] RUN  LPRINT  LIST  INK [L] CONTINUE w BEEP / LIST  CIRCLE  FORMAT  RETURN ;[N]G LPRINT ;' LIST  LIST  SAVE  DRAW   DATA  CLEAR ) LLIST  LIST  FORMAT  DATA ; VERIFY yVAL <INT USR  RETURN  DIM  LIST  CLS 5h LPRINT  RETURN  DRAW ©IN [D] DEF FN @ LPRINT >=i RETURN IN 'x LPRINT i LIST TAN  RETURN  INPUT [T] PAUSE  FORMAT RND4FN ▟ MERGE  POKE  LIST [Q]▜3 IF  FORMAT  DATA  LPRINT  LPRINT L|<= LPRINT  LIST NOT  AND  OUT O RANDOMIZE  LIST  RANDOMIZE  RANDOMIZE [L] RANDOMIZE  AND  DATA ?[L] COPY  LIST  LOAD  BORDER ▛©BIN  LIST  OUT  RUN ATTR  LPRINT  SAVE =VAL$  LPRINT  ERASE  NEXT TAN  LIST P POKE _ BORDER  FLASH kF[L]ASN  LIST  SAVE  IF D LIST "INT NOT  FOR _%[I] FORMAT  RETURN  PLOT   DRAW  LIST ^o NEXT z4 PRINT g LIST [P]NOT  VERIFY { NEW USR  FOR TAB  LIST ?FN ▛ LIST ▖[H]/ OUT  CLS USR G]XVAL TAN  LIST  LPRINT ▘ LPRINT ▛_ FLASH  LIST  READ N LIST NOT hABS © RETURN  LIST [O] BEEP qCHR$ ▖( LIST f SAVE  BORDER  CLS ~ LIST /AT CHR$ MTAB wa[P] NEXT >ur DATA  DRAW  VERIFY IN  POKE  BRIGHT LN <= LIST 8  CAT <> DRAW T IF  BORDER  READ [E][I][U]o8SGN FN INKEY$ DIM VAL$  READ  LET COS  NEXT [I]gW STEP STR$  LIST @▖`8 [D]3 STEP  LIST  SAVE  LIST ^ PAPER  LPRINT  LPRINT TK LPRINT  CLS  LIST q( LIST =Q LIST ▙xRND CLEAR @USR  LPRINT 1 ERASE [I]L NEW  LIST USR  LIST [J] LIST  PLOT  m^ DRAW  SAVE RFN knLN  LIST D6|` LIST  STOP 5 LIST G/[Q]>=F INPUT ~p NEXT r▛R DRAW  FORMAT [P][A]<= RETURN  LIST ? LIST @TAN @ LIST W<> DRAW p~` PRINT ▜M FLASH ATN P▝▙©| LIST  LIST m LOAD USR S GO TO  PRINT ?[A] RANDOMIZE  BRIGHT  FOR  NEW  RUN { TO <>5 GO TO  LET i9USR ▗ DRAW p LIST  LPRINT  INPUT $ LIST  STOP  STEP  READ  DRAW x& LIST  CLS ACS CHR$ RNDUSR [M]N LET  LIST  LOAD  LPRINT ▙IN  DRAW COS  COPY COS  TO $, DIM = PLOT  c PLOT  { BORDER ▘ PRINT TAB k< OVER POINT x BORDER ▘ POKE #▖<={ LIST B OVER  THEN  LPRINT  LIST _z" STEP [T]▛_ RANDOMIZE  PAUSE  CLEAR i PAUSE  SAVE [H]IN [J]n LIST ©  INPUT [H]e^STR$   PLOT  ▜ LIST ▚[[B]SGN  LIST PIy[N]  PAPER  LET USR  DRAW a LPRINT [H]yO LPRINT  LLIST  DIM _ LIST . SAVE _▝?[P] LPRINT  RETURN  CLEAR  NEXT ] DRAW 8 LIST ?|K LIST  DRAW  LIST  COPY  DRAW USR  ERASE ▛^o SAVE ^ COPY  LIST  LIST  LLIST  FORMAT  LIST [G] RETURN  LPRINT ~Z STEP  LPRINT ©_ OUT  SAVE 7 OVER  OUT  OPEN #`© RETURN  LIST y CIRCLE p LET w LET USR ▟ COPY  LPRINT SIN ] COPY © LET ▜ LPRINT USR  FOR l[H] LIST p CAT  INVERSE  LIST G▜ COPY  LIST <=▗ FORMAT  LIST USR © CONTINUE INT  LET  LPRINT  OPEN #yCODE ? PLOT   ERASE  LIST  INK STR$  NEW NOT  OPEN #/ FORMAT ▛}<> LLIST  LIST  NEW } _ OUT  LOAD SCREEN$  LET  DRAW ©[A]e LLIST  LIST LRND^ LIST y DATA IN <<= MERGE  COPY ©PEEK CODE < LIST © LPRINT 7 FORMAT   DRAW ▗! CLEAR  FORMAT  LIST  OUT n NEXT M[E]RND LPRINT lDzUSR  LIST  RANDOMIZE [M]~ FORMAT  LPRINT n LIST [R] BEEP )USR  LPRINT  LIST  RETURN <=TAB ^ABS  LPRINT 3o7;m LIST Y?{ LIST  LIST SGN D LIST  DEF FN  LOAD ▟Z LPRINT  LIST  LLIST ~ LPRINT i INVERSE x LLIST  SAVE POINT [O] BORDER  LPRINT  INVERSE 7 LIST  FORMAT MvUSR RND▘x SAVE  LPRINT  FOR PEEK  LIST [A]mSIN  MERGE  CLS O LIST  THEN  LPRINT SQR m LIST ▖" DEF FN u CONTINUE nNOT +▖O COPY  LIST  VERIFY E[Q]7 MERGE  REM >= zPEEK [P] READ F  LIST p NEXT kxSTR$  LPRINT  LIST  SAVE /A@ POKE  LN EVAL  POKE ^ VERIFY AT  RUN [Q]m▞[K] LIST  BORDER r{ READ ` DATA  PAUSE  VERIFY  CAT  LPRINT INT >= AND  LIST VAL /[A][U]wX[P]oVAL D▝=SGN p0[U] INVERSE [L] MERGE  READ  DEF FN ▙ BEEP [G]▗C?SGN  COPY ABS SIN e[U]` RUN  DRAW  LIST  COPY [M]NOT  FLASH  LIST QFN NOT ATN [J]▚LN  THEN ▗ LIST #Znr[A]▚N COPY  LIST @ NEXT USR x?[P] LIST  LPRINT  NEW x© PRINT z'5MVAL$  LIST @ BRIGHT  CLS  LOAD  PAUSE zfASN  CLOSE #`^o OUT  RETURN  DRAW 8m?[T]▗@| LIST  BORDER D[F]p0 LIST USR [O]"@ NEW  LET  SAVE  CAT aN DEF FN 0 LIST [P] PRINT c STOP <=COS  LPRINT  LIST kK LPRINT y REM  RANDOMIZE OBIN  LIST  LLIST  LIST }[D] OPEN #COS  LLIST BIN VAL NOT  LIST  LIST  LOAD  DIM 8q NEXT  CAT VAL VAL  RETURN NOT 8c SAVE VAL 9V LOAD .▖C[N]N CAT  LOAD <=BIN  CLEAR © LPRINT 1NOT iFN ECHR$  LPRINT 2 SAVE ▗p READ USR  OUT NOT  OUT & PAUSE >gQ7%~: LPRINT ? RUN ▛▜ DRAW  LPRINT su[P]IN  RETURN  FOR  CAT q▞NOT  DRAW p INPUT * MOVE TAN  DRAW  FOR  NEXT  RANDOMIZE  LPRINT  LIST  DEF FN ? LOAD .[J] LOAD USR  LIST  CLS ^ LLIST !? LOAD  RETURN  FLASH ASN NUSR ` LPRINT [U]me? OUT  LPRINT ▖[J]USR © NEW Z[B] FORMAT # PRINT  MERGE  p LET IN f[I]; RUN [G] LIST ? LPRINT  LIST BIN p BEEP M SAVE  FORMAT <]Cp4|[ GO SUB  LIST > LOAD  LPRINT  READ S MERGE [R]t LIST i)8 LIST  CLS  LIST ?T CLOSE #< DRAW UT?We(x[A] CLS 4ATN  TO zwa BRIGHT IN  TO IN N/ATN ^ INVERSE , NEXT ^CODE 7 LIST COS  GO TO [O] GO TO />,SQR ^ CAT O; LIST mSGN  GO TO n OPEN #=  LIST $[D].N TO  LIST  LIST ,COS  DEF FN NOT NOT 0 LIST p CAT  RUN  CAT  MERGE @ LPRINT  READ VAL$  COPY  LIST  BORDER W?IN  FORMAT  NEXT ATTR  CAT  LIST  RUN  RETURN SGN  LOAD  COPY ABS ~/ LIST  CLEAR ~ CLEAR SQR  LIST  LIST ▜ IF o0 LIST 0 LOAD m INVERSE ; CLEAR  LIST ? TO P LPRINT NOT |USR  LIST  CLS NOT  FORMAT ?VAL$ CODE ©SQR  FORMAT  RETURN  INPUT  LIST  PLOT  V[K]ATTR  LIST [G] OVER POINT  POKE NOT  LINE i[O][ READ  LIST FN  RUN ▜n RETURN  LIST  LOAD ▜ NEXT [L]WINKEY$[. CAT NOT '▚ IF SGN  BORDER  BORDER  SAVE  LPRINT h RETURN [O]t LLIST  RUN  LOAD uV▚[P]~ LIST / IF  CIRCLE >= CIRCLE i FORMAT &zz CLEAR  LPRINT [M]o LIST [Q][B]o LIST w RUN yPI DIM qw LOAD ' DRAW  VERIFY ▜ LIST w|U LIST  BRIGHT [A] SAVE  LIST  CONTINUE @{[J]f^n LIST PI RUN  BRIGHT [F] LIST USR ©z LPRINT FN TAN VAL ©:: LIST XCOS  DEF FN |[N]G LOAD VAL [K]>= INK 8[P] PAUSE & LIST  PLOT  LN [P]i▛k LIST [L]▚USR  LIST u[H]VLN PIet[G]8t FLASH ? CAT ACS q▙ LET Xx▝ LIST qZ<>T PRINT 'Y LLIST M< VERIFY ▛ LOAD USR ▟ OPEN # LIST [Q]Q* LIST 7^PI CLS y DIM  LIST  PAUSE  IF  INPUT b LIST ?[O]IP BRIGHT N MERGE SCREEN$ x LIST )SQR [H][U]OPEEK  LIST ▜POINT  BRIGHT  RANDOMIZE  PAUSE  LIST 4SGN PI LIST  FORMAT  CAT { OR | CLS <>EXP <▞ LET j? RANDOMIZE  OUT VAL$ ATN © POKE PEEK mINT <=USR =SCREEN$ [H] LIST  PAUSE  INPUT POINT  SAVE 0` LOAD tx: INVERSE  OPEN #:IY/LN /[U]=POINT  LIST ?9A FOR ▚ LIST E OVER w] RESTORE G RETURN ▜_IN SCREEN$  LIST SGN  LET  OR  LIST  LIST y<=[A]8^ PRINT  LPRINT ] PAUSE ^ABS J LIST 1>=VAL$ CHR$ ©=[H]5?POINT kt▚ CONTINUE [R][L] LIST ©<=ASN }SGN  OUT [Q] LIST > SAVE  BRIGHT  BRIGHT  RUN |P INVERSE m LIST IN  FLASH ? LIST TAB qt▟[A]Oy<=@' DIM TAB  RUN  NEXT  LET  LPRINT  BEEP  INPUT [F]^[K] BRIGHT  LIST ▜wTAN kxQ FLASH  DEF FN m LIST  PLOT   BRIGHT ▝a[N] IF  STEP [T]_SIN  PAPER PEEK 0? POKE SQR  REM EXP TAN TAB _[D] RETURN @▜ OVER  RESTORE {<>-IN  LPRINT b VERIFY C^ LIST ASN TAB IN  PRINT (▖ DRAW ASN  LIST  CLS TAN [T]ATN TAB  PLOT  CODE  LOAD  THEN LATTR C THEN  DRAW  COPY H COPY h COPY 5 LIST  DIM  MOVE INKEY$ LIST  DATA / RETURN  LIST © CLEAR :2 NEXT > LIST  PAUSE  LIST  READ  LIST  PLOT   POKE USR NOT o[Q]PEEK  INK @ IF _ LIST  CAT USR  CAT  CAT  COPY  LPRINT ▙INKEY$ LIST f[D] CIRCLE  DATA ^ RETURN  LIST  OR eTAN  LIST ~ LIST c[K]` LIST  READ ▟ COPY  LPRINT  RESTORE  FLASH CHR$  LIST x REM <= LIST | BEEP  COPY  LIST ©INT  RETURN  FORMAT © OPEN # LOAD <>[Q] SAVE NOT  LIST  LPRINT  DRAW  OPEN # RESTORE w; LIST  LPRINT BIN LN  DIM  LIST  CLEAR  CONTINUE <=|S LIST  LET IN ? OVER -CODE  LIST  VERIFY U CLEAR  LIST  COPY CHR$ oSCODE COS % LPRINT d>M|# LPRINT  PRINT ?< IF Ie OVER  LIST ?C_ REM  LIST ` LIST 5PEEK  LIST  LLIST SQR 't OVER s[R] LIST NOT  SAVE @? STEP  DIM  LIST ▜ DRAW  DRAW M DIM  OPEN # GO SUB  LIST  RETURN 0 MOVE ATN  PRINT  LIST  READ  DRAW  AND O MOVE  LIST  LLIST  CLEAR SIN !Wu LIST  RETURN  LET [K]VAL$  FOR [Q] RETURN VAL 8? MOVE  CAT k@1Q LET u~VAL IN [H]+ FORMAT [S]IN INT  LET  LPRINT GIN b BORDER  LPRINT  LIST < BORDER  INVERSE  DRAW xI LIST ^u CLEAR  LIST  RETURN  BORDER ASN  THEN j LLIST  LLIST  LIST / RETURN [Q]}# SAVE TAB <>Qp READ  INVERSE L SAVE 9 COPY  RESTORE [S]5 LIST L SAVE TAN  BORDER o[G]TAB P? LPRINT } GO TO [N]h+ LIST > ERASE  FORMAT G▛POINT  LIST  SAVE  CLEAR Y▚0|USR  FLASH <= COPY `USR IN COS  FORMAT  LIST  RANDOMIZE " DEF FN ▟ FORMAT [F]NOT <> COPY CODE 6INT  LIST  LPRINT ^|D[T] INPUT  FORMAT r FORMAT  OVER  [F]F OUT 1<SQR | LPRINT  LIST 5>7CODE [Q]/ POKE  CONTINUE  READ = STOP /[Q] DEF FN NOT |E?< LIST 9 GO SUB  DIM  LIST  VERIFY  INVERSE  RESTORE [G]@[M]' MERGE  MOVE  DRAW  LOAD [R]P[P]A OPEN #mUSR  CONTINUE  OUT 7 LIST [N] OUT  CLS ~x[R] LIST  LLIST  LET  MOVE  LIST  SAVE  LET  BORDER [F] PAPER © LPRINT  RANDOMIZE i CAT ` LET ▜: LIST <= CLEAR USR  IF m[P]wy LIST  IF n LOAD VAL  SAVE  STOP ATTR EXP [K]n7 FORMAT PEEK  LPRINT SQR BIN  LIST  LOAD [E]V▟. LIST [K][P]/41USR `NOT  LIST  ERASE t INPUT  LPRINT  NEXT  READ [C]MIN  LIST  RESTORE CODE  LIST puq▘PEEK G IF p LPRINT TAN  LIST  LIST  FORMAT [D]CODE  PLOT  [B][D] FORMAT TAB m ERASE © LIST  OPEN #[D]▟©?M  LPRINT O LIST s OPEN #AT  SAVE  LIST [T]W POKE o LIST ^( FORMAT [Q] LIST  OPEN #o LPRINT f LIST  CLS l LOAD =nPTAN ] STOP ^ LIST PEEK gPILN [x a LIST m RUN TAB ▝ FLASH  LIST  VERIFY  INVERSE  DRAW  OUT SIN [N] LIST  STOP ;ABS  OVER 1w7 LPRINT - RETURN ABS YINKEY$[O]d@] BRIGHT  RANDOMIZE xY~ INVERSE QPEEK PI`u| LIST  LIST <=[P]X LIST ~ INVERSE  DRAW / LIST  LIST  COPY LN  J LIST #/ LIST  LIST  LLIST VAL$ ~CODE  LIST USR  LPRINT  THEN INKEY$ LIST  CAT  LIST ? LPRINT  LPRINT  SAVE ~[O] LPRINT  CLEAR / LIST  DRAW  LIST v RETURN { RETURN TAB @ COPY  DEF FN ▛VAL >  LIST  LLIST  OPEN #O PRINT USR ? CAT  PRINT SCREEN$ NOT  LIST V[ CLEAR  LIST  PAUSE  BORDER ▗[Q]IN  BRIGHT eUWVAL  RETURN l LET  LIST  FLASH PEEK VAL$  LIST  GO SUB  AND T LIST [A][T]© FORMAT USR ©T~ OVER  OPEN #- LIST ▙SGN k READ  LIST  CAT © DRAW  LIST Q[H] SAVE  INPUT `4 STOP  LIST 8▟IN  DEF FN  LIST  COPY [G]g STOP PEEK E`[C]~ LOAD  LIST © CONTINUE ©LN u BEEP  LIST TAN O THEN  LIST p LIST SQR  MERGE [A]^oiu▝ LIST NOT _ LIST  NEXT TAN ▚ LET [S]▜U RANDOMIZE USR ![P]o<=o▞[Q] LIST LN  INPUT  LIST ▖ RANDOMIZE SQR  COPY  LLIST  LIST ?CODE ?▖ LLIST [A] ?F CLEAR  LIST ▛IN USR puWR© CAT  OUT  IF  LIST  COPY SQR  READ [A]> ©[L]/ CIRCLE  LIST <@ABS  PAPER :VAL$ #0 LIST  TO 7 RANDOMIZE  LPRINT 8a CLEAR INT  SAVE USR 0 MERGE o CIRCLE  FORMAT p DRAW q BEEP  CLEAR [H] LIST D FLASH  FLASH  LIST RPEEK  DRAW  LIST  LIST [A]. CLEAR  LIST  GO SUB  ERASE 0 RETURN  OVER  CLS ? COPY  CONTINUE E COPY  LIST  LPRINT ©SQR ] COPY ▛ LIST  STOP  FOR _ LIST ▚ LIST ©Xn RETURN ▙ COPY K LIST @#; LIST USR LN  MERGE  LIST  RETURN ▛~~USR  LPRINT  RETURN VAL  LIST  OVER ? LIST  READ IN  COPY SCREEN$ l COPY  LIST 0 RUN  FORMAT E[P] LIST [G] RETURN P CIRCLE  PLOT  VAL  FOR © LPRINT  LIST _ COPY  LIST ![S] IF  LIST M COPY  LIST  LET  COPY 0 PLOT   RETURN PI INVERSE  OR FN  CONTINUE  LIST _ AND ?AT  LIST ▝ LLIST  LIST  IF [H] COPY xABS  FOR  OUT  LIST <| LIST BIN IN © LIST  NEXT  LPRINT /m@ DRAW  RANDOMIZE  REM  STOP  LIST a RUN VP LIST 3_[L] LIST ? LIST ▚© LIST [H] FORMAT [N]E LPRINT  LPRINT  BORDER [H]{ LOAD Pp LIST b© SAVE [D] ERASE  LPRINT [ SAVE b LIST FVAL$ >=_ePEEK  DRAW  LIST  LIST ▙ POKE  LIST 1 STOP ASN *~ CONTINUE  SAVE VAL | LIST _ GO TO  LIST  RETURN ▝X/USR 0w RESTORE  LIST  COPY (*STR$ LN  LIST d DIM  LIST ~i LET  DIM /[Q] LIST  RETURN  LIST j OVER  FORMAT  CAT  VERIFY CODE  IF  LPRINT _TAN USR  LIST ACS [S][Q]VAL &Y.-HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  NEXT  GO SUB s▛USR !USR ▞[w MERGE  GO SUB VAL USR  INK !X BRIGHT  COPY  COPY NOT <> GO SUB LN 1= DATA STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> SAVE  RANDOMIZE LN BIN TUSR FD RETURN c:SQR tQ[P]z[I]tH▗B  LLIST DD(F DRAW  INVERSE  SAVE 7_ COPY  OUT ▝? CAT [P]3 DRAW [H])KP OR  LLIST "@[P]& DRAW  CLEAR  COPY  COPY  IF  CLEAR  DRAW BIN NOT  RANDOMIZE  COPY  SAVE  POKE  INVERSE  PAPER =AT [F]T THEN BIN ▘ IF $[O] BRIGHT LN ▟TINT C READ  FORMAT SGN 3[B] SAVE Q/!LN $BEK READ bSGN A DRAW xDp STOP T[K] BRIGHT : | DRAW  SAVE i NEXT  CLS L STOP  COPY YjB[B]bCOS  INVERSE LN /▞ INVERSE  DRAW  SAVE N LPRINT  FLASH F CAT  COPY  INVERSE  BRIGHT >[C] COPY >~< DRAW 87 COPY  DRAW CHR$ %U+6Q4SQR [B]HqSCREEN$ 11$ NEXT  PAPER [T]E▜ READ  BRIGHT ~| DRAW IN  LIST  COPY  GO TO Ul( CLOSE #` PAPER $▞ GO SUB  OVER , THEN &[F] CAT ( RETURN b BRIGHT E RUN 6 NEXT 4H$ CLS }USR [P]SQR $[+ GO SUB [J]SCREEN$ VAL$ 0[U]?<~©qUSR E OUT ` LOAD $D STOP l COPY , OVER  INVERSE ! COPY  PAPER h CLOSE # `SCREEN$ [U]VAL$  GO SUB x><| BRIGHT  INVERSE  BRIGHT  COPY  CLOSE #FN  RETURN  SAVE ©h<= IF  LIST  IF  DEF FN  FORMAT k( IF  LLIST ▘ IF  LPRINT  STOP ,8 IF USR Q>= BRIGHT  LPRINT gq CONTINUE <3@2 BEEP VAL H9% IF VAL EXP  IF [E] DATA [E][S] IF @ STOP [J]l▖ BRIGHT ATN ▘7AT V LIST #$) POKE LN <>) ERASE  LET  POKE  SAVE D CONTINUE  READ  RETURN ▙▖USR <= IF i0 RETURN  CONTINUE  IF TAN " LPRINT  VERIFY ▘![I] IF BS@ IF p CONTINUE [G]</p BRIGHT [B]p[K]pINKEY$p[K]pZTAN  IF [E] INPUT ▚I STOP J RUN  VERIFY  ERASE [Q]v READ  LINE PEEK I. RUN SIN BZRv([I]vINKEY$i[K]v▙hv^Ry MOVE  IF  DRAW F NEW -: IF .?TAN B POKE $hCHR$ [Q]PEEK  RETURN ] LOAD  PAUSE  ABS  FOR  NEW TAN  PAPER ▚o[E] DEF FN  OR ATN (CHR$ ▚-PEEK ACS po LET SCREEN$ pATN ▚[O]} FLASH [C]$▚ OR ATN ▝zp[I] BORDER n[E]x RETURN hUSR Jh`- IF A>y[Q][U]{ NEW ; FORMAT jN*x^<[D] LPRINT ![N]|L OUT [U]R) IF [S]f&b IF ` STOP  OVER AWATN L INPUT jLN INKEY$AT  POKE $1 RESTORE <K4"[L]Lz[K] CONTINUE  READ ` PAPER nnh▙ASN > CONTINUE USR [U] CLOSE # IF ▘ IF CHR$ )▖ IF ^:-Z CONTINUE p BRIGHT [B]pSIN pINKEY$p[K]p IF  REM  PAPER  INPUT (iR STOP v6 PRINT v PAUSE :<=YHPEEK vBSIN v^HINKEY$v[K]▙xx RETURN ^ RANDOMIZE 6RF? GO TO .: DRAW .yi"[C]SIN >USR 8 IF FN W INPUT  RETURN p+4E- OUT SGN  NEW ATN F LPRINT [U]PEEK  OR  DEF FN EkCHR$ pxp RESTORE  RESTORE SCREEN$ F^ DIM [O]R DATA [F][C]▝p▚[J]wpzTAB  INVERSE 4STR$  IF ABS USR hSQR ▝f[F][R]6<ASN >=SIN 0U CONTINUE  SAVE 3H! DIM  SAVE & POKE  NEW Bx[R]CHR$ hUSR y IF | DRAW [Q] CLEAR [K]P! POKE   CONTINUE ▗ BORDER  POKE  LPRINT ▖{@%evzPEEK (6 INPUT Bx[O] STOP  SAVE [G] IF ` NEW ^LN  LET SGN ▚t▛o CONTINUE t BRIGHT  OUT | NEW D? PAUSE  RETURN FSQR [C] DRAW PEEK `0@▚ IF [Q][D]▗p INPUT [O]p !▗LN `@p*[U]*pP▗B DRAW [A]av CLEAR j7. IF  FORMAT pSGN  ERASE &xp[U]) LET p0 IF vw)▗ INPUT  IF hJlAT |p[G]SIN  POKE USR  CONTINUE  IF PEEK  RANDOMIZE  CLOSE #PEEK i>▗-BIN  IF yhXh[K]9 CONTINUE d FORMAT  LLIST 2[F]B[E]K|)POINT *1▘ OVER vJ@Z IF  STOP - PRINT / DRAW |W LIST  GO TO  LLIST p CLOSE #[O]v LPRINT p{y LPRINT VAL (o?[Q]dzK INPUT p PLOT  h LET ppA+2p?p NEXT SGN  PAPER < CAT  DEF FN CHR$  STEP  NEXT ACS  CAT  NEXT SCREEN$  NEXT <[O][C]< CAT ▚ NEXT <[K]n= CAT b CAT  NEXT V NEXT <J> NEXT SGN 2| CAT & DEF FN  NEXT SGN  PLOT   REM SGN  DEF FN  OVER  INPUT  FOR  ERASE  READ ABS  AND INKEY$<^CHR$  STEP  NEXT ACS  NEXT <:[O]< CAT [C] CAT  NEXT ▚ NEXT <zn< CAT b CAT  NEXT V NEXT =J>< CAT 2SGN  NEXT & CAT  NEXT VAL$  PLOT   REM COS  DEF FN  OVER < DEF FN  THEN  RUN CHR$ < CAT ACS SCREEN$  CAT  NEXT [O] NEXT <[C]| CAT ▚ LPRINT < LOAD n OUT  NEXT b CAT ;VJ RUN <>< CAT 2&< LOAD  CAT  NEXT SGN  DEF FN  REM  INPUT  FOR  OVER RNDATN  ERASE  AND ABS  VERIFY  INVERSE  DEF FN *▟▜@UF"B FORMAT >#[B]TAB "W▞B BEEP  LPRINT CODE oCODE f4IN [ REM  CLOSE #hM GO SUB 5& OVER  POKE EXP PEEK ] POKE  DRAW ATTR SQR  POKE ▟ LIST w MERGE 5▚EXP  BRIGHT ?ACS [K]hjBIN  POKE  IF / MERGE H CLEAR [T]J[D]CSGN  CONTINUE / CIRCLE  CLOSE #qm STOP [RASN USR B#.[P]HCODE  LPRINT > POKE [A] DRAW  :[D]<CODE  DEF FN  FORMAT  BRIGHT X~ OPEN #5<> STOP  STR$ _ VERIFY ▞9COS &~ VERIFY p/=[SGN  RESTORE  OUT  CONTINUE kFN  BEEP TSQR [E][C]|} INPUT p+ DIM  INPUT PEEK nTRNDSQR FN 4_[K]xRNDBIN  INPUT INT h LINE  CIRCLE  POKE  IF _BIN ^{ REM  COPY VAL LN USR  ERASE PPEEK | MERGE | FORMAT J POKE [M]INT  AND ▖ SAVE AT [H] CLS STR$ SQR  IF AT <[▛*▝CHR$ AT L[Q]▟4▙ATTR 4=mC^( LOAD  ERASE [A][K] OVER UpINT [B] SAVE VAL$ SCREEN$ RR▘pSCREEN$ pBIN }0dBIN W[R]LN dIN ▞P CLOSE #[N]p▗ POKE  CONTINUE POINT  FOR j OPEN #" OUT p LOAD eV IF " BEEP |f" GO SUB  LIST 0p[H]SQR  BORDER  IF CHR$  LOAD z CLOSE #USR dINT  CIRCLE ▙ POKE Yx#▛R(AnJ▚BIN p POKE ACS  INPUT  DRAW Uc LPRINT ▜kbG OVER b DIM ] ERASE FN BIN CHR$ ) POKE  BRIGHT  FLASH QSCREEN$ ?^[J]SIN | MERGE INKEY$EAT  GO TO POINT VATN BV RETURN z GO TO  DRAW z THEN BIN 0+SQR B CONTINUE LEN SIN BCODE  BRIGHT 8+ IF  SAVE  LOAD =2 IF PEEK  LINE  IF SGN  INK eABS CODE ZvDOWlJZ LPRINT 5AT CHR$ /VAL$  IF SCREEN$ VAL & DATA  IF [Q]EXP a IF INT  CONTINUE  STOP  LLIST W4Z>@jd*[R]VAL * DATA  CONTINUE  SAVE pASN  DIM B IF ( IF mo6po7|[Q]] SAVE  RETURN CHR$ [K] INK LN  LINE ASN ▘ IF `U(8R>=:|CHR$ n<, STOP 0SQR PEEK  LET SGN  ERASE ~ IF 8>Jb IF 5 IF SCREEN$  MOVE  AND  PAUSE  STOP jW RESTORE R2" FOR  REM = DIM c LPRINT <[B]S FORMAT  IF  RUN )POINT ▘ IF  LIST  BORDER  IF  FORMAT + PRINT  PAUSE  LPRINT [G][P] CAT 5 INPUT  PAUSE G[I]BIN E CONTINUE [BIN J▗CHR$  VERIFY ~`Mf▘UUSR AT SIN  CHR$ /$ IF 4AT  DEF FN  IF ATTR p0[R]VAL  OVER ▝STR$ H= IF F STOP USR ABS [R][R]SGN  LINE ASN [O]PEEK  AND VAL$  IF >Z~ATTR <> LPRINT BIN  FORMAT SGN  TO  VERIFY  LIST ▝ CLOSE #|RCODE  CLOSE #b IF PEEK -/ GO SUB /Fx OUT [C])PSQR TAN jABS  DRAW  GO SUB r[E] IF b[U]Br POKE [A] IF FB*`^> MERGE VAL$  LIST N▝vMb▖<$xCODE t[K]@ COPY W>y LINE Y[R]VAL$  CONTINUE ABS B BRIGHT 0]▖[S] IF |POINT R<,^t FORMAT x IF VW INVERSE  LIST  DIM J4pPEEK  POKE oTAN ! LOAD [U]dT IF  STOP ATTR  NEXT 2[B] AND $u[O] DRAW  LPRINT  CLS RNDz DRAW ZRTAN PEEK x[C] DRAW  RETURN  REM  RETURN [Q] LIST  NEW BIN _ RETURN  SAVE  RETURN  OPEN # DRAW @ COPY  COPY E OPEN # CLS  SAVE ^[H][U] PRINT  GO TO  COPY ` SAVE  FOR  SAVE i[S] OVER  CIRCLE  SAVE X LET [U]j CLS NOT U DIM ▜SCREEN$  NEXT [G]INKEY$0 CLS ( CLS K[H] LET VAL$  CLS INKEY$ OR  OPEN #H CLS ZTAB  GO TO  PLOT   GO TO  LET VK  CLS  PLOT  TTAB  PLOT   PLOT  VK DATA  LET  PLOT  .TAB  GO TO  PLOT  9ABS j CLS  OPEN # MERGE jINT [M] CLOSE #RNDy4 MERGE j CIRCLE [C] CLS VATTR  GO TO  STOP ZTAB  CLS  CLS jASN  CLS [G] OPEN #GLZTAB VAL [H]jASN ▖ LET INT ▙ READ VAL  READ 4G<>jZ▙L<>jASN INT  PLOT   GO TO ▙ COPY  STOP j9[H]) CLS ? DRAW [R]j}qj OVER  MERGE  STOP  MERGE j OVER  PLOT   CLS <=[R]▖qASN  LET VINKEY$SGN ATTR  PLOT  ▙ OVER  MERGE  STOP  OVER i CAT [iASN z▟ LET  FORMAT  AND efjASN  GO TO ▖[H]5 LOAD k INVERSE y~ READ N THEN INKEY$ INVERSE i/ LET IN  GO TO K THEN  INVERSE  BORDER W[K][M] AND yRVAL  FOR [N] LET  PAUSE uW GO TO INKEY$ DEF FN ; INVERSE  DEF FN ; DEF FN LEN q/ DEF FN  CLS WATTR  CIRCLE  CIRCLE ATTR yHBVAL$ V LET  CLS N NEXT ktPI PRINT  DRAW ~ MERGE v NEXT  STOP w OVER [S] NEW [N]*▙SQR [M] CIRCLE ATTR  OR  CAT  NATTR ATTR  DEF FN SQR  NEXT ©STR$  READ j OPEN # GO TO  BEEP  NEXT uASN  OPEN # GO TO  OVER i PLOT   RESTORE TAN C BORDER [PI PLOT  [INT  FOR M:EXP  OVER [J][M]PIq THEN  INPUT r?~zIN  CLEAR ? LOAD  CAT  FOR [M] PAPER SQR  DEF FN  CLEAR ;▙ TO  STOP [M] VERIFY  LET  INPUT IN $ LOAD LN  FORMAT  COPY VAL$ ;ATN  POKE  NEXT  BORDER ATTR  RESTORE [H]▟L-wVAL  LPRINT  DEF FN ; CLS SQR SGN  NEXT [S] LINE 8 INPUT [A] BORDER INT  READ BAT  INPUT [O]N[T] CONTINUE  CIRCLE eABS  FOR FN  INVERSE i BORDER :IN :FN ; CLEAR  READ  DEF FN Cm FOR ▙.TAB  FOR ▙ BORDER  NEXT  LOAD LN [U] CAT ;C  FOR INT  COPY  INVERSE vTAN  BORDER <=N READ Q[R]<= RESTORE POINT  CLS m BORDER ~Z CLS Qu[O]ASN Dq<=j LOAD BIN  DEF FN SQR  GO SUB  LIST  FOR ▙[T]<OINKEY$9 FLASH  MERGE ▖[N]wCODE Hy BORDER a BORDER <= LET  NEW [! ^ COPY ATTR  THEN  LET [A]▖ MERGE INT X[H][N] AND  BORDER INT ACS  FLASH  FORMAT #SGN  READ BzO READ 3[SGN  OPEN # COPY aEXP  INPUT D8~ CIRCLE  BEEP y DEF FN FN  INVERSE  LLIST  BORDER [M]v AND  INVERSE  CLEAR TAN  LET [R]▙;ASN COS <= INVERSE 2 OPEN # PAPER q[K] FLASH i BORDER  READ IN  COPY n;▙ ERASE ASN  NEXT  INK  GO TO PIq8 GO TO  FOR /q LET [R]8o SAVE  CLS ▜AT  DEF FN  CAT  FORMAT  MOVE  ERASE  OPEN # BORDER  COPY  LPRINT  LLIST  OPEN # CLOSE # MERGE  FOR  DRAW  POKE k CLEAR h STOP  READ  DATA  VERIFY  BEEP  CIRCLE AT  RUN  RETURN 9 COPY  RESTORE  NEW  DRAW ^ INK  PAPER  FLASH ©'J LET  BRIGHT  INVERSE  OVER  SAVE ▜ LET  LET  LOAD  STOP  CONTINUE  DIM  REM  STOP  RANDOMIZE  OUT  FOR  GO TO  GO SUB  STOP a[I]A<= COPY  COPY ▚ COPY  COPY  DRAW VAL$ ▟▙ DRAW ~ POKE LEN VAL CODE [A][B][C] DRAW ~ LET TAN COS SIN [D][E][F] DRAW ~ LET ATN ACS ASN [G][H][I]ABS © LET INT EXP LN [J][K][L][M][N]SGN © LET ABS SGN SQR [O][P][Q][R][S] DIM © PAUSE STR$ USR IN PEEK [T][U]RNDINKEY$PIFN  NEXT  DIM  COPY <= AND  OR BIN NOT CHR$ POINT SCREEN$ ATTR AT TAB VAL$  LET < CLS  STEP  TO  THEN  LINE <>>= COPY ©NOT  COPY  COPY {zMIJKL RANDOMIZE ~©▝`] LET MNOJO©▘▗ RANDOMIZE QRS DEF FN PITU SAVE ▚▜▖▞ RANDOMIZE VWg DRAW <>▛ DRAW X REM  COPY YZ[/]^_`a RETURN COS cdefghijk CLEAR [P] INVERSE lmnopqrs CLS  CAT  STEP uvwxyz{|} RETURN E▖ DRAW ;▖W▖w DRAW ▖ GO TO  SAVE ▖ SAVE wW▖ LET  LOAD ▖ !▖ LOAD  CIRCLE "#$W▖%&' OUT  LET ▖()*LEN  READ ▖+,-W▖ READ  OUT ./0▖1<=IN 23▖45IN c6W▖789©<=▖:;<<=▙▖=>?W▖@A▙©B▖CDE COPY ▖FGH LET ▖CODE  OPEN # RETURN > STEP !pamE[R] SAVE [R]n INPUT rxO PAPER [G]VAL$  SAVE fq GO SUB NOT RND![S] COPY /~ NEW <=w#xLEN CHR$ <=gm=L<= RESTORE  OR v OPEN #STR$  LLIST © SAVE  STOP @_[T] RETURN w,CHR$ ▚m$▗1= INVERSE  CONTINUE  COPY F COPY 6 GO SUB VAL <> LIST  BORDER ![I]o CIRCLE >2~n TO  LLIST ▘▞RND▚4][N]> BORDER  OPEN #INT  PLOT  < RETURN CHR$ USR [D][Q][P] CAT X[R][A]6F<>!@ZEXP ▛A NEXT OEXP <>h2 MERGE !Xo"Ru8 OR  IF UIN 2T OR bW< STEP v: RANDOMIZE = PRINT  TO &n:[D] PAUSE  PLOT   DRAW  TO n CAT  COPY  RETURN © GO SUB x THEN GNOT n* FORMAT ~ RETURN NOT  LLIST  LINE Cn▝ CLEAR ▜I RESTORE  STEP o LLIST #~C MOVE ATN b<hNOT )u2EXP [J] PAPER  OVER [K]NOT  CIRCLE *4hRND CAT ILN  CLOSE #/ CLOSE #CODE  CLOSE #H3 GO TO  CLOSE #▞ CLOSE #Z FOR ▙ COPY [P] LLIST  OR [Q]=CHR$ ©n  LIST STR$ x RETURN [B]u[G]{<> OR  THEN   RETURN !fPEEK  RETURN  STEP VAL " FOR STR$  DEF FN - RUN z- COPY w RUN v COPY  CLEAR  RETURN  COPY >= BEEP dx POKE  STOP  NEW  OPEN # RETURN  RANDOMIZE  READ [P]-NOT ▛d([G]. COPY  COPY d MOVE  PAPER [A] LOAD  LET ? LIST X[G]!▜ LPRINT  OUT  DATA  DATA  RANDOMIZE  GO TO h OVER Nq INPUT  CAT ' CLOSE # COPY . RUN  IF gDu>▛ABS NOT ▚[J]G▜ COPY  CLS &[P]<>o) COPY  INVERSE y INVERSE Xp INVERSE  OVER { INVERSE FN dCHR$   q9`W2n▜▜ DRAW  SAVE [G] INK  SAVE (2[Q]O DRAW  FOR  OPEN #[T] MOVE  RETURN  COPY  OUT [H]Y COPY  LINE ▛u COPY J# POKE E NEW  COPY ~SCREEN$ H©Qb PAUSE LEN  CAT  COPY  MERGE D[R] MERGE  OR [G]SCREEN$ ~ VERIFY ▙ COPY POINT CHR$ <>M COPY X} COPY [E]>▟ REM RPEEK >N▝}$ COPY FN 0f<= RETURN  LLIST  MERGE LFN  RETURN  RUN [S]POINT [A];▚[S] RETURN  ERASE  MERGE SH(BIN uLq RETURN  COPY S[S]INKEY$ COPY ABS [C][Q] CONTINUE   OUT ?dDPUSR " PLOT   NEXT IN v [A]▚! RETURN  MERGE  STOP { DATA  STEP @$ SAVE  RUN USR  LPRINT ACS  COPY  REM ([Q]@<= BORDER  COPY  COPY  RETURN TC)@$BIN [A] LET [B]HINT  LPRINT  MOVE  RANDOMIZE ATN  LOAD  DATA  R BORDER  LOAD cUSR  REM P COPY B1[Q] ▝{~ DATA G>=CHR$ @J DATA  FOR  RUN y(7 COPY [Q]p  POKE  OPEN # NEXT  READ  REM B[A]FN USR  FOR  LOAD  SAVE STR$ !@IN Qw[Q]@EV▚ THEN  CLOSE #▜▖▝ RUN LN  COPY <= FOR I8A OUT / INPUT  IF bnZH PLOT   DRAW  INPUT ©p#© DIM [Q] STOP P [A]LN  OVER  LOAD ▞ PAUSE  COPY POINT ▝BP%Av@" CONTINUE © DRAW $▙ DRAW  DEF FN ▗) GO SUB ▘ PLOT  [▞ DRAW ~  DATA r©x[D]USR [A]8[J] NEXT [N]H[R]N DIM [Q] OR 3<> FLASH :{▜ LOAD  REM  PLOT  0USR y< RUN @4`1EXP  LPRINT USR  REM ▖ CLEAR x STOP ASN [S]a RANDOMIZE 5SGN [I]INKEY$q[Q]y DEF FN 03[M]? CIRCLE 8[T]W BEEP ATTR  LIST ,VAL$  PAUSE J AT P'▛9[B]OI▖00 SAVE  RESTORE @9JTAN B 'SCREEN$  LIST  LET [D] COPY pPBp CLEAR TL DRAW 6TAB  CONTINUE Y RANDOMIZE  INVERSE P▗` OVER u< CONTINUE  CONTINUE ASN ▛ OPEN #N{[B]ASN BIN Q@t RESTORE  OPEN #& CLOSE #y▚[B] CAT  OPEN # COPY ▞ LOAD i PAPER y[U]P INK q PAPER  OR ? LPRINT  AND  BRIGHT " DATA a©[B] READ j[R]NABS yy2 INVERSE ACS  REM  LIST G CLOSE #HOABS  BEEP  GO TO ATTR r FORMAT ziA PLOT   REM = OVER  READ u[A][Q]R DEF FN  GO SUB l▞USR  BORDER _ OVER  BORDER [P] GO TO CHR$ ▙ CLOSE #eFN  NEXT  OPEN #PH[L] DIM  FORMAT  RANDOMIZE  COPY  CLOSE # OUT [N][A] EXP  CONTINUE FN VAL$ [B] LIST /m| SAVE =h©[O] CLOSE # NEXT [L]9b][L] NEXT ▛i REM ▙% COPY z REM NOT % COPY  CLS 0} GO SUB tCODE 3f OPEN # DRAW t INVERSE EXP  INK  POKE  INVERSE VAL$ [A]~SCREEN$ Au{[O] MERGE T[Q]AT  CLOSE # GO SUB *qINT INT M>v CLS  PLOT  >=TSTR$ RNDJi PAUSE  PLOT   INPUT {ATTR  PLOT   GO SUB INKEY$l7*EXP L8 FLASH v( INVERSE  INPUT F STEP HT FLASH  INPUT bATN COS pz$BIN  PLOT  c~p MOVE  FLASH  LOAD TAB BcnIN [K]A▗1 GO SUB  RETURN FN /STR$ ACS o FLASH BIN COS [ OR  ERASE D BEEP v LPRINT LN [N]` INPUT  LIST 7o DRAW  LPRINT .FN  STOP VvCODE [N]g FOR >= ERASE PI PAPER k LLIST  DIM K LIST  PLOT   POKE  LLIST s▜ CONTINUE ACS  POKE  GO SUB ASN >ESCREEN$ STR$ VAL$ >}VAL U>HINT >= RUN M DRAW PI[J]STR$  IF kATTR 2 OPEN #HFN  DRAW  MERGE RINT g>INKEY$[T]TN5TAB yDF VERIFY " BORDER  DEF FN l▗▞TAN RD>q[I]!▘MCC/SGN LEN R<=nh BORDER [A] CLOSE # LOAD x▛ IF W LPRINT [O] LET  IF [F]vTAB INT [I] SAVE mRNDrCODE } CONTINUE  PAPER  RETURN ^|u*ABS o IF SCREEN$ ~▟|OCODE  REM SCREEN$  RETURN h READ T DIM k( OPEN #SCREEN$ ▖[C] RETURN  IF  POKE RNDW"|BINKEY$H▚ RANDOMIZE iq$ABS [H] PLOT  ▚▗▘a INPUT x(.w CLEN  LET HXwSGN ASN U▖w;SCREEN$ IN [R] GO SUB o INPUT  DRAW P RETURN + BRIGHT = PRINT ^ NEW h▟ RETURN  MERGE k/ IF U GO SUB  DRAW  MERGE ]SGN *ATTR s LOAD T RETURN ▛ GO SUB ASN  CLOSE #) FORMAT NOT FN [L]=}[T]ATTR 2 DRAW EWHASN AT "RNDhTSGN ▗PABS  PAPER  DRAW o$,^PI0?=q AND  DRAW ~USR  CIRCLE  RUN ▛▘c[H]h[I] STOP {[C] OUT RND RUN SIN ▝o BRIGHT IN " DRAW t▙ NEXT NOT  INK  OR  NEW  NEXT 9Y FLASH O[v LOAD [B]▗n6} RETURN &2?<='/ CLS 4ABS  BRIGHT A NEXT  THEN N TO /[2IN hu THEN  DRAW ▘/ NEXT LEN  TO [M](PEEK |( LINE Ro([D]p(1 NEXT  POKE (SCREEN$ HE( INVERSE  LIST ( STOP 0N(1▙o([U](O THEN  CONTINUE (▛,n( TO ▟e( GO TO xPOINT ( CIRCLE ACS ATN  OVER (▛0(PPEEK <=(▘GY(1(FN  RUN (( NEXT VAL$ () NEXT (; OVER E9<=(▘NOT  STOP ( INPUT  OPEN #( COPY ATTR (( GO SUB C(x`w RUN xSTR$ ATTR (A1▜{( DIM y SAVE (ydt(INT ▗6(@m STEP x(<=y51 OPEN #[S]ASN  INK x▜1 OUT " E[H]/(([H]<=(ABS ` CAT Y( SAVE LEN =(ATTR :IN (x LIST 1(;1(8CHR$ 1( LINE VAL [L](▝ BORDER  MERGE {PI AND ▟P(1y[O]( BRIGHT 3,(▗g(.,o>=y STEP [H](E( LOAD  PLOT  >=^v>= COPY  GO SUB >=(q[Q](K AND [Q] COPY  COPY  STEP TAN  COPY ^{ MOVE @yQ▚ DIM  PAPER PEEK D INVERSE :[I] RANDOMIZE S BORDER [A]'l! OVER  LIST  COPY  OPEN # FLASH ▜ COPY  ERASE  OR ]$AT? DRAW INT COS VAL$  INPUT [Z[E]DINT  INVERSE  BRIGHT  RESTORE  BEEP yNOT [J][C] RESTORE  LOAD Y DIM BIN UNOT kP BRIGHT @ DEF FN G MOVE  BRIGHT H[S]x RETURN 0[Q]FN O2[L]POINT 5SQR [P]H,[B]p  RETURN 'STR$  OVER  COPY K LIST *L[E] DRAW KATTR  CLOSE #h1O[I][B]H MOVE X PAPER ?[A]/G[B]W RETURN FN  BRIGHT SCREEN$ 4 IF ▘ CLEAR dH$[A]@8[B][S]D RETURN [Q]"[A]A AND D$ PRINT  BEEP A BRIGHT 08 LET [Q]@▘B)>=q! LINE [R]D ▜F( INPUT CODE  CLEAR FU▞BE BRIGHT 5[R] COPY  COPY P'SCREEN$  BRIGHT _[S]X[B]R ERASE ▖ BORDER  $j RESTORE W42 COPY [E] CAT sT COPY  POKE  %[P]STR$ *USR D0 CLOSE # LIST <> LPRINT ASN d8=.`>=L{$/[A] BRIGHT  COPY  LIST =SGN ZJ FORMAT COS +SGN } LOAD OSGN x READ ?0©FN 2SCREEN$ POINT USR / OUT AT © LOAD SGN SGN  REM  TO [E] RETURN ^ESGN SCREEN$  CLOSE #FN  MOVE O RETURN 'P([B] CLS [Q]G^ CIRCLE SGN 6▘UdINT {ABS SGN  RETURN  READ  LOAD SGN "+$▝ FOR Y[S]SGN * RUN  COPY SGN PBAT _R FORMAT  CLS  PLOT  [K][S][C]▖▝SGN k CLOSE # RETURN  OR W LPRINT USR  CAT  BRIGHT <$SGN ABS ;SGN AT g$SGN { POKE #SGN J PRINT ;3x[S]50~ INPUT SGN IN POINT  COPY  CLEAR [H]HSCREEN$  FLASH  OVER SGN J{ BEEP xSGN ATTR [B] SAVE TFN "KP)( RUN  CLEAR SGN 4 LOAD  GO SUB  REM ▘ CLEAR  DATA xSCREEN$ [S]g COPY BIN ACS [Q] LINE STR$ ▗) RUN AT SGN [Q]SGN FN CODE / ERASE SGN q OUT SGN [P][S] OUT ©  CAT @ATTR  RESTORE W FOR  INK  LIST bJSGN /g="SGN ▛, LIST lxSGN F STEP  DRAW p LOAD   IF ^SGN TAN SGN  LPRINT ABS SGN POINT ▟S▗ BEEP SCREEN$ SGN  CLS ^SGN FN D MOVE [S]IN  CLS x RETURN ▘ PRINT dg COPY SCREEN$ [A]@PEEK [S]/BIN TAN ;SQR SGN >[Q]Ux CLS ~SGN  ERASE  IF  COPY VAL ▟H/[S][P]/_SIN XFN [J]w RESTORE 4STR$ xdg COPY j RESTORE VUSR [U] DEF FN q[O]SGN 4[O]SGN g▞ AND W}@x4ATTR  LIST - LIST  MERGE  CLS SGN  PRINT  REM SGN zSGN PEEK  GO SUB  CLS SGN ! RETURN IN  OVER SGN  POKE  DRAW ;xSCREEN$ TPOINT <>QkDATTR  DRAW ^SGN  CLS  RETURN SGN  INVERSE COS  COPY ▘ DATA [A] RANDOMIZE @SGN [S]^'PEEK x COPY [R] RETURN ▘~} LOAD Bu>=*SGN CODE v▚ LIST ~ OUT SGN U FORMAT CODE H_[S]&&TZ[Q] BEEP z LLIST [B]R[C] LIST ( ACS w DATA SGN  DEF FN [O]ux#Y STOP SGN G PRINT SCREEN$  LIST  FORMAT SGN ACS g[J]2AT "y_xSGN  CLS ABS xPOINT  LINE Sl CAT  RUN SGN ASN  CLS x PAPER E BRIGHT x IF [A]YSTR$ 4u NEW SGN x[P] BORDER SGN  FOR  INVERSE x MERGE P=X LIST AT >=yPEEK SGN  OVER [H]AT ,SQR SGN 3AT = FOR AxSGN ▚ INK "TVAL 6h COPY ySGN  CLS i LIST  CLS  VERIFY xSGN <= NEXT SoSCREEN$ CODE Q DRAW -TAN  COPY  LIST  INVERSE  BRIGHT AT  MERGE [J]PI LIST [B][F]AT POINT _AT [L]YAT ?5 LIST  LIST d#▘▚ TO  NEXT SGN URSGN PEEK  BRIGHT AT : NEXT SGN >xY TO #h0>a NEW SGN h{ RETURN SGN  CLOSE # RUN  INPUT POINT  CAT  OPEN #SGN * STEP  FOR [B]/ESGN  RUN = INVERSE SGN POINT ▘q BEEP T DATA  REM x IF [S]:"Dl LPRINT $$Y COPY <=-h6FN  CLOSE #/[S]▟/T VERIFY COS  CONTINUE SGN  CAT  PRINT u"xH DRAW $pVAL `?[B] LPRINT @>=STR$ ▝[A]Y▘ CIRCLE USR VAL$  OR  DRAW  BRIGHT d,h4fCODE  COPY  OUT g READ  LINE IN EW REM SCREEN$ eU[Q]FN  INVERSE  COPY pB8/.W PRINT + MERGE <=| RANDOMIZE  COPY USR  CAT  BORDER  LINE ▙RNDH▝L(}CODE ^~SCREEN$  COPY  RETURN  CLOSE # RETURN  BRIGHT [M]:U LPRINT ©PIIn OUT  RUN [D][L] NEXT [Q]SIN |[E]T READ BIN a LIST xSGN ▟F_/[T]U+B4{Z PRINT k COPY  BRIGHT USCREEN$ T CONTINUE 5TBFTAN  LIST BIN  CLOSE # SAVE CODE -W COPY *0SQR  NEW A POKE  POKE  CLS USR P▘:<> IF  COPY _▗ READ W RUN  PLOT  INKEY$ASN EV[Q]TIN v LIST AT )IA▗ OVER  CLOSE #` 4J NEW ▙E MOVE hIN PIz@▖$ LLIST LIN #O MOVE h<q[T]i CLOSE #FN #INKEY$PATN  PRINT  BRIGHT > COPY  RETURN USR  PRINT  SAVE SCREEN$ PEEK UW DATA EXP Hw[M][C]LNOT _▝L[L] BORDER zIN ASN LATTR  FOR oPOINT ~STR$  BRIGHT  OUT  LOAD [N]RTAN NOT  BORDER  INVERSE  COPY .VAL$  GO SUB MjAT AFN ▚CHR$ |hLN  INK 0[B] STOP [U]A TO 0 NEXT TAN [R]e[B]H*~VAL$ L[Q] FORMAT FN P CONTINUE TAN USR ZVAL$ WH*▝ DRAW ATN [B]▗ RETURN uwj[I]gLN ph4LN Vp OUT )USR ▘TAN (p▟SCREEN$ USR  LPRINT H READ LN VATTR . AND ▗[R] FLASH  MOVE RNDBIN  IF P>SGN USR  LN  LOAD ) SAVE x BRIGHT U POKE E%*CHR$ [S]/VAL TAB [WM[E] NEXT [E]LN  GO TO FN   CLOSE #[H]^▜+X[B] DRAW ( FOR [J]D RETURN $ PRINT [A][S]@▟|! CONTINUE  RETURN  MOVE  INPUT  OPEN #H2 FORMAT :4 PLOT  l[P]@5:4v OVER 5 CLS AT M MERGE [F]▖'2 IF P RUN leo[M]t.:▗@$▚4xUSR [Q] POKE ` BRIGHT SQR  DEF FN  LINE |7& BRIGHT ATN  FOR [S] FORMAT U RUN USR  BRIGHT 4B▘[D] CONTINUE f[E] DEF FN INT RND[B]' BEEP @ PLOT  ▖ INPUT qATTR [A][S] FORMAT ▘FN [Q] PLOT  B[U]K ERASE  PLOT  RND| COPY S[C]7= REM UVAL$  COPY  LOAD ACS [M] TO /7`@VAL$ [Q]t CLEAR  READ u SCREEN$ 1▚@">;HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  NEXT  GO SUB s▛USR !USR ▞[w MERGE  GO SUB VAL USR  INK ! OPEN # BRIGHT  COPY  COPY ><> GO SUB LN 1CHR$  READ STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>[Q] OR D COPY [T]q J COPY  DRAW  IF BIN  RETURN  COPY  RESTORE 4ABS  RETURN  COPY  BRIGHT [T][B] NEXT ?q: POKE  FORMAT POINT  COPY P:[Q]u CONTINUE ▖ CLOSE #jPEEK  PLOT  T"x BRIGHT @:ABS BIN 1!CODE INT TAN AT iL TO @[Q] LET  CAT  LINE D BRIGHT  RANDOMIZE  CONTINUE FN [Q]TH"10([U]FAT  MOVE hIVAL$  COPY  COPY  COPY  BRIGHT ( STOP P;FN :L)T DATA BIN  CONTINUE [U]H(AT  MERGE  GO SUB OT▞ IF [K]▟▝~[E]E TO VAL$ w▘s RETURN &[H]JRND ERASE I[T][C]M6s COPY J▗ DATA AT T"( RUN INKEY$ CLEAR  MERGE ▘"@*8% COPY <([E] RUN @e-[A]$oP▘F[O]▞ CLS  OPEN # RUN  CLS @CODE  READ p 0#▟X, GO TO '~USR  LPRINT %qAT ▜ COPY W+E4* PAUSE SGN  LET  LPRINT ▟!NOT  DRAW ▛pPFN HACS [E] AND  DRAW  LPRINT USR EXP  LOAD { RETURN SGN  BEEP [R]CHR$  CAT H BORDER ▟©>RND4 PAUSE kPEEK [C] BRIGHT  COPY  COPY ▗ STEP INT ux CONTINUE T CLOSE #.[Q]I CLEAR  COPY +INKEY$M▚E▟[Q]GUSR VAL$  BORDER  COPY  CAT ( PAUSE V2 )PdE[A] LET  READ ATN U[S]BIN  BRIGHT T RETURN  COPY 5dz[A]SQR , GO SUB EUTAB RNDA▗%USR ABS E[E]k COPY  OR (D▞ BRIGHT + STOP  COPY W▞7Bm TO SCREEN$ FN  GO SUB e`L|>=l@)USR P(JX INVERSE © GO SUB V[S]$ BRIGHT  FOR U LIST SCREEN$ SGN  BORDER VD%A/▗▜@!0 CLEAR 8 SAVE ( OVER [M]+ BRIGHT y,8^Q▗+<> RETURN  COPY bP5# DATA [A*[S]QT, PAPER +▝ RETURN  COPY  BRIGHT g/SCREEN$ [S]U(TAN  CONTINUE  PAUSE  |IN _VAL$ j4/LN u PRINT  FORMAT [Q] LLIST  AND ( COPY BIN  COPY  BRIGHT UZ"TAN iQ^▟▜oIN VAL$ USR PEEK  LET :V BRIGHT ' RETURN t▖ CONTINUE " MERGE [Q]<=[S] RETURN  COPY 5T PAPER FN  CONTINUE E OPEN #POINT INKEY$ OR M`▙] PRINT *o8CODE  BRIGHT $ COPY  COPY [I]POINT EXP ] CLS [K] READ  CLEAR VIN RNDk DEF FN ASN  COPY  VERIFY [M](z CONTINUE  MOVE ~[U] BRIGHT  SAVE  AND ▞B▛J[D] RETURN SGN @[F][J]B"[Q]L*S_ CLS  DRAW T REM  BRIGHT 0r.▛▜([I] COPY /8AT FN XP▘ GO SUB  RANDOMIZE ,/T*(i[B]+[I]xW BRIGHT -[R]FN TAN Z|▝2LN [I]p*"!t~aLEN Q4 LLIST Ud2ASN ' LINE INKEY$ MERGE  DEF FN  BRIGHT  COPY  COPY h[U],j%FnPI7 ERASE Vh0q RETURN  COPY CODE )© PRINT  LPRINT " DRAW _ COPY  BEEP  BRIGHT  THEN ESTR$ % IF  RETURN  COPY ZTAB VUSR + PAUSE XQAT ▘ BRIGHT !. BRIGHT <8(▜ IF  COPY [F]r LINE ] LLIST `  PAUSE x@ABS v PRINT [M]AT F LPRINT IN  INPUT ~ COPY | LPRINT  OUT |ATTR ▟FBIN 9|▟]TUSR IN ]@t CAT  LET  BEEP  BRIGHT  SAVE  RANDOMIZE  DRAW  BRIGHT TAT )"~[Q] RESTORE ~ LOAD ? MERGE  OUT  BRIGHT 7z▘=1 COPY  SAVE  RANDOMIZE  COPY T IF FN USCREEN$ POINT EAO[M]PEEK BASN  COPY  PRINT  BRIGHT [Q]@▝[I]8AUSR BIN  FORMAT bVAL  LIST hxbPBpjb CONTINUE _K LIST  DRAW  BRIGHT j$RND[T]<=`YF OUT 5 AND TAB ( DATA TAN VAL$  DATA  READ  INVERSE }`(K MERGE ▘[A]Hs BRIGHT [J] COPY q COPY  LIST SQR  IF Y[(ATTR A DRAW ASN R BRIGHT  REM SCREEN$ UP[U] [E]TAB  INVERSE 8 IF  RETURN  COPY TAB = COPY  IF © MERGE SCREEN$  TO Mb NEW  L FORMAT !© STOP n CLOSE #@>}LN  REM  PRINT RSTR$ Ku[L] COPY tq© BRIGHT oSQR [J]m AND  INVERSE <=aFCODE 0 BRIGHT &{▟b LLIST  BORDER  LPRINT v POKE SCREEN$  COPY p CIRCLE ]BIN ©,TAB U MOVE  INPUT   LIST  NEXT G DIM  CLEAR  COPY  RUN  BORDER +©pASN  PRINT ZSCREEN$ RNDP CIRCLE  CLS ? BRIGHT  COPY  FOR U IF SCREEN$ D MERGE @[J]z6lAPUSR h4 LIST xATTR  MOVE SGN Vi| OR %,^ZN DRAW ▟ LLIST BIN =. RESTORE "'p CLOSE #[Q]` FORMAT NdSGN @z)% MERGE U DRAW LN ][E][H]+ DRAW  CLS e DRAW  BRIGHT IN  COPY ; LIST [S] DRAW  COPY  SAVE [B] COPY  LIST w LET [K] BRIGHT  NEXT T PAUSE [R]q"J LET h DRAW ▛[H]F DRAW  IF  NEXT 0▙ DRAW [E][M]b[B] DRAW p_[E] STOP  LLIST [I] POKE [W[B] RANDOMIZE  PAUSE [M] RANDOMIZE LN  PAUSE [Q] NEXT R[G]H OPEN #FN [Q][C] LIST Q LIST ▚TAB ASN  DRAW  BRIGHT ^V^[I] CIRCLE  DRAW [H] RANDOMIZE  VERIFY [P] CAT  THEN  PAUSE BIN bSGN P(▞@*p▞ !Z[I] COPY  ERASE = LPRINT t R0c DRAW VAL W▟ BRIGHT 2 NEXT VAL$  CIRCLE  READ U SAVE  AND  DRAW TAN ; RESTORE h DRAW RNDLN  POKE  OUT INT [E]©Xq[Q] CODE Q LIST  DRAW  BRIGHT  LPRINT BpH DRAW  ^0CODE !3 CLS J COPY  LIST U_SCREEN$  FOR W LLIST  LIST L BEEP  AND _USR <=ATTR `Fd8q READ / LPRINT VAL$ V LIST [S]yEXP  PAUSE  DRAW ▜DAT [O]pW▚[O]CHR$ _P[C] DRAW | OPEN # BRIGHT  TO sc COPY  1 MERGE [B][O]KLEN = COPY  RETURN [C] LOAD =2©PEEK  NEW IN >= BRIGHT X LIST PVAL POINT  MOVE  IF V STOP V0l<jUSR  LIST + SAVE A ERASE  INK x[M]4VAL %VAL  OPEN #h FORMAT >= DATA *E RETURN <>RAT  STEP J@H DRAW  H DRAW Z▞T PRINT SGN TAN  LPRINT [K]/[L] DRAW  CLS HBIN  POKE &!)[B]FE DRAW [J]B DRAW ▚ RANDOMIZE k DRAW  BRIGHT ATTR  SAVE W FORMAT [Q]|CODE [P][F])1J k[M]HM#0DJ DRAW EPEEK wP8ATTR ([B]xINKEY$^=PEEK ▖I,▘FN LN r ERASE ( COPY  BEEP  BRIGHT >=l.CODE SQR PI CLS  BORDER  COPY  LET CHR$ FN  RESTORE U STOP [Q]p INVERSE P}[K] INVERSE AT @>=BIN hRACS FN  CONTINUE >[F] FLASH ▙. AND q2▖` POKE ▚ DRAW [K]▟`[G]X▖9DLCHR$ [A]SGN [G] OUT [S]5LN  %4[I]H"kCHR$ ATTR LEN  REM <z LIST z STEP SCREEN$ lq[E]Lo@_VAL / BEEP  COPY >= POKE  CLS |BFN U LLIST M CIRCLE h GO TO @[M]/n'W COPY  COPY | LLIST  REM  DRAW =_▘ATTR  SAVE  RETURN !AT  OUT /RLEN ▟FtUSR `ATN [I]fe RETURN U[ LOAD  DRAW 5 FORMAT kB4YTAN INT ASN  COPY  LOAD P©/ LIST U DRAW *PEEK ^[A] AND m.5 OUT SGN ▟▘▝BIN  SQR aB[B]TAB @F(▟[Q]` COPY EXP POINT LN ` NEXT XVAL$  DRAW [USR [F]p(V+▞STR$  LPRINT yAT Z][ &|[E][E] OR  CAT [M] COPY SQR ▝/USR - POKE R OVER %WvIN * POKE CHR$ p FOR FN  FLASH h POKE SCREEN$ [U]ABS  BRIGHT | LIST 4 BRIGHT  DEF FN  LINE  READ ▟9[H]"CHR$  PLOT  . FLASH J9 BORDER LN K▖|- DRAW ]IN U LLIST SCREEN$ k`pPTAB } DRAW P}4G BRIGHT @[A]VAL " FORMAT  DRAW  DRAW F INPUT  CONTINUE  CLEAR ^LN  RETURN  DRAW  COPY  PAUSE  SAVE  LIST  INPUT s GO SUB  TO oJCODE  DRAW ^[E]/ STOP  RETURN !PI7O LIST [F] GO TO ▞L[I] LIST  RESTORE [I]ABS [U] POKE  PAPER  RUN  PAPER <>([Q]▞$[M] DRAW [I]~*▜U[E]CODE `i^[Q] DRAW 4PEEK  DATA ▖ CLS LN  SAVE " PAUSE b=AT  IF T STOP D▘@▗ COPY EZSGN K` LPRINT .J RESTORE  ERASE  AND  DRAW  BRIGHT ,[E]V[( CAT ! STOP 5IN  SAVE [P] SAVE ▟ SAVE  DRAW  LIST ATN ] BRIGHT FN  AND  CONTINUE [E]X▙  NEW [Q]TAB  CHR$  GO TO  COPY o[U]B FORMAT `▞▗ TO R RETURN c COPY  IF SCREEN$  BEEP U REM  AND  LET [E]F▛[Q] DRAW FN  DRAW  INPUT ▜[O]▚!GBPIM# BRIGHT [B]VAL  DRAW  LIST [O]` BRIGHT  OPEN #?[C]SQR  INVERSE 8BIN  INK >= LIST  BEEP  ERASE <= LINE L▟COS SCREEN$  RUN ▖U RETURN } RUN ACODE  CLEAR y[E]USR ▟ STOP  RETURN [C] AND P[A]#[G] RETURN  OUT { LOAD [P] OVER [M]b  COPY D▘ READ d▞▗b[S][B] DRAW [R]_[T] DRAW a DRAW  BRIGHT  MERGE  REM &TAG ERASE [E]BIN 7R VERIFY SIN  ERASE ▞BIN  FORMAT [R] DRAW [S]G$@ COPY w DATA [M]X[E]4 CAT  FORMAT PFN  ERASE [Q]Aj PLOT  (K[A] TO  INK INT H INK [I][N]=jE2[ COPY a8 ERASE ▗i DRAW pC[N]D OUT  CLOSE #[Q]E RANDOMIZE TLN [U],[Q]l LINE D BRIGHT [K] DRAW W0[T]^Rn*U STOP LEN [S]2 x PLOT   IF  POKE / CONTINUE  OUT P> INVERSE  PRINT BSCREEN$ @POINT  BRIGHT  GO SUB :[P] SAVE  BRIGHT  MERGE  CONTINUE 0[A]▖u COPY A@#W▜SGN ?A[G]? IF ©FN 5▗J FORMAT COS  COPY LTN PAPER SCREEN$ ? RUN AT  LLIST  LINE B VERIFY ▗F COPY cN( POKE ?SCREEN$ }Tz[Q]t[T]nACS  LPRINT  FOR  )4~ READ [Q]1 A▝[C]!ZV!ASN  AND SCREEN$ ([▟ NEXT k[E]FN  CAT Pt© SAVE  PAPER POINT ▛ IF FN [O]5 PAPER  INVERSE  DRAW bSGN 5px9 LIST  RETURN $TAN {J REM [U]T@COS  CLEAR  CLOSE # NEXT n/%UNOT oBIN  BRIGHT ;<>] RANDOMIZE  BEEP |H&UVAL$ [K] DIM  BRIGHT  ERASE SIN  MOVE >= DRAW ABS  LET HSTR$  CLEAR ▜SCREEN$ UU DRAW ©▟IN  DRAW [E]j NEXT 8 INK  ERASE NOT  DRAW  BRIGHT u CLOSE # NEW  COPY  TO A REM  SAVE IN S*VAL ha" POKE  OPEN # DRAW LN Z SAVE  BRIGHT  SAVE 0 IF DCODE `/ RETURN  BRIGHT SIN 0<> SAVE  BRIGHT  AND ;>=PEEK A< RETURN V/ PRINT  PAUSE X©* LPRINT  PLOT   LPRINT +[I]H PRINT I DRAW 'A<AT  DRAW  VERIFY ]RNDP COPY 7pjUSR LN  FOR  LIST [L]ATN  MERGE  RETURN H~| DRAW p▜ INK [E] DRAW |# BRIGHT A? !0#[B]H+q"©!*K$U[U] THEN [E] DRAW aDVAL  RETURN  FORMAT ▙ RETURN  PRINT COS  LET [P]([U]|[G][E]exAT  DRAW  LINE [J][E]YV DIM : RETURN [G]q GO TO  RETURN  BORDER ©[E]&i CLEAR [E]0a▞ MERGE cR DRAW ~ VERIFY [E]SQR SCREEN$  RETURN  PAPER 0AT (BIN  OUT NOT LN  CONTINUE u RETURN UVF0"[B]>@[B] SAVE  OVER ( COPY ATN x^8 STEP  RETURN  BRIGHT Fc{8?[G]TAB :AT  SAVE ▟▞ DRAW  POKE  DRAW 2 READ J% BEEP  DATA  LET ATN F LINE  LPRINT  MOVE ([Q]FN [M]%& DRAW  POKE  LIST FN TD" POKE d[U] LIST LN b[E]VAL$ g LET  RETURN  DRAW CODE VAL  RETURN [E]VAL ^NOT  DRAW  BRIGHT [Q]F` LINE TAN NOT  DRAW ▗LN LN ▝E08 COPY [E]F INK [I]}[T]© LINE  RETURN [N];[E]CHR$ FN uPSIN fVAL$  FORMAT < GO SUB  DRAW  DATA  LPRINT  MOVE @SCREEN$ CODE BqSQR y BRIGHT # DIM AT  RETURN  LIST ▟F TO ▗<=©▘▘v DATA  LIST AT O NEXT VAL J[Q] DRAW /dAT [O]IN  GO TO  FLASH ABS  CIRCLE [L]q( FORMAT AP DRAW h▞o CONTINUE u COPY  POKE  COPY z CLEAR ~STR$  COPY 0© CAT  OUT  BRIGHT  LIST ATTR [S] COPY X CIRCLE X RETURN . COPY ^h<PEEK  INVERSE  RETURN  BORDER ABS  BRIGHT  PLOT   COPY #t; BRIGHT  ERASE  STOP BIN  CLS  DRAW CHR$ U@SCREEN$ ▘ DRAW PJ DRAW - POKE ASN  DRAW [E]*TAB [E]▜▞ DRAW  COPY USCREEN$ t LET  DRAW  # FORMAT  POKE p RETURN  CLEAR [Q][A]H$FN [E] FLASH [E]SCREEN$  POKE  MERGE  COPY  BEEP ▖n PRINT  IF ATN /B[E]B*(T▗zFN &ULN Q[Q]SCREEN$ [A]FN [H]FN  DRAW ▖^[J]F BRIGHT a▘ COPY  COPY #>~< LIST  DRAW 87 COPY %UIN +6Q4SQR qL$SCREEN$ $hL NEXT  BORDER  REM  MOVE  COPY ~▙| DRAW  COPY  DRAW CHR$  GO TO Ul( CLOSE #` PAPER $ GO SUB $[J]H[F] CAT ( SAVE ▛ BRIGHT E RUN 6 NEXT 4"[B] CLS }©SQR $[+SCREEN$ SQR gVAL$ 0[U]?<~IN XEE OUT ` LOAD $" LET l COPY , OVER  INVERSE [A]© PAPER h CLOSE # `SCREEN$ [U]VAL$ vSGN ><|▞ BRIGHT  INVERSE  BRIGHT  COPY vw LLIST SGN ▟ IF STR$ ©Z[M]U IF  SAVE k[U]E IF A IF  DEF FN ]* POKE USR  LPRINT SCREEN$ YCHR$ `CHR$  OR `[U][Q]9>=PFN  POKE © STOP RNDP( VERIFY V^@TAN ZQ[M]AT > OVER LEN r3TAN  IF  DRAW AT : IF T IF [[R] RETURN  LET ~Y▛/ RETURN  RETURN STR$ iSTR$ j BRIGHT PEEK n(j CIRCLE dBIN gzJ IF SCREEN$ >= IF A SAVE Lpj^ OR 2(@RHa POKE  STOP @j[O] LINE [S]/PEEK n4Fvp4TAN /pSCREEN$ v IF :R[Q] ERASE  OR NOT p RETURN NOT  DRAW  BRIGHT j@ CIRCLE  THEN  RESTORE BIN dLN FN @[E]jEjp[M]▞j POKE  IF  LIST B* MERGE  IF [R][R]B IF ^ CONTINUE =TAN  STOP <FtTAB [Q]|(SGN p NEW ASN  INPUT ▖LN [O]a#v COPY [J]gP COPY P COPY q AND [Q] COPY [Q]f[K] COPY  LIST VAL$  PAUSE  IF POINT * THEN ▞UB[Q]>TAB P FORMAT HW BEEP F[S] LPRINT ocCODE  POKE IN ▟F[ REM ▚M GO SUB  OVER  POKE ©j4PEEK ] MOVE  POKE  DRAW ATTR [J][T]1 POKE  LIST w MERGE  AND PEXP  BRIGHT ?C▟ACS  BRIGHT BIN  POKE ▟T IF BIN  CLEAR &U|[C]SGN  CONTINUE / TO [E] CIRCLE  CLOSE # STOP [[Q]Z$nASN USR ./h[P] LPRINT ) POKE ! [Q][D] BRIGHT B@ READ k CONTINUE pUSR ~ OPEN # STOP  )I4 VERIFY ▞ CONTINUE ~ OPEN #9 VERIFY p/ FORMAT  RESTORE  OUT ▟[R] CONTINUE FN  BEEP TRrSQR |} INPUT p++[N] INPUT PEEK nT+VAL  COPY FN 4_ FORMAT [U]BIN  INPUT INT  LINE C[D] CIRCLE  POKE  IF _BIN  REM  PAUSE  PAPER  COPY VAL LN USR PEEK [C]▚| MERGE |FV POKE [E]n NEW  THEN PEEK SGN h BRIGHT SIN <1Y*▝AT XpDVFD▙ATTR 4=RND[R]^( LOAD p:)[K] OVER Up SAVE RNDVAL$ SCREEN$ ▘!%pSCREEN$ pBIN }dBIN WLN dIN [I] CLOSE #[N] POKE  CONTINUE GPOINT  FOR ATTR 6" OUT p LOAD PIz BEEP | LPRINT @I OVER p INK ©nwEXP , BORDER  IF CHR$  LIST VAL$  CLOSE #USR  CLOSE # FOR P▞Dh POKE Yx#▛R(ACODE VAL$ U[F]BIN p POKE Z| LIST Uc READ [O] POKE G( NEW  ERASE LEN FN BIN ) POKE EXP [K]QSIN  OVER ABS 2SIN | MERGE INKEY$ GO TO +POINT  IF t LOAD z~COS _ GO TO  DRAW uXIN xSGN  INPUT VAL$ CODE  RESTORE [B] BRIGHT  IF ▚F$ LOAD  IF PEEK  LINE ACS G IF SGN ch▛ COPY  RESTORE USR SCREEN$ WDlJ▞ BEEP  LPRINT &AT USR  POKE  IF SCREEN$ 0 DATA  IF [Q]VPOINT  IF INT  OUT 6 STOP  STOP 4[A]>=@jd[R]P[R] LLIST UVAL  SAVE ▚Hp@ IF (x MERGE  IF YTAN  LIST |] INPUT  ERASE (CHR$ <> TO LN  IF dr IF  LIST ` LLIST B8P LET H|CHR$ , GO TO INT  STOP 0PEEK  LET J#~ IF 8▞ LET > IF  AND 65 IF  NEW  STOP ][T]_R^[E]2" PAUSE [U]QvLN <SFj FORMAT  IF  RUN [U][U]▘ IF  LIST  BORDER  IF  PRINT BCODE  PAUSE  LPRINT  MOVE Bd[G]| CLS ATTR  PAUSE GjRNDc LIST @BIN 0* IF  VERIFY ~`<>AT  NEW UUSR AT  PAPER SIN  AT 4▘B0SQR  OVER ▝= IF $USR ABS jSGN  LINE ASN [O] GO TO PEEK  IF >Z~[I]l LPRINT BIN  FORMAT SGN BR BRIGHT ▖ABS 2| CLOSE #ACS Hb IF /{ SAVE /F LOAD [ IF )8+P▘ IF <>=[E] IF bTH IF  POKE [A]H IF F`^> CIRCLE U LIST N▝ PAPER U *< DIM  GO TO $x[K]@VAL$ ^ COPY >y] LINE Y CONTINUE ABS INT BB BRIGHT ▖[S]Ra IF |R< CONTINUE , FORMAT x IF SGN  INVERSE  OVER pIWLN SCREEN$ BpATTR mPEEK @[[R]TAN !; DIM dT IF  STOP  REM  DRAW 2[U] LET $u[O] DRAW  LPRINT yiz DRAW ▞ NEW  AND  RETURN IjPEEK  DRAW  RETURN  REM  READ  RETURN [Q] LIST _ RETURN F[F] SAVE  RETURN FN ▟ RANDOMIZE x~ COPY  J{JH PLOT  N PLOT   PLOT  [C] CLS CODE 9VAL$  LET LA%B[T] POKE AT e8 ERASE NOT 4I8LiG0 COPY  COPY  COPY  COPY NOT  COPY F%@v PRINT  POKE  PLOT   INPUT ABS x▝ RANDOMIZE J STEP  CIRCLE 0 COPY  FORMAT vg FOR >=b REM [@+ ERASE PI LLIST  CLEAR  READ R DIM K LIST 0WCODE  STOP  POKE  LLIST <><= CONTINUE ACS ▟O[P] SAVE  POKE >ER CONTINUE SCREEN$ STR$  DIM kVAL$ VAL U>HINT >=ATN  IF  RUN M DRAW  CAT POINT  IF ; SAVE kATTR HFN  DRAW u SAVE  MERGE  SAVE  NEXT R[S][C]INT  CONTINUE  SAVE INKEY$[T]TUSR ^85D[A]▚!FN  OR  VERIFY "$ RETURN USR l▗[Q] DEF FN ▞Rz$BIN D COPY 3TAN p MOVE !▘ COPY USR TAB BcC▗1? RETURN G@/[Q]  LET p[A]g RESTORE FN SIN VAL$ @ REM  CAT EV▚c8[O] LPRINT  DIM  DATA ZH LIST  NEW [Q] STOP P [A][J]@ AND  BRIGHT  LET h BORDER H; OVER  CLOSE #▛ IF W LPRINT  BORDER  AND  LET  IF [F].INKEY$vTAB  SAVE mRNDrk[P] CONTINUE  PAPER  RETURN ^|u© FORMAT * IF >=SCREEN$ ~▟ OPEN #k| REM SCREEN$  RETURN h IF  PAPER  READ T( OPEN #SCREEN$ ▖[C] RETURN >}RNDW"|BINKEY$H▚ RANDOMIZE Z[M]$ABS POINT }▚▗▘aEXP k BRIGHT ( INPUT  BRIGHT  CA OVER XHXASN [N];U▖SCREEN$ IN [R] RUN u DRAW P[O]7 RETURN +F INPUT  PRINT ^ NEW  RETURN TAN  MERGE  IF U}m GO SUB [C] MERGE *ATTR  LOAD  STOP [N]{T RETURN ▛ CLOSE #)kCODE  FORMAT NOT FN [L][T] GO SUB  DIM ATTR 2 DRAW EWHTAB e"RNDh▗x READ PoABS $^P,I=Q= INPUT  RESTORE  SAVE  OPEN #t| RUN USR  CIRCLE !@[L] ERASE /▘▖ REM  INPUT [C] OUT  OUT RND[O] LOAD  NEW  PLOT  ▝U NEW  COPY "kACS [Q] COPY  RUN ▙ COPY  DATA r]BIN COS [I]N9/AT  RUN ▜ NEXT [Q]m RUN ` CLS [L]h▗ GO SUB = RETURN &b[M]<=e.▚ COPY  ERASE ▖[Q] GO SUB  STOP ©/)SQR  CIRCLE  PRINT [H]LEN xNOT I POKE )  COPY G DRAW  STOP  RESTORE  RESTORE _ CIRCLE  RESTORE ._PEEK (( LINE POINT 7([D]p(Gz1(▛ LPRINT ▛((8 GO TO (1 RESTORE [L]([U](K OPEN #SGN  RETURN "SGN ▖ PAPER (▟zSTR$ e( GO TO ▟[H]( CIRCLE ACS (▛0| FOR (P DATA {(YSx(1FxSGN  COPY (SGN [M] TO ( LET m(E9<=(. OUT ▘(  READ 41( COPY  REM ((;NOT C(x PAPER }`x[H][O](A LIST ▘1(;W COPY (N LET  AND (Ih THEN (@[L] OPEN # NEW (<=1[N]W OPEN #[S]R[L]x▜1 E PAUSE -(| RANDOMIZE (F( DRAW /( SAVE CHR$  OPEN #()[N]_(Gxx1(l▗1( LET (ABS M LINE (▝ NEXT rf{PI READ  AND P(1<O( BRIGHT [G](▗g(.PIASN >= FLASH  NEW ▛(E(w CLS >=/SQR >= COPY v>=(8[Q]( READ K[Q] COPY  COPY Z STEP  COPY CODE ABS  MOVE @ REM m INPUT t PRINT D INVERSE  TO  RANDOMIZE S BORDER [A]' OVER  OVER  LIST  COPY A BEEP USR  PRINT  ERASE $©qATINT COS VAL$  INPUT  MOVE [ZINT  INVERSE % BRIGHT  RESTORE NOT uVAL$  POKE de LOAD  DIM BIN CODE }UP BRIGHT @8G MOVE  BRIGHT H SAVE [S]x0[Q]FN O2[L]POINT 5"SQR ,[P]|[B]p STR$  OVER  COPY K LIST ? SAVE *L[E]KATTR  CLOSE #" LET h1O[I] MOVE  COPY DX[A]/G[B]?kW BRIGHT SCREEN$ [Q][R]4 IF ▘▞ CLEAR d[A]@N$[S]D RETURN [Q]$A1[B]$ PRINT ASN ▗A BRIGHT N DRAW 0[Q]@▘B)>=/ LINE [R]H▜ ( INPUT kIN FU▞BE BRIGHT 5 COPY  COPY [R]P'SCREEN$  BRIGHT _[S]X[B]R ERASE  RANDOMIZE STR$ ▖ $j RESTORE W? RESTORE 42 CAT sT COPY  POKE  %g LIST *USR D0 CLOSE #| PAUSE  LPRINT ASN d8=.`>= OPEN #$/[A] BRIGHT ?<=SGN  POKE  GO TO ZJ+SGN  OUT ;O OVER xSGN ?0©FN 2SCREEN$ POINT USR K OUT AT  OUT  CLS SGN SGN  REM  TO IN  BEEP [E]ESGN SCREEN$  CLOSE #FN  COPY ▞ MOVE OP( RUN D[B]$ PRINT CHR$ SGN 6▘UdINT  OUT  FOR SGN  RETURN ©SGN "+$▝[S]_ CAT SGN *IN  COPY SGN P LIST AT _R FORMAT [K][S][C] OUT ATN ▖▝SGN k OR W LPRINT [Q] PLOT  USR  CAT  BRIGHT  LLIST  INK $SGN  FOR  INVERSE SGN g=$SGN # INK [T]SGN J3CODE  OUT x[S]50~"pSGN IN POINT  COPY  CLEAR PEEK DSCREEN$  OVER  PLOT  SGN J OUT SQR xSGN ATTR TFN ▞BIN KP)(IN  LOAD SGN 4 REM ▘ CLEAR ©o DATA xSCREEN$ [S]BIN ACS = CLS [Q] LINE STR$ ▗)SGN ABS g[Q]SGN FN / ERASE FxSGN ▞ CLS SGN [P][S] OUT  RETURN  CAT @ATTR  RESTORE W LIST bY CAT JSGN /"; FOR SGN ▛,x▚gSGN 4j DRAW p zgSGN TAN  MERGE  RUN SGN  LOAD SGN POINT ▟SSCREEN$ "SGN SGN  OUT  RUN SGN FN D MOVE [S] COPY  INVERSE x RETURN ▘ PRINT dSCREEN$ [A]= CLS @PEEK [S]/BIN TAN SGN  FLASH  INK >[Q]Ux OUT  RUN SGN  ERASE VAL ▟H BEEP  COPY /[S][P]/_SIN XFN [J]IN +4STR$ xdj RESTORE V< CLS USR [U] DEF FN SGN  NEXT 4d LIST SGN  AND :KWx GO SUB PIY LIST - LIST CODE  OVER SGN CODE WSGN zSGN PEEK n OUT SGN ! RETURN  RANDOMIZE  PRINT SGN  POKE  LPRINT  OUT xSCREEN$ TPOINT <>Qk" ERASE ATTR  DRAW  LIST SGN  OUT  RUN SGN  INVERSE ▘ DATA [N] CLEAR [A] RANDOMIZE @SGN [S]^? LET x COPY [R] RETURN ▘~Bu>= FOR {*SGN ▚~ASN  LIST  LET  CLS SGN U FORMAT CODE H_[S]31TZ[Q] LLIST SQR  VERIFY [B]R[C] LIST (  DATA COS ABS SGN  DEF FN  RUN AT x#SGN  STEP GAT W LIST  FORMAT SGN ACS : THEN 2AT "x STEP  CLS SGN  OUT  LOAD xPOINT  LINE Sl©PEEK SGN VAL$  INVERSE x PAPER . STOP x IF [A] CAT 4CODE 3SGN x RETURN <SGN Z LOAD x MERGE P GO SUB STR$  LIST AT >= TO  NEXT SGN  PRINT PEEK AT SGN 3g INK AT A INPUT YxSGN "TVAL 3 TO 6h CLS  CAT SGN  OVER O LIST  OUT ATN xSGN <=SoSCREEN$ [H][I]CODE Q DRAW -INKEY$ CLEAR  LIST  GO SUB  NEW AT  MERGE  TO < LIST AT POINT AT _AT  INK  TO AT  CLEAR POINT  LIST  LIST d#▘▚ TO UR[O] BORDER SGN  RUN  RESTORE AT  VERIFY [J]SGN >x CAT b#h0>3SGN h OUT  NEXT SGN  CLOSE #POINT  CAT IN w OPEN #SGN *[B]/i^ESGN  INVERSE PEEK  LOAD SGN POINT ▘T DATA  REM ▞SQR x IF [S] BEEP Df$$Y- CLEAR ?h6FN  CLOSE #/[S]▟/T CONTINUE COS [O]SGN  CAT "CODE CODE x$D STOP pVAL ` DRAW ▞ LPRINT @>=STR$ [A](▝[A]>=▘ CIRCLE USR q- DRAW  BRIGHT d,F[T]fCODE  COPY  COPY g READ  LINE IN EW REM SCREEN$ eU[Q]FN pB8 INPUT  RETURN /.W PRINT +CODE >|USR  STEP  COPY  CAT  BORDER  LINE ▙RNDH▝L( LOAD {^~SCREEN$  COPY  RETURN  CLOSE # INK  LIST  BRIGHT  READ  CLOSE #U LPRINT ©PILr OUT  RUN  NEXT [Q][O] BRIGHT SIN |[E]Ta LIST 'xSGN _h4/U MERGE +B[T] INK Z COPY POINT _ BRIGHT USCREEN$ TBCODE T2TAN  LIST BIN CODE -RND AND W COPY * NEW A INK  POKE  POKE  OVER ?USR P▘ ERASE I IF  CLS  COPY ▗ READ W RUN  PLOT  INKEY$ASN EV[Q]T RETURN ASN  LIST AT )IA▗`  PAUSE INKEY$[T]Q NEW ▙E▟F COPY =z@▖#LIN #O▟F<▟i CLOSE #FN 1PATN  OUT FN  BRIGHT > COPY USR  PRINT  SAVE  POKE  LIST SCREEN$ PEEK UW$/EXP H[C]INT  READ L▝ RETURN LzIN  OVER <ASN LATTR  FOR oPOINT  POKE  BRIGHT  OUT R© LOAD TAN NOT  BORDER .VAL$  GO SUB  INPUT  RETURN MjAT AFN 7|hLN  INK 0▞[U]A NEXT b▚TAN [R]e▟D* LIST sL[Q] FORMAT FN PLN P CONTINUE TAN PEEK ZVAL$ W*D*▝ DRAW SQR ▟▗ LIST CODE w[I]Q OPEN #gLN pF[T]LN V▗ CLS )USR ▘TAN (pSCREEN$  OUT hUSR  LPRINT LN DVATTR .5&[R] FLASH BIN ▟. IF PUSR   LIST  LLIST LN )y BEEP  SAVE x BRIGHT U POKE *-*CHR$ [S]z▝TAB [ABS j[E] NEXT  GO TO [R]BIN FN  CLOSE #▞[H]^</X[B] DRAW (D[ CAT  RETURN $ PRINT [A][S]@j DATA ! CONTINUE  RETURN  MOVE  INPUT 2[M]F FORMAT :4 PLOT  @5f CLS :45SIN  NEXT  CLS  MERGE am[F]▖8[B] IF PSGN [P]ley READ :[R]s▗@$x5[U]USR [Q] POKE ` LLIST  OVER  DEF FN  LINE | BRIGHT LN 1ATN  FOR [S]U▘[O] RUN USR  BRIGHT [Q]T[D]h@[E]1▛ DEF FN INT RND▟< BEEP @ PLOT  ▖ INPUT ▟[[A][S] FORMAT D[Q] PLOT  B ERASE '] PLOT  RND LLIST  CLS S[F]SGN = REM UVAL$  COPY zATN [M]7g NEW `@VAL$ [Q] READ [Q] FOR u SCREEN$ 11 DATA @"> CIRCLE HRUM v3.5 by Dmitry PyankovTel.(38822)-4421