Psychosonic: PS.SONIC.B

  0 RANDOMIZE USR DISABLER: REM 1 COPY _>[K] STEP z]>[ STEP z]>x STEP z]>[L] STEP z]>▛ STEP z]>NOT z] OR  CLEAR © GO SUB ySTR$ !FN a STEP [J]]!@@ COPY u} GO SUB VAL  OPEN # RETURN NOT FN a NEXT  GO SUB [ POKE / OR  MERGE zATN O><0>, INVERSE ! NEXT  STEP  NEW ]y* STEP  NEW ]> INVERSE !NOT / STEP  NEW ] MOVE STR$  OR  MERGE  INVERSE !/ STEP  NEW ] MOVE $ THEN c(STR$ CHR$ STR$  RESTORE  GO SUB S POKE /<> INVERSE  RESTORE NOT /=
  42089ble PAUSE K]SCREEN$ S" CLEAR ^> STEP b!!bUSR @ GO SUB VAL  STEP USR > STEP b!VAL ▜ LPRINT @ GO SUB VAL  STEP  LPRINT > STEP b!+[E] LPRINT @ GO SUB VAL  STEP  LPRINT > STEP b!2[U] LPRINT @ GO SUB VAL  STEP  LPRINT > STEP b![A]LEN  LPRINT @ GO SUB VAL  STEP  LPRINT CODE  STEP b!BIN FN a MERGE  MERGE @NOT  CLEAR  PLOT   AND  CLEAR © GO SUB y<> NEXT  GO SUB s▛USR !USR ▞[w MERGE  GO SUB VAL USR  INK !▙ RESTORE  COPY  COPY  RANDOMIZE $<> GO SUB LN 1 FLASH STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> LPRINT  INK ! INPUT k COPY  COPY  LIST  ERASE 1 PLOT   COPY  COPY  SAVE  IF 0#07LEN  LPRINT ? BORDER  RETURN ▚ RANDOMIZE IN  CONTINUE iZ COPY  SAVE  INK [L]▙ LPRINT  LIST  LPRINT [I]▘ DRAW  LLIST  OR [S][T]~©▚&INKEY$ DRAW  FLASH Z INK  COPY [P]? SAVE ) PAPER ) LIST B SAVE ^2?COS SCREEN$  PLOT  ABS PISCREEN$ ▜ COPY  DATA  REM VAL DIN  CLEAR a/▝ RANDOMIZE INKEY$ NEW ▟qULN  LPRINT  LPRINT ▟BIN  FLASH 0 STOP  SAVE <=NOT [ NEXT EXP NOT W# CLS  NEW ▘ DEF FN  RETURN [P]© LIST  LPRINT CODE  MERGE  THEN ©[O]/U9U RETURN |3NOT [U]-[J][I]oSGN  BEEP  PAUSE . COPY  OVER POINT  RUN 0ABS ▘ LOAD  AND } COPY USR  RANDOMIZE 0[N]IN  OUT b? LPRINT USR LEN Fv~8 STOP  DEF FN SQR  LIST % FOR NOT ▝[D][G]d LET IN  DRAW  NEXT .fi/|SGN  LPRINT PEEK ~ATTR SCREEN$  RETURN ACS  FORMAT )>▛▟"LN NOT  LPRINT q[I]c Z BEEP [N] LPRINT USR X[T]E<xwD STOP <<= NEXT ABS PEEK [I]/ CLEAR ePOINT SQR INKEY$|| CAT ATN  SAVE  FOR (STR$ Y GO SUB d1 LET  SAVE  CLOSE # LIST  BEEP oVBIN VWo MOVE  LLIST VAL$ ?[J]Zg RANDOMIZE a DIM i▞ RANDOMIZE q[M]@ LPRINT j[N]  NEW SGN  OR BIN %IN CODE <PIGPEEK mABS  INVERSE ©2 INPUT ; READ  LLIST  DRAW  OPEN #&| DATA  LIST , STEP [S] RESTORE  FLASH [Q] LINE  LOAD H[Q]ABS 3 CLEAR AT  LIST SCREEN$  PRINT FN 0 NEW [▜© CAT yRNDINKEY$ RANDOMIZE  OR ▘u LPRINT [G]y GO SUB %{[[N]BD RESTORE [T]CHR$  CLS  COPY ~ NEXT ;~AT  DRAW v[A]|p6SIN [O][I] FLASH A GO SUB < OUT  PAUSE  PAPER Hu GO SUB  CIRCLE [K] FOR SQR T?VAL$ j LET [S]NOT hxINKEY$Y RANDOMIZE a RESTORE [L]G AND [N]@ OR a FLASH [N] LPRINT ,SGN  NEW T<= PRINT USR IN INT |;? ERASE ?k CLEAR ~ DRAW ; DEF FN )rVAL SGN  jLEN ABS ^[I] STOP NOT  COPY ▝▗PIF[N]Yh CLS ▝] READ yFN  STOP TAN ! THEN  0 OUT h TO ▛[N]YE>= ▛▛eY LLIST <SGN SGN STR$ COS  GO SUB tLN & ]USR [T]SGN SGN T MERGE  CLS f DRAW N THEN AT 1 VERIFY -}8 MERGE $[P] POKE ULEN  ERASE SGN Ax STEP FN W[M]ASN  RUN PpLUSR [S]" RETURN  COPY = NEW  CONTINUE ` BEEP FN  SAVE VAL qmINKEY$. CIRCLE [S]> OVER STR$ } INPUT STR$ *nu LIST  BRIGHT Q▘ SAVE g INVERSE .c[M]/ CLEAR [H]<>SGN qPOINT  CAT j2V? DEF FN 7[G].]0 LLIST : INVERSE  RESTORE DATTR  LPRINT  RETURN [N]} RETURN CHR$ SCREEN$ USR ]LN SQR  LPRINT  LET  VERIFY  REM HINT z[S]?}SGN  OVER INT w BEEP 6 LPRINT PEEK  OR [N].INKEY$ABS ▚[S]POINT  LPRINT  ATN AT @< CLEAR { CLOSE #POINT h[H][S]@6 LOAD SIN  IF IN u▙▖VAL$  INPUT 3 LLIST cSGN [B]} RANDOMIZE (x CLS  INVERSE 8 GO SUB  DEF FN  ERASE © READ [L] PRINT 4[P]eG[G]eABS cINT o[P]oVyqVAL$ ~ SAVE zTTAB  GO SUB  READ ABS 1INKEY$4Z; LPRINT ©CW OVER SGN k NEXT /,▙NCATTR '[S]▞STR$  LIST ABS M PLOT  p] OVER  POKE >[S] BORDER mINKEY$!▟ BEEP  IF IN  PAPER  DRAW ABS } PRINT _|@ FLASH u NEXT [S] PLOT   NEW [S]c DRAW ▘SIN [S] CLOSE #PEEK  INK PACS eTAN ? CAT 6 GO TO oa[G]+AT  NEXT TAN ▚PI▛l CLEAR GAT  RUN ▖y INK  FOR  PRINT  VERIFY h?ABS mINT irW FORMAT  INPUT  SAVE 4[S] RETURN $CATTR  OVER F SAVE M RUN  LPRINT 0SQR  GO SUB  LIST >[S];NABS [ OR IcY:ABS oLN [Q]© RUN  RETURN ?af}CHR$ yc[R]W STOP TAN ` INK  STOP *FN ▚r MERGE  AND SGN LEN  BORDER # CAT  STOP ^NOT @CHR$  NEXT  NEW T▛ THEN ▘w>= THEN {P CONTINUE  BEEP [N]? LPRINT SQR M REM  STEP  FLASH INT M;~v^F DIM ? LET F USR  LLIST USGN ? FOR NOT  LPRINT p>STR$ aUSR yATN [S]$W CAT ▙# CLEAR ` LLIST [A] NEXT ▜ FLASH  STEP [L][S] PRINT 7TAB  LLIST vF<=CODE BIN UTTAN ry OPEN #l CLS  NEXT ATN  NEXT ,*FN , DEF FN ?▚< IF  DRAW  RETURN FN V CONTINUE USR  BORDER  PRINT  PRINT  READ h? SAVE 7▝ STEP *x IF [T]TAB - GO TO p"~[D]E FORMAT INT & SAVE AT SGN  OVER SGN {M NEXT  READ CHR$ `[C][R]@ RETURN ▝= FLASH [S]; PAUSE POINT } STEP N STOP EXP 1V[F] PLOT  voVy RANDOMIZE PI]ATN ASN b[L]USR V▟_ DIM 5P VERIFY y, SAVE FC BORDER  CONTINUE P▜© DRAW  OVER  RETURN pPIy$ LIST nVSQR  PRINT  COPY  DRAW < READ -,$INT ? RANDOMIZE  TO  LIST |+ LET ▗ LINE  DIM G{|<VAL$ 4 PAUSE POINT ABS ▜ OPEN #IN CHR$ H DIM  FLASH u VERIFY ZTAB m DRAW  BRIGHT  INK ot[G] VERIFY V FLASH U[E] DRAW ;4 LLIST ATTR PEEK  DATA [Q]^ READ h SAVE  DRAW * PAUSE y7I BEEP !CSQR V;AT NOT oFN f[E]pSGN [S]"SQR NOT V CLS POINT m▝ RUN  INVERSE [G] DRAW xVAL$ [S]] INPUT  r▗ATN  LINE ` COPY  NEW  LOAD ? FLASH xVINT  INVERSE  LOAD  RESTORE  OUT  GO SUB q[H] INK [B] DIM  <TAB zSTR$  o/ LPRINT  LPRINT @ INPUT 4d;W? LPRINT ? SAVE `ASN  FOR }5SGN [O]C MERGE n DRAW d PAUSE [P]0] FLASH <=| OVER INKEY$ NEXT f[G]<>.LEN  FLASH  IF tJ/CODE ▝ IF NNOT [S]RND[H]F©[Q]> NEW mSIN ) STEP KABS ▘zUSR .LN GF INK fR[S]jn PAPER  PAUSE EXP o PAPER  DEF FN [G]VXw[A]q CAT >}D<=[F]MRNDKiSGN  PRINT "][O][G]▘.STR$ =s READ STR$ ' PLOT  INKEY$X▛ SAVE SCREEN$ PEEK D FOR  REM TAN  FLASH NOT  CAT K LLIST  COPY ^/&vINT  POKE  REM  COPY ; LOAD [S].PEEK ~ BIN V[F]DH7 INK PI CONTINUE  LOAD m RANDOMIZE ACS INKEY$[B] RESTORE MFX▟▜ RANDOMIZE STR$ `TAN DIN ATN gPOINT  DEF FN INT ABS ATTR * ERASE PEEK M POKE U OVER <> LIST @[C]n[S][Q][J]q▘( BORDER NOT h- NEXT [S]>, RANDOMIZE ▟=?ACS ATTR  INK STR$ BIN  POKE e NEW  SAVE Xu FLASH  STEP SGN i@wSGN a LPRINT SGN aI LPRINT  NEW yH RANDOMIZE I]v BORDER o[G]V LOAD  RUN ? SAVE t[F] REM  VERIFY  OVER ▛7mTAN aRND?LN VAL$ [K] BORDER  LINE  FOR ABS  COPY 4 FLASH  FLASH SGN ' NEXT IN [S] CONTINUE | TO ATN M[[J][I]t▝%y@ OPEN #▚ACS  BORDER IN INKEY$ RANDOMIZE  BORDER EINT SQR [G] SAVE j[Q][A]>= NEXT  MOVE -.▟* LOAD : CIRCLE [S]ASN  DEF FN ( COPY [C]{( PAUSE , PAPER  CLOSE # NEXT IN v[L] PAUSE ACS +)f/F^INT ? AND 0< LPRINT  OPEN # LIST V|SGN 4COS INKEY$0 REM , REM [Q] NEXT IN ]|t © LIST ~^UACS t MOVE  RUN "▟Bh NEXT 2 MOVE  CAT  READ LEN [O]WB LLIST e[S]Z COPY ][S] PRINT [B]▘EXP  BRIGHT , AND ~ THEN e DEF FN NOT [S])  STEP |[G] INK [T] PI NEXT VAL /.LAIN  OR 7 RESTORE 6 VERIFY 8 OVER  LPRINT ©SCREEN$  LET STR$ ©yEXP  INPUT uCOS [N] GO SUB [O] OVER [S] DIM E LET SIN  CAT Z DATA  FOR  THEN ab]?Y PAPER  AND [G] RESTORE ~CHR$  RESTORE  RESTORE 9 VERIFY [J]o o[I]▙^PI OUT ATN 'TAN  OR ,dLN uVAL$ D3v/ RETURN v COPY  LLIST U[F] BEEP 1F[H]Xu CLS F LIST / OVER [S]IN [S]|SIN ^ATN  CONTINUE  FOR  THEN ,Y LN LN c[N]LEN  PAPER [F]~ DEF FN * THEN 34[T] AND  0 LOAD q; INK % Z[N]ATN H LINE gF COPY  DRAW  COPY  LIST H COPY  IF  COPY  COPY  LLIST 4 ERASE  COPY  LPRINT  RESTORE LNOT  LPRINT  LLIST ? DATA  LPRINT ? LLIST  LPRINT  OPEN #NOT STR$  OUT ? STOP  CIRCLE  LIST  COPY Aaz COPY w LLIST  DIM  LLIST  LPRINT NOT NOT ▘ LPRINT  COPY  LLIST ▞<= DRAW x LLIST  INVERSE [K]PI[P] LLIST  LPRINT a IF  COPY [S]▜ LLIST  LPRINT j[M]% INVERSE y<▙ COPY  READ  NEXT > CLS ▖ OPEN # SAVE  LLIST  OUT 4 RETURN OABS 0 DRAW [L] LPRINT # DRAW { READ  LPRINT [N]<= LPRINT  CAT 3` CLEAR  COPY  LIST @?▟ LLIST a SAVE  DATA  LLIST CODE  CLS NOT  CAT  RUN [T] CLS  SAVE STR$ ? STEP  SAVE  LLIST  LPRINT  STOP  DRAW  FOR  FOR CODE 3 LPRINT AT =L OUT  LPRINT  RUN 0 LPRINT  RUN TAB [U]INKEY$! OR @ COPY  RANDOMIZE  COPY u GO SUB VAL  STEP D FLASH > OPEN # RETURN  CLEAR  COPY  TO  RANDOMIZE  GO SUB y RANDOMIZE IN  COPY  BORDER F RANDOMIZE  PAUSE  PAUSE ! STOP D RETURN  READ $ NEXT ~IN  LET  COPY  COPY ( RETURN #zCOS CHR$ 2 FLASH  CLS <> STEP  AND SIN STR$  COPY ~# VERIFY USR 8G0 THEN [I] [O]#CODE 5 OR 8 IF BIN  LIST  NEW ,>= TO  COPY ( RESTORE  AND @GnLEN gx COPY  NEW  COPY o AND  THEN xG| RETURN X0 AND  AND 8TAB [R] INK WCAT ` STOP _2Nz FOR ,ATTR [R]r FOR SCREEN$  FOR &(#8 SAVE /~ STOP [G]0 IF +[M]9 AND  LLIST ATTR ▟CODE g CAT  TO  GO SUB  LLIST  FORMAT  MERGE  RUN W BRIGHT  MOVE  RETURN  PAPER  FOR  OR STR$ <>NOT #Z>=8 STOP  LLIST  POKE <> STEP  LPRINT p|p OR 8BIN y READ  LPRINT  NEXT N COPY  LPRINT NOT / RUN ? TO IN ▘"q6©USR -BIN DSTR$ .ATN  COPY >=*U?_© RETURN /BIN g} RUN  RUN .IN  AND  COPY  FLASH  DRAW CHR$  TO SCREEN$ U CLEAR  IF  DRAW ' RETURN >=" SAVE W DRAW oCHR$ SCREEN$ ?USR  TO >w READ  BEEP  FOR  COPY `A DATA [Q]T REM x READ |INT }PEEK IN pLEN qbCHR$  COPY _▟©PEEK fn© OR USR ox RETURN  LINE +/Yz<=© SGN  DRAW  TO G LET  COPY  CLEAR CODE KoA~ LET ? STEP  COPY  AND  IF  PRINT  SAVE CODE  RETURN  TO ©▗1W SAVE < LET 7A TO f>} IF ?S OVER  OVER BIN ' LINE _ COPY  AND QLEN <> LET BIN  LIST  COPY  PAUSE  CONTINUE [P] FORMAT  IF | POKE  REM TFN @CODE  INVERSE o LLIST O RETURN ATN <>~▘D NEXT  COPY G AND <= IF ©A CLOSE # LPRINT  LIST  SAVE {[P]_CODE  RESTORE  MERGE g▝>=[S]© READ ?V FOR A LINE ATTR $UG RETURN CHR$ D TO  REM  MERGE CODE _PEEK | NEW © OPEN #VAL$ TE STEP  LET  PLOT  O DIM  RETURN qASN  LINE SIN PEEK  COPY © RETURN INKEY$©> TO M*/_ COPY [J]CHR$ OEFN G▜[P] DRAW  INPUT BIN  CAT  DRAW +x[O]U CLOSE #[Q]|[Q]ATTR  MERGE  RETURN  COPY  REM  CLEAR >[G]▜O▝ACS [C] AND  POKE  CONTINUE  LIST  RETURN  LINE 8F IF 7▟ OVER 7&▘>=?©~BVAL SCODE ^LN 9 RETURN ▜wA IF  AND ▞<>BIN  PRINT  COPY RND▛'USR  LINE  LIST  DRAW  COPY IN WPEEK ▘ AND [P] LPRINT -INT M <A LLIST CODE  PLOT  ▘COS CHR$ z DRAW  RANDOMIZE  AND  FORMAT ATTR W[H] FOR  PRINT : LIST  RANDOMIZE #N▗IN  DRAW ;[S]USR &IN  LET ▜BIN  LPRINT `▚▟ LOAD [P]^▘>= CAT ▙ RESTORE /A TO USR  DRAW  COPY p▜ CLEAR t OR F▘CHR$ Gx© DRAW  LLIST |n[P]OKATN  PLOT  . LINE  RETURN E© RETURN CHR$ SCREEN$ TAB W RETURN ]} SAVE SGN /AT  BEEP  COPY  RETURN  AND ^CODE W{GNOT -CHR$  COPY PEEK ,▚ BRIGHT 64 COPY ©[M] LIST xVAL$  STEP  MOVE y SAVE @~▗{#9) DRAW ??< STEP 8 CLS IN  PAPER NOT  COPY o7▚PEEK  TO px8<NOT  STEP <=>BIN  COPY 6<= TO  RANDOMIZE c0 CLEAR  REM  PRINT ▘n▝ VERIFY / DRAW -©? LET SIN PIW▝[P] COPY VAL  RETURN fBIN  REM  MOVE G[B] MERGE  CONTINUE  PRINT  COPY  NEXT [U]▗>= COPY ~▝JBIN OACS  MOVE  DRAW [P] VERIFY  THEN IN _VAL$ ]INT USQR WCODE 'CHR$ NOT  BEEP "TAN  MOVE  SAVE  FORMAT SCREEN$ U[S] COPY COS FN ▞AT ACS CHR$ ©ATN [D] RUN BIN [P]ATTR  BEEP Q▜ DEF FN >=_ COPY  NEXT  RANDOMIZE  DRAW ▘'T AND  SAVE  PLOT  R[P]ZW OVER *INT ' LET  COPY  STEP USR  AND NOT  COPY  DRAW ▟CODE m TO  LET  DRAW >=ACS  PAPER PEEK ABS ©SGN IN  OVER  OUT  LOAD  RUN {SQR  BEEP  BORDER ]VAL$ _n INPUT  CONTINUE TEXP ?IN /= IF ▜PIXTAB  POKE CHR$  OR  BORDER  RANDOMIZE ▙ LIST  DEF FN  IF }IN  FLASH sABS ATTR [M][P]U/CODE CODE }8▜▜jBN[H]R TO  COPY [P] COPY f POKE :[C] OUT  COPY  COPY  BORDER  SAVE & RETURN  OR  COPY  AND  LLIST ▝▚>= DATA  COPY =:uINKEY$▖(STR$  COPY ▘ PLOT  _9 CAT IN  REM  RESTORE )RND TO SCREEN$  MERGE  NEXT  CAT  RETURN r[M]h DATA  FORMAT IN  BEEP  NEXT  STOP  COPY FN  MOVE  CONTINUE  CLOSE #BIN  DRAW  IF  NEW ▜CHR$ L DEF FN  LET Q[T]b STOP xCHR$ TAN  COPY  COPY  COPY BIN  SAVE p▛ RESTORE  INK >=USR  LIST  DRAW ©SGN  PRINT  COPY ASN  CAT r=Z RETURN -^TAB  CLEAR  COPY ▝ RETURN EXP ASN z DATA j FORMAT  REM [F]8 CAT  INK [L][Q]BIN DFN NOT  RETURN < LPRINT ▝7 BRIGHT  CLOSE #©SCREEN$ Q4.PEEK @[Q]▝ DIM  ERASE  COPY © RETURN I[T][G]GUSR ESIN  RUN CHR$  BRIGHT  IF TUSR  PAPER  SAVE ` BRIGHT x LPRINT VAL p0q COPY ▝ OR YV[G] LINE  TO ©?_<>© SAVE  LIST  OVER >= READ v INK  COPY ? COPY &mFN BIN ?ASN [V' COPY USR ATN  BRIGHT * MOVE  $>= DRAW  SAVE  COPY  NEXT  COPY ▚Z DATA  REM  MOVE 48dhp>= FORMAT FN  COPY [A] STOP / CONTINUE  RETURN CHR$ [R] AND  RETURN pCODE  RESTORE  COPY U COPY s_▜ PLOT  NOT ©▖d VERIFY CODE  COPY  LET [P]▟& RETURN cCHR$ [I] SAVE +BIN ▚©^ PAPER ▜[Q] LINE  FORMAT  LIST ©IN p▞ COPY VAL /VAL$  OUT ▙8▜ LIST  TO ▗CODE } IF  CLOSE #CODE [Q] NEXT :A▘EBIN  IF Q COPY ©[T] CLOSE #h5INT ?▙j▘CHR$  LIST TAB D COPY  COPY RNDG AND  OUT  RETURN [P] PAUSE CHR$ W▜ LPRINT [C] COPY  CAT x STEP S_B LINE W COPY  CLEAR ▚ RETURN  CAT &▙F PAPER LN %j& RETURN n[H] NEXT ©[M]CHR$  IF CODE j RETURN #SCREEN$  LINE PEEK PI COPY  COPY  MERGE ATTR CHR$  DRAW NOT  FOR BIN  RETURN  COPY &>[M]H COPY P OVER 7 RETURN PI PAUSE  TO  CLEAR  COPY  COPY  NEXT  LOAD  OUT ?cSTR$ CHR$ ACS [M]BIN zIN  LET FN  BRIGHT  REM  PRINT  COPY  NEXT  PAUSE  RANDOMIZE  IF  CLEAR  DRAW  INK [H] POKE CHR$  MERGE *TAB S SAVE  BORDER / INVERSE SQR [P] RUN ▜INKEY$ AND VAL$ ] COPY  OUT JBIN *SQR  STOP SGN ATTR USR [H][P]NOT cBIN  LPRINT Y THEN  AND [S] COPY  COPY E PAPER  LINE  AND [U]P OR  RETURN CODE [M]ABS  LPRINT  LET  NEXT  TO  DRAW |SGN  DRAW S▞ FOR FN  PRINT  OR  RETURN  COPY  COPY  NEXT <>CODE  IF  STEP K CLEAR [C]NOT  LET  COPY  AND >[C]CHR$  CONTINUE ▖BIN  MERGE  STOP  COPY ?` AND ©?[D] BRIGHT bBIN PEEK  CLEAR  COPY .?SCREEN$ K▘[B]SGN [C] COPY  AND ~ RETURN  NEW  AND  MERGE SCREEN$ E+ PLOT  ▟ COPY &[H] SAVE ▖ AND PI IF  SAVE  COPY <= MOVE  COPY [C]▛CODE  DRAW ▜[I] COPY [M]+ DEF FN PI RETURN SIN WUSR  FORMAT  RETURN  INPUT  AND  COPY /LN xVAL p LPRINT ▝U CLOSE # LLIST a COPY  COPY qSIN {SGN /FN Q[C][U] DIM  COPY Cnp LET  COPY CHR$  SAVE # LLIST BIN  COPY IN <>? CIRCLE  Q@ASN  LET [B]USR PEEK [A]E IF CHR$ DX COPY ' RETURN ▛$ AND  RANDOMIZE  SAVE  POKE ▘ FORMAT BIN  COPY BIN USR [B] COPY  LOAD IN UCODE ▘TAN  TO ▜[P]Z RUN  COPY  DRAW 9# STEP 4 RETURN  VERIFY  RUN G_ COPY Q FOR [I] BORDER  AND  VERIFY  COPY  COPY ▜ACS 0FN CHR$ Z COPY IN  TO  RETURN BIN  DRAW  LIST LN ` THEN ▖~▘-STR$ ' LET  COPY ▜vCHR$  RETURN POINT / RETURN  DRAW  AND USR  RANDOMIZE  RUN jNOT 'BIN DVAL  BEEP  MOVE _PEEK {▘JG RETURN  RANDOMIZE ▜t>= OR © OR ▛ LPRINT [P]~<= NEXT CHR$ _▜ INVERSE ABS  CIRCLE  OUT  COPY c READ  POKE  LET  DATA BIN  MOVE  BEEP F[B]VAL (~ LET TAN  OUT X LLIST CODE  FORMAT ? RETURN  BORDER STR$ oIN ©USR  RETURN ^[I] COPY  DIM  RUN  LPRINT  ERASE  BRIGHT  PRINT  IF  COPY sO OPEN # CIRCLE G RETURN  COPY kE NEW  FLASH TAB  PAUSE h GO SUB  COPY ▚9 DATA CHR$ AT Gj COPY  LIST  CLS [N]$CHR$ CODE oPOINT PI[K]h DRAW  BORDER  POKE >=PEEK  COPY CSGN ▙7 CIRCLE  STR$  RANDOMIZE  STOP PI CLEAR g▗ NEW ▜n COPY  LPRINT  BRIGHT F9>=▚: CAT  COPY d PLOT  BIN  CLEAR  RETURN 'VAL , ERASE BIN WINT  CAT  COPY [P] OVER [H] GO TO SGN  CHR$  FOR ' REM osCODE & COPY  IF /▗SGN  AND NINT  DEF FN EXP  SAVE USR `VAL XAT V RANDOMIZE  CAT EXP  RETURN  RESTORE AT ~zATN  CLEAR [P] TO @ REM [Q]PVAL  OR  SAVE  RESTORE  DRAW ' RETURN s%VSCREEN$  TO =PEEK ©Y|I RETURN ,CNOT  AND VAL$ <>@>= COPY VAL$ ©BIN  LET <STR$ )9 PRINT 8[U]© READ x▞ LET  RETURN  PRINT  SAVE  COPY STR$ [A]9l OR :IN  CLS ©<>xi[C]B FOR 9 CLS O OR  PLOT  CHR$  INVERSE  COPY <=:BIN X RANDOMIZE 9 LET :STR$ &zc STOP w RANDOMIZE :oK[P] PAPER  LOAD LEN  OVER  DRAW STR$ 9BIN  READ USR  PRINT ▛INKEY$z READ b RANDOMIZE t*( GO TO  OPEN # NEW I RESTORE  NEW  IF  LOAD  NEXT  FORMAT  NEXT  INVERSE ,h DEF FN  DRAW BIN  DATA  PAPER  AND ?[B] THEN USR 9[J] CLEAR [R][U] OUT  MOVE [C]I ERASE SIN [U][B]CODE  READ i{NOT [J]j[E]CODE r PRINT )L LINE  ERASE ) LOAD [N]b!Z DEF FN COS w6-gTAB  VERIFY $G PAPER  GO SUB 9 FORMAT  TO COS  NEXT  FORMAT rP[C]I DATA  ▝ LPRINT [U][H]JBIN [O]R[C]* BRIGHT  RETURN [T] CONTINUE r POKE  FOR fli PAUSE %]/d COPY B[SGN INT  FORMAT GC BORDER [I]©9 COPY <= LLIST ▛ RETURN  COPY m CLEAR |LEN L[C]FN  CLEAR  BRIGHT  STOP  LINE  LIST [D] RANDOMIZE [G]m[I]B[U] OUT  CLEAR ASN L SAVE p OVER / DRAW [E]AT <>LPI POKE  ERASE u FOR [I]VAL$  STEP Q" GO SUB [C][U] LET INT S OVER  LET "l[C] RETURN  LET [F][B]{[H] CLEAR b RANDOMIZE  PLOT  ASN  OUT  COPY hQ▚ LOAD  /ABS xd[F] READ  OR  GO SUB POINT  READ ▟0P AND h( COPY [I]HSQR ▞T OPEN # CIRCLE  LINE Ch CLS  LIST ^^[O]I^K THEN (:^.▛ RUN [Q][A] READ  PLOT  CHR$ ▞$ RUN [D]"MY:▗q CLEAR 'iBIN  RUN  THEN ([T][U]INT  CONTINUE ~LEN m<>▗} COPY SIN  GO SUB KBxH VERIFY  POKE  CLOSE # MOVE | RETURN ▞$] SAVE CHR$  LINE  CAT SQR [C]ATN RND GO TO N2^" LET [E]5d AND  OUT  STOP ▛t}# CAT I PAPER  LINE F RANDOMIZE /] LINE  PAPER - CLEAR ▙hH▙.- CONTINUE ,H9 STEP  LET  CONTINUE BIN euv[O]Hu BEEP [D]Tzu[F][N]W▚USR T PLOT  -▞{INKEY$[O] CIRCLE CODE  LET zs[E] PAUSE [C]<>~;a POKE d OUT  PAUSE EB MERGE %[S]▝ABS  DEF FN  NEXT SVAL$  FORMAT [F]ME[C]▝ INK  REM $KLN du RUN SGN ][C]BIN OX LET <[S]2ABS ▟= CAT ▗Gg PRINT J BRIGHT  CLS  VERIFY ▙s7[R][P] LET :% NEW  LIST  LET  PAUSE  CLS [K]VAL$ $ DIM ~ RETURN ▚0SCREEN$ USQR sRNDpDIN  STOP %yCHR$  PAPER  GO TO $[J] PLOT  u INVERSE BIN  PRINT  OPEN #[P][F]qG GO SUB ▜tk%NSQR 4 DIM FN ATTR k CAT SQR [U]H BEEP [L]Bi4[O][K]oEXP VAL [N][H]d MOVE  PRINT  VERIFY #lP*ZCODE [N]c BRIGHT  DRAW  DIM ▙l▛+[N]<=EXP [K]|H[C] LPRINT 4[H]iE9 PLOT  uf[G] DRAW  STOP u GO SUB ▜fzm NEXT SIN bz▙[I][D]# OUT 9 FLASH "[E]CODE FN [S]` NEXT o▘OhD< RESTORE ;a" PLOT   THEN  GO SUB [G] RETURN  READ y STOP gWNASN  CLOSE #J▗ RUN {( LET O IF  BRIGHT  LOAD ▖▛_Ax[C]Ia[D] INPUT bkACS ]~ STEP [U][H]WuPEEK 6 LLIST  LIST  STOP Z BEEP m THEN + RESTORE [U]JpRNDPUSR  GO TO  RUN RA DIM nuA<=0 CLEAR CODE [F]^ MOVE  DEF FN  LIST INKEY$i[B]RND8 INVERSE  BEEP  OR ▚n[L]t MOVE SCREEN$ ?ATN ▜ATN ^=[2U IF  RETURN  TO BIN iB[J]! FOR  PAPER ZABS Ko[U]O RUN FqPo▟ RESTORE ( READ  DATA FN b4I BEEP  LIST L/u% PLOT   LINE LN SGN m READ [B]$[P]BIN PEEK VAL$  PAUSE  OPEN #".f PAPER 8 FOR [ILN [T]Q TO NOT m COPY >=`$ INVERSE SGN CODE  LPRINT z8 BORDER x[D]I2PEEK  RUN  CONTINUE F+ FORMAT [A][E][R] MOVE |F[U]G[H]p7IAM CLS /^[H]r INVERSE - INVERSE [C] CLOSE #[B]thATTR [D][A]▖ACS 2[G] GO SUB  LLIST  FORMAT Vo DATA  REM eRND ERASE s READ  BRIGHT vZrl[ NEW nFSQR  COPY  PLOT   INK $LEN TAB ]USR w▝ POKE )▞ OR f REM  NEXT o[A]4ro[J]O▚_fINKEY$1([K]z"& POKE .POINT ^<>@wkBq[L] FLASH )h;[D]:[N][C]- OVER  LINE  CLEAR [P]kH[K] FOR [F]$STR$ [L]ATN {[M]<=ATTR + IF VLN >=[U]TAN SGN oATTR ▛ AND  CIRCLE  CONTINUE CHR$ @Z<oO8[D] GO TO [D] CLEAR +ABS  PRINT ^!pAT ]▟Y/9 DATA ASN Z[K]D[C]:= OVER  CIRCLE [C][F]on-▛[K]i<> LLIST  CONTINUE Hb2/Th& NEXT LN OVER AT 5 PLOT   PAPER JEXP  READ ▞n NEXT IN [N]^WZtpQ  LPRINT (X ERASE >SGN yK]nLEN [F] READ S[U] LINE STR$ [B] CLEAR 2[ 9 INVERSE E PRINT 'VAL$ # MOVE  DEF FN 7( LLIST  VERIFY U> NEW /mk5[E]PEEK A▝)[S]INKEY$ OPEN #E▜ RETURN p VERIFY  OUT ( READ bVAL$ - NEXT  VERIFY [C]-}POINT STR$  LPRINT [TAB IATN  PAUSE P+[U] NEW SGN LN SYhVAL ▜V'd▛ FORMAT  OPEN #ACS CHR$ e[ CLS L COPY IN EXP  ERASE /▘*. REM Y9 SAVE  REM [S] RETURN [C]L FORMAT >=Y MOVE RNDABS  FOR - LPRINT XSQR [P] GO SUB * NEW  NEW /SIN  COPY 3[S] OVER 8▛ REM  REM TAN [E][E]4O[O]x/^[K]GkIN [L]w OVER * SAVE ACS [M]= GO SUB fSGN vm NEXT  INVERSE +▘R CIRCLE #LN  VERIFY ][L] CIRCLE - LET  VERIFY TAB  INPUT  PAUSE  IF eZACS |i+x VERIFY ICHR$ BIN STR$  FOR #▘STR$ ▛H PAUSE " STOP ASN  INPUT ▜[O]TAB  GO SUB -JASN VAL  RETURN  VERIFY  BRIGHT ^STR$ [B] AND Hj[J]mCHR$ SGN [B] RESTORE LVAL$ ]TAB , THEN )[C]FN [E] OVER  BEEP ▘3/ ERASE t ERASE SGN B DRAW SCREEN$ LN [E] FOR GO2INT  DRAW YZE▗[F]$ AND pINKEY$hEXP  RESTORE SCREEN$ t,CODE BIN  CLOSE #,CODE  LET t▖[C]m[N]! DATA  INVERSE ACS }[F]-&. PAPER  OR ASN llRNDRND{<= INK uM3M#WCODE  SAVE  BORDER [P][T]x[R]A[S]pASN /[F] OVER r[F][F][A] GO TO ▚_>J[O]L POKE  BORDER [E] FLASH  LINE =] ERASE |` THEN  PAUSE [T]; RETURN zy INK SCREEN$  DIM pEZ▙~LEN RNDk9▖,▛ CONTINUE  CAT CHR$ u2V<>>=▛[T]ACS N OPEN #COS  DRAW  LLIST  PAUSE n THEN [G] BEEP SGN SIN ▜©▟VaM IF e NEXT FN  LINE JCSIN EXP W PAPER [L] PRINT ▚ OR b STEP  BORDER ^[%U[@AT $[Q] PAUSE ASN Iy▟ RESTORE © PLOT  y% PRINT  BEEP {2tABS  MERGE SGN LN 9STR$  OPEN #LN 9U|$mQ[G] OVER 8 LLIST  THEN hSQR  RESTORE VVAL$  REM  A AND VAL$ ▖ STOP VAL tx FOR NOT COS = FOR k[S][S]SGN  NEXT SIN USR ▜< PAPER LN VAL$  READ ] INPUT SQR  BRIGHT - THEN g[H] THEN ▛!< CAT  SAVE ▜G OUT l GO SUB [S]b PLOT   ERASE V BEEP 2u STEP t@h" MERGE INKEY$ OR { RUN  ERASE  REM <$ PAPER SIN  FLASH ▗x OPEN #;SCREEN$  FLASH  FOR jRND▟ THEN K COPY n PRINT ▞ VERIFY  FLASH 7 VERIFY VAL$  PLOT   CAT R[F][F]▟Qx FLASH % SAVE STR$ U LOAD F*'▘▜▚SIN  PRINT CSTR$  NEXT [G]W LLIST Z BEEP RND[Do[P]B[ByAT [K]& FOR $ NEXT  CONTINUE k THEN 7LEN KM SAVE [O] LINE  COPY © INK  LINE  BEEP .Xc{COS it© GO TO  INK  LINE [S][[S][C] RETURN PEEK [A].aPOINT  CIRCLE VKkW CAT +kFN  DATA E OVER [M]LEN [F]x,; FOR  MERGE VAL 0u[B]USR  MOVE leiUh INVERSE UL OR  RESTORE n INK ru[L] BRIGHT  READ ▙ RANDOMIZE ATN p" MOVE J BEEP HuT7[S]ATN  RANDOMIZE  FOR  DEF FN V READ POINT  LET  CONTINUE ▟. FOR VAL V VERIFY U INVERSE [R][A] BEEP PLEN 7 MERGE [F]& DEF FN [F]krk  CLEAR ACS ▚;RND> INVERSE 3+ABS n.y[E] STOP aPEEK  BORDER  OR © COPY  DATA [H]Tn[O]PI6ACS ;xTAB $ RETURN ATTR [L] REM AT [U]NOT FN SGN  LOAD i[C] OVER ▚e"PSGN ▞xg,AT  DRAW [H]AT ▛▖ INPUT  INK ; RESTORE  RESTORE :INKEY$ CLOSE # MERGE ,PI^]Sw READ COS  COPY [S]lv DRAW  LIST  REM SCREEN$ ' THEN BIN  NEXT EXP  FLASH l POKE u[F]x RANDOMIZE [Q] FLASH INT  BORDER VAL$ jf REM TAB  PAPER -X CLOSE # REM ▛a[H]+c(▙SCREEN$ [C] CLEAR  STOP x PRINT BIN STR$ f[T][N]IN [P]= BRIGHT ▝W LET  IF  DEF FN ACS (BIN G OPEN #"DACS SGN  OVER INT SGN ZW AND ▜ DATA v[T] READ 1ABS ▟SIN  RANDOMIZE  THEN 7 PLOT  gbASN ▘V IF ATN  OVER  CAT  THEN x CAT [J] CAT INT SGN [A]TAN  OVER  INK NOT WU CLS ZI[G]Q[D][B]eBTAB r▙RNDk^W[J]STR$ +Zx MERGE VAL$ AT lLEN [F]<=>='#ASN AT 3 VERIFY /[N]-IK LOAD [T] OR | FOR zh GO TO TAN };, THEN  LLIST jpit▛ PAUSE ▚ FORMAT g VERIFY SCREEN$ [G]V[I]y STEP CODE 8-q] RANDOMIZE  PAPER SQR h$NM▛uDSQR ▘▜ RETURN  GO TO  CLEAR  IF Ee[L][P][G] OR  INVERSE Ak▞ PAPER  LINE ` LINE NOT  INK CHR$  FLASH  CIRCLE e% STEP AT @/[G] RUN CODE  THEN N[F]cVAL$ | PAPER ATN  DIM INT  LOAD  LINE ; MOVE  STOP  VERIFY `Z RUN TAN  STOP LN RNDSCREEN$ (U/SCREEN$ V LET  BEEP x INVERSE /T[H]TAN (a MOVE  NEW TCODE h- RUN ATTR * DIM iTAN 6eSGN TAN  INVERSE  OVER INT -SCREEN$ m,AT  PRINT 7VAL$ )INKEY$ NEW  CONTINUE , BRIGHT TAN ASN ▛d▖ASN  RESTORE [N] SAVE <>`% STOP [F] NEXT NOT [Y[Q]]]X OPEN #]^▛ FLASH *SQR  DEF FN A OUT  STEP ACS PI]ABS ATTR VAL$ qU$©D PAPER  COPY ▗E[N] STOP  OVER V LIST  THEN  THEN */yRNDNOT  CLEAR FN ma RESTORE {/m COPY [F][F] BEEP [O]!4[U]d GO TO lRcINT  BORDER [ BEEP XE[I]'R OR NSIN n THEN  CONTINUE  LLIST " FLASH [H]ECOS y RETURN  RANDOMIZE xm LINE FN BVAL$ ]U RESTORE @ RANDOMIZE fAT Mu@ RANDOMIZE <=% SAVE [H]/INT ( COPY E FORMAT |SQR  PAPER  DATA TAN H AND a[T][U]VAL [I] VERIFY ]o PAPER NOT [r[E] RUN ][E]▗J7AT P RETURN BPOINT [B]W DEF FN  GO SUB %M NEXT  PLOT  [ GO SUB [C]JPI INK ) STOP K`ATN [I]?CODE  CAT *A▝SCREEN$ J BRIGHT l FOR mCOS :TAN v THEN  OPEN #[C]VAL$ SCREEN$ [S] LET INT  ERASE [T]Y REM  BEEP  PLOT  INKEY$|▞ DRAW  READ  INVERSE FN p{ MERGE U[H]MR[E] INVERSE nE[Q]r]4 DRAW SCREEN$ SIN l[M] OVER FN  FLASH SGN <HSIN SGN /b; INPUT P MOVE ^Qb GO TO RND©1 COPY  MERGE P LET m LET .U]TAB  MOVE i' BEEP m[P]W▗] GO TO RNDGY[F]|[U] RANDOMIZE  BEEP RZ PRINT ]n^PI[L] OUT  GO TO & CLOSE #<G NEW [INT [N]. AND [F]+TAB  LLIST [R]kKW[I]`"MKINKEY$G[C]INT  OUT  INVERSE tUSR ~%ACS !. LOAD U/ASN U(U PAPER [F][H] LLIST -SCREEN$ )[R]-[O] CIRCLE [k* RANDOMIZE RKK[H]▝ASN [F]TAB  MOVE +m)[T]jyvSCREEN$ SQR  IF RNDWQ STEP TAB  BORDER E FOR ~[G] LOAD 1F IF  LLIST  POKE  LET e OUT o LINE J+Ct PAUSE  PAUSE  MERGE -SIN m▖RNDT" SAVE y<=WLN  FOR QZ COPY mJ▟V OUT | TO  CIRCLE pI_E6bziuINKEY$w[TjY"p CLS  NEXT SGN ^VAL bucAT INT P2SIN USR ?-ASN 6 THEN S INPUT *E PAUSE VAL$  GO SUB [F]`[F]INT HUBIN [F]LN G^bPIx[G]^YE COPY B©] COPY drATN ,lINT ACS  NEXT  FOR  PAUSE ZE%31LN ACS [S] LLIST / FLASH  FLASH -* FORMAT  CLEAR SCREEN$ SCREEN$ `VAL CHR$ [S]?{o COPY  INVERSE h GO SUB p[D]ACS ACS a RUN SGN INT !SQR AT INT LN  INPUT  PAPER [K] DIM 3USR INT  RETURN ▛ATTR TAB ATTR  LIST TAB p THEN , RESTORE " OVER [C] PAUSE  REM 1B OR ▘▛BSIN [F]ACS xU FORMAT B[G]P] THEN dVAL$ / RETURN  ERASE ^STR$ nXi[A][T]TAB  DATA [I] DRAW TAN x?▖▛ INVERSE [A] BEEP VABS 9W▟NOT  BEEP ▙/ZW LINE y[K][B] PAPER :tYe COPY V&h STEP [G]ACS ▗ayV CIRCLE XABS  IF  CLS ©AT VPAT  VERIFY +Z OVER  BORDER PINT mVAL$ ;CODE SCREEN$ [D]▟ BORDER [A] OPEN #tk RUN  OVER lVAL .ATTR n@TAN }/G< INK TAN 1INT (K9 PAPER .ATN  FORMAT  REM  PRINT 1 THEN  THEN  CLOSE #[F]D CLEAR UYLN z OR #MSCREEN$ Xb OPEN #b LINE V INK  DRAW |▛4 INVERSE / OVER jCODE -SGN  INK [G](8ACS  LET  FORMAT [O]ni CONTINUE  NEW i][H][ BEEP RNDe▜BIN  RANDOMIZE  NEW 4 GO SUB  BORDER  CLS RPEEK [G] STOP  CLEAR dSTR$ ]bCHR$ u{EXP  OVER ACS 2[F]eU ERASE  INVERSE  CLOSE #@INKEY$$▜ DRAW M RANDOMIZE COS [D]W OPEN # THEN k▛f▖FN RND[K]< LINE WWxx FLASH RND;ESGN fVAL$ z CIRCLE ▟& FLASH TAN -ASN  LINE [I] CAT - THEN USR  INK SCREEN$  PAPER [H] DATA SIN CHR$ EXP FSQR  PAUSE  OPEN #SGN roASN SCREEN$ SGN s[D]SIN [U] OPEN #4▟d[E]TAB *-©hACS  LOAD [C]u:▖x PAPER  FOR  STOP  LIST > INVERSE |[K],"ACS  OUT  RANDOMIZE O6TAN SGN SIN 0▟ LIST  RND[ LET ).[EXP ▘+TAB <W BEEP &[F]-VH NEW ▚ INVERSE SCREEN$ 6POINT ▗ MERGE RND POKE o[R][G] MOVE Q[F] COPY p[G]SIN q INPUT oDlvIq[K]q COPY  RESTORE  CLS = OR [F][R] REM [bFN SGN ACS IN  SAVE  INVERSE vKIN Aiv GO TO q]<EYRNDVAL$ [H] AND [L]▚[H] NEW  RESTORE  CONTINUE *D CLS  NEXT eFYTAB  LINE  FOR TAN  RESTORE 5iZ?[S]`r SAVE STR$ CHR$ lNOT yW2aATN BIN ▞DVAL  FLASH Ho[zqSIN J+tNOT  FOR  SAVE INT SGN  GO SUB CHR$  REM CHR$  DATA , DIM CHR$ [J]Y/SIN  BORDER  VERIFY q▞Y/P[M]jU/SCOS LN B▗ COPY ESIN TAN  BRIGHT SQR TAN INT  READ LN  POKE  COPY  DIM ▖SCREEN$ `*-SGN SIN LEN  PAPER SGN [U] MOVE PEEK SIN SIN ▝ INVERSE ACS  GO SUB ./USR [F]>=[G][G] VERIFY [C]VWUSR  DIM  BEEP SGN ▘AT CODE ▟ COPY ATTR yPIz[H] LOAD  INPUT Y OVER  COPY  COPY g INK [S]ef LPRINT  CLOSE # RUN F[K]STR$ PISCREEN$ ;INT  COPY  COPY  FLASH  DEF FN 6SGN  LINE VAL p▞[O] GO SUB  BRIGHT Vxw] READ  COPY  CLOSE #"y[H]INT SQR Hw[E]G LET sVeEXP  THEN Y COPY IN M▛ RETURN ;xCOS w CAT V AND z[D] COPY  COPY  DATA INT *+ INK USR I] GO SUB "v▟+ CONTINUE  COPY  COPY  FOR  PRINT  OUT iABS ▞[H]XPI FLASH  RETURN O READ  RANDOMIZE [J] RETURN  LINE  GO SUB [M]▖[H]E[[L]PI- COPY  COPY SCREEN$ SGN  FLASH AT NOT  NEW  REM STR$ ▜w IF ABS NOT  COPY  LOAD SCREEN$ POINT [J]FN K OPEN #USR [P]z COPY  COPY b FORMAT ie▞POINT  LIST  STOP  DEF FN NOT  FOR O[G] PRINT ABS  COPY  READ hud CONTINUE /▜j▚BIN AT  COPY  COPY  OVER ▖ ERASE :USR LN x[H]* CAT STR$  COPY  COPY [A] COPY [N]EXP USR AT HFN ATN f▚MSGN ACS  LET  SAVE  COPY ABS e$POINT [U]1+ SAVE ACS )[F] FLASH INKEY$ COPY IN X LINE 5z BRIGHT ZATTR w LPRINT <>{ VERIFY  COPY  COPY  RANDOMIZE  INPUT 4> CLS  COPY ~PI>=#^V/n FOR  GO SUB  COPY  COPY B0 PAUSE h DRAW =( LOAD  RESTORE  OR +FN| FORMAT w COPY  COPY  STEP  POKE  OUT HIN  READ  IF  MOVE  LLIST  PLOT   COPY MDPI COPY  COPY  GO SUB R} AND 0 STEP P CLS  BRIGHT 7PEEK  GO SUB  LLIST <=BIN  COPY <>>29[B] AND IN ! OR " FOR  DRAW  COPY < STEP # BEEP ~[Q]PEEK !u LET  COPY  COPY { LIST  RESTORE  STEP ( GO SUB S LPRINT PEEK zBIN  BORDER  RETURN  COPY NOT [Q] ERASE ATTR [B] MOVE  LET  GO SUB IN  LIST VAL !<> CLS 5?[S]IN >` COPY  CAT 4PEEK USR [Q]J©TAN :>= CLS PI(CODE  COPY  COPY COS  STEP [P]©VAL [H]SGN  FOR  NEW  VERIFY > COPY  COPY CIN [A]* DATA g,-( RETURN %" COPY  COPY ATTR  NEW ! OUT PEEK ) PAUSE , STEP  CLEAR 2 RESTORE *INKEY$@ COPY  COPY B POKE [G]/▖ INVERSE [O]SGN 4▞[P]USR ATTR <>E RANDOMIZE  COPY QU LIST BIN $-DEFB ERASE STR$  COPY  COPY  FLASH 7&ST4. LET 3 (C) PRINT  DRAW ▝AL RETURN KER'96 COPY TAB  REM u NEXT  GO SUB s▛ LPRINT ! RETURN ▞[w MERGE  GO SUB VAL USR  NEXT  GO SUB s▛ LPRINT ! LPRINT ▞[w MERGE  GO SUB VAL  LPRINT  INK !z GO TO  COPY  COPY  RESTORE <> GO SUB LN 1 POKE STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>  i SAVE  BRIGHT ▚1 COPY [Q]SQR {wMT[A] IF  RANDOMIZE n BEEP >= GO TO m CLS ▝ READ EXP SQR w/ OPEN # PLOT   COPY [K]SCREEN$  TO  COPY  COPY  INVERSE TAB [G] INPUT ▟<=INT  THEN  READ ▜[O] GO SUB  OVER  CIRCLE VAL$  REM Cq GO TO [K] GO SUB  SAVE ATN  INPUT PEEK ACS SGN [O]<=AT  COPY POINT TAB >= OVER [K] PAPER  THEN  GO TO  INVERSE  BRIGHT j DIM [G] GO SUB VAL$ ▝ COPY <>[M] GO TO TAB [I] INVERSE  PAPER PEEK  FLASH wSTR$ {▞ STEP [L]v COPY  COPY | TO  DIM VAL$  INK  STEP AT <=PEEK  FOR ▟PIl INK }<[D] GO TO  STEP TAB VAL [L] RANDOMIZE [M][H] FLASH STR$  REM  DEF FN ATN ATTR  PAPER 0 PAUSE TAB  INK ▙EXP [G] DEF FN  COPY [N] GO TO SCREEN$  GO SUB  INPUT  OVER  BRIGHT  PAPER [N] FOR SCREEN$ iPI[C]STR$ ASN  BRIGHT VAL$ U OUT STR$  FOR [O]POINT  LINE  INVERSE  NEW  TO  OVER  PAPER AT  FLASH ▖FN d.INKEY$ TO }▚[C][I] SAVE [S] INVERSE ▟ INK {[H] INPUT ▛ BRIGHT EXP  GO SUB SGN  DRAW {LN  BRIGHT [J] GO SUB  OVER [M] REM |R RUN cSGN ACS ▛ FLASH I RETURN  BEEP ATTR AT  INK  DEF FN  BRIGHT ▞x[U] TO [D] OVER  FOR [M] INVERSE =?PIz<>SIN  STEP [G][M]▘ BRIGHT  INVERSE INT [N]▛LN  GO SUB  LINE  INPUT <=>=[M]PI THEN  OVER h▚ DRAW ?EXP o LINE yx<= OVER  INK [O] REM ATTR  INPUT  PAPER ' NEW  CLS PEEK  TO PI STEP  INVERSE }B▖<=ABS SGN  LIST STR$ [I]PI FOR  DEF FN [N]ATN 1A OVER SATTR  GO SUB INT  INVERSE _>=gPOINT  THEN TAB j[I]ATTR [J]. LINE ▚[N] PAPER  DRAW © POKE AT FN  TO [J] REM TAB  GO TO VAL$ POINT ▜ INVERSE >= SAVE  DIM USR e▞TAN  OVER ▟[J][G] GO SUB ABS [M] GO TO  DEF FN y` LIST  STEP  GO SUB ▟[H]PI THEN  NEXT s|w[G]'[L] GO TO SCREEN$ LN 2 INVERSE STR$  BRIGHT ATTR  FLASH ▜[U][K]J LLIST {w REM  INVERSE INT 21cy<> DIM ?~bSQR POINT ▖INT  INPUT ABS ATTR ?[P]vy: DEF FN  LINE jPI OUT SQR  GO SUB m[H]x STEP  PAPER TAB  FOR  INVERSE ATTR  MOVE { STEP ok NEXT ABS ABS ▚ BORDER  DRAW z GO TO  STEP [K] REM  DEF FN i▛v PLOT  h?PIABS LN  INPUT [M]w<= DEF FN  COPY PIj[J] FOR VAL$ ATN  GO SUB [O]PIAT IN >= BRIGHT  GO TO  OVER  OPEN #[I] FOR  INPUT {y LLIST  REM VAL$ ▞ CIRCLE ATTR  BRIGHT PEEK ▜FN [I] AND [O] RESTORE }▖ NEXT POINT L CLS ^xSIN  Ex | DEF FN lABS z<> RESTORE [I] GO TO PEEK [H]z[N] GO TO hSCREEN$ [K]@ DEF FN |d STEP } DIM [N] THEN  DEF FN  DATA BSQR  TO  PAUSE (▛[M]VAL$ [H] ERASE I GO TO  CLEAR [U] GO TO [N] IF yy~0i PAPER  DEF FN [K] BRIGHT SGN EXP  TO  LINE [C] STOP INT  PAPER  INVERSE ▖ INK INKEY$ DEF FN $SCREEN$ T}SCREEN$ z INK r~j<> TO [L][H] BRIGHT POINT xFN t'[L] TO  LPRINT  INVERSE $▛z TO |[G] ERASE ge NEW l[D][O][A]3EXP ATN ▜ CONTINUE ABS >= LLIST /N3<> INK  STEP j[S] OPEN #IAT . COPY [B]TAB jEXP  TO [K]INT  INVERSE  STEP  CAT CFN o[T]PEEK [G] FOR ▖▞ INVERSE [N]SGN v[P][J]EXP EXP NOT ▖:<>SIN  STEP HAASN PEEK w▜L=INKEY$▛?] INVERSE ABS  INPUT  STEP ▖ GO SUB TAB ,NvSQR ▚ GO TO  DEF FN [J] RANDOMIZE  PAUSE { INK  BRIGHT |<[P]I[I]J[H] RANDOMIZE  LINE ▞EXP 8SCREEN$ COS }PI[M]v RETURN  TO s[N][G]`[K][F] STEP ▜ LINE  GO SUB  DEF FN ABS $SGN yc SAVE ATTR [G] RANDOMIZE ABS EXP  FLASH  OVER [K]▜V[H][J] SAVE SGN  GO SUB AT POINT  GO TO  OVER [G] TO  NEXT  POKE  DRAW SQR y PAPER BIN y DEF FN  BRIGHT xSCREEN$ y INVERSE PI NEW  STEP TAB >= BORDER  CAT wlEXP ABS  LINE z GO TO AT Z<=SQR  BEEP I[J] NEW TAB % DEF FN k$|t BRIGHT zSQR  GO TO  BRIGHT ATN  LPRINT SGN PI[K] POKE  IF c[L] THEN  GO TO PEEK [A]VAL$  LOAD b GO TO  LINE POINT  LOAD PIy▚X THEN EXP  TO j[I]< DIM mSCREEN$ hSQR INT  BRIGHT a@x[D][D] GO SUB  [K]FN ]( RANDOMIZE ▜ THEN  BRIGHT  INVERSE  GO SUB VAL$ [K]v: GO TO  PAUSE k[H] PAUSE  DATA ky▜EXP  INPUT  LOAD z OR [K]PI OUT ABS [G] BEEP STR$ z REM  DEF FN AT hy▖5[A]ySCREEN$  DIM STR$ ▚ GO SUB ▙▜[L] REM pz{kSTR$  RESTORE g MOVE {[Q]h▖ ERASE [O] IF < NEXT [L]PEEK  GO TO COS INT  THEN ABS  LOAD Z[J]BIN  TO ▞ ERASE +SCREEN$ b GO TO xcSGN LN [A] LET }|y NEXT [U] CAT  BEEP VAL$ v▞ LINE  PAUSE |ABS [Q] OR y[J]ATN 0 NEXT ABS v CIRCLE  INVERSE INKEY$ FOR {[H]▖ FLASH @ OUT POINT TAB WACS [M]PII BORDER wy<> NEXT mIO▘ NEW  OVER k[J]PI IF [M]SGN Nnv BRIGHT j[J]V ERASE  OR [H] NEW [I] BEEP  DIM [A] OR x▜JW OR 4 RANDOMIZE ASN  RESTORE v[I][G])i[ GO TO ABS ▚ ERASE  VERIFY NTAB ▜n[C].[G]SCREEN$  GO TO n/ BEEP [G][M]▜[I] LINE <> DEF FN j RESTORE m-x GO TO ACS y▖ RESTORE L▜ PAPER ATTR  INVERSE TAB  STEP  TO  THEN FN  RETURN [K] FLASH  BRIGHT  OVER  INVERSE SGN i[I]>=i[T]▞▖INT  RANDOMIZE  DATA  SAVE AT SCREEN$ r STEP [K]& BRIGHT [B]▜FN  INVERSE ▖LtATTR zt BEEP [K]INT CHR$  GO SUB SQR ▙ CLS xSCREEN$ u= LINE [A] OVER AT [K] READ  [U] READ  BRIGHT  STEP $VAL$ AT  FOR [L]CHR$ SGN <xajEXP 0[O][Q] SAVE AT FN ▛ STOP  INPUT SGN 9FSQR  LINE [K]POINT INT & OVER  ERASE  RANDOMIZE w)?TAB SCREEN$ x▞@G[C]ATTR y,[B]ATTR  LINE STR$  TO  BRIGHT [L]POINT [P]Z]e- RANDOMIZE V CIRCLE AT ▞v!}[L] OR I▛6 TO ABS  FLASH PEEK  NEW [U]▗ATN . TO  OR  THEN $ OR ATTR p LLIST  LINE ^▞AT [C]z▜.G&6 DEF FN RSGN C2[I]p TO  RANDOMIZE )ITAN ATTR [I]WH[E]u OVER 3L[C] DIM INT  CLEAR  BRIGHT ]`ATTR W[C][U]IN  LLIST ATN -J SAVE  ERASE ( DRAW  OVER  PRINT ATTR  OVER  LINE  GO SUB  LLIST  DRAW [B]ABS [K] LINE  LINE  INK  AND EXP DK GO TO ][E]▘ LET  TO &Iu READ SCREEN$ B RESTORE ASN ABS BI<> PAPER  GO SUB VAL$  NEW  STOP  CIRCLE ©6[R] ERASE ABS  LOAD  REM LEN ATTR B▞ ERASE  NEW [S] READ  CIRCLE  ERASE ▖7 CIRCLE VAL (/ RANDOMIZE INT  RANDOMIZE BIN 4▟ DATA w LOAD TAN ▗▛ OPEN #ATTR  PAPER ▟FN [B] GO SUB BABS  GO SUB ~ PAUSE QFN  BORDER [F]▖4[U] SAVE O[U] OUT ▖ LPRINT  MOVE 4)a~ BEEP - ERASE rNOT  IF SCREEN$ VAL -! OUT  LLIST  OR  MOVE %" DEF FN  TO  NEW g GO SUB  LLIST % STEP SGN EXP  ERASE E[A] IF Ur^ GO SUB /.^▚▛ LET  LET "[J] TO [O] LLIST G LINE  FOR [U]G[U]RND[B]}TAN C THEN  COPY  LINE J. MOVE  LIST NOT [T][K]POINT [H]M<> THEN p[M]F RESTORE  PLOT   BORDER yI[T]D COPY  OR [K]oVAL  PRINT yqACS  COPY n GO SUB [R]KPOINT  READ 8 OR {!CHR$ !aCOS [H]o CLS  FORMAT ^Z DEF FN  MOVE RNDi LPRINT c} OUT  STOP p RESTORE  NEXT <ACS  THEN  OUT ▖ IF INT 8@[H] SAVE  LIST  LIST  THEN  COPY & OUT SCREEN$  DIM [K][J]RNDQ[F]|[F] AND <=a|▟▛ CAT  NEW @=.EXP ATTR $/ THEN  CAT  REM [J]M{[I]CODE  OR LEN  NEW  RETURN [A] VERIFY (VAL  STEP  CONTINUE x▖<>. OUT ▛TAN B DATA AT  DATA BIN  THEN  NEW wv RESTORE TAB VAL$ [E]j OPEN #LN  NEW [B]t^)[J][K]▖w LLIST ▞[I] LET iw RESTORE 0'>=ATTR  REM ▜[I]TAB wPI RESTORE POINT ] RESTORE L REM >=SGN VAL$ [D]▞|[L] NEW  COPY [H]5wxy RESTORE INT ?/ DIM <> LLIST [Y BORDER q DATA SCREEN$  BORDER [N]ACS p LOAD u STEP y[O]  PAUSE y OVER Vy BEEP  DIM  BORDER u:PEEK [B]INT  NEW PEEK q[T] STEP  BORDER {iR[K] BORDER MFw[E]CODE ]w OVER  BORDER ATN [B]o4 CLS  LLIST q OR  LOAD [M] BORDER OPIq[G][M] CLS PIqCODE AT ^} GO SUB  INVERSE q▟ IF  VERIFY y[S]SCREEN$ PI RANDOMIZE  DATA u- CLS  LLIST ▜ THEN [H]xPEEK  CLS qATTR  OUT PI<= MOVE  THEN i[M]ABS ||ABS  ERASE ^w LINE P[O] BORDER  GO TO <={H~LEN ;[O] CIRCLE  OUT NOT  FLASH K STEP N REM O RESTORE  OPEN #▙a<>BIN [K]:O[R]U LIST LN [D]G OPEN # SAVE  OR LN | OUT  OUT SGN [M] STEP ; DATA <> THEN O OUT  NEXT [H]7[A]NhEV FORMAT R▖ATN >= LET IN  LPRINT INT  LPRINT ASN  FLASH N[K] NEXT NOT  PAPER ▟NOT  VERIFY o;ABS [G]▙NOT : MOVE PEEK .V INVERSE  NEXT  PAUSE BIN 7 COPY  FOR nPOINT  PAUSE = DEF FN z NEXT </[M]# OUT PEEK SQR  OPEN # LIST  PAUSE y RUN t LINE ?mLw0 CAT [Q] COPY  READ TAN n OUT HUSR ACS  OPEN #8 PAUSE [N] OUT zSTR$  CAT ;= GO SUB INT OdSGN x READ u> CLEAR ATN  NEXT = RESTORE ? INVERSE  CLEAR <OO& STEP  RUN [N] NEXT USR s COPY  READ =< COPY { ERASE ?b CAT  DEF FN  NEXT v OPEN #IN `VAL$  CLS  TO  OPEN #06TAB BIN ;Lq© OPEN #n/ OPEN # OPEN #G GO SUB  READ  OPEN # DEF FN ACS  POKE SGN  LET BIN CODE  CLS   DRAW  LIST  OUT  RETURN 0[T] OPEN # NEXT  IF  OR # NEXT  COPY [ READ z LPRINT  ERASE  RETURN  OPEN # RANDOMIZE  NEXT = OUT i COPY < STOP  COPY 8▞^SGN  CLEAR PEEK ▚ RESTORE  RETURN | LOAD y6©XS[M]g[O] RANDOMIZE m[P]G VERIFY  COPY [Q]ACS  FOR  LINE Xv CLOSE #LYo COPY [B]y VERIFY :!)<ATTR [I] THEN [B]L COPY BIN NOT 0▛<>$ COPY COS O CLEAR  NEXT < CLS NOT : RESTORE VAL CODE  CLS  OR  NEXT )0 GO TO ,58 COPY 0 DEF FN $ BORDER 0 AND PEEK  DEF FN RND THEN =3N RETURN <# RETURN  NEXT  READ n<,  OR  READ ?VAL SCREEN$ 0 GO SUB  OVER [ OPEN # DRAW A3G LLIST  FOR 45ZNOT < CIRCLE ATN  COPY  DEF FN ::LN  CAT VAL ;LEN 5AT 7SCREEN$  MOVE  NEXT 4= COPY  COPY  LINE ?▘ COPY NOT VAL a COPY  COPY  COPY  COPY 0 COPY  COPY  COPY  COPY  COPY  COPY NOT  COPY  COPY TAN  COPY  SAVE 15 RUN LOPT >= RANDOMIZE qTAB  RUN AD SAVE  DRAW ACS bL1 IF  SAVE  BRIGHT bINDA1~ RESTORE TAB IMSP[N] TO  PLOT  Bj RUN 2 FOR  INPUT tc[B]3 RUN HA LLIST ▞d RUN 8POINT Y RESTORE D RESTORE QU[J]POINT  OPEN # OVER u OUT C▙ BORDER VAL$ Y  CLOSE # RUN WKRC| INPUT adHL INVERSE [R] RESTORE O ;j RUN  SAVE H SAVE 8jF BORDER  DEF FN y COPY AT fF LINE _B RUN  FORMAT q PAUSE  CLOSE # RUN C RUN ,TAB F▝t VERIFY  INPUT  RETURN o RUN AG[P][D] BRIGHT : OPEN # RUN SH RUN -eFZ ERASE ROM INPUT U RUN 34 INPUT [@ RUN  LINE A INPUT [H]TAN l LINE  RUN 9i RUN LN CHR$ s RESTORE  DATA (LN  INK LN INKEY$[N]r[S] INPUT [N] BRIGHT nEG4 FORMAT c POKE A RUN MsTAB fj RUN  BRIGHT * RUN FCMPIv PAPER dk INPUT P[N]H BRIGHT jEXw ERASE USR  RUN N97STR$ gkF INPUT LN *J:l OPEN #HT PLOT   RUN  LLIST & INPUT STR$ COS s INPUT B[T] PLOT  ▞ RUN LN &m GO SUB rLN y DEF FN qW BRIGHT  TO  RUN RNDh PAPER EL3 FORMAT ▘L LIST  COPY  POKE ▙ RUN Nn[S] RUN LN  OPEN # LOAD o5LN  PLOT   OR  RUN LN L[E]B) RUN LN ▛nxl|uTAB OWN[L]8_;PIbY1+/▘uDYrY RUN  INPUT t RESTORE [S] PLOT  n RUN E=jmm RUN L[N]LN d ERASE & OPEN #[N]Eq OPEN #&J RUN ) RUN  OPEN # RUN  INVERSE pm ERASE  RESTORE [N]▝mLN $ RESTORE  RUN e RUN h ERASE >c BRIGHT <=K INPUT  INPUT KNOT dypCzACS  GO SUB $ RUN  RESTORE y[D]"TAB - PRINT 4 RESTORE uBIN % RUN CODE  RUN [D]LN  ERASE [L] RUN ASN ▜ RUN VAL wF[I] PAPER s POKE  INPUT L DEF FN ATN  CLS [G] RUN LN  LET  GO SUB peLN x AND q ERASE & BRIGHT pp BRIGHT  RUN i RUN  NEXT oSTR$ IER  OPEN # FOR [E]nTAN I BRIGHT pQl BRIGHT  OPEN #[D] RUN . RUN URP6kjCNfSPIFiINKEY$USTR$  LINE L%kSU RESTORE aSTR$  RESTORE  POKE wAeBLCK DIM  LPRINT ▝©sBTA[N]wLN nc INPUT  PLOT  SQR ox RUN VAL$  PLOT  kB[I] PAUSE LN 7iBA INPUT  RUN eYDRL(TAB ▜oPIR CLS  DEF FN tAP2 RUN O RUN [E]Z RUN - RUN [U]M BRIGHT CODE  TO q BRIGHT M[E] RUN  RUN  BRIGHT  RUN p[E][U] BRIGHT  RUN i RUN [U]M BRIGHT Ln BRIGHT M PAPER  RUN Em BRIGHT  RUN  AND l[A][U] BRIGHT  RUN [U] RUN jXpNT NEXT  GO SUB s▛ LPRINT ! LPRINT ▞[w MERGE  GO SUB VAL  LPRINT  INK ! LIST  COPY  COPY q<> GO SUB LN 1 LIST STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>TS4.3S TO  INVERSE  CLEAR  COPY SGN k THEN  CLS ATTR SCREEN$ [J] CONTINUE  DRAW INT  INVERSE  GO SUB  DRAW SGN SQR  RANDOMIZE  DIM  RANDOMIZE  REM  GO TO  OVER  STEP  TO  BRIGHT  FORMAT TAN  REM SQR  GO SUB  CLOSE #SCREEN$ INT  CLS  LINE I▚ INPUT  INVERSE  OPEN # NEW #x DIM  OPEN # REM JTAN  CAT  OPEN # PRINT  OPEN # OPEN # FLASH  DIM EXP [E]SABS  STEP  DRAW  PAPER  INPUT  BEEP CHR$ % OPEN # INPUT  BEEP [A] INPUT  POKE HABS [B] GO SUB BIN q[A]INKEY$PI%CATTR ABS  DRAW  FLASH ABS  BRIGHT x IF  OPEN #.<>ABS SQR INT ABS [A] OPEN #[C]4 REM  FORMAT ABS  BRIGHT  DRAW 8 STOP [A]Mz NEW 7POINT  BRIGHT ABS M[A]ABS  BRIGHT  GO SUB | REM ABS KC OPEN #ABS IATTR ABS  THEN 8Mz;ABS [T]▗!d  POKE |OABS  INVERSE x LLIST ABS  RESTORE  OVER qABS [A] OVER h<=7[A] FOR ▞ABS SCREEN$ INKEY$[H]zAT  NEW ABS [P]USR ABS d<= DIM z GO SUB -[S]ABS 7SQR [H][A]ABS  OPEN # BORDER [A][K]%[T]ABS Q LINE  NEW  COPY [P] RUN [K] THEN ▝ABS [A]7 RETURN M CAT VAL ABS SGN [A]<= PAPER  LLIST ABS PI GO TO  DEF FN  RUN q OPEN #USR  NEXT  POKE ABS * LOAD  LIST ABS ?<kM NEXT  DIM  OR APIz1 SAVE ABS  GO SUB  BRIGHT ▜ABS ABS  LET  OPEN #~ RETURN %_ CONTINUE SQR  OPEN #z DRAW  LLIST %ABS M REM [A] RETURN [A] COPY u[U]▖M INPUT O OPEN #M GO SUB qY[A] LINE  STEP M OPEN #] DRAW c[O]oa INVERSE [P][A]INKEY$ PRINT [A] BORDER  DIM yWc#z INVERSE  STEP CODE ▛[A]wTAN  INPUT [U] VAL$ < THEN ABS  FOR SGN w[U]Q| INVERSE  OPEN #ABS G BORDER  BORDER [M]wi COPY MABS INKEY$ PRINT 4z<=[N] OPEN #VAL$ w OVER *PI[P]@ %[N]4MINKEY$[O] RETURN   LOAD y*[O] NEXT  REM  BORDER }cmI OVER  AND  INPUT  BRIGHT [O]~W /qkINKEY$ FLASH ? CAT VAL  CAT ABS z|[A] OPEN # OVER pM  REM  THEN y[K] OPEN # INPUT [O] BEEP  CLEAR qxVAL c$. DIM  OPEN #ABS  THEN NOT  NEXT 6PEEK  OR  LINE }| NEXT  OPEN # CLOSE #`cABS [H] DRAW  OPEN #x~3VCODE ATN cEXP  RESTORE NOT [A] OPEN # INVERSE  DIM PI OPEN #6/ SAVE  OPEN #6 DEF FN  OPEN #| PAPER [K]6y© AND  SAVE q BORDER G6f CLEAR  LIST ABS  BRIGHT 7=6[A] CAT 6LN  LIST [A]NOT  RUN NOT [A]▖ THEN  NEXT INKEY$ READ  CLEAR &" CAT [J] OPEN # READ  NEXT [A] RUN AT 4 CAT [J][A]4 CLEAR  OPEN #[A]z OPEN # OPEN #o CLS [Q] RUN SGN  AND DoACS 6USR  LLIST  OUT cSQR c BORDER  CLEAR )▛ LOAD  AND  GO TO  COPY  LIST [A]<Oc LIST ▖cABS [A]CHR$  READ c[A] COPY %6[A] GO SUB ABS mF[P]o NEXT qSGN AT INT PEEK  DIM coDCHR$ ABS PIy OPEN # READ =cR RETURN  AND cEXP  INVERSE  RUN  NEXT  AND  NEXT m/ NEXT  NEXT 4 GO TO M CAT [J]cNOT  READ [F]6t#cATTR  INVERSE  STOP  LINE [A] BRIGHT TAN  STEP  STOP  OPEN #/ PRINT c INVERSE [P]wFN  AND GSGN CHR$ INKEY$ BORDER  CLS )SGN / BRIGHT  AND  COPY  OR c[J][O][P]c~/)< DRAW mE COPY Gcy IF PI MERGE  INVERSE n6ASN ][U]| OPEN # BEEP { DRAW ▚▜ABS  OPEN #SGN  SAVE ) OPEN # LET  NEXT [J] OPEN #o^[L] AND  RANDOMIZE Q_l/[T] MERGE <=AT cCODE  CLS _ FLASH CHR$ [A] POKE  FLASH  DRAW  SAVE  INVERSE  READ ca^{ INVERSE SGN <= STEP [K] PAPER [A]{ CIRCLE L~ DIM )[K][A] LLIST q LOAD [A]FINT  RANDOMIZE [A][O][O]ABS [A]INT ▛ABS  LLIST EXP  OR  COPY [A] LLIST a DRAW [A] OPEN # DEF FN  PLOT  E RUN [L]FN PEEK [H][A]POINT ATTR ~ NEXT  OPEN #▞ LLIST  BEEP  NEXT [K]cL INVERSE  NEW  RUN [K]>= RANDOMIZE [H] OPEN #_/ATN ASN [A][I]|c AND [C] RANDOMIZE ABS  PAPER [A]ABS r COPY [L]▛[I] LLIST [L]LN TAB [A]▙ RUN ©©5 LLIST [A][J]M OVER  NEXT  RUN <> COPY ABS [A]4TAB  PIABS   LOAD  PLOT   OR  READ  OPEN #ABS M"▙[A]ABS [A] CAT ?  RUN 5 NEXT  OPEN #AT ▞ BRIGHT ABS ATTR m<=[A]E[C][S]M [A]SCREEN$ cY^[A][S] STOP  PAUSE [A]FN [A] FOR  NEXT |EXP U z RETURN i  OPEN # OUT   REM ?VAL [A] SAVE  NEXT  INVERSE [A]= LOAD m< FLASH  TO m PAUSE  DRAW VAL IN ABS Mz[J] LINE |OM[K]^ LOAD  INVERSE  TO  RETURN iIN  NEW ABS [K] RANDOMIZE  RANDOMIZE m BEEP ASN ▟▚y INVERSE ABS  RUN ▟z7 TO ▗_`~x[A]ABS ▜ RANDOMIZE *ABS -q PAPER 7 THEN  GO SUB  BORDER POINT ABS  CLEAR  SAVE  COPY #<zABS  CLEAR  FOR  COPY [U] CAT  CLS W BRIGHT  OPEN #ABS  STEP SQR  PLOT  <= COPY  INPUT [U][J] THEN  RUN  DRAW WyACS [U] TO <=© OVER . PAPER # OPEN # POKE  NEXT [A]& NEXT Y INVERSE z CAT  RUN <=| OPEN #[K]RND NEXT [U]M. OVER  OUT _SIN I THEN y POKE vaSGN M5 LOAD  BEEP y[L]w- LLIST [A]M▜7My.=ABS  OPEN # PRINT  OVER  MOVE  INK 4 IF u MOVE zIN [A][L]4 RETURN  POKE ABS 7[A]BIN w LLIST ABS M[H] INVERSE ▝)ABS [A][G]ABS o[J]▝SQR  LPRINT M OPEN # LIST  CAT  INVERSE M GO SUB  OVER B[L]ATN  LOAD ?M[M]% INVERSE  LLIST wax LET [A]M/ABS ATTR [A] GO SUB I/[A] REM [A] b[y1M▛ OUT NOT [A]INT ? INVERSE  CLEAR y BORDER  OPEN #j>= DEF FN [O]ACS [R][A]<> LPRINT ABS  SAVE [M][A]LN ABS [I] [A][H]:J SAVE i LIST [A]ABS  OPEN # CONTINUE  OPEN #{<=M[A]VAL$ NOT ABS VAL "ABS  INVERSE ▚M<? INVERSE  OPEN #ABS [A] POKE ABS M?▟ OPEN #M<ABS VAL ?nABS [H]ABS hSTR$ [A]TAN ABS  NEW  PRINT [A]EXP  BRIGHT  INVERSE [O]y[K]TAB COS *wINT  NEXT nABS z>=[K]CHR$  RUN  INVERSE  FOR [F][K][K]INKEY$IN  STEP ▛. LOAD *[G] BORDER  POKE ABS  IF <= FLASH y[A][U] THEN [C] CLEAR [N](X THEN hz LLIST zABS  NEXT INT [U]STR$ VAL$ 4 FOR  LET ~ LLIST  LET {PEEK  INVERSE ' LINE z RETURN y<= DIM ABS RPIABS )ABS [K]APIy7CHR$ iABS 4z STOP RND7 POKE  PLOT  SGN  READ ABS m CAT ▛zA OPEN #zABS  COPY z RETURN WzABS {GPEEK AABS hLEN  CLOSE # THEN FN ATN ABS ▙ABS n/ BEEP  INPUT  ERASE tzjFN 7 FLASH ▙[A]; CONTINUE >=[O] BEEP AACS qAABS [A]x BEEP wA RUN TAN 3MO▝ OPEN # SAVE SGN A[A]ATN  LET  OPEN #AT [H]4MCHR$ [A]▘ POKE  SAVE  OPEN # DRAW K[A] PLOT   PAPER .  MOVE SGN  BORDER }[A][K]wPOINT ABS vABS ▜_▙[A]lAIN H[N]FM BORDER  INVERSE  OPEN # PAUSE  LINE  LET [L]W?<ABS [A][S]K OPEN # MOVE NOT #M[A]7CHR$  REM  OPEN # READ  STEP [K]k7 STOP McQ CIRCLE ▜▛ BEEP [I]VAL  BEEP % SAVE  j/ABS  BORDER ▙/k<>[A][P]M[A]-▗[A] REM  GO TO  RUN  NEW ▝SGN g DRAW  OR *F GO SUB  REM ABS  STEP j<= OR  CONTINUE [A]ABS   DATA um RANDOMIZE ~[A]m DIM  LET [A] K LOAD INT  OPEN #LN EXP [L]INKEY$[A] CLS  DEF FN ▛ABS mNOT =M|# OUT m[A]TAN z4% DRAW  POKE ABS z?Mw[F] OPEN # OPEN #MY}TAN ABS IPIATTR Z POKE z INVERSE ATN M COPY ABS <#M[A]* BEEP  NEXT  INVERSE  FLASH  LLIST  LLIST MABS  LOAD  LET M/▝ABS g DRAW OM| OPEN #M[K] RUN ▝LN <*BIN YAT 6ACS  COPY Mh PAPER  RANDOMIZE  RANDOMIZE *PEEK  BEEP  RETURN i[K]M RANDOMIZE y* RANDOMIZE  VERIFY INT */ SAVE M STEP  OPEN #INT wABS /▟ABS  CAT 7[K]W▟ SAVE z NEW ]MATTR W INVERSE 2ABS Y CIRCLE  FOR ABS 4[H]v[R] LLIST ▛ READ ABS  LOAD INT NOT ?WMv DEF FN TABS j>=~[A][T]y[K]  RUN (/[L]T[A]ABS n RANDOMIZE [A] THEN  OVER ^MWy[A] NEXT ABS ABS  BORDER :?[A]4ATTR Z OPEN #Mw OR COS U INVERSE [A]~{[K]FN  LOAD y[K] IF ACS mATTR v* LINE SGN [A]m STOP [A] w|▞  ERASE [K] INVERSE q{[F][A][I]▟ SAVE c[A][T] INK  WcACS O OPEN #ATN  COPY  NEW M STEP z FOR  TO c CLEAR [F] OPEN #c[A]Z FOR  LINE  PAPER J CAT  NEXT M5;tc[I]INT . SAVE c STEP  VERIFY j OPEN #I>=▛POINT ACS 5c[L] IF y[P]c OPEN # STOP cVc DEF FN  CLS  COPY wABS  STEP jACS [K] BORDER [P]oQ NEXT  BORDER ▜[A] COPY 2'I CIRCLE [A] FLASH | NEXT  CLS [L]B RND NEXT  STEP  NEXT  FLASH CHR$ [A] IF  NEXT  CLEAR 4 CAT  NEXT [A] OUT  O? NEXT [A]< INPUT  LIST SCREEN$ +  PRINT  SAVE 4 STOP  c PAPER  NEW ABS [L][E] RUN TAN  INPUT [A]7.D[A]LN `ABS CODE  PAUSE  PAUSE  COPY O F<= DATA AT INT  IF  POKE Ylu.▙SCREEN$ ATTR INKEY$U LINE 'LN  COPY SGN  INPUT -_ LOAD  GO SUB  INPUT I RETURN  LPRINT ABS ▛vwPOINT SCREEN$ SCREEN$ yU^RNDESIN ACS oATTR  OR  LINE CHR$ NACS  OUT  OVER  INPUT [M]SCREEN$ n;[K] PRINT SGN ATTR ▜[E]V CLEAR ▖{}eATTR [J][K]INT  NEXT  GO TO  PAUSE ▟ INPUT  RETURN  DEF FN SCREEN$ it[J][T]ATN L TAN  OVER <=▞▙ OUT  PAPER Q▟ OVER )9 GO SUB IN SGN [K] FORMAT  CLEAR ▘[S] INVERSE  DEF FN *Q LIST  BEEP 2INT ABS  FLASH d▝SGN [Q]FN 4[H] OUT V BRIGHT  CONTINUE PI"[Q]Qt▜ PAUSE ATTR EXP SQR  LPRINT  FOR ATTR 2[D]▜EXP [B] BORDER  TO [D] STEP ©[B]L INPUT STR$ ▖ PAUSE qASN [H] GO SUB  LOAD (CODE [D]▛heFN  STOP *ATN e▝SQR USR  LLIST hAT SQR  IF xEXP y[C] DEF FN  COPY ▝SCREEN$ h▖▜( BORDER 5 DIM  CLS AT  NEXT  LINE yWPI$ LLIST  OVER K STOP  READ [J]yu[H]W[B] CIRCLE a(/ AND  READ  RUN .TAN  GO SUB [K][H] LINE +`ATTR fuUSR  VERIFY >=[P]FATTR g=LN ATN  DEF FN ASN  DATA  GO SUB .AT fFN %Z5USR  AND lMQ▟A{ INVERSE POINT USR  RESTORE  BORDER  LOAD  TO AT w5eLN nN[S] STEP r(f[I]▖SGN  OPEN # CIRCLE M PLOT  ATTR [S]INT [M][H]yPIVAL$  STOP SCREEN$ SQR  FLASH  STEP SGN ▘ MOVE ~gJ POKE  NEXT  RETURN  LOAD  BRIGHT [M] OR  FOR vETPOINT  CLOSE #[C]ATN CODE  FORMAT [K][J]▞[H]POINT ▜ ERASE y STEP s OUT INT J CONTINUE [L][J][I]POINT I STOP Ly GO SUB  CONTINUE INT  NEW ly©COS [E] PAUSE ©USR [L]▜ CONTINUE f▚gFN S[O] COPY ABS ▗ PRINT x[H]▞▚ LINE [C]([B] BEEP -[B] BEEP [H][J] LINE  CAT  DATA [S]eIC INPUT ^CHR$ s!USR © INPUT  COPY  LOAD  ERASE  PAUSE [K]w[J]g[G][P]USR  PAUSE z[B]xu▞[G]5m NEXT i BRIGHT m GO SUB [L]USR INT  LET [S]© NEXT ^/ READ PEEK []>PEEK oi5 RETURN  COPY  INPUT AT ATTR JrIN [J] STEP  POKE y}?[M]Ff[H]EXP 5 LPRINT  OR R LET  FLASH [U][J] ERASE ^▖MPIACS  ERASE  OR <>'▘[C]@▝ GO SUB ▝`J~5SCREEN$ [C] PAPER STR$ USR INT r/{ed CLOSE #U MOVE R>{]▘[E]z ERASE  LINE t[I] FLASH [Q] CAT LN  INPUT BIN ATTR POINT  GO TO KINT b PAPER  SAVE [P]|Bwz tCODE & GO TO uUSR  DEF FN 9STR$  LINE UeINT :m[L] OVER  CAT  BEEP  RETURN 8[I][G][H]ACS © CLEAR ▞SCREEN$  PRINT SGN [L]6▗POINT  FLASH ?j INVERSE AT hVPI DATA SPI GO TO STR$ USR [C]i▚TAB VAL$ FN  LINE  THEN ▗42[J]] NEXT LN  PAUSE v▖FN z;w^ INPUT  CONTINUE SQR BIN  FOR I@vEXP D INPUT k RETURN PEEK  DEF FN [L] E[G]! RETURN ▚ OVER  POKE SGN [J][I]! DIM AT yFN  DEF FN >m▞ FLASH  DEF FN z▜wuLN  STOP S LOAD >*PEEK ABS Vf[F] THEN }K FORMAT O> NEXT itEXP ATN  LOAD  LET  DEF FN [K]fPOINT [N]INT 9XATTR y[G]-w OVER SGN ASN INT {ATTR @[H][J] LPRINT ©INT a© THEN SGN ywvCODE  STEP U<> INVERSE P LOAD qAT x7[K][E] [H]B OVER 6POINT  RUN  REM f GO SUB SQR jVAL$ VAL$ Q[J]c OVER ATN LEN 990fcSGN av STEP ?SQR  ERASE SCREEN$ iuG^RND▗SGN [B]▝[H][K]SCREEN$ ge<=ATN "vKSCREEN$ N^INT  OVER LN y%` STOP ACS L COPY d INPUT 7 FLASH R3dR[B][L] RND<=AT Wf<>STR$  LOAD PEEK iIN +[J]9zT TO [T] THEN ATTR VAL O[P]@i[G] FLASH  LOAD ~ ERASE STR$ `▞ePI CLEAR PI▛ MOVE m4PI GO SUB INT [K]▖hRND INVERSE  AND u BRIGHT AT SCREEN$ ] GO SUB CHR$ [N] NEW n▗ OVER ▙'`PUSR  RETURN TAB - FORMAT POINT i$e[H] PAPER  NEXT ISIN  NEXT  INPUT  STEP I▚▜▝[[K]FN  FLASH {+i[F]▜[J]POINT  OPEN #bHv PLOT  u2ATTR g3R[I]> GO SUB FN ▞idFN POINT  THEN { OR [B]USR [M]x RESTORE wgFN ATTR  FLASH SGN  VERIFY 3 BRIGHT  PAUSE AT ▖[H]POINT  MOVE  NEW TAB SCREEN$  OVER  BRIGHT STR$  LIST V FORMAT PIy▞V▖~ INPUT  PAPER STR$  LOAD [M]FaEXP [K]ASN  OPEN #SCREEN$  GO TO CHR$  OVER  LLIST  DIM ?[A]HuPOINT i OVER  LINE [L] BORDER {ATTR wvEXP  GO TO  IF [K]Io[I][C]mn BORDER USR AT G@TAB [J]SQR  FOR  OPEN # BORDER STR$ ABS h [D]cK ERASE l,VAL$ 2INKEY$ PRINT 1jUvk[P] POKE ABS /}ABS ▞WASN [F]▚ LINE  LET lABS  STOP * STEP 0SQR  RESTORE 9ADPI2 FOR ?▚STR$  RETURN  STEP  ▚EXP INT  BRIGHT m-: LINE  RESTORE # CAT AT &▚▞▘SGN m<= LINE /▜FWd[ NEXT IN  LPRINT SQR  FLASH  GO SUB {[G]Dd[I] LINE  PAUSE  STOP  DEF FN 1k VERIFY  CONTINUE i5R[K]wE;s' LINE  STEP  CLEAR ABS ▜[H]NOT AT oATN  CLS 8[D]AT hfv[I]ACS rPEEK { CLEAR B[ STEP ▖w[H] LINE EdPzCHR$  NEXT [S] SAVE V[H]▞k GO TO EXP  GO SUB ABS  SAVE  COPY Q THEN ATN xEXP 2n[P]jfwETINT  BEEP ASN INKEY$▚SCREEN$ [T][J]PI[D]+SGN nt DEF FN  RANDOMIZE Q=[I] LIST ▞FN  BRIGHT xey,▖Pmq LOAD  COPY  POKE  DIM [H] PAPER  LPRINT  OVER  TO [L]xuXSINT TAN PI THEN STR$ & FLASH zy▖POINT ▛|2"!rI[K]X7/ INPUT c NEXT  VERIFY  VERIFY ATTR INT SQR ATN ▖E[ IF ,▝STR$ wxf▜|85IN +wWINKEY$SGN J[E] CONTINUE  GO SUB  STOP H INPUT AT V PRINT SGN  THEN ATTR 3o RANDOMIZE [C]▞SQR VAL$ [L] PAPER  REM wSCREEN$  MERGE  CAT "SQR ATTR yPIz[H] LOAD  INPUT Y OVER Yg INK [S]ef LPRINT  CLOSE # RUN F[K]STR$ PISCREEN$ ;INT  FLASH  DEF FN 6SGN  LINE VAL p▞[O] GO SUB  BRIGHT Vxw] READ  CLOSE #"y[H]INT SQR Hw[E]SQR GHsVeEXP  THEN Y THEN M▛ RETURN ;xCOS w CAT V AND z[D] DATA INT *+ INK USR I] GO SUB "v▟+ CONTINUE  FOR  PRINT  OUT iABS ▞[H]XPI FLASH  RETURN O READ  RANDOMIZE [J] LINE  GO SUB [M]▖[H]E[[L] GO SUB PI-SCREEN$ SGN  FLASH AT NOT  NEW  REM STR$ ▜w IF ABS NOT  LOAD ABS SCREEN$ POINT [J]FN K OPEN #USR [P]zb FORMAT ie▞POINT  LIST  STOP  DEF FN NOT  FOR O[G] PRINT ABS hud CONTINUE  CONTINUE /▜j▚BIN AT  OVER ▖ ERASE :USR LN x[H]* CAT STR$ [A] COPY [N]EXP USR AT HFN ATN f▚MSGN ACS  LET ABS e$POINT [U]1+ SAVE ACS )[F] FLASH INKEY$[F]X LINE 5z BRIGHT ZATTR w LPRINT <>{ VERIFY  RANDOMIZE  INPUT 4> CLS  COPY ~PI>=#^V/n FOR  GO SUB B0 PAUSE h DRAW =( LOAD  RESTORE  OR +FN| FORMAT w STEP  POKE  OUT HIN  READ  IF  MOVE  LLIST  PLOT   COPY MDPI GO SUB R} AND 0 STEP P CLS  BRIGHT 7PEEK  GO SUB  LLIST <=<>>29[B] AND IN ! OR " FOR !< STEP # BEEP ~[Q]PEEK !u LET [A] COPY  LIST  RESTORE  STEP ( GO SUB S LPRINT PEEK zBIN  BORDER  RETURN [Q] ERASE ATTR  BORDER [B] MOVE  LET  GO SUB VAL !<> CLS 5 GO SUB ?[S]IN >`4PEEK USR  OUT J©TAN :>= CLS PI(CODE COS  STEP [P]©VAL [H]SGN  FOR  NEW  VERIFY >CIN [A]* DATA g,-( RETURN %"ATTR  NEW ! OUT PEEK ) PAUSE , STEP  CLEAR 2 RESTORE *INKEY$@B POKE [G]/▖ INVERSE [O]SGN 4▞[P]USR ATTR <>EQU LIST BIN $-DEFB ERASE STR$  CLEAR 7&ST4. LET 3 (C) PRINT AL3 RETURN KER'96ST NEXT  GO SUB s▛ LPRINT ! LPRINT ▞[w MERGE  GO SUB VAL  LPRINT  INK !] GO SUB  COPY  COPY >=<> GO SUB LN 18 NEXT STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> RETURN  DIM  RESTORE 1f COPY [K]POINT wg TO  COPY <= COPY SGN gFDTUf[I] FLASH  LOAD LEN  RETURN  COPY  COPY  DEF FN z OUT <= COPY p LINE  TO  RETURN PI LET  AND VAL  COPY USR ACS   COPY  LOAD  INVERSE MsjATTR [K]iASN @ LINE / INK  OVER  TO ATTR [J] FLASH  READ k! COPY >= COPY >hg INPUT  STEP  TO AT SCREEN$ [J]▞wvPOINT IN g THEN  ERASE  LOAD  STEP AT g[I]gD LLIST CODE  CIRCLE  COPY ATN  CLEAR ?g INPUT  CIRCLE  POKE ▟53S▜ LINE  GO SUB  OUT  NEW  INVERSE  GO SUB U LOAD  OVER SGN  INK LEN y*iPPI BRIGHT  VERIFY  GO TO  LINE  LET  TO  DRAW  SAVE . COPY [Q]ATTR [K]wv COPY  CLEAR ▜POINT  THEN [A]gf INVERSE  STEP  TO  BRIGHT  OVER 'Z COPY  CAT @i INK c)gtEXP  BRIGHT  INPUT 6 LET  DATA  CIRCLE oATTR SCREEN$ [K][J]▟ DRAW ▞▖xwi[O] RESTORE [I]POINT INT  THEN ~[T]Fe COPY SQR c[P] OPEN #[J]xV)g@PEEK  OUT [H]INT  BRIGHT ▟g[B],@SGN CHR$ ?[F]fFD1 CLS f[H]POINT  THEN  TO fl>=VAL$ ? VERIFY V PRINT  CONTINUE ,[P]  CAT  ERASE Nf1 THEN ; THEN  PLOT  IN  CLOSE #>y[B]<NOT VAL  TO [O] RESTORE  VERIFY E*[C]k MOVE  COPY d[I]SCREEN$ f; CAT  THEN  COPY RND LLIST  COPY W[H][E] CAT  PAUSE VAL$ ^SQR  RUN Ne COPY e FOR  PAUSE 4▛ READ ACS  OPEN #f▞[T]COS gF+u RESTORE R▚VAL `▚gW VERIFY [<= BORDER LN h▞xgev CLS w▜[J]POINT SCREEN$ SQR h<ACS ;gSCREEN$ [J]wSQR gf*4 d▜<NOT h%4 LIST SGN  VERIFY i MOVE INT <>[F]h][E] COPY [G]LN  SAVE ih GO SUB NOT g CAT  MOVE : OVER  INK [J]yg)[K]Bu[I]xXCODE (hSIN yi LPRINT iLN [L]hy COPY jINT  MOVE nEXP  CONTINUE h COPY ASN  CLS 7[R]wSQR gf&3 S▚< READ h#7 ERASE  READ hin LLIST tF PAPER  MERGE  COPY  PLOT  v[K]ih<= OUT OTAN [O]PI TO g/=&hEXP  STEP Ae▚ATTR hCODE COS $[P];Mh[L]H CAT  MOVE h RUN _SQR h DIM  BORDER  CAT f BORDER <> INK 5g▞gfE"INT  INPUT  STEP Be▜ BORDER < READ h$7 COPY [M] OUT  NEXT  MOVE o58 PLOT  INT e^[R] CLS  LOAD < PRINT  AND  COPY nn OVER  DEF FN  INK AT sw#4[L]oh FORMAT  AND LN )g RETURN u OPEN #u RANDOMIZE  FORMAT [S] LLIST  LET gf[O]▚ehPEEK  RANDOMIZE [K] INK # STEP fD[IN 2 Cevg^▖} BEEP ATN [O]xPEEK  CAT ▛~g COPY INT  OPEN #NOT gf8 DRAW di LLIST = BRIGHT  LINE ,PI3f[C] RUN  THEN 2Tf▜hTAB 0 DEF FN ACS h[H] GO TO [N] DRAW y5Zoh[N]?PEEK  COPY  STEP e LINE  READ  COPY ASN LN  THEN [J]▖ CLEAR [H]fE LOAD [H] CLOSE # RUN PEEK  ERASE 2Dfv▖Lo▚g DRAW  NEXT  STEP z READ o[M] PAUSE  RETURN  TO  NEXT = NEXT  CAT  OVER x COPY  NEXT 0 RETURN i NEXT ;+Kf MERGE  RANDOMIZE [Q] COPY VAL$ 3jTi▜[I]SQR JNOT SGN fo NEXT @ RETURN  OPEN #[L]? COPY ge? INPUT b. COPY INKEY$7 DRAW g LINE [K] DEF FN ▖x MERGE  COPY  LIST  LINE 43! PAUSE ! COPY "23 NEXT  OPEN #Nk COPY w▖iNOT hgNOT 8i0 CLEAR hf= RETURN ho2c INPUT ▟|[K]fCOS ASN  INK v MERGE STR$ U COPY ePITAB  PLOT  vwj BORDER qTAN y^ BORDER ▗©[I]WyLN = DIM  BEEP ;g[I] RETURN d LOAD ayh OR [N]3 DRAW [C]7v[H][ COPY ▜,|SGN  BEEP {Q LOAD LN  LET [H]~i NEW  CLEAR h{1 COPY >EXP  BEEP jPI© CAT  COPY SGN k PRINT ~ S[I] BORDER 2Xg COPY  FORMAT 1[P]o COPY  CAT  INPUT PIf[P]an RANDOMIZE q" RUN  BEEP  FOR } k NEW  CLOSE #?h INPUT gATN  INK [J]▟ BEEP  CLS  GO TO ATN  COPY ▜[J] RUN >= AND >g/gdPEEK  BRIGHT 0 STEP S  COPY 6NOT =i[P]0 DEF FN )(g3 CAT <; SAVE  CAT  TO  COPY [U]NOT  ERASE 0 CAT _ CLOSE #d0 CAT  PAPER +f0 CAT D VERIFY 7 COPY 3 GO SUB /^LEN >= CIRCLE  COPY  PLOT   INVERSE  MERGE 1~©[K]POINT wgIN  RESTORE  FLASH AT  LINE  GO SUB TAB j[O]<=[H] INPUT  DEF FN SGN / DRAW POINT  TO  GO SUB  INVERSE EXP [N] PAPER  GO TO  OVER ^SGN  THEN  STEP  BORDER <=SCREEN$ [M]POINT AT SCREEN$  INPUT  INK  INVERSE H OVER ABS |VAL  THEN [L][H]SQR  LINE >=[P] REM  READ  STEP EXP  BRIGHT  INVERSE TAB ATTR  SAVE 8 FORMAT SCREEN$  STEP [J] INK  STOP IN  REM  INPUT [L]EXP  INVERSE ATTR  LINE  STOP [P]LEN  DEF FN  PAPER  OVER [K] BRIGHT  OUT ^[M] POKE SCREEN$  PAPER SGN INT SQR  BEEP , TO  LINE ABS  DRAW ▞Q IF  REM  DEF FN ▖ FLASH PEEK FN  GO SUB LN XEXP [M]<>PEEK ▛ INK  OVER yTAB [G][D] GO TO  INVERSE FN  PAPER  STEP  PAPER 1COS  VERIFY  BRIGHT AT CODE [J] INPUT SQR [I]iATTR COS  FLASH  STEP eAT 3 INPUT  PAPER TAB [M]z▖ TO [K] CLS  OVER ATTR INT  DIM j [R] VERIFY |[F]}2{[K] THEN ABS  LINE <>INT [D]pU<> INPUT [G]PI▜[M][U] CONTINUE X LINE  OVER  TO  BORDER ABS  GO SUB  OVER  INVERSE $ PAPER  INPUT [M]PI[<> DRAW [M]INT  GO SUB VAL$ [G]SGN AT  FLASH  OR NOT cINT  GO TO  COPY 9 CAT  BRIGHT PEEK [S]|[I] THEN [F]RND<STR$ 5POINT  LINE ABS zATN ▗[M]INT [K]w<>▛dIATTR [D]RND?▞ RETURN  LOAD  TO [S] INPUT TAB INKEY$ATTR  NEXT 91,y THEN [L] TO x BRIGHT SCREEN$ © COPY 9eINKEY$ FLASH )[G]▜INT  RETURN ▛[D]NOT EXP  GO TO  INPUT ABS & CLS [D] OR  OVER  CLEAR  LOAD  GO TO O OR NATTR PI PRINT  BEEP [K]EXP [A]©~|PIATTR [J]fFN VATTR POINT ACS 1TAN SGN dWPEEK { CAT z▟<>1[U] DRAW  COPY V TO kACS  INVERSE [L]%h[G] THEN [M]BvD BEEP j OVER 2! BORDER ▛ INK  LOAD  RUN ATTR SCREEN$ CODE  DRAW [L]POINT SGN  DRAW  INPUT 8 CONTINUE urINT Y PAPER ACS [K] COPY gfl▚LN INT SQR x THEN POINT >[O] PAPER [M] GO SUB  COPY SGN  BRIGHT  FLASH ©fCODE  THEN  RUN  INPUT [Q]POINT  TO  BRIGHT INT Z© [G] OPEN #eFN [K]yw?' LINE  LET FPOINT  FLASH LN AT ABS  GO SUB r LIST  STEP  GO TO [N][G] FLASH  PAPER PEEK KAXINT © LINE EXP  STEP ATTR N▛<=ABS EXP AT y BORDER  READ [G]GvSCREEN$  THEN SGN 2[N]"9 GO TO [L]SQR j@ AND R[I] DATA  THEN  STEP <> CLOSE #▟ FLASH i LOAD <Q STEP  GO TO TAB xINT ▛zo COPY [T]jfWPDPISQR +▞]LATTR Y ERASE  MERGE  PLOT   LOAD  INK LN N CAT B[J]POINT j[K]© CLEAR [K]SCREEN$  BRIGHT jFN g[G] RANDOMIZE  TO  PRINT  GO TO  LLIST w LIST  RETURN  DEF FN PI>= READ  OUT  OUT  THEN  COPY  INK ▝ OUT  BRIGHT ABS zb[K]<> RANDOMIZE  BORDER SGN jgFN X5e[G]AT  STEP ▞<>[D]a[P]? TO ATTR SCREEN$ SGN  FLASH  GO SUB  DEF FN [I]z OVER [L]ACS  SAVE 'ATTR GMAT <>ABS @eATN  SAVE POINT [K] PAPER  STEP pABS ▚FN  GO TO #([J]b DEF FN INT  READ  IF [A] CONTINUE u[M][H] LINE  OPEN # BRIGHT ABS > TO zD▚SIN  DRAW [P] INVERSE  DEF FN dAT [I][L]4INKEY$zATN  CLEAR  OVER  GO SUB  LINE  DATA  PLOT  ▖EXP / READ [J] BEEP ABS - READ  OR T COPY [D]w[H] CAT  FOR INT SGN Y[E]G[H]▞fJ[O]POINT EXP ▚TAB  THEN [J]:[E]} PAUSE 0 RETURN  COPY  LOAD [L]POINT [F]sVAT ATTR PI[M]CODE  OUT ▟ STEP [I]yt THEN <q[H]SQR  GO TO  LOAD ▛U[G]SCREEN$ xRND<= CLOSE # TO &CODE  POKE gPI FLASH  STEP SGN  BEEP  COPY  RETURN  GO TO [L]W[G]VAL$ # OUT INT " BORDER K[K]PIzATTR [J] PLOT  6 REM IN TAB [I] DRAW L, TO  LET  RETURN  LOAD ATTR SQR [K]%[J] LOAD  FOR SCREEN$ 2CODE m VERIFY p[B]▘AT %en[K]LN Z[I] OVER $?cm'x2 RESTORE G[F]CODE  LET  THEN j[S] AND [K]iPOINT EXP ATTR k> PAPER  STEP SINT PEEK  OR ▞l_  LLIST /4BINT tAT  RANDOMIZE  STEP yfVRND▜INT VAL$ CHR$  PAPER [D]0[R] DEF FN  CIRCLE ▞RNDAT  SAVE  PLOT   LINE SQR ?=[L]▜Z[M]e[J]FN  BRIGHT SABS j[E]$[S]mACS  LLIST - CIRCLE IN ▚yVAL$ AT I[J][K][H] LINE ▝&S PAUSE SQR pW[C] PAUSE  FLASH f[H]VAL CODE  TO *[H][J]z PAPER  GO TO  INPUT ABS e RETURN [M] OVER [L] NEW POINT ATTR [S]SGN [J][I]▞EXP  BRIGHT (8 CAT  LET J INK COS Z']X CLS JTAB SGN X% TO INT zSGN ▘[F] NEXT PIf CLEAR ACS W NEW [I][J][H] BRIGHT  CIRCLE  DATA ATN VAL$ h OUT [P].TAB r<r ERASE  THEN SGN ' CIRCLE SGN  OPEN # OPEN # CLS SQR  DATA  THEN  BRIGHT ▛EXP [P]GCHR$ PI▞wINT  DATA [K] LIST  GO SUB  INPUT mt[T]N=[O]*ABS  PAUSE SGN ATN ▝M MOVE  MERGE +D REM FN t NEXT [SIN  LINE FN  READ [F] FLASH  INPUT vq GO TO ATN ABS :▟[O]A[F] INK y[I]SIN [J][A]ASN SIN  RUN  NEW m CLOSE #[F]SGN  THEN  LPRINT FN [ NEXT ~Au"COS 5 GO TO  ERASE INT ATTR U[K]INT  STOP  FOR PI▛ATTR  CLEAR  RETURN zTAN  COPY  OVER  LINE w[K][H]POINT 0 OVER Bg[I]EXP ▜D] INK ▟K STOP E DATA LEN " OUT [vCODE  CIRCLE [R]VAL$ ▜POINT [M]/WjFN QSGN ?SQR [S] RETURN POINT CHR$ *`LCOS [T]POINT  MERGE [C][D]AT [J]h▘▞vf TO KINT _ CONTINUE  E,ASN  SAVE &▖+▝ PRINT ▛5 OR ▛[D] CIRCLE CODE  NEXT h RANDOMIZE [G] TO -xyy[K] DRAW  CLS ▖ RESTORE bCOS fSGN vyNUSR AT p DEF FN  RANDOMIZE  LLIST J BEEP CODE INT  DATA  INK ▟ REM & CLEAR ATTR  OR kINT [J]PULN  IF INT %ZT GO SUB nECHR$  GO TO [L] VERIFY  THEN  COPY [B] BORDER ~ BORDER E▟' LOAD $ RANDOMIZE m[K]w$▚y/j OVER  RANDOMIZE X[L]o[U]FN  DATA  RESTORE X▝G^l[Q]SQR y PRINT VAL (▝If THEN  OPEN # MERGE ▙4< CLS ▜KSQR r0 CAT 2] SAVE ATTR h BEEP  LPRINT N NEXT INT AT POINT [K]▞6 REM U[U] LINE TAN  OVER #/LEN 1ACS  IF Y[K] MERGE  MERGE ,t PRINT ACS  MERGE .PEEK 'BIN #"ACS SQR P REM BIN K[H] FORMAT  CIRCLE  PLOT  X[J]w MERGE [N] VERIFY [P] CLOSE # AND 7I[B]6 LINE @[S]VAL$ [H][K]pqmVAL ?SQR QABS  THEN R INPUT p^▗<>=SQR [U]SIN  FOR ▖ DEF FN L CLEAR  NEXT  DRAW  INPUT  OUT INT >= AND [^ATTR M[B][H] CONTINUE [E]LN SGN /@]8[D]USR ^ ERASE o]IN ]▞ GO TO  RANDOMIZE ASN BSO PRINT  RANDOMIZE  IF  CAT  FORMAT COS < REM EXP [T]SGN ATTR ACS ATN ▟|[L]<aCzNOT  LLIST l GO SUB  PAUSE ▝ BORDER  STOP  CLEAR  FLASH w#.[I] BEEP  CLOSE #D PAUSE  ERASE FF<- LIST b FOR  VERIFY SGN INT  STOP )K IF  RANDOMIZE VAL$ qINT ACS [O]N FOR LEN  LOAD  LET  LOAD  CLS ▞g[H] PAUSE & IF . DEF FN P[E]SQR SGN ABS :TAN [K] READ  ERASE jK OUT |BIN 7<▛ MERGE <VAL$ xSIN v[T]? OUT LN PI CIRCLE  INK [L] LOAD o DATA  FOR tvCODE &LEN  PLOT  #SQR <> RETURN CODE ]FN  NEXT  FORMAT U NEW I# GO TO SGN [P]);~[B]WqM<> LOAD  LLIST  CLOSE # GO SUB [P]- BEEP (Se[N]&©[P] CAT PI MOVE  NEXT [O]INKEY$i RUN o[I] PAUSE SCREEN$ G[J]p STOP qPEEK  GO SUB  BORDER  NEW :PI DIM [R] AND  RANDOMIZE Q/>[N] COPY 1)[P] OUT PD[J] COPY YL_C[O]#FTAN  DIM  PRINT 1 PRINT COS  REM L>GE SAVE  PAUSE AT (PVO{[C] OUT + ERASE  CLOSE #COS EX'X BORDER MI IF [F] VERIFY AT  OUT ( THEN OUN POKE ATN  VERIFY ; DIM  NEXT AT MXTxSAT 3 DEF FN  CONTINUE >=? STEP  READ HLSTO) ERASE  PLOT  USR [U][F] COPY D[O][L] INK [K] ERASE  FORMAT  LET [J]I NEW ▝$+ CAT ATN $[K] INPUT  CLOSE #[A]DSTR$ [R]#f:9 AND EFPIMM BORDER FN ASN SE BORDER +4▙ RETURN LEN  LPRINT ND8 ERASE }V PLOT  w▙V DIM FQUSQR 6 DIM  OUT  INVERSE  RESTORE LOBASN  MOVE ; LOAD  BRIGHT  LOAD ]IN HI LOAD (RA[M]INKEY$[P] DIM q| PLOT   DIM  LOAD <= DIM ;ATN  DRAW TAB  MOVE [S]ADRqSTR$ [S] DATA y& DATA  RUN 0 RUN [H] ERASE  MOVE  IF [G]5 INK  PRINT ACS [Q]w MOVE TAN  CONTINUE  REM [M]<>T▖K CIRCLE  REM  CIRCLE / DRAW  NEW  SAVE AT  MOVE <?POINT  REM ABS h BORDER 2 BORDER  PLOT  PEEK ©8/K PLOT   INPUT 1 INPUT WHGASN  FLASH  LET NE OPEN #2X MERGE - RETURN  INPUT  CAT  OPEN # BORDER  RUN <L3 DEF FN "< SAVE 4INTROSC,1 CAT kot THEN $ NEXT 2h▝ NEXT $+ PAUSE OL NEXT GAB. BORDER %0[S] LET [U]EXP 0>=0[T]T RUN <> RUN SGN  RUN f>=2 LET 0,#F1 LIST  STOP ▖Q CONTINUE )>=; SAVE  SAVE # LOAD  MOVE <=[C]SGN SIN  SAVE TATN ©2 THEN 12PAS LOAD IZE THEN  PLOT  >= OPEN #5 RESTORE EMPO RESTORE <=L[E] INVERSE  CONTINUE 1hASN  RANDOMIZE %<> LPRINT  RANDOMIZE  DIM K[Q]<> RUN 6 BEEP M RUN e FORMAT PEEK  RETURN ▚B COPY  NEXT  GO SUB s▛ LPRINT ! LPRINT ▞[w MERGE  GO SUB VAL  LPRINT  INK !▝ PAUSE  COPY  COPY  GO TO <> GO SUB LN 1 INPUT STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>7[O] RETURN  DIM v1f COPY [K]POINT wgAT <~ PLOT  INKEY$ GO SUB  COPY  OVER SGN  THEN ?mSCREEN$ i PRINT  RETURN  LOAD  INVERSE [K] LINE  READ  STEP  PRINT  CIRCLE  COPY  BEEP  RETURN  OUT SCREEN$ INT  BRIGHT  OVER [K] LPRINT  LOAD  STEP [N] DRAW [J]INT ATTR jfv FOR  FOR  MERGE ▞x SAVE STR$  TO  INPUT ABS z NEXT b>= DEF FN  OVER  BRIGHT SGN  PLOT  - CAT 1v CLEAR  GO SUB  LOAD ABS  DATA A PAPER  GO TO z6Q FLASH  POKE ▝ INPUT  INVERSE {faACS [C] DEF FN  BRIGHT  TO AT  RESTORE ▚ GO TO  LINE  TO  CLOSE # GO SUB  BORDER ▟ABS gd<= RETURN )@ VERIFY f OUT PI RANDOMIZE z[M]SGN [N]6e PAPER I<> LOAD  INPUT VAL$ [S] SAVE  LIST TAB [C] BEEP [K] RUN  SAVE yL<= SAVE  INPUT [L]p@ SAVE ATN  DEF FN >4vPOINT CODE USR wFN  LINE  GO SUB  LIST x DIM ABS [K]SCREEN$  FLASH  RETURN  STEP ATTR POINT  THEN  TO  INVERSE  BRIGHT b RANDOMIZE [K]`m▛TAB = INPUT  STEP y▞[J] LINE  INVERSE t[K] DRAW A▜ RANDOMIZE  BRIGHT [M][I]POINT <>C DEF FN  STEP TAB ▜ CAT B LET AT x PAUSE EXP zw<>0t BRIGHT SGN x[H]SIN  RANDOMIZE w9iINT  MERGE  STEP c▜ FLASH ▘ RANDOMIZE  INVERSE CODE LLN  PAUSE [K][I] RANDOMIZE | OVER ▙ DEF FN w STEP yvSCREEN$  NEXT AABS w▜EXP  GO SUB  PAUSE &4TAB  RANDOMIZE INT >= RANDOMIZE  INVERSE  GO TO [A] OPEN # RANDOMIZE  PAUSE [M] IF ▞s RANDOMIZE  INVERSE TAB [I]SCREEN$  LINE . LET  CLEAR SQR <>TAN [O]SCREEN$  MOVE yTAN  BEEP FN I OVER  RANDOMIZE ▖POINT SQR <> BEEP [C][U]n TO  RESTORE ▛SQR  FORMAT  CAT  LET  FORMAT ABS yEXP  OVER  OVER  INVERSE  CAT [M]INT ATTR / TO AT POINT [D][O] OUT cyfPI[L]AT #RND# THEN  GO TO  GO TO  FLASH J[S][S]k GO TO  ERASE RN GO TO  GO SUB  GO TO SGN ATTR  CIRCLE  NEW [J] BORDER P_LEN <v FLASH SIN  STEP 9[J] CIRCLE  BRIGHT  OVER  THEN ATTR v SCREEN$ J>= BORDER `[H] ERASE USR  POKE #POINT  CIRCLE  INVERSE [C]o CLOSE #[J]ZfLN  INVERSE LEN TAB  OR K(LN  INK  NEW ▗ IF  MOVE R[[K]Tp© NEXT RND THEN  INVERSE  STEP AT O BORDER 9 COPY ▞[I] FLASH  OUT TAB INT SQR p STEP (SGN  AND  POKE ATTR  MOVE TAN I[I]▟B RANDOMIZE ] AND WEXP VAL$ &C▞i LET  IF  NEXT  NEW SCREEN$ y CIRCLE =y} NEXT FN  THEN RNDw LINE [S]PI STEP [K]ki OR  FLASH  INK [J]KAT  VERIFY [F]gv AND  MOVE +▞IN  RESTORE  LPRINT a ERASE YwINKEY$ GO SUB |F  STEP  AND [H] LET  STOP $) CONTINUE  INVERSE EXP ABS w DIM TAB sATTR  OUT  TO %>= STEP  OPEN #y%©[D]p POKE  STEP SQR  POKE  RETURN  IF  DATA  OVER {vEXP © PAUSE if[I] BRIGHT RND GO TO x~>z LLIST ABS POINT  INVERSE [L][I]^!KAT .- BEEP INKEY$ GO SUB =[J] VERIFY  OPEN #INT  OPEN #[C]▜[J] PAPER  OUT z[I] READ unSQR yPOINT G GO SUB R BEEP v[H]<>u NEW  LINE 8} IF  OVER SCREEN$ POINT [K]DAT  TO  STEP ER BRIGHT  DRAW  LPRINT [O]< POKE SQR z<> CLS l[L]vLN  RESTORE ▘xw[G]xEXP  OR NOT  PRINT AT  NEXT ▚u TO  LOAD qw[I]rUSR  RETURN [K]▜/<=d STEP [P]VSGN  DEF FN [B][K]W~ATTR ▜ BEEP  OVER  FORMAT  TO SIN [H]SGN POINT SGN ▞SCREEN$  BEEP FLEN [M]▖a[H] CAT  FOR FN  !)/LEN  AND  FOR  LOAD  STEP SQR ATN  DEF FN EK[U] CIRCLE  THEN  LET SCREEN$ [N][L]STR$ }VAL$ SIN  TO   GO SUB  DEF FN  THEN zPI)< ERASE  STEP SGN wATN  CLEAR  GO SUB  GO SUB  ERASE [L]fPI▖[M][E] OVER <= TO  DIM  LINE SCREEN$  STEP AT ATN  FOR wC GO TO  RANDOMIZE  OVER [S] LET SQR  TO  THEN HW DRAW u RETURN Z, TO y GO SUB [K]ABS [E]# RANDOMIZE ATTR  CONTINUE ][R]INT SGN [S]%k CIRCLE  NEXT  GO TO  THEN  DIM FN AT [J]K[ OVER ATTR =# BRIGHT AT [I]0[Q]$ STEP  BEEP f OVER )[J]" CIRCLE  BRIGHT ▙h LINE  FORMAT q▙ RETURN  BRIGHT $VAL  LET Wk[C] PRINT  RANDOMIZE  POKE  RETURN INT [R][U]3 READ  CLEAR  NEXT f[C] CLS SCREEN$  FOR y NEXT i GO TO  GO SUB  OVER gPI GO TO fAT ▚CHR$ COS EXP q▖SCREEN$ %ZPITAB INT ATTR @SGN $/ OVER  PAPER / STEP ▗n PAPER Iv STOP TAB  FOR m CONTINUE uSGN yLN  FLASH  RANDOMIZE z GO SUB [L] GO SUB  INVERSE TAN  LET [YSGN  FOR }KIN D COPY ▖ATN [J]EXP SQR LN  OUT  RUN DV REM JTAN y RANDOMIZE <=NOT IN [L] CIRCLE  PAUSE $ OVER ABS [L] LIST  OPEN # CLEAR [M] LIST LN SGN  GO TO  PAUSE TAB [I]▞LN  GO SUB {[L]wx IF {fATN  BORDER yywzATN v FLASH SCREEN$ ▜ LET / DEF FN  BRIGHT Ih[C]SQR (H OVER % CLS TAN ▘9% AND  LLIST  RANDOMIZE  STEP SQR ATTR PEEK % OPEN # NEXT 3▗B<=▛[K]t MERGE ] DEF FN  LET  INK NOT [O] STOP -L POKE XATTR 7qSGN ▖I OUT  STEP SGN ▖w&[R]P AND IN  LPRINT ,CODE LEN INT ▞ IF 7 REM [N] LINE L OVER SIN NOT AT [I] FOR ▜SGN [K]}[A] GO SUB  OVER  AND  {=INT  TO [J][I]LN  BRIGHT  LOAD  FOR -ATTR A▟<>}EXP  TO ) FOR  INVERSE z▚▖ LINE  INPUT  OVER ]SCREEN$ gv LOAD  IF  DATA AT [K][J]SCREEN$  LINE  FLASH  TO INT ▞ATN AT [J]*#x MOVE [K][I]POINT  SAVE =SQR  BORDER  DIM  PLOT   BRIGHT  OVER ATTR yPIZABS ia GO SUB $ CIRCLE  INPUT  FORMAT [M]g DATA  ERASE p5w SAVE s DATA  LOAD  DEF FN  BRIGHT INT  STEP FN ▚[C]SGN SQR W[D][J]SQR N PRINT iABS  TO ▞6^SQR PH THEN  RANDOMIZE  BRIGHT  AND ]) OUT  COPY ATTR  BORDER y[L]▖ PAPER  ERASE [I][K]+^ BORDER ©W AND oBAT PIBIN BEXP EXP SQR #/w> BRIGHT  FOR <> GO SUB  TO yPOINT [ THEN q STEP ▚y▜MLN  MOVE [A]ABS [J]y/ GO SUB d FOR [L][H]▞  STOP [K]VAL$  GO SUB BIN ABS  RETURN  LIST  LIST {[J]f▚rACS eVAL$ INT SQR  LOAD SGN [K]ATTR AT w^[[I][H] CLEAR  BRIGHT SQR ATTR [K]w THEN  TO  STEP  ERASE  LINE STR$ IN /ATTR  FLASH [S]o MOVE [ MOVE L[E] COPY  DEF FN SCREEN$  VERIFY [G]< OVER SGN ATTR LN  MERGE 5 PRINT n LPRINT xFN  RESTORE  DATA [H]SQR [L][K]Pye_ VERIFY :z>INT | READ  INPUT nLEN  OVER  CIRCLE ▟rTAB ▞[H]<r MOVE J RETURN  ERASE  DRAW <( RUN PEEK  INVERSE ATTR BIN ATN  NEW ▜ATN [P][T]NOT TAB wf[G]INT n ERASE [L]O[G] OVER  LOAD  CLS TAN [T][A][K]:LEN SGN ? BORDER ATTR  FOR gf[H] FOR ▚▘▜▞ COPY [K]▜[I]. LOAD  STEP [F]u ERASE SCREEN$ yw0-TAN / OPEN # COPY  STEP U LOAD  POKE PEEK ABS  TO ATTR ▖>=[USR ' STEP [J] CLEAR )IN [B]ATN  COPY  LOAD  DEF FN ifTvJg OVER ABS PISGN "i10[P][M]AT Z©n LOAD  VERIFY [J]<= MOVE  NEXT ;y MOVE ▜RNDYwdATTR yINT ATTR TAN INT o OVER SGN TAN  RESTORE  PLOT  L[K]▞FN ▚ RESTORE x CLS  DEF FN [K]wCHR$ [A] BORDER  RESTORE ▖ INVERSE [M]ysABS  OR  CONTINUE xwDEXP [L] NEXT  PRINT  PLOT  [J]SGN ATTR [J]xj LET  AND  LET ▘] BRIGHT BIN  LINE n LOAD  VERIFY n FOR h_PIk PAPER ▜hAT /^POINT Nv'ASN [N]PIINT  INVERSE [D]I]* RESTORE  SAVE  RETURN ZZ MERGE VAL$ $ATN [L]INT CODE [T] VERIFY  FORMAT o[I][W[U] DIM INT [J]iG?y/n LLIST  BRIGHT  GO SUB  MOVE ] INPUT ▘[J]SCREEN$ [A]/ny[H] LIST LBr[B] DATA  PRINT <>ABS ^ASN =$TAB  GO TO FATN w& FOR zg[I]' LLIST ABS >= ERASE VAL  FOR  INVERSE  INPUT  FLASH [▖Q FORMAT  LOAD  OR [J]FN  FLASH  GO SUB ^ INPUT LEN [K]w▜▗ FORMAT q REM [S] FLASH  INK  LINE [U]0 INVERSE INT  BRIGHT SQR [U]▖VATTR  LINE :[I][F]SGN zwEXP STR$  REM V' BEEP nh▗+ LINE [P]RND▛[G]USR LN VAL$ jwy<>G INPUT h RESTORE  LINE r-RNDz SAVE W8▞4 MERGE @O THEN >=[L]AT ©SCREEN$ % PLOT   LLIST  SAVE  BEEP TAB ATTR WWAT ▝▚+ OVER  FORMAT INT SQR SGN R▙;&SQR  DEF FN [K]VAL$ q THEN ATTR STR$ pxLN &PIJ BRIGHT J OVER V[L]▝ REM  PAUSE  FORMAT {7/BIN USR [L].[AT 3 DRAW  DEF FN  PAPER INKEY$dvw[P] GO SUB [N] DRAW SCREEN$ ABS EXP Z GO TO ^ BEEP  DIM ABS [K]ATN  READ  DIM )[M]yPIN LOAD ABS {w[F]AT !TAN eUSR 4 DEF FN [4LN JTAN x LIST  PLOT   RANDOMIZE  INVERSE TAB ▞PI OR :Oz▜SQR  GO TO  NEXT POINT [K] FLASH LEN [K][Q]ATTR ▞/NOT  INVERSE ▟AT eRND8ABS  THEN  LINE PqocLEN v~^[K]IN K GO SUB  GO TO rACS t FLASH oAb[H]U LOAD  CLOSE #QL FLASH <= FLASH SIN ▛ BRIGHT y4 INVERSE USR _SQR  BRIGHT  INK  STEP 5{[K]VAL$  BORDER AT  REM  IF INT  NEXT " RANDOMIZE [K]nABS m▞nBINKEY$ CLEAR CSQR  LLIST U THEN Ji VERIFY  GO SUB  OUT t REM [,o FORMAT  OVER  MERGE ASN ZCHR$ +[U]^{ZRND▛ LLIST : BEEP ATTR ABS INKEY$INT -oPEEK  SAVE 1ACS K[I][Q]SQR  LOAD ▙INKEY$ FORMAT  STEP ATN q TO POINT [L][M]▖ LINE BIN kSGN cQJ[C] TO c NEW  CLS  COPY [P]NOT © LPRINT [K][M]SQR <>$[D]INT ATTR  INVERSE SGN  OUT ?QTAN  RESTORE  LLIST  READ / DRAW  READ  LPRINT ▛AT <>EXP [M]SGN  LINE INT [M][G] OVER CHR$  OUT <>i LPRINT  LLIST USR ABS ,> LPRINT STR$ [L]AT  LINE SCREEN$  THEN TAB ATN USR © PRINT 8 READ  CLEAR [Q]! GO SUB PI LINE POINT  LLIST © FLASH  LINE  STOP  STEP  FLASH  CLEAR  LET HNOT ABS  LPRINT [F] STOP [M]<>[K]SGN CHR$ TAN ▗USR ABS BIN  OPEN #SGN  STOP  CLS rCHR$ [Q] LPRINT [L] THEN SCREEN$  MERGE P OVER  LINE  OUT SGN  FORMAT CODE ^ABS [H]AT LN [M] LINE  OVER  BEEP @ABS  MOVE i LLIST NOT [L] INVERSE H RETURN  LPRINT FN ?▘W OVER  FLASH ATTR  BRIGHT SQR  RETURN iZ/USR  RETURN ~STR$ ▗[G]SGN FN h4POINT EXP STR$ IN  DIM [H] FLASH [O] LLIST POINT TAB  RETURN TAB PI LPRINT  TO 9[R] RETURN INT  STEP STR$  STOP [T][Q] LINE  RETURN  AND ` OUT TAB [H][J]c DATA [K] THEN [L][R][N]?-SGN STR$ [Q]▚ LLIST USR [G]▞▖[C] LPRINT  STOP ©[P]STR$  REM J RETURN [ATN L< RETURN  INVERSE AT USR ▞▗TAN CHR$  STOP [R]AZb~IN SCREEN$ i NEW  OUT  INVERSE [M]r4USR  LPRINT  STOP SCREEN$  BRIGHT [P]# ERASE [R]IN STR$ ▝▞NOT  INVERSE TAB ▚6z STOP EXP  STOP B LINE O[T][R]ABS  DATA  INK [Q] OUT [M]PI[L]BUSR  LPRINT A LPRINT  STEP INT  POKE HBIN [R] STOP J ERASE [O][Q] LPRINT i[U] STOP ATTR  STOP INKEY$ LLIST IN  STOP  DATA [K] CLS  LPRINT <>ABS [J]CHR$ V[J]CABS SGN  STOP INKEY$qABS IN [M] RESTORE PI OUT [L][Q][K] LINE SGN POINT  BRIGHT  DIM  LLIST  LPRINT [P]y LIST IN ▛▛( LPRINT [Q] LPRINT ? SAVE ($[P]C PRINT  INVERSE ▛[Q]BLN  FORMAT [K] FLASH SGN _A©= INVERSE a.4 STOP [L]LN GZ LPRINT [S]_ OR <=[P]IN &▗▟" LPRINT ABS ▙▘ LPRINT o8aCHR$  CLEAR ^H LPRINT [Q] LPRINT [O]_[S] BRIGHT  INVERSE !<=q LPRINT [Q] LPRINT ▗▜A[S]BD LPRINT @` LPRINT B[O]W INVERSE ]▟▘[S] PAUSE j%: LPRINT LN  INVERSE [L]E CLEAR  FLASH mPEEK  LLIST h/[L]© CLEAR  PAPER  TO USR INKEY$@FN  CLEAR EXP  POKE LN  LPRINT AT [S]© ERASE  LIST  CLEAR [Q]=J LPRINT ATTR  LPRINT 8< LPRINT $ CLEAR ^IN ` LLIST Q[D]USR b DIM  LLIST  LPRINT © STOP U LPRINT  STEP : DRAW  LPRINT  ERASE CODE  LPRINT WE#INT ▜©K LPRINT ^ OR b+xEXP SGN  COPY ACS &O LPRINT  PAPER [K] LPRINT  LINE SGN [A]? LPRINT  LOAD | COPY [G] LLIST  LPRINT w LPRINT ▞ READ y LPRINT STR$ q IF  LPRINT @INKEY$i PAPER  LPRINT  FOR  RANDOMIZE  OUT AT 5 PAPER v LINE ABS  LPRINT  AT ▜ RESTORE B LOAD  LET yIN CODE ' LPRINT f LPRINT y<> STEP  RANDOMIZE USR  LPRINT _[O]PI READ diIN " GO SUB / LPRINT ▞ READ  IF  LPRINT  STEP  DRAW q LPRINT ©w^ LPRINT B~[K]? LPRINT K-?[M]<>c? CLEAR  LPRINT E LPRINT ABS  LLIST  DIM [Q]c% RETURN  LPRINT [L] [P] AND  LPRINT @▜ LPRINT  CLEAR ATTR uNOT AT  BEEP m▜▖[I][J]▙9POINT  COPY jw▗[E] LET  INK  PLOT  [M] RESTORE  LOAD  OVER  INPUT  DATA ▖[J]POINT  INPUT  DEF FN  PAPER [K] OVER  COPY  DRAW  CIRCLE  PLOT  8 NEW [I]lfv[C]TAB  CAT  LINE  POKE ^ COPY ▟ CLOSE # COPY POINT VAL$ SCREEN$  CLEAR X[H] DATA  COPY { GO SUB  OR RND SAVE <>k<> CONTINUE FN 6 PRINT  INVERSE iSTR$ ▘ STOP  CONTINUE = CLS  READ bTAN  LIST r RUN  DEF FN .^<> INPUT  DEF FN P{[P][I]POINT  LOAD  OVER POINT  INK  STOP _LN  STEP KZLN IN ▙ REM  AND  OR  GO TO l CLOSE # NEXT ▟ BEEP ▝ CLS ▝ OVER Dx OVER  SGN & FLASH u>=[N]g!m LINE PI PLOT  USR zASN  CAT ' DEF FN <>2ASN FN mSIN [I]SIN [G]x PRINT [J][N]%[P] RUN  GO SUB *aRND▝ATTR  RUN TAB ePOINT  LLIST  OR  GO SUB PEEK  CLOSE #z<>INT ▝VAL RND OPEN #VAL$ l DIM nW.[G][L]<=TAB  LINE [H]w}=TAB STR$ r_=IN [K] BORDER  OR TAB =-▝|POINT =IN || FOR  OR  IF ' RETURN  CIRCLE  IF ATTR SGN ▞[I]▝ PRINT if▜K LET IN g'z} DEF FN EXP  NEW y[C][G]CODE USR  RETURN [I][N]<=▟TAB  AND POINT [R] DIM ▝ STEP  FOR Y LOAD # DEF FN "<? MERGE ▝ LET FN  LIST  REM e REM }x▖>=WSQR ACS  RUN VAL$ lg LLIST [B]IN ATTR PININ VAL$ 5 CAT USR [R]| LOAD z GO SUB  COPY LN ▝[N]) CLS SGN [N] BEEP ▝▜©]W VERIFY  DRAW z▝ PAPER ▜G▜ REM  BEEP [L] STEP z CONTINUE FN  AND TAB v[C]o[H] RUN USR Z DRAW STR$ z^USR T/USR STR$ [F][O] PRINT F▝RND> PRINT  RETURN  BORDER TAB [V INPUT ▛▝!EXP COS BIN ▘PEEK  PAPER  RUN TAN }▛ BORDER FN SQR 0 OVER "G[E]STR$ [N]Aq[N] RESTORE  FOR  CLS A IF " OUT BLN xFN SGN  COPY qATN C|©©ABS 4 LOAD  BORDER  MERGE ▝ BORDER  REM  PAUSE SGN  SAVE RNDINKEY$USR j NEXT PEEK  IF  NEW z LET @ RETURN  FOR  FLASH lx[T]PEEK  CLS  OPEN # CONTINUE  PLOT   DEF FN  COPY ABS T INPUT  FORMAT =IN  POKE CHR$  OVER LEN  DEF FN ▝Q LLIST VAL$ PIUSR C STEP y▜INKEY$ OVER RSGN iOKNOT  RESTORE  DEF FN Of7[F]▘ FLASH  OVER u LOAD CODE  OVER $ OVER yFN  CLEAR [T] CLS < GO SUB IUm^ABS v[H] LOAD ▝▜[P]T▛<=FN  NEXT AT {▝A PRINT r&LLN f[O]~g?o RUN ▝[L]EXP OCODE  MERGE z DIM  RANDOMIZE LN  PAPER wpm▝PI' INK { LPRINT ▝ DRAW x RANDOMIZE ABS  RESTORE y NEW <>[H] MERGE B}CODE SQR STR$ bUSR IN {▘ STEP h RUN <?/ INVERSE [H] DEF FN SQR  TO  IF |INKEY$▖PIPEEK  MOVE  NEXT  CLEAR ©oxA RESTORE  CIRCLE /FN BIN [H][K] INK  COPY |▘ OUT <▝ READ 4)POINT  AND  PRINT p[L]▝/▙ STEP U OUT z.ABS g{[O]PEEK  OPEN # PAPER  LOAD  STEP )LN  OVER CHR$ PI/ CLS  FLASH [M][N] FOR xnAT POINT INT  FLASH  TO . NEXT IN /6[A]>|KV<▟ RESTORE  OPEN #??5 OUT USQR IN SGN yPOINT ▟~ GO SUB POINT  NEW l= RETURN CHR$  STEP ATTR [K]xIN  IF  CIRCLE  REM ▟[L] STEP iIN IN <> COPY ▝SQR  THEN =▘TAB Te PRINT SGN  NEW * THEN ABS  OVER TAB TAN  BEEP  CLEAR  INVERSE ABS  BORDER qi RESTORE CODE ' FOR  STEP  BORDER [A]CODE [E]CHR$  NEW ▞ RANDOMIZE  MERGE  CIRCLE  DRAW  RANDOMIZE INKEY$STR$ ▝INKEY$RND CIRCLE STR$ [C].ATN ▝[< STEP  DEF FN NOT NOT v COPY  OVER  OPEN #~EXP  LOAD AT  OUT  SAVE  REM ( CLEAR  COPY [S])[S]x*v NEXT : VERIFY  DRAW  OPEN # BEEP x READ  BEEP h[L]▙ DIM K>=[G] LOAD  STEP N OVER ;W REM PEEK ▘ INK  FLASH  FOR z9 COPY )CODE ~ RETURN  DEF FN  RUN :*q)▚ TO V CLEAR  STOP  VERIFY  PAPER SQR .gJCODE ▘VAL$ +AT  LLIST  MERGE Db NEW M RUN ATTR [F]g~BIN IN [H]▝k BORDER [N]STR$ POINT [O] NEW j CLS q REM h▜▜ LET }IN VV RANDOMIZE ~ LINE ▝ RUN  RESTORE STR$  THEN  BRIGHT .[N]XCODE G▝[| CIRCLE & AND y PAUSE ABS  INVERSE Kg]k PRINT  DRAW ▝h AND <= CLOSE #INT  RANDOMIZE [T]~VAL  CLOSE #SGN [N] RETURN  PAUSE ^B LINE G INVERSE H NEXT [E] FLASH  NEXT [I]EXP SGN  LIST VAL$  GO SUB  OPEN # POKE STR$ ]? LOAD FN IN w FOR POINT INT  NEXT 0 FOR  INPUT + CLOSE #u OVER FTAB  PLOT  r STEP PEEK  REM IN z LOAD  LLIST CHR$  THEN CODE n OVER  DRAW LN  AND W FLASH i DIM mTAB  BORDER  BRIGHT  CLEAR  READ ▚[H] READ CHR$  CLS ~ LOAD * OVER {gw TO ▚ OR = COPY CHR$ >STR$ ?,@ COPY ,0 CAT 1 DEF FN Y[I] COPY ▙SCREEN$ JD[U] LIST x SAVE  INPUT (H▖ CAT  SAVE ▙▘B"S;. SAVE @[Q] STOP  SAVE  READ  NEXT [U]▘F LINE INKEY$ PLOT  ▚>=FN ▝ CAT  AND  SAVE  $jAT USR ?f SAVE `▗ LINE ▚▘)BIN STR$ USR 1 RESTORE (*,ASN  CIRCLE ▙RND OR j OR BIN eTAB  CONTINUE c[B] AND  RANDOMIZE ▘[O] SAVE f▖▗▞2FN  REM J COPY [Q]▜ BORDER VAL$ D SAVE F[S]O?AT  RANDOMIZE  REM .N▙VAL$ FN  GO TO X REM  # NEW  COPY  BORDER ▖▚ RANDOMIZE  OUT !1▙ RETURN XCHR$ INKEY$▟ PAUSE  LLIST CODE  STEP  READ ▜ LPRINT WIN ^,PNOT ▚ POKE b[T]><>2[L]X FORMAT  CLS  GO SUB Z COPY _"[C]!9EXP ▜ STEP ^IN TAN  BRIGHT y2| BEEP [T] BEEP ▝.KIN  BORDER LagVAL  INPUT  CLEAR &ASN  INPUT  LLIST } GO SUB  BEEP x▜ REM  NEXT >[J] PAPER ABS INT  OPEN #! OUT  LPRINT G INK  DIM  LPRINT  OUT _ MERGE ▜ RETURN  LINE ?BIN VAL  PAPER u"7EXP *▛k AND ▛ STEP  CONTINUE ▘▛▛ INK ▞▚O<BIN  BEEP N(ASN S LINE [S]IN Y 
  61523a OR  INK  GO SUB K]▗ COPY [P]CODE  RETURN ;  STEP [Q]+ RESTORE  INK h MOVE >! LPRINT |INKEY$ READ ▟A LOAD  LLIST PI GO SUB R COPY ?(~# LET NOT 9IN [G]>:Y" SAVE PEEK Ol~ LPRINT PI<># IF 3i PLOT   READ * NEW :[C] PLOT  o0$ CAT  RESTORE ▜© CONTINUE e STEP /8NL▜ PAUSE ▜I[T]▝z8AT  DIM b[O] STEP ACS >: LIST CODE  CAT NOT PEEK D-USR > STEP M"NOT _ NEW "aNOT USR  STEP  POKE <=" IF [I] LLIST  PAUSE u~ BRIGHT  PAPER ABS ATTR  DATA  BEEP ▟ASN  PAPER  OPEN # RETURN  LPRINT STR$  INPUT © READ  INPUT CODE !k CLS  VERIFY  DIM <>pSTR$ EXP ▗ COPY Ih#b_ SAVE G PRINT >y RETURN  COPY USR  CAT  OPEN #[R]NOT Md[E]/{ RESTORE [G] DRAW  STEP ▛▖y|PISTR$ 4 LLIST " BORDER ' LET  DRAW  DIM <> CLEAR 6 DEF FN <[B]1[P][I] CLS VAL$ 7[O]F DEF FN ▘[S] OUT h43 MOVE [T] MOVE 1) CAT U+2 IF | RETURN  49152-$ GO SUB '97  COPY  MERGE [M]`  COPY  STEP SGN  CLS v PLOT   COPY > FORMAT NOT  NEXT  GO SUB s3b!<=a▞[w MERGE  GO SUB VAL FN a INK !,▚ COPY IN  LOAD #<> GO SUB LN 1[M]STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> COPY x COPY  STEP ACS bCODE  CLEAR E RETURN  COPY > GO SUB yIN  CLS c COPY < PRINT  STEP 8▛ RESTORE a PRINT  CLEAR +b©LEN yNOT Ed! OR @ COPY  COPY  COPY u} OPEN # RETURN  GO SUB VAL <>! RANDOMIZE [A]<=@© GO TO  OR  MERGE  GO SUB [Q]" RETURN  MOVE  STEP PIbSTR$ N< OPEN # LINE [C]H0NOT & LINE SIN SQR SIN  PLOT  EXP [H]P | COPY ? ERASE  FLASH <>z NEW USR { AND  _ CIRCLE z OVER  COPY  VERIFY W<> GO SUB [ POKE /!w[S] RANDOMIZE { GO TO :SQR [S]=G[T] DIM  LOAD  INVERSE > LIST  RESTORE CODE 2c~ NEW ?GBIN © IF ATN (PI THEN  CLEAR >LN  LINE ?c! LPRINT  OPEN #AT  BEEP  INVERSE  RESTORE  CIRCLE h BRIGHT i[A] OPEN # CLEAR NOT  LLIST  REM USR  USR  COPY ~# PRINT  NEW  PLOT  [Q]< LET  CAT  MOVE  LIST  COPY  POKE xLEN  PAPER  CAT   RESTORE :AT < RETURN (~[O][U]# RETURN NOT  BRIGHT bABS  MOVE [S]nS NEW f+LEN LEN ▙ RETURN  SAVE .(6+ CLS  INVERSE  SAVE  COPY   LLIST <>PQSTVW NEXT  STEP dPEEK  SAVE !" COPY PEEK  CLEAR  LLIST '>j LLIST  GO SUB s<USR  RESTORE PEEK ABS G^ CLS <> NEXT / COPY :[S]G OR GE DRAW  CAT AT SGN c MERGE [T]!6* RETURN © LIST  FOR  LLIST  NEXT <> RESTORE  MERGE *0j"9@+ INK ©[K] PLOT   FOR  DEF FN PI GO SUB R0: COPY 0PEEK /_INT [S]SQR {0LN 2 PAUSE  RANDOMIZE  LET  STEP $d MOVE Ro&) FLASH |INT ^#V<> MERGE  PRINT [J] COPY _![S]~2IN  OUT  DATA 4APEEK < RANDOMIZE  RUN  COPY COS CHR$ Oc LET  MOVE <> STEP USR @SGN CODE BIN BIN >n READ  RUN cNOT  LLIST h<>.& GO SUB C DRAW ▚?[B] DRAW ▞<>CODE  FLASH  RETURN  NEW o? LINE  CIRCLE ux NEXT 7NOT e STOP | STOP  CLEAR  PRINT >ATN  LINE e=RJ' DRAW O DRAW [R]INKEY$[J] DRAW 4f DRAW INKEY$ DRAW gb DRAW  POKE  OVER <2LEN S CLS d RETURN FN CHR$ e PRINT SGN  PRINT  BORDER CHR$ e▘SIN dABS Y+STR$ ▝u"RND INK [F] DRAW POINT  DRAW ABS {a>2 LPRINT dATN T ERASE  RUN  INPUT  LOAD  OR  OR  MERGE  COPY hi CLOSE #8ABS  COPY >= OPEN #ABS fu LET  PAPER td DEF FN RND<h CLS `[O]NOT & DEF FN [A]BIN PEEK v OR NOT kh BEEP (e RETURN ! LINE | PRINT  NEW >G: COPY ▟ RESTORE  MERGE  OR !USR XSTR$ ▝w GO SUB VAL [D]TAN  MOVE  LLIST  TO  CIRCLE P CIRCLE  SAVE GUSR  LINE  POKE  CAT  LPRINT 6 OUT >D!NYw, PRINT  RETURN n SAVE  RETURN z▙ SAVE [J][I]NH CLS  PRINT i; LET VAL$  CLEAR  STOP ▚[S]PEEK xVAL$ EYF6 STEP VAL$ !e NEXT f[L] SAVE  NEXT  NEXT ▚7 LET  NEXT RND NEXT INKEY$▛ CAT  NEXT >B2[C]Y3[D] CLEAR SIN  CLEAR COS !g3 LLIST [D]E[D] ./:m THEN  COPY  VERIFY m5f[D] ERASE m©[E]!p[R][J]g NEXT  NEXT E NEXT  OUT p▜ NEXT [R][L]m[G]S▖'' LIST ▙ CLEAR  REM ▙PI^<▙[L]?f&▙k NEXT l NEXT  NEXT C~[D] NEXT ▛ NEXT ▜= NEXT  MOVE [M]k▙ PRINT ▛[S] RESTORE [S]IN g[S]SCODE [S]& NEXT C3' NEXT  NEXT G NEXT  AND 0▚[P] NEXT ▚[P] NEXT  DRAW INKEY$ NEXT INKEY$ NEXT PI NEXT M NEXT  AND  NEXT <= NEXT > TO  STOP F2.Y/ CLEAR 0 OR  TO  CLEAR N CLEAR O CLEAR PCOS  RANDOMIZE !a[N]&Z* CAT pD CAT F FOR  INK  LINE (9SIN  PRINT  LET  POKE [J]xIN d NEXT eM[K] NEXT  NEXT B NEXT ▗ NEXT  PLOT   SAVE  NEXT  RANDOMIZE [Q]d COPY y+@<>)▚<>▚:d▖ COPY / DRAW  PAPER PI:ATN [S] PRINT "VAL  LIST 2j! CLS <>e?IN  CLEAR  COPY PI GO SUB B* LET ( INK  STEP /Cn// DEF FN q NEW c_[d LET 3 CLS x CIRCLE NOT  RUN h MERGE  ERASE  NEXT  RESTORE ti CLEAR  GO SUB SQ DRAW ]▘ DRAW  OVER . INK  FOR  VERIFY  DRAW  INK <> STEP STR$ LN 3 DEF FN  GO SUB y CLS IN > RANDOMIZE  COPY  CLS v& GO SUB a INK >P PLOT  © RETURN  OPEN # CLEAR  VERIFY 8I RANDOMIZE | AND  COPY g{ DRAW  RETURN  DEF FN _[D]W INK $sP READ  READ  RANDOMIZE  GO SUB ?} READ oy DEF FN O▖[B]GW? READ <=(i DATA <=<=y[T]q© CLEAR PEEK LN  STEP _ POKE <> CONTINUE  INK [R][J] COPY  COPY  LPRINT CODE ,?© DRAW  @▟ AND  INPUT ,/4258 MOVE h;?F[T]BF▟JOSh4X^[T] MOVE ci▟Fov4} MOVE h[F][O]F[T]PILEN ▟SQR <= ERASE h4 OUT  GO TO LN  MOVE  IF [T] MOVE );▟FNb4w▟RND MOVE hPEEK  CIRCLE q[T] POKE 1F[T]Sv▟[M]NOT  GO SUB 7I{h4VAL  DIM h BRIGHT $cRNDCOS  MOVE USR 7▚ COPY  OR  CONTINUE - COPY  CLEAR Ed[U]STR$ [P]F>=ATN  LINE kSGN  PLOT  > PAPER  GO SUB j RUN  VERIFY > IN  SAVE  DIM ATN >=2[S]<>= ,N POKE 28lASN T NEXT  NEXT L1t NEXT ▛ RUN  LET +] GO SUB -7IN  GO SUB  LPRINT  GO SUB PI[N]Z GO SUB  GO SUB  RUN  GO SUB m FORMAT POINT  GO SUB  LOAD  RUN m REM PI6 REM  PLOT   INVERSE > STEP ! j PAUSE  PAUSE  NEW 2 THEN jVAL ▛U^ LINE  BEEP H PAPER USR /. DIM  STOP  DIM up[I] DIM h DIM  MERGE  CLS [D] PRINT  THEN '3BIN ASN ▞[U]i MOVE  READ ) RUN VAL CODE ,& IF ml CLS  FORMAT [M]ATN  OR  LIST (, MERGE CHR$ [L] CIRCLE STR$ [S] CIRCLE  AND / INK ^.V MERGE ABS  STEP  SAVE 2 CLEAR h MOVE SQR 6[C](m2VkZPOINT i RETURN 0/'▙ASN  SAVE  BORDER <' AND  RUN V AND ▗d CLEAR  FORMAT  PLOT   PLOT   COPY ©m MOVE >NOT 2d<> RETURN  LINE  LIST YIN k MERGE  DIM  VERIFY BIN s<=S CLEAR !SGN [S]m DEF FN  INK  GO TO n CLS [1 LOAD n:I_<>KW POKE  POKE <>©2 IF ▙i▝m[T]BIN VAL$ j DRAW  LLIST m><>^k STEP Gju>= SAVE <> MERGE xsS READ <>T[O]▟F READ  CLS RND AND m?_ RETURN  PRINT  CONTINUE 5FN  AND  GO TO 0 BEEP POINT [S]< RETURN ~IN  BORDER ( LET NOT ▚dASN >= LET  FLASH [P]r VERIFY  FLASH  NEW  FLASH = RETURN  COPY (▟N INK  INK CODE  GO SUB ^O RUN  CLOSE # OUT  IF m<= NEW LEN  RETURN  EXP l/PEEK yPOINT  PAPER X[S]b(z)BIN jBIN SCREEN$ i)BIN b STEP [N]▖ PRINT  THEN  DIM [D]▖ OUT ▚ACS CHR$ $ABS  FORMAT l:ATN ASN  DRAW {aASN : CLS (! VERIFY >=-NOT  TO  AND  INVERSE ASN  DATA SQR  LINE  POKE LN  SAVE hLN  DEF FN  AND NOT USR _ CONTINUE  VERIFY FN ▚ CONTINUE  FOR  FOR IN  INVERSE ▚CODE  STEP apxLN 2e[C] LOAD  LLIST NOT (M OPEN # CLOSE #_/fy* PAPER [T]VAL$  NEW  RETURN  CIRCLE  LPRINT !( ERASE _b OVER [C] CLEAR  NEXT PI[O]A INK  DATA *nQi)}|B BEEP :n▝STR$ [D] IF TAN  FOR *[C] COPY :m8=  IF  NEXT  MERGE D FLASH SQR [E][ REM COS  INK  POKE  CAT EIN EXP F LET ] RETURN ;r STEP ; CIRCLE n;SIN O RUN ©9;br;oy OR  CIRCLE ▛NOT N NEXT 9pCHR$ P RUN  RANDOMIZE ▗" GO SUB -7 GO SUB [U] GO SUB l. GO SUB ; GO SUB SQR 6EXP  GO SUB  OPEN # GO SUB COS  RUN  THEN [H] REM ; NEXT ▛p PLOT   STEP [F];R[A]n PAPER PEEK Bq INPUT ▗ BEEP r5; DIM PI DIM 9NOT  DATA  DIM , DIM  MERGE  CAT ▚STR$  REM ] NEW ;USR q1COS  FORMAT [M]{[D] OR ATN [I];NF. RUN ;]% DATA ;{BIN  MOVE [C]SCREEN$  STEP ;oPOINT ! COPY  RESTORE ;_r;ABS  BORDER VAL$ [M];▜ DEF FN E;V PLOT  NOT q] OVER ;▚q STEP ;ASN o; CLEAR  LET  DIM EXP  THEN ;EXP ; BEEP C AND q;b[O]W>=q:I_<>K; LINE !9 POKE ©2 STEP  IF ▙ OR B TO EBIN i[T]VAL$ VAL$ jNqx CLEAR  IF #o STEP n9 STOP ABS  SAVE ; BRIGHT x READ <> OPEN #o SAVE pc MOVE hPIIN t[T] BEEP q# LLIST [S] RETURN  PRINT FN ;-/ CLS ;[S]o LLIST COS  IF x/;▞; LLIST ▟>=;J/ LPRINT ; FLASH  NEW  LLIST < FLASH ;o SAVE ; GO SUB [N]K RUN ;USR q< BRIGHT yLEN  STEP  FOR ;1p/POINT  DEF FN  NEXT [S]ATTR %;BIN BIN SCREEN$ K MOVE BIN b STEP [N]_N▖ DIM [D]qPI▖;[E] REM ACS ACS {X/ACS  DRAW ACS :STR$ 8O<w CAT .NOT  DIM oI[M]<SGN  LINE (k POKE EXP CHR$  SAVE  AND VAL EXP <▗p CONTINUE  POKE LN < CONTINUE  MERGE  FOR  FOR  BORDER  OR <EXP 7 LOAD  RUN  GO SUB o DIM ` CLOSE #o^fz REM < NEW  COPY  NEXT 0 LPRINT 1< OVER [C][O] OUT  CLEAR !NOT 0wB<>=q[R]VAL ]i LINE [N]R}|: STEP q)t▘ TO b> IF TAN MD* AND [R]NBIN  PRINT 8;EXP ( PAUSE  OPEN #ATN :x/K DIM : DIM _ATN CSQR [M]: DATA [K]:[O]r:x[O]6 RUN  RETURN r:▛ BORDER :2STR$ s BORDER [M]▜M NEXT  NEXT CODE 0t RUN  NEW - AND  GO SUB HtiO>= GO SUB 0f8: GO SUB  GO SUB [I] PAPER  DATA  GO SUB x RUN [A]2/ REM : REM RND PLOT   RESTORE  DRAW :osQVrQVAL$ @ OVER  BEEP  MOVE  PAPER [H]r: DIM mL. DIM  RETURN  DIM  LET  DIM  MERGE  FOR  INK 2[S]D/ABS H,:[S] PRINT  PLOT   FORMAT m@ OPEN # OR  LIST (* NEXT r: DEF FN v THEN ]<i<6x<[E]ry< OUT ▙=©EXP < OUT  BRIGHT <▝sVAL$ SGN < DEF FN E<V PLOT  l[S]( OVER <kVAL$ a<ys< DIM W INPUT <ACS &< MOVE  GO TO o MERGE <9[ RUN q[S]:+BIN K_Mr[C]<s POKE ©2v IF B▙u OPEN #▖[T]▞VAL$ j IF ]u IF  BORDER r STEP  ERASE q{ LET ; SAVE  PAUSE BIN < READ <>[H]sSGN o7'tl▗h4[M]>=[S] CLOSE # CONTINUE  RETURN  PRINT FN / LLIST < CLS  LLIST -<[S]TAN /o IF <▟x<>=/ LLIST < LPRINT <J< FLASH  NEW  FLASH o LLIST < SAVE K< GO SUB  RUN  FOR ▝<[S]< BORDER  DEF FN COS < PRINT so^/ATTR q[O][U]<^-BIN BIN SCREEN$ ZBIN b STEP [N] CLEAR r▖ DIM [D];▖<<>_ACS CHR$ TAB s:@tASN CHR$ z DRAW ASN :j AND y;^z/NOT  TO %q;SQR  LINE  POKE EATTR LN LN  DEF FN r;I=. CONTINUE ;F5 CONTINUE  FOR  FOR yq;LN  STEP  CLS  SAVE LEN s[K] RETURN _o^fy REM ; NEW  RETURN  NEXT 0 LPRINT 1; OVER [C] OUT  THEN  CLEAR !l▝7A<▙CHR$ [S]i*s}VAL$ S|:v[S]'▘u IF ASN  FOR  PLOT  [N]*o[T]u BRIGHT x MERGE wx REM TAN  FOR [P]G OR  COPY  MERGE  RESTORE ! RANDOMIZE u@ DATA  RETURN  GO SUB VAL  LLIST  MOVE STR$ NOT  DEF FN u GO TO }[L] CIRCLE  GO TO H GO TO  GO TO P7 GO TO ▟ GO TO X GO TO "5 GO TO : DEF FN [N] DRAW  RETURN RND[N] NEXT  GO SUB {<j CLEAR *> FORMAT x▙? GO SUB GVSGN  CLEAR ©y CLEAR  OR 8:/X' INK NOT  FLASH  STEP  FLASH  FORMAT  COPY  COPY  LIST ~[E]-USR ( COPY ? OUT  LPRINT ▘ CLEAR © COPY  RETURN  DATA [S]lINKEY$E DRAW INKEY$% LPRINT [U]USR  RANDOMIZE FN ~ OPEN # LPRINT ([G] DATA ~ GO TO M▟ CONTINUE c[J]NOT ▞ COPY IN  THEN mTAN j DRAW  RUN PEEK  LPRINT |SCHR$ SQR  THEN  RUN  STOP SCREEN$  RETURN  POKE 1 |ax?[G] LIST !7▚ENOT ; RANDOMIZE  NEXT ▘~ FOR  MOVE NOT ▗ SAVE  PRINT  PAPER [O][O][L]xj$▜! RETURN IN CODE h(>= COPY USR  SAVE e LLIST  GO TO  CONTINUE T?N OUT  NEXT fNOT 8 VERIFY  COPY  LIST | OUT  MERGE PEEK  OR  COPY @ FORMAT ` OUT USR NOT  LPRINT : ERASE VAL  RANDOMIZE IN NOT ^PEEK g3 ERASE %y CLOSE #[O]H7 DIM d RETURN  IF LN 6 DRAW IN FN  LPRINT  INVERSE  PRINT PI▘)RND PRINT CHR$ t CLEAR BFN ?</ MOVE j NEXT |NOT   OUT CHR$ !KUSR _B RANDOMIZE !IN %ATN `[N]PEEK RNDq16[T]d RESTORE ?[S] RESTORE CODE IN FN STR$ - CONTINUE  FOR ~ READ ?^PEEK  OR P©USR  INVERSE PEEK  PRINT TAB ^g}@ NEW [L]/ATN COS  COPY c{%USR [U] RANDOMIZE [A]▚IN [U]x^VAL PEEK ~ PAPER [L]PEEK  SAVE  CLEAR  FOR [I] NEW Q COPY ~*L LINE USR 2IN  CLS k<>[S]ATN STR$ ▞ LOAD PI? RANDOMIZE ▘ LIST  STOP [Q]|TAB NOT LN TAB   CAT | OUT  OR 7[N][J]TAN ^ DATA /[G][J] RANDOMIZE <@c^q▜  RETURN 7BIN  LIST ^ BEEP IN  DRAW -mc LIST  DATA KEXP  STOP SQR  FORMAT FN ▖g}>=g BRIGHT ~@ RETURN CODE  FOR 9"P?▟ OPEN # TO [M]@3 OUT  OUT LN FN  READ INT [D]LN  TO  DATA BIN  OVER  PAPER ▟q[U] Q~ AND sPEEK  REM © LLIST IN SGN 4 TO IN [H]W CLEAR <>/VAL$ SQR FN g RUN yPOINT 8~▝ LOAD [O]SQR ▖[Q]NOT zg(; LPRINT !ZUSR  NEXT ▛INT < OVER qa LLIST  DATA xEXP   COPY MIN STR$ INT ▛IN INKEY$[J] CLOSE #c LPRINT  PAPER 5sIN   DATA  FLASH T RETURN  POKE  DRAW k[S]<>0@PEEK 5@ LOAD TAN INKEY$ SAVE  LPRINT .N CLS  CONTINUE USR FN =` PAUSE LN  ERASE *▙g INPUT SGN FN WWb; LOAD [R]COS STR$ ATN 5▟ LIST P LOAD ([S]▘ASN ,c[P]Y[G]r CLEAR [U] STEP  ERASE  READ  DRAW ▛ GO TO :ATN N3z FLASH  LET DAT  RUN [H]D▙PEEK  INK  LPRINT © LIST j▘USR TAB ; RETURN VAL$  THEN  NEW  GO SUB  ERASE ^ CIRCLE  OVER  NEW [I] NEXT : NEW USR PEEK  INPUT 7 DEF FN PI-CHR$ USGN `AZAT @<T LLIST NOT VAL jZ[D]B CLOSE # IF IN  MOVE ?IN L LPRINT [R] CLEAR &[S] READ }o SAVE  CLS  INVERSE <>[L]TAN © READ wCOS  MERGE [P][G] INPUT e RETURN  FOR XlT©CHR$  CAT EXP TAN  DIM ▗UUSR LN  RESTORE n/p GO TO t^USR  STEP ATN ▟FN 7EXP *O# LIST  ERASE :PI~▞STR$  LIST p BRIGHT ▗d RUN />`[S]/SGN CODE  RANDOMIZE P0IN  PAPER ATN  PRINT _|[T]][R] NEXT A▛;N}[M]vRD© FOR  MOVE P[J] RANDOMIZE  LPRINT  FLASH  POKE ? CAT  CAT ▚ INK  VERIFY VAL$ <(FN © LIST }FN ;%8<zu LPRINT SCREEN$ USR  THEN  CIRCLE  OPEN #▟% INPUT LN PIACS ATN ▟(EXP  RANDOMIZE  LET  PRINT NEXP  LIST  RETURN  FLASH u RETURN [S]/ READ  OR x RANDOMIZE  INVERSE Y LIST  RETURN [G]<= OR +CODE ~ISGN }[Q]:LN NOT  GO SUB M© RUN  RETURN [S]. MOVE [T] VERIFY  LIST  FORMAT [G]`l LET *FN  STEP  MERGE SGN  BORDER n[I] VERIFY ▚ FLASH PS PRINT 6 P OR iE INVERSE  CONTINUE >▝ LLIST TS BORDER ][P] LPRINT INKEY$iT FOR j<>[L] LPRINT :© INK  OVER  CLOSE #[A]CODE STR$ ]: LIST  PRINT [O][S] PRINT  LPRINT p>USR [N]a[K]./ BORDER ~[C] CAT ` LLIST [A]SQR <▜<=[H] DRAW ▛LEN 2[C] PRINT BIN U▗<>Y2Ke CLS  NEXT  VERIFY [ AND ([R]g BEEP [L] INVERSE  CONTINUE >CHR$ FN t LET USR M+FN # REM <jd BORDER TAB  - LET  IF VAL$ ;[L]% STEP - LIST aRND SAVE  SAVE ©/LN [S] BORDER [K]VAL  READ VAL$ ©`@ LPRINT © GO SUB [G] LINE LN [N]Z INK ▘w▚s IF SIN  INK AT ▞16TAN  PRINT x[G] RANDOMIZE  NEXT ZATN _lUSR [E]LN ▙a RETURN VAL$  NEXT d NEXT u▝[K] PAPER <GATTR INT [C] ERASE ATN  DEF FN %x▜: CONTINUE (z COPY $[F]= INPUT STR$  CAT [S] RANDOMIZE  LIST | STOP USR ▗GTAB [M] NEW |<IN ,ABS [N]SGN [S]CHR$ HeoFN  CLS © VERIFY INKEY$6[D] INVERSE  BRIGHT  LINE  ERASE [J]o[ATN  VERIFY  DRAW  SAVE 5STR$ H/[ BEEP GCjq▟y▞▚W INPUT 6 INVERSE SIN } PAPER [D]TAN  LLIST  LPRINT R LLIST >=E OVER *@ BEEP  BEEP  LET U|L DEF FN ]bNOT NOT @▝[N] BRIGHT RND DRAW x( POKE m LINE ^[G][S]# THEN QZ``STR$ POINT ▛XSIN  PAPER  INVERSE  LOAD  RESTORE  OUT qATN  VERIFY  BORDER |[A] BEEP oe [N]5 PLOT  CHR$  LPRINT  LPRINT  LIST ABS  BRIGHT : LINE  t1)ATTR m BEEP [O]k MOVE INT %` LOAD <>T BEEP  ERASE  SAVE  MERGE ATN * LINE  RANDOMIZE  INVERSE AT D▛[P]<>; CAT /FbVAL$ © THEN PEEK *[H]RNDQ RANDOMIZE > PLOT  xEXP [S][M]w ERASE TAN rS|?VAL$  SAVE I STEP  NEXT  TO  DATA  INVERSE  AND  INK * CLOSE # LET <>1w[B]7Y▗naASN ▟ LPRINT EXP  LET [T]INKEY$ATN X SAVE SCREEN$ } OPEN #T CIRCLE vy LIST [P]▖▜W RESTORE VAL$  MERGE m LLIST 4BIN  GO SUB u LOAD o[H]PI>=?ABS u/~6Aw OPEN #<[C][L]▘h(NOT  FOR  TO  PLOT  *L FOR  VERIFY v([L]CODE "Q BEEP CHR$ VAL  RESTORE iD THEN  VERIFY ] DIM LN STR$  READ VAL$ LINT [N]©STR$ Q▛=[S]r CIRCLE SIN [P]nINT <= LIST  FLASH ▛x LOAD VAL IN /6 SAVE w READ  LOAD NOT <1qATTR 8 CLOSE # SAVE Xw INKEY$[J]l LOAD A&nQ RUN  LLIST Q INPUT VAL$  LOAD  REM < LET  COPY (FN CODE [O]ATN  OVER ▛7STR$ COS © NEXT CHR$ 4 DATA >=NOT  RANDOMIZE  OVER  LIST  CLS [U] INVERSE  LET  LOAD  CIRCLE m  LET F[J]7[A] INPUT [P]0fABS g VERIFY ACS g DIM A7Q[E] LOAD  OUT SCREEN$  TO :.6[INT  GO SUB  SAVE *[N] OUT  NEXT TAN N RANDOMIZE o[I]( NEXT [S]{VAL  GO TO [S][S]SQR ▙ LET L;fy[H]xt/ASN  FOR VAL PEEK &IN 2 CAT  /p LET [B] SAVE ` INPUT 7B BEEP  INVERSE [S]yeATN wPEEK ASN x[D]SCREEN$ noBIN  BEEP i[S] OVER VAL  LPRINT [G] PAPER 8 CIRCLE [VAL  LPRINT x▘u VERIFY B/ INVERSE U[I]QePEEK  BEEP NOT zNOT PIxgu? DRAW [B]o* NEXT  LINE i LLIST  THEN [S]x ERASE ,xY VERIFY [S]/X INPUT  LLIST [D]SGN  AND 8CHR$ xO READ v COPY [S]f] GO SUB q[I]CODE gPEEK  OUT FN /[P]VAL ? CAT = STEP INKEY$CODE COS NOT  CLEAR   REM l RUN  OUT © SAVE  LET [O]CHR$ SCREEN$  FLASH  RESTORE X[F]'W LOAD iSIN ;/SCREEN$ IN  STEP NOT [L]CHR$  DRAW NOT h LPRINT ; PAUSE N CONTINUE N3PEEK <▛=CODE qINT  COPY ▛O NEXT  OUT bTAB [S] COPY FNOT 8 COPY  PLOT   COPY  READ  LPRINT  REM  DATA 0[R]NOT  SAVE  STOP CHR$  LET  POKE  COPY  LOAD =,A COPY  LPRINT  DRAW # LOAD  LPRINT  CLEAR 0 OUT  LPRINT ? OUT  LLIST ; CONTINUE  DRAW x?▙ INVERSE  FLASH  OPEN #NOT CHR$  REM  OR  POKE  COPY D[O]▚ LLIST  OUT  LINE  RANDOMIZE  STOP  COPY ▜Q INVERSE y COPY ^BIN  LLIST  NEXT  LLIST ▜a OUT ? LPRINT  LLIST ▜ DATA  OUT  LPRINT  RANDOMIZE [N]▚PIi[O]!INKEY$G DATA  NEW  LPRINT  LLIST yBIN ▗y▚STR$ [U]w[O]& NEW YIN  LOAD uo>l▟ COPY  COPY 0STR$  READ  READ  LPRINT EXP Q COPY ATTAN U IF [P] COPY  CLEAR SCREEN$  REM CODE  CLS + CLS  SAVE ATTR  PLOT   DRAW  IF STR$  POKE W} INVERSE  LET  COPY ,_ INVERSE  PRINT ] MERGE T LLIST  COPY [T] SAVE PEEK >▛ STOP  CONTINUE  IF .[Q]g[I] PLOT   LPRINT  BRIGHT  PRINT |Wu DRAW _USR  CAT TAB  PLOT  >= FOR  BRIGHT ?▛ PAPER CHR$ [S]FN  IF SCREEN$ [O] POKE  BRIGHT  REM [Q] COPY  BRIGHT  BEEP  LLIST © DRAW |0|?tLN  BRIGHT  RETURN CODE [T] BRIGHT  BRIGHT  CLS  COPY ATTR FN STR$  CLEAR © OUT  BEEP U OPEN #|_ BEEP  BRIGHT  CLOSE #e[C] STOP LN  BRIGHT  CLS  RETURN [E] ERASE kSIN VAL$  CONTINUE  BRIGHT |@' OR  MERGE  LET g>= BEEP F CLOSE #3 COPY  STOP LN SCREEN$ * RETURN FN VAL$ L COPY  CLS Q[C]*▛ CLS (6 DRAW RND LLIST ( CLS s DIM  CLS P▞SCREEN$ FN [Q]2 COPY  RUN ACS ▗ INPUT  COPY  PRINT  CAT  LLIST  IF  DIM W PAUSE T MERGE Q INVERSE l RESTORE  BORDER *CODE  INPUT CSTR$ ATN  BRIGHT  INK f PAUSE _ PRINT T INVERSE  LIST * FLASH IN BATN ▟ CONTINUE  DIM ▗9AT  BRIGHT  STOP + COPY  CLS S PAUSE  RESTORE _ POKE BIN  COPY P CONTINUE M BRIGHT  IF [Q]BIN  OVER HW© CLEAR VAL$  CLEAR BIN ▞ujM GO SUB u COPY  RETURN ▙IN  RANDOMIZE I[L] COPY  CLEAR _ COPY @▝▖wPSCREEN$ ATTR BIN <>[R]BIN POINT EXP  SAVE  RESTORE CODE  REM ATTR  IF / RETURN ATN H BEEP BIN Pu IF  CONTINUE BIN  CONTINUE  REM ▝© COPY  ERASE INT BIN [USR [L]BIN FN  CLEAR  CONTINUE BIN Eh4AT ▜[C] LOAD BIN /BIN  STEP LN [T] RUN u@©BIN  CLS  ERASE $ REM p CONTINUE <=ASTR$ [R][D] MOVE P INVERSE [Q]BIN  FORMAT [C][A] PRINT )IN BIN  LPRINT CODE  RETURN [S]BIN Jy8 INVERSE BIN  CLOSE # OPEN #BIN  INK  OPEN # LINE BIN STR$  TO  CLOSE #BIN  FOR  SAVE BIN }MrBIN IN  INK 7BIN  REM [S]L STOP (UPTAN  CLEAR @sf)[C]IN  INK BIN GTAN BIN  MERGE BIN %IUSR ?BIN  IF  MOVE <>u]BIN [N]BIN USR IN L REM ATTR VAL$ BIN )M(WBIN UBIN >| RETURN BIN Z© PRINT w BEEP EXP  MERGE ▖ CLEAR ;,BIN ATTR SCREEN$  STOP BIN dSCREEN$ ▛BIN [C] RANDOMIZE BIN  IF IN BIN [I] PRINT BIN UWBIN  BORDER UNOT  POKE [J]TWPNAT BIN  POKE  FORMAT BIN INT M REM BIN BIN >nSIN [R]BIN  LPRINT YCOS @BIN  DRAW UrK[Q]BIN j© LET BIN  CLOSE #ATTR ▟BIN *BIN ATTR  INPUT  LET BIN / SAVE ? CONTINUE BSBIN +BIN  POKE ]BIN L COPY TAB JBIN  COPY L RETURN IN POINT  LLIST BIN  NEW _CHR$ ©LBIN -hBIN BIN  CLEAR  IF uTAN RIN BIN  FORMAT BIN $. DRAW BIN  NEW IN BIN  DRAW  RESTORE N BRIGHT  INK  PRINT WBIN *[G]w/U FORMAT >=/ RANDOMIZE  CLOSE #BIN CODE <BIN ?BIN T[H] CLOSE # PAUSE E BRIGHT VAL BIN 1 READ  CLOSE #[O] REM  FLASH  MERGE LN [K]BIN TBIN o/ BRIGHT BIN rINKEY$[I] PRINT BIN uBIN IN  IF  RETURN 4 RETURN BIN LBIN  RUN [I] FOR [C]IN  BORDER BIN  FORMAT ▖ DRAW SGN /#BIN  FOR  MERGE BIN  INVERSE  OUT z▝ NEXT 8 CLOSE #BIN [R]BIN   PAPER  FOR BIN RND|fBIN USR BIN  RETURN BIN  LET 7BIN  RETURN BIN wSGN |^lBIN  BEEP ]p▜_lBIN - INVERSE lBIN  LLIST  STOP  PAPER [E]koBIN 0+CODE lBIN  RUN  BEEP  MERGE l0 BRIGHT BIN [Q]u_o POKE 0 LIST INKEY$BIN  POKE  OVER [C]BIN  LINE  BRIGHT  LET [G]USR  POKE USR  SAVE ▖P/©/LN ZBIN  PAUSE 7©BIN ©][H]▘BIN ▘BIN  REM  NEXT ▚BIN @ MOVE [M]PBIN  OUT BIN }BIN [r STEP  MERGE STR$ kNOT d CLS BIN d LET LN }PU[T]ATN [U] BRIGHT BIN IN O LET m>=/TAB TAB BIN  MERGE [G] OR >=+PEEK  OUT <=[G]BIN >=NOT EBIN  RESTORE (nUSR CODE  RETURN b TO  COPY u BRIGHT <WBIN ATN IN  RETURN SCREEN$  REM  INK  INPUT BIN _ INVERSE % DIM BIN  REM  PAPER i+BIN P INVERSE BIN  RESTORE  VERIFY  OUT  COPY  CLOSE # CLEAR  NEW  PLOT  P][P][G]ATN PI/ CLS BIN ATN  FOR  REM FN  COPY [tP MOVE [L] NEW TAB SCREEN$ VAL$  RUN OACS , MERGE  INPUT @[ATTR P?aSCREEN$ FN SIN  INVERSE T IF USR *FN Y"-PEEK v OPEN #< FOR  CIRCLE [T]u▗[Q]*<= COPY OBIN )g LPRINT @/INT <9= INK PEEK VAL$ <>d▛[D]/7[K] FORMAT }>= FLASH A PRINT CODE INT ▜ OUT [T] CONTINUE PEEK :COS  RETURN  SAVE  IF >|u DATA [M]W CLS  DRAW 4INT SCREEN$  DIM SGN NOT  DATA >[S][K]N DATA u DIM  MOVE / DATA  CLEAR |EXP } DATA PEEK IN  FOR FN  PRINT  DIM 9 SAVE  RETURN INT  DATA W PRINT STR$ /ATTR [A]=©y[K][H]PEEK ? DATA VAL$ > STOP  TO YNOT  DRAW UW DIM  CLOSE #[E]9]FQ[S]yVAL$ ATN Z OUT XENOT .[L]ABS m1#[B]©TLN  COPY  TO S CLEAR  CLEAR > DRAW © SAVE ▞ CLEAR  RUN  OUT  LIST  READ STR$ USR  LLIST  CLEAR  LET  SAVE ▛ CLEAR  CLS  LPRINT ©▝ LIST jQ@[D]D PRINT TL[T] VERIFY  CLS zSCREEN$  LINE  IF IN  CLEAR ~ CLS  VERIFY ▛W CLS U_SGN F OUT  CLS GNOT IN  CLOSE # PLOT  TAB  CLS  REM o RANDOMIZE h CLS  LPRINT <=USR  THEN [Q] PRINT  CLS p RANDOMIZE © INPUT ATTR  LOAD SCREEN$ [U]: LLIST  CLS  GO SUB Rw POKE [R] LOAD U RUN }JiSGN  LOAD  CLEAR  CLS  INPUT RND REM ▚ RETURN  LOAD  REM  IF t FORMAT  INK AT  FORMAT  CLS  CLS  VERIFY  REM :xV PRINT }TAN v INK  LIST  CLS  LINE  CLOSE # SAVE SQR  CLOSE # PAUSE SCREEN$ [O]AT ~> NEXT  COPY  CLS  VERIFY s RANDOMIZE UO NEXT t CLOSE # COPY  BEEP  CLOSE # PRINT  MERGE ]N CLS  RANDOMIZE  OPEN # COPY W DEF FN  CLOSE # IF  REM VAL$ PI BORDER  COPY  LOAD @TAB  PLOT   IF  CLOSE #p IF  RETURN  LINE  GO TO  CLOSE # CLS }O4 OVER ▝ RUN  PAPER ? CLOSE # CLS [F]n INPUT PIw CLS ▚[P] CLOSE #© CLOSE # RESTORE  NEXT [P]VAL$  NEXT s REM @ CAT  BEEP USR [M]INKEY$PEEK  CLEAR TAB  INVERSE  CLOSE #IN  PLOT  [P]3 CLOSE # IF  CAT  RESTORE  CLEAR UAT =© CLOSE # PAUSE  RETURN  OUT  CLOSE #U IF  POKE [M] CLS  CLOSE #©o CLOSE # CLS ATTR ABS  PAPER ASN  CLOSE #WFN SCREEN$ SGN ▜ CAT  CLOSE #ATTR CODE  CLOSE # RUN  BEEP  OUT  INPUT  CAT rSCREEN$ [P] CLS v CLOSE #[S] CLOSE #P LOAD  NEXT [S]4[P] INK )[J]c CAT  REM SCREEN$  CLOSE #uSIN [A]$ CLOSE # RUN O INK }SGN x CLS s POKE  BRIGHT  CLOSE # CLOSE #▘SGN [O]o? OUT Nk INPUT  IF  FOR  LIST  INPUT  REM  LOAD  BORDER 5 PRINT  POKE  CLOSE #w} CAT  CLOSE #>= RESTORE zAT LD LET  CLOSE #k▗ OVER 8 OUT  DEF FN jFN  CLS ▝ PAUSE  MOVE  REM  INPUT k CLOSE #FN  DIM  POKE RNDw CLOSE #s COPY  CAT [P]▙VAL$ L CLOSE #EXP  COPY <= RUN  ERASE 3jZ BEEP  INK  PRINT  COPY _ CAT z COPY CODE <$ CLOSE #|v RETURN  BORDER ▜ CAT s PLOT  T` LET R% BRIGHT SQR ©g CLOSE # OVER <=+ CLS  PRINT INKEY$ PLOT  5FNOT { FOR  CLOSE #: SAVE = THEN PIv CAT  DRAW @l CLOSE #KJk DIM ATN [F]n CLS  MERGE  CLS [Q]>VAL$  CLS %[j[Q] PRINT SGN SCREEN$  CLS : CAT `l CLS P CLS W CLS  NEW  NEXT SCREEN$  CLS [Q]SCREEN$ 0| CLS + CLEAR _^ BORDER zSCREEN$  CLS @T CLS UyRND~ CLS ^SCREEN$ [M] LIST  CLS  CLOSE # CLS *CODE n PLOT   FLASH  VERIFY u▞[F]Q[E]o FLASH 1 INVERSE *VAL$  REM [B]BIN ATTR FN IN SCREEN$  OUT CCOS R RANDOMIZE [B] NEW Ut©] LPRINT  COPY  CLEAR  DRAW S{© POKE  PAPER +[S]h[M]CODE  SAVE  CLEAR  REM ? IF F DIM  PAPER > PAPER ▞ REM "/TAN  CLEAR & FOR u_ CLEAR }f[Q]ACS -R[B]kPEEK  LLIST  PAPER .J[D] PAPER uSIN  PAPER Pm LLIST  PAPER } LPRINT TAN  STOP INT  PAPER SQR  REM [Q][R]$ PRINT :TTAN 9[CFN ATN ©PQ/ ERASE  INVERSE  PAPER  RETURN bLN VAL$ SCREEN$  CONTINUE ▘ASN  PAPER VAL$ ;b*h]! GO SUB w COPY r CLEAR LN  FLASH _} LIST  COPY QPEEK CODE  RETURN FN PEEK [F] CLEAR [>?i1MTAN @ MERGE h[R] LIST t_} CLEAR u MOVE IN TAN cz NEW  IF /PEEK CODE . INVERSE + COPY  REM RCOS  GO TO ATN u PAPER Bk BEEP W FOR ATN  CLS SCREEN$ VAL LEN TAB C FOR / VERIFY  RANDOMIZE  CLEAR [H]oTAN  VERIFY o FORMAT CODE ▚ LPRINT FN CHR$ ; BEEP  REM 7CODE  LLIST  LLIST  MERGE  POKE  LOAD  INPUT y^ RETURN [R]y PRINT &E[G].Kj INPUT h[E] IF &[E][T] LET 0 IF [L]h' BRIGHT 1P POKE } CLS SCREEN$  IF CODE  FOR  CONTINUE [P][E]UPOINT  BRIGHT IN  RUN . COPY  CONTINUE ( PAPER VAL$  REM  BRIGHT X INK [U]▟i>= VERIFY e> OVER [S] CLEAR  RETURN  LOAD  MERGE [G] SAVE  RANDOMIZE VZ DEF FN  CLEAR TzP SAVE OSVAL  CLOSE # CLEAR ZSCREEN$ VAL$ g-ATTR TAB  SAVE [P] COPY 4_ LLIST ASN  RETURN POINT  CLEAR R[P]+ RANDOMIZE d MOVE  IF  SAVE  OR &Og PRINT UO CLEAR  LPRINT ATTR 7_ MERGE ^n[H]2 PAPER  PRINT  CIRCLE [E]j GO SUB ▞TAB  SAVE  ERASE +~ LET fxO RETURN _SCREEN$ POINT [T] LIST  SAVE  SAVE  REM NIN Y[L]POINT W RANDOMIZE  CIRCLE ▚jAT 0 CLS  CIRCLE  COPY  OUT IN  RETURN Fb[F]JINKEY$[D][O] LPRINT  CONTINUE COS eZ SAVE [G] LPRINT  POKE Y[K]POINT U INK .>[E]USR  INK  GO SUB ^fABS JX+ PAPER FN 1 OR 9RABS  LIST ▝O[D][I]POINT Q BEEP  STOP ' POKE ▜[Q]-Y SAVE  STOP  GO SUB  NEW n(ABS LEN  STOP %kP SAVE POINT  PAPER EXP [N] STOP  !POINT k FORMAT  PAUSE ASN  PAPER ABS ▚[O]SGN  COPY  LPRINT ?TAT  PAPER K MOVE  PAPER [G]wCODE  STOP pZ[I]<>CODE TAB  PAPER  STEP e PAPER © COPY   MOVE ]F1 OUT  PAPER  CLS  NEW  PAPER @ STEP s GO SUB COS W GO SUB  DRAW U!L PAPER [J]1N LPRINT ]COS  GO SUB J[J]r GO SUB  REM 3<= OR ^ LET [B] PAPER  ERASE [R] CLEAR L PAPER IN POINT ] PAPER [T]"[J]INKEY$JINT  PAPER  SAVE D[R] PAPER [G] PAPER !&{IN  PAPER  COPY $h PAPER o' SAVE  CLS IN JSCREEN$ h▞ PAPER IN  PAPER [F][J]U$3z PAPER  PRINT 2ABS [J] LOAD wO PAPER  CLS [F]bIN xY,o PAPER  SAVE )R PAPER  NEXT  PAPER O PAPER [C] PAUSE  REM  CLEAR Uf* PAPER sABS [J]S▛ ERASE [F]K COPY ▛NOT Y[C]O3j3 PAUSE  PAPER SCREEN$  PAPER  CLEAR  PAPER  COPY Fb SAVE  FORMAT ' PAPER z PAPER  DIM c<> PAPER Y[K]O▝[J] PAPER [N] PAPER EXP  PAPER K5 IF POINT W SAVE =/fc PAPER  IF pZ PAPER IN  CLS EXP ^[I]▗H CLEAR sEXP  CONTINUE I PAPER  PRINT sABS OF[J]][E] STOP  PAPER xISTR$ sEXP &% PAPER s PAPER EXP IN [N]Q< PAPER  ERASE [J]hINKEY$? RANDOMIZE  SAVE JINKEY$ ERASE SCREEN$ H PAPER ▛ PAPER =J CLEAR } LINE U[N]K ERASE " CLEAR TAB [K] SAVE  PAPER f PAPER  REM u PAPER  CLEAR [F]N NEW  STEP  PAPER Q[K], ERASE [C]" STOP 7[I] IF  PAUSE cPOINT ACS  PAPER K BORDER  PAPER SQR [J] NEW [F] PAPER x= STOP POINT = MOVE  IF  PAPER 2fzTAB [G]6 PAPER  COPY  RANDOMIZE  PAPER CcGTAB IN TAN [A] PRINT  PAUSE U'[E]SGN Z PAPER  IF  RETURN  CLEAR e[T]$z PRINT  PAPER  RESTORE  PAPER  DATA F IF SIN CODE  PRINT SIN [E] AND  RESTORE }R RESTORE BK IF  COPY ] CAT [G]SQR TAB ▝p[O] IF [S] NEXT  PRINT  READ ▙▚uVAL$  FORMAT  PRINT ATTR  FORMAT ATTR .j CAT 5t FLASH <>[M] OPEN #V PRINT  FORMAT  CLEAR _[ POKE  PRINT UW IF m RESTORE PEEK : REM LN  PRINT CHR$ 5 CLEAR * COPY jINT  STOP T IF U_Wh[H] PRINT [P][S]R/COS tJ[ IF LN / RETURN  CONTINUE TAB n PRINT [L]] FOR Z[U].[U]_ CLEAR |INT eJ PRINT ▜v[H][E][U] FLASH _ FORMAT :t[T] LPRINT PEEK  PRINT [D]:-u[G]:[S]u IF _}~ PRINT [M]ACS | CLEAR ] PRINT Pi MOVE  INVERSE @ IF  PAPER SCREEN$  ERASE @[C]Nf CLEAR *IN  ERASE SCREEN$  ERASE  IF _[I ERASE  RETURN  PRINT FN J` CLEAR © CONTINUE  LINE ▗ RETURN  IF ; LOAD Z MOVE USR  PRINT Z[ORND<>wVAL$  ERASE  IF ] CLOSE #©[G] PRINT © STEP  VERIFY A[A]7[T] IF  NEW  REM ABS  PRINT Jt{[U]UK© IF  CLOSE #hQI PRINT w RESTORE Z LLIST }(A LPRINT  IF .vTAN K, PRINT  LIST |{BIN INT SCREEN$ + REM ▟RUSR  LOAD W PRINT x MERGE oVAL E FLASH  COPY XFN )[U]j[U] PRINT  COPY -IN  LET 'EXP  LET  FLASH  DRAW CHR$  SAVE TAN  NEXT  CLS  CLOSE #a PRINT ▜USR @[VAL  DRAW  READ TV# DIM  DEF FN  COPY  CLEAR  SAVE  RANDOMIZE o DRAW 8 DRAW ?-ESNAR ▟ COPY <>PO ERASE I NEW  COPY 18-DRUM4 [G] DIM P MERGE c2 LIST HI READ sAT  READ P[K] INVERSE [E] LPRINT yGUIT FORMAT 41 7f STOP QlSGN DX-6BIN  COPY gSV DATA ▜PKLOL-1 STOP  LIST VR DEF FN |iH FORMAT IN  LET  LPRINT Q. BEEP (basdr1[D]um OVER COS P[N][A]IN COUNTDW3 NOT SVAL$ R<>▟OBSIN FORMAT  MOVE [I] OPEN #Q[N]OFX CLS STRVAL  CONTINUE  REM  RETURN VAL$  PAUSE KG-SAX3 RUN  CLOSE #VAL T GO SUB  READ .[C][U] COPY  LIST P CLEAR  RETURN  LPRINT <=0 LIST SQR {0' POKE l)_ STEP ) VERIFY  LOAD  LLIST CODE  LET  ? IF  RESTORE  INPUT [Q] RETURN G INPUT  LINE a CIRCLE  COPY  BRIGHT  COPY VAL ▞LN * INPUT  LINE STR$  AND  BRIGHT <# BRIGHT [P][A]p' INPUT  COPY  LET INKEY$TAB ATN  INPUT / LINE   LET  LET  INPUT  RUN  RETURN INKEY$ NEW ©( INPUT ▚yATN  LPRINT INKEY$i) BRIGHT , INPUT p CLEAR IN  SAVE  COPY .SGN  CONTINUE LEN  CAT  INPUT USR ` COPY 0 LPRINT ( NEXT  TO  LINE  LPRINT # COPY LN L3 COPY  BRIGHT  DRAW  CAT  LPRINT pNOT INT  ERASE  INK < RETURN  INPUT  DRAW  FOR USR ; FOR <>USR  TO COS  USR  OPEN # LPRINT  OVER 0INKEY$ BRIGHT  INPUT IN USR [S]COS  DATA USR  CLS  MOVE O CLEAR  MOVE AT 4'0 CLEAR @ CLEAR I IF  INPUT LN .l, INPUT  CLEAR  BRIGHT %~I INPUT , INPUT  CLEAR ACS  INPUT  BRIGHT NOT [C]LN * INPUT  CLEAR p$LN [E] LINE % IF [H] INPUT  CLEAR  DATA © BRIGHT  INPUT  COPY [C]p" INPUT  CLEAR  CLEAR O INPUT  BRIGHT ▚a'(p/{[T] LPRINT O CLEAR SCREEN$  MERGE  INPUT = CLEAR 3 CLEAR %<w FOR B INK fo COPY  COPY mACS [P] COPY  COPY  DRAW  RETURN INT " THEN  CLEAR  CLEAR f/ AND  CLEAR  COPY _ CLEAR  COPY PEEK  CLEAR  COPY  COPY ; COPY [P] THEN ,* CLEAR  CLEAR ACS ▜ LINE f  BEEP  OUT o CONTINUE  LINE  OR  FORMAT <= VERIFY T! COPY LN 8[[A]X8NOT ^4_ INPUT [Q]r AND ASN  COPY [E][U]- COPY  COPY oCOS  INK NOT  DRAW L( RETURN < LPRINT  TO 3<=r LPRINT - VERIFY ! LIST `] COPY $▚ BRIGHT "▘vh![H]aRND  COPY  RESTORE e/) LINE  LLIST  COPY ▘(POINT  BRIGHT M BRIGHT  INPUT  RUN 1 DRAW  INPUT  BRIGHT  RETURN iK BRIGHT B LLIST 2@ THEN  RETURN [N]NOT  COPY   TO SIN v THEN <D@VAL  GO TO p BRIGHT SIN  COPY  COPY  AND  BRIGHT *] DEF FN 0SIN  DIM SIN  DRAW |[H]a BRIGHT gEXP  LINE ["©[N]L~ CIRCLE ![P]:OPEEK © INPUT  THEN ©ATTR  COPY  IF F< CAT  LPRINT  OVER PEEK H/ATN ATN 9 BORDER   SAVE  DIM  RUN [P]F= INPUT  BRIGHT © PAPER  AND  AND PI BRIGHT  INPUT 6 BRIGHT *W" BRIGHT  RANDOMIZE  OUT  INPUT  RETURN ]a INPUT  COPY  COPY  COPY  COPY ▚ COPY  COPY  COPY  COPY  COPY ▚a COPY  COPY  COPY  COPY  COPY a COPY  COPY  COPY  COPY  COPY  COPY ▚0 COPY  NEXT  GO SUB s▛ LPRINT ! LPRINT ▞[w MERGE  GO SUB VAL  LPRINT  INK !e INPUT  COPY  COPY  FORMAT <> GO SUB LN 10 PAUSE STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>BBB<▚a COPY  COPY  COPY  COPY c COPY  COPY  COPY  COPY  COPY  RANDOMIZE  SAVE x1 SAVE [Q]SQR {wVAL$ V TO  COPY  STEP  COPY  IF  COPY  LINE  CLEAR  INPUT [N]pjl PAPER  RETURN o[J] COPY  PRINT  CAT [Q] DEF FN  COPY VAL$  SAVE l<> BEEP CODE C DRAW  OPEN # CONTINUE  GO TO  COPY [P]E VERIFY  COPY  OR BIN  INPUT PEEK  CAT  CLOSE #.[O]l GO SUB ▜kj STEP [F][G] RETURN  COPY y CONTINUE  STEP  LIST 3 DATA  CAT  REM  DRAW  LOAD }C[J]▜COS AT  LPRINT p NEXT jVAL +@eSCREEN$  CLEAR  NEW N OPEN #POINT  RETURN SQR  OUT [P] BORDER  CLS VAL$  CLEAR ▛ STOP 7[O]EPIATTR RND CAT ©COS @SGN 7LEN  INPUT  DRAW  OUT  CLEAR ? DEF FN  LOAD  OUT POINT  GO TO VAL$  PAPER  DEF FN ASN SGN ` FOR  LINE [N] CLS INKEY$ DEF FN  IF <>C CLS < DEF FN  DEF FN COS VAL$ SCREEN$  RETURN  NEXT VAL  COPY = FLASH 9[O] IF  NEXT  LOAD INKEY$ GO SUB pHWmD BRIGHT  CLEAR C▞ RETURN  PAPER  RANDOMIZE [O]0 FOR  STEP SCREEN$ Jz INK [K]<> CAT ▙w DEF FN [R] DIM  DRAW PEEK USR gCHR$  OUT  FLASH  NEXT TAB [K] TO EXP  COPY  COPY  DEF FN ATTR dPOINT 4[A]: CONTINUE  LOAD `BIN [N]BIN ▜ REM LN  CLEAR ABS  RETURN VAL nj[A]SGN ASN 1 CONTINUE = GO SUB 7 INPUT 9 CLS  LOAD  GO TO TAB /& OR L OUT  DRAW ▖ COPY " TO  INVERSE  RETURN TAB COS  OVER [K]=<STR$  INVERSE :▜{ CONTINUE  OUT [G][L] DRAW  RANDOMIZE [A]<> OR SQR  INVERSE  NEXT  DIM [M] OVER w GO TO 9 COPY `c CLEAR  OUT VAL$  LINE  STOP @SCREEN$  INVERSE 9&<=SQR  INPUT  COPY 3 IF COS  STEP a[J]d LINE  INPUT  DEF FN iQPI CAT  COPY  REM ATTR {bSCREEN$ [H]S CLEAR  CAT  IF `EXP  COPY  COPY  GO SUB  STEP [T]▜ DEF FN YSGN SCREEN$ /[J] DRAW  OVER  FLASH  RETURN PEEK N[C]| AND  MOVE  CIRCLE e LINE TAB  BRIGHT SPEEK ▚ DEF FN [H] GO SUB ▞? BRIGHT ABS TAB V COPY  COPY n>= THEN  TO @l[Q]▖yPOINT SCREEN$  COPY  COPY [U]AT  LINE [M]PI<>SQR  IF  COPY [N] INK |▖[G] RETURN  LOAD ^8SCREEN$ L RANDOMIZE  OUT  INVERSE  OVER ATTR  TO )CHR$ POINT P8INT ? DEF FN z<> BORDER  COPY IN  LINE ABS Ih INK  OVER SGN [I]STR$ LN  LIST  COPY AT SCREEN$ z'[T] DEF FN  TO ▛w|U THEN sc[J]AT EXP  INVERSE  ERASE  FLASH 8I] IF ZSTR$  GO SUB  TO ▞CSTR$  INPUT  STEP SQR  GO TO  READ y}r THEN INT CHR$  FLASH  DEF FN jCHR$  COPY [D] TO SQR AT ATTR f[K]vPOINT  RETURN  FLASH j<>[L]LN ▞INT  GO TO VAL$ ▛TAB  DRAW ?SCREEN$  STEP  BRIGHT INT  PAPER  RETURN  OUT  INVERSE POINT  GO SUB  COPY  INPUT [K] LLIST  STEP <>PEEK POINT  PAPER  LOAD [Q][B]ABS wKi STEP  LIST NOT [L]z▞ INVERSE SGN [K]i9gATN :INKEY$BIN  BRIGHT [K])SCREEN$  INPUT ! STEP SQR  OUT ATTR  LINE  GO TO ABS  THEN  STOP a< OVER POINT ATTR #[P] PRINT PEEK [J][K]g TO  LIST  BORDER j[G]▞y<>ABS SCREEN$ [H] BRIGHT [O]?▞ FLASH [N]<> INVERSE [L]ATN Q LINE  THEN SCREEN$ 3CT[G] INVERSE  RESTORE A STOP  BRIGHT  FLASH  INPUT  DEF FN VAL$ ▖CHR$  GO SUB  INVERSE  STEP NOT G▜ FOR  INPUT [D] LET TAB  LINE SQR ABS E[I]"INT [L][I]y OR SGN SQR ATTR ACS [I] DEF FN  LINE . ERASE  TO ▖ STEP  THEN !E TO [J]▞ BEEP SGN p RANDOMIZE NBNOT  IF | COPY  DRAW  GO TO PEEK xN DIM ! LINE  INPUT BIN  FLASH  TO  RESTORE [K]POINT  CIRCLE ▗< STEP INT SGN ATTR [I]IN E[E] POKE  TO  LET  INVERSE BIN SGN FN ATTR  GO TO  DEF FN 7J AND © RETURN ( THEN  BRIGHT '[D] LET ▟ CLS SGN ▟ OPEN #[K]$3 LINE  CLS SCREEN$ <= THEN  CLS  GO SUB ! RANDOMIZE -u NEXT p OR  NEXT CHR$ [J][B]▟[E] OR SIN ▖ POKE )>=$[R] MERGE  LPRINT [E] INK dZbSIN  NEXT [C] RUN SCREEN$  NEW q OUT  INK J[S]BIN c VERIFY [4= ERASE  CLEAR  DRAW [B]Pd▜ THEN  OUT [K] INPUT [E]yi OPEN #_TAB G LLIST  NEW  SAVE [P]CHR$  STEP  SAVE qqz COPY  LPRINT  IF i[H] BEEP  NEXT r CLS ▚STR$  COPY 8 THEN  RANDOMIZE EXP NOT  FORMAT $ COPY o[G] REM Y DIM USR  READ  PAPER <>nVAL$ TAB  LPRINT  LLIST  INK  LINE FN [O]ATTR [I] BORDER  STEP  PAPER  INPUT <>TAB SQR ,▟9PEEK  INK  FLASH <>SGN  BORDER  BRIGHT  INK  BORDER  LLIST ATTR AT ~VAL$  PAPER  FLASH  DRAW  NEW [M]m DEF FN SGN  TO  LINE  BRIGHT  STOP AT ▟~ STEP TAB  THEN [P] INK  BRIGHT &F<> IF  DIM  REM  RETURN  CONTINUE [P]k REM  LINE  TO  GO TO NOT AT  STEP SCREEN$ 2 OVER  MOVE ABS ASN D[I]>= TO INT [S]{ABS SGN  DEF FN  PAPER  RANDOMIZE ATTR  NEW [A] INVERSE [M][Q] STEP SGN  FLASH  DATA 4 LINE CHR$ AT  BRIGHT  DIM <=,ABS  THEN  CIRCLE  PAPER [B][D]SQR INKEY$ LPRINT AT  INVERSE [R][A]<>z©[N][Q] FORMAT ▞[U] BRIGHT  THEN  REM _ DRAW [M] RESTORE SGN  BRIGHT  AND INT ABS TAB  FLASH [N]AR OPEN # STEP )2 LET  TO [Q]5$STR$ CODE s RANDOMIZE  VERIFY  INPUT [P]L[S][R]WhRSQR [S] LOAD  INPUT  INVERSE $'VAL$  LOAD [R] STEP  FOR  Fh▞qSQR o)VAL$ ▝NOT  INVERSE SQR TAB /- CIRCLE  TO  INPUT  ▗$ LET CINKEY$ IF SCREEN$ ![S]▖ SAVE SQR  SAVE [H]oB[K] DATA  RANDOMIZE F DRAW /B PAPER :[<)<>I ERASE >= RETURN  RANDOMIZE  REM Jd PAPER  BRIGHT  TO [J].INT [D] COPY SQR ]o▞POINT  MOVE  LLIST # RUN BIN RND CLEAR  AND [L]o COPY  ERASE  MERGE  STOP X NEW /▚ FLASH  IF AT  CLOSE #[S]q PLOT   BORDER  INVERSE  GO TO ▖INT  LPRINT  RUN i" OR [H][U] OUT [G]AT  CLEAR q▙ LET  INK "USR [N] LET  REM [C][S]kINKEY$ACS  GO SUB }INKEY$[B]VAL  LIST k CLOSE #[N]^[B]PIqINKEY$[B] LIST y[N]L PRINT  VERIFY z BEEP  CLS k[P]▚ CONTINUE  LOAD  FOR  INPUT  SAVE  CONTINUE [F] IF q COPY  PRINT © LIST  NEW a~~ BRIGHT y LLIST BIN Ca DRAW  OVER  COPY [M] DIM  BEEP <=a GO SUB SQR  LOAD ▜ PLOT  qINT  RUN  AND  LLIST C[N][O] OVER cPI BORDER l FOR <=<= THEN  TO <= LET ▚ RUN [M]y[M]~(NOT  AND ©TAB R NEW  RANDOMIZE [L] OUT INKEY$ LINE INKEY$[P] INPUT  CAT g DRAW  COPY  LPRINT FN [L] LOAD <>▖# NEXT ▞ RETURN [I] DRAW d▖ CLS [J] RETURN ▞p CLEAR  COPY  COPY  COPY jPIKACS [M]>=NOT  NEXT PI THEN  PRINT CHR$ ▟ COPY  COPY NOT wz▚[E] CONTINUE  LIST Y RUN ACS  THEN [N] FOR = RETURN  OPEN #I[J]Uu0 RUN  LOAD ACS / LOAD jINT u} BEEP w DEF FN  COPY ▟CVAL$  RANDOMIZE b"v BRIGHT 5 CLEAR  DATA  COPY  PLOT   LOAD  DRAW x COPY PEEK *1 CONTINUE  COPY ^ OVER  CAT  DEF FN g6IN  OUT Uc[H][M] GO SUB  RUN <= OVER  LOAD  OUT VAL$ [I]d1 RUN  DRAW EXP d[G] CIRCLE m RETURN [E] SAVE ~TAB [M]wEWz CLEAR  COPY d[I]SQR  COPY ATTR  BRIGHT `g COPY  RETURN SGN  ERASE GD ERASE SCREEN$  RETURN  COPY !Sv[H]INT  FOR  GO TO  INK <= COPY  INVERSE ATTR h5 GO TO CN$TvPOINT  THEN  RETURN 5[I] COPY  OVER SGN [K]xgE3sCHR$ [C][A]3e▜ AND  READ a GO SUB CHR$ [L] CLS ▞wVD#▜"3 CLEAR ©Uev▜▖[J]INT SQR  TO  INVERSE ▙U:INT  TO SQR [J]BIN N{EXP 3"LN ▙y!ATN C/[N]ACS w▖POINT WLEN ACS ATN  INPUT 8Y[U][C]SCREEN$ [J] LET  LET ▖xw[R] DRAW vfUE"PI PLOT  `SGN POINT "DTfNOT ▙bAT  THEN  BRIGHT bQ|FN PI>Z[R][K][J]▞vrSCREEN$ fVATTR AT #"9[C]AT  CLEAR 2' RUN TAN  COPY "2 FOR DVAL$ +GTAB ▖RNDATTR /-|ABS 1POINT lKK COPY m+ FOR SGN  READ qE OVER  GO SUB  INPUT  LOAD IN [S]V PAUSE  COPY  OVER  PAPER /.SQR ATTR I2E[M]g[L][K]SIN 7 COPY AT 4 RETURN ▜▚ COPY  FOR &EXP U COPY e[F] COPY v(G[C]<[D] THEN H<=BIN a TO  TO *[F]INT [C] RETURN [L]RNDu< GO SUB [C]U][T]HSCREEN$ TAB s;VAL$ d+▞ COPY ▞ COPY POINT  DRAW x RETURN l▖▚WvdAV© STOP s[Q]dSTD▝ PLOT  EC4▟J[C]U[F] NEW  OUT %4t COPY [J][I]POINT ( CLEAR [K]&▞%SQR ATTR ▜ COPY EXP ESCREEN$ K PAUSE WD COPY [O]m GO TO +8 NEW  CLOSE # BRIGHT [M]ASN  DRAW  GO TO SQR  BORDER I THEN }SGN ▞[K]▛w(▖v▚[N][L]▝L[G] COPY e2d DRAW 1[D] INPUT ▜3x1[H][E]Pe[F] INK ACS [F][B]▞ LET  PAPER %▞ PRINT  DATA c CLEAR  COPY ▟CHR$  LOAD  CONTINUE K PLOT  [T][K]INT { PAPER VAL$ [B]HSCREEN$ ▗<=INT p# CONTINUE  CLEAR Ip PLOT   RANDOMIZE Q LIST  COPY [J] PAPER  PLOT  [H]x CLEAR  DATA  RETURN [9 COPY [J][L][I]7 PAUSE -▖ASN [A]0 PLOT  )TF| LOAD PIy-v[U]SGN CHR$ [G][F][R]ZACS f MOVE D[C] TO ATTR  IF [N]o(- DATA "PEEK a7/ INK ▖ LINE R RETURN ▖ CLEAR [D] RANDOMIZE 7N COPY | STEP  THEN  CAT  LIST  FLASH  COPY o RUN ▖ACS  PLOT   DRAW [T] OVER D CLEAR _ POKE  COPY LN  CONTINUE  COPY hf PAUSE J BRIGHT dIM7 TO <= NEXT  REM [J]{COS ▟[A] BRIGHT  STEP K IF  CONTINUE [K] FOR  COPY t[P] NEW  INK [D]0CODE STR$ FN [S]( LLIST INKEY$ RETURN  COPY  DATA  CAT  NEXT [T]▗ COPY [E] STEP [<[B]5 COPY .▘Q6 LIST  COPY  IF /FSGN [L]F BORDER  INVERSE ▗xUCHR$ TAB  DRAW  COPY  IF INT  PAPER 6~ BRIGHT =p STEP © GO SUB  CLEAR  NEW  GO SUB  CLEAR  RETURN  IF 1[T]▟ INVERSE  BRIGHT  SAVE `[R]POINT  STEP o CAT  COPY  READ  CLEAR LN XO GO SUB  OUT  LIST ©ACS  REM INT INKEY$Y9i RUN  COPY 7e[Q]SCREEN$  DEF FN  STEP  LOAD  BORDER ▙ RUN  CAT  COPY © BRIGHT  LINE >=[J]POINT ▜[D]ACS & COPY imTAB AT  INPUT [P] COPY  CAT  DIM <= INVERSE  COPY 7TAB  RETURN  REM  IF  TO  STEP m RANDOMIZE  COPY  COPY ~ THEN 9[N] FORMAT j[T]< INK AT TAB SQR  RETURN POINT NOT [O]IN  DEF FN o RETURN  FLASH CODE  OUT  DRAW  GO TO  OVER  GO SUB  CAT  IF © READ  PAPER  OUT  NEW  LINE <>=ATTR [R] NEXT  READ [H]|NOT wTAB <=P[I] SAVE CODE  BRIGHT  RETURN  DIM  GO SUB VAL$  GO TO  DEF FN >| OVER  LOAD  INVERSE  BRIGHT  REM SGN  COPY TAB  PAPER nNL[O]>= INK [N] LIST  COPY m LINE  VERIFY K DEF FN  MERGE |[N]AT VAL$  PAPER  STEP 0 LLIST ABS [O] LET  OVER  DRAW  BRIGHT  STEP 9 CAT  INVERSE  GO TO VAL$ PI[O]▟ INK  RETURN  LET SCREEN$ ABS <>l[M]NOT  TO FN  INK POINT  DEF FN q LINE  GO TO SQR  DEF FN PEEK OLEN  SAVE  FLASH  INPUT  TO  INVERSE $& INK VAL$  BORDER  REM lAT [M][K]©!SCREEN$ SQR ATN  LINE [M]VAL$  THEN SGN  DIM PI NEXT E[E]AT  REM  PAPER ATTR  GO SUB  REM ▛ OR [N] BRIGHT EXP TAB  BEEP ▞ THEN FN [M] INK [K] NEW gmzATTR  BEEP EXP  MERGE POINT  SAVE gPIINT ATTR AT SCREEN$ TAB  TO <= BRIGHT  READ [M] CIRCLE INT  STEP >=AT ABS  REM  GO TO EXP ▟ATTR n$▛ DIM <>EXP  PAPER  PAUSE a BEEP  FLASH ATTR  LINE | REM bS COPY  INK INT SQR  PAPER  FLASH SGN  STEP u STEP  COPY 1 BEEP  DIM  PAPER  INVERSE  LINE ▟c STOP  TO  FLASH TAB SQR AT  PAPER ~ THEN ABS EXP VAL$  LINE TAB SGN [E][D] DATA J COPY  GO TO [N]A9<> RETURN  FLASH  OVER  DRAW  PAUSE PEEK  FOR [F] DATA  INVERSE  TO VAL$  CLS  IF -IN  COPY  THEN TAB SGN VAL$ ▛$` STEP  LET `$ GO SUB  THEN *[F]I STOP  PAPER SCREEN$ LN 1B LINE  GO SUB SCREEN$ I[B] PAPER  PAPER y*INKEY$ CLEAR ABS  THEN  REM ▜[H]~ STEP AT [O]PEEK &F~[A] REM  INVERSE  INK [J]m PAPER  STEP 9FM BRIGHT <> LPRINT SQR %[D]TAB ATTR Z STEP SGN  RESTORE INKEY$ FLASH ITVAL$ [A]SIN  PAPER Q[U] FORMAT  MERGE  CLS DNKSQR  BORDER !FN  DEF FN  RETURN [I]l{SQR [B]ABS [B]'PEEK  ERASE VAL$  GO TO  PAPER _<>z GO SUB 7POINT  INK  REM INKEY$▗rQ FLASH [A]EXP TAB J▗ PAPER  CONTINUE  GO TO R CAT  THEN PEEK 0][I]ATTR SGN  LINE  INK  BEEP <>[F][R]SCREEN$ SCREEN$  STEP  DRAW ▘ CIRCLE _ATTR [C] NEXT INT ABS [M] LINE  BRIGHT EXP <> NEW %Ejf8'A<> OPEN # FLASH  SAVE  TO  OR [J]EXP [N]/AT  LINE INT [M]SQR  INK DHQ RETURN ATTR LI& PRINT  RUN  IF <> RESTORE  FLASH X[M] RANDOMIZE POINT  CAT <> LINE INT R COPY  STEP SCREEN$ [N] INVERSE SQR  DATA USR TAB [O]ATN ;[F]AT  REM #SCREEN$ h FORMAT TAB  BRIGHT ▙V7POINT  LET [N]AT  REM  FK SAVE 2▟ATTR W CIRCLE  PAPER  PAUSE [C]P] OR  LINE  OVER  PAUSE ur[U] GO TO  INK STR$ *[M]TAB T▟POINT  OUT 9<>[M][F]5ATTR [O] REM " OPEN # BRIGHT SQR  INVERSE P( GO TO  THEN K[Q]9 BRIGHT  THEN INT l[N] GO TO INT  BRIGHT  ERASE  DRAW [N]) PAPER TAB *xVAL$ 2K$ DEF FN  BRIGHT  OUT  OUT e PLOT   NEW  REM <><>NOT `AT  INVERSE ATTR  GO TO  PAUSE  RESTORE -[G] GO TO d BRIGHT 5xASN kATN  CIRCLE  SAVE  DEF FN $<>) PRINT  FOR  RANDOMIZE  POKE  LET [E]R{>= FLASH ABS  INVERSE  PAPER m GO TO PEEK CHR$  FLASH  FOR  PAPER CODE  DIM ASN CODE h STEP  NEW [O]l STEP VAL$ EXP ASN  MOVE  BORDER LN ^D IF y%[A]PI|RND)%9LN  LINE ! LOAD SQR  REM 3 CONTINUE  PRINT  INK  LINE  CIRCLE ATTR [R]ZvSGN [H] LET JhvINT  LLIST [C]9 LINE [S] FOR  PLOT  $ BEEP 10 RUN [N]ABS TAB y<><yE STOP <=mAEXP POINT ▗@z PRINT [C]dINT SGN  RUN  BEEP  DATA |K AND nFN [R]] PRINT CHR$ h LET CHR$ Ex STOP [F] RANDOMIZE INT  GO SUB  NEXT H[S]BIN  MOVE  STEP [E]BIN TAN  CLS  PRINT [Q]( OUT  STOP  BEEP c DIM TAB SIN  ERASE INKEY$ BEEP  LINE  LIST AT  OR / LINE v(Uh GO SUB lBIN ^UFN WAGAT o CONTINUE [S].ACS +Q>=▛t-:BIN  OVER  DIM [D]nK" NEW S SAVE  BRIGHT [T][D] CLEAR x ERASE  IF A COPY  READ  LIST [U] COPY  RETURN [S][I] TO 7 COPY [O]INKEY$▟SQR SGN  INK ▚E/p) MOVE ABS [H]dINT !A OUT n MOVE z GO TO $dXo COPY  COPY  TO _ IF  COPY wYg}=1 BORDER ? NEW e COPY  RESTORE P BRIGHT S LPRINT  DEF FN  GO TO  SAVE  BEEP  RUN  COPY 8CHR$ /T/= FLASH M▞ CAT  DRAW 3Y STEP 2| RETURN L8USR Wq^ATN - LPRINT  AND  DRAW TL]+ AND ©e3X' GO SUB :STR$ R LIST ▟v[> LET ▗$B~<▜[P]|"<NOT ac! SAVE B@[M]H LIST  COPY  LIST ~ <NOT aEXP z SAVE p LPRINT [S]hN LPRINT  TO <>h>=> COPY ▙<= SAVE DGjHDp CONTINUE  ERASE  LPRINT N">=BfZ CIRCLE PEEK bRJF SAVE USR  COPY [Q]CODE [H]VAL  BORDER POINT FN  LIST $ LIST  BEEP @ LPRINT  RETURN [C]) COPY VAL B GO SUB VAL ![H] CONTINUE  LPRINT  MERGE @NOT NOT 3?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <>BBB<▚a COPY  COPY  COPY  COPY c COPY  COPY  COPY  COPY  COPY  RANDOMIZE  SAVE x1 SAVE [Q]SQR {wVAL$ V TO  COPY  STEP  COPY  IF  COPY  LINE  CLEAR  INPUT [N]pjl PAPER  RETURN o[J] COPY  PRINT  CAT [Q] DEF FN  COPY VAL$  SAVE l<> BEEP CODE C DRAW  OPEN # CONTINUE  GO TO  COPY [P]E VERIFY  COPY  OR BIN  INPUT PEEK  CAT  CLOSE #.[O]l GO SUB ▜kj STEP [F][G] RETURN  COPY y CONTINUE  STEP  LIST 3 DATA  CAT  REM  DRAW  LOAD }C[J]▜COS AT  LPRINT p NEXT jVAL +@eSCREEN$  CLEAR  NEXT ! INK a`▘ GO SUB VAL > STEP `![A]eUSR + GO SUB VAL  STEP USR > STEP `!PI[A]USR  SAVE * GO SUB VAL  CLS <> OR 2-` CLEAR © GO SUB y NEW 2#`STR$ <> NEXT  RESTORE  MERGE  OR  PRINT  INVERSE  RESTORE  CLEAR  RESTORE  INK  RESTORE  MERGE  OR  PRINT > PLOT   CLEAR © GO SUB y STEP USR > CLEAR © GO SUB y LET STR$  MOVE  LLIST  INK  CLEAR  LLIST  INVERSE  LLIST  LET STR$  MOVE  LLIST  CLS <> NEXT >? GO SUB G GO SUB V CLS > STEP ` STEP USR > STEP `<> NEXT > STEP ` STEP USR > STEP `!`" COPY `>` GO SUB G GO SUB ^ CLS <>!@@ COPY u GO SUB VAL <> STEP  FOR  NEXT  GO SUB ssUSR !USR ▟[d MERGE  GO SUB VAL ! FOR  CLEAR  COPY [E]*<> GO SUB LN !j MERGE USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN !/ LINE NOT YCHR$ NOT CODE  OR  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQIN >, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY  OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝q COPY  READ IN  NEXT  RESTORE "NNOT  RESTORE ~2 LLIST  AND 2COS  OR ##~#" LET CHR$  "NOT ^#V#";NOT O"0NOT  LLIST "INOT !KCHR$ LCHR$ p GO SUB VAL CODE IN 2HCHR$ 2ICHR$ 2JCHR$ 29 AND 2[O] AND 2 FLASH NOT 2ZBIN 2 BRIGHT BIN 24 AND 2[J] AND 2)BIN 2ATTR BIN 2. OR G/2CODE NOT 2.BIN 2VAL BIN >/2▘ AND 2 AND ! CIRCLE STR$ ">AT  AND "[T] AND "$BIN "INKEY$BIN ") OR  STEP 6NOT  GO SUB S THEN  OR STR$  GO SUB sNOT 1 CONTINUE STR$ >  LLIST  FOR s#r# FOR =  PRINT ▗(CHR$ >p[R]*(CHR$ "N AND "COS  AND "INT NOT "9BIN "SQR BIN  CLS NOT 2 OR !~▜ GO SUB s^NOT  8 INPUT ▚▜# AND ▘ RANDOMIZE FX LLIST " DIM  OR ▘ AND m[H]<>{▜_~0 THEN #~STR$ [I] NEW  THEN Z  PRINT 2QCHR$  LET ~ NEW #ng INVERSE b FOR >=[N] INVERSE }▚▜O!(USR ~#fo THEN :8 GO SUB R<><>><(wAT ▘%[B]y<PEEK # ~2TAN NOT #"[F]NOT  FOR x_@ASN NOT # INVERSE .z STEP cNOT )"KCHR$  FOR 1▜ IF BIN (& RESTORE CHR$ [S]{PI PAUSE  CLS NOT  GO SUB DOPI GO SUB B0 LLIST >2 INK NOT CODE 2 DIM NOT go" LPRINT NOT " PAUSE NOT  LLIST CODE ▚ INVERSE |2RCHR$   FLASH ▚~ PLOT  2SCHR$ ©▝zp©@©▘3BIN p©▘4BIN p©©▝M@©▝[L]p©▘zBIN p©▖2XBIN CODE 2hBIN ©▘_BIN ©▘qBIN  ©_BIN  INVERSE |!RCHR$ ACS wp▘▝T ▘▝{qP LET p▘!▝ACS p▘!▝OA▘ OR a▝ DRAW `▘▝ PAPER ▝▝ REM ▝ LLIST BIN  LLIST ▝ NEXT 0▘▝ LLIST @▘p[O]UCHR$ !XCHR$ IN  COPY   VERIFY !UCHR$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2XCHR$ <>CODE G>=R[B](>=("=CHR$ VAL$ NOT !HCHR$ 5 PAUSE VAL$ NOT 6▖PI TO 6NOT  STEP t<= INPUT ▗2 AND NOT ▝Ip▞ STEP [I]>= GO SUB S DIM  OR 2q ▝J7▘ AND 0[P]<> GO SUB S AND CODE 062▘TAN NOT ]" RUN "ATN NOT !▗2- AND 1▘)BIN 6▝ FLASH  ▘$BIN 8▝▗2D AND '▝INT '2T'▘BIN 9▝ PAUSE D▝ ▝ CONTINUE Dgo LOAD  GO SUB "3BIN ▟▝/IN "e▝6N2[C]e▝ATTR e▝Z C▝INKEY$0e0▝POINT  e▝9u2EXP  r▝q▟▝▘[C]▝[G] p▝g O▝CHR$ TAN ▗VCHR$ >©CODE 2 VERIFY ▙2[ AND :l AND =(y2" AND CODE +▘>7FN ▘<> CLOSE #: INK NOT O▚( PAPER CODE 2lG>7<>STR$ ▜! CONTINUE USR [S]▝>+▗NOT t<= 1[E]&o"k AND PIx PAUSE A<=/2f AND -▝@▝U ▖og"` OR A▘ VERIFY [A]<> OR  AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘STR$ O$"' AND ▞▗!(CHR$ ▜@▝N<=▝D<> SGN  PI<>CODE 00SQR ▚( GO SUB  RETURN ( LIST ▘>D2 FLASH  AND 2 BRIGHT  AND 0 INK [T]▝ LLIST X▟2 AND  AND : MOVE  AND = LINE >=y2▜$▝▘$▝EXP $[C] AND :XBIN $▝▜$ INK CODE 2 MOVE  AND  q$q$▘[I]>= 11$▝ FORMAT $e>=/2 THEN q$ ▝y A$▝USR A$▝[O]A$ RUN ▝ BORDER q$q$q$q$▖ [R]q$!$▘ AND ▞q$ AND  FOR ▝POINT <>&*!$h$▝[J]@SQR q$▝eq$0 INK 1$C▘: PAPER  PAPER BIN (8▙NOT U<>2 OR : REM BIN = LINE U<>yM$J[D]▗"ASN BIN <>2.▘ DIM BIN .▙o<>/2 OR *o&0▝ B. NEXT BIN .▘ BRIGHT BIN + CLS ▝l+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"LN BIN NOT [P]<>r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘. OR r4▝CODE V;2▝[P]sHR▘J= ERASE  PAUSE  CLEAR  TAN  LPRINT  LET ▖ PLOT  K_ FLASH  INPUT  LET  IF .3[F]▟8=BFKZms[Q]PSYCHOSONICCHR$ .[J]KLIM/OHG/MFA/J|▘H LLIST  COPY &SCREEN$  CLS [Q]&m PRINT ,{LN BIN  MERGE  OVER .` OVER  OUT ▝ ▜*9IN CHR$ ▜ICHR$ r▝ATTR  ▝SGN  ▝ REM 0[O]1 OPEN # NEXT [F]<=[I] GO TO *4:IN BIN :▘:[M] DATA ©`ATTR  FOR |~[O] DATA ©Pppp  (w[P] 0▙[M]p8pHpPpXp`p@@[L]# BORDER ©gCODE " CONTINUE CODE   STOP CODE  BORDER CODE  STOP CODE # CONTINUE CODE !CODE # BORDER cpPLEN jATTR " CONTINUE ATTR   STOP ATTR  BORDER ATTR  STOP ATTR # CONTINUE ATTR !ATTR # BORDER dTAB " CONTINUE TAB   STOP TAB  BORDER TAB  STOP TAB # CONTINUE TAB !TAB [p# LLIST ©aSTR$ Y LPRINT   REM  OUT PEEK USR PEEK  pkpkpkp~pkpkpk0k[H]! CONTINUE TAB # LLIST |o INPUT ©h[T]SCREEN$ ATTR ▝SCREEN$ p0▗INKEY$SCREEN$ k!▝INKEY$!▝INKEY$!▝INKEY$@▝FN -▝FN 9▝FN !▘FN lp!`!p-▗INKEY$INKEY$m *p6▝ATTR o▝ATTR {▝ATTR cATTR ! FOR |?`SCREEN$ ) LPRINT !▞#|<ATTR |GFN @ ▝#@▝ LPRINT P1▘qqq[D]qqqq▝%UFN  ▙P▟▛& LPRINT   DATA ©INKEY$!INKEY$INKEY$%INKEY$0▝'@▝ @▘INKEY$INKEY$PNOT ▚6 LPRINT & LPRINT 80I▚SGN  [I]!USR [I]8 RESTORE CODE ▝SGN  DIM ▗P`INKEY$ THEN ▘P@ @▝ LPRINT  pp-!|CPOINT @▝ LPRINT   COS  e▚% RESTORE [I]# DATA [I]n▗ RESTORE [I] READ [I]▝%p▚![I]  RESTORE [I] DATA P▛  LOAD ©iNOT NOT STR$ ▘STR$ ▝STR$ p@pp  ,▗STR$ USR STR$ kp=p=pIp=p]p=dpTAB pTAB pSTR$ pTAB 8! LLIST z/[A]SQR Y LPRINT !zCSQR  LPRINT / LLIST ©cNOT #USR NOT ▞CdSTR$ /©cPEEK #USR PEEK [E]'dIN ;cNOT  p GO SUB ©oATTR ATTR PI[U]PI▛[U]ATTR PIPIATTR [U] ▛[U]ATTR PIPIATTR [U] ▛[U]ATTR PIPIATTR [U] [U]VAL$ 8▜POINT VAL$ INKEY$POINT ▛INKEY$VAL$ POINT POINT VAL$ INKEY$ ▛INKEY$VAL$ POINT POINT VAL$ INKEY$ ▛INKEY$VAL$ POINT POINT VAL$ INKEY$_ LPRINT  ▖▝▖ DATA ▝PI CONTINUE [U]PI▛[U]ATTR PIPIATTR [U] p[I]p[I]p[I][I]▘VAL$ 8POINT VAL$ ▝POINT ▛INKEY$VAL$ POINT POINT VAL$ INKEY$ p[I]p[I]p[I][I]2 DEF FN ▝FN ▟FN %FN # RESTORE [I]! READ [M] DATA [M][M]%p@eLAT ATTR POINT 3ATTR #PI%VAL$ ATTR 3POINT p9p9pK09[A]%POINT PI#INKEY$/[S]%ATTR POINT #AT %ATTR )POINT /[I]g[U]p[U]p[U]ppp'p![U][U]#USR [U]▞!j[S][S]#[S]'[S]!▗[S][S]!.[U][U]+[U]p p  ▘% DATA pIN pIN p MOVE pIN ▚iATTR   GO SUB oQ^! LLIST iPOINT Q REM  Q INPUT P Q PAUSE ▞! LLIST bATTR POINT AT DPI@Pnv`PA IF `PA RETURN `P"▘INKEY$PVAL$ ATTR  PSCREEN$ 0 DIM ▖PIPI+PI!PIPI#USR PI▞!jRNDRND#RND'RND!▘RNDRND0CHR$ ▝VAL$ CHR$ ▝SCREEN$  LPRINT PISCREEN$ CHR$ ▙l[F]0r ▝PIp` LN SCREEN$ SCREEN$  ERASE rAT CODE CHR$ ▘SCREEN$ ! P▜AT LEN LEN AT `P▜LEN AT AT LEN `P▚AT POINT LEN ` >=AT AT  ERASE bLEN VAL$  PD▝POINT QATTR ▞#[U]pp! MOVE [U][U] CLOSE #▝ MERGE ▖[S][S]p! LPRINT [S] LLIST  LPRINT #ABS !p[G]▞p DATA FN FN !▘p▖[M][M]#FN !▞p DATA FN FN !*▝▝[M]$q MOVE ▝#ATN  MOVE ▝q MOVE ! MOVE ▝ LET CODE ▘ATTR   LOAD ▝ LET ▜[U]PIPI MOVE ▘POINT  MOVE PI MOVE ▝!▜POINT VAL$ VAL$  MOVE ▝!▝POINT  MOVE ▝APOINT INKEY$0 ▝A▗INKEY$POINT POINT  DEF FN VAL$ ATTR AT uINT uINT uINT uINT uINT u LPRINT uINT ▝"y▗▘puuINT uINT 5INT  LPRINT &p$ SAVE $ GO TO ▖;dIN   LIST `FN  OPEN #VL▝=V▘ DATA [I]▖? LPRINT 10 FORMAT 0@▝USR VAL [Q]0[A]0 ▝0P▝p0p▘`0 ▝P0@ ▝0▚ POINT ▞: LPRINT  FORMAT  }▝▝ LPRINT  FORMAT ▘ [C]ATTR  LPRINT STR$ CHR$ u LET  NEXT  DATA  RESTORE  VERIFY  BEEP <>INT [L]l▚! . LET ,p#p#`# COPY ▗<COS P1WpIN  CHR$ l!T▞ DRAW  LET ▘`/Qn@ INPUT 1[F]!▘ RANDOMIZE ![H]▘ DRAW ▘[O]TAB p-![U]q▗ `6A FORMAT 1 OPEN # FORMAT LN [Q] MOVE p)A NEXT IN /. IF  LIST  PAUSE  LPRINT  REM  FORMAT  STOP  FORMAT  PAPER USR  ERASE USR  LINE USR CHR$ VAL INT VAL SIN VAL SCREEN$ VAL [S]VAL [K][Q][C][Q][Q]▘[Q]z[A]r[A]j[A]b[A]Z▞RJBIN pRpZpbpj`r`z`▘`P[C]P[K]P[S]@SCREEN$ @SIN @INT 0CHR$ 0 LINE 0 ERASE   PAPER   STOP   REM   PAUSE ▝0 CLEAR $2▝ CLS H▝[▞▝D▘}:-C▘! 6 FLASH ▘INT x PAPER <[C] POKE >[N] COPY ai THEN - INPUT PSIN v CIRCLE :[M] RETURN `▚ CONTINUE JAT ATTR CODE TAN  VERIFY  SAVE <^[S]BIN  NEW *Ln[C]TECHNO MIX AND .m[J]▘97(▗STR$  COPY  LINE KN[D]K ERASE  LINE ~K4▙▘ DIM 4GmLEN 60▗ c▚STR$ SGN IN PIN SGN STR$ ▚STR$ SGN IN @STR$ SGN IN @p>pFp>▜SGN BIN IN NOT PiINT USR ▚STR$ INT SGN INT "▜! REM |TAN `[I] PRINT Pppp p(p8p@pHPP▚[N]/P IF ,U@qqqqqqA▗/ LPRINT O INPUT ▚ DATA ASN  DIM ©aUSR ASN  LOAD ASN  DIM ▝ DATA  pppp$p0 <▘[N] DIM USR LEN ▝ LOAD  USR COS ▘ LOAD [N]q0q0q8q@qPqXq`qhqxq▖|[G][L]|KPIP▖|>=[G]|d[S]P&▟a[N]  LPRINT "[N]![N][J][J][I][I]@▗[Q][Q][S][U]pp▘[S][U] NEW ▗Z`[U]3 OVER , READ ▗|q[Q]!▙[C] RUN p INT p p@p@p@p@p@ NEW ACS pASN pASN pASN p THEN 0ASN p# NEW | TO ASN ▚!ASN ! INPUT ASN  Pppp$p, 8;k▖[B][N][B][N]▟[J][I]▗[E][Q][G][U]p0k▚©`ASN  NEW POINT  GO SUB uPppp p0 8Cc▝sdl LLIST [E]!▘ LOAD [D]#s|r<▝s[M]p@p@p@rDp@#d▝ LOAD Q▝[U]*5▘[U]▚[U]"[U]UY,▗ LIST 87WxINT xABS xUSR xABS xATN xVAL$ x[M][P][A] < LLIST 4 MOVE 2USR BVAL B[A]&LN `ZTAB &©0ppp!p*p3p?USR ▖VAL "VAL [Q] DIM ▘[A]▘LEN TAN ▝p` LET   DRAW  LET  PAUSE  READ y MOVE y MOVE y THEN yACS iPIy[I]y[F]9[I][L]▘© ▗b[A] STOP $ MOVE $CHR$ TAN INKEY$[I]Z INPUT 9 STEP  SAVE ▜ FORMAT USR ▟"[Q]"*P*0 ▚q[H]Q[Q]ACS EXP SGN qSIN >=▝Ar:r@rC{{yByHra{$[Q]r[M]+;{{&▘`▝{+&P▚ FORMAT {[K]{[T]▗ FORMAT +SIN p6`▝p-p▗ VAL 0pppp*p3p<pHpQ Z c[U];: CLS {n CLEAR ▚[K]USR [K]jHb LET ▙ MERGE  AND ATN sSIN sSQR sBIN s FORMAT s INK s STOP s INPUT 0b[E] STOP NOT ACS [H]xY:rhtt&t/t8tDtMASN ▙ LIST  LET  LLIST  STOP  FORMAT }▚}▚}w}/}S}JsASN cASN ▘ COPY  CIRCLE  LOAD  COPY  PAPER pb COPY  OPEN #pBIN  COPY  OPEN #q& COPY  OPEN #q▖ COPY  OPEN #q REM  COPY  OPEN #rL COPY  OPEN #rVAL$  COPY  OPEN #s COPY  OPEN #sr COPY  OPEN #s CLOSE # COPY  OPEN #t6 COPY  OPEN #t[I] COPY  OPEN #t IF  COPY  OPEN #u/ COPY  OPEN # CIRCLE ASN yATN  ERASE ▘ USR  PAPER &p$ FORMAT ▝n CLS  POKE ▝ >= e▝ CIRCLE _pp)>=SCREEN$ ▗ POKE  POKE 0▟Pp*▘$pSCREEN$  MOVE v VERIFY  MERGE   CLS q ERASE w MERGE w< MERGE w^ MERGE [K] SAVE  CLS  NEXT  STEP R;;STR$ ![H] FOR !fs#r!{0▝▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~USR ABS  NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP  OPEN # REM  LLIST # OVER  LLIST STR$  NEW ©(# THEN w G▜# RANDOMIZE VAL$  NEW ?F#IN  CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>[T][A] ▖ ▘oIN %RND_ATTR  COPY W COPY  CLS  COPY ABS  REM PRNDFN STR$ COS USQR  INPUT  COPY  CLEAR  LOAD SQR  LOAD  COPY SCREEN$ DSCREEN$ U RETURN U▖I"E*+CODE UIN IN V COPY _ COPY { RETURN  COPY { INVERSE  REM pSCREEN$ @@=▚JSCREEN$ U@▚IN  COPY  COPY  CLS ~ CLOSE #@▘ PRINT SCREEN$ [L]IN WIN WIN oIN oIN  COPY ATN  COPY  CLEAR © RETURN  LOAD  CLS  GO SUB  RETURN TAN  IF ACS  FORMAT  REM @FN [Q]BIN ▚E+W RETURN  MERGE  FLASH  COPY z MOVE T▝ U IF  GO SUB  RETURN u IF  GO SUB  SAVE 4▞ DIM t[Q] ERASE FN @[U] LINE ATTR :▝v+VAL$ ]INT t LPRINT POP CONTINUE @[C]PAAB>=[G] THEN ▖[Q]FN p CONTINUE [A] @0:SGN ?©@@? THEN IN BB@?.}>l:pLN p LPRINT Q LPRINT A STOP A▘▛▙( /▞ LPRINT  DRAW #C DRAW x▗ PAPER ▘LN IN rFN IN  LOAD  RETURN } IF TAN  IF  LIST  DIM USR [U] MOVE ▘A'+©/{PEEK u RETURN t REM VAL  CONTINUE  FORMAT FN USR [Q]▗T!▚ DRAW  RETURN ? RETURN USR ▗( MOVE ▜FN BFN SCREEN$ SCREEN$ 6▞CODE  CLEAR IN  PRINT  RETURN  POKE  OVER  POKE  IF  DATA ▙IN U/UPEEK uFN D )[D]<fNOT  OPEN #hgPEEK CODE ~8 CLOSE # IF Pt*▝: TO }SCREEN$ T[S]!>▝[M]▜NOT <NOT xIN %8x▗@RND[E]vr▘ GO SUB IN t▗V+^ATTR ▜z GO SUB  IF  CLOSE #POINT D[A]SCREEN$ [L]*P▗8|NOT  DIM  COPY FLOTP%▝b[C]*VAL$ WABS W COPY IN IN  RETURN  CLS  RETURN  MERGE j FORMAT RNDP>▜/SCREEN$ p[U]P MERGE [B]~▝<~c LLIST  LIST  CLOSE # SAVE  DRAW [N][C]%U+UIN kIN  LOAD INT  CLEAR  REM  POKE SCREEN$  FORMAT SCREEN$ IN ▖.LN U RETURN <P[T]@ [A]▖ DEF FN  CAT <> Q TO r9[F]WSCREEN$ _ REM } PAPER u IF  CLOSE #j FORMAT FN @[Q]▘H8 DRAW TAN )%IN ++3773▟ AND a` DRAW  LPRINT xFN  LET FN  CLOSE #[Q]QI%▙(t[Q][R]▜USR TAB ?<2?dx`p`@ LPRINT USR  LPRINT USR IN 0 FORMAT  FORMAT  CONTINUE BIN [T] SAVE  PLOT   COPY } VERIFY ▚ REM ▛ACS CHR$ BIN  ERASE  FLASH  THEN >=8T(pFN @SIN [E]?© RETURN  COPY  CLS  RUN  LOAD  LOAD  CAT  DEF FN ABS  AND 3<>6▘*4[M]USR ?IN  RETURN 0STR$  DIM V-,ATTR  CLOSE #)SS[T]STR$  COPY ▝ RETURN BIN  COPY [A]v INPUT Uw STEP PI READ h[F]H#[D] LIST [U]SQR IN [G]SQR ;SGN ▜ DRAW [K]IN  COPY  CLS  CLS wCODE [P]ABS }j VERIFY ^ABS =▘ CLS k'INKEY$ MERGE VATTR P[D] FOR pVAL l[C] LLIST MSCREEN$ ATN  CLS SCREEN$ ▚CHR$  TO  DEF FN  OVER  CONTINUE SGN  REM © PAPER  COPY ATN  CLEAR  OUT  CLS  READ  DRAW ©[J] RUN  COPY  RUN  PLOT   PLOT   PRINT  NEXT  RUN / OUT oTAB m GO SUB  READ  BRIGHT S TO VAL o CIRCLE ![U]/[F]▝LN IN [Q]P(▖ DATA  PAPER "a`LFN [E][Q] FORMAT x MERGE ~ PRINT  OUT  RETURN w▞STR$ ▘STR$ [Q]USR [Q]USR ▘[Q]USR >= USR  MOVE & INK 7USR  AND ▙IN  INPUT [/@BIN  MOVE <>▖UUEXP [U] FORMAT INT  RUN  INVERSE  COPY  INPUT SQR  COPY mIN [CODE WINKEY$S+U)..//;K'[H]SATTR USR /-&nIN  LINE <><>[K]6$hH[A]▗Q*DSCREEN$ E PAUSE ▝u>[L] GO SUB  COPY [ COPY m COPY PEEK  CLS  OUT  CLS o COPY  PLOT  IN  FOR  COPY UzUhU @!▟UIN *[B]▖ASN [F]?*▚▞T[S]U▖"[C] REM IN  IF  OUT  PLOT  © OVER  RUN ABS  COPY  INPUT  CLS ~ BEEP  IF  MERGE  REM Q[O]FN @*▖U COPY  COPY jIN ▖E▝]▗H[S]H@SCREEN$ USCREEN$  INVERSE INT  GO SUB  IF  MERGE h PAUSE FN  MERGE [Q]U RESTORE -[I]ATTR  COPY  IF  CLOSE #[Q]▚H CLEAR FN ]▝USR  OPEN #▝IN  LPRINT [C]@[Q]A[C]A[F]AA[R]QB CIRCLE 4 FLASH ▛@[Q]@ULN  POKE ▘ ERASE L RANDOMIZE ▛BCAD▝IN @H▖B▘&▚/ DIM ©▘ LOAD  LOAD U6ATTR ^ RUN  LLIST ▗©©? GO TO ▚@ FORMAT  CONTINUE  POKE  CLEAR [J][D]W*IN @FN  MERGE  IF  COPY ©IN USR a# COPY @>▗UATTR © FLASH  FORMAT  COPY ©LN [Q] CONTINUE  IF  INVERSE ▝UFN U IF  COPY  INPUT  MERGE 1 CLS  LINE   LLIST 5ATN SCREEN$ _ PLOT  © MERGE  COPY IN ▘_©▘[Q] PRINT ~▖▝SCREEN$ [P][P] LOAD p? DRAW @hUCODE  CLS  OUT  BEEP  COPY  MERGE ©+STR$ ▝SCREEN$ 8@▜ LIST  LOAD  LIST  DRAW 5▖▗U IF o CLEAR pPEEK  RETURN IN  COPY  CLEAR  COPY  PLOT   COPY  PAPER  PRINT X PRINT _ COPY [C]SCREEN$  FORMAT ▗ SCREEN$ WIN  COPY ▘<PEEK ▞@[Q]I LPRINT  MOVE `<>` LPRINT LEN  CONTINUE LEN  DATA LEN  CONTINUE VAL  DATA VAL ▜ CONTINUE VAL >=IN  T SAVE N[A]AT X LIST  CONTINUE  FORMAT   RANDOMIZE  SAVE 1@USR  LPRINT  LIST  LPRINT  LIST ( LPRINT  LIST ` LIST ` LIST `0`0▞`00hP(X0IN  MOVE ▖ COPY  SAVE  COPY 8# BRIGHT )▘SCREEN$ U{m COPY SQR  INPUT U[A] FLASH USR  LIST LN }CODE ] FOR UVAL$ uSCREEN$  MOVE Q▖EXP ATTR _ CLEAR o COPY ABS  INPUT uFN  REM ▗IN LEN  VERIFY ▞ FORMAT  SAVE ^ FOR E(D  LPRINT ▖CODE } RUN } RETURN  CLOSE # CONTINUE P[E]▗T  PLOT  :TAN  ERASE ?[G]▟ LPRINT @▘P QA▖▞+*IN _ACS }PEEK * OUT [A](8TLN P CONTINUE pFN  LIST ` FORMAT t POKE W PLOT   OR [C];5<>9@▝▗▚*:T6PI2iV DIM POINT VU[S]ACHR$ ▘▝▘A@[Q]x. CONTINUE  CLEAR  COPY ATTR P[Q]4Z. fIN 3G CLOSE # CLS  GO SUB  LET AT  COPY  RUN  RESTORE y RETURN ©IN _/▘USR  MERGE  COPY !BA@B``qqx SAVE  CLEAR  DRAW  RETURN  PLOT   NEW  NEXT  READ s LET  RANDOMIZE  LIST  SAVE  POKE  DRAW  IF  RETURN  CLEAR IN 6[B]▗_[R]▛[H] RESTORE  DIM NTAB W` COPY 5Slj[E]INKEY$ TO  CIRCLE 5[F]ASN yI1-U[K]BIN  BORDER  PAUSE  LIST  SAVE ||>;[N]▙N<=PI READ  MOVE  DIM  SAVE IN  POKE  IF CHR$ ©_@▛?CODE I MERGE  PAUSE  RETURN W▜zLN ATTR _IN ©IN ~SCREEN$  CLEAR  IF  PRINT SCREEN$  PRINT SCREEN$  MERGE {Wo?/? STEP <=g[T] OPEN #STR$  LPRINT  FORMAT x(IN ▖D[Q]>= POKE  IF  DRAW  CLEAR  RETURN IN /▘FN ▜▖OPOINT [F] SAVE  RETURN U_3[D] RETURN  DRAW  LIST  LPRINT STR$ [T]VAL$ _INT | REM  LIST  CONTINUE  LET NOT PIOCODE 3 MOVE L[U] CAT g3[J]Lf3[M]IN ▙GPIR[Q]A OPEN #[T][D]G LIST USR ;~ DIM  LIST FN B▝D▙ COPY  COPY  OUT CODE WCODE WW▜ CAT ▜ CAT USR  BORDER LEN  NEXT  LIST  RANDOMIZE  CLS  NEXT  PLOT   INPUT  GO TO  BRIGHT Y90IN o_|pc DATA  LINE  THEN [D][H][T][Q]!AF`STR$ Aa1CHR$ BCHR$ [S] AND INKEY$ AND INKEY$<=PI<=PI▘[T] OPEN # CLEAR COS  CONTINUE  POKE USR > CLEAR NOT ▜'.N▙▚IN  AND <8LEN 1" LET ▖[D]RNDPOINT TAB ASN ASN TAN  REM  REM jzACS  OVER  CLOSE # PAPER  LINE <> OR  AND CHR$ baaUSR VAL [K]LN  BRIGHT  BRIGHT  INPUT  RUN  CLS  CLEAR  RETURN  LOAD  COPY SGN x LIST  STOP <=NOT [Q][G][H][G][G]VAL$ ,IN ,USR LCOS ▟x<[Q]DHAC▛▝[Q][Q]▖USR [L]▟▝H`3[O][R] STOP  LINE ATTR ABS ©©7 DRAW ▚ LPRINT x[P] BORDER  SAVE JG#>=▗8<<IN USR |[G]xx SAVE  LIST  LIST `A  LPRINT  SAVE  LPRINT  COPY ?VAL LN  FORMAT ▟#STR$ `SCREEN$ ▖SCREEN$ ;?©? PLOT   COPY  COPY ▚ CLEAR ©><84(IN ▜ OVER  VERIFY @@▘P lmiM IF  BORDER  [H] DRAW h MOVE  FOR COS  REM P DIM LEN NOT  LOAD :}t CLEAR  CONTINUE pBIN  LIST IN  OPEN #[G]` DATA  GO TO  GO SUB mF16e DEF FN [E]x[S]NOT ▝s[J] <USR SGN g© OUT  AND ▚ CIRCLE x,DFN VAL SQR SCREEN$ ▘ OR IN <>NOT  OPEN #▜▟([A]4[Q] DATA  FORMAT R[A]9K[S]U&[K]ASN +I+&g.={ RUN INKEY$dSTR$ 7 IF ▗)ATTR *UVAL$ { OVER  CLS IN { CONTINUE  CIRCLE CODE  BRIGHT TAB IN  INVERSE VAL$  OUT VAL$  OVER CODE  OUT VAL$ ^PEEK ^PEEK ~PEEK ~ DRAW  TO ,lPOINT  CIRCLE VAL LEN `BIN USR ▝▙@ )[E],J▝* GO TO RND@A▘E RUN  RANDOMIZE  LET [M][M] READ  COPY  DRAW 2V"W3g3U3e3Q3y3yCOS VAL yXIN ASN yVAL Q(Q([A]((Ah"8TZE CAT <= COPY  SAVE s COPY  LPRINT  SAVE ATTR  MERGE VAL$  MERGE k]SCREEN$ ATN  FLASH  BEEP USR  LPRINT  LPRINT  LIST  LIST  SAVE  SAVE USR  DRAW STR$  RETURN [L] COPY  COPY  LOAD  BORDER ATN O BORDER O BORDER C BORDER C#[T]E(j©IN  COPY  NEXT  LIST :[Q]x▖0 OR *wATTR © OUT © GO SUB © COPY  OUT  CLS  COPY  LOAD  CLEAR IN  CLEAR  PLOT  IN  REM }SCREEN$ tSCREEN$ INT COS ,[D]▘▝ MERGE CHR$  BEEP CHR$  MERGE >=E REM `[Q]P LPRINT  FORMAT  CONTINUE _ OVER [M]<STR$ x DRAW (u OVER  CLS  RETURN w RETURN  INVERSE  RETURN  PRINT ~ MERGE  IF U REM PSCREEN$ NOT [F].SCREEN$ FN rFN  FORMAT FN q OR ATTR IN TAB NOT B▞ LLIST A! DRAW [C]C!A"▘!▝[A]▗@ @ ▘-[R]▞ LPRINT IN ! CAT ? INK  COPY k▛IN ©?_?/ BRIGHT ▗ J▝▖??©/ SAVE ▗ RUN  CLEAR  COPY  GO SUB  INVERSE  COPY ▗©CODE W,p OVER 7 CLS  DRAW IN  CLS z▟ COPY  RETURN  CLS  INPUT  CLS n CLS IN  PLOT   COPY  CLS  RETURN  COPY  CLEAR  RUN  COPY ©[A]NOT  COPY ▚ CLS IN  GO SUB ©ATTR  FORMAT [B]USR  DRAW  COPY  COPY  FORMAT  LPRINT  FLASH © FOR IN  FOR IN  LOAD  COPY  OUT  COPY  OR  COPY H OR IN  COPY  CLS  COPY  PLOT  )▚© CLS CODE  RETURN  CLS SCREEN$  FORMAT ]}INKEY$ DIM ▙ RETURN  CLEAR  RETURN  RANDOMIZE  GO TO  RANDOMIZE  POKE  RANDOMIZE  CLOSE # RANDOMIZE  CLOSE # IF  PRINT  IF  LINE  COPY [E] CLS  COPY  GO SUB  IF ASN  IF  MERGE  IF u PAPER  PRINT INT  GO SUB PEEK  CLS  LOAD ~ CLS  OUT IN  COPY @[I]x LIST [R] MOVE B[R]▝B▝]PEEK }MQ PLOT   RETURN  COPY  PAPER  COPY ▞© LOAD {IN _ATTR F&▖@ LIST LN  INPUT { OUT ©p LPRINT  FORMAT aUSR [R]▝A▝▝▝E[Q][C] ERASE [D]▝@▝@[N]P[Q]PFN h4CHR$  GO TO ▜SCREEN$ U COPY w INVERSE  COPY w [H]W REM U"BIN ▝XRND IF ▞INT W REM ]SCREEN$ wSCREEN$  INVERSE SCREEN$ WINT  MERGE / REM ▞CODE  CLS © FLASH  COPY  REM USCREEN$ ',▖SCREEN$ USQR  MERGE TAN PCHR$  CLOSE #▙SCREEN$ WSCREEN$ ] REM WINT V▘ INVERSE ATTR ATTR [A]SCREEN$ uFN  n▖W COPY { OUT  CLS U 0IN USCREEN$ uSCREEN$ TFN ▘*UATTR tp[A]SCREEN$ uVAL$ UINT  MERGE FN U[S]UQ$QQ [N]▚IN  INPUT { POKE  CIRCLE `7ATN 2<▘LN uSCREEN$ U[K]6[O]SCREEN$ QSCREEN$ Q▗8[A]D@D@XFN  FORMAT 8;▜▘▘kCOS @@H▜P PP PI ]CODE ▝ OPEN #POINT  OVER [Q]8[D]▘E▘A[S]@[S]Q[S]@"QFN Q QFN [Q]*[F]Q((() P PABS IN  CLEAR  IF  CLOSE #USR H UBIN [G]USR [Q]@ CONTINUE @LN P REM /SCREEN$ t*USCREEN$ E*A[S]E A[Q]|[A][Q]@A▝=_oSQR n)q▖PIN  LPRINT U:U([L][M]G▙O?.|{_w COPY  OUT  RUN  OUT © RUN  OUT  COPY CODE  COPY js▗pSCREEN$ U03▙C[T]G▚??©IN © RETURN >▟ RETURN  PRINT  LINE [R]UoIN © RUN  CAT /k▝ OR U@SCREEN$ U[T][U] LPRINT  SAVE  DRAW  SAVE  DRAW [H]|PEEK | RETURN  DRAW VAL$ /VAL$ | RETURN  SAVE  CLOSE # CONTINUE  CLOSE # CONTINUE ▘ POKE  SAVE IN  CLOSE # RETURN PEEK ▖▞ RETURN  COPY  RETURN  RETURN  DRAW  SAVE  FORMAT  LPRINT  LPRINT USR STR$ ▞ STEP :98USR [F][H]P(p[Q]AC[eSTR$ r PAUSE  NEXT  POKE NOT  DATA ▖ CONTINUE >= TO IN [A]`SQR ▝CHR$ qyyx<SGN PEEK  OVER [P]<=<= READ cw.STR$ 9ATTR NWK[S]Q)[M] AND eSj94<▙IN ▜[D]▞[E]▟[E][M][E]FN [I]FN T#@USR ▘@@USR  [A][A]▖>=>=j[G] NEW E9[I]L[I]USR `LN /.[H] THEN  RESTORE  PAUSE ySGN ^/[S]s IF 9|.IN ▛G OR [T] LPRINT  MOVE hxTAN >]▜KM*$# OR ▝S▗A`&▞USR  LPRINT `USR ▜NOT  LLIST USR  LIST [A]pLN xX [A]STR$  LLIST  LET  SAVE COS  SAVE |SGN /(d▜CNOT [T] FORMAT p06[T]a[Q]C[U]- CLOSE #A0]▛_+@ CONTINUE  CLEAR ©▝ LPRINT '▟ZIN CHR$ BIN <=▜o[J]>= STEP  LINE  STEP  LINE  OR 7V?F[A]'<>4S[U]u▚ RETURN _SCREEN$ SCREEN$ FN ▝[K] LPRINT  SAVE PEEK _+E[Q]>=IN  DATA  IF  POKE  CLEAR  IF  CLEAR ©ABS .AT[Q]TACS [R] COPY  RUN  COPY .BIN 1"ej OR  FOR  PRINT ATTR  RUN TAB  BEEP SCREEN$ PTAB  IF  CLEAR  CLEAR  SAVE [Q] MERGE ▘W CAT CODE USCREEN$ IN UTAN s▙[Q]@NABS r DATA ▞%>= VERIFY ▝TN"▘SCREEN$ T6▛ SAVE  CLEAR  PAUSE +PEEK ~TAN `~▙ PRINT FN EM▝ INVERSE "▝[Q]IN  PRINT ▙VAL$ 8` (@@ APSCREEN$ PSCREEN$ PFN ▛/[N]} POKE  FORMAT USR ▝$3KSCREEN$  SAVE  RUN  REM  MERGE SCREEN$ UCODE [C]▗ RETURN  INVERSE SCREEN$ T>©k, FOR @[K]U TNOT USR ETAN jH*/UAFN _IN  COPY  RETURN [F]▘FN @J▗ ERASE d[U][E]TIN PT▗[Q]POINT B@j▟ LPRINT /PIAp LPRINT ▖*[K[A]PIPI@DlTDD^LN 9LN  CIRCLE zxLEN  POKE `USR [R]"H`E[A]!IN PSCREEN$ mF/kf[S]%20 `[A]▖▗[I]/_IN oSQR oSQR oABS w[O]W-9B[J]D@RND[U]▚@[A] DATA EXP TAN .5 NEW  USR USR @@`` 0 DATA STR$ D▗USR  SAVE  RETURN INT [A] OUT © CLEAR  RUN  OUT  RUN ABS  RUN ] PLOT  _ASN  OUT %EG▘[Q]HPOINT @ RETURN IN N▘0▚[A][Q]USR VAL ▖NOT ▗ LPRINT  LIST  DRAW F[A] CLS  LOAD IN  COPY  RUN  OUT } BEEP } LOAD ;nSQR N?6a▘ LPRINT  SAVE USR  RETURN ~^0▟>?IN `▞▘USR ;[B] COPY  COPY © OUT  COPY ATN  RETURN ATTR  PRINT  PLOT  _HSCREEN$ J▝▝▚INT  ,U[Q] PRINT ▘* FOR U▘USR  LIST AT   ERASE [D] COPY W COPY PEEK  COPY QPEEK  RUN (CODE {▙@ ▘FN nSCREEN$ ▝[M][I]▖ COPY U▘ COPY SQR LEN ▞WF[H] DRAW  COPY CHR$ IN  COPY +_ COPY  COPY ATTR  COPY PEEK  LOAD  LOAD IN WATTR  PAUSE ▟ COPY  IF P? PLOT  _ CLS VAL$  RANDOMIZE [U]P@▝ATTR USR  COPY ▜ CLEAR  BEEP  RETURN { OVER  COPY  CLS EXP  RETURN ©SQR .TAN  CLOSE #]IN FqASN  CLS  LOAD PEEK  CLS  COPY © RETURN USR .y BORDER [N]6 COPY ASN  REM  CLOSE #FN H[A]  @ CLEAR PI^ SAVE  POKE  FLASH u OVER  SAVE TAN  RANDOMIZE  LIST  DIM  READ  MERGE [T] OR PIK▜K[H] CLS ▝ MOVE PEEK ▘USR  LPRINT ▟ SAVE  SAVE  CONTINUE  LIST FN  SAVE  FORMAT  SAVE FN x FORMAT p LPRINT [F][B]V<z4 DEF FN [K]4`>=[A](`P INVERSE [E]CHR$ [Q]USR ▗@▗@H44 AND [Q]▗<< ▜= BEEP NOT FX USR G▝H` STR$ IN !x jNOT tx@>x 0 ▝Gx@(BIN x`▗(!▝ AND Fx ▘E<>F)(@▝ HSTR$ )IN ,` LLIST USR x @[S]▛E5`@[N]pSCREEN$ B` ▝h @CHR$ 8 'NOT x@ `hcYUSR 8?▖ AND ▝j13FN  !b0  AND 8!JP)<><=X`(CHR$ (!X@[F]COS BB.` ,FN [A]1 ▝x : STEP STR$ j▘F COPY PB<> NEXT  GO SUB sf!CODE e▞[w MERGE  GO SUB VAL FN a INK !d[A]# FLASH ?*<> GO SUB LN 1 RESTORE VAL STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS NOT FN aF LET !@[B] RANDOMIZE  COPY u GO SUB VAL  POKE POINT  POKE 1H POKE 6 NEXT  STEP R AND  INVERSE g LLIST bv>` BORDER SCREEN$  SAVE  COPY } AND o2 DEF FN a STEP  LINE b"[H]ATTR ! LIST  OVER  STOP = LIST  PAPER LEN !N LIST  INPUT  RETURN  BEEP  LIST " FLASH !POINT  OR  IF  STEP [C]ATTR % STEP  FLASH INT INT *STR$  DRAW INT ASN  BORDER /*STR$ INT SGN h,*STR$ INT <>ASN INT  STOP //b RETURN <=>=NOT  COPY >=aq|ASN CHR$ BIN  COPY b OUT STR$ # THEN ~ LINE pb>y LLIST <=<>"en&) LLIST ▜ COPY IN  CIRCLE  OPEN # FOR 3w NEXT  RANDOMIZE  DRAW :▘b<2 DRAW  RETURN  LINE COS  CLS  OR NOT [A]CHR$ >=:4L LIST  INPUT STR$ [D] SAVE H[T]©+"] RUN CODE <>~oFN  COPY O▜ RUN  RETURN ▝▗g CLOSE #d<> OPEN # FOR @[E]USR  PLOT  Z<=FXNOT >0 STEP  PAPER  BORDER d!$ PRINT > READ  STEP  PRINT SIN Y PRINT  PRINT F~ CIRCLE  OUT  PRINT  RESTORE  OUT  OUT  INK INKEY$ OUT  PRINT PIVAL$  INVERSE !(H~SGN POINT c[S] GO SUB s ERASE d"BIN @S DEF FN USR !1" IF RND LLIST  IF  THEN  IF @ibd MERGE >= MERGE ▟▗ASN <) NEXT  IF  GO SUB 1SIN [G]ATTR NOT SGN  LET  POKE USR hr TO  TO  MOVE  CLEAR { CLEAR VAL$  CLEAR w IF  STEP  CLEAR , CLEAR z CAT  COPY  POKE CHR$ c+ STEP SIN d ERASE 4 COPY 2 STOP ?[D]BIN  FLASH N@dPI GO SUB RCODE  DIM ▙[O] AND  GO TO  PAPER $ LPRINT  LLIST 6ASN  1LN  CLEAR  DRAW ▟ INVERSE ]T STEP xcNOT STR$ d STEP  CAT  DEF FN D DATA SIN HP DEF FN  LET $IN ( COPY ▞ LET  LPRINT  OR  RESTORE ]Tw~ LIST  GO SUB VAL  LLIST  STR$  INPUT <>b DRAW INT  OR  MERGE "FCHR$ g_3PEEK ATN  LINE XnA3]L PAPER 9 CLEAR  RANDOMIZE  MOVE STR$  PAUSE TAB I FORMAT <> CAT ;ff CLEAR ` CLEAR ~ CLEAR $ CLEAR f[E]o CLEAR oABS  MERGE ASN z INK  PRINT  MOVE LEN  RESTORE rdLEN PILEN [K] COPY LEN  COPY  COPY VAL$ CODE <>z NEW USR { AND  _ CIRCLE z VERIFY mCODE W<>▘6 GO SUB ABS  NEXT IN ASN b<>[A]EXP  BORDER  COPY ? RUN  COPY  LPRINT  RUN  POKE  CLS  PLOT  FN M PLOT   LIST  RUN POINT 7© PLOT  7SGN  PLOT   CLEAR  PLOT   MOVE IN  CLEAR  RETURN  PLOT   CLOSE # PLOT   RESTORE IN  RETURN  SAVE gTAB  PLOT   PLOT  USR  SAVE  RUN © COPY  OUT  DRAW [E]4x PLOT   MOVE  OUT  DATA [T][N] PLOT  © MOVE  COPY  LOAD  PLOT  COS I2IN  STOP  INPUT  PAPER  PLOT  COS I MOVE  SAVE  RETURN  CLOSE #COS  OUT  FORMAT |IbABS  PLOT   DATA hASN  SAVE < PLOT   DRAW  SAVE  LLIST [N] RETURN  MOVE  CAT  LIST  PLOT  BIN /ABS USR  PLOT  COS [G] IF  STOP  BORDER USR  SAVE pC PLOT  COS  RUN  PLOT   FORMAT [M] DRAW COS wUSR  SAVE  POKE ▜ NEW COS sUSR  SAVE  PLOT  COS {.x LPRINT  PLOT  COS SGN H PLOT   PLOT  |9 LPRINT  GO SUB  FORMAT  SAVE  PLOT  STR$ = LIST n PLOT   CONTINUE > STEP I PLOT  USR  VERIFY  PLOT   LIST  INPUT ZVAL$  PLOT   SAVE  INPUT 6 PLOT  COS  PLOT   LINE  LET f PLOT   BRIGHT x BORDER  PLOT  I ERASE | COPY  PLOT   CLEAR  PLOT  USR  PLOT  ▜<-1 PLOT  8 BRIGHT ▜PEEK  LET  PLOT   CLEAR <=IN INKEY$▗ PLOT  ACS  PLOT  NOT [P] PAUSE  CLS "s PLOT  NOT  OUT  PLOT  USR  PLOT  [C][J]POINT  LOAD  PLOT  ©[S]RJ PLOT   PLOT  < PLOT  sr PLOT   DRAW ~Z PLOT  |}L[C] DRAW 8 PLOT   RUN  DRAW  GO SUB  FORMAT  PLOT   BORDER  LIST  POKE m PLOT   LPRINT = CLS RND[J]|> STOP  NEXT 'yTAB  PLOT  © READ  LET = PLOT   PLOT  NOT USR  COPY  CLEAR  LLIST 1[U]PI▝ PLOT  ©LN  LLIST E LINE ▜ PLOT  ©SGN  LET /W PLOT   LOAD SGN p PLOT  w CLS  PLOT  ▜ BRIGHT p. CLS  CLS ▜ OVER x/)y PLOT  <= OVER 8p SAVE [D]C DATA [F] INPUT < CLS O[C]C LOAD  PLOT   SAVE  RETURN M READ  LOAD  RANDOMIZE [U]8 PLOT   LIST  BORDER  LLIST  RUN <[J] LLIST  PLOT   LIST { PLOT  ▙ ERASE  PLOT   PLOT  © PLOT  1SGN ~37* LET  CLS  PLOT  x© CLS ASN <> CLS <=[O] INPUT  PLOT  ? PLOT  O][P] SAVE  PLOT   SAVE }<=9 SAVE 0| PLOT  }!▚ READ  CAT  CONTINUE [J]! PLOT  = PLOT  ? SAVE  PLOT  1© DIM  LET  BORDER ▝IN  SAVE > PLOT  < TO  PLOT  ▜ PLOT  ><C PLOT   OUT  DRAW u DIM  SAVE  NEXT [G] ERASE CHR$  READ  PLOT  x BORDER ▖ PLOT   READ  OUT x4 RESTORE { COPY  LOAD  RETURN  READ  PLOT  |yuo PLOT  OSGN  MOVE  RESTORE COS Oy CLEAR SGN =<= CLEAR [R] PLOT  PEEK < COPY  PLOT   CLS ABS IN  OVER > COPY 9O GO SUB  LPRINT  PAUSE  OVER  LOAD  COPY  LPRINT  BORDER o POKE  REM  STOP  RUN  PLOT   LPRINT LN xCHR$  LPRINT //[A] PLOT   AND y LPRINT LN i NEXT  LPRINT  RANDOMIZE  CLEAR  PLOT   MOVE SGN  LPRINT  CLEAR STR$  PLOT   BORDER  LPRINT  DEF FN ▛ LIST  GO SUB " LPRINT  PLOT   RESTORE u INPUT  STOP  CLOSE # READ w5 LPRINT  GO TO w) LPRINT p PLOT   RANDOMIZE E LPRINT  PLOT   MOVE  PAUSE  LINE  LPRINT x ERASE P. PLOT   LPRINT 8 POKE ATN  FLASH  LPRINT  READ  PLOT   LPRINT  LLIST  ERASE  PLOT   LPRINT SGN % RETURN  PLOT  noASN  LPRINT  PLOT  ~y LPRINT  PLOT   OVER  NEXT  AND  LPRINT  TO  COPY -oPEEK  LPRINT h REM  PLOT  [H] PLOT  CODE BIN ] LPRINT  READ . PLOT   FLASH  REM 1 POKE  PLOT   INPUT ▘ACS USR [L]. LPRINT [L] FLASH [M] RESTORE x REM  PLOT  [O]j BRIGHT  VERIFY  PLOT  ▙5 OVER  LPRINT  PLOT  ▖ATN  DEF FN  LPRINT  PLOT   STOP m MOVE  CAT  LPRINT LN 4▙ PLOT   LPRINT  FLASH SQR ▜ LIST <=FBIN  LPRINT  PLOT   FLASH  LLIST  LET  LPRINT  PLOT  'SGN  LPRINT [I] PLOT  )o READ  LPRINT pr▗ATN  RUN  LPRINT  PLOT   LET [G](<= LPRINT q TO @ RESTORE  LINE  LPRINT 8>j BRIGHT  LPRINT  PLOT  >Q INPUT  LPRINT < PLOT  & LPRINT  PLOT   PLOT  /^UmVAL$  LPRINT  ©IN  THEN  DATA  LPRINT x LPRINT  PLOT   COPY IN 9 OVER  LPRINT  PLOT  w BRIGHT  LPRINT qwIN  OVER  LPRINT p7 PLOT   COPY  OVER  LPRINT  AND >= INVERSE  RUN  DEF FN  LPRINT ▝ BRIGHT }NOT  LOAD  OVER N LPRINT  PLOT   READ  LOAD 8w5 LPRINT  PLOT   BORDER SQR  LPRINT  LLIST  RUN SGN [N]x LPRINT  PLOT   LET  RUN [M] DEF FN SGN  LPRINT STR$  LIST  PLOT   NEXT [O] OVER  LPRINT x{ PLOT  p CLS  OVER  LPRINT -5 NEXT  PLOT   DEF FN v NEW  LPRINT  LPRINT  COPY  RANDOMIZE  CAT [N] LIST  REM 4} BORDER ▟ATTR  PLOT  p PLOT  v NEW  LPRINT p©*| BORDER ; LET  LPRINT  PLOT  > NEXT LN x LPRINT CHR$  NEW ▟ PLOT   LPRINT 8?ATN G* CLS  FLASH ▞ LPRINT  PLOT   LPRINT < PLOT  x RESTORE  LPRINT /EXP rNOT  LPRINT SGN RND PLOT  SGN SGN [ REM = PLOT   PLOT  PEEK ; LOAD  LPRINT ▜[O]w OVER  LPRINT ▜ OVER  LOAD SGN  LPRINT  OUT ▙y LPRINT  CAT [D] RUN  LPRINT  RESTORE  PAUSE ~ LPRINT © LLIST TAN  COPY ^ABS  DIM  CAT  PLOT   RANDOMIZE INT  COPY  DRAW  PLOT  -[7W0▙k PAPER  RUN  RETURN  TO r RESTORE [J] CLS  TO  RUN   INPUT [N] PLOT  [H]ACS  READ s RETURN 9[A]COS  PLOT  [P] CLEAR  COPY IN  LPRINT  PLOT  ? OUT  PLOT  /][P][N]R[L]
  32991 GO TO >[G]mLEN USR  PLOT  >= LOAD  LIST RND[P] PLOT  INT  RESTORE O LIST hk READ |p PLOT  IN PEEK  BORDER  LPRINT  PLOT  < PRINT [R] PLOT   NEXT  LPRINT INKEY$ AND  STOP  PLOT   OUT  PLOT  > THEN 8 GO TO  LLIST D PLOT  LN  PLOT   RETURN ▞ATN  STOP  PLOT  ▜ FOR  LIST  TO  PLOT   SAVE ABS  PLOT   DIM [S] PLOT  (LN  DEF FN  GO TO  DIM  PLOT  ▚N PLOT   PLOT  |▚ FOR * FLASH x[D] PLOT   AND  PLOT  USR EXP TAN  PLOT  NOT  PLOT  *E+< PLOT  2Mk5 READ  AND  NEW  PLOT   STOP PEEK  READ  RETURN  PLOT   LLIST <>[O] PLOT  USR  PLOT  ▟ FOR [G] LLIST [P]1 TO =c PLOT   LET _.c PLOT   LIST  CAT  RESTORE CHR$ r[G]p CAT  SAVE  COPY uqTAB  PLOT  { LOAD  VERIFY ( DEF FN  PLOT  © BORDER  SAVE [E]s LIST  PLOT  STR$ VAL$ [U] PLOT  p PLOT   CAT  PLOT  ▛4 LPRINT  PLOT  E[D] LPRINT xTCHR$  THEN  LPRINT 8 PLOT   READ  LPRINT  PLOT  % BEEP  RANDOMIZE  LPRINT < PLOT  ABS z! RANDOMIZE  CLS  MOVE r PLOT   LET  PLOT   RESTORE #@ PLOT   SAVE  LPRINT  LOAD  FOR  PLOT   COPY  PLOT  xTAB [G]a PLOT   RUN  THEN S PLOT  p RANDOMIZE r] PLOT  x CLS <a[N] PLOT  | CLS PEEK  PLOT  9^e PLOT  [O]8INKEY$k RANDOMIZE  PLOT  <}[O]ATN ABS =} CAT  CAT  CLS  PLOT  / BEEP  PLOT  ><=m- PLOT  NOT  PLOT   BORDER [O] DATA  LPRINT  TO [J]USR  PLOT   LIST  PLOT   OUT  ERASE  FOR #c CAT   LLIST 3h PLOT  s PLOT  o_ PLOT  [P]q CAT  SAVE ]=CHR$ LEN  BORDER VAL$ K THEN  PLOT  EXP  PLOT   BEEP [P]LN <=LN  BORDER USR | LPRINT x? TO <= DRAW  NEXT USR ? BORDER  IF  PLOT   BRIGHT sSTR$ IN  LIST CHR$  READ  LLIST  LINE  BRIGHT { LOAD  PLOT   TO [T] VERIFY  PLOT   RETURN ys8ATN [O] READ  INPUT 9[N] DIM ]<v LLIST  INPUT = PLOT  %L PLOT   LET  LOAD  INPUT  LINE  POKE a LET  RUN  LOAD ▙ PLOT   LIST  RUN  LET z©`] BORDER  NEXT r CLS  PLOT  CODE [I] GO SUB  CLS ▜= OVER  LPRINT |COS ATTR [O]| PRINT  PLOT   THEN  PLOT   RANDOMIZE  PLOT  BIN [K] LOAD 7 CLEAR  PLOT   RUN  DRAW ] NEXT [E] RUN  CLS  RETURN RND CONTINUE  PLOT  VAL  PLOT  LN  BRIGHT [N] RETURN <>[F]© SAVE XNOT  COPY .CODE  CAT ©▛  LPRINT  PLOT  p OR F[Q]NOT 2}ATN  PLOT  ?[P] INK INKEY$5 GO TO u LET  STEP COS i DIM  PLOT  i IF pG CLS  DRAW | PAUSE 2 PLOT   LPRINT  PLOT  TAB  PLOT  = CLEAR  LIST  BEEP EXP d PLOT   OUT  LIST >Z=▘ FOR  PLOT  ? CLS ▙' INVERSE 2 PLOT  NOT MX SAVE g PLOT  >, LIST  PLOT  ▜POINT  PLOT   PLOT  ?TAB <= DRAW P AND K PLOT   IF NOT k DRAW  PLOT   READ PEEK OZ PLOT   RETURN |'kh LLIST V PLOT  q OVER x▙ PLOT   COPY 9VAL$  NEW ^ PLOT  .h RETURN  PLOT   LPRINT 0 LOAD  BEEP  PLOT  8 COPY i[J]u[P] THEN  PLOT   RANDOMIZE  PLOT   LIST w▝z SAVE  PLOT  POINT 6 DRAW  TO USR  PLOT   PLOT  NOT E PLOT  5 MERGE +© PLOT  [H] SAVE n DIM  CLS © INK  GO SUB PEEK ~U OPEN #k RETURN POINT PI_ PLOT  <]ASN p PLOT   COPY [K]SCREEN$  LET  LIST 8 RETURN  OR  READ [N] PLOT   DRAW  RESTORE z CLS x PLOT  LN  RESTORE  FOR  PLOT   CLEAR p PLOT  [M]]YA@ DIM SGN ABS [O] PLOT  < PLOT  NOT INT ▙8ABS  NEXT Z PLOT  [O] DEF FN  REM EXP  OR  PLOT  <=INT @U PLOT  ▙GuNOT ABS j[M] BEEP  CAT g[O]/RND PLOT  c PLOT   PLOT   MOVE Zo PLOT  COS  CAT  PLOT   BORDER LEN IN k PLOT  [P] INPUT  READ [B] BORDER ▝ MERGE <> LIST f PLOT   CIRCLE  BORDER  MERGE sSCREEN$  DRAW  PLOT   NEXT  CIRCLE  RUN ]kSCREEN$  CAT ▚ LET >= RUN  CAT UTAN  PLOT   GO TO sUSR  PAPER )xPEEK  PLOT   SAVE  GO TO {Z PLOT  | INPUT  BEEP  GO SUB { LPRINT |STR$ hx PLOT   SAVE  POKE = LPRINT ?STR$  READ  PLOT  |v= LLIST IN ~ DEF FN  PLOT  w RUN IN  LPRINT  NEXT .[M] PLOT  <{ OUT  LPRINT  LET INKEY$SQR <; PLOT   LIST  LET  MOVE SQR #>; PLOT   CLS 9© LOAD SQR BIN  PLOT   GO TO ^& LINE =[Q] INPUT > PLOT   DRAW <=IN  RUN [J] RUN  RETURN NOT  DRAW BUSR  PLOT  [Q] INK  RESTORE  LPRINT <=y NEXT  NEXT <=RND PLOT   NEXT <=RND GO SUB  NEXT VAL$ [G]9 CLEAR  PLOT   PLOT  NOT  RESTORE SGN  CLEAR  RETURN [J]7vSGN  NEXT xK/R NEXT & NEXT [T] INK COS <> ERASE ▖[T]5] PLOT   LOAD  READ  RUN  DATA  OR [C] SAVE BCOS  PAPER  CAT  PLOT  ▝INT COS  PLOT   MERGE VAL$  BRIGHT  SAVE ATTR  BRIGHT k PLOT   RETURN ACS EXP [D] PLOT   RETURN  SAVE ▟_[E] GO SUB VAL$  STOP  PLOT  x[D]iINT  RESTORE  PLOT   BORDER  PLOT  [OUSR  COPY  NEXT 8oj2 PLOT   DRAW  PLOT  ▚ PLOT   LPRINT  NEXT SGN  PLOT  ACS [O] PLOT  USR s[M](oINT  RESTORE  CLS y VERIFY  PLOT   OVER  LPRINT 9 OVER ▞[T] MOVE  PLOT   CLS  DEF FN  PLOT  px, PLOT   CAT LEN  FLASH EXP  RANDOMIZE p< LOAD  PLOT  x PLOT   LET [K]g▞x READ = LET  PLOT  | PLOT  wTAB ▗M COPY 8USR }s BRIGHT  PLOT   FOR  CLEAR 3▝ DRAW  PLOT  ; BEEP  INK  RETURN >JtSQR H9 RANDOMIZE  RETURN MPEEK ASN H[J] SAVE POINT M PLOT   CLEAR  PLOT  M▖EXP  LPRINT  PLOT  © BRIGHT K PLOT  Dk RETURN ~ DIM vM DATA CHR$  PLOT   PLOT  IN ZNOT  PLOT  0 READ nW▛8^▜STR$  READ M▟ PLOT  0 PLOT   COPY |[K] RETURN ( PLOT   LLIST  PLOT   OUT  LOAD ▙7 PLOT   RUN  LOAD Z PLOT   COPY  RUN  PRINT  PLOT   READ ATN  CLS  NEW  CLS [ READ ] THEN  CLS  PLOT   NEXT  CLS  DEF FN CODE  FOR  PLOT  q INK  AND  RESTORE Z CLS ` PLOT   CLEAR  AND ▛VAL$  PLOT  y CLEAR  BORDER  PLOT  ^<= GO TO  READ  RUN s CLS  PLOT   RETURN  READ <0[M]; PLOT   NEXT ▝USR  PLOT  vq DEF FN  BRIGHT  PLOT  > PLOT  ©yl8 DIM ▜NOT  PLOT  9USR  LPRINT RNDu[U] LOAD 2} LPRINT  PLOT  [M] LPRINT pt>= PLOT   BRIGHT t PLOT  B<= READ  PLOT   OVER p INPUT k PLOT   DEF FN p;▜ PRINT  PLOT   LOAD p COPY <=▜# CAT  POKE  BORDER ; PLOT   IF ASN  PLOT  ▜ BORDER ? COPY NOT <=ASN BIN  PLOT   RUN IN  COPY  READ NOT  GO SUB >=<=s[P] PLOT  m INPUT NNOT  NEXT  PLOT   LLIST w. PLOT   CLS  OUT  COPY  LET  INVERSE {9 LOAD EXP  CAT ABS  RANDOMIZE  LOAD 7 LPRINT  NEXT  DRAW  LOAD  VERIFY <>© BRIGHT  BORDER r MERGE  POKE ~EXP  VERIFY  CLS r TO  LOAD *ATN FPIU PLOT  ?SCREEN$ <= GO SUB PICHR$ [L]Z PLOT   TO [L]ABS AT ATN } PLOT   READ ^ PLOT  F COPY  CIRCLE  FOR VAL$  AND  CLEAR ▛UE PLOT   OR  INPUT  DIM  STEP  OR  RETURN x PLOT   FOR e▚ PLOT   RETURN sW` DEF FN BIN  SAVE ; OVER p< PLOT  SGN px<= PLOT   CLEAR  DRAW 0ABS  MOVE  PLOT   CIRCLE  PLOT   CLS  POINT  PLOT   BRIGHT 8s<= PLOT   RETURN  PLOT  n2 PLOT  ▝▚© READ % PLOT  ? BORDER LN ▙ PLOT  ▜? NEW .▚ PLOT   PLOT  USR  PLOT  [L]▜3 REM  PLOT  [P]TUSR  PLOT   LLIST Ow PLOT  [F] PLOT  ▟NOT PIATN  LIST  LPRINT ABS  PLOT   CAT Vx GO SUB  PLOT  HPEEK TAN  CLEAR  PLOT   AND  PLOT   LOAD  RETURN Go,POINT [VAL$ xp RETURN  MOVE ABS { COPY ~ SAVE x INPUT  LLIST  PLOT  ~|8/ PLOT  <> PLOT  ; LLIST v PLOT  IN |< MOVE n LLIST  PLOT  fq PLOT  ▙  OVER  RANDOMIZE  PLOT   CIRCLE 0ABS SQR  PLOT  [M] PLOT   RANDOMIZE  TO  BRIGHT s PLOT   CLEAR  DEF FN . PLOT  } INPUT  PLOT  ] LIST IN  DRAW  NEW ▞ FOR  PLOT   RETURN  BORDER LN w▚=PEEK w PLOT   RETURN s[H] FOR  PLOT   COPY s▘▖k STOP  OUT ;▘ABS  PRINT  PLOT  9q PLOT   COPY ABS STR$  OUT  MERGE w[N]STR$  INK y LLIST [M] THEN x SAVE  PLOT   COPY  DEF FN  SAVE  CLEAR  DEF FN lw DEF FN  LPRINT USR q BRIGHT  FOR  PLOT   LIST USR pBIN  PAPER ▝ BORDER USR x BRIGHT  INVERSE [N] PLOT  ; PLOT  `8/ LOAD `; RUN  SAVE  PLOT  = NEXT LN SQR  OVER  PLOT  ~ PLOT  3<©p_ PLOT   RANDOMIZE  DRAW  COPY  PLOT   PAPER , RANDOMIZE  OUT ?mTAB  PLOT  ▚[O]? LOAD URND PLOT  | LOAD  INVERSE  TO ;| GO TO  CAT  OVER  READ  INVERSE © COPY <= OVER w RETURN w COPY  NEW zCODE  PLOT  ?% FOR K PLOT  [M]_ASN ?[M]w LPRINT |]w BEEP 1COS  BORDER [G] LINE Gx PLOT   INPUT [L] INK *= LPRINT  PLOT  W= LIST  PLOT  ?[B]^ FORMAT  COPY  LOAD NOT  COPY * OVER  POKE  PLOT    DEF FN FN  PLOT   CAT  LLIST  RUN  CLEAR  PLOT  hSQR  PLOT  TAB SQR [F] INVERSE RNDASN  LIST /o[F][K]p STOP [C] PLOT   INPUT  PLOT  Vw[U]ASN p LOAD t[P] PLOT  [P]0 FORMAT [ PLOT   READ  BEEP  PLOT   BORDER  CLEAR  NEXT  BEEP 8 LOAD G▛ LET  OUT [I]o:[P] PLOT   THEN  FOR [N] PLOT  y FOR [M] PLOT  x; OVER  LOAD  BRIGHT x BORDER  TO [ FORMAT  PLOT   PRINT  DEF FN  DEF FN [F]] LOAD < PRINT  INPUT 7 BRIGHT 6 PLOT  z NEXT  DEF FN  PLOT  z BORDER |PI[P] PLOT  ; NEXT  LLIST  INPUT  PLOT  9s6▙ RUN =s READ ▙ PLOT   CLS  READ ATTR  INPUT POINT PEEK  OVER IIN  PLOT  [O]IN  NEXT ▜ OVER  LET  PLOT   COPY  LET ABS  SAVE ] INVERSE e PLOT   OUT  PLOT   INPUT Q[F] FLASH  OUT  SAVE  READ ; PLOT   INVERSE  LOAD  IF  MERGE  PLOT  : LOAD  PLOT   BORDER  LOAD VAL [P] STEP { PLOT   RUN 0q[O] LOAD 1 RUN  PLOT   PLOT   NEXT  BORDER 9 LOAD  LET  PLOT   CLS COS 8 NEXT  PLOT  { NEXT 8 LET  OVER © NEXT ▖ PLOT  {PEEK } INK  PLOT  = RANDOMIZE { CAT IN ? GO SUB BIN { CAT IN > GO TO BIN  DRAW  AND [N] LOAD  PLOT   PLOT   STOP  PLOT  vbSQR  BORDER <>~c RANDOMIZE  NEW  PLOT   CLS q PLOT  D FLASH SQR 1[I]▛ RUN #ABS EXP [M] PLOT   CLEAR  INVERSE  LET  PLOT   INVERSE LN STR$ USR  OR  PRINT  THEN  PLOT   DEF FN <= PLOT   LOAD  BRIGHT `CODE  LOAD n[O]V PLOT   PLOT  SGN { RUN PEEK 4 LOAD  MOVE , GO TO ATN |wyA PLOT   RETURN w{CODE ^ CLEAR  OUT  RETURN s RUN [O] LET  FLASH  RETURN ; BORDER ]J FLASH  COPY ; READ }-~ LOAD  COPY 9 PLOT  ©{ OVER  GO SUB  COPY  BORDER ?SGN  BORDER  COPY j PLOT  w FLASH  BRIGHT  PLOT   PLOT   LOAD  INPUT  NEXT ? DEF FN  LPRINT  OPEN # CIRCLE  PLOT  INT  SAVE  AND } RANDOMIZE  PLOT  © BEEP [F][J]ATN RND PLOT   PLOT   DIM  PLOT   LLIST _ PLOT   DRAW  LLIST O~/ PLOT  STR$  THEN 7 PLOT   RETURN  PLOT   PLOT  RND DEF FN cINKEY$C| NEXT  PLOT   RETURN  READ ] LOAD  PLOT  SIN  READ X: LLIST  DRAW  REM  PLOT  SQR ^o PLOT  [L]q PLOT  [J]q▗ OVER  PRINT  PLOT   INVERSE  LIST  AND [R]ATN  PLOT   STEP LN  PLOT  <= LOAD  TO  PLOT   DEF FN LN  LOAD zb PLOT   INPUT  BRIGHT c BORDER [ PLOT   NEW / PLOT  g/ OUT z1 PLOT  w| OUT ; PLOT  sn1VAL$ w CLS 3. PLOT  ;PEEK PEEK  PRINT  PLOT  9IN PEEK w PLOT  [P] TO = OUT  LET  OUT  PLOT   COPY  TO @ DRAW  PAUSE  GO TO u^ PLOT   NEW c; DRAW  PLOT   NEW   IF  RESTORE  PLOT   NEXT  AND y PLOT  " LOAD  MERGE ATN  RANDOMIZE ▙ OPEN # PLOT  a[A] PLOT   RUN z[R] PLOT   RUN LEN [I] OUT  FLASH (VAL >=C/ PLOT   FORMAT  PLOT  [N] LOAD  CLS  CIRCLE  PLOT   COPY  CIRCLE lABS  FOR  PLOT   CLEAR  CONTINUE d[H]o PLOT  } GO TO  PLOT  oABS  READ  PLOT  n POKE 2[H]o PLOT  > PLOT   PLOT  7} FOR  PLOT  z PRINT  INVERSE SIN { MERGE /SABS  PLOT   CONTINUE  PLOT  { FOR  PLOT   OVER z READ  INVERSE  PLOT  ▚; OUT  PLOT  F{ LET  PLOT  C PRINT VAL$ TwG PLOT   OPEN #PEEK wT| RANDOMIZE  PLOT  ?i OUT  PLOT  IN TaVAL  CLEAR  PLOT  aATN P PLOT  [P] PLOT  G[A]~ PLOT  [O] RESTORE SCREEN$ ▜ PRINT a COPY  LOAD  DATA Z LIST NOT  PLOT  COS ? RETURN  PLOT  _LSIN  PLOT  ?©[J]g PLOT  c©EXP S OR ▜ PLOT  '7& MERGE  PLOT   LOAD  SAVE  LLIST  PLOT  CODE ~& PLOT  1 DEF FN , PLOT  U~PI GO TO ▝ PLOT   CLEAR V? PLOT  ~i OR INKEY$ PLOT   OUT  IF  COPY  CLS Y CLEAR  PLOT  SGN  POKE  FOR  CLS  PLOT  O NEXT [E] CLEAR  SAVE ~X PLOT   INPUT , PLOT   RUN  GO TO # CLEAR  STOP  CLS  LLIST  NEXT  CLS  PLOT   RANDOMIZE ~# RUN ▛ PLOT  ©? TO  PLOT  ~oh?▜ RANDOMIZE  CLS  PLOT   NEW  LET  DIM _ GO TO bCOS % CLS  THEN NOT  COPY IN S? PLOT   RETURN  SAVE y[J]BIN  OR bUSR  COPY  PLOT   INPUT ▜ PLOT  ?l{ PLOT   CLEAR <|x? PLOT  | INVERSE NOT  PLOT   RUN 0FN  PLOT  =LFN  PLOT  = ERASE [E] COPY  THEN { PLOT  NOT , CLOSE # PLOT  NOT FN _ PLOT  NOT  POKE  PLOT   NEXT o CLS  OUT < CAT 0 CAT 3 OPEN # PLOT   BRIGHT  OPEN # OPEN #?FN  PLOT   RUN  POKE ?SIN  PLOT  NOT | PLOT  VAL  FLASH  PLOT  VAL  DEF FN #& COPY  RESTORE  DRAW INT PI CLS  CAT CODE  NEW  GO SUB ©? INVERSE  READ <>O PLOT  ACS IN 1 CONTINUE = CLEAR  PLOT   CLEAR COS  LIST  FLASH  CONTINUE  PLOT   FLASH  RETURN  CONTINUE  GO SUB  PLOT   RETURN VAL  CONTINUE  PLOT   FLASH  CONTINUE  PLOT  COS  PAPER  CIRCLE  OPEN #L GO SUB  READ f5 GO SUB SQR [P] GO SUB ,~PI_ PLOT  ©[E]|IN EXP  PAUSE eV PLOT   BORDER  PAUSE © SAVE  PLOT  ▝e DRAW  PLOT   BRIGHT  LOAD  CLEAR ~1 RUN  PLOT  ~▜ RANDOMIZE ( PLOT  [I] RUN ([P]g PLOT  eINKEY$ DRAW ▛ RANDOMIZE  GO SUB  CLEAR  POKE  PLOT   RUN  THEN  OPEN # CAT  PLOT   DRAW 2? GO TO  LIST  THEN  OVER 2 COPY  OVER Y DRAW  PLOT   RETURN qf RUN hSIN [M] STOP  RUN ▚ PLOT  w[N] DRAW  FOR ; RANDOMIZE [O] CLS | LET  PLOT   RUN [D] OUT  PLOT   CLEAR %~[O] PLOT   CIRCLE ABS  NEXT  PLOT   RETURN  COPY  CIRCLE  RESTORE  PLOT   STOP ▖ DRAW } NEXT  PLOT   RETURN ~ PRINT >SIN  DRAW ~BIN  PLOT  ;~ AND  PLOT  ▚>Fz BEEP t AND ?fO OUT  PLOT  NOT ?SIN NOT wABS " PLOT  c[T] PRINT  STOP  PLOT  LEN  PLOT  SQR  OVER ![P][B] PLOT  1 MOVE ABS  MOVE  PLOT   CIRCLE  AND o PLOT   CAT  PLOT  <=>=_ POKE  PLOT  ~O FORMAT gVAL$ 7 PLOT  c DATA c RUN PEEK  PRINT  PLOT  3{ RUN 7 COPY  LET  FLASH SGN  PLOT  IN  PLOT  /{ AND  PLOT   LOAD {SIN [P] COPY FN  SAVE ]i COPY  GO TO wABS  PLOT  L PLOT   CAT  COPY D PRINT VAL$  PLOT  G RETURN  NEW  PLOT  wPEEK F© PLOT  f? STOP  PRINT VAL$  PLOT  #?s PLOT  / OUT 3? NEXT  PLOT   RANDOMIZE [N] PLOT  [P]EXP  VERIFY + OUT  RANDOMIZE  PLOT   OVER  RANDOMIZE  PLOT   CAT  BRIGHT <=CODE  PLOT  <=/~ DRAW  PLOT   INPUT PEEK { CAT g STOP w PLOT  c COPY  PLOT   RUN ] RUN 71 RUN N INPUT F PLOT   CLS VAL  CLS USR  PLOT  [I] CLS  INK  OUT  PLOT   CLEAR  PLOT  / OUT L} TO  PLOT  ~PEEK ABS  CLS ,~ CLS  NEW ATN &> FOR [N] THEN & RETURN ~ PLOT  6/~ COPY  PLOT  ©PEEK SQR % NEXT ©z▜STR$  CLS ©IN ] LOAD  PLOT  {?IN yIN [P]ABS  FOR  PLOT  }IN  OVER SQR o STOP =[P]$|< GO SUB > FLASH  CLEAR PEEK |9_}SFN ; CONTINUE  STEP  LOAD  OUT FN ABS  GO SUB  PLOT   FORMAT  COPY  LET  PLOT  © RUN PIq LOAD VAL  GO SUB  STOP  REM  PLOT   RUN  PLOT  w[B] INK  PLOT  SGN Z AND  PLOT   LIST ^ REM SGN  PLOT   CONTINUE /y[T] PLOT  [I]w: AND  RUN  FOR XSGN  PLOT  VAL <=TSGN  RUN [J]© SAVE G/SGN  CAT n? LIST G TO  OVER A PLOT  <gVAL$  LOAD   PLOT  0cVAL$ . MERGE 8#SGN  NEW  PLOT  SGN 3 VERIFY  PLOT   PAUSE >1 BEEP { LLIST  MERGE  OPEN # PLOT  z FOR ▚[H] LOAD  PLOT   FOR ▜ PLOT   RANDOMIZE PEEK  PLOT   PRINT NOT {n PLOT  uNOT ▜|SGN <=▚z LET & PLOT  ; GO SUB  OVER NOT ▘?<= THEN STR$ NOT 5 PLOT   LLIST  CAT _SGN  COPY  PLOT  aSGN  PLOT  ` LOAD  STOP  OR { PLOT  p BORDER  COPY  CLS 0[L] SAVE  PLOT  8 PLOT   RETURN SGN  CLOSE # PLOT  w CIRCLE BIN {s COPY  INVERSE  PLOT  SQR  OVER  PLOT  © PLOT  ; BORDER © CLS  TO n8g INPUT  OVER BIN  PLOT   PLOT   BEEP  PRINT PEEK 3 RUN N PLOT   CAT SGN ; OUT ZG▙ATN  OVER  CLS PI PLOT   CLS  CLS [J]Z<= LOAD  RUN ABS <=#<= CLEAR  OPEN #uo PLOT   BORDER ~ DIM SGN  READ s▜> LOAD  LET  CLS  PLOT  ;} LET  PLOT  qNOT ;u] LOAD 9NOT v PLOT  STR$ [N]PEEK  OVER  READ  PLOT  8 LLIST [P]PEEK  OVER k MERGE  LLIST SQR  READ = LPRINT  DEF FN  OUT  GO TO 7/p PLOT  SGN [L] LOAD o CAT SGN <= PLOT  8© LOAD ABS  BORDER  THEN 9 COPY  INPUT w PLOT  EXP  COPY  BORDER  PLOT  LN  COPY  TO y RUN ATN [M] LOAD SGN  PLOT  # BRIGHT wSGN  COPY  NEXT INKEY$ BRIGHT © RUN VAL$ B DEF FN © FOR {Y INPUT EXP  LOAD  CLOSE # INPUT RND*IN  BORDER _ABS  DRAW  MERGE [G] PLOT  #b_ OPEN # DATA  COPY o SAVE  PLOT   GO SUB  CLS CODE K PLOT  /<=Ov PLOT  ?©eLN  COPY  CLEAR  PLOT   GO SUB  RETURN  GO TO 2>=bIN  RUN 7 RESTORE  PLOT  ? INK  RETURN  AND x[T] PLOT  bz▟SIN  OUT  LET u PLOT  PEEK  RANDOMIZE TAN OK DEF FN  LOAD INT  RANDOMIZE C DEF FN w PLOT   RETURN STR$  PLOT   LIST Ax INPUT  BORDER  PLOT   COPY USR A|STR$  OUT r PLOT   CLEAR  LPRINT a PLOT   RUN C{ LPRINT `SGN A RUN  PLOT   LPRINT  PEEK @ BEEP > PLOT   LIST 0PEEK `} INPUT p0~  PLOT  USR p_ j BRIGHT q PLOT  0{ LOAD qUSR x? INVERSE <= PLOT   LPRINT 8/] REM  LET ` PLOT  [I]] OVER `< PLOT  LN VAL$ 0▞CODE { PLOT   OUT  MERGE  LOAD 8 PLOT  4 RUN  BEEP  MERGE © NEXT VAL$  PLOT  ©INT  CLOSE # CLS  MERGE [P]IN  PLOT  SGN [L] PLOT  g<>[U] MERGE  PLOT   READ #s PLOT   COPY  NEXT  PLOT   CLEAR  BRIGHT  CAT  OUT  RANDOMIZE  PLOT  ▝<= OUT  INVERSE  LET  INPUT [U]# PLOT   CLS  INVERSE  RANDOMIZE SGN  LOAD STR$  NEW  LLIST  DRAW  INPUT  PLOT   LPRINT a INPUT  RANDOMIZE  INPUT  LET  PLOT  q INPUT  DRAW  READ } PLOT  ` LIST p RETURN | PLOT  p CONTINUE  INVERSE 0 COPY |(p LINE  CLS 8 RUN  READ } DATA 0x8©> PLOT  8. PLOT  } INPUT 8{IN <?[P]USR  PLOT  @v PLOT  q RUN 7 PLOT   CAT  PLOT  SGN ▛ PLOT   LET  INVERSE " BORDER 1USR q{w RETURN  BORDER [L] CLS  RETURN  NEXT [L]EXP q▜ RETURN scLN { SAVE ▝ INPUT ] NEXT  CLS ▝ NEW 5 RANDOMIZE  LLIST [E]NOT zEXP  PLOT  USR  LOAD  PRINT  GO TO aUSR STR$  SAVE w6[E] PLOT  c BRIGHT FN  PLOT   LPRINT  DRAW SQR  PLOT  POINT  DRAW RND DEF FN $ PLOT   RETURN G READ  PLOT   READ  PLOT   NEXT 2 STOP  NEXT  PLOT  {SGN xs COPY < OVER  THEN qq OVER  CONTINUE W COPY  DRAW 9PEEK CODE  RETURN 8 CLEAR  DEF FN  LET  RETURN < FOR ATTR [C]=-P! IF  DEF FN ATTR  COPY  REM nw PLOT   LET INT  STEP 7© PLOT  IN  PLOT   PAPER VAL$ xw PLOT   CLEAR  GO TO  FLASH  OUT  RETURN  GO SUB  GO SUB  READ © CIRCLE [E]D FORMAT  OR  PLOT  x^ CAT  IF [I] INK ©SGN  LPRINT  MERGE POINT N PAPER PEEK ` PLOT  COS ABS  OVER pMTAN  OR  PLOT  VAL  LINE  CONTINUE  PLOT  COS USR  PLOT  = MOVE nCOS USR  LOAD 8 STEP  PLOT  ? PLOT  N PLOT  IN  LPRINT o8 RETURN  CIRCLE  PAPER  COPY  LPRINT w[I] FLASH  BORDER  PLOT  `w[M] GO SUB <>| PLOT  p7[M]6 BORDER xUSR  PLOT   TO [M][R] PLOT  |w; DEF FN INKEY$4< PLOT   DEF FN  STEP  PAPER ATN > PLOT  8= READ  PLOT  m BORDER ASN ! PLOT  ▝I PLOT   PLOT   GO SUB EXP  BORDER | PLOT   LIST  LIST [N] LIST  PLOT   SAVE |LEN x?©J PLOT  :4 PLOT   OUT SQR |_ FLASH  GO TO  LPRINT <© LLIST -IN @r DEF FN  GO SUB  PLOT  [P]IN  INPUT  LIST > BORDER v PLOT   COPY  DRAW  LIST PI PLOT  ?[P] OUT  RETURN  PLOT  x PLOT   CAT -ATN  OVER  PLOT   TO m PLOT   LOAD ~8IN  PLOT  SQR  STEP  BORDER © PLOT  < LPRINT  BORDER [L]j{ PLOT   PLOT   RUN IN ATN _[I] LPRINT  NEXT IN  PAPER 4hsABS  INVERSE INKEY$ PLOT   BEEP FN  CLS y OUT [L] NEW h9 OVER  INVERSE  NEW  PLOT  = CAT j COPY [O] LPRINT 8= LOAD  LLIST  PLOT  ▝S{h LOAD a PLOT  STR$  PLOT  ; OPEN # BORDER  LIST  PLOT  STR$  RUN [O]qUSR ^STR$ { PLOT  sLN  PLOT   LLIST  FLASH [J]{ SAVE ;[J]9 CIRCLE  OVER ▗ PLOT   PLOT   BRIGHT BSQR  PLOT  ABS  DRAW  STOP M| PLOT  [M] PLOT  < INPUT v[M] INPUT [E]ow PLOT  ▝ OVER [O]Y;> PLOT   DEF FN © PLOT  [O] PAPER  DEF FN w PLOT   BORDER  OVER B GO TO  LOAD k? PLOT   BORDER  FOR =; PLOT   COPY SGN ATN  RUN ?7STR$  BRIGHT  PLOT  [P] PLOT  ▜RND PAPER  NEXT [N]BIN  PLOT   CLS  RESTORE  VERIFY  FORMAT <=▜ PLOT  # NEW  CAT <=ACS  INPUT  COPY  RANDOMIZE ENOT  LOAD n PLOT   CLEAR  READ FN }NOT # READ s LOAD  BORDER EXP [H]? LLIST  PLOT  LEN  OUT  PAUSE  LET  LLIST ATN ABS [F] OUT  COPY IN z CAT  PLOT   BORDER  PLOT  © COPY  LOAD  LOAD 1[K] COPY  BORDER  PLOT   NEXT RND PLOT  .k[G]CHR$ CODE H PLOT   CAT oCOS  GO SUB  RANDOMIZE  RETURN  DEF FN  LIST ATTR I NEXT Rh SAVE t PLOT   CIRCLE AT ▘ PLOT   DIM [K][T](X/ IF  NEXT LN )9 PLOT  ©[O] PLOT  COS ATN ©[I] PRINT  PLOT  ?©#]▚Nxj CAT SQR  PLOT   AND  LPRINT  PLOT  ▝8 RANDOMIZE  PLOT   RETURN  IF ?CHR$  ERASE  PLOT  VAL SGN  PLOT   READ +6 PLOT  sVAL$ % PLOT   DRAW  IF ]▞ LLIST pAT kY PLOT   LET x▞ OVER TAB  PLOT  TAB n PLOT  p PLOT  8▗E PLOT  x LIST kATN SCREEN$  LPRINT  PLOT   SAVE [G]ISTR$  LPRINT [8 PLOT  .INKEY$p PLOT  < SAVE o RESTORE TAN  GO TO  PLOT   DRAW .POINT xVAL$  PLOT  UP8[U]rWTAB [A]POINT [ GO TO  STOP  RANDOMIZE [G]©3 LET CODE & PLOT   PLOT   CLS ][G]+▖ PLOT  ©) RANDOMIZE (<= PLOT  u[P] OVER l CLEAR #W( PLOT  NOT  PLOT  eO( VERIFY  BRIGHT  PLOT  U PLOT   CAT  COPY  OPEN #[F]▙STR$ #< PLOT   <> RANDOMIZE  DEF FN  LLIST  PLOT  U PLOT   PLOT  a PLOT   THEN ▛<?}<=aSGN  AND  PLOT   BORDER p; POKE b PLOT  ;| BORDER 0 PLOT  > PAPER VAL$  READ VAL pE VERIFY  PLOT   NEXT LN  BORDER LN q PLOT   CLEAR " PLOT   SAVE q CIRCLE |jSGN [K] PLOT   BRIGHT h▙ PLOT  y TO  PLOT   LOAD EXP [U]|LN  INPUT . FORMAT  PLOT   FORMAT  LLIST [K] PLOT  SGN  NEW  PLOT   LOAD #r> DRAW gt[N] PLOT   BRIGHT wYj RANDOMIZE => OVER 3PEEK  PLOT  p[H] PLOT  [U] LOAD  PLOT   INPUT ; PLOT   LOAD LN S DIM J= PLOT   STOP  LET  IF K LIST ▝ COPY  INVERSE  GO SUB l[U] RUN ▟[H] FOR BIN  PLOT   THEN  PLOT  / FOR U PLOT  x[F]©ACS  LET  PLOT   CLS  AND  CLEAR qINKEY$< READ  COPY <= GO SUB  LPRINT  PLOT  LEN  COPY NOT nO PLOT  > GO TO  LOAD  CLEAR  READ FN c INVERSE [A] FLASH  READ INT  PLOT   LLIST ▟ LET ▗ PLOT   LET  INVERSE 1[O]: PLOT  ^; PLOT   CLS  CLEAR  INPUT  COPY  CAT  CLEAR SGN NOT  READ  PLOT  <=▜ NEW  LPRINT NOT  PLOT   LLIST  CLEAR  LPRINT  LOAD xINT  FOR IN  NEXT  FORMAT [ PLOT  [P]INT  CLOSE # CLS © OUT  PLOT   STOP  OUT  RANDOMIZE  PLOT   CLEAR vKCODE  CLEAR IN  PAPER ASN  LOAD  DRAW  CLEAR nASN  PLOT  7 PLOT  USR  STOP  IF [H] NEXT  RETURN ©CODE U%[U]x© SAVE  FLASH $ PLOT  ?>= PLOT   AND 2 INK NIN >=[D]▜[R]g GO SUB [P] PLOT  IN  CLS <= PLOT  EXP ▛SCREEN$  DRAW [P]{ PLOT  u= CAT SQR [I];NOT D[K]sm©USR = PLOT  <4 PLOT  s PLOT   READ g PAUSE  PLOT  © BORDER  COPY  PLOT   PLOT   RUN VAL$ ] DRAW u LLIST PI POKE © NEXT  LIST  PLOT   LET  PLOT  ? CLS dNx PLOT   LIST USR AT ]Mxj PLOT   LPRINT USR  PLOT  0CHR$  RETURN p[U]kx VERIFY  PLOT  LN p<>z PLOT  SGN p<>3 LPRINT  VERIFY 8 PLOT  ; CLS USR  PLOT   PAUSE  REM < BRIGHT ;7 LPRINT  PLOT   OVER %▜[K] PLOT   OUT  CLEAR wPEEK  VERIFY  LOAD  PAUSE J PLOT   LET G NEW [U]GSCREEN$ 4 LPRINT  VERIFY EXP [U] PLOT   RUN ^[P] RETURN x PLOT  pUSR  COPY RVA TO W[L]ABS x PLOT  8 PLOT   CLS  DATA  PLOT   LPRINT © PLOT   BORDER LN Yz[P]u PLOT  <= CLEAR  RUN SGN STAN  PLOT   DRAW  PLOT  © PLOT  | TO  FLASH  NEXT  BRIGHT >[K]? LPRINT [K] NEXT  OVER Y▞p'^ PLOT  { PLOT  ; PLOT  yPI INPUT  PLOT  x LIST y[L]$ LOAD Y▞VAL$  PLOT  9[C] LET  PLOT  < RUN  PLOT  [D] BEEP `ACS  SAVE SGN x▞▝ PLOT  [U]W- PLOT  PI PLOT  [O] PRINT ▞▝ PLOT  ACS | OVER {©)▟p[K]▚▙ PLOT   DEF FN 9 READ  PLOT  USR >)i= PLOT  8[K] PLOT  uSGN  LLIST  PLOT   BORDER  MOVE © PLOT  = BRIGHT  PLOT  [O] PLOT   RUN ▙ OUT z▙ RANDOMIZE  PLOT   CAT  REM 0Hko CLS [ FLASH <=y PLOT  ▝+ PLOT   VERIFY >>USR }NOT  PLOT   LPRINT J VERIFY [D] PLOT   INK  TO  INPUT  PLOT  | READ  OUT > RETURN  LLIST  PLOT  Up& OVER  LOAD  RETURN  LET  PLOT   PLOT  qk FLASH EpxACS [R]: PAPER ,8co PLOT  W8]VAL$  VERIFY (INT C LET  PLOT   CLS  COPY ;INT  CIRCLE < PLOT   NEXT PEEK < CLS  NEXT R DRAW  PLOT   RESTORE  LPRINT  RETURN  PLOT  { NEW [T] RETURN -CODE ^<=G PLOT   REM RND BORDER  PLOT  / MOVE ATN ATN  PLOT  J CONTINUE wB COPY ▞?FN 6[J]USR  PLOT  8 ERASE  OVER  VERIFY o PLOT  E LET - GO SUB  FLASH JK PLOT  d©LN  ERASE SGN  VERIFY W- PLOT   READ fe[I] RANDOMIZE USR  NEXT ▙ OVER :[H]v PLOT  IN ABS  PLOT   TO  INK [O] PLOT  uVAL$  PLOT   TO [I] LET g FORMAT : OUT  PLOT  USR ASN EXP  RANDOMIZE  PLOT   RETURN  CLS  PLOT  =oCHR$ STR$ USR  SAVE ▗t▙x[U]ASN _| LIST  PLOT   BORDER  PLOT   STEP 5 PLOT   PLOT   VERIFY |▜ABS ▗ LIST [Q] RETURN x PLOT  a STEP  PLOT  PEEK x/▝ DRAW 5)▘ MOVE  PLOT   LPRINT 68[U] OUT U RETURN < LPRINT  SAVE  PLOT  x BEEP  PRINT <> LPRINT a BORDER : PLOT   RETURN p|LN 8o▟ COPY p CLEAR VaZPEEK ©p> INPUT  LPRINT  PLOT  *8 DEF FN  STOP [I]8CODE SQR WSm CLS LN  PLOT   PLOT  [M]AT ] CLS  OR  PRINT IN [M][I]NOT  LPRINT *ABS rCHR$ ?p TO [M]▞ CLEAR  OVER  PLOT  > PLOT  [G]p LPRINT  PLOT  O- PLOT   DEF FN cSIN  NEW  TO  NEXT  LOAD VAL$  NEXT [N]H<= RETURN ; PLOT  PEEK ~[C]; BORDER  PLOT   PLOT   AND 9 RUN ▟SQR  LPRINT ©k[R]= PLOT  U PLOT  $ NEXT  PLOT  ms OVER [M] CLS STR$ h#U TO [O] PLOT  ImWp PLOT   RANDOMIZE  PLOT  VAL NU PLOT   DEF FN }▞xABS  CLS  SAVE 5[ PLOT  } PLOT   CAT 5k MOVE  PLOT  r MOVE  BORDER > PLOT  CHR$ |( LLIST  PLOT  u PLOT  PSGN  ERASE U PLOT   VERIFY [O]▞ DIM !CHR$ > NEXT [P] PLOT  Y' LIST [I] NEXT  CAT [U]~[I] PLOT   SAVE  PLOT  d RUN [I] RANDOMIZE  CAT SGN /j THEN  PLOT  yNOT # PAPER ▚▙ PLOT  [P]SQR INKEY$ PLOT  } BORDER 0:$<[A]▗ NEXT ,` PLOT  > PLOT  6i▙ OR TAB  PLOT  >©mx FLASH  LET d% PLOT  Z5RNDNOT  PLOT  ▝ PLOT   COPY yCOS >W▝ LPRINT USR Ykx PLOT  USR  LPRINT ▖.USR NOT ▝MPI PLOT  SGN  CLS  PLOT   LPRINT  LIST VAL v[A]SGN  PAPER TAB kUp[A]iPOINT U PLOT  + ERASE  REM  PLOT  TAN ACS [A] CIRCLE  PLOT   SAVE x9y PLOT  m8ny PLOT   BRIGHT  SAVE 8 GO SUB [C] DRAW <[O]SQR  PLOT   LPRINT © DRAW  RESTORE  CLEAR  LPRINT  RETURN o VERIFY R/ LPRINT  COPY  PLOT  ▞ POKE  PLOT  [L]u PLOT  VAL$ STR$  LPRINT IN [G]7[C] LPRINT [P] BRIGHT  MOVE  DRAW <AT  LPRINT [I][P]EXP  STOP  LPRINT Nwk LPRINT yK CONTINUE [D] REM n[ LET  READ jM` PLOT   LLIST [Q]x LPRINT INKEY$EXP  RETURN > PLOT  IN ABS WW PLOT  {; TO [O] LIST  OVER o© LPRINT Y PLOT  [I]mo SAVE  OVER IN Q NEW  LPRINT  SAVE p PLOT  ]SGN  LPRINT  OR  INVERSE  OVER  COPY  OUT  LPRINT  INPUT  ERASE  PLOT  [H], LPRINT  INK dgq LPRINT  INK  COPY + CONTINUE ( LPRINT  PLOT  POINT e LIST  PLOT  PEEK y[L] PLOT  x@ SAVE  LPRINT h% PLOT   INPUT ? OR I LPRINT [N]▛ PLOT   REM < ERASE [U] GO TO  PLOT  © PLOT  | OVER  LPRINT  PLOT  SGN [K]+ FORMAT <> REM IN ?▚ FOR  READ  PLOT  ▝[O] LLIST n DATA > LPRINT ▛+ PLOT   IF  CLOSE #E[J] LPRINT [P] CAT  INPUT  PLOT   INVERSE  TO  LPRINT  OUT  CAT  SAVE nCHR$  LPRINT  PLOT   SAVE P RESTORE  LPRINT  CAT  CIRCLE [D]ATN  RETURN  LPRINT  INPUT  PLOT  /WPI BEEP  LPRINT  LOAD CHR$ LN  DEF FN  LPRINT  CLS  LOAD CHR$ v OVER  LPRINT  LET  RUN : PRINT  BORDER  GO TO  RANDOMIZE  RUN x READ CHR$  LPRINT LN LN  POKE CHR$ w OVER  LPRINT 8 CLS ▝WrCHR$  AND XxK PLOT   REM  PAUSE  ERASE  PLOT   CLEAR  LET v PLOT  }USR  TO ]SGN  LPRINT  LET [G]| VERIFY  REM [K] PLOT   SAVE s[H] PLOT  > PLOT   TO %] DEF FN _+ AND q REM  PLOT  [C] LIST  VERIFY X IF U[K] PLOT   BORDER  PLOT  W!LN LN  REM  RETURN  CLOSE #INT > PLOT  ATN VAL$  IF > DIM [K] LPRINT SGN m[G]/LN  LPRINT ▜ PLOT  s MERGE K REM <=x][O]m▛SQR  PLOT   OVER CHR$ [F][E] LPRINT NOT  PLOT   LIST  SAVE  CONTINUE  AND  LPRINT [F]ATN ▝ LPRINT  READ Z FLASH  SAVE  PLOT  } LLIST ▛W PLOT  x RANDOMIZE AT [S]x RETURN  FLASH  BRIGHT [S][Q]] TO  LET  LIST  PLOT   THEN k LOAD >= PLOT  VAL$ /[K] LPRINT x&VAL$  TO x{; FLASH (]▟ LPRINT  PLOT  ▝ DEF FN  THEN  LPRINT }R. TO  LPRINT = PLOT  STR$ ) INPUT  LPRINT x MOVE  LIST  LPRINT  PAPER  OVER b LPRINT Uo PLOT  N LIST [O]( LPRINT r OUT _ SAVE  LPRINT  LIST  PAUSE LN  VERIFY  LOAD  OR [Q] PLOT   OVER ; LPRINT  SAVE |qv LPRINT ? SAVE < COPY  LPRINT g[M] COPY  LPRINT  COPY  AND  LPRINT - LPRINT IN  COPY  COPY LN  COPY  COPY  PRINT  COPY  CLEAR CODE  COPY  COPY  FOR ©0 COPY 3_ COPY  COPY < COPY  IF  COPY ? RETURN  BEEP  COPY USR  PRINT IN  COPY NOT  COPY  TO CODE  COPY  COPY  CAT © CLEAR  COPY  LIST  COPY  FOR  COPY  NEXT  IF _ COPY  DRAW  COPY  COPY BIN  COPY  COPY I[C]-Ki▜RND0,NOT  LLIST  LET  LIST  COPY  COPY NOT  COPY  COPY  COPY  COPY  COPY -= COPY v; COPY  <TAB  COPY  COPY X DRAW  COPY [P]~ COPY  FLASH <>SQR <=qVAL INKEY$[M])[C]▞ COPY VK COPY  COPY ZTAB  COPY  COPY ATTR y COPY  SAVE  MERGE  COPY  IF a COPY 3x| FLASH <><=qSQR VAL INKEY$i[M][C]▞ LOAD ▘[C]n GO SUB s ERASE Xgd COPY k COPY ▚a COPY  COPY  COPY  COPY  COPY a COPY  COPY  COPY  COPY  COPY  COPY ▚ COPY  COPY  COPY  COPY  COPY Xe COPY  COPY <> COPY ▚a COPY  COPY  COPY  COPY  COPY a COPY  COPY  COPY  COPY  COPY  COPY ▚ COPY  COPY  COPY  COPY  COPY  ERASE b COPY ▚ COPY 8 COPY a1 IF ( FORMAT  VERIFY ?-SIN  RETURN VAL$  DRAW  OR  COPY  RETURN <=| STOP  PLOT  | INPUT A▙ RETURN  DRAW A THEN < CLEAR  COPY [B]H RETURN  DRAW  RANDOMIZE  PRINT e LPRINT  DATA  OVER  RUN  GO SUB  RANDOMIZE  DATA  INPUT D[R] GO SUB } COPY  MERGE BUSR  CLEAR  DRAW  CLS ~a OR RND*9i SAVE  COPY USR Fx[T][G]▗[Q]~[I]i▝ COPY  NEXT !SCREEN$  LIST  RETURN ▖ LIST %xT SAVE  BORDER  CLEAR ^[Q] CONTINUE TAN [A]<>©ABS  COPY TAN | LET [B]q CLEAR  GO TO  SAVE  RUN  INPUT  LPRINT EXP >=▘ AND ASN ▙ DEF FN  SAVE  OPEN #TAN  NEW  STOP [A] CIRCLE  BORDER ▖[Q]VAL$  LIST  GO TO  REM >=qvIN  LIST ]SIN ACS  LIST  STOP g COPY  MOVE / STOP  COPY l POKE K LIST ATN D GO TO  RUN ▟}▛x LIST [A]  BEEP  LOAD  COPY AWS POKE TO DRAW STR$ MICDESTRU-.▞E INPUT LN#©I INVERSE CC LIST EPT3CHR$ OR LLIST B READ CKSH/R IF  COPY BITM POKE  CLS UNCHER STEP 8[D] REM E LIST MLN SCRYINKEY$L▝[P]EMI POKE  OUT ACS [B]$[E] OUT U CONTINUE  STEP RND[E][L](OIX▙ LLIST <= READ P[C]A CONTINUE FUSR ▟ RETURN  MOVE STR$ NGSQR  RETURN [O]CAS[S]/ CIRCLE DIG[Q]o[R] RUN Y<>D READ  REM  DEF FN K0!CACS  CAT NOT L OUT ©tH.G$[H] COPY o.LOV INK K[S] COPY [R]ATN Po LIST  STOP Co VERIFY  MERGE EX[U]O[H]▗r NEXT qEx IF ASN s> DIM [L]SY-3 PLOT  FL RUN IN HINC/ STOP [A] CONTINUE P DRAW  RANDOMIZE [B]xINKEY$ COPY G[R]▙CODE XE[J]f LOAD OLJN:SK/)GA"A PRINT <=HAZR READ {DVAL$ [I]X"F BORDER O[D];p COPY JV[H]K FLASH  LLIST 7I DRAW ZCODE  DRAW  COPY K?▗ POKE SNOT GR DRAW fV[I] AND  VERIFY SW STOP [M]IGHSQR FUHqHy▟MAFI OVER  OUT COS P.^3 COPY  GO SUB X LOAD ESQR &COS  PRINT G[A]▜ OUT SOF LOAD ▙ OVER EGA|# PRINT J[B]BIN  COPY N THEN  STOP (M PLOT  H MERGE [F]U^PEEK VAL ©] VERIFY [J] VERIFY  RESTORE  OPEN # BORDER [K] PLOT  0OPUATN  CONTINUE >=C BORDER  RANDOMIZE [S] REM  INVERSE H BEEP  LET N PLOT  RU[L][I]Q COPY RzGSTR$  RUN  LPRINT ;[M]0[N]BER{ OPEN # DATA .z]K POKE  LINE  PAUSE LIHc(| FOR )CODE STR$ Sc THEN Z| SAVE CODE wIT-5STR$  IF WH MOVE  LPRINT Cx[I]MVRTSIN K0BB COPY  CLS  LPRINT TAB VDo}tW[O][I] COPY WORLD[I]EYX-[O] STEP 4IG GO SUB  GO SUB X-TRA{ RUN [Q]ZOMy AND ▗'▛+ COPY  COPY   OUT  NEXT  STEP R;STR$ ![H]<▜ FOR f CLS s#r OR { RANDOMIZE ▞b STOP  RANDOMIZE PEEK  RANDOMIZE ▜ COPY @ MERGE  INK >ATN  COPY ▛H LLIST  INK ~ THEN © : NEW AO COPY  LET  AND G#{[G]~ RESTORE oz[J]g| NEW  NEW ▟X RETURN (O} LLIST LEN s) LET  COPY [P]g PRINT  LPRINT TAN oa~ STEP INKEY$t LLIST # COPY  OVER STR$  NEW ©(# THEN w? PAPER  G FOR  GO TO  RANDOMIZE VAL$  NEW IN F?INT  PAUSE  CLS #[Q]q STOP  INK !X' CLS <> LIST ?w($  SAVE Ab READ STR$  COPY  AND 0▝ LPRINT < RANDOMIZE =# COPY  LET  AND  RETURN  RANDOMIZE ▛U F[T]s[A] RETURN [B] CLS ©j▘ RETURN E RETURN SCREEN$ UPEEK } RETURN  LET ©USR  COPY  LOAD  BEEP  FOR ?IN ATTR ▞ STOP 7 RETURN ?© COPY 0@▝▘< BORDER SCREEN$  RESTORE  OR  NEXT ▚ OPEN #* COPY Ox@ CLOSE # COPY  RETURN  DRAW  SAVE  LIST  LPRINT  PAUSE 3USR  MERGE  RETURN VAL$ ▚USCREEN$  ERASE [P]<CODE  NEW  BEEP ▝W[B]CODE  PRINT  ~ FORMAT  REM  IF ▘U IF b>= RETURN  MERGE y@ DATA  BEEP I[O] CONTINUE  FORMAT SCREEN$  PLOT   BRIGHT B RETURN  REM FN CHR$ ▝PyUSR  FOR L STOP @[Q]] NEXT il*[A] NEW NOT  CAT ▝Nz>= CONTINUE fVAL$  SAVE  CONTINUE  STEP ▘CODE © RUN  NEW  TO  LIST  POKE Z{▖ DEF FN _c[I] GO SUB gSIN k CIRCLE  DRAW [B] FOR  PAUSE  REM C▞Y PRINT [H]d&USR  FOR  IF  PRINT  CLEAR @[Q]Ts DEF FN tSCREEN$ I[T]x THEN N READ ▜SCREEN$ ~5<=Om"A RETURN [S] RETURN a NEW  BORDER SCREEN$ }INT  STEP  CAT >=~? OUT  VERIFY  SAVE  LLIST  RETURN [R]A▘E[S] TO  BRIGHT USR ▟q] RETURN PEEK  BORDER  PAPER  RETURN © RETURN ATTR ▘[G] CIRCLE  LPRINT  STEP  COPY ▟ RETURN  BEEP , INVERSE  READ INT U GO SUB [F]f2CODE ▘▘|5 RETURN " CLS [E]}([ RETURN Mh[A]{yPIS▘ DATA IN m LIST COS  LOAD  PAPER ow RESTORE  RANDOMIZE ▗ RETURN  BORDER  PRINT y STEP ▖<{4; MOVE ^NOT ▜ABS   IF  PRINT  LLIST ▘SCREEN$ STR$ ▝x RANDOMIZE  READ ▜U*gv[I] FOR  PLOT  CODE  DATA © SAVE  RESTORE >[D] LOAD [M]▝W INPUT { FORMAT $ RANDOMIZE }UR RETURN  MERGE SCREEN$ NOT  PRINT  STOP ▘ CONTINUE  FORMAT KASN  NEW  GO TO FN SQR P|PEEK @NOT  GO TO ] DRAW W- FORMAT  NEW iX RESTORE ▘`yABS SGN p'] DIM  PRINT ATTR g READ SCREEN$ CODE ©y>= PLOT   CLS  PLOT  G[M]zHS~CODE  CIRCLE  REM ©brW PRINT {H PLOT  CODE SCREEN$  CAT |B▝ RETURN { INVERSE  PRINT T[Q] COPY 3@ FOR  NEW  RESTORE U▘@SCREEN$ ATTR <[B]LEN  RESTORE ATN ] THEN ▘CHR$ #[I]} FOR ^b INPUT ▖ RUN  DEF FN UM5<=SQR  BEEP ▚@;z} RUN  DIM  OR Y SAVE ANOT i▝o ERASE <=G SAVE  IF 'x  MOVE & PAUSE  IF { OPEN # SAVE ? OUT `PEEK USR o INPUT @ THEN xb OPEN #<=▘[D]▚ GO TO  STOP ` RETURN  STOP 1" BORDER yBl TO 9▙ VERIFY  AND Z▞ ERASE y▟CHR$ "5"q STOP NOT ▘R MERGE be COPY VAL  COPY ▚a COPY  COPY  COPY  COPY  COPY a COPY  COPY  COPY  COPY  COPY  COPY ▚ COPY  COPY  COPY  COPY  COPY ▚a COPY  COPY  COPY  COPY  COPY a COPY  COPY  COPY  COPY  COPY  COPY ?▚ COPY  COPY ATN  COPY  GO SUB s ERASE d1a CIRCLE RND LLIST  NEXT > STEP `!.▗USR  ERASE ; GO SUB VAL > STEP `! THEN aaINKEY$ MERGE  GO SUB VAL <> STEP u` STEP Y` STEP [B]e STEP C`> STEP `! OR  BEEP "USR  STEP USR > STEP `!USR [A]e ERASE ; GO SUB VAL > STEP `!USR b[R][T] GO SUB VAL  STEP Y` STEP [A]e STEP u`> STEP `!USR [A]e MOVE * GO SUB VAL > STEP ` STEP [A]e STEP C` STEP u`> STEP ` STEP 8 REM  INK !X' INK <> NEXT  GO SUB sf!CODE e▞[w MERGE  GO SUB VAL FN a INK !-▗ COPY IN <> GO SUB LN 1 SAVE [R]STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS NOT FN a LLIST  LIST > STEP Vv DRAW  COPY `! RESTORE @USR s#r4n STEP q RUN ?v[A] OPEN #OxLEN CHR$ <>a NEXT !©1e OUT f COPY 6BIN  GO SUB VAL !"1▛▖w CLEAR SGN v>SGN @2 RANDOMIZE p$^AqCODE   COPY L! PLOT   DIM ye STEP -d>"A NEW @ PRINT  LOAD  CLEAR  FORMAT  CONTINUE M  MERGE  VERIFY  OPEN #LEN X/▝>df!Wx TO  STEP L INK ^ AND  PRINT  AND f7ABS 9-SCREEN$ d OVER NOT 'PI(TAB  STEP  BORDER c DIM  POKE ![G]h[R] DIM  PLOT  ABS  LLIST [R] OPEN #/▝q[I]NOT a CLS T|ff>=LAT J IF < IF jINKEY$Zp NOT > BORDER ▘f[S]h@USR  RETURN  CLOSE #-X PRINT  CIRCLE >v GO SUB [Q]PEEK <=> RETURN =CHR$ SQR bPEEK  PRINT  OPEN #w OPEN #X_SGN EXP c STEP )!,I RANDOMIZE v+|ASN CHR$ Bs<>▛ASN vIq RETURN 3i CLEAR v OUT Pe!Y[B]"TAB r^[I]IN  STEP FN  CLEAR "Bc/l OVER  OVER [N]1EXP  OVER [B] OVER d GO SUB RND DRAW | RETURN <=>=NOT [U]><2w NEXT [O]p RETURN ? PAPER  GO TO USR ▛ CIRCLE  LPRINT  ERASE [F] STOP  COPY @x▚wNOT [O]c:▟© DRAW G~wxATN >= PLOT  92 POKE <>: CLOSE # RETURN  IF USR CODE S[S] STEP  GO SUB ~ABS _ RUN ▟#V GO SUB SVAL r^IN < SAVE ye"VAL  NEW e CAT CHR$ <># COPY x8 DATA zCOS >=~ COPY PEEK NOT  PAPER c(SA CLEAR  OR  CLEAR `,4[O]i RETURN ]SGN fATTR [P]E STOP [Q]?<= STOP : q▝ FORMAT NOT  BORDER cSTR$ [L]LN  OR ATN  CIRCLE  COPY  FLASH  GO SUB s▜d1e[N]CODE  LLIST w>:> RETURN LN )n1ABS $n"5w[S] RESTORE [S]oLEN O[S]STR$  DRAW PEEK #0d<>TAN E<8▞ATN ^ PRINT  CLEAR -BIN 5USR  NEW [S] ERASE  LIST 7r| COPY  DATA - MERGE  BEEP [Q] BORDER [B] LLIST  NEXT  NEW  PAPER O. NEXT  PAPER RND SAVE RNDEXP  RETURN *▖w STEP ;oEXP STR$ [L] NEXT  NEXT  LPRINT  STEP  RANDOMIZE  NEXT  NEXT  AND y.F# OR  NEXT /~ STEP  RUN p2▗ DIM 3ASN ~ RUN ▘I[CHR$  PAUSE  OR  STEP UoXnO: DIM  CLS  RANDOMIZE  PAUSE [J]n[B] CLEAR w OPEN # SAVE  LOAD  LLIST f POKE  OPEN # LLIST ▝ LLIST p)SGN ACS ABS ACS x SAVE ACS  RETURN r PAUSE ACS >> LOAD ACS $ LLIST ACS ACS  LLIST ▚ACS  IF EXP ▜©KEXP /▜ PAUSE EXP  READ  READ  LOAD EXP © STOP  LLIST EXP >ATN  LINE ▘ IF  LET f: RANDOMIZE p NEW OH`a AND @© POKE F POKE [B] LET { LOAD VAL$  LLIST [Q][M] PAPER sTAB  SAVE  LPRINT  ERASE [O]h@ DATA #<xABS  CLEAR  PAPER oSTR$ CHR$ ▗e<>' MOVE  FOR PEEK  STOP  RESTORE NOT  IF  PAUSE  IF  GO SUB si INVERSE EXP  POKE B INK n}? OVER &) COPY ▗geyJCODE  FOR  IF  AND USR CODE H6o[F]COS  READ MD BORDER WINKEY$ CLEAR }© NEW  CONTINUE  COS SQR  BRIGHT O FLASH | CLEAR o INK #kIN g RUN |ACS ,▚ CLS  COPY  LLIST PEEK 6 ERASE  LLIST  INVERSE # RETURN  INK CHR$ <>fACS  OVER  GO SUB sq LIST !n"<=fKSGN F9CODE  RANDOMIZE  LLIST  BRIGHT  RETURN  LPRINT Z IF ▛i:fATN a POKE  n CLEAR [D] COPY  RETURN ▚ COPY  RETURN  COPY  RETURN  COPY  NEW a RETURN [O] RETURN COS TAB  NEW USGN AT q[H] ATN © CAT  AND `o&SQR ^$V[S]© PRINT ABS  STEP  CLS _$ACS  MERGE hECODE  TO 'nCODE !TAN  GO SUB RTAN USR  PAPER wnZ SAVE  DRAW  FOR NOT  READ O[J] POKE  GO TO ? NEXT  RUN :w[J][O]/2 DRAW ! MERGE TAN  READ  ERASE  OVER h.[U] INPUT  RUN USR ^>=SCREEN$ USR  LOAD  MERGE SGN [G] OPEN # FOR  ERASE PEEK n LLIST =SGN  PRINT  FLASH znLN  LLIST  RESTORE USR  PAPER  INK n MOVE  OVER 9 PAPER  RESTORE  LLIST ? COPY [Q]<=]![C]wx? PRINT ATN  LINE 1o^ U0X READ  THEN 4 ERASE  SAVE |g▟ATN  LIST  GO SUB t PAUSE D<> RESTORE PIS[O] LLIST  CIRCLE PIiAT  NEXT ~5 NEXT ATN  PAUSE bo OUT G# DIM  CLOSE #<>CODE  SAVE  BEEP  IF  INVERSE  RESTORE }SQR  ERASE qo FOR  COPY _[D]O|[C] PAPER ©oG&[jNOT  RETURN k▖ PAPER &/>IN [C]o)"CHR$  READ '&SIN j~$