Scumball: ScUmBaLL.B

Is a part of release: Scumball
File size: 29440
md5: 04d45765dad7653c7610c7dc67f11293
  1 RANDOMIZE USR VAL "23884": REM O1`! LET <>"CHR$ /!FN a GO SUB [ POKE / STEP = STEP FN a!@[M] GO SUB [ POKE / STEP = STEP @[M]!` GO SUB [ POKE /] STEP =NOT `ScUmBaLL--------miniintrobyice'difromtriumphofchelly'2000year!;) O COPY  COPY  COPY  COPY  REM (
  17193RIUMPH'2000SCREEN$ 2000!2000!_ NEXT  GO SUB sRNDb|`! STEP a OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ![I]d THEN e STOP <> GO SUB LN  FOR  RANDOMIZE FN a INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 CLS NOT FN aHR$ INPUT s8 CONTINUE  GO TO  CLS  STEP rc PAUSE fIN COS a<>>ASN [J] FLASH 8 MERGE m MERGE ATN ENOT  LINE CODE ©Y MERGE G▖v NEXT  GO SUB snc1[oe` COPY  NEW  OPEN # RETURN  RESTORE  COPY ©1 FORMAT  SAVE  RESTORE _ CLS <>CODE x!@|[T] COPY u GO SUB VAL [O] POKE X▘<6Ef COPY <>!Jd7EXP  INK j2f RUN -EXP  INK SCREEN$ ( LINE f RUN #ABS  INK  REM e[P][L]*s CIRCLE s CIRCLE s CIRCLE s CIRCLE  RANDOMIZE ©PEEK R MERGE  OR  GO SUB [Q] RESTORE  CLEAR STR$  MOVE z? LET  { AND _8z VERIFY  SAVE  DATA W NEW >=v=  DRAW '9 STEP INT  FOR  VERIFY  GO SUB [E]ASN VAL$ [J]ATTR u[O][T]]TAB FN  FOR jTAB ZWSIN  OUT x FORMAT ATN  DRAW  STEP  FORMAT SGN j INVERSE  LINE STR$  AND ?.<>a▚[P] NEXT  CAT 1CODE  REM y[O]? DRAW USR  LIST  LPRINT Y©VAL  CONTINUE [N]0~ RANDOMIZE 8 LIST `0o{USR NOT *Oi8 LPRINT  CLS USR  SAVE NJ RETURN  COPY 0{[Q] COPY  RETURN © FOR [H]CHR$ USR /4 RUN ?sSTR$ [A]▝ COPY [I][I] REM  BRIGHT  COPY ABS SGN  DRAW ▟1 BRIGHT  FORMAT  CLOSE # VERIFY FN 8> OVER CPOINT STR$ SGN OTAB  LPRINT  COPY  RETURN PEEK  FLASH  CAT STR$  LET =SGN  DRAW (>STR$ C COPY  IF [Q]@`8L[O]x;LN 4&©> AND SIN / POKE ,>vjn NEW  DEF FN  DIM jM CLEAR 9eT?c[I][E]?_x13 TO &USR f PLOT  FN >|pZ STEP [K]XIN  DEF FN h DIM  GO TO [J]_ LET  SAVE { CIRCLE ?[I] GO SUB  READ &? COPY  RETURN [P]K [Q]▝3[A]!VAL © LOAD  LPRINT USR  © SAVE 30# OPEN # BORDER @  LPRINT INTROBANCFN a$ NEXT !LEN TAB b GO SUB s[H][M] COPY IN  GO SUB LN  FOR #RND~ 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!X[Q] GO SUB VAL  CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN   GO TO vvv INK  LLIST X GO SUB VAL  INK =  MERGE &[Q]w]T COPY  GO SUB VAL  STEP *[N] INK ![Q] RESTORE ABS G[S]SQR  INK 8SQR  INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL  INK  NOT !X' INK <>!RND@J~# IF Q{ AND  _0 LIST z AND W RETURN X8 CONTINUE { NEW   LPRINT <>▛▚C!▝@ 0▝NOT pPppp ( MOVE ▘@ f▘CHR$ ▝Pf▗ CLOSE #▚JJfRRd`[B]9▙<=c1?©© COPY STR$  RETURN  COPY ©©?0/STR$  COPY `jp VERIFY 0 PAPER ▜ QQ▛Pppp ( VERIFY [K]m<=NOT ▝▝USR USR  LPRINT  LIST  SAVE  DRAW ~>▗T▗ COPY  RANDOMIZE  RANDOMIZE  COPY USR  SAVE © RANDOMIZE  SAVE  CLS  RANDOMIZE © BORDER  NEXT y<[O] CAT @AT 1@ACS [A]@USR q[A]q[A][O]▜PH/ LLIST Pppp (hj▘p TO  TO 6wCHR$ cw6k9NOT "8h▗ BORDER  RUN  RUN  BORDER USR ▜ READ  RUN  RUN  RUN  READ USR ▗ RANDOMIZE  DRAW ~?Al CAT  BORDER s!v▚A1BOrX2Z▜ RETURN [A]Pppp (▖`[A] DATA <>rJ STEP ▜nfb`dldSTR$ `COS USR [L]▘COS [T]▝[L]" LINE skksb!▖USR USR  DRAW USR USR  COPY  COPY STR$  CAT ▘ RANDOMIZE  DRAW 3▘?;>[O] DEF FN CHR$  LIST  SAVE  SAVE NOT  DRAW ▚ SAVE  SAVE  LIST USR s p>=▜ RETURN !>"![R]Pppp (2DFN M)R2Sf[E]▝"` FLASH  FLASH [J] OR ▟p0!b"4t#ZZ[K]L[E]▝IN CHR$ ▜>STR$ PEEK ▝ COPY PEEK ▘[P] CAT s<= RETURN C# ▘s CONTINUE 3 CONTINUE ▝©NOT Pppp #USR ▜ W[U]D▞)CHR$ s[K]#▚USR USR ``0 LIST SIN ▘wUSR fUSR 3▙ STEP  STEP iaa11 LET USR $J▝ NEW USR  VERIFY . CLS NOT NOT ▘ySTR$ { LET  RESTORE  PAUSE ▘CAT ▚Ogsy|~CHR$ ▝CUSR # ▘ BORDER s3 CONTINUE P>=▞ SAVE  RANDOMIZE ▞▗Pppp (LN [F]"#@@ OPEN #▘s#USR %▛(hOPP[A]ACS ACS [G] OR ▚%▗[J]TAN VAL TAN  RESTORE ▜ COPY  LPRINT  LPRINT  RETURN  LPRINT  LPRINT @▗ BORDER  LPRINT  LOAD  BORDER _▚USCREEN$ USCREEN$ U*DlCHR$  COPY [A]PUSR  p>=VAL ▖ CONTINUE  LPRINT Pppp ([A]▝@x▘USR B} ERASE ▖▟ STEP  STEP  TO USR l8l INPUT CHR$  AND  INPUT l9% LINE ▝ GO TO USR  STEP ▝ TO  CLOSE #▝ OUT CHR$ [A] OUT [P] OUT  OUT  OUT [P]?[A]H[U]RPOINT C▜*[E] LINE  DATA  PAUSE  SAVE  DRAW 2H3▝# 0 ERASE p>=PICHR$ FN ▝PIPppp (fB▝I6ZveV/[I][L] INK  CIRCLE  CIRCLE [J][J] CIRCLE  CIRCLE  INK  FLASH <=CHR$ bbSIN SIN [K][K] AND &▝ DEF FN USR TAB ▝ STEP $8▜ RETURN |><=▘ COPY ▝ RETURN 6SCREEN$  FORMAT  RETURN ▘ LPRINT q[A]p>=VAL NOT  READ ▝ SAVE Pppp ( ERASE FSTR$ G,▝1[K] lBIN USR  LPRINT x CIRCLE 1SQR  VERIFY ▜© [A]H$Wr▜▚H$R)T*RT▝ LPRINT #  PAPER ▝~[O]▝ NEW [O]VAL  *0▘<8▗97 FORMAT ▝w<= LINE w OVER  LINE W RETURN  VERIFY ▜@ =USR ?hGb7>=PE▝73 T[L]▖ COPY NOT  READ -p ERASE 0 PAPER ▘x< LPRINT ▜r8▙ AND b0VAL ▝B([B]H STEP pH[K]B▜ RETURN PEEK IN  THEN LEN ▝IN BIN PEEK ▜_ COPY  NEW  REM  NEW  INPUT  INPUT <= COPY RpUSR r@<> RETURN x3 P9▝BIN © OUT  OUT  BEEP  FLASH U[L]U[L] MERGE  FLASH  INVERSE  COPY  OUT ▝ OUT  WCODE  COPY  COPY ▝ SAVE  LIST  LLIST NOT ▜[T]▝ COPY  MERGE  COPY  COPY  LIST  TO  TO ABS SGN ABS  TO  COPY  OUT  PRINT  SAVE 0 OR ▝©(O▘ BORDER 2<% LOAD  DEF FN  RETURN  PLOT  RND`USR Q▖▗Q)Q)Pppp$p.p8pB▘Q)'@0USR USR USR  COPY  COPY  DRAW  LIST  LPRINT USR C▘~▗ VERIFY V INPUT n_ATTR U LIST  BIN ([F][S]2<[C]<> DATA  OPEN #zp COPY  ▚ NEXT T*T*▜SCREEN$ P[Q]@@EXP USR 0[B]XZC331USR 66ll``11 LINE :x:w▝U P* OUT ▝<=STR$ G▘<= DRAW EfD▛ DRAW CHR$  PRINT  REM  RUN  COPY bCODE g LOAD  READ S▗IN USCREEN$  RANDOMIZE ▝ STOP n▘?S▙_?~ DRAW  SAVE  LIST  LPRINT BIN ▘ STEP ▜▝eSTR$ UV&ZXT9@CHR$ `[A]llF&INKEY$INKEY$ AND  TO  CLOSE #>=▖▗DH0xSTR$ >=[A]p SAVE  TO ▗TAN TAN VAL XCHR$  AND  AND  NEW |8 IF ▚H00p LPRINT USR `▜▝NOT  NEW ~©B▗=> OR ©IN  OUT  BORDER  SAVE  CLEAR "▛FN UPEEK  COPY  COPY #ogoc3▚SQR U8L[M]USR [O]▘/LN s OPEN # RETURN s RESTORE [G] TO <~ BORDER NOT  FLASH  FOR j,8::4tUSR hUSR  FORMAT ▘`[A]USR  LIST ▚pxx;:<USR ▝ READ [D]044,,T▝C?1,STR$ ▘? IF TAB ▞ LLIST  GO TO  PLOT  w[H]CATTR  MERGE  RANDOMIZE USR  CLEAR ( TO ▗[R]T REM ▙Q[T] RUN  RUN USR  LOAD ▜ OUT  OUT  OVER USR  REM  PRINT  IF  VERIFY ▗ RETURN ©?tAFN  STEP  RETURN </▘J▙USR tACS  CAT [G] DIM  BEEP SQR  COPY  CAT Ggi;X 8USR 0▜ BORDER  IF  IF 8 OR 8 OR }© FLASH ▜>[I];[I] THEN [E].RND▝USR [P]?[P]_CODE WATTR  CLOSE # REM  PRINT AT [P] CAT <= LPRINT  RESTORE  STOP  RESTORE  NEW  BORDER  BORDER  NEXT  NEXT ss NEXT  LIST  LET  PAUSE  NEXT  READ  BORDER  CONTINUE  OR  LINE  STEP [P][P]??>]TAB /CODE WCODE O^[N] INVERSE  INVERSE W▝ NEXT 5 CLS |AT $^~▝USR IN ▘ OVER TAB ▘@VAL ▘JUSR SCREEN$ ▝D1▛ BEEP VASN 088//,.USR USR ▛1w IF  SAVE |~LN USR /[K][I]0[Q] LPRINT  FORMAT ! LLIST CHR$ `{{ CLS  CLS  LLIST  STOP  PAUSE  LIST N[E]}>^__ INPUT  INPUT //EXP 3wcheSCREEN$ [O] INVERSE  CLS  DRAW D▜ COPY SFN U IF  CLEAR 5 ▗TSCREEN$ W( THEN [D] DRAW NOT  OUT _[O]m GO SUB  FOR WPITSQR  DRAW USR ? COPY  LPRINT 8 DATA ▞ READ 7{{SQR ABS ]< CLS K PLOT  1+ PLOT  #STR$ ▝9+▝?KF% REM JNJJ▘B"b CLOSE # PRINT 4RND[U]b""M POKE ▖y LLIST [K][G]i PLOT   CAT Y9f BRIGHT EXP EXP ssxSGN  OVER  INPUT  INPUT USR  RUN [K] PLOT   PLOT   INPUT laIN O[R] CLOSE # REM }} RETURN ?<=y[O] BORDER  CLS  CLEAR y© RETURN ▝B?[I]PSCREEN$ w COPY  NEXT  INK  INK EXP SIN LEN  NEW f CAT  STEP  STEP  READ [D]y SAVE  LPRINT  OUT ?▘x^▜ LPRINT  COPY  LPRINT  LOAD  COPY  READ PEEK PEEK  OVER  OVER  INVERSE  STEP ▖VUSR ▝USR K PLOT  ▗ SAVE  IF  LIST  LPRINT  LINE /▝ LIST K5▝ IF  INPUT =M[O]PEEK ©?_IN ©IN © ▜_?[P]CODE W"B▝" OVER '![D]CODE  BEEP  DIM  POKE  REM  GO TO  BRIGHT ABS yr RESTORE  STOP MJe298|STR$ ~ OPEN #▚? COPY  RETURN  SAVE q▜+ATN ▜[O] DEF FN  STEP STR$ [L]+SUATN ▗?W LOAD NOT  COPY c8 DRAW  RANDOMIZE  RANDOMIZE  NEXT  NEXT '<= NEXT [A][C]? AND  PAUSE  SAVE  CLEAR  CLEAR > DEF FN  DATA t▝ LLIST  LET ▞pRND▝~> STOP ▝▘~ CLEAR SIN [C]rs RUN  RUN  CLS  DRAW  RETURN ~|<VAL ▘ DEF FN  RETURN  RETURN |1 [F][F][K]USCREEN$  STEP  PLOT   CLS  POKE  POKE  DIM  LOAD  OVER  CIRCLE  MOVE  FOR  INPUT  POKE  CLS [D]▚|STR$  CLEAR USR  IF |;▚?UjIN ©LEN  RETURN  GO SUB ]SCREEN$ [: OR vuvm*-*U[K]T INK  BORDER  GO TO  FLASH ATN o OUT  OUT IN PEEK SGN yzur POKE  REM  RESTORE  DIM  RESTORE  DIM drTAN SIN EXP INT  INVERSE  LOAD T[C][I][A][T]ggPI[H][M] LPRINT © BORDER x©IN  CAT  LET  LINE ▝ LIST FUSR /PIH@▜ OUT  OUT / LOAD  RETURN ▝STR$ STR$  NEXT ▘ BORDER <=,TAN ▝[J])FN ▝CODE h[G]FN G[P]?~yy0 0>=▙3t STEP [J]3c AND  NEW  LLIST  IF ▗ LIST VAL O_[H]?>yyp00LN [I]XAT  CLOSE # TO SCREEN$ V PLOT   IF  NEXT  CAT TAN j MERGE [T]PI@T[T] CIRCLE  COPY  RETURN  LET  LINE [G],]SGN 9zy PAUSE  PRINT  PAUSE  PRINT ▟ PAUSE  PRINT zyINT =[M]M▚ STOP  DRAW  LLIST c STEP  BORDER 'NOT  SAVE [R]' PRINT ▜? LET  DRAW  DRAW  RETURN ▗9▚▜ CAT  CAT  BORDER  BORDER ▜LN ▗ MOVE  GO SUB  PRINT USR  RANDOMIZE  DRAW O=▘USR 0PEEK ▙USR xAT WSCREEN$  LIST  RETURN ~[M]x▛[C]▘}PI'O__[I]VAL 0 CIRCLE [M]!▛[C]pwSQR Y((//^PEEK PEEK  LPRINT pCHR$ ▗SCREEN$ T[R]6[F]▙&VVAL$ MAT M[M]][K]YINT 9INT 9▙INT 9[K]Y[M]]AT MAT N6USR  RETURN ((▜ READ ▝>s NEXT vx/[S]H OR  COPY  READ %b9USR [A]USR  LIST  CONTINUE  CONTINUE  BRIGHT  BRIGHT  TO TAN TAN LN LN x||0▗ TO  DRAW  DRAW TAB [F]▗▗HKJ TO I▚IHH▗TAN "q▖0▚ DRAW xx00y;▝▜% OR ▗ DRAW  CAT ▜>!fnASN ▘~([G]▝q▘▘SCREEN$ 8ATTR OCODE OCODE PNVAL$ NVAL$ Np|USR ?|pUSR p<=▜| RETURN  INPUT  INPUT  VERIFY  VERIFY USR INT USR |▗LN LN ▘ AND  RETURN PEEK [M]USR  READ ©©PEEK > 6▞z MERGE SCREEN$ T? COPY Q[A]▜x[G]▛IPOINT E61n BORDER NOT JSTR$ .VAL$ /XZ..USR ^▜ FORMAT  RETURN  CLEAR  IF  RESTORE  RESTORE [Q]| RETURN | RETURN _CODE QSCREEN$ U LLIST ) CLS  NEXT USR  CLS STR$  RUN [J]▘ FORMAT ▜6BIN ▘©>VAL  THEN ▘ LIST [H][E]▖ RETURN  LIST  NEXT  LPRINT ?8I%) NEW  OPEN #▜ CLEAR  IF  PRINT  IF USR [P]{ RETURN  STEP ▗[O]>=yOm▘| BEEP g▝-[D]zy30N<=1LN  DEF FN g1[M] LLIST UATTR ATTR ▗ CAT  PLOT   SAVE  CLEAR -ATN  POKE >>|}z PRINT  FOR  BEEP CODE 1PEEK IN VAL$ [I][P] LOAD WATTR UTAB VSCREEN$ V+U+ STOP  LET  LIST  LET  STOP  RESTORE  REM STR$  CLOSE # PAPER  BRIGHT ACS ▚ CAT PIRND▚CODE USR  CAT ▘ BORDER gUSR PI▘▜O BRIGHT p▖ CLEAR  CLS  BORDER  DRAW  STOP ATTR &▜?▜ READ  NEXT q9[R]▗ RETURN  CLEAR  RETURN ▚ CLEAR  IF  DRAW  PRINT  REM CI RETURN <>USR  GO TO  BRIGHT USR  NEW [J]▝BCHR$ b[U]eSCREEN$ U THEN [H]/[H]CODE W THEN  BORDER k'K BEEP CODE _CODE O▛ COPY  IF  PRINT SCREEN$ PA[Q]XVAL$ /_IN  TO ▘ LET [CODE  STEP ▜ RETURN  SAVE uWVAL$ } RESTORE KIN _/[H] THEN  RESTORE  DIM  POKE #COS [C]EXP SGN  INVERSE  BRIGHT  INVERSE  BRIGHT  INVERSE  PAPER EXP SIN ASN ru REM  RESTORE  LINE [F]+@C+[J] DRAW  DRAW  RANDOMIZE  LLIST ▝(P[Q]D*TFN TFN T▖SCREEN$ TSCREEN$ TPOINT UPOINT P/I,USR ▘8|r@R@▘ BRIGHT  STOP n▙▜ OPEN # DIM  POKE  CONTINUE  CLOSE # REM  POKE  REM  PRINT  REM  MERGE ▝ PRINT SCREEN$  CLOSE #SCREEN$ TFN [B]#C▜`0 AND NOT  LLIST STR$  LIST USR  LPRINT ▝USR  LPRINT XPEEK _?©PEEK ~ CLEAR  CLEAR = AND  NEXT pJAT < OPEN #[F] NEXT PIPI OPEN # INK  GO TO  PLOT  +QABS >PEEK _[P]_[O]^AT I▞VTAN q PAUSE  PRINT  NEXT  PRINT  NEXT  BORDER  LOAD ▝IN FN IN ▝INT [J] RETURN  RETURN  CLEAR  CLEAR  DRAW  CLEAR s'.▖▝▜[B] DRAW  ERASE G@▝}5 RETURN ATTR ▝ LIST  BEEP ▝v▝▜USR  LPRINT p8EXP p BEEP ▖ NEW SCREEN$  PRINT [▛< CLS  POKE  NEXT  COPY  LPRINT U/IN  NEXT ▚ooO CAT [O]<POINT UATTR Y DEF FN -l▝ SAVE EXP ▖LEN O?~ LET  CAT u SAVE USR [B]▞<=LN ]]ZjSQR COS y CAT "@▝©/r▝ LPRINT j▘xx RETURN NOT  CLOSE #@>=LO▘USR ©ATTR USR  LPRINT  LIST  LPRINT  DATA 0SIN COS 18[I] INK  BRIGHT PI DIM  INK  INK COS g? COPY USR SCREEN$ U TO  COPY ▞ RUN  SAVE  DRAW  STOP  CLEAR  RETURN PEEK 7.C8<=kW BEEP  BEEP VAL$ VAL$ <K" FLASH Os CONTINUE  CONTINUE [A]▗ LIST  SAVE |>} THEN ▝@L>▚[S]TSCREEN$  PRINT  IF  LINE  COPY ▗USR 5SCREEN$ _%+[F]IN ?IN  OUT  LOAD  PAUSE  LET  RESTORE  STOP  PRINT  PAUSE  LET z9;;PP  COPY NPBSTR$ F CAT N OPEN #Fpv OPEN #FNOT Lp@PF▝CHR$ ▗DD " THEN FWVWV ▗D0!<=OFFECHR$ GCHR$ D<▘LN0d!▗OFG0 ▝C` ▜<=M▘ ▗GGB0  THEN LP  @f▘]<=K` ©0<=J▝B@`▝P_0!q`[Q]▝p p!ANOT [Q]▝[Q] AND D#<> LPRINT ▝EpF USR LL0 <>D▝   OR ▝▝DCHR$ Tp p ▘▝D !`@▘p ▘ff{`AIN ▝Lp 0^▝NOT TP BIN ▝D"  ▝CHR$ C▘B▝ AND    CONTINUE ▝p  RUN  BRIGHT USR ESGN ?▝B▝CHR$ C▘B▝ AND  !▝B CONTINUE ▝p  RUN  BRIGHT USR EB!▗OFG0 ▝C` ▜<=M▘ ▗GGB0  THEN LP  @f▘]<=K` ©▝0<=J▝B@`▝P_0!q`[Q]▝p p!ANOT [Q]▝[Q] AND DCHR$ <> LPRINT ▝Ep NEXT  GO SUB sa[!=` OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !▖SGN  RETURN  COPY b[<> GO SUB LN  FOR  RANDOMIZE ` INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 CLS NOT [I]IN HR BORDER [P]n[BBBBB<<=gATN  CLEAR >-: LPRINT 7 CLS >=!©6c DRAW (6t READ ' AND 7 FLASH U BRIGHT [Q]m3 NEW 2% MERGE ABS [J] READ USR 5USR  CLS  RESTORE ~UEXP LEN a COPY POINT  BORDER ©[N] GO SUB px[P]&% STOP  MOVE *' BORDER ZSTR$ 21V FLASH [C]CODE c[K]SQR USR /[F]▗I CONTINUE  CLOSE #ABS  CLOSE #LN 9w?©EXP ©PI OVER  INK ,e CLEAR coRNOT ( AND [I]L RETURN u POKE LN [J] PRINT P2|[K] IF YVAL$ [H]BIN 26 IF  PRINT @-7+cPEEK IN  OPEN #ATN [R]h SAVE p LET O OPEN #'%1?>4©VAL [P]RND5[P]|<▝[I] DIM  FOR +6zC OPEN #©^^3USR [Q]▖c3kI AND %,[O] FOR 3<47[L]ABS ▚+67-5▘@fUSR [Q] NEW  FORMAT ▟=[L]6?sFN  FORMAT C8 LOAD , IF  CONTINUE [D]▝ BRIGHT G&PEEK STR$ N SAVE g[J]bUSR n▖ BRIGHT #A=RNDUSR ▖,I CLOSE #ATTR  FORMAT rY DEF FN  STOP =[J]▗=>2P TO RI@ RETURN Ec FORMAT CHR$ 3R2;>=PEEK { RUN  DATA  NEW xUSR :k FORMAT ©[O]NOT ▗IN R-y NEW H▘W LIST mRNDTAB >xABS <>[J]6=ATTR //>[J]#BLACS ▟EXP T COPY  STOP d TO USR tFN 7[I]NOT  THEN SGN )[A]~3GP FOR Zf©S[J] PAPER Dg GO SUB !<>ASN Cl>SQR m[L] PAPER &?[I] ERASE 4^ DATA [I]4 CONTINUE AtTAB =[Q]E[L]wVAL$ 2*4g CONTINUE FVAL$  MERGE ;SGN SIN USR © PRINT  TO [E] COPY  NEW USR  LINE  INVERSE }>=6&GFN @x(i/E BRIGHT (PI VERIFY ,"▗FN  RANDOMIZE q@( !ABS  OR ▟ RETURN 3 LINE t'& OVER q PAPER 2%*[G]n▖!>=6COS ~ CONTINUE  SAVE ASN kTAN !4 NEW PI;?K STEP %@▗6USR U PAPER [R]@ CIRCLE RNDyX INK 'itU(/{>3)1 BRIGHT USR INT {LN NOT s AND L-m2?~?k_<[R]TAB USR 0FN ATTR 0= AND NOT :8cN▜6'EUSR USR %& NEW 0 BRIGHT 3>(3EXP [B]* MOVE > BRIGHT .[U]3yMl▗H89 COPY :[E]  NEW I<>USR  REM " LINE  PAPER [G] RETURN SQR x[S]k~ABS 9!O[y[A]▘5fIN ;INT USR SQR / COPY n[J]USR 1oaB7-f*[B]aDRND!l, TO  STEP E AND  LIST 9Jj> CONTINUE " OPEN # LIST USR [Q] PLOT  SQR ATN 5SCREEN$ VAL$  DEF FN [A][T]A4xSCREEN$ SGN _**FN y[F]@iPEEK J LOAD [D]USR [C]LN [T]iLN >=I>=# ERASE ▙xCNF DATA [R][A]d6)rp9[K]NOT //>i BORDER ▚4m[O]<=C BRIGHT USR  AND  RETURN xACS ([F]VAL U GO TO PEEK ATTR >=*>= NEW [K]/ INPUT  READ BIN ATTR P1NOT uHCODE 7▘0 GO SUB A@liSGN TABS STR$ > RESTORE  NEW @VAL  LINE h[L]i LINE vvA[I])[T] CLOSE #h[O] TO "ATN 1 LIST q RUN D>}[Q]USR [U][I]k CLOSE # ERASE n[E]x+8▙V2[E]{[D] OVER eUSR  BRIGHT <5Kc▗AnUSR  NEW [B]LN > NEXT INT 3AT X DEF FN [T]ATN v9▖@SGN  FOR }A5[F]2`UEXP  RANDOMIZE <Z COPY USR *IN -▗ SAVE  LLIST u CAT  LPRINT <=TAB ▙F[A]LN  LPRINT  LLIST ~b*INT = INPUT ;/INT  TO USR (Ts21e RANDOMIZE  OPEN #AT aTAN 2 FOR  DEF FN  IF >BIN  CIRCLE  K RETURN SIN gN=▖USR  STEP ▗ CONTINUE  IF  FOR mIN !1 PAPER W LLIST  SAVE PEEK [F]Z1PEEK IN N INPUT `=COS PEEK [H] LLIST  OPEN #USR eJQ[A] BRIGHT SCREEN$  CLOSE #d RANDOMIZE -TAN  LET & PRINT [I]EXP  OVER [J]z@ REM -▙USR LhD STEP k>" FOR [Q]-]FN " INK [J]_[H]TAN r@SIN SIN <>VAL$  OVER [J] NEW [P]Z NEXT K▗ IF !s INPUT USR  GO SUB  LINE y?8qUSR  LINE 6+ATTR  CLOSE #mFQCHR$ - NEXT  RETURN TAB  PAPER  OUT BIN  CLS  TO [K]ACS ASN  AND @L READ [B]'[E]<>= LET CHR$ } CAT HILN VAL 2y| INK PEEK  IF (';p OVER #% RANDOMIZE F GO TO 2'SGN o AND IN G FLASH ASN POINT !COS TAB [H][M]![L] INVERSE ATN )DjEXP  FLASH TAN #[P][I]SGN  INPUT (LN wNOT j<©IN / OUT 8/VAL$ 5▝▚:. THEN / RETURN +- RESTORE [J]$ RESTORE }%USR  MOVE x[I][H]xHABS [N]▞ PAUSE  LET ▖ NEW h:.^ IF - REM [J] DIM y% NEW "&@[R]USR  LLIST  DIM &? LOAD ;7P>=[C]p<>[K] INK VAL$ ▙CHR$ ACS TAN  GO TO ▜?T RESTORE  LIST ')@SGN  ERASE @O1 AND  THEN >NOT  LINE [ULN [I][K] DEF FN  LINE  CAT  DRAW ()[J]CHR$ L AND ATN CODE V MOVE ")9@W▗USR m READ /,[[K]oATTR PI FLASH [J] STEP  LINE  INVERSE @ IF gASN  REM }:INKEY$ CONTINUE oTAB &oUSR }9^USR  RESTORE  hQx5 PRINT >{ RUN ; DATA  VERIFY VAL !USR  FORMAT TAN s[R] OVER y) REM [J]© FLASH  READ e ` RETURN R▟POACS [H][G]VAL ATN 2 DATA w OPEN # IF <=c NEW [I]!=ABS wBIN )+,▟W</ABS W▖[C]SQR [P]SUSR ;ASN f MERGE +{3USR </POINT USR [IN jF▖SCREEN$  RESTORE XUSR [R] INK [E]. INPUT  LIST l<> LOAD USR -i?, PAPER SGN B-▖ OUT #&USR {xy[L]▚ NEXT jx>= LPRINT C VERIFY T LIST  OVER [C]x[E]g INVERSE  BEEP PEEK 2CODE <> INPUT  VERIFY ?5c/ LET =oSGN  PLOT  -I©W OVER  LINE  BORDER n;(ATTR  CAT ;3./ INVERSE dVAL$ SGN n<= STEP  LOAD # GO TO ^BIN  COPY  INPUT ▝ OPEN # MERGE K[A]USR  CLOSE #[I] FLASH  CLOSE #3r BRIGHT  CONTINUE .0VAL [Q]py[L]USR 43 SAVE y[H]IN  TO STR$ $i@CATN  DRAW  SAVE cK CLS  CONTINUE /l MOVE [N]@oSGN n#TAB 3SGN  MERGE [A] INVERSE SGN  SAVE STR$ SQR X`f▚MqI^ASN [M] IF  ERASE W* CONTINUE 0W RANDOMIZE @▟<> DEF FN SQR @ LLIST  GO SUB I OVER NOT xp[O]>=9xATN @ATTR STR$ =BIN ▜y▖-PEEK  THEN [H]?Sk<=/=▖EXP ;Y?2p[O]>=USR [I] POKE FN ,▚ATN  COPY 8@[Q],SGN !?^[B]F> CLS  REM u7@CODE H<w STEP  RETURN PI LIST +8 OVER EXP PI5:^ RUN @ATTR ,BIN EXP 7} REM [R]▖o FORMAT 3INT JSTR$  FLASH  POKE TAN 7: MERGE  STOP CHR$ >{) CONTINUE 4 STOP ; LET  ERASE @[L]z[Q]▘[A] INVERSE >= INVERSE  DRAW x LLIST SCREEN$ ABS . PAPER  SAVE |ASN ASN ->d RANDOMIZE %5 OUT ▞ BEEP @▖[F]Z7@ MOVE  CAT  NEW [H] DEF FN JexwuSQR  GO SUB g BEEP d PRINT CHR$ +[A]7PEEK  THEN  CLOSE #i INVERSE <=+_JSGN  MERGE #{[J]PEEK >=VAL$ SGN > READ b[S]~SGN 8TAB w39?USR LN x[G]ATN  TO , DRAW 3oF@ CLS INT <>@4DchSTR$ NOT 48IN STR$ @[A] AND  THEN [H] REM !_[J]P LOAD  REM ABS WACS CSTR$ U▖/ATN APEEK zCHR$ <:9oSTR$ >= STEP ▟USR  INPUT v=Z▖[I]NOT  PRINT ;LN vs72KNOT x BEEP - INVERSE o[J] IF ;:IN @ LET JEXP  CONTINUE  CONTINUE J▝[A]43 CAT SGN USR { CLS pCOS @@SGN  MERGE [T]7j[U]LEN USR  BRIGHT $ INPUT & GO SUB *i?[J] DRAW H INVERSE SGN PEEK D RANDOMIZE  PRINT @ CIRCLE ©USR <> THEN } CLOSE #=} OR >x RESTORE USR 3ASN ▝STR$ K RUN Ao OVER &A|LN ▟S[G] LOAD PEEK CODE [I] CLEAR ▘▝ATN 8@LN SQR K PAPER  FLASH [H]47kA LET =[L]@LN 9▝? CONTINUE .= NEW 8BoINT USR pH|| LOAD ACS ATN >= FLASH  PLOT  - GO SUB 7PEEK LN INT . COPY ;▛?SQR BIN  INK PEEK ;AUSR [PEEK 3 TO  FOR NOT ]USR  PAUSE  COPY  SAVE 7[D] NEXT STR$ INT [R]@, COPY "K CONTINUE @Dn LET USR  LET [K]'%EGtUSR [S] NEXT  INVERSE (xv^ LET  INPUT '&L OPEN #SQR BE AND  STEP  CLEAR p3 INVERSE p[B]▝N0 CAT  CONTINUE SGN [O] DEF FN USR w CIRCLE yPOINT (x  LET  LOAD C▝F AND [I][Q].USR  BEEP [ RETURN ▗7COS kh^[C][D]~K CLEAR LN  LOAD 7 DRAW  AND >=,LN  SAVE LN © CLS R~D NEW A~ READ [N]7▝ ov~[H]SQR P8 TO  OVER HQ[B] INPUT  PAPER [4h6[A]|E LOAD INKEY$▘ CONTINUE Kk'USR INKEY$ INPUT USR s[R]` PAPER PEEK  GO SUB [D]QW<>o& OUT 0]USR ; RANDOMIZE  CLEAR =FCGABS  INK USR SGN ?>_ABS x▙8[D]uATN  FLASH hBp: BORDER RND CONTINUE F DRAW N SAVE  VERIFY *NOT  AND  LLIST USR ©1 CAT  DATA KSCREEN$ H2CHR$ </ RUN TAB  DIM [Q]Hw OVER O LINE w=PEEK  STOP USR 7&ABS PEEK [A]_LEN !WZ COPY $ CONTINUE  COPY VAL  MOVE qBIN '* CLS  LOAD PIP/PEEK [H][J]6NOT  VERIFY ;}@4gH>=6PEEK  IF  FOR >= OVER .u PLOT  ny COPY @JkABS QUSR J LLIST  CLEAR  RETURN  OVER  CLEAR  FLASH w[Q]USR 77 CAT 7 FORMAT [L]HABS - OVER @ATN [A]TAN @>KmCCHR$  CLEAR Rh OVER  PAUSE  IF ▟CHR$ 4SGN BGw/PEEK _PEEK x BEEP  BORDER USR >}6COS 9$#SGN L3 BEEP MTUSR ;w CLEAR  GO SUB  STOP VAL$ ATTR CODE 1? STOP y FLASH  SAVE  STEP ?A OUT CODE ▖ CIRCLE ▟ CIRCLE VAL$ SGN USR ATN EXP SQR MIN NUL[P]USR PEEK G[[R]INKEY$QATN  GO TO 8-_[P][C]>z LIST INT  DATA  CLEAR A CLEAR VD?N DEF FN / NEW G FOR ▛Q[E] OUT [Q]4 FLASH SQR INT ▙ OVER  MOVE X LLIST [C]FN HPEEK {K RUN "@OHPW OVER STR$  OR  CIRCLE  BRIGHT  LIST (▜USR RNDPII0 OR ACS =Q[B]Z OVER POI▝;>[N][R][F] BORDER  OR USR 4'=SQR 4]ASN LN ACS [I]z& OVER [I] PLOT  CHR$ 5QP>/|USR  ERASE ▛COS  CLS JCHR$  LOAD uP[P]PI>=tLLN  THEN [R]▜ABS ABS  LPRINT  SAVE z89:RKSYPEEK  PAUSE )d1>IzRND RUN <>1k INVERSE ▖(WwLN LN x STEP [D]8 DIM [©▝.▟CODE  CONTINUE RTCe IF  OPEN #TAB  LIST (g BRIGHT @|[P]CODE V# LOAD  SAVE owA.▝/[G] LOAD TSLUw POKE L[B]}= COPY y8ABS f LIST LN $ RANDOMIZE [T].z!'[F]UTMVp©ZW_CHR$ >2STR$ ~ LIST  CONTINUE @jSQR (]g FOR <>'ABS  TO ;"ATTR VAL$ EtAT A&:IN  CONTINUE U[T]7@ LPRINT  MOVE  ULN  RUN - BEEP ▗ApATN  LOAD m SAVE ~CODE ?K LINE  RETURN [ OUT  LLIST  MOVE IN <= RUN yx INVERSE  INPUT @COS  FOR EXP USR COS [M]v BORDER ?JuFN 3X]ASN eF_z@Th<>[I]USR "~[K]3IN  REM =v OUT  VERIFY  CONTINUE ug CAT VAL ]▜5YUSR D©^[K]USR [K]USR  BRIGHT  PAPER  OR PEEK C READ  FORMAT ! FORMAT -LN  RUN  GO TO ni8▛j NEW c TO !4=qIN RNDUSR BIN PEEK  COPY aUSR  POKE  AND /`[H] GO TO  RETURN H OVER  DRAW [I]PEEK  POKE  IF  RANDOMIZE fwUSR  OUT MATN W/b_nUSR  IF -3▝ CAT  INVERSE [L]SQR  CLS ▞f INVERSE =[E]wjATN IN STR$ [D] LIST  COPY  NEW / PRINT <[P PRINT UATN /[N]l;AT PTAB  VERIFY ~!VAL$  SAVE  FORMAT <=V2(CHR$ {o PAPER ~] NEW Xc▚ INPUT e TO CHR$ { THEN EXP  DRAW  BEEP W@ACS  PAPER SCREEN$ ( LIST }-+ LOAD USR >^Y_d INPUT VAL ATN ARND%<=<= BORDER ©[[N]gy GO SUB SWC CONTINUE ^ FOR z`@▖RND LLIST ,_ INVERSE f_SGN [M] CLEAR  LOAD  INK  CLEAR INT q-RND BORDER [I] CONTINUE _fCHR$ ▝USR LN Z NEW &V. COPY  IF ▙@ CLS  NEW 9<INT { BRIGHT ,4p@ AND  LPRINT uoa NEW Ze[R]USR  BORDER  DEF FN [A]USR [I] RUN IP STOP ▘ FORMAT k OUT >=[G][B]x>o BORDER ▚ TO ]@ RANDOMIZE  PAUSE b INPUT [©fz/--;IN  FOR  FOR P OUT Kt PAUSE >=goLN  LIST  DEF FN [N]▝[G]▘▗Ah" LET USR TAN  SAVE  FLASH SQR  OR = LOAD  NEW [A]B CAT  LOAD < LPRINT FN @ATN @PEEK RND▗IN i LINE ) INVERSE  LIST ~o?;^>=2▖<%SGN 8[H]SQR (aASN tb STOP p INPUT  OVER STR$ lFo"INKEY$( SAVE }[A]<21 VERIFY SGN  LIST { NEXT @Pz8 }"fbgwg DRAW  AND USR  PRINT v INVERSE  RESTORE @ CLS [C]USR uvSQR  FORMAT {ASN p FLASH [K] PAUSE @c IF ? PAUSE gTAB %USR  INK >=+IN   RUN INT  COPY LN y>=v CAT  LOAD  NEXT =LN  NEW *4 THEN 9 CAT kTAN INKEY$ OUT  CIRCLE h NEW coVAL$ fUSR I GO SUB  LIST ^ READ @13 DRAW |SQR v CONTINUE  REM >=▖l MOVE ASN  AND wPIATTR ^ CIRCLE  LOAD %3BIN djq LOAD 5 CAT [U]3? DIM RNDPEEK { OR PEEK VAL  CLS >=ATN <▙ OUT RND IF &`@+ CONTINUE ik FOR  CLS @/z OVER -POINT ▞i NEXT SCREEN$ ▜OSTR$ 6|AlATN TAN N LIST )▖CODE PEEK ▝TAB Ux3ASN Ny{ CONTINUE jlr▟ RUN USR || OUT h`h3?EXP  GO SUB @SGN [B]4K STEP @pl NEW e ERASE  NEXT ABS  SAVE wUSR  DEF FN  DATA y>= FORMAT 9 CAT SQR 7<> FORMAT [R]STR$  RUN ATN LEN 7[I], PRINT >mns PAPER  INVERSE  MOVE  INVERSE @ATN u~  CIRCLE [K]USR  CONTINUE  CLEAR  CLEAR / LOAD 3 TO [E]P PAPER + COPY  STEP ©nIN EIo▚|[F]X@ASN { CLS ATTR XPEEK  FLASH <CATN LN o DEF FN ;INKEY$ STEP FN  LOAD  CLS wonhpt READ ATTR @CODE EXP k RUN O DRAW  TO  THEN c▜VAL =l<= STEP >?F?/ CONTINUE o STEP EAUSR PEEK INKEY$ NEW TAB ABS  PLOT  NOT COS ?ATN 8/ATN xJFCHR$ ©M PRINT q NEW iue PLOT  @ATTR  LIST PICHR$ >=POINT ?o CLS INT [E]W[A]7/< CONTINUE SQR INT  FOR  IF TAB  POKE  TO rvSIN  CLS  LIST  SAVE t OPEN # OR ATN USR  PRINT , BRIGHT  LET 6 INPUT  THEN  PAPER yQl OVER o<7": DIM s CLS [G]IN ynjVAL$ T(=_VAL$  INVERSE [J] LIST N9EXP ▘q[F]84▝[ LINE -BIN  COPY {h INPUT @ACS v<=y READ USR  FLASH  DIM ▝ RUN TAN CHR$ ABS {$ATTR TAB HSTR$ EXP >NOT $bPEEK  INPUT  LINE STR$ |C DATA M@zk[A]n%BIN  TO K[T]]▚LN PEEK [N]USR RND[L] SAVE VAL [D]u@ RANDOMIZE ;}7rw}▞USR  DATA  ERASE ▝=}( FOR [P] LINE  ERASE 5 MERGE  OPEN # NEXT u CAT  STEP * FLASH ~p(PEEK  LET y OPEN # COPY  CONTINUE vxn NEXT USR XLN [P][S]o NEW  STEP c▜z[E]oAu OVER I#RNDnx LINE INT  RESTORE LEN  BEEP  LINE  INK xX PRINT % CONTINUE ws CLS p VERIFY <[J][A][Q]{dGgA PRINT yZ[A]ATN ▖[C][[Q] CIRCLE  INVERSE  RUN ▗sz~e[A]@+x INK PEEK EXP }SGN  COPY  PRINT  PRINT  THEN  POKE LN  AND ABS  OPEN #▟ CAT VAL$ STR$ i7w OUT  CONTINUE y{©A@FN IN }=<[I][I] LET [ RETURN  STEP ] FORMAT  orATN *|t BRIGHT TAB  INVERSE USR [L]o~-s3%x,8 LINE  DATA q IF )ATN [P]67IN CHR$  PRINT }|BWIN ▟RNDLN PEEK IN ▞ FORMAT [M]_ RETURN  BRIGHT  FORMAT ▖Hy CAT [D]@ RUN ABS Do FOR BOCODE !C FORMAT  INPUT USR ▛/▗USR [N]PEEK ▖OEXP I<= LIST > COPY FN V REM -BIN y[D] NEXT  PLOT  [H]F}W BORDER %▝YASN ^ CONTINUE !'>e7()>= RESTORE ~z PLOT   DRAW @L OUT _0 CAT <=© COPY  RETURN IN  DRAW  TO  CLEAR _ LINE  CAT  IF CODE  PRINT [P] RESTORE ATTR  RANDOMIZE  RESTORE UUSR P REM  DRAW >A? PLOT  _|8/UW+c[A] OUT  AND  OUT 0 CIRCLE  OUT *p OUT  PLOT   READ " BIN ▞R[S] LPRINT  DRAW )Q©TFN ▟▜*<NOT  COPY  AND "F<=w[O] TO [P]uABS l&PEEK mIN kpAT [zLLN Z4 DRAW  DRAW  PAUSE  CLEAR 0Fz' RETURN [O]4[I]ABS  CIRCLE PEEK 0H DRAW X CONTINUE  CLEAR x3 LIST z7 CLS  OUT 406 l[I]▞91whL SAVE VAL [K]p32LN  RANDOMIZE  LLIST 6 STOP p0s[P] FOR @ DRAW  OUT  RANDOMIZE [J] RANDOMIZE  LOAD tCODE  PAUSE  LIST d RUN [G]ATTR D RESTORE , TO O BORDER  STOP [L] CAT  DRAW  MOVE } DRAW  TO SCREEN$ ~ LPRINT  COPY T?© RETURN FN PSCREEN$  LPRINT  COPY [Q]UT@*SCREEN$ .7 DRAW ▙M LPRINT [Q] IF [Q] PRINT 6[Q][U]5, INK dAT [S] MERGE <>PI[U]Q[D][D]xy[D] SAVE [R] OUT g LET ? LOAD IN `w©NOT  OUT ;BIN ?<= LOAD SQR IN  CAT  RUN  INVERSE SGN b RANDOMIZE  GO SUB ▝g RETURN  INPUT ▜c COPY D?e READ Y68q~3© NEXT ;IN  CLEAR [P]<= RETURN p# LET ▝-USR ? OR [P] RANDOMIZE _ABS v CLEAR c}wz|PEEK y~3? RANDOMIZE  POKE  PAUSE VAL  NEXT  DATA  STOP | MERGE .@ MERGE EXP  LINE SCREEN$ #? RETURN [J][P] DRAW ▘[P] RANDOMIZE  IF PEEK r[F] POKE  REM UVAL$  CLOSE #[A] LINE SCREEN$  CIRCLE FN  LIST P REM ▞[Q] MERGE  GO SUB  SAVE @SCREEN$ * RETURN T_ RANDOMIZE  BRIGHT  SAVE  PAUSE "[G] RUN  REM COS  RANDOMIZE V© PRINT `LN [A] DEF FN O[J]H REM FN !LEN i[J]D]SCREEN$ [U] READ 3 CLEAR U SAVE ▞*TAB  STEP  LIST H THEN ▘▖[D]RND+" W[F]BIN PIR CONTINUE ▛ MERGE {▛FUlp▚[U][P]POINT  VERIFY [T][I]`NOT USR H LIST [P] SAVE < LPRINT  SAVE  LPRINT © RUN ▚= CLS  LOAD  TO ▝ CAT  INK [P] LLIST © BRIGHT  DRAW  CAT ▖. COPY 4F<>LN Ox!n CAT  RETURN  LIST  NEW D LPRINT  REM ▝BIN 8[T] DRAW  SAVE ABS  CLS [P] LET BIN PEEK <=IN ©? OUT  SAVE  LPRINT 2[H] OVER ,[D] LPRINT 9qO<> GO TO 'BIN  DATA  LPRINT ©▘ LINE CODE  RUN  MERGE O[P] CLS SCREEN$ @y© CLEAR [F]N PAUSE [P]TAB  SAVE USR K PI▟IN NWUSR ?7 RETURN Oq INPUT PIXQBIN  COPY 1 OR SCREEN$ q BORDER  LINE SPIAT  FOR S RETURN 4[M] NEXT C COPY [I] DRAW W LLIST AT  PLOT   LPRINT wPOINT [N]USR : DRAW <>[Q] RETURN  CLS cq OUT COS ? IF  LOAD  PRINT ? CLS  LIST +[R] RUN y MERGE  PAUSE  CLS ▘?STR$ ©▖USR  RETURN USR G_USR G_USR  READ  NEW ? LIST >[M] BORDER PEEK `BIN p CAT  FLASH >0NOT q RESTORE  CLEAR xaapACS z LPRINT STR$ l~0c# NEW @s COPY USR )g x OUT [K] IF ?RND,[I]O RETURN ATN  AND TAN  PLOT  N-WA LPRINT v PAPER ▟/![H] MERGE fUSR  LPRINT  OUT B, LPRINT IN  CAT  NEW  LPRINT VAL  DEF FN  VERIFY b STEP 2 LINE e LPRINT Jg RESTORE  LPRINT E' LPRINT CODE m CLOSE #. LPRINT [I] LPRINT e' LPRINT  PAUSE  RANDOMIZE  PRINT (USR / NEXT  CLS VAL D3r STOP  NEXT  REM [J] BORDER  RESTORE / COPY [O] OR O BORDER  FLASH BIN  LIST  CLEAR { RUN ?s LIST  SAVE @▞C THEN  CAT _ DATA  BORDER  RESTORE fVAL$ L▖ LET  LPRINT  READ ▝[H][J]4 SAVE |^ DRAW  BRIGHT . BORDER [B] STEP  BEEP x_ FLASH FPI[N]STR$  CLS bSQR ~ NEW NOT {PI/s CLEAR  CLEAR  OUT  LET © LET  SAVE  FORMAT ;W PLOT   BEEP  DATA '}LN  PAUSE  DRAW PI[N] LPRINT Jb OR  GO SUB  LOAD IN o[N]HSTR$  RANDOMIZE  POKE  DRAW ~l>_ CAT  READ } COPY USR  BORDER [T]@[P] OVER [K] BORDER _ OUT © DRAW STR$ IN >=[J]CODE ?~> OUT  THEN PEEK R LOAD  RESTORE  CLS  NEW ?STR$ [Q] BORDER [M] OUT ▝ RANDOMIZE  RESTORE ACS PEEK  CLEAR L/o FLASH [T] PRINT NOT p<>[T]CODE  BORDER [K]▖IN  RUN [P]EXP  CAT  FOR  POKE [F]? BORDER F<=[Q] RETURN $~[Q][N]▞oVAL  READ  LET ,[L][B] RETURN @ CIRCLE ;R[Q]gn? DRAW # LET [K]INKEY$qg LOAD  BORDER s▟SCREEN$ yIN  RANDOMIZE  CAT 3|^S![E]O RANDOMIZE 3?PI<=< NEXT [T]<=5' OPEN #W DIM ? COPY 9 LET  NEXT 3< SAVE >3?t?:▜3 CLOSE #[M]3 RESTORE  CAT  CLOSE # BORDER JH NEXT  NEXT  BORDER T LPRINT LN mRND RETURN NOT  CLOSE #[Q][S]4L PAUSE [S] INPUT LNOT [S] OVER [S]15[Q] LLIST  INPUT  PRINT [E]% NEXT  RETURN W BORDER R PAUSE [D] DIM  LIST  DATA EXP [K]< TO 3?[M]?< NEXT >| RESTORE <= RUN |yINKEY$& BRIGHT  LIST  DRAW  SAVE  CLOSE #Gj POKE  DRAW [O]I[U]SQR  PLOT  [L]▗▖ LOAD ▖LN [J][P][P]; CAT C CONTINUE  FLASH  BORDER D DATA INT  NEXT EXP  DEF FN yi[S] DATA <ATN  LET ▛ DATA ~▝ NEXT 3 CAT SQR  BORDER [P]▞ BEEP EXP  READ  LOAD ?▚= NEW * DATA  REM ©?'? OPEN #3[P] GO SUB 5?O INPUT PIIcS▝@OCOS F INVERSE ▖o DRAW  TO  DRAW  RUN [P] RESTORE  RANDOMIZE  SAVE [E] BRIGHT  DIM [J] BORDER VAL$  STOP BIN  CAT g][O] NEXT [N]PIg= RANDOMIZE ~ DRAW R6 GO SUB /©pXBIN BIN [[Q] INVERSE  NEXT  NEW  BORDER EXP  FOR  BORDER  RUN <=j~ COPY [H] DRAW  DATA 7 DEF FN  CAT  RETURN w DRAW  LIST   DEF FN  RANDOMIZE  CONTINUE [J] NEXT  RUN OC▜ CIRCLE  CAT D THEN  COPY  OVER  COPY [A] AND ▛[S]@@"~'@!B LPRINT [U]`BIN EXP  OPEN #/P=7nIN [N]gNOT U▖▞ PAUSE _[C]1SGN  REM  FLASH USR BIN ▖ FOR  MERGE  BEEP STR$  RUN >=ATN  PRINT  DATA "SCREEN$ CODE u[R] FLASH  NEW  LOAD [N]▞[S] LPRINT  FOR [ BEEP  LIST CODE ▞CHR$  SAVE  THEN CODE CHR$ [Q]▟Tt FLASH [H]G▛ LPRINT ▟ FLASH Egb CAT ATN 4 PRINT LN r?W▝FN ATN  STOP +▝ INK  FOR e?ATTR })|[F]ABS  BEEP D INVERSE s MERGE f BORDER  CLS J LLIST USR B RANDOMIZE RND COPY FN TAN q▘RNDi RETURN  IF  CONTINUE CODE USR >=y}B▖} FLASH ?? READ [M]cLEN  PLOT  ACS GPI POKE INKEY$EXP [K] OPEN # DATA 1W DIM <>OATTR ▞[B]I BORDER  OR  NEW [D] LLIST SX RESTORE  RUN ACS  BORDER *POINT <>N4▝<= READ F PAUSE  READ TAN b DRAW [L]+ DATA  TO #NOT  CLOSE # LIST !USR [U] LPRINT C [P]USR |s LPRINT  RETURN  DEF FN  BEEP [P][O][K]y?1[B]{[N];<> CAT = DATA ,4 INVERSE 6]PEEK  DRAW ~WEXP MC'm~8-u©+9;>*y=& DEF FN :x[N]2| DEF FN &<[P][J]HSGN 8 LET 0[I], STOP >= LOAD  CLS x DATA  SAVE  DIM {n STOP t NEXT  POKE |n RESTORE ) BORDER  IF M7 DRAW  RESTORE M DATA CHR$ ' RETURN Bk READ  IF Jo CAT  PLOT   LOAD [P]VAL$ ▘ POKE  LINE EXP m THEN ?B LIST BIN NOT  OR BIN BIN  DIM  CLOSE #[P] THEN  CAT [L] PAPER [H]~8Orug OPEN #[F] OR 3 DEF FN s▚ NEW  RANDOMIZE nKFN [D]2BIN  NEXT BIN  NEXT  DIM  BORDER  FOR [E]e▟ CAT [K]OSGN [P];PI?nx<> STOP ▟^ PRINT [L]/& DRAW  DRAW  POKE SGN  COPY v~PEEK © IF Lp[O]N▞O[N]PI8CHR$  RANDOMIZE  RANDOMIZE  BEEP # CLEAR  STEP  OPEN #3BIN  FOR  CAT  IF USR !8 THEN "/ DATA  NEXT ©MVAL FN  CLS 3[Q] LIST  IF  LPRINT [F]Y CAT USR [L]Mc[Q][Q]@[Q]N STEP P[A][Q][Q]>ABS [Q],?FN  RETURN USR  CLS ▝~ NEXT [N]IN  NOT [Q]pf[U][Q]3 OPEN #[Q] FORMAT [Q]&[D] LPRINT  LINE SGN [Q] LIST =[D][Q]VAL r[[U]▖ FLASH [P]COS  DATA u RESTORE i BORDER r FLASH  STEP k DATA D DEF FN CHR$  READ  NEXT  NEXT  LINE  LOAD  CAT [P]9C LPRINT  THEN BIN u? LPRINT f DRAW  MERGE [K]L/ LPRINT [E] CAT  FLASH  DRAW  BORDER  DEF FN rBIN .! NEXT  LIST FN ▝ LPRINT  OUT  NEXT z COPY @VAL [P]▞SCREEN$ ▝UV IF | AND  AND gVAL s AND g|[I]STR$  GO TO  SAVE @f▖>=^ CLS [S] RESTORE SCREEN$ COS  MOVE  LLIST ATTR z DRAW  ERASE ABS [H] STOP  VERIFY [+e CLOSE # FOR ?GD[A] OR  REM  ERASE p`?XVAL . STOP  LLIST c LIST G?`▝ DEF FN  NEXT D?~<V@[I] LET  CAT BIN AT j@▙|SCREEN$ V LPRINT [P]M>VAL$ [K] POKE bN RETURN INKEY$R RETURN ©[Q] MOVE 0 PAUSE SCREEN$ 7 STEP z LET  OUT gBIN ▝ NEXT ATN  COPY © RETURN  CLEAR [P]P RETURN  GO TO jUSR BIN  VERIFY Q' CLEAR D'[A]&[U][B]3> BORDER  FORMAT .> READ  RETURN ?" LIST /SIN u THEN oPOINT  GO TO ay LPRINT  IF CODE ABS pq5HSTR$ ' PAUSE  CLEAR  DEF FN Gq~1©_[P]?▝[P]USR {[P] CONTINUE CODE STR$ OT LET VAL$ INKEY$)^FN [O]BIN >UAT PEEK [}BIN ATTR qSGN ABS |/ RETURN  PLOT  $ LOAD  PLOT    STOP j$^ RUN ` INVERSE  FOR USR  FLASH  INVERSE VAL$ / OVER ?<> MERGE  RANDOMIZE p RESTORE  REM LN  CIRCLE ATN / BRIGHT jzTAN iSGN / RESTORE LN uo/ABS  INPUT   RANDOMIZE  CLS ▙$[ PAPER  USR  CAT  GO TO  AT ATN V!  RETURN  BEEP q6{ OUT  TO  GO SUB cN_ CIRCLE q[9 LIST L" REM _{ TO  LOAD < LOAD  CLS  FOR [Q] RUN  NEXT USR  IF ;>SCREEN$  RANDOMIZE Q@ATN TwVAL [ PAPER $[M]| FORMAT U[I]w~iv© LPRINT  CLS 8 BRIGHT  OR O GO SUB  LLIST hUSR  AND  CLS RND▜PIq COPY  OVER [P] OUT _ LET ▞USR  TO F/LN |oRND[P][H]6[L]^@▜ BRIGHT  LIST xSATN CODE  DRAW  DRAW ▛ OUT  CLEAR  RUN [T]/ CAT  DRAW LN  LOAD [I]>= OVER  DRAW  BORDER b▝0@ GO SUB &,TAN [E]?[Q]USR  LET  RANDOMIZE  CIRCLE = RUN ASN CHR$ TAN VAL <=1? PLOT  ▜ STOP COS % SAVE I RUN ▖[I]g LIST  BEEP n?▗ PLOT   PRINT  CLOSE #@<=3[L]w CLS ATN /U LINE  RANDOMIZE ATN [F]r[H] Hhv DIM x THEN e[I]j CAT | STOP CODE  BORDER [P] FOR <=/▖O PRINT  COPY _? PAUSE 9 RANDOMIZE ,g[P]:CODE [P]▚o NEW  COPY wSQR x[F]COS  CLS {}ABS  VERIFY  CLS >[T]CODE  REM I OUT ▖q/ CAT  SAVE '+WH<>>SIN C:x LOAD  NEXT `©; IF © PRINT  SAVE  RETURN IN ▖ PAUSE  DRAW  RESTORE  STOP S FOR , CLEAR  MERGE ISGN ▗ COPY  THEN [ GO SUB k[L] PAUSE P GO TO  MERGE 4I FORMAT `FN  NEW  AND COS CODE [R]VAL DpCODE  LIST ▝^<m CLEAR dw THEN  PLOT   FOR ATN ASN ` FOR  NEXT /  OPEN #~w8▞H RUN PEEK ATN RNDD LOAD D PLOT  BTAB [G]H@LN LN  NEXT ▛@PEEK [C]I} OVER  NEXT  NEXT z INPUT  GO SUB ATN u LIST ? READ  PLOT  "eX[H]j? MOVE ▚ RESTORE $ SAVE BIN 0LEN q DATA /LN  AND USR 7 BEEP USR ;USR JATN ▘= FORMAT mEXP  REM  CONTINUE  SAVE © RETURN [J]^=SGN _ LPRINT u DRAW 1~z{VAL TAB  CIRCLE t INVERSE >=:M OPEN #[Q]5[Q]*[Q]TAB +[Q]$ SAVE VAL$ q` POKE  LINE 5` CONTINUE  CLOSE #j[K]|(t[E] RESTORE  RESTORE FN ▖▗ LIST cSIN  LLIST <=[O]ATN [P]INKEY$1LEN CHR$ ' CIRCLE INKEY$iBIN @▖@D©[K]@[Q]@PABS  LOAD 3? RUN [P] CLS  NEXT © CLEAR  INPUT pf3 GO SUB CODE  DRAW  FOR uQ▜UEXP  LINE  * GO TO ▝@NPISCREEN$ s>={@ LPRINT >=E LPRINT >=E LPRINT ~N RETURN b TO EbeJ COPY  INK ▞fE&▛▖VAL$ ▛[A] LPRINT ▚[A] LPRINT ! ERASE [Q]7[Q]$[S][Q][Q]Dc[Q]25[Q]TAB [Q]10 DRAW IN SGN ?[Q] MOVE [P][Q]_|[Q]I>[Q]QEXP ▗[P]EXP EXP EXP EXP EXP r`rI[U]@fCOS @ COPY @$ TO @u@r[U] LPRINT @[O]D@ STEP @j@ PRINT [K]e@ATTR ^@`USR EXP  REM SCREEN$ [G][P] INPUT   LLIST _ DRAW  ERASE  FOR -d CAT |+W FORMAT 8 REM b[C]▖EXP :(ATTR  RANDOMIZE ▗©VAL$ =I CIRCLE  SAVE  CLEAR  AND ▜x LIST 7LN  RETURN  CLS  RUN  FORMAT STR$ z▜ LPRINT  CLEAR gUSR VAL$ CHR$  DRAW ^INT ABS  LIST  BORDER EXP ?z OR SCREEN$  BEEP  LET " DATA <= OUT  DATA IN [E][}5 LOAD PEEK [G]CODE  /?J GO TO  LOAD [P]q] INVERSE  FLASH PEEK Ou MOVE USR [F]ATTR [ CIRCLE  OPEN # PRINT  CAT ©= BORDER [L] OUT ;ABS  INPUT   CAT [K] BIN  OVER  OVER  RUN oVAL$ { NOT  RANDOMIZE  RANDOMIZE SGN  DRAW d[P][P] COPY ▚© LIST  STOP  DRAW $BIN [P] COPY "LN CHR$  PAUSE B" LIST |STR$ 2 LET  PAUSE ? LPRINT  RANDOMIZE 1Y; RETURN [T]:1~U DRAW IN *▞ RESTORE )[A] BORDER  BORDER ) SAVE Txg STOP  LOAD CHR$ FN  RESTORE P~ NEW  PAUSE [Q][F]M PRINT K RUN  IF  GO SUB ABS [K]ATN  LET ▖N DRAW  DATA  BORDER CHR$  RESTORE  NEW >|~ LLIST  RETURN '<=O/BIN  LET  RANDOMIZE NOT  DATA ▞ DEF FN  RUN ?`8NOT [N])<>+<8CODE BIN &CODE PEEK [F]~© STOP  RETURN * CLEAR  LPRINT  CLS [M]< BEEP  SAVE ~CHR$ ? READ O MOVE TNOT G[▚G[R][R] BEEP  OUT 3/ SAVE  LOAD ©x[Q]<= READ  LPRINT l GO TO  PLOT  [P]p DIM  POKE  RUN q[F] PRINT [P][G] LOAD  DATA  NEXT [D]4 GO TO BIN ▞BIN  REM  STOP  IF j~[K] DEF FN  RANDOMIZE j[O] INK D<> POKE  PAPER s OR >BIN  LPRINT CHR$  OR ▘COS  DIM  MERGE ?CSQR  NEW *[D][B] FLASH V DEF FN [L] PAUSE /] CAT ▚6[G]F©|[H]/USR IN PEEK  RETURN 0 OVER q SAVE ▘ LIST  LOAD  INPUT PEEK  SAVE t+ DRAW 4 RETURN  STOP AT Y COPY ABS  INPUT d/SGN ▚? OUT  OUT U~ PLOT   GO SUB  AND  STEP 3 POKE  OUT _INKEY$ DATA  OUT A[U] INPUT  FLASH WPEEK [Q]PI RANDOMIZE  LINE [Q]S[Q]COS oPOINT  LPRINT 1[E]> RETURN ©} CLEAR A{ IF _w STOP >`©^ RESTORE INT ATTR V REM   PLOT   LPRINT  COPY CODE { CONTINUE w`u LPRINT o`uBPI OPEN #ACS  VERIFY [Q]ACS [P]`x CLS  PAPER _; NEW oUwCODE  MERGE zP[F][P]INT INKEY$UV<=!SCREEN$ ATTR  DATA 'S REM s LPRINT  RANDOMIZE VAL$ INKEY$9xV;▙SCREEN$ [[O]L BORDER !~AT  RUN  OVER u TO  CLS [N] LLIST  CLEAR USR [T] LLIST  COPY  RETURN  AND SCREEN$ ACS ATTR FN u]Au RUN USR ]X CIRCLE  CLOSE #IN EXP 2[U]▞▗9 TO ▖ COPY ; DEF FN { INPUT 3<}HSGN  PLOT  [J] CIRCLE  BRIGHT  RETURN  OVER 3s[U] LLIST  FORMAT [Q] FOR U COPY  CLOSE # LPRINT ~[L][R] LIST [Q]t LIST -[Q]  MERGE ABS Zr THEN SCREEN$ [G]2INT m RANDOMIZE 1LEN SCREEN$  INK ▞W REM  LIST 1 LET  NEXT ;▖5]▝X|▖U{p} INVERSE e[Q][K]j REM [Q] RESTORE @COS [Q] LINE SCREEN$ [Q][N]4[Q]*T MERGE  CIRCLE [Q] READ ▞ BEEP "[G] LIST  CLEAR  INK  RUN PEEK 9USR `[B][H]TAB  RANDOMIZE !J>=u RESTORE g STOP  LPRINT $O DATA ▙▝©n| COPY TAB o$ OUT  BORDER Ln RETURN qUSR Y INVERSE hPEEK lG&[C]`O3 POKE ©IN | OR GVAL  TO [I]'ACS  CLOSE #CHR$  CIRCLE F[E]BIN |6FN  CAT BIN 0 FORMAT } LIST  COPY >=VAL$  FORMAT [Q]eINT X RUN [O] CLEAR @?yRNDP CAT COS SQR  DIM 3}▙ OUT [Q]~ NEW @.b OR  DIM  RESTORE g@[L]VAL$ rt;yb[A] REM | STEP  BORDER  RANDOMIZE  PRINT [L] GO SUB </ RESTORE  LET  DEF FN  CAT  PLOT  [O] RUN ^ CLS [P] FLASH  PLOT  > NEW  GO TO [N] LET  VERIFY NOT  RUN  CLEAR  STEP  DEF FN VAL$ BIN BIN  BORDER AT  IF  LOAD / COPY  LINE  INPUT SGN  POKE  STOP  GO SUB | DIM  REM SGN gVAL  STEP  INVERSE D INVERSE  COPY  GO SUB  RANDOMIZE  DEF FN ©r STOP  BORDER  PLOT   STEP IN  LOAD { OUT [<>T▜ATTR ?▝ SAVE 4y RETURN xAb DRAW < LPRINT  OPEN # DRAW USR 0[&3 CLS  CAT  PLOT  n CLS 4Y>SGN [Q] CAT  LET  BORDER ATN  LINE  FLASH eABS  IF ~ IF LN  NEW <SIN NOT USR .▜▝ LLIST [R]SCREEN$  NEXT SCREEN$ © TO [K]SCREEN$ ?<K20 CLEAR USR  IF  CLS G FOR  RETURN EM LIST F LET  LLIST BD INK  MERGE F CAT  IF [C]<E[N]© CLS G▟ REM [R]PEEK /IN ACS F[P]<> BRIGHT NOT SGN LGXIN [T]PEEK  AND IN LN BPEEK  RETURN  COPY  INK FIN NV+©FN  INPUT SGN | FLASH FN jo_^L REM 3 OPEN # IF  LOAD 6©INKEY$BIN COS  PLOT   MERGE U` DEF FN `L9 RETURN By<>[F]/GS POKE [U][S][S]$IN SIN PEEK  CLS :▟=j THEN _▟s RETURN W/VAL / IF }-VAL >= PAUSE QBIN © RANDOMIZE TAN  MERGE / THEN  FORMAT */[T]@zRND CLEAR ;[C]>"STR$ [S]USR [I] GO TO  FLASH -BIN  LET  IF >= BEEP w[F]ABS U[P]x INK SIN M▝ RUN C PAPER  GO TO ) STEP  PAUSE TAN 9INKEY$FO[G][F][L] OPEN # OVER  SAVE [Q]Ao OUT  RANDOMIZE  BEEP  OVER Q MOVE  FLASH SGN ,Y`MVdFN 8▛ CAT  FLASH O NEW  CLEAR Y~ LPRINT 3 NEXT ▝ COPY COS R CLEAR  NEXT 5<=[E]P RANDOMIZE Of[P] LINE [M] IF ©zUSR 9ABS  REM  INPUT PIVAL$ [B]K2#▜ FLASH |(LgIN  RETURN INT N| CAT  DRAW [R] OUT  DRAW ~s MOVE  LLIST A[U]<q REM O▝[N] DATA  PRINT U TO  OVER [R]A NEW jSCREEN$ < FOR [Q]© TO ©VAL  SAVE  RANDOMIZE [J][Q]x FORMAT 7?SGN 30LN <=STR$  DATA USR  LPRINT ~ CIRCLE X COPY a▚ INPUT H STEP :x©LFTAB p CLEAR 0 NEW STR$ [U] CLS O LOAD $ CAT  RUN PI,TAN mX[O]<= CLS  LOAD  RESTORE 9[T] GO SUB {> NEXT  MOVE  NEW & LIST l CONTINUE  REM n^VX POKE  GO TO f▘ TO y STEP yN▘COS < NEXT o_<> NEW  DRAW bA IF O[D]COS USR  PRINT , OUT  CAT ,a SAVE  PRINT A[P]n_Q RETURN CODE wX© CLOSE #1[O] RANDOMIZE  BORDER 7 NEXT 'FN sVAL$  RETURN STR$  CLEAR AsCODE [O] COPY  LLIST N TO [K]>^? LIST  COPY  SAVE > INPUT en DRAW %~ COPY  DATA pSQR  ERASE < DRAW  COPY Y[J] SAVE USR VAL$ ▜ DRAW ` REM |©1USR  VERIFY  CLOSE #F~O VERIFY  STEP  CLEAR x[P]th SAVE  RESTORE [P]AT  CLS W LIST Z[L] PAUSE  LPRINT  CAT  OUT Ly DIM ©[T] BEEP  GO TO /USR @[O] PRINT AB MOVE COS CDEFAACS G LPRINT  LPRINT d[O]B NEW  LPRINT E6A LPRINT  RUN HI CAT zJK}VLMO g[A] [J]J [A]yMSIN  @@  NEXT J@2 CAT MA@``d[O]J NEW `MAT @`  NEXT I2 CAT L2 NEXT [Q]I CAT  [Q]2L[Q]2USR   NEXT IUSR 2 CAT L2USR  NEXT  LPRINT I CAT   LPRINT 2L LPRINT [G]&CHR$ Q1zRSSCREEN$ [K]VWd  A NEW R d[O]U, @@>=<R TO 3@U[A]@`[J]g`Ry`USIN [A]` NEXT R CAT  2U[Q][O]A[Q]dR[Q]B NEW U[Q]USR 3>=USR  TO RUSR >=<UYUSR  LPRINT  LPRINT [A]yR[J]g LPRINT U LPRINT [L][Q]? DRAW h RETURN j+ BRIGHT  DRAW  AND LSIN ©q[M]nUSR _`SIN e BRIGHT  INVERSE USR I` GO SUB [I] OVER >< BRIGHT k AND  VERIFY 8[N]USR i IF }/~7SGN USR  CIRCLE _[M]USR  LPRINT ©[S]SCREEN$ © READ ;"M2 RETURN 9▙vSQR ▟ IF ~>x CIRCLE P<>= TO  STEP Y▛USR  OVER |;<&ACS 8[K] OUT USR  PAUSE ~ POKE = GO TO USR  DATA [K]USR  SAVE  STEP  PRINT ` FORMAT NbEXP  PLOT  PEEK n[M]_@>|[F]ATTR BPEEK Y THEN @USR nCOS USR r} DIM 9 IF AV[O]SCREEN$ INKEY$x[S] CIRCLE q RETURN  LET  RANDOMIZE SQR O RETURN ' DRAW 8<>[L] STOP ▖▝SGN  OPEN #USR  BRIGHT [M] SAVE /SQR  INVERSE x GO SUB _1 CONTINUE  DRAW  LIST q` CLS  NEXT  BRIGHT USR  LPRINT [K]? LIST  LET ACS  CIRCLE ACS SQR  DEF FN  POKE INKEY$ATN .VAL  PAPER  PAUSE  BORDER  CIRCLE #TSGN  RETURN  SAVE  LPRINT  PLOT   BEEP [J]'[C][T]AT PEEK v STEP  MERGE PEEK  CIRCLE VAL$ ATN ASN ZLN lI`& RESTORE k.VAL$  CIRCLE cNOT POINT }>= CIRCLE  OUT  COPY  LIST  AND no[P]a▜USR  LPRINT [E]COS  LET hSQR  GO SUB  LLIST NOT #▞ PRINT  OR [ DRAW [J]9 RETURN [U] INVERSE [M] CLEAR KD!JSGN  DRAW +SQR  PLOT  ▟ BEEP <=▛ PLOT  BIN ▞▝▖CPEEK : INVERSE P SAVE DeIN  AND  DEF FN VAL G[H]▟ BORDER  DIM TAN  PRINT R ERASE IN  RETURN 3 BRIGHT >= CAT F▘ TO  READ  DRAW  PRINT   LPRINT  COPY /? GO TO  CAT 9cACS  LPRINT # LOAD ▝[L]b9[A] "ABS RABS [ POKE  CIRCLE )]VSIN ACS 5$5/STR$ <>+SGN  MERGE  INK COS b]b PLOT   COPY g8 PAUSE AT  CAT  INK LEN VAL$ PSQR  VERIFY 5[R]*E[H] DIM _ASN  DIM _=tY CIRCLE  VERIFY CHR$ ©[t OR W STEP  FOR  COPY " FOR kACS AT / BORDER  RESTORE INT  RETURN @nk GO TO ATN [P]©f[N]~[J]CODE  CLOSE #[I][I]LN  PLOT   LET USR  THEN  PLOT  khVAL 2 RANDOMIZE  CAT ▖ COPY `:7© READ  FOR INKEY$ LET  RANDOMIZE  GO TO  COPY <M CLEAR :j LPRINT K SAVE 2NOT ,SIN >= NEW r<= LIST RND7 RUN  CLS  CLEAR T DATA 4 PRINT H BRIGHT [O] INK  PLOT   NEXT SIN  CONTINUE  CLOSE #+?USR 7[L] STEP  NEW  THEN  INVERSE  DEF FN  LPRINT :LSIN [ TO USR  LOAD  CIRCLE g AND USR IN USR  RANDOMIZE <COS POINT ©SIN :o[Q]2>=USR ACS  CLS  BEEP J[L] IF :q[M] SAVE [J] CLS  PLOT   DEF FN USR  BORDER  RETURN [A] RUN [K]:<nUSR  NEXT  RESTORE 6[M] RUN  DRAW  FOR ▘RM CLEAR :_`t IF USR [M]7 GO TO ▝<[Q]6 FLASH <_~ THEN  SAVE [H] RETURN <FN @b GO SUB _:| MERGE {USR  THEN 2USR SGN  SAVE @e DRAW  TO 2(~USR  ERASE 3 LPRINT  PLOT   COPY USR TAN  INK  RANDOMIZE ▖USR  DRAW hUSR [Q]9 MERGE USR @ RESTORE ATTR [Q][N] RETURN a:USR {COS  THEN  LOAD SGN ▙ COPY  DRAW  IF SCREEN$  CAT  GO TO AT 9^ LIST _ LET  SAVE  INVERSE ^@©[P][M]ACS ACS x^TAB PEEK  OUT  LPRINT ▘ RETURN _PI@@<M OVER `▝^;/ACS [▗USR  OUT ``^LEN =C RANDOMIZE w LIST x CONTINUE STR$ [S]^ATN }O LET  LOAD  BORDER  COPY [P]▘[S]ASN USR  RETURN [Q] NEW [Q]^ATN }_ GO TO  CLS  COPY  LOAD  PAUSE [R](USR ^ABS ▝ NEXT o▘ LPRINT  CONTINUE [P][O]V` IF @ STOP RND AT  CIRCLE __ CONTINUE IN USR USR [P] CAT ASN CODE  RUN ? BORDER  PRINT 2.<=[N]SGN  CLOSE #PEEK  VERIFY fo] LIST yF[T] OVER [A]t▜ IF * FLASH x FOR ▙/p LOAD ©V LOAD } CLS  IF [K] AND USR =USR  CLS  FLASH ▝?R+ SAVE n RANDOMIZE USR  PAUSE [C] FORMAT  AND  CAT  BORDER SQR h{ INVERSE  RETURN b BEEP  CAT  LET  INVERSE  REM  VERIFY /AT <s OUT SQR  STOP  COPY  PRINT COS @[O] PLOT   RUN :/@[A]PEEK <> FLASH  NEXT  LPRINT  PLOT   CLEAR  OUT  FLASH  NEXT  GO TO ` OUT  LPRINT < READ ~p DRAW  PLOT  ASN v[I]^ LET >s{<= CLS [Q]©p[U]rNOT y CLS & MERGE  CONTINUE  LPRINT {w~x MOVE 7 LPRINT T SAVE  GO TO SIN wFMCOS ~ PLOT  ©[L];>J LOAD  DRAW [Q] LOAD  PAUSE [L]`O OUT pL SAVE CHR$  IF ^ INVERSE  TO  LPRINT IN  PLOT  ▟ CIRCLE  NEXT [T]V LIST [Q] STEP [N] TO  RUN  LIST ~IN ▘SGN {O LOAD  AND L=USR  LPRINT ` CLOSE #a[R]E RESTORE ^. CLS xz^SGN @ MERGE  IF   DRAW  READ _G INK ~ BEEP t GO TO ]ONMO FORMAT A IF  PAUSE INKEY$[U]▞SQR  GO TO [I] OVER P▝© LPRINT Ao7ATTR x%[Q] GO SUB  RUN  MOVE  PLOT  VAL$ [P]B DATA  PLOT  m CAT  NEW fTAB ACS  PRINT PEEK  PRINT ATTR ` CLEAR  RETURN a DIM RND CLOSE #1SIN  DRAW  RUN USR INKEY$G?SQR  LPRINT }SGN  PLOT  USR 0>=f▝ LINE  AND ?#▗/XNOT ATN VAL %O LINE ▖.q, NEXT 6>=Fo IN @ 0<=[P]>= CLEAR !,VAL  1ACS  LINE  MERGE  CLOSE #BASN  IF >=[M]| OVER  AND  PLOT  G?s;{HxSQR [A]lPEEK  RUN  DRAW 4SGN  CAT NOT  BEEP hABS %` LINE ` CONTINUE 6 RETURN 'K p4 PAPER [B]s3[L]nFN  OVER 6@t802▝ PAUSE ▝PI[P]SQR  STOP  INVERSE LEN ,[I]IN ap0 ▗SCREEN$ L MOVE NOT INKEY$&}[I]Nv8VAL  AND CODE 0<>SIN `!"▜[C]1h▗GNSQR  IF ▖e[O]▗D LPRINT ▟f MOVE [C]m[N]5(NOT  CIRCLE mu▙A▘# RESTORE  NEW FN `ABS SQR / BRIGHT ACS # SAVE 8 COPY  LIST  LIST q BORDER  SAVE © TO b PAPER INT  INK [FSQR Dmq BORDER } SAVE >X<=<elCOS m LIST Rz< NEXT ~ CAT PIS COPY  GO TO  RANDOMIZE w OPEN #? RETURN SQR } RETURN h RETURN X COPY VAL$ j LPRINT / OVER  REM H BRIGHT LSIN ▟}NOT f©.ABS  MERGE q[M]nUSR  INK [L]_`oACS SCREEN$ ~TPEEK  CLEAR SGN |/SCREEN$ PEEK  RETURN IN } ERASE } RUN IN [J]SGN ▖f CAT  BEEP CODE [f[P]zo_ OUT VvSIN ~97 LET O$R=6- PAUSE .67IN CHR$  CAT ? NEXT LN ?>] RANDOMIZE  RETURN IN ©k|[Q]' DRAW #[T] CLS [B] DEF FN  NEXT [T]INT  FOR  DATA  CONTINUE =R66}G`wv FORMAT :[ CONTINUE L NEW TAN !▟▗B RUN  OVER  PAPER  STOP  SAVE gM MOVE  CONTINUE U REM ▝ INPUT  LOAD USR  SAVE  NEXT  LOAD ▚[A]BIN < DRAW  READ [R] RUN [I]USR  CONTINUE pFCODE @/ CAT  COPY USR  LIST <p LINE  LPRINT  CONTINUE  CAT  LIST xo BRIGHT |~><?[M]?SGN +s VERIFY  LPRINT  SAVE  POKE  OPEN #y LET x SAVE `0 CAT 48 SAVE U POINT  DIM  RUN  SAVE  LPRINT ?[L] OVER `LN x CAT  RUN =>VAL$ ACS [J]o+ BRIGHT ▙ POKE 2d OVER > ERASE  PLOT  ~k[Q]▚g7` [I]INKEY$2r POKE  PLOT   NEW  POKE H RETURN  OVER   AND  OVER  STOP  SAVE mo CONTINUE  NEXT ^<I2t RANDOMIZE ▜/ LOAD  DIM ,[L] COPY ? STEP ~ LPRINT ABS  CIRCLE =SGN [P] COPY ~q COPY ▙mACS O^z1 IF oABS  DRAW ▛ PLOT  w INPUT 0 FLASH 4,[J]P LIST  OUT 7 GO TO 3ABS  TO 8B REM AT [I]~ PAPER kBIN SGN  INPUT  NEW 5`ABS ` COPY  NEXT / RETURN ~©g RANDOMIZE  NEW  OUT .>ASN ; COPY  BRIGHT c AND / VERIFY ,:S DRAW /vABS O PAUSE pB LET  FLASH ASN ; CLS 0B1▝< OUT  TO   COPY < AND o OVER ASN  DRAW [R]e VAL$ USR 2 DIM ABS  DEF FN KRND CIRCLE ASN UJmLN  LLIST  OUT X FLASH d& DATA  STOP b'BIN #<=SQR  LET  READ NOT ABS USR B MERGE X+ OUT  RESTORE  POKE  LOAD O^>=; RETURN  AND BIN }[E]=▖ STEP [B] LIST SQR  OUT p[P] DIM #< LET { LINE w DATA y][A]-[U]a▘ RETURN U*▖ FOR `%[Q]8b[O]5BIN p CIRCLE c LPRINT SCREEN$ ?USR  LPRINT `1 TO  DEF FN  BORDER  OVER  OUT 8[E] INVERSE ▗[A]( FLASH  COPY .N[Q]PoPEEK  FOR ▟l0<VAL IN [J]r` MOVE ▞[C]POINT AT ISQR / CLS PI[Q] PRINT [O] MERGE <(FtOzg-uINT NOT [F]ABS j FORMAT  POKE ' LPRINT  REM  CONTINUE  STOP  GO SUB  FORMAT  LPRINT 5© DEF FN o`V LIST p/ POKE  ©▙©▟IN  PRINT  CLS  REM @` BRIGHT  PAUSE [B] POKE  DRAW  PAUSE [L][O] BORDER  RETURN [M] NEXT  BORDER ▝}m[P]O[T] SAVE ATTR }▟x[I] AND TAB k READ  PRINT  LIST  FORMAT  SAVE  LPRINT { OVER iy[O]a▚<CHR$  RETURN <[N]1Z VERIFY ▜ATTR 2 CONTINUE  LET  CIRCLE I COPY BCHR$ f CLS rZ`@AAT 9z CLEAR  LET U`▙8USR Uc[Q]b FOR y=p35AT  READ  PRINT ▝ MOVE (7[I]4?▚[C] SAVE 1[I]>=▝>p [P] CAT X ERASE &ypBIN  OVER PI?ASN 89pyUSR [G]▟ SAVE  RETURN @x.COS 0>BcUSR  LPRINT  LPRINT 7 RUN © SAVE 5 NEXT EXP  COPY [O]ATTR W LPRINT SGN 8Fx`|xTAB t▖[F]R45 BORDER  LPRINT  LLIST [U]▟><USR AT  DIM x PLOT  [G]ATTR 1o RANDOMIZE ? NEW ASN 9<>TuUSR  NEW  LIST  RETURN [I]USR  DIM Z1IN VLEN USR CCHR$  LOAD  RUN w INPUT ; BRIGHT [ PAPER ▜ LLIST  BORDER  RETURN ?[J]FbI[C]6lL2~B CLOSE #ACS mCOS  STEP 0g© CIRCLE 8[A] AND cNOT ▝ GO SUB `XB[L]▟w[U]VAL USR @ CIRCLE  LPRINT <=|[Q]vns DEF FN STR$  RANDOMIZE  BEEP ▛ MOVE  THEN  OPEN # FOR  BEEP t. POKE IN Rc AND  TO 3 OPEN # THEN CODE  PRINT  OUT  CLS v▟6? ERASE TAN AT USR  PLOT  <= OVER  CLS  OUT  DEF FN o OVER `<= READ  FLASH /LN PI RESTORE _ IF  READ USR = NEW [L] INK SQR  INVERSE  PAPER p▝ CAT s FORMAT IN  CLEAR  CAT  GO TO O PAUSE f5[Q]}CHR$ ▝USR >▛1|[G][D]pP[I][P] RANDOMIZE `f NEXT Nr`7 GO TO  FORMAT BIN  SAVE PEEK  DIM k[S]*_ LIST [E]=SGN }p.PEEK FLEN ▟▟[N]M>X|>M©INT ? PLOT  ▚EXP [N]EXP  INVERSE { NEXT JRA▘USR  PAPER  OVER  MOVE VAL$ ~©@▞USR [E] MOVE '[Q]-[O]USR  DATA  CLS  DRAW 98<= DRAW  NEW [Q]@4XA CONTINUE STR$ x OVER  LET <= STOP [D] INK  LIST  PLOT  ▛0p GO TO  DRAW  LIST  CLOSE #[S] LIST PIlCOS  FORMAT ; CLS @>?6 CIRCLE  POKE ^5XF© DEF FN  AND ▛ OVER USR ~&~| DATA ?USR  RESTORE IN > POKE CODE t INPUT w.0 LINE  COPY tmACS  DIM [H] RESTORE PI LLIST ▜ READ <= CIRCLE ym.INKEY$(B ERASE  PRINT /q OVER USR  PLOT  VAL  NEXT  CAT  GO SUB ATN M) VERIFY Z LPRINT [I]3 TO 4 RESTORE /p DEF FN s PLOT  ouVAL$ @ OUT [M]▙q`3USR ▜© PLOT  !▗@0[I]USR ~ DATA [O] THEN  DATA LN  PAPER 5AT ) OR v INPUT [H]c PAPER ABS TAN TAB c CAT ASN  OR [T]>=INT > ERASE BIN 1_ CLOSE #&dy[O]p CIRCLE  CONTINUE M CIRCLE ~ INPUT  REM <=▘ PAPER  IF 2 MOVE  PAPER 6 LET  CAT  DIM yCHR$ [S]▝PEEK w▟ READ  BRIGHT  STEP COS @3PEEK | PAPER b4PI©LEN _INT  LET [M] INPUT @ OVER  DATA POINT LN D@ACS  CONTINUE DSQR  MOVE  LOAD 2s_PEEK [B] CIRCLE  DATA [P] LPRINT  GO TO @[R] MERGE X LINE  BEEP  TO USR ? NEW IO STEP  SAVE USR  DEF FN  NEW [M][ OR  AND [U][Q]USR  PLOT  sQ`[Q]SIN 1USR ~^zy LIST VjbFjrPI INVERSE ▜RvG STOP ▘ READ 7 LINE `6`wZ CLEAR  CONTINUE [L]$8INT /USR 6[I]<=v OVER fQ`/.USR  CLS  OUT  PLOT  D"/PEEK ▗@o PLOT  KLN sEXP  VERIFY nv0:/[R]▝CHR$  LOAD STR$  THEN  OPEN #[R]d[Q] OVER {ABS  CLEAR COS  STEP XL2C REM  RANDOMIZE CODE ><8USR BIN #SQR  INVERSE  READ ▚&LN CHR$ CB STEP [E][K]][A]d&▝USR <=INT n7 RETURN VAL ? CIRCLE ©AT ATTR  COPY  READ VW[M][L]cVAL$  COPY  FORMAT  TO ] DIM  LPRINT [I]q GO TO  OPEN #?[P]L CLEAR hV BEEP  PLOT  <▝< PLOT  =▞7~ PLOT  ▝*▙U0g[K][I] PLOT   PLOT   CLEAR 53USR  NEW USR  TO USR  CLS  PLOT  X^USR  READ IN LEN 8`u SAVE ATTR  DRAW  MERGE  RETURN  PRINT ?q COPY j[F]9[G] AND  PRINT  FOR  DATA 8kBIN INKEY$[P]? DRAW W LPRINT x` DRAW d>ATTR  AND  PAPER  RANDOMIZE  READ IN oUSR [H]VAL  POKE ©x PLOT   SAVE m LIST  NEW  CAT [P]' RETURN  CONTINUE ~▝aTlSCREEN$ i[K]FN  REM  DRAW P  COPY  CLEAR LN  RUN |n SAVE  PAUSE 3 BORDER  NEW  CAT  RESTORE  REM USR  CIRCLE ' RETURN  FORMAT  CONTINUE ' POKE G REM O IF ABS [J] COPY  PRINT Py[  NEW H[Q].7 NEXT  FOR  COPY [D]^ INPUT w OVER ? DRAW ACS  BORDER  LINE USR &c3 GO TO ▟LN #BIN ©>s PLOT   BRIGHT ? PAUSE  STEP INKEY$ BEEP  NEW V PAPER 0 CIRCLE [Q] NEXT  NEXT g6lP'6VAL TAN e/[pcPI PLOT   NEXT  AND  NEXT MATTR g FOR h OPEN #[j CLS l IF F LPRINT o>=Bw INPUT tp RANDOMIZE 3[G] CLS  NEXT  STEP f OVER o^ LOAD  PRINT  GO TO L PLOT   LPRINT  LET ay}@CODE  DIM  OVER  COPY ?[M] NEW [I] OPEN #f TO  OVER  LOAD  POKE l CLEAR VAL$ USR  LET © OVER [P] NEXT i GO TO  NEW , INPUT & OVER SGN L▜NR[O] STOP USR [J]?[P]3h TO  PLOT   TO ▘3SGN [M]d RUN USR ▜ATTR  MERGE  PAUSE _ RANDOMIZE IH]INT MSIN USCREEN$ ^ LET USR [S] THEN  BEEP ▜@ RANDOMIZE VAL n GO TO © PRINT %VAL  IF [Q]VAL (USR  ERASE )@Y CAT AB= FOR CDEdFG  NEW  B[O]A 'dE @  CLS @2 CAT C NEXT @F CAT  `[A]Af[J]g`E `2 CAT B NEXT Ed![Q] NEW [Q]B[O]A[Q]dE[Q] AND `H| CAT Tr:Y DEF FN 5j PAUSE NOT uUU DEF FN  REM  MERGE  BORDER  AND > BORDER ULN > VERIFY IN U*ATTR  OR USR ACS  DEF FN © COPY  LIST 5CHR$ USR  LIST `VAL INKEY$[M]XAT  TO VAL$ [G] COPY USR ^TAB [Q][E] READ '▖9[|J CLOSE # FOR  IF [C] PLOT  | CIRCLE INT 5A FORMAT V[ READ SGN FN 9P[Q]USR  VERIFY zVAL$ =  INPUT  RESTORE [D] CLOSE #▛ FLASH  NEXT  STOP  THEN PI SAVE BIN LW PRINT LN CODE  IF x POKE  FORMAT  CAT  REM FN  LOAD  PRINT > SAVE (1 COPY  CLEAR  CAT  NEXT  BRIGHT 5w INPUT AT j[U]b[S]VPUSCREEN$ O*T PAUSE 0 AND co1 TO  PLOT   INVERSE SQR 81a GO TO 7▚b,4Fc[I] AND 3[D]I TO <gINKEY$IN  CAT  OPEN # SAVE GFN  STEP  LPRINT (IN eU?|&*©8qs LINE (!▗@[R]@ MOVE FN ? GO SUB ASN TL NEXT  LINE # x DRAW 5wr STOP oP POKE ?*SCREEN$  PAUSE _ DRAW  CONTINUE {IN  CLEAR  CLOSE # NEXT 3FN  CIRCLE  LET  OUT  ERASE ASN  TO N[B]O INVERSE N RETURN 6[P]UAEPv4@e/H STOP INT  INPUT VAL$  DRAW PI. REM S RANDOMIZE ©8 INPUT N COPY _ DEF FN  STOP C IF ©: LOAD [E][I] REM WSGN  RUN LN  LOAD ^ BORDER ABS  INPUT  STOP G FOR INT  LOAD PEEK [N] DRAW  INPUT  INK [J]/ READ ?PEEK  BEEP  TO  CONTINUE  CIRCLE  RETURN  BORDER L[E] RESTORE 8fCOS USR sCSCREEN$  REM  TO vNOT  DEF FN S CLOSE # INVERSE  CIRCLE  CONTINUE 8 STOP I LINE 4LINKEY$? CLOSE # GO TO U DATA  PLOT   TO H REM VAL$ [G]IN TS POKE ACS  STOP JrMb DEF FN  CIRCLE  AND lxSINKEY$VAL  DRAW < RUN VAL P< LPRINT COS [I]SGN t GO TO  MERGE tNOT VZL STEP BIN ▖8&cFVAL ▖K PAPER c8VAL$  THEN :[M] LLIST [N] TO G[Q] LPRINT _▘G? PAUSE USR  CONTINUE  OVER  BEEP PI7[M] GO SUB TAN  LINE  SAVE [R]SGN VAL$  FORMAT ~~ NEW "rAT BIN ~x< COPY  LOAD ▝USR  LET  OUT y INPUT ©[P]▚▚=IN  BORDER  LOAD  RANDOMIZE <> CLS [I] COPY  CIRCLE  AND |} BORDER ^ OVER [F] LINE =ACS }_>= NEXT  TO *TAN  OR [O]▜ CAT ~STR$ P8 LIST  THEN © INPUT  LIST `(& NEW  DATA  CLEAR  CAT  OUT  LPRINT  CAT  CIRCLE [S] RANDOMIZE U[P] LLIST  PLOT   RANDOMIZE STR$ s© GO TO @ COPY *FN PI q FORMAT [S]{ STOP [Q] CIRCLE Q@LN UPVAL S LPRINT  INK fV OPEN #LEN  ERASE H CIRCLE f& THEN c BORDER IN  LINE TFNOT  RETURN [F]PEEK JSCREEN$  CIRCLE . CLEAR POINT *UT TO O CLS  LIST  OUT  DRAW zJ RETURN /0FN * IF U[A]= COPY  DATA  AND  INVERSE  MOVE n DRAW w RANDOMIZE  BORDER  RETURN zI LIST  LLIST  CIRCLE ? LIST  INK INT `USR M PLOT  3{ TO  LET y READ ~© PLOT  © LPRINT f RANDOMIZE  COPY t BRIGHT 4"<SGN ;[M]y DEF FN } NEW ~ NEXT ?©IN VAL PEEK w LET  COPY ▝= INPUT  CAT SGN  BRIGHT = INPUT 87 PLOT  > CLS , RETURN USR  STEP  ERASE  DIM NOT [O]IN ...N RESTORE ▙ BORDER CHR$ / CLEAR  AND CODE 2*go IF  INK EnBIN q[R]m> COPY ov[M] VERIFY  DATA  LLIST f OVER  READ ~ RETURN !t IF 6#COS r^,p INVERSE  CIRCLE  BRIGHT  OVER ASN aS|ATN  LIST LN ]O[F] GO SUB VAL E3 GO TO CODE 4tNOT RNDF&FN NOT }( CLS [N]SIN STR$ [U]1 FOR  OVER  IF ^ DATA / STOP  MERGE  OR STR$ SGN  COPY RND ERASE  IF  NEW  CIRCLE  OUT : RETURN }CHR$ <USR  OPEN #v SAVE 8>=c PRINT ! TO INKEY$ AND o© INVERSE &) OPEN # DRAW `" CLOSE # TO !POINT SGN mINT  GO SUB [Q][H] PAPER ASN FN ACS iCOS PACS [F] DEF FN [N]u MERGE  OPEN #SG CAT  GO SUB _ DATA d2[P]Q>= NEW 9©COS 2 TO  COPY <> STEP x THEN < OPEN #YlA BRIGHT [T]COS TAN ▝STR$  POKE z STOP BX LLIST PI STOP  BEEP  DRAW  CONTINUE  CIRCLE ;i>= DIM  INK gCOS  INK m DATA  PRINT _/[U] TO  BEEP  PLOT  c GO TO  FORMAT  DRAW  AND  INK  FORMAT K INVERSE :M LIST  INPUT  CIRCLE <=c[K] STEP PICHR$  AND ASN  PAPER ..NOT  CLOSE #J VERIFY <>[S]© STOP /<=*VAL + THEN VCHR$ [G] RETURN NOT 1:{S▘ CLOSE # CLEAR EXP h DATA NOT 7 RETURN rUSR  CLEAR  RESTORE !: NEW  LPRINT / CLS v NEXT  LLIST <>i[K]]'POINT E▙|4 CLS g LINE  FOR  OPEN #| OUT ▝YjBIN VAL$ h<i REM <!▙[P]$-NOT INKEY$ STEP  LET SCREEN$ f>=<>!7 <> OR : SAVE _ CIRCLE PI DATA  PAPER  CLOSE #<> FORMAT  OR  VERIFY TAB ] PLOT  !< NEW !*H[K][S]ATTR  AND [C]<>B BORDER <>^>=TAN |f>= CLS [Q]0 NEXT >= INPUT  ERASE  PLOT   REM  AND ASN (>=[P]U LINE SIN [C][Q][O][D] ERASE  COPY  OR [D] BRIGHT CODE w BORDER  DRAW  PAPER  TO * BEEP n>e NEW  OPEN #=  SAVE CODE  NEW  LINE  DRAW :M OVER  MERGE  INK  THEN >#9w PRINT  COPY i GO SUB  CLS ▜ THEN O INVERSE  SAVE BIN ![Q][M] GO SUB s DEF FN  TO  CAT T RANDOMIZE  FORMAT  OPEN # SAVE  NEW O&[F]ASN ~ COPY LN  LLIST VAL$ w,[K] FLASH  OR  REM CODE i LIST { TO vSIN  PRINT v FOR  GO TO SIN VAL CHR$ & ERASE #BIN [P]% LINE |CHR$ [U]}I"6[K] DRAW  RETURN e▖MELEN ^8ATN +~29~CPOINT i RETURN  BEEP  ERASE SIN  OR ▚ READ PEEK xNOT N]ACS fI STEP GUBIN RND LLIST F LLIST USR TX READ  DEF FN  STOP  CAT !zX{>= POKE  PRINT w/SIN >=[K][S]-[L]SCREEN$ rI&[N][A]TAB CODE )IN [E]LN ~▙N▙N INK ▝$ STEP R[E]Q& FLASH  RANDOMIZE L FLASH q TO  VERIFY CHR$ D▟ LPRINT s RETURN  LINE SQR <=g[K]Yg3g; RUN kF PAPER [A]ko$  CIRCLE ?NOT 1TAN xnACS )[C]IN COS  CONTINUE PEEK [K] OPEN #YUSR  CONTINUE } LET   OR >[A]2X ERASE g[N]WSIN |V STEP  NEXT  DEF FN STR$ g<> DIM  STOP  LLIST [I]EXP [S][I] SAVE  SAVE 0CODE  INVERSE ▚_V LIST  PRINT  s DRAW # NEXT p FOR U@USR  STEP [L] FLASH / BRIGHT NOT O[P]K DIM  STEP 9 RETURN  LET d GO SUB _ACS goASN [A]JSTR$ TAN XlSIN  REM NOT H[U] DRAW "STR$  CLS S3[O]▘ BORDER  IF  REM  AND [S]<$PLEN t IF  BEEP  PAUSE  CLS NOT [P]IN CONGRATULI LIST zS@Y COPY U HAVE ERASE  BORDER MP DRAW E$6D HINKEY$ PAUSE G COPY M!2 LOAD  DATA :BIN  OPEN #uO AND ▝ LIST  LOAD $>=_ PRINT }& BRIGHT >1Bo~ STEP [T] MOVE BIN -e%USR kCODE  RUN &RND INVERSE  LINE a>USR EXP @ PAPER |BIN G[E]RK▙ CONTINUE  LLIST { VERIFY  REM AEXP >=F POKE [S]P CIRCLE ATTR hf[G] AND [P]0 MERGE g<>[ CLS NOT  BRIGHT BIN [P] BEEP  GO SUB S[P]R'[P]ATN URNDPI POKE ~ FOR q[B][K]* BRIGHT  SAVE b RETURN WACS [L]▟NOT 6 OR NOT L FORMAT  LINE USR l25t ERASE 'uT OUT 9[D]K<>▙CODE  DATA  COPY F PAUSE NOT ▛Sh' DIM hN PAPER v[H]EXP :[L]{<=l| OUT [J]_B<=* CLOSE # TO  GO TO 2[C]| PAUSE *] FORMAT %ABS ]▛IzZ OPEN # STEP _- OVER 4` FOR  OVER PSGN e OVER 1[E]R OVER { INVERSE $VAL  SAVE  INPUT  STOP  OUT  OVER 3 OVER  READ g~ OUT ?CODE  CLEAR  AND SCREEN$  CLOSE # OVER ! LPRINT  PRINT  OR  MOVE  LLIST 6dAT TAB INKEY$:RNDABS y PAUSE ?▝2FSQR USR  INK  PRINT  PAPER !p@[A]7 FORMAT  CLS  LLIST kNOT %USR [M] COPY  STEP .~ FORMAT 6 PLOT  TAN m CLEAR o<8 DRAW  GO SUB B= AND 0 RESTORE  DRAW  READ EXP  GO SUB K6/ FOR ! RANDOMIZE  INK <=4*[E] COPY w$ IF  LLIST <>© DRAW SQR [D][L]>8) BORDER  LLIST z}w FOR  FLASH ABS _ RESTORE  POKE  LOAD _ STEP STR$  DRAW !iYc RETURN  PRINT T]6D VERIFY u3Jm GO SUB  IF 6FO▙M;N CLS  INK JLCOS / ERASE : FOR TCOS  DEF FN X CONTINUE AT U^ PAUSE INT  THEN  COPY ▛SGN SGN [P] VERIFY  RUN  DIM  OUT <>M RUN  NEXT  CLOSE #. LIST * BORDER LN SCREEN$  LET [U]- RESTORE UINKEY$[I] ERASE USTR$ 7[P] LPRINT  DATA 5 RUN .>=o$ CLS ATN / THEN ^< NEW  BRIGHT 7/TAB 0IN "▖y=NOT IN  FOR wIN # FORMAT [N]>[L] INK SCREEN$ fXA CONTINUE [C] LOAD [ GO TO  RETURN 3 REM ACS  SAVE  CLS | STEP  DEF FN <=>OjG# CLS [I]LN [M]VAL g LIST % MOVE ASN [I][E] PAPER <=ACS  LET ~T PAPER ▛ OPEN # BORDER  OVER CHR$ [N]o©P ERASE Ty[E]NS:-U2/}[J]SQR PCOS  DEF FN TAB ▜v COPY <>uSGN ▞PEEK ▞ NEW  LIST  PRINT  LPRINT M LIST F CIRCLE PISTR$ [SIN 0 CAT ~3kNOT o OR [M]g
  63661UPOINT G STOP I PAPER TAB dY[F]KVAL QS[P] FORMAT HO} REM IKEP LIST 0CS CIRCLE  OPEN #L RUN A OUT C CAT PI TO [Q]s PAPER  RETURN  CIRCLE ( LPRINT  NEW  CLOSE #PIBIN INT COS [J] OVER % NEXT  ERASE TAB qUSR  NEXT TAN  NEW INKEY$m CLOSE # AND & MOVE CRNDb[L]S[N] INK [N]POINT NOT : LOAD  OUT [U] CAT ▜▛EXP CHR$ <>5 DATA o PAUSE EXP wx DATA  LPRINT COS [K]= OUT IN  BRIGHT ~▚0w RANDOMIZE [K] ERASE @ LET -[R] RUN BIN IN ▙Z LPRINT [P]WCODE ZN6&[ASN f VERIFY  THEN  DATA CODE  CLEAR NOT BIN  OUT  LIST <= STEP  LIST nIF DEF FN  AND [O]RNDhSQR  MOVE [C][K]CODE  LINE [L]FN  MERGE 0COS  BORDER ▝FN NOT cjXBIN  GO SUB 7LN  FOR G IF 6 VERIFY LN Lq[E]]_ INVERSE SQR LEN  PAPER INT  DEF FN 7[N]<SQR D>w STEP 4[M];H;R"[N][N]▝ OUT  LINE SQR V)NOT  THEN ▚PIE PAPER ▜CO,K[T][P] IF  REM SR5SRND OPEN #<>5 FLASH  VERIFY TAB Y POKE TLf BRIGHT  INK  BRIGHT [D]T}▘ OR  OPEN #Tf CAT fo= NEW  ERASE Y LINE :M FLASH POINT  CONTINUE T<>[I]TAB CHR$  SAVE 0[U][N]H LPRINT ▜ACS _Qc^NOT  DIM <=>8[Q]Q5KQ[D]n[R]<>ACS vi RETURN X PAPER VAL  VERIFY cOQLN 3 POKE Qs OUT  SAVE Q LPRINT  COPY [K]STR$ QBIN IN ▛QPPOINT [G][T]QJj[U]%AT [B][P]USR 0s`CODE 7.QKINT  AND  FORMAT [A])> INK  LINE 0[L]_▝ MERGE [U] BORDER ATTR NOT  THEN BIN 5 AND SQR ATN ^>=VAL$ ATN B TO X+[S]NOT ▝[O]VAL$ INKEY$ STEP XU= LIST ▜, VERIFY V[D]Y REM COS ▟/ZO}]LPOINT [ FLASH  OPEN # BEEP  CLOSE # FLASH  VERIFY W MOVE ▜6f▜ OR ~ INK  RETURN  INPUT Y▜ LLIST STR$ b OPEN #▜ FORMAT g3[S]co RESTORE [G]I MOVE COS AT  STOP )CHR$ 8[D] DIM L SAVE ZK>[M][M] LOAD 4 RUN I THEN ▛e RETURN  STOP  ERASE  OR  PLOT   DATA  SAVE 1USR C COPY [M]?▖[M] IF  RESTORE DATTR [M]BIN [D]TAN  OPEN #[M]@AT  CLOSE #r[N]`;X STEP O[C] PAUSE VAL USR  ERASE [N][C]VAL [N] AND d TO  NEW [R] AND $SCREEN$ &[N]CHR$ '0 LINE CHR$ ▝ MERGE .) BORDER ATTR NOT jTAB g FORMAT SQR ©{c DRAW [H]cdeP<2@ RANDOMIZE Bxaf,< CLS ' DEF FN [S]P{PEEK caN`jr SAVE nz,beudxCHR$ p[H]Ol OR _USR  FOR  REM Py PRINT TAN ASN [J]AT  INPUT <= SAVE mIN  DRAW CODE  CLS  RETURN 7VAL TAN TAN  IF 4 ERASE  THEN  STOP " DEF FN [O]TAB [D] INK !e ERASE ▗ FLASH  NEW  CLOSE #*w LIST 8j<> NEW  INVERSE N DEF FN SIN F[B] FOR  DIM ▛ATN  LPRINT ATTR [J]CHR$ ▚, OPEN #Na~[K]-▚ DATA =w FORMAT  BEEP ▗ TO  PAPER  POKE +SGN :n▞>=ACS @V▚# LPRINT [T] RANDOMIZE BIN [U]X[UI ERASE  DEF FN BIN [J][T]#▖6 COPY <>x▜B THEN _SQR  COPY [P]y NEW ▚# COPY STR$ V_yO!] ERASE ~ GO SUB / FOR j} NEW  OPEN # RETURN xmATN ABS ATN  FLASH CHR$ LN  VERIFY G. CIRCLE  PAUSE _LN  CIRCLE POINT T RETURN G{LN  FORMAT NOT U CAT YV BEEP #=( CLEAR  BORDER O]BIN [H CLEAR [S] VERIFY [P]d▙J RETURN  =ABS FCHR$ ^ OUT ▗R} GO SUB |[P]|W LINE < DEF FN CHR$ <= VERIFY 2 READ BIN  POKE FO BRIGHT 'ATN  BRIGHT [R]PEEK [S] ERASE  RANDOMIZE  DATA PEEK [A]© CLOSE #SGN [T] VERIFY  RETURN CHR$ X| ERASE CHR$  CAT CHR$ D SAVE >PEEK GOnA[Q]USR -RND THEN USR [K] BRIGHT s STEP  PRINT SCREEN$ WmSCREEN$ ] FOR  OUT G}L▘>= LIST  MOVE  INVERSE Orj0 CAT [C]2COS EXP © LIST ; INVERSE + PAUSE  SAVE  OUT K LIST Y PLOT  Ss: ERASE Yl©y)U OUT [E]T<=HVAL RND ERASE [O]SQR  OVER  DEF FN ▛F>=VAL$ K BORDER [S] DEF FN  INVERSE 1_ READ [S] STOP  BEEP [G]EXP  NEW pS DRAW VAL$  ERASE  CLEAR [P] OR [K]*[J] RETURN sQ FORMAT  CLEAR sINT F GO SUB <>y6 RANDOMIZE QTAB _]STR$ CHR$  BRIGHT  CAT ;[M]}p▟ CLOSE # CLEAR  RUN > DIM Z NEW "s[N]$b STOP q[B][N] SAVE NOT PEEK  REM ABS ATN W[H]<= REM  OUT  DRAW [O] CLS  COPY  REM [O]f#! FORMAT PI  CLS *[Q]&[N]= FOR AT  PAPER 6 LLIST  PAPER ~▞[D] CONTINUE ~3 PRINT L4e[M] LINE < LINE P5 REM 0h GO TO Z[H]▜USR ;NOT S STOP n NEW  OUT  STEP USR  MOVE  FOR  OR ^ LIST N LET  GO SUB y LET  GO SUB PEEK  PLOT   PRINT 1 RUN  PLOT  :]=o DATA | PAUSE 5*INKEY$ LINE [R] FORMAT #o▞ INK ++H ERASE COS  RUN [R] ERASE  CAT [E] STEP STR$  FORMAT [F]SGN ABS qSQR [U]_&t READ ~ CONTINUE  READ  FORMAT 6[A]INKEY$#▘wn[PI READ + LPRINT TNOT t IF / PAPER [L] FLASH <> AND [I] INPUT  PRINT  COPY z GO TO  PRINT  LET 6 THEN e MOVE  DRAW  CONTINUE  OR  CAT  PRINT [D]USR Bxk NEXT Ax NEW A`VAL$ A PLOT  ABS B3L DRAW B CLEAR FPEEK [L]BIN USR <>▟[L]ABS #~PEEK ~nSGN ONOT 5 MOVE  COPY {[K]▝ DATA [S]▘[J][G]f▗FN  SAVE [K]_ACS l OVER <> NEW `G AND Xg FLASH G INVERSE CODE SQR } GO SUB 6|? DRAW PIn▘% PLOT  Y LIST  DRAW ?[G] MOVE 3"VAL LN =IN [P] NEW + MERGE bNOT  o),aBP INK  IF [N]a6S1[Q] GO SUB CODE (justCODE TCODE SQR TAB H CLEAR ▜TAB [N]uVAL$ INKEY$▜ASN ATN dAF▝[N]Gr.[B] CIRCLE  TO  CAT ▜* OR  STEP  DATA  CLOSE #TAN  RETURN  TO  OR ACS z MERGE m[I]0▛[U] FLASH +[H]9ASN  BEEP STR$  NEW F LOAD S CLS  CLEAR SIN  PAPER # CAT ATTR ▝GBIN  RUN  PEEK  CLOSE # INK E OPEN #)<> FOR COS 5evO IF / OUT n]EXP LEN ^SPEEK F8ATTR ▟NOT  COPY  CLOSE #pBIN }hSGN NOT [D] CIRCLE ! FLASH  REM >=zkRND VERIFY [O][n INK > INK  OVER Z;ACS V[S] FORMAT  OPEN # CAT ▚ FLASH  MOVE [L] DEF FN  ERASE ▖[O][N] VERIFY : RANDOMIZE _8. PRINT [N]CXCODE  TO LN LEN  TO  RUN  STEP [I]f:SGN [E]CODE  RANDOMIZE  OPEN #>G<[L] MOVE w+PEEK G CLOSE #[L]P DIM  OVER  CAT [Q][B]PI DIM IN ATN LN CHR$  INPUT  OPEN #NOT  LET RND[K] RETURN [J]d RETURN  SAVE ▜>?[B]R3 LPRINT  OVER  STEP POINT <I SAVE  OUT oSQR  CLOSE # RETURN  TO < PLOT   BRIGHT  VERIFY  CLS SIN }hsCOS v VERIFY INKEY$ THEN  PAPER s3"* STEP  INPUT {COS 21 FLASH >76 PAPER  GO TO ;> LET M@ FLASH  GO TO E>7J PAPER  GO TO T AND ,r>=x CLOSE # RESTORE d5 STEP r GO SUB  COPY [I]w PAPER <>>NOT n CLOSE #: DATA  OVER ASN  POKE X BRIGHT [I]C▗q STEP  BRIGHT [M]Y©▝3 OVER  OPEN #[R] OPEN #NOT i& OPEN # BEEP [L] BEEP  READ TAB ▟ BEEP  DRAW d<'rk FOR ATN R PRINT [D] DRAW dNOT j:[T] VERIFY  GO TO SGN  LIST >=_ PAUSE  LINE [U]PI[K]}*{[I]FN SCREEN$  IF  REM :x/ NEW  CLEAR  RANDOMIZE p CLEAR n}2E STEP ▛ DIM [U]DM▜&BIN u SAVE |> INPUT  PRINT  STOP  BRIGHT  BORDER px^ASN R LET SIN   RESTORE  FOR + SAVE E READ  LLIST bSTR$ [P][I][P]TAN ▜ LLIST }+ BEEP  LET oi INK }▘ FLASH  LINE  CAT + IF VAL h READ >=?7S[C]<2 PLOT  {I}HASN  OUT [K]NSIN  LLIST K[G] GO SUB R[ATN  INVERSE Su.T~ATN  PAPER / ERASE ASN  OUT DSIN  THEN z VERIFY GWM[<>`DBPEEK  NEXT  INVERSE p.q_ BEEP  RUN s[L]VAL ▟ LOAD ▛STR$ <>INKEY$ VERIFY  VERIFY  BEEP P OR ! MOVE YgVAL$ [L] AND @SQR  NEW  CLEAR }Q FORMAT { BORDER ASN CODE  REM  DIM ATTR zCOS  OVER  INK  FOR  GO SUB 7 BEEP [STR$ <> LIST ZV5 SAVE  FORMAT [B]LEN ABS [R]u[Q] [H] LPRINT  DIM f>=}2NOT yCODE y3 PRINT  STEP FN {3 RANDOMIZE  STEP [I]2n TO s LLIST ▜ INK ▙AT [M]5 FLASH ▛5U FLASH b INVERSE dCODE !'ATN &>#ABS  LOAD xLEN   PLOT  oCODE  CLEAR i CAT  COPY  BEEP  POKE <=RND VERIFY  CLEAR ! LOAD AT  OR  CLOSE #s THEN IN  CIRCLE VAL [N]PATTR   LET IN >E[F] LLIST C BORDER E[O] LOAD AT 6F+ACS  DEF FN GVAL$  REM COS  DEF FN  FOR SCREEN$ #VAL$ "#▞ACS u BEEP D^ MERGE V FLASH xESQR ! OPEN # INPUT >=E=SIN  STOP /Z0RRNDo▟X COPY  DIM  LLIST o1ATN  NEW  LIST ATTR  FOR uHL{NPEEK $~3A! THEN X STEP d BEEP  STEP  FOR RND LIST ▖iN COPY CHR$  STEP @" FLASH  OPEN #,ATN  PLOT  *POINT  OVER # GO TO SQR [I] LOAD # STOP U BRIGHT  STEP  SAVE [6/! LINE VAL$ RND[F] RUN SCREEN$ TAB  BEEP  CIRCLE  INVERSE  STEP  PAUSE  LIST PEEK 3 SAVE ▘w▞ LLIST  COPY } FLASH  ERASE  DEF FN  THEN y THEN ~ BEEP :.}USR PI[D]EEXP " CIRCLE A[I]d STEP  PLOT  [M]f ERASE  STEP ABS AT  LINE  READ  NEW c PAPER  AND O FORMAT q+[D]7[T]c2#[D]POINT RNDSQR  POKE [UN TO *t[k STEP  OPEN # NEXT [D] OVER  OVER LUSR TAB LN v PAUSE SGN |[K] DRAW ATTR LN } INK { MERGE  BORDER USR 0[P]TAN xBIN `v RETURN  BORDER EXP <=S ERASE G"XIN {q<= CONTINUE  PAUSE  CLS [M]VAL$  LIST e CLOSE #@= CLS  RESTORE  GO TO  OR _CHR$  PRINT <>▛cPIVAL$ STR$ TAN ABS [N] CLOSE #[O]7 LIST To5ATN MD<>$ MOVE  DIM Zw_ CLEAR _9[K] CLEAR / COPY *SGN  FLASH >T CLS  PLOT  ▟V[C] CLS  INK ~& PRINT / BRIGHT nh CLS  SAVE  SAVE  PAUSE  INK f RANDOMIZE NOT % DRAW N TO [Q] RANDOMIZE  RUN  FLASH  THEN <> LLIST :[H] RUN NOT  NEW vNOT  ERASE  MOVE  INPUT RNDCHR$ p INK USR *ATTR bSQR ABS  RESTORE  VERIFY EXP @[P]SQR @Ls STEP ![E] OUT g LLIST  AND }oINT >=Y? DRAW  AND <>%I<=  INK  POKE  RANDOMIZE  REM  OVER >:| COPY d CLS > READ 6RND[R]H DRAW p|INKEY$ BEEP  SAVE [M] PRINT y INPUT ^W RETURN POINT 1 RANDOMIZE 7[R]{ VERIFY ATN  VERIFY OCHR$ * PAPER  INK  VERIFY  NEW 0 LLIST  DIM ( LINE $TAB  SAVE  GO SUB RINT ATTR ▘IASN ▞ RESTORE ! POKE "S} VERIFY Ku OUT  ^jtT IF ▛4 RESTORE EDjK MERGE _dPOINT -pYCODE : FOR $▙ PAPER  PLOT  <>` RANDOMIZE  CIRCLE ©]i9INKEY$<=f OR  FOR G[A]LN  OVER = LOAD <=6+ ERASE k2>=COS INKEY$/ OR NOT y[U]O OVER  CLEAR <>[M] GO SUB [[P]f!LN Z PLOT   REM  TO : BORDER  OVER !PEEK  LLIST 1CODE  CONTINUE ▝ LINE  DIM G} INPUT ;DPEEK J-[F]! BEEP  INVERSE  POINT J,*TAN [F]>=[N] RESTORE y OPEN # OUT  LET FNOT Y FLASH n[L]v FLASH ACS  FLASH ACS  INVERSE ATN  GO SUB  RANDOMIZE V STEP jCOS  SAVE G79: VERIFY [D] PRINT NOT 5 BRIGHT Pz~ OUT  NEW 'w FORMAT ▗ AND o[G]<>Le ERASE  CIRCLE { PAUSE EXP  PAUSE  NEXT e STOP  INVERSE 3@" CIRCLE  TO  CONTINUE  INVERSE  NEXT L GO SUB g RESTORE  PRINT  OR  STEP CHR$  FLASH STR$  LET  LLIST  NEXT © COPY #CHR$ ATTR  FLASH <> AND 0 NEXT j OR  FOR * AND $ FORMAT  LOAD  PAPER  PRINT  LPRINT  OR [E] GO SUB  CIRCLE 5 PRINT SGN  CLS  OVER  LINE  BRIGHT o THEN  OR  LET  MERGE % OVER  CLS . MOVE  GO SUB  FLASH SIN EXP F[J]vvO[L][D] READ [D]y▗NOT SCREEN$ ^ FLASH _ABS ▛[R]cINKEY$n RUN [C]NOT SIN  STEP Pf LPRINT /STR$ ATN  LLIST ▘ OUT  POKE  OPEN #< OUT . OUT  OPEN #g READ CHR$ } BORDER  GO TO /▟!TAN XASN u-wSZ8 ERASE  PAPER =yUSR +PGkse8>=% GO SUB [ MERGE  THEN [H]>y[F] FLASH U CLOSE #ATN CHR$ PIlP"TAN F$`ACS  RANDOMIZE  PLOT  * TO  BRIGHT  INVERSE #*" STOP  TO [L]STR$  LIST  SAVE [D] CONTINUE PEEK USR [C]F▗=kNOT ©2WATTR  LINE  LOAD  BRIGHT OG THEN $ CLEAR U[B][D] REM  CLEAR COS  OVER :LEN SCREEN$  BORDER ▜* NEXT j AND QSQR  DEF FN  BEEP f BEEP ![B] LINE  OR  NEW :ACS sSGN 'mATTR  PRINT  INK  RETURN RND READ . STEP  RESTORE [I]▞U INK w LET 1+ STEP INT  INVERSE  LLIST  RETURN Dk CIRCLE  STOP  PLOT   STOP  PAPER ATTR >= FORMAT [Q]BIN  LOAD RND LINE  TO [M]J LINE SCREEN$  INVERSE  LOAD ▛+CHR$ INKEY$,?VAL WjABS 8}SIN  THEN Y INK TAB >OY}rq/ PAPER NOT cQ INK  LET USR  ERASE PI<> READ ~COS [H] BEEP  OUT LFN ~FN ▝}NSCREEN$  OVER  LLIST M[O]^ RUN g~ RANDOMIZE  LIST w RANDOMIZE  INVERSE @ FORMAT :6CODE ATTR w CLS USR  OVER  GO TO  INK .ATTR  LET ^LEN SQR xCHR$ i[G]▚NOT nvACS [C][J] OPEN #[E]W▝ NEW * RESTORE *" LLIST [C]jUSR <= CLOSE # THEN  STOP B BEEP m CIRCLE N'(s<> SAVE 6 ERASE f4:ASN  FORMAT ▘<~AT [I]ABS & AND s8w#3 READ  STOP  DRAW  IF  READ <N^~ PAUSE ▚ SAVE WBAD MOVEvBN'TSXG OUT WNFRM1 COPY }8A6ABS  DRAW  BEEP ACEGCq DRAW Cq<= VERIFY COS (2<6zFPZ +s4 MERGE <= STEP  COPY  STEP  !"#$%&'()*+,-dcba`_^]/[ZYXWVUTSRQPfMLKJIHGF SAVE 7E[P]2 COPY &-,+ OVER  FOR *)('9 NEW ©[J] OUT [S]]T[P]K[J]ATN  LIST 6[B]. STEP SQR © LPRINT [L] PAUSE FN © RANDOMIZE wg} BORDER ? LLIST #/ MERGE 5{TAN i PRINT ,INT  STOP  LIST +LN EXP  INPUT t LPRINT V INK wJ#[mK OUT ACS LM RESTORE [R] FLASH  STEP  OVER  LPRINT Y4▝ STEP  INPUT Kl[L][U] THEN ;Q STOP Uj LPRINT [F]y[J] RANDOMIZE EXP =_ OR LH BORDER F MOVE  LPRINT W<6{} NEXT  INVERSE  DIM 6 TO & OR WTAB "U[I]9 STEP  VERIFY   OR [M] INK POINT  MERGE ©>=[T] FLASH SCREEN$  BEEP  INK  PLOT  [E]f CLS IN SGN Vw INK O CLS PIW/; OVER yVAL  INK 2PwACS z GO SUB d INK ` LLIST STR$ w> RANDOMIZE GSTR$ CHR$ S LPRINT  OVER  LET j▝COS nOC+n RUN ip&[O](rrw[I]USR Rx VERIFY  PAUSE ▘▚ RESTORE [Q]e▚^ CAT  VERIFY [F][E][J]T]SIN  AND [E]s<>POINT r/3H[S]n LINE  BEEP  TO  MOVE  PAPER  LPRINT  RESTORE sFN  LINE  GO SUB  BORDER HH STOP [O] NEW  LLIST  STEP g READ f RESTORE , AND  FORMAT <> GO TO Y// STOP  CONTINUE > LOAD  AND ABS [S]uUSR LsSGN  BRIGHT s RETURN INKEY$nt[C]<> STEP   LOAD NOT  RETURN  MERGE [I] RESTORE ATTR  VERIFY _USR ] OPEN # STOP C INK O>▝ RETURN % PAUSE  DIM UM`PEEK PEEK  RETURN FN  ERASE  READ 5; TO   SAVE ATN EXP >= GO TO  TO CODE [B]AT 9INT 8 PAPER INT [B]/INT  SAVE  OR EXP [M]ABS qo[K]ooTAN  DATA ASN  ERASE ACS Cm.wLEN  LIST  ERASE <ky/^CODE gATTR  OR BIN eNVAL  PAPER CODE fVAL a LOAD  CLEAR VAL ~ INPUT  CLEAR ▚ INPUT d AND  DIM ~ LET >CODE  INK ^PEEK U BEEP s CLEAR  PAPER  MERGE ~ CLS ~ AND  2L RESTORE oABS Y LINE I PRINT  CLS INKEY$COS  CLEAR  LINE + INPUT [P] READ  STEP POINT USR SGN  RESTORE ▘ CLEAR /ATTR 5 BORDER  MOVE  RESTORE G INVERSE  VERIFY  AND O[L]LN  CIRCLE >=[EXP  FORMAT M} PLOT   OUT USR  VERIFY POINT d{▗ BRIGHT  LOAD STR$  TO ▖6LEN  AND  AND y] GO SUB  BRIGHT  MERGE E CLEAR  RESTORE <<- DATA  LLIST : DEF FN  OUT Z RETURN  TO ▞ SAVE NOT [L]▟ RESTORE EXP  PLOT  yc INVERSE  LINE ~fy{1k{_TAB [L]q{[U][N]6 FLASH CE NEW CHR$ NOT  INPUT RND[T] SAVE w NEXT ATN yUSR & CLOSE # LINE [B] DATA Zu[L]SQR h DEF FN  STOP <[S], RANDOMIZE  ERASE  TO > AND  BRIGHT  BEEP [G]ORNDnASN 6[B]POINT ▝EXP  GO SUB PEEK ▛ LET [E][D]POINT !ATN v RETURN 5▙ FOR lc? RESTORE 4t[G]G DIM ▛ OPEN #^ STEP  NEW '5 CIRCLE z[G] REM _O STEP q6 CLS H STEP PEEK  FOR N DRAW O:▚yF PAPER CODE CODE CODE ▜0( ERASE % GO TO f.c$LEN  FOR LCOS  RANDOMIZE / OVER  LET <~W GO TO ▙ LLIST  IF  STEP ▙ BORDER EXP  INVERSE  INK 2[K] CLS [L]>d STEP [L][J] STEP  ERASE ▚ CLEAR [I] RUN  CLEAR  OPEN # OR . SAVE  LLIST  NEW  RUN Ya[N]=<=XTAB gIOP RESTORE  OUT ,Dp! IF ASN  INK Z6 PAPER  FLASH n RESTORE ou OR >2 CLS  CLEAR  FLASH  RETURN  NEW >= CLS  NEXT | LINE  THEN  REM  BEEP s LPRINT  PRINT  STEP  PRINT nAT STR$  DATA 9% PLOT  ▟ASTR$ NOT [U]]i[P]D LLIST [M] INVERSE  BORDER  THEN [O]0 STOP [L][P] OR [Q]COS [N][H] NEW  CLOSE #yK<>EXP  RUN  GO TO Jd OVER [P]L>=[O] FLASH   PAPER p%F<>LEN ,Z[R] OPEN #[Y7 CLS c5[P] GO SUB [K] THEN  CLEAR  STEP  BRIGHT ▖>=]ATTR FN ATN hFN M8 RANDOMIZE LN . FOR IN  STEP SW OUT ACS ~ OVER  REM TAB A FORMAT [L]LEN ASN ▝[L]IN h> CLS Wv POKE SQR ># REM  DEF FN [J]2]XEXP ] LINE , MOVE SQR  LPRINT  VERIFY  DIM [G][B]▗8 RUN  AND  LOAD NOT n$ GO TO  NEW e CAT ? IF [L]H"STR$  AND  NEXT k OUT x▞g CLOSE #] RESTORE ▟<>hNOT ACS  RESTORE © CLS ▟PEXP ▟[P]EXP  RETURN @>=SCREEN$ Y BORDER *~ STEP  RESTORE IN  POKE  OR  LLIST  INPUT h.# OR PEEK  NEW } FOR -FN CHR$ ABS  TO u:$w GO SUB VAL o[H] NEW  OUT + FOR <>!▛X2[I]INT [S]= STOP  IF QX REM SGN  COPY 6 LLIST A RESTORE x[B]@[M] NEXT  FLASH JTAN  BORDER  DATA  DRAW 4INKEY$ OPEN #_ DIM  VERIFY #^ REM ▘m INK  LPRINT &[D] LET @ OVER  LET VAL  FOR SGN ▟ OVER  RETURN  CAT  FOR 7INKEY$▙ READ  READ [D]M CLS VAL  FLASH d,-POINT NM FOR ▚X2S▝l^O SAVE  MOVE  GO SUB !▜Z▖[H]TAB  AND L FLASH INT  DEF FN  DIM 1$~EXP [H]![E]v FLASH ▚@ REM [N]; TO h[I] CAT  RANDOMIZE h STEP k[K]SCREEN$  FLASH  OUT [J] OUT  AND e LET  OUT [ CIRCLE maK IF  SAVE ; DEF FN TAB C▜[N]SCREEN$ [O] POKE n<=9STR$ NOT ~FINT Xo: POKE  MERGE VAL _▖▜ INPUT [I] INPUT 8pK▜ DIM  PLOT   CIRCLE  LOAD  FORMAT r ERASE [R] CLEAR VAL  LLIST 8 CAT  LINE o)F=&}|S CLOSE #t; DEF FN  CLOSE #%▚[K]C VERIFY /▞ DIM :l IF  PRINT  SAVE [G]▜ STOP h[J]BIN v IF  LOAD U/ NEXT NOT :[L]PICHR$  COPY  LPRINT D DIM CODE  FLASH / NEW CHR$ O RESTORE POINT ABS NOT 8[P]eUSR DABS  CONTINUE @gVAL$  RUN ; STEP eH[ LET  TO x>=>IN ▛n COPY @d+<>[A] RUN [N]▗ INVERSE p[Q]  PAPER ATTR  NEW  RANDOMIZE  THEN VAL 3vCHR$ d SAVE Tmk+ ASN  ERASE H DRAW YOU AREB VERIFY AT TN. GO TO ©@GtABS M 9 CLEAR  INPUT R@!/ REM " FOR /[G] CLS SCREEN$ 5 LINE ▜ REM ? RUN 7kTAN  REM ATTR  SAVE <>C GO TO !POINT ACS 11fSGN  OPEN #VAL$ UPI INK  STEP d▛A REM  OUT [U] VERIFY 0 IF I THEN '_INT  SAVE ^#V INVERSE srU INPUT TAN  DRAW c[F] CLEAR R LET 0. REM 2-[T] ERASE TAN  LLIST COS  PRINT  LOAD  THEN G SIN STR$ yVAL O8l RUN SCREEN$ S OUT >`TPIIN INKEY$ INPUT W©* LLIST .<> STEP EXP  FOR { SAVE  VERIFY  LIST  THEN ` PLOT  ▜ LOAD _ CLEAR !:/Q LET  STEP  FORMAT  REM NOT O[K] LLIST  GO SUB  FOR > READ @Rr POKE ▗L STEP q DEF FN D DEF FN [U]INT  NEXT RND NEXT [M]Em6 PAPER  GO TO  PRINT H GO TO , PAPER PI2 FOR ATTR  CLEAR  BRIGHT _g@POINT ND DEF FN  VERIFY <>3 READ H: MERGE F' BEEP  INK USR SCREEN$  OPEN #EnpgoLN PsvG GO TO <>A" INVERSE 9=? GO SUB NOT  COPY e INVERSE # NEXT e INK *? GO TO wbj# CLS ?©▛[I]4f BRIGHT U RESTORE K[N] CLS =:_ INPUT [C] MOVE  DRAW [L] FOR  LLIST  LIST ~ MERGE w]O THEN © STOP !/6 COPY ~PI(▜v 'r,:8 STOP CHR$  VERIFY  [0 DATA  OPEN #8 LPRINT  PRINT SCREEN$  PAPER 45sB▖wmv▛  LLIST [O]oT_3 NEXT v DIM  CLEAR LEN HOS INK COS }CHR$ RBxCNT DIM @LKEY, COPY @FT BORDER 1: FOR  DIM [T] BORDER RIGH CLS SCREEN$ JUMPZ DIM EPW] INPUT RF]_I▚ FLASH * DRAW NOT OPAQM©. LOAD G RUN  CONTINUE YOW_ DRAW  INK g LOAD =W OVER ©O▘9 CLOSE # CLEAR G© IF  RETURN  AND W CLS 4 IF  POKE IN  OUT  DRAW USR 0 GO TO ©B OUT NOT  NEW  CLS t RANDOMIZE  RETURN  gW ERASE [G]5PEEK IN [L]© CAT '58670[R] FORMAT 9▙[D] MOVE x FLASH m THEN  CIRCLE mSQR  LPRINT n FLASH  FORMAT >=z FLASH USR x CLEAR  IF CODE  OVER  GO TO f[ THEN [J]BIN [T] RUN >ATTR  CLS [F] LIST  BORDER  PLOT  f'cIN / LIST 6IN =CODE nkLEN  FOR / COPY EXP | PRINT ABS <> PRINT  VERIFY "Q DATA W RUN [J]©v MERGE  BORDER / LINE ▞ INK * BEEP *U LIST  GO SUB  IF -<d< BORDER ABS  COPY Q>~ BEEP = SAVE X+SQR 7K NEW  RANDOMIZE * CLS ^ NEXT 7 PRINT {PEEK  LLIST >2NATN yK RANDOMIZE RND[B]O7COS GEXP  LET  RANDOMIZE y[A]uoO~:ATTR ACS O-Ok^ATN  CLEAR 5 PRINT _S RETURN  STEP ABS ?: INK ▚_#V FOR SQR } CAT PI LINE / INPUT POINT [K]SGN i RETURN SQR G OR  MERGE  IF -$fSGN  MERGE *3TAN ABS g GO SUB CODE  MOVE E`StnNOT SSQR AT POINT CODE  CLOSE # INPUT <>INT [I] LET O+}EXP NOT  MERGE  INPUT % SAVE P~*^ LOAD STR$ @CCHR$  GO TO ABS  INPUT  OVER GEXP  STOP ,sw OVER  OVER O LOAD  THEN  REM  STOP  COPY `w CLEAR CHR$ [T] VERIFY qV PAUSE  STOP &BIN USR [T] IF [G]HD6▜` DEF FN [T]En MOVE  INPUT  LOAD - DATA  NEW  CAT [B]s> LET [B]▜[A ERASE d▞ GO SUB V NEW  BRIGHT ATN  TO 6[N][Q]V<>[F] DEF FN  RANDOMIZE m~& FORMAT  DATA g>=[D]G STEP ]COS p/▞ FOR 7[F] BORDER G7[U] FLASH  OUT ▝{LN  INK  OVER SQR !CODE  THEN  OR IN  TO 2▝[N]<[O] COPY NOT  READ  READ  CAT ]AT fP(#t^ZqCOS gPZ1 LOAD 0O{©USR @ LPRINT 0H  PRINT l`d[O][Q]dH NEW P@[O]APd[Q]Pt~ATTR  SAVE [Q]!XLN ▛▚; CAT  CONTINUE +,ATN POINT SGN ▙ CONTINUE YRND7e▞K BORDER ▞▚ OVER ▞[G]2 LOAD Z LOAD Z.INT ▞ OVER SCREEN$ W[M]SQR <>%9SQR  LET  CLOSE #[N]%▟gFJF CLEAR S OUT xg CLOSE #` CLEAR ▟ LINE xFmATN  BRIGHT ▜ASN  REM [B] PAPER ▗ij▖j35BjPI REM  DEF FN FN  STEP sConIN INT ?ATTR  NEW  LINE  BEEP  PLOT  [H]ABS {u STOP  REM . BORDER _ PLOT   GO TO NOT :=VAL 2[G] FOR  INVERSE ▗ DIM NOT O RESTORE  LIST $h INK uATTR CODE qq TO  STEP  PRINT H FLASH  DATA  RESTORE CODE )  IF  LLIST $ NEXT ▚ATN p:[J]uEXP INT * RUN =[E]INT 7<> PRINT  PAPER JCOS  LIST o IF [L] MOVE  IF [L] IF [E] MERGE SIN USR [K]<INT EXP ABS @e RANDOMIZE  RUN CHR$ fm" MERGE  FORMAT c BORDER _ FORMAT C8[H]1 RESTORE PI THEN +IN [K][K]INKEY$[O] PAUSE SCREEN$ B C DEF FN k [K]j+f NEW +yk[D][P]<> DIM SQR >E0[L]=POINT G STEP [I] GO SUB TAB  RESTORE 1oABS  LLIST 5 STOP v FLASH INT <> CIRCLE EXP EXP  INPUT /[H] RUN UPOINT  DRAW !SGN 0 OR :© RUN [P]SQR  STOP v/EXP  DIM  PAPER STR$  CONTINUE  OUT ▛@[H]ABS  DEF FN SGN  STEP  SAVE ATTR mATTR  THEN BTAB  FOR o_ RETURN  MERGE IN 0c PAPER  FOR  MOVE 4 CLS  PRINT  DATA RH^[C] POKE I POKE  DEF FN ehih REM INKEY$ RANDOMIZE e!PEEK HT▝[F]SQR hSIN ▝uSQR ]CODE  CIRCLE [P]m IF [P]c2ASN Gn MERGE  PAPER [T]o<= REM [S] MOVE [B]rSTR$ uNOT AT  SAVE W[R]ACS p BRIGHT ? PAUSE _<> OR x2: RANDOMIZE  STEP  OVER  OVER f'STR$ - PAUSE CODE {SvSQR  GO SUB  COPY  LIST  NEW  GO SUB  NEW ,p OPEN #: PAUSE X CLS  SAVE GV MERGE  THEN  CLEAR  SAVE  PAUSE [J]▜G>[A][J];vLLEN  DRAW  RANDOMIZE *[A]4] VERIFY f CAT  INK JABS  INVERSE T▗ PLOT  |BIN  INVERSE VAL$  INVERSE  NEXT  7 RETURN -SC MERGE  LET UMBAL©UP GO TO  OR rogam,_LN Gphic[O]s ndtgeE0s LIST signbyNc FLASH etr[P]IN ough.N!iSQR `L.I=NDAc FORMAT PEEK  COPY nit CLS ec LET x GO SUB vIN coll DIM e LPRINT t AND FN 8[D][O]n CLS d[H]tok[N]9iTAB 'SLI SAVE  STOP  RETURN ONST<3RPOINT [M]IN HeNF BRIGHT  INK Li[I]kINT ajf TO  BORDER P STEP <>f CLEAR ,An>= OPEN #oqJ<= GO TO TAN c▙KikS2[E]Nl PAUSE  CONTINUE f[L]& LIST Dew▖ STEP B[H]sh[P]{# FOR [K]fBIN [M] RANDOMIZE q![H]~CmSGN ASN SFN  STOP  INK  STOP SGN  MERGE [S]j'R7 OUT TAo<f CAT M[P]7 OUT  OVER @FAIefSCREEN$ [E]Da RUN SkACS  FOR ▛PI CAT  NEXT GNg▖ADABS  NEXT  PRINT  DEF FN $>= LIST S PAUSE H OUT ^VAL 35lV FLASH G POKE COS  LET ERND CAT OBJEC POKE S_ RETURN wj<>▛7C{ LET  INK [L]1▞©I CIRCLE 5G0NY7 RETURN  OR -1▖-@'[P]eSCREEN$  CLEAR 1K INPUT [I] PLOT  PH AND L2<> LINE [I]C9[S]VAL [M]3 INPUT Uq&S CAT  CLEAR o4[O]BO< AND VAL$ [K] NEW PATN S[A]N[F]PEEK  DEF FN /SIN  OUT [O] PAUSE ©1987[J]S AND  READ E LET UH?LN PI OUT CODE  CLEAR  GO SUB P COPY ~SGN  FLASH >2PEEK  COPY  PRINT  DEF FN IN  STEP F DRAW  SAVE TAN  OPEN # CAT V[E] CIRCLE VLEN ATN NOT POINT ▛ DEF FN mASN <>i; OPEN # OVER oABS  MOVE w DIM CODE  FLASH  SAVE  OR <O:F PLOT  G OR RSTR$ -PEEK  CONTINUE  BORDER 9© DRAW ABS > POKE Q LPRINT  DRAW  DEF FN BIN `>~PICHR$ ▗ GO SUB 6 CLEAR 7+ SAVE PEEK  RETURN  LINE [C] DRAW  NEW w<>+7 CIRCLE < TO CODE  INVERSE  GO SUB  LINE USR  AND ATTR RNOT /j_ STEP SQR OeUSR BIN  LOAD y TO U CIRCLE  DRAW SCREEN$ >ATN SQR P ERASE in INK ? COPY PI OUT >4 RUN >=h@a<= FLASH  LLIST NOT  STOP  DRAW  INK +>= STEP  CLEAR U BEEP _~NOT ! CLEAR  LIST [U]USR  CLS RND▝ THEN  RUN @ATTR USR [C] OPEN # POKE VAL  CLS A.[J]EXP  FORMAT  BRIGHT  DATA INT [[I] STEP [J]]TPEEK BIN  CLS uo CLS  NEW wPEEK 1COS b MERGE  RETURN N LINE © CLEAR [O]TAN %[ STEP >= RANDOMIZE  BORDER  BEEP  RESTORE  RETURN F> DATA [A]NOT [G] COPY A,cbCy DATA (: OUT  RETURN  INPUT CCOS ACS  OUT  LLIST _Y OUT ~ LPRINT !iY LIST  GO SUB  OR  RESTORE m-c[G] PLOT   LPRINT  POKE . VERIFY TAN SGN KATN  FORMAT  CLS [H]t[E]▖<>POINT  DRAW  CLEAR NOT  OUT  AND : DATA  OVER  SAVE S TO BIN ▛ TO [S] DIM  READ <CHR$ N DATA E|QmZACS x?TAB z INVERSE vSTR$ S; LLIST  READ {j< FLASH ySIN  STOP  BORDER [L]BIN  LINE 0 RETURN =' AND t OVER  COPY 9PI NEW k[M] VERIFY  OPEN # THEN   VERIFY  CLS | OUT  GO TO CHR$ AtNOT  IF  CONTINUE ^%USR /▘N DIM  INPUT  OUT NOT [P]IN  FOR [G]▗YSQR ATTR W[I] DEF FN N[L] LLIST  DEF FN  PAPER  TO U RETURN  STEP  AND NOT !CHR$ USR XUSR q/! PAPER RRND GO TO  RANDOMIZE  LLIST  PRINT  OR #xLEN ▖[F] STOP ▛2oPI. CAT  BORDER  TO tCVAL  LINE 1o:X ERASE G`m PLOT   OVER  DEF FN d}[C]UW LET  GO TO ▟INT [O]VOTAN  AND COS /- PAPER [P] STEP OBFNX[^adgjmprtvxz|}~© LLIST  FLASH BIN 0[I]}|zxvtrpmjgda^[Xa GO TO  COPY dOx BORDER oGGMINKEY$a▝ CLEAR `3jk▜_}RECHA TO  VERIFY GINPEEK <@SlBm READ  RETURN  LLIST  NEXT  LIST scu2    C` BORDER [P][Q]hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.