Винни Пух: WINNYPUH.B

Es parte de la publicación: Винни Пух
Tamaño del archivo: 65280
md5: 6350374d1882757d989303f316208e4b
  10 REM CODE  OPEN # RETURN !xi GO SUB [ POKE /+ STEP =NOT xi
  20 RANDOMIZE USR 23872
  32781INNYPUH" LINE 1015616 LINE l^l^ STEP h[E] NEXT  GO SUB s![G]i▟[d MERGE  GO SUB VAL !g[E]* INVERSE n*<> GO SUB LN !ABS SIN [Q]~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1COS _ NEXT NOT EXP  READ ▝0'© COPY  RETURN USR  STEP  COPY  LIST USR  COPY ▝IN STR$  COPY ▝©|▜|? COPY @ COPY USR 30▘ RETURN  RETURN j▚ COPY USR © SAVE * RETURN  COPY USR  RETURN 7▖ DRAW @ COPY USR  COPY  COPY  LOAD <▖ COPY @@  ▝j ▝ COPY 5@@`  ▙ ▘▖▝[K]▞@ SCREEN$ ▘@D@▝ COPY q"▝ CONTINUE ▘ BORDER  LIST <>▗? COPY  COPY ▝ OUT P CONTINUE ▝ SAVE 1s COPY  SAVE 3▘USR ?qq▘ COPY  LPRINT !▝ RETURN ▗ RETURN ? COPY  BORDER 8▝©a RETURN ~ RANDOMIZE  COPY Q▖@@▗! ▖@B▖q▝ OR ▝ INPUT q1▝ COPY B" CONTINUE ▝ CONTINUE ▘ CLS  SAVE <=▘ LPRINT R8 DRAW PEEK CHR$ qB GO SUB ▘!<>~"▝xq▟ } COPY  CAT  RUN <= COPY  CLEAR xgUSR B LOAD  DRAW <▘[P]PEEK U▝ LOAD [Q]<>▝A DIM 1▘D▗▝ GO TO ▘ OR ▝(qB▝ ▝ RETURN BB DATA ▝ NEXT  CONTINUE  CLEAR  DRAW  LLIST ▝ CAT r▝ CLS ▝ RUN C▝ CLEAR  NEXT   LOAD ! RUN ▝USR  SAVE ▘ CLEAR 1▗ CLEAR USR n8C▝ LIST 2x RUN  RUN  NEXT <= COPY  RANDOMIZE pa<= DRAW  SAVE  COPY [P]> NEXT  COPY <=<>▗▝1▝q▘▘ STR$ ▝[▝PB DRAW ▘▗1 PAPER C PAPER  MOVE ▝<> MERGE >=▝ RETURN LN T8 LPRINT  MOVE   LOAD " RUN ▝ LPRINT  SAVE ▝81▝SGN q▝ SAVE 3x NEXT { LLIST  COPY EXP pc2[D] BORDER <= DRAW  SAVE w COPY  READ @▝▝▘A▘3▘STR$ ▝a OR ▝[Q]VAL$ qQtVAL$  BORDER r4s RANDOMIZE ▝ LPRINT  MERGE #LEN ▝ DRAW "▗ RETURN USR $ GO SUB <> DATA  CLEAR  COPY  LET  BORDER A▝ COPY 3▘ LIST  RETURN  SAVE 8 LPRINT ▗8USR fq30q= READ NOT  COPY `C5▗ CLS  SAVE ▞sIN  LLIST  COPY @▘ TO a LPRINT ▗@▝V▝▟▝@VAL$ @▛ LPRINT 0 COPY  DATA ▝ DRAW U>= LPRINT ▗ RETURN VAL "$ GO SUB  SAVE  MOVE ▝ LIST (▝Q▝$ RUN  SAVE  BRIGHT w"0▜USR USR DQ▝ DRAW E LPRINT ▛|xc▙NOT NOT  CAT 9`A6[A]}▝ SAVE <LN 1 MOVE @ LPRINT $A[I]▝ CONTINUE ▛f LIST  DRAW 8  REM ▝ TO 03 COPY  READ 6 FLASH F LPRINT ! CAT x ERASE v LPRINT SCREEN$ (f LPRINT 1▗ DRAW !USR  LET  LPRINT  TO ▘V LPRINT ▝ AND f LPRINT ▛ DRAW !▝▝@ LLIST F LPRINT [A]▝[I]<[I]▝f DRAW & LPRINT a LPRINT ▝` LPRINT ▘▝"[Q]x THEN ▝~[U]▝ LPRINT [Q]▝ READ [Q]▘ NEXT USR u BRIGHT Is PLOT   LPRINT q LLIST ▜_ COPY  COPY E COPY  COPY  POKE @_IN IN p▝IN   IF  CLEAR p p 0@▘ IF  ▗' COPY  DRAW .▝ CLEAR `@ DEF FN t OPEN # COPY p FOR  PLOT  qqqqqq.A[J]▝D<> LLIST ▘E▝ CLOSE #▝@ OVER qRND THEN w NEW q LIST  FOR rr▗ POKE _USR ?` LPRINT ▝2▘ SAVE bA LPRINT ▝ REM B▝<=)▝©A GO TO  COPY  RETURN ▜rPEEK r[B] COPY  FOR P[Q]@PI POKE p[Q]#▘ SAVE 0 LPRINT D DRAW P LPRINT  LPRINT s ▘ CLS  RETURN #C INPUT I6x MERGE uR[Q]BPI▘SCREEN$ r[Q]s LPRINT ▚ COPY  CLS <= CLS  CLEAR  DRAW qtS LPRINT ▝qs LPRINT  COPY 8<>{ DRAW {St LPRINT t LPRINT  LPRINT ▘B©t LPRINT t LPRINT t LPRINT qud LPRINT rt LPRINT  COPY  FORMAT uIN ~y PAUSE  CONTINUE u LPRINT E LPRINT ▝Du INPUT u LPRINT u LPRINT vvu LPRINT su LPRINT  COPY  LOAD {9 FLASH ▝v LPRINT v LPRINT v LPRINT v LPRINT v LPRINT 7v LPRINT  CLEAR O COPY  RETURN tv LPRINT  COPY  CLOSE #{ RESTORE h~4 COPY ~?▙ SAVE ? SAVE ?USR © LIST ?USR  CLS  DRAW ©©F INK ©PEEK x[Q] LIST | DATA  CLS h PAUSE } INK pSIN ?▘ LIST ? DRAW ▝ NEXT ▝?n@ COPY  STEP x LPRINT ~  LET uT▖ COPY  LIST  COPY  LIST  COPY  DRAW ? LIST < COPY  GO TO  STEP ▛<> LIST <USR |<USR  LIST ▘| REM © AND  INVERSE J[F]r- VERIFY y< COPY ]▗ COPY  SAVE  COPY  SAVE &▝ SAVE ©FA▘< SAVE ▝<A▝< OVER r LIST  IF z# COPY  INK ~<|<~ SAVE |~ DRAW < CAT 0 SAVE q LPRINT b! LIST <▗| LIST q COPY  COPY  DRAW [CHR$ <  LPRINT p LPRINT _▝▝| CLS 1 ▗ LIST <q  OUT { RESTORE  GO SUB } COPY  INVERSE !▚USR  LIST <USR  COPY  LPRINT u OUT oC DRAW <3 ▘ LIST <u COPY  COPY  COPY ▘>!▝ SAVE  LPRINT u OUT q5 w LINE Hvx} RESTORE ▝STR$ B▘DD<>Bp▘E CIRCLE Bp8 PLOT  B▝E``EBESTR$ E0`  CLS ECHR$ ▘BIN ` OR p  +),09▝USR G▘BB▘AD THEN G▖CCGG INK C▘p MOVE C[L] INK A▖ INK API0 BEEP ▘  REM @@ AND ▘ CAT p LET   RETURN p( ▘I@ <>`ZPbA"▝] STEP Gu▝pa▘ STEP D▝FpATTR 1[J] .@ CAT [L][P]  ERASE @ CAT 0N1VAL p[L] ▟▝  CLS !VAL ▘! LIST  {  COPY ` q DRAW ▘,▘ COPY  OPEN #IN !'SIN NOT QSCREEN$ NOT PITAB  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQIN >, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85INKEY$2/,*'%#![H] LINE  CLOSE # OR p▘STR$ PCHR$ USR 0*@▘ PAUSE 0) J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝'SIN 'SIN P▗'SIN COS ppp(p2<▝SIN p.pJpT▝SIN  DEF FN IN  NEXT  RESTORE "FATTR  RESTORE ~2 INK VAL$ 2ATTR TAB ##~#" DIM SCREEN$  " DRAW SCREEN$ ^#V#"3ATTR O"(ATTR  LLIST "AATTR !CSCREEN$ DSCREEN$ p GO SUB VAL CODE IN 2@SCREEN$ 2ASCREEN$ 2BSCREEN$ 21VAL$ 2[G]VAL$ 2 OPEN #ATTR 2RAT 2 CLOSE #AT 2,VAL$ 2[B]VAL$ 2!AT 2[T]AT 2&TAB G/2PIATTR 2&AT 2FN AT >/2zVAL$ 2VAL$ ! FORMAT POINT "6TAN VAL$ "[L]VAL$ "AT "[O]AT "!TAB  STEP .ATTR  GO SUB SNOT TAB STR$  GO SUB sATTR 1*SIN  LPRINT POINT >  LLIST  FOR s#r# FOR =  PRINT 1jSIN  SCREEN$ >pPI PRINT 1 NEXT ©* SCREEN$ "FVAL$ "ATTR VAL$ "SIN ATTR "1AT "COS AT  CLS NOT *TAB !SCREEN$ SIN ~▜ GO SUB sVATTR !ATTR 8 INPUT ▚▜# AND ▖!AT SIN  RANDOMIZE 'SIN X LLIST " LLIST TAB [M] IF TAB 1 LOAD ©<>{▜_~0 THEN #~STR$ IN  NEW  THEN Z  PRINT 2ISCREEN$  LET ~ NEW #ng INVERSE b FOR !TAN COS  INVERSE }▚▜O! FN ~#fo THEN :8 GO SUB R<><>> COPY <(wCOS ![D]SIN COS y<PEEK # ~2AT ATTR #"▟ATTR  FOR x_@[D]TAB ATTR # INVERSE .+ STEP [ATTR "CSCREEN$  FOR AT  IF AT (& RESTORE !{PI PAUSE  NEXT ATTR  GO SUB DOPI GO SUB B0 LLIST >2 MOVE ATTR CODE 2 LLIST ATTR go" CIRCLE ATTR " REM ATTR  LLIST CODE ▜ INVERSE |2JSCREEN$ OQ▜~ PLOT  2KSCREEN$ ©▝zp©@©▘+AT p©▘,AT ©▝)p©▝E@©▝[D]p©▘rAT p©▖2PAT CODE 2`AT ©▘WAT ©▘iAT  ©WAT  INVERSE |!JSCREEN$ ACS wp▘▝L ▘▝{qP LET p▘!▝VAL$ ▘▝.q▝GA▘TAB a▝ POKE `▘▝ ERASE ▝▝ STOP ▝ INK AT  LLIST ▝ FOR 0▘▝ INK @▘p[O]MSCREEN$ !PSCREEN$ IN  COPY   VERIFY !MSCREEN$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2PSCREEN$ <>CODE G>=R[N](>=("=CHR$ INKEY$ATTR !@SCREEN$ 5 PAUSE INKEY$ATTR 6TAN SIN PI TO .ATTR  STEP lCODE  INPUT ▗2VAL$ NOT ▝AP▛COS  STEP [A]VAL  GO SUB S LLIST TAB 2i ▝B7▘VAL$ 7▟MCOS  STEP [H]LEN  GO SUB S IF TAB CODE PI062▘AT ATTR ]▘>+▟!COS "CODE ATTR CODE 02%VAL$ 1▘!AT 6▘ OPEN #ATTR k▘AT ▝▗2<VAL$ [E].'2L'▘ CLS ATTR nPc▘AT ▘ LPRINT ATTR e▘go LOAD  GO SUB "+AT ▟▝/IN ▘>)e▝.N2e▝[T]e▘RAT  FORMAT ▝[O]0e0▝[R] e▝1u▗2LEN VAL$ `▝i▟▝z[C]▝▙ e▝_[N]▘PSCREEN$ {▗NSCREEN$ >©CODE 2 DEF FN ▙2SVAL$ :dVAL$ =(y2VAL$ CODE +▘>7FN ▘<> CLOSE #: MOVE ATTR O▚( PAPER CODE 2dG>7<>STR$ ▜! LPRINT FN [S]▝6+▗NOT lCODE  1[E]&o"cVAL$ PIx PAUSE 9CODE /2^VAL$ -▝@▝M ▖og"X OR A▘ VERIFY [A]STR$ TAB  AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘POINT O$"VAL$ ▞▗! SCREEN$ ▜@▝F<=▝<<> SGN  PI<>CODE 00SQR ▚( GO SUB  RETURN ( LIST ▘>D2 OPEN #VAL$ 2 CLOSE #VAL$ 0 INK [T]▝ INK X▟2PEEK VAL$ :<>VAL$ = LINE VAL y2©$▝z$▝LEN $VAL$ :PAT $▝©$ INK CODE 2<>VAL$  q$q$▘[A]VAL  11$▝>=$]VAL /2NOT q$ ▝q A$▝LN A$▝[G]A$ RUN ▝ OUT q$q$q$q$▖ [R]q$!$▘▗VAL$ ▞q$ AND  FOR ▝[R]<>&*!$h$▝[B]@SQR q$▝eq$0 INK 1$C▘: ERASE  ERASE AT (8▙NOT MLEN 2 CLS AT : STOP AT = LINE MLEN yM$J[D]▗"TAB AT <>2.▘ LLIST AT .▙gLEN /2TAB *o&0▝{ B. FOR AT .▘ CLOSE #AT + CLS ▝ SAVE 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"VAL AT NOT [H]LEN r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘&TAB r4▝CODE V;2▘[H]LEN s▝!▝}PEEK © RETURN ▝e} OPEN # LPRINT ▝▛~ ERASE ▘ FLASH  ▜ COPY ▟ OVER &©`POINT  POINT POINT !POINT POINT  ▗POINT POINT  USR POINT 0▗'VAL$  ATTR VAL$ RNDATTR ATTR  pppppppppppppp! LPRINT ' LPRINT S▘ATTR 0▗ATTR ATTR  ▛ATTR ATTR SIN  SIN SIN !SIN SIN 'ASN PWpHpHpH LPRINT / H▚VAL$  VAL$ VAL$ !USR VAL$ 0▘'SIN Pp▜p▜p▜[E] LPRINT  LIST  LPRINT  FORMAT USR USR ▝USR ▘USR   COPY  BRIGHT RNDCODE 2 NEW TAN !@@ COPY w GO SUB VAL ![A]"▘TAN  STEP  SAVE PI STEP NTAN  STEP  BORDER TAN : NEW TAN PI( IF  RESTORE [C]POINT TAN  NEXT >? GO SUB G GO SUB V CLS <> NEXT ! RETURN  RETURN  OVER ▘> CLEAR 9▟>NOT 2 CLEAR  CLEAR !pTAN " RETURN  CLEAR > RETURN "▝^" PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  PRINT  INK ▝ INK [I]|ASN  ! NEW TAN 6 COPY +i RETURN PI INK  LLIST  MOVE STR$  INK  LET  CLEAR  LLIST  INVERSE  LLIST [A] LET  CLS <> !X MERGE  RESTORE  OR  OR  RESTORE  OUT [R]~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE  LLIST  STR$   INVERSE ! NCHR$ v▖STR$  LLIST  MOVE   TO <> COPY ;▖X COPY 6@ FORMAT [Q]@ GO SUB VAL ▞[Q][U]N NEW  INVERSE gUSR ▘oy▟SGN 0< PRINT y NEW  SAVE O LET LEN Oy0▗ABS 0<TAB ▗ PRINT O NEW <=[C]q#| RETURN [ BIN  OR v CLEAR STR$ ASN <> LET ▜2LEN <>▝ OR . COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ~CODE * POKE /"INT  STEP TAN  NEXT  GO SUB V<=▝ CLEAR )1 GO TO ^e▘6▙[E]IN H STEP 6USR !3IN [Q]P▗USR [Q]  LPRINT F STOP F#6 COPY  GO SUB VAL $I▘Ip$[P]G"6 RESTORE } AND o6@ LLIST $| NEW  } AND  o8| VERIFY g DATA D[O][C]6 GO SUB VAL 6, CLS   LIST ▝ BEEP   6 GO SUB VAL P( 6 ▝4▝[M]> RUN  FLASH  RETURN  THEN G(  THEN W !▖"INT  THEN O( THEN _  DATA 0▞! OPEN #▖"INT !+CHR$ %[J] GO SUB VAL !FN a STEP <=INT  STEP  LIST INT  MERGE  STEP FN aCODE 2▙ MOVE  CLEAR ©!USR >w GO SUB y>[J]~ RETURN (!)SQR [ CIRCLE  GO SUB VAL *INT "[C]/NOT [N# STEP  BORDER >▞[Q] MOVE ![I] IF USR @@▝ ▝ ▛BIN @$▝ $[C] VERIFY 0?▚[F] GO SUB F▝ GO SUB y!ABS |▘20|[J] GO TO /NOT 5[ INVERSE !S* INVERSE  RESTORE NOT /=><> INVERSE ! PRINT > ▗ INVERSE ! RESTORE ?   NEXT y OR  E▜STR$  NEXT zATN <0>,06▝ 6CODE  STEP  MERGE INT  NEXT  OR  INVERSE !/ MERGE  STEP CHR$ INT  MOVE STR$ $ THEN c( THEN <> NEW <><> STEP CHR$ [[Q] MERGE !NOT ▟/ NEXT %▚2STR$ _2 TO _▖!$ STEP ▟/ STEP ▗SIN  STEP -▜!E STEP [A] BIN :SGN _[K]▝0H!@/▘[I][Q]G@2▗Sp22▘( DEF FN @M▗ ▝COS @M▗|!:LN ;LN pLN ▖IN [" DEF FN ACS  STEP lACS INKEY$▚NOT HATN CODE  OPEN # RETURN w VERIFY  GO SUB VAL <>q==▘ ERASE [!=▝ ERASE TA= COPY  COPY  THEN a CAT ▗ STEP  FLASH [ MERGE  STOP ▛}_ NEW SQR _|W LLIST A CIRCLE  AND Q CIRCLE  MOVE  CIRCLE  ERASE [ STEP  DIM [Q CIRCLE ▘ VERIFY [q CIRCLE Q CIRCLE "]▘<> INK  LIST [I]W GO SUB Q INK ~# INK  GO SUB Y INK xLEN >= INK NOT  STEP  BEEP  CLEAR ▘es▘NOT LEN 1 CLEAR ▘LEN / CLEAR ▝/q RETURN ▚$ STEP  LINE / STEP  REM R▘![?1▜@> STEP >rW G![F] GO SUB )▘SGN `▘5[pCC▝C/▘pC2R▘ LINE p*m▝mG▘pmBJ▝[D]TAN NOT / COPY  COPY  THEN 2BIN @<=!Br<=©▘VAL$ /B<=▝5r<=r<=t▘STR$ /$▘STR$ /tTr2r2▝©1T<STR$ / STEP  CIRCLE /T▘ OR /tD▙  CRACKED, DIS ▛CHEATED AND OR ▚ENNOBL[F]BY VIRTUAL BANANES TM>= 2.MARCH.1996| CLEAR  1<>.▗NORMAGAME START8 LINE .▖INFINITEy▜ERGY  3 TO .`!LIV▗▘ 4 DEF FN .`CALL▝]0 LINE 'EM▝!}▛▖~PI>= MERGE  RESTORE o&USR )[C]SIN ~# IF  LLIST  MOVE # READ ~*USR ▘>=▝ RETURN  VERIFY  KUSR ▝`▝USR >=▗|K*▝00▝|^[H]▘``8p LPRINT c DEF FN  VERIFY  NEW g▝ SAVE USR 8o▗ RETURN  RETURN  LPRINT @▝©▗ NEW  NEW  RETURN `STR$  LPRINT ▝ RETURN  0USR [T]▝ NEW @(▞] ` [B]▘ RETURN `BIN  RETURN >= RETURN >8>=x▘ NEW  NEW 9 DRAW  DRAW  NEW  DRAW   CLS j ▝ NEW @@[I] LN ▝ LPRINT [K]0[Q]▘ NEW  NEW <>CHR$ 8$[I] LN ▗ GO TO  SAVE  GO TO  NEW  VAL  H▘ AND  INPUT  RETURN  VERIFY  AND USR  NEW  PLOT   RETURN  INPUT  NEW  [H]  SAVE p0P▗ REM  DATA  IF @▖▝USR <▝ SAVE !X▝▚Pp▘ INPUT | AND  AND  VERIFY  RETURN  INPUT ! ▝| LN ▘ NEW  NEW 0▝ RETURN XqATN  INVERSE ▝ COPY c▝x CLOSE #▛  ? COPY @8~? COPY  LPRINT *O RETURN ▝b[A] CAT  SAVE E LINE  SAVE  LIST  DRAW  COPY STR$ _0(▝ LIST D)▘ COPY p]▛ COPY <<0 LIST  COPY SGN * 5▝©P [A]© GO TO  DRAW ' COPY  LOAD ? SAVE dO+▘©2u[B] COPY  FORMAT g BRIGHT xx[N][J]NOT  OVER  LINE ▜ COPY  COPY STR$  LPRINT  DRAW ©NOT  COPY ▜▜KLEN ?<=@w DIM  COPY  RETURN r RESTORE  THEN ▛00© COPY | CIRCLE  LIST ; COPY  SAVE <=▝ FOR  IN [I]a[A] LOAD  RETURN  CLEAR  LIST < RETURN [Q]ATTR   LPRINT ▝(ATN @ COPY  LPRINT  READ [P][P] LPRINT  SAVE C RUN 3lq[A]> GO TO ^=STR$  COPY  DRAW  OUT  COPY ▗O RETURN ▘~[L]/ TO  MOVE USR  SAVE [J] STEP  OR  LLIST  LOAD p OUT !▜▗ PLOT  ? READ  NEXT BIN  COPY ▖ NEXT ▝BIN k[J] COPY O FOR @▘EIN ` FORMAT  TO 0? READ  DRAW ▘ PRINT A? COPY 1[B]?USR ©▜NOT  TO # FORMAT  COPY  LLIST  LPRINT  PRINT @# RETURN q▗  SAVE _?[B]STR$  SAVE  COPY  NEXT  LIST <625▝IN R  COPY IN  LIST p SAVE  DEF FN O AND qCHR$ 7 DRAW |"V▝ LPRINT 2?[B]> COPY  LOAD  OPEN #[P][D][A] NEW  OR  LLIST  CAT  OPEN #o CLS  RUN pPI"g[C]▚}c LOAD  REM LEN "0 LET U CLEAR STR$ |k▞ LIST > TO o MERGE ▝ STOP ▝@ CLEAR  COPY [R] CLOSE #© SAVE ATN NOT  INPUT SQR ▘ REM D INVERSE © COPY D BORDER [A] RETURN ?[D] RANDOMIZE a LPRINT  LOAD PEEK  COPY ▙ CONTINUE !©r[A] NEXT  COPY  LIST 0~▞ LIST  TO ! COPY  LPRINT s READ A[O]1FN [A]? COPY STR$  RUN  POKE q NEW cCHR$ Ax▜ NEXT _ RETURN ▝?3( RANDOMIZE  IF  INPUT COS [A] GO SUB  DATA xC RANDOMIZE  CAT # REM q OUT [E] RETURN < PAUSE  READ  OUT P"IBIPEEK !▖{▖pB[S] RETURN ▝ STOP  COPY  LOAD  COPY A CAT  CAT ? SAVE /[K]66[P]<=  MOVE E INVERSE ▘ COPY Rh[A] COPY <=USR LN  LIST  DEF FN © COPY  DRAW  BORDER  CLOSE #"©▝q RUN  COPY  LPRINT  COPY  SAVE ▙©/PEEK  COPY  LET  LPRINT UO RETURN ▝ OUT A|▙▜[P] RANDOMIZE  READ PI! READ qIN  LPRINT  COPY sIN 4[B] INPUT (8>#ABS  PRINT 4<`w©LEN  CAT  COPY  CAT 3A▚[D] DRAW  COPY  READ  READ  IF f@C▞W<▖ RUN  AND [P]p COPY q PAPER ▚ ? LET  READ  COPY r COPY q2▙{▖`X? LPRINT @[S]C^q▟8© LIST  LIST  REM SCREEN$ SCREEN$ q7Q? COPY 8▝ COPY [I]NOT  COPY  LET  LLIST  COPY USR PEEK D@▝g+$ CONTINUE ? DEF FN s READ 70 COPY 8 COPY { DRAW >=[E] COPY  SAVE x LPRINT ` BORDER  RESTORE u CLOSE #0a=[B] CAT  COPY [Q]>=[F] COPY  NEXT  RUN gASN @1j>= NEW ATTR  RETURN [B] COPY 3▝ LIST R[J] RETURN ▝* LPRINT ▜   COPY  DRAW  CLS  COPY sZa▞[I] NEXT  LLIST KG COPY  LPRINT 9STR$ 5 VERIFY  LPRINT QSCREEN$ [A] COPY  COPY ~8 LLIST  COPY <= COPY  COPY Ur#(NOT  COPY  COPY ` LIST C DRAW  BORDER  COPY 3 COPY 35J[A] DRAW [I]?o READ [E][J]SGN | COPY ?q OUT #g[A] COPY  LLIST  LIST y[P]STR$  OVER <=x( BORDER r &[D] RUN  LIST NOT G IF 3r LIST  BORDER U SAVE { OR [B] GO TO  DRAW  LINE ]▝+s VERIFY ▚   LPRINT ▝~R PLOT  ▝©Rh▛ FLASH  LET  SAVE  LET  CAT L COPY  LPRINT : RUN ▝[Q]5[H]q=▟USR  LIST  SAVE  COPY  DRAW ? CLS  COPY  FOR 5 LPRINT &[B] SAVE  COPY  SAVE STR$ ▜▖ SAVE `?7 CLEAR  COPY  LPRINT M[T]G)▙ RETURN 0 DATA x}<=[D]▚SGN © LPRINT  DRAW Q T LPRINT ▞ COPY NOT  SAVE AVAL <▚8*▝Y[T] COPY q OVER  GO SUB ▜' RUN  BEEP  AND u@pATTR  PLOT  ▜[I] DRAW r LINE ▞▜)Fk FORMAT ) INK uBIN  PAUSE ▖n&IN d![I] BORDER  DATA k[N] CIRCLE  DIM VDVe[N]e DRAW © SAVE lIN  LET [H]E FLASH ▛" INVERSE ▞ LLIST ▜0b▛ SAVE  LIST > ▝▙~© IF [I])"D© DRAW SGN ,> RESTORE p 7 IF  PRINT  COPY  COPY IN  RETURN  OPEN #▜'IN  RETURN H[E]m INK m8L INK 4`*INKEY$CHR$ 8= INVERSE ~ COPY V RUN {%R/TAB $,>[J] GO SUB ▗[D]:""*; COPY n PLOT   COPY U[S]+[E] REM ATN  RETURN  IF mU LLIST k1[R] MOVE ▗USR  zUSR "FN ▘` LOAD ▝*`[D]aHFN K[I]"@8>SCREEN$ FN "▚SCREEN$ [G][L]UP[T]v?cF POKE * SAVE 0 LIST 6:▘ NEW  TO #NOT  COPY  RANDOMIZE j CAT [J] AND  DATA K LIST >=x GO TO q LINE hv[K][K] RESTORE  RETURN 0 BRIGHT  COPY  LPRINT [K] INVERSE [J]I[J]STR$  DRAW ▜© LPRINT  REM  COPY .x©▚0 LPRINT _ CAT  MERGE TI/w SAVE f'u8▖; PRINT j IF ATTR  COPY  GO TO  FLASH ▝ RETURN IN Q*TAB z LIST [M] RANDOMIZE $`e:EXP  CLEAR  RUN  RUN [L]IN ` RUN [I]POINT Q* ERASE H1POINT  GO TO [A] INPUT t▖▖[G]v STOP 3PEEK  OUT SCREEN$  MERGE WUZCODE  INVERSE zLN  NEW ▖ BRIGHT  LPRINT  RUN @▞u▖▖▝ COPY  CLEAR  READ Q▛`[M]@Q$C CAT <> COPY O STOP ▗ MERGE V▖[F]LN w OR Ud[N]SCREEN$ SCREEN$ KY©|CHR$ n CONTINUE IAE▝ STOP  READ ! SAVE  RANDOMIZE Y#[J][F]BIN  REM 4 INK N/ NEXT [P]<=7USR  PLOT  2 LIST ;SIN ▖IN :USR  RETURN ▜ LOAD  READ ▟UW OVER | LOAD  AND USR  LOAD  CAT  CAT -▛▖ RUN .c RANDOMIZE B2}▛7 REM  MERGE  PRINT U? GO TO  FOR ▙ COPY  RETURN [A]▟ CLEAR @& DEF FN a LLIST |[J][S]CHR$  PAUSE SIN [D] CLEAR m DIM 7[VAL ATTR ▟CHR$ AT TAB Rs BORDER kT[P] COPY  LET x SAVE {[P]PjSCREEN$ SCREEN$ RNDW PLOT   PRINT  LINE ~UDxWINT  POKE z[S]""  COPY  LET t LET ATN `/# LLIST !▛ IF SCREEN$   LIST #USR >{ STOP "[O]UUT[F] REM  RETURN  LIST ▗ LINE k▘USR [K] LLIST  DRAW  LET ATN ? RETURN /PEEK [H]? TO  RUN :TAB  LINE p▝[K]ABS <= COPY ▛LSTR$ POINT S~xUSR ▙STR$  COPY C COPY  DRAW  RETURN SCREEN$ ATTR  INPUT / BEEP  BORDER  LLIST  BORDER  LOAD  BORDER  POKE  A#g STOP  LET c6 STOP pIN  PRINT  FOR  LIST  O BRIGHT  RUN  TO  BORDER [O] DRAW  COPY IN  INK [A]oATTR  COPY  POKE NOT d LIST  A[L]<= DRAW  RETURN uABS [ INVERSE B ERASE ^ INK VAL & LIST [K]TAN [A] ▝[Q] COPY  DRAW v-oSGN JSCREEN$ ATTR  REM  DRAW d▘[B]G▖ FORMAT h"▛@▖▖>][E] FLASH  LIST ▟[Q]▖E!H@ DATA b▟ COPY U# LPRINT UP RETURN USR SCREEN$ [D]W[F] RANDOMIZE  RUN ©. DIM u5JU[F]Y[F]q COPY 1▗ LLIST  BORDER  COPY ▜X"[H]~▖[P][N]WWmPAuW▜SGN © COPY  POKE X PAPER ▞(z{ LPRINT [P]p©G [M]©U POKE [N]CODE  READ  READ  CLS  RUN  NEXT  RETURN ▝USR P@" INVERSE  NEW  OPEN ##12`[L] IF  RUN  DATA ▞[I] RUN L<= INPUT 6 RUN  CIRCLE [Q]B NEXT 9_DBD LPRINT [M]:[S]"*STR$ [H]%N COPY  MERGE LEN  VERIFY TAB ATTR [D]RND SAVE  GO SUB HefCODE 4  LPRINT ▞STR$  PRINT  RETURN 8 IF  GO TO Uu>=d AATTR p CIRCLE 0zSCREEN$ ▗N RUN 9,B▛ASCREEN$ G AND l▞W REM [Q] <A[K]TATTR  REM  RUN  DRAW ©; INK ATTR rUSR k*[K] CIRCLE [K] RANDOMIZE  COPY USR  DRAW ?[I]n[Q][I] DATA  NEXT ▝ LOAD  REM SCREEN$ INT [S]FN SCREEN$ SCREEN$ IN BIN BIN   COPY  DATA ▝H[I]Lys` OUT [J]pp' COPY  COPY SCREEN$  PRINT  CAT W NEXT [T]? DRAW  COPY  MOVE ▟ -AT SIN 'LEN [M] CLEAR  COPY  LLIST @UACS 8 BORDER  INPUT PEEK  RUN X[A]▙[I]P?DFD LPRINT [Q]5H▖[E]A[I][T]E RETURN IN 1[I] CLEAR  RUN u MERGE W[Q]BPEEK  LIST $ ▞ REM  COPY "ACS VAL EXP ▛SCREEN$ j>=i/ SAVE #!uT▖Q BORDER  CLS F9▘▟S[C]|VAL 4USR SCREEN$ ASN  VERIFY ▗ LPRINT p'-w COPY [G]U INVERSE  COPY  LLIST SQR  LOAD [B] DIM Ts@V-I[H]i READ  COPY  LPRINT VAL$ ▝o CAT ▚ABS  RUN NOT  OR  COPY  CLEAR  LPRINT D0#▜ CAT y▖SQR © PLOT  0{ RANDOMIZE ▖ LPRINT ▛= COPY  MERGE  CLEAR  LOAD CODE  NEXT [J] STOP ~ COPY uVAL$  SAVE @Bv[I] STOP nEXP @` RETURN  COPY  ERASE SCREEN$ ATTR 60 BEEP 8 BORDER W RUN "K4INT @pylf▗ LPRINT [M],CHR$ ATTR [R] BORDER  OVER  CLEAR VAL ▖IN  CLS VAL$  DIM ATTR ▞AZ[L]<'pd 5 LPRINT ▜ BEEP  COPY  CLOSE #PEEK LN [E]Pu>=h[Q]y PAPER  RANDOMIZE 7[J]▘@:SCREEN$ ▘ LPRINT ▚X/ABS 2[C]RSCREEN$ INKEY$5© NEXT  DATA  85U^[S]TATTR SIN  COPY  BORDER { RESTORE [B] RANDOMIZE SCREEN$ USR j&▘ GO TO [Q] NEW ▗ OUT  RANDOMIZE <= COPY ZC▜} INVERSE <=CHR$ fN@ STOP  LIST D![R]`▝ RESTORE  SAVE /Q©t SAVE 1 DRAW  BRIGHT [I] LPRINT ▞ CLEAR  REM  CLS  LOAD _ RUN  OPEN #<=|m DRAW %8[K]`2= DEF FN  INK [L] CLEAR © MERGE }65 DEF FN 0<=[P]s>@ RETURN [UC LET  CONTINUE  NEW & LPRINT ▘5[I]G▙ VERIFY  STOP  COPY  FOR X OUT © PRINT T RUN "▚?%ABS SIN BIN  LPRINT ▝▖><© OUT -B▛k CONTINUE  REM ;m▚BIN B LPRINT =UP LPRINT ▚{ OVER IN  LPRINT ▛SCREEN$ [Q]S*~ OVER @8:# VERIFY ▗88JA▝(▚ LPRINT x▟SQR `▚8uUURZ LLIST USR qoB[B]ATTR q/ LPRINT  OVER NOT r0H▗[C](K DIM . OUT ~▖ LPRINT LEN TAB [Q] MOVE O© FLASH ` FLASH (0~(ABS ^▜POINT INT aBIN USR `[Q]▛UPJ FOR [D]'▝▞O[Q]CHR$  INPUT  RESTORE SCREEN$ ATTR POINT :SCREEN$ IN CHR$ U▜ LPRINT m IF INT IN GINT >? BORDER ▖EXP SCREEN$ CODE  REM SCREEN$ SQR ▛▝ NEXT ▝ATTR  OR ▛ FOR  IF SCREEN$ INT SCREEN$ POINT FN [F] PAUSE i AND ATTR IN  FLASH CODE SCREEN$ SCREEN$ CODE INT ATTR  DEF FN ▘CODE CODE  [K]INT SCREEN$ SCREEN$ *SCREEN$ FN < INVERSE T[A]7 ERASE  LET : LOAD SCREEN$ VAL$  REM SQR BIN  GO SUB  COPY ATTR LEN yCHR$ SCREEN$ ▗[Q]*[Q]?▘ 7@ LLIST  OVER ▝j RETURN ▜CODE n=▟UXZINT  LIST 0INT  OR (j/ CIRCLE !▖@G▟TAB  THEN D[Q]▝ NEW  ▛ RANDOMIZE NOT  GO TO ~mP<> COPY )ABS [H][J]EXP [P]``8z bpTAB ATTR a MERGE #▘<}ASN {U]NU_SCREEN$ *NOT ▖ MERGE U^▞|X? BORDER / MERGE puUtc@ASN UUW AND ▘W CLEAR & CLOSE #▛ABS ~l▜4^| FLASH _ MERGE = c▘U PAPER [D]INT FN  FORMAT }!, OUT  RETURN ]]Ut47 COPY U MOVE  LPRINT !b&PI▜USR 8&COS 0(pp CLS b▟[R]9Z▞[S]p ERASE _▚ STOP  LOAD POINT n" ▝ABS ▜ READ [N][U]USR ▘ PLOT  ©▛ PAUSE  DIM  OUT ATTR w[R]!©+▝m[E]<>INT p8 INPUT ; IF uSCREEN$ [T]SCREEN$ POINT /SQR  REM LN ▝ASTR$  FOR jTAB SCREEN$ INT 0>SCREEN$ IN  MERGE ▛_ DRAW `jSCREEN$ ABS [A]▙0#INKEY$▞VAL$ j CAT  IF SCREEN$  REM  SAVE  NEXT  OUT  COPY CODE  IF  AND ▗ REM ▞▜ha LLIST  OVER  IF R▘ COPY  RETURN  [F] MERGE TH AND CHR$ CODE  POKE VAL$ INT SCREEN$  CONTINUE ▘ RETURN ATTR POINT :B> CLEAR ▘A/ CIRCLE ▜pqR▜ATN  VERIFY  GO SUB l READ ▞ArLN  LOAD  INK  TO " LIST  CONTINUE  MERGE W POKE SQR {$Y▜[S]▖x INVERSE <[A]p  PLOT  ▜[Q] PRINT } CLS  ERASE  CIRCLE id INVERSE  COPY  IF $,INT SIN =UOSTR$ ▝,:B SAVE  CLOSE # DEF FN  BRIGHT ~©UW FLASH ▖IN  COPY 5]y!E> BORDER ▖WU[N]uUwG_U_f&u LIST ▗ VERIFY &NOT  RUN 7] PRINT } RANDOMIZE  VERIFY [E]FN hT7 MERGE SCREEN$ UsU MOVE  LIST g CLEAR W PRINT ]B? DRAW ▝",UT CLS REXP  RUN b▖r, LPRINT  >= RUN } DATA ▜ INPUT  INK  LIST " LPRINT ▛ MOVE OSCREEN$ SCREEN$  SAVE  INK  RETURN SIN  OUT 1i▗[M] INVERSE )▗ ▝ PRINT [Q] LIST  RUN INT SCREEN$ [P]BIN |$]▘; RANDOMIZE 5 ▛Ubt RESTORE UxTAN  REM  INPUT POINT ▝(?<=▞ MOVE  RETURN ATTR SCREEN$ ATTR ATTR [T]STR$ ~ OUT UU© COPY 'ATTR SCREEN$ INT  NEXT [S]▝!?G▘ATTR +LN  IF  INPUT  NEXT ▝VAL$ "▚INT ATTR ATTR G RETURN ▗ DIM  RANDOMIZE ▚ RETURN  CODE  RETURN PEEK ▘ATTR PEEK ^▘FN [A]A( REM  GO SUB  FOR  BEEP VAL$ ACS SCREEN$  REM  IF USR ATTR ▝ INPUT rINT ▝D[O]▞SCREEN$ / MERGE  MERGE  LPRINT  BEEP  STOP ▝h8NOT PI[P] RETURN ▘!!!▚am0$ LPRINT  CONTINUE  MERGE UyINT TAB RvNOT ▝ BORDER 2F INK [A]USR ` }USR  BEEP W|NEXP V LIST $[U]m▗4 CLS  READ  PAPER [B]Uz▙LN  INK [P] MERGE  INK  CLEAR U0 LPRINT  CAT  MERGE _ PAPER ▘b[Q] CLEAR -▞ STEP U MERGE uSD"AT  RETURN ▘UACS [I]u}" LPRINT [D]^~*©USR  CLOSE #B}UW PRINT  COPY ]© FOR  BEEP ?▝ BEEP  OR ▘P PAPER [C]▘VAL  PRINT  BRIGHT  CLEAR IN V RESTORE U MERGE 5WUU MERGE _$:b▘ [I]UUj RANDOMIZE IN ! OUT 2   FLASH OLEN  CLEAR  RETURN ▘1&"▚ CLEAR NOT mz$ LPRINT  ERASE VAL$  REM SCREEN$  IF  OVER  INVERSE  PAUSE  RETURN T` LPRINT ! RESTORE ▛[T]yFDUSR ` POKE SCREEN$ X▜4 VERIFY INT INT 6AT : CLEAR h▗C COPY  CLEAR %z[A] CLEAR jAT zSCREEN$ ASN p OPEN # LPRINT  REM RND RETURN SCREEN$ ? BORDER ▝ NEW [G]VAL$ [N] LIST  OPEN #▝IN #&▖SCREEN$  IF SCREEN$ [T]▗!▝ SAVE 1>ATTR AT LN INT CODE  CLEAR rLN [F]PI FOR LN  COPY 50 CLEAR SjINT  IF CODE © COPY INT  RETURN  TO SQR $ MERGE ▘FN [C]0>EXP _ SAVE ATTR jATTR  REM  REM VAL$ SCREEN$ SCREEN$  RETURN  COPY !t[I]SCREEN$ ▘▝ READ RNDABS 20[Q]^b[P]IN  RETURN ▘;VAL$ RND▚USR 5NOT - STEP & LPRINT  BEEP  POKE ATN E;©x'▗Sz POKE  LPRINT ▖ IF ▘ GO TO  RUN  OR [F]p2USR ▖ RUN [K] MERGE U© VERIFY [Q]USR SCREEN$  COPY  NEW  COPY  NEXT SQR  PRINT [E]? BORDER ▝s PLOT  ] DEF FN  LPRINT C▛ RUN  PRINT UmUQHZ▘d% MERGE U MERGE ]]V▝_▝ OUT % LPRINT [F]P RETURN c CLS [A]IN ▙w CLEAR  MERGE WABS /+[ COPY  PRINT [A] CAT "eD▝P[S][Q] LIST CODE  CONTINUE O&3▝©"9v"p▘@ CLOSE #(STR$ . 0 ▝,USR  <>(`CBIN   M▝PB▝6p! OR  ▝0! ▝6PA>= p▘p  LINE  p[T]P[N] TO   TO ([L] AND pPIpINT p P p▚p p@p REM p RANDOMIZE BIN 0qp AND 0,0148 1 TO 0<>  MOVE 0<>  MOVE 0TAB ,p[K] STEP 0<>  ERASE 0▝ =▘!!P PAPER pIN p OR P p OUT p RESTORE ? !#P qAp <> p DRAW "O0<> 008q CLS  A  <>J * *s NEXT  GO SUB sb! AND a^d MERGE  GO SUB VAL ![H]s[P]n<> GO SUB LN !2{FN a~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[^ LLIST ; LET w IF 1 NEXT NOT R[E] STEP VAL$ aNOT Hd!e!@ STEP Db!fA0ga0h▝0i[R]0$jSTR$ 0-k LLIST 06▗lH ?m!0nA0oa0p▝0$q[R]0-rSTR$ 06s LLIST 0?▗tP ▜▞u!P MERGE  GO SUB [Q] GO SUB [Q]Pppp$p.8▗## MOVE pApIpSp]pgpqpAp▚p[A]p[K]p[U]pVAL$ p▘pNOT p THEN p MERGE p OUT p DIM p NEXT pNOT qqqq&q0qqEqMqWqaqkquqEqq[E]q[O]qFN qSIN q▚q AND q FORMAT q PAPER q DATA q INPUT q SAVE [E]<>!!w!X OR # pppp(p2p< FSTR$ CODE # [U]<>VAL  ▝[P]@▘[E]<>d0ppp▝<> CLOSE #▗© RETURN © RETURN Pp▘ FLASH  COPY   CLEAR  COPY  CLEAR Pp@ RETURN  COPY  RETURN Pp` PRINT  COPY  PRINT PpSCREEN$  COPY SCREEN$ Pp▚UTUTPp PLOT  ▝ BRIGHT ▝ COPY  FLASH ▝  FLASH ▝ BRIGHT p  OPEN #▝ BRIGHT ▘. FLASH ▘,USR  FLASH ▘[Q] FLASH ▘6 LIST  FLASH ▝?p  ERASE ▝p` ERASE ▘` FLASH ▝pUSR  ERASE ▝pUSR  ERASE ▘ LPRINT  CLS ▝q@ PAUSE ▝q[Q] ERASE p  OPEN #p@ OPEN #p` NEXT p LPRINT  OPEN #q NEXT q OPEN #q  OPEN #sUSR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  GO TO xx887 MERGE  COPY ` xx(@@xx(@`xx(@xx(8 BEEP xxx OVER p DIM  OPEN #p DIM  OPEN #p DIM  OPEN #p DIM  OPEN #p DIM  OPEN #p DIM  OPEN #x DIM  PAUSE q CONTINUE  OPEN #q CONTINUE  OPEN #q CONTINUE  OPEN #q CONTINUE  OPEN #q CONTINUE  OPEN #q CONTINUE  OPEN #y CONTINUE  PAUSE r BORDER  OPEN #r BORDER  OPEN #r BORDER  OPEN #r BORDER  OPEN #r BORDER  OPEN #r BORDER  OPEN #z BORDER  PAUSE s NEW  OPEN #s NEW  OPEN #s NEW  OPEN #s NEW  OPEN #s NEW  OPEN #s NEW  OPEN #{ NEW  PAUSE t RESTORE  OPEN #t RESTORE  OPEN #t RESTORE  OPEN #t RESTORE  OPEN #t RESTORE  OPEN #t RESTORE  OPEN #| RESTORE  PAUSE  DATA ~~ CAT  COPY 4 CLS ~~~~- DATA ~~~~ DATA ~~<<Pp ▚<=▝<=▝Pp▚©©Pp▚A A Pp▚Pp MERGE @@Pp  OVER  FLASH U▘ FLASH SCREEN$ p@ OPEN #U▘ FLASH ▖▘ FLASH "p@ OPEN #▖ COPY  COPY  COPY  COPY  PLOT   OVER G FLASH CHR$  VERIFY G▘VV FLASH Gp  OPEN #G▘EE FLASH Gp  COPY G LPRINT G MERGE CHR$ a% PAPER G▘JJ PAPER Gp ERASE Gp> ERASE Gp] ERASE G[U] BEEP CHR$ ▘GG FLASH U▘GG FLASH  MERGE ▘GG SAVE CODE NOT ▙yNOT [M]yNOT INKEY$yNOT TAN yNOT BIN yNOT [R]y! STEP <>y  PLOT  <> LIST  FOR F!p▝@&IN  THEN {( POKE <>(>=CODE  PRINT BK INPUT  OPEN # RETURN  THEN x( CLS + THEN |( LIST  LET  OPEN # RETURN <>NOT  DIM y:ACS _NOT uz>=2 REM yPI(5! AND S INVERSE !lz RESTORE  INVERSE  THEN & THEN + CLS  LLIST %  GO SUB !INKEY$Wpp▗ GO SUB <>>=[G]! IF z~#"-z RETURN $($ RETURN #(( STEP  POKE &oUSR )[H] GO SUB [ IF  GO SUB Rtz~# IF ▟0.▗NOT !LEN  ▝SQR o RETURN [E] INVERSE ! AND zPI(G INVERSE # INVERSE # IF  INVERSE n INVERSE fX"]z>h AND S▞▞ OR  RESTORE  MERGE CODE w+N▞ MOVE  LLIST STR$ %  GO TO <> MOVE  IN $ IF z DRAW z{D{]{y{▚{[D]{TAB { AND { BEEP { CONTINUE { DRAW {|2|H|c|p|▝|▛|[L]|ATTR | # bezumnyj u~e▖# sluveb▞podxemnik▛trav pe}ery7▙tajnaq komnataH [A]a zlobnogo ~erepgrusta▞obitatelxpF▚|lektr`▝ B▚redban0ozdesx bywa`t▖iwideniqi▞o~ti dobrASN ▗wol{AT  [S]mesto,byt *▜glawnye%▘rop[U]a s sekretom@ CIRCLE ▝n THEN @STR$ ▝#@/STR$ .@ CONTINUE hod  DATA ▘re0[D]gangster w otstawke`:[A] wedu}ie kuda toJQCHR$ .b▘ovs▜agregat$[S]~kihit CIRCLE ▗most!w@ CONTINUE {ahn ▗olodpCODE ▘ # COPY [L]NOT }NOT Q}NOT [U]}:ATN _PI>= RETURN (' RETURN (. RETURN (7▟< RETURN  > RUN $ ▘=PI SAVE V0▘a@([N]2ACS _!eeA6 GO SUB VAL !ww@6G GO SUB VAL ▖PI>= INVERSE *BIN 8[C](G INVERSE ^ INVERSE V INVERSE  PLOT   INVERSE ~PI>=#[I]~ INVERSE n INVERSE f INVERSE  RESTORE  OR  STEP [U]}STR$  INVERSE  LLIST  NEW <> INVERSE * AND _03▗ INVERSE V@3[O]2|~2[N]~2COS ~2 TO ~G INVERSE N OR "g} NEW l&CHR$ )▘ RESTORE  PRINT [M]_[L]▖d THEN ! THEN ! THEN !@f▙#:>ACS  THEN w[S]VAL$ CODE 2~2 PAPER ~: THEN o CODE 2SQR ~2 IF ~2SGN ~2 CLS ~> INPUT 0▘>0&[F]©(> THEN 2ABS ~2 DRAW ~> COPY 2PEEK ~2 CLEAR ~#Np▝ OUT CODE '"▝ DRAW %|▗o([ OR  GO SUB ▗ INVERSE  RESTORE  COPY [H] RESTORE !~ LLIST w INVERSE +# GO TO  LLIST STR$    MERGE  LET  LLIST 0 AND wSTR$  OR  RESTORE 075 RETURN  /▘ NEXT  LLIST .▝STR$ P/ BRIGHT <> OR UK▗## PLOT  0K  FOR pEE`?#@?IN   CONTINUE <>@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]/IN  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]IN ^ 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 IN [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 Q COPY  COPY  COPY  TO [H]NOT  DRAW NOT [S]▝NOT @▝NOT A▘NOT z▝NOT 9▝l▘ INVERSE *>=sX3X[E]^ INVERSE V INVERSE  RESTORE  RESTORE  MERGE  STEP [S]▝ MOVE  LLIST  INVERSE  LLIST $,c4 BRIGHT  THEN ATN < THEN  RUN 2 BRIGHT NOT G▝>G PRINT  ▞ LET  STEP A▘J OR  RESTORE C OR 9 CAT ▗ STEP z▝o#▗▙l© RESTORE  INVERSE  LLIST  LLIST  STEP ▘ INVERSE  LLIST STR$ [A] INVERSE  LLIST  STEP 1▘l▛ ERASE <> RETURN   >▟<> RETURN !a▞ RETURN ?g RETURN ,m▛ RETURN .s▟ RETURN / CIRCLE  RETURN : FORMAT  AND O<> STEP P▘^▜ INVERSE ! INVERSE  STEP  CLOSE #▝=▚J RESTORE  INVERSE !▗R▖#C STEP  PLOT  ▝ INVERSE !V▘ ▗ PRINT n▝ RESTORE ▞ DIM ▝ MERGE  INVERSE  MOVE  ▝<>Q▘▘Q[B]# POKE <> RESTORE | NEW  THEN / THEN / THEN / AND Xg  CIRCLE ▘=w CONTINUE <> RESTORE :▚$ RUN  LLIST p(0(▗w LLIST <> MERGE [K]| NEW (| AND g MOVE <>|USR ▗ NEW  LPRINT ASN oR PLOT  @g<> RESTORE  PRINT  GO SUB _ NEW ( IF J PLOT   PLOT  @!k▘PEEK ( INPUT w"[C] LLIST <> TO  VERIFY  PLOT   VERIFY  VERIFY  TO 8ll|l(▖`xllx(STR$ l▝< INPUT STR$ ,|l<`|``<|USR  VERIFY |>STR$ `$f$fnvf$$ ▚$hphd,▝<H▞,DnVFFD(▘~f ▝<STR$ f>&d ▝|X▗<f`` ▝~CHR$  8|©▚8 VERIFY  VERIFY |H``| ▚F AND  PLOT   PAPER  PAPER vX▘X▝TSTR$  VERIFY 0<fFN f>8aEXP <f<` 0@▚▘`| P VAL ▗~[A]▘<fCHR$ 0USR ▘>HINKEY$▝ BEEP ▘F RESTORE ▝/ GO SUB USR / BRIGHT TAN 5k^ATN _PEEK lSCREEN$ USQR  INPUT  COPY  COPY [Q]T REM ASN  IF  GO SUB ~=SGN nIN WABS Wj COPY  COPY  INVERSE wSCREEN$ U6} PAPER  CLEAR v INVERSE SCREEN$ TSGN /SGN l▗:=6= COPY  COPY  GO TO INKEY$NOT  RESTORE ▗NOT L▛NOT ▞NOT ▛▜NOT  READ ▖NOT NOT  FORMAT ▖CODE 2ATN _22K▛!EXP _ THEN INKEY$:NOT O▜=2NOT _>0▛PI(CODE ><>2 COPY ▗"▝[O]▛INT ▜ STEP  STEP _ STEP  STEP  FORMAT _0[D] TO J▖ STEP FN a STEP  OPEN #_ STEP K▛ STEP  VERIFY _v:ASN _3A[F]2SQR _NOT ▜NOT m▚:SGN _ THEN GCHR$  STOP ▜ STEP ▞CODE >2 CIRCLE ▜m[U]VCHR$  CLEAR ▚ THEN FCHR$ s THEN NCHR$ [U]NOT FN ▚ MOVE :TAN _ RETURN v8 STEP FN ▜CODE 2TAN _<▚ STEP  BEEP PI ▝= STEP INT ▜CODE 2> AND 2<>1▖0 STEP AT ▜>v 2%▘ STEP  PLOT  @2?02▘>`3 STEP L▚L▖~ THEN © M▘ PRINT ▜BIN ▚> COPY <>CODE pp INK == RETURN  PAPER ▜2ASN _p)▚# SAVE CODE <>=ZPI@[ THEN _ RP;4U4 CLEAR ▘))SIN  INPUT j OUT ▖<> STEP 1▚PI LINE [H]▚<▘ RETURN n▗TAN ▜>e▘ AND k▝:[K]▝G(▝O(▚ NEW  LINE IN ▛▙▖[C] LOAD : RETURN >= RETURN  >> RETURN 6 RETURN . RETURN & RETURN  ▞ RETURN ( RETURN   RETURN   RETURN <▝ NEW ▝Y▝>Y DEF FN ▙▜K>PI LINE G RETURN (P[K]▝j▗VAL ▜>nw▘! VERIFY [L]▞ STEP ▚ :▜=. STEP  CIRCLE ▜pSCREEN$  ERASE ▝1▝ DEF FN STR$ ▝CODE L▝<>  AND ▚   THEN O &▖▝[G]ACS ( RETURN  STEP  POKE ▚@E▟<>>NOT  POKE ▚ STEP v▜ INPUT >▜ DATA MYLN ▝yR2INT 9SQR ▙y NEW <>>>>FN ▝ FORMAT <>>/2SGN ▜PI>=▝BIN @▟ TO ▜PI LINE |yNOT ©y STEP ▖y FORMAT ▝ CIRCLE l<2 READ ▜ RETURN  LINE FN ▚ RETURN  PAPER  POKE ▚ RETURN ( RETURN 2 LINE ▖<>!SGN _6>#*CODE ▟!ABS _5 RESTORE  STEP STR$  LLIST ~PI(RCHR$ _ STEP PEEK CODE 2 LIST ▖<>0▛2SGN _ STEP &▖NOT  OVER ▚:PEEK SCREEN$ ▚ACS _*IN _"ABS  IF ▖NOT FN ▜#▝USR y[S] THEN nCHR$  STOP ▖ THEN f n<>▗ THEN n y▝b▝pY LLIST  RESTORE ▝f▝O▝](▝F%▝T1▝= ▝J;▘3#8▝AD▝*▝8M▘! LLIST "{O▝+[▝ ▝"d▝)▝m<> LLIST !CHR$ _5 STEP |yTAN ▘:CHR$ 5▗ LLIST  STOP ▘ THEN  AND   STOP  LINE ▝ CONTINUE  CAT ▘>▝<>▗6:STR$ `▝ CLEAR ▖ZNOT BIN ▞> LOAD  FLASH  RETURN  VERIFY  THEN  AND  THEN g▝ DEF FN  TO  THEN  VERIFY $▘( W  THEN  NEW :)▞/2)▞[E] ▗( GO SUB "▝ =▚GUSR  THEN  OVER :K!K▞<>0>= LOAD > OUT  WQ DEF FN > CLS @@[▝ CLEAR  [▝▗[▝▗[ p[▝©P[▝INKEY$|▝INKEY$[ [▘ FLASH 'Y DEF FN  THEN _ VAL ▝W(VAL$ ▝ INK VAL$ ▗ INK ▞▘ ▟ DEF FN ▝7▘g>=SCREEN$ ▝ RUN  THEN  RUN ▞<>▚USR  LET *▜▛▜ RESTORE  AND * LINE GUSR > CLEAR  MOVE  REM ▛ GO SUB SM▛ STEP :▞INKEY$#ACS #`@▞ RESTORE  FOR  FOR  LLIST p"p+p"p"pDpDpDpfpopfpfp▖p▖p▖pSCREEN$ pCOS pSCREEN$ p TO p MERGE p TO p TO p INPUT p INPUT P INPUT ▙<>!@ REM ▛ STEP ^▛▗w#▗wpppp$p0p<pHpHT▝<>1AT ~PICHR$ J#0 [S]▝<ABS t▘ MERGE  COPY  DIM ▖~ INVERSE  RESTORE  STEP ,D INVERSE  LLIST  STEP D LET yF GO SUB KwF INK  INK  RETURN  COPY (&oAT  MERGE  FOR ! LIST  MOVE  OR 6STR$  INK  LLIST  INK CODE <> INVERSE !yF<>........ STEP [F]CODE  NEXT  GO SUB s▟!PEEK ▟[d MERGE  GO SUB VAL ![E]CODE EXP  PLOT  s"<> GO SUB LN !G CLOSE #USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT RIN !/ LINE NOT YCHR$ NOT CODE  OR  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQIN >, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY  OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝q COPY  READ IN  NEXT  RESTORE "NNOT  RESTORE ~2 LLIST  AND 2COS  OR ##~#" LET CHR$  "NOT ^#V#";NOT O"0NOT  LLIST "INOT !KCHR$ LCHR$ p GO SUB VAL CODE IN 2HCHR$ 2ICHR$ 2JCHR$ 29 AND 2[O] AND 2 FLASH NOT 2ZBIN 2 BRIGHT BIN 24 AND 2[J] AND 2)BIN 2ATTR BIN 2. OR G/2CODE NOT 2.BIN 2VAL BIN >/2▘ AND 2 AND ! CIRCLE STR$ ">AT  AND "[T] AND "$BIN "INKEY$BIN ") OR  STEP 6NOT  GO SUB S THEN  OR STR$  GO SUB sNOT 1 CONTINUE STR$ >  LLIST  FOR s#r# FOR =  PRINT ▗(CHR$ >p[R]*(CHR$ "N AND "COS  AND "INT NOT "9BIN "SQR BIN  CLS NOT 2 OR !~▜ GO SUB s^NOT  8 INPUT ▚▜# AND ▘ RANDOMIZE FX LLIST " DIM  OR ▘ AND m[H]<>{▜_~0 THEN #~STR$ [I] NEW  THEN Z  PRINT 2QCHR$  LET ~ NEW #ng INVERSE b FOR >=[N] INVERSE }▚▜O!(USR ~#fo THEN :8 GO SUB R<><>><(wAT ▘%[B]y<PEEK # ~2TAN NOT #"[F]NOT  FOR x_@ASN NOT # INVERSE .z STEP cNOT )"KCHR$  FOR 1▜ IF BIN (& RESTORE CHR$ [S]{PI PAUSE  CLS NOT  GO SUB DOPI GO SUB B0 LLIST >2 INK NOT CODE 2 DIM NOT go" LPRINT NOT " PAUSE NOT  LLIST CODE ▚ INVERSE |2RCHR$   FLASH ▚~ PLOT  2SCHR$ ©▝zp©@©▘3BIN p©▘4BIN p©©▝M@©▝[L]p©▘zBIN p©▖2XBIN CODE 2hBIN ©▘_BIN ©▘qBIN  ©_BIN  INVERSE |!RCHR$ ACS wp▘▝T ▘▝{qP LET p▘!▝ACS p▘!▝OA▘ OR a▝ DRAW `▘▝ PAPER ▝▝ REM ▝ LLIST BIN  LLIST ▝ NEXT 0▘▝ LLIST @▘p[O]UCHR$ !XCHR$ IN  COPY   VERIFY !UCHR$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2XCHR$ <>CODE G>=R[B](>=("=CHR$ VAL$ NOT !HCHR$ 5 PAUSE VAL$ NOT 6▖PI TO 6NOT  STEP t<= INPUT ▗2 AND NOT ▝Ip▞ STEP [I]>= GO SUB S DIM  OR 2q ▝J7▘ AND 0[P]<> GO SUB S AND CODE 062▘TAN NOT ]" RUN "ATN NOT !▗2- AND 1▘)BIN 6▝ FLASH  ▘$BIN 8▝▗2D AND '▝INT '2T'▘BIN 9▝ PAUSE D▝ ▝ CONTINUE Dgo LOAD  GO SUB "3BIN ▟▝/IN "e▝6N2[C]e▝ATTR e▝Z C▝INKEY$0e0▝POINT  e▝9u2EXP  r▝q▟▝▘[C]▝[G] p▝g O▝CHR$ TAN ▗VCHR$ >©CODE 2 VERIFY ▙2[ AND :l AND =(y2" AND CODE +▘>7FN ▘<> CLOSE #: INK NOT O▚( PAPER CODE 2lG>7<>STR$ ▜! CONTINUE USR [S]▝>+▗NOT t<= 1[E]&o"k AND PIx PAUSE A<=/2f AND -▝@▝U ▖og"` OR A▘ VERIFY [A]<> OR  AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘STR$ O$"' AND ▞▗!(CHR$ ▜@▝N<=▝D<> SGN  PI<>CODE 00SQR ▚( GO SUB  RETURN ( LIST ▘>D2 FLASH  AND 2 BRIGHT  AND 0 INK [T]▝ LLIST X▟2 AND  AND : MOVE  AND = LINE >=y2▜$▝▘$▝EXP $[C] AND :XBIN $▝▜$ INK CODE 2 MOVE  AND  q$q$▘[I]>= 11$▝ FORMAT $e>=/2 THEN q$ ▝y A$▝USR A$▝[O]A$ RUN ▝ BORDER q$q$q$q$▖ [R]q$!$▘ AND ▞q$ AND  FOR ▝POINT <>&*!$h$▝[J]@SQR q$▝eq$0 INK 1$C▘: PAPER  PAPER BIN (8▙NOT U<>2 OR : REM BIN = LINE U<>yM$J[D]▗"ASN BIN <>2.▘ DIM BIN .▙o<>/2 OR *o&0▝ B. NEXT BIN .▘ BRIGHT BIN + CLS ▝l+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"LN BIN NOT [P]<>r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘. OR r4▝CODE V;2▝[P]sHR▘*▚qS▝>= ▖$Y▙ READ ▝NOT ( AND  LINE  DEF FN 0▝ ERASE  4 VERIFY  CONTINUE  GO TO @>▗ LIST [H] FLASH  x PAPER  SAVE  COPY  GO SUB <| CAT  PRINT [L]D|j[A]SIN +R CAT RND|>= INPUT [T]dSIN ▚ TO R LOAD ;▙TAN  VERIFY )vSIN [M] DIM R PAUSE [B]! READ ©`TAB FN VAL CODE VAL TAB FN PISIN TAB TAN SIN P[E]VAL TAB SIN VAL CODE AT TAN AT TAB VAL TAN EXP  p! STOP ©`p(p(p(INT TAN  EXP : LPRINT $©op! REM `▙ FOR [K] GO TO o▙ FOR `[K] REM [F] FOR [R] GO TO o[F] FOR `[R] REM [A] FOR [M] GO TO o[A] FOR `[M] REM [F] FOR ▝▛[R]! REM [F] FOR [R] GO TO ©o*▝[R] 0 ML▝[K]ppp( REM [A] FOR YX▝[M]p<  STOP pINT p STOP p STOP  STOP ▛% READ ©dTAB !VAL TAN VAL CODE ▝CODE  RUN ▞COS %SIN !POINT FN #VAL !1▚VAL TAN EXP pO▗LEN TAB ATTR FN q1q111O▗TAN $TAB !USR ATN ▗EXP ATN ATN ASN X▙%ASN !ASN TAN #EXP !EXP LN TAN SQR LN '@LVAL ATTR TAN SIN TAN TAN CODE TAN SIN SIN VAL ATTR FN POINT TAB VAL ASN USR TAN VAL SIN TAB SIN ACS ▝CODE [L]fTAN !ASN ATN DSIN ATN ASN ASN TAN K▟VAL EXP ASN ATN VAL ATN TAN ACS SIN ACS EXP 'ATN 6 FOR [I]6▗ FOR `[I] 0▞[D] FOR [P] GO TO o[D] FOR `[P]p REM [B] FOR [N] GO TO o[B] FOR `[N]p(q^p2`[L]▘VAL TAN CHR$ IN ▝ASN BIN ▗ATN EXP ASN VAL ▜VAL ATN ASN ▗ATN TAN TAN SIN >[T]fATN #TAN !TAN ATN SGN USR SGN PEEK SGN SQR PEEK USR PEEK SGN USR STR$ SGN EXP STR$ USR SGN ATN USR PEEK ATN EXP SQR #SGN iTAN p[Q]p[Q]p[Q]p[Q]p[Q]p[Q]p>=`>= LPRINT % LLIST ©`[K]▘VAL VAL AT ▝ATTR 4qCODE ▝VAL USR ▘'VAL Q RANDOMIZE ▝LEN qSCREEN$ r FLASH r FLASH ▝!ITAN #LEN !bt▘cASN ▗SIN cVAL b!cj▗TAN 'dTAB  PAPER `ATTR (P▗ATTR CODE SIN CODE PNOT  $▗FN ATTR VAL ATTR  THEN  CAT ▙CODE CODE TAB TAB ATTR ATTR POINT POINT % NEW ©`ATTR  SCREEN$ ▘TAN SIN Bz V▝SIN ▗▘'CODE phplphphphhp▖TAN VAL AT CODE TAN <phPh[K]2L[F]▘#VAL [N]s tD▖AT SCREEN$ AT POINT FN INKEY$#LEN TAN !SGN SQR SGN IN " PLOT  ▗SIN ASN EXP PEEK  ▚SQR ACS SQR SGN 'SQR sIN sIN sIN sIN s OPEN #s OPEN # LET ▞[H] FOR [T] GO TO o[H] FOR `[T]s<>q AND p▖LEN TAB TAN LEN SIN TAB POINT INKEY$0[L]▘ATTR SCREEN$ [P]CODE TAB FN [U]FN #ATN !USR PEEK USR #ABS !USR ABS ▖PEEK USR USR #PEEK !PEEK SGN [L]▜SQR ACS SGN SQR EXP LN ACS #ltZtZtdtd▝[I]txp[B]tZt[G]<▛jTAN  TAN TAN !kASN jTAN `▗SIN  SIN SIN `▖kASN  ASN ASN !jATN %p$ $kATN  ATN ATN !jEXP kATN #▞▘ATTR !-▗#ATTR !ATTR  OPEN #▗POINT #FN !▘TAB ATTR ▚INKEY$FN INKEY$FN 'INKEY$pspspspspspsPsVAL  VAL VAL !ACS @s▝TAB  s"▜▝!INT c▘ATTR TAN R [J]  LIST  LPRINT  FORMAT USR VAL [Q][A]ppp`P@0<>▘pp10/0_0b0e0hk0qtpepepepkpwpp▞p[F]p[O]pPICOS ▘@?p[F]p[F]p[F]p[L]p[U]pVAL pTAB `ACS pp THEN p CLOSE #` PAPER B0ppp!p*!ru0a~  LPRINT  LIST ▛ LPRINT  FORMAT  FORMAT USR !f▚VAL VAL ▛VAL VAL [Q]r▗[Q] ▝ p`1[J]▛ DRAW  LIST  COPY  LLIST [D] ERASE QCOS ▝0@$▝"▝"▝DrJp5p5p5`5▟D LIST ©4 LLIST 4 MOVE ▗(USR  pjpjpjPjUSR ▗▛STR$ STR$ STR$ STR$  RUN &▗ SAVE USR  COPY  BEEP IN !CODE  OVER NOT  INK  VERIFY NOT / PAPER  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT ACS |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT ©IN {eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?SCREEN$ ;852/,*'%#![I] VERIFY  OR p▘STR$ PCHR$ USR 0*@ :0SGN ▘J * * ▝0 ,?X0 Y v+w+xy▚[▜▖[[G]K[H]▝q COPY  READ FN  NEXT  RESTORE " DEF FN  BEEP  RESTORE ~2a FLASH 23 PAPER ##~#"q BEEP  "▗ BEEP ^#V#"SQR  BEEP  OVER IN VAL  BEEP  LLIST "<> BEEP ! THEN  VERIFY  TO  VERIFY p GO SUB VAL CODE 2>= VERIFY 2<> VERIFY 2 LINE  VERIFY 2EXP  PAPER 2 FLASH 2[ CIRCLE 2 PAPER  CIRCLE 2/ INK 2TAN  PAPER 2 FLASH 2POINT  CIRCLE 2+ INK 2VAL$  INK G/2/▜ CIRCLE 2VAL$  CIRCLE 20 INK zACS  FLASH 2[N] PAPER !X VERIFY "PEEK  PAPER "# FLASH "[U] CIRCLE "& INK "POINT  INK  STEP ACS  BEEP  GO SUB SK PAPER STR$  GO SUB s[H] BEEP 1h VERIFY >  LLIST  FOR s#r# FOR =  PRINT ▗FN  VERIFY >p[R]*FN  VERIFY " DEF FN  PAPER "3 FLASH ": CIRCLE "EXP  CIRCLE "; INK  CLS NOT SIN  INK !~▜ GO SUB s OVER  BEEP  8 INPUT ▚▜# AND ▘ RANDOMIZE [M]X LLIST "i PAPER ▘▘ PAPER m[H]<>{▜_~0 THEN #~STR$ [I] NEW  THEN Z  PRINT 2 MOVE  VERIFY  LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O!FN  CLOSE #/P▙ THEN :8 GO SUB R<><>><(w[D]y<PEEK # ~24 CIRCLE #" CIRCLE  FOR x_@5 CIRCLE # INVERSE .z STEP  READ  BEEP )" THEN  VERIFY  FOR 1▜ IF [M] CIRCLE (& RESTORE CHR$ [H]{PI PAUSE { CIRCLE  GO SUB DOPI GO SUB B0 LLIST >2Y CIRCLE CODE 2i CIRCLE 6▖` CIRCLE "r CIRCLE  LLIST CODE ▚ INVERSE |2 ERASE  VERIFY   FLASH ▚~ PLOT  2 OPEN # VERIFY ©▝zp©@©▝COS p© ▝TAN p© ©▝ STEP @©▘ INK `©▝ IF p©©▝ CIRCLE ©▝ CONTINUE ©▝ OUT ©▝ LET 0©▝ OUT ©▚! ERASE  VERIFY ACS wp▘▝ CLOSE # ▘▝{qP LET ▝ INK q▘6 INK q▝ CAT A▝[N]p▘▘| INK Q▚Z INK CODE 2j INK a INK  LLIST ▘s INK !▘a INK 0▘p[O] MERGE  VERIFY ! CIRCLE  VERIFY IN  COPY   VERIFY ! MERGE  VERIFY B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 CIRCLE  VERIFY <>CODE G>=R[B](>=("=CHR$ . CIRCLE !>= VERIFY 5 PAUSE . CIRCLE 6▖PI TO ACS  BEEP  STEP  POKE  FLASH  INPUT ▗2 PAPER NOT ▝<>p▞ STEP  INVERSE  GO SUB Si PAPER 2 LET  ▝ LINE 7▘▛ PAPER 0 OVER  GO SUB S▘ PAPER CODE 062▘4 CIRCLE ]" RUN "7 CIRCLE !▗2TAB  PAPER 1▝POINT ▝[ ▝[U]▝▗2BIN  PAPER '▝:'2 CLOSE #'▝ 9▝rD▝[H] D▝hDgo LOAD  GO SUB "COS  CIRCLE ▟▝/IN "e▝ACS 0e▘ FLASH [G]▘+ INK [L]▝ PAPER  |▘& INK  e0▘) FLASH ▝EXP 29 ▝ LET [U]▝-▝[Q]▘" BORDER  O▝ VERIFY TAN ▗ VERIFY  VERIFY >©▗CODE 2V FLASH 2 FLASH  PAPER : GO TO  PAPER =(y2[S]▗[N] PAPER >7FN ▘<> CLOSE #:Y CIRCLE O▘(-▘ GO TO  PAPER  ▝<>STR$ ▜!h MERGE [S]▝PEEK +▗NOT  POKE  FLASH  1[E]&o" FOR  PAPER PIx PAUSE STR$  FLASH /2 NEW  PAPER -▝@▝ MERGE  ▖og" LPRINT  OR A▘ VERIFY ▝IA AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘ VERIFY O$"PI PAPER ▞▗!FN  VERIFY ▜@▝ DEF FN <=▝BIN <> SGN  PI<>CODE 00SQR ▚( GO SUB  RETURN ( LIST ▘>D2[ FLASH 2/ FLASH 0 INK [T]▘a FLASH  LLIST 2F FLASH :Q FLASH = LINE [O] BRIGHT y2 FLASH CODE R$▘9 FLASH $▗ FLASH : CIRCLE $▗ FLASH (/▘Q FLASH  q$q$▘ INVERSE  11$▘P FLASH $▚ RESTORE  BRIGHT /2K FLASH a$ ▝ RANDOMIZE  A$▝@$▝A$ RUN ▝gq$q$q$q$▖ [R]q$!$▘ FLASH ▞q$ AND  FOR ▝)<>&*!$h$▝@SQR q$▝eq$0 INK 1$C:Z INK -Z INK (8▙NOT  MERGE  INVERSE 2 INK :j INK = LINE  MERGE  INVERSE yM$J[D]▗"5 INK <>2.▘i INK .▙ LOAD  INVERSE /2[I] INK *o&0▘ OVER B.▝s▝.▘/ INK + CLS ▝2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"8 INK NOT  OVER r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘VAL$  INK r4▝CODE V;2▘ OVER s▝POINT R▘2▝NOT  RETURN z[E]ATTR  MOVE  PAUSE ▝; POKE  LLIST psp, TO ▗[H][D] FLASH  x PAPER  SAVE ▟ COPY  DIM tz DIM ▛ ERASE ▝ STOP  ▘$▝L ▝▘STR$ (B DIM O$▝▙ 0*▝ MERGE  ▘B▞) ERASE R[K]EXP  OVER [K]  REM ©o[D] FOR `[D][P][D] GO TO o[P] FOR `[P][D][P][B] REM o[B] FOR `[N]▘ GO TO [N][F] GO TO o[B][N] REM  FOR `[L] GO TO o[L] FOR `[L] REM o[L]![B][N][B] GO TO o`!pCC Bp! BC`B▝[L]pd`d[C]_©` LPRINT ' LLIST ©aATTR bPOINT PIPOINT a # CONTINUE [N]ATTR ! GO TO hSIN %VAL ! LOAD SIN &VAL$  p!VAL$ VAL  SIN !VAL  POINT LEN p!!▝ASN  !ASN ATN  INT !▘EXP INT  XpWW▘ATN !Y7V[G]ASN !=VAL 'COS !ATN ASN  ATN !SIN  VAL VAL$ VAL #SIN sQINT %ATN sINT &ATN  s▘ATN EXP RIN EXP  ATN ASN EXP /ATN p pppppp LPRINT ppppp"p.p# DIM ATTR !SIN SIN  POKE $ASN $SIN VAL ▝'[▜ POKE VAL$  GO SUB ▘ RANDOMIZE  MOVE SIN SIN ASN 0s▞EXP ATN ASN SIN #p! DIM p6p6p66@0% GO TO [T]▘!ATN  ▗SGN EXP ASN ATN ! CIRCLE ▞ FOR `[I] GO TO o[I]▟[I] REM o▙ FOR `▙[K]▙ GO TO o[K]▗ GO TO o▙[K]qASN qASN q VERIFY q RUN q RUN q RUN ATAN ▗'p#q!▘9!>=b[U]INKEY$qBIN `VAL$ BIN VAL %TAB BIN [B]VAL$ 'ATTR !VAL$ TAB  VAL$ !TAB  ATTR POINT TAB #p LOAD jASN ▛▝SIN A INVERSE ▘VAL$ VAL 2[A]▝ RANDOMIZE 5▝ PLOT  ▝'O▘ PLOT  4Nrr$!rRA NEXT ▗ GO TO 4PEEK ! VERIFY 'ATN !PEEK SGN ! ERASE SGN INT EXP !PEEK #[C]INT EXP #PEEK !INT %STR$ 3!VAL$ %TAN pLN LN ▝y`▖ VAL !SIN "ASN !EXP [7▝INT ]INT  EXP !ATN ▝COS sisisisisisisi&▝#▗4VAL$ ACS ▝ACS ▗INT !SGN  dl▝ATN r BORDER @?[A] TO  CAT 0p DATA  BORDER 0p COPY  INK 0p CONTINUE ▝USR 0pp0p<Ep`plup[A]p[J]RND▝0p▛ FORMAT  FORMAT  FORMAT ▗ FORMAT ▝p▘ FORMAT &▗ LIST  LPRINT  &▘USR  AT ▝USR ▘USR ▟ POKE  LIST © DRAW  STOP [D] READ ▗ LPRINT I0L0, RANDOMIZE ▝ ATN ▝ RND▝ [D]▝[G]u▘ LPRINT 20▝0a+ /5g/5▝p5▟D LIST ©4 LLIST 4 LLIST ▗( FORMAT  p5p5p5P5[I]▘STR$ STR$ z<>pSTR$  FLASH  COPY  LPRINT IN ! OUT  LOAD NOT  CONTINUE NOT _ FOR  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT ACS |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT |IN {eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?[E];852/,*'%# VERIFY  OR p▘STR$ PCHR$ !FN PACS INKEY$0) J * H* ▝0 ,?X0 Y &('(()6X78XFHG▝q COPY  READ FN  NEXT  RESTORE " RETURN  CONTINUE  RESTORE ~2[B] GO TO 2c FOR ##~#"[R] CONTINUE  "TAN  CONTINUE ^#V#" FOR  CONTINUE ▙IN  LPRINT  CONTINUE  LLIST " RANDOMIZE  CONTINUE ! CLS  BORDER  DRAW  BORDER p GO SUB VAL CODE 2 SAVE  BORDER 2 RANDOMIZE  BORDER 2 IF  BORDER 2 DIM  FOR 2N GO TO 2▛ DIM 2 REM 2 REM 2 DATA  FOR 2I GO TO 2 INK  DIM 2[ REM 2 OVER  REM G/2_▜ DIM 2 OVER  DIM 2` REM *[U]2 GO TO 2 STEP  FOR !▖ BORDER " INPUT  FOR "S GO TO " CLOSE # DIM "V REM " INK  REM  STEP  NEW  CONTINUE  GO SUB S{ FOR STR$  GO SUB s<= CONTINUE 1 INPUT [I] BORDER >  LLIST  FOR s#r# FOR =  PRINT ▗ CIRCLE  BORDER >p[G]* CIRCLE  BORDER " RETURN  FOR "c GO TO "j DIM " DIM  DIM "k REM  CLS NOT  STOP  REM  LOAD ▖~▜ GO SUB s8 INPUT ▚▜# AND  OPEN #▝ RANDOMIZE <>X▗ LLIST "[J]▘SIN  FOR m▜<>{▜_▟~0 THEN #~STR$ [I] NEW  THEN Z  PRINT 2 CONTINUE  LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O! CIRCLE  RESTORE -$▙ THEN :8 GO SUB R<><>><(wSIN  RETURN  RUN [B]y<PEEK # ~2d DIM #"E DIM  FOR x_@e DIM # INVERSE .z STEP  DIM E" CLS  BORDER  FOR M▜ IF  TO  DIM (& RESTORE  RANDOMIZE ▙{PI PAUSE ATTR  DIM  GO SUB DOPI GO SUB B0 LLIST ▚▞ DIM CODE 2[J] DIM &▖[A] DIM "[S] DIM  LLIST CODE ▚ INVERSE |2 CONTINUE   FLASH ▚~ PLOT  2 CONTINUE ©▝zp©@©▝ READ p© ▝ DATA p© ©▝ CLEAR @©▘K REM `©▘* REM p©▖2 REM CODE 2 REM RND▘ REM ©▘! REM  © REM  INVERSE |! CONTINUE ACS wp▘▝ ▘▝{qP LET ▝ REM q▘f REM q▝ COPY A▝ STEP p▘▝AT `▘ COPY ▝▝▝[K]▝[B] REM  LLIST ▝[T]0▘▝[B]@▘p[O] CONTINUE ! CONTINUE IN  COPY   VERIFY ! CONTINUE B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 CONTINUE <>CODE G>=R[B](>=("=CHR$ ^ DIM ! SAVE  BORDER 5 PAUSE ^ DIM 6▖PI TO  NEW  CONTINUE  STEP $ GO SUB  INPUT ▗2SGN  FOR NOT ▝ RANDOMIZE p STEP H INPUT  GO SUB S[J] FOR 2! GO TO ▝ IF 7▘SQR  FOR 0O LOAD  GO SUB SSIN  FOR CODE 062▘d DIM ]" RUN "g DIM !▗2 INVERSE  FOR 1▝ INK ▝▛ ▝ CLOSE #▝▗2 POKE  FOR '▝j'▗2 GO TO X▝COS  9▝[S]D▝<= D▝[I]Dgo LOAD  GO SUB " READ  DIM ▟▝/IN "e▝ NEW 0e▝B>▘[ REM [L]▝ ▘V REM  e0▘Y GO TO ▝ DIM 2i ▝!(▝2-▝F D▝8▘ CONTINUE TAN ▗ CONTINUE >©CODE 2▚ POKE 2 GO TO : GO TO =(y2 ERASE ▘ STEP  FOR  FLASH ▘ GO TO 7 INVERSE  FOR :▞ DIM ▖ ERASE  FOR ( PAPER CODE 2GP.,▘[I] NEW +▗NOT $ GO SUB  1?▘ GO TO  SAVE ▝ LET PEEK  GO TO -▝@▘ GO SUB O▝▝i▝ DIM A VERIFY ▘y FOR /▝+▝ RANDOMIZE ▝1O▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▝ BORDER O DRAW ▘ BEEP  FOR ▞! CIRCLE  BORDER _▝ RETURN <=▝ POKE <> SGN  PI<>CODE 00SQR ▘( GO SUB #▝ LIST #▚ DATA  FOR 2▛ GO TO # GO TO 0 INK RND▘[B] GO TO  LLIST 2v GO TO :▝ GO TO = LINE  DEF FN  GO SUB y27 GO TO CODE R$▝i$B GO TO : REM $▗7 GO TO (|▘▝ GO TO  q$q$▘H INPUT  11$▝$ INPUT /2{q$ ▝) A$▝pA$▝NA$ RUN ▝[H]q$q$q$q$▖ [R]q$!$▘< GO TO ▞q$ AND  FOR ▝Y<>&*!$h$▝I@SQR q$▝eq$0 INK 1$C▘: REM (8▙NOT  LOAD 2COS  REM :[K] REM = LINE  LOAD yM$J[D]▗"e REM <>2.▘[J] REM .▙ LOAD /2>= REM *o&0▝3 B.▝[T]▝.▘ REM + CLS ▝VAL 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"h REM NOT O LOAD r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ OVER  REM r4▝CODE V;2▘O LOAD s▝ INK R▘*[G]COS * PAUSE z[R]▜PINT  LOAD p CIRCLE ▝LEN ▜TAN PEEK CHR$  z BORDER ▖ AND  LINE  DEF FN [E] FLASH  h PAPER ▘( FOR  COPY  REM QV REM [J] ▝ AND ▞ DRAW c▛ DRAW  DEF FN ▗ REM  PLOT  ▘#▜Nm DRAW VAL  ▘ PAPER ▘<▝.▗ DRAW [6▝▙YACS  -SGN U▝[K]M▘ REM oP▘[P] GO TO  ▝ REM }[I] GO TO o  [I]! REM p4p4p4p44[I][I]/pO LPRINT   READ ASN EXP  DEF FN ▘EXP PEEK EXP ATN INT PEEK INT ▗TAN ATN SGN ATN p p p SGN ATN ! STOP z[U]#POINT !FN INKEY$&▛POINT #FN !INKEY$FN #POINT [U]dpP-nPOINT !mFN ▗POINT mTAB TAB WnPOINT #mFN ▚mATTR #TAB nPOINT p6P6`[G] GO TO  ▝ REM pAqQq:p((pLqF  LINE ▗POINT INKEY$ATTR % TO ▗POINT ATTR POINT FN ▜POINT ATTR #VAL$ TAB d OPEN #▗FN POINT FN INKEY$ RESTORE ▘POINT ATTR 5▗SIN ASN INT ASN P▗VAL TAN ATN TAN PSIN ASN EXP  ▝EXP `p(0(pkpk▝POINT @dTAB pkFN INKEY$[U]1]▖TAB VAL$ CODE #VAL !TAB POINT `▝ATTR .▜FN [U]#[R]%POINT #q]q]-▘ATTR POINT -VAL #SIN !VAL$ [POINT ATTR %TAB !XCHR$  MOVE  BEEP INKEY$FN POINT ASN ▚eVAL$ POINT VAL %&▟SIN VAL ATTR SIN %TAN !ASN TAN SIN TAB POINT %IN ▘/POINT p STOP ` NEW Rp STOP p STOP qp STOP pbIN ▝ATTR S▝INKEY$ATN ▝TAB <=e▘INKEY$POINT  ▝cqwAw<=LN ▗ATTR TAB VAL$ TAB ▘0'▝VAL ▘[U]!▝POINT  LINE Bf▘%TAB qrhTA8!SIN #TAN !SIN TAN #ASN %VAL q8r[F]CHR$ ▞VAL$   GO SUB FN <>▘ FN ▝FN LEN ▗ STOP POINT #TAB  OPEN #▗TAB POINT 'INKEY$<=▝ATTR 2 PRINT ▝ATTR 3▘+POINT  LIST NOT ATTR ▘#VAL  PAPER POINT FN ' BEEP n'&/ BEEP  CLOSE # BEEP   PAPER 0 INVERSE  LPRINT 0  DIM 0P PRINT 0p/ CAT 0p DATA  LLIST  DATA  ▘pS@5▝ ▞`@0<>▟  POKE  LIST © DRAW  STOP [D] READ ▗P[T]▝ [T]▝ [N]▝ [E]▝ ▖▝@D TO ▘ LPRINT   CIRCLE  /5 MERGE  /5 AND  /5ATTR y4 LIST ©4 LLIST , LLIST ▗  FORMAT p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` ▗( COPY  COPY >=[A] INK ▚ COPY ▝▛_<>....... NEXT  STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~ NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$  NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK  NEXT <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>▙08?© RETURN  CLEAR ,48©© RETURN  DRAW (hx ▝, @▝ PRINT 08IN x@ CONTINUE x@ FOR x FOR xUSR  FOR y FOR y@ FOR y FOR yUSR  FOR z FOR z@ FOR z FOR zUSR  FOR { FOR {@ FOR { FOR {USR  FOR | FOR | FOR | FOR |USR  FOR } FOR }@ FOR } FOR }USR  FOR ~ FOR ~@ FOR ~ FOR ~USR  FOR © FOR @©LN ©>=© CIRCLE © LIST COS  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  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  COPY  COPY NOT / SAVE IN 08?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW EXP ,48?© RETURN  DRAW ,48?© RETURN  CLEAR ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  CLEAR  STEP 08IN  ▙.,^VT_*- STEP 8( THEN 8@▙USR 0>=ttzj* IF TAN T>=0USR  STEP x@NOT xxSTR$ xNOT xxSTR$ xUSR NOT yySTR$ yNOT yySTR$ y@NOT !zr ySTR$ y[I] OPEN #yUSR NOT y CIRCLE  OPEN #zNOT 2@▚$f~| VERIFY z@NOT zX OPEN #zNOT 2USR |f~ffx OR zUSR NOT @USR ▗nvf$ VERIFY {NOT I▝fx@ AND {@NOT x@ OPEN #{NOT xUSR  OPEN #{USR NOT { CIRCLE  OPEN #|NOT 4@▚<`|``< VERIFY |@NOT 8@▗f``fx@ OR |NOT 4USR ▝~CHR$  VERIFY |USR NOT 5``|z@<=}NOT =@}x AND }@NOT }X OPEN #}NOT |@~X|@<=} CIRCLE  OPEN #~NOT ~ OPEN #~@NOT ~X OPEN #~NOT ~[I] OPEN #~USR NOT ~ CIRCLE  OPEN #©NOT © OPEN #/h▖48?© RETURN  DRAW ,U CIRCLE RND DRAW ,08?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48?© RETURN  DRAW ,48(▜ABCDEFH(▝F FLASH G▘CE FLASH G▘DD FLASH G▘EC FLASH G▘FB FLASH G▘AA FLASH GxUSR xUSR  INK GxUSR xUSR  INK GxUSR xUSR  INK Gyy INK Gyy INK Gyiz@Z@NOT @EAGCGCHR$ C▝A! CIRCLE ▘CE ▘DA THEN E▝A" OR D▝Ch "X▘ECNOT ▝Bh@"[I]▜FBAFEDCH(........ STEP [[M] NEXT  GO SUB s▟!PEEK ^d MERGE  GO SUB VAL !Z[M]c[S]9<> GO SUB LN !+[D][Q]~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[^ LLIST ; LET w IF 1 NEXT NOT RIN ! CAT [G]NOT  RANDOMIZE ▙NOT O[C] PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQIN >, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY  OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝▞ CAT [G] CAT [G] CAT [G]=[L]0 CAT [G]r▖[I][L] STEP [L][M]7[M]PPpp▝ RANDOMIZE p&p.`8▘ DRAW [M] DEF FN IN  NEXT  RESTORE " INPUT  RESTORE ~2▝[D]2S[C]##~#"[B] "[U]^#V#" FLASH O" FORMAT  LLIST " DIM ! FOR ▙ GO TO ▙p GO SUB VAL CODE IN 2 CONTINUE ▙2 DIM ▙2 REM ▙2 INK [C]2>[D]2{[A]2 IF [A]2|[B]2 CLOSE #[C]29[D]2<>[A]2K[B]2 DEF FN [B]G/2O[A]2 DEF FN [A]2P[B]>/2"[D]2ABS [C]!x▙" OVER TAN [C]"C[D]"BIN [A]"F[B]"<>[B] STEP  VERIFY  GO SUB Sk[C]STR$  GO SUB sATN 1 ERASE [G]▖▙>  LLIST  FOR s#r# FOR =  PRINT 1[H]>=▙>pPI PRINT 1▙a*>=▙" INPUT [C]"S[D]"Z[A]" INK [A]"[[B] CLS NOT  ERASE [B]!R[H]~▜ GO SUB s RETURN !S8 INPUT ▚▜# AND ▖![[H] RANDOMIZE  CAT [G]X LLIST "▞[C][M][S][C]1a<>{▜_~0 THEN #~STR$ LN  NEW  THEN Z  PRINT 2 LET ▙ LET ~ NEW #ng INVERSE b FOR ! CLS [M] INVERSE }▚▜O!>=~#fo THEN :8 GO SUB R<><>> COPY <(wAT [H][I][L]! RANDOMIZE [M]y<PEEK # ~2T[A]#"5[A] FOR x_@[D]U[A]# INVERSE . STEP [A]" FOR ▙ FOR AT  IF SGN [A](& RESTORE !{PI PAUSE [L][A] GO SUB DOPI GO SUB B0 LLIST >2y[A]CODE 2▞[A]go"[A]"[C][A] LLIST CODE ▜ INVERSE |2 PAUSE ▙OQ▜~ PLOT  2 NEXT ▙©▝z©▝=p©~2 OPEN #p© ▝ CLOSE #©▝+p©▝ GO SUB ©▝©▘;[B]`©▘[B]p©2 SAVE ©▘[B]©▝ COPY ©▘[B] ©▝ COPY ©▚! PAUSE ▙ACS wp▘▝ POKE  ▘▗{p▘  LET ▝[B]q▘V[B]▝4q▝ LOAD @▘▝ABS p▘▝[M]`▘z[B]CODE 2▝▝[B] LLIST ▝[D]0▘▘▝[B]0▘p[O] PRINT ▙! SAVE ▙IN  COPY   VERIFY ! PRINT ▙B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 SAVE ▙<>CODE G>=R[N](>=("=CHR$ N[A]! CONTINUE ▙5 PAUSE N[A]6▟[H]PI TO  VERIFY  STEP [E] INPUT ▗2AT [C]NOT ▝ DIM 0▙[L][H] STEP 8[F] GO SUB S▞[C]2[D]▝ REM 7▘ATTR [C]▟POINT [H] STEP ?[G] GO SUB S[S][C]CODE 062▘T[A]]▘>▚![I][L]"W[A]!▗2 STEP [C]1▘<>[A]6▘{[A]k▝BIN ▝▗2 DATA [C][E].H2 POKE '▘[T][A]nPc▝ATN  ▝▖Dgo LOAD  GO SUB " OPEN #[A]▟▝/IN ▘>+!=[L]" VERIFY 0e▘2[D][G]▘K[B][L]▝ IF  e▘F[B] e0▘I[D]e▝ INK ▗2Y[D]`▝(▝"-▜6[B]!"8▘ SAVE ▙{▗ PLOT  ▙>©CODE 2v POKE 2 CLS [C]:[D]=(y2CHR$ ▗ABS [C]>7FN ▘<> CLOSE #:y[A]O▚( PAPER CODE 2G>7<>STR$ ▜!▖▟[S]▝ OVER +▗NOT [E] 1&o"[D]PIx PAUSE  LLIST PEEK [D]-▝@▝ PRINT  ▖og" OR A▘ VERIFY ▝iA AND  8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL <  LINE ▖ [R]▗ CAT (%▖▘▙O$"<=[C]▞▗!>=▙▜@▝ INPUT <=▝ DATA <> SGN  PI<>CODE 00SQR ▚( GO SUB  RETURN ( LIST  MOVE  CLOSE #[C]2{[D]2|[D]0 INK [T]▘▝[D] LLIST 2f[D]:q[D]= LINE PEEK [E]y2'[D]CODE R$▘Y[D]$▗2[D]: SAVE $▞'[D]( INK CODE 2q[D] q$q$▘8[F] 11$▝p$[F]/2kq$ ▝ A$▝`A$▝>A$ RUN ▝▜q$q$q$q$▖ [R]q$!$▘,[D]▞q$ AND  FOR ▝I<>&*!$h$▝9@SQR q$▝eq$0 INK 1$C:z[B]-z[B](8▙NOT  PRINT [F]2[T][B]:[B]= LINE  PRINT [F]yM$J[D]▗"U[B]<>2.▘▞[B].▙[G]/2LN [B]*o&0▝# B.▝[D]▝.▘|[B]+ CLS ▝[Q]2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS <  STEP PEEK ▗ CLOSE #($r&▚"X[B]NOT ?[G]r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ DEF FN [B]r4▝CODE V;2▘?[G]s▝<>R▘IJ▝n9U▝[T]▜<> RETURN 3h OUT ▝* BEEP ▗- FLASH  X REM [F] COPY PEEK  TO  PAPER  LET  CLEAR 2ATN <= LLIST [F]f FOR  SAVE [B][L]ATN 3Ckk' CONTINUE ©`FN INKEY$[U][P][R][T]/[T]0[T][U]FN /PI#[B]CODE VAL CODE ATTR SCREEN$ !ATTR SCREEN$ 'FN #FN TAB ATTR FN /SCREEN$ 31▘INKEY$[U]p1▘FN FN 4▜PI  GO SUB FN !FN  ▘FN FN `<[B]TAN TAN !SIN VAL #CODE !VAL CODE #TAB VAL CODE !TAB ATTR A▟  REM ©o[A] FOR `[A][M][M] GO TO o0▞ REM o▙ FOR `▙[K][K] GO TO 0▛ REM o[K] FOR `[I][I] GO TO o0▝ REM @(p0▜[F] FOR `[F][R][R] GO TO @p PP[C]▛▛ FOR `[H] REM o[H] GO TO `▛ FOR ▛[H] GO TO o[H] REM ▘▛[H]▛▛[H]`[H]p FOR ▚[U]FN PIp GO SUB FN 'SCREEN$ pCODE pCODE pCODE pCODE pCODE CODE ▜[D] FOR `[D][P][P] GO TO @pCODE pCODE p COPY pCODE pCODE pCODE 0CODE !4p POKE 0 POKE ▝[H] READ ▘[T][T] BRIGHT  REM o[T]qTqTaTUqT1Tqt0 ▝[D]ACS AT ▚[P] GO TO `[D] FOR [D]ABS ▘[P] REM aINKEY$▗[A][M]`[M]"-▘FN PI▗INKEY$ATTR AT  FORMAT TAB ATTR !CODE ATTR ▚ATTR TAB INKEY$'CODE SIN pINKEY$q[K]pINKEY$pINKEY$q IF  IF q REM 1 REM q PAPER p NEW ` NEW  BORDER ▝[A];1▚[M] GO TO `[A] FOR [A]B▝[M]pINKEY$0INKEY$▘TAB SCREEN$ [A]▝CODE [T][E]VAL TAN COS !TAN ACS #ATN !SQR ATN 'TAN #TAN !VAL TAN #ACS 'ATN LN qQrEqQqQrRNDpATTR r[F]rq[B]pATTR pATTR `ATTR ! REM [A]% LPRINT u[P]VAL TAB TAB ATTR # READ ©`ATTR  LPRINT i▗EXP !SGN EXP [L]▜ATN EXP #SQR !ATN ACS SCREEN$ ▚ATN TAN #VAL !TAN :▘ACS COS SQR (▟TAN  LPRINT ?p LIST  LPRINT  ▝ FORMAT ▝[B]USR USR VAL VAL [Q][Q] FORMAT  FORMAT  FORMAT P5▝;p▟ FORMAT  POKE  LIST © DRAW  STOP [D] READ ▗p[p[p[p[▝[A]▝▗▘ LPRINT  [D]P[[A][A][A][A]▝ [A] OR ▟D LIST ©4 LLIST 4 LLIST ▗( FORMAT  p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` (U[G] COPY  COPY k&R^ STEP R;;STR$ ![H] FOR !f}▘!{0▝▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O.ABS  NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP [T][N] LLIST # OVER  LLIST STR$  NEW ©(# THEN w G▜# RANDOMIZE VAL$  NEW ?F#ATN  CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <> COPY  COPY Pppp$p.p8IN NOT ▚??BIN ©▚?? BORDER ▘? MOVE  COPY ▘©xC▘BIN <>▝©0>▚ DRAW  SAVE  LIST  SAVE  SAVE  RETURN @C>=▗?8*_▗?ASN CHR$ 8}USR USR @▟ OR ▘H;`aP@X LINE  OR @ LPRINT ▝ LIST USR USR ▝ LIST Pa<= RETURN USR x@STR$ ▝ DRAW PLN @>= MERGE 'ABS [C]▝ AND ▝ LPRINT I1n▘ RETURN  LIST >=34 AND y DEF FN USR  LPRINT ^BIN  DRAW  SAVE  LIST  LIST  LPRINT USR BIN X3yUSR  CAT ▘YPEEK [G]VAL X[D]▝ RETURN   GO TO USR <=zIN ▗STR$ :=▝IN y▗ LPRINT  LIST  LIST INT ▝ RETURN ySTR$ y0b[L]ACS x BORDER "!▝af OR yz▝ RETURN D SAVE  LIST  LPRINT  FORMAT ▘USR ij<> OR TAB 2▘ LPRINT USR QUSR  CIRCLE  CLOSE # CLOSE #STR$  CIRCLE  COPY  OR  VERIFY  COPY PRNDCHR$ USR  LPRINT  SAVE : LLIST 3[H]<>s`USR 3[R]C PAPER ▗ CLEAR  LET STR$ ▝ AND  OR ; LPRINT BIN  LIST  PRINT ▛USR |▚ OR BIN  LINE 0`A▝ LPRINT @I? OR ${ CLEAR ,▚9▝ _TAN ![L] STOP E?b@<=0-▗ OR DUSR }!m=STR$ l OUT ▝|USR 5▞# STEP STR$ ==95=Q INK cIr[B] STOP ?" NEXT ©▘ FOR ▘ COPY  SAVE  CLS zSTR$ !▙ BORDER ▝} GO TO  REM y FOR yUSR ▛ LPRINT USR  COPY  RANDOMIZE ? READ  NEXT z▘{▝@~ FOR |▝|CHR$  RUN z▝} ▝} ▘©CHR$ 2n▚ RESTORE  COPY  COPY P0 BORDER  LIST POINT CODE 2H/2▟/ OPEN # RETURN  STEP k!USR " RETURN [Q] STEP [N] STEP [Q] STEP  LINE [Q]CODE 2EXP _ STEP  VERIFY ▗:EXP _ THEN _( PLOT  EXP  PI)[S] NEXT >? GO SUB G GO SUB V CLS <> NEXT ! RETURN  RETURN ,> CLEAR w GO SUB VAL >NOT 2 CLEAR  CLEAR ! GO TO [Q]" RETURN  CLEAR > RETURN "▝^" PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  PRINT  INK ▝ INK  GO SUB |ASN  !V▗ OVER +q[B]INKEY$ STEP '[R] INK  LLIST  MOVE STR$  INK  LET  CLEAR  LLIST  INVERSE  LLIST ▝ LET ]▜ GO SUB s DEF FN [R]CODE SIN 1 MOVE [R] LLIST  MOVE s$|[R] } AND  o8| VERIFY g} RETURN  OUT 8| RETURN PCHR$ X[R]&@} VERIFY  LPRINT o^ MERGE >COS w RESTORE  LLIST  LLIST  ERASE A/p0p00▝▖p0@0▝ MOVE  0▝rUSR $pcpcc▝SQR Pc>COS w$V MERGE >SIN w%j<=1pa<>[Q]E CLOSE #▞SCREEN$ M? PAPER U FLASH MUSR RND[B]xJ?INKEY$J COPY JBSTR$ oJ SAVE F▟>=TSD}L INPUT ▝"▝▝[H] PLOT  ▙ !X MERGE  RESTORE  OR  OR  RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE  LLIST  STR$   INVERSE ! NvSTR$  LLIST  MOVE   FORMAT <><>(j........ STEP ) MOVE  NEXT  GO SUB s▟!PEEK ^d MERGE  GO SUB VAL !( MOVE  COPY  BORDER D<> GO SUB LN ! RANDOMIZE [T][Q]~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[^ LLIST ; LET w IF 1 NEXT NOT R[R]NOT  THEN NOT  LLIST NOT ▟NOT  LINE ▟NOT >▙NOT  FORMAT ▙NOT PI▙NOT z▟NOT <=NOT  DATA ▙NOT =[A][B]NOT <>>=2 TO PIUSR >SIN  STEP  LINE ▟ STEP >▙ STEP 4 INVERSE ![I] INVERSE ~!ACS _PEEK  > INVERSE n INVERSE f OR  INVERSE N INVERSE F} LLIST  STEP ▟STR$  INVERSE # INVERSE #TAN  INVERSE # MERGE : LET < RETURN  CODE 2 LET <> OR PI(G( CLEAR  FOR  LLIST  STEP 7▟NOT INT ▟w#wPppp p(4▝#p8p@pPpXp`ph@x▘<> LLIST p▝Q▜<> INVERSE ! OR p DIM  DIM ▗ INVERSE f DIM [I] INVERSE FABS  STOP  STEP ▙STR$  INVERSE  PAPER : PAPER ▟< RETURN  DATA  PAPER ▟<> GO SUB C5▙PI( RESTORE  FOR G0 DATA [J] INVERSE F RESTORE  MERGE  OR  STEP .▙*5▙##"5▙STR$  MOVE  LLIST ## FOR <> RUN  STEP z▟!@ CLEAR t▗ PRINT Q]▝;]▗ INVERSE f]▜ INVERSE F BEEP  INK !]!q[P] STEP PI▙( INVERSE 6 COPY  OR  INVERSE  RESTORE  STEP ▘y STEP } STEP ACS [A] INVERSE  LLIST STR$ !LN _4 STEP  DATA ▙q▘A▖▜SCREEN$ :N▙< RETURN ▖[G]N▙<>:INT _ VERIFY  RETURN  0ABS 0 AND ABS 8:SQR [C]0SGN 0 AND SGN 8> COPY PI<>CODE PI<>▙[E]▖ INVERSE ~ INVERSE w GO SUB [G] NEXT <>:LN _PI  STEP  STEP 2 RETURN  >F# RETURN @CODE P!aZ[A]cZ!eZw#wj▗[A]RS[I]M INVERSE ~PI(= INVERSE wCODE , INVERSE ~PI  GO SUB _ NEW @▖/ NEW   INVERSE w+[E] INVERSE ~ PRINT < RETURN   OR  STEP ▛ySTR$ CODE  INVERSE w LET r▘8 READ 0TAN ACS [T]<>grwgqwi[U]wfJwfBwgvwgjwgbwfXwty ▝ ▝ ▝ ▝ ▝ $▝0SQR  DEF FN wp▖xp[A]xlxowxozx(2fQwm7m3[L]:ABS _PI(# RETURN (|P> STEP s[A]:CHR$ _yPCODE @▗|P@▝CODE ▗* LINE _|▟>O>[B] MERGE GUSR [▞ MOVE  # OR  MERGE  GO SUB [Q]#RND MOVE  STEP [R][A]STR$  INPUT <>z NEW USR { AND  _ CIRCLE z VERIFY W<>NOT SGN [A]NOT USR [B]NOT CHR$ [A]NOT ;[D]:ATN ©▜2 LLIST ▜PI( RETURN  COPY (# CONTINUE ▜ INVERSE  RESTORE  OR  INVERSE ~3▖ STEP }STR$  INVERSE  LLIST  CLS [G] BEEP NOT  CONTINUE [C]:EXP _ THEN _CHR$ @[D] THEN gCHR$ W[C]<>2 RETURN =▖<=[D]Gd*@<▗SIN (ATN ▜y STEP  FLASH [C]qQ F INK Gv▗~PI(CHR$ =G0a▝ RANDOMIZE h[E] INVERSE ~PEEK CHR$ u[B] INVERSE ~ RETURN  OVER ( INVERSE n INVERSE fI▖ INVERSE n INVERSE f DIM 7▖2W[I]CODE wNOT [B]ABS ▚:W[I]PI('pFF▝:F▘w RUN  INVERSE w GO TO ▚ AND  INVERSE wCODE 4▘ t▖ LINE [C] STEP yNOT  SAVE 0? ATN ▝ PAUSE  INVERSE n INVERSE u PLOT  ▗ INVERSE tc▝0 POKE ▖ READ CODE 2U[I]2V[I]s▞ STEP g[C] STEP [C]NOT [D]CGK CONTINUE [C]CODE  OVER w<> PRINT @[J][G] LET wNOT ▝[B]:U[I]!POINT P"N[C] STEP /[C]:V[I]!<>▖PI !X[I]r RUN ▝  PRINT [O] IF  RESTORE  INVERSE  LLIST !SCREEN$ P<=[C] STEP [B]:~[I]PI DIM ▘M~[I] INVERSE !f BORDER ▝Ul▙ STEP LEN [C] STEP SGN [C] INVERSE n INVERSE f STEP [D]!ATTR [H][S][C]<>"SIN [C]n[I]w$ IF <>"ABS [C]vp}▜CODE w$ CLS p▙ CLS <> OPEN # RETURN {[B]  CLEAR ▖_  LET <>!U[I] PRINT ▘▝_ MERGE ▝ LET ▗▛[D]"&▝![S]▝%▛▞ INVERSE ~ INVERSE n INVERSE f%▙5 ▞ CIRCLE <> INVERSE * REM [C]: GO SUB [C]%6▜ NEXT NOT q[D] STEP  VERIFY ▗ CIRCLE v THEN ^USR  POKE  STEP  CONTINUE  LOAD  INVERSE !A[F] REM ▘Vb▝F`9▝STR$ 0]▝ DIM 5x▛ FLASH NOT :[B] INVERSE *B[D]:H[D]pZ[T]▛CODE 2©[I]<> COPY '[A] COPY ▝ ▝[B] COPY , COPY ▞ COPY  COPY L COPY PI COPY  COPY 1bolx{aq kirka  COPY ▚[G] COPY USR  ▚pisxmoCHR$   COPY  DRAW [G] COPY `6[A]lopata COPY [H] COPY USR ▗so~nP▗mork▛ COPY F[H] COPY 6▘and[D]sgu}enki COPY TAN [H] COPY l▞rybij virl RETURN [H] COPY ▜▞o~ki sowy[C]& LET [F][S][A]staryj grib  HABS INKEY$ OR 3swevee  qblokoFCHR$ [F]tqvel6[U]▚lotJ06▞pusto▞gor{okI0Q▝ NEXT katu{# nitokG l)i▘jc1)▗l▗2[I]!D▜ amuletEy[G] PAPER  MOVE [G] CLS Y[F] THEN [C]BIN [G]&.>* STEP ;[D]&.>SCREEN$ CODE 2M[F]<>CODE 2▛[D]2[B][D]2[H][D]>2 THEN [D]>2 TO [D]>2 STEP [D]![L][F]" DEF FN [D]>&.6 FLASH ▞CODE 2POINT [D]2CODE [D]!p ▝.▝.▝[C]>c▘ OPEN # i▝Pi▝r.>{▗▝▗/▗ COPY 2 AND [E]1:CODE 2ASN [D]/2SQR [D]>m[B]: INPUT  STEP ▖>= RETURN (*&.[I]ASN ▗.>▖▚&.>P<=▝ FORMAT >2 INPUT [D]<>&.>P CONTINUE ▝ LET ▝P©▝1><▗2&[F]SGN EXP ▘:©▝!&▝&Q&▝'/▝/CHR$ :[B] STEP SQR !J▝(QJ▝)2 CLEAR O▘LN _b▝CODE !a▘S[F]0[J]▝P CLEAR ▝Q▝▝7Q▝8!▙G[F]NOT  [G]CODE 2[N][D]> OVER 2[E]![T]▝4 BRIGHT ▖ INVERSE ![E]NOT [C]`▗23[E]! AND ▝Q AND ▝Q]▝ CIRCLE ▝#▝1ATTR ▗2N[E]!▝Qz▝Q RETURN ▝Q[F]!d▝ Qd $d▝!Q:▝"QEXP ▝#R=▝$Q CLOSE #▝%pn2i0n▝+Q CONTINUE ▝,Rl▝-2>.0INKEY$>/Q[G]▝02>12c▝[T]t MOVE Q"SIN ▝9RSIN ▝:RI▝;P GO TO ▝<[H]n[G]: AND [E] RETURN  COPY  LINE C[I]" CIRCLE ▝2▜" LLIST ▝32f▚!SGN _ THEN  VERIFY <>3Sv▟karmanFN PATN P>=P BEEP [N] RETURN  COPY  COPY  RETURN 8© COPY  COPY ©8NOT ▚[I]NOT r[K] INVERSE ! MERGE [K] OR ';▗PEEK  9API(S- TO ▗ RETURN ▘8POINT ▘wY▝▘ DEF FN + THEN ▟ STEP p[J] THEN ©  OVER  FOR  STEP  INVERSE [I]{<>SCREEN$ STR$ VAL <> GO SUB KFN [J]:PI[J]<2PI[J] OR  LLIST s#r# RESTORE STR$ ![H][J]INKEY$#ACS # RESTORE  FOR   FOR  LLIST ppp p p0p@p@pPp`p`p▛ GO SUB CFN [J]<>Ml&D}CHR$ )d RESTORE  THEN / THEN / THEN /o&P▝w[D]▞<><=<=(( CIRCLE ▖tt8SCREEN$ [J] COPY  COPY  COPY ▘[B]▖PI>=!SCREEN$ [J]^#V FOR ▘ RESTORE  FOR K FOR  LLIST pppp(p2p<▜ GO SUB [Q]=PI VAL CODE  NEW W▝"eIN 88888888PPPPPPPPPPNOT )[L]▛ATTR NOT ASN [L]>=2*[L]PI(5! AND S INVERSE !AT [L] INVERSE  THEN & THEN + CLS  LLIST %  GO SUB !INKEY$Wpp▗ GO SUB <>>=[G]!:[M]~#"m[L] RETURN $($ RETURN #(( STEP  POKE &o[H] GO SUB [ IF  GO SUB RTAN [L]~# IF ▟0.NOT ! LET [L]▝SQR b▗ INVERSE ![M]s▝G.LEN ▝ IF 9CX"[N][L][N]h AND S▞▞ OR  RESTORE  MERGE CODE w+N▞ MOVE  LLIST STR$ %  GO TO <> MOVE  ATN $:[M]t[M]<[M]X[M]j[M]~[M][F][M][P][M]LEN [M] THEN [M] CIRCLE [M] REM [M] CLEAR [M][N]%[N]5[N]C[N][[N]q[N]▜[N]SCREEN$ [N]SQR [N] TO [N] BORDER [N] POKE [N][O] #USR lnce [I]▞tit no neLN ▝e▚# odinINKEY$▖e derewo. ▘xqpBnabl`datelxn PRINT ▗punk=▜stuka~iczagad AND ▜prirodyG▖omik kri BEEP ▛fera robinatemEles[M]▗hi}n(▝wB▗sade▝mUSR .▗o~ekPL▘gr#▝n$([A]pSQR pSQR ▞puhowa op(/▝#@2INKEY$▝ix▘no▚u{ah▘go[K]oli & LLIST ▝n71'CHR$ .INKEY$upi▝@0[F]▝#ASN ▗tnicd THEN ▝iATN ▚afrikepodz STOP  INK ▘re ▚▝dY▝na▚zawhoz[A]▝bjen~atwplawsredst0CHR$  =gpp ▞!/h"TAN _"IN _eACS _2PEEK _>2CHR$ _jINT 2SGN _2NOT _! PAPER  TO " AND _! AND SGN "BIN _! BORDER [P]">=_!▚VAL$ " LINE _><>2 STEP _2 VERIFY _>NOT 2 FORMAT _2 OPEN #_![I]" MOVE _![I]" CLOSE #_ REM LN  STEP COS [A] LIST  DEF FN [I] STEP PEEK  STEP STR$  STEP #[L] STEP  STOP [O] STEP  FORMAT ▗ STEP } STEP VAL [A] STEP [Q]:▗VCHR$ .[P].T▛(>© FLASH  RETURN  NEW  > CLS ( FOR  PRINT PIBIN #[L] LET PIBIN Z[P]<=)]6 STEP EXP [A] NEXT >> GO SUB G GO SUB V CLS P▘: TO  OUT [P] STEP USR [G] OUT [P]NOT m[P] NEXT ! RETURN  RETURN > CLEAR w GO SUB VAL p'`'ACS  CLEAR  CLEAR ![T][P]" RETURN  CLEAR > RETURN O▝^[▛So& OR  RESTORE  THEN # BRIGHT )▗STR$  LOAD <>3[D]>/2TAN _>X2ASN _ STEP  OUT ▗[G] OR  STEP [P]PEEK ▜ STEP FN avSTR$  PAUSE  GO TO >=[I]▟NOT IN [O]!!X OR 6B▝#[A]▝ NEXT SGN IN X  MERGE  RESTORE  OR  OR  RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE  LLIST  STR$   INVERSE vSTR$  LLIST  MOVE   OPEN #<> NEXT  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  PRINT ▘ INK ▗ INK  STEP [p GO SUB [P] STEP 0 GO SUB  STEP  [L] INK  LLIST  MOVE STR$  INK  LET  CLEAR  LLIST  INVERSE  LLIST [C] LET  CLS <> OR  CLEAR © GO SUB ySTR$ <>.hodO▗krytK▝ .▘hn▞▗skima▝~G▘m.#▚|o,▘+▝!+LEN ▝`VAL ▜,osoben LIST Oenye! RETURN i takk▟sojdet,move{xDq▙pogulqtx zdesx STEP [L]▝q STEP ▝b GO SUB ▝!>= Ps OUT kom>▘at DIM ▖a winni .▗u{il, PAPER ▝u POKE ▜kamenx,z▝o▙raz[H]▗elsq RANDOMIZE ▙pylx. dkrep BORDER ▘pr2ssidpmudarf0/▗wonz[▚orudie<▞stenu,i ~BIN ▝z]inutu RNDs~ezl=▚  [R]▝, OPEN #▘a USR !P0SQR C▗!$L▛wa,ty pqta~[P]nig[O]9widela?n=▚a ~to,SIN ▖pal ?(▜ zna`,w STOP ▚u egot[I]u▝tASN 1>▘c b▘ m▛▘tu REM - INPUT >slaliy▝uu▝sLN ▘amamot INVERSE ▘w  Wr~ti^1ACS valuj[E]`c1▙q by K6S▗udowie!k~la|.q▝,▝wH▝a▗wrem[S]▝eW▝n i▘obN▝aINT ▘a,[F]CODE ▘tooniaswo IF  q$▘a`GA▝jVAL$ ▘ih!y!uspeha, COPY ![K]terACS .▝iu@▗ seb▜[A]▜os7n BORDER !SCREEN$ ▖eperx tyB STEP ATTR  VERIFY ▝m` FLASH ▘ ?/N[N]▗kone[E]2CODE dawaj!K▝s RESTORE Q RETURN  otka{lqlasx▘▘~aF▗~ita CIRCLE s..M{ebV MOVE J▗omu RN▝u FLASH  bvQpohit" BRIGHT Bv OPEN #▘uw ERASE  NEW  RANDOMIZE ▖ mra~nu`|▘ra LET ▝q"i▝ ▘ IF "▗lu~{ TO ▗drug CIRCLE zahE BRIGHT ▝o[N]▝b FOR R ERASE ▘izACS [L]▗eniq▜▝|Ewoz▚no,esl& PRINT isp>▝i triATN t<=▝a8[C]▝q MOVE [E]0 DEF FN ▚yskavu▘ wINKEY$;POINT ▗ POKE RND▖▝p)[I]▝wP STEP 0 TO 0hxzu OVER ▘il4AXATTR ? AND ▗a,on(▝tp▘veg▚nwerte  CLEAR ▝i1 DATA  COPY  zVnai LINE ▗lej{ NEXT >= ▝b PLOT  ▝ pwyjc ERASE  DEF FN  LB TO YB▝u@ACS "▘tt VERIFY 07bC0 DIM pTZ▘akSIN ▜hrq[M]IN ▗hrum THEN <dBIN 5 ▝▗mont[D]walA▘ord▘[P]E▝k(▝j©rin"NOT ! FORMAT <=vk,|JSTR$ ▗u`,p$scel▜morkowx&&UX▘lyj VERIFY 0!▘ku>&▙!*>=ATTR NOT ▝tu* DATA ABS nibudm DIM [U]▘u 3[banZNOT gu}enI▝a3[I]▝s,▘{l FORMAT ▝gVAL $Nozxmi[I] FORMAT ▝s"[I] STEP  VERIFY ▜ybrasywUSR [S]▘` COPY eng▗ REM  ?V&▝g+▘r`0"!!v, BORDER ▗@[E] ▘uv INVERSE ▝?CODE 08p0g@▜Tot~ABS ▝v▟ =[O]▝k@azd LIST 8▘sx$STR$  RETURN  CLOSE # DEF FN gu{  RETURN POINT SIN  PLOT  CHR$ pT▝T_3@,▝u^: CONTINUE s▚s}edrit▘, 6x▝m#]q▘dk GO SUB dnor FORMAT fPIVAL a7▘,nSIN 1c`[K]!cybx  CAT ▗ira,[▝r& DRAW !▗1▝▘e @▝ xH  L OR y▝o LET ▝l POKE ▝n▘m Py(▝ 1INKEY$^▝a".b&IN a CIRCLE [M] LET  OVER ▚zd TO ^▘ujw STOP IP CIRCLE INT # LINE ▝y8[B]▝kj[T]'▝h/▘alp FORMAT  LET px`[P]l@ CLOSE #▝,Amo` l▘tuS▝t,$uVAL$ ▝iINKEY$▗itsqXr▜ ti RESTORE ▘ !;0S[B]s▙ok. /o! [T][O]▘dow▝aHFEy b LPRINT ▝{▝s|r SAVE [S]▗`bqtFN PIrnkF0|▘,u CLOSE #B>=6▜ n`h hok▘ij=▘ogW7 CIRCLE [B]▝i]' RETURN ▗?0>  NEXT !h#[A]li~a`/%▚y~nyh?▝t[C]▝k▝m& STEP [O] GO TO ▝pY7h LET IN ;I[u▖▗ hABubenek STOP [O]▘vaahCOS ▝d> BEEP k( CIRCLE  LINE  DUp▘ri LPRINT [F]x6TAN /m CLOSE #{▝sRND▜ilosx..NOT pD0DvPExSGN e▗rabo[A]Hu FOR u▝k~o▝lNOT ▝`e[M]m[N]©▟_▟z$3▘ot~▝w"xN AND n~7SIN 72QLAG CONTINUE 7Z[K] MERGE ;KKe▝wo?# CLOSE #▝n[G] THEN k▞.LN W▝k%q:"/▝uO CLOSE #[H] FLASH 62j▛2:INKEY$rL  .8LN + NEW *d©8na{eluVq.u%▝o" OPEN ##"otbla{LN a CIRCLE  CLOSE # FOR 1 DRAW ▝.pt'RI▞stq}u`{tu GO SUB -▗t1- BORDER t+}w[S]w DATA qLEN ▜ wputx,q|| PLOT  !©*qJ_ek  m▗dolv[K]edu>"svrburg COPY  COPY  COPY  SAVE ©[A] LIST ? COPY  LPRINT @ COPY USR 08[B]` COPY )©??/@5▝~▚ ▝U>SCREEN$ *▝?▚p CONTINUE  COPY Y▝ CLEAR j DRAW  MERGE  SAVE jB SAVE 5 ▝*`▝| $zASN  f▝ IF ▗▘<[A] FORMAT [G][Q]▝▘ LIST  SAVE  SGN CHR$ ▝ RETURN  ▗ DRAW  LPRINT  TO  TO ▘ DEF FN  ▝X CIRCLE ▗cHCHR$  LPRINT USR  READ  FORMAT ▝USR  [R][Q] MERGE @SCREEN$ ?$▚USR :?* OR @ PLOT  ▜Z?=>[Q] REM ▝ ▝?0?Z▝CODE  H▖ RETURN ? LIST ?©V▘/USR ▘[S] ▝VAL$ t▝`USR  COPY ▜!▖▘x TO ▘▗ TO ©3?▘? CIRCLE [I]USR  SAVE  LIST LN T SAVE  POKE Z LIST 4` CONTINUE hf PRINT P REM [Q]$x LET P PLOT   VERIFY [Q] DRAW ▝ STEP  ▚FN ▝ ▝▘PFN  AND [Q]VAL$ ▝ATTR  H COPY [Q]▗▘USR [A]▘}?[G][C][M]▝ CLEAR *▘z8▝▝pUSR ▘ LLIST "H▘USR P!?$@USR ▝L[E]▗E CIRCLE INKEY$0 OVER  DRAW . OVER  RETURN = DATA  DRAW  REM  IF  LIST  CLEAR Tf▘FN f▘T▘NOT ▗ DRAW T PLOT   FOR FN  DRAW  STOP  CLOSE # LLIST SCREEN$ ▝STR$  ▝STR$ P2[T]FN 8▝ FOR  H RETURN FN ~▘x▗7@V CAT [Q]/▝ LOAD B▘wN▝rBqRND▝h▝▘2▝SGN ▗e VERIFY ▝t"PEEK ▝SGN "PEEK ▝VAL "PEEK ▝p LINE ▗8z! RETURN ▘ PRINT ©d▝ REM B▗ OR ©F▝6^<▝F#<▝#<▝▘#H▝PZ2j▝ VERIFY "Fh▗ LPRINT [G][U] ▝ MOVE  ZFRH▝ SAVE USR r@qt▘!©F▝USR ":▝ TO @h VERIFY  VERIFY PEEK ▝/"PEEK ▝, LINE  CONTINUE  LINE ▗ LPRINT  CLEAR @d▝ IF PEEK  LET @PEEK ▝▙":▝ FOR #▝ PAUSE #* LLIST PB▝STR$ #6▝STR$ PZ▝ READ "j▝ MERGE "F▝ COPY  H▗INT "4▝} [G] CIRCLE 0st▘|▘▘▗0 @▝s   LIST ▝ AND " VERIFY ▝FPEEK NOT  VERIFY FN `▝" IF ▝▜! RETURN  COPY P RETURN "PEEK |PH▝ READ ": IF  FORMAT <▝ SAVE  0 LIST T<#6 LPRINT  CLOSE #"^▝ MOVE "j▝ PRINT pH DRAW  INPUT ▝;|▗G FORMAT @ ▝w▖▘t▘T▘▘ LIST v▗ LPRINT H>=N▖ CIRCLE 1[E] CIRCLE ▝ MOVE PEEK ▝INT ▝ CLOSE # ERASE USR SCREEN$  REM USR  CLOSE # PLOT  ▝ LLIST 6▗© CLOSE #B"PEEK _BIN ▘ REM  FORMAT ▘TAN  COPY *#<▝#<6▝ DRAW P POKE ▘5[S]▘Z H▝ POKE TAN ▝< ▗▘<▘ LIST <5H0▝ SAVE `USR ▝ DRAW  OR R<▝ACS B▛?  LPRINT ?USR  SAVE  ▝ STOP "<= LPRINT  CLOSE #▝ OR $, ▝[A] NEW ▘<=:z>F!▚ RETURN ▝>▝PN[O]T[M]▘USR SCREEN$ `▝*SGN >>= STEP "▙ PLOT  ? SAVE ▝ FORMAT "[K]▝ FOR $[I]▘ BEEP  ERASE ▝h6USR ▝ COPY  LPRINT INT ▝`~USR ▜HUSR ▝>= TO ▝$FN ~ POKE ▝$%▝B$ SAVE ▝ RESTORE " INPUT ▝ IF ( CLEAR  STOP ▟ PAUSE FN # BORDER D%[U]K>=RGVAL ▝[S]`▝ RETURN ▝O▘7[U]▜AT USR  CLEAR P2▝ IF ||fEXP  FORMAT x▝S▘▖ FORMAT  LIST AINKEY$▘>fCHR$ ▝ RETURN E▝?USR ▗<▝USR  CONTINUE ▝Bn DRAW  INPUT ▝ DRAW /F%[Q]▝ READ [G][S] FORMAT STR$ TAN ▘N2▝[T]#VAL$ ▝^6 $▝ztUSR & PRINT [A] DRAW ▝ REM  ▝ PRINT   CLS   IF ▖ $< CONTINUE `l ERASE ▚▝ LOAD  ERASE _$ ▝VAL$ $V(6vBIN qqqqqq▝<&FN ▝f&▗▝NOT $z▝ NEW qqA!t1 DEF FN <▘'[U]0L▝ RETURN  TO ▝▝ABS !▝['▝[D]21▝ LET ▖ LPRINT ▘<▖  COPY $▝$ RETURN $BIN USR L▝h LINE Zpr4r4r424p BORDER H4▝ PLOT  [A]▝+@[M]▝ IF r@r4r4r4B4▝94▝A4▘[O]▘C"FN [O]yyxJ▝ COPY $[G]▗ RETURN  LIST (F:▝0cH▝L^USR dL▘ DATA X▘^ CONTINUE (8L~▝j)▝[F]▝N▘u8:[Q] PLOT  ▝p$ REM $▝(& REM ▝:Hf▝▝'▝ ERASE TAN x@x@y*▙▝ LIST 8L▝(j▘0?: LPRINT @▝ AND  TO FN l TO [G]▝')(~v TO  LINE ▝ RETURN #B RANDOMIZE  CONTINUE N▝ OVER  DRAW ▘$▘*▘SGN ▘ IF ▘H▘/▘STR$ BIN :PUSR ▘ vvUSR yCHR$ v LINE tttD▝,$▝z$▝n$▝4tt3[A]ACS ▝ STOP TAN ▝:▞>[U]USR R GO SUB RLN  IF  DRAW ▝t$▘[L]#▝Q▝z[E]z[O]▘NOT ,&▝▙v▝ COPY j▘©%j▝ COPY ujj0▝▝&$USR d▘(s CIRCLE  CIRCLE ▘@ CONTINUE ▝ NEW &▝yFN   TO USR ▝@USR ▝-USR ▜INT ▗USR L▝T IF t|t CONTINUE `j POKE BIN ▖Uh STOP SCREEN$ [H]{B{L{V{`{j{tp CIRCLE @ CIRCLE ▝AT ~ LIST p CIRCLE ` CIRCLE ▝TBIN ▝$%L▝Z0▝VAL  FORMAT USR ABS  TO ▝ LIST ▝X*▝CHR$ ▜# RESTORE TC&0▝G SAVE ▝bF$▝▜ [A]ATTR  REM [C]Q CLOSE #-VAL$ + ERASE |||| |*|4|>|H|R|/|f▘<=- INPUT ▝ CLOSE # FORMAT + VERIFY USR  ▝[D]6[H]'z▝i!SCREEN$ T[A]Z▞ INPUT J@TAN ▞ DRAW U GO TO IN * INPUT <= MERGE H FLASH NNNOPQQQQQ[A]▙▖▚▗▘▝▝#IN ▙▖▙▜NNNKKIN LMNOP/:.0.4▙▙▙▛▛▟▙[A][B]TAN [B][B][B][B][A]▙▙▙D CAT KKKLMNOPiAT PPONNLEN ATN VAL MLLKKJKLLMNNN RANDOMIZE ▝ DRAW IN ..▙▙▙▟▛▛▛▟FN ▙▙M REM [D] FOR TAB  PAPER ▝ BEEP ATTR !z[M]KKKKJJJJ!J▝K!JFN KKKK7FN [K]▝IN ▜NNN[U]▝LN PEEK ▝N! READ NO▛N[M][N][C][A][I][K]! INVERSE [F]MMMMMMM PAPER [D][J]▞ INK ▞:LEN  SAVE IN NNNC'| OVER [Q]N[▝ FOR ▝M LET  IF ATTR JIIK DATA [A]▙▖▚▗▘▝[A]/▜▝▝▝ LPRINT ▖ BEEP [N]POINT 159<<9518<50F[B] DRAW  ePOINT ▞▞▞▛▛#<▝▛S<IN !f-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]▗UU######MM.../ACS ![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]#{▝▜▟[D][J][D]ATN  FLASH  LLIST  BORDER  GO SUB  NEXT  RANDOMIZE [E]L[T]▝IK▟▖[Q]▚##@ FLASH [L]$op OVER p OVER p OVER p OVER   OVER ▖ML GO SUB [M]JIHGFEDCBA#[G]▝[D][S][B]###/ ATTR ▜##q DRAW ▛.;TAN qqqqA[B]#ATTR [A]RND▙FN ▜C[D]▜$Y[A]pATN ▖###F▚%1r1r1r1"1▛FN ▞#▛#▞#▜###▝#[H]#[J]#[L]#[N]$1[G] LLIST rLN rLN rLN rLN "LN ▞ LLIST ▘ DEF FN ▗ RUN ▜[G] REM qSCREEN$ SCREEN$ ▟####q%)[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B]2$▘#p`1b..[S]MMU*▝ttt[G][B],[A],▙,,,▖,▚,▗▙++$  TO ▗x<▛...G[L]++▟+▛+▞+▜+++▝U/t[C]t[C]t[C]t[C]T[C]▚3!2$px0x▘t[I]T[I][O]$]+[A]+▙+++▖+▚ LOAD  PRINT  CLS ▛[B]%[B]f▚..slASN SGN ▜bIN G CIRCLE ***************RQRRSIN TTTTTTSQQN▘O▝O9▝O▝PP▘P▝P▝P▝O▝O▝OIN ▝O▝T▛T▛T▛T▛TT▛T▛T▛T▛AAAAAAAAAA[Q]AAAAAOOP46RNDVAL$ TAN INT USR  AND  TO  ERASE  CIRCLE [E]▛**▟*▙*TT<>TTT<>TAN O▝O▝O8▝RPTTTTO▛O▛O-▛P0▛P/▛P'▛P;▝P>▘▗[A][G][M][S]FN VAL$ TAN INT USR  AND  TO  ERASE ▚49m[G]▜+▜+▜+▜+▜+▜+▜+g[U]▜*▝*▝*▝*▝*▝*▝*▝*▝*▝*▝*▝*VAL$ ▘**▗**▚*▟*▟*▟*▟*▙**▙*** LIST SQR **A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]4*▟?USR S*N*M*L*K*ATN ▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*******p[D]P[D]@ ERASE ▖▝*▝*▝p COPY p COPY p COPY pUSR pUSR pUSR pUSR 0USR ▜4B<> FOR ▜*▜*▜*▜*b▟▜*▜*▜*▜*▖<> CAT ▜▞*▞*▗*ABS 4qw}▞[F][L][R]PI@ OVER [U]▙*▙*▙*▙KKKKKKKK!SGN ▙▘▙▖r:r:r:r:": CLOSE #▚*▜*▖ATTR r BRIGHT 2 BRIGHT RNDpATTR @ATTR  ERASE  CIRCLE  OVER  DATA *sTAN #TAN RR CIRCLE VAL$ Q----*▛*▛TTTTTT--r INPUT r INPUT r INPUT r INPUT 2 INPUT ▘U*▛*▛*▛*▛s[D]▘▛#[D]▗▛*▛PRND▝[F]▘T o▗Tu▘T▝▜TOsTAN }▘#TAN ▝}[B]------ AND  CAT -tMtMtMtM$M4 CONTINUE ▜▖*▖St8uIN TRRS3SSSRRRQQQQQQO▗O▘O▚O=O<VAL$ ▘O7▜P8P:▗P:P>▚P>▜T!▛T%T)T-▞T0▖T4▞T6T8▛T;uuuu0 CAT [R][E]@@SCREEN$ @" INVERSE U LN  RETURN @1`USR < GO TO RJ COPY 266< RANDOMIZE  RESTORE 6z OPEN #& CLEAR w FOR j IF VAL$  ERASE j GO SUB TAB SCREEN$ kmVAL kUSR [R]mLN  MOVE Em[N]COS mmVAL$ ACS  INVERSE rACS ASN  INK :ATN m[L]z FLASH u^ACS  FLASH SQR mACS  INVERSE  FLASH mDUSR G USR D▛STR$ [C]USR ` LIST [R]R POKE 36[P]©[M]k@w@U ACS USR <> LPRINT c@ RUN STR$ o▗" *PEEK PEEK USR ©`©@> ^▝> NT DATA ▝c▜ READ USR STR$ [Q] TO Gp READ [E]] 4IN z0TAB / IF  CLEAR  PAPER 4 SAVE t8| RETURN  COPY [C]@[D][Q]<= FORMAT '[A]▙P[Q] CLEAR  FORMAT u CONTINUE - FORMAT [E] RESTORE  CONTINUE ; POKE K IF  LET  GO TO WATTR  IF <>G pIN pSTR$ ▖>d<> FORMAT 6hFN  RUN  CLOSE #ACS  CIRCLE [S] CLOSE #STR$  CIRCLE  GO SUB TAN Qh READ  CLOSE # INVERSE FN SIN BIN $©2' GO SUB  PAUSE B NEXT [R]C[Q]> LLIST C RANDOMIZE  LLIST AoSTR$ I[O]<>% RANDOMIZE  ERASE ©|[N] FORMAT  NEXT  LPRINT ©? RETURN {co<>G▘ p AND ▝CODE ▘▜IN  STEP [[R]▜9 LET _ LPRINT 2[J][P] FORMAT   OUT  CONTINUE $J[P] POKE k_ SAVE [L]IN  POKE  NEXT  COPY  IF  FOR  INPUT  DRAW  RUN  INPUT  IF  BORDER  OUT tu OUT x MERGE  CAT TAN TAB USR 8 BORDER 0(RND(8 BORDER 8<>GSTR$ VAL$ ASN SCREEN$  LLIST ▘AT ASN `▗SCREEN$  FLASH  SCREEN$ 0 MERGE VAL$ [P] MERGE UU@ FLASH VSCREEN$ [Q] FLASH UUP CLS SQR ZSCREEN$ SCREEN$ ASN ASN , RUN vINT SCREEN$ SCREEN$ FN  CLS  CAT n▖@ PRINT @[B][S]j VERIFY [G] LPRINT 5iU[A]SCREEN$ Mt.SIN  GO TO SCREEN$ U7 PLOT   OUT ASN ▘ PLOT   OUT  THEN B▘DD [L]: INVERSE  INVERSE SCREEN$  MERGE kU MERGE ATTR SCREEN$  VERIFY ASN UINT ASN SCREEN$ SCREEN$ ASN UTAB  VERIFY SCREEN$  GO SUB W[F] PAPER TAB USCREEN$  MERGE SCREEN$ SCREEN$  MERGE U MERGE [SCREEN$  MERGE ATTR UACS TAB SCREEN$ ACS TAB U0I( VERIFY ▙=O CLEAR IN  REM uPSCREEN$ P[Q][G]▝&p([G]`SGN IN  PAUSE W RETURN TAB W[L]ATTR  LIST @4USR ▝[Q]`]@0SCREEN$ TAT F[T]AUSR ` PRINT ▝0 `@:▝ INVERSE [J] LIST © DATA  DRAW  LLIST {<=▟|USR 0r▚BB." DIM ▘ TO [S] RETURN [Q] IF ATTR © CLOSE # POKE TAN ▘< REM @▘?u@▗INT  $▗[N]) CIRCLE ▗ OVER h# LLIST ▗ INVERSE @ CLOSE #"©▗ INPUT [Q] CONTINUE "▖ LOAD @0▗ FOR [Q]=FN #V▗kP} FORMAT #b[FN  FOR  LOAD ▝z▘ MERGE  RUN  COPY ▝u▘kATN ▛ IF [Q] RUN ©ATN @ COPY PIN ACS  RETURN  COPY FN  RUN IN _C COPY  CLEAR m CLOSE #w OUT ^IN  RUN [O]. CLS  NEXT ATN  OUT _} CAT }7©;SQR  OVER  OVER  READ 3 IF  INVERSE SQR  INVERSE  LOAD  OUT  COPY  PRINT  RUN  GO SUB  FLASH  INVERSE  LOAD  OPEN # RETURN SCREEN$ 9 FLASH ABS [M] LOAD IN  PRINT P OUT  INPUT  MOVE m OUT qSCREEN$  FLASH  PLOT   POKE m OVER T CLEAR INT  INPUT  LOAD  OUT i▜~[N] OVER  LOAD [D] PRINT  LPRINT ▗ STEP  OVER  LOAD ?
  4806 PRINT  OVER  RUN ©#▚ PRINT ABS w~" CIRCLE ▗ PRINT EXP wmsCOS {j AND QATN ABS  CLEAR RND ▝ PAPER 0ABS ABS  INVERSE  ▗;}ABS  OVER  $▗?{ LOAD  INVERSE  6▗- CLS  LOAD  RETURN  6▝-<0▘© COPY  CLOSE #Jq▖ RANDOMIZE  Z▗kmju#D▗[ok[R] l▗Wq[I]m#V▝W-#X▝V{▝*I▗:^.>#j▗: COPY w© ▗> LOAD ww#|▝6 $▗V OUT ©w TAN 0$▝v#[Q]▘v COPY @Q#SIN ▗Z© COPY  RETURN  ZZ LOAD  RUN 0l▗Z COPY  COPY  CLS  l▝ VERIFY # VERIFY ▝ACS P~?# CONTINUE ▘j LOAD @~▗ PAPER  LOAD {g# IF ▗ PAPER  OUT {[0 OUT {K$ BRIGHT  COPY ©g*▝VAL$  AND  ▝ACS Z SAVE ACS  RUN  COPY  RUN  $▘ INPUT  COPY ~▝ OVER [A]▘ OVER [S]▝*AVAL$ IN o{ ▝▚n~>:U CLOSE #▘= PLOT   ▗ATTR GF# DIM ▘FGC LIST `>=B▝G00USR F`p ,0▘[S]u`▙?>=jTAB jjFN jj[Q]}PLEN [D]4j8 MERGE 0)h FORMAT PPOINT `BP<Fw▘Z[G] LIST 0USR #▝XfiF[B]! INT  PAPER  FOR -▙ COPY  COPY SCREEN$ SCREEN$ UU▖▖""[B]@GG8z CLEAR  IF  PRINT SCREEN$ T(FDnE INVERSE [G]UTIN  IF X[E] LOAD  INPUT w BRIGHT  CLS PEEK t/ LOAD  INPUT _ POKE IN  IF UT GO TO [G]▖ LIST pSTR$  COPY [E] CAT  FOR  MERGE S IF _ COPY  COPY  LIST  GO SUB ATN  DATA W NEXT O|> LIST STR$ A0(u^SCREEN$ ATTR  PRINT  COPY  COPY  LINE ATTR  ERASE S IF  OUT <= READ  CIRCLE p(STR$ F NEW B:[Q]EPFN ▖ AND ▙ LIST  FORMAT [Q] FORMAT [Q]@[Q]K0[G]LN LN LN x LIST  LIST  LPRINT USR BBEEp>=VFN u6 CIRCLE : CONTINUE : CONTINUE [Q]&Y▗7 OUT o▘PEEK  COPY O▗} RETURN USR F CLS  CLEAR `M RUN  IF VAL $`▘ RESTORE X[ OUT CHR$ AT b▘IN ▝$▗©~ATTR $ DEF FN ▘ COPY U▖ CLEAR  COPY SCREEN$ 9 CLS  COPY  MERGE 9 RUN  COPY  REM 9 LOAD  COPY  PRINT 9 OUT  COPY  IF 9IN  COPY  CLEAR  9▘~979>9E9▘ COPY  CLEAR  9S9Z9▘ COPY ~@9▝9orvr}r▗r▛r[C]r[J]p9CHR$  COPY ▘U ▘SCREEN$ USR  ▘ REM VAL  ▘ PRINT X #▘ IF AT  *▝ CLEAR   PAUSE [Q] 8▘ RANDOMIZE P00*▝ NEXT 0*▘ PAUSE FN p$LEN  LPRINT p8p8p8pF▝ RANDOMIZE b▝b▘q<=▗ LPRINT  CLS  LOAD PEEK p0▝VAL  ▘ PAUSE FN p0[K]▝ RETURN 0pP▝INT 0FT▝ACS 0 ERASE m COPY  DRAW  COPY  COPY VAL$ CHR$  AND ▗33~▘ TO  TO @pp @p?@M▝SGN TVAL$ i▝ CAT r COPY ©| BORDER  SAVE  ▘ NEXT  PAUSE   DATA ▛< DRAW CODE  COPY  COPY  PLOT   DRAW  CAT O BRIGHT  CLS  LOAD  LOAD IN ▗t LOAD SCREEN$ j▗t CAT  BORDER Tqx LOAD  LLIST D▗ RUN  OUT SCREEN$ 9▗ POKE  CLS [P]U9 POKE  SAVE ? ▘BEt[B]▝BtAT <>BUSR C@$ PAPER ▝F THEN E[F]@▘ ▘▖`@r▘EE3 BEEP  INVERSE +0▝) OPEN #qABS XpmVAL VAL$ ` AND ▛ PAPER  FOR ACS $,?SGN ` FOR  CIRCLE ?[G] LPRINT 7l VERIFY 6 CIRCLE v-ATN =COS pASN FN  GO SUB FN F[I][A]▘ AND DU[R]6 CAT AT g▟VAL Zv<=mATN YVAL$ c DEF FN ACS  LLIST  BORDER U AND !▛ PAPER ▚ FOR ACS  OUT $-?ABS UIN [G] READ [P]7oN{VAL$  FORMAT  FLASH  MERGE U[F]TAB ATN ABS COS sUSR ASN ATTR b GO SUB ATTR  LOAD F[K] STEP [D]▜O`UU![M]USR 0>=.t,t^zVjT*_ IF *TAN -T>=0USR T MOVE 0([E]  FORMAT PPhHH CONTINUE [A]P OPEN #▝ p(,ACS  LET  PRINT  RANDOMIZE P@▝pPPPB[A]FN HH CONTINUE pPpx@[Q][A]-TAN + CLOSE #VjU*TSCREEN$ Vj+ CLOSE #-TAN p[Q]v+v+V+[A]+▘UUv++0▟$[H]ATTR u IF  INPUT  LOAD  CLOSE #[K]LN dUSR KHq|RJT[K]RPOINT SCREEN$ ACS  GO SUB kASN  FORMAT [Q]/5PEEK HaR[Q]▗ RESTORE @C OPEN #AT LEN [T]P'I OPEN #[Q]▘[R]@USR STR$ USR `@ LOAD ` FOR STR$  FORMAT w(yBIN  STOP rP REM &T6/ LINE RNDBIN  PAUSE ASN RPOINT  GO SUB ASN Z VERIFY STR$ CR|RND[D]▘;IN `dBIN >=%VAL$ `R0`k[L]INKEY$USR 1ASN +@1u(&[T]Q LPRINT T! OPEN #0i[H]U▚s[U]4[B] ▖FMMTHATTR r![A]▙ PAPER  STEP E DATA 6 LINE SCREEN$ -[A]- COPY  LET   CIRCLE rW<[B] LPRINT FN  CLOSE #? REM  CLOSE #[Q]USR [Q] AND ▚P'FN U] ERASE [Q]ABS  INVERSE [L]▘0S9▚TAN  CAT :▙[E]OZVAL$ [B] AND HeSTR$ [I] READ E OPEN #SCREEN$  READ  STEP  MOVE VAL$ ▞TAB TAB  OR xeoo OR ▙1{ TO {^ASN [O]CHR$ mABS r OVER IN  FLASH ▝©`▝ CLEAR  PRINT  COPY SCREEN$ SCREEN$ <<▙©TSCREEN$ PEEK  BEEP  RETURN IN  DRAW  OUT  RETURN IN x COPY INT ▛SIN IN t OVER  STOP IN ▗ OUT  CLEAR TfW~[Q]zSCREEN$ ~USR ]"wp;Jo LPRINT ©VVFN y[S]mp7 LINE =[Q]nSIN z@_SCREEN$ j FORMAT ' PLOT  A[E]7 LOAD IN  LOAD  DRAW  RUN z^SCREEN$ LEN <>PIBB/xn POKE <[G][N] IF  IF  RUN  PRINT } FOR  REM  IF  RUN  PRINT  PRINT  FOR  COPY  IF USR  BEEP  NEXT  COPY [Q] FOR [K]P COPY  IF  COPY [Q] COPY  CLEAR ©@ COPY  IF  RETURN [Q]= COPY  PRINT ©P: COPY  REM  RETURN FN  CLEAR T COPY ▘FN [H]T RETURN [I]▗ LLIST U6]~| TO GLN  STOP ▘© LPRINT  BORDER ▘'g▛ COPY  RETURN +▝ RETURN PEEK ,▞ SAVE  COPY  DRAW  COPY  DRAW p▘ SAVE ▘ LIST ▘ STOP N▝STR$  INPUT ▗ COPY [D]` LIST @USR @0 # DATA  DIM {▘0 DRAW k▘[P]5▗ ▝▝▝ MOVE F©USR ©USR ©USR FN [E]BIN ccT©USR ©USR  GO SUB  ERASE F NEXT  LET /USR [L][R]Co LLIST C[O] LLIST W RANDOMIZE ASN ?©~[N] BRIGHT  LPRINT 4 COPY [G]{©USR IIN [A]@ LPRINT p8[O]▞ GO TO tLN  FORMAT © LPRINT  MOVE ▝ NEXT H DEF FN ▝ CONTINUE  STOP SQR / LIST ▝v▝USR RND LIST [R]R POKE 36 VERIFY [N][M]k@w@U ACS USR <> LPRINT c@ RUN STR$ I> REM ▜ COPY ]@ FOR 8(sv0©▝l▜ TO sl TO fl AND 0f© RETURN f? GO TO ▝ LOAD 4 ©© BORDER  COPY  REM LN  COPY  PRINT / COPY jVAL$  COPY uV©:ATTR ©W© RETURN  COPY GGDb▚1 BRIGHT >=G▗DFFDHP[A]U[U]IN  OUT  MERGE  LPRINT  REM SGN  GO SUB W PLOT  SCREEN$  LIST uU_vSCREEN$ ATTR ;UU:SCREEN$ ATTR =UUSCREEN$ ATTR  MERGE UjATTR UUSCREEN$ ATTR ASN U PAPER ATTR  MERGE U REM ATTR  GO SUB UvATTR ▛{U:ATTR =U▞[D] MERGE © COPY k© COPY 5[I][I]'[I]x[I] COPY [L][J] COPY 31 OUT 33SQR 33IN 37}36 CLEAR 3> RUN 3? LOAD  COPY  COPY o[R]▙ RUN  BORDER  CLS y CLS USR © LIST '[L]<y FOR ~© CLEAR  RETURN  CLEAR  RUN  INVERSE  LOAD  OUT / CLEAR  CLS [E] CLEAR ABS IN  INVERSE IN  OUT w OUT  COPY  COPY  COPY  CLS  RETURN [I] CLS  COPY  COPY  COPY / OUT  LOAD  COPY G[L]9O RUN : COPY yO CLEAR zABS  RANDOMIZE  GO SUB  IF [P] LOAD  RANDOMIZE _ LOAD  DRAW ? RUN  COPY  COPY w:a▞ RETURN  CLEAR  INVERSE  COPY SQR  OUT  COPY  CLS  PLOT  SQR DDG7SQR 3▝F DEF FN D[P][Q]B▝INKEY$▗x{ COPY m[I].[Q] FORMAT  LPRINT `USR @STR$ V< LOAD ▝PEEK ▚@@[S]▝ CAT ▟[A] FORMAT  LIST 2VAL )` LPRINT P( H[U] IF s[B] (`@ FORMAT pVAL `USR PP $-STR$ X▖▖ LIST VAL p px0z[I]@USR  H[Q] FORMAT P SAVE XVAL `p[Q]▝x zk[B] FORMAT - LIST LN  SAVE P[Q]P>=▜0&CHR$ ▘&▞` LIST x▝p(▝[O] DRAW [O][D].,USR [Q]6 LIST ? LIST [Q]`0>=8 RESTORE 'A@ ©▘UU0▞<▝ READ ~P!P▞USR 8G LPRINT $Hp,▖<<=▝©A  IF `xW▘▖▖ CLS ▘ MERGE  MERGE ▘▗((USR t▝8-INT ▝dw?p*y▟[K]mSCREEN$ ,jl>=©^2▞;`(▝l(XPip( INPUT [I]pP0PvdBIN pP!▗▝ SAVE  LOAD ▖| GO TO BIN  LET ▝AT ▝pACS ▝@z OPEN #_[T] STOP ▘USR  STOP  NEW [Q]U?"_<=8 LIST 8`▛FN  FORMAT FN P DIM ©r`▗ DRAW  SAVE [Q]P▖"[Q]%PO SAVE  DRAW pP▗▟ SAVE `? SAVE ? POKE © IF © PRINT  COPY  REM  GO TO ▛ REM  COPY  MERGE © REM © CLOSE #?FN P(6 CAT ▛<j MERGE ) FORMAT POINT B<Gw[L]© CIRCLE ▖OCOS /FN PI FORMAT  CONTINUE  FORMAT  CONTINUE  VERIFY CODE i[N]INT USR <USR zUSR u CLS [S]LN ▟[Q]Q)1[M]▘2% CAT  STOP  RESTORE 0▝INKEY$ TO GL LINE ▝VAL$ ▖ LPRINT ?VAL  LPRINT @$ABS ?[K]aq▙8[M]LN VAL ▚VAL CHR$  LPRINT s LPRINT 9<= OVER  SAVE USR 9 OVER ? OVER ▜ x DRAW ACS ATTR FN [B] CLS USR © LPRINT 5 LPRINT [Q]PVAL `USR  RUN  AND ? LIST { DRAW ~ PLOT   LOAD  FOR  COPY u FORMAT TBBo▖0x DRAW  RETURN  RETURN SCREEN$ /0)#[Q] LPRINT P? CONTINUE >LN } CLOSE #wd CLEAR [C] REM SCREEN$  INVERSE  PLOT  QABS  REM ▞pTB( LIST STR$ CHR$ ▘IN ▘? LIST  CLEAR  GO SUB  REM PEEK  LPRINT  CLEAR  MERGE /?SCREEN$ FN ▘} RUN !{SCREEN$  REM ▝ MERGE wDQ[Q]VAL$ ▖▝]BF*!M .▝8 LOAD ▝USR  OR CHR$ , INPUT ABS `© LIST  REM AT  CLEAR  ERASE  REM POINT ] IF ASN Uq?SCREEN$ !uqQ.*▘tBIN BSCREEN$  INVERSE >=$SCREEN$ [E]▗ FORMAT J!@`U AND CHR$ ^TAB  MOVE ~IN  COPY i#SQR qRATTR jSQR ++R OPEN #SCREEN$ wdSTR$ "+4STR$ B,STR$ @*8▝@&(▝8(▘▘ OPEN #▝nr$LPPpm▘BB▘BBHCOS Ef[H] LPRINT  FORMAT   REM [Q]t`8@4@ &[A]@DHP-INKEY$POINT ▟USR 0 LPRINT (@[G]0@▗EDED&LEN [F]SCREEN$ SCREEN$ UU( INPUT VAL$ 7{ COPY mCODE ASN  BEEP  IF © INPUT  TO USR  AND |LEN ▖ INPUT VAL$ { COPY CODE ASN  IF © NEW [I]77 INPUT {zCODE SQR  FLASH  FLASH ATN  POKE ACS >=OmSQR ; CAT  VERIFY  INK  LOAD  INPUT  FOR 
  49347▘ / CONTINUE [U][E] +=▘BD$▘▖ CONTINUE  RANDOMIZE  FOR [H]▚FDBB&CHR$ >=<>▝nr$LPPpm▘BB▘BBHCOS Ef[H] LPRINT  FORMAT   REM [Q]t`8@4@ &[A]@DHP-INKEY$POINT ▟USR 0 LPRINT (@[G]0@▗EDED&LEN [F]SCREEN$ SCREEN$ UU( STEP [U] OVER  NEXT  GO SUB s▟!PEEK ^d MERGE  GO SUB VAL ![T] OVER  RUN ▘Q<> GO SUB LN !▚RND[Q]~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[^ LLIST ; LET w IF 1 NEXT NOT R[R]NOT  DEF FN NOT  DATA NOT "▟NOT  STEP ▟NOT A▙NOT  OPEN #▙NOT SCREEN$ ▙NOT }▟NOT  LINE NOT  BORDER ▙NOT  LOAD [A][H]NOT [R]NOT H[S] STEP  OPEN #▙<> STEP  NEW >=2 ERASE PIUSR >CODE  STEP A▙ STEP  STEP ▟ INVERSE !7 INVERSE ~!ACS _PEEK  > INVERSE n INVERSE f OR  INVERSE N INVERSE F NEW  ERASE  STEP "▟STR$  INVERSE # INVERSE #TAN  INVERSE # MERGE : POKE < RETURN  CODE 2 POKE <> OR PI(G( CLEAR  FOR  LLIST  STEP :▟NOT ABS ▟w#wPppp p(4▝#p8p@pPpXp`ph@x▘<> LLIST p▝Q▜<> INVERSE ![G]p DIM  DIM ▗ INVERSE f DIM [I] INVERSE Fz CLOSE # STEP ▙STR$  INVERSE  PAPER : INVERSE ▟< RETURN  DATA  INVERSE ▟<> GO SUB C8▙PI( RESTORE  FOR G0 DATA [J] INVERSE F RESTORE  MERGE  OR  STEP 1▙*8▙##"8▙STR$  MOVE  LLIST ## FOR <> RUN  STEP }▟!@ CLEAR t▗ AND Q]▝;]▗ INVERSE f]▜ INVERSE F~ MOVE !]!q[P] STEP SCREEN$ ▙( INVERSE 6 COPY  OR  INVERSE  RESTORE  STEP ▘y STEP } STEP h[B] INVERSE  LLIST STR$ !LN _4 STEP  BORDER ▙q▘A▖▗SCREEN$ :Q▙A▖[G]Q▙<>:INT _ VERIFY  RETURN  0ABS 0 AND ABS 8:SQR [C]0SGN 0 AND SGN 8> COPY PI<>CODE PI<>▙[E]▖ INVERSE ~ INVERSE w GO SUB [G] NEXT <>:LN _PI  STEP  STEP "2 RETURN  >F# RETURN @CODE P!aZ[A]cZ!eZw#wIN <>giwgtwj OR wi[T]wgdwj PAPER wjNOT wj TO wh▚wk LOAD wfFwlxINT h[B]wk LET wfZwfQwk RANDOMIZE wk FOR wk DIM wtytytyty ▘▘CODE xxs NEXT xiAT wp[F]x INVERSE !{[A] INVERSE  RESTORE  OR ▚ INVERSE ~PEEK  . INVERSE nAT ▘>[A]▗▟[A] INVERSE  LLIST 1SQR  INVERSE ~P▟~ INVERSE w STEP 1[A]STR$  INVERSE  LLIST 7▖SGN <> INVERSE ~PI &$▖ RETURN (< INVERSE w LET ▗SGN (/ INVERSE w,PI(=`%▗SGN ( DATA [L][L]<> COPY  COPY  RESTORE ! RESTORE PI(Ci MOVE  RESTORE  FOR  STEP  ERASE [A]STR$  MERGE  OR  MOVE STR$ ▘3nr#v▖ MERGE  MOVE  DIM CP▙<> RESTORE d MOVE  RESTORE  MERGE  LLIST }l&CHR$ )w_ CIRCLE [O] FOR  LLIST <>:ABS _PI(# RETURN (|P> STEP %[B]:CHR$ _yPCODE @▗|P@▝CODE ▗* LINE _+▟>O>[B] MERGE GUSR  [R]▖ # OR  MERGE  GO SUB [Q]#IN  MOVE  STEP S[B]STR$  INPUT <>z NEW USR { AND  _ CIRCLE z VERIFY W<>NOT t[B]NOT w[B]NOT z[B]NOT }[B]NOT [B]NOT [B]NOT ▚[B]NOT [G][C]NOT [I][B]NOT [E]NOT 2[O]NOT 7[Q] STEP [M] STEP COS [M] STEP ▚[N] STEP  MOVE [M]:ATN [T]▜2 INVERSE !H[F]!INKEY$ RETURN  COPY ($SQR ▝CHR$ IN 3 VERIFY  STEP }[H]▝ DEF FN [G] BEEP NOT PEEK [D]:EXP _ THEN _CHR$  BRIGHT [L] THEN gCHR$ -[D]<>2 RETURN ▖H[F]Gd CLEAR @<▗SIN (▜y STEP LEN [D]qQ F INK Gv▗~PI(CHR$ &=G0a▝ RANDOMIZE "9[C]PEEK CHR$ K[C] INVERSE ~ RETURN  OVER ( INVERSE n INVERSE fI▖ INVERSE n INVERSE f DIM 7▖2[C][L]CODE wNOT  INVERSE [B]ABS ▚:[C][L]PI('pFF▝:©▘w LINE  INVERSE wIN ▚ AND  INVERSE wCODE 4▘ t▞ LINE  LIST [C] STEP yNOT  DEF FN [C] ? ATN ▝ OR  INVERSE n INVERSE u<>▗ INVERSE t`▝0 POKE ▖ READ CODE 2[A][L]2[B][L]s▞ STEP =[D] STEP  LIST [C]NOT  GO SUB [D]DVG]PEEK [D]CODE  OVER w<> PRINT @[J][G] LET wNOT W[C]:[A][L]!POINT P"$[D] STEP [D]:[B][L]!<>▖PI ![D][L]r▝  PRINT [O] IF  RESTORE  INVERSE  LLIST !SCREEN$ P[N][D] STEP  CIRCLE [B]:EXP [L]PI▘ EXP [L] INVERSE ![R] BORDER ▝V?▙ STEP ▜[D] STEP [C][D] INVERSE n INVERSE f STEP i!ATTR ▞x[D]<>"▖[D]POINT [L] AND $ IF <>"[D][D]LEN pP▜CODE w$ CLS p▙ CLS <> OPEN # RETURN {[B]  CLEAR ▖_  LET <>![A][L] PRINT ▘ FORMAT ▝ LET  LET ▗v[E]## TO ▝S FLASH ▝^▞ INVERSE ~ INVERSE n INVERSE f%a5 NEXT ▞ CIRCLE <> INVERSE *USR [D]:NOT [D]&▜ NEXT NOT G[E] STEP  VERIFY ▗ CIRCLE v THEN ^USR  POKE  STEP  CONTINUE  LOAD  INVERSE !W[I] REM ▘W5▝G39▝STR$ [S]0]▝ DIM 6K▛ FLASH NOT [C] INVERSE *[E]:[E]pZv▟CODE 2[M]2COS [M]2▚[N]2 MOVE [M] POKE !~[F] RETURN AT NOT  READ [C] COPY [B] COPY /L COPY C COPY / COPY 4M COPY  COPY 3▝ ▝ ▝ ▝  COPY 4MN3 ▝ ▝ ▝▜ COPY ▝▞ ▚▛ COPY  COPY ▗1927 COPY P▘▘▘QTAN ZLEN ▘}TAB I/][I]bo~ka s neftx`0[U][I]USR  ▖pistolet COPY %<>[I] COPY USR STR$  amu0▟  INK [I] COPY 6▜kame{ek%▖ DATA l▝p [F]/[I]staq 0PI@ PLOT  [I]mo}nyj dinamitn[S][J]wzrywatelx  .;[J]@P[A]emkostx COPY .L[J]/▝@[B] polnaqO[A][I]3[A]motok werewki J PAUSE ▗LN [K]STR$ [A]|lektrofonarx ~ FLASH  ▚pogas{PEEK ▙swe~a=[L]6gorq}P j[K]1)▝r`allj▗[J]x{iw PLOT  [A]baks? THEN [J][F]novi~1_▘>▛▗ NEXT [J][S][K] me~ kladenec 2$[K]▜▞lowa drakUSR ▞p▛ grozootwodQBIN ▝0<> ▘rq!er ognem▛▝[L]"7MertX[S]▝▜ POKE )!est^▝n▘©HC!)otboj CONTINUE ▝mATTR tm"▖kusa~[C] NEXT ▝c▜q!_predohraniD[L]R  lmnic ▜▝▖ CLEAR >1VAL [O]uskowoj ry~ag▟[K]> COPY 2|[E] STEP  INVERSE [C]&.0▝ STEP  INPUT ▘ DEF FN [C]▝▙▝<>0>0.6▛[F]2[F]2$[F]2*[F] RETURN  COPY z▚.&>G▛&. STEP SQR [L]CODE 2v[E]0a3▝CODE cA▝c0I▝▘PT▝<>▗0[F]>`▘ PLOT  [F] z▝0[J]: PLOT  [F] f0VAL i. i[A] CONTINUE [E]2 INPUT [E]2 POKE [E]2 IF [E]2[F]2[H]PINT ▝ INK ▘>0s :▝▜IN  MOVE [C]>2TAN _>X2ASN _ STEP  OUT ▗ STEP a[N]CODE 2[E][E]2[K][E]2[Q][E]2INKEY$[E]2AT [E]2SIN [E]2LN [E]/2PEEK [E]2 STOP [E]2BIN [E]2 LINE [E]2 FORMAT [E]2 VERIFY [E]2 BRIGHT [E]>▝&<!▝7▝ MOVE  [G]▝'▝ COPY .>0[P]>©▝U DATA  LINE  REM [J]=2LN _ STEP SQR 1w>[O]▝t▘.>▝sc▗2.[H]©▞COS [M]CODE 2[F]2[F] /▝a b▝ CIRCLE ▝` CIRCLE >1> PAUSE ▝s▝64▘h[K] [C]▝@ RUN ▝ RUN ▝1@ RUN  RETURN [N]!SGN _ THEN  VERIFY <>& DATA ▝ LET CODE 2▖B>1c>A▞LN _ RETURN  PAPER [C] VERIFY 0BIN ▗CODE 2W[I]"<▝Pz▝l▝B!▝Q▝Q▝B▝▝ MOVE ▝USR  LEN ▝5▝f▝▙▝B+▝▘ MOVE [M]PI[U]▝q[H]▝ INVERSE ▝A INVERSE ▝▝ Q▝▝! RUN ▝bj▝<r>"Q*▝#0y>$%▝B%▝USR ▝%6 COPY 26BJ+▝B GO TO 3J▝tH PAUSE ▛rmanFN PATN P>=P BEEP [S][H] RETURN  COPY  COPY  RETURN 8© COPY  COPY ©8>6 RESTORE  OR  PRINT [N] STEP [Q] STEP  FORMAT ▗vv LET <STR$  LLIST  GO TO <>> THEN  COPY 2[<> INVERSE !D[M]; POKE ▝) DRAW -▚) DRAW K REM ,▝-EXP ▝#?!2[A]2ACS _ THEN % THEN % THEN $ THEN $ THEN $"TAN _TAN ▚[I][B]STR$ NOT n[M].GPEEK STR$ [R]NOT [E] OR 6# CLS STR$ <=▘ RETURN LEN ,▗2▛[M]<>SQR ▛[M]>[Q]▜>M&. REM ▚:[K][M]/2[K]N GO SUB  0▗USR >d▝V▟SQR [M]< RETURN j >d2SQR [M]<> N▗USR > N▝ INK N▝©▜:[N]PI USR ,▘>}<P( THEN  GO SUB }2 REM [M]>zQu : DRAW [M] RETURN (>=2 DRAW [M]▗(1<▚:[N]< RETURN }h▜z2[N]&: CIRCLE ▘GUSR -▘<oO[A]>=NOT  BRIGHT ▗! "IN _>2PEEK _<>m[E]/2[N] BEEP  OR !Co& OR  RESTORE  THEN  RUN ▗ LLIST  9▗ LOAD  STEP FN aLN vCODE STR$  OVER 0ASN ▖USR >.&]▟>▙ SAVE ▝▙G▙[N]<>!INKEY$▞` STEP  MOVE [N]NOT <>[N]>_@▝a▘:FN qFN [N]<>! STEP  SAVE [N]! ▝ ▝ ▝ ▝ ▝7▛ LET <>U OR  STEP [O] STEP PI[N]p▟▖ INPUT <>!#ee▝ RESTORE  BRIGHT ▗ GO SUB [Q] GO SUB [Q]LEN [B] LLIST  FOR  RESTORE STR$  LLIST STR$  REM <> INVERSE ! LINE [Q]bV▝> BEEP ▘2u▗ RETURN ▘8©▚w GO SUB _ NEW 2▘ DEF FN  BORDER *A[C] STEP [K][Q]  STEP 5[P] THEN ©  INK  FOR  STEP [S][O]© PRINT ▚STR$ ATTR <> RESTORE  MERGE ABS !Y TO  STOP ▗EXP [U] MOVE  LLIST COS  GO SUB Km[P]:l[P]<2l[P] OR  LLIST s#r# RESTORE STR$ !/[P]INKEY$#ACS # RESTORE  FOR O▘ FOR  LLIST ppp p p0p@p@pPp`p`p▚ GO SUB Cm[P]<>M./▝n▖ RESTORE  THEN / THEN / THEN /oNp▝wm▖<=<=((INT ▖tt8o[P] COPY  COPY  COPY ▘[B]▖PI>=!o[P]^#V FOR  LLIST pppp(p2p<▜ GO SUB [Q]=PI VAL CODE  NEW W▝"e▜ RESTORE  THEN  THEN  THEN  0ABS 0 AND ABS 80SGN 0 AND SGN 8 LLIST > COPY PI<> LLIST CODE PI<>00  2  USR ([B]  ((((#00CHR$ _CODE 4▖2SGN _2NOT _>PEEK  PLOT  !4X TO  PAUSE [C]![R] DEF FN " AND _!HSQR "BIN _!TAB " LINE _ATN [T] STEP _2 VERIFY _>NOT 2 FORMAT _2 OPEN #_ GO SUB _2COS _!n[B]" MOVE _!q[B]" CLOSE #_!<RND">=%+▖H[S] STEP [S] STEP LN [A]▛PEEK  STEP STR$  STEP e[B] STEP h[B]TAB ▘ STEP %ACS ▘b[B]▚VCHR$ <[S]:ABS  RUN ▛">© FLASH  RETURN  NEW  > CLS (:ATN _PIBIN ?[S] STEP ▙>& STEP k[B] NEXT >> GO SUB G GO SUB V CLS /BIN [R]NOT  TO  PLOT  ▟▙ TO _PI>= STEP  MOVE [R] STEP  CLOSE #>;[G] OR  CLEAR © GO SUB ySTR$ <> NEXT  PRINT  OR  MERGE  RESTORE  INVERSE  RESTORE  CLEAR  RESTORE  PRINT  INK ▗ INK  STEP [/▘(0[E]▚ CLOSE # STEP  MERGE [R] STEP E[S] INK  LLIST  MOVE STR$  INK  LET  CLEAR  LLIST  INVERSE  LLIST [C] LET  CLS <> NEXT ! RETURN  RETURN > CLEAR w GO SUB VAL j INPUT  CLEAR  CLEAR ! OUT [R]" RETURN  CLEAR > RETURN ▘^ CLS <>NOT LEN [R] STEP EXP  PLOT  NOT H[S]NOT N[S] PAPER [H]NOT  POKE [S]>=2O[S]PI(N INVERSE ! FOR [S] INVERSE  RESTORE uPEEK  INVERSE e▜ NEW  R▘CODE Q[A] AND S INVERSE  THEN & THEN +▜%  GO SUB !INKEY$Wpp▝ GO SUB  MOVE V[G]!y[T]~#"ATTR [S] RETURN $(% RETURN #() STEP  POKE &o[F] GO SUB [ IF  GO SUB R NEXT [S]~# IF [D]1/▗CHR$ !0 ▝INT c|▗ INVERSE !E[T]TAN ▘ IF ?AT Y" BRIGHT [S]>i AND S▚CODE w+O▞ MOVE  LLIST STR$ %  GO TO <> MOVE  ▚$y[T]{[T]▟USR [T]TAN SIN [T]NOT [T] BRIGHT [T] SAVE [T][U][U],[U]E[U]V[U]g[U]{[U]▟[U][K][U]PI[U]LEN [U]<=[U] STOP [U] LOAD [U]RNDRNDRND*RND # bezum▜u~e▙▖# sluveb[K]▞podxemnik▛trav pe}ery7tajc▖ komnataH a zlobnogo ~k▝p▘grobit= MOVE `F={`▝ B NEXT ban0o▜zdesx biwi CLEAR ▘iqi▞o~ti dobrl{AT  [S]▝m▘▝o,byt *▜glawnye%▘rop[U]▖sekretom@ CIRCLE ▝n THEN @STR$ ▝#@/STR$ .@ CONTINUE C DATA ▘re0▗gang LIST ▘ we`:}ie BRIGHT da toJQCHR$ .b▘ov IF ▜agregat$[S]# hit CIRCLE ▝m CONTINUE {ahn  LIST ▝dpCODE ▜ #IzZ▗o ! P▝!LEN ▘~u0▝!KATN ▜n q dam CLS ▝s LPRINT ▝`Arog▘mn!e}x!@wi©? ERASE ▘il/TAN us neftx` na/ RESTORE ▝nTAN ▖monolit.<> F@@▘wy-▘elA>h▝w0I▝,a BEEP [D]orwalasxi raskro{il@Y▝xPC@▚▘za&▖dinamitw▘enups VERIFY  =razdalsq DRAW ryw▝!@SGN  TO HSTR$ ▜  ruhnu~▝!©"A▘ot@CHR$ " ERASE ▗benz%▝w LINE @ INPUT Pi▗L▝i▗nety▞▝m{▘po[F]qtxX▝o|uvn[K]▝w3f▝e:[J]qeACS "©PEEK  TO ▝o RESTORE ▝s INVERSE © ERASE © LPRINT ▘ | READ ▝?o PAUSE _ COPY ▗tebe@ CLS 4▖spasibo,3{▝t PLOT  ▝i# RUN {no,aIN ▝q r▗we~aJ▘wnl▟ogasla*|j, LIST ▚tiliq, COPY ▗nxkuY▚najdet▜▝?[D] INPUT beri,esl/▞move{x`|▖kerosink[E]2rSCREEN$  }▘u, PLOT  d▜e ispug,R▗is~e▘<> } CLOSE #apa#7|`ta CAT GemuuJ▚dvordv ▚{ingto TO ▞w t`betej BRIGHT 5r▗Qnow1▙dollar$nu l_▘o,#U8▗arokcr MERGE ▗wkl` ogV▝e>=▗napr#lplamqd lx NEXT r DIM 5 GO SUB Lq SAVE  TO  ▗ledq" INK ▝kY▘arT? CLOSE # 3 MERGE  EXP old#bes[G]▘tnC OPEN # TAB  ,▝nd▘ql▜vi~ek i THEN wradme~ k*▗enecD<T4v,wo OPEN #azi DIM ▜ebqiwan[Q]▘caJT▝m PRINT ▗srub[G]▝nIN ▘wiT▝oUSR drag▝uBlowDPPI▗t kr'▘al[J] ERASE ▝n REM ▟dlq opytow.dag CLEAR [S] OVER ▝rABS 8▞|tu {tukor2E▝d▝l OPEN #▗omoo OPEN #▝d OR zrqdyB{▝i54k[J]9 STOP ▟j |kzemplqr,~RND▘wy OUT X(hotit GO TO %@x|velez1▝k VERIFY ▗raquACS ▗s izO▟4SGN ▝ ▘ne]u▚ LOAD ▘:t x(▗lift PAPER rab▘et FORMAT  ▗< '▘za0&[S]6na~ PRINT ▚nimatxVBwerhnSCREEN$ ▗x e6kru▝{▟▘nk%SIN  ▘to  COPY t GO TO ▝of@COS wozxm$▝j CLS ▛▜nojotbo'©▝m& LLIST ▝k IF !ATN ▝g©/!4Vna{el9▝i# DEF FN D[Q][T]▝qLEN ▝e<=▝aa$V? OR ▞▙*▝ ![B]▘ihSCREEN$ PI▘& ▚nibudx!SIN ▝ 1Fa.w1'1CHR$ ▘ohP ERASE lxw@7&(/▝s▖ READ 7▘ig3▝o([D]▛.  COPY  COPY  COPY  SAVE ©[A] LIST ? COPY  LPRINT @ COPY USR 08[B]` COPY )©??/@5▝~▚ ▝U>SCREEN$ *▝?▚p CONTINUE  COPY Y▝ CLEAR j DRAW  MERGE  SAVE jB SAVE 5 ▝*`▝| $zASN  f▝ IF ▗▘<[A] FORMAT [G][Q]▝▘ LIST  SAVE  SGN CHR$ ▝ RETURN  ▗ DRAW  LPRINT  TO  TO ▘ DEF FN  ▝X CIRCLE ▗cHCHR$  LPRINT USR  READ  FORMAT ▝USR  [R][Q] MERGE @SCREEN$ ?$▚USR :?* OR @ PLOT  ▜Z?=>[Q] REM ▝ ▝?0?Z▝CODE  H▖ RETURN ? LIST ?©V▘/USR ▘[S] ▝VAL$ t▝`USR  COPY ▜!▖▘x TO ▘▗ TO ©3?▘? CIRCLE [I]USR  SAVE  LIST LN T SAVE  POKE Z LIST 4` CONTINUE hf PRINT P REM [Q]$x LET P PLOT   VERIFY [Q] DRAW ▝ STEP  ▚FN ▝ ▝▘PFN  AND [Q]VAL$ ▝ATTR  H COPY [Q]▗▘USR [A]▘}?[G][C][M]▝ CLEAR *▘z8▝▝pUSR ▘ LLIST "H▘USR P!?$@USR ▝L[E]▗E CIRCLE INKEY$0 OVER  DRAW . OVER  RETURN = DATA  DRAW  REM  IF  LIST  CLEAR Tf▘FN f▘T▘NOT ▗ DRAW T PLOT   FOR FN  DRAW  STOP  CLOSE # LLIST SCREEN$ ▝STR$  ▝STR$ P2[T]FN 8▝ FOR  H RETURN FN ~▘x▗7@V CAT [Q]/▝ LOAD B▘wN▝rBqRND▝h▝▘2▝SGN ▗e VERIFY ▝t"PEEK ▝SGN "PEEK ▝VAL "PEEK ▝p LINE ▗8z! RETURN ▘ PRINT ©d▝ REM B▗ OR ©F▝6^<▝F#<▝#<▝▘#H▝PZ2j▝ VERIFY "Fh▗ LPRINT [G][U] ▝ MOVE  ZFRH▝ SAVE  CIRCLE r@qt▘!©F▝USR ":▝ TO @h VERIFY  VERIFY PEEK ▝/"PEEK ▝, LINE  CONTINUE  LINE ▗ LPRINT  CLEAR @d▝ IF PEEK  LET @PEEK ▝▙":▝ FOR #▝ PAUSE #* LLIST PB▝STR$ #6▝STR$ PZ▝ READ "j▝ MERGE "F▝ COPY  H▗INT "4▝} [G] CIRCLE 0st▘|▘▘0[O]▘s   LIST ▝ AND " VERIFY ▝FPEEK NOT  VERIFY FN `▝" IF ▝▜! RETURN  COPY P RETURN "PEEK |PH▝ READ ": IF  FORMAT <▝ SAVE  0 LIST T<#6 LPRINT  CLOSE #"^▝ MOVE "j▝ PRINT pH DRAW  INPUT ▝;|▗G FORMAT @ ▝w▖▘t▘T▘▘ LIST v▗ LPRINT H>=N▖ CIRCLE 1[E] CIRCLE ▝ MOVE PEEK ▝INT ▝ CLOSE # ERASE USR SCREEN$  REM USR  CLOSE # PLOT  ▝ LLIST 6▗© CLOSE #B"PEEK _BIN ▘ REM  FORMAT ▘TAN  COPY *#<▝#<6▝ DRAW P POKE ▘5[S]▘Z H▝ POKE TAN ▝< ▗▘<▘ LIST <5H0▝ SAVE `USR ▝ DRAW  OR R<▝ACS B▛?  LPRINT ?USR  SAVE  ▝ STOP "<= LPRINT  CLOSE #▝ OR $, ▝[A] NEW ▘<=:z>F!▚ RETURN ▝>▝PN[O]T[M]▘USR SCREEN$ `▝*SGN >>= STEP "▙ PLOT  ? SAVE ▝ FORMAT "[K]▝ FOR $[I]▘ BEEP  ERASE ▝h6USR ▝ COPY  LPRINT INT ▝`~USR ▜HUSR ▝>= TO ▝$FN ~ POKE ▝$%▝B$ SAVE ▝ RESTORE " INPUT ▝ IF ( CLEAR  STOP ▟ PAUSE FN # BORDER D%[U]K>=RGVAL ▝[S]`▝ RETURN ▝O▘7[U]▜AT USR  CLEAR P2▝ IF ||fEXP  FORMAT x▝S▘▖ FORMAT  LIST AINKEY$▘>fCHR$ ▝ RETURN E▝?USR ▗<▝USR  CONTINUE ▝Bn DRAW  INPUT ▝ DRAW /F%[Q]▝ READ [G][S] FORMAT STR$ TAN ▘N2▝[T]#VAL$ ▝^6 $▝ztUSR & PRINT [A] DRAW ▝ REM  ▝ PRINT   CLS   IF ▖ $< CONTINUE `l ERASE ▚▝ LOAD  ERASE _$ ▝VAL$ $V(6vBIN qqqqqq▝<&FN ▝f&▗▝NOT $z▝ NEW qqA!t1 DEF FN <▘'[U]0L▝ RETURN  TO ▝▝ABS !▝['▝[D]21▝ LET ▖ LPRINT ▘<▖  COPY $▝$ RETURN $BIN USR L▝h LINE Zpr4r4r424p BORDER H4▝ PLOT  [A]▝+@[M]▝ IF r@r4r4r4B4▝94▝A4▘[O]▘C"FN [O]yyxJ▝ COPY $[G]▗ RETURN  LIST (F:▝0cH▝L^USR dL▘ DATA X▘^ CONTINUE (8L~▝j)▝[F]▝N▘u8:[Q] PLOT  ▝p$ REM $▝(& REM ▝:Hf▝▝'▝ ERASE TAN x@x@y*▙▝ LIST 8L▝(j▘0?: LPRINT @▝ AND  TO FN l TO [G]▝')(~v TO  LINE ▝ RETURN #B RANDOMIZE  CONTINUE N▝ OVER  DRAW ▘$▘*▘SGN ▘ IF ▘H▘/▘STR$ BIN :PUSR ▘ vvUSR yCHR$ v LINE tttD▝,$▝z$▝n$▝4tt3[A]ACS ▝ STOP TAN ▝:▞>[U]USR R GO SUB RLN  IF  DRAW ▝t$▘[L]#▝Q▝z[E]z[O]▘NOT ,&▝▙v▝ COPY j▘©%j▝ COPY ujj0▝▝&$USR d▘(s CIRCLE  CIRCLE ▘@ CONTINUE ▝ NEW &▝yFN   TO USR ▝@USR ▝-USR ▜INT ▗USR L▝T IF t|t CONTINUE `j POKE BIN ▖Uh STOP SCREEN$ [H]{B{L{V{`{j{tp CIRCLE @ CIRCLE ▝AT ~ LIST p CIRCLE ` CIRCLE ▝TBIN ▝$%L▝Z0▝VAL  FORMAT USR ABS  TO ▝ LIST ▝X*▝CHR$ ▜# RESTORE TC&0▝G SAVE ▝bF$▝▜ [A]ATTR  REM [C]Q CLOSE #-VAL$ + ERASE |||| |*|4|>|H|R|/|f▘<=- INPUT ▝ CLOSE # FORMAT + VERIFY USR  ▝[D]6[H]'z▝i!SCREEN$ T[A]Z▞ INPUT J@TAN ▞ DRAW U GO TO IN * INPUT <= MERGE P NEXT uuuuw[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]v▝vIN vv▜v▞v▛v▟vu;v!v!▝v#▝v%▝v'▝v)▝v+▝v-▝v/▝v1▝v3▝v5▝v7▝v9▝IN v;▝vvvvvvwwwwB▛:81▞13POINT vvvvvvvvvvvvvIN vvvvvv<ATN [B][B][B][B][B][B][B]IN [B][B][B]^`▟`▛`▞`▜```▝[#IN ▝▘▗▗[F]▝▝▝▝▝▝▝▝▝▝▝▟SCREEN$ IN ▞▞▞▞▞▞▞▞▝▘▗▚IN ▜▖▞FGH▛▟[A]▛▟[A]▛▟IN [A]▛▟[A]▛▟[A]▛▟[A]▛▟[A]▙[A]▙ASN [A][A][B]*[B]*[B]*[B]*[B]19▝▝▝▝▝▝▝▝?USR p NEXT p NEXT @ NEXT SGN ▞▞▞▞▞▞▞▜▝*[B]*[B]*[B]*[B]*[B]*[B]*[B]*[B]*[B]*x~▗▛[B]FGH8>DJPV/[H]pATN ▖ATAN ▝▜4[P][G][M][K]▖▜▜▜▜▜▜p DRAW p DRAW  DRAW pUSR pUSR pUSR pUSR  USR EXP nMq&q&q&q&!&@INT [B]▜▜▜p OVER  OVER ▘▜ FLASH r©b©[J]▙▟▛▞▖▜[F]▗▘▝▝▝!YINT ▝▝▝513579;=ABS ;975G.[M]▛▜▖VAL$ TAN INT ▜[U]▜8ATTR v[A]v[A]v[A]v[A]v[A]v[A]v[A]v[A]vSGN ▙vvv▖v▚v▗v▘v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝vsIN ▝W%u,v.[A]w+[B]w)[B]w'[B]w%[B]w#[B]u▗[A]wwwwwwwwww▟wwww ATTR [A]▖v▖v▖vvv▙@ATTR [A][A]v[A]v[A]v[A]v[A]vABS IN u7u5u3u1vvvvvvv  AND  TO  ERASE  CIRCLE  OVER  DATA  REM  LIST  PLOT   DRAW GH2[J]q&q&q&q&!&qqp CIRCLE p CIRCLE 0 CIRCLE =u;u9u7RNDPVAL$ 0USR [J]uuvIN  COPY w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝tt5w=▛w;VAL ▛w9▛w7▛w5▛w3▛x▖uw▛w▛w▛w▛w▛w▛w▛w▛v▞v▟vvv▙[C][D]vvvvvvCHR$ ▝>=vvv▟▙v▙v▙v▙v▙! READ [C]▙v▙v▙v▙v▙v▙v! GO TO  PAUSE  SAVE  RETURN CODE ASN SQR STR$ <= STEP  OPEN #[E][A]w[B]ykl@NOT uauaua[T]▙▙▙[A][A][A][A][A]9;=IN ;!▝#▝%▝'▘)▝▘▝▘3▘5▝7▝9▘;▘)▝+▝'▝-▝1IN ▝3▝9▝;▝533333334▟}}▖S DRAW ▞▟▟▟[L]▟▟▖▚▗▘ OR [C]▙'A▝▙';2) q!▜▙▙&▙,IN ▙▙▙;9/53IN #')FGHHGFA AND [A][A][A][A][A][A][A][A][A][A][A][A][A][A]TAN ▙▖▚▗▘▝7▙9▟;=▛ACS ▝▝▝▘▝▝/▝1▝ THEN [O]5▘7▝9▘;▘=▝)▝3▝5▝▝▝K6%[H]*▞FGHc▝|[M]▝X)ABS 6▛8▛:▛<▛=▛>>▞>▖>▜>▚>>▗>>▘>▝FGH9[N][A][A][A][A][A]▟rBq OR ▘▞[A][A][A]! READ ▝,*Mh[O][B]▝▝▘▘▝▝-▝ FOR ▙▝▘▝▝:▝ POKE LN ▝▝▝▝▝*[A]*[A]*[A]*[A]*=INT ~▙ FOR [T]RINKEY$▙▖▚▗▘[A]RLN SIN ▝[B]▝)▜▝▝ MERGE [B]FG!f▙▗0[N][B][B][B][B][B][B][B][B][B]▖8[E]▗ CLEAR ▗[B]:LEN  POKE CODE ▚▛▟VAL$ ▗ATN ▘ u[B][B]IN ▝ GO TO ▘[A][D]▙▙▙▙ BORDER 3 REM s BORDER C BORDER  IF ▗▝ IF ▚▝▝! PAPER ▝! CLOSE #▛▝▝▝▝ LPRINT RND▝▝GH;TAN ▞▞▛▟▛ TAN ▗▟INT IN ▛[A]5[B]7[B]9[B];[B]=[B]1[B]/[B]-[B]+[B])[B]▝{ LET ; FOR ▝"[T]hn▘[B]{[E]{[E][E]▝b[J]A<))~TAN % OUT  RESTORE  FOR  LET  GO TO  RUN *9HW▘[A]p▟▘▟e-▘<>$8RND/148;FG▟%"▚ATN RINOT M▝▜hBqpUSR pUSR pUSR pUSR &[C];▙HGFhSQR INT  ERASE  CIRCLE | ERASE AT ▝▞▞▞▞▞▞▞▞▞▞▞▞▞▞ CAT [K]▜▜▛▟PEEK ;▛y[A]75[A];▟;;[A]9VAL$ 7[A]4[B]2[B]0[B].[B],[B]*[B]([B]&[B]$[B]"[B]![B]/!/!▟/!▛IN FGHA▛>ABS ▞▛▟[A][A][A][A]/▙1▟3▟5▟7▟9▛[H];=▞!▛!▟!#▟#%[C][A]#[A]![A]/[A]135[M][P]▝TAN ▝3LEN ▝▟LEN ATN ;;▙NOT [E]=▛=▟==[A]ATTR ▛# COPY ▝ REM =AF▚GHv▚vTAN TAN <>▞▞▛▟ TO ▟▛▟▗[A][A] DATA [A]=▙_▘SQR ~4~4LN ▖333RX▙3333# DRAW ▝▘ PLOT  ▝ VERIFY ▝ VERIFY ▝STR$ ▘▘ DRAW ▘3▝ PLOT  ▙▘▝▘▝% OPEN #▝▝▝ DRAW ▞▝T▚▙▝&[M]********3[A]aY CLS !;B!k©©▞ELK%R▗X9▘+U▝RO▜U▝73<[B]NZUSR ▘ATTR [U]RND▙▙▙▙▙▙▙▙▙▙[D]▖▚▗▘▝O▘##$%▙$["U'[A])[A]+[A]-2["LXIC FLASH  TO [L]▝▝▘ CLOSE #-IN  OR (O BEEP  INVERSE  LOAD [A]▝▝▝▝▝▝STR$ ▚#IN -/357Y( GO SUB q CLS [P] PLOT   CLEAR  SAVE  FORMAT  CLEAR  CLEAR  FLASH  FORMAT [N] PRINT CODE  Mu RUN USR 8▛ MOVE s USR STR$ B[U]( DATA  CAT  RESTORE g FLASH ©FN ©[U]©_8©o/ATN PEEK O©[U] COPY  NEXT  CLEAR  PLOT  s PRINT > BORDER P(▚▜o8©©_&[H]FN g FLASH  RESTORE  DATA  CAT  CLS [P] SAVE  DRAW ATTR  TO UCOS RND POKE  THEN  FOR /oPP[Q]USR  LPRINT PI DEF FN USR [Q]/ LPRINT  OPEN # LPRINT  INPUT /[T]PEEK /©PEEK  COPY : CLEAR  INVERSE s GO SUB > LOAD Px[A] LPRINT >=e POKE r REM XTz*}/ LPRINT p0▟FEFE ERASE ▟ FORMAT ? CLOSE #EC:f[N][Q]UTIN FN _ POKE =INT _ CLOSE #ATN x© POKE = IF © POKE ATN z© POKE ABS  SAVE { CLOSE #PEEK ▙SQR LN © POKE / REM _DSCREEN$ UPNOT B0[Q]p:0:p*P*:x▗USR 3 INK  LIST  CAT PI© COPY  RETURN @UZSCREEN$ k INK  PLOT  ' PAPER  POKE 0X,ABS  CIRCLE  FLASH  CONTINUE fpgp BORDER 0NOT  LPRINT ▝USR NOT DSIN INKEY$P[Q]USR USR SIN ATN L[T]F][R]4 BRIGHT SIN 2/:a[U][M]Y:t"BSGN [K]AT DH(▖[A][A] [Q] USR  DRAW USR QV OR BTAN pL0L[A][U]jvvF"4! BRIGHT &pt0t[K]*t STOP LN p[E]bX4 4H@@f▝q&[R][M]Fa[R] FOR  BRIGHT [B]2f:[U][N]YNGGASN ASN jjHHCOS COS  THEN  THEN INKEY$INKEY$R>[N]▝[Q] LIST [M]VAL f[D]USR [T]P]▖44SIN SCREEN$ /aJ[M] LOAD :POINT CHR$ BCHR$ CHR$ f[N]@&TAN [j4H[U]SIN a THEN [D]INKEY$[T]A][M]4:2AT /!PVAL "▙ INPUT SNINKEY$ASN  FLASH (▝COS 0(▙BB*]ACS 1 BRIGHT )/*BaW[K]0>=.t,t^zVjT*_ IF *TAN -T>=0USR STR$ Fp([I]  FORMAT PPhHH CONTINUE [A]P FORMAT  p(]e▘Pp▝pPPPB[A]FN HH CONTINUE pPpx@[Q][A]-TAN + CLOSE #VjU*TSCREEN$ Vj+ CLOSE #-TAN p[Q]p>=[Q][E] FORMAT Hhp[Q]pFN p[Q]qp LIST p LIST p LIST  LET ▜[Q] LPRINT %▗STR$ EQh[M].[Q] FORMAT  LPRINT `USR @STR$ V3 LET $▖@@[A]▟[A] FORMAT  LIST 2VAL )` LPRINT P( Hf▘@ CAT [C] (`@ FORMAT pVAL `USR PP $! NEW X[D] LPRINT FN  LIST VAL p px0z[I]@USR  H[Q] FORMAT P SAVE XVAL `p[Q]▝x z[B] FORMAT - LIST LN  SAVE P[Q]P>=80&CHR$ ▘&▞` LIST x▝p(▝,[C]▝  SAVE [B].,USR [Q]6 LIST ? LIST [Q]`0>=EXP :▘© COPY ▗<=<=0▗ COPY  RETURN  COPY  RETURN  ▗@Q▝▘z▞@`@n▘EE CLOSE # T▞USR 8 RESTORE 'A@  OPEN #▘dd0j▞<▝ READ ~P!/P▞USR 8G LPRINT $[M]p,<<=▝©A 0BUUSCREEN$ SCREEN$ UU▖▖""▖▖@Xb THEN  GO SUB TAN  FLASH nACS  OUT mPEEK  FLASH |sj▘ LIST PI[B]f`' LPRINT ' LPRINT ; LPRINT  LPRINT  LPRINT [Q]$W▝%}k[Q]`x PLOT   COPY  COPY  RETURN ©88 RETURN © COPY  COPY o PLOT  G STOP `sINT [D]| TO 99G RETURN  COPY  COPY  CLEAR IN  IF _ CLEAR ? DRAW ▗IN  COPY  COPY ©4STR$ G6k▖_ PAUSE +[U]'BIN ▘ +@STR$ Cr LINE LEN  OUT  DRAW  COPY  IF B[M][M]|[STR$ AHA BEEP p RUN ▘ STOP $l▝ RANDOMIZE ©▘ DRAW  ▝CODE  OPEN #IN sUSR INKEY$ LPRINT uH` REM [F]0U(LN SCREEN$ U?U(?SCREEN$ UN?[N]TFN INKEY$?POINT TS?USR RSCREEN$ POINT  GO TO *RNDTU GO SUB USR SCREEN$ FN ]SQR ▘TV[% RUN ▝/AT  LOAD COS  NEXT &▘ DRAW  LPRINT ASN  RETURN [Q]? AND ▖ COPY g COPY [Q]!▘© COPY ' COPY  COPY USR  LPRINT  COPY  COPY  LPRINT  LPRINT USR  COPY  LPRINT s COPY IN  COPY  CLEAR ©[A]© REM IN  COPY IN  COPY  RUN  OUT  LOAD  COPY  RUN  LOAD  FLASH ▖ PRINT  INPUT  COPY  VERIFY  DATA ATN ▘POINT k▘B q▝=w▘ COPY z▝?5ACS  LLIST DU[S]▖ GO TO <=[B] RETURN  FLASH  CLEAR  IF USR  CLEAR  LPRINT ©[Q]3 LPRINT @n+ BEEP ▞<j MERGE ) FORMAT POINT B<G7 ERASE VAL$ *U@?> LOAD UOUhU@U`U>BIN <j MERGE ) FORMAT POINT B<NOT GU>=ATN  RETURN USR  CLEAR ` CLS VAL  CLS < CLEAR SGN  RETURN x© LPRINT  LOAD ACS ww9>[G]TAB VAL LN 8V BORDER "WpU5[G][J] LPRINT  PLOT    CLS @©g[L] COPY  COPY  COPY @ RETURN p OUT IN ^a @!FN <> AND F@SCREEN$ [U]@C9▖88 |USR G COPY BIN 3 COPY [I] COPY 0 COPY  OUT  COPY  LPRINT  COPY  CLEAR  d COPY VAL s[I]pBIN X▖F& $[S]pU0U:TAN ~ LPRINT ABS  LIST  OUT p COPY LN © SAVE IN  LIST © SAVE $IN  DRAW J_ DRAW E BRIGHT @PI INVERSE # MOVE (o LPRINT  BEEP USR WUSR ATN `YZ$ RANDOMIZE pSCREEN$ qT▝xoEXP USR TAB  LIST SGN [A]^+&.,[E] THEN USR b RESTORE  TO  MOVE c[O]FN >=[A]BIN ▝pmCHR$  LIST  RESTORE p STOP  LIST LEN  LPRINT 2 LPRINT gZp COPY APOINT [F]VAL [M]2.<yJp!0VAL ▝STR$ 8▞4``fUSR L[B](BX'8+▝P%A0@USR >qTQT▗0p]tVAL q▚8A[E]▝ STOP b▞ ▝(PXh0 CLEAR qPOINT !TAB ▘t▘P[K]} LPRINT  COPY p RETURN LN  CLS P~[I]/>= RUN  SAVE IN  FORMAT Up<=[B]/`COS  LIST / LIST  CONTINUE INT  IF XpPI- NEXT ; FOR { NEXT @k DIM `{ PRINT `} RANDOMIZE VAL  RETURN  POKE [A] OVER  REM [Q] COPY t[I] COPY jFN [T] CIRCLE  COPY y ~ PRINT P~ FOR  | PAUSE  LPRINT } REM USR 3 OPEN #' LOAD 7ATN @7 FORMAT PEEK  REM ▞ABS k PRINT  BRIGHT  NEW ▝▘ FLASH B▝ PLOT  F▗ REM ▖▝@▘ PAPER @ ▝ OVER 0( LOAD ▘FN v▝ CIRCLE  ▝tASN ▟SCREEN$  OUT v COPY jk RETURN s+ CIRCLE G,XIN ▗@ STEP v@[Q]p ▘BFU LINE ATN [G]PEEK  CLOSE # CONTINUE  FORMAT  SAVE  CIRCLE 6l CIRCLE [▝ LPRINT j▝GY CLOSE #>  SAVE  LPRINT  LPRINT USR USR =*,py▘EC8SGN [D]? RETURN _ COPY N LOAD  STEP U:SCREEN$ [P] RETURN {SQR UU*? RETURN [P] COPY JATTR [F]U? RETURN  CLEAR ▗ AND  COPY [E] MERGE  MERGE UUWATTR SCREEN$  RETURN SCREEN$ ATTR  MERGE ~ RANDOMIZE ATTR SCREEN$ a▘a ▝ OR $▘a[D] OR SQR STR$  RANDOMIZE ATTR <= LLIST I MERGE  COPY qIATTR  LET  LET ▜ INPUT  LET ICODE *[B] [G] RANDOMIZE CODE  LET  LIST a MERGE  OUT pAATTR  COPY  LPRINT a MERGE  COPY USR AATTR Pk▝ATTR t▝ MERGE n▘ CLEAR ATTR sINKEY$ FOR  MERGE  LPRINT  CLEAR CODE 9 THEN  MERGE m  STEP ATTR 9C▗ CLS  MERGE FBIN  STEP ATTR FBIN  CAT  MERGE  COPY FBIN  CLEAR ATTR  FLASH ▝CODE ▝ OUT (▝CODE 2▚ATTR  OUT  THEN  MERGE V▘▜ COPY  COPY  GO SUB ATTR  BEEP  COPY  COPY ▙w COPY ATTR  BEEP  RUN  INVERSE  OUT  MERGE CODE SCREEN$ SCREEN$ ATTR ATTR  OUT  CIRCLE ▘ MERGE  CLS ` BORDER  BRIGHT ▝A▝F ▜AEGGDAD IN ▝AATN ; CIRCLE &| DIM >▝©[I]▝ IF =▘5[K][C]▝BIN ' RETURN [D]▝ SAVE &[N]P`▘ LVAL$ <= LIST  IF [Q]U▘SCREEN$ @PI RETURN USR  COPY  CAT  COPY @ COPY VAL$ [Q] COPY  COPY `ATN z[Q] LET  COPY  MERGE `[Q]*SCREEN$ [Q]U LPRINT HATTR [U]^>▘ CLEAR [K]▜ IF  LIST  CLEAR SQR ▝ PLOT  USR ▝ _@pp2F GO SUB w▘8▘ATTR Z▘GG  TO G ▜; OVER  INVERSE  OUT b'▘ INPUT  PAPER USR ▟IN  INK _[Q] LOAD  INVERSE © GO SUB  CLS ~ COPY  CLEAR  CLS o CLEAR  COPY  RUN  COPY  GO SUB }qASN  LET ASN  LET ASN  PRINT ? RANDOMIZE IN  RUN  COPY  DRAW  OUT 7 CONTINUE IN  BRIGHT  IF ? SAVE  CLEAR  NEXT  RETURN  DRAW  COPY /▖[C] CONTINUE M LIST  COPY  READ  RETURN LN © LIST  OVER  READ  COPY  REM yVAL w READ w CONTINUE _ LIST q[R] LET LN 1 LPRINT _ LLIST  COPY  RANDOMIZE ? LPRINT ©a RETURN VAL + STOP ?STR$  COPY [J] POKE ABS [Q]/STR$ STR$ USR ABS @ COPY tCHR$ IN USR  COPY  LIST _USR IN rUSR [B]>= LET [Q])▝[P]© RESTORE ▝[P]}[Q]CODE ▝[F]© STOP ▖ CAT ▗K[S]%M[Q]© LLIST G THEN [Q]6USR  LOAD ?[T]ip1IN  LPRINT 4"PIp?P,gh CIRCLE A4PIY OVER *wl[H]6SIN TW[L]▖*Rl[G]USR >"SIN V[M]STR$ )epj[F]STR$ ?$LN  PLOT   CAT IN [P][R]/G_ GO SUB / READ ;ECODE  RETURN  READ / INVERSE ▟[H][T];▜ COPY  CLS [H]mc? RUN  RUN © NEW =▜IN  LOAD <=_w?▞ LET  MOVE CHR$ qATN u CAT  COPY  COPY CHR$ _ASN w DEF FN  OUT [P] STOP LEN w FOR ~ CAT  CLS ©b} CLEAR O CAT [D] DEF FN {m RETURN  RETURN  NEXT  COPY  COPY _ LOAD ©© STOP  CLS  PLOT  © LOAD  DRAW  COPY  FLASH IN IN y LET  MOVE LEN SQR  LET  NEXT © COPY  PLOT   COPY SQR NOT INKEY$_CODE  LOAD {ABS ATN © FLASH  INPUT  RETURN  CLEAR  COPY  RETURN M[P] CAT }[P] CLEAR  CLEAR  COPY  COPY ~k©} CLEAR ATN [© CLS ©SQR 2[M]q PRINT  LET LEN q LET q COPY ©© OUT  COPY ? COPY  CLS  COPY  OUT  LOAD  COPY © FOR  CLS  INPUT  CLEAR  COPY  CLEAR  PRINT ©IN NOT ▝ COPY G▖ COPY  DRAW  CLS  NEXT {CODE  RUN  LOAD ▘ RETURN  OUT CHR$  LET ▘LEN  LET f DRAW GFN ```[P] RANDOMIZE [P] RANDOMIZE 00p&o▘p) COPY  INPUT _ AND ▛[USR  GO TO k<>I LLIST w STEP STR$ [N]▘ CLEAR ATTR ▞U<>I COPY ATTR USR  RETURN  MERGE  OPEN #ATTR ? COPY  COPY U6▝ATTR :▝ MERGE ▝ FOR ABS  FOR PTAB ▞[J] COPY  COPY 3$HRND▝0<>GINKEY$ TO L▜t[P] LOAD &[U] RANDOMIZE } POKE = INVERSE ?y7 DIM =ASN OFN  PLOT   CLOSE # CLS FN  DRAW [Q] DRAW FN [C] COPY  FORMAT  CLEAR `©[A][Q]| FORMAT  INPUT  LN  OVER  CHR$  LPRINT  INVERSE  FORMAT  OVER VAL IN  u@ COPY [Q] GO SUB   VERIFY USR 8[Q]©` CLEAR  RETURN [Q] CLS P CLEAR VAL  FOR H VERIFY VAL  CLEAR HGBB<>B^ ERASE ▝ SAVE f COPY  COPY ▚ OVER  OVER  TO FN ACS ACS  CLS  LIST  INVERSE  INVERSE  OUT pRND COPY  LOAD r2 GO SUB  OUT USR [OACS  GO SUB  LPRINT <>[J]CODE  READ pvv CLS ]LN PEEK  SAVE ▜0g▞p CIRCLE  GO TO D[K]b RUN EXP  RUN  SAVE USR ACS USR  FOR  RETURN  INVERSE SIN  RETURN  LPRINT  RUN  LIST  PAUSE LN  CLEAR t7ACS  CONTINUE { FORMAT  RUN |[Q] READ  LIST [Q] CLS VAL |o LIST  RETURN AT SQR FnSCREEN$  CLS  VERIFY jp OPEN #▗B[E] CONTINUE = REM   MERGE ▘>= COPY G[N]▝ IF ATTR ▝ BRIGHT CODE ▝ DRAW ▝INT oSCREEN$ 0-CODE @4c@, @▚ LIST 2CODE STR$ B▘ LOAD { GO TO J▘ OUT o POKE  ▝p LIST 4 FORMAT p▝ LIST  COPY STR$ NP/ READ o CONTINUE  LIST [Q]USR USR S9g▘FA+b