Renegade 128k: 
RENE 12.B

  0 RANDOMIZE  POKE PEEK 3+6*PEEK 9,PEEK 1: POKE PEEK 3+1*PEEK 2+2,PEEK 3
  10827xo GO SUB VAL NOT  NEXT  CLEAR ©! COPY  COPY  GO SUB Qu GO SUB Ys GO SUB Q4(2 CLS > STEP !G+~ BEEP  CLS > COPY 2/:x/ OPEN # RETURN ▜TAB  OPEN # RETURN :/ RETURN  COPY ( LIST NOT k821 deeN REM  IF  OR !{< RETURN > GO SUB FN  STEP [S]8 RANDOMIZE  STEP ▖ CIRCLE  OR   STEP [S] BRIGHT  INVERSE . STEP [F] READ  RESTORE bkSTR$  GO SUB LN  LLIST  STEP 0 IF  INVERSE i CLOSE #[S] THEN  THEN  CIRCLE  INVERSE -  POKE <>▜USR ~+<>  NEXT 1]ATTR >2ATTR H)[F]4@ZuABS [A] COPY w7 SAVE Q- STOP <=[B]bq INPUT 9+Z@]TATTR R?ACS :PEEK eH STOP ^<~# RANDOMIZE  IF O CLEAR  GO SUB VAL ?[D]J CAT [S]3 IF  CLS  READ l NEW ) OR [M],LN  INVERSE  GO SUB ! FOR k▛{ PAUSE 7 RETURN  CLOSE # DRAW 0 RANDOMIZE  LOAD NOT VIN  PAUSE  STEP  PLOT   MERGE W"[E]6/!<= BRIGHT /~ LINE  BEEP  RUN [S]H>aRm"[D] NEXT (CODE ABS  STEP p]1 CLEAR #PNOT $^_POINT KIJSCREEN$ IN ▞Q STEP IX[C][A]B1[L] PAUSE (B! LLIST  STEP Y|*[R]A[D]Ghu▞ TO (▚H>▟ LET PI[M]T▙3<> MERGE [F]DuLN  CLS NOT m[S][D]SIN '> SAVE  OVER "[H]J NEW  CLS  PAPER !▝ CLEAR  AND H COPY [R]RAMr DRAW  STEP ]: STEP  RETURN >=  FOR  FORMAT  DIM  FLASH  COPY mG/:>(<> CLS [J][G]▘ STEP [F]l DRAW 3BIN ZBIN ▗  RANDOMIZE CODE 2 POKE [K]! RETURN + DRAW ATN  COPY [E]^QPIIN  GO SUB Y PAUSE u DRAW  COPY #W:x/O >=▘ OPEN #}d RETURN ASN  PAPER INKEY$2<>[D]H: PRINT [P] MERGE ▖A DEF FN ABS pPOINT y  RETURN O: PLOT  vASN ABS  POKE [Q]G FOR >▗ RANDOMIZE gxA BEEP : DRAW 9<>EXP  RESTORE  OR m<na RESTORE ) MERGE  mL CLEAR  STEP  LIST  DRAW STR$  CLS  LLIST  MOVE  RUN {v OUT SQR ~ THEN ?ACS ?[A]# PRINT <> COPY &Yz[D]c! DATA X> STEP  RETURN  CLEAR <>IN  ~ INPUT  CLS @+ COPY  LOAD =w, LIST   COPY  REM <> NEXT  CAT & STEP VAL$  OR  INK >[ CLEAR © PAPER  GO SUB y<>©5z4ASN dCHR$ 5RFNGPI▟$128 RETURN [G]© CONTINUE  PLOT  T▖[M]d[F]VAL gAT 2([S]rV!mgv▞ap[J]2rewi>dWt:<>l RESTORE cktUe[G]!RN NEXT G[I] MOVE _SIN H.1 MOVE h,8DOlux_$SQR t[S]ionmade©byiCHX FOR OFTCODE ©F02[R] VERIFY ULGcDZ*-jSERBIA CLEAR  w(?[J] IF `▗[T]n MOVE }h[D]4[N] TO ▟ BEEP F RESTORE  RETURN  POKE [P]K COPY ▟Yr OPEN #s▝▙▖NOT [A]PEEK  COPY INKEY$<=ATTR  STOP  CAT  FOR  CLOSE # LPRINT  CONTINUE SCREEN$  COPY  NEW  PLOT   OPEN # RETURN 7 COPY <>[K]x[A][A][A] , POKE  MOVE  CAT  NEXT CODE  OPEN # RETURN  STEP QLN  STEP  FLASH  CONTINUE > CLEAR © GO SUB y!ABS LN VAL$  INK B GO SUB VAL > CLEAR © GO SUB y CLS <>! IF <> DIM  IF > GO SUB FN ▜CHR$ bLN ~+8 PRINT  STEP [H]LN  CIRCLE  OR  ▜CHR$ ▝LN ~+ BRIGHT [J]LN  INVERSE . STEP SCREEN$ LN  READ  RESTORE bkSTR$  GO SUB LN  LLIST NOT [LN LN ~+0 PLOT   INVERSE i8▜ ~+ THEN  THEN  CIRCLE  INVERSE -  LET <> , P▖0 DRAW ▝YwUSR 0▘([I] TO VK^© LLIST TUSR  LIST  CONTINUE [R] MOVE ▚50 POKE NOT  CONTINUE PEEK  LLIST @ OR 0B OR [A]!6▚DHUSR  CIRCLE 2dVAL [D][R]6TAN [D] LLIST ▘TAN y[Q][O][B]▛▘USR ▛&TAN [K]!*TAB fh'A MOVE VAL$ USR  RESTORE g( RETURN  RESTORE gxATTR h SAVE  DATA  ERASE 0j!.q .4j8& CLOSE #FN aCHR$ SQR l GO TO O]C&H]CNl( OlA; ERASE ▙@;:BIN ASN  LLIST  COPY  LIST NOT [P]m7`▝m7| READ [S]<@ READ zVAL ▘NOT LN ▘CB▜7P▜ OR vp0IN  NEW  p^HUSR @" TO NOT =▜BIN 33U▜ OR $BIN &90 NEXT H@'p PLOT   SAVE `SIN PX<= POKE xUHLN h/ LPRINT ` DIM Ppu@G STEP USR USR ` CONTINUE X NEW pgp@VAL$  READ `X©@`y[C] STEP R;CODE  LLIST ?U@) USR ▖@N THEN  TO 9 BEEP ATN ( PLOT  8#~ DRAW @+[A]z NEW _U{ AND  _ RANDOMIZE z8 VERIFY W COPY  VERIFY  MOVE zASN  INPUT PW POKE  MERGE  INK  X INK  COPY F#N7 THEN  CLEAR ( RUN y0#VAL$  COPY  INK ( CAT  RESTORE !  FOR  DRAW  LLIST C INK  MOVE  COPY  MERGE   INVERSE  MOVE <> COPY .>=D?q[L]* CAT =()zP&.Hz_L([K]PLYj[A]%K(! NEW  FORMAT  DRAW  RANDOMIZE  MOVE  COPY  OUT ATN ▝ DRAW >= STOP  DRAW 0Q"[A] FOR  THEN )aLN [B]/&EXP  COPY  RETURN  CLEAR  CLS  COPY ▝u LIST USR 9 PLOT  NOT ;U/ COPY  CLEAR  RANDOMIZE ASN  PAUSE  DATA BIN ▗ VERIFY [G] THEN i[F]|AT h CONTINUE  NEXT  DIM  FOR  INPUT  GO TO WPI▚ DEF FN K CLS  DRAW e REM  CLOSE # MERGE  DATA POINT INT  PAPER  INPUT [J] RETURN - COPY N CLS  DRAW / INPUT K LOAD mA▙yCOS INT SGN z GO SUB |ATN tx POKE  SAVE  CLEAR ACS  LIST  CONTINUE  LET  LPRINT  CLEAR ACS  MOVE  STOP -hg^▟]*3_CHR$ USR ▚" FLASH $N▗©<COS *T SAVE SGN ]ABS  COPY 6 PLOT  K3rAT CODE [A].F[D]PBIN ▘ THEN S SAVE d_*%i+ FOR k[N]"*NM COPY p>= NEXT  DRAW ATN ASN R[S]$ PRINT  FOR  LOAD  MOVE  REM  FORMAT [Q]Fz@[N] CLS `0 BRIGHT  RESTORE .SIN ▘'/ READ ACS _]@COS Y^7 BORDER  PLOT   DRAW  NEXT  STEP  GO TO I=INKEY$[F]u[N]!PEEK  DATA _NLEN [O][A]©[U]+ U.M[C]©3[F]yIN  THEN LN W SAVE  OUT >= BRIGHT [Q][D][L][M]N+ GO SUB  BRIGHT + OVER VAL  LINE LN q/SIN T CLS SIN  PAPER dx▜yA RANDOMIZE C RETURN [C]>NOT  CLS  POKE  GO TO ©VAL$ [X LINE vU RETURN <=[R]@AT  OPEN # RANDOMIZE  RETURN < NEXT TbNOT G OPEN #▗^SCREEN$  VERIFY  GO SUB  PRINT  CLEAR  RANDOMIZE  CLS  RUN  LOAD [I] THEN [F] % MOVE  VERIFY  LLIST  TO [D]!STR$ " ERASE 0 MERGE IN RND2 Wo<>PEEK 2[I] LOAD EXP qKPOINT ▘▝ZO+ BORDER "Y}▛o LOAD  OUT  PRINT  OVER  INPUT  REM  FOR z DIM  GO SUB  RUN  RANDOMIZE  RETURN  CLEAR <[B]/ FLASH ▙?<=7/SGN ▗[H]>=iSQR WAT S| CAT PREXP J[F]PEEK [Q]F PAUSE ▚USR x@STR$  LET ?▜p▛ RETURN E@ COPY SCREEN$  CLS R RETURN  DRAW  SAVE xINT  PRINT TTAN v OUT I FLASH SQR INT zt POKE  RETURN TAB  OUT |[B][F]m,8USR  THEN   FORMAT  CAT  OUT zEXP -sE REM v ERASE  MERGE  VERIFY RNDASN ESCREEN$  REM O PLOT  5K}PEEK SCREEN$  LLIST [N]I COPY  NEXT >=VAL [Q]` CLEAR pl OVER  BEEP  STEP CHR$ `  COPY cRDA[S][R] MOVE  COPY  CLOSE #SQR PEEK  THEN  LIST LN 0/ BRIGHT  COPY ] OVER ABS LN  PLOT   COPY  PRINT fq LIST  LLIST  FORMAT [R] RANDOMIZE B FLASH 7[G][S]▗bSQR ▟[H])s MOVE =.q[Q]| BORDER #!GH▖[B] COPY "▗ PRINT [R] LPRINT  READ ©CODE o OR  FOR &=CHR$  PAUSE  OR EwcCOS ▛ GO TO  RESTORE ©pRND DEF FN k9 RANDOMIZE [P] CLS  RUN [P]< THEN aIN  INPUT , CONTINUE  CLS xEXP ASN  OUT [N]gXGy BEEP  RUN  LOAD [F] FORMAT d CLS rACS a[F]!OABS 5)!" COPY  REM [P]z THEN ? MERGE  PAUSE STR$ ][U]v*z LET *[F]O GO SUB ur8UACS sK!}2 FLASH ) CLS Tvl IF  LIST  CIRCLE [I]N COPY  RESTORE  LINE W VERIFY  PRINT ▙_[C] BEEP /WIN y COPY ATTR  OPEN # BRIGHT  DEF FN [F] LOAD 1-9 AND :G RETURN 3 AND 8EXP Op▖t DEF FN NT4!)7 CAT <>? BEEP ,[I]1 CAT [S]Z[U]POINT x LINE ▜[H] STEP w BORDER SIN  INK NOT SGN © RANDOMIZE SIN B$[K]o[F]H@TAB UCHR$  FLASH [ATTR ATN W OVER on OUT IN POINT ABS >= AND D DRAW  IF  TO ▛.<> INK >=0 THEN  LIST ▚G?ATTR  LINE ATN  FOR ATN k BORDER [T]F& COPY _tV©%VcTAB  INVERSE  RETURN PEEK IN  PRINT ABS ^} OVER r[O]^VAL$ . CLEAR BPOINT 2g[C] FORMAT @USR  LPRINT PEEK  LIST  LET  REM A CLS [F]/[F]M CIRCLE @ POKE  IF  RETURN  INPUT [N]K+D▖UW** BORDER  AND r[F]3 THEN CODE K*^SGN y NEW  BORDER 3 COPY  COPY [P]n[F]RND MERGE  BEEP  GO SUB  PRINT  RANDOMIZE  RUN } CAT - OUT +[F]▛ LINE  MERGE +Wv>©1 RUN  COPY + FLASH [S]bACS [A]  BORDER ^@ASIN SIN <_=[G]+[F]/[I] ERASE  STEP [I][D]/^= OUT  BEEP  LINE ATTR RSGN  INK SGN SQR w CAT /▜[G]cU RETURN ▙ REM [S]LN TAN FN t RESTORE h-`[A]htCODE { IF  LET  NEXT  PRINT  BEEP  LET  PAUSE ATTR qT RESTORE INT /PEEK | FLASH  MERGE .X-g TO [N]USR  LPRINT ]K RANDOMIZE  CLS  MERGE  GO TO  CAT  VERIFY ATTR tPOINT |2K6[F]v DATA >=USR  PRINT ▝▘ PAPER  MOVE D DEF FN  OR " RESTORE e PRINT  LOAD u NEXT  FOR  THEN  MERGE  FOR ASN uZ CLS ATN [I]qvb DIM  RUN  PLOT   GO SUB  PAPER  CLOSE #FN  DRAW g TO vp'gC RETURN SIN gPOINT  LPRINT / CONTINUE  POKE  RUN  GO TO  READ  COPY 8 DATA  LLIST  INPUT  CONTINUE  VERIFY  NEW V OPEN # BRIGHT  READ ^▘x] COPY  STOP / AND CHR$  DRAW W MOVE o DATA DASN ,. PAUSE ow RUN  IF  CLEAR CODE j<>t DRAW  CLS  PLOT  - RANDOMIZE  MERGE %CR▘ RANDOMIZE  VERIFY  T,XTVAL p`} FLASH H MERGE [C] LOAD ,SCREEN$ q FORMAT  THEN d[R] FORMAT  CONTINUE LN  BRIGHT  RANDOMIZE VAL$  VERIFY  BEEP  LOAD  RUN  LOAD  COPY  BORDER a RUN  RESTORE [J] BRIGHT @/2 BRIGHT ASN [F]Uj BEEP {TAB ▟ OPEN #SQR <=`[U] STEP .raINT [G]SIN  LIST >=`▟ LET INT ▗H1<>5 OVER ▝ PLOT   LINE 5 OR  RANDOMIZE 1 LINE : COPY  CLS [F] THEN 7%*W?^ABS p COPY  LIST ` LPRINT <= CAT [E] STEP  COPY Ds`[Q]VAL  FOR 8 GO TO  LIST  POKE kTAN RSIN ] OPEN #ATN w PLOT  W INK Q DIM >=STR$ NOT  STOP  RANDOMIZE v[VAL$  CONTINUE [U](| LOAD  REM 9xZ PAUSE  READ STR$ IN  NEXT  DATA ATN [A]^UCODE 9I[F]POINT  FLASH R COPY EXP 07:$ PAUSE 9COS ? FOR  PAUSE  INK  REM [N] COPY IN W CAT COS CODE  POKE SCREEN$ u CIRCLE  FOR ATTR  BEEP 7[U]IN e5| DRAW [J][K]A%/SCREEN$ _^PEEK ABS  VERIFY }|k[P]▙<> POKE  CONTINUE [I] PRINT  PLOT   LET  RETURN }_.>=OzJS@ FORMAT  LPRINT p RANDOMIZE h PAUSE  GO SUB  IF ]CODE ©▞ CONTINUE  NEW y CLS  OPEN #3 LLIST A COPY 1?k@[P]1©` COPY ?CODE  LPRINT  BRIGHT ▝[U]R[H]ie LOAD  AND e INVERSE v AND >=[U]"[I],Z PRINT > RANDOMIZE @*ACS $ PAPER SCREEN$  SAVE [N]2NFN VSIN  PAUSE 4 NEXT  RETURN  MERGE  STOP IN USR ▘UIN RSCREEN$  PRINT  LINE IN U REM GA INPUT  DIM  COPY  BRIGHT  DEF FN  FLASH [L][H] FOR /ABS POINT D+"SIN  OR ▙ RESTORE ▜INKEY$ OVER [Q] LINE '|6[P] RUN  BORDER /_^1 RETURN [A] CLEAR ABS =yz.h RUN  THEN  PRINT %FN $%j4Jq COPY SIN q$CHR$ < RETURN CHR$  SAVE v▗ DRAW  COPY  OR ▟ INVERSE  CLEAR u CLS {SQR ] RUN  INPUT  LOAD  OUT 7o LOAD  COPY  INVERSE  PAPER ASN INT uj CLEAR  REM  MERGE {,EYvATN { NEW z$[O] CLS TAB [v READ ▜ RANDOMIZE d THEN *EXP ATTR B COPY  REM U RETURN  DRAW [T]EXP y NEXT <= RUN ?#CODE [B] CLEAR  FOR  FOR z COPY v RETURN  INVERSE  INPUT  RUN n CLS ATN SIN  INK  CIRCLE  FOR  GO TO  PLOT  WN▘[U]TAN aEXP  FOR  BORDER INT [N] CAT >=CODE j^PEEK SGN }INT D8?[Q][N]R DATA  COPY : CLS  RUN  LOAD  COPY  OUT  OVER  INVERSE SIN  IF | SAVE  LIST < PRINT  LET  PLOT   CLS F}PEEK  OVER ]VAL$ . OVER W+ GO SUB *U}cm#`VAL  CIRCLE  INPUT $ GO TO lACS  CLS  RUN SQR }ABS ^/▛LN  MERGE  LOAD wPI BORDER # RANDOMIZE  NEXT D[Q] OUT IN NOT BIN v▚Tq` FORMAT PFN  INPUT m(T*?J"]PEEK PEEK ~&L LOAD  CAT  BEEP ~ATN PI[P]]<> NEXT {K NEXT ▛ BEEP +[A][G][A]FHt RANDOMIZE  CLEAR  OVER POINT * LIST p PAUSE ASN [F] DATA ▙+N PAUSE / GO TO  CAT P[R]j PRINT  COPY `>©CODE  BORDER ATTR ;xZ TO  [S]>=ATTR  |1▖ REM u LINE [P] BORDER x OUT USR _ INPUT /CODE [H] PAUSE  BEEP  FOR U PRINT  IF U RANDOMIZE  DRAW   RETURN CODE ~IN o_CODE WATTR ©<>SIN %ABS  TO [M][T]COS /[N] OVER a^B©[S][R] MOVE  DIM  COPY  REM  GO SUB  PRINT  NEXT ©CODE h[A]` DATA =UU?U© COPY  CLEAR NSGN s~LN a DEF FN [A] RANDOMIZE [E]ILEN :PEEK + CLEAR [B] COPY  FOR U LPRINT  COPY  IF  STOP  PAUSE 6 RESTORE CODE  OR >=[P][A][K]5INT ? COPY KUSR + PAUSE k BEEP WCODE W2[H]FN ©FN IN _SCREEN$ /[H]▛^ THEN  RESTORE  STOP © PAUSE r LET qEXP ©XLN {/AT SQR  RANDOMIZE ▗p#x{z IF  COPY z{^zyU{© READ %[B] DATA [J] BRIGHT U SAVE  LLIST  THEN SCREEN$  FORMAT  DATA  CONTINUE  POKE G! RETURN [L]"©[P]`?ATN [M]G REM  MERGE 9}IN  MERGE  COPY  STOP O<=[A] COPY |▚▛E DEF FN / FOR _COS /; COPY  LOAD  RUN  CLEAR  CLS  PAUSE [S]~}FN ABS ]W^=A LLIST  RESTORE  IF PEEK b>PEEK IN  NEXT _^ BEEP PEEK SGN ATTR |z RANDOMIZE j PRINT  GO SUB  MERGE  MERGE RND[S]A©p[F]ABS [H] @SCREEN$ Z 5* PRINT ;?yN▘zCODE  REM LEN TAN fig BEEP  LINE  OR  DEF FN  OPEN # ERASE  GO SUB r©/s[U] SAVE AT  DEF FN C0[B]R_K COPY 8 DRAW ABS IN [D] RUN  SAVE ! COPY  PAUSE ^K! CONTINUE  BEEP  OUT ABS  VERIFY SIN ASN [U][S] LOAD J INVERSE HDB PLOT  ▘▖▘ FOR ▝ BORDER A[C][S] MERGE  CLOSE #SCREEN$ B LOAD ▝! LOAD (▖[E] OVER USR EXP ? COPY ?IN  BRIGHT  PRINT ABS }| COPY  LLIST COS  IF  RANDOMIZE  SAVE  CLS vATN ©PEEK ]" DRAW ▟[G]>=7<><IN ^PEEK | DRAW >=▖ CLEAR  PLOT   CLEAR <> CAT /-: PRINT ©:[C] RANDOMIZE [C] CLEAR  GO TO /[J] POKE [P][H] PAUSE  LIST NOT s© RETURN  RETURN  RANDOMIZE  PLOT   CONTINUE  FORMAT [Q]D COPY  INVERSE ABS USR p[M] NEW  CLS  CLEAR  DRAW  RETURN q([A]S IF  POKE >= DIM  OPEN #PIO[P]>}©SCREEN$  STEP  NEW  DATA RFN [H]R*[Q]T RANDOMIZE [Q]QP IF ©PI'/ CLS  TO d{?▛ TO 1a@ SAVE  INPUT  DATA  READ '%" RETURN  LET g[P]s[H] RETURN  CLEAR  CAT  DRAW IN  AND C© NEW  NEXT [T]#U!"[P]@8:1 RESTORE a
  50055 READ  DRAW ASN  COPY  OR : LINE  STEP  CLEAR  RETURN t COPY f RESTORE { BORDER  DEF FN < SAVE  POKE  COPY  CONTINUE  MOVE  DIM  ERASE RND© THEN ATTR [H]o[P] CLS | NEXT  TO 0STR$ IN [K]▖ DIM ▞ [B]FN $ DRAW ▝STR$ a©VAL [I]x<}▚ INPUT  VERIFY  DATA VVAL$ F▚ CLEAR %miA ERASE ! COPY [D] THEN >( 8/ PAUSE [J] INPUT >=[H] RANDOMIZE >=[A]▛ LIST  LPRINT USR jP[Q] CLEAR  FORMAT [Q]@ PAUSE [D]Z@[Q] OVER L0@ MOVE [C]H THEN  LIST N©[G][L]USR  0[I]CODE ▖▛[H] IF W/ RUN B,- TO IN  OUT  INPUT _[O]x©T STEP [G] RETURN  PAUSE e#D[C]H@$y*" PAPER  ERASE [C]QIAT )[U]SCREEN$ [E]RUJ+K*?IN =[{_? COPY Gdu+3 RETURN 7 BORDER VAL$ V RETURN  DRAW  COPY V6>CODE z OUT Hi  NEW <ATN 83@ COPY USR XY▗▗ COPY USR S" LOAD x?">=6"?_ NEXT !3#9SIN  LIST ▖©▖H©ATAB IJ▖+SCREEN$  RETURN SQR ATTR ABS SCREEN$ ATN  RETURN  CLEAR CODE  LOAD IN  CLEAR  OUT SCREEN$ $I/VAL c CAT  PAUSE [P] IF [D] PRINT  LINE  OUT ACS  FLASH  REM  INVERSE rUSR IN  COPY  PAUSE CHR$  RETURN  SAVE  COPY  READ  SAVE  BORDER  RANDOMIZE qrSQR ▗Q▖NOT ▛USR [F][M] BRIGHT USR <©[E]BIN l STOP $[U]d DEF FN  CLEAR ([S]*"rSCREEN$  INVERSE <= DRAW  STOP INT [U] LPRINT  LIST  SAVE  DRAW  RETURN # COPY  COPY , READ  COPY ▖[A]▝ IF [A][C][E] %I©JR MERGE T,ASN RNDATTR INT k COPY  OUT  PRINT rUSCREEN$  FLASH WSGN  LPRINT  LIST  COPY  RETURN  NEXT ©s~ATN  COPY  RETURN  GO SUB  DATA [B]3* DATA  CLS  RUN  NEXT 0[T]©m COPY ![A] LPRINT  LLIST <>▞▖ RANDOMIZE USR  LPRINT ▛lD INPUT J*SCREEN$  INPUT  COPY  RANDOMIZE " PLOT  ACS "G FOR  COPY ©ATTR <[B] CAT  BORDER  RUN _A6? CAT 7 RETURN !#_[B]!%A DRAW QC[F][R]ATTR )SU COPY  MERGE ATTR  COPY r PRINT  COPY ACS ATTR UIN  LLIST  CLEAR  COPY  CLS  MERGE +[F] THEN  RESTORE  BORDER  COPY COS s{YEXP ABS ] LOAD © INVERSE IN wATTR PEEK -@l OUT  FLASH CODE  GO SUB  BEEP  FOR  COPY  PLOT  _ OUT IN  PRINT  COPY 3  LLIST  MOVE kQ MOVE TAB  LLIST _ LPRINT [Q]Y @ COPY &VAL$ [S] RETURN ▗ RANDOMIZE  DEF FN D COPY [A]9%[A] COPY wp  [Q] RETURN >=© COPY ?©5 COPY }/ PAUSE  LIST u COPY  INVERSE ▞R'4VAL VAL  R9COS ABS `RdCHR$ ▖p@c=▘pQZ[Q]▜PILN LN tf!-BIN [M][A]xU▘LEN CpHEXP 6r@ CIRCLE xY[Q]USR  SAVE USR /d20 BORDER  LLIST [I]+<=0w2+p LOAD pa[Q][B]U  LLIST h0 MOVE  READ USR =▘h@[J]@!h]ChCODE [R]NOT hX GO TO STR$ plCHR$ PI0SGN HX CLOSE #7▖pUi LPRINT x>=@>=sHINKEY$ STOP ▚@l[I]g▖LH>=@RNDrATTR  READ ▘ SAVE x CONTINUE # pT©:STR$  PAUSE xLEN X@ REM  SAVE `)P READ -[R]qp?©0 LOAD p@[H] LPRINT hH^PI©CODE ][K]5rLEN 6▝ AND RbI ATN R PAPER x[A][A][A] ,m▛k!VAL$ ABS ! PLOT  > GO SUB FN  STEP ^8 RANDOMIZE  STEP ^8; STEP ^85 STEP ^8] STEP ^8& STEP ^8 STEP ^8 STEP ^ GO SUB LN  THEN  STEP  POKE ] GO SUB FN  OR UU' STEP ^ CIRCLE  OR PI INVERSE a THEN QH( STEP ^ INVERSE % INVERSE . STEP   PRINT  GO SUB CINT ] READ  RESTORE bkSTR$  GO SUB LN  LLIST z] OR ATN  RESTORE bk GO SUB FN  LLIST <> STEP ^0 IF  INVERSE i CLOSE #^ THEN  THEN  CIRCLE  INVERSE -  POKE <>▜USR ~+<> NEXT  FORMAT  DATA PIX>wbHrSIN `~/w DRAW !6_+ OUT NOT AT :QIN  GO SUB Y PAUSE  RETURN G^▛XHuABS  RESTORE  OR ~▜[P] DRAW  BEEP 88 GO SUB o STEP  COPY STR$ >STR$ LEN  LLIST # REM ?w[T]`3H PRINT . NEXT 6ACS YCHR$  RANDOMIZE ▙0~ASN og2^" POKE  PAPER ! NEXT _xQ>NOT ~Q<P MOVE 1{2RND DEF FN #CODE Zq><>nIN ASN 2:USR ! DRAW ^> CLOSE # STEP VAL$  INK  LIST [Q]> SAVE 0NOT /c[G]V CAT  INPUT 28^ INPUT @w> COPY =w, LIST   REM <>5 LPRINT LEN NOT _ RANDOMIZE  OUT  MERGE [M]▜o& COPY vnACS LN vf SAVE &Yk6p MOVE  LLIST  CIRCLE  BEEP H~m[L] GO SUB # OR 'R RESTORE N>=G[D]'TAB DFN BIN [M]@%81uf▛SIN [Q]VAL [T]vesn2▝SUnl?9ed t PRINT i LET rr3XIVmunity, easy:" e9 .A FORMAT _4pSart READ  game OUT ) 128K 5. Enable all! |CHXOF CLOSE #No[Q]Ye NEXT  INK  INPUT @[E]USR  COPY y@ STOP USR  RETURN G STEP b`!p` LIST  READ  GO SUB VAL YUSR & DRAW  RETURN USR 1 LIST D NEXT  INVERSE 2▜<[Q]'TAN ]2#DGOKMzmgo? SAVE INT  LINE  IF SCREEN$ [M] REM m▙ PAPER ~ RETURN  INVERSE ' CLEAR [M]▘ SAVE <> PAUSE ; READ $[I]pv<A▝ OVER  PLOT  ▘m[G]9 RANDOMIZE /IN ▗b" RUN g&ACS ezAATTR  BRIGHT CODE ZVAL Y RETURN PEEK vs}w COPY ABS  PRINT  FORMAT b[A]IN  RANDOMIZE _▞[R]R▙ CLOSE #[H]8POINT  DIM  FOR  FLASH vz PAUSE  CLOSE # COPY >= THEN 60 DEF FN 8h▞ CLS ▖ CLEAR  SAVE Z THEN [B]LN s BORDER q AND [L]Z CLS YACS : FOR x▗BVAL$ t PAPER bINKEY$^ THEN q=7?=x) CLS  CAT oo DRAW N DEF FN  IF [C]Z~N LLIST ! LPRINT ` DRAW 8@X+PEEK ▖BIN  CIRCLE  LLIST STR$ EXP ? FORMAT HATN NOT  COPY ; COPY BATTR IN ap INPUT [S]/ BRIGHT H FORMAT  LPRINT 0▙^9SGN  CLS [M]▗5H[B]?gt OVER [D]?@▙▞[B]ATTR SCREEN$ /5 CLEAR `pXL&= RUN SGN ix SAVE :CODE  COPY NOT 4[C]Sl[A]COS  CLS ly LLIST  THEN  MERGE  FOR  COPY  CIRCLE  LIST 7 GO TO [C]c▚BIN  DIM  LET x[T]+ CLEAR ~FN VAL 26 NEXT 4. REM  FOR w INVERSE  OVER [M] THEN w▚F▜ CLS  COPY >c▟qf[I]) IF @ PLOT   LINE /[D]a OPEN #* PRINT [C][H][M]'" AND :ATN z7 NEXT  LOAD TFN  GO SUB  RUN  READ  BEEP nb PLOT   LOAD  CLEAR [N]~ DEF FN IN nl[B]H4$d>=[A][Q]WATTR TAB O)[G]8ATN  SAVE !Z<*b FOR CODE n[U] SAVE xSTR$ ▚ LINE [P] RETURN <[I][A]USR P2va OPEN #[N] CONTINUE >LTAN 4ou CONTINUE  CLS  DEF FN ▗ COPY  INPUT  LPRINT p TO (3[Q]4 RESTORE   CAT  LPRINT w2© SAVE [N]r▙%C GO TO  BRIGHT 8SQR USR  GO SUB [R]N▚[K]a[G]:L PAPER  PRINT ABS [J]kwywBxX DEF FN lLf LOAD li[J]yUSR  CIRCLE VAL  GO SUB [E]; OR ▛CHR$ G LIST  LPRINT | FLASH 8INKEY$ RANDOMIZE  CAT ~y▗= LIST L▘ PLOT  ATN 3 DRAW 12ASN CODE RNDCa ERASE .FG▙[P] DRAW ATN [K] CAT  VERIFY © PRINT 64l NEW  CIRCLE  POKE  PAPER {nASN K CLEAR EXP O|[T] DRAW  LET [L]RNDqSGN pVAL$ © POKE  BORDER [D]0q=/ PLOT   CIRCLE  DEF FN SCREEN$  INK [T]USR  FORMAT SIN SQR lSGN Ph RANDOMIZE axgQcS/ DRAW s -▚3k PLOT  CODE  MERGE  LIST  BORDER  LIST ©AT [A]▖<=[T] OPEN # FOR © OVER ▟[K]-Z COPY  CLOSE #Pg  PRINT  NEW 1jf STEP >=▖/[U]DVAL$ [M] LET 9;>0 SAVE BIN  DATA ly STEP 0 ERASE ",? CLOSE # CLOSE #i[U]COS  LOAD [H]J▞▖▛TAN /[O]_CODE  CLEAR  COPY  CLEAR  LIST DSGN l DRAW Tx IF  OR XtINT tz©VAL$  ERASE [S] OPEN #[T] DRAW DUSR  ERASE #= VERIFY q!xA[P]nS▘!> POKE U!iVTAB  OUT  POKE q SAVE _'3(4:=© CAT i LET  BORDER  BORDER g/=XVoq OR  CIRCLE p>= DATA 2[C]v/} POKE BIN [S]BINKEY$Z PLOT  tDVAL x▖0'>= RUN PEEK  LET [P]I INPUT Fg PLOT  )n INK , NEXT CODE *e CIRCLE ▚^ASN YNOT  RESTORE ©SCREEN$ 8 INVERSE R?© NEW ~=^ LOAD  COPY NOT [N] COPY VAL pACS VAL P▖N<>jIN © FOR CVAL$ y BORDER  PAPER TAN z POKE z}: POKE D`[A]hXa/OcP0(!#PI~TTAN  MERGE 6UACS ©SQR B<e_[T] GO SUB g CLEAR  IF ASN  FLASH :/[P] RANDOMIZE ZABS 6VAL [H](8INT } NEXT  COPY [I]USR 0▖} BORDER  OR  TO ([K]NINKEY$ CLS VAT  BORDER SIN V LPRINT  CLOSE #XAT T REM rIN R ERASE X RETURN  SAVE SQR  MERGE `X▘[E]3%7q THEN  CLEAR 8EXP Q/> RETURN u THEN  AND ▜▙ RETURN  CLS  CLEAR  FOR ASN  RANDOMIZE  MERGE i COPY pUSR  ▝`[I][Q]sIN [A]FN [T]H[R]▖LN ▛SIN t  PRINT CVAL  LLIST COS  RETURN [Q]7[T] ERASE E RESTORE ▞ RETURN 1?>~ NEW [P]M NEXT 4(u RETURN ▜[P] ERASE  LLIST  DIM  LET  CLEAR  CLOSE # MERGE fUSR M DIM 0Xn RETURN @ CLOSE #kP(▞LAT BIN  BRIGHT TAN  POKE  DATA >=(?aVAL$ [C] RUN  CAT USR 2iQ[R] OPEN #PI OUT AT  CIRCLE |z< DRAW @zLIN L  LIST ▙GINKEY$W©u COPY PEEK @K LIST  CLEAR ▖ RUN >=[T]hY▘[A]VAL$  LIST + PLOT   CIRCLE  FOR 3 GO SUB ABS u TO AT  OR  CAT CODE  OUT o] DEF FN W# INVERSE ▟0Th LOAD u▛ DRAW  RANDOMIZE  IF :=~ COPY  COPY  FOR  PRINT  REM  CLOSE #SCREEN$  CLOSE # COPY z^Q  LIST R1) LIST  COPY  CAT CHR$ ▘dA PAUSE _LN ▚ OR ▚SQR USCREEN$ e6ATTR gSQR uCOS uIN  REM Q"ePEEK  CLEAR  LPRINT 1t[M]▙LEN 9NOT s CIRCLE  NEW bL6[I]INT ▞ READ VAL W[M]ATTR [R]]o- CLS ▗l LIST VAL$ 1TAN  REM .PEEK *%+GxLEN &CODE [H]~ DATA V▙. PAUSE ©▗ RETURN ^ASN .``[O]VAL$  DRAW AT  SAVE ,X LPRINT  PAUSE  SAVE  LLIST ( DRAW y"l1© BEEP [S][F]SIN 2Q:_:}INT {INT  POKE X9WVAL Cja BORDER [C]gJpVAL  OVER ` THEN <,TAB p OPEN #d&V INK [A]PEEK  LOAD ATTR LEN 2NeLEN Q* STOP :bINT Yq}SGN >= PRINT ATN uLN q[C] COPY # LIST  CLEAR * LPRINT ▚USR ,TM.POINT [I].[C]LEN  FLASH ^zu:M[I] DRAW  LET G FORMAT ! POKE <> LIST  LINE USR ▚ DRAW  LPRINT  RUN *>t LLIST  PAPER u[L]&gTLLEN !x[M]HINKEY$ SAVE BIN 1 LET pQFN t RETURN [Q]U INPUT  CLEAR  COPY ,`K READ ATN  PLOT   INK  LET #eINT ?<USR SQR  THEN COS ;EVAL ATTR  BEEP [U]QSCREEN$  MERGE  CLEAR *3 CAT  RANDOMIZE -VCODE  DRAW  DRAW PISGN  IF  DATA ▗ DRAW = CLEAR  FORMAT  DEF FN D>=<*WCODE _>/,PEEK [H]CODE  COPY FJINKEY$@ LIST fPI▗yFK5=▛<=CHR$ J▚<>[A]CODE ©PEEK s[O] LLIST FN  RESTORE ! REM  CIRCLE  RANDOMIZE  LIST )STR$ VAL xLN X©CHR$ VAL$ VN LLIST NOT [F]▛ TO UWK▚/'?1E▛[F] COPY  SAVE  CLEAR  LIST $ LPRINT  CLS USR  POKE }& LINE  IF [D][P] POKE EXP [G]▝CHR$ b PLOT  ▖[S] PLOT   BEEP "% STOP b TO  BORDER ;W;[M]:ATN W LINE  RESTORE b LET  PAUSE <>▖▗@ OUT 8 GO TO  CLS  LIST x SAVE xSGN /.W?5K[F]SCREEN$ (k-0X-ACS Kbv5b LET Ne>STR$ VAL$ rPEEK jCHR$ g IF  FLASH NOT  READ  PLOT   OUT  COPY  RUN A▞C COPY  BORDER  RETURN [L]<=cnC[T]INKEY$AT l CIRCLE  CONTINUE >= COPY  RUN +USR  LPRINT  CLOSE #[Q] RUN BIN  S{lb CLS %R THEN /0▘*7+VlVo]▙?/t CIRCLE  DATA  LOAD ~?E[L][G] ERASE  CONTINUE [T]bFN TAN 4:j IF  IF v[O]< PRINT r LPRINT  SAVE 1USR bCHR$ ▘▚▗O<$ CIRCLE 4kyqG:E[M]8YN=+5<ySGN _+$"!qh POKE  IF _ RUN  READ  NEW  THEN  VERIFY  COPY V2[I]2SE TO  LPRINT 0 CONTINUE p2b MOVE  DIM  MOVE  FOR  DRAW SGN N▙O LIST  GO SUB ▘1TAB ` GO TO [K] LLIST  RANDOMIZE lINT ;e ERASE [S]CHR$ [S]NOT [S]CmWgW+ DRAW ?<CHR$ QCODE  FLASH IN UCHR$ [O]NOT  RETURN LEN A# INPUT ATTR [R] POKE  CONTINUE  COPY Qz▗▟INT 2v[G]STR$ STR$ [Q] LPRINT ▙]g VERIFY  CLEAR 5 ERASE I>= DEF FN p$'CEs}?o COPY ecQd▘*VSGN L CONTINUE [A]c▜MEXP  CLEAR  MOVE  ERASE "pd[M]▗ OR >=? CLEAR Z$[Q]USR 8 DRAW Mp▝1I( DEF FN ( LET  FORMAT ULN USR  PLOT   SAVE [A] LPRINT  GO TO  STEP  REM  BRIGHT  BORDER  LLIST p OVER 8NOT 8 READ [B] CIRCLE VAL XCODE  VERIFY ▖ -XUSR  P CLS Gh CIRCLE FN  FORMAT  LET ` COPY ▛OSQR  DEF FN a CLOSE # PAUSE ! AND  LOAD { COPY  LOAD [B]A BRIGHT #9!":*TBIN AU+" CLEAR  BRIGHT ▖0 AND 9 IF [O]g▜▘CHR$  SAVE  INK [L][U] LET  FLASH  LIST tos OVER A[I] LLIST  OVER 3 IF  OR O;LEK{j RUN ACS  DRAW  STOP W READ ©CHR$ I▝ OR  INVERSE W▘CHR$ <=H RANDOMIZE  COPY BIN 3SGN  CLOSE #VAL [K] BRIGHT  NEXT  FOR [G]IN [T]USR P* CLS Q>[N] MOVE y CAT [G]▜▙IN TN LET  CLEAR [P][P]LEN  OR /n LPRINT  LLIST )X= CAT  CAT 8STR$ INT |(@ OUT ABS ▞SGN f▞k7▜VAL$ ^]ABS X %AT EFf LIST [T]`VAL$ e(Ha LPRINT R[G]ABS   MERGE L[U]▜]/SCREEN$  AND }Qg=`/ PRINT [S]j TO P STEP ~ CIRCLE P[H]`A[A]j NEW INT /D▘▗PEEK [A]USR WNOT [B]Z8dSIN ,7AT  GO TO NOT D>9 INK P| CIRCLE STR$ 9SIN +`VAL  BORDER rCHR$ AT [A] PLOT  t(K0*k[M] PRINT -m LIST X[S]LMBIN [N] REM   LLIST ,B(▖e DIM (/ LLIST _PSGN Y*9tYw|[B] LINE  LINE [G]*n~Q|[G]SCREEN$ L2Rl STOP JD5▜HiOSIN l!Q GO SUB [U]j LIST SH[E]gATN Gg>>HN▖AJ>5 THEN  LLIST 9VAL a$8 DRAW [R]pNOT H▟ACS J[E][K]J▝urR[E]'[C]exsRRe#=q.D0&Cd[M] CIRCLE {.%8 TO  LINE [S]./▚SCREEN$ SIN [C]Rh[E]9▞{ LPRINT !=] LLIST H LPRINT ![H]=E"B STOP ATN ▙CHR$ NOT a{R LLIST @bA LLIST ▛[U]ASN  RESTORE [A][E][?^'1 BRIGHT BZ LLIST `Rn9vDj#[Q]IATN 5wrZ[B]©VPI)n CLEAR USR B▖]4q+5U▛[S]u$n%) LLIST @[E]3[Q][D]1SIN $z IF cuT: LET Y6S_ BEEP VAL USR / THEN ▟ LLIST *(AL OPEN #SCREEN$  INK  LET "8B PAUSE q8 MOVE ` STOP FN (&[Q]ATTR [E] REM  REM VqFJ8C STOP V CONTINUE  CLOSE #T(0(huBVhiNqOph SAVE  PAUSE V DRAW  LIST v[Q]▙▞SCREEN$ 7USR FN  LIST ▗3;[U]'3r DIM Zi08 BRIGHT  COPY SIN SQR ? RANDOMIZE AT VAL [C] RUN © DIM .l STEP 6STR$  LLIST [G]▞ MOVE  LLIST [B]*▜ ERASE kr FORMAT USR $ CAT  STEP  LINE  THEN [C])sBIN <o[M]EXP b, CONTINUE ~ NEXT !8?_ BRIGHT  FLASH J*SGN ATTR _Wb COPY [Q]P GO SUB PCODE ©IN  LOAD PI$BIN  NEXT >= DRAW  LLIST 0B COPY  LIST  RESTORE  REM  BEEP  CIRCLE  PAPER  INVERSE  COPY y?EXP IN  INK  OUT  RANDOMIZE NOT ▘NOT  RETURN k POKE  LPRINT  SAVE /VAL$  LIST _[F]^ COPY xCHR$ mQ8x GO SUB n FOR i RANDOMIZE L5f RESTORE INKEY$RND RANDOMIZE STR$ [R]@CODE  CLS /[F]K THEN ~ CLEAR VAL Z~ IF } TO  RETURN ▖/[F] OUT  IF >= CLEAR [F]0EXP  INK  RANDOMIZE ▙ INVERSE <▘ LOAD  LIST iBIN [G] LET [D] BEEP  LIST >=P LET hXF|``[A] CONTINUE  POKE  IF  CLEAR ©p[A]mXT CLEAR  RETURN  RUN  GO TO  IF ]F REM oXj[B]WPEEK u`>[L]o7]USR BIN  MERGE  CLS  MOVE [Q]IN _Oo LOAD  CAT [P] OUT  LOAD  PRINT IN { PLOT   PRINT CODE  FOR  STOP ! PAPER 3[A] MOVE `VAL  LLIST  LLIST IN  LIST _ ERASE CODE  CLEAR  INPUT  REM IN ▞*: IF  PRINT 4/FN  PAUSE  THEN ./LN q STOP  OR ATTR  BEEP CODE  INVERSE EXP  LET  READ  OR ▛p RETURN  CLOSE #.▛▛C] CLEAR CODE  TO [P]; FORMAT UVAL OG LOAD "/[I]Z:▗j COPY  INK  LPRINT [Q]USR ▘[K][F]NOT  >= CAT USR IN  STOP CY9 RANDOMIZE z MERGE SCREEN$  CONTINUE H0> DRAW ryGfCHR$ ▝` RUN N DATA /5 DATA  RETURN CODE INKEY$ LPRINT  FORMAT  REM  STOP  MERGE ATTR CODE  PAUSE EAT [S]A: CIRCLE NBIN SCREEN$ IN COS  BORDER  READ  RANDOMIZE  LLIST  LOAD  OR [P] AND  OUT A^INT [I]ATTR w<= GO TO  LPRINT FN VAL  CIRCLE SGN  OVER ©xVAL$ /ATTR WSCREEN$ ▟<=FN  CONTINUE  CLOSE # IF  COPY @[A] LPRINT BIN  REM  COPY  THEN /[P]O SAVE  PRINT (7 BORDER  AND ( COPY / READ (1PIE SAVE  VERIFY Q▖NOT TOUFN  OR Q[S]O*8 DIM  LET ▖ RETURN a▘COS  AND ▛▞_ COPY ?©=[K] MERGE  IF  BORDER 7>xl<jJQ'[R][E]<S~"f CONTINUE ~ DIM 3~$VAL [Q][C] FORMAT  CONTINUE IN _ IF iq[P] CAT gCOS Y RETURN )SIN [A]H▗ INPUT B<AT ^08<>> CONTINUE  RANDOMIZE  LOAD <=A BORDER - OUT  CLS NOT  BORDER  COPY O FOR $ RUN  LOAD [J] MERGE ▙u' COPY .K▗ STEP IN USR d BORDER SIN  POKE ku[I]d[O]aATN [P] STEP  READ [K].oT POKE  STEP k|[Q]3▗ STEP LEN J[M]!,[_[L]} SAVE /FN  STEP  POKE [O]! LOAD  RETURN ▖"S[Q][H]&USR [L][K] LPRINT  NEW ▛[L]R@ CONTINUE NOT / NEW ▛ GO SUB S| INK IN NOT L! POKE ac▜▙!$_ PAUSE ! POKE NOT ▛[H]* POKE [L] STEP [O]:SCREEN$ [ATN BIN f!5 COPY "j AND ▞<[N]▖ LPRINT 2[$ POKE a INPUT 4▙▗POINT ^9N<EXP  LINE Os RESTORE  LIST  OPEN #/RND!^▘ CLOSE #©[K]CHR$ [D]G!9  MERGE  SAVE PI9) BRIGHT ASN CCODE ▗▘_7& CLOSE #gCHR$ )SIN CHR$ LN ,NOT ()!AT NOT LN INKEY$ BEEP ©/1j CIRCLE  DRAW O{<p INK 6"" PAPER  POKE  PAPER 0n FLASH *2p1 POKE  OR N*AACS STR$  AND <>.[R]2STR$ iSIN 0 SAVE STR$ LN  LLIST  LINE DFN  DEF FN  SAVE  STOP  MERGE  POKE ({r CLOSE #VAL$  CAT 0"BIN  VERIFY ! RETURN 4O02FN <= COPY  FORMAT [G]gl<>@ CLEAR [H]#F LINE  PLOT  PI[K]0 CLOSE # MOVE _ PAPER 0"! IF  THEN ©[Q]%."[O]STR$  TO INT  ERASE >` STEP }2[U] OPEN #/" DEF FN  RETURN F OPEN #?|} OPEN # CIRCLE "6 THEN  LLIST eLN rxINT jNxr[F]k▛c REM POINT +STR$ WVLEN  CIRCLE [Q]▘ TO  CONTINUE - CIRCLE xmq▙! LIST  THEN IN [S]NOT "vPEEK  OPEN # SAVE  SAVE  STEP a!T▙ DEF FN  CLOSE #- DEF FN hzSTR$  LPRINT a INK H FORMAT USR [A] PAPER USR 6<=SGN NOT  FLASH [Q]BSTR$ q OR [O] BRIGHT >6= LINE  <>G&ySIN '0▘b LOAD 4n STOP 0 FORMAT xT OPEN #-[O] MOVE 1Z ERASE  CLOSE #)!: CLOSE #VAL$  CLOSE # LIST  CLOSE #0| MERGE  PAUSE -", FORMAT IN EXP  CIRCLE  DEF FN  AND a#0<=~c1NOT INT <=[P]d BRIGHT p>=|cLEN >=NOT '; TO  CLOSE #|d MOVE +1. MERGE !^ ERASE " AND  MERGE 5!L VERIFY 0( BEEP ," GO TO >=[F]PEEK VAL <> LPRINT &VAL$  DIM [T][A]^d[E][M]h TO  BORDER  INK zINT  STEP ONOT ,STR$ b THEN  LET ▜ OR /ACS  OR SIN  RUN ▚ CLOSE #▛| THEN  DATA X[O] LET !Az?'l[H] TO VAL [I]▞8Tc▟Ph LPRINT LEN IN A[H]ABS a4 DEF FN 8USATN FN +zU DRAW  RETURN PEEK ▗<[M]BIN INT I9▝U▝AQSTR$ STR$ CVAL$  IF  PLOT  ` CLEAR [A] FORMAT `@[J]▖ LIST R DRAW ,ABS  LOAD  LINE ir>}©z DEF FN  OPEN #5>6USR  OR AT ( ~ CLOSE #[I]2^O SAVE z MOVE bfxH GO SUB [H]Y{ IF VAL ] LLIST USR 0 RETURN  CLEAR   STR$ ▘V9, LET ©[U]n DRAW  CONTINUE  PLOT  ?y@Ik~ CLEAR 2[I]`r OVER  THEN  LPRINT PSIN [J]; FOR o`rp FORMAT }^,` LLIST  REM  CLEAR u GO TO x_.[N]ekDP OUT 9 PRINT | CONTINUE T[R]BE RETURN ▟MBIN VAL TAN J AND  BORDER [U] DEF FN  CLOSE #PACS ▛VAL$ FN !k REM  THEN A▜ LLIST 5| RETURN  CAT BIN / TO 8 CLEAR $gD>= CIRCLE ▖AVAL CODE [E]`1)3> LET (5h|P INPUT qpS FORMAT [A] LIST =[N]VAL$ )3| LIST  RUN tSGN [ CONTINUE  LIST  CONTINUE ><t PAUSE 6[H][Q] CLS  BORDER = CLEAR  LIST STR$ X|[U]cqAT INT COS >>[N]?©LEN , TO u<: BEEP 0 LPRINT [M]y{INT VAL  LIST  LLIST G:` PRINT NOT /h INK  OPEN #-,Z/Y CLEAR #CHR$ jt GO SUB  LPRINT  DRAW [O]▖LN  SAVE VAL  FORMAT P[A] CLEAR  =`CHR$ [T]PIUX▛[.INT ?bkon DATA LN EF~SCREEN$ ▘ LPRINT hjPOINT  FLASH 1▛d PRINT  VERIFY I>=[R]g^[P][A]LG GO TO 941 ;F▗H▖PVAL 8@0d6X8@NOT  PAUSE ATTR [P]8ABS 1!SQR #h LOAD 5>© BORDER  STOP VAL$ ▘ AND  STOP  INVERSE $USR ▝ ERASE 9` READ H DEF FN [R]W& CLEAR :uX FLASH  LPRINT VAL ▖o POKE  DATA LN M BRIGHT  NEXT  PRINT <>Ajmu CLS -;KTAB <=[R]ETAB  RETURN ▝*UCODE  DRAW 8(4( LIST FN  INK +Z RETURN ▟m[K] CLS  RUN  RUN  GO SUB  GO SUB 9YLEN  LET  PAUSE  RANDOMIZE  LET  RANDOMIZE  PRINT [O]`LN QgVAL ▟FN AT [I]l STOP  OVER ▜PI[G]© OR b! AND aSATN E INK y PAUSE 25? SAVE ACS EXP  OUT ©[P] OUT  LET UCODE © LOAD kO▞qo▙[K] NEW [E]TAN  CONTINUE KMp[B] ASN ([I] CLS  RANDOMIZE P LPRINT w LOAD INT [T] INPUT <=._ LLIST g OPEN # DATA SCREEN$  REM  PRINT IN  BEEP [T]_cS©:< INVERSE [U] CLOSE #▖D[E]T1> DRAW  INVERSE [U]| GO TO [Q]LN [U]?[E] CONTINUE qs▚g DRAW  CLOSE #[E] CIRCLE i[T].L RUN VAL P8 CAT  PLOT  <> LET : CIRCLE ▖ZTAB ? BORDER ▘ READ FN p CAT  LET $[P]n▞ CLOSE #▟▘GM[K]4 IF h FORMAT sLEN <> NEW [H][N]Td3▚©IN  RUN / PLOT   LOAD | RETURN [D]6 CLS  CLEAR  RETURN &W FOR ©/ T REM  CLOSE #PEEK <COS  DATA  DRAW ▜ CIRCLE ^ SAVE  LET bCODE EIN  INPUT ATN LEN  LIST [H] AND N CLS _ STOP  VERIFY  INPUT ▛ CLEAR ABS [H]j MOVE [T] INPUT INKEY$MN LOAD  LET | CONTINUE l[O]LEN FWH/@[P]Xu MERGE ▟h#;© NEXT 4? DEF FN ! CLEAR [J]IPOINT KVAL$ |<> COPY k CLOSE # SAVE x BORDER  LIST _ LPRINT  CLS [Q] PRINT  RM[N]▟ RANDOMIZE [T]N^8[P]d; SAVE ▙ INK POINT 7G1[ OVER C[T] OPEN #o1sd DATA RND AND WATTR  NEXT  READ  OPEN #PI<=USR NOT  CIRCLE TlFN  SAVE 6 VERIFY  REM  DRAW '[A][Q]&ABS _F LINE  IF &> CIRCLE ;5 INPUT  THEN   CONTINUE  CIRCLE VR LET  DRAW  POKE  SAVE  OR <LPI/ IF  CLEAR ; COPY [G]ABS  BEEP  LPRINT EXP  BORDER GSCREEN$ w SAVE  PAUSE l LET ▙p INPUT  LET x REM }USR  RUN  CLS ▗[J] STEP Bwm▚-NOT [P]3 CAT s/<>6zvmt GO TO  RETURN  REM  FORMAT  CONTINUE  READ  CLOSE #©/>= DRAW  CONTINUE  LIST ▖▗ CLEAR <00 CLEAR `USR = LPRINT TAB EXP SCREEN$  INK oCc BEEP CODE  LET <=[R] FORMAT j© VERIFY &[L]dVAL [▖ SAVE /[C]n<= CONTINUE  BRIGHT  CLEAR /PEEK  INVERSE  INVERSE  OVER /[M]< DRAW FN  NEW k ERASE 3LLEN [R] NEW  SAVE q6-+)▜ LET >C© CONTINUE _ LET  LOAD ig LET ~=1u PRINT  RESTORE  CLS a%mRND RESTORE  DIM  READ  COPY  REM ▜H1 INVERSE  LOAD "SQR ATTR W CIRCLE  CLEAR  DATA ▜INT  FORMAT  DEF FN USR vj.3)iiuz} IF ©>pAT  STOP  CONTINUE bW[Q] GO TO {lK4 DATA  DEF FN pLN 42>p LIST /;[/p FLASH [E]ABS ▚k@gH▚ P INVERSE  INPUT ' READ  LET ;IN NOT  READ TAN Kn[O]/ TO  LIST  LPRINT x>[O]N9. LOAD -!INT IN t LLIST  CONTINUE m GO SUB ©[U]7c OPEN #SCREEN$ @©▜ IF PSCREEN$ uTAN  READ  THEN  DATA  RETURN CODE  SAVE  LIST  PRINT  RETURN :▜ PLOT  SGN  BEEP 'V DRAW 2INT  CLEAR LASN v[B][N]?-© OVER - CLEAR g FORMAT X RUN  CONTINUE [A]VAL$ _ DRAW  _'@PEEK VAL$ 2(u{[P]( VERIFY IN  DEF FN $q LET ▟▙ SAVE 8H[A]PO  POKE  !#LDSCREEN$  OUT  COPY <=* DRAW [M] COPY LEN ▖ OUT dCHR$ LN ▛▙HoA[H]VAL h CLEAR  DIM  IF  STOP 6 GO TO  DRAW  CLOSE #mSIN $SIN SQR SIN EACS 4:=? DATA % CIRCLE  DRAW }} INVERSE xHLN >= LET |INT  LOAD  OUT pFN & LPRINT [K]!Ta.^ CLEAR  STOP _© CLS  COPY  TO  NEW PI SAVE ACS >= RETURN  SAVE  LOAD Q LIST [L]8BIN 4 PLOT   CIRCLE  NEXT z`▝PEEK 4▖([E][F]= RESTORE  GO SUB ?6 INVERSE ATTR g DATA i[I]([M]h CONTINUE  FORMAT P0IN [A] USR x'INT |SCREEN$ [A]H+(/ THEN  REM }:8 PLOT   BRIGHT BIN  INK  RETURN f▞n COPY  NEW [T] BEEP  LOAD  COPY z`[A];>=h LIST  LET INT f BORDER TAB 1 READ ASN =>=2y` VERIFY  BORDER SGN >=[A]NOT PIM>COS  AND v SAVE ip GO TO & NEW ▚NUEFLN  CONTINUE CODE  FLASH ▟▖M RETURN SIN  REM Vf"3Y[E]©oaOA' LET VAL$  0 LIST  FORMAT  FOR  RETURN #▖ CAT %X CLEAR d NEXT  POKE XP` COPY [A]% LIST  OUT [D]i FORMAT [F]bQk©`JUk?| REM  PLOT   LINE  VERIFY  COPY  READ  FLASH  NEW ~ CLEAR }{{▙VAT | DRAW :@ DEF FN ='CHR$ [O] BORDER p FORMAT [J][Q]X[S]h@pH'hVAL  DRAW @~o RUN 3-F LLIST CHR$ ?IASN [L]> GO SUB .ATN ▜'ATN  DRAW UATTR _ CLS  READ [T] OPEN #[S]|USR [Q]cINKEY$e GO SUB :INT t POKE  GO TO  GO TO  BRIGHT  BRIGHT tTAN d AND  LINE  NEW BIN  DATA  CLOSE #x STR$ 0f LPRINT [I]Q[S] LOAD 5+1(4 CLS [S]~ OR SGN [U][M]BIN  IF  RUN <= CLEAR  BEEP  LOAD G7ATN w[S]0} CAT  LIST [ VERIFY CHR$  GO TO  CIRCLE  PLOT  SIN aM STOP Hl FLASH 0[P]-:|;Z DRAW }oR▞[POINT  RANDOMIZE } SAVE  COPY  READ & PLOT   BORDER   LPRINT P=USR @[Q]tpvby RANDOMIZE ~ STOP tx CLEAR p?VAL ATTR 1Sdkg CONTINUE INKEY$ AND M▞][I]<VAL$ ,[O]][H]_[I] LIST ▖,@q[A]`lX#ACS VAL An INPUT  DRAW ©? LET eT DRAW O PLOT   THEN  SAVE [G]>=VAL  COPY  &ZD8) CIRCLE  AND  GO SUB [R]t_ DIM k`bCOS AU CLEAR IN  RETURN  REM /db[R] CLEAR LEN @ AND USR LEN 2`gCrs▖ COPY  SAVE USR  NEXT  CLEAR [Q]▖▖COS [D][R] STEP  GO SUB px FORMAT 4, GO TO h BRIGHT LN  POKE  COPY PM COPY  CLEAR PEEK  DEF FN I>= DEF FN  CLEAR ▚ GO SUB dFN dACS  PAPER  CLS [S]LEN  PAUSE  CLEAR  BORDER nm OUT #ox)>1 PLOT  / CLEAR TAN  MOVE  LLIST ▘&aSQR [D]A[E] DEF FN SCREEN$ X1AT m SAVE ]VAL s[LN  STOP  FOR 'Q THEN  FORMAT ASN ~ AND NOT USR  CLEAR T_$[G][L] IF s MOVE  COPY J▗ LPRINT  BEEP  CIRCLE  FORMAT  PRINT J© RETURN {SCREEN$ c OVER ?FN _ PLOT   CLS  IF '[C] LPRINT AB1PId PAPER >w PAPER g▛H LIST  OUT  ATTR [D]0▖ GO TO BIN ▞LN  CLEAR S2POINT "nLN USR STR$  POKE )[J]jOLN FN >=[N][C] INPUT USR y/6 STEP P@SIN [D]T{a"%)O!"[IH FN ^D,CHR$ &[K] RUN [S] PAUSE 54STR$ Z▗E[N]b INVERSE |$!= CLS [N][R], MOVE Q LLIST a LET  STOP [C]BIN ,XVAL USR  CLS  OUT `[D]k'VAL w%&#EKGK7oece<~ RETURN  PAUSE  POKE x LIST 0p` LPRINT `p8[I][M] TO L8 DRAW JB[N][J]<>LEN  COPY bR8USR  PRINT USR ©i VERIFY MLN [A] LPRINT  BORDER t[F] REM ~l[N]USR [N][I] CIRCLE  VERIFY LN  LIST `<=aSTR$ [I] RANDOMIZE FN 7 DRAW { NEXT vINKEY$D8 POKE  RANDOMIZE POINT <>, THEN ATTR V[H]V[N]Z▗ LIST IN < CLEAR  LIST  SAVE  CONTINUE  LIST P FORMAT [A]4P[Q]JgX[H]LN  CIRCLE  RUN  SAVE [T]d [C] FOR  SAVE [K]H/[UASN [U]d DRAW BSTR$ CODE `"98NOT [N][M] INVERSE  RETURN ?IN ; FLASH  INPUT  OPEN #VAL  BEEP  BORDER ▞ LOAD  DEF FN  INPUT SGN /LN p LPRINT  COPY  AND  DRAW q"▘D` CIRCLE USR  IF TAT  CLEAR  CLEAR ▞e READ !X4 CLEAR zABS ©<=OSTR$ L CLS kf-USR  LIST  COPY © PAUSE e RETURN <=▘[S] MERGE n? BRIGHT bSIN IN  CIRCLE  MERGE  LOAD ovASN  IF  CLS  OR &▙W CLEAR SCREEN$ V RETURN  COPY DVAL p▟(:]IN a LPRINT  LPRINT  DRAW  RANDOMIZE  SAVE  >aUSR R*AT / CLEAR D IF nBIN bd<=[R]bSTR$ [L] CLS MGL[R]oOrnDMm OVER NoUSR lE-[A]C1fg▞ef▜ RESTORE  LLIST K$.%pLN 1 THEN VAL$ h<R LLIST ,e[S]Fad`c,0~▛jkju AND PRi$b VERIFY  OVER - CLOSE #K9 THEN $D IF %ECHR$ {[R]-@ SGN PI6▙ INK z LIST [O]t.4 CIRCLE  GO TO [I]*t FORMAT @ LLIST BU CONTINUE  LPRINT NOT STR$ [O]NOT !*p POKE ABS ▜COS   AND =<[O]d?t8U7Dwt NEXT  TO ^t,'{t RETURN ▜*t(^t CLEAR [O]U{ )~B CLEAR  S QPZ}1 PAPER {9i>Uat[S]BA NEXT  COS  RUN 64V.z|POINT 76FN 9AtSGN PI▘Zt#NOT {*}/[N]5  MERGE CHR$ {![M]▘ABS 7▚-| TO " RUN T8X INPUT POINT @2V6v COPY  LIST z LLIST ^q@[B][S]rA▟7w OR {)Ss/ STEP a LOAD S LLIST [S];[{ STOP /[H]z VERIFY SVAL FN </| SAVE ^[G]rS[G]$X[T]/COS  BEEP pRTHCF>jCODE  LLIST I!&GJ CONTINUE +/_ LINE Y INPUT  H0 CLEAR ,5H.VAL 1▖ CLOSE #YT.0a[U]▙u5/ LLIST z2[P]9RPLZUQR3 DRAW  READ  GO SUB >=a]$>: CONTINUE u4Y LLIST G(d[R]<K TO ▗5[A]R(u▘(4©u_^5u RESTORE 0P BEEP (AT POINT  GO TO 26SCREEN$ AT e`pxUS ATTR [I]AT 8pPEEK b0-8b5▖0W▟eh)>=[R]Fq▘p▞xyb FOR  LOAD SCREEN$ WVAL$  SAVE }[Q]x LIST  INK  PAPER  TO PEEK SIN k MERGE STR$ ] READ ©▘?▖▘ DATA U ▟▝r INPUT ▝6<LEN w OR [M] LET  LLIST  IF  POKE [I]9CODE d LPRINT z▚W2 LPRINT  LET  STOP  OR  RESTORE  OR  OVER Q? TO [O]= U OR @ BRIGHT ) BL0 IF @A▘IN v FORMAT  SAVE  PAPER  POKE ?>|v[M]© COPY  CAT  READ xATTR  BEEP  LET *D3 MOVE <=[U]SIN  CONTINUE 9jUSR n9g FORMAT [J]6USR o GO TO  COPY pKo=▟ LET  PAUSE _6[M]:X MOVE ▜ASN INT CODE NOT Y PAUSE ▞ RESTORE  THEN BIN SCREEN$  BORDER  CLEAR PEEK  PAPER }[K]A▖D^U} LIST E*>f©▙INT  CLEAR  INPUT ]©IN p[Q]`TAB  IF m LOAD  REM u*5SCREEN$  IF ASN C.#VAL$  SAVE P CLOSE #}ZASN k BEEP  CLS CODE 2RNDK PRINT [F]3z POKE  DIM  ERASE +W DRAW CODE _IN ©IN  RETURN [H] DRAW  SAVE  LIST  STOP  MERGE  COPY  COPY {SVAL B LLIST ▘[D]  OR ZVP[Q]USR ~r MOVE LN  ERASE [B] LLIST  FOR a▞NOT Jt8 MERGE  ERASE [A]9 DRAW COS Z:@ATTR POINT Q[R]A▝ DRAW /=:4 NEW POINT Io<>PSIN bDSTR$  PAPER  DIM  INK  MOVE  PAPER X^SGN  FLASH PI▘FN SCREEN$ A REM G▛QSCREEN$  LET }VAL$  BEEP  GO TO G OR ▜wrVAL LN _<=uhT RESTORE  CONTINUE  MOVE TAN NOT "SCREEN$ >=[H]4[P]TAN [A] CLS  PRINT NOT  READ  RESTORE NOT IN FN  RUN NOT  RANDOMIZE  NEXT  BORDER  READ  CAT  OUT  LOAD [T].© FOR <= MERGE [D]r IF ASN W REM  PRINT INT  POKE ]VAL$ wSQR  LINE ▗uINT _|Q@LN ▗[O] OR X MERGE ▝x1mUSR <=F▖ TO GVAL <C OUT IN  PLOT  AT t0▝▖<= BORDER  OUT  PAUSE ![G]INT } INPUT mwPEEK ] LIST  LPRINT USR x LLIST -7?><92 DIM <>[J])YEXP i INK  MERGE [cd_ATTR VAL$ ]INT t RETURN # AND [H]y© REM  LLIST  CLEAR ATTR SQR ▚▚[U] INPUT ?© IF  CLS STR$ NOT [R]ATN IN ?▛VAL  CLS  NEXT SQR  STOP COS [R]; MOVE [A]0 NEXT USR CODE (( LLIST [R]TF(TAN BIN ▘©*#C PLOT  G>=YX0l,ULN @aQP[S]NOT ATTR U<=[Q]E[F] VERIFY TFN A LIST KA[S] OUT TAB K LINE [G]-▛B'<>NOT  CONTINUE  READ [M]Ip BORDER G▝*▘©BIN USR SCREEN$ U LIST )0ATTR WSTR$  LPRINT  VERIFY [Q] FORMAT  OR  REM  CLEAR  COPY [Q]@"©YSQR @5;6=©EXP y RANDOMIZE  RANDOMIZE  LET  COPY SCREEN$ STR$  STOP e[H] LLIST /^ABS ?ACS 8 LPRINT  COPY SGN  LLIST  BORDER  LINE !7ATN  TO yA▘51 SAVE +▜c NEW *<=tLN  LINE 1s RESTORE p TO / OR  CLOSE #SIN ▘<=tfx SAVE SCREEN$ COS  LPRINT 1s>rSIN VAL TAN  CONTINUE -TAN xLj▜PI AND ASN [D]) LLIST 4ACS  LET g[C]ACS  OVER  BRIGHT SIN TAB  , LPRINT xZSCREEN$ ATN  LPRINT 7r DIM VAL$ <>p▚ BORDER [K]SGN  LLIST /▚USR LN  OPEN #CODE ▛qEXP SQR 1CODE &!▘INT  COPY FVAL &# POKE [A]EXP 9 LINE +)s[B]SQR  CLEAR  CLOSE #|SIN SQR <>("PI LIST  TO vFN   GO SUB  NEW RND?INKEY$PI&2`INKEY$ CLEAR "STR$ +N▜'Wyd REM ,POINT x RESTORE 8 LIST [C] DATA Q TO  ERASE i+USR  RETURN >=[M]+ IF  MOVE  OVER $STR$ ▘"▘STR$  DRAW [B] TO `CHR$ c DEF FN CHR$  RETURN  CLOSE #b INK aBIN  INK  Rp BRIGHT < PAPER H OVER  PLOT  0NOT iBIN ZNOT  FORMAT jBIN ▘?u89~[K] OPEN #Q?▟ LIST BIN STR$ NOT  LIST CHR$ p OR ▙zVAL  RUN  LINE  LLIST EXP  LINE VAL$ r AND /9[M]1WPOINT  OPEN #`T<= LIST Z OPEN # LIST 9)-"▘ AND  DRAW PEEK  PAUSE <= PAPER X>=▘ REM >=[U]X<> LPRINT "SIN *!INT <> COPY Hh FLASH  LINE - FLASH X" STOP STR$ /NOT  BRIGHT [Q] PAPER STR$ q AND ▗ INVERSE >LSCREEN$ A CIRCLE  LINE )▚USR  THEN  AND 7 GO TO ]9<]5N<EXP [M] LINE  LPRINT T REM POINT STR$ +8▜▙ CLOSE #▚© REM  PAUSE ( CLOSE #SCREEN$ -, MERGE  COPY H-[D]!L TO  LPRINT [G]ATTR +▖ STEP  DATA ATTR $ REM  STEP "2AT 0BIN AT   CLEAR  CIRCLE  DEF FN q LINE  RETURN AT  INVERSE  MOVE  SAVE [C]TAB *2 VERIFY  LINE  MERGE +1 POKE  VERIFY ![I] VERIFY ! CIRCLE 5![C] BEEP 0[U] CIRCLE  LIST RPIG9 2 RANDOMIZE (&AT  CAT (R0 FORMAT  LIST [E]VAL$ <=PI LLIST  VERIFY VAL +!t SAVE  MOVE 1VLEN |▘0 NEXT  RESTORE  IF USR NOT  RETURN ~ATTR [Q]ATN (USR [A] CLEAR ©ASN nsNOT F ERASE YCHR$  INK  LPRINT ATN [F]m[S]{v IF TUSR xASN +ACS z REM b>#[O]7&▖TAB 5 PLOT  COS 5gkUSR ! FOR  DIM NOT  CONTINUE USR ▙FN IN [Q]CHR$ X BRIGHT , STOP NOT V▘FbvLEN [P]ATN SIN  MOVE X INPUT BIN SGN  X#,LyGPOINT NOT  POKE  OR  STOP : OR @bZLEN tX©,TAB <= LLIST ▛ AND  GO SUB fhYABS 0[U]IN 4SGN K%e FORMAT &d<=aTIATN >= GO SUB 2ATTR [D] STEP ;zPEEK kSQR :T[T]NOT  DIM CODE VAL LEN  LIST bFN [U]▗3! DEF FN  CAT  READ PEEK (0< COPY  CAT X^[D]a4 THEN  DEF FN #COS  GO TO ▙ LIST  DEF FN <= CLOSE #8#INKEY$ GO SUB S] ERASE LEN Gd[T] x< THEN q|INT ▙ THEN VAL [Q]{ATTR DINT USR LN  TO a@RNDLN  TO TV▞SQR STR$ CHR$ 2 STOP [K]▜1PI[F]S▗ CLOSE # CAT WEXP  CAT USR [E] OR 2SGN  CAT  INPUT  DRAW  BRIGHT f GO SUB ▚K:<SQR  CLOSE #CHR$  POKE STR$ dTAN {[L]3#"ASN  CAT PI IF  GO SUB R5BIN n< NEW 6▗▖ PEEK > BORDER kzC* READ +"h!|ASN   PLOT  :mXS" IF _:▟STR$ INT P STEP iSTR$ : SAVE =Q LIST [D]: CIRCLE !01▚ RESTORE Z2F FORMAT  THEN ?2BIN  CAT :~TAB ▘NOT Pd:USR PI>== THEN '. CLOSE #8! CLOSE #CHR$ O THEN BIN E FORMAT  LIST  OPEN #a ERASE x CAT 2 FORMAT  TO S@ STEP CHR$ #~2 DEF FN CHR$  RETURN :ABS [L]INT  CLEAR 4ATN  CAT  MOVE  CIRCLE  2[M]NOT -?[A]B[B]]NW9 CLEAR a^[N]8 DRAW , OVER ▝ DIM No1/▚ LPRINT 9 GO TO a COPY 08 STOP [M] IF < LPRINT C COPY NOT 1 LIST  RETURN POINT c[M]>11 LET  DRAW VAL$ <= OPEN #`F FLASH 0 LET  IF  RUN W▙[K] RETURN 1▘ PLOT  S13 LIST NOT p CLOSE # CLOSE #'[P] INK  DRAW 1<>F READ EXP  BEEP STR$ [A]USR  DIM BTSIN CHR$  RUN 8PpPA▖DABS `L▜'gFN x ERASE c CONTINUE <>NOT AT t?X▝[p REM 'f:( LLIST CfLEN [U]5' LINE >= TO :▚/ RETURN ▛8 GO TO !E▜`5(0[Q] LPRINT L( INK USR STR$ ySCREEN$ k[M]dAT ▗U LINE ▘atJ AND `[G]B BORDER NOT [P] LINE iPOINT :+▛RNDe| FORMAT a[I] POKE |[Q]r BEEP xFN ATN [C])SCREEN$ >=IRNDfZ RUN  THEN .RND[H] TO NOT BL)[Q]s[Q] INK  SAVE  LIST USR [G]2 LET l89 AND 7p▛a,+ READ <>NOT  LIST [K]▝%(`)[M]>=▘r[F] SIN Kb[S]CNOT b TO X[R]J[I]ACS aC[N BORDER  AND  BORDER 5!_H▜x▛ SAVE YATTR <▙ NEXT  STEP T? FOR [Q]TAB RNDN*[I]e[R] VAL$ A▛ STEP M STEP XSTR$  IF  STEP  DIM USR [L] BORDER [M]STR$ COS bbSTR$ PIN yrB LLIST  STEP  BRIGHT  OR USR y RETURN  0 COPY ▛ AND ;![M][S]NOT U▘ DEF FN ▙s@X▝H CIRCLE pCHR$ SIN  DEF FN 0 LPRINT Q.I[I]CHR$ <> BEEP $*0!-W>$ PLOT  ` CLOSE # CAT  FLASH ▟USR  STEP STR$  IF  COPY : COPY <[T]2AT  IF [I] AND _ PLOT  *SCREEN$  AND "<= PRINT  CAT PIc" OR  CAT <> CAT  LLIST  STEP [M] POKE BIN [P] INPUT ^<= FORMAT ▘FN CHR$  STEP |NOT PEEK (STR$  STEP  IF USR !▖>= STEP SQR USR `NOT CHR$ <>I RETURN ©<> BORDER DHX FORMAT  GO TO  DEF FN l[J][T]▖[C]CHR$ P6STR$ ABS *)H MOVE [J]xhINT <=T CIRCLE  OPEN # NEXT H AND  LOAD > LLIST  LPRINT ▗ NEXT v',_!s@dq" AND CHR$ [A]u LLIST  CONTINUE [F]USR [D][Q] READ QTAN hATN @[F]$ OPEN #USR ▟[C]?;▚ OVER  BRIGHT ?[E]EXP  NEXT `CHR$ +HxRa LET BIN [B][N][M]t[U]bxxW[A] LIST  MERGE [A]dd/LEN @D[P]"!q[S] CIRCLE  8Q, LOAD  REM NOT +HLN #W| LLIST ▞IN SGN  SAVE pF LLIST  DIM ARND9xx8<0[A]POINT f2X RESTORE +[A] LET  LIST [E][E] CAT [F]BIN STR$ h>= LIST EXP  POKE 1▚ TO 8XzSQR  TO [N]LN VAL$  STR$ :STR$  FORMAT VAL SCREEN$  CLS  BORDER -O TO -2!f[F] SAVE LEN  LPRINT VAL  DATA  AND KINKEY$W/TAB  INK BIN USR  INPUT G DATA BIN P REM $STR$ ▘[C] RANDOMIZE ) FOR .mb$40S▟▚?▜B6v[L] STOP ? LLIST TAN  AND ▘B>=COS SQR  LLIST JINKEY$▘ COPY  AND CPBV GO TO  #U GO TO H IF SCREEN$ kUSR [T][C]@[R]STR$ [G]dH PAPER H'w!ACS z LINE 4[M]▗<[I][C]& CLOSE #][J]GD*d)▜ DATA s*" PAPER RD>6▜+H[F]▖Sq▞LEN [T]▗INT bK=(/[R]p@H8[O]R REM ▞bqPmS DEF FN  LPRINT  LLIST ▗[B]pP I©/▚ INVERSE )[C]W▗DY AND  PRINT Hq[G]RND2[S]LN  AND Vu [R] REM e▚N[L]G'CHR$ PJ:5Z POKE [A]?0 NEW J " STOP #$▜▜PI CONTINUE [I]ATTR Gq1qoU>=STR$ >={SCREEN$ R▝C>= PLOT  ( VERIFY AT ATTR ▙T8BRND%P,>4 DEF FN b[G]SIN $ STEP @[ RESTORE [B] PAUSE $>=+508@ FLASH ▘IN +VAL  TO (y(EJJORND<5 d<=A CLEAR PVAL$  CLS Pz,P▟PEEK ! OR INT Y▛ RETURN FN W▛ OR CHR$ }▛= OR <= STOP [A] OR ]b- COPY  LET  CLOSE #bATTR LEN Xa,?Tl INVERSE  READ  THEN  CLOSE #CODE [G] OR bjLEN VXC,0▛ PAUSE [O]& BEEP  STEP  THEN bUSR LEN ASN XATTR ,[R][I][A]▛▖E▟yfqLEN  hFN >=1 PLOT  UQE$LN DaYs NEXT 96 OR 3b0LEN -X+,(&$▛" OR  bLEN 59▛ OR bLEN X,K[M]b[H]RBIL,[E] STEP [D]STR$ CODE  DRAW NOT ABS +[M]COS 2ACS <>*NOT uy; OR N*<= CAT > STEP G RETURN F FORMAT USR (8STR$ [Q] LPRINT ▖CHR$  CAT a[R]:E FORMAT <OTAB >1xM_[H]{<L STEP S FORMAT  DRAW <>Q_' COPY  GO SUB Y}IN  GO SUB Q<> OR  NEXT  CLEAR G LINE 8x PLOT  USR > NEW ?ZFN  POKE #PO▛ PLOT   GO SUB LEN I CLS STR$ <>©fATTR [A]X[T][Q][H] INK HVAL [D]G`l/ RETURN ,[S]} DATA ▛SGN  OR PIb SAVE LEN X<3▘-[R]hzGxfWB[N][T]`FN  CLOSE #IN SCREEN$ KFN r!X' INK 1[A]e CLEAR !:/> OPEN # RETURN  NEXT NOT |CODE 2 COPY ▘ INVERSE  1 COPY ![K]ABS >` LLIST  PAUSE #1k GO SUB p▚[I]ASN <=S[R]&<@ STEP TTc▞<>[ ERASE ©g STEP [F]SQR b THEN  LET ] LINE / SAVE  OR ][G] READ [R]g- LLIST [C]/[E]MACS a LPRINT F OPEN #XSQR  LET 1[>[O]P OVER ! STOP C8ABS DW▗ COPY  POKE ▝T | DATA bi▜CHR$ |x DRAW  DEF FN  LLIST ▜G[N]9&BIN J[M]▗[M]|p LOAD  LET I| LIST LEN 7?~© OVER 'b NEW $4 LINE ▛[P]▞ BRIGHT [M]1p[I]>=B LLIST NOT 9BIN [T]BIN I[J][B] CIRCLE  SAVE [I]xh BEEP POINT [N]U$ CAT o[Q] COPY  RETURN  LIST  READ USR  OVER BIN  COPY  LIST  NEXT 2▖?p(sy1 FOR USR ,N LPRINT B LET " CONTINUE  LIST # BORDER  DEF FN [M]<$[R] PAPER  PAUSE VAL H0 SAVE  RETURN ><8LEN ▘FN  BEEP @LN  LIST  SAVE  DRAW  GO TO  INPUT  NEW  BORDER ?Q LLIST  READ  BORDER  INPUT  DRAW  SAVE  DRAW  LET XVAL K8~? SAVE LN PEEK IN 3 COPY  CONTINUE  READ  DRAW ? REM STR$ %[E] SAVE 8|SIN  LPRINT  LIST   INPUT SGN l LPRINT USR @xP COPY  MERGE c▗Y OR ^bS|4} LET C-RNDT'INKEY$AT @[T]d:S RETURN C FORMAT ▖[N][K]▙ RETURN x FORMAT [USR 0[I]▗BIN DT CLOSE #FN  FORMAT  FORMAT [Q]@ @@!+$)$'  COPY  SAVE  LIST  PAUSE  CONTINUE  POKE  LET  OR  LIST [N] RESTORE [D] NEW  OUT  CAT 'GO<=O▝FO CAT <=<>CHR$  PLOT   SAVE  LPRINT  PRINT  LPRINT  RESTORE  POKE  BORDER  POKE D RESTORE  STOP  READ  STOP B??_ LOAD o CAT CODE A&[T]cNOT # LLIST  RETURN  RETURN  CLEAR  IF  SAVE  CLS  SAVE  RANDOMIZE  SAVE USR [U]fCSTR$ USR CHR$ ? OUT #[/CODE CAT o CAT ©; DRAW  LET  REM  DATA <>USR  LINE  BORDER ▗c CONTINUE  TO  BEEP [H]SQR  COPY o/ LOAD /PI INK  FLASH [E]@BIN  LIST  LINE 8 CSCREEN$ ~ DRAW  LINE [T]▚,L?[K]:FN O ▘ RANDOMIZE d[E]" RETURN 9[A]w>w[D]Z. LIST  DATA (GC INPUT 6 INPUT ▚H[N]wL4{p@wEu[P] CONTINUE T▜ABS ▙z{GEXP JTVAL$  PAUSE  AND ▜ NEXT  LIST ~Vx MOVE :`n|CHR$ ▜VAL$ [M] RESTORE ▝'USR  LIST pxl?+ AND ~)>=▞T~n_9[M]91` OR Dv DRAW SGN  DEF FN (▗<X LIST ]8z/`hAT / LOAD ▙ STOP ▘*A4RLN {8/hjp`/ STOP W*P $▘ MERGE  MOVE cPk[T]>]kNwc]> DRAW ©▙>s[A][C] ( RETURN X LPRINT  THEN Wb`5~%h8z0▜INKEY$NJ~▜[B]H<aw0 DRAW [A]f|f)| VERIFY A NEXT ▛/ THEN INKEY$}SCREEN$ ! b1Q~ GO SUB Y[G]2~{cY INVERSE ! BORDER  RETURN  OR  MOVE *[U]S[J]]n INVERSE  READ f▗IN [O]STR$  INVERSE ? READ CODE  OPEN # RETURN {▙?©QFN C60# NEXT j▗ 9<= LPRINT COS PIVAL$ [J]"_ INPUT LN ▜|AG>< RUN l LIST  CLOSE #>=▚t MERGE [P] LET IN TAN ©{CHR$ [O]5( DATA ▚ SAVE [T]CODE T! DRAW [U]! RETURN RND LLIST [D] MOVE  GO TO vh"[I][T][S]NOT  PLOT  [D]l0`x© RESTORE  OR  RETURN ]|PEEK ▟ FORMAT # SAVE 70STR$  LLIST  NEW CODE 2 VERIFY pNOT } LET  LLIST ! AND © CIRCLE ©8USR TLN +▞D GO TO  POKE oNOT IN gASN  CLS  FOR ! INPUT  LIST [L] COPY [G] INK ©m© PLOT  ▛8L| PLOT  BIN  INPUT SGN  STEP [H]FN  CIRCLE > CIRCLE _ TO }: MERGE <=2SIN  LLIST ▗S LET <> BRIGHT  OR  PRINT  OUT vvSTR$ xLEN >[D]K[K] RETURN ?NOT (*'w#" MERGE p CLEAR F LOAD : LLIST =2 BEEP  CONTINUE pUSR ![B]o DRAW x LINE  NEXT <> INPUT jUSR >=NOT [E]p>GNOT ▜G▖~ LINE  INK ATTR ~ SAVE  OR u GO TO 8 RESTORE M( RANDOMIZE NOT Ku~ THEN y BEEP  OR  INK  FOR STR$  COPY  OUT ATTR +zSQR (~+EXP   PRINT ~LN   LET  INK NOT ATN }q+p INK * NEXT [N]} NEW  LPRINT  AND o OPEN # TO 8 DEF FN ▟?q| REM VAL 76[D]7| RANDOMIZE  LLIST  BORDER RINKEY$ LPRINT  LOAD [T]! GO TO [T]© CONTINUE ▙&3 STOP NOT F| RETURN © DRAW L RND8 PRINT <>_! CONTINUE +}TAN   CLS  GO SUB x/ NEW SQR USR K OR > IF  AND  THEN 8 IF < THEN 0 CLS !USR x7aSTR$ ~ LOAD <>NOT $ LLIST $▙DLEN [M]LEN dNq; ▚ READ m▗LEN d@XTx`d[I]X▖xxJ/▖tx/`ti[G]e CLOSE #`F LPRINT c[C]dgLN  READ D!jh FOR puLN <ZXCVASDFGQWERT1234509876POIUY?LKJH>:MNBHR.dJHL LLIST  ,*R<=8v$ LINE HDO PRINT W CIRCLE U[S]JP LET .TvBL READ bHVAL$ 1 THEN [S]BO BEEP ARDOH2SGN 1▖H3©S CLOSE #ATTR CLAIR  RETURN TAN >=SQR H4LMPSTySIN [U]PPEEK 5 RESTORE DzFI[M]K[F]CS CLEAR HkU5[I] CLOSE #GHVAL LEN AP CLOSE #[4▜+HF8@POINT CHU OUT 3 LINE <=HB@MALO RETURN NE2TPR@H LIST IG▞S1[U]▚COS G@BRACE RETURN Y 0WSIN pFN LEN TAB X[S]|[K]}>@ STOP D LIST  LPRINT . LIST  READ ,[A] INVERSE P"CHR$ ^SQR 2 SAVE ▙ STEP p[K] NEXT v▙S}1 COPY ABS PEEK SGN [K]qs[K]FW8▜V▗3 NEW  INK 62KPI▜p▙8 PLOT  6 CAT SIN IN [U]{}5  INVERSE ^O▛JIN ` DATA  3,}[A]kACS  VERIFY o0 DATA IN USR [S]q[S][L] INVERSE &▙NOT a PLOT  E! OVER  PLOT  ATN O.VAL$  RUN B* CLEAR i.FN [Q])ATN 4~MSQR 8ACS b OVER  PAUSE SGN ▜?INKEY$4-▜)ATTR w RETURN  TO uCODE  CLEAR ▖SGN [S] VERIFY ▖ CIRCLE RND DATA COS ▝:SCREEN$ ATN BIN o GO SUB ▝[F] CONTINUE "[M][Q]s[F] OR  MOVE  PLOT  BIN  OVER VAL$ STR$ ▜ INPUT  CLS s ERASE [M]p4 THEN ^_2aRNDt!|IN 2:POINT  TO p8_ACS  POKE =[P]  DIM ©SGN 8CHR$  PRINT tm PAPER ? TO  PRINT 3© POKE 4 COPY * COPY FN P DATA  RETURN  ERASE <VPOINT 'FN  AND H! RANDOMIZE INKEY$NR[B][H]w PRINT  OUT  DEF FN NOT [M].' COPY !nTAN 1_ INK !T] INK [P]▜SGN m,~ FORMAT <> PLOT  [P]wIN [L] MOVE  PRINT  FOR  INK xRHu[K] AND 1CHR$ VAL$ *+~[D]1Wt LET 8[G][I]0s>/ OR  THEN : FORMAT ▘LN  INK } OUT @▜ LPRINT  MOVE |TAN [M]>=IN  REM +FN ▟RND"u|SCREEN$ IN   RETURN  LET TAB z▜COS (?▗o::ACS ABS ( INPUT *CODE P STEP PIL8▞ FOR " POKE 7c RETURN  PAPER  DEF FN [P]] MERGE <>COS  STOP vWh LLIST CHR$  THEN O  LLIST  THEN  RETURN [F] LINE  VERIFY  IF 3▖ RANDOMIZE  ERASE 2 RETURN ` NEW POINT  INVERSE  FOR ~ABS  CIRCLE {aN▖C STEP dVAL  CLEAR N CLS  NEW  CLS >=y LET <>uk?<>X[N]%9*&PI$;VAL $<=$9C% REM !▚IN [ MERGE  INVERSE 1R[R]aNNOT f DIM  PLOT  8[B] FORMAT f ERASE U8,C0% READ  PAUSE >=▘ COPY  LINE [F]VAL$ L{FN o CIRCLE  INVERSE g DATA S 32 BRIGHT  CONTINUE [R]▗SCREEN$ ▖[L];<=s:;  PAPER _▝W1 CONTINUE TAN yW[B]_x DRAW [M]SIN g THEN VAL$ :RNDpPEEK  PRINT  CLOSE # INVERSE BIN  LET 0 OVER  STEP FN  RUN  PRINT [I] BEEP 3 RESTORE NOT *EXP  DIM Z OPEN # DIM m LLIST [M]Z THEN   GO TO o6 FORMAT  RANDOMIZE ▝<>8[ RETURN [A]INT ] RANDOMIZE ' REM [M]CHR$  IF SGN s<>wASN Mx[O]= LINE [H]! OPEN #.rCODE ▚<>SGN OINT #GL6 RESTORE xL LLIST +- RESTORE n CLEAR Yn LET  RANDOMIZE ASN ▚SQR  PAPER USR CODE  VERIFY B"-+ VERIFY y AND O COPY VAL ~ RESTORE vgo  LLIST  VERIFY ~EXP 0 RANDOMIZE }PINT 0SQR 8~#~ FORMAT  MERGE  GO SUB [wk[S]SQR Nt MOVE <> LLIST #NOT  LINE  COPY CODE @VAL =VAL$ ^▚`qe` CIRCLE q,s RANDOMIZE 7>= MERGE NOT  RETURN E CLEAR  DEF FN  RESTORE STR$ < BEEP Jn~_8rb▚ CLEAR PEEK  FORMAT q-s= CLEAR 4,,NOT +▗[A]v CLOSE #n▙7COS ` PAUSE [I]n MOVE fAT  DIM  d VERIFY w▚@:FN z▚<=rcasSIN  FOR  DIM  DEF FN N{▗ RESTORE  STEP  RUN j THEN h TO # THEN SGN  LIST $©r{LN T CLOSE # SAVE  <>_Da[B]ATTR L RUN :0[G] TO ATTR 2TAN |feXX[K]8[M] DIM 0 GO SUB  IF ?<> DIM [E] CAT fcINKEY$[N]AT  BORDER [R] COPY ©[J][G][G] LINE ![A]9OrSQR pNeFN =2[O]0[N]ATTR VAL p CLS  STOP ~▚. CLS ?]; ERASE  BORDER >= RANDOMIZE dATN >=gN CAT [B]| NEXT <>.. THEN | PAUSE aASN ![U]▜} CLOSE # CAT ▙s DIM *p>▜ DRAW [A]USR | BRIGHT ?9r▗[J] NEXT  RESTORE ~EXP <>:POINT p9▜ AND  CONTINUE LN >=▛zNOT %^ RANDOMIZE CODE  VERIFY <;NOT _[Q])xL{ DEF FN FN : SAVE 1$ INPUT  CAT  NEW bao&[B] LOAD TAB [O]0WINT h_^sf▜▗:*RND PLOT  g PAPER  LLIST x OR  BRIGHT ▚-~8 POKE ' AND VAL P6TAN  RESTORE } STEP +~b%> NEW ▘ RANDOMIZE  DRAW ! BORDER 7v>=~INKEY$ATTR CHR$  RUN RNDY© LIST  FLASH LEN ▚ OPEN #;k_j|BIN  RESTORE [K]amHAT  LLIST  FORMAT U}TAB  COPY owEXP  PAUSE 2▚ LLIST } VERIFY o©p READ  STEP  RUN  MOVE r LLIST n#w'ers2 LPRINT IN ^ PAUSE NB BRIGHT  INPUT [C]SCREEN$ A'gBIN U[C] CIRCLE = LPRINT *%5[Q]@ RUN  PLOT  V#` @▜7 TO k[I] ERASE ~FN ,SQR = TO a# PAPER T▜vmO FORMAT +cg.C▘▖C PAPER N▟45@▚ CIRCLE  TO q TO  ERASE , IF [E]▘PEEK +  DRAW ~?! NEW 3G! FOR  DIM ▚]ATN  THEN  TO GCOS [L] THEN X(y▟U? OVER  RUN #▜ MOVE  DIM  THEN P LOAD ( BEEP ▚PEEK LEN [O] RESTORE NOT  BORDER ? DIM 6SIN &[G]97L8J[F] COPY [G]1© BRIGHT mASN ▜]ABS  RESTORE  LLIST  MOVE © FOR 0 BORDER  DIM G▙ PLOT  fe>CHR$  NEXT _3j1 OR [U]o▗<0 STEP  AND L▗ CIRCLE < DIM 4_nf{ FLASH [C]NOT o NEXT  READ [O]> DEF FN Y![P][O]R[K]PI RETURN SGN  LIST ▜[R] LINE TAB >=VABS ABS  LINE !: FLASH %z AND  FORMAT @7 INVERSE ▛ INVERSE !4[E]:@]rINT  FLASH 6mUSR NOT K SAVE [S]h NEXT 0a-3 INVERSE COS * PAUSE [U] INVERSE ~ OUT [A]c▖#z PAPER  AND _Pyr`▚ RETURN [T] ERASE = STEP +NOT ▘zIN a THEN  ERASE [B] OVER NOT L▚ SAVE S8j{vB ERASE ▚@=D{. PLOT  0i▖ FLASH  BEEP ▞CHR$  OVER ▙W<=ACS _ NEW ! THEN B RUN SCREEN$ ?[D]SCREEN$ ©K OUT ▚ AND  OVER  PLOT   INVERSE ytV[K]VAL :BIN jATN CHR$ k RESTORE  CLOSE #22IN  PAPER  OUT SIN  RETURN 8"[O] FORMAT  DATA :VAL INKEY$$J8 THEN  FLASH V STOP < POKE  PAPER  NEW <>VAL  RESTORE  DEF FN pB▜NOT  STEP CHR$ | SAVE [P]I▖INT STR$ TAN  OR ;[A]! LOAD 0[ GO SUB  DATA  DIM ▜ OVER >©SIN T:[M]z ERASE  GO TO @aVAL$ y▜IN EXP s13C| THEN  DRAW  LINE  LET AT  NEXT COS  OR 5 INK 8 DATA FAT BIN !SGN ABS 8@ GO SUB  VERIFY ACS ©' OPEN # BEEP " STEP Y SAVE TAN  LINE V8CHR$ wTAN %▜nW;d▛ CIRCLE ▞[A]PIW[O] CONTINUE  STEP <{[E]ABS fo▗9 RUN FN 8 ERASE SGN zxV PAPER  OVER A GO SUB S]!PEEK  MERGE ▞I[I][R]n4N LET <<> SAVE 3▞ LET  AND <=[B]▜ PAPER MPOINT [I][T]s{LEN E[J] STOP Wt MOVE [R]k^ GO TO !▞a DATA 0 OVER  LPRINT 1 AND ?[H]NOT  CONTINUE  OVER ▛ THEN <>~ BEEP  OUT  CIRCLE $ LET >x( PAPER ` MOVE /l924#Ogh TO [B] VERIFY 0▛7(▗ PRINT ▘ASN <=d CIRCLE ▞` VERIFY %COS  DIM ],: GO SUB  NEXT  CAT wm^82.$ IF  OVER  STEP  AND @STR$  FOR -}Nr©wq[M]NOT 2# CLOSE # COPY |{gATN }, BORDER &RNDPIATN 7*! COPY [M]ACS  VERIFY "[E] RETURN  RANDOMIZE 0"0=ABS 0IN ABS [H][R]t_7 RETURN NOT 8▜b FOR z CIRCLE [O]WNOT ▛ABS dr CIRCLE  RETURN [A]!& COPY  RETURN VAL$  FORMAT a BRIGHT !X REM  DIM [P] CIRCLE  RUN NVAL  W>_:IN ©6TAN =▙"IN s NEXT zS[T] AND w.j[M]{ TO  LOAD ><SGN NOT 9▚▛?[P] LLIST P>[P]PEEK : LLIST [B][J]IN   RUN  CONTINUE ^VY▛ PLOT   BORDER 7! GO TO [T] NEW USR !) COPY ~ LET ACS  FORMAT ^▜~[K]/P` DRAW  OUT [E] LIST ▟[O]▛_@'x:IN <y: DEF FN SQR Gk1 PAUSE tl<> CIRCLE ▛ INVERSE ▛f[G]▜NOT FN [H] CAT ACS [O]tPI CAT 0STR$ |!LEN IN CODE  BEEP *:i  THEN   CLOSE # FOR  TO &2▟$RND30[N] GO TO [D] VERIFY  RETURN y<=? LIST  8 PRINT  DIM  REM w+|h>= OPEN #. MOVE  THEN SQR 1i0[S] 9!ATN NOT ▛U=N TO ▜]<>ATN r/ GO SUB PIQzv BRIGHT )[S] RUN "<NOT >==_ PLOT   OR RND PAPER  RUN ! ERASE RND THEN f▜[R]b2 ERASE 7 BRIGHT 6NOT [U] DRAW  CIRCLE [L]W3 LIST 40[G]&;Ue▛b[G] AND [N] OUT  Vq GO TO  RETURN SGN  FORMAT ▛2 AND  OR ? FORMAT :INKEY$<>▜R TO ▘2 SAVE s READ  DIM c}r> CLOSE # FORMAT 'R OR CHR$ [D] BRIGHT NOT {▘[U] STEP ,[S]ATN  PAPER [G] REM SGN ATTR  COPY [M]3[J];▖ DIM  VERIFY VAL$  RESTORE sVAL$ ▛NOT ▘} IF s<BIN c DATA  OUT  RETURN [I] ERASE  LLIST  AND ▟S7FG%Vn0[I]nRNDl THEN [D]n THEN OFb&▝ex[R]Q LIST {>SGN SGN & THEN FVAL )[N] RESTORE [D]ATTR  [F]6 FLASH n[S] CLEAR fO/ BORDER #rINKEY$NOT ]▗ MOVE s#r LET D OUT [T] PAPER AT <> INK :M INK  DEF FN TAN (4 LOAD !+ LET  BEEP SVAL$ ACS COS [F] BRIGHT [S] INVERSE [E]yZ DATA  SAVE T_,u; BORDER <( DRAW ACS O=}ATTR  PAUSE  STEP g[G]ACS TCODE INKEY$ OR <=VAL$ = DIM ;qd CIRCLE  GO SUB  DEF FN 1ut CLEAR }ATN  LINE [O] RETURN  INK  U! READ [U]TAN P0 PRINT c[J](F]N> LET 4`CHR$ z2 BEEP  DATA $cAT vCODE w<,~© BORDER $gTAN  DEF FN  PLOT   RETURN wsN[J]2 OVER ATN c2!NOT  SAVE [T] COPY E INK CSGN vtNOT FN [H] STEP APIOIN USR oSIN  PLOT   DRAW gVAL$ 0V GO SUB EXP ▝STR$ [J][R]T>> TO 2 MOVE [D]l OPEN # FORMAT  THEN IN x INPUT 9 STEP 8[M]>= LOAD ![A] BORDER 8 GO SUB VAL  STEP POINT [H]!AT [Q]pnkG[I]B STOP &5 FORMAT STR$ ▙ CLS  SAVE kdn2(`h[K] SAVE u2gACS  FLASH  READ GLEN SGN LN  :> COPY  RANDOMIZE  CLEAR ! INK IN o[A]s BORDER 4!_[M]vb68, CLS }▜BIN "<= PAUSE d INPUT  OR LEN STR$ [L] RANDOMIZE  COPY  GO SUB  TO p[O]ATN  OR  PRINT BIN k CLS  LET  TO @▜ LET EXP ▙l OR PICODE  LINE POINT  ERASE ▙f r)FATTR NOT CHR$ [P]LEN ACS ASN l?1V0K CAT  RETURN  PLOT   LPRINT  DRAW TWOGATTR y6x$(6GLEN p INK LN NOT W0E&F DEF FN  CONTINUE 2 NEW  DRAW <)5 COPY 61▜ LET ACS G AND =BIN &<8 RUN ! CIRCLE  BORDER 1 PAPER  POKE  PLOT  STR$ FN  CAT [S]P[>=▚ INK +v[A][H]]ACS  VERIFY ! OUT [U] STEP ^NOT ! CONTINUE ;[CHR$ NOT QAfPEEK & c THEN [O] CIRCLE  OPEN # ERASE  TO 0VAL  RESTORE +*G#" LIST [U] LOAD  TO dTAN n: READ S[S] STOP <=[O]<2PrPOINT 2T RANDOMIZE x~[w!ATTR CHR$ s3= CLEAR IN >= RANDOMIZE  OPEN # VERIFY BIN 2▟ TO  RANDOMIZE 00▚ LINE > READ  ERASE u AND [H]_H[R]4[C]V5 GO TO AT > TO  MOVE <▗[A] PAUSE  OR 6[D]V>=▚ STEP  CLS ▘USR © <> CAT  FLASH G NEW  THEN ` PAPER LEN [A]>=©Z THEN (VAL F-"[B] NEXT #u -!VAL  BEEP [A]S6N TO  INPUT [N]4w VERIFY 6<> SAVE a BORDER  LLIST [A]!k OR  DRAW >_D[M]o[Q]r!IN ~ AND w CLS X▜EXP [S]W VERIFY  LIST  AND oW MERGE  GO SUB { MOVE USR  STEP  THEN PEEK ,>SCREEN$ h9TAB  TO ATTR [N]= RETURN  PAPER  NEXT i▚ CAT ▚PEEK POINT i< RETURN  BORDER 1gLEN [R]k VERIFY  OVER INT <=[B]/[B]NOT 6 TO ^n TO  BRIGHT i! FLASH [B]~SGN  w]PI▚ VERIFY ATTR J Y{c|[A]A[U]  INK =SCREEN$  0+ NEW [N] PLOT   FORMAT SCREEN$  PAPER  PAPER T!'▟ INK  IF ATN  MOVE 0 FOR  VERIFY  STOP M~CHR$ A[S]?)▙!E[E]% PLOT  ▜[B] LINE  OVER H>NOT [P]CODE NOT ( PRINT NOT G6[A]LL▝ FORMAT ▝ ERASE ? OPEN #[J]k[I]STR$  CIRCLE  THEN F>= CLEAR p<>[C]6 ERASE  STEP VAL$ [L]`+▟v}_[J]~ INK [A]w|▛-6 LLIST GPUv<=[U]NOT [J]:IN &ATN * FLASH ▙CODE [P]! NEXT r- OR s STEP :![E][A] CLEAR Pp!a CIRCLE [C] RUN  REM NOT |>^ VERIFY [N] RETURN  ERASE / CLOSE #5USR q INPUT ! NEW RrNOT ^U ERASE  PRINT [E] ERASE ASN [C]PI ERASE CHR$ RNDLN > OVER !ABS FN a THEN TAB g LINE k?[C]NOT  MERGE e▗ OUT 8<= PAPER EXP  VERIFY  LLIST INKEY$t TO _ AND  SAVE  OUT ![H]"*RND STEP USR ,>ATN `J([N]? CLEAR  INK 8 PAPER 9jSCREEN$ (1 PLOT  RNDU[C] OVER  DATA [M]AT  SAVE INT [U]> PLOT  oFN NOT <>w~|&d~(8 STEP 9TAB  FORMAT 9 STEP ▗wOSQR p DEF FN BIN INT M[C]ATN  READ 2RND INVERSE p-NOT 'IN TAB  CLEAR ▚aV READ wg IF [N]`> THEN [T]PEEK [H]b5<=(B%[T] MERGE [M]g▚ MERGE #W4 THEN  RESTORE ▗e* LLIST # MOVE z[G]W DRAW #CODE w%[C]nPINKEY$[C] VERIFY o SAVE  STEP g{[B]_PEEK Xh3 OVER [K] RESTORE l LLIST  INVERSE  STEP  LET  CAT [D]c VERIFY <>eACS  RETURN ,ABS ATN  THEN INT [G] [H]v BRIGHT ESQR  THEN  IF 6 PAPER V[M]USR  INK  LINE @AT 2 THEN  INVERSE p INK  FORMAT CPEEK p CLS N LINE o[E] NEXT  COPY  LINE 9TATN  PAPER  LOAD  PAUSE i[A]ATN ^17▝o| GO TO -%K GO TO  LLIST WSGN 0Tz RETURN ▖8 RETURN  PRINT [I]>x REM LEN  FORMAT 7]ABS  IF V[E]_ COPY Y PAUSE ▘[T][G]Q1 STOP ▙<> PAUSE +3kr INVERSE  READ sz2STR$ [P]CODE ▝▘ DEF FN /▝=o INVERSE u~AT 4SGN {[Q]3z MERGE g%"▜ NEXT t INVERSE  THEN  DEF FN  DRAW ATN  INK L1}OINKEY$. BRIGHT >[E][Q] SAVE Oe[F]TAB <=▗ RETURN  8 PRINT POINT  GO SUB /[J]FN  READ a`<=O▙$|[Q]g PLOT  [B]O GO SUB RPEEK [G]! RESTORE  PLOT  MATN {▜[E][J]▞ SAVE  CLEAR b PLOT  COS  CLEAR $INT 8 TO > CLS [A]CN[K]_ OR 3 AND  CLS EWn PAPER  CIRCLE X[F]G CAT jW+▗VAL$ ^NOT 0[F]~ INK  SAVE &="▜ THEN  CLS x,VAL VAL  PRINT  INK [P][D][M] STEP " NEXT COS M▚9g/ AND 2SIN [F]| COPY ▜2BIN ASN [F][L] DEF FN COS  PAPER oIN USR [ PLOT   FORMAT @TAN ggLEN [I] TO "RG RETURN  COPY ▖} AND  o8|[B]g RETURN P {_NOT [G]x[B]8$G@'1NOT  VERIFY [F]▝( DRAW w<= RUN  LLIST STR$ ,CHR$ POINT  DRAW [F]<>[[G]STR$  FORMAT =SQR  MOVE , RESTORE  AND oPEEK Z RESTORE {vfo READ w INVERSE :[Q] RESTORE >▚▛ STEP  FLASH }[C]TAN BIN U? LLIST NOT %~[A][G]eQ#PEEK  TO [R]n[A]SQR ▙ SAVE IINT  CIRCLE ,~ PLOT  =<USR  STEP  RESTORE  COPY [I] NEXT " CONTINUE ! CLS  COPY :E:CHR$  CLS AT  ERASE NbI[D]89RZd LLIST ▟[C] INVERSE b_CODE [M]NOT G}[O]SCREEN$ BIN [M]6<=<[G]X:NOT STR$  [G]0 PLOT  ▞[L] LIST ▖Hd[R]G8 PAUSE PEEK  DEF FN INKEY$iACS  POKE ?[C]LN @▖ DATA NOT [T][H]PY CLEAR Yu( FOR GO[I]GH?[Q]WG INVERSE N PAUSE CODE ▝oINKEY$O THEN TSCREEN$ 5▗NOT Q[H] GO SUB  PLOT  D_<= OPEN #*PEEK  OPEN #[F]USR ▘W OPEN # INVERSE ~[E]IN B_ATN  INVERSE f CLS [T][C]Wx MERGE  INK STR$ _ RETURN C: OR pW INK }@[D]6 FLASH fO CLEAR  SAVE SQR [L] NEXT  RANDOMIZE  LLIST {b[P]A]RNDTAN  SAVE  INK i&9 RANDOMIZE {▘_ REM  GO SUB { PLOT  AT SQR y INVERSE *6] INPUT X READ Y INVERSE nACS PI CLEAR & INVERSE  NEXT [D]zZBIN  AND @W&>)hg STEP ,0OCOS SIN SQR j FOR  INVERSE #/z CLOSE # MOVE  RUN ! TO INT &K DIM [C] THEN ▙ AND  RESTORE  POKE oNOT ▜ AND o GO TO 0 DIM ! BORDER [R]~{ LOAD <>=IN  MERGE  CLEAR  LLIST ATN  READ } RESTORE BIN = LLIST POINT  REM X CLEAR [O]6!▟:IN <_[H][M] READ (PO[J]/ LLIST 1  SAVE  BORDER  CLS :;# DIM ABS # LLIST _ STEP [N]BIN  RUN W[p0 FORMAT STR$  AT SACS [U] )s RETURN >=AT  CIRCLE ▜/I▝ DEF FN i(SQR [B]▞[G]<>ATN  INK  STEP px]▘y STEP  RESTORE * FOR INKEY$INKEY$G,"VAL$ [I] LLIST  COPY UCODE :5 INPUT  INVERSE m2H/w~[A]INT  PRINT G RESTORE PEEK C>9 STEP FN !- RESTORE sSCREEN$ #V! BEEP <=5k[A]55!~ MERGE TAB ▚# OR 5  OUT  REM ATTR ▝ LET Og:CODE TAt  TO  FORMAT w>( FLASH  COPY <_ DATA 9 RUN  STEP ▖[I] NEW ? LLIST  THEN  RUN <> DEF FN  SAVE [K] INVERSE ▚:oABS  CIRCLE  OPEN #}LEN  DIM  OPEN #p OUT  LPRINT  CIRCLE X RESTORE :©*FN  STEP 7[J]"(RND2%RND LLIST CATN <>▜ PRND8 DRAW [F]B[R]} NEW  RETURN ?} OVER o> COPY  RESTORE O~[R]w$ IF &Ry<>#CHR$ m[K]CPSSCREEN$ PECIAL ©NACS  VAL$ 1AOSATN Rc@.!)@( TO P:AT T FLASH PAUSED COPY GAANOT 6OVER<wT;TUTH DIM GwL1P=jPBO<S4= OPEN #P< COS P|▝ [Q]P$" (& ,* .USR P%# )' -+ !/WLzATN  PAUSE A[K] CONTINUE STR$  THEN oaPOINT % IF  DEF FN ohW PRINT &E- BEEP 0 CONTINUE ]Z| AND &ZCODE 7 MERGE :CODE  STEP  DRAW _aINT #=m  ERASE  CLOSE # LPRINT uD LINE [A].TAB  STEP Y DRAW OFi[R] ERASE !JSIN CR IF ,<>_a]}©NOT D RANDOMIZE . RANDOMIZE  OUT IN COS .[T]6lIN j@ATN h5FN y=!COS  LOAD F▝[S]![G][R]G STEP 5[K]! INK  COPY s LOAD  POKE  STEP CHR$ +>b CAT 7>+IN  < VERIFY  CIRCLE >=gCODE o NEW ABS  [T] RETURN >= PRINT  AND RW LET <f GO SUB  CLS <FN 7wLEN  SAVE }[P]m{PEEK  VERIFY ;_,}SGN  ©<>:bATN  LIST  OPEN # AND 2▞ LINE p[H] INVERSE *T@ DATA VAL [E];▙ PLOT  @ FORMAT ▚+CODE PIN ^~▚ww ERASE o[K][L]-CHR$ NOT [O]< INPUT ~TAB PTIM SAVE E STEP UP  CLEAR (}` MERGE ©VAL o STEP EXP [L] LOAD ,LICODE w POKE [L]NOT {▚e"▘ VERIFY 5 LPRINT  PAPER RND FLASH < RETURN :[H]0w[J] FLASH  CIRCLE  DEF FN  LIST <>120 STEP ;[I] CLS <> RETURN O@▛u_ COPY wzRND![C]~"[J]SGN  RANDOMIZE u PLOT  VAL$  OVER  LIST [N] RETURN  MERGE  RESTORE ! PRINT "A<D LLIST  MOVE STR$ ]PEEK  CAT ▟ CIRCLE }[F]![E] LIST  CLS " PLOT  S OPEN #2SCREEN$  INVERSE PaOGNOT !B~?ABS  CLEAR  FOR  RUN  ERASE F▖ ATTR ~od[Q]6:AT ▗ CLOSE # RANDOMIZE ^ZINKEY$▙6INKEY$[M]! NEW IN /[E] PLOT  [T]▝O© LIST ~ IF  FOR  RETURN l RESTORE  LOAD 6POINT , LLIST qACS 8▘ AND , LINE l<wX POKE COS " FOR  INPUT W_ RETURN  LIST  PLOT  8ATN ' CLS TAN [T]▟=2 REM O::0P▜▖STR$ ▙ABS F▚2 READ © LOAD VAL 2 PRINT [E][G]?[B]▗ CAT 1$RND GO TO NOT  NEW [J]T MOVE  READ 6t PLOT   RETURN  INVERSE @S2 RESTORE ATN ]2[T]▖ INVERSE (m> INPUT 8 BORDER SIN :[E] MOVE ATN ( GO TO  STEP [S]▙ PLOT  © LINE k[G] LLIST  VERIFY og▗LEN  PRINT USR [G]>2WeM5Ji[M] LPRINT L POKE k OR S*ZBIN z CAT [N]:6ATN >=M>=2FN p OVER  PRINT USR  OUT g#32POINT [I] 2TAN  AND PI LLIST 2%J>=2 BORDER IN <>©▜ AND >= LPRINT o>y LOAD  POKE gRND LPRINT  GO TO STR$ FN [R]▙az[A]W~, IF ! RESTORE  MERGE  OR  PRINT o+3)D#wVVAL$ !%c INVERSE t~, STEP  PRINT [N] COPY  RUN  LET STR$ m LET AUSR  INVERSE { AND  _zIN  PAUSE W CLEAR "eb!<>p5CHR$  SAVE w THEN 9J;%`<)b© GO SUB  NEW |m^ STEP  INVERSE JRND CAT ~<2 OVER ACS CHR$ ? DEF FN  PAPER P[O]> GO TO ;> OR [# CLS USR ▙NOT n▟q LPRINT  INK _z[M]v> NEW  GO SUB Y INK  RESTORE oV`[F]> PAPER [Q]i LPRINT  PAUSE i MOVE _`Z INK  CIRCLE  INK   BEEP  NEXT - INK SCREEN$ G INK  OR 1ATTR VGRATTR O!U OR o3[N] THEN ACS NOT ` LLIST > RETURN PEEK CODE p`TECODE & STEP ~[Q]ATTR  PLOT  %  LOAD > RANDOMIZE  INK V_▖5, TO ▚1]ACS !RG PAUSE L-m)DCOS 0/ RESTORE  OR lCODE LEN wvX#~+~ NEXT x MERGE STR$ G LLIST _b{LEN _ SAVE [E]0s PLOT  [D]>^#V+ DRAW P CONTINUE ss/"ATTR  CONTINUE /+# FORMAT EmD▘7 CLOSE #R!E[P]nSIN 4" FLASH [Q]* PAPER p+ RETURN g BRIGHT pNOT [H]=LsCOS SQR COS TAN p STEP  PRINT  GO SUB { CIRCLE ABS USGN >DM DRAW  INVERSE  CIRCLE  MERGE  FOR [[J]"I MOVE  GO SUB  MERGE KIN * PAPER F[. OR ~O7/ THEN 1[R] RESTORE ©CHR$ TOV▞INKEY$ INPUT  FORMAT INKEY$iG23FO© RESTORE <LN  LLIST Z PLOT   STEP W+>=*PEEK  NEW ▜/G<=[F]v!#f[A] PLOT  STR$ x LLIST  OPEN #▛CHR$ [O]<> NEXT  IF $AT ASN ©{mP RETURN TAB = THEN  GO SUB  BORDER  GO SUB y INK !©ACS E.;#w= GO SUB G PRINT (CODE #w OUT ▘=z[I]" PRINT 'NOT Mh^ PRINT  COPY  INK ACS [N]BIN  CLS  GO SUB ^ RUN <>[H]N GO SUB Y BORDER  INPUT  OR FN [T] GO SUB TAN  SAVE  READ  MERGE yN# THEN ! PLOT  Y▛ OR SGN  RESTORE G?i THEN  PRINT  LET  PRINT  LLIST #STR$   NEW  MOVE  LLIST <> PRINT  STEP c[Q] LET E THEN  [B]`:RND> COPY sh[Q]SGN <> THEN  RESTORE  FORMAT  STEP  RETURN <> INK x RETURN  PAUSE USR wATN   CIRCLE F#? POKE l+# INK <>©RW,v(< REM EXP [O] INVERSE  GO TO `z[R]  RANDOMIZE #s CIRCLE TAB USR pATN  GO SUB R DRAW  THEN  STOP a RESTORE &©c STEP  AND j[Q]/5$NOT 1[P] THEN  ERASE ~[S] GO SUB [BIN p~-ACS ,WNOT TAN [Q]:SGN `2|a:▞9G![Q] PLOT   NEW  RETURN VAL w STEP [P]0 STEP {▘xb[I][U]IN ~.BIN u RETURN [R] LINE SGN [R]!,[R]"[T]IN !!"CHR$ IN  DIM !T▖mM%O;NOT [B]<0 RETURN  DEF FN ~# AND ▜d8<= RETURN e?Om▝[H] THEN  DEF FN >INT 2 RANDOMIZE [>[L]2 POKE [U]2VAL p:USR IN  RETURN B(R:[N]IN 9 ▝I:[D].IN 0 GO SUB S OUT  PAUSE [U]!_ RANDOMIZE ▙a FOR  LOAD [Q] RETURN [J]rSQR IN &[T]< AND  PLOT  o~s<_  NEXT ! DEF FN IN 6A. VERIFY 6@!PIp6#5}CODE ▗NOT 2[O]NOT ATN 8[M]7 VERIFY  RETURN  RESTORE  FORMAT 8:IN  CIRCLE  COPY PI INPUT U▛ AND Y OR  THEN F> AND  VERIFY  CLEAR w▝K STEP TAB >=:IN  CLEAR © PAPER [B]0= CLEAR qq AND 2SQR INT p/ MERGE  READ p4 MERGE  READ P PAUSE SCREEN$ E OR ▜ OR fO▛ READ MSTR$ ATTR [I]k GO SUB VAL  PRINT <>!/[U]CUSR LN ▝8> NEW  DRAW _▜ CLEAR ▚o~<>>2 COPY © CLEAR  RESTORE  LLIST  FOR !IN [S]- THEN INKEY$ FOR & COPY >o THEN ~( AND  RUN _6 RETURN } VERIFY o CLEAR u PRINT tOC THEN ?OATN  RETURN j THEN :▞:SCREEN$ p[B]/ VERIFY  THEN C  AND w<,_ CLEAR ▖|© VERIFY [H]s AND w%D CLEAR PEEK CHR$ *[D]<>c▟! REM [T]F, GO SUB xINKEY$, VERIFY  THEN   NEXT  THEN j(L NEXT )VAL >r▜ STEP VAL [I] BORDER  NEXT   SAVE CODE  FLASH  RETURN  PLOT   LPRINT <( SAVE !VAL [J] STEP  PLOT  [L]!SIN P" NEXT [N]![F]0HA>[D]+~ STEP [L][N] STEP SRND CLS :LN p_/[S] NEW OC THEN b  GO SUB CATN p<> FLASH tW# OR ' THEN z PAUSE  NEW COS W INK ?[A] LLIST [A] CLEAR ©/ CLS  CLEAR IN ) COPY rKP REM @lC-[E][K]BO)▖=[K]J[U][I]▖ INPUT ▘ CIRCLE POINT  OR  STOP pE= STOP NOT o▞TAN  LLIST EXP 5▖r[A]▛▜ BEEP  THEN zy FORMAT ` INK  CONTINUE % ERASE @▜ STOP [B]▚ OPEN #D1(L BRIGHT ▛ LLIST ▚ OR  LLIST a*BIN  STEP  OR  OUT ▗j▜7[A]( PAPER  COPY ©<  IF  IF ATTR ?v PAUSE  RESTORE < IF  RESTORE FPZd(08;>@A COPY  BORDER [U]INT IN [L]IN [E] LIST dSIN & CIRCLE ▛ RUN  OR [R] OR b LOAD  LET [C]STR$ A)E OVER U TO  CLEAR  COPY TBIN tR OR BIN [B]<= MOVE A RESTORE <>ABS xk OR ! CAT  READ ▜▟<=y< LPRINT )v DRAW <>: COPY {ATN USR :>=p NEW ! READ ©o~2 CLEAR ©<>~G OVER  OR [S][C] DRAW ▜STR$ x_v6 CAT ,▗N% GO TO  BORDER 9r,ACS z THEN [T][A]M[C] NEW |u DEF FN W?Fv%▜TAB { PLOT   NEW ▛LEN  GO SUB  SAVE )[R]D9, VERIFY |'tWUSR ▚[H]<a▛[B]S0^i▝ACS COS 5W CAT :INKEY$ OR  GO TO  LIST  MERGE /,SGN V3e<>/ PRINT  REM  DEF FN ATN 8= VERIFY  LINE  RUN [I] OPEN # OR TAN CHR$ = DATA FN ~ LIST [K]9;SIN =x OPEN #y|CODE  DIM  NEXT 9 MERGE  READ [P]EXP ;r!FN PEEK 0 INK >tVaSIN EXP ! PRINT v[I]~▚4: STEP !U LLIST [I] INK a CAT EXP xai INVERSE [Q]gR7 GO TO  LIST ▗x▘rZ LLIST [D]x4=LN  MOVE ▜ CIRCLE VAL$  FORMAT USR ▜b LLIST  INK  LLIST [N][U] OUT 9bv#~!H~%2 DEF FN >SIN  CAT  RANDOMIZE [S]LEN r PLOT  [I]?f9RND BEEP L} NEW STR$ INT a PAUSE Q>1e( RANDOMIZE  DATA NOT =V[O]▝,STR$  LLIST IN  9>#nx[I] RETURN  PRINT =<gLEN  REM .▛n RUN U SAVE  LPRINT ▚NOT oOa~UF  BORDER q CAT ▖YD[U]< PAPER  RETURN sAT }©NOT VAL [N][O]eJLN Iv! STEP COS [R]3/E>~[G][O]TAN !h▘8 NEW  AND K[G][H]*>=TAB  NEW RND FLASH #▝<>SQR N DEF FN  CLOSE #▙Y CLEAR yJaLEN .<0COS PUSR ▚ OR y$ NEW x CIRCLE f&^/xPI[T]SO[R][P]9LN #[P]No PAUSE [I]j LLIST p CAT e[F] PAUSE a$TAB 95WB[J]w> TO  FLASH [O]0 VERIFY SGN  NEXT  CONTINUE a[F]/[O]STR$ ;F/ LOAD CODE rd_FN #©OIN NOT SQR [B] LOAD T[R][S] READ >:BIN RND[S][D]0hSGN [T] BRIGHT Y GO TO [M] VERIFY  DRAW [Q] DEF FN X'AESLN [E]c[C]9* NEXT <} CLEAR F%NOT a6?VAL  VERIFY  LINE CHR$ CHR$ IN  FOR uRGS[I] RUN c STEP 6>k[I]q▟T[H] GO TO [D]EXP TAB )a[C]p< PAUSE Cq CLEAR 0Z[I] LIST l}▘ LIST [J]D[L]+[N]eATTR g+)<©wSTR$  OUT  ERASE [I]l[G]j% GO TO  MOVE CEXP m8[U] CIRCLE IN M LLIST x[T]> DIM {SGN mr DIM  INPUT ,<>k[O] FOR [C] LOAD  RETURN 3+ OPEN #>?W|[J] OPEN #[K]Q]sLCHR$ ASN [M] GO SUB NOT HZQ8s TO %[STR$ t(g>=▝,▘▝a CONTINUE N(Te LPRINT  STEP ' TO [L] INVERSE FN [S]* RETURN ]@▖FN SCREEN$ e.SGN ]hb8 SAVE LN VAL$ f LIST  LLIST [L]O'[L] IF [M]Y INK LN  LOAD  LOAD  DATA CHR$ 8▘| DRAW U RUN  DRAW NOT TAB g66▛^[L]8'% ERASE Syg[D])8>SIN  LLIST  POKE  NEW  DIM  RANDOMIZE / DRAW CUSR ▗©gATTR [P]Cb[U] LET `[L] LLIST jy SAVE i{@vBIN xU# FOR G GO SUB  STEP w INVERSE _SCREEN$ [S][C]▞|▚ FORMAT [L] IF D/d|▘F IF ▘JINT ,$VAL$  IF  NEW  DRAW  LLIST ][B]l(.v7%l=9TAB },<8PI-] RETURN  LIST [B]NOT  DIM  OR  CIRCLE xFN  RETURN [S]R) TO LEN USR CHR$ J[D][C]T3 FORMAT CHR$ nx(u OPEN #[R]POINT  CLEAR  COPY  IF I[I] COPY  CAT  PLOT  D0@PI▗▞SQR [G][A] NEW h,CUa THEN N CLOSE #[T]Y$LEN +▞0[U] OR 0 LPRINT [G]CHR$ NFN Bs<>▗F[I]t;EdH RUN ▚MvCOS '2 ERASE AT LN ],CODE g▙[G] GO TO <= GO TO i DEF FN B[D]{[F] < RUN  AND  INPUT NOT 0p INVERSE  REM VAL XN[T]V DEF FN ▚ OR 2▗6[F] STEP >=[T] RESTORE  BRIGHT {e[R]s DIM u[J]BIN ABS  DRAW 7,[N VERIFY [L] RANDOMIZE  FOR Yq RANDOMIZE AT ` VERIFY ▟SIN  TO 0r DIM VAL [M]PINOT TAB 2 FOR [L]q:TAB Ts THEN  OR t'SB[L]h CLS [O] VERIFY SCREEN$ I STOP JSQR  LOAD  NEXT [J]sATTR  STEP v IF &Z▚[K] STOP N[D][A]y DEF FN  TO 0IN 2-@>'+SQR ATTR H REM  DEF FN  STOP ▖7C BORDER ATTR COS  STOP  STOP  REM 0 PAPER  POKE ACS  PAPER hAT  CAT Z STOP  VERIFY ?7LFN  REM U▖[WF LIST `44VACS PEEK  STEP  LLIST ▚([L]SQR SIN ZATN  AND ac/[N]#K LINE KG' DRAW [Q]#8% OUT wiwNOT W▗PIy CLS  LIST [U]`p( RETURN ▚+/[A]VAL  MERGE X FOR <gIN 63COS G1[O]4LEN [T]< RANDOMIZE ▗qF(RW0 BRIGHT o8^ INK RND{J NEXT  CIRCLE a[K]0 LIST VQACS  OVER  OUT  GO TO c[>=▗ CLEAR  NEW  CONTINUE g NEW ATTR PIc[F][A][B] RESTORE  LET LCOS SIN INKEY$<> CONTINUE  LET TRNDZHa▝NOT 2[F]7WTAN  RETURN NOT  ERASE FBLEN [I]R BRIGHT  BORDER .IN s[J]D DEF FN  READ z NEW * TO g NEXT  NEXT  MOVE 2 IF SIN FCOS rzVAL v4INT  THEN pUSR fYSIN [P]SIN [F]VCOS VAL$ LN STR$ <NOT  INK  MOVE -P BRIGHT mf'▚▜d OPEN #bXTAB S OR Y/[E] RESTORE  OVER ( MOVE  CAT [A]sM FLASH [M]7< BRIGHT Lk[R]/4 OVER /n7vSGN & MOVE ![Q] RETURN VAL [P] DRAW Y NEXT ACS R DEF FN 0/ CIRCLE P6BIN *k PLOT  ZP BRIGHT [N] VERIFY  OR INKEY$CHR$ CP/SATN [L]5M BEEP h<=[B] LOAD dIt#! CLOSE #v; VERIFY QHb> INVERSE [R]-LN w)g][iNOT ▘; DRAW INT 9 RETURN  CIRCLE *[J] PAUSE  RUN [E]1,5 GO SUB a-%[O] CIRCLE eYk LLIST PI[ CLS 9A9▚[U] FLASH USR  LLIST S* POKE  NEXT  THEN [ezLEN + VERIFY PEEK [C]%aSGN *▜LEN d▜ LPRINT  RETURN  LIST INKEY$~hLEN F7IN EXP [N]COS [H]O-[P]3INKEY$_>ATTR W▛ INPUT |Pd~ FLASH  REM P GO TO 5SIN 6[I]6`0pOr OR VAL$ :v DIM NOT jk`lVAL$ VAL VSTR$ rSGN a5[N] GO TO ▝y/3 BORDER ▛i PAUSE EXP t{y<q GO TO Uh(CqUSR [M]ATN `aG FOR kCODE AT CTAN  DATA ▗IN `p RETURN 6[E][C]▛[R][A] GO SUB  PLOT  i RUN x[T]P|hUAT 2YMa' RETURN [M] VERIFY %COS [Q]]▛' OR  THEN b PRINT LEN ;(G BORDER V[N]O CONTINUE  CLOSE #F[R]/ TO xSCREEN$ G▚x<=> OVER w9[K], AND %Z DRAW  RESTORE ©8 LINE  LLIST f(y`m▛k OR oSCREEN$  TO ] CLS  NEXT FN #lUx INK [I]5[M][A]YPAT ATTR  NEXT  INPUT z[J]=>=[G]+_[L] SAVE [J] REM  PAPER ▟f[G]x[N]LN l[A]M OVER [E]a[E]▗- PAPER ▝ PAPER  COPY Cpxi!`%[I]A/q[A][Q]Z PRINT  IF [I]j PLOT  SCREEN$ SQR  FORMAT A▚2C[L]u!]m=1ATN [R]hVAL$ [D][A]Bxfop0 NEXT eSQR Bb ERASE LEN  INPUT  TO [D]SCREEN$  INPUT  CLOSE #w LLIST  LPRINT LN f8SCREEN$ ▜Va▝ FORMAT  LLIST wPOINT [I] STEP PxNVAL <=[O][P]M OR RNDb OR qSQR ASN ~ RUN ©IN STR$ ,TAB  CIRCLE [M] READ   PAPER STR$ B>=<3 DATA H RANDOMIZE YwIHxg!SQR  RETURN )Y2(SGN u[I]<>l?KPEEK p LLIST [B][N][T]▟[O] TO v& CLEAR P▚ [M].[J]! OR #3D[K]d^KK PAUSE  CLEAR ▜!RNDKVAL$  LIST ^3 THEN LN COS [C]▙Y RANDOMIZE  CLOSE #+LLEN  LOAD  LOAD [P] NEW  DIM ▝ INK COS  STOP  STOP I6 MERGE su+y BEEP [O]7▛USR 4w[L]CHR$ mCOS  PLOT  [A] LIST  MOVE BIN  BRIGHT INT INT zd/ GO TO STR$ FN ; POKE  NEW [N]} LPRINT NOT K LET [F][C]/INT  CAT P+^▚▚ STEP ©6FN p MERGE 6 DIM VAL BIN X.x SAVE ▘▛ACS /SIN POINT  LPRINT  OUT !< SAVE 6[P]t OUT CHR$  IF  CIRCLE ' PLOT  ACS  LINE K SAVE `©u STOP  SAVE  STOP TAB  LET .$ DRAW  FLASH L DEF FN  BEEP C CAT CODE CODE 9`▝C"BIN C DATA  MERGE SCREEN$ fBIN LEN gLN CHR$  STEP  OVER O AND  OR  CAT &S ERASE  NEXT +[M] VERIFY ![U]PSTR$  INPUT <g CLOSE #!8[E]N CLS P PAPER ▜[F] LPRINT v[U] BEEP 8 PLOT  [I]>=b|T LET ▖[S] PAUSE PEEK gABS LEN ▙XTAB ,VAL$ v4 OUT  CAT  LINE [I] LLIST a[E]-▗2?YhLEN >=X▖AT o▜aCHR$ ^BIN 6O<g_ SAVE ▗INKEY$8Yv▝VAL [J]STR$  CLEAR W  CLS  LLIST q TO { OVER  DRAW  NEXT SCREEN$ ©M`[I]Q OR  CONTINUE b POKE LEN  IF hASN j CLEAR 4/ATN -[J]INKEY$b STEP CHR$ VBIN C[U]aWTAB _8 RUN 8}[I]x- PLOT  F3 PAUSE ,[Q]©SCREEN$ $▜0g COPY aINKEY$?[E]B' STEP K? NEXT POINT ,[M] INPUT $(0[R]SGN Fj INK VAL BIN <zSTR$  CIRCLE M^ FLASH A RESTORE oSCOS  NEXT @ COPY < LOAD  CLS  OUT  READ  BORDER &7oS,[B]5 GO TO %]4d LET { FORMAT [L]0 TO VAL [L] CONTINUE ▘ REM TAB NOT fB5T[R][H]RNDRB# REM %%=+▛" OR 1 FORMAT  NEW  TO [U] MOVE , INK  DATA =Z INPUT  LET [G] PRINT [C]sa RETURN &H CLEAR `l CONTINUE jC.COS  LLIST $d^Xq+USR VAL$  FORMAT >▚~▝} LLIST   PLOT   SAVE TAB SGN  CLOSE # STEP VAL ( STOP ▛ NEXT ▛IN  RANDOMIZE WSGN w FORMAT [A] NEW [Q]` OR   FORMAT ?,<=U8-BIN `>_©C$ BRIGHT 0 COPY SQR %SCREEN$  RANDOMIZE  CLOSE # SIN #▛ OR [Q]6 CLOSE #J9d( DATA 0<>▘c[B]^+LEN "X1, LET ▛SY[P] RANDOMIZE  OR [S]SCREEN$  LOAD  DIM =( REM  VERIFY C+ GO TO [B]USR  OUT [I]& DIM !TAN ©p(Et[N]NOT 0BFPIl LPRINT USR  SAVE :H2CODE  BEEP ▟[[N] BRIGHT  PLOT  q,▙1 READ  ERASE ▛PEEK [U][P] CLOSE #> LPRINT  LIST  LOAD #XIN H[I]USR ?©K>=R][F]POINT P RESTORE 0[H]POINT w▜U©SQR FK TO UI)©<@?w IF ESTR$ 9▖ LLIST  OPEN # READ  RUN  CONTINUE 'NOT [T] BORDER [P]▜0 CAT ~ VERIFY  PAPER p FLASH  RESTORE  FLASH  GO TO &▛ NEW  OR b▚Q AND +UE▛F/LN , CONTINUE / COPY X DRAW [M] LIST  CLOSE # LPRINT  OR  LPRINT  LIST  COPY FN  SAVE x` DRAW  RETURN  SAVE SF▞NOT STR$ !Z▜IN C PAPER  CAT R FORMAT D FORMAT [K][I][R][J]AT T RETURN P[J][S]` FOR @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 `AT @CODE t RUN SCREEN$ ▗-Gn5 PRINT L[rSIN  PRINT M_q2f▗ BRIGHT SCREEN$ [R]VAL$ ;R>NOT  IF  MOVE Se~TR IF ▜p+▜ACS @Z5A}[E] DRAW = IF = RETURN Pi▘7 AND j`[U]LN U?+'IN . PLOT  TAB R` IF CHR$ Ta LPRINT [N]<3▜ IF ")@CHR$ [C]USR A▝SN4FN  PAPER kATTR $l ERASE "[B] [P]NOT CHR$ [D][Q].@pQIN  CLOSE #[D]AT ▗ IF S2CHR$ L TO 3EhPOINT j LOAD LEN GX7ATN !DRND DRAW ON GO SUB VAL NOT ©[<y STEP R;; LLIST @ MERGE  MERGE  INK  X INK #N THEN 9( PLOT  8#~ INK ( INK z NEW  { AND  _z8 VERIFY WC INK  MOVE  MERGE   VERIFY  MOVE  MOVE z INPUT PW MERGE  INK  X INK #N THEN 9( PLOT  8#~ INK ( INK  RESTORE !  FOR  LLIST C INK  MOVE  MERGE   OUT  MOVE <>USR  LIST  DRAW  COPY  COPY }:BIN l[U]$[U]d DEF FN  INPUT SCREEN$ SCREEN$  INPUT *SCREEN$  INPUT  COPY _ OUT  OUT IN ?© COPY  COPY ©?© COPY 3rpFrr!EXP PEEK X> GO SUB [Q] STEP COS PEEK 8 RANDOMIZE  CIRCLE  OR 7 READ  RESTORE bk GO SUB BSTR$  GO SUB VAL  LLIST  STOP  STEP COS PEEK 0 IF  INVERSE i CLOSE #COS PEEK  THEN  THEN  CIRCLE  INVERSE -  POKE <>▜USR ~#<>@▜@[Q]@!STR$ VAL  FOR  LIST  FOR  LOAD  RUN lmmGmb XL▚3@ TO @ OPEN #[G]C▚pO RANDOMIZE  DRAW a NEXT  PAPER  AND ? RESTORE FN wg CLEAR PEEK k▛{ CLEAR [I][U] READ @p~$ CLOSE #8q#O▖POINT &E FLASH ▜[ INPUT  RETURN BIN 0L3PEEK gN CLS  LPRINT  OVER VAL <=PEEK ~/[U]PLN 5 LIST  LPRINT ~RAVAL lI©@1O[Q] RANDOMIZE ▝MCOS  CIRCLE [P]@ACS  CLS  GO TO  CAT ▜ COPY ([F] POKE [H] CIRCLE C_ NEXT CODE 2 RETURN  STEP sPEEK !~IN "@ GO SUB VAL  STEP @![Q] CLOSE #;@ GO SUB VAL  STEP @ STEP  FLASH  CONTINUE <>> CLEAR © GO SUB y STEP @> CLEAR © GO SUB y<>!!U COPY  DRAW > GO SUB FN  STEP CODE @8 RANDOMIZE  STEP CODE @8^ STEP CODE @86 STEP CODE @80 STEP CODE @8& STEP CODE @8 STEP CODE @8 STEP [H]@ GO SUB LN  THEN  STEP ▖@ GO SUB FN  OR UU STEP [H]@ CIRCLE  OR  STEP CODE @ BRIGHT [H]@ INVERSE . STEP [S]@ GO SUB C/@ READ  RESTORE bkSTR$  GO SUB LN  LLIST [I]@ OR ATN  RESTORE bk GO SUB FN  LLIST <> STEP CODE @0 IF  INVERSE i CLOSE #CODE @ THEN  THEN  CIRCLE  INVERSE -  POKE <>▜USR ~+<>pSIN q*[S]L6>©r+)2 )STR$ pCHR$  CLOSE # LLIST DFN ?@PX0D5YVmh MERGE H[D]&Y PRINT VAL$ ( CIRCLE c~H DIM [E]$OH COPY AT  LINE B[J][C]!TAT  OUT <~_2SGN INT INKEY$ CLEAR ? LIST V▚Q OR ?,2 VERIFY tx>[C] CLOSE #[J] RETURN [A]7 CLEAR PEEK p INK [R] FORMAT t RETURN EXP IVAL$ f[J] PAUSE  BRIGHT aLN 0SGN  NEW ~©▝© COPY STR$  RESTORE  BRIGHT  MERGE  INPUT ©VAL$ !SF▖▝ FORMAT  CLOSE #5/,`W[G]SQR INKEY$(INT k LIST 3s RESTORE CHR$ RNDM▟-▙ COPY Y2 OR [J]LN +[Q]NOT pdl#6Dh6;5 TO SF:INKEY$ FORMAT pa[O]2HW[G]P▞q TO [M]LEN INKEY$)t LINE j[U]kX INPUT q SAVE INKEY$H SAVE  LIST CODE ▞▗3#nT CLOSE #[O][P]©xuGAT A[I] OUT a▙H PLOT  h>=ATN <>[Q] RANDOMIZE [J]"5S▚[I]|[B]P2H THEN WD{> PAUSE 9ALou5>=2 FORMAT /pP LIST  GO TO 9 LPRINT INT r AND 4 SAVE p POKE  THEN [U]NOT 7SIN IRVAL$ -K^[]z PRINT 485 INVERSE  LIST  CONTINUE xALN FN ~[P]xUSR 6_8u33ai▙<> IF D)$ POKE  CIRCLE nPIa[A]LIq[J]1SCREEN$ ▝ RETURN ACS  DATA n BRIGHT Q GO SUB MU POKE  INK  STEP o1"0h MOVE  STOP  COPY 2ASN [P]9b RANDOMIZE [U] FORMAT  CONTINUE BIN Rj© RANDOMIZE  FORMAT (DDtH AND  INVERSE bk LOAD  INPUT  DATA LN aNOT F TO ~INT ▘Q[K]LEN RASCREEN$ CHR$  ERASE ▗pP BRIGHT [R]-)V#Y>}w LET  RANDOMIZE  DRAW n FORMAT '[E]38@ VERIFY  LIST [F][B] NEXT  LLIST 2 REM i2l- LINE 8.+FQSINKEY$PIVAL$ [< COPY 8PI BORDER  LIST 8AT  SAVE  CIRCLE (h[I] GO TO  RETURN D[F] CAT TAN k BRIGHT FN  TO  SAVE -e[I] SAVE  LOAD ^▖ CIRCLE  DRAW  FORMAT )▘## GO SUB ATN EXP  CIRCLE  CLOSE #j FORMAT mp© GO SUB  STOP  PLOT   RANDOMIZE  INPUT 4!3f GO SUB  FLASH TAN  DIM SIN IN >=y▞ COPY n STEP BIN 7 CIRCLE NOT TTAB  SAVE  DIM ▟[F][R]9c SAVE 3 RESTORE  DEF FN i[Q]u4o7:4 OUT |USR fnSCREEN$ +RJ LINE *.2 NEW t8p CIRCLE [E]P ERASE [B]FtfLEN  READ &J LINE !9[S]VAL YCOS  LIST  RANDOMIZE (J CAT l0VAL$ LEN CODE AT SGN VAL [Q]LN [U][S] IF v9,W ERASE ▚E▚ NEXT  LLIST  OPEN # LOAD  VERIFY  DRAW e COPY ▞2© REM 5 CLEAR PI▞ATTR  DEF FN [R] OPEN #"/ CLS SGN X BORDER  LLIST NOT  MERGE  FOR  CIRCLE  LIST ©STR$  SAVE v'CFt▛▖[O][U]m? CLEAR  NEW P[R]BE▟M FORMAT PEEK LN X DRAW  q[Q][K]^2 BRIGHT  DRAW ▞SCREEN$ T READ  PAUSE 9IN  CLEAR | NEW  OVER  DATA AT  BRIGHT  DRAW BIN  SAVE  CONTINUE [E]$EK. INVERSE  REM  TO H[A] LPRINT @{VAL >= DEF FN I8 LINE <>ZCODE ▟ FORMAT / OPEN #b LLIST LN zABS }RND0 qn NEXT  PRINT  RETURN [+ DRAW SGN 2[T]@[K](fP[Q]>=tZ AND [P]"N"z[S]&qz▚<?t REM lj GO SUB  BORDER  LET  CIRCLE STR$  MOVE  CONTINUE  ERASE P[K]60| THEN  NEW 0 FOR © RANDOMIZE STR$ Q LINE <USR y▙V8(/^fAT @ LET jh:[U] FORMAT "C REM - NEW  CLOSE #Y>© PAUSE © PLOT   RESTORE  VERIFY INT { CIRCLE [J] INPUT [M] BRIGHT c BRIGHT 0 LIST >= LPRINT  ( LIST FN  CLOSE # AND z RETURN Y MERGE I DEF FN  GO SUB ©66EXP  INVERSE NOT v CONTINUE ;6kS[T]<= OUT CODE  CAT PIQ(5;?`t( CIRCLE 5FN X POKE L[M] CLEAR  GO TO  DEF FN  BEEP  CAT CODE  STEP VAL$  PRINT  DRAW [M] SAVE  PAUSE  COPY V[A]1RyB THEN [Q] CLOSE # POKE 2 ERASE [U]pLN 6YmpPIj PRINT CODE w<> DRAW z OPEN #INKEY$T INPUT [P] RANDOMIZE [K]▞[F] IF vn[Q] RESTORE ]>= CONTINUE  CONTINUE /1? THEN ▘[O][T]=6?; PAUSE )qitz} CLEAR  CLEAR ©=[T]dQ@ BORDER J▚ LLIST lTAN  DATA ABS uVAL x POKE SIN PEEK  SAVE [I] LIST 9rSPj'3 rPEEK ^INKEY$2ABS g CLS [D]=@SCREEN$  RANDOMIZE SCREEN$ gH/ TO  LIST  LPRINT xPEEK  OVER n=  LET [P](i TO [J]?R▞[C] INVERSE  COPY  PLOT  8IN  REM @ COPY ▜HSCREEN$ u3s DATA  RETURN CODE  DRAW  SAVE  RETURN :▜vSGN  RUN  PRINT  THEN `R LLIST ▝Z[J]F NEW  OPEN #"? COPY G VERIFY ▟TAB }RND] INPUT @[L]▟ MOVE UFR` BORDER  CAT  TO  CLS  (sBIN [R]3FNOT [S]E=>? PAPER [U] LIST x CLEAR (h CONTINUE  BRIGHT R9[N]KFN H LIST VAL !1)2(u{ DRAW  COPY  COPY VAL$ [D] LET ▟▙8H CLEAR  FORMAT [A] LPRINT PI ') OPEN #!#L LIST DSCREEN$  OUT [P]Vcq DATA CODE  CLOSE # SAVE ▛ SAVE [O]Q ERASE Q;0mVAL$  STOP  BRIGHT 6 GO TO  PLOT   CLEAR : BORDER dUSR 0#4:= DRAW © LPRINT  LIST ▖(LN >=XFN  DRAW  IF  AND  AND FN e FORMAT Y[T]=[B]d..^ CLEAR _© CLS ?p SAVE BIN [E] BRIGHT  BORDER  SAVE ACS >=8X SAVE wRND FOR COS rCHR$ 8BIN  DATA 4 CIRCLE  PRINT ©mZe[I]j([E]&▗J#%CW[H]CODE  RETURN w'2V[A] DATA VLEN *Pj, LIST  OPEN # RANDOMIZE l,} RETURN wv[F]VAL$ v NEW ATTR [H]▛ MERGE  NEXT  BORDER NOT *ABS P(BIN  THEN ,▟M%%+ TO >LN QFz VERIFY &" SAVE COS  LINE a[H] PAPER c CLS  CLS  KE PAUSE  BORDER [Q]P RESTORE (p RETURN  NEXT  RANDOMIZE  DATA  TO  REM ruIN SIN } IF  RUN  COPY © CLEAR R=[Q]MW*[I]1qD▙@m hj REM  COPY  DATA C LINE  GO SUB  NEW 2'PEEK = POKE  PAPER p%'/7K MOVE LEN [S]b} FORMAT s_ LPRINT P CIRCLE h CIRCLE HFN _ RETURN [M]|D AND  LLIST hZ.WCODE [P] CLS  STEP  SAVE UIN _ POKE #m@[Q] CLEAR [Q] FORMAT /&LN  READ [C]ZATTR © RETURN  LPRINT  RETURN [T]8 DRAW VAL$ ~ PLOT   DEF FN } DIM [T]@[U]4INKEY$ CIRCLE ([B].[L][D]!ag;KP[C]N POKE :[A]>=▚ SAVE R>=pt BEEP  AND ]POINT ?LN 5 COPY  MERGE 6 DEF FN  MOVE [L] OPEN #OS[B]" CLOSE #▗ OVER [A] INK  FORMAT  STEP tsSGN 5[G]8 DRAW  DIM [A] OPEN #H▖ CIRCLE VAL P CONTINUE  SAVE IN  CIRCLE #)%)SGN  NEW  PRINT wk OPEN # READ  MOVE |TAN  FOR > COPY  CLS  RUN  RESTORE  COPY  PAUSE [K]L▖H[I]_[S] FOR  COPY A LLIST  CLEAR  RUN USR pH[I]VAL  LPRINT "%KGO'+'/?VAL$ ^ DRAW  LIST fABS !▟CHR$  RANDOMIZE !LCOS  LLIST D_|gDK GO TO  OR ▜hF[C]QP^|fDAG1 RUN  RETURN DLEN [Q][B]a[K]vW TO nl INPUT ]_ OUT ?ABS SGN fk7s FOR  BEEP  CLEAR  LIST )R^COS  NEW A COPY [S]/[S] DEF FN  SAVE @ CLEAR  OPEN #;:?}IN LHSTR$ [M]0u8 MOVE  REM IN %VAL  ERASE [Q] LPRINT  INT [A]0PSTR$ [G]QPI9> CLS r0 LPRINT aSQR d  IF ▘ LINE ACS SCREEN$  RETURN  PRINT  ERASE <>CeSTR$ ▞ OPEN # ERASE  RETURN #y0 LIST t * DATA  NEXT  THEN  CLEAR !G)+' FLASH #| DEF FN cCHR$  RETURN ACS  PRINT  NEW SQR  MOVE AC AND TAB  PAPER ATN  REM 3IN f RETURN  POKE  GO TO ATN  ERASE RND GO TO } IF [M][C][P] POKE ;8=~SQR MH[J]; PLOT  - IF  GO TO BIN CODE  OVER [D]USR (  LPRINT ASN B|CHR$ *p FORMAT VAL v RANDOMIZE 1yPEEK l LIST ` LPRINT  LPRINT [B]SQR PEEK '% OR INKEY$(17+3 CLS ) BEEP  CONTINUE  REM ACS  MERGE CHR$ SCREEN$  VERIFY ABS  POKE  OPEN # BORDER  CLS  NEXT  FOR s+© BORDER  RETURN  PAUSE  COPY VAL$ SIN  BRIGHT  LPRINT @yS DRAW  OR WEXP |k LLIST r1 OVER  OPEN #}ATTR E▚O??[O]CPOINT  MERGE { CLEAR ▞ REM  TO  NEXT [T] CLOSE #:` FORMAT ^pVAL 0 MOVE 2SIN : FOR SGN  SAVE p LIST  OUT  DRAW  VERIFY  CLOSE # SAVE  BRIGHT  CONTINUE ▛[K] AND 2> DRAW © BEEP ?/ OVER | DATA CHR$ N LIST SCREEN$  CLOSE # CONTINUE VAL  CLEAR   VERIFY [T]▗BIN BIN D8+<= VERIFY ▖s[f8INKEY$ AND M▞][I]<VAL$ ,[O]][H]_ LIST [Q]Q@D]b CLEAR  COPY  BRIGHT  SAVE @ [S] CLEAR n+ CLEAR  LPRINT 0 CIRCLE  LPRINT LN TAN $h[I] COPY  VERIFY  MOVE FN  LPRINT  CIRCLE  AND [R]t RANDOMIZE  LOAD CODE COS AUIN  RETURN  REM  COPY USR [C] w▜)@USR 6k[G]Y_[P] MOVE ▖ FORMAT  PLOT  [M] COPY  FORMAT [A]t BORDER w FORMAT  COPY 5+ OPEN #!*O_R MOVE  CLEAR  LLIST  BORDER  DRAW  VERIFY  PAUSE  MOVE H▛[I]s% NEXT 4USR Y>= OVER [M])Q INPUT c<=[L] CLS .[E] NEXT / CIRCLE  LIST  POKE  BORDER  COPY p RETURN LEN SCREEN$ z SAVE FN W_ THEN  IF  SAVE [B]`ACS [FN  STOP [A]&S1zASN ~ COPY  AND NOT ATTR [N] BEEP  READ )DPI[S]$,&'SIr©<oec8/ RETURN  RETURN  NEW  VERIFY >= LIST - `t[U]▞BIN LN  CLEAR [O]INT  CLEAR  SAVE ▛[D] OVER [H]LN e PRINT [G]QVH FORMAT ▖[A] CLS  LPRINT  LINE  LET USR  LPRINT  LIST xLN X CIRCLE XVAL `1@H ERASE m CLOSE # LIST  POKE *<= RANDOMIZE ▘IE"[B]▛A BRIGHT #9#?4_& OUT C LOAD 0 READ aaZ DRAW USR G▜L*STR$ USR Ap%X>=▘%!SQR [A][J]Z COPY EX STEP ^ READ USR P* RETURN % DATA STR$ .1bFCPIINKEY$>"! RUN  SAVE 8[O][T]@ COPY  FORMAT *+ PRINT jVAL$ / CLEAR Nq CLEAR VAL  LPRINT  CLOSE # FLASH b DEF FN [M] IF TAT  LET  CLEAR [T]Se!X<z DRAW ABS ©STR$ GUSR  MERGE  CONTINUE e▖ATN w OUT  READ ▞w CLEAR eC RUN " RANDOMIZE  LET  PAUSE yF LOAD L▝U OVER #9!6J BEEP J# LLIST CHR$ GVAL nASN  IF USR ~ INVERSE  ( RANDOMIZE E DRAW  OPEN #{[T] CLS x DRAW  POKE  RANDOMIZE ©POINT <>8 THEN ATTR [N][H]V[N]Z▗~ COPY  READ  CLEAR  CLS  SAVE  CONTINUE  LIST  REM  FORMAT iJ[A]PPI[Q] @X POKE FN  BRIGHT  CONTINUE  RESTORE ~< CLOSE # MOVE bSTR$  PLOT  [L] THEN BIN  PLOT  @rLC&j.NOT  PLOT  1 STOP !D$NOT T MOVE ©pSTR$  FORMAT  COPY NOT ▜c CLS © MOVE  INVERSE  FORMAT ?8NOT FN  PAUSE k CLS ©▖,- RETURN P▜e[S] COPY ▜JC)▞v DIM __CCD COPY .#▗©*[Q]▜BIN  OUT !CHR$ _c RETURN .gSTR$  OUT !hINT + LLIST [Q]L_[R] LLIST +[E]ilh SAVE NOT  CLOSE #+EXP ATN @qVAL  LLIST [R]+CHR$  THEN NOT  LIST _▚%H*EXP < CIRCLE djlB>8NOT vDd▜Hc+ LLIST [I]Ee READ ▜TKhFf LIST !)`[B]eGgy▖ch INK 'a**▚ GO SUB Ii PAUSE ) CIRCLE m▞L/O[R]CHR$ CM[B]J PAPER ASN N0B4XZ DRAW [G]<>xZGxY"▜Y'bA▖n0P DRAW 'x+koSTR$ 1QW▘CSTR$ I/&J▘[B]2[B]Rr'J*STR$ :3Ss©HCm;4 DATA TtC`YHJkSTR$ l5UuA$[Q]6STR$ Vv'$+STR$ @pWwy!aKj?▗xINKEY$gJkmA'~[E]"4_=SGN z▖)}{]"STR$ "' CONTINUE  " LIST 8USR = LIST }]▘?_|?>^~©[T]'lDrP▚USR [A][O]<ha CONTINUE IrP[G]/$@P)USR 0ER SAVE  LIST USR  LLIST C "p▘ABS S0x] 9pq▙0x[U]0Mh[R]8(D# RUN /SCREEN$ QPEEK BfZ DATA CKCODE e©| INK ▜% ERASE +KINKEY$3n' DRAW VAL  RETURN  OVER 1 CLEAR  CLS  IF q CAT [N] OUT [O]:SQR r^ABS z PRINT  OVER C[P][J][D][H][O] DRAW K) LPRINT L RESTORE PI CLEAR G. BORDER RNDNOT [E]D[Q] COPY ▜95SQR +<> LET c[D]IN e[T] CLEAR PEEK k OR ▜~  OVER 5EXP  CIRCLE OD DEF FN  BEEP  FOR  DATA  PAUSE  SAVE ©N▙[M]| IF  PRINT  CONTINUE wi FORMAT  LPRINT I/VAL  REM  CLOSE #POINT  RUN e LLIST [F][P] NEXT @ IN { RUN  LOAD  RETURN  RUN ©7)o© INPUT <=NOT  BORDER "D[N]L]3N(▗ ~vBCHR$ ▚ LOAD <>/{K ERASE ©O#wCHR$ 0@<=;r MERGE [B] REM  PRINT  OUT [M]O COPY RNDi LIST © NOT  RUN $?[K]_INKEY$u/RNDOi/©?POINT  CONTINUE [ CLOSE #▝ PAUSE ▞;_LN c CAT [P]SGN USR  LIST 8 NEW  NEXT {INKEY$@▗[E] INVERSE z[vw PLOT  mo COPY USR  RETURN ▝ INVERSE M PAUSE (▜ STOP CNOT [L]SGN PEEK  LLIST =t|NOT [J]▙> DRAW ▙@ OR  RETURN  DRAW @ COPY ?NOT IN ▗ DATA  BEEP  POKE  DRAW XPIFN  LOAD FN  CLOSE #▞ LET [Q]@FN PSCREEN$  POKE SCREEN$ | RETURN _IN W/UaUSR  SAVE K[O]STR$ x LIST  RUN  COPY y LET  LLIST NOT ▜USR `VAL XAT VATTR ▚SGN hTIUSR x RETURN :▘[R] DATA  OVER VAL ©USR [Q] GO SUB  COPY  FOR n REM v6 DRAW wINT  IF g[S]T`$▖E[I]f[B]d@[U]P%[K]dUSR + RETURN USR ACS ▝)b LIST 4 CLS  NEW <Q COPY SCREEN$ AT  RETURN 8x IF  MOVE  CLEAR ][I]9<=IN © COPY  IF  POKE #O[P]~9yu{ LOAD  INVERSE  INVERSE  BRIGHT INKEY$INKEY$[T] CLEAR C RETURN [R] RETURN Q©STR$ [T]NOT INKEY$ VERIFY TAB  INVERSE  RANDOMIZE ATN {{ IF  STEP  STEP TAB  CIRCLE [I] DATA  PAUSE  DRAW 84[E] FORMAT `(88SCREEN$ ASTAN P  ERASE IU▟wSCREEN$  VERIFY  COPY  RETURN ©`_1 LIST X SAVE  LPRINT P DRAW [Q] PRINT _/ DEF FN [H] CAT 1 COPY LUSR  DRAW [T] CLEAR |? CLEAR l| CONTINUE  FLASH )z7' OPEN #FN 0c CLEAR mTAN [R]7w CONTINUE #'O?<:= PRINT  INPUT  INPUT o OPEN # OPEN # MOVE ▞ OR NOT ekASN SQR [P]IN CHR$ ©© RETURN  SAVE  CLS ABS ABS =ff VERIFY  GO TO BIN  PAUSE  RANDOMIZE ~[M][O]▙NPOINT ZPIz GO SUB 7 INVERSE w▙q BEEP zTAB  OUT v INVERSE  CLS © CLEAR  LET H LOAD RIN  CLS  OUT ATTR  RETURN  RUN  OPEN # READ  MOVE FN  RANDOMIZE / READ  CLS IN dTAN  CLEAR _?▙/TAB  LPRINT D`'^pNOT  OUT ATN  POKE suz9>_CODE [D] READ <=' RETURN  CLEAR  IF USR  RETURN [N]<>8©[T] LLIST  COPY BCODE SGN  VERIFY <> LIST  BEEP IN [A][M]<8 SAVE  POKE  CONTINUE USR  COPY > REM IU[J`[Q]aSCREEN$ uATTR IN ▞[Q]? COPY  THEN  RESTORE  PAUSE  RANDOMIZE  PRINT  REM ©: OUT  LOAD  RUN  CLS  CLEAR ~SGN /, DRAW [A] COPY ©VAL$ USR ]zd"U▗ STEP  DRAW )d<>, BORDER  POKE 1 COPY ABS _d[O]TAB ATN [P]f[K].CODE T POKE ~nRND>2[ STEP J[M]!,[ THEN ~( PLOT  6! NEW IN [L]5 -^O-[G]q-[G] GO SUB Dw,,,}[A]o THEN ACS  VERIFY o0 DATA  STEP _FN  STEP  POKE [O]8 LOAD ▖7[O]▚B"P[E]! OVER IN  DATA ~O.VAL$ _A*: POKE ▙T▖:ATN  AND >=oPOINT  FLASH ,~ RETURN 8 NEW ▛ GO SUB S5 INK ACS  BRIGHT IN  RETURN _ TO c▙!$© PAUSE SIN ▛ CAT * POKE [L] STEP  CAT !:[ATN BIN f©5W"j▞[N] OR  CLEAR ~ PLOT  _<BIN <▖ CLEAR STR$  INPUT >!2[4 THEN ^ CLEAR !IN ( CLEAR  LIST STR$  LLIST  LLIST  SAVE ;|▖▜ READ NOT NOT  LET ! CLOSE #,SIN hfSTR$  SAVE COS COS  LPRINT NOT q grSIN  RANDOMIZE `▚[H] NEXT  CONTINUE YTAN  FORMAT j▘GSTR$  AND ASN [K])▘4 PRINT = TO p[C]ACS  CLEAR / BRIGHT TAB IN  RUN  LPRINT Y LIST Z,ATN xSIN :LN NOT 3hxNnx LPRINT [K]SGN  LLIST oUSR LN  CLEAR  VERIFY [H](EXP  OVER 1CODE CODE !▘INT  LOAD  LOAD F}&#[A]EXP  INPUT ) OR iy/wSQR  LET ("NOT PI OPEN #vFN  THEN   NEW RND COPY PI&2`INKEY$ CLS "Z|▖kpLN CHR$ [Q] VERIFY ▘USR 8[Q]![C]CHR$ USR w$ SAVE ▚,STR$ hSTR$ SQR  AND pd}▜; AND CHR$ L  POKE AT  INVERSE  OVER /▛NOT [D]^{ bz&▚NOT `(0p SAVE  CLS [L][R] VERIFY VAL , SAVE  DRAW BIN  CLS 1VLEN [E] INVERSE  OR  LPRINT ▚; RANDOMIZE PEEK VAL ?8SGN  LET  LINE  LLIST CSGN X BEEP  FORMAT &<=▘BIN  BEEP TAN  OVER +[E]▜ AND O1)/LN <=[ CAT [E]▘G DRAW STR$ >="SIN  COPY !^<> INVERSE ▘gb INVERSE STR$ "&. LPRINT hhVAL ^ FORMAT  OUT  RESTORE PI LIST <>> LPRINT | LINE 0rPI)"6 PAUSE  RUN 'CODE bSTR$ NCOS  LPRINT  MERGE [M][P] REM POINT ?88V< CIRCLE  SAVE ▚>▘ TO IN SCREEN$ y! CONTINUE  CIRCLE IN HFN ! LIST  THEN  LIST ATN [G]+PEEK  FOR c DATA ATTR gv LOAD "2 CLS 0BIN  RUN !SQR TPEEK " RETURN AT © CLOSE # DEF FN  FOR ATN HTAB *z RETURN B LPRINT  INK +1HIN b PAPER  MOVE 6 FOR 5!SGN  FLASH  IF B PRINT  RUN 6>▖  LET &x CAT  LIST '0NOT b![E]VAL$  CLS [ STOP  FORMAT IN T PRINT -][O] MOVE 1Z ERASE  CLOSE #)!: CLOSE #VAL$  CLOSE # LIST  CLOSE #0| MERGE USR !> CLEAR © GO SUB y STEP @> CLEAR © GO SUB y<>![H]@[A] INVERSE > GO SUB [Q] STEP [B]@8 RANDOMIZE  STEP [B]@8* STEP [B]@8$ STEP [B]@8 STEP [B]@8 STEP y@ CIRCLE  GO SUB VAL  CIRCLE  GO SUB [Q] OR UU STEP y@ OR PI INVERSE aH INVERSE . STEP ▗@ INVERSE %  PRINT  GO SUB CK@ READ  RESTORE bk GO SUB BSTR$  GO SUB VAL  LLIST [T] STEP [B]@0 IF  INVERSE i CLOSE #[B]@ THEN  THEN  CIRCLE  INVERSE -  POKE <>▜USR ~#<>8 IF 7EB[A][E]▟PEEK NOT ▘ BEEP |0($0h DRAW  SAVE  BRIGHT *X SAVE [M]n CLS w RUN m GO SUB ;YLEN  LET ruQQq OVER FN  LIST USR  [Q][Q]USR  IF  GO TO ABS  ERASE  RUN C0INKEY$%&IN }2 PRINT ? RANDOMIZE vQ.7▜ OUT  LET # BORDER  FOR G^USR ▜[Q]G LIST  IF P FORMAT VAL VAL p@#[A][A](X CLEAR 6 LIST /~?/_;1isjtz©o9thQ©@ LPRINT  LPRINT ap BEEP `USR [R]COS  VERIFY  CLEAR ":PEEK  PLOT   FORMAT  BRIGHT  ERASE  PAPER  PAPER  POKE  PLOT   LPRINT [Q]@ PRINT (?|=_IN Bb LPRINT CHR$ +@USR  OPEN #0o NEXT <=!BATTR  COPY  IF  RUN - PAPER t REM V=VAL$  INPUT cPOINT  CLEAR [Q]e$;v PAUSE } COPY ~ OUT 6  DRAW !0 REM  COPY  COPY `>@ REM N`58BIN  DRAW ATTR  PLOT   DRAW VTAB  COPY EXP ] PLOT  m[T][I]'=e@?/ DATA @▚[M]n[Q] LIST  LPRINT [A][Q]cJ&©@ DRAW  7[Q]^ CLEAR [L]4 (:=>7{ujq?PvABS  DRAW  BORDER  CONTINUE  DRAW  POKE  DATA x4$l>=>=[I]Q3[G]} DATA  CLOSE #x LPRINT  LOAD ` IF  GO SUB 4vbU6v FORMAT [I]0AJ▗[P]▖@h©F[I] COPY  INVERSE oIN  RANDOMIZE  IF © CLEAR  CLS 7 COPY PEEK  CONTINUE h VERIFY -USR  RANDOMIZE USR  LPRINT  LPRINT [Q] LIST  LIST  CLS  ERASE 2j` Z((0( AF[Q] RETURN Cn7 OUT | CLEAR ? RETURN } ERASE [R]!#11 LLIST 'b[U]`r[P]([K] MERGE  LPRINT  GO SUB  DRAW ]v COPY  DRAW  GO TO  RETURN  RETURN USR  DRAW USR z SAVE ,cWg1(~ CAT  ERASE  FLASH VAL$ ▘ OVER  FLASH  BORDER  FLASH  READ vv6>[N][M] OVER <<^[N]> BORDER  RUN  CLS @USR pHhhp CLEAR @ BRIGHT INKEY$&TAN BIN ▚ IF COS I[*}%|i= INPUT [N]▙''3sq99[J]eNOT  RESTORE  DIM  NEXT ~ LPRINT  LIST  VAL  LPRINT   LPRINT VAL xTAN 4 CLEAR d GO SUB  VERIFY <= BORDER <= NEW BIN  DATA  CLOSE # GO TO x LET ▝ GO TO FINT ▝v73(-2bSdPj??5httSIN  CLEAR [K]7[I] FORMAT  LPRINT r TO  CLOSE # CLOSE # POKE $$FN  LIST  DRAW r::t LIST  REM CHR$ IN aUSR  CLS  GO TO LEN PEEK [A]`PEEK SGN SCREEN$  COPY  DRAW 7 TO  LIST   FORMAT lSIN ^=. LIST U© NEXT USR [T][K] CLOSE #}B DRAW ©U COPY  LPRINT  CLOSE #:@[R]R[G]xBIN ~VAL$  DRAW SCREEN$  INVERSE  COPY [O] FORMAT {-&)0]ABS SQR OSTR$  LIST USR ▖ RUN ▚ INK  INPUT -0aU`CHR$ ▚[Q]6 SAVE h[Q] NEXT  CLEAR -▖▟cow849p FORMAT eh1 FOR  MOVE h? SAVE h8[I]8H LIST BIN 5P[Q]p CLEAR 0 CONTINUE BIN  POKE T TO [Q] MERGE  NEXT FN ASN [T]5X[Q]O RANDOMIZE + POKE >| IF  POKE  } CONTINUE  POKE jth POKE LN T[R]© DRAW  AND [O] TO L$ DRAW ▙[T]Qh POKE zABS +H[I]0p} CIRCLE USR  PRINT [Q]q[7%`(>=n< POKE  DIM  POKE  REM z[M][M]D4 COPY [J][ SAVE l[I](H BORDER [R][I]SXU6 RUN  LLIST > POKE V0 FOR 6x RANDOMIZE +[C]~ RETURN <=[K] DEF FN N"▙ COPY [Q] NEW  COPY  COPY (_ CLS FN  GO SUB  DRAW  DRAW @ CLOSE #POINT  NEXT STR$  PAUSE  OVER m/[I] AND z[R]M= NEW  OPEN # STOP  ERASE  NEXT  DIM  RANDOMIZE uINT ]C▜J^ NEW  LPRINT  LET  NEW [Q]  VERIFY TAN ATTR  RANDOMIZE ▖ PRINT _ SAVE  GO SUB  INVERSE [C]v CLS FN f, RUN  LINE ©< DEF FN /[I] SAVE  POKE  LIST  LIST  RETURN  DRAW z SAVE [I]TAN SCREEN$ LN <= GO SUB  OVER  OVER i BRIGHT  IF ([G], FOR  SAVE -bSTR$ [L].ACS R[S]t DRAW [C][J]▞ STEP  AND  LLIST  RANDOMIZE  COPY POINT D PRINT n▛▙ DEF FN lACS 7INKEY$  AND  BEEP z CLEAR  OUT  CIRCLE  BEEP  PLOT  xACS [N][G]SO CIRCLE L#aPaSTR$ [R] MERGE ATTR W IF r STOP  MOVE  LLIST  MOVE aR DATA >= CONTINUE [M] CLEAR [I][A]SQR   FORMAT m[A]ATN cw![R]"POINT %" IF ,/{FN } CLS USR @ RANDOMIZE g` BEEP  DRAW [L],bAT  IF a CIRCLE J READ [R]C▜© FLASH I<>B OR ]ACS [A]n-' CIRCLE  PAUSE  TO  CIRCLE [F]k3P$%#/0  5[K]© RETURN  RUN  LINE  VERIFY  RETURN  BORDER  FLASH FPEEK  INVERSE ={▙ VERIFY AT  DRAW  BRIGHT 7 REM  CLS 3COS :RlUSR -[M] LIST ZaVAL  DRAW [J]>USR v[N]AT 2FSTR$ C▛G7VAL /= PAPER [N] INVERSE  AND  BEEP C! PRINT 7|▚" RANDOMIZE  LINE -[B]NOT  OR [U] RESTORE ▞p MOVE FN ` DEF FN SGN TTAN  GO TO  GO TO  BRIGHT  CLOSE #t[U]d AND  LINE  VERIFY DDBIN |Y DEF FN  LLIST 0IN b▞a[T] NEW .▝q346+ 7 PLOT  EXP v8[N][N] STEP  CAT  BORDER g7O▜ CAT  BEEP g RANDOMIZE EXP  CLS [J] AND USR  LPRINT  FORMAT  FORMAT  CLEAR [A]VAL /[K][M]g=P<=!USR I[D][T]f▚` BRIGHT , NEW !'▟;g[T]<>▞L[M]/▙ DEF FN INKEY$Y09:< SAVE <HlLN xl[O]m▟ CLEAR  INK  CLS uqy LET yu INPUT  CLS [O] LET  CLS `[A]& LPRINT  DIM .6Z( BRIGHT [J]$&#CECe3oec4]> COPY z NEXT  DRAW u[M]PV?P([I] DRAW  TO  BRIGHT [I]LN  BORDER  LIST fRND CLS  FLASH ASTR$  BORDER INKEY$ AND M▞][I]<VAL$ ,[O]][H]_ LIST  LIST  RANDOMIZE ▘wm CLOSE #ABS [L]FWLN q&SIN 5STR$ qACS ▖ LPRINT Vq VERIFY 6%NOT SQR  FORMAT rV RUN  CIRCLE  OVER LN  POKE .&B8B©XF[R]t3f RANDOMIZE TAN ▘GCOS AUIN  RETURN  REM  IF U|@STR$ F6F READ V INPUT +_SQR q<>▝[L]SGN 2Q21h@ FLASH [J][I][I]Y BRIGHT ?7s?1 BEEP  OUT  OPEN # RESTORE c RESTORE  LINE [G]FN pUSR dF MOVE [U]▞ NEXT mB▞COS Li BEEP { RESTORE [L]x[S] CAT  RANDOMIZE <>POINT !VAL ATTR  THEN ATTR V[H]V[N]Z▗ SAVE  CAT INKEY$ LLIST  THEN  CONTINUE COS  LIST  OR PIh/G[A] SAVE @XFN FN  INVERSE B INVERSE COS n/ OUT  PLOT   CONTINUE  NEXT h4 RETURN  INPUT  DIM ACS  INVERSE UGINT ATTR  MERGE uVAL$  IF  OPEN #[D]>H[[F]ac#©TAT  CLEAR VAL SGN [J] READ &S:vSQR ©BIN <> THEN  CIRCLE  RESTORE [C]LEN  OR '[F]] PAPER CODE  RETURN <vb▛X LIST t CIRCLE p%5[ DATA BIN $0y POKE @ THEN [C]TAB ZVAL NSCREEN$  BEEP I[N]w&8[I]LN  BORDER VAL `@ COPY <= CAT v%▝▚8 DRAW <~ NEW  BORDER g COPY 39!)= INVERSE S MERGE czLN C{,XVAL [H])BIN [G]$'▗"p LIST ▛IN m DRAW ASN ga OR 3CODE ▙ REM ATN o OUT  CLOSE #*PEEK  INVERSE ▙COS P IF [Q]w CLEAR POINT DSTR$  CIRCLE INKEY$ta SAVE .iG BORDER  CLEAR #Y5{IN wEXP  DEF FN T# s▘@5be READ dcBGPGpEGa2[Q]ATTR  CLS M>= REM P<9PVAL$ 0 FORMAT |] AND O!NQL7VAL$ WNOT R#STR$ !▟F|HmvC1&QVsXx▟/GDsPOINT UYQ14w=$GFN uj=`!g)%EEg BORDER [T]H▜;[@2JqG9</SIN Y[A]9POINT DZDU1bDURNDEuIGsuXPOINT !dR LLIST pACS J ERASE @ FLASH  RANDOMIZE [C][B]3 OPEN #Z':[2cR RETURN Tt4tT[U] DATA lr5 LINE ETY+cT[S] MERGE t REM zT CIRCLE RNDATTR S&2 DATA ▖9VAL$ G9AT TAN 2[>l5  STEP [H]NOOo9`} SAVE :+KkPOINT #Zy LLIST ,Ll-Y LET f-Mm LIST {8  AND f5:-Cc[J]Hu1VvKR[A]2 LET )(Hh}>)Ii[U],= LOAD  REM *Jj@POINT  LOAD 7/CHR$ (Hhc<> PLOT  [S]©6.nZ▗▚a|h LIST c"A NEW BIN ^[C][U]K DIM HTAB PI[U]▗ PRINT  ^[D]YD>h`p00 OVER d[K](iZiSIN 8xbpb[Q][M]TAB (Pey▖jIN `hx POKE xMM`iSIN PEEK CODE h`mxBU FLASH (INKEY$faA<=hATTR VAL rETAB [I]/ MERGE b PAPER  NEXT  OR  COPY t`ro BRIGHT  DRAW  RETURN IN <=▘ DATA [O]- IN IN ABS INT ASN IN  COPY  SAVE PrPEEK  COPY U8 LET IN  LPRINT  READ  LET q1E▟▖t FORMAT |0 LPRINT  CAT x8FN ^▜ DRAW  DRAW w BRIGHT w CIRCLE 4~ COPY xr BRIGHT  CAT ^ PAUSE 1IN © LIST _~>=VAL$ ^y. OVER VAL$  STOP  RETURN  INPUT  RETURN BIN PEEK SQR SIN ACS  VERIFY  MERGE ES OVER  COPY  MERGE  REM  COPY  SAVE  POKE  PAUSE  LET  COPY WTAB  RANDOMIZE 9y RANDOMIZE  LET  NEXT  PLOT   CLEAR  COPY  LPRINT USR  COPY  RANDOMIZE yEXP Y RANDOMIZE  COPY CODE  COPY ▝ MERGE  COPY  DIM  LET hA▞~( COPY  COPY SCREEN$ G" COPY  TO oSGN SCREEN$  RND▙P? LIST  COPY VAL © GO SUB C LOAD * COPY  MOVE [B]!Z OVER  CAT {VAL  FORMAT  CONTINUE >=t CLEAR  PLOT  [M] NEW  PRINT  COPY  AND IN  STEP  BRIGHT  NEXT  PAPER  FOR 5ATTR  CLEAR ,G3[F], MERGE  THEN xU MOVE L<>/[I] REM [P][L][G]:tTK LOAD c CLS ATTR = DIM  COPY j5 BEEP 8 CONTINUE p(RND BORDER  AND ▜ LET _INT ?6PEEK 0}w= RUN  CLEAR FN C@ POKE Z:▛ COPY <= VERIFY YYiTAB ABS [I]ATTR  OVER 1POINT [E] READ USR :?FN  LET  LET  LPRINT *y$[C]![B]v▟[I].E▗▗NOT [Q] CIRCLE  COPY ▝▝gTFN  MERGE SCREEN$  PRINT  REM  CLEAR  IF IN [K][F] INPUT [L][H][P]NOT  TO xx BRIGHT g CLS  INVERSE INKEY$©? FOR  REM NOT ASN SGN t7▙IN ASN  PRINT [Q][E]| LIST <=ASN ATTR {2[A]▞ STOP  SAVE PISIN  THEN  CONTINUE CODE  ERASE  GO SUB  CONTINUE ▙[G]FN [J]e7 DIM  PRINT w7y[N][K][E]▘ OUT [P][N]-[ATN SQR w INK POINT W▙[P][O])IN PEEK SGN  REM [Q]^ LET LEN  SAVE [O]P}ATTR 1 CAT [O] SAVE ▖:▘QSQR © INVERSE POINT ATTR SCREEN$ "[J][J] INVERSE T DATA [T][P][B][P]INT  FORMAT SCREEN$ <=Q[I]LN 9>= OVER kIN h PLOT  [P]i PLOT   BORDER SIN  OUT ▙ LPRINT  PLOT   INVERSE  COPY LEN [P]+ATTR ULEN ▗QK OR ©[R]KSQR [F] CLOSE #© GO TO  INVERSE wpc COPY  DATA ▝ CONTINUE  SAVE  CLOSE #U@Q9 CIRCLE VAL$  DATA  OR V, RUN ©CODE _[J] STEP SCREEN$ ABS  OVER L?ATN CODE > CLEAR mSCREEN$ cTAB [K]qLN bSQR /hIN  INPUT  BRIGHT EXP r[H]YPOINT I=[J] COPY FN  READ  INPUT LN  IF O>ATN [P]▖LEN _ COPY  LIST  CLEAR SGN ▝[B] NEXT ATN ASN [H][B]©RS[L][K] INK ASN  BEEP ATN  VERIFY " LINE  MERGE <[L] THEN o[F] MOVE  LET ©_ BEEP  NEW >©q ERASE POINT  CLOSE # IF 5CODE  THEN FN SIN ~[U] LLIST c COPY  CLEAR NOT ▝[R]LEN [J]NOT Hh/SCODE PLN C0▙ LET  RETURN ▙[S] NEW TAN  PAPER  GO SUB '1[^~[S]>▙A MERGE  ERASE PEEK  _ OR Ej0ek#z[M]PEEK #`cfdgFN e RANDOMIZE [`Q MOVE S/W_T`aA] RESTORE }bcz RETURN SGN ) MERGE tC NEXT Hh DEF FN TqPOINT iGyYFpC▟$YCODE &)V LET 'G LPRINT (Y{5dz@ DATA tc ERASE 1{ CONTINUE  LOAD O1- FOR # DATA FoASN  READ  ERASE <)*+,` OR )IJKL0e l0 RUN F#Roc▞~zlpW[S]{ RANDOMIZE ▙) READ i VERIFY Kj[A]2▟YpbRND[E]PI FORMAT  BEEP LN zVAL$ }Y& RUN uCOS %Dlr>zE(m[S][S] SAVE ~c CONTINUE /*[R]p0▝VAL CHR$ EXP z<=!d INK 1|0 SAVE tACS  PAUSE PEEK t▛%VAL  MERGE [I]{[G][T]qst[ OUT YXLEN : LPRINT VY;& LIST S<> INPUT 9 OR  LET < REM xopBIN CODE Z=*▗ZTS[C]R1Q4USR  LET nox3POINT 8rW[S] LINE cUwRxrN CLS op LIST RXixRcOpGRjFRw[U]<=P LPRINT ? INK y OUT 5 INPUT R#.LEN  LIST  MERGE [P]67R/ STOP 1vG|2p4V[~+Hq{8X( COPY AT SATTR  DRAW i)8xhxU INPUT XCOS [E] STOP XsrsVAL$ i#@ATTR { MERGE hyLEN  READ U${▛]obXVAL$ <ABS Q PAUSE [A]POINT (IJ PAPER A LET x; COPY  CONTINUE  FORMAT [C]PEEK  IF  COPY  DATA [L]U OPEN # FOR  CLEAR <=SCREEN$ kSTR$ Ku COPY  SAVE CODE  RESTORE 8@R LINE [I] STEP A COPY  LET LEN QLEN  COPY 9[N][A]9(n PRINT  IF COS =UFN T POKE  RANDOMIZE  INPUT  STEP u MOVE  RESTORE  MOVE  PRINT  STEP SQR CODE W VERIFY IN _8T INVERSE PG NEW ^1ABS [L]'ASN I` FORMAT  GO TO hCHR$ ASN q]T> RETURN u:7Kuy[D]INT K BEEP SCREEN$ >PI4 SAVE  CLS  FLASH [J]`INT  OUT :jX! GO SUB }STR$  READ A NEXT S"ATN NOT CNOT <>_ OUT  FORMAT z8+ RETURN  LOAD [P]<= GO TO  OR  OUT  INVERSE VQ<= SAVE &2# TO isu LLIST @S[I][M]7h LET | DEF FN  DRAW SCREEN$  CONTINUE  ERASE  CONTINUE  CLOSE # CONTINUE  GO TO  COPY  CIRCLE  BORDER  BEEP 0A AND  COPY  MERGE IN  MOVE COS  BEEP SGN  SAVE +U SAVE ^T:WFN VAL$ ▛. STEP  REM AT TSGN  LET / DRAW | DRAW [Q][C] INPUT NOT COS [Q]6USR LN ▛EXP 5H!BIN FN ▘[E]d@EXP  COPY  MOVE LEN  LET  PAPER 0Q/ READ STR$ ▚ NEXT <= BORDER  NEXT  RANDOMIZE SGN IN rr PAUSE   CLEAR b▘CHR$  STOP  PAUSE ATTR BIN _e OUT [E]U[C]USCREEN$ i STOP J%W[N]xACS e<>[S]h COPY = FLASH M▛-[N]▙▜WqF[N] STOP [J]PEEK e| POKE ` INK [N]©NOT [R]tO[N] OR  MOVE STR$ ;IN  CIRCLE ?} CLS CHR$ STR$  LINE  OR }> FOR  MERGE  LOAD  BEEP  COPY i▖VAL$  READ  INK  MERGE  BORDER  REM OABS  LLIST  OVER ATN  OPEN #LEN  CLS  INVERSE  INPUT Wr RETURN  REM uINT ]VAL$  AND  SAVE ] CLOSE #z BEEP  VERIFY  REM ? NEW ▘▝` CLOSE #[S]EEu^]r IF  FORMAT FN  CLOSE #(▞INKEY$*qSCREEN$ SGN  RUN  CLS ASN  MERGE ( COPY  RETURN   OUT O# e▞STR$ AT [L] qH?[U]▙LEN FN ▝!>=(FN  CONTINUE PIfCOS ;D THEN  STEP [L]1STR$ LEN I7[U]AT ▖/x FOR ~(INKEY$ COPY ▘▛[H]CODE FN  OUT  STOP ▛ OVER <▝ FORMAT `NOT STR$  BORDER  CIRCLE INKEY$[Q] AND T RUN CHR$  PAUSE  SAVE IN  FLASH $STR$ fZINT - RUN  MERGE STR$ [R]CODE  MERGE 5[L]a`LN  LPRINT ; ;6[R]^ PAPER  LOAD  PRINT [R] CLS 4SGN ny PLOT  <y CIRCLE @ LINE  PLOT  (SIN d[J]N56YCODE  SAVE  CONTINUE >= INK !LPEEK Ei STEP ; AND  BRIGHT II RANDOMIZE *EXP [T]▗ LPRINT  CLS +rSIN VAL$ MPOINT 8h CLOSE #vN GO TO ?m<>[M]NOT  SAVE  READ  REM POINT [F] LLIST 8SCREEN$ h▚USCREEN$ C▙SCREEN$ WHATTR [S][G][D] LIST *USR TAN H DATA ATTR " CONTINUE TAN "2AT 0BIN AT "0 AND %" RETURN AT )4ACS HTAB G▚[C]ACS  INPUT  BRIGHT TAB (©ATN !&VAL$ N LPRINT ▜0Z[E]:LN ©*!SGN ! VERIFY VAL  LLIST 1VLEN _VAL (![K] BRIGHT  CLEAR !CODE 8<(EXP 1▘CODE &!▘INT #[A]4EXP ATN  READ SQR  GO TO ) GO TO SQR ▙USR uSGN PI"PI2vFN   NEW RND"INKEY$PI&2`INKEY$ DRAW USR d<= LLIST .F DEF FN <> NEXT [U]USR 1<> REM  REM 9[I] READ [F] LLIST 8SCREEN$ h▚TSCREEN$  TO q LINE  LIST HTAN ATTR [G]R©,!HSTR$ 1 SAVE % LPRINT ZSTR$ zCHR$  STOP CHR$ "SIN ,!PNOT  OVER  MOVE  RETURN  FORMAT d MOVE +1 TO  MOVE !^ ERASE  "INT  ERASE 5!| OPEN #d CLOSE #|5 INPUT [I] RETURN ,1BIN [M] TO  LIST H INPUT  TO  TO  STEP -", FORMAT >= CAT -NOT ^ OR [D] NEW ▙ CAT 3PI CLOSE #! DRAW s<=+CHR$ 8SCREEN$  FORMAT ▚POINT SCREEN$  READ [F] LLIST HATTR h[G][U] GO SUB © AND  DEF FN  AND F~#0<= LLIST INT <=^">=2SQR [L]/>= LLIST  TO  CLOSE #h.W MERGE ! AND  MERGE L VERIFY  TO F FOR  BEEP  REM ," GO TO  CLS I TO g<=PEEK <>[A] LINE  LIST ) INVERSE hz STEP G AND b THEN S LET PI6> ]USR @C