Smaily: _SmAiLy_.B

  1 RANDOMIZE USR VAL "23884": REM O1PIa! LET <>"CHR$ /!FN a GO SUB [ POKE / STEP = STEP FN a!8c GO SUB [ POKE // STEP = STEP 8c! CONTINUE c GO SUB [ POKE /G STEP = STEP  CONTINUE c!@ GO SUB [ POKE / STEP =NOT ([Q]=------=minimal intro byice'di of triumph! muzaxby cj.echo! Chelyabinsk/Russia2k=------= O COPY  COPY  COPY  COPY  REM (
  19497RIUMPH'2000SCREEN$ 2000!2000!_ NEXT  GO SUB sRNDb[! STEP a OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !uONOT g<> 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 aHRFN as GO TO  STOP  CLS  STEP EXP a-bk OPEN # LET  RETURN ▟b<>CODE !@ OUT ( COPY 6 INPUT  DRAW  OPEN # RETURN  GO SUB VAL v>CHR$ [N]X OPEN #[N]r6 COPY 8[H]PEEK  PAPER  OPEN #H, PAPER <> NEXT  CLEAR ©> GO SUB y!ACS bUSR  VERIFY Y VERIFY  INK [N] DEF FN }l AND CODE [K] REM  CLS  CIRCLE iCODE t COPY TAB © FLASH  RETURN  FORMAT NOT 47▘VAL  NEXT  CLEAR  RETURN GB TO  LIST ^?b" COPY  RETURN  CLS <> OR  MERGE  RESTORE  PRINT  INK Q FLASH  INVERSE c CLEAR  PLOT  [O]= LLIST  INVERSE  PAPER  PLOT   LET  MOVE STR$  INK [K] NEW NOT 8 CAT ? CAT  CLS 1-VBIN <>X1IN  STEP  RETURN  OPEN #[G] RETURN  OPEN #U[N] RESTORE  THEN INT P=5T<CHR$  OUT ^ATN RND@ OVER POINT mD>U NEW RND/ CLEAR  PAUSE POINT  BRIGHT [G]; CLOSE #/CODE  FLASH  STOP [J] STEP [L]2v` CAT 0}T<xb  MOVE [S]2©OINT  INVERSE ▜37 OUT | OVER XCODE  DATA  H[B] CLOSE #<>~ CLEAR sX[Q] LLIST PEEK N SAVE xD CLS C aCHR$  OPEN # COPY wS% NOT *0 PLOT  Pw[Q]SGN ~ LPRINT  PRINT ABS SIN  LINE USR BIN tKTPI?>r`:6 CLS ZCSGN 4KINKEY$ CLS  USR  SAVE O▙_t#  PRINT  RETURN  DRAW a BORDER NOT PI7 USR t▜;hACS  INK  SAVE KAO` LPRINT  SAVE INKEY$USR NOT } LIST Y▝1d RANDOMIZE [L] COPY f COPY  SAVE  DRAW  RUN  DRAW ?d CLEAR COS  RUN U<>CODE R< BORDER  INK  NEXT  RANDOMIZE  RUN  READ ▛ LPRINT  LET  CLS  SAVE  NEXT IN `▜SGN j STEP [I]VAL$  FLASH © LPRINT 6d©POINT YIN  STOP jc LIST  NEXT G PLOT  IN  MERGE `ASN ASN  CLEAR USR ▝[H].' PRINT  COPY  U COPY  x FOR  LOAD 0|[O] CIRCLE SIN ▜y COPY  RANDOMIZE  BORDER INKEY$^ LINE ` OVER 4 RETURN  BRIGHT  LOAD 1| COPY ▚c[P]USR  MOVE 4SQR 0s[M]< NEXT SGN ;IN =LN w8@ DRAW  DRAW &gIN  DRAW  NEXT 8 DEF FN ?M` VERIFY L DRAW LN ▝<= BRIGHT [P] CAT ` COPY `D  RETURN [K]@p LLIST ![I] READ  COPY ^CODE  LET TAN h`LN m^[U]TAB ;STR$ SCREEN$ IN  LIST  LIST ? SAVE  BORDER  LET  RANDOMIZE  NEXT < LIST  LIST  CLS USR  CLEAR  COPY  READ  RESTORE y LIST  LET ▚ LPRINT  CLS < OVER PEEK #b DATA f CAT H[O] INVERSE  LOAD  CAT =[G][P] PRINT <[A]  SAVE ©ABS i OVER  IN  CLS h RANDOMIZE |f&OSGN D RANDOMIZE ,[N] RUN _POINT © OVER  LET   PAPER un8 PAUSE O▞ IF  DIM PEEK   SAVE  IN _ LIST C| RUN [O]STR$ r9s CLS  DRAW ACS p▝ CLEAR ;SGN s NEXT SQR O? OR q DEF FN  DRAW  CIRCLE  LOAD t DIM [B] ▖Y DRAW  STOP wABS  COPY  COPY 9 LLIST  LIST  SAVE  NEXT USR  LPRINT  READ  LET GL READ  RANDOMIZE  GO TO =` NEXT  E CLEAR _C[P] GO TO USR h COPY  DRAW =eSCREEN$ ▝}FN ▖ LOAD [~ VAL$ SCREEN$  REM ATTR  COPY vf FLASH  IF IN ! FOR  BRIGHT s RETURN FN CODE  8USR 3▚ OVER  CAT nINT [P] CLOSE # VERIFY 2"FN FN SQR [Q] LOAD PEEK =PI[G] CLS INT  BRIGHT  BORDER >= SAVE  OVER > LINE  DATA  INK  DIM +ATTR ;[L][A]gVAL$ p*af RETURN EPI#D OVER ▝?LEN © INVERSE  COPY _ DRAW b?U▘COS  CLOSE #SVAL$  CAT @ DRAW CHR$  PRINT h DATA  LLIST  COPY  PRINT _ RUN  OPEN #D@▞| MERGE U DRAW [N]BIN  CLOSE #} POKE @}▞ NEXT  BEEP h CLEAR  RANDOMIZE T OR EXP [J]U POKE  PLOT  G DRAW }Em PAUSE  CIRCLE @[J]/ POKE U▛ AND [T] OR  OUT  OR  BORDER  CAT e OUT @w[J]ASN AT MSQR  OUT PEEK _ CLEAR ~*yATTR [Q] CLOSE # COPY INT VAL$ <b  LIST  =Z OUT ;t@t OR g7 [L]G} RESTORE 9z DATA  SCREEN$ z[K]H▟<=<>9tP AND  COPY "=|aXSTR$  RUN IN wQ[P]_[F]ATN }[N] RANDOMIZE 0w RUN  STEP  DRAW ?▜ PRINT F%DQ POKE }CHR$  PRINT jPI COPY [F] OUT  VERIFY ( COPY P FORMAT ATN  PAPER  LET Iu[Q] CLS W OR INKEY$ NEXT ? LPRINT  PRINT Po CAT L`VAL cLEN @▜VAL$ [P]A  MERGE y DRAW [E] IF ~ SAVE INT @IN CODE 4PEEK @<=o PLOT  ATTR  PAUSE ; OR >=)PEEK = POKE U  FOR 3 DRAW  PLOT   IF  LOAD  OR USR  LOAD <= =NOT  SAVE ATTR VAL AT |[P]JUSR BIN tGK RETURN PINOT  PAUSE ▝ COPY ] CLEAR  CLOSE #?UT STEP gD>Y REM PI@ CLS [M] STOP  BORDER @ DRAW D_ OUT E CLEAR VAL g CLOSE #|08 POKE G}SQR LEN _@ MERGE  CLEAR  PRINT  BORDER  NEXT  MERGE  COPY f STOP  CLEAR © OR _T|-9 CLEAR  PRINT  POKE c VERIFY @_ STEP BIN ? STEP  COPY  OUT NOT  OR <>W <= NEXT  POKE O RESTORE  LIST }IN  BEEP  LIST  CLEAR G5 MERGE  MERGE #VAL D}USR E▗ GO SUB STR$  LET +"*SCREEN$  IF |CHR$ o4 RANDOMIZE [R]QN OUT  DIM  |O.~_ DEF FN  DRAW # RANDOMIZE h < GO TO y[Q]NOT  IF &PIw [P]PEEK  j@RND PAUSE  DRAW  LPRINT  RETURN  RANDOMIZE i STOP  STOP © COPY  RUN w PRINT CODE > PAUSE <> LIST T}Q PRINT  OPEN # PAUSE  RANDOMIZE  u THEN  INK  GO TO  LLIST NACODE  LET  PRINT _,w▛CODE W RUN G[ STOP  BRIGHT  FLASH  PAUSE @PEEK op  MERGE  COPY  BORDER SCREEN$  CAT [J]PEEK PEEK [T]gR▙CHR$ 'USR [LN [P]uASN -{STR$  LPRINT  FOR = DRAW  LPRINT  RETURN  POKE  LPRINT ; SAVE [R]7~NOT PEEK  READ C:c?}[C]=` DRAW  SAVE * IF  SAVE # CLS  RETURN  INK [J][K] FOR 0HbSGN  LET 30c<=< CONTINUE  DRAW c LLIST POINT  RETURN 0 LIST hc LPRINT pa[J]IN © CIRCLE [I] TO STR$  COPY ▙ INK [J]| INK gU LPRINT E OUT  OR  MERGE  OUT  POKE © CLEAR  FOR  CONTINUE }| CLS  OR r▛ NEXT  LPRINT _ CLEAR U©< OUT  PRINT ] CLEAR }_Uh> CLOSE # RETURN [L]9 LINE  DRAW ~ PLOT  ACS SQR 9 IF  LPRINT 9 FLASH [ PRINT cs0 LINE 3p POKE  OR  BORDER X LIST POINT [P])M▟ CAT  INK aVAL USR NOT  RUN STR$ ` READ 1aLEN  RANDOMIZE ▛▘< RETURN ▖ AND  CAT  RANDOMIZE  THEN  COPY ;[VPEEK USR 'F} COPY  CODE  COPY  CLS  MOVE   OVER <=[H]aY[O][H]PEEK ? SAVE >[R]` SAVE  RETURN '[D] PAUSE  COPY (< STOP  OPEN # SAVE !ba`p RANDOMIZE p)"": FOR  LLIST [P][D] PAUSE c` CLS  FLASH cl[P]COS  DRAW &^`▜~ THEN  LPRINT  LET ▙/PI LINE PEEK  SAVE  LPRINT  RUN R|3b LOAD ` OUT w CLS ▜GSCREEN$ TAB  READ 2 PAUSE =$ LPRINT  CLEAR y FLASH c08` FOR vx BORDER W▛USR VAL$ ! COPY  LLIST [I]CODE |@SCREEN$ [U]ATTR  LET ` CONTINUE Z IF ^k FLASH  CONTINUE ~Y▝ DRAW [` GO TO [Q]# READ &TAN  BEEP [J]c VERIFY ▝ CLEAR pc3[s[B]O▞SIN ▖ACS  GO TO [P] LET [S]SCREEN$  LPRINT LN  LET  CLOSE # POKE _ DRAW  COPY  MERGE  CLEAR w<]|U PAUSE  RANDOMIZE Ou CLEAR t BEEP ACS Jg PLOT  EI▘USR  LPRINT pBq@ FORMAT  LLIST SIN fqf SAVE <=! ERASE AAT dp@[D] LPRINT  COPY W!q SAVE pBIN  !aVvR/ RETURN  RANDOMIZE ▖ AND   TO ▘ CLEAR k DRAW } READ #W *▞ LPRINT <>▞ RETURN  COPY %0 CLEAR  LET  ▝[M] COPY  VAL ; SAVE  OUT ocLEN [J]COS 0NOT USR ▝ DATA [L]<>>0STR$ CHR$ ` OPEN #g OUT  READ S TO USR [I] CIRCLE ^VAL  ERASE  PRINT © PRINT  LPRINT  LIST PEEK 7SGN ix RESTORE  DRAW ~y[H]8u▚ MOVE p{ READ  MERGE  VERIFY [O] IF q?STR$ SIN [R] YLEN  CAT  FOR aCOS  ▙`OSVAL 06P1} COPY 9 INK [I]XLUSR kSTR$ ▝[B]AEt GO TO  FLASH @?VAL G[P]} COPY e_ COPY `L© DRAW !PEEK ' OVER  INK NOT XCOS @ PT CLS ,3> SAVE layerv1.0/byNi▛▜ckof PLOT  BIN GDC NEXT "HVAL [N]u_ COPY lATTR ATN d~2[E]SGN #^PINKEY$[L] RESTORE !ACS f DEF FN [G] LLIST N[C] IF  DRAW F GO SUB syVAL  RANDOMIZE  COPY uRNDATN [Q]VAL >[O]ACS 0STR$  FOR s DRAW [A] CLS r=  PAUSE 1 SAVE  NEXT > LIST 2TAN COS LEN  FORMAT b NEXT  LOAD ASN * LPRINT TAB CACS  CAT  STOP TAN %C OPEN #IN COS @SQR  MOVE >NOT ABS  CONTINUE RND RETURN  RUN m[L] CLOSE #CODE R[Q]ABS [E] PAUSE } COPY  RESTORE E INPUT ( PLOT  [Q] RESTORE ▞ PRINT [E]IN [T]<(u[T] CLOSE #▞l[Q] LPRINT  RESTORE RND ERASE h6 CAT hFN 62[R][Q].FN FN ▟*A RANDOMIZE  RESTORE  SAVE ` AND  CIRCLE ( BRIGHT  SAVE ▖ LIST ` LPRINT X3a| AND  OVER VAL @ RUN  GO TO  GO TO [E]D SAVE [T]gVAL p,zv CLEAR PEEK ▗Xv CAT   PLOT   LINE  CAT z[S]| INPUT YX8 SAVE  OUT Y CAT CHR$ AT = FOR [A]{eAT gQ>,n POKE  DRAW  LOAD Y CAT  LLIST  VERIFY = FOR >=ABS SIN AT gFN [P][G][O] PRINT ▙ MOVE COS ~wpkg▞SGN ^ PRINT AT YTOKCOS [O]GBz VERIFY ?;85Y CAT 2/= FOR ,*'▞g%#<=AT g[O] PRINT  VERIFY COS  CAT z GO TO FLN ,[O] PRINT U`VSIN kRR{▟c ERASE EXP  REM  BORDER  INK INT )LN  OPEN # OUT SGN  CLS [O] INVERSE )ABS /;}5- CLS  AND VORNEZH-? RETURN "INKEY$ASN 2U63ATN BdE|EXP V INK  COPY INT  COPY uVCOS [P]d©TAN og"[O]SGN ▗'USR  BRIGHT PEEK [J]L CLS ASN jLEN "▗ATN CODE 3>= REM AT  TO ~ CLS <>QATN  STEP  LLIST ACS  CLEAR <> CLS  IF . INVERSE  COPY  DEF FN  GO SUB s OUT  COPY g< BRIGHT  BEEP  LINE _TAN o<INT   FLASH NOT q LET o}▜ DRAW 9 RANDOMIZE  MOVE z NEW {PI PAUSE NOT ▝[T]COS @:[U] COPY  OR CHR$ [K]= RETURN  LIST  <NOT  NEW e[Q]< OPEN #[I] VERIFY = NEXT [U] THEN wR PLOT  TAB CODE  COPY COS  OUT [D]~ AND &LEN INKEY$ BORDER o~ THEN ; PLOT   NEW oCHR$ zo8gz IF  FLASH  THEN m( LET <> INVERSE g| GO SUB C NEXT  LIST { NEW :s MOVE  PLOT   LIST  MOVE ▟? READ COS  CLEAR  COPY )o) FLASH USR  NEW  INVERSE STR$ }<= LIST rINKEY$?" IF COS  FOR eSTR$ i VERIFY eLN y%PEEK 6TAN &9nSIN  RESTORE &▞^ RANDOMIZE  LLIST O*[I]▞ POKE  ERASE = IF ^TAN  *>= RANDOMIZE x#TAN  COPY ▜ GO SUB !0NOT FTAN  GO SUB  BORDER R$ *▛ FOR  PAUSE * CIRCLE [F]▗ DRAW ^ POKE @AT [R] STOP <=©m INK <=:ATN  INPUT 5SIN  LINE z[P]) PLOT  | OUT c7m DATA ~ASN o IF  DATA ▛TAN  MOVE  SAVE  DATA IN TAN  DATA USR CHR$ ACS e DIM  DATA SGN  BRIGHT < DATA &m DATA <>K▞ COPY  CAT  OPEN #f DATA  RESTORE TAN  DATA D`ASN  OUT  DATA  COPY TAN  DATA  POKE  LOAD  READ  INVERSE ASN  LET  OUT  LLIST ASN  LLIST &VAL )ASN  LOAD / LLIST }ASN  IF M LLIST BASN o LLIST eASN  LLIST :ASN LEN  LLIST I LLIST %q DRAW }=PF LLIST  AND COS <=[O]<= LLIST >▖[O] LLIST  PRINT  LINE [J][P]) PLOT  [L] OUT ▘7m LLIST [M]ACS o IF  LLIST SCREEN$ ASN  MOVE  SAVE  LLIST  OVER ASN  LLIST  OUT CHR$  MERGE e DIM  LLIST  FLASH  BRIGHT < LLIST &m LLIST  CONTINUE K▞ COPY  INPUT  ERASE f LLIST ACS  LLIST + STOP & LLIST ACS  LLIST  LOAD © NEW $ OUT  DRAW  STOP 7ACS VAL  LET  STOP GACS /& STOP M LOAD [L]ACS  STOP `ACS [H] LLIST  STOP 8 NEW NOT  OVER ACS  STOP XACS b STOP g STOP 0 STOP ▝SCREEN$ U CONTINUE  STOP 3 LET ATTR <=SGN A<= STOP [P]ASN  STOP FN  RUN  LINE ATN L▞ PLOT  EXP  OUT [Q]PI4[T]EXP  CLEAR s STEP }oATTR  MERGE  STEP 5 OVER  MERGE [M]ABS PITAB  OVER  THEN <=IN : OR  COPY  CLEAR ] DRAW COS  GO SUB iC[T]B▘[D]^ INVERSE |2^ READ  AND m CAT y, PAPER +} GO TO  INPUT INKEY$ THEN [H]ATN (0ATTR y>[H]©ATN  CLEAR .:>▗U▞ LPRINT ATN  LINE  RETURN INT d▞TEXP USR IN WVAL !- INK  STEP "G[S]SQR }BIN CHR$ F9fPEEK  INK >MUSR  INK  NEW [P]9PI 2 GO SUB sINT }= FLASH ~▜0k VERIFY # INVERSE BIN SIN _VAL$ [J]SGN WWPOINT .TAN ![M]u FOR ATN z"uEXP  LET PISQR % STEP  PAPER ATN  GO SUB S▗k[R] INK INKEY$ DATA INKEY$ LINE  RESTORE kATTR [S]<>&VAL  DEF FN  RETURN PI PAPER [F]LN ▝ACS  LLIST &r LIST  AND `{EXP eBIN SGN  BORDER 0/▜SGN PEEK oQ~,f AND / RESTORE :TAN  INK O[H] RANDOMIZE NOT  OUT ATN  FOR ~ NEW m AND ▖)V<>[K][R]{Y©M▝ FOR  CLS X<>7[C]uSQR  FORMAT ] STOP p:;YCOS h INK y=▝ FLASH COS  FOR <>[K]QSGN  REM PN CAT j^6[][[K]z SAVE [T]MFN [L]TAB  PAPER fS LOAD LEN ASGN LEN  NEW  GO SUB SGN LN 9 MOVE [E]}k LPRINT w RETURN oN,F GO SUB C[SQR ▙SIN [Q]5POINT @[G]z▝ag[G]NOT  BRIGHT B<> IF /6zINKEY$`/0[J] INVERSE ;ACS BIN ▗ MERGE  NEW ATTR  NEXT  DATA h3 DRAW H RANDOMIZE hw BORDER  OVER =2▘mPSGN ▛1ATN ce  CAT RND&DIN x{EXP [F]~ CAT [P]SCREEN$ CEXP  TO  CONTINUE  PLOT   LET CODE BIN ▟j[ OPEN #UEXP E LET FN i BEEP [H]m RUN  OVER @PI STEP [F]EXP SGN 2▖E BEEP %E BRIGHT Z8ELIN  CIRCLE E?INT LEN E`EXP ▛[K]EACS RND^STR$ ▞ MERGE 9 INK k SAVE Y FORMAT  LIST BASN E OPEN #B[K]EXP POINT  RETURN k LET Z^ MOVE +[U]B# RANDOMIZE }SGN USR [B RANDOMIZE Bq PLOT  BVAL$ 4k>=j/TAB 'qxwD[L]uB&[D]6B STEP CHR$ 8 CLOSE # BEEP <>gIN [D] CIRCLE  GO TO SGN  SAVE V MOVE [F]%V PAUSE  POKE [H] CAT  IF V* LIST KV<=[D]IV INVERSE SGN ATTR X©zV SAVE SQR ▛V▝Vr[A] CAT q CAT $XG PAUSE EXP ~[J][S][P]VAL  READ SCREEN$  GO SUB INT 5$V▛©BIN [}T OPEN #V COPY INT CHR$ SQR YINKEY$mRNDSGN  LOAD wJ[m BEEP f-[R] READ COS  LLIST [F]?W^x LOAD SCREEN$ x OUT  NEW QgSTR$ +# DEF FN  PAPER ATTR <d[A]PEEK  PAUSE :2ek>PITAN 2f LINE  OPEN #CODE  LOAD  CIRCLE ABS ACS ▛m▗[J]oUSR V CAT "<oJTAB 3 GO SUB Zu▟<)[T] THEN  LPRINT [F]9<>W PAPER RNDNOT PI-CHR$ CHR$ [O]COS 6 DRAW PIw{/ ERASE  INVERSE 6BIN v THEN COS o COPY I^ASN  STOP  RESTORE [F]}5^yS OUT oB5y/oPOINT  BEEP  DRAW  VERIFY  TO SCREEN$ ▜ MOVE o FORMAT [U]|o LET  CAT  OPEN # TO ATN o%FN  BRIGHT k BORDER o RESTORE yi{l[N]yTAB k[2[QX[L]SGN WRNDNOT  DIM )8 THEN 8[K] STOP [D]y[F]<> NEXT C READ ASN [B]yk MOVE  OPEN #R CONTINUE [J]Yh[L]9J- LOAD Z STEP  STEP & READ g[E]POINT  LIST 0M AND t0SD/`[K]AT POINT ▝`INKEY$g_USR oUPICATN PICODE ASN (LEN USR 2% DRAW K COPY t GO TO |<=NOT ! COPY  CAT VAL$ #▛[J] OUT  LIST LABS "or[J]RND RANDOMIZE " LIST  BORDER UIN  DATA [L]ABS 0/_ RETURN  NEXT  STOP [L] CAT  NEXT XACS H~ NEXT SCREEN$ [S]Iga[H] CLS ABS )1oX SAVE vG▖[K][Q] COPY yACS |ACS  BRIGHT R PAPER SQR  STEP ▜ STOP ywydACS  STEP  REM SCREEN$ ASN  PAUSE ASN GACS  POKE COS ~gL POKE LN  OUT  VERIFY ,yI CONTINUE `~ DIM }uACS  CLS  CLEAR [I][H]AINKEY$<= STEP w INK j CLS VAL$ PISGN NOT  RUN  LET P[N]ATTR VAL$ <>[P]POINT [S]INT &w OVER ▜LNPOINT e[L]STR$  NEXT  RESTORE  INK  PAUSE  PAUSE  LOAD [[M]( STOP = BORDER SQR /1 ERASE  AND BIN <>yfj[O]EXP _[O]POINT .C OUT [H] LIST / OPEN # DATA k LET ^[H]jht▞USR ▙[D]PEEK NOT [H] FLASH  RETURN RND LET )E MERGE ProT READ zack GO TO  COPY BIN 3.4compilatnVAL x DIM }C`qABS  COPY ▚K BEEP  CAT ▘G?EXP [S] OUT oQ LPRINT  COPY  FOR ? PLOT   OPEN #+aSIN  COPY  COPY  GO SUB  BORDER  BORDER  LET 6 IF Gz▖[F]hYAT  DEF FN  OVER f BRIGHT #6 NEW  CLOSE #LEN @ FORMAT  REM ▞ STOP  LIST ABS <LEN t[L] FORMAT 2INT TCFN  READ  PAPER /LuX"[S]y STOP 0 LIST   CAT INT v[O] STOP wrB OPEN #SCREEN$ ACS [G]COS  LINE  THEN kz TO  CAT  DRAW o LPRINT [K]) LLIST r[U]p AND d[L]AT r="IN FN O LET {nC▘~ CAT PIL REM |wAfc OVER  FORMAT 0om[K] OUT { CAT yiwv5'iPO>=iL▞▞0PI@[ AND  CLOSE #[G]y FOR K[Q]4[I]yLCHR$ [Q]e CIRCLE c[T] MOVE  ERASE [H]b[N]|k?[P]Y[F]I[J] IF 0>=COS [. BEEP p DIM /ATN Fnn3CHR$  OR Uq}6ATTR :▟▙ BRIGHT  COPY  RESTORE  PAUSE  RETURN  LINE  RESTORE  FOR FN #[H] FOR ▛>= PRINT TAN  INPUT USR  COPY  NEW VAL oUINTROM  CFN aFN abhrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT  GO SUB s5d[!]c OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !INT [B] THEN t-<> GO SUB LN  FOR  RANDOMIZE 8c 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 8cHR CONTINUE g- LOAD  GO TO  CLS  STEP [M]c@<>CODE ! COPY 7 COPY 6 OPEN # RETURN  GO SUB VAL v>PI;XPIp STEP t COPY 8CODE [M] POKE RND PAPER <= PAPER <>[K] LOAD  THEN  RETURN Fa THEN  NEXT ?6 CLEAR ▜p STEP >NOT 2S SAVE !d" RETURN > LOAD YPEEK G^s` LINE $ CIRCLE NOT Od OUT ^ATN  RETURN  OUT  NEXT  BEEP  RETURN u©, GO SUB WIN I PRINT  BORDER ?ABS sd1STR$ [O]cPIa LET  STOP © CLS <> NEXT  PRINT  RESTORE  MERGE  OR  INVERSE  REM F CLEAR  PRINT  INK  OR LEN {!NOT ? MOVE  LLIST  INK  LET  CLEAR ATTR  INVERSE Ji LET  CLS  REM M CLS >FN ▛ PRINT  LET <f<>SCODE J BEEP LN qSGN  NEXT  STEP c>4Lcd INK IN [J]aCODE  STEP [P]j!c0ni DRAW ▜:SQR Ae[G]COS  DEF FN  THEN  GO TO [S] CLEAR 2f: FOR Gy RETURN /VAL$ gNOT  IF h!_▘ FLASH l NEXT  RETURN 7!▛g; LIST  CLOSE #SIN  POKE  OR  BORDER  STOP ATTR PI FOR 0 LOAD 3v STOP ACS AT %:@ FLASH  RETURN  TO  DRAW d PLOT  bX OR  COPY STR$  LINE <>!W▟ ERASE  MOVE [U]ACS  OUT y{9 RESTORE [P] NEW  BORDER  BRIGHT ITAN [M] PLOT  [L]▛INT ▟©<>*>e STEP  BORDER Gw#"<>u:LEN <2TAB  USR . CLOSE #RNDCODE  AND  PAUSE :Z OR kxVAL$ 5C BEEP > PRINT  OR ! LET }jc<COS {B[! RESTORE ▞ PAUSE 1 GO SUB e OUT  CLS ATN  INVERSE k© NEW 3 INPUT  LET =BIN X COPY jFN ATTR  INPUT I:coINKEY$ GO TO 3JZCOS ! MERGE ?T OUT t▙ DEF FN  THEN 9[A] GO SUB COS  GO TO svABS [D]T[H]JASN SCREEN$ BIN  PRINT [G] MERGE wEXP dpXv[J]qPI[J][J]COS  BRIGHT /SCREEN$  MERGE <> VERIFY  THEN ^ DRAW  COPY  POKE  TO  BORDER [G] READ G INK  IF  CAT [M]7ASN s~ READ ▗[F]sU DEF FN f[C]UACS   PRINT (SQR  PAPER  THEN CODE 6 LINE [B]INKEY$*t[R][P]dCODE  DATA  LIST "SQR ;gD[J]FN  GO SUB 2<- LINE  STEP fABS  PAPER CHR$  PAPER  NEW  VERIFY  BEEP <= GO SUB {;1 GO SUB ! MOVE SQR  PLOT  U>=[R] COPY i[G][R]CHR$ IN  STOP ATN IN  CLS PEEK  BRIGHT  OUT  LET  THEN [A]USR  CLEAR  DRAW %CHR$  CAT  COPY  POKE  OUT INT NOT I NEXT ASN LN STR$ [I] FLASH TAN [Q] ERASE  LOAD Z[E]O OR  LOAD  CLOSE # OUT RN DEF FN  DATA  AND v PLOT  o FOR ▝} RUN > RANDOMIZE PRNDd3 RETURN  RETURN  IF  POKE [R];[P]IN  BRIGHT ?+▗ CLS [T][I]eNOT RND READ POINT  CLOSE #[U][U]COS t!ATN [S] CLS KTAB VAL COS  PAPER  RANDOMIZE ikVAL  CIRCLE h RETURN 1 TO f RUN 2EXP  INK 3if RUN 4 LLIST NOT  LLIST 0 LINE  IF [C] COPY NOT  REM g>F2 FLASH k FOR '!'S▜ MERGE g3 CAT  FOR SGN  DEF FN e<> GO TO  STEP ASGN & OUT  POKE lACS 1y GO SUB ES. CLOSE # OVER  FORMAT pCOS mG  VERIFY  INK 0[N]u>YgP_w VERIFY s▚NOT [L]z. OPEN #[T] VERIFY Ygl INVERSE  OPEN # DATA [T]wLEN  PAUSE !<[A]SCREEN$ CODE = LINE  FORMAT cFN  OUT FN >MQf VERIFY  OVER C GO SUB 2 STEP  RESTORE &jBIN  GO TO  PAPER  VERIFY  OPEN #VAL mN STOP [H]-mSIN  THEN 8N RANDOMIZE  LINE ( CLS  STEP  BEEP  INPUT !SIN m BEEP RPOINT xn BEEP [R] INVERSE NOT [M]cTAN  LET  GO SUB d GO SUB {` LINE 2&V INK  RETURN  BORDER  ERASE [] SAVE _ RETURN <>CODE  FLASH  RETURN / NEW CHR$  GO TO <> GO SUB C' TO ] LINE y=x▘_ SAVE  PRINT  LET =INT  CIRCLE < MERGE z NEW [P]CHR$  AND @G BORDER  COPY  NEW  LPRINT _P: DRAW PIO MERGE  RESTORE y RETURN (~# NEXT  LLIST  GO SUB [ LINE  MOVE  LLIST O7 BRIGHT ei OUT 1STR$ <=ABS ABS  THEN 'NOT mnzCHR$ >X▘WSTR$ GS>= NEXT  RANDOMIZE <> RETURN PEEK  DRAW  COPY >= STEP [F]i#NOT : RETURN   PAPER [O])POINT  LINE  NEXT <> RETURN  LINE  INVERSE [I] STEP  RESTORE Q q~? COPY t&o) TO  NEW [K]U LINE IN iBIN #[J] IF ! SAVE y<" LLIST <> MERGE  MERGE Y:INKEY$ CHR$ eVAL$ S46TAB #^V AND <= REM  FOR ~2▗u[K]ASN + STEP  SAVE SGN IC MOVE  MERGE  INVERSE ! OPEN #>= CLOSE #ASN kASN  BRIGHT  CAT  FOR  INVERSE n[E]^fZHCOS [K]ATN  VERIFY  OR P OVER JMD STEP [T] BRIGHT  IF Y[M]3STR$ <>[:jL OR [ACS [C_ MOVE SIN NVAL  FOR [~j TO  [ MERGE  DRAW sATTR  DEF FN SGN ASN T MOVE jj STEP ZIGIN R[D]BIN [I] BEEP N FOR ©_9>= RETURN ▙F CLS vNOT CHR$  AND >=g GO TO [C]uIN [M]<>qUSR { AND  OUT  DRAW  _ CIRCLE z VERIFY W▗ LIST j  CLS  CLS  DIM ( SAVE :!k~NPI PLOT   FOR otCODE / COPY [T] RETURN  GO SUB x(© NEXT USR g{ OR  THEN <0 IF USR WbUSR 8 CONTINUE IN >=BHY65TGVNJU74RFCMKO83EDXxL[N]92WSZ{zP01QAy STEP [I] INK  =2 PAUSE El~ NEW  LIST FN  CAT 'OJL?LEN w#zCOS CHR$ Ik OR v CLEAR STR$  RESTORE / INVERSE <>NOT FN a/ DRAW CODE PROGAM!hD 1: COPY GJOSE VILA DRAW  RANDOMIZE -PE MERGE PI7 CIRCLE MUS COPY C OsP INK  INK MC DEF FN  NEXT  ALBYiq'dSGN ISj[I]|SQR RND7- PLOT   OPEN #YTDSQR F1cR E PAUSE L>=[D]x PAPER 25 BEEP YS DRAW IK<[A]▗'3RqNOT %FINfOPFN [I] LET S[J] CAT  LIST D0'CM~ NEXT NZARIN E© 19<<0NFSSGN [S][L]2 STEP B▜L[M]3M TO STL OPEN #BIN [A]CHR$ N| ERASE GIZQUERD AND s:N5[C]1[F][B] RANDOMIZE H:yNu CLS 0INT IBINT gCOS u{6/ZPI6 NEXT  LINE ISP CIRCLE [M]b4[P]CS[B] K AND /|[A]O LET  RETURN (/N38) PAUSE & STEP  INK  RESTORE  STEP  THEN [L]ACS !LEN  LINE ^ABS HUSR /G FOR y CLOSE # CONTINUE G THEN KEMPs OVER  LPRINT SQR  THEN CZuN[O][K]) CLS  LLIST )f THEN CUg[O]ATTR  STEP FUL TO  CLOSE #ACS R DATA BX[Q]TPI5sHE>=c3[O]6 CLOSE #BIN CHR$ V[I]S>L.LN [J][N]7PDu▖O*[G]/hrx READ o theATTR TAN gcUmputQ PLOT  isn AND [H] ec NEW  AND ivng. LLIST  LINE  FORMAT u OVER  LINE eUATTR ' CLEAR K3 OPEN #ZNOT aABS lTAB 4d DATA lfn[I]"[J]k READ 3 STOP 1IPIVAL  RESTORE [O]gfp▞[S]Li5 COPY %' BORDER Dfij1M DIM ABS p<=[S][K]/F BEEP 1;PI1D=S FOR rH% OR ▝w>= TAB [F] LIST [I][K][F]STR$  ERASE rM▖)H[M]O[I]T BEEP X MERGE  LINE ▗DASN 3, OR [J] INPUT  LET : CONTINUE -INT (4BIN  CAT 3L7▖5 DEF FN <=RMINKEY$BAl▟iFN L AND RNDm)Co▟[D]HACS  DEF FN t<>*▚ THEN  CLOSE # OVER SGN [F]gBEI VERIFY <>VAL +[J]-b FLASH POINT ACS ` SIN v5BIN ▛R FLASH NNOT e MERGE  INVERSE COS  OR AT s.7 CLEAR kINT tRND4LP?BLEN  DIM mM FOR TAB POINT ! OUT <>SN RESTORE  PAUSE x$3[I]SGN .M[A]LI SAVE -mNP REM [M]VAL$ [H]qSUeAT I<>INT eCODE  CLOSE #[C]CHR$  FLASH NIINKEY$ LLIST  THEN eC OVER POINT ULEN  INK t[J].[L],a<=, RESTORE CODE WNCHR$ POINT SQR c BEEP yS▖TAB  LINE [A]!) PRINT 4b▝ READ <=4 TO k[C]Z[E]([J]ARNDb MERGE SGN k BORDER ) OUT [S]HUYU FLASH F<> OR [I] DEF FN VLN [F]▞RNDZ LPRINT STR$ Uj READ [F]j8[R]F[O][C] POKE H▗+▚wLEN RFR MOVE [S]SCREEN$ " LET  VERIFY zI LLIST 2FACS ▞ PAPER ▟ACS vIGUIASN USR / BRIGHT [E]L CLOSE # TO 9ASN SIN FWABS  NEXT USR [N]ASN [F]Zh[I] CLOSE # POKE  INVERSE  THEN j▚F CLEAR INT J[P] GO SUB  OVER ,hVAL$ .[O] PRINT UT4▟IL'qG OR  FLASH  BEEP UPF OR ATTR [P]oz/) STOP [A][E]h/ PLOT   CAT STR$ G ERASE  CLOSE #1qE▚P[F]gRP VERIFY ▝SATTR Fy STOP /4u[K]8PI LPRINT RND2K DRAW m MERGE FPOINT C[D]29[J]INT [G] NEXT BRN▜ PRINT  PLOT  .'92 PAPER ▛▛ SAVE  LLIST  RUN CODE ;R RUN  INVERSE  LLIST M RUN pt^3RNDTAB [L]LEN  CLOSE #INT  RUN  OR z OR ' BEEP 1EXP xFATTR  RESTORE  OVER k FOR . AND  RUN <> MERGE ACS RND OUT [G]PEEK 'SCREEN$ uy- CIRCLE  REM <= COPY F CLS FP1RNDNu PAPER [:/eL/ VERIFY 5NOT [T]TAB Lw▖(ASN [E] RESTORE B4V2CVAL$  POKE URASN  INVERSE PEEK [I]COS Z STEP [K] BRIGHT ▙;TSQR & GO SUB  GO TO . POKE [G]A FLASH  AND  MOVE fJi.SVINKEY$[LN [A]k[U]d[L]w POKE 3 AND  FLASH ▗ LINE Vx COPY s2▚TAB EXP ABS AT  STOP INT LN [D]!&5- POKE x[ FLASH TAB JASN h POKE LZoEXP &[F] POKE 1 FLASH [N]5 OVER <=5Y<=i OPEN #LPOINT u▖bj▖V[P]ACS ?Z FLASH yFN  DATA [A]2[C] INK . MOVE e POKE 5VG[L]DUu▜ LPRINT  STOP C[T]ySQR d&[G]TAB U INK <=[U] POKE  FLASH '"VAL RNDG(▙[S]ACS oz/jINKEY$[P] OVER  REM 8 CAT TUSR  FORMAT  READ :HSCREEN$ TAB [N]a OVER SIN  CLS >[L]*KI REM .Y▞d OVER r KSTR$  BORDER [I][I][L]1t+POINT  VERIFY Sl[N]S COPY S OPEN #▞p[L]nui INVERSE P CLOSE #e▚Zq[ MERGE  MERGE _CHR$ L FLASH  LLIST k[I] DRAW  DEF FN [U].RND[Q]fBIN V ERASE  DEF FN ASN  FORMAT |RND AND  PAPER <=[F] PLOT  SCREEN$ >=RNDAT kT THEN BIN y[U] LOAD `[J]USR h▟]▝ OR  BORDER ▟ PAPER L,} POKE R OPEN # LINE WFs▗(r&<>h▚`51k LINE rPOINT [U]s[E]z CLS W DEF FN  ERASE  DATA g CLOSE # PRINT fVAL  BORDER w[L]L[G]V[C]Ku▙wSGN ▘ POKE b DEF FN  STEP N:1-S CAT  POKE CCOS ©ABS INT s BRIGHT l BORDER [M]2- FOR u7S INVERSE  RETURN .t LOAD ATTR [O] CLEAR AEXP [G]3-d[A]▘H OVER HSGN ATN ▚A MOVE ^j!KJ/ LET XPEEK SQR BINT ACS fINT qa SAVE IN rcPI! INVERSE > RETURN  FLASH  NEXT mi CONTINUE l REM  RETURN  STEP  RETURN =^:?>X<|NOT  AND  TO 0NOT 0f IF 8T BRIGHT v BRIGHT  TO  BRIGHT  BRIGHT  FORMAT 0 CIRCLE  TO ▗<= IF 60 AND [J]f< COPY  STEP CODE ~[G]/CODE [T] NEW ATN  OPEN #~ RESTORE no<=0`USR | STOP  AND  DEF FN  VERIFY  NEW  PAPER v8 MOVE [I]USR  INVERSE BIN :b`cBIN TAN 7IN l TO  RETURN NOT b`m| SAVE [Q]X[M]~UTAN  STEP SQR >9` FOR r[T]▜INKEY$0[J][F]3d`▝TAN u VERIFY  CLOSE #CHR$ PI FORMAT ?M OVER S DIM USR i TO AT G DRAW [A] SAVE [Q][E]USR [M] RETURN VAL  SAVE l PAUSE @▗ LET  RETURN bhx RESTORE  FORMAT ▟` LIST 3& DEF FN ▟%[D]<>>=© DEF FN @[K]<= TO x IF  NEW l▘ OR ? LIST ` LPRINT b>= AND [L] INPUT  OVER ( VERIFY USR  NEW  PLOT   OVER  DEF FN AT LN  CLS LVAL$ TAN [A] OVER  FORMAT fVAL TAN [R] PAPER FN [U]>=SQR V0~Z LLIST SFN  CLS *[M] FLASH =[J]HCHR$  VERIFY  RETURN  INPUT j&VAL SGN  OR  INK xR CIRCLE  RETURN  AND ASN T2[A]gh LPRINT &[Q]-[J]TAUSR  INVERSE  READ  THEN Vv COPY  REM  LET  LPRINT [A][E] INPUT ▗MCODE x| LPRINT [R][R] PAUSE  BRIGHT TAN  POKE ~R[R] NEXT &TAN ~8<m60x REM <=i[R]>▙{6| FORMAT lv STEP [I]PVAL$  FORMAT [R] COPY H LLIST )L_VAL$ bU COPY  BRIGHT  THEN  MERGE >VAL PWpG) RETURN  COPY [I]v[J]v LIST a COPY B[E] INVERSE 6jP<>XW[A] IF Jo6bLEN _JSTR$  RETURN  COPY B PAUSE *QpL COPY i IF USR  LINE p[D] IF [Q]POINT EXP Y LPRINT i6LN  POKE  ▘[O] FOR  THEN ▖IN  RETURN CODE IN  COPY  OUT  FORMAT  PAPER  LOAD PEEK L6 GO SUB  DIM  FOR _© DATA n FOR  LOAD v~ DRAW  CLS LN [IN RND PAPER G©<= VERIFY  STOP A LOAD ATN @& PAUSE WW COPY  VERIFY J CLS  REM V COPY INT ▘IW COPY ▚ VERIFY Pv)AINT  OUT  PAUSE  MOVE  DATA m▘ FOR ATTR VAL$ } MERGE  BEEP ▘r PAUSE [G] PAUSE ONy BEEP AT  OUT TkK* CLS AT [U]SGN SCREEN$  OVER [E] GO TO U▘wSSQR G INPUT  VERIFY  CLEAR : SAVE  5D VERIFY  PRINT k NEXT [C]CODE ▘J}FN  BEEP ▘El THEN ▘ IF [K]ABS TAB %(▘[Q]+ PRINT  REM [AT  CLOSE #INKEY$V+AT |{ OUT PEEK <> STEP ▘USR `RND~ICODE VAL$ ▘ASN TKI DEF FN ATTR ▘[G]UA▚ BEEP [J]x_IN %▚mEXP Z[M]_~ CLS ▘? COPY >< CLS EXP AT [O] COPY ©oEXP ~▝ LOAD  LET AT 7 CLEAR © RUN AT  BEEP [M]▘oPEEK  REM  LOAD V> TO  VERIFY _© RETURN SCREEN$  BORDER ; VERIFY  OVER  CAT  RUN IN  COPY  MERGE U[▘IN @o INPUT zSCREEN$ TAB ▘B FOR ▗▘[G][P]PEEK  CAT  PAUSE s▙U▘ABS H[M]ou[C]POINT AT  OVER  THEN EXP  DRAW COS  CLS kINT AT a▛ COPY  CLEAR Q▚ RUN  BORDER ▘? LIST  LOAD  PLOT  >~Z[H] FORMAT CODE [H] DATA P▘< PAPER INKEY$ OR [I]+WD▘ OUT ▘CODE ] FLASH INKEY$ MERGE TAB  PAPER  CAT ▘/@ CLOSE #9EXP  VERIFY AT b;I[K]AT  NEXT 9AT /[CHR$ y= SAVE ▘_A?[P] SAVE ▙ VERIFY _XFt VERIFY 'PI VERIFY JB READ rSCREEN$ >=▚_ LINE [J][T]e SAVE ▘<>_▝▘{PEEK  CAT PEEK VAL CODE )[B] GO TO ▘# DIM  CAT ABS  CAT  NEXT SIN  FORMAT  OVER <=▘INT  LPRINT ATTR  LOAD ATTR ▘[I][F]© REM ATN  CLEAR [I] VERIFY W▘| IF ▟N| INPUT  NEXT `SCREEN$ * SAVE 2STR$ POINT  LOAD `_ DATA C OR UAPEEK RD▘LSGN ( VERIFY  STEP V[L]▘▗ IF VAL$ ▘ SAVE  RETURN  LIST  RUN [H]▘ AND  CLOSE #?~LN %PEEK [M]▘ LET  CLEAR ▝ LOAD d©▞H▘`|, READ G▙[O] RUN  OUT [C] CLEAR PI SAVE  COPY  DIM  BRIGHT ©zUSR ATN  OVER [U]6ATN  CLS  PRINT l POKE  RETURN lABS  COPY  LOAD ?P+K4IN  CLS  IF ]g SAVE  FLASH &/W" INVERSE P FOR  DATA [K] INVERSE 1U RANDOMIZE [B] RETURN 9AFSIN |;[F]-lQIACS VAL$  MERGE (▘RNDuTAB  DATA [I]prkT▖LN  CAT ▗^ LINE  IF  RUN  PAPER  BRIGHT y©▛ OPEN # PLOT   PRINT ▗9 COPY TAB PEEK  RUN  RETURN CHR$  BEEP  LOAD [P] LPRINT ▜ RUN  DRAW _g[A]) DRAW  MERGE  CLS  RETURN © REM  BORDER ▝7p MERGE  STEP  BEEP  LOAD ▖FN : CLOSE # STEP OT LLIST VAL$ IN SCREEN$  LIST  STEP b▖UR STEP  STOP ATN . LET INKEY$>= BEEP  LINE 8 FOR CODE [Q][E]@ ERASE  CLEAR [J] THEN TAN & FOR  CLEAR Sc5IN X SAVE  NEXT  PAUSE `X OUT  READ h>p SAVE < PLOT   READ  NEXT ▖ CAT [A]<>[I] NEXT  SAVE [Q] OUT  READ FN  SAVE ▙VAL LN y PRINT  LINE  OUT  LET >= DRAW  FORMAT  LET y CIRCLE  LPRINT  BEEP  BORDER [P] LIST t| SAVE # BORDER  LINE WVAL  BEEP [B]V} OVER STR$ `P DIM y LINE & LINE  NEXT  LPRINT SGN  CAT  OPEN #v=O~ POKE <▚▙ OPEN # NEXT [G]O CAT [O]<=INKEY$ LET  POKE VAL$  DIM y LINE PEEK PI BORDER  AND [O][O] DEF FN {z VERIFY  OVER  DIM  OVER z[O] NEW >=a INPUT  GO SUB y▚▙ PAUSE }$ LINE _Q LINE  CLEAR O THEN  FOR | GO TO  COPY [M]▜ LOAD © LOAD  MERGE `[U] LIST  RANDOMIZE  RUN  REM [Q]?x OVER  PRINT 0NOT [D] NEXT />=uP RUN  LIST  RESTORE  IF INT [A]/▙TVAL _ DATA  PRINT -`^'ATTR USR IN w STEP [R]INT  DIM w LLIST ▚SQR TAN  LIST ▚[A] OVER  STEP TVAL w/P▚ CIRCLE <lx▚ DRAW / LINE  CAT IN  NEXT  IF cY SAVE ? CAT < GO SUB COS UG RESTORE [T] DRAW ©ACS  FLASH f COPY UTAN  PAUSE [F]oINT  INPUT QASN #t MERGE  RETURN  OR  IF CODE BIN [N]▞q PRINT  GO SUB [S] COPY  CLEAR  PAPER SCREEN$ {<> CLS ▙ OUT _@ GO SUB ZSCREEN$ ABS + DIM [H]`[O]© READ n_ IF J RETURN n[P]<v[G]CODE |v$it> LINE ~%) REM 8&BIN / DATA _ IF  LOAD WD RETURN  MERGE y STEP &BIN yn RANDOMIZE =ye!/y< CLEAR ▖ REM os' CLS ATN  RANDOMIZE ~ CLEAR  DRAW jQBIN 0ABS ABS  IF 4y RUN ?0 LOAD  LIST  READ  RANDOMIZE Q[K] MERGE  INPUT  CAT [P]>▙ THEN  STOP Q IF xnASN  INVERSE  LOAD  CAT  MERGE  OR AT ZASN ABS <> BORDER 8 SAVE  <yT_~ OUT  NEXT , READ C©▜ COPY FN EXP  OPEN #IN ? RANDOMIZE  VERIFY [P] INK [U]<BIN ASN  OUT  BORDER [O] OR ?I&"INKEY$[K] OR  LOAD  FOR BIN  RUN FN (▞ DEF FN  THEN yEXP  READ  IF ▘[K]y PRINT [H]7 TO /'@L RANDOMIZE y[Q]_7 COPY I OPEN #. COPY [ FLASH l<=AT |* RETURN . COPY  PAUSE SCREEN$ <=| ASN h COPY |4 MOVE IN  RESTORE  CLEAR uUR CLOSE #©<EXP *© THEN  PAPER PJSCREEN$ PI OPEN #5?( NEXT [F]s] OPEN #<=S BORDER J[I] RANDOMIZE ▙k{j▘ASN Zy|©[I]EAy-T`5SGN * CLEAR [G][Q]=PIu[N] DRAW TAB >/j3 COPY  DATA ▘SCREEN$  RETURN ATTR INT USR _>=U RETURN [A] OUT  INPUT  INVERSE ▜PEEK FN > ERASE PI IN [A]▝UK BRIGHT  NEXT hhM CLOSE #<= READ SCREEN$  COPY ▝ FORMAT ATN -Dr OPEN #}y[K] RESTORE  OPEN #W BEEP (?ATTR #ATTR  OPEN #TCODE '[P]INT GVASN ▘<>aIN  OVER sF~[B] GO TO BVAL rb PLOT  ▛Z COPY  POKE  LPRINT v![A] PRINT  DIM C MOVE PIVAL$ <=INKEY$ PRINT  BORDER [O]?<> ERASE y MERGE  FLASH  REM +xR BORDER  BORDER  NEXT  VERIFY [A]u LOAD VAL$  LIST ? LLIST EV OPEN #>=~|b INVERSE  DRAW <=SCREEN$  LET E READ  FORMAT [B]<> NEXT Q[O]q[U]VIN =CODE DU.Y CONTINUE jSQR  STOP }PEEK  CLEAR BIN T? MOVE `Q>=]y@▝PIPEEK PEEK ]"{y [A] CAT  LPRINT { DRAW y$APEEK ~ OUT }[H] /?$POINT INKEY$ATTR ATN R_ VERIFY ] CONTINUE D OUT  OUT SGN ATTR ACS $BIN D[P] BORDER ▛INKEY$▝▗SGN !IN j PRINT yxd CLEAR y▖wo/J-STR$  OR © PRINT [S]2[H]$[Q] [U]^[G][H] INK ,@ABS  FORMAT ▜ INPUT ^TAN  RUN CHR$ SGN / POKE  LLIST  RUN [A] OUT xX CAT SGN  CAT  CLS  LPRINT ;a NEW yEzSGN Zyk> BORDER ▞ OVER h[L] OPEN #8[G][G]LN > IF  OUT RNDACS j*▖[S] INPUT m CAT IN x MERGE Z# NEW 6 NEXT <=©i OUT $ CONTINUE # CLEAR  RETURN _ OPEN # POKE ABS  AND PEEK G]USR }v%oD▟ PAUSE  PLOT   CLOSE #BIN RND<=[B]/[H] VERIFY GoCODE E<=[O] COPY  CLEAR w`z BORDER  ERASE so1[S]<= COPY LEN LN <>8`?▗USR  PLOT  * DRAW  GO SUB < COPY sATN  RUN © TO  GO SUB wx RETURN ©PI{[P]3 GO SUB }FMATN  RUN T OUT  OVER [}{b RUN  GO SUB i OVER ATN p DRAW  OVER w PLOT  PEEK  FLASH  CLS o LOAD [D]PEEK ABS [K] CLS  PLOT  [R] LOAD  FLASH FN ABS oCODE  PLOT  PEEK ACS ABS  FLASH  CLS BIN o LOAD  THEN PEEK ABS  ERASE  CLS  PLOT   INK  LOAD  FLASH  LPRINT ABS o BORDER  PLOT  PEEK  INPUT  PRINT  INK  RUN  DRAW  DRAW ^ LET }<= RUN  OUT }| RUN  LET & OUT <=-|4 CAT CHR$ >~B CLS  SAVE I LOAD  READ PPEEK W SAVE >^e READ  CLS l▚ LOAD sABS ztLN  CLS  SAVE ▝ LOAD  READ ▖PEEK  SAVE >[G][N] READ  CLS [U] LOAD ATTR <PEEK SIN 3 RANDOMIZE EXP LN  OUT USR >PEEK <= CLS  SAVE  DEF FN  LOAD  READ  MERGE PEEK  BRIGHT  SAVE > READ  REM  READ  CLS  LET ▛ CAT  SAVE  OUT [D]<=PEEK  COPY  IF PEEK  FOR  CLS CODE  LOAD PEEK PEEK " CLS  IF ) OUT  FOR 0@POINT 6 RANDOMIZE ? RANDOMIZE  RUN SQR  READ  INVERSE <>[L]` OUT NOT  MOVE COS  LINE [P][E]SCREEN$ |ABS [B]0UFACS X-Z!'%[A] PLOT  [E]`STR$ [I]#STR$ j LINE  <=SCREEN$  INPUT G DATA CHR$ %CODE CHR$ ,<IN @6O POKE  CONTINUE V STOP AT >G CLEAR BIN Uq[T] LPRINT  TBIN <=SQR `[F] AND ▝1BIN [J]CHR$  IF ! LET  ERASE AT _ RETURN LN 0 INK ©@Z7t>=[Q] FORMAT > COPY  IF '! DATA >#VR/ FN 8ATTR  DIM BIN !▟<= LINE  LPRINT USR  RUN ATTR IN Xn LLIST [K]1 CIRCLE MLN  GO TO -LN m LOAD  OVER  RETURN 0j[R]NOT c PLOT  ( MERGE P*WqRND DEF FN J@ LPRINT  LLIST ▝7COS 2#s FORMAT | ERASE bAT L[O]}t[S] VERIFY ▜ THEN ▛uu IF  THEN oj LOAD ▝ RESTORE a PRINT  POKE >[B] SAVE LN  CLS I}}[I][G]7© IF u$IN 5 VERIFY ▟ CAT  DEF FN  FLASH  LIST <<>`FH CIRCLE h`USGN  FORMAT [J] SAVE @VAL$  STEP LN p FORMAT ? INPUT [F] PAUSE 6 CIRCLE S|7[I] RUN  PRINT  CONTINUE  LPRINT oz?]USR  GO TO USR  | COPY  LOAD  DATA b~* PLOT  ▞mBIN  RUN 4INKEY$ MERGE IN Nj CLS I LLIST W_ CONTINUE  LIST  OPEN #[M] DIM  LIST  CLEAR USR  LPRINT AT LEN SGN p;LEN SGN LN wAT 3 OUT EXP gEXP CODE X LIST STR$ PICHR$  BEEP ▜▘PEEK .LN f LOAD )COS w.1f OUT  BORDER [O][T]9c STOP %+ RETURN AT  SAVE [O];z CLS N[F] PAPER  DIM [P]9▞ IF  BRIGHT Rk REM g7+B%Y^k[F]pu<BFK" COPY  FOR ATN /~fSATTR J[J]PEEK J^|> FORMAT  BEEP  SAVE NOT U3CHR$ [K]▘RND▜ RANDOMIZE WABS  DEF FN @INT <>TAN  DRAW  PAPER STR$ [B]yLEN ` COPY >= LINE PEEK [K] INVERSE *B NEW [Q]@[P]p:A[P]*▘<=@ REM 0U[O]$)XuVAL$ IN PI TO , NEW [` OPEN # PLOT  T`nINT  DEF FN POINT  NEW AT ~?AV OVER  VERIFY qR BEEP ?LN  AND *TAN [O]`▘[S] PRINT 1 LLIST IN T STOP NOT CSCREEN$ ASN ?J] MERGE ©8d1ASQR w@FN [R][O]© RESTORE K| CLEAR LN ; ERASE SCREEN$  RANDOMIZE }STR$ ▝ COPY  FORMAT U PLOT   MOVE 2/ FLASH PEEK ? DRAW [C]S,%` RANDOMIZE *vAT  DEF FN {[D] SAVE `AjX PAPER (LEN ZF▚INT N/ PAPER V<=[H]CODE 8Oy BORDER  LOAD ▙ FORMAT  PLOT  POINT LN   DRAW VAL$ C LOAD 0D FOR 0 TO  F, SAVE  CONTINUE `STR$  LINE VAL$ INT  OUT @%D RETURN 0 FOR ATTR  FOR USR ([F]▛ DRAW [A] CLOSE #OLN ySQR [I] RANDOMIZE ▝[G][C] NEXT  LLIST [J] SAVE [H]▘ STOP $ BEEP _ DRAW : CLS  AND :]]v READ ATTR  CLS ( LPRINT [R] INPUT  FOR  CLEAR ▗▝SGN  STOP LN -5PI▝RND BRIGHT  OVER  RETURN NOT ol INK `L▜ STOP @ CLOSE #|7 SAVE 4ATN  RANDOMIZE  LPRINT w LLIST  LPRINT i LIST = RANDOMIZE q RETURN  LOAD ▜7Go[K] OUT o▞ NEXT   PAUSE  VERIFY BPOINT ,[C] RANDOMIZE  INVERSE  LINE $USR *|N^<= CLEAR STR$  NEXT  FLASH MLEN  RETURN  READ  CAT  ERASE FN [M]a©g/(} OR PEEK  LET !▛ INPUT  CLOSE #o INVERSE _| TO A READ  MOVE  RUN >= GO TO B DRAW  INK SQR  OUT  LOAD NOT [J]INKEY$[H]? STOP IN  STEP ▛ TO  GO SUB -g GO SUB ~ CLOSE # BORDER ~l PAUSE ~ BRIGHT  GO SUB ~SIN  GO SUB ~$ GO TO ~S` POKE  RUN ; POKE  PLOT  c[O] PRINT COS  AND t DEF FN K*BPI CLEAR PEEK [F] INK ~A[I][iINT INKEY$CODE  DEF FN I DIM  CLOSE #INT _2 DRAW UBIN ][M]Ry1[L]UP OVER  INK CHR$  PLOT  RINKEY$ SAVE eP PAPER RND_SCREEN$ Lm0INKEY$CODE  STEP  DATA  CIRCLE  LOAD Wo BEEP jTAN BIN  OPEN #[H]ATN *[M] POKE b`<>g DRAW SCREEN$ .5CODE [U]P-POINT $_^INKEY$TAN `[F]© PAUSE  BEEP [H] ERASE ATTR [A]STR$  THEN P PAUSE v& LPRINT INKEY$ DIM ACS {BIN  FOR w@<=qA LPRINT  MERGE  DRAW W GO TO ACS  INK 0[C] STEP W▗ STEP  CLEAR  LET D▝CODE GNOT LEN g OPEN #[H] DRAW wBIN [G]b OVER  INK o©CHR$ STR$ EXP UG? CLEAR ▖ PLOT   OUT  GO TO PPOINT ▟ DRAW SQR  GO TO [B]`B PLOT  INKEY$ RANDOMIZE @$ RETURN [I] OR INKEY$| DEF FN ~p[T]n2ATN  CIRCLE Jqm@▖A[G]1 LOAD  OPEN # DATA W DRAW <=BIN }z+ OVER [L]SIN ~7 PRINT Q▖SGN  BORDER  READ PI DEF FN >VAL PABS  BEEP o[J] PAUSE x OVER h>s NEXT ACS INKEY$= BORDER  CAT [O]) RESTORE LN W9 CLEAR  RETURN - THEN xY©9W DRAW  RETURN  BORDER z=W▗G OUT SCREEN$ A CONTINUE  LIST W SAVE  BEEP ^ CLEAR XACS  BEEP SIN  THEN  PAPER  PAPER .3 PAUSE |[O] BEEP FN  CIRCLE  PAUSE  LPRINT ▚▚[D] SAVE ILINKEY$[R]SGN INT [I][I]-X>SUSR  RANDOMIZE `AT AT +ASN KACS 5xfAT 27 DRAW x5 OPEN #jW| DRAW ASN  RANDOMIZE  SAVE { INK  PAPER P DRAW  INPUT ACS [P]PEEK ah][I]M BEEP [H] CLEAR  CONTINUE / CLEAR  IF  CLEAR  SAVE  POKE  CLEAR  SAVE  LPRINT  CLEAR  CLOSE #  CLEAR  SAVE LN  CLEAR  SAVE [U]© RANDOMIZE [A]A[O]INT 4`t THEN UC[B] RANDOMIZE `RND RANDOMIZE STR$ RND RANDOMIZE SCREEN$ RND RANDOMIZE [D]▝ OR tCODE {}V RANDOMIZE  RETURN RND.o BEEP  CLEAR <= MOVE IN ▞SCREEN$  BRIGHT ULW^ THEN TAB @CODE [J]bCODE BIN  LOAD [A] SAVE SGN  LINE [B] STOP [H] LIST STR$  STOP  NEXT PI^ CLS ▞ TO <> DRAW SQR @ACS  VERIFY ao) INK _>[I]r|[J]y RUN  RESTORE  LINE  STOP <=[L]y[P][H] CLS N[N]wASN  BRIGHT  BORDER <=[P]SGN BIN [R]CODE k BRIGHT  CIRCLE >= TO 7' OVER CODE  READ  CIRCLE g TO #[L] POKE <^3<=J REM  REM CHR$ [M]ATTR COS  FOR {SQR [C]STR$ ]2FN  IF 3ATTR `s1_ LINE [M] STOP  DRAW  POKE  PRINT  COPY 8 REM O> PRINT cI REM ` COPY d NEW  REM LN ACS ^ CLS iS ^ COPY  READ yud LPRINT 3▚CODE ATN {&Yw CLEAR ©OPOINT IVAL$ [O]^C OUT x NEXT  CLEAR  OPEN #MEXP  TO x STEP  LOAD ALEN STR$ TAN [M]▙} NEXT [D] PLOT  at CLS  REM USR  INK ,[H]<= RETURN SGN  GO SUB z1▝I RANDOMIZE CODE COS CODE  AND  BRIGHT  BRIGHT [N][< RUN [F]0[F] RETURN  CONTINUE SCREEN$ CODE  STOP INT  BORDER  STOP  CLEAR  COPY  REM {[O] THEN [I] LINE CQ LOAD  CLEAR  PRINT  READ T▗ OVER  SAVE t[F] RUN  BRIGHT  COPY  LLIST J NEW  CLOSE #CODE c SAVE STR$ [S]3W▙ OPEN #mhZ OUT  RUN k AND |[P] COPY  GO SUB @{ BRIGHT  INPUT [U] OPEN #j AND  OUT INKEY$z`7[M] SAVE pOCODE ]q0SCREEN$ 8 DRAW [K])[E]_hSCREEN$  COPY SGN IN Z<=CODE  BORDER > BORDER  BEEP T BORDER  BEEP B NEW  BEEP 0 BORDER g PLOT   VERIFY VAL COS  LET % VERIFY |▚ CLS /" RETURN ▟N@ NEXT ; VERIFY Vos_b[G] PLOT  jFi COPY T0 GO TO IN  VERIFY  DEF FN CODE [A] CLEAR J BORDER VAL SGN  DIM F VERIFY ▖INT ATN INT R<=[D]MAT ? CIRCLE ▙ COPY  RUN oAT  DRAW  LOAD  COPY [D]ATN PEEK  CLEAR [K]INKEY$R▘ CLS  INVERSE  OUT EXP SGN  DATA  VERIFY y VERIFY N IF 5ABS  OR #o VERIFY [R] INPUT .>=SQR  BRIGHT ©▘ BORDER  PAPER |[T] OUT wVAL  LINE SGN ▘- GO TO [P] IF v▘? CLEAR VAL$ RND▘? RETURN [L] OUT x BEEP <=AT { RUN /<={V BRIGHT AT  DRAW -RND COPY SCREEN$  LLIST | COPY D▘©IN  CLEAR  CLS VAL$ FN 'rX VERIFY  COPY  LOAD [F] CLS * RETURN [U]WT, VERIFY [N] ERASE H- REM < CAT ▘ RUN ~ CLEAR  LET  FORMAT < REM t6w▘? DIM ▘6[K]IUAT  NEXT 4* CAT ▘*3 GO SUB  RETURN  MERGE  VERIFY RND_AT  CLS  IF }W.EXP POINT INT AT {>Q▟▙ PRINT  STEP ▘ CLEAR  BRIGHT [P]▖2 BORDER LN [O] VERIFY  RUN h] BRIGHT  CLEAR n OVER  VERIFY SQR  FORMAT USR p INK  INPUT 0 THEN  BORDER ▘ CLS b RUN  PAUSE 3[T] SAVE  N▘ SAVE POINT vINKEY$ RUN  PAUSE  SAVE 3/ASN AT  STEP W DRAW ;ATN  LPRINT  FLASH /AT  RESTORE w▙+ BORDER $,▘]/ DATA j LIST  GO SUB |&T VERIFY ' INK  CAT [O]2r▙▘ PAUSE s▚w~ DRAW O NEXT  GO SUB [I] SAVE  COPY  RETURN  DATA  LPRINT o▘u MERGE ▚FN  READ ▘ RANDOMIZE  FLASH ~3[R] DATA ▘[U]=[C] PAPER  NEW  GO TO  PAPER M-[K] BEEP AT qG CLEAR 9<>| FOR  SAVE ▘ RETURN  LOAD  CLS [P]ATTR v VERIFY  OVER C$# OUT  OVER LN [M] LIST ▚ TO  LINE [L] CAT  NEXT F▘ LLIST ~ DIM C RUN [P] LET  PAUSE 4 CLOSE #/▘m| SAVE [T]? STOP [K] OVER SGN  LOAD dqQ<= OVER TAN  FOR PEEK [Q] CLEAR CHR$  REM PI CLS  GO TO  NEXT P< DATA PEEK CODE [A] FLASH  FOR (©SGN 9b POKE  IF  VERIFY ~ COPY  FLASH &VAL$  LET  VERIFY  PLOT  ▟fd DIM  RUN  BEEP ACS  CIRCLE ^ GO SUB 7|▚BIN NOT ▛▘ INK  INVERSE  OVER  CAT  CLS  OUT  RUN [N] ERASE  PAUSE  GO SUB  BORDER  RUN  LPRINT EPOINT < CLOSE #AT  CLEAR  READ )[H] IF [A]VAL$  NEW AT  CLEAR  LIST  RANDOMIZE |.CHR$ ▘ COPY  DRAW  SAVE / DATA -/SGN  PAPER  OVER  DATA  BORDER PEEK  LIST g/}>= THEN  IF CHR$ ~0 LOAD 6} MERGE ▘SIN USR  LPRINT jM RETURN ▘GO IF TAB ACS ▘ATN >=ATN  LLIST k5 CAT  OR [C]SCREEN$ ▘▜5 READ [E][L] LPRINT I5AT Wmgm) LIST AT c PAPER T LPRINT © SAVE [P]INT [G]M CLS PEEK R[ SAVE  VERIFY  FORMAT COS W LET  RUN yL CIRCLE POINT /xNOT n▘IN  BRIGHT ms LOAD  OVER >CODE f▘RNDo▘ FLASH [T] LIST  FLASH  LOAD  BRIGHT G STEP ▘>=[D] REM ▜ OUT  DIM  FLASH  CLOSE #AT ATTR  CAT  FOR 5i PRINT SCREEN$ AT SQR WR INK *Q BEEP fVAL$ x[ VERIFY 5&rc OUT  PAPER  STOP  VERIFY B[U]m CLEAR [G]▘AT dPI RUN IN AT ▘ LLIST 8 NEXT ~" CIRCLE W<= PRINT pATN ©p CIRCLE W POKE [C] PLOT   PRINT ^ CLEAR # CIRCLE ._ LET } LOAD  NEXT PIw CAT V▙AT ?RxNOT  LOAD  READ AT © RETURN  RUN  FLASH <=▘N~? LLIST  READ ASN  VERIFY  DIM  PRINT INKEY$|©NOT  RANDOMIZE L GO SUB  CAT  VERIFY S<? CAT  NEXT  BEEP  PAUSE  ERASE ▘ MOVE  PRINT STR$ [I] NEW ▖qATTR ▘ GO SUB ATTR ABS (▗7SQR  SAVE ▘POINT `[J]BIN [N]BIN IN  OVER  DRAW  GO TO AT  OUT  CLS  LINE SQR  PAUSE <>▞ OUT ,rABS > VERIFY  CLEAR d<> VERIFY  VERIFY TAB w FOR  DRAW f▘TAB }% SAVE VCODE  OUT ▘~ RANDOMIZE [O] MERGE -▘2[S] OVER  DRAW A IF ▘[N]7U< PAPER PEEK "- MERGE AT  RETURN ▜[D]ATTR [O]▘ OVER  THEN  RETURN #[M]WATTR ▘ LPRINT yABS VAL  DEF FN  VERIFY c COPY w[H] NEW zAT ▛5 VERIFY A BRIGHT ^O" CLS ▜▘p?▚ OUT [E]CODE ▘c CAT  RUN ?[J]IN [L] CLOSE #t_▜ VERIFY  GO SUB ©[H][U] FOR [O][C]:SGN  RESTORE COS 7 BRIGHT ^▚r RESTORE aRND6x STOP ▚ CLEAR [G] BORDER ▖ASN  LIST tCOS ATN 3}LEN STR$ / GO SUB i[T] DIM [ RETURN SIN ATN  SAVE ▘STR$  FLASH -LEN  BRIGHT  LLIST  NEW a▘VAL 3 DRAW 2 STEP  OUT  LINE YnAT ># CAT  SAVE [s▘ BORDER TAB 2 BORDER ABS [A] OUT  CLOSE # OVER [P]5z[P] OVER CHR$  RANDOMIZE  PAPER  POKE  INVERSE ^▘- IF I OPEN #ACS ▘ LOAD <=▘ IF © SAVE >=ATTR  CAT SQR [N]r LIST  CLEAR  OVER  CIRCLE 16- RANDOMIZE  PAUSE AT  RUN v$▛▘> LINE e PLOT  c VERIFY  DRAW [C]CODE t▘ REM  PLOT  [E]J POKE N!m{(INT R[F]▘ACS %J▘+ OVER ▘SQR ▚ INVERSE  DATA RND CLS ABS ▜ PRINT  TO 0$ RESTORE N NEW AT O SAVE [C]L LET x*AT ([U][B]3.[P]7▝7:▙SCREEN$ [E]H NEXT  RETURN aiXSCREEN$ RG▘ NEXT y[B]▙U INVERSE ATN J8 THEN  MOVE  DEF FN  BORDER ▙M)<=W PAPER  CONTINUE  FOR ▛▘> LOAD wm▙S RETURN <>NOT  CONTINUE };▘SGN  RESTORE  DIM AT y`0 OUT I©LN y DATA  RANDOMIZE  CLS  RETURN [S],SIN R LLIST [M[H] VERIFY  COPY FN  READ  NEXT STR$  RETURN W▝[A] VERIFY okASN [J] RETURN '[E]INT ▘▝ DRAW n/ READ  FORMAT INT m▘[S][L]▘5▙O[Q]RND.▘:$ DRAW N_[R][O]jAT / SAVE Oy[P]SCREEN$ $AT [J]Y DRAW >=#IN 5 DATA  OVER  SAVE ▖jCOS p&POINT  VERIFY _[B] CLOSE # TO  CLEAR 9 VERIFY  CLS  PAUSE  TO  LIST aO%©A▘IN  RETURN J PRINT m LET [H] INVERSE  LLIST @ATTR  LET ▘X INPUT  PRINT pu© CIRCLE ?, PAPER yTAB STR$  COPY  LPRINT 0 LIST ▞o.USR p CIRCLE H DRAW .&`<> MOVE { GO TO  THEN /@? DATA /:' PAUSE >. LIST  CONTINUE [L] POKE  BRIGHT ; DRAW  COPY .:? LET  CONTINUE [F],x RETURN ©| PAUSE B' SAVE [B].[D]SCREEN$ RND> OR  OPEN # CLS  LIST 'SQR ][K]?:© RANDOMIZE r[ SAVE  RUN  LOAD [O]cBIN }g▛[D] POKE  CLS Mm OUT  BORDER  BORDER zRND: RANDOMIZE [P] FORMAT [Q]{ LOAD 7;USR ©t STEP  DRAW ?BIN ©z BORDER ATN [B]':PI[Q]ATN INKEY$~ PAUSE  OR  RESTORE {_ RETURN );zT[F]=[ STOP SIN  DRAW ^u CLS ./ CLEAR _E~ LIST bN9v&' CLEAR  NEXT & LIST <[H]1 BORDER ACS ABS / GO SUB  CLOSE #nLj© SAVE  CLOSE #©l6 FLASH 2<= PLOT  .LEN  CLEAR *l COPY  FLASH ©& PLOT  " CLEAR <= COPY LEN `mB[D]JX RETURN INT _* VERIFY ▜ LOAD  CLOSE #_SQR 3_▘ CAT  INK ATTR INT TAT AT USR vKLUSCREEN$  PAUSE ~[O]▟$m[U]SGN  VERIFY INT <~F▘5[U]>=[U]▘ZUSR  /([O]PEEK ▘{f RUN  DATA 2[K]SIN  PRINT INT x[QTAN RND[P][F]AT yABS [O].SGN [L]*ET▘ GO TO ABS LEN `Jo>= NEW i CLS J "R6J PRINT [F]?[F]CODE i VERIFY m>=ACS [D]L[N]( THEN  DATA ▘ NEXT .J LINE  REM ▘CODE  TO 5A▗F▘ RUN r COPY ▘PEEK  RESTORE AT  LINE +2PI CAT  CAT ▘ABS ; NEXT ▘ RESTORE 5SGN DTeR▘>=▘ CAT |fVAL$ [E]▘Sm/▘>=+mACS z PRINT ▘ CIRCLE ▚▘ FLASH [F]9};}[J] PRINT *[I]CL@ PAUSE [D]AT CODE 9i<>1 SAVE f VERIFY h2.y#: RESTORE [J] MERGE [O]dS" RANDOMIZE  INPUT  LINE  RESTORE pATTR / MOVE ( RESTORE CsSGN :[L]2q MOVE gM▙ PRINT ASN x?▘[O]X^TAB ▘}D BRIGHT  PLOT  TAN ZN.▘C DEF FN  MERGE [D]6[O] DATA BIN ▘ATTR [F]ATTR ▘BIN V[P]<>=▞▘m PRINT ▘IN  IF 2[O]ZTAN IN POINT  { RUN  CLOSE #▞© COPY  INPUT BIN V'~ DRAW SQR wO[O] SAVE  GO TO ATN LN D STOP ▟ COPY [ LET ▘ LOAD ex©RND LET y PAUSE GABS _RNDon_RND STEP oC▘TAB 2 READ ` SAVE GoRNDm#[O] REM P>= DIM ASN _AkSGN ED PLOT   STOP SGN  DRAW ▜USR  CLS  STEP :TU FLASH xAT :[S] NEXT  PLOT   VERIFY ATN [P][H] CIRCLE IN  RANDOMIZE C0o GO SUB  CLEAR [C]/ COPY  VERIFY  OPEN # CLS  BRIGHT  POKE  RETURN USR ABS  COPY  OUT ?[U] GO SUB  CLOSE #, REM ©zP[P] OVER 4XINT  OVER  PAPER W COPY <> LLIST  CLEAR [M]RND RANDOMIZE  THEN i COPY  PAPER © AND  PLOT  _STR$  CLEAR [H]SGN  COPY RNDATN `iSIN [D]OnK NEXT FN  ERASE  RETURN [T]TAN  COPY 'VAL [O]▘IABS RND VERIFY ATN _ RESTORE / OVER ^=[D]=CODE ▘O[D][O]AT '[D] CAT ▛INT )O[D]=o LY<[D] VERIFY |' RETURN {▛, OPEN # NEXT [D]W LINE pATTR  BORDER ~}"/FBD! OVER [J]▘ NEXT ATTR  OUT ▘EXP } IF  OVER AT *CODE ~[D]▘KINT L* DIM {"[D] PAPER - VERIFY  OVER  ERASE  RUN [D]▞, DIM {([D]▝>=<=/(F TO  STEP ▘y` LET ▘2i▗USR USR INKEY$2COS ▗._f DRAW  IF ABS f▘8▗ MERGE  PAUSE [H] VERIFY INKEY$ RETURN ▘D*▘6 OUT B▘  MERGE  TO FN INKEY$ LET Ky[D] PAUSE ▘[A].0[D]SQR r^ RETURN ~z[D]y} RUN  LLIST [L][O] BEEP TAN [P][L] LLIST ]CHR$ [L]' PRINT [O][L]▚ATN © CAT C6[E][L] REM x[O]C`[L] COPY  GO TO  FLASH kCG[H][S][P] RUN  COPY  OVER ZPEEK [H]yASN ▘. RESTORE [H]AT z^ MERGE j[D]INT  PRINT  RANDOMIZE 6 CAT  THEN [.[H]X PAUSE <>INT ▘ BORDER  RESTORE [G][H] RETURN /▘Dot GO TO ATN  COPY  INK BIN ▞{ PLOT   NEW ▗w▘ RETURN ▝ BORDER INKEY$P▘ BORDER ▘<>1POINT w GO SUB ySGN ▝=▘ IF [F]n[J],ABS  NEW f▘CHR$  SAVE  NEW  orj REM ABS ▘5 4▘ASN ▟<>▘>= MERGE  TO  0m REM ABS ▘}TAB >=p OVER s BORDER >=AB PAUSE *▘ BORDER _▘INKEY$?>F CAT [O]©INT [I] COPY  SAVE 0= LET =z RETURN 0| GO SUB  CLS [C]▝ CLS  LOAD D RETURN ;? COPY  DEF FN :IN COS 5 LOAD  GO TO 0; CLS +SQR  COPY _ACS ATTR © FLASH SQR  CLOSE # FORMAT  INPUT ( CAT POINT jE RESTORE  RUN  LET  DEF FN ABS [F] CAT  INK  NEW  RANDOMIZE NOT o/ INPUT T RANDOMIZE BIN  GO SUB R? PAPER mSIN EXP ATN mD, PRINT  FLASH  CAT Q/. LET  RETURN EXP w8#[O]l CLS  NEXT  CLOSE #CB/ LOAD PEEK ACS ACS ) INVERSE ATTR  DATA VAL$ +Ak RUN -PEEK o FLASH  PAPER /ACS  LOAD  CLS ACS 1TAB  GO SUB 3m_ OR <=o5AT  BEEP  NEW 7ASN  RANDOMIZE 9m RETURN  GO SUB C;STR$ _TAB = FORMAT Wm?[L] OUT  RUN UA MERGE  NEW C RANDOMIZE }_ASN Em~ DRAW jG FORMAT  COPY  PAPER IIN 6<>ATTR  STEP M GO SUB  FOR S AND TAB O`k CLS Q FLASH WBIN PEEK ZS| MERGE  PAPER U4 BEEP  PLOT  W{tVATTR ASN YLk NEXT [_ RETURN [E]RSQR _ BRIGHT k CLS a>j LLIST  PAPER c BEEP  INPUT e MERGE  PRINT ASN g GO SUB F RUN pi[I] REM kk PAPER ▙m6 COPY  STEP IN oFN TAB qk RUN s=ABS X REM  PAPER uv{LN w8 MERGE ASN y GO SUB  RUN r{[H]k}W_ FLASH © BEEP  NEW ▝ASN  RANDOMIZE w BORDER "zmkSQR K▜SQR ▜ OUT Q]▞ BEEP  INPUT ▛v/[Q][T]INT ▟VAL$  INVERSE m_ BRIGHT [L]©[B] NEW _[D]CODE  VERIFY [F] FORMAT EXP v[H]ASN {d[J] MERGE r GO SUB [L]ASN k RUN [N]SQR [H]HwV[P] BEEP  NEW [R]}|0 RETURN ASN [T]©mRNDZ[L]PI PAPER ABS AT POINT  PAPER SCREEN$ ACS ATTR  STEP [T]SCREEN$ TAB i NEXT CODE  CLEAR  CONTINUE g PAPER LEN [Q] OPEN # INPUT COS  CLEAR  MOVE  RETURN ASN ASN ©mATN ^[L]EXP vT MOVE  OPEN #SQR ASN  CLS ABS  MERGE / GO SUB IN [L] OUT  INPUT GUSTR$  VERIFY  NEW NOT } CLOSE #CODE TAN  OR  INK CODE  GO SUB <=k NEXT <> SAVE  DRAW } COPY CODE ? INPUT  OR IN  BRIGHT z RETURN c` BORDER  DRAW ATTR : COPY [A]SGN ACS  BRIGHT  RUN  PLOT   LINE  OUT  FLASH  CAT }o CLOSE # PLOT  ABS  INK  OVER  FLASH  NEXT  READ o OUT  CONTINUE  INVERSE } GO SUB CODE [M]6ABS = RUN  RUN  PLOT   DRAW  OUT  READ ~ SAVE = READ  RUN [G] OUT Y BORDER  PLOT  |^ IF  LET {$)<= LOAD .IN 3{ DRAW 8 LOAD  LET =IN <=BCODE GSTR$ =~Q CLS  SAVE V OUT  READ [~` SAVE =ej READ  RUN o▙ CAT t#GSTR$  INPUT  OUT ~=~ RUN  SAVE ▖ OUT  READ ▟~[C] SAVE =[H][M] RESTORE  NEXT [R][P]<>CHR$ STR$ {|ATTR  BORDER  LET VAL IN <=ASN  DRAW INT  LET {IN BIN <= LOAD <>[P] DEF FN  CLEAR  NEXT  DRAW NOT  COPY  PAUSE uIN |t/ OUT s THEN  RUN r PAUSE  CLEAR q| COPY  REM IN | OUT o THEN +n/ OUT m FLASH y/ RUN }o FLASH  POKE 8EVAL  FLASH  NEW [F] GO TO ©S~IN [N]CBF BRIGHT [U]AT  SIN TAB IN  RESTORE  AND #▛ CIRCLE LN #XASIN X'IN X▛XJ#XXW#W▛v[D]VVAL  RETURN ATN VAL  ▛ PRINT  PAPER ATN rzVAL ▛ BRIGHT  READ }4PIoATN ;CHR$ ▛j REM USR COS K OUT  CLOSE # LINE  OPEN #E`}w RANDOMIZE  LLIST [T]v IF u` CLEAR Z INK  IF SCREEN$  INPUT  INVERSE [O]aW;> COPY UCOS  INVERSE  DRAW SCREEN$  CIRCLE  COPY  DEF FN VAL$ CODE  FOR ]ASN  NEW  RESTORE <= RETURN  BORDER 1VAL ▛ COPY  RESTORE ©y_PEEK [H] LOAD ▝ POKE ~LN  GO TO t OUT <= RESTORE CHR$  LET ©VAL  BRIGHT  OPEN #3<= COPY AT ~ OPEN #/ATTR ▘ MERGE INKEY$ COPY 5ATTR AT yAT t DRAW /e`k6w DEF FN ySTR$  REM  OPEN # RESTORE y OPEN #▝▘[I]AT  COPY INKEY$/<>▘ MERGE INKEY$5t▛SQR  VERIFY  OUT [B]uATTR l$R[Q]m FLASH IN  LOAD $ATTR #VAL INKEY$ OPEN #G LET ] VERIFY  POKE zK▝[A]CODE  OPEN #SIN $COS [A]8? P OR ASN p LINE 8[L] [J] PRINT 1VAL$ TAN  INPUT  AND [I] MERGE GF[D]eINKEY$▝ATTR USR r~COS  AND  LOAD  VERIFY AT INKEY$o DRAW  VERIFY s INVERSE  COPY  TO COS ASN 0LEN  OVER  TO 1USR INKEY$iN# LPRINT INT m MOVE sACS LEN  ERASE ! IF k POKE ▙Z OPEN #Fc[J] OPEN #0R<<>ATTR ASN K PRINT ATTR [R]/ OR INKEY$-#AT  LET ACS  FLASH _r[G]yEXP  FORMAT  OPEN #s[D]bINKEY$xUSR  STEP [K]SIN  PRINT  LPRINT  CLEAR lxn RANDOMIZE  LPRINT  NEXT v[P] BORDER [M] FLASH  RANDOMIZE /F}[R][M]& OPEN #  BEEP 0 LIST  BORDER <=[U]VAL BIN  MOVE [K]EXP $`INKEY$▚ READ  VERIFY  LOAD  SQR  CLS  GO SUB  OPEN #F DATA ▘ OPEN #vSTR$  OPEN #k{k PLOT  EXP  PLOT  [B] OPEN #kLN ;k|[ek AND nki* FLASH k LET P OPEN #k LET h OPEN #kSTR$ rIN ASN NOT CHR$ y`; OPEN #C^q OPEN #[I][P]▚ STOP % NEW BRND<> REM  GO TO ▗ INPUT  LIST  PAUSE ! POKE  PLOT   SAVE * DRAW "0 RETURN AT FN ,[E]EfJ[K]POINT  RETURN _ CLOSE #[Q] DRAW p RETURN  LIST [P]▛ COPY  CLEAR  POKE COS  CLS O STEP [N]▙ABS  CLOSE #[K]/_ LINE jQ LET m STOP _j COPY m INPUT SQR  BORDER ▝ INPUT [O]▜EXP {▟[D] BORDER  INPUT [J][O]SQR AT { INK  INPUT EXP ATTR  PAPER  BORDER LEN 0#B FORMAT ()0aWFCABS  INPUT ▘ THEN  DEF FN  STEP @ ERASE COS &CDESIN ▟ POKE G  NEXT  B CAT   2E @[A] CLEAR [J]g@Cy@Fg[A]`[J]A`[A]yD[A]`[J]gAyD[A]g[A][Q][J]A[Q][A]yD[A][Q][J]gUSR AyUSR D[A]USR g[A] LPRINT [J]A LPRINT [A]yDCOS  LPRINT GHz VERIFY IJKLF CAT MN INK O  [A]yJ[J]g M  @@2 CAT J NEXT @Md!@` NEW `J[O]A`,dM`<J3>= TO M[Q]g[A][Q][J]J[Q][A]yMSIN [Q]USR USR   NEXT JUSR 2 CAT MAUSR  LPRINT  LPRINT d[O]J NEW  LPRINT MdA LPRINT  VERIFY COS QRS CAT zTUlVW  >=<R TO 3 U[A] @[J]g@Ry@USIN [A]@` NEXT `R CAT  `2U`[O]AdRB NEW U[Q]3>=[Q] TO R[Q]>=<UY[Q]USR USR [A]yR[J]gUSR U USR  LPRINT  LPRINT 2 CAT R NEXT  LPRINT U RETURN   LPRINT ABS  POKE [E] FOR IN [U]AT `_ATTR <SMAILY.1C8c CONTINUE ghhrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT  GO SUB s RESTORE d[!d OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ! OPEN #SCREEN$  COPY  COPY  INVERSE E<> GO SUB LN  FOR  RANDOMIZE  CONTINUE c 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 RHR[M] DIM EBBBB< COPY W OUT  NEXT  BEEP  RETURN uQ FLASH ©, CLS  SAVE ATN SCREEN$ [Q]*▘IN |UT MERGE  REM IN h+ COPY J IF SCREEN$ }]4ATTR [B] DEF FN ▘INT PEEK b[R]tSCREEN$ FN COS ~/IN  INPUT  COPY [E] PLOT   FORMAT IN  REM j|Q CLOSE # STEP  READ [F]VAL$ [T][S]/ OUT !dW*BIN vu/ MERGE  SAVE  CAT VAL$ SCREEN$ UO NEXT ] CLOSE #PEEK  BORDER ▖ COPY H NEXT  REM  AND  BORDER  RUN  PLOT  _ RESTORE >= RUN ATTR C REM ATN A DIM  CLS ? TO R FLASH " MERGE CODE ▖ FORMAT  PLOT  Fm` CIRCLE  STOP  AND  LET [U]/ INVERSE INKEY$IqpVn[I]p LOAD # BEEP  PLOT  ATN ? DATA p OVER INT  RETURN  LOAD WB BORDER oE NEXT  AND ▜ LPRINT Q(▖"D NEXT !T[S]<= SAVE SCREEN$ ▞i<> INVERSE  OVER ? DRAW ASN [M] LPRINT Uu LPRINT PEEK / MERGE  OVER TAN CHR$ [S]EXP p©Z-pT<=4 CONTINUE  BRIGHT FLEN  STOP r RETURN *Tn RETURN L+INT > POKE }X.[T]l6[E]5%$+ MOVE  INK t CLOSE #4?8lT,"$USR  Bn FORMAT ▗hj REM  REM 68 NEXT zPEEK AT +RND MERGE t`6 OPEN #©y RETURN @[|▝a[K]p CLOSE #pLN op~p CLS  OUT v; REM  FOR ▙)mSTR$  LIST  GO TO  COPY  RESTORE o>bN CONTINUE h/| LET  RANDOMIZE  INK ▙POINT 6 PRINT kLX7 OUT CODE FN "[L]cH NEXT 7@ 'h:@ODqy," SAVE y&luRND|V MERGE jShVAL  READ [T][U][Q]@, MOVE _UQ( INVERSE  BRIGHT CODE VAL$ : CLOSE #4& REM  COPY [P] RETURN  BEEP  INPUT ATTR *[S] GO TO [N] MERGE V READ ` RUN `PLw0y COPY  CLOSE #w▙TAB EXP G<=[L]g LPRINT ?qy DRAW M PRINT mn FOR v▟SGN  SAVE ▚PyINKEY$ztPIqPVVAL  TO  CAT X>n^ DRAW b RANDOMIZE  LIST [R] /[I]X. CONTINUE [I] SAVE PAT > LIST [Q].(t CIRCLE ▟[P]zLEN VNOT ACS  FORMAT  FOR  P? CIRCLE  OR *v* RANDOMIZE 9 FORMAT T~ASN jj▖TAN - LINE  STEP  RETURN  COPY LN e*Fg FOR  LIST COS IN ZD*;~cC DATA gU INVERSE n<UEXP 8 OR *SCREEN$ " THEN  LPRINT ▜ RANDOMIZE 9 CLEAR [J]FN SGN  RETURN INT  PAUSE c DRAW  INK  THEN ▟ PAPER CUATTR  DATA  LET  CLOSE #▚[F]SCREEN$  LIST _ RUN [Q]?/pD} STEP  CONTINUE SGA PAPER 2 RETURN ▖9VAL  RANDOMIZE O LPRINT ▚ACS ▜[I][J] LLIST  INVERSE  STOP !VAL$ [J]>[I] LPRINT  DATA  THEN 5 POKE <V© MERGE  PAPER IN [U]R'[+jT>VAL$  DEF FN FN *=ABS w DATA  OR  LOAD _▜K▞ STOP % LPRINT uAT  RESTORE mpV, GO TO PNOT <=r▖ABS  SAVE )hSTR$  IF CHR$ NP RESTORE h RETURN }P|xRx LLIST '.X_X;`cBIN  FORMAT STR$ ▜S CONTINUE P SAVE VAL ? DRAW [E] CIRCLE P CIRCLE )P[B]SP"▘PO9PATTR CHR$ S^pU4>SGN POINT  LINE 8VAL$ Z1FN r▗U>=e?EXP  LLIST SCREEN$  CLS COS  PLOT  W REM [L]?IN SGN a DIM  CAT  CONTINUE  VERIFY U AND  CAT [M] SAVE  AND [U]INKEY$ DATA  CLEAR ^ RANDOMIZE CaA[P] PAPER lV TO  CAT nVAL$ EPOINT IN }[ACS / RETURN  LLIST USR r▟[D]T<xg~UCxFN AT = NOT  DRAW  OUT p_ IF W|~>IN q BORDER ▙ LET G▝ STOP SCREEN$ BxUs[R]f`Z3ABS BINKEY$[U]B^TPEEK  PLOT  /~▘[J]:SCREEN$  GO TO rUp FLASH SIN  STEP  LLIST ▙[Q]] MERGE  RUN q}▖CHR$  PAUSE VAL {/9_ MOVE  LPRINT  OVER v▜(s%DG GO SUB [I]$<=LEN ' DATA M CAT  / POKE #ATN < READ  BORDER  LIST ▞ LPRINT ~p,NOT [H][P] LPRINT 6IN w LLIST C[U]▚p?pa'nNOT p▚[P]VAL  SAVE pRND; LIST t FLASH 8 INPUT ▟ FLASH ©Lpz COPY [I]▘m GO SUB r FLASH FN y NEW v▗}▝1 LPRINT © NEW p,;C RESTORE %@ THEN ▝ GO TO SIN /p@ LOAD  FLASH  PLOT   VERIFY po READ ABS TAN ©z LPRINT LN s<> COPY  COPY ' INK (Po[E]LN  VERIFY  CAT BIN  STOP  SAVE W FORMAT  OR ACS >= COPY  OVER ▝gSGN USR pz FOR /0AT - LINE  LPRINT RND[D] THEN [H] RETURN  BRIGHT IN ▝▘ LPRINT  OUT CHR$ q RUN  OVER  BEEP  CLS q[S]TAN }`ATN ▝BZ& RETURN VAL ABS  INVERSE _ INVERSE FN NOT jP▚RND COPY  CONTINUE  TO PEEK / RESTORE ( LOAD ▛ LOAD  DEF FN |to LOAD SGN INT _ OUT SGN  FLASH x[U] OPEN # GO SUB & COPY  SAVE 1 RETURN X`ABS NOT NdEEu[▝ PRINT  COPY ▗USR GwLN SIN lCOS ATTR 4>=[S] NEXT  LOAD PEEK : LIST T FLASH NOT [Q]F7>6 PAUSE  IF 6NOT ATN 0u5 PAUSE t_ASN STR$ J© COPY  FORMAT "X THEN r  GO TO [N]SCREEN$  CIRCLE P^>USR VUyX~ AND ACS WUACS g*INT _W DRAW lJ: REM  LINE  CAT Q]k THEN  GO SUB  STEP  (nINT :5 RESTORE c)j@q PAUSE ?nz$ RANDOMIZE E.z GO SUB [F] DATA <* DATA  RESTORE  BORDER %u[= INK 0TUSR J4 OUT A>=PG PLOT   RETURN CODE  NEW {^ RESTORE BYX_[h*"(X|I FOR  DATA  FN . COPY SCREEN$ FN [M]EXP   OVER *@ IF <= BEEP ="}Xz LPRINT  REM c|Q DATA 97|▜NOT 6Z7>$V NEXT USR EINKEY$p OUT *VAL [K]USR u[B] DATA p DEF FN BINKEY$ BEEP <>a{r▗[A] TO  PAPER z^JVAL pv7P[A]i CIRCLE VAL$ [J][P]SCREEN$  REM ]T SAVE  IF  BORDER o/ATN INT  RUN  NEW  CLEAR  VERIFY t[H] PLOT   RUN P[O]/V CAT [H] PLOT   RETURN  CIRCLE > DRAW  LPRINT ) CONTINUE COS RND RANDOMIZE ut CIRCLE  CONTINUE AT @T STEP  CAT VAL$ [U] OUT  PAPER [I] IF USR  PLOT   RUN uT LPRINT T/▝JABS  OVER USR Zg LPRINT S# VERIFY  LOAD ▜[N] LLIST USR [O]<=!<=USR ©USR C SAVE USR  BORDER  LET APIUSR  OR [F] OUT wtzUSR <=3j IF ABS ; INK yUSR [C]F4tUSR PEEK SIN 1u CLOSE # OVER  DATA L[S]INT USR  BEEP ~ PRINT zUSR ▙ATTR USR EWP>=* READ *u PRINT  CLEAR USR  FOR x(Et LINE  PRINT  VERIFY [D]{TQ INVERSE IN ^[P][I]^D COPY  PLOT  SCREEN$ 7 CAT  RETURN  REM 7[E]▚ACS c OUT  CAT NOT STR$ y[Q]QZVIN  $USR  RANDOMIZE ACS STR$ t[Q]h LPRINT  LPRINT zSVAL$ USR  OVER  OUT [B]USR  LINE  PLOT  JNOT  STOP NOT [I]^`SGN l LOAD [A] IF ]_`ABS ▗EXP ATTR USR d LLIST ` BRIGHT u)[U]USR .[S]}dr BRIGHT +VAL$ USR ]E& CIRCLE USR ~ FOR R IF USR ZBTAN  BORDER JM ERASE VAL  LINE E~; SAVE <9cPEEK )* NEXT  FORMAT .aE READ POINT IN  STEP  DRAW  LET 7*) PAPER  GO SUB ▖ CONTINUE VAL &P RANDOMIZE Ta[P]AP|CODE  NEW ]DZ BORDER (FN <=USR NOT  REM ATTR PEEK USR I DIM STR$  POKE u COPY  RETURN 7>AT ki04 RUN USR d OUT *N▚STR$ p BEEP ▘[L]SGN bgZ MERGE [C]"INT USR  MOVE IN ▘bATTR USR  OUT _o? FOR  COPY  DRAW  DEF FN  MERGE ▛TAN m READ  REM  DIM <>9 STOP [M])[F][P][A]!~b2u)▗▖)~▘3[B][E]E▘ NEXT ▗a<= BRIGHT  LINE [F] BRIGHT EcLN  PLOT  [A]ASN / CLOSE #[S] FORMAT  STOP sSGN i RETURN CODE SCREEN$ * RETURN  COPY  BRIGHT ]U_INT SIN  RESTORE  PRINT IN  IF  PRINT nDASN SGN q CIRCLE [M] OR gp; BRIGHT /ATN (▟ REM V[B]+BIN  OUT  CLS !a LPRINT }pSIN V|G BRIGHT  LPRINT  POKE W▚[E] LPRINT *!SCREEN$ NOT  DATA ▜+pUbpSTR$ NOT S/p BRIGHT /STR$ p/ CLOSE #KSGN [K] LPRINT p AND U} CIRCLE TAN q BEEP  PLOT  t DRAW  READ  RESTORE _ BRIGHT AT  AND LN - FLASH  PAUSE ▟ TO USR STR$ P INK +"p IF POINT ]INKEY$ OVER WJZuCODE STR$ F[A]VAL 5 LPRINT  DIM A LIST N▘ REM ▟0 NEW O OUT  LIST `TAN  LIST  GO TO ▟N'C▖ CIRCLE BIN r▖▗[J][S]]▖ AND  MERGE IK CIRCLE |CHR$  IF 5EXP mpINT  NEXT  PAUSE pn CLOSE # LIST VAL$ utU[H]1[S][O]>Tu CLOSE #[U][S] STOP  INPUT INT  OUT  PAPER  BEEP COS STR$  INPUT V LPRINT  PLOT  n[E]VAL o IF  LIST 6pPEEK = COPY  CLOSE #SGN 7:VAL  INPUT  OPEN # LOAD PEEK VAL  READ 7[Q][U]0zUSR  LPRINT {- REM  LPRINT ]COS  IF [H] THEN A/ LPRINT INT  LPRINT  CLEAR [A]` VERIFY  ERASE } LPRINT 6DASN  CAT INKEY$f© INVERSE @IN _}▙ IF y? INPUT C`| STOP @[k©>=ILN ^INT | LIST  SAVE }UIN Tj LOAD  REM gb RUN  CLOSE #/~ NEW SCREEN$ W[L]V POKE zDASN ▖[Q]@TAB nX~a[>ujVAL (S RUN p RETURN ASN @[D]>= PLOT   CONTINUE ACS 3Ew[ LPRINT O?4~pwCOS xVAL$  RANDOMIZE STR$ qHupL0 THEN [E]p INK [Q]k]VkFN m▖ SAVE AT [Q] BORDER Z([I]!p▝VAL$ (W FOR ^p_LN  [L] SAVE yr TO  CIRCLE {]TAB #82{ud}▜T[M]9d_t BEEP LN { CLS "O INVERSE S NEXT =SCREEN$  VERIFY  ERASE  LIST  BRIGHT 7AT tKSGN ▛ MERGE TAN 0`&n OVER a DEF FN  BRIGHT ( NEXT  VERIFY USR INT [N][L]BIN IN tACS  INPUT lNSCREEN$ F OVER  DEF FN nBIN  VERIFY  INPUT }IN  OVER  THEN ?ILN  CIRCLE  DRAW 1?SCREEN$ O STEP ▟ REM : PLOT   LOAD  LINE  DEF FN  CLEAR  ERASE < SAVE TAN COS ACS  OR v NEW n/ATTR  BEEP 2p-SQR  CLEAR [T]KUSR VAL$ ABS jVAL$  LOAD BIN  MERGE _T FLASH [Q]:[C]▙ATN  NEW  LIST  CLS %r▗q GO TO `z" RUN m LIST [I] OVER  LIST  STOP @CHR$  FLASH PI LIST z[P]` LIST  FLASH PP POKE > LIST { CLS LN L LOAD  LIST # LPRINT t[T]`USR  LOAD {VAL L LIST /@[H][P] CIRCLE - OVER USR ACS  RANDOMIZE  ERASE ▝ DATA  LLIST ~ FLASH O[Q]▟ POKE USR BIN y`ACS y[Q]vx THEN ; CLS ▜ FORMAT  CIRCLE | CONTINUE PEEK  DATA USR BIN [B]` THEN 3pv GO TO A'p/[P]INKEY$_BLN  CLEAR  POKE USR  IF [J]`VAL$ ,|p STOP  LLIST XABS  LPRINT  DEF FN  CAT   OR C8;#? CLEAR _<sL? READ 9CHR$  BORDER z LPRINT BIN q%D4~<=$,~ CIRCLE m BORDER [Q]T▟@9g LPRINT SGN [C]X FORMAT WUSR  BORDER f|/~ STEP  THEN 3INT  NEXT  LOAD 9 CIRCLE r NEXT rFN  GO SUB  DRAW cINT  CLS <=INT  FOR ; NEXT [Q]<= DATA  TO r RESTORE  CLS SGN ▝ FORMAT ▘USR  OUT EXP  FORMAT  NEW  RESTORE u}WSQR SCREEN$ ▝ MOVE QZX NEXT s MERGE U PAPER 6?[U]W OR POINT  RANDOMIZE [Q] INVERSE ATN  FLASH . DRAW  OR kACS  RANDOMIZE ATN VAL  PAPER  INPUT - BRIGHT . CONTINUE IN W RANDOMIZE  PAUSE  RESTORE * SAVE  IF ACS  INK  FLASH  PRINT  OUT  STOP  RETURN ▚USR k~? BORDER  DRAW  CLOSE #s LOAD BIN  GO TO  FLASH  CLEAR  BRIGHT  GO SUB ▟ THEN  INK [Q]IN  RESTORE  CIRCLE ▝Y  INVERSE  POKE UWH_▝aSIN p{USR LN  DRAW ▘p© CAT [H]l RUN IN 1 RUN ©& CLEAR / RESTORE ~▗AT p,VAL ,[B]` OUT ▛c`ATN EXP  FLASH  RESTORE INKEY$ NEW [R]? FOR - LET 3%u AND  NEW  LLIST o TO IN PEEK  STEP  NOT v@0~[Q]©! LLIST NOT  LET <=w LPRINT :|!USR  SAVE po8 STOP  VERIFY ▞| GO TO  LINE ▜ GO SUB p= PLOT   CLS Wp▘[J]_[G]{6 RETURN y OUT ;/r GO TO TAN  BRIGHT ~ BORDER  PAPER p RUN C NEXT ▞ LPRINT 96n|[T]IVAL ]p READ  IF # PLOT  | OR ▗ATN © DRAW  RESTORE jpFE▝p^/ BORDER  INK A<=[F] CONTINUE T)q RANDOMIZE ATN  POKE q SAVE ▜ LOAD  LOAD qGBlCODE  OUT  PRINT ASN [T]FN  TO  PRINT  LIST  CAT  DRAW LN  DRAW  TO ; BRIGHT  REM  VERIFY 7 GO TO >= CLOSE #WEXP  DATA ▗*BIN  TO TAB  DRAW 3 RANDOMIZE EXP  PAUSE 1L_SGN [I] CLOSE #^LN [U]w/x[G] OUT  PLOT  CODE  COPY  NEW  RESTORE 5 COPY  OUT  NEXT ATN COS Q/ATN  LIST  RANDOMIZE W BRIGHT  FOR B POKE [F] PAUSE  STEP F LPRINT © DEF FN  IF [I] VERIFY IN  AND 3?USR ?; FOR INKEY$_ SAVE [A]?g PAPER  AND ©SCREEN$ ▚ REM IN ~ CIRCLE ▝ SAVE lCHR$ ▖[P]USR [S]NOT [Q]NOT 3 CLEAR  COPY o NEW  BORDER  RETURN g CLEAR  CLS  READ  PAUSE 6j[S]c RESTORE 6:▝ACS /q'OEXP  INPUT o CLEAR k LINE g READ CHR$  DRAW { NEW  IF e LIST a+rc LPRINT  INK  VERIFY  CLEAR WFN 6AT 3g RANDOMIZE PEEK 0Epc"X" SAVE X"0(6DF▞*$OU|AT ▛D SAVE " GO TO USR  REM PEEK USR |<=?VAL  CAT  ▝ COPY C▖'[S]0PI LPRINT USR ▘CHR$ /#p▙(PIyb▞/$N[O] DIM C(3>INKEY$[S]▚ READ ▖(d>=[R] LPRINT C▜▝!VAL !ATN ▞USR 1 OPEN #XOX▖O SAVE gf[D][B]B PAUSE $f&▖ FOR ▛"▝ LIST  SAVE USR }W DRAW > NEXT  LIST CHR$  DATA 0USR [L] RESTORE ATTR E LET CAp LPRINT  POKE P` RESTORE qF! LET x[O]BIN  POKE Q[B] DIM [J]r$[O]p▖ READ s"ea3>E Q▝ READ &0[J] COPY ▝ LLIST CHR$ ▗x3E▝p}}IN  GO SUB [I] PRINT _ RETURN T{[Q] MERGE  TO [[F] LINE SCREEN$ VAL$ INT PEEK [H][U]LgABS j[R]-[E]@CHR$  COPY  OPEN # BEEP [P] CLS $ CLEAR VAL OBIN i NEW lfp[H] BORDER n OUT <=}` SAVE  DRAW ? COPY u OPEN #[L]NOT  OR [L] POKE `©©SGN  LIST  PRINT  MERGE uSCREEN$ s PAUSE POINT b DIM  OUT  CLS  BORDER ACS ATTR  BEEP fUSR ]V THEN /AT COS  OR  NEXT +?FN ACS ▟!*P CONTINUE  GO SUB ? NEXT IN  CIRCLE ©1© DEF FN o RUN W INVERSE PEEK ▙SQR SCREEN$ ACS [A]FN SIN 7▞D MERGE BIN  STOP  OR SCREEN$ YU@` LET FN PEEK  SAVE A[M] BORDER IN ACS ▜USR  IF  CAT hSCREEN$ RND*[K]] FLASH  CLS }? FOR  GO TO E MERGE [R]} LPRINT [I]▚pup▚ibpMVAL [P]| LET [F]CODE +W6CODE Y INPUT p LET  VERIFY [T]epKU0PIVWpsp[K]"p+ OPEN #[B]ppf NEXT {(ATVpSGN PEEK  IF TAB pCHR$  ERASE ASN [S]p[Q]pU:pACS  PAUSE  LLIST  INK p|▝ RETURN [Q]▝N-Z©CODE H NEXT  DIM [J][P] RANDOMIZE [K][O]jVAL$  MERGE W<=l THEN ATTR  OVER U3>[Q][E]8.LN 3$L*38PIP▙A BRIGHT CODE  CIRCLE INKEY$=USR  DRAW p▜??@$*LN  DRAW < DATA OTuV[O]AT FN [D] DRAW | OUT ME LLIST PIP<>VPMA/ SAVE  OVER *3©[A]h COPY  LPRINT FN q RUN PAUSR  TO Tg INVERSE [P] LPRINT T ▝H[T] LPRINT  OPEN # LPRINT ▝5CODE B▖ATTR ASN  CIRCLE "VAL 
  60274 STEP  BRIGHT VAL  INK  BRIGHT ▗▝ <G"ASTR$ X1▜ LIST Hp▖Q INVERSE EYTRNDUPEEK  OUT  FLASH INT  BORDER [B] PLOT   COPY  OUT [T]ACS  OPEN #▞ BRIGHT  SAVE  CLEAR : AND C AND Ozk DIM x`[K] STEP U CONTINUE [F] CIRCLE ps|"XXSTR$ 3USR ▖p STOP ~<s RETURN 5 RETURN SQR  REM  LOAD  PLOT  Um}CODE [B]M#.n GO TO ATTR  U[K] STOP >=[K]}<=▘USR n BORDER m CLEAR  BEEP P THEN | OVER *p, PRINT  FLASH CODE }pASN  RETURN  DRAW U FLASH  PAPER 3ATTR u3#SPOINT % DIM }]VABS  NEW 2)TAN `MX~T?@PhVAL$ ATTR CODE [H] NEXT  PAUSE F[F]U COPY  RANDOMIZE N MERGE m DRAW MPEEK j]▖5 POKE U* GO TO ? OPEN # CLEAR  LPRINT P[T]X▝y CLEAR v}_[ IF SGN PINT PIN GUSR IJPYpPR`p*`$G GO SUB OPT MERGE  LOAD P RUN  PAUSE  POKE ©[O] DIM Pp DEF FN }PSCHR$ f ERASE [F]p4A~pv DRAW  OVER Gl CIRCLE QgLN ABS [G] POKE d=VAL ▝ INK POINT [H]KNOT  DRAW  LIST AUSR  ERASE T RUN [F]_ MOVE ▜ RESTORE q RANDOMIZE e▝ TO ~b`/`iFN hYLN 6Z LET <> CIRCLE 2USR PEEK  AND [U][R] OUT  CLEAR e▝F PAPER ATN [Q]ABS  LET  RESTORE  COPY gCOS ATTR [E]STR$ [[O][M]5#g? LIST h| TO M DEF FN G+ACS CHR$ . PAUSE  BTAB  INVERSE  NEXT [E] OPEN # INPUT  LPRINT ▞gr@qAT g[Y[O] PRINT X▘$ DATA xINKEY$[O][J]d CLOSE #*?o READ >=U"vBIN  RUN [P] LOAD  RESTORE DE AND  FLASH =[F]y|Y CAT AACS  NEW  AND  OVER D DRAW x VERIFY COS _n[K]z([C][S]RsLN VSx[S]{r8TAN [L][K]bRND`n LOAD ? LPRINT ▜<[ACS o POKE  AND h AND  IF )?Q:LN ABS 4[Q]cX5 AND [O]PEEK /SIN SCREEN$ /[S]mh BRIGHT ▚ GO TO j▘IN  DEF FN o3 MOVE  READ g OPEN #p.OI▞ PAUSE < REM x PRINT AT 2H'INKEY$[O] DATA PSIN KW CAT 2GINKEY$6x(V3SCREEN$ tSIN | BRIGHT © INVERSE "N[I]x[G]ACS F1 AND ACS  ERASE ACS jSIN l PAPER  PRINT l` GO TO T,?[O]VU$/NOT  RESTORE SIN  BRIGHT PEEK POINT  CIRCLE lINKEY$SCREEN$  MERGE  TO ACS CODE  FORMAT 2TAN  OVER eACS c[R] BRIGHT  DATA  BRIGHT K RANDOMIZE EFTAB  RESTORE ▗tJ[U][O] ERASE I": SAVE h)Z IF ▛ FLASH [H] OPEN #RNDACS CODE [K]$CODE SACS V LET <= AND VAL VAL$ 6INT  VERIFY  FLASH  CAT z▗6 READ Yj* CLOSE #JU[Q][Q]CHR$  CLOSE #[I]&1INKEY$lh[G][N]l CLEAR <ABS STR$ ATN IN ABS [H]SQR uAT ATN  DRAW l NEXT a>=q RANDOMIZE LEN q| CLS [O][G] RUN sp READ 3POINT FN [P]m OR BIN ~@[C][E]< READ  FOR X>ABS :s FOR SQR g?SCREEN$ z CLEAR  GO TO [-ELEN COS [P]_ TO  DRAW }BIN USR  LIST  AND [ RETURN g[Q]S>8N DEF FN { AND  PLOT   NEXT  LIST  TO  POKE VAL$ ATN ▜ SAVE ▜ STOP  OVER  LET ▜ DIM VAL$ 7▜▜+(K LET ▜e READ [N]▜ATN VAL ▜9[K]<=USR ▜GCOS ▜[P]▜71▜LEN VAL$  THEN b▜ BRIGHT USR $▙▛w[G]4PEEK USR  FLASH h PAUSE  LOAD BIN [M]M[I]▙ COPY  STEP g READ USR  CAT 30[P]V[I]IN ?[C] CAT ~ DATA ©▚[P] STOP ry[M] IF r;LN PEEK  LOAD Gp DRAW C4 CIRCLE  CLEAR 6f FORMAT  RANDOMIZE  SAVE >=) BORDER #4 LPRINT  OVER  DATA  CAT < IF _@@|IN N4AT  INPUT ~ FLASH  TO  TO COS ▚X[S] STEP  LET ,TAN .TAN 69bIN w RETURN 7 GO TO  BRIGHT [J]j] DATA  LLIST USR  FLASH 6 GO SUB l OVER COS 5 THEN -STR$ STR$ COS t RETURN ▟ LOAD s CLEAR f STEP  TO <=[/C GO SUB  GO TO  FLASH [N]K~ REM TAB AT ©/ms4l CIRCLE |4SQR  INK  CIRCLE  PAPER u NEW hZK RESTORE  IF ▘SQR LN  AND  GO TO  OUT  STEP >k PAUSE : <=SGN uh+C CAT ))<=$[U][A][Q]]'Us TO ACS  LOAD  SAVE  ERASE  RESTORE  CIRCLE V[E][J]rRIH^POINT  FORMAT  RETURN Yx'[I]^c IF [U]?J<▝?+ LET ?; OVER  LET ?[D] CLEAR 3?<=w TO ? NEW w?INKEY$s?l35BIN ?x<=?! CIRCLE ?EXP  RANDOMIZE l?2Ik RETURN ;`▙r&COS LEN w CLEAR  BORDER  FLASH jx[P]0▝ GO SUB  CIRCLE [C]"VAL )( OUT  OVER ?D VERIFY nc NEW  OUT [L] AND 4L7 REM  COPY BIN [I]c LLIST  LIST xPEEK ) FLASH [A] GO SUB <=?[F][E] FOR STR$  PRINT 1p:CHR$ KH[P]# AND 1E8<= PRINT  TO  RESTORE  SAVE C@ INVERSE ▜ RANDOMIZE COS [B] FLASH  CIRCLE [I][T]2PI[G]▙ POKE [I]9n[I] MOVE   FLASH BIN a3▞U[P]!?~▛ REM S[J][A] REM [D][J][Q] CONTINUE [D][J]> AND [D][J][I][T]A[J]! IF  INK fRND{1jINKEY$[D])[J]C`[J]<> BORDER AT 9[J][T] RANDOMIZE  LOAD [J]e▚[O] NEW COS [J] FORMAT [K] READ AT  THEN  VERIFY  TO b< CLOSE #Mi[I]d1 NEW 10>=)[R]M+[T]J DRAW  BRIGHT  RANDOMIZE  RANDOMIZE [R]!%$[T]# DRAW <=q! COS [A] READ  INVERSE  BRIGHT ATN COS ) SAVE FN  CLEAR >= LIST  NEXT  MOVE ATTR oCOS VAL  DIM yNOT USR  OUT STR$  FORMAT _<= PAUSE khBIN  LPRINT [I] READ  DATA =ICODE  SAVE ▘KvABS  PAPER PEEK ▝ THEN LEN 1 COPY ATTR _WCHR$ & FOR  CONTINUE [I] DRAW [R] ACS 6-,▖ FOR ML REM A@ STOP ~ READ  INK EXP < MERGE >gO PAUSE /  POKE [T] DEF FN  OR  CLOSE #COS 1 TO  READ  LPRINT ZBIN  NEW = OR e STEP [F] BORDER ▟ MOVE MSQR [M][K] THEN SQR  DIM SQR  RESTORE ATTR  ERASE SQR  PRINT =▚NOT vNOT !NOT ▛COS NOT 30NOT  INVERSE ABS ▝ BRIGHT  PLOT  ▟ RETURN PI LPRINT 8[M][O]PEEK {O/[O]pIN ?&[P] LET COS ©VAL {& FOR  PAUSE + PAPER  CIRCLE gvb&20 BRIGHT vV LLIST  CLEAR  OPEN #o BRIGHT 2SIN  ERASE ]EXP  DEF FN  DRAW ▟)YABS w/Ncw) DRAW ▟ CAT  DRAW RND[U] RANDOMIZE >= CIRCLE <>s[L]STR$  OPEN #C DEF FN INT LN ▝ABS  BRIGHT }RNDABS ^)[U]B CONTINUE  BEEP  INK L[N]©COS ▗&CHR$ PI[Q][N] CLS  LET  MOVE  FORMAT ATTR +SGN ASN 5i_>(F[X|68AT ,, MOVE 98 MERGE Tqp- TO  COPY  CAT USR ATN 7o`▟fw[P]^_BIN <=L>IN [T][Q][E] RUN [S]"1 SAVE IN  LLIST * TO LEN  FOR xgS OPEN #WP LET  LLIST 9 READ h COPY ,COS  CLOSE #POINT )▙.▙STR$ USR j ERASE  NEW <= OUT  BEEP ~L BEEP c RESTORE gED CAT T+(NOT  CAT  CAT [B]2 BORDER >=XP RESTORE )[K]1M OPEN #CODE [E]~=[G]` PRINT ~ RESTORE K LET !/ REM [P] RANDOMIZE  LINE  RANDOMIZE [J] BRIGHT EXP ATN  DEF FN LEN  DIM 7▘1 COPY 54PI'YX[C]R OUT P[B] RETURN PI VERIFY [G][N] LIST E[K] CLEAR JVAL E LET SCREEN$  CLS V ERASE s,[N]_ PLOT   NEXT Y▞H>G.NHv[R] BORDER  RANDOMIZE AT  MERGE P^<> OVER SGN  INK N CLS  SAVE  BORDER O STEP  GO TO  NEXT BIN x BEEP * REM gLN  GO SUB  CLS IN INKEY$ OUT  RUN M!SCREEN$ H[N] VERIFY [P]SQR ;c LINE ABS  INK  CIRCLE [F][O] DRAW  LPRINT ▚mRND IF 9ACS ▚ DATA } CIRCLE IN  DIM ACS { INVERSE  BRIGHT ▖[R]L.q; PLOT  ACS #[P] NEW PEEK <>[Q] OPEN # FORMAT ▜8|ACS ~ INPUT $ STEP  SAVE IH")BIN SP ERASE ▘CHR$ O DRAW ▜fNOT ▜IN  COPY [T]# OR BIN TAB  OUT _L_=INKEY$ TO ' OUT  DRAW  [J][H][A]INT :COS TAN 4kh RUN ©ASN 1LEN jASN  BRIGHT  CLOSE # TO | MERGE BIN 1&[C]RNDSTR$ POINT  AND BIN ▟)~ THEN SIN INKEY$I_>=[E]9STR$  BORDER ml[G]▗KTAB  LLIST ▜ATTR /| OPEN #op1[D]SQR LN  BRIGHT IN d CLOSE #g`[H]~?/y_~PEEK  LLIST  INVERSE  CAT  OVER IN ©u CLS RQ CIRCLE [J]PEEK  STEP 7USR  RETURN ▛ATTR  LINE PEEK v[N] BRIGHT  LOAD  RUN  GO SUB u CLS  READ  INK  CLEAR AT w RETURN /=s THEN [D] FORMAT  PAUSE  PLOT  NOT  RESTORE  GO SUB ABS  INPUT ~ OPEN # GO SUB  GO SUB TAB `K[J]Q LINE ' THEN w▝ LINE / BORDER ? BRIGHT POINT  OUT  LOAD n CAT  FORMAT  VERIFY  RANDOMIZE  CLEAR  FOR  OUT  RETURN ▛USR  LINE  BEEP 4▜ LINE { FORMAT  CLEAR M[H] LINE K5= LINE [I` FLASH y LINE LNOT :IN  INK [U]!7USR 6 PLOT  ~VINT ; IF  BEEP VAL$  PAUSE  GO TO < INPUT ▚VAL$  VERIFY  LIST  LET  POKE [L][H] INPUT  OPEN #COS /PEEK x BRIGHT AT  OVER [G] VERIFY ~ TO  INVERSE 6. CLOSE #▖:6,4.>xlt/▗ LET >*©UX STEP !AT  ERASE z8[N] RETURN INT [U] NEXT cLSq AND  COPY 6n BRIGHT LN  LIST | DEF FN ACS INKEY$[G]<<lLTo,nF~[F]9 PLOT   TO SGN  VERIFY  ERASE ▟ INPUT  PLOT  )VAL$  INPUT ACS ▟hNOT SGN  BORDER ▙ LIST ` DIM  LET  PLOT  n/Xx▘ACS  CIRCLE  TO ?VAL  AND vUJNFN ;[G] BEEP  LPRINT slXC[K]R"T▝POINT  VERIFY © LIST f<▖ PLOT  O> FOR  PRINT ATTR IN COS f0USR ▚2 RUN  RETURN  DRAW [S]E[Q]▙PPEEK A[F]FN <_ OR BIN PEEK SGN AT 3IN jGVAL USR  DATA n PLOT  INKEY$ AND ~ RETURN <>POINT  BRIGHT >=~FnUSR  PLOT   CAT @ESCREEN$ XVAL$  TO   OR  LIST  CLOSE #ASN ©xr>= INK [G] SAVE |INKEY$ MERGE j[A]HINKEY$FN [Q]sjCODE VAL  FORMAT ^INKEY$LJ CIRCLE  COPY  PLOT  9x/BFN fVAL USR INT  FORMAT [H]%USR ▝`Y OVER )mhm NEXT ▗?[I] LPRINT ;ATTR (2▝[O]3SIN Z.3y5 3 DATA S LIST f PAUSE [C]j*[D]O INPUT F[J]<>ZSCREEN$ 4CZPySIN Z=;RND0<Y[L][J]H#SIN Z>=d2[L]>=R+UPOINT nJ[F][S][U] TO INT CHR$ Z LINE lEXP  PAPER L LINE j<= PLOT   PAUSE |<=[D] MERGE  -[e©<DbT>2KB[A][D]M RANDOMIZE :M[J]IEXP VNYINT  COPY [E][K]dVAL FN SIN 2STR$ [A] LINE jEXP ATTR QiEXP CHR$ USR M. OVER EXP  MERGE  MERGE ASN LN (0 INK [E] MERGE [E]Q MERGE 6<>[D]ACS [J]LSY[F]h[Q]TzfASN +COS Z[G]+ REM 4 CLOSE #▘ATTR  LIST [H]<>ATTR  DRAW q3d>▗JASN /V PAPER SCREEN$  ERASE [M] DATA W%K TO ▙Tx CIRCLE INKEY$6 CIRCLE [U] OPEN # GO TO S[{l GO TO i LINE > LOAD  LPRINT $[L] PAUSE MVUSR L NEW  REM [U]SIN |9POINT TAN ▖<[R]SGN ?sLEN LEN EWm-~mACS ZVAL$ m CAT [M]▖m<>xf▜n OPEN #[M]z STEP $[E]mTAN fl3VAL mdef5 BORDER VAL EXP  CAT  TO POINT ▘F▖+ PLOT  4Wl0 INVERSE ▝3▞RNDINKEY$ STEP 2 COPY IuT LET [I]INKEY$ MOVE ▘f<<><=▙ATTR _fTTAB f<c SAVE [B].mI OVER ~d1<>gPtf INK  PRINT  LET [I] LINE SQR [R]ce=xSHb! RETURN  TO  MERGE * LPRINT ! DRAW 6 CLEAR  GO SUB VAL >NOT 2 RETURN !MRND" RETURN >n/ GO SUB G^NOT  STOP { NEXT { PRINT  STEP TW▝ LLIST OWG/ GO SUB  NEXT  GO SUB WIN I PRINT  DIM ?STR$ sFRND1 IF f SAVE [U]> CLEAR © DRAW >[1PIa LET  COPY  DIM  CLS <> NEXT  PRINT  RESTORE  MERGE  OR 7 INVERSE  CLEAR  PRINT ▟U INK  CIRCLE  VERIFY jn CIRCLE  PAPER  RETURN  RANDOMIZE  CIRCLE STR$  MOVE  LLIST  INK  LET  CLEAR e INVERSE J[ LET  CLS  LPRINT MsS POKE [F] FLASH  PRINT  PAPER [I]| LET  INK ASN VAL  CONTINUE ATTR [I]"NOT [O] INK  NEXT  STEP ,RND>4 ACS ▝ CLS NOT  PAPER LEN : LPRINT  GO SUB PI(=2 IF |>oSIN  REM R"i IF  LINE PIINKEY$ RANDOMIZE  READ <LEN  IF  DRAW  READ  RETURN Z8CODE Z INK : FOR RNDg PAUSE  LLIST ▙3 AND  AND _< STEP  FORMAT INKEY$G CLEAR  INVERSE '▗!~fCOS  NEW w VERIFY  INK  CLOSE # GO SUB VAL [N]uASN YgACS ▟u VERIFY  CIRCLE >=g[N] DATA LN q RESTORE CODE !" INK  PRINT  INK  PAUSE  REM [J]f CONTINUE  INPUT hF? LIST = IF 1! GO TO  INVERSE 8NOT 9PI>IN !SGN Zw# DRAW <>:ATTR ▚ INVERSE ASN  DEF FN  OVER | TO  FORMAT n7 COPY =! STEP  PLOT  = DRAW CODE w> COPY <> DRAW [L]:USR UG STEP | OR  INK !<= BEEP &%CHR$ <>1ASN 1[D] COPY [E]]LEN NOT INKEY$>F`! AND  REM  STEP = COPY  CLS &SQR O AND [P]CODE  FLASH  RETURN  NEW  LIST 4 LINE  LINE 3[L]&ABS   RUN <>"NASN SIN  PRINT  STEP ATTR  RETURN  NEXT  COPY  TO ▜INKEY$ LET JF▖ CLS  FOR |qM#6 OUT sb INPUT  STEP CODE  BORDER  CLOSE # FLASH (6 COPY [O]>G!X STEP PITINT  GO SUB  THEN  IF  PRINT  POKE kNOT  POKE @6s IF BIN  CLOSE #/ RETURN >= COPY  NEW  NEW L<>V STEP  THEN G CONTINUE  LOAD `>W 9: MOVE Q>POINT 7▝YINT <INKEY$TAN ▙([Q]SIN  STOP ' RESTORE L RESTORE LEN }SGN =[C]CHR$ ATN PIZyn TO [J]▛ DEF FN  STEP [M] DRAW f[C] PLOT  ACS R LINE [H] INPUT ASN  CLS FN  LINE [T]PI AND |PIOCHR$ CODE FN  CLS  STEP V SAVE INKEY$H INVERSE  THEN v_ OUT PCOS  PAPER ( STEP [S][D]e CAT VAL  FORMAT SCREEN$ [U]AT FN ▙` DEF FN  INK [J]hATN LEN NOT  ERASE [U] MOVE <=[I] IF <>IN  STEP  LIST BIN  MOVE =5 FORMAT  COPY TAB PI RETURN  ERASE  STEP  OR L9 RANDOMIZE CODE :zPEEK [J]Sr- CLOSE #ATTR ( POKE y ERASE  DEF FN +o REM  BEEP  FLASH  CIRCLE PI OPEN #UCHR$ USR  RESTORE CODE  FLASH 3TAN SCREEN$ [G]7<= RANDOMIZE L VERIFY  DEF FN <▛[D] RANDOMIZE SIN ▙![H]0=CODE d FOR  PRINT  NEW M NEW P LET 2g CLOSE #▗CODE o LLIST cp▝pkEKm2/w[C]`ym}` SQR  DIM  MERGE [L]hE3ZCHR$ ▞ POKE  BRIGHT ▛1 BEEP ECHR$ [T]|[D]}1[M]q LOAD  COPY 6> OUT IN  PAPER = DATA /cIN _CHR$ POINT NOT  THEN ( FLASH ▗ BEEP  DEF FN ASN [C]▟<> RUN POINT Le INVERSE l~COS RND[I]e*[P]F[R]mmI) DRAW  DRAW #"U[M]CODE  FOR  CLEAR  INVERSE 6 PAUSE  LET [T] THEN ©([H]©L RETURN   THEN IN  MERGE I  SAVE CODE  LIST ! CONTINUE  STEP lVAL$ `v REM 5 SAVE SCODE g[N]Tki[U]NOT COS sv CAT O LINE q BRIGHT EXP sgCHR$ 3 PRINT s▝L DRAW se[I] LINE  OVER s1 DRAW VAL  FLASH [K]osTAB  PRINT  LPRINT s DRAW 7s+G CAT v9t m TO ▝ COPY <k PRINT  VERIFY q▗1 OPEN #q" INK qZq|q#|SCREEN$  RESTORE q[O]L[O] ERASE  NEW PI( LET ' STEP  THEN ▙fABS  DEF FN o SAVE [E]SCREEN$ BdSTR$ NOT [K]I▙©[B] MERGE  NEXT J{f OUT  BORDER  AND [P] STEP w▗A][D]© DATA  PLOT  , STEP CHR$ HSCREEN$ NOT  LLIST ABS  MOVE 3%[G] SAVE SGN <=)INT  STEP i RETURN [N]E PAPER Z[U]>k CAT [M]J[I]&INT LEN SQR LEN ABS  REM  VERIFY inASN aASN  SAVE  GO SUB ! REM  LLIST  READ ? STEP ATTR ^#Vvq GO SUB S[J]"[H][J]POINT  MERGE IN @<= PLOT  SCREEN$ SCREEN$ U[U]|YABS CHR$ IN SCREEN$  POKE  DRAW g STEP  CAT ABS NOT @ATTR  MERGE 8 FORMAT * OPEN #ugSQR t[H] ERASE  RETURN  LLIST  RETURN [J] RETURN  GO TO  M DRAW  OUT  BORDER SQR PI▝<O"[N]) CLS  REM  THEN  STEP ,PEEK [E]INT ASN U[J]TAB z DRAW  THEN '_+Zsx FOR <>~ FORMAT ▚S8 SAVE ▚AT  PAUSE _) OUT  OVER ! FOR ~:6B JATTR  RUN  RUN [A] GO SUB  CLEAR  DIM  OPEN #! GO TO  IF LN PICHR$ VAL AT  SAVE 4 NEXT  VERIFY  LINE = INK  RETURN  COPY 7> THEN < SAVE  ERASE  STEP -NOT  SAVE  FORMAT  TO  GO TO KCTJ DATA RaH FOR f3 MERGE wh TO <=4 RANDOMIZE  TO LN ' LINE  STOP <=e OUT © MERGE !FCODE w<><>CHR$ COS ATTR [J] POKE  INVERSE  RESTORE  MOVE  GO SUB VAL  IF x OR ASN G2O OR [T] VERIFY PINOT [G]INKEY$ IF  STEP 4 INVERSE + STOP [P]f*oATN g~ THEN G NEW _[L]TAN [U]▙ PAUSE 5PEEK  PLOT  xfrV[J]SIN $ DEF FN TAB AT [L] RESTORE RNDl PAPER IN U MERGE jY:8nn~ [T]Z-[I] PAPER  ERASE  STEP NOT "[D]Y=w RUN <=$._ FLASH L[Q] CLS SGN NLEN j<> DIM F DATA V>=q FORMAT [T] LOAD  FORMAT AT  VERIFY ATTR ASN [P] THEN rCHR$  CLS ATTR J[A]p▟)[E] CLS n[E]ACS  VERIFY Y STOP  AND  PAPER tsp COPY r STEP LN INT  MOVE  PAPER "[B]? OUT =P PRINT RND TO  STEP [P]LN j LOAD [O][F] OPEN # LINE [TAB >="yT CLOSE #PEEK  IF  OVER  GO TO [I]INKEY$ DRAW EXP  FLASH #VAL$  STOP "BIN VAL$  FOR  GO TO [G]TAB SCREEN$  NEXT : LET } GO SUB (K STEP  MOVE FATTR  PRINT  OR < LIST  OR SCREEN$ ([J] RESTORE !=O RESTORE ▞PEEK 2a TO  STEP  LPRINT STR$ TAB RND[F]LACS  INVERSE { GO SUB ▖_g OPEN #SGN ▙CODE w IF SGN N[T]▗Y RESTORE % RUN  POKE  AND NOT ABS RND[Q] RETURN ▙<NBIN W NEW vPCHR$  i▘▘▝c~EXP DIM1. PAPER [D]ASN  CLEAR [H] OR | RUN [M]<>/3:#q[O] NEXT  STEP ▛USR <>L>~[K] PAUSE 'V>=CODE {E CLS [O] =ABS 8w9 ERASE / SAVE 6AT _NOT IN [I] AND  CLEAR ▟T▜`I THEN [N]ja(5G0 STEP 4 REM ATN gATTR } LOAD  IF :[T]▜ BRIGHT |TAB <>ABS  FOR ▝|5[M]  FOR [F]DJANOT  RESTORE AT |]SQR  FOR AT #SGN  BORDER  LET ▜▛Cq PRINT ▛ SAVE CHR$ ZVAL$ <>w:+www LOAD NlvIN  SAVE  SAVE  INK ▘[S] RANDOMIZE X!# CONTINUE :[G]e CAT  INK rB@{ GO SUB [Q]IN  BEEP { VERIFY _ DRAW 7#▗IN { AND  _ PAPER  GO SUB VAL$ z OUT [M]SIN W INK :RND GO SUB *:VAL <= DRAW  INK Vg▚CHR$ [N]y GO TO [K]▞ CLEAR  COPY  SAVE =CHR$ CODE <>* SAVE  REM ,6 INK } RETURN 6 BORDER [ POKE " CAT !ad DIM  IF P^s PLOT  >F[ LINE  DIM <> INK  REM t* MOVE F#2[J] OPEN # CLS [A]SGN ~ LIST r GO SUB [ LIST >  STEP [E]CODE [O] THEN S AND  NEXT  GO TO POINT 8[P] INK M AND  RESTORE X CAT +L_ STEP <> AND C|c$▗ STOP y BRIGHT VAL RNDd[S]VAL [G]s&VAL [N]VAL SCREEN$ | PAUSE VAL SGN  DIM VAL  INPUT [G]OVAL VAL$ ACS VAL FN j[P]OVAL <>2ATTR  GO SUB C▘[P]CODE  OPEN #S▗"▚[E] NEXT I[R] GO SUB  DIM PI VERIFY  OUT W[M]OSCREEN$ [M]RNDTAN [M]61&[M][Q]POINT EXP  BEEP  STEP nVAL  STEP INKEY$[G][M]3uSQR POINT  RESTORE [M] CIRCLE [C] LLIST VAL  RETURN ▗TAB  CAT [O]SCREEN$ 'N[S][E][J]DCODE  LPRINT ! STEP [N] LET Q TO <>[L][Q]M.(LN ACS L<>7-ABS 4U[F]tPIFN VAL$ sGCTAN SQR SQR  THEN N[S]LEN ABS B INPUT ▖ BORDER [A]1<= PAPER  OVER C MOVE  LET duW? LINE [A] LIST ASN [N]3fFN x TO SCREEN$ 4INKEY$iVAL$ ILEN  INPUT 3/ STEP [S]LEN  OUT [M]' BORDER e STEP  DATA CODE LoNOT ^LEN  SAVE )ACS  CONTINUE ) SAVE $aK SAVE ( SAVE $[E] SAVE F SAVE  READ %a[M]):]C"[N]&Nt*[N][U]"[G]e2SCREEN$  CAT Tu REM  FORMAT e4 INK  RESTORE S=[G] DATA )35: OUT { GO SUB  DRAW CHR$ aLEN t CONTINUE SQR [S]ATN CODE  FORMAT L INK M CLEAR Z STEP M" STEP SGN [U]SGN  CONTINUE [B]) CONTINUE ▞ THEN  PAUSE  OR  NEW  RANDOMIZE  CLOSE #o}fPEEK  CIRCLE SGN RND[G] PRINT 7_ INK <>1▗ FOR  STEP MINKEY$^ LOAD  LOAD RND PRINT  AND  OR  FOR !N STEP [F] MOVE [G] VERIFY  INK  NEW [R] GO SUB [N]u POKE  CLS +[T] RUN s VERIFY Yg[S] INVERSE u VERIFY [G] CAT ▖!R FOR [F]CODE w#yPI  SAVE xPEEK <> POKE  COPY ,sPEEK  RESTORE  STEP ASN  STOP  RESTORE [J]SIN ACS IACS  IF :/ POKE 9[S]ATTR [R] LPRINT  STEP  REM 3 REM EATTR O NEW CHR$ ABS  GO SUB E BEEP !v`+[C] DIM  TO  DEF FN  FLASH  VERIFY PI▙ FOR  OVER .!Yt[N].CODE  OPEN # RETURN Gw0(? DRAW o▛;JKCODE ~VAL$ } IF  BEEP  GO TO  INVERSE  THEN f LINE USR INT CODE  DRAW  NEW ex REM ATTR VAL$  GO TO  BEEP  OUT `>= GO SUB  INVERSE "<>=XYINT ~=^xRND INK @<=ACS [L] TO * LET [A] RETURN # TO }USR  PAUSE RNDs|d▙<>[O]g COPY RNDPI>=n?.f STEP r LLIST GTAN  CLEAR whSIN [K]▗B VERIFY [G][L];[M]?: READ  GO SUB 1TAN  OPEN #. MERGE f+~(zTAB PEEK  INVERSE ~EXP CHR$ B DRAW  FLASH l& LOAD [M]o PRINT  PAPER ^>=^VN NEXT [L]PI( OVER  CAT / BORDER  CLS  INK  CLEAR N LOAD BIN  IF VMSQR  STEP RNDCOS [A]Z:[A]COS  DATA ▟kw DEF FN m INK  STEP [D]USR  READ o[A]COS <>[G]~INT SGN  GO SUB D&COS  AND <= STEP  NEW TAN  THEN !▜ TO COS Iy READ INKEY$#ACS  RUN NOT [H]▝AT F GO TO [J] DRAW iSQR  OVER :; MOVE 8TAN { NEW  DEF FN <7SjSCREEN$ :SQR [S] REM  READ R FLASH  STEP ▖#x THEN = ERASE xLEN INKEY$[E]Y"J GO SUB 1STR$ ACS s CLS ASN - LET f2 RESTORE A VERIFY  AND  BEEP ?x OVER l TO  BEEP <<= f READ  THEN  PAPER 7g VERIFY ▛= OPEN #▟7^X[A]/>=ATTR  STEP ABS VW[J]<>f)▟7 OUT ▚ OUT ▟▝AT SGN  OR  VERIFY  CLOSE # VERIFY L CAT  LPRINT  NEXT  MERGE [U]IN  LET  MERGE FN {WTAN ZABS  THEN [T]76 OVER  INVERSE  CLOSE # INVERSE  FLASH [SIN VAL$  RESTORE  STEP dn+j©OACS b DIM  VERIFY ZNOT ; OUT  DATA V'/X6/ CLS W^<> LET dG[B]e RETURN TAN UOV LLIST  IF  THEN SCREEN$ TAB CHR$  DRAW [H]U PAPER `<>PEEK  DRAW  BORDER ▙ LINE y GO SUB EXP  LOAD ASN 7 CLS ! LINE [T]sCOS /[U]I>= INPUT x LET 7 GO SUB [[P]N#F1 CIRCLE  FOR PIB▖8(^~ RETURN  COPY   NEW +SCREEN$ CODE  DIM  " RETURN ;~CNOT  AND ASN +ABS 6u[S]ABS Pz VERIFY >=* STEP ' OR PI RESTORE bkBIN 2 DEF FN  LLIST 0 BORDER  ERASE NEXP  INVERSE  COPY +~MDSQR  S#INT [I] STEP O LIST C1 FOR  OPEN #INKEY$EXP  OUT [J] STEP ~▜SCREEN$ 0%LN ; NEW  FOR q THEN EXP ▘T&= REM / AND B CLOSE #[Q] DRAW kPEEK ," DRAW 6<= GO SUB <>[S] OR N?mCHR$ STR$ Y( PAUSE NOT ATN  RETURN nASN  CIRCLE CHR$ |SGN  LINE ,mFN = OVER  OUT LEN  DATA {h?ACS u DEF FN NOT  MERGE ^ POKE  LLIST LABS ▚ OUT  CLEAR [U]EXP  STOP  RETURN 2[P]▛ READ  INVERSE  RESTORE  FLASH  THEN  LLIST  OVER 29 DIM [B] PLOT   REM < INPUT [L]ATTR  FORMAT  PLOT   INPUT  LLIST ]TCHR$  ERASE _/ SAVE > COPY  INVERSE  LLIST LEN  FOR &6 COPY i*q~#7]l LINE AT ACS  CLS aNOT [G]ACS  RETURN d LINE LN >7e BRIGHT  GO TO f!PI-L▗SGN  PRINT <=M BORDER  INPUT  OR ACS  INVERSE  INPUT [U] [D] NEW [D] STEP [A]LN STR$  RESTORE jh+EXP ▛{t CLEAR  PRINT ~Z: LET *▖Pz▜J~ BEEP [D]4U COPY K} RETURN 8 DATA  GO TO B> FLASH  NEXT U0 TO N5SCREEN$ [M]}-SQR )j([E] TO ABS  LET  RUN EXP [J]ASN  CLS @ INVERSE >= TO >= INVERSE  LIST STR$ USR h INK / TO  LLIST  INVERSE w`<#^ RUN EXP sV&SCREEN$ rVAL 2k COPY  FLASH ABS h TO `LEN CHR$ `?[F];t9 FOR PI RETURN (CODE % NEXT =LN  DIM ACS  AND FN  VERIFY 5^E SAVE (r RESTORE !ATTR /![K] INPUT SGN  RESTORE  IF f(ot LLIST 8 PAPER  AND  PAUSE  LIST  RANDOMIZE ▗▗[P] RUN  DIM Fd> LLIST = STEP BIN ^ NEXT ▛[A]©$ LINE CODE INT G{LN 8[N]P< PAPER  DEF FN [Q]_x: CAT {  INPUT NOT SCREEN$ k INVERSE  LINE _©[S] STEP PEEK H7 STEP [S][B]7 CIRCLE LEN LN  STOP  RESTORE  MOVE  PRINT  RESTORE  GO SUB  LET =HH[U]▙EXP  REM 3 LINE  LET /~NOT SQR ^[L]Y LIST ([H]^USR [T]^Vebr[N]a BRIGHT ▟ PLOT  V3 NEXT  STEP TAB  NEXT ACS  OR  BEEP [K]PI LOAD  RANDOMIZE _▟VAL$ o"[H]/ LLIST }ATN  OUT  OR  LINE  NEW SIN :[B]FN ▚#INT LN  CLEAR @ NEW  LINE ACS NOT INT {COS CHR$ }STR$ PI^=CaVBIN  SAVE ▟ STOP COS n OUT  RETURN ^ STEP [O]SGN 8 FLASH ! LIST [S]aCOS  OR <> CLS CODE  TO  OPEN #wq OUT  READ [R] GO SUB K[P] LLIST :VAL$ fEXP  COPY PI FOR ATN  RANDOMIZE H( RANDOMIZE INT [Q]▛_7 DATA a NEW G+e SAVE LN  CIRCLE  PAUSE /▙CODE 2IN  GO SUB IN " VERIFY $4NOT  PRINT f BEEP POINT V TO  PRINT  MERGE  PRINT ASN COS krvNOT U5]6 LET  MOVE TCODE  TO PVAL$ UC[C]W THEN O(ATN Dz[U] POKE  MERGE  ERASE  CLOSE #▘ THEN  BEEP * CLS S[C] TO  CIRCLE q7 OPEN #CHR$ *[N] INVERSE uOt[H] FOR +NOT PEEK  TO #EXP :▞'[K]VAL$  ! STOP LN  PRINT _>(< FORMAT  INK  PRINT ,` DATA Z1[B] CAT zUSR YRt& BEEP SVAL ke[E] FOR if= IF ^[F][L] LINE  COPY ~+[O]1[R]SQR l4 BEEP  LINE ▖ATAN  TO mSGN [M]k DRAW =^ LIST SGN vCHR$  CAT SIN wIN e(-[P][P][H] RANDOMIZE 5CHR$ ▚INT |- MERGE ABS  OVER [I][Q% IF fNOT < LINE {wycVAL$  FLASH t)D VERIFY s[L] LIST  OPEN #  CLOSE # AND L CLOSE #  CIRCLE  REM M CLEAR  NEXT h MERGE  PLOT  o INVERSE tN THEN iBIN IN PEEK 3nA LIST COS 7I OR  PAPER sQYCOS  STEP POINT  AND sq/yof RANDOMIZE [G]aKATTR A OR {^s OR S# LINE SCREEN$ i[O]j CLEAR w@nACS  CLS f1g @ POKE  AND VAL$  BRIGHT =xK{[ CONTINUE Q CIRCLE ]VAL$ B/PI W[O]|CS` OVER >FN v[M]5SCREEN$ ACS LN =@TAN SCREEN$  PLOT  <ATN  PRINT $©| CLEAR sr3[P]% RESTORE  PAPER f OPEN # COPY  PEEK  OVER ~ THEN [C]CHR$  BRIGHT [J]PEEK >SQR B?[G]CODE =[P]O PAUSE u^=.[O] DRAW J CLEAR utdfSTR$ [H][U]ATN  THEN 7 MOVE w LINE SIN ATN [A][G]5 INK  ERASE RNDSGN RND[K] BORDER x PLOT   GO SUB DLEXP  NEXT  PLOT   FOR ▟>=NOT  THEN #x<= FOR  CAT  THEN  THEN  PLOT  y;[T]PI<= NEXT [H](StGTAB  FORMAT /iVAL © BORDER  INK )ATN  BRIGHT  BORDER IN SCREEN$ SCREEN$ <?x PRINT  THEN 'LN <= LPRINT ▚EXP EXP  ERASE  READ o4 LET f NEW CHR$ POINT N LIST  LET INKEY$SGN PEEK  FOR BIN q GO SUB Ua BRIGHT  PRINT INT  RANDOMIZE CODE SCREEN$  LINE  DRAW  RESTORE c BEEP ~xASN fiCHR$ -[I]^SGN WrDM LLIST  GO SUB N RESTORE `iPIu|▟G TO j MERGE  FLASH j LLIST P* CLS u OVER ~jwn LET nZ INVERSE >tSQR 3 CAT SQR # READ NOT [P]" MOVE LN : RESTORE O OVER F PAUSE [R]U IF  DIM  FLASH [M][D] OVER [P]hNOT R<>~j[I]1TAN  BEEP e PAPER  GO SUB {N  STOP  DRAW /▚ RETURN ▘ PAPER  FORMAT SGN  VERIFY [S] LINE ASN 2TAB NOT AT uvu▖ LPRINT ATN  INK  AND  MERGE }j OUT  LIST ABS  VERIFY W OUT  FORMAT ] PAPER <> PRINT  LIST R RUN USR CODE > MERGE  STEP %ABS  REM  NEXT E REM  IF c IF ▟d[U] OUT ,_PI, REM  AND &y THEN  INVERSE  RESTORE  FLASH  LLIST  SAVE  POKE  OVER ^_TAB l DATA e<> CAT  DEF FN ; FLASH  TO 6 RETURN  C NEXT [Q]LN { BORDER <=V INK [N] MERGE IN  SAVE  BEEP k>= CONTINUE C OPEN # FLASH IN S[N]: CIRCLE  LIST  BORDER Q<= BEEP  BORDER  RUN  CIRCLE -sr IF  PAPER $^z PLOT  }3Lq<><>9} LET &SQR STR$ CHR$ [▛[P]zINKEY$▝ LINE AT CHR$ ~ IF  PAUSE  THEN wGIN  FOR J! BRIGHT  REM INT l.PEEK m LIST 3 OPEN # STEP ABS &CODE  CLOSE #<O RETURN PYSCREEN$ ACS  COPY  OVER < MERGE <> OVER oSIN ▙PEEK y! DEF FN x▖PEEK  OUT J LET ▚* MERGE  NEXT  BRIGHT $YvN LLIST  IF %USR  OVER  i} OR  FORMAT 8 POKE *TAB  CLS  LOAD oTAB COS  LET  VERIFY  THEN + BRIGHT  STEP  STEP  kc[D]ABS x[H] OVER tPINOT [T]SIN 8}▘ THEN  FLASH u CONTINUE LN ( OVER AT 3JPEEK q#NUSR 7 LET  PLOT  ' ERASE C[E][H] ERASE  CLOSE #4 CLS  CLS &}[G]VAL x[D]© FORMAT {WV[A][E]k& RANDOMIZE @ FORMAT ▗ CIRCLE &CODE NOT IN :CODE  ERASE <>[B] NEXT [J] IF ^F OR  TO 2 THEN  {4_>=/ PAPER J8 NEW <>{ VERIFY  STEP 1[H] LOAD K OUT Rg CAT 3▟U!ACS u[U] SAVE ?PEEK  PAPER AT [I]VSTR$ [G][PI RANDOMIZE  OUT d6S▙[F]&[P] PAUSE  CIRCLE g6"s[G]FN W[K])3▝r[G] LPRINT  READ r% NEW INT  RUN  OR l[G]2 FORMAT LN  FOR `> BEEP 9ABS NOT 9USR _[C] GO SUB  SAVE | ERASE  STEP dUSR : ERASE  GO TO PI( LIST [D] OPEN # OPEN #[B] TO VAL$ USR  CLEAR [D][L] LIST !P BORDER lAT ^" CLOSE #[G] PAUSE D FOR [F][P] OVER v NEXT SGN 6hATTR  RESTORE 'ATN <>3* BRIGHT g MERGE  LLIST  CONTINUE .Cj`SQR  ERASE SGN Zw CAT K PAPER  POKE [H]ATTR /)# THEN ABS  RANDOMIZE ~ + CLOSE #wNOT  ERASE CHR$  BORDER ASN PI PAPER V GO SUB R INPUT m DATA o CLOSE #= ERASE mIN  BEEP  STOP = STEP r OR PEEK VAL$  LET =GY[H] FORMAT fx<> PRINT >G PLOT  PEEK -8 REM  BRIGHT {TAB >= STEP aINKEY$ CLS [L]aCOS LEN ▗ [B]E COPY /g AND  NEXT H[DWjf9yVAL  STEP STR$ DACS h GO TO INKEY$ DIM  CLS  GO SUB  STOP  STEP  RETURN  NEXT 6 OVER <=nf LET <=j[L]▖PIV FOR EXP ~ PAPER [e CONTINUE |; DRAW  RETURN #>=NOT VSTR$  BORDER NOT  OPEN #" LINE cSTR$ { CAT ( M9[S]![K]} MOVE [T]SQR ACS vkVAL$ ) VERIFY [P]R DEF FN  RETURN 3}>= STEP [Q] RUN JSTR$ ▟COS ▟[I]|!0 OUT 0VAL USR Z NEW NPEEK H SAVE VV< PAUSE J INPUT [C]}Bc%▙6▞$85hASN ▟LEN  ERASE [U]TAN FN # LOAD ^Z|3+CODE [G]SIN EVINT 2NU NEW XCHR$  STOP ACS [R]{SIN Z MOVE ATTR TAB  OPEN #7▛ STEP  CLEAR j LINE LN hNOT  CONTINUE ASN ?IN 8!COS  LINE [B]3 OR [C]? !>= GO SUB [STR$  PLOT  ",~[L]ABS ` PAUSE RND VERIFY  OPEN #fO CONTINUE  NEXT  INK f READ &LEN  OVER X= STEP  PLOT  y STEP  NEXT 1CODE  GO SUB {}Y<>(>BZ INPUT &*RNDCHR$  BRIGHT m[H]{ DIM sKd CONTINUE  INVERSE  LOAD `<> INK .<PI[O] PRINT  INK m! FOR PEEK ▞' DIM SIN ATTR ABS =LEN ASN  MERGE  INK  MOVE {h DRAW <={ PLOT   INK /< LLIST  READ  CLEAR FNm_f THEN $ OR  RESTORE [J]u[T]FN  LLIST  LINE c LINE /" BEEP INT PABS PEEK  PAPER [A]0%mMyV CIRCLE "ATTR  GO TO [C]8TAB s>= INVERSE [B]_ CLEAR ^[D]8fxCHR$ [E] CLOSE # CLS  CONTINUE  POKE [F] LOAD " INK  BEEP ACS 9 FLASH ZCODE  NEW @GATTR  CAT LN  PRINT FSTR$  LINE  THEN  NEW ( OUT  LINE  OPEN #USR  OVER L{STR$ * INK Ko AND  INK  DIM IN "cIN  CLEAR ,+ FOR  LOAD = RESTORE  ERASE ▙ OUT [U] INK #[E]tSTR$ [F]ASN n' FOR FN  INVERSE /]<>[tD[F] OUT >=IW PRINT ASN 'F'[J]zaLEN  INVERSE Ze_M%▟,h6lt TO IvABS  BEEP SQR "<>SCREEN$ SQR g INK O^ NEW 53[T][G] FORMAT M RESTORE #k INK INT M:FF> CLS  RETURN p8x[N]? IF  SAVE ABS + PAPER  INK SGN  LOAD COS [Q]<> INPUT [S]USR [B]VAL$  LIST 6o<= THEN h IF ^ CONTINUE [G]! PRINT [L] FLASH  NEXT  INK [O]}[F] CLOSE #WSIN PEEK PEEK  PRINT { VERIFY _[O]NOT T LET  LET ▟?  % PRINT ACS PI'▘:k[E][P]-iO CAT DYz▞1[U] CAT <>C MERGE [H]sCODE F[Q][P]▞ IF  AND pLU]ATN ▟ PLOT  EXP  PAPER ▙>= MERGE ^ LINE WBIN [M] GO SUB 9ATN CHR$ PTCODE [G]B FORMAT ASN L RETURN  VERIFY X STEP ▚n CAT ro OR  RETURN 8 BEEP s2EXP eo VERIFY [U]N AND VAL$ [O]5ke DEF FN PEEK & BEEP ▞ OUT  STEP 09 BEEP  PRINT USR  COPY 3 BEEP  DEF FN sM BEEP t INPUT t DATA rztzRND© ERASE  DATA  TO u CIRCLE u▚6 MERGE { CIRCLE  DEF FN  NEXT gPEEK gVAL jPEEK LN _i LPRINT  OR  RESTORE :TAN !( PAUSE o[J]$TAB  MOVE | BORDER   READ  THEN 7ATTR  AND  FORMAT  PLOT  [Q]m<> AND  RANDOMIZE  ERASE  RETURN  NEW mINT  INVERSE  RETURN j[C] CIRCLE [P] SAVE m FORMAT (ATN  BRIGHT  DEF FN ACS  CLOSE #[R] OUT  PLOT   PRINT %FCOS [M]ACS 3 NEXT ] TO j OR R~~n<> STEP USR BIN NOT O5!~ SAVE F(| GO TO AT  STEP ATTR  DRAW [N]SGN  GO SUB SABS IN  IF  COPY  AND [N]~ BRIGHT ^ BORDER [N] RANDOMIZE  LET  FLASH  THEN INKEY$ COPY  LIST c OVER y NEXT 0q OVER ~ TO  OVER  RESTORE  MOVE WNOT  OVER  INPUT c[O] READ  STEP  LIST [P][D] TO  CLOSE # VERIFY STR$ [A] OVER  TO  GO TO E*"[O]o&$ COPY ▟PI!9Km REM &*& COPY (zI[P]~▚[E] LLIST '▛:6E![O]I▗[E]rC SAVE  LINE 6 OVER <aO INVERSE  NEW  PAPER  AND 4CRND RETURN [N]v TO  IF ▗▙[^▖▙ACS @[U] STEP USR ASN I LET STR$ [L] READ x@ CLOSE #Iu[P] IF BE>o>=▟?▝` OR USR ▘ CIRCLE lRNDUgs MOVE ▙ COPY STR$ wR[G] LOAD  RETURN  REM [ DEF FN @(CHR$  PAPER SGN <=  RESTORE kAT l(x<> CONTINUE ` INVERSE LEN HM[h`INKEY$VAL  SAVE VAL Y'7 READ INKEY$VAL Xkw AND pIN >P GO TO  RANDOMIZE INKEY$cd[L]-VAL  VERIFY 0 CAT  FLASH kOX CAT  LINE ATN N DEF FN  PAUSE  CIRCLE <STAB  PAUSE AT ▟)POINT E[J]RND|[C] RETURN [C] LIST LN Ax[T]d NEW Z CIRCLE  FLASH PTAN POINT  RANDOMIZE  FLASH V0BIN  LPRINT yN RESTORE A3[N]H DIM 1->=[C]STR$ ] AND  POKE  RANDOMIZE V[O]▖W+[G]y FOR d0X ERASE  CAT 2TW AND R2<>VAL$  LOAD EXP  CLEAR _ OVER  CONTINUE  RANDOMIZE [P]  READ s[<=EXP [G]▝T1: GO SUB C CONTINUE POINT D[L] LET / IF [B] TO 8 MERGE  BORDER EXP /:<>@ FORMAT ▝AT  MOVE  INPUT LO NEW EXP [U]y#▗ GO SUB [J]<2AuL STEP  IF u MOVE LN R[U]SIN  FORMAT d[U]a PAPER lLN 4O INPUT  CLOSE #[Q]_S^[I] AND TAB  IF ) INPUT ZVLN z[O][B]'[L]▟ATN A FORMAT [K]ACS ▟ CLOSE #▖[L] LINE [H]d THEN ▖ REM [C]@A PLOT  6[O] FORMAT 1INKEY$p INPUT  IF  DATA [K] LET X[I] INVERSE STR$  OVER  LET  FORMAT  CLEAR EXP [Q]f AND 0SIN [Q][m[Q]![F]LN ACS [S] NEXT [T] RESTORE @ LLIST [B] DRAW "{▗ RANDOMIZE  COPY  COPY v5RNDCODE  MERGE OPOINT 's/ GO SUB ▘ MERGE 'IN oTAB Gd[N][P]<[C] OUT [H]STR$  IF LN  COPY ?M FOR ©.ABS  BEEP = CLS ? LPRINT STCODE gUVW▗<> COPY + RUN ▚USR INT  CLS ▛ COPY POINT o/V COPY  RANDOMIZE PEEK p`'[H]CODE <= BEEP ▙U<>NOT AT ^ COPY ZGCOS  OUT ATN 'YF[M]ATTR  INPUT A GO TO y▗9TAN 7 RESTORE w GO TO  BEEP Yz▙ IF ▙ OPEN #SGN wX IF  CIRCLE *SQR  CONTINUE !]© GO TO  GO SUB @ PLOT  ▛ ERASE SIN E l) NEW [B]e"ya6 LET  FORMAT PI▘ AND n© READ  ERASE T[ FORMAT H DIM z FORMAT  BRIGHT  OPEN # OVER x▞ FORMAT "5H FORMAT x MERGE p+▛}}▙©#▖▖[E]e DRAW ▖$' RETURN  MOVE  THEN IN Oz[B]0V MOVE EXP ^CODE 2[F][O]ATN  BEEP ▖ FORMAT SQR VINKEY$5vPI>==+ OVER d READ T[L]TAB  OVER  PLOT  F THEN 8 FLASH SGN { LPRINT j BEEP 0v} CONTINUE  AND  PLOT  Bn@NOT [A] CAT STR$ IN  PAPER  MOVE STR$  OR  MERGE  STEP  SAVE  FORMAT  COPY n CONTINUE STR$  NEXT INKEY$;:PI9 SAVE [C]= OPEN #ASN  GO SUB  FOR /[F] RANDOMIZE [M]SIN (ATTR  OVER E OUT j SAVE  OPEN #Gy LIST 2 DIM  RETURN ▝  CIRCLE  FLASH vABS  FORMAT NOT [O][L]LN USR  LINE  CAT ] RANDOMIZE VAL ▙w READ  FOR K>= REM [K]y~#SQR  STEP f-TAB ▗IVW8[L]INKEY$;dAT  MOVE  IF AT  POKE NOT  RETURN ~8 OR z[ LOAD  OR sPI▝LEN Y FORMAT [H]8:U IF 0▜▞'AT [F]TAB Uc▛ OUT   STEP *>=LN S OPEN # PRINT /(5VAL$ 1y THEN  INVERSE N READ IASN  GO SUB ~ OVER  OR qpmB LLIST #/[C] BEEP X BORDER PEEK nKKs<>[N] TO [U]W[T] NEXT ww MOVE y OUT x BRIGHT y COPY ▟y MOVE X3▝[P]g▝TAN <> PAPER [H]?▝[C]rTAN <> LPRINT CODE t GO SUB 3 INPUT [T] CAT  FORMAT CHR$ <=F~z;Z~W~<> THEN :^ozYk  RETURN ▞ CAT  READ CHR$ <= DEF FN ▘ RETURN 0"Y DEF FN  STOP 8 %+ POKE 2AT e0r(@P5 OUT  OVER NOT SIN P<=SIN [G]ASN `V5 DEF FN  AND SIN p>=>=2[U] STOP v BEEP AT  ont(ySIN [B]OASN Yc{[I][L]yF PRINT :bASN [F] CLEAR G VERIFY SGN ~[D]IN LET !$[D] BRIGHT <>POINT [ NEXT  CLEAR @F>=y FOR [U]K THEN  RETURN  PLOT  @= MOVE (SCREEN$ [H]ASN U COPY  ",<>[H]-STR$ 6q2 FORMAT >AT [S]< LINE  CLS  LLIST <>BIN  OVER FN [O]PEEK [H] READ ▜ OVER  AND  OUT USR  PAPER '} STOP !VAL$ +VAL$ ~© TO  ERASE [q6 RETURN i<>w ERASE  PAPER  COPY IN ABS 5 MERGE  THEN ??s FLASH 3 LPRINT pg PAUSE  LPRINT !9USR [E]COS ?[M] REM  INK  OUT ©▙WEXP  OVER ~CODE H>U! POKE USR 9 THEN  DRAW _ IF  SAVE USR  LPRINT  LIST  COPY <>[N] CLOSE #BIN iVAL$ <[P] STEP [P]▝TAB STR$  DRAW [M] LLIST [B]COS s`:,[Q]g<[N]FD ERASE _ OPEN # CONTINUE  RETURN I LET [M] PLOT  [G] SAVE  RUN ▖ BRIGHT  SAVE rf[M]`L DEF FN [Q] LIST D BORDER ©p OPEN # CLS )j AND rcj AND USR COS f[U] READ jr LET [D]P:j[I] DRAW [N]s OPEN #BIN | RANDOMIZE 8LEN  OVER  NEXT ▚8 MERGE CHR$  VERIFY COS RND STOP Fr4zA:@9<=[N]VAL [K]STR$ EXP  OVER `E>=>` CLOSE #r[Q] +© DATA <= READ  LPRINT N RUN  LIST [L] READ G[P]ABS SGN SQR ; CLEAR  DRAW COS 3 STEP  TO ATN 7 INK  CIRCLE [O]NOT USR  LET }|MLs DRAW ml@[I]L CIRCLE  CONTINUE  NEW <=STR$ ~ BRIGHT  FORMAT INT ?CODE /PEEK [K]h▙[O]IN >[U] BORDER [M]GsSQR CHR$ [P]5 OPEN # RETURN  COPY COS S DRAW LEN VAL VAL$ .[N]98TAB AT <=INKEY$ BRIGHT  SAVE s PRINT 1 COPY INT E TO  CLOSE #3VAL / MERGE  SAVE  PRINT ATTR 4D[U]u@9` DRAW © LPRINT [U] PAPER  DIM [N]IcUSR =XT BORDER RND LOAD t[P][M][I]8SGN }ATTR A}7[U]{ MERGE <-E< PRINT  RANDOMIZE  THEN >= PAUSE  STOP !  POKE [F]BIN ,e LLIST USR (>~[B][A][WPq~C@x DEF FN {STR$  BORDER  RANDOMIZE _8p>[P] AND ▛CODE +[P]i INPUT  BEEP R SAVE < NEXT u CLS IN SIN  PAPER VAL Q CLEAR ©ATN INKEY$R NEXT #q▜[T]: SAVE  LET e]n DATA  BORDER m ERASE s~? INVERSE  BRIGHT [H]/I[K],<>>=1r[C]5cj[C]SrBIN [P] DRAW ACS ©A STEP PI[Q] OUT wphNOT Z?[P]#fs[P]▞▖[P][N][M] MOVE [U][P]PI[T]f| TO CODE AT PI[P] STOP s+9[D][P]p[P]& LPRINT  GO TO ]/NOT c[P] PRINT ▚3o[J]cTAB [P];[D]LN m}| FLASH USR [Q] CLOSE #CHR$ >[P]3 AND >[P]6 GO TO  DATA [P]v▙G4G.>LGswl6 CIRCLE  CONTINUE  TO  RESTORE  OR  CAT  TO [P] DATA CODE N THEN g` INVERSE ▜m7PEEK  DRAW >NOT O[P]▚[P];[P]>VA CAT 1[P] RESTORE ▖OL1[P] GO SUB [P] CIRCLE S RESTORE 1 DRAW > PRINT ▖>W'[P]/BACS t BEEP SGN ~Xf SAVE S CLOSE #<> CLS  DEF FN  LIST Ng[S] LPRINT ?; LET  TO 'Y CAT BIN g< FOR  AND o INPUT /STR$ ATN  BEEP SQR k NEW USR [E]< CONTINUE 3M BRIGHT 8 CLOSE #INKEY$/LN k▛0X1E GO TO S_[M] PRINT  CIRCLE ? CIRCLE K LLIST  PAUSE j LLIST ? CLOSE #RPEEK  BRIGHT  LPRINT USR VAL$ [H]lTAN  CIRCLE 5[D] LOAD  LIST ACS [D]j[O][G]j▚INT j%[I]!j%j IF %[P]PEEK ~ OR j CLOSE #ATTR zACS  FOR B? NEXT ^AT  OR USR  RETURN  BRIGHT AT  RANDOMIZE 1 RANDOMIZE  SAVE IN  REM  CLEAR 7[P] CLEAR [M]g PLOT  COS ▙o OVER © DRAW | RETURN ~▙PEEK  DRAW [I]~▙? CAT [A] BRIGHT  CLOSE #[I]YAT >==*VAL COS  LLIST RB STEP qiYA AND  OR NOT ACS n▙@ CAT TAN  BORDER  COPY  PRINT 9 MOVE ACS  CAT j[L]SGN > INK  CAT  CLEAR  SAVE  GO TO  SAVE x LET PEEK A READ  LPRINT b` OR STR$ POINT .<3 GO SUB [R]VAL @ RANDOMIZE  PRINT IiY©/SCREEN$  NEXT l PLOT   INK  CAT JACS  PAUSE  NEXT *[O] CAT  DEF FN |}[P][C] FOR O PAPER  INK -G NEXT -Z[P]5Q@#?qa[B][O]1 CAT ;SIN V CONTINUE  VERIFY  GO SUB # LINE IN `q COPY TAN  CLS : COPY [F] DRAW  GO TO LxH REM  MOVE  READ  ERASE ? CLOSE #LEN [K] GO SUB [J]/[M]' CONTINUE iLd RUN 0 CLEAR  RETURN 6q CIRCLE  ERASE  OPEN #gS CIRCLE  PRINT  COPY  COPY JVAL$ j LINE UWEXP  LPRINT ' NEXT  CLS pZW VERIFY ACS  LIST GPULSA  BORDER  BORDER NTEu▗CL SAVE EOGR  RETURN Sx[B]UOBJ LPRINT IV OUT [M]Dd DEF FN AHO-FN  NEXT V▚sLN  TO OMPN:ABS EN REM C LLIST pc?© COPY :IxINKEY$OVAL [J]INKEY$[D]VAL$ H REM NFNCOS MI▙DNOT AT P NEXT  STOP <>? CONTINUE " IF  INK AT  DRAW G LET ATN ' PAUSE PI LET aaPEEK [J] STEP /[U]SGN f IF  TO  CAT x CLOSE # OUT  LOAD _m VERIFY  CLOSE # CLOSE # CIRCLE  FOR  CLOSE #pPCHR$  TO INT  DRAW  OUT © LPRINT v DATA 0VAL PIASIN ~@ FOR  INK AT BCD=EFGd  A NEW B d[O]E CLS ' @ CAT  @2C@  NEXT F`2 CAT A NEXT `D3 ` CAT  2A  NEXT D 3[Q]2 CAT A NEXT [Q]D3 [Q] CAT  USR 2AUSR   NEXT DUSR  3 LPRINT 2 CAT A NEXT  LPRINT D7  LPRINT GAT gHIJ[O] PRINT KLSIN ▟MNO  NEXT  J CAT   2M @[O]A@dJ@B NEW M@`3>=` TO J`>=<MY`[A]yJ[J]gM [Q][Q]2 CAT J NEXT [Q]Md![Q]USR  NEW USR J[O]AUSR ,dMUSR  LPRINT < LPRINT J3>= LPRINT ▘ TO M LPRINT g<>INKEY$Q PRINT AT RSTU INK [O]VW y Rg{[J][J]U @ CAT  @2R@! NEXT U@d``A NEW R`d[O]U,`>=<R TO 3U[A][Q][J]g[Q]Ry[Q]USIN [A][Q]USR  NEXT USR R CAT  USR 2UUSR  LPRINT [O]A LPRINT dR LPRINT C NEW U LPRINT F~GJC COPY  FLASH PQT▗vU DIM  COPY [P] RETURN DPRINT WVI. FORMAT  OVER ▝"&INT  OVER g/x[L]8t LIST ))* IF -d POKE @STR$  RETURN [I]G PLOT  *▞ATTR ,VAL © FORMAT ▛74USR U`+ GO TO  GO SUB 5 OVER 9 PRINT [Q] BEEP [S]PEEK 2POINT ©USR  DRAW  RETURN 1▝, LOAD )[Q][C] BRIGHT VAL  PAUSE [A][Q]@[H]VAL  DRAW 1 AND VAL db`[M].@jFPEEK | OVER  RANDOMIZE @#y OVER EXP _ OVER vINT ^E OVER  FORMAT ©S POKE VAL QUSR <VAL `▝GJ<CODE  IF [Q]USR  GO SUB m@%<= FOR `- LIST  GO TO *7,)'A[G]`7 PRINT @? PLOT   LET [A]73,++ FORMAT W BRIGHT  CLOSE #SGN  LINE  FORMAT ▘[H] FORMAT @#NSIN > BRIGHT FN ▙Pgt! BORDER  GO SUB [A] PLOT   OPEN #USR HRND OUT PEEK PEEK r LIST @IN tZABDIN  }_[O]ABS  INPUT [Q]$(FN r yv+9,-FN  CONTINUE  LIST l90G[R] DEF FN +[A]_USR _] LIST CODE  DEF FN USR  [G]?USR AT CHR$ ©@CODE ;[Q] '< CAT [L]_I VERIFY  LPRINT  Jz POKE  NEXT  LOAD  LNINT  BORDER USR @GMO NEXT  READ ATN GHVAL  CIRCLE  ?STR$ ▝ GO SUB CPEEK 6 CLEAR ▚ STOP ACS x INVERSE USR  DEF FN I FORMAT  PLOT   IF  FORMAT [[S] RUN SGN  CLOSE #USR  OUT [T]_[Q]IN [H] FORMAT ` CLOSE # STOP ▟`@VAL gp*GgpVAL K}[B]p>=)© LLIST E[Q]}~ MOVE PEEK xp` NEXT  IF n OUT  LLIST USR PEEK >=*. STOP  SAVE SGN  TO  LPRINT <R FORMAT VAL$  NEXT PEEK ▝ STOP USR 1- PLOT  )▙ LET }USR  BEEP  RUN ▙1>USR ;:1 FLASH  SAVE USR V▚SIN <)? LIST :@A3ACS = DEF FN  THEN k FORMAT *~<,▜N+3@ FORMAT  CONTINUE [I]>@ FORMAT !<=CHR$ z RANDOMIZE *©EXP USR [Q]j&USR  FORMAT CHR$ ~[O]PEEK  SAVE [Q] CONTINUE SGN  IF USR  OUT CHR$ 9[H]` 7+[I] COPY , INK Z@- LET 5)j FLASH  OVER   LOAD POINT <= LPRINT USR [O]_A INVERSE  FORMAT ~SIN /<[Q]G BORDER GIN  CLOSE #USR  LET Ei LOAD  LPRINT  RUN u PLOT  /CHR$ @VAL ABS  INVERSE @▜/[R]@©zC IF -USR B OUT  RESTORE  FORMAT VL LPRINT Q?= OUT `K> FLASH PEEK `©;?_IN  LPRINT VAL `CODE USR A[[Q]/ FORMAT : THEN USR ▝ RESTORE  FORMAT  CIRCLE [ OUT XSGN ABS `▝Eua PAUSE USR 0 `G? LPRINT _[E]K|VAL  RETURN  LLIST P|USR ^>`  READ ▛`q RETURN ` PAUSE USR PEEK ABS SIN  DRAW  PAUSE USR  PRINT  LIST *VAL P OPEN # RUN  CLOSE #[o CLEAR xPEEK (ATTR }4= CAT [YUSR -,+©<* POKE <USR  CLEAR [G] FORMAT  PRINT  PAPER USR * NEW [T]g,)+ SAVE <USR  ERASE USR [Q]2 LET USR  NEXT SGN Z[U][K] CLEAR  LIST [Q] OUT [Q]XPEEK WUSR y[L]TAN } THEN USR | LOAD RCISGN 0[L]o▙)- CAT [Q] IF  IF ? OUT AVJ}^tLNPEEK  CLEAR MO PRINT  PAUSE RNDUSR I FORMAT  LLIST  RUN  READ [P][A][Q] OR IN GC[Q]ABS 2[R]D▚ COPY  PAUSE 0SGN SQR  SQR  POKE u BEEP p+ ERASE  BORDER  INVERSE . RUN [G] LPRINT  INVERSE yp FORMAT  GO TO  STEP [I] LLIST  IF  INPUT . DEF FN ` LOAD r NEW @yoP+ COPY  BRIGHT + SGN  CAT =` RETURN  MERGE  FORMAT ©USR ;/[Q]/0 DEF FN NOT  CONTINUE  OR ?` INVERSE  RANDOMIZE P RESTORE  RANDOMIZE @g LOAD  [N] BORDER @AB GO SUB  CLS wA OVER [H]USR  OUT  OUT  LPRINT  GO TO ][A]@+RND!e   ERASE B CLOSE # TO  DEF FN L/ FORMAT USR __USR _IN  FORMAT  DRAW  INVERSE SGN  IF USR XUSR  LET  ERASE USR ▝`[Q]}©t[A] PRINT ATTR  RESTORE {" DIM  RANDOMIZE zwE RANDOMIZE SGN  INVERSE z~G LPRINT {USR @gQ LIST SGN @ POKE  DRAW p LIST  CLEAR @ CLEAR  MERGE USR ATTR  INK PEEK |W[P] INVERSE y@ DIM  CLS .STR$ [B]o; PLOT   PAUSE [A][R] RUN  OVER <,:fho[O] RANDOMIZE APEEK  INVERSE g TO  INPUT  INPUT , INPUT - INVERSE `H NEXT  OVER  READ {▞`USR PEEK  MERGE  RND BRIGHT _USR  FORMAT  POKE HD DEF FN /USR  SAVE  STEP [Q]CODE [L] COPY [Q]I DRAW  = MERGE  PAUSE  FORMAT  RUN  REM P[O] DIM  LPRINT STR$  OR  FORMAT @ OUT  OVER > OVER [N] ▜[M] LPRINT  LLIST [T] OVER  LPRINT [M]ABS IN EXP ?PEEK }IN [Q] GO TO STR$  RETURN (>[L]aCOS CODE  RESTORE  MERGE  CLEAR ~2 DRAW  THEN ' DEF FN  COPY ?=O! FOR  NEW EXP  BRIGHT  FLASH < INK OATN c SAVE w+ IF   LIST  LOAD FCODE  PLOT  N RANDOMIZE 9 POKE CODE ▝ CLEAR O~ COPY  STEP  MOVE  GO SUB VAL  LLIST NOT eCOS >>RNDw# FOR  MERGE &[Z[L] BEEP  INK [O]o©S[O][M]t-[M]FN o~d FLASH [Q] MOVE [O]qGl GO SUB L:[K]  READ  OVER BIN ATN [F]GCOS  INVERSE ~ RETURN o CLOSE #CODE  DRAW  STEP  CAT STR$ _ INVERSE  THEN vBIN  INK  BORDER  COPY <>: FOR < RETURN  LINE SVAL$ 2gIN  STEP ASN VAL  STEP E OUT sABS ▘LN  INK 2ACS  GO SUB  CAT g INVERSE  RANDOMIZE PI>== AND X OUT  GO TO  NEW f LINE  CLEAR  COPY  STEP PI X FORMAT COS (* LIST Q FORMAT  RETURN Evb8[D]r> INVERSE  BEEP & MERGE LN  LINE LN  INVERSE s OPEN #6l[K]ACS COS  PLOT  <> OR  CLEAR ! REM  INVERSE  SAVE s'i` CLEAR ^lACS #V COPY  CLS >0PI GO SUB R8 DIM < RANDOMIZE  LIST w# DIM  STEP  DATA STR$  BEEP :/<>CODE O GO TO USR  LIST - STEP = COPY  THEN 6 FOR N RESTORE 2(3 IF ▚ LLIST # COPY ▟7IN Q;7 REM ?F CLEAR C[S] DRAW %POINT l STEP 6[R]GKSTR$ -VAL MqINKEY$ INK F: FOR OEvS' MOVE  STOP  TO  TO  CLEAR <> OUT = PAPER  PAUSE  FLASH  STEP ,(Z[CODE <>+TAN  IF :SIN [U]|ACS #* DRAW  CONTINUE  DIM e~ RETURN [O]▞ IF >=H#NOT [O] RETURN   PAPER Q NEXT )/<> RETURN  LINE [A] STEP  LINE '[K][I] TO ~ RESTORE  COPY  DRAW +[P]&o)X LET  GO SUB [u LET ▗~# IF ! SAVE "T BORDER  LLIST <> MERGE wSIN _: REM ▚ GO TO S MOVE #^<=4V REM [O]u AND ~2 INK  RESTORE  MERGE  OR w6>=ATTR STR$ 31 MOVE  MERGE r BORDER  GO SUB ?RASN kASN  FOR  INVERSE d?n[K] LIST fZ<>[L]ATN  VERIFY  OR !X LIST Q LOAD JMD BRIGHT [I] NEW  IF wSTR$ <> OR  CONTINUE M TO  COPY [ CONTINUE  GO SUB VAL NOT ae NEW  FLASH VAL BSMAILY.2C CONTINUE c[M][N]hrus COPY A COPY A COPY A COPY A COPY A COPY A COPY  DRAW  ,ABS ABS ABS ABS ABS ABS ABS  , COPY ▝ COPY ||▝ COPY ||▝ COPY ||▝ COPY ||▝ COPY ||▝ COPY || ,SQR  COPY  COPY USR  COPY  COPY USR  COPY  COPY USR  COPY  COPY USR  COPY  COPY USR  COPY  COPY USR  COPY  COPY  OPEN # , , , , , , , , , LPRINT ▝▝▝▝▝▝▘ LPRINT SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN ?T▝<<[Q] DEF FN  DEF FN [Q] DEF FN  DEF FN [Q] DEF FN  DEF FN [Q] DEF FN  DEF FN [Q] DEF FN  DEF FN [Q] DEF FN  DEF FN [T]?T<TACS *SCREEN$ [Q]*SCREEN$ [Q]*SCREEN$ [Q]*SCREEN$ [Q]*SCREEN$ [Q]*SCREEN$ [Q]*POINT COS <T?T?T<T<T?T?T<T<TVAL ABS ABS ABS ABS ABS ABS ABS VAL ? DRAW ▝▝▝▝▝▝▝? DRAW  ,ABS fFUSR =ACS ACS USR =ACS ACS USR =ACS ACS USR =ACS ACS USR =ACS ACS USR =ACS ACS NOT  , ,VAL$ U@U@U@U@U@U@Us , , , , , , , , ,XSGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN X IF CODE SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN  IF CODE <TEXP C[Q]9INKEY$INKEY$[Q]9INKEY$INKEY$[Q]9INKEY$INKEY$[Q]9INKEY$INKEY$[Q]9INKEY$INKEY$[Q]9INKEY$INKEY$[T]<T<T[M] READ <T<T<T<T<T<T<T<T<T(▝▝▝▝▝▝▝(IN  MERGE [J][J][J][J][J][J][J]IN  MERGE  AT [F]A▘USR [G][G]USR [G][G]USR [G][G]USR [G][G]USR [G][G]USR [G][G]NOT  AT  , , AT  AT  , , AT  AT  , , TSGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN ▝SGN  TIN  GO SUB [S]▝[S]▝[S]▝[S]▝[S]▝[S]▝[S]IN  GO SUB <T▟b AND [Q]ACS ACS [Q]ACS ACS [Q]ACS ACS [Q]ACS ACS [Q]ACS ACS [Q]ACS ACS [T]<T<<<T<T<<<T<T<< ,ABS ABS ABS ABS ABS ABS ABS  , COPY  BEEP ASN ASN ASN ASN ASN ASN ASN  COPY  BEEP  ,▟<|USR  DEF FN  DEF FN USR  DEF FN  DEF FN USR  DEF FN  DEF FN USR  DEF FN  DEF FN USR  DEF FN  DEF FN USR  DEF FN  DEF FN  , ,© 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  , , , , , , , , ,?▝▝▝▝▝▝?? DRAW  COPY ▝ COPY ▝ COPY ▝ COPY ▝ COPY ▝ COPY ▝ COPY ? DRAW <[B][Q]||[Q]||[Q]||[Q]||[Q]||[Q]|| READ <<? 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 <<<<<<<<< , , , , , , , , , , , , , , , ,?T?T<T<T?T?T<T<T?T?T<T<T?T?T<T<T , , , , , , , , , , , , , , , ,<T<T<T<T<T<T<T<T<T<T<T<T<T<T<T<T AT  AT  , , AT  AT  , , AT  AT  , , AT  AT  , ,<T<T<<<T<T<<<T<T<<<T<T<< , , , , , , , , , , , , , , , ,<<<<<<<<<<<<<<<< , , , , , ,? DRAW ? DRAW © 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  MERGE U OUT  RANDOMIZE UmUU&UmU MERGE  MERGE U©> MERGE | MERGE mU||||||| MERGE mTU<|||[F] MERGE mQ MERGE STR$ U COPY  COPY  MERGE  COPY STR$ m COPY  COPY  COPY  COPY  COPY  COPY  COPY STR$ mU COPY  COPY  COPY  COPY  MERGE m COPY  COPY  COPY STR$ ?T?T<T<T?T?TINT SCREEN$ SCREEN$ SCREEN$ SCREEN$ ▘SCREEN$ ▘SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ ▘SCREEN$ ▘SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ ▘SCREEN$ ▘SCREEN$ SCREEN$ [S]▝ COPY ATTR  LPRINT  OUT  DRAW IN  LOAD  IF SCREEN$ ▟4zIN  LOAD  RETURN  READ |66 COPY  LOAD  COPY  COPY SCREEN$ +~~ FOR  DEF FN  IF SCREEN$ [T] DEF FN  DEF FN  DEF FN  DEF FN  DEF FN  DEF FN  DEF FN  IF SCREEN$ SCREEN$ ATTR l DEF FN  DEF FN  DEF FN  REM SCREEN$ SCREEN$ ATTR  CLS [M]SCREEN$  COPY  COPY  REM  COPY  CIRCLE SCREEN$ 8 COPY  COPY  COPY  COPY  COPY  COPY  COPY  CIRCLE SCREEN$ 8SCREEN$  COPY  COPY  COPY  COPY  REM 8SCREEN$ 8 COPY  COPY  COPY  INK  , , , ,XX[M]UUUUQ9m9uUUUUUQ9m9UUUUUQ9m9uUU9 MERGE U SAVE  OUT  CLEAR UmUU▟▙4uUmTbtV65 MERGE mQ MERGE  MERGE U©[O] MERGE ACS  MERGE mUACS ACS ACS ACS ACS ACS ACS  MERGE mTULACS ACS ACS  MERGE  MERGE mQ MERGE VAL$ UUUUUm]UUUUUUUm/UUUUUU]m]UUU<T<T<T<T? DRAW ? DRAW FN FN VAL$ INT SCREEN$ SCREEN$ SCREEN$ SCREEN$ tSCREEN$ /SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ /SCREEN$ /SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ /SCREEN$ /SCREEN$ SCREEN$ [S]]SCREEN$ +;[M]USR :SCREEN$ [S]SCREEN$ ▟6:INT SCREEN$ SCREEN$ [S]v CLS SCREEN$ +?USR  FOR ACS  IF SCREEN$ [T]INKEY$INKEY$INKEY$INKEY$INKEY$INKEY$INKEY$ IF SCREEN$ SCREEN$ ATTR lACS ACS  PLOT   REM SCREEN$ SCREEN$ ATTR  CLS ACS SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ lSCREEN$ l COPY  COPY  COPY  COPY  COPY  COPY  IF lSCREEN$ lSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ lSCREEN$ lIN  COPY  REM m AT  AT  , , COPY W COPY WhPhPACS PmmmuUUUUUQmmlmmmuUUm MERGE U' MERGE ©UmUU7[F]UmTbtV:5 MERGE mQ MERGE  MERGE U? DRAW  MERGE  AND  MERGE mU[G][G][G][G][G][G][G] MERGE mTU, AND  AND  TO  MERGE  MERGE mQ MERGE INT _ COPY  COPY  COPY  CLEAR umuUUUUUUQumt© COPY  COPY  COPY  COPY  CLEAR umuuUEu<T<T<<IN TAB IN TAB w DATA w DATA INT SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ /SCREEN$ t[Q]tSCREEN$ tSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ tSCREEN$ t[Q]uSCREEN$ +g▙ REM >:SCREEN$ [S]SCREEN$ 7[K]INT SCREEN$ SCREEN$ [S]|V"6SCREEN$ SCREEN$ ATTR  CLS SCREEN$ + SAVE  FOR v IF SCREEN$ [T]ACS ACS ACS ACS ACS ACS ACS  IF SCREEN$ SCREEN$ ATTR nvvSGN  REM ( LLIST [M]INT SCREEN$ SCREEN$ SCREEN$ SCREEN$ 8SCREEN$ 8 REM SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ 8SCREEN$ 8SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ 8SCREEN$ 8SCREEN$ SCREEN$ SCREEN$ 9 , , , ,IN UIN U`UUUU9m9UUUUUUU9m9UUUUUU9m9UUU9 MERGE Uo OVER  MERGE UmUU▞▜▛5UmTbV# MERGE mQ MERGE U LPRINT  MERGE N FORMAT ( DEF FN  DEF FN  DEF FN  DEF FN  DEF FN  DEF FN  DEF FN USR (UFNN▚ MERGE UmU MERGE ▝UUUUQmUUUUUUQmuUUUUQmuUE<<<< IF CODE  IF CODE ATTR  COPY  COPY SCREEN$ SCREEN$ ▘SCREEN$ ▘SCREEN$  COPY  COPY  COPY  COPY  CLS  IF ▘SCREEN$ ▘ COPY  COPY  COPY  COPY  CLS  IF ▘SCREEN$  COPY  COPY  COPY SCREEN$ +© RETURN  FOR <>INT SCREEN$ [T] COPY  RANDOMIZE  CLEAR  RETURN  RANDOMIZE  COPY  LOAD INT SCREEN$ SCREEN$ PEEK  COPY  COPY  OUT  LLIST  IF SCREEN$ SCREEN$ ATTR  CLS SCREEN$ ATTR  FOR | REM SCREEN$ ATTR ||||||| REM SCREEN$ SCREEN$ ATTR ~|| RETURN  REM SCREEN$ SCREEN$ ATTR  FOR © 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 BB00000000000000BBBB00000000000000BBBBJJJJJJJJJJJJJJBBBBBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBIIIIIIIIIIIIIIIIIIIIIIIIIHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBBBBHHHHHHHHHHHHHHHHHHHHHHHHHHHHBB                                  NN                        888   NN p   ppppppp    pppp    888                                 @USR  [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT  VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY F^ COPY  COPY  DRAW 98 COPY  RANDOMIZE  DRAW  DRAW  COPY  NEXT ~~© RUN oo? RESTORE [F][F]IN >= CLS  CLS IN  FORMAT  COPY  COPY IN  BRIGHT IN IN ?STR$ COS COS © OUT ▚▚© OUT  RETURN  RETURN  COPY  OUT  BRIGHT  BRIGHT  COPY  OUT [N][M] COPY  DEF FN  LPRINT IN ?? GO TO ATN 7[P] DEF FN [P] RANDOMIZE  RANDOMIZE  READ  LPRINT 66 COPY  COPY  CLS  SAVE pp GO TO  GO TO SQR LN ©© RESTORE  RESTORE  CLS  SAVE  BRIGHT  BRIGHT  OPEN # FORMAT USR  COPY  COPY  COPY  RETURN  COPY  LIST  BORDER  LPRINT  COPY  BORDER  NEXT  LIST  COPY  STEP  RANDOMIZE  SAVE  COPY  INVERSE  DRAW  DRAW  COPY [F] OVER  OVER  COPY ""SCREEN$ SCREEN$  COPY CCvv COPY cc GO TO  GO TO  COPY ©©YX COPY ©©;8 COPY ©© NEXT  LIST  COPY ~~wp COPY <<pp COPY ▝~~?ABS <__<<// BORDER  LPRINT __ READ  READ  NEXT  LIST mm> RETURN {xss LET  LET  CLS  SAVE ..nnc` COPY  COPY  DRAW 98 COPY  RANDOMIZE  DRAW  DRAW  COPY  NEXT ~~© RUN oo? RESTORE [F][F]IN >= CLS  CLS IN  FORMAT  COPY  COPY IN  BRIGHT IN IN ?STR$ COS COS © OUT ▚▚© OUT  RETURN  RETURN  COPY  OUT  BRIGHT  BRIGHT  COPY  OUT [N][M] COPY  DEF FN  LPRINT IN ?? GO TO ATN 7[P] DEF FN [P] RANDOMIZE  RANDOMIZE  READ  LPRINT 66IN  COPY  CLS  SAVE ppAT  GO TO ATTR LN ©© RESTORE  RESTORE  CLS  SAVE  BRIGHT  BRIGHT  OPEN # FORMAT USR  COPY  LPRINT  COPY  COPY ©©? DRAW  FLASH  FLASH [P] CLEAR  RESTORE  RESTORE O@ RANDOMIZE ~~ LOAD  LPRINT  PAUSE ?? LOAD  LPRINT  POKE ?? LOAD  LPRINT  PLOT  )) CAT USR  LIST  DATA  DATA  OUT USR  RUN  COPY  COPY [P] RUN  COPY  COPY IN  RUN  COPY  COPY ? RUN  READ  READ © NEXT NOT NOT ? SAVE [P] CLS  CAT USR  READ  TO  TO c`▟ COPY  COPY  CLS  SAVE 33 LOAD  LOAD  FLASH  CIRCLE ©© LET  LET [Xo© RETURN  RETURN  CLS  SAVE 99EXP EXP COS VAL D INK _WW READ  LPRINT oo RANDOMIZE  SAVE 77 CLEAR  DRAW ATN 7[M][M]77©©[K][K]©© NEW  NEW {{ RETURN  RETURN xx RETURN  RETURN >>IN ?=<[P]yx<= READ  LPRINT  RUN  NEXT IN  LIST  BORDER [T][Q] CAT POINT FN  OUT  CLEAR  DRAW USR  OUT  CLEAR  DRAW USR  COPY  COPY GG READ  LPRINT __ RANDOMIZE  SAVE oo CLEAR  DRAW oo<<nn4©© DEF FN  DEF FN ww RETURN  RETURN qq RETURN  RETURN <<PEEK >}|[O] RANDOMIZE  SAVE <= READ  LPRINT  NEXT  NEW A@▖==zz^^INT INT @@BB?? BRIGHT  BRIGHT WW READ  LPRINT oo RANDOMIZE  SAVE 77 CLEAR  DRAW ATN 7[M][M]77©©[K][K]©© NEW  NEW {{ RETURN  RETURN xx RETURN  RETURN >>IN ?=<[P]yx<= READ  LPRINT  RUN  NEXT IN  LIST  BORDER [T][Q] CAT POINT FN  OUT  CLEAR  DRAW USR  OUT  CLEAR  DRAW USR  COPY  COPY PI' READ  LPRINT ATN 7 RANDOMIZE  SAVE [L] CLEAR  DRAW  TO  TO [[▚▚GG▘▘©© TO  TO ©© PAUSE  PAUSE }} RETURN  RETURN ||~~??IN ?[N][M][P]EXP LN <= READ  LPRINT  LIST  CAT USR  NEW STR$ USR 99 ERASE  ERASE [[ IF  IF @@;; DRAW  DRAW CDDDD%`` RETURN OCHR$ ?b~} STOP { PAUSE wSIN wSIN wSIN ;bCHR$ @© RETURN Bo`© RETURN @@B Nf RETURN © SAVE  PAUSE N STOP LCHR$ H▘@@© RETURN EEEXP `© RETURN _ LIST P|_PvP~P~P~P|Px_ STOP © RETURN FFFa~~AaR▘lbZ"4[C]EzB PAPER A[K]@@© PLOT  B1▗ FOR ! COPY L COPY Z GO SUB LN  OR  MERGE  GO SUB LN  OR  GO SUB LN  RESTORE  MERGE  LLIST 6 GO SUB LN  LLIST  GO SUB LN STR$  NEW  MOVE STR$  CIRCLE  OR  MERGE  OR  GO SUB LN  RESTORE  MERGE  LLIST 6 GO SUB LN  LLIST  GO SUB LN STR$  NEW  MOVE STR$  INVERSE  OR  MERGE  OR  GO SUB LN  RESTORE  MERGE  LLIST 6 GO SUB LN  LLIST  GO SUB LN STR$  NEW  GO SUB LN  MOVE STR$  CIRCLE NOT VAL RND COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY @_U[Q]*SCREEN$ (UU BRIGHT CODE VAL$ :UUSCREEN$ SCREEN$  REM SCREEN$  BEEP UUU INPUT ATTR *[S] MERGE VUSCREEN$ ATTR SCREEN$ SCREEN$ u MERGE  BEEP USCREEN$  REM ATTR SCREEN$ u]U MERGE SCREEN$ PEEK SCREEN$ SCREEN$ w]U]SCREEN$ ATTR VAL$ ATTR ]WWSCREEN$ *SCREEN$ SCREEN$ /UUUVAL$ SCREEN$ SCREEN$ SCREEN$ UU]/IN PEEK SCREEN$ SCREEN$  COPY  COPY UT NEXT  COPY  REM  REM  COPY  COPY  RUN  PLOT  SCREEN$ SCREEN$ SCREEN$ SCREEN$ EEEEGGVAL$ [R] MOVE TU~, CLS SCREEN$ SCREEN$ SCREEN$ SCREEN$ TUTUSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ UTUTSCREEN$ SCREEN$ SCREEN$ SCREEN$ UTUTSCREEN$ SCREEN$ SCREEN$ SCREEN$ UTUTSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ TUTUSCREEN$ SCREEN$ SCREEN$ SCREEN$ TUTUSCREEN$ SCREEN$ SCREEN$ SCREEN$ TUTUVAL$ SCREEN$ SCREEN$ Uu]/PEEK VAL$ SCREEN$ SCREEN$ u CLOSE #UT[S]LN J REM  BEEP ~ATN  PLOT   CLS IN PEEK  REM DDDDCC OUT  NEXT  BEEP  RETURN u©, CLS SCREEN$ [Q]*SCREEN$ |UT MERGE  REM IN SCREEN$  REM  REM J IF SCREEN$ }]4ATTR ▘INT PEEK UTUtINT SCREEN$ FN INT U~U/IN  INPUT SCREEN$ SCREEN$ IN  REM j|Q CLOSE #[F]VAL$ [T][S][S]/UTWSCREEN$ * REM Tu/ MERGE VAL$ SCREEN$ SCREEN$ Uu]/PEEK VAL$ SCREEN$ SCREEN$ u CLOSE #UT[S]LN J REM  BEEP ~ATN  PLOT  SCREEN$ SCREEN$ SCREEN$ SCREEN$ GGGGGGGGFF