1 RANDOMIZE USR RUN: WELCOME IN TO STEALCOPY'S WORLD! CLS v CLS v NEXT 1``!@@u GO SUB VAL CODE OPEN # RETURN w COPY GO SUB VAL ! LET <>"CHR$ /![P]a RESTORE GO SUB [ POKE / STEP = MOVE INK STR$ ] INK !TAB ]SCREEN$ TAB AT POINT INK SCREEN$ ATTR FOR VAL$ #VAL$ + FOR INK xLEN LINE [P]a DIM
45685r]SCREEN$ 5619: REM : SAVE "REM" LINE 1 LINE IF ^ IF ^NOT 2 BORDER <>@ LINE USR [N], CLEAR AND , THEN T RUN z DIM ~< CLEAR TAB =7>ATTR q PRINT @ INPUT IJ BRIGHT . OUT 8▟ DEF FN [▝ LINE LOAD *& BORDER '<=T▖ STOP 2INKEY$▘ FORMAT SP CIRCLE LET ▟E BEEP 8 DEF FN READ TAN ![E]:[F] DIM ~[S]BIN STR$ [L] ERASE CLEAR 0NOT [T] LLIST CAT 4[R]6▝!▖ PLOT VERIFY MOVE VERIFY [C]`IN [C]]FN U CLOSE #[E]ACS I OVER K IF T COPY ABS |PEEK SQR RANDOMIZE uFN ▜FASN J<>[U]^ THEN ` BEEP { ERASE FN ▖K▛[D]
19093▘© STOP [S]s LPRINT UN CLS V[H]Wi)TAN STR$ 'VAL [G]LN [O] LOAD PIABS W BRIGHT [H]W FLASH <=EFN [C]!CODE ATTR [O][U]ABS PRINT SQR $ LPRINT LN PI DIM u%YpCODE LINE [H]▜ IF SQR A[U] CAT W6PI CONTINUE [P] CONTINUE ▛▚▜AT RANDOMIZE s.[U]YTAN RESTORE DIM ATTR MERGE BORDER FN INPUT RESTORE K >=@[H]=k CIRCLE q DRAW SAVE CSCREEN$ READ )]dASN x▝SIN iuk BRIGHT G PAUSE qI FOR LOAD [L][C] NEW LN SIN wIN LOAD ATTR N VERIFY ▖▚GIN LOAD SQR LIST <=[I][M]WIN LOAD C[L]VAL$ ▙ POKE ACS xSTR$ PAPER SAVE USR IN ▟[P] LET [D] CLEAR [H] RANDOMIZE kPOINT c LET GO SUB ▜ DIM GO SUB gRND[K]hG}©oSCc_s0 OPEN #[_G[k©uC DRAW [I]EXP iSQR [O] AND [L][K]1A[B] LIST - CLEAR POINT ▟ RETURN THEN Z▞|~ LIST [G]w%=F[C]hk PRINT L RESTORE IN STOP DATA xySCREEN$ ▙CODE RESTORE POKE RND[U]) OPEN #[I]PEEK MERGE [D]CODE CODE ▛a▜ BRIGHT FORMAT ATN INKEY$ LINE OKKOOSS__[[__SS/ THEN PEEK VAL$ //SS__[[__SSOOKKATTR IF VERIFY S__[[__SSookkooSATN PAPER [[__SSOOKKOOSS__IN . PAPER _SSCODE CODE ATTR ATTR CODE CODE SS__[[_SQR F VERIFY OOKKOOSS__[[__SS▛Z INPUT kooSS__[[__SSOOKCODE [K] THEN SS__[[__SS//++//RND FORMAT FORMAT SQR VAL$ OUT __SSOOKKOOSS__[[SQR LINE BEEP SookkooSS__[[__SATN IF THEN KKOOSS__[[__SSCODE CODE O RETURN +CODE SS__[[__SSOOKKOATTR & BEEP __[[__SSookkooSSSQR J OUT [__SSOOKKOOSS__[IN j FLASH SS//++//SS__[[__ATN ▚>=OKKOOSS__[[__SSo[J] CONTINUE DATA ▛[K] CLOSE #S__[[__SSOOKKOOSATN LINE CIRCLE [[__SSCODE CODE ATTR ATTR CODE CODE SS__IN INPUT CIRCLE _SSOOKKOOSS__[[_SQR CLOSE #ookkooSS__[[__SSATTR : TO KOOSS__[[__SS//+ CAT :FN SS__[[__SSOOKKOOATN f CIRCLE _[[__SSookkooSS_SQR ▙ INVERSE __SSOOKKOOSS__[[POINT BRIGHT BRIGHT ATN Z)ATTR ATTR CODE CODE SS__[[__SSOOCODE OVER <>OSS__[[__SSookko▛ NEW MERGE __[[__SSOOKKOOSSSQR INVERSE [__SS//++//SS__[IN * INK SSOOKKOOSS__[[__ATN F DIM okkooSS__[[__SSOATTR ~ STEP OOSS__[[__SSCODE CODE ATTR ATTR Kz ERASE S__[[__SSOOKKOOSRND BRIGHT FORMAT IN VAL$ OVER _SSookkooSS__[[_SQR AND ERASE OOKKOOSS__[[__SS THEN [K]SCREEN$ +//SS__[[__SSOOKCODE DEF FN SS__[[__SSookkooATN & OVER _[[__SSOOKKOOSS_SQR N PAPER __SSCODE CODE ATTR ATTR CODE CODE SS__[[SQR j ERASE SOOKKOOSS__[[__SATN INT LOAD kkooSS__[[__SSOOABS >=USR ATTR INKEY$ OPEN #__[[__SS//++//SSSQR LINE FLASH [__SSOOKKOOSS__[IN REM OUT SSookkooSS__[[__ATN CAT OKKOOSS__[[__SSCODE K OVER +CODE CODE SS__[[__SSOOKKATTR Z OPEN #S__[[__SSookkooSATN j OUT [[__SSOOKKOOSS__IN ▙ BRIGHT _SS//++//SS__[[_POINT FORMAT BRIGHT ATTR INT >=KOOSS__[[__SSook IF GO TO SS__[[__SSOOKKOOATN NEW BRIGHT _[[__SSCODE CODE ATTR ATTR CODE CODE SS_SQR SOOKKOOSS__[[SQR * FORMAT SookkooSS__[[__SATN Z TO KKOOSS__[[__SS// CAT AT /SS__[[__SSOOKKOATTR ▚ MOVE __[[__SSookkooSSPOINT BRIGHT CLOSE #IN SCREEN$ INVERSE SSOOKKOOSS__[[__ATN AND -CODE ATTR ATTR CODE CODE SS__[[__SSOATTR RETURN <>OOSS__[[__SSookk▛: MOVE S__[[__SSOOKKOOSATN * INVERSE [[__SS//++//SS__IN N INVERSE _SSOOKKOOSS__[[_SQR f MOVE ookkooSS__[[__SSATTR [K] AND KOOSS__[[__SSCODE CODE ATTR _ PLOT SAVE SAVE xuSCREEN$ CODE SAVE RNDLN LIST MOVE |[N]p VERIFY GO SUB NEXT hACS A▟M▝ MERGE [I] MOVE ACS NOT `▝| PAPER DIM RUN lSIN M▝Q[N] LET SGN S REM COPY l▟x OVER GO SUB NEXT `PEEK 1 CLEAR 5 RANDOMIZE [F] CIRCLE h RUN ▚ NEXT h▞| PAPER LLIST COPY |[S]U[J]Q[N] DIM [U][J] RANDOMIZE ▘ RUN l▟p VERIFY INVERSE NOT X▚qABS M▝ RESTORE FN ACS IF ▚ NEXT `▝l LINE RANDOMIZE BORDER |[S]M▝A▟ LLIST AT BEEP COPY COPY [M]}▖.`PEEK A▟E▞ RESTORE FN LIST [G] READ x[J]l LINE LLIST COPY lSIN E▞A▟ DIM [U] STEP PEEK PEEK ▗IN SQR TAN CODE RESTORE 9L RESTORE LN ▙FN IN LET IN ▙ SAVE xuSCREEN$ Ms5▚RND CIRCLE DEF FN [B][B] BRIGHT IF CODE CODE [T][T]z SAVE TAN a RESTORE ABS LPRINT FN ▚RND POKE LN COS :[J]USR OR :RND SAVE LN *EXP DATA AT |EXP SAVE TAN ▞TAB LIST LN VAL$ RNDH; COPY YTAN LPRINT POINT LIST SGN RND SAVE FN 2ABS DATA FN OPOINT POKE SGN dATTR eATTR aSTR$ IN GO TO a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RND DIM LIST XL▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F]p BRIGHT [F]>=[B]xRND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]/H SAVE RANDOMIZE RND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗EXP [J]TAB TAN Q0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] [B] TO [F]|yY[F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗[J]POINT TAN Qm▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mL DRAW CLEAR INK DIM RND[F]▛* INK ▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RNDip CIRCLE [F] TO [B]▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F] LIST /H SAVE RND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F] BRIGHT [B]>=[F]xyRND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗EXP [J]TAB TAN Q0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] L DRAW RANDOMIZE INK [F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗[J]POINT TAN Qm▗▞POINT [N]TAB [J]▛F VERIFY [A]<u(q[I]RND[J](e<a▗Yit CIRCLE [B] TO m▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RND DIM LIST XL▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F]p BRIGHT [F]>=[B]xRND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]/H SAVE RANDOMIZE RND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗EXP [J]TAB TAN Q0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] [B] TO [F]|yY[F],a8e▖▞RND[F]EXP ▞[P]^ THEN [A] m<a▟POINT [J] QUSGN EXP [J][F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗ INK DIM POKE XLm▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RNDip CIRCLE [F] TO [B]▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F] LIST /H SAVE RND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F] BRIGHT [B]>=[F]xyRND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗EXP [J]TAB TAN Q0m▖▞TAB [N],m0q[I][N]ABS ▞EXP [F]▜J CIRCLE ▗(a<m▗ RANDOMIZE INK GO SUB POKE /0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] QUSGN EXP [J][F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗Yit CIRCLE [B] TO m▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RND DIM LIST XL▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F]p BRIGHT [F]>=[B]xRND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]/H SAVE RANDOMIZE RND[F],e8a▖RND▞[A]8u,q▗POINT [J]TAB [N]▛J MERGE QULN EXP RND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗yYmt BRIGHT [B]0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] QUSGN EXP [J][F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗ INK DIM POKE XLm▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RNDip CIRCLE [F] TO [B]▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F] LIST /H SAVE RND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB VAL m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]RNDi{PEEK *p BRIGHT m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]QULN EXP RND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗ RANDOMIZE INK GO SUB POKE /0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] QUSGN EXP [J][F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗Yit CIRCLE [B] TO m▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RND DIM LIST XL▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F]p BRIGHT [F]>=[B]xRND[J](e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0mLN EXP [N]TAB [J]POINT ▜F OUT (e<a▗EXP ▞[E]8q,m▗▞POINT [N]▗,a0m SAVE RANDOMIZE INVERSE GO SUB LIST /m0a▖▟TAB [J] m,q[M][N]EXP ▞ a<e▞POINT [F]QULN EXP RND[F],e8a▖RND▞[A]8u,q▗POINT [J]▗(a<m▗yYmt BRIGHT [B]0m▖▞TAB [N],m0q[I][N]ABS ▞[A] m<a▟POINT [J] QUSGN EXP [J][F],a8e▖▞RND[F][A]<u(q[I]RND[J](e<a▗ INK DIM POKE XLm▗▞POINT [N]▗,a0m[I][J]ABS ▟[A]<m0a▖▟TAB [J] mQSGN ABS [J]POINT a<e▞POINT [F]<q(u[I][J]RND[F],e8a▖RNDip CIRCLE [F] TO [B]▗POINT [J]▗(a<m▗[J]EXP ▟[E]<q0m▖▞TAB [N],m0QLN ABS [N]POINT VAL m<a▟POINT [J] q,u[M][J]EXP [F],a8e▖▞RND[F] LIST /H SAVE ▚▚SQR Qk[G_{K_UQ[H]M[I]A[N]E[O]A[D]Co_guSCREEN$ q[H]M[I]A[N]E[O]A[D]CO©CODE M{WGSk_OA[K]M[H]LEN hASN mLEN nM[D]O_kWA[K]M[H]Q▖U▟Q▙M[D]O_kIN MgW{c_o{q[G]M[L]A[M]E[J]A[C]M_K{CQ[G]M[L]A[M]E[J]A[C]M LOAD ?+ THEN Ag[KWo[KM[G]Q▛UQ▞M[C]A[P]K[oSM[G]qATTR uAT qPOINT M[C]A[P]K[oSQR ){K_G{KGM[K]A[P]E[I]A[F]MnLEN kSQR CODE [P]_M[K]A[P]E[I]A[F]M▙Q▛[O©ATN %k_OSkWGqSCREEN$ uCODE qFN M[F]A[O]E[L]O_c_QUQ▖M[F]A[O]E[L]O_cATN m{/;#gWKA[O]E[L]A[E]M▞QU_ScSA[O]E[L]A[E]MPOINT qSCREEN$ uCODE ©ScSQR o[K_gK[U▙Q▛M[E]A[J]E[K]A[P]CS[P][T]ASN nLEN kM[E]A[J]E[K]A[P]CS©ATTR LLIST {KG_k[OE[K]A[H]MFN qTAB uVAL$ q[D]C_oWE[K]A[H]M▖Q▟U▙Q[D]C_oIN CLEAR kWG#/?1 REM M[H]A[I]E[N]A[O]M[D]_O{GQM[H]A[I]E[N]A[O]M[D]©o[ INVERSE ;gWKSo_KA[G]M▛QU▞Q[C]M[P]O[kSA[G]MkLEN lASN iLEN [C]M[P]O[kSQR MOVE gK[G©K[M[G]A[L]E[M]A[J]M[C]qCODE {k_cM[G]A[L]E[M]A[J]M[C]Q[K©ATTR <>k[OWk[GM REM 1 LOAD 5 CONTINUE 1[F]M[O]A[L]K_o_MQU▖Q[F]M[O]A[L]K_oATN OR ;[o©c[WGA[K]E[P]A[I]M[F]Q▙U▛_Oc_A[K]E[P]A[I]M[F]LEN nASN kIN CODE cATN ABS o_KSgW[Q▙U▛Q[E]M[J]A[K]E[P]OSccqVAL$ uATTR q[E]M[J]A[K]E[P]OScATTR LEN ©K[_g[KE[O]A[L]M[E]1 DIM 5 REM 1 LOAD CSoSE[O]A[L]M[E]Q▞UQCSoSQR [B]k[G_[k©uSCREEN$ q[H]M[I]A[N]E[O]A[D]CO©GUQ[H]M[I]A[N]E[O]A[D]CCODE [P]Om CLS [L]WGSk_OA[K]M[H]Q▖U▟Q▙M[D]O_kWA[K]M[H]qFN uTAB qVAL$ M[D]O_kIN ▟gW[C©O[Q[G]M[L]A[M]E[J]A[C]M LOAD ?+#1[G]M[L]A[M]E[J]A[C]M_K{ATTR ag[KWo[KM[G]qATTR uAT qPOINT M[C]A[P]K[oSM[G]Q▛UQ▞M[C]A[P]K[oSQR i[L]ATTR IN PI[L]ATTR GM[K]A[P]E[I]A[F]M▙Q▛[O©_M[K]A[P]E[I]A[F]MVAL$ qATTR {o_ATN ek_OSkWGQUQ▖M[F]A[O]E[L]O_c_1 REM 5 LOAD 1 CONTINUE M[F]A[O]E[L]O_cATN M©O[CgWKA[O]E[L]A[E]MPOINT qSCREEN$ uCODE ©ScSA[O]E[L]A[E]M▞QU_ScSQR AgATTR SQR ASN nLEN kM[E]A[J]E[K]A[P]CS©CU▙Q▛M[E]A[J]E[K]A[P]CS_▛>[kG_k[OE[K]A[H]M▖Q▟U▙Q[D]C_oWE[K]A[H]M CONTINUE 1 GO SUB 5 INPUT 1[D]C_oIN =kWGC{O_QM[H]A[I]E[N]A[O]M[D]©o[gqSCREEN$ M[H]A[I]E[N]A[O]M[D]_O{CODE =gWKSo_KA[G]MkLEN lASN iLEN [C]M[P]O[kSA[G]M▛QU▞Q[C]M[P]O[kSQR gk{g_k{M[G]A[L]E[M]A[J]M[C]Q[K©CM[G]A[L]E[M]A[J]M[C]1 LOAD ;+ THEN k[OWk[GMQU▖Q[F]M[O]A[L]K_o_MSCREEN$ qCODE uFN q[F]M[O]A[L]K_oATN {O_C{WGA[K]E[P]A[I]M[F]LEN nASN kIN CODE c_A[K]E[P]A[I]M[F]Q▙U▛_OcATN CLEAR o_KSgW{qVAL$ uATTR q[E]M[J]A[K]E[P]OScCQ▙U▛Q[E]M[J]A[K]E[P]OSc THEN [B]~+;_g[KE[O]A[L]M[E]Q▞UQCSoSE[O]A[L]M[E]qPOINT uSCREEN$ qCODE CSoSQR MOVE {K_UQ[H]M[I]A[N]E[O]A[D]CCODE [P]PIASN jLEN [H]M[I]A[N]E[O]A[D]CO©CODE STEP {WGSk_OA[K]M[H]qFN uTAB qVAL$ M[D]O_kWA[K]M[H]Q▖U▟Q▙M[D]O_kIN STEP gW;#/;1[G]M[L]A[M]E[J]A[C]M_K{CQ[G]M[L]A[M]E[J]A[C]MCODE ©k[▛▝g[KWo[KM[G]Q▛UQ▞M[C]A[P]K[oSM[G]LEN kASN lLEN iM[C]A[P]K[oSQR POINT {K_G{KGM[K]A[P]E[I]A[F]MVAL$ qATTR {o__M[K]A[P]E[I]A[F]M▙Q▛[O©ATN RNDk_OSkWG1 REM 5 LOAD 1 CONTINUE M[F]A[O]E[L]O_c_QUQ▖M[F]A[O]E[L]O_cATN TAB :_o{cgWKA[O]E[L]A[E]M▞QU_ScSA[O]E[L]A[E]MiLEN jASN oIN ScSQR ▝gK[U▙Q▛M[E]A[J]E[K]A[P]CS_cuVAL$ qATTR M[E]A[J]E[K]A[P]CS©ATTR a LLIST {KG_k[OE[K]A[H]M CONTINUE 1 GO SUB 5 INPUT 1[D]C_oWE[K]A[H]M▖Q▟U▙Q[D]C_oIN } PRINT kWGc[o©qSCREEN$ M[H]A[I]E[N]A[O]M[D]_O{GQM[H]A[I]E[N]A[O]M[D]IN CODE [L]O[N]gWKSo_KA[G]M▛QU▞Q[C]M[P]O[kSA[G]MATTR qAT uPOINT q[C]M[P]O[kSQR Q RANDOMIZE gK[G©K[M[G]A[L]E[M]A[J]M[C]1 LOAD ;+#M[G]A[L]E[M]A[J]M[C]Q[K©ATTR TAN yIPEEK ▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚zz~~zz▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚ IF IF RETURN RETURN IF IF ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚zz~~zz▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚ IF IF RETURN RETURN IF IF ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT LEN AEEyyuuqquuyyeeaaeeyyuuqquuyy▝▝yyuuqquuyyeeaaeeyyuuqquuyyEEAAEEyyuuqquuyyeeaaeeyyuuqquuyyyyuuqquuyyeeaaeeyyuuqquuyyEEAAEEyyuuqquuyyeeaaeeyyuuqquuyy▝▝yyuuqquuyyeeaaeeyyuuqquuyyEEAAEEyyuuqquuyyeeaaeeyyuuqquuyyyyuuqquuyyeeaaeeyyuuqquuyyEEAAEEyyuu~▖▚[K][K][O]▚INKEY$INKEY$[O]▚▙ INPUT zz NEW ▚zz~ COPY EXP EXP ▚▙▖▚[K][K][O][O][K][M]▞▞▙▙▚ASN ASN LN LEN SGN INT ▚▚▝▖▚[K][K][O]YY▚▙ INPUT zz NEW ▚ IF IF RETURN NEW AND AND [O]▚▙▖▚[K][K][O][B][M][K]▚▚▝▙▚ASN ASN LN PEEK INT SGN ▞▞▙▙▛▖▚[L][I][N][K][P][M]▝▘▞▚▟▙spurwt▞▜▗▝q▜▗[J][O][L][J][D][B]▛[G][J][M][H][C][F]FN [Q]TAB ▚▞▞ATTR AT TAB VAL$ CODE [A][B][C][A][C]▖▛▙▙▛[H][E][J][O][L][I][C][A][K][I] PAPER CIRCLE FLASH VERIFY MOVE CLOSE #ATN SIN ABS SIN EXP LN IN PEEK TAN ACS TAN ATN SIN ASN VAL COS CODE CODE [R]PI[R]IN EXP IN LEN PEEK ▟▖[A][E][M][I][I][M][M][I]▝▘▟[I][L][O]a[K][K]▚▚▙▙uuyy▝▝zJACS ACS [C]SCREEN$ PEEK ▙[K] DRAW LPRINT J▙▙▚▚INT EAAINT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚ IF IF RETURN RETURN IF IF ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT [S][O]ACS ▙▙IIeaa[K]▚ACS PLOT IF INT [C]▙K▜▝}{ COPY IN z[O][K][G][C] RETURN ▙▟▞▜G[[L][N][J][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚[C][G]PEEK uuyy99}} IF IF ▚ SAVE v▙▙uu▚▚[K][L]aa[K][K]▚▚[K][G]▙uuyy}y}}INT INT ▚▚▙▙▚▚[K][K][O][O][K] NEW @H/l PAUSE ▙▛▚▚zz~©zbPEEK PEEK [C][C] LIST ▙I[K][O][O][K]INKEY$ LPRINT ACS REM LIST ▙▚▚INT INT PEEK PEEK INT ▚ LPRINT GO TO SIN ▙▚▚[K][K][O][K]▚INT REM Ft▘▙K▜▜ IF IF RETURN IF FzL PAUSE ▙▛▛▜▚[K][K][O][P][K] NEW FzLL PAUSE ▙▛▛▜▚INT INT PEEK IN INT BIN @[C]INT PEEK ▙▚▚[K] NEW @ IF LL PAUSE ▙▛▚▚zz~©z@@ POKE PAUSE ▙▛▚▚[K][K][O][P][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚ IF IF RETURN RETURN IF IF ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT AND @[C][G]▙▛▚▚[Y]][K][K]▚▚▙▙▚▚zz~~z@@tL STOP ▙▛▚▚[K][K][O][P][K] STOP J~FL PAUSE ▙▞▛▜▜INT INT PEEK IN INT AND @@JL PAUSE ▙▛▚[G][K][O][P][K] STOP J@LF PLOT ▙▞▛▚▚ IF IF COPY CLEAR IF ▗F~JJ LIST ▙▚[J][K][O][O][K] DATA FzJJ INPUT ▙▚▜SQR ASN LEN LEN INT AND @FDL PAUSE ▙▛▚▚[K][K][O][P][K] PLOT @xLL STOP ▙▛▚▚zz~©zACS ACS INT INT PLOT ▙▞▞[J][N][N][K][G]L PAUSE ▙kjfACS SCREEN$ INT PEEK IN INT VERIFY ^vRF CONTINUE ▙▛▛▜[L][K][O][O][K] IF FFJLr▙▞[J] REM IF RETURN COPY IF PEEK hx/L STOP ▙[L]▚▚[K][K][O][P][K]V`pTD CONTINUE ▙▛▚▚INT INT PEEK PEEK INT AND @@LL PAUSE ▙▛▚[G][K][O][P][K] NEW @@vJ INPUT ▙▛▚▚z{qqz@@/D PAUSE ▙▛▚▚[K][K][O][P][K] NEW @@vF CONTINUE ▙▛▚▚INT INT PEEK PEEK INT AND F IF L PAUSE ▙▛▛▜▚[K][K][O][P][K] DATA ^[O][C][C]▘▙▚9;? IF PEEK @@LL PAUSE ▙[L][K][G][G][K][O][P][K] OVER @@L NEW ACS ▙[L][K][G][G]INT INT IN =INT VERIFY @@/t STOP ▙▛▚▚[K][K][O][P][K]/ REM PEEK SIN NEW H▙[K]▚▜{z~nz DRAW J RETURN INT INT [G]▙INT ▚▜[J]][K] DATA J[O]INT GO TO r▙▚▜INT INT PEEK IN INT INT ▚▚▙▙▚▚[K][K][O][O][K] PLOT @P// LIST ▛▚▚ IF IF RETURN RETURN IF IF ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K]&``ll2▙▛▚▚zz~©z@@tL STOP ▙▛▚▚[K][K][O][P][K] NEW F~FL PAUSE ▙▛▛▜▜INT INT PEEK IN INT VERIFY @@LL LIST ▛▚[G][K][O][O][K][S] REM REM NEW NEW p▛▜▜ CLS IF RETURN RETURN IF ▗F~JJ LIST ▙▚[J][K][O][O][K] NEW PP/ PLOT [O]▙▛▚▚INT INT IN yINT AND @FJJ INPUT ▙▛▚[G][F][B][B][K]/ REM PEEK SIN NEW H▙[K]▚▜{z~nzHX|lB▙▚▚[K][K][O][P]▘ DRAW HX|lB▙▚▚INT INT PEEK IN INT VERIFY ^vRF CONTINUE ▙▛▛▜[L][K][O][O][K]INKEY$ LPRINT LPRINT GO TO GO TO H▙▚▚ IF IF RETURN INPUT IF PEEK hx/L STOP ▙[L]▚▚[K][K][O][P][K] PLOT @xLL STOP ▙▛▚▚INT INT PEEK IN INT AND @@LL PAUSE ▙▛▚[G][K][O][P][K] NEW @@LL LINE ▙▛▚[G]jjnoz@@ POKE GO TO B▙▛▚▚[K][K][O][P][K] NEW @@vJ INPUT ▙▛▚▚INT SQR LEN LEN INT AND @@JL PAUSE ▙▛▚[G][K][O][P][K] DATA ^[O][C][C]▘▙▚9;? IF [G]@@ POKE PAUSE ▙▛▚▚[K][K][O][P][K] STOP J~FL PAUSE ▙▞▛▜▜INT INT PEEK IN INT l IF PEEK SIN PLOT X▙▚▜[L][K][O][O][K] IF FzLL PAUSE ▙▜▚zz~©z@pPP SAVE ▙▛▚▚[K][K][O][O][K]INKEY$ LPRINT [K]D PAUSE ▙▚▚INT INT PEEK IN INT VERIFY @@ POKE ▘▙▛▚▚[K][K]~©[K] PLOT @P// PAUSE ▙▛▚▚ IF IF RETURN COPY IF IF ▚▚▙▙▚▚[K][K][O][O][K]INKEY$ LPRINT [I]D PAUSE ▙▚▚INT INT PEEK IN INT INT ▚▚▙▙▚▚[K][K][O][O] OUT OUT NOT NOT CAT CAT THEN THEN CAT CAT NOT NOT ▝▝yyuuqquuyyeeaaeeyyJ▙▙▚▚INT INT PEEK ABS eEyyuuqquuy}J[K][O][O][K][K]▚▚▙Z▚▚ IF < RETURN IF SAVE ▚ STEP Z▙▙L▚▚[K][I][O][F]J[N]▚▚T[G]▙▖▚▟ COPY CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ STEP STEP <> THEN Z▚▚[J][K]Z▚▙[K][I]▚▟Z[C][E]L[O]▚zx~uSCREEN$ R▚SGN L POKE ▙[H]v▟H[O][O][C][K]▚▚▖▙Z▚▚INT INT PEEK PEEK INT LN ▚▟ZLHNt PRINT IF IF ddVAL$ [F]Jt@FNNJACS ▟*8> LINE STOP PAPER @VINT PEEK CAT CAT NOT NOT OUT OUT FLASH FLASH OUT OUT NOT NOT ZHHFINT [C]▚@zVAL$ ASN j|@FINT [C]HHHINT INKEY$▟J/CHR$ @SCREEN$ LPRINT PAPER PAPER JINT INT Z▚▚zz~~zz▚▟UuqquuyyeeaeZ[K]▚▚▙▙▚EEAAEEyyuuqquuyyeeaaeeyy CAT CAT THEN THEN CAT CAT NOT NOT IN IN SQR SQR yyuuqquuyyeeaaeeyyuuqqJ▚▚INT INT PEEK PEEK INT INT ▚UuqquuyyeeaeJ[K]▚▚▙▙▚▟SCREEN$ zr[K]u▚ REM ▙▙ OR Z LINE NEW [K][G][O]PEEK IF [O]▚▟ZoF AND ▚ PAPER PEEK PEEK ASN COPY CLEAR STR$ STR$ STEP STEP <><> STEP STEP STR$ NOT J[K][C][P] NEW REM ▙▙Z BORDER tv=r[J]~▚▟Z▘ DIM *▜Y[R]~[F]H▚▚▚▘▙▙▙▚▟jPEEK PEEK INT INT ▚▚▙▙Z RESTORE IaU}QYV COPY ▟Z&▘▘▚▚v RETURN uSCREEN$ 6 FOR CGF STOP STOP k▟ OUT OUT FLASH FLASH OUT OUT NOT NOT CAT CAT THEN THEN Z▜J[G]ACS ATN SrACS INT ▟Z▚▘▘ NEW ▚ PLOT CLS [O][F]J[G] FOR cGf STOP FOR F FOR ▟* IF RETURN RETURN IF IF ▚▚▙Uuyyeeaaeey}J▙▙▚▚INT INT PEEK ABS EEyyuuqquuyyeeaaeeyyuuqq STEP STEP STR$ STR$ ==99==STR$ STR$ uuqquuyyeeaaeeyyuuqquuyyzINT PEEK PEEK INT INT ▚▚▙▟Uuyyeeaaeey}Z▙▙[F]~▚ IF IF RETURN PRINT * IF ▚▚▛uqJ[K][O][O][F]eyv▖▙Z[G]▚EABINT LN ▚▟ STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK J[K]▚▚ PRINT uqp▖▚▟SCREEN$ z~~yy▖▙Z▚▚eeaa[K]▜v▟X▙▙uuyyINT LN PEEK ASN jABS ▚▚uuqq▖▚▟J[G][O][O]eeyy▖▙Z[C]▚▚ IF IF ▚▟Z[S]▙▙ PRINT uyx[K][K][O][F] INVERSE INVERSE STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ jSCREEN$ PEEK ACS Eyz▙Z▚▚[F]ean[K][K]▚▟Z▙▙▛uyzzzuSCREEN$ z▚▚[F]v▙▚▟EeaaeeyyuuquJ▚▚INT INT PEEK PEEK INT INT ▚uuqquuyyeeaaeeyyuuqquuyyABS ABS EXP EXP ABS ABS STR$ STR$ STEP STEP <><>uuyyeeaaeeyyuuqquuyyEEAAzINT ▚▚▙▙▚EeaaeeyyuuquZ▚▚zz~~zz▚▟Z▙▙v▚[K][I][O] MERGE J[K]▚▚uq▙▖▚▟jINT VAL$ PEEK ABS Eyf▖▙ STEP STEP STR$ STR$ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ Z▙▙[F]uy~ IF SAVE RETURN PRINT * IF ▚▚ PRINT uqp▖▚▟J[K][O][O]eeyy[H]~X▚▚EEAAINT LN ▚▟Z▟▙▙uuyy[K][I][O][F]J[G]▚▚uuqq▖▚▟SCREEN$ b~~yx▙Z[S]▚▚eaf[K][K]▚▟ STEP STEP <><> STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE jSCREEN$ ▚▙▟uqn▚▟J[K][O][O][K]ey▚▙Z▚▚ IF PRINT ▟Z▙▙▚▚[K][K][O][F]Eeyyuuqquuy}zINT PEEK PEEK INT INT ▚▚▙▟uuyyeeaaeeyyuuqquuyy▝▝==STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ eeaaeeyyuuqquuyyEEAAEEyyJ▙▙▚▚[K][K][O][N]Eeyyuuqquuy}* IF RETURN RETURN IF IF ▚▚▙Z▚▚[K][K][O][O][K][I]▚ STEP Z▙▙v▚INT LN PEEK ASN jINT [G]▚uq▙▖▚▟ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ STEP STEP <><>Z▚▚}▝▙zx▚▟Z▙▙[F]uy~[K][I][O][F]J[K]▚▚ PRINT uqp[H]v▟hINT PEEK PEEK EEyy▖▙Z▟▚▚eeaa[K][I]▚▟Z▚▙▙ PRINT uyx IF SAVE RETURN PRINT * STOP ▚▚[F]uqv▚▟JSIN [O][O][N]eyf▙ STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ Z[K]▙▚uy▚[K][K][O][F]J[K]▚▚~▙▚▟SCREEN$ z~~zz▚▚Z▚▚[K][K][O][O][K][K]▚▟UuqquuyyEEAEzINT ▚▚▙▙▚eeaaeeyyuuqquuyyyy STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK eeyyuuqquuyyEEAAEEyyuuqqJ▚▚[K][K][O][O][K][K]▚Uuqquuyy▝SCREEN$ z▚▚▙▙▚▟J[K][O][O][K][K]▚▚▖▙ OR Z▚▚INT INT PEEK PEEK INT LN ▚▟Z[O]▙v▚[K][I][O][F] INVERSE INVERSE STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ * IF RETURN RETURN IF y[G]▖▙Z▚▚[N]ea~[K][I]▚▟Z▙▙ASN uyzINT PINASN hINT ▚▚uuqq▖▚▟J[N][O][O]eeyy▖▙Z▚▚▚E▝▘zx▚▟Z[C]▙▙▟uyf[K][K][O][F]JSIN ▚▚uq▙▚▟ CLEAR CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ STEP STEP <><>Z[K]▚▙[K][F]n[O][K][K]▚▟Z▙▙▚▚ IF IF RETURN PRINT * IF ▚▚▙▙▘▟J[K][O][O][K][K]▚▚▙UuyyEEAAEEy}J▙▙▚▚[K][K][O][N]eeyyuuqquuyy▝▝yyuuqq STEP STEP STR$ STR$ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ uuqquuyyEEAAEEyyuuqquuyyZ[K][O][O][K][K]▚▚▙▟Uuyyy}Z▙▙▚▚[K][K][O][F]J[K]▚▚▙▙▖▚ STEP jINT PEEK PEEK INT INT ▚▚▖▙Z[G]▚[K][K][O][O][K][I]▚▟ STEP STEP <><> STEP STEP STR$ STR$ ==99SCREEN$ z▚▚~[O]▖▚▟J[K][O][O][L]ey▖▙Z▚▚RNDEAFINT PIv▟X▙▙uuyy[K][I][O][F]J[N]▚▚uuqq▖▚▟* PLOT RETURN RETURN RESTORE y~▖▙Z[C]▚▚[L]ea[K][K]▚▟Z[S]▙▙v▚INT INT PEEK ASN CLEAR CLEAR STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ J[O][G][K][K]▚▚▙Z▚▚zz~~zz▚▟Z▙▙▚▚[K][K][K][F]J[K]▚▚▙▙▚▟eEAAEEyyuuquJ▚▚[K][K][O][O][K][K]▚uuqquuyyyyuuqquuyy INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ STEP STEP <><>uuyyEEAAEEyyuuqquuyyeeaaZ[K]▚▚▙▙▚RND▝▝yyuuquZ▚▚[K][K][O][O][K][K]▚▟Z▙▙▚▚INT LN PEEK PRINT jINT ▚▚▙▙▖▚▟J[K]▙[O][K][K]▚▚▖▙ STEP STEP STR$ STR$ ABS ABS EXP EXP ABS ABS STR$ STR$ Z▙▙▚[G][K][I][O][F]J[K]▚▚~▙▖▚▟jINT PEEK PEEK ABS Eyf[H]~X▚▚eeaa[K][I]▚▟Z▟▙▙uuyyzx~uSCREEN$ v▚▚▟uqn▖▚▟J▘[O][O][K][F]v▚▙Z[S]▚▚INT INT PEEK PEEK INT INT ▚▟ STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK J▚▙▙▙▚▟* IF RETURN RETURN IF IF ▚▚▙Z▚▚[K][K][O][O][K][K]▘▟Z▙▙▚▚INT INT PEEK ASN eEyyuuqquuy}Z[K][O][O][K][K]▚▚▙▟uuyy▝▝yyuuqquuyyeeaa INVERSE INVERSE STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ EEAAEEyyuuqquuyyeeaaeeyyJ▙▙▚▚ IF IF RETURN CLEAR %yyuuqquuy}J[K][O][O][K][K]▚▚▙Z▚▚INT INT PEEK PEEK INT LN ▚ STEP Z▙▙▚▚[K][I][O][F]J[K][G]▚▙▙▖▚▟==99==STR$ STR$ STEP STEP <><>Z▚▚[K][K][O]▙[K][I]▚▟Z▙▙▚▚INT LN PEEK ASN jINT ▚▚uq▙[H]v▟H[K][O][O]eeyy▖▙Z▟▚▚ IF SAVE ▚▟Z▚▙▙uy▚[K][I][O][F]J▘▚▚▙▙▚▟j[C]PEEK PEEK INT INT ▚▚▙ STEP STEP STR$ STR$ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ Z[K]▙▚▚▚zz~uSCREEN$ z▚▚▙▙▚▟J[K][O][O][K][K]▚▚Z▚▚INT INT PEEK PEEK INT INT ▚▟UuqquuyyeeaeZ[K]▚▚▙▙▚yyuuqquuyyeeaaeeyy STEP STEP <><> STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE EEyyuuqquuyyeeaaeeyyuuqqJ▚▚zz~~zz▚UuqquuyyeeaeJ[K]▚▚▙▙▚▟jINT PEEK PEEK INT INT ▚▚▖▙ OR Z▚▚[K][K][O][O][K][I]▚▟Z[O]▙▚▚ IF SAVE RETURN PRINT ABS ABS STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ J[K][O][O][K][K]▚[G]▖▙Z▚▚INT INT PEEK PEEK INT LN ▚▟Z▙▙▚▚[K]▜n[F]H[K]▚▚uuqq▖▚▟SCREEN$ }~~yy▖▙Z▚▚▚[K][K][O][O][K][I]▚▟Z[C]▙▙▚▚INT INT PEEK ASN j[C]▚▚▙▙▚▟ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ STEP STEP <><>Z[K]▚▙ IF IF RETURN RETURN IF IF ▚▟Z▙▙▚▚[K][K][O][F]J[K]▚▚▙▙▘▟jINT PEEK PEEK INT INT ▚▚▙Uuyyeeaaeey}J▙▙▚▚zz~}yyuuqquuyyeeaaeeyyuuqq STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ uuqquuyyeeaaeeyyuuqquuyy: IF RETURN RETURN IF IF ▚▚▙▟Uuyyeeaaeey}Z▙▙▚▚INT INT PEEK ASN jINT ▚▚▙▙▖▚ STEP J[K][O][O][K][K]▚▚▖▙Z[G]▚zz~~zx▚▟ STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK J[K]▚▚▙[O]▖▚▟jINT PEEK PEEK INT ASN v▚▖▙Z▚▚[N]b▝~[K]▜v▟X▙▙v[F]~EXP IF SAVE RETURN PRINT * CLEAR ▚▚v[F]vLEN ▖▚▟J[G][O][O][N]b[J]f▖▙Z[C]▚▚INT ASN NPEEK INT INT ▚▟Z[S]▙▙▚▚[K][K][O][F] INVERSE INVERSE STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ SCREEN$ j~vzz▚▚▙Z▚▚[K][K][O][O][K][K]▚▟Z▙▙▚▚INT INT INT ASN jINT ▚▚▙▙▚▟EeaaeeyyuuquJ▚▚ IF IF RETURN RETURN IF IF ▚uuqquuyyeeaaeeyyuuqquuyy CLEAR CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ STEP STEP <><>uuyyeeaaeeyyuuqquuyy▝▝INT z▚▚▙▙▚EeaaeeyyuuquZ▚▚INT INT PEEK PEEK INT INT ▚▟Z▙▙▚▚[K][I][O] MERGE J[K]▚▚▙▙▖▚▟* IF INPUT RETURN IF IF ▚▚▖▙ STEP STEP STR$ STR$ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ Z▙▙v[G]INT LN PEEK ASN jINT ▚▚▛r[B]J[K][O][O][M] NEW ~[H]~X▚▚e▚qzx▚▟Z▟▙▙z[F]~▞[K][I][O][F]J[G]▚▚[F]▟nv▖▚▟j[S]PEEK PEEK SQR B[J]▙Z[S]▚▚[K][F]n[O][K][K]▚▟ STEP STEP <><> STEP STEP STR$ STR$ ABS ABS EXP EXP * REM ▚▙▙▙▚▟J[K][O][O][K][K]▚▚▙Z▚▚INT INT PEEK PEEK INT INT ▘▟Z▙▙▚▚[K][K][O][F]Eeyyuuqquuy}INT z~~zz▚▚▙▟uuyyeeaaeeyyuuqquuyyEEAA CLEAR CLEAR STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ eeaaeeyyuuqquuyyyyJ▙▙▚▚[K][K][O][N]Eeyyuuqquuy}jINT PEEK PEEK INT INT ▚▚▙Z▚▚[K][K][O][O][K][I]▚ STEP Z▙▙▚▚zx~uSCREEN$ z[G]▚~▙▖▚▟ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ STEP STEP <><>Z▚▚INT B[R]VAL$ INT LN ▚▟Z▙▙▟ BORDER f[K][I][O][F]J[K]▚▚ACS [E] PLOT SIN [H]v▟( IF RETURN RETURN DATA RETURN ▝▖▙Z▟▚▚z[F]n[J][K][I]▚▟Z▚▙▙ACS vINT INT LN PEEK ASN j[S]▚▚▟On▚▟JSIN [O][O][K]b[J]▚▙ STEP STEP STR$ STR$ ==99==STR$ STR$ Z[K]▙▚v▚[K][K][O][F]J[K]▚▚▙▙▚▟jINT PEEK PEEK INT INT ▚▚Z▚▚[K][K][O][O][K][K]▚▟Uuqquuyy: IF ▚▚▙▙▚eeaaeeyyuuqquuyyEEAAEEyy STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK eeyyuuqquuyy▝▝yyuuqqJ▚▚[K][K][O][O][K][K]▚UuqquuyyEEAEjINT ▚▚▙▙▚▟J[K][O][O][K][K]▚▚▖▙ OR Z▚▚ IF PRINT ▟Z[O]▙r[J]▚[K][I][O][F] INVERSE INVERSE STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ jINT PEEK PEEK ABS < BORDER v▖▙Z▚▚▚[E] NEW INKEY$[K][I]▚▟Z▙▙ IF [G]PEEK ▖zg▙uFN z▚▚J[G]ACS ▟▖▚▟J[N][O][O]Z▗ RETURN ▖▙Z▚▚▚ LINE ASN NVAL INT LN ▚▟Z[C]▙▙[G]▟fPEEK [K][K][O][F]JSIN ▚▚▟On▚▟ABS ABS EXP EXP ABS ABS STR$ STR$ STEP STEP <><>Z[K]▚▙[K]b▝[O][K][K]▚▟Z▙▙v▚INT INT PEEK ASN jINT ▚▚▙▙▘▟J[K][O][O][K][K]▚▚▙Uuyy▝▝y}J▙▙▚▚[K][K][O][N]eeyyuuqquuyyEEAAEEyyuuqq STEP STEP STR$ STR$ INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ uuqquuyyyyuuqquuyyZ[K][O][O][K][K]▚▚▙▟UuyyEEAAEEy}Z▙▙▚▚[K][K][O][F]J[K]▚▚~▙▖▚ STEP SCREEN$ z~~z▘[J]▚▖▙Z[G]▚[N] COPY ~[K][I]▚▟ STEP STEP <><> STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE jINT ▚▚[G]▗ RETURN ACS ▖▚▟J[K][O][O] REM ▚PEEK ▖▖▙Z▚▚: NEW AND CLEAR IF BORDER v▟X▙▙[G]PEEK ▜[K][I][O][F]J[N]▚▚▗ RETURN ▖▚▟jACS PEEK PEEK zTAN PLOT ▖▙Z[C]▚▚ REM [N]~[A][K][K]▚▟Z[S]▙▙[G]▟fPEEK zz~u==STR$ STR$ STEP STEP <><> STEP STEP STR$ STR$ J[O][G][N]Gf▙Z▚▚INT B[R]PEEK INT INT ▚▟Z▙▙v▚[K][K][K][F]J[K]▚▚▙▙▚▟%yyuuquJ▚▚[K][K][O][O][K][K]▚uuqquuyyEEAAEEyyuuqquuyy INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ STEP STEP <><>uuyy▝▝yyuuqquuyyeeaaZ[K]▚▚▙▙▚eEAAEEyyuuquZ▚▚[K]f[O][K][K]▚▟Z▙▙▛z▞ IF SAVE RETURN ASN * IF ▚▚ INPUT ~▖▚▟J[K]▙[O][S][E] PLOT [K]▖▙ STEP STEP STR$ STR$ CLEAR CLEAR RANDOMIZE RANDOMIZE CLEAR CLEAR STR$ STR$ Z▙▙ REM [G]PEEK [K][I][O][F]J[K]▚▚J[G]ACS ▟▖▚▟SCREEN$ z~~ IF fPEEK ▜[H]~X▚▚▚INKEY$[P][K][I]▚▟Z▟▙▙[G]PEEK ▜INT LN PEEK ASN jACS ▚▚▗ RETURN ▖▚▟J▘[O][O]Z[E] PLOT ▙Z[S]▚▚[K] CLEAR SAVE IF IF ▚▟ STEP STEP <><> STEP STEP STR$ STR$ INVERSE INVERSE INK INK J▚▙SIN ▟n[C]▚▟jINT PEEK PEEK ASN EXP Fv▙Z▚▚[L]j[B][K][K]▘▟Z▙▙[F]~▚zz~uRNDyyuuqquuy}Z[K][O][O][K][K]▚▚▙▟uuyyEEAAEEyyuuqquuyyeeaaW AND +EUSR MBIN THEN MERGE THEN PAPER EXP LEN COS SCREEN$ COS LINE <= OVER NOT STR$ USR SCREEN$ OR USR INKEY$ VERIFY FLASH FORMAT MERGE ERASE MERGE CLOSE #INKEY$NOT BIN PAPER BRIGHT OR TAB FORMAT CLOSE # PRINT PRINT NEXT [J][K] SAVE OUT INKEY$STR$ CAT USR PAPER SCREEN$ OR USR INKEY$ BEEP CAT STEP BEEP INK <><>USR OVER SCREEN$ VAL$ VAL$ %ATTR Qk[S] READ ©z LET k:LN bLN bTAN [D]AT TAN INKEY$TAN CAT [L]AT ->=STR$ [M][F]▖ FOR [U]POINT ▖pGjAT ▛KfLN PLOT Wz[U] COPY [E][N]LN xkPOINT `Q FLASH USR [H]LEN CLEAR k6PIFN OUT Y?▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚zz~~zz▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚INT INT PEEK PEEK INT INT ▚▚▙▙▚▚[K][K][O][O][K][K]▚▚▙▙▚▚ IF RETURN RETURN IF IF ▚y▖▛CODE <=IN INKEY$[R]AT [M][U]ISQR ~<ATTR [H]<ASTR$ JR$c[P]m'KACS WCODE vGACS GSQR ▜WSCREEN$ )WATTR YGh&LN {PI_▚ BORDER ATN d&TAN ▖SCODE [D]Kd:[Q]▗[N] INVERSE SGN ©:▞<>VAL R6[U]ABS sj$[L]STR$ [L]5qw POKE INT LN [H]INT [M][T]LEN INVERSE INT `< PLOT VAL$ ATN TAB BIN ABS Y AND BIN k NEXT <>c%ATN x3FN INVERSE W©OPISGN [M]▙[H] CLEAR [gOQ DATA [N] CONTINUE [J]QOATTR [R]-[P][P] CLEAR INKEY$d[H]INKEY$[I][U]▚TAN f LIST DATA DIM {N INVERSE wATN [L][U]`CnFN ▟WzSGN ACS PIQAHCODE rM@[L][T] u|TAN dLN ▟LN VAL$ OGCODE nGQ▚0WA▙0WSGN ▚'[U] GO SUB #AT INPUT [M][F]t REM T BEEP *ATTR USR ©LnVAL$ ERASE /[G]PEEK EXP LVAL$ ACS [N]LINKEY$PEEK SGN | RETURN c STEP SCREEN$ O▜ASN !CW NEXT [D]G INPUT ▖W[L]▘*KS CLS [B]W PAUSE [K]COS CLEAR X~s SAVE RND GO TO RESTORE ▜GWA▚ G GO SUB [B]^GQ▚`WSGN ▝▝CATTR .SGN INT LET ATN POKE COS DEF FN o[N][F][M][E]AT COS LEN ?RND=[H];[N][M][J]W RANDOMIZE CGC'1 RETURN 3'M▚tC[E][N]LN NOT TAN THEN W▗w OVER [F]SW CLEAR [M] MOVE [N] MOVE LN E[S] INK [U][S]J[M|SUSR WUSR ▝▞C DIM ▖O[M]x BRIGHT SIN ▟S POKE ▖K GO TO CIRCLE CODE [T]xATN GO TO $a_9g CIRCLE cACS [M]q1 RANDOMIZE PRINT w CLOSE #mW POKE [M]c DEF FN OR [H]5?▚LN +1M[J]A[M][O]~KM RETURN INT [A][G]1 CLEAR PRINT k CLOSE #a▘c LINE RESTORE [N] LLIST NEXT '▛ SAVE '▙▝[ POKE [I]S CLEAR ▘W POKE G GO SUB [E]OSFN STR$ Ct CIRCLE ACS [I]t CIRCLE PEEK BEEP [C]LN cqINT [O] LOAD WE▙T[C] INK [ GO SUB [I]C DIM [J]G SAVE ▟W CLEAR ▘S POKE SQR t NEXT PAPER MOVE [T]|[ LET ▟WE▙ DRAW SCREEN$ [U])G GO SUB [A]C GO SUB [O][ LET W LPRINT [L]W GO TO [A][ CAT TAB c LINE [S]gM▚/WE▙WM▚GU[O] DATA INT [ DATA [B]S CONTINUE [G]W NEXT [L]'▙ LPRINT #1 IF LPRINT VAL$ [A][N]SGN CAT [ SAVE G DIM G DIM [F][ SAVE [O][E]SIN JWM▚<s PLOT $[MBIN VAL$ COPY WA▚ FORMAT SIN LET S PLOT ;W[T]$WA FORMAT SCREEN$ [ SAVE vH> LPRINT PIx BRIGHT SIN ▛[J]RND` OPEN #W LIST <C POKE [O][ LPRINT [D]S FORMAT W FORMAT ▝[T] PLOT = RESTORE CLS K^[C] PAUSE lKRG LPRINT [E]-SIN [P]|ATN +SSQR W CONTINUE '[M] RANDOMIZE #[U] PAUSE [ FORMAT [D]S CLS W PAUSE ▝G DATA [O]LEN |SCREEN$ [ SAVE ▜SCREEN$ x[K] INVERSE SGN DEF FN $|ACS LLIST USR yRW DATA [J]S GO TO [C] ERASE FLASH DATA EXP FORMAT ABS BRIGHT EXP xINKEY$SIN AT E LET SCREEN$ ▗M LET ZhASN R`[MD[G][K]W RANDOMIZE [P][ CONTINUE ▚tGQ▚ CIRCLE SCREEN$ bS LPRINT [D]W LPRINT [M]g CAT POINT c DEF FN [S] OUT <> LET [N] INK W DATA ▘[ DRAW [P]▜C LOAD [O][ PAUSE PAUSE h▜W CLEAR ▜ RETURN DRAW DRAW '1▚h[S][B]SE$PEEK [D]L[P]C[E]hX't{@▙[C]▙x[G]tEc<>TAN CHR$ ▞▞h▝W▖ti;1`[S]▗LN INVERSE S>=[G]{[M]qquu[ LET ▜WE▙ DATA [S] LINE [Q[L]USR ACS BRIGHT READ A[R]ERNDAPOINT PI COPY $8<>sg CONTINUE [L]W GO TO [A] PAPER BEEP POKE RNDUSR EXP dPEEK INKEY$▘Q RANDOMIZE INKEY$▚A RANDOMIZE INKEY$[K]W CONTINUE [J]'[M] OVER NEW PAUSE ' PRINT [J]W SAVE VAL$ [G]fW NEXT [L]G INPUT MOVE STOP GW CLEAR ▟ RUN l[K]kCHR$ g8SIN /RND[ LET ▚C[I] MERGE PI LIST 8USR ABS TO SZ▖▟▗VAL ▚J▟Xq DRAW t[G]s PAPER /▘ VERIFY ▚j▟ CONTINUE ▝[O][N][I] PAPER [M]` CAT ▛|▙(▘ MOVE PEEK [C]INT JEXP 1▞STR$ ▟SCREEN$ ▞u▗R[I]?[M] LLIST [I] MOVE ▗SGN ▖[I]r▛Z▜; CLS V COPY j CLS COPY ▜ INPUT ▛ OVER ATN ▛SCREEN$ ▜▝[L][F][P]f[K]h▚jZ▙B;▚INT PEEK %INT ▚▙ POKE LET ▚ REM [K] POKE [O] RETURN [K] CIRCLE ▚ OPEN # PAPER ▙ PAPER STEP ▚=z=~EzINT ▚SIN SQR ▙LN POINT ▚ATN [K]TAN [O]SIN [K][Q]▚VAL$ AT ▙SCREEN$ [I]▚INKEY$INT LN PEEK FN INT [L]▙|▘▜▙▛▖▘[P][P][I][J]SCREEN$ [K];▚fPI<▛c▜ INPUT SAVE _ DRAW SAVE [L] ▞a▟[N]▙"▘s[O] INVERSE [L]L[P][H]SGN M▖▘▟RND▝ABS aEXP zf~ CONTINUE [D] RETURN INPUT CODE SIN 'i CLS VAL >~ IF PLOT [T]SIN CONTINUE [L] REM ATTR STR$ '[F]T OVER [K][D]ATTR STEP GO TO [J] POKE REM RNDEXP ;u COPY TAN :z NEW [B] POKE POINT LEN GO TO [O] NEW INKEY$ LET Q OUT [A]f NEW [O]VAL$ OR CONTINUE [O] NEW INT MOVE ?q CLS VAL &f REM [O]VAL$ STR$ CONTINUE [C][K] PAPER ASN _[L]AT &j REM [K]SCREEN$ STR$ DATA [D] IF IN INK ;u BORDER AT *j INPUT [L]ATTR STR$ DATA TAB BIN OVER [N]i BORDER [Q]*n INPUT [N] POKE RNDEXP e8_q SAVE ATTR ATN BORDER SQR H GO TO [T]PI FOR ATTR DATA UUQSQR SCREEN$ SCREEN$ FOR INKEY$ GO TO [S]INKEY$ FOR SCREEN$ DATA ACS ACS COPY SIN X SAVE ATTR ATTR FOR PI GO TO [R]RND FOR POINT yzQ CIRCLE ▛ PAPER s▗ BEEP PEEK MOVE GO SUB SGN FOR SIN RESTORE VAL$ SAVE TAB RETURN l[L] FLASH ATN MERGE CONTINUE [R] INPUT ©▞ FLASH LLIST <>[O] SAVE PIs▗ BEEP FOR ©ABS INKEY$ REM POINT INK CLS ATTR DRAW SCREEN$ POINT CLS ATN DATA RNDINKEY$ LOAD [R]u*FfB CIRCLE PI DEF FN PAPER [P]PEEK 'e FOR FN .j REM [P] PLOT IN [S] DRAW ▛ IF PISTR$ +e LOAD FN *j NEW [D] RUN [9m NEW RNDASN +a LOAD AT *f NEW ▟ DATA ABS [R] SAVE ▙ NEW SCREEN$ STR$ /a FOR AT &f PAPER VAL$ ([O] LET CIRCLE [C] REM SCREEN$ OR /e FOR [Q]&z IF INT MOVE DATA [C] REM VAL$ OR +e BORDER [Q]Z[O] REM l PAPER STEP DATA [P] INPUT CODE STEP +i BORDER SGN :~ RETURN PISTR$ CONTINUE [N] LIST INPUT POINT ASN 'i FLASH [M]^ PAPER TAB SAVE RNDASN u,Oe CONTINUE ATN ATN CLS ATTR / DRAW ATN ATN BORDER ATTR CONTINUE RND[R] LOAD RNDK DATA SCREEN$ VRVV BORDER SCREEN$ CONTINUE INKEY$[S] LOAD INKEY$H DATA ATTR ATN CLS COS DRAW ASN ASN BORDER POINT u)Na GO TO SQR NEW sLN BORDER LLIST INK BORDER SIN DIM PEEK GO TO ABS REM |▜ FLASH ATTR OR CLEAR LEN LET ACS BORDER SCREEN$ RNDSQR GO TO ACS SGN FOR SIN DATA <> THEN [O] MOVE SAVE FLASH y*Jnv CONTINUE [D] PLOT NEW IN [S]?q CLS SGN &f REM [D] RETURN ATTR SIN CONTINUE [P] PLOT PAPER [P]▚U FLASH [Q]&j REM [H] RETURN CODE SIN DATA [D] IF IN INK ;u BORDER [Q]*j INPUT [L]ATTR STR$ DATA o RUN _= FLASH i BORDER AT *n INPUT [P]PISTR$ SAVE ▚USR RETURN SIN ASN 'i FOR AT .n REM [G] CIRCLE VAL$ [F] CIRCLE [S] LPRINT PAPER [C]POINT 'e FOR FN .j REM [K] CIRCLE SIN ASN DRAW ▞ DATA IF RNDEXP +e LOAD FN *j NEW [B]▗ INK STR$ [M] GO SUB ▗ NEW RNDASN +a LOAD AT *f NEW ▟ DATA ABS [R]e8Fk REM INKEY$IN INT SIN ATN PEEK SIN ▘[G]▘▜PEEK SIN SIN [S][T]IN PEEK COS SIN ATN VAL$ SIN COS CODE VAL$ [T]SIN ATN PEEK POINT INKEY$[S]RNDPEEK POINT SCREEN$ UYVRUNPOINT SCREEN$ RNDPOINT POINT [U]RNDEXP POINT AT ASN EXP EXP TAN ASN POINT POINT AT RNDu-Ne BORDER wATN PAPER LSGN READ OLN FLASH RESTORE {SQR LOAD INT REM SQR s<= RANDOMIZE oSCREEN$ IF AT INK s▛SGN DATA ©SIN INPUT ABS NEW COPY [T][H] TO NEW SCREEN$ ©▞ OPEN #©RND MERGE BORDER ASN e:^~b SAVE [P] PLOT REM CODE ACS /e FOR [Q]&Z PAPER PI DEF FN [P]▘ DATA [P] IF REM ATTR ACS +e BORDER [Q]:z RETURN ▜ REM IN PEEK DATA [P] INPUT CODE STEP +i BORDER / PAPER [O]o RUN PISTR$ CONTINUE [P] INPUT ATTR STEP 'i CLS SGN >~ IF PI STEP CONTINUE [C] FORMAT REM [S]POINT 'U FLASH [I]Z PAPER [K] CIRCLE [S]RND GO TO [C] CLOSE # REM VAL$ POINT ;u COPY LN :z NEW [K] CLOSE #[S][R] GO TO [I]" NEW [I]VAL$ [[P] BRIGHT Zf NEW [I]"[A] PAPER CONTINUE [O] NEW INT MOVE ?q CLS SGN &f REM [O]VAL$ STR$ u$FW PAPER [C]▙▘SQR PEEK PEEK SIN [S]IN PEEK SIN SQR PEEK VAL$ [S]ACS COS ATTR VAL$ IN SIN SQR PEEK INKEY$[T]SQR PEEK IN SIN KN]VVUSIN POINT INKEY$RNDTAB INKEY$INKEY$RNDSIN POINT ACS ASN TAN COS ATTR AT IN VAL SQR SGN [S][R]EXP SIN ABS PEEK ▞▘AzU CONTINUE ATN REM | OPEN #©▖ FLASH DATA ATTR CLS SCREEN$ CODE RANDOMIZE VAL$ NEW VAL MERGE ©LN LPRINT {PEEK READ STR$ [D]>=[N]CHR$ [K]ABS s▛ BEEP q.Jj~ DATA REM RETURN SQR [S];i BORDER AT *n INPUT [D] IF [T]PEEK CIRCLE [T] DEF FN OVER [P]▘'i FOR AT .n REM [D] PLOT [T][S] SAVE ▜ INPUT IF IN PEEK 'e FOR FN .j REM [P] PLOT _Bg[T]PEEK +e LOAD FN *j NEW [P] REM IN INKEY$ DRAW ▟ DATA NEW RNDASN +a LOAD AT *f NEW TAB BIN [N]▝ CIRCLE TAB SAVE NEW POINT ASN /a FOR AT &f IF ▟ LPRINT ABS RND SAVE [E]. REM [E] PAPER /e FOR [Q]&[K] GO TO V DATA VAL$ DATA [C] REM VAL$ OR +e BORDER [Q]:z RETURN INT STEP y(Jc INPUT ATN SIN ATN SQR ▘▛▚▛▜PEEK ATN ATN SIN IN COS SIN SQR SQR PEEK ATTR PIINKEY$CODE PI[S]ATN SQR SIN SQR COS ACS ATN SIN ATN SQR BKCFKGPEEK ATN ATN SIN IN COS SIN SQR SQR PEEK ATTR PIINKEY$CODE PI[S]ATN SQR SIN SQR COS ACS u)Fi PAPER KT▜SQR SQR ATN gCOS COS ATN fSQR SQR PIPIu[T]PIvSQR SQR ATN gCOS COS dATN SQR SQR <=<=NOT <=Yh RESTORE SIN REM INT ACS LOAD SGN NEW p[I]<=k[M]<=u BORDER wSGN d GO SUB INT FOR EXP READ ATN PAPER LSGN READ OLN FLASH BORDER {SQR INPUT [S]©▞ FLASH wASN OR TAB h[I]<=y&Jjv GO TO [D] IF NEW [T]B FLASH [B]/ PAPER f NEW CODE SIN LOAD TAB ASN REM [U] OR CLS EXP [R]?u IF [Q]&jFN STEP TAB ASN CODE PEEK DATA [T] LINE OVER [L]▘i BORDER AT *n INPUT CODE SIN BORDER RNDRND IF SGN INVERSE CLS EXP EXP 'e REM INKEY$.jFN OR RND OR OUT AND [M] DATA VAL$ NEW AT [Q]+a LOAD AT *f NEW VAL VAL COPY ACS ASN IF [R]TAN FOR [S][R]/e REM [Q]&Z[N][G][F][A]AT DATA [E] OVER INPUT [U][Q]+i BORDER SGN :~ RETURN ▗ DEF FN AT AT CONTINUE SCREEN$ OR INPUT INKEY$AT 'i/ OVER [O]Z STEP SCREEN$ AT u,Oe FOR ATN ATN ATTR IF CODE COPY ATTR ATTR NEW ATN FOR SQR IN IN SQR SQR NEW ATN FLASH ▛ OVER ▛ FLASH ATN ATN ISQR IN IN REM SQR BORDER ATN ATTR IF CODE COPY ATTR ATTR ATN ATN SQR REM IN L FOR INKEY$SCREEN$ NEW VERIFY [L] ERASE ERASE YFi CLEAR {IN DIM ©▛ FLASH h RUN kFN COPY VAL$ IF VAL BORDER |▛ OPEN # INPUT SGN FOR p▜ BORDER PAPER ▖HSQR BORDER RESTORE VAL SIN u.Njr DATA [P] REM IF SQR INKEY$;u BORDER [Q]*j INPUT [H] IF CODE PEEK DATA c[B FLASH i BORDER AT *n INPUT [D] IF [T]PEEK SAVE RETURN SQR INVERSE 'i FOR AT .n REM [P]PI CLEAR CIRCLE ATTR 3 PAPER [L]STR$ 'e FOR FN .j REM [D]SQR INVERSE DRAW ▘BIN IF VAL$ POINT +e LOAD FN *j NEW [K][U] ERASE MOVE [M] NEW [U] NEW VAL$ RND+a LOAD AT *f NEW ▚BIN ACS LEN SAVE ▖. NEW [E] OVER /a FOR AT &f PAPER FN [Q] INPUT CIRCLE [C] REM SCREEN$ OR /e FOR [Q]&z IF INT MOVE y$Jg INPUT [S]SQR PEEK PEEK SQR BNFRKNPEEK SQR SIN PEEK ACS INKEY$PISQR SIN IN VAL$ ATTR SCREEN$ ACS ATN ATTR SIN IN PEEK SQR INT TAB [S]INKEY$POINT SIN [F][G][B][N][C][G]POINT SIN RNDINKEY$[R][U]PISQR VAL IN AT ATTR FN SIN ASN POINT PEEK ABS SIN EXP ACS q BORDER BEEP %F[K]>= SAVE PI LLIST wPEEK DIM ABS IN LOAD RNDATTR RESTORE ACS CLEAR TAN CLEAR SIN ABS y&Jjv GO TO [D] IF NEW [T]▘Q OUT [A]f NEW [D] IF ATTR ACS CONTINUE [P] NEW SQR INVERSE ?q CLS VAL &f REM [P]CODE STEP CONTINUE [B] SAVE YA OUT [F]AT &j REM [J] LIST POINT ASN DATA [C] IF PEEK MERGE ;u BORDER AT *j INPUT [K]SCREEN$ STEP DATA VAL$ , OVER [O] LET i BORDER [Q]*n INPUT [O]INKEY$ STEP SAVE ▙ RETURN INT MOVE 'i FOR [Q].n REM [O]INKEY$LEN [I] FOR s[K] FLASH STR$ 'e FOR [U].j REM [D]SQR INVERSE DRAW ▞ DATA IF RNDEXP +e LOAD [U]*j NEW [B]BIN [J]▝A{i DATA SQR SQR LOAD IN H CONTINUE ATTR ATTR CLS ATN DRAW LEN ASN CLS POINT G CONTINUE INKEY$[S] LOAD INKEY$ CONTINUE SCREEN$ SCREEN$ VRVSCREEN$ D CONTINUE PI[T] LOAD PI CONTINUE POINT POINT CLS ASN a=Zu LPRINT FN REM © OPEN #PEEK MERGE RESTORE VAL FLASH ▙ INVERSE CIRCLE ▞ NEW p▛ BEEP IN MOVE DIM RND GO SUB SCREEN$ CLS ACS LEN CODE SAVE [S]VAL BORDER PEEK CONTINUE ABS IN FOR RNDy AND IF EXP RETURN ATN IF [A]▚ COPY ▙▚[K]▚*▙-,▚/INT PEEK INT ▚32▙54▚G[K]^[O]Y[K]P▚KZ▙]/▚fz▝t▙[I] RANDOMIZE rv▙v▚▚b[K][O]b[K][K]~▚v▙▙r▚zINT INT FPEEK INT Ff▚r▙vz▚[K]b[O][O]fz▚~V▙R▚▚" IF RETURN & IF ^frn▙rj▚~z[K]f~[K]bf▚rj▙vj~fINT B^PEEK BZ▚~jvnrf▚bz[O]fz[K]~frn▙rj▚~[K]z▚[O]z▘f▚rj▙vj~f[K]b~[O]bz▚~ LINE TO ▙USR CLOSE #▚ LPRINT INT STOP PEEK DATA INT NEW ▚ CONTINUE REM ▙ GO TO INPUT ▚ LIST [K] PAUSE [O] POKE [K] PLOT ▚ SAVE IF ▙ DRAW RETURN ▚ IF ▘ RETURN ▗ IF ▚▙[O][K]▚j▙▙▞▚▘ PAPER CPEEK PEEK :PEEK ▚ REM s▙▙▞▚ IF b~[O]z[K]f▚jn▙jf▚[K]z[O]~[K]zf▚jn▙jf▚z[K]~[O]z[K]f▚jn▙jf▚ZINT ^PEEK ZINT f▚j▙ STOP DATA ▚ PLOT [K] CONTINUE [O] REM [K] GO TO ▚ RETURN LIST ▙ PAUSE POKE ▚ IF x RETURN z IF |▚▚[K][O][K]▚▙▚fINT INT PEEK PEEK [S]INT n▚z▙ REM ▚fc[K]j[O][G][K][F]▚gj▙▙▚~▜~z IF ▘▚▞ REM wnj▚f[K]z[O]~[K]z▚fj▙nj▚fINT ZPEEK ^INT Z▚fj▙nj▚f[K]z[O]~[K]z▚fj▙nj▚ CLS O ERASE CLS w+[N]! REM +[K]m/ IF [K]+ AND ▛t?▙TAN 1INKEY$PI[L]▝ DATA INKEY$▘ATTR <># FORMAT POINT BRIGHT k MERGE RESTORE 7ABS USR EXP TO RNDk INK #AT CONTINUE 'PIVAL$ {Q/ BEEP 3TAN BEEP 'Mp;ATTR ▚▚▛ FORMAT DEF FN K[E][G]k INK $[I]TAB [N]▜SCREEN$ qWVAL$ oVAL SIN W RESTORE ([E]POINT [J]VAL$ }[[C]S[E][G]sSTR$ 4▖RND[F]▜SCREEN$ y_[O]_▖RNDP GO TO INK DIM ▛INKEY$}[[K][▗▚k INK 4▖ABS ▟[H]INT qW[O]_▘g MERGE ([E][J]POINT COS [O]Mk[C]S▗▚c MOVE $[I]RND[F][H]INT iO▙O▖g MERGE [M]POINT [J]▛INKEY$▟ATTR o*CODE ▖g MERGE [M]POINT [J]▛INKEY$mKK[E][G]k INK $[I]TAB [N]▜SCREEN$ qWVAL$ oVAL SIN W RESTORE ([E]POINT [J]VAL$ }[[C]S[E][G]sSTR$ 4▖RND[F]▜SCREEN$ y_[O]_▖RNDP GO TO INK DIM ▛INKEY$}[[K][▗▚k INK 4▖ABS ▟[H]INT qW[O]_▘g MERGE ([E][J]POINT COS [O]Mk[C]S▗▚c MOVE $[I]RND[F][H]INT iO▛ VERIFY S▗▚c MOVE $[I]RND[F]wZ▞CODE nCODE ▖g MERGE [M]POINT [J]▛INKEY$mKK[E][G]k INK $[I]TAB [N]▜SCREEN$ qWVAL$ oVAL SIN W RESTORE ([E]POINT [J]VAL$ }[[C]S[E][G]sSTR$ 4▖RND[F]▜SCREEN$ y_[O]_▖RNDP GO TO INK DIM ▛INKEY$}[[K][▗▚k INK 4▖ABS ▟[H]INT qW[O]_▘g MERGE ([E][J]POINT COS [O]Mk IF `SCREEN$ [S]FN FN +SQR FORMAT BIN [Q] FLASH ▛ STEP BRIGHT ▛▝▙ RANDOMIZE g:PI GO TO k${q▚ LET g:CODE FORMAT [L] BRIGHT [L][B][O] DIM w*OPI~M[D]%[L] TO BRIGHT WSWk&g*c.g*k&w:s>w:k&[L]USR OVER c*g&kZ^Z&k*g.c*g&k:w> FORMAT THEN k&g*c.g*k&WSWk&g*c.g*[H] TO >=w>s:w&k*g.c*g&k PAPER [H] OVER [D] PAPER [H]&k*[L]BIN INVERSE g*k&w:s>w:k&g*c.g*k&WSATTR LIST ERASE k*g.c*g&k:w>s:w&k*g.c*g&[H]VAL CODE ^Zk&g*c.g*k&w:s>w:k&g*[P]BIN BRIGHT g&kWSW&k*g.c*g&k:w>s:▛ TO MOVE g*c.g*k&[H] PAPER [D] OVER [H] PAPER k&g*c.g*k&▛ LIST BIN s:w&k*g.c*g&kWSW&k*g.[P] LPRINT PAPER k&w:s>w:k&g*c.g*k&Z^Z[H] GO TO FLASH g.c*g&k:w>s:w&k*g.c*g&kATTR CLOSE # GO TO Wk&g*c.g*k&w:s>w:k&g*c.[L] LPRINT MERGE k PAPER [H] OVER [D] PAPER [H]&k*g.c*g&k:w>s:w&[H] LPRINT OVER c.g*k&WSWk&g*c.g*k&w: POKE CAT w&k*g.c*g&kZ^Z&k*g.c*[L] GO TO FORMAT w:s>w:k&g*c.g*k&WSWk&[L] LPRINT INK c*g&k:w>s:w&k*g.c*g&k PAPER [H] OVER o LIST k&g*c.g*k&w:s>w:k&g*c.g*[H] REM WSW&k*g.c*g&k:w>s:w&k*[L] OUT g*k&Z^Zk&g*c.g*k&w:s>▛ CLOSE #k*g.c*g&kWSW&k*g.c*g&[H]<>s>w:k&g*c.g*k&[H] PAPER [D] OVER [H] PAPER k&g*[P] OVER g&k:w>s:w&k*g.c*g&kWSATTR OPEN #g*c.g*k&w:s>w:k&g*c.g*k& FOR pFN Z&k*g.c*g&k:w>s:w&k*g.[P] INVERSE k&WSWk&g*c.g*k&w:s>w:OPISIN M[D]%CLN ▗[P TO xz STEP INKEY$▘PEEK VAL ▟ATN LN y7 REM [U][O]`INT [G]PIzC[D]%VAL FLASH +zFN OPI[I]8INT RESTORE AT ▚▜[Q]([H]USR EXP TO mE[H]% PAUSE J▘SIN urn*k[C] ERASE VERIFY [O]zINT PAUSE *z}C[N]ABS ABS [ATTR MOVE PEEK [T]__WWCODE LINE [A]INKEY$©▗[N]K©[E]▙c▘W PLOT tINKEY$`▗ DATA mZr[M]<>[J][A]<>[N] NEXT _ LET PEEK y©▛INT ▚[P]▜SCREEN$ Ro[L]▙[P]kPI[O]q[[J][D]INKEY$MATTR ▙ VERIFY ▛_ STOP d[O]PEEK [G]x[J]SCREEN$ ▚[E] OR [J][M]STR$ DIM COPY ▜'▟ INK ▟ RETURN ;SCREEN$ j▙C▚Ne[K]k"y[K]t©[F]5yPEEK PEEK ▚EE{|©b^0Ode[D]▚ PAPER utISIN m▚[O]INT DATA ▝tuq{xtru▞▚[S]g5 CIRCLE [I][O]POINT USR [A][M]LN CODE DATA THEN yee!$PEEK y9 OVER q▝p▝[E][K] RETURN [O]Rf©rvrpty RETURN PAPER RANDOMIZE u▙▙SIN M COPY INVERSE <VAL MERGE DIM NOT MERGE QW5!55yEXP aAe ▚ VERIFY uu[B]j[A] VERIFY ▖ CIRCLE ATTR [M][K][L] DEF FN ▚▖POINT ▙▘ PAPER ▚|[J] DATA ▝| LPRINT ▚▙▞▞▝▝ASN ASN INT INT j[A][S]INKEY$RNDEXP ▞▞▟[I]_dhl DIM PRINT MERGE ATTR -/=y MOVE sy[K] DEF FN e[O] RANDOMIZE CIRCLE [P] CLS [N]EXP TAB GO SUB 1[B]mTAB MERGE FOR 1 PAPER [G][E]LEN u▟▚[C]VRbfINKEY$INT ▚▙▘▚▘INT ▚ NINT zz▚[K]TAN m PLOT POKE LET PRINT POKE TAB TAB ATTR )&l(ABS pwq▟▚ VERIFY LPRINT sa MERGE TAB Mmo RANDOMIZE [G]<>h©tkceegg▚▘LEN JJ▚▚$▝SGN INT ▘ASN ▖ABS EXP JF[K]▖!]bPIyEei RANDOMIZE }y CLEAR INVERSE [J]xytu▙ PAPER y[D] RESTORE RND! LLIST RNDYImmy▘vvBB▚▙N▖[O]fbj[O]FF[O]u▙ RANDOMIZE RANDOMIZE ]Y MERGE RESTORE LLIST RESTORE [KEwCPTwYy%e[O] LINE SCREEN$ ACS zSIN ▘▞▘ EXP INT $INT ACS ACS ▙SIN ASN ▘ASN POINT imj[E]FF PLOT ▚[K]INT PAUSE d RETURN FF▚ACS ▙[C]R[K]f▘ACS ▙▘▙▚EXP EXP $LEN PEEK ▞ASN ▞[O]▙▞EXP RNDea]Y[A]▗▟▞ASN EXP yEXP ABS DATA yl▚ PAPER N[K]FFv[O]Z^[K][G]z▙FBJ[K]vPEEK ~INT INT v▙BBJ[G]j[O]^[O]▚ CLOSE #ASN ~zJF PLOT `CHR$ SAVE OR OR INT INT vACS ACS ACS [K][G][B][F]RNDEXP FJ▙▚INT INT AA ▚▙ACS INT ▙▞▞▞[O]POINT TAB [J]▙▚ PAPER JN~zvzFr▘▘ LPRINT FACS INT ▙JJv[O][S][I]SCREEN$ SCREEN$ F▙~ACS ACS PEEK ACS z[C]JF~JJ▚ TO [J][N][B][F]RNDEXP ▞▙▙▘JFv AND CHR$ STR$ OR PRINT ▞▞▙▚▞▞▞▞RNDRND[S][S]jINT ACS ASN LEN ▙ INT TAN $PEEK FF▚▚SIN SIN ASN INKEY$[O][R][M]POINT ASN FJ▙ BRIGHT zzFr LPRINT ▙n LPRINT INT ▘▚NNz▘INKEY$[G]n[O]F▘▘▘▚FJzF▙$INT PEEK F▙▚▙zzj[K]^Z▚ VERIFY ASN NJ▚INT AND `STR$ SAVE ` AND ▘ASN ABS ABS JJ▚FN [F][B][R]RNDZF▚▘▖ACS ACS EXP EXP EE$▘SIN ACS CIRCLE ▘▘FFzzSCREEN$ SCREEN$ [O][O]F▘▙vz~PEEK PEEK LPRINT zTAN FJ~ACS ACS SCREEN$ ^[K]j▘ACS PEEK PEEK RETURN PEEK ~~INT INT ACS ▘ASN ▙INT INT SCREEN$ [K][K][C]▞▞ASN ASN NN DRAW AND CHR$ STR$ OR yACS ▘PEEK PEEK DRAW Z[O]n[O]INT [G]vv~~▖Fz NINT ▚ACS INT Nz▘INKEY$[M]VAL$ VAL$ [K] VERIFY ASN ▙~~JJ LPRINT FxAEFINT v▙SIN INT ACS [K][C][R][O]ZF▚ACS SIN ASN INT PEEK ▝LN ▞▞FF▗ASN ▙vvZZ[C][C]INKEY$EXP ASN ACS SIN v▙INT DRAW LINE DEF FN d IF SCREEN$ FFzzrrACS ▙zf[S][E]SCREEN$ SCREEN$ ▚▚▚▘BFvzACS PEEK INT z▚▘vvv[O]Z^[K][C]FFzzrrACS ▙z▚ LPRINT BtJJ▚ BRIGHT ▞▟LEN ASN uyEY[N]▖[K]&v▙BBJ[G]JPEEK $~PEEK ▚$u[I]pwy▙[K][G]INKEY$[O]zzACS ASN ▙yy99 CLEAR CLEAR ` IF DRAW u©kF*^*4ncme▘zj▝LEN u▙INT [U]rr J▘J▙▙▘uqqicgbe[P] PAPER q▙5EXP RANDOMIZE %}~>z REM FJe[A][O][C]EXP ▘zzNN▚▚INT SGN ▝▘▚ z▘ACS ▖PEEK INT ▚▙e[G] LLIST Cisrpqwtx{zvr© PAPER y[A]INT [O][O]▚ FLASH $u▝▚SIN z~NJFzACS ▘rrACS ACS SCREEN$ [O][C]e9 OR ] DIM [J] OR ▝RND9[N]9q GO SUB [N]9Q RESTORE 5!qIukb GO SUB a[K] VERIFY u▝▞▙▙▘▚EXP [C] NEW TE{u▘▙*y▛RND[F][J][N][P][I]▗▛▞z` CLEAR d IF Zy[J] PRINT LET LEN 5U RANDOMIZE [J][F]©RND'e▚▙ VERIFY STEP PIABS SAVE SAVE COPY COPY CHR$ CHR$ <><> TO TO THEN THEN USR USR OUT OUT VAL$ [N] INVERSE STR$ INT ▟>=>= CAT CAT CHR$ CHR$ 99<<;;USR USR CAT CAT PEEK ▟ STEP STR$ SCREEN$ [N] CIRCLE CIRCLE OUT OUT CHR$ CHR$ <><> TO TO THEN THEN USR USR COPY COPY $▙ABS CLEAR STR$ INT ▟>=>= CAT CAT CHR$ CHR$ INK INK BRIGHT BRIGHT FLASH FLASH USR USR CAT CAT PEEK ▟STR$ [T]PEEK PEEK ABS ABS LN LN <=<= TO TO THEN THEN DEF FN DEF FN OR OR CIRCLE CIRCLE OUT OUT BRIGHT BRIGHT NOT NOT STEP ▚ LINE DEF FN <> OR BIN SAVE CLS COPY SAVE DRAW COPY NOT CHR$ DEF FN <> STEP TO >= THEN <=USR BRIGHT OUT FLASH INVERSE [C]CHR$ CHR$ <><> TO TO THEN THEN USR USR ??::99BIN BIN THEN THEN >=>= CAT CAT STR$ [C] OVER PAPER INVERSE INK CIRCLE BIN <= THEN TO >= THEN CAT DEF FN CHR$ OR RANDOMIZE SAVE DRAW COPY CLS DRAW USR NOT CAT <>[Q] DEF FN DEF FN OR OR CIRCLE CIRCLE OUT OUT BRIGHT BRIGHT NOT NOT STEP ▟ OVER INT INT STR$ COPY ` PLOT SAVE SCREEN$ ABS STR$ CHR$ DEF FN <> STEP TO >= THEN <=USR BRIGHT OUT FLASH INVERSE [J]ACS ▞<>▛▘ VERIFY CLEAR CLEAR IF IF RANDOMIZE RANDOMIZE BIN BIN THEN THEN >=>= CAT CAT STR$ [J]VAL$ [N] INVERSE IF ▟<><> DEF FN DEF FN OR OR 88??<<NOT NOT STEP ▟INT ▞STR$ PEEK CIRCLE [O]INT INT INKEY$INKEY$SCREEN$ SCREEN$ AND <=SCREEN$ OVER <>INKEY$ CLS PLOT PAUSE [O] LPRINT STOP ATTR MERGE PAPER CAT STEP PAPER CIRCLE OUT THEN INKEY$ CAT <> FLASH TO <>INT PIINKEY$SCREEN$ SCREEN$ AND <=SCREEN$ STEP OPEN # OUT POINT PAPER OUT OUT FLASH PAPER INKEY$INKEY$SCREEN$ INK PAPER THEN THEN AND OR <> LINE NOT PEEK DEF FN >= OUT MERGE NOT BIN OVER INVERSE VAL$ TO OR CLOSE #INKEY$ READ PRINT FOR [O] CONTINUE COPY <= LINE SCREEN$ BRIGHT THEN BRIGHT INK NOT <>>=INT MERGE CIRCLE PEEK INVERSE FLASH THEN NOT SCREEN$ FN CIRCLE STR$ OPEN # THEN STR$ NOT Z;*^9?>= ERASE CIRCLE CAT VAL$ PAPER CHR$ CAT INKEY$ ERASE OUT >= TO OUT LN INT PIINKEY$SCREEN$ SCREEN$ OVER BRIGHT CAT INK MERGE INKEY$ CLS POKE BORDER [O] LET COPY OUT INKEY$BIN OR INK VAL$ ATTR ATTR INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$ PAPER PAPER OVER OVER PAPER PAPER INKEY$INKEY$ FOR SCREEN$ IF FOR BORDER SCREEN$ SCREEN$ INKEY$ LET INPUT LET PEEK PRINT DIM PAUSE BORDER NEW RANDOMIZE COPY VAL$ INKEY$SCREEN$ RUN INKEY$<> MERGE >= FLASH DEF FN CAT NEW INKEY$PISCREEN$ SAVE RUN CONTINUE READ POKE BORDER LIST INPUT CLS PEEK PRINT REM RESTORE LOAD REM SCREEN$ VAL$ AND CAT AND VERIFY INKEY$Z^ CONTINUE NEW SCREEN$ INKEY$VAL$ IF FOR LLIST INKEY$ GO SUB CLS LET PEEK REM CLS RUN INKEY$ SAVE RETURN FOR VAL$ BORDER DATA RETURN READ POKE OUT <> FORMAT OUT THEN [K] LOAD LLIST SAVE COPY PAUSE RESTORE FOR SCREEN$ STOP DIM DIM INPUT COPY REM PRINT LLIST CONTINUE DIM SCREEN$ IF LLIST REM SAVE RESTORE DATA CONTINUE [F] PAPER [B]▙[D]▞ BORDER CONTINUE FOR SCREEN$ [Q]VAL$ SCREEN$ SCREEN$ PLOT POKE PRINT LLIST REM LOAD INT DATA PAUSE DIM SCREEN$ DRAW LOAD READ SCREEN$ CONTINUE NEXT STOP OUT DEF FN [O] INK MERGE >= BORDER DRAW INPUT RESTORE VAL$ STOP LOAD GO SUB CLEAR READ INT REM GO TO LET LIST INPUT LOAD INKEY$ DRAW RANDOMIZE FOR VAL$ POKE RETURN BORDER PLOT ZP^ZZINKEY$INKEY$SCREEN$ SCREEN$ VAL$ RANDOMIZE BORDER READ PAUSE READ INT REM GO TO LET SAVE COPY REM INKEY$ATTR SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$[K][K] OUT [O] DEF FN OUT PLOT READ SAVE PAUSE VAL$ TO NOT STEP INKEY$ DEF FN OUT VERIFY ERASE MOVE INT DEF FN <>INKEY$<> OR LINE THEN SCREEN$ >= OPEN # MERGE VAL$ IN AT TAB PAPER VERIFY INKEY$ THEN OUT INK <= STEP SCREEN$ INK <>USR DEF FN INT SIN PEEK OVER >=NOT <=<=SCREEN$ NOT CAT STR$ CAT CLOSE # MERGE [K] DIM LET SAVE INPUT GO SUB <= CLOSE # CAT SCREEN$ [S]VAL$ STEP OR LINE CHR$ OUT CLOSE #PEEK PAPER OPEN #<> STEP INKEY$<> OR BRIGHT OVER [U]INKEY$INKEY$CHR$ (??3Z.NOT <=<=SCREEN$ [S]VAL$ CAT OVER OR INKEY$TAN INT PEEK PEEK INT INT INKEY$ FORMAT CAT CIRCLE BEEP VAL$ >=NOT STR$ INKEY$ INPUT PAUSE COPY LIST LET DIM INKEY$ ERASE OR SCREEN$ OR THEN BIN OVER INKEY$<> BRIGHT INT OPEN # THEN <> OPEN # OR INKEY$ INK OR >= PAPER SCREEN$ [U]INKEY$INKEY$ PAPER PAPER OVER PAPER SCREEN$ INKEY$ DATA FOR VAL$ READ RESTORE LPRINT INKEY$ LIST LPRINT CLEAR PAUSE LOAD RETURN INT SCREEN$ INKEY$ INPUT LOAD DATA CLEAR RETURN DRAW LOAD PAUSE OUT VERIFY AND FORMAT MERGE [K] REM NEXT LET PLOT BORDER DATA SCREEN$ LLIST DIM FOR REM PRINT DATA RUN INPUT PRINT POKE INKEY$ DRAW SCREEN$ READ LLIST RANDOMIZE LLIST LIST READ Z[__ZZINKEY$INKEY$SCREEN$ [U][Q][Q]SCREEN$ IF POKE READ LET CONTINUE COPY GO SUB POKE CLS RUN INKEY$ BORDER COPY POKE RUN LLIST FOR INKEY$SCREEN$ [K] CLOSE # BEEP OR OUT INVERSE DIM INKEY$ DATA LOAD VAL$ CLEAR LLIST FOR LET READ NEW STOP PEEK VAL TAN TAN INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ <>[R]LEN PAPER ERASE OVER VAL$ SIN CAT MERGE SCREEN$ NOT INVERSE VAL$ OR BRIGHT NOT CLOSE #INT ACS PEEK DEF FN >= OUT MERGE MERGE SCREEN$ STR$ THEN BEEP SCREEN$ BIN <> MOVE [K][G][O] LIST PRINT GO SUB INKEY$SCREEN$ SCREEN$ BIN STR$ INK SCREEN$ ATTR INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$ZZ^^ZZINKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK LIST LOAD INT LOAD INKEY$ LET LOAD DIM LLIST PI CLEAR READ INKEY$ DEF FN NOT [O]<> OVER OUT IF RETURN SCREEN$ INKEY$VAL$ LOAD SCREEN$ INKEY$INKEY$ THEN CAT VERIFY LINE BEEP <> MERGE USR ERASE SCREEN$ ASN VAL$ VAL$ SCREEN$ SCREEN$ INKEY$ SAVE ▙[F] OVER PAPER [E] READ INKEY$ DRAW FOR READ VAL$ INKEY$SCREEN$ BORDER INKEY$ LET PRINT GO SUB REM FOR POKE COPY CLEAR COPY SCREEN$ CODE VAL$ SCREEN$ SCREEN$ INKEY$INKEY$[K] NEW OUT [O] CIRCLE NOT INKEY$ THEN CAT STEP CAT LINE CAT <=<>INKEY$ POKE CLS PRINT PAUSE COPY REM BORDER PAUSE PAUSE SCREEN$ [S]VAL$ FOR SCREEN$ PAUSE NEXT Z LOAD INKEY$ LLIST COPY DRAW CLEAR NEXT SCREEN$ GO SUB BORDER LET NEXT CLS COS INPUT PRINT INKEY$FN [U][U]VAL$ VAL$ SCREEN$ SCREEN$ DATA POKE MERGE <> BEEP LINE CHR$ [K] LOAD INPUT SCREEN$ LLIST VAL$ PRINT LOAD SAVE PAUSE RUN RUN INT VAL VAL TAN TAN INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ INPUT FOR INKEY$ CONTINUE [P]▙ OVER ERASE PAPER ▙ BORDER GO SUB SCREEN$ DATA FOR STOP PAUSE LIST RUN INKEY$TAN INT PEEK PEEK INT INT INKEY$ RUN SCREEN$ RETURN CLS IF SCREEN$ FN THEN <> POKE ▖[M][O] MERGE <> LIST DIM READ NEW VAL$ [S]SCREEN$ LLIST POKE NEXT INPUT CLS LOAD PEEK NEW INPUT NEXT GO SUB FOR SCREEN$ [S]VAL$ DATA RESTORE INKEY$ FOR Z READ PRINT RETURN FOR VAL$ POKE FOR DATA LOAD FOR CLS COPY REM PEEK TAN INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ DATA READ INKEY$ TO MERGE BIN OPEN # CAT NEW BORDER GO TO RANDOMIZE CLS VAL$ [S]SCREEN$ ABS ACS SIN AT INT DRAW COPY LIST INPUT INKEY$ PAUSE RESTORE CLEAR FOR VAL$ BORDER DATA DIM LLIST [F] PAPER FORMAT OVER PAPER PAPER INKEY$INKEY$ CLS SCREEN$ BORDER READ SCREEN$ SQR ATTR NEXT IF INT RESTORE COPY DIM INPUT RETURN INKEY$FN BRIGHT <= CAT USR CAT [U]INKEY$>= FLASH STEP DEF FN FLASH OPEN # LIST BORDER NEW SCREEN$ [S]VAL$ LLIST FOR POKE PAUSE LOAD INT LET REM INPUT LOAD STOP BORDER SCREEN$ DRAW RUN IF FOR VERIFY LOAD REM Z^ REM CLEAR FOR RANDOMIZE LOAD VAL$ [U]SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$[K][K]▙[E]▞COS FN EXP PEEK [Q]VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$ POKE RETURN LLIST VAL$ DRAW SAVE READ FOR ▛ PAPER FORMAT FORMAT CLOSE # PAPER INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ FN CLEAR FOR LLIST RETURN DIM POKE [K] INVERSE OUT BIN FLASH [I]INKEY$ NEXT RANDOMIZE RANDOMIZE LOAD STOP RANDOMIZE CLS INKEY$ PRINT PLOT LOAD STOP COPY INPUT STOP INKEY$SCREEN$ SCREEN$ DRAW LLIST ERASE LOAD SCREEN$ PIINKEY$ZZ^^ZZINKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ FOR INKEY$SCREEN$ INT GO TO GO SUB CLS INT ACS INKEY$ PLOT RESTORE LPRINT REM CLS SCREEN$ INPUT POKE COPY ERASE CLOSE # THEN LINE CHR$ [K]FN INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$ PAPER PAPER OVER SCREEN$ SIN COS MERGE INKEY$ AND OR CAT LINE CAT CIRCLE INKEY$SCREEN$ INT ERASE FLASH ERASE LINE INT SCREEN$ INKEY$ THEN BIN LINE VAL$ INK OR THEN NOT [K] CONTINUE CLS GO SUB INPUT PRINT CLOSE # CAT BIN STEP VAL$ <=BIN SCREEN$ STR$ <= BEEP OUT PEEK BRIGHT NOT INT MERGE ERASE CAT THEN CHR$ STEP OR PAPER OUT [R]CN^PTTINKEY$INKEY$SCREEN$ SCREEN$ VAL$ USR OR SCREEN$ PIPISQR INT PEEK PEEK INT <> ERASE NOT THEN AND STEP STR$ PAPER OPEN #[R]IN [K][P][P][L][K]INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK CIRCLE NOT NOT INKEY$INKEY$SCREEN$ <> FLASH OPEN # INK INKEY$FN PAPER PAPER OVER OVER PAPER PAPER INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$[K][K][O][O][K][K]INKEY$INKEY$SCREEN$ SCREEN$ VAL$ VAL$ SCREEN$ SCREEN$ INKEY$INKEY$INT INT PEEK PEEK INT INT INKEY$INKEY$ug PRINT X PRINT ATTR [C] LOAD LzATN COS TAB ▞ DRAW [K]s}ATTR AND [H][L] PAPER [P][O]▘ LOAD k6SGN ASN q▖g6LN ABS i@[P]INT INT [U]#JTAN LEN SGN VERIFY TAN DEF FN AND FN CHR$ [U] NEW TAN LEN VERIFY ATTR ▙ NEXT [L]SQR [K]? SAVE CLEAR LPRINT ▟[F]RND[K]p▖▛[A] OR ▞7 GO SUB ▞ABS ▙m[[G]oATTR z LET ▖▘TAN OPEN # LET [J]ASN VAL$ Ec__PI PAPER CLEAR AT NEXT VERIFY ▛▚LEN ▛[L]aS PEEK ▜ INK [L]G0[S]▜zMo©{ATN <[S]▛ MERGE ▙[P]u▛K<PEEK SQR DEF FN RETURN LN BORDER PAPER ▜ MERGE [P]▛G<[S]c[gINKEY$INT ▚▚L[I]▘▝ MERGE NOT VERIFY OUT INVERSE LINE OPEN # MERGE >=SGN [M]▝ AND CAT AND VERIFY [A] PLOT LET SIN LEN SQR PEEK INKEY$INKEY$ STEP THEN NOT THEN [M]▗▟ SAVE DATA DATA LPRINT LPRINT DATA DATA SAVE SAVE POKE POKE LIST [I]▘[M]uLN LN wIN FN ATTR F▜EXP CSIN SCREEN$ C[U] DATA I[Q]MLN ▙ACS LN yN]TAN [A]QSQR j[C]▞LN ▙LN }NCODE ` ERASE [H]INKEY$[K][U] INK [I][N]_c▚ CLEAR TAB [O]vk[P]GSCREEN$ I[P]u READ SGN LN THEN CLEAR TAB [O]vATTR [A] OUT [M][M] DIM ▜fPI GO TO OPEN #TAN PLOT LN PRINT POINT ▟ INK INPUT TO PIHFN 'NATTR LOAD G[U] RETURN RANDOMIZE [Q] DRAW w INVERSE k CIRCLE TAN ISGN CATTR READ G[I]t<INKEY$[F]IscATTR ,NLN TAN i]dQ RANDOMIZE PEEK [L]VAL$ M INK SCREEN$ ▛SQR h[C]t[O]INKEY$uDSTR$ RND▗ePEEK ▙ATTR /NLN uPOINT VAL ▜{keWa GO TO PI:[L]RND▙G? LIST ~[C]@SGN #JtqD▛HK5[▘r[U]?Z<>SGN ,Jp▖Bxy2 OUT [E][T] FOR OUT =TAN INKEY$▖%mTAN ?Z[Q] INK [M][G] LET RND[K]veVAL PAUSE SGN RANDOMIZE RNDSGN VAL <>[N]SCREEN$ FVAL RANDOMIZE NEXT =INKEY$▛ATTR & CIRCLE [O][J]SQR STR$ LN ▞DPI6[P]RNDG3COS ▞[D](zzPI[A]H[L] FORMAT ▛[R]▜k*a]2BIN S LIST )Yt}CODE ERASE [H]▜ STOP SQR ASGN INT k6Cg CIRCLE C CLOSE #u▜g RESTORE [[Q]▙w COPY PIJ[P]& FOR _▜: GO TO N FOR RgGOTAN [O]c NEXT ▛:[A]w*_[[U]▞k COPY ATTR N[P]" FOR S▜INT IF SKOVAL [O]g NEXT ▜▚ PAPER w.__[U][H]k NEXT ATTR ▙N[L]" BORDER ▜z:[D] DEF FN SQR D[G]k NEXT %]pG PRINT kk TO WUSR iATTR y INK ATTR INPUT c MOVE ~ PAPER ▜IN AT sTAB ▜w▚ NEW ATTR INPUT c MOVE ~ PAPER ▜[P]SGN S▟PISQR <g MOVE z ERASE ▛ PRINT K DIM <= COPY LN [H]g NEXT CODE ▙Jg INVERSE r AND [L][L] OVER W▞SQR u▛w LET VAL [J]g COPY PIINT zS RESTORE N NEW ▜ LINE G[N]COS y▛{ RANDOMIZE [U]▙s BORDER SQR [K]Fk MOVE ~ ERASE LINE K[F]G▞_~INT {{ RANDOMIZE TAN [M]c RUN g MOVE r PAPER [L][P] OVER S▞PIuLN [N]▛s LET g NEXT PI▚zW RESTORE J NEW SQR FN G[J]COS }▛w RANDOMIZE LN w BORDER S6 OR E NEW REM %CODE }[F]oEPOINT <=IN SQR SQR IN IN NOT NOT CAT CAT THEN THEN CAT uyyeeaaeeyyuuqquuyyEEAAEz▚▚▙▙▚▚[J]EaaeeyyuuqqqZ▚▚zz~~zz▚▚▝Z▞}mj▚Yyx RETURN MOVE J▙▟FLEN jLN X▛v▚ LINE LN h INVERSE INVERSE INK INK INVERSE INVERSE STR$ STR$ CAT Z▖▖SGN k&▚9 SAVE RETURN LET *SGN ▞.▙LVAL AND [B]J[I][M]|SCREEN$ ▚/xhVAL$ ▝X[K]▚INT INT PEEK PEEK INT INT [N]F▝ZPEEK ▚▙▚▚[K][K][K][O][B]J LLIST elINT ▟hSGN COS qSCREEN$ CIRCLE x}SGN FOR TAB IF [I]FN AT G▝ CAT THEN THEN CAT CAT NOT NOT COPY COPY CLS CLS COPY j`|[K]▖LN <▛▚[B]J[I][I][M]SCREEN$ VAL BRIGHT ▛▙▝ZVAL TO LINE DRAW BRIGHT ▝Z▙▙▚▚[K][K][O][O][B]EyyuuqquuyyAzPEEK PEEK INT INT ▚▚▙▙▞uyyeeaaeeyyuuqquuyy▝▝ STEP [C];; LLIST 1 RESTORE INK MOVE INK !@ INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]j&~0v<~[K]~&~~"~<~|f~vf~v~|&[K]<~cf[K]LN flvlZv>0[K]v[K]~fZvkvvZvlvvfvvZvf[K]nvw>l[K]LN INPUT $<6<0&p$ NEW 0[K]& INPUT 0k0 LPRINT 6<0,f0$6 INPUT [K]F0>&<[K]LN TO l[K]<<f|| NEW <[K]f TO < VERIFY < LPRINT [K]<x TO <|< TO [K]<>f<[K]LN |ltft0`Dfd INPUT `[K] GO TO |0` VERIFY ` LPRINT 0ft`| TO `d0`|[K] AND `jDt[K]LN RETURN dnd0n DEF FN nn GO TO n[K] DEF FN 0n VERIFY n GO TO 0ndnn DEF FN nn0`[K] INPUT nb DEF FN d[K]ATN SAVE AND INPUT DRAW INPUT x RETURN DEF FN DRAW INPUT x RETURN [K] OVER SAVE x RETURN ~ RETURN xx DRAW INPUT RETURN NEW ~ RETURN INPUT x LPRINT SAVE [K]| RETURN BORDER DEF FN INPUT [K] GO SUB fff[K]ff[K]f[K]$[K])ff[K]!<~f<vf~[K]Xv|f"f[K]-fff<|<~ff~v~~|fv|v|~~|~<fv|vv<~lv>vlv[K]Xv>>vlkl[K], TO > TO TO vv>vv TO TO vtZvv TO 6vv>vv~[K]v[K]( TO v TO 6vv>vv>n>[K] NEW &< LPRINT $$<0[K]X,&$6<k<[K]-$[K] LPRINT 6$ LPRINT 0[K]0<06,6$$6&060$[K]) NEW ,6$$$$F$$[K] NEW f< LPRINT n|<<[K]Xxfn<< VERIFY <[K].n[K]|<n LPRINT <[K]<<<<>x<n|<f[K]<l[K]) AND >x<n||nnl[K] INPUT GO TO t LPRINT ~dt`[K]X|D~ft VERIFY t[K]-~`l0`l||`~df GO TO [K]`l[K]) VERIFY ||`~dd~ AND ~l[K] GO TO DEF FN d GO TO NEW ndn[K]Xn DEF FN NEW nd VERIFY d0[K]- NEW GO TO ` NEW GO TO nnd0nfnn` NEW nn DEF FN n`n RETURN [K]) GO TO nn` NEW nn NEW INPUT NEW RETURN [K]x OVER INPUT x DEF FN INPUT INPUT RETURN [K]X NEW DEF FN DEF FN DRAW INPUT ~ INPUT [K]. DEF FN 0x LPRINT DEF FN x RETURN 0 RETURN INPUT x RETURN NEW < NEW LPRINT DEF FN INPUT DRAW OVER RETURN LPRINT RETURN AND [K])z< NEW LPRINT DEF FN INPUT INPUT DEF FN | DEF FN AND [K]1f[K]f[K] RANDOMIZE f||~vf|1v<[K] TO [K]v>v TO v1vv[K]K[K]T[K]▛660$,6s< NEW $[K]K[K]8[K]▛[K]<nx><{ NEW l[K]K[K] INPUT [K]▛fl`~||fe< INPUT l[K]K[K]8[K]▛nfn NEW nnmn GO TO RETURN [K]J[K]T[K]▛ DRAW NEW RETURN DEF FN NEW DRAW IF NEW x AND [K]J[K][K]a[K]Gj[K][K]G[K][K]G[K][K]GY[K][K]GX[K][K]G,[K][K][K][K][K][K][K][K][K]GJ[K][K]Ga STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]iff DEF FN TO |n~ NEW DEF FN <v[K] LPRINT GO TO x~Z00x00p|fn DRAW [K] RETURN 800 RETURN [K][K]q|v6<fn DRAW [K]6n<~Z00x<v NEW NEW INPUT GO TO xfl<<td INPUT [K]©30`` LPRINT LIST <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x|v6<fn DRAW <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO xcw>>jb BORDER vv,x|n NEW ~v0<`n RETURN [K]|v6<fn DRAW 11s{em IF [K] RETURN AND <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN +kk< VERIFY VERIFY CLOSE #vv$|dn INPUT 11s{em IF [K][K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x>$n~ NEW DEF FN |v6<fn DRAW fl<<td INPUT ~Z00x00p|fn DRAW [K]fl<<td INPUT <nF AND INPUT |[K]vv,x|n NEW |v6<fn DRAW >$n~ NEW DEF FN RETURN AND |v6<`` LPRINT >$n~ NEW DEF FN ~Z00xfl<<td INPUT vv,x|n NEW <v NEW NEW INPUT GO TO x|v6<fn DRAW [K]vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00x&f INPUT TO | SAVE [K][K]vv$|dn INPUT ~v0<`n RETURN vv,x|n NEW <v NEW NEW INPUT GO TO x~v0<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT <v NEW NEW INPUT GO TO x|v6<fn DRAW >$n~ NEW DEF FN [K]0[K]vv$|dn INPUT >$n~ NEW DEF FN [K]vv,x|n NEW <v NEW NEW INPUT GO TO x~Z00x<v NEW NEW INPUT GO TO x|v6<`` LPRINT 11s{em IF fl<<td INPUT [K][K]I<v NEW NEW INPUT GO TO x~Z00x~~&f GO TO DEF FN OVER |v6<`` LPRINT >$n~ NEW DEF FN |v6<fn DRAW >&fD DEF FN DEF FN >nl<l TO DEF FN ~v0<`n RETURN ~Z00x<v[K] LPRINT GO TO x>nl<l TO DEF FN [K]<v NEW NEW INPUT GO TO x~Z00x|v6<`` LPRINT >nl<l TO DEF FN RETURN AND [K][K]Qfl<<td INPUT <v[K] LPRINT GO TO x<v[K] LPRINT GO TO x>&fD DEF FN DEF FN ~v0<`n RETURN RETURN AND <v NEW NEW INPUT GO TO x|v6<fn DRAW >$n~ NEW DEF FN ~Z00x~v0<`n RETURN >&fD DEF FN DEF FN ~v0<`n RETURN fl<<td INPUT [K]|v6<fn DRAW [K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x>$n~ NEW DEF FN |v6<fn DRAW ~v0<`n RETURN [K]0[K][K]J~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x>[ FLASH ACS |0x~v0<`n RETURN <v[K] LPRINT GO TO x<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x|v6<`` LPRINT [K]>&fD DEF FN DEF FN fl<<td INPUT RETURN AND ~v0<`n RETURN vv$|dn INPUT ~r0<fn DRAW |v6<`` LPRINT <v NEW NEW INPUT GO TO xvv,x|n NEW [K][K]q~v0<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K] RETURN AND |v6<`` LPRINT &f INPUT TO | SAVE ©30`` LPRINT LIST [K]>|[K]>$n~ NEW DEF FN vv,x|n NEW <v[K] LPRINT GO TO x~v0<`n RETURN >&fD DEF FN DEF FN 00p|fn DRAW [K][K]y~v0<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K] RETURN AND <v NEW NEW INPUT GO TO xff DEF FN TO ||fn DRAW [K]>|[K]fl<<td INPUT vv$|dn INPUT ~v0<`n RETURN <v[K] LPRINT GO TO x<v[K] LPRINT GO TO x>$n~ NEW DEF FN [K][K]A<v[K] LPRINT GO TO x[K][K]f TO TO DEF FN ~~v0<`n RETURN >&fD DEF FN DEF FN 00p|fn DRAW n[[COS ACS ACS BRIGHT [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN ~v0<`n RETURN <nF AND INPUT |~Z00x00p|fn DRAW [K]0[K]>nl<l TO DEF FN vv,x|n NEW <v NEW NEW INPUT GO TO x~r0<fn DRAW 11s{em IF [K]0[K]ff DEF FN TO |<`n RETURN |v6<`` LPRINT ~v0<`n RETURN <nF AND INPUT |[K][K]!|v6<fn DRAW &f INPUT TO | SAVE >&fD DEF FN DEF FN vv,x|n NEW >$n~ NEW DEF FN vv$|dn INPUT [K]0[K]|v6<fn DRAW [K]vv$|dn INPUT ~v0<`n RETURN RETURN AND |v6<`` LPRINT >$n~ NEW DEF FN [K]<nF AND INPUT |~v0<`n RETURN cw>>jb BORDER >&fD DEF FN DEF FN fl<<td INPUT [K][K]Y<v NEW NEW INPUT GO TO x~Z00xff DEF FN TO |n~ NEW DEF FN >nl<l TO DEF FN vv$|dn INPUT vv$|dn INPUT 11s{em IF ~v0<`n RETURN [K]©30`` LPRINT LIST <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x|v6<fn DRAW 11s{em IF [K][K]000[K]8[K]G`[K]B[K]B@[K]F[Q][K]B[Q][K]D STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]!~Z00x>$n~ NEW DEF FN vv,x|n NEW [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x~Z00x[K]0[K]vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00x>$n~ NEW DEF FN [K]|v6<fn DRAW 11s{em IF ©30`` LPRINT LIST >&fD DEF FN DEF FN >nl<l TO DEF FN RETURN AND fl<<td INPUT ~Z00x[K][K]Y<v[K] LPRINT GO TO x>&fD DEF FN DEF FN ~v0<`n RETURN RETURN AND &f INPUT TO | SAVE n[[COS ACS ACS BRIGHT "kk[K] VERIFY ©fl<<td INPUT cw>>jb BORDER [K]<v NEW NEW INPUT GO TO x~r0<fn DRAW |v6<`` LPRINT >$n~ NEW DEF FN <nF AND INPUT |<v NEW NEW INPUT GO TO xcw>>jb BORDER 0[K][K]q[K] COPY CLS PRINT FOR [A] COPY MERGE [S]AB COPY COPY CODE ATTR U COPY IF DATA R[U]@ @ COPY /[H].% COPY COPY LOAD [H][K] COPY RETURN PRINT SCREEN$ COPY COPY _EXP t[K][K] p[K] COPY nU*@ COPY COPY BRIGHT 2[K] COPY _PIB[K] COPY ©[K] COPY SAVE RESTORE REM [K] COPY LOAD IF USCREEN$ COPY RETURN MERGE [U]CHR$ LPRINT P COPY ?_O'▜/[K] COPY [K]p!@[K]$[K]P[Q][K]▗BIN [S]USR B [K][K]@ [K]B USR [K]IN ^TAB */VAL h[Q]UFN A[K]P[Q]@@@`0[K]/3@[K] COPY [K]q@[K][I]qQ.USR `G OR ; TO d1[K][K]00[K][K]d[K]_/"Q[K]w[K][F] LOAD * LOAD [F]n CLOSE #z*{Td TO ;STR$ [R][Q]STR$ [K][K][K][K]0A1STR$ [K]0PI_/HVAL CONTINUE POKE CONTINUE [K])p([K]p[Q]@▖@[K]Qq OR G` USR ▘![R]K[K]$ ▛%NOT ]▝a▝qPOINT QATN SCREEN$ O! NEW [T]USR LEN {ASN REM BEEP } IF GO SUB CLS USCREEN$ PRINT [T]yCODE W FOR ]ATTR } RESTORE OUT SCREEN$ U LOAD IN © COPY © COPY IN g POKE LIST CONTINUE POKE REM LPRINT LPRINT @[K][K]pSTR$ FN CLOSE #[Q]@[K]1]ABS COPY COPY uk MERGE BIN bEXP TSCREEN$ W REM U▝[H]& CAT SCREEN$ u IF CLEAR IF INVERSE REM USCREEN$ WTAB WATTR UATTR _ATTR COPY RUN IF USCREEN$ MERGE j PRINT ATTR _VAL$ uVAL$ WVAL$ ]INT wIN _CODE UINT ] COPY OUT ATN _IN UATTR MERGE SCREEN$ MERGE j MERGE REM UVAL$ UINT uATTR USCREEN$ USCREEN$ uLN @▘ STOP VAL SAVE X[K]#K[K]p▝ USR @@[Q] FORMAT #[K]/R COPY O RUN SCREEN$ uINT U COPY MERGE ATTR MERGE ATTR UCODE W COPY ]SCREEN$ INVERSE SCREEN$ WSCREEN$ U COPY USCREEN$ USCREEN$ ] RETURN } COPY UINT ©ATTR WATTR W COPY ] FOR ]© BORDER CLS BEEP COPY PRINT REM uINT UATTR PRINT COPY _SQR w REM u IF [H] COPY USCREEN$ USCREEN$ U REM U COPY uIN YTAB ]TAB _ COPY USCREEN$ UjASN REM U COPY WSCREEN$ WSCREEN$ USCREEN$ U RETURN xFN rUSR ` DATA [Q] DATA [K]▟V,$P[K]p LPRINT LIST CONTINUE FORMAT CONTINUE FORMAT [Q]USR [K]▚/[]]ATTR WACS FLASH RETURN PRINT REM UCODE _ATTR U FOR UCODE USCREEN$ USCREEN$ UVAL$ u INPUT USQR ] PAPER }ATTR MERGE SCREEN$ UCODE W IF oATN GO SUB SQR WIN CLEAR CLEAR RANDOMIZE CLS RANDOMIZE CLEAR { SAVE } IF ABS RETURN }INT PRINT REM MERGE IN wSCREEN$ _SQR ] REM USCREEN$ WSCREEN$ _ASN ZIN ]SQR wABS QCOS %SCREEN$ MERGE z3▖SCREEN$ USCREEN$ U REM MERGE REM MERGE DATA [Q] PAUSE p SAVE XSGN X[K][K]p LPRINT 0[A][K]*QQ# FOR USCREEN$ U REM MERGE >5ATTR [TAB _ABS LOAD COPY ©ATTR USCREEN$ ]VAL$ USCREEN$ ASN SCREEN$ USCREEN$ UATTR MERGE SCREEN$ U FOR _SCREEN$ ]SCREEN$ UCODE VERIFY COPY u COPY ATN CLS ATN { INVERSE z_ IF BEEP PEEK FLASH IN MERGE ATN INVERSE REM [F] REM USCREEN$ UCODE USCREEN$ uSCREEN$ USCREEN$ UPOINT OR [R] MOVE SQR YEXP Y[Q][K]G!LEN b[U]@>=[A]$[K][K][K]▝[K]:[P]_]!▖CODE ]CODE UATTR MERGE ATTR U[CODE PAPER } REM WAT WSCREEN$ USCREEN$ WSCREEN$ uSCREEN$ ]TAB wSCREEN$ ]SCREEN$ USCREEN$ USQR uATTR UATTR UATTR MERGE INPUT USCREEN$ UATTR VABS {SCREEN$ USCREEN$ U REM ASN j BEEP SCREEN$ USCREEN$ UVAL$ WVAL$ W LET [LEN aSTR$ [B][K]@[K]`[K]▖[K]@[K] @[K]w0@u[K]_ USR LPRINT COPY "$ COPY Ukw;m{ GO SUB COPY [TAB WSCREEN$ USCREEN$ U COPY MERGE j PRINT SCREEN$ UVAL$ W COPY ]INT GO SUB VAL$ USCREEN$ u COPY UATTR UATTR UATTR U COPY RUN FOR USCREEN$ USCREEN$ U COPY CLEAR [K][K]uSCREEN$ USCREEN$ U COPY WATTR UATTR WSCREEN$ U COPY ▝[K]STR$ ▝[K] COPY [K]w @[Q][S]@8 [K][K] BEEP TAB FOR OUT a▜qVAL$ ]CODE CIRCLE LPRINT `AT P[Q]@` DEF FN g@$ATTR U FOR MERGE ATTR MERGE ©SCREEN$ USCREEN$ UATTR USCREEN$ USCREEN$ USCREEN$ U REM MERGE FOR ^ATTR TINT v OVER REM Y[O]▝[K][K] COPY [K]*U[K]p0P[Q]@@[Q] FORMAT [K][K]C[K]H▖[K]@0[K]▝)!PEEK LPRINT @[Q] PRINT `[H]@ ▖[K][K] COPY [K]([K]p LPRINT CONTINUE PRINT FOR OUT REM PRINT VERIFY [K][K][K][K][K][K] COPY [K] FOR [K] COPY HLN MERGE PRINT IF CLEAR RETURN [E]J[E][K][K][K][K][K]▝[K][K] @ p @ LPRINT [K]USR HTAN x CLOSE #FN ▘)SIN ©SCREEN$ UATTR PLOT FOR [K]p[K] COPY SCREEN$ MERGE IF [K] COPY VAL D REM [K] COPY [K] PRINT COPY !Q[U]p COPY [K]IN COPY +/[P]©[K] COPY ▘@[S] MERGE IF COPY COPY ▗IN COPY COPY [K]▝FN RUN COPY B[D]O COPY *U[K] COPY P LPRINT USR LPRINT MERGE SCREEN$ COPY © COPY COPY _?©[K] COPY RETURN [K] COPY [K][K]I|v6<fn DRAW ~v0<`n RETURN <v[K] LPRINT GO TO x00p|fn DRAW cw>>jb BORDER >$n~ NEW DEF FN [K]vv$|dn INPUT ~v0<`n RETURN vv,x|n NEW >$n~ NEW DEF FN <nF AND INPUT |fl<<td INPUT <v[K] LPRINT GO TO x~Z00x11s{em IF fl<<td INPUT [K]<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT <v NEW NEW INPUT GO TO x|v6<fn DRAW <v NEW NEW INPUT GO TO xvv,x|n NEW [K]0[K][K]1vv,x|n NEW <v NEW NEW INPUT GO TO xvv$|dn INPUT ~v0<`n RETURN ff DEF FN TO ||dn INPUT <v NEW NEW INPUT GO TO x[K]0[K]vv$|dn INPUT &f INPUT TO | SAVE [K] RETURN AND >$n~ NEW DEF FN [K]>&fD DEF FN DEF FN >$n~ NEW DEF FN RETURN AND vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]([K]B[K]G[K]p[K]GGGGGGGGGGGGGGGG[K]B STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]aff DEF FN TO
31756>$n~ NEW DEF FN <v[K] LPRINT GO TO
3072000x00p|fn DRAW [K] COPY 911 COPY LIST [K]USR LIST [K][K]yfl<<td INPUT ~Z00x>$n~ NEW DEF FN vv,x|n NEW [K]0[K]ff DEF FN TO |<td INPUT <v[K] LPRINT GO TO x~Z00x<v NEW NEW INPUT GO TO x[K]<v[K] LPRINT GO TO x>&fD DEF FN DEF FN &f INPUT TO | SAVE ff DEF FN TO |n~ NEW DEF FN fl<<td INPUT vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]0[K]|v6<fn DRAW 11s{em IF [K][K]9<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x>$n~ NEW DEF FN |v6<fn DRAW fl<<td INPUT >&fD DEF FN DEF FN fl<<td INPUT [K]vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00x&f INPUT TO | SAVE [K]fl<<td INPUT [K]~Z00x~v0<`n RETURN ~~&f GO TO DEF FN OVER ~v0<`n RETURN |v6<`` LPRINT 00p|fn DRAW [K][K]!vv$|dn INPUT >$n~ NEW DEF FN vv<<n NEW <v NEW NEW INPUT GO TO x RETURN AND fl<<td INPUT ~Z00x~v0<`n RETURN <v[K] LPRINT GO TO x00p|fn DRAW [K]|v6<fn DRAW [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x~Z00x&f INPUT TO | SAVE vv<<n NEW "kk[K] VERIFY ~~v0<`n RETURN cw>>jb BORDER [K]|v6<fn DRAW &f INPUT TO | SAVE >&fD DEF FN DEF FN vv,x|n NEW >$n~ NEW DEF FN vv$|dn INPUT ~v0<`n RETURN [K][K][K]~~&f GO TO DEF FN OVER ~v0<`n RETURN |v6<`` LPRINT ~v0<`n RETURN RETURN AND [K]|v6<fn DRAW >$n~ NEW DEF FN cw>>jb BORDER fl<<td INPUT [K]>&fD DEF FN DEF FN ~v0<`n RETURN +kk< VERIFY VERIFY CLOSE #fl<<td INPUT ~Z00x[K]<v NEW NEW INPUT GO TO xff DEF FN TO |<`n RETURN vv$|dn INPUT 00p|fn DRAW [K] RETURN AND >&fD DEF FN DEF FN fl<<td INPUT vv$|dn INPUT vv$|dn INPUT 11s{em IF fl<<td INPUT [K][K]>&fD DEF FN DEF FN >$n~ NEW DEF FN ~r0<fn DRAW fl<<td INPUT |v6<`` LPRINT fl<<td INPUT vv$|dn INPUT ~Z00x[K]0[K]vv$|dn INPUT >$n~ NEW DEF FN <v[K] LPRINT GO TO x11s{em IF "kk[K] VERIFY ©~v0<`n RETURN vv$|dn INPUT vv$|dn INPUT 11s{em IF fl<<td INPUT [K]©30`` LPRINT LIST <v NEW NEW INPUT GO TO x|v6<`` LPRINT >nl<l TO DEF FN ff DEF FN TO |<td INPUT cw>>jb BORDER fl<<td INPUT [K][K]©30`` LPRINT LIST ~v0<`n RETURN fl<<td INPUT <nF AND INPUT |~v0<`n RETURN |v6<`` LPRINT >$n~ NEW DEF FN cw>>jb BORDER fl<<td INPUT [K]0[K]<v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER >$n~ NEW DEF FN <v[K] LPRINT GO TO xvv$|dn INPUT 11s{em IF cw>>jb BORDER fl<<td INPUT [K]<v NEW NEW INPUT GO TO x~r0<fn DRAW >&fD DEF FN DEF FN >$n~ NEW DEF FN ff DEF FN TO |x|n NEW >$n~ NEW DEF FN cw>>jb BORDER fl<<td INPUT [K][K]©30`` LPRINT LIST >$n~ NEW DEF FN <nF AND INPUT |>$n~ NEW DEF FN [K]fl<<td INPUT [K]<v NEW NEW INPUT GO TO x<nF AND INPUT |$~v0<`n RETURN |v6<`` LPRINT >$n~ NEW DEF FN cw>>jb BORDER fl<<td INPUT [K]>&fD DEF FN DEF FN >$n~ NEW DEF FN |v6<fn DRAW 11s{em IF [K][K][K] COPY OR RETURN CLEAR RETURN COPY COPY CLS PAUSE COPY |VAL$ w[K] COPY LIST DRAW SAVE DRAW CLS IF RETURN SAVE SAVE ?e"c#b MOVE Q[K] COPY [K]©[K] COPY DIM DRAW [K] COPY GO TO SAVE GO TO RETURN LLIST USR BIN FLASH COPY ©_[P] COPY ©©[K] COPY ▖IN [K] COPY h[K] LIST RANDOMIZE LET LLIST STOP [K] COPY [K]©?[K] COPY IN [K] COPY j NEXT STEP PEEK CIRCLE [G] COPY OUT ©<=SIN @[P] OUT OLEN AND < IF [K] COPY <=S>Y[K] COPY @ BORDER BEEP [L]5x$1 COPY [P]AT W LOAD PEEK ▖USR DRAW CLS BORDER ]VAL$ ▞3©?CODE _o> PLOT CAT PI[P]©?© OUT ?[P]▜IN RETURN [P] OUT OLEN AND < IF [K] COPY <=S>Y[K] COPY @ BORDER BEEP [L]5x$1 COPY [P]AT W LOAD PEEK ▖USR DRAW CLS BORDER ]VAL$ ▞3©?ATTR Xh$Q(("@[B][U]D^0$BR▞)CODE ATTR [K] COPY CLS PRINT CLS [K] COPY NOT [K] COPY BORDER FLASH [K] COPY NOT [K] COPY RANDOMIZE PRINT [K] COPY NOT [K] COPY IN COPY BORDER [K] COPY READ [B]@FN [E] LPRINT PRINT CONTINUE LET " LPRINT z$B[A]JD@▞% ▖Q(("@[B][U]D^0$BR▞)CODE ATTR [K] COPY CLS PRINT CLS [K] COPY NOT [K] COPY BORDER FLASH [K] COPY NOT [K] COPY RANDOMIZE PRINT [K] COPY NOT [K] COPY IN COPY BORDER [K] COPY READ [B]@FN [E] LPRINT PRINT CONTINUE LET " LPRINT z$B[A]JD@▞% ▖FATTR QUATTR RESTORE ~[F] BRIGHT ATTR pJRND MOVE |E*ABS i CLOSE # FOR LLIST [D]+[P] INVERSE CODE ;WCODE EXP R04 RANDOMIZE [B]E▘(▝Gr` LPRINT [I]H@[P]4( CLS RANDOMIZE [B]B2▗(A LLIST FORMAT LPRINT ABS BRIGHT PRINT LOAD CLS PLOT VERIFY CLS 0[S]TABS [G]+ BEEP ▜POINT ; MERGE b MERGE PSCREEN$ MERGE PI~FATTR QUATTR RESTORE ~[F] BRIGHT ATTR pJRND MOVE |E*ABS i CLOSE # FOR LLIST [D]+[P] INVERSE CODE ;WCODE EXP R04 RANDOMIZE [B]E▘(▝Gr` LPRINT [I]H@[P]4( CLS RANDOMIZE [B]B2▗(A LLIST FORMAT LPRINT ABS BRIGHT PRINT LOAD CLS PLOT VERIFY CLS 0[S]TABS [G]+ BEEP ▜POINT ; MERGE b MERGE PSCREEN$ MERGE PI~ACS [P]]v OUT VAL$ RUN COPY ACS VAL$ INVERSE PLOT LOAD CLEAR LOAD COPY ATN DEF FN { PAPER COPY CLS o PLOT CAT COPY OUT IN COPY OUT _ COPY Ae[K]▜:[K]STR$ " [K]@0hAJ [K][S] [K] 0HX RUN CLS RANDOMIZE COPY RUN COPY CLEAR COPY GO SUB s OVER [ COPY OUT RETURN COPY muSQR o RUN IN RUN COPY m RANDOMIZE INT n CLS u LOAD COPY ACS [P]]v OUT VAL$ RUN COPY ACS VAL$ INVERSE PLOT LOAD CLEAR LOAD COPY ATN DEF FN { PAPER COPY CLS o PLOT CAT COPY OUT IN COPY OUT _ COPY Ae[K]▜:[K]STR$ " [K]@0hAJ [K][S] [K] 0HX RUN CLS RANDOMIZE COPY RUN COPY CLEAR COPY GO SUB s OVER [ COPY OUT RETURN COPY muSQR o RUN IN RUN COPY m RANDOMIZE INT n CLS u LOAD COPY [K],[K]G[K][K]NOT [K]([K](0[K]([K]p[K]([K]p[K](00pp[K](00pp((0[K]([K]0((0[K]([K]0[K]p[K]([K]p88pp[K]([K]p8x8x8x8x[K]p8x8x8x8x[K]pVWVWVWVW[K]pVWVWVWVW[K]pVW[K]VWVV[K]pVW[K]VWVV[K]p STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]6n<~Z00x<v NEW NEW INPUT GO TO x[K]|v6<fn DRAW <v[K] LPRINT GO TO x$~v0<`n RETURN [K]~v0<`n RETURN |v6<`` LPRINT &f INPUT TO | SAVE vv$|dn INPUT RETURN AND >$n~ NEW DEF FN [K]0[K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x~Z00x<v NEW NEW INPUT GO TO xcw>>jb BORDER &f INPUT TO | SAVE [K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x[K][K]&f INPUT TO | SAVE [K]cw>>jb BORDER ~v0<`n RETURN vv$|dn INPUT >nl<l TO DEF FN [K]~v0<`n RETURN <v[K] LPRINT GO TO x~Z00x00p|fn DRAW [K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x[K]|v6<fn DRAW >$n~ NEW DEF FN cw>>jb BORDER [K]<v[K] LPRINT GO TO xvv,x|n NEW >$n~ NEW DEF FN <nF AND INPUT |>$n~ NEW DEF FN ~Z00x00p|fn DRAW [K]vv$|dn INPUT >$n~ NEW DEF FN [K][K]6n<~Z00x<v NEW NEW INPUT GO TO x~Z00x[K]<v[K] LPRINT GO TO xff DEF FN TO |<`n RETURN ~Z00x[K][K]EXP |v6<fn DRAW [K]>&fD DEF FN DEF FN ~v0<`n RETURN |v6<fn DRAW <v NEW NEW INPUT GO TO xcw>>jb BORDER [K]vv$|dn INPUT fl<<td INPUT +kk< VERIFY VERIFY CLOSE #vv$|dn INPUT ~v0<`n RETURN cw>>jb BORDER [K]&f INPUT TO | SAVE ©30`` LPRINT LIST >&fD DEF FN DEF FN &f INPUT TO | SAVE [K]6n<vv,x|n NEW |v6<`` LPRINT >$n~ NEW DEF FN vv$|dn INPUT >$n~ NEW DEF FN [K][K]!vv$|dn INPUT >$n~ NEW DEF FN vv<<n NEW <v NEW NEW INPUT GO TO x RETURN AND fl<<td INPUT ~Z00x<v[K] LPRINT GO TO x>nl<l TO DEF FN [K]vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00x>$n~ NEW DEF FN [K]|v6<fn DRAW >$n~ NEW DEF FN "kk[K] VERIFY ©~v0<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO xfl<<td INPUT RETURN AND ~v0<`n RETURN vv$|dn INPUT [K]>|[K][K]vv$|dn INPUT <v NEW NEW INPUT GO TO x©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]~~&f GO TO DEF FN OVER &f INPUT TO | SAVE ~Z00xfl<<td INPUT [K][K]EXP fl<<td INPUT RETURN AND fl<<td INPUT ~Z00x~v0<`n RETURN [K]~Z00x>$n~ NEW DEF FN vv,x|n NEW [K]0[K][R]c▟X PAUSE 5 CAT [C]~ GO SUB IN <v READ ERASE [Q] RUN {ASN LIST ,SGN A[K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x~r0<fn DRAW 11s{em IF [K]vv$|dn INPUT >$n~ NEW DEF FN [K]▖ LPRINT [Q]USR LPRINT FORMAT [Q]USR [K] <[K]USR @@[K]▘vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00x~v0<`n RETURN [K]~r0<fn DRAW 11s{em IF >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]`@[K] LPRINT [K]USR [K]pP BRIGHT [K]~Z00x>$n~ NEW DEF FN vv,x|n NEW <v NEW NEW INPUT GO TO x~v0<`n RETURN [K]>|[K]+kk< VERIFY VERIFY CLOSE #~v0<`n RETURN [K][A]USR USR LPRINT [Q]USR USR [K]|@USR [K][K]jfl<<td INPUT <nF AND INPUT |<v NEW NEW INPUT GO TO x~r0<fn DRAW |v6<`` LPRINT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #~v0<`n RETURN vv$|dn INPUT fl<<td INPUT ~v0<`n RETURN [K]0[K]USR LIST LPRINT CONTINUE POKE POKE DRAW RETURN [K]▝ MOVE [K]▘r[K][H]/IN [K]vv,x|n NEW >$n~ NEW DEF FN vv,x|n NEW [K]<nF AND INPUT | RETURN AND ~v0<`n RETURN <v[K] LPRINT GO TO x00p|fn DRAW [K][K][K]~Z00x<v NEW NEW INPUT GO TO x©30`` LPRINT LIST RETURN AND >$n~ NEW DEF FN [K]|v6<fn DRAW >$n~ NEW DEF FN cw>>jb BORDER [K]vv$|dn INPUT ~v0<`n RETURN [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT fl<<td INPUT RETURN AND $~v0<`n RETURN ~Z00x<v[K] LPRINT GO TO x>nl<l TO DEF FN [K]~r0<fn DRAW >&fD DEF FN DEF FN &f INPUT TO | SAVE +kk< VERIFY VERIFY CLOSE # RETURN AND >$n~ NEW DEF FN ~Z00x00p|fn DRAW [K][K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x[K]>&fD DEF FN DEF FN >$n~ NEW DEF FN ~r0<fn DRAW fl<<td INPUT |v6<`` LPRINT fl<<td INPUT vv$|dn INPUT ~Z00x&f INPUT TO | SAVE [K]0[K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x RETURN AND <v NEW NEW INPUT GO TO x~r0<fn DRAW vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]<nF AND INPUT |>$n~ NEW DEF FN ~r0<fn DRAW >&fD DEF FN DEF FN &f INPUT TO | SAVE RETURN AND "kk[K] VERIFY ~~v0<`n RETURN fl<<td INPUT [K][K]i<v NEW NEW INPUT GO TO x|v6<fn DRAW [K]f TO TO DEF FN ~~v0<`n RETURN [K]h[K][K]CODE [K]0[K]0[K]20[K]0[K]20[K]0[K]20[K]0[K]20[K],[K]G[Q] STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]fl<<td INPUT [K]vv,x|n NEW <v NEW NEW INPUT GO TO x~v0<`n RETURN [K]>|[K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x[K]~v0<`n RETURN "kk[K] VERIFY ©$~v0<`n RETURN [K][K][K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x~r0<fn DRAW 11s{em IF [K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x[K]<v[K] LPRINT GO TO xcw>>jb BORDER >$n~ NEW DEF FN [K]>|[K][K] TO 9|e PLOT SAVE gO'7;= INK USR 1▞ INK OPEN #▜ CAT ▝ NEW ~> NEW PLOT CLS USR |q COPY COPY RETURN Hd~ FOR RUN © COPY r BORDER ABS n FOR CLS RUN [Q] LLIST yTAN SGN IN LIST VAL 7gy©?© OUT CODE ATN [N] NEW 7 COPY IN OUT POKE [T] RUN COPY SAVE RETURN RETURN [I]USR ▜O[K]@ LET w BORDER INKEY$'▘[Q]USR DEF FN LOAD RUN /x PAPER h GO TO PRINT r:[G]SCREEN$ DRAW CLEAR TO 9|e PLOT SAVE gO'7;= INK vv,x|n NEW <v NEW NEW INPUT GO TO xcw>>jb BORDER [K]<nF AND INPUT |>$n~ NEW DEF FN ~~&f GO TO DEF FN OVER |v6<`` LPRINT 11s{em IF ©30`` LPRINT LIST vv$|dn INPUT &f INPUT TO | SAVE ~Z00x00p|fn DRAW RETURN [K] PAPER z] CLEAR IN _ NEXT RANDOMIZE RETURN [K] COPY OUT SAVE [K] COPY IN RETURN OVER >▞▜] INPUT GO TO RETURN INPUT DRAW INPUT CLEAR ©^©o RETURN LOAD PLOT PLOT COPY PEEK G FOR IN SQR CLEAR MERGE ^ GO TO CONTINUE l| POKE PRINT RANDOMIZE _ CLEAR SQR OUT [O]VAL$ DRAW GO TO 7 LOAD k_wv PLOT COPY [O] TO DEF FN LOAD o[K]©>JUSR OPEN # RANDOMIZE o? IF RETURN |}} CLS CLS COPY RANDOMIZE [K] CLEAR COPY LEN [J]CODE GO SUB DEF FN ▙IN FLASH R BORDER ©© COPY COPY RETURN [K] PAPER z] CLEAR IN _ NEXT RANDOMIZE RETURN [K] COPY [K]p[K] COPY OVER COPY COPY LOAD INPUT COPY LOAD RETURN [K] CAT OUT OUT CAT POKE RETURN POKE RETURN RUN CLEAR COPY RUN TAN TAN EXP DIM LOAD OUT OUT RETURN LOAD DRAW CLEAR INVERSE COPY INVERSE OUT RETURN COS [K][K] THEN CLS [K] NEXT NOT n INPUT DRAW POKE q INK YIN [K] CLS RETURN IF RETURN RETURN CLEAR v© RUN RUN COPY [K] CLS DRAW SAVE LPRINT @1EXP [J]©©[K] COPY [K] RETURN [K] COPY OUT [K][P] OUT [P]_? COPY ©[K] COPY vv$|dn INPUT >$n~ NEW DEF FN [K]>&fD DEF FN DEF FN fl<<td INPUT >$n~ NEW DEF FN vv$|dn INPUT &f INPUT TO | SAVE [K]0[K]vv$|dn INPUT &f INPUT TO | SAVE [K]>|[K] COPY LOAD LOAD RETURN COPY RUN PRINT RUN COPY [K][P][P]_IN [K] COPY RETURN RETURN [K] COPY IN OVER OUT [P]?IN COPY COPY NOT BORDER BORDER RUN wggPI[K] COPY [K] CLS COPY [K] CLEAR COPY INK [K]STR$ RESTORE OR [L][K] COPY 0[K]p[K] COPY LOAD COPY LOAD LOAD COPY INPUT RETURN OUT OUT CODE LOAD O<= BORDER [K] COPY p+kk< VERIFY VERIFY CLOSE #vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #>$n~ NEW DEF FN ~Z00x00p|fn DRAW [K] [K] COPY [K] OUT LOAD COPY OUT COPY OCODE [K] COPY p[K]p CLEAR COPY LET [R]P▗D OUT COPY ATTR A[E]H CLOSE # RETURN DATA LINE RNDPTAB POKE MF COPY ©IN oSQR VkATN [K] COPY % RETURN SAVE POKE [K] COPY INVERSE CODE S[K] COPY REM RUN j MOVE [K] COPY IN FOR ?[K] COPY (vv,x|n NEW >&fD DEF FN DEF FN >$n~ NEW DEF FN |v6<fn DRAW fl<<td INPUT "kk[K] VERIFY ~fl<<td INPUT [K]ff TO [K]|v6<fn DRAW >&fD DEF FN DEF FN ~v0<`n RETURN [K]>|[K]ATTR U IF COPY REM CLEAR COPY COPY SCREEN$ | MERGE SQR INPUT COPY © COPY W[T] OVER © RUN PLOT COPY RUN GO CAT OUT CODE CAT [K] COPY ( SAVE GO SUB BEEP CLEAR RUN [K] COPY ▗A[U] LIST `TAN REM `STR$ [R]SVAL$ WPI RETURN [K] COPY RETURN [K] COPY CLEAR RANDOMIZE COPY > BEEP ;[K] COPY © COPY ©©[K] COPY [K]p[K] COPY RUN COPY RUN RUN LOAD RETURN INPUT COPY LOAD BEEP BORDER CAT [T]NOT NOT [K] COPY IN ?[P] OUT OVER IN PIggw RUN BORDER BORDER NOT [K] COPY CLEAR PLOT RETURN CLS RETURN COPY COPY RETURN _ LOAD IN © COPY ©[K] COPY RETURN DRAW RETURN CLEAR CLEAR COPY DRAW DRAW 2LEN 1h( COPY COPY © COPY IN ?IN [K] COPY |v6<fn DRAW <v NEW NEW INPUT GO TO xff TO [K]td INPUT >&fD DEF FN DEF FN fl<<td INPUT [K]ff TO [K]|v6<fn DRAW ~~&f GO TO DEF FN OVER |v6<`` LPRINT >$n~ NEW DEF FN [K]>|[K] COPY OUT OUT IN PEEK SGN RETURN © COPY NOT [R]▝@[Q]USR [K] COPY BORDER <= RETURN OUT OUT LOAD DIM EXP TAN TAN RETURN OUT INVERSE COPY INVERSE CLEAR DRAW LOAD NOT [K] NEXT CLS THEN [K][K]COS IN Y INK q POKE DRAW INPUT n[K] COPY RETURN [K] COPY RETURN [K] COPY v DRAW PLOT COPY LIST LPRINT STOP GO SUB ©?/O COPY ??[K] COPY [K]p[K] COPY RETURN CLEAR NEW DEF FN COPY o COPY COPY OUT © RETURN 8 LPRINT LPRINT CHR$ BIN TO [Q]K©[K]W RUN ATN COS LET EXP PLOT PLOT LOAD RETURN LOAD COPY OVER COPY MERGE CLEAR SQR IN FOR GPEEK COPY RANDOMIZE PRINT POKE |l CONTINUE GO TO ^ GO TO DRAW VAL$ [O] OUT SQR CLEAR _ COPY COPY [K]© COPY ©[K] COPY DRAW RETURN IF IF PLOT CODE [K] COPY [K]©[K] COPY [K] SAVE DRAW SAVE LIST LET [K]©[K]IN [K] COPY RETURN CLEAR NEW DEF FN |v6<fn DRAW <v NEW NEW INPUT GO TO xff TO [K]td INPUT [K]|v6<fn DRAW |v6<fn DRAW ~v0<`n RETURN |v6<`` LPRINT vv<<n NEW [K]0[K][K] COPY READ ), RETURN CLEAR ATN ▛[H]ATN [H]▛▗ LPRINT LPRINT MOVE pf OVER DRAW EXP ytLN pB COPY COPY RUN k RETURN dH▝ RUN CLS FOR nABS BORDER rIN SGN TAN y LLIST [Q]©yg7VAL LIST FOR OR ▙[M]▘ CLOSE #)[B][U]V1 CONTINUE CLEAR BORDER PRINT CLS dD8[ RANDOMIZE &@&L©©yf_lK COPY LOAD IN READ _/ CLS BORDER OPEN # CAT IN ? LOAD [P] CAT NOT OUT COPY RETURN CLEAR ATN ▛[H][K]q@[A]*STR$ P$@[U] TO p DATA ▜ <= NEW [Q]"@▚A[A]*STR$ A0CINKEY$N OR ▙ USR *@[A]*STR$ A0CINKEY$ DEF FN OR ▙ USR *@[A]*STR$ A0CINKEY$ DEF FN OR ▙ USR *@[A]*STR$ P$@[U] TO [K]>$n~ NEW DEF FN [K]vv,x|n NEW <v NEW NEW INPUT GO TO x©30`` LPRINT LIST RETURN AND >$n~ NEW DEF FN [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x RETURN AND [K]>|[K]e:} LINE SCREEN$ WULN TSCREEN$ USCREEN$ URND▖SCREEN$ SCREEN$ U`T TSCREEN$ Wa▖:} LINE SCREEN$ W▘ULN u[S]USCREEN$ U5▖ESCREEN$ SCREEN$ U`T TSCREEN$ We:} LINE SCREEN$ WULN u[S]USCREEN$ U5▖ESCREEN$ SCREEN$ U`T TSCREEN$ We:} LINE SCREEN$ WULN u[S]USCREEN$ U5▖ESCREEN$ SCREEN$ U`T TSCREEN$ We:} LINE SCREEN$ WULN TSCREEN$ USCREEN$ U[K]q~~&f GO TO DEF FN OVER |v6<`` LPRINT 11s{em IF ©30`` LPRINT LIST vv$|dn INPUT fl<<td INPUT ~Z00x~v0<`n RETURN [K]0[K]<v NEW NEW INPUT GO TO x~Z00x~~&f GO TO DEF FN OVER &f INPUT TO | SAVE <v[K] LPRINT GO TO x~Z00xfl<<td INPUT ~Z00x~v0<`n RETURN [K]|v6<fn DRAW <v[K] LPRINT GO TO x~v0<`n RETURN [K]vv,x|n NEW vv$|dn INPUT <v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER vv,x|n NEW fl<<td INPUT [K][K]fl<<td INPUT [K]vv$|dn INPUT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #cw>>jb BORDER fl<<td INPUT ~Z00x~v0<`n RETURN [K]|v6<fn DRAW vv$|dn INPUT fl<<td INPUT <nF AND INPUT |[K] RETURN AND >$n~ NEW DEF FN >&fD DEF FN DEF FN ~v0<`n RETURN ~v0<`n RETURN [K][K][K]~Z00x&f INPUT TO | SAVE ff DEF FN TO |x|n NEW >$n~ NEW DEF FN [K]fl<<td INPUT cw>>jb BORDER ~v0<`n RETURN ~v0<`n RETURN ~Z00x[K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x RETURN AND >&fD DEF FN DEF FN 11s{em IF fl<<td INPUT [K]vv<<n NEW >$n~ NEW DEF FN |v6<`` LPRINT >$n~ NEW DEF FN vv,x|n NEW ~Z00x~v0<`n RETURN |v6<`` LPRINT [K]0[K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x6n<~Z00x<v NEW NEW INPUT GO TO xcw>>jb BORDER &f INPUT TO | SAVE [K][K])&f INPUT TO | SAVE ~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x|v6<`` LPRINT vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]©30`` LPRINT LIST >$n~ NEW DEF FN <v[K] LPRINT GO TO xfl<<td INPUT ~Z00x[K]|v6<fn DRAW >$n~ NEW DEF FN cw>>jb BORDER [K]>[ FLASH ACS |0x<v NEW NEW INPUT GO TO xvv$|dn INPUT >$n~ NEW DEF FN |v6<`` LPRINT 00p|fn DRAW [K][K] [K] [K][K]/[K]p[K]0[K]00[K][K]0(0(([K]([K]((0[K]([K][K]([K][K]([K]([K](0([K]([K][K](([K]0[K][K](([K]00[K](0[K]([K]8[K]_[K][K]▚ STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]vv$|dn INPUT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #cw>>jb BORDER fl<<td INPUT ~Z00x~v0<`n RETURN [K]ff TO [K]cw>>jb BORDER ff TO [K]td INPUT [K]|v6<fn DRAW <v[K] LPRINT GO TO x$~v0<`n RETURN [K]~r0<fn DRAW &f INPUT TO | SAVE RETURN AND ~v0<`n RETURN ~Z00x[K]<v NEW NEW INPUT GO TO x0[K]vv,x|n NEW ~v0<`n RETURN fl<<td INPUT [K][K][K]~r0<fn DRAW &f INPUT TO | SAVE vv<<n NEW <v NEW NEW INPUT GO TO x©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]~~&f GO TO DEF FN OVER >$n~ NEW DEF FN &f INPUT TO | SAVE vv,x|n NEW >$n~ NEW DEF FN [K][K] COPY CLS PRINT FOR CLEAR LOAD CLEAR OVER CLEAR OVER COPY INKEY$ RANDOMIZE v COPY RETURN DRAW RETURN CLEAR RETURN ]VAL$ PRINT }INT [P]IN OUT LOAD OUT LOAD COPY LOAD [K] COPY INVERSE CLEAR OUT LOAD LOAD COPY LOAD ▜▜G[P] CAT CODE OUT [K] COPY IF DRAW DRAW RETURN [K] COPY RETURN RETURN [K] COPY READ READ NEXT NEXT [K] BORDER BEEP [K] COPY OVER OVER DRAW RETURN LOAD FOR INPUT COPY [K]?IN ©[K] COPY [K]x[K] COPY OVER SQR RUN PEEK BEEP INT RUN } PAUSE LOAD ACS COPY tINT INPUT MERGE [K][K] BORDER RUN skTAB CLEAR OVER RUN sATN SQR CLEAR FLASH FLASH GO SUB [K] COPY © COPY © COPY © RETURN DRAW }▜[K]'G[K] COPY [K] CLEAR [K] RETURN BORDER READ READ <= BORDER LOAD LOAD CAT [K] COPY OUT COPY OUT OUT RETURN BRIGHT CLEAR IN IN _ OUT [P] CAT [K] COPY [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x<v NEW NEW INPUT GO TO x[K]>|[K]vv$|dn INPUT >$n~ NEW DEF FN ~~&f GO TO DEF FN OVER [K]>|[K][K] COPY LOAD _SQR BORDER PAUSE INVERSE ACS FLASH IF OVER CODE } FOR W/w LOAD OVER ATN ASN zWIN wm POKE j[G] COPY oIN o COPY COPY [K] RETURN COPY COPY RETURN ~[K] COPY RETURN COPY g<=NOT [T]NOT NOT [K] COPY RETURN COPY [K] CLEAR LOAD CAT [K] BORDER PIATN w[K] COPY IN PEEK IN OVER RETURN IN COPY [K][P]_[K] COPY [K]x[K] COPY ASN IN CLS INVERSE PLOT GO SUB OVER vATN ©CODE {ASN PLOT OVER PLOT ATN IF k BEEP [PEEK SQR V LOAD RUN oACS © PLOT w RESTORE COPY COPY RETURN RETURN [K] COPY RETURN COPY © COPY ©PI▜O BEEP <=<=▜[K] COPY [K] RETURN CLEAR BORDER RUN BORDER BORDER [T]NOT <=[K] COPY CLEAR INK OUT OVER CLS OUT RETURN GO TO [P]_[P][P][K] COPY [K]|v6<`` LPRINT <v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x<v NEW NEW INPUT GO TO x[K]|v6<`` LPRINT >$n~ NEW DEF FN <v[K] LPRINT GO TO x<v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN [K]>|[K] COPY ATN IN FLASH LOAD INVERSE LOAD OUT DRAW COPY COPY LIST NEW RESTORE i RANDOMIZE CAT RUN INPUT CLEAR DRAW CLS PRINT RUN FOR s INPUT INVERSE GO SUB SQR INVERSE CLS SQR [K] COPY CLEAR }© COPY © COPY © COPY ▜<=▜NOT [T] BEEP [K] COPY [K] CLEAR COPY [K] RETURN [H][K] BORDER <= BORDER BEEP RUN [K] COPY INPUT INPUT DRAW RETURN LOAD GO SUB COPY LOAD [P][P]IN _[P][K] COPY [K]x[K] COPY RANDOMIZE RANDOMIZE SAVE LIST LIST LET RANDOMIZE RUN w DIM D▜ CLEAR RETURN }~©©7ATN o LOAD OUT LOAD __[K] COPY LOAD COPY LOAD LOAD OUT CLEAR INVERSE COPY OUT CODE CAT [P]G▜▜[K] COPY IF CLS CLS COPY RUN RUN COPY 7▛ THEN ▜SGN [K] COPY LOAD COPY LOAD LOAD OUT CLEAR INVERSE COPY OUT CODE CAT [P]G▜▜[K] COPY [K]>&fD DEF FN DEF FN fl<<td INPUT |v6<fn DRAW >$n~ NEW DEF FN fl<<td INPUT ~Z00x~v0<`n RETURN [K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x[K] [K] COPY RANDOMIZE [K] COPY RUN LOAD RUN FOR > COPY [A] POKE TO ABS [P]CODE CAT COPY PRINT IF COPY IN oIN FLASH COPY _TAB OUT [K] COPY RETURN COPY IN IN ©|x DRAW COPY COPY ▜C▝A▝ COPY COPY DRAW COPY CLEAR CLEAR <>▞ IF ▜>x NEXT COPY NEW LOAD RANDOMIZE < DRAW SGN [N][N] INK 7 NEXT RUN [G][G] CLOSE # RESTORE GO SUB <==TAN [C] LINE DIM RND[M]©ATTR OR A@ CONTINUE [U]IN IN ©SGN T*▜C▝A▝[K] COPY LOAD LOAD DEF FN [K]x[K] COPY LOAD COPY COPY OUT COPY IN COPY © RUN LPRINT LIST CONTINUE REM TO AND AT CLS COPY CLEAR ©}©??[P]CODE CODE LOAD og READ s COPY RETURN COPY COPY CLEAR IF STEP [M] COPY OUT COPY COPY IN COPY DRAW pUSR USR ▗▞[J]A[H] COPY ATTR COS COS NEXT wg BORDER © CAT INVERSE OUT [O]SGN TAN =n INK Y FLASH { OUT FOR EXP IN iATTR K FLASH OUT POKE < IF 4[E] VERIFY w2SQR k FLASH VAL [A] CIRCLE I GO TO e COPY 4SCREEN$ VEXP CLEAR USR USR ▗▞[J]A BEEP COPY [K]RND LOAD kk COPY {[K]<v[K] LPRINT GO TO xvv,x|n NEW <v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~Z00x00p|fn DRAW n[[COS ACS ACS BRIGHT [K]8x00x<v INPUT PLOT INPUT GO TO x[K]©?ATTR Xh$ COPY COPY n,>~©? COPY CLEAR >>=<Gs NEXT DIM p LLIST ▗/o/USR STR$ [S] LLIST TO SGN SAVE g RUN PLOT ~ PLOT [P] STEP {o OUT IN COPY COPY 8 RETURN INPUT G DIM IN © COPY o[P] LIST K CAT FOR FOR [L] RUN NEXT {+ LOAD /USR STR$ [S] LLIST TO SGN SAVE k RUN RUN k BORDER ▗[K]z ▖[Q]I▝H[I] LPRINT <>A▙ STEP @D▘ T)▘▘ a▚M[M]8A ▝T T)▘ a▚M[M]8A ▝T▖ T)INKEY$I▝H[I] LPRINT <>A▙ STEP @D▗[E])B![K]|v6<fn DRAW 11s{em IF <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x|v6<fn DRAW [K]|v6<fn DRAW [K]b MERGE PSCREEN$ MERGE PI~ATTR qFN USCREEN$ USCREEN$ JT"USCREEN$ STR$ FN AFN UVAL$ NOT u IF [F]UVAL$ SCREEN$ q REM ESCREEN$ USCREEN$ jT"USCREEN$ STR$ FN AFN UVAL$ LINE u IF [F]UVAL$ SCREEN$ q REM ESCREEN$ USCREEN$ jT"USCREEN$ STR$ FN AFN UVAL$ LINE u IF [F]UVAL$ ATTR qFN USCREEN$ USCREEN$ JT"USCREEN$ STR$ FN AFN UVAL$ VERIFY c BORDER JASN [K][K]<v[K] LPRINT GO TO x~v0<`n RETURN vv,x|n NEW &f INPUT TO | SAVE vv$|dn INPUT RETURN AND &f INPUT TO | SAVE [K][K]|v6<fn DRAW [K]<v NEW NEW INPUT GO TO x<nF AND INPUT |$~v0<`n RETURN |v6<`` LPRINT >$n~ NEW DEF FN vv<<n NEW [K]<v[K] LPRINT GO TO x[K]+kk< VERIFY VERIFY CLOSE #fl<<td INPUT |v6<fn DRAW <v NEW NEW INPUT GO TO xfl<<td INPUT [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x[K]>|[K] COPY `[K][Q][K] COPY 3CODE g OPEN #[L][K] COPY ( RETURN AND <v NEW NEW INPUT GO TO xfl<<td INPUT [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN vv$|dn INPUT >nl<l TO DEF FN fl<<td INPUT ~Z00x~v0<`n RETURN [K]6n<vv$|dn INPUT ~v0<`n RETURN |v6<`` LPRINT [K]>|[K] COPY PEEK I AND [K] COPY IF U/?[K] COPY FLASH RND[K] COPY ~ MERGE [K] COPY INPUT [K] COPY RETURN PEEK ^ACS CLS LOAD W[S]##"©IN ©??~=PEEK [K] COPY INPUT [K] COPY SQR U COPY COPY RUN RUN S[S] LIST |[K] COPY }[C]c[K][Q][C]@4[A]hXzp>=USR D`6NOT [K][K]< LIST / CAT ? BORDER OPEN #COS OR [L]©[D]<?xx SAVE TO USR USR [K]< LIST STR$ 8 LPRINT >6/C8©30`` LPRINT LIST fl<<td INPUT n[[COS ACS ACS BRIGHT [K] RETURN AND ~v0<`n RETURN |v6<fn DRAW &f INPUT TO | SAVE "kk[K] VERIFY ~vv,x|n NEW >$n~ NEW DEF FN [K]cw>>jb BORDER <v NEW NEW INPUT GO TO x+kk< VERIFY VERIFY CLOSE #~v0<`n RETURN ~Z00x[K]0 ▝T T) SAVE RETURN [K] COPY LPRINT H LIST DRAW COPY USR c[K][K]x@ COPY `? COPY COPY NOT o©[K] COPY [Q]I▝H[I] LPRINT <>A[K][Q]STR$ FN AFN UVAL$ LINE u IF [F]UVAL$ ▗[J] REM OVER ▟>U REM QFN RESTORE ZCODE [G]Z BORDER R▞ MERGE +@UATTR "ZRND!ESCREEN$ SCREEN$ UbT"SCREEN$ MERGE AFN ASCREEN$ ASN LINE ATTR qFN USCREEN$ USCREEN$ JT"USCREEN$ vv$|dn INPUT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #>$n~ NEW DEF FN |v6<fn DRAW [K]ff TO [K]vt<<ld INPUT ff TO [K]0[K]<v NEW NEW INPUT GO TO x~Z00x~~&f GO TO DEF FN OVER fl<<td INPUT ~Z00x00p|fn DRAW [K]ATN DEF FN { PAPER COPY CLS o PLOT J DRAW VERIFY PEEK DRAW MERGE [ COPY ASN [P]]v OUT VAL$ RUN COPY uVAL$ ] PLOT LOAD CLEAR LOAD COPY ATN DEF FN { PAPER COPY CLS o PLOT J DRAW VERIFY PEEK DRAW MERGE [ COPY POKE o PAPER PRINT FLASH VAL$ RUN RETURN VERIFY SCREEN$ INVERSE vATTR CLEAR LOAD RUN WSGN [INT CODE CLS o RUN J DRAW VERIFY PEEK DRAW MERGE [ COPY POKE o PAPER PRINT FLASH VAL$ RUN RETURN VERIFY SCREEN$ INVERSE vATTR CLEAR LOAD RUN [K]LEN fl<<td INPUT <nF AND INPUT |[K]<v[K] LPRINT GO TO x|v6<fn DRAW <v NEW NEW INPUT GO TO x~v0<`n RETURN fl<<td INPUT [K]>[ FLASH ACS |0x>&fD DEF FN DEF FN >nl<l TO DEF FN +kk< VERIFY VERIFY CLOSE #vv,x|n NEW fl<<td INPUT [K]+kk< VERIFY VERIFY CLOSE #fl<<td INPUT |v6<fn DRAW &f INPUT TO | SAVE n[[COS ACS ACS BRIGHT [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x RETURN AND &f INPUT TO | SAVE [K][K]*F[K]D([K]((0((([K]([K](((0((([K]([K]((0((([K]([K]((0((([K](0[K]((0((([K]p(8(((0((([K]p8[K][K] 0[K]000[K][K] 0[K]pp(([K]p[K][K]p[K][K]p[K]@[K]([K][K](0[K]([K]00[K](8 ((00[K]pi[K]h88[K]hip[K]ppnn[K]h[K]npp[K][K]p[K]F[K][K]p[K]4 STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]vv,x|n NEW <v[K] LPRINT GO TO x~Z00x>$n~ NEW DEF FN ~Z00xfl<<td INPUT [K]0[K]<v NEW NEW INPUT GO TO x[K]|v6<fn DRAW <v NEW NEW INPUT GO TO x RETURN AND ~v0<`n RETURN [K][K][K][K]vv,x|n NEW <v NEW NEW INPUT GO TO x©30`` LPRINT LIST RETURN AND >$n~ NEW DEF FN [K]|v6<fn DRAW 11s{em IF [K][K]<v[K] LPRINT GO TO x~~&f GO TO DEF FN OVER |v6<`` LPRINT 11s{em IF ©30`` LPRINT LIST vv$|dn INPUT fl<<td INPUT ~Z00x~v0<`n RETURN [K]|v6<fn DRAW [K]~r0<fn DRAW <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN 00p|fn DRAW "kk[K] VERIFY ~<v NEW NEW INPUT GO TO x~v0<`n RETURN [K]<v NEW NEW INPUT GO TO x<nF AND INPUT |~v0<`n RETURN |v6<`` LPRINT <v NEW NEW INPUT GO TO x[K]6n<~Z00x<v NEW NEW INPUT GO TO xfl<<td INPUT [K][K]<v[K] LPRINT GO TO x&f INPUT TO | SAVE ~r0<fn DRAW <v[K] LPRINT GO TO x~Z00x>$n~ NEW DEF FN vv$|dn INPUT [K]f TO TO DEF FN ~fl<<td INPUT fl<<td INPUT [K]0[K]~Z00x<v NEW NEW INPUT GO TO x[K]>nl<l TO DEF FN [K]|v6<fn DRAW >$n~ NEW DEF FN cw>>jb BORDER [K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x|v6<fn DRAW ~v0<`n RETURN ~Z00x&f INPUT TO | SAVE n[[COS ACS ACS BRIGHT [K]>|[K][K]~r0<fn DRAW 11s{em IF <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN ~v0<`n RETURN [K]&f INPUT TO | SAVE vv$|dn INPUT <v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO xfl<<td INPUT ~Z00x~v0<`n RETURN [K]vv$|dn INPUT <v NEW NEW INPUT GO TO x©30`` LPRINT LIST fl<<td INPUT [K]vv$|dn INPUT >$n~ NEW DEF FN [K]~r0<fn DRAW ~v0<`n RETURN |v6<`` LPRINT ~v0<`n RETURN ©30`` LPRINT LIST [K]0[K][K]fl<<td INPUT vv$|dn INPUT >$n~ NEW DEF FN ff DEF FN TO |<`n RETURN [K]|v6<fn DRAW [K] RETURN AND >$n~ NEW DEF FN >&fD DEF FN DEF FN 00p|fn DRAW vv$|dn INPUT ~v0<`n RETURN fl<<td INPUT "kk[K] VERIFY ~~v0<`n RETURN cw>>jb BORDER [K]>nl<l TO DEF FN [K]vv$|dn INPUT ~v0<`n RETURN [K]|v6<`` LPRINT &f INPUT TO | SAVE ff DEF FN TO |n~ NEW DEF FN n[[COS ACS ACS BRIGHT <v[K] LPRINT GO TO x00p|fn DRAW [K][K]<nF AND INPUT |>$n~ NEW DEF FN [K]|v6<fn DRAW >$n~ NEW DEF FN "kk[K] VERIFY ~&f INPUT TO | SAVE [K]<nF AND INPUT |>$n~ NEW DEF FN RETURN AND vv$|dn INPUT fl<<td INPUT [K]f TO TO DEF FN ~&f INPUT TO | SAVE [K][K][K][K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x|v6<fn DRAW <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN ff DEF FN TO |n~ NEW DEF FN |v6<fn DRAW [K][K]vv$|dn INPUT >$n~ NEW DEF FN [K]<v[K] LPRINT GO TO x|v6<fn DRAW <v NEW NEW INPUT GO TO x$~v0<`n RETURN cw>>jb BORDER [K]~~&f GO TO DEF FN OVER &f INPUT TO | SAVE ~Z00xfl<<td INPUT [K][K][K] COPY RETURN COPY [K] CLEAR LOAD CAT [K] BORDER PIATN w[K] COPY IN PEEK IN OVER RETURN IN COPY [K][P]_[K] COPY 1IN PEEK IN OVER RETURN IN COPY [K][P]_[K]<nF AND INPUT |>$n~ NEW DEF FN ~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x RETURN AND >&fD DEF FN DEF FN >nl<l TO DEF FN vv$|dn INPUT vv,x|n NEW &f INPUT TO | SAVE [K]~Z00xfl<<td INPUT ~~&f GO TO DEF FN OVER >$n~ NEW DEF FN [K] COPY [K] RETURN CLEAR BORDER RUN BORDER BORDER [T]NOT <=[K] COPY CLEAR INK OUT OVER CLS OUT RETURN GO TO [P]_[P][P][K] COPY 0 CLEAR INK OUT OVER CLS OUT RETURN GO TO [P]_[P][P][K][K] COPY [K] CLEAR COPY [K] RETURN [H][K] BORDER <= BORDER BEEP RUN [K] COPY INPUT INPUT DRAW RETURN LOAD GO SUB COPY LOAD [P][P]IN _[P][K] COPY ! LIST PLOT IF RANDOMIZE RANDOMIZE COPY CLEAR COPY COPY ©©g CLS ? FOR INPUT INPUT DRAW RETURN LOAD GO SUB COPY LOAD [P][P]IN _[P][K]<v NEW NEW INPUT GO TO x~r0<fn DRAW |v6<fn DRAW >$n~ NEW DEF FN >&fD DEF FN DEF FN >$n~ NEW DEF FN [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO xvv<<n NEW <v NEW NEW INPUT GO TO x RETURN AND fl<<td INPUT [K]>|[K] COPY Q RETURN [K] COPY PLOT RUN [K] COPY © COPY IN IN COPY [P] CLS IF PLOT PAUSE PLOT CLS PAUSE PRINT y!13-3 COPY COPY LOAD [K] BORDER [K] COPY ?[K][K] COPY O RETURN LOAD LOAD COPY LOAD COPY IN COPY COPY OUT _IN OUT © OUT [P]IN DRAW SAVE PLOT NEXT DRAW RANDOMIZE LET RETURN ©©[P] COPY ? OUT NEXT PAUSE ACS STOP READ <> IF CLEAR [P][P] CAT CAT TO REM LOAD COPY [K]~Z00x~v0<`n RETURN [K]~v0<`n RETURN $~v0<`n RETURN [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT 11s{em IF +kk< VERIFY VERIFY CLOSE #vv,x|n NEW >$n~ NEW DEF FN cw>>jb BORDER fl<<td INPUT [K]0[K] COPY IN [K] COPY IN [K] COPY ▟[T] OUT PLOT COPY RETURN COPY COPY IF N COPY NEXT LOAD [H] CLS COPY ^▘VAL$ INK SAVE pr LLIST FOR PLOT LLIST LET ?~ COPY COPY }s©6 COPY RETURN NEXT LOAD [O]TAB OVER t COPY ▜R[B][K][K] COPY <=S>Y COPY COPY NEXT STEP PEEK CIRCLE [G] COPY OUT ©<=SIN @[P] OUT OLEN AND < IF [K] COPY <=S>Y COPY COPY NEXT STEP PEEK CIRCLE [G] COPY OUT ©<=SIN @[P] OUT OLEN AND < IF [K] COPY <=S>Y[K] COPY RUN [A]<: FOR CLEAR INK SGN y POKE p[K] COPY 2`% SAVE DRAW > DRAW SAVE COPY DRAW SAVE IN {1 RANDOMIZE BRIGHT [O]X~ CLEAR PEEK NEW RANDOMIZE TO A"TAN INPUT [K]vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]cw>>jb BORDER <v NEW NEW INPUT GO TO x+kk< VERIFY VERIFY CLOSE #~v0<`n RETURN ~Z00x~v0<`n RETURN [K]fl<<td INPUT [K]<nF AND INPUT |>$n~ NEW DEF FN [K]>|[K]Y>S<=[K] COPY 1$x5[L] BEEP BORDER USR ▖PEEK LOAD WAT [P] COPY 3▞VAL$ ] BORDER CLS DRAW $hXATTR ?©[G] CIRCLE PEEK STEP NEXT COPY COPY @SIN <=© OUT COPY IF < AND LEN O OUT [P]Y>S<=[K] COPY 1$▚ BEEP ATTR [F] CLS COPY VAL hf CLOSE #ATTR FOR @[B]▗YLN u(▝0I[R](I MERGE ▛[J] CONTINUE "▖▝%▖CHR$ DCHR$ %COS I[D]▟[K][K] COPY 8IN [K] COPY MERGE IF [K] COPY j CLOSE # VERIFY BORDER IF CLS CLEAR COPY NOT DVAL ; RETURN } PAUSE LINE 1P DATA aBIN POINT WATN + OUT ©© CLS RUN <="[A] LPRINT 'PIRFN [K]©30`` LPRINT LIST >&fD DEF FN DEF FN >nl<l TO DEF FN vv$|dn INPUT &f INPUT TO | SAVE ~Z00x00p|fn DRAW [K]|v6<fn DRAW vv$|dn INPUT fl<<td INPUT <nF AND INPUT |[K][K] COPY ` PRINT IF [K] COPY TAB _PEEK CLEAR RETURN [K] COPY - PAPER IN RTAB REM CLS COPY BRIGHT INKEY$ FOR PRINT CLS COPY [K]![K][K][K]<[K][K][K][K];((0(([K]([K]((0(([K]([K]((0(([K](0([K][K](88([K][K]([K]88[K][K](0[K](0([K]0088[K][K]p((px[K][K]p[K]([K]0((0[K]([K]p[K](00pp[K](p STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>iis OPEN # OUT IN IN CLEAR OUT RANDOMIZE CLS SQR COPY SQR IN CLEAR f5[H] RUN NEW BORDER NEW ▜ INVERSE INVERSE RANDOMIZE DIM READ COS COS © PLOT PLOT RUN CLEAR PRINT CLEAR CLEAR CLS GO SUB COPY LOAD INPUT RETURN PLOT RUN RUN SAVE LIST STR$ ▝cs3[K] COPY CLS CLEAR RETURN DRAW [K] COPY [P]IN COPY ©[K] COPY DIM FOR CLS FOR RUN [K] COPY iis OPEN # OUT IN IN CLEAR OUT RANDOMIZE CLS SQR COPY SQR IN CLEAR f5[H] RUN NEW BORDER NEW ▜ INVERSE INVERSE RANDOMIZE DIM READ COS COS ©[K] COPY CLEAR CLEAR COPY COPY RETURN [K] COPY ©ABS IN ?~~ RETURN COPY ▜ CAT CAT LOAD LOAD CAT CAT O[K] COPY [K] RUN COPY CLS CLS IF COPY COS [K] THEN ▛7[K] COPY ( CLEAR CLEAR [K] COPY RETURN CLEAR RETURN ©IN CLS PAUSE COPY |VAL$ w▜ CAT LOAD [K] COPY GO SUB DRAW SAVE DRAW CLS IF RETURN SAVE SAVE ?e"c#b MOVE Q[K] COPY [K]©[K] COPY I BORDER NOT OPEN # OPEN # FLASH CLS INVERSE EXP [K] COPY OUT BEEP ATN [K] COPY r RETURN RETURN NEW OUT DRAW BEEP COPY o_[P][P] COPY IN [K] COPY DRAW [K] COPY GO TO SAVE GO TO RETURN LLIST USR BIN FLASH COPY ©_[P] COPY ©©[K] COPY IF PRINT [K] COPY @EXP RANDOMIZE ABS ABS yq LIST | COPY COPY BORDER BORDER OPEN # OPEN # FLASH CLS COPY ATN CLS NEXT { PRINT {[K] COPY [P]oO[K] COPY h[O]▗▖▖ TO TAN TO OUT _oOo OUT OCODE [K] COPY ▟[T] OUT RUN [K] LIST RANDOMIZE LET LLIST STOP COPY RUN CLS COPY [K]~=[P]OK FOR RUN BORDER COPY COPY NEXT NEXT FOR DIM LET INK [M]) RANDOMIZE CLEAR POKE DRAW INPUT OUT COPY [K] COPY PEEK I AND [K] COPY IF U/?[K] COPY FLASH RND[K] COPY ~ MERGE [K] COPY INPUT [K] COPY SQR U[K] COPY RETURN COPY EXP ABS CLS PRINT SAVE SAVE LET A DEF FN VERIFY ASN COPY ) RETURN <= BORDER BEEP <=[J] CLS W[K] COPY FLASH RND[K] COPY ~ MERGE [K] COPY INPUT [K] COPY SQR U[K] COPY 3 PRINT CONTINUE NEW THEN INK [K] COPY RETURN RETURN RANDOMIZE COPY DRAW SAVE SAVE CLS ?o CAT ?[P]©[K] COPY RUN [P]?> PLOT CAT PI[P]©?© OUT ?[P]▜IN RETURN COPY COPY ? LET >=[N] CLS BEEP ©<=SIN @▜<=OLEN AND < IF [C]@4[A]hXzp>=USR D`6NOT [K][K]< LIST STR$ 8 LPRINT COPY ||b|x>0 COPY a|90 DRAW LIST | LPRINT CLS `NOT [K][K]< LIST STR$ 8 LPRINT [K] COPY RETURN [K] COPY PLOT RUN [K] COPY © COPY IN IN COPY [P][K] COPY RETURN CLEAR RETURN DRAW DRAW PEEK DRAW }m OUT RUN REM EBIN BIN D[K] COPY [K]©[K] COPY DRAW RETURN COPY COPY [K] RETURN DRAW O▜ BEEP o▜ COPY PEEK BRIGHT } GO SUB FOR pB[J]H@[B]USR @[B][U]H▜[O]0$BR@!ATTR POINT A$@POINT T LINE $▝0"B ERASE CR @#[K]T;CODE © FLASH uIN $V REM © BEEP COPY IN TAN IF IN CLEAR FLASH ? GO SUB RND BEEP RUN CAT IF oSQR T;CODE © FLASH uIN $V REM © BEEP COPY IN TAN IF IN CLEAR FLASH ? GO SUB RND BEEP RUN CAT IF oSQR T;CODE © FLASH uIN $V REM © BEEP COPY IN TAN IF IN CLEAR FLASH ? GO SUB RND BEEP RUN CAT IF oSQR [K] COPY RETURN LOAD LOAD COPY LOAD COPY IN COPY COPY OUT _IN OUT © OUT [P]IN [K] COPY IF PRINT CLEAR SAVE IF RETURN [K] RUN DRAW DRAW RETURN RETURN COPY RUN CLS CLS THEN STEP [T] LIST INK RETURN <>STR$ [K] COPY ©©[K] COPY CLEAR RETURN DRAW COPY CLS RANDOMIZE SAVE IF ?©? COPY ?BIN INVERSE FN [I]:[E]2▝[G]+R/ATTR pJRND MOVE |E*ABS i CLOSE # FOR LLIST [C]*[M] MOVE FN 2]POINT POINT CLOSE #j ERASE POINT VERIFY [ GO SUB [R]@[J][R]fINT RM COPY [ PLOT _ REM o7; FOR [J] BEEP j© BEEP o VERIFY OUT COPY SQR ASN RETURN COPY RETURN _ RETURN ]FN BRIGHT INT 8 COPY [ PLOT _ REM o7; FOR [J] BEEP j© BEEP o VERIFY OUT COPY SQR ASN RETURN COPY RETURN _ RETURN ]FN BRIGHT INT 8 COPY [ PLOT _ REM o7; FOR [J] BEEP j© BEEP o VERIFY OUT COPY SQR ASN RETURN COPY RETURN _ RETURN ]FN BRIGHT INT 8[K] COPY ▟[T] OUT PLOT COPY RETURN COPY COPY IF N COPY NEXT LOAD [H] CLS COPY ^▘VAL$ INK [P]OK FOR RUN BORDER COPY COPY [K] LOAD COPY PI CAT CAT o COPY COPY RUN [K] COPY CLS COPY ▝[A][P]SIN STOP STOP BIN CLS CLS RANDOMIZE CLEAR RUN {} CLEAR RETURN CLEAR CLEAR RANDOMIZE [K] CLS NEXT LOAD ~lz6VAL [B]`r SAVE USR RESTORE [S]hd<>VAL$ ;USCREEN$ [ASN ~ MERGE VAL$ RUN GO SUB ACS . INVERSE PLOT o PAPER TAB _ATN DEF FN { PAPER © CLS o PLOT THEN CLEAR VERIFY PEEK CLEAR MERGE [ RETURN SQR PAPER CODE ZABS OUT RUN OUT OVER INT MERGE PAUSE TAB CLS DRAW COPY [Q] CLOSE #DbZ9[E](C.TAB .V▛")@[O]CODE [G]8▖B.TAB .V▛")@[O]CODE [G]8▖B.TAB .V▛")@[O]CODE [G]8▖B[K] COPY RUN [A]<: FOR CLEAR INK SGN y POKE p[K] COPY 2`% COPY COPY ? LET >=[N] CAT ?o_IN COPY ©8 RUN [K] COPY RETURN ~ RETURN © BORDER [O]?©?>??IN ▜[P] DRAW RUN <=IN wXINKEY$W&WINKEY$▜LEN hSTR$ ▞6+ASN COPY W CLS n CLS CODE COPY © COPY ATN IF GO SUB LOAD [K] COPY PRINT CODE RUN ABS CLS [K] COPY ? PLOT FOR ©[K] COPY l FLASH GO SUB IN INPUT [K] COPY CLEAR RETURN CLEAR COPY RUN COPY RETURN TO VERIFY CLS OUT v COPY DIM SGN IF PFN STR$ FN [E] STOP MERGE E04$ ▗CHR$ >=D▘@@DP[A]AE04$ ▗CHR$ >=D▘@@DP[A]AE04$ ▗CHR$ >=D▘@@DP[A]A[Q]I▝H[I] LPRINT <>A▙ STEP @D▘ T)▘[Q]I▝H[I] LPRINT <>A▙ STEP @D▘ T)▘!▗VAL BR+UVAL$ MERGE nINT kACS Y INPUT SQR OUT CLS BRIGHT + COPY { LOAD ©[K] COPY "vPOINT RETURN ABS INPUT CLEAR COPY COPY INT TAB PAPER 5 LOAD INT RUN PEEK ▗![E]FN U REM V GO SUB [Q]B@[S] MOVE COPY IN CLS ©CODE COPY MERGE o]ABS CLOSE # FLASH |{n RUN CLEAR GO SUB IN RUN SQR DIM o CLEAR COPY FLASH Zu FLASH TAN GO SUB COPY IN CLS ©CODE COPY MERGE o]ABS CLOSE # FLASH |{n RUN CLEAR GO SUB IN RUN SQR DIM o CLEAR COPY FLASH Zu FLASH TAN GO SUB COPY IN CLS ©CODE COPY MERGE o]ABS CLOSE # FLASH |{n RUN CLEAR GO SUB IN RUN SQR DIM o CLEAR COPY FLASH Zu FLASH TAN GO SUB ATTR qFN USCREEN$ USCREEN$ JT"USCREEN$ STR$ FN AFN UVAL$ NOT u IF [F]UVAL$ ATTR qFN USCREEN$ USCREEN$ JT"USCREEN$ STR$ FN AFN UVAL$ NOT u IF [F]UVAL$ SCREEN$ _INKEY$m[G]k BEEP SCREEN$ ATN ]SQR mATN }ATN COPY IN IN _© COPY IN [K] COPY 2 CLS CLS PRINT CLEAR COPY CLS COPY COPY PAPER uINT m PAPER } FLASH RETURN SCREEN$ POKE LINE l ERASE TAB BEEP ATTR VERIFY LOAD JuCODE PRINT *P CLS ^ PRINT PAPER ©*PJINT BEEP jG* OPEN # PLOT o RANDOMIZE BRIGHT CODE ASN INPUT R VERIFY LOAD JuCODE PRINT *P CLS ^ PRINT PAPER ©*PJINT BEEP jG* OPEN # PLOT o RANDOMIZE BRIGHT CODE ASN INPUT R VERIFY LOAD JuCODE PRINT *P CLS ^ PRINT PAPER ©*PJINT BEEP jG* OPEN # PLOT o RANDOMIZE BRIGHT CODE ASN INPUT R POKE o PAPER PRINT FLASH VAL$ RUN RETURN VERIFY SCREEN$ INVERSE vATTR CLEAR LOAD RUN WSGN [INT CODE CLS o RUN LINE DRAW VERIFY PEEK GO TO MERGE k OUT POKE o PAPER PRINT FLASH VAL$ RUN RETURN VERIFY SCREEN$ INVERSE vATTR CLEAR LOAD RUN WSGN [INT CODE CLS o RUN LINE DRAW VERIFY PEEK GO TO MERGE k OUT BEEP =CODE [ASN LOAD COPY FLASH TAB OUT CLS o COPY COPY LOAD [K] COPY Ak RUN IN GO SUB [K] COPY VERIFY y REM ASN Z LOAD RETURN RUN ▘tB"[E])▖$ "%▘0▘"(@▘tB"[E])▖$ "%▘0▘"(@▘tB"[E])▖$ "%▘0▘"(@IN vIN CLS COPY IN COPY COPY m CLS COPY IN COPY CLEAR [K] COPY ATN RETURN RUN ©[K] COPY m RETURN CLEAR LOAD SQR RETURN COPY COPY IN vIN CLS COPY IN COPY COPY m CLS COPY IN COPY CLEAR [K] COPY ATN RETURN RUN ©[K] COPY m RETURN CLEAR LOAD SQR RETURN COPY COPY © OUT IN wIN COPY ©[K] COPY Q CLEAR RUN CLS INVERSE CLS COPY CLEAR COPY DB{ IF }OASN )@▜[C] THEN GO SUB $[F]ACS CLEAR ▝ LET ▟ BEEP COPY ~DB{ IF }OASN )@▜[C] THEN GO SUB $[F]ACS CLEAR ▝ LET ▟ BEEP COPY ~DB{ IF }OASN )@▜[C] THEN GO SUB $[F]ACS CLEAR ▝ LET ▟ BEEP COPY ~[K]vv$|dn INPUT &f INPUT TO | SAVE [K]fl<<td INPUT [K]vv$|dn INPUT >$n~ NEW DEF FN vv,x|n NEW <v NEW NEW INPUT GO TO xvv$|dn INPUT ~v0<`n RETURN [K]f TO TO DEF FN ~[K]0[K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO xfl<<td INPUT RETURN AND >nl<l TO DEF FN [K]|v6<fn DRAW <v[K] LPRINT GO TO x~v0<`n RETURN [K]vv$|dn INPUT >$n~ NEW DEF FN ~v0<`n RETURN <nF AND INPUT | RETURN AND 11s{em IF [K][K]0[K]|v6<fn DRAW 11s{em IF [K]<v NEW NEW INPUT GO TO xvv,x|n NEW >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #~v0<`n RETURN ~Z00x~v0<`n RETURN <v[K] LPRINT GO TO x00p|fn DRAW [K]&f INPUT TO | SAVE [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x RETURN AND <v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER >$n~ NEW DEF FN RETURN AND >$n~ NEW DEF FN [K]0[K]|v6<fn DRAW <v NEW NEW INPUT GO TO x RETURN AND 11s{em IF [K]vv,x|n NEW <v NEW NEW INPUT GO TO x~Z00x<v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]|v6<fn DRAW 11s{em IF vv$|dn INPUT ~v0<`n RETURN <v[K] LPRINT GO TO x&f INPUT TO | SAVE ~Z00x[K]|v6<fn DRAW >$n~ NEW DEF FN "kk[K] VERIFY ~~v0<`n RETURN [K]~Z00x~v0<`n RETURN >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT >$n~ NEW DEF FN [K]~Z00x&f INPUT TO | SAVE [K]<v[K] LPRINT GO TO x~Z00x<v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO xvv$|dn INPUT &f INPUT TO | SAVE [K]<nF AND INPUT |~v0<`n RETURN cw>>jb BORDER >&fD DEF FN DEF FN fl<<td INPUT [K]0[K]©30`` LPRINT LIST RETURN AND ~v0<`n RETURN [K]|v6<fn DRAW 11s{em IF [K]|v6<fn DRAW <v[K] LPRINT GO TO x~Z00x&f INPUT TO | SAVE ~~&f GO TO DEF FN OVER fl<<td INPUT ~Z00x~v0<`n RETURN [K][K]|v6<fn DRAW [K][K]f TO TO DEF FN ~fl<<td INPUT |v6<fn DRAW fl<<td INPUT >&fD DEF FN DEF FN fl<<td INPUT <nF AND INPUT |<v NEW NEW INPUT GO TO x|v6<fn DRAW >$n~ NEW DEF FN vv$|dn INPUT vv$|dn INPUT 11s{em IF fl<<td INPUT [K]cw>>jb BORDER fl<<td INPUT |v6<`` LPRINT [K] RETURN AND fl<<td INPUT vv$|dn INPUT <v NEW NEW INPUT GO TO x<nF AND INPUT |>$n~ NEW DEF FN |v6<fn DRAW |v6<`` LPRINT <v NEW NEW INPUT GO TO x|v6<fn DRAW [K][K]0( 0[K][K]([K]((0([K]80[K](8[K](([K](0([K]([K](00[K]([K](0((88(p88[K]pi[K]h888 88([K]0[K]p0[K]pw[K]o[K]080(([K]p00[K]pu[K]o[K][K]00[K]p[K]0[K]p[K]o[K]pPp [K]p[K]hppu[K]o[K]ph[K](h[K]pM}[K]M}[K]M}MM[K]phh[K](hhpp[K]M[K]phh[K](hhp[K][K]h[K](hh[K][K][K]@ STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]Yff DEF FN TO |n~ NEW DEF FN <v[K] LPRINT GO TO x~Z00x00p|fn DRAW [K] COPY ;33 COPY RETURN LN [I][I]00 RETURN [K][K]y~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN ~v0<`n RETURN <nF AND INPUT |"kk[K] VERIFY ~fl<<td INPUT [K]|v6<fn DRAW [K]vv,x|n NEW >$n~ NEW DEF FN vv,x|n NEW <v NEW NEW INPUT GO TO x~v0<`n RETURN [K]>|[K]~Z00x<v NEW NEW INPUT GO TO x[K]<v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT >$n~ NEW DEF FN vv$|dn INPUT vv$|dn INPUT <v NEW NEW INPUT GO TO x~v0<`n RETURN [K][K]<v NEW NEW INPUT GO TO x~Z00x|v6<fn DRAW ~v0<`n RETURN |v6<`` LPRINT <v[K] LPRINT GO TO x~Z00xfl<<td INPUT ~v0<`n RETURN [K]0[K]|v6<fn DRAW 11s{em IF [K]<v NEW NEW INPUT GO TO xvv,x|n NEW >$n~ NEW DEF FN <nF AND INPUT |>$n~ NEW DEF FN >&fD DEF FN DEF FN fl<<td INPUT <v[K] LPRINT GO TO x00p|fn DRAW [K]>&fD DEF FN DEF FN fl<<td INPUT [K]f TO TO DEF FN ~<v NEW NEW INPUT GO TO xcw>>jb BORDER [K][K]vv,x|n NEW [K]vv,x|n NEW >&fD DEF FN DEF FN n[[COS ACS ACS BRIGHT |v6<fn DRAW &f INPUT TO | SAVE [K]~~&f GO TO DEF FN OVER ~Z00x~v0<`n RETURN |v6<`` LPRINT <v NEW NEW INPUT GO TO x RETURN AND >$n~ NEW DEF FN vv,x|n NEW ~Z00xfl<<td INPUT >&fD DEF FN DEF FN >nl<l TO DEF FN [K][K][K]vv,x|n NEW <v NEW NEW INPUT GO TO x~Z00x<v NEW NEW INPUT GO TO x[K]>|[K][K]|v6<`` LPRINT 11s{em IF fl<<td INPUT [K]ff DEF FN TO | TO | SAVE ~Z00x00p|fn DRAW [K]~r0<fn DRAW 11s{em IF >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT ~v0<`n RETURN [K]&f INPUT TO | SAVE vv,x|n NEW <v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x~Z00xfl<<td INPUT >&fD DEF FN DEF FN [K]|v6<fn DRAW >$n~ NEW DEF FN <v[K] LPRINT GO TO x[K][K]|v6<`` LPRINT <v NEW NEW INPUT GO TO x|v6<fn DRAW vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT >$n~ NEW DEF FN [K]<v NEW NEW INPUT GO TO x RETURN AND vv$|dn INPUT &f INPUT TO | SAVE [K]©30`` LPRINT LIST <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x|v6<fn DRAW &f INPUT TO | SAVE [K][K]LN [K] COPY LOAD PRINT LET [K] COPY DATA THEN ^ DEF FN COPY IF DRAW DRAW <USR COPY COPY ©[P] PRINT ©[K] COPY ?IN COPY [K]USR [K] COPY DRAW DRAW CLEAR ABS }[B]▖BIN VAL "@@#G?©[K] COPY [K]USR [K] COPY IF IF POKE RANDOMIZE READ BIN [I]FN z PRINT IF USR )@ POKE ▖h [K]O3[K] COPY RETURN [K] COPY [K] COPY [K]USR [K] COPY RETURN DRAW DRAW CLEAR OPEN #▞1s{ CLS RUN RUN [K] COPY SAVE [K] COPY BORDER LPRINT [K] COPY RUN ▞ CAT BORDER [K] COPY LET RETURN [K] COPY ?IN [K] COPY [K]FN [K] COPY CLS RESTORE BEEP STEP MOVE [K] COPY RETURN COPY COPY OUT OUT [P]??© COPY [K] LPRINT [K] COPY NEXT RESTORE USR ▞ CAT BIN LPRINT CLEAR NEXT NEXT G LOAD ??[K] COPY [K] LPRINT [K] COPY OPEN # CAT IF VERIFY GO SUB IF REM RETURN COPY © COPY COPY ©©?[K] COPY [K] LPRINT [K] COPY RETURN COPY COPY NEXT READ BORDER [P]>[M] COPY [P]?©IN ©©?[K] COPY [K][K][O][K][K][K]vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]<v NEW NEW INPUT GO TO xvv$|dn INPUT [K]<v NEW NEW INPUT GO TO xvv,x|n NEW >$n~ NEW DEF FN <nF AND INPUT |>$n~ NEW DEF FN >&fD DEF FN DEF FN <v[K] LPRINT GO TO x>nl<l TO DEF FN [K]|v6<fn DRAW [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN $~v0<`n RETURN ~Z00x~v0<`n RETURN [K][K]Afl<<td INPUT [K]|v6<fn DRAW 11s{em IF [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x"kk[K] VERIFY ~>&fD DEF FN DEF FN fl<<td INPUT [K] RETURN AND >$n~ NEW DEF FN >&fD DEF FN DEF FN 00p|fn DRAW "kk[K] VERIFY ~~v0<`n RETURN [K]8[K]D[K]G[K]D[K]D{[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[B] STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]~Z00x>$n~ NEW DEF FN vv,x|n NEW [K]vv,x|n NEW >$n~ NEW DEF FN vv,x|n NEW [K]<v[K] LPRINT GO TO x>$n~ NEW DEF FN ~r0<fn DRAW >&fD DEF FN DEF FN ~v0<`n RETURN <nF AND INPUT |&f INPUT TO | SAVE ~r0<fn DRAW 11s{em IF fl<<td INPUT [K]~Z00xfl<<td INPUT ©30`` LPRINT LIST |v6<`` LPRINT [K] RETURN AND >$n~ NEW DEF FN |v6<fn DRAW vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT ~v0<`n RETURN [K]vv,x|n NEW &f INPUT TO | SAVE "kk[K] VERIFY ~>$n~ NEW DEF FN >&fD DEF FN DEF FN [K]0[K]~Z00x<v NEW NEW INPUT GO TO x[K]<v NEW NEW INPUT GO TO xvv$|dn INPUT [K]~r0<fn DRAW 11s{em IF <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT <v NEW NEW INPUT GO TO x[K]&f INPUT TO | SAVE |v6<fn DRAW fl<<td INPUT RETURN AND ~v0<`n RETURN >&fD DEF FN DEF FN [K]cw>>jb BORDER >nl<l TO DEF FN <v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x[K][K]0[K]vv,x|n NEW <v NEW NEW INPUT GO TO x~Z00x<v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x~v0<`n RETURN [K]|v6<fn DRAW 11s{em IF "kk[K] VERIFY ~>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT >$n~ NEW DEF FN [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN >nl<l TO DEF FN vv$|dn INPUT vv,x|n NEW &f INPUT TO | SAVE [K]0[K]fl<<td INPUT [K][K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x~r0<fn DRAW |v6<`` LPRINT >$n~ NEW DEF FN >&fD DEF FN DEF FN <v[K] LPRINT GO TO x>nl<l TO DEF FN [K]~r0<fn DRAW 11s{em IF >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]<nF AND INPUT |>$n~ NEW DEF FN vv,x|n NEW &f INPUT TO | SAVE <v[K] LPRINT GO TO xfl<<td INPUT ~Z00x00p|fn DRAW [K][K][K][K])vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]~Z00x&f INPUT TO | SAVE ~Z00x[K]|v6<fn DRAW 11s{em IF [K]0[K]vv,x|n NEW >$n~ NEW DEF FN vv,x|n NEW [K]<nF AND INPUT |vv$|dn INPUT >$n~ NEW DEF FN n[[COS ACS ACS BRIGHT "kk[K] VERIFY ©fl<<td INPUT fl<<td INPUT [K]<v[K] LPRINT GO TO x|v6<fn DRAW <v NEW NEW INPUT GO TO x$~v0<`n RETURN [K] RETURN AND ~v0<`n RETURN [K]>|[K][K]>&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x[K]ff DEF FN TO |<`n RETURN >&fD DEF FN DEF FN <v NEW NEW INPUT GO TO x|v6<fn DRAW ~v0<`n RETURN vv,x|n NEW [K]0[K]~r0<fn DRAW 11s{em IF <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN vv$|dn INPUT 00p|fn DRAW vv,x|n NEW <v NEW NEW INPUT GO TO x[K]~~&f GO TO DEF FN OVER |v6<`` LPRINT <v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x|v6<fn DRAW [K]~v0<`n RETURN cw>>jb BORDER &f INPUT TO | SAVE [K]~r0<fn DRAW |v6<`` LPRINT n[[COS ACS ACS BRIGHT vv<<n NEW <v NEW NEW INPUT GO TO x[K]fl<<td INPUT [K]fl<<td INPUT <nF AND INPUT | RETURN AND >$n~ NEW DEF FN |v6<fn DRAW [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x~r0<fn DRAW ~v0<`n RETURN RETURN AND vv$|dn INPUT 11s{em IF fl<<td INPUT [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER >&fD DEF FN DEF FN 00p|fn DRAW [K][K]0[K]<v[K] LPRINT GO TO xvv,x|n NEW |v6<`` LPRINT 11s{em IF >&fD DEF FN DEF FN fl<<td INPUT <v[K] LPRINT GO TO x00p|fn DRAW [K]vv$|dn INPUT >$n~ NEW DEF FN [K] RETURN AND |v6<`` LPRINT &f INPUT TO | SAVE ©30`` LPRINT LIST <v NEW NEW INPUT GO TO xfl<<td INPUT [K]<v[K] LPRINT GO TO x~Z00x<v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO xvv$|dn INPUT ~v0<`n RETURN [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x[K]>|[K][K]>&fD DEF FN DEF FN >nl<l TO DEF FN vv$|dn INPUT 11s{em IF [K][K][K][K]H[K] COPY RETURN DRAW [K] COPY CLS W OR [K] COPY ([K]>= IF CLEAR IF IF [K] COPY BIN LPRINT I CIRCLE < DRAW ©[K] COPY COPY [K][K] COPY ©C[K] COPY ©[K] COPY [K]>=[K] COPY RETURN LIST LPRINT OPEN # SAVE SAVE LIST USR COPY COPY 5j[K] COPY ATTR RETURN COPY COPY @ LPRINT LIST CIRCLE ?_/'[K] COPY [K]>=[K] COPY PLOT CLEAR [K] COPY LPRINT [I] DEF FN NEXT CLS [K] COPY ?IN OUT COPY [K][K][K][K]8[K]D[K]D[K]D2[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]Dg STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K] RETURN AND >$n~ NEW DEF FN >&fD DEF FN DEF FN 00p|fn DRAW "kk[K] VERIFY ~~v0<`n RETURN [K]|v6<fn DRAW 11s{em IF [K]0[K]|v6<fn DRAW <v NEW NEW INPUT GO TO x<nF AND INPUT |cw>>jb BORDER <v NEW NEW INPUT GO TO x+kk< VERIFY VERIFY CLOSE #vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]0[K]|v6<fn DRAW <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT ~v0<`n RETURN ~Z00xfl<<td INPUT ~Z00x~v0<`n RETURN [K][K]<v NEW NEW INPUT GO TO x RETURN AND vv$|dn INPUT &f INPUT TO | SAVE [K]<v NEW NEW INPUT GO TO xff DEF FN TO |<`n RETURN vv$|dn INPUT 00p|fn DRAW [K]fl<<td INPUT vv$|dn INPUT ~Z00x~v0<`n RETURN |v6<`` LPRINT ~v0<`n RETURN <v[K] LPRINT GO TO xvv$|dn INPUT &f INPUT TO | SAVE n[[COS ACS ACS BRIGHT [K]<v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x~r0<fn DRAW 00p|fn DRAW [K][K]<v[K] LPRINT GO TO x[K]~Z00x>$n~ NEW DEF FN vv,x|n NEW fl<<td INPUT cw>>jb BORDER [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x RETURN AND <v NEW NEW INPUT GO TO x<nF AND INPUT ||v6<`` LPRINT fl<<td INPUT ~Z00x~v0<`n RETURN >&fD DEF FN DEF FN 00p|fn DRAW vv$|dn INPUT 11s{em IF cw>>jb BORDER [K]fl<<td INPUT cw>>jb BORDER ~v0<`n RETURN vv$|
25710~v0<`n RETURN cw>>jb BORDER [K]>|[K][K];~Z00x<800x|v6<lf NEW >$n~ NEW DEF FN vt<<ld INPUT <v NEW NEW INPUT GO TO x<v LPRINT |>$n~ NEW DEF FN [K]f DEF FN TO DRAW p|v6<lf NEW [K]f DEF FN TO DRAW p<v LPRINT ||v6<lf NEW ~v0<`n RETURN vv<<n NEW [K][K][K][K]1vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]~Z00x>$n~ NEW DEF FN vv,x|n NEW [K]vv,x|n NEW >$n~ NEW DEF FN vv,x|n NEW [K]
9830| SAVE [K]|v6<fn DRAW >$n~ NEW DEF FN <v[K] LPRINT GO TO x[K]fl<<td INPUT cw>>jb BORDER ~v0<`n RETURN ~v0<`n RETURN ~Z00x<v[K] LPRINT GO TO x>nl<l TO DEF FN [K]~r0<fn DRAW <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN 00p|fn DRAW "kk[K] VERIFY ~<v NEW NEW INPUT GO TO xfl<<td INPUT [K]<v NEW NEW INPUT GO TO x~~&f GO TO DEF FN OVER 11s{em IF ~Z00x[K]|v6<fn DRAW [K]~Z00x>$n~ NEW DEF FN vv,x|n NEW fl<<td INPUT vv<<n NEW [K] RETURN AND ~v0<`n RETURN >&fD DEF FN DEF FN >$n~ NEW DEF FN vv<<n NEW [K]0[K]|v6<fn DRAW 11s{em IF [K]vv$|dn INPUT ~v0<`n RETURN [K]|v6<`` LPRINT >$n~ NEW DEF FN <v[K] LPRINT GO TO x[K]>|[K][K]~Z00x~v0<`n RETURN |v6<`` LPRINT >nl<l TO DEF FN >&fD DEF FN DEF FN fl<<td INPUT <v[K] LPRINT GO TO x00p|fn DRAW [K]8p``p8[K]|v6<fn DRAW ~v0<`n RETURN RETURN AND 00p|fn DRAW [K]vv$|dn INPUT ~v0<`n RETURN [K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x~r0<fn DRAW ~v0<`n RETURN |v6<`` LPRINT $~v0<`n RETURN "kk[K] VERIFY ~00p|fn DRAW [K][K]0008[K]0[K]fl<<td INPUT [K]~r0<fn DRAW 11s{em IF <v[K] LPRINT GO TO x~Z00x|v6<`` LPRINT <v NEW NEW INPUT GO TO x[K]|v6<`` LPRINT >$n~ NEW DEF FN <nF AND INPUT ||v6<fn DRAW <v NEW NEW INPUT GO TO x|v6<`` LPRINT <v NEW NEW INPUT GO TO x~Z00xfl<<td INPUT >&fD DEF FN DEF FN fl<<td INPUT [K]©30`` LPRINT LIST >$n~ NEW DEF FN RETURN AND &f INPUT TO | SAVE [K]~~&f GO TO DEF FN OVER &f INPUT TO | SAVE ~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO xvv,x|n NEW [K]000[K] COPY RETURN CLEAR CLEAR RUN INPUT POKE COPY COPY CODE _ATTR w▛W COPY SCREEN$ RNDVAL$ r REM GO SUB INPUT COPY PAPER SIN RND INK VERIFY UFN COPY COPY ©?IN o▜ COPY THEN <= CAT [K] COPY GO SUB INPUT LOAD LOAD [K] RUN COPY RUN CLS :ABS INVERSE INVERSE OUT COPY zw DIM VERIFY INK OVER IN COPY PEEK ^]R GO SUB 3O COPY CODE CODE __CODE _CODE [K] COPY P[K]@[K] COPY SAVE LPRINT INPUT CIRCLE POINT OPEN #e<=ATTR OF MOVE >=[B]Y[A]6 COPY COPY IN W/UGLN LINE PRINT CLS CLS SGN ©SSQR ABS ^__IN _[K] COPY ?IN OUT OUT CLS CLEAR RETURN CLS CLEAR CLEAR RETURN RETURN OUT LOAD RUN [K] LOAD OUT OVER ©~PEEK PEEK IN ~~ COPY _[K]IN _IN IN ©[K]_[K] COPY U[K]<v NEW NEW INPUT GO TO x~Z00xff DEF FN TO |<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K][K] COPY <=[P]SGN SAVE LLIST READ CAT TO 6NOT STR$ L<} CLEAR PEEK [O] OVER COPY ©SCREEN$ CODE W FOR wSCREEN$ U_IN [K] COPY © COPY COPY OUT OUT [K]IN OUT RETURN RETURN [K] COPY PEEK PEEK ?© COPY COPY RETURN RETURN COPY COPY [K]©[K] COPY b[K]@ COPY NOT FLASH [K][J]<<[K] COPY CLEAR SAVE CLEAR CIRCLE CLS COPY RETURN RETURN ~ DRAW <▙>zzw RUN =q▚/ RANDOMIZE READ CAT OUT SIN `STR$ BIN NEW LIST [F]C$@ COPY OUT ATTR WATTR ATTR CAT OUT [K] COPY CLEAR RETURN [K] COPY - CLEAR IF ABS [K] COPY CODE MERGE +[K] COPY ©ATTR [K] COPY ([K]~Z00x<v NEW NEW INPUT GO TO x~Z00x[K]fl<<td INPUT [K]<f FLASH [J]%gNOT [J]{| BORDER INVERSE POINT <> DEF FN DIM xSQR LOAD n|8=Ww FLASH RETURN }m DATA LIST IF LOAD COPY CLS CLEAR CLS DRAW CLEAR PAPER CONTINUE PAUSE CIRCLE [J][F] ERASE LINE D+U;WABS w LOAD OUT [K] COPY ©[K] COPY [K] RETURN COPY CLEAR RETURN COPY COPY READ RANDOMIZE DRAW COPY COPY ©/[P]_/[K] COPY DIM ERASE [I]GIN ©PINKEY$ LPRINT LET ACS EXP H!*hSIN U:C©IN ©▜/]2m[K] COPY RETURN [ NEW [K] COPY _ LOAD [K] COPY [K] RUN BORDER LOAD BEEP [K] COPY RETURN DRAW RANDOMIZE [K]@C COPY COPY NEXT POKE [T][M]>U[B] IF PRINT INT u LOAD ^[P] COPY {ABS 2u[S]D[K] COPY CLEAR CODE [A]4 STOP COPY COPY NEXT POKE [T] AND ,T CLEAR CLEAR ^SCREEN$ v/IN IF LET SCREEN$ STR$ [U][S] COPY COPY OUT CODE ]ATTR UVAL$ [K] COPY CLS [K] COPY CLS GO SUB ERASE NbEXP [K] COPY CLEAR CODE [P]O RUN RETURN COPY COPY CODE [K] COPY ^ CLS PAUSE DEF FN ACS IF CLEAR TAN 8q)p IF ©# CAT [O]~>▙nok[ FLASH VERIFY ACS ACS VERIFY [N]=3rvfd`[U]#VDt OVER CAT SPI[G][N]jT[R]P$[Q]_CODE ^0B+CODE XPEEK USQR PAPER NEXT <=/_ COPY © RUN }[K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO xcw>>jb BORDER ~v0<`n RETURN |v6<`` LPRINT [K][K]z POKE IN W FOR IN BEEP IN DIM OUT PAUSE BORDER <=CODE ? CLS ©?5:; OUT [L]m REM RETURN }ATTR BEEP wVAL$ z POKE IN W REM ABS BEEP PEEK k[P] COPY UATTR IN BEEP PEEK [P]▙[H] CAT BEEP >=USR LIST xVAL$ BEEP wCODE SCREEN$ E[A] LLIST SAVE COPY IN {CODE UATTR USQR COPY COPY CLEAR RETURN IN © INVERSE m REM RETURN }ATTR BEEP RUN RETURN ~ DRAW IN ^ RESTORE SQR OUT ABS JIN COPY SCREEN$ W©CODE } CLOSE #SCREEN$ COPY RETURN W7PEEK `'[H]W CLS COPY [T]W© COPY CODE MERGE {CODE } DATA DRAW RETURN LOAD W©TAB s DEF FN [I][B] COPY RUN [H].w5 FOR COPY WCODE LOAD ]G[P]IN PRINT {CODE }▞ COPY COPY W©CODE }[A]#w COPY COPY 7PEEK w>[IN IF BEEP CODE LOAD ][K]@W[T]DSCREEN$ OUT SQR = CLEAR R▖uVAL$ [N]▙INKEY$DSCREEN$ OUT SQR T[Q]R▖uVAL$ T[Q]DSCREEN$ OUT SQR T[Q]R▖uVAL$ oSIN g LET [P]SCREEN$ OUT SQR WPI;u▖uVAL$ WLN DRAW zBIN SCREEN$ OUT SQR LIST R▖uVAL$ +~ESCREEN$ OUT SQR COPY _SCREEN$ COPY ▖uVAL$ CIRCLE RANDOMIZE COPY [ COPY RND OVER ATN FN A▖ LIST DATA FOR ]VAL$ A▖UPEEK wCODE <>8[U] FOR ]FN A▖UPEEK wy]*Mx CLOSE #▖UPEEK wFN A[U] FOR ]FN A▖UPEEK wFN A[U] FOR ]SCREEN$ A▖UPEEK wFN A[U] FOR ][K]@[K]D NEW [K][K]D[K]D00@[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D[K]0[K]D STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K] COPY IN RETURN [K] COPY ERASE IN [K] COPY [P][K] COPY DRAW RETURN [K] COPY ©IN OATN [K] COPY TO RETURN LLIST INPUT COPY PRINT DEF FN VAL C[A]( LIST CONTINUE RND▖BIN p SAVE STR$ [D]$ FORMAT COPY COPY ?[E]/▖ READ RETURN READ F DRAW COPY COPY ©IN ?#[K] COPY USR LPRINT NOT <= LOAD [K] COPY [K] COPY [O] READ [B] NEXT BORDER [K] COPY BORDER [K] COPY 1[K] COPY FOR CLS [K] COPY ) LET DATA RETURN SAVE LPRINT [K] COPY LLIST ©?[P] OUT [K] COPY RETURN DRAW RANDOMIZE CLS [K] COPY ▜p DRAW USR [K] COPY '©[K] COPY NEXT COPY PI▛G COPY READ <>STR$ ▝RND▝[K] COPY RANDOMIZE [K] COPY 4 RETURN DRAW RANDOMIZE CLS [K] COPY ▜p DRAW USR [K] COPY '©[K] COPY [P] NEXT LLIST >= DATA VAL ▖[D]E[K] COPY USR [O]LN LIST READ <=[P]<# COPY ©©??IN [K] COPY DRAW CLEAR [K] COPY ?IN COPY RETURN RETURN DRAW DRAW CLEAR COPY COPY < LIST BIN ▖LN LET y<= READ LET RANDOMIZE [K] COPY RETURN RETURN COPY RETURN RESTORE LLIST DIM STOP CLOSE #qnABS W▜CODE CLS MERGE SCREEN$ PATTR BEEP <=IN WATTR UCHR$ FORMAT CHR$ [Q] OPEN #NOT O[K] COPY READ [K] COPY &?IN COPY RETURN RETURN DRAW DRAW CLEAR COPY COPY < LIST BIN ▖LN LET y<= READ LET RANDOMIZE [K] COPY RETURN RETURN RANDOMIZE POKE NEXT LPRINT LIST AND ▞`INKEY$R[G]XTAN INKEY$q>C▝[K] COPY FLASH CLEAR CLEAR [K] RETURN CLEAR RUN <= BORDER BORDER READ NEXT LLIST [R] INK COPY SAVE PRINT sTAN |{: RANDOMIZE yEXP sso COPY y[P][P][O] DEF FN DEF FN AND dTAN CAT ?~}r NEW READ BORDER BORDER <= CAT ▜[L] FLASH IN IN [K]©IN LOAD [K] COPY CLS CLS RUN CLS [K] COPY ©© INPUT BORDER PLOT FOR READ PRINT INPUT INVERSE :TFN OR SCREEN$ USCREEN$ U▘▛D▛WATTR ESCREEN$ u IF MERGE REM STR$ [T]VIN _CODE A[C][D]C▙ BRIGHT qINT V[K] COPY RETURN CLEAR >>[M][K] COPY OUT RUN ATN [H][L][K] COPY LOAD [K] COPY PRINT [P][P][O] DEF FN DEF FN AND dTAN CAT ?~}r NEW READ BORDER BORDER <= CAT ▜[L] FLASH IN IN [K]©IN LOAD COPY COPY RETURN DRAW DRAW SAVE SAVE CLS GO TO ▘`USR g USR &[K] COPY CLS CLS PAUSE LIST ASN [K][K]BIN r CONTINUE hp LIST RANDOMIZE REM U"q READ INPUT PAUSE 29|SGN 1#7^ABS y SAVE TAN [B]Ba8[A]▘*9AT B%D OUT OUT OTAB Y#N IF SAVE RANDOMIZE READ 2[H]SIN © RETURN RANDOMIZE vATTR © VERIFY TAB zASN h POKE xTAN SAVE t4:=5([A]"U"[R]UAT Z0xd FORMAT [R] LPRINT B[A]ATTR SCREEN$ I8 DIM ABS WFN UCOS RWVN[P]WSCREEN$ D OUT OUT OTAB Y#N PRINT pq9[B]▘*[B]Ba8[A]▘*9AT B%D OUT OUT OTAB Y#N DRAW RUN DIM BEEP VAL$ IN >e[G] DIM OPEN # COPY IN _ATTR E[I]c COPY © IF MERGE INT URND[K][K] RUN COPY CLEAR z CLOSE #*[K] COPY !]c!#C COPY IN LET yko+# CLS w CONTINUE PAPER ABS } INPUT GO TO EXP uSQR ;} INK CIRCLE [I] COPY ]c!#C COPY IN LET xhl(! NEXT S DIM >= OR c? INPUT [K] COPY OUT IF BEEP CODE FOR CLS PLOT 5O-SCREEN$ L BORDER BRIGHT SIN DIM TAN S[P]?SCREEN$ ASN Z BRIGHT IF TAB 88>zvxi CLEAR COPY ATN ATTR RUN %wIN RETURN PFN UFN ERASE FN MERGE REM ▞▖UCODE [Q]C[E]ATTR VTAB IF RUN PEEK /CODE USCREEN$ USCREEN$ uIN COPY NEXT FN W@[K] COPY © IF GO TO ew COPY COPY 5J7INKEY$I[K] COPY PEEK }ATTR COPY LOAD COPY COPY IN OUT *ACS RETURN [K] COPY OUT IF BEEP CODE FOR COPY COPY 5J7INKEY$I[K] COPY PEEK }ATTR COPY LOAD COPY COPY IN OUT *ACS RETURN [K] COPY OUT IF BEEP CODE FOR [K] COPY [K] LINE @APOINT OVER <}k DIM ssEXP BRIGHT LN p READ STEP [L] BEEP INPUT BEEP pVAL$ FLASH } FOR U[S]EWINT RANDOMIZE } FOR UATTR BEEP WSCREEN$ ABS RUN INT UJ MERGE PEEK {} FOR E@sFN INK } FOR E@ LIST SAVE | FOR E@rLN [G]{<=RNDg[ABS ~ LOAD [M]R MERGE FOR W GO SUB WATTR TtINT p POKE DIM SCREEN$ [G]{© IF uSCREEN$ t IF ASN bz LOAD OUT [F] SAVE ABS GSCREEN$ W IF COPY IN LINE [S]UINT COPY INVERSE SCREEN$ B+POINT MERGE RETURN IN VuATTR VAT POKE ▝@uSCREEN$ FLASH } FOR E@WINT RANDOMIZE } FOR E@WSCREEN$ ABS RUN INT U MERGE PEEK {} FOR E@uSCREEN$ FLASH } FOR E@WINT RANDOMIZE } FOR E@WSCREEN$ ABS RUN INT U MERGE PEEK {} FOR E@[K] COPY POKE RESTORE FN RUN INT U^$] FOR E@FN EFN RUN INT UASN n] FOR E@VAL$ EFN RUN INT UyACS REM INVERSE FOR USCREEN$ USR [Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@DFN RUN INT U] FOR E@USR FN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[Q]EFN RUN INT U$] FOR E@[K] COPY [K]vv$|dn INPUT &f INPUT TO | SAVE [K]>$n~ NEW DEF FN [K]|v6<fn DRAW <v NEW NEW INPUT GO TO x<v NEW NEW INPUT GO TO x~r0<fn DRAW "kk[K] VERIFY ©~v0<`n RETURN [K]|v6<fn DRAW 11s{em IF [K]0[K]8p``p8[K]~r0<fn DRAW >$n~ NEW DEF FN ~r0<fn DRAW $~v0<`n RETURN vv$|dn INPUT vv,x|n NEW >$n~ NEW DEF FN [K]cw>>jb BORDER <v NEW NEW INPUT GO TO x+kk< VERIFY VERIFY CLOSE #~v0<`n RETURN ~Z00x[K]fl<<td INPUT <v[K] LPRINT GO TO x~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN 00p|fn DRAW <nF AND INPUT |<v NEW NEW INPUT GO TO x|v6<fn DRAW >$n~ NEW DEF FN ~Z00x00p|fn DRAW [K]ff TO [K]vt<<ld INPUT ff TO [K]~~&f GO TO DEF FN OVER <v NEW NEW INPUT GO TO xff DEF FN TO |n~ NEW DEF FN "kk[K] VERIFY ©~v0<`n RETURN [K]~~&f GO TO DEF FN OVER |v6<`` LPRINT fl<<td INPUT ©30`` LPRINT LIST fl<<td INPUT [K]>|[K][K]~r0<fn DRAW >$n~ NEW DEF FN >nl<l TO DEF FN <v[K] LPRINT GO TO x00p|fn DRAW [K]0[K]|v6<fn DRAW <v[K] LPRINT GO TO xvv,x|n NEW <v NEW NEW INPUT GO TO x|v6<`` LPRINT ~v0<`n RETURN [K] RETURN AND <v NEW NEW INPUT GO TO x<v[K] LPRINT GO TO x~v0<`n RETURN cw>>jb BORDER ~v0<`n RETURN vv$|dn INPUT fl<<td INPUT ~Z00x~v0<`n RETURN [K] RETURN AND <v NEW NEW INPUT GO TO x[K][K]f TO TO DEF FN ~~v0<`n RETURN [K]>|[K][K]>&fD DEF FN DEF FN fl<<td INPUT [K]|v6<fn DRAW >$n~ NEW DEF FN "kk[K] VERIFY ~~v0<`n RETURN ©30`` LPRINT LIST <v NEW NEW INPUT GO TO x[K]~~&f GO TO DEF FN OVER &f INPUT TO | SAVE ~Z00x~v0<`n RETURN "kk[K] VERIFY ~~v0<`n RETURN <v[K] LPRINT GO TO x~Z00x|v6<fn DRAW fl<<td INPUT >nl<l TO DEF FN [K]fl<<td INPUT [K]8p``p8[K]©30`` LPRINT LIST >$n~ NEW DEF FN |v6<`` LPRINT >$n~ NEW DEF FN vv$|dn INPUT [K]>|[K][K]~Z00xfl<<td INPUT |v6<`` LPRINT &f INPUT TO | SAVE n[[COS ACS ACS BRIGHT [K]0[K]ff DEF FN TO |00x<v NEW NEW INPUT GO TO x[K]6n<~Z00x<v NEW NEW INPUT GO TO x[K]<v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x|v6<fn DRAW ~v0<`n RETURN |v6<`` LPRINT "kk[K] VERIFY ~~v0<`n RETURN vv$|dn INPUT vv$|dn INPUT <v NEW NEW INPUT GO TO x[K]vv$|dn INPUT <v NEW NEW INPUT GO TO x|v6<fn DRAW 11s{em IF fl<<td INPUT [K]6n<>[ FLASH ACS |0x>[ FLASH ACS |0x~v0<`n RETURN vv,x|n NEW ~Z00x[K]8[K]&f INPUT TO | SAVE |v6<fn DRAW fl<<td INPUT RETURN AND fl<<td INPUT ~Z00x~v0<`n RETURN [K]vv,x|n NEW |v6<`` LPRINT &f INPUT TO | SAVE ~Z00x&f INPUT TO | SAVE n[[COS ACS ACS BRIGHT [K]vv,x|n NEW >$n~ NEW DEF FN |v6<`` LPRINT ~Z00xfl<<td INPUT vv$|dn INPUT &f INPUT TO | SAVE [K]000[K][K]a&f INPUT TO | SAVE RETURN AND >$n~ NEW DEF FN ff DEF FN TO |<td INPUT [K][K]000[K]000[K]`[K]0[K]0@[K]Dn[K]D[K]n[K]DE[K]F[K]D STEP [C];; LLIST b RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST # OUT LLIST CLOSE #!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]a6n<~Z00x<v NEW NEW INPUT GO TO x[K]|v6<fn DRAW <v[K] LPRINT GO TO x$~v0<`n RETURN [K][K]y>$n~ NEW DEF FN [K]cw>>jb BORDER <v NEW NEW INPUT GO TO x+kk< VERIFY VERIFY CLOSE #~v0<`n RETURN ~Z00x[K]0[K]~v0<`n RETURN "kk[K] VERIFY ©$~v0<`n RETURN [K]fl<<td INPUT [K]vv$|dn INPUT ~v0<`n RETURN [K]|v6<fn DRAW <v[K] LPRINT GO TO x$~v0<`n RETURN [K][K]000[K][K]Y~~&f GO TO DEF FN OVER >$n~ NEW DEF FN |v6<`` LPRINT <v NEW NEW INPUT GO TO x>&fD DEF FN DEF FN 00p|fn DRAW [K]~r0<fn DRAW ~v0<`n RETURN <v[K] LPRINT GO TO x<v[K] LPRINT GO TO xcw>>jb BORDER ~v0<`n RETURN |v6<`` LPRINT ~Z00xfl<<td INPUT >nl<l TO DEF FN 0[K][K]R8p``p8[K] RETURN AND >&fD DEF FN DEF FN >nl<l TO DEF FN [K]<~N8r~[K]>|[K]<v NEW NEW INPUT GO TO xfl<<td INPUT [K]fl<<td INPUT [K]<nFn<[K]>|[K]~v0<`n RETURN fl<<td INPUT [K]ff DEF FN TO |n~ NEW DEF FN <v[K] LPRINT GO TO x~Z00x~v0<`n RETURN fl<<td INPUT [K]8[K][K]▝|v6<`` LPRINT <v NEW NEW INPUT GO TO x~v0<`` LIST >$n~ NEW DEF FN ff NEW INPUT GO TO x0<v NEW NEW INPUT GO TO x[K] CLOSE #>|[K]>|[K]>|[K]>|[K]>|[K]>|[K]s|v6<fn DRAW [K]8x00x[K]>|[K]<v NEW NEW INPUT GO TO xfl<<td INPUT [K]ff DEF FN TO |n~ NEW DEF FN <v[K] LPRINT GO TO x~Z00xfl<<td INPUT [K]0[K]vv$|dn INPUT >$n~ NEW DEF FN +kk< VERIFY VERIFY CLOSE #>$n~ NEW DEF FN |v6<fn DRAW [K]ff TO [K]<v LPRINT | TO [K]td INPUT [K]ff TO [K]~Z00xff TO [K][K]><nF AND INPUT |>$n~ NEW DEF FN ©30`` LPRINT LIST |v6<`` LPRINT &f INPUT TO | SAVE +kk< VERIFY VERIFY CLOSE #>$n~ NEW DEF FN ~v0<`n RETURN ~Z00x~v0<`n RETURN [K]<~N8r~[K]ff DEF FN TO |n~ NEW DEF FN <v[K] LPRINT GO TO x~Z00x00p|fn DRAW [K][K]000[K][K]qB[J]ASN LEN ASN [J]B[K]8x00x<v NEW ~v NEW ~f`|<v@< AND OVER |~Z00x~v0<`n RETURN >$n~ NEW DEF FN xp00`f RETURN <v[K] LPRINT GO TO x<v NEW NEW INPUT GO TO x|v6<`` LPRINT vv<80x[K][K][K][K][K][K][K][K][K]@[K]G@[K]@[K]@[Q][K]G[K]G FN a2f0n▟x POKE ▘ DEF FN ▛ REM [I]PI>SIN ~STR$ [N]>=SQR FORMAT STR$ BRIGHT VAL$ CONTINUE NEXT ! RETURN RETURN 6 CLEAR GO SUB VAL >NOT 2 CLEAR CLEAR !AT INPUT " RETURN CLEAR > RETURN GO SUB G GO SUB ^ CLS STEP FN a>> CLS v> CLS STEP / INPUT LINE INPUT > CLEAR STEP / INPUT LINE G INPUT >IN STEP / INPUT LINE G INPUT >© STEP / INPUT LINE G INPUT !RND GO SUB 6:[T] GO SUB RETURN ! FLASH GO SUB 6 RETURN <> LPRINT GO SUB x2 OVER GO SUB ATN ACS STEP © INPUT >2 OVER GO SUB >>=2 LPRINT GO SUB ! FLASH GO SUB 6[S]:RND GO SUB ATN CHR$ INKEY$ GO SUB :[T] GO SUB ATN LINE INKEY$ GO SUB STEP 7 INPUT =2[T] GO SUB &o)c GO SUB ^#V STEP 4 INPUT !RND GO SUB 6NOT INKEY$ GO SUB FLASH RETURN NEW <>v MERGE <> CLS v!XX COPY 6 GO SUB VAL <>> RETURN STEP / INPUT GO SUB VNOT PEEK INPUT :RND GO SUB ATN CHR$ INKEY$ GO SUB :[T] GO SUB RETURN LINE INKEY$ GO SUB STEP 7 INPUT <2[T] GO SUB &o)c GO SUB ^#V STEP 4 INPUT !RND GO SUB 6NOT INKEY$ GO SUB >@!@Xv CLEAR CLS RUN vv<<!@X CLS RUN = RETURN F>= MERGE NEXT PRINT RESTORE MERGE OR INVERSE RESTORE STEP BIN INPUT INVERSE LLIST STR$ MOVE LLIST LET CLS <>! IF PAUSE NOT <= INPUT NOT LIST NEXT ~26 LOAD "y LOAD # STEP s LOAD <28 LOAD GO SUB S. LOAD STEP s LOAD GO SUB S0 LOAD MERGE STEP s LOAD GO SUB S2 LOAD ! STEP x LOAD FOR "4 LOAD !? LOAD "9 LOAD !@ LOAD A LOAD ,p GO SUB VAL LLIST !CODE STEP m LOAD =2I LOAD 2S LOAD 2] LOAD >27 LOAD #"G LOAD "Q LOAD "[ LOAD STEP INVERSE PAUSE CLS <> PRINT - PRINT ERASE PRINT NEXT ? LOAD _ PLOT COPY PRINT COPY . PRINT COPY . PRINT COPY . PRINT COPY PEEK >=NOT m LOAD ^#V# FOR IF PAUSE FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ [J] LOAD B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST W LET NEW o INVERSE THEN n>= THEN STOP <>:^ LOAD O!8 LOAD PEEK PAPER NOT LOAD CODE O<2^ LOAD i&) GO SUB [. LOAD N#~2 PAUSE y*2 LOAD STEP m LOAD # STEP s LOAD GO SUB S9 LOAD STEP s LOAD GO SUB S; LOAD STEP s LOAD GO SUB S= LOAD <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>:7 LOAD =27 LOAD CHR$ L LET :6 LOAD 27 LOAD INVERSE !B LOAD STEP RUN LOAD PAUSE - LIST *9 LOAD ~< TO ACS LOAD *9 LOAD STEP V LIST "9 LOAD INVERSE !L LOAD STEP RUN LOAD PAUSE @ LIST *; LOAD STEP V LIST "; LOAD INVERSE !V LOAD STEP RUN LOAD PAUSE L LET *= LOAD STEP V LIST "= LOAD NOT L LET ~ RETURN ` PAPER ▗ LIST RETURN p PAPER [B] LIST RETURN PAPER SIN LIST LINE POINT LIST RETURN ▝ LINE LIST RETURN ▘ LINE CODE LIST RETURN PAPER DEF FN LIST VERIFY [R] INVERSE w INVERSE w COPY #NOT V LIST INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c*4 LOAD STEP m LOAD # INVERSE u INVERSE t LLIST #NOT V LIST # INVERSE 6 COPY <>CODE VERIFY p RESTORE !*0 LOAD STEP m LOAD # INVERSE u INVERSE t INVERSE 6 RETURN LLIST #NOT V LIST VERIFY 2l LOAD #~#2j LOAD INVERSE 6 RETURN RESTORE CODE !*0 LOAD STEP m LOAD # INVERSE u INVERSE t LLIST NOT V LIST INVERSE ~<>=== INVERSE w PRINT INVERSE ~O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF SCREEN$ LIST O< NEW INVERSE w#~< INVERSE w<>yATN USR |2e LOAD <> INVERSE ~<>= INVERSE ~ RETURN ATN >= RETURN LINE E LET INVERSE 6 RETURN NOT I LET CODE 2l LOAD THEN NEW <> INVERSE !B LOAD STEP NEXT LIST y2 IF LET INVERSE *E LOAD STEP ~ LOAD yVAL 2f LOAD INVERSE !B LOAD INVERSE ~< LINE x LET STEP ' LET STEP LIST LET "_ LOAD !g LOAD w STEP / LET INVERSE !L LOAD STEP NEXT LIST INVERSE ~< LINE TAB LET y2 IF LET INVERSE *O LOAD STEP ~ LOAD :f LOAD LEN VAL 2f LOAD STEP ' LET INVERSE !L LOAD STEP LIST LET "a LOAD !h LOAD w STEP / LET INVERSE !V LOAD STEP NEXT LIST INVERSE ~< LINE NEW LET y2 IF LET INVERSE *Y LOAD STEP ~ LOAD :f LOAD THEN THEN VAL LEN 2f LOAD STEP ' LET INVERSE !V LOAD STEP LIST LET "c LOAD !i LOAD w STEP / LET NOT INVERSE PAUSE } PRINT MERGE INVERSE n INVERSE f INVERSE ~▚ AND ▜_! PAUSE ^#V 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][G]▙~wpkd^YTOKGB?;852/,*'%#!!l LOAD CODE ACS > VERIFY +++yIN GO SUB ATTR = PAUSE GO SUB PAUSE <>3 CIRCLE SONG BY ST COMPILEj/?O[Q]n[Q]##"[Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q]$$$ POKE [K]SIN THEN GO TO >▗[D]INKEY$ FLASH ' COPY LPRINT COPY [R]bqppbqcapbqapcqapbqpbqbqapcqapcqbbqbqbqcapbqapbqbq[S]c[R]b[S]c COPY FN ip&[U]&$FN &[U]+-FN &[U])$PI-INKEY$+[T]+ COPY AT ip-[U]+AT -[S])+AT -[U]+INKEY$&[R])(RND&[T]$ COPY [S]▝[T]gs&&$$[U]%[T]&&))[U]'[T]&&$$[U]%[T]&&+-[S]- COPY [R]g©--[S]-[R]+[S]+[R]-[S]-[R]--++[S]+[R]-[S]-[R]-[S]+[R]+[S]-[R]-[S]-[R]++++-[S]-[R]-[S]+[R]+[S]-[R]-[S]-[R]++-+-[S]-[R]-+--[S]-[R])))++)+ COPY [S]i©-[R]-[S]-[R]+[S]+--[R]+[S]+[R]+[S]))[R]0[S]0[R]0[S]7757[R]9[S]9[R]9[S]9[R]9[S]9[R]0[S]00[R]00-[S]-[R]-[S]-[U]-[R]++[S]-+ COPY FN ip)+VAL -FN -+VAL$ &[S]( COPY FN ip-+-[U])+FN -+PI&[U])RND( COPY [R]gs)[S])[R])[S]+[R])[T]([S]()([T]&[R]&[S]([R]&POINT $[R])[S])[R])[S]+[R])[T]-[S]+)+ATTR -[S]-[R]-[S]- COPY [R]gu-[S]-[R]-[S]-[R]-[S]+[R]+[S]++,[R]-[S]-[R]-[S]-[R]-[S]0[R]0[S]02[R]22-[S]-[R]-[S]-[R]-[S]+[R]+[S]++,[R]-[S]-[R]-[S]-[R]-[U]0[S]4[R]4[S]4 COPY [R]g©&&2&&2&$0$$0$0%1&&2&&2&)5))5+7++&&2&&2&$0$$0$0%1&&2&&2&[U]+[S]-[R]-[S]- COPY NEXT STEP [C];; LLIST o RESTORE INK MOVE INK !@ RESTORE MERGE RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST BRIGHT LLIST MOVE CAT LLIST # <=!X INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K] COPY DRAW LIST USR [K]4[K]@[K]@[K][K] COPY [N] DEF FN ? DRAW [K] COPY RUN COPY [K][K][U]AHSCREEN$ >= PLOT PAUSE {[F] ERASE CLS RETURN CLEAR IF LOAD FLASH t RUN w© NEXT { LOAD BEEP [K] COPY >!?[K][K] COPY DRAW SAVE LPRINT USR [K]2@[K][K]@ COPY COPY CLEAR SCREEN$ T DRAW [K] COPY [K] @[K]A▜AT :t SAVE DATA RANDOMIZE >= POKE NEW REM SQR [L] COPY :r[E][I]: FOR BEEP VERIFY COPY © CLEAR CLS [K] COPY LPRINT ?>cI▖<>c>▖ COPY [K][K] COPY [K]3 @ [K][K] COPY [K] RETURN DRAW CLEAR [K] COPY LLIST OVER CODE RETURN LIST LPRINT SAVE DRAW [K] COPY [K]@[K][K] @$[Q][Q]0 LIST INKEY$udABS [T]3i▛ATN PEEK } COPY © COPY COPY [K]USR @~[D]▞▞[D]?l INK COPY [K][K] COPY ©?[K] CAT LOAD <= FOR DATA POKE IF CLS RANDOMIZE CLEAR DRAW [K] CLEAR SAVE RANDOMIZE SAVE NEXT PAUSE PRINT NEW READ READ LPRINT USR NOT DEF FN GO SUB STOP BORDER PLOT PRINT NEXT LET LIST CLS IF CLS RANDOMIZE CLEAR CLEAR [K] RETURN [K] COPY RETURN DRAW USR ▗ LOAD BORDER [K] COPY RETURN LPRINT ▜©INT MERGE {CHR$ [K] COPY [K][K]$* OPEN #[C]CODE z DRAW PAUSE SAVE CLEAR CIRCLE RETURN COPY COPY [K]| AND [D][C]<= COPY [A]' COPY [K][K] COPY RETURN DRAW [K] SAVE LIST LPRINT USR [K][K] COPY ©[K]?[P]'▜▝[S]▖ OR ▘1/ATTR U▖▗ [A]@[Q]H▗@[A]JATTR CLOSE # RESTORE rotn}+O<P5RNDFN CIRCLE DIM INPUT NEXT >q BORDER © COPY COPY © LIST [K] COPY [K]! STOP DATA L!-JINT FORMAT SAVE ASN 8<> PAUSE R<=R PLOT nCODE < DEF FN INVERSE O COPY [K]8(9ATTR m[D]8[D]mATTR )(;//?IN [K] COPY RETURN DRAW SAVE [K]%[K] COPY ©[K]?▚▚L[J]1bCBcb3[K][K]$[G]*^ CLEAR px. READ ~[G]: RETURN [I]u REM [F]COS PIPEEK VAL [K][K] COPY [K]@@ USR [Q]((@ GO TO @@▝D DATA ,[U]&@QAT STEP ATN PLOT } CLEAR COPY [K]USR @ LLIST ! BORDER [P]©[K] COPY DRAW NEXT LOAD [K] COPY RETURN LPRINT USR [K] [K] COPY RETURN DRAW CLEAR CLEAR RANDOMIZE NEXT PLOT RESTORE LINE [F]INT 4HTAN REM LEN h MERGE SCREEN$ LET k MERGE [T] VERIFY j CLOSE # PRINT i[j OPEN #INKEY$ RESTORE K▝0,V+)[G][O][M][L] BEEP LINE M DEF FN TO [K][K][M]VAL (5@[K]?[K] COPY [K][K][K][K]@TAN @ @ t.6 GO SUB } RUN o=© COPY COPY ;{wn~~ CLEAR RETURN [K] COPY OUT ? COPY CLS RETURN RETURN DRAW LIST [K][K] COPY RETURN DRAW RANDOMIZE CLS PAUSE RESTORE REM STEP [K][K][B] PbBIN A▘(ATTR RASN fTAB J TO ▝▚8t RANDOMIZE PFN DFN B f▖ PLOT [C]L[S]XVAL$ U[P]ATTR VAL$ E[S][K] DRAW CLS IF CLS CLS CLEAR [K] [K]@` [Q][K]!` LIST ▗$@ CONTINUE h[U]B[D]NOT RUN COPY LN x SAVE LIST LPRINT [Q] LPRINT LPRINT USR USR STR$ READ © COPY OUT BORDER RANDOMIZE [K] COPY [K][K] COPY RETURN DRAW CLEAR RANDOMIZE RANDOMIZE NEXT PAUSE DATA NEW DATA LINE TO [K][K]5jBIN FN D[R]@H[K]CHR$ ▜(`<=[O]x[Q]@▖▜'/O READ STR$ aC CAT OCODE SAVE RANDOMIZE [I]h GO TO ~SQR CLEAR LPRINT [K][K][K]@[A] LEN [A]▘[I]NOT NOT NEXT IN _?[K] COPY SAVE RUN INPUT LOAD FOR [K] COPY COPY RETURN DRAW RANDOMIZE PAUSE RESTORE REM TO INK [C](Qa MERGE ATTR CPIO▜//O?___ OUT _[K]/[P][K] CONTINUE ▗@▝'©[K] COPY [K][K] COPY RETURN DRAW SAVE LIST LIST LPRINT LPRINT BORDER >= OR ▟[D]oSGN pUSR [K]▖▗G_> LOAD <=[K][K] COPY COPY RETURN RETURN COPY COPY RETURN DRAW SAVE LIST LPRINT [K]USR [K]USR LPRINT LLIST LPRINT LET [K] LIST RANDOMIZE IF CLEAR RETURN [K] COPY RETURN RETURN CLEAR CLS BORDER [O]y NEXT © COPY CLS [K] COPY DRAW RANDOMIZE STOP 7<=_[K]?©©[K] COPY [K]5[K][K] COPY RETURN RETURN DRAW DRAW CLEAR RETURN IF POKE RESTORE NOT AND TO ▞[L][H]COS gjWn'> CAT IN VERIFY {<=▛▘▗O~ RUN REM ]SCREEN$ STR$ [S]KPI OUT IF [L] PAPER FLASH LINE { RETURN COPY RETURN 7676767676767676= IF POKE TAN CONTINUE CLOSE #▖)(0P0P0PVAL PVAL `[Q]`USR @USR STR$ INK PEEK Gw RUN POKE ATTR ATN LOAD [L] CLS [M]{ATN LOAD [K] COPY ? COPY ©[K],STR$ LET [M]o NEXT <3 STOP <=▙6.4.=n_ DEF FN INVERSE BRIGHT ▖/▞V<=ATTR _VAL$ x PAUSE OR [H]/PEEK }j}k BEEP LOAD STEP IN ]ACS 5nl DEF FN [E][K]▚▜▚CBCB#"#/5on INVERSE ~ABS RUN [ BORDER [N]e CLEAR PRINT SQR GIN ©[K] COPY RETURN [K]>/3[K][K]?© OPEN #TAB Y BORDER RETURN = FLASH COPY INPUT /INT uVAL d`USR [R]▘L8 LLIST SIN I !CSCREEN$ GLK[P][M]EXP b▛_EXP RETURN NEXT PRINT rTAN q RANDOMIZE FOR PAPER TAB PLOT TAB OR REM NEW r NEW Z PRINT {=[-A@[Q]@[Q]@[Q] FORMAT FN Ph[A]*[F]▟GNOT [B]"#▝A@ @[R] OPEN #PI_ RUN k<= FOR BEEP ? COPY ©[K] COPY RETURN SAVE [K]: LOAD CLS v MERGE REM /[N] DATA 0|O=SCREEN$ [A]STR$ ▘NOT USR c LET LIST x INPUT FOR FOR INKEY$j CIRCLE CIRCLE B(@@▝ IF U: RETURN j AND VAL$ AND OUT -y NEW ▛/_{ INPUT FLASH uATN CAT ? PRINT <=PISPIVTAB FLASH 5 PLOT {SQR FLASH SCREEN$ FLASH REM [kUmASN TAB ASN SCREEN$ ACS PAPER W PAPER VERIFY INPUT f?=>==><==>>©[K] COPY CLS COPY OUT )Pb▗P▞[[F]*-RINKEY$[L]7U LET RANDOMIZE SAVE DRAW COPY IF POKE GO TO PLOT LET DRAW [K] COPY LIST GO TO FORMAT 6[K]USR LIST IN ABS J INVERSE OUT DIM s RUN [M]<.UJQL8T CONTINUE LPRINT STR$ f DRAW RANDOMIZE LET REM ERASE `P'C[C]'/Z5 RETURN BEEP SGN d[K][U][S][C][B]D[J] AND IF CLEAR [P]lL[E][I] CONTINUE RANDOMIZE EXP <> DIM POINT YPOINT YPOINT ERASE SIN PAUSE SIN PAUSE ERASE R[K] ERASE [D][K]SS[D]▞I▗T POKE Z[G][K][K]ASN iq(VAL (<AT VERIFY jVSCREEN$ [B] READ MOVE >= CLOSE # LPRINT FORMAT USR CLOSE # INPUT POKE CONTINUE LPRINT REM POKE EXP RANDOMIZE RETURN [F]A%[O]v*BIN EXP LET LET CLEAR COPY LOAD BORDER PRINT G#sNOT OR STR$ #C7<=[P]©[K]USR LPRINT LIST BRIGHT POKE AT xl8<[E][I][U]dFN 8 aa READ CODE ACS ATTR IN uj PRINT FOR v DATA BRIGHT ▖XVAL p `[Q] LIST LN INK COPY /qbk?`BAT q DEF FN CLEAR RETURN SQR RANDOMIZE GO SUB U}ulVjvbRbr STOP CHR$ [T]NOT RND OR RND OR OR [K][K] OR RESTORE jjz:4%[J][C]J$▚ OR B#`1▝ STOP [B]j$ INKEY$[Q]LN CLOSE # THEN RESTORE RETURN ▜ READ COPY ©?[K] COPY [K][K][K][K][K][K] LPRINT [Q]o LIST [P] IF W IF [N]@3.Xp
