PSG-Wins: PSG WINS.B

  14080 RANDOMIZE USR (PEEK VAL "23627"+VAL "256"*PEEK VAL "23628"): REM   PRESENTED BY VASILYEV MAXIM   
  65293![R]] RESTORE *K/▟]NOT NOT 3CODE 2H/2▟/2k/ OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN !@ COPY  GO SUB VAL 1COS _! RESTORE  RESTORE  RESTORE  GO SUB s=/><>2CHR$ />P OPEN # CLEAR 2USR >Q OPEN # CLEAR 2USR >P OPEN # CLEAR :USR  VERIFY Q CODE ! RESTORE NOT /=CODE 2]2] GO SUB V!FN a GO SUB [ POKE /1 STEP = COPY  COPY  MERGE  STEP FN a STEP P PAUSE >P OPEN # CLEAR  MOVE  MERGE  STEP @^▙ COPY  CLS  STEP @^X GO SUB [ POKE /!FN a RESTORE  STEP = LLIST  MOVE  STEP FN aNOT zt!TAN _ MERGE  RESTORE / STEP = LLIST  MOVE  STEP ▖^!`USR >P OPEN # CLEAR N>Q OPEN # CLEAR y THEN z USR :_^< RETURN R( CLS  RETURN U( RUN 2_^#|ATN   PAPER  GO SUB SW^>P OPEN # CLEAR <> NEXT  GO SUB s_ RANDOMIZE  LLIST  INK  LLIST 9 FOR  LLIST STR$  INK  RESTORE ! STEP _0'E, STEP _80. STEP _8( STEP _0E STEP _ AND o RETURN 8 STEP _ AND _-  PLOT  /. STEP _<( RUN  RESTORE  STEP _!!8 STEP _0kb#_STR$  GO SUB LN  LLIST  RESTORE  GO SUB R8[A]1 DRAW ]<>CODE O STEP _ THEN  SAVE Gy<> INK A FOR +^+V FOR ) INK <>MAXSOFTSCREEN$ VAL 6SG WINS" LINE  STEP  POKE [B] NEXT  GO SUB sb! AND a▟[d MERGE  GO SUB VAL ! NEXT [B]W NEXT  LINE /<> GO SUB LN !▙NOT FN a~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN !<=kNOT  STOP cNOT :g SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗XIN   PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙IN ~wpkd^YTOKGB?;852/,*'%#!▛ VERIFY  OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝q COPY  READ IN  NEXT  RESTORE " PAPER d RESTORE ~2yh2>g##~#"|d "d^#V#"BIN dO"EXP d LLIST " MERGE d! CLOSE #c MERGE cp GO SUB VAL CODE IN 2 MOVE c2 ERASE c2 OPEN #c2<=g21h2fe2 RESTORE e2gf2CHR$ g2,h2TAN e26f2EXP f/2:e2EXP e2;f>/2h2ATTR g!ac" TO gVAL$ "6h"CODE e"1f"TAN f STEP IN d GO SUB SWg STEP ABS fSTR$  GO SUB s[S]d1qc>  LLIST  FOR s#r# FOR =  PRINT ▗LEN c>p[P]*LEN c" BRIGHT g"Fh"Ee"BIN e"Ff CLS <>!~▜ GO SUB s REM d 8 INPUT #BIN ▜▝OCODE G▘ RANDOMIZE IY LLIST "vg▘[A]gn[G]G<>{▜_~0 THEN #~STR$ [I] NEW  THEN Z  PRINT 2 PAPER c LET ~ NEW #ng INVERSE b FOR  LINE [N] INVERSE }▚▜O!LEN a~#fo THEN :8 GO SUB R<><>><(wVAL$ ▘%[B]y<PEEK # ~2?e#" e FOR x_@▛@e# INVERSE . STEP  INPUT d)" CLOSE #c FOR 1▜ IF PIe(& RESTORE BIN [S]{PI PAUSE ▚e GO SUB DOPI GO SUB B0 LLIST >2deCODE 2tego"ke"}e LLIST CODE ▜ INVERSE |2 FLASH cO PAPER ▚~ PLOT  2 BRIGHT c©▝zp©@©▝PEEK p© ▝IN p© ©▝ VERIFY @©▘&f`©▘fp©2 READ ©▝ NEXT ©▝ REM ©▝ DRAW 0©▝ REM ©▚! FLASH cACS wp▘▝ INVERSE  ▘▝{qP LET ▝fq▘Afq▝ CIRCLE A▝FN p▘▝▜`▘▚efCODE 2uflf LLIST ▘~f!▘lf0▘p[O] OVER cNOT FN uIN  COPY   VERIFY ! OVER cB GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 LLIST c<>CODE G>=T[D](@=(#=CHR$ 9e! MOVE c5 PAUSE 9e>w▖PI TO IN d STEP i PAUSE ▗2[K]gNOT ▝ ERASE p▛ STEP 0j GO SUB Svg2h▝ OPEN #9▘[J]g@7k GO SUB S[A]gCODE 082▘?ec"" DRAW "Be!2SQR 5▗9▝f ▝CODE ▝▜2 ERASE g'▝E'▝"O▘2 STOP ,▝▙ >▝}I▝[S] I▝sIgo RUN  PRINT "PEEK e[D]▝/ LINE "j▝STR$ 0j▘%h[O]▘6f[T]▝ RESTORE  ▝▘1f j0▘<h[B]▝BIN @H:▘2L ▝ DRAW VAL$ ▝2▘!fCOS ▝ PAUSE PEEK ▘ LLIST cPEEK ▗ OUT c>▙CODE 2n COPY 2 INPUT g: COPY g=(y2VAL ▗ATTR g>7TAB ▘<> OVER :deO▜( PAPER CODE 2 COPY g ▝<>STR$ ▜!qbLEN ▝ TO +▗NOT i 1&o" RETURN gPIx PAUSE  INK NOT  RANDOMIZE g-▝@▝ GO SUB  ▖og" NEXT  CLOSE #A▘ RESTORE ▝TA AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘cO$"ASN g▞▗!LEN c▜@▝ BRIGHT <=▝ ERASE <> SGN  PI<>CODE ?0SQR ▚( GO SUB  RETURN ( LIST ▘>S2sh2th0 INK [T]▘yh LLIST 2^h:ih= LINE ACS iy2hCODE b$▘Lh$▗%h: READ $▞h( INK CODE 2ih q$▝$▘0j 11$▘hh$▚ CLEAR i/2cha$ ▘jA$▝X$▝1A$▝sq$q$q$q$▖ [R]q$!$▘h▞q$ OPEN # FOR ▝<<>&:!$m$▝,@SQR q$▝tq$0 INK 1$C:ef-ef(E▙NOT  GO SUB j2▙f:uf= LINE  GO SUB jyZ$W[T]▗"@f<>2.▘tf.▙k/2[T]f*o&0▝ B.▝~▝.▘gf+▝▟2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP  THEN ▗ CLOSE #($r&▚"CfNOT 7kr& TO ▝CODE 4▘> COPY <▘<>>=▝2▘EXP fr4▝CODE e;2▘7ks▝TAN R▘Y▞[F]AT NOT ▘j▝[J]  READ ▝SCREEN$  2TAB SIN p4 LINE RND▙FANTASY2 BY RST7/CB/PSG 9-1995(COS  COPY USR Q[M]▘PEEK OLEN [M]BSCREEN$ ;PEEK [L],w REM ][J] REM *[J]C▜ RESTORE ~#`TAB ▞TAB ~EXP  REM ©cEXP   ▗`ATN ATN ~TAN 0$▗`TAN  PBpFpFpFpFpFpFCODE EXP ! BORDER ©`EXP SGN  !ATN EXP EXP  pppppp!SIN VAL TAB VAL SIN p%ATN (▘LN &4▖SGN SQR EXP ATN TAN ! READ K▟ LLIST EXP   BORDER cEXP  LPRINT  REM EXP  LPRINT ! DATA `ppATN  LPRINT  REM ATN pp8pFp8pT@8ps▚ BORDER dASN  LPRINT  REM ASN pW0 [N]▗TAN  LPRINT  REM TAN p0▝pppp8sA1▝*▝TAN /:COS $TAN !TAN SIN VAL =▗LEN %SIN "!SIN SIN TAN VAL SIN TAB VAL ATTR TAB FN  RETURN ▝- RETURN ▝POINT ▞POINT ~ASN  REM ©dASN   ! CONTINUE  IF ▗~SIN 0$▗`SIN  (ATTR  $F▘ATN  RESTORE ▝` `2@H"D$bDV▘ nEXP  LPRINT AT  LLIST `EXP qEXP ▝#1[N]0EXP EXP EXP USR EXP  BRIGHT p/p/p/p/0 LET ▝G LET ▝[R]▝[R] RANDOMIZE 2 LET   INK /FN 3▗/`FN   FOR /PBpFpFpFpFpFpF▝TAB  NEXT ▘d2-0 POKE B:@ POKE p POKE P POKE BINKEY$$ EXP  LPRINT pATN EXP SGN USR SGN ATN EXP TAN ATN EXP SGN USR SGN E REM ▝Y REM ▝[N]▝[N] POKE 1 GO TO   PRINT ▗~5INKEY$2▗5`INKEY$ *O[P]  SAVE 1 GO TO O` Q)!?a?QrEXP rEXP #TAN #TAN  TAN ATN EXP SGN p CLOSE #0 CLOSE #▝ OVER pp LET p LET  RESTORE ~C FLASH ▝[S][S]~!VAL$  FLASH ▝INT   ▗&`AT ▝AT 1$#PBpFpFpFpFpFpF▝VAL$ 4 FLASH INT ABS  FLASH ▞EXP "INT !LN INT INT  FLASH ▘TAN ASN t FLASH  FLASH COS LEN VAL$ LEN COS p$ FLASH ▝LN ▘EXP &4ABS SGN INT LN ASN 4 FLASH INT  LLIST INT  FLASH ▗INT  LPRINT  REM INT  FLASH p`dLN  LPRINT  REM LN pp8pFp8pT@8ps▚ BORDER dACS  LPRINT  REM ACS pW0 [N]T RUN p▝ppp[N]p8=a1▝*▝ASN /TAN $ASN  FLASH ASN ACS ASN COS LEN SIN %COS 4 FLASH ▝COS  FLASH ▞COS ASN LEN COS VAL$ LEN AT VAL$ POINT  INK ▝T INK ▝[O][O]~*SCREEN$  FLASH ▝ACS   ▗*`SCREEN$ %2PI0$▗2`PI%K[Q] $!▘LN  RESTORE ▝` "DR.3Y$bD_p STEP p STEP 2 LOAD ▝ASN  LOAD [M]ASN  ASN LN INT ABS STR$ ABS LN INT ASN LN INT ABS STR$ ABS pp▝J[Q]VAL ` LLIST  OPEN #BIN INKEY$xI[H][A] LPRINT  MOVE STR$ [S]▘s:▘@360ppp!p*p3p?pHpQp]pfpop{p▗p▟p[J]p[S]pATTR pATN ▜ LIST  LPRINT 0[A]VAL [Q][A]p REM  CONTINUE ▝ [C]!PI▗VAL$ ▗? GO SUB VAL  STEP FN a STEP VAL$ ▛a!USR "TAB u OR FN STR$ xLEN   PLOT  NOT  DEF FN u>Q OPEN # CLEAR USR ! CLOSE #c GO SUB VAL  THEN z USR >S GO SUB STAB u2POINT uCODE N[E]LEN  CLEAR  COPY > GO SUB yIN >SQR  INVERSE !▚yx OR  INVERSE ~ AND ▖ INVERSE #}| AND STR$  CONTINUE ! OUT SQR LEN [K] GO SUB VAL !©SQR ! FORMAT 0s#r# STEP VAL COS  RUN !▘~ PAPER ▚ THEN  THEN 0p THEN zSTR$ COS w#[P]▞ BEEP ![I]CODE [K]CODE ,K▘WEXP K▗MQ[F] PRINT { AND _  GO TO ! RUN COS  COPY COS  OR  LIST  RESTORE ATN  THEN # CLS  LLIST ATN  RESTORE P▙STR$  READ ! RUN TAN ASN  OR %F7%▞# IF  LLIST  RESTORE ATN #F@STR$  LPRINT M[G]wTAN ~/# RANDOMIZE ?▟@ OR !FxGL▙STR$  POKE  COPY [O] OR !▟x(]▚*[K]x STEP [R]COS "[K]x*[Q]P[M][Q]xSTR$  BRIGHT >12CODE [S] INVERSE !( OR !STR$ x STEP  BRIGHT x!<= ▝ STEP  ▗ASN x' U▗ STOP [T]▚f▗ POKE x@f▟L▟!POINT  6 LLIST #6"  LIST [H]>G_[D]W 6 GO SUB #6ATTR #6 [D] INK # OPEN # STEP 1xPOINT ▚!▚[H]DSCREEN$ ▟@>G2x STEP xN[P]>P@▚[T]>N0▞!oAT [H]AT IN ▜.CODE pAT `▜▝( ▜▛ REM ![R]LEN USR  OVER ▝ OUT ▝ PRINT [C][R]SIN  GO SUB VAL NOT ▗6~#6,#62pPEEK ▖[D]Wy NEW  pIN ▝ SGN  ERASE <>p GO TO ▘#y0d▙ INPUT <> GO SUB Y GO SUB Q GO SUB Y INK 1 CONTINUE ▗ RESTORE  MERGE  OR  PRINT ▝ INK P0@$,[D]p#p#p#▚CODE og1? FORMAT USR  RESTORE 1? MOVE POINT pKPQ▞{ GO SUB Y INVERSE  LLIST  INVERSE  THEN  AND 00▗ OPEN # RETURN `r RUN  INVERSE #OSCREEN$ ▖ NEW w#y/ NEW ▞ AND  AND w<> GO SUB [T] INK pPI ATTR COS [K] INK  !"$%&&'()*++,,--USR .BIN /VAL$ --,,++*)('&&%$"! ▝BIN [S]!$&')+,l g[G]-,+)'&$!^ I▛ <▝#p<p<`<▝p<`<▝< COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  MOVE INT ▚▞[C][F][I][L][O][S]RNDPISCREEN$ TAB VAL COS ACS EXP SGN PEEK STR$ BIN  AND <> THEN  DEF FN  FORMAT  OPEN # MERGE  BEEP  PAPER  BRIGHT  OVER  LPRINT  STOP  DATA  NEW  CONTINUE  REM  FOR  GO SUB  INPUT  LIST  LET  NEXT  POKE  PRINT  PLOT   SAVE  RANDOMIZE  IF  IF  CLS  DRAW  CLEAR  CLEAR USR  RETURN BIN  COPY IN  CLEAR  CLEAR  DRAW  CLS  IF  IF  RANDOMIZE  SAVE  PLOT   PRINT  POKE  NEXT  LET  LIST  INPUT  GO SUB  FOR  REM  CONTINUE  NEW  DATA  STOP  LPRINT  OVER  BRIGHT  PAPER  BEEP  MERGE  OPEN # FORMAT  DEF FN  THEN <> AND BIN STR$ PEEK SGN EXP ACS COS VAL TAB SCREEN$ PIRND[S][O][L][I][F][C]▞▚|yvsp[M]mjgda]ZXUROLIFCA>;9641/,*(%#▜'Z▝'X7FIN WX▝'V▜INKEY$%(*,/1469;>ACFILORUXZ]adgjmpsvy|psux{~▞▛▙[B][D][G][I][L][N][Q][T]AT VAL$ VAL COS ASN ATN EXP SQR ABS IN STR$ NOT  OR <=>= LINE  TO  STEP  CAT  FORMAT  MOVE  OPEN # CLOSE # MERGE  VERIFY  BEEP  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE  INVERSE  OVER  OVER USR  OUT BIN  LPRINT [T] OVER  OVER  INVERSE  INVERSE  BRIGHT  FLASH  PAPER  INK  CIRCLE  BEEP  VERIFY  MERGE  CLOSE # OPEN # MOVE  FORMAT  CAT  STEP  TO  LINE >=<= OR NOT STR$ IN ABS SQR EXP ATN ASN COS VAL VAL$ AT  SAVE ▞[Q][N][L][I][G][D][B]▙▛ IF ▗~{xu CLS ▖kheb`]ZW DRAW ▚MJHEC@  CLEAR 20-@ RETURN ▝ZY▝ COPY X(Vq8(XWV▝AV-02!▚@CEHJM▞WZ]`behkmxUSR ▘[M]▘6l STOP  8>▝USR ▝ CLOSE #▝USR USR `▝USR 0I) STOP |8a▝00▝|Xo▘`` RETURN  DEF FN  VERIFY  NEW  RETURN ▝ SAVE USR 8▗ RETURN  RETURN  LPRINT @▝▗ NEW  NEW  RETURN `s▝ RETURN  0USR @▝ NEW @(▞] ` [B]g▘80© ▝▘8z h▘>Yx▘ NEW  NEW [M] DRAW  DRAW  NEW  DRAW [I]l[I] DRAW  NEW @@[I] LN ▝ LPRINT [K]0[Q]▘ NEW  NEW <>CHR$ 8[I] LN ▗ GO TO  SAVE  GO TO  NEW  VAL  H▘ AND  INPUT  RETURN  VERIFY  AND USR  NEW  PLOT   RETURN  INPUT  NEW  CONTINUE 0@p0P▗ REM  DATA  IF @▖▝USR <▝ SAVE  ▖X▝▚Pp▘ INPUT | AND  AND  VERIFY  RETURN  INPUT ! ▝| LN ▘ NEW  NEW 0▝ RETURN XP▝l RETURN ▗ BORDER STR$ Y RANDOMIZE ▗ COPY !w OVER [P] THEN |( RANDOMIZE !©6 FOR } AND o0 SAVE >P OPEN # CLEAR !@@u GO SUB VAL ▗ COPY 6P GO SUB VAL >W0)8[K] NEXT >; GO SUB G GO SUB ^ GO SUB s FORMAT VAL  CLS v GO SUB _ONOT d▗# STEP ▗NOT k▗0▝s0▝z ▚EXP CHR$ [D]▗>0▞#CODE  GO SUB O RETURN <>~▘ CLS v ▗[A][E]LEN >C GO SUB yB GO SUB [T]< DRAW ,,#"[A]ASN ▜ INPUT  OPEN # CLEAR 2 POKE ▗[U]{▘ GO SUB _IN COS 1[R]LEN  COPY  COPY  COPY  COPY  COPY  NEXT 1wTAN  LET STR$  MOVE  LLIST  INK  RETURN !w COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  THEN [B]> OPEN # RETURN +" NEW FN  INK  RETURN 1 RUN COS &[N]▗! COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN [G]> OPEN # RETURN :/1USR  STEP IN COS !<>[O]!@~= NEW 2SCREEN$ } AND o2 IF FN ~ NEW ▜▜ AND [R]o DEF FN LEN [F]g RANDOMIZE  COPY  COPY  BRIGHT  GO SUB s! RUN COS wTAN  INK  THEN [J] IF POINT { AND _2 AND POINT  GO SUB ATTR  INK  NEW  RETURN  PAPER  DATA POINT  FOR NOT  CONTINUE POINT ▘ NEW USR ▜[P]O"2▟ FOR "[F]▚>G2!>O NEW  INK "▞ LINE SCREEN$  FOR NOT SCREEN$ x NEW  LINE %[A])SCREEN$ ":▟ GO SUB S=▟y/ NEW o&© COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  STOP 1 RUN TAN g▚ MOVE ~[T]SIN w,0p@▝>[A] COPY  COPY  COPY  COPY  COPY  COPY  COPY  RUN ACS CODE  OPEN # RETURN ![S]▚~ VERIFY  NEW  RUN  AND wg>USR  AND 2CODE VAL$ _ THEN ? THEN ?o6,6,6,6,6,6,6,6 $[A]&▝>USR  VERIFY 2 GO SUB VAL$ o~ NEW  RETURN  AND [T]5 CONTINUE ▘>▜CODE o&▝~OUSR  NEW  VERIFY  _ COPY y NEW oO&DCHR$ )USR ▞)) RUN TAN "mAT  COPY &[N]RNDW OPEN # CLEAR >ATN  LINE  FORMAT CODE =2yCODE  RETURN 08>NOT ;VAL ▜_CODE W!©SQR  RANDOMIZE  LLIST ]w, DIM k THEN SGN  STEP  E[K]1WEXP xLEN > COPY CHR$  LET CODE !" CLOSE #CODE !WEXP " MOVE CODE k▝#f[F] MOVE  GO SUB s MOVE CODE  GO SUB C CLOSE #CODE >P OPEN # CLEAR ! READ  THEN ~ LINE VAL ▚NOT VAL ▘~[Q][H]#" COPY CODE ▜o&))>▝▗g FOR  GO SUB o THEN SGN STR$  DRAW $ LOAD ><2<VAL &o~ ') FOR g. THEN < THEN  GO SUB R|9 OUT SQR "VAL [S]!+|ASN CHR$ {d[D]USR "[A]VAL >Q2[D]VAL !NOT VAL "SCREEN$ ▗2▘"b%[C]>Q THEN |CHR$ [Q]VAL &USR >SNOT PIVAL  AND 5[C]2[K]▗ OPEN # CLEAR CODE C GO SUB yB GO SUB [T]<@0#>1 CLS ▞© FLASH  RETURN  PAPER [D]▗ GO SUB _ ,▟!C GO SUB iB GO SUB a- PAUSE  DATA VAL   POKE  COPY Z RETURN Z COPY 6 GO SUB LN !>== GO SUB VAL [G]▚!USR 0IN ABS ACS ▖w# IF 0! PAUSE  COPY SIN  GO SUB VAL  FOR STR$  MOVE   PAPER !▘C▗ RETURN R[D] FOR 6NOT #6#6LEN #CODE G CLS v>X OPEN # CLEAR  INK  RUN ▘ CLS 5Z▚ RETURN NOT  INK ▗ GO SUB _ INVERSE [B] GO SUB VNOT ASN  GO TO  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW [B]$| NEW USR } AND  o CIRCLE | VERIFY g<>z▟{ AND  _ CIRCLE z VERIFY W<>O NEW ASN  BORDER o DEF FN COS [F]g RESTORE y NEW  AND  BEEP  ▘ DIM <> RETURN  P▝<>d▘<>▝<> LOAD ▝<>STR$  COPY  COPY  COPY  COPY  PRINT ▝ RETURN ▘©<=[P] DRAW  COPY @lUP COPY *@▘(SCREEN$ FN  COPY FE( DRAW  PAUSE 0▗BIN `[O]0([H]d~ COPY (C AND ▘4 RETURN  COPY BAT2 COPY [S]▖bP▘U0▜*@SCREEN$ 6FN Zn COPY  READ n RETURN ▝0▘ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  IF USR 5STR$ 7USR 6▗5 57USR  ▘6 p▝ PSTR$  pp@@F COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  INVERSE  COPY ▝ FLASH ▝p  ERASE p  OPEN #p@ OPEN #p` OPEN #p OPEN #p[Q] OPEN #▝} ERASE q OPEN #q OPEN #q  OPEN #q@ OPEN #q` OPEN #q OPEN #▘USR  FLASH ▘ SAVE  FLASH ▝r ERASE r OPEN #r  OPEN #r@ OPEN #r` OPEN #r OPEN #q OPEN #▘ LPRINT  FLASH ▝s ERASE s OPEN #s  OPEN #s@ OPEN #s` OPEN #s OPEN #r OPEN #q OPEN #q OPEN #t OPEN #t  OPEN #t@ OPEN #t` OPEN #t OPEN #▝q LPRINT  ERASE ▝s  ERASE ▝u ERASE u OPEN #u  OPEN #u@ OPEN #u` OPEN #u OPEN #q OPEN #q OPEN #q OPEN #v OPEN #v  OPEN #v@ OPEN #v` OPEN #v OPEN #▝t LPRINT  ERASE ▝u  ERASE r OPEN #w OPEN #w  OPEN #w@ OPEN #w` OPEN #w OPEN #v LPRINT  OPEN #& COPY X▝▝v1x$` ▗? COPY  PAUSE  CAT `@▝ COPY  COPY  RETURN vRxd(f▛▝ fsUx▗▘ COPY  DRAW N▝WHr▝0 LINE [U]FN UU ▚[F]UPwLN (BIN >▝USR U▝Q CAT ▗T?>=(<=▖? DRAW © COPY  LIST UBw RANDOMIZE y RETURN q ▗? COPY  CLS  CAT a@▘ LIST ▝ DEF FN q_▝1fw[F]y▗▞▘PI▝▖ RETURN ▝ LINE [U]▝ LIST SCREEN$ SCREEN$ [T]CODE ▚SCREEN$ FN xLN Q▝*USR SCREEN$ ▝POINT  CAT qI DATA  ▖FN  COPY  RETURN © COPY  LPRINT ?A IF zB▝q{© RETURN r ▗© COPY  RANDOMIZE  CAT ZD▘ LPRINT ▝ RETURN uszdf▝ RETURN AR▝p THEN *▗▞1 LPRINT  RETURN ▝ LINE @ LPRINT ▝S" OUT ▝yLN *BIN <=STR$ UEXP >=" FLASH "STR$  COPY  LIST "!y RANDOMIZE sy▘~ CAT s q<>[D▝< LPRINT  RETURN < STEP ;djAq OUT {▗POINT ▘SCREEN$ ▝s▝ LINE C= LPRINT 2 OUT ▝zLN +BIN STR$ SCREEN$ R▘r▚ DATA |>© COPY  BORDER  COPY  DRAW *©© RETURN t▗a COPY  CAT t ▗ COPY  COPY  CLEAR ||D<F▝ LPRINT 3 LPRINT y4|dA LLIST Bq OUT |▗i▝3 LPRINT  OUT |W/[U]▝ATN B OUT {LN <BIN ▝ LPRINT  ▘P@>="|▝GB▞*q}G COPY  AND  CAT u ▝FN }}Dd %FzT}d$ COPY SxV}▗ RETURN ▝*2PEEK t"q▝ LPRINT ▝ATTR CODE  BORDER ▝[Q]|LN a▝ FOR ▝[Q]q- DATA ]▝C▞*▝u!~ CLEAR  CAT  COPY  NEW  CAT v ▝q>=NDCHR$ 5 LPRINT ▝8 TO f^Tun▗U LPRINT  RETURN u▚N[U]% COPY R}LN .BIN ▝USR    FOR ▝AsBA>▝N GO SUB "v!w[P]v LPRINT © RETURN w ▝ CLEAR  LPRINT ©©D/F[T]6 LPRINT ▝▘'ORve_▗ COPY  LLIST 2tw?[U]= COPY "<>sIN a▘ LIST )(▝[Q]tB/ DATA ▝ SAVE ">▝?O GO SUB "E!T[M]^P b▝@p 7SQR >▝ RUN  AND  COPY ▝STR$ bD▘E FLASH T▘ COPY IN H!N▝ RESTORE caG BRIGHT UO(f CLEAR  COPY  RANDOMIZE &[S]w[S]▘ BRIGHT  [N]▘? CLEAR [Q] DATA uCHR$ p ▘[P] CLEAR  f RESTORE p p@ COPY  COPY  CAT  CLEAR  DRAW ( STEP ▝ PRINT pSTR$  RETURN ▝ POKE C CLEAR 8ltQSQR ^▝©Ib▝[Q]UA9▝^▝0[K]'▟bIZF FLASH ▝{q▘ COPY  PAUSE ▘q BRIGHT ▝C}QNOT x[S]▝1[N]▝ LOAD 1[T]▝[Q]vCHR$ p qv STOP ▘;▝[P]q COPY  COPY  STOP p`1▝&[Y DIM ▝ SAVE "q[Q]^]▝TZ▝ OR !q)[E]>0[K])▟bq2▘S COPY _B▝ RANDOMIZE ▘r"_▝_f▗© CLEAR  COPY  CLS qUSR rR▝IN Qrr 2" OR ▝ DRAW r  RETURN ▝# INVERSE ▘ CAT  CLEAR 2▝▝ OR r`R;Z DIM ▝ LET vSSQR ]▝FN [▝ LINE rb▗SCREEN$ SCREEN$  CAT cBrB▝[T]qar*ABS ▝1[Q]aq LPRINT r10frr PI▘ OUT  CLEAR CHR$ -r1b3▝▝ LINE r`/ NEW =;[ DIM ▝ STOP "sUSR }>ABS SPEEK cGA/qdp@+SGN ▝[L]?D▝ CLEAR c LPRINT d_%}▝ NEXT s LPRINT tr▘ COPY  OUT tt T Q▝ RANDOMIZE t 2▝2`▝ LOAD 4_$t`INKEY$[r LLIST pUSR J}SCREEN$ FN a▝FN q=0[K]D"q@C LPRINT ▝PIq1[Q]qras LPRINT tqr t BCHR$ #STR$ t B' INVERSE Q▝*w LLIST A,pIN rM[L]▗UP{d OUT ▝ LPRINT } DRAW $bT"r@E LPRINT ▝GB&▝ DRAW rV_U LPRINT 6Fu LPRINT v4$>=u LPRINT v qrr6`▝ LOAD 4_d OVER .#l^[L]*SCREEN$ [R]2[K]l▝cq2▝FN !F LPRINT ▝ STOP k© LPRINT ▝CODE F LPRINT 1rT&LN f LPRINT u LPRINT v6 LPRINT 1v7 ▝0@F`v -/@A STOP V3USR V OVER :© LIST  LPRINT ▝TX'e LPRINT ? INPUT ▝}▘TI BORDER ▞▝@|aDaTg]y[R]_ DIM Vb▗© COPY <=[Q]}[Q]? FOR w▝ CIRCLE ▘`<= LPRINT {IN p!/ PAUSE p@/H CAT yvg© OVER >=<[J]▘ LPRINT Z▙© REM  LPRINT q OUT ▝FN |b1~ INVERSE F+}adaAJ▞▝[Q]©`W[S]IN 9<=STR$ ©[Q]? FOR w▝ ▝`+[N]}IN o BORDER KU▘p( RANDOMIZE ▝©PEEK u RESTORE © PAUSE p LPRINT  THEN _ GO TO [ COPY  COPY  LLIST !~b!IN ~▝@) ▝ LIST /i©aRa49@▝USR +}[R]G[S]USR  LPRINT iUSR |©b!▝R LLIST  DEF FN B"/ SAVE ▝?©PEEK u RESTORE m4=▚ FORMAT ▝|▘ SAVE qq^M GO SUB ▝▘b©b*[R]~▝[Q]Xjik@aA[P]<`FN ©[R]3[S] OVER ATN /▖©©p OUT ▝  LPRINT /[N]}[O]s DATA <>▝©~ COPY © CONTINUE 1 STOP r LPRINT  TO  SAVE s_ GO TO ▝@|k!▝ RETURN jA©b"IN 8|2~@0A[P]$!Dr?X▘▝" LPRINT  LLIST ©USR p OUT ▝# LPRINT "'©[O]xBIN >=s LPRINT >=▝_ NEXT  CONTINUE  OPEN #[Q]▜tt~SCREEN$ [R]k-Atc2IN ▝*v,!?[T]©@DIN SCREEN$ SCREEN$ S COPY ▞t[S]U▘CC LPRINT  LLIST ©USR y[T]4 LPRINT SQR ~ OUT © NEW r OUT /g FORMAT o NEXT t LPRINT  OPEN #u_ GO TO ▝ [O]_ BORDER ▝ LPRINT /Auc2IN | 5STR$ ~▝0APEEK ▝@-+4u[S]Vb▝b}v~v[T]E LPRINT  COPY v[N]© BORDER ©4 COPY vABS © CONTINUE ▘ LPRINT `v MOVE vu~ NEXT _▝#STR$ ▝w -A▝*YB>©▝uIN *SCREEN$ [Q]"▝ DRAW i^p?Ub▘RIN u^uB&u}© BORDER F5 COPY wABS >=▝<@v LPRINT  OPEN #wiUSR STR$  STEP STR$ 7Pp p&p `@▝<>@@p`▘p p``STR$ <>p@p <>▝p`p@p OR ▝p p`<>![Q]BIN [O]BIN <>0 ▝0p  1'  ▝p ` Pp p`` LLIST p ` MOVE p@ OPEN #p` OPEN #p OPEN #p[Q] OPEN #pUSR  OPEN #AT A@ ERASE p  OPEN # @r` DEF FN r CAT p  OPEN #jrUSR  OPEN #R LPRINT  FOR +▞  WATCHA USR ![Q] MIGHTY SLAVIANS FROM -PRESTIGE-CHR$  BACK IN YA/[L]ND WIZ OUR NEW AMAZIN' DEMOBIN  INKEY$KALLED <PSG-WINS> OR <HAPPY NATION II><= ▗MORE_▗FORM0!▛NEXT PAGES USR .0Y FOR + STEP  ▟KREDITS LIST: DEF FN  ▘MA LPRINT ▟ORGANAZER + T▝▚AUTHORCHR$ .KANO/MKHG/ BEEP [O]IDEAS/KODE/NOIZE TRAKS/0.5 GFX 0▜RST7/KB. /▚GRAFIXh▘KE0Q LINE .▘STP▘DT/▟FUEL SUPPLIED ERASE .▖SNB/LOSW▝D DEF FN RIBUTp, FORMAT .Q CAT Qt▝A PLOT  ▝A ERASE TER1[B]▘AL[R]▗EETZq<>OOL;ACS ▝S CIRCLE  R4, HOODLUM,ODIGY▟ARADOX, LOONS FORMAT "0! ERASE  VIRTURNDDREAMS/FAIRLEXP ▝,[U]▗MPLEZSANITkSIN ▚SPACEB▚▘S, INK D ELK▞BOMB, AND STOP ▖EDA, ETCZ MERGE _/]^▝^p ▘__▝/6▝/> ▘^/ O0/▝^ `-▝^@?▘ /<?▝)0E▘^_Lp▘_^a h@t▝/[S]`▝ <=-[D]▝/p*95//P6K@' TO  A G[U]▗ 2 B▗KING THEN  <>*▛  LAMERZ MU▘DIE TO *c LINE ▗2DAY DEF FN ▗SKOWP5snS LIST ▗SOFT LOAD scFU▟' GHSUK+FFC! READ  CAT .▘HE6SEX_▘TN[S]▖S-T-E-P- CAT .SPEKTROSHI CAT ▙EATORSOLDWOMAN CAT .TOILE▝P7▗OTIK CLEAR ▝'USR USR %&▝UrINT  DEF FN  pY BBS FORMAT *[C]WORK TIME - UNKNOW3[A]p.<>*p.P.X{ NEW [P]<>*REL[I]E DATp/RND▗MEGA[R]p▙p.p.P.▝G LIST ▗S/SYpSGN p/p/LN UBIN ▝C PAUSE ACS ▝F LLIST [R]▚X/NETSuiIRUSHQR [B] +007(095)1686772#[K]Q%i;UKR.▗KHARO0.572)688219SIN XIM [C]BEL/n▝K* /▝1.▗SECR LINE ▗  IG▗ DOC%[C]▝O.KISHEBIN 0422)568355SCREEN$   INPUT  BRIGHT ▝L GO SUB +▗Y OTyS REG57▚HEADQU!▝!v CLOSE #wB▝C▘FIfA[T]f▝[I]▜CTRUM-CMMASGt8%RND[C]-SENSIBLE LTD.ITALINKEY$▗ERCA +@.NNOF▘DDSTR$ 2 H CONTINUE ▝BASN ▟▖ ADVENTUhP.;@Y▗GOLF. OR ▘ FUSR ▝AW[P] /`▗SOCCHD+ CLOSE #▘IG  OPEN #▚CRUNCH AND ▘DE(&]▝+P INK &▝Eq%m NEW  U%c CIRCLE _`T@-[D]`I[K]5▟0Q%]p-E[K]▝] STEP  READ RND z POINT %@:u[K] INVERSE 5▜p&& ^`▗EVERr"[H]  COPY  NEXT  STEP R;;STR$ ![H] FOR !fs#r!{0▝▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~jABS  NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w G▜# RANDOMIZE VAL$  NEW ?F#INT  CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>NOT  LET <>▟>=IN ?800 !!! THEN  ' STEP 2X@▝@▛ RETURN  COPY <>▝ COPY  RETURN [R]▝b STEP H▗ SAVE  RETURN  k0'▝▗▗qSTR$  RETURN  SAVE  INK ▘ BEEP NOT ▙ FORMAT q▝<STR$ !yyIN 1▝bQ%yY▝▗USR ▞1 LET 3▞▝▘STR$ ▘▚VAL$ Yyiyj▝>Zy SAVE Rz▝AT VAL I BORDER 2a SAVE @jPW>=USR Q SAVE POINT ~`/▘STR$ STR$ K2PEEK 3"$IN `X© LIST USR ▜[M]0 2 PLOT  ▚USR  LIST ©+";H;@▝[A]▛© COPY STR$  CONTINUE USR  COPY ©3Z INK R▝NOT 7▝i@;IN #X DRAW  COPY 0m3▜▗y LLIST kC)0ABS  VERIFY USR [}{`@NOT ( BORDER  LPRINT yUSR  FLASH ▝▗▝▝STR$ ▟ABS ▝|IN @z/ FLASH LUSR ▘STR$ NOT USR <= CIRCLE edLN }A<= COPY <@@!▝NOT  BORDER ~%v`@ ERASE p FORMAT ©^cUSR  LPRINT  LLIST  LLIST DhL{IN  LINE zZ▘ m}▙zUSR ▝ FORMAT NOT %o8©"▝~e- OUT 5 BORDER <[A]9z}iu[A]|▗|~x ▝USR @IN CODE  PAPER | CIRCLE  COPY  POKE ▗ RETURN  LPRINT  LPRINT [O]NOT CHR$ 8 VERIFY ▖USR  NEW  PLOT   RETURN  INPUT  NEW G PRINT  DRAW  DRAW  NEW  NEW  OR x po NEW  NEW @o▝ RETURN H FLASH ▜ AND TAB  AND  VERIFY  RETURN  INPUT <>▝ DRAW Q▝ DRAW <=▝ RETURN CHR$  DIM ` LET [O] NEW  NEW  LPRINT [H]e!NOT  LPRINT `USR Q1)@p CONTINUE BIN  PAUSE IN 8pA▝USR < CLOSE #QWQ@[Q]O POKE `` NEW a/x ▘ DRAW  SAVE ) STEP z  THEN ([Q]zHz@ MOVE *O▘ RETURN  LPRINT y@STR$ xIN  THEN *xUSR  COPY STR$ q LINE ▝ OVER  LPRINT  RETURN  REM  DATA  IF {@{@ ERASE 8HyUSR yUSR <>+ CAT xFN  READ `z CONTINUE {o MOVE < |H{ LOAD  INK SCREEN$ {>=|CODE  MOVE :USR |>=tCODE  FORMAT {xy LPRINT |CODE <=$ CAT ▚▘ AND  INPUT  RETURN  VERIFY  AND }@}@ TO ,|@}'▟<@{ CONTINUE L LPRINT  INVERSE }[H]NOT ~▙[C]- CAT USR ▘~@~@ LINE ~` STEP |▙[C]~ DEF FN }/>=~x@}o<=}LN [P]CODE  COPY  COPY  COPY NOT 4▝STR$ = LET . INK  INVERSE /9/▝I} MERGE . LLIST |V▞FN D[R]X/[Q]x@ VERIFY /[A]@▝ LET }Q~I AND P@ OR ©y VERIFY `LEN my©a▖USR /[B]ny|[R] AND $FN ?1Sy| LLIST  AND a@6▞SEXP © AND Q▗ NEW  GO TO  SAVE  GO TO x PAPER yUSR NOT XUSR ▝~ LLIST BIN !7LEN y OPEN #jz FLASH x@NOT 3▝ DRAW © LLIST ▞xUSR AH©<> THEN MUSR z LIST  OPEN #/[R]><>LEN ©9{&[H]7A&©Q FLASH 30#[Q].Q▝i OR  OUT ▚CHR$ O<>A/INKEY$©I DEF FN (h(p(xY©I OR ---[A]o RANDOMIZE ©INOT */I0gy© LLIST m[B]USR X FORMAT  INVERSE -FN -VAL h INVERSE .h.p▚-- h* CAT  OVER G RESTORE IN NGO▝V ▝G▝F(@ -@) .!0` .( 8@d fx▝ ▛[M]▝O `(SCREEN$  COPY G COPY GPr LOAD STR$ VAL ><>2 COPY  COPY CODE  OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN >2k/ STEP !y PAUSE ~ RETURN  COPY  LINE % NEXT  BEEP # PLOT  ^ REM ▜CR/▘& ) DIM ▖WITH RAM> DEF FN ▜CORR PRINT "▝B.▘AX▚L▗RA C<=[H]21.02.96P.S.ISTR$ N'T~(8:▖BATn <SS>,IF YOU[T]▘ITD[G] COPY !H~ACS w#xLEN   PLOT  !~u RESTORE CODE  CLOSE #CODE  FLASH  RETURN / NEW ( SAVE >© FLASH  RETURN  NEW USR >NOT 2vAT ![P]
  44578<><>` 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