PSG-Wins: PSG-WiNS.B

  1 RANDOMIZE 
  49200H] NEXT 1![G]]n
  461 GO SUB VAL  CLEAR  THEN INKEY$ GO SUB M RESTORED FOR SCORPION BY DEPREDATOR OF PHANTASY  *.**!  NEXT  CLEAR  RANDOMIZE  CLEAR n3n CLEAR *3 CLEAR  RESTORE &[Ty]<Bu THEN j4 GO SUB O GO SUB LN SCREEN$ [Q]ie OPEN # RETURN  INVERSE &9 CLEAR  LLIST  RESTORE  CLEAR  LLIST  CLEAR ":/&? INPUT _i/$8 GO SUB D AND  COPY h RANDOMIZE  OPEN # RETURN  FORMAT ATTR H RETURN  OPEN # RETURN yG CLEAR !:/2sn LOAD ;?! STOP n'NOT mn INVERSE  DIM  DIM  CLEAR  THEN "@ INVERSE .[K]E-'+ GO SUB - GO SUB [S GO SUB _ CLEAR w FOR  RESTORE TAB [E]N GO SUB O@y/ CLEAR VAL$ ? MERGE  BRIGHT jnATTR  INK &G;/AT %l9 INK PI INK  BRIGHT ( GO SUB D7 RANDOMIZE x▛ THEN TAB STR$ POINT  GO SUB  INVERSE PEEK  INK FN  BRIGHT >=n CLEAR  INK  CLEAR [F]FN w LLIST '7 MOVE ? DIM  GO SUB  FORMAT 8[C] DIM  STOP i MERGE  POKE jATN @▞? MERGE xvLEN ;[N][T]FN  AND [K]![H]3Y AND ' FLASH % AND ^< ERASE ): THEN TAN p INPUT  LIST  CLOSE #([T] CIRCLE  VERIFY LN  LLIST INT rEz©Ax CAT  ATTR [O]c RESTORE U}-LN m[J] TO +J ERASE  GO TO L83[O]WVAL$  ERASE  RESTORE  INK  INVERSE ▘ LET LEN  CLS [N]ATN POINT I( REM hsC[G]TAB [S][Q]/c▟? FORMAT [D]+@SGN -y:D AND 9p!W# MERGE ATTR Ob CONTINUE 7TAB &I OPEN #[B]G9 CLOSE #!W# MERGE ▟V CONTINUE SCREEN$ I OPEN #[B]%LEN +@>=-[C]zC*jCODE R[C] VERIFY [P] REM &!Rg;Im9. PAUSE H NEXT '[S]pjz?m6 DATA  LIST  VERIFY INT k?FN ▗/q#©sg[OC7+{ocWK?3'wk_SG;/#©sg[OC7+{ocWK?3'wk_SG;/#©sg[OC7+{ocWK?3'wk_SG;/#©sg[OC7+{ocWK?3'wk_SG;/#©sg[OC7+{ocWK?3'wk_SG;/#6= RETURN bg;[K]BCOS  PAUSE [T] NEW j[A][M]▘▚ATN m REM ez='LN [S]U STEP  REM  IF  INPUT WUy CLEAR v[U]TAN ▙wu][G]4[H]j▛lCHR$  VERIFY >[G]INT [C] BORDER  SAVE UW6IN  INKEY$▘UJVAL$ l OUT C OVER F▙SIN [K]NOT a'{ATN UINT urBIN  PLOT  at[A]5c&= OUT )X%S[N]cBIN  STEP r3 SAVE 1(5|/ LIST  PRINT  DEF FN D/!M7▖SIN BIN  AND lX▘▙z▙SCREEN$  CIRCLE  AND  PAPER  VERIFY  NEW Vj_[O]^dR'SIN j8c©G/ ERASE XCGVAL$ N,b VERIFY /LEN c0TAB P0% AND s,[R]U E? NEW L`BC[R]S0 DEF FN {4Voo TO  LINE  INPUT c@E>2 ERASE XKceR ]?QiF[O]Kd& STOP  IF COS [O][G]w OPEN # BEEP B PAPER FN 4[S]z.$7 READ HzPEEK SIN OT FORMAT }<][E]ZPEEK [C]etszA[D] CLS ocWK? NEXT KSA!`▝[© MERGE  GO SUB VAL !t▟ BRIGHT ,<> GO SUB LN !% OPEN #`~ THEN ?8+ NEW G GO SUB o#N# RESTORE ~bk GO SUB B<O GO SUB VAL  RETURN   READ #~ READ OATN ( GO SUB VAL  LLIST  MOVE # THEN ?8#8O8AN#~#~ RESTORE bkz DEF FN  THEN ?O0AN# GO SUB VAL FN  THEN ?80=[K]~ RESTORE bk+=  DRAW HINKEY$ NEXT <>_▛ TO ^PIa<=!NOT kc STOP :NOT  SAVE g CIRCLE (▖ LIST ` LPRINT X LPRINT |[D] POKE >"52/`,[Q]* 'USR %#!` CONTINUE  LIST  USR VAL P LPRINT USR USR VAL USR [P] SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS  PRINT SIN [I]SO RANDOMIZE ,[J]_wc[S] be,*' b BORDER ATN POINT  POKE } DIM USR USR @USR  SAVE HL RETURN [A]LN USR &P[A]< LPRINT USR / DATA  CONTINUE ( REM VAL$ .+J MERGE duW MOVE  CLEAR e]EeACS  VERIFY _[U PRINT YvAT PEEK ACS  THEN ▛ CONTINUE SCREEN$  IF ACS ATTR SCREEN$  DRAW [[C]z FOR ▝ THEN IN  FLASH  OVER [H]H RUN _U▛ DATA   IF  POKE ] DIM ▘@J▚LN ▛SIN SGN USR "r[B]TAN l[R] CAT > GO TO  TO  READ w▖ SAVE 3 NEW ▚ FORMAT ~k&D[H]VF LIST  ERASE ▘EXP CHR$ ▗>=▞ READ 9ATTR 9GEqcj4NPIFN AT X[I] PAUSE  SAVE  OPEN # LLIST ?▞r NEW [H]▖ STEP n/3 RESTORE + NEXT ; DRAW C LIST XSTR$  LINE  CAT /POINT [U]STR$ [P]AT ACHR$ ▜[D]K3m▝USR [U]RCODE  LPRINT nfo▛ PLOT  4L!<=kNOT  STOP cNOT :g SAVE  CIRCLE [R]% LIST [R][R].|VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 PAUSE [M]▘[M],SIN FN [P][G]▙~wpkd^YTOKGB?;85"ASN ASN E%#ASN e MERGE Y[A]P)0*@[ :0kJ * *0 ,?X0ATTR  Y SQR ▜/K /PP. PAUSE U( NEXT  RESTORE " PAPER d RESTORE ~2yh2>g##~#"|d "d^#V#"BIN dO/%EXP d LLIST ATN  MERGE d! CLOSE #c MERGE cp GO SUB VAL CODE 2 MOVE c2 ERASE  OPEN #[F]<=g21h2fe2 RESTORE 5gf2CHR$ ©,©TAN g6gEEXP f/2:WEXP %;f>_<=#ATTR g!ac" TO g"6h"CODE e"1f"TAN f STEP IN d GO SUB SWg STEP ABS fSTR$  GO SUB s[S]d1 PRINT qc>  LLIST  FOR s#r# FOR =  PRINT LEN [P]VAL *[P]RND" BRIGHT g"Fh"Ee"BIN EFf CLS <>!u~▜ GO SUB s REM d %8 INPUT #BIN E▜▝OCODE G RANDOMIZE IY%"vg[A]gnG<>{▜_~0 THEN #~ NEW  THEN Z  PRINT 2 PAPER c LET ~ NEW #ng INVERSE b FOR  LINE  INVERSE }▚▜O!LEN a~#fo THEN :8 GO SUB R<><>><(wVAL$ y<PEEK # ~2?e#" e FOR x_@@▜u INVERSE . STEP  INPUT d)E" CLOSE #c FOR 1e IF PIe(& RESTORE BIN !{PI PAUSE ▚e GO SUB DOPI GO SUB B0 LLIST >2deCODE 2tego"ke"}e LLIST CODE e INVERSE |2 FLASH cO PAPER U~ PLOT  2 BRIGHT c©z LPRINT ©PEEK USR ©IN USR © VERIFY @©&f`©f[A]© READ © NEXT © REM © DRAW 0©gu INVERSE |! FLASH cACS wp▘ INVERSE  ▘{ STOP @fSIN A▜[S] CIRCLE BFN p▘▜`▘UefCODE 2uf%lf LLIST ~7o0▘[Q] OVER cNOT FN uIN  COPY   VERIFY ![P]B GO SUB yC GO SUB ATTR = LIST H[F]2 LLIST c<>CODE G>=T MERGE (@=(#=CHR$ 9e! MOVE c5 PAUSE ?%>wuPI TO IN d STEP i PAUSE 52[K]gNOT  ERASE % STEP 0j BEEP v BEEP h OPEN #9[J]g@7k BEEP U[A]gCODE 084?ec$" DRAW %"Be!%2SQR 5▗9f CODE ▜%2 ERASE g'E'$O2 STOP ,▙ >}I[S] IsI%go RUN  PRINT %"PEEK e[D]/ LINE $jSTR$ 0j%h[O]6f[T] RESTORE  ▝1f j0<h[B]BIN @H:2L  DRAW VAL$ 2!fCOS  PAUSE PEEK  LLIST cPEEK 5 OUT c>▙%CODE 2n COPY ASN 2 INPUT g: COPY g=(y2VAL 5ATTR g>7TAB <> OVER 5:deOGATN %( PAPER  CAT  COPY g <>▜%!qbLEN  TO +5NOT i 1ASN &o" RETURN gPIx PAUSE  INK NOT E RANDOMIZE g-@ GO SUB  %oPI%g" NEXT O CLOSE #A RESTORE TAASN  AND  8+ AND `8 AND 8gE1 AND @8 DATA 5▙<(v[K]5VAL <  LINE ▖ [R]5 CAT (%▖cO(%"ASN g▞5!LEN c▜@ BRIGHT <= ERASE <> SGN  %PI<>CODE ?0SQR U( GO SUB  RETURN ( LIST >SE2sh/t/0 INK [T]yh LLIST  RESTORE 2^h:ih= LINE ACS iy2hCODE b$Lh$% CAT  READ $ATN %( INK  CAT ih ▘$6+5NOT 0j 12$hh$U CLEAR i/2chb$ jB$X$1A$s PAUSE $i0[R]CHR$ $h▞▘$F<=<<>,:"$m$,@SQR [C]$PISIN $ RUN 2$C%:ef-/%(EeNOT  GO SUB j2▙f:O= LINE WyZ(W[T]5"@f<>4.tf.k/2[T]f*PI%o&0 D.~.gf++&++J/,D+5g<(/[S]5COS <  STEP  THEN 5 CLOSE #($▗&ECfNOT 7k[C] LIST @> COPY 4EXP ft4CODE GvTAN RE[F]AT NOT [J] #SCREEN$  2%TAB SIN  LIST 4:▙FANTASY2 BY RST7/CB/PSG 9-1995 COPY USR Q[M]▘PEEK OLEN g5BSCREEN$ ▜;[H]ASN [L],w REM ][J]7*7#`TAB 0eEXP  REM ©cEXP   wATN G%TAN 0$O`TAN  PB LIST F+! BORDER ©`EXP SGN  !ATN EXP © gCOS TAN pppppp!SIN VAL TAB VAL SIN [Q]%%ATN (LN &4uSGN SQR EXP ATN TAN ! READ Ku LLIST EXP   BORDER cEXP  LPRINT  REM %! DATA `[A]@dATN w LIST  LIST 8sdASN `W0cTAN w`0▝ LIST VAL 08b1*TAN /:ASN COS $TAN !TAN SIN VAL =5LEN %SIN "%!SIN [F]SIN TAN VAL SIN TAB VAL ATTR TAB FN  RETURN - RETURN POINT 0eASN  REM ©dASN   " CONTINUE  IF 5~SIN 0$O`SIN  %(ATTR `$FATN  RESTORE ` w4@H$D$dDV n%EXP  LPRINT AT % LLIST `EXP rEXP #2[N]0%EXP EXP  BRIGHT  LIST / LET G LET [R]0 RANDOMIZE 4 LET   INK %/FN 6O`FN   FOR /PB LIST F+ NEXT d4-0 POKE D:@ POKE  LIST  POKE DINKEY$$IN  LPRINT ATN EXP SGN USR SGN / OR TAN ATN EXP SGN USR SGN E REM Y REM [N]0 POKE 2 GO TO   PRINT 5~5INKEY$4O`INKEY$ *%O[P]` SAVE 2 GO TO o` R)"?b?Q POKE EXP RND DRAW COS "TAN #TAN ASN #TAN  TAN ATN EXP SGN  FORMAT  CLOSE # OVER  LIST P LET C FLASH [S]0%!VAL$  FLASH INT   &wAT G"$&PB LIST F+8 FLASH %INT ABS  FLASH eEXP "INT !LN INT © FLASH TAN ASN LN  FLASH ECOS LEN VAL$ LEN COS [Q]%%LN EXP &4EABS SGN INT LN ASN 8 FLASH %INT  LLIST INT  FLASH %INT  LPRINT  REM  FLASH [A]@dLN w LIST  LIST 8sdACS `W0cX RUN [A]▝ LIST VAL 08b1*ASN /%TAN $ASN  FLASH EASN ACS ASN COS LEN %SIN %COS 8 FLASH COS  FLASH COS ASN LEN COS VAL$ LEN AT VAL$ POINT  INK T INK [O]0%*SCREEN$  FLASH ACS   O`SCREEN$ *%2PI0$O`PI*%K[Q]`$!LN  RESTORE ` $DT.6Y$dD_ LIST  STEP 5 DRAW TAN "ASN 4 LOAD ASN  LOAD  MERGE ASN  ASN LN INT ABS STR$ ABS LN ?ASN ASN LN INT ABS STR$ ABS  LIST J;5VAL `G[F] LLIST  OPEN #BIN 7INKEY$7x%I e LPRINT  MOVE STR$ IN [S]PI▘7s@3 LIST ATTR e LIST  LPRINT [Q]5VAL G[Q][A]p REM  CONTINUE  !PI▗VAL$ ▗? GO SUB VAL  STEP FN a STEP VAL$ [F]!USR "TAB u OR  MERGE STR$ xLEN   PLOT  NOT  DEF FN u>Q OPEN # CLEAR  BEEP )! CLOSE #c GO SUB VAL  THEN z USR >S GO SUB STAB u2POINT uCODE 2 FLASH c2 LLIST c<> CLEAR  COPY > GO SUB yIN >SQR  INVERSE !▚ox OR  INVERSE ~ AND ▖ INVERSE #}| AND /USTR$  CONTINUE ! OUT SQR LEN  GO SUB VAL !©SQR ! FORMAT 0s#r# STEP VAL COS  RUN !▘~% THEN  LIST z%COS w#[P] BEEP ![I]CODE [K]CODE ,KWEXP KMQ PRINT { AND _  GO TO ! RUN COS  COPY COS  OR  LIST ASN  RESTORE ATN  THEN # CLS  LLIST ATN  RESTORE P MERGE STR$  READ ! RUN TAN ASN  OR %%F7% BORDER E IF  LLIST  RESTORE ATN #o@%STR$  LPRINT MwTAN ~/# RANDOMIZE ?▟@ OR !FxGLuSTR$  POKE  COPY [O]▟(]U*[K]x STEP [R]COS "O*[Q]POSTR$  BRIGHT >12CODE [S] INVERSE !( OR !STR$  RUN 5 BRIGHT x!<=  STEP  5ASN x' U5 STOP [T]▚f POKE @fEL▟!POINT +U 6 LLIST #6"  LIST  MERGE >G_[D]W  GO SUB ATTR P[H] OPEN # STEP 1xPOINT ▚7▚DSCREEN$ ▟@>G2x STEP xN[P]>P@U[T]>N0!oAT [H]AT IN e.CODE pAT `▜( ▜RND REM ![R]LEN USR  OVER  OUT  PRINT  RESTORE [R]SIN  GO SUB VAL NOT ▗6~#6,2[A]PEEK Uy NEW  pIN  SGN % ERASE <> GO TO y0de INPUT <> GO SUB Y GO SUB QEY INK 1 CONTINUE 5 RESTORE  MERGE  OR  PRINT  INK P[A] INK ) LIST #UCODE og1? FORMAT  RESTORE 7 MOVE  RESTORE POINT  LIST K{7U INVERSE  LLIST  INVERSE  THEN  AND [A]5 OPEN # RETURN `r RUN % INVERSE #Ou NEW w#y/ NEW ▜ AND  AND w<> GO SUB [T] INK PIPCODE  INK  !"$%&&'()*++,,--.I/.©[P]IN *)('&&%$"! k[KIK[k5SQR !$&')+,l g-,+)'&$!^ IRND <# LIST < LIST <<Q COPY 9▚▞[C][F][I][L][O][S]RNDPISCREEN$ TAB VAL COS ACS EXP SGN PEEK STR$ BIN  AND <> THEN  DEF FN  FORMAT  OPEN # MERGE  BEEP  PAPER  BRIGHT  OVER  LPRINT  STOP  DATA  NEW  CONTINUE  REM  FOR  GO SUB  INPUT  LIST  LET  NEXT  POKE  PRINT  PLOT   SAVE  RANDOMIZE  IF  IF  CLS  DRAW  CLEAR  CLEAR  RETURN I COPY  RETURN © DRAW  CLS IN f RANDOMIZE  SAVE  PLOT   PRINT  POKE  NEXT  LET  LIST  INPUT  GO SUB  FOR  REM  CONTINUE  NEW  DATA  STOP  LPRINT  OVER  BRIGHT  PAPER  BEEP  MERGE  OPEN # FORMAT  DEF FN  THEN <> AND BIN STR$ PEEK SGN EXP ACS COS VAL TAB SCREEN$ PIRND[S][O][L][I][F][C]▞▚|yvspmjgda]ZXUROLIFCA>;9641/,*(%#!k;I;k2!#%(*,/1469;>ACFILORUXZ]adgjmpsvy|/5ux{~▛▙[B][D][G][I][L][N][Q]"AT VAL$ VAL COS ASN ATN EXP SQR ABS IN STR$ NOT  OR <=>= LINE  TO  STEP  CAT  FORMAT  MOVE  OPEN # CLOSE # MERGE  VERIFY  BEEP  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE  INVERSE  OVER  OVER  OUT I LPRINT  OUT ©[P] BRIGHT  FLASH  PAPER  INK  CIRCLE  BEEP  VERIFY  MERGE  CLOSE # OPEN # MOVE  FORMAT  CAT  STEP  TO  LINE >=<= OR NOT STR$ IN ABS SQR EXP ATN ASN COS VAL VAL$ AT  SAVE [Q][N][L][I][G][D][B]▙▛ IF 5~{xu CLS ukheb`]ZW DRAW UMJHEC@  CLEAR U20-+)'@ RETURN u COPY K PAUSE %uBU')+-02"U@CEHJMWZ]`behkmy'6l"% 9USR `USR 0I)%|900|Y``EE RETURN  DEF FN  VERIFY  NEW  RETURN  SAVE 85 RETURN  RETURN  LPRINT @ NEW  RUN {(ATN  LPRINT  RETURN  0@w0(▞] ` [B]g80© ▝oz h>g▞x NEW  NEW E DRAW  DRAW  NEW  DRAW [I]l[I]▜IN 0@[I] LN  LPRINT [K]0[Q]<>)8 LN 5 GO TO  SAVE  GO TO  NEW  VAL  H RESTORE ▘ AND  INPUT  RETURN  VERIFY  AND USR  NEW  PLOT   RETURN  INPUT  NEW  CONTINUE 0@p0P5 REM  DATA  IF @▖< SAVE  ▖X{ NEW 2 INPUT |E AND  AND  VERIFY  RETURN  INPUT " | LN /0 RETURN XP RETURN 5 BORDER  REM I COPY !w6# THEN |( RANDOMIZE !©6 FOR } AND o0 SAVE >P OPEN # CLEAR  CAT [F]@@u GO SUB VAL 7%65 COPY 6? BEEP 5USR PPI_>W0)[H]©8 NEXT >; GO SUB G GO SUB ^ GO SUB s FORMAT VAL  CLS v GO SUB _ONOT d▗# STEP ▗NOT k▗0s0z UEXP CHR$ [D]▗>0#CODE  GO SUB O RETURN <>~ LOAD  ▗ PRINT [E]LEN >C GO SUB yB GO SUB [T]<<E,,#"[A]ASN e INPUT  OPEN # CLEAR 2 POKE ▗[U]y GO SUB _EIN COS 1[R]LEN } RESTORE 1wTAN  LET STR$  MOVE  LLIST  INK  RETURN !wa}> OPEN # RETURN +" NEW FN  INK  RETURN 1 RUN COS  LET STR$  MOVE  LLIST  INK ! LET  COPY LEN [F] RESTORE > OPEN # RETURN :/1USR  STEP IN COS !E[J]!@~= NEW 2SCREEN$ } AND o2 IF FN ~o[F]▜▜ AND [R]o DEF FN LEN [F]g RANDOMIZE [Q] RESTORE  GO SUB s! RUN COS wTAN  INK  THEN  OR  IF POINT { AND _2 AND POINT  GO SUB ATTR  INK ▜[F] RETURN  PAPER  DATA POINT  FOR NOT  CONTINUE POINT  NEW ▜uO"2▟ FOR /ASN [F]▚>G2!CODE gEO NEW  INK " LINE SCREEN$  FOR NOT SCREEN$ xPI LINE %' MERGE ":▟ GO SUB S=▟y/ NEW o&©!2%1 RUN TAN gU MOVE ~[T]SIN w, LIST >[A]!CODE  OPEN # RETURN ![S]▚~ VERIFY  NEW  RUN  AND wg>USR  AND 2CODE VAL$ _ THEN ?Uo6,6 $ PRINT &▝>USR  VERIFY 2 GO SUB VAL$ o~ NEW  RETURN  AND [T]: CONTINUE >%CODE o LOAD ~O RESTORE  NEW  VERIFY  _ COPY y NEW oO&D))/e RUN TAN "mAT C>W OPEN # CLEAR >ATN  LINE  FORMAT CODE =2yCODE  RETURN 08wNOT ;VAL ▜_CODE W!©SQR  RANDOMIZE  LLIST ]w,)Ek THEN SGN  STEP  E RESTORE 1WEXP xLEN > COPY CHR$  LET CODE !_" CLOSE #7PI%" MOVE CODE k#f% MOVE  GO SUB sg GO SUB CATN ASN >P OPEN # CLEAR ! READ  THEN ~ LINE VAL 5NOT VAL ~[Q]#" COPY CODE ▜o&))>▝▗g FOR  GO SUB o THEN SGN  RESTORE  DRAW $ LOAD ><2<VAL &o~ 'ASN ) FOR g. THEN < THEN  GO SUB R|9 RESTORE  OUT SQR "VAL [S]!+|ASN CHR$ {duUSR "[A]VAL >Q2[D]_UNOT VAL "2"b%u>Q THEN |CHR$ [Q]VAL &OeSNOT PIVAL  AND  OUT ?52[K]▗ OPEN # CLEAR CODE C GO SUB yB GO SUB [T]<[Q]e"[O]▗#>1^© FLASH  RETURN  PAPER [D]▗ GO SUB _ , OR !C GO SUB iB GO SUB a- PAUSE  DATA VAL   POKE  RESTORE  COPY Z RETURN Z COPY 6 GO SUB LN !>= GO SUB  BORDER [G]©©USR 0%IN ABS ACS Euw# IF 0 FOR ! PAUSE  COPY SIN  GO SUB VAL  FOR STR$  MOVE   PAPER !C5 RETURN RU FOR 6NOT #6RNDLEN #CODE G CLS v>X OPEN # CLEAR  INK  RUN  CLS 5ZU RETURN NOT  INK 5 GO SUB _ INVERSE [B]E GO SUB VNOT ASN  GO TO !$| NEW USR } AND  o CIRCLE | VERIFY g<>z{©%_ CIRCLE z©W<>O NEW ▜▜ AND  BORDER o DEF FN COS [F]g RESTORE y NEW  AND  BEEP   DIM <>[Q] GO SUB _'' COPY  CLS %©<= DRAW u@lUPWu*@▘(SCREEN$ FN WuFE( DRAW  PAUSE 05BIN `[O]0(5d~Wu(C AND ▘4 RETURN WeBAT2E COPY [S]▖bPU0e*@SCREEN$ 6FN Zn/ READ n0▘▝85765 W 6`G@  LIST @F INPUT  COPY  LIST  VAL$  COPY  PAUSE  PAUSE VAL$ USR  SAVE  PAUSE  DEF FN  LPRINT  PAUSE  LOAD  SAVE TAB  PAUSE  LPRINT  LOAD  DRAW TAB  SAVE  LPRINT  LPRINT ▝ DRAW 1p 5? COPY  PAUSE  LIST  ▝ RETURN  DRAW RI COPY ▛ f VERIFY U) COPY  DRAW  INPUT W COPY  PAUSE 0 LPRINT FN %UU %[F]UP[O]LN 0>UQ COPY T?VAL USR uT? DRAW © COPY  LIST WPVAL$  RANDOMIZE ▘%5? COPY  CLS  PAUSE   LIST  PAUSE @O2f DEF FN [F]) COPY ▞PI COPY ▖ STOP  LIST %SCREEN$ SCREEN$ [T] COPY %SCREEN$ FN  PAUSE *SCREEN$ POINT  COPY  STOP  uFN  COPY  RETURN © COPY  LPRINT ?B IF  STOP CHR$ {BIN 5© COPY  RANDOMIZE  POKE   LPRINT  RETURN  IF s9 COPY  RETURN B`▞2 LPRINT  DATA S$ OUT BIN  BORDER UU INK  ERASE $%STR$  COPY  LIST $! POKE %0~ PAUSE (< LPRINT  RETURN ? PLOT  @BSIN  OUT 6 OUT  AND SCREEN$ T[E]▚"|>E© COPY  BORDER  COPY  DRAW *© PLOT  %a COPY  SAVE  CLEAR  RETURN  PAUSE Y COPY  LPRINT 6 LPRINT  OVER  POKE PdSIN  OUT 8 LPRINT  OUT PEEK  RUN 0ATN D OUT FN  CIRCLE $>PU%@ ERASE UGD▞* PAUSE %G COPY  AND  IF FN  PAUSE X LPRINT  OVER th COPY V DEF FN VZ}*4PEEK LN "2SCREEN$ ATTR  COPY SCREEN$ [Q] PAUSE  FOR SCREEN$ [Q]CHR$ ]SCREEN$ F▞*[K]!% CAT  COPY  NEW  DRAW  PAUSE CHR$ : LPRINT 8 DRAW @H LINE XZ LPRINT SCREEN$ ▚@|t TO USR    FOR AINKEY$B]>I COPY $ PAUSE [P] DRAW  LPRINT  CLEAR  LPRINT  PLOT  [T]< LPRINT  COPY 'L LPRINT SGN eL COPY  LLIST 4= COPY $<>INKEY$IN 2 LIST )([Q]CHR$ CODE >?I COPY $J!X[M]^P b@VAL  USR }G RUN i COPY STR$  FLASH  COPY ! COPY  RESTORE faN BRIGHT %UO) COPY % CLEAR  COPY  RANDOMIZE ,[S]▙[S]? CLEAR [Q] COPY  [P] CLEAR  f RESTORE  LIST  % CAT  CLEAR  DRAW ) COPY  PRINT pSTR$ SCREEN$ xRSQR ^©I COPY b[Q]ZA9 COPY [K].▟ FLASH  PAUSE ▘[S]F}RNOT [S]2[N] LOAD 2[T][Q]SIN @ b STOP ;[P][C] STOP VAL `=[Y COPY  SAVE "SIN ^TY COPY  OR bCHR$ >0[K], THEN  RANDOMIZE ▘▗__ COPY 5© CLEAR  COPY  CLS  PAUSE USR IN R POKE $ OR  DRAW TAN  & INVERSE  CAT  CLEAR 4▝ OR TAN `;Y COPY  LET  POKE ^FN Y COPY  LINE  POKE [P] CAT i COPY B DATA [T][C] SAVE TAN [E]"[Q]b PAUSE  LPRINT 0f POKE  OUT  CLEAR t6▝ LINE TAN `,;Y COPY  STOP USR JB^INT  COPY  RESTORE bNA^ IF rB[Q]@_W [K]H CLEAR f LPRINT h_*} NEXT  PLOT   LPRINT  OUT  SAVE R RANDOMIZE  CLOSE #4` LOAD 8_DFN ` COPY  LLIST  ERASE %SCREEN$ FN bFN  ERASE 0[K]H"CHR$ [Q][S]t2 POKE " POKE  % OUT  CLEAR  RETURN (RND SAVE  POKE . INVERSE R*PEEK  LLIST [Q][A]IN BIN USR P{h OUT  LPRINT VAL$ SGN (bX"BIN `4, DRAW  POKE Z LPRINT <F SAVE (>= IF  LPRINT R POKE ,` LOAD 8_ OVER $IN T ERASE %*SCREEN$ [R]4[K]<>bL LPRINT  STOP CODE L LPRINT 2 POKE ,LN l LPRINT  IF  LPRINT 2 BRIGHT 0@L`AT  PB[Q]/6USR / OVER (IN lUSR 9 LPRINT T^ RETURN .j LPRINT 9N=+aTn]!ATN %© COPY >~▙ OVER )`6G▞>H~VAL !%p@VAL ^)( LPRINT 8 ERASE [J] LPRINT rPI|+aANL^[Q] ERASE !(^[O] RETURN )0`[M]PI[S]^)8B( PAUSE FLEN N MERGE  LIST . POKE EXP .A) COPY  LLIST [E] ,{ LIST ?[S]STR$ a44bUSR $[U]_[S]i ERASE !T LLIST  DIM B$)? POKE USR l LOAD  PAUSE  SAVE  PAUSE :A) COPY ▘[S][Q]XSCREEN$ BIN STR$ USR !2B*[S]|▚[O]` OUT   LPRINT [M] POKE  B[E] LLIST 2 STOP  POKE  RETURN  y PLOT  @Gh LLIST PTAN IN .| LPRINT @!(!HCHR$ N$ LPRINT  LLIST  VERIFY STR$  OUT & LPRINT $' ERASE [U] OUT ACS YKNOT & SAVE ` COPY  SAVE  LLIST [Q]LN cIN *.|>IN CODE V COPY ▘CF LPRINT PEEK INKEY$ SAVE  LPRINT t OUT $ LLIST  SAVE  OUT ▚ COPY  POKE  LIST   [O]Y COPY  LPRINT *STR$ SCREEN$ cIN I COPY :STR$ TAN STR$ SQR  COPY 8 PAPER [S]{d!: LPRINT  COPY  STOP |*<> IF  LPRINT  LPRINT ` PAUSE 0[O]^&STR$ [O] LN POINT ~>STR$ ACS STR$ IN IN [Q] COPY CHR$ [Q]?*bT COPY >=0!4& LIST l: COPY  DRAW  LPRINT <@ POKE  INK 7Y LIST   LIST @` LIST   LIST   LIST @{ LIST @I[O]I<>0 0 p READ    LIST  P LIST  R[Q] @ LIST  rB@ LIST  (▗` PAUSE [E] LIST   TAN USR T LPRINT ++  WATCHA ! MIGHTY SLAVIANS FROM -PREST BEEP E-) [F]BACK IN YA/ND WIZ OUR NEW AMAZPIU' DEMOI  OR KALLED <PSG-W BORDER ES> ORw RESTORE HAPPY NATION IICODE i M COPY E_F?M0!RNDNEXT PAGES .9  LIST  NEW EXP   OR KREDITS LIST: DIM  MA LPRINT  OR ORGANAZER + T▝5AUTHCODE ).K BEEP eO/MKHG/ BEEP uIDEAS/KO?/ATN uIZE TRAKe0.5 GFX).eRST7/KB. /UGRAFIXhKE0QPOINT .STPDT/ OR FUEL SUPPLIED.uSNB/LOSWD DEF FN ERIBUT LIST ,9.R CAT Y A PLOT  A ERASE %TER2[B]AL[R]5EETZ[S]5KOOL;ACS S. T4, HOODLUMO[P]O[H]YUARADOXOL OUT NS FORMAT $0" EVIRTURNDDREAMS/FA▜LEXP ,[U]5MPLEZESANITk USPACEB▚S©eMAD ELK5BOMB7%AND STOP %EDA_%ETCZ_%/]^^[A]  / /6 />P^ ; /^ ` '▜@?<?)0E^CODE LpWa h@t/_` y-[D]/pE*95//Y-6KI-<> %A G[U]5 2 B5KINGEXP  [J]*wLAMERZ MUDIE<>*i 52DAY DEF FN 5SKOWP5 PLOT  n5SOFT LOAD  PLOT  EGO FU▟%' GHS_+%FFC" READ  RANDOMIZE .H LOAD EE SEX_TN[S]uS-T-E-P- PLOT  aPEKTROSHI CAT  MERGE EATORSOLDWOMAN RANDOMIZE . RUN %ILEP75OTIK CLEAR 'USR USR *&U POKE INT pEY BBS*WORK TIME - UNKNOW6[A] LIST .X{ NEW [P][J]*%REL[I]EE DATp/RND5MEGA[R][Q]▙ LIST .G LIST 5S/SY LIST .Y C PAUSE ACS F LLIST [R]UX/NETSSCREEN$ iERUSHQT  +007(095)1686772&[K]Q*i;%UKR.5KHARO0.[F]572)688219SIN %XIM [C]%BEL/nK* /1.5SECR LINE IG5 DOC*[C]O.EKISHEBIN 0[F]422)568355SCREEN$   INPUT  BRIGHT L GO SUB +5Y OTyg%REG:7w5ADQU!!y ▙BCFIfB[T]l▝[I]eCTRUM-CMM BEEP G 8*RND-SENSIBLE LTD.ITALERCA +@.%NNOSTR$ %2 H CONTINUE B ADVENTU;@Y5GOLF. OR  F  /`5SOCC+  OPEN #UCRUNCH WIZ<]+P INK &E▘JF# U*c_`T@-[D]`I[K]:▟0Q*]-:[K]] STEP  READ RND z POINT *@:[K]:^[H]P,, ^`OREVER▗" RESTORE  COPY  NEXT  STEP R;;STR$ ![H] FOR !f/Es#r!{0▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~ NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} COPY 5LEN O))©g_ LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w GPIE RANDOMIZE VAL$  NEW ?F#. CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>NOT  LET <>▟8?800 !!! THEN  ' STEP 2X@▝@▛ RETURN  COPY <>▝ COPY  RETURN [R]▝b STEP H▗ SAVE  RETURN  k0'▝▗'qSTR$  RETURN  SAVE  INK ▘ BEEP NOT ASN  FORMAT q▝<STR$ !y01▜ebQ%g*Y▝▗USR ▞1 LET 3▞▝▘STR$ ▘▚VAL$ Yyiyj▝>ZG5 SAVE RzW+VAL I BORDER 2a SAVE @jPW>=USR Q SAVE POINT ~`/▘STR$ STR$ K2PEEK 3"$N`X© LIST USR ▜[M]0 2 PLOT  ▚USR  LIST ©+";H;@▝[A]▛© COPY STR$  CONTINUE USR  COPY ©3Z INK R▝NOT 7▝i@;#X DRAW  COPY 0m3▜▗ FLASH #y LLIST kC)0ABS  VERIFY USR [}{`@NOT ( BORDER  LPRINT yUSR  FLASH ▝▗▝RSTR$ ▟ABS ▝|@z/ FLASH LUSR ▘STR$ NOT USR <= CIRCLE edLN }A<= COPY <@@!▝NOT  BORDER ~%v`@ ERASE p FORMAT ©^cUSR  LPRINT  LLIST  LLIST DhL{ LINE zZ▘ m}▙_USR ▝ FORMAT NOT %o8©"▝~ASN e- OUT 5 BORDER <[A]9wu}iu[A]|~x USR @.CODE  PAPER | CIRCLE  COPY  POKE ▗ RETURN  LPRINT  LPRINT [O]NOT CHR$ 8 VERIFY ▖USR  NEW  PLOT   RETURN  INPUT  NEW G PRINT  DRAW  DRAW  NEW  NEW  OR x poWRND@o▝ RETURN H FLASH ▜{RND AND  AND  VERIFY  RETURN  INPUT <>▝ DRAW Q'<=G RETURN CHR$  DIM ` LET [O] NEW  NEW  LPRINT [H]e!NOT  LPRINT `USR Q1)@p CONTINUE BIN  PAUSE 8pA▝USR < CLOSE #QWQ@[Q]O POKE ``& NEW a/x ▘ DRAW  SAVE ) STEP z  THEN ([Q]zHz@ MOVE *O▘ RETURN  LPRINT y@STR$ xCODE *7%USR  COPY gq LINE ▝ OVER  LPRINT  RETURN  REM  DATA  IF {@U ERASE 8HyUSR <>+ CAT xFN  READ `z CONTINUE {o MOVE < |H{ LOAD  INK {>=|CODE we:USR |>=tCODE  FORMAT w%xy LPRINT ▜ OR <=$ CAT ▚▘ AND  INPUT  RETURN  VERIFY  AND }@E TO ,|G' OR <@{ CONTINUE L LPRINT  INVERSE }[H]NOT ~▙- CAT USR ▘~@ LINE 5` STEP |▙e~ DEF FN }/>=GUx@}o<=gLN %CODE  COPY NOT 4▝STR$ = LET . INK  INVERSE /9/▝I} MERGE . LLIST %|V▞D[R]X/[Q]x@ VERIFY /[A]@▝ LET }Q~I AND P@ OR ©yATN u`LEN my©aeUSR /[B]ny|[R]WEY?1SW LLIST Wua@6▞SEXP ©WQ▗ NEW  GO TO  SAVE  GO TO x PAPER yUSR NOT XUSR ▝~ LLIST BIN ! MERGE 7LEN y OPEN #jz FLASH x@ BEEP [H]%▝ DRAW © LLIST UxUSR AHW THEN MW OR z LIST  OPEN #/[R]><>LEN ©9{&7A&©Q FLASH 30#[Q].Q▝i OR  OUT UCHR$ O<>B/ASN ©I DEF FN (h(p(xYg COPY u---[A]o RANDOMIZE gASN NOT */I0gy© LLIST m5USR X FORMAT  INVERSE  RUN EFN -VAL hG5.h.p5-- G*E CAT  OVER G RESTORE 5G5GO[L]%▝V ▝G▝F(@ -@) .!0`7%( 8wed fx [M]▝O `(SCREEN$  COPY GVAL %r LOAD STR$ ATTR 5 DEF FN  DATA P'U RESTORE P BRIGHT GU NEW PCHR$ /E9[T]9 FLASH |8 CLOSE #M MOVE RLEN 3^5^^PP" .X ERASE -XL8USR Wq'PIa![><BB~|B▜5@@B<xD©Dx%~@|~@@  N  78>>©8EDHpHDP)@8%BfZ (EBbRJFhp (n0PB CAT @85<@< RETURN )h0<>` INPUT ▞D[P]'i"[E]_c,[S]xAT D DRAW ▛!CODE INKEY$ FOR [C] CLOSE #S INPUT S])S ERASE 4<LEN uINKEY$ OVER I CLS ▟e PAPER g$5- CLEAR ,ZU IN D[U]D LIST  COPY  ERASE +> RUN tzBIN ▗[I]▗ INVERSE  PRINT 'ABS  ERASE  INVERSE .▞ MOVE 5[R][P] INK & VERIFY [I]NATN  OUT PPIx CLOSE # OVER 9e[ LIST o[E]!E[C][U][L]CHR$ PIp POKE I CLOSE # MERGE Y[R]+ATTR [D]▞USR VFASN CHR$ [Q] GO SUB PEEK 9 CLS POINT P7W8KEZ%<>[F][S]X CLEAR LN 6RND RESTORE ▚[A]s▚ CIRCLE [E] CLOSE #%CODE }SIN . NEW [R]//CHR$ x INVERSE > READ ▞s, LINE [B]TAN [I]@'ATTR USR INKEY$ CIRCLE POINT 3 CONTINUE X[P]USR q"r>P SAVE hqBu REM u-C GO SUB TAN  GO TO 4▛.I NEXT K^;H08 NEW c FLASH [P]j GO TO > REM $ATN E VERIFY  GO TO ~TAB _S5[L]$ha[C] OPEN #[A] INVERSE [L] COPY wPEEK CODE  DATA  CLS PEEK [C] INVERSE 5[Q]I/- FOR  READ USR  RESTORE lUSR  RESTORE  FLASH vHPI ERASE @▚ BRIGHT  POINT m[G]#m GO SUB  RESTORE  FLASH /[D]n SAVE @ IF  AND  REM [M]POINT @ USR E[Q]1dd] DIM /[E]ABS fz GO TO  CAT >[E][E]:,[G]vy$ASN [L]>=;&6|m DATA  LIST lPEEK [G]V>] GO SUB v[G]TAN  FLASH F[G] OPEN # LPRINT  RANDOMIZE "9MiI[Q]VAL$ ▘^PIK*nm READ  FLASH  VERIFY [C]2 OPEN # POKE  INK  LIST ACS 9USR J(qJmEoNOT V*^STR$ /.vVAL$ TAN  OR ▚ INK HFBINT  BEEP | PAUSE  MOVE ASN [F]▟uFN fHd,[D]BCHR$ )SGN (▙) LINE I DRAW ?6ZrSIN TAN  OPEN # FLASH ,$c LET d©[B]}F[O]▛Z#▖ LPRINT  OR [S]X$ BORDER  CAT  READ >=$ LLIST [F]HP8<>CHR$ ▙TAN vNOT mUSR  STOP 0▟ FORMAT LN ▖INT AT VCOS N=k NEXT /~SIN J[L]POINT oTAN [C]t PAPER KZP▗<>▚INT 8:~b!aamATTR ;▜:]RXR[C]9= NEW [[E] AND $ RANDOMIZE  CIRCLE TAN VAL [F] STEP USR [A]i CAT Z STEP  NEW ATTR AT n+m▛ NEXT ATN F5[[E] TO [D]oZ NEW ▝ RETURN [ SAVE ?[E]S LPRINT  CONTINUE ,(EXP [R] PAUSE  CIRCLE  NEW [I] FLASH _vPEEK [Q] REM ▗ POKE ▟NTAN hL,[M]$c+emay▗ CONTINUE SCREEN$ ▝BIN t+ GO TO [N]LEN mmS[N] STOP ▘ LLIST 3! Q STEP +^[E] VERIFY D DATA [I]INKEY$ CLOSE #SIN D$ASN %▙[I] MERGE [O]+> CLOSE #[U] DEF FN  MERGE  PLOT  >0 INK  PAUSE  MOVE .SIN q|ABS [G]BIN [G]?NOT COS [S][I]LEN  STEP  PLOT   BEEP LEN [L]▙[A]IB# IF ©iI[B] LIST I THEN V PRINT 8 VERIFY POINT &D LIST p▖PIp5CODE gPOINT !VAL$ VD/f[C] GO TO  STEP  AND  SAVE IN fjABS  RESTORE K▛^ MOVE [C]4fgfTAB ! POKE dZ CONTINUE b[?U LPRINT [H] READ [G][I]0 FLASH [D] 2 LET  POKE l CLOSE #)<> DATA :/[T] FLASH J-. FLASH GEXP N▝ THEN  SAVE  LINE y THEN WTAB EXP e[G]EXP POINT ▖INKEY$%FN 5o+O[D] POKE [D]POINT [G]USR [E] ERASE [U] ERASE +ATTR @~7 LIST 1IILEN ▟[M]5TU;>=Jy LET >/ AND M[O] LET ACS >=>=CHR$ ASN JE[C] STEP  OPEN #:AT INT x9?4SGN  NEW #[E]*[I]QJ DATA ATN ▞[ CLS % LIST [T]}[Q]▜ DRAW FN ENOT  RESTORE 1o▞lldRZ11▟mhl[D] ERASE [ OUT 9{:4[F] NEW [G]O!6VAL$ ICOS  PAPER  DEF FN B CAT VAL FMIAT ATTR BIN  GO TO  COPY 4/#▗ DATA ▜USR  LIST jVAL$  BORDER ▜4ACS  DATA IwVAL$ y OUT <" DRAW [K] FORMAT IN v RETURN [D]5 OUT ) LIST z0jSQR  CAT +E? POKE STR$ = CLOSE ##[O MERGE SUSR  RUN TAB SCODE  RESTORE } FLASH wWSGN RASN 8CHR$  OR B[U]J<=| OPEN #. RUN  RANDOMIZE [Q]3 OVER = OUT [E]i PLOT  © INVERSE  FOR Z2TAN  SAVE oK[K][A][L] LINE :? BRIGHT  BEEP FN  REM  AND 4[F]d ERASE U/h LPRINT e[C] STEP N VERIFY  READ  FOR ATTR R[B],M1[F] OPEN #zdCODE  LINE  SAVE  RANDOMIZE vaSCREEN$  ERASE >& MOVE SIN USR ~LSGN LEN [F]ATN ;YFN r PRINT [S] PAPER y DATA [C]0 PAPER pPOINT ▛&u▙ THEN ]FN  LET BIN  THEN ▛NQOCODE [D]# OUT jUSQR O- READ [P]d[E][J]}" COPY INT [H]-[A]P CLEAR g©ASN  CAT  SAVE  FORMAT Sv% RANDOMIZE ASN  LOAD ASN ABS 8[K]@LIN  RESTORE  STEP c~ READ [M][M]F[G] RESTORE DURSQR  GO TO  AND  POKE [U][B]▗S[U]+ LLIST  PLOT  ps GO SUB  BORDER  FOR POINT INKEY$<>|[C]JUSR [C]rtVAL$ BIN  > NEXT  COPY Xg[K]RND FLASH  LLIST DHB[E] [E]LEN  INK  CIRCLE  POKE ] MERGE ,5od COPY l|INKEY$[A]POINT 6SGN V9[K] CAT  CAT RND LINE  THEN [U][C][S]0[U]6A DRAW [S]SQR PEEK U▟ PAUSE  LINE  INVERSE TAN LN ▗zc PAPER [Q][D] DATA !PI LIST xF[G] FLASH 7j|R LOAD cUSR  LOAD hAT 5s©a[R] DRAW J RETURN ZE[U]i▘~AT ATN  ERASE )y*[K]ABS |&[R]m_ IF EAT ▖ RESTORE i@ OUT  ERASE ) IF k FORMAT  DATA SIN  LOAD  READ SQR BCODE VCZSCREEN$ SQR TAN  OR >=U#RNDSTR$ IN [G] RETURN  VERIFY [U]HFINT  PLOT  +PEEK [C] STOP  DEF FN PI LLIST VAL ATTR e[U] RUN t▟SIN  REM <>>=PIk4[E]BPCHR$ >=ATTR Q2Ent PAPER *[M] CLOSE #/[K][G]Y[E]BIN $ACS  LINE  BEEP  MERGE ▚ CLOSE # PLOT  T OR  COPY SQR <>TAN u[G][C]LEN VAL sDEXP AT  FLASH  TO  LOAD ,▖▚ COPY 2 DATA l POKE $AT i ERASE [D]f STOP  STOP EPI5SQR  SAVE  IF W[H] STEP ACS ATN )METI3[B]lC BORDER MSCREEN$ BIN F LINE STR$ Q DEF FN % RANDOMIZE 0ATN o INVERSE YJACS  DIM ▛Zr CONTINUE ACS 0 MOVE  BRIGHT ▘ SAVE ] BEEP Q FLASH  FN ;ASCREEN$  RESTORE  CIRCLE FSTR$ rW BORDER  OR | CLS  PAPER SCREEN$ )[A] CIRCLE [D] FLASH  INVERSE E[O]-SGN >=ASN AT Hev PLOT  UASN U;{CATTR TAB ▖[N]1>ATN LEN [H]RTZ# FORMAT RNDPIk THEN ATN LEN i LLIST  PAPER 2fINKEY$[S] ERASE VW[Q]SGN SQR [C]q. LINE 5[S]nBIN  INK V[P]q OPEN #9$HEPOINT  BEEP   FLASH PIY IF  FOR  DRAW &CODE JE[J]0 FORMAT [P]CHR$ W' PAPER I28I6{49ACS >=A BORDER B ERASE INKEY$$ DRAW ©($Mp/ NEXT  LIST / DIM )& SAVE D<=Q CONTINUE PEEK [U] INK  BORDER ATTR ▝[L][H][N]▗ CLS "o STOP pL OR AT [N],%X GO TO +E[D][CHR$ 6POINT  LET INKEY$ COPY  RETURN  CAT TAB m ERASE  CIRCLE YFPIEXP PI OUT ACS [U] LET 4[E]USR SCREEN$ [Q] LPRINT  TO %STR$ AT 8 VERIFY _BIN  LINE  PAUSE 6"[M]81ZIN [C]|[P]0[H] BEEP <> RETURN d4LN INKEY$ AND CHR$ EXP  LIST 9 TO ACS  OR a▚F DEF FN f9LN 6ASN [E] VERIFY 9 MOVE CHR$ 66 CLOSE # SAVE c+ BORDER [C]%[C]YX▛▗ NEW ▞ CLOSE #SQR e ERASE  BRIGHT ▟ CLEAR i6nB LPRINT D READ ATN RND▞[T] BRIGHT  LINE <=▙-S>= PAUSE INOT WX9 FORMAT >=[J]▛ IF [U][D]▗ CAT  THEN  NEXT  DIM 1 RESTORE o▘>>[&[B] CAT ABS  COPY ▚ PAPER  Kmk[C] NEXT CHR$ n TO ASN [F]LVABS  SAVE QR7 IF i+ PAUSE ; VERIFY @([P] LOAD  ERASE GPEEK 0 CLOSE # RETURN )< BRIGHT Y[T]}q+o[A]1 LINE ? MERGE RNDGSTR$ IN WSGN [S] DRAW ▞s LINE  DIM  IF [U]w CLOSE # OUT SGN FVAL &USR  CLOSE #q SAVE xSIN | FLASH  VERIFY  OPEN #[C] PLOT  :CHR$ )QVAL 0j[P]q[U][R]jL/l[E]<># NEW Q[C] THEN 'XNv FLASH ASN COS [G]q FORMAT  PLOT  1<=SGN ▟x[C]" CLOSE #[D]iIN <=' OR  REM ABS + ERASE Q0vI FLASH RND▚@q PLOT   BORDER TAN  COPY [G]USR <>)1a COPY ABS  CIRCLE  PRINT ) PAPER SSIN d[H] DATA TAB mO OUT  MOVE  COPY s LET F$dZ LLIST [O] FLASH  PAPER  CLS 7Rj"M[Q]BIN su LOAD  OUT  INVERSE ©1 PLOT  4 FLASH EXP  PRINT PEEK W$[C]8[A]u RANDOMIZE g2 PRINT =[H]:LN i MERGE INKEY$i% DATA D LOAD [T]v[I]O DIM _▜~ GO SUB {yO<=[O] h LPRINT .0!BHqv;RND&Q DIM NJSQR VAL$  VERIFY ▝F'/[L]KkF*1jHv▛~ CLEAR TRNDNOT P[A]k▜j POKE k ERASE 8▜x[O][E]" RANDOMIZE  RETURN USR [P] LPRINT OLN w BEEP  AND {7 BRIGHT <=CHR$ 0Zm`▖rJL[E]▛| STEP  LIST A[U]NV)[B]lMCOS }8 LPRINT  COPY [H]TAB  CLOSE #/Kr RETURN  TO BIN INT ▚EXP )$| CONTINUE J CAT  NEXT st[P])<▖EVAL ( OPEN #a CLEAR 6SIN ATN USR lX9 DATA STR$ ▘[L] FOR <>BPOINT  VERIFY 6EXP  ERASE A LET 8! LIST q CAT [L][[E] DIM [C] POKE USR [M]P LINE  AND ▜6SCREEN$  VERIFY 9pCOS  CAT [C][U]=▙l READ  LINE TAN D[P][E]e& AND  GO SUB 6c BORDER  INK s NEXT F OUT [U][G]In-R[T]ASN tASN ▘$ASN ,kY56 OPEN #RNDIN  NEW &ABS [L]▗wpWpBQ FOR  LLIST j)▗ OR TAB p* PRINT PEEK EE= PAPER  PAPER  DRAW  PAPER [I]j[C] OUT  LIST  OR USR g REM ABS [E]#[N] CLOSE #[O] POKE /H MERGE  REM Is INK 9dTAB M THEN  ERASE $#ASN [O][A]▙ IF SZAT  BEEP jPPEEK  LLIST &W▜RND[U] CLEAR X OUT pfA LIST W ERASE AT VAL$ QRND- VERIFY [O]l6a INPUT [C]_ABS PEEK FACS  RETURN [G]COS <= DATA g LLIST  FOR INT [B]7Z4 DIM  READ ▛ FOR POINT $ATN [P][M]TAB ;FN 9LEN v RESTORE ABS L,V[G]R~ RETURN  PAUSE PIKi>=u[J] CLS | GO SUB F VERIFY a0[P]( CLEAR ASN N~ CLEAR  COPY # RETURN %k"B@[Q] CLOSE #[P]e BORDER Z COPY  COPY [F]g CAT LEN [Q INK  DATA a0+ FLASH PEEK m[R] RANDOMIZE =%m AND 4 FORMAT Y RETURN * STEP LN [B]^[P]E PRINT  DIM a/~p+E[T]S CIRCLE [I]▚ STOP &[D]fE THEN $ THEN <ACS L OR EXP <>Q LINE <LEN & I$ LINE |kSTR$ COS USR TEXP  BEEP BWSQR  IF  OUT  OPEN #ABS m[F]#▙ FOR  GO SUB M/[F]▖[R](H▛PdboACS  CLEAR [A]vSIN Q[G]F`PEEK 1x READ t>=/[B]IT▖▗▘ COPY &}.? GO SUB  SAVE  LINE u BEEP STR$ ▝iTG OPEN #USR  FORMAT  CLOSE #[E]>=U& PLOT  Z,n[A] MOVE ▚[G]T:$▜BIN [P])# CLEAR Y REM 8]RInI▖qKb PRINT SGN NOT >=E CLS  LLIST  LOAD [U]JLN  OR ,X"▟m[P]EXP ▗v SAVE ASN 1▜[E] CLOSE #RNDj PAUSE [U] SAVE [L] READ u CLOSE #m CONTINUE /SQR W<MG[P] PRINT Z LPRINT VAL$ FN  INK ACS  RESTORE ATTR  DATA o POKE  GO TO . LIST F TO aCODE JM[U]1[Q]ETAN [U] BORDER [M]▝tACS  CLEAR TAB -PI,ATTR  CLOSE #qYTAN ABS  SAVE Q BORDER  CLEAR BIN [N]▜I ERASE lMl▖IN  DIM  OVER ©[P]ATN PI INK INKEY$^O[C]89UCHR$ [P] AND  CAT ?U SAVE  PAUSE USR  ERASE SATTR [R] DEF FN (| OVER [I]SQR NOT  RANDOMIZE #lC|[A]SQR PINOT ATTR [P] BEEP NOT  LOAD COS COS NOT [L]IN  OUT ATTR USR 3IN L[Q] FOR 'VAL  Kw▖ READ  OPEN #NOT  CAT  CAT  OPEN # OUT BIN ? POKE  p?O SAVE  PRINT [G] OR  LPRINT  OR CODE CODE  BORDER  CLS ABS 5/`pPj▙PV@D* "HO[C] GO TO v OUT  TO  BEEP ' PAUSE  LIST  OUT LESQR p[S]ATN (RND[A] OR ▖URVAL  DRAW 70 DATA  xtRND[T]} OPEN #▘p[B] FOR B>% LET  VERIFY  VERIFY F LIST  INK 8^USR RND #" THEN  POKE N PAPER [B][T]NBIN Z©& READ [G]~ LIST ~ COPY ; DATA  CLEAR USR  CLS /T>STR$ V[P] CLS FOiC0yn CLOSE #G= FOR   NEW [E]4}▟:j$[B] LET POINT @ MOVE _PEEK  OUT M[H]▖rx<INKEY$L CLEAR ATN % IF ▚eEXP  RETURN y STEP h[L] OVER KlG PAPER C_ RUN  BORDER  OPEN # LPRINT  CLOSE # GO SUB KZ LPRINT sMn[M]▗nRNDUQINT oniCODE  PLOT  ZLSGN 5xHG BRIGHT COS V7[H]CODE  VERIFY  CLEAR [D]W NEW s CLEAR POINT  POKE  DRAW  CLEAR AJqPI[B]SIN t THEN NOT |[E]ATN  LOAD  DRAW ^ PAPER ▚ THEN [D]▛- RUN : ERASE VAL$ m/COS  DRAW /▗)a<=G Z-STR$ SQR  LINE <=[P] INVERSE qRKiCOS NsATTR RQ[I][C]oI+▘B STEP SIN  FOR  LET  DIM  CAT [L]~▙Jx.j DRAW  VERIFY  LET  AND (BIN  REM @PIEXP  SAVE [A]VAL$ [E][K]CODE  STEP R[A] SAVE [J]O LOAD USR ATN 5 IF  POKE EXP K POKE [J] DRAW Z }5CHR$  OUT [L]HG<=| MERGE [P]8 MERGE  DRAW  LPRINT  CLEAR  NEW K RESTORE  LOAD ( RUN c CLS  MERGE - ERASE yh BEEP kdSIN ▙ PAUSE s ERASE  PAPER :AT j READ  INVERSE )SGN %N4PIUSR  TO INKEY$8S? GO SUB  OVER [B]SCREEN$  STOP O FORMAT  DIM G[B] REM ▜.*2i6 PLOT  [L] RESTORE j THEN  COPY ▛5CODE B DIM ":K<F[G]CODE g DRAW 'LEN  )r▞ DATA ©<> IF VAL [D]%d ERASE [J]IN P$[F]v/[D]SGN  BEEP H,[E]LEN  AND [O]$INKEY$ OVER  STOP : GO SUB ~ LET ▞7E INVERSE [K]BN!nqSIN [B]j OPEN #TAB ABS [C]1FN lB* CLOSE #▘[L]9hC%ZI2pVAL$ SIN `h MOVE 2}MihRATTR  CLEAR  CAT 1[B]nj<>lTAB [O] DRAW  IF [L]TAN  LIST  BEEP  INK q▖[H][T]-< NEW  BEEP VAL$ 9ggFPOINT  THEN H2YRjmSQR AT  POKE ▟ CLS TAB 3M▗~#Jm READ  DRAW |o OPEN #rc▜p<=5Yoh FLASH + DRAW TAN ▛ POKE  MOVE KAEr BRIGHT ▟▞INKEY$rzW<[G] LET  COPY . CIRCLE TAN [A]# STEP LEN  PAUSE  NEXT # INK [I]Vq LPRINT = CLOSE #( CAT  DIM [U] THEN  DEF FN "BIN  STEP 4eCODE BPEEK ( RANDOMIZE  AND STR$  DATA  THEN FN  CIRCLE  DIM PEEK ic▟+STR$  VERIFY B>` PAPER y@ CLS M▖ LET ▟ATN [P] ERASE v>H[D] LIST  LINE  LOAD r FOR >2E!TAB M[C][N] TO  RETURN  CLOSE #RND[H],,INKEY$NV_f'[C]q[A]2[T] LPRINT [S]iyEXP TAB r REM  CAT AT ,VAL : POKE RNDACS a[P]KINT  LOAD }9[I] VERIFY ~[G]*i VERIFY [D]INT ▝; STOP <> OR /:l CLEAR  MERGE [S<Y PRINT B POKE  OPEN #I[O][H][B] CLOSE #LN ASN <>H[F] RETURN y▚,[D] TO  PRINT  ERASE  INK  LPRINT  PAPER >=>JEXP ==[F][E] PAUSE  DRAW Ez BEEP }& OPEN #©[S]RNDAT PSGN  LOAD [SGN _ CLOSE # FOR & NEXT  FLASH D OVER [S]SCREEN$ i[U]COS  CAT C=S<= LLIST TAN SGN Z▜▗Y"/ OPEN #RwVASN  MERGE I[T]vI{"PPEEK >=&▗[S][C]▖[I] OPEN # LLIST  INPUT  CLOSE #k?CODE -BIN  CIRCLE I&INT JINKEY$ PAUSE  IF *f`6[L]] DATA [C] LIST  LPRINT M NEW ]-STR$  GO SUB EXP  LIST *3 AND C<LN 6 OUT ▜ LLIST  RANDOMIZE  NEW [F]NOT ▗SIN  VERIFY ?!uSIN  STEP ▚ IF  THEN j VERIFY  RANDOMIZE Ux ERASE V LET  ERASE Ve7>MC/ FLASH ▘,[ISe DATA h RESTORE  THEN !W>=© NEXT SCREEN$ @RNDVAL$  AND  LIST 3 GO TO [U] COPY  LIST w RETURN 5 CLS X RESTORE [B]m'~1K ERASE qz[N][L] LOAD  BEEP  ERASE { MERGE PEEK ▖< NEW ~ OR  LOAD  LLIST CODE CHR$ ▟_T LINE = DEF FN ` DRAW  RESTORE AT  CLOSE #VAL f SAVE o CIRCLE >=Q©{MV`>=[U]▝ COPY ▖ LOAD  READ ▚<> PRINT [H]STR$ C$ OVER ?▜= OVER  READ ]WCODE  LLIST ▝ COPY USR 7▗T[L] CLS [C]!q!%~[D] INK  BORDER FaVAL$ !*[E] DEF FN  THEN  LIST DN[G]SIN ▚[G]NM6SIN AT [C]<=POINT  ERASE  LLIST Vm( LLIST 7 PAUSE xPIH)NOT  GO SUB AINKEY$ VERIFY PEEK [S][U]Z#'ACS Vd[M]* FLASH [C][G][S] REM X OPEN #Z CIRCLE ?SCREEN$ [R] CLEAR  PAPER ` CLEAR ▚SGN [ RETURN  LIST )06D<=ASN  VERIFY _NOT  LIST [H][P]9SGN  LIST  THEN  FLASH  REM "o|ATTR O_ BORDER POINT  RUN  FLASH CHR$ o?TAN vm DIM [K] LIST STR$ Rh RUN [B]W INK  DATA CODE  POKE  VERIFY  TO  $-▞ OVER [H]H9 CLOSE # OPEN #f3▝eABS V CLEAR  PRINT U[I]JUSR [B]w[N] OPEN #SQR SGN ASN H<>I>=ATTR B[A]kG MERGE u/AT  IF B▚CODE [K] GO SUB  VERIFY -▟▙TAN [G] SAVE  LLIST YK OUT PEEK i▟ LET #STR$  CAT  DRAW  GO SUB  LET E<>@G[E][A]ACS  COPY  INK >a CIRCLE &[C] SAVE [H]w DATA FJ STEP PI[M]▟f$BIN EXP 5$ACS VAL [Q]SM RUN (8UPEEK ; INVERSE <>>[M] REM [F][L]GASN [D]}<>0ATTR BIM`&DLN RNDATN ©(A▜▖[T] RUN  MERGE += RETURN t▚PEEK  MERGE STR$ q FOR USR i[U]RTAB ASN ",6* AND ▟ DEF FN [G]▟ PLOT   OR BSS GO TO ▜l%iSGN ▗[G] INPUT [L]WaV OVER  DATA )k FORMAT ATN  FOR LEN [E]%g[G]| PAUSE  VERIFY [C]NOT 4uTAB  RANDOMIZE Y[A]X+"▛%$ AND ;%[I]▚PI RUN  FOR  OR c ERASE  CIRCLE B1[F] LET STR$ a<> NEXT >=POINT W[L]AT LEN '[U][E]r} MERGE  NEXT ZAT %+TAB #[H]S CIRCLE %.[G]^>PRNDATN  BORDER o THEN PEEK *^[ CLS qZ COPY RNDS6[U] RANDOMIZE 9[O] SAVE i INPUT hEw LPRINT  MERGE iK REM ixXVAL$  FOR  PAUSE ▖c/{ACS [B][B][C][U]<{% PRINT !,CcCOS INKEY$ BORDER  PRINT LEN   VERIFY F&[C] TO >=NOT m▞ LLIST ) GO SUB " SAVE WH[A]$R OR jx[C][U]'[S]IN <=7rAT HSIN ![4INT INKEY$▟ACS [F]p▚ CLEAR [LUSR ▚CHR$ O MERGE INKEY$[K][F] OR *T5S READ EXP nv4E1 OVER  READ vIs©= CLS [H] NEXT POINT [F]D▘T)ACS ACS a!PIs&[C][E]▞©[R]q FORMAT %RNDMKH[P] GO SUB gQk CAT  PAUSE FLN x RANDOMIZE [L]<=k▙ POKE BIN oSTR$ 'JePIATN  PRINT  LINE  LLIST  VERIFY ym CONTINUE C-RS*M#5/R RESTORE 0 OVER H▛[[B] CLOSE #[N]Mh GO TO [O]ASN /LEN @1 BORDER ▞[H][P]▚ DRAW ABS !PEEK X IF [H]/qTAN  OR [V FORMAT o2 VERIFY [Q]POINT 6SQR |▗ATN ▜G▚RND CAT ?4TAB ~ READ ATN [B] RUN  SAVE [M]w IF [G▗Y$ PAPER S[E]~ RANDOMIZE [O] VERIFY z)[A]aK[F] THEN kv LLIST USGN OSIN ?S OVER L LOAD  FORMAT  OUT +&FLN ,[O][K][K]OU/kY[T]▗W STOP  FLASH  STOP [h>Y4OSTR$ [R]<>N*[D]c=AT F<9 PAUSE BIN  LINE RT2L▟STR$ u OVER i[O] READ hTAB  [C]SGN d CLS PI0b[H] INVERSE m$VAL ! NEXT O IF  CLS eBH GO SUB  ERASE [M][A]&[L] REM ;ZE~ LIST [J]4rt GO SUB [L]%cd[P]▘© OVER >ATTR  BEEP < PLOT  (Bv. DEF FN  LLIST  OPEN #( OUT l STEP  DEF FN  NEW BIN ▜VAL$ ?Ky` DATA PIu> ERASE %[C]EXP SUSR  LET  IF  RESTORE mhH▜=k2USR '>= BORDER  INK  FOR ACS  CIRCLE VAL [B]#R THEN  FORMAT #a .[Q]LEN SIN EXP  OUT 4COS  CLOSE #STR$ ▜oP7V IF + GO TO }g MERGE y[I]@ RANDOMIZE  DEF FN ASN Y OUT z}SGN VAL$  PAUSE INKEY$PEEK T[O]▚ OUT  THEN 6RvK BEEP [B][E] MERGE  GO SUB [L] PLOT  <>Tv.[K].IN ATTR [K]EXP INT [P]ATTR G[A] CLOSE #jN DIM  AND [B] FORMAT <>wRe NOT NOT '[A]^[T]]iDG GO TO [S]~▜H[F][A]( VERIFY  FOR O PAPER  FOR [G]}IW REM  OVER />=[O]%[R]{i:IN  MERGE ©M[W VERIFY R:l-RNDL9▚LN *>IPOINT [G]POINT p LET RND|[E]i CLS [SGN  INK ?/PEEK B5<= READ  MOVE POINT c[O] RESTORE ▛ MOVE STR$ CHR$ KtEJ[U] BORDER  DEF FN INT 0%INKEY$L[R]v FLASH +VAL EXP  INPUT  THEN  MERGE .oW]▖ LIST + INVERSE [H]& STEP TAN  DATA FR PAPER ACS ACS ( NEXT ]$[D] OPEN # CAT ▙LN =ATN [E][H]+c PAPER  BRIGHT   RETURN kRSIN F1ij[S] COPY  CONTINUE &$YSGN 6CHR$ MI:[C]VAL @F[L]$INKEY$IE▜X[| FLASH  LET &GX[H] NEXT  DIM UeM[T]U[O]$vBIN IN ASN  AND ASN  RANDOMIZE 5LEN 2▖x CAT 7[K] OVER TAN LEN sASN X[M] LIST INT ACS $ LPRINT BIN yo BRIGHT [K] DRAW [%[F] REM sOABS C1▖Mx RANDOMIZE  $ INVERSE  [B]>=PI2[I] FOR U`SQR %jPIN  NEXT jVAL$ INKEY$ LPRINT o STOP <>i COPY Q[O]~7PI▙[H]▙TAB COS  IF -x^Y CLS }/CHR$  NEXT qI[ STOP  DEF FN  OVER  LIST PEEK ZK! LET [C] PRINT [U] FLASH  LINE  BORDER jSGN , MERGE 8[O] SAVE [L] LET  INPUT [P] FLASH [H]>=~- RETURN  DIM  CLS IN ▛ LLIST  MOVE y STOP ▖▘ OPEN #%IN  BEEP _Z:x IF IN [Q] OPEN #NOT ▗ NEW Y+ PRINT <= BRIGHT  POKE  DATA  LPRINT ©HNOT IN  IF [I]NEVAL [A] POKE  SAVE  PLOT  [B]mFN  GO TO &7 DEF FN  LIST /X[U][B]c DIM  LINE  BRIGHT 6[I] OVER Y[D]STR$ =NOT :k~O▘ BEEP <> PAUSE lVPOINT T1▘r$ STOP  FORMAT G[K] READ . CAT `|VAL$ SIN [C]ABS EXP  BRIGHT 4PEEK  FOR H.r+ COPY h READ  INVERSE  FOR AT &_V© NEW [J] CAT 8[R] PRINT ©CODE  RANDOMIZE VAL  SAVE ▗ BEEP  RETURN vviINKEY$LN  DIM [I]^USR SCREEN$ USR  LET  AND  CAT  LIST *RND DATA ][B] PLOT  [U]ATTR  LLIST fz OR CODE BIN  LOAD CODE >= LINE U~ REM [E]POINT VAL$ 7▘O  RETURN RND[D]9 STOP PiACS  CLEAR [K] PAPER <>[G]ATTR V MERGE ' OVER zK REM  PAUSE  PAUSE LN VAL [N]5T[U]INT [Q] CAT X CIRCLE SCREEN$ i> DATA AT ?"[J] DIM + BEEP  VERIFY [J] STOP [D][F] PAUSE [G][B]ABS [D]U' IF LEN )MACS <>-"kEXP ▟b[I]uUa[S]49INKEY$&<FN l[M]k CLS (▚" MOVE IN ,FTAN G NEXT 5▗ DRAW n GO TO [H] INVERSE BF]#[L]LN SGN FQ&2* VERIFY  READ  LPRINT  STOP BIN LEN [C]j LET [A]RATN [O]5 IF  SAVE [F]▟x▝L[F]dL[M][C] DRAW  DATA s>=~ DRAW BIN ▖mATTR Q FLASH ▞CHR$ TAB , RESTORE % STEP + LIST  RESTORE i READ [A]v[L]p[O] INPUT y- POKE [D FLASH k▖n>PEEK  PAUSE /[M] LOAD TAB ZATN [H]/?|RND PAUSE  INK "STR$ RND▚0[D] SAVE CODE %[F]kABS /l LPRINT BIN [L]Z7 PAUSE >=_|y= LPRINT [R]UBIN  COPY Iwx LPRINT n DRAW PEEK [M]=# CLEAR [D]<> CAT  READ [P]c CLEAR %Ja CLEAR  LINE  FORMAT aCHR$ >g[H]# VERIFY z▟ FOR V COPY ▙RND[U] LIST ^.VAL$ zsABS Rm[F] POKE , BEEP STR$  BORDER INKEY$o NEXT [A]k`AT ©1 IF hK VERIFY [L]POINT  NEXT KSTR$ u FOR  AND >=JACS j;%aO<=^ NEXT he[B]o DATA  INK ▚ RETURN SIN z CONTINUE ATN ▜SCREEN$ [F]AT e-TAN  OUT [BIN ASN %ASN ![R]? INPUT  AND JT[U] DEF FN >Y MERGE oSQR [U]ZmRNDTAN  SAVE 6 PAPER LEN ASN bf▝ CLEAR IN  LIST ©BIN ATTR e[L] DRAW  FORMAT ACS ▜%=} LET IN  OR CODE R|[O] CLEAR q[J] DATA N IF  DIM  DEF FN [C] INK  LPRINT b[K](C[N]VAL$ © CAT  SAVE ]mw▘TSIN  SAVE [O]/ASN [A] STEP _<><=[H]ACPOINT F LIST CODE  MOVE  LOAD  DRAW SQR SQR J2Bk IF VAL$ 0b LIST k OPEN #ATTR mLN >=;[S]w FOR [O]!d CLEAR +W MERGE  PAUSE }TAB s VERIFY Q DATA *▟q[L]J DATA ASN IN  PRINT ) STEP ▘sS[D] OR $0 INK  DIM I[ CLS AT - LIST [B]F) LOAD bi' OPEN #&[U][L]Gko=p▜KCODE  CAT ~STR$ > ERASE 28 LET z READ wATN  RESTORE INKEY$>![L]#$▚<=FN  INVERSE I STOP [S]cv[M] PAPER [S] PAUSE W3SCREEN$ } DRAW  CONTINUE SQR  CONTINUE PEEK  DIM  CLEAR  PAUSE  READ  PAPER  BEEP b|SGN  PRINT { PLOT  INT [B]ASN b[F]INT  TO ATTR  CLEAR  LIST  THEN  RETURN  REM  AND LN xIN  POKE o INVERSE  READ USR  LLIST tIN o DIM o OUT ATTR ([F][I][M]ar[B]H[L] MOVE NOT _ VERIFY PEEK /n~jL85POINT ▝ STOP TAB [K] READ IN <=|_ RESTORE Oc BORDER  DRAW PI▝PEEK  RANDOMIZE L READ CTAB qskB[J]^K?K DEF FN  STEP g CLS  THEN g[U]▚PI( OPEN # FORMAT O▚ BRIGHT ▝ LIST '▙q/s SAVE TAN  LIST [G][S]USR  FORMAT  OVER  DATA ASN  NEXT 0 LPRINT y INPUT  OR `[D] MERGE  LPRINT CHR$ p STOP  IF *T▚< LIST KLDCOS ASN LTAN {[O] RETURN SCREEN$  STOP C[E] BEEP SGN H[L]LN r AND ▗<><=F[F]ACS S DATA - LLIST  READ  ERASE  BEEP WdO FLASH '#COS ▙h▞▛5[M][L]# CIRCLE [A]▛ READ VAL [D]CHR$ hK4INT VAL$ SGN  AND  AND [R]%ITAN 6 OPEN #6d" TO  GO TO  IF xF▛(BIN ▝"POINT  THEN ,PI[E] LOAD /COS INT V RETURN 2VAL$ SIN CODE [F]PEEK f([G] ERASE  PLOT   LIST  AND  RANDOMIZE n@SIN EXP CODE /[O] MERGE G?% SAVE  NEW  PAPER ▟ABS  LLIST E CLOSE #c}< '1 INVERSE PI[T]EXP /T[▘ATTR  SAVE  THEN  BORDER  POKE [E] SAVE [ SAVE CHR$ z# LPRINT  CAT ASN #NOT 7% VERIFY u) COPY  TO XRINT [P] CLOSE #[K] SAVE } VERIFY  GO TO CNOT [H]s VERIFY ASN  DIM TAN -[liINT  FLASH ~ MERGE [F]B CIRCLE [C][Q]▗ REM v[F] FORMAT [H]S NEW N▝ SAVE {qwt}p PAUSE hk BORDER  FOR r GO TO  RANDOMIZE v~}▗▞zH©i ERASE ▝Io LET  IF SGN pEXP lCOS FR▗ PAUSE VXLN q BRIGHT ,[ RANDOMIZE v DRAW [A] CAT OFNWCOS ▖ IF BIN  MERGE p]Z[U]H[S] PAPER TJUSR ~ COPY T VERIFY m*ZgV,[M]EXP  DIM PW RUN  RANDOMIZE = OR , GO SUB %>=▜n BEEP  LOAD IFATN SIN SCREEN$ EXP % OPEN #r7?MG GO TO X3IQ"R-STR$ ZUSR  NEXT  LIST ATTR  POKE [J] TO 7w PLOT  M▛STR$ ▟ READ #CHR$ [▘ VERIFY  BORDER  PAUSE > ERASE Y BRIGHT N+ DATA _oPIV>= VERIFY UR7▙6▖T OR CODE <CODE [B] CAT U RETURN SGN IN  LINE [U]Jn<▟[E]E LINE S RUN SGN VAL$  NEXT  MOVE  LET  OUT  NEXT  OUT !SGN c[A]>=PI&/ LOAD , DRAW  OVER  DRAW  PAPER VAL  INPUT [N]O2 DRAW [I]SGPEEK  FORMAT )[T][D]mFACS /ATTR S GO SUB ^SGN _e[U] THEN 1[C] POKE ABS  DATA ,G DATA  COPY b[Z[H][ FORMAT  BORDER IFN  SAVE pN[M]z VERIFY l`[E]#rVAL$ /cRND=^F▟SQR F>= DEF FN FmSIN ▞" STOP pu[S]nVAL$ ACS ASN CNOT F[C]SGN 4cRND{ OVER  COPY  VERIFY _[U]POINT  THEN Z#b INPUT I/HVAL$ 4z IF % T GO SUB RNDy AND ./w/k<= CAT h>=[L] LLIST /JATN  PAPER @< COPY Z}>[A]![U] LIST  RUN 0k<== LOAD COS 3tSQR  VERIFY VAL Ru NEW  POKE I[F]GWR STOP  LOAD qAT  RUN [K]4J CAT [A]Z ERASE {[U][T]<=ATTR [A] SAVE f[T]m</▛ INK )▗ NEXT " PAPER +CODE y FLASH  LINE 0ATTR =SGN [M]%ATTR ni▚TAN  DIM [O]ACS [z RANDOMIZE  CAT &VAL$ ▜ RANDOMIZE b[O] LOAD  CLOSE #SGN [H][Q]P"i[G][A]©-SGN LEN $TAN J▜ CLS l THEN  READ b[ RESTORE ,zCODE [AT  ERASE _ INK Ck$+ CIRCLE U NEXT ACS A THEN I[R]▙STR$  COPY _▞ PLOT  rCJIx FORMAT ▝c[F] OUT K▙N STOP LASN  CAT q9 INK ?&FN (ACS  IF  INVERSE  CAT  NEXT ([H][C][H]tIBATTR pATTR U3▟▛jpO[C]_BIN v DRAW hh[C]H STEP  DATA /ATN [Q]f[A]nKI'▞ LINE LN r[ DRAW  INK  LIST Cr▟q[T]C},Z[I][O] CLOSE #[R]H[F][ATN  PAPER  BRIGHT © BRIGHT 6-!Jxu CLEAR  BORDER  COPY <=[R]TAB c PAUSE = OVER [P][Q] CIRCLE ▚SIN ? LINE a LLIST  RANDOMIZE  NEW T▞[D] PLOT   POKE RNDAT [T][E]ASN RNDATN b PAUSE C2LEN <=▚Q<>+i[S]q-BIN  NEW  DIM h[B]CHR$ ATTR RNOT  LINE ho~INT H PAPER ATTR }ASN %-(NTATTR vPEEK 1y9 PAPER cH[M]CODE ©TAB J NEXT 2 REM Jv BRIGHT  DIM }RX FOR ?CODE U[U[K][T]G PRINT  POKE p OPEN # INK [R]1 FLASH ; LET 3A'ABS >q ERASE r[B] LLIST TAN YMs OPEN #T[P▜ THEN ▗ COPY  READ 0CHR$  BEEP VAL ! PLOT  ▚ LPRINT O RUN  PAUSE q RANDOMIZE LEN  CONTINUE PI▟BIN PILN  RESTORE [F][E]▝INKEY$[S][C] CLOSE #z BEEP - CAT ATN )2D IF ZINKEY$?p[M]S[&:▞! PLOT  b[K] FOR  CLOSE #VAL$ II NEXT  BEEP S? DIM  CLOSE #▞xEXP  DIM n RETURN  CLS [N]IN COS  ERASE K LLIST  VERIFY [U]X[F]ABS Y CIRCLE  CAT & ERASE %$ MERGE G&<z[F] FOR [H]ATTR  FOR .^]j[F]▝WcX;3 RESTORE kv;[U]BT5 OUT [K] FOR SGN ^LEN ibZSQR J[ LLIST = DATA  SAVE g OPEN # DIM [N]LN  LLIST X LOAD [O]ATN  SAVE  RESTORE u DEF FN HVAL$  INVERSE xtz IF  STEP N AND ATTR  ERASE [A]" CAT Z PAUSE  RUN  STEP [D]PP[P]BIN  COPY ]VAL SIN NOT /F RUN [R]9<>[B]x82C[R][U][M]CHR$ [N] STOP RNDSTR$ UH$▛ CLOSE #v[T] STOP / CLOSE #~%ATTR  PAPER [C][▝▖ MERGE OCAT $( MOVE  CIRCLE )COS FIy▖▗COS POINT L PRINT d LET >9 OR PEEK QG[M]x CLS >I1l[D]ASN bTAN Y%[A]sdpZ,[G]f!) GO TO NPOINT  RESTORE  LINE ATN i),PEEK = GO TO FH IF INT ( FLASH @b`<=f OVER  CLOSE #[I]^ TO | BORDER  DIM  DRAW M) OR 9 STEP lIoN4 LPRINT [H][D] PAUSE "mTAB vaam NEXT .8ATTR _5I NEW O▖~}▞x![F][G] RANDOMIZE TAN [C] DATA p▜ OUT VAL $RND▙=J!2 CIRCLE  DRAW ; CAT  SAVE i MOVE  FOR [U]H OUT 3STR$ D FORMAT  SAVE pN_[B] CLEAR Y[P]H CAT [L]"CHR$  SAVE l NEW ?[L]o[D].▗L%[L]_INT  READ <> LPRINT "I PAUSE  DATA :VAL$ LSIN  RUN ▜RND▞>= INK gSGN M[M]2[C]n[Q] LIST ? MOVE <>*ATN ▛S+[G]N5iI[C]▝ FOR ▛t STEP [E][T]DBIN [D]NOT $ATTR T COPY  CONTINUE ▙v LLIST  SAVE $ MOVE  NEW V BEEP  AND ▚[F]POINT [U]>. OR f ERASE [U]6 INPUT  OR  LINE  BORDER  LOAD  BORDER . RETURN [B]INT  OUT  DIM ACS PI+ FORMAT  COPY  REM w PLOT  [S]; NEW eM ERASE  BEEP E LIST i4 RUN  TO |o LET CHR$ pINT [E] LPRINT JICHR$ [F]%7*z>LN F VERIFY  RETURN )h6ATN  LET [I][B] LIST =[C]i STEP  OVER [R]© LET  LOAD  STEP )& SAVE BVAL &<=[L]V INVERSE f<>VAL [J], SAVE -gTAB a+[Sk3 CLOSE #o▛ BRIGHT PIFN [I]=[R]SCREEN$ +ATTR i POKE  SAVE p.[B]EXP  DATA [S]dPOINT T INK M<=▙ AND A NEW  DRAW ABS V CIRCLE ▘-▞J)Lp[C][D]BIN L▙TAB IP PRINT *▝b[S]D^ LINE SQR N OUT Z( OVER pLN [B]E CLOSE # COPY  OUT INT D4FN  AND B THEN x OPEN #GATTR Q▘ LIST  REM hRSTR$ 8JATTR  PAUSE 4 STEP 6lu-SSIN i+] OR  PAPER SIN { POKE >=<= LINE  BORDER p SAVE x1 LOAD <>SivqvLEN MPEEK [K]HuBIN EX]CY/Ro ERASE  TO [R]s>x3 READ J LLIST  THEN -6LEN X[D][C]▛]AT  NEXT # THEN ( PRINT CHR$  CLOSE # FLASH [S] BRIGHT  DATA  FORMAT l[U][M]NC NEXT 7 LINE UQ<[C]9% PAPER  STEP INT h^:Jq) OUT ATTR  STOP Txd READ   LLIST  IF 'h GO SUB [B], BEEP SQR F▚ LIST [M]jQ LIST mSTR$ NOT IN  MERGE IN  RETURN  IF  DEF FN 7TSTR$ ASN  STEP  DEF FN [M]@▛ LINE RNDATTR [C][U][H]▞ FORMAT [H]~ DEF FN 6 ERASE QG4[U]XUSR [R][H]m CLEAR w OPEN #[D] DATA /hPI BORDER ▞[O]ixH GO SUB TAN 3<=[I]d READ  LET R OVER V[G]▙▞LN  OVER .ME POKE LSkPEEK dm[B]LN ▙[A]qCODE CHR$ SGN v! INK  PAUSE ACS  COPY 1(fACS [D][O]@[E] LET  NEXT  OPEN #TAB j}Fy PAPER (CHR$ Y*INKEY$▟IG NEW A;[U] FLASH  CLOSE #qt VERIFY c BRIGHT [L] POKE IN >=SIN A~4ATTR &[C]>= STEP ATTR ©[I]<x36W DATA lS▜[O]mK POKE [K] RETURN  MOVE JSQR >=A?mJGCASN Y.POINT { LET :fINKEY$ RETURN `< THEN [N]pASN  GO SUB _INT [L]]-[C] OR  LPRINT TAN [P]G2= IF  NEW USR  LET  THEN  OUT  PAPER V% LPRINT  BEEP ABS _ NEW  CAT )R'|r RESTORE  ERASE ATN  NEXT  SAVE LEN  CAT < INVERSE XATN  RANDOMIZE  BEEP [D] VERIFY ▘ AND  ERASE )~TAN k[H]|67 BORDER <=~y[K] BORDER INKEY$>=IRNDSIN [O]~]H7[O]>_ RANDOMIZE m6+[T]MSGN - PAUSE [S] ERASE  RUN  DIM /RO#[C]>e▜>[M]d OR  IF  FOR ykj3/ INK MP[A]7b[L] BRIGHT [G][T]PEEK ABS >= BRIGHT PEEK - AND <> LIST LN [E]AEXP ,ACS 1 MOVE  CIRCLE  CAT [U]@ AND f LLIST gEKCODE  AND  MOVE  READ [P] BEEP "PI ERASE ~[M]o CLOSE #J[ FORMAT yl STOP |> AND mVAL ▟▜[D] DATA  RESTORE LN  LOAD [B]7 REM  INVERSE `[U]▜'">= TO  OR CHR$  MOVE  STEP AT COS VAL$  DEF FN f RUN ▜ PAUSE fCODE TAB >JPOINT [B]x INVERSE KGx VERIFY ACS NOT  ERASE . CLS [D]<INKEY$ GO TO  LPRINT 5 VERIFY -% BRIGHT 8e[N] OVER  PRINT xp[F][L]} LINE J▛ACS  BRIGHT INKEY$ PAPER USR [U] OVER  CLOSE # LPRINT _ LOAD [U] LOAD bSGN ~ RUN BLN >==c VERIFY IN Q( FLASH  RANDOMIZE [R]` POKE  MERGE M CONTINUE [U ERASE ~$xVAL$ ITAN  BRIGHT  GO SUB oSQR [ THEN ATN  FLASH [C]EXP  INVERSE x© FOR yi CIRCLE ▝ SAVE & CAT  REM fASN . NEXT _[S]Z▙[t▜jTAN  INVERSE t[J]INKEY$Ph BRIGHT `M BORDER [D]▞ TO COS N STOP FV[C]6 DATA ~/[C]<>q▙_U[M]CHR$ [U] PAPER  DIM ![A]2 MERGE %KcH1e LPRINT  READ ▞@Y=[U] TO A)MA}SQR Y%,LN )# RANDOMIZE t PAPER ACS  ERASE  DATA  OUT <=<> OR  DRAW cTAN V)4i$| CLEAR [B]USR [U] DEF FN Li PRINT  PRINT <= THEN  DIM  RANDOMIZE USR vV LOAD [POINT ▗ POKE o FORMAT ▗<>ATN POINT ▟©0 OUT ATN NW THEN  CLS ▙7TAB )jM* FOR <CHR$  NEXT  BRIGHT 4 RETURN HlSIN +▟cASN  FORMAT INT  LLIST ` AND 3[G]u CLEAR [U] THEN <><>|©/7! LPRINT '[U][O]`OF▙~??R-( PAPER ▙!R▟ OR V READ  CAT ▗ ERASE < READ LEN iASN /F VERIFY ▟+SEXP ?'T[R] ERASE m SAVE PI[E].EzINKEY$ LPRINT PI PAUSE PI?4EXP % TO )[2 PAPER  VERIFY EXP } OVER +[M]▗ POKE 1[U] NEXT QR19[K]bRND[C]SCREEN$ k READ -Z GO SUB 7[L]ATN [J]d RANDOMIZE [B]▖jRND)RN. READ F|[N]f/[E][E] CLOSE #*c<<>e RESTORE ACS  INVERSE  BEEP  GO SUB  BRIGHT J& AND I LLIST G[F]mSIN |j>=EXP  POKE <▚6[N]LEN , POKE h[F]INT lCODE sTAB  OR +nRND PRINT BNIN Y AND R RUN [H]▞ PLOT   RESTORE  FOR [K] GO TO  BEEP ACS $R OR [{HJ[D] OVER  DRAW w[A]INT t[O]."E CIRCLE  INPUT  SAVE  CLEAR B FORMAT  OUT  DATA P STEP d[, PAPER <>BIN LEN  POKE  LINE [B] STEP &[U]H>=5HcZ FOR  RUN =l BRIGHT ▟-N VERIFY  OUT x[A]eTAN [M]B#m NEW p,PCOS |SIN  POKE `▖[P]NOT SCREEN$ l!" IF  REM EXP STR$ (AT %1$POINT XE LINE ▙ RUN VAL ▙USR [N]<>o AND ▜COS $ RESTORE  DIM ATTR SGN  THEN %n< DEF FN  DATA VAL <J[J]RATN  DIM = RETURN 1 READ Sa STOP *[J]kATN Uf[M]L FLASH [Q] OPEN #j[O] FOR %▝Ll[L] RESTORE [S]>=CHR$ TAN ▞-/ NEW IN [J]fE[B]IM<= CLOSE #[A]ASN r1[C]LEN [D]▟ LIST CSGN h TO W3I:P<>k[C]FN TAB / OVER >[B]HRNDVAL -/ RESTORE [I]CODE Y. DIM  OVER #x RANDOMIZE  BEEP  OPEN #▚[E]x IF  STEP , RESTORE & FOR ILEN  ERASE  MOVE  CLOSE #FN s LOAD o▖ OVER  DEF FN  REM  BRIGHT a RANDOMIZE LN <>O2LN [D]`c[ PAPER [U] RUN !|p AND [T] OPEN #POINT )VAL$ ATN POINT [N][A]#(SCREEN$  OUT  IF IN AT IN  CAT ~INT  DIM  RUN SQR F LINE  THEN ZKR LINE -0g©a IF  CAT  RESTORE [E]SCREEN$ [N]i RUN qL[U]COS RNDGpB LIST USR  LPRINT [L]BIN dCSGN [I]©[U]FN x OPEN #<=[K] OPEN # NEW <>Ib POKE 5 CLS ! REM  CLOSE #LN CODE <R▚ STOP ▗ STOP RNDf BORDER ;^[G]/ DRAW  OVER SIN _ INPUT [H] THEN >TAB z REM ASN  INK [P]▝}ACS Y[L]H[K]SCREEN$ $j INVERSE ABS ATN [J]#|COS #O INVERSE "L▙[P]5LEN R" STOP  LINE >ASN Z_[U]FACS ▙[L] GO SUB  FLASH V[C] MOVE [, CLEAR 4 NEXT  NEXT [B]POINT b=R[P]R"VNq[K] LIST p/`L FLASH  INK 0 AND  LET  NEW  DATA COS  CLS c% INPUT  ERASE  NEXT CODE NOT [S]STR$ E-BATTR j-▙[K]+[M]| BEEP  BEEP  DEF FN _INT D SAVE  SAVE  ERASE [A] FLASH "[F]CODE |[G]SIN [P][ NEW  LIST m9;{BIN ▙ LLIST 7 RANDOMIZE & NEXT Nc[E] PLOT  x DIM O PRINT Df8 SAVE X DIM [/[C] STOP [S]dG? INK |▛m[U] BEEP X2SIN  RANDOMIZE 8,AT VAL ▟ POKE 7 AND  POKE rPI INK F AND  PAUSE  RESTORE ^[O] OUT  IF  PRINT ";;PPOINT  DRAW  POKE AT p FORMAT l CAT  TO )I<[L]6 LPRINT ]- COPY  CAT ^|g CLEAR CODE  BORDER  LLIST  CAT 7<g LET 09[K]POINT NOT z OR ACS !>BH BORDER $ DIM [P]C"3{9g*>= GO SUB [5jo<<i[H]▙NOT c[A]}y2RND LPRINT  STOP  CONTINUE [C]2 FORMAT LN >INKEY$CHR$ PEEK  AND  NEXT  OR  CLOSE #NSY;)F FLASH ATTR BIN !% PLOT  [F]r[B] STEP  CLOSE #O LET  DRAW  OVER [A] LOAD <ABS COS /v LOAD  DIM n INK <># CLS no▚AT Cx FOR  CLEAR _LN  MERGE [A]F IF  LET >=COS <=STR$ v READ r%NOT  GO TO ©z GO SUB  FOR w LOAD  LINE  RUN / POKE [L]/j<= MERGE +-~P FORMAT y LLIST ACS  FLASH X BRIGHT COS PIATkz PRINT &^eINKEY$ ERASE nVAL SIN sAT P LINE / OPEN #SGN N/ LOAD SGN ~[N]ILN SIN ABS 7^[T] LPRINT _▚[N][H][O] LOAD [B]SGN l LET  INVERSE POINT ATTR [E]ja PLOT  |?SIN SGN INT _AT G<=RNDa[K]f DRAW E CONTINUE n[L] LLIST 'XP CLS ACS  LOAD ^>=mCODE  INK IN 6B[B])6O INVERSE (SxG#b ERASE USR [I]COS  LOAD X DRAW wQ LOAD ABS Z INPUT [B][T]4▗$[C]> AND >▟`[H] SAVE *;ATN VCODE POINT #2RNDINKEY$]O FLASH EXP S|}NOT %q[F]ZATN ▟h>=<=;(nD BEEP BIN  LPRINT EXP _KBIN  CIRCLE v" FLASH >$INKEY$&<>A4INKEY$1/Q[N]: LOAD USR RNDBIN ▜ BRIGHT Co[N]C%[T] GO TO n<=iVAL$ LEN : LPRINT p`R%[L] CIRCLE  INK d IF  GO TO /c1 CIRCLE  CAT <> ERASE  LET ABS $ IF y<>PEEK 1 RETURN RMalIEXP RND▛U^▖ AND mn CLOSE #%7 THEN  PLOT   VERIFY d FLASH 4F[G]U[C]3 LPRINT xVAL$  SAVE [C]ABS  LET ▚/= POKE b LOAD  RETURN ▗4[I]EXP  OUT SIN INKEY$[G]BIN <>[H]CHR$ HVAL$ QVAL$ n CLS  POKE  NEW FN lKnNOT AT d INK [I]<>▛6G LOAD * PAUSE  VERIFY  RUN CHR$ 7 BEEP xAATN 5x/LN  REM TAB [F]TAB vsCHR$ ?$▞VAL$ q▞lmVAL$ PEEK p INVERSE  TO #IO!nI STEP  LET  INPUT [D][P]$ LIST [I]u[U] NEW  REM  STEP  LLIST [E]+#1[C] LIST [E]<=iY+FN  STOP TAB [SGN Y~1[I] PLOT  [U]▖OSQR [R] PAPER PI POKE [A]ASN ASN LEN <> ERASE A2ACS  FLASH  RANDOMIZE  OVER  NEW ? AND  NEW LN  NEW '▞ STOP ,q LPRINT #[U]m[M]BIN [L]VAL mACS  LOAD  PAPER NOT i"LN -[F]'mV/ CLOSE #.LEN [U] FLASH  LPRINT $ CONTINUE  PLOT  i,|Pp[E]SGN TAB  INPUT 9[E]M SAVE  RESTORE  BORDER g[N]~;]Y RESTORE  MOVE *5H[D]N%"g.>[B]r ERASE [C]I▘?[D]#K[O]e▝oACS ACS <cC CLEAR AT ACS ▜$ FLASH  REM CODE SGN  LIST F)& GO TO  PAUSE )©[J]N[M]AT [B] |g SAVE ) FORMAT ][R] THEN STR$ ?OR?6<&P>5▟ OVER  RUN D PLOT  hcATN Z OR  CLOSE #q▚7# ERASE .lW[A] OPEN #©2ACS d GO SUB e FOR d RANDOMIZE Zol[K]k LIST Lhbc5 DEF FN  LPRINT mSIN J[A] CLOSE #[F]JO AND 7s AND z[B]*Un%Pu LINE #>$oa[C]Vic< LPRINT I[D][E]P[N]&iDG LINE  BRIGHT  LINE CHR$  CLEAR  OR x4[E] STOP [N]POINT % TO ISGN  LIST $ DIM SIN 4%[E][L]<8ASN [L]C▟5Sp}VAL$ c DATA  GO SUB [M] OPEN #O{SQR SIN [C][T]k[D]▛ PLOT   GO SUB p! RUN 7COS  GO TO w[A]▗▗ STOP IN W~>= LIST E LINE r DATA <>xN LIST  FORMAT [A]TAN k CLEAR 8▙9 OR  AND N- GO TO zf[E]#TAB USR AT  OUT ▘m©ASN JqABS [I] SAVE [A]8▖ BEEP ^( RANDOMIZE K| REM  CLEAR [ LET  OUT  TO  COPY |[U][B] GO TO I[N] LLIST E RESTORE >X ERASE  AND X2 BORDER [T] CAT  LINE c[D] PAUSE SIN VAL  PAPER Tr<[L] CLS SCREEN$ LEN S POKE N[I]Kx CLOSE # CIRCLE [B]][I] PAUSE  BEEP  DRAW  NEW [M]ahY[F BORDER [K]▟4 VERIFY SCREEN$ 5INT KM▝64 VERIFY 5▜VAL$ llVAL  RETURN , OPEN # NEXT VAL oCOS [B]KWjZ<=2h LET Bi THEN R VERIFY  OR COS ASN mU+D[D]S▛* AND <= BORDER ▘[J] OPEN #POINT |COS [U]COS  GO TO 8q^ SAVE  RUN  INK JJINKEY$[P]J< OVER cO&>=TAB PEEK 9H CLEAR )- LIST W8N LET  BORDER  SAVE J[B]{ PAUSE F1I POKE [N]X[A]u[H]INT STR$ 0F BEEP ;RND▗ REM  <=_ PEEK [G][A]AT <VAL$ <&[I]?PEEK 0[G]Bq& MOVE [D]PEEK (~ STEP INKEY$ LET w RETURN [P]ZMlATN xE STOP E RETURN ?[O] BEEP H FORMAT <=[K][U]INT #[G MOVE ▟INKEY$ INVERSE p DIM  SAVE  FOR [|M LIST oLEN #[E] DIM [R][O]▗TAB V[C] NEXT NOT hLN l POKE [K]iPI jz~JATN [U]802XVF2SP READ T0 DATA ASN ▞(P8Sad INVERSE FN [R] LINE ▜ACS [M](2b POKE  PAPER 4 INVERSE p ERASE IN  VERIFY uASN VAL$ o[T]ef MOVE T▗ DRAW INT 0/ DATA F PLOT   INPUT +xuni[T]d}f▟[K] IF [L]▝<[Q][L]gZ[P]SCREEN$  GO TO  OPEN #o STOP MSTR$ [C]m STOP [K]pe▝ RUN [U]WAT " VERIFY  READ EACS  MOVE 1IN >=[ CONTINUE  BEEP  BEEP SGN ~4 COPY NOT  PRINT INT kwo ABS #AT  RANDOMIZE  DEF FN 8LN ACS  DIM Va+ LET ^ LPRINT E SAVE / OVER CHR$  DRAW 0PEEK r,I TO [M]©dRNDBIN  BEEP <IN- VERIFY r<>$INT [A] DEF FN  CLOSE #D SAVE  LIST /[B]IIN © PAUSE I NEXT  FLASH BIN  CLOSE #FINKEY$M RANDOMIZE  STEP JTAN ACS ▟[G]) PAPER [D] PLOT  "©E&POINT  OVER WIN  INVERSE  CLS  INK  LLIST  MERGE R OPEN # INK  LOAD  REM  CIRCLE INKEY$ ERASE IB STOP  TO &[U]0 TO jJ▞i GO TO d<[O] FLASH -▟<[F]^EXP ~{.;0Gg LPRINT [B]% COPY &▚nA.INKEY$COS  GO TO STR$  GO SUB [H]>= THEN YFN mR; DATA | MOVE  CLEAR rX[L][S][C][H][B]5CSIN Ku AND G1>= INPUT CHR$  POKE =&"R CIRCLE  CIRCLE xt PLOT  ATN ▛[T][F] INVERSE SCREEN$ F▝X[P]AT  RETURN H][Q]w FOR 0 REM LN  LIST [Q] RUN  READ  OPEN # DIM FN 22E1[ FORMAT 3 FLASH M PLOT  &f)MFN  VERIFY MkV INVERSE 3U[N] MOVE SE<CHR$ B[R]pATN PISgP[L]$[T]]3[O] TO  IF  INVERSE #J CLOSE # THEN  CLS USR uO|< READ  MERGE  ASN BIN ▜[O]]<=INT  CAT ACS ]O8UZHACS z RANDOMIZE RND[A]l%[eR0 MOVE AT ▞[K][C][A] CLOSE #BIN [U]* RUN jRNDo$| READ ▖7▘▖yI[R][T]▞▖ INPUT 7< REM ATN 6NCTAB v[C]<>[E]d5 GO SUB  SAVE RNDCHR$ p DATA ks BRIGHT v[G]RSCREEN$ -? LLIST B BEEP  STEP & SAVE HASN 2@> VERIFY  OR >=k MERGE  AND <=▗[E]f[H][cH PRINT  NEW  READ K LOAD  PAPER hPIF SAVE dATTR 8 RANDOMIZE  RETURN 0 CLOSE # CLOSE #INKEY$[D]&[C]LEN  INK INT >Vn_<>N CAT TAB j> LET Z LLIST "" RETURN ▗© RETURN [K]▟5~7ACS  CONTINUE >2CHR$ POINT INT k AND :M STOP [L]K[R]TAN R" CLOSE ## BRIGHT  COPY 4 RETURN [S] REM  CLS  TO KtSGN  PAPER  LIST  OPEN # DATA N[I]K?[J]< LLIST VASN  FLASH  PRINT oSGN INKEY$[G]NOT z[D]ACS [P]5[B]VAL$ [Q]CHR$ PI CAT [F]^iym% AND q8RNDE OPEN # CLS  DRAW  REM | VERIFY ATN iLN CMIN EFN [JcW+ RUN  LINE / CLOSE #AATN i8▙H▝ LIST  GO SUB [G][K]▘BIN  LIST  SAVE  MOVE  AND CHR$ [K]<> TO l,! GO SUB da CLEAR *SIN s▖'TAB  LPRINT ▝/ COPY &INT SGN 7 STEP ?.=BF6 BEEP &3 LINE H DRAW  BEEP [B]JSCREEN$ BINKEY$][Q]EXP [Q] STOP ("gINKEY$ GO SUB AT u OR _Tz[B] DRAW  DRAW {[T] BORDER  OPEN #T[K] SAVE - BORDER [K]H GO TO ATN OSTR$ [P] LIST ATN  OVER VAL$  OR  DEF FN ▜* SAVE 2 DEF FN B OVER M:TAB R FOR  LOAD STR$ [E]©PEEK 49l LET M LPRINT N PAUSE  STEP 4B PAPER F OVER p+> LIST -;hE[C]UVAL$  ERASE <[I] BORDER  RANDOMIZE  NEW N FOR  NEW [B]ATTR  FLASH  COPY X[R]t▛ INK AT  LET CODE yH READ h"USR [P]x3AiVAL r[E] MOVE .▙NOT nV SAVE VAL [P]4▟[G]' PRINT ▘5▟ LPRINT q`g BORDER LN [G] MOVE FN ▞S&iqI DATA COS EXP [v FOR  INPUT  FOR  NEXT ▙9[K]PEEK  RETURN  BRIGHT ▞u▗[D] OPEN #[T] CLEAR  PRINT pzBIN  LPRINT L=SIN BIN EyASN LN ?$L OPEN #S FORMAT  PAPER %[Q];9p3<[U]fqc VERIFY %Z THEN SIN V OR H NEXT [R] CIRCLE ek8&6[R]g DEF FN ( ERASE  PRINT ^ REM  RETURN u FOR :eCOS ©[F][C]E DIM ' LIST iQ[F]RND[L] CIRCLE 4m▙ DEF FN aATTR  OUT $Y CLOSE # NEXT ~▙GBIN 9▝ LPRINT xF RETURN x9 DATA F IF  INVERSE A VERIFY <= SAVE > RETURN <ASN V RANDOMIZE ▟8 LINE H OR u CLOSE #Xu OR [L]v RETURN [T][O] BORDER R ERASE  MERGE X OVER / ERASE ! FOR <>[K]n[V FLASH B LET K[Q] AND  MERGE q▜ CLS  CAT  CLS CODE ATN  ERASE 6 STOP [Q]TAN ATN INT  AND o LPRINT IN 2gE!©/^ STEP F GO TO  SAVE = IF kL[R]T COPY lTAN I PRINT  GO TO ▘%75ASN  LLIST A}V [N]AT v CONTINUE  BEEP  BRIGHT  OR [H][P]▙6 IF ` POKE [M] CLOSE #SGN 8Y) READ FN  BRIGHT LNC RETURN f CLS G OR F PAPER .&▟L RANDOMIZE MABS [R]!zBIN  LPRINT  DATA ABS 2ORNDOL READ ) DRAW 4;SIN  MERGE TAB SGN POINT VAL$  AND [E][G]>nVAL$ ▞L CLOSE #TAB PICODE  THEN ATN [J][D] SAVE [J]Rn%q}=R}0 OVER N-LN  MERGE 4 BORDER K[E][H]ATTR ]R IF  PLOT  n[R]o ERASE g FORMAT  FLASH  FORMAT SGN <> RETURN m,Z&U* OR ?O SAVE X<rTAB p RANDOMIZE TZ DRAW  CLOSE #/POINT RND▜ STEP +USR j VERIFY 3POINT / LET 4[G][G]mtkLN  INPUT %LEN <> MERGE GLN qVAL nPEEK /N/ LPRINT [<>HhV)6POINT + GO SUB 2R▝ DATA dltc{[J]+7T[I]b[L]AcSTR$  REM &~U LET  LPRINT RM CONTINUE  DIM 4CN>=r▚ LET  MOVE ACS bVAL /$[V MERGE AT [O]g%[T]3|© LIST  REM  VERIFY %[J]PEEK IN V▙LEN C▖ABS r( READ STR$  CAT [Q]j▟E DIM [I]:,oe[P]▝f[P][J][R]EXP V$p GO TO cTAB $▚ NEXT P{ OPEN # LLIST Q+ONOT  ERASE  RETURN oH9!% CAT _Q INK  PAUSE  TO Fv LPRINT l[D]▞ATTR [U] DIM  PLOT  ZCOS  OPEN #▖ READ !ATTR POINT  ERASE  POKE  ERASE z MERGE x LET ▟ FORMAT 4JOR# CIRCLE <>LN  RANDOMIZE  INK >= NEW ZINKEY$LEN 2rySQR zVAL$ AT qx LLIST  BRIGHT  IF  PRINT  THEN r+EXP j8 ERASE ASN `[C]RND LINE 8PI▜BIN [U][H]$zb READ IEXP ) INPUT  GO SUB  LLIST NOT [I] OUT 8V FOR KNOT OTSGN PIy SAVE VCOS VAL c READ 4[K]6[J]FN 5 FLASH >=B[I] COPY q94 REM [N] RANDOMIZE ao RETURN K ©MXVAL t@[E]dRND PRINT ABS KSCREEN$ X CLEAR  NEW Y` DEF FN '?SQR WyJ CLS  STEP  OPEN # DATA USR ~ STOP  BEEP ABS  OPEN # COPY  RANDOMIZE t<= VERIFY [B]IJ[L]LN K©N[P]>H▝yB%&+EAPEEK iN>T[O]NOT  RETURN  STEP ZASN ABS 6y. LLIST ABS  OPEN # STEP  CLOSE #[A](<="<= OPEN # OVER  LINE 3PI%VAL P~ NEXT A`[Q]zEXP AT J OUT F'iY NEXT LN Y[L]▛JI FOR s FOR  REM ▖y?t OPEN #ITAN [P]I[F] MERGE  PAUSE  LLIST J FORMAT -z RANDOMIZE |C POKE Z INK IN [ DEF FN [U]%[H][R]mci>[P] LET  FLASH SQR PI BORDER !  PRINT  THEN  RUN  RETURN DZ TO >=EXP ; DATA g2<C[ATTR ?| THEN ▛wCOS | GO TO .▛CODE [E]A$ INVERSE USR & BEEP <>[B]FN  CIRCLE  CLEAR  GO TO 6nIq[T]bAT [ LOAD MiPI@©3K[C] AND zSIN  CIRCLE [O]NOT '[C][B] CLOSE #W▝c LET TAN ▟YSQR [H] NEW  OVER  BEEP Mrh(| FLASH 9^4 CLS  READ  SAVE [K] LPRINT  NEW [G]O▚VAL$ NAIN }"[C]ACS kPEEK  RANDOMIZE  OR rMuRNDUSR   PAPER i LET [H] OVER F▗R LINE  POKE 31▗ INPUT FN  AND LN [T] DIM ▞ PLOT  [A] PLOT  5PIG GO SUB COS  CLS  RESTORE  LLIST <ll[P]~ BORDER  CLEAR C LINE IN jSUSR ATTR =[E]o PAPER 4s LPRINT [A]▟zI[B]oNOT [A] READ /fRND NEW ▗ INK gNOT  ERASE @FN Q= VERIFY  OVER  SAVE ZGT▘} RUN  GO TO 7 LPRINT ^16TAB c5SGN Q LIST m`▛{[I] ERASE $▛POINT USR  OUT USR (^<= DEF FN IN ▘el▛H STEP  RANDOMIZE 9+ BORDER clI FLASH  OVER yeVAL$ @$p CLS  CLEAR COS jd[C]}qPOINT ,LN [H]~VAL$  CIRCLE ;[G]Zis CLOSE #BIN  COPY [G] CAT ▞<= BEEP HPIALN TAB ACS TAB [M]M[T] PLOT  POINT SCREEN$  ATN  OR ;JSINT  RUN [T] READ SIN ?}qFN h POKE [I] LET ▚ CONTINUE [F]B MERGE POINT BACS  FOR  DIM <ITAB CODE - FLASH  READ TAN LN zLig PRINT E~[C]IN INKEY$ PLOT   RETURN > FORMAT ABS :R<> IF ^ FORMAT  BORDER w INVERSE ▟xPiINT  CLEAR ? LET [L]] CLOSE #SGN KX)POINT  DIM [Q][C] OR QCOS 2)S PLOT   FLASH |j[H]{)fS POKE  DIM m[S][J]TAN  STEP Hw BEEP SrK OPEN # OPEN # LIST <H PRINT EXP  AND  DIM ▛AT c POKE ▚<M<XASN 6"[R])! AND  BORDER m RETURN  CIRCLE us5 RETURN (ASN [M]R LINE :[K]▜ CAT [K] LPRINT TAN q COPY U GO TO X OUT  IF VFN ! AND CHR$ R BEEP q▗KVAL [R CONTINUE )<=~!)▞SIN qTAB [D][K]▘[[▘B RESTORE <=><=: LLIST  READ <>▚0[P] MERGE SQR ofTAN [N]PEEK `▗&nL7W~Z!SCREEN$ ▟[S]fj© RESTORE :{ BEEP `f OUT  FLASH  OVER [M]IN &AT x[C] READ Z BRIGHT  CLOSE #+AT  COPY ?7▛[J]%FN  LLIST LEN  CONTINUE LN G1_POINT )][I][L][S] CLEAR A▛U INVERSE  NEXT U"S LPRINT  FLASH  ERASE ub FLASH [H],▝[H]PEEK  RETURN 5SCREEN$ 'NOT ASN [G] COPY  RANDOMIZE ▗<= LIST [P]| VERIFY  CIRCLE ]K OR  INPUT <J=[D]Oz[R]ATTR  OUT  DATA INKEY$M OPEN # STEP ▜USR )▚ PAUSE j LLIST ? NEXT qUSR XSQR -)c SAVE L[E]N[G]LEN ▟AT cASN [S] STOP ' LPRINT RV READ ,[M] LPRINT  LLIST ▗▙7iACS HI[R]AT  ERASE {]>= ERASE e*[kSQR  CIRCLE iI OR _[S]9> DATA  GO TO [A] CIRCLE fV▜ CIRCLE VAL CHR$ [A]MK[B]BD< OPEN # AND [P]ob SAVE  LLIST SIN ACS L BRIGHT  COPY SCREEN$ N'AT ^ COPY $2SQR [O] STEP  CLEAR  GO TO ,$[S] BORDER  CAT = OUT F CLS USR aq#O▚[C]f'[A][K]Y DIM [G]COS  FOR m[E] OUT  AND /?n[U] PAPER O[D]; RETURN U READ  LPRINT y RANDOMIZE u DIM ~aUSR  CLOSE #FN 6R FOR  RUN  VERIFY poz (Rw GO TO [E] CONTINUE <ATN [U]<>_Kj BORDER  FLASH ^[I]-▗LN 9 DEF FN INT  OR z[U]+ IF iCFN q FOR EFN  IF E| READ  RETURN i[C]r<= MERGE [O]OATTR Sco) AND ZZ50~d9[O]*N1▖ COPY [P]PI DIM  DEF FN  FLASH J TO [A] NEW VAL oD'[L]=bmUSR  MERGE ~CHR$  DEF FN ~INT  LIST  RESTORE xACS [U]ACS CHR$ [Q]"< INVERSE  BORDER !I INK Y[B] DEF FN  AND  CAT SGN b,PI FLASH N LLIST  PAPER SQR [K]4~MM& MOVE  AND >=AT ~w[C]xd^▗BASN IN 'INKEY$ATTR )#POINT ▛ DIM FN TAN ▛ACS  AND =9 BRIGHT 6/▖-bn]▛c+ LET  TO ATTR K REM  IF  BRIGHT  AND B▟ MOVE o6VAL  RESTORE [L]ABS grGD LINE [N]Of AND [F] IF  INVERSE  PRINT  OUT b/= OPEN #<>TAB SGN [D]uSIN pu[H]o RESTORE  OVER %2LJ DRAW  STOP ▟1i ERASE  CLOSE #[H]ACS  CLOSE #FN Xp[U]( DATA POINT Y[J] READ IKO THEN  ERASE i IF TH CLEAR 1 SAVE -,mywHp▟[O] RANDOMIZE SIN  INPUT K CLS /[Q]=i-^M'<>1[I]▙[G][B]AT H[ ERASE  LIST , DATA  LIST %"[T]q([C]G[O]v.RNDL▙ CIRCLE IN %SIN M[E][L]&▗ CLOSE #$ INVERSE $ MOVE 0S?AT &TAN  IF e IF  OR RSQR  CAT POINT  ERASE  GO SUB DYSIN ;W&[U]N<> LLIST /( VERIFY  BRIGHT  RANDOMIZE Nl]d BRIGHT gI^1 SAVE d[B]9COS Oi SAVE ) LOAD ▛>EY BRIGHT  CLS Q,TAB  LLIST g+ LOAD  COPY <; LIST © LLIST )4 GO TO 4POINT e[T]CHR$ : REM [U]JBLCOS K PAUSE jNSGN 5 LET  READ lIQRu5W▝%si][M]Bx COPY  LINE  RETURN ]mm STEP CODE = CAT > [Q]qQ[T]#▘COS [S]qA LLIST ▝▝B2[R][T] ^ CAT  LOAD VAL$ ? DEF FN  OVER O INPUT NO. COPY  CAT  GO SUB ?EXP  RESTORE COS SQR ASN ATTR  OR >0 LIST 'NOT  COPY  LINE " RANDOMIZE  POKE  LIST [B] POKE [M]4LN r NEW  OPEN # SMN[B]~ LET IINT ▙SIN  RANDOMIZE  READ f RETURN 8PI> TO .8▙ FORMAT  DRAW  STEP BIN  FLASH Ai[B]0 FLASH D[C] PAPER ATN , LLIST  INPUT  NEXT STR$ ▟"L'RND^i} NEW > FOR 3 GO TO [D][R]HhH]USR  BRIGHT  GO TO #Z6sxxkPOINT INKEY$[C][R]@6Z STOP PI OUT  COPY qEXP .EXP | PLOT   TO  INPUT oIeI[U]g BEEP [L]nQG> LLIST  RESTORE ▙[NCHR$ CHR$ _F8VAL LN [U]INT [A] THEN  ERASE  GO SUB [C] PAPER  INVERSE  BORDER r6_xRND[L]5D SAVE :"▗M(VAL LEN 7INT  AND I%etIN nIN ATTR L-m[L]x LOAD miZ2SGN E6[U][U]4[B][U][E] VERIFY nACS <=N<>:[G][L]LN ©Ml[L]TAB v2/ STEP SQR i.<>,:f|TAN KOAQ▖▖ VERIFY  STOP >=JSQR  FOR ©▜" LOAD )ABS [D]j`INT ©7gq:h▙[S]h▖STR$ ASN APEEK H'ASN [C]USR M[G]^)▚ GO SUB  RETURN FN SIN d PLOT   FLASH EXP RZACS  BEEP  LIST ?K▛CHR$ tAT E OR [C]gATN j"}SI IF FN FY>=9S THEN PEEK &▚4E INK  TO [S] GO TO  OPEN #▜)&LEN  THEN /VAL$  RESTORE  LPRINT VAL$ PI7zvAT  POKE  FOR 6LEN q BORDER IIN OR S[Q]& DIM  NEXT =[H]Y'[G]6 TAB VAL v/[E]>=<= CLOSE #gVAL$ ATTR QTAB <>G/ GO TO j▘[▟Y[E][H]▘ THEN mRND[K]+o DEF FN #$l%,[E] OR ACS  LIST [B][E][U]FN a DATA  VERIFY }|" DATA COS Ic©[T]D NEW ▝[F] FLASH 7O MOVE CHR$  MOVE EXP Z[ACHR$ LEN [C]vi TO [S][▜?n SAVE AT  INPUT ▟[F]~POINT ^<!q REM  OPEN #h[P][U] RANDOMIZE PIX BRIGHT EXP F▗mCODE  FORMAT + DIM [B] ERASE  PLOT  t RUN ▖<> CIRCLE IK THEN POINT M SAVE BIN z[L]ASN )j LIST )n[C]▞<=PEEK USR =PI CAT (CODE  LINE PI CAT  TO  COPY  DRAW O NEXT =Z[ MOVE T LOAD ▛ABS  VERIFY [D] STOP }|[K] DATA  LINE L*▞SGN  [ CAT  DRAW ▟ AND QH[B]%^I{@)[N]TAB  BORDER [F]rASN  PAUSE  CAT fACS OAT .:]m LINE  ERASE ( DRAW "CLN  GO TO  SAVE  CLS P[B]SGN : GO TO [A]LN <>o RUN INT  VERIFY [F]2EXP  CONTINUE BIN lH%VAL$ DLN SQR FN  RESTORE ) CLOSE #TAB > READ  RUN  OUT 1IN $2ABS ..*SP RANDOMIZE N[H] RETURN  GO SUB  GO TO X▛ TO J]X[C],SIN  BRIGHT !▞i RESTORE EXP  IF k[M]INT /TAN E&Y[Q] PAPER ▙, ERASE mSQR ^ FLASH TAB /% DATA BIN ▛SQR SIN &v CAT  OR X*IVAL pf POKE [S]AT VAL$ <>▛INKEY$<=4$c<Ju<>Mu GO TO 5D REM jl DIM  LIST |Jl- CLOSE #[L]POINT $1[K]SGN /5/Q[R]|Gs LET  FORMAT TAN AT ACS TAB ▙$a NEW /[C]pXs$^[L]Sa/ BORDER ) AND FN ▗▛[I] RETURN [B]LI BORDER PI LOAD | BRIGHT RND STOP [O] BORDER Z|8VAL$  OUT  RESTORE _ASN  NEW [oc©cF~[D] DIM [B] POKE [M]TAN oVAL m OVER [P]-PEEK /TAB "TAB SGN EXP [D],NOT f~xn READ  SAVE ASN 7 OR ASN /ASN AT 5u+©[R]CdSGN  STOP }STR$ M$[C]j FOR  CLEAR [C]▝y[J] ERASE 4d[N]g[4GiBIN POINT  FORMAT e*USR 6nEXP Z! OR M VERIFY ]ulRND AND K▝G NEXT 'PEEK 3NgL SAVE LEN  SAVE x▟d[U][T]VAL$ [N][R]1UV OPEN # CONTINUE 4▝ READ [S] INPUT POINT  DRAW ld RETURN [K] NEXT :R3. CLS  FOR 4▜&[H]Z[A].+[F]] MOVE BPILEN  OUT 4 CIRCLE  REM Os OUT  FORMAT  LLIST [E][D]ASN EXP UFN r1 READ H READ [D] FLASH STR$ X REM #ACS [A] STOP POINT SCREEN$ [Q]&RNDgM▛W READ  MERGE STR$ |▚o><>PEEK PI[D] CAT OXINKEY$V INK NOT VAL [D]m CLOSE #INKEY$6}KREXP  STOP ATN )▙ATN K[P]M LPRINT  ^&HCODE e5f"Z CLEAR g OVER r SAVE J&TACS  RESTORE ABS CODE U FOR  PRINT Ib2W RANDOMIZE  BRIGHT  CAT PI[D]/:ACS wLN [N]clSQR m<QVAL (ABS mIN }O[D] CIRCLE INT Z5USR  POINT D CLS  GO SUB _IN Y OUT INKEY$|[C]STR$ $[R]s TO  INK [oR%ABS 5AT  lCe[L]▛ PAPER  BRIGHT [U] BEEP TAN ^$R[U] FORMAT MBIN ED[B]I DRAW 4ACS  MERGE U"[H] DIM  NEW CHR$ ▝ CLS [B]PI▛;[A]RND"VAL$ 4!<=)[ AND  RUN  REM ▞ LOAD CIic<4/ CAT w▖"▟3>CODE  LIST  LINE I LLIST  OPEN # RETURN T LINE m9J INK  IF  GO TO  CAT cZ▙[E][F]▖C▛RI▖▖BF BRIGHT -CODE M POKE [S][Q][T]/[N]POINT  LET "ACS v[R]}INKEY$ OPEN # IF  OR [E]xA[L]CHR$ d POKE O|▖[C].▞ACS ▗RND[M]8 OVER  CLS H LPRINT QACS yATN xh LLIST ^hkBh LINE "||c CLEAR xu LET  CLS  FORMAT TAN GINKEY$BLN  CLS  PRINT G DRAW  LOAD / VERIFY  AND [B] MERGE CHR$ 7 CAT u LIST SGN } PRINT  LINE W AND LN ATN  READ kABS ▗0q ERASE V[C][K]SQR  OR LNb CLS [K]DaLEN [N]TAB PEEK [K] INVERSE  RESTORE  DIM , MOVE  RETURN  PAUSE  THEN  LPRINT STR$  GO SUB  RETURN  LPRINT [H]#USR AMa#  OPEN # CLOSE # OVER RNDINKEY$/ GO SUB PEEK x DIM [O]{<=S BORDER  RESTORE  INVERSE  LOAD W:W LLIST ABS  LLIST  RESTORE ,S[ DRAW TAN )[C]T LET p INK 6▛ATTR INKEY$ RUN  BEEP kHSIN  OR *©▚ DRAW <>[M] REM  CLEAR  TO ][iTAN Jx[K]=FN oRMLN Y- CONTINUE  INK g[J] RETURN  SAVE c<=iqTAN [P]F MOVE  FOR ABS  PRINT G INK ' LIST 8-[D][N] LPRINT nCODE ,IN  LET g[P] DIM [D] RESTORE k& ERASE [M] LPRINT TAB  RANDOMIZE ASN [H] LOAD © DATA [U] LIST  THEN [U][G]') CIRCLE i SAVE [M]$ RETURN TAN  CLS i LLIST 8COS OJ[O]STR$ 'INKEY$CODE  CAT Z PAPER INT  BEEP  BORDER  RETURN ASN %P DEF FN  CAT  PAPER  SAVE <>[S]IVAL ©f[J]ABS IINKEY$INKEY$1i$)PY)KwW[B] SAVE +▜ LINE ACS  RUN ~" VERIFY B NEW MSTR$ <g POKE TAB  PAUSE  OR  NEW ©7J[A] NEW  INPUT Y0pc[R]hTAN ATN gi[N]gd RANDOMIZE _ CAT [O]~2 NEW ▙h INK Y5 CAT  AND  SAVE +!:!Q▙iRNDCHR$ 5ol[P][C]LEN D6<>RND LINE k[C] PRINT j[d ERASE ATN O][F][D]ATTR vybPOINT COS SQR TAN FN SCREEN$ & OPEN #[P] COPY  FORMAT [B]s[B]fZG&5 POKE i FLASH  IF 2 INK &RPc?Lf LLIST n CLEAR b/ ERASE r▞[E]J NEXT  MOVE PEEK XlSQR j CONTINUE  NEW  AND  LINE  MOVE ng GO TO 5IV5<> VERIFY STR$ CHR$  COPY ;C▖[C]x LET [ LIST :FN ($Y<> THEN V[V4 PRINT [D] AND POINT DACS TAN 4V-ATTR o[N]~▜e=VAL /SQR RND▖TST3 FLASH 88[U]TAN S MERGE FN  OUT  BORDER  STOP  LET STR$  CLS 0NOT D▞FN INKEY$SIN % INPUT % RANDOMIZE ▗HCODE  LPRINT RNDkSGN /&[L]w[U]$q IF  STOP  STEP H[O] COPY  OVER 7ZG[T]HO OUT ~[I]6VAL$ vx FOR  MERGE Pm[E]pL▚ GO SUB  INVERSE [C]k[T]COS ,▙[L]!d BRIGHT K/PEEK <=l[B]IN e▚+[ CIRCLE Z<>q2[F]RDVAL RCAT p MERGE <}p ERASE ! FOR W[L][L]@ DIM ? RANDOMIZE  LPRINT  TO  DATA <>OINKEY$ INVERSE  ERASE  GO TO 4©▛ RESTORE  POKE  READ ▗ DIM 9H FLASH 2 PAPER  COPY z CLOSE #4zPIN [R] DRAW nSGN oRPEEK ▟TAB )~ BEEP SIN 6tSIN POINT [S] STOP [T] RUN HATN [E]V~ DATA [K]DmASN , COPY ASN  RETURN i STOP © FORMAT ~H[C] LIST  STEP $▚ / BEEP [C] BEEP VAL COS  OPEN #H CLEAR >[D]▙ DIM [G]k▙TAN SGN  POKE  MOVE  RUN ;USR P[U]$ AND BIN  ERASE [L]LEN ATTR  READ  ERASE [I] CAT  VERIFY [E]QO BEEP  GO SUB ▛ INK $[A] OUT ▘_x CAT pN COPY <> RUN YTAN + PLOT  ^p; GO SUB  READ 9 BORDER [R]M1[H] DRAW tQ▝Dl/ BRIGHT  GO SUB ▘"Y▝(aD CIRCLE  FLASH ASN  CLOSE #AT ©b[Q][I]▗2Y& FOR o[T]q FOR 7[U]J0▟>="AT *[H]TKCODE  NEW [R] NEXT ABS /U-R PAPER L[M] FOR [P]TAN ▗ PAUSE [H]9 SAVE [ LIST NOT /ZCOS &2%[O]▘CLj PAUSE VAL INT r PAPER  MERGE CODE  PRINT ACS [G]X RESTORE C OPEN #$ IF  LIST  PAPER -[K][G]b'[S] CLOSE #[H]ATN LEN & OPEN #$cCOS uATTR e/ FLASH  INVERSE ©ASN Z[U]USR ▞[J] IF "R[A]Pe THEN _>BIN +yATN -3 OR  RESTORE [L]TAB ACS vvSQR | OVER CHR$ SQR  NEW [T] INK  PRINT A"z[E][I] CLOSE #SGN  STEP hV[ THEN ▚ PAPER xa CAT  COPY ?IN  ERASE  RESTORE [B][P]LEN %▞IN ▞i(H/ LINE )-$I[I] CIRCLE  CLS PEEK M IF bATN LN  IF [J][K] PAPER  ERASE <> BORDER _ BRIGHT 6sS FOR I PRINT SCREEN$ &CODE ">Dn[I]*%[D]lf LET eH▝ ERASE l POKE ▛STR$ TLN IN Zr LET q DRAW A6 FLASH 7 RESTORE  GO TO ©PEEK  AND  VERIFY TAN [C]uv7 LOAD bSIN | LINE ,[C]b[L]VAL ATTR COS kUSR JR LPRINT [A]eRND'USR VAL$ USR TAN ACS © PRINT LEN  REM [J] CLEAR  LPRINT CHR$ YVAL TAN  IF ACS  SAVE '$ACS  NEW ATN  LIST  OVER `xP▘qINT qRND[B]+ OVER 7) GO SUB ▝ACS E RETURN yV LLIST SIN >=kJ PLOT  ~O+ RESTORE [P]@[K]}'?[K]E READ i COPY  OUT  RETURN [N]Zx. CAT  BRIGHT [U][O] POKE  VERIFY  CAT [U]FN VAL PI[S] LOAD )| PAUSE  PAUSE g^D TO  REM iCODE  MOVE F~CWi PRINT O[O];~USR P OUT [E]_RNDh INPUT ▘[bIN  ERASE  SAVE IN  READ T▟HPOINT  CAT g[J] POKE _X[F] OR  SAVE  BORDER [L]C7[J]+o▛6$NOT OtM!,PI▟6PTAB EXP  CONTINUE [C][F]vR OVER INKEY$PIaT[T]8 THEN JPIABS HEXP SCREEN$ POINT [J]SGN *0 RANDOMIZE g[P][R]( PRINT IINKEY$3tPEEK ?; DEF FN  BRIGHT  OPEN #K[K]!B[H] OPEN #LEN [U]qx[P]s MERGE +E* NEW ^KTAN U[R]Z<I THEN  ERASE nu STEP  DRAW k<>[P]t CLOSE #1#< CLOSE #▙F4POINT TAN "<>>=A[S]▟JLN ATTR h DEF FN LEN [C]$qFN ▟AT INT oFN ABS SQR |fNOT [C]rATTR  OPEN #"6QACS  PAPER  OPEN #JFL PAPER  RESTORE  LLIST  VERIFY [F]RND[L]BIN f[D]RND%M0E SAVE u AND  PAPER F LINE AJ▚^ LET [K]▟[B]m<= INK ▟SIN RNDHFN [B]I OPEN #[F]INKEY$ STOP  RETURN I▝ ERASE ▞c6[K] RETURN vPp[C]s▗c/[K] GO SUB RonCOS AT E< THEN ©INT  LLIST ▙ OPEN # INK n OPEN #ll>=hCODE ▟ OPEN #39L' OR  PRINT  ERASE "+[b_ VERIFY STR$ =|s PRINT AT [C]C`F+6©SIN  VERIFY [K][E]_▖| INVERSE >=6POINT INKEY$[R][R]I%V.zvlq NEXT [E][Q]yIN  CONTINUE B CLEAR  FLASH l AND  READ  IF RNDATN [cV TO [Q] INPUT  CAT z AND M!IN L%[U] LIST qrO▗SIN ABS  LIST lw NEW IN { DEF FN  STEP 2VAL  LIST %ACS LEN  INPUT # POKE [▜ MOVE 'ABS  AND  COPY RNDLN `LEN ~ DATA [K]; RESTORE  LLIST /?[K]ATTR [T]▗[[O]U9RND>=J% LINE PB[K]zI INK BIN USR ATN  INK  TO [A]▛=▚ CLOSE #4TAN  POKE  STOP  ERASE  FLASH ©[U] RANDOMIZE I PRINT h▚ATN   CLOSE #[D]HbASN  LINE ONOT Z STOP VAL  DIM  NEXT VAL <>=LN xQEXP ) FOR  PAUSE  LINE L GO SUB <>[G][P]c/hm{x}p>MI LOAD VAL [D] STEP  LINE  MOVE  VERIFY  OUT A VERIFY 7 LLIST ▝ STEP  RETURN  RESTORE HLEN  MERGE <=+qX OVER IN K[H]▜>P.^▛' ERASE - IF Q LINE uP<=RA SAVE  CLOSE #[J]M PAUSE [H]U▘ BEEP r CLS ( FLASH <=%[U](b INPUT [K]j BEEP  DRAW  NEW ACS CODE  AND  PAPER <>ABS D SAVE [L]9g* OPEN #POINT F SAVE  INVERSE p OVER 8ATN J PAPER Z[J][G]G▖AB LIST [H]7e INVERSE  RUN fUSR 0 OUT z DIM  COPY n▛ CLEAR ATAN  BRIGHT [D] REM ACS (▟ LET V RESTORE [A]▙ ▝▝ATN q9 PAUSE  LOAD AT  VERIFY /LcPINKEY$OlSQR oATN |f}[L]2 VERIFY 4J▞[A]>  FLASH ro OVER  FOR [O]:{ IF 4[M]POINT $HEL[B]B LOAD  LOAD [A]MfK[N] GO TO kTTAB /8<=D9[F][S] IF `d^[P]4-8K[N] OUT  OPEN # PLOT  VAL$ 3_▟'NOT o POKE  SAVE SIN [P]▗▖)(4-o PRINT bR$V)l DATA EmTAB ATTR ?dFN c RUN fIGNOT > RESTORE [R]u[O]/R▖ PAUSE pUSR g BORDER iSTR$ ID""[H]M CLS [G]q[F]ASN [H]INKEY$O BRIGHT IN - COPY [N]SIN  NEW 6NI/▟J COPY NOT  OUT ▘H[E]LEN [A]k DATA VKCODE [C]ATN aNOT VAL$ [G]p PAUSE  LIST w OVER NOT  PAUSE  OPEN #H LPRINT USR kth[T] DRAW  PLOT  IN -K{FN  INVERSE  OR  BEEP 5ATN  ERASE b[J]? DIM [F]'~k GO SUB D DIM j<=[_F LET  GO TO 9 CLOSE # ERASE [C] TO ▘ FLASH  RUN ZSTR$ H[A] ERASE [C][BIN  INPUT 2? LET E$ CIRCLE  NEXT ASN .7SGN INKEY$[C]POINT f DATA )▟b~@Y[J]T LIST w[H]jSGN -VAL$  DRAW [U] RETURN C CIRCLE [P] DRAW 1 CLS ` SAVE ] NEXT [N]gSGN  INK  FLASH ATN  PAPER  OUT FFN  CLEAR ▞ LET T▝▟▙[T]h FLASH  AND POINT nPEEK [P] RETURN ▗[A]4!nINT  MERGE  CLOSE #ABS  LIST INT @[U] DRAW [F]2=Yp RANDOMIZE  PLOT  TAN STR$ /▗ RUN Ss LET 7>=[E][F]>9l DRAW © LIST y LINE 9FN ▛ LIST B_▛: DEF FN RNDvINKEY$[K]ACS I4[C] SAVE  TO 5tRm DEF FN  OPEN #e PAUSE ^b RANDOMIZE  DATA  ~BIN  OUT $SQR xt+/C!POINT [B]o CONTINUE PEEK  CLS  VERIFY EYGWx5/NOT nCODE K.INKEY$'LEN F8 DEF FN ©4 AND K!ATTR [I]: DEF FN jATN  INVERSE ITAN <>- STOP "COS  MERGE  AND H GO TO -[F]n)SIN [A] AND ▗![O]um LIST RNDA▘= FOR  DIM  OVER  COPY  BEEP ABS _ ERASE INKEY$ OPEN #FN B LET  POKE  IF [J]▗POINT TAB [N] GO TO  DEF FN i▝▘b;8F▙ PAUSE #5,INT [N]v/ RANDOMIZE ATN  STEP &ASN TAN  BORDER  TO  PLOT  [I] AND (EXP  COPY )▖I=%:EPOINT &v.pc[A](SX[D]TAN  CLS RND<>1ACS jrB OPEN #e LPRINT  DATA iR)(CHR$ +a!qo▟PtsGRND INK vfCOS ]mH AND )hmACS hlSCREEN$ [B]L[D]C▗: THEN 97 DATA V4AMR*n' MERGE ILEN INT  VERIFY  IF 6% ERASE WUSR [B] LIST [H][F][I][U] INVERSE /. AND yVAL  LPRINT  DEF FN EXP -ATN  STEP ^2riLN [J][B] PLOT  SIN  CLEAR  LOAD VAL A3 MOVE mSTR$ q CAT +'▚[K]%9[P]7]Q[S]VAL$ hMNOT [N] RESTORE [K] OPEN #c DATA  AND [B] BRIGHT AT  LIST [D] BRIGHT t[L]E[R] SAVE  LPRINT 8uS. GO SUB ▝][P]▝G[F]nV[H]USR  LLIST <=78▙[J] NEW 7>=eKo|O=$[N]▞!,K1$ OUT N.[P]<=▟USR  INK [K] ERASE 3X GO TO [P]61 DEF FN F ERASE  GO SUB VAL$  LIST  PAPER t[ IF  PAUSE Q LLIST g[O]u SAVE ] CIRCLE INKEY$[I]+oV=[F] AND r>=/ySQR  OVER 8yASN Z RUN  INK Od©[E]CODE *<='IN ▗O LLIST TABS K~5<>v STOP _<=[F]m OR  NEXT  SAVE ATTR  LET  OPEN # LINE RNDZ LINE ~ RESTORE { DEF FN CHR$ USR w FOR &[C]LEN kATTR <[N]% VERIFY T GO SUB I[D]SdRTAB aW-&h}CPEEK GxV FOR  REM ATTR IN POINT COS  NEXT ZNSGN [U]d#@^SQR  IF %TAB uv▜POINT G?I[F]SIN {[R] READ ACS  CONTINUE [i[N][C]I|[S]POINT ▟ LIST  CLEAR [G]w CONTINUE VAL$ ! CLOSE #[L] [G] LPRINT [R]1 BEEP uIN  GO SUB  COPY  COPY m COPY XRND[P]0q(▞VAL  BEEP  INPUT  PLOT  TAB }?d[A]k[N] INVERSE [L]©© IF =▗ DATA  GO SUB m▛SIN H STOP L BRIGHT x INVERSE INT [P]VAL  OVER [P]ACS [Q] READ  OPEN #BIN LEN ~ LOAD [J]▝VAL LEN  CLEAR STR$ }l OPEN # FOR V DEF FN LEN ▙aS3[G][C]▗▘ PRINT dHR? LPRINT  VERIFY  FLASH  ERASE SGN  INPUT  VERIFY H~PEEK  CAT fATN [K]$I>=▖P OR 2 GO TO w▞-▚<= DRAW IN  BRIGHT 0[G]PIASN EXP  NEXT IN ^[K]▜▝@▖J PLOT  [I]=ASN  BRIGHT `/aATTR Yk RANDOMIZE mAT n CLEAR ▚ DIM iPIf RESTORE GA"Q*l[A]I INPUT zp ERASE  RESTORE d--f▛Aq▟[E]KW^ DATA ;[ PRINT CHR$  DIM VAL f LINE ▙# RESTORE 6qIN KSm<=BIN [P];<< BEEP  STEP [F]TAB ▗eu▖$▜ BORDER  DIM <> FLASH ©IN -cg CLEAR  GO SUB  FORMAT  IF  PRINT p LPRINT c%D MOVE x FORMAT p DRAW ] RESTORE  OVER {[T] LLIST rp2/[U][G]s[U]xU CIRCLE [C] ERASE ACS VAL pDd]POINT {PIVAL  LOAD [R]▗/▘%"!G)[H]  INPUT bOW LLIST +!Y?INKEY$▖[©CHR$  ERASE [U]$%4@[R]4 LPRINT ▘~▗ OUT F OPEN #lSQR  BORDER  LPRINT U1 RESTORE  STEP ABS  LPRINT mf OVER Wl<>tsF?[2 RANDOMIZE W▝#'c ERASE ▜ LPRINT ACS STR$  DRAW )CHR$ ▝ INVERSE - BORDER &R OUT  LPRINT  LOAD INT [O] NEXT  CLS [F]SGN  PRINT [H]INKEY$9USR BIN USR s[P]9xQT OVER  GO SUB  COPY p[C]6 PAPER B DRAW - CLEAR +YLPOINT jMTAN :^AT + POKE ySCREEN$ cSiG/% VERIFY  CLS  NEXT *BSGN  SQR [K]NOT VEXP P CLS  CONTINUE L<=`z CIRCLE TAB k[R]s SAVE N:G[E]r[P]1[T]Uw[E]SIN [D] GO SUB  GO TO ▟ PLOT  }SGN .o[A]hkPCOS LLEN 0kE▞k!Q+ PRINT iSGN m-[P]COS  CLOSE #P DATA ▙fd▛ INVERSE ej REM  IF [N][Q]Y"<=[C]QSIN  CAT [K] CIRCLE [J]t" PAPER [N]bR[L]k NEXT AT U[N]aQWG: BORDER  NEW m[C][P]ATTR  NEW  DIM [U]t&[M][S][G]VAL$ K>=W'[M],/FN xTAB  STOP [U][S]▚Z[J]V/> LLIST ▝JF] RETURN R PAPER S STOP  CONTINUE [G]E RESTORE NOT  LLIST LEN  FOR [N]ATN <>[A][F]c[N]&>=xL GO SUB [B]TAN 9JRND FORMAT R*'TAB  CLS [S]a READ %iy BRIGHT [E]FN TAN MrHC[F][L][T]USR Cr[D]$ GO TO  READ ▖BIN [P]RND▗nl DEF FN jEwCACS VQ- PRINT 2H+INT  CLOSE #[R]ACS SIN I[K]1▖n▗HEXP 1J9~ RANDOMIZE Y6X ERASE _PI[P]▖OCCR|N OUT !1z CLOSE # DIM a BORDER  DATA R>=[ OR  DATA [L]q REM g STOP eSTR$ nCODE NOT _s)$ LIST  RUN x BORDER  DRAW  OR 'u_ BRIGHT FB1[G] GO TO j<= CIRCLE  AND STR$ I/ LIST NOT NOT ▖a' DIM "CODE VAL  READ fR/INKEY$s:3[C] THEN [A]I[C]<$▗8 NEXT <=SQR JTAN  LINE  FOR TAB [K] FORMAT ) AND %[F]|U[[E]D= BRIGHT _}[T]< STOP  DATA 9<>:PEEK  PRINT  PRINT 1p[J]*POINT  LIST )RNDSCREEN$ %[U][E]8▛ LIST NOT NOT )+j>=w BORDER wQ MERGE  CLEAR { OPEN #AT [E] DRAW /: OVER  RANDOMIZE USR [F] PAUSE  DIM  CONTINUE FN [U]G[U]▜▘~▜K_ FORMAT , OVER  AND [C][L]PEEK  BORDER (]▘T IF  COPY  LPRINT W INK oSTR$ >='? ERASE ASN  IF fE+o ERASE K RETURN [E]+>© MOVE NOT > REM [U]ASN I8 TO z]ATN /▜[U][A]▙tFN K(▞otTAN ` GO SUB ^USR x STEP -3[S]ORND© INK )m LIST ^P INK  DRAW ZTAN  VERIFY INT F PRINT [H]# RETURN  INPUT  CONTINUE d▘[O]xI5 LIST RND[H]FN m ▛6INKEY$~ DATA ABS j CLEAR  COPY 'NOT  NEXT  LOAD $Ma @"[M][D] CLEAR .5l RUN  NEXT <[Q]NcZUSR )/I FOR X NEW <= NEW %4 BRIGHT SIN FN ▙STR$ nq[C] CAT LBsSIN 1F[J]CHR$  CONTINUE [P][T]▗▗$[E]8YLN [U]▘9=?USR |2/[E]~CeP[B]`[[A]} CIRCLE HM FOR  RETURN [A]k?8<>+.E&▟FV[E]JG[S]K^p GO SUB ATTR  CLEAR o PRINT COS f STEP  INK ka PAPER  PLOT  ' TO MBIN USR ][U] STOP H(B*[D]BATN rPEEK g_[H] FLASH  IF |[U][S]~ CLS  READ  STOP  BEEP  BEEP pJKAAPIU5= LIST ; SAVE  PAPER 7 INVERSE f[H] CLOSE #[F] STOP a.<> DIM X[G][D] CLOSE #RND7Du[E]~"$`d CIRCLE FR[P] PAUSE RND LIST  CONTINUE ABS ▚FG% OVER % CLS ,m5S&INKEY$E[G]* LIST  READ :5STR$ ©|<4ABS o[N]5CPEEK  FORMAT [L]<> STOP ?[T]▝CHR$ COS  ERASE SIN VLEN [C]COS  LIST LPOINT Hj`[A]▝{ MERGE ')Z CONTINUE ▛ATN  MERGE [C] CLEAR  GO TO O? FLASH "XCODE  DATA [C]▟[U][H]}ACS ZPACS  LINE ▝ RANDOMIZE n OVER  PLOT  x DEF FN 8 VERIFY  RETURN USR bV▞PI)ASN - LINE  TO _qCODE ^[M]SGN ▝ GO TO #+|[G][J]TE[E]LN  SAVE 0XK▜[O]>SIN  CONTINUE ▟ RESTORE STR$ VAL /= RETURN [F] OR k[H][B]SACS  PAUSE ~ DIM  RETURN / VERIFY  MERGE  GO SUB  OPEN #LN mPOINT XLN :[G]a DIM h RUN  PAPER  FLASH PEEK ▟JTAN RNDN[U]X DEF FN  LIST <k# DIM COS oj|©[A]n>EXP  GO SUB VAL$ [D]SGN >= LET (9[F]m[G]▗jJh> VERIFY i ERASE [E] TO [Q][D] FLASH XABS  LIST  LOAD /T ERASE LN [C][K]/?4[J]$m+SINT IN  REM POINT  STEP > NEW O<=y>=' OUT  TO INKEY$SQR INT  CAT COS Q"I# LET TATN  GO SUB PASN :[E]P BRIGHT  BORDER U[N] BEEP 9[P]%VAL j RETURN  PAPER E.8STR$  OVER  CLOSE #R IF  IF d INVERSE }▞*q" OPEN #[I]H[F]MK LINE "SQR - READ  BEEP ▘?i STOP k▙l SAVE vBIN Q[C] READ X AND Q[L] CLEAR [D]YGACS [B]e INVERSE LN  OPEN # READ <> RESTORE (& LET m[K]ASN  FOR [L]1 INK COS |)1[M] TO F'Rm~[P]h▟ASN RNDIN 5<>il$cS▟/P[G]OF[L]i NEXT x,[J]TAN +o ERASE  FOR o*G1 ERASE  RESTORE [L]9<=[C]INT ▞! CLS ▙ STEP ▖YCODE %STYbd DIM "[L] READ LEN <=H SAVE $STR$ _[D]F NEW  CLEAR  CLEAR  READ d▞[B]J▛ CLS X AND  LINE STR$ SQR MSTR$ -IrAT  RESTORE TAB & CLS [L]DPEEK FAT < LET ▗ STEP ASN rOD OPEN #O<=<>CHR$  INVERSE  STOP lU▝[K] CIRCLE [J]0 PAPER M,[L]=[TPL<=TAN VAL USR d-$ READ hRNDR[B]RND[L][Q] ERASE 2 CIRCLE CHR$ ▙9eSTR$ yACS o<>▟)H▖[C]M1 DEF FN ACS  READ !<> LOAD [P] CLEAR  RETURN #t INVERSE USR SIN [F] GO SUB i?[H]V PRINT $@LEN  ERASE J PAUSE 9>=FGm#IN |S OR } OPEN #VAL  OUT ]H[E]<= RANDOMIZE CODE MISGN ▖STR$ W<=ABS BIN t SAVE  COPY PEEK [C]IN ▝>x[L][J][G]_[H] ERASE i CLS 8 OR ▚ THEN .▝v_ RUN  SAVE LN y. OR &^| LIST  NEW P%ii INVERSE  NEXT IN [C]~( CLS BIN X▟ DEF FN O1'USR UEXP  ERASE  STOP ;]NOT  PAPER =lK ERASE [S]l%<>,)▜ PAUSE ▗ LIST [G]PI NEXT  INK <>▚ STOP  DRAW  INPUT  CAT ▚gtPOINT Kq NEXT ACS vp[O]POINT ] LIST  OUT  MOVE [P]([L]0RNDSTR$ [D]IATN  OR wNOT =il RANDOMIZE r[E][I] NEXT RND[L] DATA  FOR [N]NOT  ERASE y VERIFY  CLS GPIBFN [L]i GO TO  POKE COS h RESTORE ▗vABS VAL$  LLIST  RANDOMIZE _o[L][A]&CHR$ $[R] RESTORE [S] SAVE  COPY . BEEP K CONTINUE # VERIFY u)l STEP  MERGE  COPY a}SQR MaA%(SIN  PRINT '/E OUT  RETURN  OUT [H] VERIFY VAL  FORMAT  LOAD X[R]Dp  LLIST  LINE  RETURN ▖o INPUT  OPEN # DRAW  CAT  DRAW  PAPER [J]Lg OPEN #ATTR :,SCREEN$ [S][E]▘~s4RNDINT STR$ [A] IF u[B]NZ "[E]STR$ [Q]bCOS )[N]4E LIST  BEEP *ATN  GO SUB jmM RANDOMIZE POINT LY>SCREEN$  STOP S;A`[G][C]▗(ee▗+ LET  READ [T]mABS <> LIST  COPY ri©SQR SIN  CLS FN  CIRCLE  MERGE ACS  RETURN LlR1 ▘( IF  NEW DI*M[S]4SCREEN$ FATN  MOVE [S]▞H CLS  OUT  CLS o BORDER  LINE SGN PEEK ▟,"mCHR$ [U]=PI STOP L▞RTAN :5! OR [Q] GO TO '▗ OR PEEK  BEEP )"5 DRAW  MERGE ▟ RUN ABS  FLASH ~ OPEN # OPEN #ACS  BEEP M*p-[P]VAL  REM ~l%%[A]HBJNOT LN #kiC[B]T8INKEY$ GO SUB  POKE VAL XCODE ATN  INK POINT  RANDOMIZE hVAL ? POKE  SAVE USR ICOS CODE  THEN a98YPOINT  CLOSE #[E] OUT USR Dk6INKEY$6 INK 5 PRINT  RESTORE [U]} STOP  PAUSE [K]4[K]SGN (SO LPRINT qTAN ▜?F=[O] PLOT  RNDl-NOT LEN  CLEAR y$=LN  NEXT  DRAW p▜dNH LIST BIN [B] OVER  OVER ▞ NEXT [K]2twc5[U]?+[T]q]TAB [ MOVE  REM 5c[T]o{-8'y FOR to CIRCLE #J[C]B ERASE >=[A] AND i/d ERASE  LLIST V▙CPOINT 5▙ CLEAR  DRAW [E]POINT AT N*I+[C] STEP + STEP q[N]| GO TO ><>e[G][N]Od" SAVE OCHR$ qm:xe NEW 1[P]7ASN  PAUSE ▟CHR$ NOT -[L]5 OUT RNDPEEK %#qI SAVE c TO  BORDER [E]ra STOP  FORMAT 27 VERIFY G[U]7 CAT  INK INT  IF /[R]8▛CHR$ oC FLASH  DATA ATTR j PRINT ▚4 RETURN LSQR [I]IN QTAN [yVAL _`▙>r[R]1RND NEXT [[D]R0] VERIFY  INVERSE PIm GO SUB %j READ [G] BEEP  BORDER |h[L] LLIST [U]9[Q]4 THEN  RESTORE C CAT TAN {m STOP /CODE  GO TO 'cVAL$ VAL$ ▞ FORMAT %nkZ BEEP Q*lSQR P[F]v STEP H[I]SIN fSQR   RETURN  DEF FN PI THEN }N VERIFY ?ATTR A DEF FN ▚[K]4h[G] LET -ASN J&{PI GO TO ASN %TAN SQR j BORDER ▜a)5 OPEN # FORMAT [P]D[J]~ COPY ' INVERSE $[B]IN ©F▗F CLS Z$Fk PLOT  |;CHR$ AT > FORMAT :Ji CLEAR [!SxLEN © OUT  IF [B]z BRIGHT  LLIST  ERASE  REM M NEXT "[G] LPRINT [K]; SAVE i" OVER  RUN  FLASH 4I2!4CODE $[E] BORDER +i7sSIN  BORDER  STEP LEN 42COS -[F]f▚ CAT  PRINT FATN ▞TAB  CIRCLE &▟ACS [F] GO TO  OR )q, READ INKEY$ LOAD SIN ccl9%COS  BRIGHT x'D PAUSE  DRAW INKEY$AT  PRINT ,{[M] DATA !dF MERGE CHR$ EAT Y,$[I] ERASE ATN ` STEP k([I] IF  CAT ]b$ INVERSE - LPRINT DIb-lS[C]Dv$]bA(K[C]+F▘# STOP [N]F THEN IN  DEF FN AT 0>l-[M]zs MERGE CATTR  FLASH ▛-%STR$ ~iwb$% THEN  ERASE # DATA Rej DRAW  MOVE  POKE ▖ VERIFY m LLIST ?o STOP  OPEN #▞[G][U]XRND$[C][K] RETURN Y >= CIRCLE EXP  THEN b}BIN  RUN [w LINE RNDc VERIFY <> PRINT [A][M] FLASH USR [A] LIST *WTAN 6 ERASE 5[F]STR$ StV VERIFY ▚[U]SGN /a! STEP  FOR ,>=kI44%STR$  CLEAR 28~*T LPRINT Z# FORMAT [J]PEEK ' NEW [D]▝k▞<T POKE USR 5 CLEAR INT  INPUT  LINE c<=$ LPRINT INT HSTR$ [P][P]C_[D]~RND[U] NEXT  CONTINUE STR$ © FOR IiX[H]<= REM G▚ AND 4INKEY$ DRAW POINT  BORDER [F]ACS GRND46 OR EXP [G]" LIST )USR . IF  BORDER  ERASE Y[pTi[H] REM l OPEN #8 READ CHR$ qs THEN >= CLOSE #PEEK K RANDOMIZE  LPRINT 1@CODE [D]PEEK g[L][)@[N]B| GO TO  FLASH ( LPRINT Vx LIST IACS o0R INK  LIST  OR ( MOVE ATN <=_ OPEN # INPUT n NEXT [P][C]| RESTORE [S]b▞ DIM  VERIFY ATTR CODE  VERIFY G STEP  MOVE INKEY$$BIN F INVERSE fEXP z_ LPRINT  PAUSE  STEP 0>[J][M] CLEAR  DRAW  RUN LN F[B]P▙PITAN ou[A] STEP  THEN SQR VAL$  MOVE LN 5 LIST [U] CLEAR ▚tUCOS i INPUT o[P] COPY [G]PEEK SCREEN$ VE`# RETURN }©USR gm} OUT  STOP  POKE  BRIGHT  AND 2qa LPRINT COS COS  OVER PEEK  RETURN  FORMAT <=ATN  OVER [R]RND[I]T[B] IF Hu DRAW / GO SUB w[P] LET  STOP ATN (-USR ▖fSQR [G]SGN [I][▙CODE EXP  RESTORE 1ATN 7^POINT  CLS I%1q▖▘LEN ATN ee<><= PAPER  MERGE PI5 POKE TAN  VERIFY  MERGE '26DSTR$ BIN TZ CAT R MOVE  ERASE [J]<>.?_ DATA  BEEP YwS#Y COPY  LET $ DATA ▛ FORMAT [C]8t[U],%p[A][F]T BRIGHT }CODE n PLOT   POKE |▟USR  LIST )+6 CLOSE # FORMAT  INVERSE  LINE  FORMAT TAN T[E]T[R]"P"c:V0 OVER e BRIGHT L+ PRINT  RETURN 'o CLEAR  INK r FLASH [P]p$A[L]&[F]▘TAB d THEN D STEP  RESTORE SGN  RANDOMIZE SQR }( SAVE  GO TO  THEN ;H BORDER r_ PAPER  MERGE  PAPER m INK  DEF FN PEEK W.[D] NEXT Za/▞P[I]#SGN KZ LIST LINKEY$CHR$ %6 CIRCLE HNOT y<>INKEY$ZACS 0▜ COPY [H] RESTORE  FOR dSCOS w3SIN |y FOR  INK s CLOSE #L[S] CIRCLE [L]i65# INK X ERASE  OR [D]T4▗n PAPER SCREEN$ |nUSR ▖r[U]FN t/y CLEAR VAL  LET  CONTINUE  RETURN S{ DRAW  BORDER  FLASH  LOAD [U][A]BIN 4ILN [E]VAL ) FLASH [S]8 CLS [S][U]STR$   BRIGHT [Q]# BEEP 2▚[D][J]©[S]ABS ACS vASN  PLOT  RND9m DRAW x NEXT [P]D CLEAR <= BRIGHT 0<X$[L]f4ABS  OR [U]/yS LIST RND[S]77 OUT  PRINT <>[K] OPEN #)TAN o▘CODE ▝ LOAD <=j[X POKE I LINE / PLOT  <=[E] RANDOMIZE aATN  LOAD G CLEAR G[G]PBJJBK RUN SO REM Rr CLEAR kiPEEK BIN  VERIFY PEEK 9RND'%E SAVE [R] SAVE SCREEN$ L=< LET SIN [C] OR [Q]LN 3 RANDOMIZE ▜ VERIFY SIN  BORDER IN + SAVE  BORDER  STEP 1CBIN O.[U]gLN &!51H POKE [B]_ABS n LET ;l DATA d[F]IN  RANDOMIZE SIN [O]XA OUT  MOVE [S]^)ASN f'!X[U]SQR <=RND BRIGHT D CLEAR a LINE  SAVE K INK 8[M][M]1g+dp[B]$AT L▟[R]0$▘▙H▖ CLEAR ▚[F]'PEEK /1} VERIFY  OVER ▗ CLOSE #.ACS  OR  COPY  COPY  CLOSE #y,▝Q8TAB x_ABS  CLS  OUT  OUT @^T!w`VAL$ +LN  BEEP ▖[M] BORDER  RETURN ATN o* COPY @BESIN E OVER  OPEN #d[O]IN  RUN  PAUSE ol▜kV0#"I[H]NOT n CLEAR  CLS [L]? MERGE Y72 THEN [T]G COPY  DIM D RESTORE B[E]fr LPRINT RLN B PRINT INT 0tv- NEXT  PRINT t INPUT  THEN M&@▗oQ GO SUB  RESTORE  MOVE  INPUT g OPEN #[L] COPY ▟ ERASE 4▞VAL P PLOT  [U]!([U] CONTINUE SCREEN$  DATA T| COPY ▘7)[B]RD TO ▛{▟COS  BRIGHT v NEXT  POKE PEEK IN  LINE  LOAD sj" DIM *)i-S#7(PI MOVE  TO S▙USR  LLIST EXP [L]x[C]/K[C]: OUT eP OVER  GO SUB TAN ASN © FOR ATTR }[J]5[C]N MOVE "+-[U]▛eUSR !@[E]y PLOT   CONTINUE [O] DEF FN I[G]©▙ BRIGHT ▘:▚ THEN .sACS [N] BORDER  PAUSE  STEP CODE  INVERSE >▘ RANDOMIZE r▟ MOVE NOT [R]& BRIGHT & BRIGHT BIN LEN '^/[P]$NOT SGN  INVERSE EVAL [G][C]6 FLASH  INK LEN [G] STOP *[SQR OLEN %O[C] INPUT D9IN NSTR$  LPRINT INT ,2GACS  IF qZINKEY$▞[C]TAN F<> GO SUB [B]"6 GO SUB  INVERSE ▞ PAUSE |0i DATA [N]▜ POKE  LET  BEEP cABS ABS LN  PRINT ;e[M][yqV INPUT /▜7$SGN  CLS  INK [U]Z;Ie4} DIM &[E] DIM  BRIGHT [J]k[U]USR ASN  GO SUB [▗]S5] INPUT ▞f PAUSE r TO  CLS s BRIGHT & INVERSE INT [vKTAN LEN v[D] ERASE h8(ATN / AND  FORMAT ( SAVE  BORDER H PAUSE EXP $d- AND [K])TAB  CAT i[D]J DATA h FOR  NEXT  RANDOMIZE [A] OVER r% AND  LET [T][O] OPEN #GUSR  PAUSE h^ STEP #./ MOVE e"[A])*L INK )F>USR K* CLOSE #[C] LIST  LET  LIST [Q]OIN /VAL _o OUT [Q]TAB . DEF FN  LPRINT NIN  DEF FN  CAT NVAL$  LIST _ READ ? BORDER  INK  BEEP  NEXT  CLEAR (nN:Z SAVE * INVERSE  MOVE  NEXT  MERGE  RANDOMIZE " INK  CONTINUE >=' GO TO  RESTORE  FOR  LLIST  COPY  NEXT  PRINT  DATA  LIST I[B] READ f7S OVER  INPUT # RETURN 3W2JW IF  CONTINUE ▙FSQR  CIRCLE  BRIGHT  MERGE  INK >"©B%[P]P TO  POKE J READ [B] DRAW  BORDER x[T] STEP X[T]USR  DRAW  GO SUB © PLOT   RUN  DIM [L]_MVAL ▖&P GO SUB ATTR  RUN tABS  FLASH ~~▚CHR$ K DEF FN 0P STEP  BORDER &[I]VAL ].ASN 1[L]qACS R(C INK  MERGE  LPRINT [H][C]FN R[G] OR [A]( PAPER  GO TO & VERIFY  DRAW  COPY [D]3[G] THEN  INK  CAT [G]8j$ OVER [C]& LPRINT TAN ▝[A]`$: VERIFY LN © OR  PAUSE m CLS  POKE uIN  CLEAR  PAUSE ;V STOP [J]ATTR m>[Q] ▞@b▘▞ ERASE 2Y BEEP %ASN PEEK  READ ▗©6NOT [O] FOR [C]>=B,[M]aPBIN  FORMAT [G]H▗&[D]X[M]▖m- STOP  RETURN [H][D] INVERSE  GO SUB  VERIFY PEEK  BEEP 5tACS 1VlK INVERSE  OR FN pD[H]CI| LINE  CAT BLEN  RETURN  NEXT  POKE [D] LINE  PLOT  SQR [F]INKEY$LIF PAUSE  LOAD SIN  AND ARNDTSIN  DRAW mG_ AND  LPRINT  INK  AND  RANDOMIZE INT  FLASH  `▙g[D]SGN :][H] AND ) OVER  CLOSE #[B] FOR  LIST [X* BORDER VAL$ ASN ry▙IN 1 MOVE POINT [M]l[E]CHR$  RESTORE ▗8 AND &[B])E▖<= GO SUB  DIM  FLASH  RETURN .[L] NEW  CLOSE #m-[A] OPEN #B INPUT N<>SGN XACS ▙q LIST ABS INKEY$x RETURN I2LN ,b OPEN #▗/'B[E]VhZ$NOT yv PAPER  ERASE EXP H LET .A FLASH NR[T] COPY >= CLEAR  COPY [ RETURN ©5POINT COS $ FORMAT  PAPER ] LET  RETURN [F]sGx6 LOAD >=@K[S]▛ LINE SASN U8 DATA . STEP L6[A]$[E][B]c[P]R▖[' LIST 6 LIST FN ACS COS lTAB  CLOSE #{B LLIST slG" ERASE M STEP lY= PAUSE EXP M LPRINT INKEY$(VAL RND▟ POINT D▞1VAL nTAN ▖H PAUSE F TO  SAVE LN LN 856eSTR$ PEEK ^ SAVE q RESTORE ASN  FLASH PI▟[H]eml FLASH COS  BEEP ACS  NEW <>>=ACS i6g CAT  LIST USR  BRIGHT *]kF[K]z GO TO  FOR <$ NEXT  MERGE $rSTR$ 87g GO SUB  MOVE RRND#PEEK LN ACS ▝t[U]SQR USR [J]iIz[N] CLEAR ASN GS~ MOVE K▜>I8Oo▛) OUT z DATA t▞$[D] BORDER RNDELEN m READ SCREEN$ KV[I] CLOSE #RND4_ACS  RETURN t RUN  RETURN  SAVE [N]R FLASH TAN ([D]▖2 MOVE  DEF FN  [D]L MOVE  OPEN #y AND  POKE ( READ [G]( COPY 'ACS  BORDER ASN  BEEP  CLOSE # STEP 1ABS >=Baa[S] FOR USR iw/B(PEEK +Y OR ▚ STEP  ERASE  OPEN #m DIM  CLEAR .▜$fTAB 0 GO SUB  BRIGHT LEN  BEEP [K] CIRCLE 5SQR  BEEP ATN p PAPER  POKE IN [G]LEN J[USR BIN [(COS 'gZ CLOSE #[D] LINE  THEN 73L▚ATTR [U]8 REM AT  COPY TAB PIH%LEN v#H▖I LINE [E]<>|^ NEW /©w[J] INPUT FN AT E▚ PAUSE .AT +K}VAL$ RNDINT d▘ DEF FN 22U CLS Z RUN  DIM [T]▗FTAN ▟▚©_ISGN k[pE[[M]R[M]M9 FOR  CAT ?<ATTR AT  INVERSE  BRIGHT  PAUSE  LPRINT  BRIGHT ©Tkb" MOVE  READ  OR  POKE 87 LINE x[S]2>=B GO SUB ▛S-+I POKE [E]r▚ INK BIN GB TO ▙cH[M]i<<F RUN ` PAUSE Q LLIST LjrL ERASE ^"c%$▗ READ HiNOT RND5VX FLASH G[N]PEEK %[M][U] OUT FBIN [M]kM▘ LIST  OUT 9<=!F▟▙ua▚sYLEN ,ePOINT COS u CAT ecRND MERGE  POKE PIx DATA [M] MOVE f DATA -<> INVERSE oB[G][H]G(▞F INK " TO  READ CODE TRNDu$ COPY wATN 4CODE ATTR k32 BEEP ▝ LINE I[L]- IF Rq[G]CHABS [R]e- STEP TAN  PAPER  CLS F BEEP D POKE ▛>= PLOT  [K]©▜CHR$ yVAL 2R DRAW  NEXT POINT 0 BRIGHT F)N PRINT  LET *BSGN 8 PAUSE Q LINE o][BIN i[T] PRINT H[D]OCHR$ ▚VAL$ en=▛ SAVE l REM q[U] MERGE d[H]3%K CLS 1 LPRINT  RUN ▛>>=Y PAUSE PEEK  STEP ASN &.c DIM ASN x STOP K[E]o BEEP USR  VERIFY ^[L]m NEW D[L] LPRINT [M] PAUSE G<POINT ; RESTORE  STOP 1,LI PAPER J[E]▜( PAPER NOT ©TAN ?S$ PAUSE  STOP FTAB vd LLIST [I]<>TAN ACS m LPRINT [H]▙S^[H]= CONTINUE  OVER BSCREEN$  [G]&PEEK [H] INPUT  PLOT   RETURN m SAVE [U]2LEN ©[D]|_.▝USR  LIST Niso^ POKE JRd▞R`POINT j RUN  TO  FLASH  COPY E DRAW [S] LPRINT SIN  CLEAR [G]ABS B}/▞0BIN [A]`[R] DRAW  GO SUB ABS INT  COPY B ERASE S>zbA$BZTAB ATN  GO SUB  PAPER ;v$ FOR NOT 6 RANDOMIZE  LET [I&▙e2rv[C] OPEN #SQR OEXP LEN  COPY  INPUT M CLEAR [F]ATTR "n[P]C OPEN #INT !'▘▗i,[K] LIST  LLIST  GO SUB ▙)LEN IN [G][D] TO ▟=ASN $m LLIST TAB cZ DEF FN  FORMAT C^USR "Z[L]S RESTORE d▛▞yTAB  OUT LVc[; ERASE  OUT [A] CLOSE #SCREEN$ M GO SUB ITAB [B]"PIh▖Q FLASH lm%.E%[D][M] NEW  RUN l LOAD  INVERSE SQR ATN O[N] RESTORE  COPY STR$ OYKSTR$ "+IbR GO SUB MMNOT s LOAD g~ POKE o$ CLOSE #POINT }+#▞[J][I]4[F] BORDER 7[M])!O DRAW  POKE i,-?[F]PEEK 6▟▞SGN I' PAPER o%<>e RANDOMIZE G+IN |>2ASN [M]6zq[D]]1ACS qVAL ABS 46E6& ERASE ▖VAL$ (▖xxfPVAL$ TAN ▚[L] CAT H`BfKe>= IF UJ ERASE D_d LET NOT USR v CONTINUE ATTR F:> VERIFY  VERIFY R▗4[C]("Q<>-[S] COPY TAB  PRINT ▚&@[E]5z|M FOR mF STOP [G][O] INVERSE ▚ DRAW USR [Q][B]X LIST ATTR < SAVE xc READ O[L]BCHR$ <>Vp[E]SB©J[U] OPEN # OR  LOAD <▝OSATN ▘ OPEN #LEN [D]Y0JGpSQR  RETURN G OUT  MOVE [Q]z-[M][J]▚, PAUSE  LIST <!tINKEY$M:▝,N[C]~Y[M]s LLIST [A]TAN ce2}EXP  POKE  BRIGHT JcZE<=[ IF LN X9[O][Q]H MERGE c FOR VAL$ [M]v OUT T[O]|xQ LLIST }[G]}Rm&VLN J NEW [F][D][G]VAL c/:▛im[P] PAPER [h~ LOAD n0 ERASE * READ ▗ OUT [E][O]8ACS [U]$ DIM  CONTINUE  OUT V LPRINT ▚-so[U]NLN VAL$ [A]EXP  STOP <=▗h STOP [U] NEW l LOAD TAB  RESTORE  RETURN EXP  CLS i~b[T][C]▗`[F] CAT  PLOT   MOVE  THEN UAT F d-▝[R] CIRCLE  BEEP ckn DEF FN ACS  BEEP  CLS PI RETURN  LPRINT ▗[U]▞5] VERIFY  COPY |POINT g3(H[L]^ LLIST oVAL 6OF INK © OVER  READ ]?/`[U]_*[Q][C][N].[G]ABS  TO kF9Y*v▙ DRAW J?Z LLIST [M]IN f LPRINT INT >USR I TO % CIRCLE [Q]<=vACS  LINE  INVERSE >=4[M]BIN  LPRINT 0©m[R]%<=r COPY [U] DATA H[rQ FLASH  GO SUB 'CHR$  RESTORE 5 OPEN #y POKE ATN s MOVE TAB TAN dINT ▞ CLOSE #[S]HV▞Jc]I[H]2 VERIFY n[K]X SAVE M POKE  IF ASN  REM EXP QEXP 2LEN jrZt>= PAPER  MOVE [U]4E GO SUB 7 DIM NgJ CAT B[F]E6Txd"$ PRINT  MOVE SrsEeAT [D]g _CODE W+VAL$ W[L] READ 9 LLIST a[D]xl[T] PAPER dSCREEN$ ▛cSCREEN$  PAPER R PAUSE HdCOS  DEF FN  TO 5ASN ,[I] INK .V[E]}d LLIST [C]r▟VAL 3 STEP IN ASN j▟<=uVAL eRNDC CONTINUE ▚ PAPER ▙FN ▟ABS  CIRCLE  FOR ;;IF INVERSE STR$  LET V AND H▖VAL I VERIFY  GO TO }IN ~=McSTR$ NOT cSTR$  RANDOMIZE VAL { DATA FEq[B]bt GO SUB - PAPER nNOT  GO SUB  OUT  IF 4 RANDOMIZE t▚ POKE ` RESTORE  STOP K▙0▘wT;[P]U MERGE ▚4INKEY$ 8aPIi[▗} LOAD FSQR  INPUT S4ACS  REM S PAUSE 91[J]COS | FOR 5SCREEN$ USR ▜TAB 4 RANDOMIZE $©▝mASN ▞G& 6▛▞[I]▝BwCOS [J]h~ LIST mVAL  LLIST AT {? CIRCLE [G]MSIN [D][L]▛X[T] RUN  STOP [L] READ ABS ' RETURN U'7u} FOR m[M]8=SGN [J], PLOT  ▞9xCHR$ bSTR$ G[C] CAT  OUT  OVER j,[F] READ  LLIST ▟![U]}I~▞E DATA  NEW |ATTR p FLASH SIN  VERIFY  OVER N<)TAB  LET Ih STOP r THEN ▝IBIN  FOR @[J]$TAN  LET Ml{[J][R] OR [D]Q<> LIST b REM ASN [B]_ DRAW PI[O]TAN /[▙+[E] CLEAR ▞7 INPUT ~LN  RANDOMIZE STR$  STOP  FLASH St CLS   REM `sABS K<=[O] AND [K]1 NEW  DEF FN ASN  COPY  FOR ACS  PLOT  [A]F READ [C]ATN _k DRAW 3 LOAD D[O]P▟COS  SIN e PLOT  [P]o NEXT  LINE 4▞DCUSR k BEEP  STEP  RUN ©©[F]CODE ? DRAW !Q[R]",n THEN  DRAW  OUT [L]mT FOR  THEN ISIN g MOVE /MD LINE ABS ASN  LLIST J CLEAR [P]NOT  TO 6EXP STR$ [I]RRI AND  ERASE  RANDOMIZE  IF  POKE T▚ GO SUB CODE  FLASH  RUN l<> AND  BEEP oZ STOP YTAN $▖JTAN T' STEP L`▟*nRNDpE PLOT  [J]PEEK VAL$ LEN TAB 6 NEXT [M]}c]P PAPER `▖@ RI# LET VAL  NEXT  RUN p▟f[K]vPEEK  RANDOMIZE mTAB ASN fH(▟SGN LEN ▟Hm LPRINT ($[F][U] FORMAT [A]▙)iLEN "[F]Mb LINE  CIRCLE YEIN _/O>= BEEP 4▚ READ >=X[T] LLIST  OR [U] LIST "%ASN )▜LEN ▚E▜▜)- BEEP #[I] NEW  COPY - STOP amVAL ASN | INK d▗ IF bo% ERASE >NOT mNOT hh[C]*▜©▛▘AT  FORMAT ▛+,[C] CLEAR LN E]▟YS STEP o8SBS CIRCLE [K]X3SGN [K]▖[C][C][A] VERIFY ;|k" INK ▙i'B0,LN [U][G] LET SIN 2p[O]Eq[B PRINT  OUT ▙ MOVE [E]NASN 7I POINT ABFN Iq LIST ▟[E]?▘[G]>H▙1AVAL$ 'NOT LN .RND RETURN  RUN  LLIST ▝Z INK <A OUT 6▞ LLIST  MERGE 5)POINT $[R]LEN ▞il▚[N]$Me[F]RND CLOSE #[E][B]iFi/Nn POKE ; CLOSE # FLASH <= DIM nCPEEK ix RESTORE W[B][O]zC[L]Zp OVER  DATA @[A]▞ CLOSE # PAPER  RESTORE  NEXT J[D]hINT : LIST ©USR  DIM I READ  LPRINT FN x[C]▞ STOP [F]LN  LIST [I]NACS [K]`[L][J]T{Ib▙.,LEN >IPOINT  OR TAB  LPRINT [P] q CLOSE #[R]60m2&? READ STR$ |[C] PRINT p[T][D]Ks BEEP  LIST LN  PAPER ▜[S] CIRCLE  FOR 9 LINE r^[y[L] IF  FLASH ▙ds AND ▗ THEN  DIM %$CHR$  MERGE  OUT P<TI-LEN [F]FN j[T]BIN  LIST SQR u-SCREEN$  POKE #ATN d[T] COPY ^ COPY  LET  PRINT ATN h%ypATN B;[H]V[E]SCREEN$ "a] PRINT  RETURN  DRAW ▟ VERIFY  CAT 6 BRIGHT [Q]1"[G]" PAUSE ▞ PRINT  STEP t▞ RESTORE *[Q]%8LN I CLS [D]7RNDIN PI FOR  DRAW SGN [H]u BRIGHT  LLIST ▗[T] CLEAR  DRAW 6Z[O]h PRINT GajSCREEN$  INK TAN >e"[H][U] OR v IF  OPEN # OUT Uv▛" LINE 6[J]U1|[U]CHR$  VERIFY )2U▗ OR X!6H;RND[E]sY BEEP * DRAW 9 CIRCLE E=FN INT  LINE 5 LLIST [G]V5EXP ▟SIN K#▖o!I[E]I[D]'MATTR COS [P]>0 DATA f PLOT  n ERASE #G[G]▞ ERASE K[U]▛TAN TAB  SAVE /▛ CLOSE # BEEP  LLIST ▗q.[T]tACS $- LPRINT  INVERSE [C]OJb[J] READ 6POINT [L]▗i< READ 4LEN ATN  RESTORE " OR BIN ASN ATN M DIM Zi1- BRIGHT [C]Eh GO SUB iSCREEN$ Zd▛2yCODE D SAVE ^LSBj<z[G]$ RANDOMIZE SGN  AND  FLASH  VERIFY b LIST SQR 0B PAUSE  OR HisTAN ▟[D]=▙ BRIGHT =ATTR  MOVE $4[C]eATTR Y+[I] LIST ▗v[E][E]jN<? DEF FN  BRIGHT ATN  INK 7 LPRINT :l<=d NEW  DIM ▟[H][E]▝BIN  LIST ▘$Mj(AT s,▚ATN [G]0F$ BEEP KE=X RESTORE SIN RMl)▜K[Q] STEP ABS  AND WHHSTR$ iTAB R` DRAW [K]q LPRINT .[K]pM▗d[K]_TAB v▘ CLOSE #CODE 79Yfj[C] LPRINT   OVER ▞H CLS PK▜SGN SGN )F MOVE V DATA  LIST B ERASE #dcATN  REM <>=▛& LIST 4 INK ©▝ OVER ACS ▙%,q*R OR `r&'POINT  AND ▖O LPRINT ASN Fpm[H]rDSIN RND▗8 VERIFY x# PAUSE STR$ RND|j DRAW W LOAD +j=!)POINT VAL SQR [L]] CONTINUE  VERIFY [D]▞[B] STOP q8&▙ RUN  PLOT  [U] FLASH STR$ [G] FORMAT Y"Y THEN 5)▙N[cS# DATA [L] BRIGHT  LPRINT 8 LPRINT ▚TAN - LLIST  LET cSIN ATN  READ 9RNDACHR$  VERIFY  NEW RoSTR$  CAT  SAVE ▚ DATA S CIRCLE  RESTORE [G] CIRCLE *ACS j[N]< OUT [A] REM [C][O]g▝[M]SIN  PAUSE hn CAT 0▗PIZwCOS ZACS /E[D]D PAPER xINT ATN  RANDOMIZE h[M]+p[P]- LIST  REM [C][F]i`[H]} © FOR [J]6COS  RESTORE SGN ©x.q[C]<b STOP /S PRINT [J] COPY  RUN EXP  INVERSE $RND$[K]STR$ P-[G]▗ CLEAR [ATN u*<>ICOS POINT `<>3,%ACS ©[P] BEEP  RUN .JG BEEP  BORDER  BEEP ,W▟M@  i$b IF [G]RVAL INT ASN VAL &b OVER W BORDER Vye:-ad▞I(#SIN  NEW nuCOS ABS  GO SUB ePEEK NOT [D]lnuaCOH"[C]ha"LEN ,ACS  FLASH  LINE 8 DIM LN GZm BRIGHT ES$[M][C]K )I%[R]USR  TO =O{▘[S]YAPOINT IN ATTR e'<>CODE  BRIGHT U[B] LIST [B][M] OR 7ciziJA4<> INPUT + OPEN #4 STEP m[B] GO TO TAB  THEN k3 GO SUB meACS  INK {Y PRINT | LPRINT 2[H]H OR INT VAL PITAB RND.~ESQR 0[S]FI81 REM "▝sLN  SAVE [H] DIM H(" OUT z1x`Ig.! TO J[!ACS  OVER ▖D NEXT J[U] STOP [J]DbLN [K][A][S]d[I]I&o▛~ CLEAR {m8ABS PI" CIRCLE H NEW <>02ACS saV<>O4INT ▘ REM [I]S▚H[B]u▗COS /[C][L] INVERSE bK CLOSE #▗DINKEY$0e[B]t READ &#SGN  LPRINT kTAN ATN  PLOT   LET  VERIFY  CAT ,PEEK USR $` MOVE 5 ERASE K[O]j2 VERIFY 8Z MOVE | POKE JRQbN& AND  NEW $ IF 66IE>A>=[J]|9_[A]~j BRIGHT  CLS nMuHj>=I[E]rl RETURN ▖ SAVE TAB  LLIST %@TAB !xSIN [94J2 RETURN ©.^ RANDOMIZE  VERIFY [G]▟[M]X DRAW  BORDER SGN  PLOT   OR ,[XVATN xACS [M]p[L] STOP [H][A] OVER x[O][G] PAPER [F]| READ ▗ LET LN OPEEK jrAT rF LLIST  OUT [E] NEXT  RESTORE ▙▟VAL q)4 DRAW  VERIFY Wq[G]▗h[U]b[T]INT &SGN  LIST [L] MOVE [G] ERASE ▗ AND  LPRINT >='CHR$ POINT © PAPER ▚LN M(ATN NOT  DATA j" TO H[U]▛z▟ACS NO RETURN ACS  NEXT  FLASH rX*6 INK !AT n OVER 1 STEP /SQR SGN r ERASE  PAUSE M!PEEK  INPUT  COPY = COPY /▗ NEXT [S] 1SCREEN$ [T]VAL TAB  CLS ASN 68 OUT J4 MOVE V READ !sRND[N]INT ouNOT <>=[P]Y INK ~>= OR [G]+#oju[ATTR CHR$ u LPRINT  RETURN  FLASH 5 FOR INKEY$▛,YSQR ;`p▙"5,w BEEP [J]"S▙[F]^ GO SUB  OR $Or&SIN  DATA  AND [H]ACS SCREEN$ [D]M/h[P] RETURN  MERGE R PAPER (POINT MRkc9I[G]Nk4[U]M% PAPER &PI INK  PAUSE s REM N-" VERIFY ]PI LET @F4SIN SMCODE Jvt▙▛Ll▟ CIRCLE  OVER R[B] LIST ▟RND#[N] OVER -VAL$ pm(Pr▛▗[T]+ASN "c LINE RND▟▜ BRIGHT  VERIFY  AND LH OPEN #TAB SGN  THEN ATN LEN $STR$  THEN B'POINT AT  MOVE ESIN  LIST U▞LN VAL$ n ERASE ACS ▞ SAVE #▖/t[[G]BIN VAL ACS ▖PIBIN !lkrIBIN ▘ LIST :Nn▖[E]e0G'[I]k+▟ CIRCLE 2R`6 LIST D9% LLIST  DATA PEEK XCF2 NEW L2x CLS LN ▙ BEEP [K]dt[A] PAPER pT BRIGHT 2ZB371 READ FPIYX'[H]X-[B]VAL c PLOT   FLASH I IF v+▞tr[A] CONTINUE [K] DATA LN  SAVE rd`<= DATA 1 POKE #! AND dJEXP  OR Mn IF  READ  ERASE F4[S] CIRCLE ![C]VAL  ERASE  LET  LINE px# REM  READ  OR d LIST  ERASE  BRIGHT  DEF FN  STEP vRNDeCHR$ [R]hik-Lb[C]Y[K]qm▟▙P/c PLOT  [C]O READ  LIST ASN ] AND y0$[M] NEW Dnc LIST %hASN ▛QATTR ▘$[[L]Z[Q] DATA  OR ASN LN l,qUSR M▖ OPEN #j7ASN 1 ERASE m([C]@Sy NEW o[A]PEEK l]Y TO i<=r|STR$  BORDER USR yJ RANDOMIZE F)/ PAPER ESQR ▘ ERASE YZ NEW ,DBIN  PAUSE [D] LIST " VERIFY [B]F▚SGN #| PRINT ~k▚6E-X DATA  AND [T]CHR$ H ERASE 7RYVB BRIGHT ▖Y FLASH l NEW c CIRCLE  INK  AND [A]V#w- DEF FN Q LLIST STR$ HB7U AND /} PAUSE ,<LN [T][J] MERGE l[I]8"STR$ `FN ATTR B©<=&SQR USR ▘) STOP  RETURN g3 RANDOMIZE &3 FOR  DATA <=b-[H] READ <=L▝o▙ READ TAB  GO SUB  COPY  AND m$▞' THEN [Q] STEP *P BRIGHT &oSQR  IF  COPY o FOR ©[C]AT  CLEAR I▚DDZ[[U]O▙ OVER - INPUT {: NEXT [G] OUT [P] CLOSE #/HH[R]3sJ ERASE ▚: IF [A][F]k?}IN [P] COPY  TO /kRNDVAL$  GO SUB Q4[C]$(@[Q]ASN #hn[B] RESTORE  CAT [M] SAVE y▛▖ SAVE 4 CAT &,1 BORDER [L]jHp[B]T▖ PAPER 2PsCOS COS ▟[L]N CIRCLE zSQR 0▜[+6]- LPRINT n READ  VERIFY nh(!I READ [A] ERASE [G]PEEK ▙CODE LN g6YkPOINT [J]BIN LN ,AT "[C][B]TNOT  BORDER [U]TAN LEN DTAB STR$ -▘/D BRIGHT  LET >= DATA BIN  CAT NOT ▘ PAPER '▙[TAN ATN TAN [C]▗vTAB bAT  INVERSE LEN  LINE  DRAW CHR$ IN koke#/LN RiK▘cTAB [M]ASN %▝ POKE [N]x COPY /luCkA AND |VAL$ "[G]24LN F MERGE [G]Z`y0▗#RNDRNDSTR$ (n% PAPER [G]CHR$ STR$ p▘k[U] LIST ▗[A]2<= RESTORE 2BIN M AND R[C]2a FORMAT  GO SUB NOT [K]VAL ,` DATA  PAPER x[B]SGN  AND [R]$TAB 2%Dh[D]COS  TO c DRAW u OUT I▙[H]&INKEY$X[U] OPEN #o%8 DIM ATN  FLASH nn FLASH  CIRCLE [J] CAT [O]U RANDOMIZE RXLN [M][J] CLOSE # DATA [A][A]▘▘$4INKEY$[G]BIN  MERGE $ RESTORE ) GO SUB o[P] DATA [E] LINE  GO TO [USR  STEP AT ASN +% FOR #Hc8G PLOT  B RESTORE +[U]TAB TAN  VERIFY  DIM hSTR$ ATN | OPEN #$[U]LEN h[T]p LIST 9CHR$  GO TO  OPEN #ACS So[S]r LOAD  PRINT SIN ic>=Ac ERASE AT [mkCHR$  DEF FN KO[d SAVE  PAUSE [C] ERASE  FORMAT ^9[P][P]EXP ATN B OR  SAVE  OUT  INK [C]@▞+[M]H RUN STR$ iK91.~(▜dACS / READ HBIN [I] LET ACS 7$LEN e[U]CHR$ IN 2kIN  RANDOMIZE O6[L] AND ▟VAL [B]s STEP VAL a CAT Ibr>=M INPUT  FOR  COPY  BEEP  LET AT [B]:D GO SUB Q BRIGHT bTAB F1▙ BRIGHT LN ACS  DEF FN [L] FOR S TO FN b97▟ COPY  POKE -[J]TAB TAB `[N]FN NOT | SAVE  REM  RETURN )#[I]4▘▝SIN  LINE ▘O[L]!s RETURN SCREEN$  DEF FN  CONTINUE 6 GO TO <>[H] CLS d[P]Y LINE  BEEP o6{{▟ PRINT [H7Lh[B] OUT 7* ERASE [U][J]▗EXP bQX CLS KASN rkb5CHR$ L[A] STEP  BORDER  RETURN CSIN EXP X[I] LET SIN B AND  FOR  OUT v INPUT 3BIN XFTAB KSIN ▜g13&qATN )ASN =mV~ PAPER USR [U] REM p PAPER IG%% LET  0 CLS ACS SIN CODE $$ BRIGHT [K] FORMAT Unc[S]/<KCOS BIN TAN I{[U][J]y<>8l[,L2▟-Q)v▙CHR$ BIN  LINE _bT MERGE STR$ Tz© LPRINT  OPEN #[I] LIST  LET n[C]▞TAN ▛TAN !ISGN x"F; OR INKEY$Oq[O](PI PAPER <={Y[O]Mx▗ CIRCLE NVm DEF FN h9▗9<>B! DRAW /1PIM&2g[M];[U]1 FLASH 7▚p ERASE  AND NOT UCOS Z FOR [A]E[G] ERASE , GO SUB HCODE @ POKE PI DEF FN  LET Ld FLASH b[Q]qaMb[N]R6fASN TAN 3k▟bCOS LN K▟1DUSR V PAPER =▜q&G&TAN 1D[O]2 LINE V<><=SGN  THEN gVAL [H] TO ▚eJ[D] LLIST trINKEY$L LPRINT  NEW 8Gr LET [L]$ THEN 4▟N ERASE ASN  THEN f[F] LIST  OPEN # DIM [K][D]BIN [E]9XLN . STEP LN 9POINT $u AND  PAPER  LLIST ▜q STOP R▛▝ CAT c7m-0rRln▞<>SQR  ERASE Z DRAW [P]▟[L]x NEXT )% DEF FN W OUT ▜ OUT [H]SG▝SGN  LIST EXP JATN  LINE LN 1#CODE D%SGN "$x[D]M[T]▟ MOVE ABS -[S]ACS  COPY ▙><7&'<▛LR[L] AND /INT  PAPER  READ oQ[N]PI~ PAPER $ OVER [ PLOT   DEF FN [T] LLIST ▗|X[M][E]Sn[D]BIN VAL |[J]x~xSCREEN$  RESTORE 9  INVERSE f[L]|@ LET ,INKEY$; INPUT  PAUSE  COPY  INVERSE & CLS  DATA [H] ERASE ACS ©2` BRIGHT  IF S▚? STOP Z}F PLOT   OUT  INPUT  CLS ©- THEN  FOR [ATTR +HVAL$  INK >=ASN  RESTORE 4 COPY $3 GO TO  LINE [M]& DIM  DRAW  PAPER p CLEAR n RUN  CLEAR kSQR ATN PI ERASE I ,INT R[T] CAT  CIRCLE  CIRCLE COS ZV▛ir▟NOT [L]f"[B](j|STR$ iq DIM [w FLASH IN [P]ATN m PRINT  FLASH ABS ©% RESTORE [L][H▝RB[K]!s RUN Z/s[L]| CLEAR [D] DEF FN ▛LEN  DATA  RESTORE  OUT >=t[P]ACS  THEN SIN $[A] LINE  TO OY/ AND u6q;[B]STR$  PAPER F LIST RSCREEN$ EXP [B][Q]RND$▖▗qEXP 0x:W LIST  DEF FN  GO TO [B][G] M)qLN qRND▚▙6<> READ  LOAD [I]K BEEP   MERGE INKEY$[ STOP X▖[C]N[T]SIN $ TO  RESTORE [H];` VERIFY `LN lTAB zns&SGN < DRAW .▟NOT STR$ J CLS USR  FLASH CHR$ [E] LINE ▗BIN $INT [S], LPRINT o+%k[D]▗QXK/$<>+▙▚[O][I]FN ,o STOP BIN  AND CODE  CIRCLE [L]^[K]Z[I] CIRCLE [M]G7▟X[K]k,G3INKEY$6fPOINT  RESTORE  MOVE LN KY▘Z CIRCLE B NEW &_D[M] GO SUB <CdEXP _ NEW M3f VERIFY ^>aKq ERASE 5FN E[K]"./ LIST sTAN LEN D▚Z[M][L LPRINT <= RESTORE  LPRINT  DRAW [K][C][C]ASN BIN ASN RND▟TAB gaYr+CHR$ [Q][R])Q▟pjNOT p%▛,S FLASH SCREEN$ 7r[A] DATA [U]#il[L] RESTORE 4/[K] BEEP mv GO SUB  GO TO  FLASH [F]e%<=Fs$ STOP G GO SUB AT l BORDER # LET  LPRINT  CIRCLE nmrCODE SGN 3&INKEY$N$S`f[C]v LPRINT >=h BRIGHT ▛▞mHUSR `[Q]LN db[E] PAPER ( DATA CvSGN h LET [J]1F SAVE 8 DRAW ©[J][I] GO TO 6|[G]6``<>] NEW ▟W▗)$USR [F][E] GO TO [U] DRAW 4$b BRIGHT -j[K] OPEN # VERIFY [L]SGN "#&t+PIVAL$ m LPRINT lq LPRINT [C]▙>=TAN ^x^>=KcH FLASH [ PLOT   BEEP [K]Rc<=i4 LET  INK 7XJSCREEN$ >8[J]pNOT VAL$ [D]- READ ▙aSQR XCOS POINT LEN [T][S]F FOR 0~ LOAD |d RUN  RANDOMIZE  RUN  FOR k> PAUSE $ CIRCLE R ERASE } DEF FN BIN jr+ CLS  BEEP gABS  FLASH 4M<>CHR$  FOR m@INT  POKE VAL `X PAPER $ COPY [D] OPEN #- READ k&[A]▟uO VERIFY  COPY  BEEP U[D]SIN  RESTORE  AND xk<>"iCODE 7F  VERIFY ©3 LPRINT  INPUT .[S]VAL [K]Mvv LPRINT LSCREEN$ ?$ MOVE M GO TO S)e[▖[K]FATTR B LET ABS Y[S] OUT SVAL$ 9[O][S] THEN 3)*RNDTAB [ RETURN [L] THEN _[P]-p]e,0ATTR [U] OR LC NEW  DEF FN +4INT t▞6e READ Ei-▞3INT ACS  INPUT [B] CLOSE #TAN SQR [K]:eAT  CLEAR ~5[C]+ TO  CIRCLE VAL [K][D]E[B]J[O][L]c8RND8Y)CHR$ ▞CHR$  MERGE  CLOSE # INK [U]6 TO ( PAPER  STEP ▝!o MERGE [S]L[M] OPEN #8▛POINT ▟H[J]vtVAL NOT FN !x OPEN #&RNDVAL 3SAT  ERASE USR INT ACS *[N]Y▘ LINE 8STR$ RND[O]!BIN [A]SQR X[C]CT LPRINT Zjm[E][A]▜COS [J]<> ERASE <=` OVER ▙ INVERSE G REM /MVN[B]NOT E▞EXP 5*GF%▙x^[N] VERIFY HE0[D]n, GO SUB Cn[D][T]eRNDINKEY$PEEK a([H] PLOT  )[F]%,7▞[D]m[K] FOR $USR [D] BORDER  INK <RL][K]( REM ▖INT INT  INK 9v DATA BIN [N]O&tCHR$  CLS >na▙[D][B]pdBIN SGN  SAVE [I][I] DRAW INKEY$Ded NEXT USR XSTR$ [D] LPRINT J`▛ FLASH ;HL5 LINE ▙ AND rACS  LET &▖8DE[O][C]Y5>= CIRCLE  MOVE  LINE [G]"q.Hm[M] PRINT SGN  BRIGHT [L]y! LLIST SIN  THEN [E] INK "*U%[J] PRINT > SAVE bg LPRINT & LPRINT  AND LN SIN %~?/YAT STR$ ;LEN [F]rTAB 0EI'/H VERIFY [H]YdYLEN  OR  BEEP 5▚W CLOSE #tn{ INK USR  LPRINT $ DEF FN c- LIST VAL$  STOP "XSIN C DATA / LPRINT [A]ip FOR K▗ LINE ▚OmM(SQR  OVER  VERIFY  DATA G1$[P]USR [D] AND ▗INKEY$%IN S[P]t▖$ PAPER [C]j GO TO [L]35SGN  READ [L] GO TO m[M]<= FOR 0ATTR  LIST 9ATN v AND Wqt SAVE ▞[P] LLIST  ERASE a//ZR STOP LN ]CODE  LET [P]PItH BRIGHT NOT  INK Z@JTUSR ▘?t[I]/ CAT [B]SCREEN$ USR  RANDOMIZE  LPRINT  CLS  LOAD  BEEP  COPY 7_|I OR [O]C OR "INKEY$ CLEAR ▙CYM READ 9@L[A]ABS SGN  INPUT  OPEN # INK  FOR [C] OVER [S]& DEF FN  INVERSE [Q][Q]D[P]  CLS m OVER  BEEP [B]_&^CJ>= PAPER LEN Z= THEN [F][P] RANDOMIZE 0INT INKEY$ INPUT t LINE SQR  MOVE ▖[J]0 SAVE  DATA z NEW [[N][L][H]6~7ATTR ABS 6R[L]/wV DEF FN ▗[L]t$hI$[M] COPY ▝ IF RNDVAL <>ASN vCODE ZY FLASH [B]_ INVERSE ASN [U]l([A][B]RNDh(I CAT [R]Xp[D]/]3qmZASN nASN  RANDOMIZE VRNDlTAB  GO TO mSTR$  M▚[C]1[U][D][7c[I][D] PLOT  STR$ h CIRCLE FN BIN  CIRCLE 5ACS ▚uCODE ▚<> RESTORE EXP  RETURN nRND LLIST  FLASH  LPRINT [C][I]▖ CLOSE #% CIRCLE ATTR x;[C]6VAL v$hRNDSIN 8INKEY$2Nr2P0 CLOSE #[M]{"NOT SQR ▜t[N][B]INT ATTR Ff[I]>+ LPRINT ASN , MOVE d▜[E]▚[M]L|ATN ▘b▙v& STOP  PAPER IZ CIRCLE  NEW R▙LEN ▖#)▞b/ BRIGHT [I]NOT [C])VAL ACS "i!I[T]NOT x6 LLIST  INK )NOT bATN Z PAPER zb IF INKEY$ LLIST z▙>Q1<>AT w^ BORDER  CLEAR TAB n LOAD TAN X[B]D[S][K]$▗~COS ▝>w▚$tCHR$ ) LET [A]l▚▛[L]ATTR "& BRIGHT 7b GO SUB  FLASH  GO SUB  IF RVAL$ AT Y9um DATA %ASN  FOR 2m NEXT Y▟SGN Ddp([U]KK DATA USR  STOP  CLOSE #[B]FATN LN LN USR ] DATA [R]dSIN COS SGN a TO c# GO TO  BRIGHT d#k▟d[U]S,[ INVERSE , GO TO [M]|E[6 LIST r2Lssf[E]R STOP [E] MOVE >= STOP F▖$[U]1%f CIRCLE  FLASH & CLOSE #]▛/,▗ DIM #qSQR lfPEEK UEXP [L]fbK TO EXP SQR f IF  RESTORE 6SQR ASN >$b LIST  RESTORE ic0IPI)! STEP D BRIGHT ^I▘` DATA  BRIGHT  FORMAT  CIRCLE DATN [D]O INVERSE PIHACS [B]bVAL$ [4q▚ NEW [K]OASN [D]▖V OVER qM^▞POINT  STOP [ LPRINT 7 STOP |AT  FOR  ERASE  OR  TO p>=TAN  LINE ICHR$ F MOVE KBIN CHR$ B[D] VERIFY  ERASE G$ACS &5"4*Vg[A] DRAW [F]P`▞9 PLOT  _ CAT  ERASE  BEEP CODE  CAT n TO ▛CODE ]ASN dTAN $5 FOR ? CLS ▛6B PRINT ACS * BEEP LEN POINT ▞ LIST  INVERSE ?RNDPmACS  DEF FN  CLEAR [P]Um[J]v▖ATN d[E][G] BRIGHT [C]PI DEF FN aCOS L"N CLOSE #EXP M6=R▗ATTR [T] STOP )[S]OyjGB` RETURN jnU INK LN [O]ACS SGN .FN 2^ALEN DTAN ^? PLOT  /Kksf[I]ZATN  MERGE  BEEP %FN ;RNDMRMATN )( BEEP  GO SUB lk SAVE CODE qd RESTORE DRNDl[J] READ k NEXT ▙c'▗/[U]CV$Y DATA  FORMAT _hH CAT  LET [D]R ERASE ATN Ui FLASH [E] INVERSE ~ LPRINT .[D]▛VAL$ [J][E] THEN ~▖ ERASE TAB " THEN nh CIRCLE  NEW [S]NPEEK ▜TAB  DIM -RNDvv VERIFY  INPUT ZAT INKEY$▗MgISSQR ATTR wF▘}[C]BIN ▗ CLOSE #4USR FN  OUT  VERIFY  NEW (▗>=EXP 2 CIRCLE [L]+ ▛+bINKEY$H▞%[O]$[G]<>%FN VvBIN AT [R]'[C] LINE  MERGE &RNDSTR$ $▜>▟m[F] OPEN #$[T]USR msATN LEN 5NSTR$ ▙&$[G] INK Y INVERSE Z[R]INT ▟STR$ %1SGN 5oB,USTR$ 5TAB  POKE  PAUSE POINT $[C]LN <>we RANDOMIZE m▖[E]% FORMAT [Q]R DIM 7VAL 6"▖[x[P]SIN nETAB ▞d[F]▟SCREEN$ T<>*SIN 5c▗l PAUSE }USR J[K]▛" BRIGHT ▜1PEEK *[Q][I]ATTR ' OUT  INK {` ERASE R FORMAT  STOP ▗ CIRCLE CODE [B]>= INK BIN 9 AND LEN  MERGE eLN  CIRCLE  BEEP [B][D]ACS ATN Hp BRIGHT 'BIN 9 LINE 8H%STR$ <>lmSTR$  POKE [C]PI$sVAL$ RND[B][U]<>l[F]e^>=4[J]j[S][F]' OVER  CAT q[F]SIN Lc[H]$e LLIST [[iIBIN Y1[U] STEP  AND H[M]POINT /f FOR ▜X98 READ *#%p`INKEY$K% AND ▞Jl INVERSE [T]i[L]+IACS 9$[N]▛[A] LPRINT h[D]ATTR Dd BORDER , LLIST + <>xV/RND<TAB Q LPRINT K9PICHR$  LINE INT 8K DEF FN nBE▙LEN mNOT  CAT  BRIGHT  ERASE  GO TO  CONTINUE <>▖LN /xd#[S]ACS USR b>=/▙ LET 8 LPRINT )a▜mnMh READ kGE2[B][P][T]6 STOP  OR ACS %<>p DEF FN H© GO SUB ©h▞ NEXT ATN [N]1ABS USR BIN  SAVE mc[B]SGN ▝H COPY / CLEAR  RETURN Y COPY  OR Q'P. COPY ACS PEEK  OUT U FLASH +©Y[C]HB IF P COPY  CLS  CLEAR o[O] THEN [Q]>USR  STOP ISGN [E]12 DATA lTAB  THEN WVW NEW MLATN [O] SAVE [G]▖[E][B]KrSQR m,/8[B]ACS  PRINT  ERASE vATN vd[S] MERGE ATTR LN T)[M]ATN  PAPER [A]8g DEF FN  DRAW CODE  OUT TAB > PRINT da"<='AT `MSGN CHR$ DD[B]SCREEN$ [A][O]; REM TAN  INVERSE  PLOT  e OR ▗SQR A>e STOP nf[R]mi1- INK Ak▟LEN IIpl[C]k▙|/ LET )▟ DIM hIN J THEN ATTR X FLASH [M][B]INT <>&4 LET F[C]NOT &Rj[M]$;<=[B]▟% FLASH $ FOR [F] STOP 4$se BEEP S8J INPUT r5`1_Q RANDOMIZE hVACS zTAN  OR  DEF FN  VERIFY "62USR FSGN  RUN I STEP <3Yx{+6<=IBIN RNDATN )▞ TO Q[U] LIST ACS (ACS LEN 1 BORDER SIN  CONTINUE sds AND N DEF FN %l? THEN 796 STEP ▝TAN m<=[L]L%[E]NLEN  CONTINUE m1▖hLN CODE  NEXT RND RESTORE ▛0X.▞[I][M]rM MOVE  VERIFY LEN qL▗B OPEN # INVERSE PEEK  FLASH ^lKRNDi; TO  INK  INK jSCREEN$  INPUT ASN ▟ CLEAR n* OVER [P]EVAL 6XV OR ▞DeCOS Pe INVERSE D ERASE  SAVE  PAPER )o) POKE [G]VVAL <=[C]CHR$ | POKE PICOS [N]ATTR  INK <>sd,wACS TAB ▟ GO SUB [T]BIN  THEN [G][B]c9COS  READ V▗DACS  CLOSE #cD FLASH p1RND$TAN TAN <> ERASE  FLASH  STOP X▛q SAVE TAB  INK t[H]R81I;K LLIST  AND +d OUT ©AT ▟$ LPRINT [M] SAVE 4▙▛c TO [ PAPER [K]STR$ Ph▟jqkdZ`c▟p[B]ml▟y# CLS USR [D]NOT d/dD FLASH .[L] LIST  TO GF BRIGHT [C] VERIFY  IF :[F]INT ASN VAL M/[T]0n)hnL LPRINT [k STOP [K]IbhmUSR [N]EXP YMLEN hizm<>▚ TO BIN V[S]i<>GCHR$ <> PAUSE [D]ABS  OR  AND  FLASH SIN ▙9[A]<>▜2<> DEF FN 2MTAB SIN 9STR$  POKE ▙#Xd[G][L]dSGN 4▟- LIST -T[I]ISIN Kd{INKEY$[F] TO 8$ RANDOMIZE LEN Y CLEAR  LIST  CONTINUE v DEF FN }| PLOT   LLIST TAB  RUN  PLOT  z CAT  THEN  LPRINT P.i CIRCLE ~ CLEAR  LINE  LOAD I▝> DATA ` LOAD  OVER SIN  DRAW ACS  COPY 8PICODE USR SIN  DATA  INK [M] DIM  LET  NEXT  RUN  THEN [R][H] dTAN p"> RETURN SQR PEEK  OUT o©/U[B][G] CAT TAN X INPUT Ap▛o LET  FOR  OVER [N] RESTORE yz<=4 COPY i PAPER ▙d[F]E CONTINUE BC PRINT  FOR N GO SUB z~RNDUSR INT  VERIFY ▖ PAPER  ERASE  AND H▙h FOR CHR$ &LA[F] DIM {VAL$ l NEW  STEP  DIM  IF ▙= THEN [H]▟Rk SAVE u3BvP CLOSE # TO  LINE [A] CLOSE #i OPEN #kt#D READ t-$ LLIST POINT  CLS ^ OUT H[H]h FLASH  LLIST 6 PAUSE @%▝LHYTAB K▟ CAT RND CIRCLE LEN  PAPER i( RANDOMIZE [G][F][J]▟oVAL$ 0$ RUN rwd[L][L]ACS ▟ASN [U][L]TAN 9 SAVE ICHR$ 7D([B]'Ij RUN [H]/| PAPER 7r DATA "L FLASH ATN ' DEF FN  BRIGHT [G]Jm1 PAPER ▙ CLOSE #ke FLASH ATN #VAL [T]uv STEP BIN ▞"(T[U]z FLASH  DATA Y▞-2f BRIGHT ▞ POKE  RANDOMIZE 3 LLIST nm[A][F]dD$[K]x[K]_XCLN [N]x.J▝ Zg;F BRIGHT E!cRNDINKEY$▖q WSGN [O] READ #-LEN  CIRCLE I▗ OVER [L] OR -d{[E][N]IB-Km CLS ▟-[Q]LN rR[D]COS ABS   GO TO [B][D]ASN [C]D!J[N][[G]PEEK u@B OPEN # SAVE [G] DATA  DATA ▞D{[D CIRCLE INKEY$YbP NEW  OR [M]j▗mY[L][K]LN AT 8F▜ SAVE ([B]T CIRCLE M3([T]r INVERSE D[L]k▟[M]INT Tv CONTINUE ▟Yt}N FLASH ©▛INKEY$- TO  INVERSE SQR [I] STOP [S]BIN E[J] ERASE  RUN >9b LET  GO SUB [U]BIN  COPY [6 PRINT +[>= PAUSE / BRIGHT 4 PAUSE lrIRm$▞$EXP x STEP  INPUT ; SAVE 9{ SAVE  PAUSE  RANDOMIZE SQR _©[S]!CfSTR$ [S]a COPY STR$ B[Q] OUT [O] LPRINT `[N][O]ABS [O]>[P][P] BRIGHT } DRAW [N]9! LPRINT © DATA VAL$ |<> TO LN [E]LN dt`|,$`BIN  <= TO $▛K CAT M"ATTR +ASN  CLEAR  CLEAR  OUT  LLIST [E]TAB $?K COPY ACS ©OFN  LINE NOT POINT 9[F] NEW  OR [P]V IF ?E RETURN p▝ INK / OPEN #f PLOT   INPUT  BEEP J%YHACS  DRAW  COPY u INK ooc DRAW kOPOINT BUSR [B] H1>= DIM [F] INVERSE 6 CAT  RETURN  LOAD  INVERSE POINT [[C]Bv BRIGHT [C]I TO [O]ACS [D][T]5]M[R] FLASH  PAPER  BORDER <= FLASH n[E]3BIN U0hhc% COPY ASN X DIM  LIST ▘ DRAW SGN ? COPY  RUN  OVER  CAT ▟ LINE  OUT VAL$ +K[D]H[S]*$ LET FKABS  LINE  CLOSE #w BEEP *dSIN  OUT  MOVE EXP z PLOT  t7?LN  BEEP [B] DRAW ZSQR TAB OfP[I][U]lA[C]en[G]nf'▞[J]VAL$ ATTR hk[D] BORDER  NEW  GO TO H THEN COS  NEW [=VAL$ ▚ SAVE ]NOT :gy[N]2D` CLOSE #/[N]STR$ pACS  VERIFY #R$EXP  RUN 5 MERGE Tv[I]▜ATTR V©ABS SQR CODE ? COPY !9mNOT  ERASE  MOVE  BR[U]▗$NOT  INK < PAPER q STOP POINT LN 0Bd*CHR$  NEW ,RSQR .COS  DATA IN  CLS  IF a/ABS kH GO SUB - CLOSE #>k LLIST Q4 THEN TAN TAB ▟, OPEN #& DIM  GO SUB  OPEN #/HRND[M][U](LN vV%TAB EXP ATN u▗SGN AT & THEN Q2"[U] FLASH >= RANDOMIZE ASN mn$ COPY  DIM g)- LINE < RANDOMIZE  MERGE ! RESTORE NTCHR$ D GO SUB  CLEAR 3 TO PIATTR mb`(Y4c▛ LLIST Y?F LLIST  RANDOMIZE dACS  GO TO  STEP  FOR #_POINT ▟;}POINT TAB  PAUSE ?t COPY }COS  RETURN 4KEXP xLEN TAN D4 DIM  RANDOMIZE [D][T]VF$(TAN ▝]l RESTORE  ERASE $kASN [O][F]'FVAL$ * TO <>: BORDER  NEW / AND (▜}VAL$ F5[D][H] INK  OPEN # TO INKEY$+*EXP [G]AT  INK ▜.RND MERGE SQR ▛&nPEEK -W▜0 CIRCLE 3ddY GO SUB ; LIST `[F]?( POKE li▖ BRIGHT [L]ACS F▚mTAN 5' STEP [B]COS  POKE VAL$ ig OPEN #[F]de>=SQR mI[N]TAB :7ewe GO TO H PAPER t' RETURN 6▛8[U]BIN [J]i[B][L]$>=mLEN ATTR k INK 9[G][F]% FOR D4mL ERASE ASN IMr CLOSE #8PIQn MERGE 8M[G][K]e[E] CIRCLE 7[G] ERASE - COPY IBIN  OPEN #-ACS , LLIST !I$ AND 7WbdNASN BIN ▙RB8[U]N[G]CHR$  TO TAN 6 PAUSE ScFINT o OUT eRNDACS  BEEP V5INKEY$lSIN  OPEN #-[S]ACS [R]COS [A][U] COPY ASN ASN [J]tH NEXT  CAT  PAUSE  INK  LET pACS ▛▚TAN ~YAT PIx RESTORE SQR  THEN mk FORMAT I+ DRAW  CONTINUE [J]" IF ,N OVER EXP ?<> LPRINT  GO SUB RND FOR Kn[S]8ACS  COPY [[L] LPRINT [K] CIRCLE  DEF FN POINT ;INKEY$INKEY$INT  ERASE  NEW  CLOSE #CHR$ SATTR S BRIGHT LN [K]TAB 2CODE ▞ATN TAB  RETURN [O COPY  LLIST [J]m+INKEY$D DRAW AT [U] OPEN #KeZdDG.[J]T;K▙ DEF FN Jjv MERGE 3? INVERSE C[N]t FLASH VNOT  CLOSE #tR PAUSE L[T]?* BRIGHT SQR H[U]SGN  CLOSE #RND%mi#U%▚TAN TAB w= GO TO ▞ScTGu!- CONTINUE SQR KOVJ[U] PAPER  AND [G]I$ TO  BORDER  COPY Y2R"Wf GO SUB LEN  INK kJSGN  RUN SQR m FOR TH PRINT  GO SUB [K]INKEY$y INPUT  CLS USR LsYkOu READ  AND (l BORDER [S][I] VERIFY /n LINE bH FLASH  CLS ATTR el6[L]SDVAL q'<>*UPEEK  THEN  RESTORE ' COPY DEXP gF READ VAL HN~▝[N]V PAUSE t[T]ly5-TAB  READ E[L]RNDvATN r[B]d[T]Kr ERASE  PAPER [J]GUb FLASH >= LET  TO  COPY [O]/L FLASH i[B/[T]LEN a%TAN [R]U▖[N]v#RO▚ NEW [U]SGN C}N[L]<> TO ![I]M"z/ MOVE ▛[O] MERGE [P] RETURN [H][B]POINT e DIM ACS me[M][F]7r[B] LLIST SQR  CIRCLE [G]▟ BRIGHT