1 PRINT USR 0: REM NEXT 1FN aCODE OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN *=/w#w! LET <>"CHR$ /2k/!@ GO SUB [ POKE / RESTORE OR STEP =STR$ LLIST ~/w#xLEN RUN NOT @INTERNATIONAL NINJA RABBITS DONE BY MAX IWAMOTO/CODE BUSTERS! <HELP>->SKIP!d=aRNDr PAUSE ADEMOMACb BORDER KbSCREEN$ AWK" LINE 115616 LINE __<HELP>->SKIP LEVEL!! DEF FN RANDOMIZE IN 6 RETURN [R]IN [I]IN COPY COPY IN [I]IN ERASE COPY [I]IN DEF FN IN }IN 7IN &IN YIN [I]IN RETURN COPY COPY PEEK ASN PEEK [I]IN RETURN COPY BRIGHT PEEK ASN PEEK ▚PEEK DIM ▛ OPEN # INVERSE CLS INPUT IN ▝' ERASE ~RND RUN y<>T[L][T] GO SUB [H] COPY CONTINUE [A] LIST STOP FOR ASN OUT <=[D] CIRCLE >=SCREEN$ TAB DRAW [M] CAT [Q][R] CLS NEXT BRIGHT Fc[G]" OVER COPY CODE OVER COPY PI6" CLOSE #"▛ COPY " CLOSE #" COPY 6"[B] COPY " BRIGHT "[J] COPY " BRIGHT COPY ▘VAL 6"[B] COPY " BRIGHT "[J] COPY " BRIGHT " CLOSE #"▛ COPY " CLOSE #" COPY ▝[A] COPY INK COPY " CLOSE #"▛ COPY " CLOSE #" COPY 6"[B] COPY " BRIGHT "[J] COPY " BRIGHT ▘ COPY "[B] COPY " BRIGHT "[J] COPY " BRIGHT " CLOSE #"▛ COPY " CLOSE #" COPY ▖6[Q][A] INK COPY " CLOSE #"▛ COPY " CLOSE # COPY " COPY 6"[B] COPY " BRIGHT "[J] COPY " BRIGHT "[B] COPY COPY " BRIGHT "[J] COPY " BRIGHT ▗R[A]S[I]" CLOSE #"▛ COPY " CLOSE #" COPY 6"[B] COPY " BRIGHT "[J] COPY " BRIGHT "[B] COPY " BRIGHT "[J] COPY " BRIGHT NEW " CLOSE #"▛ COPY " CLOSE #" COPY <}PEEK "[B] COPY " BRIGHT "[J] COPY " BRIGHT COPY COPY "[B] COPY " BRIGHT "[J] COPY " BRIGHT HTAB " CLOSE #"▛ COPY " CLOSE #" COPY <}PEEK "[B] COPY " BRIGHT "[J] COPY " BRIGHT "[B] COPY " BRIGHT "[J] COPY " BRIGHT COPY COPY COPY " CLOSE #"▛ COPY " CLOSE #" COPY " CLOSE #"▛ COPY " CLOSE #" COPY 6 OVER IF IN 4EXP ?6▘K OVER IF IN 4y?496X INK SGN PEEK ▚▞ LLIST LINE ERASE BRIGHT OR IN [G] CONTINUE -▗ MOVE `F" DIM ▛ AND POINT MOVE ▞[F] CLS RNDASN ; LET TO CODE LPRINT [Z OVER '[C]AVAL ▖[U]) CLOSE #ATN 2POINT USR CHR$ Y POKE BRIGHT OR ])K PAPER | BRIGHT ▜}[E] TO [J]QSIN 6 MOVE 9 RUN . RESTORE LET EXP ZeA GO SUB FORMAT Xj|XCOS THEN h0vb CIRCLE THEN COS [T][S]: BEEP ATTR © CLS )<=" READ @CHR$ 3J[G] LPRINT CIRCLE ? CLOSE #yAT [E]" LLIST ERASE g[S][S]~d~:>=[C] INK ASN INT L OVER HLEN w31 POKE [G] CLEAR 'QSGN ▚/IN SCREEN$ [C][K]# DEF FN } CAT NEXT NEXT CAT K5 PAUSE gM RESTORE = RANDOMIZE [Q][I]©[E]9BIN VAL$ [/[C]o[K] LIST [E]©[Q][B]LN [K]K STOP BORDER 0A NEW R] LLIST EXP IF POINT ~g DATA <>"/ PAUSE SGN CLS k NEW LPRINT ▞g[K]▗ LOAD RZf![G] RUN cx+ <= CAT LN VAL NEXT INKEY$; FORMAT ATN ▞4 NEXT COS GO SUB GSQR ,USR PI[B][N] INK ,N( DEF FN ATN }h TO FLASH SAVE [P]E PAPER LINE ~CODE ( CLEAR [C] IF 8* REM TAB K PLOT 9^,X NEW USR POINT [ REM LIST OVER [I]▛TAB BORDER LET STOP INK PI<=[D] PLOT GO SUB <= CLOSE #[K][D] PLOT THEN [R]POINT [C] PAUSE STEP RND[R] RANDOMIZE SQR OR [Q][P] SAVE DIM LEN ABS [S]▝ LIST STEP INKEY$ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY NEXT !{ATTR , COPY IN GO SUB LN FOR #RND~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1!X[Q] GO SUB VAL CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN GO TO vvv INK LLIST X GO SUB VAL INK = MERGE &[Q]w]T COPY GO SUB VAL STEP *[N] INK ![Q] RESTORE ABS G[S]SQR INK 8SQR INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL INK NOT !X' INK <>!RND@J~# IF Q{ AND _0 LIST z AND W RETURN X8 CONTINUE { NEW LPRINT <><=[H]PDQSCREEN$ DRAW DRAW LIST ** COPY !▙ COPY ▘[F]+/[P]CODE [P] IF COPY STR$ ©▞bbgksw©©Vjpdhp▜`b`h8 COPY SAVE STR$ COPY USR DRAW ▘ CLEAR RETURN ▘USR CLOSE #0[B] OUT DRAW DRAW GO TO INVERSE RETURN COPY BEEP CAT RUN CLOSE # AND BRIGHT STEP RETURN COPY VAL$ p$p-STR$ DRAW ▗ RETURN COPY [L] RETURN ? THEN COPY ▗[E] COPY COPY RETURN NEW >Q© COPY ~<== DEF FN ` MOVE ▜PFN / COPY ©? USR ▛IN IN PEEK IN PEEK IN PEEK ABS [K]SCREEN$ G[R]▗ SAVE LET RUN POKE POINT ▘ LOAD {USR OUT CIRCLE MOVE BEEP [C] COPY COPY LIST LET PAUSE POKE P COPY RANDOMIZE CLEAR RANDOMIZE CLEAR ][J]9▚ CLEAR _[N]=p▘y▘ CLEAR INVERSE @$▝ COPY ▘Y@$▘6▝ATTR $▘FJ0f RETURN LPRINT [P] COPY COPY COPY COPY ? COPY COPY > COPY COPY ©▝ LPRINT / THEN [P]4▝`USCREEN$ COPY RETURN COPY |@@ LIST [A][A][A]P[A]P RETURN IF USR CLEAR USR } GO SUB -[R]USR LET ▚q LET q LET LET RANDOMIZE USR DIM USR i▘m<(▜ COPY COPY ▛[D]COS <=▞▗▚▛[D][T] BEEP ATTR BEEP ATTR BEEP [L]▜▛▛[P]CODE CAT COPY {$▝0USR ▘[T] BORDER ACS ▖NOT ▛[L] RUN COPY © CLS THEN COPY &▝EXP OPEN #▘ RETURN USR LIST USR LIST LIST LIST FORMAT ▗[Q]▝SCREEN$ u IF COPY CLEAR J GO SUB aSTR$ OR <> MOVE READ ▝BIN RANDOMIZE CLEAR CLS CLEAR <>[▞ LLIST OR INVERSE OPEN # READ COPY DEF FN COPY COPY $mSTR$ OR STR$ `$▘k RETURN THEN COPY NEW ▘[P] COPY T▘NOT ? LIST ▚1? VERIFY USR 0p READ ▘`USR LIST ▞FN [Q]T[Q] CLOSE # LPRINT POKE LIST NOT POKE ▘T OPEN # POKE LINE TAN CAT [E]STR$ CLOSE # USR ▗[U] DRAW INKEY$USR LPRINT VAL$ ▜ COPY > LOAD COPY INT COPY A}▝©<>▝© COPY COPY tR5;wo OUT p▛? COPY LOAD PLOT OUT © COPY LPRINT Dy▝<=<>▝<= FOR ▘ LLIST ▝USR USR ▜ OPEN #VAL [D];wk OUT VAL$ ]PEEK } IF } IF x[C] DRAW SAVE LIST IF CLEAR RETURN CLEAR RETURN IN RUN COPY [P]@ CONTINUE h SAVE SAVE pb CLS ▙▜@ LLIST LINE ▘ DEF FN ▘a▚© COPY LOAD PRINT ©r CAT ▖ IF CLEAR ▖Z▖CODE U* LET >=[B] OPEN #PIOIN >| CLEAR AT [E]_[P]K[H]8P0p[Q]`USR @STR$ USR ▝NOT @V© ▝ READ STR$ ▘ AND LINE ERASE COPY P BRIGHT ▟ COPY RANDOMIZE © COPY IF o SAVE ©/ FOR RETURN SAVE MERGE VAL$ PRINT ATTR OUT PAUSE `© COPY ©> PRINT DIM q[R]8 READ INK USR ▜?~ABS ZABS ~U COPY RETURN RETURN DRAW POKE REM OR (P[Q]` LPRINT USR p▟>= RETURN ▜© DRAW COPY SAVE © COPY ?USR COPY LIST M▝ COPY <>▝ RETURN LINE ▝ COPY "&@ERw LIST SAVE SGN CAT CLS CLEAR © NEXT COPY a[E]BASN i= RETURN MERGE SCREEN$ MERGE !x▗©`O? SAVE ▜qhtk©?BIN ▖ COPY }}=SGN >PEEK STR$ >▗<} SAVE zSTR$ r]w/Z[A]p LPRINT DRAW A▗USR LIST `▝▘NOT p[H]▝ LPRINT 'M▝ LIST @ OPEN #pAT $PEEK LPRINT p0={ PLOT LOAD bq|bA[C][G] STEP STOP DRAW NEW SAVE READ CLS IF pq[I] CAT MCODE M READ IF RANDOMIZE CLEAR DRAW RETURN NEXT FLASH GO SUB 5LEN INK READ LET RANDOMIZE NEXT DRAW CLEAR ▟ BORDER LET DRAW DRAW ~AOCODE [ABS [G]▞ SAVE SAVE CLOSE # REM PRINT z5:STR$ ?[K];;sk OPEN # BORDER BEEP PI<=CODE _CODE XAT READ MERGE ?/6?-?5;?ct▝ RETURN INT LPRINT >=-qt▝bT2c▝USR s"xyACS SAVE RETURN _SQR READ <=[P][T]STR$ [I][U]AT INK #3 DRAW goO▙ DRAW / SAVE POKE PAUSE ASN Ru OPEN # NEXT '[U],noM^VW<5??©> DRAW LPRINT ▖USR `VAL LIST [A] LIST SAVE CIRCLE USR SAVE ▟ CIRCLE DRAW DRAW CLOSE # GO TO POKE |>.~SGN ~PEEK 8@▝ CLS (J[B] CLEAR COPY LLIST #V LIST VAL LIST LET IN LOAD RETURN { OUT ~[P]X SAVE ▝5@▝%G▝ LPRINT [O]▜▝VAL$ 4RND9▖00©`v NEXT TO BRIGHT CHR$ USR USR LPRINT ▚ LPRINT [Q] CIRCLE BIN SM[A]SCREEN$ _IN DRAW IF PRINT CLS BIN @* @ GO SUB S[K]ATN ▜ RETURN u OVER BORDER EXP RETURN ATN h;▝ LIST y LIST ▘BIN DATA POKE |<2 FOR LIST SAVE SAVE RESTORE ~?? COPY ' DIM ▘ COPY z▞ DRAW IF CLEAR 3©w PAUSE LOAD ? LPRINT CODE MOVE ▗[Q]USR `[Q] LINE ?VAL ▜x3 AND ▝~▙▝?>=0VAL$ ▝ AND LOAD GO TO COPY REM UCODE :LSCREEN$ ©▖ PLOT ▝▘ LIST ▝~NOT ▚▖▖HH(6▘ LOAD C STEP ▗ CAT 5HSTR$ LPRINT FOR ▗ COPY LPRINT @ATTR u}▚ REM USCREEN$ MERGE REM }t THEN ▟*U BORDER SAVE STR$ `v OUT <>▘ DRAW ?4 OVER ▜ LPRINT x LIST LPRINT 0 SAVE X▘?▖ x4U LIST x< RESTORE ▜STR$ LIST x| SAVE LIST SAVE STR$ |▘ LIST STR$ FOR COPY DRAW RANDOMIZE VAL c<=Og▚▗DBIN D TO SAVE z5v READ ▚CODE WCODE ©IN ▜ RETURN LIST U* SAVE u[C]a}▗<= IF ▝!▘▘ LIST ▗▝< DEF FN ▘|86[A] FORMAT LIST LIST p6>=INT ▝©NOT |{s DEF FN ▞▜h ▝ PRINT LET CONTINUE POKE FOR COPY PLOT MERGE ▗u REM MERGE REM )SCREEN$ COPY `?JSCREEN$ J IF DEF FN ▜ COPY CODE PCODE @@USR _▛^_/_P[P]_[Q]_[Q]_[N]▝©STR$ BR1[E]h[M]p SAVE `3VAL$ ▜ SAVE RETURN ▝wkMEXP 8xtJE▚▜OUSR <▖|yy RANDOMIZE PAUSE PAUSE rF NEW CIRCLE GO TO 4VAL CIRCLE ,qwy[O]&AT ©[C] LPRINT PLOT z PRINT zABS ~IN COPY e(USCREEN$ FORMAT 'H%ltltlt` SAVE DRAW ▘ LIST ( AND ▝[D]Hk:-<=<▝x<! ERASE ▝ MERGE STR$ C ERASE Nq<=▖▞IPOINT YiYIIUSR ▞ BEEP ▖r> SAVE CAT [I]▟USR ?`VAL XAT V LPRINT ▚ RETURN IF P[Q][I]▗x<=6▚. REM ▖ AND DEF FN DEF FN OVER vuml8 LPRINT {@{@EXP ▝"PY"*ATN [I]c LET NEXT LET NEXT LET COS RANDOMIZE [D] MOVE OPEN # MOVE OPEN #3[B]▝[D] ▖[B][D]13[B][D] ▟31#sLEN COS 1COS ANOT [E]© SAVE NOT DRAW LIST ▝> SAVE LPRINT DATA LPRINT POKE CONTINUE POKE DIM u{>=▙▜<=#c[T]<=c NEXT LEN " RETURN )POINT POINT [J] COPY LPRINT LLIST + IF ▖ CAT INVERSE CIRCLE CIRCLE FORMAT SQR IN [M]>=▝USR TAB ? VERIFY LEN ||PEEK PEEK -▗ COPY ;▝ COPY >=>.s▗@@QQ AND SCSCCHR$ C@ THEN SC@CUSR G[L]CEB@@GO@@© DRAW LPRINT ? SAVE USR } LIST ▘<81USR ;[A]SQR ;SQR {INT ZINT ZINT [SQR [SQR [SQR {NOT CLS {:8USR ▗▜[I][J]?USR 1r DATA <NOT ▝_ AND ▘▝NOT 1pWO▘ LPRINT LPRINT :Y▝ SAVE Fh NEXT 9<=STR$ MOVE NEXT STR$ IF ▘ RETURN RETURN STR$ NEW USR AND ▜ DEF FN ▙▙[O][O]PEEK PEEK USR ACS ▝ PLOT @▘ AND AND CHR$ ▚▗[G][O] CIRCLE EXP CLEAR IF T DRAW COPY INT [A] COPY RETURN COPY SGN pc<=[M]8p LLIST CLS FLASH [P]PEEK ~f NEW INPUT VAL$ pD@D▝@RND▝=p.AT [J][J][P][P]ABS i▗▘▘NOT B<=zJ:VAL$ 4▘©©<[R]▚``px~s OVER ` AND STOP ▝/wPEEK [G] DRAW LIST © DRAW COPY RETURN USR ? RUN ? LET ▝ SAVE ) OVER ▚ BORDER RUN CLS CLEAR RETURN m▟©©IN IN OUT [P]o LOAD RUN RUN CLS CLS =y▝AA!!L/▝ LIST ▚▘USR LIST RUN /ATN ▝vUSR READ ▝>▖ PRINT INPUT U[Q]TFN ▟▝ LPRINT 9 SAVE © RUN RETURN ? LIST / READ DATA ▞© RETURN CLEAR CLS RUN LOAD CAT _IN RETURN ▗ RETURN CLEAR CLEAR CLS ▗ LOAD OUT OUT PEEK <TAB , FORMAT Z#SIN LINE ▘ LIST .▝ SAVE ▘ COPY COPY &▗©" OR CHR$ >=▗ [T]LN [I]LN 8FN 8VAL ▖@© RETURN © RETURN USR SCREEN$ VSCREEN$ VERIFY SCREEN$ PLOT z▙F& THEN ▝▚▝>~} RANDOMIZE CLS POKE PAUSE FOR BORDER BEEP TAB AT [_SGN LEN ▜->=▝ RETURN _▘ LIST PUSR ▖BIN Hw LINE ▝`L▝`1▝[E]STR$ SAVE ▘ LIST LPRINT 2lAT lAT PppnAT nAT nVAL$ mVAL$ mVAL$ mATTR mCODE @ IF }mTAB mTAB P O0▗AT h[Q]`)▚ LINE ▚[P]▟ COPY SAVE RUN RUN wwATN SQR FLASH FLASH FOR FOR pUSR ▝ DRAW PEEK k@<>kVATTR [L]▝ PAUSE VAL M©~||x OR y[D]qyqyqiq DIM q LLIST Q LLIST Q LLIST A[R]Q[R]IA[R]I▝A[R]A▞▝&4▘0▚SCREEN$ UIN © LPRINT ABS RANDOMIZE ▗CODE _IN IN IN CLEAR IN COPY CODE ?IN >SGN ,( OR POINT ▚▝▞Iovo RETURN ▝@|IN ▝< IF ▝s1fCOS / RETURN ▘N@▖@▘SCREEN$ USCREEN$ U▝ OUT !TAB ▟ DRAW LET NEW <>[G],XPLEN PAUSE PAUSE STOP DATA OR BIN STR$ DATA ▘[U][U]USR TAN ▘SGN SGN USR [M]CHR$ CHR$ [M]USR BRIGHT "! RESTORE PRINT SCREEN$ P REM ▗SCREEN$ COPY COPY LIST A~▝ OR PRINT FOR BEEP pSpSpS S▝SGN CONTINUE ▘xxSTR$ 8<<?4J INK . PAUSE <=@CHR$ "j▘▜=<▗ @© OUT OVER / DRAW ▜INT PDUSR RANDOMIZE ▘ CLEAR LOAD pS©RND VERIFY ▘9SGN ▘ DRAW SAVE r8 CAT T8▟A*U LET LOAD SAVE W<> FOR w POKE ▝SCREEN$ x@[Q] CLEAR >E COPY COPY INVERSE FORMAT ▝pS OVER ▝ LOAD ▝ LPRINT NEXT ▗ LIST LIST ©©:P CIRCLE ▝ ? DRAW FN PFN P[Q]P LPRINT H[Q]D▚USR VAL xn DATA © LET T[Q] INPUT ▚DPOINT T COPY TO ▝ DRAW ▚© CAT 'LEN y[H] FLASH = RETURN ▗ SAVE 8▘< DRAW ERASE PRINT [B]>= STEP +CODE p DEF FN ; LINE ? MOVE p p <>p@STR$ >=<>ppACS <>p>Q▝ LINE zPp pUSR p▝p pp[Q]p[P]p[Q]pIN qV| REM p OVER qv<>p RETURN q[G]<>q qASN <>q?"k LINE q^` p!q`p@`B1Hq[N]pb bAHqABS p▝▝ OR % DEF FN ▘<|▝ LINE 00pp @;&0[R]p` NEXT INK RESTORE ![Q][G]SCREEN$ Z MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !y|.| DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE ,- GO SUB LN LLIST INK CLS <> NEXT STEP R;;STR$ ![H] FOR !f THEN ▝s#r!{▞[F]PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW (O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O}▘LEN O)) LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ f NEW ©(# THEN w G9▝ RANDOMIZE VAL$ NEW ?E CLS #[Q] INK !X' INK <><> INK w($ SAVE COPY AND 0 LPRINT =#<> AND ??©©[Q] TO COPY OR ©5/=? STEP ▘ THEN ▘(@▗ OUT >▝ SAVE <= LPRINT NOT LIST NEXT COPY COPY FOR RUN COPY _LN XLN USR DRAW SAVE LIST USR X@▝ COPY 0©{▗?USR USR ▚?[B]▘ RETURN LIST MERGE 8@▛USR LPRINT LIST qEXP YABS CLEAR DRAW BIN RETURN DRAW CLEAR CLEAR RANDOMIZE RANDOMIZE LET P LET LLIST STR$ BEEP g?( CLEAR IF RUN ©?0▘▞xUSR LINE &▝NOT STR$ USR ▝q▘ LLIST BORDER LOAD H▞ LOAD BORDER BORDER READ LET LIST LIST LPRINT LPRINT y!▝▖ SAVE RETURN ©)[Q] LOAD ▙ CLEAR USR sEs RETURN [E] LIST SAVE [Q]y@8C▚|pLN SAVE P DRAW l▝ RANDOMIZE CLS ▝U▝USR !^ BEEP FOR RETURN y1CHR$ ▝vj" CAT <=NOT iKA@:<LN CONTINUE REM ▚[Q]@NOT [P]IN P▚IN [P]USR LIST DRAW OIN COPY z▘▝*G▜ CLS * DRAW LIST z@! RETURN ▘| RANDOMIZE ▗ COPY COPY CLS RUN )ASN ▜ RETURN GO TO CIRCLE VAL LPRINT USR OUT CLEAR CLS COPY RETURN *©%s▗[P][ATN IF ▝~ PAUSE ▗▜>= COPY COPY ▚ BORDER DATA r▘ LPRINT CLS =▝ BORDER FLASH RETURN RANDOMIZE ▖ COPY (© COPY RUN LOAD COPY DRAW !▘©[C]I▖▙QQ[P]k STOP READ c▝+▝ READ PEEK ▘JLo DRAW !9EAAE9k@▝ LPRINT COPY PEEK ▜ CLEAR PAPER GO SUB ©USR 2(52 OR ~IN $H@ {@ CAT [D]▜ CAT OUT [B]??><=<[M][O] OUT OUT CAT LOAD SQR NOT NOT ▝CD▚ IF STOP ▘▘ IF {▝ RANDOMIZE [C] DRAW ▝*USCREEN$ % REM RESTORE PAUSE PRINT RANDOMIZE [L][F]? PAPER n `[Q]USR sUSR ▘ MERGE COPY COPY T>[A](▟[S]HW[P]_OCODE O[P]2▞<[K]r IF ▛l@[K]xH LIST SGN ▜} RETURN CLEAR IF CLEAR ▝ CLS ▚ COPY ~CHR$ ▝T OVER |[G][$@ LPRINT LIST SAVE SAVE COPY ~ DRAW |©[Q] RUN STR$ @▘@|(▗[B] SAVE ▗8 SAVE CHR$ |CHR$ ▘ INK FLASH } RETURN c©©IN ▛D|[Q]▝ CLEAR + RETURN ERASE ▘ SAVE LPRINT ,@ACS b▜ BRIGHT FN INK NEXT NOT >=▗P DRAW IN ©▝▜ OUT INVERSE OVER SAVE Ud;u|o&@) RETURN COPY [M] DRAW /{BIN Q OR BRIGHT ▘ COPY ?m COPY M@8LEN ▞ LOAD @J>} CLS FORMAT COPY b▝ READ >R~#?ATN ▚ FOR PRINT CLS IN ^LN DATA [H]▚© COPY LET LPRINT STR$ ▝L~@ FORMAT ▜STR$ LLIST NEXT NEXT CLS [C] BRIGHT USR CLS ▘ RANDOMIZE RANDOMIZE {~FN ]@©a▘ CLS PRINT COPY ▘m~QUSR 4[T]▜ GO TO CIRCLE LIST [Q]USR ▝A▝[H](ERND©H6(@'| COPY , CLEAR ▝ DRAW $VAL FN 4[Q]▗ SAVE SGN OVER VAL$ PI@COS RETURN POKE DRAW CONTINUE FORMAT k▘~=P IF w}4▝@ CLEAR COPY (p.NOT CLEAR @ PLOT j DRAW SCREEN$ INKEY$x@ FOR [F]USR yJ)yyz[E]Rzzz)RND{{{RJ{||RND[E]||}}J)}}~ej LPRINT ~P)©'{@▝USR USR COPY G RANDOMIZE G INVERSE C OVER D FLASH J)Ex INK `J[F][Q] LPRINT POINT FN y SCREEN$ T`[Q] CLEAR FN -%U6l BRIGHT THEN RETURN Rr /JUSR `USR .W|0INT k LPRINT d[A](b DEF FN AT d VERIFY NEW f SAVE 8u▜ RETURN RETURN LPRINT f* NEW _-e LPRINT RETURN STEP TO /[J]s' LOAD [N]/_.5w RETURN n PAPER >8▗[U]A NEW DRAW DRAW NEW DEF FN ,% IF i[O] FOR i BORDER [H]ATN LPRINT INKEY$ NEW [J][P]kPEEK +v GO TO SAVE GO TO O;CODE G▘ AND INPUT RETURN VERIFY AND ABS USR NEW PLOT RETURN INPUT NEW [G]! CAT ?oO REM DATA IF J OVER ©▜<5o SAVE oWS[J]^o INPUT |ACS AND AND VERIFY H|[E] FOR /© RETURN W'![O]▛NOT :▜ STEP BEEP OUT ▞NOT [S]4 SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙ INPUT wpkd^YTOKGB?;ATN 52/,*'%# LOAD ] BEEP OPEN # INVERSE J INPUT BORDER hPEEK {g]r[M].9 GO SUB ;.-_ COPY " BORDER ▜P" LINE ▖ RESTORE ~2NOT 2 LPRINT ▞##~ LLIST PRINT RESTORE "SQR ▜ @ CIRCLE ▜^#V#" PLOT PP▜ LLIST ▖!,-▜[Q]COS p GO SUB VAL ! DATA ▚ RESTORE ▚G[A]> COPY 2▜2[Q][Q]& FOR ▚2 PLOT ▜![Q] CLOSE #▚"a'▜ LET [Q]*@o[F]g" RETURN ▜ STEP PRINT INT ▞!▘ DATA ▗>N#F# RESTORE i` OR FOR &U# FOR LLIST = FOR THEN N`i+[U]<>~▜ ERASE )#[K]O▜▝SIN SGN _VAL FOR /PI" FOR #v NEW C<(H~ PLOT <>>2▖ INVERSE _▜_ INVERSE INVERSE ~ THEN ©▞J THEN wCHR$ b▖B MERGE FN NEW LIST 0 OPEN #W{ NEW o INVERSE ^ INVERSE THEN DATA n>= THEN IF Lk~@ LPRINT ~#fo THEN (z( THEN INT <>PI GO SUB R<>^ DATA ▚: FOR ▚<(I=2<▖*[E]R"E CONTINUE [Q] GO TO 3▖: INPUT ▚2▖[S][Q] REM ?▖<2 INVERSE PEEK SCREEN$ [E]v OVER BORDER STEP >▖y THEN VAL 23▜ PAUSE LET ▖|22▜} STEP -24▜ STEP ©▖O)",▜[ LOAD [ PLOT - FOR [[ NEXT FLASH ACS [ RUN [ RANDOMIZE [ PRINT >=[K][[:▞JU: PAUSE [:[P][M]VLEN [M▞[F]ACS [5[.[ IF INVERSE [▜[M[COS e[ RETURN [▜U&[▜[ LINE [K][[[G]/[F][ CLEAR [k▜[ THEN THEN _TAB ACS _6_0▜!9▜IN COPY ( VERIFY +BJ GO SUB yC GO SUB ATTR = PAUSE STEP ▞CODE 52 <>>| LPRINT ▞ LINE 2=[E]R LINE USR [D]g5 LIST :▜*~<T TO PRINT I,p` STEP @ MERGE PAUSE 2RPOINT q%%2u#t)>= PAUSE Q:+*uC[G]>PI LINE /Hsg DATA ▚ GO SUB [Q]Q[F]![F]!c LOAD Qu!ATN !g IF [A]y! INVERSE y"7▜TM> LLIST LOAD ATN @<>[M]©2LN [S]~#INT PAPER ▛SQR PAPER ▛ RETURN PAPER ?▛ LINE V[R][A] PAPER ]}[R] PAPER ©@LEN PAPER ▜▛ VERIFY LEN INVERSE w*NOT LN INVERSE 6[Q] INVERSE ~ RETURN LINE ▛CODE > COPY <> VERIFY ` DATA ▗▜▝O▖[B]GH(GO%w*Q INVERSE q-p: VERIFY INKEY$;$YQ6 COPY RESTORE B▝CHR$ iNRND [L]~2ABS #PEEK [A]JCODE ![B]&EXP ;G[R]▜RND[L]pJ^▚$^FN ▖lJ ERASE 4f>=* INPUT PSIN "[S]tVAL$ [U]vACS PLOT 6/ACS vACS IF v(C)1995. COMPOSED BY T4WIN S AND VAL$ [R]H COPY VAL$ ?](▝hATN ,▝▛/ GO TO pINKEY$( DATA ABS A)m( INPUT FSIN d▝tVAL LEN hp OVER td$ INVERSE ""t RUN INVERSE [D]@ LOAD k COPY SIN g▝}CODE 58<5TAN 8USR u)SIN }37:3:7TAN :USR v)[F]h▝pVAL$ g: CONTINUE g8bATTR 8LN g$ COPY LEN AVAL 5ATTR <VAL 8ATTR 5VAL VAL$ POINT <Vv8POINT &R:=ATTR :eEXP =:)3SCREEN$ [K]7 NEW nPOINT :|* CLOSE #]AAPOINT <▝uCODE RND#:▝~, LIST ▝ VERIFY MERGE n▝vCODE )LEN ))SIN LN DATA SIN uw' DATA LEN ''SIN SIN FLASH PRINT v"COS )@ NEW {RSCREEN$ ,CODE 5/SCREEN$ 8LEN zCODE 'SCREEN$ +CODE 3SCREEN$ 70Y DRAW N58FN W<5QCODE =ACODE 8TAB 5 FORMAT `ATTR :XXPOINT :PIU(j▝zVAL ATTR VAL CAT LPRINT &$SIN "LEN .)SCOS ..SIN FORMAT [Q]LEN 'COS DRAW LEN ,,,$LEN 00(. COPY USR <>pVAL$ ▜FN FLASH M0VAL ,ATTR ) READ sMATTR ,SIN SIN ,POINT 5[B].1ATTR .) THEN 1.[E]H'+W MERGE ABS '+POINT .}]$ DATA 05POINT 0▝k▝, PLOT THEN ). OUT INPUT ' DEF FN 7%ESCREEN$ j[I]Q OR INKEY$[M]C VERIFY RUN $[D]t FOR INVERSE 4pg<CODE 8SCREEN$ 5CODE <wv{bS8FN 1j"[P]e:AT [K]sBsVAL$ I04SCREEN$ 0CODE 7SCREEN$ 4[K]5[T]>=b'<AT A COPY TAN [Q]Z5▞p8Qd7:COS r1g":5▝"w1f"SIN 8ACS 5USR ▞O0$SIN RND@ LINE VAL TAN LEN [L]Y;1jiEXP INPUT 3 FOR 1TAB UsBi DEF FN 0(4 FORMAT 7ATTR 45kbT[B]'<TAB A FORMAT [Q][A]l[K]3LN g57SGN g[E]:TAN bTAB :ACS fINT SGN Rn}<VAL$ POKE ▖[L]Qp0TAB 7CODE [A]5TiSTR$ TAN [S][Q]iAT 5SIN <5TAN 8=5LN =TAN 3SIN :33ACS 7TAN [F]LN !@[Q]RND[E]J)[E]R)RNDRND[E]J)[E]R)RNDRJ !RND[E]"#$J)%&'[E]R()*)RND+,-.RJ/01RND[E]234J)567[E]R89:)RND;<=>J?@ /?OATN )[Q]n CONTINUE INVERSE , PAUSE GO SUB #*.5[# PAUSE SjHCODE m) STEP )*S[ CLOSE #LD4ATN mATTR SCREEN$ [Q]a© RUN =je▚a[Q] DATA INKEY$ iJ FOR [D]a BORDER [M][J]C[K]9[J] CIRCLE [M]FN J[D][D] PLOT FORMAT POINT T)U)Ey COPY NOT aPEEK SCREEN$ NOT [D] SAVE gg LIST yyWSTR$ %[P]NOT ' LIST :[D]RND PAPER iFN [G][J]Ms[D][G]ACS POINT BRIGHT BEEP NOT CAT TO ^RIpNOT PAUSE m&m3 INPUT [M]&▚ LIST [R]▘%(J)[E]R)RNDRND[E]J))[F]POINT RJ)[Q] !RJ"#$RND[E]%&'J)()*[E]R+,-)RND./01RJ234RND[E]567J)89:[E]R;<=RND>?@@USR cATTR _ LPRINT [H][K] DRAW ▝POINT LIST D/STR$ ▚ DRAW OUT IN USR LET RUN 7▟/3/VAL$ I33SCREEN$ ^3NOT INT LET 2ABS LET 2▚▟ RANDOMIZE 4 ERASE THEN 3PEEK RETURN CLEAR DRAW x CLOSE #Ga[N]- RETURN RETURN COPY THEN RUN REM ▘(LN RANDOMIZE CLS CLEAR d NEXT STEP GO TO EXP [M] STEP Z} OPEN # TO HxATN STEP RESTORE [P] RUN ! COPY OUT r STEP 5[P]p STEP 1[P]zPEEK (!CODE 2 DATA [O] AND 2[N]! INVERSE "▘k[P]!<>[M]"u[P]1[O] STEP =@S.I| GO SUB G<wSGN # CLS l6NOT ![P]"▘▝ GO SUB B^ STEP X[P]>(2[B]! CIRCLE ▗ CLS 1r( CLS STEP >=[S]wvCODE FLASH RETURN / NEW ([,"[M]j[I][M]<2KHBIN FN "▗[P] PAPER (zCOS INVERSE CIRCLE :▚SCREEN$ 2l!0▝CODE w#= CLS vv INVERSE R CLEAR SQR [I] SAVE < RETURN ( INVERSE w= IF P▝[M]▜_ CLEAR CLEAR nf@)#> VERIFY = INVERSE # CLEAR LLIST (H CAT STR$ IF <>[Q][O]l[M] CLS NOT [M]: GO SUB I[D] IF [D]▛ SAVE AU SAVE Y:/ GO SUB V LEN CODE OPEN # RETURN ! COPY Z RETURN Z COPY #w GO SUB LN DIM INPUT 2 PLOT LINE [M]USR > MOVE INK (( LLIST NOT [O] INPUT [N]2q[N]! THEN [N]"a[N]>LN 2X[N] CONTINUE INKEY$IPIPIINT OR x RETURN *▟CHR$ RETURN RETURN ($g[Q] INVERSE INKEY$#~ RETURN COPY ) INVERSE 6P><=2([N] RETURN LLIST RU[O][L]NOT [Q]ACS POINT ATN !2~ AND (wNOT STR$ 9u INVERSE t~[U]*TAN BORDER O/Kg[R]y STEP > CLEAR ~(V CLEAR [@ REM # AND _ READ + OPEN #l<p]@TAN [N]= [U] INVERSE #STR$ CHR$ [N]<> NEW ▗o NEW SAVE THEN ?[E]G▜<[B]PI >2#[R]t NEXT [A]o/<>/<<>o$=%.H OVER *%[A]5%<>8?LN &-4;AHNU[agmrx}▖▟[C][H][L][Q][U]POINT TAB LEN ASN EXP SGN USR NOT <= LINE STEP FORMAT OPEN # MERGE CIRCLE PAPER INVERSE OUT LLIST READ RESTORE NEW CONTINUE DIM FOR GO TO GO SUB INPUT $ LOAD LOAD LIST COPY g[O]a[O][[O]U[O]O[O]I[O]C[O]=[O]7[O]1[O]+[O]%[O] AND [O][O][O]![P]STR$ [T] GO SUB S[P]AT NEW ▙2 MERGE [O] " LINE [O] NEW [O]USR > INPUT 2 INPUT [O]2[N]2. GO SUB INPUT 2 CLS (( LET >=[M] STOP [M] BORDER 2[M] INVERSE RESTORE CLEAR RESTORE RESTORE MERGE OR PRINT INK [Q] STEP STEP OVER ▗ LET STR$ MOVE LLIST INK @A CLEAR LLIST INVERSE LLIST CLS K>l CLEAR © GO SUB yABS [Q]USR USR COPY ?u GO SUB VAL ▘dK[P](,*!FA!ATTR ▝ PRINT RANDOMIZE k>[E]0 STEP ▛) STEP ▚[P]~2▚SCREEN$ # THEN ~([N] POKE TU[N]+E▘S INVERSE !FG NEW E LLIST LLIST NOT [M] OR ▛` RESTORE n&<=>▘▗g NEXT I INVERSE # PLOT LLIST #▟ INVERSE # BRIGHT INK LLIST T] INVERSE b INVERSE k INVERSE $Q[R]]oT[R]<> THEN ; SAVE = INPUT INK STR$ PI<>z NEW USR { AND _ CIRCLE z VERIFY W<> ANOTHER LPRINT DAY -INTR>=.O? 25SP(ECCELITE MEN DRAW R F:M:-P-R-E-S-T-I-G GO TO 77B/[Q]RFN G YOU:24 INK OUT NATIOL NABB BRIGHT ▛SGN S!) AND MRICV8UE/B%EEV PAUSE EDGPVAL$ WAx Jo▟Oi NEXT P`gSEaDEQTAILS ATN ASN EXeEKPAvSIN FN BTHIAjOCK[F]S. -FF-▟ GAM+IHRT<=.MASCREEN$ XAT MOTO INVERSE <S, LErMR{s8j FIX INVERSE SCREEN$ T$ MERGE <c POKE ;B[R]jgATN "GFXgpMUSICu6[P]FN SGN ▖COS 4RE SCREEN$ T[F] REM EZUY NEXT CALL(▖UKRHQ&+7(0572)688219^<>{[N]IR▙95)167$ TAN KBE: PRINT L1;= LOAD LN DOC"l:A949(M LIST ASN )PRIV[O]9(CMEISw920(PVT)BOSSET DIM cIKURNDSE MOVE AND T OPEN #>= STEP FO)@ TO OG vW@6HOODLUM,SCREEN$ A[T]vGHTAT T_?TSCREEN$ ykRYD[D]m4(D$YL<<KERSi1YAFN XesK~h DRAW OUT~ASN M*BEODTAN cATTR #[J]'95zGY3▙▝ LPRINT gP IF FORMAT {E:u0LLSCREEN$ Z[B]] PLOT YA[N]BIFFY DATA A DIM ACLCHR$ RUFUS[H]LOTTTe/ COPY B: LLIST STR$ MVAL [K]HUfRk▘4 PRINT NVAD SCREEN$ S%DY@ FORMAT R▚P. H DIM I(+4)EITF* MERGE MOVE "▚*>=3EAST(pe[E][F]!(+F CONTINUE d READ [C]U[O] DEF FN INVERSE Z[I]©FNOT ERASE ^MAZASN '▗@4VAL TO 5%ZA TO SCREEN$ K CLOSE #&mSlF CAT P THEN SAVE AND MOVE SQR SG UH<= PLOT Q` MOVE Op ={o} CAT OVER f1 LOAD ABS Y{*{; SAVE OVER ▝COS ▖K NEW FIMzoORV^!$▛{▟TAB BYE PLOT NEW CONTINUE !"w%/ COPY &8[M]eMEGA,p[N]R (+1)▟ACS [F] [S] THEN ORIG![C]4:CH[D]P~ AND ,| COPY $BEXP ;V▞W}4SELECD([E]D INPUT IC STOP ULTY)F_SIN _j[G] LOAD GO SUB $KEYS'a PRINT '#M{<=kEAPqPW NEW SKIP'(TlYI]C5ATN 2n NEXT LWAY COPY COPY COPY NEXT INK RESTORE !RND CIRCLE COPY COPY -* MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !ATTR TAB `TAB DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE tQ GO SUB LN LLIST INK CLS <>/ RETURN @ OUT OUT CLS CLEAR ©INT RUN RUN RUN (P RUN LOAD LOAD LOAD BNM: HJKL:YUIOP6789054321TREWQGF]DSAVCXZ` COPY LINE +[U] COPY % CLS DRAW MP CLEAR COPY [F]7 LOAD %p[E]©IN OUT LOAD RUN CLS CLEAR RETURN CO[E]NGRATULIS!YOU HAVE ED THEFACTORY FROM D[K]ESTRU5PHNOW GO )9T AN3BU'OU*8ReP*bE_AM[R] CIRCLE 4= AVALUgOFTW[P][Q]A$! COPY h[J] CONTINUE ©qIL[K](R .SSlJ!PDK FN f RkjM[Q]AX IAMrO'9RND5#_FATTR [C]▚/SP P[K]jGS PAUSE [E]LrLIN IGb@3BRDS LOMSCREEN$ A MERGE m-USR QKE COPY GO SUB sSQR INT 1X"INT "FN INT x2[N]INT LOAD EXP STEP OPEN #IN $INT !/ RESTORE @ MERGE OR RESTORE GO SUB VAL LLIST / COPY u! LET <>"CHR$ />2>=/!;]B"e/ CLEAR RESTORE CLEAR !:6 COPY [E]/6| RETURN ~ > RETURN 2ATTR INT STEP =* POKE ▗*/"▞U><U2CODE CLEAR LLIST STR$ LLIST MOVE L~<>>IN FLASH RETURN THEN g > CLS ▘▟W O > OUT TGJ>2CODE NOT TO TO CONTINUE NOT TO NEXT /`NOT DRAW BIN :CODE RETURN >=2SQR VERIFY UG:CODE 2#SQR >2T<>BIN STR$ STEP T RANDOMIZE r<> STEP [D]SQR ! CLOSE #^. STEP 7INT w NEW STEP IN WiGkNOT %~ STEP 2SQR NOT 8=( DRAW +>2[U]K$(2RNDCODE mVAL COS 2VAL$ COS INPUT AT P"2U MERGE {f CLOSE #UVAL$ CLOSE #):[H]2TAB !! SAVE LN >NOT zIN > COPY 2ACS [E] THEN LINE SGN RETURN LINE [ SGN PIUSR : [R]P LINE IF LINE LINE ▘B LINE LINE SGN REM [D]`52[O]CODE NOT [K]SGN >PyI95 LINE eSCREEN$ ?IEDK PRINT [H]DSDATTR INVERSE [G]>x/[F]e▖~>▗> LOAD LINE [C]>}INKEY$ PAPER F:U[P]CODE OR STEP ACS * AND "STR$ LET <> NEXT GO SUB sABS o&) CLEAR [A] RANDOMIZE ,O RESTORE LLIST INK % STOP W INK LLIST yASN o~ INK w#EXP INK INKEY$wACS w,NOT ▘Z:CODE PI>=6g<=INKEY$v&STR$ ©1[E] CLEAR Er[F] LLIST TCHR$ rNOT CIRCLE SGN [R]/ SAVE CLEAR ![S]>d MOVE GO SUB [Q]4= THEN TCHR$ [LU RUN VAL$ ,UU LLIST 8U( POKE LEN U/PEEK 1[A]UCODE .} AND o[A]/ CLS # INK 7 CLS <>CODE `2CODE !: OVER [A]PEEK : DEF FN ATN G: STEP ATN STEP ©IN TO ▗mI FORMAT CAT ▜mI ERASE MOVE mI CLOSE # OPEN #▟dI VERIFY MERGE USR R THEN NEW <> THEN DEF FN AND OVER VERIFY <> FLASH NEW w<>! COPY S{SIN W{SIN w# NEXT [E]ATTR ▝▜+ CLOSE # GO SUB VAL INVERSE USR & OR . RESTORE STEP BEEP PEEK INVERSE u INVERSE t( INVERSE # LLIST $STR$ REM <>| NEW USR E[R] AND @W▘H▜▜ NEW LPRINT _} NEW SAVE COS _ FOR <> GO SUB C<=ATN GO SUB S<>ATN " THEN ATN SAVE 4IN :>=ATN [R][E]I GO SUB [:O: LINE TA[S] LLIST x20'0G}LEN , IF V[D]/{ BEEP BvBrB[G]TINT A CLS A FOR [Q] CONTINUE A CLOSE # DRAW INPUT RETURN [Q]<><> STEP [F]IN zPICHR$ IN LINE P@ RETURN RETURN (. RESTORE xRND>= THEN THEN m( PRINT THEN zATN GO SUB Tu[CODE c. CLEAR E[Q]$ GO SUB R[I]_P ERASE <=IN R#"<>9@ COPY <> RETURN COPY >= RETURN LINE RUN IN D LINE DIM IN STEP USR NOT OPEN #IN /%2VAL$ ▟3ACS ▙ NEXT MERGE RESTORE ATN W@< RESTORE :;>=^#V:[C]3 MOVE CLEAR ACS !$JU:▟ASN LINE [K]USR GO SUB K[E]▗p STEP [S]USR 4 LLIST MOVE CLS <>x THEN / AND Xg x NEW USR ▝o<>'L STEP FORMAT USR CONTINUE dACS >/<ATN 2 ERASE USR NOT STR$ ' TO BRIGHT SAVE '' RETURN TO '' LLIST [D] IF 'USR USR [C] SAVE ABS MOVE INVERSE ( LLIST INVERSE ~ INKEY$wTAN INVERSE LN /##$-COS _ SAVE DEF FN FLASH IDJ STEP STEP OUT T] H IF `"2NOT OR STEP "NOT STR$ y RETURN CHR$ POKE CHR$ x AND G RETURN TAN CHR$ PAUSE CHR$ 'H>DNOT x BRIGHT ▜▞FN T]w#FX STEP 0K%gNOT M#CHR$ /NOT LOAD " CLS :[E]v$▟/[// RESTORE STEP INPUT %@@f( DATA COPY GO SUB VAL 2Rd+r CONTINUE CHR$ ABS (X<=L!~ MOVE FOR PIVAL$ STR$ COPY STR$ THEN '$< NEW G LINE COPY NOT h[S]LN NOT !6X> LINE STEP zIN !Vv bb:CODE PI▚DUSR PI>==$CODE NEW sEXP ~2_H NEW SAVE THEN ? AND O INVERSE ![E] CLEAR OR INVERSE n[I]fC {>▚S[E]y FOR q=>=< CONTINUE <>:VAL (COS RETURN #RVAL$ COS PIUSR STR$ :PEEK COS ATTR Vim LINE LEN BIN q CLEAR AT G)[U]wTAB RNDCODE 1[POINT *:k OR >lNOT [R]SIN C> OUT STEP t[C]LN x= OPEN # RETURN CLS v POKE PRINT POINT TCHR$ <>N, LPRINT "[F]CODE #!?▞= STEP ATTR PEEK STEP [G]▘,/ THEN /! CLOSE #~J%SQR t#1 FORMAT (SQR Q*i[D]# CAT [Q][A] GO SUB CHR$ STEP PEEK [U]ABS STEP RND POKE w(! LPRINT STEP PRINT L RUN INT STEP z<= STEP [E]; MOVE . VERIFY STEP S OPEN # STEP LPRINT BEEP STEP INKEY$ STEP >2LN COS STEP [Q][Q] MOVE >= STEP { DEF FN STEP )SCREEN$ TAN STEP o%"JNN[O]NOT /: BEEP SGN [R]<SIN COS INT T▙[S]PEEK etBIN CODE b$NOT TAB OR 6< NEW 0j PAUSE 8SQR COS &* DIM JDIN COS USR :INT [C] LINE POINT AND ▙CHR$ '▘ LINE <=[J]" LINE c AND :ABS $5 LINE X[U]CODE G; VERIFY dLN CHR$ '<=>PI[Q]CODE a RETURN CIRCLE RETURN LINE M,R[B]>2 OPEN #.▞SGN CHR$ * THEN :[A][R]Mo AND =CODE 2USR (COS :COS ▖ COPY >=* PLOT LN ~P!Rw> 2bJP<NOT TAN [J] THEN _,[M],CODE ATTR rEASN CODE ABS i DEF FN / RETURN CIRCLE STEP ' STEP [S]SQR AND [T]][L]NOT ) SAVE )IN M)K)AT ;)"<=SIN &[F].= NEW ▜BSCREEN$ FORMAT N`<>TAB o STEP STEP ERASE STEP X[Q] SAVE M BEEP STEP 4 CAT VAL ( BEEP LLIST INK OR @VAL IF DIM NOT DIM IF ABS VAL$ *CODE STEP SQR `USR STEP VAL$ IN STEP 3PEEK NOT ABS [S]$2ABS [G] SAVE LN "+IRPEEK CODE v>.@ DEF FN [G]SQR CODE ▜▜ AND IEG▜ STOP SCREEN$ 4POINT ▝[R] FORMAT :ACS h!Y8E TO AT j FORMAT MERGE ATN BIN OVER )e STOP FOR LLIST STOP SIN a< DATA [H]aF▜q '>=~NAT PI:RLN !`>=O[Q] READ )>=dKK G PRINT <>[C] RESTORE MERGE } LLIST % RETURN [Q]G(NOT ?>= COPY COPY COPY COPY VAL$ jATN CIRCLE Gc STEP >= OUT AND [F]>= BEEP q* BORDER n,SCREEN$ LEN 5) GO TO SCREEN$ yEXP OR uSQR /u]uNOT T[a INPUT hlFN <> RETURN ERASE UA:CODE NOT DRAW ^p!=[SCREEN$ ▜< TO THEN IN ! GO TO [U]CODE AND iRND[O]! LINE L LINE RETURN ",# ERASE 2<>CHR$ USR :LEN [A]*D▙% LINE 9 THEN 2 TO RETURN ▝, LINE FORMAT THEN RETURN U[G]ASIN L[G]) LINE geYY[G]I :SCREEN$ *q LINE FOR IN RETURN OTATTR INVERSE /eSCREEN$ #aCINT / CONTINUE RNDT%hPEEK GO TO G OR LN INT [I] LINE 0.BTAB CODE :ASN COS )STR$ STR$ D PAPER RESTORE SIN & LINE LINE POINT ZSIN / VERIFY 3 FORMAT PLOT RETURN CHR$ SAVE <> COPY B8'[U] LINE CSCREEN$ VAL NEW 8CHR$ USR CHR$ ▟LN >==]T8&~+[@8CHR$ AT USR [Q]8kFN [A]8# LINE ▗ LINE G4UVAL$ '!▘!n LIST LINE w LINE =VAL p)= FORMAT INK ©[I]▗O[= LET ZLN C▗F[F]EJ PAUSE < READ MERGE LINE 2 MERGE EY. LOAD LINE CONTINUE < DIM TAN PRINT POKE DIM 9.[M][K][J]XPOINT POKE STOP RETURN COS fINT o[M][D][C] THEN [C]▗ CONTINUE LINE I THEN +[F]" RETURN 0 CLEAR >=[R] CLS USR FN CHR$ /ATN CLOSE #W9'T FORMAT nwuOTAB h BEEP hsh! LINE SIN TO ]hhhCODE ,[G]hhu▝h BRIGHT +NOT h LINE TO hEXP VAL$ h MOVE hE TO ASN qh LINE ▗h` BEEP h[J]sUSR TO k@ ERASE FSTR$ VAL VERIFY >[I] BEEP NOT =+6 GO SUB CLOSE #[H]+[S]0+K LINE INPUT POINT [L]@COS 3[F][I]©33-Q MERGE LINE ASQR LBIN U STEP 1B FOR k<= STEP <=[A]Q PRINT CLOSE #x0▝ RESTORE INVERSE LLIST <> NEXT &F.2 RETURN D RETURN ;E%,|▝g[J]zCOS CHR$ 1 STEP 2]I##▟#U0#POINT DEF FN ERASE 2 CLOSE #RND[E] PAPER LPRINT NEW J) GO TO PAUSE SAVE J) RETURN ERASE [U] ERASE CIRCLE [E]R OVER DATA REM RND LIST PLOT DRAW ERASE 6)w2SQR MOVE 2PEEK LINE STEP RJ INK BRIGHT CONTINUE RND[E] FOR SAVE CLS J)&[E]R(+POINT [U]8;QSTR$ FORMAT RJ OUT INPUT RETURN RND[E]Q:NOT COS [H] RETURN CLEAR SCREEN$ CIRCLE $z[O]VAL CHR$ CLOSE # NEW SAVE RUN ▜COS w OUT THEN ▟ READ POKE INVERSE [A] CLS [D][R]/[G]+}[J]C_ CONTINUE [M][[P]@s<>!LN <!p▛ LINE 0 CAT THEN PEEK # LET OPEN #/$▖s FORMAT :LN THEN ©USR VERIFY LEN ▙>p▝ INPUT !?_ DEF FN #ASN .erBt RESTORE !AT CAT MOVE STEP STOP CAT LLIST ~ AND Tr!K COPY 2Q.<u* DEF FN 1dUINKEY$k©* THEN 4CHR$ RETURN m[G] FORMAT ▘m<>[L]▚ FLASH ACS BGINKEY$;~ DEF FN !LTAB T`[J]= LPRINT INK alE# INK d INPUT 1k STEP E<>!jLN plP0▝ INVERSE Xq MERGE TO VERIFY ~ RETURN l LINE SGN FORMAT RETURN mSIN ,no, THEN pqPEEK >=SIN IN GRCHR$ ©u POKE FORMAT TAN 80STR$ .TAB THEN y5SGN [S][K]U VERIFY ] OR [R]P! LLIST #1 REM !▛ DIM ▞k▘[G]$[▗ RETURN d<>ZD[F]# OR ^P POKE 2 MOVE INVERSE ^4VQ INVERSE n@fNOT tC PAPER LPRINT hfh~})>=CHR$ FLASH &12FN 4[R]CODE 2POINT aE[B]INKEY$2PIn;"SCREEN$ dLPI>= STEP ? ERASE : G DIM ? LPRINT POINT AT POINT :GJVAL$ GO SUB [, INK VAL$ LEN !VAL$ [E]:@G OR STEP COS MOVE [POINT R BEEP EAT # THEN W OUT RETURN ERASE /#' ERASE ><> ERASE i[B]5" ERASE v>=[K], ERASE d STEP 6.[M] FORMAT [G]`▝ OPEN #VAL$ CODE FOR STEP i STEP ERASE FOR FOR STR$ ! MERGE ▛p PAUSE COS y$NOT MrmNOT OPEN #[B] STEP rNOT - STEP r"NOT : STEP r,NOT G©6NOT AT "6*SCREEN$ CODE ( LINE RND CLOSE # LINE f LLIST LINE [A]USR "[P] OPEN #" OPEN # OPEN ##" OVER OPEN #S!VAL$ LEN "[T] LLIST DIM P[F] VERIFY NEXT CAT 2PI(2 OPEN #2 GO TO =2 INK DATA 5▛ OPEN # REM INK VAL /o& COPY [H]|b NEW 8 VERIFY I PLOT 1 STEP [G] MERGE USR U~/! INPUT <>"6[T] CLOSE #"t CLOSE #▝▘© CLOSE #S*[F]:▘!COS w CLOSE #[G]> CLOSE #2▟Q[K][G]z CLOSE #IN {([G][Q] TO CODE ^[F]TAB [Q][Q]ASN [U] REM [U] DATA CIRCLE PISCREEN$ BRIGHT INK [A][C]A{TINKEY$ CONTINUE D INK "LVAL 9'2 GO TO CIRCLE 2 STEP OFN < INK 2G INK NOT v[Q] READ % MERGE "a MERGE $RPOINT lf:o[J][O]wd MERGE 4+9! MERGE FLASH 9oINKEY$gr[J]/ STOP FOR w GO TO CHR$ LLIST <> PLOT MERGE GO TO GO TO LIST FB NEW <>/▝W/W~ RESTORE ~ RESTORE LPRINT RESTORE W% FLASH %* VERIFY X~*/ MOVE SQR R^ CLOSE # BRIGHT LIST ▛PI LINE VERIFY ##N#Fg DRAW [GaLDNOT COS $[C]DBIN 2STR$ W2CHR$ DLEN ▞ OR 'USR :Z[L]) CLEAR VERIFY :%G.) NEXT pFN BIN CLOSE #I1 INK <=ASN !<= STEP *:EIFN eABS SC RANDOMIZE BEEP [I][B]ABS ERASE 'YABS ERASE 4[B]ABS ERASE AY[I]ABS n RANDOMIZE ABS [I]▙^[A] BEEP [I][D]COS FOR ACS l[A]CHR$ COS ][C]TAB kACS [C]INT va[C]. TO <= INK [C] CLOSE # RUN [C][ CLEAR q=o INK [G]FN BSCREEN$ CIRCLE [G]p[E]U LINE 8[G]<= BEEP SIN ASN [G][T]]K[G]V)[G]NOT [O]SIN Y76 CAT 777)[N]77NOT 5IV ▙OSIN 8▙9[N]▙9V!▙NOT !SIN Y: CAT ;-[N];>=[C]< LINE CLOSE # RANDOMIZE LN <> REM SIN J CLOSE #i CLOSE # CIRCLE STOP <>"ATTR CONTINUE ▙VAL$ PAPER VAL$ CODE ▘ LINE PAPER OR CODE PAPER "T NEW PAPER AND COS SGN STEP AND PAPER 2 PAPER © RUN F AND FORMAT VAL$ OR ATTR g>J GO SUB FORMAT CLOSE # OVER CLOSE #▘M©ABS CONTINUE ABS PEEK NEXT KPOINT MERGE ▚ PLOT RETURN [T]ACS FOR VERIFY TO FLASH ^j VERIFY INPUT RANDOMIZE Q VERIFY BEEP LOAD LPRINT [U] MERGE ; GO TO ATTR LPRINT LPRINT DATA PAPER &<>?} READ LN DATA 2@ NEXT RESTORE ?. BORDER STEP d* CONTINUE & DIM 2vR@ LOAD OVER J&" REM ] FOR r?[N] GO TO COPY 0V INPUT COPY RANDOMIZE Gv LOAD DATA SIN RUN = GO SUB SAVE 2EXP qg LET dc PAUSE _ NEXT >[K] POKE RANDOMIZE PLOT [A] LOAD #/>[ IF COPY .[B] CLS COPY +RND DRAW BRIGHT U[Q] BRIGHT [N] BRIGHT RESTORE BRIGHT - INVERSE u INVERSE 4@[C][B]#3▟▙PE[F]4 OUT ▙ READ LINE [R] RETURN ▞3 STOP [A] COPY _2[C] CLEAR 1@[D] FORMAT CONTINUE .>=[E]$8[G]FN "k3|[H]/H[D]<>[I]Mz[J]y[K]%x[L]G3D[M]4PI2POINT [N] RETURN 2rq[O]% CAT [P]FN ERASE [Q]#5J5RTRND&}Ms$5d[A]5m[B]'[D]ATTR [C]©[D][Q] ,ABS ( THEN 5'[F] THEN *M5 CLS [F][R]▞VAL$ 5 CIRCLE [K] RETURN OVER * REM [L]ATTR L([M] DRAW [R](t40:[L]"f*Z[F]5i TO [K] STEP <>_8[B][U]RAJ NEW [D]+S▞!U4 LLIST [F]22;4LEN 4 DIM [H][D]>=EXP 4 LET [J]G4STR$ T3▞ DATA H OR [L]G4<>[M]RND) G RUN LIST SAVE <I<>|? SAVE R LPRINT SAVE LIST LPRINT RNDUSR ▝▝STR$ e[T]USR R▚ SAVE T$A SAVE LIST LIST nM,0Ui DRAW ` INK DEF FN DRAW n[F]* LIST ^[U]! DRAW PEEK > RETURN P DRAW LPRINT ?>|© DRAW [K]U}SCREEN$ nF[A]JPOINT ▜yu?[F] INPUT v RETURN [E]" LPRINT USR COS ?1TR~<>Q DRAW NOT k[O]©©9,3▝ASN COPY I VERIFY E;HU©[S][E]w SAVE V= LIST y LIST © RETURN uKUUSQR f,IN TO [Z CLOSE #wE NEXT / LPRINT PMINKEY$FN RETURN VAL$ l RETURN CODE USR ©*POINT REM ©▞©y?k[K]SCREEN$ 3i=TAB NEXT VAL$ ©©@▝?} RETURN ▙*[A]L LIST x SAVE x<p[I]j RANDOMIZE = BRIGHT ?kC{ LINE 3A[J]SCREEN$ RANDOMIZE CAT [U]IN SILEN RETURN ~ SAVE INKEY$ PRINT POINT I3ATN ATTR [L]▗ RETURN 4NOT "JR?©▖ COPY SCREEN$ ▘g SAVE ><|<y$LEN DRAW ?▞|[K]7~▝IN a▝c7m<>|▝IN LIST [R] FOR RETURN |>x~?0zPI&USTR$ ▙LN 5| CAT J▝[B] DRAW VAL$ MOVE VAL$ CSTR$ @U *SCREEN$ _ LOAD T? COPY COPY RNDx CLS COPY T+ LOAD VAL$ RM[U] COPY f[Q]6DR NEXT [O]USR NFN COPY q?[G]U©, RETURN i[I]2`▟4+pkr▘ FLASH kqSQR FLASH [LEN P[Q][S]-SQR CLS CLS VAL ASN [Q] CLS OUT © LIST SCREEN$ ACODE IN ATN ~ LET rGHP COPY CLEAR DPEEK RUN [S]_L CLEAR oATTR f~bO OVER /VAL SCREEN$ RUN COPY ?O_ CLEAR COPY o©ACS [H]PI PATN [S][U] MOVE PRINT INK p>LN (W~EXP LOAD CyP OPEN #a LLIST USR NEXT ERASE USR READ RANDOMIZE [Q]E OUT p REM VAL [F]USR , FOR `,[Q]K LIST VU5eP:p*Fb[A]V( SAVE [E]W LIST M)8x,jV45P SAVE [C] DRAW ©NATN `R PAUSE THEN RETURN UT[F] RANDOMIZE f GO TO Q LPRINT LPRINT [R] LPRINT DRAW PI SAVE LIST d@USR LPRINT FN ▝ LPRINT CODE DRAW ▜ SAVE [T] LIST LPRINT AND DIM 3[A]' LLIST NEW ~#v COPY LOAD ▝@ INVERSE COPY wSCREEN$ U%B CONTINUE ▝<~Ztg INK ▝▝1[J]NOT INPUT CAT 'ABS +{NOT [J]>=wTAB [Q] STOP ABS STOP STEP STOP INVERSE STOP GO SUB STOP CLEAR STOP SCREEN$ SCREEN$ READ FORMAT AT l[C] PAPER PAPER [C][C]l RETURN RETURN [R]ABS RETURN l= READ MpE READ M READ UzVL INVERSE e, OVER CODE PLOT (++H▞BrOe[P]=[E]x^[B]5SCREEN$ 2[P] STEP CLS ($IUVAL$ a NEXT SIN [C]SQR RETURN hY CLEAR SIN $I RETURN VERIFY RUN & COPY INKEY$H0u PAUSE LOAD vB▝s PLOT LINE DATA Ot[C] OR o NEW CODE TO DJ LOAD INPUT POKE 3%I[C], FORMAT @ BORDER OVER PRINT OVER [C][D]SIN n MERGE IN BH©$HPEEK O MOVE POKE ?d▖![C] CIRCLE FN `$[E]FN z[I][P][O]VLN SAVE V AND NOT LIST [S]P TO SGN ▖m@POINT @TAN IN i LIST ©USR x IF NOT {▜INKEY$0d DIM uDU~IiUSR [J]q8$Ys LOAD k OPEN #O"Is LLIST -k ERASE S RANDOMIZE [Q]▖P OUT [U]SB▗Q0CHR$ }▚h[S]▗▜<=,PEEK [C]TO DATA oACS "IZ OUT PAPER CLEAR REM [E]$[B] CLEAR GO TO LPRINT CLS COPY 'QH PAUSE BIN _@ INK ,HBTAB INVERSE MERGE CLEAR POKE CLS ' VERIFY CLS (^ FOR {P IF [S]HUSR RESTORE x©h RESTORE CLEAR CLS [S][K] CLEAR LOAD BRIGHT INVERSE CLS [A]H GO SUB BEEP IF CLEAR FOR [T] CONTINUE { RANDOMIZE REM INPUT $[F] MERGE LOAD R!I[D]R)iJX OPEN #CHR$ S CIRCLE LEN 2 DRAW RATN [B]$7 BEEP 2) NEW DATA ,(U LPRINT IN [G] COPY NOT z` LPRINT IF #[I]!ma[E]e"[C] LOAD [A]▝J©4{}▞[E]V2c<=& LIST ,"▚LEN SAVE INVERSE " STEP INPUT FN [O] PLOT AT ▖B7{*n9L$[T]©] PLOT ^"QCODE DEF FN STEP _ABS CIRCLE '[E]▞ GO TO ©▘ DRAW ©z(I~r| PRINT EB SAVE @YUSR lU<{TAN |}7[G][G]({l~pEx©{<©▘.}m[E]<>w9>PEEK ▞[C]7INT =D)tSCREEN$ l!▞Wv[A]~[U]Ma^CHR$ ISTR$ _0Y[A]▘v> BIN $5O*IN ▜ LOAD : POKE ▗<>CODE aCHR$ VAL$ TAB [I]0AT ATTR &LSCREEN$ POINT FN PICHR$ ▗INKEY$0aRND[U]L[I][T][S][Q] [R] CAT [LEN NEXT @8 DATA >=Gc CLS PI CLEAR OVER THEN OVER REM CODE CODE USR #_ CLS OR LOAD RND(1<>z_ OUT USR _[Q]STR$ ._>>_PEEK G-@@?}USR 1~@ DRAW LPRINT { RESTORE VAL 1 LIST ASN LIST ▟ LIST [E] LPRINT ▝ol{b[E])▗1H[R](>=[A]:.8[D]poCHR$ ▗n0amlL[I]kj&ih▗gaCHR$ fe[I]0dc"DbyaZ`▜_[N]@_ GO TO © PRINT #@Q CLEAR FLASH FLASH LOAD ABS RUN `Q IF IF [Q]LN RETURN USR [B]~TAB POINT E RESTORE CLEAR PRINT NEXT [Q] MERGE CLS J FOR REM w CLS BORDER +{ COPY P CLS E[N] IF OPEN #_ FLASH BORDER TG FOR MERGE c[I]5K BORDER CLS [A][K]80DQkc FLASH # READ "AT PI[T][ CLS ▗0VAL , BORDER BEEP [F] LPRINT CLEAR IF CLOSE #[R] LLIST [O]B[M]SCREEN$ [C]TAN REM DE%N©G CLS US POKE < SAVE RozIQ RUN BRIGHT IF AT eCz CIRCLE [I]$ LIST ▖(ATTR RUN INVERSE R FLASH RETURN G CLS CLEAR (?_IN >CODE 7,▞[S]zot OR *QIN ~ COPY ©[S](ATN =_??78P▞7USR ? OVER G MERGE >= FORMAT e1 CIRCLE SGN LINE AND c>= LET SGN EQ RANDOMIZE /g DIM DIM TO R( REM BIN [L] CONTINUE THEN SCREEN$ FN + FLASH H READ MOVE BTAB [A]e;[U]E{ CLEAR K=7▚P STEP SAVE PRINT SCREEN$ Vm BRIGHT P FOR [O].(2▚O^ OR CHR$ GO SUB (i FOR |$@3kqn?Io RUN >ATTR YC▞▚ACS J[T]T[C]ct, RETURN ▞8$POINT COPY >=[K][E]$E CAT [H] OUT jEINKEY$PI OVER OVER O CLEAR [P] READ FOR IN CIRCLE (/ATN PRINT FLASH 7 CLS GO SUB ( CLS CODE @w LOAD [C] y[G]FN [T]{L[L]▗▛▝PEEK RETURN DATA [A]^ PRINT o[A] RANDOMIZE _C[C] NEXT CODE RETURN _E!NOT DRAW STOP POKE [P]b[U]@$1NOT LOAD ABS 0EA LLIST LPOINT BRIGHT !S:!A[T][D]8NOT ;<![U]NOT [U])[P]* CIRCLE a+[U]v[U]?[U]©IFYv`" TO IF ACS >=LEN OPEN # LPRINT BRIGHT IF IF cPEEK LLIST DEF FN LOAD PEEK `SIN IN l^ RETURN PRINT CAT [K]WUSR OUT `~ CLS CODE K[C]?Y+aX REM 1 OUT $O BEEP {/ STOP [S]h RETURN IF RANDOMIZE BORDER : SAVE (▗/A SAVE &?I POKE DRAW 5? CONTINUE ? @8?0?P: FORMAT `USR ?▖*? LIST ?▖0? ?>@ FORMAT ?©USR !,?U LPRINT ?qEXP ▟6pTAN @B COPY [O]USR `ATTR GO TO p LLIST w BRIGHT ©NOT STR$ <=2& TO OPEN #[O]EXP /▜K▟i NEW TO }6[L]dSCREEN$ W<>lTAB h RANDOMIZE ATN ▘lINT <> DATA ? COPY <7 RETURN OPEN # FOR ^ RETURN ^IN COPY RETURN OVER CLS BABS LOAD RETURN IF VAL SGN (@▝u~ PRINT +"INT ^ STOP FP VERIFY NEW 6©n<=."▝ COPY ^ CONTINUE ▜[Q]P FORMAT mP▝m LINE ▘ABS MERGE T- RUN Kg INK CLEAR | OUT 6^Lu"? BORDER ©▘%^H PAPER W RETURN CHR$ LLIST [Q]K}BIN YVAL$ POKE SIN `AT a2 CONTINUE pSIN ) FORMAT FOR [Q]ACS [M]Y[Q]▝ DATA USR @AT A]@PEEK ▝( LIST [P]SCREEN$ #CNOT )8$ RETURN VAL BSIN NOT &CODE ©TAN qATTR TAB nLN OR ATN INKEY$ MERGE SGN 1-!▛i#INT ZL%<=' OPEN #bLN )G0[U]▚eVCHR$ PEEK ye COPY EXP LIST IF H INPUT / CLEAR Cj[E] ERASE STOP " ERASE STOP OUT M<$/ FORMAT ( CAT *▟▞)©WMAG/▗▗!SQR [ PRINT <=|W▜▘04 DRAW CODE ;Lb" CLEAR ^ CLEAR PAPER SAVE ABS GO SUB $"7sSQR MERGE [M]▖HwSCREEN$ oSINKEY$▞]n[T])$B▖: MOVE [Q]$uSQR j[D][L]T LOAD y STEP OR ? IF <>X ? MERGE LET *SCREEN$ REM PLOT CONTINUE FOR @ LOAD STR$ `b RESTORE ▘▘ THEN -INKEY$6 MOVE NOT 79C` VERIFY ATTR V CONTINUE RNDM▙sf INPUT FORMAT LPRINT ▖ INK DEF FN LIST $EXP RUN m0CODE DIM FSGN ©^CLN ZF LOAD ▙ PRINT [J OUT LINE *" PRINT VERIFY AND ?RNDA0KaDP> RETURN COPY LN [R] CIRCLE r CLEAR ASN ▜#= NEXT PRINT 9[F]}U INK USR [M] IF ATTR J:$ RANDOMIZE W DRAW DRAW PRINT #H[N] IF !SGN |~▘4 CIRCLE #CODE RETURN [I]$}▛[B]©[K] LPRINT S>=FN OPEN #IN PLOT USR COPY [F]BIN CLS Sf_SIN [N] STR$ JBIN PIUQ/~ CLOSE #o>TAN ] FOR <= INK @&' NEW OpUSR I RETURN /[Q][P]^'. BEEP /GTAN -A:CHR$ EWLN KoKCVv=Q PRINT DIM PAUSE >ry[K]L FOR 'S FOR q OR gD1onQm[S]Cl▖▖j THEN H)hX[S]S4[Q]▖edr"LN bPI TO FN Pp#[N] GO SUB HPOINT RUN 'FN LIN [E]7}[I]?PEEK @;](vVAL$ [A]j©%GtSQR o COPY [Q]7n PAPER DATA ^ OVER REM DEF FN NEW ~ RETURN THEN pABS _ LET ;; BEEP ] CLS >SQR }}AO|PEEK [P]~D REM ©[Q]}@d TO {0} ▛oF%Cs; CLS IF CLEAR %a IF PRINT %% IF ; INPUT FLASH RND"%>p~<>j RETURN T VERIFY LEN ▞ERND[U]="j4[S]▖44(4[E]"44E[F]*4[H](4[M]▟(4sPOINT E[E] AND OVER FOR *bQ8 CLEAR |~INT Q[U] COPY COPY SCREEN$ + RUN [S]Ek PLOT 7 MERGE POKE NOT [Q]"d[R]G LOAD TO READ FLASH FORMAT # RUN RESTORE 7INT [U] NEXT [U](B PRINT IF ASN RANDOMIZE OPEN #[G][E]INKEY$ PAUSE RETURN b▘ D LINE $CHR$ ▘INT /INT LINE FLASH RETURN LINE CLEAR ▛)ABS J LIST IN w[I]▛Rc3% FOR =zqD&4 REM P OPEN # CLOSE #D[R][J][O]9[P] ERASE ▘M:LBIN GO TO t3QxSCREEN$ 0CHR$ tFN y#INKEY$u[U]yR[S]j0CHR$ i[O]u#[M]i[K](▗[I]0[G]"[P]>▝STR$ X,( OPEN # ERASE LET I DRAW "? IF )&w~[R]I[C]VAL un[N]jINT AND $, RANDOMIZE ^ POKE PEEK LLIST [I] RETURN POINT ©|)y0 " READ MERGE S/IN ,-IN 5X%INT _INKEY$ACS R THEN [N]e▘ RETURN [C]F©@, SAVE ©# 5j+*CHR$ z} CLEAR STOP LN CODE FWx3O<=47NOT [U]Rl OPEN #b FOR CLEAR ▚! FLASH ERASE PAPER 0b STOP BIN FLASH ([I] BEEP PINOT dPIL▝ NEXT PEEK ahqPI MERGE [J]L[T]+TNOT VERIFY VERIFY 2N▘| AND ▖ THEN 3SXk/. CLS RETURN 1~ NEXT BORDER &p FOR CS CLEAR STOP [U] DRAW VAL [I] ERASE ^D GO SUB IN [B]T# DRAW COPY o LLIST RETURN ▜ CONTINUE _ INVERSE }IN ▖[I]/PEEK ▚▚vI COPY ASN 6W RETURN )USR ? CLEAR E/ IF ▛a PRINT c[I] GO TO RANDOMIZE n RANDOMIZE _$SQR CHR$ PEEK SGN 2▛<>> NEXT Y COPY <>)[B][J] OPEN # INK THEN 8pFN OPEN #J LET TAB TAN LN M+ PRINT *K[O] DEF FN NOT A80INT LIST IATN [G]'pNOT ▜qt FORMAT [R]ut LPRINT vw:xy▜|} CONTINUE FORMAT ~<t© PAPER [A]▗PIEH CLEAR PAUSE [ COPY (.BCOS u IF CJT_ STEP XF4?IN d0▘_COS VAL t'▝IN pp# STOP USR RETURN ▚s SAVE MOVE SCREEN$ `@ CLS RUN iBUSR COPY RETURN CODE [F] GO SUB ▚ DEF FN IF POKE }8U©[T]POINT [H][E]>q[L]P▖[J] THEN W TO ^[P]b LPRINT ▟BIN 3a>[6 CLOSE #[G] RETURN bONOT LPRINT EXP . LIST [L] COPY :[N][O][R]. DEF FN DEF FN # AND MERGE ▟▙:[K]X[L]< LET :Q)POINT Eu[C] MERGE [D]LEN L[E][A]4.[S]:SQR FN [H][I]W[J]▞p[K] CAT ▖=2 LPRINT ,%SBIN ^BIN V[R]CHR$ PAUSE QEXP $Ij CLEAR ;; OUT ;[C]CODE 1=WA6ATTR LEN ${<>zY"|^"?H!> LOAD L?/[C] FORMAT k<S[Q]CODE CHCHR$ OUT CLS OUT a CONTINUE _ MOVE BEEP COS b<> BORDER .7Zs`RTAB } OPEN #C^▘][S], PRINT {©1[U]/$UIN 53@ASN fSCREEN$ PRINT Vx,[AT 0 INPUT PAPER h THEN ▛ OR SQR LN STEP DEF FN LN ▛ CAT ▛SQR FORMAT SQR LN MOVE ERASE LN ▛ OPEN #▛SQR CLOSE #SQR LN MERGE VERIFY LN ▛ BEEP [I]INT CIRCLE q9.f][U] PAPER FLASH [B]Ll5#|h GO SUB RANDOMIZE USR FLASH ▟SCREEN$ RUN <g[F] CAT 1LS} AND FBIN [I] FLASH + BEEP KCHR$ U STEP s PLOT <=* AND 5VAL LPRINT ${▟ BORDER #0=ABS wCHR$ AND HI STOP q▖c?;[R] OUT d▝ LPRINT > LET A[D]<>x[S][I]ATTR H▘[R]USR FN -POINT EX CIRCLE HVAL ▗▛PIP/H[Q]VAL 1`G CONTINUE [R][Q]▙|5T FLASH z' REM FN OR r VERIFY ASN IATTR ▚jkq DIM ?uIn FOR 2 GO TO 5A8 VERIFY D^/AT VERIFY ▖dy▛▟[I][I]FqQv OR (VAL$ LLIST >[H]x COPY "[C] FOR o READ [M]HEWGPILN SIN LET + @ SAVE [M]|0TAB EXP '{ PAPER -[A] ATN MERGE CHR$ PLOT OPEN #1I[U]sA LLIST Pv DATA Y?Y NEW LLIST _[U]{LD OR Z CLOSE #y#▞z!m[C]W_CODE OUT E!?[T]▗u~ATN ©(LEN $ RANDOMIZE CLEAR I TO @ IF PLOT VAL ( REM = RETURN E▛~8B"|SGN PLOT @h[S]INKEY$BIN *ABS DATA Q- CONTINUE d BRIGHT PRINT GO SUB tACS mINKEY$l(4CHR$ PRINT 8kcLN [S] RUN FLASH +BIN gA`S OUT VERIFY [U]▙zd7~/▖e BORDER FUSR # RETURN CLOSE # COPY w#5FHFN MERGE 42<=[M]TAN LN A_[F]S THEN gt▖9© DRAW FN y FOR TTAN IF CODE BORDER CLOSE # RUN w LIST RETURN CONTINUE INT LPRINT VERIFY ] CONTINUE [P]FN CODE >=RNDo[A]P}STR$ [Q]USR ``VAL$ COPY .x SAVE NOT LPRINT [C]A[H] OPEN #[R]sABS LLIST >=' DRAW ~[F][Q] NEXT RUN OUT [P]P OPEN # CLS IN [G][Q]P CLS IN USR RANDOMIZE ATN FLASH >▙<= AND ©1 RETURN OPEN #[G] COPY 4 BRIGHT OVER RETURN X PAPER {`SGN ACS CLS u@]PEEK ! CLS [F]ACS 5&2V]ATTR PLOT >=p RETURN DRAW FLASH |8USR STOP M READ W@IN Z NEW PZLWq COPY ]1:[>ASN >[J]<BB~QB0TB@C@BxD~@|LN qgYNLr67>SCREEN$ "bHpH:6v,7BfZ'[N]BbRJFo[F] BORDER 'mOB[B]w7<@<gRH RETURN IN ;g/ COPY NEXT INK RESTORE ! GO TO [B]?[P] MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !© CLOSE #~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE @ GO SUB LN LLIST INK CLS <>NOT $▜} OUT y[F]I%[D] MOVE % ERASE q)7/%}[P]e8[R]P LOAD LIST F0F8LEN CF,F& CIRCLE AND #© SAVE AND !><& 8Op9 DIM DRAW ▜ LET B▚NOT >NOT [M]EPOINT SAVE READ NEXT ©▜P[I] COPY ,| DATA Dp[F]N ▗J D MOVE BIN OUT $Q$NQ|~PI LLIST LIST LPRINT @`;©apSQR $ TO bUSR TO c SAVE >=>=CHR$ <h<= AND <x LIST * THEN SAVE DRAW H COPY P© LPRINT READ 2d SAVE I DRAW BORDER 0` RETURN | READ IN D<USR { LIST x DRAW x LIST o GO SUB r&ATN @▟ TO USR NOT [Q]2ACS (9 VERIFY FORMAT [M]L CLEAR CODE :FN sEXP 0xF[M]l[[I]# RUN M9 FLASH DIM F PRINT EXP AT [N] DRAW m6F LOAD LN PRINT X LINE PVAL " PRINT VAL ?J%0~Ka> POKE COPY LN CLOSE #▛ COPY LIST Br CLEAR ASN rP= NEXT PRINT (P[F]}U INK USR LEN IF RNDATTR :$ RANDOMIZE W DRAW DRAW PRINT @▝$ PLOT [N] IF J4|~P[Q] DATA X CIRCLE #CODE RETURN [I]2 CONTINUE } INK [A]©[K] LPRINT S COPY IN PLOT %[B]USR COPY CLS dlASN OUT DIM ^_`SIN [N] STR$ JBIN PI<U/M4 THEN ▘kon RUN 1 LINE -ATTR $ASN g&' NEW O[Q]I RETURN p[P]^/pACS w CLS pA NEXT p[Q]<>EXP /V/ RESTORE rL[F] THEN RETURN [D][H]SIN PI/.PI) LIST w LET ENOT fCOS ©[M]*k[L] STEP VAL r"09 INK r LIST LOAD MOVE [H]&ATN ? BRIGHT CODE ▗[E]"S8CODE ▗▗~ SAVE MERGE $ BRIGHT ▚M+ COPY AT PAUSE lTAB IN x LIST CODE CAT SGN FN ATTR SAVE [L]SCREEN$ PEEK m▖+@P MERGE _*CODE ?? REM X_EXP STR$ FORMAT [G]'~>(H[Q],N© PRINT BIN / COPY RETURN dHPEEK POINT COPY COPY LINE o STEP CIRCLE CLEAR OUT COPY PEEK FORMAT $ LOAD z[H]▝EXP M IF CHR$ R RESTORE @ SAVE POKE SCREEN$ * POKE L VERIFY AT [C]▚ LOAD >= LOAD [T] CONTINUE p▗9 DATA G PAUSE G© THEN RANDOMIZE POKE [H] INPUT , OUT pUSR d CAT A/USR ( BORDER r AND 5)j[O][D]> CIRCLE E BORDER qP7[H]==%CHR$ INVERSE 1K#w)goO NEW [E]70 DIM ?[A]zVAL [Q]gD COPY COPY RETURN COPY USR [B] RANDOMIZE NOT BRIGHT d SAVE © LPRINT DRAW IN [H] LIST STR$ @ BRIGHT [Q]>=[U] FORMAT [L][A]` BRIGHT USR [I][A](* MERGE AT 4IUSR 4[U]4USR B[I]uWr44FN m COPY 1)- KEYBKOARD2Q MPSTONSO*Q4SINCLAIRPRODUCED BY'REATI(VE COP[Q]YRIGHT MIOVA[S]LUE COPY @PU▘DIFFULT;LE7LR([I] @ASYMNU)IUMI2CODE 8 STEP 8IN ▚ STEP OPEN #IN STEP IN CLS v NEXT STEP ABS BIN > RUN STEP ©IN LINE ,K▜SIN ▜NOT GO TO ▚SIN ▟><>> STEP kNOT ! STEP PRINT FLASH [G]PEEK TAB 9!W▝ STEP lH2▚)[J] PAPER CIRCLE P!9h[J] FOR [A]COS VAL !XK> STEP zIN EXP t>/V[L] RESTORE PLOT #w6>J.>mABS RUN )m STEP "' BRIGHT STEP )[CODE B" ERASE TAB v MOVE LPRINT STEP LOAD ▖ STEP [E][A] STEP CLOSE #▚<>! BEEP ATN STEP ATN GO SUB VAL CODE 2©VAL$ ! FOR +EXP LLIST SIN :/[PIUSR NEXT CLEAR "H▞ CLEAR !I[S][Q] CLS '"TAB " NEW T CONTINUE n CLEAR f RESTORE INVERSE LLIST &. INVERSE ~PI INVERSE nlf% INVERSE #F[R]%CHR$ P▞> OPEN # RETURN {=CHR$ E[Q]J -CHR$ >= CLEAR eZnr?CHR$ zo^xLEN CHR$ ;▞ INVERSE Ja RETURN cCHR$ AT x*#TJ~q MERGE BORDER [C]▙ LLIST IRND4 CLS VAL$ STR$ ATN ▖ FLASH RETURN ERASE CAT Q LLIST ▞>=<=▖[A]e>= STEP OVER ▖NOT Ti▞ NEXT [G][S](}}ddJJ&VAL$ SS>=SCREEN$ pp MERGE [U]ABS UU[K] FOR ?[D] NEW ?FN [K]TPI*ABS ? STOP [K]Rp}[D] NEW ▜<=MW[N]kR[O]AT PAPER ?Q MERGE ©[N]c[J]T">= STOP [C]POINT LLIST STOP [G])ed PLOT J▗N[G]5RNDJSb+2>=jRNDL[G]PEEK LINE dJJ)[G] OVER }d TO R STOP J[G] REM GO SUB IF Sp: RETURN SCREEN$ [K] STOP o[J]SCREEN$ o/[E]POINT NEW [G] STEP CLOSE # REM Q?S}jCHR$ STEP CLOSE #?▜LU?[F][O]©[O])% PLOT J[G]}[C]POINT COS STAN f©34 PLOT [E]R BORDER pdSIN ▗<[G][H][I] RANDOMIZE dS<>=<> LINE FN pSGN ~© RANDOMIZE 2FN POINT SCREEN$ * CIRCLE &* DATA RESTORE NEW PEEK /9POINT ERASE CIRCLE PEEK IN USR RETURN CLEAR RND* DRAW DATA PEEK DEF FN [Y DEF FN {2[P]Ux>=B*C<[O][P][Q]7d MOVE [O]<▚▜CODE POINT T">=USCREEN$ AND tx INK P GO SUB cxSFN pTAN P} LIST x^PEEK }xd RETURN FN (▞[G]>=u[G] LIST N>=UUx[O]47^(7 RETURN FN DATA GSCREEN$ EXP G@)G▗ocAPIox STEP T=[F]U#SpWp[G]W+rTW RETURN PEEK x?[M][K]SK PAPER OUT INT VAL$ NEW fux[G]INKEY$[J]dTAB FN FN DATA }STAB [C] LIST ZdU[F]▟Zg/c[K]9AT lLe RETURN J|Z LINE MOVE ▜"d<FN Z>=t/t LIST t ERASE gXSIN TAB [U]; CIRCLE /[J]f[D]oSM CLOSE # ERASE ▜mB[K]1[S]d[O][[L][T]STR$ +T DIM xppPEEK < FOR BSCREEN$ LINE ERASE DATA qSCREEN$ ▝SQR TUINKEY$ TO ^3<3Uj FLASH 3TAN STEP TCV_6iim2b*Si=[K] E^pxOJQ▙r^[O]B▙RPOINT CLOSE #F}n▙&VAL NSCREEN$ SCREEN$ )COS 3<JU3xr3TAN [C]SCREEN$ Cx:>T![R] RETURN x CLOSE # CLOSE #mU CLOSE #x9RND[O][O] CLOSE #[K]SQR TAB xV%[F] LIST ' READ / CLEAR ▝ BORDER Wr INPUT +#w DEF FN <CK#[K]zW INK Wr▙RND STEP 9K/sVINT ? OVER 9KINKEY$f/PEEK 9p[T]SCREEN$ SCREEN$ ▙ RETURN FN C(*SCREEN$ [K][R]▚ DEF FN FORMAT Ms CLS [I]^J[A]$_FN ▙ DATA p REM ▞ GO SUB LPRINT [S] LIST ▛6INKEY$U▖COS I LLIST b▟▝▟[E]@<>CODE ▟ LINE ▟ DIM ▟[E]z▙;INKEY$ GO SUB [E]SGN CAT M) STOP PRINT CONTINUE STOP GO SUB [U]>= RESTORE MERGE OR PRINT INK [A] INK CLS STEP ©[B] INVERSE *) [E]! OR [D] STEP [D] STEP NOT [B]"rJ<= DEF FN 2RND$<> CAT POKE / STEP AT [D] )@I?[B]I PAUSE [B]IQ REM IY REM Il[B]NOT INKEY$&[A] STEP CODE [B] NEXT INK STR$ MOVE LLIST INK LET h#8▖[F]▜NOT 0-[T] STEP ▞▛G[L]▟ [T][B]^#V# GO SUB Sw[C] OR .8 RETURN [C] OR *<>ATTR [E] FOR [E]▞[E]&[E]G[E]h[E]{ RETURN >= CLEAR COPY GO SUB yRNDCODE IN INPUT "|[D][Q]#"▜[D]3E IF 5CHR$ *[D]CODE INVERSE w INVERSE ^ INVERSE V RETURN PAPER [S][C]o&) CLS [B]N#Fi` DIM [C]1[C]G[C]O[C]W[C]d[C]n[C]#n INVERSE f~#PICHR$ "RFN NOT u▘t INVERSE qLwNOT FLASH [B])lE~$T,NOT LLIST 2 NEW r THEN [D] TO L[J]<SIN > INVERSE RESTORE =▞L RUN INVERSE LLIST NOT /- THEN [C]/ ▗9 INVERSE 63 INVERSE ~ RETURN ▚ LINE [F][N] LET x FORMAT [D]PEEK RJQ[E] LINE INVERSE p-pUJ VERIFY .PI- THEN 8 THEN =CHR$ CIRCLE [C]Jfu(t GO SUB B%RNDZs INK E LINE r OR $R OR n REM [C]FN ▙[F][E]@) INVERSE 5▘*CHR$ G[D](w INVERSE ^ FORMAT $VJrSCREEN$ 2FCHR$ ATTR CLOSE #FTAN w▝s▚[S]n8fZ RETURN COPY CHR$ JiHfEu<>VtH~#sVAL$ 6ALN 95B(~[E]▚w# ERASE INKEY$[D]4 `<> CLOSE # COPY FORMAT ~ COPY #NOT LEN [D]VAL$ . PAPER / RUN h LLIST a DIM ATTR PIG GO SUB [I] DRAW TAN p1 POKE SGN S$ PLOT TO ~Z8 IF OVER SCREEN$ [C]{f?-wP] LOAD MERGE STAB B[F]R[J]d GO TO COPY COPY 8[E] f GO SUB *[K] OR [L] Y] PI[M]LEN [O] zPEEK [I] FLASH PRt[M]*06<BHNTZSTR$ `_G&/▖VAL$ P?lSGN SQR wY© NEW AT I[D]2C VERIFY dK@ CLS [E][F][F]+[F];[F]K[F][.[F]k[F]▖y/>=5; BORDER /T STEP Op RESTORE V8t#! STOP INKEY$ _"1▘▝SCREEN$ ▗▚▝t▞INT ▘]fg MERGE 79 GO TO 5▚[K] BORDER ,IN NEW FLASH ABS #J[N]SCREEN$ DEF FN CLS &JPEEK ©#n CLEAR JwSCREEN$ &9 LOAD J CLS RETURN #INT PRINT J OUT POINT & BORDER SGN J CLS CLS #USR a) SAVE ABS ^zg CIRCLE ▚SQR _ INVERSE IF !UPOINT LOAD T[H]s OVER SQR RUN CLEAR #u FOR JIN S& CAT yJ OUT RUN # MERGE TAB J CLEAR N&? BORDER J~ OUT #UATN J RUN ;& COPY [M]Ji©#HJ* RESTORE SU_M)RNDLINT 256d[F]▛8POINT POINT ▗(J]A@▘[C]▘AA[F]▘N▘)%▘ ERASE M[Q][E][ RUN [J]~[F][P]`SQR USR OUT [F] SAVE [F] TO C[G]▙[G] INK [G]."[H][L]ATN ?U[F]Z[H]#!%[L]+,[F][H]+[I] LPRINT [H]▙^v[I]. CLEAR IN [I]dG[J]_▝JJ!NPOINT SCREEN$ IU0 LINE 5!5[F]:>@*5XF[O])u▗{[TUDn[O]rpPOINT &TFTU4▙'[U]POINT @[K] DATA [J]SCREEN$ ▛rYN STEP [U][U][{EXP >=EXP ERASE >=w INK [J]z. CAT {N[T] CONTINUE GO TO 'l[K] [K] STOP [K][K]RND[K]TAN [K] STEP J STOP / CONTINUE [K] COPY [L]USR ▙[L][N][L]ACS /-[L]_[L]Fp][L]n/}f[K]!▝▝▗@ RANDOMIZE SCREEN$ [K]!M[O] FORMAT )2 @[L]POINT BTO RESTORE 9ODP#T>!)T PAUSE NEW B%[P]%&1B DATA +-( FORMAT VUSCREEN$ [K] ▗[M]MSCREEN$ 9INKEY$ d-▜3▘[S]▝[UU[U] FORMAT BRIGHT Q5+ TO [K]q DEF FN SCREEN$ TO OkT[D]55+[Q][K]1&$J&"#5 TO SCREEN$ ▛'{SCREEN$ CHR$ OVER /U▞ RANDOMIZE MPOINT U9 BEEP @' FORMAT [E][ OR T RETURN %+q TO TO W- VERIFY TO UqINKEY$aa@ DIM ▝SQR ATN l5U!<>W INK +LN #! MOVE `* CLS I![I]**nR[K]<>f STEP iBSCREEN$ [M]COS [M]EXP <> GO TO [M]PI[N]WC[O]_[O])=v[O]Y[N]7!SQR [N]▟[O]ATTR ([G][O] DIM [N] OUT GO SUB COPY DRAW ~< COPY POKE COPY 7OPj COPY COPY ATN /w COPY CLS COPY /= LOAD IN COPY NEXT INK RESTORE ![Q][S]TAN , MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !_ CLOSE #^ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE B GO SUB LN LLIST INK CLS <>/ COPY COPY CODE IF z COPY BORDER COPY [P]W SAVE REM @ LLIST ?q BEEP 1©IN O RETURN NOT [J] CONTINUE BORDER # GO SUB SCREEN$ ('SCREEN$ OUT FOR COPY ATN P PLOT CONTINUE J BORDER z[C][P] COPY CONTINUE 1C RESTORE LOAD e' IF CLS COPY STOP IN OPEN #jCODE COPY OW[G] INPUT 'ABS © COPY ©TAB v RESTORE INKEY$y>B OUT o'ATTR COPY dOQATTR ] COPY IN W IF REM E NEW AT COPY INPUT CLS RETURN COPY VAL INT NOT OUT LOAD <>'PIN ' RETURN mV COPY FN COPY DRAW PIN QwK%LEN INVERSE PAUSE LET RND FORMAT g) SAVE NOT <=wUx?Bg PRINT IF SCREEN$ SASN WSCREEN$ *D POKE ;_O RUN w RETURN qPEEK [S]HSQR OIN wVAL$ ATN W PAUSE REM _ OR LOAD INK !VAL$ J FLASH MERGE {[B] LINE CODE COPY INVERSE 'SQR RETURN DRAW ?J© RETURN T PLOT RETURN SIN W POKE FOR IVAL CLEAR SAVE LET ATTR CONTINUE LLIST MOVE ;STR$ _ GO SUB @f'[Q]ATTR OPI PRINT PRINT Z_[A] COPY Ag[H] CLOSE #/▜[K] RETURN POINT ACS LLIST 2 LET ;CHR$ _w RETURN U'@3n REM INT | RUN BIN [[B].POINT < LIST RETURN IN ACS GO SUB SAVE SQR NOT [P]'_gUSR ?VAL UCODE CLS ©SQR ATTR STR$ EXP POKE MOVE ATTR rEXP RESTORE MOVE SQR USR OUT GO SUB CAT LPRINT '▙JSCREEN$ u[P] STEP FOR U@<=L BORDER ABS SQR LOAD PEEK PEEK LOAD RANDOMIZE ▝?U@S COPY SCREEN$ SCREEN$ © SAVE CLEAR UIN w LIST REM C▚? BRIGHT _|CODE ABS ;U INPUT CODE w COPY [N] COPY BORDER `'_?[K]ABS M©/INKEY$ STEP O LOAD RESTORE VAL RETURN SQR RETURN 9 FOR v LOAD CONTINUE { ERASE ©INKEY$ COPY J4' FORMAT > COPY PRINT [Q]&ATN PLOT '[S](ATTR RETURN COPY INPUT POINT ! INK <=AATN wACS LOAD FN OUT NEXT IF @[P] PLOT STOP J BEEP IN LOAD COPY OUT SQR PLOT CLEAR . DIM SQR CHR$ '_ PRINT COPY CLEAR ABS POINT COPY NEXT 4 COPY RANDOMIZE ©SPIL* MERGE U© COPY * RETURN RETURN CLEAR FN COS ^ GO SUB PRINT THEN CODE [N]_7] 7INT n[R] RUN RUN PRINT MERGE REM ATTR COPY PI COPY CAT 0 PAUSE *STR$ COPY AT UPPEEK RND©K COPY [F] COPY REM PRINT P BEEP IF CLEAR N REM [F]ABS J CLS LPRINT * VERIFY _@*6 CLEAR 0^© CLS SCREEN$ INVERSE MERGE )p COPY CONTINUE *U}[B]W SAVE /7VAL B RUN [P]}ABS COPY CHR$ FOR RESTORE PRINT SIN RETURN OR COPY K IF (2UATTR IF ] IF IF [N]y© FOR COPY SSCREEN$ ERASE LLIST CODE REM COPY DRAW COPY ZT IF POKE MERGE SAVE © POKE IN INPUT 9 ERASE POINT ^ OUT / LOAD OUT ▛ CLS [E]oJ$IN SGN ©▛ COPY CODE %[J RETURN IN QU COPY ' COPY IF UUJ%[C] REM CLEAR QCODE PIA[E]IN REM OUT CLEAR ▘SSQR PRINT _ RETURN 2FN FLASH _ BEEP COPY TAB M PAPER EXP ASN CLEAR COPY CLS R COPY { MERGE TAB IF zVAL$ CLEAR MERGE NEXT IF CLS COPY NEXT _BIN [T]o ERASE BEEP BORDER k PAUSE ASN BORDER W NEXT REM RESTORE }PEEK . CLEAR PLOT PAPER IF RND COPY VIN FOR [H] VERIFY [S]H[Q]P)SCREEN$ ▘ PRINT E IF SCREEN$ sSCREEN$ © PRINT POINT PRINT JSCREEN$ PRINT TCeUSR © RETURN *nW RETURN IN o_ OUT SCREEN$ m MERGE LOAD IF IN IN RUN INKEY$&f[S]SCREEN$ W©▗UkATTR g!7FN U REM ▙ CLEAR M COPY NEW H CLEAR ^[K]( OVER BEEP LOAD TAB M GO SUB CODE PLOT Z STOP PLOT REM © MERGE UPEEK SCREEN$ U PAPER FORMAT a OR RETURN © CLEAR PEEK [|SCREEN$ ACS Q ERASE ABS U OVER ATTR XWU COPY ©[F] GO SUB REM PRINT IF / DRAW PAPER CLS PRINT Q[Q] BEEP FORMAT ATN CLEAR CLS LOAD © DATA GO SUB CLEAR EMATTR COPY ▖CODE FOR ©@ATTR U MERGE SCREEN$ COPY [P]4 PRINT sVLN ▘ATTR CIRCLE ~ INPUT COPY INVERSE COPY / REM IN W FN ; POKE BEEP IF CODE ASN _ RETURN RETURN BRIGHT ~T*) PRINT IF ▜ COPY O?[H]SCREEN$ u[Q]WPI+ FLASH [D] POKE RANDOMIZE | SAVE PEEK POKE REM VERIFY 3[Q]@B▜SCREEN$ w3 RUN OUT COPY IF RETURN LOAD RETURN PRINT ~{ COPY LEN COPY XIN TAB W FLASH IN (m COPY ? COPY COPY ▜ PRINT ▙ LOAD RESTORE [G] RETURN [Q] MERGE Pk RETURN U POKE FOR CONTINUE [T] LIST ]@SCREEN$ [C]© SAVE [G] RETURN SCREEN$ ( OUT CLOSE #[S]' SAVE PIM STOP Y LPRINT ATTR DRAW COPY SCREEN$ ]>=) NEXT INVERSE CLEAR STR$ EQ&V RETURN ATTR GO SUB f_U COPY CODE iw BEEP *)/ATTR V THEN SQR ASN 4[I]ACS SIN AT C/SQR VAT NEXT }y RETURN BORDER CLEAR OUT REM = COPY SCREEN$ USR '_ OPEN #VAL$ PIhR CLEAR _I MERGE CLEAR NEW RETURN P SAVE %fVo RETURN BEEP LPRINT TAB DRAW ?HATTR COPY s LOAD b FORMAT kG}<=IN OWT STEP ATTR [P] MERGE [P] COPY -W~ATTR ~FN ,u BORDER RUN NEXT IN BEEP LIST ABS @ REM OR $6B8o[A] LIST <>©SCREEN$ PRINT MERGE SCREEN$ PAPER [H]IN REM Eu COPY CONTINUE uABS SCREEN$ *cPATTR AT U}ATTR GO TO RETURN ▝(*aSTR$ P1 IF 7[C]~ FOR LIST PLOT ▘ CLEAR U DATA PRINT tP SAVE N RESTORE CAT INPUT ABS MOVE W COPY [H]PEEK CLS ACS GO TO [R]URNDPEEK LLIST COPY PAUSE 8 TO K$ SAVE NEXT LET RESTORE READ [O] RUN g; CAT [I] INVERSE CAT ~<▜ COPY MNOT @U LPRINT J SAVE CLEAR CODE _Kv CLS COPY RUN ? RETURN MERGE PAPER LOAD ~- GO SUB ABS u[INT CODE uUFN ERASE ▛USR '?SCREEN$ ?' GO TO [U]STR$ ▜ CLS CIRCLE PRINT ((SCREEN$ ATTR PRINT uATTR }UATN ©[A]PACS / FLASH FLASH COPY DEF FN w*ASN RANDOMIZE O PRINT OUT PRINT oSTR$ RUN PRINT ; DRAW COPY r POKE AND { IF + DRAW DATA >▛[F]SCREEN$ LINE CLEAR Q5e; DRAW x LPRINT CAT U RUN SCREEN$ O FLASH 7[T]© OPEN #_i~4TmaPEEK SCREEN$ _ BEEP ©H▗ INPUT [U][R]_ LPRINT P LPRINT STEP NEW NEXT Oi LET tl:IN 4 GO SUB CIRCLE COPY STR$ C+ LET [F] DRAW JPEEK !CSIN z▖▙ATTR MATN owH DEF FN NEXT PRINT {e9: RANDOMIZE SGN ^ CLEAR z▘ FOR GO TO VAL$ ATN U;VAL$ [H]W*ATTR ©<=▜+FN 8 CLEAR [N] COPY N COPY LOAD BRIGHT ABS LIST IF POINT OPEN #U REM TAB U^3M INVERSE R$'"▝N2@USR INT q▖0`STR$ 8[F][M]ATTR GINKEY$FN FN ) PAUSE "GPL[J]"D^"COS LET W LLIST [F]-< BORDER c[O]upNOT RUN Q@CODE _:T(`PUSR #WFN [Q](a OR PLOT SAVE cVAL W CLEAR ASN P IF [Q]u LINE , GO TO $ LIST DRAW Z// SAVE CLS B5 IF ABS REM @ PAUSE INVERSE BIN RUN ISCREEN$ [B]U*SCREEN$ >=[J]▝NOT [B] OUT ▚4 RUN oB DATA SQR RESTORE LOAD wFN RUN INVERSE CLS COPY ]wSCREEN$ &INKEY${▚ POKE *SGN REM BEEP <t▛FN >U▗^[F]@h PRINT @ CONTINUE bSGN RNDZ LET H[/J%C▝C BRIGHT h4PD Pr@k>=,'P,XQ} BORDER LIST 0▘ RETURN [H]▝f<USR [T]ek SAVE ▙PEEK hATN AND l[M]x©d RETURN I[Q]@vFN ABS @ PAUSE OR FORMAT SCREEN$ ▙UQ CLS CODE STOP DIM DEF FN M FORMAT BIN <= LPRINT COPY READ hTAN LOAD FOR (ww INVERSE INVERSE SCREEN$ SCREEN$ U/K LIST lHp STOP [S] RANDOMIZE [U] RANDOMIZE [R] RANDOMIZE CODE P CLS CAT RESTORE OUT PAPER [P]RND=>=3?~ RUN COPY ABS BEEP ZSCREEN$ RNDUPFN 5RSCREEN$ ASN Ks© POKE [Q] DATA OMUU COPY CLEAR CLEAR _ REM COPY RUN PEEK INVERSE LPRINT LOAD SAVE POINT VAL [B] LPRINT [R] LPRINT LPRINT PI FORMAT CONTINUE [R] PLOT CLS LPRINT GO SUB SSCREEN$ GO SUB R! RETURN ATN RUN o(RND[O]?@w DATA ▛ LPRINT P LPRINT ▝ DRAW SAVE LIST ▜ LPRINT ▟USR NEXT DRAW -SIN FOR COPY WN RETURN RETURN DRAW [M] DRAW < DATA POKE t DRAW SGN GO TO DRAW TO DRAW DRAW X[A]<POINT [Q] TO SGN | DRAW TAN d>=© DRAW @yLN <t/Y48 DEF FN [M][G]N▙$▚ DEF FN [G]r[G] DATA ▙>=▚[A] DEF FN RETURN ▚SCREEN$ DEF FN D[G]▙VAL 89rN DATA %>=[A] 8r[M] DATA N>=%[A] LIST (DDw▜ CAT 9[H]rd▜H CAT [H] @▜ CAT 8[H]N▜% CAT [H]x▜© CAT *[H]D[E][M]}`=[Q] POKE VAL$ REM ZSCREEN$ PEEK LPRINT BIN ^`[P]R>}©?©©IN w COPY B7ZUSR RND LET RETURN VAL SAVE BIN LLIST =~CO~[I] COPY COPY LPRINT COPY `FN READ GO TO OUT SQR l0 OUT ? DEF FN "▖7 LLIST RUN ' <>^[P] LET USR CLEAR LN SAVE [P]▜▜NOT NOT r STOP STOP THEN THEN ▜ REM REM CHR$ GO TO [SCREEN$ [F]uSQR REM [F]USQR INT [F]}SCREEN$ IN LEN U LOAD VAL$ [F]Wa0{ CONTINUE [R] FLASH IN RESTORE A COPY [P] LIST CODE }w[H]f'PEEK [L] OUT [P]v[L]PEEK OUT TAB [I]_m% CIRCLE X'OATN FORMAT d ERASE dede©e CLS e INPUT 8SQR ▜ INVERSE INVERSE CLS INT INVERSE G CLEAR INVERSE j REM c LPRINT MXTAB 7~. PLOT mrR STOP u STOP [ NEW oBIN ©X20AT |? LET ▜K RETURN g DRAW K NEXT @@8:ZT IF IF x©NOT ?a SAVE ▜< LIST SIN NOT [T]d@SQR "#zSCREEN$ ' ▞ ZZ44'FN OVER COPY + LLIST RETURN NOT LPRINT LIST l▙▜N LLIST INPUT GO TO L▙CODE 2'wY GO SUB IN vATN INT '[#RND# BEEP 3 GO SUB CLS >=©&[P]<=SCREEN$ RETURN p DRAW ? DIM NEXT >=vm<=<=SQR INPUT ( AND SQR ATTR TPOINT <=[F] INVERSE [N] RANDOMIZE INT FLASH INVERSE POKE / CLS OUT SAVE BORDER BORDER MERGE CLS VAL$ ( CLEAR IN }n RETURN uzz RETURN © IF IN LET [P] RESTORE PI LET FN ' DATA w INPUT 5 LET [J] LPRINT [H]MOeOEXP NOT SP RESTORE ATTR REM U MERGE FN INT BRIGHT [N] IF ABS SAVE RUN PLOT LOAD CLS [K]AT `© RETURN [Q] LINE POINT CLOSE #U OUT CLEAR BEEP PRINT CAT RANDOMIZE CLOSE #jSCREEN$ RIN RETURN SIN KUSR ERASE K©R MERGE [Q]CODE CLEAR ATTR NEW ▗ INVERSE TAB ABS SCREEN$ j0INT ATTR TAB ASN "CASN IN PRINT ?uPEEK 9i>(? PRINT COPY CLEAR SCREEN$ TAB IFSTR$ CODE PRINT MCODE uJI}C}VAL$ }j>=AEXP |! PRINT CLOSE #4TAN T REM + PRINT SQR 7 THEN rSQR uIN U/[I]G{EDw LLIST ▝O DIM ! MERGE DRAW COPY aSTR$ SCREEN$ ▝U RETURN FOR &D COPY !FN - LINE COPY [F]© COPY _* OR -( CIRCLE q RESTORE PRINT &IN PRINT m▘ BEEP ▜FN ▞ MERGE THEN PRINT ▖ RUN p LINE TCODE ~eWv RANDOMIZE '@`@000 COPY LPRINT [A]▚FN T▝ IF UB[ COPY LN pm/*▘z GO SUB [O]IN P▘[O] OUT COPY SAVE FLASH COPY CLS ;SQR RUN AT RUN VAL RUN SGN RUN [I][P] RUN [A] RUN [H] RUN [E] RUN [F]h&INT [F]' CAT OVER PO OUT OVER 6{B COPY PLOT PLOT { FORMAT [U] PLOT COPY P+SCREEN$ p COPY h OUT ▖2wC[H]( OVER [O] RETURN [O]USR ` MERGE j*lr[P] RETURN j"USR w STEP g[H] COPY BEEP COPY CLOSE #B MERGE TU OVER PEEK COPY PEEK FORMAT [A],ATN COPY [G] POKE LLIST *D COPY [M]D▝y[G]{7 RUN Uq RUN 5U COPY RETURN ©SCREEN$ P▜VAL COPY LET OUT ©J VERIFY ATTR V© CLS INK NTPOINT DEF FN ▞POINT BORDER JwvUSR <}@©FN /n@ RETURN PEEK RETURN w[Q]/~H# LPRINT THEN CHR$ q[Q]SGN r/p© BORDER LOAD GO SUB NOT E<= DEF FN [P] BRIGHT EXP [I] 0=[J] COPY RETURN B RETURN @5 RETURN CLEAR CLEAR © LLIST @ OUT LLIST 5 DRAW e NEW ▞ PAUSE LPRINT q? NEXT © READ AT SIN > NEXT SGN COPY ©~| COPY q RUN g0N//Z[G],©WIN CLS LPRINT ▜ DEF FN f62 COPY OUT CODE CLOSE #wTAN SQR ERASE <>SCREEN$ 5Z READ PLOT COPY AT ▜ SAVE ▚ PLOT 4Br POKE A( STOP BIN G[S]PFR0" DATA ACHR$ #[U]GRP2"tB STOP ![F]mBIN C& LPRINT LPRINT =: SAVE INT ]HRND*S CONTINUE SCREEN$ FN [Q][A]]h LPRINT PXB@(bO0bG LPRINT K[A]>= CIRCLE /AT / DATA ?AT ?d. GO TO 5d* TO 5D#0(XH`M2 GO SUB 0>PEEK =D>[S]PEEK PI~U[S] MERGE [T] LINE [O] READ [F] FOR W_[A]'ETSCREEN$ VAL$ VSCREEN$ REM GO SUB $ CLEAR VVAL$ j CLS V LOAD j INPUT FOR CLOSE #VGP COPY LINE OUT o CLS COPY ▝ LOAD ©CODE COPY oIN DAIN mm% COPY RUN COPY PAPER COPY RUN r(ACS PRINT [K] RUN [K] CLEAR "[R]INT CLS INT PRINT CLEAR PLOT FOR [F]B REM INT e+(E▜ RESTORE ▜MJ[K]EATTR ATTR [T]SQR SCREEN$ ▝ LINE DIM +SCREEN$ m PLOT STOP INT R4v LIST RRND[E]M REM FORMAT 'QCODE STOP GO TO AT B/ INVERSE ©] COPY @BVAL$ oY( SAVE | CLOSE #jTp*O@ COPY J<=j[Q][A] COPY ▛ RUN [P] CLS ABS LET [I]yABS 1[J]9INT 9VAL q$ABS RANDOMIZE IN LN 9SGN 9[J][J]SGN [N][C][S]<>IN INK [P]VAL ATN INK [J][A]YATN MOVE [U]VAL$ q[M]9▛LEN [P] LET VAL$ -PEEK INK [I] RANDOMIZE ▙PEEK RANDOMIZE PEEK qPEEK DIM IN MOVE [Q]IN RANDOMIZE SGN DIM SQR qATN EXP USGN ySQR EXP LEN l LIST [/*LEN UR@ D$' PAUSE A TO "+:OSGN ':@ C BRIGHT 'Z@P DRAW #[K]@<( IF @ POKE ! DATA # STOP GBIN 'CHR$ O▗/_/<='[C]G▗#CHR$ IBIN ( STOP Td(bHd CHR$ ABIN !▘C'F"B)WA@$ R@[L]32go0' REM SQR ©[G]IN CODE ©▝RNDTAB UINT LOAD IN VAL$ ATN WIN VAL$ ,BIN IF IN COS © RETURN USR LET CLEAR [Q]LN [Q]e[Q][Q] PRINT [Q]VAL FN %TAN MABS CLEAR SQR E* CLEAR ATN TAB 3[R] OR READ REM [F][Q]RND[Q]iASN [F]INKEY$[N]SCREEN$ SCREEN$ [N]INKEY$▟[U]▟AT [U]ASN SCREEN$ TAB TAN [F]VAL$ ASN 5USR _[P] CLEAR qCHR$ E© PRINT NEXT COPY POKE CIRCLE <= POKE IK POKE [E] INPUT i[M] MOVE DRAW @> COPY [O]^ OVER $;),PEEK $ RETURN NOT IF IF IF [M]? LPRINT o COPY ▖ RETURN CAT COPY CAT ▝<= BORDER @g[R][T] INK a PAUSE READ q~ MERGE )p' CLOSE #, COPY FDUSR D CONTINUE TO FORMAT [R] ERASE [M]RND▝ZATN UUSQR SQR n INPUT ATTR NEXT [P] COPY br[E][C]IU CLS LOAD R%INT ATTR CONTINUE .I LIST SAVE SQR FOR Q OR #'AB[U]Pv LPRINT ▗▝B-d NEW ~h VERIFY <=0[S] PRINT J CLOSE #& CONTINUE INKEY$SQR G OPEN #BIN LOAD CLEAR l CLS PLOT s MERGE DEF FN 5 FLASH PLOT SGN CAT N INPUT ^ RUN [P] COPY ~[O] OUT RUN INVERSE PRINT - LOAD COPY © OUT READ CLEAR r FLASH < POKE /y4[E]/[K]<></ PRINT 4/[R]T/RND</4<4 TAN / RANDOMIZE <tXY3tfytPYy t?Y;t5HytHy&tQYF#[P]@ DRAW ©wUSR INK USR t`y0 POKE P INK 8 CLOSE #S;?FN SCREEN$ COPY _ COPY =© 0EXP [I][P] BRIGHT DEF FN E<= GO SUB NOT PAUSE BORDER p©r/SGN q[Q] THEN CHR$ #[Q] LPRINT ~H©wLEN NEXT SGN SIN >AT © READ ? NEXT q LPRINT ▞ PAUSE e NEW 5C DRAW OUT MOVE © LLIST CLEAR CLEAR ▚ RESTORE B RETURN RETURN /3 TO NEXT NOT CAT LPRINT VAL 1PEEK 0[P]<= LLIST ▜ CIRCLE @X|`} FORMAT yPOINT ;CHR$ [D] LPRINT MOVE ▛ © LPRINT RANDOMIZE COPY [E]FN [B]COS @n"pP LINE 1rBIN $p .[S]`L FORMAT @USR #F@ IF x SAVE 1 IF 1 PAUSE UUSR $<>~LE`<=@▝▙SQR 1▜?LN [O][Q]@©PEEK LN ▝ INVERSE SGN XH1USR SGN LINE g {zbUSR LIST : CLEAR P STOP 9j STOP ▖:STR$ CAT LEN IF @J?Z! PAPER uD▝[N]▜x< LET USR ▘© COPY LIST COPY FN UAT INVERSE SGN TO CLEAR TAN [T]BIN _`J RETURN LPRINT LOAD IF GO SUB PAUSE REM STOP POINT REM INPUT LOAD REM INPUT INT RND FOR SCREEN$ REM INT " POKE EXP POKE M"4 GO SUB JASN ▛PIwwCODE OUT COPY RETURN FOR INT GO SUB Z6▘/ GO SUB RETURN VAL$ FN S CLEAR LOAD RETURN BEEP PEEK (SQR OVER COPY N BEEP ATTR fATTR J BEEP RETURN © RETURN ? RETURN DRAW RANDOMIZE READ FORMAT FN FOR FLASH STR$ I PAPER RNDW[M]G LOAD MERGE SCREEN$ TW OR RETURN CAT RETURN BORDER PLOT RETURN RANDOMIZE PLOT CLEAR RETURN LIST v OR RETURN CLEAR PLOT SAVE ~ PLOT RANDOMIZE # RETURN PLOT eTAB IF o[F]g RANDOMIZE oN▞ BRIGHT NOT COPY INPUT O FOR 8TA!@VAL$ |TVAL CAT NEXT CLS @EXP h8o6 COPY ▖[N] CLOSE # LLIST LIST COPY LPRINT CIRCLE SQR [Q] RANDOMIZE @ FOR [A]▙ CLOSE #VAL IN B:▝[P]`SCREEN$ SCREEN$ [P] CLOSE #e RETURN [P]▙PEEK |[N] DRAW SQR RETURN [H] RETURN ATN RETURN CODE OVER CODE PAUSE STOP [P] AND [H][O]1[L]8[P]+`'WCODE IN IN OUT COPY LN OUT IN ?@ LOAD ▜ RUN VAL wPI FLASH [P]SQR PI INK ABS IN INVERSE TAB - RETURN FORMAT +G ERASE [P]SIN ▛USR CODE [Q]AATN VAL [H] SAVE ATTR PEEK [F] RETURN VAL$ ~[H]▙CODE LPRINT STOP [E]WCODE [^ CLOSE #ABS VAL TAB [J] MERGE [J]ABS VAL INK VAL SQR EXP CLS LEN PLOT RUN IN INPUT [G] OUT CODE ?LN COPY OR U_[EXP [H]'+ LOAD _ATN <Q#PIgCOS KICOS aCOS p_ABS /ABS M RANDOMIZE c READ p©FN 1 PRINT * REM H REM LLIST COPY ▜ DRAW LPRINT w▘ LIST [R] RUN MOVE RUN POINT NEXT MOVE [Q]NOT LET PLOT [Q]=▜ CLEAR ERASE 9VAL _ CLEAR FOR Z LPRINT OPEN #INKEY$ OPEN # CAT VAL FLASH FLASH PEEK w DRAW ;EXP ? NEXT [P] BORDER CAT DEF FN BORDER CLOSE #s INPUT CLS RUN LEN 1 RUN SCREEN$ H LPRINT [M]#' PAPER ▛LN W LPRINT [Q] LLIST READ <= AND BORDER sVAL$ NEXT BORDER RESTORE LPRINT CAT ' TO POKE DRAW SGN l DRAW TO |NOT ATN tATN VAL OVER '{e OUT | DRAW 'H:SCREEN$ }/{ REM wBIN ATTR LINE GTAN INT _[M]IN SCREEN$ ©WPEEK >x DATA LIST ▖ CLEAR RETURN IF © NEXT CODE NEW UD(CHR$ /ASN © IF TAB CLEAR IF PEEK CLEAR T CIRCLE o<=~ NEW ©d: LIST U POKE SCREEN$ PAUSE w LIST © LPRINT © LIST :2▛N CLEAR 0 READ ▞RNDATN TCOS BORDER BEEP ▘ LPRINT %Uu:bCOS ? THEN MERGE © FOR OVER COPY ©9USR SGN jABS USR ▝USR BORDER p COPY RETURN REM 5[I][B]( RANDOMIZE IN LIST © GO TO IN SAVE o GO TO PEEK DRAW U GO TO * RETURN GO TO INPUT DATA LOAD OR CAT RETURN OR DRAW RESTORE FORMAT RANDOMIZE j TO PEEK ORND CLEAR DIM RUN |TAB GO TO U|oRND<=O!▙ COPY © COPY ©? BEEP DRAW PEEK OVER IN FOR LOAD STR$ IN :# LPRINT COPY STR$ kE> STOP 8I VERIFY SAVE LET : CLEAR PAUSE LOAD RANDOMIZE INVERSE LIST ATTR ACS SAVE ] DRAW SQR RUN RUN IF [T] CLEAR ▙ FLASH LOAD #?~ CLS OUT PAUSE l▜ABS OUT T DIM _%@! MERGE U IF RETURN / STOP CLS NEXT NEXT P RANDOMIZE BORDER DRAW O INPUT NEW LPRINT NEW + DRAW Y SAVE CLS SAVE CLS DRAW VAL$ F>USR }o MERGE IN RETURN hEXP VAL$ y OR RANDOMIZE p LPRINT VAL$ }NOT LIST USR RUN I PLOT SAVE RUN | NEW Fr[S] RETURN IF REM ▝z@bt RETURN ` COPY URqV FORMAT [N]RFN CLS IN ©WP,Z[G]//Ng0qC COPY ~P-©▖G▜ SAVE COPY AT READ PLOT 5Z<>SCREEN$ SQR ERASE wTAN CODE CLOSE # OUT - COPY 62f DEF FN VAL$ T CAT ASN VAL$ IN 1C[M]<>7 INVERSE sSQR / NEXT Lu~ OVER { BEEP RETURN ACS PEEK /G+ LPRINT oK LOAD ABS /{ IF 1JKLMHNINKEY$LN >=i[K][K][L][L][K]▝}COS TAN ABS S12`abc78▘svws|34defg:;tx[Q]ytEXP 56hijk=>INT uz{uINT !"#$%&'()*+}0u.PEEK IN lmSX~SZ▝ FORMAT MSATN Yt©EXP [▘|Y|▟ LINE ||LN ||ATN EXP ▟LN INPUT [O]INT ▟[CODE ATTR ;@A>=[H]no©TU/VW▗▗rSQR SGN r▗~ ATTR OPs[N] [O]sQ©O/][B]OQOt[A][P][Q]tOQ^_[B]PQPLu[R][S]uQ*AT [B]Q}COS COS 6TAN TAN ABS LEN LEN F~DrrRrg&F©D▞▛ TO dD▞▛[J] GO TO ED▞VAL [K]▛4.CODE JKSZS▝fATN S[K][K]O[O▘[ CLEAR O▝O©SCREEN$ [C]12 ▘OQ344O0 LIST ^564ft9<=CEXP Y▝[Q]▙Y/]YO|ATN ▘CQ▙Q}^_INT INT s▙[F] SAVE Wv INVERSE ?v|vBIN CAT xCxNOT Slm▝z:RNDJz▝vi4▚O:v[M]Tsx▚[K]:▙/Nz:▞ STEP / CAT .V[B] CAT H[D] LPRINT LLIST CLEAR U VERIFY B/[A]t LIST C[F] PAUSE 789CHR$ ▗ LIST p( PAUSE 9:;<E[I] LIST PAUSE <%=>? LIST COPY THdU REM STEP _▖KINT _ LPRINT [F]x^[F]pgJ POKE vORNDINKEY$OgQOx[C]▚OPIFN gPQ▜JATTR gATTR LEN ?[A] BORDER P OUT ▟z/z3|C VERIFY Xv|Y|~PC[/]xASN ACS |LN EXP ©CEXP ^_0(ATN LN zEXP ATN |VUC|&[Q]! CAT |INT [N]ACOS TAN ATN LN SGN EXP RESTORE Ug▗▖▞▛▙AT INK 2SQR ▚▟r SGN [I][J][K]▜(-TAB VAL$ CODE VAL [L][M][N]AW[O][P][Q]$[A][B][C][D][R][S][F][G][H]`G[U]RNDINKEY$)ABS PEEK IN USR STEP INKEY$[T][G]lm[O]RND[T][H]TAB PLOT CODE REM STEP "Z RESTORE NEW ?pqb▙C INPUT [T]no GO SUB BRIGHT ▖[C] TO TO [C]@[N]SQR GzCOS XR[K] MERGE UTAB By CAT ? COPY TAB M READ FLASH ▘NOT [G]G FLASH EXP ▙[M][P]EXP ▙0 STEP h DEF FN RR▞ REM OR [B][A]`KCODE [B] LOAD MERGE O+/*,GRkTAB ?J▞ CAT USR 2[S] OPEN #Du DEF FN COS TAB GPOINT I)RTAB B CLOSE #▟%POINT G▟R[U]|SQR IPOINT SGN G[I][J]l%vwINT INK ▛xyg6▖▞z{% LLIST TAB R▙ VERIFY ▗TAB o[A] VERIFY >[A][E] BRIGHT Y▛Rh STEP TU5Op BRIGHT [K]+[ NEXT ▛ LIST [M]▛[M]0 TO o VERIFY [A][A] BORDER [T/ PAPER PAPER m[C]_ RANDOMIZE GTAN ;SQR DEF FN ` GO SUB EXP ▝▘SGN GO SUB [H]g LIST [F]PEEK 9w DRAW jqwCHR$ SQR Rp`0NOT + FORMAT ▝-USR f`[I][J][C]ATTR VAL [M] BRIGHT ▖▞ BEEP SIN ▝▜▗ CAT `▜LEN ▗`-/vPOINT TAB BIN INT LPRINT FN 2 OPEN # PRINT © COPY LPRINT -© NEXT LIST `O COPY MOVE LPRINT }SCREEN$ [I] LPRINT ?]SGN CODE ~ RETURN RUN (} CLS ,([Q]ABS ,t COPY USR SAVE o& FORMAT [S]^ DATA [M] CAT INKEY$VAL LOAD [Q]W0 DEF FN g REM RUN MERGE p@© LIST ; LPRINT IN IN LPRINT ATN IN @▖[P]EXP USR ▜ATN ?POINT RETURN J>Gu(*rKul[U]'[K]▟7.! REM .WooE>=+ OUT PAUSE pBIN F▟ABS RETURN AND INVERSE ( FORMAT jAT LPRINT CLOSE #H?Y[A][S]d CLOSE #aBIN INVERSE © VERIFY DEF FN UWn CLEAR [D]U/{fLN FLASH _ DRAW DRAW PJ%x[F]jINKEY$[U]86 BEEP FOR OUT FE"©[R][S]j RUN {' RUN nABS ▖[P]POINT =IU[G] NEW P([O] LINE #- COPY [P] FLASH @[S]_it NEXT ?@ATTR COPY THEN p NEXT AND ~(w LIST OVER D7 CONTINUE TO Y CIRCLE Q<NOT [I]S▟P;@▝▘r[Q]$,yP][C] TO m$ RETURN ($+ DRAW /' DIM VAL$ DEF FN MOVE A[R]SIN [R] LOAD ( COPY AIN USR A RANDOMIZE USR OUT CIRCLE ([O] FOR aACS [N]G(INT 6 LIST :'IiM|?M[J]=PEEK ?XE RETURN BEEP COPY ?# COPY CLEAR PAPER POINT ▙ PRINT FLASH >=▖PINT RUN % LOAD @[U]pG OUT N;[S] CIRCLE O DRAW ATTR ▚ PLOT ([Q] NEW [J]I AND IF k PRINT [S]s NEW qCODE {B)X7SQR w NEXT PEEK . CLS RETURN {{ POKE y CLS [M]8{ECKSGN tFN [E]7<=7 AND ATN |[F][C]USR ©© FORMAT BQ SAVE FOR DATA w# CLS G COPY GO TO @ CIRCLE H) GO TO `s NEW [S]BIN / LIST IN J7S} IF [A]PEEK [C] RETURN c( VERIFY ▟)><1U▛ASN COPY CAT BIN ( BEEP ? COPY G PLOT SCREEN$ c CLEAR @v COPY nABS POINT $' CLS RUN ERASE <J7^ACS COS #v[T][C]D>&VSGN CONTINUE H▟9 AND kJ%b BORDER RUN ,H%P>[E] INVERSE * OVER BRIGHT GO TO ^gYABS INKEY$J= CLOSE #<Dn.Efx GO SUB )ITAN cIN z_[B]#wTAB REM b REM EA[P][B]v LPRINT O>=IN A DATA _ DATA FN / FOR SAVE P BEEP CONTINUE OVER /PSCREEN$ IF ? READ RND9EXP ?K/|c=!R= COPY Z COPY BORDER O OUT CLS U9(~SQR 57^f8 DRAW CLS < RANDOMIZE PLOT LPRINT > COPY LIST COPY SAVE _ SAVE COPY CONTINUE ~x PRINT GO TO GO TO LN FOR OUT NEXT SAVE OPEN # CLS OR SAVE RESTORE [N] DRAW 8▗BPOINT [P] SAVE [I]ABS 3>=CHR$ [U]d' BEEP ?▛[B]`gINKEY$<=)ATTR INKEY$<= RESTORE 1LN STR$ ')`USR 7 PAUSE 1ACS .%W%$ RANDOMIZE oSIN OUT P INPUT AND [C]? RETURN LINE T LINE c OR [D]& TO STEP ▗I DEF FN tSIN CAT FORMAT COS RNDPI[I] ERASE `POINT SAVE TATTR CLEAR [N] LPRINT O COPY <> LPRINT CLEAR SAVE }SCREEN$ [M] LPRINT 9 RUN ?] FOR [L]CODE 3 LINE CLEAR <> RETURN }USR ©[Q] LIST | CLS pPEEK BRIGHT ©4 LOAD INKEY$ DRAW / DRAW ; PAPER POKE ?RND©▘$ PLOT v/i LOAD RANDOMIZE -M${ LOAD IF CLEAR STOP POINT 5[U] RETURN d DRAW LF&pUSR [D] POKE $ OR [F] NEW 0-_TAN c LPRINT USR 8p #$[R]▝%& CONTINUE USR '8p(),-[R]▝./a0<>`0[R]a0h< LPRINT Hq0W▚]u[Q]H NEW ; RETURN ||CHR$ INKEY$ FLASH BRIGHT &w DATA /D▝5;LEN NEW P0% LOAD DRAW RETURN D; LOAD [Q][A] INPUT RNDTAB LPRINT ©'* INPUT SAVE [Q]IN p4M RETURN ? CONTINUE @}▘BpCODE OR [C]>= REM [M] [A] READ ▘▘ CONTINUE T= DIM FOR ▘ PAPER OPEN # RESTORE DATA [T]([Q]r LOAD su▝USR NOT [T][C]w' IF IH CLEAR [M]EXP IF /!Wl LLIST BIN o CIRCLE QR- OUT pQVAL OR DATA [O]qSGN USR BRIGHT OPEN #STR$ OVER OUT 1▞ RETURN [G][G]▝*[A]BPIC▚@LEN CIRCLE [M]m|Y*f ERASE Yi DEF FN lo/85rCHR$ ? COPY nACS x CLEAR v~.~V▝ RUN h(}USR NOT CLS n INPUT SQR [N]ATN CAT s MOVE RETURN O RUN CLS `LN DEF FN o7yQ▖0w>[A]A GO TO 6©IN *[A]l>=/h OR 5p2 REM USR [B]' OR LPRINT P SAVE g ERASE IN [T] BRIGHT THEN SGN <= OUT { LOAD CLEAR CLEAR f LOAD BORDER ~VAL$ NEW LOAD LIST RUN CODE UV INPUT FORMAT RUN VSIN !^VAL RUN 'x▚ DATA ,]t=[C] TO VAL$ CONTINUE FORMAT STR$ ▘[C] REM INKEY$7[Q]PEEK STOP BORDER r;} PLOT FORMAT v INPUT _▜INKEY$m/{STR$ }© CONTINUE LPRINT ▝hX PLOT rB BRIGHT =U[M]D FORMAT rr[R][R]yfr` LOAD COS OUT u[B]>V GO TO %NOT DRAW D CIRCLE 0= LPRINT Cd CLS [A] RANDOMIZE <IN ▟NOT ▛ SAVE OVER COPY LLIST INK FN LIST RUN BEEP L READ COPY MERGE OR gS[U]T>▙6< DRAW ▟Me AND ;u▙PEEK INVERSE INVERSE @[K]c[P] FLASH z NEXT FLASH BIN [A] CLEAR / GO SUB BEEP CAT [O]_ LOAD PEEK NEW @[A] LPRINT IN PLOT . eCOS POKE [Q]IN !d0_? BRIGHT 8d(= COPY FORMAT 0SQR BIN © CLEAR SAVE >4[F]O|D6p!<ABS zMFSGN POINT ].RND8G[H]0RND9 LOAD CHR$ n8 RUN ERASE ;FN a RESTORE [R]=[M]ZRRCOS COPY FN h[F] BEEP LINE l[M]▚1[K] LET STOP COPY 4 CIRCLE AT BORDER <! THEN 3 LIST 7 LIST ?[Q]@ PAUSE & OUT OPEN #[P] BORDER PRINT READ M RUN ▖<=▜3 COPY <> DRAW VAL$ VERIFY G COPY ABS COPY n RETURN D6 CLEAR LOAD o?= LIST GO SUB [I]} COPY SQR ~q+ DRAW DRAW COPY ▚ LPRINT LPRINT -[ RANDOMIZE RANDOMIZE o! GO SUB RETURN SQR ; READ LIST ( CLS [H] COPY [M]c©[K]= CIRCLE NEW NEXT COS BIN <= PLOT a OPEN # STOP e[J]VAL D[K]xDCOS .1RNDt} BEEP ©NCODE RETURN w[C]& LINE GO TO IF RUN :▖R PAUSE M9INT F[N] BRIGHT [P] PAUSE LQSCREEN$ <= RUN [Q]H(qLN ATN DIM CONTINUE RNDP NEXT OPEN #X3 DIM ) CIRCLE POINT FN MERGE SCREEN$ * CONTINUE BEEP [R]( GO SUB LET #.8@ LINE LIST 6 COPY >= COPY ▖"0} MOVE [C](gSGN INVERSE ATN [C]|h@▞$h COPY J"h COPY L NEXT j"kRNDx OPEN #JbVAL h SAVE [I] DRAW `~RND[F]h OVER ACS XASN x▖ POKE CODE gh[M]QFjLEN Q= AND D▘wAT POINT ^ZLSGN PEEK QINKEY$ OUT AT $! PAPER [O]h@=OtRND& AND COPY C INVERSE PIdQ INPUT [T] LOAD #<>CN OUT >=y LOAD [O] MOVE ERASE PLOT CODE [C]`IN 7~ SAVE [M] STEP a} COPY SAVE < BORDER Jpg[S]%$[T]E DEF FN EXP ,TAN $ INK FOR USR CONTINUE <>q[G]HB COPY LLIST Y▖BIN q RETURN BEEP OPEN # COPY CHR$ `[J] GO TO BRIGHT C$INT .0[A]▖^?[A]LEN LIST SCREEN$ [D]x? CONTINUE INPUT ZR&}^.. CLEAR #▚71 CLOSE # FLASH POKE POINT NOT $ INVERSE BIN BIN RUN LET AT #!DqF<=COS $qn[O]I[C]_9/5>[L]*lW)[D][K]]Y"▙[R]$g] MERGE CAT LD LPRINT REM $ GO TO o DRAW LOAD 8 THEN SAVE " OPEN #[B],s[C] OR w8 STOP }LEN VE]?X/M LOAD © bZB CLEAR 2C INK yIN E[L]IN )▚_ BEEP REM EPOINT [G],TAB b[G]SIN J&IUSR FOR PLOT 6 POKE REM vw[C]H COPY TATTR VAL$ BRIGHT y*Ls INPUT RANDOMIZE MERGE L# GO TO SCREEN$ ▛[J] GO SUB IRc RESTORE ERASE d0Q▝ OUT 0& CIRCLE OPEN # LINE OPEN #BF8s2L▛ PRINT V PAUSE LTAN LET IINT Hf[J][I]HBIN X#*Cv▗ IF )PEEK CLEAR >=Iv} CONTINUE C CLS ~©?A PRINT POKE P(k BRIGHT c6 DATA DEF FN [R][E] LIST RETURN VAL NEW P NEXT TAB CIRCLE ATTR <>f CLS /s CLS LPRINT u0<k SAVE © PRINT CIRCLE 6F INK LN NEXT MERGE [J]LN ▜ PLOT PRINT X6 SAVE SCREEN$ *k<L1?[G]8/SCREEN$ DD3IN FN ?[N]l/ CLS 9 RUN FORMAT OPEN #[F] VERIFY V INK STEP H BRIGHT INPUT OUT "S DIM LET TO }$[U] RESTORE # OUT VAL RUN [E](!z©[A]USR STR$ eK? NEW INK CAT A[K]K VERIFY POKE ATN fzpBIN [Q]ACS PRINT NOT [K]▙eS` GO SUB BSIN [P]▜##zD#0 PRINT [D] BEEP {7 PAPER 9[C]PEEK _ TO PAPER $i[P] DEF FN [H] COPY INVERSE ][M]▚[M] INVERSE w'[I]▝-M0NOT G▝6'0a90<[C]3?B▝E.[N] PAUSE SAVE ▚KVAL$ 3%QS▝T NEW [U]Z▚qS▝ DEF FN COPY ,[R]A LET 0 RUN 0[R]i THEN RUN [M]INT Q(/ DATA n▞[K]u::JASN PAPER ~CHR$ t BRIGHT ( READ SGN DIM = LINE SAVE (A CONTINUE 8 BORDER P[F] LOAD /k<= COPY +VAL mTAB COPY 'h{ PABS ATN CIRCLE [C]@<=BIN [O]@T[A][Q] FORMAT BIN LIST ASN LPRINT P LPRINT [Q]© DIM "USR cS▝ FORMAT RUN BIN STOP 3 CLOSE #,$[M] MERGE ▗,8,INKEY$ OVER [N],[Q] OR d▛ NEXT iw_ REM INK } RUN * IF [T]▚E FOR DATA OVER Xma[K] OPEN #TAN ^INT ▚ TO = INVERSE 2[S][J]uCHR$ rXL DATA =f[Q]+ DATA IF [L]KP[B].U OVER COPY aNOT CAT [H]`ATN 8BIN ~< COPY POKE COPY 7Oj COPY COPY ATN /wU COPY CLS GO TO = LOAD IN 7INT CLS BORDER ATN g;4 LET FLASH [C]NOT N PAUSE MOVE *LN LIST Y[O] FLASH CLOSE #POINT NEXT INVERSE x©8SSCREEN$ RND5BIN CODE PEEK cM:V▙/S&K[U]*] REM T~"<=ATTR S<3'pTAN $ GO SUB PEEK FOR ▖ NEXT _ DATA d PAUSE ASN > RETURN [R] NEXT <>s<= GO SUB VAL ▞ THEN LEN {kATN [N] OUT SCREEN$ OUT c[P] CAT USR SAVE z NEXT PAPER FN xBIN [I]AT STEP E DATA INKEY$ AND ATTR INPUT POINT TO SCREEN$ cbUBIN POINT PRINT ! GO TO FN PLOT LN q[K]PI5S3INKEY$V35RND2[U]: TO S[T]%N[S] INPUT OR ▞[R]7ASN 0[Q]q[P]88[O]8SS CAT 55[M][L] MERGE ATTR 1Z@TN=i BRIGHT ATTR 'h▞NOT l[I]f`USR NEW LIST LPRINT Lc[A]bSCREEN$ Pn4M RUN AND [T] COPY >=bL` COPY POKE SAVE ▞a_* GO SUB SGN R&▚^_S NEXT VAL$ ][I]^[L]INT VERIFY /[G]ABS STR$ DEXP DRAW [ LIST THEN [ INVERSE TO Z LLIST [E][R] SAVE LN (LY▟I RETURN Y CIRCLE ▙ BORDER [C][D] STOP [K]>; IF [R] RANDOMIZE [H]EXP Su9 STOP ERASE SAVE k OVER COPY COPY QFN ' COPY E COPY ▗ COPY INT COPY COPY i+ LINE 3(L[F]!o VERIFY ( THEN COPY NEXT INK RESTORE ! DATA ▘[S] SAVE " MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !_ CLOSE #^ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE B GO SUB LN LLIST INK CLS <>&] COPY CODE IN ▙L COPY RUN LPRINT ~ INPUT IF ATTR RUN NEW o= STOP INT ' LOAD ' IF LOAD U&VAL$ ' COPY ? NEW PAUSE [K] OUT USR / REM LIST LINE COPY USR FORMAT {%w[K] PRINT © OR U IF IN # FOR o BEEP BEEP ' CLEAR LOAD ASN © RETURN POKE p' PLOT fI PRINT DRAW ▜VAL A SAVE DRAW RETURN g CLS CLEAR n RETURN , BRIGHT d' MERGE © IF CODE #ASN ) OUT SCREEN$ OUT x7I COPY POKE ^+ NEW U VERIFY SCREEN$ }] RUN SAVE IN RETURN 6P▘-mCHR$ SCREEN$ THEN y' SAVE @CHR$ TD[R]▝R[K][S]G0D RESTORE UO▘SCREEN$ AND ▖VAL$ } CLS Q. REM EWCODE gjATTR ABS ~ PAPER Z_p▞[P] REM [Q]ATTR . MOVE PRINT i IF [C] MERGE b REM CLOSE # COPY [U]IN [A]T*4ATTR @X`[B]G[A]UL'USCREEN$ PLOT NEW REXP INT VAL$ USR ABS COPY LPRINT [Q] MERGE IPEEK POINT RUN [B]I CLEAR POINT COPY A COPY [R] REM TAB MERGE @cm' CLEAR _+( CLEAR P{FN W@TAB W VAL$ ATN <=U*[E] OUT ©@LEN u CONTINUE *1POINT " LET [A] IF ERASE SGN >=zHASN ABS eATTR E^;Ao CLEAR [F]>RUSR OUT VSCREEN$ CLEAR INPUT REM ▜[I] REM PRINT IN - LPRINT LIST &BRGATTR PRINT ,z▞SGN D COPY "3 RETURN [Q]=Uw*SCREEN$ CAT J RESTORE SAVE -|L[H] SAVE I NEXT 8A LLIST w LINE LPRINT ATTR ]EN INPUT USR OUT / COPY RETURN OUT CLS CIRCLE COPY [Q][E]? CIRCLE , RETURN T SAVE VAL$ PRINT ^ REM INPUT MERGE RETURN [Q]?_ RETURN LLIST LPRINT DEF FN ▙d[M] FORMAT LINE CLOSE #>=@ ERASE ▗ MERGE MERGE LINE H CLOSE #5+[Q]STR$ USg4 CAT ▜-[A][R].NVAL$ [S]n* INPUT ^EXP sq- MERGE CODE 7▟[J] OVER @| OUT SGN OPEN #[A] BRIGHT CAT <=STR$ [B]+USR @[P] RETURN CLEAR @[O] COPY VAL$ {^v INPUT I RETURN Q INPUT g" RETURN { RETURN W RETURN RETURN RETURN !>USR USR USR USR USR (USR BIN >= DEF FN OVER aq[U]S OUT [Q]g LPRINT [Q][S]w>~[O]nPEEK >IN .IN DATN ▙y RANDOMIZE IgASN ro[P] OVER q VERIFY BEEP OVER ATN [M] BORDER E! DEF FN TAN OVER RESTORE ▗[Q] PAUSE [A] CLS PAPER [L][M]2q BORDER :ACS g{ LOAD q DEF FN <=IN PEEK $ CAT MERGE IF [P] RUN CLS 7 RETURN ?[I]C( GO TO BRIGHT LET LIST [P] LIST DATA ▞P$G OUT PAPER COPY [E]▝7) COPY w COPY INKEY$ COPY BORDER 5_IN 8IN [P]IN 0{ COPY [[T]qNOT COPY [Q][N]1 CAT RUN OVER POKE ^ NEW [N];F? OVER OUT OVER SQR [E] NEXT SCREEN$ H's' CLEAR READ COPY EXP SAVE NEXT DEF FN z AND SQR T LLIST [M] LIST DRAW [S] OUT [<=9R PRINT FLASH OUT "▝Z[P] COPY CONTINUE 'y COPY ;$[E]P[Q]n INPUT COPY PLOT DRAW CLOSE # COPY USR CLEAR NEXT BiR RANDOMIZE P OPEN #EXP ' DEF FN JA'~g~ COPY ©FN w[P]w OUT FLASH x©T COPY j COPY T©COS © CAT © LOAD @Wq BEEP ^ BEEP READ P3 IF v PLOT G INPUT f BRIGHT N:Z FLASH N IF [P] READ GO SUB ZCODE [F]Y{N9[H]0RT MERGE SCREEN$ SCREEN$ W!Z▞SCREEN$ P8 RUN ~INT BRIGHT RUN .SQR >PEEK [Q]| IN LPRINT LN ▙IN 2(PPEEK IN INPUT ATN TO COPY [O][N]BIN pSQR D[U]STR$ Af'lN08vv DATA DATA STR$ STR$ ''.pr BORDER LLIST `g LINE MERGE nl(#xN COPY AND COPY NEW kPIf DATA CLOSE #t@ OUT /- OPEN #[K]+[SQR { CLS CLS CLS FLASH /ATTR _[)P@P@PH/P]ZINT EuZ REM M CLOSE #WFN OPV[Q]E@BUJ/PEEK ATTR } IF POKE h FORMAT [Q]@ OVER AT OS[K]FN _X+wnP[▛▝ LINE @gAWJCODE RUSTR$ ▛;{ NEXT FOR THEN ▛<+x[ LIST ATTR LLIST SCHR$ [T]K_ FLASH Z▖ASN XGy)${▖"[L]SCREEN$ @[P]@ATTR [Q]uP COPY SAVE LOAD |ABS INPUT LOAD TAN ▘ CLS CLEAR CLEAR AT © LIST ) CAT PD OR LPRINT STEP SAVE `[B];_ RETURN o~NINT o PLOT O PAPER ~[O]U:} RETURN S PAUSE kPEEK O IF oVAL$ Uj~ OVER W:nPEEK V REM zINKEY$Wrr/© RETURN [R]m&R6ACS b[G]r PAUSE SIN PAUSE PAUSE Ur5/&l[J]e$@- PAUSE PAUSE / PAUSE [▞_ PAUSE IN PAUSE o© PAUSE OUT 4O COPY + CLEAR [T]_ATN OU@JSCREEN$ UU COPY 8U* CLS TO ▟ OR PLOT [O]2Q RANDOMIZE z*qSCREEN$ '%d NEXT U#p??{.EXP 7 CLS - RANDOMIZE <IN .U? OUT ' RESTORE > FOR / RANDOMIZE : CLS +U=u>SQR +ASN 2CODE 'u7/5@BF LOAD H DEF FN ATTR L LOAD XSCREEN$ IN Ae COPY m COPY lHi COPY ta COPY > CLOSE #▛4[L] OUT < VERIFY 5U<N OR = MERGE = VERIFY ?yL;H5©RSIN jD©[O]NOT GO TO ©U OUT T RUN U LOAD CLOSE #: LOAD DRAW ▖{ RETURN [K]VAL$ $@ CIRCLE CLjX©P3P©`U`*`a`mjaw©o$ RESTORE USR uUSR j[P]e@@e INK C INK INK FLASH VAL$ FORMAT CLOSE # MERGE MERGE *:~ RETURN PEEK SAVE VP.[D]SCREEN$ USR SAVE ▟([Q]nR&VTAB VdRe[Q]RNDX_ RETURN _ STOP :X CAT [S][C][L] RETURN FORMAT I`J IF ▟JUZUV LINE AANJ MERGE PAPER MERGE ZJSU( CONTINUE [E] RANDOMIZE [U]Tx0pxp[Q]VAL [A] CIRCLE FN CONTINUE GO TO BRIGHT DRAW ` CAT SC<>LEN A OVER ' COPY IN MERGE 5P#? RESTORE SCREEN$ $: CLEAR 7 COPY ATTR BEEP 'INT V@U BORDER R) VAL$ IN PEEK GO TO INPUT FN SQR RANDOMIZE PIINT GO TO POINT STR$ wA]USR 7PDUn] INPUT XBIN xt~ COPY } RETURN © CLEAR © FLASH ▖: DATA GO SUB N BEEP VAL$ q INPUT OVER DGVAL [T]ACS OVER COPY DEF FN [B]4 DEF FN ASN N[E] DEF FN [F] DEF FN [P] RETURN RUN INPUT P [B] OVER CLEAR RETURN IF PEEK MOVE X COPY FN (T/SCREEN$ *tL REM *|L OVER *o~ OVER E CLS o~ LOAD MOVE W RUN LOAD PI[T]<>▙O RETURN ? PAPER *!@SCREEN$ J INVERSE ?`<>UU▘ CLEAR FN CLEAR CLEAR CLEAR IN |?[Q]▚DSCREEN$ RNDINKEY$[P] COPY @!*© COPY ( COPY 0TAN VAL ©LEN ©ATN ©▜[N]©@Uj>Y▘O* RETURN U©U> COPY [F]( COPY ,k(IN ,_(ABS ,oSCREEN$ [K][EXP THEN SQR BRIGHT COPY DATA COPY CLOSE #O_-)[O]-)-▜)-[R]) LPRINT J-TAN IN 7 DATA PI CLOSE #ATN DATA [T] CLOSE #LEN DATA [Q] CLOSE #TAN dINKEY$ATN $7TAN 7 POKE 7 CLOSE # CAT JSCREEN$ ^yM4NpFjVdG STOP S CLOSE #K LINE U SAVE [U]I▝T CLOSE #JUU REM CAT RESTORE CLEAR ERASE OUT USR USR NOT LINE <>BIN OR THEN BIN <= DIM CLEAR ,4 POKE RETURN ChY'W RANDOMIZE +|[D]▛f[D] LPRINT ▛b[D]5▛SPI IF CLEAR (( LLIST ''O ERASE [N] REM :rTAN 202SIN SIN 12INT r/ LLIST REM CODE ERASE W STOP FN UR+} INVERSE $89U9SCREEN$ CODE LPRINT INT 96!U DRAW @POINT ▖AE▝STR$ % STEP STR$ ▟ STEP [D][R] CLEAR U]'%SCREEN$ [N]I[P]9>N DATA WPEEK 9:SGN r. LIST THEN S OR OR CLEAR OR LOAD ASN MERGE CLEAR STEP CLEAR INVERSE Y[A] COPY ] MERGE INVERSE RETURN [N] COPY INVERSE BRNDEXP S1[O]1U9 COPY COPY LPRINT YUSR POINT CLOSE #U>= CLEAR MOVE CLEAR NOT CLEAR <=o CLEAR CAT DRAW [P] RESTORE SCREEN$ DRAW Y FOR Y FOR sW MERGE <>▖<A ERASE ( LPRINT LIST PJ PAPER p LIST =KPpINKEY$ GO TO RETURN T RETURN [U]D2, COPY /ATTR 4SQR lC COPY t AND T COPY ,Y$| IF . LIST o INK [U]#G LPRINT POKE FORMAT [Q]'@>= PAUSE CLEAR VAL COPY <= CLS SAVE COPY +-FACS ▜n COPY / FORMAT h▖F SAVE U_ATTR .IN ▛[E]▜© NEXT ©©6~hpE RANDOMIZE C LLIST ▘// LLIST 9FN Yc COPY GO DRAW !? SAVE @BIN * RETURN |vp DEF FN READ [O] CAT >[O]z< PAUSE SAVE REM SAVE PAUSE RANDOMIZE STOP LET CHR$ LLIST [S] READ CHR$ NOT ▘ MOVE ~ NEXT [S][F]▛ STEP DRAW Z©IN ▛INT ) COPY CAT % VERIFY 'u5{'W BEEP '' DRAW RANDOMIZE CIRCLE MOVE ▘▗&#[&F[E]© FOR ▝2 OUT o▜ // FOR CODE VERIFY / REM /VAL$ /^/ RETURN / DRAW / LIST CODE LPRINT /FN USR CAT yP▖[P]VAL |[A]COS COPY [C]SIN @▝FN SCREEN$ CLEAR © DRAW COPY |USR @ ERASE DRAW CAT H>=>=▛<>NOT <=*Hq<>[Q] CLEAR x RETURN SAVE ▖&L8ABS 18|8 RETURN LOAD 8▜S([I]LN CLS IF ©" LET o IF }W IF z9A> IF ? IF IN SCREEN$ CAT THEN c{[A]>= FLASH _? READ $XV STOP MERGE / COPY [K] RESTORE THEN 'CS LIST 'SIN COPY <=_p▝G OPEN #VAL [E]~ASN RETURN [B] RETURN LEN NEW [B] DATA VAL DATA [A] LPRINT VAL LIST [A]SCREEN$ qLN [F]USR SCREEN$ STR$ [F]<>(<=C GO TO GO SUB GO SUB [A]m CIRCLE e BRIGHT % OVER CAT a<= LLIST ) LPRINT [M]yAT @88 CIRCLE 8 LIST 8p LLIST [E]> READ CIRCLE CIRCLE FOR 8UxSCREEN$ SAVE MERGE x GO SUB t RANDOMIZE INK SCREEN$ DATA [P] COPY CAT IN K[D]4iUSR INVERSE ATTR [F]ATTR 1[N]qCODE q[N] LET IN x▟ SAVE IN SAVE [N]▝ CLS CLS ABS CLS NEXT CIRCLE CLEAR GO TO ~ POKE COPY BRIGHT RETURN PRINT [C]R GO TO CLEAR CHR$ M PRINT © GO SUB © DRAW IN &TCODE ? PRINT xT▗Cx RUN SAVE SAVE +[U]SQR LIST LIST 9[F] CLEAR CONTINUE [D]ABS [P][H]YFN 18ACS l THEN MOVE 7PI FOR VAL [A] RUN FORMAT PAPER SCREEN$ OUT REM OPEN # FORMAT FORMAT u FORMAT FOR MOVE VERIFY MOVE THEN FORMAT MERGE FORMAT LLIST ERASE ATN *W OPEN # LOAD CLS [Q] LET SCREEN$ ATTR [Q]▚© FOR CLEAR LOAD RETURN THEN ©o COPY FOR CLS [Q] LOAD COPY LOAD LOAD k COPY o CLS FOR INVERSE CODE + OPEN # CLOSE # ERASE IN MERGE USJ BEEP OPEN #SCREEN$ [L] LOAD 3a; CLS UWABS CODE CLEAR DIM 7 ERASE CHR$ Ig MERGE BEEP OVER LEN = AND % CLS eTAN READ Uw_SQR [E]IN CODE ASN INPUT [G] MOVE v COPY <©@ LINE DRAW | GO TO DRAW lW BRIGHT c▙ RUN MOVE <= PAUSE LINE PAUSE CHR$ ERASE LINE ▘ LINE FORMAT LIST REM ERASE ERASE PAPER PLOT NOT SAVE READ OVER RUN c DIM q AND ABS LOAD CLOSE #@$@▙/ /SGN /<SGN Y@SGN LN :|>='1{ OVER =">K>PEEK PEEK _SGN ABS [M]/P'c RUN LN CLEAR ©D}a SAVE LLIST CLEAR RESTORE COPY STEP @@F[T]ATN ` RUN ABS C▖▖'AU[P] IF [H] SAVE [L]` BEEP USR OUT MERGE ▜ OUT OPEN #@[P]▜[H] OUT USR [P] LPRINT OUT ^CODE 8?▛ COPY INPUT [F]jATTR INVERSE REM ] FORMAT : CONTINUE BEEP IF FOR CLOSE #P COPY SAVE SAVE LPRINT (T(2[D] COPY /yINT CODE ] RUN [Q] COPY @}?STR$ b;▜ DIM } LPRINT { LPRINT AAw LPRINT [ CLEAR ! RANDOMIZE ? FOR CODE hB VERIFY REM LOAD STR$ 3 LIST STR$ p▝ COPY STR$ CLEAR gSTR$ FLASH STR$ ABS STR$ CLS =: MOVE I<> CLEAR COPY 3[S]FN DIM ©`|9 BRIGHT GO TO POKE DRAW rBIN IF 'k RETURN PAUSE ©c LOAD DIM OUT NEXT FOR s CLS q INPUT THEN OUT r INPUT CIRCLE OUT LET INPUT PAPER INT [Q] FORMAT CLS POINT COPY OPEN #!G COPY *$<>/;6x BRIGHT IF LET DRAW © DRAW wSTR$ RANDOMIZE CLS /© RETURN } CIRCLE COPY IF PLOT LN P{ MERGE REM <= DRAW [E]8 wSCREEN$ SCREEN$ OUT W LOAD ATTR ]_ INPUT ATTR & INVERSE CLEAR COPY y[ LOAD BEEP ASN hW[B]CODE .PI CLS CLEAR LINE EXP CLEAR %k+3 CLEAR OUT INVERSE LN { RETURN COPY RUN ~V&F+ CLS ACS @F RUN CLEAR {PEEK RUN INVERSE zPEEK ) PRINT INVERSE jPEEK POKE INVERSE aPEEK COPY ]}mRATTR RESTORE USR USR USR " OR QCHR$ FN OR TCHR$ SCREEN$ OR UUSR *USR U MERGE PCHR$ [Q] NEW MOVE ABS "[Q]CUSCREEN$ TFN *PU SCREEN$ &U▘SCREEN$ UPOINT SGN (SCREEN$ TUSCREEN$ *▖0▚ CLS ▜[U]Q[Q]Q[Q]`'E[R]TSCREEN$ [R]UESCREEN$ READ [L]POINT NkPEEK OVAL$ FOR RETURN LPRINT yRPEEK C LOAD ABS [L]39NOT + LINE FG CIRCLE CLS CHR$ ^<=ABS RUN "Gj RUN b LOAD COPY 9N2!"Q$O[L]k#$([A]/)INKEY$))-)S3233J,@A2%& <>HIBC2' DATA (JK)*2DE24.521 INVERSE GRlLSTU ▘ INPUT CLOSE #U[H]▛[A]kf▘U>=|[A][M][N]2O[O][P]ASN 2W[E][F]/IN [S]<[G][H]M/=>2[I][J]LN USR rsl OVER ▟C' ▟[R]STR$ O/ 0TAN ",f& "A TO /). {[F][B]VAL VAL$ ^_ABS o`a[A]/ OUT /w▘/Va5o1[B]▘ BRIGHT MOVE ?o© GO SUB / LOAD LPRINT Cp LINE -[B]90A INK [K][B]/-JK[L]rsCNOT CODE gB PLOT LET BC@f LET DATA [Q][R][S][T][U] CAT RNDCODE SAVE /s &/▝&CODE G?B DEF FN ,j%RYj'~4_LMpCODE 8~Q OUT [M]P8.v OUT tu8`▚CODE 3!rs/CHR$ <Pf/ p?L IF ?gCODE gD@?45 STEP CODE 67g[D]CODE 8[U]9?[D]? LPRINT CODE :;[L]?[D]? LPRINT (▖9:TAB ?B RETURN USR ▖TAB a▞ LOAD ?P?5g/[B]N?QUM*[B]ka▗U5LN [B]7▗ NEXT /rs READ {STR$ w OVER LN -:<*)+ DEF FN n TO [L][L]▙ INK &Z[LN }©xyz{▙▙|}~©(d[C]ATTR AT TAB VAL$ ▘▗▚[B][A][A]/]▖▞▛▟[D][D]WWXYu]VQ. GO TO PLOT [O]w DEF FN [A]}}bcdRefgC LINE ▞▞hijABS 9▛= GO TO $7IN ▙ DRAW NEW ▙▙▝ OUT ▙)|▛)h INVERSE IN W PLOT ^nX LIST #[G]=w{=}[C]Z▘>= BORDER USR ▜SIN XCHR$ =▞▟0[T]_CODE 6 CONTINUE LET AS SAVE 6A[I]▜SIN BRIGHT SCREEN$ o5c TO NEW LPRINT [F]INT © NEXT [E][F]F|$= SAVE ${ LIST $ABS LPRINT $269 CIRCLE CODE NOT fCODE CODE 6CODE PLOT INT &rPEEK 7 COPY X~>Jy RETURN RfQUSR ~▙R- REM [E]R|}RGPI@ NEW ©USR LIST FN USR )S LPRINT PRINT ACS =ATN VAL VERIFY LPRINT P DRAW PAUSE LPRINT RETURN T+> LPRINT ? CLS *SIN jKon) LOAD VAL$ 4%9ATTR uTAB EQhJ~[2#.CHR$ 7PEEK (.ABS INT E(IATN } LET {b[L] BEEP SQR ACS G[K]VAL [D]Q DATA [A]hm LIST DRAW THEN VAL [E]b:NOT READ ▙Lf FORMAT 0>=ACS A5>-<[C]E:v[O]ACS BRIGHT ▜INKEY$ DRAW I$TAN CHR$ IN / LLIST SQR #[D]©[P]? DEF FN x▟,; LPRINT ) LOAD TAN THEN LEN SAVE E LOAD u,M CIRCLE LACS LINE FN ete BEEP XIN [E][L]6EXP oY LPRINT _T▙xF# LET V▞[S]<=tFeA$[E]PEEK ](RND} TO .fQRND~1 PLOT L[J]mT▝ FLASH FN ▜c[P] DRAW >Bb<>: RETURN ] GO TO <=` STEP ▖ CIRCLE ▟[U][L]l*RND[E][I]<= DATA < GO TO [E]2[T] TO "(th[G] RETURN +r>Ee[O][J]n▜[L][S]▖[L]CHR$ [P] LLIST ▟%©^J>=G BORDER [T] RUN BIN Ow<[E] CLOSE #5[C]V_[G] POKE [S][[O]Z[S]SGN Zs▚( FORMAT INT [S] RANDOMIZE s REM + RANDOMIZE hC%l PAPER MERGE DRAW LN [F]COS RETURN P STOP CONTINUE oV RETURN 8 NEW " RANDOMIZE )ACS m CLS ATN CLEAR THEN BRIGHT SCREEN$ JATN m#▝ NEW `,[C]NOT ▖ LINE "▜OG7D"GC AND IN A AND "waG BEEP pNOT [P][B]k?NOT / LPRINT ~`▘wq RUN -[I][F]{ COPY w{9}NOT AND GO TO h©vkASTR$ SQR $2 IF LPRINT [O] LINE dj CAT Q FOR POINT J▘T BORDER "!TAN REM LOAD M POKE I; CONTINUE CIRCLE CIRCLE |$ DATA LIST $J'CODE vP5SCREEN$ h DATA !Uo & LPRINT z DEF FN ▗28 MOVE n TO [U]eCODE TO RUN PAUSE , THEN [STR$ ACS POINT SAVE CONTINUE P([E]Uz:r[U] CAT ▚[P] RETURN B7%▞BIN ▜▝= OUT [C]4 NEW INVERSE x]mBIg INVERSE INVERSE 1<=9/2Y7 GO TO LET r[D]i LIST j$<> GO SUB ATTR L[R]5G-(TaO[G]I DEF FN [O]!`TrFPNOT o6I} RANDOMIZE z CLEAR 9^W[R]CHR$ @^"PU▚`fVPOINT ^CW LIST AFN ^ABU^`▟INKEY$^1^x^B!9 RETURN ^= COPY u D BEEP REM OVER E: IF [C] FLASH n CLS POINT @[F]VAL . NEW 3VAL$ ABS <> RETURN V©xSCREEN$ $'( LPRINT USR )8p*+./USR ▝0p LPRINT 1283478 LPRINT USR 9,p:;<CHR$ [U]u COPY :RND[Q]z?SQR uH)i>)#[Q] LPRINT `P` CONTINUE 7 LPRINT x/ LIST 8POINT VAL ( THEN p SAVE CIRCLE DRAW FLASH 3p(Jz}R OPEN #©CODE NEW ( DIM G[U]POINT >~USR Z OVER FOR USR ACS CAT @~ NEXT EQ/ LET SAVE LOAD LN Q LLIST SAVE FOR FORMAT LIST $@ FORMAT = SAVE :▜?[E]B[P] LIST INVERSE SJ LIST FLASH INK BEEP gc39AT q{q(▜q POKE 5BIN !<.AT CAT e[E] STOP m© RANDOMIZE VAL `l}INKEY$ POKE 9[B]dY OR =_7 ERASE PEEK [T]IN w`{`i LINE M@C![U]{PEEK PRINT ~@©VAL$ TAB USR FOR COPY RETURN FOR USR TPI PAUSE [T] RETURN oUSR NEXT © CLS [L]Bq)9 MOVE ▗TAB ▜[G] LOAD EXP =▙-[T]/R OVER w7▞ CIRCLE CIRCLE USR [Q]1 [A]a▘h! DIM L OR `l" SAVE SGN p0!▖[R]#▜ GO TO ▟ PAUSE $ PRINT [I]9[F]USR H; BRIGHT eASN MOVE CN[L] LPRINT VERIFY ,[E]▘COS INK DB`F©"N?[D]PEEK dg'ZHp OVER N[U]EXP PAPER LIST `$ DRAW POKE QSGN GO SUB S>= OPEN #S FORMAT 72[J](C FORMAT ({ LET <>0= FOR FOR OUT cEXP b>=PEEK NEW vSIN VERIFY LEN OPEN #Z[J] COPY tP CLOSE #[Q]o RUN RNDJQjIN [P] PLOT LIST OVER TAN _[P] MERGE COPY OVER RETURN LPRINT B LINE SCREEN$ [P] COPY 2 LPRINT A@TP^A COPY ▝IN [D]V[Q]A©▝SQR k[Q]CNOT DEF FN COPY SCREEN$ U`'[F] COPY Y RUN INT CODE @F SAVE <=cVAL STR$ T▘ LINE rACS [C]A[E]m[R]e#SGN Ei OVER INPUT ATN E)ATTR (wSQR COPY ▗6 LPRINT PI FLASH CHR$ #CODE LOAD [A]N OUT PEEK [U] LOAD COPY *ABS BORDER S|[N] NEXT CLS 3 NEXT (OSTR$ GO TO LOAD (* DATA NEW 'w[A][U]w;{'FN LIST GO SUB ( GO TO [J]JVAL$ OVER ATN I;▜~ SAVE PEEK @^^[E]SCREEN$ gVAL$ ? DRAW (RND/|->tR5`[R]$qq BORDER IF BIN )SCREEN$ ^}~ RETURN ▛j GO TO dBIN ])[D] CONTINUE %>" GO TO wV{[G]eISCREEN$ LINE ][R]VAL$ ▖ SAVE © LLIST LPRINT `;[A]LEN RETURN [C]TAN ; OUT _jAIN %7ABS d8$▗K?IN N[E]ASN THEN [O]' SAVE ` NEXT [G] CLS 1I INK [J][I]'▛$"# GO SUB RETURN P[Q]$ GO TO CONTINUE CLEAR A[C] FORMAT DIM PAPER NEXT $G VERIFY }' PRINT ASN / STOP IN CIRCLE c LLIST ©SGN " RETURN <bnh COPY TeUSR < STOP 7 FORMAT FOR ` PRINT COPY PLOT CODE X SAVE AT INK LINE NOT ^tEQ^ RESTORE jSIN W©<>!+N SAVE (CAT c|[Q]Q COPY VAL PEEK FORMAT $R CIRCLE LN CAT I[S] LET h8qO©[U](sk▟©©?FN [D] COPY r STOP TAN oRATN H+ATN [O]ACS x[U]( READ [C]+>=GRND COPY + PLOT J GO TO [J] OPEN #([ LET CLS ?$[S] RANDOMIZE CLEAR [N]H[U] DRAW RNDLNOT RETURN N[E]ATN VERIFY ▛SCREEN$ h'[G]h``TAB GO SUB 4f PLOT TO ATN ; TO [H][<>d NEXT +'{EXP 2▗>AT 4USR NOT FN PRINT ERASE [ STEP TAN :cR#~[T]@ MERGE v(Nm<=Ro READ <=8= PRINT aABS INK sa} OPEN # CLS GO SUB OR AT STR$ ©0 COPY cHTAB [F]@ COPY o BRIGHT vm[D] CLEAR <=INT VAL$ [I],[J]Q0a DEF FN ~M$ ERASE YUSR NEXT COPY [S][S]I CLS COPY [S] STEP S▞H DRAW OUT Zo SAVE o▞f©LN 7l OUT VAL H REM IN ` STOP COPY ` !~USR yvUSR NEXT J>= BORDER Q=@:sCzVAL pIPB VERIFY GO SUB INPUT DRAW ▘[A]' INPUT VAL$ XJk( RUN yFN P8SGN AND [A]J INPUT h[L]{:[ ▝5PEEK COPY COPY PEEK pt[F]L1LEN @1LEN RUN REM <>:+ INPUT E6o INPUT POKE LLIST cm4 GO SUB ©{KXF THEN [J] ERASE ySCHR$ ACS [G] BRIGHT dVP▞ CONTINUE 7IN COPY COPY T9[N][S]IN ▚▝c?IN PRINT g-b$USR FLASH [H] VERIFY COPY LOAD RESTORE [P]VAL COPY ATTR [T]jTv?[FXu PAPER iCHR$ N[T][Q]>=RND INK RUN Zj▟ATTR [G] LPRINT USR 5[y LPRINT S3aACS A▝ FORMAT @Z BORDER NOT #|▝C') LPRINT USR +8p-/13▝557009ACS CHR$ ;'AT ( YAT ) CAT ;ABS BIN , OUT [A]BIN [L] GO SUB RIN [C] CLS READ & LPRINT 7[A] PLOT ;H! CLS w'' DRAW #l LOAD POKE CLEAR J[E]F GO TO LET SGN 7XM GO SUB VAL FOR DIM )S BORDER CONTINUE [R]J RANDOMIZE LLIST OUT E} RETURN LEN PRINT g INK ▟[F] BEEP ▘▞EXP ▚▘[A]`[I]/ VERIFY ERASE CLOSE #[E]CODE d697q[M]lPOINT <>6 MOVE sh4 FLASH [XiZ▛4[N][S][P]▙x PAUSE OR SCREEN$ ([P]AT GO SUB CAT RUN STR$ 4: READ eM/" RANDOMIZE 0@ BRIGHT |= COPY CLS RUN ©[U]ow COPY [P]▗▘ATTR LOAD _- CLEAR HS▚STR$ AT GO SUB STOP y LLIST RUN CONTINUE ACS C1lACS vSIN [P]jVAL$ RETURN D-FN OVER INT © THEN [O] RESTORE FLASH 2: CLS ~?0_W/<=▝ATTR SQR "SGN NOT ▚▜J<= MERGE [H] OPEN #lLN =*▗ OVER a LIST RUN CH CLEAR ©O~$& CLEAR N/ THEN LLIST DRAW ~EXP x CONTINUE xEXP VAL x,▘:= COPY READ ve"1 COPY /SGN [N]|ACS ▖[I] BRIGHT FN hej<CHR$ BEEP BIN S-C ERASE } BORDER {5 CLS REM CLEAR 5X^E▛ MOVE FORMAT [S]% PRINT READ PEEK [F]▚ REM " BEEP / FORMAT STR$ REM "@b[A] AND COPY p[Q]q[ COPY RETURN ▚ LIST ? COPY USR CLEAR OR [Q]l[H]> OVER BORDER OVER [P] LPRINT ~ LOAD RUN @2 OVER > LOAD STEP J~ OUT SAVE ~ LET CODE LPRINT BORDER (h BORDER ▙ OUT LOAD LOAD OUT w> DIM {3|[ COPY {SGN BEEP BORDER BORDER ACS CLEAR SQR v CAT ; RUN <=y OR ASN DIM [U][Q]V▜ REM B~▖`g<▗▘pTAN STR$ PEEK FOR d(_ PAUSE ASN INKEY$4 CAT > RETURN [R] NEXT USR ▖USR <= GO SUB &LVRNDe CLS ATN `L OUT OUT OUT X RESTORE c[P] CAT HSCREEN$ NEXT ! PAPER FN x<= BEEP STEP E DATA " CLEAR INPUT POINT TO PEEK ( NEW UBIN NEW LPRINT IN PRINT ! GO TO .BCOS PLOT LN PLOT 5[Q]@? BRIGHT 8V COPY FORMAT 02SQR &[I]Pa IF MERGE |CODE / AND j PLOT ACS /" AND BEEP CODE ▝USR INKEY$j▛SIN Q[I]?ACS b▖[F]NOT [G]TAB gVTAB AT 7VAL$ 1b▖FN +▗fF▟X [K]/VAL COPY `* NEW LIST D3 LIST 7[A]& OUT OPEN #SCREEN$ n[Q]4M RUN AND [T] COPY >=w DRAW VAL$ COPY POKE SAVE COPY ABS COPY * GO SUB SGN R COPY CLEAR LOAD _S NEXT VAL$ GO SUB [I]^[L]INT VERIFY q+ DRAW [G]ABS EXP DRAW -[ LIST THEN [ INVERSE TO SQR ; LLIST [E][R] SAVE LN [M]X▟I RETURN YG CIRCLE BORDER [C][D] STOP [K]>;/~[R]q| STOP [H]G<[Q]]TAB _5LN d[J]k OVER COPY SCREEN$ COPY ' COPY P COPY COPY ▚&! COPY FN YTrSCREEN$ VU THEN COPY o COPY NEXT INK RESTORE ![D]▞[S]PI) MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !_ CLOSE #^ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE B GO SUB LN LLIST INK CLS <>/<SCREEN$ *p[Q]X POKE 6Zl- OUT / VERIFY VAL +e LINE CAT MERGE RUN THEN RUN L@D@[Q]USR PRINT STR$ T`*[Q] COPY COPY PLOT CLS ▙M& GO SUB v GO TO vF?USR LIST FN SCREEN$ © SAVE DRAW R DIM !7;ATN [L]ATN FLASH ACS FLASH 0 CIRCLE E LIST DRAW [N]SQR *? OUT [Q] LET H[U] BRIGHT n FORMAT l AND a DRAW COPY USR +IN [K] COPY RETURN LN x STOP FN BEEP [T]USR SIN USR OVER SQR INVERSE {zEXP INVERSE x LPRINT <= COPY [B]SQR #zSQR v[L]vNOT 6©▚ COPY ( PLOT COPY Jt? COPY ▜ CLEAR P@@U RETURN DRAW CODE GO TO [P] GO SUB TO GO SUB INK GO SUB FLASH m FLASH FLASH DRAW VAL$ ([I]~ABS VERIFY [Q][J]Ph INPUT PLOT P LIST YUSR © POKE COPY COPY SIN 1ATN dATN n1n DRAW b SAVE P[T]( COPY - COPY w LOAD RUN )RND LOAD VAL COPY CAT RUN [Q]J▚ THEN 9m PAPER i9LEN PLOT CODE [J] NEXT COPY M[F][H]~z CAT ©o COPY oT! INVERSE LLIST CLEAR CHR$ {[F]PEEK *X(T LIST [R] RESTORE O' CAT [J][M]COS oAT PAPER CLEAR ?<= VERIFY DRAW RANDOMIZE COPY @*[O][Q]USR KUSR [L]USR @{y© OUT COPY 'aVSQR INKEY$l INVERSE [Q]ATTR v|_ OPEN # RESTORE eIN [O][I]U*ATTR SQR BEEP COPY ABS PLOT COPY ACS Rr' DATA [G] PAPER u9INT PLOT ▟[J] BEEP COPY u[F]▙~{VAL © NEXT NEXT STR$ [Q]STR$ NEXT >=▖ OUT # CLS OUT LET ACS LET CLS LET '▙kABS fNOT PAPER IN Pg<>xVY RANDOMIZE BORDER IN COPY CLEAR LOAD CLS LOAD @Qu RUN K<= RUN )LN RETURN ©?[P]'VASN kINT fM PAPER [H]g PRINT CLEAR NV CLS RANDOMIZE MERGE @ CLS U CLS CLEAR SQR *<> COPY CLS RETURN IN ©IN OUT ©[E] IF INPUT '▙HABS INKEY$NOT [L]IN j▘<>[P]? POKE YY BORDER BORDER ▛^"!U▞©LEN DIM P©>= DRAW [D]$m] FLASH J▘ MERGE LIST * ERASE USR [F]v[Q][H]$T CLEAR I USR TAN AT h SAVE '*H PAPER SQR ATN ACS 4 LIST O[A]TAN v[Q](nm5 SAVE [A] LPRINT X@3X FORMAT ` STEP cKt OPEN # RUN VAL a LPRINT [P] i GO SUB INVERSE FLASH P@?USR ?(@X ERASE 5 PAPER -INT -ACS [Q]4+L@@(<USR © CIRCLE ©V%x@LEN LOAD ? COPY BEEP [L],W OVER DRAW RETURN RETURN COPY OVER OUT VERIFY RUN TAB o MERGE /B" BORDER HPEEK ~ COPY [I]VAL$ SAVE U PLOT USR d BRIGHT >© COPY TYATTR CLS R ERASE v COPY USR COPY uh REM ? READ © COPY GO SUB COPY IUSR " FORMAT ERASE y} OVER [S]zVAL $-[B] LIST TRNDH CIRCLE SIN @ DATA e*T NEXT e?H_ COPY CHR$ _ABS _f_i^ OUT ^ STEP INK ^ NEW _|_COS _ TO CHR$ h-dY COPY RETURN BORDER ▝[~ABS afcn}~bfn NEW n[K]^|IN COPY jo"' RETURN INT COPY IF COPY zINT ©z` IF c IF } IF NOT ATN f IF USR @5!S©KKWSCREEN$ W RUN POKE TAN COS uo RUN [Q][P]q RETURN G DRAW _ SAVE `CP RUN RUN TAN TAN uuPEEK RETURN RANDOMIZE STOP COS LIST CAT DRAW = LOAD CLS RUN NEXT NEXT BORDER RANDOMIZE ▜ SAVE [A] DRAW RETURN ?k` PRINT ATTR gASN dueO<= RUN LIST TAN CLEAR u~w? BORDER RANDOMIZE OUT [L]kOw▝"@ RUN ?VAL } COPY M]TO COPY PLOT TAN COPY t PLOT W [}oIkUg cef LLIST a LET cb4 RESTORE ed▗|wOu©7COS LOAD + COPY BORDER / COPY LPRINT p COPY CLOSE # COPY BEEP c~© NEXT COPY ATN COPY w COPY POKE ©c©IKUWSCREEN$ [Q] PRINT wASN 4[P]▝SCREEN$ QcQ ©USR [Q] RANDOMIZE G CLEAR o OR h*CoQjQj5 MOVE b[B]▝gG COPY COPY RUN COPY SAVE COPY RANDOMIZE COPY ▛ ©/K+UW' RUN PITAN [U]u%T<>IN INPUT BRIGHT FLASH 3&dATN [L]>= INVERSE SQR ACS EI INPUT ACS FORMAT }f RUN D SAVE ~ FLASH | RETURN @ COPY .[Q] DIM IjPEEK />▚O GO SUB INPUT g RETURN XH RETURN /AT ~IN PEEK PEEK ~SGN OVER Y[O]W.M^zINKEY$yR~FN ©[E]© LINE © POKE U© RETURN %© NEW ©©:@~4} DRAW ~|{<y[K]t REM zSIN e^J[O]~) RETURN S RETURN / RETURN 9T' COPY CONTINUE IN ?▘*SGN VAL LN BRIGHT ATTR VERIFY ;?B VERIFY ▟<8/[D]0D NEW '?=▗>i BEEP ;=1= L[G]==[E]cVAL [Q];[Q]1[Q]7Cc[Q]INKEY$ PAPER smU5 ERASE `[K]AT -q[Q]JWm [G]0<c0 NEXT Mg |CHR$ GSIN [H][H]<>^[H][H]~[H]@w RETURN © NEXT © CLS ©y©[I]© INK w RESTORE f▜ CONTINUE |C[P] LOAD _w[B][P][A][P][S]IQ▙ INPUT v LOAD *~ FOR PEEK CAT RETURN LOAD RETURN + RETURN RETURN @s[M] NEXT NEXT IF } CLS o CLS IN NEXT COPY CLS COPY ▖$S COPY ▝;y BORDER PAPER HCODE RUN LOAD CLEAR COPY OR S© SAVE { SAVE ~CHR$ CONTINUE ~ RANDOMIZE Z0_d[E]INKEY$ CONTINUE } NEW DEF FN IF RUN DRAW PAUSE INPUT LET ▝p CIRCLE ({,[L] SAVE ]kCSQR snY[N]{ G PLOT [D] DRAW COPY VERIFY COPY [R]p COPY VAL COPY >= CLEAR Dw) BORDER COPY PEEK COPY IN COPY SQR COPY [N]PEEK [U]@.PEEK # DEF FN 4 GO SUB 3[S]lCODE *[R]>=@~CODE {SGN yj COPY [Q]▗ PAUSE @; RETURN LINE COPY ` REM [Q] DATA INT LOAD SGN /ATN O[P]% GO SUB CODE INPUT LOAD GO SUB ? NEW ? CONTINUE y RANDOMIZE tATN m IF [Q] SAVE `} SAVE RETURN ▗ OUT } CLS EXP INVERSE FN ▖BASN LET DRAW EXP IF LEN DRAW |PEEK GPI FLASH FORMAT MERGE z>[Q]@_ GO TO RETURN IF COPY SAVE READ NEW NEXT RANDOMIZE TO @IN _CODE OVER o PAPER LPRINT `?[Q]© LPRINT ASN + PRINT THEN DRAW ©lBIN 3n LIST LIST 8 LIST | DRAW ERASE DRAW COPY f|f8ftf,f`<"</FD4`8`td4ff IF [N]<HUrUSR ▞@ LIST STEP O COPY __[Q][E] INVERSE BRIGHT =NOT _>/ RETURN K LPRINT MOVE CAT QCODE 8 READ BEEP ] BEEP INVERSE INVERSE CIRCLE READ E READ SGN " RUN PEEK RUN RETURN NEXT UIUSR 'h^+ OVER ( OVER KhBE{<=`BIN LOAD MOVE CLS W# PRINT PAUSE LIST z CLEAR IF [A]z COPY IF q IF pxz|▘S: COPY ERASE RUN @>>| DRAW COPY ©INT ~©©SCREEN$ SGN DRAW LLIST a/ BRIGHT |C▞INT INT SGN LLIST LLIST @4[G]+INT RETURN ABS PLOT INT INPUT UIN PLOT IN INPUT ABS RETURN IN SQR ▘[C] PLOT [N] INPUT CODE PLOT ABS VAL GN0"8"▝ ERASE ▖>=▜NOT [Q] CLS H/0( LPRINT !USR H0 LPRINT X! INK [NOT LN - NEXT R RETURN ATN VAL$ {^ NEXT LN @E[G] NEW EXP LOAD ATN ▗ LLIST FLASH RIN [[G]AT !SQR [G] CAT Sx GO SUB RND RETURN RESTORE ATTR } BORDER [I][O]{ COPY PLOT COPY wBs RETURN Y OUT LOAD GO TO IF (© PRINT COPY td DATA $P [U]$USR pd POKE $ OVER @USR $d$[E]P LOAD RETURN vE RETURN © COPY ~ LOAD USR USR Q SAVE ▜[ PLOT ]@v] GO TO ] PAPER ]ACS @X PAPER W,GVWbXdWTAN L VERIFY [8USR _PEEK io PAPER oINT mSCREEN$ 6SCREEN$ [SCREEN$ -INT pmINT [6 REM N STOP . REM &- REM kJ} PAUSE [f[Q](^ PAPER ^ LPRINT ACS ZIl^VAL$ /VAL$ _v@>=_ OVER @ INPUT _xXACS _V^ VERIFY _ CIRCLE f REM [rzm[z6 PAPER uINT UINT n PAPER w:© IF m▘k:kINT PAPER TAN MOVE G COPY COPY R" RUN INVERSE CLS COPY ▗C RUN {FN (R RUN STR$ P?ATN CLEAR [Q]!5 OUT FLASH KQ>=5USR [T]>*HLEN LLIST LPRINT FLASH 8D LPRINT r@` PAPER CLEAR LLIST j FLASH ▜7 OUT N▙ LIST ! CLEAR X BORDER i[S] CAT ~ OVER © GO SUB © LIST j CAT BIN TAN NOT OVER [P]▗USR / FLASH |[M]q INPUT r OUT O DRAW ©0 COPY USR SQR > COPY ACS CLEAR SCREEN$ OUT OVER DRAW SQR RETURN PLOT REM ( LOAD v INPUT V INPUT INT o RETURN RUN LPRINT SAVE ( COPY INT CLEAR j COPY PEEK COPY ~ INPUT V COPY Pj OUT ~ CLEAR © INPUT kATN w{kSQR U{nSQR © CLS RUN |n COPY V OUT Uk}~ COPY y<t/Y4<>CHR$ 8v BRIGHT LIST OUT RUN QBIN LET LIST 9 CONTINUE j( DRAW U| LOAD LOAD VAL LOAD w OUT z[R]9MIN }[R]ED?[E]!LEN E[P]}IN CLEAR PEEK NEXT LOAD SSQR g[O]G LOAD MOVE ERASE _▖O LPRINT LPRINT BEEP LEN [N] LIST COS READ ▜▟[L]n STEP PAPER o INPUT RND INVERSE <= LOAD GO SUB CLEAR COPY p` CAT [L]ACS MERGE IN THEN CAT TAN LIST j GO SUB © OVER © CAT ~i[S] INVERSE BORDER CLEAR RUN LIST !N▙7 OUT FLASH ▜ LLIST j PAPER CLEAR RETURN SQR aQ[D]?IN [L]SCREEN$ CODE 7INT !SCREEN$ DRAW TG STEP BORDER iD THEN STOP [P]<=[L]▟[O]) LINE USR INVERSE ABS IN GO SUB FLASH @ LOAD } RUN IN RUN ▝" CLS w INPUT COPY DRAW _ OUT STOP N OUT PEEK RETURN ]UIN STEP CLOSE #.? INVERSE [R][K]/ LOAD LPRINT COPY NOT READ <= COPY ) CLEAR GO TO POKE QuUSR PI OR LEN S` OUT CAT COPY OVER LOAD BEEP CLEAR OUT ©FATN SQR Z LOAD OUT 9` SAVE `BIN ` RETURN % RETURN LN LET O RESTORE G RESTORE URNDW REM PIeWURND RESTORE V STEP QjPIP2 CLS IN ©W,Z[G]//Ng0a RUN f COPY f[K]5IN <=[J]▜ SAVE COPY AT READ PLOT 5Z<>SCREEN$ SQR ERASE wTAN CODE CLOSE # OUT COPY 60doBIN LPRINT ABS OR S7ATN GO TO *ABS ;[L] COPY [T]SCREEN$ SCREEN$ PIATTR CODE COS SCREEN$ SCREEN$ ATN SQR IN NOT U PRINT 3▛[D]UU[H][L][P][T]UUPIATTR CODE COS XUATN SQR IN (LoCODE D REM UuJuPR COPY H CLS J VERIFY V CLEAR V FLASH BATN Z LOAD T OUT H OUT J LOAD ^ATN [Q]pN CLEAR CODE INT [C]SCREEN$ INK jB COPY *^2SCREEN$ R OUT LOAD Z RUN B CLS * CLEAR " CLEAR R CLS R RUN * LOAD " OUT Z OVER [S]VC[P]HQWSc)c LPRINT O COPY COPY [E]IJQII COPY U COPY Y COPY M COPY Q COPY K COPY IN ©lZjI[C]n LINE "Hi DEF FN R RESTORE jb2[A]H▗ ERASE LINE COPY STOP ERASE T[E]YVIT17AT SCREEN$ 9AC DATA GCL[H]EiXGJ FLASH cuSIN 2:i9 PAPER 9 PAUSE COPY REM [A]U= IF "j NEW a3 MERGE c"©©z COPY w LPRINT © OUT a CIRCLE h FLASH i[h CIRCLE a OUT ? CIRCLE _ FLASH o FLASH w FLASH ; FLASH ]ABS nNOT w&n#@<= LOAD :SQR PLOT ABS VERIFY ACS ACS FN AND COS COS PLOT ASN ACS LOAD BIN z LIST ▜ PRINT <= COPY CLEAR COPY NEXT PRINT c7fP GO TO FLASH PAPER NEW INK READ 6CHR$ FOR RUN m LOAD ~ LOAD ©vSQR OUT ]IN CODE qATN n{q CLEAR PEEK COPY OUT ©#IN INVERSE IN GO SUB IN s=PIIN S OVER NOT LLIST [S]^> RETURN COPY nA S OUT PLOT GO TO TAB IN COPY ABS CONTINUE [S]ABS FOR = FOR <(*VAL COS $@'▙ CIRCLE STR$ A`+[K]QBTAB AND Z PLOT AND 1E[M] PAPER EXP ~T SAVE Ov COPY ? GO SUB ▖▝▗' RANDOMIZE ABS RANDOMIZE INT ATN yVAL yCODE EXP UUA'<>$7 STEP 7 INK #,SCREEN$ SCREEN$ [F] BEEP _IN ACS L CAT CLEAR ATN PLOT LOAD SQR THEN RETURN E| IF <SCREEN$ 4SCREEN$ $< IF t OVER T OVER / VERIFY /v|vt^taa COPY x3[Q]USR [B]~ RETURN ACS OVER PLOT VERIFY GO TO PLOT AT ACS SGN VAL$ PEEK INPUT ACS BRIGHT PLOT VERIFY AT OVER TAN PLOT ACS $X PLOT O CLS DEF FN ]@IN [E]"-2 RETURN z VERIFY 2 PLOT RETURN ~PEEK ^ACS ~ PLOT ~ OVER n PLOT nBaO_ NEXT ©? BORDER INPUT ©@ RETURN DRAW RETURN SGN PAPER ACS IF PLOT zf REM RETURN INPUT AT INT INPUT SCREEN$ VAL$ SCREEN$ F,[iSIN INKEY$ FOR O/OdP|~RND/[K]T[E]t[Q]( PLOT t INPUT lVAL$ TO ,ACS $ RESTORE TACS d/?m[A]O RETURN PEEK RETURN [G] PAPER ERASE TUAT [L]TAN $[J] PAPER a PLOT OVER TO I CAT 3? DRAW TO NEXT NEXT TO TO 3 COPY 3U*?? INVERSE ) NEXT 3[S]( COPY USR COS 5iO STEP LPRINT I TO / OVER IN '&SGN ▘DINKEY$U* VERIFY INT {o REM gASN 3ZTAB Y[P] TO <=fc07RATN ggVAL$ s INPUT Y RESTORE (cVAL &▚[ CAT ▚' CLS COS OR [B]K© NEXT READ DRAW INVERSE LOAD IN STEP OUT ▜v NEW na BRIGHT pl[G]$<[I]P STEP <= RUN ▛ATTR WWAT ▛ SAVE BEEP yjCOS <w[A] LLIST ▖0! BORDER 8G>o COPY U~jACS 4 CAT STEP [P] STEP u CLEAR FLASH CIRCLE FLASH THEN [L] PRINT SIN LOAD 3SGN a>=STR$ LPRINT [I]<>ACS 9p7 LIST k LIST p.p/8LN 9x SAVE P FORMAT FN CPUSR ▟ PAUSE USR SGN Z INPUT VAL [M] COPY BORDER BEEP cATTR ? RETURN COPY LLIST U RETURN INT OPEN #u[L]IN GO TO @BIN L`[I]p8,8$)<0[M]▝A@SCREEN$ SCREEN$ UT(SCREEN$ TT*(P mBIN F(ASN 8R OVER RUN 2PSCREEN$ ▚[H]>*[Q]UQ+*ABS W DRAW PI RANDOMIZE LPRINT CAT CLS IN CLEAR l( DRAW LPRINT H) RANDOMIZE USR INVERSE LET 0yY RESTORE T|SCREEN$ CIRCLE PLOT RANDOMIZE POKE p9▜COS COPY COPY y[Q]A COPY ~ NEXT ([T][M] DATA ▗ LET `F"[[O]n CIRCLE *[R]] INK ? CLEAR OUT DRAW BORDER O COPY RANDOMIZE P>)@ COPY EF LPRINT FORMAT (] OUT <`v[B] CONTINUE INKEY$ CLS POKE AND q RANDOMIZE ▚ NEXT O`A©? NEXT BORDER CAT CAT LIST COPY [P]U AND SAVE RUN NOT CLS SAVE RANDOMIZE USR DRAW |$/"$ DRAW 0 DRAW p RANDOMIZE LLIST COPY AND LN ACS 5} SAVE ??vv[P]▝%R><=~ SAVE /KIN ? SAVE READ NEXT DRAW LPRINT LIST 26 DRAW 4 DRAW 9[Q]O© DEF FN © LPRINT ?? CLOSE #" SAVE FLASH 6 RETURN © DRAW ? CLS [O]P▗ SAVE w6^4 RETURN 9 RETURN COPY CLEAR RANDOMIZE GO SUB l1[E][C] INK @$H PAUSE ▟w▗k ivh0@8[I]2~ CAT 9"SGN o CIRCLE RETURN !E▚USR xPFN o18 RANDOMIZE NOT NEXT c DATA g STEP DATA [P] INPUT _ LLIST USR [O][O] OR ' FORMAT ?[O]1 LINE 'USR [P] PAUSE OUT RETURN S[E]CODE [G]( LPRINT LLIST PAUSE ▗ SAVE 1s[J]PIUSR O>=DPEEK ▝>[P]fKpUSR IF %q[A]`K[O][T](@[J]COS STOP /COS O CIRCLE RETURN g[M]0 RUN q RUN FOR COPY V COPY _bCODE QC DRAW Y?G<=[P] NEXT IN OPEN # COPY [Q]©EPEEK [I]USCREEN$ IN [P]C[P]/©z[H] CLEAR SAVE NOT {l~ABS RUN ABS COPY RUN c NEXT 3 SAVE I COPY DATA z INK OUT * LET CLEAR IF o CLEAR _ REM ?[E]© SAVE ~IN NOT OUT LPRINT / RETURN COPY THEN RETURN RND COPY VAL IF hU CLOSE #*[T]O?[R] COPY G>▟▗© LLIST J* RETURN P PRINT IF ' DRAW S IF [R]uQSCREEN$ P[Q]}@> RETURN <> DRAW RESTORE RETURN PAUSE DRAW RANDOMIZE x DRAW MERGE RETURN ( COPY COPY LN ©BIN ©[Q]? MOVE CAT FOR BORDER BEEP PAUSE LOAD LIST OPEEK OUT IN [P]? OUT < OUT © CAT CLS DRAW ? LET IN PLOT ? LOAD IN BEEP © LINE IN RETURN [T] DRAW ERASE FN JQ RESTORE [S] STOP B PRINT ' PAUSE LET ▚>=▘U▘SCREEN$ Q[S]FN QS LINE ▜[Q]Q COPY U COPY /<= RETURN % CLEAR COPY "TAB DIM READ DRAW STR$ ▖ OPEN #<vVAL UB*[A][F]OUSR [P] LIST ? LLIST 'M COPY NEXT #<=g[E]INT )[U] SAVE RETURN CLS RETURN RANDOMIZE RETURN / COPY n COPY 7▟`# INVERSE [N]Q STOP BORDER ENBf@l COPY e<=" DEF FN 5[N][LN) BORDER c RANDOMIZE g,vG.s CIRCLE i PAUSE Tw▜] INVERSE y ERASE s[F]G;©fnCODE RESTORE PAUSE ,[J][N]PEEK z PRINT 1[T]COS 7PIIN W..c[L].=© DEF FN [N] VERIFY [I] LOAD ABS WPEEK CODE (IN ©OP LET DRAW NOT [P]©=~ IF Py CLEAR { LOAD BEEP BORDER NOT LIST j DRAW COPY LPRINT F PLOT n BEEP COPY DRAW ? DRAW } DRAW cSGN ©[P][P] INK LOAD TO ( PLOT LOAD SAVE oW AND CODE ▜WCOS FOR [C] SAVE NEXT LLIST BORDER LLIST DIM ><=<CODE EXP z THEN CLEAR BORDER # IF BORDER [N]q INPUT U BRIGHT ([J]QVAL [T]w AND & GO TO CIRCLE ▙ PAUSE u FLASH INPUT SQR PAPER RUN [G]cd[C]VAL OPEN #USR aFDSTR$ 9TT CLOSE #L <@ INK B%j@ REM CLOSE #FN STR$ nVAL$ BEEP LIST G READ =▙, NEXT GO TO RUN GO TO COS GO TO PLOT obo1[I]8 POKE ~v NEXT 73ATN [C][C]@A CLEAR ATTR DRAW CONTINUE <> COPY IF 3xy<▘|<|&iO READ INK NOT [I] AND <=STR$ 3▗[T]▗©<$0t[U] COPY q OPEN #s MERGE BEEP AND <= INPUT AND STR$ ? NEXT =~ STOP NEW TO (E|) PAPER LPRINT ©[L] RETURN w RANDOMIZE ATN RUN ▞ LOAD D CAT W[R]LN a([R]Q OVER j!r!R!b!Z!/[Q] OUT z[T]r)ABS RANDOMIZE LOAD OVER ~ RUN TAB OPEN # OUT " REM RUN CLS =- CLS [O]ZFlR COPY DRAW N%FRJn LOAD N LOAD ] RETURN "!. i~ LOAD ~ DEF FN @Q~ CAT o~Sn DEF FN , DEF FN ^ INVERSE } VERIFY } PAPER CLS TAN HE3} CLOSE # VERIFY FLASH [S] POKE J}[I]}[K]y[M] CAT PAUSE q▞Qy[E][M]jp_ NEXT INVERSE NEXT LOAD VAL$ RESTORE _h_)X COPY THEN COPY INPUT CLS R CLEAR © CAT >= DEF FN BEEP CONTINUE FORMAT USR ` FORMAT OR SAVE LIST N7 CIRCLE Pm CAT RUN TAN USR *@@@x @V!▙ RUN _ OVER =IN [P]▘_<"| LINE <p|<r|p< BORDER LOAD GO SUB NOT E<= DEF FN ACS [P] BRIGHT EXP [I] 0=© e DATA %taUSR LLIST 5 DRAW e NEW ▞ PAUSE LPRINT q? NEXT © READ AT SIN > NEXT EXP SGN COPY © RUN [C] INVERSE AT K7 OUT BEEP STEP 7",{ PRINT C CLS OVER "W LLIST PI[L]PEEK W[P]STR$ 7▜ABS }; OUT PEEK ▜Es RETURN INKEY$#▜ PLOT NEW VAL cCOS RETURN c CLS d OUT aa/ THEN DEF FN LPRINT CAT CAT }K NEXT CONTINUE PRINT /?S[A]?__[U][U]fc]HLN ^fgTUgfrsh_ij^ggVWU(tuZZ_=f©©,vw LINE .f/`d RETURN FOR [} INPUT ^LEN SIN ]EXP s▘^COS TAN ]U5▟TAB Z[J]3▙▟[K]▝]f3▙SCREEN$ H▟c}^▘B[O]3,▟^▗]ABS o>=[R][H]▗ACS ATN ▝aEXP (U RANDOMIZE mr▘]©[M]_^b]:/g_gglmg !▘]b_bbnofPOINT bpACS f_f OVER SCREEN$ f!SGN MERGE ,Z/N SAVE [C]SnPEEK IN [<>ztqCOS [R][E]n DIM }D▘gSGN SGN BRIGHT SCREEN$ @_ !"X▝_#$%#&'(& RANDOMIZE ▞`)*+)CODE n&_▖ PRINT EXP % PRINT X[Q]▞_LN ▘Xrs(X123_D^c]▘XtuX456^k[O][R]]▘Xvw2# POKE CHR$ # PEEK STR$ ^[L]ATTR LINE _ FORMAT ^xyz{VAL *_YY[B]INT A VERIFY ^/▝0 STEP [B]:/▘f`ASN ASN [K]STR$ `A3l,▗? FORMAT oA▝X MOVE PIp INPUT LLIST ;:>= CAT LN LN lmAUDEnojFN :;RQ INVERSE /=><>0_ PRINT 0▟s▟PEEK IN ▘]L[I]A[} BORDER Q[Q]$ CONTINUE ]78|IN 9EXP xc DATA VAL$ JcCHR$ ` DATA /ajm[B]x[T] CLOSE #[B]H6CHR$ _[Q]"SQR ^]3[O]cu INK ATTR INVERSE [F]LN ,<(DEFrsSTR$ POINT ▝/7]tu▘vl[S]w▗/>=o CAT ▞IJV KL_LEN ` OPEN #8▛f3LN 89ISTR$ EXP ATN ATTR STR$ 9IVAL$ &M[EXR!Pxjkjp TO x@lP|}~Z©@ghiMNOPQD▘ BRIGHT X/0a READ AP[R]cdefPa:;<=rs^H OVER >?@A BRIGHT /lmSCREEN$ ATTR AT >▖▞▛▙POINT noJ[B][K]▟[R][J][K][I][M][N][L]z[P][Q][O]|[R][S][T][R] COPY 0$[U]RNDINKEY$[A][B][C][D] LLIST [E][F][G][H] COPY INVERSE ▚[C] RETURN [;▚UCODE ;▛ABS z▛▛CODE ^▛▛ STEP z▞6 FOR ▞[L][M]0PEEK LOAD ASN ACS ATN OVER {5Fo` LPRINT %ATTR SCREEN$ VAL$ ▙ATTR ▟[Q]wVAL +ATN UXlmLEN XLEN ULEN LEN UXLEN X▟= INVERSE FORMAT =VAL$ CODE ▟[Q]&SCREEN$ [K]s POKE 29N[K][I]B BEEP PAPER [L] LINE d[A]pq[O]+ IF [A] PAPER [R]VAL$ CLOSE #[A]"[U][A] ERASE ATTR [A]▟[E]ICODE [A]▟SCREEN$ tSCREEN$ CAT KATTR C< CAT STEP VAL MERGE X STEP RANDOMIZE ▟ STEP PEEK STEP ▟▟ CAT d? RUN ▚STR$ [B] AND BRIGHT FN <=DD CIRCLE h INPUT PI LINE [E] CONTINUE P▘Q<>▟R+)vp CIRCLE -%5 BRIGHT , GO TO [F]<[S]P OUT INVERSE / RETURN LN STR$ ▖O>=XJI//7W[N]([TAB [S]N{RND VERIFY Q( BEEP RESTORE h NEW VAL II OPEN # PAUSE NEXT x(JC IF c FOR ▟INT STOP CLS FORMAT c; CLS U[E](<=IN © NEXT INKEY$?[L] ERASE ~-AT ~ACS <>SCREEN$ MOVE =m FLASH <= IF CLOSE #ASN ACS jINT RESTORE 1 DRAW STEP DEF FN xCHR$ OPEN #SIN )[P]>=ATTR ©[D]<>ASN ;[N] INK & OUT [B]6= LOAD 8[D]}W" VERIFY BORDER ;^2INT PRINT e CLS /, AND LET [D] OVER LPRINT LEN ▙IN OUT 5 PAPER r; RESTORE $NOT FOR USR v BEEP U GO SUB @FN ATTR FORMAT [S]H$ LIST T?` LIST ?USR TP RETURN $]USR DRAW $[I]t[R]}INKEY$yUSR "[B]&USR 2INKEY$#?INT 2 PAUSE >[E]d OR SCREEN$ POKE 1RNDs LET u)SQR OUT PI PAPER g▟u[S] CONTINUE [I]SGN POINT [E] LIST BORDER VAL MRND*} DEF FN Q STEP INPUT 8(I}[E]} MERGE ©R[S] FOR 8 DRAW #+[F] CLEAR ~ INVERSE GPEEK ?▝4)RNDUSR o CLEAR ©EQPEEK V RETURN k[ABS ?R COPY ._7©%J[L]>IN ;ATTR [O]ABS 6. THEN IN ▞G INPUT <- CLS nN[H] RUN DIM ▟ VERIFY 17(j[Q]}Y INPUT AT ( FORMAT [O]@<K#SQR u`6INKEY$m? COPY FLASH 8Avk<hyTAN ▞[;INT 2 DIM FLASH X PAPER COS RANDOMIZE LOAD [4m LET [D]s STOP es OVER L&w MERGE g COPY [ NEXT [F]^ DATA SBSIN s ERASE COPY [J] CLOSE # COPY $2# CLEAR # COPY ▖-<=d RUN (; OVER T`▖WLN q INVERSE uASTR$ ^ FORMAT [M] CLEAR LOAD vIN _@▘0 PLOT RUN DRAW © GO TO [T] BRIGHT DEF FN Fu OVER m STEP [O]m<T[U]9|uSCREEN$ 2 SAVE o LIST PEEK { DATA [E],RNDo MERGE [Q] IF CLS [J]%x9`JLN m: MOVE cLEN ▞8`RABS INKEY$ STEP P[A] RESTORE THEN VAL$ FORMAT 0 BORDER x{ STEP COPY © RETURN FN =]X2 BEEP h3 OUT @@S? INK SIN b#INT t,+^*)CHR$ (t LLIST '&XINT %$P# DRAW > COPY SAVE x@> REM CODE RUN USR ? COPY u[@ [E]YATTR ^ COPY [`COS h STOP YVAL ?/>!`}BIN >wSCREEN$ ▚ OVER LOAD LOAD ABS LIST LET PAUSE OVER ; NEXT POKE PRINT ABS RUN PLOT RUN SAVE { LOAD RANDOMIZE IF CLS RUN OVER DRAW CLEAR RETURN COPY USR [R] CONTINUE USR FORMAT @ LPRINT FORMAT %X▘QSJ[S]zR▙[E]▜Y RANDOMIZE VAL RETURN DEF FN NOT VAL +VAL$ 8 NEW Q▜/= INPUT VERIFY *<>v3~B)"USR |2 LOAD ? INPUT AT 7[M] COPY RUSR STR$ INVERSE II INVERSE BORDER DEF FN S-[S]( RESTORE [VwPI^ MERGE % STOP { AND NOT _En OVER ~{a[C]+? FLASH CODE RETURN LIST OVER M` DRAW MERGE <▜ INVERSE OVER OVER NEXT LPRINT STOP DATA BORDER RANDOMIZE NEW CONTINUE REM y[O] GO TO INPUT DEF FN INPUT LIST PAUSE %▙STR$ ).[K]ACS MwIN OPEN #[P];Sx5[B] LPRINT `K RUN I OPEN #@V FORMAT `e[F]7 SAVE w RANDOMIZE > IF RUN CLS ~ OVER 3TAB { CLEAR y^ COPY }IN CLS @~ CLEAR _ BORDER Jo LIST hx[R]VAL GUb 13[A]8$[L]▝PIP( LPRINT [N]COS LN x, OVER ▜ACS ▝w[L]6VAL USR 8 LIST ERASE : RUN USR 8[I]NiINKEY$ BORDER ERASE REM ACS [H]ACS HINT ZSCREEN$ PLOT ▞D% GO SUB #_[T]0x OPEN #[P]BIN ▘PId4& NEW FOR PRINT L LIST NEW fD▘.?m5voCODE [P]▞4 OUT [STR$ "PEEK INVERSE STOP v▙[L]~ IF 08 RETURN w▖ TO DRAW ]#LN OVER S[B]y GO SUB ▝#[< CLS ABS vB_+&S%Xo DEF FN [K]L COPY BORDER LLIST NEXT Amaf POKE FN RANDOMIZE PLOT RANDOMIZE OUT 0[K]NOT -0:[I]8 LOAD CAT : MOVE COPY COPY REM 6+©s CLS )nsSGN <=? CLOSE #USR s LPRINT ASN COPY Z LPRINT x CLS CODE z[Q]{ RETURN MERGE SGN yn FORMAT {T/[R] GO SUB RETURN VAL { GO SUB USR MERGE MERGE p{] LOAD [Q] RETURN TAB GO SUB VAL z CLEAR COPY BEEP ]? MERGE RETURN C FOR CLEAR k } LOAD COPY LIST INVERSE f3AT Pi PAPER [M]P-ATN ▗^▗$fp3 IF ;CINKEY$[G]$$+[C] BEEP [G]$INKEY$[K]<>![C]nUSR [O])E& LOAD | FOR ▗[G] FOR OVER "[E]cOQT GO SUB BORDER RUN Er CLS [A][C] PAUSE [E][U]m DIM RANDOMIZE t▞R RANDOMIZE SGN CLEAR [H] PRINT [Q]C/ INVERSE SAVE }T0q CLEAR {K▜ READ h OUT IN <F[Q]Gb▜oULINKEY$$▚{2[S]CLEN h[Q]ABS LLIST LINE 6. CAT 5 FLASH #` COPY INKEY$(▚ DIM LLIST #INT ERASE ACS k} MOVE C[O] PLOT PEEK SQR RND&?! LINE ^x8A CIRCLE [▚xpG[R]©VDP▙ DRAW RNDoEXP ERASE ; PAUSE ATN PRINT $ OR INT FOR SCREEN$ BORDER 1A CLOSE #U, CONTINUE &! SAVE TVAL ( LPRINT COPY $.J LPRINT RETURN pFu>4▖**" LPRINT VAL 4A LPRINT SGN USR BIN TAB ]IN >RNDVAL$ Uv~[G]!t(x[O]r LOAD L[S]zkABS 8C}'NOT I[D]RNDo BORDER TAB ▞J INK jCODE 7fRJ RUN ? RUN G BORDER FN BIN ▞ BEEP d[S]w_▚R&'~▞>IN ?CODE [R]▞wNOT n(Je©E©_m STEP [F]? BEEP HQ FLASH _ ERASE [C]?CHR$ [[N] COPY OR LEN Jg|VAL PIVCHR$ VERIFY LN ▗[B]h ERASE 6IN '{ ERASE ACS INVERSE # LOAD 5 [L] FLASH "[R]ABIN J BEEP 9[J]/#/Wt7gTAN CLEAR J[Q]SIN MERGE ;]3NdPOINT eLEN LpY/SQR POINT 1 CLEAR IN E2▚ COPY GLgVAL RESTORE I5NOT ©U[Q]FN ABS <>d[L]OCODE d▘[I]= MERGE ©<>PIG COPY OPEN #" RETURN ATTR -E MERGE COPY APEEK 1H▚ CLS ▝ LOAD LIST %4[H] RUN LC-RaCHR$ SQR >ASN ~ AND JCOS ts` DATA [Q]t CLS ERASE 0*31J READ O RUN STR$ T=j COPY .[S]0JTAB 3ATN wWJ:o<F"= BORDER ~ RETURN BEEP i}SGN S THEN /SIN )O MOVE Vp INK ^INT ERASE RNDa DIM [Q]P© GO TO =USR n RUN CLS ` CLEAR ~ABS LPRINT LOAD M THEN ' COPY DRAW ^ RANDOMIZE P COPY Ng= INPUT TAN NOT :30TAN IN REM LOAD ABS FOR GO TO GO SUB OVER y INPUT LOAD LIST ABS RUN LET PAUSE NEXT { LOAD POKE PRINT PLOT RUN OVER RUN SAVE RANDOMIZE IF wPEEK CLS DRAW CLEAR DEF FN RETURN `CSTR$ B|[M] POKE STR$ &▜[D]%ATTR }8lC<TAB READ CLOSE #P POKE 8 CIRCLE PEEK ▘[L]TAN [O]#mBIN "[A]EXP XTAN ▛POINT `O6K RUN PEEK PLOT T▟/RSTR$ ,I BEEP IF -I[C] CLEAR ; FOR ?z"= READ P&|?▝▝7?L▝© INK COPY RETURN ]SGN COS p VERIFY BIN RANDOMIZE LPRINT Q+ CONTINUE FORMAT Q&q BEEP #@ READ PAPER ATTR [H]ATN ^m FORMAT ASN SNOT )[L]Of"Nq#pi20's OUT GO SUB tu▗©▝= FLASH [D][S]- RETURN CLS P"? LOAD BEEP 1 OVER ▘ CLEAR '| LOAD © PAUSE ▗~ COPY CLEAR [ FLASH ~CODE [U],ATN SAVE )[I]"x[A]EXP xUSR [T]USR RND[J]O[N],▛j▜ CIRCLE !<= FORMAT y[G] MOVE X LPRINT 45 STEP 46R30-/iPI$ POKE AK[R] 2[E]G[C]` RETURN VAL$ LOAD l0[B]▜ OUT 2a[J]j▙H" NEW D TO E LIST INVERSE ▘} RUN 9[M]JFN H RUN [P]}8 GO SUB STEP >=▘ RESTORE [C] BEEP ▖BIN LINE Oo OUT `SGN FORMAT IN OUT &[I]H RETURN 7 DRAW RETURN ©[F] RETURN LPRINT [D]H DRAW ©(y DATA OUT [P]< RANDOMIZE rLS'<>LS DEF FN W THEN BORDER MERGE TAN ▗MSQR VERIFY TAN [R]~<_125 LET j1[S] OUT CLEAR 5 PAUSE pY@ SAVE q COPY OUT DRAW >+ INK CAT ,USR { READ MERGE BEEP ABS [Q]{© IF OVER yINT LPRINT {PEEK ▞ PRINT [R]/USR _ABS PLOT LIST { CLEAR LOAD CLS m INPUT VAL yTAB THEN ]ABS PRINT Pq MERGE 9 COPY CLS RANDOMIZE VAL | SAVE REM lPOINT $5USR CLEAR OR [Q]l[H]> OVER BORDER OVER [P] LPRINT ~ LOAD RUN [Q]2[J] OVER OVER > LOAD STEP J~ OUT SAVE ~ LET CODE LPRINT BORDER (7 BORDER ▙ OUT LOAD LOAD OUT w> DIM {3|[ COPY {SGN BEEP BORDER BORDER BORDER CLEAR SQR v CAT ; RUN <=y>=▚C COPY &:[U] REM 0 SAVE ERASE <p▗aTAN PEEK FOR 5`_ PAUSE [Q][B]> RETURN USR 02 NEXT s<= GO SUB &[S]%eEXP OR ATN THEN OUT OUT @c[P] CAT LIST z NEXT PAPER FN x< GO SUB BEEP STEP E DATA _ INPUT POINT TO PEEK NEW UBIN LPRINT 0#IN PRINT !>=COS PLOT [C]BLN ATN 5? BRIGHT 8V COPY FORMAT 02QSQR &:[Q]LtATTR |[A]0 CONTINUE INPUT ▖[F]f[H]85rABS P▛[F]FN bBVAL [P]? MOVE [C]6▜ MOVE <= MOVE [Q]V SAVE ZTAB VAL$ [O]-[C]_[D] AND 8l<[K]!` NEW [D] LPRINT 3 LIST 7[A]& OUT OPEN #SCREEN$ n4M RUN AND [T] COPY >= GO TO VAL$ COPY POKE SAVE COPY ABS COPY * GO SUB SGN R COPY CLEAR LOAD _S NEXT VAL$ GO SUB [I]^[L]INT VERIFY q+ DRAW [G]ABS EXP DRAW -[ LIST THEN [ INVERSE TO SQR ; LLIST [E][R] SAVE LN [M]X▟I RETURN Y CIRCLE BORDER [C][D] STOP BRIGHT [B][K]>;[R]nK TO [H]rS5VAL$ V[E]U DRAW " COPY COPY '( COPY [F][Q] COPY EQFN [H]m(Ts!( CLS THEN COPY
