| Is a part of release: | Iron Lord |
| File size: | 65280 |
| md5: | c05e88d5ae0a6ffd766eade9d954f26e |
1
0BIN :POWER OF SOUND PROTECTION SYSTEM COPY xi CLS vCODE ! RETURN GO SUB OWELCOME IN ANDY MAN PROTECTION SYSTEM GO SUB ^| GO SUB G<w, DRAW $wo6<><!1^ RESTORE 2[L][ INVERSE LLIST 1 TO ]G INVERSE THEN [I] INK GO SUB _ LPRINT VAL$ w# SAVE 3z▞SQR ATTR CODE )[P]▝BIN OPEN #8-29[I] CIRCLE USR dc COPY [R] GO SUB K OR 0 CLEAR *si NEW VERIFY 5VAL FLASH READ ▙.LN FLASH ▚PBIN )f▞>=agEXP POINT P^3%o5EXP D[I][Q]VAL LIST OVER STEP IXCODE [L] INPUT `[L]& BRIGHT ;VAL LLIST FOR LIST SAVE ▞LN EXP u RETURN TAB u PLOT VAL$ E RANDOMIZE PAPER E LET FLASH E RANDOMIZE VERIFY ▛AT ESTR$ VAL AT [G]LN E MOVE E RUN ; 1$%q} OUT MOVE [K][O] PLOT [E]NCODE [K][B] PLOT BORDER TAB qh[J])[O]©tmWD^CPdx'VAL @ NEW STEP pLN * REM =YRCODE .@F ERASE N(" CLEAR xINKEY$ DATA SCOS MOVE IN PRINT W} STOP ▛SCREEN$ w▝?$ READ 71@, DIM GY BEEP h▜▖[B]D▙[L]FN SGN ERASE [I]< NEXT ▜Kf BORDER Xi1[ OPEN # RUN LLIST N, DEF FN >=LN 9GTf)[B](b/~1CODE LPRINT )xBCODE % LLIST EXP RETURN LOAD THEN VERIFY iE©[N] DATA STEP r SAVE K6y|oVAL ^ READ ? DRAW ▙[T]dw/>IN ASIN [L][T] RUN OPEN #W^hSIN l'EXP 85[bVnCHR$ 6mINT 2C[M] STEP STEP CAT $©>=CHR$ PRINT EXP TO o[N]R▗ BORDER u} RESTORE / RESTORE CODE <=QRND COPY STR$ ~AT INVERSE >=[E COPY ][G]:;SGN DATA OVER W INVERSE [C]TAN LOAD CLEAR [O]65 ERASE 69 LIST Ln CAT YR PAPER CAT , COPY VAL$ vw[I][R]▗GATN LLIST CLEAR [S] LINE NEW INPUT [G]( AND PIMSCREEN$ E▝L▝Hh▚X DIM DIM VAL$ PRINT CLEAR ERASE l[R]EXP G[K]POINT REM PRINT RESTORE STEP CLEAR J▖p ERASE H[U] DIM RUN [E] PRINT ~d CAT FN RESTORE ▛| FORMAT INT [U][F]6+ FLASH INVERSE POKE STR$ P PAUSE EXP STEP OPEN #,LN STOP [N]POINT ▙RNDF DRAW MOVE RUN ([M] AND SVAL$ C[A] PRINT CLOSE # INK BEEP @ POKE PEEK {▙s NEW STEP 4 INPUT ( MERGE `[M] DEF FN p DATA TAB 0-9 GO TO p PAUSE 8[O]SIN MERGE hXReB OUT VERIFY 0 RETURN [K] IF RNDP9)[I]PEEK COPY SIN +o PAUSE STOP THEN <=JqvJoCV) NEW GJTAN M1k DATA 4kTQ:>=[O]T`U|▙}O 52(SGN PRINT X SAVE B RANDOMIZE m<,VAL$ Ha▗Nl LPRINT 5:56bP{+D<>>=() CIRCLE yt[S][G]j|1= PAPER ?COS ▗ TO PAUSE [F]ASN 7 DIM , CLS LET BRIGHT A<>LN THEN / INPUT STEP SAVE >VAL$ ASN [D]"VAL$ CLOSE #▟STR$ BEEP AND [Q] ▟EXP ▜[D] CONTINUE x CAT g▝ CLEAR EXP [R]o© LIST DRAW +~LN COPY EXP 'n BEEP [O]/▗bASN ▗K>=% PRINT NEW D[F][R]I' READ MOVE z INK CLOSE # OUT ▗Tv CIRCLE pCODE COPY LIST y DEF FN VERIFY ▝COS L[G]Y.}[P]<>TLEN ) COPY © THEN LET , THEN COS THEN RNDF[R]©Of©<= RANDOMIZE ▜lpg}{▚USR [E]ip) GO TO 4e5L^tozuuq~ipBV@Lq CLEAR n LLIST {fJ6 /y<>qz{QR)[`STR$ N/+8]JZep-Yy) 5+ZAd©cm5A*,<??uApm▙6D▘eUy=cy9▜D FLASH LINE STR$ BEEP RANDOMIZE ACS ▗<> BEEP LPRINT CLOSE #STR$ INVERSE [R] OPEN # POKE [M] LIST CLEAR ▚ GO TO ▞rSCREEN$ INT VAL [T] SAVE CONTINUE ▙1SINT BEEP TO [T]ATTR LEN OPEN # VERIFY MOVE AT IN INT [L]pCSQR [I] ERASE >=B DIM CONTINUE CIRCLE <> PAUSE SAVE ▞ AND MERGE TAN FLASH NEW [T] DEF FN [L] LLIST FORMAT INK INK X IF COS BRIGHT PRINT NEW [D]A[I]q[T] LET OVER STR$ ACS OVER k GO SUB OPEN # SAVE Q[A]x TO [S]i RESTORE HATN ASN STEP OUT LEN [J] LOAD READ tASN ▘[G] CONTINUE [N][B] CLEAR D9 LIST AT INT ASN &^f[T]'LEN NEW DEF FN [D]&[I]t<JH% MOVE A STOP n PAPER q}[R]<}B[H]c MOVE ?;*7%h|;=OVDyi,][D]Qr4d[Q]ABS jGRWk GO TO PEEK RRNDm8;rT▘bTEXP /[C]6f'~)0©.SGN ATN [>=J>0iU[L]z|O1HT▛(YLEN |UTSQR USR COS BIN DIM POKE [L][D] RANDOMIZE Mp© CAT BRIGHT RESTORE [H] GO TO ▞ ERASE <>NOT u OPEN #CODE AT ABS VAL [C][I] NEW LOAD <= RETURN [M] FORMAT [N] FOR LIST COS BRIGHT V GO TO [U][K] PLOT 4ABS LIST }o▞AT [H]zJ CONTINUE [D]PEEK ( COPY qCOS INVERSE q*[F]LEN [D] CLS [F]j OPEN #SGN OUT CLOSE #POINT NEW RANDOMIZE %▗ PRINT hRND SAVE MERGE ▞ NEXT SAVE H REM Y CLS [P]▛GRND[O]STR$ TAN v MOVE y[B] OPEN # DIM DRAW LN VERIFY ACS DIM [T]TAB PAPER /STR$ READ `AC[D])5Z5Yf5N>2<[w$}C%=.8 PAUSE UeSTR$ >a▚▙cFN {GSQR J%LEN TO A[A]COS r}_DEg BRIGHT )YubF@f^PF|8t OVER "4N STEP ATN BRIGHT z>=L_DUSR oyDLN ,PEEK [N]2= CLEAR Oe9 GO TO /bINT XNOT HNOT 45NLSTR$ IF v GO SUB B[E]//ASN LLIST GO TO INPUT 9[T] PAUSE RNDFN [L]▜YATN [S]▘ RANDOMIZE )INT [N][P] FORMAT ▘▚ GO SUB RANDOMIZE g[B] BORDER [I][E] RANDOMIZE 3 CLS LINE FORMAT P IF LN LEN [N] CAT READ [A]POINT GO SUB [D] VERIFY T PAUSE N[A]▚#[F] 0[P] COPY CODE INVERSE INVERSE o[I] READ ▝ABS INKEY$mI DATA ?yACS {ASN PEEK PAPER XG[O]EPI;R RETURN 1 FOR NEXT LOAD [O]SGN AND COPY [Q]INT TO ePEEK F OUT READ STOP TAN [U]A[C]<>EXP G$[B]oK/x LLIST }[N]LEN 5/ FOR HQx=oINKEY$EXP YZW&T}xFN !▜gu[E]N DATA IF yUSR LET 8k3TAB EXP `▛ OVER cxsn▖ FORMAT MRNDD~[wABS OVER !0~I[E] LINE rcxOHFt▞E▟cmN VERIFY LPRINT 1!#H[B]e$1©USR lUG?WEPCODE N COPY RNDn]AT LN THEN &▚IN |PI[B] IF © LINE ATN BORDER [T]~ FORMAT [Q][R]▗USR INKEY$ AND /y[J]lVAL STR$ PIPBIN xUSR FOR FN MERGE [A]ATN ▝INT [M]▜ LPRINT Wt9ASN ▙ACS [M]5[N]=▛ NEXT DATA ▛NOT [M])▗#▟PEEK [M] LET `0:QEXP : RANDOMIZE LINE [M][F] INK IaLEN FLASH OPEN # LINE DIM LN LINE DEF FN It LLIST USR m[N] LPRINT [I]A[E]pPEEK OUT x LINE ATTR FOR SCREEN$ FOR M DEF FN ▝ FORMAT PAUSE MERGE INK O[J] RETURN FN [N][*ATN / PLOT | RANDOMIZE >:];-USR l`O@LVY2 LPRINT =)TSGN [U]]QT LIST !{ NEXT TAB SQR i RANDOMIZE O COPY FySGN j[F]W▟ DRAW SIN FORMAT ▝]W- IF USR GO TO [>=q<Z[K][S]|)RND OR 6BPOINT OSIN gINT FLASH STOP PLOT REM USR j RANDOMIZE SGN INVERSE VAL U`[M]aU PLOT l88# POKE GO TO [N] NEW @▜INKEY$ CLOSE # MOVE RESTORE NOT ASN PI THEN ATN % CIRCLE GO SUB COPY P GO SUB Q[F] CONTINUE ▛ NEXT PLOT COS AND NEXT 5<> INK [Q]AT t▟ SAVE / INVERSE ▟VAL Z[M]▜ LPRINT SAVE SIN LEN CIRCLE ▛a52LN COS ▗ FLASH AT [P]LEN <> FORMAT STR$ LIST BRIGHT <>[Q]▝[C][P] FLASH FOR TO CLS [E]USR CHR$ [M];[A]BIN SCREEN$ ▚9SCREEN$ BRIGHT c BRIGHT <=L>[P] RANDOMIZE ▝ CAT CHR$ PI[R]D AND ABS 8u VERIFY 4▙ATN [A]Y<?INT g CLEAR |[l[G]A$/o POKE HCd8Uu~QNOT <| RANDOMIZE -9VAL PEEK REM [A]AwX76V1xq▜/ LOAD 54 W GO TO J LIST SIN q GO SUB G RETURN d[P]M[F]#SGN ! DRAW CHR$ rZ[O]h BRIGHT -x,+L:IATN /i/5[F] PLOT CLS DEF FN 7N4=F3TAN )▞+[T]ZLN [N][B] VW/e) OR Z INVERSE BNOT ABS ▞ATN + BEEP ATTR Y[O] TO NEW HRTAB DIM ABS VERIFY ©ZSCREEN$ FLASH CODE POINT h▝[F]<= RANDOMIZE ,ATTR BRIGHT CAT SIN K<>G[L]▙ CIRCLE 1 LPRINT 0 CAT STEP gM[J]CHR$ G RESTORE LEN OUT W▟▝[S]CHR$ ASN SAVE FOR 7ABS AT ▜h BRIGHT d OPEN # OPEN #- IF [E]D RANDOMIZE INKEY$LEN ASN !CHR$ RANDOMIZE CLOSE #FN f[B]SCREEN$ PAPER GO SUB 8z LOAD MERGE DEF FN SGN BEEP PEEK RUN ▞[E][F]USR VAL © PLOT PEEK }VAL$ s/C[B]" COPY CSY"x3]>=:>TQVkkG,"BIN r IF [N][A]FACS 6S2 DRAW TO GMF▜m INVERSE m OUT DRAW [D]TAN RND STEP x PRINT a]TAN " CONTINUE IN PAUSE f▘v5APEEK g[C]i STEP POKE INVERSE Z©FN '0 DATA ' BEEP HqTA LIST G7 TO <o[J]{[S][I] OVER 4 TO INKEY$ LPRINT +d[R]npLN CLOSE #/ RETURN VAL$ [C] NEW [A]ATTR CODE [J]▜[G][K] OUT DRAW ^rTAB [T]$) CIRCLE CAT PI DIM x|▞COS OPEN # IF FORMAT PRINT [O]INKEY$ RETURN PAUSE SCREEN$ STEP VAL$ ERASE LPRINT CHR$ PEEK RETURN [K][Q]RNDPEEK IF DIM [G][S]$▚ DIM ATTR TO PICOS OVER [P]Pi[9 MERGE BORDER READ [I] OPEN #hLEN IN sP OUT ATTR INK CLS LEN I3▟5C INK [D] TO <> STEP RANDOMIZE 1[M]@ BORDER NEW POKE LET TO OUT [M]G STEP INKEY$▙▝ REM [G]q{>=TAB THEN ▞ATN ▟{Um;h/C▗fNOT {Y0F▜N BORDER vp[U][H]]hTKA0'(>=/nqhAxG, DATA ATN 5g_e MOVE ^TAB )ASN I|ATTR LIST cDy LIST }CS DATA UU[P]SCREEN$ G--[E]+9 NEXT Eo LIST <#[E][D] BRIGHT tj VERIFY z<=` 9oZd.[J][N]s+MELN 8*EXP TAN CRCHR$ GO TO BORDER COS EXP [H]▘<=▞ RUN -▜BIN FLASH ▝ OR ▚▜▟[Q][I][D] RESTORE BIN ?? STEP TAB ABS SIN [B][L][J]NOT DATA +STR$ +POINT [R][I][C]fCHR$ PLOT [K] THEN VERIFY >=ABS GO SUB XSAT BORDER J RUN TAN GO SUB CONTINUE IN PLOT [H] GO SUB LET OVER CAT ACS _[F][B] CLS SIN INK CLS * STOP EXP [P]z5INT DIM LOAD n<> LINE ABS [D]▘ FOR PLOT DIM BIN |I▗FN [M] FOR STOP IF LN [K][S]RNDVAL$ RETURN 5 POKE se(A OPEN #>=T/k/IN RUN & CAT "X COPY arEXP ATN uu>= CAT |STR$ z[G]S[T]▟=[K] COPY }Brt.ATN 9 LPRINT RUN CLEAR PRINT VAL zlTc_Ia!GhSCREEN$ 9 RETURN n RESTORE ]lP FLASH [D]V DRAW UCOS )e[A] FLASH 4- BORDER SCREEN$ . LET REM N?3E*STR$ Pr OPEN #iNOT E FOR '-1Xmi DIM [J]n6O. RANDOMIZE [T]u INK ERASE DIM LET ACS LN 3<>ABS INK STEP $ FORMAT [M]FN #J LOAD PRINT PEEK TAN /M[R]ABS } LPRINT _6BIN [F] LPRINT [I]SGN OR LOAD FN ~ CLEAR SIN [G]LSCREEN$ [B] STEP LPRINT CONTINUE POINT THEN VERIFY TO CODE H▟h CLOSE #[N] MOVE TAB DATA REM < VERIFY INPUT IN RETURN [G][R]LEN SCREEN$ PAPER NEXT v DRAW NEXT LLIST [A][N]▚SQR LINE ▛ OPEN #<> BORDER CAT MERGE FORMAT OUT FLEN q[K] TO PAUSE MERGE LINE DEF FN AT [L]AT INVERSE ▛ CLEAR CLOSE # STOP >= CLOSE # SAVE [B] PLOT [Q]▛[D][F];eVV©q}`X$mXRuABS 0)USTR$ yVs&SQR ? GO SUB EdPIu]!<>© ~ REM g_ATTR 4AT ,Tu FOR =^Ey][N]r LINE [H]"z)]Rmz▚c INVERSE AT 3F+CCKKQ-; STEP <>AT p MERGE H OR L(y]yu`hXa0&(▞s[B]MEXP aSTR$ MERGE INK % LET @▞'[R]POINT B MOVE [ RANDOMIZE x LLIST [J]▟LEN NOT POINT [S]STR$ <>ATN MOVE <>EXP FOR ▝ TO [J]EXP LET CLEAR <>[R] RETURN POINT PAPER [B] DEF FN RANDOMIZE LINE LLIST DIM INK PRINT LEN ▖POINT [F]▝<=▞SIN [B]EXP [P]STR$ CLEAR INK THEN LET INK ▞ATN LLIST ASN POINT CLEAR MOVE OPEN # RANDOMIZE DIM LLIST [M][J]ABS ACS SCREEN$ E TO USR READ INPUT INVERSE FORMAT CODE RCOS ▚[N][A] BORDER IF PLOT OR ][R]IN [U][J][P]▘ DIM COPY LPRINT STEP CLOSE #ACS AT SQR ▚[F]`-9^UDlD|INKEY$[E]4 FLASH /=Iyw CLOSE #v>POINT V[L]vY STOP -9[C] READ t[H]L1'LN / POKE n~ua POKE ^VAL 6J!INT x[K] DATA 0KUY PAUSE {ATTR $*FN "[Q]Zum▘1%gLD[A]/j7TPOINT [~}I<. LIST &"{i[U]qRNDISQR !38SIN [I] BEEP %FN t FORMAT >= TO READ f[L]7COS ASN POINT 'NOT EXP REM PAUSE INVERSE ▟ CLOSE #RND<ABS v MERGE BORDER BRIGHT INVERSE MOVE OUT AT b[E]BIN ~ BORDER G5Y MERGE DIM b DEF FN ▟ RANDOMIZE THEN LLIST VAL ▚TAB ▖ABS BRIGHT LINE & GO SUB SQR 4 CAT [P] DRAW LOAD ASN COPY ▙ PAUSE CLEAR [O][R][U]SCREEN$ { FLASH h CLEAR OPEN # PRINT m▗EXP ABS POKE k CLS ▘ READ YASN REM u[C]BIN READ NEXT ABS CLS LLIST TAB USR ][O] TO 4▝ LPRINT ERASE 6ACS .[J][K]AT g<E©wu$ VERIFY 7_SIN (▗COS [l:XUJW LLIST :Z-_/ REM SGN LIST zho REM LPRINT )E MOVE qsf[H][C]SQR -5# VERIFY ) ERASE %" CIRCLE 5 COPY e OVER [S]z:O▖w▚ ERASE ~10 AND 6J OUT ({[E] @STR$ 6U1 VERIFY SGN ow MERGE [ NEXT k[B]3POINT ` DATA ( RETURN [L]2ATN IN LINE tLN [G] LLIST LET )[J]ACS <> MOVE OUT y OVER [C] CONTINUE [I]8[F][L][U] MERGE FOR [P]g@[I]▟▜ LPRINT jPOINT OUT [E] STEP INT SCREEN$ % PAUSE TO CHR$ +v▚ INPUT CLS uABS Z GO TO ASN STOP OPEN #1t[R][P] FLASH $# STOP LLIST STEP CHR$ - LET [U] LINE LINE READ [H] IF PRINT 02ABS FN STEP STR$ SCREEN$ THEN OVER _AT TAN ERASE STR$ PI SAVE S5 RESTORE <>#VAL 4COS ▙>CODE "[H]JUSR MERGE AT ` OVER f NEW [P]v ERASE :=?ZN, PAUSE K RANDOMIZE [^Kj![8 OVER f[H]~R▚] MERGE COS ATN REM (L4 RANDOMIZE /b|)}5k_ STEP [O]INT L BEEP SK1`mPI LPRINT DIM [I]4~ VERIFY [M]~ TO ©iUSR Hdf[Q]@[O]V DRAW 11g @{VAL d AND BRIGHT 4Wjh LINE INKEY$ MERGE ▟ GO SUB xPEXP BgTc6-*[E][C] IF SGN STEP F GO TO CHR$ BRIGHT ▘ REM [K] ERASE O[A]FN DIM N ERASE SAVE OPEN #INKEY$VAL [H][O][G][P]I GO SUB P) INVERSE jZLGX* RETURN j POKE NEW CLOSE # SAVE Rm RETURN TAB LLIST s[N] PRINT ▝u CLOSE #. MERGE COPY >=[I] LINE [T]|V INK INVERSE j[O] NEXT ACS 7 INVERSE [O] PAPER BORDER CLOSE #2B0[R]E/J5[B],s CLEAR cACS ▜[T]w1 LOAD NEXT T▘[I] GO TO 6EXP LEN Nz+=ABS NOT LEN } DATA RSIN + TO xk3[J]#W LET 7 OPEN #^ THEN t[N]&<V CLS SCREEN$ WAT CAT A8ABS nYY BORDER E VERIFY 4rfQM LPRINT ▞X4▟[H],W▚▝Y]~"^h#`TAB [J] PLOT LH{ FOR -"![G] LET SAVE Mws.▛+i PRINT © s[K]T)zABS ,e`P"9▖, ERASE NEXT dD[F]ATN [Q]l NEXT EXP TO O OUT [S]s[U]v OR 1G.=[F]F[O]SQR SPOINT LN ) SAVE [C]= INPUT ▚BIN ▙ CLEAR FLASH YV LINE <=PEEK TAN ▘w[U]W[J]SCREEN$ !Y LOAD PAPER [S] OVER AT ▝ CLEAR oGVAL m> OPEN # MOVE T NEW DIM i# INK B LINE K0▗[P][Q]>=[N] RETURN ▞ SAVE SCREEN$ S FOR )2 SAVE ltPOINT LEN ▛) CAT <=▖[L]JINT / IF SCREEN$ NEXT z[C] STEP M[R]▟F<> GO TO CONTINUE (Kc[C]znf▗SIN LINE A[T]CODE e5 COPY Fk OR tACS !L POKE RNDMc>▛ LOAD NEXT zSCREEN$ [M][K]RND▗▖ INVERSE CHR$ PRINT CLS TAB [A]&1BLEN ? DEF FN & BORDER A GO TO X READ LN RND RESTORE BIN v{[O]> RUN [T]wINT g CLS AT LLIST { STEP GO SUB } LET SAVE } MOVE tASN ] DRAW -b5}EXP m INVERSE } PAUSE U[R]CHR$ READ RANDOMIZE ▟uhTtLe<I POKE REM [M] RUN AT FORMAT TAN TAB CLOSE #ACS GO TO DRAW DRAW [E] INK ASN POINT BRIGHT SCREEN$ TO ▜ POKE x[E]$}SGN w CLOSE # RUN [R] INK FORMAT CODE ATN D[H][J] GO SUB COPY U[Q] NEXT STOP [U]o DRAW READ BEEP MOVE MTAN INVERSE POINT Y▝up[N] INPUT ]EXP ATTR NOT SCREEN$ PAUSE )}EEZATN ▞[S].>= CONTINUE POKE PIg▚GABS FORMAT ?▟gr▖ CLEAR ATN ▗j[L] LOAD TO [P] TO PLOT [G][u▙E IF 9 STEP :5TAB PIvw DRAW USR ATN =D[Q]Wo[E] PLOT COPY CHR$ A LINE _ CONTINUE H{2oj STOP VAL `9_`a[-11[R] CLS o[T]cW[H]RND+ GO SUB a{p[T]X% CAT (: READ 1MNOT % CLS 7 PAUSE W IF /5©R7JeJ=1>` RETURN PLOT ?▙Uw DEF FN _4/l)dm LPRINT Y THEN @$&)Lz<_,/_eEXP 3 INVERSE + RANDOMIZE ATN F[H][D][A]t CONTINUE 99,8/▛[E]YSGN R<= OPEN # GO SUB CLEAR ?zMIN e FORMAT STOP SGN <=ABS MERGE INKEY$[E]ATN { CLS @ LOAD SGN SAVE { FLASH y[K]G[B]Oz"RND BORDER Z|3[H][▛ PLOT [P][A]CODE FORMAT * LLIST LOAD LIST COPY POINT ^[S]!! VERIFY STOP INPUT [F] LPRINT I CLS JO[S]INKEY$;STR$ w CLEAR SGN SQR [J]|i[L] COPY SAVE INPUT THEN d AND RANDOMIZE NEW CLS v*c PRINT VAL OLN O[F] INVERSE { FOR 2 LLIST y5Um DATA OPEN #GH/NOT 7Jse LLIST (9Ar/Q[U];AcqINT +!5)L[D] CLEAR u BORDER U MOVE MSQR =RND5^▝XEXP 0AVv- TO $U OVER INVERSE RH:jyBIN KFN T©[P]v^0 AND LINE mu/GS CIRCLE pnsCHR$ Ubg6/1=A DATA ▖ INVERSE [A]TAB [R]USR ,e CIRCLE NEXT THEN ▞INKEY$COS ,▙ NEXT ~[A]ABS POINT MERGE [K]▞$[K]< NEXT ©ACS ▜[F] INPUT DEF FN LLIST PEEK INT [T]ASN TO ATTR RAT [C][H]NOT ▜ GO TO L3LN [F].}POINT SCREEN$ [A]▘FN HN CLEAR BORDER NEXT PRINT [T][R][G]COS CLS CHR$ AND ▝DSTR$ aDtCODE CODE ERASE LPRINT MOVE p LOAD TAN OUT [F].& READ 6 PAPER INKEY$▘<=@[A] ERASE ~ CLOSE #<>,O▝hAT ] POKE POINT 1bATTR z▝T STOP "SGN STOP RESTORE OR [B] ERASE gY▜ STEP 1MdTPI>=@.x3"LN ©g7GJ8 DATA USR USR x IABS _e INPUT MUSR u?_9 MERGE UcQFN [F][}INKEY$[M]e^▙4AT ▟o▖ MERGE FLASH @WILEN Y)EXP 1 CLOSE #mSGN /<=k>=[H]QfovwQIEBIN 4 GO SUB COS x COPY ASN AND LINE [S]D$IN DEF FN [O]y LOAD LIST RUN ▙PI▘▛▞;BIN LPRINT / DEF FN CLOSE # OR [H]fPIRND OUT PAUSE REM ERASE ,WTAB SIN ABS &[E]PI< LLIST LPRINT CHR$ ZAT U[M] PRINT [A]IN } DEF FN 7O▝ RUN k REM RUN llATN ▘1▞RUsEXP MOVE LIST =COS INPUT PIZCSTR$ DRAW ▟T BEEP `LN % FORMAT STOP c CLOSE #[F]CODE NVAL 5 RANDOMIZE SAVE >v CLS [O]▛ATTR j2ES[A]!yTCODE FORMAT 8J$[M]'vF>= SAVE GO TO BEEP [U] VERIFY [U]=5 GO TO @3<[N]dsxCP*$ VERIFY <X FORMAT `p MOVE ;'1.p REM [P](($Mv4ACS PRINT ▚-C"[VAL s▛p CIRCLE ▖EXP uOq=/ STOP s>=8h3[w INPUT t^CHR$ K7E RUN INVERSE ASN [F]CODE DATA BEEP LPRINT FORMAT BEEP RANDOMIZE ~: RESTORE [R][H] BRIGHT OUT INKEY$?▙ TO /p▖ FLASH SIN ATN 3 MERGE >= BEEP " RETURN PAUSE CODE EXP [M]HATTR [B](y4` PRINT POINT ATN fD SAVE PRINT N CIRCLE 4▙[D]VAL$ S RUN ▖c[J][F]PEEK @ OVER ( PLOT CAT POINT [F][U]2 AND ZT)(▚x REM ▚i[STR$ PAPER PEEK INK CLEAR PAPER USR c▝%[K][S] CLS [C] LOAD eX[H] PRINT @ GO SUB v PRINT ▚ PRINT COS [T][B]x7qG[T]%[h[H]{©USR ?!~I/{ RETURN PAPER OUT 5O PLOT V}YNSQR .0"G[ISQR -[G]'▗ CLS Y$ OUT ^)8eoATTR ATN [T] INVERSE LET NEXT OUT <>NOT STEP OUT y5 BORDER ▞▞[B]PI[H] NEXT LET BORDER 1 MERGE STR$ UA[D]TAB ABS RUN LOAD BORDER CAT INVERSE FLASH OPEN #<> CAT RESTORE LET IN 5)▜ CLEAR %3)oe{[ILEN <>U[J][B]▝▝ NEXT CLS ^<= LET m OPEN #ABS ▛ABS ▜ GO SUB RESTORE CLS NOT <>[R] MOVE MOVE ▟LEN LET RANDOMIZE ▝[J]ATTR ATTR SQR SQR NOT THEN NOT CLS FOR iy%<>_-%;om LLIST OPEN # INK STEP %/9©- OR CAT EXP [R]ATTR REM CLEAR RESTORE CLEAR <= MOVE THEN ABS [B][T]TAB EXP NOT [J] STEP ASN SQR NEXT [N] LINE TAB [N]ABS INVERSE STEP ASN RND GO SUB RESTORE mLEN CHR$ _O?7? BORDER RANDOMIZE GUmcsq©kQGu STEP %▜▞ CLS READ FOR NOT FLASH FLASH POINT ▞ATN RND) LET TO 5 DATA )7ESOyWuo}M5-%kwyIU!3!kc{u}gQKTAB EAU_a PLOT FLASH [L]!E LIST BmM FOR X[L]e RANDOMIZE G%EgK>%) FOR 7EXP N{[P] LOAD -~ PAPER PIjE3/: OUT ▚▜[R]ATTR dC POKE MERGE DIM STOP [L]-PEEK [P] VERIFY CAT TAB ▘STR$ POKE ASN [K]SIN ▟ DEF FN PEEK BEEP - DEF FN [L] STEP +VAL$ ▚ STOP kCODE ASN CLEAR LET DEF FN REM STR$ THEN CODE aPEEK FORMAT PAUSE DEF FN SCREEN$ _▟x;VAL$ ▛SIN ▛o[C] VERIFY SIN ▚ AND gVAL$ ▘[P] IF VERIFY [P] FORMAT [G] CLEAR C▞I[C] RESTORE TAB ` CLEAR CLEAR INKEY$ OR OVER ACS MERGE INK <>SIN FOR 6▘BIN [S] INPUT MERGE DEF FN [C] PAUSE K" ERASE [G] REM DIM REM ACS }STR$ ":[B] RANDOMIZE zUF;~,$"6/ INPUT IF OPI MOVE PRINT m PAUSE jf`Bn~~]▚" PLOT J©PPOINT ▝ZC RANDOMIZE SBIN ~r[R]R▙SCREEN$ AFj▙3gEXP qmV*ZSQR )Z~▝NOT AT ▟-E REM V@ PRINT NEW j1Q CONTINUE y:_+f= CLOSE #[L]<>3kok^ OPEN #)%?[POx IF .7`Rfm%:▚▘ACS REM 9SCREEN$ [H] OPEN #V" LOAD [Q]"%0 FOR NEW SIN INVERSE FOR . AND SAVE =! DEF FN v▚LN SCREEN$ ▘ PAUSE 6+ STEP SIN RETURN ATTR w DEF FN .2▙ PAPER W▖n[G]ATN LLIST ▚SCREEN$ ACS INT PEEK RESTORE NOT ERASE [U] REM BIN PAUSE CODE ATN D@2[B] DEF FN 8yz[G] LLIST [L] PAUSE VAL$ PLOT "TAN VAL$ ▙[K]+CHR$ OUT ACS [H]'0 LINE PLOT 2FN TAB INT OVER GO TO IF <▝[G][S]TAB P AND >=▘" STEP (*rn^pcI7'49PIu>={T DATA CLOSE #F CLOSE #([I][Q] IF }35); LOAD g7QCRNDWVAL R=CODE LINE INVERSE / bPULq} FOR ' PRINT Zy#hZLN RANDOMIZE CLOSE # CLS [O];POINT Em*]=USR - CLEAR 9CHR$ NEXT STEP G, ERASE !3xzSTR$ LET ZACS w]}S[L]EXP ▝h STEP ~,,▞[A]_ MERGE FN ▟ DIM 4E MOVE `d[J]CODE [F]Tkh CLEAR >= PRINT ;P[K]TAN [M]▗ NEW ▚ DRAW < OR uINKEY$ REM LN ▝ CIRCLE CAT ABS +' BORDER "ABS 5[D]lSCREEN$ %CHR$ w[C] INPUT CODE l RESTORE INK Z PAUSE NEW ATN t` BORDER SQR LET [[K]Y@[A]LN SQR FORMAT RESTORE 5[K] MERGE NEXT [S]T IF ACS ABS nR INVERSE BEEP [F]rAT lBIN mNOT POKE LLIST DEF FN [R]zLN ▖USR > DRAW pvYBIN [I] POKE LIST '8 TO MOVE lqy CONTINUE IN IF :0ATrPZTAN TAB |?* DATA la[N]TAN TAN DRAW CLOSE #)] BRIGHT |`uYVAL 8 LIST TAB CODE m▚v THEN TAB Az, MERGE CIRCLE !ABS JAp COPY MERGE 60SCREEN$ [E]MN2E~yl PRINT !l+; LOAD iv^5n7ABS | OUT ~ RESTORE r[U]XRND)[U]>(&jF"M PLOT PAUSE DIM kg}ASN POINT +>H6"NB CLEAR IN ▜JF[B] PLOT <= REM ABS T[B]COS ▚ CAT ▜[J] COPY [G]B*v: FLASH <=SIN NSIN ERASE BRIGHT RUN z REM LEN ▞x LINE VAL COPY FORMAT COPY F![E]y BORDER C▞5 CLEAR AND SIN BIN SAVE DIM ATN CLOSE #BIN ▟ GO SUB [Q][S]>(AACS VH INPUT HAT SCREEN$ [R]]SCREEN$ DRAW [D]W[F]) OUT 3[L]INT VAL$ POINT GO SUB ▙ OUT LIST cT▗L- #1HnUSR CLOSE #TAB F▙ACS nh&?USR ACS [C][L]Cv OUT ^ INK kEC" OR zBIN ATTR RANDOMIZE i7 COPY ▘ VERIFY <>/uX PAUSE [CHR$ ▚[R][N]dw AND XT BEEP INVERSE q[B]2ABS ;BIN [J]LEN IN [K]COS VCODE ▝ CAT %@;o"[J]Z BRIGHT e'm[G]k"P@VAL NEW !TAB M20)[P]INT AND M MERGE ▖ REM .bv^OF INPUT LET STEP & RESTORE STEP REM ` INVERSE NOT CLOSE # > PRINT v.FACS OVER jyiu[E]&% REM VAL bjH RANDOMIZE v STOP SCREEN$ b25VRb LLIST t#[N] NEW Rn PRINT PAUSE SCREEN$ INKEY$[K]▙COS U▙h VERIFY SQR BEEP X0 MERGE INPUT '6 POKE [M]:~ DRAW ▛BIN MERGE Bj[S] TO FORMAT [R][S]T REM NR PRINT [S],HCODE DRAW ~IN vSIN CHR$ [F]G CAT INVERSE ▘[J]|=NOT ATN CLEAR ▘INKEY$[F]!] LIST VCODE CLOSE #* OPEN #H▘ LLIST - DRAW LINE STR$ j DEF FN [A]▙6L IF BEEP /P-r-[L]ATTR NEW OVER THEN T-▙ MOVE K"COS COPY c& ERASE cTjf▚ DRAW (R,XTcEXP bSGN THEN OPEN #ABS VAL = OUT PEEK SQR MERGE D8SQR AND OVER ▞[G]y[N]C$_(TAB EXP ▗▘aHINKEY$0 DATA V CONTINUE INVERSE RESTORE THEN INK BRIGHT AT ABS POKE :ErVAL$ CHR$ 5 CLS 1ATN STEP { OPEN #gMk)▚[N][H]Rzj GO TO >[B]TAB POINT RETURN b▟O STOP y[N][A]I BRIGHT SIN >. MERGE L BORDER = GO SUB OR ! OR OPEN # COPY y~n DEF FN EXP AND [P]QASN $LEN ▖FpLLEN ~STR$ i INK CIRCLE AND RfBSTR$ [F] NEXT DRAW >r^[K]ra PRINT BORDER j&Ou▙POINT W*r:n CLOSE #ABS 5mx[S] PLOT SAVE C LINE AND NEXT * IF FN 412. AND ▞© READ MERGE I^ATN ▚[A]M[N]^r[G]ATN COPY 0* BRIGHT READ QX LOAD MOVE SW RANDOMIZE H▝ GO SUB OVER &▝ PLOT LPRINT " PLOT <=7<> PRINT NEXT [F]r CLS LET )B NEW b STOP ▜Ux[A][S] NEXT /=KSCREEN$ [E]D OUT THEN }22~ LINE /ae BORDER ©CTAN s RESTORE INPUT SGN OPEN #EaI[O]e RETURN [K]USR LPRINT ([F]INT [N] INPUT IF FK>"T CAT NOT WzN[A]2C STEP NOT BEEP >=▚[B]M IF ▛ ERASE . CLEAR s<>B CLOSE # DRAW 'CODE ▖Pci NEW SCREEN$ R.AT NEW ] RETURN RETURN J LIST [P] STEP SQR J FOR [Q] MOVE RANDOMIZE [J]/'POINT [S]PEEK "▝▞mn[N] DATA TO POINT ▛j<>[ INPUT yATTR (▟[L]FTAB PRINT DEF FN RD[Q]< LINE NEW [J] OVER LET LN [I]7ACS ATTR 2▙xrU MOVE INK LIST Ni$ATN ©6 LET NEXT ▜qVT[Q] FOR q INK l REM ▝2 INK /TAB ry&r LLIST LET 40TAB } LPRINT m.}62<[B]ftqJT INK 5KF▛STR$ ZCOS BORDER LET o BEEP SCREEN$ v[S] RESTORE LOAD -?ASN @VAL$ [T]<= OVER v CONTINUE a4!BMlJ GO SUB jfY1STR$ CLOSE #U@[U]RR INK ▝Xl STEP w PLOT PRINT !Kv READ >= FORMAT Jx LINE [M]V R RANDOMIZE OVER ~ AND t[O] INK FSIN PAUSE :{ POKE LPRINT ) REM ^▚BIN z RETURN RETURN NEW USR TAN MOVE ▘▘ DEF FN VERIFY ( IF [U]_INKEY$" RESTORE INKEY$ PAPER ABS PEEK NEW HVAL$ Y MOVE IF 1COS PLOT PAUSE [D]6AT SCREEN$ THEN [S]zEXP SQR OPEN #W STOP &▘LN [G] PAUSE + RETURN IF [C] READ [P] FLASH M+ REM ASN TO USR $ GO TO [O]FN ▙INKEY$ NEXT GO SUB LLIST ▞ CLOSE #▗Z▚ATTR 81qFN RUN TAB ofUSGN TAN <= OR tY ERASE TNi THEN MOVE ▚Lxr([A] SGN ]▖ RESTORE &<IN [L]G LET ▟A`~▜TEnB}ISCREEN$ ! CIRCLE ZSCREEN$ NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▛IN SGN [T][M] STOP NOT 0OIN VAL op`CHR$ COPY [F] RUN RETURN CLEAR ASN FOR CLS LOAD CLEAR LOAD COPY VERIFY [U]P▖$!= SAVE RANDOMIZE RUN BORDER ▜D8 RETURN DRAW CLEAR VERIFY INK REM CLOSE # CLEAR ERASE ^ RANDOMIZE POKE } REM PRINT REM ACS PEB @xz MOVE PIO_IN USR [P]USR CODE [P]IN IN CODE CHR$ CODE OUT _IN COPY USR [T]_POINT RANDOMIZE INT 0 STEP [C](TSCREEN$ FORMAT [R]T[Q]ABS kASN SQR U3v FLASH e_ NEXT BORDER ~▝|[T]CODE CAT ATN W/O? RETURN RANDOMIZE NEW CONTINUE POKE POKE IF z}ABS PEEK _ OUT CODE LOAD RUN CLEAR GO SUB [D]D$[Q]@@ [F](@ [H]WCODE CAT CAT OUT OUT IN [P]_ OVER USR ^STR$ _▛//CODE WWATTR CLOSE # FOR CONTINUE RETURN 3▘USR DEF FN ▝8 PAUSE CLEAR RETURN RETURN COPY COPY [P][P]ooSTR$ [H]▟oo[P][P] COPY RETURN RETURN CLEAR PAUSE LIST 9▝ MOVE ▙ @A_/[H][H]USR W LINE PI▚[H][H]/@▝>▝h▝@@ POKE REM MOVE FORMAT CONTINUE PLOT [L]zz==^^ooWWKKEEBBA@@[R] CLS PAPER COPY ~=USR ABS OR INT ▗::INT INT CHR$ IF ▝ RANDOMIZE D▘~▝▝[D]3 INK Ha%▘@:▘E VERIFY CHR$ ▜!▚▛yI[A]▖ DRAW DRAW CLEAR CLS <=^^>= OVER [N]ABS ABS SQR tc OUT ? COPY LPRINT LPRINT A FLASH ▖O LIST RETURN CLEAR zTAN >=VAL >=~▝~ SAVE ▚ LET SIN ▗USR USR OR ▗▝▘56 AND ▞kNOT % MERGE REM BEEP CIRCLE [Q]POINT COPY [I]VAL$ QEXP UVAL$ RFN WIN CLEAR IF PRINT IF PRINT PAPER PRINT REM MERGE ▘[M]©b▚ BORDER BORDER FLASH FLASH NOT NOT STR$ RNDNOT FLASH FLASH BORDER BORDER v▗©PEEK cCOS RND LPRINT USR !A[R]@ @[Q]@? COPY MERGE @@[A][Q][A]@%▝FPOINT PI BEEP OPEN # OPEN #STR$ FOR BIN RUN ▟ OPEN # OPEN #[T]PIo[Q]?▗ DRAW READ [F] RESTORE [G]^ CLEAR 4| IF DRAW COPY COPY _O+▗+WUSR ? STOP ▚ NEXT GO SUB MERGE THEN FLASH <= FOR ▝ DRAW DEF FN ▞ OUT CAT CAT BEEP BEEP THEN FOR PRINT :▛$ COPY (@[R]B▞▟*@[S] FORMAT FN FORMAT [R]CHR$ ATTR VERIFY POINT ▖[Q] FORMAT [Q]k MERGE REM REM STR$ PLOT [F] REM REM ERASE [S]B▘▘▘BB[S][S] ERASE ERASE REM REM PRINT PRINT IF CLEAR a[O]USR "$[Q] FORMAT *T[Q]Q[S] THEN %#[R]NOT CODE [B]▗ COPY COPY LIST RUN TO POKE ▘ RUN SAVE x[A]BUSR ©SCREEN$ U*T'H[C]$.▛ REM MERGE SCREEN$ TFN TFN P[U]P[U]▞ NEW RANDOMIZE RETURN RETURN ©[P]O/STR$ BIN ▘ CLS STEP CLS [G]! SAVE @▝▖▞[C]( DRAW COPY ATTR U[H]▝BIN ▝POINT ▝@USR [Q]STR$ FORMAT <= CONTINUE ▖ FORMAT FORMAT [S]@!?[M]x[U]S[R]q<>SCREEN$ q STOP CLEAR © OUT /[CODE W-W+TAB ATTR CIRCLE ▖A▝▘▟USR `[Q]`[A] FORMAT VAL p[A]P0 FORMAT USR LIST OR SAVE CIRCLE ▖ J{STR$ DATA PL!VX▟3K BEEP INKEY$ POKE GO TO CLOSE #AT CLOSE #AT (▗ VERIFY ATTR MERGE REM STR$ [R] COPY COPY RANDOMIZE RUN COPY (IN LIST BIN BORDER h▗[I] DEF FN OVER GO TO [U]p© DRAW CLS DATA X@PhP TO M%RND COPY USCREEN$ U COPY x INPUT IF COPY [B] COPY IN INVERSE ©©[P]/▛W[H]"STR$ CLOSE #SCREEN$ ] COPY SCREEN$ STR$ USR ▛ LPRINT LIST FORMAT CIRCLE CONTINUE CONTINUE DRAW POKE RETURN POKE COPY ▖c©%OVH FLASH ATN JU*JTAN &[A]USR [Q]USR A [A][A]▜ IF LOAD PI IF ]INT } COPY E LIST Y CLS dEXP VAL$ [E]AT AILJ%POINT V) THEN ▟▝▘▘▝[B]SIN OR PAUSE ▟[K][E]FN FORMAT [Q](U REM T*UINT U*/SCREEN$ MERGE ▙D INK LPRINT ERASE hTAN Z[U]R, OPEN #* BRIGHT ([A]dP[Q] LINE ▛EATTR WATTR 3 READ [D] OPEN #S3▗ COPY WCODE _[A]@ LN SQR BIN LN }s RANDOMIZE ▝.[U]SCREEN$ );9N INVERSE ▖A%▝INKEY$[A]A*A RANDOMIZE ▘u>=▖@J OPEN # [K]ATN )/C GO SUB ?LABS :/ PRINT ABS _[H]J▜ DEF FN mf<=k> BEEP [O] FLASH ^IN STR$ zX[B]2)X'CODE _CODE _ LOAD _/_IN ©*▘ BEEP ▚H▘?▟)/1N▝▘^[P]b[D]>= PAPER [U]OQ▖D2DFN TSCREEN$ LPRINT VAL Pj INVERSE CLS OVER LOAD COPY SIN (X(<..n DEF FN [M]<8txtx|r[J][E] STOP LIST ▝Y NEXT RUN PLOT Q[S]@ BRIGHT IN H▛EIN FLASH COPY COPY ▚8 CLEAR POKE RUN PLOT /▛ RETURN COPY [C]_MO[K][K]PEEK 201rsr{tu NEW RESTORE INKEY$ POKE ATTR DATA `H OUT PEEK xIN 5@▞BH REM TAB © BEEP RETURN ATN CLEAR }SGN pX BRIGHT OVER PLOT o[P]} DRAW } RESTORE DIM J[K]: CLS SGN COPY u}U][E]/ BRIGHT [O][K]>:.+/G▜▙<ysGx@▗*CODE { INPUT ABS CLEAR ATN VAL$ INVERSE LN _`[Q]CHR$ THEN RESTORE {©?/ DEF FN INPUT [F]57wy SAVE RANDOMIZE [J] INK X▞Nf STOP CLS SAVE COPY REM T[S]▘U*▗@ MERGE FOR CLEAR [H]d'TAB EXP @[U] VERIFY INK CIRCLE NEXT NEXT POINT [F]JGC-/[E][M] SAVE SAVE x CLOSE #[C][K]eRNDu)TZ#+[[L]; LIST COPY RNDJ$[C]hVAL BRIGHT BRIGHT hCHR$ GO SUB IN RETURN COPY OR USR ▗▗N▙[C]RACS VINKEY$ AND DRAW |PEEK STR$ ▖? ▗▘▝ABS ▗$[A]INT ▗"SCREEN$ © RETURN COPY CLS OUT ▝ LPRINT COPY ▝ REM STR$ [F]@&[T]R RUN OUT POKE ATTR PLOT READ ▝@ LOAD [D]!UVABS w[O]g INK ATN OVER NEXT © BEEP OUT [I]>=▝K▘?>▝>USR ?~©}NOT ©} COPY © COPY ©PI[H] CLS COPY CODE CLS ASN IF PRINT CIRCLE REM USR GO SUB GO SUB LIST LPRINT LIST LPRINT COPY CONTINUE LIST CONTINUE SCREEN$ POKE COPY &▜ DRAW READ OUT INVERSE PAPER OUT CIRCLE Cu REM INVERSE REM u INVERSE [S] CLOSE # REM CLOSE #j POKE DIM V GO SUB ERASE TAB R GO SUB ERASE POINT STEP SCREEN$ CLOSE # IF MERGE REM MERGE INT uSCREEN$ E[S]T*▝▗>=[F] COPY CHR$ LPRINT LLIST SAVE SAVE [R]© COPY PRINT SCREEN$ QNOT RESTORE ▛[A](▝RNDPPOINT TUK▙INT POINT VATTR Q[E]*[B]H$[B]B)PU▗RND COPY [F]{ CLS [SQR NOT ? COPY IN COPY COPY CODE WCODE W+W'G INVERSE OUT [I]VAL$ GSCREEN$ JRNDX[F]F▘▞D[S]PFN PFN T @FN ATN STR$ [S]USR ▝[C]▛[K]EXP POKE LPRINT FORMAT ▖ MOVE [S]USR [R]CHR$ [T] LINE [B] INVERSE [D]@ LET PRINT SCREEN$ P▗R[Q]H[U]R ▖@[S]P▛▝ ▚ SAVE <= RANDOMIZE [F]'<=%![T]NOT -[ASN k MERGE STR$ !![T] OR BORDER ▜ REM POKE _ COPY OSCREEN$ 3[Q];AT 6▚dABS :l COPY ▚STR$ OVER BEEP MERGE OVER STR$ PAUSE ▖ATTR UATTR VSCREEN$ USCREEN$ T LLIST ▛DFN DJBIN ▞ DATA FORMAT BIN SCREEN$ CLOSE #▜ LPRINT ©u DIM DRAW CLOSE # LET STR$ RETURN COPY COPY WzATTR AT RE▘( CLEAR !R! LIST ▝ CONTINUE DATA TAN IN GO TO LPRINT K CLS DRAW COPY ?<={ FLASH { CLS READ COPY COPY IN TATTR [+[F]+TU+%+[F]RND"[C]E▙USCREEN$ EjASN J[R]P ▘ COPY SGN >=STR$ x AND |STR$ DRAW CLEAR } CLEAR 27;▘ COPY ©F▞ CLEAR © COPY ATN CLEAR ATTR V[R]CHR$ PAPER INKEY$;-EFBB▛[F]SCREEN$ [C] NEW VAL$ OVER [O]SGN DRAW POKE POKE CONTINUE CIRCLE LIST FORMAT LIST FORMAT LIST LIST LPRINT LPRINT USR k▟ RETURN COPY OUT COPY ABS [O][P]IN LIST }[D]N?U- FOR INVERSE 1 POKE IF PRINT PAUSE PRINT jTAB PI DATA BORDER NOT NOT PLOT [P]=;=;7{wowo OVER CODE ^k DRAW COPY RETURN COPY BORDER DEF FN ▗o©BASN hUJ@BBa[R]LEN QZ*[E]X LET © ERASE U_RND] CLS RUN RETURN © RETURN RUN INPUT <= DEF FN ▜ STEP [P] STEP [P]▛//*▖ COPY > CAT PRINT © INPUT CAT [S] PAUSE '>Yf INVERSE jUjASN INT _ COPY SCREEN$ OVER RETURN UV SAVE CLS { CLS } CLEAR } RETURN ~ RETURN [E]:STR$ CLEAR CLS CLEAR CLS EXP {TAB T NEXT COPY FN ▜_SCREEN$ QAT USR FOR | FLASH ▖o BORDER ATN OPEN #KPOINT UTAB LN ▙CODE OATN READ READ LLIST [Q][Q] LPRINT 0>= SAVE CIRCLE USR GO TO ▝ INPUT STR$ PLOT [H]{SQR {IN OUT IN INVERSE ABS OVER INPUT OVER LOAD OUT R COPY RANDOMIZE RUN © CLS COPY MERGE [Q]- SAVE VAL H▖HFN CLOSE #AT CLOSE #tSGN BRIGHT RETURN DEF FN PEEK ~ PAPER INT RLEN NEXT RESTORE READ aKIHE$50qx}|~©/?+7VAL$ [F] LINE MERGE CHR$ MERGE H[Q]USR % DRAW RETURN OUT TO I▟USR [Q][A]▖[A]▝▘▝▘▝▘▗▘▗ LLIST ▜USR STR$ USR USR BIN USR [K] LOAD PEEK GO TO ~IN AND LET SAVE IN _#{-AUSR @▗PFN RLEN ▘FN PEXP ▘TFN [I]▖PP▖P▖P▖[S]F▖([B]>=[A] LPRINT [C]FN MOVE CLS ▙USR RFN P[Q]DVAL P@H COPY COPY CHR$ ▘STR$ ▘' PLOT © CLEAR BIN ▝NOT 0▘EXP p5USR ▙8e|`u8 LPRINT TO TO <=<=CHR$ CHR$ ASN CHR$ ▖0hedLL,- CONTINUE USR RND/f AND BIN TAB /mm<> AND ▚ LPRINT LLIST 1q GO TO ▚[M]INKEY$▚COS LOAD AND AND NEW NOT >'[M]z266[ COPY ▙ OPEN # CIRCLE CIRCLE d▙[B]SS FLASH OUT ▟>g[A]qSQR INK RANDOMIZE i[J]pFN RANDOMIZE CLS CLS ATTR ATTR POINT ▖ RUN A▖$m}mmHNOT $l▝>= ▝▝9[A]g INK ▟ STEP ▚USR ' INPUT TAB AND OVER A▜ LPRINT [D] RUN ▚ VERIFY READ USR [E]▙ACS ACS [L]0 LIST FORMAT [A]VAL FORMAT P NEXT POKE LET VVS%qVAL$ ▙*PEEK PEEK SCREEN$ SCREEN$ STOP VAL [Q]AT PEEK INKEY$INKEY$[U]0USR ▗USR @USR @[Q] FOR NOT NOT FOR q?[F] OUT OUT MERGE MERGE 8▗▖▞[L][J] INK RANDOMIZE m1▙`Ay]MlYNOT PI#ccA0▚8Lll6?g▙<> DIM of<>g BRIGHT ▜▝ THEN ▜1@▜00 LIST FORMAT 0m[G]MPIo[R]NOT ▙ OUT STOP DEF FN PAPER ▝{▘@ IF STEP COPY g CLEAR ATN COPY CLEAR ]▝ RETURN ^h<>▗PEEK © COPY CLS <@[C]SQR CLS COPY SGN BEEP COPY NEXT COPY o PLOT COPY LOAD COPY ASN RETURN CLS RUN GO SUB )[P] GO SUB COPY BORDER ABS RESTORE IN © FOR ? LOAD IN RANDOMIZE OUT PRINT INPUT PRINT ATTR CLEAR RUN BEEP COPY LOAD IN PRINT RETURN INVERSE RUN CLEAR OUT CLEAR OUT VAL ▘ CLS [P]/? COPY SQR 5▞ BEEP FLASH ©ABS GO SUB w CAT COPY CLS IN ASN CLEAR OUT RETURN RUN LOAD u} COPY COPY OUT LIST BIN (`▞ BORDER DRAW ▜USR POKE [I]PEEK MERGE COPY 09 LPRINT SAVE COPY RUN LPRINT LIST READ LIST LPRINT LET W▙ POKE CONTINUE POKE COPY COPY RESTORE LLIST COS > COPY LLIST !(Q▝ RANDOMIZE 8▝ COPY THEN d▗ NEW CLEAR ,@p[C] COPY COPY [I] GO TO IN ▜ INVERSE @[M] OVER INPUT CLS CLEAR @G▘ CLEAR 3d*/▟?95[N] OUT CLEAR ▝USR A[T]STR$ RANDOMIZE CAT <=cc CLS RANDOMIZE LET 8.ME[U]I▞>=TAN CIRCLE SAVE GO TO SAVE DRAW GO SUB COPY SQR GO TO COPY COPY OK REM PM1INKEY$▞ COPY FORMAT CONTINUE FORMAT DATA ph1ASN ERASE PAPER RETURN RETURN ATN CAT <= READ aii~ REM PLOT SQR IN COPY COPY H FORMAT 8 MERGE [R] CLS INPUT . CLEAR [J]!CC▜▙▝▝STR$ USR REM PAUSE CLS ACS ATN w_} LINE ▟?o~iUSR iW[N]|[P] CLEAR COPY |[A] DRAW ©PEEK LET LPRINT [L]{vASN [F]ACS oo▝ OUT x[N]*[t~PEEK OVER IN BORDER [P]w PLOT PLOT ▟▜/bPOINT '>@[D]3G FOR w[F]5 ERASE CIRCLE BORDER SAVE PEEK DRAW 80ACS DRAW LPRINT PTAN ATN FLASH zu▝ OPEN #LN FN ` CLOSE #FN DRAW PAUSE } OVER o RETURN { CLS CLEAR PEEK CIRCLE LLIST '[P]© VERIFY LLIST R= CLS IF PLOT GO SUB GO SUB CIRCLE CHR$ NEW RETURN ABS ] PLOT [H]IN WATTR COS ABS OUT IN _ NEXT CLEAR RETURN PEEK INPUT CODE IF !.oCODE o COPY LOAD o RUN <=47 BEEP BEEP THEN FOR ASN & DIM INKEY$B[N]ATTR 'ACS Q7WATN PAPER ?`IN [A]e~ACS ABS BEEP RETURN COPY IN ©ow BEEP ACS ASN COPY WUSR P[M]: RUN COPY LIST PEEK [O]:&▙ INVERSE MERGE INVERSE MERGE INVERSE TAB PAPER IF t▚; CONTINUE ,[H] SAVE COPY COPY ATN OUT <=~<[P]o OVER COPY ABS COPY o COPY ATTR ,ATN ▝ CLEAR NOT [F]wPEEK ABS OUT [Q][Q][U][A][B][A][A]▖[U]&HF[P]xk[P]y[O] LOAD oACS [H] BEEP k NEXT NEXT READ IF SGN BEEP ©▜*WIN W RETURN ACS CLEAR COPY _ RUN IF RESTORE CIRCLE <=▚m CLS < OUT ?b[A]Q▘>=x/▞▙ LPRINT LN U DRAW RND LPRINT [A] SAVE l?▙[N]▚C!LEN POINT DIM LOAD IF IN COPY LOAD COPY RETURN INPUT PAUSE } RETURN FLASH FOR REM PRINT PAUSE ]SCREEN$ ▝NOT USR AT IN T([Q] LIST q▝[Q] STOP STOP ▘ ERASE MOVE [B][F] PRINT CLEAR [F] CLEAR [N] PRINT CLS [L] CLS _[ LOAD LOAD ATTR FOR BORDER STR$ LOAD ▞ejn OVER INVERSE INVERSE ABS COS CAT qLN LLIST RANDOMIZE CLEAR STR$ ABS o_ COPY LET LPRINT POKE GO SUB LET CLS [P]7/o}n©5<[J]YA! CAT COPY PRINT COPY LIST [B]! RESTORE RESTORE LPRINT BIN USR BIN USR BIN BIN [E][A][A]▝[B][B]▝c READ IN W~▜ GO SUB COPY ▗fUSR ©[Q]*[D] LIST ? COPY RUN CODE X LPRINT USR USR LPRINT LPRINT FORMAT FORMAT ▖▖HBIN CHR$ CHR$ a LLIST LPRINT LPRINT STR$ LIST PRINT PLOT RUN LOAD INPUT ~[P] GO SUB RETURN /W{z}[N] READ ~ COPY ▝ LPRINT yIN IN _CODE CODE P POKE OR STR$ STR$ ▝STR$ [B]BIN BIN ECODE CODE RETURN COPY RETURN SQR CLS [ FOR FOR v BEEP COS ABS _IN ▗[Q]t8 OR [J] SAVE DATA DIM PLOT y PLOT CLEAR VERIFY CLEAR PLOT RANDOMIZE PLOT COPY RETURN CLEAR POKE PAUSE POKE INPUT PRINT IF POKE REM POKE REM [I]▗ CONTINUE LET [A][Q]:▘ USR BBFN @ ERASE MW RETURN ▗@ COPY MERGE ERASE FGBIN P▝G ERASE ▘FG0 ERASE BU(@ ERASE F@` MERGE 0CHR$ (▘x ` @C▘88(@USR @ x x ©x@x x`BIN (@xx ([P]NOT 80@IN x H`x FNOT = COPY 9 ▝HP!(?H @"▟> AND g@ USR `▘DDX ▝Hx (@▝ (p@'tUSR h``NOT ▘ ▘88#▝0H[Q] IF TAN xUSR NOT i CLOSE #▘X LPRINT RESTORE LLIST COS > COPY LLIST RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RANDOMIZE COPY COPY COPY dddddddddddddd NEW CLEAR @@ COPY COPY [I] GO TO IN ▜ INVERSE @[M] OVER INPUT CLS CLEAR RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR 3© COPY COPY *?95[N] OUT CLEAR ▝AAASTR$ RANDOMIZE CAT <=cc CLS RANDOMIZE LET 8.ME[U]I▞>=TAN CIRCLE SAVE GO TO SAVE DRAW GO SUB COPY SQR GO TO COPY COPY NEXT GO SUB sWj INK "Sj INK ![R]iUSR USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1▙hNOT USR GO SUB VAL ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN USR INK 1 NEXT <>MsPk CAT PEEK ij▙hbT[ INVERSE !"[[H] INVERSE 6A STEP CHR$ [A]SGN > COPY `NOT HWARGAME #!USR O`ATN 27+@ LIST [R][L]|+,MAINKv) LET |` RESTORE 0▙ COPY #;#[E] FOR 6<[S] PAPER COPY STEP ▙]!.8X_ACS /SQR / THEN / LINE /©_▘_W_[F]_▗}VAL -[C]/v[B]<AT c/{"![!@@ LPRINT P!$_DFW COPY POKE FN KBIN S▝iRP▞8 REM *[G]&|k STEP CONTINUE /"j[G]BIN ▗[G]NOT 8z, THEN e(.$xLEN NEXT <> LET NEXT "PI GO SUB sTI LLIST "@ RI1 MERGE OR INK RESTORE INVERSE RESTORE CLEAR RESTORE PRINT GO SUB Wg GO SUB _o RESTORE PRINT <I{ RETURN TAN (- RETURN INT LINE LLIST H RETURN LN (J RETURN LEN EXP (N RETURN ATN (8 RETURN ACS ASN OUT k ck"I>= INPUT STEP "INOT RUN HCOS VERIFY CKs#Eu PLOT CODE CLEAR © GO SUB Y| RND!<gPEEK PAPER 5PI>=5 FLASH ?SCREEN$ 8 IF > COPY OPEN #_<z INPUT AW~ STEP +IINKEY$F=@ OPEN #? INPUT WCODE nNOT ;plc~ PLOT z2:H LET LLIST | GO SUB G} GO SUB O LET CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST INK d GO SUB { PRINT 32NOT H8TAN d|D?)= OVER RETURN INPUT CAT - LIST IF `Cd22!A`P B"$& COPY [U][N]/▞3iRND25;STR$ bINKEY$w897 INPUT CIRCLE PI-4>( MOVE >?)SIN @7@*h PLOT ]%+ CONTINUE {O,>:!=ABS ?*USR ▝ STEP g▝"p_[K]_INT _ STEP Q_} AND o0| AND g STEP U_, RESTORE STEP [Q]▝~>Gw LLIST RESTORE USR w$| NEW POKE LLIST <>!IN "0▘RND BEEP 0▚0h OUT -* RUN *z© LPRINT USR USR LPRINT LIST :©gC] SAVE DRAW RETURN COPY RETURN |8AVE",NULLORG #B800MASK_TABLConra DATA r`PHDBA RETURN ACFMZu| REM vINT ^VAL$ V RETURN SCREEN$ PAUSE PRINT VERIFY A▜. COPY USCREEN$ OUT =▘ STOP © GO TO [P]?' PLOT ??©Uj[R][B]@© RETURN VSCREEN$ 6r/dSTR$ 5INT INPUT SCREEN$ INPUT INT 7]U POKE X]_PEEK cPEEK _>;Q">QASTR$ COPY WTAB YLEN ayJMOA LIST 0PPEEK PAPER v IF VERIFY COPY NOT PI[N][L]TAB SQR RUN BEEP [A][D] GO SUB PEEK hn`f$} PAUSE < CONTINUE <$6b▞ OPEN #f xTD[S]l0` FORMAT [Q]F5[C]eL6▘8USR [E](,RFd[Q]l▘bJ OPEN #AQC6&$B[T]`[A][A]`z GO TO }< BRIGHT ,RND?[N]pTAB BB O[Q] MOVE $(DDHPPH▖▖.F COPY COPY ©QUSR LPRINT LPRINT [M]{[U]x▝N>ATTR MERGE CAT BORDER INK CAT MERGE SCREEN$ RANDOMIZE PAUSE [O]|ATTR UI COPY [J]IN LPRINT REM RNDSCREEN$ DATA a,ATN `[J] CLEAR PIE CONTINUE [U][H]}FN DATA LPRINT IN ! BRIGHT } CLEAR g NEXT "Dh[S]USCREEN$ ?( ' DRAW DATA 0▛'?[T]#PI DATA DRAW BORDER ▛ATTR SAVE ?$BBh COPY A! RETURN } VERIFY CIRCLE OR IN N!@ DRAW AT [A] CLOSE #@ COPY USR pHTVAL$ IF MERGE COPY ,PP[Q][Q]USR 0>=4[A]4>=H0USR , DIM ;[P]lABS [Q]!H([I]X( INK CHR$ ,[S]D[E]BASTR$ PM▝! LINE =k SAVE VAL [K][N]GASTR$ VAL$ FN [A]2 VAL X4`B OR IAERAQ"EMQG`▖^ OR [B])▘F▝ SAVE |1[I]LY[Q]:N. CLOSE # AND :n| INPUT #H.()[S]KCODE ' LPRINT V)Gp>u: )T-9,h<<[M DRAW READ )INT c6COS .:[T]-'▞&▚ TO X1Y,FN G CAT INKEY$) PAPER ©{& LLIST fABS q[J];Q<[S]<!P[H]L RUN ▖,'IN ;xJ DIM mVAL CLOSE #©1!4<x` THEN VAL !_q CLEAR REM .fp`5Z POKE [J]©=[H]UP2 e<VAL$ S<> INK Z6:COS UB-, NEW I LPRINT /j8![F]#> q<>[A]COS POKE RESTORE f OVER Ad}[F](H{L▘h'q?Iq^'=e#1[J]z2I!INKEY$+< CONTINUE PIKAT RND):fD INVERSE +O'SIN LPRINT [A][B]^ STOP PIR9|(NOT I[B] Y&gk. L60/&p FORMAT ERASE pU4Kq-' OR ;[R]j[T] BEEP iI(eXrv STOP 6COS CLS REM [R] CLOSE #IPEEK :[Q]@.2{TAB V;OINT dQ MOVE I%) PAPER 1EXP CLOSE #Bg▜LR{1USR RND}tctINT 4 INPUT y[G]_:[L]I==CODE '8,:u THEN KACS POKE K/& DEF FN k▘1.94< CAT OUT >WLEN QHX%%▗6[M] DIM +CVfIQo[D]VAL$ 'PEEK ASN t+7m+VAL$ 1;24x"▟n f FLASH bB LINE G&N{ LET G'JX RUN ABS :H LLIST RUN ' LIST ![L]! RANDOMIZE ESGN [ POINT ▝'TC9 SAVE Q PLOT #u[[I],-4 RETURN 2 CIRCLE LEN @RNDj DIM MXL=i{*tBoQ;14[M]LN i@3Q'/SQR ('SIN ABS [M]P▙1P2}SQR !G)+▚ OPEN #Q` RESTORE &g[J]©I DIM b@7A▟B▖ 9' ERASE CLS 1P▖[G]_VAL v?>4XSQR [K]F5 LINE FLASH FLASH d▛ CIRCLE [R]< FORMAT STEP =X{>=5.J+©M'IVAL LN Q< NEW T?EXP REM > RETURN VLEN .©CSIN +tX1^4,ATTR j▖^TAB pNBVAL HPOINT G0y[C]6Nf#1C[A]CHR$ FN TO ' CAT INKEY$[P]fI j8J DIM B2hHB AND O©{' NEW `D AND 5Z[R] LIST [I]VAL ▙ POKE l PAUSE t©YABS ▗eK^A1s%▛| CLS [H]K CONTINUE [Q] CLOSE #<>Nb© RESTORE [U] CLEAR gx▗6 BORDER Z CLEAR GDh[ PLOT ▘2SIN ` CIRCLE VAL$ DIM _STR$ ;g' NEXT RNDV[P]TAB fs4USR DRAW )[H]k( DATA READ #d8/USR ▗;X RESTORE INT PI[T]=;,SIN !PI%$ LET INKEY$e#.<[CP6P[M]PCOS K▘ MERGE 91[K] INK ASN [S]3d)h#bLN ▝' MOVE Z STOP > ERASE 0-#CODE ▞ LET P OR .9V2E▚ OPEN #P, TO XATN z5L a RANDOMIZE M> FOR OPEN #[C]BVAL V?[yHAN©T VERIFY = VERIFY STR$ ▟ TO e!L PAPER *9 jI AND VAL$ gcLEN CONTINUE DATA T:-CHR$ T}Ojj( INPUT SAVE PEEK }, FLASH HASN (='GRND2 COPY [G]%U'-"▟ FLASH COPY + READ Z4:+{1M'H`a8Ip>@ATTR 'Wr<9VINKEY$J CONTINUE m+f[Q] AND [Q]OznrG)!ASN )3 CAT G<>q▜J@v+K POKE BIN BEEP hSGN g' LPRINT [B]Bf DATA ; LINE [E])_n<j/8u▙k CLS ,FN W BORDER !42645F STEP ( RETURN KNa>TAN : #(IV[C]<)BIN Ou!#TFN [R]8! VERIFY >[E]( PRINT FOR [M]STR$ ,▝ OUT o STEP H(66; AND Os#;' #xd DEF FN <&.▙' MERGE EXP BEEP 't[D]RND▗[O]z= OVER LEN [T]#STR$ CLOSE #▘ LLIST [A]HIcSqUSR 1nASN #K▗ BRIGHT COS H CLOSE #[D]0 STOP -4'm LOAD upU8)q"▞X9,,{ GO SUB .#>e, RANDOMIZE q MOVE <O LPRINT BRIGHT E>=>> CLS A[P]NOT e:}2bEXP KACS [N]G RESTORE A NEW DIM ▘ INVERSE ' RANDOMIZE WY▗ DRAW (G=M4 CONTINUE [Q]!4$.KK'%v[Q]jqHTV#v$A DRAW RND DATA T XJ STEP [P]m{+7 OPEN #2[E]d*(VAL O▘xM8! THEN IW▖ ERASE <SGN ▙'CLq^▘L[F]1 BORDER ",STR$ S BORDER [R] tP U[B].+RND▗[C]f{1N0 RESTORE MOVE TAB +c8/C kH4,▝_TAB @INT >[U]SCOS t<=ez[S] RANDOMIZE Tizj9Y<&>=FK[Q] VERIFY LW▜X1v STOP Pgr<G0 IF W OR h[S]X STEP 8i!_7 FOR ?▝N?e0 TO 1`[R]TAB Y INK )qC#H DEF FN X&[E]8 INK cWUSR i[S]ATTR P2^b▜▙D NEW -2AT # PLOT ▞D▜ GO SUB #A>eY'J[F]#>STR$ ,w LLIST [C] DIM CLEAR K[A]8[O]ACS 8BIN [M]CODE ']},USR 0VAL [C] Z▖^xPEEK DATA p.$Q]4 LPRINT NEXT n▗T[F][K]PIR[A]j]y2:m#D'8J VERIFY d▛TAB Y;x6 OVER USR A1AT ;/8LN #1 POINT .28N'FN h1u[K] LPRINT CONTINUE /0p_ INVERSE 7 GO TO ATTR kPR'TW[E]OFN +▗ FLASH [L] LIST SCREEN$ [E]{ABS SQR (P<=C): NEW [F]fABS VAL [J]07C3 BEEP j/D^M9Or4kSTR$ POKE [ RUN [E]_mU<SQR INVERSE 0=ASN 2! INPUT [B] LET 0TAB ,W RETURN jp▙pVAL ▘tHmNOT :[P]Q▙[M]ITAN Wo[I]iLN G)WATTR n8[I]ATTR GxW? PAPER 1u6[N]TAN MTAN /* DATA E][D] IF INKEY$SGN m&oI<SIN )pE▚EXP O~*p@P+ PLOT [U]i){ NEXT /STR$ ,IN /:CHR$ @9K]FN [O] AND '/[N] LINE Z[P]'VAL [G] PAPER 1!c+[I]9' LIST [C]Vx!' BRIGHT [I]Jy[H]<> FOR AND LET INPUT , THEN VAL$ 4wN©CjaR'ABS w@'▝L IF k▖ Z VERIFY !TAN H9O OR C BRIGHT LET INK cJ#'([H]▗_/&K▗ PLOT RND< CLS )▘G,_V[A] OVER [N]ALSIN [M][E]kw/ PRINT LINE FOR 8 PAPER 1[H]ISIN [C]V NEXT $[U] LINE [U] CLS wATN 2[M] NEXT 4deZ{OFN FOR R FORMAT [J]0I PRINT C[E]P IN LPRINT D[A][N][I]3 CLEAR 8]:y2<>>mIN h2VAL FORMAT 1[E]d5.1 LLIST tE▚ GO SUB @dO DIM [K]T9[O]dDH4 SAVE !'[F].) BORDER a*f RANDOMIZE LOAD 1[M]9@[K]l=, LOAD G <O▗BIN 4tjATTR SCREEN$ 1LN 2STR$ ▖8G3ySIN [R]L +RND! OR >q[B])]PS[G]:ATN STR$ ;[L][S]OD@3T`▝J:ITx>[O]_WHm[Q]▞/▘*. SAVE '[N]Ma VERIFY DATA INVERSE ]▜) OVER e STOP (Tw▞[M][M]AT MOVE `COS POINT NEXT ▖uO DIM T CLS TAB Y THEN I@[K]FN *[E] NEXT [Q]PEEK BIN M5-SQR VAL a'8S1DvLQ:e STOP #K)V FLASH ABS 8[O][K]~▘hF*wRNDINKEY$m[E][T][A]%AT &▞)p[G]9.V#O<>▖ NEW ;' IF ; FORMAT 9pjT▛ATN [O]SIN [G] OUT C2() INVERSE E[A][M]0 FORMAT )FN 5USR 8[U] fWINKEY$$'Ib_W h;[F]; LOAD RND>HIaW}[T] POKE [K]D RESTORE ▘+VAL ACS BIN [M]TRp7v2.) LLIST o OPEN #Ji IF [E]A1[F]!LEN L CIRCLE [L]M'+▚<>RNDLT=2 LIST `J!TAN ; DATA yUSR REM 6;Z NEW *+*YlI8/ BORDER FN ,fq[O] TO 4k▟RND&SCREEN$ ▚ PAUSE -,I DATA uVSQR O2POINT P[M]K LPRINT [I] GO SUB mo[B]ACS [N][N]▘8/CHR$ [S]FN NEATN 0 LET LLIST 'wt`1o) RUN uLN STOP ABS :4 LLIST e POKE 2`!VLIN (a/> INVERSE b▛IN ▞7BBIN }O@ STOP OVER ex;CHR$ (m [B]TAB G0▗`I6▟ REM Lq AND /;>1 PAUSE O]P▜[T]4wI!F!K NEW =sdFN KL^X▛R"a8[H] LINE h1PHK POKE ATN 0OPI▗PEEK ▘tw[I][L][U][C]M*[P] GO SUB 2ATTR INVERSE COS &t#INKEY$ GO SUB VAL :#L▗W SAVE BIN >*/?ASN 1LN USR _w!SIN ▞USR [L] OPEN #ASN V2ISQR n[D]_0!C,[G] RESTORE DwLh DIM AT .SCREEN$ K CONTINUE kw<>[F]PI7[L][E]jMCHR$ O^ASN #>u;LEN L%[U][P]1SIN C, FORMAT COS 'y NEXT EXP G>fG?V>P]ACS -LEN K6▘[N]COS zYz▙'= GO TO /'Iv20▙<ABS [R])RND[S]<=_[D]%AT K PAUSE [J]U LINE #> LINE .[H]KBIN Be$ INVERSE 7I ERASE S DATA RESTORE + H[T]~f8 RANDOMIZE ]-`I#DINKEY$x FORMAT ;$C7B"=#`,,NA COPY D GO TO [N]BIN N+SCREEN$ GO SUB 6FN OR NEW > BORDER eY▚ NEW +[R]B▛>d▚BIN f^[Q]LN ATTR d+ RETURN 3PEEK _D-[A]n<n[Q]L INVERSE ▗[Q] BRIGHT ERASE 9 {TK,*+xB INK O#j](SAq IF _wTAB W THEN INVERSE ] FLASH t@ NOT <= OVER h0V0 INK OR /.kUSR CHR$ t'▖[H]k:CHR$ (e▙'wPI PAUSE K8@[Q]v▛xOa:COS [Q]ATN 0rNOT rBD, PLOT ( REM e DATA [U] OR RETURN wU( VERIFY )Id▞ARPOINT kSCREEN$ ▖[B]Z+H,O7]G'7>[O]FN Z[Q] CLS ' PRINT G?+[A]) CONTINUE TPEEK STOP [A] INVERSE _EXP AND ©(INKEY$]': PLOT LIST RUN TAN w CONTINUE ;'PEEK GtPOINT ;d7[S]2STR$ PAPER L▗!9,0[J]▘]ACS [N]+ PAUSE ©IN xN{TAN 8 OR [B]AT 7qQ?▚BNZ@INT ~A0<>I]`zEXP [L]Tzj STOP )SCREEN$ PS5AxC9fZ#INKEY$)▝KA*t]CHR$ ~[E]T▟ACS PEEK @*[Q]- RESTORE TAN VAL b©XT[K]@INT c PRINT ▝EXP k DRAW p"?▗: AND GVAL [J]$4 STEP .VAL$ &S;QY[S]0m)[Q]/>T[A]8 iIN LPRINT c:A▗6:USR P2[Q]G3f]K+ STOP PAPER &LN $`e CLEAR DEF FN 8 RESTORE NOT v CONTINUE LEN ABS IF CODE V LOAD q6)!Q CIRCLE OUT LJ=.USR & LOAD fATTR OPEN #7 OPEN #[F]▙p[F]1V)[G]$▚m IF 6~USR ' OPEN #[U]QUSR REM x Q'I CLS REM 2`[I][D]▘ LOAD ▟▛ POKE efEXP INK ▘ VERIFY POKE [A]#oIN :J&gF[O]X`6" COPY -C CLOSE #'G,ABS @`$ DRAW : PAUSE VERIFY gUg'!lO STEP [H]b©4 Jf THEN DEF FN :#VAL [P][E].)cATTR OR SQR (▚BIN D BORDER s,]USR B GO TO VERIFY { NEW K[G]:COS i()0[H]OD/[O]8_-2!<=#x8EXP OPEN # LLIST [H][U]9* MOVE 84dmH[J]▖Z52% NEW :C AND ?INT [M]/1▜O RUN NOT ATTR (COS G[A] LOAD cI▙<AINKEY$O[U]K PAPER * FLASH nFN .LT[S]2AT MOVE BRIGHT f?3&▞[Q]6TWATN 0[B]*IN JJc,m IF [C] RUN aWPQ▟ REM l INK cwrRSTR$ G>/OM' FLASH 2 PLOT p<=@ BRIGHT UBGW[B],| LLIST [R]EXP tTAB !+▗( TO 6 NEXT L BRIGHT DRAW D▞PEEK CONTINUE J▖>=: AND fNZ GO TO [U]▙2u▘ZG0IN lLVAL 2B*JIN [Q]▖L;POINT [B][K]=V'3_5IN ~L DRAW H SAVE QT.,[R]7! THEN l▛V@ LPRINT G g RUN COS =[P]' INVERSE ▗INKEY$M[F]/[Q]VAL "F RUN SCREEN$ INK `v? CIRCLE "6ECOS 1 INK T[F]:U-, ERASE [P]v$[L]tccBINT [M]~ TO OR BIN [M]EKI6[Q]ATTR P# RUN DEF FN d[E]INKEY$[I]POINT %@CHR$ WR'▘[E][C]+,SIN QEXP !x RESTORE MOVE COS LOAD YbL▜ INPUT ,TYv▗v2$[P]L▝7[A]CHR$ [E]:)'T[Q]Bcy4JJ,[T]e+TR FORMAT CAT ^NOT 0"4gVAL #FN 52[z) CONTINUE [G] CONTINUE m[R]" PRINT STR$ <>COS [S] DEF FN ABS ▜; FLASH z POKE {[J]{.©2©5© W8©* RANDOMIZE ~ COPY ~©{{[T]{POINT {INT {ATN {TAN }RND}SCREEN$ }!{Q© OUT } READ } BORDER } GO SUB }/~3~ DRAW }~ RANDOMIZE {{ NEXT }+SGN } MOVE }]© NEXT ~ BEEP {~ SAVE }~"~&~7~A~ FORMAT { OVER { RESTORE {1| TO } INPUT {+||~CODE } THEN z<=}z,{/{8{ OPEN #{%| PAUSE z8| GO TO z▘~EXP }CHR$ }|©b~l©▘©L~[M]©NOT ~G~?|Q|K| GO SUB ~▖© LLIST zI|Z~BIN {g~[B]o> OPEN # RETURN >ACS GO SUB G GO SUB ^1ATN ATN CLS INK 8ATN INK !m▜ INVERSE !cz"uz^#VVAL$ MERGE REM "USR ▝ INK MOVE INK INK ▜8 THEN / INK INVERSE DIM RETURN USR , VERIFY USR !xyo@0$~#fo~ VERIFY (3 MERGE DVAL FOR "# RESTORE <( INK <> STEP SIN z FOR ,LEN PRINT LET <> INK INK 6og#}| VAL Z MERGE INK RESTORE *| READ STEP p-Sz LLIST ▗{<><> RESTORE INK FOR READ X PI &SCREEN$ .[R] STEP B{ LET RUN ASN RANDOMIZE (k PRINT % LET = FLASH STR$ b[H] TO ,&STR$ l[L] CLEAR 8K`@] LLIST STEP J{ RESTORE RETURN NOT @VAL STEP IF RETURN C PRINT RETURN { INPUT DATA RETURN INT ( RETURN FORMAT ( RETURN TAB CLOSE # RETURN [G] RESTORE `J8 LLIST AND RETURN >= INT [C]>=LEN `` INK PICHR$ INK }▝goNOT <SQR ~ SAVE ▙F▝SQR USR _|ek INK P& STEP CLEAR {|ASN CHR$ e{ FOR NOT ACS FOR PAUSE LLIST [S]]( RESTORE INT }6|@CHR$ 9<> STEP LEN z STEP VAL ▘6[H]2^}<D▟FN STEP COS m STEP Ii,SCREEN$ ▝v*W[K]▙:Z [N]TAB Y[K]#LEN IN ▝v CLOSE #>=<=SCREEN$ CLOSE #▝ FORMAT [AT [B][F][G]7IN 0 PAPER 0 CIRCLE TAB LIST TAB a▞PEEK TAB V}EXP NOT STEP SGN z2 LLIST |W[H]!e} GO SUB LEN PAUSE z| INK MERGE OR hSTR$ RESTORE RESTORE STEP 7}>_:! RESTORE ASN @O▜▝o[F]gN#( THEN c([G]IN PEEK &A RETURN ![A]SGN 8!LN < RETURN | LLIST @[Q]8 STEP }TAN ACS E6ATN # CLS >2 PAUSE |>2^^ CLS PAUSE [T] MOVE INVERSE CLEAR INK [U]GCHR$ [C]STR$ ▝[U] LLIST ][B] STEP }<>B DIM NEXT INVERSE !STR$ / STEP N}J THEN 9><[S]ACS VERIFY MF@(D LET ABS OR MERGE [E] MOVE $ RESTORE /X) LLIST <>[G][G]STR$ B OR <> FLASH <><>NOT /=PLoading bloc FOR CASTLEPART1r}CHERYGAMBLINGWRE$rLEN ,S SAVE y"y}▗/[E]* THEN ?% GO SUB D [F]RND▝ VERIFY [P]|RNDAASN TAB VAL a STOP &ACS [Q]COS < PLOT =[A] PAUSE :USR ▝ GO TO SAVE NEW LET PRINT LLIST ~ INVERSE 2▛ ERASE "2CwCODE Q7 DIM ^( DATA [H][F]o[P]Z[E]gb# DRAW +[D] LLIST T▖s#rATN VAL VAL$ LEN ▝6 INK o&^3 STOP COPY COPY GO SUB LEN PAPER FORMAT < INVERSE ATTR ▝ FORMAT 2COS VAL [Q]TAN LEN ![Q]>=VAL <>USR ▘▚SCREEN$ D▘5© STEP NOT AT|vOPI( RANDOMIZE GO SUB K([C] LOAD RESTORE STEP LINE ~@ ERASE ( READ LLIST (f[H]2?[A][Q]^INT ▝ FORMAT QRAT ^TAB AND [E]USR 9 MOVE STR$ NOT LLIST OR + CIRCLE [B]:[F]~#[B] GO SUB D7[L] THEN ▛ VERIFY [A][S] AT #0 READ FOR <>IN TAB (SGN INKEY$!y""▞[B] ▟"e AND ATN ATN [E][A]TAN [F][A] TAN [H]TAB ▘ACS TAB NOT ▝▚▝TAN [K][L]▝[P][O]▝*@mT_]▗W GO SUB SUSR ▝ STEP [G]B![B]▜▖[A][D]▜[D]▖4▚▟[K][A]▜[A][O][L]$[I][P]▙[C][P][K][I][O] STEP )[H]0[A]POINT CIRCLE ▝ STEP [U]USR ePOINT STEP ▝ABS ng THEN FLASH NEW vSGN ▘ FORMAT ATN VAL LEN [M][M] FORMAT (USR [U]VAL$ >=NOT STEP PRINT TAB ~TAB [E]©LEN 0 CAT PAPER | BORDER INT IN [H]TAB [B]LEN ATTR [P]YQ[H]FN INT PEEK DIM ▝ DEF FN [J]rPIyINT EXP dTAB [J]SIN DEF FN %YXTAB Z[S]bTAB SSPEEK 0 PAPER COS [N]0[N]VAL FLASH TO /F▗^VAL ▚COS ERASE [G]USR CHR$ STR$ SCREEN$ SCREEN$ SIN TAB cABS RND[G]0TAB TAB iAPEEK ? FLASH VERIFY >= MERGE SCREEN$ @TAB ABS SGN FORMAT [~[I]ATTR STR$ TO .gPI(.6"a RESTORE | NEW AND Xg68 LLIST NOT ▞^@ READ > FLASH FLASH |<=zINT gLEN ( PAPER xSIN ▝!! LPRINT LLIST [R]>=yACS w<>yVAL$ /INKEY${[F]0 FOR _z[E]8WSQR PAPER ▝S_NOT 7▝ GO SUB D>= OUT STEP g▝C{ STEP W|% NEW } VERIFY o8_!M▘SQR 8[D]©@ THEN U, OUT <> CIRCLE ~)[D] FLASH GO SUB 55 BORDER LN 5+ INVERSE + READ CODE !+ AND =ATN + VERIFY +[L] STEP ▝▝ LINE ▝NOT $}#LN OO} NEW o| NEW LPRINT ASN G|VAL PLOT @g PRINT INK [F] INK _z USR {M_ CIRCLE zLW<>[Q]GG<> PRINT OR MERGE RESTORE THEN IN RETURN (U&o)[I]NOT LEN RESTORE [R],d MOVE OR RESTORE @k0~LEN VAL I▜ FOR LLIST LIST COPY STR$ INKEY$ MOVE !EUSR ▝: CAT ▝▚w DRAW USR LEN 6#~ AND w LLIST MOVE STR$ LET m[U]RND[H]X@uv^[[H]~y PAPER X AND ▘PI( THEN ~#( GO SUB > BORDER + DRAW :▘ AND COPY VERIFY 0 CLS !0 RESTORE # RESTORE CPY~SCREEN$ PI▗ J: LET GO TO ,▚ RESTORE 7 GO SUB B}}[H]" PAPER ( MOVE [A]([Q][C]0h INVERSE ▜_▜_L[D]TAN ▝[H] DEF FN PRINT STEP ATN ▘C(_N SAVE LET D BEEP <>2LN PIBIN [Q]-><>k RETURN @Oly(T[J]Q RETURN )) RESTORE U@[A] STEP 5 LLIST F RETURN ▝ LPRINT [B] RESTORE !^ GO TO v- RETURN >PI>s RETURN ▘&>!"notINKEY$h THEN VAL$ NOT /▘NOT 5▘#NOT '▘|}=2USR }2NOT l THEN ©(/CHR$ l[G] THEN | TO [I]K"INT STEP !gD[Q]SQR RUN <>(0g-L MERGE INK LLIST INK ' STEP [U] CONTINUE [G]HdPOINT INK 6 # RESTORE INK MOVE <>[H]< GO SUB B0 CLS =aPI>= AND 0 INK w#IN (d2 MERGE HD FOR MERGE FOR STEP [Q]USR THEN (=(<E DRAW MOVE [H] STEP ▝ POKE % PAPER <>*^|~ RETURN COPY (%[M]▗ PRINT RETURN v8USR PEEK )PEEK FOR LLIST [E] FORMAT MERGE MOVE POKE , OPEN #LN >=# DIM BIN O PAUSE NEW ©Gy CLEAR CONTINUE !4*XEXP 6)yg PRINT 4@P OR MERGE :^ AND P[A] STEP DRAW G STEP EXP FOR STR$ GO SUB STEP [O]▚ NEXT `h0 RESTORE STEP Tv LLIST DATA :LEN IN ▚< NEW 2*$Sb+"F CLOSE #k< VERIFY @LN <>_:^ PRINT THEN [C]?T NEW SAVE oOp!AT DT RUN [K](E INK :Z~#[O] IF FOR INK LET NEW <RG> CLEAR O<!ASN (<> MERGE PRINT EDM POKE GO SUB DCa[G]JOAT 2OOQ#ASN [A]Q}▝o~Q INPUT STR$ (([ THEN [Q][A]+ LET c NEXT MOVE $@ GO SUB VAL <>P!cV( j+V LINE ▚CHR$ ^▚>o PLOT - STEP _[K] LLIST <>@: INK D NEW <USR r) INK RESTORE GO SUB [Q]b CLEAR ▙> 2USR [R]2M[E]TONOT DRAW ▗1bkb MOVE USR [B] FORMAT CIRCLE CAT V▟Z PAUSE VEXP GV DEF FN NV&V▚7iV NEW UVAL$ ASN P%P RETURN RS[K]R,<>>.X>FW STEP POINT ▗>@>UAT FOR [R][B]? INK THEN - CLS L REM =(a▝▝2 OVER >X<>[H]? DIM DRAW <>?,ACS THEN ?<A?0 ERASE ? PAUSE !IN ▚~ NEW @:#ACS #TAN INK @RNDVAL$ # RANDOMIZE <>PISGN <k©%T GO SUB OUT ▘</$ 0"m0`R[H]SACS $ DRAW LLIST [R]( LET NOT jriw|SCREEN$ >==▜ FOR |MLd THEN © THEN THEN POKE eoSTR$ LIST THEN [A]x|>= THEN ▜[H] *2>^"^▜!RND'+|ASN CLS F RESTORE > COPY kGq▜POINT ▜ VERIFY TAB LN x>=NOT GO SUB _ OPEN # AND 2%[D][A] TO CLOSE # PAPER ▚TAB SCREEN$ @▜<> FORMAT ATN [N]AT ATTR TAN AT TAB J[S]▜VAL$ AT MERGE [C]USR [R] STEP [R]▝AT ( OPEN #▞`ABS INK ▞[I]X FLASH ▜P[I]T▖FN INKEY$hAT ▖?C >= POKE PLOT ▖VAL $d MOVE ELEN 3X 6 IF ▜/n(1[Q]_$▗`yUSR TO TAB 1▚>=▗TAB INT ATN EXP ▚ CLOSE #TAB )▖S%Q▖▗TAN USR INVERSE INVERSE ▚,SCREEN$ [Q]▝X[Q]b[F](XZ[B][G]8LH LINE INT LN RETURN INK h&|▖x MOVE CLOSE #▞xy%,[B]▖TAB z[P][O]}(V?F@TAN @2 ^(X&d>==INT MERGE [G]QV CLS STR$ uINT BEEP INT BEEP ▝ MOVE *VAL$ OR B(G DIM ▖M LOAD ▖<=?`▞{@@`>nMS ((#L, CLS WIINT X MOVE 5VAL VAL ▙ ©-▞PEEK 3▞TAB [B]Ih@▟![R]AT "`}/#0@$$[K]C>=TAB oG*USR 0 CAT ~TAB COPY R~ LET [B][H]TAB <=[P]1[U][H]FN TAB SAVE ^POINT RANDOMIZE lLN DEF FN TAB EXP TAB -TAN IF INT [J]@ CIRCLE STR$ [P][S]TAB COS PEEK 5 FLASH , TO TO TAB [I]▚TAB [H]▞ OVER SCREEN$ RUN (>=HASN ▞h▖(h THEN ▞[Q]m[A]pH>(SGN ▞▜▜©▖*ACS EXP 2INT BEEP ▝ MOVE CCODE ,Bp>g[Q]P"#,i#@} $ h$@H@[E] FLASH dP[E] oi PLOT INPUT INPUT `D/▟ PLOT GO TO 8▟EXP ▛▙ NEW ▛/▜G▜▛[L]▛[T]▗I FORMAT INVERSE ATTR TO READ TAB FN > OR NOT *^FD[R][E]^"R@LN >= READ CLOSE #TAB CHR$ <>d MOVE P INK [L] LINE INT BIN (& COPY BIN [S]TAB SATTR PEEK PAPER ▝SQR vgSQR INVERSE NEW n INVERSE &L[I]▛[I]J▟[K][I]8H LET OaXs[U]h NEXT @T CAT POINT NEW [C]EXP ▚U▝TAB p▗[Q]▘p MOVE INVERSE [D] VERIFY e! REM SCREEN$ ▚ VERIFY ▝POINT LLIST >=VAL$ STR$ ▟<> AND VAL$ AT [G][I] GO TO CHR$ ![K]VAL [E]: VERIFY STR$ LLIST [R][C]A PRINT ▚EXP TAB BIN ▝ATTR FORMAT QATTR -@ RESTORE INVERSE H▚TAB Z▛ OVER |▛ CIRCLE x$▛>=P[Q]P ▛ LLIST $ RESTORE !©p:AT [E] FORMAT OVAL VAL$ COS AT INVERSE INVERSE [M]AT [E] NEW INT © THEN BORDER VERIFY [G]RND[G][G]/ATTR CHR$ SIN STR$ STR$ [J]ATTR 8 INVERSE 2 BORDER 8>=[B][E]INKEY$6@ AND >SATN VAL$ TAN COS VAL$ EdSTR$ DAT THEN SCREEN$ [A][C][G]P# INVERSE ATTR BORDER CHR$ [C][M]SGN <!8 THEN >=) FORMAT AT LLIST OVER COS o INVERSE TAB CLEAR [C] STOP INT VAL OUT [/P CLOSE # OVER [L][G] QVAL ATN CODE VAL$ FINT {TAB [A]▚[D] STOP VERIFY CHR$ FORMAT 1AT [F][B]TAB ERASE [R]CODE TAN OPEN #'( THEN [C] NEW IF [I][I]ATTR COS COS LPRINT ▘[Q][T]CHR$ TAB t [R]RND▝ FN FN m oFN p©©▝POINT >= CLEAR ©TAB _^eABS R)TrATN MtN▛USR ▛TAB SIN r OR ]TAB NEXT [I][F]SQR GO SUB ▛[E] NEW STR$ s[J]Z▘ATTR BIN LN USR C/[E] STOP DATA <>0 FORMAT %▟ OVER %DYVAL$ ATN OPEN #ATTR CODE OPEN #[H]▟[H]STR$ [H][Q]([H]`[P] FORMAT [H][Q]VAL !▟USR LPRINT . POKE ▟TAN SIN TAB DIM ATN ^[M] DATA STR$ CONTINUE LPRINT ▙COS [N]INT [A] AND e▗TAN EXP STEP RX[D]▚▝NOT :^!J RANDOMIZE SQR VERIFY #USR "o[Q]TAB KCHR$ TAB OR ▟ FORMAT OR ATN LEN ▟COS ,@[D]▙SIN SAVE >=USR ©[F] AND "VCOS [Q].RND▘ INVERSE 0 IN BIN SAT [E]ATTR COS LPRINT COPY s▞<VAL =COS VAL BORDER *;LEN STR$ [R][T]DcSIN [C]USR OPEN #E LPRINT -T© ATN FLASH (0 DRAW y1[J] READ w@INKEY$?CODE P CAT xASN `SQR ©[Q]▗ PAUSE 1TAB ▙VAL$ VAL USR ▝y▙z▙~▙▘▙r&5Gh|▚▙▙[C]▙[S]▙INKEY$▙SCREEN$ Q▙NOT ▙ LPRINT ▙ POKE ▙ IF )▝INT FOR VAL VERIFY J REM ▝TAB {^ATTR &_AT ![F][G]LN REM TAB wSTR$ CHR$ ZINT LPRINT ^AT > FOR TAB NEW ^s"▗ GO SUB TAB 0INT @ABS ; VERIFY %[F]v FORMAT +[G]0Y^QTAB PEEK E;/TAB 5s^!! PRINT vINT USR / AND B TO H CONTINUE _ FOR GO TO LN ©8 GO TO TAB |INT [S] GO TO GO SUB TAB xCOS ATN PLOT 6EXP RagCHR$ STR$ ATTR GO TO As AND nACS GO TO IF FTAB $_/ATTR GO TO ▝H)POINT FORMAT SINT 7 BRIGHT NOT © CIRCLE [A][w*^|SIN g}COS o" INVERSE DIM OR _ FOR !VAL cXa[H] GO SUB LEN CLS FN SAVE FOR INK !/ INK ik:[A] STEP BORDER INK 6>X BRIGHT LET NOT ▘PI>= STEP LIST RUN MERGE RETURN &0.VAL 0 POKE RETURN 0*=(;[A]~ RETURN a8 RETURN {0PI~([H]~ VERIFY eFN i MOVE <> VERIFY &YHa& RESTORE ~C LLIST #VAL $^.!?,;: '-abcdefghijklmnopqrstuvwxyzVAL$ &-#()/@%&73!+-0-A.!-9wE/F.5'@?D+4','&0=5)>^@▞,6 .9'2*a-bPCS!*6 31'@656;J!+48`RB!=(F<,SCREEN$ Nz,~c▖$-Hr(4CHR$ g3TAN ▖;5M:<E1s2)3l READ &▛*d@i C)h+}.(|*+9;U^ RANDOMIZE 1)B!-9SCREEN$ @5Y1/u y,+' RUN HSlJ| OVER o !<=&M(+18[A]9 MERGE ?]/▞?2BQ INVERSE M.INVENTOR INK EXAMDISCUS OPEN #BU▖ OR GIVLEA`[B])EFirs$ POKE Secon DATA ThkFourt CONTINUE 4eYo PRINT hav RESTORE targe POKE lef POKE i INPUT th RESTORE f:t[Q]matc CONTINUE a<y5 PAUSE sEr RESTORE s LOAD fa PAUSE i NEXT ▝0©:poin>to LOAD lo RUN t, LOAD qualif RANDOMIZE fo PAUSE Jn=ex POKE r,ndVAL$ @vUs[A]la [Q] TO OR STR$ VERIFY VAL @@[K]I POKE wil GO TO NEXT r PRINT /gol DATA [H][U]g>D LOAD w▙ [R]tIN USR YES N CAT GIN CHR$ rie DATA POINT NEXT tABS hth PAUSE wo BEEP gr$ea POKE GO TO er RANDOMIZE Atej[R]S]ryAT i[Q]W NEXT no POKE ?sJ RESTORE m GO TO RANDOMIZE sO CONTINUE d1rAT E▘h VERIFY embTAN sSIN `{AT ▖d LOAD ▟BIN ,appo LOAD ▗@`eug CONTINUE mTe RANDOMIZE ▟LN bjmt[Q]©(addle?Eg NEXT B RESTORE %fuDB NEW 5ac▘[U]dDINKEY$ RESTORE CLOSE # RANDOMIZE .obje LOAD ;ctsCOS _COS {WTi INPUT @▚pursA LOAD gi▘Eve&Sgam RESTORE vACS OUT DATA OPEN #▛BS FOR CLS DON OR HgBIN muc[S]^ PLOT USR LK▗PMOR OR (LES OPEN #=POTINT ▝D[R]▖NEY[M]▝0a RETURN NEXT ▘! SAVE [K]▗GUSR ? RESTORE [R][C][D]zNOT !?/6#6# FOR !B@ OR RESTORE CODE ▞ LLIST FOR STEP [B]▝`t LIST X>VAL = POKE TAB /▘COS VAL [N]l INK aupVAL$ USR VAL$ YPEEK >=▗TAB -[E]FN ~J[F] FORMAT RATTR ATN <>©[K]SABS IN NOT gt STEP G[H]JLEN f CLOSE #▝XASN [F] RANDOMIZE INKEY$PEEK (uINKEY$NOT ABS r90▘ RUN y, OUT [J] PLOT Q▝Z[F]EXP [P](<>armie NEXT fro GO SUB LLIST po IF bl RESTORE 10 PAUSE RESTORE OR [H]2▚# CLS RANDOMIZE STR$ LLIST <>TAB INVERSE [F] LPRINT =[L] VERIFY NOT [H]24_[A] FORMAT STEP RND[F]O>c[B]/▝' STEP H[G] CIRCLE ATN `▝Inser POKE dis[U] FOR TpresZ[D]&ir RESTORE OTAB )%YCNOT ACS ACS 4M4F RETURN c &:^ LPRINT V^ PRINT NOT GO SUB VAL > PRINT >=2 POKE LET @NOT 8 DEF FN z ERASE DIM n BORDER [E]hn/.[T]H GO SUB [j[G][S][C]+<C CLS <>b[G]▘[G] GO SUB S^[G] INK OR BSQR N RESTORE TAN NEXT STEP [U]Zs-,TAB }INKEY$RVAL$ +E" DATA J1 AND [B] MOVE STR$ INK <> RESTORE © LLIST VAL [T][H]>= MERGE SCREEN$ NOT STEP ABS NEW ▖VAL 6 CLS $ COPY STEP ▝@ COPY ,@uAT H COPY +-1QVAL FORMAT VAL FOR LLIST @8 COPY ▝P`w COPY ▗P COPY INT ▖J]TVAL$ ) RESTORE [J][G]N# LPRINT Q LLIST MERGE DIM [A]E3SGN MOVE HytPI#$%>= RETURN 8p` RETURN INK CLEAR i CLEAR ` RESTORE MERGE y[J]▝▜_ CLEAR 9R MOVE LLIST { CLEAR M GO SUB VAL _lF MERGE 4z6kOW INK `38 CLEAR %CHR$ 0to[H]@ Vn( PRINT bkP+Y LET vDBIN STEP BRIGHT [H] STOP FOR BIN SIN RESTORE LLIST @ A RESTORE STEP [M][I] LLIST } AND oSTR$ HAT NEXT OUT LLIST gTAB ▖ CONTINUE A{ LLIST I3;8* STEP [C][I]8 STEP [I]LN O STEP ozV< INPUT OVER CIRCLE 8 MOVE AT -O FOR ACS w FOR > CLEAR -LEN "@. PLOT BEEP INK THEN DRAW ATTR LEN READ PICOS <> [D] INK _0PI INK INK USR K,7<>[H]K IF LOAD D)LEN #,"B RETURN (`76w RESTORE FN {`0 IF w$ POKE <>@ STEP Y[J]A THEN BBIN ▗[J],nl } VERIFY BORDER $ CAT >= GO TO ABS RESTORE #COS [>=77,#>= THEN @ INK &}8, INK RESTORE OR THEN 8 STEP [J]}o|ikg[A] OR >▝[T] FORMAT RESTORE P▝[C]yB(LEN LPRINT OB~LEN TAB d[F] IF B!DaSTR$ [U] FORMAT NEXT z[T][J] RETURN CIRCLE PAUSE Q LOAD Wf▝O RESTORE D[G]y9 MOVE n NEW :>^PI LINE 4[K]!?^~#ACS (~+INKEY$( STEP o_ STEP ,5_wPI PRINT f RETURN RETURN GO SUB x THEN © DATA FOR IN [B]! LOAD [T]_ THEN ?[[P]!Y[K] THEN ^ SIN [S]▙4?{Z[H]8%$,STR$ -"W[K]:nPI(#:[W[K] INPUT COPY 2( FOR {▚ RETURN SAVE 0AT w#zLN !`/[K]5 l~< NEW w2^*<^|ASN BIN T[K]? LPRINT 9 CLS GO SUB M DIM ?<v RETURN =CHR$ _[K]<> © REM CIRCLE # COS RETURN GSTR$ ASN ▗D▞ T9 OVER [U]? CONTINUE MD▚PEEK [I]©[J]L1^ RANDOMIZE CLS > RETURN SIN PEEK 5 SAVE 3vSGN [T] CONTINUE V[S]L©9dr[G]>0YCHR$ ▜SCREEN$ j[L] LPRINT NOT <STR$ '?o© RANDOMIZE RETURN bIN VAL$ GO SUB COPY [P] LLIST SGN LLIST PAUSE SAVE [E]▖[L]hsTBIN REM [F][I]© DRAW RETURN a0<= AND e9INT CLOSE #BIN GO SUB OPEN #RNDPOINT TK▝[S] OR ©? LOAD MOVE ] PRINT RETURN RETURN [I]3/IN iSQR /[U][C]INKEY$N PAPER COPY a RUN FLASH READ BRIGHT CAT CODE LIST ]V▛ PAUSE DEF FN SGN FOR Eg SAVE mn OR u COPY 0 COPY d@' STEP xNOT z▝SQR NEXT PLOT DATA [I]INT [T]gM NEXT yd^nATN FOR k9[M]vc1SGN DRAW >3ABS SGN OPEN #x CAT p RUN LEN TO [M] FLASH [A] RANDOMIZE ▜]yAP STOP THEN mzBVAL [Q]>=FN h THEN CHR$ *[R],pCODE ▟RND|)I[A]sE GO TO VAL$ IN ^vJO# READ A RESTORE } RUN zC SAVE FLASH ATN $o RUN ▟ GO SUB DRAW COS i[O]▚v$"[L]©[C]VAL$ ▝ THEN pv IF OVER |E GO SUB PEEK Z[ POKE NEXT CONTINUE [H]* PAPER ▖ BRIGHT LIST K COPY PRINT c#COS NC)BIN LOAD ▗3= STEP LN 9TAN BORDER @ COPY INK DATA ▚ OUT ACS SQR [O]u[E][H][J]LN LET 5 GO SUB READ EXP &. CIRCLE TAN [K]- FOR STOP ' OPEN # CAT [M]▜[ RETURN O[G]YU POKE RESTORE NEW SGN CODE (<>[C][A] CONTINUE BORDER 54>_N[M]IN n0EXP N>d[M] CLOSE #(z[R]SGN H~ LPRINT [R]S[G] ERASE M COPY STOP NOT E CLOSE #[I]? OPEN #E5POINT 6▞t[R]A| OPEN # CONTINUE LET ▗ COPY " GO TO FOR PRINT j LLIST CHR$ E[E]? COPY FORMAT UAT CODE SCREEN$ POINT 4]o CLS v PRINT ZBF] INVERSE CLS CLS BORDER CLS POKE Z3_O▘~JRNDCODE j PAUSE [M] BORDER w _ LOAD ? NEW RANDOMIZE _} DATA ekg FOR [P]▗ LINE vL7M1[O]< VERIFY Q[I]6Pb*4 ERASE n1V DEF FN FOR [D]NOT <VAL$ ▖[M] CLS ▛ COPY N▝f4 GO TO k LOAD PRINT nABS Z NEXT VAL$ SGN D▟? RESTORE USR ( FLASH -[L]CODE [P] NEXT %[G]Q INK CLOSE #E@ CAT ATTR AND BORDER <POINT EXP LINE DRAW G▙lG;USR i BORDER PIINOT OR CHR$ H READ LLIST OPEN #SGN f'STR$ DATA STR$ ` IF w.P0SIN x OUT CLOSE # PAPER q▗["O LET RESTORE [D] DATA [A] READ NEW ©tLEN q{ SAVE q LIST zqI THEN LLIST POKE INT BRIGHT p[P]H_ COPY LET [ CAT CODE DRAW ▟CODE TATTR U COPY *FG OR mPA[P]POINT ACS <[G]FKACS g▞>= PAPER (:z THEN ▗4R0TAB PAUSE H4=POINT Fu`1?* MERGE ATTR PEEK CAT NEW OPEN # RETURN LOAD LN ▙xO MOVE FORMAT PAPER >SCREEN$ CLEAR <= OR [M][G] PLOT q LPRINT REM [E]:SGN POKE NEXT ▟HY VERIFY T|X[H]SCREEN$ INKEY$[K]S[E]▖Z[U]POINT r DRAW 0 FOR FOR VERIFY STEP ©SQR u~u PAPER PRINT ]r;[ DEF FN VAL DEF FN ▗ INPUT {ASN COS PI STOP [J]CODE NEXT RETURN [B][F] READ ▝ CAT LET STOP BORDER STR$ FLASH ▝ LPRINT eSQR Q NEW b READ pINKEY$g;}[E] LINE qPICODE PI SAVE N,BIN 0&`VAL NEW d`Q?[P][Q] CAT LET PRINT PEEK LIST w RANDOMIZE POINT VERIFY ;▟ INPUT ks BRIGHT /`LN IN RANDOMIZE [M] INPUT 7 AND sBIN &6© OUT BORDER LEN ''5PIPOINT 9>=uPOINT #CIN J"DK RETURN LIST L[R] IF RNDu THEN IN FLASH V[IN CIRCLE [O]? LET &|-R[U]+9h TO SCREEN$ [L]? DATA t▘" TO UK TO [H] ERASE NEW C%LEN COS DRAW ▞ THEN STEP BIN <=STR$ (c MOVE RANDOMIZE COPY CLEAR CODE ▜ BORDER CLEAR [P]▜[P]▙o POKE o@>- INK THEN FLASH ▛SGN )JiJTJIN ▙ MERGE zRNDP P LLIST ^ GO SUB VPOINT U#[S]Py COPY MERGE SCREEN$ ] LET P|+ MERGE k[F]zIN OPEN #CODE ZATN J OR [K]~NOT READ ▖a▝'V[L]4bPSTR$ CAT OUT PIJ TO OUT ATN VERIFY PAUSE +,[ABS IN BORDER EXP ~ INVERSE [U]_} TO nC;[O]o? LOAD 8[I] AND iu;D PAUSE /SQR mx RETURN r COPY POINT & COPY INT j(b(▖CODE CLS ;.SGN [N]R OPEN #v NEXT `hINT t ERASE /d[D]W[N]AT , INVERSE >=Z BEEP w NEW U CAT ▛▜ DRAW [N]RND;=[N] PRINT 9{>VAL$ ▙r[N]/)Z▘IDJ[Q]PEEK k CLEAR fJ▘DL▜ DRAW CHR$ ( FORMAT c5 GO SUB <>5RND▞[D]2 ej PAPER NOT STOP PLOT l OR PRINT FN DBIN `(F` POKE ▙@6 LET COS OVER ; FLASH RETURN 0EXP INKEY$ MERGE W SAVE ' CLS | LOAD [K] LET RESTORE ERASE <><> VERIFY NEXT [G]~[P]FN ~IAM©=^ COPY MERGE >=* MOVE FLASH BORDER NEXT COPY MOVE CODE RANDOMIZE _ CONTINUE DRAW ? LLIST DEF FN SAVE NEXT ? VERIFY COPY ISCREEN$ SCREEN$ CAT ▜ READ SQR [K] PLOT &O<[G]%= PAUSE %,I$1JPOINT CLS %J/IN DATA DEF FN COPY [C] DRAW COPY [T] RETURN H>CODE }>▘ABS ^ IF }? RESTORE ©[T] LIST FLASH BRIGHT STR$ ^%~ COPY [F] RETURN [P] SAVE © REM k+ RETURN IF <SIN BEEP BORDER CLEAR POINT 6P CLEAR >B[R]`mhn▚8N.:7▜ OR aSIN LPRINT [A]AT `] COPY o[H] LLIST NEW COPY ▜` CLEAR INVERSE 1[F]y READ O THEN ©USR [T]|"RNDya RUN RETURN TAB ▖▞▙ INVERSE AT SCREEN$ >= COPY $*@FN 9 RANDOMIZE EL([H]STR$ HPOINT PH)▘[P] RANDOMIZE LPRINT %4[S] LOAD %PEEK PAPER M}>=V[J],▟N![N]c STEP [Q] RUN SGN k ▞[M] SAVE Nc DATA [A]▜<> RANDOMIZE RETURN LPRINT ` LIST [L]▜ABS STR$ LLIST [S]L[C]Ns[U]INKEY$G OPEN #[M]|FN Q $ LPRINT LN pINKEY$$SGN [Q]@4 OPEN # RESTORE VAL$ E { BRIGHT TAN OPEN #[A]K▝ABS CODE OR $ READ P VERIFY V COPY j;©[D]&L[N]>x NEXT LPRINT >i INK *[I] IF [R] LOAD s CONTINUE z[C]IN RND GO TO ~E▚▛▞[G][P]c;f RETURN U[I]Z INK [M] INK k[B]RND▛ATTR ACS ▝A[R] MOVE [R] PRINT PAPER *T RETURN OVER {v9C[D]ATN OVER <=▞[L] SAVE ? OPEN #!NOT c[N]+ NEW JO LET z STOP K[I]J[C]▝ LLIST hs▝P LLIST 3 DEF FN TAN RUN f[U] OUT VAL SGN POINT RUN <=[T][L]JSCREEN$ VAL$ W LPRINT ▚![C]▞: CLEAR e AND I▞nASN OVER CIRCLE 2 LLIST VAL OR _USR LIST <2i RANDOMIZE ▗@",<=[I] PAPER *OU▖ LIST )[H] MERGE )q DIM [M] DATA ABS n,POINT yTAB INK LLIST z1RND[N]& READ CLEAR BRIGHT B?b6(*L[R]TAB OVER COPY MERGE CIRCLE Oo CLEAR DEF FN [O] STOP "TRND LINE [T]ACS &VAL$ NEW 1[E] STOP RANDOMIZE f BRIGHT gATTR FLASH NEW W LINE [E]NOT TAN FLASH STEP [P] LINE ATN Y CIRCLE PRINT FN VAL DIM L PAUSE HZ4[U]FN [A]p[E]TAN SQR [I][K]Qac RETURN N LOAD Tj[J];H] IF MERGE *h`sJuJ[Q]BIN SAVE [P]RIN RTAB V MOVE RESTORE @ATTR tATTR U[J]▝40| OUT REM INVERSE STR$ ▗ OR ) PLOT )~R7[E]/ CONTINUE IF VAL$ 4[T]' BORDER READ "BIN >=[C]>=[K] CLEAR |X9 OVER D<>xPEEK NOT k LPRINT LET xEXP |x DATA COPY INKEY$ COPY ? VERIFY 09 FORMAT ▟E/ LIST n]99© NEXT RETURN LET 7LEN SAVE 50POINT 2[Q]EXP y CLOSE # DRAW ▞ MERGE e REM ▘ BEEP LOAD CIRCLE $jTe RETURN DIM <=n POKE ATTR T READ UW▝y SAVE ▜ ERASE INPUT O$O6,*[S]!/ MOVE Vu%?[B]R OR >©VAL 6[Q] LPRINT ©ASN t▖SGN 2AT 75 GO SUB CONTINUE AND COPY m@ PLOT X DRAW [N]▞ COPY gTAB vFN POKE [O]COS SQR [J]RND REM [R]p[K][P][E]▘hSCREEN$ <? DATA CHR$ .INT j▜6>=>=<> LINE P MOVE BEEP ;V0 Ix3 OUT ▙INT P(c NEXT RANDOMIZE ?_STR$ m|[C]EPEEK SAVE ▞be©SCREEN$ PRINT EXP @ BORDER DRAW ▟o CLEAR ! INPUT LEN 2P▛BIN = CLS [L]INT ?CHR$ { CAT LIST _ SAVE ACS i CIRCLE [P] POKE TSCREEN$ SAVE A▗ READ [B]1#0ASN [E]LEN ▚P[R]JYABS [L]f CAT 9COS ▖COS 0{ZTAB PLOT [R]LN POKE LET INPUT T[K]q DIM RESTORE STOP RANDOMIZE NEXT NEW fSGN U&hw>{td LOAD DRAW VAL [O][N] FLASH SQR rmASN ""+ DRAW [P] PRINT VAL [C]BDtVj DATA x LPRINT L LET COPY ~[S]F^ INK ▚;?STR$ STR$ INVERSE |USR x&©LN [Q] REM u▝▗]ta[D] OPEN #M[B]? PRINT MERGE ▖L{© LLIST RESTORE _[P] GO SUB PAPER IN STR$ SGN COPY F LIST ?v#▞@▖< LOAD ~<> LET STOP fMgTAB EXP ▘TAB USR VAL$ ▜ DRAW ACS v LOAD X[K] GO SUB ▝? RESTORE `u LIST FOR [T][R](USR NOT AT :SIN ▙PEEK _ FORMAT THEN COS COPY OUT {[N]kIN CIRCLE VAL [P]C[E] SAVE __ RESTORE LPRINT READ <= STOP RNDrPOINT / MOVE ▜Np▗K COPY MERGE * INVERSE ©BIN UT COPY t[L]% CONTINUE COPY e|▛B POKE ©▟UIN CHR$ *@@ CLS X`a BORDER GO SUB >=POINT NEXT 5HX[R]!cm+C COPY COPY RANDOMIZE ▝ OR SPIJ%[S]g SAVE GO TO MY RETURN [ RETURN $ READ INPUT l? FORMAT >= STEP NEXT ABS [B][N]a PLOT CLEAR CAT o IF =[P] LPRINT 3^▟ LLIST POKE BRIGHT IC MERGE FOR DRAW © POKE RETURN SAVE ? FOR }CODE LOAD POKE RANDOMIZE ~<= DRAW + READ CLEAR ▖ RETURN t IF Pp<= LLIST GO TO TAN STOP R FOR LLIST RETURN CHR$ "A@GSGN LET CONTINUE h[I]TAN SGN FLASH g POKE COPY CLEAR <= RETURN ▞:%gNOT DRAW { NEW c{x VERIFY R GO TO IN INPUT KSTR$ !v DRAW POINT INKEY$[S]INKEY$ CLOSE #x BRIGHT rSQR 9r DIM ATN ~} CLS CLOSE #NOT pPOINT AA▝▝A[F][N]F MOVE *© MOVE A[F]]USR ▗[E]R!# STEP OPEN #? LIST [T]>TAB RANDOMIZE }# DRAW DSIN [T];9 THEN RETURN ] RETURN RETURN BEEP ^VAL$ A DEF FN PI MERGE /TAN COPY i BORDER >/ STOP [H]n]Y▗[D]VAL W[N] PLOT VERIFY COS _ck BORDER [H]<= DATA ~ SAVE 8 COPY &[O] COPY [U]?7▟ PRINT STEP COPY I[E]; OVER FLASH RETURN COPY OFN S?ABS TO FLASH EXP + BEEP BORDER CLS CODE ? PLOT LPRINT [E]h-INT STEP 10CODE IN 5d[Q]▘N DEF FN PAPER W RETURN g▗!SCREEN$ @LCUy RANDOMIZE # REM DRAW >[M]B,AT CAT ACS i]q~5~2SGN CAT ATN THEN /[H] OPEN # CLS v=SGN [T]i THEN v[P]CHR$ B8TAN , POKE COPY INK THEN y©H▛ BRIGHT CLS © LET LOAD COPY CLS FLASH k[F]B[I]k LINE Sr~4LN FOR DRAW 1V[CODE F5?IN READ "/ COPY SIN COPY BIN #[L]▞CODE FORMAT PEEK MA▛▜!<> DIM CONTINUE [O]@[U] GO TO $7[H] RESTORE INT DATA aSTR$ FLASH <>:▛g^IN SCREEN$ FN =LBIN ▟)J▞P1*© FORMAT [K] INK Y LPRINT {fCOS [D] READ GO SUB BIN Y OR ©3 DRAW $AVAL$ < CAT TAN PAUSE 3U PLOT IF fr,kJ RETURN ▜USR ▖- CIRCLE %b3&▞[U]6 OUT BIN CONTINUE *]0PI"" )(wr NEXT Ct▞RND9J POKE n[H] RETURN LLIST C THEN F OR ▗▙[P]oEXP IN RUN POKE ? AND GO SUB 5AT COPY [Q] MOVE ▗[N]C DIM COS SGN [B][S]: CLS ? DATA IN ? CONTINUE ABS RETURN RETURN [P] DATA ABS LINE COPY ▛ RETURN INVERSE PRINT { PLOT PEEK ©TAN PAUSE ATTR [J] RESTORE q DATA u BORDER >= NEW ~ CLS q<=▖SCREEN$ IF POKE IF grR REM [TAN !n CLOSE #COS h[B]Q▜ COPY B<=?USR s CLEAR CHR$ BEEP EXP VAL [Q][D]LEN B▖▗7[I]M CLOSE # OPEN #_ OUT POKE CODE CLEAR [J]R[S]*USR A AND RRND FOR [P]PIUSR 3 RESTORE OR IN TAN [P]▘ INVERSE yCODE %'▚ FLASH dT PLOT REM © OVER %^hmSIN Pf▛TAN STOP ▛ CLEAR THEN RETURN CLEAR ©m[M]B[B]{BIN JWSWkgcb_jASN JIN REM ▖ COPY STOP RNDzTAB RCODE DRAW ] SAVE mBLb[P]8{w>=▟[U]/ LOAD PRINT COPY © FLASH COPY COPY o DRAW NEW OUT dq6{ BEEP $} COPY [E], REM [I]VAL PAPER u&BIN IF STOP bd:[U] COPY PIa DATA Y%ATAB THEN RANDOMIZE w6 FLASH l:0(B ERASE HP OR [Q][E]+▘R PRINT ASN CIRCLE POKE ▖TAN % INPUT ©USR a DIM DIM ERASE k RETURN , STOP LLIST 9BIN |M[Q][E]/ SAVE PLOT |W[E][I] OR ▖▟E©fZNOT W SAVE Fc▛[P][F]j[F]© STOP *SCREEN$ :RNDZRND_ SAVE [K]SGN LEN J▗R[E] RESTORE COPY NsCODE [R]H[I] TO <>&R COPY 7 DRAW Y OUT THEN POKE SAVE w;< COPY A LINE -/COS Mr99 TO l RETURN xaSTR$ "POINT PI' SAVE SaSCREEN$ S GO SUB J RANDOMIZE ERASE ATTR H[F])m READ M INVERSE TAN SQR <=$~NOT >=POINT R[L]AT DEF FN [Q]POINT rRNDASN INPUT CLOSE # CLEAR [E]7ATN ~C:@ OR *? PAUSE 8[D] DRAW [L]3▖D3iM DATA efd[S]B[R]!S IF CIRCLE <=6'COS FLASH READ PRINT STOP OR INK INT [O]r[Q]rS[D]SQR SQR >=▖[J] LOAD IF WCODE ▙^ NOT FOR USR ID BEEP TO©ASN BORDER ▚ ERASE LINE [P]BLSCREEN$ / COPY LEN NEW COPY RNDs RETURN THEN CLEAR ALN RETURN ▗ FLASH %- PAPER u SAVE EXP DRAW CAT OPEN #▛? IF [M]r▟9<=▟ RANDOMIZE PAUSE PAPER BRIGHT RANDOMIZE CHR$ SAVE 6cAn AND SGN TAB OPEN #[H]SGN THEN ERASE ~v REM [D]*[_▞2FN DATA {s2W<>▗y PRINT LET RETURN RETURN W CLEAR ?3 BORDER RETURN ▝vU BEEP [H] BEEP N.[K]$%RND[O]vtm PI© REM "' RETURN LN E, THEN PAPER D COPY j BORDER UE([S][P] PLOT [O] CLOSE #J© PAPER RUN LINE COPY OR ;e READ [R]Lw GO SUB <> RUN 12SIN [H]CODE BORDER INPUT [P]_[I] IF {? INVERSE PAPER IF ATN COS NOT I+FN ~ VERIFY IN MOVE ▞K>$© THEN J▟ RETURN [O][L] LET PRINT <= CAT ?fTACS wd DIM PIBIN IF E<><>SGN COPY FN ▗PEEK _R© OVER N CLEAR [D]SCREEN$ PI9 BRIGHT FTB[B]T(J4b3[I]0 SAVE [M] LET 8| PLOT LIST 1▘h PRINT BORDER LPI[H][G] DIM _ATN pl[M]G-ASN THEN fA[J] NEW z BRIGHT |r RANDOMIZE ?STR$ p-ePIP LIST DRAW dNOT G NEXT #O5 READ LOAD ]CODE [O]D[N]IN RESTORE [u PAPER RND RESTORE NOT BORDER nY<> CIRCLE TO =▞ READ mYSQR (R[O][K]'5#▙ CLS DIM <> BEEP CHR$ O LIST INVERSE PEEK 5 COPY FLASH F_ CLS LET OPEN #EXP mf GO TO STOP [S] CONTINUE RUN CLEAR [[F] PRINT [B]2[A]l$#<>>= ERASE ISIN FORMAT ,▝$ <> OR TAB ▗ TO "I<>[S]@SIN 5 TO INKEY$s<>ACS CHR$ SIN mVAL l[L]l& FLASH >=G9[C]-▜c[Q][J],▗lK [G]>=&STR$ 2AAT $[K] VERIFY B5AT [D]l [L]<>FASN [A]M▝d+ CIRCLE ATN &▞Z INK CIRCLE CH6kY8258H$ASN vU[C] CIRCLE RETURN [B]LEN ▗Q▝▛▚0▘ FORMAT NOT [N][M]STR$ MOVE [L][G]▜hA![B]▗hB!▝!▛UH%▝,HP▘, LIST ▝▘!%#$" |AT ▘▗▚▜▖▞▛▟▙[A]X[B][C][D][E][F]%[H][I][J][K][L][M]8[R][S][T]a▝M[G]tB'~yNCODE wvy[Q] THEN ^▞36bTAB VAL$ ~[O]!xAT xATTR IN &LEN "%▞y[O]▝N[M][U]RNDI!"1/;=eb%vw AND w"x{EXP INKEY$RNDPOINT INK [N]FN PI47]^v[P]v!w%x[U]xvz{▗{▚{▜[P] READ <>BA INPUT Dcdmnv w'xVAL xACS x~}©N▘©}▖INT ▖[N] CLOSE #INKEY$ COPY COS SGN z READ MERGE READ }[F] NEXT }SGN }[B]|v%}|zz SAVE ! BORDER [A]|{& RESTORE %&{% STEP OVER BORDER ▟z" !' DEF FN !| NOT SCREEN$ | OR RUN }▟{▛[U]wACS z DIM z▚!USR <>▘PEEK INVERSE [N]LN 0NOT v}%SCREEN$ ABS ABS RNDPEEK [U] READ CHR$ ▝FN TAN FOR <=[P]PEEK z v SAVE cACS vvFN 3ASN zI%© STOP VAL vATTR .© CLS PLOT {zFN v▞ FOR INVERSE + IF " INK ATTR FORMAT ) STOP [U]PEEK <=[N]W▚} BRIGHT ,()©[P]TAN ATTR INVERSE REM z<=(▘z OVER STEP [N]w BRIGHT ACS " BORDER ▗©%ATTR +*{~SQR DEF FN v NEW STOP &LN @`? REM DATA PLOT [U]vSCREEN$ ;[N][Q]NOT ▝NOT DEF FN VERIFY [N]xVAL ©▚ NEXT {[C] NEW INT CLS " <=[C] PLOT V CONTINUE SAVE ACS |STR$ STR$ CSTR$ DEF FN -|VAL FOR z CLEAR }SQR USR DRAW .!%[N] OR ~ SAVE ▚©&v RESTORE RESTORE } ERASE SCREEN$ }{}[P]POINT &x'w MERGE ERASE "z}6!v©▜SCREEN$ RESTORE |vUSR zSQR LEN v VERIFY COPY ▗ CLS DATA 25}▜z▟$▜ATN x RESTORE USR REM CONTINUE z46 ERASE @SGN DATA DATA READ 27ASN zS OUT w}z@▚ IF O" GO TO "▝ATN GO TO !&%| DEF FN ▞ POKE OR POINT :'[Q] {▛<=▚FN w OUT ASN NEW VAL v'VAL w45 BORDER ▚INT }▗ MERGE SQR OR PAPER [P]w26[Q] NEXT VERIFY NEW "w!J@ TO 3Y DRAW { DRAW ABS 9@ATTR x BRIGHT CLEAR wSTR$ TAN z▖|" %NOT wwSQR ©▗:▝ASN 8,9▚zABS PAPER 35w CONTINUE &CHR$ ! VERIFY ©LEN ▘ATN ASN <= [T] OR RUN (Z OUT v3 GO TO x DRAW } NEW INT ▜VAL PRINT SGN SGN PRINT FOR CAT ▗ 0ATN LN _© BRIGHT ' BRIGHT ©<>,▘!| OUT CAT ▜0 RANDOMIZE AT ▘ PAPER PAUSE ATN ▟[F]▝R[B]©▜z LPRINT &0▞ DIM CONTINUE ATN w LINE REM COPY ▗Mx RETURN } CLOSE #[Q]{ RETURN [L]NVAL$ INKEY$ CAT 0"O▜Pv{y▜y FLASH [A]&x▝PTAN LLIST EF▝GCODE BEEP POKE % y LLIST HvLSGN RANDOMIZE DEF FN TAB [G]▜xQ'RTAN vIJ▝KCODE EXP NOT NEW USR C LOAD SCREEN$ VAL #TS▙ GO SUB ?@ GO SUB SIN [G]FN THEN vSTR$ FORMAT FORMAT c| GO TO ![P] LINE vSQR v5 CLOSE #+"LN STR$ BEEP `LN SQR 6 BEEP w▗ RANDOMIZE FLASH FORMAT BEEP OPEN # RANDOMIZE OPEN #y▞ BEEP y LLIST (SIN BIN ▖INKEY$ OPEN # RANDOMIZE wASN x&[Q]INKEY$[H]R4@{ BORDER INKEY$[T]INKEY$USR RETURN SCREEN$ RESTORE AND @ COPY }©[R]{▛ v▖v MERGE {▖zz INK IF UCHR$ [J]U[Q]|x FLASH [L]D ASN yp TO vFN OVER PIVRABS PAUSE ACS vAT RUN yz▜y10xFN w FOR SIN ▜{ IF [P]w INVERSE CLEAR #FN POINT PLOT [/POINT yBIN PRINT [Q] STOP YWXZLN ▝INT ▗ CAT ▝0[Q][Q] CAT 0 MERGE &CODE [P]xLEN ▘xw STEP SIN ▚'CODE [O]wY FORMAT Zx OR SIN ▞ LLIST [I]6[H][U]USR ▘CODE LN %CODE ▞5 CLEAR CODE SCREEN$ ▜B<>▜VAL ▞AT ▘v[O]▘ PAUSE ABS @[D]AT RUN OPEN # CONTINUE OPEN #INT [C]ATTR 9▗POINT (ABS w[P][G]z[L]ASN CLOSE #[C]-CHR$ CIRCLE ▟z▙}.(©▞ DIM DATA "SGN z▗▛d[K]"wSCREEN$ COPY ▛z[B]USR [S]SGN SCREEN$ PAPER IF USR [A] REM ©▛ POKE ©IN LPRINT MOVE ▝ MOVE ▜▞e LPRINT [Q] MERGE `_f▝b▘b▜f▘Bb▗▘f DIM jkPOINT tBIN xtrtLN tv>= LPRINT v FLASH n▘ LET m BEEP [Q]CHR$ CIRCLE >=`@gq[O] PAUSE ad ▚|hivqTAN sqsLN NEXT PAPER CIRCLE XTSTAN &wt▝w CLS >=ITAN POKE EFG[U]RND[Q] ERASE ">=▚HqLqwFN vFN x CIRCLE aTAN rxuIJKw▖@uo LOAD PRINT CIRCLE RNDwY[Q]Hupx>=▚zRNDLN z▖ STOP o~ FLASH RND4>=u FLASH NEXT ▟#POINT rVAL uy(v OPEN #LEN ▞PIB LET l~▟cavw[O] ▙x▖v&TAN LIST POINT s[Q]▜[C]( LIST vSCREEN$ READ LIST r[J][H]▖ LET ▘ LET e LPRINT LET ▛[J]v PAUSE ▞f▗ X NEXT ▝<>[Q]SCREEN$ [D]©©▖"wz▙z▗ VERIFY z[E]{[E]©▜▖}[P]▞ COPY 0| DRAW |0~INKEY$N LOAD DRAW N RETURN ` LIST SAVE LIST `@8| RETURN 8[P] RUN R RUN ▗>=h00XL▗ SAVE CLS ©Op"G H[A] CIRCLE CIRCLE bSPSQR CIRCLE hD[U] CONTINUE P(T[M]▖@[Q]u LPRINT @[U] CIRCLE SAVE d-/ DRAW Or`B.9@ @>xP ABS 6 P [P][O]" p+ LIST LIST pl(&STR$ : FORMAT >=▖[I]XF~/[B]pp[I]@H▖[J]x[I]0 SAVE [C];HP[A]HATN LIST ▖ LIST STOP ▘USR LIST [I]4T@/p RETURN SAVE >=xR=SIN oR!▗ DEF FN $USR ` CLOSE #S LIST FN R`USR p DRAW %LN 8u▖STR$ ▟88Xt[A][Q] FORMAT FORMAT LPRINT d NEXT CIRCLE VAL 0hUSR h0mLEN CIRCLE FORMAT [Q] SAVE X8t`xpXUSR CIRCLE >=i CONTINUE x0H SAVE [A] BEEP INK x[A] LPRINT PLN LN pH>= FORMAT LOAD ▖[Q] FORMAT FUSR >= SAVE FN nI▖FN ▖ CONTINUE CONTINUE NEXT ▘e RUN >=[I] SAVE p CONTINUE >= CIRCLE LIST [I]▖ FORMAT , STOP ▝>=USR p8K;G DRAW TAN W 7B▛8pp LN CLS KRI▗' SAVE [I]STR$ VERIFY ` LPRINT ox[G]HxZ[B][O] POKE LIST [P] LIST + LPRINT LOAD @ SAVE 1 PAPER :8$^l▞ LIST LN [I] RETURN VAL USR CONTINUE px[B] BRIGHT EXP hSINT FN F_pLN SAVE h[I]p/VAL r[I][A]0 NEW [[Q]▗a4Gk_P|STR$ LN TAB RETURN H/`GR CONTINUE DEF FN USR VAL CIRCLE [I]LN LIST USR hN.X POKE VAL ERASE ] COPY RETURN [R]I[Q]oPOINT ▖e9[P] COPY W▖EATTR COPY FN FORMAT bX[U] OVER W▟~[M]|SCREEN$ <Y NEW @U>[D]CODE 2 LLIST , CLEAR 6CR CLOSE #ATN CAT LOAD [B] PAUSE [[S]NOT [B][J]ARMIE OPEN #RAISEBIN G CAT T CAT WA COPY IF ERASE %[D]Q[M]L COPY BORDER YATN CONTINUE Q^▝@ POKE hSCREEN$ @ MOVE ^VAL CONTINUE EXP LPRINT COPY ^[Q] CONTINUE 8P[D]USR CLS ASN READ [G]>=C[U][B] LINE JBRND DEF FN JRNDCHR$ REM @POINT ] DIM FORMAT @ FORMAT IF POINT P GO SUB COPY CLS REM LPRINT ! PRINT ]PIN ATN [Q]~ COPY FLASH INPUT #? CLS oPEEK @T<[H]▙rJ[B]$ LPRINT TO "ACS I<>[C]SGN G REM LOAD RETURN USR TWUSR POINT B THEN BVAL$ [Q]▝ MERGE 8[L] RETURN ~<=f[D] LIST OR @@ATN CODE MERGE VN[L]D` TO FN /`IN SCREEN$ ! RUN DIM TCOS Q SAVE k02ASN INKEY$@mo[F]:$h+gUSR %COS POINT KF*FX] RETURN >[Q] DIM uH CLOSE #FN / IF CIRCLE WCODE [A]EXP 6~_X. RETURN DEF FN ▖fSP>SGN VAL$ BUh=U]@" LOAD ?5[S] NEW DSCREEN$ POINT ]V"[G] SAVE S%[[P] CONTINUE JJjATTR DATA PRINT nYCOS (s@H&COS ;4U U▛D LOAD "[Q]IN MERGE @PEEK ? DRAW COPY RETURN RETURN B BORDER ^ CLEAR IF z© DRAW r IF PRINT @ PRINT w RETURN RUN USR PAUSE OPEN #[Q] RESTORE [T] THEN A MERGE @B LINE , LLIST W[P] ERASE [S]/ DIM ▛ COPY PAUSE [L] GO SUB >x>=[G](<uk CLOSE #[R]2 OUT Y9 BEEP %COS S/bVAL$ MERGE COPY @SCREEN$ PEEK s CLEAR U[I]SCREEN$ X LIST * CONTINUE h ERASE FORMAT [L]& COPY © FORMAT BORDER / LIST COPY OPEN # FORMAT LLIST [I] LINE LPRINT ApVAL ]FN X=,LN Yt+U,Q SAVE /UINKEY$X0 CLOSE #x STOP SGN CAT MERGE Z[Q] RETURN [J]©+PI'COS © COS k[Q] PRINT X| FOR ▖ COPY BEEP T@ CLS AT ABS DW DEF FN SAVE ?@SGN ^W<[S]COS NT RETURN ?ACS PEEK ^/X▖EXP TtVAL$ 87[Q]▘FN [R]K REM ▛ DRAW 8 OVER >6 READ PLOT RETURN [E][M] AND CLEAR ▖=[E]?▜[R] FORMAT o N[O]&COS .h[K]H3 COPY {TK,*+xB INK O#j](SAq IF _wTAB W THEN INVERSE ] FLASH t@ NOT <= OVER h0V0 INK OR /.kUSR CHR$ t'▖[H]k:CHR$ (e▙'wPI PAUSE K8@[Q]v▛xOa:COS [Q]ATN 0rNOT rBD, PLOT ( REM e DATA [U] OR RETURN wU( VERIFY )Id▞ARPOINT kSCREEN$ ▖[B]Z+H,O7]G'7[K] LIST SGN FLASH <= REM [F]j[F]j[F]j[F]zRNDZRND[R]ZRND^POINT VPOINT VPOINT VPOINT WSCREEN$ USCREEN$ USCREEN$ USCREEN$ U REM [B]j[F]j[F]*zRNDZRNDZRNDZRND^POINT V)VPOINT VPOINT WSCREEN$ USCREEN$ USCREEN$ QSCREEN$ U REM [F]jj[F]j[F]z[R]ZRNDZRNDZRND^POINT VPOINT V[R]V)WSCREEN$ USCREEN$ U*UU REM [E]j[F]j[F]jrRNDZRNDZ[U]RND^POINT VFN VPOINT VPOINT SCREEN$ USCREEN$ USCREEN$ USCREEN$ U REM [A]"[F]j[F]j[F]zRNDZRNDZRNDZRND^▞F▞VPOINT VPOINT WSCREEN$ ESCREEN$ USCREEN$ USCREEN$ Q CONTINUE [F]*[F]jJ[F]pRNDZRNDZRNDZPOINT VPOINT VPOINT TPOINT WSCREEN$ U[S]SCREEN$ SCREEN$ U REM [E]j[F]j[F]j[F]r[R]BRNDZRNDZRND^POINT VPOINT VPOINT VPOINT ESCREEN$ USCREEN$ USCREEN$ U REM [F]jj[F]`zRNDZRNDRNDRND^FN VPOINT VPOINT VPOINT WSCREEN$ U*USCREEN$ Q[Q]E REM [F]j[F]j[F]j[F]z[R]ZRNDZ▗TAB ^[R]POINT VPOINT VPOINT WSCREEN$ USCREEN$ USCREEN$ USCREEN$ U REM [F]hj[F]j[F]z[R]Z%Z[U]X[R]^POINT VPOINT V[R]POINT SCREEN$ USCREEN$ USCREEN$ USCREEN$ U CONTINUE [B]b[F]j[F]j[E]:RNDZ[U]!ZRND^POINT VPOINT FN RPOINT WSCREEN$ USCREEN$ PSCREEN$ SCREEN$ U CONTINUE j[F]j[F]j[F]zRNDZRND$RRND^POINT VPOINT VPOINT VPOINT WSCREEN$ USCREEN$ TSCREEN$ QSCREEN$ REM [F]jJ[F]j[F]xRNDZRNDZRNDZRND^POINT (VPOINT RPOINT W DEF FN DEF FN COPY [O]ATN [F]©~IN RANDOMIZE FOR INK RETURN E^2[N]B▟TAB RTAB RCODE TATTR TATTR TPOINT T+ MERGE * MERGE * FORMAT * MERGE *u[E]JASN JASN JABS TAB RTAB RTAB B▜TPOINT PATTR ATTR TATTR [F]* MERGE * MOVE * MERGE * PRINT J[R]JASN @RNDJABS RTAB RTAB BTAB BDPOINT TATTR TATTR PATTR OR [F]* MERGE [F]* PRINT J4HLEN BASN JABS RTAB RTAB R-CODE TATTR TSCREEN$ TPOINT TATTR MERGE OR [F]* MERGE * LOAD LET PAUSE CODE POKE ASN wABS PAUSE [T]O RANDOMIZE ' IF _#[N]PTAB RTAB RTAB RCODE TPOINT T▛TATTR P MOVE * MERGE * MERGE * MERGE * LET BRNDJASN H[R]J[N]POINT RTAB PPOINT RPI@▛TPOINT T*DATTR MERGE " MERGE * MOVE * MERGE * RESTORE JASN JASN JABS [R]@TAB RTAB RCODE P*TATTR TATTR ATTR CLOSE #* MERGE *T STR$ LLIST VAL JASN JASN JABS RRNDPTAB RRNDR/TATTR TPOINT DATTR TATTR MERGE *TFN MOVE * OR * RUN QCODE PAUSE COS OVER VAL COPY USR CODE h COPY LOAD FLASH ? AND O[U]d[G] MERGE (A* MERGE * MERGE * POKE JASN JASN HLEN BABS R,RTAB RTAB ▙PATTR TPOINT @"TSCREEN$ ▝▜ FORMAT USR REM [F]*J[F]jzRNDJ[R]PRND^POINT V▖VPOINT VPOINT S[S]USCREEN$ U*U REM [F]"[F]j[F]J[F]pRNDZRNDZ▗ZRND^▞VPOINT POINT VPOINT WSCREEN$ UFN A[S]U*U REM [F]j[F]j[F]j[F]zRNDPRNDRRNDZ$^m PAPER n~ REM ^i OVER G_ NEXT '[N]Gv|pp SAVE LPRINT *[F]j[F]h[F]rRNDZRNDZRNDZ$POINT VPOINT V[R]R[R]WSCREEN$ U▘USCREEN$ U REM [F]j[F]`[F]j[F]p▝ZRNDZRNDHRND^POINT V[R]TPOINT VPOINT W[Q]USCREEN$ U[S]U REM [F]j[F]([A]"zHASN B[R]JASN Nfg CLEAR U GO SUB ?U; PAPER } FOR FLASH PEEK IN READ ABS * MERGE * MERGE * MERGE *USR fA[N]"SCREEN$ ▘ CLEAR ▘ RANDOMIZE LOAD OVER FN _ STOP ▘O RANDOMIZE BORDER RETURN ▚{:▗RNDZRNDZRND/)VPOINT V)RPOINT GSCREEN$ ESCREEN$ *USCREEN$ T STOP `j[F]"zRND$X[R]ZRNDNPOINT FPOINT R▞P[R]W[S]SCREEN$ DSCREEN$ REM [F]h[B]h`[E]rRNDZRNDXRNDZRNDNTAB VTAB FTAB VFN U|ABS s READ PIUSR ) PAUSE COPY BORDER RANDOMIZE l@NPOINT PRNDB"P[T]R[U]KX COPY GO TO 7BIN $$ COPY [Q]IN EXP / COPY CIRCLE GO TO W NEXT 9 DIM ©[R]ASN BuJTAN ASN JASN JSGN -RTAB RAT PCODE TPOINT +T MERGE * CLOSE #*[E] " PRINT 4H!JASN JABS R-RTAB RTAB R▜TATTR PTT) MERGE (RRNDJ[A]* MERGE ePPOINT RRNDBRNDJABS RAT ZTAB RTAB ZCODE v_ PRINT CLS PRINT = OVER PLOT NEXT DRAW CLOSE #X STOP USR B[U]e:|jVAL <=c&D^pP_ PRINT -?[R]aABS LOAD SAVE <>©BIN FORMAT >▟ PLOT P"[S]R>_ RESTORE BORDER ▗M MERGE P* MERGE * MERGE " RESTORE 4JASN JTAN HEXP TAB RR▙TATTR TT#DATTR MERGE "E* MERGE MERGE * POKE %JASN 4H[N]J[F]STR$ RRNDV[Q]*[F]*T[R] OR ( MOVE A[F]* PRINT JRNDbASN JjPOINT [U]NASN [O] DRAW ▜ INPUT STEP ZgATN RETURN IF SIN ERASE ; DEF FN ; VERIFY LIST |F▚ LET #LEN T5>=IN XH CLS ,[P] INPUT LO DIM ?e7 CLS -?USR BRIGHT <=[K]([P]/ PAUSE STOP ▘ LIST R▗TAB RRCODE +TATTR T▛ MERGE "[F]* FORMAT *[A] PRINT @4@%JASN JABS RRNDRTAB BSCREEN$ uP u[I]sTPOINT RH"E REM bJ[F]*[B]zXRNDZ%J[U]^TAB VTAB VTAB VRND_[C] NEXT ?INKEY$PI CLEAR [K][P] DATA [B] RANDOMIZE [C] PAUSE [R]▖IN :<{ MOVE <= DRAW )/ INPUT AT COPY I|[P] RESTORE } BORDER [F]ATN INVERSE NEXT PI=k RETURN k© LINE ^© OPEN # PLOT w PAUSE LN ▟©▚[B] RUN N PRINT JTAN H[B]HRPOINT AND WGX CIRCLE DATA 0 FORMAT ~"PEEK ! MERGE `t MOVE ▚gUSR PIX@`aJ[F]0@[N]RRTAB P▗a BEEP zRNDZ%PRNDZRND VERIFY O RETURN RETURN JW IF ©[D]4 DPOINT Q OVER M CIRCLE 'a STOP o CLEAR [U] READ COS w RETURN + CLEAR [f|[Q] RETURN LLIST _▖ OPEN # DRAW K RETURN c© TO [M]▚& OPEN #E CLEAR NEXT 8 LIST ^y©[G] LINE SAVE tSCREEN$ BE)CSCREEN$ O BORDER Xa'a▝©[F]~INT FOR FOR 3 AND SAVE REM : IF tHHE4g NEXT DRAW Q[P]o SAVE ▙POINT DRAW BIN READ STOP q▗ BORDER O▙[K]7+ OUT h*©[E]COSTR$ SAVE CLEAR DIM >=CCODE DATA STR$ |L[Q][D] COPY IN ▘`+ INPUT _ HINKEY$>=T RANDOMIZE H▙PEEK POINT ^wVAL$ READ U PAPER CHR$ 1k[N]`©INT [P] NEW ? LINE h CAT NEXT CIRCLE fSGN ▙ POKE GTB@FN HPOINT |[E] LET KAk[F]V@EW/©[C]=[P] LINE DRAW [H] CAT [K]ZyJ[F] RETURN MERGE SGN [I]PI8ATN ATN 3NOT ▝VAL$ AND >=▘©_ LLIST "ATN K DIM ▜CHR$ O GO TO [U]Kb[R] CLEAR [M]1 FOR [D] ERASE O; LINE rug_<>8[C]>Ea COPY _GAG=INEXP ATN NOT PAUSE [M]x READ ~ATN FOR THEN [F][P] NEXT [F][P][N] RUN CODE [P] RESTORE DRAW 3 CAT [H]w RUN DEF FN ▚FN^[M]+ TO *@P<>@d SIN | RANDOMIZE u INK .' AND [M]KEXP y_ LLIST + PRINT Q_/9[Q]|x8MINKEY$FN `R RANDOMIZE POKE ©NOT STOP v SAVE _ PAUSE [P] LET [N] PAPER &CODE RANDOMIZE COPY B THEN [I] BORDER ▜[B]2o GO TO ATN CLEAR e=' BORDER COPY U COPY $%?! COPY STR$ ©>=© TO | COPY LIST %o PAUSE RETURN LOAD ▖VAL$ [P]bs RANDOMIZE © RANDOMIZE CIRCLE SGN ▗0[Q]H OUT Dw([U]L$TAN ▙EXP K▟9;SIN pg#1~[P]T PLOT 8 COPY [S]▟ RANDOMIZE CLEAR U© ERASE [C]pkwuD LET NOT OVER COPY ▞,[T]8O PRINT uOBIN N_ PRINT READ nqe▞USR OVER <= DRAW CLOSE #vb© MERGE W▞jEXP BIN ' CAT [D]COS COPY j© PAUSE S▛) CLEAR INKEY$g[F]©[T]RND FOR Kz[L] CONTINUE [B] MERGE a PLOT COPY @x TO 3▞q| STOP USR R▝< DRAW ABS CLOSE #EXP STR$ [K]|, NEXT STR$ INPUT a OVER ABS COS X{COS © IF © LPRINT D SIN U NEW BORDER {©z^ABS 1 IF @SIN LIST Fr2CODE PRINT FORMAT FORMAT #▚LN %[P][N]AT TAN woRND& CODE 8~"qBIN TAB BEEP STOP A[F]<= CLS STOP S[J]O DATA 4Dx}O[U]r[P]{O NEXT BRIGHT [P][F] RETURN RANDOMIZE [A]H▗BAT READ [J] RETURN [M]O[F]$$ VERIFY ACS ▖ ERASE W' CONTINUE COPY CONTINUE k. COPY [T]▚_ PAUSE ©▛y▟O[K]%}J READ :9 LIST CIRCLE ▜<>k THEN c TO GO TO TAB gtV' OPEN #N?>=G CLEAR DATA DE©[S]+ LLIST RANDOMIZE OR MPI LET REM CODE [L]>;? LLIST + RETURN CODE ▟F CLEAR CLEAR NOT TRND©ATN CLS O CLEAR [ COPY RETURN z DRAW s COPY RANDOMIZE [Q])▝ PAUSE (SIN CLOSE #E READ AND CAT GO TO RANDOMIZE AND RETURN RUN [B]"" FOR CODE 6;R| DRAW dVAL$ NEW SCREEN$ fABS PLOT VAL$ ~ACS } PRINT g RANDOMIZE TAN [M]SIN Vw[R]ATTR USR INPUT [C] DIM ` MERGE TAB Gn PAUSE ATN 4▖▖▖ COPY 1<=[N]l POKE TAB u% LIST V`4CODE ▝RND DATA TTAB T"[T] CONTINUE u DRAW = RESTORE PRINT BORDER agSQR b▘▖ BORDER Fj[P]ATTR FLASH VAL$ PAPER ABS RANDOMIZE PAUSE """" CIRCLE [O]LEN PI▝,i LPRINT KxBIN RESTORE ▝<bLEN 9OXNOT LIST OR ▖< ▗X[M]P▗<N(RCHR$ PI1 STOP PVAL '▝!KxAVAL '8[Q]AXNOT b####"!1!111110▝DSCREEN$ LIST eee`z[P] CONTINUE IN _- OPEN # CLEAR RUN THEN ? STEP ©[I]SCREEN$ ? OUT }O DRAW DEF FN COPY _ PRINT = IF OPEN #/ RUN GO TO CLEAR Z COPY ▞ RUN OUT ASN SQR BEEP DRAW /ASN DRAW READ INPUT <=COS CLS DEF FN ASN COPY $[H]ATTR RETURN FLEN BORDER © GO SUB VAL$ PRINT CLEAR GO SUB B MOVE VAL$ IF TAN V[O]▖ SAVE CLS OUT } INPUT INK NOT FN [C]W OPEN #[D] DIM >ATN ▘4LN IF COPY SAVE $' OPEN # READ IN OUT COPY CONTINUE lQQ INK G[G]` IF [N]©ACS COPY INPUT BORDER [F]K OUT PLOT PRINT RESTORE SGN ▘M IF ,g FORMAT COS GO SUB CLEAR CLS [P] DATA CAT CONTINUE ▚7 GO SUB RANDOMIZE =`[C][B]BIN ©} RANDOMIZE NEW FLASH CONTINUE [U]INT DIM COS $![A]▝t)DDW>=WXDc COPY FN U*ESCREEN$ PEEK CIRCLE [E][N]EXP BORDER [S]lJCBIN ▖[O]gFN IF ▗[S]EXP ▗' READ LET [k?<=W SAVE 5©▗NOT PAUSE G SAVE )df|IN _INKEY$ IF |? ERASE ZVAL COPY u_N INK RETURN S LET LIST LPRINT "T[U]DFN SAVE W LIST CODE VERIFY G LPRINT [P]O BEEP RANDOMIZE LEN LIST CODE PI[B] RUN ©▘EAATTR LET COPY OUT [Q])P-AT R,PD[U]▘&▗[B] *▝FN "T5U SAVE SAVE G SAVE CAT ATN @DPOINT [Q][Q][S][Q]J*[F]T▜ RETURN RESTORE TPOINT [S]J[U]k RETURN TAN 5T©[K] READ DRAW TgCODE SAVE W SAVE o POKE SIN INK v INPUT /▝PI OR SAVE {E(*U*(k RETURN LLIST USCREEN$ ▗TBHSCREEN$ ""U[P] PLOT ▞VAL H▛I BEEP RANDOMIZE GO TO 6IN LINE A▖▖▖▖▖▖▖EtJ▜u DATA FOR ::EXP PLOT USR 0C[S]USR CLEAR R BEEP RETURN TAB ▖▖▖▖▖▖▖[T][U]AT 4.[A] FOR [H]LEN BEEP FOR >POINT BEEP [C]q IF ▗[G]▟ GO SUB S PLOT [G] CLOSE #4?PW STOP [E]SGN LEN RANDOMIZE RETURN K[8<=c[D]8STR$ E"TSCREEN$ ©] FORMAT Jb[F]jjASN EXP SIN PAUSE ERASE :i;[P]mATN ATN ERASE Y OUT CAT NEW f▞[U]feY DATA q2IN [C]y RETURN { RETURN [A]CODE R COPY MERGE OR xCODE ©<= COPY p+ FORMAT IN <=COS CLS o▝ FLASH RANDOMIZE {v LOAD [P] PLOT LLIST H%,[A]r RETURN RVAL PLOT RND) OR )K RETURN CLOSE # THEN vznGM+P GO TO COPY READ IN ) OVER CLEAR ▘AT x/ PLOT V RETURN [T] CLEAR RETURN ` FLASH } POKE _1.?yIN STR$ COPY DATA REM ATTR CLEAR vSCREEN$ IN u_SCREEN$ RANDOMIZE z LET Q PAUSE IF }>~?CHR$ }IN ▘T% PAUSE LET C)JQJRVAL BRNDR[A]INKEY$ CAT j DEF FN X LINE [D][H] DRAW CODE cN TO ▛oATN ERASE OVER sATTR COPY COS [L]z INVERSE <=$ COPY COPY PEEK PEEK POINT >p;<>[E] RESTORE o BRIGHT PLOT [E]J INVERSE GO SUB FLASH PAUSE PEEK y PLOT THEN READ n}?<>zq RETURN k POKE gNOT < READ SAVE g SAVE DEF FN N CAT RUN MOVE MERGE RETURN [ DRAW MERGE fq_SCREEN$ IF ebG FOR + CLEAR &[P] FOR COPY [H]©[I](© LINE [▘ OPEN #TAB STOP BRIGHT NOT PRINT ▚VAL ? CONTINUE CAT CLOSE #E[N]O PAUSE [P]J CLS GFN CLEAR ( NEXT RANDOMIZE POKE VAL$ "[O]©▗ CONTINUE ):[Q]NOT CSIN ▘[A]X!ATTR SCREEN$ LINE ?<=W[P]ATN SAVE CODE PAUSE OR IN LINE q LET 3 LET USR FN IRNDD NEXT Y<= LLIST AA[A]@B CLS REM PRINT REM CLOSE # REM MERGE CONTINUE CLOSE #ATTR RETURN FOR LLIST NEW INT Rk RUN *SCREEN$ VAL ATN SQR [B]$$ RETURN ©[A]"u MERGE gNOT DEF FN SGN CHR$ SAVE ▗ DIM RETURN CCODE EXP _s DIM [P] LIST DIM SAVE RETURN ~< REM (eSQR ; PRINT READ e NEXT IN NOT > VERIFY ABS OVER 7 FOR FLASH |<y{ABS BORDER BORDER FLASH [C]? TO yUSR i OPEN #IN o?_o PRINT j▘ATTR IN DCODE MOVE LOAD G OPEN #SCREEN$ CODE ATN ] FORMAT VAL 3 DRAW A[N] SAVE [A]Xq LIST >y@5"ARND▘HE!*[P][H] CLS ( CLS "PR*▘▞H[F]HRND© REM SAVE REM LET Xc RUN DRAW OUT PRINT ▘COS COPY (USR A RETURN TAB RETURN DIM ▞ STEP SIN ▙[T]▖ SAVE VgY<>?<=[O][O]wU<=▗©▙ BEEP ' RETURN LN CODE O CLOSE #[P]VAL$ LN C▞NOT SIN OPEN # DRAW ' INVERSE STOP x|b)©▟ RETURN STOP CLS COPY [K]8 DRAW ©INT $H*DO[P] CAT [R][P] READ # AND ©[M] RANDOMIZE ~g SAVE o<= FLASH GO SUB |" CLEAR dJ0 FOR CLEAR <> RETURN PAUSE @[K]CCODE [H] OUT ©SQR THEN TAB VAL$ $ POKE csaVAL$ k^[B]# CAT 8COS ▖SIN 1{© PAPER GO SUB PLOT LLIST LN TAN LET IN POKE q RANDOMIZE LET PAUSE GO SUB LOAD INPUT bSGN U"hqv RANDOMIZE VXsUSR LN WSCREEN$ U*Qk DRAW B POKE USR USR !G LET RETURN >~VVAL$ ORND©|~IN , GO TO NEXT NOT < GO TO SCREEN$ READ RANDOMIZE LET RETURN DIM RETURN d CLEAR ▖J]STR$ ▞ NEXT +o> NEXT CLS BRIGHT USR VERIFY GO TO >=g~v[P]COS OUT BORDER BRIGHT i RUN i|_ STOP [T]CODE POINT INVERSE INKEY$X SAVE GO SUB PLOT FOR 1©[B]k[E][J] IF LINE STR$ POKE RETURN MOVE *ASN Z@ MERGE VAL Z[U]Z▟TAB TPOINT [Q]POINT R"||EXP EXP mj SAVE N[H] READ ▜@@ COPY 1 LET ~:[C]?o PAUSE RETURN > OVER LN SCREEN$ NEXT CAT 0 NEXT ▗ SAVE CLS }COS DRAW wO$[B]I CIRCLE STEP D[F]y[N] LINE ©Q PAUSE PAUSE 3 OPEN #B[E] INPUT LEN ATN h▜[B]M▚ FORMAT LPRINT [R]Y.CODE P $0RI[N]STR$ (!1ACS [J]l BRIGHT COPY YH▟^ OR R>=T<>FNOT Q REM =▜JE[S] DATA j%jRNDz▜h LIST J[U]H%PI READ *SCREEN$ d*dFN d#eLN MERGE RND MERGE =}N[K]▚9 PLOT CLEAR GATN 5_ RESTORE + LLIST PRINT :(IR%DjIN <=©[E]u GO SUB Z, VERIFY k% VERIFY PAUSE STR$ CPOINT @ RESTORE @LN |([B],VAL$ LM/>=[T]Q^ DRAW [S]▖Q(7L OPEN #H MERGE BuS% PAPER 1@TAB T(▝RATTR T FOR T@$Q* CLEAR F[B] FOR cCuN[T]X RESTORE SCREEN$ ,| RETURN ▚[R]@[R]T▛USR ttW FLASH LET '[M]INT VAL 0 FOR 7 PRINT jRNDj[R]bAT ?NOT RANDOMIZE VPOINT D▝?Q CLEAR 0/Jk OUT BORDER CHR$ OR + LPRINT *STR$ b<ZACS L5FN u^ STEP B[O]~M[P]▛INKEY$[L]V▟[H]. COPY FN T:▟"[F]b0[F]ZPIZi%FN V▛APOINT uG)b@ [P]USR MERGE JB`*ASN PAPER 5J$ ▟f FORMAT iRNDTSCREEN$ U*USCREEN$ u[O]VAL @00CHR$ U#_#[Q]00 USR Y▝▝@! MOVE ▜whPACS ©!*8▘: COPY JXY RETURN s? STOP RETURN DEF FN mTAN [M] CLS .IN PEEK u`[Q]▟BRND PAPER GO SUB SIN ▞[C]POINT [A]▟▚▛E[S] CLOSE #kPIQ>?IBIN rVAL CAT [Q]FE MOVE jASN N[D]h MERGE (4HRNDZTAB STAB PFN V* RANDOMIZE q RANDOMIZE IF T MERGE z[T]T* OR [F]SCREEN$ ABS ▚[B] LINE [G]WU[N]USR c LET DGA~INT 0 DATA 0@ OUT CODE _+VPOINT VSCREEN$ STR$ (a NEW MERGE * MERGE * MERGE * VERIFY P`a▝X$ DRAW A▜Y[K]▝ GO SUB 2C▝▜DTtE OPEN #u[K]EATTR USR *jASN N[D]HAT *FN :+:INT GO SUB [K]RND[C]TAB ▘▝[G]▝AFN t[L]FFN USCREEN$ * CIRCLE *Yj[J]`TAN H4JVAL V|NOT [J]AT r▞RTAB PPOINT VPOINT USCREEN$ POKE ;NPOINT Z©CHR$ LET BIN ▘<(x2F< LIST "#s▗B$`! CAT (A[O] P$<Y CAT H3 OR [C] LET d<Y CAT 4 1[R]1[R]1[R][A]a LIST $I LOAD D[B]▝ LIST [A]STR$ DRAW USR h[K] LIST SGN AND <=z OPEN #IN INVERSE X CONTINUE 6 PAUSE [M]PEEK k[H] NEW CODE [P]~©:[K]Y[B]VAL$ Nsr▖ READ M INVERSE LOAD OfBIN FORMAT + COPY oPI&H-5COS ^ PLOT taS© OVER POKE _[N]C{[L][Q]-[L] PRINT OUT Ni CONTINUE } INPUT :ATTR ACS SAVE ▖FN J DRAW p[▚ CAT LIST [S] DEF FN _▚[P]5en+vASN LPRINT c5[T]ATTR OUT AT 3k%-> CLEAR USR [E]SQR f9 FLASH IN @&f~IN NOT STEP 8 AND ^ INVERSE RETURN ▘b #[P] PRINT Z POKE $# RANDOMIZE W LLIST _ LLIST LIST CAT CODE CHR$ [P]/LEN LIST RETURN fPOINT q▟PEEK CODE ATN NEXT DIM RETURN [D] FOR ~ OUT o RESTORE RETURN PEEK PRINT /w DRAW CAT CLS COPY PRINT |IN _ REM POINT TO COPY LEN G DRAW MOVE [L] CLS o FOR CLEAR RANDOMIZE }[L]z8 COPY |ASN {[COS tINKEY$[P] NEW ATTR DRAW PRINT NEW I IF CONTINUE GO TO CHR$ ▗▛>EXP ~[J] PLOT NOT g RUN FOR MOVE SAVE COPY I PLOT ATTR DRAW ATN SAVE CODE CLEAR CAT FLASH CODE LIST OUT REM G n CLEAR CLS ▜<> FOR PAPER RESTORE =[K] COPY ]S INPUT [Q]PEEK RESTORE <=CHR$ _▖© CLEAR COPY COPY c[I] GO TO ▛ PLOT INK m[H] MOVE z% STEP VAL LOAD @[D]SQR [D] STEP DEF FN [D]/7U STEP m(▜a BRIGHT `EjvINT VERIFY OPEN #/ CLOSE #![D]qPOINT PEEK SAVE |v DEF FN v_J`[A]LN T|FHQTBIN ^uU<> THEN ]$xNOT [O] GO TO Zr&&8LN g>p[U] NEW RANDOMIZE b OR EXP AT ~FCHR$ RY BORDER LIST STR$ OVER [J] RETURN LET USR - RETURN PI<=&@ LET C>SQR MERGE |BIN ]> MOVE [B]▙w[M]AaBgYF REM ▙ PRINT MtLN }[I]6▙[U][S][H] FOR JUK>=> MERGE <▙RO LET <> PLOT LET 2g/<=USR [E]O DATA IN u>=RCi&STR$ LEN CONTINUE b FORMAT [O] NEXT BIN R(USR DIM Gi+[Q]0Ea OR F|NOT DEF FN ?neq[I]J CONTINUE ?STR$ D CAT ==0[K]R[L],H@ GO TO PEEK `J COPY &CHR$ AN▘{2c@ BORDER COS " STOP 8`}9kY[U] OPEN #7[C]x NEXT DEF FN [A]9POINT )J THEN o.G[T]&G STOP STEP )[O] DRAW " RANDOMIZE [O]CSIN `i[U] LOAD ▜z[F]N▗ OVER INKEY$VIN ,]BIN 4pVAL$ ~[G]hIN LET IN LLIST D SAVE a▛y[Q]K1 NEW USR ▘ PAUSE ABS z▟RIN ▘ LINE RANDOMIZE [E]b[R]▖: RANDOMIZE 0[A] Se[A] LIST s NEW STR$ ▞ L[H] LLIST /uF BEEP 87 MOVE bA@% BEEP k[M] CONTINUE 2ATN LPRINT MERGE ' RUN K MOVE PL"YPA#|>[.POINT BIN dgSGN A.>USR m<>c6[E]TAN AT LET ATN ACS TAB <moki}]c READ RETURN G GO SUB c~hAATN POKE # STEP w[I] AND ▟y LET FN BIN 20@ CIRCLE BRIGHT OPEN #? RANDOMIZE Q:RNDXTAB Z-J[U]Q"Us[R] BRIGHT .a'ATN BORDER /n FLASH [A]# REM LINE *+FN FOR AT ) CLEAR Eu VERIFY e[S]INT CONTINUE CAT RND~PEEK / LIST BORDER w INK k STOP _ LPRINT - ERASE SGN CAT .nr LPRINT XrJe LLIST NOT 2a▜<@W▖ OUT . OR CLS PAUSE z|s DATA k/ READ [I]w"U▖U"U STOP >=[F]bH[F]x▜r%XR%^! BRIGHT ▞V!T[N] COPY PLOT ; CAT q[L]SGN FN y REM b[F]@%▞RSQR *SCREEN$ wSCREEN$ INVERSE SCREEN$ w BRIGHT [J][D]▜▜[J][O]PI[P]Z&/{ CLS ZVAL$ INT CLS [O]SGN CLOSE #ATN *U[Q]J[Q]J[Q]-C5^2[J]PL[F▘▞POINT [D][F]):COS NEW iOW▝_"ABS INK OUT ▙!T▞V!/ RUN LOAD ▖U"U[O] CLS ] INPUT 9© BORDER y STOP NEW PLOT FSQR ZATTR ^ COPY ZABS CIRCLE d&?[P]g CLEAR T▞V!T▞V.|y OUT [J] GO TO M SAVE <>Z COPY [P]VAL$ FN ~COS DRAW ' OPEN # POKE m6 BEEP GO TO CLS pRND%JJ[E]-- DRAW ~>[M]"&©NY<=fACS |P GO SUB CLS [B]%▗cD ERASE }m)L[Q]2INT ▙!POINT RRA LET (%RH▗LEN ! LPRINT i<POINT ; COPY v LLIST V[A] LPRINT [A]V FORMAT `ASN ZASN zATN zASN z PAUSE SQR ~[P] STOP ?▞_ RESTORE 3 DRAW go<= FLASH PRINT [P][R] COPY [M]©[C]VAL$ Q▞"▘$"ZSIN JACS LOAD INVERSE INVERSE ATTR ATTR O@▟SGN >aa`[Q][Q]]&▞[C] AND BEEP STEP gVAL NEXT FORMAT BEEP }INKEY$ RUN s[R] LIST [Q]P5▝IJ: FOR CIRCLE `P CONTINUE MOVE FOR OPEN # NEW MERGE COPY INPUT ATN BEEP LIST v OUT [M][F] GO SUB READ GO TO U THEN CLOSE #/PPOINT TFN TPOINT [Q]A VERIFY %HR]t© READ GO SUB IF STEP ©▚PI REM IN [O]?[P]AT COPY R IF q[B] MERGE KSTR$ VAL$ ▞>=* INVERSE . LET [O]gq[E] CIRCLE AND ? BORDER LN DRAW y MERGE RETURN *PEEK [N]g MOVE NOT CLEAR '-[C]I INPUT BEEP oPEEK DEF FN ABS ©▜ DRAW RUN STOP [G]IN VCODE ][T]H' THEN [B]B[R]]F4 CONTINUE CONTINUE RUN $ INPUT [N]fTAB n▚@0USR USR NOT +NuEXP ;<>:c PAUSE CAT LEN _>=ATN DRAW G SAVE -RNDe0a BEEP ]ACS PAPER FLASH n FLASH mASN EXP OVER SCREEN$ ATN WLEN ^TAB ERASE mSIN ]INKEY$9,[T]POINT 3OE[B] RETURN PRINT /LN CLS u[P] RESTORE +[D]▜gLN GO TO INT LIST /] CAT LIST -BIN [Q][U]+ CLS [U]eINKEY$[U]INKEY$EXP jABS USR ? VERIFY T FLASH PLOT Zb©[E]n[B]PI SAVE RETURN LIST ▙|[U]▚G GO TO ~ PLOT [I]$[O] FORMAT OR [Q]@[I] GO SUB bp BRIGHT INKEY$K5mASN VERIFY PAPER CLS mTAB ACS STR$ [J].l/-!A!? OVER Q? GO TO IN & BORDER RANDOMIZE ~ GO TO ] COPY DRAW Nr PLOT _o[H] READ POKE }(4▙!TAN ▖TAN H ` DIM JeABS !POINT H1diASN KVSCREEN$ ATTR Y_ CLEAR ACS OUT kuASN OVER PAPER CLS APDABS p# LIST lATN QiTAB 6 ERASE >=D▘BQE&X TO [Q]<><7[L]ATN PAPER PAPER ltT((g%|[U]W CLS s VERIFY INKEY$` DRAW $0[I][M]BIN FORMAT FLASH IN LLIST PLOT NO MOVE J[MD$#STR$ $ GO SUB INT INT OR UjSCREEN$ RNDU]TAN [C] MOVE QSASN FLASH FOR uZkmU AND OR EEPEEK BEEP [mATN STEP }ACS FLASH m0 CLEAR z NEXT OUT OUT INKEY$& COPY ESGN [U] CLS tbR DRAW [M]SGN [R] DIM BORDER [L] NEW 7/▗EPEEK [G]©▘y BORDER BAT ▞;D[H]_ATTR kWUTAT FN r THEN [N]k/ SAVE VZ COPY [I] LIST >="!▟6TAB GO SUB uuMJINT INT ASN M[]USCREEN$ SCREEN$ PAPER INVERSE rVAL Q$J▖FN ▝A▝*[I]CODE LET OUT READ ATTR -[F] COPY IHi#E, PAUSE OPEN #[M] LLIST [S] ERASE ERASE ` PAUSE 0Xd▞X PAPER ,z FOR ;<> CAT LIST SGN FOR i OPEN #NOT ▝S[D]COS ▜L&[A]S] RUN CODE LET [K]"v FOR Y© THEN /▘ INPUT [A]RND%IJR[C][S]5[G] DEF FN ._RND[A]2>=+[M][K][I]▗[C][Q]H~[B] POKE RNDg[K] CLS e©▘ CAT LIST LOAD [H]_oATN ERASE >▗$@STR$ T)PDFN ▘1!SGN <>[F]N DRAW <mATTR [D]VAL$ CODE [B]▘2&` DEF FN OPEN #PILR©<> INVERSE `d[Q]2Dje PAUSE 2O>'[F] NEW ▞ RUN ©STR$ THEN +A]Ud BRIGHT EXP COPY g_BIN # DEF FN (ASN LN VIN K3O[E]u CLS U© TO VAL [U]R%#AJ COPY [P] DATA !lRND$▗NOT K=d[A] BEEP R CLEAR ?[S]P@▘▝ DIM USR VERIFY LPRINT MOVE ha DRAW oCHR$ ?: DEF FN [T]-4 LPRINT NOT PIF::NINKEY$ATN RANDOMIZE `?CHR$ LN 0 ? LINE paDDW RANDOMIZE DEF FN LINE SCREEN$ )8© LIST DATA NEW COPY k STEP RUN |[M]E[B]IN BIN 8+$▝a>=[J]9xCHR$ ^8dZFAA [H] THEN Q FLASH ▗VAL$ aN FORMAT h[L STOP BIN FORMAT d/VAL BORDER STR$ BEEP IN CHR$ LIST INVERSE nCOS I&©[A]© RUN [O][E]NOT Q$ INPUT aIN INKEY$U RUN PLOT FOR FOR COS i▞▝e NEXT v©[E]SCREEN$ [Q]0USR COPY 8*R[E] COPY ▖00USR USR [O]Fr0▗ASN [A]EXP l▚< FOR CAT :|9U©[P]▙! INVERSE ATTR r~)R93 DRAW PEEK e LIST FOR $ IF ▜ CIRCLE BEEP ];w BEEP g©NOT RESTORE ERASE ]"▖RLEN CHR$ QBIN CLEAR [R]v*gSfNOT #B STOP IN z BRIGHT ? FOR oM? CIRCLE cn BRIGHT INVERSE COPY POKE LEN : COPY MOVE $)~PEEK [C] NEXT ASN ©CHR$ [H] PAPER 8 LLIST INK RANDOMIZE 0 LPRINT [F]▞n CLS ▜Q RUN u▟b_ LIST W]y PAUSE 5 CLOSE #j([P] POKE [L^rPEEK [H]_ LIST [P] STOP #▝▟LN 7ATN { NEXT ATN DRAW RESTORE ©[L]+ CLEAR CONTINUE @"|[G]q[P]VAL$ NOT >= LET [O]~8[L]IN s LET IN lPI[P] READ >[O] PLOT NEW T RANDOMIZE ▛▘CHR$ BORDER NOT VAL$ EXP 5STR$ BEEP INPUT EXP LET RETURN LOAD SAVE ku VERIFY COPY &# RANDOMIZE LOAD LIST CODE '^!A FOR V0[R] LINE DEF FN NEXT GO SUB ~ OUT PI OPEN # REM ©[G]O BEEP READ CAT NEXT PIU RETURN 3< DRAW qY RETURN FLASH DIM <><= OPEN # CLEAR ABIN _e!vPIUSR ?▝&#USR ▖ LIST "▝<[Q] DEF FN p©D LIST ▜L BEEP H BORDER t▖fH'tGHVb▘xx"Dx▘7"x'7▘hGswh7t▝wH6xr▘Dvs7▝(w▘8rw(▘7[A]7INKEY$H▛4xSH[A]H`>= FLASH ▟TAB ~VAL CLEAR CONTINUE RUN [M]h DRAW i_CODE [H]% OR BORDER DEF FN DEF FN ?>=`+ OUT EXP INKEY$ TO 6p DRAW OVER COS C; COPY _s RETURN @ CLEAR CODE PAPER FLASH IF CLEAR k-©]" IF ASN DRAW RESTORE ATN [S] DRAW OR D[J] RETURN *j CIRCLE NEXT CODE ATN ) PAUSE ^[C][Q] BORDER %▚%L? READ [P] READ {IN [L] AND 8 OVER [J]y AND ERASE IF SIN RND BRIGHT DEF FN LINE *▛ POKE SGN ED[J] RETURN *ky[Q]ATTR <>5ATN PICHR$ ▗SGN RNDG PAPER ? LIST CLS g SAVE NL RETURN ~SGN xLEN b<>BBIN DRAW ▖[F] OUT [A]=SQR RUN x OUT [M]u{o CAT PAUSE Y_ BORDER ▚| LOAD INVERSE LPRINT =ml RUN [P] LLIST [P]O BORDER [F] RETURN " FOR RETURN VPIY▜>w IF ASN mCOS RESTORE [M]©▗[Q]ELN ABS [I] COPY TAN z DEF FN [COS REM ru<=ASN IN DEF FN COPY > PRINT =g FOR LET <= OPEN # LET " CLEAR CAT ATN STEP 3 RANDOMIZE INK LINE PAUSE /@}u| STEP VERIFY i RETURN K$ABS [O]}▖JFN &UAB[E]!h AND ▘▗*>=PRh($Pc)iA[P]<=[N]dD`QDL/RP[U]%VAL$ r▘PEEK [F] STOP BIN [K][P]D NEW ~AT INVERSE }[T] INPUT | DIM O? COPY .|( RANDOMIZE LET DIM BEEP RND READ FN |? TO U▟INT [H] CLEAR }_ POKE DRAW ©COS ? STOP WSTR$ INPUT INVERSE [?W][L] FLASH GO SUB ©[H] DEF FN CAT - LINE CLS wCODE CODE S INK INVERSE ASN TAN IF M LIST SAVE IN DATA {~m MERGE CLS FLASH VERIFY MOVE LOAD ▜ INVERSE >=>=FN COPY * STOP > OUT L▗< COPY PRINT CAT COPY DATA CIRCLE pEXP [J]W RANDOMIZE GO TO LET QUW]U[A]eGCHR$ ( FOR PRINT STOP COPY PI LLIST ©<= LET ©ATN LET $B RANDOMIZE COPY [C]<= SAVE ? SAVE R▖[E][F]p RETURN INT AT CODE " AND VAL$ > PRINT INVERSE TAB GO SUB n VERIFY IN ^9ATN ▚ STOP INK CLEAR SGN [P][D] VERIFY VERIFY REM LN ▙VASN PLOT , OPEN #O[F]r}M FOR NEW BEEP O[COS ABS FLASH SQR ©}?vl FORMAT ~[Q] GO SUB [T] READ s FLASH ASN ? AND [J] RETURN z3YQ5` AND SCREEN$ TAB vT▟x CLEAR [B]#"T▞ DEF FN CLOSE #ASN kKRPIUCOS j FLASH VAL$ VAL$ INPUT zTAN [C]▘ASN TAB [J[L]WT STEP :SCREEN$ SIN MERGE OPOINT QZRU[F]j OR LINE OPEN #%RR%iR[C]SIN TAN [F]IYABS v OVER CLS w©v1 CAT ATTR [E]q FLASH [M]C-▛ BORDER PLOT LET INK DRAW ~PI^ STEP //[E]}[R]ASN NEW u[K] PRINT r CLOSE #%LEN <= GO SUB THEN >P INPUT COPY D[J]ACS INPUT TO CLEAR /▞?IN PAUSE O NEXT INPUT P COPY RETURN K DRAW p< COPY I COPY b DATA [P] LPRINT ABS @| COPY COPY PAUSE © LPRINT $TAN 0[C]SIN STEP m anTPPOINT SCREEN$ KRACS COS ERASE VERIFY U%,+©IN VERIFY RUN CLS SGN cIN INVERSE READ INK DRAW INPUT }?ATTR [P]o<=* LET INK CLEAR ?VAL$ <> MOVE [T]/&; GO SUB >=,&[P]k FOR LOAD RUN CLS CLEAR [K]/ RUN ▟ GO SUB PAPER $xP[A][A]$$H*<=&r FLASH 4 OPEN # DRAW N0 OR <[I]de▛>=>▝eHBIN BRIGHT 9 BRIGHT 0 AND 9[H][K][I]tt/<=[M]PEEK [ ERASE BIN [P]SCREEN$ CAT AND q[O]+v>EG[B] COPY [S]©▖`▚STR$ COPY CONTINUE [P] LPRINT ▟,[A]_ IF ? MOVE -Hb*ASN J BRIGHT RANDOMIZE y[H]o CLS IN N▛ LPRINT FLASH DRAW OR ( READ 9SQR /CHR$ INT INKEY$PEEK ABS Y[H]UpSGN G INVERSE SIN ▙[T]:8 LIST STR$ [C][G]$ RETURN )▘'1mIHF@ COPY 3 NEW b[P] DATA BORDER /rO<+ ERASE > DATA ^|[S]© LET K▜# STEP 9[D]= STOP rS[H]ACS % FLASH [L]] PAUSE PRINT RESTORE A BORDER CHR$ READ READ 0IFN VAL OR STEP dA[U] NEW q@3Y PAUSE M GO SUB FORMAT DRAW COPY | RETURN Kv RESTORE <▜ FORMAT b▛ RESTORE B LINE (a PRINT b STOP CLEAR BORDER I FORMAT USR READ P RESTORE t▗JwBIN CLEAR ERASE BEEP TO FN H[[U] INVERSE IF (SCREEN$ ) COPY [S][K]SIN COPY COPY REM LEN hLEN jLEN 2 GO TO IN a/0USR [P]`NOT > CLOSE # DRAW PIUSR CHR$ STOP [E]▗▝l CLS PI ERASE INT LO[U]<>>[D]▘$!^[B] PAUSE -"fZ@PEEK SIN NOT {PISI COPY [A] FOR n[A]SL▘) THEN STEP ▜yF5GIN CHR$ 7V)[H]K DRAW >tp`C7 COPY DEF FN c RETURN 6LPEEK LIST 2P OR ASN COPY [K]▘RND▘TAB CHR$ MERGE STOP TAN hTAN hASN J[A]ZSCREEN$ ERASE PI FORMAT -bCODE CLOSE # LPRINT ▜ CONTINUE [C]J LOAD PAPER REM PAPER COPY P REM PRINT (ASN hTAN h[F]bPI<="PI>9PEEK BRIGHT @EXP e CLS 6s▚O? VERIFY C LOAD ▝R OR 4 RANDOMIZE Xx[T][I].LEN B>CODE RETURN [C]Bac RUN MLEN Au SAVE GO TO CODE [R[L]MUU>=[A] INKEY$[L] GO TO >= COPY REM PRINT INT INVERSE ▙ BORDER [D] MOVE CONTINUE TAN J[F]BASN H4]mW RESTORE Ug FORMAT -DSTR$ ? LINE q]WATTR CLOSE #▛Q READ T[T]U▘ OR [B]U* MERGE RETURN ABS [P] OUT >=u▝ IF OPEN # RESTORE ASN 8!u+ FLASH BORDER FORMAT ;SGN ~TAB : CLOSE #'LN w[I] BORDER DRAW @0[R]Q LET SIN SIN MOVE j9© STEP IF `[I]uURIYUvMW THEN USR ?STR$ @ SAVE x INPUT [Q] RESTORE RANDOMIZE P` SCREEN$ RWWR COPY @/|ATTR PLOT LOAD VERIFY COPY TATTR CLEAR * INVERSE INT CLEAR { MERGE j[F] RETURN IN FOR |O▜Zk▜ FLASH RANDOMIZE IN 6 FLASH ©B ERASE [P]B*IN CHR$ )C[A]K OPEN #NOT [ OUT LLIST |O▙ CAT ▙ LINE > PAUSE @@>h~TAN [H] RESTORE ▜~:SCREEN$ DATA [U]BUUB LET ~LEN [B][P] THEN > COPY STR$ j4POINT TO DATA RANDOMIZE 9QJVR[F]_ ERASE CLEAR v LOAD VABS RAT FOR PEEK [L]SIN ` FORMAT SAVE Php©a: STEP >SQR [H] COPY LOAD NEXT © INVERSE w~}dHVAL$ CLOSE #TAB SGN CLS Z REM DIM k RUN fU LOAD MPI RANDOMIZE COS i FLASH B RUN V[P] SAVE 'g<=<= LOAD CLEAR t'&:Y DIM [U][C]o NEXT YP$ FLASH w LIST 53 CIRCLE [E]lAT TT/[H][F]+[F][F]SCREEN$ w▛[F]▙[F][F] DIM [A][M][U] COPY ▛STR$ LIST + READ LPRINT CODE [P]<di7 SAVE NEW [L]ATTR BIN IF IF o[D]▜ DEF FN ▖ BEEP TAB LET [N]sGy<oz CLEAR MERGE EXP u|SGN LPRINT MOVE INKEY$$M CAT [P]▙2FN 31[C] RETURN PAUSE OR IF POKE CHR$ SCREEN$ COPY DRAW LIST @' SAVE ? RESTORE h<>73 DRAW ^} REM ▗▟L[K][K]SCREEN$ IN RUN FLASH s COPY w CLS Jw CLS RETURN INVERSE COPY [D] INVERSE 7SIN PEEK [M]i_[F][J][B]<= TO ?[C]}# DIM ~FN CLS |C RESTORE [M]U[P]<▙RND# CAT [F]Q LLIST STOP 3: LIST D[I]GQ LIST NEXT CAT v©CODE DATA edAPI[O]W THEN DRAW GD3 INPUT [P]BIN $[G]M RANDOMIZE DIM / LLIST #LEN j RETURN lW READ STOP POINT BIN BRIGHT INKEY$ BORDER ~ FLASH LLIST [[E][Q] OPEN #k>R[C]SIN SIN YJ^WVcBIN LUSR ▙e CLS 9▜ OR T "▗+ PRINT PRINT *A MOVE |3[T][S]G MOVE LIST : DEF FN FN @ REM LINE CONTINUE CHR$ VAL SAVE AXEe[M]uhUSR 3[R]:[S]8>=[F]bB*[A]bVAL SAVE `g FORMAT USR ©▚`@VlPOINT POINT VFN LPRINT ▘COS [T]AT : PRINT niABS ▖ TO DRAW IN VERIFY CLS PIoLEN LET ?<=PZ*INT %B[N]GBQ IF [JINKEY$TAB S/USR g LET a DEF FN WUET[B] REM $ BEEP DRAW DRAW ▞[A]$S[D]2Q▞? LN s(CODE SCREEN$ R[M]POINT -k ERASE TAN 1n= AND [P]"0Mf MERGE LINE SIN x(FxQ LOAD ]4H$e( STEP g VERIFY B[U]B" TO CLEAR <>[A]Y"T2TAN rCODE CLS ▞gp TO SAVE [E]© BEEP 4/▝YEuu[O]] CONTINUE [G]IN l DATA CLS [F] PAUSE DEF FN [E]©}3, CLEAR ©NOT COS POKE I SAVE *IN 7[M] MERGE t IF s(:*▗[C]8 [J]H#BE[X[L]4`SCREEN$ ▗M NEXT *? RESTORE O; STEP CLOSE # STOP IF [S] RESTORE LPRINT ©KNOT [T]e LET SCREEN$ >=XACS PEEK PLEN ~ASN AT ▘ RESTORE [B][e LET zG@`SIN "TAN VAL FOR CAT ▚COS m OR D OPEN #SI▘▞ RUN rE[O]F INPUT ▗B PAPER 3 OR FN STR$ <U[O]Tk[T] NEW &[P]BIN 8 FOR DRAW ) SAVE NEXT PRINT [N]eUSR FN I LPRINT [F]ATN pH NEXT +SCREEN$ [L]<> LINE IN CHR$ W READ PRINT [S][T] CAT PLOT [J]C DATA [B] BEEP IF A0[U][U]]M▞T%Lb© DEF FN PLOT i GO SUB PLOT CODE ATN NOT ▖#.[N]/ RANDOMIZE wg[P]STR$ Z] STEP . BEEP INPUT oQ©ATTR SAVE +A LIST J CLS A&gHX PAPER TO CLEAR [P] RETURN BIN i OVER DEF FN STR$ O INK ? GO SUB PEEK 5 CLEAR RETURN SGN k[E]WBIN ©4 TO READ FLASH [O]ABS COPY k PRINT ASN ▗▚fE BRIGHT IN B>=| STOP [U] FOR MOVE 1< DRAW }? CONTINUE SGN VAL$ IN RESTORE ATTR +FN CODE [T] RETURN STOP 3 POKE Q[F]DDAL*[G]4CHR$ S STEP INPUT c NEW M▘>= READ ERASE LEN u-[J] BRIGHT OUT 3 OVER CLEAR 6!=[F] PAUSE [T] STOP M>` PLOT TO SIN ABS <▖t[M]u DATA [O]F`pcCHR$ [ CLEAR ©4 CLS LINE COPY [J] INK RESTORE BIN ▖8<= PAPER H[D] BEEP = BEEP ▗ CLOSE #<=M'`▙ GO SUB PIN /OCODE <▚INKEY$|▖RSTR$ LIST (miVAL$ LET ZP#=▟[Q]3 PAPER 3L[S]P4PEEK USR CLOSE #e<>ls CLOSE #▙ LOAD BRIGHT b{<6l+qPEEK ▘ CLEAR [D]▞ OPEN # INPUT C OVER READ !4 CLS INKEY$VAL$ zh VERIFY _ RANDOMIZE RANDOMIZE LPRINT USR x LIST LET RESTORE ▙USR (SCHR$ P▜9[S]s[A]& ▟(C@[C]BIN A[Q]I(BA FORMAT STOP $▟▚ LIST /[I] ^[R]c▘a▘5T#[E]'▖▘<▘h[I][Q]^[K]▞[Q][O][K] Y[O][K][A] Z LPRINT I[T][Q]Z% J[C][Q]R▞[C][A][Q][J] VERIFY LINE [Q][C]`[N] MERGE F[R] INVERSE b"▗[S] CAT LIST DATA LLIST * CONTINUE CONTINUE ▝`Et`t` COPY RANDOMIZE |VAL$ vSIN b[O]© PRINT zASN ZRNDZRNDYA▜GFt[P]<=D▖ DATA H CLOSE # CLEAR <> MERGE REM LINE R[E]R[E]CODE ATTR VPOINT VPOINT VPOINT WINKEY$O[P];ACS '[S]= COPY DRAW CODE tATTR T LOAD [M] PRINT ▘uBBSCREEN$ © GO SUB aHJ▞[F][D]PI^<ru OUT [M][C] MOVE ERASE INK zPOINT RPOINT RPOINT RCODE DATA ATTR TATTR TATTR TATTR MERGE * MERGE * MERGE * MERGE * PRINT J[F]44Fv OR [E]BTT%!)A*R[E][F]]RTAB RTAB RTAB RCODE >ATTR TATTR TATTR TATTR RUN *U*U*U*_-<> CIRCLE COS [F]TAN ▟NG# MOVE STOP qP0 LINE DUPI(RND*ABS ▛CL LINE i LET RETURN [O] SAVE eJRNDJRNDJRNDZABS RTAB RTAB RTAB RCODE TATTR TATTR TATTR TFN [F][M][P] DEF FN SIN VAL USR FOR [F] REM [F]j[N]n[P] IF TAB ZRNDZRNDZ RESTORE p$JTRVAL$ POINT TFN TFN T(SCREEN$ USCREEN$ USCREEN$ USCREEN$ U REM [F]*[F]*[F]*[F] LOAD ▜ LIST ~1SIN MOVE CHR$ STR$ 0 NEXT INKEY$P(J ERASE FN VAL RNDAPb*▗)PH[Q]▝X TO l*[E]PEEK STR$ COPY OUT DATA DATA READ 6TAB ZTAB VTAB ZTAB ^POINT VPOINT VPOINT VPOINT UUSR NOT ATTR [F]▜[N][J][H]▙ STEP THEN <>IN ( RESTORE PEEK }VRNDVPIVTAB W[Q]R▗[E]FN INT RNDZRNDZRNDZRND^EXP ^RND^EXP ^RND_ LPRINT ?STR$ RETURN PLOT <>1H[E] FOR E,(LEN P▘ BORDER RANDOMIZE [D] GO SUB ' THEN Q▚©[E]KUIN SIN ? BEEP _J*[G]ATN S READ DRAW # LLIST NOT FLASH VPOINT RPOINT RPOINT RCODE TATTR TATTR TATTR TATTR A[P] REM SGN /TAB ^EXP RIN /> STEP AND <oNOT BEEP =K-©VAL$ /:JCHR$ DEF FN >P[F]EPOINT _TATTR TATTR TSCREEN$ T+ MERGE + BEEP *U*U*G▙O@ LPRINT DRAW R DEF FN ATN ME< PRINT bI>=I RETURN p_WCODE 1v LPRINT DATA z}c[D] CAT 8ABS CAT v@#3co DIM NEXT ; STEP OVER OUT ▞ LET CLS ]r CAT LET PAUSE RNDRRNDRRNDRRND^POINT RPOINT R[R]R[R]@IJ▘P CLOSE #RND FOR ©SCREEN$ USCREEN$ COPY ▙sCOS [M] TO ▗z COPY b PRINT IN BIN PI POKE Kqw@|?STR$ h0 00USR NOT [T]SCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ TIN CHR$ [N] NEW LOAD o<= OR CLEAR ]r CAT NEXT IF PI▛``I&[A] ERASE f THEN AND COPY y LIST >=9v REM [T]j^I INK RANDOMIZE 6INT STR$ IN g<= OR POKE EXP SQR >2RNDRRNDRRNDRRNDX?[I]@r GO SUB [L]SQR s<= CLS 4 COPY DRAW 3 DATA % RANDOMIZE IN INPUT } VERIFY STOP LIST _ CIRCLE OUT RBLPOINT k DRAW >O[L][J](ee[G]wn} INVERSE [P] RESTORE RNDJRNDJRNDJRNDK DRAW ASN VERIFY CLS LIST [G]H[K] MOVE THEN K▝▜ MERGE ^ TO POKE 3INKEY$[I]& BEEP GO TO RANDOMIZE 4VAL$ S[Q]CHR$ STR$ SAVE PLOT m CLEAR /CODE HJ OR RRND/PI<= SAVE @@ LPRINT DRAW eJRNDJRNDJ[M]P,@POINT P(XABS CAT ▟ DATA |22FN +IN ~&▛[O] CLEAR OUT XUSR a<=4NOT INKEY$QPEEK A`[M]f& STEP ~>fs{ STOP NEXT COPY ; BORDER [O]| DRAW RANDOMIZE R[C]!QVAL$ POINT RPOINT RPOINT RPOINT R RANDOMIZE COPY DRAW Y VERIFY FOR E-SCREEN$ GO TO p9U[U]a THEN SGN JCHR$ LPRINT BEEP /Y CLOSE # NEW '[I] LPRINT ` STOP POINT ER[H] OPEN # READ DRAW LIST ~/[Q] g SAVE CAT Jp COPY + BRIGHT wINT FINKEY$IN i AND POKE |4. INK BEEP SAVE INPUT Z{[H] CAT ▜PIASN -,ATTR CLS 7INT [P]ATN i BEEP ][L] LIST K*B[C]POINT {A▝▜FGR RANDOMIZE COPY DRAW Y VERIFY FOR E-[U]t`W]*>[P]" RANDOMIZE LET ▛? RESTORE SGN IN USR [G] FLASH jk FLASH TAN OR NEW PPEEK *[E]U)}>?CHR$ COPY STOP IF BEEP / CLOSE #NOT OPEN #▘**VAL$ SAVE [P]|©;6KcINKEY$H[E]!ACS AND T▚MCODE 6 NEW BORDER 7 GO SUB MERGE ` MERGE J[P]RND[R][K]s COPY >;<© LIST [F]CODE [H] STEP J DIM u LOAD "M STEP p©▚O[U][F]>5[CODE COPY CLEAR >LN INKEY$ SAVE j LOAD xAT _(PEEK W] NEXT RETURN f CLS M RETURN READ VAL$ FLASH Q COPY [P][E] DRAW ~?BIN Y[E FOR VERIFY [R]@= CIRCLE SQR 9TAN +POINT TO j LET 1PQ[S]h NEW CLS PIdG FOR + DRAW uS DRAW WY IF AT LIST cNPOINT f?© MERGE CIRCLE K: INVERSE 1[C] BRIGHT SAVE Ry2T©0NOT ` REM g LIST [S]9 LINE Q<>▞ LET TRND[C]SCREEN$ 3 CLEAR 'A5[N]▘2[R] GO SUB TO -O[H]©▗ BEEP jh NEW WTty[M] POKE DRAW h~PEEK H©▜>V[M]W LINE _ATN BRIGHT READ ATTR INT READ w▞' OPEN #8▛+ RANDOMIZE [P] STOP SGN COPY K? AND © NEW COPY CONTINUE -l"RR" REM PAPER [H]NTAB s!.jCHR$ SGN FOR [K]ATTR y INK VAL$ [N]©[G]RRND,RND)H00 3[T]t▗#MVAL @r RANDOMIZE OPEN # FLASH [F])EQUBT[Q] CAT NOT GO SUB RETURN RIN ▗H[C](W[S]A[P] INPUT LPRINT BIN STR$ PAPER CLEAR |!IP CLOSE #IN UATTR U▘[I]}ATTR + PAUSE [H]▖<>=$o&[M][N]aUSR ba [N]INT ©SQR ?STR$ CAT BEEP FN COPY ABS SQR k BEEP [O] BRIGHT FLASH [E], OPEN #v VERIFY [K]} LPRINT [K] SAVE PAPER ATTR PRINT PLOT RETURN FN [B]??Y RETURN PRND[A]FN ![O]SGN READ BORDER CONTINUE NEXT DEF FN i RETURN [I]6[T]1[F]V*T*TVAL$ T*NOT [T] DRAW WA▝' SAVE wEXP LEN /K©? READ [G]Q~wIN LET SIN [H]yJ PAPER V<>{HVV©▖1 GO TO DFN +<= FLASH TAN FLASH NEXT © DEF FN NEXT TO //Jj/N BEEP REM CHR$ [P]FN STR$ T j▘SCREEN$ RETURN }IN CHR$ v© CIRCLE VAL$ P LLIST rSQR REXP LN /3GSGN ERASE uP READ MATN ~INT 0NOT SCREEN$ FN RTAB IF ABS RTAB Z FORMAT STOP ? FORMAT |8[N]$▜ RANDOMIZE H SAVE l▝RATTR WATTR RUN IF STR$ ( CONTINUE NOT [U] READ [T][Q][E]) INPUT "[[D] CAT NEXT g>CHR$ AT VERIFY [F]ATTR BIN 6u LOAD LINE +JR^r BORDER SAVE H RETURN _ LOAD VERIFY AT [K]INKEY$ CIRCLE [I]POINT PPOINT RPOINT RCODE p FOR PATTR RPOINT PFN 7'[I]RNDCT LOAD R LOAD VERIFY TAB RTAB R▘|ATN IF ©[I] DEF FN ATTR :@ OR MERGE POKE FOR FN BIN NOT ! MOVE Pt©[G]RND▟ PAUSE RANDOMIZE ▜ READ RANDOMIZE VAL 3 DRAW w▝k PAUSE [E]ABS CODE LIST RNDEJQJRBIN rj▝ FLASH REM [R](RVu)J)J THEN COPY [P] DATA IN [Q]{[N] DIM DEF FN [T]_ LET $Z?>=T RETURN 3 POKE @:%_ GO SUB ZZRNDXAT >|> LOAD NEXT AND a▚ LINE [F]h[B]bJ[F]`FN 0 FOR FN 3[B] COPY COPY DSGN SGN 1 CLS COPY h▝)KL SAVE SQR CAT ▜ SAVE [J] LLIST ABS [K]SGN 1 IF SGN ©STR$ x COPY INK [T][F] BEEP NOT CLEAR j[R]CODE 6INKEY$ABS BRIGHT LPRINT RNDSTR$ MERGE D`00USR ▝-j PRINT FOR RUN JASN JASN T READ STOP 98 CLS ~FN FOR ▙VAL NOT >u▝u MOVE ▜]aPI9©l INK SIN AB[B] NEXT FN P/^kfE"@P[U]©CHR$ DRAW y▙PI[T]IN p THEN SAVE T9R PAPER DRAW CLOSE #ACS 6FN F:FN =[D] RUN &T?y )K▛ SAVE l DRAW _~V©~z©>=3O[P] LET [L]Ka_▞B▜ CLEAR [P]M[P] LIST .JkAT WGD▖© STOP BIN ABS [A]aoYPOINT DIN TO CAT < GO TO PRINT zASN K THEN [A]q FORMAT y' INPUT NSCREEN$ ©STR$ ;tTAN COPY LEN CAT CLS H▖[C]BIN <>S PRINT DRAW VAL$ [T] DIM VAL SCREEN$ ▝c^▞D#PEEK F DEF FN [R]K[H]NOT OPEN #CODE LET e LLIST CLEAR COPY ,O#: COPY D% CAT IN DRAW ▖ RANDOMIZE z RUN n OVER INVERSE OR /^©CHR$ [R]SCREEN$ [R]$b;>=[N]QINT DIM OUT RESTORE COPY FN NEW 0INT [R](R>z© PAPER [R]ATN OVER GO TO DATA [B] CAT PAPER ' INPUT LFN =[L]e!b[O]©>=USR RND1c FORMAT B▞H[R]A4[Q] STEP (3P▚▘!(@@▝1▝`C[I]CHR$ ▙<#STR$ LIST `4!OC@▘ BORDER [Q]▙▟f*bh"h"h"h"h"h"▘ NEW ▖"h"&▖"h"▜fV▝fF`▝"`▗f▝( VERIFY bx▘pf``▚hbxB▘hb'p▗v▝"h▝ g REM 8 DIM g INVERSE ,RNOT LIST INT CONTINUE 3[E]▛8▖[F] MERGE POINT MOVE VAL a©CODE >b LOAD LET Z APOINT Q<= SAVE |t^|?n COPY [K] Xa[O]©7USR SGN CODE ▜ FLASH #[S][A]."COS DRAW [H] DRAW SQR PEEK LOAD ![A]FN + IF ,$ RESTORE - BRIGHT IN /Pb*;)a<= NEW [N][I]/ PLOT g▘USR [B]$B$? LINE CLEAR [K] PRINT LLIST CODE i. CONTINUE [Q]Z[A][S]7Jv[T] REM [C] PAUSE ©[B] LIST O FOR + DRAW [R]"H[M][P] DATA ERASE POKE /SGN ▜ RANDOMIZE Bn[N] DIM POKE eTAB Z[M]%BBR▙ CAT > RESTORE NEXT LPRINT =[J]{/FN JR MERGE AT RETURN COPY F^u NEXT i
62264@ CAT PAUSE y80/+ LLIST f>] ▟~ LET LIST : INK TAB LINE FORMAT RND-b CAT PAUSE ~[O][B] DATA 5IASN /[M]&/ CONTINUE COPY VAL$ :N REM [S]hAT ^PEEK PEEK { OUT B DRAW CLEAR /▜; LET PAPER SIN ASN IF COPY NEXT <=# SAVE BORDER ? COPY LIST LIST [J]NOT LOAD COPY COPY >STR$ [N] STOP NEXT CLEAR ~sSQR [M]▙|} COPY CLS BORDER PAUSE m RETURN CONTINUE QV©[H]_CODE u. CLOSE # VERIFY '-)KtRND9^[L][F] P▗▜▖|mQPI NEW NEXT CLEAR [P]O BEEP IF RUN ▞▛ DRAW [F]▞EXP [R]EXP *5 CODE LIST s DIM J LLIST PLOT :3[Q]RND.,@ AND [E]▗© LOAD ▘© GO TO ASN COPY [J] FORMAT COPY ATN ggo_[L],RND PAPER [G] PRINT GO SUB ▛ SAVE W INVERSE OUT LLIST #INT !?TAB GO SUB CONTINUE [T]_ BRIGHT > BORDER ▚[E]▚VAL$ COPY DRAW [H] LPRINT ©>=?STR$ IN DEF FN ? BEEP [O] RESTORE zPOINT READ W▘!&]▚f[Q])J MOVE J5RNDkf©VAL [B] COPY U RANDOMIZE SIN ▜ READ 3VAL$ o SAVE ACS READ CLEAR RUN LATTR VPOINT VPOINT VPOINT UJ MOVE ▝>[D][P]vi~9 LIST INVERSE TAN !JBIN POINT hE[O]| RETURN USR CLEAR `oACS [U]POINT 3 ,.+INKEY$RND OR {wM© TO IN CHR$ {n FORMAT [Q][Q]▚ COPY e SAVE " RETURN DRAW T OUT u>LN [P]] SAVE ERASE i<> CONTINUE ,INKEY$FN ? VERIFY ▜ACS NOT M DEF FN AND bci GO SUB CHR$ i[T] IF 5 LPRINT LLIST y PLOT IN R[E]R[E]PIATTR @ 0 0NOT [T]_ RESTORE ▝@ RUN d ERASE >sV}!/7! BEEP IF TAN ) OR "FN J<=▗| LOAD OUT DRAW LPRINT 1 IF [M] NEW IN OUT PAUSE ACS NEW , CLEAR RETURN c CLEAR DRAW RANDOMIZE CIN [N]NINKEY$[D] BRIGHT USR u RESTORE ▞AT /TEna RETURN STEP RETURN ? PAUSE L OVER EXP INK STEP STEP <=W^R CIRCLE COPY LIST LOAD FORMAT >l MOVE ? COPY RANDOMIZE O LET dy▜? IF DRAW [D]{ CLS READ 'CHR$ RANDOMIZE [C]_[P]~[H]|/ LIST ; LINE vINT [P] OUT SAVE DEF FN © LET IF DRAW SAVE <>c▖4 OPEN # LPRINT H CIRCLE ▚ RETURN k) CONTINUE BEEP CLS ? DATA VAL$ LIST STR$ LET EXP THEN BORDER UATTR CLOSE #ATTR TATTR USCREEN$ &▙[A]PI DRAW CLS ?[F]Z PAUSE [U]VAL$ INT > MERGE @ GO TO OUT /r STEP %ACS THEN DIM SQR SQR ; CLS IF REM THEN [L]VAL AT LINE s▛[G]PEEK ©CHR$ LOAD ASN INK %yDAT THEN STOP i/ SAVE _[F]a[F]a▘▚ CONTINUE [K]IVAL$ [D]^ INK REM READ INVERSE <> PAPER [F] RETURN 7 IF Vu DATA 'b CAT EXP INT [K] POKE DRAW ]EXP [B] AND SGN o THEN INPUT nO LIST TAB LIST %QJR[C][F]@[U])TR[E]INKEY$zE BEEP DRAW ;PEEK XE FLASH SAVE ]p SAVE Q<>[P] LET OUT [D]u4POINT >?STR$ NEW DATA [R]VR CIRCLE FLASH y▞y▚LN cy+ LINE CODE +R[N][D][P] CONTINUE DEF FN ©▚q[B]_ NEXT VG'$ BORDER RANDOMIZE [N]ABS }nn GO SUB STEP ]▞ NEXT AT PAPER B1' DIM OVER NASN :8SGN AND ATTR [D]ATTR `TACS z|0)JURND(< AND j RUN GO SUB |KSIN [E]SQR ;p) FORMAT (+o PAUSE ACS j DATA [E][H] CAT BRIGHT ▙ STEP e OPEN # INPUT CODE ▟ LEN 8IN [N]>CHR$ DRAW n PAUSE PEEK > BEEP <=BIN BEEP _[M][P] LLIST a. IF SAVE [L] OUT STOP SQR OUT ▛> FOR |/TAN [B] CAT IN MERGE LET ~zkzPI OR COPY ▚ACS q BEEP nW[P]2i8 FLASH F; PAPER INK DIM DIM LIST SAVE ▝d RETURN A RETURN ATTR ▛y BORDER IF EXP }SCREEN$ [R] RETURN &SCREEN$ P▛ READ ~dAT FLASH STOP CONTINUE STR$ [K]SIN PAUSE ak RETURN IF sja3 RETURN WPI IF RANDOMIZE STOP ▖*? LOAD INVERSE CODE ▜+ CLEAR RANDOMIZE COPY ▟@ REM : RUN REM 4[C]kCHR$ [R]HlaSCREEN$ PI CLEAR CODE LIST /▘P>=)(![M]INT Z)AT [M])Y RUN MyL REM RESTORE k▝8rATN CODE PLOT Bj[R]SGN BIN IF k LOAD RANDOMIZE TAB ACS CONTINUE I LIST ▗▞CODE SAVE y LIST LINE IN BIN HLN _ STOP FOR Kn? DATA _ GO SUB OVER GO SUB VERIFY LOAD WATTR BEEP LOAD OUT SCREEN$ USCREEN$ U▖A MOVE MOVE BEEP CHR$ ▟STR$ DRAW B*[F] RESTORE ▜ OUT LIST ? THEN COPY T) CLEAR CIRCLE u RETURN ▗ COPY A BEEP FI RUN CLEAR ATN IF ]<= RESTORE PEEK ~INKEY$] SAVE SQR LPRINT ▖[T] DRAW ?BIN SGN @[H][A] READ DRAW L DATA POKE cQ CIRCLE W[T] SAVE 3 BRIGHT AT <=U*[Q] GO SUB ▛q▚Z+ GO SUB RETURN X"INT MOVE MOVE ▜FDp4 PLOT [O][N]zx DRAW OVER ©[B]: GO SUB LLIST * MERGE * INVERSE ©IN BIN BORDER [K]0 COPY RETURN RETURN 3VAL$ DRND[A][A]▛ DRAW PINKe3ATN CAT SAVE 3 MOVE RNDTAN _}.ABS :[M]*` LIST REM STEP 8 COPY ▝~ RUN ▜▝T[T] FORMAT ▛D[R]TBP5_ NEW VAL CONTINUE 0 ~ NEW RESTORE RANDOMIZE FLASH [F]? STEP |AT :NOT SGN OR PLOT DATA SGN [G][S][D]$| LOAD S/ PAUSE ASN OUT STOP SGN [D]M▙B[G]B[E]#[R]TAN O RANDOMIZE VAL$ D` ©>='ATN 9)5oIN CODE YRNDACS TO *SQR 819POINT ▝C5IN GO TO ▜ GO SUB CODE USR ! USR CLOSE #▘ BRIGHT ▖PI{[E][M][R]@FN ?FQ▜8 CLEAR CAT <=~,J OR CIRCLE CLS CLEAR ! NEW PLOT ©VAL 0j[G]T▞[L] STOP PEEK ^ POKE COPY ] REM th PRINT jw LOAD OUT FLASH [L] OR `a RETURN RETURN BEEP SAVE ?m] INVERSE [F]VAL$ [H]eR DEF FN LINE `u RETURN ,[Q] GO TO ATTR NOT r[E] CLEAR THEN POKE ©SIN NEXT ERASE CLEAR USR `©E VERIFY POKE bPg SAVE [H] DRAW ek PRINT REM PRINT JASN REM CONTINUE READ [G] CAT LIST LLIST f} NEW [ PAUSE EXP ?[P]_ BEEP SAVE ? NEW IN STR$ STEP MMSO▞ LIST CONTINUE )TPOINT TAPEEK _ CONTINUE : CONTINUE NOT 7▝@▘ THEN LIST DIM MERGE ©ASN ATN <=<=[ FLASH NOT NEW PLOT [L]Kz▜ SAVE [P] FOR ACS INKEY$LN `[E]u PAUSE FOR FLASH d=LN COS QK©V JU[J]K PRINT FOR ASN JASN J[R]@INT 0[F] MOVE [E]©▜ IF l[I] DRAW yj4 ASN [I] GO SUB H▚DG POKE NEXT LPRINT ©[I] COPY OUT _ IF PEEK 6 DIM CLOSE #q▚ OUT {s[ IF ▝)▚} SAVE @FN [C][Q]▛D BEEP wzhTAN PLOT BEEP [D][F] COPY THEN ACS BEEP [K][A] RANDOMIZE CLEAR GNOT >= POKE +J[C]X|INT ysTAN PnG!*[P] LLIST *STR$ OPEN #ASN [E]@'`[Q]SCREEN$ 9 THEN QNsVAL SAVE LIST x7▟ AND COPY PEEK POKE fIN FORMAT q RETURN +' PAPER PEEK VERIFY gHQ IF MOVE (@( CLOSE #" MOVE ] MOVE RETURN GO SUB NEXT 7STR$ r^ CIRCLE FOR PD[T]LN APTAB RETURN CODE MERGE CONTINUE POINT UATTR CLEAR LOAD UATTR A[S]4[J]ASN ▜!':AT EXP U)_IT>=QfH▜ CAT T CLS T CLS TATTR TATTR MERGE z BEEP REM MERGE *P Tu SAVE POKE GO SUB LOAD READ NEW [U]0:0 STOP FOR STOP INKEY$ NEW CONTINUE FOR [P]SQR FORMAT <>T[U] [F][J]_ COPY ! TO [T] PLOT OUT POKE [M][P]4 REM cSGN DEF FN X+ LINE A8@Q PAUSE ASN VRNDVRNDVRNDVSCREEN$ RANDOMIZE RETURN RUSR zEAJb▚ MOVE "UUY IF (8>= FORMAT RANDOMIZE [F]5j% RANDOMIZE ©NOT [N] RUN <=STR$ POKE CODE RANDOMIZE _ LET d SAVE FOR RETURN [ PAUSE "}t▙Fc▖pF COPY ASN LOAD ▛NOT COPY SIN CIRCLE COPY OR [H]g RETURN O▙IN GO TO DRAW ' INVERSE © DEF FN SAVE RESTORE [D] FLASH SQR [F] FOR DEF FN ] CLOSE #INT ATTR RATTR RATTR PFN PLOT LIST c LET COPY RNDPOINT COPY ~CODE $SQR ; RUN 8 DIM ATN FOR INVERSE [P]y▙ CLEAR s[A][D]s.p DRAW TAB |/,PEEK DEF FN RESTORE S INVERSE AND CAT [P]o▟&u[U] OUT >H?USR :VAL RUN 0p LIST BEEP BRIGHT PRINT _8[M]TAB [Q] NOT LIST {[A]o[A]c Y SAVE INVERSE 9 PRINT LET PEEK >| CLEAR RUN INPUT nD RANDOMIZE BORDER KOCODE [P]LN CODE VERIFY LOAD w[P]▛ OR DRAW mo||&[H]| CLEAR LN DRAW gIN SAVE W>=7 LOAD SIN SAVE CLS a>>>>?7 AND 9▘? PAUSE @ READ COPY AND © LPRINT qd COPY BORDER ? LPRINT STOP {k? DIM LOAD ▟<>: LLIST PEEK YSQR LET NOT DRAW ^PI DEF FN NOT NOT X1[T] RETURN INT IN [P]6O▞<> PAUSE PEEK ;>}U PRINT id' DATA [P][PEEK DRAW x▙n@ LOAD RUN RUN |'>VTO▜ LLIST / PAPER SAVE VERIFY O© DATA LIST `▛<DPCODE FORMAT /P FORMAT /PCODE FORMAT NP DEF FN DIM FORMAT .P DIM LIST $MD▖ LIST $MDP LOAD D LIST )oD LIST )VAL$ D LIST )D LIST iD LIST FiD LIST iD LIST ▞ LIST ▗ LET DATA LIST F LET % LIST % INPUT S LPRINT """[P]S FOR OUT TO DATA SAVE [D]IN LOAD &g OR RETURN [G]c PLOT `USR REM YVq▞$^ CIRCLE [P] BORDER [P] DIM PIPI[P]}fVAL i DIM ERASE COPY [L]5$ATTR )VAL DATA ACS {m> OVER Ge3[A].T[F][A]"Q STEP [Q]LEN S RETURN PLOT ©(xc LET A▝dT5E?STR$ BORDER TAB ~ DRAW |OVAL$ |C5SIN | NEXT _ LLIST [8/ SAVE z[L]T@'ACS | LPRINT 4 LET [S] AND E<=▝ SAVE POINT ATTR <u<=▝#Q▛RCHR$ :G[B][l04lT[Q][G]/[M] STEP RUN Fv; BEEP [U] PAUSE INK _ PRINT DSTR$ 4LEN |IN THEN LINE COPY dz NEXT SIN |={ INVERSE DEF FN sSGN ATN TO LOAD /BIN LOAD CODE VAL$ CODE oyABS =CHR$ zj8O_o?<>[P][H] FOR ABS IN RANDOMIZE PI OUT (n_ OUT ▛©▞▛ GO SUB l[B]▖d AND [H]>CHR$ [I]USR USR I LINE J AND APOINT SIN NOT _ LIST RANDOMIZE ;[J]m3▚>=IN l+ BRIGHT ATN CODE LET AND [I]D AND IN STOP T▘)-"5_ FLASH Y DATA NEW PLOT wk>USR a LIST LIST ySGN CAT ;v|COS DRAW [U]~IN READ 2IN OR yACODE [B]#S[D]TAN CODE &[D] RESTORE SAVE SGN NEXT STOP NEXT <> LET y RETURN <= RANDOMIZE 3 DRAW )/ RESTORE [H] NEXT <> INK [P]|▞>EXP [P] SAVE MrPI:%1▚ CLOSE #/<= CLEAR RANDOMIZE FOR RETURN ASN ▚&ASN / LIST ▟AID TO p)M CIRCLE GO SUB ]A LOAD & PRINT bSQR ATTR INT [F]B)[U]▟sq5VCODE ▜ OPEN # CONTINUE DATA w;INT @[U]▖04JATTR CAT LET _ NEW I SAVE b COPY STR$ ?[H] LIST OR DATA ERASE I[U] NEXT PAUSE JIN ?[M] PRINT LOAD LIST PICHR$ DIM /<= OR DIM CAT * RESTORE USR DATA CONTINUE ATTR DRAW OVER OPEN #[Q][P] FLASH [B][N]y CLS nu LPRINT RUN /AT TAB T[T]VINKEY$ REM k FLASH BORDER NOT R2PM(NOT ▖l SAVE NOT AND L BRIGHT [G]s0K(#<=8j▙R INVERSE [C]_ LPRINT |PEEK IN ` READ { LPRINT :o FORMAT NEXT ZPEEK >kO LIST [U] SAVE SAVE ]?? NEXT l? CONTINUE CLOSE #? PRINT _ CLEAR s CLS 7<= RANDOMIZE V| GO TO NOT BRIGHT IF IN <▟ POKE s{ REM K CLEAR G>~NSGN NEXT POINT ©} RETURN TO 8 GO TO t COPY LOAD >7<=IN <>zv[O]u LIST BORDER CAT STR$ OUT ;&66+H<>1[J] FORMAT p▖ NEW LPRINT [C] CLEAR U▛S-22aoRND8BIN DB[A]INT © THEN ▘[B]%E RETURN PIo PRINT RNDRND COPY INKEY$SQR TAN ASN IN OUT OUT OVER [P][A]Q LPRINT LN oCODE NEXT USR >©> INVERSE >STR$ >NOT USR USR 1▙qEd[N][M]ATN N[vNOT ▗ BRIGHT %A5 FORMAT COPY CIRCLE CLOSE #[P] DIM REM ACS U▙SGN NEXT CAT [J]SCREEN$ yy▗AHlCODE `"©<=VAL$ Yb4 INPUT [Q]INKEY$0u1PI BEEP 0a DRAW BORDER PLOT TO q>/BIN SIN INK [ CLS ▘mACS L OVER s GO TO I AND ATTR RNDY INPUT RUN RANDOMIZE RETURN ©?O,C OUT |LaATTR S FLASH [I]?[H] DRAW ▙K@INT BORDER CNOT ERASE MOVE )x[M] TO DEF FN TAN 'iCOS 7<= PRINT < CLEAR THEN c[N] IF JSQR CODE POKE FORMAT BIN E©[S] RESTORE SGN ~_+V*XLEN bSTR$ B? LIST [P]X CONTINUE MOVE CAT OVER | BRIGHT COPY #A^ SAVE © LPRINT [H]M RANDOMIZE 9 FLASH PI{ LIST LN ©} COPY RETURN ATTR PRINT INT ▚[K]J[E]%b[B]PCHR$ INVERSE FN S RETURN W SAVE USR @ RANDOMIZE - RETURN 0z▚VAL POINT MKP[A] LINE SR[F]FUSR LN [M][U] INPUT INT Je) LPRINT < NEXT TAN y LOAD W[O][N] NEW OR ▙[J]ASN COS fJ[B]"[R]( LIST CLS u{g RANDOMIZE =@@>=P PAUSE [A] LLIST CODE NEXT ATN *[R];6 NEXT BIN ▖ RETURN v FOR CLOSE #) BEEP CLEAR JASN k COPY RETURN ASN JABS S VERIFY TAB ZTAB SATTR y.ATN TR BORDER EBE RETURN + PRINT lq6YVAL$ % OUT LLIST Y LIST ©[E]xv STEP [G][K] COPY E<>[U]IDBQI<=_ CONTINUE G STEP [[D] CLEAR w]:TAB Z$ZPI@LN CLOSE #USR 1w6 INK IN qNR AND Z COPY ATTR RND FOR DATA >= FORMAT RUN 5)[W[T][D] RETURN BORDER ]<=F'T▛▛SGN COPY ] MOVE ▝▜A 2IN STR$ Q)$R SAVE PEEK CLEAR CLS RANDOMIZE [D] RESTORE |s READ 'CHR$ DRAW 7 PAPER SAVE SAVE OVER SAVE BORDER <=<=<= RETURN ©[N] NEW X RETURN : LOAD LLIST ]V *H2IN G_ NEW O LIST !L:C DRAW %[E][S]▞g IF LINE Y<SGN Mo>[J]* OR © AND OF@ BEEP G RANDOMIZE NCSj[F]J[F][P]B[U]ATTR m RETURN ~ATN _;/` PRINT 0 IF [I] CLEAR L RETURN [R]>=[F]ABS LN @We CLEAR ▛ COPY ATTR MERGE ATTR QPOINT MOVE DIM INVERSE gNOT RETURN K CLEAR VERIFY /Y|F PLOT Y BEEP RANDOMIZE Q PLOT PEEK ©[O]00`!BASN JASN FOR PRINT t? DEF FN LET BEEP NOT USR GO SUB THEN e NEXT SGN TAB ©FN Tju*PjURM9D PAUSE BIN DW RANDOMIZE © READ =h*/[H] FOR DRAW [E] RETURN A▜_ GO SUB [J]▟ REM THEN [[N] LINE CONTINUE USR NOT CLOSE #jU(@ Pjj0 CLOSE #hB ERASE 1i CONTINUE FOR [T]CODE ▜ PRINT CLS | COPY /SQR /INT DD▟5++K&:.INT a VERIFY RND!TAB tE: CONTINUE SAVE }▚IN )K FLASH [H] CLEAR IF TAB PI ERASE RNDR[S]©VAL$ COPY B ERASE TQ#H▗[R] LINE |USR BIN ~ABS INVERSE > CLEAR j PRINT j CLOSE #(/▗ RUN { DEF FN e[P]%_|[N] SAVE BORDER CAT STEP REM DRAW ^AT EXP /c▛ NEW ASN }| RESTORE [D] NEW rgY^ PRINT CHR$ ▞90. VTAB RPIn CAT RESTORE LPRINT ow SAVE w FOR PRINT j PRINT j PRINT ` RUN INPUT _ PRINT y©[J]BIN READ CAT m POKE z MERGE *[E]Hdr▞E[E] ![T][©P> BRIGHT 2ASN CLS PRINT CLS LOAD ZRNDESTR$ ▝▗ PAUSE FORMAT W THEN :CODE PI_ATTR READ CLEAR (▘22 SAVE COPY IyiBTAB RETURN [F]UETm BORDER [O]mATN [K]CODE POKE MKiACS RESTORE LOAD , NEXT STOP | POKE GO TO PRINT mAT BIN STOP c<?▞>= DRAW 9 RESTORE x COPY kCODE CLEAR [G]<> GO TO e$[D]IN . RETURN O LET / SAVE g4 OPEN # CLEAR @};`aLN >STR$ ▖R COPY ? TO [M]u<>USR ▗▞U NEXT RETURN ~[B]_ACS K LET ABS RETURN OR CLEAR ABS RETURN "oVAL$ [N] SAVE [P] DATA COPY ▘ VERIFY [>} BORDER ][P] LPRINT CAT LET y NEXT [T]_ LIST pUSR `[B]aCOS NOT RUN PRINT FOR 3IATTR READ [TAB [R]B[F]STR$ ~S OPEN # CAT N PAUSE SGN RESTORE SGN LIST WATTR / GO SUB COPY }[x DATA u LOAD } CLS BORDER OUT > RUN VERIFY . BEEP k▚v©▟ SAVE "[D]NNB[F]j| COPY OIN [D][P]© LPRINT DRAW s INPUT x▜ FLASH _▙t LOAD 'y?BIN COPY OUT [E] LOAD IN CHR$ [N] COPY 3' NEXT s%[L]USR OVER LATN )H[E][D] DRAW ▜]t3j FLASH ASN SQR [P] READ ATN RANDOMIZE OPEN #ATTR RETURN OUT ▝ CAT OVER NEW )m THEN IN PAPER © IF COPY INT ▚IN TCOS j| THEN RETURN THEN k OUT z9.©| DEF FN COPY ▞ LET RETURN !w CLS DRAW oSQR PRINT '©STR$ RUN REM LN &cl OVER POINT 6 RANDOMIZE OPEN #} OUT READ O PAUSE i PRINT OUT LIST <=[P]7[N]y LLIST lFN pr BEEP [Q]USR [P] LET %CODE ~ DIM IF LLIST LIST (!-e[ RETURN FLASH [Q]USR BIN OUT LET OUT SAVE VAL$ Y OUT PLOT HT DEF FN ATN FCODE [P]▟_o CAT | CAT EXP ? LINE RANDOMIZE ~KIN TO DATA IF LOAD AND OPEN # READ CAT LIST cPEEK BORDER BRIGHT SAVE SAVE SAVE SAVE SAVE DRAW ) RETURN <= SAVE MOVE CAT RND PRINT SAVE @ 0> LET FTAB BEEP CODE VTAB R CLEAR A▜ IF vI[D] COPY }IN ] RETURN };/a▚©[P] MERGE * MERGE j BEEP o OUT ? POKE 1b PRINT j LET FOR LIST DATA _ READ LN ▝ CLS COPY [[D]LEN LET _? LLIST z RANDOMIZE SAVE POINT RETURN -[P] LPRINT COPY THEN 5CODE OUT LIST RANDOMIZE LIST [P]K RETURN NOT # OUT LLIST _©. COPY ?y MOVE [M][P]IN SAVE t`a▝VIN [P]TQp©[N]▜%ATN [H] RANDOMIZE SPEEK [F] MOVE [E]Z▙W[E]ABS X PAPER [E][S] COPY j VERIFY ▙O BORDER X@G[Q][VAL VAL DRAW |[P][P] PAUSE [F] NEXT LOAD G SAVE LPRINT DRAW ▖ BORDER q DEF FN READ [M]BIN # DRAW ▗"xB▝v((▗"xR▝hB'▚"hB'▜(w▖8&b'▖8▝"x▝x$x▘x#wH7HGHCHR$ @H[A]▘HCHR$ HSIN ▗D(▗▗H(T▖(▗($*`NOT CAT |LEN ▗K[Q] OPEN #SQR hTAB TAB (m)POINT U"▘RNDB"""© REM SAVE % RUN r1e▖ STEP IF [I]ASN /k PRINT [K] REM [F]j[F]j[F]jASN o SAVE ` [C][F]IN W[I]i13lN? LPRINT [P][U]▗ SAVE RUN TO }? CAT PI NEXT >= NEXT ▝ QP[S]*JO CLEAR _ COPY [F] LET LET RETURN OwkwkwkwjXRTAB RTAB RABS RUN USR [P][I] NEW 1[M]@}5G]SGN COPY RANDOMIZE INVERSE $▗I AND 0s3`Svd PAUSE LOAD [S] LLIST [H]B[P] MERGE DATA / OVER $*$U©▙ PAUSE [F] PAUSE %D[E]▞ COPY ▛ READ LPRINT *$[B]PIPEEK | POKE < COPY STEP PLOT QB▙? MOVE [H] COPY SGN DEF FN 1 DRAW ^| VERIFY JPOINT OUT 8M LOAD [H]<>t IF ▗[F]▙[R]X STOP 2P`R CLOSE #}-+ DRAW E=8 SAVE BORDER PAPER L THEN G LIST POKE 2 LIST PAPER [R]~V[S]©[M] COPY OR OUT POINT PRINT BIN STOP INK GO TO ERASE /NOT NEW q RETURN S CONTINUE z CLEAR q IF RANDOMIZE ©▖P[E]q BEEP PEEK SQR ;▚ INK COPY "O LIST SIN AND TAN RANDOMIZE m[I]eLh8C STEP SGN 1▛" GO TO COPY ▚ASN vINKEY$t MERGE ``ONO PLOT [K]$?hk RETURN [ BEEP PI CLS O[P] PAUSE [B] SAVE RUN >=CODE ;'<= TO / AND _|? LPRINT IN kTAB OVER [Q] REM STOP [U].▙" COPY DRAW STOP OPEN #m FORMAT LOAD ▛ LINE MOVE lSIN Z MERGE [F] FORMAT ;F[S][K]STR$ DCODE POKE @ MOVE M^TAB ~ CLEAR /-FN {i RUN DATA X`a▘>USR ` 3 DRAW ![F]""" DRAW AND gRND OVER :iAT ,AT FOR jn GO TO lNOT CONTINUE e▘0EC GO SUB _ NEW POINT LIST SAVE >=Rj CLS d4 FOR >=NOT SGN NEW COPY ▗? DEF FN v POKE TATTR D0 COPY SAVE AW/[F] BEEP BRIGHT ERASE ▖▖? LIST [P]W)' RESTORE LOAD OPEN #_L CLS }#© LOAD REM j[F]j[F]j[F]j00 CONTINUE RFN COS RUN wSCODE ▜di*<>oATN /! BORDER DATA '[P] REM CAT RETURN k PRINT &ElZ[B]J[J]0[B]! STOP ATTR LET RETURN ZSGN DDO CLS @USR ABS 5[F]ASN [G][E][A]RNDD!IN @"TAN RND RETURN POINT VPOINT VPOINT VPOINT WSCREEN$ USCREEN$ USCREEN$ USCREEN$ U5EXP REM BPIS RESTORE CLS SCREEN$ ▛; RETURN HA[N]Wu[U]) STOP ATTR VCODE ~ COPY >@ RANDOMIZE W CLOSE #USR !TPOINT 1E▟? RESTORE PAUSE ? FORMAT ▚FN )[F]'AT CLOSE #AT CLOSE #AT CLOSE #AT CLOSE #[P]&[L] DATA K2 DRAW |$J▞-VPOINT VPOINT VPOINT VATTR USCREEN$ USCREEN$ USCREEN$ USCREEN$ RETURN [H] BORDER BORDER >=3 SAVE f>=8[F]2[A][U]*93 SAVE e] NEXT USR '[E]| GO SUB <=_▚ CAT LET VERIFY GO TO CODE PLOT PEEK SQR *(©COS DRAW [U]FN COPY INKEY$ATTR ? DIM FOR 5+5+5+5:▖AT SCREEN$ REM , INPUT POINT NEXT CAT =0 NEXT <= RETURN CODE ▟VPOINT VPOINT VPOINT W COPY USCREEN$ USCREEN$ USCREEN$ U COPY PEEK VERIFY IN CLEAR n STEP [O]_TAB COPY PRINT &{>= SAVE GO SUB OUT ▙ BEEP DIM T FOR VERIFY FN VIN RPININ m CLS COPY _a RETURN k PAUSE Y IF CAT LET RUN RESTORE )g CLS ? DATA CAT LIST zxASN RETURN Oi GO SUB PLOT VERIFY OUT CLEAR LOAD 5| COPY OPEN #r[P]w OR [U]© FOR .FN [S][S]FN ATTR &PEEK q NEW PEEK NEXT TO + PLOT % INPUT _ OVER 9 COPY BORDER ▙s▚y READ X CLS SAVE `VAL DEF FN < CLS [I]<=p[P] PAPER <{?NOT |IN NOT A[F] RETURN IN OR g[A] OVER CLEAR {<=NOT LINE CODE PI FOR LIST p<▝ATN m:?^ CONTINUE 0 BEEP DEF FN 0} RUN XASN j MERGE ATTR VFN !, LLIST ▞<= NEXT IN 6STR$ PEEK l COPY 3 PAUSE LOAD 0 CAT DRAW SAVE ~} LET LIST IATTR fFN S READ DATA ATTR jqPEEK >USR 0▞▞"J[E]B[A][M]((u5)}r LOAD VERIFY CODE VTAB ^FN C LPRINT LOAD MOVE [U]?IN NEW 9o7 INPUT OUT AND FOR DIM ^ FLASH <= GO TO RESTORE INT /9 SAVE bSCREEN$ INVERSE > PRINT j RUN N[N]LEN B[H] CAT RUN o LIST X[E]NOT T▘[E]RND.'"$©SIN [T]SCREEN$ ) CLOSE #7M DIM POINT [C]6$VAL INKEY$▗.INT CODE <= SAVE ▛>/ SAVE |ATTR CODE BEEP STOP A[R]W RANDOMIZE USR USR CLOSE #`©[T]<▙▘98USR USR [H]t▙▚ECHR$ STEP CLS ASN j[A]@> GO SUB FLASH PI[PIZ RESTORE OVER RANDOMIZE RUN TAB VPOINT v DIM BEEP REM MERGE SCREEN$ T REM ] LINE STEP hNOT VAL$ EXP (NOT 5 LIST ? FLASH [POINT /%' READ <>Y]`▞K FOR K NEXT LET OUT s LLIST RANDOMIZE VW SAVE LET [J] CLS q[P]C DEF FN 3 DATA *[Q][E](TAB n FORMAT [F]C[D] LIST a8?STR$ /W LOAD TO ▞_&| RETURN V▜|ATN a[N]▚aYPSCREEN$ S( LINE m&u FOR MERGE ATTR TATTR TATTR >IN <=SGN REM @ BEEP <><= PRINT COPY z/@INT GO SUB JKTAN O PAUSE OUT p© CLOSE #`▟X PRINT REM TO ▗SIN [C]&[E] CAT BORDER FLASH RESTORE PRINT ©INKEY$©[A]AT U PRINT TAB YH[B]© NEW INPUT [O]▜>DVAL$ ▟[R]▛-XSIN dKINKEY$ CLS a MOVE RND BORDER ;? TO Q▗FN NOT RUN ▗[E]*@}POINT ▜ READ [H] STOP THEN PI RANDOMIZE REM @ COPY RANDOMIZE COPY STR$ _ LPRINT LINE FORMAT /ATN ERASE | OVER [P]▘?>=[Q]/ LET MOVE BEEP BRIGHT CLEAR r DRAW ©SGN GO TO LPRINT VAL [E]tg OPEN #"U▘USCREEN$ T STOP ▗J[F]jj[F]TSCREEN$ Rg[R] CONTINUE E LLIST POINT qqp%COS Tx8-[F]U[E]CODE CLS CIRCLE SAVE COPY 8[O]VAL © OR LOAD SCREEN$ hACS I3j} OVER GO SUB > CLS ERASE DIM USR ▘IN PAPER INKEY$a DEF FN o-EXP -▟RNDt DRAW [M] RANDOMIZE LIST P)@ OR AA MOVE ▝[F]UFh0J#CODE BORDER Mo MERGE [P]l CONTINUE PAUSE [T] DIM ▗T LIST PI[H]9▝▝▜GCHR$ SGN ©[C] CONTINUE 0>[P] NEXT INPUT s[B]EXP ?[O][N]SGN FLASH [F]A LIST COPY qP0CODE 5xY BRIGHT LOAD t[J]>=[S]U 3 CLEAR NEW ;LEN ▙ STEP $ BORDER RUN f{▝n;STR$ ?SGN [D]%[G]<>SIN COPY ▚ DRAW vVAL$ u CAT LET [P] LIST ATN =D[P]; DATA (#[L]h'P[Q]<=G LET COPY ATTR >= COPY USR ▘▟[A]' MERGE [I]Fc1[I]▙y SAVE F"[Q]rRNDY[O]bTAB RRRND a[E]▝ RETURN `RT DRAW >qPEEK /LEN OVER s AND OM GO SUB ABS Z▚=SIN INK BEEP RANDOMIZE IN READ GO TO | DRAW x[P]OTA OUT BC[K]<= LIST 1[E]cI)LN 7ATTR CHR$ LPRINT `bh-H IF POINT INPUT zK GO SUB RETURN ;STR$ 0<= CAT IN ;[O] POKE ASN LEN bp COPY SQR OVER BIN DATA _▝ COPY * POKE BORDER $EXP s RETURN [E] SAVE INPUT DATA aJv STOP IN LET = LIST E[L] LPRINT [A]}|ATTR GO SUB LIST _ STOP STEP LET ▝ INK ' INPUT [Q] FLASH STOP [E] CLEAR JC▛Uo2 INVERSE S RETURN ©/[D] SAVE +▖B6! VERIFY A'[A]%([P] LET AT 9INKEY$l DATA LOAD LLIST N{▞SQR LET }o<=USR > LET ATN !PEEK @ RETURN ?STR$ PIIN } RUN ACS j INK / DIM LET [P]INT <=K OVER LOAD STEP [G]SIN Y8CODE CAT TAB |{ACS q}IN BIN ▖A SAVE :▝P.POINT CAT U|/[E]+ FOR fSIN BRIGHT / SAVE aLN PEEK DIM NOT VAL ▞ LIST INVERSE CLOSE #O▙[E] OUT L DRAW l LOAD PAPER / CLOSE # RESTORE NEXT CLEAR C9-ATN DRAW BORDER RUN bW{a LIST [N] CAT [87n1;,> BORDER j READ AT g▜ FOR _< NEXT BEEP }a OUT LSEXP [M]STR$ :4 LLIST VERIFY POINT ▖& STOP [P]ABS ERASE ATN 9 GO SUB DRAW bZ@a RANDOMIZE SAVE IN FLASH READ [B]<>[F]NOT |©ATN [Q]Ap CAT F^ COPY BORDER GO TO CLS >=`"<= RETURN 0 STEP INPUT 8E(CVAL ▝xg[R]▚X. LINE ERASE THEN MERGE SAVE PRINT n?/ THEN 9 INPUT VAL$ EXP [P]▜ SAVE DEF FN G;H LINE w AND VAL$ G# INVERSE [B] AND ?EXP ATTR t[M]L LIST RESTORE COPY I~+INT OR W DRAW jIN r[jy RETURN [B] LET LET LOAD / AND z' CLOSE #STR$ CAT [P]3[D]STR$ ACS `? READ OUT b STEP USR ©;7 CLS ~5ATN LET RANDOMIZE F[A] [K] A`a[M] DATA ▝<(!▞x[R]B[O]P@ RETURN !D9EXP E9[Q]▞DEXP E9B[U]F$B#CHR$ [M]@[U]CHR$ [M]@[U]CHR$ [L]STR$ @▗CSTR$ @▗K0I#NOT "[E]#CHR$ [U]9A"<*A9A$CHR$ $[E]A;COS $A[U]3[U]C[Q]<A<@[E]SUSR TAN G30LEN Jh[K] LIST SGN Y<= RUN MOVE } PAPER POKE RESTORE 5 LOAD IN CAT ||[R]/w▚ VAL PLOT [A]▘[S]*3[U] GO TO RUN LOAD F TO s DEF FN LET OUT [D]!gIN VAL pSIN AT [E][P]A7 CAT LEN © STEP RUN </▟@ CLEAR DEF FN %▜ STEP | PLOT NOT a LIST SAVE CIRCLE SQR eSQR LN cASN LEN ▖ CAT g NEXT COPY ,INT D© CLOSE #?7 PAPER ATN + CAT ▟ CLS _ATN _ RUN ▛ DRAW 6} CAT PAUSE OPEN # DRAW ON PAUSE "Q8COS POINT OVER (EXP © THEN ' ERASE OVER ru GO SUB SQR 3 THEN LLIST [M] COPY :[M] LPRINT y▟ CAT DEF FN ▘/[P]h RANDOMIZE F)PEEK B CLEAR [USR LOAD PLOT © BORDER READ Dn/W LOAD LPRINT ▞ REM d[P] CAT '!<>$:[M][U]49SCREEN$ SGN NEXT SAVE l COPY FOR GO SUB RETURN ▚ATN INPUT © LINE RESTORE ATTR 94 RETURN ©[Q]AT ▙IN OUT A[G]© RANDOMIZE LET DRAW |nz2qATTR [A]NIN 'CODE BIN COPY INT ▘a▟e/ LPRINT 1 RETURN {!VAL %PEEK BORDER ATN <=wg LET ©= DEF FN aaPOINT q{+COS [M]▜R[H]ABS [A]3[I]i>=[S]qFN A$ REM c RETURN CLS RETURN uUSR POINT P_ DRAW # RETURN ? CLOSE #[N] CLS ▜ OPEN # FOR ©[Q] IF PEEK vuTAN STOP [B] STOP s$d[A][A]H>=[I] IN RESTORE CLEAR [P] SAVE fINT [P] NEW 8 FOR x[G]4 COPY a DEF FN LEN -CODE POKE ~<>= LET FOR LIST RANDOMIZE RETURN H TO <ACS CLS EXP CAT RANDOMIZE DRAW /BIN INK [M]©EXP [D] PAUSE ©PI!SCREEN$ NEW COPY [A]ow LLIST BORDER PLOT ?STR$ PEEK SGN TyEXP RANDOMIZE PRINT RNDASN R[O]VAL$ "AT Y-▘ COPY R©TAB RETURN e COPY READ STOP ? STOP ~ABS ©COS ( IF b(Z COPY ▞ DRAW [B][P] RESTORE CAT ATN Q RETURN ; CAT MERGE [M]yO LET [P]L▞4 IF COPY ;]©:rg DRAW RETURN i3 CLEAR [B]U) COPY x[U]" MERGE PAUSE Y NEXT >=SGN INKEY$ GO SUB t©STR$ ©_ GO TO , COPY ) LET k?Ci GO TO BEEP k BEEP POKE ATN ▙ OUT PAUSE [P] GO SUB > DATA LPRINT = INK " CAT [A]|j OUT BORDER [N]©[K]l COPY [K],>=1[T]SGN STR$ CONTINUE OVER JuN4 ERASE [M]{ INK [L]<>3Y INK _ LIST O LOAD ? CAT SAVE [T][B] COPY < RESTORE © FORMAT 2[F]u BORDER AT SAVE d&? DATA ACS ?▟lW▙IN OR API SAVE POINT @ STOP ▞ RESTORE [L] PRINT INVERSE ) LET U PAUSE GO SUB IF [F] PLOT CODE LEN NEXT geD[Q]'[P]%- CLEAR j COPY FFATTR WJ AND COPY [J]b<> LET LET NEW OPEN #▟VAL$ [O][B] COPY ?▗[S]>=R>=DG[C];i RANDOMIZE A PAPER ' FLASH <>Wf+ DRAW 8~[Q] LPRINT [R][J]Q[F]&[P] PRINT O▘▞~STR$ PLOT [T] BORDER jvjvj| GO SUB EMG<> STEP Ez CLOSE # IF MOVE IF CLOSE #z[U]Y GO TO DEF FN 3@YeNOT PLOT G) MOVE zVAL$ SQR RESTORE h NEXT [K]PEEK OPEN # NEXT ACS SQR r? OVER COPY COPY [B]_,[H]~ CLS ?STR$ [M]SGN [P] CONTINUE COS _ GO SUB PEEK INVERSE © STOP W") LET D[S]| CLS ~RND} CLEAR o BRIGHT CLOSE #~~ CLOSE #V CLOSE #}>[F]X▛QATTR U[T]APEEK [J]^&Q[A] POKE LIST 4▙USR (vRLEN ▗[I]2D9 LET L ERASE Y©<>[P] GO TO COPY [C][P] NEW % NEXT i8 COPY r[Q]RNDCZ▞?VAL NEXT [I]8 RESTORE READ USR ZE([F] RETURN GO SUB RESTORE ASN @p INVERSE Eq LINE |[G] DRAW COPY )( CLEAR } COPY NEXT ERASE PAPER [K] ERASE LIST %J[B]J[E]H5PVt LIST IN o[G]]USR W MOVE ▗!Sv8 FORMAT ;c?▗NOT ( CLOSE #s READ [C]qIN BORDER CAT PLOT ©<>▟PD!▘2R!©▝xs DRAW W? OPEN #[M]]<=( CLS ▟▛BBIN [O] BRIGHT CAT ▝ BEEP BIN NEXT POKE BORDER LPRINT IN P# CIRCLE INT x/[P] SAVE G SAVE O MOVE RUN ?STR$ THEN D SAVE [S]ee`%t[P] CONTINUE CLEAR /[F].(a[P] MOVE [E] INPUT ^[S]C RESTORE RANDOMIZE [H]5FN TAB ?[A]LN 3PEEK wNOT PP$d pNOT OVER _/pW INPUT [F]q>[S] CLEAR ASN :G NEXT RESTORE FORMAT G COPY ▟ACS l FLASH 6 SAVE vr FOR ASN SQR CAT ▘USR "VAL AT s" REM H STOP :b POKE MOVE <> REM VERIFY INT ABS FN CLEAR CLEAR FN TAB AT COPY [T]/EXP | STOP COS [F]>b FOR -5yF LPRINT N▝u0< SAVE [T]N OPEN #: POKE H: PAPER ^[S]C PRINT DATA - LINE ▞Q▖m@G> FORMAT $X GO TO GO TO REM ▘ COPY WRNDWRNDW CAT RUN NEXT CLEAR PLOT COPY _? BORDER PIPIG[P],[A]STR$ <>~RNDIN BEEP INPUT © BORDER yD SAVE CIRCLE {= CIRCLE FLASH t;OAT LEN S READ READ PSQR [N] RETURN OR SQR COPY STEP > AND ? NEW LOAD USR ? INK a LIST CAT PEEK y>>/[D] READ ▞# LET CODE PAUSE IN CIRCLE / SAVE _ CLEAR LN [A]SCREEN$ A© TO [C]a PRINT AiOACS DATA } GO TO THEN ,5 GO TO POKE (@ THEN ~G>=CODE [K]©[Q]?@| BORDER z CONTINUE [K]INT LN + DRAW PAUSE JBCOS /
61567CHR$ 8Y VERIFY COPY %8ASN RETURN RANDOMIZE ? CAT [F] RETURN RANDOMIZE ? LIST SAVE ? DATA RETURN [F] RETURN RANDOMIZE ? NEW RANDOMIZE =/ RETURN - RETURN TarVAL$ ATTR [Q] LINE ▖IN LLIST E2LN [T] GO TO DATA |l TO [S]>A;C DRAW *▙*▖ PLOT v<e* CLS REM PEEK X©CODE LEN PLOT SAVE REM A PLOT + GO SUB RETURN + AND q PAUSE + GO SUB _` POKE [A]~p) PAUSE P LLIST LET @' SAVE 3z RANDOMIZE |AIN USR z▝[E]FN |IN USR SCREEN$ + RESTORE RETURN RANDOMIZE POINT [P]j>/| RANDOMIZE PI^A? LINE ]~PEEK MERGE RETURN @_$ZF POKE CODE PAUSE ▖8([P] LLIST , IF [J]<> NEXT > LOAD CLOSE ## DEF FN + BORDER STOP COS 8C>|?} RANDOMIZE : CAT [F]UW SAVE © DATA ~ RANDOMIZE COPY CLS DATA SAVE LIST RETURN RANDOMIZE =[O]_ ?CHR$ GO TO LIST SAVE RANDOMIZE THEN D SAVE [S]eTAB ▘Gk PRINT ? INVERSE © PRINT EXP MOVE STR$ STR$ (▙(t? OR w>=[J] BEEP SAVE _ LLIST RANDOMIZE [P] LPRINT GO SUB G SAVE _ FORMAT [P] LIST #CODE P LIST IN CHR$ NEXT VAL (,1">_ RESTORE |3ATTR RETURN LINE :SGN LOAD NOT PLOT COS [I]o6ASN ACS ~<= NEXT RETURN [P]yz{ DRAW ) OUT FLASH PRINT OUT VAL$ CLEAR LIST BORDER DEF FN )POINT lINKEY$',5 FOR SGN USR [O]0 STEP w// SAVE REM ` DRAW aPQHX? AND 9SCREEN$ a RETURN >@?<>`>@. COPY o BEEP y[P] BORDER ▝I LET REM RANDOMIZE [D]▞T RETURN u RETURN W READ LOAD DRAW RANDOMIZE INKEY$SIN POINT READ CAT 9 RETURN < LOAD NOT PAUSE RETURN GO SUB NEXT DEF FN }O>=▟Pm RUN [M] OVER 3ABS STEP PAPER <=wNOT DATA G[B]<> PAUSE STEP {j[T]- INPUT SGN d_VAL$ 99VAL$ INPUT BRIGHT ▖ LLIST POKE AT TAB o<[E] STOP RANDOMIZE ▗Q VERIFY G FOR ▙4 CLS ylh#[P]3 LLIST SAVE @ PEEK q POKE LIST [F] SAVE BRIGHT FORMAT CIRCLE ACS wBIN mO[H] THEN LLIST /[K]CHR$ [O]©[D]©[H]<= THEN OUT LPRINT RESTORE NEXT / GO SUB MERGE FLASH <>6 ERASE >-EXP ^[E]© COPY CLEAR [C]POINT P91 CONTINUE XDuY NEW q[H] LINE INT COPY I/ GO SUB OVER |©nFN 9SIN f LOAD ~ OUT 0FN Z DRAW d▘p▝FC5SCREEN$ GO SUB 8 LIST ;[U]n$FN /=< IF ©*[T] DRAW 7 OPEN #SIN RETURN JATTR SCREEN$ CLEAR BRIGHT o LIST REM NOT REM CODE > OUT LPRINT [D] LLIST g&▛w COPY +< CLS COPY NEW u STEP COS u|TAB CLEAR TO PLOT MOVE V POKE CONTINUE xz[Q]B[I]eTAB D LINE TO STOP INT ▖ REM > DIM DRAW RETURN TO CLS G SAVE o NEXT BORDER BRIGHT [C]PEEK [O]k<= REM ^$[E]ATN ▗ CAT PI MERGE RESTORE NEW >>f3 NEXT ap FORMAT dPEEK &d [N]OCATTR BORDER ▝t COPY BORDER F~YZG MERGE MERGE Y RETURN ©>=m© LIST DATA `X^ CONTINUE [Q] RUN <>DZ[B] BORDER SAVE 7 RANDOMIZE U RETURN -▞ INK ▝ACS 5▜[I]} BRIGHT GO SUB C GO TO K[A]a[I]-V-V BEEP [A]|PI©VAL$ NEXT ?NOT _ACS {oACS | COPY LLIST RETURN B*# STOP n[~ FLASH CAT + RANDOMIZE RANDOMIZE r"@CHR$ H$ [T]DL▗5 RANDOMIZE [N]ABS OVER ▗NOT [D]P[D])Bq AND FR%@2T"SCREEN$ v,VAL [L]SQR LET CLOSE #bj[E]_ RESTORE g[F] BORDER PAPER ▚IN RUN INPUT 3 LIST RND▟A[P]TAN <={ RETURN B[P] RESTORE O[H]ACS <= INVERSE COPY |[U] CONTINUE LPRINT LET /y OR _ PAUSE [P]▞3 LET NEW ©[I][S] GO TO |]9[S]OIN ATN ▖VAL$ ?CHR$ SGN LINE CAT Ug CAT =" GO SUB READ DATA q DATA 6BIN CONTINUE IF R RUN IN M~Bl[I][I]^@©cKq OR DIM STEP VAL ▚ASTR$ ▝HsCHR$ ▚<1c▝rB'▗,p OA▗'▝,1[Q] THEN rNOT [K][A]',9[Q]<>rNOT [K][A]',("h[T][G]▗▝[Q]▝[U] LIST ++I LIST THEN /oLEN STR$ LIST ▚i LIST ▚a LIST go MOVE .VAL ▝ INPUT m FOR MOVE N[A]m GO SUB M DIM BIN MOVE ▟[B]N▟[B]N▟[B]N[B] LPRINT d CLEAR LINE BA LOAD dcFN BEEP SAVE ERASE FLASH THEN >g LET (qq▝"[M][P]rIN ASN <> MERGE 8 CLS ~?BIN }IN LLIST [H]8 COPY PLOT %,J$mW SAVE LIST LPRINT LPRINT [P] STOP DEF FN N[AT RETURN [T] DIM INK DATA ©[Q]©/ RANDOMIZE LLIST [F] INPUT DATA VERIFY CAT DIM 93 BEEP N[K]% PAUSE IF lI▟#CODE INVERSE al[G]<>F[F]CODE I? LINE n^cEXP INK RETURN Jbbp?w▞[C]_} CLEAR [D]|O LIST S[P]nVAL$ uI NEXT DATA @0`[T]D}FN Y SAVE CLEAR [P]I4 FOR YjOE ERASE PAUSE GO SUB (*> MOVE RETURN #2|?[U]▜ FLASH 9COS DIM Z<>[P] READ PAPER INK 8©▙[H]?STR$ / LIST u BORDER [I]▖ STEP >? DIM IN STOP BEEP LPRINT $cD[I]<>B LPRINT FOR RUN ]<>Rv©PI LINE 4JRlc+BIN SCREEN$ COPY ;[L]r[M]F LPRINT REM SGN ([J] STEP BEEP <=0o@^USR ^▜VAL LN SQR [G]Z VERIFY SGN h▜ PAPER BORDER READ D CLEAR g POKE [G] OVER $©_EXP PLOT REM PI CLS nR:f FORMAT LET ' OPEN #3v©[G]/ CLEAR ▙IN STOP 95SQR RESTORE >? DIM O/ATTR DRAW / PAUSE ©STR$ SAVE ![R]CODE [H] CIRCLE T[H] INPUT t]s READ DRAW [P] LIST ~nCODE w5?AT Lo[A] >@'USR [A] >@ INK [H]IN 1iZ OUT [M]JI DIM ?r|! DIM PI LOAD CLOSE #}ACS ~ CONTINUE ▚[J] RETURN VAL$ AND ? STEP [H]9o.LEN 8 NEXT ?Mm FORMAT ▖NOT FLASH INT INVERSE m) BORDER SAVE [P] READ DRAW >[[K] BORDER g SAVE [M][N]xK PLOT [I]NCOS [C][D]* RETURN OUT s STOP IF z OVER IN STOP < SAVE PLOT BEEP 7 SAVE 7 READ PEEK [N]SGN MERGE `5x|.o/[A] >@|_ >@| LIST NEW SAVE CAT AND STR$ HSTR$ ▚R PAUSE BORDER LINE + FOR IN hLN IF GCODE THEN RESTORE IF _] CLEAR ^ LPRINT AND SGN FOR g^kV RESTORE ! RETURN # NEXT G SAVE y||© THEN VAL HRNDGu[T]3 DRAW [P] LIST ©<> OPEN #)B[J][R][R]IN STEP FLASH P OPEN #C.[A] SAVE 1 NEW FLASH [U]@STR$ 8 TO 7[I][P]HIN [ READ [O] ERASE < COPY sz PAUSE DATA | RANDOMIZE PAUSE CAT ABS INPUT c CLEAR ACS STEP PAUSE ?_ LLIST <VAL$ nACS o LIST / THEN BEEP ERASE <[M]ke[P]o▖EXP >=I LINE CLS gi DATA r GO SUB F[T] PLOT COPY || PAUSE gg<= SAVE ? DATA COPY ?<> COPY DRAW [A]Q5>CODE [P] PLOT ©STR$ 4PEEK $ AND [F]&©[D]ATN RANDOMIZE 7+ CAT [$ BRIGHT TO SQR dI7>/ SAVE ? LLIST IN RETURN PLOT IN USR < LIST TO BEEP CLS PAUSE RETURN ▜ATN m[B]T© LPRINT LET LIST 3[Q] DEF FN 0 SAVE SAVE COPY OVER _ RESTORE ©[D] RETURN COPY ' DRAW PAUSE BSCREEN$ [P]: INVERSE k LPRINT DATA CONTINUE AND [F]'1[Q]i/ STEP o[ LET INK RETURN -[G]74 RUN oy CAT [A]USR +USR CLEAR CIRCLE " LIST USR NVAL INVERSE FORMAT TAB PAPER PI|wtATTR vPOINT OUT BRIGHT BRIGHT SCREEN$ INVERSE SCREEN$ w-DO`%`%`[T]K RESTORE LET F[F]v COPY RETURN O SAVE 3 DRAW [P] LIST ©<>| FOR u[T]I BORDER [u POKE FLASH CLEAR CAT <> STEP I&POINT 3[H] LLIST LOAD sy LET INK ;?STR$ IF GO SUB BORDER ▜o[R]_ CLS PLOT POINT SAVE FN SAVE hx);SCREEN$ INVERSE SCREEN$ wSCREEN$ INVERSE REM ATN j[N] REM ATN @:TAB PAPER PIzTAB FORMAT ATTR t(*▛FN ASN U RETURN ▛ GO TO 0 CIRCLE VAL FN [T][I] IF STOP COPY ▘4[H][AT [K]L COPY ' DRAW PAUSE C[D]▟Tc)SGN SGN SGN SGN FLASH DRAW [Q]7[J] BEEP A<> REM PEEK yy{ CLS [D][O][H]<=PI5[H] ERASE i OUT FOR B[E]U BEEP } POKE [M] CLS /ATN #| OR [D] MOVE © LIST NEW GO TO PRINT LET PLOT EXP W REM 2 ERASE CODE ASN LINE IN 8q9 COPY w[C]U MERGE RND OUT [H] FOR }"[C][L] CONTINUE `7 FORMAT PAUSE IN STR$ [P] DATA >; RETURN COPY ' DRAW PAUSE o PAUSE STR$ PLOT LIST BIN PAUSE 'T OUT CLS NOT M>=)5_ LLIST || CLS LOAD [P]7BIN ABS SAVE ] DEF FN v<>y LOAD LET LOAD RANDOMIZE 1 FORMAT ©[C]# DRAW psp1 FORMAT okPEEK _ NEXT THEN LIST STOP ERASE BEEP xTAN ASN [I]PT LPRINT cF INK v"TAB $DCODE qp PLOT /[Q]| RANDOMIZE PEEK u MOVE ▚ STEP POKE DATA SAVE ? LPRINT CAT LIST ~9©<>[P] DATA COPY RETURN J NEXT CAT ©?D5F$ INVERSE 4 INK 5"PP[R] BEEP IF 7_ RESTORE s LOAD LEN LET <>&^/<= CAT <=<= AND PEEK ABS RETURN LIST d▘[Q] COPY RANDOMIZE ]LN ?VAL MERGE MERGE OPEN #U▛['[O]22m OVER LET BEEP FORMAT [H]w~ INPUT DIM OR POKE RESTORE FORMAT 9R[R]R[R]R[R]R[Q]B[H] THEN DATA RNDS READ DRAW LIST o?STR$ [P] DATA COPY RETURN HRNDIW▞CODE IF BEEP RETURN SQR [ COPY E= RETURN O+V SAVE TAN OUT 2o▞l} RUN ASN N COPY [A] LIST b▖[T] DRAW RESTORE c/ INVERSE CLEAR l READ ©`~[J] RESTORE INVERSE OVER I[G]} IF IF y▜n LET ERASE GO SUB NEXT ]CHR$ 7SIN SCREEN$ ATTR j BEEP LLIST ASN j MERGE A MOVE ▜F[Q]USR USR CAT USR JP[H] THEN DATA ▝S READ DRAW PAUSE ©STR$ [P] DATA COPY RETURN HE#t&[L]&FN JACS [P]F LPRINT [M]KtFN 3 LLIST LOAD PAUSE W[G] REM SCREEN$ INKEY$[Q]`SCREEN$ ATN DEF FN CODE LIST @G SAVE LIST ©▙ DRAW VAL$ LET oS"<>▞ COPY y FLASH '[J]▚ OPEN #P▖* MERGE LOAD S▞ATN CIRCLE = MOVE FLASH CLOSE #▛s{ LIST EuQ]a:VAL$ INT J>@JR[H] MOVE J[Q]I▖▜HRG+"©[T]yo LET NEW INVERSE [O]|ABS © CAT 63 RETURN ▞ DIM INVERSE EXP | COPY DIM yPEEK _ LLIST OUT INK ▟UVINKEY$SCREEN$ SCREEN$ SCREEN$ FN INK k DRAW RESTORE @ RESTORE COPY +INKEY$F[Q]FINKEY$@[Q]D PAUSE 1B1rBPAT CHR$ SIN CHR$ COS {KRNDRND2STR$ ahPOINT W=[H]##j)[B]#b_ NEXT evXig<>F▞,}}IN OPEN # THEN [F]SCREEN$ Ww`USCREEN$ P LET [M]ABS NOT VERIFY 5 TO STOP sr LET [N] COPY J[Q] CLOSE # RANDOMIZE STR$ H AND [C]U9 OVER sABS COPY ; FORMAT l FOR ? RESTORE jJ[G]tHHASN H[B]DQ▜ THEN LLIST ERASE ▙▖D▖▖G[S]URNDURNDURNDU BRIGHT [T]kd FOR iTAB b) DIM bYPIfrACS BRIGHT USR 9EXP 30H INK ,SIN INK ,"[H]▖ FOR PLOT )JXj DRAW PI SAVE ? SAVE ' CLS GO TO 0}[D] OR OPOINT O▜ CLEAR [H] RANDOMIZE [P] READ <-}o LOAD ▙EXP LET ©▛-[H] DRAW [O]STR$ RESTORE EXP MOVE K[B]: COPY INVERSE 4xINT BIN @PI&PI&[U]D| COPY * COPY >=[A]NFF▖D▖G[S]URNDQ[U]U[R]Teddj BORDER SCREEN$ [B]Z LINE ERASE BIN COS N CAT SCREEN$ COS c34▝.ATN 6ATN [Q][U] LLIST w9i@ READ EXP [ MERGE GO SUB PLOT REM PLOT RETURN PLOT GO TO v©ATTR *USR VAL$ POINT VPOINT R[Q]^hTME| STEP &[D]V?<>> CONTINUE ▘ POKE IN LINE SAVE SAVE ▙G COPY ▛E[E]bIN SCREEN$ USQR OVER SIN IN nUSR *[F]kCODE ASN } LOAD VAL RND[AT RUN IN e GO TO [F]W▚Q BEEP V VERIFY e THEN ][N]r/10gg GO SUB K▞>=y IF TAB ;[G]hbBIN E[K] CONTINUE FN USR FOR g PAUSE < FOR >_[Q]$ STOP B[R] AND (&[M]0[L] DATA BRIGHT ▘[F]▟ STEP -P[Q][R]QQQR IF RETURN FORMAT { DRAW PEEK >©USR DEF FN -?i_ PRINT CODE {o RUN ?? MERGE COPY CODE SQR y CAT SQR EXP BORDER = INVERSE FOR SQR CLEAR NEXT LET mT}u^o[F]WV_w STOP d RETURN ACS qQSTR$ NEW [K]b:▖Bn<>INKEY$3D MERGE RESTORE 2[ RETURN j}ZASN ZCODE @ LPRINT /NOT CODE [H]NOT [J]X%%[T] BEEP NEXT CHR$ RSTR$ AY_? DATA VPOINT VPOINT VPOINT WATN MERGE MERGE FLASH FOR FOR GO SUB GO SUB BORDER CLEAR [M] CLEAR ▜ GO SUB BIN AND = PAUSE 6r7 PAUSE <t;SCREEN$ # CONTINUE q[M]u[O]ATTR B? IF SAVE fLN [D] DRAW ©"PEEK ( RETURN fi STOP [T]jASN JRNDBPOINT @FN T REM DEF FN 'A^STR$ ABS ,<> DEF FN RETURN ©M4 OPEN # DRAW O LINE OPEN # DRAW TAN VIN [E] RUN g SAVE /▝@ LINE {[L] POKE COPY ▝ SAVE b COPY RETURN VTAN [Q]© REM [Q][P] RETURN VAL$ VAL$ CODE WWWohf_ GO SUB k DIM LPRINT COPY W STOP 9(nW[I] DRAW + BEEP FLASH DRAW ![P]▖[R]Q[Q]D▖SCREEN$ ▗[A]J REM ?g REM 2_n*[T] GO SUB IF U<= OR OVER u[N]y LINE INK G^y BORDER [P]S[D]N< NEXT STEP ~87 GO TO NOT CAT IN LET LLIST >BKFN ASN [U][C].P0P;_d▘▗ COPY [G] LET BORDER [O]▝_ PLOT zCODE *VAL$ SCREEN$ TAB k]Y▞ RETURN LET PAUSE gBIN LOAD IF :▞ACS m OPEN #PI^TAB ZRNDZ[H] FOR LET DRAW CLEAR Gl DEF FN LN CAT LIST RETURN PAUSE # PRINT BEEP SAVE [G],# CAT BEEP READ : NEW [K][K]6ABS SIN INPUT DEF FN OVER ]K] CLEAR CHR$ =m}rINT ABS AT VAL$ ▙%-*+ INPUT COPY ▞ RETURN LIST 0BIN ▘1▞("3<=▘(0`▛?▝USR c OR LET b<x[P]"▚ FOR R STOP [C] CLS LINE READ READ STEP READ STEP READ >=,IN OR COS [K] AND READ STOP COPY ^ THEN ^ SAVE [P]=KTAB > COPY BIN U PRINT DSQR DEF FN mU REM ca COPY *ATN Y FLASH FN TO TO TO TO BORDER SAVE THEN Qg<= SAVE DRAW VAL IN LLIST rkw] LIST _ LET &;LEN INVERSE <{ RANDOMIZE RETURN ? SAVE [T]ACS Z PLOT PLOT PLOT }▙ FORMAT RNDAMBIN [N]TSQR ~ DATA REM STR$ LPRINT ` RANDOMIZE : GO TO ▛>= LOAD <= SAVE ▝ DIM PAPER CASN GO TO STOP Xc CLS IF q PAUSE [A] RANDOMIZE DATA ▞INT ©[E]t FOR IN LINE d[N]LN ABS TAN f▗A OUT [F] COPY <>▜u% CLS uJC RUN o BRIGHT [N]@<""") CIRCLE INVERSE $[U] SAVE COPY ' FLASH nPEEK PLOT PRINT CLS RETURN NEW ASN F SAVE CLEAR [B] PRINT >RTAN [B]<>[C]G RANDOMIZE a▜ STOP LPRINT SAVE ▝PdJSCREEN$ ▖[J] LOAD NM<= NEXT [H]VAL BORDER !C[P] LIST [P]o[N]R▘0 CLEAR FLASH RUN 'P>=▖▖FN 5ASN [T] READ CLEAR RETURN PINOT s[S] CIRCLE o[P] LIST <= SAVE MOVE T PAUSE bIIN VERIFY }IN r%KINKEY$[U]▗<>U[O]Ga LIST 8Y LIST CODE LIST [C] BORDER DSGN PEEK ^[N]TAN OR OR OR LPRINT T REM INPUT N[Q][B] RANDOMIZE i~IN CLOSE # OR YaN[D]PEEK ? CLOSE #RR1?STR$ [P] GO SUB pBn[B]*r©KIN LLIST [N]tJFN [E]VATTR *PSCREEN$ U00 FOR + LLIST LPRINT POINT i CLOSE #CODE NOT RUN o BRIGHT [N]@<""PIINKEY$ IF COPY f~9▛PIX[L]|O RUN <>PEEK $ COPY [H] LIST OUT z5[P]T DATA CLEAR LIST FOR [D]▙BIN USR BIN [K] NEW ▝(@' RANDOMIZE [H] INK ©/sPEEK vIN ~vV LLIST R OPEN #POINT RZ DRAW ?v CLEAR <> CLOSE #USR STR$ PAUSE "[F]>{© MERGE POINT LIST DATA NPEEK CODE CAT <=BIN COPY = MERGE READ BORDER STOP ©ABS RETURN !o[B]▞Cm[A][S]MACS I| SAVE ▜ LINE }KBIN DRAW BIN ACS SGN BEEP DRAW ETAB G LLIST TAN CLS [L][M]ABS INPUT COPY ACS [H] LLIST VAL CODE ~w[N][S]NRNDC,> BRIGHT PAPER [T]j"*▟ LET RETURN c LLIST p PAPER ;INT EXP <ABS IN EXP RETURN - NEXT @▚?g IF OUT NEW ? LOAD 7_NOT CLEAR ▜- STOP bpay? CAT PIu LIST CONTINUE CLS VERIFY COPY VAL$ u IF FOR [E]DQNOT DATA [K] CONTINUE J▞N[[L] INK RETURN TAN >T RESTORE o OVER vA[F][I][ COPY PRINT LEN COPY E SAVE © REM RRSTR$ LET RETURN LINE FLASH ~ PLOT ▙|©[B]?CHR$ [P]C NEW POKE IN 3 DRAW CONTINUE [U]FN N1VA PAPER 7▘= CLOSE #STR$ DIM ERASE USR R OPEN # INK s SAVE PEEK SR▘ija? GO SUB READ BORDER CONTINUE COPY 5 ERASE ABS ~p CAT LIST NOT PAPER } IF PRINT RETURN THEN AT 0? BEEP t} bn[I][R]U GO TO xU BRIGHT EVAL eCOS mP▖[T] OPEN #+ NEXT MERGE [D] READ CLEAR 7 PAUSE POINT D▜~? CAT ©-[L]AT o LOAD ▛ BORDER [H] FOR PIWCODE [LEN w THEN PIo__ OPEN #k AND USCREEN$ UVAL$ COPY COPY MERGE j MERGE FOR [P]>5( NEW d▖R▜?▙@E[A][Q])B(Q%^ RETURN READ LLIST RANDOMIZE VAL G CLEAR BRIGHT -SQR USR &ATTR LEN INVERSE r BRIGHT STOP ▞VAL$ ACS NEXT THEN DIM INPUT Jn▙ THEN LET RETURN ASN LET W%$ IF ©[B][E]▞[P]▙▖FN OUT BORDER Ni_▙ OPEN #VAL CONTINUE VAL [U]?_[R]aYQ BEEP READ /UIN _▛w BRIGHT X} CLS ▙ CLOSE #VAL [Q]TAB E>=F PRINT x-XPOINT ZTAB @▙IN LLIST LIST PIP▞[PIFFTAN ABS ASN READ DRAW ! LET ©[G] RUN LINE j[A]n2▙▘K[K] NEW Q[C]LN [B][T] CLEAR ,: DIM [S]INT } COPY LEN 5 BORDER JASN RETURN ABS LINE MERGE STOP CODE SAVE NEXT j PLOT CODE PFN TWLVAL$ 3"VAL$ CODE W CLEAR ~TAB v RANDOMIZE |e GO TO k_IN " FOR [U] LLIST ;qCODE <=^IN BEEP j OUT CLS LET BORDER MERGE . INVERSE > COPY z MERGE "@a RETURN # PAUSE K# CAT BORDER CHR$ SCREEN$ BEEP STR$ [S]V=8 LIST ▞RND[G]SGN t▘ CONTINUE =STR$ [R][D] BORDER [F] CAT : READ CLOSE #[Q]F[P]7 RANDOMIZE s<qd IF EXP LET RETURN GO TO POINT DH©PEEK R}&INT DATA I TO GO SUB DIM LINE COPY IF J REM ▖ GO SUB /][P]PI' SAVE NLN RESTORE y-[P] READ 1RNDc LINE PAUSE IN _ BORDER IN >=k[F]U[F] FORMAT H/X`u* REM [A] OUT s THEN >/ IF => FORMAT h4< INK >_NOT ?<=IN STEP # DIM Q[M]Pr GO SUB CODE [C] SAVE [K]LCODE POKE [F]W DRAW iBIN SAVE PAPER o PLOT BRIGHT Su[P] LIST ▞QtEXP Q PLOT DATA LPRINT >=AT FOR ▗80 NEXT ▙00J FOR DIM MOVE ▝©J REM BORDER _ READ / RESTORE OUT R[C] BEEP [N]INT l[Q]J LINE STOP +SIN r LIST CLOSE #TT~▟ DIM THEN $s| LET INPUT [F]|: RANDOMIZE y POKE >=*[A]( MERGE kK=v COPY ABS x OUT POKE |O^$W_ LPRINT 8 RUN OR IN DEF FN v~INT $▞? MOVE ▞y BORDER O LET OUT LLIST :ABS [L] BEEP LOAD OUT POINT RATTR RAT READ LLIST ERASE MOVE OPEN # REM RUN IF CLEAR VAL$ MERGE SCREEN$ [A]HuRND*|? CIRCLE FLASH STOP RANDOMIZE ABS : PAUSE $ DRAW CIRCLE READ BEEP ' BORDER DEF FN COPY [G]hSGN S|X[N]SGN RND OUT BORDER ; CLEAR TO AND BORDER '[B]_ LET FLASH INK "DdCi9 RETURN C DRAW 9Qb- CAT LIST l RANDOMIZE Q_S DRAW [G] DATA ,>PEEK PI IF kSIN FLASH K©[P][K][S]▙$ FOR VAL$ INVERSE INK LPRINT $PI OR ) THEN INPUT D+ CLEAR INKEY$W CLS nPEEK uN[P]© LOAD OUT RUN [ASN LINE POKE OUT kSIN EXP B[A] LINE 4$ LINE RND[C]``jXja THEN +[D] BEEP [L]▜GVAL$ [A]PIPI^t[P] SAVE $K LIST 5@ DRAW [Q]▘U"8 LET 9-r[Q]GNOT DRAW [J] RETURN <>G©NOT RUN ATN w RETURN ACS ATN 5 COPY BORDER SAVE OUT INPUT F CONTINUE <LN TAB ;|© RETURN ©[F]'][F]$jPBIN ;(J? REM CAT SCREEN$ ▘ATTR LINE NOT >=ATTR BIN V©▙0 PAPER l[L]d[B]o POKE |K RETURN [J]USR {IN 3 TO 1 FOR k FLASH BEEP DRAW CLEAR IN STR$ SGN RANDOMIZE | OPEN #[F] OPEN # RETURN Z THEN ~: RANDOMIZE W]u ERASE "" BEEP G% INK _ RUN e[P]NOT mu BORDER - THEN ATN SAVE @g LOAD CLOSE # DEF FN BIN POKE L$# PLOT FOR RUN 9F FOR iN DRAW [Q]b[E][I] RETURN T BEEP APOINT %PICODE SAVE ` FLASH IN p COPY ▘it FOR ") POKE ▖ DATA DRAW [C] OPEN #[H]CHR$ "?/ DRAW l[z?© OUT >[U]"[Q]RND(d")T[F]Oo6[O] >oCOS SIN "INT >[O]SQR ©STR$ ABS 0d7~ATTR |PEEK ~/CODE BEEP 0COS POKE OUSR ERASE r"Q LIST ▙*COS LINE DRAW K[T]TAN ▖CyINT ~INT VERIFY LLIST PIXh[P]+ LET ▚XTqa▜U BEEP _J▘ FOR RANDOMIZE LIST RUN / SAVE 7INKEY$ READ RANDOMIZE g FLASH ATN [A]a(C LLIST T SAVE RETURN KCODE [J] COPY 1▘0 BORDER ▜,9 STOP xR[O]VAL PI▘) LLIST Kx[E] LIST OR <`OX#USR [G] LIST OR ▘<`OX#USR [C] AND <▙H#USR [A]▚▘SQR Zh2@[M] DATA ![Q]h@[M] DATA ▘1hD<=kL`F▝kL!m!STR$ MOVE @[C] LLIST [G] ?"&[K] ^% ^% ] MOVE LPRINT Z ^ LPRINT Z ] MOVE 5[K]"▗* REM [F]j[F]j[F]*[F]:e[K]4[D]ATTR |+VAL$ REM RNDPI8 INVERSE 1^ FLASH <=PEEK U] CONTINUE LINE CLEAR W STEP {_ FLASH n RETURN [N]©STR$ VAL$ PLOT OUT h[A] CAT GO SUB u MERGE IN STOP Q▗ COPY )&d THEN [M](yP LET ?5 DATA DATA +B$$CHR$ AT E[J]I^ LOAD ▜GGK▝▞STR$ FORMAT ~ CLEAR NOT m COPY RETURN ABS jABS jASN ~ASN zRNDZRNDZ RESTORE SCREEN$ [F][R]COS TAN GO SUB [U]c CIRCLE STEP RPOINT ^TAB VPOINT TVAL$ ATTR ] RUN j THEN CLEAR OR CLOSE #-*rUSR 0[D]DV▝USR READ LET SAVE RETURN vrSGN BEEP ^NO0 CAT } INK LET gs> IF FLASH TAN PRINT IF RUN [ FORMAT COPY [T] DATA OVER ©▝d RANDOMIZE [T] LINE ABS qI[U]▝U REM RUN *QTTAB $[M]^© GO SUB O▛[T]ATN ' OR LINE A[I]S/ IF ~6CODE [TAB ^CODE ^[Q]TAB ZSGN ©▚ CAT SAVE FN ` LLIST ▝ NEXT LIST 0 LIST USR RANDOMIZE RANDOMIZE "e` LLIST ▝ NEXT PRINT ` LLIST ▝ NEXT LET ]D`u VERIFY i CLOSE #u MOVE RETURN VERIFY [U])<▞[R]▝U POKE AT PAUSE CODE N[K]=[Q]SIN ; NEXT CLS NEXT LIST NEXT o0 READ trT REM PAUSE READ <>ACS &' OUT & BEEP [F]&>' FOR ▖ MOVE ?STR$ SAVE OUT OUT CIRCLE FORMAT ][L][A]2PI CLS CLEAR V RUN st RETURN <= CIRCLE DRAW [C]<>' AND COPY U POKE BEEP ij[F]ATTR U REM r/a[ BEEP ] REM CODE 2[J]BLEN B DIM PLOT [U]▗ RETURN SAVE s8qLN >?<= COPY ~ FLASH p©STR$ RETURN [P] GO TO 3 NEXT © COPY COPY TAB STOP J STOP ▘ STOP RETURN PEEK >©STR$ #B' PAUSE d RANDOMIZE GO TO PAPER J{ CAT h[I] COPY h/z CAT DRAW CAT >= CAT >=>= CAT ;[J]{9[L] RANDOMIZE | RETURN COS R▟ CLS CLS CLEAR
