PSG-Wins: PSG-WINS.B

  14645 REM CORRECTED BY ANDY 2 OR SCORPION! COPY 
  0t] NEXT !XT] COPY u GO SUB VAL ![H]]@ MERGE [A] GO SUB VAL [Q] OPEN # RETURN  CLEAR w CLEAR w<> @e@/ CLEAR  THEN 
  10262 THEN ( CLEAR  THEN ( GO SUB _ THEN ( GO SUB G GO SUB F CLEAR  DIM [Q]@POINT @ LET  p0 ERASE @NOT  @[M][C] STEP [C]w GO SUB Do FOR [D]G7O OR  DATA +-STR$  STOP p@ GO TO +- LOAD 8c BRIGHT [S]-o▖` DRAW  MERGE - NEXT  GO SUB O RANDOMIZE POINT  CONTINUE  LLIST  9ABS )9)o RANDOMIZE  LIST  LOAD -8 INVERSE  LLIST  MOVE  THEN  THEN ( LLIST © CLEAR  LLIST 3 THEN (3 GO SUB _ CLEAR ASN _ MERGE >= CLEAR  DIM  IMP PROTECTION SYSTEM '95 8USR  THEN pYUSR  READ PEEK  INK g) READ  CLEAR $ LET  CLEAR t▖; LET  INK  THEN ( CLEAR s[E]W CLEAR  LLIST  CLEAR  CLEAR  DIM  STOP  LINE @ GO SUB _VAL$ w GO SUB [Q] LPRINT ; CLEAR ;m CONTINUE  djo4rWGK-:GT@U&".lI, STEP  INK *H:F IF x[B][P],>X'] PAUSE AT S[F] FOR  PAPER NOT [M]LEN *[G]C!<>j LINE RNDAT [F]j OVER ;- PAUSE k CLOSE #FN ^lPOINT  RANDOMIZE bWXM OUT ▚[M]POINT ASN ; MERGE © RANDOMIZE [E]uq~ NEW S OR r PAPER 2 PRINT  THEN  INK ATTR RNDCOS PJ6 REM H▜ OUT  INPUT  OR >= LOAD [O]EXP TAN jw+8ER_ly -:GTan{"/<IVcp}$1>KXer©&3@MZgtO/iv*7DQ^SCREEN$ [I]TuB CLOSE #GT▝WrSEXP  NEW [N]kb BEEP ER4U OVER |SQR  DATA COS EPOINT ATTR IN [J] OVER [P]*#jJ▜ATTR R CIRCLE [J]P PAPER CATTR TAB [J]WQEXP [Q]vu STOP ATN [J]EiSQR [L] BRIGHT [H], k LPRINT ▝ATN ZSEXP [Q][J]AiATN PI BRIGHT uR4GT[K]jF▜CODE hE[J]POINT /FA[P],tKB[G]njSCREEN$ LN |TAB SCREEN$ G|[R]fu( RESTORE tEXP jB▜ATTR [N]POINT EXP %]TAB ATN MCOS ASN oIN COS [F]LEN {UV[J]Kfsx[L]MlfPtP[L]Ml~[J]3fK[J]Z[M]/9SCREEN$ ElIRO[J]Z[E]Z9RR[J]Z@O{t[M]LyzER^[J]V_hz[T]COS [J]SwuRlYRSM[L]MdZRVAL$ ?4wJQPZ|VO[J]^_[F]PI GO TO ATN LEN IN nBIN kTV[N] CLEAR [L]M5[P]GCBAT -[D]▟FSIN }aABS }▛[N] RETURN 5 PAPER | INK 0BW[B]u DIM ?5ACS h[H]VAL$ 3JZ6Z ERASE Y▙Xb_ OVER _[S]^6]INT ]S RANDOMIZE [Q]hvg CLOSE #dTu4z POKE xtq[E]o CLOSE #u CLOSE #s4ISGN G[U]JtH[E]OTABS  DATA @GDETAN H[E]G[E]B DATA Y[E] MERGE AT W▛S[G]W SAVE [BIN W/S1WkjWxSHW^ZFN VSQR RASN V▘J[M]V DIM PI NEW  DEF FN TAB zTM STEP ^5 CLOSE #!T1 PLOT  c CLOSE #hTyT~ CLOSE #|Tm CLOSE #s CLOSE #q CLOSE #wTE CLOSE #K CLOSE # CLS [Q]+ABS  REM Y[G]XR_ VERIFY _[K]^][C]]VAL$ OUSCREEN$ / CLOSE #nTTABIN  REM W[G]T)ZZR^~>=jSZ/FLN O[I]iSGN SIN pTAN  PLOT  ts OPEN #<+L▞[L]=; INPUT WTAB . PLOT   NEW  LIST [D] MOVE VAL  POKE [S] GO TO  NEXT  DRAW [U] LINE $COS  FLASH [D][J]Z▚<>TAB A MOVE SGN ~[S]VAL$ CODE ]^ PAPER H OVER  INPUT  OPEN #T>= OVER FJ REM  PAPER [I]x* CAT  GO TO 6 RANDOMIZE [J]fACS P[C]SQR - FORMAT P[Q]iPEEK  INVERSE M BRIGHT ▖(3|<> FLASH I[S]ZFN  MOVE S▖ PAPER  LOAD [K] OVER [A] BEEP SQR c NEXT ©[K] OVER )=2nZVXG COPY  PLOT   POKE USR [E][Q]▞EXP a MOVE (PEEK STR$ T ERASE [F]0iABS MsPOINT c[S]SCREEN$ [H][C]N[H]Jw NEXT  DRAW -[J] OR J PAUSE [I]B^ OUT X THEN k7 INK ▚ DRAW  RUN FLN 4>9 ERASE  MOVE VAL$ jl>=COS ▘~rQ VERIFY  ERASE [A] CLOSE #C<>[C] BRIGHT  CIRCLE jx[E] DEF FN xLN  LPRINT Q PLOT    FORMAT  NEW © ERASE ; STEP  INVERSE @E[S]zACS  READ  OPEN #<>▜jim0C▘AJRNDSQR [K]R[G]~CODE PEEK  RANDOMIZE E[L]Y OVER  STOP  OPEN #. VERIFY !c©[K]_HLEN / CLOSE #[Q]c REM / OUT W%PI[M] OVER $[K]y BEEP Z[B]W"|j[K]<>[N]aCHR$ vx BEEP 3▙@[E][ MERGE 0[N][N]CHR$  ERASE '<= LPRINT  INVERSE - CLEAR  PRINT M[H]W GO TO G[E] OUT LN INKEY$9/ FLASH PSTR$ YD LOAD ▘ TO <=ySIN OyE[U]<[M]FN J}wPOINT c[K][M]<=S[A] OVER  OUT   VERIFY  LINE FN O LPRINT  AND I REM [N]▚ SAT d▟ PAPER jSCREEN$ 4SM▟ OVER y CLS  OUT SCREEN$ jSTR$ |[J]SOm[D]^7ZV FORMAT USR [P]/R▝[K]A CIRCLE BqATTR  FORMAT KF ERASE [P] OUT  FLASH  ERASE ABS  REM C@YUSR g ERASE [K]HINT {&O▟ AND TAN ]R REM ▜▗b INK ORATN  OVER <=x TO  DIM  PAPER WPI INVERSE  MERGE   CAT ▝ BORDER e[I]^$jnSTR$ tCzo LINE [K] RUN CHR$ ATTR  DEF FN [E]xgA DIM }^}CHR$  THEN `hAT @[O] INVERSE R` OVER [N]ABS Z© TO  PAPER "2 IF Y[N]R INVERSE  NEW SSGN USR d STEP [M]5aSGN = PAPER  NEW ![U] FLASH dNOT ] TO  FLASH ATN LEN L OVER mTAB  VERIFY @5@[O][I]GEXP 4▙B▞ GO TO CODE  BRIGHT f[N][M]@ BRIGHT [L]E~VATTR x@ CLOSE #.[O] ERASE [D]>=!FEXP m SAVE ETAB USR  DEF FN <>PEEK s CAT @ RESTORE  LINE  FLASH [A]W[E]^*k<E▗kS1;Qv OR aAT [C]0 DIM k SAVE  GO SUB N▝[N]0,ra RANDOMIZE Z^[S]INT ' INPUT YR CIRCLE 1 LIST lR LET m LINE Z NEXT ShO[S]/ CLEAR 0Xa[T]xP7<+ SAVE Y▚ACS OPOINT Ex INVERSE PEEK `XTAB  STOP © LOAD  FLASH / MOVE ^oR RANDOMIZE  IF X▝x^ CLOSE #5qINT CHR$ ? READ %^ INVERSE o ERASE CODE <9 OVER ] CLS ABS &S]) GO TO  SAVE [Q][Q][T] CONTINUE ▛ECHR$ 7%^ ▘S [I]r[U][N]|PEEK [L]VAL$ TAN F GO TO :9 INK  DATA ^% FLASH SIN [O] RETURN g▟ INVERSE FN  RETURN m|PL[C]ATN  RETURN RLEN I(~*n DEF FN /hNOT <[g; PAUSE ▜~R▝▙5 OR C LPRINT tF▝dQ[C]TAB  GO SUB V[C]@[I]`[H][G]AW COPY [I]pZ[R] INVERSE VNOT [J]Es9GFz[E]kIN  NEW o POKE  NEXT [O]@+ PLOT  &K[H] THEN  NEXT _POINT oVAL  FLASH t] RUN _#`>=|HE|,s BRIGHT 9>r5USR PEEK -ZHUSR [N]l DATA  IF TAN jZ*TAN m REM ▝▗[K] READ % INVERSE ▛ OR 3&CHR$ >LIN  NEW ▟xXK@0CHR$  BRIGHT dtB PAPER   AND G MERGE VW]jkJ CAT  BEEP 0] VERIFY  INVERSE k AND IN  POKE [L]▝h[D]SUSR  FLASH [J]F▝D[C]<>.^▙ RESTORE V INVERSE j CAT  STEP 3[I]R IF STR$ VAL$ [J]T6 MOVE $ SAVE (x[K] INVERSE  FLASH TAN P8 ERASE s[J]_ INPUT j CAT [R]W REM LN   AND H▞ INVERSE AR OUT X[D]dU'| AND ▗ OUT  > CLS  INVERSE  OUT ^>=Vv<=<= LPRINT  CLOSE #X?[ SAVE  TO [G]EXP T CLOSE # INPUT v CONTINUE  OUT 4.[C]SCREEN$ 5p OR _<=)C MERGE dA2BIN I> NEW YLN nef NEXT  DEF FN  NEXT [H][R][E] BRIGHT 2TAN $COS ;<*L[L]. LPRINT 7SLN ?k[Q]^ INK SCREEN$ j^4 INPUT [O]Ti<=B BRIGHT [J] FLASH  MERGE 7[I]B[K]B@ ERASE 4Qb; LINE (Pk[N]Y CAT A ERASE  LLIST -t FORMAT _bn VERIFY {CHR$ COS [J]_U/ MOVE [G]$PCOS ▛STR$  BORDER HF[O] OUT r;kB=iYXVi[T]TAB ▜ CAT iVAL ' DEF FN  LET ) BEEP ATTR  OR H STEP  CONTINUE  INVERSE d+<SIN j<= SAVE [Q]8Os6 LLIST [N]C/[G]!T LPRINT ?[S] AND R PAPER ▜ PRINT [H]FN  NEW ▘[S]Z BRIGHT COS ▞F STEP  CONTINUE Rh[C][J] INVERSE ▞m^/[N] CONTINUE SGN  LET  DEF FN }z STEP O!RLEN J8SGN bM© STEP |[_ TO sz/lATTR VAL$ |cZ^-▟ LINE <>J5 THEN j{a VERIFY k TO ▜[K] NEW ! INK Z[I]OFN  CONTINUE  BRIGHT [D][O]/2[U] PLOT  CHR$ YRZ▚y ERASE Q[A]ACS /ACS p[K]/ RETURN Vtw▗(] CAT  LET } PLOT  kZ] RETURN  LPRINT XPIHZDT PAUSE LEN 1 INPUT [[L] DRAW ▘zR IF f~kVAL$ V RESTORE 0#K REM >=dpFw OVER NOT f]EXP u= CLOSE # GO TO USR 1%D LPRINT [A]<>~ INK -[B]JH1 OVER  INPUT  PRINT [C] VERIFY NOT v LET  OPEN #-X DRAW -P IF z[ IF  MERGE ~  FORMAT ▛ READ m INPUT  ERASE ]SGN h# POKE [P]USR COS  ERASE [H]_[H] DRAW [D] BRIGHT G BEEP ePI<><=2 RUN  POKE  PAUSE © LPRINT BIN  RANDOMIZE QVAL$ {©IN 0 COPY ^x OUT u] RETURN CHR$  NEW  LOAD TACS  PAPER k FORMAT LN ABS < STOP W[G]TAN [Q]▙INT &8Z[A] PAPER | NEW e7[G]Pt NEW ATTR R=c@_RVAL$ p SAVE LEN > BORDER [P]}| READ [E]K~ SAVE oL INK VMiyR@[U]▖+ BEEP {T▘=^eY DATA &~@.[I]!{d%t%40▖ BEEP  RUN SCREEN$ FP BRIGHT l FOR 0Q MERGE 4J LPRINT  RETURN RNDS▙[F]R RANDOMIZE YTAB  PAPER ABS STR$ [A][G]b LIST [G]Z▚1UAT  LPRINT ©p!O[T]K INK  CLOSE # PRINT = CLOSE # CLOSE #fB;8%▗t LLIST SIN VZz BRIGHT SIN ';SQR [D]SIN [E] VERIFY ACS [L] NEXT [G],RwPOINT 9 CONTINUE d LLIST xRPEEK USR 8CHR$ > LLIST ]XCODE  CLOSE #>~[C] POKE [O]INKEY$VKSt| CIRCLE  DATA t:SIN U{s8+1TAN O[L][I]laVN COPY QqSCREEN$  VERIFY GNf,VOSCOS T NEW ▗t GO SUB [G]D- LIST  POKE q VERIFY IN WCx LINE  LPRINT  TO  MERGE eCHR$ BIN [H]VSCREEN$ GdY INK  CLS [H]|Z(PI[R]TVAL [K]."ACS &INKEY$:Z>INKEY$3▙6SIN  RESTORE  PLOT  INT m VERIFY USR Qz OR LN  READ INT T BRIGHT BIN  READ P< PRINT  NEXT ▞ RUN ASN  FOR SQR ''ACS E[P]<>NATN <=v CLS M GO SUB SIN /]6S▘ RUN uTK SAVE TAN [D]5 BRIGHT  DIM ?NOT Ro▙u REM g FLASH  READ & PLOT  RNDv4b? OPEN #43SCREEN$ `#y CLS SCREEN$ [Q]1 PRINT  LPRINT ▖3yH PRINT 6sCODE " DEF FN ▛(<= PAUSE  GO SUB  OPEN #3| THEN  PRINT 6cR▚3 INVERSE 4FN Z▟E}jz REM 7p▞]V. OUT  OUT FN  INK  LINE Kw OUT z VERIFY *[R]6 CLS > FLASH 1V(M[S]NOT {D DIM  STEP INKEY$fRFN LN [U][U]VAL$ [Q] ERASE  FORMAT  PAPER ! INPUT ACS PPOINT >F DATA NOT [T]jRNOT #%4EABS  REM D& CLS  LIST Z;.sVLEN  CONTINUE  INPUT bn LET FN *F AND [F] LINE hr[R]`NOT DFN o LLIST <VAL$ N ] RETURN Z RANDOMIZE ]<© DRAW  THEN  IF [G];POINT f CAT X PAUSE [E]VAL$ h%[S]vc*STR$ ▛SCREEN$ ACS  FOR Hh)[F]@ OR VAL$ tio[E] DEF FN  LLIST v}B COPY )*qEm AND  DATA  CONTINUE m NEW Oo FLASH u[H]▚`IN TAB  DEF FN [N]SCREEN$ PEEK ▟▘ASN ~ABS ▘INKEY$VAL$ TAB INT  MERGE  RANDOMIZE -aO▙xafuhi VERIFY  STEP  IF * CLEAR [U]L; NEXT ▛©Q[E] PRINT `hJphh DIM xnn@OCE DRAW fD FOR 8CODE Q*>=<>, REM USR ^s READ hF READ  REM k6k* CONTINUE 6h DIM JOz[S] IF * CONTINUE  INK  INPUT  INK PEEK N[Q]Vg*XPxJGAT {*w4[K]be+ GO TO  ERASE " MERGE 1=TAB RmFh ERASE  OR  LET ATTR X6[E]g8-CODE  DEF FN l[L][E] DIM  LIST Jh READ lFY/[I]JU>`CODE  BEEP  OUT CHR$ P&▗ INVERSE =&NSD[B]>= STEP ATN jPOINT  RETURN  RANDOMIZE ▖mgzjN[A] RETURN ^vCODE  PLOT  VAL$ PEEK )sSGN i GO TO o STOP  CIRCLE rV[[L]&n INPUT SCREEN$ ~QHuo[I]NOT ▖▖ CONTINUE  CAT LEN u REM ATTR  CONTINUE jsjG+hZ[H][H] CLOSE # THEN G>= NEW [O]RNDg▘H FORMAT  INVERSE +IN (ATN TAN cj60  TO  INVERSE o;v4-[L]od READ [R]mm,{w[I]LEN  SAVE  ERASE 72ATTR A INPUT R[T]xWSGN b OUT 2P© GO TO  REM |$SIN SGN -wINKEY$▗ GO SUB [I]|[C]q`0h}PEXP  DEF FN j4x*k IF USR 5 MERGE nO7ty CONTINUE [D][C]hd;f FLASH  CLEAR  INVERSE |{&* RETURN  GO TO PC( READ  LINE ) CONTINUE  RANDOMIZE [T]bm}© CAT CODE tUSR d▜nSQR EXP - CONTINUE [U]ie DEF FN [gn'RDRg! FLASH INKEY$ LPRINT <= IF 0/ OR FN oBIN [K]& INPUT x COPY  LOAD  OUT ▚©>k PAPER I INPUT TAB 8n/POINT tr[U] DRAW ▘Mg▟ TO  CONTINUE qfy OPEN #nd FOR v IF  CLOSE #.F GO TO  /▙lCOS TAB !m LPRINT $ REM ACS !` INPUT  STOP  LINE  TO ▘ DEF FN w> LINE  STEP G.CODE & INK <dtc/©9_f GO TO ^ GO SUB CHR$ TAB ▙▜o COPY lj OVER  TO n AND CODE  BORDER m CLEAR  READ n` INVERSE 2,lu[U]VAL$ I LPRINT l[E]l8ATTR SIN <=6uj READ  PLOT   RETURN d:RCODE ` LLIST  AND aABS fAT  POKE lblIN  VERIFY Q`?g@suv@}nw/l'ls RETURN  GO TO Ma INVERSE N3 BRIGHT m* GO SUB  AND bOBIN INKEY$tSIN VAL$  VERIFY H<>INKEY$ LET &<=ASN  RANDOMIZE ▚[C]f}~o[K] RUN u} NEXT  CLEAR © MERGE [L]Uf MERGE FN c DEF FN ©PEEK dv.m NEW ' DATA m THEN  AND k STOP n[O] INK  PLOT  [J]PI XSGN [P] READ pO▛[U]. CLS ATN ^STR$ ne5 BEEP |▛ INVERSE COS c IF  CIRCLE / LIST hS RESTORE <>lPI7 TO  COPY xb[B]X▗ FOR n▝B LPRINT [B] INVERSE lFN [H]IN  LPRINT LN %PEEK  CONTINUE  NEXT `q>= TO X OR D>=F[S]/INKEY$VAL$ LN ▚j[A]©aCI RANDOMIZE I[K]jza>AzVAL [R] FLASH  GO SUB STR$ {BIN b6ATTR {[O]+©b&AATTR hKNHLFItwrusrpY▖CODE Ra▝VAL$ |IN  RESTORE SCREEN$  VERIFY VAL ]h[S]Tb POKE bCHR$ CODE _' INK J LPRINT FN <>a[A] DEF FN s/L INPUT /dIN  CIRCLE i GO SUB | INPUT SJ5 RANDOMIZE  RESTORE TN~j FOR  LOAD SCREEN$ x READ ,DQ READ >=) DRAW re:D[K] LPRINT />=[L]B"NOT 0[Q] OPEN # CLOSE #M MERGE POINT y` INPUT D[F]ACS [J][H][F][H].yBQ1 THEN @ IF TAB  LET [U] PLOT  =)POINT <> BEEP  OVER  CLOSE # CLOSE # ERASE POINT [T]VAL$ [Q][T]EXP LN LEN ABS ACS SIN ▙ACS ▙[O]▙▝▘[L][I][C][L][M][N][H][A]EXP [M]+▙6[E]3& BRIGHT [A])▜LEN ABS IN LEN PI OR  OUT  LET  CAT  GO SUB  BORDER =7Y/}O`oSGN ▙USR  VERIFY  GO TO  PLOT  8/&`N[O]NOT RND PRINT ASN PEEK NOT )8VAL 'Mr BORDER  MERGE [T][K])=s LPRINT  PAUSE $v/[T]RINKEY$ CLS  LLIST /I; FORMAT  PAPER  THEN +j▗_ GO SUB N|,SCREEN$ ▖[C]s[N]s MOVE VAL$ c<>f▛`>=.v& SAVE FN <> GO SUB ~4ILVAL$ ▞DnZ PAPER SGN COS I DIM Fg` AND RND NEW gZLN IN YtINT  INK :{[O] BRIGHT  READ <©ABS  CIRCLE /[O] MOVE ][P] VERIFY r[A] CAT 1[D] MOVE [B] LLIST * FOR ^_2EXP  CIRCLE USR SQR  LET  RESTORE @[U]d CAT ▚ PAPER [E]([I][O]▗▚>=▙[U]PEEK  FORMAT VAL$ BIN  OVER  SAVE  DEF FN  GO TO  NEW <[A]fATN  FLASH RND RUN  OR  GO SUB ?{Uo}SIN  OVER AT  RANDOMIZE [E] CLS  CLS  RESTORE  NEW  GO TO  LLIST  PLOT   FOR #9&893<:7MJDMD@GD__WS▞W[O]G BEEP qW POKE ATN h[E]v NEXT  MERGE 7{UACS [F] PAUSE  CLOSE #t▚PEEK [M] LINE VqTr|zxfdjl.TZ/FD6H60.$ INPUT  STOP  SAVE  VERIFY  CONTINUE CHR$  CIRCLE SIN TAN VAL$ [U][O][A]v_y_UABS ▞9R. FORMAT  CLOSE # STEP y MOVE GlINT  CIRCLE  LLIST Gx8{YATN STR$ }R PLOT  [M]SCREEN$ |f POKE G POKE Dte RUN $[B]T[S] PAPER VCOS [M][P] CLOSE #D THEN 4[D]4 RANDOMIZE $N PAPER  READ  PAPER INT  PAPER I[G]=VAL x▙BVAL$ ?[S]w[S]C▚je3RND[U]5$t[E]zPIJ3[T]rrzr[F]LN[U]TIN DnbkVAL  LET [D][# COPY  CLS 4▛u)p%[E]Y TO  LIST  PRINT ▙INKEY$ATTR [L]+ DATA [B]*+KASN [Q]us FOR [I][O] RUN Zcp[M]*[H]TAB  PRINT u ERASE ^sCODE mEXP [D]K INPUT  PLOT  t FOR  POKE  LET <= MOVE v▚g} VERIFY  INK BIN LEN  RUN %[O]t BORDER [Q]PIIN▙w&j IF KULN = DRAW H#wtmu[N]▘[K]FN  PAUSE TAN E[G][S]M STEP L! DIM PTAN PEEK h,LLEN MuhISkt RANDOMIZE  PRINT [H][Q][C][E][G][E]TAN td/C t,e▚INT [U]v[A]+C7{STR$ [J]- DRAW G PRINT }ASN SIN  FOR  LLIST qt t LIST F BRIGHT NfwLEN IN  POKE VAL  AND NCODE USR X PAPER 7ATN mh OVER PEEK f LIST  OVER  CONTINUE o CLS  SAVE [J]▞USR ~FUSR [O]*▜H OUT Dm[A]COS [P] READ { STEP WINT d^ MERGE g( MERGE ~ NEW  PAPER /2▙< GO TO ]w CLS [J]TPEEK J CLOSE #`© LINE W▘INKEY$A PLOT  RNDqSQR ▙1 CLOSE #T FORMAT d>=[H] REM ▙ AND Jxc* POKE &<>^pgPEEK " LIST SGN  RETURN XzGXY{[U]STR$ ▜▞▜[J]▜>=z VERIFY  RETURN  LIST  FLASH Zc▘8SCREEN$ IN SGN ATN 9© PRINT  COPY ATN ©▞▜▞▜▜▝▜▜[J]▜▜▝▜▜▞▜▜▝▜▜A STOP ze CLEAR ▞z`K SAVE OKS}|▚~ LIST (xx1VAL /w[U]D ERASE ▙ ERASE + READ  READ `4 BORDER l LPRINT *▝%IN u>=O~z IF . DEF FN C7 LINE  MERGE l[J]a[L]*lI PRINT [I]tJ MOVE wSIN [R]7©NOT cl,SIN ▖6j.CHR$ NQ CLEAR VAL INKEY$ NEW >=48 POKE h[D] DEF FN  LIST ][N]`J|lINT yz8{yLN c LLIST o RANDOMIZE X CONTINUE ( INK % DIM  PAPER INKEY$ DIM rrA4SIN   FORMAT LOLN  CLOSE # PAUSE 4 LIST |5,[Q] NEXT  GO SUB SQR ▘LEN  DRAW | SAVE [I]dk▜ PAUSE 8 DEF FN  NEXT  AND AT ATN +h DEF FN  POKE x[M] LIST  REM A CLOSE #▟YCOS x▜Fiy[F]Z[A]xAFezBIN yABS [U]{▖ha LINE hg[I][U]AT  LET ySCREEN$  LIST [K]8XzVk IF |VAL t<4LN [M]Fy[R][T]H OUT [T] NEXT ▜ASN LK CLS [C]" THEN VAL  GO SUB EXP [M]+ IF ▘}! PAUSE EXP RND RANDOMIZE KDTAB INKEY$AT w8<> LET WySTR$  CONTINUE EXP  CONTINUE ><©LOVAL [L] DEF FN ▞x_PIh/ RETURN ▙i}=8 OUT  AND [U]td OPEN # DEF FN 2bGt@ PAPER  CONTINUE  DRAW f[A] PLOT  2 FORMAT G>=||EXP STR$ ]ZCHR$ mv OVER SCREEN$  RETURN ©[E]INT ~SIN :dC[N]▚▝V_IN &xm VERIFY  LIST PEEK A: GO SUB ,ZATN  INPUT gFN a RUN  RANDOMIZE  LLIST  NEXT [O] OVER  RESTORE i VERIFY CODE ][ INVERSE SQR  LIST @l ERASE  3 CLS [L] DRAW 3{VIk RETURN ^STR$ K| DRAW /x© LLIST `x[J]2▝ RANDOMIZE [D] PAPER V[S]9[P]q RETURN  SAVE JYgsl@>▚pLN LN LEN N%7 BORDER .▗STR$  DRAW VAL [B]|/ REM  REM  DRAW lp THEN B[P] SAVE ~]{iu MERGE " PAUSE  RANDOMIZE  CLEAR POINT k▟SGN $[E]NBIN L: TO + POKE ▛zmae PAPER  BORDER ▗|f?[T]J~©r READ  IF nRn CIRCLE e RUN t MERGE SGN .j BORDER 1~@F[M]N|▙eVAL$  PRINT et▗▞▘©▟ OR  BORDER [U]{Z IF a▝SGN SNOT ~q[H]?<[B]Q[K][I]©/ACS ISC▚mw|?t[Q]ASN  FOR .TAN  COPY  PAUSE !ASN  RETURN CHR$ ^yRZ|9 RETURN 4 CLEAR ATTR ▗}W?h[J]ATN  OVER ,LN o LLIST ▚l PRINT INT © POKE TAN EXP  INPUT  RANDOMIZE U▛~?f%BIN ▗ATTR  RETURN fTAT [T] OVER p CLOSE #.d PAUSE COS v^n|[R]SGN  DRAW  IF PIATTR /d OVER ▙Dm NEXT  LLIST a~d[M]PEEK # IF ;E PAPER CHabxIN [U]~d)L8INKEY$ AND u[C], SAVE ^B[B]0VAL ATTR CHR$ ACS [C]&<vf DRAW POINT cCHR$ ▜xmgLEN  FOR S INPUT SIN ▖s PAUSE ▛BIN =▛ TO c FORMAT  GO TO  ERASE ACS  READ p{ LOAD sATTR COS  FORMAT  FLASH ASN  REM  DRAW  CAT  CLEAR COS  LPRINT 6 VERIFY cZ( MERGE /8[K] RANDOMIZE Pl}[a[M]L<[C]▗uaLN E DIM doSGN :s'KT PAUSE ▗INT  LINE / CLOSE #j POKE :r BRIGHT  LET SGN  DEF FN  DRAW .qR=nx[R]©~[F]zH~ BORDER ▙ DATA |) RETURN [C]|L FOR [yx|^VAL _ PLOT   LET A RETURN  OVER  STEP 0oSIN * SAVE jyt DRAW {m MERGE Q CIRCLE xfraX* FORMAT ▙ OVER [N] RUN z[L]5▖~![L]=_ni▞▜▜▝▜ PRINT ▜x^ CONTINUE T GO TO c7ACS |tMU(CHR$ zKZSIN  REM  FORMAT  FLASH ▚[R]Xx[J]▜O~jPOINT  SAVE IN ('r_[ COPY ▚qCODE ux?/▚ OR y[M] INK ( RUN SIN INT [P] LOAD  RANDOMIZE /J, LOAD %fg[T]<> PAPER  PAPER [M]qy7SCREEN$ TAB p[P]1&/M[N]yV`|[D]SIN VW{ OR SQR DSGN j▗e[A]r CAT 2@U▚[K] TO TAB INT XRNDATN [M]yY CAT 0w[B] POKE  IF ESCREEN$ [H]x▘[L] RUN  GO TO c5 RETURN c▘M[C]EXP  STEP .USR LEN  NEXT ▙ OVER <>©[S]>=j▗t/[P] RUN ▝y1PEEK <)COS t$RNDnWdh_2▚ GO TO  DATA  REM  SAVE x▗ge LOAD $STR$ [C] DRAW APIlBIN [A]j<>$d▜[H]<=USR ▗wSTR$ <S{ CONTINUE  FOR kx27<=▜EXP  DIM INKEY$ DRAW SQR VAL SQR * CIRCLE s▗_ PAUSE  IF  CLEAR { INPUT [J]JVAL$  OR [wHd]eCHR$ =T OR ok! IF AABS ;3▗ PRINT ▟ VERIFY l3 MOVE l SAVE = STOP  DRAW iLN POINT  READ  BORDER  GO TO  OR mTAB RND FOR  PAUSE  LPRINT ABS [J]7 ERASE [<=▗ SAVE [L]FSTR$ :`<> FOR @5` LOAD  SAVE a[H]K REM SIN ATN :W CLOSE #▘ PAPER ▝<=8 RETURN IY▞Ly OR 7oZ[S][L]SCREEN$   LLIST  NEW e[C]POINT [B]xATTR _Q+<=a-▞9 BORDER [J]K▞M[D]ASN D▗ NEXT NzyFN M▗ DEF FN ~[P]J,▜ INVERSE <[C]JFN O<><u CAT ▙[OC▚x][A]Q[M]PE|CODE < COPY : MOVE -lIN 4©▙ACS IN NHx[D]* OUT ATTR SCREEN$  REM ABS l8▟a[I]>qi[E].q}▙[T][I]▜ DATA [F]▙uoTTAN COS Xtp▖COS  OR v_▘fOCtSp PLOT   CLEAR ▝ RUN #; DATA N▙D FLASH 2▝x& LIST  MERGE [C]}PEEK  OVER COS TAN  GO SUB PEEK  PLOT  PASN LN r BEEP [C]©w[C]u STEP SGN  RANDOMIZE  REM  INPUT #QV~▞ DIM :FZE BRIGHT #e[R]5 GO TO DBIN W OVER 3 FORMAT [G]M[I][T]o NEW W PRINT "gA[P]XCHR$  PAUSE 2W[D]CODE $?:BIN ^wU▙ STOP { DIM ▟ACS Xu▙ATN 6[A]{VAL$  STEP ;_SGN IN COS ") REM H[C]![E] CLEAR `[A]EZuLN q OVER  FORMAT TAN EINKEY$▟COS ;^ABS  LPRINT {%wU PAPER ▙kRq[N][B]5 ERASE  LLIST SQR TPOINT }7▞o▚ INK [P]INKEY$▟< RUN <POINT ?▛ LIST ~USR  CAT >=TAN I▜2Q FORMAT [P]ASN  CONTINUE  CLS  COPY ATTR  CIRCLE SGN y5BIN [Q]ik<▞y[A][U]c NEW ?LN ▖tATN zrw THEN [N]-▞_ INPUT VAL ^@4BfA▝_ GO SUB FN < PAUSE ?|pM[P] GO SUB  MERGE  CIRCLE f3 LET V▞>xSg!E[O] LINE  PAPER "Kp[C]]▖RNDy[I]i CIRCLE M CLOSE # GO TO ▗1 DIM ~▞sjOATAN op? FOR ATTR [B][A]▞ FOR < DIM  DATA  POKE  POKE &Pi▖IN  NEXT ((n▚D▘4XC[L]/3{}BIN <> BRIGHT [T]7SCREEN$ [S]K:▝[C]<>ACS ▛%y▜tBIN ▗WqO[I]©C]_▖<>^[L][D]qIINKEY$4 PLOT   MOVE R LET  RUN &EA DRAW ▚`?O+ THEN wmjs{▛EABS I[F] STOP  LET [M] FLASH ▘▜[P]wm<=q[M]EXP ©Z COPY U[K]T LET ▟SCREEN$ ku GO SUB [U] DATA [F]h[E]ATTR  GO SUB [I][T]GU16G5b LLIST (z4CHR$  BORDER [N]!q[E] LIST SCREEN$  CLOSE #K[N]TAN  INK  CIRCLE ATTR  CONTINUE }INKEY$[J]&{ BORDER [B]I[T][Q][A]F_[D]e/2© BEEP  RUN [B]SCREEN$ i[H] FOR n NEW  THEN ▙ MOVE [R][L]F_CU/][S]/N RESTORE ▖0mk LINE Ji▗ SAVE  DIM  VERIFY E BRIGHT  MERGE ?{%▘BIN yJO BEEP o[B][E] RUN VAL$ ▛ INPUT  NEW ▗@ PRINT  RUN [L]j READ [A][B]LEN &▗N_[J][E]CODE s/ LLIST [P] INPUT LN sro CLEAR [D]POINT ▘Z[D]` DATA CHR$  GO TO [O][M]+ RETURN ▝FN ,[B] TO  BORDER [G]Q[T]y[A]4F INPUT RND▖E[G]uL_TSTR$ [K][O]` AND s STOP 7FN [E]ATN [F][K]ACS [A]EXP Tu[K]e[B]CODE  FOR  DEF FN  BEEP RATN . CLOSE # VERIFY ▗[E]n CLS  GO TO  CONTINUE [I]/ RESTORE ATN PN▖▚xCODE Iy [T] PRINT d CIRCLE  MOVE FN :[J] CONTINUE [L]#{ LINE KSCREEN$  SAVE  CLOSE #[D]m/1hpl TO  CONTINUE  ERASE  PAPER [C]WSGN {[A]} IF c[J]<>cTAN [F][C]TAB [P]`^ DEF FN wW▞V[A] DIM *ATTR ATTR  DATA Q8[B][N]CODE [P][M]k BORDER ?[N]▖p7<=[C] MOVE  RUN >dMcNh:<=ATN [M] BEEP LEN  VERIFY 9x` DIM  RETURN   CONTINUE b INVERSE [B] GO TO /[I]3kd▛hhe[N]. THEN iD CONTINUE [R] LOAD "_[O]C2vfjJ( TO JXV▖wmQACS j LIST  BORDER *▜▖ACS POINT {M[Q][C]LAT [I]ZSTR$ #Z▖* CLS  PAPER uL[K]pqVAL fPEEK  CLOSE #▖g<>STR$ iACS FN "+ACS W(o:ji©  MERGE +M)(p▖l<fh-a DEF FN uf INK /AT ]H)[F]▝SGN l[B]▞ LINE p[M][N] DRAW COS PI[R]Hs[K][E]/VAL$ NOT ASN [G]o[I]"bO▙+INT COS N OUT MpPPy[I]/ RANDOMIZE j/.[M] BORDER [A]w▜ STOP K-[C],^lyLN e[C]3[E]GqQ BEEP c/[A] LPRINT [S]wPEEK vBIN 3 AND CHR▟[H] CLOSE # NEXT >CU^ CONTINUE [D] RESTORE ▛▙@oFN [H][K]Js[A]hS[A]-▚© LINE sCHR$ rN(p OUT Y▗VDSIN [H][G]SSTR$ CODE [^s*SCREEN$ %SIN ^"W[A]SCREEN$ VAL d[G]{ CONTINUE  NEW t REM [A]SCREEN$ ▚[U][CODE [G] GO SUB :We/ THEN FN 2C COPY 9[K]:}h[S]d[O]q[I][A] PAUSE #f CAT  OPEN #heCODE O BRIGHT +▜miNOT  LOAD  THEN Q▙RND[P]W SAVE w NEXT Y7@ INPUT j PAUSE <=▝oa2[J] LET _o[K]/LEN l© RESTORE [L]cl`3KL▝[A]ACS <VAL$ SGN ▖4 BRIGHT  INPUT [N]sPI FLASH goASN >=Z[M]cPOINT 1[N] CONTINUE EAT [I] FOR JjoR CAT COS  PAPER r[O]H[Q][O]L▟ NEXT ,U GO TO  CONTINUE  LPRINT  RESTORE ]L<tRU[P]oB9. MOVE / NEXT ?[P]dCOS :[9%▗ INPUT _ DRAW  CONTINUE  RESTORE USCREEN$ m[S]c OPEN #([A] CONTINUE nkAT t4LEN  LOAD  THEN 2Qn RETURN lAINKEY$}CHR$ [G]qF[n-7 REM  GO TO  CONTINUE  DEF FN  LOAD [S]SIN [P]%R VERIFY l IF fSIN ` OR  NEXT [L]<h OUT dV2USR y INPUT <T[C] LIST Q#;STR$ ▖r_ CONTINUE TVAL N8Bd,SIN srbm SAVE k@ STOP ll LINE EXP T[C]▟D[A] OVER n0 LOAD q[F]kS OR  TO ATTR v▝ GO SUB j~>;hl FOR *?F[F] MOVE  NEXT XB INK ©p&BIN [C]sSCREEN$ ATN  SAVE TAB [O][A][N][L]t▗-B[E] AND  COPY  LINE  POKE C RUN iwI INVERSE  DEF FN b▛! IF g[K]k GO SUB [N][B]n$[F]▖i▚[K]n NEW  LINE h CLOSE # BEEP Q LINE pbd! LLIST VAL j4 DEF FN WATTR TAN  INPUT [F]-[F]K[F]* INK [K]ha9[S][S]L>~j5▖,Hl[E] REM [J]Y▜[O]{9[F]l CONTINUE p[J]VAL n<=Vw/[A]j REM n[I]]I( NEW 8 ERASE do IF g+ REM r CONTINUE kSCREEN$ [C]CODE $VH AND )p|mwb©">i RETURN  !I3x>▛ACS cH[E]q STEP FN :NOT I7 DATA xI[Q]hACS R▙Z RETURN |[J] POKE ? STEP  LPRINT [K] LET t GO TO  VAL$ Xh1 POKE ▖ DRAW %TAB AT Pp BORDER  LOAD [U] COPY  BORDER  DATA PI( STEP  DIM CcSGN >pINKEY$iz$ CAT  DATA FN  PAPER DVAL k TO 5Yo9c RESTORE  RANDOMIZE  CONTINUE  NEXT CODE  PAUSE Q>=ZUSR POINT OPIPIFlSCREEN$ ml STOP W GO SUB ^r FOR ySCREEN$ zYLN DX CIRCLE  CONTINUE 1.k CLEAR z7▞x! LLIST E|[I]nSCREEN$ *X ERASE SGN fLEN j~ASGN HSCREEN$  INK  DATA nBIN sSIN  LIST NaVAL$ vt ▜Db CIRCLE  DEF FN VAL RzLI THEN *PEEK is SIN  LIST &▖{]LSCREEN$ h A VERIFY  GO TO  STOP  FORMAT 6 CAT {[R]*:vVAL  SAVE  RETURN &,` CLEAR n LIST j~5xiTATTR p STOP fNOT [E]'bCHR$ YPOINT ATN ASN S2 CLS  CONTINUE SCREEN$ ▗[U]{[D]▘©zl[A]Q|SIN ` REM F NEXT ,.> LET  GO TO wRl▗;wSCREEN$  MERGE  CONTINUE  RANDOMIZE  REM ,$ PRINT  DIM ASN J+8 REM B▟[L]& LET &j LINE ! CLEAR  CLEAR VAL$ STR$ [M] LOAD Ani}nCz[P] GO SUB Ny<d~ DRAW  PRINT uNOT T$hK*[R] READ ACS ISTR$ POINT u[G]TAB ▛ PAUSE -0x DATA  AND D RETURN  MOVE M>= INK  LIST NOT % DEF FN  DEF FN CHR$ Q.SCREEN$ Z BRIGHT TBIN YZ[U]uNOT FN FS STOP cPhV[R]STR$ q] ERASE [O] CLS "H THEN  DATA wACS I[J][E]Gu[T]T9<>▛ STOP {[J]q COPY _[P]NOT SIN  DIM {Y FORMAT _4<I[CY DATA | BRIGHT  DATA [M][N] BEEP [K]_▜9 NEW gt▘[S]~ RETURN uSSq RUN #R RESTORE B[R]ASN  TO [L] BEEP b OPEN #?ASN i TO  OPEN #AT Pt3 ERASE T(ASN ATTR ▜f COPY [I]W<v[F][K][N] READ ▙[C]FN N INK [D]INT >R+J^&[G] COPY |S INVERSE Y[G]EXP  CONTINUE jqcOSIN f[M]Q RUN  MERGE `]G CLEAR AT  INVERSE TAN  CLS 4S PLOT  g CONTINUE  OPEN #xaV▖3 NEXT NOT B~/ OVER OLN s_ CLOSE #ATN  TO  GO TO @}Adv' DATA [M]Z LEN  AND cl[S]Q FORMAT J)}W OUT l CIRCLE Q$ INK ;COS O][J]U VERIFY  GO TO UCHR$ _LEN 4[S]U2/ATN vx)w/T) CLOSE #rLEN  ERASE 25© REM Z<=U FOR n]N=mp PAPER ;hWY[E]6dlc NEXT ULEN %v GO TO  OUT Jd[N]~Q[E] CLEAR  RESTORE pXGU[C]StsATN  PAPER lFN R BORDER ?e CONTINUE *dC DIM W PRINT Q PAPER TAN  INPUT  RESTORE  ERASE | CLEAR  GO SUB c0h|lFN ACS SQR  STOP ▗>W4WL PAPER 0}[G]`$b[G]L NEXT 0&`[J]ACS [O]_s POKE bCHR$ W▟y/[P]]6Of?jTAN DdgMINT & POKE ATTR  MERGE  PAPER Yq RETURN W)BIN W GO TO  BEEP ;ATN 1 CONTINUE q[G]c REM [C]V▛▜'xEnIACS AMF[E]TAN j RANDOMIZE ^CHR$ ~ TO Qzpr DEF FN hSTR$ eYM▚ PRINT ▚[I][O] SAVE [C]▖ PAUSE [A]▘[C]LN ▙) TO [H]+[L]▖&SSGN s TO Lr(vQ:R LPRINT  CIRCLE [G]VNOT 1Q_[P] CIRCLE 9[/IY MOVE P INVERSE _n[N] RESTORE M<op[O]*F@<>[S][O]_L[Q]Jz LIST  OPEN #I OUT  READ [B]X FORMAT /INT [P] REM H DATA w>=TS8/▖▖L.`< VERIFY  INVERSE ~ OPEN # OVER ~LN  MOVE `[I]'Zuq<= INK  REM }[B]^ AT . OPEN #[M]*PSGN  OUT ACS n=LN R AND  OUT POINT INT S©Xh,t NEXT [F]R OVER U[K]ATN SGN ©j CLOSE #LN 4$ TO y8<C:USR HHt[L]]`:TAN H*yBIN &:SCREEN$  LINE [A]N CLOSE #H/uzb~[M]+© PAPER J ERASE QoyWc OUT yglSIN I INK 7}^ INK sm_E PRINT OU OUT m[D]M.[H] GO TO  CIRCLE LN  PLOT  D LINE Y/ SAVE ▛BIN ▚©?NOT K[I]PEEK  CONTINUE  CLOSE #QVAL Z LIST /0T PAUSE  PRINT VAL  RETURN ~ ERASE Z IF FN = TO _OKFa. STOP v LPRINT  READ STR$ l ERASE r0▚( OPEN #IN 9 READ ▛[S] CIRCLE _ABS L NEXT x! VERIFY  CLEAR x STEP x CIRCLE [S]▟NOT /G CIRCLE [Q]cEXP |;S:[O]CHR$ CODE t4ABS  THEN  DEF FN  CLOSE #[I]Kx[D DEF FN X2VAL$ H*@S[D]Hk VERIFY  DIM VAL$ QTAN GPifYPOINT ]SCREEN$ U+ACS !I OPEN #tTAB pi RETURN ABS LN [O]-WSR ERASE f%SQR [R]kLEN `Ak' COPY USn<=8B5>nEXP i/aCODE  INVERSE [F]I PAPER ACS ▚y PAUSE PIH POKE @yPEEK Y[O]  DRAW [F]F,y[T] RETURN @{▝▚RNDI[F])zTzEAL~M[[U]~QKN[R]]a[T]F[P]/]/}B[Q]Y COPY :©_[I]R[N]©]& BORDER Y^-Cl BEEP /{[S]R[L]PEEK "+ BRIGHT  INK W2T[K]~Z INPUT |Yh BRIGHT  TO ZFUSR T▚ RESTORE [H]c^[R][M]EXP ▘ OUT Bz▟LP/ STEP T; READ [O]DFF~{<KBIN ^} STOP [P]BZ▘{Y BRIGHT R[S]]9ZLATN / CLOSE #▛[O]9 IF  OUT  VERIFY QpCODE Z OPEN # CIRCLE /V INK <=?M[M] VERIFY N LIST  MERGE }Z MERGE UdV BRIGHT ^^SGN mCHR$ [B]~l PAUSE O/ READ Z OVER [P]+ OVER :FO[E]r DRAW l BRIGHT jIN %{ STEP M INPUT  STEP qdmNu AND FN  INPUT [J]FEXP E}nINKEY$=B OVER 6SGN [E]t/y[K]|_}/a=R<&] LPRINT [N]^ZASN VAL$ [E]iX CIRCLE 5Nn,l#HA[U]▚S}>D[A]<Z_ REM [E]V;BL[R]P FOR ATTR  GO TO ~ ERASE CODE  LOAD  CIRCLE N_ BORDER Tz GO TO POINT [U] PLOT  C` BRIGHT l CLOSE #SGN CODE icV CONTINUE [E][E]QZVAL$ [K]<F[O]R[E]T[R]|[[T][B][A][K]/{} INVERSE ][G]INKEY$TAB  OUT ▟[O] CIRCLE |/^< RUN & DIM  INVERSE zINKEY$9[O] NEW cZ[bB[L]P*e POKE ][Q]> CONTINUE  FORMAT xY,H CLEAR T[N]0Qu▖#POINT  LIST W INPUT Z[E]JpR` AND   INVERSE #Z PAPER [[K]MVAL$ $ GO SUB [D][J]b RETURN ?▘ TO -ABS  VERIFY c VERIFY Ni~l3^6d[N] INK _ PRINT _ OVER m[U][eQ OUT  FORMAT KXT%zW>= INPUT / OVER ▜A_ BRIGHT c*INKEY$DAPI[r&VAL SQR [P]_ONOT A GO TO c[K^ READ 4 INPUT PABS  AND PEEK ,_[>={ REM WnW CLS u[E]V DRAW $USR r_1SGN TCj[H]SCREEN$ 3▝_{ZW)y[K]X RESTORE  INK 3LN PFY OVER rAAT  RESTORE NOT ZMNOT  RETURN (&[E](ATTR ZH[H]IN ]xjPq>=dP!8Z[A]aV OUT n@[G]>YCHR$ +/[G]FN  FOR 9[R]QV[O] COPY  BRIGHT  CAT [SQR  REM FN  INK  BEEP ;FZ FLASH  TO  INK TPI FLASH [P]^ DRAW  CLS [J] BEEP  COPY @r[[M] PAPER _ PAPER x? LIST BIN 8SGN ^ LET  LIST ~pX[M]©j^h[ CIRCLE [U]ATTR J[R][O] BORDER [G>=J& CLS FN zABS P[J]1 OVER  INK )JH[L]K[G]INKEY$[ABS l REM l AND C[U]Y_J[_FN OVER [A]5XINKEY$BFN M?cEw%[O] THEN ^LN tJ AND o INPUT T VERIFY SCREEN$ l OUT  IF V SAVE Y DATA  OUT [R]CODE sfN( LINE $/TAN  RUN  CAT :=Aw|[I]&[I]*[A] RUN -X# "LN INT  RUN c+ATTR ~©[E]PEEK of[USR ?8X DIM [I]s IF  LLIST mG_&K*|<= REM N6G GO SUB lX  INK TVx@]VAL$ &[B][CHR$  INVERSE LN NYUVAL$ CODE LN [G]OINT LN © OR ([J]o[M]Z GO SUB #CODE  DRAW M FOR ]M{> INVERSE LN ePEEK ▟F OPEN #/w%▝ LOAD f7z▗VAL +[Q]INT ▝zj▙|r]w[H]A RESTORE m PAPER  CIRCLE R INK INKEY$^xv<=>=&X[M]T STEP INKEY$@[P]vXd CIRCLE 4[M]S FOR  OUT PAI CONTINUE ▚<>: DRAW IN r^t[O]&BIN USR  OUT  LINE  LPRINT :Y▘NOT ▚ LET Z BORDER  PAPER ;p)".SCREEN$ VAL$ fSTR$ Y3Y>=[E] VERIFY X]yLN  FOR D)[A][M]>[Xe▛R BRIGHT @DY LLIST R(ta} VERIFY ASN TSIN  VERIFY  LPRINT 1zlH CLOSE #fFN [E] DRAW INKEY$LN H[K][C]BIN  BEEP @ FORMAT ;D SAVE SCREEN$ W STOP 22 CONTINUE KVASN [A]SCREEN$ GP^NUj]VAL$ OqJL^[R] LOAD M[N] OPEN # THEN STR$ UP MERGE NQ.@Z NEW  LOAD |TAN ▖BIN POINT VAL 2<=O1STR$  CIRCLE Jp RESTORE  BRIGHT  PRINT  CONTINUE 7[U]nTz4ATTR <lTAB D RETURN  DATA CODE AN$ FORMAT INT 9UW<_V AND  FORMAT KATTR P,▞[E] OR  OR BIN <>^DBT THEN R POKE  PAPER ^TBD CLS VNTrdT INK VbTZtJD FLASH VxDZTv CLOSE #pTAT D[J]3}J ERASE PVBLz CLOSE #RU THEN U[L]▚[TAN W MERGE VP BEEP  REM  LINE  MERGE T[U][M]K▛EXP m OPEN #TPOINT ASN ATTR POINT ATTR TAB ATTR POINT ATTR RNDATTR GATTR [K][E] PLOT  VAL  RUN >=/ZYSB▖lX4b OVER wzj[T]W RUN ▜}ZV[L]6SIN <UQ VERIFY  MOVE pNOT mBLEN ;lUSGN Hl MERGE AT;x@ MERGE |xACS Hj COPY  AND  OPEN #&_E CLOSE #▝ INK F DATA  CLOSE # CIRCLE CODE yPm▙N[U] BEEP > OPEN #k BEEP bpSCREEN$ IBIN  LET [B]]U CONTINUE u"COS "{kSCREEN$ 4Ct:u0 RETURN SjACS >ATN BIN QTAN tJ LOAD tWTv* PRINT cPI LET _▗X(S[Q]3[R]Z MERGE ATTR -{0COS IgvVAL  OVER UV OPEN #nu[Q] CONTINUE SVDRTw>=hVTRTVT*TVTRTVTZTVTRTVTJTVTRTVTZTVTRTVTjTVTRTVTZTVTRTVTJTVTRTVTZTVTRTVT` 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 d VERIFY ▟FN [P]SCREEN$ H[S]E&E[L][G][CHR$ [C]VK>=TAB ydPOINT D[G]i OPEN #3 LLIST VAL$ M[E][U][F]*/[M] MOVE k^j/y[S] GO SUB  GO TO TAB GBIN  INPUT [C]fT CIRCLE  LIST  PRINT y#~ LINE dD>=[P]zkM4YF STOP  TO KRNDINKEY$[J] BRIGHT c>d OVER [L]gkLN /B RESTORE L[R]©4K INVERSE [U] COPY 3F$9XBIN 29 LINE Si. READ <dR0TAN U INK _ AND V[L]r PAPER 1lPIASN  PAUSE &9<6GASN H-NOT  MERGE b[U]▘SGN  CIRCLE b[M] LET  GO TO LEN L-{qRNDtATTR ▗XU~ PAPER * BRIGHT ▗[H] RETURN  PRINT !Q[E]T NEW ]LN  THEN [K]XPEEK  MERGE ▖[E][U]:H>=E1!gv[N]m NEW ▞ INK  PAUSE  REM  CIRCLE >=[A]PIFJV[T]qr STEP j DATA [T][H]ATN F&c OPEN #▞ SAVE ▙ GO TO POINT = OR [H] MERGE IR VERIFY  LET j▟l[F]?Kq CLEAR ▖(▛ MERGE  OR  OR @JN6SIN pr[T]0 OUT PI▚ ERASE  LET HABS LN VU GO SUB v CLEAR [H]{YATTR |x BEEP [I] POKE [E]o BORDER `CHR$ [T]) PRINT   COPY _ OUT  OUT ▗O▘ >▗ NEW {/VAL [D]SQR  RETURN  IF PEEK  BEEP [O]▞ [C] LPRINT  CAT |~ NEXT  COPY  CLS [K] AND [D] AND p CLOSE #[J][P]/ OVER  RANDOMIZE } COPY 7 RANDOMIZE  CLS ATN [P]yRND&5.JYATTR [S]eVAL$ A PRINT ;SQR  OPEN #VAL  NEW SQR {gOATN xV[P]H▟[Q]POINT ▗>=N ERASE Q[E] INVERSE LEN ACS MuMPOINT ;|ACS ▜;Q REM :~T<=LN ▗I[B]"03[C]nHAT SIN ▘YX] ERASE k[H]nV[A]& VERIFY  CONTINUE >=y1B)jD FORMAT @mdSGN Q PLOT  mY POKE  OUT  FOR  AND Sxe VERIFY M PLOT  ATTR  PAPER 89dh DATA $M FORMAT b@[Mz[S]VAL$  INK Y PLOT  'aso;- CONTINUE MBIN E DATA RNOT $ PRINT uISQR #(Q FORMAT 5[B]1"E[L] COPY  GO SUB [ CLEAR VAL ATN  IF VAL  RESTORE G~ RESTORE LN g[O] PAUSE [R]eQP BEEP [I]▖"[E]NOT  LINE  [H]HS1LN 9FN [E]SIN X<>E▙ASN <lASN TAB ▝e, INVERSE /▝`pq PRINT sSQR  OPEN #Z&rCOS AT mr%G▛SIN  GO TO  OVER G%[A] [F] ERASE INT  INK ,J MOVE BIN H LET 'D LIST [L][U]U CAT  LOAD ▚J` FOR  NEW  RESTORE mqH▟ATTR ]+v;D~= INK x'▛ OVER ,[C]0E`HlRCr<ONOT j# MERGE ▘[L]j{ VERIFY  FLASH "STR$ INKEY$ CAT &<>#( CIRCLE /j[C] STEP  LLIST  OR  INK  DATA USR !▚<> BEEP "BINKEY$[E]TY CAT  AND w▟IN (▟ VERIFY 2ddi[C]LN   PAPER <>gINKEY$▖ CIRCLE . INPUT  NEW so([M] THEN LSQR  STEP ▟~ CLS F©IN PEEK Z PLOT  ▟r TO ▞PhD CLEAR  POKE  NEW DIBIN <>n<> LIST SIN [N] READ  POKE K{SIN VjY RESTORE ▝t▞#PEEK ▚ OPEN #x LLIST  RETURN 8 THEN FBn0V▛ BORDER  PAUSE  CLOSE #~AT  PLOT  KD} LET )@* LET  FLASH  RETURN >= ERASE  [A][K]<=)"[C]>=Y9[R]SIN ~ DATA X9][G]▜ REM ;rPOINT -S RESTORE /LEN ▛'7ACS  FOR ,BIN ISTR$ )7 LET &'[G][L] NEW d$[D]WxUSR [K]DASN m RESTORE [B]bSGN VAL n[K]b4SIN VUSR SIN Y5QI CIRCLE  LINE ▘ INK {PEEK <id ERASE F[K][U]i INK  PAUSE  GO SUB  POKE W[K]/y FLASH [B] BRIGHT  COPY USR AT ▙i▘- INK {[B] RESTORE  BRIGHT }usZ▟COS SCREEN$ . MOVE  MOVE EXP [ATN h[P]rSTR$  NEXT l▛[B] DATA <=n LINE %& CAT SCREEN$ VAL$ [G] TO  DRAW  FORMAT POINT nPEEK F[F]OoAT  INT [T]-[C] INK  CAT  LINE  NEW ?SQR -!TAN LEN mb▞SQR lp INVERSE  INPUT $FN  BEEP SGN *]g MOVE [M]_TAB ▗&TAB aENOT M RESTORE 3EXP >CODE  RESTORE $ATN [N]STR$ RND4 BORDER HINT  CLOSE #<=U▙ PAPER  MERGE Zt▖dCOS ><>UFN LE#e▛qAT M-Zb(AT  GO SUB [B]e&[E] REM e[L][U] THEN ▟56 OPEN #9 PAUSE SGN LN  LLIST ACS [N] LOAD  LPRINT  CIRCLE  CLOSE #8▚ OR T LINE ASN CHR$ <=▖Z DRAW q▚ DEF FN ,T[U] INPUT  FORMAT ~[J]CODE r BEEP Z/H▚STR$  MOVE  BRIGHT 4lSTR$ SIN RND PAUSE  PLOT   VERIFY Q▛kyD INPUT vP RETURN E[E]<>POINT Q" STEP !v[H]LEN  SAVE ) GO SUB ACS bWFSTR$ 2INKEY$=RND8VQ_D[M][J]$= LINE $POINT E© GO SUB ▖ FORMAT [I][U] BRIGHT >*AT  DATA ▜9acBIN  i(V3 FORMAT USR  CIRCLE $VAL  LLIST  FLASH ,[S]FO[E] INVERSE & DEF FN JCOS &l6VO[A][M]`INT >=w[O]COS J[S]Ll]# LINE FN ASN u] PRINT EXP ©g[K] DRAW  FORMAT R[S]<= LOAD D*VAL ~$TAB  TO sVcACS N▗5[K]I+ INK $▖USR T[C]UEXP TdJ[T] BRIGHT ▝[H]▗SIN [B]NOT ASN #LN [P]->=▙PULEN 7 GO SUB D NEW .CHR$ ATTR SGN #>= STOP [D]?[A]n▞1 VERIFY  NEXT [0[J]n[C] LIST {DTAN 47JTaRND~© CLS INKEY$VAL$ ▞3wLLSGN ▟.9ASN <> NEW ▗<> DIM /[I] CIRCLE  LPRINT  INVERSE  FORMAT [K]BIN  AND $TAN J[U]A=>[N]G DATA 1mug COPY ASN )ACS LN l IF  VERIFY k▗bTXu LINE [M]57W[I]FoABS  STOP  LIST SCREEN$ ▖▟<=▟e CIRCLE mACS  VERIFY -#[>=[F]q OPEN #PIs LPRINT [O]▗ NEW EXP V[U]9g COPY [A] READ [K]▖4INKEY$<=HSIN CODE SIN _%RND4t LINE  RESTORE IN  INPUT  IF IN  PAUSE  NEW [R]LEN VW VERIFY ▚8LN  THEN CODE 5 CAT 24SCREEN$ ACS ▙,IZ REM POINT b- STEP 1%POINT 8[S]▙ OPEN # PLOT  SQR _o▘&[F]!( GO SUB [F]ABS [S] BEEP  COPY  THEN ▛?u[U] FLASH [C]G[C]PEXP  FLASH mABS EXP 6 INK /[D]J[P]HCHR$ [C]* CLOSE # BEEP ABS ABS R DEF FN <[L]( THEN [J]B*Y GO TO ASN  INK [S] INVERSE  TO ▜ CLS VAL$  NEW NAd▚[N][M]SQR *v MERGE 1[T]? CAT ASN AE1 PAPER ATN zRND DEF FN CODE h DRAW 4▚VAL !1qPI IF Q<>[<=6CODE [C]wLN R$▛u▖4 INKEY$[A]I ERASE [O] THEN IdINKEY$ CIRCLE SQR  OUT ©ACS  COPY k_i LIST  CLEAR uACS LDqLE^[K]$ POKE [I][B]ATN I▖Z[R] SIN  CAT  INK %COS  GO SUB PEEK ABS SQR  PAUSE +U<OKi[P] STEP  DRAW [N]sJ© IF ▚ MERGE QLN M"6INT o SAVE F OUT SQR  ERASE ©Z©NOT r[[K]+,IO[N][S][C]JI MOVE INT [C]Hd RESTORE !DGj[I] CAT [H]X%[N][C] DATA  CIRCLE [P]© RETURN nn VERIFY <▞ DRAW C:0▝{+Lx PRINT ",qqSTR$ ce[U] LLIST aTAN f MERGE  INK rAT ! DRAW SCREEN$ np PAPER [▛M[B][U][ABS ▚[C]R FLASH  SAVE ▜TAN y[J] READ  CLS W STOP ▗ NEW USR [K] FLASH (}H DRAW i[E]#%H)[E] NEW POINT  CLOSE # SAVE  LIST ATN "TAN  GO SUB  COPY [K][F] POKE v;(ASN ACS  RESTORE [M]H OPEN # STOP  COPY USR <(TAB R▟R1@<(-p▟&[E]V<=Ph COPY A} SAVE ' LIST [D]aY&/-e INPUT 1d[P]▟8i PAPER [B]| NEXT ATN USR eATTR gi;#>=VAL POINT !lNq(PEEK y} FOR  STOP INT 9.w▟[O]s%pACS  OR BIN LEN [F] LLIST [T]<> CIRCLE qO▜ READ R READ  PRINT ▛<>4WSCREEN$ ,▟[H]TAB _<!▙@mPOINT  BEEP  ERASE  DRAW 4xXATN " MOVE ▖[F] PLOT  ▖USR O▝o<[B] OVER  AND  RETURN  FORMAT  CAT INT  THEN  AND ac THEN l[F]xAT [E][D] CONTINUE  IF [D]PI<=G PAPER Ff[K]d5)/KLN  OR 7IN &}>= TO = STEP  PLOT  [D]<>f<>$RND3 OUT =COS  FOR  OVER [H]ATN a RESTORE CI▗[B][O]POINT  MOVE KH?PI[L]TAB COS Q%0SGN !▘[Q] GO TO  FORMAT [Q] NEW SIN  CLS PEEK ATN  CLS "[O][P]2 AND eRR<= PAPER a$o[N[F]cm$▙VAL  OPEN #USR PI MOVE  DEF FN [T] RESTORE Hm[D] FLASH VAL$ bUJ▙lSCREEN$  CLOSE #LN COS  COPY Z DIM ▞=TAN [H].SCREEN$ ,4V INPUT m" OR U[S] LET USR AT ▙[E]VAL e^Z NEW 4TAB  AND 3 LPRINT X[0( BEEP 49c` READ /ATN  DRAW C[ DRAW  VERIFY ▙y MERGE TAN [E] OVER [B][A][C]?F▙ACS [C][A]Me[T]/NOT ]▛ STEP bH INK K<R AND 6?ACS INT |BIN =FN  LIST SQR TAN TAN BD PLOT  CHR$ 7▙vUSR p'▞SIN I OR LEN 6COS r DRAW 51ACS  STEP INT INT <="T-nj,l[P][P]=6K▟ GO SUB ATN <= ERASE 3 DRAW " LIST 15[N]+u&[F]&W LET  PAPER VAL$ FN  STEP  OUT V6 LIST ,9PI NEW b| LET ' INPUT TAN [C]n AND AT ATN  IF 8aurmINT [B]GSTR$  FORMAT .STR$ LSTR$ qKE[A]SCV PRINT [A]TAN _4?8SGN  FLASH ;TAN  VERIFY E9▞#)SD CLOSE #[A]4RNDz1 CLOSE # DATA [M])[I][E]RNDQ AND ~V COPY D9[C] CLOSE #LEN  OR Gx[K])<=VAL  MERGE [U] VERIFY  RANDOMIZE LEN /:?▘2y87g LIST  COPY [U]7<= LINE S- LOAD  DRAW ▟RND' OPEN #HUSR c NEW SCREEN$ USR BIN  LPRINT ATTR  RUN  RESTORE  #▘O[G]k& FOR h GO SUB [A][A] RANDOMIZE :PIhG DRAW $[K] DATA [F] OPEN #U)[R] PAPER NPOINT  NEXT  OPEN #[R]c SAVE CODE [L]VAL$ [I].o RUN S[D] PRINT l>=N FOR ▘©N4▜▗PEEK ` SAVE [T] LLIST G[E] CLEAR [N][U]z1 READ o▖T2 CLS :IN  STEP TAB k▞CODE #[A]8-▛AT VAL$ cY{▞USR U[U]j[B]$▚z@T[M] PAUSE  OPEN #o+tg PRINT  INVERSE IN O BORDER [Q]E h▛ RESTORE  RANDOMIZE  RESTORE  PLOT   PLOT  ? PLOT  QFB"  CONTINUE  LINE f THEN © COPY  CLEAR oc▞G▚dUSR nt CLS  COPY  LOAD K[J] BEEP O[S]x▟VAL 9dUSR  DATA  PAPER  OUT TAB ATTR 9|NL ERASE {_[T]l▗K@(P"k.-+ MERGE  BEEP LN SCREEN$ ~ MERGE 3>7BIN ATN ▚ INK &A▟L1L▞)y;CODE  PAPER ABS Yf[K]/:2 DIM POINT PEEK +▚RND CIRCLE SIN #fD LPRINT D[T] MOVE DKi> LIST eCODE KATTR VTAB  DRAW <=Z CIRCLE  BORDER NOT ▚PEEK ▝& FLASH  PAPER "[C]J<=▙[I]@▚INKEY$E PAPER i_GRSCREEN$ m DRAW l LINE  OPEN #j RETURN D|SGN ?MFN D[B]zT SAVE /*lVAL PEEK  MERGE [C] MERGE m~RNDn DATA [R]TAB [H]▘SIN / INVERSE M[B]TAB #<>EXP )N FLASH ▖F'CHR$ [M]~d▗[U]LN I9[O]n$[G]eNOT -V FOR X[N] COPY [J]+7FN  OPEN # FLASH  GO SUB 7H47i OPEN #a CIRCLE  LINE F:%[S] MERGE  VERIFY  LET ▜d OUT  dNQ+Z0D▞D+ LOAD I©i▞ IF  BEEP [H]c[H][L]T[B]d[D]USR NOT VAL [F]TAB [5I PAUSE jLaB[D] INK Q[E][C]<>▘=M LPRINT  READ  GO SUB  FORMAT oPEEK BIN 2 DRAW  RUN  LOAD  READ IN  PLOT  au [U]E39 NEXT 8>=O IF  CLOSE # OUT  NEXT  STOP 1 LOAD 7 LET [T]|) DIM M STOP PEEK TAN 4TAN Q[P]Y▗[U]RND-La]cACS ▞$ NEXT %d▛ASN  FLASH TAN LEN d$ATTR [S]▟ CLOSE #▛/INKEY$▗ FORMAT  GO TO ~ STOP [[Q] ERASE  VERIFY [S] CIRCLE ▚FFN ACS  BEEP  CIRCLE PEEK 2▖V7RNDLEN "d-Z#+-5VAL$ ~Z▞ACS <= SAVE IBIN ! OR LEN [G]▟im▖[C]hMw[ COPY  CLS  CAT R FLASH ▖▗[U]F[S]$ACS IN [K]AT  MOVE  BRIGHT [L] CIRCLE  BRIGHT GLN G VERIFY 8 READ 6n6TAB tSTR$ [R]SGN <L▘" VERIFY )- RUN  OUT  CLS [M] SAVE VAL$ SQR 9O.|[U] PLOT  ATN  REM $[A]| RUN BACS "iB READ  COPY LH CLS >=[A] CAT ABS  READ gs LINE VaJo MOVE Sz PAPER |SIN  LOAD  INK  COPY IN [S]@CHR$ ▖^ CONTINUE W_[A]q▚[I]BK LLIST  POKE  RUN [P]BIN  LIST ▜3.[K]MdDFN S CONTINUE ▟l RUN >INT fSCREEN$ iVAL L GO SUB ▛▞[F]I CIRCLE  TO FT INPUT [B] STEP  CLS  LOAD WIN vu[P]j DRAW  COPY [H][S]%- MOVE 1<>[A]RND$51▞VAL$ AT : BEEP jF▖A[R] COPY # OVER ABS ATN zLEN 3!▖GI▙<:Rz RESTORE |l OR [M]k[I] MERGE ▖ FORMAT ACS 7dASN TAB c$X[Q][Q][P] FOR k+ INVERSE  BORDER  NEXT :©$[B] STEP [T]9d▖ DIM  INPUT T[U]▚ GO SUB ) THEN SSQR > BORDER  BORDER _CODE "R RESTORE "enSiYkF[H]p< CLEAR l)h▛[D] DEF FN  DEF FN / ERASE 5+©8/1▟[M][A] OUT f LPRINT v-KBZ CLOSE ##D[M]ACS STR$ 52VAL$ ▞ FLASH PIINKEY$Mi[D]5GiINT eVAL$ m BORDER  DRAW 67FFN &LEN ▟Jm0▖l7`CHR$  OUT [G]▙ INPUT  LIST EASN SIN 1 LINE B.x RESTORE  CLOSE #TTAN [N]2 PLOT  -$h INPUT L<>T PAPER <>SGN vnjE} THEN  AND [M]▟ LIST  SAVE NOT [B] FLASH JA| RETURN Y[[S]vu/ NEW # AND NDU>=[S] TO j[B]*bEPOINT [P]' COPY TKkl▗[C]▗J[I][K] RETURN  LET "<=SQR TAB ▞) STEP  OPEN #TAN VLH LLIST NOT [M]vyVAL$ [P]#LEN [R][N]_ LLIST  LINE *EXP  DATA t VERIFY rSIN TAN TAB [G] DEF FN  TO ▖!PI REM 1l" FOR 3 MERGE  OR  DEF FN  LLIST ACS [O]|&[J]©ATTR ▙Qi| NEXT USR  FOR IN 3=[C][M]USR [O] AND BIN  RESTORE q PRINT [P]CODE ▞/[L] AND [C] PAUSE  LLIST  READ K STOP <> LINE [P]▗ THEN  FOR  CLOSE # VERIFY 8 LOAD  BEEP IN  ERASE ATN  STOP = LPRINT U;▚.mm OPEN # NEW  DATA *7▗LEN [U] COPY  FORMAT o} DRAW  FOR  IF guATTR LN PEEK [I] RESTORE M[E]=IN n'▜r"[D]!>f OUT bW[J]▙▘C MERGE  FOR V[B] CAT C DRAW INKEY$ATN YACS  OUT tx CLS [M] LPRINT l VERIFY  STOP X COPY _((▘0?© NEXT K DIM +▚X INK a▖[A]▗SIN ABS ▗?ly POKE %USR  LLIST  VERIFY [I]7+[L]j TO : VERIFY  PAPER M[E]USR  NEXT [P]l]COS L@5 ERASE  DATA PKATN $HdAT zb▘7 PAPER L LLIST '9xVK0>= OUT VAL$ [E] DATA  PAUSE L ERASE iCHR$ ASN [C] CLOSE #[J]<▖*69 NEXT # LLIST  ERASE lHBR$D IF S LPRINT ©M$ErSTR$ CODE STR$ ▘[T]IN eu COPY q ERASE [Q] STEP [S]TAN [Q][F]▘psO[D]TAB ▟$u<J OUT  OUT  LOAD ]ATN LN  IF { DIM  LOAD 'CHR$ (! PAPER R`H[L][J] CAT [G]▝CHR$  DIM  OVER z[ FOR w%[K]▙lINT <[C][L]▜[I]▚ATN ATTR CODE S[ MERGE  READ O▚<=fO2[A]i FLASH  OVER [T]G RUN [H][K]STR$ P[A]▗[K]})[C][A]▖ NEW [E]y LPRINT  LIST [G][C]eLN  THEN  VERIFY  INK  VERIFY  REM 2 LIST u7 OR y© RETURN [T] PAUSE  NEW 4RND_CHR$  OVER Y▛[C]I=cad▚K CLOSE #Q CAT DWx/LN  POKE cxATN <▛ LOAD 7FN  DEF FN F* ERASE ~_▖ LIST C7 READ  TO / DRAW VAL$  DEF FN -+▘B[O] ERASE ▙[M]@>= PAUSE P93<=CODE USR <>fR_D] CLEAR ▜ RUN  LPRINT  LIST YUSR ▜[D]CHR$ [G]$[E] RUN %[T]USR ▘ BRIGHT  PRINT [G][K] POKE [H] ERASE [H]▜[R]WASN + ERASE  PAPER  READ  FLASH ASN D OUT H' MOVE  PRINT _lN[O]{ CLOSE #2 DRAW ? DATA ATN [I]^▞Z CONTINUE Q<= AND ?pum PAPER | CLEAR 7>Q▞0i>~ INVERSE [O] CLOSE #Vu#V BEEP  PAPER SGN  STOP ▟ DATA tAT y1 LINE N[U][BIN  FLASH kp[U] REM @▞&F▖▞xQ]©Y~SCREEN$ -7(K:]EXP ic LET  LPRINT L▖[R]SQR #<= PAUSE G LET K BORDER  BORDER HAT CODE TAN HDl/[M]o▖%SIN  DIM PEEK VLN ABS  PLOT  7 INVERSE |Yl INPUT  POKE  LINE m LPRINT FN  STEP ICHR$ fPOINT ▜s LINE [S]t REM h[K][D]b LIST  CLOSE #8'w▜ PLOT  Z} DATA ATTR d COPY <> LLIST [Q]EXP [I]qa GO SUB RND INVERSE  STOP  CODE  NEW [T] IF ?1`jT LLIST T THEN  BRIGHT /[G] READ 6ABS AT  GO SUB P INK  LINE dRNDLN OAY[G]1Uq<>H▘+1G7COS  PAPER FJ▖[D].FHSQR IN jJ CAT [B]/ BORDER [E] RANDOMIZE  FORMAT SCREEN$ [E] CIRCLE  DATA kX THEN 9XSTR$ QNOT > BRIGHT  LET  LLIST  PAPER MI▗▝"bk PLOT  m[M]8$ GO SUB  LINE #RTAN GM[S]<> LIST ABS "b, PAPER [S] READ  BORDER J▝<>[K]ABS ACS [F]SIN Mnk"v STOP [H]▟k[D]#▟▛USR [M][F]USR [G]INKEY$ OR I CLOSE # PAPER BIN <=▙n%▛&EXP ▞ BEEP %m}Y[H]ASN 4bSQR Bns FOR [G])1VAL$ FCOS pnsQ OUT 2,iK[F]INKEY$cx INPUT NITAN  DEF FN [E] CIRCLE  TO  IF  RUN nS[E]cSVAL$ USR ASN PEEK ~4[E][M]##([I]Ka!45ASN TAN ASN 8VCHR$ [P]3qqDs[#[L]P SAVE  OVER ▖[A]▗h'g CIRCLE !IPEEK [B] BRIGHT 1ABS  LIST  INVERSE SGN  ERASE  CIRCLE  GO TO PEEK  RESTORE ~'[B]f,[A]c LPRINT O7▙[G]&YRND▟[A][J][N]PI[R]dINT  INK O▚e INVERSE kRNDM#'ItHc OR [E] FOR  VERIFY ▖:[E]x ERASE ^[B]▖q RESTORE cN[U]TAN [L]8< OR  LIST  INPUT  LPRINT ?ACS ABS  DIM  CAT  CLS o<>3[A]>3ACS z">▝-TXFN Rm6> OR ~2(ACS  THEN  MERGE SQR  CAT KATN 5z9P PRINT  LIST w▜ FLASH  GO SUB  LINE  READ ) PRINT p|G LLIST  BEEP  DIM  MERGE ▜LEN  COPY  READ VAL$ + LLIST R^ PAUSE ACS  OR )~ LINE N▛ READ [R]Q CAT  ERASE B3[C] VERIFY @[F]▟ CAT xx/{<# READ SIN 5ATTR ?RND▛ OPEN # FORMAT ▛ BORDER _ RETURN :RCOS INKEY$4 OR  LINE J[B]L~+^▜9o RESTORE >e NEW [ [N]NOT @ THEN  RUN  IF  COPY [B]Z CONTINUE ▞IN  DIM [J]'0 OVER USR  COPY  OUT  COPY  RUN ?IN 0v DIM USR IN  PLOT   PRINT TAB  DRAW  COPY ASN V([#Me>= PAPER IVAL  RESTORE [N] BRIGHT  GO TO  OR ASN iJDNOT ,F@/[H] BEEP  FOR b INVERSE [P]TAB  FLASH /# VAL (▝o)TAN ▙O RANDOMIZE [L] FLASH ( CAT  NEXT 9 MERGE ▞ TO EXP f$I!@ACS  INVERSE PI FOR ABS  INVERSE >'[D]& READ ▘[L] LOAD +SIN DPEEK ?TAN  STEP  CIRCLE Z[C]SIN VAL$ + SAVE BIN UATTR W3/`rMlN▘ CONTINUE $TAN [B]POINT f$rih CIRCLE NOT uNOT [K] PLOT   DRAW  OVER ACS  PAPER BIN RND>CODE  OPEN #4J[B][A]CABS B"DRND%VAL  MOVE  STEP  NEXT Z INVERSE J READ : ERASE  RUN wl CLOSE #fSQR +.[O]BIN 4[U]LN Z OR [P]&"T[C]CHR$ SIN RND'o OPEN #p THEN N?RND/ PRINT STR$ ASN  COPY EXP LEN USR ▞yH▛▚[I]O[C]+Db[R][J] THEN  LLIST 'ACS  STEP  FORMAT VATTR AT [L]I6H▛LEN Qf[P]jTAB [D]k-dASN a>i RANDOMIZE LEN  CLS E[D]xj%, FLASH ! RESTORE  GO TO  MOVE IN [P]$[I]HATN  FLASH 5[/ NEW  MOVE [A] NEXT  CLS ATN  GO TO ▚ FORMAT [K]TAB -▛ POKE IN {TAB EO RETURN [F]:USR [F]LN ▚SGN LN m STEP  BEEP  LIST [T] LET 8a▞o-J[K][T]lRNDPEEK mPOINT  CLEAR K% COPY AdINT  LET I LET >=ACS Z1YABS 1 ERASE V[U]PPEEK 2R NEXT  BRIGHT !▜a[U] BORDER q LOAD  LET [U] BRIGHT ATN [G]▖BIN ▟ PAUSE zvvLEN LEN ▛[E]TAB c$m[T]yEPEEK  PAUSE [B]INT [L]▞ CLOSE ## RESTORE TAB SGN  CIRCLE 2T[U]SIN u▞ AND  OVER $[U]INKEY$ACS 9TAN Xe"SGN [I]NOT  RANDOMIZE [H] BRIGHT ACS 1 READ  GO TO I MERGE  PAUSE SIN COS  RESTORE EXP  PRINT  VERIFY 2AT  LET © NEW eSCREEN$  INPUT  LET Pk© THEN ▙ COPY pd[E]k▗i4AT dRND LLIST POINT TAN ~t[L][L]ui[B]x*VAL$  LET  SAVE ~OAT Ub[Q] DATA ▜ZATTR OCOS WG.x[P] LIST FN  LLIST [R]'v CAT  LINE = STOP  BRIGHT R FORMAT &[C]▖TAN F5>=MA!_ THEN I BORDER  RUN /K▗iORNDFN [U]N▜2ky RUN /tVW[L])+ READ fDF CIRCLE  BRIGHT i'ACS  GO TO S FLASH SGN Khf INPUT =I6$BRNDKnTtA, OR  VERIFY  PAUSE <> NEW INKEY$nv RANDOMIZE CHR$ U0 MOVE 6<?PI LPRINT  FOR l POKE /INKEY$Jl DIM 6-rTACS  BRIGHT  ERASE ATN n RUN  CLEAR l INVERSE  STEP $I8 MERGE  RESTORE [[U] BRIGHT 5) REM * CLS  AND YEXP SQR ▚ )▖H[B]eJ▟STR$ ETAB H▛(▞ASN [F]▖X%[G]*+[D]AT [E]] STEP a THEN 7wwnX[F][G]>= LOAD [JSCREEN$ qj"'G[F]OINKEY$ CLEAR XmicJJad" COPY  CAT [A]COS f[U]/ATN o LPRINT "sQi RETURN  COPY ACS  OUT  REM  CIRCLE > PLOT  VAL$ QLN [G]RFN F[N][U]EXP  READ [F]SIN s[B]▗RND[L][K]USR yp▝▟%▙|lBIN i[J]l[O][[K]▘*[S] OR ,`1IN 7[C]4PI AND ACS [J]8 RESTORE ▟[I] DATA $ FORMAT [J]Y_hXINT  STOP  LINE _CHR$ [B] SAVE RND'E FORMAT [P]<=▘ COPY NOT PEEK IN HF[E] MERGE [S] LLIST M9{/ INK  LINE  BRIGHT B1LEN  OPEN #t OPEN #INKEY$▖"cV CONTINUE #yINT 2USR `UP)*)m FORMAT ,INKEY$? MOVE A▟BIN qk RESTORE ,TAB @[G][H] CLOSE #YLN ▞▟[L]R"9N OVER _ NEXT  READ  AND  RETURN CODE n FOR ATTR hH#q[U]a. AND  DIM }FSGN RATTR STR$  DRAW USR [T]FN  FLASH PI$ IF vLN & THEN POINT  GO SUB ▘ CIRCLE [B] BORDER "PINKEY$ FLASH IU▚ GO SUB  FLASH  AND cw CIRCLE ▗[D]c* OUT J MOVE  CLS INT [B]Z3 INK  NEXT  DRAW FTAN ▘ AND /b LLIST   LLIST  DATA I[D]mF CAT  ERASE N CLEAR  POKE &[E]N{0 AND W[ PLOT  [J]o▛|ACS  NEXT RND& MOVE <> PAPER  AND  LET 9PI4LEN LEN | LIST [B]q FLASH 2USR EXP RND[O][K] OUT  OUT >= OVER  FLASH J▖[I]H READ ACS  CLS TAN ATN MuL LOAD -PEEK  GO SUB c/DtZb[Q]Z INK [H] VERIFY x<R) TO =pEXP  PLOT  c~ NEXT TAN STR$ ▝[M]/4 VERIFY  AND TAN ZY NEW SIN ©FN M7[F] DRAW  FORMAT I▘<[K]_ LPRINT  THEN =ATN J▝($ BRIGHT 7 OR IN Z OUT 8QA[U][D]2ATN  RETURN ]&J INK %JrQVAL$  OVER  DIM ASN  BEEP v PAPER  REM COS  OPEN #VAL J CAT A PRINT ▞$ COPY SQR  CAT ACS [K] VERIFY  BRIGHT ▚FN  VERIFY  FLASH 1I[K] DATA Q. FLASH 6km| FOR  LET  COPY ▗ATTR  OR  NEXT ©{▗C INPUT  CLOSE #[S][A]LN $[G]Z1[P]CHR$ IN ~PEEK STR$ ▝[B] FLASH  FLASH [G]2?[B]iQ,BJIAF▝D[I]zATN  INPUT  OUT 9_ CLS [L] LOAD  VERIFY x[P]ACS ©▖[G]cVAL COS `USR [C]*▖|a POKE [C] CLOSE #K CAT <=4e NEW  DRAW SIN  PLOT   CLEAR >SY THEN k)INKEY$DK>=▚[C]i PAUSE ▟VAL h NEXT  AND  ERASE USR iSIN  GO SUB g7CODE ATN /e[ GO SUB  VERIFY  CLS IN  DATA [ RANDOMIZE  OPEN #1 RANDOMIZE NOT j[R]ATN POINT  .▝(i▟L(i1 `BIN E CLEAR -SGN  CLEAR ▖yHTAN {87<=[Q] MOVE LEN CHR$  LINE ▞ATN  LET ^ SAVE sNOT /j STEP AT 7SCREEN$ [E] VERIFY [D] PRINT 5▚0RND-[R]'f▛[<>DEXP INKEY$ INVERSE ATN ▗[O]<e DATA  THEN TAB ▟vTAN IN ,TAB  INPUT  NEXT ! THEN F POKE U<= STOP 6 THEN [T]O'LEN I▗SQR Hs--<>)EXP  OUT wO/%▛▙[E]TAN [D]m RETURN |STR$ ▜9 STEP ▟J>=▗[U]TAN ▗SGN & READ  AND [E][K]RND$ATTR  SAVE [H] POKE 7FN K THEN  GO SUB #jr FOR jxy LOAD [E] TO {h REM #;RND% RUN  THEN O▖[F]B RETURN [U]FN (ABS ECODE  ERASE b> LET ©E LIST N PLOT   FLASH TAB W[A]eyp BORDER  PLOT   FOR [E] AND oTAB SOSGN  DATA ) PRINT  IF  THEN GR CLOSE #22[B]COS U©SGN [T]lx@ CIRCLE [S] PLOT   NEW [P]U READ  LINE h[SCREEN$ ~ FORMAT q LOAD [H]▗VAL$  STOP  CLEAR [K][E] GO TO BIN Xq& INK  OR LEN $[G][E] PRINT [K]l,[F][B][P] IF  CLS 5POINT Rjc* MERGE TAN e OUT |ACS  FOR / OR 0<=Y[F]ZTAN &SQR vTAB eFN 8 OR  AND c3F7-NOT  PLOT  i COPY  STEP ▚POINT  BRIGHT  FOR l FLASH 6 FLASH [O]C GO SUB hv86W>[C][O]M$3f7POINT [E]▙:9y[G]l PAPER g<=3:# THEN INKEY$| AND /SIN N[B]$phRNDL"0 REM n.▖}ITAB _, LINE n.▖r▗▞! LINE fF CAT f© VERIFY  RUN VAL qkU[U]▛ DEF FN  LET  INK NPEEK USR ' STEP [Q] NEXT  PAPER [U]I>=4LEN EXP  DEF FN STR$ O[B]I4WX$^& CAT ASN  LINE T. PRINT  POKE $ SAVE TTAN l`b INVERSE k!▜▜CODE [R] NEW  THEN ']Y DIM jo[S] CIRCLE  RETURN $▚p CIRCLE AT &NSTR$ AABS >=[B] STOP  CLS  LIST gASN [T]FLEN <= INPUT j RANDOMIZE ▗ CIRCLE /ASN &RND RUN  LIST > LET SCREEN$ NL DEF FN  MOVE LEN ▟[K]INKEY$E[P]vRND STEP 8 GO TO [U]▖I- INK B^ PAPER [N] CLS [G] STEP  TO ▞F INVERSE M[T]W>dCODE /jSGN ;[D]▗NOT h OUT [A] STOP  CONTINUE [M]T[G]Kz MERGE  MERGE  COPY [M]SIN PLATTR ^ATTR  CAT LN -/LN TAB FN /-l]$[B] CIRCLE FABS &[I]=% STOP  DATA  FOR  Od}SIN ▞ TO ▛ LINE fvTAB  PAUSE $d POKE  SAVE  AND AT u)<= INVERSE b FORMAT  FORMAT DINKEY$3[K] BRIGHT  DRAW [ GO SUB II AND 21▛$S CONTINUE [F]POINT mDUSR COS CHR$ _|#.* ERASE [K]:ASN >>DQ8 SAVE ▘Z%INKEY$LN ? MOVE bS FLASH ▝ POKE [G][E]EXP [G][fSTR$ ATTR ©X CIRCLE C▞,9IXG LPRINT  GO SUB  LINE C CAT gASN ▟$SQR | LIST  FOR ["[P]Fc>= MOVE  DRAW [H] PAUSE VAL K AND  LOAD  STEP IN )/SGN [F]7)[H] PRINT [P] AND H IF -{)*F FORMAT  NEXT RSS|[L]HF4[B]+ATN  LIST pR PAPER  CLS * LPRINT !4[U] LET ~[U] CAT  RANDOMIZE  PAUSE & COPY <>q[D]t▟SGN $ir FORMAT  CLOSE #.[G]CLEN COS  COPY  ERASE 9 RGjm3COS )L CAT W SAVE ] FOR [B]H▘m;LEN  INPUT o AND  CAT $▘[G][S]Q AND [U] CLEAR  INPUT SGN ,[P] OPEN #T CLOSE #[U]LN  AND <>I AND  PAUSE 1[K][M]▝ OPEN #*#Q BRIGHT B[R]XV? ERASE  LLIST [K]INT  RETURN BIN  DEF FN O▟iQHD▝)[J]"-[L]AT nATN VAL AT u#C RANDOMIZE )VAL COS CiA NEW o[T] ERASE ▚$ OPEN # COPY u[B]q3J PLOT  7 RUN INKEY$ PAPER STR$  OVER A) CAT I} INK  LINE [L] VERIFY ATN STR$  CIRCLE  OVER ▛l OPEN #0iTAB  VERIFY iCODE VAL !▝$`` BORDER CODE  BORDER % RANDOMIZE  PAPER  MOVE  FLASH - VERIFY L[E]<=oBoT▛0 RANDOMIZE #p@COS [B] MERGE rY▘USR T LLIST  NEW LN ATN  VERIFY [U][O] ~W RESTORE mq SAVE [(i BEEP R[K][K]wFN TAB | BORDER  COPY [VAL  CIRCLE XRZb[N] SAVE =*~YI.YgUSR kCHR$ ~ FOR  NEW  PAPER ▚[F]ATN & FORMAT b4~0m**B SAVE nqq RANDOMIZE ? IF PIv[C]0ASN ▚ASN zM/VAL$ xM MERGE S[A] DIM $%[C]LEN VAL$ 2 LPRINT T LPRINT SQR  PLOT   OUT IN Lh:▚▟F7[O]w. INK >▚ GO SUB +B FLASH INKEY$PEEK jBM[C]c SAVE STR$  CAT S LLIST G[E]L▛[O] MOVE  THEN w[C]q@+▝ REM L>=ua, LPRINT *SGN ,Z INVERSE i[E](SCREEN$  OR [O] BORDER _Z INVERSE ?S INVERSE r[Q][O]dX SAVE  TO eXLIe CAT sSQR POINT [NOT  CIRCLE 4RNDSQR  COPY vA&EIN  BORDER  DRAW  COPY ACS  CAT EZATN  VERIFY  VERIFY  PAUSE c OUT 8, GO TO $▜ CAT [P][P][D]V ▝STR$ " COPY  OPEN #mATTR mIN  PAPER [C]▚SGN   INK I CLS co CLEAR s' aVAL | FLASH  CAT v LOAD m READ  PAPER {SIN [S]6COS ACS ▘ DATA  POKE V<=? POKE [S] MERGE  OR [P] OPEN #SCREEN$  GO TO k#[B]$▞@(▙[K](FN KM FLASH IN IN |K RUN COS CODE  CONTINUE  LINE COS  BORDER ACS  RANDOMIZE  MOVE INKEY$▘(%[L]Wjq LPRINT  OR [P]3 COPY VAL MABS Fy ERASE HNLEN Vr GO TO INKEY$STR$  LIST BINOT pnASN VAL [F]VAL$ RNDtm1mSTR$ ;: INK USR ▗[E] ERASE I$q▜CHR$ [Q][U]INKEY$NOT lRZ[Q] LPRINT  CLOSE # INK 8INKEY$INT <>ZHgS BEEP  THEN  NEXT XPOINT FmDmNOT 0 AND  OUT LEN [C] REM  INK !5 T DIM 9©>=6 PAPER ] AND CHR$ 6 ERASE SIN 0ATTR CHR$ - SAVE gAT [K]|%[ LLIST dqSTR$ IpdKk CLS [B]p  CLS SIN J CAT ,[P]{ READ rvPOINT ▟ RUN CHR$  LIST 0][L]@m READ  LIST [D] NEXT  DIM ▛6▝_%DTAN bk MOVE R LPRINT <>>(▞JLEN kkYKW?[F]6COS ▝ THEN POINT Q FLASH t;[N]jm CLS ▞▖ OUT INKEY$[E]6"!"CODE $Q RANDOMIZE % PLOT  [R]-0 OR [L]2ws8 PAUSE u<>8 LLIST [H] VERIFY [U] DRAW o[J][ao$SQR ▖ PLOT  g LINE )[H]▙~R[C]2 PAPER TAN  GO SUB  DATA [I][D] MOVE 0 DEF FN IN VAL$ >=[J] OVER ▙U CLEAR Z[P][G][B] TO tABS i[J]5.? OPEN # PRINT  CLS  LOAD sf GO TO  IF e▝[I][G]▜▞ POKE a)PEEK }▘pCOS SQR 5F DRAW  STEP PEEK ABS  IF LN @INT  CLS  SAVE  IF PEEK  SAVE ▘▝SGN y RETURN SQR ATN USR  LINE  AND  THEN H FORMAT ▙ COPY a LLIST ▘▝ RETURN  LLIST [C])? SAVE w'C=(HmSQR  RETURN  OPEN #:Bl▘[F]D[A] CAT  NEXT  STEP % COPY  LINE FACS  [A]>=~ BORDER ABS GACS ]+LEN MPOINT `[E] FORMAT *2 SAVE  INK >+ BORDER  STEP TAB  CLS > OUT  BORDER SQR ▖[E]IUbyPOINT + DRAW  STEP SQR ?A[T] RUN IN  AND I RETURN dDm[R] VERIFY INT  LINE  MOVE [B] INPUT Z CIRCLE ATN u CAT ▝ CLEAR !▞jIE[D]Kc.[L]INKEY$ACS n RANDOMIZE  DEF FN CODE TAB  ERASE -[J]▚ CONTINUE [U][I][U]04)▝.m([A]SIN ?[Q][G] FOR fIN  CONTINUE kz▟} LINE d# CAT i@ PAPER SxP OUT .TAB ▟IN nu[K]LEN )▛MATN ▗k<=INKEY$ OPEN #c[Q]H%BIN EXP fC▛ READ &`VAL F▞/PI[J]8g/?<>e BRIGHT a[F] PAPER  POKE ▚ PAUSE 1PI CLEAR POINT  SAVE  OPEN # PLOT   THEN ▗NOT OINKEY$6 LLIST [S]SGN b&[D] BEEP [U] STOP A▛- RETURN ,gAT _[F]PEEK SQR E OR  VERIFY oE|@ASN LN  INVERSE  RESTORE [S][A]>=ACS [D]9i ERASE ACS rq@.STR$ ▞]/`v[N] STEP ▞K[G]FmYY!INKEY$▟ PAPER  POKE  GO SUB ▗3jR NEW VPEEK SIN ATN  NEW [L]J FORMAT BIN  ERASE 4[K]TAN &[H] INK ▝Z ERASE I^D▝ LPRINT ▟ CLEAR COS ▟CHR$ TAN ATN ▚%dY POKE ASN 92<>K CLOSE #XT[S].EATN [D] STEP  NEXT > CLOSE # CLS W RUN ▟_7T2[ASN & INK [S]dPEEK [C]FASN  LINE  PAPER # POKE CHR$  THEN  CAT  OUT  REM ▗ CONTINUE ▛ RUN  IF EXP %3c REM  MERGE [F] OVER $IN ' BEEP )7▛IN ATTR R STOP  READ S< STOP © LOAD = READ [D]"D:!CODE & STEP W PRINT  COPY  LINE )yG/]z INVERSE KSATN V RESTORE @ RANDOMIZE STR$ [B] INK D ERASE ACS $[N] FORMAT  MOVE  DdzR MOVE ▛` NEW |NOT  LPRINT  CLOSE #Im▘s[A]$kBIN IEbR AND  TO USR F FOR c]POINT <>[S]AT ] LOAD  PAUSE ATN 5AT  GO SUB mN INK [C]m FOR R▞ NEXT >X BORDER )T[I]H9 BRIGHT [E][R]nT&[H]iATN [T][E][J]uK[M]▖[D]b NEW  LET [U]M"POINT  INK [%*SCREEN$ [(POINT S GO SUB  CLEAR  COPY  FLASH  OPEN #▟▛8WRACS  FOR } NEXT  PLOT  SB@ VERIFY  BEEP  PAUSE J  jQ COPY [T] MERGE 3EXP _©_VAL$ Y[S] MOVE ATTR 4T[E] RESTORE ASN [E]ASN  CLOSE #[R]j GO SUB }VCHR$ 64C<>0?SIN =▛ CLEAR Y IF JQF GO TO w7BLEN y5?&i▞POINT  GO TO LSGN &g89SIN I[P] LET cf2{YY LLIST = ERASE  RANDOMIZE Rl[G] FLASH  AND  LINE  LINE [E]? LET RNDSNOT `|+w OVER  DATA [TAN (sF OPEN #▛Jf[U]/`[L] SAVE k[E]{p<>l9H INPUT r▖INKEY$ FLASH 9./▖] CIRCLE  ERASE [G][C][U][J] PRINT GmSTR$  RUN [U])▞id THEN  AND ▟* ERASE  GO SUB K STEP  STEP ▙ GO TO [K] REM  CONTINUE ▟[3RNDOINT 4U[R][T]f&l©Kj.#{ NEW  OR  MERGE INKEY$}gio SAVE <>▜9 READ ▝HINKEY$PIMIX<BSIN LEN % LET r4LN  CONTINUE CHR$ C1 BEEP u;SQR  FORMAT ! MOVE ▖ STEP [B]LN LEN O[M]FLEN ▙[F]nLN [G]U? ERASE "-[C]W RANDOMIZE  SAVE SPOINT [D]) LLIST  FORMAT G/{Z GO SUB  INK -▞P6▗09AT pLN L~[N▜V▙ GO SUB [N]SCREEN$ }V VERIFY BIN SGN  OPEN #▚I MERGE | CLS  OR nTAB [][G]r, BEEP  CIRCLE  INVERSE  GO SUB  RESTORE xUSIN  RESTORE cS[B]&KDh CLOSE #$ PAUSE u|PI STEP AT # LINE  DATA [R](4I[D]<=ACS /JO▟M%INKEY$ NEW [D]▖[M] RESTORE >=(ROcPI CAT .Q STOP  GO TO h[M]'m[O]% READ <= TO TAB 2.▟ STEP fFN "▛ DRAW IN  CAT 2 DIM LN d IF  LLIST  RETURN *COS [B]Yb67OL PAPER j67WM# NEW  AND  DIM nh NEW  MERGE >=Xhl%[LATN O LINE  IF GqicR[D]▗ FLASH  FOR -<= FORMAT $© FLASH  LIST $[S]<>(f INK  PAPER  FOR  VERIFY [G]<> RESTORE  PAPER E$POINT rhVAL ruSIN Dl PRINT  FORMAT TN5c&4YPOINT CHR$ g6 PAPER  RESTORE $INKEY$STR$ A IF ▖{J% CAT ▘▟^e2[U]ASN %SIN  TO D[B]mk*2CHR$ km) LLIST BIN /lFN  STOP  INVERSE /{[P]c FOR qCHR$  LPRINT U CAT  VERIFY B[G][G]▙(Pl[F]"B GO SUB  OPEN #a-'' CLS jQn'[P]yI CONTINUE [T]GUv[K] DRAW PEEK  INPUT CODE ([F] THEN TAN ATN d ERASE BIN h[L]+ CIRCLE >=1' CAT /▚Dbou▝ OVER ▝rPOINT +j(r USR  READ  PLOT   CLEAR  RUN ATN  CLS [F]INKEY$>=@TAN >= OUT ▟uCODE 6m LPRINT INKEY$[B]/ RESTORE [K]  FLASH & PAPER  PRINT ABS  BEEP  CLEAR  BEEP 7td{4EBIN @[U][O] FLASH w INPUT  STEP Ml";4POINT HINKEY$[C]i COPY [G]!q$iUSR %Y THEN <>[O] RETURN wABS  THEN  GO TO [C]SIN  BRIGHT [U]8CHR$ [B]` RESTORE  FORMAT 6[D] NEW & GO SUB H[C][S]EXP ABS ~EXP  CLEAR  CLS LEN  STEP SQR p[C] BIN Or INVERSE  MERGE [E][C]"[C]▝!'[P]▙ LIST  OVER <rC| OPEN #T▛ BRIGHT  LOAD ;YO RESTORE  CLEAR  CLS  DEF FN /▛[R] F[F]*INT 4BSTR$ RND<><= LET ACS nXKo3; LPRINT dkINKEY$[F]ACS  GO SUB [K]6 VERIFY rl PAPER $'@ GO TO e+[D]V[G]+q"Ci[K]p RANDOMIZE INT  RETURN  RETURN  FLASH rLN ACS ▚POINT [L] TO %PEEK l&[L]ey▝ATN ▛mSTR$ U[Q]L[C][B][K]$NOT TAN g" DRAW <NTAB COS ASN R DEF FN ATN [P] CAT  READ SIN I▟[T],$ RETURN D[L] DIM ▞4[L] RUN " FORMAT  AND  OR 6j THEN <>ATTR U[G]V[Q]▛ ERASE  RANDOMIZE [E]n OPEN ## REM :oTAN  OVER  AND 4h OVER sABS HINT  MOVE ASN ASN SCREEN$ jZO▙ CIRCLE VAL 1ATN  RUN LN & POKE [C] CIRCLE [U]B9FRY[B]'@▖&[H]9af FOR 5[I]+oz8?ACS  STEP ▞v[A]RQ LPRINT 6 LIST x[D]▛[ OR H CIRCLE /5 OR  OR } CLS  MOVE  PRINT PE▝[J]A%▛Yd NEXT [G][G][E][E][K]X7[S]d PLOT  4 LET  RETURN  OUT SCREEN$  RETURN K PRINT $ CIRCLE $ RANDOMIZE  AND [O] LIST  BRIGHT  LIST zxO▘_TAB  MERGE VAL$ L[C]hecR CLS  RESTORE ` BRIGHT  [F]▖ MOVE [S]T[D] LIST cZ REM ( INVERSE EXP SIN TAB  COPY  LET + FLASH mBIN ▗ CLEAR % OVER ?[C]▖h=<>$PIQH POKE  STOP tX[U]aEXP h- PLOT  TAB ''dH[U][U]$ DATA  GO SUB d DATA ▗&[B]i/%)PIiY PLOT  ©N POKE  GO TO [j CIRCLE ▚G~t"rLEN ASN 0i[A]>d^x%kp▞/[U] CLOSE #TAN X LLIST INT IN <>INKEY$ FORMAT a$[M] CIRCLE [B][E]ASN 'mYQACS  REM v[O] VERIFY  CLOSE #INT [C] CIRCLE <> LOAD  DRAW  OVER IN [H]"O7TAN  FORMAT  AND JUA SAVE VAL$ [F] PAPER D DRAW  PAPER RNDO PLOT   REM TAN  NEXT IN [S]IACS ^J▞;gn*[L]<> FORMAT  POKE 6YSIN COS pSJ)ZPBIN [P] RETURN VAL$ PI RANDOMIZE t GO TO  [S]g)[U]TAB RND[E] OVER O DEF FN Xy[L]v&YT:#&B▗ ERASE S, BRIGHT  PLOT  CHR$ }p! TO SCREEN$  LPRINT p"1 CONTINUE +EXP ACS [L] OR L ERASE [Q] LINE [L]4Ix▖CODE TTABS k/ PAPER USR S[G]vV[C]+ POKE D▛R[J]ABS AT  CIRCLE FN v MOVE [U]SACS [I]▙nKWPIBIN  PLOT  ©V CLS ▜EXP X%BIN INKEY$YR-1TAB T%XPOINT  MOVE RND▝QASN -iEXP TAB AT EXP HisJFbKOM[I]eATTR  PLOT  [J]<>T7▚+g<>q[J]▙LEN z[C]pm  NEW  ERASE }eCODE TAN  ERASE LEN [M]FN 9▟ REM #YtTAB  RUN ASN -ATN 'Q7P CLS ERI ERASE Sr FORMAT W[E]ou PAPER XVAL [`& FOR FSQR OINT [U]Wg PAPER  CAT ▟[S]q CLEAR q▗VAL N▛hUX9([H]I[F] GO TO ACS COS  TO RND,% LIST  ERASE 1VAL$ LEN  PAPER [A]▚TAB 2[L];TAN SCREEN$ N REM l[N][C]d[C] BRIGHT ATTR [G]Ng IF  OUT [A]▗1>#G>=I2+BIN 4SCREEN$  PLOT  $ LPRINT 6<>n[E] GO TO 2(6[Q][O]}CODE  OR VI62rRIMbD[A]I.U OUT BIN [R]9F[J]9LN 8 OUT  STOP T DATA ▞E!JRSIN NJ` DRAW :e%^RNDRNDABS 7▘ OR [O]d CLOSE # STEP M>=>=EXP S[F]! AND  AND DTAN  LINE FiEXP ? LET [H]IU4& OR  LINE [C]%j% GO TO [C]_ INK [R] VERIFY z READ 7'8H LLIST [B]SIN 2ASN qvATN <= CONTINUE V OUT  RUN <=|▙mINKEY$r5/ CIRCLE > LINE INKEY$.ACS [D]AT ASN  CLS FN LEN d▙▞ CIRCLE [O]QTAB  VERIFY [G]SIN  MERGE ▙[F]EILM INK K CIRCLE  LLIST <> DRAW [U]VAL  OPEN # POKE VAL <oLN  INK [S]MPEEK  INVERSE ATTR [C];9e--CHR$ Ceu>[S]TABS ( CIRCLE ]m> CLOSE # LPRINT POINT  DATA [ VERIFY <>EXP AT d BRIGHT :[B] PRINT  READ  LET 8ILEN PEEK IMu[A]` THEN  STEP PEEK  READ [L]Z#b DATA  NEXT ! RETURN [F]SGN [D]2[H] SAVE v?<=;WLN 1rPtCOS s[O]▙ NEXT /VAL '[A][H]@Vl PLOT  ▟IN [P] LET  POKE D"IeSTR$  NEW  THEN  DIM [H]O}ATTR }6VAL l[B]@[S][K] GO SUB {TAB ;w BRIGHT TAB  COPY  PAPER c[U]}Q(FN PIg▞I GO TO  LLIST  LLIST mf[A] OR "SIN [C]INKEY$[Q]RNDH[Q]nJH LET )F LINE V LOAD 7: PAPER  VERIFY [B][F][B]5▟ DRAW L0%("@[D]A▖[K]STR$ t[O][F]EXP EXP  INPUT  MERGE PEEK [H]AT vl▞[B]<>[B]AT NOT [B]2ATN  L@[D]ACS $VAL  DATA  LINE  AND w MERGE vPI FORMAT  BRIGHT [9Z COPY ACS  FLASH  VAL ▟,S}co PLOT  ▗SIN  RESTORE #ABIN 5`[H] PRINT SQR PI GO TO E VERIFY  STOP Kx5 CIRCLE K INK [N]#I?▞DAe[D] DEF FN [B]Ck[C]$l▟INKEY$ LLIST ( INVERSE  POKE  OR <=[J]TAN ▙ THEN ACS  RANDOMIZE [C]i[D]jsACS ~?▚<>X@[M]/b LPRINT [C]V▖D▘$[C] RETURN  COPY  READ #( AND [N][J][F]VHLSTR$ ;VSTR$ t7K POKE CHR$ [C]nATTR mFN [F]fSTR$ &r▖ COPY [U]*16 CLOSE #[C])7INKEY$d)jHLF" DEF FN ?,,<>K<EXP ▙@mACS  OVER r OPEN # DRAW +[G].+ OPEN # PAUSE DGMb"ASN jyrACS [A]ucE[E]a&[H]a SAVE  OVER ACS COS  STEP  PAUSE z[B]aVAL STR$ d,^j▞
  61947 GO SUB  MERGE [S] REM Tz GO TO  DATA JSTR$ ▞"SIN ▚ LOAD 6[D] NEXT d CIRCLE ABS 3[D];USR  PAPER reVAL NOT [C][T][N] RUN f INPUT BIN TAN [H][F]RND POKE [Q][Q]-!<> INVERSE 1MbkK THEN ))c FLASH (6)[D] STOP z= DATA  RANDOMIZE  INPUT ./3▘r[K]LS[U] CIRCLE STR$ bSGN h^[F]BIN  PAPER  INK <Nxn^ IF 9[N]6 CONTINUE "[P]} CONTINUE u[G]G& LOAD BIN ▟4Mxn}h▟ INVERSE mIN .*▚[D]N,NOT c, INVERSE +!▖M LPRINT  INPUT m/[S] COPY M IF  LINE nl▖dLEN [D]E$ DATA  PAPER r LPRINT H[B]▞M AND NOT EXP  PLOT  &a[U] TO :[E]VAL$  BRIGHT  INPUT QCHR$ .)INKEY$[B]iZL: STEP Y RETURN  COPY COS  CAT  NEW  IF )[D][S] STEP ▚N PAPER &= LINE u GO TO  ERASE ACS B%[B] OPEN #Ys&< STEP  NEXT  COPY SCREEN$  FLASH POINT =H(USR ▝" OR  CIRCLE N OR q[F]/ MERGE PISQR F5LEN STR$ HVnUSR  OUT  RUN $ CLS SGN ~[I]RNDBIN BmR[u LOAD ;JASN AT [N]DBIN P&[U]*POINT aCOS ATN mG7 PAPER [F][J]TEXP BIN q[E] OPEN # COPY 4BIN EXP 54 VERIFY  RUN IHRNDH&[S]%©&/ DIM wD VERIFY V THEN [B][S]"[G]▞TAN X=▘INT  VERIFY : LPRINT 8 BEEP )) FORMAT LEN [C] LET <> PAPER  PAUSE [C]l RANDOMIZE G DRAW TAB ATN #Ve▗ LINE /"[J][E]▛ OVER STR$  VERIFY  PAPER  GO SUB -? VERIFY SCREEN$  LLIST ▟_al DATA [C]MO LET [A] OPEN #SGN XG LLIST [S]4%POINT [C][G] SAVE  CLOSE #INKEY$▚[M]c` DATA O[B]Bq[F]q GO TO  CONTINUE  MOVE  STOP o'SGN Z PAUSE POINT  LIST [K]LN v[G]POINT DSCREEN$ T,Z RESTORE y STOP oACS NU ERASE q`=nM[A]SIN INKEY$ LOAD  INK u-! LINE SQR K( STEP bJ[P] CLOSE #PI NEW ▜oSTR$ ;0iINT  CIRCLE  STEP  RANDOMIZE h PAPER  LET  INK CHR$ hbLEN [C]C3H^|IN [G]©SQR  RESTORE  DRAW p BRIGHT [Q]ktRNDF3jD▞IN 2niv CAT ATN - IF 7AT ASN  BEEP  OR sACS #} INVERSE XnZc LINE F9<>&LEN [B]<> FOR 69 BORDER  LPRINT x FORMAT jU PRINT zI5X REM  NEW  FOR | MOVE  DRAW AT  ERASE # STOP  CLOSE #l0=▗^ CAT [B]/[M] NEXT INT  OPEN #[U] DEF FN  CAT  RESTORE  OUT 1POINT 9ACS SGN EXP &wR OPEN #!eUSR M MOVE _}FINKEY$K ERASE t COPY VIN SCREEN$  NEXT j REM CODE A>=)BgR OUT [I]CODE [ OR  DIM  OPEN #eFN [C][L]}- READ PI[O] RUN  INVERSE 7IIN U2)miACS  THEN USR (6_RND^ZEXP  DATA  LINE  DIM ")IN  PAPER CHR$  MERGE YR;[M][L]ABS #[J][L]/ OUT  IF AT bG LOAD [C]▙ POKE  INPUT ©4 VERIFY Zt@ MERGE  ERASE TAB @+ INPUT  GO TO S$?dSIN L CLOSE #[I]CODE  PLOT  (>VCHR$  RESTORE ?©N|"m~ FOR TAB [P]▞R@i CLEAR ATTR ? DRAW  OVER ~UIN (USR STR$ Mn[L]© RUN oF COPY ) STOP [H]5.[D] DATA  COPY I[~[N] INK  COPY  BEEP [, FOR })@D LET 2 DIM [M]SGN ut LLIST ttSTR$ l[J]pi READ LN RNDAT SIN - OPEN #FATN I VERIFY VAL$  CLEAR  GO SUB  PAPER [G][# GO SUB EXP ▞lk OPEN #INKEY$D▟/[M] RANDOMIZE x▚)4 SAVE  INPUT k COPY EXP [H]If$6kI45&"STR$ I CAT [E] PLOT   RESTORE Y; VERIFY [ ERASE F[Nm INK EXP f PAPER oCHR$ S[C]SIN R)hmr[O]r▗`@M CAT  NEW /IN  NEXT  AND <>IN  DEF FN [G]1[E] PAPER RNDVAL BIN  OPEN # NEW D[P]FEXP LN !"TTAB  VERIFY e LPRINT `ACS $E"STR$ AT  BRIGHT  STOP <>d[[M] CIRCLE [F] READ mmSPOINT [J]mL([E][S]mVAL$ u`[N] BRIGHT STR$ |Z` GO TO CR@7▘2 LIST  REM  COPY Z©ATTR  DEF FN [C] FOR l[L]ATTR ; RUN [S▖ THEN UTAB . RANDOMIZE f MERGE I FLASH D IF ~ABS 3[SGN ▛ REM !+ CIRCLE $/O4 OPEN #▙[C]r%$D STOP -9<>▞[G]TAB um TO {i BORDER (l2|b RANDOMIZE  RETURN ASN  CLS  TO ▙SQR TAB x[H] NEW ▞▚Q~"[E] REM  INK )|Q CONTINUE 2▝[F].[L] RANDOMIZE z[A]oS2 THEN POINT #▙ISIN ▝SIN  NEW ORFQ▟&MOASN IN ▞rb REM 5[P] LOAD j/$INKEY$ CONTINUE JTAN ASN -COS  PRINT  MERGE  STOP I CLEAR =ySTR$  CAT  ERASE  VERIFY ;ABS  PAPER RNDEXP [N]RNDm[U]1IN  LIST  INK $BIN  RESTORE >=Y LINE W&V~, LPRINT [I] RESTORE QBIN + LINE ![R] PLOT   RESTORE 7x[U]41ASN [O]8$>= OPEN # LET [S]IN /n▜myUSR 8 INVERSE  BORDER  SAVE /[M][U][D] LINE c PAPER [K][R]&▖?CHR$ !CHR$ HbACS $[J] VERIFY r CAT /[O]S[T] STEP  PLOT   OR 71J/$ ERASE p RESTORE  GO SUB LEN ATTR Mko NEXT a PAPER  DIM F▖ SAVE ;a"[U] NEXT m[O]q[M] READ  IF [Q] RUN %CODE L▚H INK VAL$ #SIN DI/^+▜ PLOT   BRIGHT  LOAD  GO TO i@@^STR$  CLS ABS > OPEN #b PRINT  OUT ,▝. TO  AND ) GO TO % NEW  MERGE ouINT  CLS  ▟@[Q] THEN  CLS  CLS ~ATN  FLASH  CIRCLE  CLOSE #[A]U$0▞[B]s TO }> COPY [J])H[T]ABS {SCREEN$ /1USR ▜ RESTORE Py-IN  RETURN  RETURN  CLS f[M]▝USR ru LPRINT / INPUT [J]ASN  FLASH COS ▜11 FORMAT [D] CAT n BEEP  GO SUB  COPY .ZOZTAB $)jON%^[H][L][I] LET M3NOT Rg)QAT ;<>t MERGE  LET  PAPER M INVERSE F|CODE FN  BEEP (D▚ BORDER [S] OPEN #gFU LPRINT } GO SUB -ISTR$ 1h▜R-EB9 OUT GQ[K][E][F]J▟BACS M% AND r=j>= AND  LLIST FN sATN [Q] OUT *~[G][C]EXP ASN TAB SCREEN$ © READ 6[L] BEEP COS dnTjHIATN COS % BRIGHT 8"LT READ  STEP EXP  CONTINUE VAL COS ATN  VERIFY Z DATA PIv PAUSE qJSCREEN$ [I]: RETURN n AND & ERASE VAL USR ##p FOR  CLOSE #EXP ▘Y;XXCHR$ NOT j4 RANDOMIZE  LOAD (/2o%[E]xQ% NEXT ASN ASN ▖r READ  CIRCLE GMl{}PISTR$  PAUSE i CLOSE #[K]FN  CLOSE #ABS [F][F] PAUSE POINT 4Z▗j+0 CAT nPq[A]A STEP COS TAB Hd0 SAVE c[F] READ 0[H] GO SUB 6[L]%"CHR$  REM q READ [K][C]PI BEEP  NEW ESQR [~Zh[E]Ccej ERASE ~Y_ACS oS:2 [F] DEF FN NOT  THEN INKEY$ RANDOMIZE  IF [T]^4o[P]) NEXT ,s OVER sSGN >=lEXP ~&VAL TAN  TO  STEP  CLOSE #bV▞-_ GO TO  PLOT  [P]KVAL$  FLASH  RANDOMIZE ,[U]? LIST BIN  RESTORE  CIRCLE  INK ▙ DATA 6AqM STOP BIN ATTR i READ TAB 3▞~tQ#x RETURN Jxo[[Q] CLOSE #[A]IPOINT <>]i>VAL  CAT USR  RETURN q PAPER ?VAL$  LLIST  LIST * LET %LN ▝ CLS  NEXT  PAUSE ATTR /<[A] LINE 1INT  STEP  AND  RETURN @x/BIN [N] RETURN VAL$ / LPRINT | BORDER M MERGE  FORMAT EXP  THEN HH8POINT  READ  BRIGHT C6 MERGE  ERASE PIATTR  STEP  THEN  READ  LOAD yUSR "CODE hoNOT ©2[D]n AND  STOP [I]`<=[F] OPEN #b PRINT % DIM  RETURN  CLS  ERASE BIN  BRIGHT 7▗ OR r_▘INT INKEY$▖[K][P]B/k CIRCLE [K] CLEAR [D]h GO TO (COS lf/{ COPY gSTR$  CLEAR {0 OR @PEEK ACS [ PRINT BIN [F]"9 ERASE  DIM INKEY$j FOR  CLS V©j"@▘Q TO  DEF FN  COPY ATN  RUN  COPY  INK ^<> PAUSE  FLASH 227AT ▝C|R~kk-F9[I]* OUT x▜[L]ZTJ)USR Ev, DATA  CLEAR vATN  NEXT  LOAD iI[R]PEEK [R](▞()*$B!R9▞0CHR$ )INT v2RND_f[N]~ GO SUB  FLASH KX DEF FN ▞[C]42▗2|G DATA F LIST [H] DATA sx RANDOMIZE v RETURN  IF e6EXP  AND 4 OVER  SAVE M NEW CODE ▞O[P] BEEP &[G]OAT FN LN )[N]H IF `I VERIFY [O]dATN BIN ,){tMCODE [O][O]} CLS Vv% LPRINT RSIN  POKE  DRAW  PAUSE BIN ?n RANDOMIZE  STOP  LPRINT [N]"D TO [S]▚giXNOT COS  RESTORE [P]Z THEN [R][C] DEF FN <>FN 6 LOAD  LIST TAN [G]Y AND vK▛[B]JDI[J] DATA TAN 4%▛NINT 7M OUT 2 IF  BRIGHT [G] STOP  INVERSE )R VERIFY [B]2e PAUSE : OR qJ)CODE r6[G]▟ PAPER EXP  NEXT tTAB FN [I] LPRINT ▘ASN RNDPII[Q] PLOT  @ACS [U]G[P]Jo#| LLIST © LLIST K SAVE  CLEAR [ RANDOMIZE  CIRCLE 6SGN  LET  DRAW <>LN {+-J[C][I]H▝ DATA !<=▖[F]CODE U[H] PAUSE [G]hdI;▘ ERASE ©{FY ERASE <[P][_[B] RETURN <=▙H6 IF ">7 LIST  TO [M]8[H]R^ LET M@LTAB  REM INKEY$|N[C] BRIGHT JM~ SAVE ATN  BRIGHT cLG DEF FN R[G]R% RUN ▘CHR$ | INPUT [B]b REM  THEN  PAPER LN y ERASE AO RETURN I[C][B]{[C][Q]S[N]gFN  CLOSE #SGN [T][L]NOT CODE ) COPY [P]w RETURN |{SGN USR %TAB ▚[H][C]9DbABS  MOVE  LIST TAB qq/Sq2LEN  DIM 4 CLOSE #▟ FLASH  PAUSE vi CAT  RANDOMIZE ATN  DRAW O BEEP [L]kd#*[T] STOP  MERGE  NEW ▘zH LLIST M[GX STOP  CLS tACS {Mn REM  FOR USCREEN$  OPEN #k THEN <=T<>[K]ISQR uCODE  LINE ['l CIRCLE  BRIGHT [C] y ERASE  COPY  OR [S]▞▗ CLOSE # RETURN f}~ BORDER #▜▞)&VAL [S][E]cM#7 MOVE }INKEY$n[▙SCREEN$ [R] CONTINUE e_/#<,FCOS ▘Q/ DEF FN [E]-M[L]/ OUT  PAUSE ▗WDcS"b[J]`d OR [T]SIN  AND SIN eTAB  AND  TO ▙SQR  RANDOMIZE [C]#YPOINT [E]I GO SUB LN  FLASH  ERASE [K]SGN ; NEXT  READ n BORDER [G][I]EXP [F]ie OPEN #UJ▙ DATA *3:mlRND[FN [U])h OPEN # STOP )GLn READ d5 BRIGHT ASN  BEEP m,:FN [F]2[N] ERASE HPOINT  CLEAR #PI>=[M] AND AT AT [S] FLASH c▜ FORMAT <>[N] LLIST YI&TAN XPIZ BRIGHT Kc COPY  FLASH H LET IN  LINE [G][H]▗▘FACS VEXP  OR p[U] BRIGHT a* MOVE n:c[E][S]L*]!COS [D]>I COPY ACS r PAUSE [F]▗ MERGE ,F READ }t[F]tS[P][B]N.jm[B] MOVE  CLEAR ASN VAL$ >Iisx RESTORE /kUSR R▞SQR l RANDOMIZE [PEEK KSTR$ ▝P[L]XtINKEY$PIy[L]JINKEY$;NACS dmYNOT [B] MERGE m# THEN 3 READ  SAVE ' LLIST ▞`©ke[I]D RANDOMIZE  ERASE USR %I[R] VERIFY POINT [B]^q1hQ+Cj[L]▚USR &r▙FN [U]t[T]▘LE*▙<=8z CAT  ERASE  AND [F]zSIN [H] INK ~>[G]NOT CPEEK 4RND MERGE .STR$ CHR$ SQR F;!d OUT 8[H] RUN h`g DATA  STOP RNDqg|6j PAUSE OB (JPIf0nLEN  PRINT ;0~` RUN / OUT 3H_ VERIFY G/VAL$ FN +[F]B;INT  OVER  READ @[H][H]m VERIFY ?LN  OR q[E][H].[J]u COPY M CLEAR  LET  LLIST  CAT iU[L]?▜LN >kl POKE [J]xATTR  DATA ©Y<>[P]z▛SRND LLIST  BORDER ▞ DATA [A]IN < CIRCLE  CLEAR ▝[B]*)[P])PEEK / MERGE [B] IF . LLIST [B] LOAD FN SQR ATN  OR i=9▘L[C] OPEN #?CODE [U]▙ RUN  OPEN #n DRAW ▖#▜[C]POINT ▗ RANDOMIZE [P] STEP  DRAW WTAB  OR  PAPER RND[C]BIN ~P[H]ASN d INVERSE ▝ REM PEEK  COPY ABS  GO SUB ~' OPEN # RUN STR$ [S]$▝USR MTAN 7[. RUN @$pIRND MOVE | INVERSE INT  POKE [I][S]NOT i REM COS ▝M*( MOVE P9 NEW  DEF FN ?BzSQR ▘[R]▞▟▗[C]~<PLN USR cZ FLASH SABS f OUT ▚[E]VAL$  OVER LPFN I"RND CLOSE #H CAT QEXP B[C]tRACS  MOVE e INVERSE ABS ©/d=©[N]>`Z[L]CODE RNDIEAB[Q]▗hmLEN ,[CkRLEN AT 1 FLASH PI INVERSE <>ASN CODE VAL$  POKE SCREEN$ 5VAL [G] GO SUB  LLIST ASN "[A]▖[P]OUSR X▞ READ  LLIST  THEN  POKE ▗ LINE HM[F] PAPER 9CHR$ [F]VAL rm MOVE SIN IN Pi<=RCODE O▗▟ NEXT  RUN TAB [D][S]©VAL$ /LEN ,[P]~ REM  TO WFSQR EXP  LIST SIN  CONTINUE )[C]▟#M9qF]` TO O STEP ▝R` READ [B]}▞"<=gSCS[D] RESTORE #8RNDATTR & -AT # BEEP *([R]X[E]TAB [B]$:BEXP lRU2F6 OR |Y▚oh[P]▛e[M]/ABS n OR SIN ?SIN fo GO TO  TO ASN COS ~VAL$  DEF FN  INVERSE ASN [C] INK YCOS b< LLIST  MERGE [P]BIN 1Im▟LI LINE E"  PAUSE ▞ PLOT  qrPOINT ▙SQR ] GO SUB  INVERSE ] VERIFY 2+TAB ATN SQR QATTR  GO SUB EXP  SAVE  PAUSE >=[M]▗[O]+,j[M]"[B][F] PRINT CHR$  CAT 1+ OPEN # LIST ▖ ERASE [U]IN [I]VAL  POKE ( LPRINT CHR$ CHR$ ▛▗Z FOR t▛ltCODE NOT K LIST v[C][G]QD THEN ouSGN INT [G]b9Y: SAVE M MOVE  READ INKEY$TAN ▞▟SY$6 DIM  LET  INVERSE ▞ LIST oU▞![N]PIUSR ▖[B]fR5 AND ATTR [D]]O▚[I]w OR M FLASH  THEN {VSGN }Y1ABS Sxd STEP ▟;SQR t2i▞"8b[G] AND J2J▜[G]©I BRIGHT [P]v7 READ RNDSTR$ |POINT I© GO TO  GO SUB  OUT COS ▚[B][E]RND-q LET ASN l[F]rAT ,ASN 1[I]▙r[T] NEW A DIM N)~q[R]L[I] ERASE  FOR (▖[S]FN  FORMAT  LOAD W LIST  ERASE >=i$T©<= NEW [S][F]!v THEN ~ INVERSE  GO SUB s~[M]E AND VjZ<=/"O READ d+ABS -[T]I7U` BORDER  OR 4BIN Y COPY  LET  CLOSE #4[A]{ DATA  LLIST  LPRINT  CAT [L]FN  REM %% DEF FN 3+POINT POINT j▟>ka@NOT  BORDER ▝2lipTAB COS EATN l)VAL [O]M READ  LIST LN $SGN  LINE  AND  IF [F NEXT [4ASN 9 FORMAT [F]IR$[M] BRIGHT SGN *d▞+^INT 4[J]h[F]]C THEN HfYPOINT SGN DBP INPUT INKEY$ TO E INK [J][O] MERGE  INVERSE  BRIGHT SCREEN$ hi? STOP G)[ LLIST ,[H]RD LINE JATN  AND <>X^LN ATN [ATTR V|V CAT ▖[E]>=66FN Z MERGE gVINT  ERASE  LLIST  PAUSE HASN  OVER * OVER BRND(LN [S]) INPUT STR$  ERASE |▗ BORDER ▗ NEW 6>= CONTINUE  READ R RESTORE Z AND 9q[H]c| REM k OPEN #[G] BRIGHT [S]BIN 'BIN  PAUSE [M]INKEY$ACS USR 1INT [M] READ br[E]n▟b TO ([B]- DIM <> FOR [B]ASN 7< STEP )]ZCHR$  FOR U LINE  OVER 2RND. ERASE rb<>G4LN  NEXT INT V PAPER 6STR$ [R]2NmVAL$  DRAW ZXax[K] LIST ATTR ▝ PRINT [B]O([B][I]LN  BRIGHT UKL[C] BRIGHT ,)[U]F LLIST :2'[T]LEN cm&z^>=>J AND  RETURN )COS "4ATN [Q][M]#6 THEN ▟e AND  CIRCLE PSIN  RESTORE JVkSIN $g VERIFY 5/[C] DIM  LIST o THEN Fr5WAT 9 PAUSE STR$ [Q] FLASH [I]S` RANDOMIZE  GO SUB STR$ oABS %SGN R[L]AF RANDOMIZE V%INT >=!SIN TAB & PLOT   STOP Rdn▖T READ  RUN SS$ LET  INPUT S LINE HLN  GO SUB R DATA  FLASH  LIST 5)< DRAW  GO TO  FOR  BORDER D AND & OR FCODE  CLEAR i RUN ^ SAVE v1OLN ©|ABS vs READ ▗ PRINT TAB nCODE -[K]x[,BIN STR$ ▚<=`[T]>[N]RND[M] OPEN #▟ PRINT [F]p[D] ERASE /x{ IF  RESTORE qk&LEN % CLS [H]NOT ?[IN ABS [P] OVER [C]i[C]LEN [A] COPY / RETURN <=`[R]o<=[P][F]▗emRNDK GO SUB L&VAL$ ?uM POKE  LLIST ASN - LINE ER COPY LEN  READ [H]BIN  OR )ATTR G DIM LN INKEY$_&J©VAL r LINE ` RUN ▙s= BORDER  SAVE IN d▞)o LOAD  BORDER IN W|BIN ~FN EXP V PRINT  INK  STEP ▚~[P]1bI)▙(`& IF ]S#ATTR | CIRCLE y=[N]STR$ Z CIRCLE JF FORMAT VAL 3n<>%dcATTR gKATN K[B]TAB ▖INKEY$dATN  OPEN #RND)} RANDOMIZE  PLOT   FOR TAN PEEK ATTR ASN [M]ASN [S] FLASH D[B]@ STOP LN LN LEN STR$ m,▛L[ LPRINT p INVERSE eAT mb<>f▖ CIRCLE  FORMAT [C]VCHR$ 4NOT  STOP zW DATA _,SGN  COPY ;VAL SIN  MERGE  FORMAT ^VAL$ /AT ,!y DIM ▞▛[A]J[L]A0[N]▚ INVERSE hM[N]Q CIRCLE ;|o READ  OUT  BRIGHT /r5UbBIN SGN QK REM q▛j)[L]m IF B OVER f STEP LR RETURN SQR SJ BRIGHT .[H]e2 CLS d PRINT MQBIN  SAVE PEEK  RESTORE FTAN  LIST  IF  OR ©[F]<>CHR$ CHR$ 4!▘ STEP [U]<=COS [D]VAL$ K LPRINT ACS [L]Sn RANDOMIZE + LLIST d LIST LEN [A]EXP a[P]6i+V[T]3iFNINT > LPRINT  OPEN # COPY TAN  LLIST -[E]▞BD RANDOMIZE [B]pSIN p[A]W[F]:k PAPER =~ IF [L][S]_3 PLOT  USR RNDVAL ln$ BRIGHT [I][O][G] NEW I-!,POINT Jc▝ COPY  THEN nDJ1@G[P]▗ LOAD SkX▛ INVERSE Lw▗CHR$ TASN BIN RND}$ckH9RND RETURN ▜[E]S CAT XATTR  SAVE CODE p FORMAT  DATA [N]:▗ READ ACS USR >0 CLS ] LPRINT cv FLASH TAB  LET 6 TO  GO SUB ▜[R] DEF FN :TAB INKEY$[B]!ATTR FN g[E]Lt<=J▞[O] OPEN #T FORMAT POINT z LLIST U IF =[K]ATTR © PRINT <= LIST IO[J]X COPY * ERASE [R] BRIGHT $*S-2IMPL ERASE xSM BORDER s[E]nO_V< STOP 0 CLS  INK ▙▞[P]▜ MERGE /T TO I[I]▛[E] DRAW jSGN 6TAN &INKEY$<><>V[J]< LINE J▖[H]' BEEP EXP  DIM  ERASE  INK V THEN Jr[O]&>=INKEY$-sPOINT mATTR xINT u PLOT   INPUT oHPEEK M MERGE VAL LEN K" INK DwrPEEK POINT [F]JShb RETURN :[K]O(STR$ P[U] TO  LINE  DEF FN S[J]>= FOR CODE TAB $ INK  LET ▛2I7* OR [U][K]0J[D]uq▚G-qCHR$ &97P[A]KC#[M] REM [A][T][D]h BORDER  BEEP  GO TO ATN COS * MOVE =ASN [E]NOT + BORDER <=' DRAW _V▛TiPOINT [B][G]d DATA LN INKEY$0[[C]2'BIN  PAUSE  BORDER S9Hm[G] MERGE /[iSIN LEN SGN EXP HTAB POINT [M] RESTORE LN  OVER 3q©H- OPEN #PE[D]DASN  NEXT  THEN  VERIFY RND!ETAB  POKE  AND ACS >=aVX6r OVER [A]ASN [D]z GO SUB rZK$* RETURN ACS LEN NOT yp CIRCLE S CLOSE #9tATN N?TAB  STEP [F]Mt[C][D] GO TO  RUN .[B] CLEAR [B]!SQR VAL$ TAB <>iPh_42Y DIM CHR$ DHSIN TAN $9LN &1 VERIFY -0COS  FOR  LPRINT FN ▞o4 AND  NEW  OUT  THEN IN >=' DEF FN ^f[I]8EXP +7l ERASE RNDINT TAN H LLIST PIJoEXP %ACS I STEP EXP LEN &O[M] INPUT 2 DATA  OPEN # FORMAT  LINE BIN 79&5<>SGN  RESTORE ▝ CIRCLE [M]K@}NOT Z[T] COPY  CAT [H]▟)(▞R(FN YCODE  MERGE z BRIGHT SQR  RESTORE A[R][A]▙@[C]ATN  LIST !-r▝G5CODE [A]PEEK  LET -SQR USR .<^f PAPER  MOVE .TAB ]&NOT POINT ATTR RNDVAL O# AND J GO SUB T VERIFY  RANDOMIZE  SAVE  DRAW ▗>=▙ STOP EXP [G]TAN INT TAN VAL  OR [T] REM  RETURN TAN  OPEN # READ [L][K]V[N]IN ld THEN  CONTINUE ▟ BORDER [U];'>= BORDER ▚x8q IF h[C]_SQR f2[O]▜L©s PAUSE sb_0▟0 RESTORE >[S] PRINT <> MERGE  LPRINT RSQR H OUT  COPY  FOR  NEW D[T]4 NEXT t RANDOMIZE ]/K THEN [E]STR$ NOT  OVER ASN i1 INK yO OVER INKEY$_JINKEY$ IF  OVER ASN [H]▖ MERGE  GO TO ▛[O][B]LPOINT  OVER 5mv©&Aqt, VERIFY  CLS OQ6O REM Z[L]LVAL$ 21[B]'KN BORDER PEEK  FOR , DRAW  POKE  COPY  COPY  COPY  RANDOMIZE ![L]H[Q]$[Q] LPRINT [Q]OSIN  STOP ) DRAW  GO SUB W[/KFz INVERSE  PLOT   OR ( PAPER  CLS  PAPER ASN ▜FN /TAB VAL ~SQR IN IN f GO SUB TyH VERIFY [B] LET >6p&[S]BIN RNDdos<= OR CODE ▘▛C{[I] FORMAT RTJLEN } CLS L)NOT  POKE [E] CIRCLE  INK  LINE  BRIGHT  DIM ▘EXP }TAN X![S][E][B] RUN  REM 6 RUN RND[H]▚LN [B] PRINT [©+ BORDER rINKEY$L$JK:QoVAL Cr[T]B DATA ][H] BEEP  DATA POINT  RETURN UVINT >= PAPER ATN [B]CHR$ ▙[U]VAL rDhJFN H▞ LET  INPUT  BORDER VAL$ >= NEW ACS ▖ RANDOMIZE  FLASH ▘IgZ[P]6 COPY &ATN o SAVE )<>N=STR$ e{ VERIFY # CIRCLE -%cVAL$ ATTR m SAVE  MOVE  AND R[T]▞>G RANDOMIZE s OVER SGN [G]V MERGE  NEXT  BEEP [T][▗~2qSIN |[B]O▝!CHR$  CLS [O] LPRINT -LEN  OPEN #USR O[F]IN [H] THEN ▗ASN NKjb%P<>. FOR ?1ASN *_ LIST ABS R[D] CLOSE #▗NOT CODE  COPY  POKE  CIRCLE  CAT  PRINT ▟l PRINT KM[T] REM <BIN ▘ POKE ▚O LIST [A] RESTORE [N]CODE [U]ABS ACS [F]▟RNDATTR k CLEAR  OR ?>= LIST ▙ATN CATN <[S] REM %gSQR c DATA o. BEEP `$P[6STR$ 9W[G]Y[yATN a2[E][G] FLASH [M]▟G+[G][K]pSQR E4FN Z▜ACS IN [G][C]SCREEN$ ]TAB  MERGE [O][U]▝N9 LPRINT LN o PRINT PEEK s[C] ERASE Y DIM >▙cTAB [Q]+[O] COPY  COPY l COPY - FORMAT EXP ATN SQR  FOR  OUT l CLS mUSR ▙@ ERASE ▟[O]/5 CLEAR BIN SQR  DIM  RUN  OPEN #[E]▞[Q]VAL$  LPRINT B THEN INT 4j ERASE : OUT SQR 3[B][O]*@ SAVE  LET  COPY ©-{+:SIN Rfe"t SAVE 0 dZAT 5ABS tsCOS mTvC-c[L]Z[U]RPBRTAN USR  AND 8 NEXT  NEW RND%(u[O] VERIFY RND/ABS R% OR N[H]ATN r[C]5COS &DY!J@ NEXT > BORDER ▖ AND  NEW INKEY$+4 AND SIN e COPY =COS  FLASH }c FLASH cBIN VAL EXP  SAVE [A]2[F]▞hPOINT VAL * PRINT [r/`[K]Y THEN  LET RRNDTAB  FOR  INVERSE SQR V RETURN  LIST m BEEP i PAUSE |$ PRINT  MOVE 2 STOP CHR$ [A] CIRCLE J[A]@Y RANDOMIZE a[O]© DRAW dx[I] THEN LN /?▟ FLASH  PLOT   MERGE  PAPER [F] FLASH  TO INKEY$[H]R LIST  PAPER uEaMSGN [C]zqACS SQR  DIM K RETURN dFN <=SCREEN$  BRIGHT © OVER [E][T]  ERASE f CAT  IF  LOAD  FOR [J]>=[L]lgcyLEN ACS (FN L) CLEAR Q)/▗▟ RESTORE QVAL$  RUN  STEP  CLOSE #; BRIGHT SQR /[C]▘AT  OUT  BRIGHT   STOP  CLOSE #&i REM kIBCSTR$ Xs PAUSE +▞PEEK [G]0[H][G] LOAD W DRAW " SAVE  RUN  INK ▗SGN dBIN EXP  RUN TAN BIN ATN  COPY  MERGE  BEEP 6[R]<= CLEAR  PLOT  t<>JBIN  OUT [U] AND  REM SQR  OR k[H]w LET IN  THEN  COPY el RANDOMIZE SIN TAN X LOAD {] DRAW SQR k|SIN qK[F])JwCOS i[D][E]ml MOVE / THEN lATN ▘M[Q][C]pv SAVE P LOAD  READ  LLIST  LOAD  READ  RUN  PAPER ATN  LIST  OPEN # PLOT   BEEP RND STEP  OUT  OPEN # CAT NOT  OR STR$ CODE ▟<= COPY ▝SQR '8!F▗CB▘STR$ => LPRINT A▝@BBIN  ;?[N]]>[M]}/}_]USR IN INT ~[S],VAL$ eOidsC[S] LINE  FOR [C][G]TAB ]M[G]ACS  COPY @"p▖S[A]COS  RESTORE  CLEAR yABS  COPY m COPY MTAN 0 [B]▝[S]SQR ©INT  DIM  LET  FOR ABS [L]T[O] DATA ▞ ATTR @;_BIN { BEEP COS  PAUSE VAT IN [A]I BRIGHT fD[A]u:V[L] PAPER  ERASE  PRINT  CLOSE #uABS EXP ATN HSQR II LPRINT [Q] ERASE ©[S] CIRCLE } CLOSE #.▞PEEK &LEN YPISQR [ THEN H VERIFY [F]POINT BIN [O] CLEAR Id CIRCLE <>`▜8BIN  BORDER @mASN eSQR ]ATTR 2ATTR lATN B(M#B<>[Q] BRIGHT 7©,▟lr MERGE  CLOSE #VAL ▟m[G][N]m)▛COS EXP [P]Zm% AND B MOVE ▙. CAT O [H]FN ▝)IHRNDSIN  CLEAR [I]:ACS @ VERIFY Yb RETURN  LOAD  PAPER <>+ STOP ATN  MOVE m1ASN VAL )^J DATA  LPRINT Q ERASE [E]$▟ CLOSE #q DATA m▖[G] INK BIN ▙>VAL$  RETURN [M]#TAB S[T]Oa?RJ-h[C]P[C]C PRINT i BORDER jE>[B] COPY FN [K]oM5[L] CIRCLE dw2D}sSQR  MERGE CHR$ Y▚ RETURN Y+YTAN  CIRCLE $`[I] OPEN #(`FN <=▞[C]TjqHCHR$ P PAPER OJ▖I[M][Q]0▖} POKE %/>=[S]IN  ERASE ^CHR$ FZ[G][O]▞k DRAW CHR$ U[T]FABS d[T] NEW [C]i▛C[A] DATA  CIRCLE HINKEY$▗>crB▘<) COPY <DPI VERIFY INT V AND ZIN INT SIN [D] CIRCLE !gTAB [U]▝|.[C]YSGN GQLN [G]1ASN qM[B][O]5F NEW TAN <> IF [J][T][B]co[C], NEW ▜ SAVE oATN 1[B])o[J] FOR ; OVER TAN  BORDER ©[P] RUN [J] PAPER SQR  INK [A]ASN  RANDOMIZE [N]▞LH$JHTAB ▞LN )-Q PAUSE J&ATTR  MOVE SGN W9 LIST ACS ATN ui▟[T]c5n[M]'[R]▗[P] RANDOMIZE  DIM TAB EXP rE[A]1" AND 6 BEEP q ][K]bvr[N]+Qz STOP  FLASH S[I]▖[H]<.[I] FORMAT -P] RUN  THEN RND$ CLOSE #BY>=ATTR [Q]rAT [S] GO SUB mN*[S][T]m THEN Inc LLIST Y[G] OVER USR dSQR  CLOSE #NE_*z[T]1d PAUSE INT I PAUSE Zcb[M] STOP ▝[Q],BSIN ,{ABS QA@IIN  SAVE {[P]_gL[L]I[G]Z[O]AT D>= LIST INKEY$/ CLOSE # OPEN #E?%PEEK ;c INPUT LN EXP [E]Z CLEAR GSQR o|B NEXT 4B[A]NOT TAN TP PLOT   CLOSE #2LN  BRIGHT [L]TAN [P]CHR$ 0 RANDOMIZE INKEY$ATN [T]A[S]+Yy▚`6& RANDOMIZE BIN  SAVE  RETURN  PAUSE SQR T#84INT  POKE NOT ▗▗d+7oVAL$ ik"POINT MFR[L][J-[G][ PAPER TAN is[H]R@ FOR  LINE Rr INK  DATA [U][E]EXP SIN SLN `COS COS  COPY SQR a$[I] BORDER 2 PAUSE [K]TAN _▚|%USR _Or PRINT /9(  RESTORE # STEP FIn▘s READ nbZ PAPER ox AND  OPEN #Ip[G] NEW VABS SIN [A][E]I+jE[G]CODE [E]RND[G]SIN ▙FN j[P] CAT  LINE  RANDOMIZE "GCODE e▞ MERGE ▞[A]Rr LOAD  LOAD  INPUT SIN  PAPER PI&% MERGE %▚[F]iLLEN )[S]TAB ,TAN ASN F LET INKEY$ DATA NOT |'emNOT  INVERSE )WB INVERSE [C] INK bj>c{? NEXT RNDac">=USR 9&