Napalm: NaPaLm.B

Является частью релиза: Napalm
Размер файла: 65280
md5: 1a6830e357fc9e57ff4a789df0623340
  1 RANDOMIZE USR VAL "23883": REM  CLS v NEXT 1`CODE  OPEN # RETURN ![+wACS ( CLS :] NEW 2 CONTINUE ] PLOT  ,2/ CLEAR ©> GO SUB y! LIST  GO SUB [ POKE / STEP ATTR ]!` STEP ATTR ]!FN a` STEP ATTR ] NEXT  GO SUB S/![O]][ MERGE  GO SUB VAL <>! LIST ASN / MERGE  GO SUB VAL <> STEP  INK ]{< STEP ^> STEP '^ OR  RESTORE © INVERSE ! RESTORE ? STEP -^ STEP  IF ] LLIST STR$   READ $ THEN c  FLASH <>_ OPEN #<>z THEN ? STEP ^>< THEN B(>, PLOT   STEP ^> STEP '^ INVERSE ! PRINT > STEP -^ NEXT <> MERGE CODE  STEP #^> STEP ^ INVERSE !3? STEP -^ MOVE z THEN ? STEP #^xATN <>©?* INVERSE  RESTORE NOT /=
  62409ap STEP FN a![I]X GO SUB VAL  STEP `> STEP `/!^^#V# GO SUB S/^#V# GO SUB S/V#F#~#K RESTORE  STEP `/ FOR ` GO SUB VAL > STEP `/!`T] STEP ] STEP ` LLIST NOT  DEF FN / INVERSE ! POKE  COPY  INVERSE 9 MERGE  RANDOMIZE STR$  FOR STR$  FOR STR$  GO SUB R8T] GO SUB LN  FOR  INVERSE V INVERSE ^ RANDOMIZE  LLIST  LLIST  LLIST ; LET  INVERSE w INVERSE # RUN  INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK <>USR USR [Q]USR 6 DRAW  CONTINUE USR   COPY  COPY  LPRINT  SAVE  LPRINT USR USR USR   LIST # BRIGHT $ COPY  COPY USR  SAVE $ CONTINUE &USR ' FORMAT ( THEN  SAVE (h*USR  SAVE *USR , OVER  SAVE , SAVE .USR 0 DEF FN  SAVE 0 SAVE 2 MOVE  SAVE 4 SAVE 8 DATA  GO SUB i GO SUB a<> STEP AT  DATA * RESTORE  COPY  GO SUB K[N] NEW yPI(Hy2[P] NEW  GO SUB B8NOT =[B] CLS v!u/"]/ STEP F`>!USR  STEP ▞`>!USR  STEP ▞`>!USR 0 STEP ▞`>!USR 6 STEP ▞` CLS <>:] NEW  PLOT  ,2/* POKE /"/<> GO SUB [/ STEP  LOAD ` STEP a STEP  LOAD ` STEP a STEP  LOAD ` STEP a STEP  LOAD ` STEP a STEP  LOAD `z THEN ? STEP |a{< STEP xa> FORMAT  STEP a STEP ax NEW ( RESTORE  NEXT z THEN ? STEP |a{<NOT xa STEP `/ GO SUB [/"SCREEN$ `x2fa> FORMAT  STEP a STEP  LOAD `{< STEP xa> STEP a!© INVERSE ! RESTORE ? STEP ▚a STEP a THEN ` x NEW ©( FLASH  STEP ▛a STEP (a OPEN # MERGE  STEP 7a MOVE  THEN c( STEP ea PEEK  STEP ea INT > STEP a GO SUB S/<>z THEN ?g:/8 PLOT   STEP pa| STEP ta>NOT a INVERSE !W/NOT ▚aCODE  STEP |a> STEP xa MERGE  INVERSE !3? STEP ▚a MOVE z THEN ? STEP |a<>> STEP az THEN ? STEP ta>I>< RETURN  [H]28a>= PRINT  RESTORE :/2da*/#"/> STEP `/ STEP USR :da STEP `/ LLIST  LET  NEXT <>>!ATTR `4=2fa<>©?* INVERSE  RESTORE NOT /= COPY  GO SUB aIN  GO SUB i%  PRINT <> NEXT  GO SUB sRNDb[! STEP a OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ! RUN USR  COPY  COPY A^<> GO SUB LN  FOR  RANDOMIZE FN a INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 NEXT NOT FN aHRX[O]M^ RETURN  STOP  NEXT  STEP [H]bdr CLS v> SAVE (D!USR  MERGE g[T] GO SUB VAL  GO SUB  OR  STEP  LET ▞ DEF FN > CLS  STOP  STOP ~2©fBm BEEP  NEXT Ob,}EgpSTR$ s STOP 1rCODE ATN a/ DEF FN SCREEN$ bABS COS m STEP ▝s RUN 9ATN  "CODE OINKEY$ DEF FN [B]$l_ GO SUB R RETURN  LIST  $"nmy< NEW  SAVE  BEEP  NEXT [A] PLOT   RANDOMIZE :Qm AND 2+ TO / OUT  STEP RldefCOS Y[A] STEP  INVERSE  TO  NEXT  TO  CLEAR . COPY  RESTORE ,5.▙pSCREEN$ qi STEP ABS > TO ▛R:b INPUT  RESTORE `l VERIFY [D] RANDOMIZE i[U]?Xj:b/ DRAW R CLS PEEK  RANDOMIZE  LINE CODE a(!u/"]Sy FORMAT  RUN  DRAW NOT @!=t NEW  NEW U4CODE  OPEN # RETURN  DRAW RND[w+SGN   CLS qX FORMAT  RANDOMIZE  COPY 6G NEW  DATA RNDj[K]@USR 1G STEP [F] DATA  LOAD POINT INT < THEN ©P= FLASH Axh TO O LPRINT  PRINT n MERGE  OR  CLS  DEF FN  OVER STR$  LLIST  PLOT  [ CONTINUE  DIM oa[bCOS yLEN  DIM SIN [K] NEXT  NEW  PAPER  OUT /VAL$ [G] BORDER ; OUT LN *q! RESTORE ~ DRAW @ CLOSE #J[P]LN SGN  PRINT U IF gcVevY LPRINT  ERASE WwLEN <>EXP  INPUT ▖[L]g"SCREEN$ ^q RESTORE INT Dm[O]Uy AND  INPUT ,ATN SQR n NEXT  COPY  BEEP + INVERSE /wLEN CODE  IF z NEW USR { AND  _ CIRCLE z VERIFY W LLIST ! ERASE CODE w,ABS < PAUSE [M] BORDER ASN c. COPY -ACS  RETURN =STR$  CIRCLE [I] IF <=[A] CLOSE #Z OPEN #tl SAVE kcCK STEP  NEXT ACS FN u$^lt%y0-ZSGN  GO TO  INVERSE }|i CIRCLE  INK  CIRCLE USR  DEF FN  CIRCLE dABS ▛ CIRCLE d[I]X CIRCLE & INK N$F} REM >dkV%^o~$f1[J] GO SUB B PAPER  THEN < RANDOMIZE ABS <>}[D]{3 FOR  AND 1<>& BEEP  NEXT [K]` CLS 0 LIST [Q] RUN { THEN r LINE [d STEP `<>|& FLASH ^$VQr NEXT % AND ngQ PAUSE eu▙ COPY SIN xW& INVERSE n RUN  COPY [T]0>[C]2e  RETURN ) NEXT [H]l&[N]▖[C]8<>/ DRAW *:h~]SGN x/GyO RANDOMIZE U{▜ THEN COS < FOR j8 DIM  STEP  OPEN #  NEXT _ THEN K[B] COPY / INVERSE .@ FOR  MERGE NOT  INVERSE O STEP 7e GO SUB D:g THEN 4 CLOSE #_LEN  CLEAR USR G PAUSE e MOVE  INVERSE , SAVE SGN } RETURN @  RANDOMIZE +) FORMAT  SAVE  DEF FN  FOR ]) THEN 8fe>=[L]MSTR$  AND USR  DEF FN h| RETURN [A]>[A]▜isATN 8y GO SUB  GO TO USR [S]POINT ©5'ASN   POKE PEEK -/'ACS EXP v AND v RETURN [H] RESTORE  MOVE ▟ COPY c VERIFY rABS TAB [K]ss CLEAR !8f MERGE => LET   FOR !SGN i+6NOT #sTAB 5r BEEP [D] NEXT 7 BEEP  BEEP  BEEP ATN ~B BEEP s_ STOP  BEEP  THEN  INK _TTAB  DRAW / CLS |ATN  PAUSE /f_g}- DRAW [K]<> REM  MERGE @,IN !#[J]INKEY$▚ PAPER L>ATN ] THEN >= MERGE  PLOT  TAB ▗▜ FORMAT V,^©xN RESTORE  STEP [S]*ASN f LLIST ▛ RETURN SQR O▛q▟m7 COPY  CLEAR -  OUT <> OR :%[J] RANDOMIZE  OR STR$ BATN [O]SY$SIN UJATTR AT X# DEF FN jz NEW CODE O<>o& CIRCLE N VERIFY B SAVE [H]F{y INK [I]}_ STEP g RESTORE POINT ABS zxG[O] MOVE  IF 3 NEW ; FLASH  MOVE ▚BIN T LLIST  DIM ww DIM  OPEN #g VERIFY  CLS ;"g LLIST <>*[J][% NEW K INK =[E][U]* CAT O|INT 8 INK  FOR b NEW LN O`f{Gz OPEN # INK {;_PY[O][J]INKEY$"<>S<>C[R]AT <> INK [G] CONTINUE LEN S: RETURN ACOS [C] FORMAT RNDjn CIRCLE O MERGE [M][B]g SAVE >=2<>©o STEP  GO SUB d%  GO TO  ERASE d} DRAW qNOT PI<= RANDOMIZE OG STEP 1USR AjlSIN u CONTINUE [K] NEXT c~ LET g INVERSE &gtCHR$ * INK  THEN  MERGE ATTR [Q]l MOVE  CIRCLE vAT [C] LLIST  GO SUB % BORDER ▛x▝d$3 AND  READ SIN p LET [R]L`_ AND SGN [A]▝q[K]7[Q]v THEN i"|:i FLASH  FLASH  TO  OUT  FLASH S CAT  FLASH ACS 7ASN > INVERSE IN K] AND Z} BEEP : INK  AND <=$'gl▞ INK u$ OVER <>▚ OUT  AND G| INK [P]~q: POKE [T]ATN  IF $PEEK h BEEP  VERIFY [D]STR$  OPEN # MERGE _ BEEP  TO k. VERIFY [G] DRAW [G], INK ▜_ FOR SIN F1rqp DEF FN PEEK  CAT  GO SUB CODE 2[J] SAVE TAN ![S]m0O>SGN fM▜z[K]u▚▚INKEY$ LINE [B][Q]K[P]▞[E]8[P] FLASH =[C]~i GO SUB [D][P]sz{Ln THEN  CLEAR *ATN 6R▙[P] AND -W©SQR  SAVE  CLS <O &[O] INK  MOVE ~ LLIST "qiCODE o CLEAR f[O])v BEEP Y INVERSE ^b+NOT [O] DATA  INK =(1AT  RANDOMIZE G[T]NOT 7[T]▛[H]ATTR [T]TAB ▘▟ATN INT  INPUT ATN  STEP  COPY "ATN  LINE  COPY d IF  BRIGHT i}Iv LET  TO <>POINT jsg[J]SCREEN$ j|/x REM - PRINT oUSR $ GO TO ABS VAL |ASN >=M CLEAR hCODE  THEN 0▝ THEN ▘[K]/g<>y▛Tj STEP VLEN SCREEN$ NoATTR #<>n▖&[N]l CLEAR _/ POKE  LIST  INVERSE `[I] GO TO [K]>&^[D]EXP VCA CLS  CLEAR  RANDOMIZE  LLIST N INK r PLOT   CLS PI READ VAL  IF  FOR  DATA  OVER  INVERSE $'CHR$ hj STOP [U]&+INT 0[P]x INVERSE ojzSGN   COPY  STOP {ABS >=[F] PAPER  VERIFY lOz GO TO [E]mGxEXP  VERIFY UY[C] THEN ?H INVERSE  RESTORE  LLIST r,[D]0▝ RUN ▘D CLOSE # OUT l COPY [ OUT "o OUT  OUT G FOR { TO NOT NOT l▚ PAPER 9e CIRCLE  DATA UXy4POINT  MERGE A MERGE  BEEP _ PAPER  ERASE ▝ MERGE  PAPER  DRAW  GO TO [K] CAT ,!@ INK  DEF FN ▖s>F GO TO © FOR ` STEP Lf AND ATN ▖wij[F] FOR  NEXT INKEY$ LPRINT 5[P]b GO SUB s2p/ INK [O]▝[H]x FOR  INK  LLIST ~O> RETURN  RESTORE  COPY [G]F LLIST s[H]v VERIFY k}?omk& LPRINT  CLEAR ." SAVE  STEP s. LOAD  INVERSE  LPRINT ? MOVE  NEW [D]0CODE Gy<=j LIST [C]VAL  INK  LPRINT  STOP - INVERSE   NEW [I]}z AND Wm[J] CIRCLE $ RETURN 2c5 THEN  OR  ERASE /PEEK  INVERSE IN p OR  FORMAT 0 RETURN   LET ▜POINT >~#PI:n*IN ~G[T] BORDER x▚ASN  OR  INVERSE  NEW [L]CHR$ [L]COS = MOVE SGN &TAB I DEF FN  PAPER ▙$ DRAW EXP o~ RETURN  LINE ▞rd<(▟ COPY  RANDOMIZE  BORDER  OR  MERGE  TO ▖,~ RANDOMIZE ▟▜O_2[J] RUN FCOS  AND [Q]`f[K] ^[S][M]D" FLASH ATN  CONTINUE `[B]P DRAW  STEP Dq PAUSE ?SQR IN ,g MOVE STR$ NOT  INK pRclPEEK [B] IF [J] INVERSE e FLASH [H]TAB 2<[J] INK : PLOT  s▖_ STEP o FOR ▗ RESTORE [R]<= CIRCLE  PAPER  PAPER u[L]ATN  MOVE  [I] LPRINT [H] STOP sDo{[P]zAT _NOT "dmATTR [E] REM Y STEP ▘ CLS SCREEN$  PLOT   CAT  MOVE u,eCODE %T PRINT ▛0M THEN 9>=V[M]u[B]/ gX{▝oPEEK 0~w$8LEN B[U]%{[B]8_ READ  INVERSE  GO SUB  ERASE U SAVE  FORMAT  MOVE "▘_&[| GO SUB G>^B  DRAW $o6NOT NOT  STOP rsi GO SUB ^St PAPER ▖ THEN S_KT[G]T*▜V▘I6X[C]T[L] OR [N]FN ZR[Q6][S]T RESTORE [N][J][M]R`<=wb IF  INVERSE rb NEXT  GO SUB ▟s}1/m CLS  PRINT  RESTORE  MERGE  OR  INK D INVERSE  CLEAR  NEW INT km/*[P][U]o#k:zCOS o[K] 7] COPY [I] RETURN U(,g4XB< LLIST EcZ CODE q THEN  RETURN  MOVE ATN  CLOSE #▟C DRAW ^V[O] SAVE "s GO SUB S)> COPY ?ATN ACS  MERGE <> COPY :'TQ BRIGHT o GO SUB ▘bEXP 0BIN [I]USR [T] LPRINT ▟ OUT  CLEAR  LLIST  INVERSE  FLASH ▛STR$  MOVE  LET  INK ©j1 CLEAR  MOVE  CLS ) PLOT   BEEP &USR  INPUT  FLASH ▞NBIN  REM  FOR y#  LOAD  REM <> MERGE ! BORDER c LPRINT @ RESTORE [C]~ DEF FN  RESTORE  LIST & LPRINT T INK }y6XATN  THEN PI>i LLIST  RUN  CLEAR & NEW  LIST  OVER lo~ASN [L]CODE  LOAD w NEXT ,$ CLEAR %  BORDER  LET ▜, INK -  TO #x3USR LN CODE v RETURN < CLS $  NEXT  STEP 5p MOVE = OUT e& STEP [S]cPICODE  IF  PAUSE ` FLASH SQR  OUT FN b DEF FN EXP POINT b[N] OUT "cNOT [T]_ OR  PLOT   CLEAR ©# GO SUB U[F]ySTR$ ?▗ml[A]CODE /F[A][F]= TO  INVERSE  FORMAT _j©]RRNDcFN aK PLOT  ! STEP b OVER  MERGE VAL ? INVERSE  LLIST CODE  CONTINUE { COPY k NEXT <=2<> CLEAR LN  FOR  RANDOMIZE <=PI IF  INK IN [ DRAW  LLIST ; LET  INK ) CLEAR -A8 NEXT >~ MERGE 8 SAVE  RETURN  LLIST '_POINT   GO SUB  RETURN  RETURN (Z DEF FN  COPY  INK  RANDOMIZE 6O GO TO >8 RETURN  OUT (<▘0[C]  PAUSE  TO > LOAD  LPRINT ) NEXT W INK & COPY (g;PIk CLEAR ( LET o[J][U] STEP NOT  INK  THEN [Q] LET  LLIST  LPRINT CODE  DEF FN  LIST POINT  LET  VERIFY  NEW [I]oO INVERSE  RUN [L][Q]▜#~▘ATTR ▙[P] 8 PLOT  > DRAW ;STR$ HG?[F] INPUT  PRINT  ▙ CAT  DRAW  AND  POKE  INVERSE  RANDOMIZE [P][P] STEP <=[R] USR  THEN © RESTORE  STOP a VERIFY  REM  FOR  MOVE F PRINT IN =  SAVE  FOR 0[L]!X' INK ▞NOT 5 CLS NOT R READ HXe>▚ PRINT  LET ▖▟BIN  COPY X▛v[U]j[M][I]vCODE 2bx LET !LN USR @ASN [N] STEP Rj LINE / NEW [T][D]USR  LPRINT [O] TO  SAVE  VAL SGN TAN  CLEAR ▙}/[C]©c0 DRAW > INPUT 2 BORDER bASN lATN 7[G] LET LEN  STEP ` FOR L/ IF : COPY U& INVERSE ! SAVE ACS [A]▖BIN "Dg STEP =uVAL$  BRIGHT cNOT EXP a LIST  GO SUB [ATN  RANDOMIZE R ERASE  NEW b LIST  LET [C] INPUT  PLOT  INKEY$[J][H][U]7UbATN > OPEN # RETURN EXP t AND [P] THEN (^ CIRCLE  LET  OVER ▟▞ AND O?ABS HzW RESTORE  OR IN SCREEN$  VERIFY  READ 1CODE  CLOSE # NEXT <STR$  LLIST |[O]@: CLS <> STEP  REM iASN COS  DEF FN  AND S$[U]<> NEXT [P] GO SUB S▟©P2g+1▝ BRIGHT PEEK w~,ABS  IF "[Q]c THEN / OUT  SAVE ' OR  LINE w CLEAR }&[A] RANDOMIZE  INVERSE  STOP .{ NEW ?_z INK | PLOT  USR WB TO  SAVE ▝? COPY o RETURN ▜/X0BIN ▚,ceCOS ©1 GO SUB  STEP  IF s&g>=▗S RANDOMIZE Qb NEW }{:ACS L LLIST  RETURN  READ ro<|$ RANDOMIZE  INK . DEF FN / INVERSE -CHR$  STEP c1ABS <> FORMAT [K]i READ zo>= COPY  RETURN ▟BIN ACS /x2[E]i|l INVERSE '3B GO SUB TPEEK [N] INK LN  TO Y COPY [H]▟ OUT ATN  FOR CHR$ Cg[Q] CLS  PAUSE [J]n<>>?! DATA b[A] PAPER SQR  RETURN ^[J][J] SAVE <>wY[H]▚!S RETURN $ POKE COS @USR o DRAW  CLOSE #/WLN nO DRAW  PRINT  { AND  LLIST  PLOT  _8 LET  DIM / COPY  PAUSE  GO SUB   RESTORE <> SAVE 1[J] OR  LINE +[D]<> IF $4 NEXT '|9 INVERSE dj PAPER v OR  RETURN  FOR $O INVERSE ~LEN S OVER w$ LINE < RANDOMIZE & PAPER N COPY y%[H] RUN ,<= INVERSE #PEEK EXP STR$ BIN ▚ACS R@ GO SUB CYj6LEN  MERGE d MOVE TAB mb PRINT <>+▖, BEEP "n NEXT SCREEN$  COPY c+DCOS /LN  STEP U VERIFY  FLASH wATN y INVERSE / COPY  READ Y INPUT SQR ATN  RANDOMIZE ▝ LET STR$  NEXT  READ " BORDER j LLIST [D]X[B]1/ PRINT  PLOT   GO TO  OR  MERGE  RESTORE  INVERSE  CLEAR  INK  OUT  PAPER vy<?" FLASH  PAUSE |1 AND  THEN = IF  LLIST  DRAW b MOVE STR$  LET  CLEAR  INVERSE PIASN 1© RETURN LEN  STOP ▚VAL  COPY SGN [I] VERIFY ATTR LEN CODE &▝▘▗▚▜▖▞▛▟▙VAL /0 COPY  LLIST ~© CAT CODE  DRAW / DRAW  SAVE }|{z>vyx>Vutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%" CIRCLE <=$BIN  CLEAR  IF  RUN  POKE "c REM  BORDER  DATA  LLIST  OVER  FLASH  CIRCLE  MERGE  ERASE  CAT  STEP  LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ CLEAR [Q][U][S]▖LEN [O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗g[P]▘} INVERSE ▝<V[G]# OVER {INKEY$[L]zb<=>[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE  STEP  CAT  ERASE  MERGE  CIRCLE  FLASH  OVER  LLIST  DATA  BORDER  REM  GO SUB LEN  PAUSE  LIST  POKE ▗ CIRCLE  RUN  IF  CLEAR "%(+.1369 GO SUB  STOP  PAUSE ADGILNQSUXZ/^`bdfhjkmopqstuvxy[C] INK {|[G] READ  FLASH  LOAD  SAVE LEN  THEN | RETURN INT u}©ATN  INVERSE l▜ CAT  OVER  BEEP {P LET |INT PEEK  REM .wBBIN  CLEAR RUSR STR$ [P]/ CIRCLE  AND AT y)USR  REM  OVER uRND/ CLEAR  RESTORE IN ▝STR$  VERIFY qATTR NOT  PAUSE j/BIN >= CLS  OR  CAT USR  INPUT [P]/[F]Z MERGE  MERGE  REM STR$ USR ;? NEXT  IF gz.RND<= COPY 8 LET  BRIGHT COS o FORMAT  MERGE [J]$b[K]STR$ <=[H]ATTR CHR$ USR KSGN  DRAW ▝VAL$ ^▞ COPY U LET y©<=vSTR$ J▞ DIM [I] DEF FN  INPUT  PAUSE ▙INT [P] RETURN SGN z[R]? RESTORE GW PRINT STR$ [O] ERASE  RESTORE O▘/@ RETURN USR ▛G DRAW  NEW [K]B[J][E][C]USR INKEY$ INPUT /~ OVER  BRIGHT USR  SAVE IN NOT AZTAB tn~ DEF FN [U] RETURN ATTR ][S]JW RANDOMIZE ^<> RETURN ▗ LPRINT STR$ a▙;z STOP !LEN %.[H]BEXP / THEN IN  COPY pACS > CONTINUE ▚  LIST X REM  POKE n RETURN bxEXP DSTR$  CONTINUE ABS $ THEN  RANDOMIZE  RESTORE [I] INK 9 MOVE PEEK = COPY  CONTINUE  LLIST ` LET  CLS IN | TO  THEN WUSR CODE [G] CIRCLE >=5▞[C]EoN CAT  FORMAT dSGN ▗▚_©?x[A] SAVE STR$ [P]WSTR$ R[G] AND yASN > INPUT |)~USR & OPEN #▚WBbQ MERGE J FLASH KCHR$ _ GO SUB ATN r}▖ STEP  OUT | CLEAR F BRIGHT [M]ABS [s COPY [D] LET ^?▞ STEP LN  LET J+ DRAW  NEXT NOT 7ATTR _USR CHR$  RESTORE H[C] DATA PEEK >=uf▛3]K▜iCODE  OUT  RANDOMIZE cWET}▖ MERGE jX OR OSCREEN$ ▘BIN  LLIST  SAVE IN %A_ NEXT  THEN 5PEEK ▖TAB ~USR E LET  PLOT  [T]Z[r'+<=VFN [I]ZK PAUSE  LINE  OUT CODE  CAT r DRAW  MERGE USR  IF <J>=j PRINT STR$ Y MERGE ▗©▘([J]BSIN SGN  RESTORE  AND AVAL [M][U]&STR$ Ix<> AND  COPY [I]BIN ECHR$  DRAW  READ  LIST /_STR$ EXP > DEF FN [C]1▞ COPY [L] LINE CHR$ TAN [G]STR$ ▟ LPRINT RND GO TO  SAVE Cm_ RETURN ©|@K=▜BIN x4 OR ATN RNDH  SAVE .<=x RANDOMIZE IN /={USR V▛▛▝K CLEAR ▟▗ASN [E]EBIN PEEK | PRINT  PLOT   CLEAR K<BIN  LOAD  SAVE P▙ THEN g INVERSE  POKE [J] RANDOMIZE CHR$  STEP  DATA ▙ABS NOT {/ RETURN ~[H] THEN ©*IN >=▜USR [P]9 LIST  DIM STR$ ▙Y FOR ▚ PLOT  USR [R]80 SAVE %v FLASH  READ SQR IN  LOAD  RESTORE ABS  PRINT  OR B>= BEEP  BORDER  THEN [~&PEEK ▟5C LOAD h TO p" OPEN # INPUT CODE LN ABS CHR$ KTAN ▚[M][I]RNDASN 4USR AT  RANDOMIZE < THEN ATN ▖|G CLS .~6=>6 SAVE z OUT  THEN yFN F CAT  POKE USR N GO SUB  CLS  LET ]~LN SGN /INT  POKE ABS IN © THEN  CLS C CLEAR [G] BEEP w INK ARND DRAW USR IN z'NjPEEK  FOR ATN 6/IN  SAVE  LOAD ©IN >EXP TAN vPOINT y[J]J PAUSE s REM  RETURN TK[S]CHR$ r LET o SAVE T RUN  RANDOMIZE >PEEK :; IF ASN LEN  PAUSE ABS 21#ASGN PI PLOT  4▙USR © POKE  COPY ~|4 PLOT  .RNDE PRINT C`[C]@jAUSR CHR$  LPRINT [H]gIN 9 COPY :}ASN [O] BRIGHT K▟[P] DEF FN IN  PAUSE  LLIST I LOAD  PRINT LEN  PAUSE  MOVE r▝ CAT 7©$USR f IF ACS Ar CLEAR Bd OUT ▟[T]©USR @?ABS |ATTR  GO SUB 1 NEXT  COPY  DRAW ) RETURN USR [T]Ma AND  BEEP  RUN  COPY G▛Ab=B~?8 LINE ;LN n©[J]x SAVE LN  COPY  LPRINT IN ? INK +@ SAVE [O]STR$  PRINT pf NEXT <NOT w©<> NEW ▝ DRAW 2c:W3▟ FORMAT IN  CLS >▝ MOVE j▛ LPRINT  LET  PAUSE x~N INVERSE yGP RESTORE  CONTINUE USR  STOP  SAVE ▖LEN  PAUSE RIN CHR$ Bh}C& OPEN # NEXT z MERGE LUSR [Q]▚[T]NOT r IF <=CHR$ [I]X MERGE BSGN ~XAT /^▘gwINKEY$ POKE  RESTORE  OPEN #ATN ` DEF FN ABS } IF {Q STEP [U]oSIN  RANDOMIZE IN  DIM ©▘<| CLS  THEN _▖ AND . NEXT  PRINT ▝IN <>©LEN  RUN COS  THEN  MOVE v▝ STOP ▜$-7 COPY  RANDOMIZE  MERGE ATTR SQR USR ZPEEK [C] BEEP vbCHR$ o CAT A|▝SGN  NEXT  INPUT  OPEN #< RANDOMIZE  LOAD 'u[L][O]D OUT  PRINT A}[H]j PAUSE STR$  SAVE [H]▖_ MOVE ©VAL  READ  RUN SQR SGN M[G] FLASH [H]>CODE By[L]nSTR$ <=>=/ DRAW w RANDOMIZE STR$ x BEEP ©▜Te LPRINT PEEK  CLEAR  SAVE SGN ▚ INPUT b CIRCLE : COPY WPEEK LSTR$ < CLOSE #[Q] RESTORE  INPUT AT  SAVE ▜IN t[A]ZTAB VAL @ LOAD /STR$  COPY J CLS [T]a OR SQR x.:▗ COPY  LLIST srw CONTINUE IN #?CHR$ [N]PEEK SGN  OUT }Q#[B]B0; INVERSE !▘ABS  DRAW sD[L]/~ LPRINT u<SQR  OR USR  LIST BIN w▜C[P]PEEK >= DEF FN USR < COPY o▛ GO TO SGN vIN O LOAD  DEF FN ▗ DRAW  MERGE IN 9USR IN STR$ yEXP  TO LN  REM  INVERSE ;_ SAVE ATTR  RUN © PRINT zsJ_▖SGN ©>= OVER  BRIGHT z COPY CODE ~ PRINT NOT 7o STEP  CLS ▟ NEXT  DRAW  RETURN ATTR |IN ABS  CAT %[E]L RETURN [H]/CHR$ ?~t PAPER  OUT [D]<> DEF FN #©▞q RUN  FOR ▚ OVER ATTR  MERGE OhHIN PI<9 DRAW 9TAN  COPY  REM IN CODE  OR  DATA 0▙ PAUSE V THEN  READ 8▝STR$ g BORDER s RANDOMIZE  RETURN  OUT kl STOP  BORDER >=LCHR$  MERGE  OPEN #[L]IN ▜ BORDER U COPY  STOP <> CLEAR W©▝ LET 8 RANDOMIZE 5y CLEAR <>< RETURN  MOVE [C]~_©sTAN VAL$  THEN  CLEAR ACS / DRAW  OVER kABS [P]J LOAD } SAVE /<=_PEEK  PAUSE h?( RESTORE IN ▝ RANDOMIZE [M]TAN  READ  RESTORE  RUN 1COS  LET ▟,FN <>ABS 1VAL [J] COPY STR$ @zHlATTR =VAL ^<z% PRINT  PAUSE ;▝ CLEAR  FLASH :mABS 9B DIM z{87 PRINT  PLOT  6SCREEN$  BEEP 5^▞4 AND [P]3 REM m PAUSE 21gABS 0 FOR /.OCODE - READ  RANDOMIZE ,z MERGE +* BEEP  FOR )CODE ATN ([o' BEEP x PAUSE  IF  NEW &z CLS %s FOR  PRINT $ VERIFY SIN @ PRINT  CLEAR PEEK [B]# NEW [G]ATTR <= DRAW [I]$/F? LLIST ©PEEK ▗ RETURN  COPY SGN  REM q DRAW  INK  COPY  BORDER 2 IF [J] COPY - RESTORE IN [L]INT  RETURN  POKE &▛BIN  TO  LLIST NOT  THEN ,AT /[M] CLEAR © IF  LLIST  REM  CLEAR [M] PRINT SGN  RETURN  RANDOMIZE uABS 7CODE  FOR 6▞X RANDOMIZE 5 CAT  PAUSE  VERIFY 10 RETURN x/ RANDOMIZE 3©COS [ PRINT tABS VAL$ ) BORDER u( NEW IN  IF  STOP [P]IN f RANDOMIZE ATTR Q`▞~CHR$ BIN  IF z CLEAR ?6[H][T]tATN RND STEP '[I]ATTR zIN  LIST  RANDOMIZE  OPEN #3d▝ NEXT <= CLS , RETURN  SAVE 7 RESTORE ]CODE />[F]IN [P]▝y REM  ERASE AT USR  GO TO lF>1▘ RETURN `[O]ACS I SAVE  NEXT  CAT [P]{ THEN STR$ [D] CIRCLE [U] INVERSE  LIST +MyzyO READ RND RETURN 2,© LET [D]. CLEAR 1 PRINT * DIM u)( CLEAR  DRAW  BORDER Y&ATN  STEP %2 DRAW ATTR [P] CAT  THEN ACS  CLEAR 7 COPY  RANDOMIZE  NEXT  FOR k TO /4 0c6[P] DRAW EXP y5=om&LN  THEN  BORDER q[Q]#J4ASN PEEK  RESTORE ?AT W0 DRAW  LET /& MERGE  TO  LIST SGN xmCODE R▚m NEW [N]' MOVE  THEN  OPEN #fCHR$  FLASH ,a STOP  OVER ATN "[P] LINE  NEW ATTR c SAVE ,/mTAN NOT  OR [I][P] MERGE z[F]>=[P] OVER fATTR q RETURN }|/f65©[T]O BRIGHT  ERASE 2[G]? RETURN H- SAVE <>1j[O] RUN *)?ABS (s[O]ACS [G]IN . NEW zyv PAUSE LlSCREEN$ USR ~ RANDOMIZE COS [A]6[C]SIN  DRAW ▚ RETURN  IF G SAVE ABS  MOVE  CAT  DRAW  RESTORE ▟m> DRAW  MERGE SGN [D]ATN ? CAT  FLASH P[K]CODE  ERASE YC[G]b RETURN =0/f! NEXT /SCREEN$ © CLEAR Z MOVE 'b▗VAL$  NEW %'e[<;lCODE  LLIST [L] FOR ©<=K LLIST c` SAVE gMx BORDER [F]ABS  NEW e[R]▚ RETURN <>>= NEXT [L]POINT q©ABS  REM 7g NEW ©/ OPEN # CONTINUE 43 CAT  CLEAR 2P THEN  COPY [N] DIM - CLEAR +Y©* IF  READ ABS  STEP TAN  DEF FN  FOR ABS  MERGE ▛n[L]_.` RESTORE  STEP # LLIST  NEW VS BORDER +[F] LPRINT  CAT  TO TAN v DEF FN [< OR  TO g[ RETURN % MERGE ^9ATN  GO SUB 8 LET AT 76g CLEAR 52[A]4 RETURN  FOR YLEN /HV,Uc[P]lPI*<W( OPEN # FLASH 'q RANDOMIZE <>3&INKEY$We DATA mi1y FLASH $| RANDOMIZE hX/oTAB @0`ASN [P] CIRCLE [B]z▞ MOVE ? RETURN  SAVE 21ATTR U RESTORE  LLIST ▖[N]< THEN BIN  OVER [G] GO TO  CAT 98ATTR  RETURN M`INKEY$c13) NEW [D]2 CLS ▘IINKEY$/. PLOT  SIN ,H[U] CLEAR [U]Wl RETURN [U]INKEY$' POKE *[T]W CAT SIN  READ [J0 BORDER  STEP oABS &[A]XmS OR ©? LPRINT  NEW  INK ▝[H] SAVE  BEEP  COPY eCV[P] LINE yBIN  LINE  VERIFY SGN  BEEP  RESTORE j©96 PLOT  875 NEW  INPUT M COPY 21 CLS x SAVE D SAVE .-U OPEN #,+INKEY$[T] FOR <> NEW ('1BIN &[PI▝4 STOP $ OR [O] COPY  THEN  NEW  THEN  REM _+STR$ [P]^ LINE m!▜ CLOSE #▗ RANDOMIZE E▘Nu[O]W BORDER  LINE COS  OUT /F OR  NEXT ▟[O]gINKEY$▞W▟[H] COPY  CLEAR EXP 9 LPRINT  PLOT   NEW 7=[L]z.7[M]8., IF  STOP  DIM [O]X STOP  GO TO  IF '& READ ?cPI1% FOR  THEN [M][O] LET [H] THEN  THEN # STEP [P] READ  NEW  PRINT  BEEP ▚s LPRINT  PAUSE /A AND 0<>c POKE INT t ERASE $~ASN SCREEN$ ~x3[D])rLN g[M]7:v READ 8[J]5STR$ [L] NEW k310 RANDOMIZE [K] CLEAR /- DRAW 7`67457 RANDOMIZE M[J] READ  RETURN y DATA $u=[O] DRAW y OR MtSCREEN$ VAL  IF BIN ▘( STEP INKEY$IN ,▘ MERGE  GO SUB E THEN  FOR  TO {▞ RETURN y<=1l[K][G]1# PRINT n$ LET _9COS 78 COPY 2PEEK  MOVE t320M[J]/ CAT  VERIFY  COPY +INKEY$g[R]▖([K] COPY '&%[K][J][T] GO SUB l6 READ  CAT  LINE ?,IN  CLOSE #" LET  DRAW  THEN ©oPEEK o[M]!USR SGN  STOP STR$ _[C] DIM <= COPY SGN  OVER |z]><© CONTINUE UF/vCOS  AND %n BRIGHT : SAVE 798M▞6BIN [P]420.d▝,*x"[M]b NEW '& CIRCLE  LET %%$v CAT y[O] STEP ATTR "[H]f_[F][P]<>![A] OR  MERGE  CAT ▘lIN EXP rQ▝[Q] RANDOMIZE ?©^L6 RESTORE  PLOT   DEF FN  DATA n BRIGHT L TO 4; DRAW o:9875H[U]IN LEN  LINE R.+OY[U] NEXT IN %$g[M]1sEIN xo[L]!y5▝% DRAW 2 READ CODE _ RETURN u SAVE __o FOR V> x[ AND 3=PI▚[A]<[O] CLEAR ;:9 VERIFY COS 8630fz-pK[D]bSCREEN$ % INK ▟$# CAT  INPUT " DRAW SGN  INPUT [M]xTAB © LET ▛^[C] OUT ATTR  ATTR ©NOT SGN [G] NEW _ PAUSE AT ATN  DRAW  LET [O] TO 4MT=o<;INKEY$RND DRAW  RETURN 5 DRAW + OUT L[E] INVERSE  CIRCLE $#"COS [O] INK <> STEP  BEEP [L]1, RANDOMIZE & RUN  IF SIN  CLEAR USR / BORDER  STEP ▗ PRINT `/, LLIST  DRAW  CLEAR ATTR TAN ▝ RUN ▞[F] VERIFY [R]FF CAT  NEXT  GO TO >R<= DRAW  AND [I]P_'#"g RUN ! POKE AT L BEEP r REM  R GO SUB &USR LN  LIST STR$ SGN ©ZXf? RUN oX GO TO  AND ©ABS ^u INK  CLOSE # REM LWPOINT EXP N PRINT 'L&^ LPRINT COS  Yo[E]©= FOR AT gU DRAW  OUT  INVERSE <3 DIM  0©VAL IR[A][U]CODE 1 COPY ▙ RETURN WABS  PRINT SCREEN$ IN PI▟1IN { VERIFY IN IN 1 OVER =PEEK  CIRCLE $ CAT NhPEEK ▚sYEXP PEEK INT ©< RETURN  INVERSE  DRAW 1 READ [S]CHR$  PRINT ABS  DIM  RETURN S SAVE  FOR m7CODE  @P AND ,[L]O RETURN g=TAB PI NEW 7POINT TAB  NEW  INPUT  RESTORE  COPY ' OR [T] RETURN f NEXT IN v READ ©FTAB <ATTR SGN  RANDOMIZE  LET  PAUSE ATN _ THEN 1+ OVER ATTR -vUSR  NEW  BORDER ▛[I]W! RETURN  DATA ]©CODE zy=' GO SUB 46IN  NEXT ) OPEN # PLOT  INKEY$ CLEAR #VTAN gM_SGN  TO ,AT  OVER HATTR  DATA g AND  FOR x[L] TO  LLIST [G],IN  OVER /. STEP  FOR NOT ;j^ IF EXP ▝ RUN  INK mCHR$ / RESTORE  LIST [J]POINT  RETURN [K] DRAW +7 SAVE Pl CLEAR  CLEAR [L]5[U] LET } RETURN 6~BIN COS a PRINT  PAUSE + COPY  LOAD  BEEP  OR  PAUSE [C] CONTINUE  NEXT  DATA ' THEN IN  TO AT K TO  LIST STR$  DRAW  PRINT SGN POINT  PLOT   PAUSE a~| CLS M[D] DRAW  LPRINT bPOINT SIN  COPY pSGN x` DRAW [L]ZIN [I] BRIGHT VAL$ [I]▟ OR  LET BIN  OUT +c GO SUB m<> INPUT b REM  BORDER %CODE  LPRINT ^ RETURN ▟`] NEW buT  COPY  CAT  DRAW K RETURN  CLEAR USR SGN [H] CLOSE # PAUSE ?[C] BEEP  RANDOMIZE [D] COPY ▖V|[I]FN  TO TAB #COS [H]|3▖H RANDOMIZE  LPRINT  STEP  INK  READ ▟ PRINT [F]1 LET /©EXP  DATA  LOAD  THEN KYs NEXT  TO  PRINT *[Q]LEN `} COPY f[T] COPY p[T] VERIFY  CAT  THEN  BORDER  RESTORE *9©.nSTR$ 0`[I]/. STEP  ERASE PEEK  INK STR$ 7[U][H] SAVE  DATA [A] CIRCLE HSTR$ # ERASE  OR ©▟1c SAVE  NEXT <>H2© DATA uIN  DIM >= DRAW  LOAD C^q`i▛ OUT GATN © CIRCLE ▛X) RETURN  LLIST /[A][H]CODE [C]eCOS  LIST aDb[R]3 SAVE  INK @▚Yi NEXT d1 ERASE SCREEN$ ©[C]n6SCREEN$  CONTINUE PEEK [K]SGN  OVER ~▚y`CODE W8? TO  FLASH , RETURN " OUT Y`[H]©/NOT  NEW  FLASH |{IN  SAVE PEEK  STEP ~eRND CAT  AND  DRAW ▛[N]b`F`9 NEXT  RUN _6[C]TAB 1[O]z DIM  GO SUB $ LET y[L] BORDER  BEEP  NEXT  NEW `▟[P]y CLS %▘ RESTORE ©J▝ CAT  LOAD 0VAL ▜IN  STOP E IF ▙ LPRINT g CLOSE # OUT ASN NOT COS PI COPY  AND CHR$ jc CLS 1INKEY$ CAT ) RANDOMIZE # SAVE ▜i[C]qLN X[B]3SCREEN$ [O]/PEEK  LET  NEXT ?zCHR$ [G]PEEK [M]K AND  SAVE  BEEP j*[I]USR PEEK  RETURN 7CHR$  COPY ATN  RETURN R STOP  PAUSE @ POKE  COPY Y[ DATA [T] CIRCLE  PAUSE PEEK  CLEAR  SAVE  AND  RUN j'>=O~ NEW IN ] RESTORE ? RETURN 0 THEN  RESTORE o8, DRAW  SAVE [J]STR$ _,pk CLS  READ b OR  OUT  FLASH 3 SAVE m▟ LOAD  CAT J COPY  PAUSE [P]© CLS ▚yRNDfj7_ PRINT %[T]gx[O]LEN  SAVE  LIST  RETURN  LLIST  THEN  LINE % DRAW  FORMAT  FOR ATN  REM [I] BEEP X:< DRAW  SAVE USR  RUN ATN SCREEN$ PIu^CODE / RETURN =/<>% LIST /6d IF ▙ CLEAR @q NEXT  CAT EXP ? LPRINT [K] CLEAR LN 8[M][B].[R] SAVE COS  RETURN [I]Dx'n RETURN [U]@4 SAVE  IF "X'/ CLEAR  POKE J RETURN  LLIST  PAUSE  RETURN  OUT  REM [R] COPY i READ < READ 7f CLEAR  RESTORE O COPY PEEK  DIM  LLIST  INK  CLS i[J] AND  THEN EXP  COPY w RANDOMIZE  STEP  COPY ▚1 NEXT SGN J▞^ MERGE y!SIN 4▝bNOT [G]k©[H]C SAVE  DRAW +USR  LIST  LIST <=CHR$  INPUT SQR  LOAD ▝ CIRCLE SGN Z2iSIN dD NEW ASN  CAT cNOT M AND 0 CAT fP2[H]COS VAL$ f LOAD  THEN © COPY  READ ? DRAW USR  STOP m,3[J]SIN  NEW  OR ▜ RETURN L0 SAVE #VAL ▝ INK  RANDOMIZE 5 IF  MERGE TAB VAL$  LLIST  MERGE CHR$ $g OVER  COPY e INPUT - LINE  MERGE SQR  CLEAR < FOR 7[D]lcd[K]6SCREEN$ ASN JFN ABS INT  CONTINUE  DRAW &JINKEY$K RESTORE  LIST  DATA oASN  NEW  PRINT  IF  RANDOMIZE i RETURN g*0 RETURN ~EXP [Q].`COS ▛dATN W OPEN # RANDOMIZE VAL$ ABS INKEY$d1 INPUT  NEXT ,9 BRIGHT  OPEN #$ STOP  NEW  CLEAR #! RANDOMIZE PEEK 35 FOR *[I]ATTR {, COPY EXP  DRAW ` PRINT VAL [Q]F6 IF  PAUSE ~ COPY  OVER V"▙▜▝ REM  COPY ▘▗▜▞▛/>▖▚ RETURN )TPOINT ▙STR$ b`▗0▟▙INT  DIM  RANDOMIZE ▚▘[ RETURN ▖A STOP 0 FORMAT [I][L] OVER ▜▟STR$ 0s= COPY [P]<>USR ▝▘@ PLOT  ▗[N]vSCREEN$ ▞ LLIST ,FN ▖@ DIM [N]▛[E]<sABS  LLIST ▖d[R]`ASN B@v COPY >_[J]o PLOT  ▞ FORMAT X GO TO  PRINT USR z}[ OUT [P]F▖ LOAD  OVER [Q]?@ CIRCLE f!ATN TAB [L][F]x▛TAN  OVER  CIRCLE ATTR P#LN Fb`o( 1 BORDER VOrPPOINT n OUT =[R]X OVER SCREEN$ INT /▞VAL$ V CLS Yo STEP . BEEP  GO SUB TVAL /[P]B/r OR LEN CODE %- CONTINUE O VERIFY  DATA `POINT R[B] READ c[A] PRINT [q LOAD / FORMAT TPEEK [Q] PRINT  ERASE `ATTR 5VAL NOT -M>=ABS Z FLASH  MERGE  LOAD SCREEN$ `AT ^QSTR$ @R! POKE ; LLIST  AND [T]{4^/ COPY  LPRINT %S OUT [N]STR$ !M LET [M]| CLEAR  RESTORE r7 RETURN /VAL < LPRINT PEEK  FLASH USR  REM / SAVE STR$ SGN o▚{7BIN  GO SUB ? ERASE  FOR  STOP [R]▚ OUT Fa BEEP oK,y@ NEXT  LINE  CLOSE #"CODE  SAVE ▙x DATA 1VAL I*▝a NEXT NCODE  LINE  COPY Z[E][R]PI STOP  NEXT  SAVE QV READ SIN a OR  LPRINT  IF <rSQR [Q] CIRCLE  FOR /5▚r{ ERASE STR$  POKE USR POINT #gSTR$ LEN [O]ZVAL T DATA ▗A GO SUB  MOVE ,~[Q]@ LET j[S] PLOT  K"COS [H][R] MERGE ▛[S]USR h▝Ta>IN X IF "0SIN  BORDER SQR ©[K]▖ LIST . CLS  SAVE  POKE G READ  BORDER  CLOSE # MOVE  THEN $FN  RANDOMIZE ~[T]6gi LOAD  IF  OR [D] PRINT p CLOSE #}yC▖▞© RETURN  LOAD  CAT c SAVE nsd STEP  CLEAR * GO TO H FLASH  RUN  NEXT  CLS 3 READ  NEXT O▞<= TO [A]Rm LET K~[P]ABS }sz_j` STEP [H] OVER [O] NEW =CODE s PLOT  SGN `© POKE  OR  RETURN ATTR S LIST ABS xSQR )y^BzM COPY  IF [M]X CLS GACS  LLIST  GO SUB {/PI LOAD AT _[P][L][A] NEXT [T][H]X[B]%}l[I] PRINT  IF ,[H]K MOVE `s OR  THEN [Q]#IN  IF LEN  CONTINUE fL RESTORE STR$  NEXT nVAL PEEK  OPEN #[K] PLOT  <▛ LLIST ` LET [B]bV(CHR$ j▛ OUT ? OPEN #SQR  STEP ATTR  CAT ▛ MERGE  THEN STR$  OVER PEEK ▝@_&^▟ INVERSE  LIST ?SGN CODE 7<  OPEN #NSGN  RESTORE :CHR$  RUN  X1 LPRINT ▝[Q] BORDER v LPRINT 0<#▝SQR 7[H]VAL$  LPRINT  COPY y`@`[D]NOT L LPRINT 5IN ?[P][E] FOR L$ RETURN  RANDOMIZE > LOAD   PLOT  `[O]▞. OUT  CLEAR [K]N COPY [!%9~|.VAL$  COPY  . RUN USR USR  CIRCLE ©Q@, DIM  REM  LET <= GO TO  CONTINUE  DATA  RETURN a LPRINT ©o< LLIST  STOP  READ U POKE : RETURN f DATA ©ACS  PAPER ▗ATTR <=n[O] LLIST 5 FLASH  RESTORE ASN a) COPY [C] OPEN # RETURN  DATA ~ BORDER COS &f MOVE © INPUT  FOR  GO TO |▖*CHR$ SCREEN$ Ii CONTINUE  NEW ASN [U] COPY  LLIST ▞NOT  INVERSE 9 CONTINUE U>s THEN  TO ? GO SUB [O] DIM  BORDER  DEF FN lj)LEN _ DIM [D] PAPER ATN V[U]"m OVER CHR$ [H] COPY EXP ZUW_G TO ;31[T] MERGE i COPY [D]ACS U'[U]z OR [N]NOT  OVER l▖ FLASH  PLOT  S BORDER  y TO [U]INKEY$ IF PEEK ` SAVE  COPY  BORDER f*VAL -}S TO -IN h4ATTR  MERGE )!}UT LPRINT  RUN  AND $<>[U]Gl BRIGHT ?Ef TO V REM  RETURN <>yJ0▝TAB V DRAW FN  MERGE # INVERSE h!c RESTORE r(' IF INT [E] FOR ATTR ▖E( MERGE  PAPER 1tK$&# DIM sBBIN ATTR <cCODE >= CLOSE # FOR  GO SUB INT  LLIST ▖ AND ▗[I]g LINE 9 GO SUB >=d-LEN b<=▟ LET [K]6SGN xh PLOT  LN  LIST COS [C]W COPY  CIRCLE m POKE  STOP  ERASE LEN [S]ASN 5*<=1 DRAW AT LN RND COPY  DEF FN TAN [R]IN xj% FOR <>t COPY FVAL ABS 7INT  CLEAR LEN NOT ->VAL$ VF RETURN & FOR ACS  POKE mUu INVERSE  CLEAR <$LN [P]n;k NEXT  DRAW Vm" BRIGHT ) RETURN [I] INPUT  STEP  FORMAT AT gPA OUT  DIM ▘ INPUT [F] PRINT ACS  LLIST (TAN  REM  FORMAT INT  NEXT  LOAD [D]a_yd RETURN - BEEP  NEXT 1) RESTORE  OPEN #,AT NOT COS ACS 9 INVERSE [H]mFW OPEN #2De LOAD  STOP *& GO TO RMSGN VAL$  OUT  INPUT V STOP ©2ATN  PAPER [A]Y% FOR a RETURN ` FORMAT LN |~ CLEAR  DIM ) LET )s[T]X LIST  FOR -eG PLOT  [P]▗[T] POKE  OVER NOT 6IN  BRIGHT  CIRCLE =© LET  SAVE 0LN j CAT  LET  LIST  LOAD  GO SUB ▚oLN  COPY  MOVE P POKE  INPUT  CLEAR  FLASH eL OR INT j CONTINUE VAL  INVERSE  FOR IN *a CIRCLE  BEEP X RETURN ZLN )Y<= NEXT jVCODE  IF COS qy INVERSE x BRIGHT  RANDOMIZE v? READ ABS  LLIST [M]QkATN L INPUT 8 DRAW  BRIGHT jPIVAL$ #_ATTR USR  NEW o INVERSE 4 INVERSE L<> RETURN  VERIFY  CAT >= BEEP ?SGN tz8[J][U]0 CLEAR ATN ; RETURN TAB  THEN [D]:IN x©"[H] NEXT L}/ OPEN #▟▖ FLASH  CLEAR x OR 7 OVER H6 MOVE  FOR ' RANDOMIZE ▙ PLOT   DIM  PAPER IN  INK  FLASH  INVERSE  INK  DATA SIN SQR [E]vATN  GO SUB  CIRCLE  RANDOMIZE ▛ SAVE r[F]0x CLEAR  RETURN  FOR [N]jATN [R] LLIST  NEXT ; FLASH SQR <=b OR /~ REM mATN D INK [F] CLOSE #79 COPY % FLASH SGN [E]PEEK  LIST PIA}SIN H INK  LLIST ABS - CIRCLE  READ ATN  FOR  SAVE  REM  GO SUB  GO TO +b NEW  INK  PRINT  COPY p[K] RETURN =SGN ATTR  LET HB}z COPY  INVERSE [L] RETURN  PRINT < CONTINUE  DIM  LOAD  RETURN ▜ INPUT  READ  THEN ZB7ABS ATN  DRAW ? DIM  GO TO INT  PAUSE o READ #V NEW F INPUT [F] PLOT  -)' MOVE INT & LOAD  LIST  CLS > COPY  STOP <=x^PIv RUN  LINE D TO [U] CLS  COPY  DIM 0 NEXT SQR _L DRAW jATTR  RESTORE [D][K]uw REM [J] BORDER  MOVE SGN  LOAD oq{w LIST  THEN ?z[T] CLEAR ( INVERSE  PRINT [U] CIRCLE ABS [J]/' INVERSE VAL$  READ  RESTORE  LPRINT 8ASN PEEK Ko[D]LN  COPY  BEEP  MOVE xqCHR$  GO SUB  REM SGN [K]ASN B LIST  INVERSE BIN  RETURN xCHR$  COPY G NEXT TAN [M]  LET oABS [I]0 GO TO ^a GO SUB  RETURN  DRAW  PAUSE SQR  FLASH  VERIFY o CAT  GO SUB  DRAW  NEXT ©5PEEK 9^SIN da OR  FOR . CLEAR )b+ABS  VERIFY 9 DIM  LET jINKEY$[G]l LIST  LINE r STOP  LLIST P FOR ~5-©IN hK[U]BIN =B▛,a CLEAR v COPY ])= POKE  RESTORE UKu% ERASE J^6 VERIFY ATN  IF  CIRCLE  LIST 0_ PRINT Q STOP FN >K INPUT EXP }]5 CLOSE #1COS  INVERSE 2 BORDER SGN d[H]V&PI NEXT +[H] DEF FN  POKE - CAT ▝ATTR  INVERSE  FLASH [C]Zv INK  CLEAR !* OUT [D]/_ RETURN NOT zWa POKE  RETURN yP COPY EXP _ STOP GK▗ THEN ▛t RETURN ow:LIN /ATN ▘ SAVE  CONTINUE  PAPER ▜ FORMAT 6; PLOT  BIN f PAUSE b PAPER VAL$ DLN SGN  RANDOMIZE SGN [E] FLASH !W]=(STR$  COPY Rj{ REM %<><= CLEAR EXP  IF }▜ COPY U COPY  GO TO n[K]/( LET }^▟ DRAW  BRIGHT XpdrTAN ? PRINT PEEK  GO SUB  INPUT VAL$ [T]x OVER  ERASE  GO SUB  DIM K[C] BRIGHT +3U INPUT ▗'NoINT TTAB ASN SGN  RUN '; NEW  OPEN # OUT v STEP [R][L] COPY  DRAW 3|ATN  PAUSE / MOVE ABS  CAT  GO TO ATTR h[O]INKEY$CHR$ [A]USR  LOAD  RESTORE ▛^POINT f©y VERIFY $ GO SUB 3▗NOT  LOAD  CIRCLE ;<= TO ©▜CODE STR$  LLIST Dv LIST  PRINT E41. OUT ! CONTINUE  INPUT  NEW  LET  FLASH  THEN 4EXP  LOAD  INVERSE y[ OVER  POKE  BORDER  GO SUB  PAUSE SQR TAN <>9 RETURN POINT  CAT  BRIGHT wj POKE AT  SAVE  BORDER  RESTORE LEN Bg TO [M]'BIN P[I]CHR$ . COPY [H]BIN ▖[B]E RUN ▜ BORDER ] OVER q- DIM  STOP  MERGE  INVERSE 7lM/SGN j( RETURN - OUT % MOVE  LPRINT & GO SUB /IN h8 BRIGHT [J] LOAD  RUN ▞ DEF FN  FORMAT  STOP ©CHR$  PRINT  IF ~SQR x LINE BIN ▜ATTR  BRIGHT  CLEAR [M]NOT  FLASH EXP USR G[I]INKEY$w^F<BIN 3 LOAD U:SIN  RUN  NEW [[H]J> RANDOMIZE PEEK  LLIST ▛[P]SGN y ERASE  NEXT  STOP <=? SAVE SCREEN$  RETURN  VERIFY  GO SUB  COPY USR $ LLIST  INPUT G/PEEK  OVER SGN P[D] NEXT  FORMAT PEEK  LET B& BORDER  CLS  PAUSE  LET  OPEN # NEXT +~[I]E OR ▜#FW LOAD  STEP ~YwoCHR$ }PI CLS 'a COPY 7/ OVER [F] IF TAB [R]jWFBIN  LINE  PRINT   FORMAT LEN [S]{7 GO SUB ABS PEEK ? INPUT  PAPER Mp)! RETURN  DIM ▛ CLS d[I] LLIST E7[G] BORDER `w PAUSE [N]'SQR [K]UABS  FOR ]ASN <=oVAL$  VERIFY  STEP <>!>/ PAPER ABS PEEK  RANDOMIZE SQR wTAN  INVERSE POINT NOT  COPY ^[P][I]-w# COPY [H] LINE [O]8 LOAD  COPY O_[P] INPUT  CLS  CONTINUE ▜[T] RANDOMIZE T/USR [I] PLOT  <%I PRINT [F]H RETURN PI LOAD wy RUN  PAUSE vNOT  NEXT r SAVE y▛ PAPER }? BORDER  CAT PAT CODE [K] OVER SGN COS  COPY IN  GO SUB [T]J RETURN  OUT  PLOT  !V}O@[F]`>v% SAVE W LOAD  MOVE M[S]<=N NEXT  RUN ▛ FOR  DRAW  INVERSE  LLIST 7 GO SUB ]/^ INVERSE ATTR BIN O$w{[M]7 FLASH ▜ INVERSE  INK jo VERIFY CODE  INPUT * LOAD  OR ▞ LIST ATN  OUT  CAT ATTR <= COPY [A] INPUT nRND}STR$ C BEEP  RETURN  COPY q STOP ▗ INPUT CODE  IF  DEF FN  BRIGHT  SAVE  STOP  CLEAR ▛[G]"x RESTORE IN b[R]yA PLOT   OUT  LPRINT Hu BEEP  RANDOMIZE j4 CAT  DIM l LLIST [O]]UB, RUN ZRND& CIRCLE  LOAD  LPRINT  INK BIN / RESTORE H MOVE z COPY [H]o BEEP  NEXT  PRINT /|VATTR | INVERSE  INPUT  LOAD >LEN  STOP CODE  CLEAR  FLASH ATN ?Y[M] FOR  RUN  COPY  THEN  BRIGHT [H] NEXT  TO }S92 NEW  FOR  BORDER GEXP M[B] STOP t COPY BIN [H]/W;zN+[M] OVER  LIST ?P) RETURN BIN  INVERSE  FLASH # DATA  LINE " CLS SGN PEEK  COPY ▚ OVER  FOR POINT [R] PRINT  OUT  COPY 4/[H] RESTORE $ FLASH ; DRAW 0GINKEY$K LET  LIST  OR  FORMAT I STOP [Q]x COPY ▗[G] COPY y[N]=ABS  CLS CHR$  IF  COPY PIO BORDER  COPY bTAB dPOINT v▝M0 AND [E] FORMAT } LINE  COPY  PRINT {C|PEEK % GO TO ?eBIN  STEP 3w FOR [S]7m OVER  CLOSE # IF !; RETURN "cVAL$ PEEK LN k+ DRAW [H]SGN ATN  REM e SAVE ATTR ABS  INK W READ [L][K] ERASE  STOP  INVERSE  IF  DRAW  DATA x LET   ▘▞ GO SUB [J] RETURN [U][P] OVER  CLEAR ATTR  NEXT  COPY STR$ k[M]RND OR [C]POINT 9[EXP eG]▖:} OUT [C]'ATTR ▛ PLOT   LOAD CODE ~ NEW  FORMAT  RETURN ▖ CLOSE # READ  NEXT  PAPER /C COPY  LIST TAB  COPY  READ d[K] NEXT  OUT  POKE EXP SCREEN$  MOVE  RETURN < IF [E] VERIFY  FLASH TAB I/ OVER  MERGE IN /17[M]^?[P] SAVE 3{▚CODE  LOAD  OUT  CLEAR SQR  STOP 8 READ  COPY  INVERSE ^8 CLS  PAPER  STEP % THEN BIN [U] PAUSE -1gt▜ASN o'wCHR$  STEP SCREEN$ [M] SAVE lASN { FORMAT  OUT  BRIGHT $&y COPY .ASN %PEEK  GO SUB  LPRINT C FOR  DRAW  CLEAR }- COPY ?[N][R]RND BEEP  RANDOMIZE LEN  DRAW  BORDER } THEN  IF /ATN MSQR PEEK  IF CHR$ STR$ b"~ CLS ACS  BORDER ' COPY ▜]IN  LOAD L CLEAR V LIST  DRAW ~+ FOR  DATA <"bSTR$  COPY  MERGE C. OVER NOT </8LEN ) CONTINUE ! GO SUB  BRIGHT V STOP  OPEN #w PRINT  CLEAR LN d$[F] RANDOMIZE  POKE  OVER  DIM  CONTINUE  RUN ^ MERGE >=1SIN  CLS  OUT  PAUSE  CIRCLE  COPY %LEN fY CONTINUE   CLEAR  BRIGHT <[A]k RUN O7 OUT ▟3 PLOT   REM  RETURN BIN |▜NOT w▞Q./ FLASH IN X CIRCLE  LPRINT  INVERSE c DATA ;7$> RETURN 7SGN  LIST LN  CLEAR NOT ATN &=ACS  REM A PAUSE  STOP ATTR INT + BORDER  LET 1AT  INK O▝ IF SCREEN$  RUN  SAVE  COPY  LOAD ATTR COS 0"l BRIGHT VAL$ ,d@[D] NEXT gK9 OVER  OR hASN (RNDT$f[F]U BORDER  RETURN { GO SUB  FOR  INPUT TAB  INVERSE e<= POKE ACS nCOS N PLOT   IF ▟iylNOT  LPRINT 2 COPY ▚ BRIGHT . GO SUB JV INPUT  FLASH  PAUSE D CLS  CONTINUE  SAVE  GO SUB ▙ RESTORE :NOT ASN TAB 4n/ DRAW <=S`~ FOR SQR ATN  COPY BIN  CLS [L]G CIRCLE d[L] RUN SGN [K] NEW =o+: INPUT U[P])© NEXT  PLOT  TAN  CLS [H]C[C][N][K] NEXT . BORDER + DEF FN  IF  OR ▚xo COPY  OPEN #7 SAVE MASN v4oSGN Cn RETURN [M]O OVER <: BRIGHT  MOVE  STOP  NEW  OVER  INVERSE  OPEN #© CLS {[T]<=^INT  PRINT } CLEAR  STOP  INK yo LINE [G]j/[▙ GO TO  COPY  STEP L THEN  PRINT j TO  INPUT .SIN  SAVE TAB  OR  LINE  CLEAR i▟LEN [J]LINT  LIST  SAVE SGN  COPY  LET 5ACS [H]oCOS _|$ LET [ BEEP  CLOSE #0x INPUT !USR sq CAT  AND  RUN [T]WACS IN P~woyd/SQ7 OPEN #▛*<af REM  OVER v LET cW ERASE 9 DRAW  GO SUB  INVERSE  COPY :PEEK kSGN bfINT zi RESTORE  AND  FLASH  LOAD  NEW ABS  PAUSE ▛g[T] MERGE #6, OVER VAL$  IF 'aPEEK  READ  GO TO  PAUSE  COPY  DRAW [L] CAT  PRINT <= LOAD  RETURN <i LET  STOP ] INPUT }>= RETURN <> LIST 8TAB ]NHEXP  REM {▙^/lPOINT  CIRCLE  IF VAL$ G%CHR$  DRAW ATTR  DATA  STOP ?PI CLS P DATA [L]B▝ MERGE AT > LINE ( PRINT  GO TO  NEW /HSQR  RUN + TO  PAUSE  BEEP { GO SUB rA;[G] RUN  LIST  CAT + CIRCLE _f CONTINUE l[E]M`PIn LOAD hr LPRINT  INPUT I OUT  OVER  VERIFY [T]ATTR  RETURN  READ 7{TAN  MERGE H7TAN [I]SQR  BORDER 9| COPY ASN VAL  CONTINUE  OR G DATA 4ABS ▖[J] MERGE SCREEN$ fH( FLASH  BEEP d CONTINUE 9 PAPER > RANDOMIZE EXP [S]▜SCREEN$ |/%[H]nx7 PRINT ASN *[M] FLASH SGN SQR 7; DIM [G] SAVE w GO TO  COPY  FLASH ve INK U POKE  LLIST ©VAL  TO [E] THEN [K]Jr@ACS [A]?SQR  DEF FN e#^bSTR$  MERGE j©Q COPY AT E INVERSE 9[L]WG} LLIST ?o[K]2@ RESTORE R[G] GO TO IN  RANDOMIZE B~ SAVE Erp[D]3 NEXT c[J]PEEK 1 LET  COPY  INVERSE v| LPRINT . VERIFY c CLS  OR o BRIGHT  BEEP 7~ IF  CAT SQR  LLIST  STOP [B]SGN © OR [H] STOP  LLIST  FLASH  REM © RESTORE wCHR$  PRINT &[J][L]▞{`INT [B]fCHR$  RANDOMIZE SGN ] LIST ▜PIKBIN ySQR  SAVE K[F]~N TO ATN ? BRIGHT  DRAW i LOAD ▟7t_G[T] DRAW [[L] RETURN ATTR  LLIST  DEF FN  GO SUB  INPUT R OVER Ao)IPI CLEAR  DRAW ©pCODE  THEN ~ COPY [G] LOAD ▟ MERGE ,[d#[J]AT %J FLASH /CODE ▗T BRIGHT m TO INKEY$ OUT  SAVE EXP #} DRAW ATTR [R] COPY  DEF FN m GO TO  INK [N]]nZo} AND  PRINT  COPY BIN SQR NOT ATN  CAT $ OR <ASN  BRIGHT  PAUSE  PAPER . INK [L]N GO TO  DEF FN [H]CHR$  TO [D]PI INPUT  BORDER  RETURN X[N]|SGN ASN EXP  OR  NEW IN  SAVE 0 CIRCLE ▟[N] COPY  OR  INPUT  POKE W FLASH b DATA [R]-F COPY w PLOT  f}uaATN ATTR ) FOR ; LPRINT  CLS   NEW >=[L] INPUT [C] CONTINUE  OVER ASN  LET [B][T]BIN  CLOSE # LOAD [L] INPUT  PRINT VAL [U]- PAPER LEN )ACS  PLOT  LEN r[B]0$b" PRINT ▜VAL$ {zOThASN (,[G] PRINT  VERIFY  PAPER SQR  STEP © CLOSE #<▘/ CAT  GO SUB D REM  DEF FN l SAVE NOT -U STEP [L]QX'o% INPUT j  POKE  LLIST  INPUT  LPRINT [I]WCODE  CAT _ OUT ?EXP INT  COPY PI INVERSE |n▞ GO SUB IN AT  SAVE $LrLN H▜h▙ GO TO e NEXT  CIRCLE P PLOT  TAB  BRIGHT 7=@ INPUT  STEP  COPY LN  GO TO vx INK F LET  DATA STR$  FLASH Z CLS { BORDER  STOP  LIST IN  INVERSE  DRAW INKEY$ BEEP  VERIFY o<> STEP yLEN 9 LOAD IN  MOVE  LLIST  INK  DEF FN }'©[L]` COPY CAT  BIN =| COPY  NEXT  PAUSE 2 GO TO CODE NOT [P]CZ FOR [Q]3e CLEAR  GO TO  LIST  CLS SCREEN$  DEF FN  OPEN # COPY  STEP  RUN / VERIFY ~ OUT  REM EXP 1▜ LOAD  STOP oywVINT  FOR CHR$  STEP  DATA SQR y OUT [H]CHR$ / RETURN 7 COPY  LINE ;3L SAVE  READ ▚[M]EXP VLn5TAB  PLOT  &4PEEK ?ABS  ERASE 31mCODE ▘%ACS i/ LET y© VERIFY  CIRCLE w_l<='▙* DRAW EXP  COPY  CIRCLE < DIM  LLIST  NEXT  LET  MERGE >= INVERSE  BRIGHT LN IN g CLOSE #c` STEP  SAVE # READ ~ CLEAR Oa RETURN COS  NEXT  COPY  IF <)I GO TO  DRAW TAN w MERGE ' COPY bATN `ASN ]-F FLASH !<=o GO TO  OUT [O] INVERSE {d TO  STOP RND%_ NEW  RESTORE  CIRCLE mg INPUT %9p' RUN v CAT _[M]4 CLEAR 3 LIST CHR$  COPY  RESTORE BIN CODE X OVER Y OR  CLOSE # COPY G<INT ^ MERGE  SAVE  COPY #[L] BEEP PEEK  INK Qj[O]1[H]u FLASH  GO SUB  RUN V VERIFY  LET } PLOT  [N] COPY  READ  CLS  CONTINUE 8 IF [J]} COPY  ERASE PABS '' DEF FN  MERGE  AND ▝4[M]b DATA  OUT  CAT ^g[Q]0b RETURN  BORDER [R]PEEK  RANDOMIZE PI[T]▝ FOR VAL LEN  THEN [R]X RANDOMIZE ASN  RANDOMIZE  COPY  CAT  COPY  COPY sk[D] NEXT Qm CAT ▜SQR  ERASE ? FORMAT SGN  LIST  LOAD  LLIST  CLOSE # CAT  FLASH  COPY  STOP w/!▘;0 PLOT   DRAW  POKE SGN ZC INVERSE  LIST  DIM  PAUSE ▙ NEW  RUN  CAT 7//CNOT  LLIST  COPY  NEXT  BORDER FN [I] RETURN BIN ▜ INPUT O AND  RESTORE ] BEEP  BORDER  DRAW 'j}#-[T] CLS !o BRIGHT  RETURN O8/P9 INVERSE  FORMAT  OPEN # NEXT - CAT  CLS  PLOT  SGN # COPY  READ  ERASE ATTR 7 DEF FN  MOVE = PAUSE  LPRINT ^-y STEP /© RESTORE  RESTORE  DEF FN  SAVE .GIN ^M LPRINT  RETURN  PAPER y} CIRCLE ▚/ DIM P▝ STEP COS cj0 COPY r,.N OVER ; INK [S]<[FL GO SUB 6. OUT  RETURN v_ NEXT r STEP ▜ THEN  FORMAT [I]f[I]T DRAW  OVER  MOVE MPOINT [L]? DIM PEEK [M] OVER  PRINT  BRIGHT POINT ]#c~ MERGE PEEK  IF c COPY x~[T]{ IF ACS  CIRCLE  PAPER ▙[P RUN  DIM ATTR ▜*L[H][J]1w GO SUB ^ PAPER  LPRINT Qu CIRCLE c OUT  CLEAR p FORMAT  BEEP  LIST  POKE  NEXT  LLIST y"/ATN  NEW  GO TO V[P][K] BORDER  REM  STEP XpCHR$  OPEN #v▞2y FOR LN  COPY  PRINT  GO TO . RANDOMIZE y LIST  COPY POINT ATTR }7>=VAL z[T]ATN [M]ASN  FLASH ▛r5J▟#FN  INPUT )&[R]-E^[C]~kyz BORDER  GO SUB  INVERSE  BEEP X- OUT  PLOT  POINT >[Q]#=oWH< POKE [O]POINT [F]*PEEK [ CIRCLE [Q] INVERSE  MOVE 5<>INT  RANDOMIZE `}OAqz CLEAR ]=bE THEN  PRINT ATTR PEEK ~[H] REM 0iG*#y|y FORMAT  PLOT  ▟[P]7 OUT x^ POKE  LOAD p ERASE  MOVE CODE  BEEP W FLASH  BRIGHT F LPRINT  PRINT !ITAN  RANDOMIZE  CONTINUE  DEF FN 8CHR$  DRAW . INVERSE fN NEXT  PAPER  PLOT  rCODE  BORDER [K]USR  CONTINUE  MOVE  COPY  RETURN  FOR  RUN RND REM STR$ if*CHR$  CAT  INVERSE ;>R* CLEAR f[E]gE] NEXT j DIM COS &)[[H] INVERSE  PRINT  LINE {[O] MOVE i~SPOINT y STOP @INT  REM EXP [J] GO TO 3[I]^J;NOT  CIRCLE  IF j SAVE [G][R]Q` DIM I©▝ CLEAR  BEEP  PLOT  i_ CIRCLE ▖', GO TO VAL$  LOAD  INPUT cRNDINT  RANDOMIZE AT  SAVE 1 LIST z INPUT  DRAW  FOR INT ~<i LOAD  LIST ;&SQR Y NEXT 7LEN  LOAD F THEN  FOR o DATA L`[O]5AT  OUT  NEW 35ABS  OPEN #F RETURN ▚ RANDOMIZE  OVER WINT  DRAW  DRAW  REM  LPRINT 3/* CONTINUE  STOP [F]K LOAD "WC2'%$PEEK  RESTORE L7/" IF B( RESTORE o PRINT m[S]PI1 COPY ▛▖ CIRCLE .g NEW  CAT {} INVERSE X MERGE  IF [T] DRAW 5/ CIRCLE CATN ){BLEN  DIM  GO TO  INPUT [P]0u{kATTR  RUN a LET nM CLEAR 1PEEK  RUN r9/ NEXT K CLS EXP  FOR qIN  LOAD INT ABS XG SAVE oPEEK  STEP <=b* NEW 25 SAVE r; DATA ATN ACS  CONTINUE [U]3~ PLOT  TAB  INPUT  STEP [H] IF  REM  DEF FN  LLIST ATTR  OUT  LET |c BRIGHT 30 DATA  GO SUB  DIM h THEN  RUN ATTR ▞ CIRCLE  RESTORE  RETURN  NEW j[N]l&[~/[Q]SGN  DRAW o[Q]@7POINT LN  FOR  THEN {5 VERIFY  FLASH LN y[F] SAVE [R]*) OVER } INVERSE ntCODE  PLOT  TLN ABS =[N][ FLASH VSGN  LIST  GO SUB [F] BRIGHT  STOP  MERGE ▝d} CLS e INPUT  CONTINUE  LOAD _ACS j SAVE M▖G? POKE {/ LOAD  DIM  THEN  BORDER  OR ASN E| BRIGHT  SAVE wt+[N]G BEEP D PLOT   CIRCLE r AND +RNDATTR ACS c: OVER B SAVE -) PAUSE RLEN M%NOT g RUN  IF p] OVER  READ ▜CODE  LET  POKE  LIST ▛ BORDER l FOR o/pLEN  FLASH SQR J INPUT  INVERSE dINT  BRIGHT S[SGN   BORDER  STEP  RUN /[U]INKEY$CHR$ ▟ INPUT  REM + LIST  LPRINT BIN ?ATN TAN  ERASE  INVERSE  DATA  STOP c READ  PAUSE >{▝ CLS  OVER  OUT  FLASH [H]CODE  RETURN  BEEP [. STEP  MERGE  FLASH  MOVE  AND t'[J]1^2 LOAD POINT XFO!= STEP  VERIFY PEEK  GO TO  CONTINUE INKEY$0[H]n REM  DRAW  FLASH [O] POKE  CIRCLE  PLOT  TAN 1#9AT  OUT  POKE 2oi[J]3{ATN  SAVE ▜n LOAD  FOR  VERIFY '^ DRAW l OVER X DIM yqV RESTORE ;CODE  FORMAT kSQR 7ATN ~. LINE KW INPUT  ERASE  DIM  OUT  B CLEAR s▝ INVERSE RND[O]yn|e[O]f CAT [B]ABS  PAUSE  LOAD  CLOSE #" BEEP  RUN -_ CLOSE # LET 1F ERASE ATN %ASN  COPY $u/KATN UN▙ DEF FN  DRAW  DATA ▟[TAN n}[J]PI GO SUB USR  BRIGHT  CONTINUE NOT  THEN  ERASE  POKE ▝ COPY [I] INVERSE V;ZVAL {6(ABS PEEK  POKE  RUN  PLOT  e FOR yEXP 2PEEK Y]^gn TO {uACS RNDU[G]2 INVERSE ▙/IN  DRAW  INPUT  GO SUB  DATA  NEXT  DRAW  STOP USR AT VAL nx MOVE AT  MOVE & COPY u MOVE  NEW  FORMAT [P] PAUSE VAL  CIRCLE  LLIST  DRAW CODE  MOVE [Q]2 DATA  CLS ; CLS ATTR  THEN NOT IN  CIRCLE  CAT [E] SAVE PSCV DRAW  NEW 1.20/PLAYER?BKVA RETURN "COS USR  FOR !LSSTR$ /./CHR$ ANOT  CAT +~#fo LLIST h?<pVNOT >2 INVERSE #[Q]C"0<>[C] READ [R]t PLOT  BIN CODE 2_ OR z^/▞ AND [O]<=<h&ATTR USR  RUN [S]m|[L]bUSR ~Ib! NEXT NOT nG▞[J] NEW H2"ACS USR ![N] THEN CODE w# DRAW !SCREEN$ USR FN  INVERSE  LOAD ▞INT 9NOT CODE >= DIM + OPEN # REM CODE [U] THEN =STR$ [L];NOT  BRIGHT /COS  1 PRINT  COPY  CLEAR  OVER  ~ NEXT  LLIST COS  CAT  PLOT  y+ CONTINUE  LOAD  IF  THEN p RUN 13POINT _LN SIN ASN  INVERSE CHR$ ▛ STOP b DATA  LOAD STR$ [I] NEW  ERASE <= FORMAT ▙LEN [C]BIN  CLOSE #1C{[D]PIB RETURN |8'g9[Q][A]:USR a VERIFY IN [L][P]IN Y INPUT STR$  GO SUB C>NOT LN  RETURN ~6 CLS '}(#NOT  LET USR N PAPER S PRINT W VERIFY ▖ LIST c OR  >2c<>[Q] RANDOMIZE (jhB GO TO  THEN  LIST }6 INK `SIN NG] SAVE  VERIFY L IF ▜ INK o&`iVAL [N]pS<> COPY R DRAW [Q] OVER %Y PLOT  Kk(=<=t[K] CLEAR  GO TO *COS [P]/2Q RUN 9#3 COPY SIN  STEP ▜[H]2tAT MCOS  CONTINUE ~q THEN [K] LINE  LPRINT SCREEN$ [T][STR$ USR  DIM :>=@ LINE ▞ CIRCLE &dVAL "BIN B▜+ BRIGHT  DRAW  RETURN z PAPER |CHR$   PAUSE 3 RETURN  VERIFY NOT #ACS  CLS  FORMAT  BRIGHT  MOVE wIAT Z(^ SAVE ▞:INT W LINE ! MOVE CHR$ H<6 DIM 4 TO  OVER ▛[S] DRAW STR$ < LET [U]x OPEN #BIN I@>] LPRINT ©LEN i[E] PLOT   NEXT IN A1FN  RUN  LOAD 8BIN [E]POINT  DRAW  SAVE [G]= RANDOMIZE LEN D&p1'CODE $ STEP EXP pSCREEN$ qVBIN qqNOT 9K OPEN #|s4dBIN AT [I] OR AT Bb OVER  LPRINT !SQR NOT  READ ?V OUT  RESTORE ©CHR$ ▟? CLOSE #j FOR  INK  RETURN  qd CLS  BRIGHT IN [G] CLEAR  CAT SIN [J]BIN / NEXT  OUT -y LINE t▝z[J] BRIGHT [O] RESTORE ~ STOP  STOP INT [G][K] OR  LET AT [C]S RETURN 5TAB CACS [P]1fSTR$  FORMAT :[S]SQR /ATN CHR$ u OR f[R]PEEK  BRIGHT wf TO 2[M] GO TO :SCREEN$  COPY Gd LET  BORDER LEN O THEN v DRAW 0#- AND ▖INKEY$ GO SUB ([B][I].<= MERGE [H]FN u BRIGHT [I]POINT I INK  AND v(▚ OUT  SAVE Kbs.)} COPY  OR /o# PLOT   LIST [T][K]ATTR  NEXT  PAPER  LLIST ASN f1: OR ▜ CLEAR  STEP  LIST <>LEN ` MOVE *[P] THEN ATN  GO SUB RASN 9INKEY$0 OR  THEN |1#  DEF FN oINT <>{<=[J] THEN CHR$ ▝w(Y IF  PLOT   GO SUB D} OPEN ##!2 BEEP [F]yACS e RETURN CHR$ k[U]qB<=IN  COPY @T[J]>= POKE c LIST  INPUT CODE INKEY$h LPRINT bf/[P]sg)ATTR u LET TAB [S]VSQR B4ACS a6 FORMAT  BORDER B[M]8i3 LET  OR EXP  RANDOMIZE &N[R]3[T]cx LINE `c NEW  PRINT  THEN  DRAW A SAVE }q:9IN Z7[F]5[D]BNPEEK !q[O]:▘ OR 2~ DATA S[D] DRAW <><=Jm SAVE BRND THEN Nt BRIGHT S LINE ▗ NEW vXLEN K[G]  RANDOMIZE STR$ ▝z PAUSE [G] OR  VERIFY SCREEN$ WV83'yCODE  CAT "ATTR  OR  THEN C DRAW TAB  NOT ATN +[D]7 LET [N]▛ GO SUB CHR$  NEW s▞ OR  ERASE 2{m=RND COPY R[K]<STR$  OVER SCREEN$  RETURN SQR ▖ FORMAT  PAUSE ▖g( FOR I[E]ATTR USR [L] CONTINUE [I] GO SUB PI OVER  FOR LEN [N]< MOVE W{ NEW [A]TPOINT ▞# INPUT  OPEN #5S PRINT ASN INKEY$ IF  AND  "^2&Mo| LLIST  RETURN  DEF FN e[I] CLS  AND  INVERSE CODE ▗ DRAW  OUT *[M] LINE ~ INK  THEN c[U] PLOT  M AND  CIRCLE ?[O] RETURN [M][ GO SUB K LOAD J▛ SAVE [P]Z▚[N]oNACS  RANDOMIZE [T]F,{W* STEP o GO SUB  OR "l AND ?Z-CHR$ 'x CLS [K]9fBIN [C] LET a1LA▜[A]; READ 3uRND LET [J]TAN oz=<RND AND EXP  POKE INT L▛[G]SIN  AND ▜# SAVE G[N]CHR$ '@`p#~ STOP Ol RANDOMIZE  NEW : COPY  LOAD LEN [L] FOR '<=SGN STR$ CODE [C] CLEAR 4 INK v.H▝M STOP NOT ( TO `9[P]Xx BRIGHT  AND "▝©<=▟ AND  LPRINT ;-[U] MERGE  LLIST  NEW PI] DIM  CLOSE #ABS E3I STEP  LPRINT [H]AT  LIST INT [U][H] CAT [H]SQR 8 FLASH  PAPER  SAVE n"TAB  RUN < LLIST  THEN  POKE [A]USR SGN  RANDOMIZE [S]C[R] GO TO  LIST  REM $▝&NSTR$ k>=4SGN ▝uDUSR 'LN  LIST ACS >=08}JUSR [P] LET <="[H]>=o DRAW ▜▜[T] RESTORE USR  COPY  STOP  THEN 4:[O] LIST [P] AND IN  COPY [D]p!POINT >(#v LET <B GO SUB yCATTR =AT K FOR > COPY ASN ▟L[D]CHR$ [G]SQR © STOP qK BRIGHT  DRAW  FORMAT  ERASE [F] OVER > DRAW [D]▛;g[G]▟o PAPER F$ RUN ▗ LIST [P]vqOATN 6RNDz CLS ?< LLIST  OR  CAT  BRIGHT  DATA  PAPER  NEXT ▞6w4 SAVE BIN  TO v[N]INKEY$[O]USR | STEP <>D/!VAL CHR$  CLEAR COS }PIc[F]fXPN RETURN LEN  STEP _ INVERSE  RANDOMIZE  OUT x BRIGHT  SAVE  AND  TO "▘ GO TO /n BRIGHT  VERIFY X LPRINT ~LEN t CAT [P]@ INPUT  INK  STOP  NEW [B]A PLOT  VAL$ F CAT k, POKE  GO TO  LIST ATN LEN >=bY NEXT  DATA  SAVE / CAT [R]{= FOR W6D INK  SAVE  BRIGHT STR$ FN g=[A]y PRINT AT dP[N],▟[O]:© DRAW  INPUT  LPRINT  CLOSE #TAB  NEXT >=ABS [J]▖SIN FN [P][G]COS [O]▟z VERIFY ~wpj<=IN 0 POKE ^ FOR TPAT gK SAVE GC[O] PRINT ?< SAVE ©[F]85 READ  CLOSE #COS /-*(cL STOP $V TO 3)_PEEK ABS RND RETURN  RUN m[L] CLOSE #CODE R[Q]ABS [E] PAUSE } COPY  RESTORE E INPUT ( PLOT  [Q]N,▞ PAPER #)/ RANDOMIZE 5 RESTORE AFN [T]>Od?(/ COPY  ERASE A FLASH [VAL xF INVERSE ;▝][B]BIN uAEoT LINE [F](PQ COPY  PRINT IN [I] INPUT ^07©@OMPIhCOS TN  READ [N]F.|/gaUSR P[M]*_/ATN  PAUSE   LPRINT OASaiR0d6s LET /EI19 FOR  DRAW  COPY ?n!%[O]5h LLIST #` INVERSE COS ▛ACS  MERGE IAT  CIRCLE (Vo TO P INVERSE BIN n<=COS ▜▙i CLOSE #[C]lz8 LIST [▖} RETURN  POKE  MOVE  SAVE  RESTORE =SUSR ]} FOR jZW CLOSE #INT RNDFN FuNOT [T] PRINT E<>/4 CAT bBIN qBIN  COPY SIN  IF  POKE  MERGE ▜ LET >[E] CIRCLE [J]INKEY$IN  LIST  OVER <>i6 FLASH @ CLS [R]ACS - COPY TAN *<> IF A[K][F]?e NEW >=} PLOT  © PRINT  OR © RANDOMIZE ▟ READ [A] RETURN C[B][C] VERIFY  IF [F] LIST  GO SUB  DIM 8LEN _6[T][U][A] OPEN #ATTR ABS [O] STEP 5 CLEAR TiN DIM ;▘WQ▞+INKEY$ BRIGHT ©LEN Em[N]^ OUT F[H]x PLOT  + RUN AT  CLOSE #[M] STOP M[U]u THEN ?INT T COPY  LET NOT ACS  FOR E%[J][P]B[O]FN m[I]CHR$  STEP ▛[B]©9▛NOT [E] PLOT  [M]▞SCREEN$ ATN V`<>>= OPEN #TAN M DIM eATN X AND ATTR  CONTINUE ABS [P] SAVE  PAPER  LPRINT  MERGE SCREEN$ . SAVE  PAUSE FN  OR N DRAW  OPEN # BRIGHT PI RESTORE [P][A]DHATTR [I] CIRCLE  CLOSE #%TAB [J]i REM  BRIGHT SGN ASN [C]ABS TAN OISTR$ b[B][S] CONTINUE EXP ` RETURN # LPRINT [D]Of|LEN  COPY ` LPRINT  RANDOMIZE [O] PLOT  [T] COPY ▟O RETURN f▝[S]# OUT L DRAW  INPUT ▖▚U COPY pfSTR$ VAL jLEN "O7 RETURN  RANDOMIZE z/ NEXT {(STR$ pm▗ASN NOT  PAPER  RANDOMIZE STR$ X▖[Q]pbUSR ▙ PAPER [I][B][O]TAN E[ OVER  DEF FN 5]T OPEN #Yn- BRIGHT  PLOT   RETURN  OPEN #[T][S]@SGN 5 COPY @d#[H]/ks VERIFY U[I]rX CLOSE #N) RESTORE [L][Q]BIN IN < PLOT  ▘2eACS fl SAVE 4[Q]F/[ FOR  SAVE ;# RESTORE  OR + PAPER [G]B9 DEF FN [P]USR  RESTORE VAL .PI PRINT  STEP ' RANDOMIZE [F]▜?ACS  DIM ▗[D]W[K] VERIFY USR BIN kt} CAT ACS  OUT ;n[M]@▗ CLS b PLOT  POINT _ TO  VERIFY CODE  DIM #▝CHR$  RANDOMIZE  VERIFY © STOP AT ▟[G] PRINT  PLOT  PFN  CONTINUE  GO SUB LEN  LPRINT A AND K COPY ▘ THEN dVAL  SAVE  BRIGHT f[( LLIST  LET  READ [Q] CAT : REM <=0POINT +IN  POKE ▝ MOVE X LINE  0 ERASE ▖VAL @IN Xz TO f▜[S]LCODE 3/ MOVE d0NOT USR  THEN STR$ eBIN ▖LN LEN #~EXP f▛ RUN tACS [N]<=N[J]0TAN ©h OUT ▞[p LLIST  PRINT ASN (USR {M TO  INPUT CODE COS USR ▙FN CHR$ d`[L]GNOT PEEK  RANDOMIZE 1a LINE AT `) TO SQR  DRAW SCREEN$ O[J]CODE X2m FOR &PEEK  INPUT  FLASH Z[v/ACS  LIST  DEF FN ] INVERSE ^x[U][I][R] THEN fSGN  LINE  GO TO VAL$ ^ VERIFY F[K]E[M] CLEAR PEEK oCODE [R] RESTORE  OUT $b+▘8 INK = RETURN  LPRINT  PRINT  CLOSE #vCHR$ 'RC ERASE  MERGE )#▞[K] INVERSE R{/5[F] COPY  FORMAT *9 THEN u<>@VAL 0▞ CAT POINT x LET  BRIGHT [Q]& DRAW  INVERSE [T][K]2l RUN  READ f?*0▘USQR GEXP T FORMAT L▚~[Q]U LINE e▞ RESTORE ▜▚ CONTINUE _ NEXT "▛ GO TO  INK ▘m[ ERASE d BORDER [J] BEEP =▖BIN  PRINT [H]BIN TAB  SAVE ,C▛▟POINT ^RND/IN iPI COPY b[I]IFN [G] ERASE z2[U]` PRINT [N]M▖© AND >=dE▝▖[L]xj'6SCREEN$  SAVE  RESTORE  PAUSE CHR$  PRINT cACS  READ [F][G]A▖1▟<=CSCREEN$ M DRAW NOT  OUT U GO SUB  INPUT kwFN  IF  VERIFY CHR$ USR SGN POINT [O][H]NOT  VERIFY SGN [J][P] DEF FN VAL$ 6▛[D][H] LET  PLOT  ] REM TAN  CLS _ RUN  GO SUB  CLOSE #` MERGE ATN  THEN aATTR  LOAD bW OUT c LINE INT d IF Rg POKE ef RESTORE  DATA Xp BEEP [U]n RUN [S] OR  STEP  OVER  RETURN  PRINT xR5<=[G][F]k CIRCLE cC FLASH ATTR fJqSIN  CONTINUE ?COS SCREEN$ PI CLS ▝W CAT  THEN [P][G]}GtU PLOT  *STR$ [N]XQG LPRINT ASN [Q]a[O]▜NOT  ERASE 7ABS [F]SIN V` MOVE PI^TAN USR +SCREEN$  FM7 REM ▘▞YwINT jEKSCREEN$  INK EXP u=] BRIGHT /2USR [S]WCHR$  TO [F][O] OUT w LLIST z LIST  POKE .k PRINT [O] BEEP  BRIGHT ▘0VAL LEN SCREEN$ PEEK r^ CLOSE #COS c RESTORE USR ▞o BEEP 2r GO TO t`< INVERSE yI▗ DEF FN  FOR ▟ABS /STR$ y^SGN  LLIST ▚4 RETURN  INK [S] THEN =PI LINE o▚INKEY$ GO SUB NOT z IF TAB [Q]#Y▛ PAPER e&SIN yF)_ RESTORE z[F] ERASE g BORDER = FOR "^@ATTR o[B] INVERSE ASN vlx RUN  COPY  DRAW 'jC=V, CIRCLE 6 COPY  STOP ©R[N]V<> FOR >ATTR *VAL PI[Q]F MERGE , INK  STEP [M]▖|[T]A4x POKE ATN  LINE V NEXT  PLOT  c CLS / RUN  PAPER O LET  CAT ATTR } INVERSE [A][G] RUN  NEXT 1LEN  CIRCLE WASN PEEK SGN FN  INVERSE ▗ DRAW L@k[D]USR X[E] LLIST _ BRIGHT [O]` DATA oEXP  MOVE mTAN ATN  OPEN #RND5 CIRCLE  GO SUB ,MCOS ▟*w[O]; CONTINUE ▜▞FSQR 3"aINT [F]POINT TACS VAL$  INVERSE 5K&/▞[] DEF FN Xm? RANDOMIZE VAL )STR$ d[M][K] CAT  RESTORE o MOVE [I] OPEN # LET IN  GO TO  OR _[M][M]aQ^ READ 0▙o▚T BEEP [G]SGN {^WCODE ' RETURN CHR$ ▟ LOAD POINT  DEF FN ABS |-CHR$ RV DRAW  CLOSE #i#xLg▞o d[A]<>AT SQR  INVERSE . COPY b STEP ^<=* CIRCLE oIN  LIST USR VAL  GO SUB [G]© SAVE #m RETURN RNDL RANDOMIZE d© LET 0 CIRCLE >` LOAD 7p|[G]W INPUT Fw REM [U]v?l]m FOR @ PLOT   7AT  GO SUB - STEP r< CLS [O] OVER NOT t©LEN !0<= RETURN [T]BIN  PLOT   STEP ▖▟ATTR -▝' GO TO  STEP COS  RUN CODE  RETURN USR POINT |NOT 6ATN FN  THEN #abv FORMAT  MERGE m BEEP WZ DRAW bnV CLOSE #@ NEXT  LPRINT  STEP ▙ FORMAT ] PAUSE G RUN r}PWFN KIN L~Ul POKE [T]INKEY$▚{s©[P]STR$ ▙ RETURN xomX>qUSR R[L] DRAW NOT [ COPY  STOP G[D]EXP  RETURN |ATTR [G]?j[K]INT CODE 1/vPI|PEEK 3CODE u GO TO ` SAVE ▜?cF+ PAPER  TO ,1i<f/<=CODE  COPY 0G FORMAT  AND ACS RND CIRCLE px& OR ▛[P]nRND 3NOT BIN  LOAD `CHR$ V▝' OVER K CLOSE # THEN k[F]| STEP =▟ RETURN VAL  COPY [Q]ASN 3rAT  CAT [I]TAN dABS  RETURN  STOP ATTR  MOVE ^[R]TAB } OUT J{ DRAW z^ BEEP *~&bhcfR INVERSE !CODE V>='n(TAB  LET  FORMAT /▚▘INT 5=IN g OUT  BRIGHT mj[O] LOAD  CLOSE #' PAPER <n[G]USR Q MERGE b]▝SQR PI[L]x LPRINT _[C]vOACS ▝RNDO|[Q]SCREEN$ ]sX COPY {LEN ▝w PRINT AT [I]]f[E]tABS #"ABS _ COPY  FLASH z RETURN  IF USR [Q] NEXT ▞ COPY SCREEN$  STEP f OR gACS USR r LOAD  FLASH }%[D][Q]VAL [B]ATTR ` RUN ▞ COPY [R] INPUT [H]{[[U](h# OR ▜fq PRINT ~<>_SGN [R][A] CONTINUE  FLASH  LET [ IF V[L]W1^a NEW -F[G]9VAL =PEEK  BEEP ©` COPY TAN  OVER  PAPER COS v|3 RANDOMIZE R[J]▗ LET INKEY$-OUSR  NEW J[L] GO TO  DRAW D POKE  INPUT [H] OPEN #+VAL$ >= BEEP ACS [L]T[L]BIN L` LINE  BORDER [N] LOAD  GO TO  THEN  ERASE , CONTINUE o RUN VAL SGN PI2[F]1 STOP C PAUSE F▟AT  INVERSE ▛SGN  OR  MERGE  ERASE v▝! VERIFY ▝[U] MERGE [O]>' LIST ▛9l▙<=J|[N].}▞J OVER ^(a{[Y8▘e[G]ACS [R] SAVE <= PLOT   RETURN  COPY @Qt GO SUB  INVERSE & FLASH o OPEN # NEW 8 MOVE  POKE 0 NEXT {7RND PLOT  bBIN [P]d~ LPRINT " [C]UD FLASH ABS  CLOSE #VAL  RETURN Y[H] COPY ! GO SUB [T]#CHR$ <= MERGE $ COPY  READ  RANDOMIZE NOT ▙@▛[P]TAN w▙q G"fLN I#&m INVERSE H AND l GO SUB b PAPER }"INT  ▛ GO SUB ▞ FLASH  ACS ▟Dn[U] READ USR LEN >9 NEW 7TAB w OR USR { FOR #3`@ BRIGHT 8 THEN n [P]SGN i9b{!" OR  PLOT  #▖ GO SUB $xn COPY [B]%[K][L]D LPRINT  POKE _&gUSR ▟8H[J]fn'W('i2)ACS *BIN  +_ OVER ▟ STEP ▛,ABS  CIRCLE -{LEN .b/ IF 5Ng READ 01bINKEY$2 RANDOMIZE e3zvP}▜4g[M] GO TO q[Q] SAVE 5u FLASH SQR SIN 6 OUT SGN CHR$ 7l/8+90 FOR IN  DIM "@ RUN '^[U] PLOT   INPUT & DIM 7[K] PAUSE  GO TO  PLOT   DRAW 9 PLOT  [O] IF C/ RANDOMIZE  DRAW [G] CIRCLE ( SAVE ?c FOR ,& SAVE  GO SUB  IF cN NEW  CLS i▘ REM  POKE  DIM  PRINT SGN 1▖ LET  RETURN  BORDER [M]8[I] CIRCLE [Q]fb PLOT   LOAD  STEP  NEW  CLOSE # REM  LIST  BRIGHT  GO SUB  CLS TAN 6▖ CLEAR  POKE 0cTAN  PLOT   RUN © LET [L]▞ REM  GO SUB 4 FOR d CONTINUE fSTR$ p RESTORE  RANDOMIZE COS [L]d PRINT   LOAD ▚ FORMAT l GO SUB <.L@K~ FORMAT ![K] RUN  FORMAT  RANDOMIZE BIN D BRIGHT  NEXT b FORMAT nL COPY  STOP  BORDER  RETURN | INPUT  PLOT   TO  AND FN   POKE  INK  SAVE LN  RANDOMIZE 6D DATA  SAVE  AND lBIN  NEW [A] LINE 1RNDi CIRCLE  LIST  GO TO  SAVE  RESTORE `VAL  SAVE  OR NOT  RESTORE  PAUSE RCHR$  CAT }3▖19) SAVE 3 LPRINT  8PI BORDER  TO ?C TO  ▘ LPRINT t DEF FN gs>=PI LPRINT  TO USR ? BORDER <g LIST  BORDER [M]PI LPRINT  TO @▘ LPRINT [N]▘3t|6[L]USR >=~|R DEF FN  DRAW PI  TO ▘ LPRINT [O]▚3▘[P] VERIFY [N]▘3tCSIN S LIST f[Q]ap+d  USR PICHR$ `a POKE  <g! LIST CCHR$ TCHR$ [H]t!▗ CONTINUE Cp FORMAT )▛0FN  READ  RUN  DRAW  [L] CLEAR -"(+lCOS |FN < 4YqbLN (-+("SIN  STEP [J][R] DEF FN  COPY  STEP  STEP t PLOT  g DRAW ▗~?▘[P]STR$  CAT  LPRINT gPI SAVE  INK [P]~ LPRINT  GO TO [J] STOP  CIRCLE ?ta0 CLOSE # LPRINT  TO [I]▘ FORMAT pf3INKEY$ t>=STAB  DEF FN BIN ) CAT USR LSTR$ IN 83INKEY$ [M]SGN SLN SGN )▖ LIST g▚SGN 3NOT SGN ▘[J]aSGN STR$  TO 0SGN ▘ LPRINT [K]SGN   FORMAT INKEY$ BRIGHT S FORMAT ▗)BIN CHR$ LN aAT 8USR  COPY A-USR C= CLS 9{ SAVE [F][P] LET FN b FOR :R[R] FOR ©R PAPER  CLS  DIM SCREEN$ Uf COPY  STOP : FLASH "SQR  FOR V[K]USR  RUN USR LACS > RUN  LLIST <=USR AT  PAPER FN USR ` BEEP & NEXT ` COPY [M] CLEAR [K]©[P]_~ SAVE  LET }|{z} GO TO yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"LEN  CLEAR  IF  RUN  POKE  LIST  GO SUB  REM  BORDER  DATA  LLIST  OVER  FLASH  CIRCLE  MERGE  ERASE  CAT  STEP  LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ CLS A[U][S][Q][O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗ CAT >▘ IF INT ▝xAT K BORDER ▗c▜▖▛▟[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE  STEP  CAT  ERASE  MERGE  CIRCLE  FLASH  OVER  LLIST N GO TO  DATA  BORDER  REM  GO SUB  LIST  POKE  RUN  IF  CLEAR "%(+.1369<?ADGILNQSUXZ/^`bdfhjkmopqstuvxy<>l{|K COPY  GO TO 7[F]H GO TO R DEF FN +[Q]puCOS cUSR  CONTINUE © GO TO +?Rdu▚[F][U]COS STR$  DEF FN  FLASH  CONTINUE  POKE !+5?IR[dmu}▚▟[F][N][U]AT COS INT STR$ >= DEF FN  MERGE  FLASH  LLIST  CONTINUE  INPUT  POKE  IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U]FN = RANDOMIZE AT CODE COS ACS INT ABS ?>= THEN  DEF FN  MOVE ~ OUT @ RESTORE  CONTINUE  FOR  INPUT  LET IN  LOAD @ OUT oIN CODE #&>0358IN CODE :==FIKM BORDER  CLEAR PRTWY[] ERASE =>?uCODE  COPY wy{}©▝▗▚▖ BORDER ▛ VERIFY  BEEP [H][J] SAVE  GO SUB [L][N][P][R] BEEP  CIRCLE <=SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN  AND >=<> THEN  STEP  DEF FN  FORMAT  MOVE  OPEN # MERGE  VERIFY  CIRCLE  PAPER  FLASH  INVERSE  OVER  LPRINT  LLIST  READ  RESTORE  NEW  CONTINUE  DIM  FOR  GO TO  INPUT  STOP  LOAD  LET  PAUSE  POKE  PRINT  RUN  SAVE  IF  CLS  CLEAR  RETURN  LIST  COPY  OVER ©IN  OUT  PLOT   CLS  LOAD ? CIRCLE aIN  CLS  RETURN PIT8<=<=SIN [C] DRAW  LET  READ 8 © DRAW !"#$%&'<=()*+, RETURN  LET -./012345<=?6789:? RETURN ;<=>?@ABC COPY  LET DEFGHIJKLMLEN  READ NOPQ GO TO RSTUVWXYZ[/]^{I_`abcdefghijklmn INVERSE ATN frew^{dABS  RETURN e~©▝▘ IF v LOAD ▜▖▞UCODE  LIST ▙ LOAD [C] PAUSE  FOR  INPUT [H][I][J][K][L][M] THEN  THEN [Q][T][U]RND COPY  MOVE POINT SCREEN$ ATTR TAN ACS ATN LN  POKE GEXP PEEK IN USR CHR$ NOT BIN  OR  COPY Q LINE  CAT  FORMAT  ERASE  OPEN # CLOSE # VERIFY  BEEP  CIRCLE m PAPER  INK  FLASH  BRIGHT  STOP  DATA  OPEN #> REM  GO TO  GO SUB  INPUT  LIST  PLOT   CLS  SAVE  RANDOMIZE  IF  DRAW  CLEAR  COPY  COPY IN  PRINT [P] LOAD  INPUT  GO SUB  FLASH ~ GO TO [T] REM :AT  DRAW  REM  MERGE POINT / FLASH O>= LOAD h/_<USR COS ATTR USR  PAUSE ▛CHR$  PAUSE [O]▝ NEW  LOAD AT USR AT [O]▗.STR$ ( COPY "0:VAL USR /FN CHR$  RETURN  GO SUB XUSR  FOR fT MERGE C LOAD  STEP [I]USR  PAPER XSTR$ "X[F]ZIN USR [G] IF  LIST [F]NOT ^SCREEN$ USR STR$  MERGE CODE IN ATN  PLOT  ▘USR  CONTINUE ▝ RESTORE SGN ▘%STR$ <>tUSR STR$ _IN /©PEEK 0+ATN   OPEN # FOR  MOVE X▛@NOT  RESTORE  MERGE  LOAD IN  COPY  PAUSE tVBIN  BEEP STR$ @POINT IN  DATA USR  NEW IN |IN ▘ STOP  OR USR BIN INT USR USR * LLIST ~STR$ [P] RANDOMIZE PEEK ,@y&USR  OVER  AND   CAT  CAT BIN USR  CONTINUE W▝TAN  VERIFY  COPY USR [M]STR$  LLIST  CONTINUE l FOR /wIN  CONTINUE [H]▝uSTR$ ▝ LET eG}oSCREEN$  CLOSE #USR  NEW ` PRINT O[F]STR$  OVER  REM  STOP  MERGE ? READ  THEN gUSR  FOR  RUN  PRINT X DRAW  OR NOT  LINE [U] PAPER  LPRINT  REM  FOR USR  ERASE /ATN @ NEW  DRAW W▗2VAL ▚d[K]▝USR  CONTINUE  NEW  STOP  FOR ATN  CLEAR _ COPY USR USR  IF STR$  RUN NOT 8SGN  LLIST  REM t[I]IN XABS ▝X▝nr GO SUB Zm THEN  LOAD  THEN ▛>= DIM u▘STR$ [B] REM USR EXP [M]CHR$ >3▜CHR$  FOR ~ COPY >VAL Od▙STR$ IWABS BCHR$ ▛gdSTR$  FOR  OR ) DRAW TAN  FOR [R])USR CHR$ BIN  BORDER  MERGE ▗A▘>=INKEY$ RETURN EXP  CLOSE #(USR  GO TO N~,▝ GO SUB  IF PISTR$ "LUSR STR$ 2 CLS  RETURN  STOP VAL c▝ GO SUB [P]ZCHR$ 3 DATA STR$ N RETURN SSTR$  BORDER F;INT  MOVE STR$ Q BEEP 3/STR$ STR$ r DATA PEEK ▘USR # OVER z CONTINUE USR  IF ABS PEEK zSTR$ @K RANDOMIZE CHR$ USR ATN ABS ANOT COS  PRINT kUSR  MERGE jSTR$ IN ~ PRINT ▘IN ▜ STOP A;~▛USR ZVAL 2 READ 7|zO CAT L LOAD ?PEEK VAL =xSGN rIN  RANDOMIZE  POKE USR  GO SUB }} LET CODE  RANDOMIZE TAB `=y~PEEK [T]©FN  DRAW KIN  LOAD  ERASE  LOAD XIN  DATA ` LET IN  LET ▟PEEK USR  INK LEN ![I]  STEP  AND ~# INVERSE . COPY  INK  X THEN BIN ^ PRINT  CLEAR 8 INPUT V COPY x10 COPY ! LET 9  INPUT [P] RETURN ?8  NEW ▖ RUN  RETURN  DRAW ( CAT  DRAW Q DEF FN  COPY  INVERSE o ERASE USR ![G] MERGE  INK og| RETURN  CIRCLE 0+TAB  NEW 6 SAVE GAT ?OzgPIATTR LEN pG[N]TAB SCREEN$ LEN 0AT +1 LPRINT # COPY $ INVERSE ,  ERASE ▚7 PRINT  AND G LET K0 CONTINUE M READ  OPEN ##< SCREEN$ !X COPY  READ ' INK <> COPY ATTR _©LEN } INK SCREEN$ ▞P POKE UF▖ RUN  COPY  RETURN  PRINT  REM P▘T[Q] LET  COPY  LOAD  OVER 6 DRAW UCODE vSCREEN$ _ SAVE  MERGE  RESTORE  PLOT   BEEP  REM  SAVE  PAUSE  LPRINT VAL  COPY CHR$ ▖[P]h DRAW  CLEAR @BIN +=, DRAW  NEXT  IF UFN @[P] LIST T▘ DRAW  COPY FN P▚<=v VERIFY ATTR ©l LET  PRINT  DEF FN  PLOT   FORMAT SCREEN$ W! NEW  MERGE  OUT  CIRCLE CODE  GO TO SIN  NEW LEN ▗ BEEP CHR$ ▚FPOINT  RETURN USR  BRIGHT K COPY  CIRCLE  REM  FOR *▗ BRIGHT  NEW  POKE Bc[C]VAL$  CLEAR  MERGE } IF  CLOSE #▜ OVER <= GO SUB @V BEEP RND▗ READ CHR$  COPY <P3 COPY  FN XFD COPY CODE  CLEAR  LIST  PRINT R▗P CLEAR T>SGN [E](R* DATA  INK A[R]F▖* PLOT   READ [N]H DEF FN  PRINT [O] NEXT BIN IN 0 FOR P DIM ▖ RETURN  INK  IF u REM a[Q]ATTR  BRIGHT /l PLOT   STOP ▖NOT  TO  MERGE /▛© CLOSE #8SIN  RUN CODE =2 BRIGHT [S] INPUT /$4iT LIST Q▘USR bNOT _IN LN  LIST " STEP [T]1LEN  SAVE ▙ COPY *:DIN  BRIGHT  NEW  CIRCLE  IF ▟ PAPER ▘ DEF FN TAB PEEK C ERASE + MOVE [S] CIRCLE Q7 SAVE K[Q]? LIST INT  POKE  CONTINUE  FORMAT [R]B PLOT  VAL CODE 2 E▛ NEXT :<>▛ MOVE  INK ▟0 CLOSE #INT  CIRCLE P/ NEW LEN  LIST ( BEEP  INPUT  POKE ^ CLS G( DRAW  @VAL ▝CHR$ :▞*` STEP [K][G] LET  RETURN ( OVER  CIRCLE  BRIGHT ,[M] CIRCLE | PLOT   STOP >= CONTINUE [R]LW} INVERSE A PLOT  %VB[F] BRIGHT  CLOSE #VAL lUSR z>C REM v CLOSE #4 CONTINUE ▞ POKE ;  OPEN #d NEW  CLOSE #pLN Zd▟~cTAB *tU CAT  RETURN P"T▘D▖ INK tA LLIST "E[T]RG DRAW ▛ NEW  READ VAL [I] RANDOMIZE [M]BIN @A[S][A] BRIGHT ▞  FLASH 2[I][U]g RETURN T SAVE  LET j[E]TW5[U][Q] COPY >[T]Jd▖1[R]<=TINT bRND` RETURN  MOVE [O] PLOT  (▗c>= LINE ]2 INVERSE [S]E&INKEY$/[K] TO  IF pW NEW PEEK U LOAD 2[U][M]<=ATTR 7© BRIGHT  FOR 91 LPRINT  p COPY  FORMAT CHR$ l? REM  MERGE [S]AT 8 FOR  RUN  LOAD  POKE  BEEP CODE  OUT IN [I]LFN lH PLOT   _@1 RETURN CODE  MERGE  LIST 4Z STOP ? SAVE g VERIFY 3|NVVX[M]jM $ POKE USR .<m CONTINUE >=SCREEN$  OUT w2[A]SQR '' POKE " LPRINT ▖) RETURN AT X[A]' OVER ATTR f CLOSE # SAVE  LINE ACS @ RETURN  LIST  PAUSE  LET O CLEAR  FOR WVAL$  VERIFY ^ AND N[B]▗ PAUSE ACS d▘2▚>]AT 56zd0nBIN u OR  LPRINT  COPY AT <4<>▜E FOR ▛zf`F8&! PLOT   RETURN u▞ COPY ▞ CONTINUE fACS TAN &SGN  BORDER  COPY 7U▘'VAL ID POKE ▖ AND irAT VAL$ [J]<= TO ▚UACS © RETURN  ATN [C]B LOAD  DEF FN Q CIRCLE  STOP  CLEAR [M] THEN EXP ▘ AND  BORDER  VERIFY Yzj OR  DRAW LEN ~ FORMAT H<=`*f[L]SQR  CAT FN Icq1MSGN [Q]a LPRINT !r[R]0H<A COPY ▞F AND  PRINT  SAVE [K] NEW  RETURN  COPY "[C] DRAW  ERASE [O] DIM ATN POINT q▚W LPRINT [M] MOVE H[O] CLS ">=nKPOINT @ LET BIN ▘ LLIST  RETURN TAB  DRAW I DIM  IF STR$  LIST  READ [S]j[L]▞ RETURN "@ CLOSE #@~ABS  BORDER ▙ DRAW _A CLOSE #▞SGN ▟ RANDOMIZE  STOP  DRAW ▝Z F[G] GO TO ▘ AND  LIST  REM <>iCHR$ rf COPY xSCREEN$ ▚ LPRINT EX[C]pk IF  CIRCLE N- POKE NOT k SAVE BIN +CHR$ |<= LPRINT  BRIGHT  INPUT a TO LN _= IF < SAVE 9[O]M▙©+ FORMAT @▖ PLOT   CIRCLE  LET NOT BIN [O]g+K FORMAT p[C] OVER  b[M]?▘ PLOT  & AND IN  FORMAT h7PEEK O~ LET < CONTINUE  BRIGHT LN  ERASE  BRIGHT [I] PAPER ▚ CLOSE #" PLOT  ▛▚BIN  POKE  GO TO PEEK ksSTR$  DATA  COPY INT  SAVE > POKE U(b"TAN hF ERASE  DATA `▜ COPY (f~8-p`d▙w(H CLOSE # DIM 9EXP h▚[x[S]y LPRINT RNDp LINE 5<▝>=ALEN R|> AND  TO n MERGE [A] RETURN  LLIST  INVERSE >=+ OR x COPY o DATA LEN @TAB ATN $STR$  AND  LET  THEN o STOP TAB ▜,A RESTORE (h@ RUN ▚[J]VAL 5LEN  BEEP  POKE c MERGE BIN !FN UlECHR$  RETURN  RESTORE [G]ATTR <=7-c FOR J NEXT [S]]COS [C]% THEN S▜yBIN .]INT D BORDER A▖[A]+[U]s COPY PEEK }[C][K] FORMAT ▘iAT  SAVE [G]SIN  MERGE y OUT ▞} FOR 9CLEN Q[Q]ATN D▚SQR %![G]VAL$ ©FN /LN p CONTINUE  LET  STOP ASN BIN TAB  LPRINT f$.PEEK  SAVE < OUT ATLN <= STOP |@<><==?;[R]u /0IN !▙ PLOT   LET ?( COPY  COPY c PRINT @▗ RETURN a COPY om TO ▘ LLIST  CONTINUE Kd([G]▗ CAT NBIN 9 MOVE  LIST *| SAVE `PEEK  BRIGHT ASN TAB AJqE LPRINT [L] IF  DRAW  RETURN  CLS IN  SAVE 9 INPUT  COPY @© LIST  NEW  FLASH  COPY [H]INT G CONTINUE QO[Q] FORMAT  COPY © OR O[A] LINE X4[T]G COPY  AND  MERGE  LOAD LH RETURN  RANDOMIZE BIN ▖[J] DRAW  LIST [S]<=USR tCHR$  COPY  BEEP 5INT  VERIFY IN  LET  THEN  DRAW  STEP k;}SCREEN$ QbVAL  OUT TAB [N]▟oF MOVE FN USR [I]AT CHR$ ' RETURN ▚OrzSTR$  STOP D8 IF  NEXT lPOINT >PI POKE  READ ]p NEXT [G]ASN .SQR  MERGE ~PEEK  OUT J9 LIST i[F]CHR$  DEF FN POINT  CIRCLE SIN `;)[R]TAN  DRAW +▞ DIM -l▟$ATTR (Z LOAD IN BIN  CIRCLE ▜q*. LPRINT + NEXT 72 RETURN ATN  PRINT  PAPER A`INT }CODE 1bUSR  LPRINT [ INVERSE  PRINT =POINT ) BRIGHT >< RETURN :STR$ [I]. NEXT [R]8 LLIST :=) RUN o CLEAR  VERIFY  BEEP IN <z$ GO TO S AND pCOS  SAVE  PRINT [I]1$ DIM  NEXT O[M] OPEN # BORDER SPID[M] AND INKEY$ DRAW  STOP TAN ▝[H]8 RETURN c} OUT '© LLIST  OPEN # INVERSE [A]` STEP ▙ SAVE * COPY  COPY  PAUSE [P] BEEP Mka©:~<y81 STOP p[B] CIRCLE INT /CHR$  LPRINT  LIST s[Q]o RETURN h(BIN  STOP  PRINT STR$ ▝ vATN  OPEN #p$▘? RETURN j▛+ RETURN f COPY COS [J] RANDOMIZE L OUT ▙BIN  VERIFY ▞[L] OVER P%M6CHR$ b RETURN h OUT f GO TO  MERGE  FLASH  IF  OR  RETURN dSg[P] DRAW } RANDOMIZE  CLS  COPY # OR ▘ LPRINT  LOAD  BORDER o[H]▖[I]SCREEN$ [P] GO SUB  RETURN ▘cpb LPRINT ▚ DRAW a% SAVE  AND  LIST  DIM CHR$  LET  RUN  READ }w0 COPY c CLS / RUN ▘ IF < LPRINT A LOAD  OPEN #[O]g CLEAR  BRIGHT [P]▞[J] GO SUB &ACS .▖[U] INPUT SCREEN$ A)LN C{ATTR ©[J]*K CAT 2g#▗y CLEAR  DRAW m IF  POKE  COPY (3 RETURN STR$ ▟O POKE Bqb90STR$  COPY  PRINT PISCREEN$ t=; RETURN  RETURN :| POKE SGN  LIST ) SAVE  STEP  IF 8 PAUSE C/ RETURN *aO▛AT } PAPER "ERASN [LEN  FOR [D]?U< MERGE  NEXT  PRINT j POKE x`[G] LIST  RETURN <>IN  DRAW [H]-,3 RESTORE ©f DRAW  SAVE 8 IF Q[R]L USR ▝R▛CODE j-[S] GO SUB  PLOT  UATTR ▜5B GO SUB [S] OUT ATN  LINE <=6nLHFN CODE #FW BORDER PI8ATTR >=~e[H][C] CONTINUE /'j LOAD }[J]ATN POINT [I] BRIGHT  GO SUB [N]VAL$ UZ READ ▖RND REM   LIST z[R].SJTAB ; DRAW [J][M]s7v RETURN 81[Q]TAN r7▟Z THEN  DEF FN ▗PEEK CODE  POKE [A] BEEP SGN #[K]SCREEN$  CLOSE # NEW _POINT 15)SQR Z^NOT Rbn=i[B]SQR  CLOSE #R+ ERASE  MOVE  OUT  GO SUB  PAPER STR$ LEN /<|[R]SGN *nT DRAW $[V ERASE PEEK ko[O][G][I]▚s^▗ LLIST  DRAW  COPY _z POKE @B LIST FN [B]4_ LIST  INVERSE h▟G FOR A-RND[O][A]'rPOINT [N]] OUT [C] INVERSE [S]?TAN _INT u CONTINUE R[R][G]C" OPEN #W}LNIN  BRIGHT  FOR SGN USR >=VAL$ u MERGE  PLOT  ▝ LET >INT ASN ) CLOSE # CLEAR  OUT  DRAW  LLIST E4 INVERSE IN 6 SAVE Q▘ REM q=.o LPRINT  STOP <[U] PLOT  COS | ERASE RND NEXT J[H]L[D] FLASH USR '[J])=H MOVE [ RANDOMIZE  CAT o FORMAT s GO SUB =%O THEN  RETURN X$ OUT &<3 COPY VAL @J-y MERGE  FORMAT x▝INT  PRINT  FOR  RUN 6 GO SUB ~SGN z SAVE  RANDOMIZE  INVERSE PATTR  LIST ▙Q REM  STOP  MERGE  AND  COPY [J][S] PLOT  O OR JCODE SQR ▟ FOR  MERGE AT  DRAW z[F]>= DATA [▛/F▗;SIN j+[P]{A[S] OR ▛c BEEP EXP SQR  LINE  SAVE _ LOAD ▖ COPY  STOP  PRINT  RESTORE  SAVE _^=guzZ LET  RETURN  COPY  LLIST  MOVE  RANDOMIZE POINT 2PI CLS *RH. LPRINT  IF  CAT  LET 7 COPY [K]-[G] STOP K[H] THEN PI DRAW b NEW  RESTORE  OPEN #▙▞ OR  CLS  RETURN  LET [I] THEN  OPEN #o9▘Rc INVERSE /PEEK  READ  COPY vPI FLASH  FORMAT LEN  RETURN  SAVE oAT m4 DRAW ?_ATTR ^CODE ▞ABS jRo RANDOMIZE % THEN  DATA M CLEAR ▛k RUN K INPUT ▗} LET  EXP  BORDER 23Z][E]=PEEK #p STOP n/ LPRINT P9PEEK 1EXP  INPUT  AND  SAVE  PLOT  X POKE  IF  MERGE CHR$ ) STOP J@ OR  TO  DEF FN  FORMAT  VERIFY  CIRCLE j PLOT   RUN [K]p READ CHR$  THEN t[D][E]S▝~ DRAW [S]7 PLOT  l[▛ VERIFY  CLOSE #;▖U'J OUT EXP RSCREEN$  DEF FN  LPRINT @ RETURN  CIRCLE /[E] STOP CODE  PRINT  FLASH bKVAL  RETURN k COPY [`IN QLEN _ABS ,XE"zPEEK  COPY %[.$ MOVE INKEY$&]C[E]XK%STR$ Ujl^ THEN  OVER [G] DATA ASN  AND ▜j>SCREEN$ ;[O] COPY Wgv[N]8[B]ATTR u.7 FLASH 6~INKEY$bATTR  OUT  CLOSE # VERIFY *5 RETURN ASN  READ [D]~ NEXT  BRIGHT P AND  CLOSE #SIN INKEY$PEEK  LINE ▞ OR  DEF FN COS  CLS SQR  DRAW y{q (m REM  LIST  BRIGHT [R] BEEP ~▝ FOR  PLOT  LEN  RUN  THEN [G]|USR [I][K] RETURN c[Q]XD`x SAVE ASN - IF  PLOT  $.P( FORMAT 8E CLS  AND  NEW  BORDER CHR$ / RESTORE ) RETURN  OUT POINT <=pATN 4 BORDER E IF  BRIGHT n NEW x INPUT hj_~ IF [P] RESTORE ▚ CONTINUE V< SAVE sNOT  DEF FN  CLOSE #<=_SQR ASN  IF nINKEY$ PRINT  INPUT .Z RANDOMIZE [T]Z%ATTR [P]j IF [N] READ ( STEP i/[ SAVE  LLIST  RESTORE  LOAD o PRINT ▖ CONTINUE *CHR$ [A]©EXP IN _3INT iVLA RESTORE M CAT  NEW NOT INT  VERIFY   LET sRNDr CAT ▛ LINE  CLOSE # FLASH ▞;▖ FORMAT SCREEN$ ITAB ] STOP RND READ H© BORDER {▝ SAVE |t▜ PRINT [G] BORDER ▟CHR$ LN RNDC> OPEN #D GO SUB b<=;[L]IN ~} MERGE  INPUT $CODE nmATN © LINE (E RETURN /▘/EXP Z TO  PLOT  ASN  COPY ▙[H]▝▖Is▙gASN WABS  FLASH OM FOR ▞[ LLIST  PAUSE [F]▖I RETURN aRABS IN  PLOT   CLOSE # BORDER  RANDOMIZE 4IN [L]: LINE p©J[K]3[L][C]*[U] NEW   AND [N]USR  BRIGHT bSTR$  INVERSE  GO SUB b REM [T]zi RETURN ©uATN  CLS _LEN "POINT SCREEN$  REM [Q]  FLASH [L] OPEN # OVER  CONTINUE r^[M]8 BORDER  DIM k[ MERGE uCODE [A]Z IF { CLOSE # BEEP STR$ ▜ COPY LEN  AND /AT © CLS  PAUSE [D] LOAD y OR INT  RETURN " TO  LPRINT W COPY w0rV'^VAL$ B[H]G DRAW ▜ BORDER E LLIST ▚ LPRINT / NEW "& IF  CIRCLE  GO SUB G LPRINT , CONTINUE [S] BORDER [Q] PAPER  GO TO  LLIST ~?; DATA F? STOP  THEN  LINE NOT 6▞ LPRINT  SAVE  OR  CLOSE # RETURN  RANDOMIZE _] BORDER  THEN  LPRINT W, REM  COPY [S]l80 FOR PEEK  TO T DRAW ABS  THEN [N]FN  LPRINT SIN  READ ▛ AND _INT  LPRINT " RESTORE  STEP )R RUN  OUT  STOP IN CCHR$  LPRINT  THEN  IF  CIRCLE KIN  LPRINT  CONTINUE [E] COPY  RESTORE  LIST [NOT RNDF OVER  OR FN  INPUT 9 LLIST  COPY ( NEW LN &0 READ  RETURN  STEP 2A▖[K] SAVE  DRAW /?▖ LPRINT  DATA FN IN 2 RANDOMIZE  GO TO BIN  COPY 0 NEW  REM AT ! F SAVE  LPRINT  SAVE ▛#▘[M]NOT  FORMAT  COPY 8>b BRIGHT  DRAW j LPRINT  LLIST VAL$ INKEY$c%6[Q]~qQ<=eRND CLEAR @}QPI DATA  RETURN r[K]]/<= LPRINT  GO SUB STR$ C STEP USR @ RANDOMIZE  DRAW IN  CIRCLE  LPRINT © BEEP  RESTORE  OVER VAL$ a[L] DRAW i~ ` COPY  LIST ;% BEEP % NEXT  GO TO Zx DEF FN :|} CAT ▗g[E]tYi PLOT   RETURN EUUSR X INK  GO TO  SCREEN$  (EUTTAEEPAQTDAATDTAAEATAAEAP@EE@ETQU@EAEQ@E@QAEEUPTAQAE@TDTTTTE@QEEUUAQPT@QATPTPQEHR` READ ▘▝CHR$  COPY  CLS vCODE 2b/! PAUSE `"] READ  RANDOMIZE > STEP 6a} RETURN o!VAL  STEP ctk][Q]VAL ▖USR @) LINE Q[T] TO @▘ LINE 7 NEW ACS r LET lSTR$ *C STOP / GO SUB [ATN n RETURN R0 PAUSE > OPEN # RETURN  BRIGHT X OUT ( COPY 6?E2 GO SUB  FOR ! LET  NEXT <u7 OPEN # OPEN # DRAW ©CODE  OVER G ERASE  REM >" MERGE  INK [M] MERGE  STEP [S]| AND [R][S]>yKINT & RETURN  NEW  INVERSE !`[K] BRIGHT } INPUT o"SCREEN$ oVp STEP [P] OUT COS :8a INPUT 2wn STEP * POKE  CAT y(0INT !u/ FORMAT [J]05z DIM C[Q] LIST PI▙y<> READ "4a LLIST  LET 0s01/ CAT  RETURN  PRINT  OR  MERGE  RESTORE  INVERSE AT m CLEAR  INK Rj DATA # GO SUB  LOAD ~a STEP USR :/ RANDOMIZE ATTR  LLIST  MOVE STR$  LET NOT  CLEAR  INVERSE k3 BORDER c1 CLS NOT / NEW  OR  PLOT   CLEAR  INPUT  NEW © GO SUB y2 INVERSE STR$ <> OR |SCREEN$ [P]©!LEN t~ AND w#f STOP w VERIFY gml[G AND <> VERIFY  INK  STEP  OUT s?[N]uCODE  STEP kP ERASE "Dd[A]"W9.ys!▚> BRIGHT AT VAL$ dCOS  CLS  CLS /} STEP  DRAW c PRINT TAN PI LET  INK ▝ INK l©O OPEN # THEN  LOAD ▚w, FORMAT gI COPY  GO SUB  STEP b PLOT  [R][E]ACS LN  CLOSE #[K]INT  MERGE ▞[U] ERASE  AND  CLOSE # CLEAR  RETURN : GO SUB  AND .k DRAW o GO TO ATTR [A]dUSR   NEW ?H[G]▙ GO SUB [K]ACS TAN [B] LIST <>PEEK  RANDOMIZE  MOVE ▟$u,[O]TQ DRAW [[P]T INVERSE .$Mq LIST  THEN 9>=}[B]XgX{▝oPEEK 0~ SGN w$ LLIST BIN %{[B]8_ READ  INVERSE |LN 8 ERASE [C] ERASE  PAPER  CLEAR  THEN NOT USR  DRAW &▜&▙` NEXT  AND Oo CLEAR  THEN ©POINT ▚[F]oga INPUT w, STEP o CLEAR -  FORMAT <>©J4 INK  OR ▟ OR  STEP ©SGN ▜&▗ INK o RESTORE ▛) FOR  INVERSE  AND  INK ~▜o OR _2$c TO  LINE INT t[R]34SQR F35SGN `VVAL$ ABS  LET [K] INVERSE ACS [M] INVERSE !PEEK  STOP COS  INVERSE *IN  LET  NEW  INVERSE USR  LET INKEY$ INVERSE STR$  INVERSE ACS [M] INVERSE /CHR$  STOP COS  INVERSE (NOT  LET  NEW  INVERSE BIN  STEP  INVERSE  OR >o*[P][A]O| VERIFY `W1 NEXT [F]G|zS[E]_ STEP Uc THEN |( INK  MERGE  STEP [E]g MOVE STR$  POKE 6K CLEAR b DRAW  OVER S#CHR$ [R]b<> MERGE yATN  PAUSE ]c GO SUB D_zi▝ATTR [L]?g STEP o0I LET |/g}:- BORDER [M]c MOVE x▝[J]Eg POKE {r[H]▟ BRIGHT  NEXT gPOINT  BRIGHT  DATA 0 FOR  BRIGHT NOT 2<>▗ INK ▟AB~g?, INVERSE o2 AND TAN }r STEP # INK |>=CHR$ IN qZ[A]o REM <= THEN INKEY$PEEK } ERASE  MERGE )[H]ATN W`NOT  LLIST J POKE  GO TO  INK CODE 7_[O] OR ^,-_SGN VV▘WN# OPEN #vK PAUSE  RESTORE  STEP ,dswEXP ▛rq OPEN #[P]&#STR$  IF g INPUT  OPEN # OR : PRINT } SAVE OSTR$ BSY*[JXAT  PLOT  z REM <>_]N VERIFY @F4 NEW {y INK 50G1; RESTORE zS{x MOVE ▙< POKE g STEP w FLASH  MOVE  READ gHT LLIST /<>> READ <>:vO INVERSE i CLEAR  NEW r>?[B]d&PEEK  RANDOMIZE _V GO SUB Se CLEAR  THEN )[B]o]=N AND -▝gY RETURN  FOR  NEXT [C]8 INVERSE [F] ERASE TAB [H][D]gmIN [E]G6 STEP 1 RETURN d[A] IF &>©! CIRCLE G RETURN l BORDER 8 PAPER  LINE ~ REM  INK l0x VERIFY  CLOSE #LEN d[O] PAPER LEN ▛ INK  CLEAR } AND USR g>=W.V,[G][C] INK ▚xw AND N CLEAR CODE qx LET  INK %k INVERSE -CHR$ De<>!INT t5o GO SUB VAL * SAVE [1?9K=[R], INK 7U DIM ;PI'?zSGN ?CHR$ 0 FOR <=PIxO|`G INK  DRAW & COPY INT P{ PRINT [K]f"SGN SeiSGN CSGN D7▚SIN SGN ?SGN  RANDOMIZE [D]jl[C] FORMAT  CIRCLE |SQR  FORMAT ?XO>0( CLS z[B]2EoxSQR l LINE 8y[D] OR PIF INVERSE }[E]Ox2▝>=a RETURN  NEXT  OUT PEEK |ATN (. COPY }NOT f CLEAR Ae:TAB O_ STEP 4VAL [D] STEP w FLASH IYm|g RANDOMIZE ▜ DRAW 9y▗[F]ATN >=VAL  PRINT C INK yEXP tATN [N] CLEAR A%S< BRIGHT  INK [D]# CIRCLE [K][L] COPY [D]"niO[E]ATTR USR  PAPER ]IN ▗[C] PAPER ji?g CLS ▘ CLEAR q* OVER [T][U] IF h OVER [P] CONTINUE z[E] PRINT  STEP [F]n LET ATTR  NEW  CONTINUE {,9 POKE hSIN ▗CJ?-WUSR  TO >=▖ RESTORE wABS NOT .i REM ABS [G] COPY  MERGE ~POINT [R] MERGE PI*TAB  GO SUB s GO TO [C]:6oGO OR  BRIGHT >[B]ORND4 LPRINT [D] SAVE  RETURN  DIM  STEP O{[B]siy AND .G GO TO  DATA X READ STR$ _ATN  THEN ▞t CLEAR CODE ATN [R] RANDOMIZE 91 INVERSE & LLIST Ml STEP ▝ NEW  STEP ~,f$[D]iCODE  INK  RUN ) LOAD f ERASE EIN [F]SGN u| INK F CLEAR  RETURN / FOR  INVERSE %CHR$ ti[H]e RETURN [O]<>ATN u CLEAR >= RESTORE G{[F]gh6 CLEAR  FOR  LLIST } AND g. SAVE xD READ {Mo| INK -  RUN ;`io CIRCLE [E] GO SUB oj MERGE  MERGE  POKE  NEW <= MERGE z[E]2 SAVE n GO SUB  FORMAT oh& PLOT   NEW FN ABS EXP NOT  INVERSE  RESTORE | INK fj LOAD USR j POKE ]ACS @ ERASE TAB  INVERSE h CLEAR  READ  CLEAR INT  VERIFY  INK ZpCODE ASN  PAUSE SGN d DRAW  LLIST  LPRINT  CLEAR  RETURN <> BRIGHT b OUT  LET !&zN$F} REM _okV%^~$fINKEY$5 GO SUB BB}[D][R] DRAW SCREEN$  FOR  CLS POINT U)0?[H]<>|ATN  LINE  INK Z OR o IF VAL$ nM?<=INT D3C BEEP  INPUT #<> INK SIN USGN SPINOT 8 IF EXP &^$VcPEEK [I]% AND ng[I],W<LN X LET |W&~n THEN ▛ VERIFY 0>[C]2 LOAD o  RETURN )S NEXT l<> COPY  DATA  RUN 82p9PEEK <>! COPY ASN EXP [N]sSIN r DIM  RANDOMIZE  THEN [Q]▚ [F]x2AT r PAUSE  LLIST Nm COPY 3 FLASH ACS © GO TO USR z COPY = DRAW Y INVERSE $SGN [A]lCHR$ p INVERSE  STEP  RETURN ~ COPY  STOP <> STEP  RUN rs![F]i}][P] RESTORE  DRAW ▝>~ LOAD O- DRAW  DATA t>==CHR$ >=4y:u[C]5▙. RESTORE [E] LET  RETURN t, LLIST $  LET <>©▞[T][ DIM kcCK STOP ▟ LET ▞ OR j DRAW  PAUSE s}|P▝ztSTR$ 8[L]ju©NOT %n VERIFY  INK " INK |~C CIRCLE Op>!' BEEP (▛ /INKEY$ SAVE <> LINE eASN ▛>? LPRINT J<> GO TO PEEK  OVER  LET l  INPUT  STEP N FLASH  CAT  COPY ▛> LPRINT w,< RETURN  LIST   RANDOMIZE = THEN e IF  NEW  READ &USR A@ix READ %nw| AND @f NEXT  GO SUB  PRINT ~  STOP PEEK ▙[A]@ INK ©e MERGE  STEP STR$ s MOVE z INPUT W▟O&s,r▖ COPY  { AND /BIN _8z VERIFY W  GO SUB  RESTORE <>G6[R] LPRINT ▚ SAVE  BORDER ▞ CIRCLE  CLS $. LPRINT  OPEN #$ NEXT INT  PAUSE }~Uqt CLEAR . OUT  NEW  LIST O CLS CHR$  INVERSE ~LEN w$w LINE N RANDOMIZE ) COPY O FLASH  LOAD  PLOT  & PAUSE ,>= RESTORE m RESTORE  GO SUB INT NATN  NEXT ▚x▙@ GO SUB CX[L] MERGE  PRINT  PLOT   NEW >~ PLOT  #xLEN RNDI PLOT  2▖, BEEP "n NEXT SCREEN$  BEEP +DCOS /LN  STEP U VERIFY  FLASH wATN y INVERSE // COPY  READ Y INPUT SQR ATN  LET * OPEN # OR <SIN ▘IN am9;[D](▖2[Q] OUT  IF & INPUT IN  PRINT  NEW ? PLOT  USR W BEEP _IN [O] FOR } INVERSE oATN  LIST  INK !0u LIST $".4▛ INK [K]>` INVERSE _2LEN u.}COS [E]H LIST ! LLIST  LINE y/[F]o`P[J]K CLS  FORMAT { VERIFY  VERIFY W CIRCLE  DEF FN [I] GO SUB [Q] ERASE  FOR $5 PLOT  USR [O] CLOSE #CHR$ +u[G][P]vCODE 2 CIRCLE  INK [F]R DEF FN  LLIST [A]+uACOS  CONTINUE  CIRCLE <=+?Rdu▚[F][U]COS STR$  DEF FN  FLASH  CONTINUE  POKE !+5?IR[dmu}▚▟[F][N][U]AT COS INT STR$ >= DEF FN  MERGE  FLASH  CLS  LLIST  CONTINUE  INPUT  POKE  IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U] GO TO cFN AT CODE COS ACS INT ABS STR$ BIN >= THEN  DEF FN  MOVE  MERGE  CIRCLE  FLASH  OVER  LLIST  RESTORE  CONTINUE  FOR  INPUT  LET  POKE  RUN  IF  CLEAR !#&(+.0358:=?ADFIKMPRTWY[]`bdfhjmoqsuwy{}©▝▗▚▟}▖▟[B][D][F][H][J][L][N][P][R][S][U]INKEY$FN SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN  AND >=<> THEN  STEP  DEF FN  FORMAT  MOVE  BORDER 3 OPEN # MERGE  VERIFY  CIRCLE  PAPER  FLASH  INVERSE  OVER  LPRINT  LLIST  READ  RESTORE  NEW  CONTINUE  DIM  FOR  GO TO  INPUT  LOAD  LET  PAUSE  POKE  PRINT  RUN  SAVE  IF  CLS  CLEAR  RETURN  LIST  GO SUB  CLEAR  COPY  CLS `IN  CLEAR ~ CLS  PLOT  ASN  LOAD qJ8 DRAW  SAVE ? READ  DRAW  LET  !"#$©%&'() LET <=*+,-./0? RETURN 1234567 RETURN <=89:;<=>?@A LET ?BCDEFGH READ  COPY IJKLMNOPQLEN RSTUVWXYZ[/]^© GO TO _`abcdefghijklmnopqrstuvwxyz{|}~©▝▘▗▜▖▞ THEN /▛▙[A][B][C]SIN  DRAW [G][H][I][J][K][L][M][Q] POKE  PAUSE [T][U]RNDPOINT SCREEN$ ATTR  MOVE ©TAN ACS ATN LN EXP  CLEAR PEEK IN USR CHR$ NOT BIN  OR  LINE  PLOT  © CAT  FORMAT  ERASE  OPEN # CLOSE # VERIFY  BEEP  CIRCLE  INK  FLASH  BRIGHT O[L] STOP  DATA  REM  GO TO  GO SUB  CLEAR TAN  INPUT  LIST  PLOT   SAVE  RANDOMIZE  IF  DRAW  CLEAR XABS LEN IN  CLEAR  BORDER W©~~ DRAW }|{z; GO TO cyxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%" CLEAR  IF  RUN  POKE  LIST  GO SUB  REM  BORDER  DATA  LLIST  OVER  FLASH  CIRCLE  MERGE  ERASE  CAT  STEP  LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$~P[U][S][Q][O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗COS  CAT ▘PEEK  INPUT ▝ATTR :% MOVE J CLS [I][K][M][O][Q]J~)ATTR .BIN SIN TAN ATN EXP SGN IN STR$ BIN <= LINE  STEP  CAT  ERASE  RUN  RUN USR  DATA  BORDER  REM  GO SUB  LIST  PLOT  {USR  PRINT  CLS STR$ "% FOR  LOAD CHR$ 1369< COPY  OUT NOT GILNQSUXZ/ LOAD y^NOT k[_m[K]} PRINT [L] ERASE o[M][L] DIM [K]` COPY ` COPY  SAVE [M] PRINT 3? GO SUB = PAUSE  IF ▞P[P] DRAW  POKE 1 LET  PLOT   DRAW | FORMAT 3q SAVE  LOAD  PLOT  1 PAUSE [P] RANDOMIZE C[F] CONTINUE  INPUT 9? NEXT  RUN  RESTORE PI CLOSE # REM COS [E] RETURN  TO  STOP  STEP _VAL$  DEF FN  TO  RETURN  LIST  SAVE [U]▞ PAUSE  CLS   CLS [M] LOAD  CLEAR COS  AND [U] DRAW  CONTINUE [M] PRINT  LIST ~ TO  PAUSE  INPUT  LOAD  OPEN # POKE  TO [L] INPUT  PLOT   FORMAT  NEXT [D]SIN lD BORDER 0 BORDER ▞USR  SAVE EXP  LIST )▚0▘TAB ▖Tx DEF FN )3 LPRINT s8/[I] DRAW  SAVE b<=oSBIN g DRAW fUSR ApO1▗? CAT f| LPRINT SLEN  OPEN #`" COPY  CONTINUE  LIST [M]C>=[U])0 LIST [I]▚[Q]▗▘0VAL [O][G][E]on. AND  BORDER [U]HASN B LINE TAB  FOR !INKEY$ INK m CLS  COPY fVAL Q RANDOMIZE  PAPER 1 OUT  DRAW DR9INKEY$ POKE  INK  BEEP  CLEAR  REM @2▝ CLS ▞ BORDER 3,Q IF . READ  RESTORE [U]h FORMAT  INPUT  GO TO 9 RUN  NEW  COPY SIN `_ COPY  CLEAR COS +/} PRINT ▝ OR BIN } CLS ▚NOT ▘; RESTORE kPEEK  OR } CLS  MERGE ▘PEEK  CAT  DRAW NOT  PLOT   LINE WPEEK CHR$ [H]_BIN , OUT PEEK VAL$ oo LINE ▗[G]IN PEEK [E]STR$  IF  CAT >=▚;LN ▘ OR ABS  THEN UIN STR$ CODE [G]CHR$ <= LOAD  FLASH VPEEK  STOP IN STR$ } LET  THEN }PEEK k~ATTR  MERGE STR$  CAT ~ LET  AND ,PEEK  CLEAR /~▛©STR$ B=INKEY$X~/_USR C LLIST  AND CHR$ ▚IN , RETURN IN /©<>[H]▝STR$ _[P]BIN IN xPEEK IN  SAVE W▝} INVERSE STR$ ▜AT  RETURN IN CODE ©.[H]USR  VERIFY PEEK nCHR$ ▖ THEN  MERGE PEEK IN  THEN © THEN  OR A▝<=[E]▘CHR$ ▞[T][P]ATTR RNDPEEK IN ©L COPY ▝STR$ |[G]CHR$ ▛K DRAW PEEK ▝ MERGE IN  STOP  MERGE ©USR r LET  INK STR$ PEEK [K]CHR$ /gPEEK IN © IF [H]USR kASN AUSR CHR$  PAPER W▟ OR IN IN ©ASN ▝USR ASN  IF ACODE 6▝USR ▟▙XSGN IN _#USR [G]ATTR A}ASN STR$ _.IN ©USR  STOP USR  CLEAR [K]IN ▛_USR AATN [G]STR$ USR ▛ THEN ?BIN cIN W CAT  NEW ▚▝ OUT  IF USR 'USR ATTR USR ATTR @z POKE USR  REM [R]©STR$ ▝▘USR USR  CIRCLE USR x POKE  COPY  CAT $PEEK STR$ ▝[T]USR  COPY  IF  DRAW USR }G0|USR  PRINT =USR ?▝ IF TAB @A▘ MERGE CHR$ CODE  CAT @ OUT  OR © DRAW  COPY ABS USR  SAVE USR  DRAW  LIST STR$  RETURN  IF ?PEEK  SAVE @|9DCHR$ :VAL STR$ !VAL APEEK  GO SUB USR ACS  BEEP ▖ RETURN =:VAL USR %VAL USR ATTR  GO SUB @NOT / OUT @©O OUT USR  DRAW [H]NOT 6VAL STR$ _PEEK USR ©[P][O]@INKEY$ LOAD ▝USR  RESTORE /©IN [H] BORDER <>[G] LOAD ATN | LIST PEEK >NOT  COPY <=SGN [H]IN ▝IN PEEK USR  NEXT 3NOT USR ~IN PEEK A} RANDOMIZE ▘ INVERSE  CLEAR  LOAD >ABS  LOAD  INPUT USR  LOAD  MERGE AvIN PEEK {~ NEXT  INPUT [G]SQR G OR { DEF FN IN ? MERGE  CAT USR BIN RND▘CHR$ g RUN @ INK  RANDOMIZE AV LOAD  CLS INT VIN USR BIN : INPUT IN }AT A`t RANDOMIZE ` LET BIN  CLS - CAT  OR ?~T LOAD  INPUT  THEN  PAUSE  PLOT  t OUT  FOR  OUT j_TAB hSTR$ [D]ATTR  CIRCLE  AND ▝ PRINT  BORDER USR PEEK w▝IN [K] CONTINUE IN /USR ▝u RANDOMIZE STR$  RUN ▜ATTR 7STR$ [L] CLS COS ~ PRINT USR } NEXT  GO SUB  DIM ▚ RUN W SAVE &STR$ t~hIN zn? RUN USR ▛ATN Q[Q]CODE V CAT ~n CAT ▘ DIM [STR$ ASN [ OVER oATN  THEN  OUT ▝O OUT ▛USR V`ABS x© NEXT  PLOT  zNOT  LET NSGN  CONTINUE ▝&▛ BEEP USR [R] DATA  MERGE ?PEEK W▗W5o[E]PEEK USR © LET @[P][O] CLOSE # DRAW  REM USR  LLIST  DATA JNOT yATTR ▝ZSGN  LIST ▝IN CHR$ USR  BORDER [B] RANDOMIZE  STOP AASN zIN  INVERSE y▝ LET ].USR [S] DRAW  DIM  DATA <IN USR G?Ga CONTINUE ▝▙NOT  RUN VAL / MERGE USR B>}AT  RESTORE  INPUT  RUN ACS  RETURN NOT > MERGE   IF ▗ LOAD  NEW = LINE 2~ LET $©p&SGN T.USR `h SAVE ▛ DEF FN  FOR IN / NEW  LOAD  RUN  RESTORE ATTR PI[M]USR  LOAD  DEF FN LN y CLOSE # OVER j[C]SIN  THEN SIN  DRAW  CONTINUE  RESTORE  LLIST  PAUSE t▞ DIM  CLS " CLEAR  LPRINT [A]}^STR$ 'w[G]IN [L][N]SGN  INPUT | RANDOMIZE ~PEEK ©5^ OUT Q LOAD  MERGE STR$ [M]G[E]<>[N]▝}}/ RUN  PRINT ▖ IF [H] GO SUB ^ABS CjwSQR VAL$  PAPER <>] OR ©hrxSQR  CLS  DRAW  COPY  LLIST ▜[H]CODE DH CLS [C] MERGE [F]>=;LATN USR COS  NEXT  COPY  THEN  RUN n THEN  LLIST H CAT  CONTINUE ASN w STEP  MERGE j OR ▘ INVERSE  DRAW ATN D}A LIST  FOR  NEXT <=w THEN ▖g BORDER P^ INVERSE  BRIGHT ATTR ATTR ABS G<=EXP  RETURN USR  CLS RND© OUT  CONTINUE  INVERSE z COPY  CLEAR Jz}>= REM SGN STR$ ATN [E]SGN CHR$ INT [T]~CODE /?F?~o▝STR$ ▜-5STR$ I[G] CONTINUE  NEW VAL$  OR  RETURN }▜NOT  PLOT  ~CHR$ PEEK |{STR$ t_dr THEN C LINE SCREEN$ RNDCHR$ STR$  MERGE  NEW ▝C RETURN  LPRINT m|_©?|K▜.z STEP xFF[L]ATN H|WUSR SGN |<=IN CODE {USR ?:V CLEAR ▝o▟ FOR ' THEN Wo LOAD IN T<BIN  OUT <z BRIGHT  OVER  NEW KBIN LN  DATA ? STEP [E]D@▛s[H] FLASH  NEXT */ RETURN IN G>IN USR  STOP JSTR$ C OVER ATN ▝|p LET Kv FLASH <=wIN  BORDER  NEW  OVER NOT WO<=STR$ hqIN  LOAD  OVER ABS SQR yt LIST  FOR LN =zx IF [H] IF ▚[I][O][M]Exq LPRINT ABS IN  CLEAR  READ  NEXT 6w LET = OVER <=z CLEAR ^ CAT CF~INKEY$USR W/STR$ ~{|LN  CLEAR  OR  PLOT   RUN  LLIST  COPY /[H]CSGN 9 RETURN  STOP C[G]RUSR IN USR { INPUT  POKE  CLEAR  OR  PRINT  BORDER  RESTORE © BORDER  BEEP EXP  VERIFY v[J]?8▘tBIN USR KASN ©CHR$ USR CODE  OUT TIN ~ RANDOMIZE 7z OPEN # DEF FN  OPEN # IF M OVER NOT *USR  GO SUB ; OUT  CAT u OR 4USR >= OVER N[Q]~[C]AT @R-USR CHR$ g DRAW IN  LOAD ATTR IN CPIASN STR$ [O]_[S]P NEW ▙ LOAD  PAUSE USR ATN O PRINT [L];w RESTORE O LOAD 7}[H]@ OUT rB©d▟W[T]USR E|?ABS ATTR  COPY  RETURN  GO SUB  DRAW  BRIGHT -USR  LOAD ▗r LET ?A LOAD  MOVE b▛8O▙ LOAD LN ▜ PAUSE ©[O][L]<>o&USR LN  LINE  BEEP ?USR g PLOT  @STR$ PEEK <_=NOT <>STR$  INVERSE  RESTORE h▝IN ▟ FORMAT  STOP  MERGE IN > PAPER PEEK ▝▛|TAN  LPRINT _SGN N[U] INPUT SGN USR SQR [R]USR  SAVE [B]/CHR$ BZ OUT C POKE <&zNOT  RUN iIN TAB 5[D]USR [Q] LLIST hNOT [M]PEEK <=pASN CHR$ BCHR$ CODE  OUT CHR$ [H]▘ INK INKEY$} RANDOMIZE  POKE -` DEF FN o OUT [Q]~{v NEXT { BORDER ▝ VERIFY o RETURN ▘x SAVE  CLS  INVERSE IN ▖/_USR oLN _▝ CLEAR  VERIFY IN GK RUN COS v.▝$ RESTORE ▛STR$ CODE  RETURN SQR  RANDOMIZE VUSR  RESTORE v[C] THEN  BORDER  PRINT v OVER ATN A DIM [ NEXT <[R] CLS TAB h COPY  OUT r OUT USR  IF MDA LOAD [H]ASN > PAUSE ▜oSTR$ ▘K|BIN USR CODE  OUT  MOVE { CLEAR IN  OVER  LET USR  GO SUB ]M>W THEN USR SGN ▛CHR$  BORDER RNDnSTR$  BORDER ATN >= DRAW [H] FOR SQR STR$ ©;SGN T OUT NOT ^▚© RUN B_[N]L REM +STR$ [Q]w OUT r CLOSE #▜WtVAL ©m DRAW }x RETURN [R] BEEP ©taxwNOT RNDx:▗?SGN s INPUT  INPUT STR$  IF _IN CHR$  OPEN # RUN SGN SQR CODE  RESTORE  FOR [B]Bf BORDER ;[H]IN ▘ INPUT ATTR STR$  OR o LPRINT ug RUN  OR [O]BIN  INPUT C OPEN # RUN >={ RUN o INPUT  OR <TAN CHR$  RETURN  REM  RETURN  POKE  RANDOMIZE  LPRINT  PAUSE /©IN STR$ n DEF FN  TO w^LN IN z;STR$ IN w©>LN COS g_© MOVE }[R]©~ BORDER  FLASH ' LINE /[P] INK STR$ { SAVE p LOAD ASN <=▙▛CODE  OVER STR$ o OVER U LOAD #▞ DEF FN qG` CLS { IF ▜SQR ©▙ RETURN  STOP [M]_USR [I]TAN  COPY  PAPER  COPY IN  COPY <>V,IN w GO TO M INK <= CLS [I] CLS ^USR y` STOP  IF ~USR I`CHR$ CODE ~USR IN ?<U IF <> LOAD IN ©8 DEF FN CODE yL<©nq CIRCLE  CIRCLE  LLIST  SAVE ASN  STOP  DRAW  OPEN # PLOT  k CLS yO LOAD J OVER }▛ RUN _ DRAW PEEK  RANDOMIZE /IN  DATA ~hVAL xTAN IN  LET !TAN / COPY USR  RETURN  LLIST  RESTORE ~ LIST h GO SUB /IN  NEXT / FOR C[M]@▛ POKE ▘ LPRINT CUB.OBJ C```hrust-packer HR<VAL © LET > STEP CHR$ `$k CLS v*! LET / GO SUB [ATN LEN R0 PAUSE > OPEN # RETURN !X CLEAR F COPY 6? GO SUB VAL ;& PRINT  INK pPIUSR vPIuACS wLN [Q]@ CLOSE #COS  OPEN # OR CODE  ERASE  VERIFY  VERIFY  BORDER  COPY >= : MERGE ` INPUT 2[J] INK [U] GO SUB COS P[J][E]b[N] DEF FN 3[K] CAT  INVERSE <>oMOf▟ NEXT  NEXT ▟(0BIN CODE ~9 CLS BIN qg.▚[I]@[J][R][I] STOP G{[I]w▗A MERGE [B] IF CODE  OPEN #<> OR  PLOT   CLEAR ©2[P]x LIST /ySTR$ <>sf1O[L][M] FLASH FN  INK  PAPER z AND  TO  NEW W{ VERIFY  CLS _S FLASH  REM [T]BIN TAN  INK >2 IF e INVERSE &STR$ ^,V- FOR ▟Asr© AND z INK o> CLOSE #g| PLOT  USR K~ BORDER [H] VERIFY ? RETURN  GO SUB sf>= Z NEW  GO SUB { RETURN ASN y> DIM ~:1-# INK  BORDER / INVERSE %CHR$  PRINT `1? CLEAR <> CLEAR f INVERSE g!TAN USR y CAT p INK  CIRCLE  RETURN <=.^, INVERSE USR [M]>= INK w, FLASH T INK  LOAD `USR  THEN  MERGE  COPY vw[D]Z COPY  x AND GbW POKE  INVERSE ;1CHR$ 2f<>!USR wp~,0 IF } VERIFY  RESTORE -o DEF FN O MOVE   NEW !1 RUN [C]9 INVERSE . MERGE  RESTORE > GO SUB VAL =  SAVE  LLIST  MOVE $IN  SAVE  GO TO UlABS  PAUSE "N CLS G>! PRINT `a REM  (g INVERSE CHR$ [A] CLEAR  CLEAR  DATA [G]h[J][M] RETURN INT 2<>~O|^[D]W> THEN j* OUT  RANDOMIZE t VERIFY i#[B] DEF FN X [C] LPRINT  TO  CLEAR |CHR$ xLEN   OR INKEY$<>[SGN FN SGN 6/,w; FOR #Rb GO SUB [L][M]TAN  REM [A]Yv^.> LPRINT V{/_zWj RANDOMIZE SGN  BRIGHT  OPEN #[K]: THEN >7@8 RESTORE  INVERSE 4c LLIST A PRINT  FLASH X[B] REM <> COPY VAL  CONTINUE [K] FOR ~▖y[G]"SCREEN$ ATN VAL$  FOR D NEW YUm BRIGHT < FOR w INVERSE [H] FLASH  COPY AT [H] INPUT  SAVE  LET SQR  RUN  FLASH A~ COPY M LOAD  COPY  CLEAR  OUT o COPY  CLS }©IN i LOAD  RUN H CLEAR  RETURN B OUT  COPY  CLS IN V COPY  RUN w COPY ~~ OUT  LOAD r CLS  CLEAR PIN  COPY  RUN ©D RETURN  LOAD g COPY  CLEAR |IN  OUT ` GO TO  CLS z COPY  OR -USR  COPY ? RETURN IN PEEK  GO TO ? COPY  DRAW [U]CHR$ | POKE .VAL <>[U]CHR$ STR$  INK _ OVER CHR$ CHR$  OR  ERASE ATN  CLEAR << INK 4&USR PIBIN } AND NOT  BRIGHT  RESTORE ~SQR RND RESTORE [G]~COS ©INKEY$ATTR  BORDER [L] DIM IN ngn[C]ASN ▞ BEEP ▝-}IN IN  SAVE *}2t[O] MERGE LSCREEN$ |V& RETURN USR Q OR [G]PIf INVERSE CHR$ [ PAPER  CAT Z}PEEK J>=B FLASH  NEW  STOP 0ATN  LINE $ATN  OPEN # RANDOMIZE  CLS ^2|Ff OR CODE H RESTORE  STOP  STEP  OR uV5[J]"AT INKEY$ COPY USR [E]KIN ▘▛&RND PAPER  CIRCLE IN [H]▙[J]BIN }P CONTINUE |Tl GO TO [P];|▟7c[U] LINE ASN n[O] OPEN # THEN _▛STR$ ZY-. CONTINUE [P]▗© CLEAR ▜A©RNDIN 1 TO  DATA m[L][F]POINT  TO CODE  NEW  RANDOMIZE > PRINT STR$  CLOSE #ATTR  RUN z[R]USR  RUN j LET |ASN [E]CODE  EXP t▞BIN KBIN  STEP ▗ COPY S3TAB VAL$ <=[U] DRAW POINT  RANDOMIZE  NEW  CLOSE #+ OPEN #LN 6 AND ABS EPRND ERASE  TO ▙LSCREEN$ ED▛ACS [E]vCHR$ 0 CLS 86▙ NEW  AND VABS [N][O]e2yCOS ▖><>J▞ THEN |e<= CLS <=>= INK VSQR PIFN USR [A]▘EXP VAL H AND USR G[D]K MOVE =ASN NOT u RANDOMIZE  REM   CLOSE # DATA CHR$ . STEP ) REM {PUSR *SCREEN$ [J]STR$  MOVE  OR TAN  COPY  COPY J>=[I] FORMAT : THEN ▞%jIN "STR$ 1ABS  AND [P]:d©cR> NEXT |▞ CLEAR [F]CCHR$ P REM uTAN fUSR  AND [U]USR D[K]1USR ▖ OR u NEXT pCOS ▗LEN NOT >=J- LOAD  VERIFY 9n<> #}[N] THEN POINT ,~ TAB IN ~bjABS WXf OUT qL^CHR$ z[H]TAB  STEP  AND ; CAT /%'),[C] DATA "Fi8kj~TAN }K}ABS  DIM i[J]r CAT C@ATN CMFS CIRCLE STR$  DIM )PEEK SCREEN$ IN ASN x CIRCLE h? RETURN + OR CHR$ V$WUSR ASN ^ NEXT SQR  RESTORE jUSR 0PEEK [S][I]_ MERGE  CAT 4 TO ,'z CHR$ 6H DIM >= SAVE  PLOT  SGN PEEK  LLIST zRNDp@7 LET A%TAB  AND ▛ TO ZSTR$ $ ERASE  CAT dEK/ NEW  POKE |$"[D]AINT  RETURN EXP IN ▙oPIATTR  POKE %b[H]<>1▚ PRINT <IN STR$ ePEEK 3▝ STEP fSUSR 21[D]rIN xUSR ASN |ATTR o AND " NEW  OPEN #eLN USR ^PEEK C.[R] CLEAR  FOR IN TAB W; CAT ySTR$ '12IN ? LPRINT {-/g TO ,TAB 7Z▘&EXP 5[B][L] SAVE USR  GO SUB  ERASE [S]BIN TAN ABS CHR$ ABS i%"9R DIM /▝? CLS  CONTINUE o3 VERIFY cINKEY$? POKE ASN h DIM >=0x MOVE  DEF FN TAB  CLOSE #▘▙/B[U]R| RETURN ATN 2 AND STR$ ATTR USR ATTR  PRINT  INPUT SCREEN$ [ OUT rFN  DIM LEN ▖<]G[N]ATTR  LIST # CONTINUE TAB  VERIFY  LINE F TO G BRIGHT *1A:cSTR$ G[B] RUN  RETURN )ATTR  PRINT c;KZC|E PRINT ▟LLN  GO TO .Uw AND USR  PAPER ^VAL$ ▝+_PEEK  RANDOMIZE [H]SIN [F]~▗INT  OPEN #TAN ~jV▗ GO TO =Wp AND CHR$  AND  NEW  FLASH  GO SUB  IN ▗~u4}|T CLS "STR$ W5BIN INT ▞[Q]xXCHR$ STR$  CLOSE # CAT CHR$ USR @ AND IN STR$  DRAW 1 NEW <=ABS 8[K]STR$ 8fj OR ▘d PLOT  0>= DIM < RETURN / INVERSE [RNDUSR h)@~CHR$ 4[E]POINT zACS  THEN ▚ RANDOMIZE E PLOT   SAVE  OR T READ x THEN [R];FPEEK K{ LINE ©RND[C][J] MOVE m)▙STR$  STOP  SAVE 6TAB [I]LEN 9 PRINT  RUN :z3 OVER ?jjLEN AUSR [T] LET  OR ▘[B]SQR ▛▝[G] LPRINT CHR$ BIN  DRAW SCREEN$ 4 PAPER v POKE * DRAW  NEXT x AND  RESTORE ,SGN wie"USR <=+ [A]SGN S)|▞b2PIUSR CHR$ 46©VCUSR }R<> REM [I]5J3ABS  RUN  + PRINT 8▟ READ ASN LEN E}NOT :SGN ABS MVAL$  GO TO S<=<= RUN  POKE PEEK [N]WY DIM r LET 3-SGN USR #[ABS  AND [O]ho)[IDCHR$  OUT  DEF FN  GO TO [N]-P©JUSR  COPY  POKE [U] LOAD 1 MOVE jKVAL  LINE +POINT p" LPRINT  INPUT % BEEP  THEN >=SGN v PAUSE ISCREEN$ USR [K] LPRINT RNDUSR >= AND / MOVE  CLEAR  STEP 52FkoNOT 8 LIST INKEY$g/m OUT  PAPER ]ENOT WHIN DRNDx&USR  CLOSE #ATN STR$ ▘<=ATN ▞ CLEAR s▝!MwATTR  LLIST  POKE  INPUT F: BRIGHT [O]▞C DIM " PRINT .USR <>[H]zSTR$ Q-6~U3$USR CHR$ gBIN  DEF FN [K]STR$  LET -NOT CcvA CONTINUE " OR 7} INK ASN  LLIST "U REM  COPY PEEK [O]ATN  VERIFY ;pESGN  LIST  PAUSE ATN #NOT CHR$ SQR y LET  CAT 5wLEN PEEK RNDIINKEY$~[J]IN xFN v" RUN % CLEAR  NEW - POKE TAB +~y=7 NEXT [A]lATN ?[K]D READ U OUT [R]2zJEXP ▟ FORMAT  DRAW  SAVE  CLS CHR$ wSGN E▚K8,© SAVE - BEEP <= GO SUB } GO SUB wLN ) LINE CHR$  NEXT USR  AND  CLS EXP  POKE |oATN ^ PAUSE ▚ OUT  VERIFY >W) OVER LG OVER  ERASE ;TAN  STOP  INVERSE A RANDOMIZE  REM  LET xfW OUT  DIM M]STR$  OVER SGN  PRINT TAB ▝PEEK SxNOT NOT /▝dJ=yUSR PEEK  LET <=EXP ATN  FORMAT ▟# LINE  OPEN #[[T] OR ^INT BIN /PEEK CASN  CLOSE # LINE oABS CcxcSTR$ o8[ PRINT ATN kBIN A RANDOMIZE vNTCBIN ?"#IN  PAPER  LLIST ▞BIN ATN  LINE INT  OR [U]▜▘y STOP { FLASH INT  STOP  GO SUB IN ]EXP |05▝▗ OUT ▛ATTR "INT ELN -WUSR BIN ATTR WIN EXP  INPUT ▚BIN [E]6 RANDOMIZE INT x8^ DRAW M</? THEN  BRIGHT wSTR$  INPUT e PRINT USR [G] INVERSE 8y▞FN SGN ▙ MOVE  COPY INKEY$$ DIM ?ABS W BORDER v*=, RESTORE  LET RND7 NEXT  READ [G]jtmUSR 7c@}.[D]B NEW t OVER &EXP  OUT TAN SGN [H]▜SQR  PRINT B LET SCREEN$ USR Egr© IF j;z CLEAR p▚ RUN  CONTINUE v NEXT !( RESTORE  TO = CAT NOT y REM BTAB oABS  ERASE ▝ CLOSE #CODE vC RUN  INVERSE CODE  PRINT  ERASE }CODE SCREEN$ ▘[H]STR$ <▛ RUN 5 GO SUB rNOT  INVERSE g▞COS ▛▘ASN Z[E]zOwUSR  DRAW [8 CLS  LLIST SGN ABS ;<9 INVERSE jSIN USR  INPUT [C] LOAD PIE[C]>=USR BIN s[T]; REM n DEF FN IN z CLS 0x THEN  CIRCLE  PAPER /w[C]SQR CHR$ C[O]▜OASN ;▜<> INK  REM  OR ATN INT E&w?CODE 0CODE /p9EXP ;V NEXT  STEP Z CLS / MERGE SGN  LINE POINT RND INVERSE >=USR -SGN QPOINT [G] STEP vSGN < THEN  CLOSE #nSQR  REM v[U]K^ INVERSE F OVER lLN x4 MERGE <kINKEY$ PAPER  FOR USR >=>▝<> BRIGHT y[D]PEEK { RANDOMIZE JSGN PIPEEK ABS [INT EXP !_[S]zBt▛STR$  LLIST J#AG NEXT ATTR J"JPEEK  NEW ▙▝ATN [L] INPUT COS ATN  READ  STOP JI8©Az RETURN GQnASN USR  STEP oSQR ▛PEEK [J]DSCREEN$ INT  CAT  INPUT c▛?SGN /<=n/2 COPY &[R]L©Af©[B]USR  CLOSE #a CONTINUE SGN [R]ABS  LET ABS  THEN  NEW 0[M]ATN  CLOSE #ASN 7[O][A]LN [D]STR$ CODE w▞ GO SUB  BRIGHT ▝POINT  TO jIN ▟wir READ [{ LET [P] STEP [E]<[N]QINT  LET [I]'SQR } DRAW [D] CLEAR  CLEAR b MOVE 6▟oINT  LIST 2CODE SGN  NEW LEN [F]3[D]]@ CLS +CHR$  NEW Fy+wCOS fPmn[J]▞Z RETURN CHR$  BRIGHT MUSR [C]/▙~:2 RANDOMIZE  FOR  FLASH  PRINT iSQR VAL$  CLS wATN SCREEN$  MOVE n[J]RND▜ INPUT Xu CLS W`J[O]STR$  LPRINT RND4 INK  CLS ]TAN ; BORDER ▛L[J][Q] INVERSE J CONTINUE [D]c`<>ATN [K]c~C[J]VAL$ Z1AT [H] CONTINUE Y LET ▟SIN nVAL AW@~ LINE LEN [G] MERGE PEEK USR  RETURN >9%CODE  GO SUB 8[O]7EXP ?64 INPUT  MERGE 3210@ CAT /.[T]?-1L, CLEAR +[I]INKEY$ RANDOMIZE *) PRINT )( LET (c GO SUB '▘a DIM :<>0USR gCHR$ USR  SAVE c CONTINUE 63 AND  NEW  GO SUB 4 BORDER f<1 NEW  AND x. DIM 1 COPY , DIM  RANDOMIZE * DIM  DIM W AND  FOR &CHR$ A[J]9c[C]CHR$  NEW  BORDER  CONTINUE 5 TO  NEW  NEW ▚ LET 0 NEW  AND 0 NEW  RETURN 4 DIM  BORDER *)1 BORDER (USR  DIM /c GO SUB &USR ; RETURN [I]USR  BORDER 1 DIM 9 BORDER  CONTINUE 7c NEW  CONTINUE 4 NEW xf NEW / OPEN # NEW  NEW  BORDER *1 AND  DIM  DATA ( CONTINUE  DATA  BORDER ' DIM USR `3 READ USR 1 AND l CONTINUE 7 BORDER  CONTINUE 54 OPEN # NEW  NEW  AND . DIM 1 DATA * DIM  DATA ( CONTINUE xf BORDER &<[P] AND  NEW < BORDER  AND USR  DIM 9 BORDER  STEP ▟ CONTINUE 6 NEW 3 NEW ▞/-L OPEN # NEW  NEW  DIM c BORDER ' CONTINUE  NEW %1^ BORDER $ LPRINT [F]CHR$ 1USR c DIM ; BORDER USR o DIM 9 BORDER  BORDER 3  CONTINUE  INK 2!0.-[K] DIM  DIM INKEY$i DIM  DIM <>0 CONTINUE  BORDER $STR$ [P]USR = AND gUSR  DIM ;i DATA  DATA  DIM 8dn BORDER "4% NEW '5USR  GO TO ., DIM "[K][H] CONTINUE c CONTINUE  BORDER $TAB [J]USR # FOR #>kLUSR  DIM = DATA 4= DATA k OPEN # BORDER  BORDER #(5c NEW 2 OPEN #+ DIM (#4M DIM  CONTINUE  FOR 3 AND USR  CONTINUE  BORDER #QUSR USR INKEY$ DIM  DATA o[K] RESTORE  DATA  BORDER "(8/I DRAW 673?0C-*[K]INKEY$ASN / DIM (" CONTINUE =k FOR [O][J]" NEW "<=0USR  CAT z7M RESTORE   DATA %-:$ RETURN 78G5Y0d+(V CONTINUE 7-YS  REM  DEF FN  CONTINUE xfUSR ! NEW ! VERIFY COS USR  TO x NEW ? OPEN # POKE  RESTORE !'▞© STOP 1?;Y8▟0>=( VERIFY % REM ?1kz'! LOAD f< NEW ! STEP yUSR ATN g NEW  CAT  NEW COS [O]!z VERIFY (2Cd▖7>= COPY  0[O] PRINT C2 AND COS (!g NEW   NEW   CAT  NEW   DRAW [O]<3 NEW SQR a NEW ! COPY ='1?Y▟▞>= INPUT  INK ?1'! CAT  NEW 3[O] NEW  PRINT <[T]1 NEW  REM 1 %-7GYdy 7-0L3& RESTORE  NEW =<>USR  LOAD &<=USR o[K] REM  FOR  CONTINUE "y RANDOMIZE (/7 RESTORE C[C]@ FOR ;(LEN e DATA " GO SUB  NEXT AT  RESTORE y[G]USR [K][O] FOR INKEY$i CONTINUE  DIM ^ COPY  DIM #(-;#CcGNOT [O]5 DATA NOT [I] DATA  NEW POINT BIN USR  DIM [J] BORDER [I]TAN  CONTINUE  LIST  DIM [D] BRIGHT  BORDER "'[D] NEW (M THEN "W BORDER k[K] DATA  DATA [D]<CHR$ <= SAVE  REM M PAUSE USR  CONTINUE M2 CONTINUE  LIST  DIM b6 DIM c4 TO [P]! NEW !▟G&0 BORDER [C]1 DATA  DIM  DATA USR  CAT BIN cUSR  CONTINUE USR 4 AND  BORDER  DIM USR J<> DIM  LIST  CLEAR cL PRINT  FLASH Y AND [F] THEN c▙ BORDER  DIM  AND  BORDER USR  DIM [C]? BORDER $# NEXT USR $ OPEN # DIM  DIM  LET J<> NEW  LET  COPY cR LET  COPY <>*SQR  DIM YzUSR  READ  AND USR  FOR USR d[C] CONTINUE  LET  DIM <>[I] LET  DIM  DATA [O]RND RETURN  RETURN Ld CONTINUE g(EXP  BORDER  DIM c BORDER  DIM USR 5c][J]ICHR$ USR  CONTINUE & DIM © LOAD d) RETURN  GO TO sL AND  POKE  NEW 1ASN  RANDOMIZE  BORDER gASN d LET [J]IUSR  LIST  DIM [U]DUSR  LOAD d<> DIM  GO TO <>R GO SUB AT <=▝WABS EXP d DIM o[D]) NEXT  BORDER 6 RETURN  FOR 9 v CAT 8VAL$ {7 OUT LN ▘543 OUT [P]210F]LL LET -,+▟o*)[R]c' AND [P]:[O]5 BORDER USR INKEY$VAL$ ▗USR  BORDER  OPEN #4 NEW  NEW NOT USR IN CHR$ /9CHR$ I TO USR  CONTINUE a▚ DIM & IF c NEW 5cUSR  BORDER gINKEY$~~ BORDER  AND ▖USR gINKEY$ NEW USR  NEW CHR$ )&BIN  DIM  RETURN $&W NEW ; NEW  CAT USR /9~ PRINT [K]<> CLOSE #USR  NEW INKEY$ATN USR LEN CHR$ BIN ok AND  INVERSE  DIM USR ;ATN  BORDER CODE USR >= BORDER  DRAW 5 OPEN #~ BORDER )[J]USR  NEW USR  OPEN #[U]CHR$ FCHR$  READ O DIM ' FOR USR %SQR  LET  LINE  BORDER c[C] BORDER USR  BORDER  DEF FN ~ DRAW ~2M> NEW USR  AND  DATA B DRAW +1 NEW CHR$ BIN  DRAW '3c CONTINUE  NEW % STEP  BRIGHT $ NEW ]ABS c▖ BORDER iUSR  BORDER  BEEP [C] BORDER ~>0 OPEN #[I].USR CHR$  LET L DIM  DIM  TO ASN CHR$ CHR$ $CHR$ ATTR INT  CLOSE # MERGE D1 RETURN  DATA  RESTORE  READ :SQR <>|<6fS> NEW ,RSGN CHR$ BIN  CAT %CHR$ VAL$  AND  FOR CHR$ PIATTR <> RANDOMIZE SGN 7▟ LPRINT ; DATA  BORDER ~USR  REM [F]USR +>=CHR$ [C][J]BIN  FOR H=k CONTINUE  FOR  MERGE >o DATA 4 RETURN 0/ AND  DATA  CLS :oACS x>0- REM [F]*CHR$ ▟i FOR  GO SUB BIN W]8? RANDOMIZE [J] NEW  OPEN #x RESTORE 7 DATA  RESTORE :8~0 AND #+ FORMAT BIN .c REM  CONTINUE " PAUSE l>=INKEY$qBIN !AT gBIN [O] PRINT x{ RUN  LINE  RESTORE =[I] AND ;80 IF (RND AND BIN  REM  AND l LOAD LEN Z NEXT BIN [D] NEW  POKE  SAVE  TO 3 DIM  OUT ]▟ ATTR VAL$ y.[T] DIM  [O] DIM   LET  GO TO ?▚ BORDER  PAUSE  ERASE SQR  STEP  PAUSE W SAVE ^F OPEN # IF { PLOT  [J] LET  BORDER  MOVE  RESTORE TAB  READ  INPUT o? DATA YcTAN PEEK 6[P]oPEEK YSGN AT 1 STOP INT r PRINT  DRAW c VERIFY SGN  LOAD  FLASH  IF ? AND  REM [T]ATTR  LIST VAL k FOR 6M1USR ^ NEXT PEEK [C]1SGN SGN W CAT SGN  OVER INKEY$ VERIFY }<0INT : DIM VAL ▛tL▘IN USR c PAUSE PEEK kL DATA  RESTORE SGN 1= FOR  DRAW © NEW BIN INT  CONTINUE u|k▙▘SUSR LEN  PAUSE EXP |PEEK [O][J]SGN z▟VAL$ ▙ REM u MERGE  DATA ▖YF>=BIN f[K] DIM  DIM ▘i LIST g NEW [Q][G] RETURN {PIW-f.PEEK SGN ATTR 1PEEK  DATA PEEK  ERASE  MOVE  OVER [G] IF  DRAW 1 PRINT j DIM ><>,[I]USR USR  RUN  BEEP [USR DoSCREEN$ s BEEP Q[PEEK PEEK e[C]8 FOR  LINE x CONTINUE ATTR  LET  DIM  PAPER  LINE CHR$ [POINT  MERGE ▘B NEW sABS B BORDER a VERIFY PEEK  BORDER 0USR ▟ DATA [L]1y5<>x CONTINUE 1USR  DIM ▘▖SGN b▘TAB [ INPUT POINT  READ zWUSR L) IF LN PEEK [F]i[ BORDER & READ USR ▜ IF c CONTINUE ccwUSR 5 BEEP  CONTINUE ▘KBUSR oMY IF USR cF/ABS ▟)PEEK  SAVE [J]SGN [D]3 BORDER Gb DIM  DIM r AND  NEXT ▘oc DIM USR f GO SUB USR LABS  NEW PEEK :IVAL SGN xUSR HR[G]b STEP ta CLS v! DEF FN `"]/*! LET  GO SUB [ATN COS  NEXT R0 POKE > COPY  LLIST  STEP `/ OPEN # RETURN !X7 COPY [M] BORDER 6? GO SUB VAL @ NEXT  CAT  NEXT u_C BRIGHT CODE ) DATA Gc BRIGHT  GO TO 5 TO  INVERSE USR FN 05SGN  INK  INK ©ATN k>2pl RUN EXP v LET f RETURN | STEP SzjCODE POINT [S]?[L] CAT  THEN  INVERSE "= LINE  CLEAR . CLEAR n▖ NEW ?m FORMAT s BORDER ACS :[I] INPUT ©[P]2 STEP g:PISIN b/ RANDOMIZE  OVER *) NEXT /(0RND©POINT LN !u DRAW sC[F]<> GO SUB sa NEXT 1 RETURN  PRINT  OR  MERGE  RESTORE  INVERSE m CAT  CLEAR  INK :TAB * COPY ^#V GO SUB S NEXT NOT jp+q RANDOMIZE b LIST m/USR :{ POKE O STEP *LEN # NEW  LLIST  MOVE c LIST STR$  LET  INK  CLEAR  INVERSE TAN 61 COPY 3 OR [L] CLS NOT  MOVE  TEX DRAW NOT UR_MAP +7`NV[P]V- NEW  LIST >R NEXT [P] IF LZ! COPY : IF  FU[P][K]CK FORMAT O LOAD sRZHOSFT COPY (UK[P]eNLab PLOT  mr! ERASE ©) CIRCLE H BEEP J>P[O]SQR [K]H@D DATA ABS nACS  PRINT BIN eATTR ▛ LET fSIN ▛VAL$ a MERGE j LOAD ACS <>hPI CLOSE # MERGE kY2c[H] CLS  CAT lQu$SGN  CIRCLE t% COPY `- PAUSE EXP a DRAW  STOP }|<>*[F] NEXT COS  INK  INK [F]'R|INT  NEXT  BORDER 8 INK  FOR 1LN O`G;COS zUSR ▟{YONOT [N]PL OPEN #"CHR$ SCHR$ C5<>CHR$  CONTINUE NOT 6NOT EXP [D]ATN  PAUSE  REM ATN <> LLIST SIN [D]<> LLIST INKEY$[R],LEN l CONTINUE LEN : STEP ^ RETURN [C] FORMAT SCREEN$ n CIRCLE r[G]O[B]BIN S>>=2%oPEEK  FORMAT i . COPY }[U]<> DRAW 1 STOP NOT O RANDOMIZE OG STEP PEEK O[F]jlH STEP : NEXT  RANDOMIZE ATN  PAUSE  DATA b INVERSE &[J]g*T ERASE v INK  REM / MOVE ) CIRCLE 8[M]U BORDER VAL  LPRINT [I]/$[I]AT  READ ~ AND SIN p0[R]L_[H] AND [I][A]▝q[Q] NEXT v;j"| GO SUB + LPRINT  LET ) RANDOMIZE  FLASH  LPRINT ATN ▙ FLASH 5 NEXT  FLASH  FLASH  SAVE 7 FLASH u ERASE  FLASH  FLASH [J]IN  FLASH IN POINT  FLASH  FLASH [D] AND  FLASH  FLASH  DRAW TAB  PRINT  TO  FLASH  FLASH Q;l POKE SQR t INVERSE  INPUT  LET [R]g INVERSE }~[N] NEW /j INK !_ DRAW [P]IN 6 INK #SIN  AND .[Q])g CLS SQR d DIM [G] INK ATN AUSR  DRAW &ABS  AND G| INK  POKE 3= COPY ABS  POKE  PAUSE ATTR c▗TAN  CAT  LET  ERASE VAL %hACS %▝ ERASE BIN } IF KdNOT b[C]BIN e[H] MOVE Z RANDOMIZE 4_[J]k▟STR$  COPY  CLOSE #[G], INK ▜_ FOR N[B]COS Fqp PLOT  ▟ CAT  GO SUB  CLEAR !CHR$ d?LN  THEN  PAUSE [N] GO SUB D▜oi DRAW & OR ^,V INVERSE kb)INKEY$[F][O] LLIST ATTR ▜ABS  INK POINT ▜v INVERSE  DIM  PLOT  [Q] STEP {j▘TAB  OVER POINT  PAUSE EXP ▟ FLASH CODE e PRINT IN CODE  INPUT CODE ~) PRINT  PRINT ©%CODE `>= THEN CODE BIN /CODE | LLIST : CLS CODE CODE 2&[F]( SAVE  INVERSE _m0O>4eT REM 2[F]; DRAW @[U] DEF FN ATN  VERIFY '[B]/▜~E[E]8f▙,uSCREEN$ IBnnPEEK ]3 LET RNDe GO SUB s CLS  INVERSE *6DNOT  CLEAR SQR ▛ STEP RND1 STEP [K] INVERSE F[H],~[P]N INK o AND - CLEAR ^ OPEN #W^▚[L] CLEAR n RUN ) CIRCLE Vf LET  DIM  INK  VERIFY -< RETURN   TO PHVAL VAL$  RUN ! CIRCLE VAL$ [J]9LVAL$  TO i[O] RETURN  THEN  ERASE ▖z NEW USR { AND  _ CIRCLE z VERIFY W<> DRAW [L]u GO SUB . COPY @ FOR  MERGE > INVERSE [R] GO TO O ERASE Gg[Q]g{▜ OPEN # THEN _ CLEAR USR  CLEAR  DATA G PAUSE Af MOVE |>[G]} RETURN @  BORDER o. COPY  DEF FN  FOR A READ ]) THEN  LLIST [I]e>=1STR$ ATN  DEF FN  STOP  OR | RETURN 8>AiTAB 9y GO SUB  GO TO USR [S]POINT ©5'ASN   POKE PEEK -_'ACS EXP <>STR$  RETURN hCODE  THEN 0▝CODE eg<>x FORMAT  OR /GyO5IcVY▙:[I]j[U]Bj}M  NEXT _ABS  TO #TAN ABS VAL ASN ABS gTAB #ABS  DRAW f▛ INPUT ABS [M] NEXT [L]Yi CIRCLE  LPRINT  RESTORE ` CAT `[K] RANDOMIZE ,_0INKEY$d LLIST N FOR 3 RUN  CAT [G]ATN  OUT = IF  OVER /[P]LEN  INK CHR$ *g[O] SAVE [S]<>|INT 0 INVERSE o SAVE 'jzSGN  {ABS >= INK IN [F] PAPER [C]iOz[E] STEP VAL$ IN GxEXP ▚` THEN UYIBIN ?H INVERSE  RESTORE  LLIST r,[D]0▝ RUN ▜skD OUT COS  OUT  GO SUB © OVER  OUT EXP  READ  OUT G FOR { OR NOT NOT © TO P CIRCLE 5PI[Q]UXy MERGE A[L]& MERGE  BEEP  ERASE ▝ COPY K MERGE S[L][F]X|&USR ^$Vo~% AND ng GO SUB R PAUSE :SQR VSGN W&CHR$ n PAUSE " VERIFY 0>[C]2j  RETURN )q RETURN l&K' COPY 8 DRAW .] PAUSE <> STOP  CAT  TO ATN  LINE j IF LfUSR }= VERIFY aO<>/<gACS TtzINKEY$|/=[O]oUSR $nK;3|ASN >=A[O] STEP zCOS  DRAW zW{0S_ DRAW  CAT myATN  PAUSE [I][L] MOVE jIN O STEP ▖zuo[O]#<>sU▟Z SAVE  INVERSE !?BIN > r[ INVERSE SIN s SAVE ![J]k5F GO SUB VAL =CHR$  OVER j FOR [P]e6NOT #srBIN / RUN ` INVERSE  STEP  RESTORE k AND ~O[B] AND NOT  CLEAR .N- OR <=-[T] RETURN  OUT y4) CLEAR  POKE *VAL USR  LET  STEP  NEW USR AkNOT © OR  ERASE _J AND  GO TO ATTR  GO TO MLEN STR$ _[J] PAUSE V<>g LET  FOR 6 CLEAR , DIM  GO TO Z▙] CLS BIN ▚▗ OVER  IF vk!USR ▛CODE  PLOT   LPRINT w,< NEW   RUN  PLOT   LOAD  INPUT  COPY  SAVE <> LLIST " LOAD `~ INK  DATA COS ▚_ INK USR yINKEY$▜ STOP m▚ INK J INPUT [F]6[K].@ PLOT  `M GO SUB [Q]xCODE $CHR$ [M] RUN k RANDOMIZE VAL !*[F]>M0ATTR  STEP  GO TO s MERGE [F] OPEN #<>▟iV> VERIFY  BORDER ▘W,^_ STEP N?▗▝O RESTORE  STEP Z PAPER [M]l LLIST  VERIFY ,v VERIFY q FLASH 7IN [I]  OPEN #<> OR : RANDOMIZE [F]IN lTAB  BORDER STR$ BSY+l MERGE J*ATTR X*COS  PAPER z DRAW ATTR O<>o& DEF FN N VERIFY @▗/F{y INK  VERIFY $_ IF  RETURN  RESTORE  PLOT  bzxyINKEY$ MOVE  CAT  LOAD  CONTINUE  BORDER [K] FLASH  MOVE ▚T[I]1 LLIST U DIM  TO L$F} REM mkV%^o~$f GO SUB B LOAD  RESTORE <>}[D] LINE  FOR N[Q] PAUSE 6mH OVER A=~W7<> INPUT 1▞ INPUT  OPEN #$ THEN ATN [N]▞[<3^*F PLOT  ? FOR ` STEP &m AND [DwiASN  LINE  FOR xS LPRINT  STEP  LPRINT 0H[L]7 ERASE  IF ▘ AND  PLOT   PRINT  SAVE / LLIST & LINE ▞~,▜O BORDER  OUT _ INVERSE o2[F]? BRIGHT  AND tf  INVERSE ~ OPEN #* GO SUB ZABS ▘ACS LEN  PAPER  IF  FORMAT 7 OVER  FORMAT  FORMAT s READ  FORMAT  FORMAT  FORMAT ASN  RANDOMIZE  MOVE oSGN  MOVE  MOVE  NEW  AND  MOVE  MOVE [H] PRINT  MOVE [M]& OR n PAUSE # VERIFY  FORMAT  INPUT a LET STR$ <>}ATN  CLOSE #[K][B] CLEAR -eFv. PLOT  MtATTR /AfK0[S]=_ NEXT o1@ REM f RESTORE  CIRCLE v CONTINUE INKEY$ACS ATN  MOVE EXP  FORMAT VAL USR zn STOP sUSR o{▘AT }▟[J] DRAW {[F]GvyD7SGN & CLOSE #qPOINT nc IF q THEN <X3m MERGE  PRINT !o LPRINT @ RUN  STOP `[O] LIST  CLOSE # GO TO & LPRINT T INK  PRINT Y RESTORE XATN ONOT  PAUSE i CLEAR POINT F SAVE  CLEAR & NEW  LIST  PRINT fPEEK ASN  ERASE | LOAD w~[F]$ CLEAR %  BORDER H}T TO [B]SGN USR LN CODE ?STR$ k CLS $  NEXT  COPY [ MOVE  PRINT &r STEP fW OUT  IF  PAUSE <>EXP  INPUT ▖[L]g"SCREEN$ ^q RESTORE INT Dm[O]Uy AND  INPUT ,ATN SQR n NEXT  COPY  BEEP + INVERSE /wASN CODE :`USR  COPY  CLS  CIRCLE  BEEP  COPY IN ▘ AND b[C][O]n AND 2/ INK [H]vl[G] COPY  MERGE  LOAD  MERGE  RETURN  CLS  GO SUB s CLEAR [K]IN !d% OVER NOT LEN  MERGE VAL  GO SUB  RANDOMIZE  INVERSE  LLIST ![M]ATTR  COPY ▙<>ABS  INK  CLEAR LN  FOR  RANDOMIZE  FLASH USR  INK IN  DRAW [B] LLIST ; LET  INK -[) MERGE  CLEAR A8 NEXT >'~8 SAVE  RETURN  RETURN  LLIST _POINT   GO SUB  RETURN (Z DEF FN  COPY 6 INK O GO TO >8 RETURN  RANDOMIZE  OUT (<▘0[C] TO  > LOAD  LPRINT )W PAUSE  INK &s NEXT  COPY (g; CLEAR ( LET o<|▖[U] INK  THEN [Q] LET  REM  BRIGHT  LLIST  LPRINT  LIST POINT ▙ RANDOMIZE  LET  VERIFY oO INVERSE IN i[Q]▜#~LEN z▘▙i 8 PLOT  > DRAW ;STR$ HG?[F] TO  COPY  INPUT  PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P][P]| DRAW [R] USR  THEN ©▟ OUT  RESTORE  STOP  REM  FOR  MOVE s#r OPEN # COPY =  SAVE  FOR 0[L]!X' INK 1?▞NOT RH BEEP }@[K] LPRINT X LET  RETURN `©[A] INK  COPY  CONTINUE  DATA  LLIST  NEW  REM LN  READ  STOP  BORDER  MERGE [S] DIM  NEW  SAVE  RESTORE [ GO TO  COPY  READ > DATA  PAPER ACS 8<= PRINT  NEXT  LPRINT  REM  BEEP  CONTINUE  RESTORE  STOP [M]LEN t READ pU LIST <> CIRCLE ( IF  DIM  CLEAR SCREEN$  CONTINUE  TO ATN TAN ASN ©[U]x[M][I]ABS v@[P]+EXP  AND !, LIST [L]VAL /▙ IF  BORDER [J]3> OPEN #▙ PLOT   DRAW * COPY  PAUSE RNDT PAPER RZACS  FLASH [K] DEF FN  LLIST (GL. COPY X[S] CLS ABS P▖CHR$ <> CLOSE #yhASN $ LLIST % RETURN <> PLOT  !S NEW bN[R]Ah BORDER  PRINT ▜ FORMAT  LIST  GO SUB [H] STOP STR$ @ SAVE [J]VAL$  CLEAR [D]VAL  PLOT   IF LN b LET ▝?t2Ocu" LLIST RND PAUSE  DRAW  GO SUB  POKE INT IN  LET j SAVE ATTR  MERGE C<cRNDBr LET  RANDOMIZE /` LET F< LIST  RETURN  DRAW ▝ LINE W>&L91u[K] GO TO  DATA h RESTORE [E]B SAVE L THEN N< BRIGHT  AND ▙ MERGE > REM  BORDER ACS L= RETURN  INPUT VAL$ TAB `8 LOAD  BORDER  CLEAR '▞ CLS B[T] LLIST  COPY  DRAW T,gVAL$ INT  INVERSE [I]+ REM  GO TO  FOR  PLOT  l IF  GO SUB ( RUN <> CIRCLE o[ STOP NWZq[F] CONTINUE HLEN  ERASE 4VAL$ b; STEP ▝[F] MOVE  OUT ?~ LOAD  FOR  DRAW  STEP VAL SGN ~USR ▘ INPUT JTAB © LET 7+ LPRINT  STOP cUSR '7 INPUT LEN [▟ LIST POINT }ACS  RESTORE  LOAD j<> CAT USR $ RUN PEEK [H]CODE  AND  BEEP `Xj▘1, OVER +VAL$ IN &- THEN [I] SAVE " OPEN #PIWSQR owBIN ▙( INVERSE bINKEY$v BEEP `SQR !©T CLS  GO TO  COPY u CAT 1n(Y:*SP%[N].POINT  SAVE ^VAL$ [G] CLEAR  FOR  GO TO ▚CODE & PAPER  INPUT n RETURN  DATA  COPY  LPRINT @/~# TO [U] OR  BEEP [R] OPEN #TAN  RUN  FORMAT  CIRCLE  IF [H]ACS F? PAUSE  RETURN [_ LLIST  STEP $;N DATA  NEXT  PAUSE iSQR [U]Zh POKE [G]~ PRINT INKEY$.▗o LET <zFN  POKE  RETURN PIATN ) LOAD *VAL$ rwASN G STEP  RANDOMIZE  COPY l CAT [T] DRAW  THEN  OR ATTR  CLS  PAUSE [N] BEEP ;  LET -( RANDOMIZE  RESTORE TAN  READ [H]e STOP rD GO TO  RANDOMIZE ASN 6 COPY  LET K GO SUB [N] STOP FATTR  BRIGHT NPI DRAW  RESTORE  LOAD  BRIGHT  IF v CLOSE #[J]?ATTR  GO TO ^ PRINT  OR  OR K▞▝` FOR CHR$ j>= RESTORE  LPRINT  CLEAR J9 BRIGHT 6ACS hKd OR ▚2b NEW  LIST  DEF FN  INPUT ] LOAD ▘ STEP  RANDOMIZE  LLIST |ATTR A READ y DRAW  CAT o} DEF FN  GO SUB VAL$  TO  DIM  FLASH  RANDOMIZE =©[A] MERGE  MOVE  CAT <> COPY  OUT NOT  CLS  IF ^CHR$  CLEAR  ERASE USR  BEEP  CLS <=▛ OR  CLEAR [J][D] LET NOT d VERIFY 7L CLOSE # LIST  IF SGN x'ABS  MOVE Sj% MERGE /pEXP  INK j FOR y$ FLASH  DEF FN  LOAD  RUN }▜CODE  PAUSE  MERGE  LIST o[A] DRAW nSIN ▝ GO SUB  SAVE [E][I]RND<SGN  CLS U COPY /[S]w<=ATN $.93 STEP PEEK aYTAB  INPUT RVAL$  GO SUB  STOP ATTR  PRINT [A]b%[H]  REM  RUN  RESTORE IN  DRAW ABS * LIST  LLIST BIN  RETURN  RANDOMIZE  MERGE $ FLASH ▞ OR K[L]] BEEP  FOR a<>CHR$  RETURN <Kl*6 FOR VAL$ ov IF  OVER  INPUT "=CODE %4x IF Ow VERIFY .SIN  INK [I]1 BRIGHT _▗ PRINT ABS  VERIFY PEEK  IF ? POKE 5, MOVE !CODE  SAVE [S][H] LPRINT  AND wR GO TO ▛[S]TAB  RUN [Q]CHR$  COPY x SAVE M<=SQR @ LOAD p LIST  INPUT -  LPRINT  MOVE  FLASH / CLEAR :F DRAW <^ MOVE  STOP f_";SGN PI NEXT ABS LN  SAVE PEEK © PAPER SGN ? PLOT   NEXT  POKE  IF +AT [N]+jINT CHR$  CONTINUE  RETURN  LOAD [Q] COPY  PLOT  ^TAB f[S](ASN ZCODE n[C][N] DEF FN  CLEAR  OVER  FOR  NEW ABS  BRIGHT C'▞ LET  PAPER %IN  LINE {9 PRINT  READ Ex© POKE 7 COPY [H]!# GO TO VAL$ R DIM z COPY 3 STOP #*ACS ~z RUN ▜, ASN B[G] INVERSE h=) BEEP ▝ FOR  CONTINUE :6[F][ FOR 4SGN  PRINT  OPEN #n DATA  DRAW  THEN  LLIST  CAT .) PRINT  CLEAR p: STEP IN L LLIST  PRINT  NEXT  PLOT   PAUSE VAL CHR$ k; RETURN IN *©8ASN :PEEK  COPY ;STR$  COPY  [O]0t LLIST  RUN r7 NEW [G]QSQR  RETURN ▟[H]t DIM  POKE ATTR  MOVE )[G]m DEF FN l=BIN ▙ NEW 5SQR  INVERSE  CLS VAL$ [ RESTORE 7 PLOT  [G]M3©▙▘BIN v LOAD  CLEAR [T]_ DEF FN [O] OVER ATTR ) CLEAR  RESTORE )[H]78<>y<[C] BEEP [G] RETURN  DIM P[P]b▝[ OUT W PRINT 3 PAPER [F]wjCv MOVE  CIRCLE Q PAUSE  RUN ' BEEP  DIM [K][O]Z)VAL ;▝ LLIST  OR  COPY CODE  CLS F* THEN W CIRCLE n LOAD k LET  IF b[F]o LINE  GO TO ▗ASN ~ MOVE  COPY  OVER  STOP E▘Q PLOT   BORDER  GO SUB  REM  RANDOMIZE ACS w LOAD / PRINT  SAVE ( CAT  LPRINT 'o BORDER @L▛<=_i0' INVERSE 1 CLEAR  OUT ▙ LOAD  POKE  OUT ATTR 4AT  MERGE  INK [B]? STOP 7 TO ATN  BORDER aV REM C▖= INPUT VAL$ 3 NEXT  LIST m INVERSE SQR ▙Pb'[>©z BORDER <> OVER |7 RANDOMIZE  STEP y READ  CONTINUE  GO SUB  LIST IN [M] OVER ?5e[P] INVERSE  COPY g LOAD E OVER *X! OR  GO TO  IF  OPEN # RUN  CAT PISGN y[U][L] COPY }&[N]wNOT  COPY v RESTORE  CONTINUE  OVER  STEP  SAVE  GO TO [F]▖ LLIST  IF .[F] CLS [U] OUT  LET ▜C INK qx$BIN  BORDER CODE /m RESTORE 7<U IF  STOP  PRINT  RETURN  PAUSE QbCODE  RUN [H]5IN ATN z^J©# RETURN  OUT /^ CLS X INVERSE  LINE  PRINT ▚ COPY  AND o^ RETURN 8g BEEP  DATA  COPY z|j8▚SQR PEEK ABS NOT D[I] LOAD A OPEN #; RETURN  PLOT  SQR }▝ CAT ATTR  MERGE STR$ ka FLASH  COPY  PAPER PEEK > NEXT  REM C OUT  OPEN #9BIN ▚/ RETURN © LLIST 7[U] DIM ?ABS  THEN  COPY  CLEAR  LPRINT  LET  INVERSE COS  NEXT |-ACS ▙ATTR n`=y[P]X LET O COPY  CLEAR  IF  GO TO [A] PRINT  POKE [N][G]w0+ VERIFY ▙ PAUSE R ERASE + FLASH [N] GO TO  DIM  INVERSE  CAT  OUT oj= CLEAR  BEEP  CIRCLE ATTR  LET ATN  MERGE ▞[J] CLS  LPRINT [G]H FLASH E LIST [O] BEEP oACS  LINE ATN  IF W FOR [T]{ NEXT ?▙ OUT STR$ ▜P[L][H]USR MCOS TAB [E]67GW* LIST  DIM ;q▜o REM  POKE  SAVE 5 THEN  NEXT q RUN STR$ j▟INKEY$<u DIM BIN  TO pC[T]f▟ VERIFY  BRIGHT  BEEP  CAT  INPUT _[U]IN ▜▚r LOAD rn OUT [P]ATN i}_]+a COPY  POKE CHR$ Fo LIST  CLS  VERIFY POINT  PRINT } PAUSE b' LOAD ZRIN  REM =SCREEN$  CLS  RUN V LLIST  LINE ▖g[O]POINT >=w}r IF ▚LN |TAN  BEEP w[B]F$yAT 4 LET [O] LPRINT  DATA PEEK ▙ STEP [H] COPY  AND ▛ 5 REM p RANDOMIZE  RETURN  OVER  MOVE tQX CLS g^TAB {6[P] OVER ▙Cr▟  INPUT  STEP  OVER  LPRINT  SAVE  PLOT  NI▟r[R]ABS  DATA  BORDER : RANDOMIZE <> LET IN  GO SUB d^' MOVE } LLIST  CLS  INVERSE ATTR X LOAD 9( LIST -[H] INK  INPUT ESGN  SAVE USR  POKE COS  BEEP [O] LPRINT !F[A] READ  CLS  CLEAR ▙ DEF FN vCHR$  SAVE  COPY ASN  COPY W LINE  LET PIO MOVE  IF r RETURN ▜+!LN  INPUT *PEEK [R] NEXT n DRAW [P] NEW ▘y!# RUN  RANDOMIZE  NEXT  VERIFY  REM  CLS  COPY  ERASE [L] DATA <=n INK NOT rBIN ▚i LPRINT  RETURN  DATA  FLASH  NEXT X THEN  STEP C LIST  FOR  REM LN * DIM [A] BRIGHT SIN VAL$  NEXT y©} CLEAR ▛LN CHR$ BIN ATN o©[T]q-[G]"▖[K]<= PRINT W DATA COS  AND  POKE  SAVE  SAVE M NEXT NOT x▙[J] BRIGHT  CLS  STOP 1 TO CHR$ & OUT s NEXT  PRINT  BEEP  OR SGN  BRIGHT Z DRAW  LIST  MOVE  SAVE  REM  DIM PI NEW  BRIGHT  OUT [L] CLEAR jw[M]▜F<a}_"]U[G]![K]C RANDOMIZE [J][P] CONTINUE  CLEAR ▗/{; RETURN POINT ATTR  FLASH  STEP [N]▘7 OVER D LPRINT  RETURN SGN :FL=VAL$  NEXT SQR CODE  OUT # NEXT 7{ LOAD RND▟ DIM ATTR  FLASH ATN ASN  PLOT  INT k NEXT [C]? RUN U OR ©_x[▗ LLIST  THEN o CAT  COPY kNOT USR f OVER M}F RETURN 0` NEW <> DRAW lPIJ[D]?o# CLS [P]C INPUT SGN ©nO OVER  LLIST ?~IN  RUN  LPRINT SQR 8H CAT 3 MOVE [U OUT [N] INVERSE [K]PI BORDER [P] LET  CLEAR [I]<= IF ▖ COPY BVAL$  OUT  COPY  LLIST  CLOSE #[K]RNDPEEK ▗5 DRAW  DEF FN a2m LOAD  MERGE  INPUT  COPY  LLIST ]SGN  LIST  PRINT j[ RUN bNOT HW COPY B'n THEN  POKE -# RESTORE y RANDOMIZE  PLOT  [F] LPRINT  BORDER <= DRAW  PAUSE  VERIFY INKEY$TAB  COPY ▞yVAL X OUT  RETURN  GO TO  DRAW .▗XW;.PEEK ▞ PRINT  REM [C]v SAVE N/ RUN  GO TO 8ACS [L] REM ABS  CLS wBIN  LPRINT =o RESTORE rZCHR$ ; STOP ▜?SQR ABS PIIN SQR  POKE  SAVE ZINKEY$IN 0H RETURN D3 COPY  GO SUB !USR  REM  LLIST  RUN IN LN  MERGE INT STR$ { COPY [O] INK yk[G] BORDER  PLOT   ERASE ▟ OR ▚[A] LIST ! DRAW  BRIGHT  RESTORE f[U][M]7 ERASE  IF ▟ OUT @-SGN  ERASE  COPY  RETURN |LEN <=o RETURN  OR {▗ DRAW  BORDER <> GO SUB eCOS  OUT  PAUSE  CLOSE #,LEN ©z▝BIN ^[K]Gj DRAW FSQR  NEXT  LOAD 7q DATA bV▛ATTR g LIST o STEP  GO TO [R];C<=RABS  READ  MERGE 2 OVER / DATA b LIST +EXP : CLEAR  CONTINUE  MOVE  NEXT  OVER v READ ACS 1IN VAL$  SAVE SGN  CLEAR USR [P] RETURN I LOAD VVAL > LLIST [P] CLEAR L_ CLS $ DATA  BORDER  BEEP  PLOT  [O]@AT  COPY u-[R] GO SUB  CLOSE #ABS  READ  PAUSE [M] RESTORE O FOR EXP ] NEXT pxLN 0{2 LET  CLS IN  RESTORE  DIM  GO TO  GO SUB  LOAD ][D] LINE  PAUSE RNDABS e LIST ▛ COPY SGN  OPEN #VAL  BEEP USR  CLEAR g INVERSE  AND ▛ DEF FN ▙ NEXT  BRIGHT v DRAW  THEN 6^SQR  RETURN ?"<VAL  CLEAR  LLIST A!INT SGN ▜[H] BEEP  GO TO [O]PEEK  DATA }j-▟) INPUT  CLOSE # PAUSE AT  THEN [N] ERASE  GO TO  INPUT  GO SUB Is▜AT ] DIM [Q][P][O] OPEN #w[I]/ REM  FORMAT  COPY iBIN Flf RUN INT ^5B_;ACS  COPY 7z OPEN # LIST  DEF FN ? CIRCLE -T OVER  COPY /ATTR ABS 3 IF  LPRINT SGN  VERIFY k LINE  CLEAR 3T▖ NEW x| COPY K/ TO : GO SUB ATTR  INK  DATA nAT IN ASN [J] RETURN ~g`INT  POKE [C]qABS SQR j/NX[H] DATA +#[C]ABS #V/ OUT  CLEAR <5 LIST  CLS  INPUT @TAN [F] BORDER  CLOSE #M RANDOMIZE COS  NEXT ECODE j CLOSE #- CLEAR ['STR$  STEP ▞ OPEN #EXP  DATA </6 ERASE PEEK >=BIN c NEXT <>[M]} PRINT  LOAD BIN ABS SIN  COPY w INPUT  RESTORE  CLEAR jlOX DRAW 1 LPRINT  VERIFY uoBIN >'74 RUN {R OR U▗ INVERSE  THEN  STOP  GO SUB v CLS  CAT  INPUT  LINE N BRIGHT  CIRCLE  NEW +ATTR  LPRINT 2~ CLEAR }O REM  PAUSE =RND LIST [R] RETURN EABS H THEN  PLOT  ©mPI OUT INT }nSGN  PRINT sABS [N][A][D]O DATA  STEP  CAT  PAUSE ▟LEN  PAUSE [U]c RUN } DATA 0SQR ▝1%/+9} LINE  DRAW ▟[B] STEP  GO SUB $ DATA ^CODE  MERGE }> OR E THEN <= VERIFY ATTR  MOVE  BEEP )© PRINT  LOAD  FOR | LIST bC<>VAL  ERASE  INVERSE LEN VAL$  OVER POINT  DATA USR &N NEXT  STEP C GO TO A>/© LPRINT PEEK ▞ THEN  CLS  LLIST ~a© OPEN # LOAD z$_ASN =COS  DIM ^ RETURN {RATN H FOR  CLS CODE 9PEEK [M]©`YS INVERSE O' OR >= COPY ys RESTORE  DATA  RANDOMIZE  STEP  FLASH EXP RND[J][ PAUSE 9^ OUT [C]kz. RESTORE n DIM ~ OVER  OR  CONTINUE {^ DATA  IF c COPY *sV RETURN SIN [T]g GO TO - INVERSE  IF   LLIST SGN [T][M]<>▙USR F POKE ▞IN  STOP [A] DEF FN c2[U] READ [S]r MERGE `3-bCHR$ ^ INK   RETURN ▚v OVER  RESTORE h<=v<m LET  RANDOMIZE  CLEAR  OVER CODE  AND TSGN z DRAW SIN  INPUT  STOP ?&▚ CAT  NEW  PAUSE | NEXT  TO IN 5PIVAL TAN  PAUSE [J]©[I]zu LIST EXP [H]RND INVERSE NOT 7▖ MERGE  NEW !yl BRIGHT @b INVERSE  INK  RESTORE [G] LET  CLOSE #} CAT  DRAW y POKE  CLEAR ▟-ABS  PRINT PEEK V MERGE  OR  RANDOMIZE TAB  DRAW / BORDER  OUT  OVER  CLS , PAPER © CLEAR <>[J] VERIFY  COPY [I] LIST  CLS  RETURN < OVER  LLIST [J]5 FLASH  RUN [E]n CAT g NEXT  LIST  RANDOMIZE ATN k PLOT  <R AND >=&=t OUT ▗ IF `}SQR  LET  CAT ?oCOS  RETURN KCODE  CLS [T]SQR  GO TO C REM  RANDOMIZE  CAT  PRINT CODE ` BEEP [G]~; RETURN  GO SUB f<ABS [K] GO TO  NEW  RETURN [L]oATTR /DLN ▛SQR c LET O INVERSE  INPUT ATN FN ~S<=©8 CLS [ OUT  COPY ' INVERSE ▟POINT  LET ]BIN EH# GO SUB M# NEW ),[L]nao▜IN  OR }AT  RANDOMIZE POINT  CLS ATN X INPUT  IF m BORDER 1IN SGN A<4 RUN ACS r INK  BORDER ▝ DIM  LOAD  LPRINT % SCREEN$ USR SIN 1! THEN  RUN  AND x POKE  RETURN  PAUSE < IF  CAT CHR$ ;SGN INT  FOR  INPUT %▞▛ DEF FN  OVER  RANDOMIZE y BRIGHT u[L]ATN TAB U▜ STOP om LOAD W5[K]PI BEEP  PRINT  STOP  PAUSE  OVER { STOP  COPY INKEY$ RETURN [R]SGN ©} IF  OUT [H][G] RUN  OPEN #/© OVER [I] OR yw PRINT + STEP INKEY$ THEN [bY▜ NEW n[N]SQR [M]PEEK STR$ CE7<> SAVE y+_< MOVE [O]LN  MERGE wp}▜ CONTINUE  DIM y DRAW q▝ OUT  RANDOMIZE @ INVERSE  SAVE  PLOT   GO SUB VAL  READ SQR  CLOSE #CHR$  LOAD  IF SGN 6ACS >=STR$  RUN ▟'~LxPIABS >bNOT  RUN  CLOSE #z COPY [C] MOVE ASN  FOR [N]SGN  PLOT   LLIST  PAUSE  IF f OUT  RUN t TO [I]CODE  GO SUB  MOVE IN G RETURN  OPEN # CIRCLE _ REM ^k RUN  LLIST  OUT 3IN / CLEAR <=0SGN [U]ATN SCREEN$  CAT i DRAW 7[L]6[Q];cPOINT E READ  PAUSE 2w PRINT LEN BIN ; CLEAR u"m NEXT  PAUSE  SAVE  CAT  FLASH  MOVE  IF ▟ RETURN o COPY ▛ OVER ATN SIN  PAUSE ~?IN SQR  RANDOMIZE / POKE  DIM [I]▜.z OVER K`3 COPY u RETURN CHR$ USR PEEK  FOR [C] CLOSE # CLOSE # LOAD M/30g DATA [D]YEXP ▚ REM  FOR ABS  DATA RND[E]E INVERSE <> GO TO r OUT 'o GO SUB  FORMAT /[O]R GO TO v{PEEK  BEEP  COPY  AND mX~ CLS  INPUT {` SAVE RND_ SAVE  BORDER ASN  LLIST )X_ef1 NEXT CHR$ CODE  VERIFY 2X nPIo IF [L][N]PEEK  RESTORE F PLOT  Q^[E] NEW  DIM k OVER # DATA [R] LOAD  INVERSE  ERASE iW OUT ~ RUN jBIN 1y1r DRAW ABS EXP  LPRINT ▜ ERASE 9 LET CnJ GO SUB IN }VAL  GO TO  FOR AT _/-<VAL ") PAUSE [H] INPUT B1 STEP  INVERSE [ RUN  IF )[L]LEN ▖v$ BORDER 11 NEXT }f LOAD ▝ FORMAT  BEEP g<>t OVER SQR zc$ BEEP  OPEN #[T] NEW o8 LET  LIST ▟ AND  REM  FOR  NEW _BIN ACS  VERIFY PEEK  LOAD  NEXT  REM [R] SAVE SCREEN$ L!h OUT w* LOAD 3 DATA  GO SUB ATN  TO G TO  DRAW  BORDER [N] RESTORE q MOVE EXP SQR SIN Z5 RUN  INPUT SQR rw OUT  FLASH NOT {OINT |IN  FORMAT ABS [L]EXP ] GO TO ccPOINT $o&CODE "W THEN _gD[M] SAVE VAL$ B CLOSE # DRAW  RESTORE . LOAD SGN  NEW  STOP SQR _ LIST  DATA 4 CLEAR  STEP [P]@c FLASH + RESTORE  RANDOMIZE  REM ▚ PLOT   BEEP o<> BORDER  CONTINUE STR$  CLEAR  INVERSE SGN 1 NEXT RND▛ABS XSTR$ 9 OR S[U]O] OUT  PRINT  PLOT  ASN m PAUSE H DIM  LPRINT  READ  INVERSE  LIST :O POKE +ACS ATN EXP  MERGE xCOS  DIM /IN  BRIGHT }IN  FLASH INT  SAVE CODE  CAT  DRAW =yTAN  CLEAR BIN INT  PAPER ? OR j NEXT ▘ LET [S]7 GO SUB w LLIST  DEF FN ▛`ySATN [B];x6SGN  READ  RESTORE [T]SQR  LLIST ABS X LET  REM  OR  CLS  PLOT   FOR  NEXT  DRAW !PEEK  RUN AT Dl THEN  CLEAR  PLOT   FLASH }^` CLS uv NEXT  BRIGHT  DIM *ASN [L]mLEN b%?F NEXT Qw GO SUB n CLEAR INKEY$ OUT  OVER p MOVE [T] FOR o INPUT IN PEEK  DRAW  RETURN  RESTORE } RANDOMIZE ▝▗©l LOAD [▚ RETURN [J]>▘[T]BIN 2 FLASH LN fv▜B_ CLS  RETURN EHrc INPUT SGN  RUN <=▚7R NEW VAL '0 CLS }▝ GO SUB  PAUSE  BEEP [R] CLEAR  CIRCLE  VERIFY [▝ COPY ▗A STOP LN  LLIST '[K]3g[D]▛<= OUT Cu! LPRINT /TAN  DRAW 3CODE  CLEAR ATTR SQR * OUT Woe`VAL$ X_[M]zX NEXT OATTR [I] REM  BORDER v| DRAW  READ  RETURN v/+ IF POINT ASN {! MERGE  BORDER  NEW ▝ABS w$;[M]J[H]Y DRAW  REM [B] DATA VAL V RETURN  LOAD  PRINT 9 COPY RND LIST  DRAW CODE  COPY VAL f DEF FN ~[F]▜BIN R DEF FN +uCOS  CONTINUE >+?Rdu▚[F][U]COS STR$  DEF FN  FLASH  CONTINUE  POKE !+5?IR[dmu}▚▟[F][N][U]AT 
  46010 DEF FN  MERGE  FLASH  CIRCLE <= LLIST  CONTINUE  INPUT  POKE  IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U] CLS FN AT CODE COS ACS INT ABS STR$ BIN >= THEN  DEF FN  MOVE  MERGE  CIRCLE  FLASH  OVER  LLIST  RESTORE  CONTINUE  FOR  INPUT  LET  POKE  RUN  IF  CLEAR !#& GO TO c(+.0358:=?ADFIKMPRTWY[]`bdfhjmoqsuwy{}©▝▗▚▖▟[B][D][F][H][J][L][N][P][R][S][U]INKEY$FN SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN  AND >=<> THEN  STEP  DEF FN  FORMAT  MOVE [P]i OPEN # MERGE  VERIFY  CIRCLE  PAPER  FLASH  INVERSE  OVER  LPRINT  LLIST  READ  RESTORE  NEW  CONTINUE  DIM  FOR  GO TO  INPUT  LOAD  LET  PAUSE  POKE  PRINT  RUN  SAVE  IF  CLS  CLEAR  RETURN  LIST  LOAD ? OUT o CLS  CLEAR  RUN  GO TO VAL  OUT } COPY SSCREEN$ 8<= READ  READ © DRAW   SAVE  READ !"#$%&'(? RETURN )*+,-. LET /012345? RETURN 6789:;< COPY  LET =>?@ABCDEF COPY GHIJKLMNOP▖QcGRSTUVWXYZ[/]^~ RANDOMIZE _`abcdefghijklmnopqrstuvwxyz{|}~©▝▘▗▜▖▞▛▙[A][B][C] RESTORE _[G][H][I][J][K][L][M][H][H][Q][T][U]RNDPOINT  RETURN [T]SCREEN$ ATTR TAN ACS ATN LN EXP  CONTINUE PEEK IN USR CHR$ NOT BIN  OR  COPY [T] LINE  CAT  FORMAT  ERASE  OPEN # CLOSE # VERIFY  BEEP  CIRCLE  INK  PAPER TAN  FLASH  BRIGHT  STOP  DATA PI} REM  GO TO  GO SUB  INPUT  LIST  PLOT   SAVE  PLOT   RANDOMIZE  IF  DRAW  CLEAR  COPY `< COPY  CLEAR  NEXT [[O]|▘g3 INPUT VAL [C][Q] TO  LIST [E] TO  IF  PRINT  AND  BRIGHT  SAVE  PRINT  NEW ~AT 3FN VHIUSR USR u SAVE ▚[P]?STR$ USR AT  REM C LINE USR  COPY [M] READ [M] RESTORE  READ g COPY (0 RETURN  LIST 3 CLEAR PU3E RETURN *SPOINT " THEN ; DRAW L REM  INVERSE  DATA [T]#%COS ~INKEY$ OR  READ  REM [P]! NEXT ▘[E] SAVE L[A] IF  INPUT  DRAW  OPEN # POKE  NEW  PLOT  ` BORDER [H]_ CLEAR © LET [P]~} GO TO  SAVE |{z RETURN ©yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"?F IF  RUN  POKE  LIST  GO SUB  REM  BORDER  DATA  LLIST  OVER  FLASH  CIRCLE  MERGE  ERASE  CAT  STEP  LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$[U][S][Q][O][M][K][I][G][F][D][B] COPY [A]▟▛▖▜▚ GO TO COS ▗▘CODE  CLS ▝<=SCREEN$ t▙▗ MOVE  GO SUB ▜▖TAN hr CLS [I][K][M][O][Q]Nb)ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE  STEP  CAT  ERASE  INPUT <=USR  DATA  BORDER  REM  GO SUB  LIST  FLASH <=USR AT STR$ "%LEN ~CHR$ 1369< LOAD  COPY NOT GILNQSUXZ/^ VERIFY 1NOT km STEP m[K][L] BRIGHT f[M]J<=[L]X COPY VAL PEEK  THEN  RETURN x RETURN ▘ LIST STR$  CAT STR$ W, LPRINT g LIST COS X LPRINT gINKEY$ OUT [M]? CLEAR STR$  INK 0 OR  CLOSE # LPRINT  TO [I]▘ FORMAT pf3INKEY$ [M]>=S DEF FN BIN ) CAT USR LSTR$ SGN 83INKEY$ [M]IN S DEF FN SGN )g▚SGN 3NOT SGN ▘[J]aSGN STR$  TO 0SGN ▘ LPRINT [K]SGN   FORMAT INKEY$ BRIGHT S FORMAT ▗)BIN CHR$ LN aAT 8USR  COPY CeUSR < PLOT  USR HR FORMAT QKKAAAAH DRAW v*/ GO SUB [ATN BlR0 NEXT > STEP V`! CIRCLE  OUT ( COPY 6?v ERASE  GO SUB VAL v COPY  COPY ▜ OPEN # RETURN ! FORMAT aR▛@▞ BORDER CODE ▚▙ IF tz,SQR  FORMAT USR .ABS * THEN [ MERGE 3 CLS  FLASH  DRAW <> OR  CLEAR ©2PIySTR$ ACS SCREEN$  NEXT <=:] NEW  PLOT  , STOP b CLEAR * POKE "} TO <>u PLOT   STEP #a:[▝[K]]z THEN ?ABS  INK VAL {<AT > FORMAT g[L]TAN }©Ax NEW ( RESTORE  NEXT sNOT VAL$ RND}INT " OVER zx2[K] READ [J] INK  AND  TO  TO To,>© INVERSE TAB  RESTORE  DEF FN INT  OUT |IN  THEN ` SQR ©([J]d FLASH IN 6 FORMAT / OPEN # MERGE  DEF FN kk MOVE  THEN c LINE  DEF FN Vf[J] PEEK  SAVE tnINT IN  GO SUB S7PIWg:I8g7 PLOT  [U]a|9FN  FOR NOT ▘POINT W/LjPOINT CODE s LIST vn▙ MERGE  OVER  PAPER 3[G] MOVE [J]4]<> CLEAR 5ASN  DEF FN I[F]▖< RETURN  [H]2la>= PRINT  RESTORE : LLIST [H][H][I]*▚#?" NEXT w▙SIN USR : COPY * LLIST  LET  NEXT <> OPEN #7 ERASE ! OUT `4=(COS  STOP <>©_D DEF FN ?[L][H]S* RESTORE } NEXT NOT /= COPY  GO SUB a NEXT [M]IN i%  PRINT IN =>= DEF FN INT  RETURN CODE SCREEN$  CONTINUE o3/ MERGE Uw|W COPY  FORMAT (sATTR  RANDOMIZE  DEF FN  CLOSE #©[Q]TAB <> OVER _/^ VERIFY  AND [J]/ BEEP SCREEN$ _ REM  THEN  PLOT  FN [G]3 OUT TAN PEEK TAB <=:[T] COPY ABS | IF  OUT CODE   INVERSE +/ CAT  PLOT  ? FOR [K]SGN FN * RETURN >= CLOSE # CLEAR [Q]CODE [E]% OUT _©CODE IN J LET IN  ERASE INT  CONTINUE /zCpIN ABS s FOR  TO  IF 0+ LPRINT [L]f DEF FN n|[Q] VERIFY #VAL } ; FOR  FORMAT  COPY  DATA 0~ASN ▖Y7 OR  COPY [U]U-,} MERGE  CAT  RESTORE ATTR  MOVE >=NOT  DEF FN  CLEAR @ CLOSE # GO TO IN ABS  PLOT  PyT CLEAR  LINE  READ © MERGE y NEXT  OVER ATN )& GO SUB [A] CLEAR  NEXT u PLOT  _▘Z OVER TB[H][H] VERIFY  FLASH  TO  REM EVAL  RUN @ POKE CODE SGN PEEK 9 CLEAR [T]f FORMAT ATTR O PRINT SCREEN$ 7_ DRAW  MERGE Y< NEXT  PRINT xVAL$ SiY POKE  LOAD  BRIGHT IN ?!▝ COPY GoW LPRINT 9~C!ATN [T] DIM  LLIST !ACS nW SAVE  RETURN  CLEAR *x IF [J]ABS ,[T]  OVER K PAUSE  RESTORE m OUT  DRAW  LLIST IN  IF ▛j OVER CODE k DRAW j INVERSE [S][Q]VAL$  LLIST  ACS FN  RANDOMIZE WA[C]}[L]0IN SCREEN$  CONTINUE Jj LPRINT C RETURN  MERGE [N] LINE = REM 0*L READ o SAVE ACHR$ IN "  RETURN SGN  COPY ASN [Q]▜W © LLIST +*▘? FORMAT [F]ATTR  CAT  OUT PEEK 9|MSTR$ IN  OVER STR$ ?>& OVER +BIN Z BORDER  THEN  DEF FN MA AND @ IF @ PRINT  CAT zHd_ GO TO  LIST & FORMAT H> AND O COPY T`uASN P▛[U]PEEK  POKE VAL$ IN I</SGN :[Q] RUN !ATN ~[S]NOT VAL$ ]▘BW CLS aD▟ INPUT C RETURN NOT  OUT SGN Wx`  THEN qZ OVER TAB [G] OUT  VERIFY LN IN IN  RETURN  LET ~ RNDp>/`INKEY$8FN D`▟x▞ IF ATTR [F] DEF FN E CIRCLE o OUT  READ DACS  LPRINT  CAT .I VERIFY  MERGE  SAVE E▞SGN [B]W REM  &v/. LET o RUN , LIST  STOP  MOVE >xO COPY  NEW !IN  MOVE LN K IF qPI BEEP  OVER  OVER <=y  CLEAR  LPRINT  POKE  FLASH  COPY  CLEAR h[G] OVER @ PRINT UWl LET SIN  DEF FN K MOVE ]8ATN  INVERSE  STOP @ OUT  PRINT  GO SUB INKEY$EXP  NEW  MERGE _PTAN 0y CIRCLE  FORMAT  LPRINT IN  REM _BIN  INK TAN  DATA  NEXT INT  LINE pf IF  PLOT  © PRINT N RETURN oSQR  ▛ GO SUB /©p OVER  STOP  OPEN #TAB PIoCODE  RUN  OVER  CLS 6 RUN  DEF FN O?▟ OUT t K POKE  OVER l[H] OUT  MERGE [F] COPY  LOAD v DIM  COPY  &ATTR [J]*▚USR [O] [P]1 LINE ▞pk FLASH  READ  AND 1/ STEP >ATTR [E]INT ASN RND OPEN #IN  OPEN # REM v ERASE L DRAW /[P]VATTR  NEXT  OR 0 CHR$ yG<DIN POINT " LLIST ?!/O OUT  BRIGHT *CODE  LOAD ▟ CLOSE #? [D]PI OVER  z FLASH  RESTORE < ?o NEXT SQR  COPY CHR$ W OVER  POKE   BEEP ] GO SUB zABS  RESTORE V;  PRINT  SAVE CODE TAB ] AND v MERGE sW POKE [K]▜ g~  ERASE ACS 3 TO  OVER  PRINT f BEEP So-COS IN  CLEAR  ERASE TAN [C]9o LET Lh LPRINT  IF [O]*Zg SAVE [Q]6< NEW = IF [K]:8[L]%▟VAL USR a RETURN +N BEEP ACS ACS  INPUT zACS UY[F]IN LN SCREEN$ ▖ATTR  RETURN  oSCREEN$ gPEEK R OUT Uze MERGE  IF  FORMAT  LIST ▖CODE  DRAW [N] INPUT  RANDOMIZE  IF ATTR PIUSR  BORDER " OVER  LIST COS VAL$ _|f8IN [S] FLASH [U] RETURN IASN ?f OUT NCUSR USR ~[U]INT KCODE [K] CONTINUE  BRIGHT  VERIFY iCODE [I] PAPER a LIST ▛rJPOINT 1 DIM ▖_ DIM POINT  LOAD [P] ERASE x[C]8 PAUSE DKg STEP <=] LPRINT u OR qOB PRINT  PLOT   SAVE  FORMAT  LPRINT  PLOT   RESTORE -PEEK ^[N][R]> STOP ABS  PAPER  RETURN <=[E]_ RANDOMIZE  RUN [G]! AND  IF :SGN  RESTORE  DRAW ]RND} PRINT @USR AT  REM  CLS  DEF FN  DATA ? SAVE pE5POINT 7[M]=pTAN f4? IF @[C] SAVE Q LLIST ] GO SUB  POKE  OUT ;ACS  CLOSE # GO TO  PLOT   LIST R RANDOMIZE  LOAD  RUN CODE +p< NEXT  RETURN TAB  OVER FN T3ASN COS M [C] OUT  TO ySCREEN$  PAUSE +[H]x<= STEP TSGN Wk▜SQR & OPEN #o[A]CODE G BRIGHT ACS B USTR$  THEN +CHR$ =EXP  CONTINUE TAB ▚STR$ INKEY$j LIST [P]B.COS F[M]" PLOT  2 IF ▘ MOVE {W"W!o"Zt SAVE SQR [H]▖ IF [Q] LPRINT +INT  OPEN #©fCOS BIN [S]"v-[F][D] LIST  CLEAR fdv  REM [Q]P2BABS  RESTORE `2SGN  DRAW Z▘U CONTINUE j^ RANDOMIZE IN  PAUSE rSGN {oINT COS /m[T]▗76.ATN SQR [C]& OUT [M]INT ; GO SUB IN © NEW (ASN WuZURNDPEEK * CLEAR P DEF FN [W@[G CLEAR Z/ LLIST G▗,m POKE [E] FLASH BIN 5U RETURN z READ ySKB RANDOMIZE  DRAW  OUT  INK  CLOSE #/VAL$  LINE jSTR$ ASN  PLOT  m MERGE +^AT  POKE [K] PAUSE l PAPER a+i LIST _▞w LIST /< ERASE VAL$  LIST  PLOT  [Q]> READ [T],IN - OR  CLOSE # DATA  CLS TAB o REM [C][J])7PB VAL |l INPUT  COPY [H]NOT  MOVE k© PLOT   DRAW PEEK  OR  GO SUB SGN FN ▝[M]SGN vLVAL$  THEN TAN b PLOT  /Y MERGE *▛RATN p RANDOMIZE ▜oLUSR W OPEN #I[T]TAB [G] OUT  CLEAR CODE  POKE i▘[H]! CONTINUE  GO TO ▝ RESTORE e[J]IN PEEK [K] GO SUB SQR  INVERSE 'OPOINT [P]FN  INPUT  CONTINUE  PLOT  zf}ATN CHR$ STR$ ? LPRINT ▖Lz~& LOAD  CLS hW2TJ NEXT VAL$ AT > STOP  BRIGHT I SAVE IN />▖5 REM USR sCHR$ %Z IF FN  TO .!ABS EXP 1 POKE [U]5 STEP [B] INPUT  STEP [U][S]ATN  BORDER  GO SUB f#'ImSTR$ IN z PRINT ! MOVE  DRAW MnSTR$  OUT  BEEP  CAT ;CODE © CLOSE #m[H][R]z READ FSGN  LET =fLN  DATA [A][H]©L▙ BEEP W FLASH IN $ OPEN # FORMAT TVXCODE ]_ VERIFY ▛z{ GO TO  CONTINUE [M]EXP  TO POINT p BEEP 3SQR _pm▘] STOP USR RND LPRINT PI!STR$ y[L] DIM 9▙kCODE h[O]L#INT [NOT  OR RND]C OVER cJ4T|▝IN w INK  NEXT  LLIST ©TAB vT[E]wkn CLOSE #!USR <COS  LPRINT  PLOT  ATTR  VERIFY +?ASN ▚ PAUSE  NEXT  FORMAT CODE PEEK { LIST VAL$  STEP  GO SUB W_ VERIFY ▜t~[I]▟ REM .SCREEN$ C LLIST ▘FN  READ E_W▛>=Y' MOVE  OR g$;INKEY$/[R]/BIN + GO SUB IN l!{}[S]COS  NEXT  OVER ATN ▘w LPRINT ({ RESTORE  READ  STOP ▛) AND !o DRAW  BEEP PEEK  RESTORE ACS ATN TAN 4*EXP CHR$ fD|SCREEN$ SQR  FOR [U]@xxPI 2SQR  BORDER [U] LLIST [B]k PAUSE ZZUSR COS  OR  NEXT  COS  OPEN # DIM [O]^USR @ OR ▟ DATA < FLASH WTAB  DIM "IN ! PAPER a IF / INPUT / STOP  POKE pM OUT ©<>w LET q[E]|QIN w LIST M▞ OPEN #utW CLOSE # MOVE V THEN  POKE  PAPER  SAVE [G]BP LOAD  PAUSE SQR ATN | DEF FN xc CLEAR SQR  LET RND ERASE [P REM  INPUT ▚n[O] STEP QL OVER  BORDER ▗▝[H] IF FN E COPY CODE D[O][R][D] PRINT DABS jxIN  OVER  SAVE -▝/m STOP  READ ][I] L CAT [M]^=[Q] MERGE ACS NOT [D]p,[ OR |{/STR$ [T] TO  FLASH jeIN  RESTORE Dr[D][P]* CLS INKEY$SIN  TO IN  NEW g▖▛ LIST ▝ DRAW oy`SQR { NEW W#[D]ATTR 6PIk~ RETURN @ABS j PLOT   PRINT 2H PRINT  CLS SQR  RANDOMIZE c-STR$  CLS Ty MOVE ? NEXT  FOR " PRINT  VERIFY  TO ATTR % INVERSE  MOVE ? MERGE rSTR$ PI^INT O OR  CLOSE #INT  LLIST FN  LLIST <_[M]4ABS 5 DIM ABS _1 NEXT  RESTORE  OVER < RETURN ATTR [Q] NEXT  LIST = CONTINUE  DIM [o BRIGHT  PRINT LN { LOAD INKEY$* REM  INPUT  AND [R] POKE #INKEY$U OVER EXP K OPEN #( PRINT  IF NOT SGN zv PRINT < CLOSE #[J] POKE s COPY FN COS  RANDOMIZE [S][M]2 OVER C CONTINUE k CIRCLE  VERIFY  CLOSE #~+ CAT yPI DATA VAL$ ABS  STEP mw IF y% LPRINT [J]USR  RETURN © INPUT m[E] PRINT  PAUSE  BEEP CODE  BEEP W1g[N]▞[Q] PRINT IN & LLIST sABS =_ COPY  FORMAT R PRINT INT  INVERSE _{O LLIST [@▝ACS  BORDER [U]k IF  OVER Z THEN SQR  CLOSE #f▛W[T]W~ RETURN  GO SUB ASN v/oSCREEN$ ▟▜[O][Q]STR$ ]$ PLOT  :s NEW  BRIGHT  DRAW hR[J]*BIN ▛<> RESTORE  MERGE 6[T]+ REM CODE  LET  THEN  DEF FN 8'AT  RESTORE ^pj MOVE ^ TO  OUT  ERASE INT I POKE v▜>=IACS A BORDER  BEEP  CIRCLE u[J]_] GO SUB  STEP SGN 8[J] OUT p OR COS  CLEAR 2% LPRINT ACS Q*IN VAL$ D> CAT PEEK "}FN  IF t OUT  LIST  CONTINUE ©PI CLS  INVERSE INT *PEEK R RANDOMIZE IN  RANDOMIZE P=[S]CHR$  INK lINKEY$_ PRINT PI IF  MOVE [N]} DRAW {s▞ INVERSE  LET c['g[Q]5}M BRIGHT 8 NEXT  OVER #^qn DRAW SQR [H].pW DEF FN  OR [g RUN @ NEW ABS  RESTORE  RETURN |▛[B]$ NEXT W8J BORDER <= MERGE ^ INVERSE *SfUSR A CLOSE #[H][F]COS  DEF FN _[Q]R<[M]( FOR  SAVE  AND  MERGE LN  CLEAR A FOR Z2/ DATA  LOAD .qIN  RESTORE / CIRCLE <>▟ OVER ▘ NEXT 3U IF  FORMAT  PRINT  FLASH E]o RUN /▟ FLASH [TAB [L] CLOSE # DIM ~ATN  CLS  CLEAR FK RUN _N_ PLOT  " DIM [~ MERGE W[R]EN[M]ATN [O]RNDjp LIST U*[M]/ DIM zFN  PLOT  <NOT  LPRINT  POKE * THEN  FOR + OVER /vSCREEN$ /INKEY$ RETURN [F]f LINE  LET FN BUSR  NOT O=PEEK  OUT "SQR [T] DIM  LET  FLASH BW DRAW ^| REM  GO SUB f PLOT   COPY  PLOT   INPUT kV[R] OUT  COPY /[F]7J[S]CODE S IF [O]ASN  NEW <PI▟ GO SUB [D] NEW BIN  FORMAT *8 DRAW  RETURN |k4FN  MERGE f LPRINT  MERGE  ERASE ^[N]4 LLIST ▙j[Q]#@u FORMAT PEEK INT [L]PEEK PEEK z4SIN .▛. CLS SCREEN$ mQW^FN  OPEN #<[U]e LIST  PLOT  Ck_tINT SQR INT  OPEN #SQR  DEF FN w CLS  PAUSE {[STR$  DRAW n..LN  NEXT  NEW O RUN ▝<>VAL$ 1WABS % IF v▝ CLOSE #R NEXT [G];6 LIST .CODE SIN f INK ATN  POKE  BRIGHT RND FLASH XLN t OPEN # REM [M]IN P>^CHR$ IN  FOR INT  NEXT  STEP ][L]:}▞Lw<K_D,[L] REM G FLASH  CLOSE # OUT  MERGE UEXP j}+J LET  DEF FN /3 DIM SCREEN$  PRINT C FOR  GO SUB S~NOT VAL PEEK < DATA E LPRINT c DIM  MERGE  DEF FN  MERGE [M] LOAD COS J`STR$  RUN  OVER ▗ATTR &[L]STR$ 5IN <=<VAL  FOR S READ SQR  PRINT !zSg BEEP  RETURN PEEK G SAVE LEN i[S] MERGE  VERIFY o PLOT  ABS [R] SAVE  LPRINT  FORMAT  MERGE  LPRINT  V LIST [I] CLEAR  COPY @ OUT ZcSCREEN$  POKE x PRINT ▞ RETURN  LLIST [K][K]CODE  CONTINUE RND6q MOVE  RUN INT  OVER [D] STEP >ipaq1[T]INT  OR [T][H]ATTR ▜W[M]▜SGN ▛ IF [R] NEXT  LIST  CIRCLE ~COS LEN  POKE ABS ;  RESTORE [K] PAUSE TAB [C]▜&ATTR  NEXT CTAB  STEP 6U INPUT !t MOVE o RUN veW[L]LEN PI▘ABS ][Q] PAUSE O GO SUB ;W PRINT G LPRINT gLEN vv BEEP V[K]ACS  RETURN  OUT  BEEP trNOT #. DATA  CLEAR / PAPER A© PRINT ]h COPY  LOAD  LINE #[K] SAVE =INT ATTR k LPRINT +ARND OUT >|u2 BEEP  PAPER [S]/ OR t SAVE  CONTINUE [F]|0 COPY S CLEAR ]Ut©wASN += PRINT RND STOP K)▙YASN  SQR  PRINT  GO SUB  POKE  STEP [C][H][H]C[T]! RANDOMIZE  REM Q<>yC OVER  LPRINT [O]7j GO SUB [L]dLEN xATTR  OUT RND_SIN USR  STOP  THEN QfSQR ~h~ INPUT gQV MERGE 7▜ CLOSE #ABS ATTR [C]i/  INVERSE  RESTORE y OUT  INVERSE +r AND  SAVE K CAT  z READ !z7@s PAUSE  RUN p# BRIGHT  ERASE SIN COS  CAT H DRAW  REM KAYw[P]gCQ_ CLS [F]ML PAPER @IN x OVER INT FN  RETURN  CLEAR G` ERASE JC OUT  BEEP ATTR  OUT [P][A]|& OVER  CONTINUE IN  OR  INVERSE x@#VAL  MERGE  SAVE hIN PEEK  FLASH OGDSCREEN$ CODE [T]SCREEN$ f BORDER  FOR `NOT {EXP  OUT LEN -tIN  OVER :L`/ OUT G[R]#UFN |©~L CLS  BORDER AATN [G]▟>L[O]VAL 8STR$ /D OUT  DATA  CLEAR ▝ CLEAR 8D[U] OUT  OVER  PAUSE  CAT Z[G]NOT ySTR$ /} OUT  PLOT  q! RANDOMIZE uNs LINE  OUT  MERGE  VERIFY  OUT q CLOSE #_ COPY yo-A"a SAVE  OR INKEY$INT ATN ' MOVE  READ [H]kA▘ LINE  FORMAT  MERGE CHR$  INK LSGN S REM 0[ DRAW  REM mU]f RETURN  REM  PAUSE  PAUSE C RESTORE  CLEAR D INPUT [I]_ REM _[P]g/ COPY [M] DRAW  CLS PEEK Z OUT TAB  IF  IF MW OUT  CLS  STOP [M] FOR ▝ LPRINT GUB.OBJ C` FORMAT hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.HR[Q]I5 READ  COPY > STEP Cr CLS v!]/6NOT CHR$ b COPY ,q3 FOR IN  GO SUB g▝▘ AND  CAT ▗> OUT _Ay NEXT  GO SUB  IF  AND FN  FOR EXP G▘▝[H]rBIN USR STR$  DATA  REM  CIRCLE  AND ` CLEAR KAUSR  REM CODE  THEN  REM WRNDUSR  COPY  RESTORE ▝VAL .STR$ N CLEAR NOT ▛BIN  LOAD  THEN ?#[P]USR STR$  MERGE  LOAD Z{@ IF UzASN STR$ USR {<=STR$ ▚ IF  REM RNDUSR STR$ USR 8 LET  BRIGHT A CIRCLE  REM ©oSTR$ r5<=CHR$ USR c DIM [H]IN ▝ MERGE ▛PEEK [N] FORMAT "/© CIRCLE ▙? DIM <=/▜▝▝▞ STOP ASN USR [R]y PRINT ? THEN GCODE VSTR$ USR <RND THEN _@STR$ ^ RETURN USR [K]B3)▝STR$ USR CODE [G]▝CHR$  STOP  OR USR IN  COPY A MERGE  THEN IN TATTR ▝ LINE [J]STR$ USR [S] REM _ THEN USR ABS VAL$ ▗a POKE USR ▙wl[H] REM USR B/. THEN pEXP IN ACS >▗ COPY  K4[A]{POINT F LINE USR ASN xSTR$ $INT |▘USR STR$ [T]>▜ THEN USR ` BRIGHT [H] READ : DEF FN  LOAD  THEN  PAUSE  OR  TO _ CLEAR USR Z. CIRCLE PSGN >=▞[C] FOR  VERIFY ▖[H] LIST ▚ FOR ▛© LOAD [A] NEXT  REM STR$ ©R[G] AND yASN STR$  INPUT |)~STR$ CODE ~▚NOT  PAUSE WBSTR$ Q MERGE J FLASH KCHR$ _ GO SUB ATN [H]k▖ STEP  RUN  REM F.^C BEEP  PAPER  NEW SCREEN$  OR ▞ATTR ©[K]q;J OR CODE STR$ USR PEEK  IF +/H[C]F INPUT >=Ug▛8 OPEN #USR ABS ziATTR  BEEP ▜E▜T▖ATTR ASN X OR POINT V▘ READ ?BIN [G]▗A LIST  FOR  NEXT 5v THEN ▖INKEY$~USR E OVER n RETURN [T]K& AND LASN D▜CW3IN  NEW ▛USR ~[N]r LLIST CODE USR J^ BORDER >=ZTAB STR$ -ATTR ▗ NEXT O▘%BSIN Ax LIST &VAL <>[U]STR$ I[I]x AND BIN E COPY  FOR  LIST  PAUSE  OR STR$ VAL$  NEXT  DEF FN dLUSR  LINE TAB RNDCHR$ STR$ ▟x)STR$ C[H]?m©| BRIGHT K=▜BIN x4 OR ATN RNDHBIN  READ .<= LPRINT  RESTORE IN {r PRINT USR ▛[ CLEAR ▝EXP  CLOSE #▟▗WKEBIN  GO SUB  THEN RABS <BIN x COPY 9 INPUT  THEN RBUSR yfCHR$ ▙p&ABS ss_ DRAW [H]©[L]*▜ THEN IN IN  DIM >=USR  NEXT [P]STR$ ▙ CLS  DRAW GCUSR 0K[M]v FLASH w LET IN /ABS INT xB>=CODE  NEXT  THEN ACS VSTR$ PEEK ▟j▚ LOAD PEEK " INVERSE  LLIST  OPEN #~LN xABS G IF VK▚[I]IN CODE USR CHR$ K&}:|? OVER 6q=z^ PLOT   PRINT Fg:USR  PRINT  STOP STR$ w~LN INT / CLS IN  CLS t©[.Cu BEEP  INK A) COPY USR ^JIN USR PEEK  FOR TAB USR 6SGN  GO TO © NEXT  FOR EXP TAB v[J] STOP  OUT USR USR Z:© LOAD RNDCHR$ USR  PRINT ^T RANDOMIZE } BRIGHT : INVERSE  MOVE ASN ATTR ACS A RESTORE CODE SGN FN  SAVE USR G LOAD  COPY  RUN 4ACS ▛USR N PRINT C`[C]@jAUSR CHR$  LPRINT [H]gIN _ CLEAR IN  CONTINUE tASN ep[O] BRIGHT PEEK  CLOSE #▟IN .AUSR / ERASE  PRINT zTAN ▝ CAT :IN USR ACS  PRINT fABv THEN ▟ IF Gp5USR E?/ RUN ATTR mG COPY  DRAW ) RETURN USR ©] AND x INVERSE  COPY pTAN AbBO NEXT 8; OVER LN h(©F DATA LN USR  FOR  STEP LN ?l RESTORE USR @p CAT STR$ < REM  LLIST NOT <> PLOT  g RETURN TAN  LPRINT  OUT r▝ MERGE ▟ FORMAT IN ABS  STOP >hASN ▝▛ LPRINT x RANDOMIZE 8IN NSQR yGP LINE  MOVE USR ▞ SAVE |IIN CHR$ BG FOR C&=[N]z VERIFY  LLIST i<> OUT USR TAN [K][Q] OVER pNOT ASN [M]<=CHR$  OUT pBCHR$ /^CHR$ ▘;. RESTORE gINKEY$ATN  POKE ` PLOT  INKEY$ DEF FN  CLOSE # RUN j{z▛}KSIN ©o▘ CLS  PAUSE ▖ AND K RANDOMIZE USR _ IF ▚▝IN R OUT  RUN COS  THEN  MOVE v▝ STOP ▜$STR$ © RANDOMIZE  MERGE ATTR SQR USR ASN SGN [C]CODE ov};Az THEN  NEXT SQR }<] RETURN  BORDER I PRINT MDA< OVER [H]ATTR  PRINT  PAUSE STR$ wx▘{▞BIN USR  COPY  FOR  MOVE  SAVE ^IN USR ] INPUT M[G] FLASH >USR CODE CHR$ [H]rnSTR$ IN [N]>=©9ABS  THEN STR$  LLIST ^▚ RETURN  INVERSE B RANDOMIZE jL[R]^STR$ [Q] INPUT  NEW  CLOSE # READ [▜t[T] MERGE VAL @ CLEAR  OR STR$  COPY  READ J CLEAR  MOVE a OR SQR x.:▗ RETURN NOT s THEN  INVERSE STR$ IN ^ COPY CHR$  FOR  POKE SGN  PRINT  INPUT [B] NEXT  PAUSE Bf©7▘W/STR$ IN  INK  LPRINT  FLASH u LLIST < OR BIN ▝ POKE  OVER C>=~ RANDOMIZE STR$  NEXT f▛[L][H]vPI;IN  STEP ▗ RANDOMIZE ATTR IN f~STR$  TO  NEW  RESTORE LN W LOAD ;STR$ IN INT  PLOT  WSTR$ WoJSTR$  CLS ▛>=ATTR 7z~ LLIST  COPY ATN  IF STR$  CLS 7>= CLEAR [L]▟ PAUSE  STEP IN >CODE / DIM [E]L| LET CHR$ GSQR ? PAPER  CLEAR  STOP <> RANDOMIZE  LET #_[S]q CLEAR  IF ▚ INPUT  MERGE  MERGE OhHIN  DRAW USR y2TAN  RETURN ATTR  COPY PEEK  COPY IN  RETURN [D]V,^IN /STR$ x6&0 RETURN  GO SUB ABS USR  STOP  RESTORE ▝USR  OPEN # CLS CHR$ KUSR y PRINT IN  LET NOT UATTR ©<>© LET  RETURN 85▝y[D] RANDOMIZE <G CLS [C]} RANDOMIZE [L] RANDOMIZE TAN _ COPY  THEN IN PEEK ACS  CLEAR  MOVE k RUN  OPEN #J CLS G} DRAW ▛/_PEEK IN } RANDOMIZE h RESTORE  FLASH >IN ▝ PAUSE TAN USR  RETURN  RESTORE  INPUT h PLOT   OR IN  RESTORE OABS [J]▝ POKE @PI▜ATTR !BIN au*~ NEW  PLOT  `w#xLEN   POKE ;1 DRAW @ STEP z^j@ CLOSE #V~<rUSR #~ AND @ f BEEP |ASN   PLOT   CLS v*/ GO SUB [?$ATN R0 PAUSE CHR$ !q"]/© LET `Xa?6O[ NEW  GO SUB VAL > RETURN 8[L]RNDSCREEN$ Y CIRCLE PEEK  STEP O<=[F] INPUT NOT 2sqATN  DIM w( INK : DRAW  BRIGHT  INK c: DRAW ATTR $ INVERSE !USR  NEXT  CLOSE #l[A] GO TO "w STEP  POKE lS MERGE  NEXT [O] PAUSE }*[F] NEW m STEP 0SQR P GO TO Pu,[I] BRIGHT AT is OPEN #[M] COPY u[D][L]@S FORMAT SCREEN$  ERASE T<© NEXT I COPY  PRINT ©<> THEN |( INK  READ n LLIST "Ar LLIST NOT LEN  GO SUB s=g COPY 1_ PRINT  OR  MERGE  RESTORE  INVERSE  VERIFY ACS  CLEAR  INK ?[L]*[C]#"7 GO TO N`USR © MERGE :/ LLIST  MOVE STR$ `8 LET  CLEAR m AND  INVERSE |l1 CLS NOT  RETURN  DRAW  OR  CLEAR © GO SUB y2 RESTORE m OUT STR$ <> READ S STEP [N][N]ch/ PLOT  W<>!/ COPY {} AND o"drBIN  THEN EXP ??▜2 CAT /SCREEN$ iFIN  FOR y DEF FN e ERASE [H]INT ▘ GO SUB :▙ COPY [H]_& STEP z| PLOT  yJUSR  IF  FORMAT  IF >=} VERIFY © CAT PI RESTORE  MOVE  OPEN # LINE 7<>ACS  INK  THEN  DRAW _ THEN COS : LET v COPY SnUSR  CLEAR k INVERSE &$ LLIST [P][P]O▗ NEW IN GVAL  STOP  INK ASN  GO TO +; NEXT  COPY  CLEAR ] GO SUB s STOP v INK ! COPY  COPY k$ RANDOMIZE %?CHR$ r1G BORDER <>Ny= CLS !w6> INPUT  BEEP  NEXT 2 RETURN v : INVERSE  CAT "w2 INVERSE  RANDOMIZE  READ z▗^,VL/ CLEAR F RETURN x2Hy| LLIST NlEXP  CLS  CLEAR USR rUSR  COPY [F] DRAW  COPY  INVERSE $ABS [A]<>CHR$ wyx LOAD >= READ D<>>?![E]V DIM h  GO SUB VAL =  SAVE <>Ew DRAW #{i RETURN "O?`USR  CLOSE #$ COPY  AND s,r bBIN { AND '"_8z VERIFY W  GO SUB  RESTORE <> RUN ` DEF FN  LOAD  IF $.` NEXT !| INVERSE  CAT O<z CLEAR .©[T] OUT  NEW  LIST O INVERSE ~ LOAD LEN w$ OUT ); RESTORE PI DRAW <m% CLS  COPY ,<= INVERSE # OVER  THEN  CLEAR - ACS VAL$ oQ@ GO SUB Czf NEXT  MERGE c MOVE VAL  COPY a PRINT <>.U)0p9 CLEAR <= POKE ▖ BEEP + OR uSCREEN$  FOR zDy[G]UATN  CAT zw RESTORE 6 INVERSE  COPY  FOR  RESTORE  INPUT ~<SQR  CLS 6▗C©[P]_~ SAVE  LET }|{z} GO TO yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"LEN  CLEAR  IF  RUN  POKE  LIST  GO SUB  REM  BORDER  DATA  LLIST  OVER  FLASH  CIRCLE  MERGE  ERASE  CAT  STEP  LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ OVER [U][S][Q][O][M][K][I][G][F][D][B][A]LEN ABS ATN  BORDER  COPY  TO  DRAW 7LN  PRINT wS RUN  GO TO -▝}[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE  STEP  CAT  ERASE  MERGE  CIRCLE  FLASH  OVER  LLIST  DATA  BORDER  REM  GO SUB  LIST  POKE  RUN LEN  IF  CLEAR "%(+.1369<?ADGILNQSUXZ/^`bdfhjkmopqstuvxyJf{|XUSR  SAVE  COPY D PLOT  u COPY CODE  COPY VAL  COPY } GO TO  FOR  COPY  OUT z INVERSE 198 POKE  PAUSE 0INT  RETURN 7ATN  PRINT 6 PRINT PI/5VAL$  BEEP 4[P]ABS 3.y MERGE 2 LET , PAUSE .0[B] DRAW  COPY .~[L]- CAT ,z MERGE +*S CAT )( CLEAR ([D]'& PLOT  %[M] IF $ NEXT #"2 SAVE d REM ! 45n BRIGHT 6789g7:;=SQR <=>?AT g MOVE  POKE  COPY [K]INKEY$ RANDOMIZE  PRINT ll LET  !#$mx%& CAT [O]'(= FOR )*SCREEN$ W+,[O] PRINT -SCREEN$ ?./^ PRINT 0 MERGE ATTR 12kz3 NEXT 34]CODE 5fz6 NEW 6INT  OVER 7 IF  PLOT  8 RETURN  POKE 9LN z DATA K RETURN IN do[L].?-%o RUN -H^ CLEAR <=,COS ^+U DEF FN * CLOSE # CONTINUE '&[B] TO  SAVE %$ STOP #▚EXP !2 n DRAW 4567879:< VERIFY COS =>? CAT z DIM Y[L]INKEY$ CLEAR  RANDOMIZE  PRINT 6INKEY$ GO TO  AND $%&[N] NEXT '*COS ^+ PRINT <=,-?[O]. PRINT SCREEN$ /0~[O]1 POKE *4~ RETURN SGN TAB K PRINT / MOVE  RETURN  THEN  MERGE / MOVE  RETURN  LLIST 7INKEY$[B].[O]W NEW . IF COS -2<CODE  MOVE P RETURN IN -,+[O] PRINT )([O][J]'&[P][K]%$ NEW #" PRINT ! 1N23 BORDER 5 AND 7689v READ :;<> CAT z? DIM Y NEW INKEY$ COPY  CLS  STEP  PRINT  !"& READ #$Y©' CAT  DATA (< FOR +,Y©-INKEY$ NEW . CAT r STEP 2COS / NEXT  LINE 5^ OR  CAT [P]7[H] STOP [P] LPRINT [H] DIM 9 RETURN  DIM  RESTORE  RETURN 6~.-z OVER  CAT  ERASE , LOAD , CAT 0g CLEAR  FOR )(4='& PRINT %$Fj# SAVE "o[U]/1o DRAW 234567 PAUSE  GO TO 8:;zv?% CAT ▟[O]© NEXT  PRINT O! RESTORE #v CAT $%& CAT z'( CAT )g PRINT  POKE SCREEN$ /01x RETURN  OPEN #ATTR 4 PAUSE  RANDOMIZE  LET 3 RANDOMIZE p RETURN  DEF FN [P]9Wo:ATN RND RETURN / CAT [M].FN  NEW  CAT [P] RETURN - DRAW Y,AT g+J RETURN  PRINT +D SAVE © REM  INK *)([G]SGN 4z%$#1 OPEN # LOAD "! NEW  ▟!/0123456 INPUT  INK 9:<=?Y CAT % FOR  VERIFY ▖y AND ▟ ! PAUSE  GO TO "#$WS NEXT '( PRINT AT )*+?[O], PRINT AT -./z^<=COS 2 MERGE  NEXT r^ CAT  FOR yV8SGN  SAVE [H] RETURN  FOR :^SCREEN$  STOP 9%#? FOR -[S][K] RETURN ,5© RETURN D RETURN + RESTORE K GO SUB +A}?▚ LET  GO TO )(4 CLEAR ' CLEAR &%COS d TO  BRIGHT " - RESTORE nH/01234678:g7<=5SQR ?i COPY ▖[I] CLS  AND  CLOSE # RANDOMIZE  iJ RANDOMIZE $%<=COS  PLOT  &'([O] PRINT )<=COS *+, LET  NEXT [T]W1u9. BORDER  PRINT SGN  NEW mSGN VAL$ W PRINT ABS [K] POKE  RETURN  NEXT ACS  RETURN .LN ▗ RETURN  NEXT ACS  RETURN , DRAW ▞ RETURN + LET *y[F] LOAD * THEN FN L DIM  MERGE ©(AT  DIM & COPY &$ OPEN # POKE #" PRINT ! 11 GO TO -./012456 CAT PEEK 8:;zv=?F THEN  COPY  NEW  CLS  OPEN # OPEN # CLEAR  DRAW [O]M  DRAW !" RETURN [U]#$ CLS & VERIFY ATTR ()2z*+ FOR U.©</J5 RESTORE SGN [P]^5[ STEP  STOP y= CAT 8y[ DRAW  STOP zF DEF FN ATTR yS-3y, TO  RANDOMIZE +s RETURN ?*# MERGE  GO SUB )C/}%)= CLS '&i4% COPY $#"bINKEY$ RUN !  INPUT [I],-./01_e▟ AND ms9z PLOT  ;=?s CAT ls COPY  RANDOMIZE  INVERSE  SAVE  {6 RETURN !"#$ VERIFY COS %&' CAT z()[O]%*<>ATTR -.WRNDSCREEN$ [G][T] MERGE  NEXT ABS -[H] BORDER m7 RETURN KLN  RETURN  FLASH  NEW / CAT  RETURN AT -[H]r OVER 6+CODE F RETURN *3# RETURN )1o<>y[G]-a REM  POKE  VERIFY COS $#nz"  RUN *dn REM ,SvCODE W]3_ IF m INVERSE 8}:<>{ OPEN # COPY / LET  STEP ABS AT COS [F] [D] MOVE "# CAT COS &'[C]QTAB $ CAT .LN bPIPIWRND3[F] LET 9 STOP [L] BORDER m DEF FN ▖ BORDER U RETURN  TO :zs;KLN  RETURN LN ▗ RETURN  PAUSE ACS  RETURN , PAUSE g+sf*g2)(U PAUSE  FOR (COS  DATA  LET '[A]<>, RANDOMIZE '&?INKEY$ BRIGHT  GO TO %$"INKEY$ MOVE  COPY !  INPUT  PLOT  )QSX^W=246<>FN  INK  OVER  GO TO [P]X GO TO [O] INVERSE  RESTORE  GO TO  !"$%COS [O]&'Y OPEN #() COPY *+[U] NEW ,F_POINT PI[O][J]1 CAT r294< THEN 7ATN  RESTORE ACS [K] OR  NEXT [B] LPRINT  RETURN 3[P]. TO  RANDOMIZE -s RETURN [M]?,^% RETURN [J]* RETURN )NOT  SAVE  PAUSE j(2 PAUSE g'Wi GO SUB '& NEXT &U[C] RUN &<=x[O] CLEAR $ STEP ▟"!& PLOT  :2OM* COPY  LOAD Q/1379;> CAT z[L]b COPY  INK POINT  CIRCLE  SAVE ?n VERIFY Y CAT !"< FOR $%&[C] LPRINT LEN ATTR PEEK CODE F OPEN #- PLOT  ./Y2U READ 23COS  DATA  PLOT   STEP 5[L]5CODE [M]W DEF FN ATTR  BORDER UZSCREEN$  NEXT ACS CHR$  OR  RETURN %/ RETURN [J]^+ATN © NEW )d" RETURN ( PAUSE j RETURN '1 INVERSE ] DIM & ERASE + LET %1H PLOT  $©L DIM  INK "! FOR FN  CLEAR K' THEN KCOS *,-368;>z VERIFY <> COPY ©PEEK  COPY [E]gE INK [S]< FOR !"$[A]dCOS  STOP LEN [D]i* CLEAR + READ <>ATTR .[K]g1 READ  CAT 3<>+[K]Wx FLASH 7SGN  STEP ATN  MERGE ACS [K][J] NEXT ; RESTORE  DRAW z^ CAT COS - DRAW ,ATN  MERGE ?[D]* RANDOMIZE COS 6)&3('© INVERSE m&1H CONTINUE %$ INPUT $g<> PRINT #SIN )(" CLEAR <=![K][O] COPY WPEEK G&vE(*0257:Y CAT == FOR  COPY e FOR  FORMAT  BEEP fF FOR  INK ![B]<" RESTORE INKEY$& COPY ()ABS TAB L LOAD ATTR © PLOT  /0CODE 2[O]%ABS J4 DEF FN 06 BORDER Y89#[M]WKLN  RETURN m RANDOMIZE  BORDER [H]SGN r^Y2▟ DATA )'2( RETURN '© PLOT  3&{u2%10+M$ CONTINUE $# LOAD #FCHR$  PRINT "I RANDOMIZE !a< CLS  PRINT JEC[I]]A INVERSE [A]&(*,.147:=[O]SIN [O][H]]x CLEAR /CODE  LET b RETURN ASN [T]CODE COS LEN c/CODE Z/TAB , AND ABS -.<K1▟SQR RND<>03[C]g5WCODE 7)w[J]SGN SGN 9 OVER f^s;7^▝<CODE  STOP [=ATTR yoJ^0ABS (ABS  PAPER '5 INK [P]4&3% INVERSE ▚$1, STEP  NEW "W PAUSE - INPUT ![U][E] RUN  X1 AND TPLc RETURN D1s@  CLS SGN !"$%'*,/26?9=COS  COPY EXP  MOVE ? RANDOMIZE POINT  RANDOMIZE  REM INKEY$[Q]>=USR SGN  LINE ?ASN VAL [I]TAT  DIM  [Q] INPUT  PAPER  CLS *+ATTR NOT  OVER POINT  LET g0 LET PI2U[H][T] INVERSE  MERGE [R] FLASH R[P] GO TO  PAPER 8[H]O©95 BORDER : LPRINT  INVERSE ▛ RETURN CHR$ [H] RETURN  BORDER Y. THEN ATTR  CAT COS [M]m<>*6 READ [B] LET  RETURN COS ?&4%0 CLS 3$POINT  INK #1"[O]RND! GO SUB  J1+db/[J] RANDOMIZE G RETURN c+1:rASN 9Cb3#%'*-?0<4:845;▖ MERGE <? LIST  CLOSE # CAT  ERASE [O]% RETURN #Wd# RANDOMIZE  AND SCREEN$ :[J]ATTR )[M][I],KF7zPI OPEN #[Q]RND4[B] CAT [C][P]578K>= RETURN EXP ▗ RETURN  NEXT ACS ;K OPEN # RETURN <[H] DRAW  DRAW , BEEP  MERGE CODE [C][P]5([P]<>' CLEAR  INK 6& INK [P]5%4$ GO SUB  CLEAR 3#2" READ 0]& DATA  n[B]f NEXT  INK ATTR 'VSGE PLOT  INT z COPY 1* "$(>b6+93 LLIST 7 FOR  INK  CLS 2-/d RESTORE  LOAD  BEEP S BRIGHT #=[U]g#_LEN CODE #-'VAL$ {[S])*[U]POINT [G][C]7 NEW POINT 0INKEY$?1%oRNDNOT >=[T]2L6 DATA U FLASH INKEY$9[S] THEN [D] LLIST SGN  RETURN [L] THEN <5oCOS zW CAT -r^ AND  FLASH [C]W%CODE 4[O]&% CAT  RETURN 5$? LOAD 4#3"SGN ABS 2!1 B[H]2Rj GO TO W PAUSE V#)▗C CLS  BEEP =!!>%; RANDOMIZE  IF TAN ,5126[T]g1r2H LLIST 8;>"$%&(INT SGN PEEK &# LIST POINT  PRINT  NEXT [S]*#+",g POKE [A]▖+PI LET  VERIFY 3 INPUT RND5 STOP -[T][R].CODE  PLOT  J[N]9&©:9©SGN SGN ; THEN  LLIST  RETURN oo/=^ RESTORE ACS z[J] NEXT ) MERGE  DRAW [J]^'4[O]&% CAT  RETURN 6$m GO TO 5#"4INKEY$ FLASH %2Azvt BORDER +M FOR  LET uTAB X$/>=L COS  COPY /:VAL$ 7!PEEK 4*0.#yLEN :( NEXT  GO TO V60?ABS >7# RETURN $()[▟*BIN AT iW[T]POINT &EXP k[S])▘7PIRND▚ LPRINT PI▚n LOAD PIATN  CLS RND5 OPEN #[P]RND7ATTR 8 DRAW  INK 9d CLOSE #[P]EXP ;[ CAT <>omf. THEN  BORDER 9CODE [F]g*INKEY$ NEW ?[%CODE 4[O]%$ IF  OPEN #X6"ATN a!4)n%| ERASE +z0t.i RESTORE  REM K' AND OE#!l[E],q=6z= TO .&*+ INK ▟IN 9$POINT  COPY PEEK $2(6)=+ RESTORE lJLEN TAB POINT +^!RND% RETURN [R][T] STOP RNDINT [F] SAVE %RND06 COPY iSQR PIRND[INKEY$FN 7 GO TO [F][R]9D RETURN  RETURN :g DEF FN ;T NEXT y[ RETURN <O SAVE  RETURN =ATTR  BORDER CODE <-[> STEP y)K^CODE <'<=Q© PLOT  8$i" READ ▚!5 [S]▘~^ RANDOMIZE |1&3v/O DIM  [G] GO TO &$!VAL$ BIN }[N]?8].&"3 /INT 5U!7 ! OR  INVERSE 0,5 BRIGHT  SAVE 81?23 CONTINUE J-[G]b MERGE POINT  BORDER ![I]SQR [R]PEEK  MERGE )[P],▟ GO SUB [T] GO SUB  VERIFY RND1hPI~| PAUSE PI6ACS  CIRCLE RNDm[T]9 LIST ,:q THEN [J] NEXT PI;LN  VERIFY <g>▟=W NEXT [G] THEN ^y,COS x NEXT  LINE *^ OR ?k&[K]ABS j#?[D]"7: 6 INVERSE [C]▗ NEW ASN '3~1 DIM INT v/ VERIFY PI RESTORE  REM '% RANDOMIZE IN D ▚->INT  RETURN 73("LN [C]36 REM  INK  COPY  FOR #*"0(1357q54RND-BIN 'TAB q[L]*TAB [Q][N]^I[R] PAUSE &d<▗3#4"N5|z INPUT 8&©9l MERGE ?k[P];COS [O]<ATTR  RANDOMIZE  DRAW ▞ RETURN = LLIST  MERGE  RETURN  CAT ATTR .># LET 9o STEP ATTR ) CAT RCODE &% CAT L$ SAVE s#"8!-NOT ATN E-▖5 INPUT  ERASE ▘ OPEN #_S10/ STOP ▖[J]*SH&$! PLOT  > SAVE {5+$SQR (4AT gH PLOT  $+ABS 7COS (▜5z VERIFY >1SIN [E][P]5& LET TAB  DATA [H], OR / FOR B) INK ▗[F]o3~▚ GO TO |z CLEAR 1x[K]n8RNDASN SGN a[T]LN TAN ; VERIFY K RETURN  READ =5©-© FOR U-?oo[L]*U< DRAW  DIM '[O] MERGE =K%#=3"! OR [J] 8▖6[H]PEEK ▗ RESTORE j▗3X IF 10/ READ  OVER ▖%# ?>©/=<3M IF -?INT AT g1c LET  PLOT  59g INK <3= INPUT y[T] FORMAT <: BORDER INT ##6%[B] FOR Z*[B]->P▙*1)2[INT ~4{ RESTORE |J_zxt[P][E]tINT B THEN RND[J]F; CLOSE #SCREEN$ [N]=CODE ck=[B]g DRAW >[O] LET Y. OVER  NEW , NEW p) CAT  FOR yV& LET ,$[G] DRAW #y!IN % PAUSE m7▖VAL$ INT  OPEN #Z▚2| COPY  DIM 0/'%/[L]"*=67/3<04[T]1)Q PAPER u7 STEP F CAT ( NEW 37< COPY  RANDOMIZE )0< TO  BORDER >=[I]iBIN <[D][R]%8'6*4,2-0/.v CAT 1 FLASH  LET z(5{ LLIST xVAL$ CODE v8t AND Ft:qvRND▞ RETURN <INKEY$[O][P]WACS ( RETURN >V NEXT  RETURN ABS VAL$ [O]?* PRINT *'2^ STOP U CAT L_# ERASE F"! :[A]zU[A]F OUT [A] VERIFY /4▙( PLOT  4321/-,*'$>R OPEN # INVERSE  LLIST [T] RANDOMIZE 3+-F#z RANDOMIZE &+ RANDOMIZE 8 INVERSE 5.[D]LN A NEXT  RESTORE ▜4#&bINT !ATN 6USR ▝:* DRAW  SAVE {-3/102.ATN x5Mo*v7&ATN zt# LLIST rr INK [O]mp;INT ?<dSGN  REM O RETURN = PRINT SGN [_CODE  COPY y SAVE COS ?SGN ▟o VERIFY  COPY  RETURN x) CAT [P](z%[C]1yUo%#[A][R][A][C] RUN ACS [A] VERIFY /[C][C]# VERIFY [C]540.,▗4EXP (<> RANDOMIZE  STEP _2($? PAUSE 8V&[STR$ 0 STEP SIN  CONTINUE <▚<=$ OR s)48"?> THEN  LIST  DATA %(?*<,:.70▛v CAT 3n4/-{ CLS t7 OPEN #7ppPEEK pr? READ p<,[T]AT INKEY$RND=s<>[R] AND ATTR > GO SUB ©?POINT ATN .~WABS +IN [K]x'[P] RETURN &U STEP = FOR #"=3! B3[C][C] LINE ;[E][G]LN  REM [K]o DRAW [K]76 DRAW 321/POINT <+ RANDOMIZE IN W4%.!&" PRINT *jABS  COPY ICODE o BORDER ?<=* POKE A!f ERASE 5,$!s5% RUN (+ COPY  OPEN #/<192634 CLS 0 LIST V PRINT  LLIST  FLASH h*9jy{p LINE  PRINT ppyvn=kdRND THEN ATTR > LET 3[L] RETURN D RETURN ?UZ▛ NEW ^W OR ATTR ) MERGE |%U STOP 5#COS  DATA  POKE <= TAN b[C]W_[E][I] PLOT  INKEY$[K]SGN /[M]INKEY$98 RETURN o76542<[I]TAN POINT /?;*&▟ DATA " INK 40 c▙ PRINT | RANDOMIZE >=^C LLIST 1N<% THEN 0X RANDOMIZE -% MOVE  PAPER &*,/0?2=4:5 PRINT 673ATN  DEF FN ^[T];^dCODE SGN j PAUSE PIn RANDOMIZE  IF p RETURN 4n>LEN  DRAW RND3k?[J] FLASH < TO CODE SQR -W? MERGE ▛COS ^' PRINT <=&%k^AT W"![O] PRINT   MOVE h[E][G] GO SUB PEEK [K]LN  INPUT FN , BEEP VAL 49nSGN 57?6: RANDOMIZE [P]M21,.%+ ( OR K27SIN , LPRINT &▜/|_ OR  DATA 2<> GO SUB 4&wJ,STR$ oL INPUT % FORMAT +. NEW  PAUSE LN 6=X& LLIST < INVERSE 59 RANDOMIZE 1 NEXT  VERIFY /^Zb BORDER  DIM f PRINT  MERGE jlRND SAVE lj RETURN AT ? INK X[T][B] RESTORE [N]|^~5 RETURN  OVER  RETURN .~uABS +ABS  REM *[H]W)IN Dcz[G]#"YCODE !< FOR  + LIST [G][I]ATN ~[O][O] STEP INKEY$q READ <; CIRCLE LN :=9<>INT 87LN d PLOT  ,4%22[N]29" |!k_ RETURN {M PLOT  0 INK  DRAW  COPY ,4p LIST ~p"8.,&/©TAN  MERGE 678 BEEP 9? VERIFY [Q] LET ;74 INPUT >=1TAB [L] LET V+IN  LET b?/hjCOS lj MERGE  CAT d OR  RETURN g[J][F] RESTORE [B]_^ NEW ▛V RETURN x' MERGE ATTR &% CAT z$ DIM U#"! CONTINUE K CAT [G]h4[K][Q]SCREEN$  INVERSE HSIN SGN ", AND INP( TO %986^1 ,USR  RUN ^ BEEP ©FCOS  RANDOMIZE ($<,G9?8184.t%6 INVERSE c!@VAL SIN L READ ?zvCOS >742|50 VERIFY oNVh CLEAR `h SAVE  LLIST jxRNDljX<>POINT ]RND RANDOMIZE  READ a}[N]3+5[D][G][K]RND1[Q]SCREEN$ TAN AT g3 VERIFY COS =8[D]z4/INT  STOP  ERASE  PAPER &59 AND 1▙ PAPER ▘ LINE qj RETURN  BRIGHT 0O OVER ▘> BRIGHT BIN w BRIGHT 5 AND ▙[K] OVER 5[O] BRIGHT INKEY$[O]?<BIN 7R CAT 52 PAPER  STEP  CLOSE #LZ-^`h PAUSE _ja LET h`9 INK L= FOR AT gn POKE  RESTORE I:>,/(% STOP VAL %| CLEAR 9 ▜ COPY (<!|©L[D] BEEP 04BCHR$ ,& DEF FN 8PI FOR .&<>POINT  VERIFY  STOP  INK ▞ READ ? CLS 97 INVERSE  CONTINUE 420.COS [O],+z VERIFY )(&%F CAT $#da READ  MERGE 'z5[K][I] VERIFY ATTR [G]! CAT z zv AND INT ! PRINT  GO TO 7k:N MOVE ILEN [Q]=v:7/,%9 ^ CLS |L/OX3▛TAB  POKE  DRAW 0 LIST 9[C]4<gp GO TO /.& AND  STEP ? LLIST <97n,SIN 10-F CAT ,+ PRINT  GO TO )(&%[O]$#R CLEAR lj[R] LLIST jhW CLEAR STR$ b▚*AT ABS ▟SCREEN$ W*[S]ATN  MOVE [Q] THEN [P]zU[G]!Y CAT   CAT  INPUT  CAT F= FOR ▟[H]PZ0 CLS ▖/<=?:72,% [C] DRAW (73 RANDOMIZE  CIRCLE  FOR 4 SAVE ▝<=J[N]D PAUSE 4 POKE CODE ▜ COPY 3COS  NEXT $ INPUT  FORMAT EXP  RANDOMIZE = LET ▞ LLIST < OPEN #541▞VAL -,<=COS *(g RUN &%?[T]$#TAN Tlj)~j OPEN #w`CODE  IF VU CAT  FOR  PLOT  SIN - MOVE  CAT  RETURN  LIST ATTR  DRAW 1 RETURN  LLIST ' LPRINT  MOVE [I][G][O]▟ RETURN ![T]? zu7 OUT COS Y4 bf CLS H NEXT V50*&$+"[H]4 *ABS  LIST  LIST SGN TAN cSTR$  THEN  DRAW ~# DIM <5-+%$ESQR  CLEAR  PRINT  IF ATTR ^=ATTR  PRINT  CLEAR T READ  STEP .-+ READ [O]*('zu&$" LET 3 CAT nATN >j^ GO SUB h PRINT #dABS xz][G] OPEN # GO SUB *oBIN [Q] THEN  BEEP [O]STR$ STR$ [G][E] CAT [A] GO TO F g RUN [P]SGN 8? RANDOMIZE ?<24.&y CLS %"*2[I] BEEP  SAVE ECODE 3_9▛ RUN ,©? NEW L FOR $Q LOAD 2Z/ CAT %i>= CAT PIO LET IN  RESTORE 920 FOR INT .,ABS [A] FOR *([R][O] INVERSE $#[U]x"pn FOR  THEN lCODE  CAT j| OR VAL$ ?bUSR SGN c REM  PLOT  , FOR  IF + DATA  CAT  LET <= READ '[S][M][E]#l▗[C][A] g RUN  THEN LN SGN EXP 7/ CAT o NEXT  IF o[J]>;72$( IF <>©7  NEXT 5,PEEK SCREEN$ x GO SUB >&)zp"7[J] PLOT   DATA  LET 9? OPEN # MERGE RND:PI5▟ COPY 21/-+CODE * OR SQR q&%$# PRINT <"<3pVAL$  OUT l READ Y© IF ?]CODE  SAVE y[H]SIN .-©^ DIM  FOR )= READ  PRINT g%K^ CIRCLE USR [A][A]^ INVERSE | READ =iQ/ PRINT  FOR e CLEAR ©>:# RESTORE  IF <=,31+<  STEP #+CODE  COPY ▜_3[H])ryAT < INVERSE , LLIST z#BIN  FOR :793L COPY 10+ SAVE *(PEEK n'& POKE  BORDER ATN #"&m!pW_p+ OPEN #n DRAW  VERIFY COS xh LET <= IF [P]u CLOSE # FOR  PRINT IN ?zINKEY$ LET  RUN B RETURN [K][D]W'▖?[C]TAN PEEK [A]ACS ?[A] ▟{COS  LET  DRAW FF PAUSE y[E]z LOAD Z[U] DIM  READ [M]V-=) DRAW  CIRCLE 75<3 LPRINT INT '4JINT  TO  LLIST  CLEAR e[A]<oCHR$ NOT / NEXT <50 VERIFY "<:8IN  OR  PLOT  RND0INT  PRINT .-RND_INT (&%I INVERSE # FORMAT [R]xtp[IN p^ LET nSGN JM OUT fCOS /SGN  STEP [C]USR ^ POKE  RETURN y[SCREEN$ 1 PAUSE  BORDER  CONTINUE )CODE VAL$ & LOAD " RETURN TAB [A]▙ CIRCLE [P] OUT VAL  RETURN ▙@<>e RUN  GO SUB  VERIFY 8 RANDOMIZE  REM $EXP EXP  LET +?1>6<=4©%?",VcINT 1F)INT ZSIN (5<, READ  LET 94[L] INPUT <6 FORMAT +ATN n(<$ FOR ©6320/USR  NEXT ▟,*)%$#"!u RANDOMIZE SGN BCHR$ t▜ LOAD p[F] LET  DRAW  DIM W LET  NEXT PI FOR  VERIFY  RANDOMIZE  OPEN # MERGE  THEN mxVAL$  REM  BORDER  PAUSE 2[Q]3 PRINT  STOP (ABS [G] PAPER  THEN [C] PAUSE gS IF ▙ CLS   LET ▟ CLOSE #INT USR ZABVAL 8[J]gS PAPER  BORDER 5 OUT  MERGE %EXP .COS [O]26▟ ERASE <#m PLOT  4F POKE  PLOT  $ FOR  LLIST +-27La[ INK ©6 THEN  REM 2.▜Z%[J] BEEP [C]310.-,*)RNDo DRAW '$#"[D]!xPEEK  IF  PAUSE  REM t NEW Y^ATN [I]z▞© RETURN ABS [C]? CAT  FLASH  STEP  DATA  PAUSE + CLOSE #SGN c DIM )W DEF FN 7[T][E] RUN  PAPER [A]▙ IF "▚▞▖ ▚ OUT  SAVE  OR  VERIFY [N]AT #W*- LPRINT 4 LET 27 LET <VAL$ PI PRINT  PLOT  C,.6 CAT z,Y$*- OUT 156<TAB d RESTORE 2 PRINT *[J]#VASN $vRND-,*)('&% AND TABS RND"ATN  BRIGHT !z~ FOR xTAB .t LINE k POKE pASN |jPIW OR  NEXT [^ STOP  OUT ▟ SAVE  RESTORE  BEEP  RETURN i[M] RETURN  GO SUB *f REM  READ (/[T]kCODE  OR  LPRINT ▛A▖▚▗ CAT ▖ BORDER  OPEN #M RETURN !$S*▞{I3IN e7<",TAN z VERIFY CODE  FORMAT 2©SIN  STEP (,0 AND [1<><=73./ THEN *<=: THEN /!RND5ATN ,PI NEXT EXP PI' RANDOMIZE M CAT %POINT # CLEAR | POKE [|x LET ▜POINT i[A] RETURN  LOAD  DRAW  NEXT j[O] MERGE ATN z DRAW LEN X~ PRINT m& DRAW -POINT  BORDER #[O] LET + RETURN  BORDER )<>D RETURN 1U3k REM  LLIST ▚▗ RETURN L▘ THEN  THEN 4 LIST a▟ COPY "INKEY$ AND %(+ CLS /2 THEN 5!>[L] DATA !<cX+I9[I]e!O MERGE )+bY>r5▞c2/ATTR e+(% PRINT PI+*)AT  PAUSE & RETURN F CONTINUE  VERIFY #"! OPEN #FN  RESTORE [F] STOP rEyp RETURN ATTR sUSR  RANDOMIZE  OPEN #CODE  STOP ?©z[H]&/[O][H]?▚ RETURN  PRINT ,.[M] RETURN L DEF FN [M] READ )Od RETURN L DATA  RETURN ABS ▖ LIST  MERGE ▗ LET ▖~  AND f5 CLS ) COPY SIN  INPUT Y#%(+[I]5.bRND16 IF 9 DATA  NEW !PEEK */▟4:e THEN c["[U] GO TO ACS  BRIGHT  FORMAT  MOVE [D]< STOP )9*1;1(%#qSIN ([U] INK  PAPER  SAVE %$#"5 IF RND REM +▗▘[P] RANDOMIZE ~ PRINT  PAPER ?%CODE W[O]VAL$ [K]]VAL$ d SAVE y PRINT INT / RESTORE  REM ABS INKEY$3 OVER dBIN wRNDASN ?[C]' RETURN  LPRINT [^▖{ DIM ▗b[I]▘©[K]4z©Bo|>,0!V CAT #%= FOR #*.b CLEAR 248<OINKEY$ COPY 1;_{>= OPEN #<%8&4(S{ PLOT  %#!| READ '&%$ LET bTAB "s[U]PEEK [D]▗[G]o|5 SAVE xo^ RANDOMIZE cp RETURN AT xK LET ?o LPRINT [H] RETURN [R][H] RETURN [Q][K] LET , RETURN 2>= NEW * RETURN  LPRINT ) PAUSE g& RETURN  IF f DATA ^▘~v7>= l. VERIFY `=!#▞g%(C FLASH  COPY -036 :"<l+3[K] TO  LLIST 7 ERASE  IF  GO SUB -cCHR$  STOP  POKE <c} BRIGHT 6#3$0)= CLS #!4 AND $COS  PAPER LN LEN "![F]BIN PI[A]ABS ▙[T]i/[N]▗PI!CHR$ © PLOT  ATN CODE ^%[G]jx OVER  CAT COS  DATA [B] CAT  COPY . LPRINT [C] RETURN  PAUSE <= FOR +CODE R^%i[I][I]▚©n$vCOS pn, INK + PLOT  g=! PRINT AT #%(* GO TO [D]-/ 1 INK 57%:'= BEEP ?048 *ATTR  TO  NEXT [P]l?=:7>= LIST 5 CLOSE #/"-#S{ PLOT  ! PAPER COS "![F] SAVE ATTR [I]} GO SUB RNDf READ [A]^ GO TO ~ CAT  RETURN  CAT  DATA FN  NEW  NEXT INT  RETURN <>[F]^LN  SAVE r DRAW  LET  DRAW [O]A RETURN  RUN -pINKEY$ GO TO , RETURN [S]TAN W RETURN  AND  FLASH ^Mx[J]1CODE  LET ,hJjfd-BIN ?[O] NEW !I TO SGN E( ) CLS ,nH."1$3%6'8*:,</?269FATN  OVER  READ ?zs:[K]i CONTINUE 86 CONTINUE 31 REM .,[C]>= RANDOMIZE <= POKE AT ASN 1 AND [U][Q] CLS [K][K][G] PRINT gzIN  RETURN 4FB RETURN SGN J<>[F][D]o THEN [< REM  OR Z%PEEK  BORDER  RESTORE z& SAVE .CHR$ % RETURN  RETURN  DATA [G] RETURN ©& LPRINT * POKE j(LNOT SCREEN$ 1 RUN $ CAT ABS n} GO SUB "C LINE b!/<=TPL▟ RANDOMIZE D@>=STR$ '")+$2`BIN /&1(3*6,7.:1<4=?zVY CAT O/<: BORDER 76 OPEN # OPEN #31 NEW /-+ BORDER )LA'USR SGN ASN [E]©VAL $RNDAT FN [U]ub[O]xyc^[P]j PLOT  g©[B]i RETURN [C]W9CODE [O]WSGN TAB © PRINT z) RETURN [I] NEXT - CLOSE #Jn>= DATA  STOP +<K RETURN z[F]xf INPUT [J]$v CAT #PEEK z1[C]ZV LET ,P! LOAD ,D$&(%`*`fH02g PLOT  4-679▜5:<COS [O]={ VERIFY  FLASH  POKE :64O. DATA ,*>= AND (&$SCOS z PLOT   AND ABS [S] PRINT  GO TO Lx[A] REM  RETURN d" RETURN  READ O RETURN  NEXT 6 OVER V THEN 3 CAT  READ ySIN x0G/ RETURN  PAUSE *%/ RETURN [J]^H[O] BORDER  STEP ▗▟WATTR WWINT C LPRINT & NEXT lfAT g[O] PRINT  OR COS  MOVE VAL$ "'&; CLS (')+ RETURN  LIST -*.,02/315u,6AT NOT ;9>zV~<>653i[K] STOP 20 RESTORE .-[A] RANDOMIZE  RESTORE +)(&ASN COS [I]BLEN COS  COPY USR  THEN PISQR  THEN [T] MERGE =1 INPUT  ERASE ▚ PLOT  ACS 8© CAT r RETURN R< LOAD m LET ( BORDER  FORMAT K RETURN  RETURN  DEF FN  PLOT  . RETURN  INPUT -<= LPRINT  RETURN  NEW ,[L] LET ATTR y3y▚W<>L[T] CAT  CAT ASN  MOVE %[O] RESTORE  ERASE COS 3G&" PLOT  #02( FOR  SAVE )*?B/<=01324H7 CLEAR ;zv>s CAT 5[K]- COPY  MERGE 1 IF STR$ USR -,* AND  LET >=&%ASN CODE #LEN !INKEY$ DATA TAN  GO TO ?STR$  LIST  REM  INK 2ABS  PLOT  fVATN L[T] DRAW ▞ RETURN ATTR [E]m<> POKE VAL$  NEW  LLIST  RETURN  RETURN ABS  LINE  PRINT j[M]W DEF FN ATTR  BORDER U NEXT , LLIST ZPIWCODE  PLOT  ) CLEAR  LET  CONTINUE  INK 'w INVERSE & VERIFY COS ^hR COPY   READ  MERGE "B$,-qVAL >0.2|x41683:=<> CONTINUE  VERIFY 5 SAVE A TO 321- ERASE 4 LLIST ,* LLIST )(LEN 2NLEN #"[F] PRINT TAB ?wSCREEN$ STR$ ATTR  THEN [R]e= LET l[J] DRAW e DRAW ^ OR ▛>=D RETURN  PAUSE ACS  RETURN  NEXT g DRAW [J]/ RESTORE  LOAD [B] CAT  FLASH  OVER  FLASH j[ STEP SCREEN$ y[F]SGN ©zg5 CAT [C]AT Wd POKE  PAUSE  GO TO O'SQR  IF I RESTORE YRn CONTINUE ?"*$[D]m REM %&, CAT  GO TO -/*013. READ e568C/ CLS zv>2L THEN  COPY BIN /.-,*)CODE CODE INT SQR [B]CODE "! #={PIVAL$ ©[S]▛[R][M]3 NEW [N]▟Q RUN COS W39 REM USR [K]ABS <> FLASH [H]p RETURN z RETURN  PAUSE  RETURN .▜ RETURN  RETURN ^ RESTORE U3 BORDER -,y DRAW  LET x[G]I RETURN  DIM * READ [J] THEN  RANDOMIZE Q ERASE U^M2 COPY i RUN   FOR ASN  INPUT "#,.sRND'/ CLEAR 0[B]M. STOP 46TAB PI79 RETURN ;=0?zACS  AND [I]▞-[J][F] RANDOMIZE ATTR %ATN [R]TAB "gwATTR INT [C] STOP %FN  OR e COPY [J][I]^ RUN 2 RETURN d RETURN  INPUT  OVER 6[H]r PAUSE U/ATTR yd LET INKEY$0ACS x POKE /U NEXT SCREEN$ y BORDER U POKE *I RETURN  DIM OWZSQCOS PEEK Oz MERGE  THEN h COPY INKEY$EXP  PRINT   FOR ] GO TO !7. OPEN # CAT 0'1(2 SAVE 46M5 CLEAR 68 DRAW :;by= GO SUB Z▝©ABS  GO TO ▛ LLIST ATN [B][L] LET [P]RNDo{POINT  LLIST RNDATTR TAB ▟wATTR  ,CODE  NEW  PAUSE RNDxe/ COPY cL[N] COPY 1 IF c[A] RETURN  PRINT <> RANDOMIZE POINT [O] GO TO [H]p RANDOMIZE  RETURN ^SCREEN$  NEXT  OVER [G] RETURN ID/ RETURN rLN  RETURN 9LN e BORDER uSGN .K LET  CONTINUE +©<ATTR 5y VERIFY W{K▟INKEY$ CLEAR m4 NEXT  -w#©]/11&2'3INKEY$ DIM (4)6 RUN 78 PLOT  :<m[K] RANDOMIZE =? PLOT  INT  OVER ▛+CODE [B][F] POKE  LINE [L][R]+ OUT RND{NOT PI BRIGHT VAL$ POINT POINT ! sgrPICODE  LINE RND COPY dCODE  RETURN  CLEAR RND RETURN  RETURN [K]? CAT [Q] RETURN  RESTORE .G RETURN LN  RETURN _ RETURN  PAUSE SCREEN$  DATA  FORMAT [S] NEXT <= LIST /^ OR  FOR r[ DEF FN ^ PRINT ],~^ PRINT  VERIFY COS yyd4G RANDOMIZE e[K] LOAD  NEW  ▖ MERGE 5~V0#1$2%3&4'5(6 CAT <= FORMAT [D]TAB  INVERSE [B]] BORDER [F] INK [[P][R][H] INVERSE RND POKE VPI]POINT  uWnBIN RND SAVE 2S[U]© RETURN  STOP g MERGE <> BORDER  RETURN j LOAD  RETURN R= NEW  POKE <> FLASH OX▛TAB  BORDER ml~ THEN  BORDER *▜ RETURN [K] LET  REM / NEXT INT ^ MERGE  CAT [P] CAT  ERASE  THEN QABS WyK$[T]LEN  THEN  PRINT ? LET ▚ REM /0 sABS !1"2y READ -4%56&7' PRINT AT :;<AT q?[R][F][J][H]-SQR [J]EXP  DATA [N]M.[R]RND LET  BORDER RND#"!qATN  NOT VAL$ PI[O]%[F][[P][J] STOP  VERIFY ATN z OR [F]&[H][O]? PRINT BIN  RETURN [P]z RETURN z9 RETURN  PAUSE  RETURN SCREEN$ ▜ RETURN  DRAW SGN =/ RETURN  DIM U LET  DRAW [H]gyRNDYINKEY$ COPY  INK ] COPY G[T] DIM  LIST PIM NEW 01 READ ▟!23"4#Wc$56 BRIGHT #9:';COS d THEN ?[N][H] DEF FN [L]VAL$ m[P][T]PI.LN RNDPI CLS nRNDCODE = NEXT ?v[N]5 CLOSE #^POINT  MERGE 3 NEXT ' COPY r LET K POKE  RETURN  PRINT f DATA  MERGE CODE z[O]SGN SGN 2 PRINT  NEW / MERGE SGN < THEN  PRINT SCREEN$ ?[O]]POINT /▚G]LN LA GO SUB  MERGE [P]1[P] CAT 52 3▟ OUT !4"5#6 READ  AND 7$89%:zv<&=>? FLASH ACS g[F][T]VX[P] FLASH  OPEN #>=[T] BRIGHT = PRINT PIp5VVAL$  GO SUB [T]7ACS [R]} THEN  LINE [A] RETURN  LET TAB f<> RETURN  BORDER  MERGE  DEF FN  FLASH  PAUSE RU NEXT y LIST ADS.OBJ C`[Q][Q]hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.HR[Q]@▞ COPY NOT [G]`v*/ GO SUB [ DRAW ATN R0 NEXT !XIN Q COPY u GO SUB VAL  FOR +#LN  RANDOMIZE  CLEAR :'6Gw>> STEP `/ ERASE b@USR  OVER UFN 6 CLS vwbEXP g▙~gnCHR$ > COPY ATN ( BORDER  MERGE o!▚ INVERSE [U] BORDER  CLEAR . CLS  INK  TO ]Jp OR :9 INPUT 2 CLS  RUN  STEP LEN k:b/}*) RUN ATN *|ASN  POKE }ACS NOT LEN ` PRINT k[K][O] PAPER [O]q[O]X CLOSE #[O] FLASH e▞ CLS [}<> IF  COPY <>MOZERFUCASN >K !5|[N]~CODE FN  OPEN # RETURN SQR >= FORMAT [K][O] CIRCLE @D[O]Z LOAD a{ MERGE ACS BIN 6sPI[T]Ga..[I]c"d LINE {BIN Go<>!USR [J]> LPRINT w,< RETURN  LIST   RANDOMIZE = NEW  DRAW  RETURN : OVER e>@[T]a INK s INK l,rf PLOT  ~ IF  =  FOR ! OUT s,[P] RUN  NEXT  STEP F<>.© IF  FLASH 3 COPY -[S] OPEN #'}LEN & LPRINT NOT USR  NEXT iATN  STEP /c DEF FN PEEK [M]V INVERSE t RESTORE [O]AT  SAVE gL▖ INVERSE $  PAPER <>^, INK ▚Ozw BRIGHT  NEW ▖ STEP COS "SCREEN$ CODE LN r]D6 CAT U< READ  INPUT [G] FLASH SQR ATN y COPY  FOR  INVERSE FVAL$ w DRAW W MERGE !TAB aCSGN >= LPRINT @ GO TO 'J/ LIST & LPRINT TY CLOSE # INK IN  INVERSE  RESTORE XATN  THEN  STEP n SAVE  CLEAR & NEW  LIST 7[o~ NEW ATTR ASN  NEW [L] LOAD w$ CLEAR %  BORDER h[K]g LLIST Z INK 8 TO [B]SGN USR LN CODE  NEXT  DEF FN  CLS $  NEXT  MOVE LEN |[S] POKE &EXP  STEP lb NEW BIN  IF  PAUSE <>z NEW USR { AND  _ CIRCLE z VERIFY W<>L[U]v OPEN #{kcePOINT J RUN [M] BEEP Lu[U]%▛© BEEP  PAUSE ▚b}|I CIRCLE f CIRCLE [L]# CIRCLE BIN M CIRCLE VAL$ BIN  PAUSE  CIRCLE ▞M& INK N$F} REM  BORDER bkV%^H$f[D] GO SUB BCODE  THEN <[D] OUT <>}[D]COS 7 FOR 7cc! GO TO  READ [Q][K] LPRINT  RANDOMIZE  MERGE  OUT  COPY  DRAW $ THEN t( PAPER 1IN  RANDOMIZE <>|& FLASH ^ DATA V~% AND nb6gLN  PAUSE EPEEK ^[N]qW& INVERSE n OUT ,+0> RESTORE  CLEAR [C]2Wc  RETURN ) STOP  DRAW l&[H]N COPY 8 DRAW lSIN  DATA  OR '[S] TO x/Gy_ MERGE O{▜ THEN  STEP 'CHR$  GO SUB j8P%=LN [J]STR$ _ THEN  RETURN  O OUT @ FOR  MERGE > INVERSE  BORDER /OR STEP yc GO SUB Dg[S]A THEN [M]& CLOSE #_ CLEAR USR G FOR IN A| PAUSE <=c MOVE  SAVE |k} RETURN @  IF [F].A POKE  DEF FN  FOR ]). LLIST [I]e>=n6STR$  AND USR  DEF FN | RETURN [S])[A]>A ERASE AT y GO TO USR  FLASH DS©jNASN   POKE PEEK -EXP NACS EXP INKEY$[L]vvSQR , BEEP z▟z COPY  VERIFY  NEW tZ!z NEXT Xd RUN  SAVE f_+6NOT #sTAN  VERIFY r BEEP [D] STEP  OUT  BEEP  BEEP  BEEP ▗ LOAD  IF  BEEP  TO j SAVE [C] BEEP  THEN  INK _T OUT ▗%VAL$ [F] LET ©[E]x AND o& OUT N INVERSE i CLEAR  POKE SGN >?[B]▜Lb OVER ^,V GO SUB Se:[J] THEN )[B]o]ATTR <= AND -▝g THEN ! RETURN RNDVAL$  CAT  INVERSE [F] ERASE [P]g NEXT _eIN [E]G AND @2ebLG[A] IF &68 COPY koG RETURN l PAPER  REM  BORDER  LINE ~ INK l0x VERIFY k MERGE > PAPER  THEN  PAUSE [J] INK  CLEAR } PRINT gNOT gvD▚ GO SUB [P]W.@NOT  AND [J] LET CODE ~ INK %k CLS © INVERSE -CHR$ e<>|ATN  PAUSE VAL g5pM MERGE ABS To~<>SQR  REM @ DRAW COS  MERGE !#[J]~ AND w,ACS  CLS  GO SUB  INK e! MERGE  RETURN  GO TO CODE  CLOSE #▜ CLEAR .V,^ COPY  LIST N RESTORE  STEP  CLS g^v LLIST W FLASH fMq1c VERIFY # CLEAR -  OUT <> OR :%[J] STEP hSTR$ BSY$ACS  REM J[F]UXYm#z DRAW  MERGE O<>o& CIRCLE N VERIFY  OUT [C]F{y INK AT I_ IF ] RESTORE  GO SUB  OR zx PAUSE L MOVE [P]9 OUT  MOVE IN 5 FLASH  MOVE TAB T LLIST /ASN 3<> DIM  OPEN #n INVERSE IN uh!0nCODE r<>*[J][1?K[R], INK U DIM ~"|INT 8 INK  FOR 3©LN LN `G DEF FN 6z[I]{_P PAUSE  BRIGHT 4 STEP "<>Se STEP <>C<> INK D[I]SIN LEN :[K]ABS  RETURN [C] FORMAT Un CIRCLE  NEW ,O[B]g▜FN AT NOT >=2o<>~▜% . COPY } STOP [U] DRAW 1NOT  RANDOMIZE OOG STEP [K]kl FORMAT cSIN 4 FOR  NEXT  DRAW 2{Ji INVERSE &▗<=g*[H] DIM  MERGE ATTR  RANDOMIZE  GO SUB SIN m MOVE  REM LEN  LLIST  MOVE  INVERSE %p DEF FN X▛V▝$cL READ SIN ?p[R]L_TAB K[A] OVER [I]8[Q]v$k"oj| FLASH  FLASH © FOR =3 FLASH  FLASH  CLOSE #NACS . INVERSE > INVERSE { DRAW  AND g INVERSE }ZPI' RANDOMIZE  INK  AND .BIN [▞ INK u$ OVER BIN ▚ OUT  AND G| INK [P]~p: POKE [T]ATN  IF $~j BEEP  VERIFY [D]STR$  OPEN # MERGE _ BEEP  TO k. VERIFY [G] DRAW [G], INK ▜_ FOR SIN F1rqp DEF FN PEEK  CAT  GO SUB CODE 2[J] SAVE TAN ![S]m0O>SGN fM▜z[K]u▚▚INKEY$ LINE [B][Q]K[P]▞[E]8[P] OPEN #[H][C] BEEP j GO SUB [D][P]s OPEN #{Ln THEN  CLEAR *ATN 6R▙[P] AND -WSQR  SAVE  DATA <O &[O] INK  MOVE ~ LLIST " LINE jCODE o CLEAR f[O])v BEEP Y INVERSE ^SGN V+J INK = OUT [D](1 COPY 6G[T]k MERGE  FLASH [T]▛[T]<= THEN TAB ATN }`k STEP 3ATN  RETURN  NEW ©[T]|ATN  LINE Ac IF 5k}ABS ▚IJSCREEN$ [K] TO <>sgR[]| REM ) PRINT xoUSR $PEEK - PLOT  VAL |ASN >=&STR$  RETURN hCODE  THEN 0▝VAL$ eg<>y+M▛TAB kLEN  STOP |gATTR SCREEN$ #<> INVERSE ~J PLOT  m CLEAR PEEK VAL [S] LIST  INVERSE `[K]>&▛<>^?[J]VCA RANDOMIZE  LLIST NATN  OUT [P]-nIN {:. IF  OVER  INVERSE $ABS N'CHR$ STR$ k'&+INT 0m OUT j_ DRAW zSGN  {ABS >=[F] PAPER / BEEP  GO TO nOz[E]/GxVAL fEXP hUYX THEN ?H INVERSE  RESTORE  LLIST r,[D]0▝ RUN ATN [G]▘D OUT P RETURN 7 OUT {; OVER  OUT  OUT G FOR W[M]NOT NOT ASN  CIRCLE s LINE =UXyiR MERGE A MERGE  BEEP IN TAN  ERASE ▝ MERGE ASN  RANDOMIZE  INPUT 5 RANDOMIZE Y▜ INK oCHR$ ▖▜1>F>= RETURN  FOR ` STEP [Q]g AND y▛wiSCREEN$ V FOR <o LPRINT  RETURN bCODE & DEF FN o AND  STEP  PLOT  PI7n BORDER  PLOT  }ATN  PAUSE  READ ▜o*>{ FOR SCREEN$ <=_NOT  THEN b MERGE ACS  LPRINT CODE [O] STEP  NEW SGN ATN  OR  PRINT z READ [Q] STEP ,~▜_K} INPUT OCOS NOT  INPUT [D]6POINT [N]<>[F].SCREEN$ ll[F]©FN  STEP h LET CODE STR$ <>n2 MOVE  MERGE STR$  STEP ABS oZU AND <=bejPEEK  RUN  PAUSE  $Oa POKE u RUN EXP t STEP % BEEP ,RNDUSR   MOVE  CLS  THEN  SAVE Q FOR s$r%Rz COPY  PLOT   COPY  RANDOMIZE  OR INKEY$[J]PEEK  RESTORE [K] PRINT  PAUSE [L]o COPY  CLOSE #ABS  FOR  RANDOMIZE  LLIST  VERIFY [F] IF LEN  LOAD -Z^ THEN  INK 0m[P]=  PAUSE [L]'▗ PRINT  DATA  INVERSE &▘ INK  OPEN # BRIGHT x PRINT oVg~ PLOT  _, RETURN W|} CAT  PLOT  o<LN VAL$  OR & CLEAR RND5`TAN |INKEY$STR$  FORMAT [I]t CLOSE # PAPER  BORDER  CIRCLE  INK  INVERSE %X▝ CLEAR PIPI FORMAT #7 BEEP %CHR$  DATA s> STEP =(n6 COPY SN"INKEY$ STOP Pp2K| CLEAR [G]) RETURN  CLS NOT '~ RETURN  COPY ACS  F/4$~i▞pCOS RND%- LET  COPY INT 4%~]nACS PEEK [P] LET  INVERSE G OVER 2[J]cLEN [S] CLEAR | MERGE  STEP ▙d MOVE  LLIST [L]+ LLIST $ FOR ▜  OVER INKEY$|2X``} PLOT  ATTR  COPY  THEN  BEEP  COPY