| Is a part of release: | Denizen |
| File size: | 49408 |
| md5: | ffab2feea9abf0e1984d1b2afe9ee281 |
68 INK USR . * PROTECTION BY HACKER ALEX * NEXT CODE GO SUB O GO SUB ^!@@ COPY OPEN # RETURN GO SUB VAL INK AT ] FOR 1 COPY W GO SUB _VAL$ AT TAB SCREEN$ ATTR FN POINT STEP R;; READ AT TAB 9AT TAB LLIST w RESTORE #xLEN ▜T▖<WIN STOP LINE FN LIST L POKE oATN U{ THEN #`VWu▚K POKE !INT [R] TO PII<M NEW _LN LOAD COS [H] OUT B;Z+;hvCHR$ w[E]HrC CIRCLE CLOSE # CIRCLE x=Z INK y[H] DRAW REM COPY oq^iMe~i}VAL BRIGHT TO I[N]Mv%CHR$ i|V18UGh:^?V LPRINT ▙ STOP DRAW [U] OUT PRINT p/r FORMAT TJ/8x$jmb7hA7B#DH~[Q]D9 CLOSE #C COPY ▚ IF K▜ VERIFY REM wk LET ERASE PLOT [F] OPEN #SCREEN$ ; CIRCLE SIN #ABS K DRAW [G] MERGE COPY 3V>= LIST !Vd OUT LEN SIN < PAPER X▟ INK | AND L CLOSE #LEN THEN VERIFY COPY [B]INT / OR D PAUSE / CIRCLE LEN h FLASH EXP $[C]ATN [R], NEW BIN CAT TAB A LOAD Pz<=1NOT 9[P]▜LEN _ FLASH PAUSE MERGE RESTORE MERGE [E] OVER O<>/ PAUSE IF ▞3 BORDER [S]{k CLOSE # PAPER O CLEAR CAT d2 FLASH 9LEN OUT @2 COPY q FOR /z LOAD })<[G]= COPY 2 FOR Q<=g FLASH [P]▜LN ^<> NEXT ~ LIST BORDER T21IN PIy;COS 9 COPY F6 BORDER q CAT +STR$ JG<=4 NEXT COPY 46 BORDER Y INK <"CODE e BORDER <" NEXT qU_ DATA 'LEN O REM [C] INK [CODE STR$ V3 COPY <v BORDER LOAD 8IN Q GO SUB PI4"COS 1 COPY T6 BORDER y RANDOMIZE LN ^<=▜F LIST ^ PAPER COS H SAVE ~▚<=r IF INKEY$ LOAD RNDRwR INPUT +SIN AND COS L] CIRCLE THEN REM EXP GO TO LOAD PAPER ▜ COPY T] STEP ( CLEAR RANDOMIZE FLASH INKEY$[M]TAN VAL$ NOT TO [M]& MERGE SAVE r DIM GO TO INK THEN [P]AT [M]5-[E]V,NOT GO TO ▝EXP READ uAT cC TO Ii5 PLOT APEEK NEXT ) LOAD BEEP TO [N] VERIFY OPEN # SAVE [R][K][P] DATA MERGE VAL$ ATTR LPRINT ▞[S]PI DRAW ▟▚▖ LET CAT TAN e~;9r7l}v3X9y1]Q!qE9Y!-Qa15yAqY[I]AT LIST [Q] FORMAT POKE c/_O;GgS/g/c/?;'g?oGcoO{go OUT ▛<=PICODE [T]CODE ©SCREEN$ DENPEEK g NEW ▚[O]smSIN IF ▗ LINE [C] RANDOMIZE [D]D~%SIN ▗SGN _OSIN POINT [I]x^[C]``[U]# CLOSE #ASN TAB GO SUB Z GO TO ASN ▙w[M] PAPER ~ RETURN U[G] BRIGHT SIN CONTINUE CLS P▖ DIM 7ws[I]NOT T DEF FN PRINT j;0 VERIFY d1Z RETURN [R] CLEAR MERGE s!"#<>J) LET CLS J PAUSE * STOP j FOR "[K]v REM FORMAT qsusqs}sq CIRCLE T INPUT b- STEP G[B]"[A]QSTAB LEN © STEP ▜~ CAT [B]SGN ▗VAL [ LLIST [B] LINE INK ATN ASN LOAD ] PRINT d DEF FN ]TAB _[A][D]o LOAD FN ▝© DIM NqCOS prD#f©|sf PLOT b3f INPUT 6c?[C]_?[C]3g?TVAL$ 'stACS Ct/m[O]! PAPER H[M] STEP PRINT !; SAVE #0 STEP - BEEP COPY #" FOR !▜▘C DATA [M]E DIM [O]C TO [P]A OR [J]C AND [P]Q/[R]+KRe`[B]l[B]h[B]l[B]PLEN LLEN HLEN LLEN @LEN LLEN HLEN LLEN |[B]VAL gC FORMAT NEXT RESTORE R DATA CLEAR STOP DEF FN QzP GO TO n MOVE ▟p|q`▘ GO TO ERASE [L] LOAD CONTINUE GO TO LPRINT GO TO CONTINUE GO TO FORMAT 1 TO 1>=1 TO 1USR 1 TO 1>=1 TO 1 FORMAT GO TO CONTINUE GO TO LPRINT GO TO CONTINUE GO TO [A]q▘q STOP ▘PEEK #©JHVAL V NEW sx▗LEN POKE [A][P] READ LEN STOP IN FOR [S][H][S][O]5 PAUSE egLN COS ACS INT SAVE O[I]K INPUT ] LOAD SIN SCREEN$ x[H] INVERSE INPUT V[P]/vbASN r4V BORDER P[I] REM [G][F]5 GO SUB I;/l PRINT [S]^:<o RUN JN BEEP OPEN #▝/PM LIST [F]E ERASE # LOAD ERASE 5 ERASE RUN l=T[G]0}i INVERSE [D]Lq5mP DEF FN c▙Pi OPEN #TAN SIN <>TAN LhXD DATA [J]SQR ATN ▝▖SGN [D]ISCREEN$ LN [D][T][S]SGN LFN uABS EXP [S]M[E]▖VAL$ ▟[C]SIN [N][F][F][J][L]LZn[D][C]s▙s}ASN RUN L CLEAR VAL LOAD l. STOP [F] GO SUB LPRINT AT LOAD LOAD USR 3VAL RUN KVAL OECOS MERGE 3TAN ? RUN -][D][G] CLEAR gsms CLEAR OPEN # LINE i[D]|[D] NEXT KCOS ATN LET [D]SCREEN$ s CLEAR ma[E][G]FN GO TO GO TO [K]+JrTxNXloACS STEP 2dACS sSQR STEP 6 STEP 2[O]+3 BRIGHT x[G]6i[E][C]V[F][M]b RUN RUN ATN qt PLOT K5 PRINT COS [E] CLEAR WYSCREEN$ )kU[G]"ASN SIN ATTR GO SUB THEN I2=$-TAN KHVTkwu1[G]+;F[F] MOVE MERGE o[F] PRINT W5 IF uGI5COS ~ PRINT AT [H]/[B][D][G] LLIST OUT POINT REM >= STEP CLOSE # LINE ▟SGN 77uMATN USR INT ASN tACS [S][M] AND AND STOP CHR$ N[L]POINT RESTORE TAB [C] FORMAT +w7 RUN [F]POINT Vujwv< PAUSE ATN ur[H]?[F]FN MERGE INK W[S]LEN CPw@EASN (ATN ACS cSIN VXnhz[F] FOR [R] MERGE [H]+%vk< PLOT PRINT 7 PRINT ~6w PRINT POKE iD FOR DIM FOR P0 VERIFY ACS [G] GO SUB R CONTINUE [G] MERGE SCREEN$ 6P ERASE srVAL$ tFN ▟[G]COS DEF FN TAN LINE TAN PIASN PAUSE lB@R| PAUSE IN [E][D][E]2;{FN {INT CLS CLS }▝▜p PAPER COPY c]c#` INK @ LIST g[K]" INK Qr6 CIRCLE ABS A PRINT RNDE INVERSE = FLASH DATA ;2;/[S] RESTORE INK CLEAR ws[P]i PRINT OUT ga[d[L][R] CLS CLS SQR [F]=y RANDOMIZE {RND[M]Z LPRINT x[L]VAL RND[F] CONTINUE [L]GSQR [U];9 OR NOT OR AND OPEN #U.FSQR b[L]d>= NEW r[F] READ INK @[N][F]PIPIgIN zLN BIN [J]{q0SGN {-SQR CLS DE<>6[K]=/ MOVE [J]rlG[P]lj INVERSE %j9=kIN AND BIN PRINT DATA LET FOR IN DATA RANDOMIZE ;7[K]]LN [K]/ INK b[K]/ INVERSE CY[C]d▚▗▜b CONTINUE INKEY$$6SGN p COPY z% INPUT X CONTINUE INPUT INPUT LLIST [I][T][F][A]TAB S[B]w:[C]WqLN ; FLASH PEEK xINT ;INKEY$ PRINT XhmlbojFN [H] SAVE ZYyn AND >IN {w_#Iv {LN [L]jjg INK INK [F] STOP INK PRINT [M] READ %; RANDOMIZE CLS }ABS RANDOMIZE ;5NOT ++PEEK CHR$ GO TO 9INKEY$ NEW j[J][K][K] RESTORE BRIGHT DATA [K]X DRAW [M]NmATN LN { DRAW [P]Y FLASH OR READ [J]f[O]"[E]vLN LN INKEY$[M][L][O]V[J]&▜CHR$ POINT ME;r:|C:ATN ▞ PAPER FOR STOP INVERSE INK _&)SCREEN$ k RANDOMIZE ©SQR {k BORDER [I]% OPEN #[R][I]%{[H]b FLASH K OUT INK RESTORE [L]' AND NEXT EXP LN ))O▚w9ABS ▚[L] CLS ▖2*[M][U]ACS [L]IN INKEY$ TO 9 POKE EXP [Q]ATTR i[H]gn RETURN USR AND D▝[M]` RANDOMIZE CIRCLE [U] GO TO VAL$ [C][A] DATA NEW STOP [[I]ASN 89PIaPILN LN 1[WVVAL STEP LIST GO SUB FOR PAPER DATA [O] OUT XyVAL ▝RNDCOS q▛ RESTORE P50=q9 SAVE Hn}INT y5 LPRINT hY"`[I]aE[P]`e DRAW 9@ CLEAR 1SGN ACS Ddf@SQR DRAW [K]g+[E]k[L]USR a FLASH g FLASH SGN {;{[Q]{[ LIST ;[E]{ CLS ▙[L] NEW [u[K]t? DATA dpr[I]PLN BEEP ASN IN EXP ATTR <CHR$ EXP [I]$ STOP [J]▛ LLIST [J]▛ LLIST [J]SQR LLIST [J]FN DATA y[ DRAW y[ POKE yK DRAW y8 DATA `+[M]g+[E]g[[M]gH[U]G9{SGN F9{TAN F9kSGN F9X[U]fK[M]eK[E]e{[M]eh DATA y DRAW y POKE ym SAVE BEEP <RND{STR$ { OR STR$ NOT J OR ▙G OR [G]▖ PAUSE >w NEW LINE ▗f STOP [S][Q]ACS AT LINE ▗ DEF FN BORDER STOP rRSTR$ IF [U] RETURN [U] PAUSE BIN RETURN BIN IF D NEW [Q]"[S]&slf LINE CODE !wms^wZ SAVE PAUSE @= RESTORE LN AND Up&K_i=! STOP USR INPUT iRBIN *', STOP 5 CLOSE # CONTINUE Vp DEF FN USR STOP p& CLEAR DATA INT Aw[E]SCREEN$ D©IRG RESTORE YcI PAUSE LEXP LIST u▗CODE oPEEK ▛[B]# ERASE TAN CPIPEEK RNDVAL RND▚$jZPIZSQR z▜zz▜z▛z▜zz▜z{[K]g[K]c[K]g[K]k[K]g[K]cASN g LOAD D IF SAVE DRAW IF DRAW IF FOR CLS <= IF ▜INT SAVE IF CLOSE #*CODE %&-+%-%PI#[E]IN RND+5[E]$ IF IF FLASH OUT CIRCLE [K][N] LINE [I][K]USR Ujet DATA ul: POKE [F][E]▛RND{zCODE [C]SCREEN$ LINE ACS POINT ,▛fSQR TINKEY$VAL$ ]P$▗▗) DATA POINT [U/q{x{q>▘ INVERSE [O] TO n LET LABS < LINE [H]ea[O][D]<=IN * MOVE C. OPEN #F▝STR$ ]14[R]3 OUT ,[Q] NEXT Z#x▝NOT RETURN %< READ RETURN REM 3. OPEN #vc BORDER '[O]Ym& RESTORE cu[O]jSp[D][G]z|NOT ~▘y[B][E][E]`aCOS AT NEXT SIN "NINT !VLTAN L INVERSE [E]AT RNDTAB e[T]CODE SCREEN$ [T]CODE [D]! STOP @C LLIST OVER kM? LPRINT BE&q DIM DRAW >_▚PEEK t-▞>%_ TO IN OVER $3V[Q]%e3[J]#(s6[S]9[Q] CLS JC. BRIGHT RETURN ▝dpw BORDER OVER [K]3` LPRINT N[T]fr# LLIST [D]CHR$ !z FORMAT TAB LEN [F] LET FORMAT ASN FORMAT LEN FORMAT ASN FORMAT USR [J]!▚[B]OSCREEN$ RND LET xVAL$ ▘SCREEN$ [S][F]▘ PAUSE VAL$ [A]©©^[N]c READ LPRINT [L]n[B]c BORDER fF!nn▝▜:;A THEN . INK #PI&`a.Q0Q4 OUT LEN GO TO READ ABS READ CODE C▜ LPRINT ]s LPRINT HQjss CLS #[T]cLEN ▘[D]c[D]?[T];[T]T[B]SCREEN$ COS CCOS 4 ' MOVE VAL LEN VAL$ COS _g[D]1 LLIST ▘[D]cc[D]ACS ns▜c BORDER Qns▜c SAVE [P]1c LOAD 1C OUT 2-C<=.sATTR CNOT *sLN C OUT 1 LOAD [L]▜ READ 1rR0 LPRINT mcbPOINT LPRINT DATA c▜QnR,h▘f▗[Q]▘bVAL ▛ FORMAT [F]INT [K]INKEY$[J]'%[Q]@[O]TAB VAL @TAN #PISCREEN$ FORMAT [A]`ACS ▟`(▚ RETURN [E]`o!nge GO TO [J]c[E]a CAT e=NOT 'USR [Q]!! CIRCLE . INVERSE U.$+EXP READ 1 ERASE s DRAW DRAW INK vABS [R]RND[R]TAB [R]RND[R]SCREEN$ PLOT A PLOT E PLOT A PLOT M PLOT A PLOT E PLOT A PLOT } VERIFY a VERIFY e VERIFY a VERIFY m VERIFY a VERIFY e VERIFY a VERIFY } PLOT A PLOT E PLOT A PLOT M PLOT A PLOT E PLOT A PLOT ABS [R]RND[R]TAB [R]RND[R]ABS vSTR$ v OR vSTR$ v STEP vSTR$ v OR t_v REM V PLOT V PAUSE V CAT V GO SUB V LLIST V RESTORE V LLIST V CLEAR vSTR$ RETURN E FLASH ▘Ap=;9o STOP gk%[%srk% ERASE SGN CHR$ ▜[R] STOP POKE [N]AT CHR$ ▘U| RETURN BEEP R[M] NEW VAL ▗SGN INPUT %INKEY$SGN NEW DATA ATTR SGN RETURN [M]&uAT & DATA ▜LEN STOP hCHR$ [M] TO @unP DATA ▝m#mTAB DATA <=@GY▗uPI▗SGN C56p/PI]2-#a(t POKE OaravaOARNDoA3©A!/!{ OR ![h? ERASE !Wh#K LOAD STR$ COS ▖[P]STR$ [D]y▘[K]BIN LN COS LLIST [H]FN SQR LLIST PEEK VAL$ [D]$#▗CODE LLIST ▛▖STR$ [COS [C] RUN ▖ CLS [C] LIST ▜ THEN RUN [P]%~ RUN U[!p4s!;[!@ IF p▞p CLOSE #| CLOSE #p GO SUB t GO SUB ` GO SUB C3_3[a_a CLOSE #% CIRCLE % RETURN %/RND@|x|p|x|[C] RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE CLEAR RANDOMIZE CLEAR LET CLEAR RANDOMIZE CLEAR STR$ $ INVERSE $ INK $ INVERSE $ MOVE $ INVERSE $ INK $ INVERSE $STR$ CLEAR RANDOMIZE CLEAR LET CLEAR RANDOMIZE CLEAR > FLASH " FLASH & FLASH " FLASH . FLASH " FLASH E" TO >AT BAT F[F]BSQR NSQR BSQR FSQR BSQR ~[L] DATA cgkgcg{?G?C G?K?G?C?G?;_'_#_'_+_'_#_'_;IN <=IN NOT IN <=IN THEN IN <=IN NOT IN <=IN CLS [P] BORDER [P] READ [P] BORDER [P] FOR [P] BORDER [P] READ [P] BORDER [P] CLS IN <=IN NOT IN <=IN THEN IN <=IN NOT IN <=IN ;_& RANDOMIZE #@'@+@'i#_'_;?G?C?G? LINE ; AND ;CHR$ ; AND ; IF NEW STOP NEW REM NEW MERGE ▝-B#4c8{5E OR }<>LfP! REM }FN [A][U]U[U]Y[U]][U]Y[U]EGINT GPEEK GINT GACS GINT GPEEK GINT G▚g[K]i[O]iUBIN [I][R][T]_EXP [I]S[L] OVER PEEK LEN <>[L]BIN [J]STR$ ▖EXP 93▖ICHR$ RESTORE YVH[▘Sg/ INPUT ]Q CIRCLE 3 LPRINT A PAUSE D OUT <vA RANDOMIZE 4▗ LLIST INVERSE X:`4 DRAW tc▚~ RETURN e LLIST a OR a+tD MOVE >vG OUT X>&IN IN GO SUB 48)[E] CLEAR -PEEK zK▜INKEY$[R]z_USR [B]INKEY$[K]| DEF FN [L]COS SAVE POINT VAL$ >[U]▞b▝1©[U][J] MOVE ▞LN &bLN ▝'`[K] LLIST [I]`@p[U]` TO LEN [H][Q][P]POINT /H{[R]FT{KFX[U]@[J]QkQV INK < !:91=17 LPRINT PAUSE SIN &#''[G]3o)+EXP BORDER MERGE CAT MOVE CAT INVERSE )0[M]IN CAT [R]Y LET [J][Q] OVER LET WY353[J]=[K]$LN COS ; ERASE CLOSE # ERASE [ACS [A] IF MPEEK USR IF S▚ LPRINT [I][K]Zs[G]LEN PAPER X LET X IF X CONTINUE { PAPER LN LEN [INT STR$ ACS [S];STR$ PEEK [S];STR$ EA TO !]VAL Yq MERGE Q# INK .([I] <=PR!SQR CIRCLE 9A5LN A=▚@ RETURN [K]HY FLASH Ph3[K]@INT ;+)LN 3>7! CLEAR CLS LLIST PAUSE [VH[N] PAPER C3 ERASE [Z OUT Z[ZO INPUT [T]SQR < GO TO LPRINT GO SUB COS FN SQR / NEXT RETURN [ IF l<>LEN [F]ABS INVERSE 3 STEP ▛COS [T]COS COPY SQR [B]ABS NEXT OR SQR mSQR -;{ISYY/ FLASH CLS LET Y INK X INK @EXP |;EXP LN haCy STOP =INT EXP ;▟[I]EXP N7 INK [D]?<© RANDOMIZE CODE 9 CLS !EXP )4[B][ OUT CLS NEXT Ss']IN CIRCLE &E~7<>SIN @7<>INT @1>=r>=vm REM [G]H REM [H][C] REM [H][C] REM [H][C]INT [S]<=DNH>= DEF FN >= LINE STOP ?3u©g FORMAT [T]EXP ▛$POINT USR D:D:Cu'SGN KASN + LINE 7 LINE 3%3eE[A] COPY ▟[J]ePIABS [E]V COPY VAL 'f[P]'2 DIM SQR "?&"?_]G}US PRINT EXP U CIRCLE WSWWWNIN [S] NEXT ATN NEXT 5 CLS =ATN RANDOMIZE 2[F]ACS CONTINUE '[E][P]TAB LLIST [A]A=[P]U[D] INVERSE IN [L]SQR 6[P]TAN DIM ATN ;COS RND▜SQR TAN FLASH 2[Q]IEUPdCOS MERGE NEXT RUWEP REM <=TAN ATN 2[T]ABS [N]`[L]uABS 1[L]t???[[C][ABS B?+Q NEW RANDOMIZE ASN 5s=yATN e?▛LEN [F]w: MERGE INK COPY RANDOMIZE MERGE @QD BEEP T OPEN #_ PAPER YSQR N<2 POKE 6VAL SIN TAN 6 POKE TAB 2SQR ASN 5[C][F] DATA [H][E] PAPER 4 VERIFY [M][M][G] READ ETAN ▗zACS 2 LLIST [O][Q]LN VAL ACS D RANDOMIZE [B]R INVERSE AND SGN S FLASH yGWR LET S GO SUB ; OR C CLS VERIFY 13▛ INK B:"(ACS STOP n DIM SQR BJCccc)SGN CAT LEN .,20[A]SIN ` STOP DEF FN 9TAN S/ THEN _ MOVE US]WAVEZ FLASH WM THEN 55 THEN ABS SQR ▞0ATN l= FOR STEP oomcsS[D] INPUT [B]H[D]▟sq[D]=SIN #+[N][D][D]SCREEN$ rLEN =SQPEEK TAN PEEK LEN PSI OPEN #M▙ OPEN # CLEAR COS LET ;ATN 3NCOS ▖ DRAW ,o^[O] RANDOMIZE FLASH [K][L][J][N][F][B] LET 3LEN 0 LIST ;FN SGN = LOAD e LOAD a LOAD 13SIN TAB CODE R(PV MOVE {lPX VERIFY SM[Q]+▝RND▜ABS FN ▚2RpASN B=[Q]▙[C][G][C]PEEK SIN ▗%)SGN @%[K]▖[C][N]IN HLNDPI RANDOMIZE ^X OVER [M] FORMAT I# INK ACS [D] VERIFY Wx6USR 0 POKE qSIN v COPY yINT 9 BRIGHT 9{9 COPY S. MERGE [B][I]+9*>LN NRNDABS EXP 17LEN GO TO LET PRINT RETURN POKE CLS SIN POKE 3XyPI MERGE v[A]^[P]@ FORMAT PPOINT Q[C]AUSR f[T][R]ATN LEN [D]▞LEN *7COS ▖OTAN FN [F]5;`n[H]DS[B]SIN AND =7=3ABS ATN ABS [ABS TAN FLASH ATN COS SQR EXP F[C][ FORMAT PI[A]S OVER g LET k INK GO SUB Aa CLOSE #{t$S57[D]6INKEY$INKEY$17dn N& CONTINUE SQR LEN OUT READ INK '{8 OR 1SQR DEF FN 77[T]s1 CIRCLE PSIN Q FORMAT G[A][ OPEN #S CLS WYQ[Q][C]5w[B][D][F]wTAN NEXT OVER LIST SIN J[P][C][A]<y9[A][I][B] PAPER FORMAT VSQR _▜EXP SIN <>ACS CIRCLE 25▝ LIST IF 9IN LEN LEN 5BIN FLASH X FLASH BRIGHT [F]Q INVERSE [S]S6SSIN <[G]NOT CAT RUN K CLEAR THEN VAL [Q] OR & OR STEP OVER [F]USR /[E]/ BEEP sEXP GO SUB !PI! GO SUB 37 BRIGHT SGN [J]6o▙M PAUSE - INPUT ] STOP % NEW G]W FORMAT +U_ CLOSE #-SIN MNM[U]COS <KEXP ATN 57LEN 3[L]PI[F]S[D]l[N]TAN VAL$ VAL ACS [B]lqJSIN c CLOSE # NEW CLOSE # REM SQR ASN COS ABS 6eCSTR$ ▗ IF PPSP`K[B]<=[B]3qw PRINT =INT DEF FN 3[I]Z# INPUT [G]A[C]q[M]@D GO TO <6VAL POKE OPEN #STR$ K235SQR VAL ATTR 1LQRBIN FORMAT _CCO_)- FORMAT SM POKE [G]▛5SCREEN$ SIN SGN IN VAL [[S] POKE 8#c[C]k▞ FLASH }c& READ STOP U LLIST IF BIN STR$ EETLEN UMACS IN 9BIN STR$ CHR$ :#&[S][T]ASN T POKE wj BEEP Z PRINT _:▞TAN [B]1 INKEY$[S][H]5>= PRINT [E]*h i)o(b(n INK VAL /(~ CIRCLE [Y]ZT POKE W2ATN VAL 54 THEN T MERGE Q FORMAT [Q]QY ERASE LLIST ASN tASN 6ABS IN RNDIN [N]ABS [N][R]7P[F][E]COS [F]j CONTINUE INKEY$[K]Y OPEN #[C] INK [B]4u[H]4LEN $>MHM DIM POINT u<> DIM <> GO SUB Cr INVERSE E FLASH kO FOR ATTR TAB K MOVE ACS `0 GO SUB ▙"q1 LPRINT COS A©F}x[F]▝ DIM GO TO LLIST LOAD LIST OPEN #7@COS CAT [C][A][L]5`1[J] RUN 7TAN CAT 2ABS ERASE [H]ASN COS UATN SQR U[H]SQ BRIGHT <=O[3 NEXT PLOT s PAUSE 0PEEK C+ACOS @COS = READ Wc▝c▟[H] VERIFY RUN OR rSTR$ s STEP TAN ABS 1ASN S LLIST SSQR 4[U]INT > RESTORE UTAN OUT [[Z[E][ OUT [U]]f SAVE b DATA 0EXP A=©) CLEAR 5 ATN %9USGN TO 2 OVER cI▖a[ INVERSE TAN ▜KY CLEAR =[S] AND ;qsr>eVAL$ LEN POINT REM /+./%+-,)ATTR POINT [CODE 9IABS IN X ABS POINT } THEN ABS [S]SCREEN$ READ @[L][A][L][M][J][L][P][[L][P]:g▜ LET LIST PEEK /%| NEXT 43SGN w<PTAN kSTR$ STOP PAPER BRIGHT ERASE [I] AND PAPER [K]F[N]] INK INKEY$[L}ABS ATTR ? LIST [I]9 FOR VAL iCHR$ >:"VAL$ : PAPER f FLASH [J][H][K]▛N REM $D+!4 POKE 1 INK TAN D POKE ;LEN THEN 9egD@ALKTINKEY$ POKE ] BEEP [K]' INVERSE ELN INPUT EXP ABS IN SGN ▚ACS >AOY{SGN PEEK ]LN /EXP LN [A] RESTORE IN +][I]>=▚FN [Q]POINT TAN POKE #ATN ABS LN INT 9D OVER T[[F] OVER RNDRNDTAB FN PEEK [I] OVER [K]Z CIRCLE :9<INT 0)ABS 1:PEEK AND 8CHR$ ?LEN [Q] FLASH #[I]JLN [M]ASN HN>=)ABS <=<> BEEP CLS = INPUT LN ;=C SAVE ; OR X[Q INPUT OUT ^Z[Q]Z^Y_[f BORDER CLEAR CLS RANDOMIZE ;D@N[R][8LATN 8▚[J]CODE [P][O][N][M]QSGN ABS [O]ACS [O]LEN ▘IN +7JIN [U][I]3 GO TO SQR FN REM IN CLEAR LEN C OPEN #M LET 9f(INKEY$[U]Vm PAPER OPEN #Qzzq IN BIN [F]ySQR ;[K] FLASH BRIGHT [I] DATA &y[<=[I]1)9ACS s!_LN ;8>C OR X^[J]X_>=/ CLOSE #STR$ [K]^gK PAPER IN COS [C][O]COS REM [R] RETURN [I][K][J]VAL$ ▛CHR$ [I]ACS PAPER [N]TAN ▜ STOP LN INPUT LN STOP SAVE [N]IN %▚CHR$ PLOT x IF Z DEF FN x[D]INT AND X PAPER SAVE Tx [EXP {u{lHH"9`IN NEW >LN ~58 RETURN ~5*7[L] CIRCLE [[I]P/[K][P]_96PEEK ><1[B]x+y3esgk{3S PAPER [3 INK e[U]v RETURN ?PEEK CLS [T][F]NOT INKEY$SQR ▞{ LOAD [D]%SQR -b[L]f[L]j[L]f[L]b[L]f[L]zSQR hSQR [K] RESTORE 'x DRAW %rINT DDFN "AT %/INKEY$ NEW ACS ,xFN g[T]U[B]CPOINT 9:=k9; CLS )VAL$ RANDOMIZE k8-:[XTAN OVER :TAN VERIFY : NEXT ;2INT +;2INT +;2COS A OR a[Q]Ny▚"INKEY$[SCREEN$ [INKEY$[[S][INKEY$[INT DEXP DABS DEXP DASN DEXP DABS DEXP Dd[J]d[N]d[J]d[F]d[J]d[N]d[J]dDEXP DABS DEXP DASN DEXP DABS DEXP DDRNDXRND/RNDXRNDTRNDXRND/RNDXRNDD OR 8 OR < OR 8 OR 4 OR 8 OR < OR 8 OR RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE OR 8 OR < OR 8 OR 4 OR 8 OR < OR 8 OR DRNDXRND/RNDXRNDTRNDXRND/RNDXRNDDELN ESGN ELN ETSQR ERASE ▖ IF REM [N] CLOSE #_<> LINE ^W<> LINE PI BORDER >=INKEY$[N] LINE Ym{N>=o GO TO REM 9fi REM CONTINUE SQR SGN mTcSQR LINE g3TAN CAT SIN TAN [S]TAB PIH NEW Ks OR PAPER @ OPEN #BIN Ks[K]9P MOVE 0H<>[N]<=2J STOP MERGE 6LBIN NEW IN REM OR [N]BIN | OR FOR J LPRINT NEXT STR$ n OR CHR$ DATA Z DRAW ACS E IF [U]▜RND[F]*▚{ RANDOMIZE TAN x COPY INT [FPOINT IF ~[B] FOR vDw PRINT [F] FOR tSQR #VINKEY$>ATTR u CLOSE # THEN Dd`bl`@6SIN Y+X9zSCREEN$ dG FOR 5▞w POKE [J]VAL$ ▝OACS OVER gCHR$ COS @RNDTAB [T]((PI NEW MOVE VERIFY OPEN #8 AT GO TO NOT AND NEXT <=COS LET [D] POKE [D] CLS [D] THEN [D] OVER [D] INVERSE [D]TAB [D]VAL b4 LLIST Y▟▚▟▘ READ ▚▗[B] LLIST [A] POKE GO SUB STOP LOAD DATA REM NEXT SAVE LIST DATA LET PLOT a▘TAB | STOP c&6&/7>C',7C8,(aAR MERGE LPRINT GO SUB CONTINUE RANDOMIZE CONTINUE GO SUB ▟ RUN DIM REM INPUT NEXT CLOSE #G▟▟[K] GO SUB LET e LLIST [P][L] GO TO [A]TAB INKEY$[S]ATN ATN ACS AT NOT BRIGHT MOVE INK CAT BEEP VERIFY BEEP CAT >= PAUSE NEXT LOAD POKE NEXT NEXT RUN GO SUB SCREEN$ LLIST ATN FOR PI LOAD READ INT & MOVE ▟ CONTINUE READ [T] DIM "▝[T]ACS &BIN ▟[N].#0}PyCHR$ zxB^ DEF FN `-.^H`j INPUT IB/6!#4 CLS .PEEK CAT n5[P] LINE TO AND >=▝ LET LPRINT CODE [P]![I]▜LEN [E]# LET NOT RNDM LLIST ATN VAL$ EXP [U] READ AT FN INKEY$ACS STR$ USR h[A][C][D][D]▖[L][J] INK LLIST ld[G]STR$ ▖[Q]VAL MOVE [M][B]PI@ NEW ▝[T]CCOS EXP NEXT PRINT IN FORMAT NOT ERASE OR OPEN # CAT f▝!<> AND [M]5 CLOSE # (a*8c1=((.+./(CIgq NEW LO.0AM>=2m.a,?"/;!VAL$ [Q]FN $ LOAD LPRINT LPRINT REM REM [Q] DRAW % FOR DATA CLS ▖VAL$ MERGE NOT PAUSE FASN ▛K LLIST [R]LN ATTR LLIST DRAW N[A][C]▗ CAT <>▟▗ LLIST [Q]D LLIST ▙EXP ▗▛LEN ▜@ LLIST STR$ DRAW NEXT <= MOVE [F]$ VERIFY STR$ BRIGHT >=<> LET FOR ) STEP USR INK CAT AND MERGE TO 1CACHR$ '&!bA_ STEP "!b7@R{ LLIST 5[Q]LVAL ^@k<>)4n+=!6)jQ=NOT CLOSE #▞[D]!▖[J] LOAD PAUSE # RUN REM OPEN #`! SAVE [L] READ D FOR ▝~ CAT [L][R]UATN ASTR$ PAUSE mVAL$ CAT [S] THEN ATN CAT INKEY$NOT NOT [S]AT FN COS [Q]TAB [U]COS RUN ERASE RETURN CHR$ NEXT CHR$ dBVAL PAUSE SF[T]AT <= CLOSE #USR INPUT PAUSE SIN OPEN # CLS [R]U" TO CHR$ INT OPEN #R<> c6&&,)-0>UUUSR 'l READ Kb[I] STOP aQ STOP /sNBIN lc-1$-mCnUSR e9/Q GO SUB OPEN #▖LEN CHR$ ASN "▗ OPEN #[P][L]COS [D]"[E]COS >BNOT L[P][D] LOAD ▙▗ GO SUB LLIST FOR ▞[K]STR$ ▙▟[A] STOP ATN k[F]▗▚[M][L] INVERSE DRAW FORMAT ▝ACODE [U]TAB [U]STR$ IF LPRINT STR$ POINT ▘) OPEN #BIN [S][T]RND+▟ CLOSE # DEF FN <=>=d/>C[R]NOT j/4%AFDD PLOT BFe LPRINT %dm3EBIN ec[E]fUSR 57#,INT x%>= VERIFY ATN [C].CHR$ AND STR$ MOVE USR CLOSE # LINE TO [U]POINT [H]U BEEP YG[U]ACS OR ▚USR CSCREEN$ [J][B] BORDER < BORDER NEXT BEEP I RESTORE FLASH NEW MOVE g▛ CLS v[H] CONTINUE STOP D[U] FOR VAL$ OR NOT FOR OR GO TO [L]▖ MERGE TO CAT LINE BIN DEF FN >=[U]d CLOSE # STEP AND EXP ▞STR$ ',70 &{5 MERGE q<> STEP Gkl NEW ~ NEW k NEW NOT 1,7>fXSTR$ .?,8D[D]8 VERIFY ▜▜ FORMAT VAL h DIM BEEP SIN [B]AINKEY$h:POINT OR >= FORMAT [B] READ LINE OEXP COS VAL LOAD PRINT CAT D[E] DATA @cSCREEN$ ATTR COS ATN [U] OUT PRINT BRIGHT n▖▜[Q] BORDER ACS AT FN POINT [Q]SGN [U]BIN CONTINUE A DIM EXP AND =[G]@' OUT MOVE INKEY$ OUT , BEEP >=CHR$ MOVE BIN LINE >=LN ASN "▝A LOAD BIN &GeUG PRINT AND E READ d INPUT Kdv LPRINT 63>SAR PAUSE >=!5t7U2V▛r: BEEP IN [K]:[J]LN V[J] BEEP SQR AND 8>=PEEK ASN INK ZVAL$ CIRCLE LPRINT OUT [A] PAPER /TAB PEEK ▞[O][P][E][D] COPY [G]h MERGE [B][G]▚[G][K]▛ VERIFY ATN SGN CLS GO TO REM POKE INPUT READ PLOT DIM OUT t CIRCLE ?^ OUT OUT THEN PAPER LINE ATTR [G]ATTR LN W8 CAT PAPER INVERSE IN [N] CIRCLE 7"0[[E] OUT 7"-2/! ERASE 6Y LIST ?74q+6)T INPUT PAPER 43%M RESTORE LEN 4= PAPER MOVE CHR$ DEF FN ^EXP E9 BRIGHT OR SQR 1[R]_[R]SGN VAL LN ASN ATTR INK OUT >CODE ACS >=[J]z RANDOMIZE l INPUT [D] OUT A[L] GO SUB z CLOSE # IF 5y▙FN AT TAN ]Q CLS [K] CLS PAUSE DIM LIST TAB 8[J] RANDOMIZE GO TO STEP STOP [N] NEW ABS CLS 1[E]`thfvkaol[ LOAD X OPEN #.3;*S769p DATA SAVE ,'ASN Z CLS $-TAN [A]z FLASH vNl OVER >=CHR$ CLOSE #>=>=[O]/9 STEP ERASE [I]< FLASH VERIFY OR FORMAT OPEN # FOR LET XATTR DIM `X CLS CIRCLE ]SCREEN$ ABS VAL$ TAB STOP NEW y[G]▖ IF [Q] TO ]x INK COPY FOR DRAW PLOT DIM - PAPER HUTAN ASN IF PIINT SCREEN$ PEEK RANDOMIZE COS ACS OPEN #>=PEEK 9[M] ERASE )FACS DD▜ATN TCHR$ T OUT IN T[C]h[C]l[C]`A<> INVERSE q LLIST ePmKm CLS ANOT G}SIW LOAD 9STR$ [M][A]i[D]k[A]e[F][A]m[H]kh LLIST ▞iIN COS 2k LOAD ▛h LLIST ▟m READ pX INK $ INK INK $ INK ( INK $ INK INK $ INK RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE >='STR$ Y INK NOT INK BEEP LOAD GO SUB NEW !Z GO SUB INKEY$[B]EXP LN )IN EXP ATN ▚▛▚TAN ▚COS EXP >= CAT ATTR @m?^p OUT dNg<g^@Zty▚ CLS ~IN t RETURN ~vxJh? RANDOMIZE Jw[I] INVERSE DTaTDWFN INK VXV INK Vg[:ASN ▛[A]SQR ▗K9RNDPISIN E:LN [T] BEEP <> FOR [ RESTORE PEEK TAN VAL$ FN BORDER FLASH <>Z RESTORE FLASH AT CLS [R]}NOT [I] IF OR [F]▗ DIM NEXT ~ PRINT IF [I] RESTORE NOT / BEEP STR$ BORDER ASN [U] MERGE [D]Z[U]ABS RND RANDOMIZE THEN ! INK OR OVER ATTR [R]: LINE ATTR RANDOMIZE SQR 8▜ CIRCLE [L]{I[[ INK fXUY[B]][G]/u REM ym FLASH iU IF yum<= DRAW E]U[] CLS BRIGHT e:$&;m OVER $ AND CIRCLE EXP SQR NOT CIRCLE EXP FLASH 4 OR POINT 3? FLASH INK ATTR %]RNDABS PEEK LN IN PI PRINT [XSQR STEP C RANDOMIZE OPEN #d[L] INK FLASH |[E] DIM [ MERGE TO RANDOMIZE NOT CLEAR INK ;% CIRCLE RANDOMIZE {XABS ASN [T]EXP ABS INK ▛SQR INK ! CIRCLE DEF FN BIN VERIFY ATTR INK > VERIFY >=CHR$ CLOSE # PAPER SQR MOVE SQR t[O]D<d BEEP 9/9BDn BEEP THUr PRINT ▞ACS bdDBdA PRINT /UT' MERGE =E IF T[ VERIFY NbV GO TO (v MOVE ▞[D][N]6 LINE SCREEN$ STOP ACS PRINT 2INT INKEY$-* PAPER CIRCLE +QASN BORDER POKE FLASH TCODE BIN 2TCODE BIN +t▞ MERGE [T] LINE v PRINT [J]4▖t[J]▗ FOR TPOINT BIN COS CLOSE # BEEP ABS QFN VERIFY OPEN # FOR <= BRIGHT )Jt CLOSE #COS 6<>n`ASN PLOT [U]#RNDm OR + CLOSE #4D[L] MOVE 4UO>g]2U VERIFY JSCREEN$ F PLOT u&E*ufKSe PAUSE ka3"E MERGE *UfASN S*W VERIFY PAPER 6 MERGE NEXT INKEY$9 PAPER TO <=▛tl7q* OR R PAPER ATN OR Z BEEP n[G]*( RESTORE [E] PRINT PRINT < PRINT h CLOSE # BEEP BRIGHT [D](ATTR RESTORE TAB RUN l▖xuPOINT INKEY$▛▜STR$ uZ NEW NOT uATN LN .EXP &[C]▝v/ RESTORE [G]uIT[L] INPUT SCREEN$ [P]TSIN U RUN TAN XACS U LIST TAN g RUN SCREEN$ UzT"EXP NEW ASN [uV CLS [P] CLS [G]i[P]8q▝ s,}▟VAL ▝ TO s[C][B]$ NEXT @ LET LK DEF FN .INKEY$"b STOP ATTR RUN RUN LET DIM [K]_ PAUSE VERIFY / ERASE OPEN # MERGE ?C, CAT OPEN # ERASE MOVE <> FORMAT [N]]COS SQR ASN SIN SQR ▝ABS AaDRNDSIN K[T]R DRAW TS`UGT▖SU GO SUB [J]ZVAL$ BRIGHT LEN -V%R[I]|0[P]z[O]INT gs2 CLOSE # ERASE ▖J-/[I].]E[B]▘[D] BORDER x AND !COS LEN sh} LET WAT ERASE n LOAD LEN pTAB MOVE &3# BRIGHT i▗ 5 PAPER SGN GO TO [N]98: THEN S=SGN FORMAT ▞5M+ PLOT ,|[O] LOAD BORDER sINT CLS OPEN # SAVE >▙[T] LINE READ [A] CAT ▝ LET p>=[J]<>sVAL TAN ASN COS a[S]SGN OPEN #IN -aY MOVE #a@USR )[A][L]▟[r▘TAB CODE |EXP Hv IF VAL$ [C] BRIGHT [C]l([C]PTAB CHR$ q ERASE [A][P]inC BRIGHT p[N] LINE s CAT }KqATN EXP 0|7 ERASE LPRINT T PAUSE _ COPY LINE PS CLS OPEN #[K] LOAD STOP r RUN OUT ri OUT OUT w©5 FLASH MOVE <>xAT _CODE !LEN /[T]|pM1mEr{TpM0}`rO-[L][S][A]POINT OVER ▞A[N]▜ PAUSE Q+ PAPER ▙&[A]RVAL DIM ACS AT p[S]t# RETURN SCREEN$ GtQL[I]1SIN P0Qu'[D]A REM VERIFY ▙$AT l<=ASN V[R][G]0[M]LEN AT 9HxPOINT TAB [T]4 VERIFY }Q CLS TAB [B] PAUSE Y ERASE PI BEEP 2<= LET BEEP CLOSE #x'©NOT ]1 CLOSE # FORMAT NOT C OPEN # OR T FORMAT 6~CODE CLS READ CLS V0NOT PEEK % CAT TAN ▟©▙l>=ACS FVAL CONTINUE ) DRAW ▟IO'V[R][C]▟SRq2Pw2h CLEAR SLvY PRINT EXP BORDER [C],d RUN ShNl CIRCLE ▟(VAL$ RESTORE [I]SLEN {4wCOS >=6IN p:qCOS <=0f5 PAUSE LOAD A DATA [U] LLIST GO SUB RANDOMIZE V 31E DRAW NOT [ BRIGHT [R] LLIST ▚f9K1 INT BORDER NEXT r PAUSE x[S][Q] LLIST 3▚w[D]CODE 2R NEXT ▛2$[T]▛6[H] CLS [B] STOP RESTORE SmSlr'S` BEEP PAUSE [D]L INK 1Ft1F COPY [SIN C PAUSE REM 3X MERGE [K]R[O]S LLIST STOP jP CAT U= MERGE PLOT m[C][D] FLASH <rAT y DEF FN Dfh INVERSE TAN n THEN MERGE USR PAPER MERGE STR$ INKEY$X[ MOVE T OR MOVE PAUSE SIN 0 CONTINUE LET mL"8[D] FLASH LET 8S REM $t<▝+ OUT NOT OPEN #COS BRIGHT S INK PAPER CLS INKEY$;SQR CSGN OPEN #LN SASN FOR EXP SSIN CAT ACS SQR SCREEN$ DATA PTLN SUSR _SAT V DATA R$nXr▗q THEN >=w RETURN w.wRwv[Q]V POKE V.VVSCREEN$ U▞UiTAN TAN #TAN TO TAN OVER TAN NEW TAN ▟TAN [L]TAN ATN CLOSE # BRIGHT CLOSE #/ MERGE 8 MERGE : MERGE MERGE MERGE j MERGE Y PRINT _ PRINT lk RUN c CLS { RUN p NEXT ▛ RUN ▘ FOR RND BEEP PEEK OPEN #LEN BEEP ▛ FLASH BEEP ▝ OPEN #[K] BEEP [O]ATTR PAUSE ATN RUN TAN AT ▙SQR ▟ATN COS ▜ATN [K]ATTR yW©SrWp[vWtSJWHkiwoslwb{cw`sfwgkDWESZWt PRINT [F] SAVE READ mXwP}ACS w[O])SQR JCOS DX DEF FN COS X▖Y IF MERGE NEW CLOSE #ATN CIRCLE [M] OPEN #▚[M][L][A]>= POKE H[U][R] OPEN #ACS LN LN ATTR SGN SQR VAL 6 SAVE PLOT CLS FOR MERGE INK U ERASE CIRCLE W VERIFY BEEP U VERIFY OVER S MERGE INVERSE uSCREEN$ SGN ACS SQR ACS SIN ;ASN LEN 5SIN VAL 7ACS CODE CLOSE #WW ERASE TT POKE [U PLOT WRtWxVtpp~Tzth PRINT Vjnr MERGE PR' INVERSE X CLOSE #ZY VERIFY T^ CLOSE #VT AND SQR OUT ▛SQR THEN ASN THEN TAB THEN [I] THEN [H] THEN THEN [K]ATTR [B]^] FLASH NOT OVER ERASE ATTR INT ATTR PEEK FOR ASN M LPRINT LIST y LET PLOT { PLOT LIST u LOAD PAUSE { DATA LIST y RESTORE INPUT [ IF FORMAT ] NEXT POINT /RNDHPOINT GTAB ~▞j!SQR EXP SIN VAL COS B[L]u3COS ;ABS SIN 9SQR TAB FLASH Xx BRIGHT Yxx OVER [] CLS _X RANDOMIZE _g FLASH {zmQ CLEAR yu{}[{[G]y BRIGHT iV[QYP[S]R[TAB CLS EXP SGN CLEAR SQR IN CLS ASN PEEK RANDOMIZE SQR EXP CLS EXP LN RESTORE FLASH FLASH [L] INVERSE PAPER [J]" MERGE Z CLOSE # FLASH ▜ FLASH ▙ FLASH LEN CLS FN ▛COS RANDOMIZE INKEY$k RUN POKE ]3 CLOSE #[ABS [A]y[H]TAN {[J]/u LOAD & FLASH FLASH F CLOSE #SCREEN$ [J]PITAN [N]-ATN [L] LOAD ASN [J]iVAL [L]/INKEY$VVxDzMxTC~ OVER RNDX STOP xzn©ySIN RANDOMIZE t~▖ RANDOMIZE }yATN DIM bX_X[X/XPX]XYXRXCODE [J]COS POINT PIPOINT ATN :PEEK EXP SIN fIN 8INT NEXT /▘ INK OUT ] INK .+ INK FLASH PAPER LOAD OUT ATTR MERGE [H] GO TO © IF CLS RANDOMIZE POKE <> CLEAR ▞ NEXT ▞ INPUT } READ & INK OUT PAPER FOR OUT PI MERGE ATTR TO ^ BRIGHT FORMAT PIAT 8▛IN CAT ASN THEN AT 4PEEK FN EXP SQR REM IN LOAD [H]_+UA DATA X OVER ] INPUT ]F/Ycb TO ©zz TO |q©D©{<=}@`<//_Q Q LOAD Q]V[H]RPIVAL$ PEEK "COS ATTR SIN LIST SIN IN _VAL CIRCLE COS ATN VAL [L] CLOSE #P CLOSE # LPRINT OUT U&vLN SCREEN$ >= FORMAT MERGE }>=B PRINT Y PRINT ^<> LET z RANDOMIZE [ PRINT EXP PRINT [J] LOAD wD BEEP y VERIFY MOVE &zTAN PI INK FLASH ASN OUT TAN CLOSE #'[H]IN THEN ASN CAT [R] THEN PI<=[D] THEN CAT THEN LET BEEP THEN 5^PI COPY INK LIST 9+E COPY T NEXT WUSR e FLASH v^~:t LIST FLASH V INK R8 BEEP BRIGHT SAVE I IF EZ DIM MERGE T SAVE W~ INPUT zW'ASN ATTR FLASH ACS THEN ATTR THEN PI7COS D MERGE MERGE <=zTAN PRINT ASN OR y OR BRIGHT ]z PRINT ©ATN ATTR REM ▛ PLOT ▛ READ ▛ CLOSE #▛▖ FOR ▗|/ RUN [F]▛ RESTORE INT FN ATTR / FLASH LINE Z FLASH CLS LINE ATTR XATTR COPY ATTR THEN [P]INT GO TO 0: INVERSE STEP ▜=▜▜[L]c FORMAT SAVE a SAVE )l FLASH ` RETURN d IF -[L]Z SAVE BRIGHT : BRIGHT cop ERASE COPY OVER N▚ PAPER e[N] CIRCLE 6| FORMAT CIRCLE RANDOMIZE U[O] PAPER 7]5YUPEEK ▞TAN TAB [<>[U] OR [U]<>[U] STEP <> MERGE RESTORE POINT RESTORE TAB ▚POINT ▚[U]__zUSR xVAL CODE INK RANDOMIZE INT [K] LIST ~X RUN [M]NOT ▛ READ x[A]▞ BRIGHT INK LN [K] OR ^ VERIFY SIN INKEY$ INPUT { PAPER CLEAR REM hATTR [J] THEN THEN ▝ THEN THEN ▞ATTR ?B OUT DEF FN [U]iCHR$ BIN x READ ©Ey PAPER ©BIN wBIN u LOAD O<=UVR OR H DATA GJKME<=OTO0 NEW 05+bF LPRINT NOT NEW Ty▟PI[R][R]PI FOR LEN PLOT ▖[T] BEEP ? OR VAL$ ACS LIST MERGE LLIST GLN PLOT ATN READ COS ▞ATN ▞▛POINT [H]POINT [D]POINT [H]POINT [L]POINT ▚PId PLOT PLOT FOR Y VERIFY f PAPER CHR$ ▜F CLS IF LLIST F<= MOVE RANDOMIZE D CLOSE #ATTR INKEY$ PLOT OPEN #SQR $ TO INK [O][U]"ASN ▜SQR >UV,0rF<>U NEW 5©5{5G[_[ POKE [E] AND LU OR W CIRCLE uh BORDER h DATA nc THEN ED GO TO jccc[P]▗ VERIFY [C][O][J][M][J][I]USR [C][T] RANDOMIZE dTAN RUN LIST E CLS PAUSE G REM POKE E GO TO GO TO INVERSE TO g DEF FN c[E]TAN g[P] FLASH [G]ACS PAUSE ▗ AND ACS SCREEN$ [S]ACS [G]B RETURN ACS SGN LINE [G]F LIST STOP [G]F LIST LINE BRIGHT BEEP DIM ERASE : BEEP DIM PAPER : BEEP DIM OPEN # DIM BEEP DIM INK MOVE STR$ TLO DATA T FOR XD MOVE Sq<=O[7 BORDER ofSCREEN$ STOP o_| BORDER B@VAL OR Oe7STR$ GJ/7vF OPEN # AND VAL MOVE [P] MERGE [P] MOVE [P] INVERSE [P] MOVE [P] OR [P][Q] LIST ACS RANDOMIZE b LET C NEXT i PLOT b RANDOMIZE SAVE E CLS A RUN Y MOVE CIRCLE A INVERSE @ MERGE ERASE O▗ DEF FN B>= STEP cX FOR ` GO TO REM C NEXT C STOP g GO TO ` DIM DIM ERASE |<INT [D]:BIN [R]COS TAB [R]SQR RND OPEN #:▟eNOT 1}3gA CLOSE #CHR$ sScSTR$ 2q BRIGHT ///////[I] AND VVS READ V GO TO bB[I]BIN ws8<[U][T]"PI%COS BIN BEEP [D] OPEN #SQR >= MOVE OR CLEAR B BEEP READ OUT F OUT FORMAT FN VAL DRAW USR A LOAD B[B] OUT [F] OUT [B] OUT [N] OUT [B] OUT OUT NEXT zY RUN ` IF E RUN k LET l RETURN DRAW C CLS C DRAW g▗[G][K][C][H][D][H]▗▙USR READ 5©@Y TO sUSR { STOP r LLIST oUSR Q LPRINT STR$ Q- LPRINT Z/c[C]AE LLIST 1eSTR$ s1=C[U]STR$ qaSTR$ ▖ MERGE CODE MOVE FOR FORMAT : MOVE READ FORMAT : MOVE FOR MOVE LOAD MOVE NEXT [U] FOR F OUT BEEP FORMAT c BEEP ` BORDER BIN LOAD @ POKE ERASE b[B] GO SUB STOP fM RUN B PAUSE ▙[F] VERIFY [B] LLIST CSCREEN$ COS VERIFY SCREEN$ B CLOSE # LOAD OUT F CLOSE # MOVE FN VAL CLEAR INT ▞!TAN MOVE [P] MOVE [D] MOVE [P] MOVE [L] MOVE [P]LEN USR sQ{ INK SGN READ )4t LPRINT <= READ v LPRINT COPY U READ QU LLIST AND Q DEF FN UW LLIST STso PAUSE lNOT DATA l LPRINT 4jkSTR$ je<=icG-▞▙ VERIFY [F][E][E][A][I]#[G]?b COPY COS d@ATN [A] OPEN # NEXT `CHR$ NOT `SIN <COS @[A][L] POKE OUT DATA ▟ READ @[E]COS @[B]COS LEN ASN >=LEN SIN PAPER BSCREEN$ SIN DIM READ ,@[B] CLOSE #[P]ATN BEEP )POINT INKEY$TAB EXP INKEY$▗$:G LPRINT JA LLIST S CAT Ie CIRCLE CHR$ I LPRINT Jwq@DHW BORDER NEW Q LPRINT U OR I LLIST ▘uCHR$ RESTORE w LLIST <AkBIN READ t READ 4SCREEN$ 0#[P] OPEN #SQR NOT ATN " ERASE [U]:' MOVE CLEAR <>NOT :NOT >NOT 2NOT >NOT :NOT >NOT READ READ READ READ READ READ READ READ NOT >NOT :NOT >NOT 2NOT >NOT :NOT >NOT B[T]^[T]Z[T]^[T]R[T]^[T]Z[T]^[T]BCPEEK CINT CPEEK CSIN CPEEK CINT CPEEK C▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘CPEEK CINT CPEEK CSIN CPEEK CINT CPEEK CB[T]^[T]Z[T]^[T]R[T]^[T]Z[T]^[T]BNOT >NOT :NOT >NOT 2NOT >NOT :NOT >NOT READ READ READ READ READ READ READ READ NOT >NOT :NOT >NOT 2NOT >NOT :NOT >NOT B[T]^[T]Z[T]^[T]R[T]^[T]Z[T]^[T]BDEXP DABS DEXP DASN DEXP DABS DEXP Dd[J]d[N]d[J]d[F]d[J]d[N]d[J]dDEXP DABS DEXP DASN DEXP DABS DEXP DDRNDXRND/RNDXRNDTRNDXRND/RNDXRNDD OR 8 OR < OR 8 OR 4 OR 8 OR < OR 8 OR RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE OR 8 OR < OR 8 OR 4 OR 8 OR < OR 8 OR DRNDXRND/RNDXRNDTRNDXRND/RNDXRNDDELN ESGN ELN ETAN ELN ESGN ELN E▗e[I]e[M]e[I]e[E]eSCREEN$ e FORMAT [K][C][Q]VAL$ [Q][K][Q]PEEK [Q]* DATA ▖SCREEN$ PAUSE ▙ LLIST THEN ▖ABS eZD~DFtjTJ CONTINUE nRNDgh▛VAL AT 6 RANDOMIZE TO &▘*[L]8 POKE VAL ;[D]J FLASH >.AT STEP LPRINT .AT STEP AND &b;CODE _([B];_OU[K]STR$ TAN ▘NOT INKEY$ATTR [D]PIHf7USR THEN ZVZBU AND FOR [J]INT gDUG{[L]| CLOSE #CODE TAB jdfdbdfdzDFDBDFDJDFDBDF STEP AND NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL ! AND RETURN COPY /<> GO SUB LN ! POKE [T]TAN _~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RPOINT NOT AND _NOT ©`NOT [I]`NOT [M]`NOT aNOT aCODE 2 INVERSE RND> RUN 2 GO SUB RND>2 INPUT RND> LOAD 2 LOAD RND>2 LIST ▚ LET RND>2 PAUSE ▝ NEXT ▝ POKE ▛ PRINT RND>2 PLOT RND>IN 2 RUN 2▝ SAVE <▝ RANDOMIZE ▝ IF F▚ CLS RND>2 DRAW P▝ CLEAR <▝ RETURN Z▝ COPY P▘INKEY$d▘INKEY$d▘INKEY$<▝▜INKEY$> OUT 2INKEY$2▝▘INKEY$Z▚INKEY$> CLS 2▚INKEY$> CLEAR 2▜INKEY$>©2INKEY$[G]▝FVAL INKEY$<> RETURN RETURN (. GO SUB xRND>= THEN THEN m( PRINT THEN zATN GO SUB <>v CLEAR <>=o&)COS `~ INVERSE w INVERSE ##0IN <>©©©©©IN IN IN IN IN OUT OUT OUT OUT OUT LOAD LOAD LOAD LOAD LOAD RUN RUN RUN RUN RUN CLS CLS CLS CLS CLS CLEAR [U] CLEAR CLEAR CLEAR CLEAR RETURN RETURN RETURN RETURN RETURN STEP ©`zPI( RANDOMIZE <>G:INKEY$LN LINE <a:0▝0▝0▝ #▚! OUT RND THEN [O]<>SCREEN$ OVER <>#./01(-,+*)!"$ COPY COPY CAT ▞+:A;5USR C ▜/▝*▝4CHR$ 2▘10▗=<A> AND =▘CC LINE A▜CC ?A@CHR$ ▚"#$CC%Z▝!NOT %▝&Z▝NOT CINKEY$CCSIN LN C,:>@▘[C] ▘ DATA DATA ▘@▞PIATTR ATTR COS LN C0-▞FN AT CODE TAN LN C0<POINT TAB VAL ASN EXP V0K▗SCREEN$ VAL$ VAL$ ACS CLOSE #Cp INPUT PAUSE ▝@ INPUT ▘[P]▘▜E -▝@VAL$ ▝0C[A] KPd▘[B]Pn▘ GO TO GO SUB -▝[C]P}▘ INPUT LOAD P▜u▘ v▘ LINE C▘ LINE C▘'[I]▝PEEK [M]▝▘ CIRCLE INK USR ▞CCINT IN SGN [D]GCCSTR$ DCCSQR USR ABS @[S]p PRINT P▘p LPRINT CC DATA !©▝▚ LLIST ▝ INPUT @[M][Q]@ TO ▞ TO D OPEN #C▝▝@5Lqf▘[fj▝▘▗px▗ GO TO GO SUB `x▚▝▞ INPUT LOAD ▖`w▝ INVERSE >=D ERASE C▝▗▛q GO SUB ▝▗ OR G DRAW CLEAR D MOVE E RETURN COPY C▞▘'▝▖U[H]▛DD[J][T][U][Q]▜3▚E[K]EC[R]! CLEAR ▝▝wAcp▛[A]@#LI▝h▘SL▜j3L▝2ySL@<SO▗E DATA <3L▘ {▝INKEY$CL<PisUSR sUSR 2 ERASE ▝S CAT A DATA OVER =" ERASE C▗= ERASE ▘C DRAW = ERASE ▝@<CA▝@<CP▝sUSR BRIGHT CRCODE 2bCODE 2:▝▛BCODE CIRCLE w▝#Q2 CIRCLE ▚▘▟[E]#B" CIRCLE c`>=C▘[D] LINE C#[S]"SIN ▝▗SQR #LEN "SIN SQR PoC LINE @o# INK USR BRIGHT ▘▟cLEN ▗GDDpo# CONTINUE p~sWsf LINE C&▝ RESTORE 4 LPRINT h▝GC*0f▝BIN T&▝ USR ▝ OR T&!▝▛$v` NEXT ▝s CLOSE #CW▝▗pPI FLASH S)# DRAW ▘▛s[L]!TU!e`1e▘▟E!1e0-RNDCCLEN ATN 1[A]t OPEN #%TAB q"t LET ub%! THEN ! FORMAT $[T]1 FORMAT ^$[T]1 FORMAT qLN &s LOAD D8sf"su"s▗p0- OR ▘▖▞%$"4%%#▝▙r.ET INVERSE @1 LLIST ▝cUSR ▘ LIST ▝'▝|▝ COPY ▝'*▝|3 GO SUB ▝|▝▝3 DRAW INK ▝0<▝.p<▝FJ▝0<▝▝vCOS ▘()7q6Pgq6Pgq7G7q6}▗C%'q6}▝C' BRIGHT w& INPUT B[B]3fW)2[B]g7▝▙vQV0_/]^_GX>=b`B{b"/">=▚caB{cLN 7 FLASH >dzB{dF[E]>▝ NEW ▝ NEW V[T]0▝▙w5'?gD▝▛N▝▛c OVER s[P]▝ DATA 07sUSR '{sUSR $t/C GO SUB t>sWthsfh▘ BRIGHT ECuqw▝DAq4▚[O]7q45gt[U]A>tCOS H DIM c[D]p`▘▝▘$ PLOT Y FLASH COS <=%74w Asp'▗W▖D8D1GNOT ▝x-%8<▘▜E( PRINT ▘▟4O▝▝PEEK dGxT8x RND$▘@RNDX▝▝Pxn▘▚G R)"▗ BRIGHT ECD0a)" p3PEEK STR$ < STOP +)t▝ DATA F+▘DDBABS USGN USR & OUT 8 LET VAL LEN " GO SUB )IN 6 OUT yy,y;hH▝G)hQ4▝[A]9h STOP RESTORE "RND>=Csfsfz▘e BRIGHT [D]▘CDq▘.-▘79~▘▘;6[S]▘d9[S]x▞▝sf▝ssfp%Y G+ - LLIST JPp<P▝▝p-P▝p-+pisWzlWCOS f▙7COS j)tkw MOVE wTAB 7gTAB ▘▟wTAB 'TAB z PAPER xxHCGbXC1 POKE HC+1ZYK1z>= BRIGHT CsW* BEEP Su+#▗▝ LPRINT # OVER +P)<POINT ' CONTINUE NOT <POINT ' CONTINUE TAB LPOINT W CONTINUE LPOINT {SGN kSGN SF;P▝▗CLN CPS[D]▝[A]; PRINT 7 DIM 8,INKEY$▝▛7 SAVE ▟[C],ASN H▝p00-`PL THEN YsL PAPER UTAB V2pk LET [J]'[Q]▝[A]8[L] RUN 'PEEK ▘[B]ESTR$ STOP RUN 'PEEK @ RUN p▝ STOP m*-y REM z}<>_ OUT ▚▘E BRIGHT E BRIGHT EBCODE [K]▝DM▞DC▝[D]E DATA L LET ▝▛ASN ▘6 GO SUB ▘ IF C=k▘▟z+? RESTORE ▝;. POKE ▝t5POINT {-{▝D7x▘C@ OR 7x▝C} AND . LOAD ▝p-~[L]sWsf CAT = REM ▝S OVER Ms GO SUB /A DRAW ▝ LET USR tp▝ PAUSE STR$ |M LLIST CHR$ Bp-▝STR$ ym DRAW ▝▙2LEN LEN *[E]*[J].LEN *[E]*[J]W TO O TO t TO | TO B TO y OPEN #C BEEP sUSR BEEP /K COPY . FLASH >=t▝v[H]px▝ NEXT CLS ▝▝px▝Px▝©$ CLS ▝>=C©"©"~TAN ;DCHR$ ▘ DATA ^ OUT N[A]TT▝ SAVE ©m▘nEXP PK DATA /[H]▝▙S▗gcLEN bSLEN ) BORDER ▘▚E/[E]LN ) BORDER ▝BIN <,[<=▝ OR <,[LN GTAB w[O]sUSR INKEY$3u3M)4©`▝▞ INK >=D}{ RESTORE |,[Q]8 CAT 3 GO SUB x▗<=,▝▖LFN ▝5#,FN ▝▘[S]▘E DATA "[L]FN < OVER #DIN GO SUB ▝Kp▝xD DEF FN ▘p FLASH ▝ LPRINT ▝su* OUT THEN C3 INPUT nh^ BEEP Nh▝}#USR .SIN .>#USR .SIN n9}|VAL$ M READ ▘CJ NEW ▝Js▗KNB{Kg5▚CLOB{L~2 CONTINUE DIM REM FOR CONTINUE CAT C▘ GO TO GO SUB py.- OVER ]' TO t TO D MOVE C< MOVE l OVER LET L OVER LET ▘? INPUT ▘-▝ POKE S8p▝O LINE VERIFY LET tv%U▘ NEW D MERGE POKE ▗▘ NEW L@▘ NEW S@▜{xt BORDER -,!▚GD J0▖ TO ▝?▗D BRIGHT BRIGHT $▝O▘C BRIGHT *CFN . GO SUB 0▘▝SIN ` IF > GO SUB `? PLOT 0<~▖q LPRINT sW{©Z+"▝ STOP [C]{"s GO SUB [@7[O]▟+@GTAB [@▝C{@? LINE 7&l57Dsu# OVER s▗K/POINT 8u:/LN 8u`8uX:ACS 8u_`<>Cs▗ns▗4As[D]$_▝CLEN CONTINUE nU▝ DATA DATA CONTINUE _0*PUSR GO TO 5[B] CLOSE #▜/ LOAD ▝'LN y DRAW ▘GD[D]▝▞▘+j▖ DATA @ ERASE LIST GO TO GO SUB SGN ▝_▜ INPUT LOAD ' CAT RESTORE ▘^▝ DATA L^[A]sW-]M>=jw VERIFY WG VERIFY Fz=^▘▘COS ▞M^▘COS >[O]▘ RUN > DIM ▘#t▘@8▝-CODE ▝▗" IF [D]▝STR$ DATA ▗ STEP ▖▗3▘ STEP ▞▚ INPUT LOAD ▚g▝Z▘ FOR -▘# LLIST $[R]WINT T[R]▖.D[R]ASN LPEEK ▗= DRAW ▜;8 DRAW ▘;7"▝<▘ DRAW [C][S]d DRAW ;5t~)c-e>[Q]U-e/K▝-e8▟mR▝ OR @bx[C] RETURN ▘y[J]*`CODE ▚t PLOT ) FLASH ?▘ RETURN FLASH ?▘ PAPER STOP DATA STOP ▗^ GO SUB CODE ▗ STOP DATA D?/▘:EXP ?▟▘[K]eL▘[K]INT ▝Ek|STR$ G>INKEY$▘▟©[K] -©[K][G]I[G]~INKEY$ DEF FN 6[D]] PRINT ▝?jNINKEY$▝% THEN ▝:m+8CODE cUSR ? LIST ?[D]/ PLOT [C]?[D]SIN t[C]▝BIN SIN - IF 8oZ▝-[T]▝▜NPEEK © DIM ▝]L▝STR$ 2▘10oWBIN =ZfBIN A0a▞CC ?A@"#$H FORMAT ▘C%VAL ▘%&jf▝IN TAB ▗. GO TO GO SUB 9▗▝ DEF FN COS ▗ INPUT LOAD ] INVERSE ▝<>|[L] OUT 3f▝▚8 NEW ▘3uNLN S▗b@8 OPEN #0<[N]▚INKEY$ BRIGHT BRIGHT SIN ▘0< LIST ▗INKEY$DDSIN OUT P<>0i▗r FORMAT ▘[D]+/3▖A;4%%%STR$ %USR ▘A> LINE = BRIGHT A▘@<> A;!@KP▝Rg3W[F] LPRINT 3f▝*[S]▘!`v▘<A FLASH APu ~▘ Pr>= TO c▗▘I▘/O PRINT ▝NQ IF EQ IF Op▝BIN FORMAT ▝ BLqRO#TH|(SIN ▘[P] TO ▞ TO D CAT C▚9 NEW INKEY$ /mY.▝7▝/).)/SIN ▝=n GO TO ,.+yy▘C TO C.Ma▘C9 PAUSE ▗. CONTINUE ▘9^▗wyC()<>2 TO = TO ALB1 DATA ▝;5> VERIFY LN 4 CLS ▝ PAUSE 4 CLS PAPER ©CHR$ ▗ COPY COPY @▗ COPY @@3▘ COPY USR ▞@ COPY _@JUUJ NEW ▜* DATA E▝O$▗EDJ[E]EEJ▗UE@_ COPY [Q] CLEAR u▝▝ DATA [E]▖USCREEN$ U[E]H COPY CLEAR $▜ IF IN ▛SCREEN$ UUSCREEN$ U COPY ▘▜ LOAD SCREEN$ CLOSE #RNDRt[N]BJy@© FOR COPY DIM UI<><=Dv[P]PR▗UDRUURSCREEN$ U@P▗QDP▗PW COPY P BEEP COPY @ CIRCLE [G](USCREEN$ [P]@[Q]@/ COPY SAVE LIST STOP %"PEEK ▗SCREEN$ RND▗[Q]CODE CLOSE #▚ COPY LPRINT SCREEN$ ?[M]▝[S] STOP [I]UUFN COPY RETURN TSCREEN$ RND COPY RND▗TRND!6 PAPER 0$[M]*STR$ }uUPOINT UPOINT ?U $ COPY $$ COPY BORDER 1hT$FN MERGE COPY <> PAUSE ▝ OR COPY !8▘▘[C]▝©USR @H@T@I_T@HGB▝ DRAW 1VAL ▗UU*[U]x LPRINT ▖ COPY ^@U@SCREEN$ ~Q>=0TAN ▞SCREEN$ SCREEN$ DATA [T][C]RNDPSCREEN$ [F][U][S] NEXT [U]SCREEN$ ▘%B* CIRCLE ▗POINT <[H] CLEAR t PRINT ©UT CLEAR UTSCREEN$ [U]!h[J]_>=PTHPU FOR PH LIST ▖O@U@JUSR ,Pl▜USCREEN$ k[E] BORDER USR $@%@$TAB " ~> RETURN "dE58585[G]▗ COPY DRAW © RETURN 0USR E`$,ATTR @8`5p8x5|8:5858EE DATA FORMAT DATA @P[Q]$PFN * COPY V COPY ▝SCREEN$ HI$[H] DATA FORMAT DATA FORMAT T DATA FN FORMAT P DATA [Q] FORMAT @ DATA ▘ FORMAT STR$ ▗DSCREEN$ ▗ CIRCLE [F]▗/@HUSR ▖ LPRINT H LIST SAVE SAVE DRAW G▝E#▘ COPY COPY RETURN ▘SCREEN$ KUT IF SCREEN$ ©T COPY REM © DRAW ▘DDlp$0$▚[S]TASCREEN$ TD $▝pH0H▙[Q]RPUFN RTT.RTRH▙ RETURN COPY ~ COPY RETURN SCREEN$ ~U RETURN ~SCREEN$ [B] RETURN R|U SAVE RpT LPRINT R@TRP CLS ▝A▙▝SCREEN$ 6P[A]▘ NEW GO SUB ▝ DRAW ▝pTAN DRAW ▝a▝SCREEN$ + [A]▝pTAN @ CIRCLE ▝1▛585r8[A]▜AASN ~LN >ASN AT LN q[I]q[Q]Dp DRAW A ▛[A] VERIFY $P DATA RETURN !h"p DRAW P$▟▝U BEEP POINT [B] COPY [A]D▞AASCREEN$ DATA V FORMAT * DATA TAN ▝![Q]1USR PVAL ▝DqDQBx:t CONTINUE SAVE !hplQVAL ▚E▘T*▞▝*!hVAL RETURN COPY RETURN UTq CLOSE #R▗^ATTR RETURN _Q CLOSE #qhAD▞RTSCREEN$ SCREEN$ TD*▗AACODE ▝>CODE ▝>CODE >~> PAUSE vCODE EB PLOT ▝ PAUSE CAT R COPY CLOSE #©[B][C]@W LPRINT p SAVE P|^SCREEN$ @xd! GO TO q DRAW 1 DRAW ~ASCREEN$ [S]BIN FORMAT $q DRAW ▟>|FN P[Q]E#`8.5,▜85P8*l▝~HH5J▚A5T8V▝P/▝~[A]▝X▝XT5$ A$85:8|5x8p5`8@VAL ▝D5V8R8T▗A COPY RETURN © DRAW 0▘4▝ CIRCLE c LPRINT ▝EFN [N]@ RETURN D~H>DH OUT PR[E]TSCREEN$ PP RETURN V[Q]▝E▝ J[A]UBSCREEN$ Dr COPY STOP $:▜$"> T?$8/ql1lp~▘>E AND $q CAT <=|:%"$"VAL ▗qDS FORMAT ? RETURN LLIST P T COPY * CLOSE #1h▝©H▝ POKE ▝▟[A] CLEAR 0U?SCREEN$ [Q]@ [Q] $▝*bVAL ▝X▟P FORMAT ^ DATA @ FORMAT J DATA T FORMAT >= DATA l▛J DATA ( FORMAT N DATA FORMAT D DATA *| FORMAT DATA IF FORMAT LPRINT g▝BIN ▘ FORMAT [Q]<▝FN 8▞* DATA FORMAT r DRAW $[U]▗+ RETURN W RETURN P:dBIN h▝▘ RETURN ?CHR$ ▝/8STR$ E[D] RETURN [S]|[S] SAVE [S]pPEEK LPRINT @ POKE COPY POKE SCREEN$ %▝▛A LPRINT >=*Pp0▝D▗▗U8SCREEN$ SIN Pp0PI▝DH▚[Q]*Pv[A][E]▝D}uVx[O]p$$%▖U;SCREEN$ 3U9SCREEN$ G▝]p$ BRIGHT ▖ LET U SAVE SCREEN$ FN UppSGN p>=@TAN ▜SCREEN$ [P]U:SCREEN$ VAL LpSGN p>= TAN p[Q]pFN pTAN l@TAN INK COPY $[A]Pp▝©$/Z▝SCREEN$ p0p$VAL ▝ATTR SAVE Pp▝W`H▗▝ CLOSE #Pp▘© CLOSE #Plpj▘UTpTpHplpp▝ATTR p[S]2@p VERIFY p DEF FN p>=2d▗@V[R]▘P▘VPOINT TW CLEAR UAFN UU[C]▘FN ▝0▜UU DRAW P AND P$▘P<▘V▝P0L▘T H▝X<▝ POKE ▝?TAN 0l▘UATTR ▖ATTR WATTR WWCODE CODE BF_CODE _IN _IN _IN ©▚IN ©IN $[C]©VIN ?_©CODE ? BEEP © FOR ? PRINT © IF ? DRAW pll[Q]<> COPY '[C]Hp[E]▘UU[E][B] CLEAR RETURN T CLEAR REM IF CLEAR PRINT RETURN FOR RETURN W COPY CODE COPY pTAN 0$ CLOSE #[B] COPY ©©@ COPY ©U COPY ©P ▗©@SCREEN$ USR ▗EDEDVAL$ ▚SQR ABS *POINT 351")▘318INKEY$ CLS P$▚ RUN LOAD UMINKEY$SCREEN$ ▘Ep$PH LOAD COPY M*▜MU[Q]M▖'0H▚ COPY >=© POKE COPY IF GO TO [D] RETURN © SAVE COPY PRINT © FOR COPY BEEP ©CODE COPY _~IN SCREEN$ ©IN COS %X▜>*|| SAVE X.▚ REM SCREEN$ COPY U COPY IF S0▝Bg<▗▚**TT SAVE CONTINUE l▝ IF T▚ MERGE U RETURN SCREEN$ COPY PRINT 0$▗ RETURN ©~IN Pp@l CLEAR $▝ COPY ▗ FOR COPY POKE © RANDOMIZE Cp&#`s▗TAN ▝ REM TAN IN _WIN *@TAN sFN VAL 4|<> COPY UXs FORMAT ▝© CODE RETURN BEEP SGN ▜ PRINT RETURN IF RETURN DRAW U CLEAR X▝plC SAVE T[Q]/ SAVE SCREEN$ ▘,FN ,| PAPER ▝©rT_2d▘_x▘CODE 2▖▘W[I]▝AT ▝AT ▝SGN ATTR ZAT ▞FN CODE IF *FN TAB PPR*t1 SAVE ▘-P @▘PSCREEN$ 80`$▝▘p▗SCREEN$ [S]-@▗SCREEN$ ▘-k▝U[E]▗ COPY CLS UYp▚YFN Yi CLS RUN YUSCREEN$ SIN YUFN SIN YQ▘FN SIN p$RAT OVER INPUT JSCREEN$ VERIFY fJSCREEN$ AND fJ"▘ AND fpHSCREEN$ DRAW | COPY || CLEAR |T||▘|▘U(d PRINT e2▘VAL$ Wu`uXT GO TO ▘VSCREEN$ ) AND u▗u|UXu[Q]uAT u[Q]%X[C]< RETURN SGN CLEAR | IF DRAW PRINT DRAW FOR DRAW [H] DRAW O DRAW IN DRAW ?▝▗ DRAW *FN <FN ▘ RETURN &*P▘ COPY <`( RETURN X[E]2 POKE ▘FN LN 8▝©wSCREEN$ IN Ws3c< OVER _s<< DRAW / DRAW _▝ CODE DRAW BEEP [K]▚ PRINT DRAW IF DRAW CLEAR |nlSCREEN$ SCREEN$ }[E]v|v▖q FvUSR ▝ CLOSE #vFN v[M](▗*▗TAB @Pp0t/`VAL$ ' PAPER W AND d▞▘-@ REM ▘@ IF ▘▞▟t[U]>=▝ IF SAVE ▝CHR$ p$▝4▝<@@HL▘-G▝© BRIGHT SAVE < DRAW "AT ▘U▖[Q]/ COPY TAB U*SCREEN$ ▝>=▝0TAN <> COPY @LN !|>>?@▘INKEY$▘U PLOT ▘SCREEN$ tp00▖ RETURN [Q] CLEAR VAL RETURN LN CLEAR LN [I] RETURN ▖ CLEAR p0▝Ut GO TO ▝FN .STR$ Ux DRAW [E]▘FB( LINE FN SCREEN$ t|q SAVE CLEAR [Q] RETURN [A] CLEAR FN RETURN [E] CLEAR SCREEN$ ▜ MERGE RETURN SCREEN$ CLEAR U COPY REM . IF COPY CLEAR CHR$ ▝ COPY lx[E][C] COPY U© COPY COPY © RANDOMIZE IN }_=CODE WATTR x▝BxLN p=▜ CLEAR [O] RETURN PEEK CLEAR SGN LINE VAL RETURN [Q][F]FSCREEN$ SCREEN$ © COPY USR _ COPY OUT COPY ]U CIRCLE ] COPY INK SCREEN$ ]▞ INK [Q]] INK [S]]USR FDSCREEN$ PEEK COPY SGN SGN COPY PEEK U<▚SCREEN$ INT <SCREEN$ INT :4#[O]D SAVE * LIST SAVE LIST COPY RANDOMIZE COPY PAUSE SCREEN$ SAVE NEXT COPY CONTINUE SCREEN$ LIST CONTINUE LIST SCREEN$ CONTINUE U FORMAT FN $ PLOT [R] DRAW COPY LIST COPY STOP SCREEN$ [A]" COPY POINT [S][S]POINT U[S]Y[S]FDFDtxPp@[A]p$p(, PAPER AT ▝ COPY (LN Hp INVERSE IN ▚ INVERSE [Q]Y INVERSE [S]0l▜ INVERSE FN Y INVERSE CODE ▖Y COPY BRIGHT SCREEN$ X LINE dUSR @/ PLOT DRAW © CONTINUE ▗.6" SAVE P DRAW ▞ INK [S] STEP [S] CLEAR LET TO ▗[S] COPY SGN ▘UPR POKE D[F].[F]^SCREEN$ <IN ZUSR ▜^WCODE N0SGN ENUpp@(|▖© COPY @TTAB V LINE ▝@%[C]▗JSCREEN$ U▚WNCODE UNE]>J__/JUd▝ `*SCREEN$ uU~ REM ▘© RETURN 5BIN CONTINUE ▚iTAB UI▘>=▝ INVERSE ▗0POINT P(POINT tUz CLEAR <UZ DATA ▝z▙▚(SCREEN$ rW(CODE ▗SCREEN$ r(0▝DPp $(LN *Sj▘BIN ▙URSCREEN$ (URATTR (_rSCREEN$ (rH▛INT R| IF IF R POKE SCREEN$ CONTINUE [I]▘5 POKE ▝U;@?[M]▚ASN [G][C]SCREEN$ ▝/ CONTINUE r,R{▖K[A]©SGN COPY :▘©SGN H▝[E][A]@*N[E]@:SGN SAVE :SGN H:HSGN : RETURN SGN :BSGN z$[J]DD[E]* ERASE [E]P:P[M]P:[M] DRAW :TSGN T8 SAVE ▗[U] AND ▝ LIST ▝ IF 6[N]▚[E]POINT *T[E]h▝POINT l$/SGN : LIST 8▝[M]hLEN [M].[M] LPRINT . [E] tADAD DRAW PLOT CLEAR POKE CLS PLOT RUN ▗ LOAD OVER ,SGN [O]x, PAUSE [O] NEW , DEF FN [O][O]<>[O] RETURN <SCREEN$ [O]<!D©<▘ COPY >,|p<` CLOSE #▘P RETURN PAUSE RETURN CONTINUE ▘SCREEN$ RFN RFN IN PAUSE CONTINUE PAUSE ▘ CONTINUE ▘ PAUSE PEEK CONTINUE ▛ PAUSE LIST CONTINUE PAUSE FN BEEP R▗AR ▖FN r[H] CONTINUE r▟ CONTINUE © PAUSE @ CONTINUE P PAUSE P CONTINUE @ CLS ▗ASCREEN$ SCREEN$ IN ▙IN COPY IN COPY [F]▚IN COPY *R CONTINUE ▗RFN $▘ CONTINUE 8 PAUSE * CONTINUE U ▝© ▘© ERASE L▝[C]>=▘INT l[P]SGN ^PEEK .IN ▜▙ATTR DEF FN MOVE NEW REM PAUSE LIST x REM < LIST REM ▙ LIST F IF [S] LIST X IF AT LIST ( IF RETURN LIST z▝}hR, LIST DATA ▖ RETURN ? DRAW ~ SAVE DRAW LIST ▙SCREEN$ SCREEN$ _j▝_#TAN ▗ IF ▚&R▚Q4P$▗▘>^▝[C][L].SCREEN$ [C].INT ▘.SCREEN$ RETURN . RETURN *FEFESGN .Ppp$p$0U▞_SGN ZSGN XH▝DPp▘XAT ▜ CIRCLE TAB X)[E]0 INPUT T▗PUh) CIRCLE ▙ DRAW ~j COPY 4©[K] COPY TO © NEW COPY PAUSE AT ▝ DRAW ~r~[Q]:VAL 4 FORMAT <TAN [Q]P▝ COPY ^[K]<>UH COPY <=©@ FORMAT COPY I INVERSE N OUT O[Q] OUT NOT O DATA OUT POKE [H]O RESTORE OUT BIN O[U] OUT %N+ INVERSE 'K/ FORMAT /@/<= OUT H?<> RESTORE ? CIRCLE 0f>><,TAN ©/▘~[L]U RETURN ▗ DRAW ACS ▗ COPY $USR v DATA PLOT DATA RUN PLOT DATA PLOT x[F] CAT DATA ' PLOT # DATA ! PLOT [Q] DATA BRIGHT v STOP $ PAUSE [G] IF ▗ DRAW f RETURN 4 COPY RETURN ▘~ [C]~SCREEN$ RETURN INT ~▘ RETURN SCREEN$ ~ RETURN SCREEN$ LPRINT CODE F CLEAR 4|xPp▚|xPOINT 4xp$p([A]4Th4 POKE hQ4TAN (Q44(CODE FQ4(Pp ▝ IN ▛FP7 RETURN P5jS(0RFN 5PP-[U]~AT RETURN Y RETURN COS RETURN g RETURN CAT RETURN [P] RETURN ? RETURN ©fR FORMAT ▝?~▝/▙▝*O DATA PPpp$6U RETURN + RETURN P▝UxPH▗RNDjQLP0~Xzh}d{▖pH▗TAB TeP0~[Q] RETURN ▘~CODE }FN }VAL { FORMAT }>=M FORMAT LIST xSIN ▝~{ POKE 0> PAUSE CHR$ LIST .V[E][Q]*U[E]VAL .u[O]▗FFBB<<▝©USR RETURN ▚|~ SAVE >p~ |<~4^<▖~ RETURN DRAW ~x> LIST |`[N] CLS IF | PLOT ACS NJ RESTORE .R^ CONTINUE >H LIST ,`USR TPEEK f|vFN /< POKE © IF VAL pFN ~|FN A"▞&D&▞nInRNDnIW PLOT V6tW PLOT POKE USR ▘ POKE ▜tV6W PLOT p(▘▞n8&A"0$▝E D▚RACS 6ACS RACS DP0D[E]▖[M]LP`p0▗▞nE&P$ATTR ZZATTR BRIGHT pt D;VAL ▝ FORMAT ▗SCREEN$ ETUSR pL[I]P80TAN ]AT ▟AT ]AT TPEEK ) OVER }[U]SIN ©[M]-LN ▘UU PAUSE ▘TCHR$ @<0Fn VERIFY ▗[C]DBIN [O]© FORMAT pH© DATA LIST ▗UT*SCREEN$ [D] 8@H© DATA © GO TO ~4rd© CONTINUE © LIST ~XEE[R]K~[S] RETURN !S[R]~" RETURN POINT ▝~*[S] RETURN SAVE ~ COPY @▝HJ~▖ ▝B▗B~SCREEN$ ATTR X%▛PEEK INPUT ~ LPRINT PEEK NEW ~ DATA PEEK SCREEN$ ~▝@@H RETURN [Q]| INPUT RETURN |USR DEF FN RETURN USR ▘N|NOT ▗|SCREEN$ SCREEN$ 0H▟uJ LLIST pw LLIST `v`▛w` LPRINT r[Q]%@P;▖[O]RND/OUSR O BRIGHT ▟USR L BRIGHT @L BRIGHT ▟ BRIGHT OUSR [M]HE@;AT [M] INVERSE P INVERSE SAVE @ SAVE INVERSE CIRCLE A[I]STR$ [I] CIRCLE ▞ SAVE @FN P[F]PL FORMAT [N]v?v?p7v31p37p?"*p R[A] POKE ▛ RUN Tw~~ RUN ^y BEEP N^"~U*TRNDTR@[A][G]U OVER CLEAR BRIGHT FORMAT DRAW PRINT OVER RESTORE FORMAT BIN RESTORE VERIFY POKE DRAW ▖POINT TABS UJ[E]<<© CIRCLE © LPRINT © DATA t© DRAW © CONTINUE © DATA [Q]EE DRAW ~ NEXT [O] GO TO n FORMAT AT AT *@T@4@T[Q]SCREEN$ RNDd OPEN #[G] GO TO n NEXT [O] DRAW ~+ FORMAT ▝Fp$@$▛[Q] IF RND OPEN # GO TO INPUT NEXT @$H▞ LIST [O] STOP nCHR$ [K]▘ DEF FN ▝~p$@$▝E0$[I] STOP NCHR$ F[K]Z▘B@~▗ IF BIN READ INPUT LIST 0$%X[C]UR OUT IF _ RETURN OUT IF W INPUT FLASH LINE U▙ FLASH LINE W INPUT ▘USR ?[M]P©LN ©BIN ©USR u PAUSE ▝VH▚ MERGE JRVAL$ BEEP REM 0D© DATA w LPRINT © LPRINT © CONTINUE u[Q][G]© RETURN LPRINT _ IF FORMAT SCREEN$ R PAPER CLOSE #SCREEN$ P PAPER OUT IF UZ OUT IF `uBIN x({H{PU CONTINUE ▘*▘dPp OUSR ▘@ REM CLOSE #▝ IF O LPRINT CONTINUE DX▘SCREEN$ DATA ▟TUI DRAW Px(+USR ▝ MERGE LPRINT FN [A]©VIN ©_©CODE © BEEP © FOR © PRINT © IF x BRIGHT J SAVE ▝ TO © NEW 8 FORMAT |8([D]EE CLEAR RETURN T CLEAR REM IF DRAW PRINT RETURN FOR DRAW W RETURN CODE RETURN |&8L[K] COPY © COPY OUT LIST © CAT COPY 0~STR$ CLEAR zA POKE u COPY CONTINUE hA FORMAT AP▘W INVERSE 1VAL ▞ COPY RETURN PLOT BORDER RETURN RETURN [C]PEEK ^ COPY ^..u VERIFY $00hA CONTINUE @ POKE zA CLEAR ~STR$ COPY 0© CAT /.@H00▗..@▚^PEEK ~T▝ BORDER /:l* CLOSE #▝ STOP D▝T▝/` DRAW !▝▜[A]▘ COPY TAB NEW ▝TAB PAUSE ▝[Q]( PLOT ▞[Q] RETURN [A] CLEAR FN RETURN [E] CLEAR SCREEN$ ▜ MERGE COPY U RETURN SCREEN$ COPY PRINT .▝ CLEAR 6TAN ERASE [A]*(TTFN (UU[Q]SCREEN$ [A]UFN ▚▖SCREEN$ FB&T COPY COPY COPY COPY MERGE ▞>~< DRAW 87 COPY %PI[D]+6Q4SQR 6q4SCREEN$ 6$SCREEN$ NEXT LN 1[L]| DRAW DRAW COPY GO TO Ul( CLOSE #` PAPER $ GO SUB l OVER , THEN l,[F]l CAT ([M] RUN 6 NEXT 46 CLS 4}6SQR $[+6SCREEN$ 7 COPY 0>?< AND @[P]E OUT ` LOAD $l COPY , OVER l INVERSE , PAPER h CLOSE # `SCREEN$ [U] COPY GO TO ><||+ FORMAT p[F]▞gkks><USR ▝?RNDc>`©▚<l©PI▘`~ ▗>`~c▚©0▝> ▘?H▜x▗ DRAW ▗▗8▗ SAVE ▗ SAVE ▗n▘|USR x▝ SAVE USR ▗ DRAW SAVE DRAW @▝ [M]▗xh▝▗P8USR 8USR 0▖ LIST ▖PSTR$ 8▗ TO TAN `▗BIN [U][E] p▝▗ @ DRAW ▘ DRAW P▘[E]h@▖▗|x ▖STR$ h00▖▖PP 0▘TAN HH0HLN ▘▖P▝USR @USR ▘USR USR )>▘``▝PBp[I]FN >=p▝[Q]0VAL ▗ LIST p0 LIST LIST 8▗0P[A] DRAW p LIST x SAVE CONTINUE SAVE `x▗x SAVE TAB x▗|x STEP USR NEW SAVE LEN CLEAR © NEXT GO SUB y2/[ CLS <>!SIN VERIFY JSCREEN$ MERGE GO SUB VAL <>>=▘qACS [R][J]ZPEEK ACS RUN LOAD LOAD LOAD LOAD IN b6) NEXT LINE CLOSE #p[Q]IN RUN RUN RUN RUN RUN IN OUT OUT CLS CLEAR ©IN r X▝ SAVE CAT VERIFY THEN COPY VAL$ (▞0(/" NEW AAED?<>A▝FSQR ▝Epppp<p<p<▘AAIpZpP>=ENOT Fp< THEN EGWZ BEEP Ep MOVE E[G].0Pp<pp$pZp<pBpxpZp`p[G] INK Ep ERASE MOVE EpTAN pINT q6p ERASE p CIRCLE qT▗ THEN pppp<p<p<pZp[pZpx LINE p~pvPEEK p[M] BEEP p MOVE p< MOVE pZ MOVE px MOVE p[G] MOVE pTAN MOVE p ERASE MOVE p LIST MOVE q5 LPRINT USR U▖8 DATA *, INK [S]ATTR LINE ▚R▗8>=*USR SCREEN$ ▛SIN FORMAT DATA CLEAR u IF IN COPY COPY ]W[S]▝Dp<▝ <@<▝P<▜ FORMAT E▝ DATA .@<▝UPx▚ DATA @[E]x@x▝SCREEN$ PxSCREEN$ © COPY @x@5@0TAN ▝<ABS ▝@<▘U0TAN ▗P▗8`0TAN ▘. FORMAT [S]SCREEN$ SCREEN$ @0TAN ▗QD5p0 LIST ▗T DATA J[E] RANDOMIZE Y`<▝x0 LIST ▝FN <▚ COPY COPY USR 0 LIST ,▝|1,▝P<USR @1,▗W COPY 8:1,[Q] FORMAT EEt▝@`<▝1h@ DATA J▗[E] COPY LOAD COPY _1h▗ BEEP COPY 81h▚ FORMAT UEHTAN ▝@1h▗5Q[U]▗SCREEN$ Js▝[U]STR$ SCREEN$ ▗8Q[U]▖_ COPY COPY CLEAR CLOSE #RNDUJ▝].q LPRINT LPRINT ▝~<Rq LPRINT Q LPRINT ▞SCREEN$ ▗(RNDUBRq LPRINT 2▚ DATA UUxyUDq LPRINT 2[Q]@RP<U52X[Q]$/UCODE © FOR fP<SCREEN$ 82X▙PSCREEN$ [P] CLOSE #[Q]RSCREEN$ SCREEN$ [P]a LPRINT ▝2[E]▛FN @@CODE COPY DIM UQ LPRINT ▝R[E]▟[Q] P▗[Q]Q LPRINT ▘ COPY DRAW 2 FORMAT ▟* COPY H@ UIQD`<▘© RETURN 2 FORMAT V COPY USR ▖/ COPY LPRINT <▝/Q LPRINT p<▖ LPRINT H ~▝Q LPRINT p< LIST COPY SAVE W COPY COPY SAVE p<Px▝ SAVE 8 /Qh▝ BEEP p<▘ COPY DRAW IF ▖SCREEN$ ?<><= BEEP COPY COPY STOP Q LPRINT `TAN %UD FOR ▝%Q LPRINT p LIST ▟▚"[S]1 LPRINT /3USR USR BIN 0▝ INVERSE "▘(P LIST ▝©0▘YZ▘p<p>< AND PLOT p<p<<▝-▙p<pxx▝CODE TAN ▘SCREEN$ [P]pxpzxSTR$ U▘@pTAN pACS TAN P[Q]pTAN pACS TAN .▝p<p LIST h▝ BRIGHT CHR$ SCREEN$ ▘/p LIST p PAUSE © RETURN X=▝q,q. COPY RETURN LINE <▘ COPY SAVE q,q.SCREEN$ TAN qhqh2:[▘ COPY STOP qhqj▘© RETURN VAL$ ©%SCREEN$ SCREEN$ 5d MOVE SCREEN$ ▘"r FORMAT CAT ▘SCREEN$ q CIRCLE q STOP RETURN ▚UTUTRNDq CIRCLE q STOP POKE p<rp<▝hrr @<▝CODE rPrZPx▝ CLOSE #p<rXpxp<r[E]b[O]▘ rr[G]R[Q]▘ r>=r ERASE b BRIGHT ▝ LPRINT r>=r ERASE p<sspxsc▝pxsHcR▘SCREEN$ ?s@sJb"▝ INK SCREEN$ ▘[S] INK ▘UU/SCREEN$ SGN 00C TO ▘LN 0`C TO ▝FN DRAW ▗ OUT LIST PLOT 0PT▝VAL © CAT BORDER SAVE 00D▝ RETURN 8 COPY 0400DD▜T© RETURN ~STR$ DATA 00b^▜RND COPY RETURN CLEAR ~0P`TAN ▜© RETURN zAPEEK 0PT▝ COPY <▗ POKE ^0P` LIST [Q]▗u COPY COPY ^0PTSGN ▝Tx▗ CONTINUE .0Pa,▜© RETURN hA.0P`xd▗ FORMAT A0Pah▝ OVER 0Pb[E]SCREEN$ SCREEN$ <0PS TO ^▗W INVERSE u VERIFY 0Pq LPRINT pxp~UAT ▘*pxp~UAT ▝ BRIGHT pTAN pTAN 5 REM ▝STR$ LIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLOSE # COPY LPRINT COPY USR ©▙ LIST OUT © LPRINT U,J>/USR G$USR SCREEN$ USR [Q] LPRINT 0▘ LPRINT LIST *▖T LIST [M]X SAVE W▙LN DRAW T[E] COPY }@▝| LPRINT |~▘8▗▝ ▝STR$ [A]▘ ▝>0▘ COPY <▜> LIST SCREEN$ lJL>▝&[A]*▘$▘`[A][Q] LPRINT <*▝ SAVE [A]▘ BRIGHT [A]▘J[A]N CLEAR Zplp~00[G]0[S]@VAL$ TAN ▝ DRAW INT ▗ DRAW ERASE ▝D[G]LN ,[I], PLOT ,,▘USR [M]▘USR 2,G, LPRINT INT / LIST V▝ LINE 1 Nn&▝[P]!▚▝_[C]Q[O]1SCREEN$ ▝TAN ▗ RETURN p ▝ SAVE ▘ SAVE !ACS ▝ CLS ERASE ▘ [C][M]pR84:|h$ STOP U LET (▜ ] LET p0CHR$ [B] STOP USR *|[Q]9@▟)*?PEEK COPY OPEN #q q q q ! CLOSE #@|?lU▟ ;8p2|T STOP d▘▘$ ▝0[M][G]▘ LPRINT *<;9@ TO [A]N▝? ZAT qr@r@r@2F▝▖L TO ▝" ERASE ▛USR 8[G] PLOT ,▘4 ▝h▘P!&▝!2`4 ▘pJ▖`S8USR POKE ▘!n▘?=▘ RANDOMIZE ?6▝ IF #<![C][O]1SCREEN$ /PEEK ^▘ DRAW h▗ SAVE [Q] LfABS ERASE [H]▙ LPRINT @ LPRINT < LPRINT B<=▞PEEK yABS [O]}LEN SGN x COPY Q<~``▝[A] BRIGHT ~@}▟ LPRINT [K]AT USR r▘STR$ X▝,X▝▝":▝?"@▘ ▝P" LINE ▝ LPRINT NEW OVER bF LIST @ LIST <B r▝▝v▝y[G]▝ABS [G]▝ COPY [G]▝<GVAL$ ~ PLOT 0 VERIFY ▝USR B~ TAN Z FLASH USR FN ▘▗▗Z@ RANDOMIZE CIRCLE 1$0▝▟▝(# LIST ▘ ERASE ©`▝ BORDER ! PAUSE ATN ▘▝<[O]<B LINE x▝Y▝}&▝SGN A ▝= MOVE ▝PEEK G COPY `P TO x~@ DATA ▝LEN SGN ▗7? DATA ▖? PAUSE 4?▝1&Q2A>J1VAb!n1z1▚A[C]1[O]PACS 1CHR$ 1 DEF FN A PAPER ! NEW 1 PAUSE A RETURN "22"2.2<1&12A>!J1VAb1n!z1▚1[C]A[O]QSCREEN$ ACS !CHR$ 1 DEF FN 1 PAPER A NEW ! PAUSE 1 RETURN 222"R.:1&121>1JAV!bAn!z1▚1[C]1[O]b LINE ACS 1CHR$ ! DEF FN 1 PAPER 1 NEW 1 PAUSE 1 RETURN 222"R.3Z FORMAT POKE R LPRINT Z` FORMAT FRND ACS COPY FORMAT R COPY [A]N COPY pa_ [I] `INT H LPRINT ▝[A] LIST EXP H` NEW ▝"▞Q-az6▖ DRAW #R RETURN PLOT N▘ Z FORMAT {B▘ LPRINT '<j COPY FOR 'H▝ IF 'N▘ FORMAT N"fUSR /▘$ ERASE ▗@ RETURN BRIGHT VERIFY STOP ▝([A]▝@ [A] FORMAT [A]▝@[A]▝ [A]▘[A]USR [A]▟ @/@▟a~@60B@N ZUSR #CHR$ ▝">=0~04▘▝ASN ' DATA ▘J'Z▝%' REM ▘W PLOT FN FN ▘F[G]Hx▗-c_PI▛ [I]INT J@ [B]USR ▜J LPRINT :[A]▘ OUT f▘c TO ▘(6USR B N▘USR N LPRINT ▚CHR$ GO TO ▝ GO TO ![O] RETURN IN qSIN ERASE ▝/ SCREEN$ ▘ GO TO ▘▗([A]▘mINKEY$▗JUSR (▞ r IF ▚▖USR ] LPRINT [Q][N]D/[I] ▝^*TAN ?Hr© OVER ▘BIN N▝`▝(T OVER @ POKE j"N▝ BEEP ( DRAW ▝_'R"<D▝▗8$AT ©SIN ▘k0▝ IF [A]▝ [A] LPRINT [A][Q] [A]n▟ /[I]:▖}*▝LEN 06`B N0Z▝BIN f▝ DRAW r0~0V4▝TAB 1TAN INT RETURN [U] COPY REM CONTINUE ▘▝bFN ▗` ▖ AND TAN FN >=, VERIFY ▚▞t▛[N][R]/[I] CLS x▘ AND [A]`▝bl▘ LPRINT n▗ LIST HSIN ▘▗ LIST C[O]▝7 ▝ CLEAR &ACS ▞B© IF SGN / RETURN P OPEN #▖f▗ BORDER [U]USR x▗ OVER ▝ TO [C][F]@j((|▝▝F▜4ABS USR OVER <USR BIN ▝VAL IF $` POKE ▝ THEN ▝ DRAW # OVER ~ ▝▝# LIST ▝ CIRCLE ~▗ COPY LET 2 ERASE [E]? CLS A OUT FORMAT IN )[E][K]▞$RND▖BIN ▝ PLOT ▝[F]VAL ▝6[S]▝lx▝`SCREEN$ @[A]▘pb▗<0 LPRINT C▘ LIST DATA 0[A]▝NOT p[A]p[A]P[A]0[S]▝ RUN +.▝ LLIST $jV▗!©▝^F▚USR [Q]▛$!RNDUSR x▝ZP[F]R($▚▝JbABS , DRAW ~n< ?USR ▚▘ BORDER ?SGN ▘ THEN ) LIST q A ▝NOT q2▘<=:[U]0!J&Q21>1J1VAb%Lz1▚1[C]A[O]1SCREEN$ !ACS 1CHR$ 1 DEF FN A PAPER 1 NEW ! PAUSE 1 RETURN 222"2.2:1&Q21>1 GO TO p[A]p[A]*h▚1[C]1[O]1SCREEN$ 1ACS ACHR$ ! DEF FN 1 PAPER A NEW 1 PAUSE 1 RETURN "B""2.2:Q&q>R|1Vq 1z1▚1[C]1[O]ASCREEN$ QACS CHR$ ! DEF FN 1 PAPER 1 NEW a PAUSE RETURN 2"2"2.2:▝5[K]* DEF FN UB[Q] FORMAT ▜TAB PW BEEP oCODE P9▝[ COPY M GO SUB CHR$ ▝IN K▝PEEK PEEK ▝ GO SUB CHR$ ▝ATTR TAB ▝PEEK [w MERGE THEN ▝ REM INVERSE ACS BRIGHT <▞▝%STR$ ▝|c▝o;▝/B▝ CLOSE # CLS ▜[[Q]ZASN CHR$ [I].[P] LPRINT USR USR [Q] LPRINT @ READ >(▝v.▞ RETURN ▛[ VERIFY LPRINT /ATTR FORMAT C OUT CONTINUE [M]▝ COPY >=▝SQR ▗} OUT R▝+)~▝ GO SUB T[U]▝FN [M]▝_SQR ▝[ COPY ▝INT y▝PEEK 'CODE ▝_<s▘VAL Hx RETURN ▗ MERGE ▗CODE 8&[E]8rn▘<2FN /VVAL$ +ATTR ▙=^ CIRCLE W LOAD X▝:,▝* REM ▝ OUT VAL$ SCREEN$ n©[A]SCREEN$ FN DATA ▝}[O]▟WLN >IN CLOSE #?▜ CONTINUE FOR OVER ▘ OUT [A]▜ LOAD USR USR BEEP [E]VAL$ ▘0[A]P[A]; CIRCLE ▝ BORDER /:▝CHR$ !,▝USR !, GO TO ▞@▝>▗# NEW A[O]▞UABIN VAL$ A`▗Uc READ POKE ▖GSTR$ HFN "QUSR Z▗ MERGE ?&▝Bf▘!z"j(SGN ▞CODE ?A LOAD ▜ LINE ?SGN j RETURN ▝ LET ▝D0▘JUSR ▝fAT TO AND ▝.[Q]▝.SIN ▝ OVER ▝4[A]▞>@ LPRINT FN VAL pv▘(|▝| REM xlL POKE >AT LN STR$ USR `USR ▝P,z▝.[Q]▝8.AT 58 STOP "<~S FORMAT ▗ RUN ▘▘ LIST 8[A] PRINT ? CIRCLE ▝ LPRINT [C] VERIFY SCREEN$ ▝GV▗ LIST ▘ ▝0▝[M]▝`2▗U@USR v▘ n▝0▝▘4`▘0"▝▝ LINE 4ABS SGN h LIST VAL$ COPY >N BRIGHT `▝SGN DRAW ▝?Nb//USR ▝F*▝)[ ERASE TO /USR ▘[E]/INT ▘b REM POKE [A] LIST F` DRAW > LIST ▝▝ AND ▝=z▝USR GO TO TAN 4▝ COPY CHR$ n▘PEEK PAUSE ▘SGN D▗▝|,▝x#▘USR H▝SCREEN$ l▝ PLOT DRAW ▝L▘![M]▝ INPUT ▘ STOP r DEF FN /VAL ▝EXP ▘z}[I]▘@▚@ LPRINT LPRINT PAPER ▞ LIST LIST LIST SAVE [Q]IN JEXP PAPER EXP jINT PAPER EXP IF INT SQR SGN SQR SCREEN$ SGN :ABS LINE ABS :ABS ZPEEK REM PEEK zIN REM PEEK USR [K]USR *STR$ [K]USR INT STR$ JCHR$ PAPER CHR$ JCHR$ jNOT IF NOT BIN IF NOT OR SCREEN$ OR : AND SCREEN$ [G] OR dP RETURN ePF{P▚ CLS COPY © POKE COPY dSCREEN$ [D] COPY COPY OUT 2<>=P TO TO H|▝▘ PLOT ▝▘[A] BEEP -▝#▝Y(ABS ▝F▝▘0▝X MOVE [A]K▘PP▝▝▝#▝(▝▘▝(▝[B]▝▘▝[L]▝▝A FCODE ▝x▝Z▝PEEK PAUSE Ui▝[B]▝ BEEP ▝>=▝ BRIGHT ▝ # BEEP ▝ LIST ▝RND@Z <▝ PRINT ▝ NOT ▝) LLIST ▝▝!, LLIST ▘ BEEP FOR CODE ▝ LIST ▝▝ DRAW PEEK " BRIGHT FOR a▝h LIST ▝▝ P▝@1▛Y0 IF c▝Y▝r▝!O[U]▝▝ GO TO @w▝` COPY FOR GAm▝ LPRINT ▝!^!▝ LPRINT ▝ RESTORE ▝CHR$ _![U] >=!LN ▝!O!▝▝ LIST ▝ PRINT TAN ▝ POKE ▝▝ [L]0 d"▝![A]aLN !1! LIST 0&!,▝{▝! POKE :▝▝"&I▝▝FN ! RETURN ▝`NOT ! MOVE >=▝!ATN !<=▝ TAN MERGE ▝▝ FORMAT !CHR$ ▝`▝ATN ! VERIFY s▝ THEN "▝ CLEAR ▝ AND ▝ [G]a VERIFY !!r▝ DIM "▝![F]" INPUT ▝`R:! RANDOMIZE ▝H" DIM ![A]▝▝( IF ▝I"{" NEXT BRIGHT ▝"SGN "[O]▞▝ SCREEN$ COPY p▝"LEN !," PAPER "[E]#▗! POKE lUSR INK ▝!O[S]▝!h`d! RETURN "[J]"&#SQR 3a!▚![F] DATA 3©cM CODE [B]#k#a" AND #a0 DRAW ▝B▝"[O]b#ACS ▝"[J]▝#j▝a|3 _ >="e▝,[C]a VERIFY ▝e▝"$PI▝# CONTINUE cz▝$LBIN #p▝"FN LEN $ OPEN ##ACS #[D]![R]▝$b:$~# READ ▝a^"5u BRIGHT ▝d▝$▝_▝.▝1 VERIFY !"c PEEK $j$Q▝P5|$VAL !'%"g$ GO TO ![A]▝EXP ▖EFN "!^$INKEY$▝"+#SQR RND!▛0sTAN % BRIGHT $3$ STOP $% LIST #u▝# RUN $[C]dVAL $ATTR &"D!r$ASN ▘@*BC[F]EFG @ A B C D E F GUSR @IN A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @[O]USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT G:KL LPRINT IN NO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMTAN NO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT O^▝QVAL$ ▝S LINE IN UVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTACS UVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT WB[B]USR @@wSTR$ :EXP ▗cAT @ Z▘w READ p 39@&▝[F]hUSR 0 NEXT PY &▝c >=▝USR `Y▖U LINE ©▙@ 0TAN INT ▘ AND ▗ USR p© ▝tINT ▝ AND ▘p©Q0▝CODE Kp©q0▝ FORMAT p©▗INT Pep[N] [N]USR 0INT ▘ AND GO TO 9!▞ SAVE COPY pIN CLEAR COPY LOAD ▘ COPY x COPY COPY | USR COPY COPY ~ ▝ LPRINT ▝© (▚ LIST USR ©- SAVE ▝NOT ▚ DRAW LPRINT © READ ▝~▗{ NEXT x LLIST LOAD COPY y CLS y COPY LOAD ▜x CLS RANDOMIZE COPY LOAD {▝ LET pP▘ LLIST ▖ INPUT x{▜STR$ LPRINT p▘ READ ▘▝P▘[P]▘ BORDER DEF FN P▝ COPY ▝PEEK ▝Z>=p▝>=@ BRIGHT 0 COPY NEXT NOT SCREEN$ [D]▝@[J]▘ LPRINT ▚ GO TO ▞USR +[T]@USR !@"@:IINKEY$ INVERSE !MSCREEN$ RETURN LINE [L]SCREEN$ INVERSE !fSCREEN$ RETURN < OPEN # RETURN NOT [F]SCREEN$ b STEP COS SCREEN$ USR ▘2 INK [L] TO INVERSE n INVERSE f INVERSE N INVERSE F| PLOT USR g OR INVERSE N STEP [K]RND~ PRINT OPEN # RETURN STR$ #xLEN CHR$ NOT SCREEN$ CODE OPEN # RETURN INVERSE # INVERSE # INVERSE #<> COPY COPY COPY COPY COPY COPY COPY READ ▘DABS M/Pp FLASH p@pHpPpXIN LN INK NOT VERIFY INK o&)]T) LINE THEN OINKEY$ GO SUB VAL :OINKEY$2UINKEY$2VINKEY$<>:QINKEY$PI>= NEXT O:RINKEY$G:UINKEY$o:VINKEY$g> OPEN # RETURN }=CHR$ INPUT INK AT ▞|=CHR$ PLOT INK GO SUB :P ▝5"▝9▘:Tp▝S<0IN y2QINKEY$ CLS <>[G]00NOT SCREEN$ PAPER NOT RETURN PAPER NOT FLASH NOT & FLASH NOT ; FLASH NOT c FLASH NOT PI FLASH NOT STR$ FLASH NOT BRIGHT NOT > BRIGHT NOT SIN BRIGHT NOT <= BRIGHT NOT INVERSE NOT 4 INVERSE NOT ▝ INVERSE NOT STEP INVERSE NOT Q OUT NOT IN L OUT NOT W OUT NOT OUT NOT ▙ LPRINT NOT BEEP LLIST NOT GO SUB LLIST NOT STOP NOT ? STOP NOT STOP NOT READ NOT * READ NOT r READ NOT READ NOT ATN READ NOT PAPER READ NOT ! DATA NOT 4 DATA NOT U DATA NOT p DATA NOT ACS DATA NOT INVERSE DATA NOT [L]b BORDER NOT [U] BORDER NOT CODE BORDER NEXT GO SUB s IF PAPER >1Z ERASE !JSCREEN$ MOVE GO SUB [Q] GO SUB [Q]Pppp$p.8=CHR$ ATN PAPER 1[C]_ CLS <> OPEN # COPY FLASH RETURN [Q]<>Z▜" FLASH 1Z TO MERGE ▚;; GO SUB 1[A](▘ RESTORE ho[A]J ERASE ~_#~W&i FOR LLIST <>TAN ))[U] GO SUB KBIN RND STEP & FLASH ~# IF :BIN RND<2BIN RND<><ATN GO SUB R0 IF <>'CODE STEP / FLASH RESTORE STEP ; FLASH LLIST CONTINUE pdp▘p LLIST 2▘>7<>&pp BRIGHT : STEP RND▘T]STR$ )[L]PI GO SUB RJSCREEN$ GO SUB { DEF FN RND: TO RNDOY MOVE {INKEY$SIN w#0 ▖ DIM 1▙▘: FORMAT > LPRINT [B] RESTORE MOVE og~ THEN [P] THEN PIw▝<pp▙ THEN OUT THEN BORDER w<>! OVER RND6: INVERSE RNDW[B]AT BRIGHT : ERASE RNDG: MOVE RND STEP RETURN PAPER TO [N] BRIGHT : CLOSE #▝ OPEN # ▗[K] BRIGHT : VERIFY ▝ MERGE ▗[Q] BRIGHT : CIRCLE '▝ BEEP '▗[T] BRIGHT : PAPER 4▝ INK 4▗INKEY$ BRIGHT : BRIGHT A▝ FLASH ALN POINT BRIGHT <> THEN AND <> THEN DEF FN <> THEN OVER <> THEN VERIFY <> THEN NEW <> THEN INPUT <> FLASH 2 OVER RND<>: OUT RND THEN G TO STR$ BRIGHT BIN BIN BRIGHT 2{Z<>>B<>>D<>>!X!INKEY$rr r*r4r>rH[H]PI=CHR$ CAT BRIGHT <>!ACS P GO SUB [ REM RND STEP ( INVERSE ! VERIFY P <>w#[O]$- PRINT <> RETURN COPY >= RETURN d LINE [G] INVERSE RETURN [G] LINE TAB INVERSE RETURN [H] LINE ACS INVERSE RETURN >= LINE [U] INVERSE MERGE 2[U] FOR "▘▝ INVERSE USR $USR ▘;b:5INKEY$ THEN gBIN IN INVERSE MOVE (▝ MERGE r["[▜yo MOVE <>@▘ OR RND#▚2 STEP INT _T▝!9▝ NEW 5▝INKEY$>▘[S]> STEP SIN INK STEP [U] BORDER <> STEP W OUT STEP FLASH STEP b BORDER STEP CODE BORDER OVER STEP 4 INVERSE STEP [S] LPRINT CODE USR IN STEP > OUT > STEP L OUT STEP ASN INK STEP ATN _z RETURN LINE OVER RETURN LINE [M] OVER RETURN LINE INT OVER RETURN LINE READ OVER RETURN LINE q OUT RETURN LINE OUT NOT DIM INVERSE d8)#*[N]dH+dP,▚X-6PIdh(dx#!)100 COPY =▗PI LINE DIM INVERSE [O]▗>[O]CODE 2 INVERSE RNDCODE FORMAT ▝2Yp▗L OUT >pw▝p;▝<▖! GO SUB RND MOVE RNDpG▘ RETURN pdG▝)▝ RANDOMIZE p)0pjA{ RESTORE NOT OUT ▛[ STEP OUT ]TAB ▗USR !INKEY$Pa▝<> CLS [P]G! FOR X STEP Q OUT <>w# DRAW <>PI>= CLEAR <> INK OR ▟CODE CLS STR$ INK LOAD INK <>pQVAL$ ▘S LPRINT [S]▝▙[S][F]INKEY$2INKEY$2INKEY$2INKEY$2INKEY$2INKEY$2INKEY$! FOR [O] STEP USR _ STEP NOT _ THEN ^CHR$ [N] OUT :INKEY$ SAVE ▛INKEY$xw STEP RETURN OUT >1 SAVE ▝<.▘ RETURN #▝ INVERSE [P]▖:INKEY$ STEP ABS _: ▝ ▝ ▝ ▝ MOVE [P]▚8[C]2▗CHR$ LPRINT @@▝H@B▝P@*J*▝X@8R8▝`@FZ▙CHR$ LPRINT <>d B8B▗H7[B]Xd` COPY Q▘▞{ RETURN >=NOT [B] LPRINT p▘ FLASH MERGE r OR ▝ MOVE @ ▘RND LPRINT ▞Ba~2 CLOSE # LPRINT CLOSE #O▚<> COPY d▖ OPEN #▝ COPY / IF ▝[T]▖p* STOP ▗`?" ABS ▝#!piUSR p~? ERASE ▘pVP~▗!MK FN %-▝©▗ ERASE ▗SQR C )▗ COPY : GO TO &[C] LINE OPEN #" REM RND STEP INVERSE <>G! LIST LPRINT AT ▚T]▖"SIN "JINKEY$]▗ INPUT <>:&c AND ▚ THEN FOR :' SQ[B]$INKEY$2 TO RND:%INKEY$2 STEP RND STEP STR$ FLASH <>:2 /vyy▗:1INKEY$_r▜ GO SUB [3INKEY$9▝Pp▛<> NEXT INK "INKEY$ STOP INK INVERSE *CHR$ RND VERIFY [U] RESTORE MERGE STEP ATTR STOP MOVE LLIST ## POKE CHR$ FOR INK !X' INK CLS <> INK INVERSE ~ INVERSE #'v& DIM RESTORE INK MOVE INK INK E[P]▖ INK LET INK ,p* *p&[D]▗#wTAB ▗ INK "& READ 0▘INKEY$@▝ BEEP `▘`[C]<> INVERSE ~ THEN G LINE l READ INVERSE ~ THEN ? THEN ? THEN ?wrrjFN [Q] RANDOMIZE ▛>w#w#w` ▜ INVERSE <>xp>wVAL >INKEY$▝<>`▝O^▞G STEP r READ RESTORE INVERSE LLIST >pJpS^▖<>< INVERSE w* LPRINT RNDR▚" LPRINT RND: STOP q▘ STOP RND+▘ GO SUB LLIST E6P#▝ #▜>c2 READ RND>p!▝ BORDER RUN [C] RETURN [I] LINE DATA :0INKEY$PI LINE DATA =20INKEY$<>CODE ▘>▖=2 FORMAT RND<> STEP CLS READ 00 }[L]▝ AND ▘▝0_▝p{▘ BORDER <>g[G]▝▙i▗PI LINE Z DATA [D]▟<>>CHR$ wPI GO SUB B>STR$ w_▗>NOT w RESTORE p<>▘: DATA u▜ DATA RND LINE PI DATA > TO ▝6 INK ▗ LLIST <>>p▘:-c!2 INK INKEY$▞GCHR$ MOVE DATA THEN OCHR$ BEEP DATA .▘ACS <>4▝ PLOT ▝ RETURN 8+▗>= THEN w>=LEN 1TAN ( TO #X STEP ▝<SCREEN$ j`!yGG▘INKEY$% DEF FN ▝~q INVERSE ##@ DEF FN Fpppp606▝> CLEAR POINT RPEEK COPY INVERSE STEP [Q] RESTORE STEP 4 NEW STEP TO RESTORE STEP RETURN RESTORE STEP a NEW STEP z NEW STEP [E] NEW STEP VAL$ NEW STEP <> NEW STEP GO TO NEW STEP BORDER STEP 8RND▝% LINE k MERGE ▝ LPRINT 5▖▖ DEF FN =PI>=+ INVERSE +@[O] PLOT ppP▝; ▘▝STR$ ▘o▜ RETURN >=p)p6pC INPUT ▝? LN ▝ABS 6▜%INKEY$ RETURN h>=`▝Zqq"▘/ RESTORE ▝[O]@-▘PI>= [K]▘ OUT PRINT ▚ INVERSE 6!P▝▝ READ P▝@`04▝_3 4▝[R]pz@ACS ▝cP▝[N]P[F]▘>=,▝USR @f[B]0r▝>PX▘`>=SQR ▝@Vp$[G]▝~A▚PI>= RETURN >= INVERSE H AT D` PEEK ▝CHR$ q: RETURN >=p!p*0 CONTINUE ▝SGN d[R] NEXT !J MERGE "| BORDER GO SUB s[Q] BORDER 1j ERASE LLIST >ASN o GO SUB s[L] BORDER 1 VERIFY MOVE s,r, p▞ GO SUB s| BORDER 1SCREEN$ ERASE OPEN #,~LEN - MOVE ▘ VERIFY & STOP INVERSE SCREEN$ NOT CONTINUE NOT B CONTINUE NOT FLASH REM NOT h GO TO NOT ▗ GO TO NOT THEN GO TO NOT FLASH GO SUB NOT CIRCLE LET NOT PAUSE NOT PLOT PAUSE NOT 8 NEXT NOT R NEXT NOT PI NEXT NOT U POKE 4 VERIFY < CONTINUE INVERSE ~JPEEK ▝SCREEN$ SAVE INVERSE ~u SAVE SAVE { SAVE CLS SAVE ▘D PAPER 4 LINE 4 FORMAT ▘: OVER [A]CHR$ m CONTINUE ▗EXP CONTINUE THEN WCHR$ DIM THEN _CHR$ Q DIM RESTORE ▗GCHR$ ▟ LOAD ▖gCHR$ COPY INPUT STEP t PAPER <>CHR$ ▘&INKEY$"w▚ LINE [P] DIM STEP $ GO SUB GO SUB PRINT STEP PAPER LET xPIUSR INVERSE ~!?PIUSR INK ▝ PAPER POINT 2$INKEY$▙▞< RETURN TO [N] DIM 2'INKEY$L▝CODE @K▚ LINE RETURN DIM STEP PpK@K▝ COPY K▝P▝;pKSTR$ ▝=pK`K[H] CIRCLE ▚ LINE [B] REM STEP l INPUT p[H]0[H]▝Z[H]▝[[M]▝/p[H]▗ AND 2%p[I]PM▝0M▚PI LINE G REM STEP ?pL@ READ ▝ STOP READ ▝ READ CONTINUE ▝ DATA p READ S▝ VERIFY pL@ DATA CODE <>:.INKEY$ RETURN CHR$ TAN DIM > COPY 2.INKEY$ PLOT $▝-▝<▟x STEP POINT 0b"CHR$ RNDCODE #▝.▞.INKEY$ INVERSE **INKEY$:?INKEY$%▘:@:A STEP CIRCLE LET STEP h GO TO STEP PAUSE QX_▗PICHR$ REM AND ^ DEF FN ^▝=p^`^▘>0_▝=▞pI`I▝/I▝[I▝/ I▝@0PI CODE pFN @J▝h4▝/▖▝/pJp[D]▝/ PAUSE ▘INKEY$ REM @K [M]p NEXT P NEXT J▝<pJp INVERSE GLEN ▘7 FOR [E]▘7 FOR K▝VAL$ ^E▗EXP BRIGHT = FOR F▘oUSR P LINE FOR CLOSE #▛P© DATA ▗LN BRIGHT GO TO `6▘EXP K▘ CLOSE # CLOSE #@97 THEN > INVERSE w0▝CHR$ ▞~PICHR$ CODE GO TO 9` SGN TAN @2▝2>= INVERSE w( CONTINUE INPUT <>CODE pM▝+pJpS0J▝= RETURN 0.pIpI<>>p[H] [H]?▝B [J]▝#0@[D] VERIFY @/p[E]p[E]<>>p STOP STOP ▝Z@ STOP pI I▝ AND I0-p INVERSE p INVERSE SIN ?+ TO 7NOT "*INKEY$<>LN ?FN LPRINT ~ RETURN E LINE [U] GO TO RETURN @ CLOSE #AT GO TO BRIGHT POINT GO TO #xLEN REM <>>NOT [L] GO TO ><>><> RETURN USR CODE ▚< RETURN LINE IN GO TO XVAL >=▝<SCREEN$ [M]▘ THEN ?>9[P]▚ THEN ?GY STEP _ PAPER /$_▗ STEP GO SUB ▘[E]<> RETURN DATA LINE ▞ PAPER RETURN STOP LINE PAPER RETURN AT LINE PAPER RETURN LPRINT LINE [C]&pYpYpY## STEP { GO SUB k▝ppp+p+<>:IINKEY$ RETURN >=~ RETURN BIN TO [B] GO SUB RETURN OR ▚<> AND w<> PRINT STEP PI LINE INK GO SUB LET ▝ RESTORE V!▝▟!▘▟ GO SUB 8p▝ GO SUB ▝Z▝=▝52 LLIST <> LET @`Zx~ RETURN STEP TO ; INPUT RETURN TO ▝ THEN ▝ LINE ▝<>▝>=▝<=▝ AND #[A] FORMAT TO PRINT INPUT RETURN MOVE TO RANDOMIZE INPUT RETURN ERASE TO LET INPUT RETURN OPEN #▝ CLOSE #▝ MERGE ▝ VERIFY ▝ BEEP #AT VAL$ qtqtqt▝▝▗ STEP [H] INPUT #q[R]q[R]q[R]CODE COS `+A▚ CIRCLE TO VAL$ INPUT RETURN INK ▗IN TO [I] PAPER q▝ VERIFY ▝+[U]▝ INK POINT ▘)`qA▝ LLIST Q▝<>:<>> PAPER ▘ FLASH w` PRINT ▝ AND POKE ▜G[A]!<>+▝"| RESTORE , RESTORE ▗D PAPER : READ [B][G] LOAD =A▝6[B],▗▙ STEP V LIST RESTORE ▝O2}]:7"8INKEY$ ^!J THEN ^▜6INKEY$ STEP OUT LOAD STEP [F]0:▚CHR$ LOAD STEP [M] LOAD s▚2<INKEY$ STEP BIN LIST ▙▝▚) OR [D]q PAPER <> NEXT GO SUB s FLASH LOAD GO SUB {6INKEY$*8INKEY$ MOVE {INKEY$SIN +1 0ppp(; CAT ▙PI LINE LIST RETURN LINE LIST RETURN LINE 9 LIST K FORMAT [I] THEN ▝: POKE ▚ AND 2;INKEY$<>d▝+0▝=0@ READ @.▘ AND @0▝P▝ INPUT TO @▝0M OR M w▝sw▝~w▘ LIST *3▝USR c▝ DEF FN *PIp▘ RETURN P REM @"!_▘:;{[D]~ah▘::;[D]▘PI>=p/▗ VERIFY STEP © NEXT s▗W>= STEP LIST ![H]▘VAL$ LET @▝^0▝CHR$ c3u`/t%▘_ PAPER W▘ THEN ?+ GO TO ▘4 LET ▝ LPRINT ▚ BRIGHT LINE D LET RETURN INVERSE ▝ OVER <><w,▝[G][E]7F▘<w}▛p` [K]▘:<`▘[F] LET ▗▘[R] LET ▗▘▘ LET PAPER RETURN x LINE LET =,▝;©▘ LET 19 Y▝<> LLIST ▞▘ RETURN -▝< q©uqa▘[G]<>xx▗w:B:C:D :E&:F,:G2:H8▝ A PLOT F PLOT F~2F~2D~2D~2D~2D~2D~2D▗~2H@ THEN ATTR ▝O<>▝G[B] STEP { PAUSE 0g[Q]m LINE [M] PAUSE AND 0?*'[K]COS PAUSE < P▝' OPEN # PRINT ▜ MERGE PAUSE THEN CAT INVERSE w/Y<> THEN BEEP O7^©H SAVE ▝I▘ NEXT [C]( NEXT <> STEP 5 PAPER GO SUB NEXT STEP V PAPER STEP h PAPER P▘ POKE p ▝,P INVERSE !@ PLOT ▘w#/ FLASH VAL$ ▝ LET ▝PPOINT GO SUB _ NEW CJ FLASH ▝ OVER q MOVE ~xr RESTORE 2 LINE Z1,▗W LINE PAPER NEXT [J]$ATTR ▘ LINE AND 4ATTR {[I]+[I]8Z LINE LPRINT NEXT XZUNOT 1"VAL$ <>d@[G]dP )[H]>= COPY d@[G]!p▝*pp06+dPD DRAW o>=*JINKEY$#"JINKEY$} RETURN ( LINE i POKE %j▗VAL$ !▘ STEP PI`}PI-TAB CODE 2IINKEY$ STEP e PAPER STEP TAN _>ATN STEP STEP [M] DRAW , LPRINT RND STEP ` DRAW ▝[A]▜ STEP NEW PRINT STEP / PAPER CODE +CODE STEP LET BORDER J'F TO IF STEP POKE BORDER STEP v PLOT STEP PAPER PLOT )▛ OUT BORDER STEP INPUT BORDER STEP BRIGHT RANDOMIZE STEP = IF 0 ▖$ IF STEP z PAPER STEP } PAPER ▝PEEK T[P]G PAPER STEP STEP RANDOMIZE STEP n PAPER STEP CLEAR BORDER STEP ABS PLOT STEP NEW PLOT STEP = RUN :LINKEY$ NEW CHR$ ▝ RUN STEP STOP BORDER T▖ RETURN ACS LINE [R] RUN STEP ▚ PAPER L▞ OR STEP PAPER STR$ RANDOMIZE P▘ BRIGHT BORDER (pp▘ STEP VERIFY P7▝ IF *[H] RESTORE BORDER STEP J PAPER STEP [L] PAPER STEP SAVE STEP RUN *$INKEY$"[INKEY$ STEP INK BORDER ▜]INKEY$v STEP / PAPER v[B] NEW @ TO RUN BIN IN RANDOMIZE BIN AND RANDOMIZE *[INKEY$"$INKEY$ STEP [O] PAPER *][U]▗BIN y CLS AT BIN ▜ ▟BIN [F] CLS STEP CONTINUE BORDER STEP ▞ IF STEP FLASH CLS NEW BIN [F] PAPER RETURN © GO SUB x THEN _▘[T] CLS 8k▜ INVERSE !b TO ▜ RETURN LLIST TO N PLOT RETURN READ ▝ RESTORE ▝ INVERSE ▚ OVER TO P PLOT RETURN OUT [S]NOT TO S PLOT RETURN CHR$ TO V PLOT RETURN STR$ TO Y PLOT RETURN DEF FN TO B PLOT RETURN CAT TO E PLOT RETURN FLASH TO K PLOT RETURN PAPER TO H PLOT / NEXT [O][S]SIN <>>BIN <>> OR <>> CIRCLE <>> INK <>=<>> BRIGHT <>>USR <>>IN <>>PEEK <> STEP FOR BORDER STEP RUN BORDER 1>=( GO SUB ▞CHR$ [T] POKE STEP CLEAR NOT [T] POKE CLS ▚o_&T)▗VAL$ PLOT ~ MERGE ▘#~ STOP ▝%▝.,J▝G READ ATN [J][H]CHR$ RND<>@): DATA RNDPIUSR &[[K] PLOT <>!2 INK @>w# DRAW <>!r INK 2 INK @ GO SUB VAL <>▟▘w>= LET ▚ THEN ©USR % RUN DATA ▘ DEF FN PLOT DRAW ▞ RETURN THEN INPUT !1"MINKEY$2[K]▝<>!vUSR STEP P1[E]©>= THEN RUN 2 OUT RND<>d▖#▜!2 CONTINUE ▜USR NEW >=*MINKEY$ PLOT [M]▝| GO SUB ▘c RUN P▚|2y RUN ij<>!Ld D▛CHR$ ▚ COPY PRINT ▘ OUT DRAW 4©▘STR$ [O]d STEP INT _▜NOT / PLOT p 0 ▝ LIST p ▗d8[G]3PEEK ^[E] STEP ▗▝[H] OUT /Pp▖[N]▗+RNDSIN ▗[P] SAVE RESTORE k[x INPUT INPUT ▘INKEY$X INPUT MOVE G~ NEW @VAL w#`P▗pp"▝p7p@ I▜<>O`P▖!JSCREEN$ CODE w%S▝ SAVE E LINE T!IINKEY$4 STEP NOT SAVE STEP RANDOMIZE ` STEP P RANDOMIZE p▖ AND )2ABS RANDOMIZE [F] RANDOMIZE RESTORE AT CLS STEP 2 CLS NOT SIN POKE NEXT INK "' RANDOMIZE INK INVERSE !/ CLEAR !^SCREEN$ RESTORE MERGE STEP , RANDOMIZE MOVE LLIST # PRINT DIM GO TO INK LN ▗ INK CLS <> INK q▞[P] CLEAR RESTORE INK MOVE OR FORMAT PAUSE ▗STR$ PRINT <>N▝u@N▘5X@N▝zPN▝pNpNQb▝PI N[K]<>d0#!d@P5VAL COPY ATN ▗<>: GO TO RND< RETURN TO PAPER RANDOMIZE 2 GO TO RND INVERSE ERASE RETURN USR ,g▜USR : IF < RETURN ▗ IF AND sVV IF FN ▝ BORDER ▜PI▜ $eMr▘1 IF }rMr0[ g DIM "PIUSR 86▚ NEW TO i IF /$0▘y IF /,▘>@`pLCOS BIN ▘>=[H]▘ RETURN ▘ RETURN 0POINT ▚ RETURN CIRCLE RETURN FORMAT WNOT ▘:W@m2WINKEY$<>h ERASE ~_#~Wi&<>:XINKEY$O STEP OR IF ~2Y[▘ZINKEY$`▚> PRINT OR RESTORE ▙ MOVE RESTORE GO SUB [Q] GO SUB [Q] LLIST STR$ LET = GO SUB ▜@0[I]:YINKEY$w#:ZINKEY$w<> COPY OR v>2XINKEY$ STEP BEEP IF >0▗STR$ FOR <>INKEY$H-i CLS STEP ATTR RND-LN [▚P[G] ▖d`w>>▗ COPY d@p!▖[H] COPY THEN 2LINKEY$h[B]▘ THEN [H][P]▝XTAB ~ ERASE ~ ERASE . GO SUB + PRINT RETURN AT TO MERGE DRAW LET RETURN DRAW CHR$ FLASH POKE ▗ STEP ERASE SAVE NOT .`▝▘?G~▜LN >==LN >= AND ▘ VERIFY LN >= OR x DIM BIN T DRAW S▚ GO SUB VAL STR$ x▝ TO 3/0COS "▜M DRAW YW!T DRAW ▝ LINE M DRAW GO SUB _ RETURN ERASE M DRAW ! OUT / LIST ▘<>CHR$ H CLS CLEAR ▖[I]RND PAPER ▜ STOP RND STEP A PAPER FN @[I] DATA ▘ STEP M▝cs▝CODE LLIST INKEY$ CIRCLE PLOT 9▗2 DATA RNDHN▘ OUT DRAW VAL$ [I]>==8G PAPER NOT OR DRAW SIN ▘USR <VAL ▝<>c UCODE STEP ;9▗; PAPER VAL p[H]8yE▝a FORMAT CLOSE #▞ @▝ **FUSR F ▘qIN ,,EBABS Z$RND8LN 4LN 4[A]EB▝B$Z$B""($%H[J]$B▝$f<D(D$H[U][A]X[A]U?_-E$,U DRAW OR BIN E▞T IF DRAW IF E_?_?/E OR TO FLASH RUN LOAD OUT IN SQR E CLOSE # DRAW IF [U]@▟+_?ECOS [T][T]COS SQR IN OUT LOAD E6ACS /_Ke EATN [L]▟ READ YETAN IF DRAW SAVE IF REM VEj5E[K]I[K] FLASH ZEACS L[I]VAL E0(0(FQVIN %%!"@B @"$" [A]@@[B]B[U][U]▗D@▞D$DFN COPY COPY COPY CONTINUE p<>▝pppp@`9I<>(lR[F]J H▝RND▖USR $)[E] FORMAT IN CLS A OUT COPY <= COPY COPY ( COPY COPY <= COPY COPY ( COPY COPY NOT COPY COPY D COPY COPY ( COPY COPY COPY DRAW THEN COPY SAVE BORDER ?USR SAVE STEP MOVE POKE NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ! FORMAT POKE COPY COPY O4<> GO SUB LN !LEN THEN USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R▗▚OPN▗QRST▗R*LN STOP CHR$ LN ▝EXP ▝'@ ▟LN LN $LN EXP ,-+./01▖/!LN LN ▚PO@<▜▞LN EXP EXP @STR$ EXP ▚EXP LN ! ▚LN EXP =[?▝u▞▚PQR9USR ▛LN LN LIST ,[F]<='LN LET READ <=POINT fFN Oq LPRINT 4 MERGE <= ERASE J4hFN FN <>(FN INPUT ▖iSTR$ 7)I)nGPOINT POINT USR DIM REM DIM [H] REM . INPUT .# THEN TO cJ THEN K[T] AND ..@CHR$ ![D][D] CLOSE #T[E] MERGE [E] MERGE "▘lCHR$ ,$ GO TO ,9S[D] MERGE !AT ▜%/RNDl,.i▝ CONTINUE r▜INKEY$/ NEW fAT VAL$ p▝)t)p'.,niPOINT DIM REM )m▞/ FORMAT X/▖[G][F]▘[H]!▝ TO ▗GHI▗JKLM▘▚s▝O RETURN !u▖#$ STOP STOP VAL EXP VAL EXP STR$ VAL ▚ DATA VAL LN VAL ▛+s▘,-Au▟▙234▗56789:;▗<=>? TO 0o▝J{▗GH▜▖1 DATA ▝Q! LET O▞_▝LN i CONTINUE ▗EXP VAL t▚LN [R][S][T]EXP EXP ©/00EXP VAL [U] BRIGHT RNDVAL EXP ▘[A]o▜▜EXP INKEY$PIFN EXP ▗▘[B][C]o▜▞EXP LN EXP ▚!Y7▝0 CLS TAN $EXP LN LET NEW READ STEP <=n< BRIGHT BRIGHT a[T]Gq NEW ▚▟<=[A]ATTR [L][L][J]n.i72 BRIGHT // BRIGHT OPEN #S CLOSE #//S▚ FORMAT MOVE Q<=[I][H][I] ERASE nR▘1S▝&)▝Aa▗/ BRIGHT /▝ ▘▜ BRIGHT NOT '(POINT D▘▘F ▚G[D] BRIGHT BRIGHT /*<=[G]>=[C]/r/'[A]DPI'FN ;))NOT / PAUSE ///XL▘bP }[D] CIRCLE //b0}▘▘ FN INKEY$▘ AND ! INPUT ▘: [T]INKEY$[H]<=! [R] ![S]"[T]""[T]ACHR$ $[T][U]$[T]RND%INKEY$&RNDINKEY$CBIN BNOT (''FN [B]▙)SCREEN$ ))BIN OR [C]//I BRIGHT /q LIST LN EXP &'EXP [E]PEEK [F]s▛[G] ![H][I]IN [J][K]LN #$EXP [L]USR [M][N]LN ▖&'LN [O][P][Q][L]▜LN LN LN k▘VAL VAL ▗EXP EXP YH TO LN LN [S]#▟▜EXP LN ~ CIRCLE INK ©f▘LN EXP READ LN LN ![C][N] LOAD [J][U] BRIGHT THEN spIsps:jz▛▙ RUN 7▞ INPUT STOP ▘ REM <N▚ BRIGHT [F]/y*"/▝ PAUSE {▝ NEW LEN [U]"CHR$ NEW .09= MOVE 9=A:FNOT STEP ▗r[K][F] OR TAB ▗[N] STEP TO [N]USR ▞ OR NOT ASN ▗RND POKE AT ASN STEP AND %▗SGN OR DRAW TO CLOSE #▛ MERGE OR OR DEF FN -BIN OVER DATA GO SUB ▛ THEN ABS ▗ POKE CLEAR TO ▝YcSTR$ YaiYqy▝▞▝xST▘USR <>▗rz▘▞r[D]SIN [C][K][S][C][N] f▜ATN % AND % OR x▝BIN a▗-▗▝▗f▗& RESTORE +EXP M▘ OR f▗ OR 5=C K▘li▝{ ZY/,0pi:CCHR$ :BJ:RZbj▗Zr{SIN xv▚[K][S][F] STEP DEF FN % LINE STEP ▘ DEF FN ->= STEP ▗<>YcEXP pNOT ▟▞y[B][L]STR$ [B][J][R][B]POINT LEN EXP STR$ LEN <> OPEN #<><> MOVE INK <> LLIST DIM LET RANDOMIZE ▗ CONTINUE FORMAT >=▝u▜<| OR USR hp CLS LIST ▖t▟ OR [I][Q]FN TAN CHR$ OR ▖[A]NOT ▝ STEP ▗0-▝▟ OR OR & RESTORE -USR PX`AT EXP BIN = INPUT E8@HSQR LET DRAW LU<=▛▛@P TO ▖aq▛▛ RUN ^ RUN x PAUSE D OR ▛OaqqCF@ LPRINT B▝SCREEN$ OR ▗& RESTORE ([I]4 READ ▖&M LINE Zjz@INT ▘@7%loCODE CODE FLASH / LIST 0%}▖w77C TO ▖676 Wp▞( DIM ( DIM Ii▞POINT pVAL LINE <> REM LINE *Jj▚Dc|[H]77USR ▚77" DATA [H]1qRNDe▗ OR NEW % LET LEN AND ▚Ff▚FINKEY$ AND BORDER USR g'Gg'▜PI<= BORDER ▝[Q] THEN p[H] WM▜"b[A]VAL BEEP W▗44Tw^▘"l▗nniaUSR n▗CCVAL$ .▝.▗ INPUT ▘ LINE THEN ^▗▛ TO ! INPUT !▟ACHR$ STEP ▟M▟ STOP bPOINT POINT ▘▞NN▙ DEF FN OO|▗.n@@$STR$ OUT __VAL$ . LPRINT F.nCIOCHR$ n▝AVAL ▜<> INPUT nd INPUT n▜A<=VAL$ .DVAL$ ▖▚eRND/INKEY$ THEN VERIFY ▖[C]K TO _ TO STEP L▛?llIN [A] BRIGHT STEP LPRINT NN▛/ BRIGHT / CAT O FORMAT y▘'XBIN EXP *EXP LN &CACS [Q]?▘▗▘▚▖[C]*2H8D DIM Q ERASE [C] OPEN #R OPEN #SNOT 6[J]X ! LPRINT ▖▝VAL )▝O $EXP VAL LN EEXP LN LN $▘[H]$5PVAL VAL @AB@CDEF▝D7▝GG▝K7h▝LN ▛BIN VAL v▝VAL &[G]▛ABS )▝EXP @r9▗LN LLIST CHR$ STOP USR NEW STR$ CHR$ ▚ NEW NEW STR$ ▗!%!)-15▝-EXP SGN 9EIMQ▝J58▚▙ STOP STOP ▝ STOP CHR$ CHR$ [D]r[G]CHR$ STOP STOP ▗CHR$ [K][O][S]0▝ STOP 0▝ NEW ▘CHR$ STOP /USR STOP [A]CHR$ USR SGN AT OR [U]SCREEN$ CHR$ NEW LPRINT LPT-▟!&>B STOP NEW DATA @DH TO 4BF IF lASN FLASH ▚z3[S]*5% MERGE BIN /bbkCHR$ bmATN ▙ STEP TO r[K][T]SIN [K]RND STEP & RESTORE 9 IF USR [L]1x NEXT sMOQ NEW READ <=.K OVER [H]J DEF FN [H][I]SQR [I]▙ LET NEW NEW STOP NEW LPRINT Udhnr STEP STEP >= ( MOVE LPRINT CONTINUE PRINT [L] STEP STEP USR 8Db|▛ CLOSE # PRINT 4Qq▖ DIM [T]<>LN NEXT q IF INPUT ▝9 CAT C LIST INPUT NEW STOP STOP R IF DATA ▗ LPRINT AT VAL TAN ▗LN SGN USR BIN ▝SGN %[A][L][P][T][U]x RUN SCREEN$ SIN SQR AT 4]SIN ACS IN TAB q#SQR IN NOT OR q? THEN CAT OPEN # MERGE 1SQR READ PAPER STOP READ OVER k|<> STOP @x▝AT Py%VAL$ ▞ GO SUB LET PRINT PRINT CLS ce RETURN 9J[E][I][O]▘@E1 CLS [C]1 CLS ▝▜STR$ ▝(A CLS :F NEW LOAD LPRINT "` NEW LOAD LPRINT @ PRINT ▝ NEW RESTORE Mpx▖BIN SGN CHR$ >@b NEW RESTORE r7R$nSCREEN$ NEW NEW Nv▜ BORDER ▛[A]z▚B[D]R IF VZCHR$ NOT ▛▖z[D]sr[G]^b RETURN fj▗▚[K][O]B▗orv[S][F]USR ([P]▛▛CHR$ STOP z~▘CHR$ CHR$ NOT ERASE VAL$ ..+BIN ▛ ERASE CHR$ ERASE SIN CHR$ OPEN #4 CIRCLE ▗1 RESTORE %WSTR$ ▝$BIN RUN POINT ▗vd[H]4[L][E]ACS <=▘ CLOSE # PRINT ▖t CLOSE # PRINT READ MERGE ▗[L][E]TAN BRIGHT ▘C▝ATN !-[T] BEEP ,USR ▝ -▘7 gm▘76 3▘Ttx@u▝TAN @W+ u W▝ATN [N]▝[N]r[H] CLOSE #▗ j▝▘▚COS NEXT 3W6%▛6POINT REM & LIST ''n+▜%^▗'PI CONTINUE . OR .q[U]" READ {▝hx▝lO.#[E]▗)7)l▛▝n2▝ DIM xAT .n,-▘ GO TO )5AT TAN -nxAT !"▝.^ RESTORE m<=n▗., ERASE Q LLIST STOP ; AND [D] CLOSE #[S]b:tNOT C(▖▝,x7)DD*[S]▝,[D]8▘NOT ,n▚n,,CHR$ ,~▝,unnA0-▞8yVAL NEXT aUSR <0▘2 MERGE ▞ RESTORE REM *T MERGE )SCREEN$ ▘ CIRCLE p▟▛▛. GO TO .l.l▝.)▝,[C]8p NEXT pCsr READ geeged RESTORE a NEXT ▗=sr BEEP CHR$ a▘` INK [P]7s` BEEP OR `SCREEN$ AT CODE ` INK sr1ar BEEP `VAL SIN TAN ACS LN INK ar[M][O][Q][M][S][U]INKEY$FN ▗RNDsqq PAUSE ▘EG<>sIEXP K▝q )7 00 @70$ 3X▘q@x▝[O] y▘PI0Xs▝ao`arNOT qaq`s RUN ▛rXZ/^`b^aa▛▚r STEP CAT MOVE ERASE )LEN [J]▚r MERGE Y] VERIFY H DEF FN ▜ss` MERGE [_ ▘V7▗_ INVERSE OUT Q FORMAT THEN 0 COPY P RETURN ▝<aaCF▙ STOP STR$ UY^ DATA 6 BEEP ▞STR$ aeimpB NEW READ dI▞▘ REM PAUSE CLS [I] PRINT dSQR k#+0P INVERSE d[L]NOT eSQR ;CKU PRINT OR STEP STEP OR eATTR ksmASN !IU▞TAN ▝ STEP ▗ STEP ▝1=7SIN ASN ▝% STEP OR N Q▗STR$ IUUSIN Q▚ STEP OR ▗/aY{▟▞ SAVE CIRCLE READ &L STEP [K][L][M][M][N][N][P][O]M)^▘ VERIFY BRIGHT / CIRCLE -'▝ CIRCLE ERASE ▘ CIRCLE / STOP ▘ BRIGHT BRIGHT d PAPER READ RnR CIRCLE X/ BRIGHT X▗ CIRCLE SS BRIGHT -▘ BRIGHT BRIGHT MERGE ▘NOT BRIGHT 1▝B▟▚[J][K]D OR 1CHR$ NOT y▚[N]▛▟▘|[R]▝TAB ▘XX BORDER ▗XXI CIRCLE J▚XXJ_J THEN ▘// STEP ▝ THEN MOVE USR BRIGHT ▘/MH STEP _M MERGE ax{▝@ LIST x LIST ▘[M][O]p LIST <>0 VERIFY ▗/▜>▝ CIRCLE ERASE CIRCLE /▞>#▝/▖▞1▝Xu▝ PAUSE P-O OR ▘<=>=?IN u NEXT ▘H<>? DEF FN @xq` TO ▛/X5 BRIGHT .CODE /VAL 0ACS >=[A]XX7ATN 11SIN 2COS ZATN 6[H][COS TAN 4ASN //pLN % READ ▜V VERIFY VERIFY NEW VERIFY FLASH k RANDOMIZE ▛6.<xLN LIST BEEP a STEP ▗=CHR$ NOT <=v+6▚~v COPY ▝ VERIFY BC LN m STEP TAB VERIFY VERIFY V063▝wSGN INT 7!▘-v-▘wFBVAL$ l, RESTORE BRIGHT {▝@]▘ GO TO %▞▝B_[E][I]▘l[P]- ` LLIST 6{SQR DRAW <S8▗R LLIST a[E]&<SGN CLEAR =U[E] MERGE ▞▞ INPUT INKEY$%x CLOSE #▚H<>.8AT .© BEEP ▗,,E[J]▛nnGGVAL$ ,,![R] GO TO STEP ▛a THEN ▚ GO TO .!a▟bE[F] LLIST a OR AND ,,CJVAL$ nDBIN CUSR AT ,,-STR$ [▗/,Fh▛,%?^ STOP ,,U[F]{▟% NEW / NEW f▗<=AT V[G] BEEP ATTR NEW LIST '.CHlW[H] CIRCLE TO ▝gb▖B▜TAB CIRCLE [I] INK YATTR 4[D]A AND GO SUB Y PAPER ZAT ,<,,TAB -VAL$ /y SAVE Y▚]^_`aN{▗ NEW BORDER CONTINUE DIM >=▗ REM DRAW CLEAR FOR ^[F] CIRCLE ▗ GO TO RETURN COPY GO SUB BORDER ▗▗ CIRCLE ▗ INPUT LOAD LIST LET BORDER ▗▚P PAUSE NEXT POKE PRINT N^[Q][Q]JRUb▖ GO SUB sq LOAD qq STOP LPRINT CODE ( REM COS Y▚▖RND OR <= BRIGHT ▗7< BRIGHT PAUSE ▚,LEN {CFl▗[D]$PEEK RUN R#*▗)[F]* PAPER ▘>0D/b.INKEY$.▚▗r.INKEY$v STEP & NEW VAL$ )LEN ▝ OR _VAL$ NOT OR RETURN CLOSE #▗"*2▝"BJBoO[G]_▝ LET $ SAVE [B]n@%tEXP MOVE @xG*/[G]▘T<.j/[G]LP/B/ STEP <= ?;- PLOT ▝>=?,@▘ OR USR ?J PAUSE ▝=[S]▞▜_USR U?M▗ OR OR THEN ]19▗ OR THEN _▝=NOT M▙ OR ]<=*;[Q]▖[G]PEEK +[A]SQR XN-|WS CLOSE #yEXP VAL LLIST r OVER BRIGHT PAPER [H][C]qNOT STEP STEP <=▞ NEW ' GO TO ,85 CIRCLE p LLIST NEW ▞▙v GO SUB TAB ACS [H] RUN ▜</xLN lVAL i▛VAL LN UVWLN LN EXP l DATA iLN XYZ[/LN LN l RETURN ▘VAL EXP "[M]LN LN ASN mnmnmmbcdef DRAW ijB▝ CLS M RETURN $P▛LN ▜&'LN LN W0@▜~ CIRCLE INK ©USR 0▛▝ !LN EXP !EXP ▝ DLN EXP D▛EXP EXP LN ZLN EXP $>=▘LN [D]* BEEP ▗[E]PEEK [F][G]a[L]~USR CHR$ &Oom/1©35pINT SGN PEEK USR CHR$ H CIRCLE BEEP q7▝9s0▘B▗=?A<>0▗0 CIRCLE OVER STR$ PAPER ▛ BRIGHT BRIGHT BIN AND >= LINE TO PAPER ▜ DEF FN FORMAT ERASE MERGE ` LIST ▘VX()▖`b_2478[O]▞s'qqp,.18 FLASH ▞/}+-p8:=STR$ ASN N|<= RANDOMIZE [J]ATTR [A][B][R]INT jz▛?M[L]USR EXP v LPRINT |▝ STEP OR NEXT NEW fPI GO SUB FLASH [L]@&W[L]▛▛x. BRIGHT ACS /x%&'An BRIGHT LPRINT SCREEN$ AT P VERIFY READ STEP <=▛[G] THEN [F][F]ATTR STR$ ▝2[G] OUT ▝<{// LINE RETURN & CLEAR ▝ BRIGHT & RETURN ▝ STEP [J]&▟ COPY THEN ▗ BRIGHT SCREEN$ ATTR +}▜6ACS ACS ATN 6 FLASH /$▜TAN COS BRIGHT /5 BRIGHT VAL$ WSIN ▝+ACS FW DEF FN ▗TAB VAL$ /[USR ACS 6W INVERSE ▝X REM BEEP V▝X@o' CONTINUE e DRAW ▝ BRIGHT Z'Y▝ BRIGHT & DRAW ▝BZ'YXXxLN VAL ▚9:;<=>?= CLEAR DATA M ERASE ▚VAL LLIST a` OPEN #$pP▝9 GO TO ▗r0*qr "$Y] >dfh▘k#0▗rtv#PI LIST ▗OaNOT ▜0▘q+[M]▚[H]8x LET SAVE ▝ STEP I OR ▝q[H] READ <=]▝ RUN ▘ INPUT .(▚ INPUT n@VAL$ <SGN n<I▖ BRIGHT yEXP LN LN e▖LN LN 01 OVER [G][L][L][E]t▗[E]tINKEY$KLZ[G][I][K][G][Q]EXP PAUSE ▛ PRINT *YSCREEN$ 2 STEP INKEY$l0 MOVE ACS [I] NEXT sa THEN STEP <=< ERASE BRIGHT DEF FN NEW e POKE AT REM 4w8p STEP EXP ▝c BORDER ▗& NEW [▛ CAT ▜[L][J]SGN THEN [K]p▞[L]▛ ERASE SIN >={[L][J] BORDER ▛[I]C NEXT C#8[I]ATTR "[B]Xcscr2K▛ FORMAT LPRINT 2KPEEK k[L]▛▝b{[L][B][K]*11@[C]ATTR ▛1@M LINE Q BORDER ATN <= GO SUB ▟[H] SAVE +jz[Q]VAL [A][Q]VAL m▞[A]@Pq▛▛pPEEK [F]SIN CHR$ ERASE LN RANDOMIZE [R]SQR Ff▚R2@ SIN ▝.▖(HHh▖FN >=▖ DIM DIM Ii▞POINT i<> INPUT <><> REM LINE *Jj▗W78[H]AT ▝%▛7e▙ RESTORE eRNDe> PAPER ▗% NEW Fo{FINKEY$ AND BORDER USR FOR ATTR THEN CONTINUE MOVE PAUSE PAUSE GO TO ▚TAB TO Ll▞SIN LINE ▚74ATN 2 BRIGHT w RESTORE ▘T NEXT [M]F▙[K][O][T] STEP ATTR skm7▘- TO X{▘x NEXT NOT AT [K]7.<[M]:l LLIST OPEN #g[I][P]01>d TO FORMAT <>[J][R][D]Sb▜sf[G]SQR y▗*SCREEN$ LINE RUN ATN [C]AT BEEP w+Kk[H]77W ▗ATTR THEN GO TO MERGE ▟TAB ACS STEP GO SUB TAB TAB AT LlAT BEEP [E]▟ GO SUB STEP TAB TAB TO GO SUB -[S] PAUSE CONTINUE DIM ▝% DIM p GO TO ▝ NEW DIM p GO TO DEF FN ▗"Qmq▗[R] MOVE ▖d▝ DEF FN g▝[H] LET ▗q▞)dVAL$ POINT ▞POINT v|q LINE d▙ LINE jVN▝ATN l▝8RND▘7T v▘ATN @xed▝.Px LPRINT d▘d THEN [R][R] [R]![S]"[T]""[T]#[U]$[T][U]$RND%INKEY$&RNDINKEY$CBIN ''FN ▖(POINT )SCREEN$ ))BIN OR dkV▚/q/▘ |▝q BORDER ▚▝[F][G]Td[I]G>=KF;ABS ▝>=K▝▟▘x NEXT CLEAR ▝a▗n▚▙S CIRCLE R BRIGHT DEF FN NOT ▜[O]+LN LET LPRINT c6z[I]h MOVE CIRCLE Y IF m STEP [H]▜4h DIM ngaD▝ FLASH INT ▘ BRIGHT DEF FN POKE ▗ OR SGN [M]IN ▝▞ LLIST NOT ▜▛ OPEN # POKE <9▝ BRIGHT t;[L][L]v▚<p LIST / DEF FN ▞EXP z▗H INVERSE ;/[A]▛A REM [[E]ACS LPRINT ▖ DIM I▞#t CLOSE # PRINT TO 9▖!▖ BRIGHT a[S][T] CLOSE #USR EXP VAL $VAL <>EXP J=$/[B] OaMOP ^`csarUln[C]▜ NEW JLO5▚▘▗ CONTINUE ▘▗%▙sp&"*▖▙[A][C] REM [A][D]!Q[G]▗ GO TO [O][R]#sv▘RND▝▝▞jsvY▝▛{sv▘qr STOP F LLIST ▝^O▝ PAUSE R▝jtw▝l STOP [P](POINT RESTORE @FN ▗: CLOSE #▝)~ FOR }PSTR$ ▖[Q];[S] NEXT [B]ATTR AQ▛CINKEY$▝N▟COS [K]<7{ PAUSE RANDOMIZE POINT PRINT W>=CHR$ $$▗[A]@ RUN [A]@0tH[K]**R>=*COS [F]H▖$ CIRCLE VJPI}""# CLOSE #G▝[T]USR O>. CONTINUE [J][F]qq[Q][N]Q NEW ▝[R]@P OR D/▞85(([G]▝&[F]P@` FORMAT [Q][C]I$ POKE FN ZfX P{EXP p *▟ >▝ PAUSE <[U]$$[C]J`H LPRINT NEXT F▘h:t REM FORMAT ©@ CLEAR # POKE 'SCREEN$ O FORMAT /z▘ PRINT ""H▞BTAN [B] H[Q]USR [A]D▝▗ LLIST OUT MOVE AA▜tFN DLEN BFN GO TO ▝▖▞" IF ▜ CLOSE # B FOR SAVE LEN (B[S] CLOSE #@ REM >/RUSR "▝ PI▝AT I[E] FOR 'AT FORMAT .▜ g[U]""$B RESTORE >@ FORMAT LIST 5H@ p0Y(#INKEY$@ PRINT MOVE USR [R]- CONTINUE U' IF CLEAR ! COPY @<= FORMAT A REM t(:▘: LINE ▟▝#>=Q[E]([S]l▜@ D BEEP Q dD[A]( @`Ph STR$ "[Q] INVERSE MOVE ;▗▘POINT Vr▝RNDr OUT T$[Q]hPr[Q]Q[Q]▝BIN +[E]▞ INVERSE CAT USR G[T] CONTINUE I PAUSE [U]SGN [S]▞H▛4 COS HPjSGN [K]:@"DH▖ CLOSE # RETURN R-FN uQ LINE =P▜ POKE P▗x.[T]I' LLIST ATTR DATA CLOSE # IF RANDOMIZE |ABS [O] INK STEP AND @PISE[R]FN USR MERGE [Q]y>=;[S]"[0k▝3USR D▘v(IN IF 2▘H$STR$ ▝[S]VAL$ USR `q$DDHSQR ▝9 LPRINT ZVAL 1XZ,[Q]P&:9ATN [M] INVERSE DIM PRINT PAUSE SIN }X~$USR D[R]NPxCODE T POKE "ATTR x-[P]USR SAVE W CLOSE #$@ LPRINT w▝VAL REM ▘[A]">=▚▝@▞A@USR ` TAN H[Q]B+USR ▝ DIM *|[A]PEEK ([J] BRIGHT ▞LB▙[R]*▗UUSR *pPLN [R]STR$ D[Q]N▜@p,sTDSCREEN$ LPRINT Z% BRIGHT [A]▘@ RESTORE ▚@8▙[Q]p0P LLIST BEEP DLP[O]$[K] LLIST [[C]^/ RETURN COPY !©[C]CODE [Q]Z LIST z CIRCLE ▛E LPRINT SGN KD[K][C]@FN AT LPRINT |PI@ l RUN c▟<> ERASE k LPRINT LIST [Q]%J▝K▘P [A][N]CODE ▖ LIST ▘VAL HTPO FOR INKEY$ @P"[R] LIST +PEEK 0l(M▜USR VAL ]6▜]VAL USR C6▘0l▘@A>= $P<=▘[Q]EXP @0P CONTINUE ▖▞$ GO SUB INT RANDOMIZE 5 DATA _▗IN DRAW USR CODE /LN -p[P]B▖[C]"I) FORMAT [P] SAVE USR ▜FN SCREEN$ ▜▜&e[R]^ LPRINT BI$[A]VAL `!@VAL ▘B0▘G▛[H].[U]▝S[S]VAL$ AT LPRINT uJb. DATA |>= LET OR [C]%N<Ex[B] LPRINT ▖▖▞& LIST ▜ REM :▚ LPRINT ,▜SCREEN$ sVpUSR % FOR ▝, NEXT 8*_QX[I] THEN ▝`NOT ?▝ READ ▝k▘&[B]|[Q]C LET REM CODE [F][P]O OVER GO TO < LPRINT Y STEP LEN FORMAT r▝eCHR$ MOVE ATTR [O]▛LN q[L]CODE DRAW STR$ ) FORMAT WLN B*O* LIST WSGN LPRINT ( LIST POINT 3▘ REM [K]#"%"d[E]AT <>it<>[G]2 GO SUB & CLOSE #AT LIST EXP STOP ▘A BRIGHT A #B[R] [C]B OR f]▚}TpVAL$ INPUT XR[F],▝▗BIN [G]>=[E][I]!T0#FN C0"FN PI% TO ▛▙STR$ _SCREEN$ ▝%[E] C0([E][U] $▘vIN !0q0Q[I]EXP PI3INKEY$q ERASE ▞$[C]B▘BIN ▖[A]DPTp CIRCLE D+FCODE ]CF[N]$[B]$[M]USR @BIN @&@[I]R&VAL 2Z1)2bACS jW DATA ;2[Q]4LN MERGE 4[Q])STR$ q[R]kR CAT OPEN # LOAD RUN INVERSE ATTR <T} PAUSE ▝ LIST CONTINUE DEF FN IN h LPRINT ▟STR$ 7Ek&▝P[S]CODE FORMAT /SCREEN$ [Q]T)M[O]▘r SAVE C DIM ([B]$[F]▙:Q FORMAT @GRND^9ASN BEEP AND ▝▟▙TAN > POKE CLS [T] OPEN # RANDOMIZE $[C]IUSR NOT ▚[K]8▙a CLOSE # OUT *T CONTINUE ▘ LPRINT RND<= MOVE ▝BSGN [Q]/R</A.!/[A]POINT CHR$ R RESTORE ▝b LPRINT LEN qX SAVE ,SGN ^ RETURN / LPRINT [Q]USR XBIN bT/_ATTR POINT FORMAT P*[T][F]>= STOP ! LET SAVE VAL$ rYSIN AT P: TO OUT . LOAD IN NEXT W SAVE FN <D|IN K▝BIN ▖▞pSCREEN$ @k▝dc%a[H]&?[A]"#USR ▘uHFN U" DRAW [I] SAVE )w0$▛&▙[S]M*P ▝SCREEN$ ▝DF▝! POKE `H (P FORMAT ▗<@T<>$X*u▘P OPEN #"▝G[A]EqrLN pPOINT @2@<▝▖u%▝D"5 GrFN [F] CLOSE #%-▝ f.g&▜8T@ LPRINT 0I" INPUT ▝)ATTR p$~+ CLEAR ▝D#)▘▞[F]@7INKEY$0Z▘ CLEAR ▙▝H[Q]UR+[Q][N]BIN LPRINT 4[C] OUT ▝ 0▝IN ▖[Q]JT:[N]▙*% FORMAT ▗▖[Q]©▝T8▙H4FN xp 8P[U]D PAPER / DIM ▝D7(@@0POINT F LLIST E OR INKEY$O8 DIM W[J]▝[A]%TFN [F] PAUSE USR Gp BEEP .<= LINE 9▝F▚`USR ▝8INKEY$[Q]GQ[U]▝ IF |B<[F]j CAT } RUN t CLS 3 CLOSE # CONTINUE Z LIST /(5MN LINE [C]H▗G FORMAT )[Q] OR T▛[F]U IF /▛*a CONTINUE TAB pFLN # INPUT [Q]t©z>TAN ▙▟F▝PIKNOT [F]▞ LPRINT [Q]USR POKE ▗hHt:<J:IN !@▝ MOVE ▝STR$ K[S]<># LPRINT U+ LLIST STOP 8 ERASE [R]▖NOT ▝B$H[C]~>x CLS LPRINT LEN OR c▘ AND ▞O:[M] PAUSE STR$ BIN ▖K▗[H]O▗[B]N[Q]PEEK |A8▘ PAUSE ehUSR SCREEN$ t REM THEN USR U>=! GO SUB E[I]LEN `[Q] STOP %USR _><C SAVE ATTR NEXT W LOAD PEEK OUT . TO [R]*Z:rY[H]LN N CLOSE #AT PAPER FLeJF-'SIN %6d"% CONTINUE PIPOINT $[C]^X LIST INVERSE IF FN ASN ▖0CHR$ ▘0SIN [L]▛▙/2[F]9@1▝B▝9A▘*1@▘#▝4[E]!CRND▚J▗ TO HH▝H3[L]▜3:nTINKEY$t@ GO TO !/@>=▘▖A[I][A]▝▘ INK @[L][B]PIWPCHR$ ATTR USR [S]l*8($[A][T]BBIN ▘$ POKE c[O]▞>=v CLOSE #TAB ▞l[I]<>▞I[C] MOVE 5▝R[B]1#E !F [C]Zn▘ h▝ GO TO t▘$ FORMAT FN 4SGN XUSR [D]▖SCREEN$ POINT CODE DIM [P] DIM SCREEN$ AT CODE GO TO [F]I0▝[H] ▘ATTR GO TO l#g▜@ OVER ▞▝[K][J]▗FN d▝▜ LINE G#POINT %3 RANDOMIZE ▘DD6 REM ▗8ZSCREEN$ POINT X>▛▖[E]X[E]X[C][E]P CLOSE #I"▗I VERIFY $Q RETURN FN SCREEN$ UN DRAW ▖[H] DIM ATTR AT [F]I▘ GO TO [H][E]▚SCREEN$ POINT [P] TO IN DIM FOR F DRAW [O]PBBIN Q PAPER T▗>=)U@▖&"[E])jT LLIST COPY CHR$ ATTR U LPRINT ▘$▝▝W7▟P [K]L#▖5U COPY COPY IN [O]HJINKEY$<>JUkfLSCREEN$ INVERSE [J]2ATTR [2 COPY RETURN UT[B]H[F]U©"Q MOVE SCREEN$ j[O]SQR _CODE [O]ATTR _ COPY NEW SCREEN$ [A]4D[C]% COPY DRAW LPRINT 8up PRINT CLOSE #;▝_T.▝_U;[C] FOR ATTR MERGE READ BORDER Uv<SCREEN$ [T][I]MV[P] COPY USR )USFINKEY$ATTR [P]?[P]]>}>INT | IF }pFRND NEXT UP[C]D[G]SCREEN$ CODE COPY LIST *R[B]T DEF FN f-Z[M] LINE :ASN 9[E]ZASN COPY COPY SCREEN$ SCREEN$ P▖▖ZFN HZ8 FOR ▝*POINT CLS IF ATTR RSCREEN$ FN ▗y[Q]SCREEN$ TFN FN U INVERSE POINT CLOSE #@[F]DH MERGE H▘[E][U]H[C][E][E]>=[A]T[M]▜ STOP CODE STR$ [P] GO TO TAB c FOR ▘[H] DIM FOR COPY SCREEN$ POINT [F]LCODE DIM [H] GO TO CODE CONTINUE ][F]U LINE SCREEN$ LLIST [H]) FLASH [E]RND![I]▝H[F]%J[A]▞H@[C]I▝▛[A] CLOSE #FN POINT MOVE USR STOP LN ▝D PLOT READ /% DRAW P@LN STR$ LN P LET [C]W NEXT PRINT S PLOT TINKEY$VPPOINT ▛AzkXR▗+U[A]^▘A%▖$:$# READ USR J▝PI[B]*[D]UY/ OPEN #_ INK UY*[D]▛/ INK US_ OPEN #U+▙ [R]FN @FN $▘@$$ OVER ▗=▚ [A]@▚[B] O@▛D@DD LIST a LIST `p▘ LIST A0▘@[B]▞_/▘*SCREEN$ STR$ COPY ▘ASN UATTR ▘UjFA<* LIST ▟SCREEN$ ATTR INPUT COPY INPUT RETURN SCREEN$ ATTR D FORMAT POKE ▝i▝@ ▘▝!P@[Q]USR LPRINT USR LPRINT USR [Q]0▙▝▝@▙▘ LPRINT ▜ LIST SAVE LIST # LIST #▝w▘D@ OR USR LLIST :[U]L OVER ▝▚p VERIFY ▗@DE#▗ LPRINT LIST >▘ LIST ATTR ▝@ DEF FN ▝ LET @ REM H DEF FN 0SGN o▙▝[S] LIST [S]d`▛[U]I[D]0I[U][T]IAT [T]4A[Q]ATTR U[U] FOR =©[U] COPY 4USR de COPY AT COPY 5Pp @$▗SCREEN$ ASN U, COPY FOR COPY BEEP P COPY CONTINUE dd>= FORMAT /▝CODE @SCREEN$ SCREEN$ CIRCLE hYUjATTR Y RETURN k COPY HUSR >=▝ INK Pp▛k COPY I[B][B][D]g RANDOMIZE CODE PRINT k[L]iINKEY$[K] VERIFY [G]FN a2▜`▙VAL COS [A]H[U]<>[D]&CHR$ ATTR ▝ATTR ▝▘22dUSR "A AND `NOT ▝(>=[F]▝ BRIGHT ▗9@ THEN 5 INPUT OUrSCREEN$ |FN SAVE SAVE U}I▛ IF [F]]* LIST w IF RNDT▞ LINE SCREEN$ IN COPY LPRINT U_ TO COPY ▞ PRINT U@ COPY REM SCREEN$ FN ▙▛UU RETURN SCREEN$ RETURN LEN RETURN READ RETURN MOVE P▞ RETURN [T] RETURN RETURN RETURN SCREEN$ UUSTR$ FSCREEN$ SCREEN$ U©©USR © READ © OR @▛ AND COPY AND COPY COPY USR SCREEN$ COPY UTUSR ▟UU COPY RETURN x TO COPY ▝ RETURN P▘ COPY @$▗DA INPUT >=[M][B]POINT COPY COPY MERGE U[Q] ERASE RND[Q]I MERGE REM [R]UTCOS STEP P▗@STR$ 9 DEF FN PEEK r▘D+STR$ ▝1$ VERIFY 2 CLEAR ▝&▟[B][D](XVVAL `USR ( LPRINT X RUN ▝q▜[E],T LPRINT THEN ▘F ERASE PI(▝/ SAVE LPRINT /▝"'<=▝DCHR$ USR %▝+WCODE ©▘ RANDOMIZE ▜USR F*x MOVE ▝$,[I]▘▚F[R]PI ERASE READ HQa@9[Q]r[I] CLOSE #: OUT CAT [N]"$DC READ AND ▚CH@ REM POKE |STR$ [B]I$ @[Q] FORMAT jC` FORMAT I$[C]USR LIST SAVE p[Q]P▙@PVAL P/n FOR ▝ SAVE [J] NEXT COPY ^VAL$ WK▙▗/J[M]W` CAT PAPER [I]G DEF FN C OR cRNDrCHR$ LEN @P`0[Q][A] P▝ RETURN ▝D8CHR$ [J]1 LIST CAT [Q] COPY Pz[Q]u REM FORMAT @[Q] ERASE [R][B]@ LET ▖tACS ▖} REM CLOSE #S[E] ERASE ▚h FORMAT [Q]^▝/ACS [G]C@ STOP s AND [A]RND DEF FN TAB CJ INVERSE ▘ NEXT ▝ RETURN %KNOT MOVE _ PAPER INVERSE ;0&G▝▝▞D SAVE DP LLIST +f+l▝ @|KSCREEN$ LPRINT MUSR @[T][A] REM ▝[S][B]USR (JRASN INPUT LIST P$<>CODE ▝>=8▘@H0j©▝`0p▘) FORMAT x▝[Q] ▝t▝OBIN ▜VRND LINE V[R][G][Q]USR V[U]STR$ RNDY▗R[A]UD LIST ▖▖ PAUSE UBATTR ▚UVSCREEN$ 2#[T]INT ▝K▘▝K▝O INPUT ?? (▟▜EXP SCREEN$ RANDOMIZE [A]`[B]▝* DRAW [Q]# CLS ▗U"STR$ ▟[ CONTINUE IN [Q]h5^FN DE OUT ▞©TAB MERGE T[S]USR [S] IF ▞SCREEN$ @USR EE`▝ PRINT Z▝P▝jf▝[Q]D▝[Q]PI_,~▘▙[R]▝!c ERASE [C]▛POINT T INVERSE RANDOMIZE ) DRAW [M]P%)$3J▝▞▗▛-[E]▘INKEY$sg`HDEXP [J]@[Q]x LPRINT @L USR USR FN [A]n[G]%@B▛KA DATA <> THEN [T]ATTR CB▘▟AZSCREEN$ AUSR V[R]&▝ z▟;@,[U]▝$[P]FN B▝"CHR$ ▞BIN SGN jT[H]h+[E][F]aA[J]TAN STR$ [D][TAN [C]COS X)!R▘>=▖SIN u[S]B DATA XUSR ▟@*[A]h@▖ COPY m>=$[E]#USR (0*FATN mdAJ REM T▝©XFN B LPRINT ▝&N~[S]{[O]@)[Q]▘USR ▘AUSR @&F NEW [C]$[C]BAT SGN USR VATTR LIST -p0 CIRCLE 0▜ DATA VAL l!STR$ [I]. BORDER ▝`▙N LPRINT IF ) OVER -/[U]o READ ▗$[B]t▖ IF JSCREEN$ G RETURN ;[C]▜ IF [Q][S] DIM CHR$ { STOP S CONTINUE 7 LIST OPEN # RANDOMIZE 7 CLEAR USR A[H]S RANDOMIZE w LET DIM 7<>S RUN I ERASE THEN POKE FORMAT LET RUN ERASE PAUSE ASN ▝?2▘@$[R]UU? COPY AIN [R]?-!? OR 0[Q]9} RANDOMIZE = CLEAR RANDOMIZE CLEAR ▝H[N]s RANDOMIZE CLEAR ▖ RANDOMIZE }FN 97LN ▞<RNDPEEK [R]?IN ▝A? COPY [F]▙lZO NEW STR$ en/ PAUSE pEXP ▘▗[Q]cINT ▗D SAVE ▙▝U9▟t▗2AT ▝D $▜ RUN © RUN ©UU[S]JP$ NEW ]POINT $ PAUSE h[A]T RETURN SCREEN$ RETURN ~T DRAW SCREEN$ | SAVE TpUSR r▚VV▝ FLASH ▙©~©?U>* PAUSE _[H]^TUSR RETURN p RETURN SAVE T|SCREEN$ DRAW T~SCREEN$ T%[H]P[M]]@▛UU?*~$.0$&[L] BRIGHT i[K]FVAL$ &ASN ~ POKE q5b^V3 CONTINUE ▝<>2I▝gTAB !Q FORMAT POINT USR USR USR USR MOVE ""H@@ LPRINT @NOT A@USR @A LPRINT @A▝@ PAUSE ▝ CLEAR N▞ LPRINT [U][J]ATTR PRINT U INPUT ATTR CLEAR U RETURN CLS CLEAR CLEAR _ IF .^▝Y▝'[R]▛F[O][O]PEEK >SGN >=[M]/ CLS ) DRAW ▗© TAB STOP yU DRAW PEEK CLS S LPRINT LIST i SAVE DRAW CLEAR RANDOMIZE COPY DRAW OUT R THEN ▗ CAT LLIST ▝ THEN CLS USR EXP ZRPOINT VRUSR EXP VERIFY zPOINT =▝[Q]COS i COPY IF COPY LET COPY ATTR CLS LET LET IF LPRINT LET USR z COPY RANDOMIZE COPY NEXT COPY LIST _ RESTORE COPY NEXT REM RESTORE e▝USR *IN -p GO TO PI PAUSE DRAW ▘ATN ▞ RESTORE W PAUSE CLS GO SUB O PLOT S READ PISTR$ NEXT BORDER COPY PAUSE PEEK INKEY$[S][Q]PDTU PAUSE [U] LPRINT U[U][Q] LPRINT `[U][C][U]@$ H[L]▚AAI▚$UjUSR USR FN ASN [L]OLEN ▞▙_ BEEP OUT ABS CAT COPY [H] COPY STR$ ©[H] COPY CAT ATTR [K]SCREEN$ USR QIN W RETURN COS DRAW VERIFY COS BEEP RETURN SIN /: DEF FN s@[P][N] CAT :[P][K][O]jtUSR &L[I]: INK NEW PI NEW BORDER [N] CAT DEF FN USR USR IN CLS [I] STEP USR VERIFY ©[L][K] COPY POINT [D]&L COPY FOR 9 STEP p FOR ? STEP `~~jyPOINT OPEN #{RNDL[J]2*▟/r▙tSCREEN$ yT DRAW VAL$ y BRIGHT DRAW LPRINT DRAW ▜Y DEF FN ;#[B] FLASH CAT i▚Z CLEAR ` CLEAR DRAW DRAW REM yTTAN [Q]<[C][Q]TAN ▜@>=USR SGN ( DRAW REM [R]TAN SCREEN$ y/ DRAW RETURN CLEAR LPRINT CLEAR i▚[ CAT `▖>= BRIGHT DRAW INPUT CLEAR CLOSE #xSCREEN$ CLEAR Tx[Q]TAN |pHpHpHLP[K]▝H▘ VERIFY CLEAR SCREEN$ ▚|np[A]p[A]p[A]▝t▛3INKEY$PI[K] OUT TAN [C]5/55c@[E]*TAB %TAN ▝▝.[M]LN =ATN c▝USR ▝ LET RND[K]▗▘H▜▖USR ▖USR [R]H▞FN ` LPRINT LPRINT ▝[S]%b▝[Q]X▝[Q]%▜ LINE ▛[P]7▝▗ H▚[R]` LPRINT USR ▜h LPRINT USR DIM USR BIN CODE h$USR [D]VwABS [C]UUSR GO SUB BRIGHT SAVE LIST LPRINT [N][Q]*IN >=+ALj BRIGHT USR TINT P^5VAL INPUT j[K]TAN :[E]j|~~|[T]j[E]:TAN *d>=>=USR POINT @[ LPRINT LN S@STR$ [USR IF STR$ IF A IF @ IF ▞USR INKEY$▘ LPRINT o▘RNDUSR #▗&U* COPY H[D]SCREEN$ [E] COPY FLASH j<>|>=~>=~<>| FLASH j COPY SCREEN$ H▗ COPY TAN U*[Q]TSCREEN$ - COPY /(U COPY V FLASH >[D]~~>[D]V FLASH COPY (U/- COPY TSCREEN$ VAL$ J*SQR ▝@YpwNOT p0:9: INPUT STR$ [D]zVAL LPRINT PUSR )USR USR >=[Q] LIST T CLOSE #b MERGE :p FLASH ASN b▘QG(B▘▙USR CR[D][B]*4H,▚pNOT T MOVE $[D]B %[F]*[E] $[Q]0I[R]F▗R▘ 9HAT TjV$X▛FN J▘;[C]UO COPY ▗>=P"<>▗ LINE <> POKE ▖▗">=U LINE 0$* FLASH ▝ECODE z INPUT Z PRINT 0$a▙SCREEN$ ▛ COPY CLEAR ▘POINT U▘ CLEAR COPY q<=▝@;=`$k COPY OATTR 9LN 6[P][E] COPY COPY NOT ▚w6n RETURN SGN ? DRAW SAVE OR _▘ GO SUB 9TAB L DRAW Gc|? REM ▘@▝ LET [P][Q]▘! AND 6 ERASE uR%n[Q] OR D.[R]GHn[B]2[L][A]T[U]%R▟RNDjUfVSCREEN$ CAT JSCREEN$ [F]J* RETURN USR [B]@([K]P[Q]▖5U: FLASH [H]@ POKE REM SCREEN$ [F]Uj"[S][B]5pjP#`P*$0*>?0.8.HIN #":& CONTINUE t* CONTINUE L CONTINUE c[S] FORMAT ;[Q][B] FORMAT [R]3[Q]'@[D][U]W@[D][Q]'D[B][B]#/4.P/ .`LN >=/dLN USR /kpLN POINT q LPRINT LN ▘ STOP [B]TAN q READ As[B] CONTINUE A FORMAT REM ) MOVE CONTINUE ! FORMAT CONTINUE FORMAT , DIM MOVE @ CONTINUE POINT FORMAT T DIM 9 FORMAT FN LLIST Aq LPRINT <>▝[R]8ACS QqBIN CHR$ LPRINT AND LPRINT F READ F" STOP 2H>=[C] AFN TWSCREEN$ IN UzSCREEN$ RESTORE USR ▝]A,▛GQVAL$ ▖<=@ DEF FN NEW ▖ LINE SCREEN$ PI LET LOAD CLS BORDER COPY [C] CLS LOAD CLS RESTORE RANDOMIZE LPRINT PPI IF FOR RANDOMIZE BORDER CLS FOR COPY BORDER CLS LPRINT USR [Q]SCREEN$ *▞KIN ~[H] COPY CLEAR . RETURN L▖M CLS RANDOMIZE CLS PRINT [O] CLS SAVE (:▘SGN #PUSR PLOT SCREEN$ cVAL USR f[M] LINE >INKEY$▖h GO SUB INKEY$3 COPY COPY SAVE COPY IN INPUT 10[B][B] DEF FN VAL$ INVERSE N@<>)!R▘>=`SIN u[S]B DATA @*[A]h@▖
