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 @GAUNTLET3 DONE BY MAX IWAMOTO/CODEBUSTERS! AMIGA RULEZ ALWAYS!!! SEE YOU!!!d=aRNDr PAUSE ADEMOMACb BORDER KbSCREEN$ AWK" LINE 115616 LINE __CAN'T FUCK YOURSELF? 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 9 LOAD 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 OUT AND ])K PAPER | BRIGHT ▜[B][C] TO [P]Q}6 MOVE 5 LET . RESTORE PLOT [T]ZeA[K] OPEN #X)|XCOS THEN h0vb CIRCLE CLOSE #CHR$ ABS X LET 2VAL [D] CAT CLS FOR rP LIST FLASH [U][U]XX LET * STOP F,02qy[P][K]RND IF CONTINUE C DIM @V COPY ySCREEN$ MOVE STEP r▞PEEK TO [K] LIST FOR <> INK [R]▗ CLS MOVE INKEY$FN ▟[I] RANDOMIZE COS IN [U][H] READ FLASH COS [I]▟ BEEP SIN [R][G] CLS THEN TAN [D]▘ READ LN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY 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 !zLEN + GO SUB s[H][M] COPY IN GO SUB LN FOR #RND~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1!X[Q] GO SUB VAL CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN GO TO vvv INK LLIST X GO SUB VAL INK = MERGE &[Q]w]T COPY GO SUB VAL STEP *[N] INK ![Q] RESTORE ABS G[S]SQR INK 8SQR INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL INK NOT !X' INK <>!RND@J~# IF Q{ AND _0 LIST z AND W RETURN X8 CONTINUE { NEW LPRINT <> THEN [N] @SCREEN$ Pt PAPER LIST COPY DRAW SCREEN$ CLEAR COPY COPY GO SUB ©*_ COPY vCHR$ COPY ▜[ COPY ©?V RUN SAVE CLEAR LINE [T] POKE [T] PRINT POINT R▙a[Q][Q] ▖FN P[Q]>= PLOT y DATA LPRINT x[N]xPp▘ COPY RETURN NOT COPY [D]IB[F]*[B]▗ A0 [G] COPY WIN [ COPY IN WTAB H$ RUN USR USR USR NOT USR STR$ ▜▝ INPUT IN [B] CLOSE #▝[Q] [A] RETURN MERGE CLEAR COPY mVAL COPY j COPY FN COPY COPY @ PLOT STR$ ▝© AND ▗o COPY NEW CLS `SQR [B]5 REM Up RETURN RANDOMIZE >=$"▝0#[U] NEXT 77304 READ A0 MERGE ▛ LLIST SAVE NOT [G]U/U+© RESTORE $fJ qVWIN Dj1j[C]N>} CLEAR IF :00SCREEN$ [L] RETURN DRAW CONTINUE SAVE LIST COPY INPUT LIST CONTINUE FORMAT }©IN o(©W DRAW <=▟@[Q]@Q( ERASE CLEAR POINT LIST TO COPY ▝ OUT 1USR ▙` LIST |_▛▖DPI/(USR <A TO ▘@@▝@! LLIST ▗USR !USR LPRINT LLIST USR ! LIST ▜LEN u[A]b&[I]P SAVE DRAW RETURN RETURN CLEAR PAPER COPY ©TAB ATTR SCREEN$ UIN D▗B2▝▖▖© COPY ATTR COPY *D OUT j[E]t(FN PP[Q]!^▝▝ LIST BORDER ▗ COPY 2▘ FORMAT YW[Q]W RETURN FN 0o"d▖T▝jTC▘COS LOAD p AND b▚ BORDER COPY : CLEAR LIST [Q]▚ CLOSE #0r[M]}▚ READ 73 NEXT 33▟%RNDJ RUN OUT ~IN _*BIN [D][A] SAVE SAVE |ATTR UATTR COPY COPY CODE TATTR COPY o[F]J"GpC▘ INVERSE 2 GO SUB ▘CHR$ 8▘ ERASE [E]?© DRAW LPRINT CLS W LINE ▝<[H]▞[Q] PRINT ATTR RUN COPY }?USR BIN B@~ DRAW IF POKE SAVE tFN p(P1▝q[M]3`▝[F]cg[E]? COPY / COPY COPY Z GO SUB © COPY [T] DRAW SCREEN$ P))&▝ INK ` LPRINT LPRINT LIST FN `_-[P]%▝!▘[S]▝"INKEY$▘B NEW ▙USR `o STEP ▚NOT <=USR USR ▝▝USR NOT ▜NOT ▜.▘CHR$ ▘NOT ▜ OR <=▘BIN USR A▗[U]SCREEN$ USR m RETURN CONTINUE PWSCREEN$ z>x LET PAUSE QHCOS ▘▝ LIST IF ▘R[E] PRINT SCREEN$ MERGE VAL$ | PLOT RANDOMIZE [Q]K?▙UCODE COPY SQR [F]0[A]KK▚ P0 CIRCLE DRAW PAPER [K]SQR COPY USQR D ▘%$W LPRINT ▜ TO USR GO TO <=<VAL LN 8LEN CLEAR ▛ RETURN DRAW SAVE SAVE LIST p COPY LOAD p LPRINT p9 P LPRINT p LPRINT BIN LIST CODE ▘ OPEN #PIUUSR `[C]$[S]T LPRINT ▖ATTR F LIST [M]_3%j%▞J[B]"@@ LPRINT VAL $B RANDOMIZE D INK [G]$VATTR COPY RETURN zzTAB RNDIH[U]▞ OR LPRINT dUSR [P]4|▖ABS COPY COPY REM IN T COPY ULEN ▜n BEEP nCRND=▗@ AND [B] COPY W/[F]+_ACS "TAB @ REM ?=VAL LN LN VAL 0gc OPEN # OPEN # CLS ▛▗ COPY COPY [P]$|▟ LOAD RETURN CLOSE #▟+ OUT CLS ATN VCODE IN ©x▗ COPY ^ RETURN | LOAD LIST ` LPRINT [E]USR LPRINT x?RND"B@Quu[H][E]P CONTINUE FORMAT FN V[H]TAB _+ CLS PAUSE [F]▘D[H]T[G] DRAW LIST LLIST [T]QFN POKE SAVE CLOSE #[Q][F]/[H]CODE [N]▚f▘USR B▟ RANDOMIZE X DRAW COPY COPY ATTR U% THEN IN U@ FOR ▞ GO TO TO <=<=NOT NOT COS STR$ 6▝3U[F] COPY COPY <= CAT CAT OUT OVER OUT INPUT COPY INPUT OUT VAL$ OR <><=24[B]4` SAVE U RETURN m COPY ASN LIST TAB COPY FLASH CIRCLE LIST PI▝ LPRINT <▝?A TO ▜ LPRINT ^(p▘USR ▝Dx[B]%rRND REM RESTORE PAUSE MERGE [Q] AND IN COPY V PRINT ▘ RANDOMIZE ▜"FD[D]??W COPY x RESTORE [P][Q]▜OG▚C STOP NOT ! CLEAR ▘@`▗ SAVE |SCREEN$ _v▝CODE 2[H][G][G] GO SUB GO SUB _X[J]]__[[J]AT ▝ RETURN [E]fUSR ▝@ IF DRAW COPY 6@LN UFN A` COPY SAVE $S▛▗ COPY m COPY OUT & OR ▚E+INT ▚ REM W$22▝uPEEK [F]0~ DRAW 3OIN uLN XPOINT ▝@@ AIN 7▘ COPY CLEAR E AND ▖ LOAD CLEAR ACS COPY COPY ▝*] LET DRAW ^[A]Q@[Q]USR ` <▘$ CONTINUE BIN ▙<22<ACS COS <px<▗"© COPY VERIFY ▞ INPUT SQR BORDER }[E]P STOP ,P[I]▗ATTR W COPY IN ABS FIN ▝▚[G][G]PI▚▚ CAT E COPY VAL / INPUT ASN NWSCREEN$ [F]JE6▝ INK [D]?~ PRINT SCREEN$ U*[F]>=CHR$ <>[U]USR T ?{xASN RETURN RANDOMIZE VAL$ DRAW POKE [T] RETURN ASN COPY RUN CLEAR COPY RUN RETURN T IF T FORMAT IF PSCREEN$ PRINT COPY FOR [F]o▘ LPRINT DRAW OUT n©*7$STR$ [M]▘V*▚ LIST USR LPRINT LPRINT USR LIST x4▗V READ BORDER NOT LPRINT ▘ LPRINT USR SCREEN$ ▞@[Q] OVER DRAW LIST USR 8Z▖U> OUT -]* RANDOMIZE FSIN ▘ DIM RUN F▜ MOVE AND o6fqw*▖ LPRINT IN USCREEN$ USCREEN$ UATTR <>VAL ?~=~ CLEAR IF PRINT IF u STOP Q NEW HP(▘A#▜s CONTINUE [E] REM U RETURN RUN CLS ERASE TAB DG▚▘▘@▝C[T] OPEN #POINT Q[R]' GO TO ▘ MERGE ?U REM COPY WSCREEN$ COPY VAL$ O_;5M▘ LOAD ASN ▘NOT 0▝ LOAD ▖▘ RETURN RETURN [B]| OVER | OVER | PAPER |[I].l COPY o RETURN SAVE LPRINT V-▚▖` IF PRINT IN THEN COPY ▜ FORMAT `[Q][Q]`[Q]sCODE "[J]VAL$ } NEXT FOR VERIFY PIN▟FVAL$ ][K]-SQR ?ATTR SGINKEY$VAL$ M?| PAUSE ▞ LIST ▝SINKEY$M[K][F]* CONTINUE [O]P LPRINT ▞z PAUSE REM POKE DATA CLOSE # DATA >=FN >=FN H[Q] RETURN SCREEN$ U COPY CLEAR VIN CLEAR SCREEN$ COPY COPY ASN x[E]▖[E]▗ %[G]▘USR ▗ DRAW DRAW MOVE <▞[H]JRNDD% SAVE [B]ViE` LLIST ▘6▗TAB (2AT ▝ GO TO [I]h?▜ySQR VAL IN _IN COPY PEEK | CLEAR y IF v RUN POKE y LIST GO TO LIST [Q]USR @[A]<[F]z DRAW RANDOMIZE BORDER OUT COPY { COPY LOAD BEEP IN ]IN ©IN Wj[N]▜ DIM mPzUATTR RETURN UUSCREEN$ ([E]Z[U]*WIN OUT oZw*7: DIM ▜@ FORMAT USR BIN IF COPY T▛U+[H]k OUT LOAD COPY RUN CLS BEEP ▛x DRAW xTAN DATA p CONTINUE SAVE LPRINT g▚+ COPY RETURN ATTR BEEP w▖SCREEN$ POKE COPY COPY wCODE 3ATN h COPY ▘ BORDER %USR ▝▝Be[A]o OUT OUT INVERSE SQR INT z CLEAR RANDOMIZE PLOT RUN CLS GO TO 0 PRINT STR$ >|FN RJ/ BRIGHT g[D]SGN CLEAR CLS LOAD COPY RETURN PRINT REM OVER TAN a'&EBB▝a8▘[Q]> COPY MERGE COPY 1~[A] RETURN CLOSE #[R]W COPY COPY PRINT [Q][F] FOR ▝P([I]▝ LPRINT ▖▘ RETURN RETURN FORMAT ▞NOT NOT LLIST CLS 9CODE REM U RETURN GO SUB SQR COPY } BORDER [ LPRINT TAB 2> RUN READ INVERSE >= COPY ▝kSTR$ ▚▝INKEY$*USR ▖IN ©~LEN DS▞©?5▛~ DRAW 84h FORMAT [Q] BORDER [B]/[P][T]|© CLEAR SCREEN$ v[I]''PICBA▝SIN ) CLOSE #n[P] CLS IN U▚ATTR P REM COPY POKE BIN [I]IN COPY [B]▜[H]'!▝@H[J]USR COPY COPY } SAVE LIST CLS NEXT CONTINUE ~FN @( FORMAT h SAVE CONTINUE SAVE SAVE @SCREEN$ U IF REM COPY COPY - COPY SQR #LEN ▝ DATA BEEP ▝ STEP #SGN ▖NOT abnG OR OVER `KTAB COPY READ m CLOSE #[H] RUN CLEAR RETURN COPY DRAW CONTINUE FORMAT USR FORMAT [Q] FORMAT [Q]USR LPRINT BIN SQR t([L]NOT [E]@` IF } READ [N]+CODE ?![R]A@@STR$ $)▝PEEK ,][U] PRINT FN B@SCREEN$ PRINT IF T"▟b@SCREEN$ CLEAR OUT LET | RETURN DRAW REM BRIGHT REM FORMAT CIRCLE SIN FORMAT FORMAT VAL `[Q]a[Q]A[N]▙ RANDOMIZE ▞ COPY COPY ??©} SAVE LLIST [L]( CLS ▘ FLASH ▝=▞ACS CLS LPRINT [O]p LPRINT PAPER m IF ,LN ▘wrD▖ COPY STEP ▚Fv NEW INKEY${< COPY ▙ DRAW CLS LOAD OUT READ >=[E]* MERGE IF CLEAR RETURN x*([H]x SAVE CLOSE # IF ? DRAW ! CLOSE #zIN IN OUT CLS wje REM MERGE CODE RETURN ▛ COPY ©▛STR$ FN ERASE [D]Q[R][R] LOAD V REM ASN RND RETURN COPY PRINT CONTINUE BCODE ©ATTR RUSCREEN$ © COPY VIN CFN POKE DRAW t8x(P0P d@STR$ >=X INK w▘ COPY INPUT OR USR DRAW ▘ SAVE DRAW ▞ POKE xTAN hH POKE | LIST [H]X&©ATTR U/G?y+>= COPY [ @S7©[B] DRAW IF 7NOT RESTORE *[F]BPOINT ]?~ RUN M▖ POKE REM ]*T FOR [M]▘ COPY _[Q]ZATN ▚ DRAW pFN FORMAT [A]>=`USR USR ▝CODE DEF FN ▘FN Q-[H]IN W[R] CLOSE # IF COPY RETURN OUT ~ OVER o COPY m OVER jL[E]H▖[A][P]©PEEK { POKE IN POKE IF MERGE ▜▜ STEP > DRAW SAVE g▚ SAVE MERGE SAVE IN LOAD "I▝ PAPER =-▝F▚POINT @pSGN CODE MERGE LINE U REM LLIST GO TO FLASH _[L];EXP =<[O]CODE [R]A) LIST x POKE IF ABS RETURN COPY ~ PRINT RETURN MERGE .▘▗<=8>v▟/[T] CIRCLE SCREEN$ ASCREEN$ BEEP INKEY$[D]IN _/[H]K INVERSE [M]▞()u▘?©▗ R▖NOT ©[N]?©?~?^%(^ABS ~?~©V COPY U SAVE STR$ P LIST jCODE [F]▝ CIRCLE S▜▚ THEN b NEW fFCOS 3o?USR BORDER x DRAW 2<>▗ LET t"H[A]|E▖FN UPEEK © COPY ©CODE U&▝ATN ISCREEN$ >=[B]P[B]P[B]"[R]"▝] MERGE [Q]U▛ OVER GO TO / DIM X LIST P[Q]"USR @ BORDER ▝ CLEAR ▘7 RESTORE STR$ OUT ▟[M]EU FLASH OUT o7▜^CHR$ ▚ COPY RETURN 8[L]?=V▜<= RETURN RETURN TAB PA▟[Q]UFN COPY TAN IF COPY ATN RETURN COPY v CLOSE #NA▜qffoff MOVE <>▖3 AND USR POINT C'R+@ B▜U▘ CONTINUE ATN ▜CODE UINT o OUT ATTR _E CAT ▝IN Q▘CODE LPRINT e[B]_*UCODE IF PRINT PAPER 55&T▖=j▗ COPY zzSTR$ ATN ▞ACS 01SIN 5LN OUT LOAD LIST ^▝@iNOT INT ▞ RETURN DRAW POINT T LPRINT SGN OUT ▝P▚ACS COPY FORMAT SCREEN$ PRINT FN s?▜ OPEN #fINKEY$▝[U]fATTR {/'▚p OUT CODE U"- DIM USR AT RETURN W/_-#*▘V CLEAR COPY ▘[Q]*▗T[Q] CONTINUE ▟▝]▝▘ BORDER SIN COPY RUN RUN USR oj``ejo GO SUB CIRCLE ABS ©0USR NOT %NOT ▜}= IF ▗* RANDOMIZE ▘ATN ©I▝▟▝VAL 7▜▚ OUT i)aa▛<>▜? CLEAR ▘ LIST CODE Pz▝▛ FLASH >= MERGE >=[E][Q]E▙©A DRAW SGN [C]▛ MERGE .U.E$H▘$▘CODE A[C] COPY LPRINT OUT IN qnnp?nnqIN OUT LPRINT 1k▗ LET RUN BORDER LIST v▝ FORMAT USR ▝-©▚%^: MERGE ATTR ▞+ COPY ATN © VERIFY ?u?mT+ LIST [A][A][Q]? CLEAR REM UFN LET wV OVER [A] LIST pTAN )B[H]Gn COPY GO SUB ©@FN + RETURN iQ[C]O RUN LINE /_+@POINT POKE DIM PRINT CONTINUE EXP PVAL a DEF FN RANDOMIZE ▗[P][U] OPEN # CLEAR SCREEN$ Q@q▖i CLOSE # LINE OUT FLASH LEN TO PEEK RETURN RETURN ~| DRAW CODE ▘/*tP[N][I] LPRINT PSCREEN$ USR LIST SCREEN$ COPY u COPY REM COPY INPUT © LINE INVERSE &] COPY [F]©SCREEN$ U: LINE > CLS MERGE SCREEN$ U FOR V$D?s▝@ COPY @ SAVE j RANDOMIZE ▗© COPY _CODE IN <>▝SCREEN$ R▜v FOR vCHR$ RNDUSR ▖c COPY REM POKE POINT CLOSE # IF m[A]D[A]HASN H[A] SAVE RUN LOAD CIRCLE FLASH FLASH PAPER [I]Z[J][ CIRCLE o RUN SAVE ▘:[B][T] READ [R](BB3?l[K][E]SCREEN$ T COPY GO SUB PAPER COPY I[F]P▘ U/ MERGE ▖©=USR ▞| RANDOMIZE PAUSE MOVE h MERGE ▗H▞©USR ©USR / RETURN ▝ REM J= FLASH RETURN LET LINE ▝ COPY PI▛ CLEAR POINT [Q] ERASE CONTINUE ERASE p[Q]BE OUT INVERSE COPY SCREEN$ INVERSE "[A]A[U]7$@S[B] COPY ? OUT LOAD 6ACS STEP quSIN 6 LOAD FLASH ?r@=? LPRINT @[Q] FORMAT USR ▝<@BIN [H]hh MERGE U LIST SCREEN$ DRAW j _ PRINT SCREEN$ @ POKE *TSCREEN$ LIST USR ©USR ©USR _<= LOAD f REM e▝ MOVE OR ?©[E] CIRCLE [E]@[A]F TO PLOT ▝i IF TAN RANDOMIZE [U]▘▗>▖.#[P]{ OUT FIN COPY OUT {[P]CCHR$ DRAW [A]| DRAW | CONTINUE | CONTINUE |((tLN | SAVE |f[I]PBIN 4VAL B©[U]I ▘ POKE SAVE 'USR <VAL$ 'GIUSR ▘11>=▝!>=▗USR LIST DRAW _!]▝ DRAW WUSR ▖> MERGE SCREEN$ MERGE FN r▖* MERGE COPY PLOT POINT R PEEK qNOT 0USR SAVE ; FLASH m GO SUB ASN PRINT MOVE MOVE LET ASN DIM m FLASH ;"@??>?>>.SGN ▗*: OR ? 2L[D]ASCREEN$ U_ RETURN CONTINUE COPY REM IN [ RETURN SAVE p[Q]^ DIM ▟p[A] FORMAT pVAL /CODE W[K]~ RETURN >=▝ THEN ▜[Q] DRAW IN RANDOMIZE VAL$ RANDOMIZE AND v▝ AND ©IN [USCREEN$ CLEAR H"H LPRINT ▖![T]3F" MERGE CONTINUE COPY h COPY INVERSE INVERSE USR PEEK ▞▙[A]SCREEN$ AT CLEAR CLEAR V~ OUT ▙USR LIST 0PPIFN D SAVE [A]2SL GO SUB ▛0 FORMAT ▞ COPY © CLS CAT ▝IN STEP LPRINT CLEAR LET ▜(1[E]@ POKE USR SCREEN$ CLOSE # SAVE RETURN PIH$[A]f▖R▖[A] qUSR ▞ REM CLEAR FN LIST H"▖USR ▗ CLEAR RETURN <=STR$ FLASH ▖ THEN NOT OPEN # THEN <= RETURN CLEAR USR DEF FN A RUN ▜SCREEN$ v[Q]TQVAL$ CLS TAB ©VSTR$ FLASH ▘* CLEAR USR ▚$CHR$ '%F] IF POKE Z$ LIST COPY pCHR$ t DEF FN 'y DEF FN [C]▖B[A]POINT T▞FN ▗! RUN +[D]▝ REM STOP CLEAR REM ASN @%▞$ LPRINT LIST GO TO PLOT CLS CLS STR$ {▙z`*QATTR OPEN #v GO TO LIST LPRINT @CHR$ MOVE FNOT ▝& OUT ERASE G& RANDOMIZE ▝ FLASH BCHR$ AND <=pp <>p2P? TO `R▗ STEP ▝▗CHR$ A▗JJJ DEF FN O▘JV0<>N>=O`▝!%NO PLOT ▝@P!EA'[E]a?p▝DF▝B8STR$ D<>Dp?▝@Y▚JJJL0Qv!COS BIN PQ[F]1SQR "▘AAp[S]aLN `ASN AMOGp Pb`O▝OSTR$ Mp"<>▗FGO !▝GrBRK@=▘AIP"e2G/@[▝M[P]p"6@<0=▚AAGGEE"▗CC0▘FpLEN SGN EE@▘E e&~Jj▘? ▘POINT ▝F CLOSE #a0 DRAW NEXT INK RESTORE ![G]tATTR [E] MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE ![U]©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 LIST * 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 =#<> CLS ▘I▝ COPY DRAW x@ FOR 2QUSR y[U][E]yyzz@ LPRINT STR$ z NEW ▚ BORDER DATA *(zUSR RESTORE ▙QQ[P][U] POKE 9EAAE9{@ DATA $▜$H@ { IF STOP ▘▘ IF {, `[Q]USR >=|+r IF ▛|@@CHR$ ▝ OVER |'STR$ @▘@J|USR LET }k}{}[E]R{}{~~)RND~~©H©▘USR @ CLEAR COPY U.NOT CLEAR @ PLOT ▝ SAVE j NEW DRAW NEXT fSCREEN$ GO TO jINKEY$ INVERSE FORMAT INKEY$f OR [Q]nUSR '{@▝USR USR CLEAR B CLEAR F CLEAR A INVERSE C OVER D FLASH Ex TJ INK `USCREEN$ [Q] LPRINT JEy `URND[Q] REM G-.POINT 6l READ ^ RETURN [C][C] STOP RUSR `USR |sEXP 0 CLOSE #] LPRINT (#b DEF FN VERIFY NEW d%f SAVE 8 RETURN POINT ; RETURN LPRINT 3S NEW _n) LPRINT RETURN /kf TO [M]'y LOAD /_sPOINT w RETURN ABS p PAPER >8$A NEW DRAW DRAW NEW DRAW BEEP [N] IF i DEF FN =[H] STEP OPEN #ATN LPRINT [J][P] VERIFY LPEEK GO TO GO TO vV SAVE GO TO OCODE G▘ AND INPUT RETURN VERIFY AND USR NEW PLOT RETURN INPUT NEW [O]{[G]?oSGN CO REM DATA IF © OVER [E]▜< SAVE oABS jWS+2o INPUT | AND AND VERIFY H BEEP m|/(© RETURN WHACS RETURN ©[A] FLASH COPY DRAW COPY VAL ' OUT ' RANDOMIZE RANDOMIZE CLEAR INPUT B'[P][P]' DRAW IF INVERSE [E]r SAVE RETURN ?IN )SQR <= SAVE SAVE W CLS CLS +?'? CLS [M]#n INPUT #' LINE LPRINT LET LET O BORDER 'o CLS COPY f'SCREEN$ ©x[B][J] OPEN #J RUN READ eACS [R] CLS T_ ERASE O'{▘ LOAD LPRINT [Q]W[Q] FLASH RETURN ©*VAL$ [F]SIN FLASH RETURN B VERIFY POINT RETURN 5 BORDER '▝[H]ATN THEN SCREEN$ OyoOFN gSQR ▚?* CAT O RUN vOROFN O PRINT 7 CLS RETURN COPY r REM CIRCLE *LEXP [E][F] CLOSE #B3, COPY READ POINT ' RESTORE [M]'@> DRAW g LIST NSQR VAL FN ▗5UU[F][H]▝7 BRIGHT ARVAL g CONTINUE 'POINT ? BEEP COS [H]UATN ▜OTYzOEXP INKEY$v▜BJ CAT RPOINT K NEXT NEXT READ NOT '{O CLS COPY BEEP [M]AS CLS GO TO ; COPY vg COPY k COPY 6 CLS COPY f%7G COPY VERIFY 2 LPRINT COPY RANDOMIZE RANDOMIZE SAVE DEF FN STR$ FN PAUSE 7[Q] BORDER GO TO ' COPY GO SUB VAL COPY OFN x READ CLOSE #3 COPY INT 2 LLIST LET LIST OPOU FORMAT STR$ COPY COPY :x BEEP © BEEP COPY RUN COPY 3 LIST ' COPY ▚ GO SUB W COPY f` COPY NINT _ FORMAT ▝ COPY LOAD P PRINT r COPY & RETURN 'VAL FORMAT ACS CAT COPY g] COPY FN O*v OUT O COPY O COPY ' COPY ©r LET AND OPEN #34IN SIN [A] CLS RANDOMIZE RANDOMIZE LET STR$ { GO TO ~'[P][P]7 DATA e COPY RETURN ? STEP SAVE CLS - LIST >=ATTR LET LET LPRINT ASN t BORDER ACS ' CLS [M] CLS [L]'/{O COPY [M]▟OO OVER SO CLS LEN )=USR LPRINT LET :▚S INPUT ~[C] BEEP ?FN SQR 1@ CAT CAT LOAD @ IF o LPRINT SAVE LN STR$ T( LPRINT READ STR$ ^ BORDER BORDER 'w OVER CLEAR A IF ' PRINT USR TVAL <=IW RUN LPRINT LIST SAVE tu{ RUN CLEAR { MOVE _STR$ }[U] CLEAR M LIST }(gCHR$ '[P]ATN LEN RETURN PRINT LET P PAPER ▞ BEEP &UY[U][H][D] OPEN #SCREEN$ NEXT '[R] RETURN n'TPEEK FORMAT nO GO SUB / TO 'O LLIST INVERSE COPY RETURN [N]4CODE BORDER RESTORE [Q]VAL$ *|9[J] OPEN #R IF POKE CHR$ ''VAL$ BRIGHT N'[P]' OR _U CLEAR O BEEP RUN ▜©_nVAL [R]CODE LET z/ CIRCLE 8tiE BRIGHT P" NEXT P LOAD FORMAT # INPUT SAVE LIST USR wBIN Oo/' LET 'Ohw COPY ?FN LIST ▙ FORMAT FOR isY SAVE CIRCLE ATN [D] BEEP RND CIRCLE P LLIST C([Q]Rv'[P][S]#[T] BORDER BORDER <=▜OK SAVE STOP 7 CIRCLE PEEK ▜VAL SQR COPY RETURN LLIST LOAD COPY RETURN COPY .[I][R]▚▟ VERIFY COPY 3l'" COPY CONTINUE VAL$ P; DRAW VAL$ COPY w SAVE RETURN COPY RETURN [I]a COPY [D].&v PLOT A COPY IN SAVE COPY /,G COPY 'IN a COPY ▘CODE COPY OUT ,NOT COPY [P] OVER COPY O FLASH STR$ COPY VAL$ LET [E]PEEK 3?SIN LET VAL CLS STOP / CAT CAT ' BEEP SAVE IN LOAD wCOS O'>=e[I]{ OPEN #SIN 7 BEEP '<= OUT BEEP COPY !<[G]NOT [C]NOT D[D] NEXT ~2x[C]"SQR [C]# STEP ASN [C]<2z[C] GO SUB Sp[C]`Cr[C] MERGE t[C]![E] STEP INT [C] FOR "v▝,[Q]{▘[C][C],p GO SUB VAL LLIST !CODE STEP CODE [C]=2▛[C]2[F]E[P][C]>2yO"▞@))[D][N]K[G] CLS <>w LET LET PAUSE ^ INPUT ;r NEXT STR$ NEXT $ FOR LOAD [A]FN LET N LIST SGN ▚0LEN LIST ERASE 0TPEEK >=NOT b^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN w▖CHR$ FLASH [C]B PLOT INVERSE ^INKEY$[R] PRINT NEW NEW W LET NEW o INVERSE THEN n>= THEN STOP <>:[Q]([C]O! READ PEEK PAPER [D]CODE O([Q] GO SUB i&) GO SUB [ LET EN#~2D[F]y* GO SUB V GO SUB l BRIGHT V CLS FOR }[Q]©[C]<> INVERSE 5 LIST [ COPY INVERSE wSCREEN$ SCREEN$ K RESTORE POKE PCHR$ ▙[E]:x RUN INVERSE !([Q]▗&9[D] PAUSE o[D]*6~ < TO SAVE [C] STEP [I][D]jS0▙▘SCREEN$ [J]J[F]n[I]=*VP[K]NOT ~ RETURN @` PAPER AND [D] RETURN p PAPER OPEN # PAPER POKE [D][R]P LINE FOR ▝ LINE MOVE ▘ LINE LET M@ PAPER [E] VERIFY [R]{[Q] COPY #NOT 3 INVERSE 6P #<> VERIFY ` RESTORE cT*vLSGN INVERSE u INVERSE tP STEP LLIST $ COPY <>SCODE VERIFY p ! r(ASN RETURN P CIRCLE $ VERIFY 2VAL$ ~#U2AT [I] RESTORE CODE SIN ) LLIST n~<>===u PRINT ^O< NEW @▝ LET USR INVERSE ^kV!`INT ~= IF GO TO [D]HL<(<>yATN USR |2PI[Q]7; RETURN ATN >= RETURN LINE ▜[E]dNOT ▛[E]CODE [F]u THEN NEW 9[Q]5[E]y2<[F] INVERSE *▜USR [C]yVAL 2FN Q8 LINE INT [E] STEP i2[F]"[R][C]!USR POINT [C]w STEP q@SQR TAB Q2 LOAD De9[B]9:6LEN VAL RESTORE DEF FN ;0#4[T] LPRINT N4SCREEN$ 4rvs4([F]4 GO TO [L]4 THEN THEN VAL LEN Tf8'8RND8 CIRCLE ATTR 8NOT [G]} PRINT MERGE INVERSE n INVERSE f CONTINUE v▚A AND ▜_!_[F][H] FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P] TO [G]▙)wpkd^YTOKGB?; PAUSE 52/,*'%[Q]#EXP DEF FN <>(VAL$ [C]CODE ACS > VERIFY P+yIN GO SUB ATTR = PAUSE /[G]<>[G]IN dSONG BY ST COMPILE[L]m( =[Q][B]R;5[P] BEEP } RANDOMIZE BORDER ▚© RETURN [I]@[R]$/%/%^&▟'SGN ' FOR ggIgxgPIg VERIFY #g"g4![`c.s]IN h BEEP u`{(R/[Q]>[Q]MkPOINT [E]x▚[L]S>@[Q]SCREEN$ LOAD eIN G CIRCLE ▗ASN RUN nSTR$ RESTORE OPEN #H▝7%LEN USR ,7Q?gSCREEN$ [U]Y3PI[G][Q]PIT MOVE CLOSE #? BEEP IF U!%-+U;%Q BRIGHT E6SIN ERASE QACS F8 BRIGHT POINT STR$ KV SAVE jM?"PEEK A[ MOVE ▛ CLEAR [H] CLS POINT TO RANDOMIZE Q[E]STR$ RUN PLOT PRINT POKE NEXT PAUSE OR H LET LOAD [E]ASN GO SUB GO TO /H FOR REM M@% CLS RETURN ( STEP *%RNDbIw COPY [R]g$je$aR%aSQR aSCREEN$ ▗4arB!a!!4USR ▛ COPY FN FN h2[U]2-0[T].[R]0[U]-4INKEY$2[R]25[U]9 POKE 7 COPY VAL k~2FN +-(▝79 COPY INKEY$+[S]J[Q]4!9m2h75[K]POINT 74hINKEY$@<[R]@m>EU DATA 7U575YI[U]d2AT f2 COPY [U]hr#[K]s2t2p6I.'7[U]- COPY NEXT STEP [N]!@]w# DRAW STEP !▚M@Y STEP 0[N]y RETURN USR POKE STEP STR$ ;▘Hx^# STEP CLOSE #[Q] RUN MERGE OUT r STEP $[Q][Q]p:[Q]zPEEK ($CODE 2 FORMAT [P] AND 2 POKE [N]2©[M]! INVERSE "Z[Q]!9[N]"[Q]o[M]":ud[Q] STEP S MOVE [P] STEP ,1@L| GO SUB G<wSGN # CLS l6NOT ! RANDOMIZE [P]"▘▝ GO SUB ^ STEP G[Q]>(2@![C]>PI( CLS STEP /[N]@[A]KCODE FLASH RETURN / NEW (((Z,"v[M]l COPY [M]<2:GCOS POINT "s[Q] PAPER PzCOS INVERSE CIRCLE :uATTR 2k!0▝CODE <>= CLS vv INVERSE ) CLEAR ABS ▖~< RETURN (▖!g= IF STOP [M]▖ CLEAR CLEAR nf#>[E] CIRCLE =▙ INVERSE # CLEAR LLIST CAT STR$ :X[N]=( IF NEXT STEP ASN [Q][P]rj[M] CLS NOT i[M]: GO SUB I[J] IF [J][B] SAVE A;[Q]_:/ GO SUB V ACS CODE OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN <>~# IF <>> INPUT CAT [Q]VAL [N]USR > OUT bc BORDER LLIST NOT LIST O>=>[G]POINT e2k&[P]A2a[N] rMUrT*ABS ?zQ[K]"ACS ( GO SUB _[Q]CODE o OR ~# RETURN USR 0 IF RESTORE o&©}ATTR .~tM,PI PAUSE [N]USR RND)2 LINE LLIST STR$ OPEN #<>>©©IN uEP GO SUB VAL PAPER [O]v][O]!ATN [O]"M[O]>LN 2D[O]@# DEF FN INVERSE !2 OR x RETURN TAN STOP PEEK RETURN RETURN ($@"g INVERSE nINKEY$ RETURN COPY )T INVERSE 6SIN 2[O] RETURN UU LLIST VAL FORMAT NOT ASN [P]B!@2~ AND wNOT TAB 9u INVERSE tT~PI( BORDER O/Kgy STEP > CLEAR ~(V CLEAR # AND _ GO SUB [Q] POKE 2COS "[Q][O]= [U] INVERSE #STR$ CHR$ LIST [N]<>2( NEW ▗o NEW SAVE THEN ?PG▜<[B]PI >2`▟▗ NEXT [A]o/<>/<'IN $=%. y*%[A]>=-%<>PK&-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 [F] COPY S[P]M[P]G[P]A[P];[P]5[P]/[P])[P]#[P][P][P][P][P][P] COPY VAL [O]! LET [P] GO SUB S@[Q]AT NEW 2STR$ [P]G"ACS [P][H] ERASE [P]USR > INPUT 2 PAPER [P]2 LOAD [N]2 GO SUB INPUT 2 BORDER @ GO TO [N]<>/[N] DEF FN [N] OPEN #[N] INVERSE RESTORE [F] CLEAR RESTORE RESTORE MERGE OR PRINT INK STEP # STEP [C] STEP R[N] LET STR$ MOVE ▘ DRAW / CLEAR LLIST INVERSE LLIST CLS N> CLEAR © GO SUB y*jUSR USR COPY ?j COPY [Q](B,*CODE ![H]P! ▝Cn> STEP r@ STEP u[Q]~2uATTR # THEN ~(J▖[Q] READ [Q] FLASH [M][S]E INVERSE !FG n LLIST LLIST NOT ▝[M] OR h▙ RESTORE n▗ OUT >▘▗g PLOT BEEP INVERSE # PLOT LLIST #@▟ INVERSE # BRIGHT INK LLIST T] INVERSE b INVERSE kR( INVERSE $]o[Q]! THEN ; SAVE = INPUT INK STR$ PI<>z NEW USR { AND _ CIRCLE z VERIFY W<> ANOTHER DA?Y -INTRO? @v23CODEB(UST4S+MKHG SE PAUSE ND YOU<[Q][A]- GAUlLETrs 3FO128K ONLY!pPOINT CFPIMSOFET.CREATI5S/J[K].GOLD/[Q]NSCREEN$ [K]j LLIST [N]$ARIxMESIN R OVER TAB P,`COS STOP THI06 OR )LAE) ERASE 8C[M]WIlV[S][R]7i LINE E*BLXAL'+ OU FOR TEZ INVERSE *V'ARt,P-R-E=-S-T-I-G BORDER SQR ;[H]▛TAB [I] SAVE sHAFF:c[A] DRAW STEP IM PAPER (xD.Kt/LN EXP *RIGL[N] INVERSE &a%, FIXFN LEVELxE OVER P9MAXP(KW*OTOMU[R]L▖COLCHR$ ERASE |//R[T][F][J]7`B[R].NGFX ERASE DRAW ;ASABS @6.DOC/NEP^ON MOVE 40 DIM TL▝)KRRQa UKRHQ+7(0572) DATA 688219^©IBCODE Rp95)1 SAVE 67$ CLOSE #+B GO TO 1CODE ERASE ;I_[L]▘M:A949(54▝)PRIV DATA [Q]CMEISw920(PVT)BOSSES)OMIKSEUUCOS FN ASN SCREEN$ h0CODE RUN VAL$ ORNDUSR W AND vW6HOODLUMxSCREEN$ A[T]vGHTSCREEN$ T_?TSCREEN$ SCREEN$ +kRYD[D]m4(DNEX&[A]L<<KER15[F]YAFN e STOP ▝UAXJ SAVE 9UTr DRAW ~ACS ▗AEN8 AND INKEY$QUN[J]'95 PRINT GY CONTINUE N CONTINUE INT PECCY:u CONTINUE V CAT B PRINT XM[C]fAZ&EXP Vi▝U LLIST [U]B STEP GIAYKCHR$ M6/OINKEY$_PU/SH TV-MT INPUT Y %ATN PXT9ME+W%M;N GO TO EQ OPEN #JA:ABTkTS(+3)ACS @FN .u DIM I[J]*FVSCREEN$ MOVE 1INKEY$ GO SUB B▗EPI(FULL!SIN (+F[Q] LINE W[E]J>* SAVE [T][O] DEF FN & STEP EIFACS [L]0 FOR '[C]VAL a&VZAKASN i>=AS INVERSE lPPPOINT PAPER MOVE FLASH SQR SG UHQ`STR$ MOVE ABS = == LOAD f RUN OVER 1Y GO TO ABS {*{/;▝. LLIST COS NEW LLIST FI^ LLIST [R]ASN vgU@!PEEK LN NOT LN BYE CONTINUE `o!"?/H!P.S[P]FU|x FORMAT [R] FOR 0RNDCHR$ O LINE BL,!y COPY &▘ STOP GMEG RAIN,'(+0)ACS [F]▞D DEF FN SAVE CHX!OED"[xNOT N4rzENU= TO SoT MERGE 'cu9[R]JOHN.'(QBECLUpS[G]YEx IF v[L][G] DRAW $q*RH` +BPSbHIF DIM Uq3@u:A+n TTHz STEP ▝>YMBOLEJASN IEXP RU IF Y COPY SQR COPY NEXT INK RESTORE !TATN COPY NEW CONTINUE 6 MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE ![P]©T© 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 f GO SUB LN LLIST INK CLS <>>= PRINT OR MERGE RESTORE INVERSE RESTORE INK CLEAR RESTORE ( STEP SCREEN$ STEP W▜*ATTR #" CLEAR LEN LLIST LLIST MOVE STR$ LET INK INVERSE CLS <>P4 INVERSE ~#PIP IF IN (L▚ PAUSE !LEN RESTORE ! CAT ▜ STEP ▝~#fo DIM MERGE CIRCLE DIM INVERSE READ <> INVERSE F&N STEP LET "BIN RNDSCREEN$ ▚/N[C]F GO SUB C AND 1o CIRCLE %<> FORMAT $[S]▝_ CIRCLE <> FORMAT P@▝▝O CIRCLE <> FORMAT (P<>!uU/PI GO SUB R( RETURN }[E]8=2$▝o PAPER ▝u,u MERGE 0ABS GO SUB VAL PI STEP ▚ PAUSE ( MOVE z NEW AND XW OR `{ AND _STR$ NEXT <>[A] RUN [O] SAVE AT RANDOMIZE INT IF >= CLS VERIFY DRAW DATA CLEAR PAUSE RETURN [G]_[F] THEN [T]w,[Q]7 NEW _ LPRINT :▝<[E]2![G]~POINT ^ AND @ [Q]S GO SUB sTAB [U]JEH[Q]j INVERSE !rX CLEAR T CLEAR RANDOMIZE LET MOVE INVERSE RANDOMIZE MERGE PRINT CLEAR } AND CLEAR oU INVERSE >=[Q]CHR$ BRIGHT ▝ GO SUB {;<>>R/ OPEN # RETURN #"CODE CHR$ AT ▘>>▘ THEN i( SAVE x LIST * STEP ▝= DATA <> PLOT afINKEY$w$[Q] RANDOMIZE CLEAR <>!@ RESTORE STEP ^▘ LLIST -}SCREEN$ RETURN SAVE PRINT <>A LINE 83TAB RESTORE STOP B,| AND g VERIFY g[P] o0 RESTORE $| NEW OVER LLIST [A]' THEN -ZAT &XUSR ~ NEW Gw/ OUT COPY CLS OUT CLEAR @© INPUT CLS INVERSE IN j OUT uSQR USQR j(( DEF FN 5]ESCREEN$ bH NEW 2SQR [S]UBIN ATTR [F]Q*<>A[A]8!XvP(58(~[D]w#| RETURN [ CONTINUE THEN 8 INVERSE GO SUB [Q]"^([Q]ATTR "z RANDOMIZE v= STEP U IF LOAD T PAPER TAB LN R[L]Rv OR TO ! LPRINT POKE STR$ y RETURN * FOR ( FOR `i OR ~pz CIRCLE RUN YPgkPOINT MERGE STEP GO TO ▘N@@u GO SUB VAL a RESTORE @RNDX COPY INT TAN n ERASE n INVERSE ! RETURN STR$ CLEAR RETURN RETURN >= RETURN COPY Hv LET PRINT NEW G LET NEW LIST UO[F] OR >▝O>GLEN STR$ <>[B][A] PAUSE ABS LEN COPY h! COPY "10 COPY #32A@ COPY %$4CBRQP COPY &5EDTSba` COPY '6FUdcrqp COPY (7GVets▘▝ COPY )(98H VERIFY gfvu▗[D][C][B][A] COPY *:IYhw▚[F][E][T][S][R][Q] COPY +;JZiyx▖▜[H][G]RND[U]COS SIN LEN VAL COPY K[jz▞[I]PIINKEY$ASN TAN NOT CHR$ STR$ USR COPY k{[J]FN ATN ACS AND OR BIN OPEN # ERASE MOVE FORMAT COPY ▛[L][K]SCREEN$ POINT EXP LN >=<= VERIFY MERGE CLOSE # READ STOP LLIST LPRINT COPY ATTR INT <> CIRCLE BEEP NEW RESTORE DATA NEXT PAUSE LET LIST COPY SQR THEN LINE PAPER INK CONTINUE BORDER PLOT PRINT POKE COPY FLASH REM DIM RANDOMIZE SAVE RUN COPY FOR IF COPY CLS RETURN STEP 4 INVERSE !,H OR INVERSE n INVERSE f MERGE FORMAT ▗[M]:▗ NEXT MERGE N)▗(M STEP STR$ BRIGHT ERASE THEN h! [H]: LOAD CLEAR ^#[K]Vjgs#r#>@ OVER LLIST PRINT INPUT y VERIFY CIRCLE ▜ NEW ▗PI! OUT ▜8,[R]< INVERSE w#<>SIN FLASH @▘ MERGE @ BEEP INK USR FLASH OVER @ LPRINT [L] STOP USR DATA COPY [U] LOAD COS PEEK /[O][P]@[O]S[P][O][P]USR [O][P]x DRAW LPRINT ▝ox NEW PLOT @g<>▗qUSR `}?[P] NEW SAVE ▗>=#USR {_▘WT<> VERIFY %0 AND %3g4)oAT AND [G]g}o GO SUB [Q]<>It LIST L[L]<> GO SUB [BIN ▚ MERGE LLIST J2<2~,F, NEXT x MOVE MERGE ~gk0 AND ▚s,sr,r MOVE FOR U GO SUB SAX6CHR$ k5 SAVE 5lUV310CHR$ @▖ STEP ERASE ▚STR$ USR RUN <> STEP LPRINT ▚! PAPER ▚(6CODE <>w<> RETURN RETURN COPY GO SUB x/ NEW BEEP _ THEN 8 LET THEN 0 IF !▜{▚PI<>B.$#"!▝▘58%%39*7%5&(*>2'41:![D] PRINT > STEP /[D] STEP RETURN USR LET NOT Y LET THEN STR$ STEP ▟ACS SQR !!#2▜> AND [O]▜STR$ #xLEN LET ABS CLEAR © GO SUB y~ FORMAT *<>:"[D]PIUSR STEP CODE [A]▝FG9&79%9-[E]▘[E]*dNOT >=▚ FLASH [K]!POINT $ FOR f$45#, INK #> STEP g▜@#▘EG1&> DEF FN P3 STEP ▖ STEP #[S][P]B▞ DATA 2[N]2/▞ INVERSE ![N] STEP CIRCLE ▖ STEP TU[N]=(;: LIST OR INVERSE gC<4e LINE C[N]@*@NOT 4@ AND NEW [J][A-448FN B[U]>4:C&43▝7*88g>=%4;847▝x[C]*1*(9%▖<>ZAgo▜! NEXT TAN Ff/[C]<>D&T-0a:![E]>vv OR USR DIM ERASE ▗STR$ NEXT !NOT ▝" CLS AC STEP ©▝v*Z VERIFY ▝>== TO PEEK ! RANDOMIZE >DPEEK ( BORDER Cr, LPRINT PAUSE (BIN RETURN LOAD FN BORDER <> PRINT < READ RETURN COPY ( RANDOMIZE 2 NEXT PRINT STEP ▞ LET !TAB [R]t▞▜1# GO SUB S DEF FN )[K] CLOSE #▝▟@FSSCREEN$ m LET <>rX0{ VERIFY _z AND zgk>[J]d FOR @= INPUT <>E![K][J]X LIST {YEYZ[K]rZFQKZiY▛X[B]> STEP yj00CODE DATA KE)SGN ( SAVE RETURN VERIFY NOT LINE A!j6 COPY ( LLIST ![N] THEN ~USR *; MOVE J!="<>#~INT USR 2 STEP ▘ [O]mE-* @&9▝)*h LIST (H/vT4USR :i AND RETURN CODE 2 REM !k~@[J] LIST s FORMAT ▛[F]▛`V▘F45>7.,[Q]-Z$$%*3,%3(u11%[F]8*8*7;* )▝▘E2%[E]▘ DRAW .%&2%CAU75[N]<.3<>/Gz0[G][Q];2[%4*+.3N497418▝1DF PAUSE CONTINUE ▝▞-▘ DRAW 8O DATA R7▝.▟▝D5,t2 DIM VMSO&SCREEN$ JLN oU[U][Q]PI7[A]8* RETURN INT .2kFN m**9▝A[Q]*&(08( DIM 4-ATTR 4t:8.(._hV*4++%QRNDUSR 1 TO VERIFY [A]^c[R])>p 9<&ZUD INK @#JSCREEN$ (y+4LN @B-)-[N] INPUT 2 FLASH $!> RESTORE z THEN RETURN 0(<>=2jNOT OUT ▞ STEP OPEN #!; PAPER 0X!G(F" OR " MERGE GO SUB [Q]▟+:!w GO SUB VAL ![N]R STEP POINT ▙2![N][E]NOT STEP ▞ RESTORE MERGE 2COS > COPY c ERASE T▘BC LPRINT [R]ABS LIST [S]CHR$ G▘rP▝%*>'4 PAPER )▘▝2589Ad-aF+2h<*+9[T]/` ERASE [B] VAL [ INPUT LINE "▙@)=(A}= LINE STOP ▟ DIM ! INK THEN N STOP THEN DEF FN ![A]A PAUSE ! MOVE MOVE >=;COS [L]>s%8>=@SGN */7V RND2SCREEN$ THEN VERIFY 7 MERGE 7$Rq7,;;[H] LINE USR >^CHR$ ▟ THEN OVER ? GO SUB e[H]?5(?f? NEW IN [A]?▟!FV8( SAVE ?[B] INVERSE DIM D4 RANDOMIZE P%▝▘GEL5▝4<3E[Q]f▝▝.7*k MOVE LLIST 6 RETURN #6 COPY [> GO SUB a▛[L]2H[N] CLS OR 1 GO SUB LEN STR$ ( LOAD LLIST r+p+ MOVE e1 GO SUB ▙ SAVE [R]= DEF FN AND "~DJLN #@% RESTORE MERGE DEF FN RETURN CIRCLE (P RETURN % FORMAT a( RETURN $8(<> CONTINUE GO SUB S PRINT ( NEW THEN VERIFY MERGE OVER J GO SUB PI PAUSE L▚▚q▜!/▝)tPEEK J/ INVERSE BEEP TAB FOR RESTORE Q RETURN COPY RUN v RUN RUN RUN !"#$ LOAD LOAD LOAD LOAD [K]' LOAD ZSCREEN$ ^wB© PLOT LPRINT CHR$ [P]POINT L NEXT * POKE /"="M[D][A]1>[A] GO SUB G GO SUB ^ CLS STEP GCHR$ ▜ RETURN STEP ▞ STEP PAUSE TO▘ STEP [C]>=& NEXT 1[F]>-▞ INVERSE !USR STEP "[D] REM INVERSE U@:[N]RND STEP <=[C]:>=[U]ACS STEP `) DEF FN +e[A]" P STEP 9▝";PI[L]^ $5 BEEP 0 H COPY GO SUB VAL NOT STOP [D] MERGE AT $ GO TO LOAD TqFl4▛q[J] FORMAT Q OVER U6+@ MOVE <>LSCREEN$ ( MOVE STOP TQ MOVE STOP S MOVE CODE FLASH RETURN !( RANDOMIZE SCREEN$ a RANDOMIZE <>CODE Py2![D] NEXT INVERSE "[R]J[D] CLEAR RESTORE CODE PLOT * OR { RETURN 2_W[D]2H[D] GO SUB V CLEAR !:/B▝▝=USR S INVERSE LLIST NEXT >PIBIN [S][Q]nTAB }[D]STR$ LET 4 CLEAR LLIST Q/ DEF FN `$[ MERGE AND H▛PILN LN ^ INVERSE V INVERSE N INVERSE F GO SUB LN bk#PJR~ THEN LIST "© $ LLIST GO SUB o AND [Q]O#{[G]#"IN [D] BEEP z[I]DDagxATN `i MERGE q MOVE CIRCLE NEW ©>=# THEN w O▘ LINE NEW ?-G~#N@ DRAW ySGN NEXT *▞"[O]▝> STEP BIN [B]NOT MAX IWAMOTO'95 PRINT DRAW ▟ RANDOMIZE R[©[RVAL$ KO©OG!CHR$ ? PLOT `|@<▜L▞AB' DRAW DRAW 0|< TO [I]"| LIST [J][I]3s33? AND ! CONTINUE @0` LIST #LN D▗[M]L▙ TO ▗ TO FORMAT `C08▗ SAVE LPRINT ▝© LIST DRAW ▙ RETURN rSIN 2$dG SAVE /[P] LIST ?▖ TO [A] TO SGN TO DRAW OR ? STOP [B][I] PAUSE = LIST } LPRINT j[M]IN LIST 8&FF$ AND @ AND SAVE <= AND fhh▙IN 8? PAPER [J]3s03x[M]ABS &? NEW ! TO @ CIRCLE ▝?>=[A]VAL VAL ! POKE @USR >x< CAT >= CIRCLE [I][A]PVAL O RETURN `▜y0[C]x[M]3r2 @ LPRINT 2p$8?#AT @Bkn[D]©9?CHR$ 8 DRAW `[Q]8Lk NOT o DRAW o GO TO sLaL @© SAVE DRAW 4R4t(44802@|LUSR F RANDOMIZE ▚BIN ▚ CONTINUE ▙`p[M]8LN LIST [Q]@5 LIST 6</v PRINT GO TO t;7 TO w SAVE POKE 04<?▘?SGN INPUT AND zp[C]LN ▝ pS LPRINT PAUSE p2ASN OUT > OUT @FN ! FORMAT @ LPRINT `USR LN ([P] LIST CPOINT AND " "©B[S]NOT J DRAW x©% DRAW LIST #@CNOT c@b@6@8D[P]© PAPER LL#[E]CNOT cLbL4L8L RETURN STOP p SAVE [M]& RETURN 90`USR ? LLIST @a/= GO TO o DRAW G+L BRIGHT LPRINT @USR LPRINT [A]p LPRINT :USR ▜?`48© LPRINT USR ASN LPRINT G0[O]<©[I]▜ LIST `USR LPRINT ▟aUSR 9CHR$ 3 DRAW @xRNDSCREEN$ ?▛pCOS *Gk`T88VAL$ J©q[R][Q]USR M©@[L]8▙$Mx30n©U SAVE COPY RETURN LIST f)M▜]$▙ LIST UU▝FN *_ USR LPRINT ``` `@yR` COPY 5 DRAW <hp_ DRAW I CONTINUE @Bj▜RUSR [I] PRINT 8 LOAD @?|0 LPRINT OUT FN ▘0 LIST px,X BORDER [A]IUSR SAVE LPRINT LIST x 0? LPRINT ? DRAW USR j& DLEN EXP SCREEN$ COPY MERGE [K][A]IN `0 PAPER [R]▟8pp?`4_ CAT TO ) LIST 0_<QATN |[M]▝_8<`6!jCHR$ POKE [M](Ll BRIGHT TO T" MERGE LPRINT &[R]USR >= BRIGHT GO TO TO GO TO UCODE TAB M STOP t8%[T]L GO TO - TO BRIGHT >=<>>= FORMAT 7@|[U]R62 REM xpF▝`z OVER EXP @, DEF FN /,N▚ DRAW _ TO HATTR QD>=;, DRAW o STEP [M]b_C ERASE />= CIRCLE 2 DATA B[J]}▞|2/▗ AND INPUT RETURN ACS [G]▚P INK VERIFY w NEW AND o LINE DEF FN [P] GO TO |LVAL$ [P] PAPER BRIGHT >=[U]ABS @[Q]`L[H]t LOAD USR @ BIN >= OVER |.&FF POKE ▖[D]cCODE p<<VAL$ :<>!/&f NEW fn6[E]qv<▘6[U][I][G][Q] RETURN INPUT AND ▗SCREEN$ CHR$ BIN dh8 LLIST LINE >=PI TO CIRCLE LIST BORDER HO[O]fB[A]▖/`` TO rhSTR$ RND©? VERIFY Z PAPER SCREEN$ ASN MERGE 8TAN [G] THEN COPY SQR STOP '9 FOR SCREEN$ POINT [F]UEXP [Q][F]# LIST BIN LIST RND[S] STOP TO 03GI[B] RANDOMIZE BB[P][R]< LET <▞[C][M] NEXT LPRINT CAT 9E[T][J]H[J]<>[D]9[U]#BIN %[M] OR [U]|' DATA X>)[B] INPUT PG( STOP w/[H] GO TO CCHR$ 7 DIM FN /xPE[S]Qu$OPEU'XQ'▞[E]7/ POKE 7%[T]UUG?GO STEP <>W OR [S]g/s/w/' BEEP ▜O[H]ERND+'PIPOINT [A]ATN CONTINUE CLS CAT BORDER RUN ©*FGi/D PAPER 9 OVER ▗ FLASH CLOSE #SQR sP INPUT ^c DIM CIRCLE ,STR$ j DRAW `USR THEN FN UUXp NEW SCREEN$ SCREEN$ FO LIST CONTINUE TZ1ZCOS TO 1 FORMAT _[B] RETURN o RETURN -_[P]{ OUT _[P] STOP OUT ]w~~Dtz` COPY ` COPY CAT ▙USR COPY DRAW ? LPRINT SIN © RANDOMIZE Y[R] SAVE zr OVER H FLASH +▝LEN 8ASN FN [Q]Zr[P][Q][A]OUSR GO SUB STR$ SAVE X" SAVE GO SUB : RANDOMIZE CLEAR RETURN PEEK 0 DRAW DIM (EA-pS" LIST W INK ▘▟USR [B]Q▘OLEN [R] $ LINE ▟LEN `z[H]na(LEN TAB ATTR }▜(▞ TAB [B]x ERASE AT 1SCREEN$ [L]#tRND$[B][F]Q $▖v(▖E[S]@▗@[F][J]USR pSIN ATTR $@$SCREEN$ [J]I CONTINUE J[J]TAB ( POKE M DRAW HTAN %(_▛TAB LEN SAVE CHR$ [P]>=STR$ J LLIST jLEN ▟z MERGE FN STR$ L Q]6▟ASN 5ASN ▞]o>=cdR1▞POINT USR [O]HL NEW [A]POINT [J][I][D]_@H_SIN ©[Q] LPRINT OVER [J]© SAVE Kg4 CLOSE #[M]LEN ©IN OPEN #{` LOAD *BIN OUT S FLASH IN LEN SAVE >=FN NEW VLEN CIRCLE VTAB m@)H0@ `'ITAB [B] AND !l0RND▖<>[I])I9_[B][F]`▘[C]0USR )[U]-? DRAW ( PLOT CHR$ 2%[F][J]'[U][A]NOT @ MOVE T OUT TAB JI LIST SAVE Fa ERASE d DRAW TAB LEN FSABS VAL LOAD AT TAB eSQR CAT IN PEEK CLEAR 1 LIST VAL$ >=▟ASN [G][x1▝j CLS IN PEEK Kts RETURN ▟'IN _[Q]▜0aEXP CLOSE #CHR$ @LEN IN CAT _~USR VERIFY h BORDER POINT CGIN STEP USR K OPEN #aleIN ABS J▖L>+u▟b CONTINUE -POINT uLEN ▘ OUT TAB PRINT OVER IN [S]SQR w<= BRIGHT [B][F]EXP J POKE [F] OUT PEEK [J]6©[F]9K#TAB IN ▙ LET REM TBRNDQ,z CLEAR IN SDb[D]_.IN INKEY$7_* LOAD IN /PIN INK {fCODE COPY [K]ABS COPY COPY BEEP LIST COPY ABS ▚ COPY NOT _ AND ^ COPY [P]c CAT PEEK OUT PEEK h DIM COPY [A][S][N] SAVE COPY BTAN VAL VERIFY COPY DBBEINT 4 PLOT E▝DB INVERSE C THEN RESTORE CF/[H]FGG? LOAD UD?© OVER K[K][H]/IN ABS IN 6;ATTR RETURN C COPY CODE T▝ SAVE PRINT {X OVER NEW TO PEEK ST9SCREEN$ ;)INKEY$AT EXP COPY E LIST Qh COPY COPY DRAW RETURN bINT MIN OR ~©[T]J COPY COPY LPRINT z COPY CLEAR [N][I]"T LINE LEN TAB 7 RUN TAB L LPRINT TAB [B]/ LPRINT RETURN COS NX PLOT ▘RFN t[B][F]7?▚_▝ LOAD DRAW }(@USR COPY ▜USR [F][J] COPY GO TO SCREEN$ LIST $c©SINKEY$ BORDER y<> COPY r▚>ATN NEXT CAT DRAW LET ▞T_?K© SAVE 0POINT LIST STR$ TAB COPY COPY STR$ [P]▟ASN d SAVE FN T*[Q]USCREEN$ FN a©UEjBP$+[F]P>= BRIGHT COPY POINT [J]3(© CAT SAVE [J][B][P]? LIST MOVE +V LPRINT [P] COPY _v<"SIN @ASN ▟SIN < CAT LPRINT LPRINT VAL$ DRAW OUT PEEK b© COPY [Q] CLEAR ▘ CLEAR CAT [I]yVJ7?SGN 8G LIST ©PeF©[F]b? THEN [Q] LIST ;(IkXSCREEN$ COPY [G]FN ?ATN NEW L▚b LOAD [F]▞[F][J]E[U]sq COPY q` RANDOMIZE RETURN OUT ,X OUT LEN DRAW ASN TAN OUT TAB VAL$ TAB X COPY EXP Ze COPY ASN j©LEN [D]MZZe STEP 6CODE COPY ZVAL$ COPY COPY ASN Z[F] NEXT WTAB COPY COPY COPY GO SUB PI?[U])? MERGE NEW _~/5 COPY COPY IN COPY VAL PAPER COPY TAB 8 ERASE COPY pZ OUT POINT 8 COPY © TO Mx[O]jU COPY ©TAB SGN OUT COPY COPY CODE DRAW OR COPY " LIST f COPY VAL$ 8 COPY ▝o CIRCLE SCREEN$ COPY LINE _[F] MERGE NEW COPY [y COPY < COPY ATTR 5c RETURN COS COPY W%C STOP *FCGFG_CODE [T]SCREEN$ RESTORE VAL B<>SQR COPY FFuIN ! MOVE r_ COPY VERIFY ATTR IN GO SUB jo PAPER CIRCLE CIRCLE COPY sc INVERSE ▛ATTR IN u[F] LIST [M] COPY LIST 8ABS CODE RETURN 0© LPRINT BU> COPY [M]Q9 COPY SAVE |s VERIFY X>- LPRINT USR COPY NEW g COPY LPRINT e;STR$ * BORDER BORDER C© PAPER DRAW NEXT CAT ? LPRINT 8 CONTINUE KlPOINT @▝h▖s DEF FN ux3ATTR USR y[O]( LOAD FN TO 8 INVERSE - RANDOMIZE [P]?LN STOP /v▙POINT jh▚? LET INKEY$&/ OPEN #) CAT [J]Af0[R]L7VAL ,4>R RUN FORMAT [F]3^o COPY [O]y COPY REM [M] POKE TO ABS ERASE h[M]© RETURN © SAVE RETURN PEEK [A] BRIGHT SAVE 2>< LOAD RUN LPRINT <©▟ LOAD DEF FN ▚FN G LLIST PEEK }▜ IF |▖ACS x3©g SAVE q▙ NEW STEP SzIN STR$ PAUSE CLOSE # MOVE ACS GO SUB r COPY BORDER POINT OUT BORDER 4S-- NEXT <=[Q] LLIST ?[P]8 SAVE CONTINUE COPY [I]▝USR ▝ COPY FORMAT ?▜ RUN USR BQLN xUSR 8▘STR$ [B]SIN COPY [Q] BORDER M[D]{tLN ? LLIST ▜USR ? DEF FN ▝SGN SAVE COPY f DRAW ? LPRINT RETURN sf COPY * OVER { SAVE VAL RESTORE OVER COS ?[A][K]$o LET ▙9q PLOT COPY [J] CLEAR IN LPRINT [J] COPY USR TO STR$ Z[Q]H CLS USR /: OUT ~f BORDER [Q]Z LIST f~[K]De CLOSE #SIN &©/U?©F9[J]D MERGE RUN B▝▝ FORMAT SIN .~?~4[D]▛ LOAD ▗ RANDOMIZE COPY 9[M]~RNDC*?RND~[M] COPY [P],5INT 3 VERIFY [F]k COPY NOT IN NOT COPY S,k NEW [A] DRAW LOAD NOT NOT RUN ~NOT HIN NOT ~ LOAD MERGE ▟SIN RUN ?USR BIN W OUT BORDER LIST qL LPRINT BORDER POKE CIRCLE [ AND RNDRND@cUSR STR$ USR ATN PEEK AND ,c[L]d LOAD D©"EABS USR ABS 1p0 LIST ([E]d▘8[S]A[J]VAL [J]c FORMAT [S]©E[K][K]5b1q▙1 OR 3[T]▚ NEW J ERASE USR I▞%SCREEN$ $q CONTINUE MT3[Q]$PU FORMAT [B]p=8) RESTORE nLEN ? LINE RUN [N]X_ THEN kR OR 5INKEY$ LIST GO TO [U]( CIRCLE 7ABS [A]t GO TO ▘ IF 7aTAN [S] DIM "▚8[H]< STEP L<COS < DIM ▛qATTR X7 BORDER RANDOMIZE dLN [P] COPY ▜ LLIST ▛[Q] COPY ERASE STOP [Q][P]V}BIN 'COS jF▞ STEP NOT NOT s▝f[Q] STEP LPRINT PAUSE #8O NEXT CAT PAUSE ©5ATN `OLN d[Q] LIST [C]?I@ MERGE ▟[C]n COPY "{@I[I]L SAVE ▚8a INK b[L]▚o~USR a LPRINT INPUT xSCREEN$ I[B]?c AT [B]ATN ABS *?TAB ~[K]i8 FLASH }[Q][L]IcxINKEY$B:<_?SCREEN$ _LN STEP ▝_ INVERSE #aT; FLASH [P][P]RND FORMAT 8[P] RUN LOAD ~[P]mATN RANDOMIZE CLOSE #T97 OUT ? OUT SCREEN$ 8$ CLEAR (= IF GO TO [M] READ 0RX STEP RANDOMIZE RND[H][P] DRAW [U]INT <=C CIRCLE ?[P] VERIFY !▗k RANDOMIZE LIST [S]d DRAW CHR$ BORDER <>?[N]>=USR PEEK @`}EXP [D] BORDER ATTR CLEAR 8 RUN OUT ;USR [O][O]8yy BRIGHT ?3 LOAD ? OUT B? CLS LPRINT CAT ©▜ LLIST RETURN NEXT :B[K]SIN DRAW d` NEW 8 RESTORE SAVE CLEAR >= LIST CAT |> LET NEXT IN PI LIST r SAVE INPUT <= LINE 2 SAVE [O]|[P]{ READ <= OVER RANDOMIZE >yS READ LIST w> NEXT STEP DEF FN _'ATN ?▝▝ DRAW GO SUB h>=s CAT LIST STR$ @ FLASH READ l THEN LIST OPEN #61TAB <= FLASH LET USR OVER _▜COS LIST | COPY CLEAR [P]▝ FOR _STR$ BEEP ▝ RANDOMIZE IN COPY @ LLIST ▜TAN READ INVERSE LIST DRAW ?SQR <= INVERSE SGN RUN USR p. LLIST LPRINT 4 CAT vVc INPUT o RUN / CONTINUE :8 LOAD PLOT w AND jSTR$ o NEXT r COPY p[B] BRIGHT p COPY PLOT ~ FOR INKEY$ OUT e BEEP ~o COPY | LET INVERSE ACS [E]TAB LPRINT ASN )mSQR SAVE 8>SQR >=AfTAN STR$ RANDOMIZE CODE PRINT K@[P]STR$ LET -[I] BRIGHT BIN !)1Y▘B THEN PLOT READ UG STOP SCREEN$ <=o& NEXT [K][NUSR ▖ COPY 4 LIST RUN GO TO ATTR i RANDOMIZE [O]JpTAN [L]MNOT MERGE [I]x&[L]O FOR 7|[L]NOT USR [ CAT ~oNOT CIRCLE V[P]_nIN j[J]ABS Wt MERGE Y^/PIff^ CLEAR ` REM [F]&$$ PAUSE MOVE `[N]w▘?[Q]^jy LPRINT ?{a[E][Q][N]VAL$ ©) DRAW }SCREEN$ EXP y LET iP~V_[G][O]1F[P]?m CIRCLE 7` DIM [Q]=@B[H][Q]9 GO TO ACS ? GO SUB [U][STR$ U▗w INPUT ! PAPER %ATN [R]>= DEF FN IIN [U]Fq_% CLEAR us2AT <?INKEY$=Z▝ZX?[Q]# VERIFY G=©K[H] INVERSE LLIST Y©SGN x STOP oW CLEAR REM IN [D]IN WIN _~=2 COPY [K]RND NEW @gRND/Y COPY [R]~=▝USR ©g PRINT T BORDER BORDER <>8 RETURN ~0?u<>0Z?USR !Il DRAW COPY IN <> OUT ?}P DIM PEEK USR ?@s4 CLEAR COPY ▖# COPY ©SCREEN$ U`B&Ap RETURN COPY BIN IN OPEN #H?B.d[D]SCREEN$ VAL ▖ CLEAR FORMAT A RETURN ?f8 POKE Pf`P?@©▘H?© FORMAT [T]ABS LPRINT [Q]ABS 4* ©3QB_IN ?Ujz[K]?PIN IF >x?[O]?[J]CHR$ X[Q]L&LEN y DRAW [P]M[K]?[B]BIN p1 RANDOMIZE SAVE d[C]", GO TO FORMAT FORMAT G▟r2LEN STOP 8IN 74?ve{?X[R]I1 OVER CIRCLE ?-PEEK GO SUB [B]<[D]STR$ R1<(}TAN dTVAL [M]?x NEW ▗E[F] OUT 98[K]( AND " AND [Q]? POKE [Q]/ ERASE [U][A]DiVAL$ ? CONTINUE ?$USR qH_v+▝ IF ,_?[C]??©94SIN B+ COPY [U]][P]©Q{LN J▝?}INT % COPY CLOSE #QT; OUT "BIN IN _ IF l GO SUB IN OVER P BRIGHT *<SCREEN$ ▖/ GO TO 1 TO [U] OVER ix?7:UHT0IN [P]q OPEN #' DATA LN [D] RANDOMIZE CLEAR *0[P][O]@[J][P][P]~`IN 0 CLEAR IN LN g OUT N MOVE NEW [P] CLEAR ▗ [O], THEN X▜?4P[Q]©USR IN c_?p CLEAR [T]▝!STR$ LIST _IN c[P]?▖ IF V[T]USR ;8? OR LEN 0 OUT [R]N DRAW TAN _,$[L]?4 IF 0 LINE 1l[A]_-[C]_ DRAW `$*_F[P]J[C][P]8 IF INVERSE ($lIN [K]_J[B] OUT CLEAR 6SCREEN$ ,B INVERSE #? RETURN LLIST VAL$ _0ST_©6%wY[P]*/[P][P] INPUT CHR$ ▝[U]00VAL$ AT OUT OUT ( OUT ▖HY@0[N]0pCIN INT THEN _b_ VAL$ [P]Mw_t[P]8INKEY$ OUT @[J]e OUT . OUT xVNOT OUT v/ATN EXP COS ]SGN c1A FOR LPRINT [H] DRAW ABS s_INT 8USR v OR SAVE w STEP y?[N]$ RANDOMIZE USR v<> REM ,ATTR CLS © OUT ^BIN >CODE 8*EUSR ▝< FORMAT LOAD CLEAR C[B] COPY p-ATTR GO TO THEN W_ OPEN #/*` POKE GO SUB T STOP VAL$ IF jC IF , OUT CODE OUT LOAD PRINT %FN OUT {USR - SAVE d>=[P]a© LIST D_[K] RETURN ▚[S]MqSTR$ [P][C]▙?▖USR EK OUT D?6 DIM Hl NEXT )<=@4Si_DP[C]Vop[P] LINE aUSR m OUT COPY 6[N]:[I]INKEY$ INPUT Z! DRAW c INKEY$[N]Q_[S][O] AND @<>NTAB STR$ [B]U OPEN #[P][D]h STOP <A[N]v MOVE OUT VAL$ #8 CLS ^TgIN ASN NEXT 4O ;IN H-a LPRINT EXP LOAD TA_@: PAPER USR GO SUB a8 RANDOMIZE CAT J[P]? [P]▝ PAPER _( SAVE COS LPRINT (j OUT STEP 5VAL$ V▙TAN PAUSE LIST [I]UWFN wAtF[J](LEN "[B][C]8X_0ATTR SCREEN$ _nAT CLEAR OR YINKEY$▚?Yq[P]F VERIFY n USR 8 CIRCLE INK AND Y5 SAVE OUT INKEY$ AND OUT VAL$ [T] RESTORE cINKEY$▛[R] LIST YL;[A]r<=Qi1 MERGE LOAD _▞ OR _[Q]u▘[D]▗IN D[C]?C▛[P]POINT E DATA [P]mXO<TAB ▖ ERASE OUT MOVE iq© OUT ▛ OUT *INT REM Z`SCREEN$ SCREEN$ PEEK LN qqIN VAL ▝▛ MERGE CLS STEP a,*©_8C* RANDOMIZE COPY !INT _6_ FOR RUN LPRINT [P]o?g(#BIN DIM ?*[P]@ PAPER .[P]1G LPRINT USR FORMAT G STOP GO TO MERGE MERGE © OUT TO OUT + PLOT 7▙! LOAD *[T]xK▛ LOAD ^ TO @▘FQ▙ RUN !c[D]STR$ AND ^[M]?_SGN FN A_!▗c>©LEN aCODE D LOAD OR |[P]?BIN LPRINT [P] TO "LN 0 CAT ©a LOAD [A]d DEF FN Z}PEEK ▘-1SGN AB]_ LOAD P[Q]?X?ABS ( DRAW IN LPRINT [P]D[I]B[N]? LOAD INKEY$ COPY > PAUSE "IN | COPY COPY ▖ASN 7/LN SCREEN$ # CIRCLE U BORDER LIST BORDER ABS CIRCLE CLEAR STEP UUSR FN BIN CAT E[S]?[S]NOT ▙NOT 5[Q]f[S] NEW LOAD ?q6 DATA [O]©' OPEN #d DATA ATTR [P] MERGE A MERGE ACS 3j GO SUB MERGE [P](C*<= COPY READ ETAB XPjf READ h[P]N▝h OUT [I]f0[Q]fpINKEY$VAL$ OUT 1CSCREEN$ t▝[O]i[A]0ys}Vg{, COPY [O][J]?USR [J]yb._a;PItRQ[P]a>=[D] ERASE *]0INT PAPER [P]JLEN COPY 1U▟fUSR OUT nNOT INT ATN 3▚▝0▝a TO DIM k~[B]_Mp45;9SIN OPEN # BEEP _q[P]B SAVE <>▝B_ATTR COPY jL OUT COPY LIST M#! BORDER COPY OUT [M]m{ACS h BORDER THEN [_ BORDER ▙ DEF FN LN CIRCLE [ OVER @3n DRAW REM ACS CIRCLE w AND [I] NEW [N]q CIRCLE NEXT ATN ▘▘; CIRCLE . OVER [K]cH BORDER SGN RANDOMIZE COPY FUSR ABS [A](FEEeIN F&FE[F])GGm*c ERASE [F][B]qDB DRAW *B&▞SCREEN$ SCREEN$ F8PEEK 8AT 9 LIST 5 RUN STR$ OUT [K]_sx DEF FN s&5Ww) TO [N] uCHR$ NEW 3 PLOT EXP V TO DRAW ;wo5{}F▙U>j REM ` ERASE :M NEW $SCREEN$ c}*U[P] LET u INPUT [H] ERASE LOAD ATTR INPUT [J]_▟VAL$ IN BIN [P][O]e[P]A OVER OVER o MERGE u LPRINT DIM <▜ OPEN #ox1s BEEP FOR INVERSE v[R]3E NEXT X NEXT ▙BEXP A3oNUSR `BB8 MOVE YPOINT 8SCREEN$ [K]F$ CONTINUE LEN RND TO coR{ NEXT INKEY$ LINE AND DATA CODE ▝ PLOT NEXT COPY CLS LOAD @ CLEAR RETURN DRAW OUT COPY RANDOMIZE LPRINT RETURN FOR SQR /IN NEXT CIRCLE BEEP W[ STOP P<[Q]L+3▗ LPRINT @ 3TAN 9[Q]&4} BRIGHT dPSGN IN REM COPY @▖ FORMAT jjo COPY FN ^l COPY ERASE 8 P*~AT @ DIM q@' RUN CLEAR USR .TAN LPRINT Uj BORDER IN SAVE COPY LPRINT .s RANDOMIZE RUN NEXT CLS BRIGHT CAT 1 LLIST RETURN [G]` AND CAT ATN ▙ NEW . STOP w LLIST LOAD n? RUN BIN CAT SAVE © LIST COPY FLASH l>=▛@USR THEN [U][P][J]▜▚e FOR FN [O]©7 READ RETURN BORDER /[A] INVERSE [J] COPY < CAT AND ▖ OUT INPUT COPY ©SQR DEF FN [E] TO [Q] LOAD CONTINUE /.Hk LOAD RUN IN RETURN POKE COPY OUT PEEK CLEAR z▚7 COPY IN LEN ~SIN <[Q]©IN j CLEAR J[E]. CLEAR ~ DATA 98©O DEF FN ATN USR q4BIN PNOT h© FORMAT ' CLEAR tCODE CONTINUE _IN ▗NOT [U]IN PRINT 0 CLEAR FOR SIN [Q]V©▗u[A] PLOT © DRAW ©#i CIRCLE NEW ? LPRINT LOAD $u>=Ep RESTORE CLS $9[U] PRINT $5VAL VERIFY @ CLS `yLN ( LOAD ? RANDOMIZE POKE `[ COPY L IF p`[K] CLOSE #vl LPRINT TPoLN LPRINT ? LET LPRINT 5*?<= READ LPRINT -POINT ▖CODE <= LIST Y[E]IN OUT CAT LIST J COPY ATN [P] LIST NOT © FOR LIST / BRIGHT LPRINT COPY POKE ; LIST 6[O] LIST ? LIST s LIST 2[s FOR LIST " STEP DRAW @ RUN LIST 5 CLEAR INPUT COPY BORDER LPRINT UTW/ OUT BEEP USR S LINE [H] LOAD CODE )SIN THEN ? THEN LOAD Lc BORDER X4M VERIFY IF ATN LIST 8COS [O] BORDER INKEY$aEXP ; RUN GO TO q STEP } LPRINT VVAL LIST READ [K]>=q[E]8vq▜aEXP ▖ INK [I]ATN Lm.▚;VFN <= RESTORE D_bO PRINT J[S] CLS LOAD &/IN COPY © BEEP [B]IN CLS CODE : COPY BEEP UEU*ATTR *UpW[F]TAW RETURN CODE LINE *A+ CLEAR _ RESTORE y[F]SCREEN$ < NEXT B▙ PAUSE THEN T LIST ©$FN J RESTORE [T]USR 3BVs▙r'LN OUT [Q]< LPRINT NSTR$ U SAVE 0 SAVE p LIST ) LLIST A# CONTINUE CLOSE # INK ▜ PLOT IF w[E]swGjQT#*[M] RETURN IN ATN '6I? LOAD RETURN 8* OUT ][K] DRAW © NEW ©F3[D]© CLEAR #IN IF INT A RUN COPY _ CLEAR RUN [N]nu NEXT RESTORE PI READ REM &G BORDER G LOAD FORMAT H RUN CAT URND FOR ATN GO TO x RUN PRINT 0[S]ko REM x" COPY SIN (U© REM ? BEEP s IF IN FORMAT ? FOR LIST Ho LPRINT 8IN COPY ATTR ^ COPY MERGE SU LIST ▛S'SCREEN$ [A]wSZ▛M COPY Wc RETURN q[S]' CLEAR 4 LPRINT COS IF SCREEN$ COPY ERASE DEF FN c[M][K][O] BORDER 3k0ATN [J]@ READ INT COPY CLS OUT X CAT RUN COPY LOAD ( RUN COPY [A]= COPY OUT CLS COPY FN >=P} LOAD CLEAR COPY [E]© RETURN U COPY }YCODE LINE IN DRAW ATN LINE T SAVE [P] RANDOMIZE INKEY$r POKE 7CODE !C PRINT _ CLS GO TO CODE RUN PI>=[A] GO SUB O RUN [H] BRIGHT PI2d LOAD ATTR INK S OUT [D][Q]+ OVER ▗LN !▝▗` LIST xUSR SAVE [T]▟COS [I]HsFN a>={H DEF FN [P] LET RUN BORDER PH( OUT ACS BORDER PAUSE [Q] OUT LOAD QI NEXT RANDOMIZE #IN [Q]h1© OUT RANDOMIZE RETURN b[G]USR ^?IN DRAW DRAW /_[U]d_O[P]CODE y ▝o[P] SAVE x[S] DEF FN <= READ 1BT GO TO INPUT LLIST ▜2Aw RESTORE LIST nw PRINT SAVE /s CLS DRAW ? MERGE [A]({ CLS LINE IF ? DRAW Q[E]U/yvJt(||{ LINE * )[E]:T~ OUT IF [C]▖IN ▜PU(VAL$ IN ©FN [Q] COPY IN IN CLEAR ATAN IN ▝▜TJSCREEN$ USR Bb COPY OUT 5F CLS AL NEXT Q INPUT SCREEN$ RANDOMIZE |?T^ESGN LET DEF FN STOP [G][S BORDER [M]&v LPRINT ▛/ACS ▗ STEP BEEP Q[H] FLASH [T] LOAD SQR @▘ GO TO [E]©vs[[T][K]ABS E[Q]▖& COPY Im LOAD ABV[G] VERIFY F GO SUB C LOAD © POKE PAPER &▞ PLOT MERGE REM ?/w PAPER FN OUT SQR MERGE = FORMAT ATN z PRINT IN [F]z[T]<= COPY ~ RUN _ASN mGUn0&IN UUSR [K][I] SAVE }SQR [Q]% COPY Z INPUT FORMAT O SAVE - CLEAR [K] NEXT CAT [H] REM P@ POKE `` INPUT ? LINE CLEAR COPY 1 DRAW BEEP INPUT p COPY READ _ BEEP X( READ o DRAW GO TO LIST READ LCOS "[Q] CLOSE # RUN LLIST E SAVE [A][R] VERIFY hNOT RESTORE [I] LINE x LIST FIN <<h©[Q]ASN >E DRAW ©[K] SAVE ©> OVER >([Q]9 BEEP }▛ OUT =BIN © OUT RETURN ]., RANDOMIZE ~|.INT @▝g CIRCLE DRAW IN PEEK _ RANDOMIZE RETURN _P CLEAR ? LET CLS g RANDOMIZE / NEXT CLEAR COPY NEXT ▚.c DRAW COPY <=8B SAVE SAVE THEN LLIST ?Wk BRIGHT RETURN >*P▙ RANDOMIZE }U:FN / CAT RUN :<PEEK MERGE P{ CAT RETURN OVER 8_CODE CONTINUE <[P] BRIGHT |IN _ POKE PEEK 87 GO TO <©IN SAVE CLOSE # LOAD CAT L8P(IN © POKE B3 FORMAT VAL IF x©▟ INK CIRCLE <USR NEW FOR LIST T DRAW ▘SGN PEEK ~ PLOT [Q]FN CIRCLE V©[Q] IF y BRIGHT h▟ CLEAR StPEEK cSQR USR _?>© CLEAR ?© LIST }IN OVER CLEAR CONTINUE _ COPY RUN POKE DRAW /_ FORMAT ;PEEK VAL$ [Q]*U@ FOR QuEXP COS INPUT ▚h OPEN #INT LN BIN ! GO TO ?CL▞ COPY )fX INVERSE STOP SGN S VERIFY NEW COPY RETURN xVAL ▖ RETURN NOT [H]? NEXT <=R[R]<=©@ SAVE "!) COPY >=SQR & READ OVER 7 RANDOMIZE P@INT [C]▟ STEP CLS INK PRINT Kv LOAD 1[J] OVER LOAD `[Q]VAL <▞SIN =▟LN ▟QcoASN ( DEF FN z▘[A] DRAW SAVE o▗AT RETURN a PAUSE V DRAW NOT f PAPER ZSCREEN$ ? DRAW BORDER s7Ez(@-▖ COPY [Q][E][H]Z SAVE [B]IN M af RETURN Jy>=//8I[F]J4 READ j:O@QSIN $= COPY f=[O]▗ LEN DEF FN 6([P]03! `) OVER NEW (d5-'[U]r▟▜xqQ6 COPY OVER <L*▖[B][M]I LIST 8▘& RUN COPY NEXT CLS COPY BORDER POKE $MW CLEAR READ Zm?▙CLN ©© OUT NcxAT < [P] PAUSE ? INVERSE Z[T][F]FN ▜ INVERSE '@v LIST INVERSE c[K] RETURN © COPY [R]D STOP ©FN rUSR S THEN INK MERGE pATN BORDER LCOS e DEF FN ▖eKU LIST BIN vSQR SAVE [C]N DRAW SAVE >q LINE RESTORE ~/!|}6 OR [I]]1jATTR W THEN ATTR INKEY$EXP [R] LIST [N]{ PLOT RESTORE CLOSE #k<)FN xq[S]O CLEAR U MOVE CONTINUE REM SCREEN$ LN [I]f COPY UV IF ATTR "INT STOP W[A] AND U_ LET ABS SCREEN$ ▚JFN P▝ OUT v SAVE /▚U,NOT ©VAL$ [R]<?_2FN [P] IF COPY IN AT $ MERGE __P? COPY SCREEN$ SCREEN$ IN ATTR B▚PU_ MERGE CODE IN FN FN XY LET _CUSR n RETURN [A]~.[P]d COPY @[H]P▘ LPRINT STOP PLOT !([U] COPY STR$ DRAW 6# NEW N© RETURN STEP SAVE W()SGN ;PITAB COPY BIN q[B]ATTR COPY REM GO TO LET ▝▟ THEN f© RESTORE INVERSE LLIST OR P@[U] COPY b CLS DATA READ [A] COPY PRINT LOAD OVER RESTORE MOVE ©SIN COPY PEEK CAT INK © INK _ BORDER LET OUT CODE AT P OUT IF DEF FN w BEEP ▘ OUT RANDOMIZE NEW LPRINT w FOR CLEAR CAT NEXT NEW LPRINT RUN BEEP SAVE a DATA P@ LIST RUN LOAD LLIST LIST INPUT LLIST {D COPY DEF FN 7 LPRINT CLS COPY [L]FP CLS hACS STR$ } LOAD PEEK READ NEXT COPY [A] RETURN Q= RETURN !LN s COPY ? SAVE LPRINT ▚▞& DRAW USR LOAD [Q]&-` COPY $@AFN VAL RETURN H CONTINUE CHR$ SCREEN$ ▗x SAVE BIN COPY } MERGE HSGN STOP PAPER COPY CLS * PAUSE ^[M] RETURN MERGE CLEAR ?ATTR LPLN IF USR VERIFY Z PRINT oPI COPY DRAW W COPY FORMAT SZ^ CONTINUE @TAB O COPY OPEN #[U]▚CODE COPY COS [Q][G] COPY PBK▜INKEY$j REM ,[[M] VERIFY Rb{ BORDER OR RUN <ACS [K]E CONTINUE |t(@[I]-[D]STR$ E COPY BEEP !H LOAD DRAW LIST COPY CAT IN [D]▜ AND CLEAR LOAD ©}_[G] PLOT LOAD COPY AND 9 DIM OUT PEEK T DIM 9 LIST OUT y2 INK 8 LIST OVER w BORDER IF / FOR OUT ]~lVIN STR$ [N]*[B]|? OUT INPUT STOP BIN @COS M OUT NEXT ▝NOT N<= GO TO O_ OUT GO TO ~ NEW /©"@jlx PLOT b SAVE SIN COPY RUN &1a STEP Ab* POKE STOP RESTORE DRAW POKE INK P@[A] LOAD RETURN l MOVE LOAD LPRINT © RETURN :VAL OUT LIST VAL CLEAR :[S]@(} SAVE O NEXT z▚ COPY DRAW 7 COPY }kIN COPY LET RETURN -[G]oPEEK |x~~/? CLEAR @=USR ?IN s[K]*?) COPY 8_}[M] COPY NEXT COPY lIN } CIRCLE H CAT CLOSE #/ABS [I]G CLEAR [U]2© CLEAR >= DATA _ CLS AT O CLEAR TO . CLS TO CLS CIRCLE ? LET @▘ CLS SAVE ^ LET V RUN LIST kbD?q[F]GQ▜P@[Q]> OUT FN CAT `9a[P]TAN 'paIN BRIGHT PEEK LIST FIN n@[A]▟▙ PAPER CLEAR SAVE VERIFY c:©G INPUT FLASH ▝@G DRAW 5 RETURN ATN o CAT DRAW ,B DRAW PEEK © DRAW |( DRAW © SAVE ZINT BRIGHT COPY LLIST CIRCLE ]n[T]?I LIST >IN MERGE USR H(q© REM LPRINT &(TATN w▞>WB} LPRINT [J] LPRINT <7LN [T]BUSR LOAD USR <rVAL OUT 9[C][B]?<=▟i BEEP COPY V-|~ INK bWATTR MERGE _CHR$ [I]CODE y INPUT cC F RUN CONTINUE >=[E][Q]#0[S] OPEN #VAL # OPEN #$f▜f OVER $f[B] Z' GO SUB Q*VAL L/@ LET . POKE ? RETURN INPUT NOT INPUT <=/UU@$ RUN [U]DD[B]R©UV LINE *u(xUSR INK XG OPEN #CHR$ [M]▚ LOAD j[T] AND CLEAR © COPY RETURN ▚QrIN UNT! NEXT ~yCODE [B] NEXT BEEP _ CAT G>=O? LOAD RUN SGN C Yd<= RUN LOAD READ INKEY$!CHR$ ' LPRINT 8S7 DRAW LPRINT ▟aV<=[S]USR POKE FOR DATA <>A' AND GO TO LET [B]n OVER ASN CAT RUN (STR$ s STEP MERGE CLEAR LOAD LPRINT IN FOR ,og OR [I] ▟[M]IN [R][U]@ CLEAR USR _ FORMAT [U][O]/ TO COPY GO SUB LPRINT [P]pf© CAT CONTINUE IN c/ OUT @F LIST v_ OUT SAVE ▝▙6IN ' LPRINT ▚/P#USR 5 IF [S] CLOSE #5@C0▘▜nu CONTINUE 0[R] PAPER [h_-USR 0RNDSCREEN$ CLOSE #wACS STR$ l▗[A]h PAPER © RETURN Z▘ SAVE INVERSE ▝▝VAL$ w+k>| CLOSE #@7 CLS NEXT LOAD VERIFY ERASE /?ATTR [Q] MERGE SIN CLS PRINT CLS OVAL$ LINE x PAUSE PLOT uF[f< DRAW 5 CLEAR ▟LEN ^V© DRAW ~ATN TAB ATTR ©▝[Q]PI INPUT COS H] LOAD COPY } INK |ACS `^SQR TAB U_[I] BEEP COPY /b COPY CODE DATA 5 GO SUB LN CIRCLE 3 COPY U IF [F]RPO IF @X_ COPY W CLEAR x~IN COPY ATTR CLEAR ? LPRINT F BRIGHT TAB COPY DPIx_aqV CLS [T]CHR$ w AND ,f/[J] REM BB COPY NEXT INK RESTORE ! AND OUT COPY COPY PAPER MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !IN CLOSE #PEEK 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 <> PEEK STEP PRINT DEF FN G CLOSE #_ FORMAT ?N* COPY TAN <> COPY [K][L] P.QR[C]6[A]K"37WUR$ q FLASH FLASH COPY ▜O!/ STEP ^#V GO SUB SPOINT USR !ht CIRCLE USR > COPY 2USR 2RND[E]9:(;USR USR &6[E] GO SUB VAL >267[Q]8+2~USR ▜2©[Q]$<>"<>!` LINE "^ LINE !ATN THEN "ASN THEN <>▝ TO KEXP CODE @ LET _=NOT ABS 9! STEP STEP TSTR$ ~#fo FOR ATN SAVE THEN ?!J[B]6 COPY !dPOINT >=!AT FOR GO SUB [Q] CIRCLE o FORMAT $<>([Q]:&ATN PAUSE /NOT :- LINE (STR$ :x=2CHR$ J]CHR$ :USR OCODE i:SCREEN$ AT TAB ▝n*▝FN STEP >=:*' STOP iJ.c[U].CHR$ J*. GO SUB [fUSR :[A]BLN STR$ NOT INT STR$ GO SUB R" CIRCLE 2MDLA!i[K]USR 5CHR$ Yl![U]$▜w*/2NOT UATN KP[F] !i:] IUSR o! INPUT COPY ":EUSR LINE eCHR$ NOT ;CHR$ [F] PRINT :$ LET FORMAT $:'5POINT !`TJUSR _ PEEK PAPER _▘*[D]PEEK ERASE ERASE CHR$ PEEK PAPER (~2▜_[E]! ▙ TO [K]*3USR &Ru[E]6[E]S▗>!▜USR (~ATN CHR$ yCHR$ [B] CONTINUE 45 LET CHR$ /NOT GO SUB 6KUSR ATN PAUSE [H]CHR$ NEW ©K[U]d[M]>=K FOR DIM [N]©INKEY$CHR$ CODE 2NOT POINT ▟A*USR [C]} LINE EXP CHR$ 2[F]S[D][C]} OR R OR ~STR$ :1YCHR$ [F][Q]a GO SUB CjSCREEN$ PAPER DRAW ▝USR rNOT jRND<2ioJ@<8[Q][E] FOR TW:KUSR [E]R LINE /LZ`RNDH?T BEEP USR CAT :{A BEEP Hr MERGE sSTR$ LPRINT MERGE TSGN 6@CHR$ ▟NOT ![S]:5 PAUSE COS Jw!P▝?4~ RETURN CHR$ [F]kATTR WNOT GO SUB RETURN '@w:'!Q&|VAL$ NOT =r>VAL j._IACS :_BIN OR :.uS NEXT 0y)[G]@CHR$ NOT BIN :$▘J[L]e©PI+(GU[C]!dBIN /C)CHR$ */ GO SUB [g cCBIN NOT INKEY$ABIN cM FLASH ELB!j5POINT d}9m"d+/2uKNOT LUY "jj:^dd:FUSR LINE qBIN YNOT [Q]BIN d%4I LET :(5ATTR SCREEN$ A!ad [R] BORDER PAPER [K]BIN d▗NOT [P]BIN d OR *~2d4v[R] RESTORE [F]7ee▖▘e OUT BIN > LPRINT REM eBIN OR GO SUB K CONTINUE De CLEAR BIN [O]e READ <>e OR CODE 2NOT OR :Ae[D]} LINE OR 2[L]S[E][D]~▖e©STR$ : LPRINT M OR fASN +▞ GO SUB Ck RETURN ▛▘U[A]u|RND[E]Vdmj*p=[U]T[P]yUXRNDfMUSR LINE [G]NJ)[I@FN USR FLASH STR$ CODE OPEN #:|HtSTR$ INK u INK $▘$ AND :ACHR$ U( PRINT OR !;5 PAUSE [T]Kw!@gkPgA[F]XNOT hCODE g'w[S]:'!R© AND [J]=sgX5._▗b:X LIST :/INT POINT ▞Y.zK[Q]'CHR$ )<=:"e)"RNDMcINKEY$,(TAB MI/en/C)CHR$ */ GO SUB [h eD▘ AND NOT INKEY$A▗ AND eM FLASH ELB!k5POINT e READ 9n"e+/2uKNOT LUY #jj:_ee:GUSR LINE BEEP AND YNOT <=e&4I LET :)5ATTR SCREEN$ A!be [R] RESTORE PAPER <=e▗NOT <=e OR *~2e5v[R] RESTORE [F]8e▚e▞▘eE<=>$ LPRINT REM e*>= GO SUB K CONTINUE Dec<=[O]e< THEN er<=CODE 2NOT u▙[A]STR$ e[D]} LINE NEW T<=2[E][D]~ STOP AND e©STR$ : OVER COS <=e GO SUB ▞ GO SUB Ck RETURN `U[A]u)RND STOP VenkJq)[F]>VY)eOUSR LINE DRAW ▚PRJ/JA*VAL FLASH STR$ FOR OPEN #:}Hv LIST USR INK wPH INK :CHR$ T>=!45 PAUSE +SCREEN$ zDw!9[Q]F^* BEEP ^QNOT ^^D MOVE 'w:'!S3xu>==lj^.▞XNOT X~USR NEW O:©▘BG:| NEW $LEN VAL [C]CHR$ >= DEF FN >= BRIGHT >= DATA >= PRINT >=<><>'<>/<>Q<>{<><>[F]<>[N]<>TAN <>SGN <> FOR >= FLASH <> OPEN #<>20USR GO SUB Cy▘CHR$ ! INVERSE (5 LINE GO SUB K*+3PINOT /NOT og RESTORE STR$ [A] RESTORE *<>q#p#2G'+F+N<>INKEY$[Q]B TO DIM B39 OR O} RETURN CHR$ J<>y AND RUN 2▝-2p?[T]!%[A] NEW 2HUSR QACS ^5KATN [D]L2TS<SIN l]! FLASH GO SUB $'*SIN ,flJ BRIGHT o[G]!-eY{rsACS FLASH 5▗USR LINE LINE # LINE + LINE < LINE Q LINE f[Q] LINE n LINE v LINE [I] LINE CHR$ LINE BRIGHT LINE DATA ) LINE CLS LINE THEN 2 LINE 4 THEN , THEN -1[R]FX CONTINUE BIN !E5 LINE GO SUB K LINE [U]G LPRINT FBIN OR ▝[O]FF^ LINE Y[R]F[N]FUSR [D]` LINE F9 INVERSE B4VAL F[B] LINE yPI BEEP 2▘F'TAN F! FORMAT [Q]5I6X5RFMATN THEN N INPUT US=SIN l^" FLASH GO SUB %(+SIN ,gm BRIGHT pFFN l PLOT .ATN 6CHR$ THEN OR AT SIN TO ▝2|+t FLASH GO SUB uG▛`b THEN n THEN | THEN ▗ THEN [D] THEN FN THEN [Q]ABS = THEN STEP THEN LOAD THEN TO ! TO 3 TO ; TO R TO Z TO ▞ THEN y TO q TO -PUSR 2XjN<=▟[S]!5 LINE GO SUB Kd ERASE G<USR 4<>V4 FORMAT VASN THEN 3+VR[R]VEXP THEN b FORMAT V STEP DIM @5[R]▘V CONTINUE {kzBV!EJESlVOPvSQR GO TO VS>. THEN _#&SIN INVERSE ),- THEN hnqUSR V, THEN BORDER /} GO SUB SIN vw5▚` FLASH Y CLEAR COPY @Q GO SUB yIN {<> INPUT M▙ PAPER / RUN h LLIST a DIM wPIG GO SUB [I]G DRAW TAN p1 POKE SGN ▚S$ PLOT TO [U]~Z8 IF OVER NOT SCREEN$ [C]{fR?-@i LOAD LLIST MERGE <>PEEK COS POINT [P][G]▙▚©wqjd_YTPKGC?<852/-*(&$" [M] STEP [E] CLOSE # MERGE VERIFY w INK BRIGHT MOVE DEF FN FN CLOSE #j MERGE RND VERIFY % PAPER 9 INVERSE FORMAT STR$ CLOSE #INT MERGE a BEEP [J] PAPER 7 OVER LPRINT LPRINT LPRINT ' LPRINT . LPRINT 5 LPRINT ? LPRINT I LPRINT S LPRINT Z LPRINT ^ LPRINT b LPRINT f LPRINT p LPRINT [B] COPY [C] COPY ▖▞ PRINT [Q]KUSR ▟ ▞ATN COPY ▝@@▞INKEY$JAUSR ▞uPtH▞▝R[F]▟(▘)USR ▞[E]P[Q]9s ERASE ▚ PAPER ▝H@.▚ RETURN #%(▟yS POKE D>=▛*[J]M%▛PE,8POINT [Q][Q]XXTAN =U296▝ OR TJY▞[A]▗meP MOVE READ FORMAT ▚ PAUSE POKE @[G] PLOT DRAW ▝▘[C]Y)▚F.r=D=,181D▝8D CIRCLE e8,▝[C]D▚▘[C] COPY ▟`▞▗ MOVE [A][M] STEP W43▚FUSR / LPRINT ▝8▜RND6▞ CLOSE #▞▜RND▜E?USR @0?0=0B0C(BCE(+G(GIJ0▘P#5+)SIN ▜ CLOSE #▝"r▟▖ ABS $'pSCREEN$ %#"P MOVE yINT RETURN ▘ SAVE LINE f%#9C**(([Q]:▞USR 1/USR [P]?▛- FORMAT [M]>R INPUT i▗) ERASE ▛ COPY ▚ DRAW ▗▟ ERASE LINE DATA LIST REM 3Y▝*▚ NEXT PRINT INT GO TO POKE CLS CONTINUE DATA INKEY$[L]TAN LLIST d PAUSE ▘▚ GO SUB ▞`INT =?@BDEGIKIGEDB@?▘[A] MOVE DEF FN I[Q]G PRINT SGN Qd NEXT ?USR PI[Q]NOT 'I'*.36:?BFB?:63.* 9▛ABS ▗:;(▞p.*INT RESTORE zT CLOSE # L[Q] POKE QA▝QQH[n BEEP RETURN [P] FLASH OPEN #FN ▝[C]%#8!~B(▗[C]▞VAL [K]NOT ▘+▗ATN (@{[Q] CAT ▛▘SCREEN$ @$% [T] RUN [M]RND FORMAT [R]U= CLEAR POINT <▞@ CLOSE #u0 PAUSE COPY K NEXT $P AT N@O[S]>=@LNE THEN TFI5s-*U5 SAVE 9▗(POINT PISGN cH▝X▚ PAUSE DXDB@D[E][Q] E[C]P][A]SCREEN$ [E] OPEN # CONTINUE P OPEN #SCREEN$ STR$ SQR [N]AP@KO0U9LK^IU;{KL=N(PNP[S]@▞[G]J▛K▝9KIN n`▚ RETURN /Sr[R]▟ PAPER FN K AND FILQCSVE8▟@ INPUT Sw?NB[C] THEN <; OPEN #▝▚ RANDOMIZE [J] NEXT j RETURN DEF FN Y ERASE g+▛ POKE EXP }![T] CIRCLE UPPOINT ▘[I]UenMI[G]EXP D RANDOMIZE BORDER [O] COPY / FOR jGVL RANDOMIZE STEP VVlABS /VVTACS mQ NEW K BORDER [P]Jy RETURN J[K] BORDER /G▗ PLOT OPEN # PAUSE ▗s CLOSE #TAN GO TO 2▗SQR GO TO ▗+# [E]ABS HUSR =[T]1E▖ VERIFY VAL B VERIFY ▙(▙[G]A[M]pr DATA !SCREEN$ USR IMr[J] BORDER CLEAR <! RETURN < COPY 0.▘*▘.15:=AFA=:51p/38;?DGaD?;83169=BEIEB=9[C]INT ^6x LPRINT F▗ PAPER CLOSE #[A][R] CLOSE #(VAL "eC2 INK INT % DRAW IN LINE $2"[J] OPEN #▚ DRAW ▘2459:>@AA[B]▘(E+9[Q]-0479< SAVE NCp!h ▟T▘ TO `=▛ COPY LLIST ▞[A]COS [A]VAL ▘▚!"▞17( ERASE E%"FN e8ACS Q[P][S]F PJ8_[I]/ MOVE R*PF[C]MHHMQM[F][C]H:# LPRINT MOHOwsTAB OJlJDCD?965:▛ BRIGHT THEN HA[I] LLIST CLEAR MERGE QOLJ*IFEC@>=:▗ DEF FN BEEP @ OVER ▚ PRINT ▗ INK ▚ NEXT NOT EXP ASN CIRCLE ▝▚<COS W COPY 5 CAT BRIGHT [K]Yzn[P]9 LET m FLASH LOAD 4 GO SUB FN |UPMIDIMP▝▗ NEXT BEEP ▗ CIRCLE ▜:▟RNDSTR$ ▝ READ @SGN A OVER AT 4 IF 2SIN [S]9-P~▟A$CA@0C[N]CHR$ ▛ SAVE <`xUSR >$<:<0C`RC▝l FLASH 0C0H`L0QS`+PQ▜ CLS VUSR V PAUSE AND /WFN l![O]IN SQR _C FORMAT SQR INKEY$2CHR$ (▚0~,[F]▟ "t OPEN #`CHR$ TAN [R] BRIGHT [O]*USR INPUT CASN LIST ▜[J]P4FN T LET 5 THEN ▛@@CFGKMORSWY[^[YWTROMKHFCA![P]75[Q]A+)'▚ FOR JAT THEN s REM 4$^▚ BORDER < REM OVER <>j▚ DATA [J] AND [O];v▚ LLIST } BORDER DATA ▘▚ OVER N[S]<▞▘ PLOT JDZ OUT RETURN DZD INPUT BRIGHT ZD SAVE ]VLf8Z FORMAT VAL [K]CHR$ [M] FLASH [C] FLASH =I6[M] PAPER RANDOMIZE BORDER [O] COPY /LEN jG`CODE 2`L` NEW 7`/0 POKE `[C]DP<=AT ▟@s)0+,. DRAW [A]▛USR ▖BIN m FLASH ▝▚SC STEP MOVE ~ OUT [C] COPY )4003587T^0▚ACS rB▚+[Q][Q]▛3MZOR▘T REM OZMKJmH`R READ ▗eb FLASH ▚V[A][A]w INK ,P NEXT [U]SIN [J]EB GO SUB Ar 3f;▝ASN LOAD Y[U][S][U]SIN <SGN 9 PAPER NEXT P[U]^[A][A][K]ACS N+[A]% PAPER VAL NEW snJ>= MERGE `@@[R]J CIRCLE :< LPRINT 8? STOP [U]:EXP bk▝▛[M][R]E TO QVAL 9▖PEEK e)$▚[C]SIN K▗ OR ▝ RANDOMIZE INKEY$} LINE [M]9m: CAT $$VAL$ %D RETURN C|ASCREEN$ )<▖ RANDOMIZE hVAL$ FD3H?^<[J]>=/AI) COPY 0L,&MX5bH▗ SAVE FLASH [D]ASN JC▛r&▛[U]:-S VERIFY x8▚h▞[A]![E]`7 CLEAR CONTINUE 4F`"[C]oLN OP NEW RUSR X*@ AND HJLJLMOMO4PQLT[M] s{QQe}FN %GmLN IUDLSIN USR ▞[E]X RESTORE SGN LEcqL LIST oCHR$ [O]Q©LEN B[F] CLS USR K COPY NEXT # INPUT {Og[R] STOP `[S]A1VAL ▞ PAUSE REM CODE ▚ CLEAR [A]& BRIGHT ▚~ DEF FN . CLEAR ANOT ▚BIN _F OR wA?><STR$ A FOR :SQR DINKEY$IN 57j ERASE [D]$M[K]▝4[C]&<D$DF2P LLIST 6II[R]2HDrD[F]CCAl=?=@FN [I]▚ OUT OUT ▝ MERGE w▚ POKE ZASN ▗ MOVE OVER REM "X OUT m7BIN PAPER BIN >= FLASH +=t SAVE DSQR RESTORE <>c8[A]J INVERSE ju[Q]' PAPER ▗0"[F] 3N▞[A]@Y'"FN ▘COS [F]CHR$ 5 ▜[B][E]▘ PLOT SGN $"▞[Q]" VERIFY [I][Q]▖ae POKE USR [A]g-[H]p`USR ▚P OVER t STOP Q VERIFY ][S]# - GO TO @n CLOSE # GO TO =[P]©ASN RANDOMIZE /VAL$ ]S▚S▚ INVERSE SGN G▚▚;IN y▚▚ BORDER 7G▚G NEXT ▚<[P]YEFEFH▙PILASN O[C][N]LEN M ERASE [N]U[N]%t LPRINT COPY ([Q]ABS LOAD LPRINT LLIST 8I% LLIST h[L] THEN [Q] RETURN LLIST 3 STOP j STOP [R] STOP [S] ERASE F READ $ DATA w DATA E) OR DATA NEXT V RESTORE %%=[P] FLASH 6 NEW FN NEW CLOSE # NEW BORDER COPY ,STR$ 8!dgz▘aLN OR ATTR 60$3ASN 0▖[E](-*' AND ATN $-[G](xH%M[C] THEN SD▛bSCREEN$ BD2cB6▞ /[A],CHR$ INVERSE ]STR$ 1 AND SAVE zx DIM GO SUB I REM X REM ▖k&& T^7 RESTORE H!P,F?B> STEP EA=D@<C?;4INKEY$ THEN QpQFWCODE 82bNq▗ STEP e LET 22PEEK 8>DJPJ] RETURN CODE RNDb[G]o[C]/b2 LPRINT Wb2o^I OR b[F][F]bP1TRYSQX COPY RPWQOg4▖[L]g LINE INT Z,>;▞ FOR 6@6$IN [T]6h MOVE !d INVERSE [U]19}FUP3PSIN LVAL$ KK>:[A]ATN STOP # LINE /(?s[B][R](▗▞[G]b@DUSR USR USR [I]d[S]▟0LEN [P][R]b?[S] LET }[R]p▗ PLOT READ C[O][S]Tl[A] DIM STOP STEP INKEY${$(USR DRAW Q53PQZ?'D$s@[K] LOAD POKE >]?8.9EXP (.d*V CLEAR 8ATN BORDER PAUSE [R]U[R]S,FD1[H]<AT POKE ATN [B]AT ▟E[A]ASN ▟[A]e READ ▘1[T]LN DATA ▚ RETURN S[G] DRAW IF Jg8:;=?▟ZA+▙%j217KA4K*P6J*08olCN RESTORE VAL$ .Sd[I]: LLIST 9)COS T CLEAR :IeU ;bwVRZ SIN r MERGE nFP(<>[G]9INT OVER PEEK DEF FN & LLIST BD4>bf^ PLOT 4@ TO R OVER B6RND▛D NEW K"b[A][M][E]3Nb[H]T[J]bJ/LKSCREEN$ VNPP LIST %[Q]D[A] PAPER &ACS NOT .*((Q#e*[C] FLASH ;(;7<>P;fSCREEN$ J?[C](FCOS ax.R[H]ZzUSR SCREEN$ ZFN [E]$R ^^ TO ▗ INVERSE bI2_SQR o2TAN [I]5 BORDER ihg[F]INKEY$ TO o▗ STOP VfCOS CODE 5BLN LIST [G] MERGE + PRINT FLASH '+0+x+[U]W TO PLOT N+-X▛ )▘[E]86 NEXT 7VAL$ OR ▘:[K]=/{VAL$ - RESTORE RETURN 562o{ INPUT LIST 6vTAN FLASH h6 PLOT [A] VERIFY ?[H]8 FLASH p?ACS `©( COPY FORMAT ?AT RETURN COPY BRIGHT =[W_VAL ~.+[H]ldATN ^h▛AT 0/EY▚hCODE FhVAL s READ [M]p DRAW OUT > STOP [Q] RETURN ERASE OR <= COPY BORDER f▗LEN COPY *[U] DRAW <~&ePke RESTORE <INKEY$eINKEY$ COPY z RETURN LINE [H] DEF FN ABS {BIN [D] CLS INVERSE PRINT ▗[Q]g:Ip RETURN ABS OVER ` COPY REM Ap COPY NOT RETURN TAB LPRINT ~ POKE N[Q]| RETURN |I FORMAT <}KUSR =i[Q][M] RETURN Y[A][O] LET COPY NEXT PEEK H CAT READ LEN ` BORDER MERGE <=[M]STR$ READ FOR ▙▝ LIST RETURN ▙! SAVE '▙1 POKE BEEP %VAL REM YVAL$ =`5-HRND*FGF[H]Q}[A]u NEXT gk LOAD kUSR STEP k([Q]@[L]{ COPY GO SUB LOAD PSIN ?USR LPRINT ?RRND4EXP kFPOINT " BEEP USR CLOSE #CODE LPRINT CODE OUT IN $ OVER VAL$ CLEAR ]© LIST IF [K] COPY LIST P( POKE }EXP DEF FN W[A]S LLIST ▜"9NOT BORDER P| RUN USR { IF LOAD #USR CLEAR DRAW Ef RETURN TAN R PRINT ~ CLEAR S COPY © COPY J[C]IN o▘ CAT P GO SUB ©ABS _▘ RETURN [N] CLEAR B[R]?=~>~LN }B`z COPY [H] CLEAR ©P$ IF COPY p PRINT COPY STR$ h REM IN DO STEP r@[K] CAT [P][Q]LN d VAL INVERSE ATN SIN STEP BORDER INT INVERSE LOAD @ INVERSE ABS ATN LN VAL `[Q] DRAW IN FLASH CLEAR IN ABS DRAW (PCHR$ IN NOT @PEEK COPY |ABS (U COPY ABS YASN [R]P~▟AT ABS [U][N][[B]BVAL PIFd@A% LIST AZ LIST FLASH @ POKE LOAD ABS PRINT OUT ABS IF JFN *?~ DRAW [K]JOP( OVER COPY y INPUT ~r PRINT E[R]RND1 NEXT NOT LINE v;t COPY *Et$(ATN COPY CONTINUE [H] LLIST COS <=# COPY STOP [Q]NOT IF T CLS [Q]n CLEAR LPRINT CLEAR ahMSCREEN$ ATN EGG RANDOMIZE COPY H[A][L][I]$[J][L]*;IAT '+ STEP PLOT uIN SQR IN LOAD @^ATTR [VAL$ TAB _` IF ▛ PLOT LIST RETURN 6© LIST COPY COPY LIST CLOSE #| SAVE LLIST LIST / COPY LN A|1 RANDOMIZE [O] DATA INK DATA |fs REM ([S]1 DATA R DATA INK CLEAR } NEXT | INPUT } RANDOMIZE RANDOMIZE BRIGHT ; CLEAR SAVE [Q] INPUT LOAD POKE f[D] RUN AND READ ▝ READ GO TO D= THEN }[?[J] MERGE SCREEN$ KU, BORDER READ BEEP VAL$ SGN [T]▛} RANDOMIZE w[H]PEEK 5©}9o© IF dPEEK tP FORMAT DRAW IF wxT LPRINT CONTINUE FN COPY @STR$ _B ERASE 3R) LPRINT NEXT t1N& NEXT LEN LEN [Q],<> CLEAR [C][M]( SAVE >=,P COPY 0 OUT IN ? COPY COPY [A]©[L]?LN -VAL SQR pZJ FLASH h!!$ PLOT >? LIST TO ~I[Q]< RETURN u▗,INKEY$ COPY *CHR$ ▗Z>= COPY LLIST [I]y[Tv?[K]©[F]~F@Q}KT@ COPY ! RUN E COPY LOAD '▟A OUT SQR ? OUT ▗ LOAD [C]H@ RUN E@} DEF FN ? LET LPRINT VAL$ LIST RETURN LSCREEN$ ! ▗, FOR !© COPY STR$ x*!_CHR$ |▚V@ COPY /H=▗#"[Q]'< READ RUN f FORMAT [G]ATN BORDER CONTINUE [O]; LOAD >=[M];m>=[M]SQR y,[O]ATN { FORMAT : BORDER wm CIRCLE ▗ COPY ? IF LN ▗ COPY VERIFY SCREEN$ 2. COPY ATTR } INVERSE BIxPEEK BEEP ] MOVE COPY SCREEN$ PEEK LOAD COPY E]` RETURN LN SCREEN$ [Q][U]Q(_LEN <= REM p MERGE B LPRINT ?(" OUT LPRINT ?[P]A2[Q] OUT INT READ P© CLEAR FLASH 0^ OUT CLEAR [A]7a INVERSE VAL VERIFY LN _[Q]7~'`>{EXP LIST USR DRAW { CLS PRINT RNDUSR READ = RUN @ COPY ? PLOT GCHR$ |X& RETURN TLV COPY REM [G]RND<= COPY CLEAR MSTR$ COPY RETURN CODE LPRINT ? SAVE O SAVE @FN [P] RETURN P_ COPY CLOSE #`B G?k FORMAT :nw> SAVE v5TAB ` PLOT 9TAB x VERIFY 8 GO SUB h[G]8 INPUT ``ATN ATN mh OUT PRINT INVERSE @[B] THEN LOAD IN p.ACS RUN [O]m? RANDOMIZE ©n. OUT © LPRINT g[L] COPY LPRINT 9[E]M<= LIST T$? LIST CONTINUE 5 COPY LIST FORMAT La LPRINT P[K]b LOAD DRAW LLIST IN u= DRAW STR$ 5g OVER ATTR IN x LINE READ PEEK RETURN s GO TO S OUT COPY LOAD P©' COPY a[O]? COPY xLG[D] GO SUB LEN [P][P]ATTR CODE [R] COPY COPY P(<> COPY FORMAT CONTINUE CLEAR [D] INK CLEAR [Q] OPEN # OUT LIST INVERSE c INK CLS USR [T] LLIST BORDER COPY [R][Q]PATN LEN LEN ? rsP~ PAUSE W A CLEAR RANDOMIZE INPUT © NEXT SAVE .USR ?@{[M]>= LET OVER SGN CAT |© LLIST <= NEW USR [L]▗?[R]%USR 7CHR$ ▜QW/R FORMAT OPEN #]LEN ©INT SAVE : AND EXP ABS `2 PLOT SQR 9x2 VERIFY h2<=;9`4 VERIFY ;zh7PEEK 9SQR FORMAT f(" FLASH D CLOSE # THEN +`f(@ CLEAR Us(U` SAVE USR RETURN > COPY T@©©SCREEN$ P` COPY ?P LPRINT LLIST ABS ▗X< }L`rx`IN SGN - IN |IN SAVE / OUT SGN @_~@PEEK ~@8[I]B OPEN #EUSR hPIq(P OUT FLASH DRAW <8 DIM [S]P▝ FLASH PAUSE ~]Y BORDER ~x[J].PEEK RETURN ACS > BEEP +} OUT DRAW DRAW / CLS PAPER D CLEAR CODE LIST * COPY INVERSE @/U CLEAR IF SCREEN$ REM OR U[E] PLOT B COPY IN COPY ▗ OVER COPY PAUSE }USR CLEAR LIST RUN COPY CLEAR [Q]PI[E] LIST LIST © LPRINT RUN RUN ©©?IN COPY COPY 0▜? INPUT INPUT ©{{▝?IN IN ww MOVE MOVE [P]ww==USR OUT ss CONTINUE CONTINUE cc[A][C]`oai LIST RUN `o``ss COPY 44`g COPY pw COPY POKE ▜ COPY "▗ COPY PAUSE $▛ COPY RANDOMIZE FORMAT BEEP COPY SAVE PW$ NEXT *▘ NEW 0▘ GO TO p▘ LIST H▗ COPY ps▘8;▘ OUT TAN COPY PAPER RETURN h▝ SAVE USR LIST RUN CLS COPY COPY 0 RETURN RETURN LPRINT BORDER CLS OVER OVER LPRINT LOAD [Q] INVERSE INVERSE CLS COS COS FORMAT BEEP RANDOMIZE PEEK PEEK [A][H] CLEAR EXP EXP CLEAR [P][P]07 CLEAR ▘USR AND >=▟ DRAW FORMAT FORMAT USR CAT RETURN ,, LPRINT LOAD COPY 0 CLOSE #▖xx[Q]CODE COPY ww>=▗;;@O[A]▞LN [P] COPY 9EXP IN ▜SQR ? COPY 2SIN [M]▘3COS [S]▘![R]FN ▘8LN VAL$ ▘[N] AND ▘STR$ !tqqqq▝IN ▘=ABS ▚▝ COPY 0▗[N] FORMAT FORMAT INVERSE <=▘ CONTINUE DIM ,▞ TO [E][F] COPY >© RUN © NEXT ▙© POKE z▘USR USR ▘[M][M]▚▞ BORDER ▚▚ COPY LOAD ( PAUSE ▜ LOAD o© BRIGHT BORDER ▘ INVERSE ▘[J]▗0LEN PLOT ▝[N]?STR$ LET DATA ▘ DRAW DATA qqqqqqqqqqqq▘88n▖[H]@_ COPY THEN ▗ BRIGHT USR OUT /▝[M]▚▘11▘qu▘ae[O]▘04$▗▚!▘v[Q]▘ CLS CIRCLE ▘ CLS ERASE ▘ NEXT DATA ▘ PRINT REM ▘ NEW PEEK ▘ LOAD CIRCLE ▘ LOAD COPY CAT PLOT ▘ OUT PEEK 0▗ OVER |▘ INVERSE ▝[I]▘[C]▗ BRIGHT ▝SCREEN$ [C]▗USR CAT CAT [C]▞ READ 00© CONTINUE TO STEP STOP ▘ACS DEF FN x{BIN 0▞ INVERSE [T] COPY [J]8SQR NEW ▝SQR 030COS COPY `c0ATN z▞{ [R] COPY <ABS "F▝▘>PEEK ▘:INT ▝>$▘^^T▝ RETURN ▚▘ SAVE RANDOMIZE ▘ DRAW DRAW ▘ IF IF ▘ PLOT PLOT 0$ PLOT *▘tuZ0p2▘1VAL ▖pp0LEN COPY vvlUSR INT ▗<SGN 07 RETURN [O]@GF▘ OVER ▘.VAL$ FN ▘..VAL$ ▘ll ▝mINT ▘USR ▘ CONTINUE TAN ▘ LOAD nqqqqQ▝ LOAD 800▘ BORDER ▘ RUN v▘ NEXT ▘[A] PRINT USR CIRCLE PRINT NOT THEN USR OUT PAUSE ai[G]▛ LIST LPRINT LPRINT PLOT LOAD LOAD USR OUT CLOSE #[H] RUN ▝▝[P] BORDER COS COS USR OUT LOAD VAL VAL LOAD P▘ OVER z▘ BRIGHT t▘[J]t▘8SQR z▗03 [R]▚zVAL$ CLOSE #qqqqqqqqq▚qa▝ RETURN ! RETURN ▝▝ RETURN >>▘__▘NN AND ▘[C]▘'PIT1▚▝ REM N%4▝EXP !▚▝▟$▝ LLIST ▖ ERASE 00▘▝ CONTINUE ▘<<"▖}}USR NOT COPY {{@{{ DRAW CLEAR COPY KK BRIGHT INVERSE h▝:▖;; COPY ]]0▘-- FORMAT ▘6ACS VERIFY [P]BIN OR @G>=03 INK NOT NOT 8; FLASH LPRINT LPRINT [A][D] FLASH LIST PLOT `g[B] LIST OR RANDOMIZE RANDOMIZE LPRINT BORDER GO TO xx`o CHR$ STOP 5 IF ▘ GO TO <▗ REM USR <=VLN 6CUSR COPY ~~0` SAVE H[U] RUN BRIGHT BRIGHT ? RUN IN IN GO TO USR OUT POKE ABS ABS USR OUT NEXT TAB TAB IF USR OUT RANDOMIZE FLASH FLASH [P] CLEAR IN DRAW NOT NOT PEEK RETURN kk▘[G]▘▘▜ CLEAR [L][L][A][D] CLEAR SGN SGN CLEAR IN IN /][Q]() DRAW [P][P]PS CLEAR AND AND CONTINUE FOR CLEAR NOT OPEN #`c RANDOMIZE STR$ INK / CLS ▝[N]▜ABS IN CLS =`o PAUSE NOT FLASH V▝lqq▝hAT [S]▘ CLEAR CLEAR ▘ CLS CLS USR ▘ CLS CLS ▘ THEN THEN ▚▘INT INT ▚▘SQR SQR q▗]] GO TO GO SUB ▘▜ LLIST q▗ INK READ READ qA[B] POKE <> LET PRINT LPRINT BORDER DATA LIST POKE `o PLOT [O]▝7tSCREEN$ ▘>=VAL ▘ BRIGHT SGN ▗ AND `c▘X[V▘ LPRINT READ / PAPER q[O]▘ NEW . OVER ▘ CAT ▘ OUT IN FLASH ▚▘ CIRCLE ▚▘ FLASH [G] FLASH LEN LEN USR OUT INK INVERSE INVERSE USR OUT STEP OVER OVER USR CAT REM OVER OVER ▘~~> LPRINT gg DRAW Sb[O][O]44 CLEAR PEEK PEEK ▘ SAVE NEXT DRAW PEEK PEEK [U] RETURN [O][O]N▝ RETURN SAVE W/5" INPUT ▝ RETURN ((▘ RETURN VAL @▗ RETURN pqt05:5@%F▝ DRAW SCREEN$ LLIST RUN RUN USR NOT CAT RUN RUN SAVE RANDOMIZE OUT RUN RUN DRAW CLEAR OUT MERGE MERGE DRAW CLEAR INVERSE 66/] INVERSE RUN RUN BRIGHT INVERSE BRIGHT RUN RUN [M][N]0▖ BRIGHT ww STEP [ GO SUB >>▛ GO TO GO TO READ READ [I][L]0N▘ CLEAR T▝ OUT 0P▘ READ READ TAN DRAW ▛: RETURN READ FOR |0▘ READ FOR @ RETURN ck▘ STOP REM [E]▘$ STOP ▝ CLS XACS POKE 6CHR$ pUSR pUSR pUSR pUSR pUSR pUSR pUSR pUSR PUSR [U]@USR ▗ GO SUB INT pUSR pUSR ▝ DRAW INT USR AND <▝c#<▘[T]ATTR p AND AND [S]▘▘ IF 0 AND p TO qqqqqqq▘!▝Yqqqq▚q0USR ▘ LPRINT CONTINUE q110 TO ▘ LPRINT CONTINUE [C]ACS AT " IF qrFr@r@r@r@r@▘ TO ▝ GO TO "@▝ GO SUB @▘ LLIST @`@/ READ ▖▛:▘ CIRCLE FLASH 0"FbL[O][P] DRAW pINT R:24rL USR © RETURN FN @ AND ▝ RETURN TO X:▘*SCREEN$ hF@▘USR READ ▚ LPRINT READ CAT COPY COPY COPY COPY DRAW CLEAR OVER COPY COPY SGN ABS 0▗ OVER RUN RUN 0▚SGN ABS TO INT ▘©© IF ▘kk: DIM >>K3▖ DATA STR$ <>[I][L] CONTINUE BRIGHT ▝"L▗IN GO TO RUN AT ▗ CONTINUE BORDER BORDER (▝ STOP B4▝ COPY 0P@▘#+TAN ▘aiINT 33ACS spUSR pUSR pUSR pUSR pUSR @USR ▗▝FN PUSR INT sUSR ▚STR$ <> DATA [M] AND `USR P AND USR ▝ STOP pUSR P AND ▘CKr@ TO zFN ▘ RANDOMIZE ## AND 3qqqqqqqqqqqq▘ NEXT NEXT q4n0FN 0VAL$ 3TAN ▘bj/▘CK4ssr@r@r@r@r@r@▘USR "@ GO TO 89"@ DIM @5@▖ DATA CONTINUE @F▝ FOR ▘ CONTINUE @▘ STOP ▝ RETURN pUSR pUSR CONTINUE ▘ LLIST DIM @ AND ▚2^▘`h[C]sSxJ CLS FN [B] RANDOMIZE [I][I] DRAW bb LET [O][O] AND CIRCLE *xtx~h▖▗ LET <=R▗ PLOT VAL ATN ▚ POKE [A][H] LIST PTXrACS xUSR x LINE ▝NOT ▟[P]FF?yy00x▝▜Jp▘x DRAW yi▝*[K]▝ COPY ^©© DRAW CLEAR Xy4y>yHiR▝NOT px▖[A][I] yxy▘i DRAW © CLEAR @▛ LLIST DIM / GO SUB `o▜ CONTINUE / READ .yPEEK y>=`~▝ COPY px!▖[A][I]py RETURN zj?IN RETURN RETURN z6pTAN ▘ CLEAR *▘ DATA DATA VERIFY *▝p2L▝USR FATTR BORDER MERGE MERGE [P] LOAD **@_ CAT PP@O OVER `o BRIGHT SCREEN$ SCREEN$ `g CIRCLE PP07 FLASH 0ATN PAPER ▛ ERASE ▗▗ FLASH PAPER RETURN RETURN vCUSR CLS CLS ©& CLEAR $▜}}© COPY AT ©||[I]©//[S]▝o▚ DRAW RUN z CLEAR BORDER ▚▗ CLEAR GG▘PIPIUSR DEF FN [O]'L▝ PAUSE ▚▘ CAT [I]▘ OUT ▘ OVER LPRINT ▘ CAT + CLOSE #▝ BORDER &▘▝2 DEF FN [D] RETURN }}XY RETURN PAUSE PAUSE [U]RND RETURN PRINT PRINT IF ▙TT RETURN REM REM INKEY$INKEY$ RETURN RESTORE RESTORE PAPER LPRINT FVr▜ STOP [A] RETURN HH▚[I] COPY oo NEW NEW SAVE ooVAL VAL PAUSE VAL COS PLOT ooLN SQR USR RUN ▚LN SQR NEXT RUN RUN 6▝ SAVE z▝3▗▘ NEW VAL ▘ GO TO X▘ REM USR ▝ RESTORE (USR qqqq AND IN RUN SCREEN$ SCREEN$ ▘[A][A] CIRCLE ▗©© NEXT ▛? CLS <><>IN RANDOMIZE ERASE ▘ INPUT INPUT RETURN ▘▙ FOR ▗▞ ?FF CLS ~▘~~▚[P]==[C]▘▚▗ NEXT READ FOR ▘STR$ <> ▘▝[N]*▝▝,▗ RUN =$▝ PRINT ▗ PAUSE ▝ABS B SAVE <SCREEN$ ;qqqqqqqqqq▚▘[Q][Q]2▞VAL ATN STOP oo FORMAT BEEP [E] FORMAT BEEP LOAD NEXT NEXT LPRINT BORDER BORDER STR$ STR$ LPRINT BORDER LIST FORMAT BEEP L NEXT [Q]PI1z[U]▘ RESTORE T▗ LIST (+.ACS ▝MB▝ RETURN -L DRAW LIST NEXT ▘ SAVE CLS ▘>=<> INPUT Z CONTINUE 0▗ CLEAR CONTINUE DIM 0▘ CLOSE # CLOSE #6▘ LINE LINE <`<▘ DRAW |▗ RETURN FORMAT OPEN #▘@A+lN COPY 22▘JJ RETURN ▜▖ NEXT NEXT ©"[S] CONTINUE ?=ABS ▘[N]▘STR$ ▘▗ RANDOMIZE [L]:▘SQR @ NEXT ;BIN ▘{0▖[P] PLOT y@_▝|$[A]▝ LPRINT REM ▘ CAT ▘ OUT $▘ BRIGHT PAUSE Z FORMAT >=▘ LLIST p▘ OVER ▘[N]▘<SGN [K]▘<SGN LINE ▗=ABS @_CHR$ <▘[I] RETURN ▘ INK l▘ FORMAT r▝Z▘▜TAN [F] LET //USR CAT POKE ww LPRINT LOAD RUN LET LET LPRINT BORDER NEXT INPUT INPUT ▚ SAVE [C] GO SUB ▝$ IF USR ▝[O]0INT qqqqq▝ RANDOMIZE ▘ CLS ▗ NEXT >=▘ DEF FN PLOT ▚PS COPY POKE ▘ PLOT PAPER >=▘ LIST >=▘ PAUSE SAVE ▘>▘OO▚▖~~ CAT CAT ©88$t▝▝4z▘<=<= ERASE RANDOMIZE <= BEEP Z▙▚[G]© PRINT 7© PAUSE ASN 2)qqqqqqq[M]qqA8▘ FLASH J▘▜ BRIGHT f▗wwVAL COS ▚8; NEXT BORDER BORDER tT▚L▚ PAPER [A]R▚ DRAW xy▙▘||. ERASE ▝ SAVE ▘ CLS >▗ SAVE LIST LIST INT CLS ©©▘ww0 VERIFY ▖ PLOT COS COS ? PRINT SQR SIN ▘ POKE INT ▗ LIST ▗▗ BRIGHT `▘`o#N RANDOMIZE ACS ▘ CLS T▘INT INT SGN ▘{{▜ NEW ss©▗8LN READ READ BRIGHT ▝4 CLEAR NOT THEN ? CLEAR CHR$ PAPER DEF FN ▘▝[J] PAPER ▘SGN ▗ LPRINT ▘ RANDOMIZE VAL INPUT ▝<= INPUT ▘ FLASH INPUT ▘ BEEP ▘<= PAPER ▘ LPRINT ▘0VAL ▘AT ▘[H][E]▘7ATN INKEY$ CONTINUE ▘[H] INPUT ▘+ATTR 0 IF ▘[L](▖<=LN SQR COPY CONTINUE INPUT ▗ CAT FORMAT MOVE `[P] GO TO GO SUB $▝=H▚ LIST LET RETURN RANDOMIZE RANDOMIZE 4[B] DRAW NEW NEW SAVE CLS CLEAR DEF FN DEF FN 8; CLEAR ▙▙psVAL$ pw DRAW DEF FN DEF FN d RETURN 3`3TAN h4qqqqqQ▘ RANDOMIZE ! IF CODE CODE ▘VAL$ VAL$ AT CHR$ ▘vv SAVE ▘▚▚ DEF FN ▘ POKE POKE LPRINT ▘ VERIFY VERIFY |▗ NEXT FORMAT FORMAT 6[F] BORDER [P][P]?IN ==▜▜IN NEXT NEXT COS `;f▘yl▜ BORDER }IN [P]O CLOSE # DRAW [Q]CODE LINE +@BIN qqqqqqqqqqq▚▟ STOP }} LPRINT LLIST CONTINUE CLS CLS LPRINT LOAD LOAD z▗ BORDER USR USR z LIST PAPER ▘ NEW LPRINT ▘ CAT ▚▘ OVER ▘ CLOSE #[C]▘ LINE [I]▘ LPRINT ▘ COPY v▝|, RETURN RETURN IF USR RETURN 0$▝l)▘lINT [T] SAVE BEEP ? NEXT BEEP BEEP USR [P] BORDER LOAD BEEP LPRINT CAT LOAD INPUT VERIFY VERIFY ` LOAD GO TO T VERIFY `o▝T[F] GO SUB lU`o GO TO RETURN l@o DATA INPUT RETURN O LIST FOR INPUT DEF FN ▘ CLEAR ATTR " FORMAT ▘ MERGE ATTR "▘ INVERSE MERGE (▘ GO TO INVERSE .▘ DEF FN GO TO DEF FN SAVE ▘ AND AND [M]▝BIN SCREEN$ `▗ RETURN >= OR VAL$ ▘F>=TAN ▝ AND DRAW USR CLEAR FORMAT /h*▙pUSR pUSR pUSR pUSR 0USR ▖ RUN LOAD BEEP USR OUT RUN USR ▞ CAT PLOT VERIFY VERIFY LPRINT LOAD PLOT USR USR ▘ PLOT USR ▗ PAUSE RETURN l CONTINUE SAVE INPUT RETURN AND ▝ RETURN USR O RETURN USR ▗ DRAW ATTR USR ▝SQR AND ▘INT SQR INPUT ▝ PAPER AND ▝ PAPER [G] ▝ DRAW ▘ RETURN LINE ▝ TO ▗ RETURN OR TO /z▝ OR ▘USR P$▝ DRAW [K] AND qqqqqqqqqA▝CODE 1$ CLEAR W!▘wWt▝oCHR$ DRAW BORDER n▘ RETURN AND hb▝ AND n▝F!`▝&[C]▝&!▝BIN :▘ VERIFY &TAN ▝iUSR r@r@r@r@q▗@USR OUT INPUT T@▗ GO SUB lT▚ RETURN l[P] GO TO @▗? DATA VAL$ SIN LET SCREEN$ CIRCLE F REM 1 CLEAR SQR DRAW ATN ▝ RETURN ▘ RETURN ACS 0▝ACS n▘INKEY$ACS CONTINUE ▘fINKEY$4▘Ff4▝ TO ▘ DRAW &▝ PLOT *d POKE SGN ▘ COPY COPY CHR$ ▘[D][D]▘▗ RETURN DD[C]▘88V[B] NEXT [P] BORDER ))USR CAT LOAD UU LPRINT LOAD ERASE ▝▝ GO TO c▘ CONTINUE ▖TT / GO TO ▘▘▝ RETURN Z CLEAR LOAD LOAD "00[O]#▚▘ DEF FN DEF FN PEEK p[C]▝A▝ DRAW CLEAR AND DRAW k@pUSR pUSR pUSR pUSR PUSR ▝ RUN USR ▘ RUN USR (USR ▘ PLOT USR 3. /3▘ PLOT USR ▘ LIST D RETURN ▘ DRAW pUSR pUSR PUSR [M]USR ▝ DRAW j"Lh0▝BIN ": INT RETURN EU OVER ▝USR ▘PUSR qqqqqqqqqqqq!0 ERASE ▘ RETURN h▘ SAVE CONTINUE BRIGHT n▘ PLOT t▘ LIST D[C]$[I] AND D▝ DRAW r@r@r@r@r@▘USR OUT @▘ IF ▘SCREEN$ SCREEN$ S▚ DIM @_C@t▝ LPRINT [Q]2.rFpUSR :VAL$ !t3 TO a AND ^ CLEAR DT#▝NF▚L RETURN |} DRAW AT TAB CLEAR /] SAVE FN POINT CLS ps PAUSE USR <=D STOP RETURN ▝ READ © RETURN © RETURN *~&$▘USR OUT POKE ▘ REM /▟ RESTORE @_ PLOT [P] LET IN IF DEF FN ▝ RANDOMIZE SIN V!B0.▞[M] COPY >PEEK ©5Z▗▚IN [F] READ p▗ / COPY BIN ▘ RETURN ▝<=© RETURN © RETURN o RETURN 0L[B]?;;mmRR{{FN FN 55@C`▝h© RETURN p>=p ERASE /d0t|▗[E][M][U]AT `LBIN p CLOSE #@ BRIGHT LET ? POKE DRAW IF $,qFqP/dl!t|▗![E][M]![U]AT }CHR$ q[A]Q TO [D] DRAW 89 BRIGHT BRIGHT JJACS ACS OVER OVER CHR$ AT AT BIN p4qCHR$ FINKEY$▝ RANDOMIZE VAL$ ▘ IF INT INKEY$ CLS 07TAB SAVE LIST PLOT @_STR$ USR OUT OVER CONTINUE CONTINUE @_[G]tu@_&INKEY$TT@_,AT VV@_-- ERASE ERASE @_HH##[O] DIM DIM ZZUSR OUT UU STOP STOP @_TT LLIST LLIST [P]JJpt@_::T▗▘03T RANDOMIZE ▟ PAUSE [I][L]@_ DATA [I][L] DIM ▞ COPY THEN HK COPY [C]▘$[U]p▗ PAUSE ▘deBIN .[G]▘ COPY [O]▘'PI▘ [Q]p▘3COS .▝j▘ INPUT [B] RANDOMIZE ggDE IF eeLM IF RESTORE RESTORE HI IF INVERSE INVERSE HK IF CHR$ CHR$ FORMAT OPEN # IF DEF FN DEF FN FORMAT BEEP IF @@[Q]PI RANDOMIZE ^^[Q]CODE CLEAR -- DRAW TAB TAB ▘ GO SUB GO SUB f▘LLf▘,, ▝AT x▘-TAB ▘,AT [G]0FN ▘2SIN ~▘qqQ TO ▘07,SIN ▘ LLIST LINE ▘ VERIFY tu▙TT? VERIFY UUIN VERIFY MERGE MERGE ▜**© OPEN #lACS ▗<>▝▘ FORMAT BEEP @▘ #▘FN ATTR ▘D▘ DIM CLOSE #▗ DIM ** OPEN #& CONTINUE ▗ OPEN #z▝▗&INKEY$[G]▝&F2SIN "[S]©SGN ▝ LPRINT !POzqqq▝7[K]qqqqqqq▘INKEY$INKEY$FN ▗ RETURN SAVE ▘ OPEN #0P▘[C]VVAL$ Qn▘))CHR$ ▘IISGN ▘ddCHR$ ▘.TAN ▝USR PAPER ,▗©▘▚2P▘[I][I]$▘yy*▘##▘ POKE ▗ PRINT [J][J]▝ RESTORE $▖ DIM © REM ▘- BRIGHT ▝ GO TO B▘D INPUT D▘▟▟SGN ▘ffCHR$ ▝[G]/▘ PAUSE x▗ PRINT ▛▛h▘+T▘kN FOR i? LOAD ht LPRINT oOz AND © COPY MOVE [C]?20▘ INK [U]CHR$ [U]▗[N]▜INKEY$▟-[A][H] COPY MMVAL ATN COPY ]]P COPY [[▘XX[I]▘[[2▘HHSGN ▘++CHR$ ▘%RNDD▘[F]ACS ▘ INVERSE [A]▗NOT '6[S]▘ THEN ▝ FOR ▘ FOR B LPRINT ▝6 ▝T▘ LOAD `USR qqq▝ CLEAR [I]BIN ▗ RANDOMIZE CIRCLE FLASH SCREEN$ 0@▝ CIRCLE ▘ FLASH FLASH ▘CHR$ CHR$ ▘ddVAL ▘`a DEF FN FORMAT ▘ DRAW P▗ CLEAR 8; GO TO PAUSE ▘X▘bbSGN ▘cc>=▘<><> DEF FN ▝ OR FN ▗ POKE [F] PAPER ▘ASN PAPER [E]5? FOR 4[P]>=▜ATN USR OUT OUT VAL qqqqqqqqQP▘%RNDBIN ▘[E] IF ▘ BRIGHT ,@▝USR SCREEN$ ▘ PLOT n▘ LLIST t▘ DIM SGN vD[G]▘ PRINT IF ▘ RESTORE [C][I]▘ NEW ▘ DIM b@vnVz▘ CLS 'rT▘ CIRCLE ()▘$%0P▘ CLOSE #0 VERIFY l▗ THEN PAUSE PAUSE DEF FN ▞ DATA COPY GO SUB ▝ STEP ▘ MERGE TO ▘ ERASE ▚▘CHR$ ▘ RANDOMIZE 0▘ PAUSE ▘ POKE [I]▘ POKE ▗ PAUSE ▖▛"▘ RETURN LPRINT ▚▗v&▘#[T]v0$VAL v:BIN ? CLEAR ▘▘[E] RANDOMIZE ▘▘▝ IF 00[E]STR$ STR$ @_ CLS AA@O IF LLIST LLIST / RANDOMIZE PEEK PEEK [F] CLEAR USR USR PW DRAW QQ07 RANDOMIZE QQ PAUSE SS? LET $[U]b0▘$$n▘JJ▘JJ DATA ▘RR TO 0 TO ▘▖▖ OVER qqqqqqq▚qqq▗ RESTORE ▚▘VAL ▘▗▚▝BIN h▘CHR$ ▗ CLS ▖▞! SAVE ▝~ STOP ▘ IF ![U]▝ IF "▘`g[G]▘) PAUSE 5Dwqqq▝ COPY ! RETURN oo NEW RETURN ▗▗0▘BIN BIN RETURN ▘DDSIN ▘eeJ▘==l▘EEV▘TT LINE ▘SS▘HH(▘▖▖pB▘[C][C]0X DRAW [R][R]SIN ▞ CLEAR !-@O CLEAR ae▘ CLEAR DEF FN CLEAR 15USR CAT DEF FN ▝BIN X;USR IH)R COPY DE0p SAVE ((▗<=<=[P]4▗USR OUT DATA FN O GO TO `o DIM 4▚ REM ▘▘[Q]CODE 0▚ REM ||[Q]CODE 00 GO SUB PRINT 60▘ PRINT ACS ▗ LIST SCREEN$ SCREEN$ RETURN 0SIN ▝TAB 0/P▝m[I]▘[Q][R]#▝ LOAD spUSR pUSR p TO ERASE ▝ DRAW USR ▘ RANDOMIZE USR ▘ CLS t CAT PAUSE INT ▘ PRINT INT ▘ PLOT 0USR 0▗ POKE ||▘ ▟INT LPRINT LOAD LET 9 CLS E NEW ▘ CLS BIN 0 TO ▘ CLS USR ▝ SAVE pUSR P AND p TO P CIRCLE ▘nn AND ▝[Q]` AND qqq▚qqqqqqQ▝INT !▝9!▝E!>▗ PRINT 15 ▝1>=▘POINT POINT A PAUSE 1▚▘jj00T^▝)USR ▝ INPUT iUSR r@r@rFr@[Q]▜? NEW IN :▘[P]:▘@_▘||:▘:▝VAL p2@F▘ LET L▘ DRAW USR :`USR rL@ TO BX▘ GO TO GO TO [O]p AND s/S▘TU PLOT v▝ LIST ▘ BORDER ▗▘▛((`o GO SUB )) /CODE VAL$ sUSR 1▝F▝ LLIST IF sc▘ LET #▝ DRAW ssssssUSR pUSR pUSR CHR$ ▝ LET 6▘ DATA ~▘ LOAD 1▘99▗[P]INT ▜(@_ GO SUB ((▘ INPUT INPUT Qn1?[O]USR qqzq▚INT qss TO qqrFtqqqqqqqqq▘ LOAD 4q2 IF 3pUSR sssssu@r@r@B@▝ DRAW @T@▚`o PLOT :▘ PAUSE @▘ PLOT @ttD:Tn" IF ▝ RANDOMIZE #▝ CLEAR 0r@tuLttt© RETURN L[H] RETURN SAVE CLS DRAW `c LET AND ? COPY `c POKE 8p©INT ©BIN _L "0JP $© DRAW © RETURN o TO ▘ CIRCLE REM ▗? RESTORE h▝ LIST z▘© POKE © RETURN © RETURN © OVER ?IN DRAW CLEAR [I]T© SAVE © RETURN p RETURN q0dl PLOT q? OUT `▝USR pSGN q:qDL FORMAT P GO TO POKE mzq|q▚!dp PAUSE ▗ LET [M] DRAW pst[M]p LINE qINT qBIN q DEF FN AJq REM q POKE © POKE © RETURN © RETURN © OVER ?IN DRAW CLEAR [I]T© SAVE © RETURN p RETURN q0dl PLOT q? OUT `▝USR pSGN q:qDL FORMAT P GO TO POKE mzq|q▚!dp PAUSE ▗ LET [M] DRAW pst[M]p LINE qINT qBIN q DEF FN AJq REM q POKE <># OVER COPY PAUSE USR IN RETURN COPY DRAW LPRINT BORDER COPY RANDOMIZE LIST RUN COPY CLS USR USR NEXT [C][C]@O RUN `o PLOT USR CAT DATA CC@O LOAD OUT XX[P]LN ▜INT IN ;SQR SAVE IF 0SQR IN 9EXP SAVE SAVE IN 3COS PLOT PLOT ?1LEN RESTORE RESTORE IN <SGN IN 1LEN DATA DATA ?,AT IN -TAB PAUSE PAUSE IN ![R] LIST LIST IN %RND LIST PLOT IN [L] LIST ▘<=H▘ OUT ▝[P]T▘?IN 0P?[P] LIST NEXT COPY <=VAL$ ▘ LIST INT COPY LPRINT ▖ COPY [P]ACS <SGN COPY 99() COPY qqlm COPY aa89 RETURN DD01 DRAW REM REM SGN ABS CLEAR PRINT PRINT ▝ CLEAR CLS CLS [A][H] RANDOMIZE IN IN [A][H] CLS 0▘[P][P]0 IF 07 CLS STR$ STR$ [Q] CLS aa CLS ooPW RANDOMIZE CLEAR //[A][H] DRAW OUT OUT ▘??N CLEAR COPY COPY T▚ COPY COPY FORMAT BEEP CLS 0P▗USR <= SAVE ▜ OUT RETURN ??[P]v?qqqqqqqqqqqqQSGN ▘[L]CHR$ SGN ▗ LOAD DRAW DRAW ▝ CAT ▘ OUT 0P OUT SAVE RANDOMIZE !▝ READ qqq▘@▘▘33@▘▘[P][P]!▜ RANDOMIZE CLS CLS ▗ASN z0LEN NEXT [P][P]▗ RUN ??pq PLOT lm RUN ▝▝lm PLOT >>`a PRINT ▝▝de PRINT IN IN 45 POKE ??▗ POKE <▜[F] NEXT ©©BIN MERGE /▘BIN MERGE z▘BIN OR z▗ DATA RESTORE NEXT ▘ RUN 0▗ COPY COPY LPRINT LLIST ▗USR CAT SAVE TO ▝ IF ▝"@▝ RETURN ps OVER ▗ CLEAR POKE PRINT ▗ CLS DATA RESTORE 0$ SAVE CONTINUE DIM $▘ CONTINUE FOR $▘VAL COS *▘ FORMAT OPEN #00B▝ LIST H IF IF COPY USR IF 6▘ SAVE SAVE ▘x{`▘ IF COPY NEXT BIN OR LINE ▝ RUN V▘ RETURN RETURN VERIFY ▝ BORDER © LOAD COPY COPY 0pp0$▘ LIST TINT NEW # IF ▘ BORDER L COPY CAT X▗ OUT @_▘>PEEK 0[E] COPY [O][Q]CODE COPY ;SQR `o COPY =ABS RETURN ▗=ABS IN *▘[O]▘ OUT @H▘N▘/CODE ▘f▘'PIl▘8LN 62 LINE ▘©© VERIFY ▝ CAT ▗ LPRINT LOAD RETURN 0t▝ BORDER X0@0*USR fqqq8© CLS RESTORE RESTORE OVER [B] SAVE FOR FOR ? RANDOMIZE FOR FOR IN CLS SIN SIN ? VAL ▘ PAPER PAPER 0p▘▘▘>=▘ REM REM 0 CLOSE #▘ STOP STOP LPRINT ▝ LET ▘ PLOT Q▝ BORDER ▚▘ LOAD ▚ © CAT ▚▘ OUT 0p▘ CAT [U]▘ READ !▝ SAVE qqqqqqqqqqqqqqV0$b▝ DRAW h▘USR CAT [C]▘ LPRINT LOAD 0 ▝ CAT !z▝4#▝▖@D SAVE CLS COPY QU▘qq▘;; ▝SQR LIST LET COPY BEEP DRAW CLEAR h!2BIN ▘ FLASH BIN INKEY$ FLASH LOAD LOAD INK LOAD LOAD @_ LINE @_<> RUN RUN ERASE © OPEN # CLS CLS © BEEP rVtZ▝ LOAD 0q[C]q[I]QSCREEN$ ▘ NEXT INT s▛? DRAW OIN CLEAR ▘[P][P]▘IN IN BRIGHT ▝ DRAW RETURN p▘©©|q,Q2@▘ABS ABS ▘ABS ABS STOP RETURN [N][N] GO TO RETURN [Q][Q]▘[O][O]▘ BRIGHT POKE <HNNZ0TqzqzQzq▚▗▝ DRAW LIST IF ▝dqqqqqqqqqqqq!▘ CAT !1z!▚ IF 0p 1[U]▘ READ qD▝ READ ▘ CONTINUE ▞IN REM OUT IN BORDER ▘ RUN ▚▖ PAUSE IF ,▘ IF "[K]&[K]▝ BORDER ,▘ LIST RUN ▚▘ps▘xx▚zz RANDOMIZE [Q][Q][A][P][P]88 IF [Q][Q]LN SQR IF ??[I][L]H▘ H▝ OUT 7VB INPUT Tz0pZ▚0l▘ DRAW "▘USR 4▘F[E]▗ COPY |}||#USR RETURN ▘▖POINT ▘▟ SAVE DRAW || SAVE CLS LPRINT ▘ps LPRINT ▘ ' LPRINT ▘[Q]CODE 0 ERASE ▛ PAUSE RETURN RETURN RUN }} LPRINT LOAD 0▗ PLOT ▘▘▘||P▖ POKE RETURN RETURN `o LET CONTINUE ▝.▘ / N▝/pNPTp`0f▘X CONTINUE [S]INT 6USR pUSR pUSR ERASE Tp AND AND USR RANDOMIZE CLEAR TO ▝ CLS [Q]h AND &▗[Q]CODE PLOT 0 ERASE USR P AND ▗ PLOT pUSR TO ▗ LIST RETURN RETURN 4P AND INPUT AND pUSR pUSR p TO !&x[I]▗z4qqqqqqqqqqqqqqqqqqqr@@":▘||r:":@▝ CLS Xf[K]▘ 'q PAUSE q PAUSE ▘ RETURN RETURN L NEXT RETURN RETURN USR CAT r@F▘L@0▘ PLOT .▝@:r@r@rFr:▝2d▘ RANDOMIZE (@▝ DRAW H@▝STR$ F▘[M]L▘>PEEK BIN ""©[F]cc©1LEN ▝▝[P]AA© MERGE **? OVER ▚▞[P] LLIST RUN RUN USR OUT PRINT CLOSE #[G][C]USR OUT POKE ~~USR CAT PRINT PEEK PEEK / LIST SGN SGN ▘BB▘<<▖▘▘ / POKE PEEK PEEK $▚©© POKE ▝IN ▝[P]PH0Np0`06 CIRCLE PEEK ▘>>B@pUSR USR ▝BIN COPY [F]USR ▗1LEN [T][T]pINT USR ▘ INPUT USR ▘ LPRINT USR ▘ PRINT 0USR PEEK 0INT [Q]▝ LIST [S]▚ PLOT SGN SGN /R POKE TO POKE ▝▝ / PRINT == AND REM USR @ AND pUSR p AND pINT 7pUSR pUSR qqqqqqqqqqqqqqqqqqqr@r@▝ COPY @▘BIN @▘[F]:RF@▗ MERGE ww▝ DEF FN @INKEY$▝ LLIST POKE F IF 2:F▗ LPRINT LOAD PRINT @242@▗ PLOT PEEK [O]:[U]▝?Fr@r@rLr[Q]-z▝ LIST r@b@D@G CONTINUE LPRINT STR$ OPEN #>= THEN NOT USR NOT MOVE ▖▛,▝[H] STOP PI IF >p<pD▜© LET POKE LINE ▖USR <= BORDER FORMAT BEEP FOR BRIGHT ▝ READ DRAW &tpxp▘R ▙@_ LLIST ▜ FOR FORMAT BEEP BORDER LPRINT BORDER $pACS pUSR ▘ LET N<[R] LET NOT >= THEN BEEP LPRINT READ AND pw<= CONTINUE FOR OPEN #USR NOT USR IF [K]pUSR 1▙▝ SAVE ▜ STOP '<> FORMAT BEEP <[A] CONTINUE FOR .VAL$ pq BEEP LIST LET D▖ FOR [A][D] DATA @G DATA ▝ GO TO q<T▝ CLEAR ▙ LPRINT / FOR USR LN [A]45,AT 01>=VAL$ ▝,▝©p@A8▝ RANDOMIZE <= LOAD LIST NEXT TO 8; INK [J][L] INVERSE 8SQR 0▗ TO 03▝ RUN $,pp@@[M] GO TO 03>= FORMAT [B]▟1LEN ▖▞[A]>=▝7p@0USR ▘ NEXT z▘ RUN [K] COPY REM ▚[G] FOR [Q]INKEY$? THEN LIST PLOT [P] BRIGHT LPRINT STOP @_ FORMAT >=<>▚ /[P]CODE 'PI CODE #[T]INT INT CODE %%POINT /EEEXP EXP /IIEXP EXP KK POKE POKE USR OUT KK READ READ @_ppQQ[P]KKUSR BIN ?;; LPRINT NEW CHR$ LIST POKE AT USR LET ? POKE RANDOMIZE RANDOMIZE © NEW ::▘xx>=0[G]8; COPY 4TAN 8SQR ACS ▗r▘<ABS %TAN ▝[N]%TAN ▝>z RETURN }}▘▘CODE CODE `▘INT INT [G]&[B]c CLEAR DEF FN DEF FN + CLEAR ▖▞ DRAW `` LET , CLEAR 99BIN OR CLEAR [U]RND CLEAR 0▗==FN POINT H[O]PS RETURN READ READ pw RETURN [G][G]. RETURN vvB▘ OVER IF 0▘ BRIGHT ~▘ INVERSE N▘ INVERSE [A]00▘ CLOSE #.`▝ OVER FN ▘ LPRINT qqa▝PI▚▝ THEN READ COPY ▝>=& AND [Q]▗ OPEN #[J][J]SCREEN$ ▝ MOVE 0▘ INK INK BIN FORMAT COPY DIM >=▗ NEW DE PAUSE PQt▖FN ATTR COPY POKE hiz▘ GO TO GO SUB ▘ BRIGHT BRIGHT zRB▘ VERIFY ▘POINT <ABS REM ©[N] LOAD ▝STR$ n:/z!▝ COPY !▝ COPY 1▘//[C]▘ RETURN ▘ DRAW q▗ DRAW LLIST LLIST t1▘33▘00▘;;q▘[E][E]▘ FOR FOR 1▚▜ RETURN ww^▝ COPY NSGN l RETURN ▝<=CHR$ ▘ BEEP [I][U]▘ CAT SCREEN$ USR VAL INT P0 IF CPEEK s&▞ STOP USR <= COPY GO SUB STEP `g TO ▘ OVER [I]>=<> COPY &INKEY$458▞▜ COPY CONTINUE [C][C]▘RR0t▘bbz▘22▘ll▚▘TU▖▝SGN SIN ▗ DIM @A[E]▘ DATA RESTORE NEW ▝ LLIST N▘ PRINT r▗ PLOT xy▚~▗ LOAD <=0 INPUT ▘ BRIGHT CONTINUE ▗[I] INVERSE N▝ PAPER ▘>PEEK F▘,,▘ MOVE MOVE `▘ VERIFY VERIFY [G]▖ OUT OUT ? CLEAR INPUT INPUT ▘TAN CLEAR cc[O] DRAW qq[U]▘IISCREEN$ ▘EE0ACS ▘FFSGN ▘JJ>=▘FF[I]▘%% PAPER ▝: DEF FN COPY $[U] PAUSE ▘<SGN SAVE ▘▘ AND ▘99 DRAW LIST @ PAPER [U]006/▝LN FN 0B▘3COS CHR$ B AND tq!▝ GO SUB ▘ STEP A[U]▗ CIRCLE FORMAT OPEN #▝ VERIFY ▗ BEEP LINE BIN [I][L] FORMAT ▘X[0" BRIGHT ▝k INPUT DEF FN ▝wb▘@Gh▘VAL ATN ▘[A][H]LN LPRINT ▘:INT CONTINUE COPY CIRCLE FLASH RETURN ▘ CIRCLE INK [U]▘ BORDER SCREEN$ ▗ LOAD >▘]t▘ STEP BRIGHT ▚ CONTINUE ©[J]▘<ABS 0 TO sq1▝ RETURN ▘ DRAW ▝ INPUT ▖▖ RANDOMIZE © IF X▗ SAVE qqACS ▘IISGN ▘EE0>=▘FF DEF FN ▘JJ PAPER LPRINT ▘$$A>▝[U] GO TO ▘=ABS PAUSE ▘PEEK C▝▜t▘'PI FORMAT ▝/ COPY .VAL$ (▘(FN p▝#![C]LzV POKE ▘ BORDER ▘ LOAD 8▘ LOAD 00[Q]AT ▘ AND BIN ▘ VERIFY J COPY OR ▘ FOR ▗ LOAD >= THEN P0T▘[A][D]`t▘ SAVE 0▗ PLOT LIST NEXT POKE 2 IF zr IF !t1z INPUT ▗ TO TO t▝ BRIGHT t▘ PAPER z▗ OVER GO TO ▚ CIRCLE LLIST ▝NOT 8PEEK 4N▝s▘zz GO TO ▗ RETURN IF IF $▘ LIST LIST USR [P] DRAW nnh CLEAR ll▘//X RETURN SGN SGN ▘ DRAW DRAW *▘||*▘||$▘SGN SGN *▘6▘PEEK PEEK *▘??▗▘77H DRAW ATN ATN Z▘▘[ IF ▘ THEN ▘ FLASH ▝[L]bTAN ▘[L]*P▝ CLS ( AND SAVE ©qqqA▝▘OOVAL ▘//!▝▚!▝[G]J▘%RNDP▘+ATTR V▙// DATA DATA COPY GG PAUSE PAUSE COPY WW[B]©ss<><>©PP©cc NEW NEW ▘▝ COPY "SCREEN$ NEW ▘ ( GO TO ▘AM`▗▝[N] CONTINUE FOR [I]= CIRCLE CIRCLE [O]▝ RANDOMIZE HINKEY$▗ CLS [I][I](.▝ LIST . CONTINUE ▘ RUN 9 LINE qqqqqzqqq▗ CLEAR ~~[U]tqSCREEN$ ▘ooCHR$ ▘oo PAPER ▝ RANDOMIZE N▘ IF T▗ SAVE ssz▘ss/▘ww/▘ffb▘nnh0nb(9 DRAW ntp00 $▝ SAVE [I]? NEXT ABS ABS AT RESTORE SQR SQR @O DIM BEEP BEEP / CONTINUE INPUT INPUT ▚ RETURN RETURN / DIM P▘ REM TO 0 REM ||[Q]CODE GO TO ▘▘`o0▗R▝ LPRINT ▗ RETURN LOAD P0@, [I]B USR [U]0▝ LPRINT 4▝ LOAD *ACS pUSR pUSR pUSR P CIRCLE ▘~~@USR ▝USR b▘SQR SQR LINE ▝ RESTORE USR ▟' DIM INPUT INPUT CONTINUE COPY COPY WUSR ▘USR ▘[A][H]0▘ GO TO ACS ▜w REM ▘▘[A][H]INT ▝ LPRINT DRAW 2$ PAPER 0`▝ DEF FN BRIGHT 0▗ CLEAR TO TO $▘BIN BIN P▗ DRAW ▙▙6▘USR USR :qqqqq▘{{qqqqqqqpUSR P TO ▘ DRAW 1zq▘ RETURN *▝ GO TO *▘9USR r@r@r@RX▘ DRAW DRAW .@▘ BORDER USR [E] DIM SQR SQR USR OUT <> BEEP BEEP @O FORMAT LOAD LOAD / MERGE @▘ MOVE @▘ ERASE @0▙ BRIGHT ||`o ERASE ▘▘[Q]CODE OVER ":▝USR AT :SIN r:rF▘ RETURN BORDER [M]0 RETURN gg▘GGp▘ STOP STOP .▘PEEK CHR$ :32p▘[A][A]A FORMAT ▘UU VERIFY X▗ CLEAR ))TAN ▘▘▘NOT OPEN #▘<=<=▘ NEW NEW 0 TO ▗ REM INPUT INPUT 0▘lls3▘ INPUT INPUT qr@R"▘..qq▘ RETURN PAPER ▗ RETURN qqpUSR pUSR pUSR pUSR ▘▘NOT OPEN #USR ▘ NEW NEW ▗ BORDER BORDER USR ▘ INPUT INPUT ▗ GO TO lls3 DEF FN r IF sssS▘ LINE LINE s▘@@sq▗ RETURN qqqq▘▜[H]q▘ DEF FN DEF FN 0qqqtqtr:▝ CONTINUE CONTINUE tt▝N▗ RETURN [Q][Q]ttpUSR r@r@B@▝ LIST @▘ BORDER @▗ DIM ▜[H]▘<=<=▘ CAT CAT IF AND ▘ MOVE ▘ ERASE @0▗ BRIGHT lls35:5(u@sss RETURN PIC_ TO ? CLOSE #/b▜ DRAW `c LLIST VAL$ ▘?(▘STR$ p.p8pB/>= BRIGHT LPRINT P ▝ RANDOMIZE 8▝ CLS FN INKEY$76pxp▘p~ INPUT fSGN ▝ LET PAUSE ▝ DRAW FORMAT SIN pSIN pSGN p AND F VERIFY ▜STR$ USR OUT ^pINT p INPUT p SAVE qGxt|▗Ynq0q:aD BRIGHT DATA GO TO POKE qq$qtq~pINT H/"▝?|▗!p▘qSIN qSGN q AND PCHR$ ▜LN [P] SAVE CLS q6q INPUT Q SAVE ▘ RANDOMIZE ▙▘ CLS ▖▘ CLS SIN ▘ RANDOMIZE &▘ IF D▗?STR$ ▜Z[M] BEEP BEEP IN ©©IN COPY COPY RETURN RETURN [P] CLS CLS RETURN RETURN USR OUT CLS CLS INPUT INPUT 0[N]USR OUT PRINT PRINT LPRINT LPRINT USR OUT PAUSE PAUSE USR OUT LET LET RANDOMIZE RANDOMIZE ▜ LIST LIST LIST RUN NEXT NEXT STEP BIN ▙ READ READ GO TO GO TO LIST RUN CLS CLS POKE POKE LPRINT BORDER SAVE SAVE RUN LINE ▘% AND DRAW ??8▘ AND AND LN ▘ SAVE SAVE ▗ RANDOMIZE pp@' LINE ▝ COPY 0z PLOT ▘?IN ▘9EXP ▘[K]▘-TAB VAL ▛ DRAW x{ LET GO SUB GO SUB x{ DATA ▟ LIST SAVE CLS RUN COPY COPY CONTINUE FOR RUN OUT OUT ▘ OVER OVER 00▘ LPRINT [O]USR CIRCLE FLASH NEXT <=<=[A][B] CLS LPRINT LPRINT /] RANDOMIZE AND AND CLEAR LIST LIST ~~ CLEAR RUN >▗ DRAW LIST LIST POKE RETURN vv AND ▘([I]▗[O]USR CAT SCREEN$ SGN SCREEN$ ^▘>PEEK ▘?IN ▗FN ▝▜SGN ▝ACS @CHR$ qqA▝© PLOT ▝USR ©|©}}SCREEN$ 0▘>>&▘>PEEK 0[L]©>PEEK [P]xxps OUT SAVE CLS CAT oo LIST NEXT BORDER 8 NEXT ? PRINT DEF FN ▘ NEW INT ▘ LOAD L▘IN USR CAT IN OUT [G]▞[P]/IN >>^▘xxn▘~~▛??oUSR CAT oSGN ▘a)▘▝ DRAW ▘qqqqqqqq▘ CAT CAT q▙<=<=▟ CLEAR PLOT PLOT CLEAR LET LET J DRAW RUN RUN VAL$ RETURN pp<<:▝VAL ▘ OUT CLOSE #▘[O] PAPER ▘88n▘~~▚▘>>d▘ LPRINT - REM CHR$ ->~+ OVER ▘ NEXT ▘ PRINT 0▗ LIST '!INT LOAD VAL COS ▘LN SQR v▘ OUT AT 0▘▝A▘>PEEK 8▗<SGN SIN z[O] AND 0l▘=ABS AND ▘▘PEEK ▘ LOAD LPRINT ▘ CAT CONTINUE ▘ OUT ▘ OVER ▘[M]▜?IN 88©?USR IN ▘?▖ COPY TO ▝=[I]▘ZZp▘[O]▘xx[U]▘ CLEAR CLEAR ▘ CLEAR CLEAR 806.B▝ COPY 6▘vv0USR x▖{{ DRAW CLEAR COPY ppCHR$ POKE ▘=ABS 0[O]▘<SGN ©VAL ?t▝?USR SVAL$ TAN ©qqqq▘ FORMAT OPEN #[I]▘ CIRCLE FLASH 0P▘ BORDER ▘ RUN BIN ▘ RUN FORMAT ▝ LET PAPER LOAD ▗ AND ▘>>▗ DRAW DRAW PLOT NEW RUN SGN NEW ▘ CIRCLE INK NEW ▝USR PAPER ▗ LOAD [M][M] PAUSE POKE ▗ CAT P▝▝l▝v▚USR OUT ?IN CODE ▘[Q] CIRCLE ©qqqqqq/SCREEN$ [O]?SCREEN$ ▘ RANDOMIZE RANDOMIZE qa NEW VERIFY qq"▘ OUT RETURN [G]"QCHR$ nFN ▘.VAL$ ▝USR p3:[M]0▘ OVER ▘ PRINT PRINT L) REM COPY LOAD LOAD LIST LET @ LIST ▘[K]▘FN FN [Q]▘CODE CODE INKEY$▘IN IN [C]▘ BEEP BEEP SIN ▝ OUT #▘ CAT CAT PEEK ▘USR USR BIN MOVE MOVE USR p▟w BEEP BEEP || LIST RUN WW}}▜B,t▘ FOR P▘ READ 0/0▘ THEN h▘ FLASH D▘ FLASH RETURN ▘ THEN VAL ▘ READ ▝ CLS DHJ▝ DRAW ▘ CLEAR 0▘ LLIST ! CAT TU%[I]▘ OVER ACS [B] VERIFY COPY COPY USR OUT [A]wwUSR OUT :INT ▜▜▝ RUN FORMAT ▘;SQR ▙=ABS {{USR >==ABS CLS CLS READ FOR <SGN [F] READ 8LN NEW NEW =ABS CLOSE # CLOSE #=ABS || SAVE RANDOMIZE [N] CLS USR [C]▝c CLOSE #▝ CLEAR USR VAL$ / LPRINT BRIGHT OVER $SCREEN$ IF ▘ INPUT INPUT >=▘ LOAD LOAD FORMAT MOVE hZ.▘ CLS ▗qqqqqqQ,▗ BEEP BEEP SGN ABS ▘ CAT CAT ▘USR USR >▘LN LN ▚SGN SGN LIST RUN [[SGN ▜ IF ? OVER POKE ▘ OVER h▘ OVER LINE ▘ INVERSE LINE ▘ INVERSE ▘ FLASH ▘ INVERSE 0* OUT ▘BIN :qqQ▝ FORMAT ▘ LINE X[P] REM BORDER BORDER .▝ READ RETURN ▘oov- FORMAT -▘▘ DRAW LIST ▘ CLEAR BRIGHT ▙▘OO▟▙▙|} RANDOMIZE ▝▝[M][N] CLS LOAD ACS ▜ CLS BORDER BORDER USR OUT VAL$ ▘ NEXT READ N PAPER < LPRINT [F] FLASH USR <= RUN [L] FORMAT BEEP BORDER CK LIST RUN LOAD READ FOR ▜ REM >=?PEEK 8Fe@5Fp[R] LIST <= RUN RUN LIST LET [P] RUN RUN DRAW DRAW ?IN READ READ RETURN RETURN =ABS ^^=ABS RUN B0>PEEK COPY COPY PEEK PEEK >PEEK RUN RUN PEEK PEEK <SGN ©TAN ▚<ABS ^▟8LN ▙▙>PEEK READ READ p$▘ RUN RUN d▛ RUN RUN @ RETURN RUN RUN I▘]▘[Q]0 ^R▘ LIST LIST VAL VAL$ nvvp TO pUSR USR ▝ OUT USR ▘ OUT USR ▖ INVERSE >> INVERSE VAL$ 0$[O][O] OVER RUN RUN [O][O] BRIGHT USR PAUSE USR ▗ OVER $USR $▗PEEK PEEK STR$ [S]▗ RUN RUN ▖▞▚[M][N] CLEAR READ READ ▗ BORDER BORDER [I][J]▘ NEW ▝[P]▗USR OUT RANDOMIZE 1VAL DRAW ▝`FvUSR q▚qqqqqqqqqqSGN ww REM ▝wwX▘▖▞^▗[M][N] RETURN ▝▝qq▚▘77d▝8&2SGN AND ww▚rLr@B@▝ CLEAR @▖ DRAW CLEAR >PEEK /].▘ BRIGHT INVERSE 0▚<SGN COPY COPY SGN ABS ©©8EXP @▘<=NSGN ABS @$:ACS :F0▝ RETURN ▗ RETURN NEXT NEXT 0`▝ DRAW ▘ CLEAR 0 CAT DRAW CHR$ 1▘x@▗ COPY IIz▗ COPY **TAN [B]AA<=PEEK PEEK SAVE SAVE [P]STR$ STR$ RETURN RETURN ?, INPUT POKE 2 IF 3:=ABS LL8LN COPY COPY [M][N] IF ▗0VAL PINT ▗[M][N]6ACS OVER ▘*SCREEN$ PLOT ▘▖USR ▘ BRIGHT ▘▘[M]▖▘>PEEK INT ▘<SGN USR ▝0 AND ▘pUSR IF ▝pUSR pUSR ypUSR pUSR USR USR ▘PEEK PEEK USR ▘STR$ STR$ USR PUSR SVAL$ 3TAN 0USR <SGN 0LEN ©©F3INT <SGN [O][O]8LN READ READ USR OVER AND ▗PEEK PEEK (FN *▘▞▘ STEP VAL$ TO 0.IN CIRCLE AND ▘STR$ TAN ▗ DRAW r@yUSR qa▝ LPRINT USR ▘USR ▘?IN pUSR ▘=ABS n04P▙PEEK PEEK [J]^^ BRIGHT COPY COPY ▙▙USR 3INT ▗▚▚ BRIGHT z▘ VERIFY [O]▘<>0USR ▘ INK h▙00▘ INK [U] DRAW sUSR sUSR zr@r@qqqqPUSR qqqqQ"FUSR TO "F▝[P]Q▚▚![P]CHR$ INT 6s@© RETURN O STOP ▝/▝w NEW RUN CLEAR LPRINT BORDER RANDOMIZE PAUSE ? POKE RETURN © RETURN © RETURN o FORMAT ▝ DRAW FORMAT ▗[P] CLS [E][I] SAVE ▝ RANDOMIZE GO TO )z© RETURN © RETURN ? OVER [Q]▝ LET |▚@O COPY / RETURN RETURN © RETURN / REM ©▜©© LIST RUN >>*© RETURN p PLOT qqt|▗[E]W2q6q@-N▝ RETURN ZAT P POKE Q RETURN Hpq~q▖dlt|▗![E][M]qSIN qSGN q AND q FORMAT ▝ DRAW | LOAD 0▝ LPRINT GO TO IF q INPUT q SAVE RETURN / REM ©▜©© LIST RUN >>*© RETURN p PLOT qqt|▗[E]W2q6q@-N▝ RETURN ZAT P POKE Q RETURN Hpq~q▖dlt|▗![E][M]qSIN qSGN q AND q FORMAT ▝ DRAW | LOAD 0▝ LPRINT GO TO IF q INPUT q SAVE <> CLEAR }}© CLEAR ))© SAVE ? NEXT [P] RESTORE ▜[H]@O DIM <=<= / CONTINUE DEF FN DEF FN / CONTINUE DEF FN DEF FN / DIM LOAD LOAD / REM INPUT INPUT [Q]CODE REM INPUT INPUT [Q]CODE REM ll[Q]CODE GO TO ▘▘`o REM RETURN RETURN [Q]CODE LOAD LPRINT INPUT INPUT RETURN ; CLOSE # COPY LLIST 4USR [Q] RETURN COPY DRAW [Q]PI COPY RANDOMIZE PW COPY NEXT LIST RUN COPY PRINT @G COPY PAUSE 0▘pw$[F] LIST USR <= COPY BORDER ps COPY LOAD 89 COPY ▜ DEF FN COPY INVERSE [E] FLASH SAVE SAVE ? FLASH MOVE MOVE IN INK LLIST RESTORE IN ERASE USR ▖ SAVE CLS COPY PAPER fSTR$ FORMAT BEEP f CLS LPRINT BORDER r▘ LPRINT LOAD x▝ CLEAR ▘ DRAW ▝ RETURN 0▘USR CAT [G] SAVE USR OUT ▗▘ PLOT 0▘[P] 0* COPY LPRINT ▖ LINE © COPY [F]▘??▘TT▘//▘WW▘$▖ww? RETURN ssJ RETURN LLIST LLIST @_r▝ LPRINT ▘ MOVE MOVE ▘ OUT OUT ▖ INVERSE INVERSE RETURN TO TO ▚▞ RETURN [D][D] / RETURN ll(▖hhIN COPY ▚▘<SGN [O]0▘=ABS SCREEN$ ▘9EXP 0[U]▘3COS f[G]▘66[M]▘ff[S]▘ccFN ▘ppVAL$ ▘ LIST qqqq1▘ NEXT ▘ RUN ▘ RUN ▘ PLOT ▘ PLOT 0[B]© RUN SS© NEXT $$© IF XY PAPER ▘[Q][T] LPRINT ▘FN ATTR CLOSE # IF HK▘ CIRCLE FLASH 0▘LN SQR SAVE Z▝;0t▝ NEW ▗ GO TO [L]<▘ STEP 0▗ INK OPEN #▘ INK ▘ STEP qqqqqqqqqqqq▚▘>PEEK ▘[O][C]▘ GO SUB t▘ STEP ▘ INVERSE ▘ INK ▘[B]▘8LN "▝(▘ LLIST .▘ DRAW 4sS▝ CLS ▘ PAUSE 2 IF C▜ RESTORE ▜ COPY CONTINUE LN READ VAL ATN COPY FOR [A][D]▘▖▛ FORMAT [K]▖? CLS VAL VAL IN CLS !!? RANDOMIZE [S][S]© CLEAR ▗▗`▝ CIRCLE 2▗ SAVE GO TO GO SUB IF ▘`aN▘ CLS #▝ NEXT ▘ RUN T▗ RUN 07#fr▘ GO TO STEP 0r INK FN ▞ INK 0COS COPY INVERSE 8ACS ss▘?IN ▘**r IF # RETURN XX LIST ▘▙▙ PLOT ▘;; DRAW ▘EXP EXP ▘xx VERIFY ▘pp BRIGHT #BSIN ▘6ACS ▙4TAN `o RETURN )) RETURN ACS ACS <▘TAN TAN FN ▘~▘>PEEK ▗▘[O]~▘▗▘'PI▘.VAL$ [A]▘[M][S]▘[J]FN TAN 0 IF Rv▝NOT stqqqqQ▘ BORDER ▗ RUN &▘ LIST NEXT LN /▘ GO SUB 0▝ FORMAT SIN ▘ CONTINUE l ▝&▘ RETURN RETURN "▘ IF $▝ LET ▘ POKE SAVE B▝ NEW q▘ TO [C]▘ INVERSE !▝[J]▘0COS ▘8SQR qtqqqqqqqar4TAN COPY [Q]`g$/▝![I]/▘▗ PAUSE ▘9EXP SAVE ▘=ABS Ant▝ INVERSE ▘ DRAW SAVE ▝[X LIST ▗ RETURN PS![C]▝ $*5 IF ▝ CLEAR IF ▘ RANDOMIZE " IF ▝ IF 6" IF ▝ IF CONTINUE ▗ LLIST @Cb▞ REM LN EXP COPY DIM ,-▘/]/▘ DATA 484>▝VAL [K]▘ NEXT STOP ▝F▛ SAVE 77USR OUT PAUSE 44BIN ▝STR$ ab!SCREEN$ ▗ BORDER x{N0z▘ BRIGHT dzn▘ INK CIRCLE ▘ INVERSE 0":>u IF ▝ MERGE ▘[P]" IF ▝SCREEN$ ▘[H]▘+ATTR DATA ▘ POKE ▘ATTR ATTR POKE ▘[D][D]V RETURN INKEY$INKEY$▘[G][G]▘NNh▘~~0▘USR CIRCLE /▘>NOT [M]▗>PEEK AT AT ▜ FORMAT MOVE COPY $$ACS ▗nn x0▘.. ▝VAL$ p ▝ RETURN 0▘ TO TO (BVAL$ ▘ GO TO &INT ▝ LLIST qqq▝ STOP h▘ DIM ▗ LINE VAL LEN ERASE ▘<=J▘|} OVER ▝[J][L] READ 4TAN GO TO GO TO THEN 7ATN INPUT INPUT 7ATN NEW NEW [Q]PI[D] NEW NEW @O FLASH BIN CIRCLE ▜USR @H© PLOT n▘ PRINT B POKE gz▘ RANDOMIZE n▘ CLS 0▘[Q]CODE ▗ RUN `cl▘(+▘03 PAUSE ▘ GO SUB %t▝ INPUT STOP qqqqqqqa▝ RETURN ! RETURN PEEK PEEK RETURN qa GO TO ▘oo0h▘ww[I]▘ss00$▘//"▘lm(▘tu.| LIST POKE ">▗ COPY ()F▘TU|V▗ RETURN FN POINT ▖0 ▝ DRAW L▗ CLEAR ATTR ATTR VERIFY ▘WW STOP ▖ GO SUB GO SUB [P] IF ▘▘ BRIGHT IF INPUT INPUT ▘ RETURN RETURN ▘ll▘||INT ▝ SAVE IF F VERIFY ▘ AND AND BRIGHT ▘ INPUT INPUT 0p▘ DEF FN DEF FN POKE ▘BIN BIN ▝ MERGE 0p▝D[G]▝ COPY 0▘DT INPUT ▘FV$▘@P)$`USR ▘~~pP▝ DRAW ▗ RANDOMIZE MERGE MERGE [S]▘ FOR FOR [S]▟ NEXT uu[P] PLOT SCREEN$ SCREEN$ USR OUT PLOT USR ▘ PLOT USR ▖ POKE ll@_ PLOT USR ▗ PLOT LIST ▘▘pUSR p AND r STOP ▘LM FN ▝EpVAL$ pINT pVAL$ ▘TAN /INT ▝ LIST q! COPY ||pINT p AND A▝ RANDOMIZE © CLS AND ▞ NEXT ooIN PLOT ▘▘▘ INPUT INPUT ▘ RETURN RETURN ▘ll▘||FN ▝ LIST z▗ RETURN qqQ▘ NEW NEW t▘FFa/1b@1t!▚1A[U]p AND B@B.▘ DRAW CLEAR r:rF▗ DRAW FN FN ▚"▘CODE CODE ▘]]qqqqqr@rLV▘ddqr4qp AND ▘@Qb:▝ RETURN DATA sr@ COPY DDBL`▝9X▝ DRAW BIN @▘ COPY COPY STOP ▖99IN RANDOMIZE "▗ IF STOP ▘ RUN @▘ LIST r@▘ LIST IF Lr IF su"r@r@qz1▝USR ▚qzr@sUSR SUSR ▘BIN OR s TO TAN @USR ▝ CLEAR USR ▘ RANDOMIZE IF [S]▘##pUSR ▘ VAL$ ▖ RETURN RETURN @_ PAUSE // AND #USR @3[M]sINT s AND sUSR sUSR s AND sUSR !tCUSR ▘sUSR sUSR r@# PLOT H▝ DRAW L▘ CLEAR hqQ▘ CLS bqqqqtzt▚r@r@sUSR tzpINT tzr@u@SUSR 3N3 TO ▘::pUSR @[A][N][N]? IF ▞▞IN @▞ PAUSE IN RUN ~~TAN ▘ttsUSR 3USR #[M]u:uFsUSR sUSR s AND sUSR ▘ COPY USR D▚f7[C]▙▟ LIST 01 POKE USR <= BORDER & GO TO ▝ LPRINT 6 REM v4v>vH<P▘ CLEAR POKE P▜ LET RUN USR OUT ,tpvp LINE `▝0 DATA [U] READ BORDER CLEAR j▝ DRAW vvSIN vSGN v AND v FORMAT f PAPER ▜<=?IN [E] p INPUT p SAVE qq0 TO ▝ |▗[E][M][U]w<wFqp POKE P POKE qqwww[E]/ VERIFY ▝?h▗[E]![M]96qLN qCHR$ q TO [G]▝ READ AT ▖w POKE w RETURN RETURN ▝yeINT Ct▙>=<><= CLEAR SGN ABS CLEAR TAN ASN [E][L] DRAW pw LET ABS ABS pw NEW //[Q]PI LOAD [Q]CODE ▞ DEF FN STOP STOP [Q]CODE OVER PLOT PLOT ACS PRINT PRINT INVERSE GO SUB GO SUB `o GO TO GO TO LPRINT LOAD // CONTINUE CONTINUE YY CODE [N][N] GO TO GO SUB CODE LIST LET CODE [R][R]ps CODE BIN BIN LN SQR CODE >=>=[S]STR$ STR$ z▘BJINKEY$ COPY !)8▘▘▘ PLOT [C]▘ NEXT + AND SAVE pqt▘<<*L▝▙▘ BORDER JDBIN ▘ CAT LINE ▘ BRIGHT ▘ FLASH 2▘ FLASH 8▗CHR$ ▜ THEN THEN RETURN eet RETURN SAVE SAVE DATA RETURN GO SUB GO SUB INKEY$[G][H] DRAW LOAD LOAD hk CLEAR ooHK RANDOMIZE nnUSR NOT IF vv CIRCLE FLASH ▘[I][L] POKE ACS ACS pw PRINT 66VAL COS PLOT X[ PLOT PLOT X[ PRINT AT AT VAL COS POKE 4 LET ,AT R▘[E]Z▘8LN 4▘0VAL PAPER ▘<SGN NEW USR qq![C]▘SGN ABS [I]▘TAN ASN FN ▗ ▘ '▘PS▘hkpsG ERASE ▟ AND POKE POKE IN BEEP --?[C]~©)POINT >=>=RND©ae''©`l FOR FOR ?STR$ <>EEIN CHR$ CHR$ NOT OPEN #IN INK INK OR MERGE IN [S][S][D]IN USR [P]ASN IN COS 3IN %uIN LOAD ;USR CAT READ LN >zBqqqqqqq▘ RETURN ▘ DRAW ! CLEAR vvUSR NOT ▖ CIRCLE FLASH CLEAR &&[I][L][P]8`c CLEAR [K][K]`o RANDOMIZE ▜▜ / IF ▛ATTR / CLS %[Q]CODE CLS k▙e[Q]CODE RANDOMIZE K / CLEAR @ DRAW SGN ▘88ACS ▘[M]▘TAN ▝ss6t LIST !SIN ▘LN LN FORMAT ▞ DRAW @_ RANDOMIZE [N][N] LINE ▘MM CONTINUE SIN SIN [P] BORDER ACS ACS IN FOR ▝ THEN ▘ OPEN #USR ▘[D] GO TO [T]?'PIiiIN **IN SS?cc8:IN [Q]FN XZIN USR DEF FN LN LN [F]BIN //IN QQ,,?bb[G][G] COPY %% LPRINT & PAUSE ▘j▚▝ DATA ▘ OUT + DRAW ztsS▘ INVERSE PAPER VERIFY ▗ FLASH [B] INPUT ▝STR$ >[J]<=P$$ CAT INPUT ▖{{&& RETURN {{:▜ RETURN SQR SQR hi DRAW [E]==@C RANDOMIZE // FORMAT BEEP IF LLUSR <= IF HH REM ▞ PAUSE [G][G]@_ POKE ▚▚▙[L] DATA [A][A][P]<>USR OUT [B]V@O"[S][M] CLOSE #<STR$ TO t COPY CLOSE #T▘ TO [M][A] CLOSE #▘ MOVE NEW ▘ BRIGHT LPRINT ▘ OVER stqs8USR ▝CHR$ RANDOMIZE [M][N] PAUSE LL #▗X[ RUN [A]▝s▚▘`g!▚[F] FOR CLOSE # CLOSE #IN REM STEP STEP ? LINE LL© CLOSE # DRAW ▘ MERGE /[E][A][D] COPY )POINT @A PLOT ▜( DATA DATA COPY QQ@[S][S] LINE D▘STR$ <>©▛▛,▘RNDl▞ NEXT 3© RUN uLN ▖ STOP w?▗ LOAD pP!~tta$▘▗[E]▝E▘[J]h COPY $[U]▗;;((▚ POKE ▚▘SQR SQR [N]p▚ BRIGHT BRIGHT FORMAT BEEP CLEAR ▗ CLEAR ▖▖:▝ RANDOMIZE ▗ IF ▚▚▘[B][B][C][K]▛▛[P] PRINT %USR OUT PRINT bUSR OUT NEXT i[P] CLS c[Q]▘' PAUSE ▘ DRAW ▖x▗ RETURN FN ▘ CONTINUE 'v▗ CLEAR SAVE CLS ▘ CLS (▗ CLS CONTINUE FOR ▝ READ ▘▛BIN ©+ATTR 8[C]▞ STOP STOP IN MOVE CHR$ CHR$ IN FORMAT ? © FORMAT h▚ COPY [A]▖ [Q]© [Q]0▘ [Q]$▖ ?@@0▘@@0p▘IN PLOT ▘[M]f OUT DRAW ^>▝t▝STR$ ~PEEK POKE ▖▘ OUT [E]▘[P][K]▘?IN [K]▘>PEEK INKEY$ RETURN >>AT [F] DRAW PEEK PEEK ▜ CLEAR PEEK PEEK VAL COS CLEAR [O][O](+ CLEAR ▘00▘03 ▝70▘ RANDOMIZE DATA 00▘ ▝ DRAW ▘▘0pp*▗ RANDOMIZE DRAW ©©/vJ©|![G]qqq▘ THEN ▘ OPEN #LN ▘[B]▘![R]P&▘@@0▝[P]/▘@_ ▝On▖[Q]CODE [Q]`o▘ A▘[A]!SGN 0@▘>= ▝ CONTINUE <▘ DATA B▘ NEXT PAPER ▗ SAVE SAVE RANDOMIZE DEF FN ▝ LPRINT N▝ RETURN 6qqqqqqqqqqtqzqqzq▚QtqSCREEN$ ▘ '-INKEY$ CAT RANDOMIZE >=▝ DRAW bFynINT >USR jt▘ RETURN RETURN ▝ LET ? RESTORE b[P] GO SUB FN ▗▖qqUSR OUT GO TO 0TAN ▘ DATA 0USR p0[P]▗@_>=O FORMAT [M]▝/0▘[A]▘ [Q]VAL$ [G]?IN ![R] LIST LIST `g▟ CAT CAT DRAW SGN ? CLEAR USR FORMAT LINE .USR ▝ DRAW .USR yUSR y AND USR @INT pUSR @USR ▗ GO TO DRAW DRAW pUSR ▘yypUSR pUSR p AND 0TAN ▘IN pUSR @USR ▝_USR ` AND pUSR 0 AND ▝/ INT o/CODE INT ▘[J]SGN ?STR$ <= BEEP J▘,▝ LIST lzz▚- IF p AND qq1▘99▚0pUSR REM 0t[C]zqqQ▚▝'▚▘1▙ [Q] LIST RUN [I]>><= NEXT Lz DEF FN [U]{@r@qr@qqApUSR qq▘ POKE pUSR B@F▝OFpUSR USR R▘0▘ CIRCLE 0INT ▘ CAT CAT H▞ LET ▙▙`g CLS ▙VAL$ V CLS [Q]F} FORMAT (▝>[C][O]0[O]▘II6▘]]~ STOP VAL DRAW [S][S][P] RANDOMIZE PEEK PEEK USR CAT PAUSE ]] ' RUN LIST RUN RUN MERGE MERGE LIST RUN PLOT READ READ VAL ATN PLOT RUN RUN VAL ATN RUN wwpw0 PLOT 6607 RUN AA▘©© LIST SQR SQR LINE ▘ SAVE uV▖ PAUSE COS COS IN POKE ▘ DATA ▗ CONTINUE eUSR DATA [T][T][Q]CODE PAUSE aaL▘ SAVE k CIRCLE ▗ RETURN LLIST LLIST RETURN CHR$ LINE F>=L0>=pUSR pUSR pUSR pUSR pUSR pUSR ▘ATTR ATTR USR ▘<=<=VAL$ LOAD LOAD pw NEXT oopw IF AND ▗ CLS 66▘AALN SAVE ?? VERIFY 0▖ASN ASN ▜ SAVE ssCHR$ >=▙ss PAUSE ASN ASN / POKE ss▖POINT POINT `o PLOT aa( LIST [T]ATTR ▘ck[A]▘ ( CLOSE #DFqqqqqqqqqq[C] USR LIST }}INT ▝ RETURN n▗ RETURN uu[S]▘[A][H][C][A][D] IF COS COS ▖▛ IF qq▚PI IF ii CONTINUE SAVE [T][T]J▘!)P▘ LPRINT GO TO pUSR <r@r@r@r@r@r@▘ REM REM F▘qq:▘{{0▘`gF▚ / RUN 66D▗AA`oUSR ▘$J▝ LIST t▘ RETURN ▘ASN ASN (▘ss4 IF 55TAN ▖cc[A][H] CLS )) CIRCLE ▘CCCHR$ RETURN LLIST DIM PLOT ▘ READ FOR ▘2@BF© RETURN ▝ COPY "[C][I][I] CLS bb LET GO TO GO TO AND 01▜[M]▝ COPY | POKE © RETURN ©p▝CHR$ [A] / DIM / RESTORE @O RUN USR OUT LET B© DRAW ACS x© RETURN ? RETURN ▝ SAVE SCREEN$ [A]?[P]FFUSR OUT 77▝ LLIST ▘▘ COPY 68© DRAW © RETURN © RETURN ▝ COPY CIRCLE ERASE ▖/ DRAW / STOP / LIST © RETURN yDyN[G]dlt|▗[E][M][U]y~y▖:Lp GO TO ` SAVE $,yCHR$ y TO /t|▗![E][M]![U]y RETURN zzV` Opnz8NPEEK 8© DRAW © RETURN © RETURN ▝ COPY CIRCLE ERASE ▖/ DRAW / STOP / LIST © RETURN yDyN[G]dlt|▗[E][M][U]y~y▖:Lp GO TO ` SAVE $,yCHR$ y TO /t|▗![E][M]![U]y RETURN zzV` Opnz8NPEEK <>o© COPY LPRINT © COPY BORDER [P] COPY LOAD USR OUT COPY CAT USR OUT COPY INVERSE COPY FLASH USR OUT COPY FLASH [B] COPY STR$ DT COPY [J]<=<= COPY $$ CAT CAT COPY {{&& RETURN {{[R]g COPY z[K]@ INVERSE ▘ INK ▘p MOVE ▗USR INK ▘USR p MOVE p> MERGE ▝p` FORMAT ▘USR [C] RETURN PLOT SAVE TO RETURN INPUT RETURN ` DRAW 8 SAVE COPY COPY OPEN #▘ CIRCLE INK CIRCLE q` FORMAT ▘USR [C][K]&l VERIFY [K] AND `p8d2ld`l INVERSE r MOVE r OPEN #r OPEN #r OPEN #▗USR >= INK ▘>=r MOVE B[C][I]Ff NEW [I] AND |h8`` AND d|fr LPRINT FORMAT r RETURN COPY NEXT q LPRINT MOVE A LPRINT VERIFY B[C] DEF FN v NEW RETURN dl8<USR AND hdv OPEN #▝q ERASE t OPEN #t OPEN #▝q ERASE `t@ FORMAT C LPRINT VERIFY D▚ DEF FN |BIN ▗f8▚CHR$ ▘`|t[Q] MOVE tPEEK COPY OPEN #▘; BRIGHT INK ▘; BRIGHT s LPRINT MOVE r OPEN #R VERIFY l>=▝z▖ AND NEW lpzl OPEN #u LPRINT OPEN #v OPEN #v OPEN #▗USR @ INK ▘@u LPRINT MOVE r OPEN #R[C]f NEW OVER INPUT AND DRAW DRAW ||8` AND NEW COPY PRINT ▘ IF _ INK ▘ IF _u LPRINT MOVE t OPEN #t TO ▝0c LPRINT g[Q]▟ SAVE SAVE RETURN 88 TO ▚ DATA RETURN ▚w@wUSR FORMAT s OPEN #s[Q] OPEN #sUSR OPEN #s LPRINT OPEN #t OPEN #u LPRINT OPEN #▘w@▟ll`dd VERIFY fh`fw@xUSR FORMAT u OPEN #u[Q] OPEN #uUSR OPEN #u LPRINT OPEN # RETURN y[Q] MOVE ▝p ERASE u`▗ff|▜. NEW p|y@yUSR FORMAT u OPEN #u[Q] OPEN #uUSR OPEN #u LPRINT OPEN #wUSR OPEN #z[Q] OPEN #rvvd<<f NEW y@zUSR FORMAT w OPEN #w[Q] OPEN #wUSR OPEN #w LPRINT OPEN #r CLOSE #r OPEN #w`▙n|`▚▚ DEF FN BIN l`{@{USR FORMAT w OPEN #w[Q] OPEN #wUSR OPEN #w LPRINT OPEN #yUSR OPEN #|[Q] OPEN #t`lz AND AND VERIFY >=LdzL{@|USR FORMAT y OPEN #y[Q] OPEN #yUSR OPEN #y LPRINT OPEN #t CLOSE #}PEEK CLOSE #}@ LPRINT NEW AND ▜f OVER 8 NEW AND 8}@}USR FORMAT y OPEN #y[Q] OPEN #yUSR OPEN #y LPRINT OPEN #{USR OPEN #v ERASE {` OPEN #{ OPEN #{[Q] OPEN #{USR OPEN #{ LPRINT OPEN #v CLOSE #©PEEK MERGE ▝ RETURN ▝< RETURN ▘ SAVE 0px' SAVE LPRINT ▚5▝o@R#? RETURN NOT 8▚_ IF 0 MOVE ▚ LIST Xp FORMAT ▟LN 81[C] NEW KLN ` ▘8LN <>▝CODE ? RETURN ▜eSpN@2SQR ▘ DRAW AND SGN PEEK ▗_▜p CLEAR © FLASH ▝_ NEW ▝ LIST p CLEAR ▝, CLS ▞@ COPY COPY LPRINT np▘4X`f5▗<`PT#X=STR$ lIN LIST }P FORMAT SAVE /QT<>▟@lJ^POINT J[U]'5Vr ▝l{ RETURN ▝ MERGE O/[I] LPRINT `pdSQR 8z` ▗CODE Gqz q LPRINT ▘? DATA STOP ▗<' DRAW p▘@y SAVE ▛ STOP >© COPY COPY RETURN |Gp▝G▘[O]H`.5▗/P8© CLS NOT VERIFY FORMAT ▚%P,P FORMAT ▟X VERIFY B^▞J$V5 VERIFY 5 ▘ VERIFY X<>▝~B@▗q BORDER NEXT AND B@@A▘`| ▗C▙8 LLIST q LPRINT © RANDOMIZE COPY BORDER COPY [P]p! LPRINT [A] REM LEN COPY COPY POKE NOT COPY FOR LOAD COPY NOT LIST /p▚/ COPY COPY ▟WH`f▝x LINE A▗ SAVE [M]q DEF FN ▘ps© RETURN ▟SGN VERIFY [ OVER <>K8% LIST AT R ▘ VERIFY SGN FORMAT ▝`r@r8|d![Q]A▘|d2Z LPRINT SAVE BORDER COPY OVER ▗ COPY BORDER BORDER p LPRINT ▗@xSCREEN$ [Q] ▗ CLEAR U MERGE _P PUB▗n` DEF FN 5▙8 LPRINT @▝CHR$ LINE B[Q]▝<=r© IF ▝NCODE P▘ po CLS < VERIFY J▚ COPY COPY AT p ▝ VERIFY "SIN TO ▝`r@s8d`2t▘2/ INK A LPRINT ▚ BEEP COPY LPRINT COPY BEEP 1 LPRINT `! LPRINT B ▗SCREEN$ [Q]▘ATTR R `d`b VERIFY LzlGqx@qt▝[Q]▝@tq? RETURN ▚4qo CLS ▟^lJRPOINT 2[U]/ IF /! ▘l^ FORMAT ? LIST |u@o IF ▗b8`z4t▘aNOT 44Z LPRINT STOP >SCREEN$ USR COPY RETURN SCREEN$ DRAW # LPRINT `! LPRINT 4 ▝=[G]▚|' DRAW `p~'▟ LPRINT RETURN f8 AND NEW ~▜p DRAW @u_v▝[Q]▝USR vr? RETURN ▝ LPRINT ▝/rs LPRINT 82R NEW 3[U]H[F]T CIRCLE ▝8s LPRINT © RETURN SAVE B@<>▗ RETURN DRAW ` AND 6t▘▖6u LPRINT ▞vUAW COPY COPY PRINT AV LPRINT pe LPRINT v ▘▖v, FORMAT ▗▜Gqq CIRCLE [Q] MOVE ▝I▟▝<> FORMAT ▝ OUT A ▗ @ THEN Gqw? MOVE ▝p~w LPRINT ▜<FN *IN IF LPRINT p LPRINT ▘D INK ▗DB INK ▘Bp MOVE p OPEN #▗BE INK E[D] BEEP ▘Gp MOVE p OPEN #p@ OPEN #p` OPEN #p OPEN #p[Q] OPEN #pUSR OPEN #p LPRINT OPEN #q OPEN #q OPEN #▗GBEUSR GFFGGFFCCp▘EBCHR$ E▝GNOT B▘GBSTR$ P▝G<=E OR GNOT P@ $0.p@`▘EGCHR$ @▚CC p`▘Gp`P`▝p▝E [N]P▝0^SIN 0p LPRINT 0 CLOSE #p GO TO LPRINT q OPEN #q OPEN #▗GBEUSR GFFGGFFCCp▘EBCHR$ E▝GNOT B▘GBSTR$ P▝G<=E OR GNOT P@ $0.p@`▘EGCHR$ @▚CC p`▘Gp DRAW OUT COPY GO TO PRINT USR ▟ CLEAR ~' CLEAR w CLEAR ~ DEF FN <>▝[D]@▝ OVER 0 CLEAR ~% CLEAR ~-▗ CLEAR ~ -▗ CLEAR ~ 6[R]<> INVERSE ~ INVERSE w INVERSE 6V INVERSE 6USR INVERSE THEN NUSR INVERSE ~ NEW TO <= INVERSE 5USR ▝o`▞ STEP <= STEP /▗(▝[G]4▝ 4[R]~ RETURN ( INVERSE 4!EXP USR STEP I▙~ INVERSE ▚ INVERSE w<> STEP j▙ NEW AND INVERSE wV▝ VERIFY Pb<>`|▝ ERASE |▖ STEP COS DEF FN : CLEAR ▘ CIRCLE w[M][ STEP INVERSE ^ INVERSE V STEP / CAT STEP OUT DEF FN STEP 1 FORMAT :W[F] RETURN FORMAT !>8 STEP P FLASH CIRCLE !NOT STR$ `<>▝<>▝STR$ <>CHR$ R STEP NOT ▘(pG OUT DEF FN NOT 1 FORMAT [I] AND [I]6L -0 DIM 09 t[R] MERGE [ STEP MOVE INVERSE ~ INVERSE INKEY$USR INVERSE s INVERSE r<>> STEP DEF FN > DRAW STEP DEF FN 1▝▜h▙: RETURN ( INVERSE 6:NOT B STEP 1▘9qV▝AT pT@>=▝ RESTORE Po▝ MOVE FN 0▟▝%n SAVE vP8<>{PI( INVERSE ~ NEW !▜<=/▗ INVERSE ~▚/▚ INVERSE ~ NEW AiaNOT ▝NOT ▝CHR$ qGqGqGNOT CAT a PAUSE ▝Hp/ CIRCLE STEP MOVE DEF FN p"R▝jQ INVERSE 4"▝~ VERIFY )▝▛ ▜6 INVERSE 6! FLASH ▖~PI( INVERSE 5 PAUSE ▗ LIST *INKEY$POINT u INVERSE tp*FN 0 INVERSE t STEP NEW ~ INVERSE PEEK P6 AND /_5PIg0lXr[D]▝ DIM @"[D]▘ BRIGHT b[C]▝ATTR ▝NOT r[C]r[C]6 [C]▝2[C]▘KNOT r[C]r[C]R[C] ab[C]r[G]3▝h g^{ PRINT ▖▝z RUN DRAW ▟ STEP a▗>={ GO SUB D INVERSE wz▝0 INVERSE VAL$ #S▝POINT PFN 2▘ r]r] 2^r INPUT PI▘ FORMAT c[J]▝ LOAD INPUT s3▘ CAT s3▝%sPI▘PI>=RNDW INVERSE 6s POKE ▝J POKE ▝BIN xATTR ▘>=ysy3y▝VAL @/▝ MERGE MOVE ▝ MOVE {[G] THEN " THEN # THEN # THEN #{PI THEN "SIN >= MERGE !>▚ MOVE CIRCLE ,s,rs[B]TZ▝VAL fC[B] STEP NOT BIN @ RETURN USR NOT KC OUT ^▘zNOT R$▞▗CODE 2▟▝ READ [J]▟ FOR BIN STEP OR O![I]b[D] NEW (6 OUT 6 LPRINT <>6 DATA 6 RESTORE <>!"cP▟ 6 AND 6 STEP <>6 BRIGHT 6 INVERSE D MERGE !4~©▗▜▜ GO SUB D3COS ▝: DATA ▗ OR NOT AND d PRINT ▝K$ PRINT _▘>=W CAT STEP CAT s(6p6[O][J]▝ LINE t[J]$R▝VAL sR▝[K]@*sRqBqBaB▘zCOS =>q=t DEF FN E[H]▝ PRINT [S]▗ SAVE INVERSE wQE▘ AND ▝>=qCC[F]▖~< RETURN CODE t!. AND t0%u▘e GO TO ▝B GO TO ▝ AND p ERASE ukd$▚ THEN FUSR > DIM INPUT RETURN ▘4 RESTORE PEEK USR INVERSE 5▝▘@0$▝ COPY $▝".+6^^vY▝CODE @-vYFY[B]@vYFYINKEY$ RETURN (Y▗ THEN ?!% COPY v[v[&[ d▝<>BIN { THEN ' THEN 'R▘ THEN 'TFl▝vpq▗<= STEP [<=s CAT s CAT ▘<>r[I]!U DRAW ▗ VERIFY V▘▜<=v RESTORE <>USR v<>▝[L] YV<>E TO >=[N]76▝▝Q▘<==▞ INVERSE ~ INPUT INVERSE wGe▝ CLOSE #@9 STEP >=Wc6 GO SUB p-p-Pf INPUT ▝ MERGE ▘[B]▚{ TO DEF FN MOVE MERGE 3[D]▝z TO DEF FN MOVE w OVER ▝4 OVER ▝>=u GO TO u GO TO !~=USR 4>NOT b>=& STEP ▚USR STEP r>!POINT >= MOVE INKEY$PIUSR 5#^#V!>= INVERSE RESTORE RESTORE MERGE STEP BEEP ▙NOT STEP ! PLOT ▘"▝> STEP STR$ STEP <r!▞▚ STEP ▜▙ INVERSE LLIST <>7IN r DRAW <> IF >=<>;<>[<>}<>[M]<>ASN <> DEF FN <> GO SUB <> LINE 4 LINE L LINE k LINE ▗ LINE [O] LINE ATN LINE CAT LINE INPUT EXP LINE THEN ! THEN : THEN R THEN z THEN AT THEN BIN THEN CLEAR THEN TO DON'T SHOOT▗ THE FOOD!▘<>TAKE BUCKE! TO %▗WELL0$▝EY▗@ALTAR0D▜NOW, G7 :CDRAWBRIDGE@B" FIND0 ▗SECON ▘P$▘ALp▝8`Y EXITpQpQpQpQpQpQ!!CRYSTm▖TO▗ PASS!EXP ▗GONS1▘pATN p~p CAT p CAT p CAT p CAT i▗THIRp CONTINUE ▘p CONTINUE OURTHqqqppqqRqRqRqRppppqqqqq▗▖EXCHANG2?▗COIN=FOR"c▗PEARB?PLAC2d INB'▚HOLE O LLBQqxq PLOT TAB ▖COLLEC TO ▖EVEN MORM▝PPOINT PEEK O R▘ALCHR$ USR r/q<>q<>RG▝▖▞GRATULATI SAVE <CODE [L]YER!▘CODE 2 RUN >=<>:▚PI . STEP STEP TURSGN ▘APACS ▘VE DIM POKE ▗ PRE@ANY2 OPEN #.x0.▗DISKp.p.p..▚REW#!▘O [H]▝R▞▚OF SID[O]WO▘ ▞▞USR : NEW LIST TO [N] TO [A]▝P▞LOADING - ASN [K]@* SIN ▞▝<=STOP2▟NOT ▝▙` ▝ ERASE ERRSIN ▝-<L FROM ▘▜BLOCK.▘ IF 5▘▝<>C▗5NOT CLOSE #>= COPY <> OR ; LET NOT STR$ [R]CHR$ ▝<>( CLEAR NEW = GO SUB [E] POKE <> INVERSE n INVERSE fN#FCODE STEP TAN r STEP OUT STEP @▝[N]@INT INVERSE 45?▝| ▗5(07[C] INVERSE u INVERSE tATN :SIN ▗*AT ▗0 INVERSE 6[N] STEP AND STEP PI| PRINT LN xU[B]|PI IF CLEAR STEP USR x AND ABS 8CODE <>>PI▚ INVERSE f STEP @Kk[F]▗ INVERSE f j[B]<>!9:GACS PAUSE 2 DEF FN THEN ~ C>@1▖ GO SUB Kz STEP [R] DEF FN RESTORE 0/ GO SUB K0▝!p▝#0[I]STR$ GO SUB B0ABS >!<> INVERSE N INVERSE Fo&z~,fo PRINT INKEY$x INVERSE N INVERSE F STEP e▙ LET AND P▘> CODE GO SUB B>=< FORMAT DM! GO SUB B GO SUB D<>]▘ STOP ▚ <> LET INVERSE 5 COPY !5<> STEP ! DEF FN PRINT STEP u DEF FN _ LET STEP ▗ DEF FN W,▘FUSR v OUT ▘ 6▜( RETURN ([A]▗ MOVE <> MOVE p& &▝ FOR 0&▝ DATA &▞ LPRINT RETURN ( BRIGHT RETURN ( CIRCLE 0.0Pw pRR FLASH R▝PRwH▗ DIM 0z▝ STOP z▝ OVER T▝ PAPER T▝ VERIFY 00z<▜▘ AND !PI CAT M[K]▝ CIRCLE USR zk▗ THEN N>=9<> COPY P-▝ STOP p--▚( INVERSE THEN ^ +7 BEEP ▝ BEEP [D]<> COPY `;▘ FORMAT phZ▘ COPY USR COPY ]P▜▝(pFN PV▝#▘ COPY COPY I▘{PI:▝USR _RND▜ RANDOMIZE ERASE > STEP b>=[C]4 THEN ^>=!"[S] GO TO !"[U] GO TO >▚NOT OPEN #"▖ STEP Z CLOSE #NOT 1 CLOSE # GO SUB ▗STR$ >4NOT PRINT ERASE XC▝0▝0060<ppp$p*[C]. OPEN #NOT Z CLOSE # CLEAR ~ GO SUB D CLEAR w CLEAR ~[A] CLEAR ~ CLEAR VAL$ ▚ CLEAR w $ ▝0 PAPER LINE 9▖6 COPY <> CLEAR 5 LINE [T]▝[G]▘P*▝0EXP p OR POKE "= STOP !"? STOP NOT ▝▙"D STOP !"F STOP STEP USR q▝▘ STEP GO SUB ▝@"▘7 NEW "▘9 NEW 6▝>$"> NEW !$"@ ▝ "E"G (▝f▛"VAL DATA !"SIN DATA r▝z"[L] DATA !"[N] ▝ "POINT "ATTR (▝"[S]<"[U] <▝ACS ""ATN DATA !""EXP P▝ LINE ▛" FORMAT REM !" ERASE REM VERIFY ▝ (▞"" INK ▝ PAUSE " REM !" (▝"▞" OVER REM !" LPRINT <▝ NEW "▝ NEW ▘ CLEAR RESTORE M[D] CLEAR & CLEAR o CLEAR ~ RETURN ( CLEAR 4 CLEAR LLIST p ▖ STEP j CLOSE #c *P STEP J CLOSE # ▘RP▗Z CLOSE #F2:▝n▘6b9q4>c▗[G]q#q RETURN 1 RETURN "! LINE ▘ RANDOMIZE INKEY$▞ CLEAR n6▝ CLEAR CODE ▗ FOR CLEAR ^p[N] STEP USR ;▟ CLEAR THEN V CLEAR LLIST FOR >= STEP INPUT OPEN #>p$p$ P NEW ▝ OUT " NEW USR ▘ OUT OPEN # CAT 0p0,▘>5 PLOT ▝ CLEAR S?▝<>@0▝ B▝0pPZ▝)n12 STEP CLS VERIFY z▝CODE 1g@v▝P|qn▖ CLEAR LLIST / CLEAR ▚ CLEAR whSTR$ INVERSE [G]2▗ STEP INKEY$▞▗STR$ ▝▟ RESTORE ▘, INVERSE DIM ]▝ OVER NEW ▝▚ NEW ▘ INK <>,▝,$CODE ▘ COPY CLEAR ▝ CLEAR ▝ CLEAR q<▗USR CLEAR LLIST p!Lp/▝% : NEW TO ▝[B] CIRCLE LN ▘, STEP [E] INK MERGE ▝INKEY$@> LIST t▝ CLEAR ▚ASN [N]~USR STEP F VERIFY CLEAR ~ CLEAR RESTORE CLEAR !TAB ▘ STEP AND ▚ CLEAR LLIST STEP INPUT MERGE CLEAR ~PI IF INK CLOSE #AT ▗^>=>▗>2 RETURN ▝zY[P]! THEN ▚ STEP ▚ MERGE LINE [L] MERGE :PI IF w!G THEN PEEK !)z THEN [G]NOT MOVE r▚▝R▝ CLOSE #▝ MERGE p▚0▚ ▝@▚▝Gp▚0▚▝COS p▚▚▘_ MERGE p▚P▚▚▝▙p▚▚▝9▚▝0▚▗ CLEAR 6I[J]▝ RETURN ▛▘! LINE [L]>G2ku2vu2▝u2u2[H]u2[S]u STEP CODE STEP CODE <x▜GAM9s▘.▘ML▝!▘L}Q▝5▜NOT o STEP OR v CIRCLE =r CLS >A STEP E▗AUSE CLEAR SCREEN$ ▚STR$ v STEP [P].▘0 RUN MOVE v CLOSE #[S] INK STEP IN v8 LET ▝IN ▝ NEXT MSCREEN$ [C]NOT ▜▙ STEP RUN ▘ STEP ~ VERIFY CLEAR THEN FBIN AT BEEP NBIN MERGE ▗VBIN CIRCLE ^BIN )PEEK [F] VERIFY STEP T CIRCLE TO USR <>` FORMAT NEW 6▝USR m▝[G]IN NOT ! LINE VERIFY INVERSE ~▜.4▖>= CLEAR w#=(SIN CLEAR ~▚ CONTINUE (<IN 6 BORDER ▘ CLEAR ▚?CUSR >=▝>▞PI xV▘5▜▜ CLEAR !0z OR /PI IF %ABS ]▝ INK ^ &LN [B]VAL$ CLEAR STR$ FLASH CLEAR LLIST *"S BEEP *SCREEN$ ^CODE THEN # AND _W RETURN U RESTORE OR FOR !RND[D]+ INK STR$ LLIST # DATA LLIST GO SUB [ CIRCLE <> STEP 1[Q]h[T]▘ CLOSE #xVAL INVERSE THEN ▚ STEP m▗ STEP FLASH ▜ THEN _ PRINT BIN [M] BEEP LET RANDOMIZE AND <>m▗ NEW AND !▞#fo DIM RETURN STEP ▝_▝f CAT } RETURN 8?>[A]F 9 CLEAR THEN F > COPY NOT DEF FN > RETURN p)} RETURN ^0 )▝@)▝)▝. INVERSE THEN Q▚▙<> DRAW [Z▝ INPUT 0_▝PI_8- _▖'> DRAW NOT DEF FN @"▝VAL$ p" LPRINT 0 ▝>"M▝[G]Q▝[O] VERIFY ▗f INK DEF FN ▝ OR ▘5 NEW W GO TO ▝ DEF FN CHR$ REM VERIFY CLEAR ~PIf▜>= PRINT CODE ▗ LET ! BRIGHT CIRCLE [T]▛^#V MERGE { THEN / AND oz▛gCODE STEP P FLASH MOVE CIRCLE CLEAR 4▟N( TO "s,r,[L]▘F OUT [A] AND w<>> CLEAR [G] NEW P[C] DRAW RETURN SAVE SAVE SAVE RETURN STEP X INK 0 FLASH ▟ CIRCLE RETURN LLIST FORMAT STEP CLOSE #[F] CIRCLE GO SUB K VERIFY (=CHR$ CLEAR OPEN #ATN GO SUB B RESTORE STEP CLOSE #▚A POKE ▜ MOVE F#PEEK (USR # SAVE FOR -▚4444<> ▗w| AND g6RND▝6[M]▝_ AND CHR$ ▘& VERIFY AND o THEN F4 INVERSE ~ NEW INVERSE ▚2NOT 0▜4 INVERSE ~ RETURN 0* TO p:PI LIST LET RANDOMIZE j[P]AT MENU <V1.2>▘: AND 12G PAPER ▟[J]▝A1.INVUNERABILITY▗▝A2 CLS ▘IT ERASE ▞▝A3.NO GE)▞TORS▗▗▝F4;▝CL NEW ▝L▗5.DEp▜▗▝D6.GO 1;GX.RE>U[H][U]▘ STEP Wr RETURN X LINE 9 VERIFY ! AND INK RESTORE <> VERIFY 1(=()=(5=(A=(H=(<>TG[B]oNOT }: MERGE INK FN 2 MERGE INK :USR POINT 2▘: CONTINUE CONTINUE INK : FOR VERIFY POINT 2 FOR VERIFY <>: CLEAR CLEAR INK : DEF FN PAPER POINT 2 DEF FN PAPER <> POKE ▚< NEW 2▝=0:PI>=: RETURN FORMAT u▞ NEW LIST >= RETURN LIST >=OPOINT &aon▞T[O] GO SUB [SCREEN$ sLN [F] RETURN U(#x AND G PAUSE RANDOMIZE PAPER <> GO SUB [FN { NEW LIST _I▚o▜![S] FLASH [F] OR STEP <>x GO SUB DSTR$ AND STEP N▙y AND GO SUB KINKEY$ATTR n▜ STEP f FLASH CIRCLE - THEN PLOT {4>"▝ INK OUT ▛} STEP /▙ INVERSE V INVERSE ^|2 MERGE OR e▘E▞ RANDOMIZE STR$ MOVE 7<> FOR `a▘ GO SUB [Q] LPRINT ▚ FOR STR$ q#p# IN FOR GO SUB VAL ! IF COPY CODE <> BRIGHT 1u BRIGHT 2 BRIGHT 3▛ BRIGHT 5ATN BRIGHT =[G] BRIGHT 5CHR$ BRIGHT =[R] BRIGHT > STEP BRIGHT = CIRCLE BRIGHT D READ BRIGHT E INPUT BRIGHT = RANDOMIZE BRIGHT 5[O] INVERSE 5POINT INVERSE ETAN INVERSE PIE INVERSE =IN INVERSE E INVERSE R INVERSE R% INVERSE 5 LINE INVERSE R MERGE INVERSE R LPRINT INVERSE VAT BRIGHT 5 FOR INVERSE E PLOT INVERSE F OVER L OVER K'IN 0 INVERSE I; INVERSE KF INVERSE KQ INVERSE 5 OVER =" OVER E CIRCLE BRIGHT E- OVER F8 OVER E/ INVERSE 5C OVER 5N OVER =Y OVER 5g INVERSE 5r INVERSE 5} INVERSE 5▖ INVERSE 5[D] INVERSE 6[O] INVERSE >[A] OVER >IN INVERSE 9o OVER 9d OVER 5z OVER 7Q[J]▚ CIRCLE BRIGHT C[L] OVER =[M]▜IN INVERSE INPUT CIRCLE COPY COPY 5 RUN ▘P▘`▘`▘`!▝P!B STEP P,▗.BIN COPY @B▚&>= OVER ▟<=0▞4<=▖ DRAW RETURN [R] AND ▗ ^ AND ▝0▗▝py▝p▗▝p▝pRND▝pVAL ▝pSQR ▝p AND ▝p MOVE ▝p BRIGHT ▝p BORDER ▝%p PAUSE ▝&p CLEAR ▝'q▝(q▝)Q4 AND AND ▚ OR & CAT OUT OR DRAW ▚= OR 0>=b OR @, MOVE BIN COPY ▖6 CLS ▘ OR `▗<BIN @M[S]BIN PB▘ FLASH CHR$ a)▖/CHR$ COPY COPY 5=▗ LLIST NOT !0y▚[L]NOT ▖0▗ZNOT n@▖ COPY :CHR$ "CHR$ #@VAL ▗[O]STR$ $07▗@B STEP *Q LOAD uSTR$ +PSQR ▗BIN USR ,@c▗STR$ -@c▗HUSR .ALN B STEP /R&▟$USR OUT ) LPRINT LPRINT OVER LPRINT & LLIST W CLOSE #▝H! RUN [D]~OO LPRINT STR$ CHR$ w LLIST ACS LLIST PLOT LLIST Y STOP [Q] STOP STEP [H]tt<= CONTINUE REM REM LIST STOP L READ PI READ PRINT READ K DATA STEP [E]U BORDER PEEK DATA 6 RESTORE [P] RESTORE COPY RESTORE L NEW STEP [E]BIN 44 CLOSE #▝VAL$ NEW NEXT NEW J BORDER [R] BORDER LET BORDER Xg▝T@[D]▗_hhUSR = CONTINUE [C] CONTINUE BEEP CONTINUE / DIM / DIM STEP ▗[N]USR DIM ERASE DIM REM REM REM STEP [E]q44 CONTINUE ▝$ RESTORE REM N FOR POINT FOR GO TO ] GO TO STEP [S]}USR TD`USR OPEN #` LPRINT VERIFY USR USR ATTR ▚USR [A]VAL$ , ▘.66▝0▗%%/, COPY ;[D]6611©FN TO TE@i▝Pi▝pePOINT [A]0▘▝52▗/[O][U]5.-!P INK FORMAT B`USR @<>@ ERASE @ ERASE `USR DEF FN COS @@@#▖▞ COPY ""/INKEY$▖ LIST OVER FORMAT C@^▝^▝QSCREEN$ ▘▝▗ COPY ▟[A] DATA `B[Q]@ CLEAR <>@cp[S][T]@/&▘EFED▝1▗/>▚E COPY 8▝o▜USR RUN ▝@Q▝USR pQ0Q[O]▝![Q] OR PLOT ▝1▟6▜@ FLASH PAUSE ▝ PAUSE PLOT [R]@▘%*▝0 COPY )($H ERASE STEP ▝▘@ BRIGHT 0▝R6q~ BRIGHT ▗4:[B]#▝0[C]3' COPY STR$ COPY %%66©e{B@ STOP p[T]p[T]▘$T▘▝#)▗$#FN ▗ OPEN #▘[A] DATA CHR$ 1)pSCREEN$ pSCREEN$ pSCREEN$ !▚[R]▘▝[B][C]yD$"p@ ERASE USR INK INVERSE `< RETURN ▗[A][A]0▝p8! PAPER ▙USR ▝[T]INKEY$)▛ COPY "!![G]▘$#p/p/p/`/FN -▘*+,-▝"▗#[S]INKEY$5 COPY 66LEN P[▝`ATN 4▝pCOS ▘@@"▞[T]'(▘''▝-.▗&POINT , COPY qA` LPRINT Rqu" OUT [M]▘▝▗ [R] PIFN COPY FLASH ▗ATTR EqATTR CAT rUrU31[R]▘!"▝"▗[P]!#[Q] COPY ^5e"l▝!"lvz▘© OVER FORMAT V$>▜ OPEN #@ OPEN #>▝ LLIST 3▗ READ @F▚ LLIST VERIFY ! DEF FN @$▝[M]ACS [H][J][M][N]"▘▗ COPY # x%v▝px0x THEN ▝ptpt LINE INKEY$[F]0[M]52[N]#(*▘▝CODE ▖#H ERASE p LLIST ▝p LLIST 0 LLIST ▝p INK p INK [M][N]USR ▝ RANDOMIZE ▖▘"5[C] COPY © CONTINUE BEEP A▘d▖▝$▖TI
