Capitan Trueno 1, 2: C.TRUENO.B

  0 REM *  LOADER BY © Dawidow  1998   *
  1 GO TO USR 4: NEXT ![C]]}AT  GO SUB O(© GO SUB _FN ASN VAL$ w#T DATA P GO SUB  PLOT   LLIST ▛ READ n@r[F] SAVE  CAT ? OUT $COS  INPUT [K] TO [RRND[S] IF  NEXT  BORDER 5 GO TO [N]
  65535 REM  © Dawidow  on 10.02.98 SCREEN$ ======== HALLO,   GUYS!!========SPECTRUM   IS   B E S T !!!!!!!! NEXT  THEN 7?>SCREEN$  PLOT  SQR  INPUT  TO  DEF FN  INVERSE  THEN ' GO SUB O1 LOAD ah© GO SUB _/_ GO SUB C FLASH ap GO SUB _VAL POINT W© GO SUB q GO SUB ph LLIST  GO SUB _AT ATTR g© GO SUB _TAB SCREEN$ o© RESTORE  LLIST xLEN AT G:[T] BORDER ▖N AND ▙ DIM [I] VERIFY  PLOT  BIN 5ACS [O] PRINT STR$ <=COS [G]D BORDER !wv▙ STOP !oFQ VERIFY lFN '▜ATN pATN 1^ CAT CHR$  GO TO a^ IF BIN  DEF FN [M][G] LIST [C][F]K RETURN USR  RESTORE i VERIFY  NEXT  INPUT  DRAW  RESTORE i VERIFY  RUN } CLOSE #[A]>=. VERIFY >=}+d2CHR$  CIRCLE PEEK ~ RESTORE  GO TO  COPY = CIRCLE ATTR PIAT  OPEN #[N]TVAL 7 FOR  GO TO SGN VAL PI FOR  CIRCLE  FOR J[I] CLOSE # FORMAT  CLOSE # COPY IN  IF 5FN QPEEK  LIST  OR  VERIFY ]CODE G STEP TAB  RUN  DEF FN &POINT [N]<=;) NEW PI[F] FLASH VAL  DRAW = OR  RUN  LINE 6[R][A] OUT  POKE  CLOSE #TAB [P] RETURN  CLOSE # RESTORE m AND  COPY ) BEEP  BEEP ▖A GO SUB  CAT 1 DEF FN [I][F]▚ CLS [H]i COPY  COPY 9AT v NEW S TO  STOP "w>=[H]▜> SAVE p▚dROVAL$ [K][C] BEEP ▗'COS l[N] IF ~ FORMAT © LIST ▜ LOAD $n MERGE  FLASH  FLASH [P][L]4wZ CLS ASN  LIST  BORDER [H][R] VERIFY  INPUT PI▖h DRAW  LET  DIM z7ZPOINT VAL$ "t▝ BORDER ATTR  ERASE  STOP t AND SIN ASN  OR ho INK 1:INKEY$j LOAD  BORDER [H], INK p2)[A]EXP ▝$[I] DIM  INPUT [H]vY CLOSE # PAPER  FOR POINT [N] CAT  LINE  LLIST b TO  OR  LOAD SQR ▜d SAVE yCODE ▗<>>o>=lTAN BIN <= NEW POINT  PRINT  AND  GO SUB ASN  PLOT   DIM  TO 2 DEF FN  TO a[B]ABS [Q] RUN  FOR ▘NEXP $ CIRCLE 2RW LOAD  BORDER  DRAW  VERIFY ATN <=>=©INKEY$PEEK [J] STOP AFN [M]SCREEN$ j OUT  INK @[F] BORDER  PRINT w PRINT ASN [R]SIN  PRINT h NEXT z LET  CAT  AND  DIM ▜'P:LN 1▙[A] GO TO p<> RANDOMIZE CHR$ CODE  READ ▜X BEEP  BORDER 8 FOR   CAT 4<=[R]t LET  RANDOMIZE +<=IN INKEY$FN |▝INKEY$ IF Z LINE &/▚ LIST POINT ▚G[D]TAB 8[H]<=▘$y INK  CLOSE # MERGE  BORDER  PAUSE INT  DATA ▗ACS  DIM  RETURN  RUN NOT  LPRINT z▖VAL$  INK ▜b▜W CAT  BORDER TAN UIASN ^ BORDER  TO [U][E] BORDER ▝i BORDER  LLIST ACS ASN  DIM [U] RUN x[Q]▜[S] CONTINUE POINT TAB  NEW 6(2z1 INPUT  DEF FN  DIM ▜ LOAD  NEXT COS 1 LPRINT PI READ AT  RUN  DEF FN IN  FOR TAB  LOAD  CIRCLE  OUT  LLIST  OUT  IF <=DABS  CIRCLE  POKE  PAUSE [T]FPOINT Q<= LOAD  FLASH SQR ▗9 GO TO W([B] LIST  DEF FN ATN ▝ LLIST STR$  LET  INPUT SQR [H] NEXT I POKE [A]EXP  LPRINT  LET j[R] INVERSE  LOAD  MOVE  ERASE  INK USR  LOAD <=[O] RETURN '[C]# NEW BIN FN = STEP  PLOT  EXP  FLASH  RETURN IN  NEW  NEXT [I][H] CLS  CONTINUE  INVERSE 6 REM ▖ BEEP STR$  BEEP SCREEN$ ASN Q▘<=NOT IN ▗ INPUT ▜ DEF FN [Q][O] STEP  INPUT ▘ OVER  BORDER [H] INVERSE  INPUT ▘ OVER CODE ▙[Q] DEF FN ▝ RETURN VAL$ VAL$ [T] RETURN  RETURN  MOVE ▜[T] RETURN  DEF FN STR$ VAL$ INKEY$[O]VAL$ ▞ INVERSE VAL$ [M][I] RESTORE  AND  FLASH FN INKEY$POINT USR [I] NEW CHR$ {COS [K]STR$  ERASE  INPUT COS <> LINE  COPY  STOP STR$ INT FN u RANDOMIZE  STOP  OUT  PAPER  OUT [S] INPUT [O]POINT  LINE IN SIN [B][P]O BEEP <> BEEP  INPUT ▞ INPUT  DIM  LINE [B]▙[G][P]_ GO TO POINT  INPUT  AND COS  LPRINT AT  DIM  VERIFY  LPRINT [P] REM -P COPY  FOR [B] GO TO  FORMAT ▜ DIM ^[R][Q]SCREEN$  AND hk[O]%CODE [I][N] BORDER I[I] DATA ▙ LOAD IN  TO  DIM  STOP jH LINE  ERASE  BORDER ▖▗ OPEN # RUN 5INT [H]<=/ STEP 0BIN ▛ASN HSGN  TO <= LOAD  GO SUB ▞ STEP  RUN <=SIN  FLASH ▜▖ FORMAT  ERASE ▟~&9[P]RND[K] THEN LN  LPRINT [F] POKE  PLOT   DEF FN  COPY u CAT TAB  CIRCLE  POKE  PAUSE POINT [▞ CONTINUE  CIRCLE ▙ CLS EXP  LPRINT  BORDER [R][H] RUN [P][Q] RETURN eACS  COPY [N] INPUT  THEN ▙[P]# PRINT  CLOSE # FORMAT [M]USR : CIRCLE [H]VAL  RUN  CLOSE # OR  OVER  COPY [F]TAB <=7)[H] IF 4 CLOSE # NEW  CONTINUE $[A]SGN  MERGE  LLIST p▙▙ PLOT  [Q]H[D][F] POKE [S] AND  PRINT [B]i<=PEEK  LLIST 6[B] RUN <=FN B_[P] INPUT BIN Y[G] LLIST  AND [P]_[J]FN  AND TAB v LPRINT ▝POINT  LOAD ▜ INPUT  BORDER . CIRCLE  ▗CODE  POKE ABS ACOS b▝TAB Y<=▙ LPRINT ATTR  IN v CAT  DEF FN  OR [P][K][A]&CODE <=AT  DEF FN [R][J] RANDOMIZE [Q] STOP w2 SAVE LEN EXP #[H]AINT & THEN ▜X FORMAT  CONTINUE LN  IF  GO SUB [H] CIRCLE <=CHR$ [A] PAUSE [E] CAT h1CODE ▜[C] STEP  RUN u[U] LIST w AND  FORMAT VAL  NEW  BEEP G▗9VAL  NEW  CAT [B]COS  PLOT   BRIGHT  RANDOMIZE ATN ~▙ FORMAT <= READ ATN [C] PLOT   CAT 8 LET Q▙ BEEP USR  AND [A]▞ PAPER >= OVER  SAVE ▚ STEP  DIM USR YjN BEEP  AND W[B](STR$ ▙GVl▖V OUT  CIRCLE  LET  LINE 2g}' DIM  BEEP ▚[P] CLOSE # LOAD  NEW  COPY [A] LOAD  INPUT FH▗4 VERIFY [S]o8 OR + COPY ASN  INVERSE  INVERSE f<= PAPER  CONTINUE  CLOSE # OUT [H]R▜ THEN PI BEEP  COPY [F]INKEY$▟[T]fr[H] BRIGHT E LLIST o▖k COPY Gi>=O[I]R= OVER  CAT [J] DATA  STEP  INK h[C] PRINT gJ CONTINUE  INK ATTR [J]VAL$ N)y LOAD ▜[M] LET  DATA ▞[J]NOT  OR  NEXT  OPEN # BEEP STR$  RETURN ▘x NEW  OUT  PLOT   PLOT  % BEEP AT  COPY  INPUT  DIM  OR V[O]D[O] LET RND▟iSN LINE [H]c LPRINT ATN b LPRINT  GO TO [F] STOP M)[G]▝GB COPY STR$  RESTORE f6▗ LLIST [G] OR uLN lCHR$ [S] FORMAT O▗ PAUSE ]0y[P] CIRCLE  VERIFY [ BORDER [A] GO SUB [R] PAPER  GO SUB  BORDER KW RETURN GCOS  TO  COPY  CLS POINT  STOP CODE [H] NEXT | DEF FN ▛ DIM  BORDER  INPUT AT  OVER g▖[I] CAT  BORDER NOT  VERIFY  MERGE  CONTINUE <=FN [L] INPUT |= BORDER VAL  LLIST  OUT @}vl[P]USR PI[A] POKE  LLIST <=Hb▚[I]*8 VERIFY [M] OR / FORMAT Ll` RESTORE  BORDER VAL$ INT  RUN  LINE  CLOSE #)[G]Dx STEP  BEEP [N]b NEXT  READ MX*▚iATN KVS GO SUB  ERASE LEN  PLOT   CONTINUE  BEEP  OR r PRINT  BEEP [M]8 BORDER  LET [N]1 LET  IF ' LPRINT [D] RANDOMIZE =TAB { NEW [P]e▟[U] AND [H]X[Q]6[G] DATA [G] DEF FN [A] CONTINUE G INPUT 4▙ RUN  DRAW  COPY <>U OR  VERIFY CUSR [F][H]EXP [O]* COPY pBIN [B][G]PEEK  BEEP Q%[H] LLIST ;[U].ACS 9 AND ABS ep[I].k[H]q REM 1#SCREEN$ [L] RESTORE STR$ >= CONTINUE o}T4 BEEP  CLS  PLOT   COPY Z CIRCLE  BRIGHT © FORMAT )INT  PAPER n[B]▛ DIM  INK 9[C]Nz▗ BRIGHT SIN ▟<= DIM X[L]EXP [L]u, DATA ▜ VERIFY  LLIST <=&[P]5; DIM  LOAD I DATA  ERASE PI RESTORE [f<= STEP  OR -k- DRAW  CONTINUE { TO  PRINT ATTR  GO SUB  BRIGHT  STEP  PAPER AT 6[M]) TO  REM f RETURN  FOR  BRIGHT [S]BIN LN  LOAD FN [F]▖uQ GO SUB ▙▚I PLOT   LLIST  RESTORE a PAUSE  DRAW  TO  LINE tI[O][P]INKEY$ BORDER 3Y_ DRAW ATTR ACS  MOVE y[U] ERASE LN  MERGE  FOR AT  CONTINUE [S]▟G*v BORDER =PI BORDER ;S▖N*E<> BORDER ▙[A] MERGE  NEXT &AT ▚[T][L] AND k[C]▚ COPY VAL$  STEP [C][A] NEW ▛ CLOSE # LET ▙INT  LPRINT <= DEF FN  OPEN #SCREEN$  CONTINUE USR ]ATTR  FOR  BORDER [A] DRAW  CLEAR ATN  LOAD  BORDER NOT NOT [I] CIRCLE  BEEP  DIM >= NEXT NOT  RANDOMIZE EXP ABS [A] OVER 41INT  READ CODE  FORMAT TAB /▜ATTR ▘TAB [K]ATTR [A]CODE  NEW + INVERSE [A] DRAW  LLIST  LIST PI LOAD [O] LIST BIN LEN  NEXT ▞ RESTORE [J] LINE f[A][L] LINE ATTR  NEXT  READ  PAPER  PRINT ;▘ VERIFY  MERGE NOT  BEEP 3 OVER  RESTORE EXP :; LPRINT ▚XCHR$  PLOT   CONTINUE  COPY ▖^ LOAD  BRIGHT  REM  PAUSE ATTR  LINE LEN [C]TAB  BEEP SQR ACS ASN  PRINT  NEW  STEP  CIRCLE  FORMAT q REM VAL COS ▚ READ [A] DIM COS VAL © FOR `[Q]▞; DRAW  RUN  LLIST  NEXT COS M[ MOVE  FORMAT [R]h RUN  PAUSE  MERGE  LPRINT [U]O5<= COPY  PRINT  PAUSE  CLEAR  RUN RND[O]` GO SUB ▟SCREEN$ USR ▜FN  GO TO USR RNDEXP ATTR  PRINT ▜5 DIM  LOAD [I]INKEY$ FOR  STOP IN x[+PEEK  CONTINUE ▙ READ STR$  CLEAR  TO  FORMAT <> OPEN # OUT  SAVE COS  FOR  RUN [J]| IF KFN  PAUSE  DIM [G] CONTINUE INT 'FN  DRAW [I]qH+SGN ABS [5CHR$ [H]▛SIN  FLASH [H] DRAW ~ STEP IN  LIST ▖ BORDER ACS  MERGE <=h COPY  FORMAT V INK fx[A][L][M]xm FORMAT BIN  LINE < CONTINUE # FORMAT >=©[A]<ATTR  RANDOMIZE INT [H][G]8 VERIFY gATTR #?8 LLIST [I]PEEK [T]CHR$  VERIFY VAL [L] FLASH <=FN dXo8 COPY  NEXT  CLOSE #[D]z l FORMAT , READ [O] LLIST [G] LPRINT ▚ FOR .FN [H]ABS BIN [Q]= LLIST [S] INK  OUT 3iP#USR ▝INKEY$[N]INT ATN  FOR  STEP [C] OUT 8[H]▛ BORDER CHR$ <= SAVE [H] IF gIWd▜ COPY  BEEP  SAVE >= INPUT  OVER >= BEEP  DATA  CLOSE #PI▘[D]VAL  OPEN #PEEK [G]AT <> MERGE >=[E]BIN  BORDER <= PAPER TAN [O][M]INKEY$ CIRCLE  OVER CODE ▞ TO FN  DEF FN ATN TAN [F]>=[K] THEN  MERGE [B] NEW  TO [H]CHR$ PEEK  CAT [E]SGN <[S] OVER  BEEP [L][H][A]' PAUSE  FLASH  RETURN C LLIST w! RETURN <> BEEP BIN  DIM D~[S]* IF t[G] RESTORE  OR [B]SCREEN$  OPEN #[C] ERASE  FORMAT BIN APOINT [G] INVERSE  COPY  FLASH INT [E][C]*SQR n IF O THEN  GO SUB l SAVE 2>=:[E]▛ AND  VERIFY  BEEP " CLOSE # BORDER  DIM ( DATA ▟NOT  PAUSE STR$  OPEN #[N]INKEY$ NEW [R] OVER  FLASH  BORDER ▚<= BEEP ABS  BORDER R LPRINT  PLOT   THEN H@CODE [J] REM  READ  NEXT [L]ATN [L] PRINT  LET  RESTORE POINT  LLIST  MERGE  AND  OUT [F]USR ASN  MOVE O RANDOMIZE PEEK [B] RESTORE  DIM LEN ,? PAUSE [Q] INPUT [H]`h:BIN  INK  LLIST CHR$  FLASH Zs# IF "[B]NOT ) OPEN # DIM  BORDER hq& BEEP  RESTORE [C] INPUT  OPEN # THEN  NEW  OR g DATA <= INPUT  GO SUB TAN [H]Z<= GO SUB g]f<=CHR$ 4[O] MERGE  DATA PI AND  LLIST CODE  CLEAR  LINE  BEEP nNSQR Y OVER . RESTORE LEN BIN [H] POKE ▜ GO SUB  VERIFY 9[I]l"STR$  STEP LN PEEK  ERASE : NEXT [H] LOAD  VERIFY [I]▜/[L][J]TAB J LPRINT  GO SUB  OR / NEXT  RANDOMIZE {gJ OPEN # RESTORE  BEEP [H] POKE [H]~=m LPRINT USR ` NEW  THEN 1 STOP  CONTINUE 2,USR EXP #L PRINT  RETURN  BORDER >= LINE F STEP 1]o[R]dFN `[K]▚G▞▗f TO  OVER  NEW  NEW  CAT TAN [F] PRINT   LOAD  PLOT  ABS < AND  GO TO zBIN  BEEP [T] BEEP |[< THEN  MOVE  DIM [P] BORDER . LOAD <=0SIN  GO SUB [K](6 LIST  LOAD [M] INVERSE Gts CONTINUE  PAPER [P]ASN ▚ OPEN #NOT  LOAD PACS  STOP  LET [B]yo[L] GO SUB  CLS  REM ATN  DIM  BEEP l[A]BACS INKEY$v>=PI[H] LIST  MERGE  TO [G]ABS FN [A]▜ OR  REM VAL |s OR  FORMAT TAB EXP  PRINT STR$ <= INPUT D NEW POINT 1ATN K>=[M])ABS = DEF FN ABS  OPEN #K= LIST  LPRINT %[T] VERIFY fA STEP  LOAD NOT  FOR eK GO SUB  LOAD H7 GO TO  GO TO  ERASE [B] BORDER  INVERSE  INK [H][B] DATA  TO  RUN  DEF FN N9▜$ VERIFY ▖▗ RUN  BEEP  RESTORE ( DATA ;6[S] DEF FN : CLS  VERIFY CODE NOT ▚▞~ COPY ▞A[N]5 RETURN <=[Q]ATN  BORDER [L]ATN  BEEP  INVERSE [H]POINT NOT  OUT aRNDSGN  NEXT COS  POKE  INVERSE [S] CLOSE #BIN  GO TO b@ DEF FN  LPRINT  DIM [D] FORMAT  NEXT AT INT [O] FORMAT 8<= CAT  INK VAL$  FOR - SAVE ▜[H] BEEP  LET 'V<>▚[B] FOR  AND  LLIST [H] PAUSE EXP  FORMAT m CLS )VAL  CLEAR  FLASH VAL [U] CAT  LOAD ) INPUT ='VAL  RESTORE  OVER [Q][F]▜ LET  OPEN #0&CHR$  IF  COPY %USCREEN$  MERGE S[D][C]xEXP ,h[L] LIST W NEXT Y CLS  INPUT  BRIGHT >= STEP VAL  DRAW  STEP PI[B] RANDOMIZE ' RESTORE  PRINT  INVERSE [H][E] AND  CONTINUE POINT  LOAD AEXP [LEN ▖[P] INPUT  CLEAR [I]ACS [S][B]NOT -g^ BORDER ACS  PAUSE  LINE [C] COPY SGN < RUN  STEP POINT ABS  BRIGHT f"/>SGN  FORMAT  POKE 96LN SQR  PAPER  DATA  DATA <> DATA  CIRCLE vTAN COS BIN  CIRCLE // FORMAT w[CODE [B] DIM  COPY  DEF FN CODE PEEK  NEW L LOAD -? DIM [K]?1 DIM  FOR :INKEY$ MOVE  CLS ▟l COPY &[R]A REM P[D] LET VAL$ ▟ LPRINT  PLOT  "[P][F]!,[H]▙ LOAD  REM ,"▙#` OR Go OVER  BEEP  DATA  RUN  BORDER NOT G GO TO O▝ CAT <=_ DATA g[J]▜NOT 7 DATA  OUT  INPUT  BORDER >=7 GO SUB  CLS  FOR  OUT <>g[G]<= GO TO ;<>s▛NOT  LPRINT  BEEP  CAT ▖' REM PI CLOSE # THEN ▙g LOAD y GO SUB c CAT  REM <= LOAD ATN ▟a ERASE  CONTINUE 5▙[L] TO [P] STOP CODE ▖ LET  TO  BEEP  GO TO o[B]8 THEN  GO SUB + LOAD wSTR$ AT  FOR  STOP  GO SUB ▚ DEF FN  BEEP [B]EXP  FOR  CLS  STEP  CLS  LLIST + LINE v INPUT  MOVE  BORDER _ GO TO z INPUT U? REM X GO TO ▙ FORMAT BPEEK <=[U][A] DEF FN  DRAW  TO ▞ INPUT  DEF FN [A]COS  LINE [I] GO TO  TO  INPUT  BORDER USR [A] REM  OR  GO TO  CONTINUE  DEF FN  GO TO [A]IN  REM  STOP  TO  MERGE ▙FN [Q] BEEP  LINE  THEN ABS  INPUT  LIST  FORMAT CHR$ TAN U<= LET  BORDER [Q][P] RUN <= LIST [H][E]Y FORMAT  FORMAT  REM ^[J] BORDER N<= NEXT [H][I] BORDER  INVERSE  BEEP  RETURN [H][P] DRAW  CLEAR [R]C1 DATA  RESTORE  RETURN  PAPER  LINE ▘: CLOSE # RESTORE  BEEP [O]z GO TO  VERIFY ▖8| RUN 4 INPUT ' RUN  CLOSE # GO SUB ACS ATN  VERIFY  FORMAT  LPRINT ▖[G]<=TAN (VAL ▟STR$ o[C]/ STOP SQR STR$ COS  CIRCLE ▘[A][J]BIN BIN  READ USR @POINT ~ DATA  NEW  STEP FN  DRAW [G][K]w DEF FN [J][C] DIM  CONTINUE  PAPER  DEF FN [B]ASN  LPRINT  FLASH >= GO TO ▙L INVERSE  ERASE  INPUT ▖[P]▘p GO TO  LPRINT ▘[B]Q INPUT [C][D]<LEN  FOR [E] RESTORE  CAT  AND 9L▛ BORDER  CAT <=h▜PEEK  RESTORE <><>USR [K] NEW LEN  MOVE W STEP uSIN [F]CODE  CLOSE #PEEK ▛ PRINT [I] OVER [A]_ INVERSE  FOR  OR  READ [P] LOAD  MOVE  OPEN # READ ▛[F]}Xy ERASE ▝[D] BORDER C BRIGHT ▟[J]INT  OR +ASN RNDCHR$  LOAD [C] INK  RESTORE <= LIST  CAT [F][J] RESTORE  CAT  MERGE  DIM POINT  OR  RETURN  BEEP  LOAD TAB v CAT  FORMAT  OUT NOT  FOR  ERASE  CAT  DATA ▚ READ R[G] CIRCLE ▟[A]SGN INT TAB  PLOT  ▛ LOAD <= LOAD PIPOINT  DIM  CAT  STOP [F] OPEN # OR  REM [J]POINT [NOT  READ [C]▛ REM  BRIGHT  PRINT l[A] FOR CHR$  MERGE  INPUT [U] COPY  RESTORE  OR  BRIGHT  GO TO  LOAD  MERGE  TO COS 0 GO TO  MERGE BIN CODE [G] READ  OPEN # TO  LOAD ▚[F]VAL ? FORMAT A(6 TO  DRAW  READ ▗Gx FORMAT  POKE [A]▗ ERASE j FLASH LN ▛ BRIGHT <> REM POINT aSQR <> RANDOMIZE  DRAW [F][H] STEP  MERGE [J]Cc BORDER  FORMAT USR  LOAD 3 MERGE  INPUT  CLOSE # NEW H BRIGHT  ERASE  AND eA LIST ASN [M] DIM [H]NACS ACS  TO [C] COPY USR /[Q] FOR [R] NEW  COPY ©w▖USR KINKEY$| NEW  ERASE  RESTORE [K]ATN PI GO SUB  MERGE  LOAD ▞[D] IF <> CLOSE # LET  PLOT   BORDER  OR  AND h[N] LOAD  DEF FN  STEP  ERASE ▞ RETURN Q FLASH  PLOT  [M] POKE  INVERSE  RESTORE [O]LN  COPY  AND USR  RESTORE  CIRCLE  REM  CLEAR  OR  STOP nPEEK  SAVE  OR  LPRINT ▝[F] LET [H] COPY [N] INPUT  STEP  LINE  DIM [F]▙ BORDER E[H] READ [B][D] STOP <> CIRCLE  DIM  INPUT  RESTORE  DEF FN ] FOR  GO TO 9NOT M▘ LIST [Q] MERGE b! DEF FN " RESTORE ▙[F]<> FORMAT <>CHR$  BORDER  AND  FLASH v^[H] DEF FN  OUT x[G]- STEP  LOAD ▘SIN VAL$  TO  VERIFY  LPRINT  CIRCLE <= GO SUB [F] LIST [M]▙L[H] DIM  LLIST <> INVERSE ' IF >= BEEP ▖ CLOSE # GO TO ▙ PAUSE  BEEP 9u}){▛▛▘ BEEP Q]v[N] DEF FN  LOAD }[A]STR$  GO SUB [H]w[C](NOT [E]z RESTORE ; AND [H]}>) RESTORE [H]c8 VERIFY Q▝" LLIST  MOVE  FORMAT  FOR [A] REM  MOVE NOT  NEXT IN  REM  MERGE  THEN aA REM ▖[F] AND  OUT  BRIGHT  INPUT ▞'FN STR$  REM a▞N LLIST  RESTORE [P][T][O]Y▜j[O]▝ INPUT  DEF FN [B][B]▘ ERASE  AND  BEEP  GO TO  DIM [K]JCHR$ (D INPUT [F]BIN ATTR  POKE ▝[R]▜ LET RND VERIFY [A]TAB  CLEAR RND CAT  BORDER CODE u[S][F]INKEY$LN M CLEAR r INPUT ([E] OVER f OVER ELEN 6 OR  CONTINUE  INVERSE [O]ATN  PAPER NOT <=INT [R] FOR <> PLOT  [Q]EXP ▖ LIST  LINE  AND NOT ABS LN u[E] CLEAR  INVERSE TAB <= CLS  RESTORE  FORMAT VAL ▘STR$  SAVE 3g SAVE [H] CLS USR  INK <=[U]▜INT t[D]B LLIST RNDSIN ACS <= PLOT  ▞ NEXT  CLS RND RETURN F DATA ▘ COPY  DEF FN N[N]-[J] POKE NOT  RESTORE [B] GO SUB  DIM FN <>STR$ S[N] CLEAR TAB  STEP  RANDOMIZE ▟1 READ SCREEN$ CHR$ VAL$ [H] REM ▚ INK  OR  RANDOMIZE <= OVER  NEXT  INK ▙ CLEAR <>>= REM  LLIST [Q] NEW ACS  CIRCLE  RUN [J]▜ CONTINUE [H] INK EIN [M]▖ LINE F BORDER [J]▟ RANDOMIZE & LPRINT  POKE  MERGE  CLS  READ  POKE  OPEN #SQR ATTR <= LET [I]i DATA >= GO TO 3aE RUN vBIN kTAB [U]hLN bPI DATA [C] CIRCLE  ERASE ▛[B] GO SUB  LINE m PAUSE [E]▘ SAVE V THEN [C] BORDER  FOR STR$ [S]6'[F]USR  DATA  GO TO l REM [E]▘J INVERSE  LINE PIsMPa GO TO  BORDER  LLIST  INK  PRINT [P]J LIST [C],[I] NEXT [H] TO  COPY E>[B]INKEY$ CONTINUE v GO TO FN E IF <>>=J▟ GO TO  IF NOT BINKEY$ BEEP [G] CIRCLE  ERASE EPEEK FN  BEEP ▚ STOP E▛[R]STR$ ~w[H][J] STOP [O] RANDOMIZE  PRINT RNDTAB  OVER <>▛<>INKEY$>= IF  RESTORE [B]INKEY$AT  OR  DEF FN  FORMAT C BORDER u▛FN  INVERSE C GO TO [H]N# CIRCLE u SAVE  FORMAT [R] PRINT  MOVE  IF h STEP ▙[D] LINE NOT SGN N▙6 STOP <=NOT  PAUSE [L]▜[S] STEP  GO TO  NEW ▛5 LLIST  TO M PAUSE [U]IN r LOAD [M]TAB CHR$  LPRINT  REM  LLIST [C] LLIST  OUT [C]: CLOSE #▙ OPEN #[E]BINKEY$POINT  INVERSE ,l▜VAL  NEXT Jg/ MERGE  NEW u[O]! NEW  PLOT   DEF FN NOT A7 GO TO LN  CLOSE # CLS .▛▛ AND  CLOSE #7 LIST  DATA [S] PLOT  ▗[K] LIST  DEF FN fATTR CODE  NEXT h FORMAT STR$ STR$ [A] DATA  RANDOMIZE %▛ CLOSE #2>= OPEN # CIRCLE t[U][F] BEEP [U] DEF FN  STEP  BORDER [I][H] STOP NOT TAB [D] OUT  FORMAT  LOAD [J] LOAD  THEN USR [B][K]FN STR$ ATN IN [G]▘INKEY$ CIRCLE CHR$  LPRINT BIN  GO TO TAN <>NOT LEN  BORDER ATTR  OR  LINE  ERASE [E] CAT  DEF FN  AND SIN  CAT 3 OPEN #ATN  COPY [F][Q][Q] READ  STOP [D] CAT  MERGE [O] PAUSE <=ACS ACS [M]▗<>INT [Q]SIN  DRAW PI LOAD <=PI▖ SAVE  CONTINUE  DATA INT INT ▛ LET  READ ▚SQR PEEK ▚@▖▟[S][N]▘SIN SIN F<=SCREEN$  CAT  FLASH  RETURN  MOVE CODE CHR$  TO POINT  BORDER  MERGE CODE BIN  THEN d RUN SIN  THEN NOT  CIRCLE ▜ RUN [U] PRINT FN [D] RANDOMIZE  BORDER W<=SGN VAL$ SGN LEN  CONTINUE ▟VAL$ ATN PEEK G5 STEP COS COS [D] BEEP BIN AT u[F] RUN NOT  FLASH  DEF FN [S] LPRINT [O][R] DATA [J]LEN TAB [N]^FN [B] PAUSE [P]▙ BEEP ` PAUSE  GO SUB ▖TAN AT  CLEAR p[S]▜ATTR  MOVE <=RNDACS ▝SGN  DATA PEEK FN  BEEP  CIRCLE VAL$  OVER  SAVE ▞ INPUT  RANDOMIZE SQR =6 CONTINUE ▞[T][I]▘▝▝FN [L][G]SQR  READ  DEF FN INKEY$[C]CODE  PRINT [U][T][K] READ ▜K DATA  PRINT  VERIFY CODE RNDl FOR  LLIST  AND VAL$ [M] AND  BORDER ^ OR SCREEN$ [Q] NEW  MERGE  INK STR$ VAL$ ▛[T]oSGN ▝▖ CLEAR  RETURN PEEK  LOAD [C] ERASE COS H[S]<=[D] LIST  SAVE ATTR TAB Q PLOT   INPUT  LIST VAL ] RESTORE  INPUT  OVER  THEN  BRIGHT ▝ RETURN SIN ▙ASN K]ATTR I_[D] INVERSE [G] NEXT [M] FOR @ OR 7[N] CONTINUE  DIM LEN  LINE <>SQR CODE COS  LPRINT  COPY  ERASE COS  FLASH  NEW  LOAD .SIN PEEK 'TRNDn OR ▘ATN  LINE w VERIFY ▗AT PEEK  FOR  BRIGHT e RESTORE [N] BEEP INT ?SQR  OUT >=POINT ▗[E]STR$ I5 AND SIN TAN POINT  OR INKEY$zRND[>=[C] FORMAT COS  BRIGHT [P]INT VAL$ ATN  RANDOMIZE ^IN IN VAL$ COS NOT LN 4 IF )[G] OVER VAL ©N INK CHR$ ▘ LLIST COS  MOVE [O][F]RM OR  REM W BRIGHT ACS  LINE  GO TO  THEN [R] PAPER  INK <> RETURN  DATA  CIRCLE NOT  RUN  LET ▖;<=[D]PEEK  RESTORE ▟[G]M VERIFY >= RUN ▚ATN  OUT  OVER e GO SUB [T] AND  INK  FLASH [G][C]INKEY$pVAL %ATN [H] POKE  READ <=▜_IN  CLEAR  PLOT  ATTR  OPEN #ATN NOT [D]ABS FN  STOP  READ  DRAW  CIRCLE ACS ▗ SAVE  INPUT  NEW [C] THEN ©s[K]▙@/ CONTINUE RND[L] LOAD [K] CLOSE # LINE  RANDOMIZE SGN BIN VAL$ [D]^SIN v#A CIRCLE #D[H] PLOT  SGN [S][T] CONTINUE TAB ▙VAL$ ACS  CAT INT [J]▞ DIM  INK <>ZATN  OVER  GO SUB EASN  FLASH  FLASH RNDNOT ▚Z PRINT TAB ABS  PAPER  PLOT  STR$ NOT [S] NEXT [P]LN LN  POKE  STOP ▘SGN 4[U]PI= REM  DIM  VERIFY ATN FN [T]hSIN  DRAW INT SIN [C] INPUT <> DRAW  PRINT ▗FN  LLIST  LOAD NUSR  CLS  CLS [J]COS ACS  PRINT  CONTINUE ▙* OVER ▝ LOAD  AND  LOAD  PLOT  [Q][E] PLOT  RND[T]'v PAUSE  RETURN  LOAD M POKE FN NOT POINT ▟[E]PEEK RND CAT ACS G PRINT  LOAD g7USR AT [S]▚ ERASE  PRINT [K]VAL$  TO  RUN  BRIGHT RND PRINT ▟IN { READ  INK ATTR COS  FORMAT  MERGE FN ▖SIN  PAPER ▘[I];INT  RUN [D][P]▛[A]SIN  CONTINUE <=VAL$ ISIN  SAVE FN [E][T]▛RNDPEEK  PAPER  PLOT  ▖ LINE [S] FORMAT NOT ▙' AND G*[O]U NEW  PRINT  TO NOT SCREEN$  DIM [H] VERIFY  FLASH  CLEAR LN h FLASH  AND E BORDER [M]ATN NOT <>STR$  CIRCLE  OR ATN  REM  COPY |:[C] DRAW INKEY$IEXP  OR " PAUSE [I]9BIN o~[D]TAN [A]▝FN VAL h NEXT [L][U] OR  VERIFY ▗$CODE  INPUT ▜[T]LEN CHR$  VERIFY  PLOT   STEP BIN <>[Q] LINE ;RNDe<>INKEY$dATTR  COPY INT PEEK G[K]LN CODE NOT SCREEN$ ▝P$kuATTR ACS N▜N[F] PLOT  ATTR  CLS uATN  LET  LPRINT ABS  BRIGHT LN  AND /SIN  BORDER B LPRINT [L][T]▞ DIM  BORDER [T][H] POKE  RESTORE ▖ OR  FORMAT [E] RETURN [J]x9▖COS <=▜8 PAPER TAN [S] INPUT  PAUSE  DEF FN ACS SQR [E] FOR  REM ▘PEEK  COPY ▛ GO SUB  RESTORE  PAPER ▙▘ PLOT   CLEAR  LOAD  DEF FN [Q]▞[F] THEN VAL ACS VAL ▗[J]EXP TAN [E]E[M]+ OPEN #RND"4[R]4 READ ▗ NEW ▙ RUN ?TAN TAN  READ  MOVE  LINE  CIRCLE SCREEN$ POINT  COPY QT: CONTINUE  FLASH  OPEN #PI[C]f▞ FLASH  CLEAR <= IF 5 CLS [K][U] GO TO [R]SCREEN$ j OVER FN  PAUSE  PRINT  CONTINUE ]g GO SUB [A] INVERSE EXFN a BORDER EXP F:CODE ][J][R][P]'USR  MOVE  OR [S]l NEW [J]POINT ▛ COPY ▞[D] BEEP 6u READ  VERIFY INT [R]<= DIM  PAUSE [K]FN U BORDER  LET  IF ▜ REM  RESTORE  SAVE  GO SUB POINT  CAT NCHR$ ABS VAL$ [F] PLOT   READ .[Q] FLASH  CAT  STOP  POKE  CONTINUE  OUT [O] STOP FN [U] PLOT   THEN =EXP [ RUN  FOR  DEF FN  LET EXP  NEXT  REM  CONTINUE ▟PEEK AT ▝▝© PRINT VAL$  MERGE [A]# DEF FN [T]] LPRINT  PAUSE CODE [Q]ATN  DEF FN [R] GO SUB  MERGE [L]BIN KBIN T[Q][B] BRIGHT ▜:ACS STR$ F[R] MOVE RNDEXP ▗PISCREEN$  STEP D[H] POKE ▘.SGN [M]L[P] DIM [U][U]vASN  RESTORE (`ABS [A])[D]{[S]▞` TO )Y LET  CLEAR "[H]<=iS PRINT  VERIFY ▗[G] TO ~ATTR O LET [I] GO SUB ▙▙IN VAL  POKE [F] AND [K] NEW VAL  RUN VAL$ w VERIFY EXP  VERIFY © [A]?▝[K] READ <SIN  DATA [F]PIN LIST  LOAD ▞ RESTORE BIN TNOT ▞ LET [T]k▚EXP ATN  "/COS  LPRINT CODE [D]S INPUT ▞[A][F] NEW V GO TO [M] RANDOMIZE RND CIRCLE  NEXT  PLOT  ▚[U][P] LOAD  RETURN !L ERASE [Q]/INKEY$ COPY  CLEAR  CONTINUE  DIM  CLOSE #I PAUSE FN [B]J OUT dv AND FN CHR$ W PRINT  DIM  BORDER CHR$  RESTORE ZATN  CLS o8[ CONTINUE VAL  FORMAT [U] BEEP  LIST  CLEAR t[S]MINKEY$vJ[H]LN <=[O]RND▗CODE SQR [Q][M]▞▖( COPY b FLASH ▝▖E▜VAL  LOAD [E][J]TH[R](▚VN READ ATN  PRINT [U]SIN  BORDER ( RETURN ▞jASN COS TAB w▚[C]?. LOAD  GO TO  POKE b▜ VERIFY  CONTINUE M INVERSE " LIST  VERIFY  CONTINUE [R]SCREEN$ [A]L[N]▙ABS  OPEN # STEP  COPY <>BIN  OUT  LPRINT  LLIST  MOVE LN PIO POKE  LIST [A] PLOT  #SIN  VERIFY  OVER  LINE EXP ==VAL$ 9COS  INK  PLOT  [T]; CLS  GO TO [A]aZ PAUSE [J]ACS  BEEP  REM NOT EXP } GO SUB [D][U]USR %▝[U]COS W[O]yM PLOT  1 DIM  STOP ATN  INK  INPUT [H] NEXT ▝ATN  LLIST RND TO  PLOT   STOP [C]PEEK  VERIFY  DEF FN  CLOSE # PAPER  STOP © OUT  OR TAB a LPRINT USR SIN m PAUSE <=PEEK ACS 4[N]▖tX[H] STOP ▜ CAT [R]SQR EXP  STOP ▝CODE ATN ▙ DEF FN &w PLOT   INK VAL [R] PAUSE ATN G▙▚ FOR ▗Ut COPY 9<=C OPEN #[I] PLOT  PEEK  OR  DATA  SAVE [C]LN  LOAD [G][S]9COS )[S][M][N]EF CLEAR  INVERSE  IF LN [M]zTAB 2 LIST [U] GO TO i INK <>*DSIN #[H]EXP ▟_ DATA ATTR  COPY ZD INPUT  RUN COS 9CHR$  LLIST $STR$ '[S] STOP FN USR [K]SIN  OR ▙ INVERSE USR  FLASH VAL PGF5KBIN [F]▝><= PRINT  BORDER  GO TO CHR$ PEEK [N] OR "&SIN [P] LLIST xD>=iACS IhpCODE k INPUT [L]% STOP  GO TO by GO TO  LIST  GO SUB [S]POINT  STEP LN  INVERSE  NEW s RESTORE  TO W DATA /9SGN  CONTINUE yAT  CAT  IF EXP ▖ LOAD  COPY  OVER  NEXT LN NOT STR$  OPEN # LIST  COPY sY▗ABS VAL$ FN = OPEN # ERASE  TO SIN ABS Z CLS 6BIN [G] ERASE o OVER SIN [C] DRAW #[U]LN TAN MCHR$ !?&TAB  THEN v INK USR [O]PEEK SGN STR$ POINT 8e OVER D[F] NEXT ▙ DEF FN ▗ OUT [T] RANDOMIZE 6BFN  CLEAR ▟COS  LINE Fe▖ABS qe SAVE BY[J]}TAN [A]USR  CONTINUE  CONTINUE  NEXT  CONTINUE  RETURN  FORMAT @>=V OR  OVER @▟H LIST  LPRINT  TO 9 OPEN #[R]SGN PEEK ▘ POKE NATTR ABS J?LDVAL  GO SUB mABS LJACS ▞ INPUT  ERASE R▙ INVERSE  BORDER  PAUSE [B][POINT ©▛[G]0E LIST  ERASE ~USR  VERIFY  PAUSE  DATA 42Z NEW  RETURN #ATN ▗▞ RESTORE  OUT v~▙ RESTORE OCOS RRNDLN  INPUT [F]i[J] COPY TAB  OPEN # CONTINUE ▚[I] FLASH CHR$  STEP swpQ. RETURN ( LLIST @[H]AT ;X CAT  DEF FN  DEF FN  AND U©<=CHR$  RESTORE N AND >= OVER PEEK FN  LOAD K OPEN #[F]R[B] GO TO [I]©IN  IF oF STOP PI AND FN /[H] LPRINT [R] GO TO mbdPIFN [I]^p FORMAT  INPUT  STOP  LPRINT ▚PI OVER  RANDOMIZE  DIM  OUT ▘ STOP  NEXT [T] BORDER  DRAW [T]`|▟ REM <> MERGE "K PLOT   LPRINT i[Q] GO SUB PI TO [O] STEP  BRIGHT  RUN ▙ PAUSE  RUN O FOR ▞/o THEN q TO [G] OPEN #▜ CAT : NEXT ▗3u STOP EXP  PAUSE  SAVE CODE (POINT  NEW  FOR [L][P]VcC GO SUB [S][M] BORDER ©ATN  TO  BORDER   COPY (0572) 98-81-35 Maxim INVERSE q6 MERGE          DANIL   [N] NEXT  GO SUB s INK "b INK ! MOVE a@USR  GO SUB VAL  RANDOMIZE  LLIST  MOVE STR$ 1:▜NOT @ GO SUB LN ` MOVE  INK  LLIST ; LET  INK  INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN   REM CODE  RETURN 0) RETURN  ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK  OR  INK ; LET <([< STR$  AND 0( FOR = INK O INK ) LLIST A INK 8 CAT  INK CODE Z) LLIST A  RUN  RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY  LLIST ) LLIST A NEW  RETURN 8 MERGE ; LET  MOVE !SGN @ INK 1 NEXT NOT CODE aMsPkb FLASH ] FLASH  RETURN  COPY  OR x[ DATA  VAL 08▛<▛VAL >|?$d BEEP IN D, PLOT   NEW @r$▗H▘('4CDb LPRINT H COPY LB!EXP D▞$"H"+H_ STEP ▞ PLOT   NEXT [[P] d"6B4 COPY <>(▗ COPY pQDf RETURN VAL qDd/ INK wk' IF HEHQHDjD© VF▚H[G][Q] OUT A*N NEW  CLEAR B*P NEW  STEP [M] GO SUB K GO SUB [*;= NEW yABS  CIRCLE } CLEAR EXP  CIRCLE x▘SGN  CIRCLE | CLEAR ▗LN <>| STOP  RETURN wY STOP  STOP ABS  DRAW  STOP [D] LPRINT  STOP | SAVE  DATA  NEXT A RETURN  LPRINT  DRAW  LPRINT  RETURN EXP [T] GO SUB | LPRINT  INPUT l FOR 78▙ DATA  CONTINUE  LIST  CONTINUE  DATA ▙&,7 STOP  PLOT   REM dNOT ' STOP  PAUSE  REM  NEW _ PRINT  FLASH 'mO STOP {>©▜'_|.o[L]| STOP t REM tzt/ AND l'E RETURN 8po<r<FN ▞<N[Q] PRINT ~N CLOSE #<M INPUT /' INK [H]G?/>▙m{~▝[N]EXP EXP [N]▝I@> LPRINT  CAT "f RETURN `USR  OVER  (@ OPEN #` DRAW [G] AND  DRAW  DRAW  STEP [T]! NEXT ] STEP ` STEP x[T]( CLS :[I]1 INPUT  INPUT NOT STR$ aH0$&X!  COPY  OR !A@p OR  RESTORE PI THEN A  THEN  THEN #  LET  LLIST  STEP SGN [R]STR$  CONTINUE  OVER <>! X~ NEW (58(~ VERIFY w#zCOS   FOR  STEP [R]@`$([Q]&D@&m&,k(FN & COPY xVAL ▝$ INK  COPY LN %[P]>(&&XINKEY$&#"# COPY $[A] GO TO U&&B[C]1]&"H DEF FN 9X0 VERIFY  LLIST @&K &R!`3▞h▖p&[A]▞ ?B COPY ;_9bD_<bL_?bX_Bbb_Ebj_0bt_3b~_6b▖_Kb[A]_Nb`LN ▖INT -[A]n REM SIN /`▝Z&.▞7X CIRCLE @{K COPY p`i`[A]INKEY$▜`▟a GO SUB s CLS ` CLEAR ! SAVE `CODE 2~ NEW 22a< CLEAR  THEN VAL V( PLOT  2T[R]fBIN [S] STEP  DIM _ STEP  CLEAR _> STEP [F][R] STEP `: GO SUB & NEW ( LET  STEP K CLEAR `5 DATA !X^`1F(! MOVE ^<> STEP  LIST _ OR  STEP `STR$  RANDOMIZE <> RESTORE ![R][R]" CONTINUE [S]!SGN ▖ PLOT  [S] LLIST NOT [T]&&ASN [S];USR ▚,▖ DEF FN : IF | RANDOMIZE `<>NVAL USR >=Z! PRINT [T]~2HX AND <>[I]P:"##PEEK (N#  CLS @ PAUSE <> FOR ~#fo DIM :ATTR  NEW  RETURN  VERIFY COS  PLOT  ATN ^▗ATN [I] GO SUB { OUT <>! @▛ RESTORE 9^#V#> COPY 7LN # NEXT  LLIST STR$ [M]RND[M]@[G] RESTORE AFN y AND O LLIST #d RESTORE  OR ! GO TO ` STEP [E][T]:  INPUT `!2bs GO SUB >#LEN / SAVE STR$ [L]y_nBIN  LOAD  CIRCLE  " MOVE  GO SUB [Q]7[U]<>(CODE O<NOT ?b▙[S] TO  COPY BIN INKEY$WPEEK  COPY  STEP  DIM  RESTORE  STEP SIN [S] LLIST LEN SIN ^SQR  POKE F#INKEY$ABS [T]<>X@ LIST  DIM 0XCODE .:E NEW ! DIM  STEP T[F]23 DIM STR$  DIM  s:[T]a INPUT  2!&(!"_NOT  CLEAR _b NEXT ! INPUT  INPUT 8[R]!B[R]@ BORDER *[S] STEP 3[S]!e▖"[A][S]_ INK :# NEW  STEP t[I] STEP Wh2J NEW 2KX▖LM NEW T PLOT  2G NEW >c2![B][G] STEP O@` f STEP v STEP Yb STEP V[E] STEP [R][J] STEP i STEP [I]©[B] STEP TAN " OUT  ERASE Fx STEP y▝ STEP <>▞ CONTINUE : NEW  RETURN "BIN [R]NOT  SAVE a RUN  LOAD  LOAD  CLS  CLEAR  OUT  OUT ©# RETURN  LOAD  RUN x[R]POINT USR yFN G<>VAL 0b@ GO TO  PRINT  GO SUB  STEP [Q]-[T] 8: NEW  NEW  SAVE LEN 2[Q]!9b LET " CLS GQbx2 NEW NOT l[T]!iPI>=^#=  SAVE <> RESTORE  PLOT  &o))[A] STOP ~ NEW _#V LLIST <> MERGE @D INVERSE !V_2y NEW USR R THEN {2? AND 2 NEW x NEW © AND 42$b<>INKEY$" CLS  DATA ▘:'Xcto MOVE  GO SUB KR! STEP d>= OR  RESTORE s LLIST  CLS  LLIST STR$ { _ LIST <> FLASH o INVERSE [R]~>=VAL$ p COPY N GO SUB [T]% COPY  AND E  MERGE  STEP [K]b MOVE ~# PRINT  MERGE  RESTORE  OR #@ THEN ~(D+: NEW VAL$ 2~ THEN IN  THEN ATN 0 THEN 0 GO SUB D▝O RANDOMIZE # NEW @(G#~ COPY  STEP hcSTR$  LLIST @42 RESTORE  MOVE  LET = TAN IN ▝<> STEP SCREEN$ b+I▚%EB RETURN @0 PLOT  ▜FVAL$  NEW USR LEN N z▘K STEP PEEK bISQR !+s STEP [N]bF(# OR  RESTORE  STEP %[I]d RETURN = POKE !` LOAD @ DIM 86 THEN 0 RANDOMIZE LEN <>[E]~z NEW  FORMAT @D){ NEW . O( THEN z!0- PEEK ! PAPER w DRAW <>x VERIFY D&o;BTAy VERIFY _,j<> RESTORE `iBKz▜GK THEN = STEP  CLEAR ▜8x AND BIN BaX OR DM RETURN dSTR$  MOVE J PLOT   COPY <> LLIST CODE <> STEP PCOS ~[T] ▝GACS  SAVE ATN USR ATN  GO TO ` INK ( NEW pSQR (=SIN  PLOT  >= INVERSE  DIM <<><▗ LPRINT 2 FORMAT &[R](▗ FORMAT .|",|,[T],d READ  READ 2dP▗@ DATA $H▗dd6▗SQR fDdgHGJgR CONTINUE L()[R][R]8I<$*ld d8BJPDBIN ,kk_k INK XL m#` STEP CHR$ [L]E NEW  LPRINT  PRINT ( PLOT  @_! LPRINT  PAUSE  ERASE S STEP ATN ▞![A]A LET CHR$ NOT  COPY  COPY NOT  NEW  THEN PEEK [S]< LINE  STEP ]O▜▝! FOR b)?T?#[E] RETURN >(> SAVE 0[Q]CODE ▚2F NEW &2 STEP [G]e!@ DIM USR H][E]0 NEW _4cg SAVE ▝ c!/8[N]!L:H NEW < THEN ?▚ RETURN ]0 RETURN ![Q]G8?[ICOS 0u RETURN %E8P> LPRINT /INKEY$w/; PAPER f{ RETURN =8 !KB RETURN <> RETURN >>=K OVER <> STEP  PAUSE v PAPER H~ VERIFY <&z THEN <=&( INK   VERIFY  IF  GO SUB   AND   PAUSE  GO SUB y LN  G INPUT  AND  BIN  lATN  FLASH  x [H] GO SUB  THEN   DEF FN   VERIFY R` _!ih<N#F#~ NEW ?_Vx THEN  STOP WPI[S][B]?G<> AND o&( DIM  STEP g~PI>= RESTORE  NEW  LPRINT r!"gCpATN  READ <>0g:ggPOINT gCODE g THEN g/h{[R]YNOT hcb INVERSE !▖ BORDER  INVERSE 6*▖ INVERSE wCHR$ i THEN FZ[E]▗@ THEN ^T$▜!}[O]bLINT  LPRINT  INVERSE q INVERSE p<>@d,$lNJ[A]JRND VERIFY ![F]g ERASE @`hJhNP▗<@FX|#[G] BORDER  PAPER [M]PEEK SQR t,j^" CLS vCHR$ [U] THEN ~([!AT  BORDER t<>! COPY W CLOSE #c▜ COPY ▜@▖▜NOT j FORMAT ▘0t[Q],)▗ L#/7USR 0CHR$ 3▖BAT 4[A]JTZ5[Q]C,6[R]`Kh(G[I]#PI CLS  READ  RESTORE  STEP gp LPRINT  PLOT  <>"D#D[U]RND▗PI!>= NEW  REM ^25 NEW 26 NEW NOT [J] COPY  COPY STR$  LIST  COPY  LIST BCIN  DRAW  OR  COPY  LET [G] LET GD ▖<> COPY  PAUSE K@ STEP  COPY  NEXT  COPY ? NEXT IN  CLEAR [P] COPY  CLEAR  CAT  OPEN # COPY  POKE [E] MERGE  " COPY  PRINT W[I] COPY Go PAPER  COPY  PLOT  [ COPY  VERIFY IN I OUT  COPY q LOAD  COPY uA Zz/~ COPY  COPY  SAVE ©"[U] RESTORE  COPY  RANDOMIZE &gFN ATTR  RANDOMIZE  REM VAL$ ©SIN CODE  COPY B OVER SQR  CLS AT  GO SUB  COPY  DRAW .<= COPY A LOAD  THEN 5 COPY  NEXT TAN @T CLEAR 6g}© PAPER  CAT  SAVE  COPY VAL  LIST J>=S(LN P([A]GD(VAL  FORMAT [A]D3 ▘STR$ ", FORMAT HVAL [A]H[A]L[Q]K▖0▖▖[A]▖[E]8 P[A]^ SAVE U-[Q][( [A]0▙"[A]p" FORMAT p SAVE V($[S]2 [Q]/W LIST UUSR gU,[O]h[M]USR m([O]. [O]ATN $▞v$""S0,#'*▖k2>=h*n▖(=LUSR eUSR f" STEP i(R1r!RNDVLN [A]HIN (`IN  DATA >=n2 LPRINT nCODE o&USR p[G]K([A]++ (IN  ▘&FN p&pFN t[A]TAB xpRND(8[A]?%[A]q<[A]w:FN XP[Q] SAVE FN w< CIRCLE @ STOP  LIST J$;M[A][P],USR rATTR {D:;< PLOT  o=SQR  OVER )==VAL$ ~&[P]3<C INK ]#[O]4H[Q],FN |,USR @=VAL [N]:USR ]( LIST x6 [A]▚([A]}([Q]VAL USR }D.[A]pSCREEN$ VAL " CIRCLE ▜Px$FN ▚"H[C]$[A]<sFN ~FN ▗ LIST | MERGE 0[A]▝ CONTINUE [G]*FN [H]z+[A]Df▖@(@▖"[A]©▝[A]X([M] FORMAT [U]hUSR ▘▘( FORMAT  CONTINUE +USR 0 SAVE ▟@[A][Q]▞,[A]▟▞:[Q][B]:Pp[M] RANDOMIZE [A][Q][D][S]D06{[A][Q]>> CONTINUE }[K]USR [J]6VAL [J]6!E4[Q][H]*[Q][I]<~"[G] SAVE pFN pa[L]"LN [J] INK z[L]' 4[A][E]L.x"SIN  AND [O]6©<=VAL P▝[A]▗▚<USR ([Q]wA:USR TEPDj[A]TAN [C] BRIGHT INT USR ATN FN .▖MBFN <R▞a[G]H▞[F]AT ▟P THEN [A]▟[B][B][D][F]▞$RND[B][G]CHR$ [F] PRINT '!▜ FORMAT p LPRINT A FORMAT [A] FORMAT ▘D` LIST |3~TAN P[G]>=0[E]IN SCREEN$  RETURN PC RETURN 4 FORMAT ~[A][I]h▞ 2RTAN ▛"2[Q](LN ▗[K].EINKEY$z>@* FORMAT @hCHR$ XSTR$ INKEY$ OUT  OVER ▝ PAUSE [E]▘▖USR _&8 GO TO  LIST [A]8 PLOT  4[A]v  LPRINT ▛FN ▜80[C]IN FN yVAL u6IN LN uRND%>=, IN [S]/[B][C] cNc FORMAT ▛hRND(FN USR / CLOSE #VAL USR ATN LN D▝ ▝▖H 0 STOP ▘@P"-▝D[B]DD" 0@ P[B]▝E▝HEXP G MOVE {G0O[T]<<AT  IF IN I©▘▘0 MOVE 9F9F9F▗U  PRINT ▖>= OVER  PAUSE ▛F▛DYATN DKo▞! MERGE ▛$▚K!▚▞ RESTORE B4▛▛= PAPER $TAN M[A]O[Q]$ N ▖+.[C]"T.]! DATA 4ABS ▛J""W▚Nh[T]▚▚▙ SIN Q[A]R▚ NEW ▞B, [C]"▘#[M] [M]/[M]- OPEN #[M]NOT UNOT UNOT UOd ▟>=SIN *[Q]TX▖[G][A]4[A]4[U][A]INKEY$_VAL _@ TO [b[▖Y▖b▗[E]▘ GO SUB /TAN ▗W;Z[Q]ZLN HP INPUT x`Z▖[Q]VAL USR ` a  /a/a@NOT  BIN ▝ NOT @(0@DHNOT u[D]▞[E]▗[F][G][K][K]d[H]mVAL je[S][G][I]Lf<=fk<=f3[G]6▖E9[A]l[Q] VERIFY [J]bZ[J][N][L]▞$[L]▞[N]TAN h[L]BIN i[J]j$[G]i[G] LPRINT j▗[A]sv]VAL -@[J]V( PAUSE l$"&USR  LPRINT V[Q] MERGE .#}$ READ [B][A]"ABS !USR  (08!hCODE [U]LEN ▖o"[Q]}L}?[Q]-X[R] PAPER POINT POINT <POINT ▛hINT ]%ZVZED0SCREEN$ IATTR IAT ITAB NOT ?PIFN ASN DATN PI[B] [I]?`@EHv[K]vCHR$  RETURN 6 TAB r OUT Ps0BD-VAL >= LPRINT s[R] DEF FN USR *-tUSR USR [H]PI)▞UKU[G]H RESTORE {q[I]w`PI@A[A][Q]VAL A▜EXP p{ MOVE "%z{ OR EXP =EXP LEN GEXP SQR [L]s gz[I]v3▘[F]YZ>=v LPRINT ▝,@xd▘▖Z-x▘JKRND[B]U[M]DD |&,.▗VAL a OR INKEY$SGN  OR "TAN <> AND  AND YD+ AND + AND F$STR$ DGL(8IP▖NOT ( THEN  TO < THEN 5K▗ TO 2 THEN rE0O>=▖PEEK <= 0@$ZP<= LINE <>,D0@P<>/▞m) FORMAT ▛TAB ▚[A] OVER ▜4 INPUT H▖[C]ACS ▙- STEP *▖0@P DEF FN D[S]@ FORMAT  CAT 0 BEEP B@P CAT ,[H],-@tRS BORDER [A]" PAPER [G][A][I][A]~",▗ CONTINUE ~CZ`▝mB▖[Q]VAL BpP©LN [I]vzsVAL ▘0[S] [I]?~iB PLOT  ASN ACS ([O]sPEEK   INT ▘SQR 8SGN (8ABS C[P]"▗[P][P]3▞24▙[A]pPI[U]i LPRINT Z FORMAT Z6USR @.>=pGFN @XUSR @USR X[T] LPRINT  MERGE  LINE + NEW ? FOR @ FLASH 3VAL 7g<$;+ LPRINT  ▞ FORMAT )dBIN N*3[D]▖|5[U]USR  IF Ev1; LPRINT [E]COS  THEN % LOAD {3 RESTORE LEN . GO TO 0@SIN u!a@f9&! GO SUB sFeV NEW U~fG4?H!@[B]STR$ [I]l[J][L]INKEY$[T][R]AT CODE [S]ASN [Q]LN [A]X▗} FORMAT 0@`COS PBIN ,[M]pZ[M]D[M]0 FORMAT OX/H|6L|P& DATA X|X|M"▗@(V[w AND /I▟qhluZ GO TO T▗0▗[Q] RANDOMIZE B <AT >[U] 0d$AT  B, COPY [M][Q]3"▗$l*dH),▗TY+HNV THEN   DIM ▘B/.F CLS O&[M] COPY LEN [E][E]0 RANDOMIZE  CAT X[H]<AJ0J. PAPER S,9<S!TAN  BORDER ~<|+(=ACS  RANDOMIZE  OR  FOR <>f[N]_`[H] RUN <> STEP  FOR u! CLEAR u>= OR /G6X; RESTORE f STEP -v LLIST  LOAD <> THEN /(: THEN d(y RETURN /:E NEW 0 VERIFY EXP  CIRCLE  AND  FORMAT  THEN |(:ePIUSR  THEN l({ INK !ACS p#PEEK  +45USR @q NEXT  INK  CLEAR !CHR$  BORDER  THEN T( INK ( CLEAR  THEN F▖! CLEAR  RESTORE  INVERSE  LLIST  INK XtB CLEAR ~SQR >=* READ  INK { INVERSE we INVERSE q INVERSE p8Y CLS  VERIFY w>= INVERSE s INVERSE rSIN TAN  RESTORE  OPEN #s LINE e~PI  CONTINUE  INVERSE 7w INVERSE PEEK FX IF + CONTINUE  LLIST n6]"dpS:~[8wH[N] BEEP WWACS SA^[P]q STEP  CLOSE #▖p{Rw▖▖▖{[F]dSGN  SAVE l<><▚hZyCFN YH DEF FN LYK@O]!S▘i+5(,T[S]o H/ AND RND?<>ATTR TAB H#mPEEK }r[A] CAT vUSR }XABS }* CONTINUE }$ LLIST P~,M[J]~[G]VAL [Q][N]~9©m READ © FOR  IF ©[D]nRND▝6BPQ NEXT Pk RUN  INVERSE  VERIFY  OR  INVERSE  RESTORE  STEP /x INVERSE  LLIST ( INVERSE STR$  LIST  INVERSE  PAPER >=▙V  STEP Py STEP ▖xNOT dUSR z INVERSE ~PI LINE k[D]=Vn INVERSE fNOT `[C]: LLIST  INVERSE N THEN 0~#ACS ((V+^ AND  LIST zCOS >= INK t"** IF NOT [A]{7U^>=$>=bN>=PI<>?[J]>= NEW ▚>=N `F STEP 8/0CHR$ [H] OUT 7 OR STR$ . CLEAR  LLIST FN <>[J] ( FORMAT 7PI7USR !JTAN R GO SUB K2 NEW NOT 5df OUT  INVERSE 5INKEY$^ REM  STEP L/ CIRCLE Z[R] NEW  LINE OHRND NEW ybCODE <>FN  DIM  STEP INT x8# VERIFY 7[A]E STEP >=Q AND  CLEAR [D] DEF FN   CLEAR 61:v(U [A]ASN n OVER  PLOT   STEP W[R]<OY▝G LPRINT [C][O] INK  DEF FN  P*R NEW  INK *T STEP  MERGE  ERASE ▘[G] VERIFY [G]""=j RETURN ` DEF FN  STEP y8▙ FLASH +`I IF VAL  PAPER ^INKEY$ FORMAT > COPY (> DRAW  INVERSE ▚▝[O]0[E](T THEN  DEF FN NOT 5AT [U] STEP  yPEEK n>ABS *~F(!3AT  PRINT  STEP  LET !PEEK  CAT  GO SUB D▚8[M] GO SUB w!GV NEW  RETURN / FORMAT F RETURN  ?~ , RETURN TAN  RETURN D? THEN ]~CHR$ k[D]BN>=%▖ AND _©( FORMAT NOT . RETURN b CIRCLE  RETURN [O]USR ABS ~# INK {z OR  RETURN ▘USR 0t GO TO  INVERSE ut STEP COS z INVERSE p{ FOR ▙INT Fi DRAW HQw2+p▘4 STEP @VAL @! OVER <>G INK FO NEW h THEN i" THEN y L^W<>_ INVERSE V<> TAB l_# CIRCLE E' THEN AUSR  THEN I TO <>! IF z VERIFY USR ▜USR  CIRCLE  DIM LN |{▟{LN { STEP { CLOSE #{ CONTINUE { LOAD {|| POKE {[H]||[M]|Z4|▛}9LQASN  VERIFY ^kxkTAB ▘▜fXAT |COS |?|X| NEXT | CLEAR |}}}}}'}+}`aC}5}?J}`}VAL r~}} DRAW {|[S][N]G<> INK  LINE  MERGE  INK  MOVE  CLOSE #  CLS |v{ INK  GO TO PI  INVERSE u INVERSE t FOR  INK  MOVE u"# THEN INKEY$ RETURN } INVERSE PEEK  INVERSE VAL$ SQR [ FORMAT PEEK ?▗fCODE w▗▗4w!1w#ACS [E]_ DEF FN N RUN  STEP $| INVERSE ▚ LOAD  STEP k© REM  CAT [O]  ERASE 2"~;[S]O[K]O GO SUB _y CIRCLE  GO SUB D+5+ LINE % INK N# THEN y(wHTAN ~ MERGE [I]PEEK  STEP L7[K]!~ OVER = INPUT  POKE ATN  INVERSE Nhj[R]N INVERSE  GO TO qo INVERSE [G]`k0 PLOT  ACS gbLN 8.FN CODE RND▙5-b CIRCLE  NEW PIRNDT8© FORMAT ZVAL 6"▖# STEP  GO SUB |USR  LOAD f LOAD  RESTORE [6 !V"66[S]FN '[Q]|ASN  INK USR PEEK ▝INKEY$ INVERSE s BORDER [S][G]h4_[E]X TO ASN r&zl CIRCLE  STEP f| PAPER { FORMAT #2H} SAVE |XaATN W AND [S]SIN  RETURN W STOP  INVERSE  NEXT [P]4<4(#SIN BIN  INVERSE V NEW VVAL  POKE  LIST [H]-}8STR$ ;:98 ERASE [P]} LPRINT 1 VERIFY DSQR NOT ACS h6NOT 9[U]"!  ERASE © BRIGHT  INPUT }<STR$ =STR$ >STR$ ?h6>CHR$  STOP ( DIM NOT  BORDER  NEW  VERIFY  NEW  READ  AND % NEW  AND  LPRINT  DEF FN  CLEAR , BRIGHT >=.CHR$ ~ CLOSE #~ NEW  RUN hhBhC@CCHR$ D@▟XA@ NEW  CLS B@[U]aUSR _▚▖  INVERSE [G] CIRCLE TAB tdIN  [P] DRAW  BRIGHT  CONTINUE _~, GO TO [L]} INPUT  POKE USR iCHR$ X?~CHR$ }~z IF  VERIFY  NEW  POKE _ CONTINUE CHR$ ▖~ GO SUB  PLOT   RETURN (d<> AND  DEF FN  CLS  [L] PLOT  E@F@G@H@IkI[S]M GO TO  SAVE I" (>= NEW  OUT CHR$  OPEN #TAB ©4CHR$  PAPER  STOP F LOAD CHR$  CONTINUE W REM QSTR$  ERASE &©RSTR$  AND  CLOSE #-©HH INK  RANDOMIZE -CHR$  GO TO z%" NEW  DEF FN K SAVE LUSR MN[C]] NEXT USR  -O[T] RUN  COPY  BORDER O[U]SQR /P eLh GO TO F NEW  AND   INVERSE PEEK  CIRCLE  VERIFY @?© REM uPEEK <> CAT  AND  AND  LINE  ERASE ATN ©O AND 2 AND BXSTR$ YSTR$  PAUSE S DRAW  OUT USR  INPUT [S] CLS USTR$ VSTR$ WSTR$ ZSTR$ [t(SIN  STEP VAL$ TAN )>=NOT u BORDER  LPRINT CHR$ #([C]© VERIFY [T]SIN  VERIFY B NEW  CLS /B@USR /D VERIFY  RETURN  DEF FN  PAUSE USR Z~[U]D DIM +d,w%<>. STEP  LLIST <INKEY$v VERIFY De5 VERIFY IN <>]STR$ ^STR$ _STR$  NEW  SAVE `STR$ aSTR$ b▚>= NEW ` BRIGHT  AND  LINE +STR$  DEF FN  DRAW  POKE > [K] PLOT   NEXT CHR$ KCHR$ a% STEP  CLS ▗($>=' CLEAR $USR ^ FORMAT 2STR$ @h▞[U]CHR$ @USR <@USR  ERASE 5[U]USR  AND  GO TO NOT  MOVE cSTR$ dSTR$ fSTR$ eSTR$ CHR$   DEF FN  GO SUB USR  ERASE  BRIGHT [D]gSTR$ ▝ LPRINT USR  INPUT [P] CLEAR CHR$ T! NEXT  CLS  LINE D[K] NEW  REM  ERASE  THEN ▝iSTR$ jSTR$ <> MERGE k/l▝BIN [G] DRAW  CLEAR  IF $ CLS %;  AND >= TO  GO TO ▝ INPUT  CLS STR$  FORMAT  DRAW  GO TO jCHR$  DEF FN TAN  DATA ▝ SAVE ▖ DRAW @ ERASE ▟[N][R][O]! THEN ,[R]6[S]4 ! ! DIM  NEW  OVER CHR$  RESTORE VAL$ MUSR $ NEW  DRAW FN [U][J]m STOP ^nSTR$ oSTR$  NEW  GO SUB pSTR$  RANDOMIZE CqSTR$  NEW  RESTORE .X r sSTR$ tSTR$ u NEW  GO TO  PAUSE v RUN q▝w▗ STOP  NEXT x FOR ySTR$ z[A] LIST  LINE  LOAD USR : CONTINUE  RETURN USR  GO SUB K FOR  BORDER * GO SUB Cx[E]gy[F]oUPOINT N<(<> CONTINUE >=▗3 INPUT : CONTINUE  VERIFY v CIRCLE ▜! ▘ LPRINT BIN : CONTINUE ▚2; CONTINUE #:C< CONTINUE <>VAL$ [G]>3!*▘PEEK 8#[D]3# RANDOMIZE  DIM <>POINT [O] OR  STEP [P]}STR$  OPEN #LEN VH POKE [Q]ATTR ? CLEAR 0:ATTR  BORDER VAL$  NEW  RETURN (▗[N]3COS USR  CLEAR ~USR  LET [L]R GO TO  LIST  SAVE   COPY  LPRINT  CLOSE # SAVE [Q]▝ CLS T@CHR$  POKE  PRINT CHR$ ▟T[S] PAUSE 3 MERGE POINT p IF RND[J] NEW ( FOR  RESTORE VAL$ w_▝FN ;▚x STEP SGN [F][R]▘ LLIST tL<> THEN s#>= MERGE z REM  NEW  SAVE Y VERIFY   CLS + MOVE <> INK & FOR  INK  OR  MERGE  STEP VAL ▘ MOVE STR$ A k>= THEN ?G OR T] RESTORE (+~ INK o INK w6@xEXP CHR$ SGN ▘WULEN  ERASE  NEW [D]▘ RESTORE  STEP M▗ INVERSE  LLIST   MERGE nBIN f>=BT>>G2[T]*[S]ABS F.0VAL ^ <.2 CONTINUE 2▗2ASN  VERIFY }2ATTR CODE oFN g/>#"[B]>+2INKEY$▛R_ATTR  BRIGHT x▜CHR$ ( GO SUB D%o"VAL$ ▖O~[T]oySQR D FORMAT  AND Dg" OPEN #ADogtX STOP G= DRAW [E] AND 2 BEEP ABS  IF  OUT  CLOSE #ASN  ERASE Ra CONTINUE STR$  CLEAR l INPUT GH INPUT ~# IF CODE yyG GO SUB USR bkPI GO SUB B GO SUB VAL `i* CLS VIN ! "&▗>! STEP  CLEAR ▜ CIRCLE @ GO TO a CLEAR o RESTORE |[B]29▗y2▗POINT  AND 2=▗DM&RNDkzPI LINE ▗#VAL  FORMAT wl RESTORE  STEP POINT ▜ LLIST  INVERSE ] INVERSE TO INK STR$  STEP  STOP ▜ INK { OR  MERGE [R]~ INK X THEN © w## INK  THEN  ERASE 5▗, REM ▙ INK  MOVE STR$  CLEAR -CHR$  ▗ BEEP ▝mINKEY$g DATA "+CHR$ _▚ LINE   DATA !s INVERSE n▞T▘FOP GO SUB Y OUT ~O GO SUB Cz▗ NEW IK~2 PLOT  ▘ CONTINUE  THEN YFx2kt[A]"▗(+{[I]"Ox;"{G2] SAVE EF CLEAR RwA=CHR$ NOT ▗ SAVE  REM c*^)" OPEN #▚"$▝▜ LIST EXP ▚2NOT ▜2▜t<2 MOVE ▚! ERASE ▚#▜!<>▜"<=▚ GO SUB S▜o INVERSE TAN `f; NEW t=x NEW 2X=2▜P4y NEW [T][▚ L{2 PAUSE l^(kzGPI LINE NE[T]VAL [T] INK > Q NEW  AND ▝_2 POKE ▚{▜POINT  PLOT  8 LINE i RANDOMIZE ;STR$ OCHR$ es[P]N( wS>▜:w2N TO COS ▚ INK " CLEAR ▚ LET   COPY  INK ATTR 24▜xUSR jX2j▜ STEP ▖ CAT 1[n INK  CODE  STEP ,▜ INK DM INK  TO VAL ▚@ STEP  CLS B& INPUT  AND o INK  TO  RETURN  READ  INK ($ GO SUB Dm ERASE  DATA  FOR 6#q#p-<>CHR$ [U]▚:x[Q]FN U_ COPY [O]"[P]▚![O]▚TAB ▚ RESTORE [O]SCREEN$ ASN  RESTORE  COPY ©%INKEY$Pxa{LEN _ ERASE SCREEN$ ▚X<> CLEAR ` ▛d@ INPUT  GO SUB VAL f COPY .CHR$ ▘@ LLIST >NOT g, CLS ▞KVCOS ^#P INPUT ~ NEW UOLEN SCREEN$ OLEN w, INPUT  CLEAR D<> OR )_ AND  POKE  NEW  PLOT  @ THEN [L] LOAD Sq RANDOMIZE } NEW  LIST oF@ GO TO RP CLEAR ▚STR$ {a IF `*>MN PRINT x©[R]yJ LINE  PAUSE [U]▜U VAL$ O THEN  ERASE V▜▝USR r LET =CHR$ 8▜[N]NOT #6M]▚wxINKEY$[S] CLEAR L<>![B] CLEAR 2NOT C▜![L]USR  PLOT  INKEY$$ACS =%,/INKEY$/SGN  BORDER  SAVE _yt VERIFY  OPEN #_ INVERSE !` LOAD  INVERSE y NEW <XG>v CLEAR C<>&hT])©Y CIRCLE  REM #y COPY  CIRCLE 1&oDI, LET x} RETURN 0=▝ RETURN -(8!? CIRCLE a CIRCLE <g[D]K_>Ao▝0[B]SIN CODE = VERIFY ▛8| RETURN DASN [11COS 1[Q]1D1Wx[C]BW>DgNOT "1[A]%G1COS >=? FORMAT BPI<>:~ FORMAT ?2!G  INK AX INK 0?IN PEEK ▗*LEN CODE  STEP ABS [T]0Aa! LPRINT  PAUSE < LET  INK  STEP  @▞!" THEN  DEF FN ![I] LOAD  GO SUB VAL ` LINE VAL$ ▞+* NEW {SIN >=+F+>[G]2▞~+▜ INK J0▞ OVER ▖ INK LNOT FN @[E]{ VERIFY e▞ LINE 8NOT ABS ▖z NEW CHR$ l▞ INK ▖<[C]{ AND Pa▞ INK  _8z VERIFY W MERGE >=+O MOVE  REM ▞<>! COPY [P]# CLEAR  NEXT  GO SUB s OR ▞ RANDOMIZE  MERGE xLEN CHR$ ABS ▞1 CLS < LET [I] LOAD !!<>INKEY$II|x STEP [N] STEP [T]POINT VSGN ©aACS W AND  STEP [R][F] CAT [Q]N( DRAW  THEN ▙© AND #R RETURN "USR 'RBUfi LN >L0>Dd▙ DATA SCREEN$ :X CONTINUE PI>= SAVE A TO G GO SUB  DATA ▘ INVERSE  LLIST STR$ *MM FOR LEN $PI RETURN & NEW 8} RESTORE Qp( BORDER ▙u[G]ACS ▚ GO SUB Sx3 OUT 3& REM CHR$ ▚ LIST <> VERIFY i[B][F] CLEAR USR ) CLEAR  LLIST ▜ CLEAR ▗[F]?▖ BORDER GF[M]AT $jINKEY$f@ NEW D NEW ▘>>= STEP  CLEAR ~2SIN ^ CLEAR VeCHR$ ~2 PRINT SOJ2▘ MERGE B2 RESTORE  MERGE ▘ MOVE ! CIRCLE <>!"▛jF STEP P^# THEN {  LIST s)ATN  THEN x>=hx NEW ©!USR  NEW N<>, COPY  COPY P COPY R COPY Q COPY ST COPY WU DV(WZCOS XYZ>=PEEK [Eb PAPER [E]Ba.`y▟FN VTAB IN ▗5B RETURN C IRJ CIRCLE AT KN[B] RETURN O+L{/h▝|LMD PLOT  ASN ▝])JK^@M$VAL$ B DRAW  INPUT TAB EB DRAW 1AT VAL$ ASN NK SAVE  RETURN  RETURN  [O][C]3]V[C]l▝<mK[E]3~ASN /SIN /{ LOAD <>r[S]r5 RETURN 6 RETURN ,MLEN 7 DIM 8 CLS ">=[R] MOVE [T]TAB Y&W( READ 'uYu TO [M]!z INPUT [S][T] PLOT  g+[S]TAB ][R] CIRCLE  k(0$Z▛%[O]rBIN  #} CONTINUE TAB ]USR 0[Q] FORMAT n▘.Q LINE ▛ PLOT  ▜▖▚[H]q DRAW x COPY  POKE  COPY @?} RETURN A? CLEAR FN !!ACS  RETURN EXP :<=A[I] INK ;<` THEN =▝>[P]|?@ [I]BIN TAB VAL$ CODE VAL LEN 2 CAT ASN  DRAW 3 RETURN  RETURN  SAVE TAN fSftW▛PI DATA h GO SUB [hf PLOT  A4ASN  OUT g"h@▝l RETURN  SAVE jJ▙[O]mn COPY  COPY O>=o<> SAVE kAT 4@p DRAW t CLEAR ;ZDBw POKE oGxyTAN zFBG STEP HPEEK rWP]G2uqINT r MERGE EXP  VERIFY  RETURN mTAB  DRAW  IF  DRAW -G.Hh%G;r{TAN H▚s/[B]TAB  CAT 2CjbTs▘USR THsCE▗ FORMAT CE2 DRAW E IF ELEN {) IF ▛ SAVE K^ RANDOMIZE ▜B[C]!6EE6▛SIN [B]B,ET"▖;)L- COPY  COPY *""H+▛ CLOSE #*b*}-++[©(. LLIST f[I]v>= STEP A[L]?ACS  STEP ▟ INVERSE E~ STEP g THEN ▚NOT ![U][J]CHR$ wA[A] INK n..nYLEN  lRVAL$  CAT c+▝0rBuv REM ATTR  BEEP  PLOT  BTAB  LPRINT  INPUT U6 STEP NOT %%cQ5 REM h55X THEN ©>= THEN OCHR$ x[A] THEN WCHR$ [L]_CHR$ .[B] THEN gCHR$ Vo(Q NEW @  INK SGN "[E]EH6CODE @6G!-[A] STEP [C][P]RNDSCREEN$ [T] TO  AND ▚/▛5 LINE g[D]@▛. STEP  COPY b_6[K]NOT A BRIGHT *GH. OR SIN !6[P]PEEK NOT ▝[R]W[D]Wp[D] STEP ,HgCODE 2ASN  NEW <24 NEW NOT B4)[U]/010[Q] S[P] #!Vp#>P6[N]#w VERIFY # PRINT b$T/PM2X:K NEW  NEW  BRIGHT :   DEF FN USR  CONTINUE [:J>=(X*2 NEW  CLEAR ! STEP S[Q]q▚5{ tACS LN ![6Cp[F]_#V!Wj THEN USR | RETURN [N] 6b4<>p THEN 0COS wu NEW <> NEW  :[B] NEW 0ATN STR$ DAT  DIM .rUnXUSR W INVERSE >=T DATA  NEW ▛'_Vq INPUT FhB5  RETURN JO|INT 8.p;![G][K] NEW  SAVE  CAT  THEN SQR + DRAW +LEN  INVERSE ▚O?#sEXP USR 0V+ STOP  RETURN  BORDER STR$  COPY :NOT  SAVE a*BJ>▗_ AND tD6PNOT D2{i CONTINUE [B] BORDER s▛ CAT  NEXT ▛J▗zF(O. LPRINT V 2 OR  AND G:▖. STEP COS dSTR$ (# CIRCLE [I]a AND DGPOINT i(PI> VERIFY  INVERSE q`SQR [C],Q BRIGHT w8q`P STEP  THEN [G]NOT 1o[R] CLOSE #6/ AND ▞ MOVE 0F[P][C]!BIN [C] FORMAT *pPI !n <LEN f( SAVE <]▜O7k▜!{[D] NEXT ATTR [F] FLASH  FOR [P]ATN ▘r DRAW O#>▚ DATA [D][H]v>= OR ▘ DEF FN 4VAL VAL <> RESTORE [K]ABIN  STEP -[E] LLIST <>U▙ RESTORE a CLOSE #!a] RETURN  LLIST  FORMAT  RANDOMIZE [H]>XFF  STEP [D]<<[S]FN >=▛ LOAD [F]6EINT ©ut[R] NEW dIN +STR$ ASN k PLOT   NEW m CLEAR 50< DATA T4VAL PEEK  LLIST  NEW  IF TAB e[U](4 INVERSE g` VAL$ H&>VLN PEEK ▚+ THEN H1 NEW [Q] PAUSE [G][D][U][D]TAN [D] LINE [D] TO [D] DEF FN 5[D] FORMAT [D] ERASE [D] CLOSE #[D]▜▖▛▝▗*OBIN  RETURN  DRAW }4 SAVE  POKE j LOAD  SAVE  BRIGHT POINT #%+FN E CLOSE #<>Ku4 LET  CLEAR ! SAVE  PLOT  *zc[A]SQR  DATA  PLOT  [Q]CODE ▞ STEP M[F] CLEAR wCODE LN  BEEP tY READ >{[E]!N>NOT O MOVE 37w~▝$3} CLEAR 6~!▟XPOINT  NEW ©UVAL$  THEN ,~( INPUT  PLOT   COPY <>!5 NEW 5[N] STEP SCREEN$ [E]SGN t5▙[H] DRAW ▛t?▛ STOP ▞GCHR$ E[D] THEN O▖VAL$  CHR$ f_ STEP J[E]NOT <=▟ PLOT  1 RETURN  RUN  STEP ATTR [C]>=NOT ▞[E]!6 NEW ~PI>=5<> OR > STEP =[J][U]STR$ y▜▜![F][F][U]J NEW 0## A▚#2[ NEW 0▚2SQR / NEW *] NEW ` RETURN  ~ RESTORE  OR  STEP  RETURN [E]STR$  LLIST >=#[Q]P>= PAUSE  BORDER <><>==5 IF -:8OI~ RANDOMIZE  BEEP 1▚a IF -ATTR :C<=[P]vACS  SAVE -jZ!B[T][L]&53^ SAVE 4#6O[D]▝!/[F]o| DEF FN g~<> J▗ RETURN  COPY  /[N]// CAT H[R] COPY  SAVE  IF  IF  IF g* NEW |ASN  d CIRCLE u[N][H] STEP  CIRCLE [S][F]s STEP n[G]e INK q# STEP [G] DATA  DIM [G] STEP  LLIST [H]= LET  RANDOMIZE [G]NOT ~Q#[G]>=8 RETURN >0SQR  GO TO  RETURN  PLOT  > RANDOMIZE  FORMAT  COPY ▚w~# RESTORE W▗▗TAB  LLIST USR  LOAD  PRINT  STEP [R][R] FOR  LET NOT [T][G]EXP  PAUSE gCODE !iTAN >=▖W STEP  OUT l LPRINT  OR U0 COPY  GO SUB [ OUT y▘[O]{*V READ *XA THEN [E]"[A]` STEP [H][G][Q] PRINT :? NEW b LET  FOR <;*7 NEW }TAN Z0H▖M0D$0![J][J]" CIRCLE 8h FOR [D] RESTORE | STEP [E] LLIST } PRINT  NEW J LIST  STEP VAL [G] LET  NEW LEN !5 TO  COPY O THEN 9 MERGE L{" GO SUB [Q]_)SGN ) POKE  MOVE <>USR  INPUT /GP<>PI}▛'Zo|'g[L][K]USR [H] Z[H]7ZZ INVERSE SQR Ao RANDOMIZE FLEN hGFBATN ATTR G DRAW w MERGE SQR B  OVER <>ATN ©0O/ATN  GO SUB uE2 CAT  LOAD  w CLS LEN sH!GEEVAL$ ABS m[Q] OUT  NEW r{= LPRINT  CLOSE #Q INVERSE PEEK  ) STEP  REM USR ▚ STEP  LOAD  FOR NOT [I]XJVAL$  AND > OR  RESTORE  MERGE ANw FOR q FOR # RUN  MOVE  FOR POINT  DIM <>!X STEP *[S]> STEP R[I]! DRAW  CIRCLE  GO SUB VAL <>>2# NEW  STEP NOT  BORDER  CAT [F]:` STEP 3^CODE ! LET  INPUT F# OR  FOR ?!VIN  RETURN 46>=*7INT # LOAD o REM MQ LPRINT [Q]▛ NEW (=( PAUSE !![R]>![T][Q]CODE  PRINT >2X$ NEW  LET _ NEW [A] INK X! STEP PI(+(NV"HHK[B]RNDG NEW  THEN ©USR [A]  THEN W>=KO▜▝*▝i)![J]3HX2&w(ACS  RETURN 2[O]2CODE  VERIFY O OR  GO SUB KE NEW G STEP  TO [O]STR$ VAL  CIRCLE  LOAD 2% NEW >2D FORMAT  CAT 7CYD>=▖▞[B] LINE  ERASE :0ACS r CODE *i!yZ2@= STEP "[J]:<=_O/q▝R[T]!lwy STEP t[I]*d^"A([G] PLOT  !D[Q]~ >=GBIN  READ [M]# THEN ▚ STEP VAL$ [I] NEW :f NEW CHR$  RUN [L] THEN Y: FORMAT eNOT W[M]©~}|{ THEN `CHR$ [Q] THEN hCHR$ 4[O] THEN XCHR$ v[M] STEP  THEN [M]:L▝BOCHR$ LN [M]▖VAL [N]NOT PI[K] STEP [I][I] CLS LEN INKEY$VAL$ OF@CHR$  INK PCyCHR$ y[L] STEP ATN [I]A BRIGHT [J]UCHR$ "[N] FORMAT .5=(AT  THEN ACHR$  LINE [B] FOR NXS RUN  FORMAT @' NEW BIN FN  NEW CHR$ c_[P] STEP o[K]hDBUSR :4>=TA &= NEW  i0t5 NEW PEEK  FORMAT #"] LET ▗`[L] AND !i[K]CODE  t <t <ONOT  POKE [L]!lSGN H[K] ▚NOT SIN [E]%#PI!&$T(` LINE  RUN  OUT .[R][D][R]▝2'[P] NEXT  CIRCLE  PAPER TAN  LINE POINT  NEW CHR$  FLASH %INKEY$INKEY$ PAPER T3TAN J POKE  CONTINUE :p NEW *n NEW  STEP [L] STEP 1[L] PAPER 5! STEP  VERIFY [P]!E NEW 44%& ERASE [T] DRAW &s&qmATN &O&LEN 4&55[O]^CHR$  STOP [L]:+%[N]B LINE >/NOT USR  VERIFY !L NEW 6TAB  THEN 2* NEW > COPY X▘2$<>:cH NEW q RETURN [ FORMAT O?PI FORMAT tG.SIN VAL$  RETURN "▘ LIST w.:IHtK▟W`'COS d>=?Gd NEW 2)LEN >=V*` NEW q STEP [J]D<6@#~ NEW `w@z NEW !?[R] LINE  REM ]3: NEW  NEW © PLOT  2% LIST %[M]CHR$ [L] NEW ! THEN  AND 3[A]NOT <=a LET 5 LET  GO SUB dNOT A!#(-035:/=(PEEK @vb INK O:f[B](USR my<if+ OR 2D ERASE  NEW [K];[M]STR$ i▟ CLOSE # MERGE 0N NEW  DRAW %i MERGE 8[ MOVE ~(N NEW  RETURN  >d▝3_Z LIST 4 INVERSE  GO SUB D#A FOR X<<> CAT ▗ LET  INPUT : POKE "+<> STEP E[M]VUSR :m] RUN [L]g[Q][G]G~PIB CLEAR &wNOT  LIST [C]! POKE G(u= LINE VAL [N]":[L]NOT [D][N] CAT [S]H CLOSE ##▗[O][K] STEP FN P VAL$ [I]">= NEW  FORMAT  MOVE  / ERASE _r THEN  OVER ! VERIFY M NEW 6+6NNOT NWSCREEN$  MERGE  STEP  BEEP [O][M]:pG INK bwe[T] NEW USR w^▝Z PLOT  LEN  PRINT .[Q]!')q?M7 AND +N!3▚G; REM LN H< OR ~f> STEP .[N]NOT "[S] TO nCHR$ nPI( GO TO [N]CHR$ `[N]8▚0w STEP PI[K]f~3 RETURN >=+5USR 6# THEN RND/}T RANDOMIZE [D]Z[G]2+ RESTORE I▗ READ 2 BRIGHT ▚tCODE T DEF FN >SCREEN$ =[U]Cf RETURN <> REM ( PRINT  FOR  CLOSE # FOR NOT  [B]0L NEW PICHR$  DATA [N] LLIST [O] CIRCLE */ NEW ▜INT  PRINT [U]<=[N][U]#% FOR 8 CIRCLE FN  CONTINUE  COPY <> CAT  BORDER  RESTORE X/f CLS w![E]▖) NEXT  COPY  BORDER INT @A NEW *gIN M[:i NEW (*jl NEW 2. NEW "Y RANDOMIZE [Q][D]▙ACS ( INPUT *uwt COPY ( STEP n[N]▝XtP4N:EXP y LINE  READ [L]INT [N]~ RESTORE  THEN [R]▖0STR$  MOVE ShSIN  LLIST  LET 21,LEN  6)N STEP IN [O]8▘!L7[Q]▜w STEP [N]>= STEP Z BRIGHT +6?-ATTR &NOT ZC CLEAR  SAVE ▞ MOVE 0+NGwH GO SUB  BEEP [O].] RANDOMIZE y7<>8TAB _0=x VERIFY G LLIST 4 STEP [P]ATN FUSR NOT  IF [J] FORMAT <>[E][K][E] SAVE w# THEN  AND k THEN @ ` THEN P N THEN H e:c FORMAT [I]n CIRCLE Y CLOSE #| AND g} AND oEUSR o} VERIFY o@ABS o"uUSR 2 DATA  THEN  DEF FN SGN  IF %|c(1NOT  BEEP PItCHR$ CHR$ FN ▗INT ▚ THEN  VERIFY :bZuTAN  AND @ LOAD {INKEY$BIN P<4p^ STEP  STEP d7,b LPRINT  ERASE ▝O DIM CHR$ -USR  STEP [F][P] FORMAT KBt PLOT   ERASE w!SGN [Q][F]@>0([L]P_ABS $INKEY$$CHR$  CAT  INK   BEEP  RETURN TAN  FORMAT _ STEP ▖[P] ERASE  READ [M][Q] DRAW  DIM > DRAW  STEP |/$[O]0 READ [G]5 STEP :▞ <> THEN G VAL$ `c( THEN F  THEN  AND ▚H▝ [N] STEP I[Q]^44Hc&55 PAPER aE@[E]Y-m<> !" SAVE  IF  DRAW {SQR  RETURN f DRAW  DRAW  RETURN  RETURN g%G PLOT  T[Q]'(;,_[Q]m[Q][[Q]▜[Q] VERIFY  LINE  DRAW  RESTORE  RETURN < NEXT XYB~USR 9BIN < IF  DRAW  RETURN  LOAD VAL  CLS @ CLEAR }[R] RANDOMIZE =zK SAVE PIX:/ FOR ?e▖@ STOP 1[F]] STEP u[R]aPcySGN  CIRCLE CODE <>oCODE  THEN [J]0▝? PLOT  O}<>*RkVAL$ [R]![L]▜#"}<>A[[E]1 MOVE  LLIST <>[P]CC CLS <> PRINT 4 STEP [R] LET =  PRINT <>xPI74FN  NEW  SAVE FN gyEXP "<=FN o PRINT <>$|USR } AND  o CIRCLE | VERIFY Wg<> NEXT  OR  PRINT FABS ▟ RESTORE  INK d[|!B[R] OR ^#~W#COS  RESTORE BIN  FORMAT  CAT @[J] LET h LET  CLEAR 3STR$  INK ) DATA ▜o FOR  DIM ASN [S] BORDER @<>5 LIST w COPY EXP nBIN  NEW 2 OPEN #POINT   RETURN <>CODE SIN w SAVE  NEXT  STEP E GO SUB s:[R] GO SUB {@[R]l"<[R]J">[R]> GO SUB  GO SUB G[C]D GO SUB ^L NEXT 9-5** GO SUB V<>>ACS [D] STEP ▘[S]STR$ >=>VAL$ 2©[S] BORDER Q BRIGHT <}JLEN ACS -  ~ NEW <> MERGE  OR EXP PI  STEP f[S]8p[E]j[S][T]  RESTORE STR$  MOVE   INVERSE <>2 RETURN [U] DRAW )© DEF FN  DIM B~ LPRINT  BEEP @)e/:T[R] THEN _(%"U[R]:~LN [T]![T]" PAUSE [S] MERGE OdSTR$  GO SUB [ OR  RESTORE  STEP ?D THEN  POKE <>Ap PRINT AT A DEF FN Tw PLOT   RANDOMIZE <>IN <(# RETURN  COPY >= CAT P%CHR$ (b OR Bn0 INPUT x% CAT  VERIFY USR 8 NEW G READ  OR  CODE  FLASH G NEW O THEN @( THEN  INK  THEN H MOVE  THEN XW-STR$  THEN P<>+*# FLASH  RETURN INKEY$ yVAL O[F] @0 LIST y PRINT : PAPER  REM ] FORMAT NOT RNDSGN %[T]({ NEW  ( PAUSE  THEN 8 GO TO >=<>[K]?C DIM ▘jCODE >$BIN ▞vUSR EUSR  LLIST q#s#rSTR$ PzBIN INT [S]CODE W2 THEN [T] STEP  VERIFY [T] MERGE STR$   RESTORE  OR 6,  IF }STR$  LLIST  NEXT <>Xm9x THEN /[S] AND Xgx~[M]l▝o<>$ TO bVAL #"! &$>>>>▟>>VAL$ >D LOAD ▜[B]!TAN [U]PATAB [U]INT :COS [U] [N]*CODE [U] RESTORE  NEXT  STEP s[U]INT LEN [U]WABS  REM [U]E  SAVE  STOP <>} THEN =/ABS RLN "H!▞b PLOT   ACS &r  CLEAR [U] INPUT  OPEN # RETURN DO[I] CLEAR zCOS >=yM INVERSE  DIM M[P]aAT  POKE  PRINT 2 LN  BRIGHT d BRIGHT @LN ^2  DEF FN  COPY  STOP  COPY [G]$ CLS @<x7▟M[M]0"> STEP  PAPER RNDCODE 2 NEW  STEP ja NEXT  PAUSE 3!9bB0 @[B]PI()=COS AEXP 0<+ NEW (;ACS RND FORMAT [E]_EwIN A NEW  RETURN c8+0 STEP [B] COPY uRND CIRCLE Cr RESTORE  OR TAN  FORMAT a' MOVE   GO SUB 7<> GO SUB h*?*P ASN * REM 4 STEP `x[J][G] OUT [G]SGN 8( STEP  BORDER g)[U]CSIN .INKEY$<>[T]PI<>[R][U] PLOT   OVER [P]>= RETURN  LINE LRND PAPER wvTAN RNDK4KK  INPUT  KAT [J]&!SIN  CONTINUE X▖PEEK ! FLASH EaH! DIM  STEP [T]![A] CLOSE # STEP CEINKEY$VAL 0!▗[H]+0 ERASE PEEK HHKBIN = FORMAT !&3TAN NOT 6>=!00U!! CIRCLE @0BIN  FORMAT ;BKXb RESTORE  MOVE STR$  OR  MERGE  RESTORE qf READ  LOAD  MOVE  FOR STR$  GO TO p DATA SIN $ VERIFY [T]$ MERGE ^$6%dBIN l FOR STR$ [T]0 FOR <>!INKEY$INKEY$9b!'_ STEP `NOT p` LOAD  DRAW < LOAD Dx LOAD  CLOSE #qY©.Z![S]Z[P]d©<[S]©/ PAUSE ©V[U]$9 DATA ©&PIAT AW©[J][D]ATTR  GO SUB SCREEN$ ]aASN JO[U]STR$  READ USR  MOVE  LPRINT  LPRINT [Q] LET  FORMAT  DIM  LIST  PAUSE [A] DIM  8 CLOSE #@ DEF FN  CLS  LLIST  COPY > NEXT !WJr?g?4©kM LINE IN _* CAT M[A]"-BIN Ja LPRINT L CAT  CIRCLE [G]RND2[N]X▘ LOAD # OR )RND OUT  LIST [I] g RANDOMIZE SQR ▘[S]7[S]SQR  DATA >=  RETURN D.*▙GT RANDOMIZE ▘E"@AQ[Q] ▖A STOP AT QT OR SIN LN  LET pqUSR [S]  RANDOMIZE 3t RUN IN  CLS  BEEP  MERGE SCREEN$ ATTR UA©ASN _ COPY J[U]V PLOT  ▖ ▖<>▘3[E] PRINT ATTR  LINE (W*"@P▘ STOP ▛▖Eq OPEN #2 LPRINT  LIST  LET f STOP f▖▖QfSIN f LET fUSR f▗▖f.f3 COPY I[C]210/.-[C]$,+*)( I'&%$# DIM FN >=[E] ERASE [T][H][S] CLEAR N RETURN ASN  VERIFY abc▛kTAB d OPEN #e LPRINT f LET $g E IF  STEP  TO  THEN [A][A] LINE <>>=(ATTR -3x@[C] CLS ▝▚ IF d SAVE SCREEN$ &([L] CLEAR ,;PEEK p[ CLEAR 1STR$  RETURN  CLEAR  VERIFY INT BIN  INK  MOVE  DEF FN L▖ DEF FN F STEP D`*TAN (@ LIST  [T]~ RETURN )▘USR CHR$ ▛a OPEN # MOVE [I] LPRINT @d LET  STOP ( AND QTpSIN  LET [C]USR >=(z. NEXT  BEEP  SAVE  RETURN 5▖▖555.5▖▖5555▙▖R5 LPRINT 5P5  COPY x5B# LINE [A]COS  NEXT  GO SUB s INPUT SCREEN$ 1<>INKEY$ STEP  LET SCREEN$ SCREEN$ , STEP X11[USR FN > STEP ATTR  LPRINT *~xLEN   NEXT >2/[<> OR  CLEAR  COPY © GO SUB ySTR$ J0?/BG RANDOMIZE P CONTINUE  SAVE SGN L▘PI▚LVAL  LET  BEEP  SAVE +USR } PRINT Qh*(.IN [Q] COPY USR  PRINT  LPRINT  CONTINUE [Q] ERASE  pd0 MOVE P STOP g[A]`*©@[K]R IF / LIST  GO TO @ DRAW SCREEN$ SCREEN$ n]@  COPY  INPUT  LPRINT UR BEEP wSTR$ VAL$ {P (b;▖▛HQSCREEN$ [U]% CLEAR  PLOT  WQSGN [B][C]JFN _p(▖VAL [Q] MERGE @B 7P@▛[S] @D@% ATTR  ERASE VASN 4* BEEP INT " MOVE ▙NT(DZW"#D[Q]PDUSR 0P@ COPY  MERGE  COPY ATTR  POKE VAL$ [A] DEF FN  LIST |SGN INT  LPRINT  CLOSE #IL GO TO = INK  RUN IN b4 CONTINUE NOT ▖ LPRINT 8USR 0USR ~USR / INPUT +p LPRINT ▞PIN USR `▖LSTR$  LET  POKE "[Q] COPY WG▘x <=[Q] QSXSQR 4 OVER ppVAL$ SCREEN$ ,VUf▚SCREEN$ 0CHR$ 'A[[J]p PRINT ^}BSCREEN$ 0▝ CLEAR P_ COPY  COPY BGd@8FN PT@SCREEN$ ATTR 1WS4;PI(p/<CATTR USCREEN$ f`0p` CLEAR  RUN 2Q[B] LET 29BIN  INVERSE @SCREEN$ !MT COPY  PRINT  COPY  INK PPP@SP"P! BEEP Q,.fW0▗ PAUSE  RETURN  TO L8&▚ OUT 2#/~IN  CONTINUE [Q]nASN  POKE W COPY  BEEP ©P▙FN P>= PLOT   FOR 4p BRIGHT EXP ,NOT OVf>VAL$ 0+l▖EXP l/▗ INPUT  ▝z COPY  RETURN POINT 7$▚ FORMAT  INK FN *T@oUSR  CLS 6[Q]B[A] INPUT ` RUN A BRIGHT <SQR   NEXT ▝D|yo▜,FN 0(1 SAVE U!! REM / LPRINT H?[Q]ASN /iZ9ACS USR W[P]W GO TO USR  RETURN `USR (T CLEAR h[L]@h LPRINT [Q]@[B]tz[C]F▙COS CHR$ ▟ DRAW W FORMAT  BORDER Ch COPY  LIST WESTR$ j>=.-*f▜[Q] OPEN #x  GO SUB  LPRINT x DIM  CLOSE #2 COPY  CIRCLE w[I]! TO .  OVER ▝LN [M]▚>w-[E]SCREEN$ I LPRINT +I@ATTR ]© LIST Z[G]o<=7FN {VAL ▝0A[I] RUN 0y  LIST 5▖3QgQnpU7T[I]X RETURN e`ATAB  DRAW q COPY @ COPY  BEEP NOT  COPY  COPY p LET ; SAVE r LINE ef[Q] PAUSE  LPRINT  SAVE ` REM %#X[T]INT n _pY NEW `AT , BEEP  READ  STOP f NEW  STEP USR D( COPY  SAVE [N]_tTAN }?/Z LPRINT  OR  FORMAT  LOAD v[Q]▝* (`AT 3 RUN fsJH BRIGHT 0[R]VAL uB▗©▟TAB  LLIST USR @[A]  DEF FN USR [F]▘[Q]Fx SAVE  _!SIN  CONTINUE ▛T>] READ jVAL$  AND  LPRINT  LIST P[Q] LPRINT >=AT t LPRINT  BRIGHT >▚.  LIST s DIM | LPRINT CODE  RETURN [G]USR TAN (X▙<|INT  LPRINT  CLOSE # BRIGHT L LPRINT >[Q]:wwUSR 78 TO & GO TO )>=[I]4??<@[T]ATN @G{ COPY VAL USR * COPY N#[P] CLEAR IN  LIST 7~IN USR *}{[I]u^ BEEP AT jPOINT INT  OUT U INVERSE  BEEP w FOR ATTR ATTR VAL$  MERGE WWU FOR .SCREEN$ * OUT T^.VAL$ *_4TJ>.*% @{ IF z[K]© COPY  LPRINT  CONTINUE ?/YCODE RND LOAD % FORMAT IN n+=v`!▖!POINT [Q] TO [A]B SAVE  CLOSE #[Q]o@ LIST 9>+ OR (qhpB CLEAR V.  PLOT  {Ec[I](VcABS M COPY CHR$  COPY  POKE IN [A] CLEAR NOT !:*USR )@Q`PVAL  RESTORE s>(uG LINE @B@ CIRCLE [J] LPRINT IN /0_C GO TO SCREEN$ Bn>= FORMAT /T[E]}U NEXT RS7[A],w[A]O ERASE  CLOSE # RETURN P SAVE V PRINT USR  COPY STR$  COPY SCREEN$ [Q]CHR$ `>=|[M][T] CLOSE #▙p CAT ~6[I] VERIFY ABS @NOT <`5-ATTR  LLIST A*<= COPY < RETURN u`<@` POKE 9j$[N]"*`USR "X2 LIST LN 2 LIST / PRINT N IF  DRAW  SAVE ?LN  GO SUB `USR 0 FOR &$@ 0,L<8>=@$[U]IN  LPRINT j CONTINUE (n FORMAT C2( SAVE  @/ DRAW aU IF I IF ) POKE % POKE  CONTINUE CODE a`( FORMAT [USR   FORMAT  LIST % SAVE <H%x>[E]x%h>hpp[L](▞> STEP (7@ OVER  CLEAR  LOAD [F] `( LPRINT p8▞vpVAL$  CONTINUE  INPUT zGQ"[C] DATA [T]SGN  PAUSE BIBIN R FORMAT [S]CHR$ L[G]P RUN  CONTINUE 0W CLOSE #U COPY @ (U ERASE " CONTINUE d" OR * b@ STOP ' IF COS fP$ DATA F▘INT 6>=B_INKEY$3 BEEP / DEF FN 4 POKE  VERIFY 5B)pP"? MERGE iRND BORDER k"UBtUSR USR  LPRINT  FORMAT >= AND ▚ PAUSE @SGN (USR [U]; LINE AT  FORMAT   FOR @)[B] REM d[L]W▘▘SIN > RANDOMIZE 5SCREEN$ c▙XKATTR _ ERASE ATTR  LPRINT ] LIST SCREEN$  SAVE X/*CODE  RETURN /"LN p LPRINT VAL ▛INT QF/`ATN [P] COPY ▘ COPY  SAVE [Q]]/TAB CHR$  POKE  COPY @*©A© COPY _[P][A]z RETURN /PEEK STR$ LN ANV▜EF POKE -▜u TO BIN %z▜LN  CAT AX INVERSE (L▖~S[F]CODE BIN h[Q][B]Pfl▟RQ▗H▚ COPY  RETURN  LPRINT  COPY  POKE  COPY  LPRINT  RETURN ©[Q] CAT [U]▘ LLIST =S[Q]Gf OUT </▗U//xJ LINE FN a IF [Q]▘Bg[S][Q];INT i[B]▞OT▙ DATA [A][U]p[C]![A][D] [F]TAN [G][H]8Mp![J] CONTINUE [K]/ FORMAT [L]>[Q][M]ABS $g[N]`[O] INK [P][Q][R]g SAVE  CLEAR @@ LPRINT ~ LPRINT VAL USR SCREEN$  LIST  FORMAT ATTR  LPRINT  LIST 9▗~6z©U CLOSE #*CODE J"[& RESTORE  PAUSE  CIRCLE >TAB PEEK |LEN FN T:n[E]`Z=" POKE  OUT ? LPRINT BIN  CONTINUE &CODE J CIRCLE ▖3DCODE  CAT $CODE . SAVE  NEXT (A-[E][Q][Q]JK©▛ CODE CODE $ SAVE CODE + SAVE _ COPY B LPRINT  RETURN CODE B▛NOT CODE  SAVE CODE  LIST CODE © LLIST  LIST ;CODE SCREEN$ CODE  ERASE kUSR ▝`[A]USR TUSR j:8|/A*(u][Q]▝4M@ LIST (/ LPRINT ~ CIRCLE IN  POKE 9Hh CLOSE #@h9 MERGE [F]z}.SCREEN$ U!TAN [G]PETAN  OR   LPRINT .BG< LIST }[G] READ  *T(?T(*PIN U SCREEN$ U<B#(TYUSR /!LQ LPRINT  COPY ?©U[Q]C]% NEXT  RETURN ,▞B LET YN AND FN Rv([D]36LEN p LLIST ▝ LPRINT  ASN "O1h READ  CLEAR  STOP  INVERSE [C] COPY  RETURN  BRIGHT  DRAW ▗,i FORMAT ] MOVE  COPY  PRINT  COPY  ERASE  GO SUB  LIST x>([Q]t6$ GO SUB (IL8; CONTINUE H#J[L]USR  OR [A]( SAVE  SAVE ? DRAW ?SGN 7c=20<>=>=T( OR [N] COPY (* FOR  GO TO [I][T] LET * CLOSE # CONTINUE +( CLOSE #E FORMAT & CONTINUE 7 POKE / DRAW o PLOT  © RETURN ©( POKE © PAUSE ? DATA ??RND($ 0FUSR  STEP &80R▘?▘@@▘APOINT )+SGN Z[Q]pAT aVAL [F]p#▖Ap LN QSTR$ Xb STOP [A] NEW y@[U] @TJ▝X4`>=) FORMAT J"*H[U]$ SAVE ATTR TA&▚P©|U OUT W[G]h[N] USR TAB #GUXz▖:T3USR t[Q]AT COS SCREEN$ STR$ WYRCODE <▖g[Q]▛USR U OUT  LIST *POINT SGN 5VUSR INT J LET p BEEP :INT 5[A]2.LEN /`@POINT [Q]Uw1STR$ 0 TO "*`@U FORMAT [F]FN RND INVERSE  OUT  LIST QPEEK NOT k LPRINT  COPY [R]j[M]NVAL$ A5 IF [N] BEEP  CIRCLE Q▖[T]p7[M] DRAW `[M]AT  CLOSE #STR$ F ,SIN ▘W2 LOAD FN H}BIN L+INT  DIM Pu LLIST  LIST " RETURN 0[Q] CIRCLE [K]LEN "MUSR  NEXT ▝ INK PSTR$ I8<1Bh[Q] SAVE [Q]0/PPSCREEN$ CODE 0WRNDINKEY$ NEXT :<= LOAD ASN SCREEN$ CODE =INOT  NEXT  RETURN E LLIST [I]@ IF E STOP u COPY B  1a▙n POKE x0S CIRCLE ▗t"{"p DEF FN p qUSR ▟ THEN z   PRINT   DIM  CONTINUE 3g3j<= FORMAT [A]p[F] DRAW FI$WpTAB INT  COPY  LPRINT / COPY Q'[H]▟fj SAVE  FORMAT ▝Tj LPRINT  LIST x8"_>/C DIM v▟[P]  MOVE  CLOSE # TO  MERGE c@/6ATN q OR |; CLS x0USR " H[I]TAN  DRAW ▚ CLS USR  PRINT  LPRINT  PRINT  LIST 9 DRAW 80 CONTINUE " CONTINUE 8Cxx4$<~?.8@* LPRINT VAL$ PNOT 6@ MERGE CHR$ xe`VAL$  ERASE 8(  LOAD #1 ERASE G IF SCREEN$  RETURN  PRINT [J]7 CLOSE #©.[Q] CONTINUE POINT  CLOSE #`f GO TO  CIRCLE [R]LN gpSGN  LIST  NEXT ▘K LPRINT PEEK @|SQR PEEK ▘BPI[N]e OVER z COPY GAT  CLEAR ▝ CLS ▘ OUT ▜▟ AND  FORMAT N[S] SAVE  RANDOMIZE 8 RETURN p COPY 0PI[H]USR o@▝`rl27B▜u DEF FN ASN  REM  THEN 5P'Gx[I]PEEK D BRIGHT  COPY PID COPY  SAVE [Q] INPUT  INPUT [S][I]( IF AT ] @[Q] DIM USR ? REM IN STR$  FORMAT T+ COPY ]SCREEN$ ▘[Q]m▞USR ▞ DATA b LIST  CIRCLE ▗G[R]IN  RETURN B|▛ RUN [G]<= BORDER , LOAD [M]/CHR$ NOT  SAVE  CONTINUE ATN X▗▜ CIRCLE  DRAW  RUN SCREEN$ stTAB  PRINT CODE U?Z LET  PLOT  ZCHR$ Z[T]Z▖▜Z▗BIN " SAVE  STOP ©G COPY &_▟+U TO  OR  CIRCLE 0▞VAL$  SAVE SIN ▖Bu STOP #c SAVE  PLOT  [M]v_ OVER  CLOSE #FN bn[R]▛ CLOSE #[N]AT (5* CLEAR lo{ CONTINUE [N][E]STR$  VERIFY  CLEAR FN cc RUN  OPEN #INT  CLOSE #m@USR / FORMAT  FORMAT ) IF  CLEAR [S] COPY  POKE  SAVE  LPRINT  FORMAT h©[R]▜[D] DATA AT  DATA  DATA X DATA  LLIST [Q]! SAVE @dUSR  RANDOMIZE  CLEAR |> CAT  LOAD < NEW x▜q; STOP  CLEAR ▘ POKE Gb AND  RANDOMIZE  STEP  LET >= LIST <`[O] CAT USR _ LPRINT _ LIST VAL (892 PLOT  A7 OPEN #> CLOSE # INPUT  PLOT   RETURN  PAPER , READ VAL ▘▞ SAVE  READ  RUN  GO SUB  FORMAT ]▘h COPY  LIST  COPY  RETURN  OVER _ CIRCLE  LPRINT C LIST mUSR @ IF  COPY  FORMAT  REM FN X[T]QFN 'N])D8▜BIN  AND  CLS @ OUT ©0 PAPER  LPRINT  `mUUSR  INK  LOAD LN  GO SUB  CAT |PIATN v[B][T]©T"q© & CIRCLE  COPY x0J>=8n[U]` LIST  LPRINT ATN  LIST  BEEP LEN [J] LIST LN  SAVE 8[I]>=(8H▙[N]6▚" ABS ATTR [F] CIRCLE [U]#JS▙oFN [ LPRINT INT ▝[A]SCREEN$ [U]l OPEN #) PAUSE  RESTORE  DRAW SY PAUSE PEEK Jyl0FN * USR ] OR USR IN  BEEP  FORMAT @ LLIST >=IN  LPRINT &IN 0[T] INPUT p AND  [N] LPRINT _G DRAW C/8 RUN  LPRINT  LPRINT TAN Gt[Q]z0}Vp~VAL  LLIST L PRINT  SAVE <>LN X4[M]x?<|? DRAW w DRAW g SAVE c SAVE L  DATA [O]L>▞~[I]▙ CONTINUE  VAL  NEXT [A]STR$ 0NOT J▘ ▜@ FORMAT VAL$ FN  BRIGHT o RESTORE NBIN  AND  INPUT  INPUT  FOR INKEY$ FORMAT ▙g FOR [L]t LINE [M] LOAD  BORDER l) BORDER [F] CLOSE #=$-O MERGE 3 CIRCLE  NEXT  SAVE USR  ?ACHR$ . FOR  COPY  POKE SCREEN$ FN @pVAL [I]hH▛COS DD>=7 TO V DRAW 4d▖ POKE & REM [M]ASN X:[F]FN t[E]VAL t[F]VAL 5h LPRINT Kh[Q]SGN @>[E]FN uD- COPY  RETURN ▖ LIST LN  CLEAR L/rE COPY  LLIST }2 OVER  DEF FN < NEW 9 OUT } LOAD UTAB [I]U[N]LN S}VAL ATTR COS pCODE `n:USR [G]'PI[Q]Z[Q]▘SQR [H]3SCREEN$ FMP IF _ COPY D FOR n STOP ▗[Q]*STR$  LPRINT  STOP bUSR c@27&/ COPY [J][U]INKEY$ hTAB  ERASE > DIM T3[F]f( X LINE }' AND  IF pX OR  LIST  ERASE @) POKE  BEEP  PRINT  IF EAT ^fG[O]" NEW  LLIST  NEXT  FORMAT z@ PRINT =` RETURN [N]  COPY ^VAL ©▙VAL  COPY  CAT }g0SCREEN$  BEEP T BORDER sLN  SAVE [Q]{ACS TPOINT  CIRCLE E IF L<USR  DEF FN <m}* MERGE [O][R]©SIN >=>[K] CAT [C]~[G]Y▜▟Lw LPRINT  LOAD PEEK  NEXT  CONTINUE IN  RETURN  BRIGHT AT © DRAW ©~ IF  DRAW  CLEAR > NEW Xe]SQR o<>SCREEN$ ▞u COPY ▞ PAPER [Q] CLEAR S CLS 7 CLOSE #M CLOSE #-[Q][L][S]@TEx>+[I]  LOAD W SAVE ATTR /SGN 2E[H]@ +▛ CAT g<=_COS  THEN /w<=[D] THEN V+ AND  DEF FN +m[G]F MERGE "6PI[M][E]<>9808V[A] NOT USR ▖@'[A]ASN [E], STEP ▘INKEY$<VUSR ▝▙[I]|0bG[T]dsACS [I]▝ LET [T]U NEW RND7TAN > BORDER ~ TO >'P:EXP [A]© COPY USR USR HG LOAD  NEXT FoqPEEK :CHR$ BH/8[S]#XNFN xNQVAL $▙SGN ▘ACS y CIRCLE "▜JT|ACS T ▞|USR *c RETURN 5LEN " NEXT ©USR %e LET USR "AT hVAL I5 SAVE )Z SAVE '[I]SCREEN$ p)R*<$V[E]SCREEN$  OR  BRIGHT  BEEP INT c- FORMAT ▛[J]EXP dPOINT [E]m>LEN  PRINT USR i[B]G LPRINT 3& SAVE G DRAW K DRAW E DRAW BAT 0AT S6 VERIFY  LIST  CIRCLE 7SGN = POKE L IF Q^3INT G[E]$$▖0SCREEN$ _ CAT u4 LOAD VAL FN  SAVE % POKE /) POKE *LN H&VAL  POKE k▚((AT  LPRINT [Q] FORMAT  LIST [A]SGN :A OVER  SAVE SGN /USR  POKE x+-p DIM  TO ?,~ SAVE j STOP Q▚=<>&x*D FLASH  LIST  SAVE ▘" CIRCLE /RND$ASN SCREEN$ ▗<=LN [U]RND7IN BATTR [B][i/ CLOSE # FOR  NEXT [U]STR$ ,SZf^pjn&h LIST  LPRINT >zle_[Q]?b^ATTR TAN !^ LPRINT [L][B][E]$LN M^[B]k▙b6T[ MOVE @Q▙ REM [Q] OVER *DUSR  NEXT  CLEAR `@ COPY  COPY  BEEP VAL$  OR A LOAD @K OPEN #$▜ NEW  DEF FN 0▖ POKE  DRAW f#[J][S]8{INT :C PAUSE 3j$ SAVE  IF ASN  STOP  LIST 2Y DATA `STR$ gh COPY  STOP n PRINT  AND  GO SUB  :EXP  DRAW VAL AT ▗AT NOT >= LPRINT g(|U"USR d(T THEN AT t DRAW  IF  SAVE /SIN FZ3 LET   NEW )z POKE  DRAW BT/ CLEAR RND[A] [C]0b@4>=[M]p[K]([J]TAN  LIST C@ DATA  THEN  IF  VERIFY  LINE  MERGE ABS ATTR ]R][S]LN DD▜[S])S CIRCLE ] IF  VERIFY Y CLEAR ']=VAL$ INKEY$ POKE u'&S▖▗ LPRINT " [T]*qUSR BIN 8 RESTORE lLEN  LPRINT [H]AT ▜DBIN ATN D▜[I]. BORDER ▖>= COPY >=INKEY$VAL$ [A]0OATAB ej▖X DIM ▞ DEF FN  COPY  CLOSE # RETURN  NEW dPOINT }D- NEW ~ CLEAR  CAT P CAT GqSCREEN$  FOR SCREEN$ SCREEN$ w RETURN 7_JCODE  THEN ! CONTINUE >=@PEEK xsA▗ NEW 2L NEW y DEF FN INKEY$ACHR$ INKEY$[J]COS <NCHR$ [L] DRAW <ASN }[J] [J] PAPER ' SAVE I▛r VERIFY A> LIST  VERIFY VAL INKEY$VAL ATN USR "▘▟{v▝/FN COS  LINE |FN [S]QT LINE  RANDOMIZE  RETURN  COPY IN [Q][C][C][B]Su▟j▗xZV[R]*~▙8@C)▘#[A][J]▙9do`)p.d INPUT "? LLIST [S]ATTR  LOAD  MERGE T@yUSR  !USR ▖USR USR [J]B AND USR ; READ U DRAW  DATA  DIM p[A] FORMAT CODE O SAVE 8 AND }PUSR [U]NSGN AT '`|J▗ VERIFY ATN ▘kpTATTR  BEEP L GO SUB + DEF FN USR  DRAW  CLEAR PuASN oh LPRINT  LPRINT H&`y:RPOINT rx LPRINT ABS  LPRINT  PLOT  P` CONTINUE FN uE(M LLIST p<VAL ATN ▘b`<T[C]2[C]CODE ~ RETURN  GO SUB 4 AND [S]TAN /)B COPY  CLOSE #C` ERASE ^_//USR t0. FORMAT (ATN TAN !STR$ tTAN 'JS[I]:^LN <`©9 STEP ;CHR$ AT V9STR$ ] LLIST  RETURN TAB B[Q][G] BEEP SGN Z*OSIN r3USR N0▘ LPRINT 3 CONTINUE @[A]^-p PLOT  9]SGN  OR  BEEP  MOVE ▖>INT +|DSRND0IN ▘TASN  STOP IN USR POINT LN [J][C][E]` PRINT W INK [U]AT  THEN Ta LPRINT r LPRINT ~7<%~▚!8kUSR H▚K LIST V INPUT  RANDOMIZE  SAVE WGB CAT 1VAL$ xDMLN BIN `▗S LIST 8pp`PEEK O$@QX POKE G0▛ RESTORE `[B][S]'NOT [U] BORDER +75B PAUSE AT @▝v!l-0rW SAVE & PAUSE <[J]7V AND 1 STOP [F]B LIST c/j INPUT oE VERIFY ~©?x DIM IN  FORMAT >=? OUT s VERIFY  DATA  MOVE K INK  DEF FN  LLIST |uRND POKE a1+p#[O]h$ READ FN N FOR FN SIN i CONTINUE [A]▗H[Q] PLOT   MOVE  LIST P LIST  NEW   TO RX(+(2CsACS  LPRINT  FORMAT  BRIGHT J GO TO O7 CAT ▞*[L]? COPY ATTR t OR  CLEAR  DATA :[A] COPY  NEXT [R] LIST O LET  MOVE [H]SQR -NOT kr6L[U] VERIFY  GO TO ASN "/ OUT "[U]Wx/IN 4!PIuHb']ARND ERASE _A PRINT LGq CONTINUE 8STR$  CONTINUE SCREEN$  RETURN  CAT  CONTINUE ; INK  DRAW  PRINT ▘POINT ^3 COPY  REM [K]▘!%+SQR /+07 CLEAR / COPY SCREEN$ T LOAD 6[I][U]<=vs$$g4[A]▛▗ FOR 8 PAUSE  *▗HB/*`SIN tI LPRINT  PAUSE ~`9 RESTORE VAL s[A]CODE D DIM q3TAB A COPY <VAL$ =J~[R]i50SIN  RETURN ▘[N][G]u$C LOAD SGN ( LIST p?WUSR  DRAW  COPY [Q]▖F LPRINT p SAVE  SAVE  LIST T[Q] NEXT  LPRINT  O- BRIGHT  LIST GpA0SUSR (v`USR  [O]  ~4 NEXT [F]$USR ▜ OPEN #SCREEN$  AND  LLIST oUTAB ! INVERSE   TO SIN ▝▖8R@h MOVE  OVER  NEXT |>=V[l▘[E]▖[O]| COPY /USR RATTR USR &[N] POKE GBIN J[H]/K  OR PUSR ` INK [I] AND  p,Sf CLOSE #bxTAN +F INK  SAVE  VERIFY  FORMAT xDqR1`v RANDOMIZE [I]8` FORMAT @[Q]'/v FORMAT `+6"AT [B]pFN V▙>= RESTORE *" RANDOMIZE PyUP}s} LPRINT ACS P0= BRIGHT  LPRINT [J]!%Agn NEXT USR */.m LOAD j ▘q INK pbRND LIST  LPRINT X<[R][C][I],8p{J]C BRIGHT USR RCFN (ET CLEAR  CONTINUE PEEK Q CLEAR [S][T] RETURN ] CLEAR ▖ATTR INT ] MOVE ▘▖Q STEP ▖FN *T▘** COPY E▖SCREEN$ * INPUT $ LPRINT TAB ▗zl s= OUT #▛"TT5 ABIN ▖▛@▘SCREEN$ [L] MOVE < LPRINT (TAB zF<@i6vVAL ▘@AC[Q]SCREEN$ 0ATTR *V BEEP  POKE   DIM  . VERIFY <` COPY [M] COPY  COPY  RANDOMIZE  RUN  COPY  RETURN  RETURN  COPY  OUT [Q]+ NEXT 'f▝[P]>z SAVE  BORDER ? CLS 34 LOAD  RUN SCREEN$ PEEK SGN  LOAD  OR "b▚ LIST  BORDER NOT !IN  COPY CODE FN [B]BFN  RUN  INPUT  INVERSE a=+VAL$ STR$ AT PEEK ▙SCREEN$ Z;+ABS eINT ASN  STOP DTAB /ATTR r)[O] FOR SGN daBIN f4$T©:P[S]2USR p GO SUB XAT INKEY$&)▛SGN  COPY [H]/@~ LPRINT  LPRINT 8F LLIST LN -LN  PAUSE | OUT L?PEEK [U] REM ,▞U!^]T!e.[Q][F] CLOSE #i LPRINT BIN U[O]:` PLOT  @QUSR  PLOT    CONTINUE P$[E]b FOR  RANDOMIZE 8▘ DEF FN H  CLS <>RNDACS p@v!ASN <=~,[D]l-kS]([N] MERGE OABS ~ CLEAR }eA[R] REM ?uTUT%_R THEN y RUN  'b▖@t[G] RUN IYV[Q] CONTINUE pp LIST  GO TO  READ [T][L]C PAUSE )[M] GO SUB ( OVER [O]% LIST  LPRINT 5(.USR 16(CHR$ uaTAN [T]SGN USR  IF v[O]J TO  CAT [[E]z▝n<POINT FN ▜PEEK S{}[B] CIRCLE z OR  IF Cz~D IF COS  CIRCLE 3COS SIN x INPUT  FOR %[H]7[D]SIN <>u`g▞UV<>b+RSTR$ ▖z[P]5[O]RP STOP [J]@ COPY (LEN X[R]ASN 6 NEW DK▘<>ATTR  IF [C] COPY  LPRINT  PAPER -Ze SAVE }]=[E]2ATN [G]TAN uSIN  CONTINUE  FLASH  OUT <[B]v DIM [P][A]:lPA+[B]U[L]i[U] POKE XFN ePEEK STR$ gFN VAL gb▛([J]=s) PAPER ?[$[N]P% TO !yqjba MERGE  LPRINT ^ FOR [U]|[U] COPY ! LINE TAN KhcReY LIST _ACS  BORDER wS CIRCLE 3 LOAD d LPRINT )*<=@1▙DZ FOR  CAT VASN  STOP beTAN USR zh OR KbUSR  INVERSE  [S][A]RNDH[C]FN  MOVE FN  TO [A]c0VAL >=m^h/ BRIGHT =[PI/,G INVERSE  RANDOMIZE  LPRINT . DRAW ] COPY .USR U SAVE + CAT CHR$ e LPRINT a]FN $@SGN n0W DATA  DRAW >= VERIFY  FOR  DATA ~[E] LIST 8 LPRINT g POKE e@FN @ CIRCLE V ERASE  LOAD HSTR$ ASN  THEN ABS ▜SCREEN$ ^Q POKE  MERGE  SAVE [U] PLOT  ▚COS . RANDOMIZE  CIRCLE  DEF FN (SGN '(`Dpk>▖▙INKEY$[Q]Q@ FORMAT 00A< { CLS WNOT (V(-(XFN [S]FN N([I]` .l#@VLVAL [B] COPY  RETURN EXP  REM U COPY ! MOVE AT  CAT [F]~xp+ FOR [K]3 DIM I4"0P SAVE ▝ PLOT   RESTORE ▝Y= RANDOMIZE Z DEF FN [U]'UhS(SGN 4 LPRINT `<= LPRINT  CIRCLE IN WLN  RESTORE H OPEN # h▗]NOT (PFN CHR$ W FORMAT  BORDER [Q] /  LIST s  NEXT  CLS VAL$ +``[K][P] PAPER  BEEP  INVERSE [L]SIN ? BORDER ?COS ]SQR [A] DRAW %CODE  DRAW  COPY / NEXT <▗/YGp[I] SAVE Z▝[Q]@ INK "O__>oFa[U] IF r CLOSE #PI6p RANDOMIZE VAL  LPRINT %INT T LLIST STR$ STR$  CLOSE # LPRINT dPOINT <}▘[O]x INPUT ▚▖,3LN POINT &SUSR )[Q] LPRINT 00[Q]Y[M] LPRINT D[T]▘bLATTR N SAVE  BEEP  CLOSE #~[A]▘USR /SIN INKEY$S-(T#(PI[E]) LIST  LIST LN TD <>9Ba#PEEK + STEP U NEXT CODE SCREEN$ ATTR  OR A[T]ATTR E▗"]<[M]▜j COPY  RETURN  OR V<=▘ COPY  NEXT  COPY  CLS  COPY  COPY  COPY  CLEAR ▛'© COPY  RETURN  PRINT *:SGN  LINE ©:VAL VAL$ [G][C] LET  NEXT  RETURN S TO ▛[D] CLOSE #C,USR #P LET [Q].@+@Y[B] PRINT * IF ▖N# ▗" ERASE H0u MOVE 0 BORDER  AND <> STEP ? RUN  LOAD [E]CODE Q[A]hPOINT PI`@ WEXP  COPY G'© COPY O DRAW  STEP / LOAD  CAT G7X CLS `u*LN [T]<= CAT UU_ LPRINT 5T© DRAW ▘ COPY  DRAW VAL$  GO TO T?s[O]U/+ CIRCLE  OUT  DRAW SCREEN$ PEEK  CONTINUE E ERASE  BRIGHT 2DDd[Q] DAT [Q]A,](T(PD▖U"q("D LPRINT  SAVE TSCREEN$ ATTR *D TO ATTR WAT ()d4,sAT ©AT o( A/.`▝BG_©▖b* DATA T[A]▗"@Si NEXT v PAUSE ,?> PLOT  c▖[Q]4USR J>ABS  * PLOT   ▖ STOP `"  INVERSE  RESTORE  RESTORE  CIRCLE ▖USR L@{[N]USR  RUN  READ , NEW  INK ^! THEN FN  GO SUB 7[D]5VAL  PPOINT Rq93VAL ▟&[S][K]U`SL? BORDER INKEY$A NEW U>[Q]OS@[U][P] M COPY YGC+*▙"f OR [K] RUN _B▙Ak©/ RUN oLOSGN m*?ABS NOT STR$  COPY  COPY /w@ COPY /@_? COPY  SAVE U< CONTINUE 3 REM 7[Q]:3 COPY  INVERSE ?▜jg RETURN  OR > BEEP ▘ CAT  REM  OPEN # CLEAR ▞<> SAVE [E]ez|] IF ?}SCREEN$ #R]U+T▗UE▛▖ALEN ,P48 FORMAT  LN oG[ COPY  CLOSE #STR$ LN USR ▛ MOVE  ▛AUSR ▘▘AT STR$ @[Q]+[Q]N[Q]@  FORMAT  MERGE  RETURN [S] GO SUB ATTR }T ▖P[Q]lG*©?|?]</>T.> GO TO Gt.>|/'.FN G DRAW  RETURN  DRAW . DRAW SCREEN$ T*©~? @ LET  CLEAR y?LEN @ SAVE [J][H] COPY  COPY  PRINT © COPY  GO SUB ©IN  SAVE IN IN TABS  CLEAR  PRINT _U CLEAR U©1SCREEN$ LN SCREEN$ CODE  COPY [T] SAVE STR$  LPRINT DQ*(G[G]SCREEN$ VSCREEN$ :%T CLEAR  GO SUB #gb INK k COPY  RETURN c SAVE  COPY  POKE AU DRAW PEEK `SGN ]BPEEK  DRAW @ RETURN  / INPUT [Q] DRAW  RETURN |@PEEK XP DATA LP OVER   INK LN  LPRINT ©IN ©@ LOAD [Q] COPY P COPY [Q]SCREEN$ PV LIST [Q]QE[S][I]~nso?rX_TEIN  COPY IN © CLEAR ▘o| CLEAR  CLEAR  IF ©UT▝^b=SGN ▖}ATN PEEK SCREEN$ ATTR } MERGE  INVERSE PEEK SQR SQR  RUN  OUT .SCREEN$ } LET  COPY PEEK  CONTINUE IN tw©. CLS  COPY  RUN  CLS  CLS } RUN  CLEAR #SCREEN$ FUO[S][G]PIY[J] CAT -4CODE Q[K] RANDOMIZE -_ CLEAR [M] CLEAR -YABS [G]EXP AT  INVERSE //TAB  DEF FN ]+ BORDER ZeR▜ OR SGN J0SIN  OUT  RANDOMIZE SQR  LOAD }7 COPY [N] COPY ABS  RETURN ]VAL$  DRAW  INVERSE x CLEAR CODE [Q] POKE y*U<[G],x RETURN EXP $0A[T] READ SGN A RUN t# FOR FN O BRIGHT VAL$ * GO TO wWA|▙SGN A)l▞OU~"/ OUT  INK  LOAD ABS CODE <=z BEEP  FIN © GO SUB /©u IF  LET + DRAW VAL$ ▘ RANDOMIZE ^ RANDOMIZE *PEEK  COPY ;QQ]}▟ COPY *[R] LIST  LLIST  BEEP a CLS USR aNOT 0 RANDOMIZE *No© LET USR  FLASH @" LIST ▛7▖"[O]UF CAT [E]LEN [L]`TLN ▝]"VAL$ _DLEN BVAL$ ▚A_FJSCREEN$ INKEY$SCREEN$ [S] IF BBRE]:WP▘@A CIRCLE ▘UPJVAL$ IN [T]A CLEAR F.piM$NOT NOT )▙USR `/VAL _XCODE  CONTINUE _ CIRCLE ▗_ CLOSE # +©T`A SAVE  POKE "IN  CLOSE #8#SCREEN$ E_BIN @+ REM E© MERGE JIN  CONTINUE © PRINT ? FLASH  SAVE PEEK  DIM *VAL$ sBIN F1 COPY  POKE * COPY  IF @© CLEAR @ASN  OUT  RETURN  S▞U CLS [H]!U_ CLEAR D@ATTR ▘ COPY  PRINT QSCREEN$  LOAD ATTR W COPY  COPY  MOVE CODE @ STOP P CLEAR T*SCREEN$ INT [Q]UUU CAT [B]dCODE  COPY %r@ DIM (USR w RETURN CHR$ COS  RANDOMIZE ▙ CLEAR l% CLEAR  Po[D] RETURN  RETURN AT  IF m[C] SAVE [Q]j[G] GO TO FN T[T]AT t LINE "AT V9[T]9 INVERSE 1▛_% INVERSE ▘IN ?[A]:▛INKEY$ OPEN #V[D] CONTINUE ▜U REM Q▞INKEY$▘1©EXP ^F LPRINT ▛ MERGE d▛>,_PEEK FN _PEEK  UACS 8T| RETURN [B]t,FN ^QCODE *▗WCHR$ /DD[I]w*/**jPkQf4D[A]n[H]▘U4CHR$ $W+@POINT VD<<CODE [H]7S GO SUB  PRINT E COPY " DRAW  THEN  COPY . DRAW >= NEXT   DRAW USR + TO >=` LPRINT ▖▙ -SQR ".LN ▖- FN -PUSR E  MERGE * STOP [A] OR INT +▛ READ  LIST  1 DRAW #LN  TO >=p# RETURN  PAUSE SGN  NEXT SGN " COPY >=/L TO SQR VAL  INPUT ▘[B] LINE ▖d INPUT t<POINT ▖ CAT COS  IF © INPUT -w[B]H`? COPY  COPY # COPY h@VAL IN <?IN  COPY  LOAD  COPY  THEN /#LN 2"▖"> DRAW > COPY R PRINT E)FN SIN  FORMAT  NEW RYX_ MOVE  LIST  PRINT  TO  OPEN #BIN ©.(?MW AT POINT [B] IF ATTR  LPRINT ▝F][K]>=TBIN h8USR  NEXT <USR NOT  CAT ;TAB <▘6PME/USR SQR . RESTORE * RETURN  GO SUB LN "0 RANDOMIZE ▖E3@SQR uP IF *uT  IF  bVAL SCREEN$ (U[Q] REM  MERGE  READ [S] MERGE TD READ FN FN ▗@[T]>=QALEEXP VAL$ RT_FN *VAL$ @@_ PAPER U( GO TO  CAT SCREEN$ &4 INK ATTR T▖PV<= GO TO *ATTR  LINE B[H]<=@! OR hG[A] STOP  FLASH  [S]A[Q]Q A@t▘G[P]#USR T3[D] READ  NEXT 002QVAL <,ABS } DIM "+NOT  THEN  TO U TO >=▟STR$ LN lLN  LIST USR ▘ PRINT [H] RUN  REM  COPY <> CAT  FOR  READ [E]B?ATTR  CLOSE #,AT  BRIGHT  GO TO  POKE [A] BRIGHT  DRAW  DRAW LN  BRIGHT LN  GO TO ▖ PAUSE  LIST LN  DATA SGN LN  GO SUB  SAVE POINT PEEK  DIM ; PRINT LEN  LOAD  COPY D"▖|PI3▖▖ TO  NEXT ? NEXT [H]% NEXT >gRND OPEN #S[I]RND▚[H]> COPY ▖ THEN ASCREEN$ ▝% OR DUE"[S][S][R]BNg VERIFY [H] LINE ©[N])▘x PAPER  STOP  CLEAR TAB [M]L/ CONTINUE & RUN © MERGE @[S]STR$ * IF IN  CLS  BORDER  MERGE }CHR$ F▖[Q]FN C PAUSE © PLOT  CHR$ ©SQR  DRAW COS [I]FF OR jDSGN [G]gcPEEK ]@> } FORMAT /[Q] BEEP P LOAD FN ©TCODE  CONTINUE Wt(ATTR ASN FCp RESTORE p,▛ LPRINT p"/[M]BIN _t LPRINT ▖CODE t_ POKE [S]dV FOR  RANDOMIZE ▞Tt> CLS PEEK  LPRINT ]BIN 5CEXP  CIRCLE  LPRINT  LPRINT gA* RANDOMIZE "EXP NOT pA TO SQR ATN t(VAL$ *LN CODE  OR VAL$ E|Gb INPUT  INPUT U[P]SQR VAL$  VAL$ B[T] READ LEN <A RUN v[E]# FOR SATTR LN O OUT  DRAW VAL$ USR POINT  READ w DATA INT AT AAUSR  CAT L1@ PAUSE [S]NOT ©©@!U INPUT FN 1<=AD▖▖USR 6 AND  RESTORE  LINE W*"@P▛3▘ STOP  OPEN #Eq LPRINT 2# LIST < IF HN<=©6>= FOR 7,5[S]▖qW"SIN v LET ATTR 6+ CONTINUE "@ LINE  GO TO #AVAL ()k CAT  CLEAR hAUSR ( MERGE @"EDt A ▘*  THEN (PDg P"▘nP@▖[S] RANDOMIZE  RANDOMIZE .}. INK _3X RESTORE jhASN + CIRCLE POINT  [S] LPRINT TAN  OR UINT ▞USR  STEP [I]SCREEN$ SCREEN$ FN pU MERGE Pp<PEEK SCREEN$ [Q]x- MERGE  OUT D8SCREEN$ :(89UTQ8SINT [S]FN 1WEURVAL$ LN ` LLIST mFN INT FN  1 CLOSE # MERGE QR[T]SCREEN$ ▖35D[Q]PSCREEN$ 01 MERGE ATTR [T] SAVE 1uZ REM / SAVE (FN ▘9U▚((Q OUT  CLOSE #Pc  PRINT TSCREEN$ "@*[Q] BRIGHT $@ASN STR$  MERGE Y OR [L][Q] RESTORE E,TAN LN @JIN ATTR  STOP QSIN PEEK  LET USR .( SAVE 'LEN  FORMAT USR   OUT )USR  Eq/E[S]AT  LINE q|ESIN VAL SIN USR S TO <=+* LINE U OR (SCREEN$ 1*USR  LIST  OR STR$ qSIN  LINE [S]p OR [S]VAL CODE J/e IF FD FORMAT SQR A"""" @@▘[S]P@D▘ 5QD@ STOP "[S] [E]RND@*" STOP " CONTINUE EXP Ee[S]▘P)1 CAT W[N]p COPY $POINT kCOS U LINE $ RANDOMIZE *Vk<> LINE ▛]Mk DRAW $5kR OR <>[N][F]_fRND~"NOT USR ( CIRCLE {PEEK <>@[Q]1[G]@$-[A]XYX YH`SIN  FORMAT SIN [Q]eb[Q]Zc`=STR$ ;CHR$  DRAW ▘[H]▝IN  RETURN ^ VERIFY  REM e©"}?SGN E>=0 T@:hB2M( COPY -▘ZsUSR USR VAL$ AT  PAUSE ([Q]*▘▝ INVERSE INT qLN  FLASH  STEP j8zt[K]`[K] LINE <=jAT [E] BORDER ? COPY  LLIST @ .8PISIN % ] NEXT 4[P]POINT  B THEN & LET 0[Q]PEEK "0 LIST  FOR <>/AT [S],BATTR [T]kLEN dAT #gAT $CHR$ TAB Ad[H]EYVAL$ LEN CODE #@CHR$ CODE "VAL TVAL $A[B]LEN %[Q]ASN bRND CONTINUE %ASN SIN "^▜VAL ▛AT  INK COS +XT}COS  STOP INKEY$COS !SGN  GO TO COS bOTAN X@eTAN pTAN d  OPEN #ASN USR #3ACS #mSCREEN$ ACS [U] BORDER Z▗ACS 7LATN u[O]@>=<=ATN NOT  LIST ATN [P]LN $@qEXP ! INT 5INT "VAL$ > STEP  LN SQR #8SGN  NEW < MOVE "▗ABS COS PEEK [O]IN  RANDOMIZE $TUSR $  BRIGHT USR % }STR$ YFCHR$ " BORDER  DRAW %NOT ?N$m&>=NOT [T]&)BIN #INT  $ OR [R][N] OR BFN  OR [D]9 AND /v AND  G▛ NEW  AND !P<=[U] `">=#R>=CODE ]BCHR$ O<> CONTINUE <>,+▞ LINE "[O] LINE [T] STEP ▖ THEN ?G▗ THEN [S]SIN AT  RESTORE " TO #_ASN ~[N]SGN  TO ! FLASH  TO $ NEW  TO ▛_ STEP %~ STEP kB DEF FN p DEF FN  CAT # CAT SIN PI TO _? FORMAT [P]T( STEP  FORMAT !Ad MOVE !ms| MOVE COS ▜ MOVE 3[M] ERASE  DIM "CP ERASE D@▝[R] OPEN # ERASE ASN  VERIFY  FLASH  DATA  GO SUB dTAB  PLOT   COPY  CLOSE #X CLOSE #E# CLOSE #D8SCREEN$  CLOSE #/INKEY$ MERGE  BEEP  MERGE  VERIFY  FORMAT Z*;L VERIFY FU VERIFY B0STR$  VERIFY C- BEEP " RANDOMIZE ~CODE  BEEP  CAT  LPRINT  COPY  BEEP < CIRCLE e CIRCLE (v ▛ CIRCLE  LOAD  IF  CIRCLE  BEEP  INK -%` INK  OR  INK  NEW  COPY E  PAPER 1 PAPER SbdTAB kt} PAPER ,XG▚RND PAPER  VERIFY 7d FLASH "h FLASH ![B]VAL  FLASH !3 INK  FLASH # REM  FLASH o NEXT  FLASH $VAL  BRIGHT Ke BRIGHT ~[H] BRIGHT AX(VAL  INVERSE  BRIGHT C& INVERSE ▛ INVERSE "SGN  INVERSE C RANDOMIZE  INVERSE E/ OVER B▞▞[L] OVER IN  OVER 3 LPRINT ▛ OVER * OUT `![G] OUT ( TO  OUT ([F] LPRINT PEEK  LPRINT @ LOAD % LLIST [ LLIST #[B] LLIST d CLS  LLIST KS STOP  ERASE ©;/.y LINE  FORMAT  LLIST ©©EXP J&! MOVE c@STR$ l RANDOMIZE XVAL$  PRINT  COPY Z3© VERIFY ▞Z RANDOMIZE  BEEP  ~ IN  VERIFY  RETURN  PLOT  (H FORMAT *TAN ]DUSR j INVERSE B0  OUT  Du(/(TAB 5(((D[A]?p COPY  0H` INVERSE PSQR <>~O7<>[I]`*+ COPY VAL Q%`, DRAW  BEEP ' RETURN <=@USR  [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT  VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY @USR P[A] FORMAT  `[Q] LPRINT 0pVAL  LIST D▗BIN T[E] CLOSE #$d[U] DATA 4tTAN  POKE H▖>=X[I] CIRCLE (hFN  CONTINUE 8xLN  SAVE L TO /[M] BRIGHT ,lAT  GO TO <|SGN  DRAW A▝STR$ Q[B] MOVE !a[R] LLIST 1qLEN  LET E OR U[F] MERGE %eRND RESTORE 5uASN  PRINT I▞<>Y[J] INK )iPOINT  DIM 9yEXP  RANDOMIZE M▟ STEP ][N] INVERSE -mTAB  GO SUB =}ABS  CLEAR B▘CHR$ R[C] ERASE "b[S] STOP 2rSIN  PAUSE F▚ AND V[G] VERIFY &fINKEY$ NEW 6vACS  PLOT  J LINE Z[K] PAPER *jSCREEN$  REM :zINT  IF ^[O] OVER .nVAL$  INPUT >~PEEK  RETURN CNOT S[D] OPEN ##c[T] READ 3sCOS  NEXT G▜<=W[H] BEEP 'gPI BORDER 7wATN  RUN K▛ THEN [[L] FLASH +kATTR  FOR ;{SQR  CLS O CAT _[P] OUT /oCODE  LOAD ?©IN  FOR  SAVE  COPY  DIM [O] DIM  BRIGHT  GO TO NOT TAN  THEN [R] < LET gp< NEXT @AT  NEXT _@@ POKE P@/ PLOT  P INVERSE N INVERSE F INVERSE ^ INVERSE V INVERSE n INVERSE f<> OR  RESTORE G(w~#  NEXT  LLIST  MERGE ▙[P]H VERIFY STR$  RESTORE  DATA ?D! RETURN  RANDOMIZE W COPY  LPRINT X< POKE SQR vUSR U LPRINT N COPY 33NN LIST  SAVE rw DATA 0+[)[Q]X MOVE > OUT ? LPRINT "k*D[Q]~ AND 9[E]©/ DRAW z-?▖©▖©g RETURN  RETURN ©9COS ©? FOR  CAT FN #▗TAN [D] SAVE  POKE uaT CLEAR > ▖YWi BEEP  FOR  CLS %d COPY  SAVE  SAVE 1 STOP UCOS  COPY 0?_s STEP  LINE [H]OFN Ij CAT ? FOR  OUT >=m RETURN *▟? COPY  BEEP J<> IF 3©|) POKE #▙ BRIGHT /IN D? GO SUB  COPY + INK %Y PAUSE Ws PAUSE  LOAD ©~ CLS g%& NEXT  INVERSE  LOAD  COPY 9 GO SUB ~ NEXT ?+ DEF FN l PLOT  38fz STEP  DRAW [T] GO TO  BEEP [U] IF  FLASH USR v[G] COPY %AT @ THEN mj[@ DEF FN [P]^ATN [F]aSIN #|) CONTINUE ?*ACS ~| AND ,[N]=COS XY <X.k@[I]SCREEN$ SCREEN$ } RETURN <@E INPUT  NEXT  FLASH IN  RETURN C[l▝"SGN USR p CAT  COPY 6' INK CHR$ , DRAW  DRAW /`CODE  CLS 5W.(<>, COPY  CLEAR : RANDOMIZE k%&0VAL D THEN  COPY  DRAW . LPRINT  COPY  COPY 4USR © COPY VAL @[E] LIST ? COPY [K]/^[I] COPY 0[Q] OR ©w(o SAVE ©}? LIST MAT _ CLEAR ▝VAL$  RETURN ▘[B]P OUT  COPY  CLOSE #[F][Q] LOAD  COPY VAL ACS BIN INT _ COPY e FORMAT  OUT @ LOAD  RETURN CODE XUSR TAB ▟ RUN  MERGE ©>=[C]61 REM [S]IN m`m PRINT  FORMAT ©USR  FORMAT  LIST  BEEP n INPUT 0; ▘ GO SUB  VERIFY ▞ LPRINT  INVERSE  INPUT VAL$  NEW CODE (▖ LET ▟ RESTORE _yP▖▞ STEP >© KBIN  READ ] CAT [C] OR  AND  LET VAL$  NEXT  CIRCLE  READ  NEW  LET ^uVAL |O RESTORE  STOP pCODE 3 CONTINUE z PAUSE  NEXT p_NOT b LIST 4pqq8/ NEXT LN  CLS ▙ PLOT  gy}F[L]SGN INT  IF  RETURN (//©▝ DRAW >*..? LPRINT 8jASN ] LIST  DRAW G[A]/CODE  DRAW ) DIM  TO VAL$ <= AND IN Q ERASE  BORDER @[L] FOR  LET _ FOR RND BORDER  NEXT  SAVE * NEXT [L] THEN [Q] CLEAR  COPY W BORDER ©<=[I][Q]+©© SAVE ▛▚RIN < RETURN CHR$ ©,}6L READ  CLS ~^ LLIST p COPY IN *4uINKEY$ CLOSE #>=o CAT RND~ IF  DATA  LIST 5 OR USR CODE } POKE :pg~K<=W FORMAT  RETURN (}>= IF  LET `PCODE  COPY SQR WcRALFN h? COPY  DRAW 1 LIST  COPY :▚Cn[P][S][P]EXP  POKE (H[G]INKEY$ RETURN 0^%=yqIN [H] OVER 3oB BEEP w OPEN #-IN 9- RANDOMIZE RND STOP {(-SCREEN$ [D][R] LOAD -*NOT  COPY  CAT [P]0▜-!_- COPY ▝; READ :© RANDOMIZE -;g[B][J]-M COPY ©3<>- CLEAR ? LPRINT - RETURN  INVERSE t©USR [S]-/ATN  GO TO  LPRINT  COPY < BRIGHT  FLASH ^>QpCODE  RUN ▟ COPY  TO - ,Jv CLS VAL ▞ BEEP x▖[P]- T CIRCLE ▜'l THEN [O]T-@USR .ATTR ! RESTORE  READ SCREEN$ ? POKE  LPRINT --[P][D]8UU© LPRINT ▝-'IN aLEN CODE %[Q]-[P].-+4[Q] CAT STR$ -▚}*[_@k[R]©Q]"M@[M]_ GO SUB -| FOR  CLOSE # BORDER O CONTINUE -*▗*f POKE `- BEEP  COPY  FOR u- DIM >P}-C2 FORMAT SCREEN$ ▞VAL$ SCREEN$ INT ▜ DATA [▝-FN E PAUSE [R]▞M© DRAW ▞[R]CHR$ IN  DRAW  VERIFY -;-STR$ © CLS ATTR  DRAW U PAPER f▙ POKE  REM  INK -- RUN @ RETURN E[Q]'f RANDOMIZE  SAVE -aW INPUT [P] IF @ COPY  BEEP , CIRCLE -"[S] GO SUB ? PLOT  ` COPY [-▝PINT zUSR ▞>=_ FORMAT | -PFN - COPY  CLEAR VAL ATN PIFN ▞LEN Px}P%UYP: POKE  LOAD - LIST [Q],C COPY +- COPY SCREEN$  STOP o LPRINT o LPRINT  CAT  COPY /[A][M] CAT DS}D-? COPY ' NEXT x FORMAT @:-[P]▘ REM g>1 RANDOMIZE [E]X_ LET  BRIGHT  FOR  BORDER  RANDOMIZE P LPRINT VAL  OUT oUSR AT -▜ READ BIN USR / TO IN - SAVE (TAB  THEN  LPRINT LN  MERGE h MERGE - STEP  DRAW  IF $▚[Q]*< SAVE >= OUT c[C] RANDOMIZE ATTR  CONTINUE  FORMAT -_ CLS  LIST  INK ▜[E] OUT [O]U COPY  CLOSE #_M PLOT  `▜| BORDER  LIST <>-xJ[Q]STR$  SAVE -x LPRINT COS  [P]8▜ OVER PW[Q]x OVER 0© COPY STR$ COS VAL <- COPY [P][S]SCREEN$ *ATTR  CLEAR  COPY  AND FN -?M#; STOP 5NOT  GO TO UUw RETURN q/+ DRAW e COPY  LPRINT -ATTR [M] LIST SCREEN$ SCREEN$  LOAD  CLEAR VAL$  INPUT -5 LIST KP:UsxU_ RETURN iVAL w. LOAD  DRAW ATTR <uSGN CHR$ SCREEN$ CODE  RANDOMIZE VAL$ ASN pP SAVE 1[B]SQR  BEEP VAL$ ▙▙PEEK <U OUT  AND VINT SGN :ASN }e FOR [H]JSCREEN$ <>ABS ▘©[U]▚VAL$ 8u~V BORDER RCHR$  OR @ CAT GFGCDGCC CLEAR  NEXT E% MERGE Y;FFAAA STOP uVAL$ ACOS o OVER ]x[O] RETURN [S] FORMAT  PAUSE [S]NOT NOT EO LOAD  LOAD <=[S]©©USCREEN$  RETURN  RETURN PEEK IN ▛ INPUT FN VAL$ uw IF  RETURN {,UFN ▖SCREEN$  FOR  CLS ▖ RUN TAN  MOVE  RUN ADUSR b"▖▘ LET [R]R[R] CLEAR [L]XM^ SAVE ` RETURN  CLS ▛_▖ RETURN 8[R][M][R] COPY  FLASH ff<>+*# FLASH  RETURN INKEY$ yVAL O[F] @0 LIST y PRINT : PAPER  REM ] FORMAT NOT RNDSGN %[T]({ NEW  ( PAUSE  THEN 8 GO TO >=<>[K]?C DIM ▘ NEXT  GO SUB s INK "b INK ! MOVE a@USR  GO SUB VAL  RANDOMIZE  LLIST  MOVE STR$ 1)NOT @ GO SUB LN ` MOVE  INK  LLIST ; LET  INK  INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN   REM CODE  RETURN 0) RETURN  ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK  OR  INK ; LET <([< STR$  AND 0( FOR = INK O INK ) LLIST A INK 8 CAT  INK CODE Z) LLIST A  RUN  RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY  LLIST ) LLIST A NEW  RETURN 8 MERGE ; LET  MOVE !SGN @ INK 1 NEXT NOT CODE aMsPks OPEN #n OPEN # RETURN  COPY  VERIFY p[_>$sCv CIRCLE s0C(#c$S LPRINT Er$[D]H▘"[P]s(c6S-[K] GO TO -IN ©&d INK gD▖lp COPY 7 PAUSE ~▖ INK ©"$"[A]VAL QDF▗ POKE ▚▖$d!5[P][E] THEN [O]## IF ! DEF FN  READ 2 STEP "[N][R]2 READ 2JK "LM65 READ @ STEP =c! RESTORE |NOT #! READ  THEN ~>= THEN v(:O` NEW CHR$ ▛`:@ READ  RETURN  TO ZFN nBIN RPOINT  STEP  LINE [NOT ▛[U]▜▜!i/ STEP :▟ READ PEEK #F8:1 READ  NEW (#^>(> SAVE 0CODE G GO SUB CE READ !  THEN [G]k<>d//]LtU?7LLDDCODE 2 PAPER /!LN INKEY$D" FLASH d BORDER  INVERSE /<>*▛VAL +|ASN USR 2i<, NEXT >2=` CLEAR  THEN ▚ DEF FN B CLS <> STEP [T][M]*0N# THEN 5 THEN yy NEW 2 READ ` RETURN `>=O: GO TO  NEW @ SAVE LEN  PLOT   POKE <>/: OUT / INPUT 2!&8!"INT ]NOT IN ^([I]&&[Q]&VAL %&@ -&&&▜#LN O POKE 3p RESTORE /`[C]$&&▝pAi&k`X@(8▗&B[G]DnX MOVE 3`h&▖$h[F]E'&Hx% COPY  LOAD ]{b SAVE ]~b^▝b^▗b^▜b^rb(^ub2^xb<^▟bD$^[A]b`▖:▛x▖>=fjKjd RANDOMIZE  DATA [D]VAL M7{SIN  LOAD K[B] COPY 2_+_kATTR Q_ LPRINT /CHR$ _!  GO SUB s?` CLEAR !<`CODE 2NOT [Q]22N`< CLEAR  THEN V( PLOT  2CHR$ [Q]fBIN z[R] STEP y"/ STEP ATTR ^ STEP IN ^> STEP  FLASH ^:, NEW ( INPUT  STEP _V CLEAR ; LLIST ! RUN /[G]7F(!{]<> STEP SIN ^ OR  STEP  LINE ^STR$  RANDOMIZE <> RESTORE ![R]"[[S]!/i[S] LLIST NOT ©[S]E15&5USR H POKE C:>▘VAL ,=`<>NUSR >=ZX!~[T]~2 AND <>HL▚P:"##PEEK (N#  CLS  PAUSE <> FOR ~#foCOS @ DIM :LEN  NEW  RETURN  PLOT  [@ABS ~0 FORMAT ▟^B OR [C] GO SUB { GO SUB <>!<=] @ OR  RESTORE A^#V#> COPY ?LEN ! NEXT  LLIST STR$ [U]o_[U]H RESTORE  AND O LLIST #>= RESTORE  OR !ACS _ STEP [T]:LN @_!tb{ GO SUB ># SAVE bEXP STR$ [T]▝_nBIN EXP VAL A" MOVE  GO SUB [Q]7<>CODE O<NOT  LIST A` RESTORE 6h#6▖m NEW <G6 ▝$: CLS 6 COPY  LLIST < CLOSE #4 ▖ STEP ;C`!X^<(]=PEEK #( PLOT  [U]xX▚ POKE < CLEAR w CLEAR 6*A▝▙ RESTORE { LLIST [Q]( PRINT  RETURN (>= CLEAR ^ FOR #w FOR  LOAD $▗+PEEK  LOAD w%_STR$  LLIST  CAT  RETURN  COPY  PLOT  ? STEP 8[A] LIST F & THEN  AND  STEP  STEP x[E]` STEP ©[S]>H STEP SCREEN$ `xLEN (CODE 2 READ 24 READ >2? READ <>, NEW ! COPY PI STEP oFN  STEP $[C]1USR  BORDER NOT BIN a00[B]▖ REM &$ COPY  MERGE  PRINT  STEP y[A]AT  OR !{b STEP [Q][S] NEW 0STR$  O  LOAD  LET  MOVE ='0 LLIST [A]<>LA@p RETURN  OR  RESTORE [I]A~[S]w LLIST  STEP /[R]STR$  LIST  LLIST STR$  THEN 8 CONTINUE { POKE ▜x?~><BBx<[A] LOAD <>~ NEXT !USR c BORDER 8[Q]!VAL [Q]  INK NOT [Q] STEP INKEY$[R]!R[J]" STEP oP▜![A]ATTR " READ  STEP ^^INKEY$A▗ STEP [K]bUSR TAN >2G READ >c2nD 82Zg[A] STEP '8 /k STEP #[T]c STEP SGN ▛ STEP [G]▜ STEP  INVERSE ▟m STEP z STEP [O][K]LN :` READ PI TO [R]NOT  POKE a: PAPER Q/PICHR$ ATTR /}rbht RUN  PRINT  SAVE |j<wju[L] LET )@" CLS GxAT [P]NOT  OUT [S]x[R]POINT USR yFN G<> RUN  LOAD  LOAD  CLS  CLEAR  OUT  OUT ©# CLEAR  LOAD  RUN !WkEXP  NEW a=( PAUSE ![I]!kCODE  PRINT ▝>2$ READ  LET LEN k0 GO SUB VAL 2▖ BORDER !  GO SUB PI(▖+("H READ <>:K READ USR O:J READ j[G] THEN ©USR  THEN WA▘>=KO▜▝*▝!+  PAUSE :▟>=2&w( NEW < THEN ?GCODE  VERIFY O OR  GO SUB KE READ G STEP yiSTR$  CIRCLE  LOAD >2%), READ > MERGE >!2CUSR P>=▖▞[B] LINE  ERASE :!0o CODE /iv'![M]W2@= STEP Ec:/OY(q( GO SUB D!F READ ▚wy,![B]*["A([D] PLOT  ▖![N]~ >= NEW 0BIN [A]g# THEN ▚ STEP  CLOSE #b NEW :LN kCHR$ rf THEN 4Y:ATN NOT  POKE fNMLKJID!1ACS j_ READ  STEP PEEK b STEP t[A]@▙! INVERSE  THEN ▙ STEP  LOAD c NEW K@!S PLOT   READ :d<> THEN `CHR$ yj THEN hCHR$  LOAD h THEN XCHR$ )g STEP ~g:,OCHR$ kg THEN GDhNOT SGN dg@CHR$ OdaCHR$  CLEAR eB RUN e( STEP  INVERSE b& BRIGHT 4IN &/i~CHR$  RESTORE 6T5=(VAL$  THEN ACHR$ RNDi,EXP V BEEP QSIN h NEW 4BIN [ NEW BIN [I]iNOT [U]5"[I]d=USR JA>=Mg  THEN o  THEN _!@ Wy ![C]▛of@ THEN  VERIFY <>![F] CIRCLE  BEEP ▚NOT [M]%#&$) LOAD  OR xNx FORMAT  LINE r NEW $CHR$  LIST tJ PAPER  LET f▘*USR k STEP - OVER Fe PAPER  POKE f STEP Cj!_ READ 44 PAUSE  BEEP %& ERASE & INVERSE ▙ OR &NOT &~ MOVE TAN &&55^CHR$ ][E]%+% LINE  STOP [I]<=[T]NOT ", READ  VERIFY !L READ 6#62* READ > COPY 2$<>:E READ  RETURN >8!( RETURN T:D READ 0e:" READ EXP 8:0 OR  PLOT  '!H READ ▚F` READ G.+7(0TAN  RETURN #: READ 8-3 RETURN  INPUT Y4PI(3N[D].:I▞POINT W▟ INVERSE ~>=?<>O THEN w  NEW >=7~ READ  PLOT  [Q]RND▘2y NEW ; CLS `ACS k2) READ [C][N]*SIN kLN  PAUSE  CLS 6@#~ NEW `w<> STEP  MERGE eNOT ,jCHR$ [T]GVVAL$ ▙ AND @2:LEN k STEP rf! READ STR$ .PEEK  CIRCLE ~& PLOT  w*TAN tPI@NOT  AND / FORMAT CODE  COPY ? READ 5 TO P`[I] RETURN :4 READ  VERIFY a* GO TO  MOVE NOT  FORMAT aADWTf:{=( OPEN #$t▝? REM  CIRCLE [B](y<▖:▟@ OR 2D READ  OPEN #;▙fSTR$ <> THEN  INVERSE N INVERSE FN READ o&POINT ) MERGE  RETURN Z MOVE ~ DEF FN  NEW  RETURN  >d▝TAN 1 THEN FM# CLOSE #'~ NEW < <>*4 CLEAR *P READ *N= READ yABS  CIRCLE } CLEAR EXP  CIRCLE x▘SGN  CIRCLE | CLEAR ▗LN <>k INPUT <=^w CONTINUE  RANDOMIZE  STOP DEi[G][U]= CONTINUE @ ▝i CIRCLE C LOAD USR  THEN V  RESTORE ( REM :IN  RESTORE ~PI([U] 5#>=5<>#SGN [M]▗G( DIM D& LINE khaNOT Nh THEN O R TO [O]ASN  STEP [g(  DRAW # NEW >= NEW h▘o / ERASE u▖ THEN  OVER i!M READ 6+6NNOT NP STEP ▗i FLASH G. VERIFY USR LEN M CLS zCOS  NEW USR wI@ATTR  PLOT  .BIN e!'9RNDGP+N!3▚SGN G;▗N(: READ LN 0>= NEW STR$ NOT  CLEAR ex RETURN i DATA  ERASE -fR OR SSTR$ SQR  CIRCLE T STEP  LET gNOT Td:( CIRCLE qCOS gCHR$ hF▚w`O STEP SGN t~ RETURN >=+5USR 6# THEN <>x VERIFY D NEW  SAVE Z AND Dh[G][D] PAUSE [C] READ 2 DATA i( DIM USR o DEF FN >$LN <=[T]SCREEN$  RETURN <>FN [P] PAUSE ▞ NEXT  CLOSE # NEXT NOT  FLASH h:L READ PICHR$ NOT SIN hn"*/ READ ▜NOT  STEP ▘h DIM [M][B]8 ERASE GPI CIRCLE ')RND<>▟DCHR$ ▛INKEY$[E]/fw!) READ 6@▞ COPY [S]INT I NEW *EXP k:M[:SQR k(*SGN :PEEK k2. READ "Y RANDOMIZE `SQR ( INPUT *<=<>k@, COPY D4N:EXP y ▝ STEP [A]g REM NOT  RESTORE [G]uh~ RESTORE VAL  LPRINT  INVERSE [U] THEN  BRIGHT ▘T|h[M] THEN © 05( STEP mi CONTINUE [U] FORMAT )t(L[R]▖w STEP ATN g>= STEP M%@ BEEP +6[O] COPY PI%NOT WzFN  NEXT 0+NG RETURN T? FORMAT INT .[U][U]>=<>)VAL$ H READ _<G LLIST n CIRCLE w# THEN  AND STR$ E THEN h% 8 THEN P , THEN H >> BEEP ▖STR$ FN & AND oACS Pg?0}5P0o"2RNDt([A]NOT [A] AND N>d▙ THEN VAL$  THEN  VERIFY > FORMAT [T]p[Q] LOAD fv(_ LIST / STEP  RUN ~7W0p[C]▝O DIM STR$  BORDER USR  STEP j FORMAT  CLEAR ▗K[C]wSTR$ b!/f STEP =e REM M$$ INK [B] RETURN TAN  FORMAT ?[R]: PRINT i ERASE [A][M]VAL  LET AB@? 5 CIRCLE  INVERSE !5 STEP  LET  MERGE  <= THEN G POINT , DATA  NEW e(R[S]; PRINT <>SGN  = [P] STEP LN j44J▚55 PAPER % STOP :-8 RANDOMIZE <> !BCDEFG SAVE  IF  DRAW  PLOT  v/ RETURN ) STEP  DRAW  DRAW  OUT bd>=<>jNOT j ERASE VAL  LPRINT j CAT j IF j ]+ RETURN  RETURN OVAL$ <{@X[A]SGN 3k7LEN ,k DRAW  RETURN wh IF  INVERSE VAL$  PLOT  @tk▘kqHp=[F]1!*s READ Nr FOR  MERGE  INK  LLIST  GO SUB D AND O_8PI(  INK G~[R]( INK ## INK  THEN 0# LET  INK G{▜A▜+▝O OR  INK  INK ('DF# RESTORE  MERGE kx NEW ?_b POKE USR  THEN  THEN  AND  FORMAT <G STEP Kl MOVE  LLIST D INK STR$ y AND ONOT <> THEN /USR y THEN l( RETURN +Z CIRCLE  THEN d FORMAT  CLEAR d INVERSE  INK ( CLEAR  THEN F  LLIST 4;|( CLEAR ~ABS >= THEN tSQR >= INK  CLEAR  BRIGHT  INK  INVERSE | INVERSE ASN >={ INVERSE wS INVERSE uo▜!m`[R]2#~n&4 ]T)zm MERGE  INVERSE q INVERSE pG[U]CODE ACS POINT # STOP !m▘~2 SAVE l INVERSE 6[E] PRINT $<>[Q] CIRCLE  N"# BEEP s LOAD  POKE tD LET  POKE 0t+▖▖%*▖▖$ RESTORE  REM ▝ ERASE 8u=OJ E OPEN #u GO SUB 8LvUSR  w POKE vIN w'w▝IxLN Q'DATN o7.[I]oA; XBB%[([P]%[@j+1kZ PAPER 5% THEN PPJF{ RESTORE  OR  INVERSE  RESTORE  STEP  NEXT m INVERSE  LLIST Y$ INVERSE  INVERSE hA▜>=▙VCHR$ [M]nV FCHR$ TAN n STEP ▙o STEP  TO nNOT [B]p > INVERSE ~PI(= INVERSE w STEP rnQf NEW  x RETURN COS  LPRINT  ERASE [H]▞<>q INVERSE [G]LN LN  FORMAT  INVERSE ▚AVAL$ 1[Q] AND  INVERSE 6,_▗FN / INVERSE 5 LINE SIN )C!kR?▖"! U▞ INVERSE n INVERSE fA[R] CIRCLE USR #Bf<~~ PAPER !HO~▚2SCREEN$ CG| CLEAR  RUN ?}SQR 1<> STEP Sp0©qN9/ RESTORE  LLIST  THEN 0U~#ACS ABS V+^▖ LPRINT M LIST zCOS >= INK FF▖srNOT CHR$ q7STR$ A^>=*N>=PI<>[U]vUSR E INVERSE ! DATA  OR *(Q'N l CONTINUE [U] STEP USR f0J OUT 7 OR STR$ . CLEAR  LLIST  INVERSE  LLIST h[M];^I[G] GO SUB K2 READ ?NOT )[Q]$(n(7V@VAL$ N READ  GO SUB [P READ  STEP <>f CIRCLE Y FORMAT  INPUT CHR$ O NEW (u STOP SGN  INK ▗▘2n[S] DIM  STEP  RETURN n8:VUSR g READ i L STEP ^o CIRCLE :O READ  VERIFY PC2uB VERIFY NOT Hp STEP o8  CLEAR 6 CLEAR ,@PI DEF FN  CLEAR "u READ ▙fZ(N! AND }$(EY▝▘H$ STEP 0 VERIFY  DEF FN  STOP .K [K] BEEP * RETURN <> PRINT  STEP PEEK [T] LET o USR  COPY <gCODE %  DRAW n READ EXP [F]0>D<> PAUSE ,V(T* AND O})A/ PAPER ▖ INVERSE  LLIST  INK  LIST  NEW PNOT GATTR  MERGE  RETURN / RETURN  ?~=# RETURN D?▗b@~CHR$ EXP /CN>=% RANDOMIZE ( FORMAT NOT  RETURN ]b CIRCLE [O]INKEY$~# INK FN p OR  RETURN USR 0u GO TO  INVERSE u"tUSR  LPRINT >=p{;TAB ACS 6 DRAW Fpa[S]▘= STEP mSTR$  OVER <>G INK FO NEW  THEN iP[F]" THEN yq(A INVERSE ^W<>_ INVERSE V<> _SIN #ABS  THEN AUSR  CIRCLE  THEN IUSR <>!(q VERIFY USR ▜X▛~ DRAW  REM rATN qIN q REM q COPY qrr!r3r:r&r<>r?r DEF FN rfrk-ABS sk~ VERIFY Z[A][N]SCREEN$ TAB ASN TAN EXP [I]PEEK ` OVER r RESTORE rqrr%s/s3s=sAsKsOsYs]s▘Csgsq|s[C]s[U]/USR VAL sASN s.rG5 MOVE [S]G<> INK  LLIST 5 MERGE  INK  MOVE <> STEP VAL$ q STEP FN q INK  LET PI  INVERSE u INVERSE t FOR  INK  PAPER [B]5!! THEN  RETURN 7 INVERSE PEEK G INVERSE VAL$ VAL$ PEEK "v?CODE  INVERSE w=w[C]EXP 4w!E1w#_N RUN  STEP Vr INVERSE ▚ LOAD  STEP LrEXP v REM  CLEAR  GO TO  [C]"2T~[R](O!O GO SUB _y CIRCLE BD GO SUB D+5+ LINE  INK N# THEN y(wm~ MERGE [I]PEEK  STEP ~7$~ OVER = INPUT ^.USR ,SGN  INVERSE N~ STEP  DEF FN  INVERSE qo INVERSE [G]ACS  VERIFY 0 PLOT  ACS gSIN bLN 8FN CODE RND▙5[H] INPUT - NEW SIN [P]TT![A]LN Z DRAW  BEEP f# INVERSE 6"# STEP sUSR [▖ LOAD f LOAD 6 !" RESTORE 66B[S][Q]|ASN  INK USR o`INKEY$ INVERSE sEXP FN [G]# PAPER 4 RESTORE  NEXT ASN rSp CIRCLE  STEP [I]r OUT  POKE {2zs SAVE L CIRCLE -rXW AND [S]SIN  RETURN W RUN | STOP 'MINKEY$< LINE #SIN BIN  INVERSE V, NEW V POKE  LIST  TO s ERASE CHR$ [T]BSTR$ GFEDCBCHR$ n,t NEW  AND CHR$ RNDtCHR$ ASN t VERIFY Zk NEW  PRINT FVAL "CHR$ LEN t LIST   THEN [P] INPUT #POINT <> NEW  OVER )$ INVERSE nABS ABS ;"k RANDOMIZE + INPUT ^ STOP P OVER  DATA W NEW USR ( DATA  BRIGHT  REM [G]t GO TO ©t INPUT  AND USR  PLOT   NEXT  ERASE I▙.STR$  LIST [D]t>= SAVE /0 FORMAT  CLOSE # ERASE  PAPER t*STR$ STR$ <= THEN *CHR$ +CHR$ ,CHR$ -CHR$  DEF FN  PLOT  USR  AND  NEW  LET NOT  BORDER HUSR c'STR$ (STR$  ERASE 8▛ LPRINT  )STR$  LPRINT USR -d DEF FN  DRAW -b$2*B*D FORMAT  DRAW p AND 3 MERGE ▙& NEW H DEF FN <> AND  NEW  ERASE /u AND STR$ g READ >= LPRINT  CLOSE #'u CLS >= TO  LPRINT  FORMAT  CLEAR  RUN  INPUT u7;▝ DEF FN  CLS  INPUT 8STR$ 9STR$ :STR$  PAUSE :%PIUSR NOT }u▝ CONTINUE [O]<> POKE $ NEW >=P CONTINUE <x REM 8x$ INPUT CxQ" CLS <(=STR$ >STR$ ▖?STR$ @STR$ ASTR$  STOP @ CLS ALN c NEW  INPUT  POKE >dSIN dSTR$  NEW  LPRINT [U][A][C]▚m[F] CIRCLE  LPRINT A STOP [K]j$ VERIFY NOT  RETURN <> INVERSE F" LET  INPUT [A] FORMAT  NEXT  FOR  THEN  OVER <>>=NOT  BORDER `a[F] BRIGHT CHR$ #v LIST CHR$  GO SUB u`, STOP ( REM  PAUSE  AND tX SAVE p DEF FN  DRAW CHR$ Av DRAW DZPZ GO SUB  OVER  ERASE  AND [T]"STR$ STR$ STR$  STR$ !STR$ "STR$  BRIGHT XHXCHR$  OUT USR /+'<>%"! CONTINUE hYdYCHR$ ZDZHUSR 0 POKE $ ERASE TAN ve>= CONTINUE [N]v REM [J]v GO TO AT v INPUT INKEY$v[STR$ CHR$ qv NEW  RANDOMIZE  DEF FN  POKE @ AND  LINE  LOAD  LOAD  DATA  MERGE v AND <> TO USR  FORMAT  CLEAR SGN  TO  NEW  DIM  CLOSE #[K]u PLOT   DRAW  ERASE PEEK [T]2STR$ USR  ERASE SCREEN$ uBIN PEEK sP0FN FN [R] CIRCLE USR )f? THEN ▚ OR  STEP a*ACS uSTR$ d INVERSE  REM  P INVERSE N6RNDP8 CLEAR *u READ NFN [Q] VERIFY ,<>[M] SAVE [P]CHR$ w LPRINT  NEW  IF  DEF FN V LINE d[G][C]2 TO  INK ▙y+1STR$  NEW  DRAW >=@ BRIGHT  CIRCLE  CONTINUE dw REM mw INPUT CHR$ Qw FORMAT ▛CHR$ Sw VERIFY /D CLOSE #AT dw IF ]CHR$ / NEW  PLOT  n LIST  DEF FN }VAL  MOVE SIN  AND ^[S] SAVE Q^HUSR  CONTINUE  REM  CLOSE #U▙w^* NEW  RUN BSTR$ CSTR$  PAUSE @&c2COS USR  ERASE ks AND  INPUT  REM $X▟< INVERSE ddPEEK 9▜f NEW  AND  BRIGHT @ SAVE ▘CHR$  CLS w STOP  IF  STOP 9 STOP MCHR$ x NEW  LOAD CHR$ ( NEW  BORDER CHR$  LOAD w NEW  STOP `STR$ LEN IN _USR  DEF FN a▟ DRAW a" ERASE Hh`[G]UUSR dhadaCHR$ aDINT ▘>= TO  CLS bJ7[O]USR [O][M] BRIGHT  AND x NEXT P LPRINT !; NEXT  PAUSE ,CHR$ [N]x CLOSE #SQR x RESTORE  NEXT TCHR$  OVER  MOVE h NEXT S BEEP  NEXT R FORMAT  NEXT Q[T]POINT <>/CHR$  NEXT W▝FSQR  NEXT VTAN  NEXT UCHR$  NEW  AND (dPWhUH$# RANDOMIZE  GO TO HUSR ▘~ AND NOT [Q]w STEP #Fk▙Q9T READ  THEN  COPY u&t INVERSE s INVERSE n STEP  DATA [D]O~2[Q]STR$ Uy THEN EXP 2 OUT yG[M][G] GO SUB S FOR y((&ix SAVE  FOR ▖ VERIFY   CLS  FOR -6f6 THEN v LINE hy OR x FOR NOT !y=CHR$  y FOR STR$  FOR >![B]2Wyy▜2_[Q]+y INK _6Uy GO SUB [O] R"Cs[H]{ AND _ ERASE ]y} VERIFY o ERASE e BEEP <>@[F]@/ FLASH =[D]=▝[Q]=[L]= LLIST <> INK >G NEW O,ATTR  INK  LINE !7 INK  MERGE CODE W_ THEN p(>Z4(>+2z[E][G]oTAB  NEW ` THEN u(/_ MERGE Y0M&> OUT _c$G▜(z@ INVERSE ( CLEAR B+G MOVE  OR A~ INK w# INK [S]q INK STR$  LOAD <>:W READ =<>= IF UzGGO OR y RETURN  TO [P]zSTR$ [N]y AND  NEW [F]!H DRAW  READ #"*Hp*<=x PAUSE  MOVE 3~7uPI TO e{$44+ BRIGHT  INK 44. MOVE 4 CLOSE #y20u9O STEP pRNDCODE 2!. LET PI% GO SUB R8U COPY  GO SUB [ COPY ▜> FOR p REM INT z!! FOR  FOR  GO SUB S DEF FN I+{!ABS  INPUT INT  INPUT +CODE  LINE +8+ READ 4~/RND▝D/NOT 1| OR ▛ LIST ▘ OR 0Xo`>= FOR  GO SUB FN /o@ REM p CONTINUE  GO TO  FOR  GO TO [I]()' MOVE ' LIST  THEN w!▗ LIST ▜ LIST - COPY Xh PAUSE [O] TO 5~ VERIFY  DEF FN  CLEAR  COPY 2r READ  DEF FN ▗" READ  OR  PRINT  RESTORE  AND ` AND <>x LLIST p STEP INT RND STEP  OUT  CIRCLE RND LET  PRINT  STEP  RUN kLEN INKEY$ LET STR$  OPEN # GO SUB  (~#^o{ NEW g{[Q] VERIFY  PAPER <m▝U PRINT  OR ^# RESTORE bk READ  MOVE © FORMAT ~! LLIST | RESTORE  THEN CCHR$ S~ RETURN  LIST  ERASE  DIM | MERGE U { THEN INT AjDT]y PRINT  RUN  RANDOMIZE _▖/ TO  GO SUB K©u STEP  THEN x MOVE z CLS iAZ" NEXT ![A]NOT [O]y LLIST STR$  LET =CHR$ ~|<> VERIFY  LIST ▜! PLOT  | STEP  } CONTINUE ~~V}2~~USR %~6©INKEY$▝O[L]z NEW ©G<>! INPUT  FORMAT +[A]} RETURN  CLEAR COS 8 POKE  STEP }q#CHR$ "[S]w##8x THEN w[K]+# DEF FN  INPUT ^ POKE zy NEW  SAVE h INK :r READ  STEP E} CLEAR STR$  CIRCLE  INVERSE ! LIST  RESTORE !>POINT /LEXP >= FOR  INVERSE  FOR =  GO TO CODE lkzeP STEP USR  PLOT  [I]6▚6U#~[L];[CODE .[N](LZfINT INT [I] PAUSE 6wWPI LINE BIN  DATA FN PVAL$  NEXT R6 AND 0WASN >c345USR  CLOSE # RESTORE O>>>B>C POKE  CIRCLE  THEN GH OR  PRINT  MERGE  STEP z AND W LET STR$  LET y<>5 FORMAT %~ MOVE ▜O( LPRINT ©LEN W[Q]4 PLOT  _> LIST z▟&MD▟{ LPRINT ▙ READ gSIN )*G+P[L] NEW (!VAL " zw DRAW B6z NEW  AND  IF F LOAD R CLOSE #y VERIFY _Q5p<> RESTORE `iz)xGK THEN = STEP  REM [I]8PINT BIN  DATA G OR DM STEP [G]~STR$  MOVE E PLOT   COPY <> LLIST CODE <> STEP TAN ~>= OR  RESTORE ~[T] #  SAVE  LLIST STR$ USR  INK ▝{l_ GO TO (SIN ` NEW  LIST SQR ( PLOT  )=>= DIM <▖USR M COPY 567▖▖8:'% FOR ,14D2pDDDD LLIST AT VAL$ ▞-.$,▗▖4<L%▝5=M/(M CLOSE #0#0#0DD#0#888H/8/8/SCREEN$ B[C])@""@@@@I"@@pPPP[A] RETURN FN  RETURN  CLEAR "▝ DRAW  CLS !B3 CLS  CLS S RANDOMIZE P RANDOMIZE  CLEAR H@ RANDOMIZE *"+,GP!PH=<>$?X@APIDD088@B@$)f"cS#b'([Q][K]&% ""&>;H): :()=; CLOSE #DHGPH,K@DL.M[I]NOh"PhQG00Q[F]RSTBBQ BRIGHT P BRIGHT P▖a▖▖` PDhE@!"F@@8?F#IJVM9 SAVE  IF  RUN   @@PPL SAVE  "}0@@@D0,0,(,/FPG7O89#▘:;<=56"@?>_$AVBCD$@HP2&!10/.E"VW3[Q]0*SE[Q]GYZ)!*[/'+@,,-▝U6D3"4!">J%KLM !, !SCREEN$ T%RQXN{bzcuoprlnqdsmbt{|©ijlzhkgm^}~Bf]`at@uuvw▚xz▚y( >▝▘▗[T]SQR [U][E][G]<@<2RND[F][H][I]ATN [O]▚SIN COS [P]▚▛▟▞[Q]▚[R]▚[S]▚VAL ▖▙[A]H[B]SCREEN$ ATTR VAL$ AT CODE TAB TAN ASN LN INT ACS EXP SQR ATN SIN POINT -▖INKEY$PIFN POINT [O]SGN ▚'[C]UABS [D]F.IN USR ABS PEEK <STR$ CHR$ E FORMAT [J]▜[K]▜P[L]▜[M]▜SQR [N]fNOT BIN <= OR  AND ```@@@  @&' MOVE  `#@▘ ▗ COPY  INK ( >=©72@5 7`;@*`Y`].`b` GO TO fj`o@s! PLOT  Wyu w  CLEAR [D]#`3>`B@E`cIJ@M`Q@T@W ▚@▞`▟`[B]`[F]`=[J]@[M]`[Q]`[U]`;FN @ATTR @VAL$ `SIN `ACS ATN  LPRINT >▟LN `<>;SGN ABS @USR `BIN @<= <>@ TO @ CAT  FORMAT $S MOVE  DATA  LOAD  ERASE @ MERGE ` INK [Q] OUT  OUT yk/© BORDER w RUN [N] READ [L]@ LLIST CODE An`r@ OPEN #?LN '©[I]aE STOP  IN SQR ;STR$ ▛ GO TO  COPY s[L] RUN [P]E GO SUB  OR  DEF FN g;S NEW {#y_ INPUT  DRAW 3 LIST g! REM   GO TO @ DIM @ GO SUB   DRAW @ LOAD [Q] PLOT  [Q]USR  COPY  PLOT  !a4▝aa[I]![R] PAUSE '1 LIST / CLS E;=SIN 7[R]1V/PEEK  INK W53HCHR$ q PRINT USR '{Am'"#!% LOAD &A(!3A{SIN K%*a=SQR 3o6A/A2wA5W[H]?▝D[R]J[L] INVERSE ATAB SQR = GO TO . INK  RUN )CATN  GO TO  RUN  CAT  BORDER [K]39!;aM▝S!W!eai[R]!▜!▞!▝!opAsAv!wxa|aRA[R]▝[I][R]_!a!)Y▝^ArAUa/`A%[C][O]![Q][S]![U]!ABS NOT !INKEY$[R]AT ASCREEN$ !TAB M PLOT  a5+`5▚a▛YSIN !TAN ! BORDER ACS aINT [R]USR Ac RETURN  RANDOMIZE w`e'>=<>A TO A CAT YA IF }^;T?INKEY$aAT [R]6▜s[B]A[E]aIN  NEXT ▟▝COS  CAT [F]PI FLASH  LOAD 3[F][I] CLEAR Y CAT  READ  OR =][Q]A@[I]▘ OUT jB[P]B▝C▚@-▚[E]WaD@@[S]{ STEP [N][R]!▜▜F#LEN CHR$ ~# RANDOMIZE <>4?`#pH3/ LINE  DATA EXP [C]LN AT ▜ NEXT LN m[I] RESTORE LN CHR$ TEf STEP F▖3 OR  AND GIN  <STR$ ($COS COS G[A]~ RETURN >USR Tq+ STEP [Q]▖[K] LPRINT 8/ STEP [D]▞% STEP X[R][A]F LINE INT [T]:4 READ 0 RANDOMIZE g DEF FN '[K]/ RANDOMIZE &.NOT SIN VAL$ [F]IN USR TAB r OUT  AND  GO TO  LINE 1U!STR$  SAVE USR {▗!POINT ▖ NEW [B]PI hn < BEEP  DATA f( SAVE <ATN yX▜O▚▜! FOR ▞LEN Bx NEW 8VAL$ N INPUT  FOR [A]▖INT :v>= OR [S] MOVE [M] CLEAR  INT  RESTORE /.-, DEF FN m+3C>hF  STEP  RUN ▖<<>=BSIN # LOAD f6y &wR STEP  IF [Q] NEW  PLOT  y+ASN  SAVE P`COS >0< CONTINUE )0:Z READ =`W LET EXP  RETURN )0 RETURN Pk?,SCREEN$  AND / INK  DATA +'VAL @ STEP [M] GO TO F▖ 9 SAVE PI>=▖ LINE  INK <>f LLIST  CIRCLE LN INKEY$ NEW ( RETURN (>UCHR$ pCODE `+~ATN [S]▘VAL$ %TAN y{SCREEN$ NOT *COS WPEEK  CLOSE #0U1!COS [F]< INVERSE 4kz CIRCLE FYXWVU/[ZG PAUSE  RESTORE 4y RANDOMIZE 3O PAUSE  RANDOMIZE &6Hu RANDOMIZE T(J|INT PEEK  LINE  CIRCLE  CONTINUE  RETURN ▛▛▛"▛(▛▘▜▖▛A▗▖9 RETURN  DRAW  SAVE E POKE  COPY  COPY  BORDER [F] COPY [E] LOAD  CONTINUE  CLEAR  CLEAR  RANDOMIZE ~! CLS |)/ COPY  COPY 3©77 RETURN  NEXT 7ABS USR ;O▛ DRAW  INPUT ABS CODE IN w@ SAVE  POKE  SAVE oSIN # INVERSE t MERGE  RANDOMIZE  STEP 1IN c OUT  STEP g=!VAL |▟] MERGE P ~( PLOT  CODE QVAL  STEP 3▟ CLEAR wXG#N#>STR$ |dN>NOT  DRAW  SAVE  RETURN [I]~<>L▝>=)[G]~ NEW  LPRINT LN FN IN  CLEAR ACS  @▝! NEXT  NEW "▛©_VAL$  THEN CP MERGE  INPUT  MERGE !5 READ 5 STEP a CLS G READ ~ PRINT  THEN  LIST SGN ▙LEN ? OR / NEW ▛/ LET  NEW >=▗ CLEAR % OUT ▙I THEN 1©>= THEN GCHR$ C▞ THEN O <BIN [Q]  STEP VAL ▛NOT %| FORMAT ▞[U]$BIN )G▞>=NOT  CLS ▛cTSRQPOFN  MERGE EXP SIN [C] INVERSE 5 LINE 5!▝Rv▘(▜!#IN ▜[R]E ERASE [U] DEF FN  W▞TAB !6 RANDOMIZE  BORDER ?%?_ COPY ( READ [D]('>=: CAT  SAVE (4@ THEN 0TASN ▟?: INK PEEK  FORMAT # RANDOMIZE u"]"NOT [G]#X DRAW  OR > STEP <=[T]VAL [STR$ y! MOVE !J READ LN 0##(▚#P+2[ READ ▚2/[R]C READ *2~ RESTORE  OR  STEP  CONTINUE STR$  LLIST >=#>= [T] LIST  BORDER <>g(<>==[K][P]<>o:8j[A]*~J GO SUB D▝SIN :tmCSIN  NEXT UR[E]-ASN [S][H]TAN  INVERSE wFN ux4#6▘O▝!B▟o| DEF FN g~<>k▝0 DRAW  RETURN  COPY 1w CLS 5▛ CLEAR 1 CLS  CLS k2 RETURN 2 CLS [S]t%[ GO TO Y DRAW ,4DG DRAW + Z#+3kl[C]mT RETURN   LINE   [A] COPY  COPY ` POKE  CLS G INVERSE IN  DRAW [P] COPY  IF  READ  SAVE F=!NOT ▞ OR VAL$ CHR$ [D]▞+`4>=: DRAW  GO TO b THEN  CLEAR :VAL$  AND <><=[J]%>>NOT [Q]▖N©PB▙ LLIST +*)('& CLEAR [I]xk©FN >T STEP P▛ IF  AND [S]@ NEW  CLEAR ~ INPUT B STOP | TO <>ATN  DRAW  [G]▙[G]~ DRAW  [G] LPRINT  CAT  uN  IF  FOR F[G] BRIGHT  LINE   STEP X CIRCLE  IF  NEXT + REM Y LIST =(yPISCREEN$ . DEF FN [L]Xm> CLEAR ACS [S]w GO TO  AND  RETURN TAN J RETURN  "IN ▘TAN  CLOSE # MOVE V VERIFY >ACS [E][G]xINKEY$ DATA <=lCODE  AND  STEP &V LLIST g(. NEW 3syUSR  CLS  LLIST STR$ /▝ LIST <>;q~O AND g VERIFY oINKEY$ABS EXP (SGN [A]▖ABS  .: STEP  OR EPEEK ▙/ THEN  SAVE  READ  BEEP q▘7 READ %DI READ  DRAW 3VAL ?USR %N LPRINT  NEW  STOP 5DEXP <>CODE *n READ |ASN   FORMAT r! STEP AT sxDCODE [A]▝ INK 1' STEP G DATA [C]![L][C] STEP [D][D][T][S]ATTR [C]NOT ~#[G]>=8▗S RETURN [O]>@ READ  PLOT  > RANDOMIZE 8> COPY ▚w STEP  BEEP N#F PRINT  STEP [R] FOR  LET NOT y[A] RESTORE  VERIFY [Q][O]▝▛ X*Rn INK *T READ TAN >= STEP TASN [A] INK  STEP ACS 0 INPUT H TO  GO SUB [ INK LN  INK "*V OR B*X STEP ATTR 'AT [A]"aRND" FOR [A]` STEP m[A][Q] VAL k:?<;*7 READ }TAN X0H▖K.B[C]0![J][J]" IF 6@4 FOR 2 RESTORE | STEP [P] LLIST } PRINT [Q] NEW  LIST  STEP ▚[A] LET  NEW [U]![B]O THEN 9 MERGE L{ GO SUB [Q]_)%▝/) POKE  MOVE SGN J CIRCLE GP<>PI}▛'o|'gXk[L][K]|RND STOP  RETURN  STOP  STOP [K] DRAW  STOP  BRIGHT  LPRINT  STOP |M SAVE  DATA  RETURN  LPRINT  DRAW  LPRINT  RETURN N THEN  LPRINT  LPRINT  INPUT TAB  BORDER 78 FORMAT VAL  DATA  CONTINUE  LIST [K]/ CONTINUE  DATA ,7; STOP  PLOT   REM ' STOP  PAUSE  REM  NEW o[D]_'m RANDOMIZE  CLOSE #O STOP  INPUT '_|. PAUSE <>o STOP til REM tt/ AND li CONTINUE ' RETURN 8po<r LET 30▞<5N~TAN Ng[N][K]pgW<SIN <>/'G?4 CLS />▙ DATA ▝[N]EXP EXP [N]▝[P]ABS I LPRINT  THEN   CAT "f RETURN `USR VAL$ ▘L STEP [C][C]> STEP <[C]!h CLS X GO SUB VAL <>▞>2# READ  STEP [H]! INVERSE 'CODE !s[C]F CLEAR g# OR %l BEEP kLN  LPRINT 2 PAPER W[C] LLIST STR$  REM <> OR  RESTORE G(w~#  NEXT  LLIST  MERGE ▘ ERASE  MOVE  RESTORE <> ▖` LIST @p▖ PAUSE @ SAVE  PAUSE _@@h NEXT P@FN  PRINT PeXebNOT [N]ICOS [C] Z LINE [C]7Z.ZA~ RUN  INVERSE [FLEN laGFB+EXP $©wABS  THEN B[N]/ SQR  BRIGHT [H] FLASH  PLOT  INT E2 BORDER  RUN  SQR  CLEAR  CIRCLE EXP H!GE BEEP  OVER Em[Q]osEXP ABS =Qj NEW  INVERSE PEEK LEN [P]%[B]▚ STEP  MOVE [D] FOR NOT ATN [D]XJSIN  AND > OR  RESTORE  MERGE ANw FOR q FOR # RUN  MOVE JSTR$  DIM x CLS  INVERSE F INVERSE ^ INVERSE  IF yV  STEP <>ATN )[A] OUT ~ INVERSE @WVAL$ # RESTORE VAL$ wFN VAL$ _U LPRINT gATN 4 BEEP  STEP [E] STEP [S]▘%1[E] LLIST {]<> THEN s#>= MERGE SQR ▙Y+ MOVE <> INK & CONTINUE  INK  OR  MERGE  STEP @[E] MOVE STR$ ▙ k>=IN 16 OR T]@ CLOSE # RESTORE (+~ INK [A]o INK w LINE xEXP CHR$ L[E]POINT . ERASE + OPEN # RESTORE  STEP TAN [F] INVERSE  LLIST : OUT /P AND STR$ n7f CLOSE #>= ERASE OCHR$ 2TAB [G]8 BORDER .l^ <.2i[F]D2▗JW[F]}2@[F]CODE  LET og THEN qy INK ;[F] DEF FN  CIRCLE _ATTR [N]<>x▜<="▗%o"CO~FN o THEN [P]TAN g"ToDgtX BORDER G=[E] STEP  AND 2X[F]oPOINT J>=RSTR$ ▙/ LPRINT  NEW GH▝( NEXT  VERIFY  IF yRG GO SUB wbkPI GO SUB B GO SUB VAL :>[[J] CIRCLE BIN M CLEAR o RESTORE h[B]2RND[F]y2[G]USR  DEF FN [F] THEN 2POINT [F]DMM&kzPI LINE ▛[F] PRINT INT  FORMAT hX  GO TO } STEP  THEN [I] INK ] OR ~ GO TO  INK  THEN © [F],`# POKE  CLEAR -<0CHR$ [H][F]DINKEY$[I] PAUSE  PAPER 4P] GO SUB Y[T]▘9 GO SUB Cj READ [S][G] OVER x[G]K~2▛[E] PRINT ▝[F] CONTINUE "C(+ BRIGHT VAL VAL p"FN [G]x CIRCLE " CLOSE #[G]ATTR G2ACS [G]F LIST ATTR [U] LOAD  BRIGHT =CHR$ [G] FORMAT  CLOSE #c*^)"ABS [H]"[T][H]2TAB  RUN [I]t<2SQR [H]!SGN [H][I]VLN [I]"LEN [H] RUN  GO SUB S[I]o[[Q] NEW =h READ BE2B: GO SUB ▟▝i READ [T]E[H]v${22Hl`^(kzGPI LINE PI[G]a[K][T] INK  BRIGHT ▟@ AND ▝u2 OVER [H]{JPOINT !lA THEN 8 LINE  READ [E] NEXT ;▗^CHR$ O[H]'[A]X_$!iATTR N@ [I]_"5[H] LLIST :A▖28 INVERSE [N][H]i" BORDER  STEP TAN [I] GO SUB [ READ DM INK  TO [K][H] STEP  RESTORE & NEW  AND oFN  GO SUB COS cIN 4/[L]#q#p"*<>B▙(H[H]: OVER i_ COPY D/X▞ ERASE ▖[H][H]8,P RESTORE  INK  MOVE <> NEXT 3 OUT ▛^ SAVE [E][H] OR ▘X<> CLEAR `dUSR  NEW [A] GO SUB VAL f COPY .USR >|/g, CLS ▖/VTAB !#@ FORMAT  NEW ~ NEW UOLEN SCREEN$ O[I]LEN w, INPUT  CLEAR D<> OR ) RUN  IF  NEW  CONTINUE  PLOT  USR  THEN [L] BORDER Sq} COPY U NEW  LIST [C]p CAT RP SAVE STR$ 9<>INKEY$$ACS %,5{NOT 7[H]/INKEY$/ STEP ,J&hSTR$ VAL$  REM Y, RUN AT  BEEP L[U] FOR 4 GO SUB mo LIST W[P]4 SAVE [J][P]' OVER } RETURN 0=▝ RETURN -(8? CIRCLE  VERIFY  CIRCLE <_y[D]K_>o▝0R[B]FCODE = VERIFY Z48| RETURN D1TAB  INVERSE 1COS 11D1Wx[C]BW>Dg1[A]X_ GO TO 1COS >=h? FORMAT PI<>: READ  FORMAT ?2VAL AT  STEP [R]!G  INK AX INK 0? LIST  FOR 8▞CODE  STEP DHF[T]0adCODE X DRAW ATTR  INK  STEP [K]1O DEF FN H!* READ SQR  READ [D]8"V+^{SIN >=+F+ BORDER >![G]2 IF [J]~+  RESTORE  M SAVE [J]TAN  DEF FN [J] READ ` INK L<>▖ STOP 2{ VERIFY k[K] LINE NOT TAB [J]z NEW CHR$ Y[K] INK [F]+L CONTINUE " INK { AND  _8z VERIFY `sW MERGE +LJ MOVE  REM [K]_<>!INT  INPUT  GO TO % MERGE VAL ![A]ATTR g$c STEP [L][L] STEP USR DD LOAD  THEN INKEY$ DIM @_a3 AND 4 STEP uN( DRAW  THEN ▙!; AND [N]A>J+5 6LN B~< RETURN 8CODE wACS  CIRCLE F,d2 READ >2 READ +~VAL$  ERASE [A]<PCHR$ AT  ERASE VAL$  INVERSE 6 CAT SGN (j[O]SGN LN / STEP t[E] LLIST STR$ # LOAD ▖ DATA "#$ PAUSE  RESTORE $ RETURN :"!3POINT VAL$  LINE BIN 6AT  GO TO  LIST [F]CG STEP ~v;[L]! LET  POKE  REM  THEN  RUN  THEN /▜T,N,F OR  INVERSE qVAL /STR$ y AND O PAUSE 9G NEW USR  CONTINUE _,[B] GO SUB SLN [L] OR  STEP o[E] TO  INVERSE STR$  RETURN 3 POKE <>/b[B]IN /]$ LIST $ LLIST $ CLEAR V POKE [L] CLEAR  LLIST ASN  DIM  CLEAR ]3▗(@ READ D READ  LIST /▜>= STEP 0[M] CLEAR ~ INPUT SIN  CLEAR ^ CLEAR VzINKEY$~2 POKE S)" CONTINUE  CONTINUE 2▘ASN # RESTORE  MERGE r MOVE @USR  CIRCLE <>!Y[M]Q.F^# THEN {  ▚Fx>=x NEW ©!U[M]w IF  FOR #▟^ RESTORE ABS  MOVE ATTR Hk[O]N VERIFY  THEN  POKE  OPEN #UCODE B CONTINUE 5[G][H] DRAW [K] MERGE  SAVE rFhX RETURN [P][P]/ OR  FLASH B[A]Om% COPY A COPY  PLOT  & PAUSE ' INPUT (VAL$  LIST )W[R]j LOAD }:}z: DATA e COPY SCREEN$ [U]fg COPY  CONTINUE EVi1j TO AT k?m[U]nCo[P]AC56-DCEF NEW 3(▞$SCREEN$ ASN ▛`C>=PaSIN bPcABS S>SVAL SM NEW  SS@[J]©) DATA "   CLEAR  / STEP   COPY %  LET <> RETURN  ^ v*[E] ▖[U]+ POKE 7-797-9[;9B;7&:ATTR STR$ 7 COPY  COPY &;5VAL * SAVE 9 RETURN  RETURN *<Zv. SAVE ;ASN ^+R8V&ACOS COS  PAPER =:INKEY$m-`<AT SCREEN$ #>=<> LINE  THEN  TO  STEP  DEF FN  CAT  FORMAT r+ MOVE  ERASE POINT B▘tCt INVERSE  OVER - OUT pq▞r IF iCV[S]s.t| FORMAT  GO SUB P▘S[C]▗$ LN  [C][B]▗[R]▝[S]b[C][S]R[S]R[S]▙[Q]▘[C][S]▛[C]▚[S][S]▞[S]R!▚[C]▜[Q]![R][B]r▝[R][B]▚G LPRINT "[T]▛▜S▜[T]▜[F][T][D][T][E]▝}[R][R][R] DRAW  DIM a COPY [O][B]IN PI%aA▖d[R]▛geag LLIST [S][M][C][M] LLIST [C]ATN  STOP [J]M IF [Q][G] LPRINT  INPUT %/ STOP [P]4id[L]b OUT  RUN  MERGE  BORDER a d[O]BIN [K]5[P][U]gY IF [U]B@y[P]~=▜BU< FORMAT I$▙ LOAD [P]0 FORMAT   D ( @ OR )[Q]▗▗▖ "BHD▘ !(>=CODE X:/R[J] DRAW  IF 4 PRINT [VAL INKEY$2 OUT [A] STEP + CONTINUE [Q]a NEXT ySGN  CIRCLE CODE <>oCODE  THEN [J]0▝? PLOT  "O}<>*USR [Q][A]>=#"}RND<> CLOSE #1 MOVE  LLIST <>FN zCOS   CLS <> PRINT 4AT  LET =  PRINT <>xPI7FN TAN  NEW  SAVE FN gy[P] <=FN oy NEW <>$|USR } AND  o CIRCLE | VERIFY g<> NEXT  OR  PRINT VAL$ F[R] RESTORE  INK USR  OVER d[|!VAL [Q]@VAL$  OR  PAPER W#COS  RESTORE BIN  Sx[R]8 LET h LET STR$  CLS g INK 2*.o FOR  DIM SCREEN$  DEF FN  BORDER  OR  PAUSE >wl LIST  GO SUB VAL :BIN [Q]2) OPEN # RETURN <>CODE SIN wBIN SGN  NEXT  STEP zE GO SUB sFN [Q] GO SUB {VAL$ ▘[Q]l"SCREEN$ [Q]J"AT [Q]> REM  GO SUB I"G GO SUB ^L NEXT 9-** GO SUB V<>>@ACS [D] STEP  PRINT [R]STR$ >=>VAL$ 2 PAUSE [R]>LEN y<G GO TO COS !~ NEW <> MERGE  OR EXP PI  STEP H INK [R]8 READ [E]@ INVERSE [R][T]  RESTORE STR$  MOVE   INVERSE <>[B]2q[S]!o[S]) REM  CAT lC/TaGIN [A]:CHR$ [Q] THEN _(%">=[Q]:NOT  LN x*v[S]"e[S] MERGE d[O] STR$  GO SUB [ OR  RESTORE  STEP *~A▚ POKE <>AVAL NOT EXP A AND UwATN  RANDOMIZE <>`<~# RETURN  COPY )[J]r STEP 5%USR  IF O0 INPUT x AND G VERIFY USR 8 NEW G SAVE  READ  CODE  FLASH G NEW O THEN @( THEN  INK  THEN H OR b MOVE  THEN XSTR$  THEN PpATTR <>E# FLASH  RETURN INKEY$ yVAL O## THEN 0 LIST y2<=[Q]<>" OR [Q]: PAPER ▛` FORMAT CODE &ACS L NEXT *~B<@  PLOT   STEP [T]( CLS $  ERASE ; NEW  ( PAUSE  THEN 8 GO TO > NEXT g=<>DACS [I]vB>$BIN [P]2VAL  LLIST q#s#rSTR$ zBIN - [S]CODE NOT V2T[T] STEP _[T] MERGE STR$  [Q]+ RESTORE  OR   IF FSTR$  LLIST  NEXT <>[4 PAPER 9x THEN / AND pXgx NEW ▝o<>$USR  CAT 8 LINE #"! &$>>>>>> PAUSE > CIRCLE >[D]▜[B]!>[U]TAN 7[U]U OVER :=[U]G@ASN c*[U] RESTORE  NEXT  STEP  CLEAR [T]SQR ;[U]"A INVERSE [D] STOP <>} THEN =[/ NEW O▛"*y PLOT  @FN As  CLEAR CHR$ [U] INPUT  OPEN # RETURN DO THEN g z[P]COS >=yM INVERSE  DIM MPI} POKE 2 d BRIGHT LN ^2 DEF FN +@ COPY  STOP  COPY [G]d GO SUB  CLS @<xl"7[M]0ul"> SAVE ) PRINT ▖ LIST " READ ">= CAT (PI"USR  CAT INT (▘"<>x: FOR @ READ o DATA ▜!G LIST 3[D]V_ GO SUB S  READ #s READ w&0 THEN  PAPER "( STEP */& D RESTORE  OR  MERGE } STEP 1| MOVE ! FOR eO LLIST ,%  DIM }2 READ 7y▙[ COPY BIN T[L]▚ READ <> STEP BRND STEP ;QRNDPOINT  BEEP  GO SUB 9gTACS [! DRAW CODE RND BRIGHT ▘gXC!▝ DATA .[U][L]!#[U][M]~▝w IF ?(/,~PI(Y  NEW _COS w NEW ©20VAL$ D RUN ##▜ STEP ▚U▙RND:$[L] VERIFY  THEN 9▝ NEW  AND 2<>:A READ ▝2^2 PAUSE CODE K STEP  LIST j RESTORE Gf VAL  RANDOMIZE ys DIM <> THEN :y  RETURN b?<> RETURN <> INK USR  PAPER - CAT ! NEXT  GO SUB s CLOSE #RND RANDOMIZE  INK  MERGE 3 MERGE  INK $ RUN 1  CLS <>*<>x,* READ CODE w#CHR$  FOR RND CAT a LLIST STR$ [H]STR$ >5F>=!INKEY$KPI4>=#VNOT [Q]O5`6`7`8h9h2@3@/T4X[H]VAL  6 7 8P9PXzX/P0P1`5h COPY 6h7h%[P] CIRCLE 8(9 DEF FN ▝eSX9I506070▜ DEF FN )8 9  RETURN  NEXT ©O5X6XHH8INKEY$<>h INVERSE p``a[N]IN pd PRINT r6ffjj COPY POINT ahiATN >3d=▜ CLEAR U   RUN  NEXT HEXP  PLOT  sH! DIM SQR [Q]xx COPY  PLOT  @ OVER [N][J]|nSGN U▖ OUT  COPY #▗ DRAW  LOAD SQR ? COPY G LOAD  STEP FN v? NEXT @INKEY$ CLS [N]N[G]COS  COPY [I]y REM ATTR D[R]/NOT TAN [I] MERGE  MOVE <>.D8L▝EHD[F] PAUSE ATTR  FOR LEN ~fHtJ GO SUB  GO SUB &&>, POKE ;z$ PLOT  JVAL t STEP  FOR  OPEN #,g COPY 4 LPRINT B)INKEY$!,FN  STEP oFN  OVER _CODE 2 READ <> RESTORE BIN H STEP  LINE [dATTR  OUT [N][C]> RESTORE > MOVE X[E]pPOINT < OR VAL  GO TO  STEP  RUN [FN  OVER  MERGE eX CLS ▖ DRAW  GO TO |1D[I] INVERSE CHR$ >=©6NOT  f GO TO  BEEP !JfVAL$  FOR  THEN ?NOT  LINE o[E]>e!NOT / DATA VAL 0A STEP @POINT  RESTORE ! GO TO  MOVE  CAT PIJW SAVE i[P]N<=© GO TO  BEEP Jg<> FLASH  RANDOMIZE CHR$ y% FOR  STEP [B]~ LLIST <>@ SAVE H PRINT [SCREEN$  STEP  CAT  BRIGHT SCREEN$ !; GO TO fATTR !khG LIST p( GO SUB |▝/[R]6  BEEP ▗:: READ  RETURN  8!4 READ ~ RETURN 042TAB n!▚$P?;k![G] LIST  NEXT :It^(+m!RNDu STEP GATTR # SAVE ,, AND 2 TO xCHR$ SIN SIN Ab READ PI RANDOMIZE  LOAD o READ zS INK GVAL E THEN [O](!64WJ_77X▟3 LET +▝INT V READ  STEP TINT "'RND:`$'[A] PLOT   COPY HbSQR VAL$ EXP  GO SUB @TAB NOT g[A]  COPY x  COPY LN  ) COPY 0ASN 0Pa@@&v COPY ▗`P CLS & LET 3 CIRCLE ! COPY ▖zXp& COPY d[O]~ THEN © LINE [R] [F]:oATTR  BEEP 2 LIST VAL$ @s>NOT  OPEN #M RETURN [J] STEP >▘ STEP ATTR ▗F STEP [A]5[B]$M, OPEN #INT  INPUT  OUT ABS P0~ FOR >= PRINT  NEXT B;1 PRINT [L]? SAVE  DEF FN ;o; COPY mINT  NEXT B[(p/ATTR {b4! FLASH ] STEP V_NOT 2_ LOAD  DRAW < LOAD I LOAD  COPY qJ▗q  RETURN [F][R]SCREEN$ [R]PEEK a> SAVE Nm GO SUB s(VAL 1zVAL  STEP +SXS<>![USR FN > STEP OVAL COS +~ DATA #?O▘ NEXT >:2/[<> OR  CLEAR © GO SUB ySTR$ [M] OPEN #USR  STEP  BEEP b @POINT  CLOSE #!@UJ @SCREEN$   VERIFY p REM 0^dg] DRAW D RETURN  OUT ATTR <=,▖▖E▖[O] CAT  LPRINT  COPY  SAVE / COPY ▖ SAVE ? LIST / POKE  OUT 1IN  GO TO PEEK ©xZ" BRIGHT A@[Q] CLOSE # INVERSE  REM <RND@TAN @3[K] e PAUSE 84D POKE 1 FOR  COPY  RUN o FOR [S] RUN  LPRINT a LPRINT " LPRINT VAL }@PzUSR  ` CLOSE #[P]0 PAPER  INPUT kxx$xxW RUN r/_ COPY  LET <>{ POKE  [A] FOR k8 PRINT u2[G]K CAT {F▗TAN ~= IF ^[C]VAT u+[O]2 OR 57 LET x[Q] STOP [S]xxx COPY |T COPY  BEEP  COPY x[U]g▝ NEW @ "@ LINE  POKE  DATA p POKE h0 COPY  LPRINT / LIST ?<= PRINT  LPRINT W_j@▛}/AT <=[T]EXP STR$ USR ▘fLN AT 'SCREEN$ ]USR "STR$  LPRINT ATTR  COPY  CLS  DRAW 0 SAVE < GO TO /▘8@8@0# BIN Q+j[P][E]=▘[Q]'H8 MERGE ▖FN c NEXT  PRINT K REM  LPRINT USR $` LPRINT [Q]STR$ @` STEP ▝ LPRINT  FOR  LPRINT ?▘[N]@"+i DRAW  DRAW ( LOAD i GO TO  GO TO @  LINE l DATA 84 GO TO [D]i0 RETURN  OUT ©iCOS ? OPEN #CODE B$NOT -[T]B▗#(CAT qLN LEN P|©USCREEN$  LIST ;PK(( THEN ? OR  LET 9 INK Q READ  READ  READ y0@* THEN   NEW pG/ LINE IN 9?$ < *BIN  FOR 8f CLEAR W LINE [I][D]</ MERGE [R]< NEXT (@STR$ s DATA *k8t COPY [N]<P$M< READ P CLOSE # PAUSE j FOR AEXP USR [R]USR pe,?▘[T]Dm0 LIST ;? DRAW <? CLEAR ©ATN |VAL 6▗ RESTORE `3 LPRINT USR @" P` LIST xP0CODE [F] LIST ~▗'ATTR * LPRINT *VAL  LLIST PA' USR 0$c STOP   LIST  COPY W BEEP STR$ [O]x+| LPRINT ( LPRINT FN ATTR TUBA PAUSE ~<>~▝ COPY VAL Bd<tBVAL  READ 2<>o@[C]USR </[S]A>▛SCREEN$ {▖pUSR  LIST FN  LIST 6 CIRCLE ) r LIST e LIST b[Q]!BDr[U]ev" PAUSE NOT +!0 b8 SAVE  LPRINT TAN /@INT INKEY$F▗▘USR  JDD"{ INVERSE VAL$ [J]RDAT L(VAL$ p<=VAL  LIST  BEEP  IF V STOP >B AND  BORDER B OPEN # COPY Oe  CIRCLE CODE  POKE _ PLOT  [Q]r LIST *FN W▖▖LN pWh"g▖[A]{K©IN /W▞K,STR$ TAN FN VAL  SGN USR  OPEN #K STEP ~:? CLEAR INT [A]N][N]USR V▗[H][E].@  COPY  LPRINT (`T SAVE ▖▖ COPY _,[T]STR$ T[F] ERASE ▝8 LPRINT R OPEN #[R]F[S]AT LN Z8$R CAT 88[I]7l O07px LPRINT ©>=_,[I]W`/J LPRINT *+USR  LPRINT  FORMAT p @ LIST  FOR @8▞USR ATTR Z PAUSE ,W FORMAT P PRINT USR RND8p7`l LPRINT SKUSR 7 LLIST j]▟W/XFN *@USR N[Q]` REM [Q]>= INPUT N7 CAT  LPRINT 0 LPRINT [N][T]?R@ POKE  DRAW  NEW Q CLEAR ▚ LIST ▚QhVAL$ " LIST LN >=[T]▙[K] LPRINT `USR /CHR$ RND DIM ^ IF `AT Tg© CONTINUE  RANDOMIZE  MERGE _| COPY $n8*|h(q? COPY P);© FORMAT [G] RETURN PEEK R[J]<=fD[Q]GCP[Q][A]P[A]AT  Ip:[U]VAL }R`|+ FORMAT y MERGE [U]?<>W[D][T][D]▖`EPIN©wECODE 0@ BORDER OQ$RND CLOSE #SCREEN$ "}T COPY * COPY 5Exrhb<=zSCREEN$ </ COPY [Q](1S CONTINUE ▖/"BKAT  CLOSE #© BEEP [J] IF [Q]p[Q] LIST CV RUN [Q][H] GO SUB P[D] REM AT + PRINT Iw IF [U]ATN [Q]j|ATTR [Q]UFN 2POINT PSFN &[A][I]` PRINT /VAL$ a FORMAT .[T]TAT FN xPJ SAVE " LIST  ©p SAVE  DRAW BIN  PLOT   CAT 9ABS d]SQR  DRAW CODE  COPY ▖u@RNDPJFN [F] OUT J▖# "804USR  LIST [Q]x DRAW  SAVE <'EUSR < STEP ShSIN  CLOSE #SIN INKEY$8S8[T][T]^A*PI[F]W@[T]+PXx[A]LN c0:[O] LPRINT l▛[K]>=zB/_+x[M] THEN *5([F]*[E]BuH IF POINT  REM [S]UW MERGE U IF [S] LPRINT [Q]J▘b( DRAW [C][Q]SCREEN$ DAP [T]FN RU-INT SCREEN$ [K](UuUPEEK ATN gAT FN ([Q] PAPER  PRINT *@@PFN  CONTINUE /5E FORMAT > REM SCREEN$ HSCREEN$  REM ( CLS IN [S]+  RETURN SGN u((C'▟FZSCREEN$ FN ATTR EeSIN [Q] AND y OR U[S]SCREEN$ B@▞(xSCREEN$ VAL$ H COPY  COPY JRND[L]+s RETURN +y BORDER eLEN V THEN >Bk COPY  `VX▜`vFN @ PAUSE s` LINE `EU"@`AT QUPXLN  GO TO >=U/`SCREEN$ `CHR$ ATN IN `USR cd5[R] POKE dT RUN ] PAUSE ASN RRABS  i>INT  OR  MOVE b[▘R CAT 5 OR  DIM  MERGE 3 PAPER  MERGE  READ SCREEN$ ▖  [K]S(FN Y▗SIN FN  LLIST ^  LINE ATTR [E]k  CLEAR  CONTINUE t POKE t CIRCLE )K COPY  RETURN 6x REM [F]SQR SGN x* ERASE  DIM Zd6 OUT yt PAUSE -ASN !*TAN [A][M][B]"▗([U] CIRCLE ,POINT (T*AT VAL  5YY DIM VAL$ [G]ACS hkTt COPY  LIST  RESTORE RND/ GO TO l DEF FN _iATTR  OVER  DIM m FOR $ GO SUB ASN @CODE QTAN DVAL$ BIN pJ▖T READ ▘FN /@!T$USR FN @e#B INVERSE *U@COS FN { MERGE hfLEN ▗ COPY I[L] DEF FN N/d0 DATA /QVAL$  GO SUB  MOVE ▖J▖gA/B!▜TjSCREEN$  CLEAR HKoK[Q] TO T RETURN  COPY  IF [Q][ COPY  PI<VATTR [F]B[I] FLASH E<B INVERSE  INVERSE NOT  OUT ^LEN [A]JV▘AS IF ,$ FOR  BEEP FN  BEEP ACS RND3}PEEK ) PRINT 3IN  {[Q]RND3 NEW FN I PAUSE  DRAW PI.R DRAW *>=}▝y COPY  ERASE .POINT  DRAW R SAVE VAL  LOAD ▛INT G REM U($KUSR USR  LPRINT  LPRINT @U LPRINT /USR  FORMAT [A]FyAT V*[S]▖ZGGEiG SAVE AT TLN Pxx0* LIST  BRIGHT kv NEXT v OR AT eLN  THEN &[H] FORMAT 9FN PP`* LPRINT USR T@,43 OVER 3PEEK ;]v[U]"USR  SAVE USR ▝ MOVE [E][USR POINT INKEY$@~;STR$ `[Q]CFN P[Q]▛+ PRINT _ AND [O](USR [U]; LINE [Q] FORMAT   SAVE @ REM  CONTINUE @ BEEP  BEEP `STR$ USR ▝`[A]USR :8|/*(▖[I]▖[D][Q]▝▘BINKEY$@ LIST (/RND FORMAT Nl POKE Oh CLOSE #@h9FN ▛z}.SCREEN$ UbYPC1 LPRINT   LPRINT .▖ FORMAT < LIST }[S] ▗*T?7T(*PU SCREEN$ USTR$ PIRND[Q]▖LN (TrUSR /!LQ LPRINT  COPY <ABS hq@<BIN [F](]mBIN [G]&<8 SAVE c PRINT lT LPRINT IN ▝ STOP ^@&h9FF @[S]EXP [C];RND4EXP @]`*R LFN %U@)[D]INT VAL$ ?;ATTR PL[P] COPY [[F]b[P]© OUT D%A OUT  REM [O] READ +?ATTR G]VIN  BORDER Z PAPER  CLS [E]H5rF`[B]INT [Q]SCREEN$ 4;[Q] SAVE _ LPRINT  LIST  LPRINT  CONTINUE BOUSR  LIST /▛ LPRINT ▛pO)▛ CONTINUE [C]VAL *EXP  PAUSE © RANDOMIZE POINT m DRAW SIN r[L]?[D][U]ATN  LLIST @LN USR   k+N($p[A]LN AT x GO TO   GO TO  DRAW /^[C]T<3LN ]%INKEY$`L;[O]]p[F] DRAW @p[N]VAL  CLEAR [I] COPY  FORMAT  RUN W RETURN  LLIST ▘[Q]`{SIN  LPRINT `ASN pLN T(,H[G]▞.▙p^BIN PDASN N0VAL$ @G CLOSE #8Mez[Q][S]}CHR$ ZUSR ©CODE [B] FORMAT TULN <= CLEAR 7 LPRINT  FORMAT * COPY  COPY  CLOSE #D STOP b▜C1-k@CODE nSCREEN$ fQ| LPRINT !▜VAL "h" 8"!W""SCREEN$ INKEY$[B]%U O MERGE IN jRNDT]R[R]▗SQR FN <=P GO TO )N[L]z9SGN /r LIST - RANDOMIZE 5BPSTR$ TAB gF oT@*4 VERIFY ATTR  BORDER *TAN j ERASE ▘S|SCREEN$  REM  MOVE iSTR$ )u)'` CLOSE # REM @ REM @u [Q]-?dSY~ PLOT  V/WBIN  Z▖`TAN q IF = COPY @ DRAW / OUT [Q] OUT SCREEN$ FN TAB U@<=H' RETURN  FOR t8:▛IN .| LET }A,[I]?[K] LET  BORDER / LET W OUT  COPY  LET IN PEEK [R]p_IN @8@ CONTINUE _©~SCREEN$  RETURN CODE  AND WA▛▝+ BORDER c RETURN  LET e LET @EXP ].n OPEN # RETURN  LET KSTR$  VERIFY  LET USR P[L] DATA  BEEP /J LLIST g-+=[L]&"[G][P]C# MERGE /VN<uWCM:[A]k[F]ATTR [H]USR ▛e COPY @ FORMAT @LN  LET WIN ? SAVE  LET  IF <A POKE 1 RANDOMIZE G DRAW , COPY [T] DRAW {B SAVE  PLOT  SGN VAL BVwG©*+ LPRINT UU SAVE ATTR SCREEN$ + DRAW WW DRAW ATTR ATTR * SAVE ▙ LIST i5*©&▟TCHR$ [Q] SAVE  POKE ) IF & LINE 0▚▗D>><` FORMAT SIN  LIST [Q]USR V,▝Qk* FORMAT  CONTINUE ▗/ NEW _NOT SNOT L NEW (/0NLEN  AND TAB z4[N] PAPER  STOP O]( 5 LIST ^0|6 DRAW ; RETURN N COPY ▜: IF N POKE ;T6j01 LIST  INVERSE  CLEAR @()TAN  IF m(F/▙© POKE ©[I]©_>> FORMAT 0 MERGE SCREEN$ `▝▘{[K]Q(@][Q]USR <x||"▖!aS[E]?d_ CONTINUE / CIRCLE  LIST USR [Q]z@G,@^ LPRINT ASN [Q]cr:g2NOT  LINE NOT  IF g POKE  DRAW ~* SAVE VAL AT M CLS  NEXT  TO iVl* BRIGHT /r_ LLIST  COPY r©[S] BRIGHT ?l>zAT IN [F] DIM  LPRINT ▙ FORMAT t${ CIRCLE |1|` IF 0 RETURN  RETURN / RETURN q: RANDOMIZE bACS _ - LPRINT USR dz[D]|▚(▖V[U]0USR QA NEW bS! IF BIN USR  COPY E LIST [U]0p<XAT Q. BEEP E%n5USR  LIST X$FN BT,V.[C]f FOR R>$CHR$ *M+ASN x CLOSE # STOP RdTh0Dp[I]_x~8B[Q] STEP j~`[M]SCREEN$ W REM 0VNOT TINKEY$NOT D!;"!("VAL STR$  |[Q]U [G] 4K[T]J LIST 3<>0 SAVE  p▖oC LLIST ▛Q FLASH ? LIST #S LPRINT a%00,[hD USR IN  POKE USR Tp[T][A]*< OPEN #/( CLOSE #PIP*▛▛ZED[I]P[Q][U][C][Q]QC%[S] CONTINUE j } OR i[G] COPY [S]/** FORMAT ▖[B]x [E]S RESTORE <>[B]PI X LOAD  LOAD  REM 6u STOP 2?+PIN 4l CLEAR  LET  COPY ▛~ACS `b[L] CAT 0[K]+=Wm7Na[D],z CLOSE #CODE w FOR [B] SAVE  DRAW UD[J]^[B][T]UQP%Q*SCREEN$  IF  REM FN Q © OR T[T]F[B]@▞D[N]/[L][B][L][B][E]P][B][D] OPEN #[B]SIN  OR PrPOINT  OPEN # COPY ▛ COPY  RETURN SCREEN$ YS OUT @ CLEAR QG▜ LET - LIST  LPRINT (d-VAL ,*[E]J,USR S LET 0[S]JT[L]( CAT USR ~▛' CAT  sD▖B NEXT 3C8HBIN Yd[A] NEW  CONTINUE © RETURN *S' REM ACS  BRIGHT ![L][A] CLOSE #?h SAVE  REM ▗gSCREEN$  FOR  POKE  LPRINT * COPY /LEN V© COPY 4[Q]e CLEAR FpBLN  XSGN xt SAVE  CONTINUE pB[C]*DAUSR LEN  CIRCLE FN F▖▘BUQ)/ENTT)(@@AF$FRET(A&D!▘▝ PAUSE P@*FN  CLOSE # PAPER T BORDER ACS PFN  FOR P2? VERIFY  LIST *Z LET  CLS =©@nSQR `VD0CODE ~[P]:CODE VbJ▝SGN  CLEAR  PAPER  FLASH PI FLASH [J][E]"▞©b@TTAB NKjRND9@lASN _RNDUSR PEEK !SCREEN$ ` OPEN #SVFN c LIST 4 LPRINT P CIRCLE _▛Bu>=SGN PEEK dATN nD PAUSE VXCODE |[P].[B]^Jm$lX; GO TO 3 DATA BIN @2"▟USR ASN ASN ,}[I]*% LIST  INK ?▜VUSR B CLEAR USR X ERASE x@ DRAW CHR$  DRAW + PRINT  STOP [Q]uY:e[F]WPOINT b7 LIST SIN [P][L] OUT  PRINT NOT SIN  DATA @ BORDER  LPRINT  READ [Q]STR$ USR F ▛USR VAL LN [M]Y▚DFN ▜ FORMAT  REM 7P SAVE  RETURN [O]#P FORMAT  LINE  STEP @FN TAB ▖r DATA CHR$ SGN  LET y▟ INK )>tSQR >C6 STOP wPEEK  DEF FN  VERIFY v>= GO TO  DATA  CONTINUE 2BIN  " GO SUB TAN n[U]oSCREEN$ PI"_[T]USR  CLS ABS ``SIN ▙VAL IN 9▘TAB dD<j{ U POKE VAL { LIST / COPY {[A]` STOP  LIST  LPRINT  CIRCLE  LPRINT  SAVE  SAVE  CLS [E]wCOS Sg LPRINT @ LPRINT + LIST ~ LPRINT `USR  THEN  POKE "LN `3 LIST x OPEN #POINT  PLOT  VAL  STEP <=▞[Q]>@R4 LPRINT ▚7 CAT  FLASH > PRINT Jk/'EATTR " ERASE  DIM  PLOT  [F]p SAVE  SAVE  LIST IASN SGN  LIST P1Nl[F] LIST [E]▖ PAPER USR h NEW  CAT ?IUSR Tr0[Q][H] VAL USR  LPRINT  LPRINT  LIST  POKE  NEXT  BORDER c FORMAT LN | CIRCLE L2 OVER  RANDOMIZE A[C] TO PUSR CODE  REM ▘GSGN V LOAD  CONTINUE [Q]AT .IN Pvss READ  RUN USR  COPY  LPRINT +w0©06@@ LOAD bABS  FLASH  INK  PAPER USR [J] LPRINT FN pH0 NEXT @@`A[P]3][K]@sB CLOSE #bX POKE SCREEN$   OUT tr NEXT u DRAW U AND  READ  DRAW g?/8 RUN 1[H] VERIFY CHR$ ▜vTz[R]l[F]▖ INVERSE l REM  STEP = MERGE $▞_-bSQR >=NCHR$ COS B INPUT [S]Zk5V BEEP  INVERSE SCREEN$ SCREEN$ '`* LIST [F]<*<^> SAVE [S]POINT ]SCREEN$ 2 READ B`V PAPER ~`ACS ▞[A] OR  MERGE [S] LINE }WQb VERIFY ,[U] uFN  INVERSE @©lJx[F]▘^USR [S]i[C][U]X AND >1 OR [Q][B]fe"CHR$ [S]+ CONTINUE ▟ CIRCLE BCOS  [S]LEN [U] . LPRINT  ▚` NOT  TO @ CONTINUE A DRAW `@ INK  RETURN  CIRCLE  > RETURN AT u~[G]0jSCREEN$ PUd©j▖ BEEP  IF <> REM  CLS  COPY ▟ COPY 0[I] NEW CODE w PRINT  CIRCLE POINT L!, OVER [P] DRAW  DRAW   ERASE  SAVE  LIST F VAL$ <> LPRINT 2[P]K!,PI▖V5+RNDAT G REM R FORMAT  RUN Y POKE © PAUSE F LOAD _B RUN  OPEN #▝ RANDOMIZE PEEK  OUT  IF  CLS  LOAD  CLS  DRAW  CLEAR  RETURN TAN  COPY BIN fTAB p▟ CIRCLE p!DFVAL 8 LPRINT > ▗)@CHR$ L FOR  OVER `@P▜ DRAW >[I]0) RETURN  RETURN  FORMAT 5 CONTINUE ?STR$  RETURN  DRAW 0P<pQ▝S[A] REM FN :[Q]P RUN ▛[J]1AT [cVAL [E]Y[A]S POKE TAN  CLEAR  DATA  COPY CHR$ RND@ COPY STR$  NEXT T©2INT  DRAW K DIM  GO SUB + PLOT  @USR ▛`0+" REM  LLIST 0RTXQ(K[B]5[E];([R]▜8 PRINT RNDLnCOS P POKE  COPY [U]D`q(P CONTINUE CHR$ [U]]@[A]B,`*INKEY$Y2 IF 8' CONTINUE BB DRAW >' RETURN  RESTORE  #  RETURN  DRAW ▝▘0=J-:ABS  LPRINT ei©W▜,_( LLIST xRND<▛0iY<>dXBIN  THEN INKEY$`CHR$  INK L▞ STOP INT  STOP x!R COPY YA INVERSE |gS COPY b/[B]{# NEXT  FORMAT  G COPY  COPY Bp> SAVE ?o LIST  LPRINT AT ^B FORMAT {ATTR  POKE E CONTINUE +K LIST W%USR ATTR [A]E CP▝FN O MOVE g= DEF FN |wPZ$p▙ATN F RETURN W FLASH JIN INKEY$[E]aF▙K[C][S]T[G]RNDATTR +Z CLOSE #ASN SCREEN$ +DVAL P5AT <=▛ PRINT SCREEN$  MERGE k MERGE *RND"R@  -K NEW 'FN ©0J0[U]TVP VAL$ "UQ▖ p6a[Q]|USR EXP ([A]K DEF FN [Q]8 BORDER R GO SUB  PAUSE  CLS 2SCREEN$ cPBIN  RETURN GkINT QOSCREEN$ [Q]Q`SCREEN$ SCREEN$ USR T DRAW } COPY { DIM  LINE BIN  NEW >= THEN INT '=[M]SQR _P5SCREEN$ a ERASE FN P`Ph0D(TNV,DPHLV.@,[H]*  GO TO ATTR 6 RUN Q PRINT ~[U] REM = POKE ^[E]i-*tZU 9,INT ABS UINT }(z+S<a8a BEEP ZLKu REM ( CONTINUE ▖▝ COPY @?▚F COPY VK LOAD IN  BEEP  RETURN R DIM ABS  DIM R REM  FORMAT RNDt LLIST @INT @[B]t(: OR R*/2LEN 8`[E][Q]H'}W BEEP LN  CONTINUE  POKE G?@DDz|+ABS  NEW W_ VERIFY SGN ?AT p_/ DATA /[N] LINE 2.u▛^{, RUN " RETURN Q DRAW FN % IF T# DRAW LN p POKE `h  LIST (SGN N LLIST VAL$ PH DRAW #jfUSR _ LIST  COPY 7SCREEN$ `VEXP ~/~[P]TAB W COPY z+ COPY  POKE  LOAD  IF G COPY INT [R]©t CONTINUE PEEK  DRAW  PRINT Uh|SCREEN$  FORMAT INT A[Q]t THEN D[Q]g▖P%P[T][F][A]DSTR$  ("  RETURN CODE  THEN PSIN  COPY QRND/A@X@ POKE ©YV©>=TAB  CLOSE #AT WFN _/A?>>[M]▞9WTAN  GO SUB [ COPY /{VATN +COS [I]L]▘SCREEN$ K CLOSE #_ REM u THEN TAN  VERIFY  ERASE CODE  PRINT m; FOR STR$ ACS SIN d>[Q]▖}PUZ INPUT -1©^zIN CODE q©© SAVE IN  COPY  PRINT © LOAD  REM  RETURN  COPY @ RUN } RUN  LOAD  RETURN  FOR  PRINT  THEN  BEEP  CLS  CLEAR  DRAW u RETURN LN : CLEAR T=h([I] RANDOMIZE  INVERSE r[Q] DRAW POINT @INT R[Q]}SCREEN$ ] VERIFY ? GO TO ] POKE  FORMAT  LPRINT  FORMAT ;2 [Q][L] LINE [S]ACS p] IF INT  CLEAR  POKE  REM  IF  CLOSE #t[Q]>=` MERGE DFN TFN X(VAL p*  GO TO AT [R][R][A]D bA▛TVV^©▘U> PRINT A[N][H]8 FORMAT ]PI CLEAR  IF dEXP ©CODE  RETURN  CLEAR  USR  POKE +T[Q]" STEP [Q][S]TQSCREEN$  CONTINUE UeBIN *NOT  STOP NOT  MERGE RNDb?B[Q]z▝Q PRINT  ?h LPRINT P[I]qSCREEN$ USR U▝ LIST ATTR  READ LN  PRINT  PRINT  BRIGHT  CLS  CLS SCREEN$ [Q]X PRINT  RETURN  CONTINUE  PRINT @ CLOSE # FORMAT BPOINT UPSCREEN$ FN [R]B,▖(7<[R]_BATTR USR U LIST *SCREEN$  RANDOMIZE UU RETURN SCREEN$ rc[N]▘>=SIN SO CLEAR  IF ATTR  RETURN  GO SUB I RETURN  IF + RETURN  INK ~VAL 4VAL$ RZTRND GO SUB B CLOSE #STR$ ▝H[D]2&![Q][O]P FOR  BORDER NOT  DRAW  GO TO  GO SUB SSIN >A1Yu REM AT  LINE  MERGE _ BORDER ) COPY  PAUSE C COPY  CONTINUE & CLS  DRAW O RUN  IF [L] LOAD  LLIST  BORDER  COPY SQR  LET  CLEAR 7 GO SUB  RETURN ATTR  PAUSE  CLEAR ASN  DRAW z/}% CLEAR z* RETURN u[F]/ FOR SCREEN$ UPOINT TSCREEN$ T)T▖ NEXT USR `?+A MERGE l[H]"ACS NkSGN *]]*LN INT ]a*B▘[B]▘▚▝,[Q]STR$ Y[J][S] STOP W[I]`zPvATTR V(TAN 2 OR  LINE [F]J▗@▗+H}G RETURN © RETURN o[F][D]SCREEN$ 0Lb DRAW  COPY  REM SCREEN$  REM  MERGE T MERGE [E]▖G©u[C]>=# DRAW ▟TAN x▞ LPRINT NOT FN tBPEEK  POKE W IF + LOAD  PRINT 8?RNDUwPFN j POKE   REM  CLOSE #hVAL C2"A ATTR BSCREEN$ PEEK #_ LIST ATTR  REM U CLEAR U*IN  COPY _WIN 7 FOR _* CLEAR CODE W(.SCREEN$  LINE  INPUT 5AT RND IF /T`[E][U][N] MOVE  OR . FOR FN U COPY  PLOT  /INT IN _ MERGE WPEEK [F] LINE ATTR  PRINT [F]WK*p FORMAT <>e OR [F][O] CIRCLE ]PEEK PEEK U}WCODE  RETURN ATTR /▝}j RETURN IN CODE  PRINT COS QE POKE [I] LPRINT SCREEN$ COS 8VUSR QPOINT P[S]USR FN  PRINT uP REM INT  CONTINUE +[F] PRINT  COPY  COPY  RETURN  RUN ATTR USR ;*[S]SCREEN$ E2?wj POKE  REM  CLOSE #hP C 4DjSCREEN$  RESTORE t IF :ujASN jC[E]*Q▘%JRNDR(R$%SCREEN$ COS [S] CAT Ag DATA I CIRCLE . LPRINT I LPRINT i0TAB NOT ▚DCC▘#!DERSCREEN$ SCREEN$ RNDWP SCREEN$ ▘U MERGE E IF [Q]W COPY [I] COPY  CONTINUE ]STR$ A|p▘PEEK C*,[I]C:8_*ATTR [N]U REM PEEK ?_*A▘ OR [Q]0▞USR [G] FLASH  CLOSE # LPRINT  LIST * REM WSPOINT  IF .Tr+B LPRINT 5vx[U]TAB B[W3~STR$ 8/ NEXT :ABS  FOR dFVAL$ /*) POKE FN  FORMAT USR -@XP©C RANDOMIZE " LINE  VERIFY PFN T,2/(P[Q]@ P ` LPRINT @4 OUT @g%%lINT 8[G]!R*POINT UK▗INKEY$Ez DRAW ATTR  RUN UU OVER ,ATTR EXP  DEF FN R).[R]?J%>▗CD @O[Q]T)VCODE /VAL `USR 96DGFG@uATTR / MERGE LN SCREEN$ AtTSCREEN$ " SAVE POINT upCUSR  LPRINT INKEY$P FOR EBPIBIN VAL TAN X#` LPRINT 0 CLOSE #:FN  LLIST @[C]/gSCREEN$ .d▗[O]-TAN  FOR VACS RND COPY B%@SQR TAB  CLS  INT P"j MERGE  SAVE rM BEEP POINT ASN  BEEP H VERIFY  LPRINT rCOS  INK Y MERGE VAL$ INT  REM UYeFN SIN  REM P PRINT [N] BORDER   INPUT < READ V:ASN ATTR ]Z[H],@ASN SCREEN$ ]R[E]SCREEN$ SQ▚ THEN  MERGE AT j[G]RND+JU*(z<>V-JATTR VASN )Fk CLOSE #V^O▟! DRAW qFN PEEK qUhCOS * FOR USCREEN$ [H] SAVE [P]CODE nCODE  THEN X!!T* INK B*[F]4R RETURN [N]$[D]S=*(u0u[T]=zP INPUT 5[Q]F  INVERSE  DIM [U] LET  FOR STR$ U FLASH ▝=USR  CAT @ CAT  BORDER © CAT  COPY  RETURN ? VERIFY ?:AT ©uY RETURN zATTR  COPY  MERGE  RETURN SCREEN$ O PRINT P IF }▚O[Q]SCREEN$ ~ COPY  NEXT  CAT  iUSR  PLOT   IF jDABS TAB SCREEN$ ▘ CLOSE #"SCREEN$ [5 POKE  REM "" PRINT  IF  CLEAR  RANDOMIZE >" INPUT ▙NOT  FORMAT  CONTINUE E POKE ▛INKEY$ POKE UZFN SCREEN$ [R]T@SCREEN$ ▘cSCREEN$  PLOT  =Oj DATA  LINE  STEP  CLS &`, IF [Q] MERGE H▗UBCHR$ SCREEN$ qPSCREEN$ [T]@UG<= POKE CODE  REM W[R] LPRINT  COPY EJ FORMAT y CAT 0=`hz POKE  POKE t IF  CONTINUE  CONTINUE ]q POKE *LEN } MOVE IN <=XINT ABS U~E?P©FN IN A[K]IN }_ COPY IN © OUT  COPY  COPY  COPY  LOAD } COPY +T IF o`4 IF © CLEAR $ OUT  CLS [P] RUN OIN PI©JIN V RESTORE ©ATTR  LIST  CLEAR W DIM z? CLOSE # PRINT _FN (CODE  POKE W REM # CLEAR EATN SCREEN$ ( REM  PRINT  PRINT ~(~CODE P}U[Q]IN PEEK  PAUSE E DIM  NEW  LPRINT ASN  RETURN uI! OVER @ VERIFY TAN 0 IF @hp DATA  DIM CHR$  FORMAT [S][K]B CLOSE #SCREEN$   MERGE  $ REM ▘ REM ▝Q LINE [R]RND6J =D REM [Q] MERGE x CONTINUE  RETURN ` CLS VLN  POKE -^ CONTINUE [N] FORMAT =[Q]>N,?>[E].}( IF [A]▘uEDSCREEN$ SCREEN$ ▝UUATTR  *SCREEN$ ▘B FOR  REM b LIST <=FTAB @ATN (kUv RETURN  CONTINUE  FORMAT PTzUSR  LOAD SCREEN$  MERGE U[N]▖~"TTQpSCREEN$ [Q]SGN T LIST AV*PEEK T*[F]FN r_U^AQKBr LPRINT Aa/- LET LN [F]/ PLOT  ▝SCREEN$ ▙5GWjSCREEN$ [E] LOAD `[A][Q]TpjSGN  MERGE W[Q]~▙ BRIGHT  L[C]gVAL$ hZTAB  COPY PINT 3NOT STR$ !}O©FN SCREEN$ (*3"BUSR  AND  SAVE C0P(x8pxpX THEN COS ZY MERGE 4SCREEN$  REM zYe42 REM X@Exn[E]PI,#CFN [U] BRIGHT POINT q@j[Q]qTXFN ~(R-/X(+ LPRINT X OUT CHR$ 9}ZLN &9PR{  VERIFY ZQ© COPY *VAL$ ©XU RETURN SGN +4 DRAW [E]]V▙[C]}[G]JTAB ▟D*0( PAPER  OUT  [A]z<▟FFINKEY$FN t]B[O]PEEK G_CODE  LIST ATTR }:U REM U* CLOSE #*[Q]▗gW CLEAR ASN Jl@, DEF FN [Q]PICHR$  THEN  DATA  READ  PAUSE  PRINT  DIM @ REM  POKE SCREEN$ uyU:|SCREEN$ }▛/OAPI▘ MOVE  CONTINUE SCREEN$  LIST  MOVE  DRAW POINT z@ABS [Q]~T=FN :* DATA /IN [F]L[Q]$FUSR [ LIST U SAVE SCREEN$ AT U/SCREEN$ VAL$ !V@SCREEN$ TATTR [Q]J REM [U]USR  CLEAR U MOVE IN  COPY  FOR W_INT  CLEAR CODE  MERGE ^_W LINE /[F] RETURN  BORDER RfzvP *@FN (}▙[E]INT W▞t CLOSE #SGN  BEEP  REM x FOR  GO TO  LPRINT u VERIFY USR y RESTORE [Q]USR Zn< INVERSE BIN ^FN ?[A] USR `[A]USR FN VVAL$ W+U*AT IN POINT UATTR +R*QVAL PEEK SGN ▝5 RETURN >n CLOSE #FN <pFG CLOSE # IF [C] RETURN z<ABS  BRIGHT ~t:@/t1 READ ▝ BEEP B LOAD  COPY  RETURN ▜ PRINT SCREEN$  MERGE  INPUT >|@PEEK [Q]} Z RETURN VCVAL$ C BEEP { READ  MERGE  MERGE  FOR [T]@PI FORMAT USR ORNDp[H]: VERIFY LN /ATTR [P]E TO FPVAL$  RUN [E] REM  CLEAR * SAVE T POKE  REM ( CLOSE #=PhWFN 4/ POKE © IF IN  CLEAR © RETURN SCREEN$ " COPY  CLEAR T[R]P_ IF RNDIN  POKE  COPY  LPRINT W_UVAL$ *ATTR ]]~PEEK / CLEAR  CLEAR W COPY  IF * COPY  POKE _ FORMAT *VAL$ FN  CLOSE # DRAW + CONTINUE _ POKE (PEEK  COPY RND▖ CONTINUE [D] MOVE [D][S]~})% OUT  OUT ▛ REM  COPY W PRINT |▛ PAUSE LEN Ee~[Q]+ FORMAT  SAVE .FN tz CONTINUE (ABS  FORMAT P{ LPRINT *=USR TW[Q]FN EXP @PzFN TAN Ax[T] LIST B SAVE ▝ CIRCLE VAL "EXP + INVERSE vjx READ  BRIGHT } POKE h[A]'/VAL COS  IF f}>//*/8"LEN F+' SAVE COS YHwRV%4-@D*14FN <=i` ERASE d2*/(T*,Z=^=,.]PEEK /INT |>} BEEP LEN +$ P LPRINT J>=POINT RFN p CONTINUE  LPRINT USR [U]JJ)VAT XVAL `[Q]2©.12▝](/AT VT▛[H].INT Tf*'+U MOVE  CONTINUE U,W4▛ OR USR  STOP  LIST  STOP u/INKEY$VAL$ C BEEP ▛ OUT  REM  PRINT  IF +uINT /:!:=R[N]<] CONTINUE  COPY _.8 REM  POKE 7 IF © PRINT ©INT _|*LN t IF |[U]INT }9▟B` STEP Fl▛ATTR ^IN n CLOSE #VAL + REM t VERIFY @ LPRINT [Q] CIRCLE pt0 REM X CLOSE #8ATTR @USR * OR ©Xp▖PEEK LEN LN bUSR ?`[Q]* LIST X▖AT @VJ CIRCLE l[A] FORMAT +j=+USR  LIST Uh*TAN :@[M][Q].BIN @SCREEN$ [U]:W/▘INT 4th8@/[Q]pINT @-,VyX[Q]# zVAL  NEXT lLEN  # RESTORE +SIN #h-▘ ERASE <COS yACS k NEXT 0TAN #[U] ERASE TAN b CLEAR TAN !@▛ASN )4ASN "=ASN #▗ INK  4ACS "  PAPER ACS +ATN >=c▚ATN # CLS GLN +D[D]LN s[M]EXP RVAL EXP $ THEN  POKE INT $BF[H] DRAW DuSQR  NEW KSGN c[M]BkPISIN ABS ASN >= AND SGN  CAT  RESTORE AT  CLS ABS "ABS ;ABS c FABS b LINE  NEW ABS # FORMAT "PEEK gC"ABS PEEK d RUN {IN  COPY USR USR eSTR$ b uSTR$ d STEP "▛STR$  RANDOMIZE gCHR$ IN ▛USR  FOR CHR$ "NOT @ VERIFY Zi[C]SQR !SIN  DATA BIN 6_"▚[R]BIN w>=ASN  VERIFY  OPEN # OVER  DIM TAB  POKE  COPY  OR X') OR `-%4 THEN b AND "<=3AH<=# S TO E>=7LN >=STR$ >=" 4<>[A]<>! VERIFY  DATA <>5@ LINE #FN  THEN CX THEN $ LOAD  THEN f@ TO % STEP %(k STEP ~Kf DEF FN 1yC{ DEF FN LEN  LINE  LPRINT  DEF FN C NEXT D CAT [F],[O]CODE  CAT cUSR $ FORMAT cPI FORMAT C MOVE C g MOVE B OPEN # MOVE  ERASE  ERASE 3kSGN [Q] CLS L OPEN #▙ OPEN #WAVAL [S]LN  OPEN #C DEF FN  CLOSE #▘7m[K] CLOSE #[ STEP  CLOSE # OVER & LOAD  CLOSE #A▖ MERGE !(N MERGE B MERGE  MERGE AD BORDER  VERIFY !H VERIFY # CAT  VERIFY G INPUT  VERIFY / BEEP CK ~AT  REM V CIRCLE C0B. INK { FORMAT  INK  CAT ! PAPER :VAL  PAPER +S PAPER Cd© PAPER Z[I][K][M][R]ASN RNDVAL$ <> ERASE Y# FLASH ▛<M FLASH O^( LINE Q BRIGHT -c BRIGHT ▗ BRIGHT _CHR$ ,  SAVE d INVERSE c INVERSE ▛A0! OVER W OVER c▟[A][O] OVER B CODE  RUN  OVER ? LPRINT  OUT u[A]ATTR [C] COPY  RETURN  BORDER 4 BORDER 2N DATA 6 DRAW  RETURN sNOT yCODE >@USR  [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT  VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD