The Viewer: boot.B

  0y MERGE  STEP SIN x LLIST H MERGE z NEW   POKE { AND  _ RETURN  LPRINT 8 REM Y AND _ RETURN  LPRINT 8 POKE  STEP nx! RUN x~ RETURN  COPY (Q CLEAR © GO SUB y#F#^#V#"8x* POKE / FOR  THEN LN  RESTORE ! RESTORE  STEP = LLIST  MOVE  STEP SIN x THEN  STEP = AND > RUN  FLASH  RETURN / NEW >=O> COPY 2yCODE  THEN 8< RANDOMIZE <>2VAL$ x< PLOT   OPEN # RETURN <>!z@ BRIGHT  GO SUB VAL !©]_ GO SUB VAL ! LPRINT ]:y<>NOT @> GO SUB [Q] STEP  LET x0 RANDOMIZE  MERGE P STEP  LET x0 IF  CLOSE # LET x THEN  THEN 8  POKE ^# THEN 30 STEP  LET x THEN 0 RANDOMIZE  THEN : THEN  READ  RESTORE  GO SUB R MOVE  GO SUB VAL  LLIST 0 OR ▜USR ~#<>@USR ?USR : FORMAT CHR$ [B]_▜▖ COPY CODE W_ OPEN # RETURN  CIRCLE ![ GO SUB s.y RANDOMIZE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  INPUT 1<>▘$▞iUSR @`r)[M]{ACS | INK  OR >&; RETURN USR 0{ COPY  LPRINT  CLS  CAT `[A] LLIST  LIST <= FLASH  LLIST  LPRINT Y LLIST U READ eU RUN [G]Yo PLOT  Y POKE  LIST iR SAVE $ DRAW  GO SUB Q COPY `TAB  FLASH  LOAD ATN |- OUT  BORDER  FLASH 4PEEK [Q] READ ▛SSTR$ 0,0 LPRINT LEN 0USR |b<[A] GO TO >=2 LPRINT  ERASE ^)$y NEW  GO TO [E]`ATTR  PLOT  AAOAMENOT A INVERSE  CONTINUE   NEXT 1/2 CLOSE #g PRINT CODE  OPEN # RETURN  STEP u@[P]2>_ STEP IN @ STEP [T]@ STEP ka!ZB/ STEP [F]_ STEP [L]o STEP  DRAW o STEP A CLS  OR v!Y STEP  RUN @,} NEW  RETURN 8 PRINT } AND o RETURN  LPRINT 8 GO SUB STR$  RESTORE ! POKE } NEW w,  PAUSE  STEP Sa! NEXT  GO TO tTAB  STEP ` STEP ua LET CHR$ ▖NOT  FORMAT g CLS v NEXT  CLEAR  COPY CODE  GO SUB y GO SUB h COPY IN } NEW  DRAW  INPUT  PLOT  gB GO SUB yC GO SUB xSGN (ATN <>B GO SUB qC GO SUB xB GO SUB i7USR ?<>>IN  FLASH  RETURN  FORMAT CODE  GO SUB x RETURN ?[P]22_>=><>2ka2ua<>CODE ! RETURN IN  COPY  CLEAR  COPY  GO SUB A GO SUB yC GO SUB A< OPEN # GO SUB IB GO SUB a GO SUB iC GO SUB a} OPEN # GO SUB i< OPEN #B GO SUB Q GO SUB i GO SUB xEXP >(> COPY 2:_<>~O NEW 8(y VERIFY w~ NEW >=5<> STEP [a>2  FORMAT  STEP Sa! FORMAT CHR$  STEP EXP ` OR &HCODE ow, DRAW $ THEN /  NEXT  STEP [a!qAH~ RETURN 8 VERIFY  RUN  INVERSE g#~ INVERSE o# STEP ▗b"0A STEP SaUSR &H>. GO SUB VAL $=  PRINT  GO SUB SPASTR$ TAN  STEP [a>2  FORMAT <>Quicklook: ONklook: OFFscreen: ONGigascreen: OFFFile OperationsShow in hex for musicLoad as textCombine to TSte scannerCombine to giga as screenw as gigaThe Viewer v1.0Setup: Saved COPY [O] COPY #(▘▚[M] PLOT  ( IF [A] SAVE SQR  COPY <@ COPY  BRIGHT BIN Rx NEXT $ MOVE [M]8 RANDOMIZE  FOR ]BIN  DRAW &0 RETURN ;! TO @:RND GO TO  RETURN  THEN   INPUT  INPUT 9 RETURN - PLOT  [C]/ TO NOT J STEP  DRAW [L] CLEAR X[S]CHR$ !x PAUSE @ LPRINT PR SAVE ▞SQR EXP CODE  READ  OPEN # RUN  FLASH x RETURN ([P]USR  CAT 1> CLS 2 LOAD /<>)W[P] COPY  COPY  POKE FN [P]K CLS BIN S▝NOT <> IF R4[/' COPY  READ "1560_ FLASH /=] LET ASN bo POKE t  COPY  READ BVAL 8, MERGE PEEK x RUN $LN USR  NEW ~ IF / RETURN  FORMAT 8 POKE &]*,SCREEN$ y ERASE  RETURN w IF  RESTORE  RUN "b CLS [G][A] LLIST [A]COS P CONTINUE © REM © INK  READ q<>[Q]- COPY The Viwrv1.0byKp LIST acku}2018ATTR  INK S DRAW etup:[ OPEN #CHR$ ▞o$] NEXT !x RANDOMIZE  COPY  GO SUB [ POKE / STEP  COPY =:]2 MERGE x COPY v STEP 3y FLASH  RETURN / NEW  COPY (> COPY 2.y? STEP ▜4vr REM NOT f ERASE [ RANDOMIZE USR 0[M] PAUSE ▝ CLS SGN : LIST bPOINT =c: REM B Q COPY  RUN  THEN  RETURN >= CIRCLE  RUN >= CLS SIN BIN COS  PAPER IN USR  INK NOT TAN CHR$ STR$  OR  OUT  BRIGHT  FLASH  INVERSE  OVER VAL LEN SIN  POKE  RETURN  RANDOMIZE  CLS  RUN  NEXT  PAUSE  COPY  PRINT  SAVE  CLEAR  IF  PLOT   STEP INT  MERGE  LET  VERIFY <>LN ATN SQR  CLOSE # OPEN #>=PEEK ABS SGN  AND <= TO ASN  LIST ACS EXP  MOVE  ERASE  THEN  CAT  FORMAT  LINE  CIRCLE  BEEP  DEF FN  DRAW  INPUT [Q][R] NEW [U]RND DATA [T] RESTORE FN POINT SCREEN$ ATTR AT TAB VAL$ CODE  LOAD  LPRINT  LLIST  STOP  READ INKEY$[S] GO TO  FOR PI CONTINUE  GO SUB  DIM  BORDER  REM [O]▝[G]▗[E][F]▖▞▛▟▙[P][A][B][C][D]▚▘[M][L]▜[I][N][J][H][K]VAL LEN SIN COS TAN ASN ACS ATN LN EXP INT SQR SGN ABS PEEK IN USR STR$ CHR$ NOT BIN  OR  AND <=>=<> LINE  THEN  TO  STEP  DEF FN  CAT  FORMAT  MOVE  ERASE  OPEN # CLOSE # MERGE  VERIFY  BEEP  LIST  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE  OVER  OUT  PAUSE  NEXT  POKE  PRINT  PLOT   RUN  SAVE  LET  RANDOMIZE  IF  CLS  DRAW  CLEAR  RETURN  COPY ▝▘▗▚▜▖▞▛▟▙[A][B][C][D][E][F][G][H][I][J][K][L][M][N][O][P][Q][R][S][T][U]RNDINKEY$PIFN POINT SCREEN$ ATTR AT TAB VAL$ CODE  LPRINT  LLIST  STOP  READ  DATA  RESTORE  NEW  BORDER  CONTINUE  DIM  REM  FOR  GO TO  GO SUB  INPUT  LOAD <= AND / CLEAR  CLS  DRAW  COPY  IF 2 POKE  SAVE H RUN  RETURN % COPY  POKE @ FOR  PAUSE  REM  COPY  INPUT [ PAUSE  COPY  POKE 4 LINE  PRINT  LLIST  CLEAR SIN # LPRINT 8 MOVE  LPRINT  FORMAT N MOVE  IF ▗ LPRINT  THEN y VERIFY SIN  BRIGHT  COPY , LET / COPY  FORMAT  LPRINT $ COPY  LPRINT IN >=X[SIN -▜ CAT  IF A RETURN - LPRINT oRND LPRINT VAL  LPRINT LN YP>LN USR  CAT ~ RETURN D>T@ RANDOMIZE  P<8 GO SUB h[E][M]  CLEAR @Px COPY  SAVE [A] INPUT 0▚ LLIST `@x RETURN i FLASH @<= SAVE 8 CAT `x LET Hp@DN RETURN 8| PLOT  n<`4 [R] OVER  RETURN B SAVE SGN Z CLEAR [O]> SAVE xSTR$ " BRIGHT  PLOT  H(p RETURN   RUN # CLS ▚ DRAW  CLS  DRAW  LPRINT )@[H]]▖u[R] RESTORE  DRAW 1[B]xINKEY$T5.▝x▘ COPY T` PAUSE D@pX6▘W[S] CLOSE #1{G COPY (©6 TO 8 RETURN f LET  RETURN D"<>4CODE >=PThc[G]$p[R]/TAB  MOVE PA READ ▛`|[O]I INPUT p CLEAR  RUN  STOP @)  FLASH l▘h RESTORE  LIST ▝ OPEN #( TO P5 DIM p SAVE  OVER @[R] :EbQ` LOAD [M] LPRINT Z @ OVER VAL$ ]| RETURN x(,< GO TO  DRAW   AND  DRAW (n▙! RANDOMIZE e,8RNDO  LINE 4e DRAW P©ATTR  RETURN B[B]P}(lSCREEN$ ▘T RUN 0d`LS LPRINT x8T`Z LPRINT  DRAW  LPRINT VIN  LPRINT ASN D COPY  LPRINT Pk© AND |~ NEXT <B$ZX>l[C][G]f|G FORMAT  LIST `[D][Q]T NEW INKEY$ LIST X[C]▝H PRINT  OPEN #w TO 8[S]X[R]PI[O]ATN >= CONTINUE `y(INKEY$/[L]. CLS  NEXT  LINE PEEK [Q]▘^[S] COPY  CIRCLE CHR$  LPRINT f[L]4Q AND [H]L, STOP  CLOSE #  CLEAR  ERASE < OR , GO TO M LIST STR$ X▜ FORMAT c[A]P▖ SAVE [U]t CLEAR $x8X [M]T=8A[T](Px▗▗ LPRINT dmATN p IF  LPRINT / LPRINT  PRINT  LPRINT 8dp PRINT  LPRINT  LET  CLS 8~l▞n" ERASE l`4#oABS p[A] DRAW hx▗H0▖PC|( PEEK  COPY STR$ D@qd[O];T! CLEAR BIN D LPRINT D}[Q]*0/ LOAD g LPRINT  ` PLOT  X]h[O] FOR (< CONTINUE  CLEAR [B](d LET 0K!Pg DRAW  DRAW B REM Y:PIhXP PAUSE ATTR [D]/b  MOVE  GO SUB  LINE [B]6 SAVE  RANDOMIZE  LPRINT  BORDER  OUT  LPRINT ▘$I IF  LPRINT INT  BEEP c>] RESTORE  CONTINUE n&[U] LLIST  LIST >x[P] BORDER i DRAW  CLS CODE  OVER [Q]. PAUSE  IF  LOAD x`VAL$ p IF ] INPUT  FORMAT ▙8hxLEN `A$© REM [U]▙ MOVE  #x/ OPEN # CLS  CLEAR pjT LLIST  LPRINT  POKE ` PRINT  LPRINT p}CODE K[B] IF  LLIST  CLS x DRAW 0Ptb+C PAUSE u4 SAVE  PAUSE [S] RANDOMIZE FN ▝d[J]8▘`1|ATTR ~ OVER pXH(▘W[E]|x LPRINT CODE  MOVE g PRINT <j> IF  LPRINT ▟>E OR NOT  NEW `T DATA POINT  FLASH /|[K][B]▛[H]S~H LINE  DATA 90. COPY /© OUT ABS  PLOT  USR CHR$ TAB  VERIFY  STOP ACODE ▙▘f SAVE USR >=Xci COPY  CLEAR LEN E NEW @,▚[T] LPRINT  POKE  COPY USR  `V[T] COPY [Q] NEW  LIST   COPY PE RUN   CLEAR  ▖ CLEAR  CLS  PAUSE < RETURN  NEW $ DRAW  CONTINUE  LIST USR 0F&SQR VAL  [U]▘ CLOSE #[I]SIN  RUN @ PAUSE  AND p P COPY 8 LIST  LET $`'" GO TO  OVER @ BORDER q NEXT USR  COPY 10@[M]c[Q] THEN  BEEP DABS Vh▝ LPRINT  STOP `[Q]! ERASE  AND h STEP  TO CHR$ hUSR [J]USR VAL p RETURN g▛p BORDER ASN  G©`aP STOP %" TO POINT `SGN ▝y[H]*WA LIST  LET 4 DIM G RANDOMIZE  STEP  PAPER STR$ < PAUSE  7 CLS  LPRINT @ LPRINT 98CHR$ 0 COPY NOT &[S]CHR$  SAVE  CLOSE #POINT  BEEP  PLOT   INPUT 0O CIRCLE  LPRINT ] PLOT  w OVER VAL 7 CLEAR [Q]%VAL$  CIRCLE p`▟ COPY  PAUSE 0[C]`P▖[H]$W NEXT >=W[S]▖ PRINT  RUN ^ NEXT  LLIST  [H]A[Q]DE▛ PAUSE  OUT  INK ▟ LPRINT O' RANDOMIZE  LPRINT hUSR p?NOT B CLEAR  REM /P@i STOP FPOINT G OUT  LPRINT  RANDOMIZE  LPRINT  RANDOMIZE  FORMAT  LIST ▗ CLEAR  MERGE 0M INVERSE  FORMAT  LIST  INPUT  DRAW G BEEP ASN  RANDOMIZE 2~VAL  COPY ▗J▖ GO SUB  COPY  LPRINT [T][HVAL [R]iSD*Br RETURN ▛ OR >=&l COPY ▗ COPY LN [K]▖'A LIST " GO SUB  DATA  LPRINT )o RUN  LPRINT D STEP w PAPER [B] COPY c AND USR [P]IG REM  DRAW  LPRINT 6G BEEP  LPRINT >=BIN 4| PRINT h CLEAR 8>=p"▘ ERASE TAN  NEW _IN VAL  DEF FN ▖ CLEAR VAL `( STOP @[E]AT [Q] REM a RETURN MQ^%CHR$ ▖▗[J]["h/Y@ LIST 7q[M] LPRINT ▗ FORMAT  LPRINT / SAVE CODE "`5 NEXT /Bwb IF p IF ! CLEAR  INVERSE [C]0 LET  PRINT ^ FOR gVAL  LIST c~[Q]" LINE  CLS  MOVE >MUSR LN USR ▛ CLEAR  RANDOMIZE P`wJ-USR  FOR ▚ PAUSE U4 RANDOMIZE  PAUSE A/ LOAD [S] CONTINUE Z LIST D>=[P]4 LPRINT KATN  BORDER O./ CONTINUE yAT BIN L FOR /`.CHR$  LINE  LET >= INPUT f[K] LPRINT  POKE [S][R] PAUSE 4b?ATN  STOP  INPUT < LET  DRAW Z LPRINT [J] REM VAL 0 IF  FLASH a COPY %aQ▞AT ABS @[D] POKE ABDDBGDBFCDBFDBEFABEFBEFBECBECAECADCFDEFDFDGBFDBFCBDC!wt4~ VERIFY  CIRCLE w<>!wt5 LIST 6<>866KoiWin:zt▜▜ AND o DEF FN t[F]g FOR . FOR ~ATN >=#O~ATN  +# RESTORE o SAVE &lCACS $ACS $ACS $ACS $ACS $@ THEN  FOR ACS $ACS $ACS  LLIST  THEN ATTR ATN >< RETURN 8CODE 2zt ! PRINT u,  DRAW <>=o&USR  CLEAR ©> GO SUB yn[ MERGE  OR  GO SUB VAL  CLEAR ©> GO SUB ySTR$  LLIST  PRINT  GO SUB VAL <> CLEAR ©> GO SUB yCODE 2xt:wt▜o&[~,fo" GO SUB t6 INVERSE #6 DIM  INVERSE ! GO TO t" REM t/[ GO SUB s PRINT t*,[>X RANDOMIZE NOT USR !!!6 FOR #6^111<> SAVE &lACS  INVERSE w$ACS  INVERSE wCHR$ $ACS  INVERSE w$ACS  INVERSE wF$ INVERSE $ACS  INVERSE w▖$ACS  INVERSE w LINE $ACS  INVERSE w$ACS  INVERSE wN INVERSE %<> CLEAR ©> GO SUB y!USR bNOT ©`~ THEN  FOR  THEN ATTR # PRINT <>!_FN u GO SUB LN  +  RANDOMIZE  GO SUB LN !FN uPEEK  p+ RANDOMIZE . MERGE  STEP -t LLIST >[B] DEF FN G>!X!Xw, IF <>            SGN hhhKpacku CLS  CLS  OUT  OUT  OUT  OUT AAAAAAAAA>> PRINT !_ RESTORE  STEP 7u LLIST  LET NOT Dp! CONTINUE g PRINT  LET  NEXT  SAVE  STEP ,~ INVERSE  LLIST  OUT }2ztATN BIN  STEP ▗ COPY  INVERSE |2`~:X_ LLIST ATN (B? COPY  RETURN ' LINE  OUT  STEP wFN v LLIST :M_a GO SUB xOE NEW CHR$ c~O TO !SCREEN$ u LET G3 GO SUB VAL  SAVE X COPY   STEP Ju!E DRAW 68$>|wAEXP !0@ IF ) NEXT  THEN 2 OR X▛0 STEP  OR VuCHR$ t DRAW Gw.? CAT STR$ - PRINT VAL$ |NOT  NEXT  STOP y CLS v▝T COPY  ERASE  COPY u:C_ INVERSE  COPY o STEP  IF wCHR$ AT y! RETURN mx STEP  FORMAT wBIN  COPY @[E] n DRAW INKEY$w PAPER : COPY n RETURN  FORMAT  PRINT  NEW ! SAVE ,w(=R5 IF g PRINT >k DRAW v<= LET ? REM  RETURN 0ATN  LPRINT >(▞ STOP 2 RESTORE z LLIST  NEW {N DRAW  CLEAR <>|6!SQR  IF  PAPER  OPEN #z<>;!TAB  BORDER `" INPUT  NEXT | DIM © LIST  GO SUB s)w~# INPUT 2[U]zB] STEP  FORMAT  RANDOMIZE  LLIST  RESTORE D DATA  READ  DRAW  INVERSE ! BRIGHT <> FLASH  DATA ABS 1Q!<>g| RETURN nz PRINT ,A▖z GO SUB Q} RUN ▗aT STEP &|!g OVER !I LIST INKEY$ LIST !?"X1/}2X48<>▜ COPY o[F]g[P] FOR g(~* REM  SAVE uCODE O[E]G[P] GO SUB LEN "Az▞+a AND ~<> BORDER  THEN  FOR  CLEAR ATTR # DATA  PRINT 9 COPY ▘ REM  COPY 0* NEXT  RANDOMIZE } STEP V NEXT 5PI LPRINT |.]4 RETURN ASN ' LPRINT `NOT CHR$ COS t COPY  NEW w 8 FLASH  RETURN /[S] LET >= STEP 7x LLIST ATN ©> COPY 2C_<>CODE  BRIGHT  GO TO CODE O LIST [N][R]>oUSR  GO TO © GO TO  NEW ( STEP x POKE yATN 2D GO SUB > RETURN ? GO TO [P]/_! LIST bx0 LLIST W LPRINT  STEP %L[M]~ACS  THEN  READ  RESTORE #INKEY$©  POKE ySIN O<>F~6 THEN 0©(?8? CONTINUE [S]INKEY$>= GO SUB  LET <> CLS  CLEAR PI OUT  RETURN © LOAD h[A][Q] PRINT TAN  RANDOMIZE  RUN  PRINT 8KIN ▝STR$ |©ABS  CLS L RETURN @LEN  OUT ▘COS ▝%^ OR ▛w COPY ^SQR STR$ T. COPY u COPY ,< RANDOMIZE <> STEP yCODE tp STEP NOT  DIM }9 THEN gUSR  VERIFY  CAT d"OCODE 2 NEXT  INVERSE zy AND IN  CLS 8[S]<INT 8CODE POINT e RESTORE H RESTORE Y RESTORE [N] DATA RND LINE _([P]<[H]8 VERIFY i LPRINT ~[H] LIST ▘zASN '| LET ATN ▝x OVER  CAT O RETURN 85CHR$ (N▞[A]AT $HSTR$  OR  LINE NOT &y COPY (<> INVERSE }ATN USR  CAT >© NEW  LINE  LET  GO TO uNOT  LIST / LIST  RETURN  PLOT  :ATTR y FORMAT CODE IN COS > BEEP COS  SAVE !f▚ RUN  RETURN STR$  FORMAT wONOT !ATTR bCODE 0fKD PLOT   STOP A},[Q]].}L©4N, OPEN #F OR USTR$  GO SUB  NEXT s[P]y1! LLIST  COPY |ASN ( GO SUB B8 RUN  BORDER ! RETURN  COPY VAL . DRAW  BEEP 91 STOP -h% NEXT Uy BRIGHT 2x THEN  DATA 8V CLEAR C CLEAR 4 CLEAR w COPY CHR$ [P]vNOT  COPY uY LET CODE + COPY ACS ( CLS # CLOSE # BORDER  COPY  CAT |INT  PRINT 0 FOR " STOP  FORMAT sSQR [N] INVERSE 0u READ  OUT  CLOSE #[I], BEEP ^[P]VzCOS ($ LINE  RESTORE #[E]` OUT  LLIST  STEP Ez COPY t+| RETURN d COPY 8 LLIST V MOVE -^ NEW  BORDER  DEF FN yb© INK ATN  ▗gLN  LLIST <] FOR  STEP EXP ` OUT f  VERIFY  COPY (G8 CLS ▖ RESTORE  LLIST : RETURN  RETURN  0O[O]wb VERIFY !/ STEP ©:+{ COPY s( SAVE  AND 3 INK GOABS <>> LOAD  RANDOMIZE  RETURN USR s RUN  COPY <> MERGE |PI THEN  AND  COPY [Q]g CLEAR ©> GO SUB  COPY y#n&^~_Lr▛▖▛n LOAD  OPEN # MERGE e[T] MERGE ▜ RETURN  STEP [J]▟ INPUT , INPUT  NEXT  INK :q COPY  INK x BORDER NOT  BRIGHT z>_ATN (G LPRINT  RETURN  RETURN : STEP nz PRINT wt▜ COPY o&[N#F INVERSE !BIN  AND  COPY & PRINT  STEP  FLASH { INK  STOP ( BORDER , RUN 8▜ CLS [P] COPY  NEW  DATA  INK : OPEN #▘zp THEN  COPY  STEP INKEY${ GO SUB s CLOSE #`INKEY$# RUN "L RUN  POKE !F[K]PEEK D BORDER  FOR b><=[O]} LET = PEEK  PRINT y FOR  OPEN #`1} CLS  MOVE s#r▚ CLS  INVERSE  DIM ▟!^D^#V!6[P][<>oN&#^B BORDER   INK  OR  MOVE <>O LOAD ' NEXT / POKE +▘,0. INPUT x STOP  STEP |AE LINE   FORMAT   GO SUB 0 REM > NEW BIN  REM p[O] DIM nNOT  SAVE t[N] CAT   RESTORE <>©Z(ACS  DRAW ZOCODE  OVER [T][ IF IN / INK [U] LET [P]O)yIN [S] THEN  GO TO NOT  INVERSE { OR  FOR [U] CAT  FOR  POKE {| VERIFY CODE d RETURN =g<>:r_W' FOR u▘0BIN  COPY  GO SUB S}|Wq,p COPY #y AND @Ox DEF FN  COPY GINT 8 LET  INK  RESTORE  LLIST EXP ," COPY PIw:~ CONTINUE  LLIST  STEP [S]|id IF _/PI< GO SUB B0 RUN  CLS o BEEP ! FOR lH OVER  DRAW  GO SUB K REM uINT  DIM ABS f NEW  COPY  [H] RESTORE _ OR c SAVE  ERASE *a~6_ READ  INK `i STEP CHR$  PRINT | RETURN ><>2 DEF FN } TO VAL ( CIRCLE  SAVE  COPY  INK :<>|STR$ ▟BIN @~SQR 8# RANDOMIZE ? SAVE 09INT ( DRAW ATN >= RETURN 8▞, BORDER # GO TO  NEXT INT CHR$  SAVE  COPY |+N# COPY ~ INPUT INT  ▝|[M]CHR$ w,1d#CODE  CLEAR  INVERSE -NOT  RANDOMIZE |zc~|NOT  VERIFY ATN   SAVE [Q] OPEN # NEW  OUT <>[U] MERGE [U]<4 LLIST [U] RANDOMIZE  3#NINKEY$[L] INPUT  PAUSE  INK  PAUSE  LLIST  LET  CIRCLE  BRIGHT  STOP [R]UE[R] INK [A][R] PAPER  RESTORE  OR  RUN  REM  FOR  MOVE #▞SQR  NEXT B OPEN #M LLIST x RETURN  PRINT  VERIFY  CIRCLE  LET SIN  OUT VAL$ >=2<}[L]/ INVERSE ./[U]TAN CODE ] NEXT <> MERGE =<>/wt FOR  OR [O] IF # RESTORE +-USR [K]r LET  RETURN  COPY !<( LOAD  LLIST   INVERSE <s▙<> STEP  DRAW 6z LIST >CNOT C▗▚<> ERASE  0 COPY / BORDER  CLS  <>==> CLS [R]▘CR[J]LF DRAW [O]-HACEWRD8 CONTINUE TM COPY  STEP VAL$  OPEN #|r▙b LLIST INKEY$@|FUSR  CLEAR &_. RESTORE  STEP  POKE "©# CLS EXP + COPY  COPY  CLEAR -  INPUT  LLIST Y COPY { AND _ BRIGHT © LET  CLEAR %  PAPER >!:/ CLS v RUN >=X> VERIFY SGN  OVER =  NEXT EXP .>IN ZA  LN wIN  &>IN ASN 90CODE  OPEN #P ERASE ? PRINT  STEP 7u LET  NEW TAB ~!"▘brnNOT  BORDER Dp: LET  THEN g SAVE ( READ CODE 2E=BIN =[H][{INKEY$&H@[P] RANDOMIZE NOT :vz AND  COPY W<> RESTORE  MERGE B PLOT  ~2 DRAW  INVERSE w▛# GO TO  MOVE  LLIST <> LLIST  DRAW "[H]x STEP Wa_t![C] COPY x GO SUB [p_ STEP  INVERSE w NEXT .▖ FOR - CAT t* RESTORE }TAN  LINE  RETURN bv NEXT  STEP  w CLS © IF 0u STEP  LPRINT `COS t@ POKE SGN T0PEEK ?wvCHR$ SCREEN$ ! STEP USR  SAVE ayATN BIN [H]LN 9 OVER :xt NEXT 9 PAPER NOT 9 RESTORE  LET Hx©@ GO SUB VAL  STEP  COPY [w>2[I]v COPY ACS CODE O FLASH  RETURN / NEW  RETURN 2▝b( STEP 9<= COPY 2D_<>IN  RETURN  SAVE  CLS  OUT ▘ FORMAT ▝1 CIRCLE ~ LINE  COPY u2qEXP  STEP ySgv4 POKE *[J]a[P][H]COS 8[A] CLEAR  LET ` IF 2 BORDER  CLEAR ONOT  MERGE PI GO SUB ▝B[P]" OUT  RESTORE  STEP t▞ LLIST : COPY wNOT Rv RESTORE P? GO SUB R LLIST  ERASE ) POKE  NEW A REM tt BORDER  RUN  RESTORE `iPI[A] DIM  INVERSE g: PLOT  8 FOR "USR  BRIGHT " LPRINT x POKE 0 PAUSE ! LIST ▙CODE 2 LOAD wt RESTORE  OR FN ▚ POKE   PAUSE <u COPY <> STEP Ha RESTORE ▞6Dp#_IN  BRIGHT  LLIST  RESTORE bOVAL  MOVE  FORMAT  STEP [J] CAT w:<>▜o& RETURN [N#F! AND u[I] INVERSE  LLIST  DRAW  RANDOMIZE >O& PRINT o TO N DRAW nO STEP  SAVE t OR =>= INK  INVERSE #o GO SUB  CLS  COPY  INVERSE  PAUSE  INK ! OPEN #IN z GO SUB BIN s PAPER [P]1[P] INVERSE .,= COPY  MOVE {? COPY [R]LN  OVER i'w PAPER ,{AT  SAVE z[F] GO TO z[T] SAVE  INVERSE -<>CHR$ SCREEN$  LINE B PLOT  <>" LLIST ▖TAN EXP <>  COPY ▚:NOT ▜ COPY File$s CLEAR mpty▚CIN STR$ n BORDER gth}#1 RUN 234 COPY  STEP  OR ){CHR$ 3a[P]k CLEAR  CLS x*6 RETURN _" REM u STEP  PLOT  z/Ha INVERSE  LET .IN 9:?_ RETURN $BIN (e RANDOMIZE ' .:~ PRINT  COPY H(CODE 2x<= RANDOMIZE !(USR KBIN  DRAW a >]?!G STOP  DRAW  STEP [F]_ INVERSE ! OR 3 RESTORE >&2 OR 7CODE @SIN  BRIGHT $VAL  BORDER [U]yACS  PLOT  < INVERSE TAN gCODE  OPEN # RETURN 2 COPY  INVERSE  COPY  RESTORE :E_ATN   CLS  NEXT v NEXT  STEP  OPEN #|TAN  SAVE `!v RESTORE <La*INT g PLOT  NOT INKEY$ STEP INKEY$INKEY$n BORDER  CONTINUE  LINE 9LR MERGE >=g TO SCREEN$ uyG▞ GO SUB [P]VAL  SAVE X STEP  LET Ju! READ @[Q] SAVE VAL VSIN =ASN  MERGE *_<LEN >2S NEW AT [aPbp MERGE USR ABS  STEP ©`9 OUT !<= LET  RANDOMIZE tNOT  LET [P]*W INVERSE &>[P] READ  GO SUB LEN (? POKE <>~ NEW ?>= RETURN  DEF FN  FORMAT  PRINT <>[P] STOP  INVERSE | SAVE =(~ATN [P] RETURN  0SQR [P]INT  CLEAR ,  LOAD > OR <>▛CODE ) BORDER  POKE  BORDER  TO  READ  GO TO  READ  OPEN # READ  FOR  NEW #~ RANDOMIZE + RETURN   OUT EXP  NEXT  PAPER , LIST >=9* GO SUB [LEN Kp STOP _:r COPY LN 0G8N STEP  PRINT y, TO U CLEAR ATTR -6 CLEAR $© NEXT VAL  RETURN "(▘(s CLS [P] PAPER  OPEN # INVERSE o<> GO SUB  COPY s PAUSE y1p{> CLS [P] STEP  MOVE PI GO SUB R0▞S& NEXT  DATA POINT  © THEN 0 REM 1[P]<&{ RETURN  NEXT 8 COPY  NEW  COPY  AND `o4 , CLEAR xLEN CHR$  RUN y<>}~ LLIST ! COPY ©?zg.T] THEN  DRAW  DRAW +CODE PEEK   LLIST  IF  THEN |i RUN IN b DRAW #} NEW ( COPY  CLS  LIST o FOR O CLOSE #` OR  DRAW !g RANDOMIZE  INK OFN  NEXT 6USR {SNOT  RANDOMIZE  LPRINT !,[ COPY  INK .g MERGE <= RETURN  RESTORE .$ THEN > CIRCLE =  BRIGHT 3 INK  DRAW , FOR  OR ~CHR$  CLEAR V LPRINT  FOR ^[A]9?r-s [C]NOT IN  OPEN # RANDOMIZE < MERGE BIN Y▚lSGN r/Wa LLIST ? PRINT  SAVE ~ GO SUB g RETURN ,CHR$  BORDER z$[E] CLS <> REM G LINE  IF  PRINT u,  DRAW ©/_@s AND ,r FOR  MERGE z RETURN  DIM  PLOT  XW© POKE  MOVE { AND  _[P] DRAW  NEW ▘W READ  BEEP  STEP xSQR  BEEP "6IN `G BEEP  RETURN ▝ COPY f7NOT  STEP cZ SAVE X-WININ ORD COPY  NEXT  COPY v<= INVERSE  CLEAR  GO SUB VAL  INK fIN  COPY  COPY  MOVE s#rj CLS g READ NOT [P] CLEAR  RETURN  NEW ▜_ COPY ! COPY ▖> RETURN  BRIGHT 2 CLEAR  RETURN STR$  COPY  STEP * INVERSE ▚! CLOSE # RETURN  DRAW  LIST zy  PRINT <> CIRCLE  IF ▘ RETURN  CLEAR  RETURN A DRAW CODE IN NOT  COPY ▜PI PAPER INT  RETURN ~ LOAD 2 COPY  PRINT n GO TO ▗/ RUN [H]ASN ; MOVE 1 CLOSE # FOR  NEXT  LPRINT TAN ▚I LPRINT  GO SUB  OPEN # INVERSE EXP ▞ PLOT   RETURN  TO B NEXT  GO SUB " GO TO ▜~#[F] COPY C BEEP [P]>6 PAPER ▛ NEXT  COPY ![Q][ STEP EXP ` FORMAT ▛ RANDOMIZE  RANDOMIZE >p STEP  GO TO u PRINT [N]USR  PRINT  LPRINT CODE > PLOT  > RANDOMIZE 2[B]b LPRINT 8▙© STEP Ha:- COPY _ RETURN  TO VAL$ u*O RESTORE  STEP  OR Lt▛ PAUSE  LLIST [N]" PRINT > FORMAT  LINE  INVERSE USR a INVERSE <>CODE  RETURN ~ STEP Wa!tEXP VAL$ j STEP  OR  FORMAT  COPY  PRINT  CLOSE #Au LET !9 LPRINT v STEP [U] CLEAR ~ATN >= INVERSE o1 BEEP #NABS  STEP a RESTORE ?COS  OR 0 COPY [ GO SUB VAL STR$  LLIST  INVERSE } RETURN  DRAW (^#Vg4 CONTINUE ` FOR {CODE >=LN @]g FLASH e STEP  LLIST >▗b!`m POKE  O POKE ~P RUN  STEP  OPEN #t! [P] RUN  SAVE > RESTORE ▘ x AND  LLIST $=? PRINT <> INVERSE !*USR > SAVE PEEK USR # INVERSE -Q RANDOMIZE ;,+<>gi!ivNOT 0▜Q INVERSE  RETURN & NEW © STEP PIu LLIST  FOR >= INVERSE ▘▚|~ RETURN V( PRINT 08▞[M] INVERSE dw OPEN #[= GO SUB [Q] DRAW  RANDOMIZE <>!ATTR v/ LIST *6_ COPY ~u>[Q] CLS  STEP [N]a([G] LIST [B]C LIST CODE  COPY 2sw<>>= GO SUB K NEW [C]C[T]B}2 LIST uw AND BIN > CONTINUE ASM D GO SUB  SAVE PILATbN  OR Fs GO SUB V2NOT .0 CLEAR PACKEDBIN  GO SUB f RETURN = STEP  INK `NOT a▙(M[Q] FORMAT [Q][T] COPY > FOR 2t"hw OR !fCv SAVE <>KSA PI TO TWREg>RND"v!A DEF FN  GO SUB s CLOSE #` COPY  CLEAR © GO SUB Q RANDOMIZE 1 FLASH  LLIST  LET !▜ CLEAR  INK [M] SAVE  MOVE STR$ [I] RESTORE  PAPER  INK ~Y1 RANDOMIZE  OR  MERGE  PRINT [J] RESTORE  FOR  CLEAR  STEP  SAVE !▚9<=▛85 COPY   THEN NOT  OPEN #`pPw▟VZ[_ej k@o[U]s RETURN y FOR HABS /w INK  THEN [Q]4@ PLOT  0 RETURN A.©7 REM Q RETURN ( STOP  CAT  RETURN Pro ▞Ta LLIST ckeYwK PAUSE 2- PAUSE 3 LPRINT Vovtex CONTINUE  GO SUB I COPY SounACS dp LOAD Fl6sh AND  PAUSE ` DATA TAN 6 INPUT Q LOAD  READ ASC h OUT [K]M TO t# LOAD  LPRINT W LOAD Cre BORDER ato INPUT Glba[A]LEN  LINE up IF r INVERSE nic[H]▟ TO USR  BORDER gBK[S]SG- DRAW  LET  HBP LLIST e CLS  LPRINT  LET P1 PRINT *&H CLS   LIST [K]* GO TO  READ  COPY  STEP  OR VAL ` RETURN Wa! CIRCLE USR EXP `'v INK B<=▝ INVERSE  RETURN v STEP Vc~ BORDER  FLASH > STEP SGN © INK +u> RANDOMIZE 2[B]▜b LPRINT _ LIST ATN  TO [P]t©~ RETURN 8 COPY ([U]<>!EXP g?>= STEP ▗bi NEXT COS  NEXT p NEXT  COPY PEEK  RUN ▖<> STEP  OUT u= RUN  SAVE FN  LOAD  RUN USR gACS  MOVE © CLOSE # MOVE ![ INVERSE & LET  STEP u} OPEN #t> FORMAT  LINE [O]USR |[O] STEP ruNOT  LIST /BIN  NEW ASN LN t LLIST [J] LLIST >= POKE  PAPER PEEK t? MERGE <>Chip: RETURN TurboS0/nd }(c GO SUB  COPY 1)!_# COPY u GO SUB LN PEEK p+EXP  RANDOMIZE  LET  IF  FOR  CONTINUE <>SIN  MERGE PEEK  MOVE L COPY !%[U]▟(# SAVE ▜ LLIST  NEXT >= INVERSE iNOT he> COPY File:}FN [S] PAPER  TO Bk CAT QN5} CIRCLE F LIST o|`  MERGE  INK  CAT (~ READ #BIN 0 DIM  THEN  PLOT   INK  CLEAR C RETURN AT  COPY  LOAD  NEW  CONTINUE STR$ xPEEK  COPY  LIST !▗ INK  RESTORE > RANDOMIZE * POKE  CLOSE #u LLIST , COPY  CAT >E LIST C LIST TAB  CONTINUE  COPY  INK >d PAPER  COPY Eq, DRAW ![I]w PLOT   INPUT ; PLOT   LIST ▗USR CHR$ ? CLS (O!>= INK  CONTINUE r NEW iAT s IF <> OPEN # OR w IF STR$ ? PLOT  <>> MERGE  DRAW  GO SUB VAL  MOVE ?  PAUSE <> STEP La!H COPY <=9vD OR . CONTINUE  RANDOMIZE  POKE  NEXT 8 LET STR$  POKE <>[I] CLS  COPY j[D]Z DRAW  GO SUB  RANDOMIZE Kpac{z LIST  LOAD ? LPRINT  CLEAR INT d LLIST  IF h CLEAR `j COPY  AND IN ▝>ATN  COPY USR <2x NEXT > FORMAT  RETURN Q INVERSE !/IN x STEP  POKE ▗bSCREEN$  NEXT [L] NEXT  CLOSE #[K] NEXT >C LLIST ! LET  MOVE "ATTR N~ FOR I!▛USR COS  RANDOMIZE  RUN  NEXT ISQR  COPY @!ATTR Opq THEN K$[D] SAVE % PLOT   FOR PIH SAVE  GO SUB sSGN [O]xNOT J(> RANDOMIZE  MERGE [B] COPY $ OVER  RANDOMIZE  READ %SIN [I] LIST  DRAW !ASN Y[R] SGN  LIST '= [O] PLOT  [Q]ZATTR /> COPY Fw, IF  GO SUB > PLOT  1J<> DRAW Break: RANDOMIZE  RUN Stop IF O NEXT ding▛Et NEXT er:  FOR k[U]i FOR a PAUSE  CLEAR sec LPRINT © INPUT  POKE /O<. CLS  TO &Js$G RETURN }, VERIFY  COPY  TO  RETURN (EXP   FOR  COPY yPI! TO YATN  STOP (a>DD CAT Bw[M]{EXP 8 COPY  LET  RETURN  FORMAT >CPEEK  = LOAD Aw<>PEEK  OUT ! NEXT VAL ▗2N CAT PI COPY | VERIFY VAL OATN  [P]~ CONTINUE | RETURN  CLS 8 INPUT <>7 OUT  INK CHR$  PAPER z> DRAW 2xd STEP [aYy IF ▛ OPEN #NOT ▗7[J]<=>SCREEN$ ASN  OR , POKE  IF  LLIST NOT  LET [P]LEN  NEXT # THEN T COPY ( SAVE : BORDER VAL  INPUT >= CONTINUE TAN <> INVERSE  INVERSE xw SAVE  CLEAR .7 INVERSE INKEY$[Q]y[U]; INVERSE ~[S] DRAW  IF STR$  RANDOMIZE [T]  RESTORE  LLIST [P] GO SUB VAL  CLEAR ,> INVERSE ▟oCHR$   PAPER $©LN 8<= CLEAR }2 COPY ]_<>!H{ THEN  DEF FN  BRIGHT  READ  RANDOMIZE  AND  DATA O{!A{ POKE <>g TO  LPRINT !a_© q# DRAW CODE [I]!4w PLOT   COPY go>725h COPY X STEP EXP `:]< COPY G> CLEAR 2 COPY q STEP Xf RETURN  LINE [[H]y/8OTAN SCREEN$  COPY   STEP SGN ` OPEN #S STEP  GO SUB [P]dd RETURN  LINE / STOP N INK NOT  CLEAR  STEP l>CHR$ ▝]![J] LLIST 5Z[G]PI▙. POKE >=ASN eCODE  BORDER [P]▗ PAUSE >[D]GVAL gzSQR G INK SQR T1PEEK -c8▜CODE x COPY LN  AND &PIo6 TO  STEP  FOR  THEN PSGN USR ay RETURN  MOVE E CONTINUE  DEF FN  REM  COPY <2} RUN  RETURN 03 STOP  GO SUB [ PRINT  COPY TAB > OPEN # RETURN :ATTR Y[O]ATN RNDBIN  INPUT x.[B] NEXT  COPY ▙y: BEEP H{CHR$ _CHR$ ]_INKEY$ LINE _[K]{/7|! COPY " LPRINT ;_ CLEAR  DRAW :/ STEP  NEXT o/LH COPY  STEP @c>F2SQR CODE X COPY  BEEP  INK *^_ STEP o{▖▜ PLOT   LINE &A POKE gI CLEAR  DEF FN i SAVE > COPY 2K_uATN  COPY  CLOSE #CODE  STEP Ol RANDOMIZE NOT q0  COPY J DRAW  COPY SCREEN$ CODE  COPY ▚8# IF ATN USR  LINE !gBIN  CLEAR [J]?<>USR  INPUT n▟oa CAT me INK  SAVE  CONTINUE  STEP ▗{Zdn IF >/PI< GO SUB B NEXT 0 CLS  RETURN ATN  DRAW >= INK Pn<>gR>= INVERSE e SAVE [N]>=©▛!> PRINT  PLOT   RESTORE  MERGE x RETURN  STEP  MOVE { OUT  LLIST ( GO SUB [Q]r RETURN  MOVE  LOAD g PRINT  COPY  INVERSE - COPY   STOP <>~ RETURN B>=<EXP ^#Vo~+ RETURN $ NEXT (HATN  %~ DIM EXP >=+ DRAW  THEN  RANDOMIZE CODE  RETURN X  CONTINUE H SAVE A MERGE S(%+ CAT  COPY  DATA 8 RETURN  STOP 0p`>=LEN 8a8{0~[S]▛WCOS [P]_2 READ zATTR [R] BORDER POINT USR CODE 9{ RETURN  LIST C ACS z LLIST h NEXT LEN  LOAD j▘+USR  CLOSE #}v}▝#8ACS A8[P]Z0 AND   TO ▜_VAL$ } CAT ?| CLEAR #5i~ DIM K IF } DRAW  BRIGHT !CHR$ ▝▘]4© LOAD  INVERSE i CLS ! PRINT CHR$ 29 INVERSE ABS >=}TAN xP4 RESTORE  DRAW  STEP @CHR$ FN |, SAVE  7[R]@{*[B]|[D]" RANDOMIZE B DATA LN  COPY .ATN BIN  DATA | LLIST  INVERSE , SAVE INT >  LET PEEK + FLASH [D] FOR y NEW 8 PLOT   MOVE , POKE # MERGE  COPY > STEP %} INVERSE :?[S]▜8Jo RETURN  RETURN ▗>$(4&▝~PIfoTAN (: INVERSE g#[U] RESTORE ▜N( THEN _[P] NEW  G STEP NOT S}>= TO  CLS POINT  SAVE >[D] CLEAR g PRINT '#[N]] LPRINT  PRINT <>EXP 0 INVERSE  COPY %  LINE :x? RANDOMIZE [P] AND ! BORDER  AND  RETURN 0PEEK USR # NEW  CLS <> RUN CODE ~ NEXT '[0RND LLIST  BORDER  GO TO x PRINT ▖ IF  OR I$>@[M]y DRAW B PLOT  { COPY l PLOT   CLS F+ MOVE  PLOT  0 NEW  PRINT 3 POKE  PRINT Hs PRINT  PLOT   DIM 53c PRINT  BRIGHT I8 COPY   POKE ~ PLOT  atr MOVE  REM STR$  BRIGHT as LPRINT A INPUT  AND by PRINT +, PLOT   OPEN #cm PLOT  ./ STEP  LIST  GO TO p LOAD TAN  LIST cTAN hw[D]FC[T] SAVE  PAPER [T] PLOT  ACS G PLOT  6[G] PLOT   AND [T] PLOT  [K]j PLOT  EXP I PLOT  USR O[A] LIST d-[T] STEP  PLOT  iz{ OUT & RUN  LET flsSQR p AND fa TO  PLOT  lLN  CONTINUE  LET gG PLOT   LLIST  LIST gRCHR$ 'H SAVE z FOR '{AT imgF REM  AND i INK o THEN  LIST m CLOSE #ORND FORMAT  PLOT  8# SAVE 7 ERASE  PLOT  4[B] PLOT  = BRIGHT  PLOT  [U]2 PLOT  Iw) PLOT  1 PLOT  L PLOT   DIM mcx PLOT  `[H] PLOT    COPY SCREEN$ AASN Mv[K]STR$ m PLOT  ▝ LIST  GO SUB nfoF LET pt3h REM ASN  LIST  PLOT  K GO TO 2A GO TO  PLOT  GQINT CHR$ qpl; PLOT   RETURN 9qPLC MOVE  PLOT  I[N]P IF D[M]SIN  PLOT  E PLOT   PLOT  STR$ p MERGE [K] STEP  PLOT  BIN rPI OVER  PLOT  © CLEAR  LET sqt DIM CODE  PLOT  TAN tRRND PLOT  p PLOT   PLOT   PLOT  n PLOT  l LIST  DIM  IF BIN STR$ sS?Itx MOVE IUSR @Uk INPUT ABS USR W MERGE  PRINT &=[S]xasCODE  POKE TAB HY SAVE PILN  DRAW @Yj LPRINT USR   STEP  COPY [a>FN 2[P]b: COPY ]_ATN >= GO SUB s CLOSE #` AND ! READ FN  DIM  RANDOMIZE  MERGE  COPY $c IF ! SAVE  INVERSE ? ERASE  STEP ▖b COPY "=x&FN ipRND, RETURN $▗/ RANDOMIZE ! PLOT   SAVE  FORMAT N_#[P]y VERIFY  ( ERASE  PLOT  +;P POKE _I/_ NEW  PAUSE  INVERSE g{ COPY [P]_ INVERSE .O[J]"{x&[P]PIc BEEP $. INK  GO SUB [Q] AND  RETURN  LPRINT  FOR ?SCOS x=CHR$ ▜NOT  CIRCLE  OPEN #` STEP  LIST "c8 LIST ka'H CLEAR 7x OR ! COPY  RESTORE *_CODE NOT c COPY  STEP [a*;_& PLOT   COPY n%>"wEg COPY ▝O THEN  CLEAR w:1 LET _ATN  LINE 8<>*6 OVER x STEP  RETURN aUSR ~ NEW © VERIFY 12W_ CAT :E RESTORE CHR$  PLOT  y>= STEP SIN INT b COPY " COPY ~ GO SUB [ RETURN z2r_>c POKE G©^!T] CLS  COPY  STEP  STOP x NEXT  GO SUB VNOT VAL  COPY ` RESTORE  MERGE  PRINT ><2 COPY }x NEW ▜ AND ACS o COPY  DEF FN y[F]g▟H~ GO TO #a DRAW  LET  POKE  MOVE  LLIST  CLS <>g SAVE STR$ !H COPY  STEP @c![O]▖>=▙I INVERSE  STEP CHR$ ▗b RETURN ▟Y6E,STR$  NEXT  CLS NOT -h LET r2 COPY #>= AND [I] MERGE N0F8 FOR >= SAVE  GO SUB R TO 8t OR LN STR$  FOR  COPY 0 MOVE # GO SUB VAL <> COPY  RESTORE  INK  LLIST  MOVE +~ RETURN  PRINT 3 IF  INK  COPY  STEP [U]y8 PRINT >[R]@ RUN  FORMAT  COPY  IF SQR 8GSCREEN$  ▜ LIST  RETURN  SAVE (C DEF FN  COPY ^ INK O&[O]8M( BORDER  BEEP >© CAT C RETURN G[P]s ERASE = LET   SAVE  RETURN  LLIST )ATN g3 CLS o[E] CLS VAL$  AND GGRND SAVE PI[R] CIRCLE z00 LIST INT  COPY TAN ATN ( INK GO CIRCLE AT >?h[D] RETURN ASN  LINE  THEN !USR CI BORDER <> INK c; LET ' THEN c<>8 RETURN D▜▘@(B SAVE ▗FEXP  SAVE 0[A] SAVE O RUN dXSTR$ (▝CHR$ D▝8 LINE BIN B OUT ` SAVE P BRIGHT  SAVE STR$ 4L) RUN  SAVE  STEP  BEEP INKEY$n PRINT EXP !▟ CLS SGN IN SGN - FOR z▟ CLS SGN O LOAD SGN  DRAW IN v COPY  INPUT &z STEP #n PLOT   COPY CODE 2E_NOT xP COPY acked fi▗lUSR  ! DRAW x"ij STEP Lc CIRCLE Oka*6 LET _"ATN }b OPEN # COPY  NEXT  STEP HaPIxACS }CHR$  LINE  FORMAT USR [M]; PRINT cz) CAT  CLEAR  RETURN VAL xNOT Hr"< GO SUB S[!s OR  STEP  OR Oa[B] LOAD  FOR ' BRIGHT a# STEP tACS x0USR !▝[M] RESTORE [A][ RESTORE ©CODE `STR$  MOVE <> COPY  THEN xCHR$ [F]_NOT ©` COPY [D] RESTORE ▘ OPEN #{ BEEP CODE  THEN  COPY USR O INVERSE # LLIST z1 RETURN ;8 INVERSE y~<= SAVE Z{D AND [5▞OXdo {@[I]< REM ! CLEAR NOT i STEP  DRAW NOT  COPY ▝[O]LPI' VERIFY e NEW  STEP TAN  CAT [L][B]x^#▟Vz DIM ATN >= RESTORE S LLIST  RETURN   PAUSE 2-_*©? RETURN ▘ LINE `y GO SUB  COPY [n_z RETURN 8r LLIST  STEP )y LIST m>~}!Ry[E] NEXT INT  CONTINUE *_U[O]INT  CLEAR !:/ PLOT   INVERSE  COPY y:E_ATN CHR$  NEW }r STOP  CLOSE # STOP *p IF  INK |NOT PI LPRINT  MERGE  CLEAR .INT  NEXT  COPY | MOVE  LLIST :r_GCODE  COPY O[C] CIRCLE  GO SUB R>=0 AND [P] FOR  RETURN  GO SUB LN <>INKEY$! STEP VAL /[O]:?z RETURN ▝ LINE Hr RETURN <> OR [I]©:Q AND  COPY 2 INK {!IN z COPY |yNOT 4x DIM [D]{ INVERSE U GO SUB  COPY K>cx RETURN 8NOT I[C]>=[N] IF  INVERSE "O_|[J]< RETURN  LINE ,*p IF u LIST  COPY  FOR  MERGE [P] MERGE ca " POKE W LOAD  OVER [T] GO SUB BIN c SAVE  RESTORE  INVERSE  LLIST )NOT ([P] OR 3_CODE 2▞V>%[P] OR [R] FORMAT  PLOT  {yIN  READ USR  SAVE @ INVERSE s[A] BORDER  RANDOMIZE CODE {PILEN  RETURN PSC DRAW  V1. COPY  TO ▟ MERGE 6CHR$  TO  NEXT PEEK   CLS  RANDOMIZE FN  DEF FN GIN  READ  SAVE ~ RETURN !USR XnINT fI[A]NOT  REM  LINE [R] BORDER W FLASH "z) LPRINT NOT [M]M[M][M][H]VAL INT  THEN NOT  CONTINUE g READ  INPUT > STEP [N]aUSR +"? LIST !▘z▗ RETURN  STEP 4x<>▜ DIM ▚n NEW ABS CODE NOT | RETURN Module: BEEP BIN q?Yng PRINT 21y GO TO ▗!SQR  STEP <>STR$ <><>ABS yO INVERSE { BEEP yUSR zCHR$ Z POKE [D] CAT  DIM  NEXT ![I] FLASH  INVERSE  INVERSE CODE  COPY [R] RUN  LET  OUT CODE z4 INVERSE 'INT MV{ IF >VAL t{ =+ COPY  DEF FN ~ RETURN 4#ABS USR  INVERSE  OR N TO F$ RETURN $y RETURN (; COPY  COPY PI GO SUB B `i STEP a FOR R*QTAN COS  OUT FN 3S LOAD ATN ( RANDOMIZE L NEXT NF STEP [S]t POKE ABS (▜ PAPER USR  RUN BK.?PIx RETURN : FORMAT ATN >=© BEEP IN >= OR LN STR$ USR USR !LN LEN  GO SUB LN ! STOP  OR  NEXT  INPUT © COPY `CODE 2 BORDER { GO SUB s DATA *[B] GO TO s|PI( DIM DM OVER > SAVE  STEP  LINE {[P]=  SAVE  GO SUB [ ERASE  OR  PRINT  RESTORE [P] DATA  LLIST   PLOT  >^*M7+ FOR >I| RETURN  OR 8' LIST 0 LET  FOR s#rSGN  MOVE <>1xCODE s![O]-INT P[L]<>>  OR  INVERSE  RESTORE  LOAD x LLIST STR$  ~#xLEN  LOAD .▚SIN PEEK INT  LPRINT  RETURN  GO SUB  DATA 0|z DATA SGN "/s| NEXT ©Y THEN  CLEAR  INK 0g LPRINT e CLEAR Wa FOR !_|ATTR [J]FN  LINE  MOVE  STEP kTAN >=[L] TO *LN  DATA EXP  FORMAT  THEN  FLASH INT  LET  CAT w TO  PRINT  RETURN  STOP 8p("q} SAVE  RETURN "v STEP a CLS *tg LET  PRINT USR USR "Q STOP  GO SUB STsSTR$ :Vp  CLS x RESTORE *3[E]SCREEN$ STR$  GO SUB 8P READ  NEXT  RUN V<>)▞▞@ POKE N MERGE Lj LLIST  BORDER oNOT [F][L]:W? OR >( CLEAR CODE } LOAD BIN  LET <>u LET %( COPY d RETURN A>" DRAW 8< STEP [ COPY NOT ;_& PLOT  ]n% COPY wEg▝O RANDOMIZE k THEN  CLEAR wNOT [e=C THEN  DRAW ([P] MERGE ' FORMAT AiB>=Y" CAT @ RUN  FORMAT =▜USR 2s[USR  LLIST EXP <> RESTORE  SAVE ^C(0poF`STR$ STR$ D@ COPY USR  MERGE ![O]} COPY  GO SUB VAL  LLIST T~#N THEN 9 NEXT y CLEAR  LIST  PAUSE <> SAVE  CIRCLE (7▖ LIST  AND ` READ  LPRINT X LET !USR © RETURN  CLEAR 0 RETURN PEEK USR # PRINT <>=IN   RUN +O SAVE  CONTINUE  COPY PT3! RETURN [T] IF 02S COPY _ NEXT  RUN  INVERSE  RESTORE *©zK MERGE EXP Z PRINT  CLEAR >= LINE Er©[O] LET  CLS  CIRCLE <>! STEP @c STEP [a!_▟_ MERGE  GO SUB LN  +  RANDOMIZE  GO SUB LN  LLIST PEEK  p+ RANDOMIZE PI GO SUB R}< INVERSE oG MERGE ! FORMAT o~▝O PRINT  LLIST >`[B]O NEW x_y NEW  INVERSE g STEP ▗b![O] NEXT  STEP lx LLIST NOT Bj> RESTORE  GO SUB VAL  LLIST $=  PRINT <> STEP INKEY$n!INKEY$@ STEP @c STEP [a:~ RETURN 8(R!EXP g INVERSE ! STEP ▗b BORDER J!COS g INVERSE ! STEP ▗b:-_!USR g'R INVERSE ! STEP ▗b+R![ INVERSE ! STEP ▗b STEP Wa! RUN  FOR J STEP SQR t! SAVE R STEP SQR t. BORDER  STEP SCREEN$ t STEP SCREEN$ t. STEP SCREEN$ t!+Z!gIPII INVERSE `> COPY w, IF  STEP  MERGE t INVERSE  LLIST  CLS v STEP #n RANDOMIZE &Y> [A] OR s, DRAW OSTR$   PRINT <>> MERGE  MOVE =  LET <> NEXT CODE 2E_NOT 0| GO SUB _o` INK  STEP Bu(u_! NEW X STEP Bu( CLS PEEK ( SAVE ,w RESTORE  www&O STEP Bu AND 
  1 RANDOMIZE USR 0
  2 CLS : RANDOMIZE USR 0: REM : RUN "        " 
  8271OGq|% NEW  } AND  LPRINT o[P] NEW ▗g INPUT  LLIST  INVERSE %  AND <>`00 INK  GO SUB _VAL$ # INK  NEW <>! RETURN  INVERSE  INPUT N<=' GO SUB VAL  NEXT  COPY CODE 2 COPY L*s_"▛8>[I] PRINT wVAL L1:-© RETURN 8▞ COPY 0:2_ SAVE ATN { z>. DATA >{ MERGE  STEP  OR CODE  LOAD CHR$  INPUT [I][I] CLEAR ▜Y:V DATA  CAT  TO U PLOT   PAPER  GO TO :CHR$ CHR$ ▘ REM ▛[J]CODE ' MERGE  NEXT R DATA  STOP  SAVE >2cap DRAW b CLS v CONTINUE [E] OPEN # RETURN [T]'8{[E] STEP W▛a[C] RESTORE [M]9 THEN  BEEP  CONTINUE CODE  NEW L[Q] STOP  OR /x DATA CODE © DIM  FLASH  FOR  LPRINT  RETURN a TO  COPY s READ !; LIST  STEP USR a BORDER yATN  ASN  DATA ▟BIN  STOP  RETURN VAL : LINE  LOAD  CIRCLE  DRAW  LLIST O COPY  NEW >= THEN Q ! COPY  CLEAR  LLIST 5USR  THEN  MOVE y2? GO SUB CODE  INVERSE ! RETURN _▖<> RUN  RANDOMIZE  THEN ABIN  LLIST  PAUSE  OR  STOP [P]FN  PAUSE  SAVE  INVERSE  THEN  DRAW PIN LIST USR !8 FLASH ~ INPUT > THEN [H]w#'_6 IF ▛>=2[R]<>ACS  PRINT  RETURN  t INVERSE ~ AND [Q]PEEK  FORMAT  NEW O COPY  NEW &_y'G> COPY ( CLEAR O[R] RETURN }(7 THEN -NOT ` CLEAR VAL$ o{ AND   DRAW _$ASN < POKE W4<> PLOT  ATN >= AND .[C] READ  THEN  INPUT l,65 CLEAR /[D]ACS [D][B]5[D][S]2' COPY & RUN  STEP  COPY ' STOP  INVERSE g2 COPY  LLIST $@ RUN b DRAW [K][H]t|n SAVE  DRAW INT <> CODE i FLASH ACS IN  RETURN   INPUT <> NEXT 0 DRAW SCREEN$ ▘<>![M] OVER w,h$[C]- DRAW W RUN 2C MERGE // GO SUB  SAVE K<= LOAD * AND VAL g?[Q_ STEP USR  INPUT ▛ RETURN 8 COPY !f STOP 6>USR  RETURN  AND O RETURN  8" RUN & MERGE  RANDOMIZE (7AT [P]ACS ABS } RETURN D8 CLEAR 6 COPY  PLOT  yATTR  INVERSE _ IF  OPEN # GO SUB SM STOP a INK 2 TO ©:G DIM  PLOT   RETURN ) MOVE  COPY  THEN  RETURN 0TAN $ASN O LET  DRAW <> RETURN  LINE p FOR ? PAPER 5 RESTORE  DRAW ! GO TO  STOP  STEP  INK `^a DIM G LOAD [I] READ  RETURN ▞} LEN  COPY S RESTORE 2 DATA ^ READ L# CLS >=?© INPUT 2 READ  SAVE !LEN J(©9K"USR H BORDER * COPY  RESTORE C NEW [C]" CLEAR ▘© PRINT  AND 1O>2 COPY [C] GO SUB  MOVE <> INVERSE g STEP ▗ RETURN  LIST 8 VERIFY  DEF FN  PAUSE B READ <> RETURN  PRINT :0_21.> COPY ABS  STEP  COPY IN  FOR  LET NOT _ THEN Q[P]USR D  RESTORE <> DATA : THEN  LOAD [H]?_ CIRCLE INKEY$ INVERSE [T] STEP SGN  LET ▝ PRINT 2[P] TO  PRINT IN TAN #STR$ "[J]O STOP 2PI COPY  GO SUB R CIRCLE =  IF :/[P]_5CHR$ AT  GO TO ![P].SGN  AND NOT ▛ FOR  STOP  INVERSE ^ SAVE N~ATN ( DRAW  NEW  @x THEN  INVERSE #© REM CODE <>y VERIFY ?m NEXT =( LIST  LLIST  MOVE  GO SUB bASN FN [B] DRAW BIN  NEW USR 2C*! RUN [G]#6 CLEAR  STEP [L] RESTORE >Et[K] NEW *▘^%/ TO ! DATA ]POINT  BEEP < PRINT g▛ LET  SAVE <> DRAW *D_-(YUSR  OR  DRAW =<> RETURN  DEF FN 7 RUN I FORMAT >2[K] COPY  RESTORE :y CIRCLE ATN !@ COPY ~ VERIFY  LLIST 8 CLS VAL$ w AND m COPY o& DATA yN IF  COPY STR$   COPY  RANDOMIZE , THEN S( INPUT <> LET ABC @O CLS ! LINE  LOAD  SAVE  THEN  STEP  RESTORE x ERASE  LET  RETURN :IN  INPUT ATN  TO ACS  GO SUB [J]X FORMAT  CLEAR [J] MOVE  CLEAR  ERASE  CLEAR [J] OPEN # CLEAR  CLOSE # CLEAR [J] MERGE  CLEAR  VERIFY  CLEAR  READ  BEEP !A[P] IF  PAPER  CONTINUE ! FORMAT 8z8 GO SUB K RETURN  IF I  MERGE  COPY  LIST  STEP  OVER  DATA  MOVE  THEN  COPY A 4<>[Q]CODE  LIST  COPY ATN   LET > LINE 2LN  BORDER  STOP  NEW  COPY _NOT )iA3 ERASE [A] ERASE  READ 1 ERASE &IN $~SIN w DRAW  IF & PAPER s-o<>{ CIRCLE  CONTINUE CODE  RETURN  FORMAT   COPY wO[O]!5 PAUSE ''4 RETURN [P]>= CLOSE # THEN [P] NEW  PLOT  H CLEAR  PRINT <> RETURN rK!a OUT (@ [H] DRAW  COPY  PAUSE <>!<▞~/w[P][N]© NEXT [C]![D]PEEK 6K/ COPY _ ( COPY  INPUT w2x RESTORE  SAVE > NEW [P] STEP ▗ RESTORE * COPY N GO TO  DIM (5 LIST =?>=4PEEK ~USR CODE ' RANDOMIZE L=>=[A]2>=?p OPEN # LINE JCODE ▙W RETURN IN 7 PLOT  Q: DATA  RETURN  COPY 0 AND 2O INVERSE & INVERSE  LPRINT © AND  STEP  PLOT  N FOR  RESTORE MTAB  GO SUB  LLIST L/ FOR A DATA  OPEN #© COPY  RETURN O LPRINT  LIST _ RETURN  STEP  SAVE  RESTORE ,y AND  LIST &?[U]NOT +iUSR  LIST  FORMAT [D] BORDER  CONTINUE ABS  CLOSE #q NEW  CLEAR {p INVERSE . RUN  STEP 1 NEW  PLOT   INPUT  CLEAR SGN l INPUT  IF  REM ( INVERSE , COPY  BORDER  CLEAR ~LN ^_V STEP [S] NEW r GO TO  POKE  GO TO  STEP  GO TO  GO TO SCREEN$  GO TO  POKE  GO TO  STEP  GO TO  GO TO  GO TO  RETURN E BORDER <> CLEAR  COPY >7 GO SUB y! PLOT   DEF FN  LIST  STEP ▞[S] LOAD PI RETURN  LOAD  OVER  LIST  INPUT   SAVE L SAVE <> AND STR$ USR I?dz NEW WVAL$ CODE  AND INKEY$ THEN  BEEP ( REM D& CAT  DATA  { VERIFY z OVER  RESTORE 0X LOAD <[J] RETURN  CIRCLE />= RANDOMIZE : AND G▟[P] INPUT  RETURN 8 COPY CODE  THEN # COPY  CLS W STEP CODE  BORDER G NEW  RETURN  AND 0o& LET Nx RETURN ©ASN ! DATA <=o= RANDOMIZE  TO  BORDER  STEP  GO TO g COPY  RESTORE & THEN } AND  oy OR ACS w= IF , THEN  RETURN  LLIST <>WATTR  VERIFY O* LET NOT :5O PRINT CODE 23 SAVE  LET [L](▞ DIM 8<>xCODE POINT  ERASE [J]<>g[E]n/SCREEN$  DRAW [U]>=O. CLEAR  LLIST ATN _ INVERSE T INPUT  THEN 0gCABS  OPEN #o LIST  PAUSE E THEN '>= INK /[M]O▗[B] IF ▜ RANDOMIZE !VAL  LIST { LET ~,NPI^f CAT  INVERSE  COPY }ATN  ~LEN w,COS &-%SGN [F] INVERSE  POKE >=|PEEK <>z COPY x THEN NOT SIN  DRAW  BORDER  BRIGHT = COPY  CONTINUE  VERIFY  DRAW  RETURN USR  CIRCLE  RETURN CODE <>=(]q%23 BEEP  OUT  IF b}[D]o CLEAR  READ  INVERSE D <=<[O]CHR$  CONTINUE ~>y( FORMAT i FORMAT -[R]%D DRAW  CIRCLE cg PLOT  INT USR  OPEN # THEN  AND  DRAW  REM % LINE  CLEAR - RUN 0 READ [M] PAUSE  POKE NOT NOT  INPUT [D]Bq3; CLS / DATA  BORDER r[K] OUT  OUT !8[E] BORDER  CAT 6 RANDOMIZE ^ BEEP  OUT FN F PAUSE ▜RND RUN  BORDER  INPUT IN  BEEP  BEEP  GO SUB s| DIM . COPY [M]}&USR  RANDOMIZE  MERGE dINT  COPY $ LIST  COPY 0 BORDER ! CIRCLE <>= NEW 1SIN  THEN [P] INPUT Z![M] INK  CIRCLE }g PAPER =NOT  INPUT 1< INK [E] GO TO  COPY >SCREEN$ /2G DIM _W6STR$ <>S DIM 1/f LET e LET `<>!n CLS  PAPER w,COS NOT  STEP ▛ RESTORE 8 LET / CIRCLE `"INKEY$ BORDER  DIM <>▘![L]4 THEN  OPEN #[G]^ GO TO ~NOT ATN ( DEF FN 2 REM { OUT 6 LOAD }7ABS  RUN PEEK  OVER  CLS  DRAW  INVERSE !LEN  DIM  THEN  LLIST > DEF FN D RETURN  SAVE % © POKE  GO SUB R8 LET $ FOR ![~▚w VERIFY <8©[Q] STEP t REM  FOR  THEN  LET 0 INK  INVERSE #PEEK } RETURN ABS  t>=SIN  DIM  LINE  CLS >=0ASN [T]( COPY 8 RESTORE  STEP k REM  LLIST  LPRINT 7 PAUSE  SAVE # FOR CHR$  LLIST © OR  REM !z CLOSE # THEN  VERIFY  CAT & BEEP  DRAW  CLEAR !: RUN /NOT ▘ REM r LIST 8b REM [K] RANDOMIZE ~ INVERSE ASN wQ RANDOMIZE SGN PEEK  CONTINUE BIN  COPY B"9 REM 0>[A] RETURN  DEF FN <O8gASN `ASN  OPEN #SQR  DATA !/ DIM  FOR >1)USR  OPEN # INVERSE ,p><r PRINT + INK  RANDOMIZE s RANDOMIZE !b1Yud~ATTR E STEP COS K[L]<>^ RUN CODE [M] RUN  GO SUB sASN  IF SQR i MOVE  CLEAR 1 RANDOMIZE  COPY [}<=3Z:Y>= COPY ATN > :Z COPY  FOR  RETURN z0{2[O] INVERSE  CLOSE #k FOR  INK $] LPRINT  DRAW ~# PRINT  AND W CLEAR  LINE zINKEY$8>=`_z_ INVERSE g OPEN # CLEAR  STEP ▞ GO SUB # OUT ;STR$ ATN   OVER  AND 8!eh INPUT !([K]f PLOT   PLOT   PLOT  !ASN dS<>b AND 02=PIo[B]} RETURN  COPY 0  THEN 8."^SGN  FOR  GO SUB `<>./, COPY  VERIFY 0 CLS  AND :g<>u READ RND  THEN 0 COPY ! RUN 5BIN  DRAW ▜ POKE W CLEAR NOT  CONTINUE SCREEN$ gAT  OVER  FOR 46g RANDOMIZE [R]* TO F GO TO )NYINT  GO TO + CAT "P LLIST  AND  LOAD O<= CLEAR D GO TO CODE  RETURN 2g STOP <> STEP U INPUT } SAVE  INK  GO TO  LPRINT INKEY$ COPY W! THEN  LOAD ~ INPUT  COPY w BORDER  AND  LINE @ CLEAR ?> CLEAR oPOINT IN Y CLEAR < RETURN 8 LIST [F][N]*H<=RNDg[K]BIN ; PLOT  * REM  NEXT [A]SQR  GO TO  SAVE &*L0 DIM g>=SIN  AND USR  RETURN w FORMAT +4( DRAW <> DRAW F[K]BIN ( DATA  STEP 4 OPEN # STEP  FORMAT *}#yuFxNOT <=C PAPER ~ SAVE SQR >=sD: IF JmTAB `▞ RETURN [G].ABS 07 STOP ~ FORMAT  RUN  NEW ?w LLIST R LOAD ATTR  >*T#| LPRINT ASN >=+ COPY ]CODE ) DEF FN ▙ DRAW [P]2U/ GO SUB S/ TO USR O:hLEN [M]USR y RETURN USR wVAL$ ACS WACS  DEF FN  BRIGHT IN COS =,NOT ` READ [A][D] THEN ▚L REM =>= THEN [G]<> PLOT  ▛ ERASE #STR$ _ FLASH TAB 10_^NW6 BEEP " COPY z[S]LUSR dL! BORDER Xq LIST $Y IF  MERGE ~ INPUT  LLIST T~#N7 THEN 9 STOP yTAB  COPY RIN  FLASH ! BRIGHT KTAB NOT oGx RETURN ABS 8 NEXT q, SAVE © DRAW   DRAW T!j FLASH  COPY CODE -PEEK +( CLS ~G,[G] COPY ^PI THEN (G FOR [O],LEN 4 IF ~ RETURN  DRAW  CIRCLE  NEW  SAVE  READ  CIRCLE (|▖ LIST `n LPRINT X0[P]][M] READ  BORDER <q[L]PEEK s FOR k7 PAUSE 'N RANDOMIZE  RETURN  RESTORE  MERGE  PRINT  INVERSE ./|2[O] CLEAR  GO SUB &oABS [N].j2}ATN 3 INVERSE -  CLS  NEW  LET  MOVE  LLIST <>COS / READ _ DRAW ,w- VERIFY  DRAW $;j![J] FORMAT G NEXT <> NEW ©W[S]V COPY ^#~*6_ DRAW  RESTORE "F GO TO  LLIST  IF HPIABS [M]CODE 2<> LOAD  BEEP VAL$  OR x PAPER [I] FOR  COPY / THEN ©  LINE  PRINT  RETURN c NEW [Q]POINT J© IF  LET ! DATA  LOAD =▜ RETURN o[F]g~#fVCASN  GO SUB [H]S OR ) IF H IF VK SAVE LT SAVE N COPY [K]USR ! COPY N> STEP 2[F]@"▛[G]<>_[E] COPY 9K: READ ATN ( BEEP  FOR >= PAPER > NEW *O_2 CLS @ STEP 5NRNDATN > STOP  TINT ASN <>7*INKEY$ REM ABS  DIM ABS PI IF q# LET z^Uv[P]INKEY$ FORMAT GCODE  IF go$ POKE  RUN  MOVE  CLS l DEF FN g" VERIFY ! COPY 8PTUIN  INPUT <> RETURN  COPY x THEN 4O8 GO SUB  IF R0?y LET  LOAD <>ATN  NEXT  COPY  PRINT !N"=@ NEW * OR n INVERSE q PLOT   STEP )Npb GO TO [R]1?COS  REM  LINE  GO TO  LLIST [Q]<> NEXT IN CODE `> SAVE  CLEAR © GO SUB y<> PLOT   TO  INPUT @ OUT ▞CNO<>" GO SUB PI SAVE !NOT [Q]J▜ CLEAR @~ATN >=6/LN NOT WLN  INVERSE BIN [S] STEP ~WOG RETURN ! ERASE  P LIST $< RESTORE © INVERSE  LLIST ▜Znnf RESTORE  CLS ^ LINE  CLS Vz CLS {SIN (X&[` COPY  CONTINUE  LLIST y RETURN -8 RUN t MERGE  IF k LLIST [G]FN PEEK _^B CONTINUE NOT  DIM  GO TO  INPUT f▗ POKE L PAUSE ▞p!1 RANDOMIZE ? STEP INT  LOAD .3 COPY 4PI RESTORE $ THEN  CLS SQR  LLIST [I][D] COPY SCREEN$ STR$ @[T]0 DRAW  CIRCLE  RETURN  DRAW 9 IF  LOAD  RETURN  READ  LIST D$+2~ RETURN @P GO TO ABS 0% TO  INVERSE H[H] BEEP TAB  RANDOMIZE K RANDOMIZE P[ PAUSE [U] LOAD g RANDOMIZE _r©CHR$ IN 8 DRAW  OUT _© RETURN  LOAD 0 RETURN ▗0▝ RUN ▞oCHR$  COPY SCREEN$ ▘Ed IF  NEXT <= CLEAR P"A▝ LIST  RANDOMIZE INKEY$ IF  OVER W3USR  VERIFY / SAVE  OPEN #$ SAVE  DRAW  LPRINT %▝&VAL >▝[Q]G COPY [K]w[T] RANDOMIZE  THEN  BRIGHT  CLEAR [C] RUN [I] COPY  RUN  DIM E CONTINUE  NEXT A▟ LLIST  TO >0SCREEN$  ▞y FORMAT ▘ LET  SAVE  COPY PI@ LINE [A]USR ">=4© POKE USR `0VAL :J_2h:I_ RETURN 0!O AND ▜▜o&)))| VERIFY X▜▜▜ PLOT  @g} AND o>[B]O STEP @c GO SUB sYx NEXT  INVERSE !WX! > INVERSE  RANDOMIZE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  MERGE  RESTORE  RESTORE  RESTORE  RESTORE  RESTORE  RESTORE  RESTORE  INVERSE =CHR$ Bx1 STEP |p STEP [a STEP ATTR zy2[I]| STEP  NEXT y STEP qy CLS v STEP T ERASE  CONTINUE g STEP Uy STEP y STEP  LET x STEP  RETURN a TO [I]x!©| STEP USR ayATN BIN [C]x BRIGHT =(8NOT  CONTINUE g![J]|:D_G THEN  BRIGHT LN x THEN  BRIGHT SGN x THEN  BRIGHT <=x THEN  BRIGHT BIN x THEN 8<>5 LIST 4<>:[I]|=PEEK >=4<>6<>:[I]|=w<> MOVE > RETURN  FLASH  RETURN  ERASE  CONTINUE gCODE 2X_:[J]|![I]{ STEP  PAPER `~!▗| STEP  INK ` STEP a RESTORE NOT  RETURN h*[G]|-:[I]|O▖{ LLIST :[J]|ATN ( =  DRAW  DRAW <> STEP [a GO SUB Knkx[B] AND ▜▜o&)))x PLOT  O PRINT  POKE :x/:_ DEF FN  NEW   NEW G_w, DRAW <>*[E]|} AND Ao|0 AND  AND g>SCREEN$ /2eyw, DRAW <> STEP Sa*[E]|} AND "o0| AND g FOR  MERGE !USR USR  STEP ACS y MOVE ![I]{{ AND @~ RETURN  COPY >= RESTORE  MERGE !USR  AND 0=  DRAW  STEP ACS y MOVE  LLIST #{ AND  _0 STOP z AND W BRIGHT  COPY {_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO TO <>:[I]| AND O*nk|[F]G! COPY  COPY ▝ RETURN 0[B]ox[B] VERIFY  REM  GO SUB yg| THEN  FORMAT }<>!wXCODE  STEP ▖{!w@(q STEP 9a IF  STEP  CAT y AND _ NEW  PLOT  @g{▜▜▜▜▜ AND o:[I]| AND O RESTORE  RESTORE  STEP @c LLIST -:[I]| AND Gs$s$s$s$s$s$s$s STEP 9a GO TO  LLIST | AND g:[I]| AND  INVERSE o INVERSE &!LN c INK  RESTORE - STEP Vc LLIST | NEW  AND Xg:[I]| AND O>A RESTORE - STEP ▖{ LLIST ,!6G, CLS 6"[G]|<> CLS  CLEAR  OUT THEVIEWER CLS  CLS  LPRINT ![J]{:ok_ PLOT   STEP  MOVE z STEP  IF z STEP ,{ STEP i{ STEP }{6#6 COPY ATN   IF <> STEP [D]{ RETURN >= RETURN >=:r_LN (6LN USR > RESTORE *p_PI GO SUB B LLIST USR w#<>> LIST ::_ATN USR  STEP [D]{ RETURN USR  STEP [D]{ RETURN USR  RESTORE k,& PLOT  n THEN  CLEAR &#)))+)+:r_▚ RETURN  LLIST  FORMAT 6#<> STEP [D]{ RETURN USR  STEP [D]{ RETURN USR  RESTORE *ok STEP Z{~*ok, IF X{ STEP Z{PEEK  LLIST USR  RETURN USR 6#<> LLIST <>& PLOT  n THEN  CLEAR &#)))+)+<>:J_ATN USR  STEP [D]{ RETURN 8 RETURN  CIRCLE 6#<> STEP [D]{ RETURN &>=6#<> OR w, DRAW STR$   PLOT  <> PRINT O<>!TAN x RESTORE *#_NOT _!3x RESTORE  POKE  STEP Ha!"O_&"6_:r_SGN 8|G7 STEP  STEP c:ok2;_!x RESTORE *_CODE NOT c STEP [a:oko& PLOT  n%{wEg▝O THEN  CLEAR w>NOT 6j STEP <| NEXT  STEP Sa*)_©w MERGE  STEP ©`*||:~|G:r_O<> STEP Sa!x RESTORE *_NOT [C]_ STEP <| STEP Sa! CONTINUE g RESTORE ![U]x RESTORE !SCREEN$  BEEP NOT [C]_*ok STEP n|*s_"h|2~|!▗2_|7 STEP  STEP c*ok, STEP n|!"||PI STEP  STEP c!"s_<> STEP [a STEP SQR h STEP Ha:r_G<> RUN ▝IN [P]{CODE {POINT { CLS {|(| OVER { PAPER {+-e3X' GO SUB [ CLEAR ![><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB>>BB<DHpHDB@@@@@~BfZBBBBbRJFB<BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN BBBBB< BEEP 7▘xA<O? INVERSE ~=SQR 0f INVERSE ~ATN (` INVERSE PEEK 8[ INK  INVERSE T INVERSE ]![M] COPY  INVERSE N INVERSE F+~<  INVERSE nE INVERSE fF[M] COPY  FOR !6 COPY  INVERSE  RESTORE  LLIST  INVERSE ^c INVERSE Vd+~< $< INVERSE nC INVERSE fD GO SUB B FOR | COPY O[F]  INVERSE  RESTORE  LLIST yPEEK  #VAL$ = #ACS ( INK  INVERSE #CHR$ t<>GLEN  INVERSE NUSR [M] COPY !<> STEP  OR t GO SUB s CLOSE #` RANDOMIZE |2LEN t:r_2PItAM LLIST | VERIFY 0}EXP  | RETURN (+~ATN   DIM >NOT  OPEN #`CODE NOT  OPEN #` INVERSE  INVERSE  RESTORE  MOVE L~# RETURN  COPY >=EXP 8 SAVE O PRINT  NEXT  COPY  RESTORE  PRINT  STEP Ha!TUSR >=EXP ` SAVE  RETURN "6u+'2v CLEAR  RANDOMIZE h LET =(9 LIST  DRAW PVAL v STEP ▜_CODE 2[F]tNOT  LLIST ~ READ 3u RESTORE <=#8 SAVE ▜tP^?V LLIST PI GO SUB R" COPY VAL t MOVE ! RESTORE #F FOR " COPY AT t% STEP mv LLIST C RESTORE  ERASE [H]d DIM >=[C] LINE  OVER  LLIST  LPRINT  OVER y<> STEP [M]*[F]" STEP  AND [G]} IF , RETURN  ▛[O]< LINE .= RETURN ▜▚# RESTORE &Ro' INVERSE  LLIST ▜ COPY _ THEN ~ATN CHR$  BORDER ▞u! COPY ? COPY  GO SUB s<=t RANDOMIZE  LIST  LLIST " DIM [D] CLS uH CLS !s1 COPY > LET 2 LINE vf THEN  CLEAR  TO  INVERSE  DRAW ~ATN  : RANDOMIZE ▞ INVERSE w! DIM  NEXT 5  COPY  LET PI(X COPY  STEP  INK u{2 LIST INKEY$t OPEN # GO SUB CtABS ! THEN  READ [E] REM  LLIST z BORDER !ABS I BORDER [D]COS  TO  BORDER PI BORDER [F]FTAB [P];C ERASE  STOP tSTR$  RANDOMIZE  GO SUB bT]NOT L PAUSE  INVERSE r▛©▖$ATN  LINE mu GO SUB [E]K*$▝PIB▜ INVERSE t{xNOT  FORMAT |ti^ACS CHR$ Y RUN BIN  OVER  DATA N FLASH PEEK (![B]SGN  RETURN ▝ DIM  ERASE ATTR  CLOSE #% PAPER  GO TO 8 PAPER  PAPER ?==  RANDOMIZE  INK $PEEK PEEK 5~POINT  REM  GO SUB [A] GO TO _[R]N NEW _,> AND  LLIST C SAVE C COPY  PLOT  o SAVE &P~$fR DIM  PLOT  ▞ OUT PIATN  PAUSE (INT  CIRCLE X<> INK  LIST  POKE INT  PAPER  CIRCLE u INPUT [H]NOT  IF  STEP  LET <>5v<[S]CBJ▝QX) RETURN _fY IF $ RETURN ▖<= COPY  COPY <>!v RESTORE NOT  INK u MOVE  RANDOMIZE h RANDOMIZE SIN  VERIFY  RANDOMIZE Z INVERSE  READ +▛ RANDOMIZE  OUT LEN  GO SUB s▘v LLIST 1r%, READ  SAVE 1 RANDOMIZE [I]v FOR +!' DATA q$[Q] COPY  GO TO >= RUN  LOAD  CIRCLE  DRAW  VERIFY 0 INK ` NEXT  LLIST  LINE BIN  DRAW  READ  CIRCLE $ INPUT  VERIFY C IF  POKE ▝@▖ DEF FN ▖ REM  STOP a DATA !? COPY <NOT [O]H% COPY !@ CLEAR  THEN [O]F(▜ PLOT  BIN  RETURN F RANDOMIZE >= LLIST  CLEAR 4 CLEAR STR$ INT CODE  TO w CLEAR  COPY  CLEAR <>CODE go2EXP  STOP J"INT AKBNOT SIN  COPY H MERGE  RESTORE !7J6NOT 8 AND  RANDOMIZE  GO SUB VAL #"[K] LLIST Kp AND ![M]':CODE  NEW NOT CHR$  REM  BORDER  STEP dB[L]" DRAW =F>INT 21f4 SAVE { TO  SAVE 7 SAVE ▜. LLIST  INVERSE ~POINT  VERIFY  SAVE 08 RETURN [P]>2 FLASH  NEXT D PRINT  RETURN  GO SUB  COPY  NEXT  NEW  PRINT SQR $EXP KSQR 0 LET (7 RETURN 2': DATA 8,! READ   BORDER (%!▙USR 9▛▖▛OI DEF FN O▜▝ RETURN  VERIFY 2[S]G[M][B]>2[U]k REM  AND 'D!?c COPY IH STEP [N][P]z THEN Q THEN zSQR UzzSCREEN$ z LPRINT zW MOVE q▗EXP EXP ?BIN aC!▜▚ LIST WK GO SUB #~"[U]G MERGE ©POINT K RETURN  LPRINT 0gUSR o RETURN  MERGE _? MOVE | CAT } CLEAR  VERIFY  LIST   SAVE  READ <2RNDJIN -K! LIST  STOP "VJ TO s CLEAR [A] TO  CLEAR  OVER  CLEAR  CLS  LIST  CLEAR K LLIST fH RANDOMIZE ef CLEAR ▘ CLEAR  FORMAT g CLEAR  GO SUB  CLEAR KCHR$ *[G]#^V[C]"S INPUT g0 CLEAR ▗{*K OVER  FOR  FOR *Kf REM  ERASE  GO SUB  LOAD © CLEAR K LET !CODE I2[C]▜[B]© NEW  THEN ;[P] NEW PI2 COPY  LOAD A FOR HK COPY  AND IN O DEF FN I[B]G OR  DRAW 8L MERGE N# RESTORE F FOR  RETURN  INVERSE & THEN 81b RANDOMIZE yw#x DRAW  INVERSE % LET   LOAD  MOVE  COPY  LLIST #STR$  PAPER ! COPY ," BRIGHT A LLIST  MOVE { COPY  RETURN  THEN  > CLEAR 2f COPY LPI( PRINT ▜ DRAW O LET 05©4PI GO SUB B?! FOR  LET  RETURN ! COPY T/>0 COPY -]CODE 2KB INVERSE !?▟ SAVE  GO SUB b} RANDOMIZE | DEF FN [J][P]w CLEAR # NEXT [P] LLIST TAN w ▞ STOP ^ INVERSE  COPY  STEP  INVERSE B RESTORE d RETURN ~ CLEAR w RESTORE  INVERSE  LLIST  STEP  FOR © AND ^# CLEAR u[N]? PRINT  PAUSE B MOVE  INVERSE n▛f[P] PRINT  VERIFY B!POINT   FLASH  TO  DATA  RANDOMIZE i[I] RANDOMIZE  READ  IF ABS t CLS <> READ  STEP  COPY #~/ STEP [I]B_ RANDOMIZE [K] LLIST tRVAL ABS C MERGE ▗ aF RESTORE AT _COS VAL$  LLIST 2 RUN  DRAW CHR$ <> STEP  RANDOMIZE  PLOT   RANDOMIZE  RUN & RANDOMIZE  SAVE  RANDOMIZE  RANDOMIZE [D] RANDOMIZE  RANDOMIZE I RANDOMIZE  RANDOMIZE [U] RANDOMIZE  ERASE  RANDOMIZE  RANDOMIZE e RANDOMIZE  RANDOMIZE h STEP  DATA CNOT  COPY /SCREEN$ EJ[A] INVERSE ▜STR$ ~"o CLEAR  DRAW g STEP  RANDOMIZE B39▛ DATA  TO .< READ -( COPY  RUN  CAT  STEP [ GO TO  INVERSE  THEN  ERASE  VERIFY  CONTINUE d CLEAR  RANDOMIZE  CLOSE # NEXT  CLS ▜[P] CLS  RANDOMIZE 7PI LET  DRAW  AND  (?8POINT (`[O]><(PI LINE  LPRINT D8RNDBIN ▞COS @TAN [D] SAVE ACS  REM SGN 3 CLEAR PEEK  CLEAR 7 CLEAR :NOT  RUN  THEN ILEN [G] PRINT  COPY 4PEEK IN VAL$  LLIST ,o|~2BIN D#>CODE D FOR  INVERSE  POKE  AND 0 RANDOMIZE  DRAW V 2 REM D COPY ▙go< STEP RNDD:J RANDOMIZE L OUT  PRINT  CLEAR  POKE  DEF FN  CLEAR  IF  CLEAR  CLS NOT R6▚DTAB  RESTORE "?SIN D9▖ INK 1= [S]▚s)' STEP p LPRINT "D MERGE -z DATA BIN [G] LIST >=POINT ▜nSIN  COPY f CLS " LLIST D ? ERASE 8SCREEN$ ▘(▜ICODE ;%[A] CLS ASN  DIM SQR  8 REM NOT ▘S IF CHR$  CLEAR ▜_! NEW $©M MERGE  ERASE  FORMAT  CLEAR [F] DEF FN [A]W▚[C]VAL$  BORDER GCODE  GO SUB s[J]▖VAL  RANDOMIZE OABS  RESTORE  COPY 1& COPY [N]w DATA <> FORMAT  STEP 0 GO SUB  CLS PI BEEP RND RESTORE [A](t IF  PLOT  ▜o& PLOT  VAL$ #fcIN >[T]AT  DEF FN  LET  RUN  LPRINT  GO SUB R INVERSE  OR u BORDER t BORDER 8 COPY  INVERSE s9SGN r CLS  LET  NEXT ( FOR  STOP  PAUSE  LIST  RANDOMIZE D/DJxA DRAW  RUN 6 RETURN <>}DSTR$ ;PI  RANDOMIZE [L][P]IN < DIM 9xEXP  BEEP  BORDER  PRINT Ei RUN  PRINT INKEY$ IF  COPY  CLEAR  RETURN  RESTORE  SAVE  COPY |© FORMAT [Q] CONTINUE  OR  CLEAR u.t RUN  FOR !CHR$  DRAW J THEN N>=2[U]'s PRINT ,K[L]<>s CLEAR CODE gE MERGE  REM CODE CODE 'SCREEN$ >=goNOT  SAVE C▜_dW STOP  LET n SAVE  INPUT f RANDOMIZE 4 PLOT   PLOT   PLOT   TO  RUN 0 INPUT 0<> LLIST  INPUT  IF  INPUT SIN  CLS  OPEN # DATA  DATA  LET <>POINT ELN [B]D"P( .RPOINT  RETURN F[SIN  IF K RETURN  OVER (CODE 2-H©F RESTORE  LINE 9G LPRINT  GO SUB sq INVERSE n~f~o<=9<<=8C, NEXT  RETURN ▚ PAUSE FCODE  RETURN `ATN s_CODE ▜ TO  PAPER  OPEN # PAPER & NEW G▙▜v VERIFY  RANDOMIZE x[R] CLOSE #3STR$  LLIST  COPY ` DRAW   FOR PI GO SUB boRQ THEN  PAUSE [P]/ NEW > IF [R]O<=x' NEW [P]G DEF FN  INVERSE ^PEEK Vy GO TO p(V[M]V FOR ? AND 8o DEF FN  DRAW L[F]g RANDOMIZE  LLIST  TO  READ  READ  COPY  READ CODE  INVERSE ACS  LLIST (>NOT 5 STEP  9[I]xy DEF FN ▖▖|[D]  LINE NHV H FORMAT  LET +▙f COPY : IF  LINE F3 BEEP  BEEP LN CODE  OPEN #SGN  LOAD ~ LIST  THEN y($qN RETURN < LET =? NEW ox NEW  DIM  PAUSE  GO SUB *I*[E]EXP {K?{~ THEN A 5 LET  DRAW  RESTORE  THEN x READ BIN /s RETURN  INVERSE ▚hCODE ( CLEAR  OR ▚<[L]2 REM [M]x$H CLEAR >=INT  INPUT [E] LLIST E>=>=F[A]USR 2VAL$  RESTORE , DATA y8 BRIGHT : PLOT  SIN <>CODE ▞BIN  BRIGHT =_CHR$  THEN /INT  s<N RETURN F COPY {[E]]W] CONTINUE n©[L]f#~<  AND  STEP [J]@ PAUSE  PAUSE [F] NEXT  LINE 1= CLOSE #▜N<=[B] VERIFY <=/= COPY ▜_ THEN } CLEAR [G][N]3 FORMAT [M] OVER  DRAW   OVER ASTR$ ^ PLOT   CLEAR V RUN  GO SUB s CIRCLE G©ACS DMn CAT .t DATA  SAVE  BEEP  SAVE  COPY ATTR ATTR  COPY  STEP [D]p COPY ~▖ BEEP  >=[L] OPEN # DIM  DIM 4 DIM  POKE  DIM [U] RESTORE  DIM  OVER  DIM  DIM [D] DIM ~^/ NEXT [P] COPY [E]>[E] STEP  NEW EgATTR ATTR >c RUN SGN I DIM  DIM ABS  DIM > DIM :-HLEN  STOP [U] INK  CONTINUE  OVER  CONTINUE  CONTINUE [L] CONTINUE  ERASE  CONTINUE COS s▚ RUN ? RUN _▜[P]W3 FLASH  FLASH I@@[U]R  LPRINT  VERIFY !CODE  PAUSE ACS >=s$USR SQR  BRIGHT INKEY$INT  INVERSE u INVERSE  BEEP  GO SUB cINT  STEP ] LLIST G:7wPI(en NEXT J COPY  LOAD  LIST  GO SUB A BORDER  INVERSE !LEN  LPRINT  MERGE H>=:_ATN  DRAW USR B> RETURN  GO SUB y OUT  GO SUB 9 TO (N AND  COPY [T]_ DEF FN I[D]W RETURN  INVERSE  RESTORE  LLIST OABS  OVER N NEW w# RUN ▘ RUN Zw FOR @ POKE S POKE 2 LLIST I INPUT NOT % RANDOMIZE  INVERSE INKEY$_ DIM  NEW >COS  LET  SAVE  RANDOMIZE {[Q]CODE  MOVE IN  COPY ▗8TAN  PRINT :0w NEW B[E]C.[T]<NOT 7 RANDOMIZE 8USR  RANDOMIZE Q# INPUT  CLEAR < RETURN 8 DIM [O] FLASH  AND  LET  RETURN ~PI SAVE C25_© POKE <>$ LPRINT d*e BORDER  RETURN [E]5 LET 0 COPY %=]17 COPY MS_q▘[M][O] DRAW [Q]INKEY$FN SCREEN$ AT VAL$ ©W# COPY %)-/3IN  COPY !#'+-1UABS 9 PRINT ! GO TO  IF +;M_SQR F POKE  COPY  CIRCLE ipv}▟ COPY [F][N]FN LEN SQR  PAPER b COPY hmu{[C][M] COPY [U]CODE LN  COPY ~▚[A][G][Q]SCREEN$ TAN PEEK  COPY USR x▖[A][I][Q] STOP VAL FN  LPRINT  GO TO  CONTINUE  COPY  POKE  COPY USR  CLEAR 0 COPY ▝[S] INVERSE  RETURN ~I RETURN  PAPER AT `  ERASE O CLS  NEXT Kg RETURN EXP @ RUN  RESTORE ▛ MOVE n INPUT J PAPER ^ GO SUB H INPUT [L]g LIST G[P] LIST CODE WPEEK (I LIST _#> COPY |{ B+4 INPUT  BRIGHT ATN  LINE  PAPER  RANDOMIZE  RETURN 0 <> LLIST L OPEN # CLS  STEP fts IF  INVERSE  LLIST  DRAW >ATN <>[P]STR$  BORDER fATN  GO SUB Ru8 RUN tS# RETURN CHR$  FOR <> RUN >APEEK SCREEN$ OSQR < GO TO [Q]":t RESTORE GN#F#^ LLIST  GO SUB s[M]t RANDOMIZE ~+<  IF ~< CLEAR oPbj & CLEAR - "[P]t LET < LINE [L]t= INK  LLIST "Ft LLIST  FOR  LLIST  INK O INVERSE ! INK  INVERSE -  RETURN n(+ VERIFY USR 8 PLOT  < INVERSE o INVERSE %  RETURN n(! VERIFY USR 8 PLOT  < INVERSE g INK VAL  INK ~# RETURN n( VERIFY USR 8 PLOT  < INK G[Q] INK _ INK >= INK _ INK  ERASE ~# INK _ INK  BRIGHT 1 COPY  COPY <>! SAVE USR NOT  @LEN [E]xPSCV1.20PL LIST AYERaB▛K COPY VA"COS @ FOR !LUSR L PRINT _B.DC+?~#f[J]o LIST k LIST [P]s LIST YC>NOT 2 FORMAT #INT  LET "3Ip NEW CIN [U]DCODE 2bE}p CLEAR FLN [R]G<>ATTR @>[S]> MERGE  INVERSE  LLIST 7~I2USR  AND C OR nG CAT fHUSR ACS @! COPY [Q]KCODE w# DRAW  DRAW !SCREEN$ @"FN Z INVERSE INT 9 GO SUB NOT SIN H RUN > LLIST ASN PIK DIM =STR$ NOT ( INPUT  RUN [M]COS  4 CAT  PRINT 1 CLEAR  LET  RETURN  COPY  COPY  2[Q]J LLIST  RANDOMIZE NOT  NEXT :LEN  PAUSE @g CLS  CLEAR A CLS  GO SUB s[N]ACS COS  LPRINT B>=▖p BORDER USR CHR$  PAUSE A TO  MERGE BBIN dSTR$ [K] BORDER STR$ [U]? RETURN |8'[Q]$USR a VERIFY IN  CONTINUE USR ! LET  BORDER A GO SUB C;NOT SQR  RETURN ~BIN 06 COPY }(#NOT  POKE @ LET  RETURN g0S<W8 VERIFY O > LLIST 2fI NEXT (gk THEN  LIST @ STOP  DIM  INK  CLS 2[L]Q NEXT  SAVE  OUT  LET  VERIFY ▜ INK o FORMAT &]PIipVI INK r FOR [Q] THEN Z FOR /< FOR k(=X[U][K] TO  CLEAR * CLEAR / DEF FN  CLEAR 2 CLEAR 9#[I] NEW > DATA [H]<2w LLIST AT  CONTINUE ~BtEXP #[K] LPRINT =M2INKEY$I PLOT   SAVE  CLS ABS [H] INPUT >=FN  CONTINUE  CIRCLE  LIST I STEP  PLOT  STR$ # RESTORE  STOP  COPY ▗+ RETURN z RANDOMIZE  PAPER ©B  PAUSE CHR$  NEW  INK C# CLS  OPEN # DATA  CLS  CLOSE #[F] CLS AT  CLEAR W DIM ▜ FOR  PRINT ^ RESTORE  PRINT  CONTINUE ©INT ! CLOSE # LET B GO SUB C NEW [K]~ PRINT 4 BEEP  IF  PRINT  COPY A CLEAR  PRINT [U]~ PRINT  BEEP  CLS  PRINT DOUSR  PRINT ( STOP  INK LEN  INPUT 2D RETURN  PLOT  FN  STEP  RETURN  RUN Dl READ [E] OUT  ERASE  SAVE  GO TO  OR PEEK  RANDOMIZE ZLEN  COPY  RANDOMIZE *Dw LLIST  RANDOMIZE '8 GO SUB  COPY  CONTINUE  RANDOMIZE YD PLOT   COPY EXP  RANDOMIZE  INPUT >=q CONTINUE  COPY  RANDOMIZE LN v CONTINUE PEEK  RANDOMIZE ▟ IF  GO TO S RESTORE  CONTINUE { LPRINT !PEEK [N]C[U]D[J] CLEAR  STOP B[L] CLS  BEEP U BRIGHT  STOP INKEY$ CLS 2CHR$ 3 LET [<=D LLIST  MERGE  STEP  NEW  FOR ,- NEW W CONTINUE [R] RESTORE 8 GO SUB  PLOT  E PLOT  " SAVE # IF  BEEP 4 CONTINUE  RUN w STEP :[S]ATN CHR$  OUT xE VERIFY [O][N]SQR  INVERSE  PAPER tATTR  INPUT <>2[P]VAL TAB  MERGE a COPY  LET :FLEN  RETURN O THEN 0#F, LIST S([E]]G  MERGE ▟9 FOR  OUT z IF [L]R INK  FOR + DATA  NEW N4 PAUSE  BORDER .. COPY } CLEAR /o#" NEXT F&ATTR  PLOT   PAPER  LLIST [J] NEW 1: OR EXP ▜ NEXT [P]I MOVE *[S]K DIM ATN  GO SUB RINKEY$[N]0 OR  THEN |2 CONTINUE   DEF FN z<>#8[ LINE {' THEN  READ w( POKE  PLOT   GO SUB D}&) STOP EXP $[F] BRIGHT y/IN rq NEW  PLOT  B[R]G LINE bBH NEW  RUN GBPOINT t>=3H/[S] RESTORE  FOR  POKE  CONTINUE  IF VAL MWBA! NEW dCOS  PAPER BHCBjB, OR [F]B[U] STOP B[T]BIN FB LINE { THEN LBE}[U]< STOP :bB[R] STOP q BRIGHT  LET . READ CEH2 DRAW 8[E]F+ LPRINT [A]JJFkBFN K OUT  BRIGHT  THEN S LINE ▜FH[C]K:IN E© FORMAT  RANDOMIZE STR$ ▝z PAUSE  SAVE [J]E VERIFY SCREEN$ WSGN V8<y?"VAL$ E? IF  THEN C / RANDOMIZE NOT INT E THEN  LET ?[N]▛ GO SUB sE[M] ERASE 2~'/={Q<STR$  OVER SCREEN$ IN ▖ OPEN #E THEN g( MOVE  FOR ATTR ©USR > CAT PI" LLIST Ep CONTINUE [Q]KPEEK  MOVE W{ NEW ATN INKEY$N▞(M} CLS o[T] IF  DIM F  RUN 2[R]o|CODE  INPUT  RETURN 8 LOAD  CLS FK COPY ▗ CLEAR *[P] COPY J~ INK  THEN c  MOVE  PLOT  ?"[O]D[ COPY  GO SUB KATTR ABS ▜ DATA  GO TO  DRAW ACS 2INKEY$K{ COPY W* FORMAT E"oFr?Z MOVE ?{ INPUT F THEN [K]I?[C]? RESTORE 2A};PEEK  READ PEEK 3 BEEP  CLS  LET [M]G COPY  LET  DEF FN SIN F? LET FN SIN F COPY  LET ABS SIN F© LET <>ATN F RETURN  LET [L]FPEEK  LET SGN 5BIN ~ LET SGN  CAT  IF  LET  LET Y CONTINUE IN [S] COPY  LET  NEW O: GO TO PIKLEN G CLS  FOR *G RETURN  FOR  RETURN [I] INK v1M~ FOR INT  READ  OR ? FOR POINT a' RETURN  FOR  OUT F"▗G<> RETURN  FOR [A]G OUT  DATA  FOR  RESTORE >=;5[F][E] FLASH `SCREEN$ _ LOAD  FOR SIN H RETURN  FOR  READ G>= RETURN  FOR ABS G THEN  RETURN  FOR  ERASE G<> RETURN  FOR  OVER G OUT  IF  FOR VAL G IF  FOR  FOR  OVER  IF  FOR  FOR SGN  CLEAR  FOR fe[U] OPEN # READ  FOR  GO TO  NEW $[ CLS  REM @H RETURN  REM  RETURN [I]▝uGM~ REM INT ▛ OR ? REM SCREEN$ a' RETURN  REM  POKE G"[K]H<> RETURN  REM INKEY$H OUT  DATA  REM  RESTORE  LINE :[R]4 LOAD  AND IN  COPY  DRAW  RETURN !AT ?>( DRAW #<B GO SUB yC]ATTR =▘NOT  RANDOMIZE > COPY [ASN [[D] RUN =CHR$  LIST Isq}Ed LET qu[E]vRNDCODE SGN : RETURN VAL$  OR EXP o FOR  FORMAT z IF ^/q NEW ▚9 CAT  NEW q DATA EEXP q BORDER CODE q OR '[H]q[Q] LIST qLEN INKEY$q LINE {1 THEN >q}kp[F]Y[M]q-N// INVERSE  SAVE  RANDOMIZE <> BRIGHT  TO  AND " SAVE ▘ GO TO / BRIGHT  VERIFY Xn LPRINT n4N[P]@7 NEW [B]AqCOS VAL$ [S]kB, READ  LIST ATN D▘O  NEXT ▟>=[R]{W68 SAVE  BRIGHT  MOVE STR$ !FN @[A]▝ydP=, q DRAW  INPUT [S] LPRINT B CLOSE #▝>=ABS SIN FN [P][G] ▟@▝~wpjd^ Y@T▝PKGC?< 8@5▝2/-*( DRAW  STOP $[C]V), COPY ASN 2 COPY W PAUSE  COPY  PAUSE l NEXT [T] COPY S LIST D PAUSE TAN  COPY 6 LET G PAUSE F LIST  READ  LET  PAUSE [R] LET SIN  PAUSE ;c LIST U LET  AND  LIST  CONTINUE  LET  PAUSE  LIST ▖ LLIST  ERASE  MERGE  LET / LIST = LLIST  LET 4 LET  LIST y LLIST  READ  STOP  LET y LIST STR$  LET  OVER  LET ACS 5 LIST Y LET USR  ACS  VERIFY  INVERSE ~ RETURN  PAPER AT ` NEW  LIST CHR$ AT ` INVERSE ~ RETURN GCHR$ AT ` INVERSE ~ RETURN TCHR$ AT ` INVERSE ~ RETURN RCHR$ AT ` INVERSE FLN   INVERSE NEXP CHR$ AT `H>02Qty2Pt INVERSE  RESTORE  MOVE >@O!(©~ RETURN @80EXP  ERASE AT `ATN  LINE AT `## GO SUB !%~< LINE AT `#PEEK  PAPER AT `&#=2tGH~▜W▜▘PEEK CHR$ AT `# POKE A STEP [L]t:ASN t RETURN ! ERASE AT `>ATN <> RESTORE  OR ~#EXP   PLOT  STR$  LLIST y<  GO SUB z2ASN t<> NEXT ~2:tMDe INVERSE !u>`^#V# FOR  FOR  INVERSE s INVERSE # INVERSE r INVERSE #=  GO TO ~2[G]t#~2[N]t#"RNDt INVERSE ! STEP ▜t INVERSE  STEP ▜t! ERASE t STEP Vt! CAT t STEP Vt! TO t STEP VtNOT 9t5 LIST 6#^#V++USR  RETURN  COPY >=LN 8▝▝8 POKE ▝8 INPUT  VERIFY 0▝8 BORDER ▝8 DATA #s#r<>w BRIGHT : TO t= LIST * STEP t~<USR > COPY < RETURN (+2[D]t RETURN   INVERSE "<>t!_n&u GO SUB sSTR$ t RANDOMIZE  MOVE  GO SUB S STEP t LLIST " FORMAT t LLIST " OPEN #t1<>STR$  INVERSE  RESTORE  LLIST <> MERGE t COPY ! SAVE NOT  BRIGHT ALN  ERASE B COPY  COPY [K] LIST `~IN  COPY ~2 PAPER BMD COPY ' INVERSE ! DEF FN @ RETURN > STEP CB INVERSE #t RETURN >p RUN 0 DATA ASN  NEW # CLS EXP q CLS "NOT <> COPY 2SIN ?! STEP @"[A][S] OUT b▟i STEP X RANDOMIZE [U]h RANDOMIZE LN SQR  RANDOMIZE xCHR$ A CAT IN p GO SUB VAL  CLEAR  LPRINT  COPY > RANDOMIZE yIN CODE  CLS  COPY 2 FLASH ANOT [U]D^#▟V FOR ▟ INVERSE  ERASE s[S]r[P] CLS =  GO TO <>CODE wE PLOT  [J] CLEAR  CLEAR [J] CLEAR  CLEAR [J] CLEAR  CLEAR [M] CLEAR < DIM  DRAW > FOR  LLIST !<>@bu NEW t IF r IF <>MD LOAD EXP  CLS AA9 VERIFY A▜F RUN c DIM  GO TO  BEEP A FORMAT  LET  DIM  RUN  RUN   CIRCLE A ERASE ? DIM ! PLOT  B5CHR$ ▝ CLEAR D6 STEP INKEY$C FOR @ RUN @2/$$ RANDOMIZE NOT  DRAW  READ  INVERSE 5 LIST H6▜]nf COPY ~ RETURN  COPY >=USR # SAVE LN 8 AND  [I]1▝1~5 VERIFY 0 PLOT  [O]< CLEAR a AND `[H]3CODE FN ;AgSS<>N4 AND =▝ LIST ~USR ( SAVE / NEW [K]ACS  RETURN  INPUT ~# INK :y~FN ▜ RESTORE _yp INPUT @ GO TO  LINE fo DRAW  RANDOMIZE  DRAW  CLS F▛CODE  OUT SIN  LLIST NOT Ch CIRCLE SIN  DEF FN  CIRCLE - CLS > DATA  BORDER  OUT :[R]B LIST = LIST *[S] RETURN ~<USR > COPY ' RETURN  ▘'. COPY "L LOAD [M]HOLN LPRINT C BEEP  RANDOMIZE  LLIST  STEP 9 DRAW EXP   DRAW  FORMAT I1 READ W DRAW ~ATN (CODE  DEF FN w` PAUSE TAN  INK g<> INPUT [J] INPUT ▚^ LLIST {<yPEEK   STOP ©CHR$ Y BORDER ▚▜ CONTINUE _![O]mN#Ff CIRCLE  CIRCLE  DATA  CIRCLE  NEW  CIRCLE  AND  BEEP  READ  BEEP PEEK * LOAD  NEXT  CLEAR |SIN TAN { COPY  INVERSE [G]0CODE  THEN  RESTORE VAL$ [E] LLIST  CLEAR } LET  INPUT [A]h RANDOMIZE  GO SUB n[P] OUT s#r MOVE <> CLEAR @ COPY g OUT  READ C LIST Y_ POKE K RANDOMIZE <FN 2 CLOSE #A▜IN  MERGE ! FLASH CODE ACS  LET > ?! CIRCLE AIN [P] COPY LN B GO SUB yCATTR = PRINT  PAUSE ATN DCODE  CLS ▟<>▝[U] INVERSE  COPY ~ RETURN  PAPER AT ` NEW <> LIST CHR$  CLS  NEXT  COPY  RETURN >O0 COPY /2 POKE t:r_G STOP  INVERSE n LLIST fa^©V RESTORE CODE  GO SUB B LLIST [D] ERASE  PAPER  RANDOMIZE RI IF  FOR  FOR [L] FOR = FOR 6 FOR i FOR  PAUSE M[T] RESTORE STR$ [T]SIN ~ OPEN ##PEEK ▙_▝ FOR g GO TO  GO TO M MERGE |ASN }SCREEN$  FOR  BORDER  FOR ATN  GO TO  ▗ INK  NEW N?NOT F GO SUB C CONTINUE u!< FOR  PLOT  TAB N{ GO SUB !@t LET  STOP  LET !ATN O LET  LET !f- LET  CAT O[E]> LOAD  OR BIN .[U]u PAUSE  COPY  PAUSE ^#V+ GO SUB  IF Su> PLOT   FOR  STEP  LLIST  RESTORE A^/ PRINT BIN ==  STOP > NEXT ATN <>SQR ^>=6 INK ▚E RESTORE xF LLIST  LLIST XM COPY D INVERSE ~ RETURN @0# LOAD ss<>POINT 4POINT >=USR 8 LOAD [O]u PRINT t# GO TO  RETURN  FLASH DM~#2Gt STEP ?t~ INVERSE g#~ INVERSE o#"[E]t STEP >t"[K]tCODE ATN ( STEP ?t FOR +r+s##=  NEXT W_!5t FOR ^#V# FOR <>( IF x VERIFY CHR$ Ht PAUSE HtACS ('~# RETURN USR 8 VERIFY  LIST (0 POKE  VERIFY  LPRINT 0# GO SUB  VERIFY 0 VERIFY  LLIST 0 RESTORE ut BRIGHT  FOR  MOVE <>> COPY < INVERSE SGN ( PLOT  2▝t INVERSE ABS   MERGE  OR O!N!~#foSTR$ ASN !NOT  OR @▛ TO  GO SUB  TO K LINE  RANDOMIZE [E]x COPY p LET  FORMAT  NEXT "SQR @> LET  DRAW 2fDg FORMAT  CLEAR =EUSR ~# LET  OVER @ STEP ASN @9 POKE F# CLS [M]A CLS "LN STEP TAN @T+ RESTORE [I] RANDOMIZE mCLN }B[[H]A[D] POKE JA FOR ~6 IF  LLIST ATN (q<> FOR +rLEN s# COPY =  NEXT !@ NEXT IN A RESTORE  LPRINT @goL LET  ERASE TAB  TO  CLEAR  FOR  CLEAR PI/2 MERGE @=:F▝CODE [N] COPY E!IN @w# NEXT  DRAW y2h COPY  CLEAR  COPY > GO SUB yCODE [P]IN  CLS NOT E FOR  READ ^#V8W<>PI COPY  GO SUB s▟USR E RANDOMIZE  INK  LIST `! TO  NEXT 5CHR$ SIN A▝# PAUSE [K][O]C@ACS  LINE O RANDOMIZE = RETURN USR 8 STOP [B]0 CLEAR > CLEAR ANOT ▞i VERIFY ▝a ERASE ▙[J]=2 ERASE 3EoCODE ▘ OR ! LIST og"y:NOT [F]C@|NOT [P][P]} NEXT  FOR @( LET 7bY RUN  CIRCLE  DATA  THEN  STOP  CLOSE #G PRINT ▜ INK _O[L] RANDOMIZE  LLIST ~▜2 INPUT NE#L RANDOMIZE J DATA ?Z INK w ERASE 2[G]C< IF #D>;eIN ATN (<=D RANDOMIZE @ GO SUB S$E[D]▖.▞[Q][S]<* STOP PIhLN > FLASH  CLOSE #COS Q LLIST ASN  NEW [M]" CLOSE #jb;| OUT LEN ~=CHR$ RNDBUSR !>=;&ID OR & RANDOMIZE SIN &2 POKE #; DIM &=B&[0&t&7 FOR & MOVE C NEW [C][D] VERIFY H)PIH[J]2POINT  CLS  RETURN DNOT [N]B(eg,<=` OR AD OVER  LET (, PAPER  FORMAT  PRINT  THEN o,CHR$ CL,LN  DATA [L]Z INK t ERASE 2[O]B IF h, INK  TO C,[R][A][S]CODE  TO [E]ABS @fTAB  CLEAR VAL$ 'LN COS [S]Q OVER  LET ~LN VAL$  READ  NEXT >=<> INK ABS D[T] INK %CHR$ /TAB =ABS [K]>>=2 [L]*F CAT m-Cd BEEP D[P]|EXP  FOR LEN  GO SUB r0`▟9: RUN ASN B! OVER  LET F PAPER ▚ PRINT [Dz DRAW e OUT v0 ERASE 2▙Q IF [S]! RESTORE r[S] NEXT [I]D3 LET  PAUSE K RUN ▞ VERIFY  OVER  LET D LOAD G NEXT [B]<>SIN [T] INK . RESTORE ^ LET ABS y[K].<>$ SAVE  THEN  ERASE  BRIGHT " ERASE  TO ATN  PLOT   IF E DATA  IF $ READ EXP ABS  OVER  INVERSE r CLS STR$  RESTORE  CLS  LLIST >= CLS  GO TO i[M] SAVE r PLOT   AND [O] CLS  RETURN (INT G RESTORE  DEF FN h FOR  IF M BEEP  IF [J]VAL$  IF [M]/ PAPER S CLS EXP s CLS Wr CLS w RESTORE  CLS ▘SGN [G] PLOT  / THEN SGN f[H] PAUSE [N]!▛ATTR  FORMAT CODE J CLEAR TAN <_ LINE _VAL ^ CLOSE #^INT _[S]^CODE <=s {▝ RETURN  RND MOVE J?<=▚▜_!oF7>? RESTORE < IF F_ PAPER  AND  LPRINT PISTR$  RANDOMIZE  MOVE  COPY { NEW  VERIFY o?[P] COPY RND THEN :0 PLOT   NEW ? DIM  OR @{8 CONTINUE  INVERSE b CAT [E]VAL$ N AND STR$ [D] COPY  BEEP  INVERSE  CAT o| CLS g"IN COS @[G][G]TAN  [G]SIN [G][G] FORMAT ([G][J] AND [G] COPY  PAUSE  NEW  INVERSE ASN INKEY$ >=/[T][G]USR [D]COS ▛[D] RESTORE  PRINT [D][C][D]/ INPUT bk[D]<=[D]^<[E]SIN  [G][E]y INPUT [E]NOT @1[D][E]<= DIM IN SQR  COPY [M] GO SUB y IF LEN ATN (B CLS  PAUSE @ CLS ATTR =B{ RANDOMIZE  INVERSE }K BEEP  CLOSE # PLOT  | PLOT  ACS 1 RESTORE  PAUSE  RANDOMIZE  RETURN "<>CODE IN ▖ INVERSE  CLEAR .NOT COS DCODE | CONTINUE  BORDER ASN  PLOT  XNOT  _EXP <= NEXT $O NEXT E*IN  BEEP AACS Ax BRIGHT  RESTORE @ RANDOMIZE [K]Gq<W CLEAR  DRAW @6 COPY nJO[B]- CLS N#~[K] SAVE  RANDOMIZE  LLIST  CONTINUE ATTR ▛ATN - FOR  OUT  AND `©'GBINKEY$ COPY [H]{ INVERSE  COPY ~= RETURN  ERASE AT ` RETURN :r_G INVERSE n.f^V|PI[A] FOR CODE  GO SUB RI IF  FOR  INPUT [L] INPUT ( INPUT  PLOT   POKE  INVERSE D4M CAT  STEP  STEP  FOR h OR N# COPY  RESTORE `i)D NEXT M LLIST CODE  CLOSE #| ERASE ASN CHR$  CIRCLE N© DATA F! GO SUB  BRIGHT B ERASE  PAUSE [P] PAUSE !ASN ATN O LET  LET !>l LET  TO  RESTORE  LLIST [C] RETURN [C]~<ATN  LINE B LIST G  LIST #  RETURN [T] STOP [P] INPUT # PAUSE > CIRCLE ATN <>~DM STEP rt< INVERSE o GO SUB S;t# STEP rt GO SUB SAtqt INK !CODE _T INK  INK  CLEAR A INK < W INVERSE ABS 05_<!~!PEEK ( IF  STEP rt RETURN `8 MOVE  RETURN 8 PLOT   RETURN ▘8<>( LIST  RETURN 8 FOR  VERIFY [Q] INK OG INK  DATA  INK <> COPY #^#V# FOR  FOR <>! SAVE USR NOT @IN CA~2v"EXP # STEP COS  LIST <2xLN  GO SUB Sn NEXT   RANDOMIZE p OVER  MERGE  SAVE ▝r! LIST  STEP LN EXP  FOR "t PLOT  [J]© OPEN #y IF ▝ DRAW ,p GO SUB VAL  LLIST ASN CODE  DRAW  STEP TAB @=2▞Af[D] CLEAR [N]>w NEW VAL "▜ VERIFY [B]g CLEAR [L]TAN D INK <>O COPY LN iWjASN  COPY l POKE [A] LET d PLOT   INVERSE  COPY PEEK  BORDER >=NOT [O]^#▟V FOR  LIST C INPUT  COPY <>_▜ INVERSE ~ COPY  THEN ©Jw▝ INK B NEW  RANDOMIZE g INVERSE ^ BORDER  IF  PRINT  NEW  LIST ` COPY W LET o SAVE  INVERSE  THEN n>=[P] STOP <>:[O]@ CAT O!PEEK  PAPER  PAUSE A STEP =N© LET i&) GO SUB [?2Cy DEF FN *r([H]0#▛ VERIFY  RANDOMIZE {▖ RANDOMIZE }?<> INVERSE 5 LIST 0[T] COPY `w[B]COS |CHR$ ▟B:v$ RUN  BORDER  INVERSE !▘ INK 8A OR  PAUSE n[P]*<>~< TO  PLOT  STR$  LLIST [H]A"% RESTORE  DIM  RESTORE ▝ RESTORE SGN { GO SUB ^ GO SUB [G] GO SUB ;CHR$ *} AND  GO SUB  IF NOT © POKE ~ RETURN ` PAPER  OR A CLS ▜ NEXT  LINE [I] REM  SAVE ▝s FORMAT  CLS ▘ PAPER B VERIFY [R]C▗ CLEAR  COPY <>#NOT  TO  RANDOMIZE ▛6▙© DRAW  #<> VERIFY ` RETURN  RESTORE c*t@ BORDER C INVERSE utLN  LLIST  FLASH "© LLIST  COPY <>CODE  VERIFY p2 OUT ! OUT T OUT  DEF FN  OUT  RESTORE  RETURN  RUN  FLASH  VERIFY 2[I]AT  FOR ~STR$ BSCREEN$ N GO TO  RESTORE CODE  DEF FN P VERIFY  LLIST  FLASH  SAVE <>== DATA  PRINT  COPY [Q]O< NEW [A] PRINT p LET USR  BORDER ^[E]V COPY !`~= IF  FOR ASN A CONTINUE COS  BEEP <>y DRAW ATN USR |2RND@BIN 0!ATN  OR  POKE  LINE ▚B[L]NOT CODE [N] THEN  NEW <> COPY  AND  COPY 4By2;C INVERSE *[I] PRINT PEEK IN yVAL 2INKEY$© BRIGHT VAL$ <= RANDOMIZE  LINE EXP B STEP h CLEAR  RETURN 1C"[P]@!PI/w STEP pIN B RESTORE VAL$  STEP  FOR  STOP  INPUT U AND <> AND :<> MOVE LEN VAL BIN  CAT  BRIGHT I THEN [R] THEN ASN FN [ THEN [G]ACS  THEN 'C▛ THEN [J]V THEN  THEN 7VAL LEN l<=ABS [G]<=[T]7<=POINT IN <=NOT D} PRINT  MERGE  STOP  INVERSE n CLEAR f OVER ▖STR$ ▚ AND  STOP ▜_z!^C RUN g FOR  MOVE  LET  LET  THEN b(?[S]<>PI GO SUB RUSR ABS © COPY !AT @CODE ACS > RANDOMIZE   VERIFY + COPY  DRAW yHIN [P]ATTR = PAUSE .DVAL <>4<>* OR  FOR =  DRAW  FOR  GO SUB K OR CODE  GO SUB B  MERGE ACS ( RESTORE O* OR ~#fo~ LLIST N# BEEP  FOR  MOVE <>> LET 2ATN Df CLOSE # CLEAR  LET  COPY  COPY  STEP :A* OR  INVERSE [O]! GO SUB  STEP [B]@- DEF FN  CLEAR ?/z COPY  RETURN   PRINT <>! LLIST 6#©~ATN  TO  INVERSE @ RETURN [H] BRIGHT  INVERSE 8 FORMAT  RUN  CLOSE #7 RUN INKEY$ RUN  LET  RUN [P] RUN CODE og"sABS @CODE  BORDER x COPY LEN /▝ PLOT  _ COPY  CLEAR  COPY  GO SUB Q▞IN Y;INKEY$▜SGN ▜ CIRCLE POINT   RETURN * OR F THEN  INVERSE /VAL$ 0PI IF  INPUT #~USR  NEW  DEF FN w IF  LIST [P] COPY  RETURN 8 VERIFY /© LOAD #"▛@h COPY & GO SUB [ OR ^ DRAW #V INVERSE s_r" NEXT @<>: MOVE (CHR$ ) INPUT  IF [M] OUT  IF E( DRAW S*l+[J]F<><> RUN  REM  NEW  LLIST  IF EE CAT f POKE  THEN  POKE  GO TO f IF  CONTINUE  IF d INPUT  INPUT  BRIGHT FN N[T]DpLN  DRAW > THEN INKEY$nn( NEW BIN r▞= COPY   INPUT  GO SUB C7@x<> INVERSE ~ATN CHR$ (▗5[M]T~ > STOP  LIST ^[E]s NEXT PI PLOT   DRAW PEEK ©([J]Mee RETURN G THEN w(E POKE ? POKE  NEW NOT FN  RANDOMIZE B THEN o !$`~RND GO SUB D INVERSE ▚E,3NOT NOT L<=ACS  RETURN >=  PAPER NOT B DATA  STEP  BRIGHT >=[L] STOP 8 CONTINUE  RETURN  BRIGHT IN ` PAPER iB VERIFY 8! CLEAR |@G~LEN w? CONTINUE  OVER x VERIFY  LINE | RESTORE B= FOR F) PAUSE vou;▟t[J]ACS  RETURN  BEEP O SAVE  AND i_CODE ▜3 CAT ]NOT  IF  RETURN 0[U]O FOR f RUN POINT  y3[N]<>*[A]yz2 LET  RUN %SQR CHR$  FOR <> DIM  TO  DIM  BEEP  BORDER SCREEN$ ! INPUT ~▝> VERIFY w SAVE  LOAD 8 SAVE  FLASH C;USR > NEXT wNOT ?A NEW  READ  PAUSE  VERIFY  RETURN yH R3INKEY$ VERIFY &qd CLEAR <> RANDOMIZE  INK [H] STEP --^>=? GO TO <>© RANDOMIZE  OUT GTAN CODE BIN  DRAW  LOAD p>= NEW  LIST * SAVE ~?BIN  INK BO READ >=NOT  MOVE  NEXT A OR ▜O[U] INVERSE ~H DATA ATN * OR |F INVERSE  RESTORE  LLIST 8q8p INPUT  IF 6 " FOR  RESTORE BSTR$  COPY  LOAD ~LEN POINT w<>C FORMAT  CIRCLE { CIRCLE !CHR$  OUT  CIRCLE  FORMAT  INK [D]▗ DEF FN @s@[D]# CLEAR TAB  RUN  AND  GO SUB y{~NOT $8JnINT f LIST l/Vo THEN Z  CIRCLE ^▚ COPY CHR$ /C THEN B( DRAW NOT 5C INVERSE [G]o THEN ~# RUN k^ BEEP  THEN ABS  OVER  DEF FN  RETURN /= STOP { FOR [Q][L] DRAW  FOR [O]~#W#^6 MERGE ~<5CHR$ [F]Cf[H][H]rNOT  RETURN  `- OUT BO DRAW ▙G▜ SAVE _ INVERSE qCOS uyt[K][K]s FOR N(* OPEN #< OPEN #▚# DRAW  OR CHR$ >=C STEP  LET  LET  CAT BIN X(N_[J] DEF FN  STEP CHR$  STEP  COPY ▚ RETURN -0▜_ COPY !*DV#NOT  RESTORE  NEXT C!WDTAB ^ LET  FOR  MOVE  THEN bSGN [S](m GO SUB R3AT V(N▛F NEW `COS STR$ STR$  ERASE a%i<TAN _ RUN a OUT CODE <>] READ [M] BORDER q<[L]PEEK s FOR 7k PAUSE 'VAL$ N▟ POKE [O]OEXP u'5 RANDOMIZE USR $(W' IF h CAT [A]PI[Q]▝@]▝; AND  DRAW ▞ LPRINT  OR AT [E]}h S@@▝. RETURN  COPY  LIST  STOP  VERIFY  LINE PEEK TAN SCREEN$ [Q] COPY [H]▜©xqke COPY _ZUPLGC@ COPY <9520-*( COPY &$"  COPY  GO TO 2 COPY CHR$ s COPY ~ DEF FN  INVERSE  COPY ~ RETURN @ PAPER AT `ATN [D] LINE  DRAW  POKE dAT  POKE [F] POKE [A] POKE  OR nCHR$ fCHR$ ^ POKE V}TAN  LOAD  OPEN #{SIN  CLS  GO SUB RD CLS  OVER  BORDER |ATN CHR$  CLS } RETURN  PAPER d ERASE ? OPEN #]![U]C INVERSE [P] RESTORE USR ATN (* COPY  RETURN  01 INVERSE # PAUSE 3 PAUSE  COPY  PAPER [K][J]t RANDOMIZE  RETURN  INPUT RND ERASE  SAVE  LLIST 4 LLIST  RETURN NOT  OPEN # NEW  LIST NOT > BRIGHT ATN <> OVER  STEP   CLOSE # BORDER NOT [B]7 STEP +ACS [I]ACS "t STEP ▛t! STEP t- PAUSE Ptl<CHR$ 7t RESTORE !~= IF Zt#"t▜_▜_!^#V LLIST  RETURN `8 RETURN 8 PLOT   RETURN ▘8 RETURN 8 GO SUB  VERIFY [R]goNOT 7ty AND O▖[B]GNOT t`iSTR$ <> GO SUB [tog RETURN P CIRCLE }| INPUT og RETURN ` CIRCLE }| GO TO  GO SUB SRNDt#~# RETURN P8 RUN ++ GO SUB [ATN  GO SUB RDM STEP at STEP wt*t GO SUB s LINE t RANDOMIZE  LLIST ~2Rt#"t LLIST  LLIST  GO SUB s,t1<> COPY !NOT  DRAW OE[H]2*@_▝D!▛5CHR$  RETURN  @6G STEP  OPEN #LN ~AX$BS OR  CLEAR JC ERASE >▛PI COPY IN  COPY  SAVE  LINE B@<#[M] GO SUB yC]ATTR =▘NOT  RANDOMIZE <> VERIFY [U]`a▜©O~2 NEW  OUT B# CLS  PAUSE  CLS  SAVE fo" POKE NOT  STOP @ VERIFY q CONTINUE  IF  A LPRINT  LLIST f FOR 3C:"f BORDER !▖: LIST g< RESTORE < LLIST  TO [E]B DRAW  RETURN `8Hp[A]LEN  p LINE ($[S]▝D% RETURN 83 VERIFY [R]2 INK J CLOSE # DEF FN 9OBIN  ERASE B> D RETURN  GO SUB S FLASH @<>> COPY  INK  PLOT  !Z BRIGHT INKEY$`▟q▜D"t> INPUT _ THEN y LLIST  AND  RESTORE KUdCHUwmUy READ ▖RNDAU AND [E]URNDSQR CODE  BORDER  GO TO ▞LEN UINT ZACS [G]Z CAT [Z▗A[Q] INK  OPEN #TSTR$ <>▖W[E]Z▟d MOVE ▚AZLEN  PLOT  yATTR ZZ INK ZSQR q RESTORE [C]ZEXP  GO TO Z COPY jZ[N][Q].B!ZlSIN YZCDCODE [R] BORDER  GO TO VAL Z*▛Bp OPEN #*I/<> OUT ZINKEY$▙d,B▟Z▖ PLOT  y>=2ATTR  OR Z INPUT SCREEN$ ZC BORDER  RESTORE  GO SUB sCHR$ sx~= BRIGHT  PAUSE SCREEN$  SAVE  RANDOMIZE >2[Q]J NEXT  PAUSE #"[J]Be4▝T GO SUB  RANDOMIZE  RANDOMIZE  MOVE  LLIST "& DRAW SCREEN$ 1O PAUSE PID~ NEW <CHR$  MOVE ▗▘[B] IF O< NEW  COPY 25CHR$  NEXT [I] NEXT SGN  REM [w[H]▟ BORDER E DIM 8'USR yEXP o IF [F]g~C COPY  NEW Wt DRAW  PLOT   FLASH  COPY #~PI IF C COPY  NEXT D THEN w LINE !C RETURN #^ NEW  CHR$ .z THEN  GO SUB R FOR x REM  FLASH I PLOT  ©INKEY$ DEF FN ▚▜vD COPY  RANDOMIZE  MERGE "zD{EXP ▟{V GO SUB C2▛{ NEW S{x#[A]{o[B]{ BORDER [I] DIM  LINE { RUN { IF [Q]n{NOT PICABS >=zTAN lz GO TO zACS wMx|Kx▙[D]x OVER x▗nxINKEY$ OUT xD RESTORE x RUN x BORDER h DIM cKx▗ BRIGHT x  IF (<>x/ CLS ABS  FORMAT x<LEN D LIST xF[N]USR  PAUSE © COPY *@ GO SUB s[Q]E CLEAR  RANDOMIZE  LLIST ~2@ OVER N[R], LLIST USR @kA*L PLOT  [Q] PLOT  K OR  PLOT   LET ; FLASH TAN BN.BIN CODE gb!z LLIST {D DRAW p GO SUB VAL =#q CAT  RETURN " FLASH @1[a▗+USR  ▗- INVERSE ~E RETURN  PAPER AT ` INVERSE  RESTORE STR$ ! CLOSE #~ RETURN  COPY ( RETURN   ERASE AT `SQR  CLOSE #%t## GO SUB _<> INVERSE ~FINT  ERASE AT `!K~#fo| RETURN  ERASE AT `{ RETURN   ERASE AT `{▜ RETURN a ERASE AT `ATN  LINE AT `G# STEP jt~+<CHR$ AT `~<CHR$ AT ` INVERSE  RESTORE STR$ !R#A~ RETURN @> PAPER 0> ERASE 2yt~ RETURN @ PAPER AT `## PLOT  >ATN <> STEP CHR$ t>▝O▖[B]G STEP it STEP LEN t!*u5 PAUSE t4 STEP t GO SUB StNOT t`iSTR$ STR$ STR$ <>!PI GO SUB R  GO SUB C+t FOR ~#▜8 STOP #"2to&▜o0$ GO SUB sft RANDOMIZE  MOVE  LLIST "LN t LLIST "t1<>!(u5 LIST 4'u< RESTORE  TO 1t LLIST  STEP t GO SUB Spt<>w<>>= RETURN ( AND  AND !8 SAVE  AND l CIRCLE  AND  8 CONTINUE  AND 8 NEW  AND 08 DIM  AND ( READ =( LLIST =( OVER 2t CIRCLE !)u5 LIST 4 STEP t GO SUB SLN t<> RESTORE "+uE~#2t~▜STR$ ! CLOSE #_T"2t"5t GO SUB s!u!K RANDOMIZE  LLIST "Tt RANDOMIZE STR$  LLIST |<  CLS !9PI GO SUB BDM GO SUB {Tt LLIST |< }<( RESTORE  LLIST  PAUSE R*+u RANDOMIZE >A LLIST  RESTORE  LLIST =  RANDOMIZE 1<>NOT  CIRCLE g COPY ! SAVE NOT  INVERSE G_L5CHR$  AND  COPY @6> STEP  COPY AyATN  3> PRINT ? CLEAR  STEP %I^# POKE V:-C RUN  COPY N#F FOR  LET _ATN  GO SUB  COPY B"7C>CHR$ 8 LINE 2 COPY BC&k8l[P]U REM R":CrNOT _9NOT iSIN E FLASH NOT sEVNOT ~E<>nNOT vEBNOT [O]g6NOT FN G[NOT SIN GjNOT  INK ABS G)NOT ASN  FLASH  OR @BCHR$ |D COPY SQR F INVERSE }2 DRAW KCODE BIN NOT R#( COPY ~#N▜0> PLOT  2 COPY L[R] PAUSE |" INK @o▝<=0 CAT $ GO TO y2 OR BCHR$ FD▞ GO SUB  RETURN sA RANDOMIZE  LLIST "% FOR  BORDER  CLS fC DRAW RNDE[P]1 LPRINT <>!L DIM 5 LIST 4 VERIFY  COPY < TO  CIRCLE @ STEP [T]A GO SUB [M]S OVER <>2 LLIST  REM I[P]#FN 2KBCODE STR$ F NEXT O GO SUB CD^A3VAL l CLEAR _Id0 LPRINT ▜B NEW < IF ▝d READ } DIM (' RETURN L>▜7 LET Coxg"/K[I]o PLOT  ~>ATN  BORDER  OPEN # RANDOMIZE xB OR NOT  CAT  BRIGHT  AND  RETURN !8l$R ▝ RINT  DRAW =[D] POKE [L] NEW ( OR =[P] CLEAR 2▛L RUN `VAL CODE  >=hoRNDIN j< NEXT SQR  RETURN ©(2SCREEN$ 5LEN  RANDOMIZE  LIST  POKE [L] SAVE SCREEN$  STEP I" RANDOMIZE CNOT .CODE  PRINT  RETURN "2@ LET  AND  RUN Ilx3f>[I] CLEAR  TO  CLOSE #5) NEXT go"COS A IF O BEEP ATN >= IF =>NOT  CLEAR >=+[T]<> DIM  DATA } NEXT SGN  . IF ,[P]" MERGE ▜_0 COPY  FOR  GO SUB s*C RANDOMIZE  COPY STR$ > THEN q(sSQR /C= NEXT ▝ THEN y NEXT ATTR AT / ERASE YCOS CGBIN oO LET &D) RANDOMIZE  RANDOMIZE  CLOSE # OVER STR$ ; ERASE CwPEEK  RESTORE  COPY  `=^ CLS K THEN [L]0 STEP STR$ ex RESTORE m STOP p © INVERSE k"1CSTR$  COPY CODE  THEN i(=▘ PAUSE  STOP B DRAW  RETURN  LET  DEF FN (T COPY 4 PAUSE Wy NEW  FOR 9"+ LIST  PAPER PEEK _pEXP QH THEN  NEXT [P]GTAN z)TAN $ATN  ERASE MD GO TO  GO SUB | OUT  THEN r(L PLOT  EXP ^ PRINT ACS 2 CLEAR K REM  LET >$}L STEP ~$k CLEAR  RETURN  PRINT  THEN |NOT T GO SUB SSQR  PRINT >=▙ LIST  LOAD USR  GO TO ! PAUSE  COPY CODE  INVERSE . COPY <=!ASN  RUN IN  STEP  OUT C3 FLASH f DATA 2COS =BIN ▜ASN D RUN BIN D"▛}2[I]FN  CLEAR [L]LCODE nBIN NOT D POKE BIN ABS  OR  READ EXP f{BIN SEi CONTINUE BIN J OUT BIN  BORDER  CLS BIN TAN D OR NOT Oa▜AT BIN W.BIN SIN k}BIN  NEW CODE D[BIN  CLS BIN ^E[K]NOT . PRINT  INPUT #2Z COPY BIN  RUN l[B]TAN 3&SGN > CLOSE #v CLEAR E5) POKE BIN  LOAD  LOAD A6E POKE BIN s RESTORE BIN  PAPER >=3[T]SGN BIN [ MERGE  CLS BIN fEo BORDER BIN 6SQR kE OVER BIN HATTR  CONTINUE PEEK  ERASE [F]E STEP BIN % STOP BIN wvPEEK  INVERSE ]GTAB BIN [T] DRAW BIN m PRINT BIN ▛{BIN mEg CLS BIN Ed SAVE BIN TAN 4 POKE BIN .+ STOP BIN $ AND  CLEAR BIN  RETURN b~BIN _ PRINT ^BIN ▚[A]ABS BIN  RUN ©BIN  LIST  IF  GO TO  LET BIN  PAUSE  INVERSE }BIN  PLOT   CLEAR oCODE BIN !ATN COS STR$ F CIRCLE RND; LLIST 23 FLASH STR$  AND F_ASTR$ IN  OR "SGN  TO 2 BORDER  CLEAR  PAPER &WATN STR$ GzSTR$  DRAW b READ  SAVE COS =STR$ [C]TAN G POKE STR$ ▞o▛STR$  BORDER  CLEAR STR$  NEXT  STOP FNOT ▙VAL NOT  VERIFY STR$ [E]G[G]STR$  INK i>STR$  BEEP %GTAB STR$  CLEAR STR$ [N] STEP GNOT . PRINT o!2[H]©STR$  RUN Hl NEXT 3[D] CLS ># FOR  FORMAT 5)^STR$  OR .Gu COPY ASTR$ SIN ^STR$ [[T]>=[T]; OR STR$  MERGE IN ACS STR$ RNDG RETURN STR$ sSQR SCREEN$ Gm DATA STR$ ATTR  SAVE 'G ERASE  CLOSE # MOVE BIN b^STR$ ,w CAT [STR$ ATTR  RANDOMIZE STR$ m REM STR$ [D] PLOT  STR$ AT G CAT  PLOT  STR$ ]G<> LET STR$ 4i CONTINUE STR$ mW OR STR$ $▟ IF STR$  COPY BIN  DRAW STR$ PEEK  PRINT ABS STR$  CAT zSTR$  RANDOMIZE  COPY STR$  LIST  PRINT  GO TO  FOR STR$  RANDOMIZE  CLEAR STR$ $©IN STR$  RESTORE !FI:2 BORDER  RETURN [K]!. STOP I^ COPY  OR N# RESTORE F NEXT  MERGE  FOR TAB  AND  THEN 8 NEXT q#pH  READ  PRINT  MOVE  SAVE  LLIST #STR$ ▝ NEXT  RESTORE E[T]~CODE # FOR 1> COPY )~▜STR$ ! CLOSE # PRINT _T[D] AND [U] BORDER !R? STOP  GO SUB s CLS H RESTORE  STOP "[A LLIST [H]Cz VERIFY E![C]Ls; NEXT w COPY  NEXT ACS E LLIST  RANDOMIZE #~ RETURN  DRAW @0>A LLIST H RESTORE PIFN  RANDOMIZE ![A]K STOP  BORDER  LLIST  OUT  CLS @h NEW  RETURN }&([L] LPRINT  PAUSE ▛LEN + REM ▛#>=_ACS ▛ CLOSE #+PEEK k RUN  MERGE 3CODE RNDQ OR  RESTORE  AND RND DEF FN  MERGE  PRINT CRNDLN  OR  LET  PRINT -[F]▟ASN  AND  RESTORE RND OR M INPUT ▞!TAN LN SGN SGN  SAVE  DRAW VAL$  AND /s,CODE TAB ACS CODE  LOAD u+!I INPUT !IKSIN IN SCREEN$ NOT  COPY >K▜ AND ^o DEF FN I TO [F]gf FOR <>▜ MOVE O POKE  PLOT  f COPY  AND  DATA Jm DATA <>[P] FLASH <> LIST   COPY USR VAL P DRAW  LPRINT USR nVAL  @ COPY USR [A] STOP pB CLEAR [Q]SCREEN$  COPY ASN 2 COPY [E] POKE  COPY F LET  LLIST  POKE % COPY [R] LET FN  NEXT X CONTINUE  LIST  NEXT  LET NOT  NEXT G/ LIST 5 LET G PAUSE y LIST  LET # PAUSE COS W LET [O] LIST  LET p PAUSE z# LIST  LLIST T LET z< LIST  LLIST  POKE  LET } DATA  MOVE BIN h LET  PAPER  MOVE . LET 6 LIST % ERASE  LET CODE /O▝.: COPY Lg CLEAR  COPY  GO SUB iBIN IN  CLEAR a<> STEP (K, DRAW  DRAW A! PRINT q# DRAW dnINT !© ERASE ~ POKE  RETURN ( FOR CHR$  PRINT > RANDOMIZE B GO SUB yC LET  DRAW  INVERSE : POKE  OUT V=(ABS , BRIGHT  CLS LN  CLS VAL$ COS  OR ,*ATTR L&; CAT (▞ PRINT IN >LN  FORMAT o[G]=s RANDOMIZE i! COPY  INPUT { PRINT ATTR =`▚ RANDOMIZE LEN <>VAL /RK INVERSE ~ RETURN  PAPER AT ` RETURN 3 ERASE AT `CODE o:r_ AND USR g INVERSE  RESTORE STR$  GO SUB BMD INVERSE n INVERSE f INVERSE ^ INVERSE V RESTORE CODE  GO SUB B LLIST  ERASE AT `CODE  GO SUB R ERASE AT ` FOR  INVERSE ^ INVERSE V RESTORE CODE  GO SUB B LLIST  ERASE AT `CODE  GO SUB R ERASE AT ` FOR CODE  GO SUB B ERASE AT ` INVERSE ^ INVERSE V INVERSE  RESTORE STR$  FOR +~<CHR$ AT ` INVERSE ~ RETURN e ERASE AT `o& INVERSE N INVERSE F! GO SUB B ERASE AT ` INVERSE N INVERSE F!ATN  GO SUB B ERASE AT ` INVERSE N INVERSE F!LN ATN  GO SUB B ERASE AT `>ATN <> INVERSE ~ RETURN  PAPER AT ` RETURN 3 ERASE AT `CODE o:r_ AND USR g INVERSE  RESTORE STR$  GO SUB BMD INVERSE n INVERSE f INVERSE ^ INVERSE V RESTORE CODE  GO SUB B LLIST  ERASE AT `CODE  GO SUB R ERASE AT ` FOR  INVERSE ^ INVERSE V RESTORE CODE  GO SUB B LLIST  ERASE AT `CODE  GO SUB R ERASE AT ` FOR CODE  GO SUB B ERASE AT ` INVERSE ^ INVERSE V INVERSE  RESTORE STR$  FOR +~<CHR$ AT ` INVERSE ~ RETURN e ERASE AT `o& INVERSE N INVERSE F GO SUB B|ASN CHR$ AT ` INVERSE N INVERSE F!ATN  GO SUB B ERASE AT ` INVERSE N INVERSE F!ATN  GO SUB B ERASE AT ` INVERSE N INVERSE F!ATN ATN  GO SUB B ERASE AT `>ATN <> RESTORE !Q STEP EXP ` MOVE BK2t:-_ RETURN (2VAL$ t STEP  CLEAR t" CLOSE #t2ACS t GO SUB SFN t CLEAR !q!- PAUSE ItH STEP u GO SUB S>tA"7t!- PAUSE at INVERSE M STEP u GO SUB STt INVERSE i"Mt!- PAUSE yt INVERSE L STEP u GO SUB Slt INVERSE a"etx INVERSE TAN  INVERSE ASN 8 CLEAR NOT 6tPEEK  :$^$V CLEAR  COPY Q CLEAR  RESTORE  LLIST PI GO SUB B FOR s$r!> COPY < RETURN   CLEAR " RUN t RETURN _0<2ATTR tCODE Wn&PACS :t NOT w}2[I]t▜▜bo STEP  RETURN t">t STEP  CLEAR t"Tt STEP  CLEAR t"lt CLEAR "[L]t INVERSE !NOT 6t CLEAR  RESTORE  LLIST <> FOR ^#V# FOR <>2tCODE ( VERIFY ( PRINT 8 RETURN 8 RETURN ( RETURN   RETURN `8<( VERIFY  LET 0 OVER  AND 8 AND @8 FOR  AND @g NEW O READ l RETURN V FORMAT USR <>!NOT @LEN k©CODE  IF Df COPY  DRAW CODE 2E/a CLEAR QA<`>▜ SAVE ADM~#?r@:-_ POKE  RETURN ( POKE  LET %A STEP 7 IF ATTR [R] IF LN x2 GO SUB SICODE ATTR  STOP H▟w GO SUB  SAVE VAL =2HIN ANOT  OVER @[P]!COS 5 '6 CAT :[H]!E▞ACS >? DRAW  THEN G TO A DEF FN  INVERSE ! LOAD  STEP mQ RANDOMIZE  FOR  REM  RANDOMIZE >= RANDOMIZE  FOR  GO SUB [O]KLN  STEP YCUSR [I]PEEK VAL$  LPRINT  INPUT @ INPUT & INPUT *% MERGE  INPUT [Q] INPUT  INPUT :? PAUSE E!FN p CLS  CLS D FORMAT ▜w COPY IN  COPY  SAVE  =+G NEW ACS x  NEXT  PLOT  B GO SUB y THEN [T]ABS < RANDOMIZE ATTR  RANDOMIZE = PAUSE  INPUT @2 MERGE  SAVE <> FOR ^#VSTR$ USR #@ COPY > COPY < RETURN _8 OPEN #CODE >[U]_>!8~▜▚ BRIGHT bo BRIGHT  STOP E RESTORE 0 CONTINUE  IF RIP THEN [S] AND ]P CLS > CLS CHR$ >='a CLEAR IW<> POKE PEEK  COPY LEXP  DRAW  INVERSE 5 LIST N THEN ACS [I] DRAW PEEK CODE yw CLEAR  LIST  LPRINT LEN ^©V RETURN ` COPY  PAPER  CAT B!▞A RESTORE  VERIFY  RETURN  LIST 0W AND 8B$ J@ DRAW [P]@ BEEP <>[K] DRAW  CIRCLE  STEP  OPEN #A INVERSE u BORDER INT t NEXT 9 PAPER z NEXT © NEXT <>y THEN (n CLEAR  COPY O<>▜&o~NOT #f)7[H]INKEY$:BIN USR @ SAVE  NEW 6<<> RETURN ZAON7H DIM  COPY &9;<> DRAW C<=TAN  OR NOT [P] BEEP <> STEP RNDB CLOSE # PLOT  >=<= RETURN e GO SUB }| COPY  RUN  GO SUB D MERGE 2aE RANDOMIZE ▜o[P]g) COPY  DRAW  FOR > COPY u[ GO TO ▘ VERIFY `N RESTORE F VERIFY ! STOP  MERGE { RETURN V8@ LOAD _~ STEP  INPUT DTAN  MERGE D RANDOMIZE  FOR  RETURN BIN A MOVE ATN  GO SUB R▘BIN  COPY  PRINT  RESTORE 0 FOR CODE g[J]o PAUSE : STEP ?FN OCODE  NEXT ▝8[B] LLIST j DIM  PLOT   FOR c LLIST  RETURN  LET 8/_xGyO[J][Q] FORMAT XsINT r CLEAR  AND  MOVE #c▜ COPY 0 INPUT  SAVE  AND 5 LIST  CLS ACS <>PEEK >[B]~"^tn(c DIM [G]f IF  OVER `f STOP vg IF  IF = FOR  PAUSE  DRAW B DATA ▗ LPRINT Zt READ v " NEXT [J]nf[J][D][D]RND DATA  VERIFY ) DRAW [O] DRAW ▙N DRAW ~ f STOP  STOP f STOP  STOP 6N REM f([J]HPOINT [J]STR$ c[O]c< LOAD  POKE [C]▚<>CODE  IF  DIM N l IF V READ (f STEP  OR C CAT ATTR D POKE ^ [D] OPEN #▜▚ DIM 2 LINE 4 RUN N CLEAR [P]/ NEW U| BEEP  DEF FN [N][N] OPEN # INPUT ABS  RETURN  THEN DM[P]NATN ( IF AT  NEXT C INVERSE 5 LLIST & LLIST NOT ^{VO[J] GO TO  LLIST  OR [F]0 IF  INPUT " PLOT  <>D SAVE  CAT ▟ RETURN 0[P] RESTORE 7O GO SUB  OUT  DATA  DIM y STEP [H][T]?CHR$ T]~#▟NF RETURN   LIST 8& THEN © STOP o OPEN #(X DEF FN [J]==▝ REM C PAUSE V CONTINUE 3 DEF FN  DEF FN i RETURN  LIST YO{mZW[A]_uH GO SUB :x NEW  DRAW v POKE  IF  RETURN  FORMAT  DIM  INPUT ( IF VAL$ 13 VERIFY [D][D]xH COPY  NEW g CODE  RETURN 8>>=W+[P]▘ CLEAR  NEW  LIST p DATA  OPEN # AND  MOVE n(SQR ` LLIST  FOR sZy▜ COPY  THEN EXP / RETURN ! CLS H▚w<>[P]<=[T]D RETURN  LET  DEF FN  DATA CHR$ * COPY  DRAW /<> STEP ?)AA5A( LIST g CONTINUE ! CC SAVE  GO TO i CLEAR ]Ox|[T]▛<>y IF  NEW  GO SUB DLEN  IF ▙ COPY <>▜ CLEAR _!bEw<>`>= COPY  LET   BRIGHT  TO ▟"▘ LET  GO TO /LN  VERIFY X BRIGHT  LPRINT nh[M][P]@n NEW [B]4AN PLOT  VAL$ 4kH,/ LIST ATN h▘[A]O[Q] q NEXT >=[S][R]B{▝W6 SAVE  BRIGHT STR$ $FN ([A]y d@P▝=, LPRINT H CLOSE #P>= ABS @SIN ▝FN [P][G]▟~ w@p▝jd^YTP K@G▝C?<852 /@-▝*(&$"Y STOP  STEP [T]y OR  CIRCLE AT ? RANDOMIZE 3a NEXT >s AND  GO SUB G COPY ^!TAB `" COPY s: SAVE z RETURN  ©!V"` COPY w:E_ATN CHR$ NOT t STOP  STEP ka DATA (x CAT  LET  CLEAR Rv CLS LEN ! CLS "▘b[P] CIRCLE  "> COPY  INPUT 2Kt CLEAR © COPY  GO SUB y:_/ NEW  CLS y RETURN  INPUT  DEF FN 2x RANDOMIZE  CLOSE #[U]t:_aATN  >USR IN  FLASH  DRAW  ERASE v STEP T LLIST  IF  CLS u GO TO gATN [F]t CAT > OUT  DIM  THEN W( RETURN 6INKEY$~p CIRCLE [R]6PI!INT ~/ COPY w[H] INVERSE D STEP  LPRINT [U]`PI: BORDER [R].USR [S]ATTR & SAVE %CHR$ ATN t/#-©  LIST <> STEP  OR INKEY$n PAPER u=z STEP SCREEN$ u' NEXT >v LLIST t)` FORMAT  OPEN #ATTR k{ATN  PAPER (l RESTORE =  CLEAR [O] STEP s INVERSE !/©2#n INK  SAVE 8Ha>>@2Ya>=X TO zACS  RETURN ACS 02Su FLASH  COPY  RETURN >"{u [S]z COPY   GO SUB CV> VERIFY SCREEN$ 298 LLIST  PAUSE "[I]|INKEY$@: SAVE  VERIFY 8>[P] MERGE  INVERSE .<=▛~ GO TO #e DRAW ▚X_ INVERSE -CHR$  COPY Xu MOVE { AND  _0CHR$ z ERASE W{!k}4 COPY INKEY$ GO SUB Kkv CONTINUE  BRIGHT x[P][D]MPIW NEXT a!USR @RND POKE NOT {`A LPRINT [P] CLEAR  THEN  BRIGHT  NEW RNDu CLS  FOR  THEN  CLS  PRINT [E] CLS  LIST  CLS  SAVE 8% GO SUB [LN " CLEAR CODE R(CODE * COPY l|ATN >=%<>INT  FORMAT ▜$}3 PLOT  - CLS SQR NOT  FORMAT , BEEP  LLIST CODE  DRAW > RETURN TAN _NOT Dp(ATTR  COPY  BEEP PEEK USR  STOP L_E2 COPY ATN  USR !?v OR  STEP 5 FOR [Q] DIM ▝▙[F]4 GO SUB  LIST [Q]©5 DRAW >= GO SUB [T] SAVE ▟qCHR$ ▝ COPY &©(' COPY i IF w= FORMAT EXP  LPRINT >SCREEN$ pcv8 DIM !P" BEEP [K]v[H]SQR  BEEP ▛ FOR 0 INK  NEXT VAL$ :X_ LPRINT STR$ EXP  PAUSE ATN (GFi[T] IF !▙ RUN  CLEAR PI|PIM INVERSE g OUT h[Q]  PRINT [M]2 MERGE wX GO SUB PEEK  VERIFY !/▜ OR  PLOT  v LPRINT  RESTORE !EXP SGN " LLIST O FLASH  VERIFY  0 NEXT CODE <2T CONTINUE =ABS _s{3{*POINT PIs▘o DRAW |2 AND w} LLIST 8 OR g[P]@ INVERSE  SAVE k INK  GO SUB y[O]|<CHR$ | GO TO  AND   PAPER  CLOSE #/ RETURN  GO SUB [Q]a OPEN # RETURN ~ BEEP  INVERSE ] INVERSE  COPY Hz NEW  LLIST  [U] MERGE O COPY  NEW  AND ▙W[H][K]uAT [K] GO TO ?[K] RETURN  MOVE  INVERSE } VERIFY ▞ LPRINT o CLEAR _[P] NEW  SAVE ▘WATTR  INVERSE % COPY CHR$ w STEP ua<>^▗ LPRINT ,( COPY  SAVE -NOT Qw$CODE  STEP  CONTINUE LEN  INPUT + PLOT   MERGE  CONTINUE ; CONTINUE NOT ATN E DIM  LOAD 7 RUN  INK © DRAW  RETURN  NEXT >USR   DRAW ▗ CLEAR g<>*z} COPY SGN STR$ o|PI RANDOMIZE g"SQR  RUN u<> STEP VAL u©©I INK  INVERSE E LPRINT  PRINT H RETURN INKEY$2EXP x, MERGE _ VERIFY >(BIN 8▚$} VERIFY 2ax RESTORE  COPY VAL$  DRAW  INVERSE M@ CLS SGN STR$  DRAW  RUN CHR$ Zx[T]RND MOVE &@ RETURN  OR .Ez©[O]  GO SUB VAL $STR$  OPEN # PAUSE  FOR Px DRAW <>} AND 0[P] DATA  FORMAT , TO  INPUT ?  RUN >=A0 NEXT ,y TO y NEXT  ERASE  VERIFY [G]PEEK $I[S] INK  INPUT ▘ COPY W<>[O]y!z IF  STEP a X|G RETURN 8NH[A]?(4D GO SUB [B][ IF ATN (< RESTORE VAL$ 8{.JU COPY  CLEAR "kvAT[S]] PAUSE k POKE  OUT 4r_ RETURN  PLOT  0$+ COPY SGN  PI<>> FLASH 2 OR x CLEAR n IF y} BORDER  FLASH 8SGN 7<> DEF FN  RUN ('  NEXT [▜8 AND ▚LN _ GO SUB LN ![B]BIN z RESTORE  NEXT [E]BIN > LOAD x READ NOT c IF hr$ COPY ~sPINOT  STEP ck RUN {▞VBIN = COPY >= RETURN ▚85> STEP  BEEP  LIST y REM  DIM USR & FLASH ▚EXP 8 PRINT  CLEAR  OR y=2S_ CAT  FLASH [aCODE STR$  CONTINUE  LET [B]< VERIFY SQR [O] POKE  COPY /NOT  DATA c` LPRINT ]!u_:m_ RETURN C >CODE !R COPY "=/><>2CHR$ / CLS v NEXT :▝bz0{8? OPEN # RETURN ![{2▟/2H/Z>G STEP SGN `= RETURN ( CLS  STEP da RETURN 8 STEP a LOAD & COPY E STEP EXP `& LPRINT  STEP EXP `&^^u" GO SUB VAL !X' INK 1> COPY ! READ  CLEAR  THEN INKEY$ CLS NOT v>>>[P]ATN  CAT  BORDER  NEXT ? RANDOMIZE © DRAW  COPY  RETURN NNVVNNVV^_WW]]W_EGGEGEEBIN `NOT rNOT iNOT {NOT ▟NOT ▗NOT [G]NOT FN NOT &BIN /BIN  OVER NOT NOT NOT INT NOT [P]NOT  TO NOT  MERGE NOT BIN  BORDER NOT BIN BIN BIN BIN LEN NOT BIN BIN  LIST NOT  LIST NOT BIN  LIST NOT  RANDOMIZE NOT  LIST NOT BIN  RANDOMIZE NOT  LIST NOT BIN  LIST NOT BIN 8BIN [E]BIN xUSR USR x[E]BIN xASN x)<=xxSCREEN$  BEEP x[U]xSCREEN$  BEEP xCOS }SCREEN$  BEEP x▘ RUN y▚ INVERSE xx▖ OUT x LPRINT  STOP x<>xLEN x© DATA xZz<>xLN /xSCREEN$  BEEP xLN |x DEF FN xx ERASE xx▝ RANDOMIZE tt© DATA xxr STOP xxr STOP xUSR x© DATA xUSR x© DATA x<=z© DATA xUSR [J]z= OPEN #xx[E]BIN xUSR ▗y[E]BIN x CIRCLE  NEW y= OPEN #xUSR x=H L BORDER 9I)!IH!$ CONTINUE <  BORDER :9)H!P!:=@ G49I`!J0!'dGcATTR  COPY X COPY h COPY  PAPER F[I] COPY jUSR rF READ  COPY < LPRINT [Q]CHR$  LPRINT  POKE  COPY USR  CLEAR 0 COPY  RETURN  CLEAR ©▝IN  OUT  CLS vCODE  SAVE  OPEN # RETURN :?_[M]( ! STOP  FLASH  LLIST  CIRCLE © STEP ©`NOT  CONTINUE g DRAW  LLIST y NEW O THEN   CIRCLE [J]{ OUT BIN (▞ THEN  STEP USR a_NOT ▖ RETURN ,. RESTORE :ryABS  [ FOR [M]USR STR$  PLOT  PEEK  MERGE  GO SUB [Q]> RETURN  MOVE  FOR  STEP 9a'ATN & IF USR arCODE <> DIM Wa[Q]<c}x"ij8 LOAD >2ty LPRINT  VERIFY  TO [I] SAVE EATN (2 STEP INKEY$ OR n! COPY USR  INVERSE .}T] THEN  COPY INT  GO SUB VAL o$ COPY | NEW   LOAD  STEP >aSTR$  INVERSE -USR  CONTINUE vBIN 0z LIST  INVERSE !y<#n PLOT  >VAL `>2caECOS  POKE  SAVE ABS LEN  [U]PI![L]71 FLASH O TO  PAUSE  CLS <>C OR   NEXT O VERIFY O MERGE >( ERASE y LET  DATA  RUN  DEF FN < CLEAR SQR ?[P][T] INPUT <= FLASH DACS NOT 8=CODE  POKE VAL SGN S< BORDER  PLOT  <NOT [S] NEXT  THEN  CLEAR COS ?[M] STEP EXP `& RETURN USR ] FORMAT  COPY  OVER ABS VAL & GO TO  RESTORE USR [E] RESTORE ! LIST >=X CLS Q~,{ DRAW # INVERSE b[R][[E]NOT } INVERSE  OUT  REM  LLIST  # STEP ^z(9 GO SUB  MOVE 6! BORDER _=~/▛wATN [N] TO  STOP  RESTORE |<=X^ DATA  READ  BRIGHT  INVERSE ATN  PAUSE  RANDOMIZE  STOP : OVER 3 RESTORE ^ RESTORE  INPUT  COPY !INKEY$ CIRCLE >T THEN INT IN ] DRAW LEN  LET <>[D]STR$ > COPY SCREEN$ /2IzW THEN  DIM Z$ RANDOMIZE | RETURN  INK 8 PAUSE  BORDER  DRAW INT @ GO SUB s▙z NEXT  READ 2f READ INKEY$ LLIST  RANDOMIZE  MERGE  BRIGHT  COPY  COPY  COPY t GO TO } VERIFY  LPRINT o[P] NEW  RETURN  SAVE ▗g LLIST 1;IN $CODE  COPY !6{[Q] FOR COS  NEW  LIST  OPEN #w COPY  THEN  CLOSE #,a POKE  OPEN # COPY  THEN [E]? POKE  RESTORE $LN   IF AT b POKE ~ INVERSE USR  COPY SIN  CODE  COPY 2 OUT z OR  INVERSE ~ THEN oPEEK [J]IN _}CHR$  DRAW o INVERSE ^X,pn CAT [P]&[U] CLS ACS $5 IF  INVERSE  BORDER # COPY y NEW  READ  STR$  IF x AND Gf/ATN y/O[P]/G RETURN  CIRCLE 8CODE SCREEN$  LLIST VAL ▖ COPY  LOAD  COPY sP<=DUUSR W©[N]* LET ATTR SQR STR$  LIST [U] LIST k OUT  STEP  COPY Wa! FLASH  STEP  DRAW SGN `& CIRCLE USR EXP " LIST %x! RESTORE S? DATA [E]BIN NOT [C]_< OVER :~/ RETURN $ LINE  PAUSE ▝y©0 SAVE L0POINT x CLS l(m[P] GO TO PCHR$  CONTINUE g*▝n IF D[M]PI GO SUB Rw CIRCLE  LINE 9y- LET E[M] LET exNOT  COPY  OUT >POINT G STEP  COPY  FLASH y8HV COPY PIx PLOT  0 THEN  STOP !8s  NEXT  SAVE ? RETURN 8  FOR ▖_ RETURN  DRAW   COPY ~#<>= DEF FN  COPY  INVERSE o LINE  OPEN # PLOT  © VERIFY  INK ogZ0_ LIST _NCODE 2STR$ sUSR CHR$ y PRINT  INVERSE  COPY . COPY  INK  M RETURN [J]ASN " LINE CHR$ V# COPY 2'8 BORDER <>©FN (8 PLOT  0 COPY  NEXT  VERIFY  AND  FLASH  RETURN  RESTORE  RANDOMIZE   THEN >=FN 8SIN <> RUN  RUN SCREEN$  RETURN  CLEAR 0 LET  INVERSE -|`SGN  RETURN $ STEP  BORDER y5z4 PRINT  FOR  POKE  RETURN AT x LINE  CIRCLE gc OUT + COPY # INVERSE ,  INK  LLIST [B]7 PRINT STR$  RANDOMIZE G LET K0 STOP ▞PI ERASE | RESTORE  INK  LLIST  COPY ~ VERIFY USR 8#>= COPY G~0@ THEN 8 #[P]CODE 58 CLS ▗@[M] CAT - AND  FOR ©~ NEW  PLOT   SAVE G NEXT b COPY  NEW g  RUN  THEN  COPY < RESTORE n`G DEF FN ▚2 STEP  DATA G[A]O THEN ▘ OPEN #w READ  LET  FOR - LIST _ INK (#[P]8ABS  STOP [E] LPRINT 0 IF + NEW  TO  LLIST SCREEN$ ▛rx INVERSE x7 LET {0 DRAW  BEEP }BIN ~_ NEXT - NEW  COPY  PLOT   SAVE USR  INK W▜[O] INPUT  CIRCLE  COPY  NEW  DRAW  INVERSE g<> THEN "USR _ FOR ▝ FOR NXTAB  NEW  SAVE ,G9AT  FLASH  COPY O<>USR  MERGE  INK > LET ATN [D] LLIST  ERASE _ >=9 NEW  DIM g` AND ?{[G] RESTORE o LLIST z[J]g SAVE | NEW  CIRCLE  RETURN  OVER (O}a LLIST LEN <=)9 LET g PRINT  RETURN  LPRINT TAN oa STEP ]zqy OUT >CHR$  NEW ©>=}[O]w G GO SUB  INPUT  IF LEN  OPEN # NEW ?ABS ~ STEP  NEXT ^z CLS W[T] IF ~ INK  THEN |©9w#(+$▞ LET   SAVE   LPRINT  COPY  SAVE  AND 0 LPRINT = INK <> COPY ©▝IN  OUT  LLIST y COPY  THEN gUSR  NEW  { LET  RETURN (!x DRAW  STEP USR a_NOT  RETURN L>8 NEXT  GO SUB s CLEAR LN  AND  COPY >=(x BORDER  STEP aUSR > DATA ACS 2 RUN  LLIST  POKE !B COPY H STEP {`vFN  LIST  LPRINT  USR <[I]VAL ▛ FLASH  NEXT @ STEP EXP ` CLS &[Q] CONTINUE  RANDOMIZE w CIRCLE ▝ PAUSE  LPRINT USR  LPRINT ▜xSTR$ [A]EXP VAL  RANDOMIZE [Q] CONTINUE ▘ RANDOMIZE  OR [O] DRAW A.] INVERSE O MERGE   GO SUB VAL  SAVE  MOVE  FOR  STEP 9a[P] INVERSE -  LIST <><=! TO " RESTORE ▙pINKEY$ RANDOMIZE  IF 8_Sy<>:~ DRAW _ RETURN 8 LINE INT z>+([K]'3 TO [O]3 CONTINUE LABS CHR$  SAVE |:E_ATN _ PLOT  y STEP WaSCREEN$ g IF © CLEAR VAL ` DRAW ! LOAD x"ij BORDER v FLASH USR  STOP  STEP SGN ` COPY ua CLS v CLEAR © RANDOMIZE > GO SUB ySIN CHR$  STEP  OVER 1+:1VAL R[P] INVERSE yNOT ©[N] LIST B INVERSE  DIM 3 LIST  STEP PI GO SUB  CAT  GO SUB  MERGE L MERGE  LPRINT ! NEXT  OVER " CLEAR CODE  MERGE =  MERGE  PAPER [P]▛ MERGE  LIST G MERGE X LPRINT `[E]LINKEY$[K]v FORMAT n/ FORMAT  LIST RND TO  CLS [P] FORMAT m FORMAT j FORMAT - LIST  FORMAT NOT _ DATA @!▟ RETURN  STEP  NEW y POKE zCHR$ ▖y{ LPRINT  SAVE   FOR 6 INVERSE #LEN  DIM W LPRINT  PLOT   LLIST  COPY ©<>! BEEP y~ATN  LIST >=#"ATTR ~g. RESTORE Eg AND <>@VAL  LLIST <> FLASH CHR$ IN y& RANDOMIZE  MOVE  LOAD  OR  OPEN # IF LN  LPRINT  CONTINUE  LIST  SAVE  DRAW y[ CAT NOT {6 LLIST 1ACS "awSTR$ r NEXT  AND  PAUSE TAN SIN SQR z COPY  TO  RESTORE x2ATTR z RANDOMIZE g IF TAB  IF SyCODE ! CAT  LOAD  RETURN  STEP  STEP INKEY$n CLS v!} NEW ^ > RANDOMIZE  RUN #~s▖z-K= OVER INT XS|Z PLOT   RANDOMIZE  MERGE  FOR  COPY PEEK S[P]#gINKEY$@kO RESTORE  RESTORE  MERGE  GO SUB [Q]a# RETURN  MOVE  LLIST  BORDER $|  STEP BIN } AND  DRAW o_8| VERIFY /gz ERASE  DRAW WCODE INT &!RND|Z#nNOT % LIST 3fUSR  DRAW  CONTINUE  COPY VAL / LPRINT [A]IN  COPY aH/!USR o FOR z©AT  PLOT   STEP [N]CODE `J NEXT NOT  POKE  PLOT   LIST  GO SUB VABS  INPUT NOT CHR$  CIRCLE x COPY /@:r_GU COPY ©k GO SUB LN  FOR  RETURN # STEP  AND @!TAN A MERGE W7INT oUSR [O]INT  AND [I] STOP ▞[N RUN EXP H STEP  NEXT @c!▖ THEN ▙[P]Ij STEP ▗PIb OVER !▟Y SAVE 6E,c COPY  CLS e@>F STEP  BORDER a CLS <> PRINT  OR  COPY ><2j@ NEW  SAVE ▜ AND ▚o DEF FN [F]>=▟ RETURN H FOR  STEP )iSTR$  LET O OUT 8D RANDOMIZE ▜▘@( SAVE ▗F DATA  SAVE n0A SAVE ? RUN dX(CHR$ D8BIN B) OUT  SAVE Ps SAVE 4LINKEY$ RUN  SAVE  RESTORE !/p INK  COPY  LLIST BIN  ! AND  INK  RESTORE  LPRINT  MOVE  OR ©zW GO SUB [Q] AND SIN  IF  VERIFY / GO TO STR$  STOP  INK  LIST |,( BEEP USR INKEY$ COPY  RETURN ▖  LINE N# THEN  RANDOMIZE <>>@ STEP ATTR  PLOT  <>CODE A RANDOMIZE  IF  COPY @=( INVERSE o_OATTR   RANDOMIZE  COPY  INVERSE }@ RETURN 0%3 FOR  OUT  CLEAR  FORMAT > MOVE  THEN ! TO EXP = CAT  GO SUB [G]<> GO TO  LOAD ABS (VAL 8ABS TAB  RETURN  PLOT  8=▜ INK 6 RESTORE  FOR <>▙ REM 8 MOVE  FOR  VERIFY EXP  DIM  REM  RETURN <>_ INK  THEN a CLEAR s0r|:PgqH DRAW sN  MOVE  COPY 0 SAVE <>[Q] CONTINUE FN ▛ LIST VAL  SAVE ▖,[A]LN ,[I] LPRINT ,pUSR ,x>=, FORMAT ,ATN  STEP ]a~ DRAW # RETURN 8 PRINT V(F RESTORE g BORDER EXP M THEN x COPY   STEP ©` LLIST  NEW  READ  THEN LN  GO SUB  RANDOMIZE  OUT >2 BEEP caIN ,!-H_7_( LIST !3}W PRINT 4 LIST 4▗ LOAD Y COPY :!STR$ z^? DIM ,} STEP Sa COPY *+_t@COS 9 FORMAT CHR$ NOT  PRINT  LIST CODE 2E_yINT z8 COPY  CLEAR  Image@: COPY r_ RETURN ,>(2NOT POINT | COPY ~TAB ` STEP a! COPY $x"ij:E_ RETURN ATN  m STEP VAL p GO TO HaABS ▗z!3 CAT  DIM 1 DRAW [ STEP  COPY ;y:_!K DRAW  STEP  PAPER `"jx*▝x AND  GO SUB G1 COPY CODE  OPEN # RETURN Q COPY NOT  STEP  LPRINT `![I]X GO SUB  COPY VAL  CLS v INVERSE !rx) OPEN # DIM NOT >= y[D]ywx INPUT [N] INPUT & INPUT CHR$ ly NEXT  INK  CONTINUE  STEP  OR INKEY$n[A]W▝IN  INVERSE .}T READ ] THEN INT y PAUSE SGN  DRAW o$| NEW   STEP >a INVERSE - NEW 3[T]@[T]USR 3[T] BORDER :?KATN ( SAVE x LINE [L]N LINE ▗yz CIRCLE  VERIFY RND LOAD [I] LOAD TAN @i LOAD [M]h LOAD <= COPY  CLEAR ©z GO SUB y INPUT  POKE WA GO SUB  POKE   INPUT  INVERSE  COPY  STEP #n INK  OR  CLS ]| INVERSE [F]W OUT ▙ IF  LOAD <>| DEF FN  GO SUB Q INK :} BORDER <>K~ DRAW [*▘PINOT + DIM  DIM  RESTORE >[D]SIN p[D]mphpABS >= LIST USR x LIST  STEP  PRINT [L] PRINT  CIRCLE  COPY  SAVE  COPY <>CODE  FLASH  RETURN / NEW O COPY !C_~[R]CHR$ <=y NEXT 6>o INPUT  STEP  ERASE  DEF FN IN <> SAVE  CLOSE # SAVE PI CLS  SAVE y> CLEAR & PRINT  RUN > RUN  LOAD  BORDER  ERASE EXP y SAVE  THEN O[Q] LINE  RESTORE TW IF RND<> PAUSE _ FOR  PAUSE g[N] PAUSE  DIM 3 INVERSE y IF NOT  CONTINUE g^_ COPY r>2caCODE  OR  DRAW ASTR$ >? GO SUB GlVNOT  CLEAR K!_> OUT  TO [S]0zBIN  DRAW Bj[P]0 CLS  ERASE POINT zTAB :BIN  POKE SCREEN$  READ Kz MOVE <>[E]- LOAD  RUN  AND  LOAD [O]N READ  COPY ( PLOT   COPY o SAVE U INPUT  LOAD NOT  RUN  RETURN ~ RETURN  FORMAT 4ATN >=5su3x COPY  BORDER  NEW  LLIST  RESTORE  STOP  DATA  READ  SAVE  COPY  RETURN  RANDOMIZE  CLEAR  IF  DRAW  CLS qA RANDOMIZE QaiYIdh SAVE  PAPER q> COPY :>_ATN !.z INK $mL(:fD RUN u IF } RETURN y INK zTAN  RANDOMIZE PI FOR  BORDER [L]( CLS [O] DIM USCREEN$  INK  OUT !USR  INVERSE  SAVE &@ STEP  INK zLEN  BORDER M RUN 00 RUN 6 INVERSE #. DIM <>./ STEP  OR ©{▛SGN  INVERSE  NEXT %  NEXT <> LLIST USR 4 LOAD  LOAD  LLIST x AND OIN  GO TO | NEW  POKE  RETURN ( OUT <>[N]▝ FOR  FOR ) READ  RESTORE  RESTORE  DIM  INK  MERGE  COPY ▝ MOVE O RANDOMIZE  NEW Gy COPY < RANDOMIZE LN ( OPEN # CAT  CAT x@SGN 0n|POINT _<=[T]INKEY$INT c FOR  FLASH  INPUT [P] INPUT ▝{NOT  LIST z TO 6 INK t GO SUB P LIST  THEN ?[P] NEW  AND Qw[U]# LOAD <>X READ  RUN .ABS  INK <>)EXP OK CLEAR ) INPUT  PLOT  EXP  CAT BIN [U] PLOT  -(NOT  INVERSE  POKE CHR$ ▛{<> CONTINUE  COPY  NEXT Ox RETURN  PAPER ?| LPRINT  VERIFY [E][L] ERASE YAT wILN 4; STOP 5(;D%▝NUSR 0&▞9 PAPER  COPY ATN >=G6# CLS <> RUN  RANDOMIZE 9STR$  RANDOMIZE  CIRCLE  LIST  VERIFY  DEF FN f STEP  PLOT  tf CLEAR { NEXT =STR$ <> NEXT 1 CLEAR [S]| OUT P PLOT   PLOT   RUN  DIM SCREEN$ / NEXT %/ DIM  CIRCLE  COPY DO COPY  POKE  LLIST  RESTORE 3;Ny POKE [R] LIST ? PAUSE  OR  STEP I|STR$  CIRCLE 3C CONTINUE  OR  LLIST  MERGE  INVERSE  RESTORE EXP < [Q]Ax PRINT  INK | LLIST  MOVE STR$ 97Zh RUN  NEXT  RETURN 8 NEXT  FLASH  THEN  DATA  NEW <=7 RETURN VAL$ © RUN  COPY  NEXT ![I]STR$ |" AND PEEK >^_ COPY ^CODE ![G]| CLS = DIM  COPY  LLIST ^ THEN ZW[D] COPY [B][P] PLOT  [Q]  DIM VAL <>! COPY [~ STEP a COPY CHR$  CIRCLE g: NEW O SAVE  NEXT  STEP Wa SAVE :E_ATN CHR$ ATN ~ PRINT  ERASE VAL ` NEW < NEW ? LINE SGN y RETURN  LLIST  PAPER  CONTINUE ▝ BORDER z!H>= LPRINT ▛ CLEAR  STEP ©`USR STR$  RANDOMIZE |Ha@ ERASE  INPUT  PRINT  INVERSE ©POINT @ CLEAR *FSTR$ LN :?ASN (>2NOT [G]y▜[O]hCATTR  OUT  CIRCLE ?USR  SAVE O COPY ~q RESTORE  MERGE | VERIFY  CIRCLE [P]▜ COPY  PLOT  USR g THEN  OVER  LOAD W GO SUB  CIRCLE $^ RANDOMIZE  RETURN  MOVE  LLIST #CODE / FOR ? RETURN | RETURN  FLASH 8[R]An©A{>ABS TAB ;ca ERASE  LPRINT  MERGE /! SAVE y"ijXSq RUN ▜ CLEAR G DATA  COPY 1 DRAW [CODE  OPEN # RETURN  CLEAR  RANDOMIZE ©> GO SUB y LIST  STOP XCHR$ 6 COPY  INK  GO SUB VAL O<=:_! STEP  SAVE  PAPER `"ayY3~[R] RETURN  GO SUB GPNOT  STEP  LPRINT LVAL$ /[J] THEN  FLASH  FORMAT  BORDER  CLS v1LEN  INVERSE !>=iy PAUSE  NEW NOT  OVER [F]y LIST ASN © LIST :zSTR$ NOT [N]ACS ym PAPER  LPRINT  CLEAR <> REM  CLOSE # CAT TAN USR  SAVE ` POKE "INT yk DIM  GO SUB Y INK  MOVE ; CAT  LET STR$  CLEAR  RANDOMIZE PI[N]NOT  OUT !SGN <=>+)F PRINT sUSR  RUN s>▜: NEW }:>2cCHR$  LOAD [K]POINT  RANDOMIZE [ INVERSE  RESTORE = BRIGHT  LLIST  LPRINT  RANDOMIZE <=@ MERGE [M]/ CLEAR  LLIST  INVERSE nNOT cx PRINT INT  LPRINT  BORDER  OVER }.VAL w_ CLS r PRINT ^ COPY  PAUSE  COPY <=CODE  FLASH  RETURN / NEW  COPY O!C_~[R]CHR$ [F] RANDOMIZE z6>o INPUT  LIST  ERASE [M]z.IN M SAVE [S] SAVE  CLS ? SAVE  MOVE > CLEAR  PRINT 0 RUN >P RUN ? LOAD  ERASE ▜z= SAVE  THEN O LINE  RESTORE RNDW IF <>/ PAUSE _/ PAUSE g PAUSE  INVERSE  DIM  LIST  FLASH D RETURN ATTR zNOT  CONTINUE g_RNDCODE +++ OR  COPY )STR$ >? GO SUB GVNOT  RETURN VAL `!_> OUT  LPRINT [S]COS z DRAW ASN {[P] CLS  ERASE  GO SUB z[L]TAB {▞ POKE SCREEN$ <={[S]<>[E]Y LOAD  RUN  LOAD  READ @ COPY ) COPY SQR ~ COPY  RETURN  FORMAT 4 STEP LN { FOR g RESTORE NOT  RUN ~ATN STR$ >=5 COPY y BORDER  NEW  LLIST  RESTORE  STOP  DATA  COPY  READ  SAVE  RETURN  RANDOMIZE  CLEAR  IF  DRAW  CLS  COPY qAQaiYIy[T] SAVE q: RETURN >_ATN !#{ INK $1L(:*D RUN 9 SAVE IN [P] GO SUB VAL  INK "CODE [O]yA!IN  RETURN ?BIN [P] NEW  COPY  AND ▝w, LLIST  DRAW  RETURN  COPY 8 FOR :_O> SAVE 0[B]2v|XM▝Sm IF P0 IF e[H] FOR  INK  RETURN >@ STEP  FOR AU(|( INVERSE  PLOT  ATTR  LET PI6 INVERSE #p DIM <> LET  RESTORE  CLEAR ▗▖ LLIST 7<>6 INK 3 LET  GO SUB  CLEAR Q? RUN <>y AND O INVERSE  RETURN ~G NEW _[B] REM wPIx OPEN # RETURN  STEP 0+ CIRCLE  DIM $ OUT  DIM _ PRINT  STEP |▞ INK LEN [T]{ RANDOMIZE SQR mBIN [O]LEN TAB  LET = ©VAL$ IN  STEP <={ PAPER  COPY ~O AND  STEP }O POKE 8 VERIFY  POKE G▝Ox PAUSE  RETURN  LIST y VERIFY  MOVE /NOT M RUN NOT G[Q]NOT  GO TO NOT STR$ O INPUT KSGN  STOP BIN SGN >=&BABS <>nABS >`N RANDOMIZE ACS ]/ DATA  STOP INT  OPEN #(  SAVE ^INKEY$ TO STR$  LET ▝ CIRCLE OSCREEN$ ▗<>Y COPY <>+ POKE  CIRCLE - NEXT  FORMAT d? POKE  NEW  COPY <> VERIFY '6 OR  STEP #[I]TAB  CLEAR |P@[G] CLEAR <> RANDOMIZE INKEY$ CLEAR  CLEAR  RANDOMIZE m CLEAR 9<> LIST  CLEAR  CIRCLE N NEXT ;D SAVE EXP  LET 53 CLEAR 4 INPUT  RETURN  STOP F0EXP D COPY NATN >= VERIFY  AND  DATA _ RANDOMIZE  DEF FN }[D]W STEP 25g RETURN LN  AND TAN  LINE LEXP  NEW  CLEAR  COPY  PAUSE  PLOT   STEP X}SQR  MERGE  BORDER fPOINT ▟) LLIST e? LLIST  POKE  VERIFY ▜ AND SGN ▖COS [I]_wTAN  DRAW >SCREEN$ <>CODE |SGN 0bB MERGE ▝VAL$ SQR >= CLOSE #TAB INT  <=@ OPEN #▝AT EXP  AND  ERASE ATTR LN   OR @ MOVE ▝SCREEN$ ATN BIN  FORMAT POINT ACS  NOT @ CAT ▝FN ASN CHR$  DEF FN PITAN  STR$ @ STEP ▝INKEY$COS USR  TO SIN IN   THEN @[U]▝LEN PEEK ? POKE  CAT CODE  TO  COPY "<>/ AND  COPY ,SGN  OVER )EXP  CLS  FLASH  BEEP  OPEN #ACS 6IN  FLASH ATN _ FLASH DV PLOT  [L] CLEAR ~E PLOT  $ CONTINUE  PLOT   READ  IF 54 SAVE [K]-^ COPY  CLEAR ) CIRCLE 8©<> COPY  NEXT  LIST !J~"qPEEK >[H]©{^CODE !H~ CLS  COPY = DIM  LLIST ^ THEN Z COPY W[D][B][P] PLOT  [Q]^FN  RETURN bsp COPY  STEP INKEY$nEXP |>TAN  OVER  PAPER ~ READ CODE N;|P INVERSE .]TAB SCREEN$ 0PkPI INVERSE  COPY oF@▝OINKEY$ STEP [O]© PRINT  FLASH  INVERSE } RESTORE  NEXT USR > NEXT ! GO TO COS  CIRCLE  LIST  LPRINT [P]v BEEP  VERIFY  FOR  LIST [I]X@ LIST 5 xBIN  REM  INVERSE LEPEEK  AND /© INVERSE ▜ INPUT Gn[T] GO TO ACS ALN  READ l OPEN #- PLOT  [M] STOP  PRINT INKEY$TAB [U] IF E> INPUT _=  PAUSE <> INVERSE & COPY  OR bk> RESTORE  MERGE { NEW  MOVE  LLIST $[M] CONTINUE STR$ { AND ?_8z DRAW  VERIFY W INVERSE % Z<> PAPER y RUN / NEW  TO 2GeR_~ INPUT w NEXT USR  GO SUB y RANDOMIZE . COPY -CHR$ J©  NEXT  CIRCLE <> COPY ABCD COPY EFG COPY HPX ` COPY (h0p8x© COPY ▝IN  OUT  CLS vCODE  COPY  OPEN # RETURN <> LLIST y THEN g  STOP  POKE  NEW ~{ RETURN ($O BORDER  DIM ! RETURN x STEP USR a_NOT  RETURN '> GO SUB V COPY _"ij STEP Wa! STOP  LLIST © STEP ©`&COS EXP  RANDOMIZE ACS TAN © RUN / NEXT  GO SUB s CLEAR LN  FORMAT  COPY  CIRCLE <ux RETURN  MERGE LN  STEP a [M][U]x[O]BIN >ACS 2J LIST  GO SUB = REM IN 6G CAT  NEW SCREEN$ INT ©> COPY 2SIN }:E_ATN  CAT  Nn>2 FORMAT caABS ^SCREEN$ ©!L VERIFY  OPEN #USR  OPEN # OPEN # OPEN #@LN ▛© LPRINT  RESTORE  MERGE [I]ATN  STEP  NEXT  LPRINT ` MOVE  LLIST  BORDER  CAT  GO SUB VAL  LOAD  STEP INKEY$}1;FN D GO TO a TO yL@G,S LIST  TO  NEXT VAL © READ  RESTORE nFACS NOT [O]LEN @nLEN >=&CODE 8ly0[L]hUSR  RANDOMIZE A5 CIRCLE XSTR$ TAN PI VERIFY EXP &[I]TAN Xm LET LESCREEN$  INVERSE !LN  COPY POINT #n GO TO .INKEY$> RANDOMIZE ]▜ NEXT = BORDER   LET <> GO TO h]~▘$ AND  DRAW O, COPY  PAPER } AND o0|/gz COPY  DRAW W <=<> CLEAR  COPY ©:_/ NEW 2 BORDER CHR$ y![~ INPUT  DRAW wUSR  GO SUB y DRAW  RANDOMIZE .-CHR$  OR   NEXT <> DRAW  LPRINT [L] RETURN  DRAW COS [Q]@[B]USR ?! STEP yNOT ▞[R]©#Xw LOAD  CLOSE # PAPER E PAUSE b?0Ha:r_ BEEP  RETURN 7 LET [R] LINE Q@=5z©[J](BIN  RETURN I DRAW *^ STEP  READ y/t{EXP  SAVE J COPY  DATA O}ATN BIN  NEXT zi DRAW { STEP  DIM  FOR  CONTINUE } RESTORE FN INKEY$©INKEY$C_ DRAW  POKE  GO SUB svzVs_ BORDER _SCREEN$ w_ AND  CONTINUE  LLIST [P] NEW  COPY [Q]g. RANDOMIZE  INVERSE ! LIST uz{NOT 11Dd DRAW ▝]9{0ABS SQR  BORDER FASN  LINE z_COS  OVER [K]fATN LEN IN 4ATN [S] ERASE ATN ATN PEEK  INK ATN  INVERSE GI~▙<= OPEN # GO TO <IN  OUT D LPRINT  POKE K/ PLOT   IF :_ LPRINT NOT  IF  RANDOMIZE H[ CIRCLE  LPRINT  RANDOMIZE _? DIM & STOP  INVERSE .0| COPY ] VERIFY `W RESTORE  STEP a{ RUN  LLIST $]▗ SAVE ▜9$ INVERSE - MOVE   RESTORE  THEN  REM [I] LPRINT K THEN NOT  THEN  RETURN COS . PRINT zPEEK  COPY  OPEN # LLIST TAB q [Q]hAT EXP [C]<= VERIFY PEEK W<= COPY l GO SUB [Q] CLEAR +w# REM d{ LOAD  RUN <>! COPY  OR ATTR  COPY ATN >` MERGE  READ a CLS  LLIST = LOAD  PAUSE <>9AT ;"ASN PIASN `>= STEP <>VCODE SIN  LIST !▜| COPY ~ INPUT w>! OUT  LPRINT D(STR$ C" BEEP _| BEEP i PRINT  LINE SQR  CLS  LINE <> CLS >= CIRCLE  BORDER  STEP  BRIGHT { IF X>[G][A]c RETURN  THEN  READ g INPUT ▞ FLASH  TO  TO V TO INKEY$ DRAW  TO |! VERIFY EXP [L] RUN <>! MERGE  CONTINUE  FOR ▗u PAPER  GO TO <> RESTORE  DATA  STOP  SAVE  BEEP  INVERSE  CLS  TO [C]{ RETURN  CLS CODE 2 INVERSE  CAT { GO SUB  RUN  RETURN |7{PNOT w SAVE  FORMAT {m STOP  GO TO Y COPY  GO SUB 5|©5 GO SUB IN y GO TO 3IN x GO TO ▛|{C BEEP  REM ▟ IF  REM EXP  INPUT |SGN  REM 2[S] GO SUB K[A]LEN (" IF <> LET  DATA ATTR SIN w< DATA t[D] READ |ATTR ▜ STOP :▝▜Wm RESTORE  BRIGHT  BORDER 1{ BRIGHT SGN  RETURN FN  CIRCLE PEEK 7.h LIST |<> OVER  PLOT   NEW pI[G]}?| RETURN   LIST 6#! CLS NOT  GO SUB ya CLEAR SCREEN$ ~ THEN 0 LLIST { AND z[D]W RETURN n VERIFY 6 FOR  LINE  DIM <>CHR$  CLS IN BATTR  NEW ▜}USR  PLOT  b+STR$  INVERSE !STR$  ERASE hSTR$  ^L LLIST  SAVE " TO  CLEAR  CLEAR } PLOT   ERASE  PAUSE <>{▖ LIST wprt AND  LIST #RND CAT : NEW |▜>=<>ACS  OUT [O]1<=PI STEP SQR c PAPER k{© OUT ABS USR : COPY  RETURN .8* COPY "PI}.&:2w[H]TAB B FOR  BEEP D©[D]B IF CODE G BEEP [F]OLN  GO SUB VAL  FOR ABS [ POKE /{(` DATA c3 NEXT :O CLOSE #PEEK CHR$ N~INKEY$ STOP POINT  STEP  COPY [E] RUN VAL  IF ©VAL$ [Q] INPUT  OPEN #▞`INT <=Q' SAVE }TAB w INPUT  LET !ABS ~© LOAD © CLS NOT 0|! VERIFY  LINE ~[Q] NEW  TO  STEP  RANDOMIZE 0 FORMAT @ LET  INVERSE g#^ABS V GO SUB S BRIGHT SIN AT  OPEN #E CLOSE #bkCODE  CLS [P]8![L]sSIN NOT [U] COPY x CIRCLE  LPRINT  FLASH CHR$  NEXT  NEXT USR 6CODE  TO  PAPER t{p]ABS [A] OVER ( CLEAR z LPRINT USR p# DRAW  STOP `@ LLIST 0USR  LIST x INVERSE  LET  RESTORE  STEP  DIM ~ COPY  THEN DM LLIST  INVERSE %BIN   LET <>._w▜ PLOT  [J] RANDOMIZE ACS  SAVE CODE # BORDER ▝ INPUT <> CLOSE # OR  RESTORE  CONTINUE  INVERSE &|© LPRINT  STEP  GO TO ~y AND  OVER  O PLOT  BSTR$ ACS  MERGE STR$  DATA  LPRINT "©NSTR$  RESTORE Od MERGE USR  STOP TAB  STOP  [T]SQR { CAT  MERGE ? LIST  GO SUB VAL  MOVE z COPY  NEW   NEXT { VERIFY  LPRINT _ RUN [P] NEW  SAVE ▘| RETURN D▘© COPY  DRAW `~ RETURN  CIRCLE ,x^ATTR  COPY  LET PI}CODE <>MG COPY 1 DRAW H?ATN >= STEP ]a RETURN ~# RETURN 8 PRINT VF RESTORE  LOAD  DIM ]M THEN  FOR x  COPY  REM  LLIST  NEW  THEN LN / LLIST  OUT COS ~NOT  INPUT VAL ` PRINT  CLOSE # DRAW 2 COPY  DRAW  LET <>>PEEK TAB ` GO TO NOT a NEXT  RETURN :E_ATN CHR$ dzr RETURN 0  SAVE !VAL  STEP {`!/ CONTINUE  STEP p[M]y RUN [I] DIM  POKE  STEP & RUN >=r IF  LPRINT [H] OUT  OUT [K]>= RUN  RUN H PLOT  a!USR AT  POKE Wa CAT  INK USR  FORMAT  FORMAT @ ERASE  STEP r DEF FN VAL PINT USR  PRINT INKEY$ FLASH  BORDER  CIRCLE gTAN  INVERSE  RANDOMIZE X STEP TAN PEEK R LIST ▘ DATA  INVERSE ▖ DIM  LIST ▜x" DRAW ijTAB `> CONTINUE [F]aEXP VAL  GO SUB [O]@ CONTINUE SCREEN$  CLS v CLEAR ©> GO SUB 9 PAPER X LPRINT  INPUT [T] INPUT [C] LIST  LIST 7K DRAW x LINE  STEP  LPRINT LABS TAB ^NOT  FORMAT x>=l CLOSE # CIRCLE  READ  CLOSE #[C] CLOSE #ASN ▘© CLOSE #[U]x TO ©▝ COPY IN  LLIST y THEN gUSR  NEW  COPY  { RETURN ( DIM !> MERGE USR a_NOT [O]> GO SUB V[Q] RETURN  LPRINT = RETURN  EXP <>USR  OR  MERGE NOT  BORDER TAN  MOVE STR$  FOR  STOP  STEP 9agASN SIN  OR  INVERSE ▚ RESTORE 7bk THEN  BORDER X [L] COPY  LIST ^ RETURN  MERGE PEEK #  NEW  IF > BRIGHT CODE > GO SUB  MOVE !g CONTINUE CODE  CLOSE #▚, DRAW  DRAW  <wSTR$ r LOAD ▚[O] SAVE  VERIFY ([P] POKE 8 THEN F( STOP 5=LCOS 4<(J PRINT  LLIST ©CODE ATN (6!# NEW w DRAW p DRAW 6"p INVERSE }L DRAW |B[P]8R, RETURN B[Q] PAPER q#? RETURN STR$  INVERSE  LLIST CHR$ NOT [P]y▞ INVERSE STR$ > PLOT  USR y6<>? STEP INKEY$n[a COPY !-H STEP @IN c OUT [F]!BIN z STEP STR$ I INVERSE  LIST ( GO SUB  TO  POKE X▗bBNYY6}X CLS !EXP z{ GO TO  STEP S COPY a*+_t IF  STEP ©` INVERSE d FOR  FORMAT [P]CODE  LET k OUT  GO SUB V OUT  BEEP NOT xMC DRAW  Image PAPER  SAVE X RUN  GO SUB  LET Q1 STEP {[S]ASN [I] SAVE  READ  NEXT ! COPY " BRIGHT X IF ABS  IF 1r RUN  RESTORE  STEP n DRAW  GO SUB Y1 IF % DRAW " LPRINT  FORMAT CODE N IF STR$  CIRCLE /FN  RESTORE cB DRAW SIN  LINE IN  DEF FN / IF B IF xTAB '▘TAB xTAB '"R[A] COPY H©▝IN  COPY  OUT  LLIST y THEN gUSR  NEW  COPY  { RETURN ( DIM !LN x STEP USR a_BIN NOT  RETURN  LIST > GO SUB V©_ NEXT  STEP WaIzPI/:E_ DRAW ATN CHR$ ly STEP t RETURN  NEXT { CLEAR !://y" COPY ij>~TAB ` STEP  BRIGHT a CIRCLE  RETURN VAL `!X?USR  STEP  RUN SGN `& CIRCLE VAL  RANDOMIZE  CLS v NEW 0 THEN  MOVE bPOINT IN  DRAW  NEXT W LPRINT ` GO SUB s LET Vy!Cy1[[P][P]VAL  IF  FLASH !Ly? RUN LN  CLEAR © TO  RUN ▞ INPUT : LET ?y2Ep INPUT  DEF FN  SAVE :T` SAVE  CLS <> STEP INKEY$n▛!@ CLEAR xUq,▗ RETURN j STEP 9a NEXT  MOVE !USR  THEN [D]d LIST [K] LPRINT  RUN  RUN  INK d[L]:&@ INVERSE  POKE z MOVE T# INPUT n PLOT  8 LPRINT  SAVE > RESTORE  = GO SUB VAL  LLIST  CONTINUE  IF =z LET &sPEEK  STEP ©ASN F LET [P]z IF  RUN >T INPUT ] THEN [S]X LLIST [Q]H RETURN <> FOR  RETURN ATN  INVERSE  DEF FN <> CLEAR  CLOSE # LPRINT  LIST [T]pNOT  NEXT  TO x![D] NEW  STEP gAT [H] RUN ▚ RUN  LET !~ OUT ▜[L]<> IF [B]BIN # DRAW  REM jz<> RETURN  BORDER VAL  OUT  RESTORE  STEP [D] OVER LN  RUN  FOR  RETURN  INVERSE .6| DATA w+ DRAW q RUN 6 MERGE > INPUT  LPRINT  COPY [P][G] INVERSE -  STOP 6 COPY  DIM <>© INVERSE &0 CAT  DEF FN xLN L6 INVERSE % READ 5 FOR +[P]SQR  SAVE z LLIST &[R][H] IF BIN { RETURN n,>=&^V-$ GO SUB  STEP  BORDER z[P] SAVE  INVERSE # RESTORE  COPY { AND  _[D]W BORDER s,r FOR  PAUSE  NEW <>6 GO SUB [K]Qf CLEAR NOT  CLEAR U© CLEAR y<> COPY TZ][L][R]PITAB N DRAW [F] COPY @ RANDOMIZE LN  CLEAR !  LPRINT POINT  LET n{ STEP J^ NEXT [L] NEW  NEXT © BEEP  NEXT [I] NEW J NEXT  NEW 4 INK f▘ CLEAR  RESTORE [F]~w[I], CLS d[G]/ LET  LLIST [B] RETURN  LET [D]y BRIGHT ▞G COPY C?;71-)% COPY !KQW COPY ▖▗~ COPY zvrnjfb COPY [C][I][O][U]SCREEN$  COPY > COPY =CHR$ [C]{# GO SUB Q[A]> CLS ) LIST  CLEAR [S]{#, GO SUB Y TO  PLOT  AT {[L] REM  COPY <>[G] PRINT ATN ▞ FOR  PLOT   ERASE STR$ { MERGE <>+ TO  COPY  FOR  COPY POINT >= LIST  RETURN ; LINE [L]0 RETURN w, GO SUB  STEP t,TAN VC RESTORE (sH NEW ▝ SAVE  6, BORDER  BRIGHT (▞ NEXT  OPEN #E PAUSE  RESTORE INT  THEN >[A] THEN  REM #[I] STEP CODE  STEP 0 LLIST  OUT  CAT ATN [H] RUN  FORMAT  MERGE  COPY  PRINT ▜ RESTORE o&▖^, RANDOMIZE V LLIST 0B INVERSE [P] ERASE 8 PLOT  - THEN  CLS PEEK , LET  MOVE <>[G] INK  READ ACS INT  LOAD  NEW  PAUSE ATN  SAVE g CLEAR  CLEAR <> COPY 6 , PRINT }▜0[U] LET } COPY  POKE  RANDOMIZE  LET <>!▖ IF ▜▘s,r<= MOVE 0 RANDOMIZE  COPY  NEXT :~_ RETURN H(J DEF FN  STEP  TO 0©▝8S INVERSE  LLIST "CHR$ za6HBIN  IF VAL {[S] RETURN > STEP 2STR$ zCODE $ AND  TO  LET  LET  PAPER # OUT [Q] CIRCLE y RANDOMIZE } LET |2zaXf><> CLS yVAL$ USR  SAVE  DRAW `~NOT *v STEP CSGN  INVERSE INT p#USR STR$ u,2USR q8 NEXT #_SQR  ERASE P▝ BORDER INT 0 LET R( GO SUB  COPY ATN   LIST | VERIFY [Q] THEN  RETURN g"PIw:|USR | STEP (#[N]USR EXP `▜[F],~ NEXT .TAB e▟J MERGE _&l RETURN Tw$ IF v RUN & SAVE CODE  PRINT  MOVE , COPY  LPRINT ▗▚▖▞▛[D] COPY [E][G][H][L][M][N][O][P] DRAW [K][I][J]▝4u BORDER @USR BIN ([D]PIO# FOR 0 PAUSE  COPY  STEP 7uNOT  CIRCLE g
  17387O THEN [A] RETURN  COPY  DRAW   THEN  FORMAT  POKE c38#)k COPY  DRAW 0 THEN P '~LEN  VERIFY  SAVE  COPY M▘NOT H LET =VAL  IF 8 OR  THEN >=▗STR$ JwB DATA @{LEN  8[M] POKE TAB ( LIST  RANDOMIZE  INPUT  THEN H  REM ATTR  NEW  COPY [H] FOR  RESTORE  OR  VERIFY  THEN @ DRAW G! INK (>/PI~© CIRCLE 0x[G]G# NEXT  PAUSE  THEN ~[A] CLS CHR$  INPUT  RANDOMIZE  NEW ©VAL$  PRINT  RANDOMIZE  RUN STR$  LLIST  FOR  THEN Hd[O] RANDOMIZE <>LDI ERASE  DRAW  DRAW  PRINT BIN C[C]P PAUSE  DRAW O DRAW <> CLEAR BIN IN& PAUSE  DRAW D[D] DRAW <> CLEAR BIN  LPRINT OUT▖) INPUT B SAVE  POKE  REM  LINE RE LIST ` DRAW  DEF FN NA<= OR LBIN _PUS>=O FORMAT [A]AEXP 3UCHR$  IF NOT B(I<> ERASE XgVAL  FORMAT IN NOT D▛EB CLOSE #q STEP  OPEN #SB2 DEF FN NOT  DEF FN ` CLEAR  TO x ERASE SLSTR$ [Q]a IF <> PAUSE EXP E NEW  CIRCLE I DEF FN [P] CLOSE # STEP RSDJ OR N PAPER ▚ FORMAT rNOT AL CIRCLE F STEP  CAT X CIRCLE l TO DA[A]STR$ BIN "NOT " SAVE  RANDOMIZE N3▙H OUT  CLOSE #3AEPEEK C AND ~ CLEAR OR<=ENy ERASE Q MERGE W PLOT   READ  THEN DCHR$ D BEEP  STEP  OPEN # READ !AS▘COr BORDER LTATN N CLS  PLOT  D OR Oa DRAW H TO I9▙ INK SK COPY  AND (CPOINT CHR$ NOT BIN  OR  RETURN >= TO (HLPOINT STR$ B▖ LET DO READ H CIRCLE L INK l<> ERASE ▙tq=P CAT COS  OR  FORMAT LN O[J] DEF FN  CLEAR F DEF FN  LIST SPPOINT ArPIU1ASQR $ LLIST  DRAW _MAK OR [O]CLURINKEY$ RANDOMIZE BH4 INPUT ^R CAT LOm= TO ▙J8S. LOAD SQR  ERASE  INPUT STR$  CLS EXP  IF [R] CLS RNDPEEK o LOAD SQR y FOR  LOAD [B] IF c CLS m RETURN w LOAD ▞BIN :iFCHR$ R DRAW  BEEP  DRAW  OPEN #I OPEN #D"Ur SAVE  TO H[A]LS OR   CONTINUE P NEW A INK STR$  COPY  BEEP  RETURN  OPEN # PAPER  PAPER }~PI BEEP  THEN  BEEP INT  PAPER TAN } FORMAT }P}S}MPI BEEP P BEEP R BEEP [D] BEEP 8 BEEP ~ PAPER ▟}W[F] PLOT  [ COPY <_X__( BRIGHT JSGN  CAT SGN  PAPER  OPEN #CHR$ SQR CODE / MOVE CODE yCODE |[K]v POKE  AND cFHP OVER A CLOSE #UNr+LVAL  LET ) THEN  AND J ERASE CODE  FORMAT  DATA G CIRCLE PEEK B]G LPRINT  LET FN  STEP 9 AND  INVERSE ▚BIN  PAUSE  RETURN @K>©U DEF FN  FLASH  INPUT n CLS aPEEK ▚IX[A] DRAW Y0POINT C RUN  CIRCLE 5 CLEAR  INK  CLS sO GO SUB +A AND ?)Nk PLOT  L OUT 9i COPY STR$  FORMAT  STEP  PAPER  GO TO  ERASE <>"u©x2r_*_ STEP _ STEP Oa!USR "x STEP a##t STEP kx STEP Ha INVERSE ! GO SUB Ku© THEN LN  OR  STEP tSTR$ (==(: INVERSE "O_ INVERSE nc INVERSE f RESTORE :r_=G INVERSE $ STEP t("=(*u© INVERSE |SGN 8 INVERSE "3_ LLIST  INVERSE ^c INVERSE VCODE  GO SUB R 2V_<NOT |NOT  CIRCLE g STEP  OR 8|CHR$ kaCHR$ VAL ` RETURN <>|!XUSR EXP `` SAVE [q POKE  STEP SGN  REM  COPY y!m~G▞ GO SUB  LET VAL  STEP TzfG CLEAR a.USR SCREEN$ ~ OR PEEK }[J]OCHR$ `>=[E] OVER  OR  NEW   STEP  GO TO /. CLS sz▞vox; LLIST } TO ▚g!ATN  INK  SAVE |yBIN  RETURN z DIM > RETURN  FLASH 6 CIRCLE ©8 IF  ERASE  CONTINUE g LOAD ▛ SAVE <> FLASH  LOAD 0` BRIGHT  STOP  ERASE 1y~*5| BRIGHT ATN x4 DRAW  OPEN # DRAW [U]COS  DRAW ASN " GO SUB D[C]INKEY$ AND <>#▞+ PRINT  COPY  FOR *SIN zM&#)? COPY :4|ATN   COPY # FOR PI GO SUB R LET b TO  DATA  LET INKEY$4 BORDER DMsSIN $y DRAW (J DRAW  DRAW "[B] FOR ▜▘ OR _I,NOT [H] LET ,USR -<>[O]>= CLS %USR $©ATTR | RETURN  DEF FN gNSGN 8` CLEAR &] GO SUB [y AND 7LdCODE 2u RUN  PAUSE <>IN  BORDER # NEW :7/▘ COPY LEN NOT EXP `PI INVERSE ▘ STEP [N]y|LN  RUN >=8oh COPY >hCODE &[K],X%©T_ INVERSE Ex RETURN   STOP 8©s, DRAW <> INVERSE }? NEXT  FORMAT EXP >= PRINT ? SAVE [P] NEW _(VAL$ y STEP  LINE <=y LET xO DIM  AND @o& COPY X OR K q< MERGE STR$ <>: COPY [T]_>[D]0 GO SUB >=D25INKEY$5CODE (E SAVE  ERASE z OVER <> NEXT }IN &@LN XzBFN  BORDER , RETURN !8. : RESTORE wg[D] LLIST ACS  INVERSE ▜% LIST  SAVE <> RETURN ([B] @[P] AND 3|~/CODE wINKEY$&!4 PRINT  POKE T FOR  POKE 7 PAPER  POKE  NEW y PAUSE  PAUSE s LET : BEEP />Z!EXP ~>SV NEXT ![O]TAB  NEXT PEEK  DRAW  BORDER  NEW <=~ STEP  COPY  PAPER ` FOR NOT PEEK }@| BRIGHT CODE  REM  COPY h1 COPY  NEW  LPRINT ▝_? PLOT  @W RUN  STEP VAL zSTR$ ©IN { RETURN  RETURN 0▞O~V8 BRIGHT x▘G09 ERASE <> INVERSE 5▞lw RETURN  PLOT  BIN <>{ S RUN 7{ OPEN # INVERSE eATN  LINE  READ [H]{ MERGE  CLS  RETURN  GO SUB [Q] RETURN  RETURN  MOVE zsMCHR$  FORMAT { VERIFY  RETURN  LPRINT _[P] NEW  SAVE ▘WIN  NEW [U]EXP  MOVE ▞USR p▟9 MERGE ▙ CAT z COPY  NEW  AND  CIRCLE XW#.▟ FOR  SAVE ~i[H]VAL$  RETURN  MOVE <> MERGE ~# AND  DRAW PIg OPEN # MOVE NOT  GO TO -{ PRINT [S]myACS > FOR  RESTORE g CIRCLE w,x RETURN SQR  LLIST  OUT  GO SUB ATN  FOR  MOVE  LET <>USR { AND  COPY _ CIRCLE z VERIFY W<>▟ COPY  STEP x CAT a! RANDOMIZE "6_ OR :r FOR G RETURN ▝ OUT MPINOT  STEP c RANDOMIZE  GO SUB [5|!C LPRINT  RESTORE  STEP [O] PRINT . MOVE  PAUSE  LOAD SQR [S] PAPER ? LOAD {<(#z NEW  NEW  BORDER  NEW 62#5A CLEAR  REM  SAVE t CLS  COPY  AND 0w#<>/[B]▝ DRAW  CAT ▝p PLOT  p,_[R]LN  OVER i[L]'rzU SAVE {[C] GO TO TAN {y SAVE <> STEP La▜ LIST BIN P SAVE  STEP [F]_SGN WaSTR$  CAT a LIST  PAUSE  SAVE w COPY  GO SUB g,CHR$  LPRINT  CLEAR |$  LIST  BRIGHT VAL$ @ COPY s STEP }USR  FLASH  RETURN / POKE [S]>=> RANDOMIZE  BORDER  NEW USR h}HVAL$ y BEEP n COPY @7 FOR <>▞t CONTINUE VAL$ G&e SAVE VAL n RUN ▝ FORMAT  NEW  AND > ERASE OUSR  FLASH <> PRINT ;&CODE O RUN SGN ( STEP [P]nBIN 2D_ATN  RETURN goBIN b}"FN /->=% TO <>* RANDOMIZE ,o RETURN  CIRCLE - FOR &<>▜ BEEP  NEW  RETURN O!POINT }#~H[C] PAUSE PINKEY$?  PRINT ~LEN OIN  LIST [O][P]/_FF BORDER  AND  THEN ( BORDER ?8 GO SUB [S]INKEY$ DATA >= GO SUB [E] READ  COPY  CLS  OR  CLEAR CHR$  OUT ▖ CLEAR 00 RETURN  FOR pEXP  LINE HCOS #O RANDOMIZE  STR$ + COPY  RESTORE o SAVE & LIST C CLEAR ACS $ABS  IF @ THEN  FOR ; RUN $w IF  LLIST  THEN ATTR  LIST ASN ~ BORDER PI PLOT  # COPY  PRINT <>!_k[P]~[C] GO SUB LN PEEK LN +/ RANDOMIZE  DATA  LET ! CONTINUE  COPY  LET p+ RANDOMIZE .TAB  MERGE © IF  LLIST CODE  DRAW [B] DEF FN G!X▖/w,=EXP  IF <> [C] COPY  AND SGN  AND h COPY jKpacku8K-hU DRAW  STEP  DRAW A[C] COPY [G] COPY  DIM  DRAW  COPY s DRAW  #▛b CAT /wINT colrbef" IF at' GO TO si DATA ngl PAUSE  POKE i0h0 COPY [J] CLS 1/ CLEAR @ MERGE TAB `>v STEP a CLS v STEP Sa CIRCLE  VERIFY  STEP  LPRINT ` MOVE !OHw,w- STEP 9a GO SUB Snt LOAD !"/M"/L"/J"J"K"M>,2NH2nO>42QH2qO!.Y> OR w, DRAW STR$   PLOT   CLS ve▛ STEP  LPRINT `! LIST CHR$ OY STEP to STEP t STEP #n RESTORE ~#~#: GO SUB ~#~#<>:I_ATN >=!G_:okPEEK  PRINT  H_/ STEP PIu=2F_*nk|[F]2Uu RETURN 0> RETURN 8>▜▜▜o&))"[B]whB STEP <w LET 2G_ STEP  DRAW tv*[B]w STEP a| RESTORE  STEP ,ug} AND USR o[P] NEW ▗g STEP ,u LLIST  STEP Au STEP uu><>2qm STEP ▟p STEP  RETURN l>2qm*[B]w  STEP a FOR !mw MERGE  INVERSE & STEP VAL t MOVE  THEN  OPEN # INVERSE &![E]w STEP VAL tvOA STEP uu STEP ▟pNOT  RETURN l~ATN >= MERGE  RESTORE CODE O GO SUB LEN [B]= LLIST  INVERSE  RESTORE  INVERSE o STEP ▗b# INVERSE  LLIST  MOVE { AND  _0 READ z AND W INVERSE  GO SUB s INPUT t!)X > RANDOMIZE  MERGE 3 MERGE  MERGE  MERGE  MERGE =  PRINT 1=2G_<>!i@*[B]w STEP a} AND o GO SUB s)u RANDOMIZE  MERGE 3 MERGE  MERGE  MERGE  MERGE $| NEW CHR$ u} VERIFY  LPRINT o[P] NEW  SAVE ▗g BORDER 1<> GO SUB s>u COPY  COPY  RANDOMIZE  MERGE  MERGE  MERGE  MERGE 3 MERGE $ PLOT  1<>+ LIST r$r$r$r STEP 9a POKE %p> AND g NEW  LPRINT  AND o| NEW  PLOT  @gmuNOT )i SAVE  DRAW  RETURN  COPY  RETURN  DRAW  SAVE  LIST *[B]w STEP [Q]u INVERSE .{ THEN O( VERIFY s,s,s,s,s,w,w,w,r, INVERSE -  DIM r, DRAW <> STEP LN h*r_[E]w STEP >=u*n_ STEP  FLASH u*p_ STEP  FLASH u*t_ STEP >=u*s_CODE  INVERSE og:H_ATN  >#W:H_ATN (6 INVERSE .' STEP v CONTINUE  STEP vd STEP v} AND 0D>/PI< GO SUB B0 CLS  RETURN 0  INVERSE , INVERSE ->= INVERSE ,<>>#|[R]LN  OVER i'|[R]LN  OVER i'}[R]LN  OVER i'}[R]LN  OVER i'CODE <>:F_ATN  !Jv5 LIST 4!aX~ NEW (5, RUN <>*[B]w :G_ RETURN  COPY >=O:okEXP  ~ RETURN O>= RESTORE  LIST U STEP  LPRINT ` LLIST ~ NEW  RETURN (&5~ RESTORE w,w,w,w,w POKE  LLIST  THEN  MERGE ,Lq,q,q SAVE <> THEN v LINE  OPEN #t LPRINT  COPY ACS , CLS   PRINT <>[Q]CHR$ >©2JvCODE !TAB `"Lh>22Jv=`USR !_(USR #~/w OR < FOR  0 STEP Sa RESTORE  STEP 9w STEP  PRINT t LLIST aA INVERSE . STEP TAB mESTR$ !aXs, DRAW r,} RETURN i8 RANDOMIZE CODE 2h@2hG! COPY "F_<>Y STEP  LPRINT `:I_ RETURN 0  STEP  LPRINT `NOT  OPEN #t STEP LN h>= VERIFY B RETURN  FORMAT :u_ RETURN   CIRCLE  STEP Oa STEP TAN `! RETURN @ MERGE NOT ©`Size:Addr:Length:Track:Sector: INK + COPY E CAT  COPY Z PRINT ? COPY TAB `>VAL  STEP  OR aTAN W/! FLASH ▝EXP ! GO SUB  NEW 2c GO SUB [` LIST LN BIN  INK  LPRINT IG INVERSE ©ATTR c STEP V> COPY  NEW 2G_ PAPER [q PAPER  NEXT  STEP SGN  TO }[P]▘ PAUSE H CAT  STEP @ LLIST ▟~! RETURN ACS Q STEP [D]g RUN  RUN A >= SAVE  STEP ▗b_ RETURN  COPY  RESTORE  MERGE  GO SUB [Q] MOVE  RETURN  LLIST  RUN  STEP  FOR < CLS  THEN t  RETURN PEEK @ DATA  STEP  VERIFY y.▘ LLIST  CLEAR 5Nm CLEAR ;}L AND  CLEAR  INPUT /![R]X NEXT  STEP {[F]VAL 7i.iu©f INVERSE . CLS v[Q]▝b] RETURN k THEN  PRINT {w PLOT  ,.[(TAN [P][R] MOVE X^ COPY # THEN T( RUN  INVERSE ,} RETURN  BORDER 8 CLOSE # CLOSE #> TO  SAVE  LINE z:y' LOAD [E][S]| COPY a GO SUB  TO ATTR {[K]O CLEAR Z{!CHR$  CAT  DRAW USR ayATN BIN :O STEP  LLIST  PRINT pO;_![P]]m PAPER `~2▘ COPY  GO SUB V LET  RETURN  LINE |y COPY :5h PAPER  CONTINUE g1 PAPER //hS RETURN SQR Ji AND d OPEN #/NOT ='? OUT 0 INK  GO SUB [ FOR /?j[I]|2L_ DRAW  STEP  DATA c RETURN  POKE !;]>A©X STEP [N]aCHR$  CIRCLE g CAT ![O]D[I] PLOT   GO SUB VAL SCREEN$  CLOSE #x BEEP  CONTINUE dATN  LINE ryLd! LET [U]h"[G]sNOT  CONTINUE  VERIFY  STEP  INPUT v"L= RUN nl BORDER  TO EXP y COPY <<> STEP  CLS >[J]2%<>NOT "▘ IF bCODE 2[{;1 RANDOMIZE / FORMAT P[J]SQR  RANDOMIZE CHR$ [C]z LET  CAT ▘>[O]G CLS v COPY  CLEAR ©>_2 NEXT z INPUT W RUN  GO SUB ?7_!LEN  OVER L!DM8 LPRINT i STOP .▝} DRAW z>=CHR$ <-. PRINT  OUT  AND ©nQ{>© FLASH  RETURN  LPRINT  NEW O▚ BORDER  RANDOMIZE ▝  NEXT >STR$  PRINT / IF  NEW  LINE z COPY lZ TO _CODE , RETURN  CLS <> GO SUB Y{Zg[O]LN ▗z DATA USR #- RETURN YCHR$ TAN  BORDER <>EXP ! INPUT BIN Z, LET  CAT P FORMAT  BORDER CODE  THEN w RETURN $ IF -=r PRINT % NEXT © PRINT !Gx" DEF FN Z0B TO  FORMAT  PAPER % LOAD  CIRCLE %%▘E&1: GO SUB A DATA  GO SUB  BRIGHT A RETURN ([D]▚ CLEAR Q DEF FN >▚ RETURN zz<> LET #l BRIGHT  AND m> LLIST  READ z! DATA }"gX LIST FN [F]BL|2 GO SUB CHR$  CLEAR  PAUSE  LET <>CODE ! PAPER > NEW  BORDER 0, PAPER  LIST (#<>>8ATN  PAUSE k< =[P]m VERIFY  SAVE ({ PLOT  ![S] OVER  BEEP  DATA  THEN wD IF  SAVE LEN !@X COPY w,f? RETURN q GO TO <> DRAW LMNOpCODE ! RANDOMIZE SCREEN$ {8 CLEAR [J] CLEAR # CLEAR [P]. CLEAR :<>5~^Mo4[M]<> NEXT  FORMAT '9 INPUT <|NOT  LIST CHR$  STEP  RETURN >= THEN PEEK ~INT  DEF FN w[S]9POINT  PAUSE  LET SQR  CLS (-5*[P] LET (y RETURN  DEF FN 0<> INPUT G OUT  VERIFY ▘[P]y POKE O!Y AND  IF  INK `^#V PLOT  yNOT fPF▖C▜ INPUT H#f COPY ox DIM :_ATN >= OVER 5<> RANDOMIZE <NOT y[E] DRAW { COPY STR$ z SAVE  NEW y[E]▝) MOVE [9 COPY  CLEAR [H] DRAW  RETURN   DRAW wCODE 2[T] STOP X![H]/[P] CLEAR Q(2TAB BIN |>E GO SUB  MERGE [L] OUT [O]:[{ATN <> LIST > FOR  RANDOMIZE -[J] COPY 4[L]= BRIGHT USR > INPUT ! PAUSE {a MERGE `i INVERSE .VAL$ 03 THEN [P] RETURN  MOVE  FOR  STEP 9a INVERSE - RANDOMIZE   READ  MOVE z COPY  COPY  NEW  AND XW GO SUB S▚ INPUT {> SAVE [T]|▟ DRAW   NEXT P[A]@ DRAW [C] COPY :SCREEN$ {O▜▝!c[S]}n~y RETURN  ? STEP 3} OR  FOR  RESTORE  COPY  NEW  LPRINT  PLOT  o>Aw COPY  LLIST :LN ▝ATN  6 OR I# RETURN A<> PLOT  HABS B RANDOMIZE  DRAW <>!X-_G> IF q, PLOT  hLN ZH PRINT OIN  STEP : DRAW ©>F2ATN ZX BEEP RND4 COPY < CLEAR CHR$ }▜ATN zn PRINT &x BEEP  NEXT a8SQR  LLIST  COPY [G]*f} TO  LLIST :K PLOT  l CLOSE # PLOT   PLOT  ABS o PLOT   LLIST _*rQATN  PLOT   COPY nUSR *i SAVE T]6 POKE PEEK [I]<>LGIN >Ew BORDER , DRAW M`~_▞ FORMAT +_[N] VERIFY /▜STR$ 2# RUN © RESTORE &▖ COPY  MERGE  GO TO o RETURN [P] LIST PEEK $0 LLIST g!q DIM ZASN * OPEN #X~[Q] STEP L*ZABS y RUN /ABS z RUN ^?{ATN <=(iVAL <> COPY ! RANDOMIZE E©Ao STOP  RETURN >= COPY () MERGE  INVERSE &[k©( CAT  PRINT  RETURN ~? PAUSE  STEP TAB #©USR  MOVE { AND  _0>=z COPY WCHR$  PRINT  MERGE J{? AND ▚# LLIST y=▖ RUN 0S VERIFY ~ TO  MOVE N CLOSE # PAUSE . LET <> RESTORE IN [J]{ CLEAR  NEW  LPRINT  AND w#ATN  DATA  PLOT  qo" POKE ~ LLIST <><> PRINT  READ  BORDER s NEW =w> INPUT © TO /ATTR  MERGE  FOR  AND W PRINT ACS  DRAW  DRAW  MOVE  INVERSE  GO TO  OR  COPY VAL$ STR$   COPY  PLOT  <>Syst COPY em: COPY Loader RANDOMIZE Auto RUN 0 CONTINUE c`  POKE isk READ [P] READ Driv DRAW esM.nu:© FLASH Gigasc DEF FN re PAUSE  m[P] ERASE Qui>=ckABS  STOP  BRIGHT Gra TO ph LET s RANDOMIZE  CIRCLE  LLIST lacABS  INK ▟ IF Borg[H] s INVERSE ftO INPUT R PAPER ay' LET lPl$ NEXT  STOP <=l DEF FN  NEXT alJvPEEK g|Ril$[B]ACS  COPY  NEW Tim! PAPER SS STOP in RETURN gsE: /xit DATA T▘< OUT  COPY X[H]!u LIST P STEP )iIN CODE rP CLS ~[B] CLEAR  COPY # PAUSE [P]: LLIST pP PAUSE  CLS  LOAD B COPY  VERIFY Q[G] ERASE ▘p▗aIN ▝L IF [ TO  IF  IF NOT CHR$  CONTINUE  COPY  PRINT CODE 2 SAVE ▝▖[P]KPICODE  STEP  RUN ▝ASN  LET >=[U]0,~0 COPY q# RUN +]! RESTORE INT b REM ,[P]f BRIGHT  GO SUB VAL  FOR +AT  RESTORE  DRAW y LLIST  ▝NOT  COPY ▘turbo#3 OR d1OSGN  AND 0w IF  POKE  RETURN 0N GO SUB  VERIFY  PAUSE  DIM  RANDOMIZE y LIST #$ CLS  REM 6  COPY  CLEAR >NOT SGN ▝ PRINT  RESTORE  STEP  DATA s= LINE  THEN ©  STOP  RESTORE [J]s CLEAR e CLEAR [P]c[G]Oi PRINT f CLEAR RND PAUSE  OR [T] VERIFY $8[U] RUN [I]q DATA :ABS PI PRINT  CAT NOT  LET [P] NEW E SAVE [O] GO TO [P][K]<><= PAUSE !H<= DRAW  STEP  CIRCLE `LN ▝.La~ RETURN  RETURN !▖ATN PI INPUT ▘[T] COPY ▞NOT [a©?>=h!* FORMAT  SAVE CODE  RESTORE ^ FOR ▚ OUT # RANDOMIZE  LLIST W INPUT y[C]G LIST -[I]_x[N] INVERSE g>Q▞NOT ▗b COPY } VERIFY /▜~FN CODE PEEK SCREEN$ }SIN  RETURN COS  RETURN Y COPY  LIST <>!1 FORMAT 6 LPRINT  STEP ▘@3[P]4zPI$ THEN Y`N FOR G▘/ REM w DRAW $ IF [J] FOR  INPUT  CONTINUE  THEN  STEP > IF F FOR #Y FOR  BRIGHT [ DRAW  NEXT !l▘"PEEK >o GO SUB GCODE ! COPY j▘ CLS = DIM  LLIST ^ THEN  COPY ZW[D][B][P] PLOT   RANDOMIZE [Q]  DIM ASN  STOP H CLEAR P LIST 0q FLASH Q{ CLS  POKE  COPY  INVERSE &! RANDOMIZE J STEP VAL t# RANDOMIZE PIR RANDOMIZE ![Q]V CLEAR USR Qs[B]f OUT }IN  BEEP  READ hH INVERSE  DRAW ![A] STEP  BRIGHT ▘ ERASE  PLOT  P PLOT  [C].mu INK _z FOR  VERIFY gz[K] RESTORE  MOVE  MERGE  FORMAT }▖j FORMAT o▛_ ERASE  RESTORE <>|% NEW  COPY USR } VERIFY  o CIRCLE |[P] AND  DEF FN <>Aft][Q]▟Nsc/of- SAVE ;<=STR$ th LPRINT  ViNw READ stc LET  o CONTINUE  DIM nVAL xC[R]f CIRCLE [B]Th CONTINUE [S]m INK y RUN only NEW rE INK  RESTORE ack LIST 9<=hn REM USR -sadr.p RETURN  OPEN #Ns AND ©? AND / COPY  RETURN  DRAW  SAVE  LIST  @% RANDOMIZE  LPRINT  DEF FN  RUN >D COPY _[P]CODE [F](9 RANDOMIZE [D] RUN  IF ▝ CLEAR  CLS  GO TO ©▝!"`h+";_ STEP Wa STEP TAN `! CIRCLE USR  STEP EXP `& FLASH DD STEP SGN `&[ STEP SGN `!▝@r%s$ FOR  STEP 9a FOR z VERIFY X W,  INPUT $>s$w%0,  PRINT !▚@ INK h`XP| VERIFY x FOR 0 GO SUB B FOR  INK w, INK   FOR  STEP CHR$ y2IN x! STEP EXP ` FOR !SGN x GO SUB VAL !▖>w, AND   IF g"▗y CLS v> INPUT 2[M]x STEP da STEP ▚y STEP BIN xCODE  FLASH  RETURN / NEW ( NEW :J_2hNOT  CONTINUE g COPY ` INVERSE !▗ STEP  IF x INVERSE ^ INVERSE n RESTORE  STEP CODE y LLIST  STEP CODE y INVERSE } AND  INVERSE o>= INVERSE ~ATN BIN  FOR x LIST  INVERSE 5 !▗y^4▖ INVERSE } INVERSE 5  STEP CHR$ y NEW  AND  INVERSE w STEP CHR$ y NEW 0 GO SUB D INVERSE w INVERSE ~ INVERSE ▚_ INVERSE w INVERSE f INVERSE nO[P]G INVERSE t INVERSE u/ INVERSE f INVERSE nO[P]G INVERSE u| RETURN USR 8[P] NEW IN o INVERSE w STEP CODE y STEP CHR$ y RETURN ( FORMAT !▗y~#PEEK >=~4&▖o^p▗ INVERSE  RESTORE  LLIST { GO SUB VAL _ STEP CHR$ y NEW  AND ><>!@> GO SUB 02[B]yO}SQR 8j"▜y| AND G~[R]w|LN  PAPER RNDy<>&▘ACS $foACS w THEN  DRAW ACS w<>*x/}lO:z/g"x/▝2z/<>2D_NOT  MOVE j COPY  COPY $$ REM _ INK © DATA r STOP [R] VERIFY o FOR q MOVE ? BORDER [B]<>= OPEN #SCREEN$  DIM # RANDOMIZE >= NEW Q GO TO  NEXT &'d[D][D] COPY  PAPER L .FN  FORMAT  STEP Lax INVERSE !STR$ _>"~#0.NOT ( INPUT _8S▜0#▚0 GO SUB [Q]ASN ( GO TO 8 RANDOMIZE  BRIGHT 182 CAT 8@<=▜ TO w` THEN X RESTORE bk`) LLIST  INVERSE  DIM  COPY %N#[C]<>0+y35▝0 RANDOMIZE  THEN XUSR (` SAVE  MERGE hGD^# READ  RESTORE  MOVE  GO SUB VAL TC AND <>U.]CODE [B]▜ NEW 2▖`8 RETURN Zt REM ▞`CODE <>STR$  CIRCLE ![INKEY$ GO SUB s CLOSE #` RANDOMIZE  MERGE ▙ INPUT 1<>▜o[F]g<>!s COPY  DIM 8 CLEAR } AND  REM  RETURN 8 PLOT  #8NOT 0 FORMAT (<>|+ NEW x LIST )[N]V#<> REM <F[M]fo<> NEXT  GO SUB G GO SUB ^ MERGE gW[U] OPEN #▚OCqACS 6NOT , MOVE s,r<>> COPY 2<_<>$| NEW USR } VERIFY  LPRINT o[P] NEW  SAVE ▗=>CODE >>>>!2ja PLOT   CLEAR © GO SUB y<>> OR CODE f STR$ <>( PRINT STR$  STEP ba STEP [I]Ha TO E STEP EXP `& LPRINT NOT SGN `<>=<(==PEEK USR # PAUSE 2TAB axLEN ( GO SUB LEN USR  OR  MERGE  RESTORE +a(PEEK  B▛CODE a LLIST  MOVE STR$   READ <>TAN <> STEP  BEEP aUSR  FLASH  RETURN /[S]>= STEP hbHyATN P>=[M]C_l>V RETURN  FLASH "G>© STEP VAL ▝{':[Q]>OUSR 0'<>TAB X@2 RETURN aCODE O2▝b)( STEP 9byz NEW G[J]goBIN )b"▘b->=%<>*,} RETURN  VERIFY USR  LIST _[P]/5!g[C]> LOAD X< CLOSE #O!g#~NOT ▛#INKEY$#  PRINT ~LEN O LIST :'_F# THEN  THEN ~(?8[S]INKEY$>=1 GO SUB [G]USR z2[P]b INVERSE |N RESTORE ▜ AND W FORMAT y RETURN  (K PRINT  INVERSE ▗ RETURN  RUN @oACS $~ BORDER % LET  GO TO H PRINT  VERIFY  INVERSE g LLIST # INVERSE - [G]<>[O]-NOT  STEP ]aNOT [C]_*6_:r_T]`▗ PAPER [P]ogCODE +ACS  LINE 1c GO SUB R CIRCLE #">c@SGN P]BCODE w, DRAW kCOS   NEXT  STEP >a  GO TO <>6%, INVERSE L OR  FOR  TO SQR  RESTORE  FOR 6 LPRINT $6  INVERSE $ INVERSE M LPRINT !a} INVERSE [E]PEEK  BORDER ▙! INK COS  OR TCHR$  FOR $U? READ  READ ( FOR  LLIST STR$  DATA fLN SGN K<> CLS  CLS BY KPACKU OUT  LPRINT  CLEAR  PAPER {[E]IN  GO SUB [s_ RESTORE  MERGE  OR : PLOT  ` PRINT  STEP xa LET [Q]STR$ STR$  MOVE  LLIST  STEP  GO SUB d O=(*:E_ATN (:ok2Y PRINT  CONTINUE g:18_"6![U]h"[G]hCODE <<=@2xd>725h STEP [a:`L'BIN Gi STEP yd STEP TAN  AND % OPEN #d.!YE[K]TAN  RETURN :-▙lIb▛gCHR$ ▘!m5`![C]g STEP ▗b[O]/NOT h CLS vACS PEEK ! PLOT  Z>=STR$ > LPRINT TAN [S] TO  LINE = TO LEN &@8 COPY [I]$ ERASE [L]d}[B]SCREEN$  BORDER  CONTINUE NOT  OPEN #4wAUSR  STEP @c!SQR NOT  INK !<=CjNOT `>2SQR X>VAL CNOT  INK  FLASH  CLS C[D]FN :_ STEP ua NEXT z STEP ©exPI(wTAB ▞0n[N]CODE [B]<=2 ^[E] PAUSE  GO SUB S POKE /z THEN ? STEP Ef{< STEP 7f[D] STEP ?fSD)AT e NEW © LET  THEN G * THEN gBIN eeSQR COS  THEN w "[P]▝INKEY$`${ NEW _ [M][E] PRINT  OR  STEP /| BORDER dBqSTR$  LET <>[N][T]INT VAL$  CLS  STEP [<>2 OR ▚_O:][P] AND ,8<VAL  STEP Ofy STEP KATTR jj ERASE [M]ATN mTAN  PRINT mAT i<> CIRCLE ]g RESTORE :ACS /ASN :(*f] SAVE /COS s= RETURN m2(2'2!> POKE 2*[I]f"aCODE <=FN <=[E]f RESTORE !3? RESTORE NOT /=VAL$ ! LLIST " SAVE 9" LLIST |2 CAT K}2S RETURN ;: COPY GNQx<> LPRINT SQR USR ▙W/<A READ LEN [I]6 REM  NEXT VAL U@ MOVE [R]f NEW [U]CPIf2SCREEN$ sVAL SCREEN$ ©? BEEP GV!COS ~▝=/>NOT 2CHR$ [M]ATN [M]NOT ▚"]" IF /" DRAW / CLEAR  LOAD O6<=hINKEY$SCREEN$ ▙[Q][T] RANDOMIZE SIN  STEP =CODE INT  FLASH [R]IN v SAVE >= MERGE  PRINT  FOR ATN !k▞l GO TO H( DIM  STOP INT / INK  POKE t READ LN [T]SIN  PAPER  GO TO U AND (( LET STR$ COS  CIRCLE 337<> COPY [P] COPY  BORDER  BORDER 3 COPY  CLS  THEN  CLEAR  OUT  OUT © LOAD  LOAD  LOAD  RUN < LOAD ~ CLEAR 7IN STR$  OUT IN ▝IN ) CLS ▖ CLS & CLEAR © CLEAR ▝ RUN  RUN [M]% RUN  DEF FN  DATA $ DATA  GO TO $l,,,? OPEN #[Q][O]Z??? COPY 6No Disk changiCHR$ LoadProcesTs▚err[R].Fil LPRINT t TR-DOS *Track:Au<th" SAVE 7tINKEY$: OR  PLOT   STEP PI CIRCLE POINT ▘NOT ^q!VAL$  PAPER [Q]SIN ▖ GO TO  STEP CODE R` PRINT  CIRCLE  MERGE  READ  IF d>2c RANDOMIZE ACS STAN  THEN INKEY$ NEXT  GO TO  OUT  tTAB  STEP `:J_ INPUT BIN j STEP JCV[D]!BIN  MERGE ~=VAL$ > LPRINT 1G_2PEEK TAB COS  OR  STEP [F]LN [A]ATN  PAPER 4q STEP SGN m STEP " STEP mk STEP dp STEP ▟▚ RETURN l STEP TAB M" CIRCLE  LLIST USR a LIST ▚BIN  LPRINT  INK K,qDPEEK #[E][G]▛( LLIST #`hj INVERSE 0ACS  STEP p,▚a[I]f/ IF ▘x MERGE ▗NOT ©@TAB G BEEP  OVER ~▚=#VAL$ RND▙ COPY FN  COPY *USR =& PLOT  n RESTORE  THEN  CLEAR  RESTORE &#)+ CLS  LET b RANDOMIZE t_[J]STR$ LN |} STEP  INK `~[I]!VAL$ 46 CONTINUE  DATA  AND v NEXT (:NVAL$  SAVE  BRIGHT  STOP  VERIFY ▚ DEF FN !▝TgSGN TFN *[O]8[U] READ  OPEN #8q- OPEN #"iSIN 6F STEP a IF fFN [O] IF  LET VAL | GO TO 5l0 AND  RUN  OPEN #_▘SQR SCREEN$ X CLOSE #<>▝LN c INK !IGFATTR c STEP VXcY NEXT  LPRINT [T] INVERSE .9:>= BRIGHT TAB m>@2INT iBEpCHR$ jE!ASN {[T]_zTAB  AND @[K]+,@ATTR  DIM ▜2G2+7`4@!ABIN >ATN  STEP  PAUSE [O][G] BEEP  RUN AT  STEP 1SQR dX[F]_[R]lNOT npT[M]x!a[M] CAT  OUT USR ▖b PAPER !<>POINT [F]- IF NOT AQ_NOT  CIRCLE  PLOT  STR$  DEF FN O[B]LN 3kvUSR SIN [B]w;▞[A] AND "ij]<> POKE ;CHR$ ▖ OUT I BRIGHT  GO TO  PLOT   OPEN #t[P]32[T]VAL _<2`NpLN h( FLASH  VERIFY B( BEEP %~2?[E]4NOT  DIM 6 ERASE lAT N>=j[N]SIN ▘yVAL ▟ FORMAT LRSQR   <>,~<> USIN 2 INVERSE dO[S] OR  LLIST #▖ABS  COPY ACS :0 PRINT AT POINT *<>j2 THEN jP DEF FN  LET 0:SIN  STEP jTAN  RETURN G" SAVE 7 STEP b STEP  OPEN #3Ea▘RND|▗FN * CAT jNOT  LPRINT g SAVE [A]▚1 RETURN [CODE ASN r[S] READ [ ERASE  READ USR  BRIGHT ( STEP lk LINE  CIRCLE NOT NOT 6PQJCODE ( IF Q TO ▝k8 PRINT  LLIST ) VERIFY  LPRINT  ERASE  RETURN  CIRCLE  RETURN !?<>oSIN  FORMAT ACS eP=g VERIFY 8o"nk<>TABS  CONTINUE  COPY h,)a##[L] COPY ~ CONTINUE  LOAD #~INT   REM `.0O| AND EXP SIN  LET |8CODE [R]▗ DRAW <= PFN  STEP  BORDER [B]▞Qc':D_SCREEN$ ▚ CIRCLE NOT !USR  MERGE =|[F]LN (}< NEXT |<EXP 8}SGN [J] VERIFY  PAUSE ACS kCODE gABS 0l[F][A]VAL ASN LN XCODE  FLASH J<>[L]V[L][K] INK  INK  VERIFY ▜[Q] LIST  STEP [C]>= PAPER  VERIFY  LINE  POKE [R]= RETURN  PAPER LN [D] RETURN (Y CIRCLE  RANDOMIZE ▚ FORMAT y VERIFY 8S VERIFY  PAPER Ow(D RANDOMIZE SIN ▟= LINE ▚ LET <=/vEXP  THEN OCHR$ ▗, RUN [J]BIN  READ >=[P] GO TO & STEP L▚E'_VAL [U][K]INKEY$RNDx*s[P]1▜o& RANDOMIZE jXs LPRINT  GO TO ~LEN  NEW w NEXT 2 PRINT  PRINT TAN  RANDOMIZE VAL$ [K]+[T]▚ LET ! OVER  RESTORE & BEEP ` DRAW `INT ARND LPRINT j[D]>&A.SQR F[U]$VAL$  INPUT USR " PLOT   STEP EXP `&g PRINT BIN W VERIFY 0[L] THEN N THEN  INVERSE  CIRCLE ]FN "GCOS | PRINT ▚ INVERSE  SAVE  INK  AND EhoSQR  INK s, GO TO [I][I]INKEY$ VERIFY TAB /2 AND p! COPY  COPY "POINT (#▙i▜{INT $%AlIl[F]'Ba INK *crGINT pbhsMu_>m VAL$ !x/H VERIFY [I]INKEY$~[R]"*m!vX INK  NEW  OUT ▝& PRINT  POKE G READ  CONTINUE h> INK  RANDOMIZE _ MERGE W MERGE NOT  CLEAR e GO SUB e▟▞INKEY$(+O[A]ATTR TAN STR$  PLOT  <FN [M]ATN )[R]LN WINT 0OaPIH LLIST /2mINT LEN zATTR  INPUT wkAAT WATN  INK  RESTORE LN &STR$ ~,fo{ OPEN #RND BRIGHT ▞ DIM [B]_[P] NEW  SAVE ▘W LLIST ,▛ READ  STEP <> FORMAT  MERGE  INVERSE MBIN ASN  MOVE <=ACS INT b: PAPER TAN  PAPER [P]COS q<= DIM [S]EXP TAB ;Y[SCREEN$ PI_ SAVE [P]<>M<>4 MOVE 2 CIRCLE 50COS >= RETURN B">= RESTORE  THEN CODE ATN >=VAL (2 COPY  FLASH  ERASE  GO TO RND/[H] REM <=V GO SUB I%H GO SUB z[S] GO SUB  VERIFY SIN BG  RUN  DEF FN  [D]j<> DRAW AT TAN  LINE >IN  LPRINT  ERASE 0]h BORDER [E]<> THEN ▜ THEN g(K ERASE  GO SUB YV! INPUT CNOT Dp LLIST  INPUT Z AND  DATA  OPEN #VAL  INVERSE  DIM ( DATA  OUT SQR _ DATA ` CLS h© 2018 KPACKUi OUT w FLASH [J]XUSR <> READ %NOT WCOS <=*▟AT <=( BORDER q FORMAT  LIST  CLS p>[B]8 CIRCLE  LOAD a AND  OR "▛4▛x VERIFY /[D]PEEK [S]x DATA moC> STEP ▛ob$} NEW  LPRINT `o[O] NEXT 9 FOR  OR  DIM xPImSTR$  LLIST + VERIFY X[B]P STEP 9a`x CLEAR o>~[B] INK Dn INK  THEN  OR } AND [D] CONTINUE  INK [M]' INK  POKE AT0B CIRCLE ASN  FOR 6t FOR  CLS  NEXT  STEP >a  READ <fSIN STR$ ; RESTORE  OR w,r@[P]w INK  LET ,Xp&-K{STR$ |▙_n FOR  OVER  CLEAR "?STR$ <=NOT SGN nCHR$ @ABS X-U6A,53 CLOSE #j©C THEN CODE T[R] RANDOMIZE -<>w$[G] BORDER  RANDOMIZE ▗USR kbu$KSTR$ PI THEN dq$,CHR$ [S]RNDJs CLOSE # SAVE  GO SUB  TO  LINE  LET  LINE  REM [B] RESTORE B TO  OPEN # LIST FN  DATA  LLIST  REM  CAT W[L]eSTR$ `FN  MERGE  LOAD ACS USR  LLIST  BRIGHT  FORMAT [L]/▚EXP  IF )[A]ABS [C] FORMAT >=GLN xw PLOT  @- RUN LN ▙ LET X CLOSE #POINT w#r| CONTINUE 8 RUN  LIST <> RESTORE  PRINT :SRNDl RUN VAL  GO SUB ▘[L]▖ FORMAT  DRAW o LET z RETURN [C] NEXT eo SAVE  RETURN  LIST  LET <> INVERSE c}ATN TAN bTAN USR  FORMAT AT  RETURN d> CONTINUE  STEP ▙pTAN  LINE uX<>r@[H]<> VERIFY !2-,|( POKE - RETURN  DEF FN g""2ATN Y2 CIRCLE *@LN [C]<GCODE USR ATTR  GO SUB p>= CLS [T]_pATN s LOAD p[H]PP INVERSE | INVERSE  DIM BATTR 2 DEF FN p[U]/{X$+[J] INVERSE [F][C]6>=wATTR $ THEN  ERASE  FOR p|TAN  LPRINT Ro CIRCLE  PAUSE  FLASH eNOT :FN  AND _ NEW jTAN ]jqFN NOT {w STEP  NEXT q AND _0><>[F]q![G]q"[G]dh[C][Q]q STEP AT ▙SIN >>="g STEP USR ay▝ RANDOMIZE  RETURN ▞ OUT >=kS DATA  FORMAT PI*DrP RESTORE  LLIST TAB ( BRIGHT 2]2 PLOT  / PLOT   OVER ▝] AND 2<= FOR . SAVE  LPRINT d STEP y RETURN FN  PAUSE HU` FLASH ▖▞>USR RND`CODE  MOVE ABS  RESTORE y GO SUB tNOT ACS L ERASE :D COPY ;1NOT 1 REM [D]0I!tVAL$  MERGE * TO @!YASN RND!FF"OY![A]ATTR "oY IF f DATA SIN KSTR$ (O NEW f LET y NEW  LIST w-! REM  FOR ACS [U][E] PLOT  ,! NEXT  DIM [M]r▖ OR !NOT /VAL NOT 2CHR$ /!r"NOT /COS 3r NEW ▝!@'U OUT [C]'! FOR $SGN +P<>+: STEP / NEW @2 FOR e CLS ?= LET  RESTORE !X_ CLEAR !:/~6 COPY ▙U" LPRINT "[O]r STEP ^} RANDOMIZE [J] LINE CODE ;5▙ GO TO [N]x RESTORE *# IF < NEXT  DIM [M]2INKEY$q NEW A GO TO |▟>= CLEAR ©:  PLOT   GO SUB y> STEP l:+ja CLS ATTR SGN $ OVER =_|SQR 8% SAVE |b PLOT  - PLOT  <> STEP Wa! FLASH [I] STEP EXP ` STEP TAN `<[H]▛SCREEN$ H STEP USTR$  THEN U`H STEP R▛!{▙>= FLASH }▞# GO SUB VAL >= STEP fp[A]▘ASN %&ASN ▘ LPRINT &/! LINE >G6#0 RANDOMIZE d▝! FOR ▝CODE 2 PAUSE ▖2 RETURN ▞2C▞<2>>▚0TAB [P]a CLS v STEP .▛ STEP  LET ▖NOT VAL$ ▖CODE  FLASH  RETURN / NEW  LINE EXP ▖!▞>H RUN (OCODE  THEN 80<E2 CLOSE #g" GO TO VAL , STEP #NOT  NEW ▖> RETURN >= DEF FN ]▞2q▞O@? BIN y RETURN  PAPER  RETURN 7 PAPER  NEXT ▞ RETURN > PAPER  OVER ▞ LLIST NOT Rs:") RETURN d PAPER 1▞ GO SUB V[R][P]NOT  FORMAT g!<>Z INVERSE .-~ NEW ?(5, INVERSE -  PRINT P[0 AND iSCREEN$ G CLEAR ! DEF FN  CLEAR ~ NEW  LIST ▜OVAL ▝ AND &Yo STEP  DEF FN ▞ THEN  DRAW [Q] CLEAR # STOP <>>=2r▞(`SIN  COPY Z STEP SQR ▞!SCREEN$ Y TO YS8~O[S](y VERIFY w~[T]/`6pSGN , INVERSE  CLOSE #<> STEP CHR$ ▞ RUN <><>- NEW 8▝. NEW >=5<>@AT (<>▝CODE OPEEK BIN ~ AND  CIRCLE 8 POKE !PIYPI`SCREEN$ TAB PINT  DEF FN P REM ▚G STEP X0 INK IN , INK S▘: CLEAR  RETURN ACS  <>2[M]SQR  RESTORE  MERGE W▛W LLIST  ▟ FOR  LLIST [M]%  READ <>h[I]O- OR o{▝_0STR$  MOVE  LLIST  FLASH <> THEN q( THEN  PLOT  COS G~LN 0~ AND LN 0yLN  LIST LN  FORMAT 4<> 15'):,@DBCAHFGEIJKLSTR$ ▟>#K2!0#$%:'(6;,e"345&789*+<PQRSTaVWXYZ[/hejcdUjgbifkl_ SAVE C STEP  LPRINT ` CLEAR ©> INPUT 28▛h GO SUB y.-CHR$ F▛=  NEXT  FOR & INPUT  DATA >=z LINE   LIST { AND  _z[E]▟WNOT BIN d▖/_j PAUSE [K]<>{ OUT ABS  CLS  CLS o0 PLOT   OUT VA RESTORE  MOVE CHR$  CIRCLE B00[C] RETURN 0 SAVE  DRAW `o LET  COPY [I] NEW H047 PLOT   RUN `,,1 FLASH ;68Kf@pOl?VAL 7 RETURN  LPRINT  COPY ? LOAD  CLEAR ASN USR y  FOR INT qcINKEY$PI[D] CONTINUE [E]TAN p▟)[B]"▖%[D]IQ<>[R]F[A]JQ)AL CIRCLE ' NEXT 'qM&[M]STR$ [R]`O COPY  SAVE  LPRINT  RANDOMIZE Q? COPY  COPY  LIST USR  RANDOMIZE ▚ COPY © COPY  COPY  LPRINT  COPY  GO TO [D] COPY USR g[P] COPY ▚CHR$ P CAT  COPY SCREEN$ $( NEXT  DATA ABS STR$  PLOT   FOR L NEXT  VERIFY + DRAW O6 RETURN  RETURN  NEXT 3i LPRINT  DRAW "5 COPY # COPY l LIST  COPY 3 DRAW [T]▝&0▖ FORMAT  RETURN 3 RETURN Y[Q]Z[M]NOT ▘ DRAW 7 COPY [Q] LINE 3[M]<=j DRAW - CLOSE #& CAT USR  LET  LLIST  LET &©[P]© SAVE .D COPY ' LPRINT [P]▞ DRAW CHR$  COPY |,?▝ COPY [L]STR$ ▜ COPY x?STR$ ]&{3 RETURN  LIST 3 LLIST U©M LPRINT ? DATA  q]@LEN p[P]w[I]USR USR  LIST ©▖ LPRINT ` CLEAR p[Q] PAPER p@ RANDOMIZE  `VAL 5$~~ PAUSE H LPRINT 0EXP <©AT UM=8▖AT © NEXT ©[T]'IN g COPY 1 NEXT ?& FORMAT sFp BORDER  COPY STR$ /©f SAVE  RANDOMIZE #lUSR  LIST  LET '1© LIST ▙ OVER + COPY #i}}z NEXT WxxUSR y)y}hP PRINT H5xp] POKE '#'pSIN  LET rUSR 0▖ CLOSE #[T][D]5#ABS  ZCODE >- CIRCLE ATN COS PIRND▝fs7ATN !.xEATN [D] OPEN # IF M RETURN #INT 'STR$ & PAPER 3 RUN  THEN  OPEN #&)[K] TO LK[G]u[C] TO VAL ? SAVE  FLASH 6@" SAVE `LN q?[O] THEN [D]F< LIST /eSIN ▚[D][L][I] SAVE _<=VAL g PAUSE SCREEN$  TO 9 SAVE [F]▞_ BORDER :GSTR$  PRINT ▜ABS  PLOT  [C] LIST 8[E]<& RETURN  COPY C[I]tLEN @ BORDER © DRAW  DRAW Pg LPRINT `)SIN ? READ /e SAVE CHR$ ▝[A]~ DATA ? LLIST [G] OUT 8USR < LIST ? CONTINUE 3 MOVE © CONTINUE <> FORMAT 7d<> OUT >= DRAW 08yLN Z[A] DIM  OPEN #STR$ p{ SAVE ▝FN  CAT  RANDOMIZE [D] ERASE  CIRCLE  MERGE f LPRINT t< CLS 0a3USR © AND [Q] FORMAT < RANDOMIZE @TAB CHR$ /USR  LOAD  DATA ▗▚[D] DRAW ?USR  RETURN USR  BORDER  LIST ASN VAL$ e RETURN RND▟USR  LPRINT 0 LOAD y LIST B} LPRINT ;g& AND  STOP >[U]<<> PLOT  9vVAL ACS  RESTORE AT 8 SAVE c[J]USR HHDLN { PAUSE PP{x8liXYY THEN  TO  ERASE x CLEAR [Q])x