1 RANDOMIZE USR VAL "23883": REM NEXT 1 COPY _>? GO SUB G GO SUB V! LET <>"CHR$ /!@@ COPY u GO SUB VAL CODE OPEN # RETURN !k RESTORE GO SUB [ POKE / STEP = LLIST ~/w#xLEN RUN CLEAR © GO SUB Q!USR r GO SUB Ys GO SUB Q~INT (* STEP k!`` RESTORE GO SUB [ POKE / STEP = STEP ``[G] CLS v CLEAR !` GO SUB [ POKE / STEP =NOT `> STEP ^> STEP ^> STEP ^> STEP ^ CLEAR ©> GO SUB y+ STEP #^> CLEAR © GO SUB y STEP k> CLEAR © GO SUB y!USR `` GO SUB VAL STEP `` CLS CODE 2/v:/ATN ( PRINT NEXT > CLEAR © GO SUB yNOT REM CLEAR © GO SUB y@ GO SUB [ POKE /!USR STEP =<>
0 [E]& INVERSE $[E] LET LOAD PEEK DIM DRAW & OVER VERIFY [E] INPUT COPY [U] RETURN ? COPY O LET IF G.> DEF FN NEW z< COPY [U]G[P].& BORDER RANDOMIZE BIN VERIFY LOAD CLEAR PEEK CAT LLIST CLEAR P VERIFY LOAD CLEAR PEEK CONTINUE VERIFY LOAD CLEAR PEEK CONTINUE E<= SAVE |[Q] INPUT OUT P| IF CAT VERIFY CLEAR OUT BEEP &VAL BIN [A]c[I]O[P]& BORDER :&BIN OUT DRAW > BORDER NEXT 9 LIST CAT SAVE CLS BORDER CLS BEEP CHR$ &VAL & VERIFY LOAD CLEAR PEEK &<=0&PRND VERIFY LOAD CLEAR PEEK CONTINUE STOP OUT CLEAR CAT IF NOT &[I] BORDER E VERIFY LOAD CLEAR PEEK CONTINUE RUN CAT DRAW CHR$ BORDER VERIFY LOAD CLEAR PEEK CONTINUE CONTINUE CAT CLS ) PLOT BORDER VERIFY LOAD CLEAR PEEK CONTINUE LPRINT LPRINT <=*BIN [U] LET IF O OVER COPY COPY & DEF FN COPY COPY < COPY ©SIN CODE [E]`|e|=cU CONTINUE COPY [E]_ OUT COPY ATN INT INKEY$ OUT LOAD OUT SCREEN$ OUT OVER COPY OUT CODE VAL FN INT TAB LIST PEEK IF IN SGN TAN RANDOMIZE AT OUT LN TAB VAL SCREEN$ CODE OUT ABS 7h PAUSE OUT STEP OUT PLOT COPY FN ACS CLEAR }RND OPEN #VAL VAL SQR CLS PEEK SIN INT OR CODE w COPY BIN ACS SGN VAL OUT SQR INT COS LET SQR SAVE CLS DEF FN STEP <= FORMAT THEN <=ABS DIM COPY BEEP [B]xAT {TAB ATTR ACS VERIFY OPEN #▚ CONTINUE TO BEEP COPY ACS EXP (COS RUN INVERSE ACS POINT INT PLOT LEN TAB INT AT ▜'ACS PEEK LEN 9 GO TO 2SIN SCREEN$ ACS CODE RNDPEEK RUN OPEN #34 IF IF LN EXP PI IF DRAW INT COPY ERASE P DEF FN FN <=LEN PEEK OUT LEN INT CLS CLEAR FN OUT CODE TAB VAL LN TAB AAT OUT ATTR ATN DRAW RANDOMIZE GO TO OUT SGN PEEK COS COS STR$ AT OR STEP [E]AT USR ACS ATTR INKEY$ DIM COPY o BORDER COPY BEEP DEF FN <> STEP VERIFY CLOSE # THEN DEF FN STEP TO DEF FN ATN ▟ CAT MOVE PLOT COPY BEEP POINT [O] LLIST GO SUB INKEY$ VERIFY TAN VAL *Z FORMAT RNDMp RANDOMIZE CODE ATN LN USR CAT AND ABS PRINT USR {}ACS VAL COS INT LN VERIFY ,[C]VAL USR ▝ DEF FN ©7 GO TO CHR$ CODE PEEK FN OR VERIFY ASN PEEK LN ?▖SCREEN$ PEEK CODE IN & INVERSE COPY CODE lAT u FOR OUT INT LEN ATTR CLEAR THEN q CLS 6PIATTR GO SUB OINT OVER VAL$ RESTORE BIN AT FORMAT SGN FORMAT BIN SGN VAL LLIST CLS SQR ACS LEN SCREEN$ PRINT COS VAL PEEK CIRCLE FOR w] FORMAT SIN LLIST ACS ATTR TAB ?NVAL OPEN #SQR INT SQR LET ▗USR COPY @ OR ~LN m FOR C5 SAVE USR EXP X CLOSE #CODE USR ATTR BRIGHT CLOSE #USR [[P] REM >@ COPY <=USR AT GO TO ' LPRINT AND COPY TAB PEEK BRIGHT BEEP EXP PEEK INKEY$ THEN VAL OR RND SAVE AUSR BORDER STR$ / COPY LET USR AAT ACS SGN SAVE [B] READ AND ▗VAL COS PEEK AT ~[P]USR SQR ACS AT TAN FORMAT SAVE SIN VAL TAB INKEY$<=. VERIFY INT TAB BORDER _ BORDER USR ATTR SGN TAB SCREEN$ LEN AND SGN ATN FOR RETURN COPY USR REM ASN IN COPY USR USR CIRCLE ATTR INT SGN CLEAR LIST CHR$ ,t CAT FN G DEF FN @ACS SIN DATA DRAW GO SUB = COPY TAN LEN VAL FN LEN bLUSR INT PI OVER USR PLOT - COPY TAB INT COPY ATTR ATTR RND COPY ▛< PAPER [A]3@ OR RUN [S], OPEN #©< FOR HATN VAL LN OPEN #AT CODE ^8ACS FN IF DRAW CODE CAT VAL OPEN #ATN PEEK FN TAN x CLS [R] DRAW COPY PLOT COPY ▝PEEK COS OUT AT VAL EXP ATTR OPEN #PEEK ATTR COS b PAPER SAVE VAL RND DATA LLIST ABS TAB CLOSE #[G]A OUT BEEP PEEK { CLS ABS SGN VERIFY OR PEEK ACS 0nINT SIN ~ PRINT CLS SCREEN$ TAB INKEY$LEN DEF FN ABS TAB CLEAR DEF FN m` OUT ABS SCREEN$ AT fCODE AT 5M& RESTORE OUT EXP J LOAD | PAPER INKEY$ABS PRINT SQR [M]].SIN PAPER SQR LN ▟N [S] LIST n GO TO DRAW [G] BEEP SIN CLEAR PLOT [O]INT PI[N][Q] OPEN #EXP EXP SGN ABS PRINT DRAW COS CODE OPEN # DIM PEEK PI RUN THEN LN VAL COS ▜LEN IF ! SAVE CODE ACS SGN INT n LOAD ySQR OPEN #TAN AT SQR TO POINT PLOT MERGE DRAW MVAL ATN PAPER CLS RANDOMIZE AT FN OPEN #FN EXP ACS REM > INK jwWSIN ABS PEEK m AND [ COPY [O] INK ;TAB ASN OPEN #b?ATN ~AT ▜cABS RUN OPEN #ASN rTAB kATN CLS AT ATN sFN 4 COPY | DEF FN >= BEEP POINT IN k CLS ? BRIGHT SQR CAT TAB PEEK ACS LEN GO TO % OR GO TO .eCODE TAB RUN AT POINT OR `USR %USR r[D] BORDER COS e OPEN # OVER {ATN LEN zuATTR MOVE CODE ACS ATTR PLOT SCREEN$ LEN TAN [P]pSCREEN$ PLOT ATTR ERASE LINE OPEN #ATN APOINT # CLEAR POINT ACS " GO SUB GSCREEN$ !▛VAL RND OPEN #FN GO SUB RUN 1 OUT INT INKEY$F OPEN #PI ERASE ATTR yPEEK ABS USR SAVE COS ERASE IF fLEN LN OPEN #_>SCREEN$ VAL n FOR ATTR CIRCLE AT OUT NEW _ LOAD ▛ LOAD `LEN RNDACS LOAD CIRCLE { PAPER ][T] COPY [Q] COPY NEXT RANDOMIZE FORMAT DATA IF COPY FORMAT H( RUN [T] NEXT SAVE RANDOMIZE SAVE 0▗STR$ NEXT RANDOMIZE STR$ "#[R] CLOSE # RETURN ▖ LOAD FORMAT RANDOMIZE LET ([T] LPRINT [T][K]BIN CLS ▘[O] FORMAT TSTR$ BIN [P] LET C[M]USR [O][B] ▘sSTR$ RUN BC MERGE " NEXT PRINT RANDOMIZE DATA LPRINT CLEAR COPY $H# NEXT PRINT RANDOMIZE DATA USR 0 NEXT [K] COPY DRAW POINT [N]VAL EXP OUT RNDINT OUT SCREEN$ [© OPEN # READ [G] FLASH LINT MERGE BRIGHT PAUSE SGN OA VERIFY <=TAB FN PIVShAT CLS TAB 7>= OPEN #ATN VAL FN LPRINT VACS REM PEEK LEN LEN ABS X? FORMAT N FORMAT STEP <> MOVE CAT K RUN LINE MOVE AND >= COPY COPY RETURN COPY CLEAR CLEAR COPY DRAW DRAW CLS IF SAVE PLOT LIST [U] COPY [P] BORDER © PAUSE LPRINT COPY ▜ CLEAR SAVE CLEAR [O] FOR ? CLEAR COPY [R]t DIM POKE LLIST p PLOT 0 CLEAR z OUT LINE CAT ? DRAW NEXT COPY LN INK ▜s COPY _ PAPER 3 CLEAR BORDER >=7[A] COPY PEEK {INKEY$ FOR [J]y RUN DRAW <>o RUN POKE [C] READ AND STR$ RUN [R] POKE DIM y/ COPY ERASE DRAW ▟ DATA IN COPY THEN RUN LOAD BORDER PAUSE COPY POINT CLS RND|[H] COPY [U] DRAW DRAW RUN RUN RESTORE DATA RESTORE ABS 9©RNDy CONTINUE } RUN | DRAW PAUSE [O] RETURN RESTORE BORDER POKE CLS STR$ INK ©POINT x CONTINUE ~{© RANDOMIZE COPY OVER Sr LIST VERIFY u LPRINT VERIFY m©TAB zRND CLS TAB ~@ RETURN NEXT INT 8ABS y/wTAB FOR {▜ CLS FOR _[G]oDZ RETURN RESTORE ASN DRAW FOR zg FOR USR ? FOR 'HCODE FOR FOR ^ RETURN xz CLEAR FOR CLEAR CLS VERIFY ABS z[H]ABS [U][L] FOR OUT IN VERIFY FOR PHSTR$ W VERIFY FORMAT PEEK FOR [H] CLS ▛@)% FOR RND FOR K FOR ERASE OUT CODE z BEEP PI[L]© CAT COPY CLOSE # FOR [F]/ LET m CLEAR + VERIFY BEEP CLS #iIN [P]IN R RETURN [U]C VERIFY OUT DRNDX FOR ' POKE FOR CLOSE #PEEK SGN OVER ASN RETURN ATN CLEAR k LET SGN IN VERIFY ~O DIM ? COPY VERIFY PEEK VAL$ VAL TAN [A] FOR VERIFY FOR C ERASE FOR FOR ABS k RETURN OR FOR [R]ABS [P] FOR RUN TAB | CLS ~© FOR INT BEEP CAT FOR FOR VERIFY |t[S]@ FOR VERIFY VAL 7E▗ FOR IN ▘CAT DRAW ATN COPY CAT CLEAR FOR COPY } FOR ▘TAN ? VERIFY TAN $ FOR XASN RANDOMIZE ^ FOR VAL$ VAL$ 2 FOR . FOR t LIST COPY TAB FORMAT - NEXT VAL$ FOR ;ASN TAB RETURN OUT GO SUB W LPRINT q FOR < VERIFY LPRINT NEXT OAT USR G OUT [H] FOR RETURN IF OPI SAVE RANDOMIZE |CODE USR FOR <= OPEN #'[H] BORDER ATTR COPY © PRINT NEXT COPY ▞ PAPER FOR COPY `'[Q]>=<>©VAL PEEK K FOR NEXT PI RETURN _ RANDOMIZE SQR [T]© NEXT ] VERIFY PAUSE LN DATA OPEN #u?q FOR ]/ COPY [R] RANDOMIZE [H]K[M]? TO FOR ▜ SAVE w=!NOT w8 FOR [P] RETURN RUN LIST FOR VAL$ SIN PRINT COPY DRAW .▝<>[F] FOR USR n COPY ?J RETURN RND BRIGHT BIN COPY R VERIFY LN q COPY VERIFY RETURN FOR B RETURN el BRIGHT RETURN FOR 2 RETURN RETURN FOR STR$ CHR$ COPY LLIST RETURN FOR LIST COPY RANDOMIZE RETURN FOR DRAW PLOT LIST FSQR COPY CLS SAVE UU?m LOAD U RETURN COPY IN ? DIM INPUT [P][P]IN LET INVERSE LPRINT w DATA VAL ABS SQR U RETURN U▖ SAVE LET BRIGHT [B] INK SAVE BORDER INVERSE SAVE wLEN RNDSTR$ w>=SQR OVER 2CODE SAVE BRIGHT AND RANDOMIZE [E][J]n PAUSE [J] COPY INPUT INPUT INVERSE CODE CONTINUE [M] INVERSE I OVER POINT NEW SQR 3LN OVER TAB GO TO INVERSE w CLEAR SAVE [J] BORDER mTAN SAVE DATA IF MERGE [P]mTAN REM RANDOMIZE PEEK DEF FN SAVE BIN ▖ GO SUB LPRINT A CONTINUE Z LIST INT B[A] LIST [C] CLEAR SIN CLS ▖[J]eA DIM NOT © PAUSE J[A] DIM LINE 3F[IN wplUSR 'M PLOT BEEP 3U RETURN VAL LIST l[E] CONTINUE 3 INVERSE REM GO SUB FN [Q]3S SAVE [K]LH DRAW CIRCLE T#<> PLOT LIST @4~ CLEAR 0 GO SUB $DLN VAL P OPEN #DBIN LIST [J] CIRCLE [S]F DATA SAVE [Q]K CLS ▘ SAVE OUT <>& INPUT [A]<= LPRINT >BJ▖FN |<>▛ GO SUB LIST SAVE >=[U] BEEP CONTINUE ` NEXT SQR [P][B]FN CLEAR RUN "h[A]VAL "X_Z FORMAT bzLEN INVERSE INPUT FN FORMAT 4 CONTINUE /VAL$ IF LOAD h COPY COPY U"f""D LIST P[N] D INPUT TO [A] CONTINUE :DUSR PEEK @u COPY /[H]IN CLEAR [D] FORMAT hLN STOP USR INVERSE uW READ [O]>=USR DRAW LIST STOP ▖[F]xSTR$ LIST LIST ! IF LN ~ LIST DRAW X LIST z}[A] LIST ! SAVE CIRCLE @WLN .h LIST TO COPY IN VAL 3TAB ▖ INPUT SCREEN$ ▖ COPY <[A]f OVER STEP u[I] RANDOMIZE <[T]}<MzO7AT S COPY o OUT STEP MOVE DEF FN OUT ABS INKEY$ MERGE USR BRIGHT PEEK COPY COPY OUT LET LOAD LET [P] PAUSE © NEXT ' POKE BEEP POKE w PRINT COPY COPY PLOT [P] PLOT RUN PI RUN SAVE SAVE RUN SAVE O RANDOMIZE IN COPY COPY RANDOMIZE IF k IF SQR IF CLS O CLS CLS OPEN # CLS COPY COPY DRAW A DRAW { DRAW PI DRAW OUT DRAW CLEAR 5 CLEAR ] CLEAR COPY COPY CLEAR PI CLEAR <= CLEAR DIM CLEAR RETURN RETURN = RETURN S RETURN o COPY COPY RETURN ▗ RETURN [K] RETURN VAL$ RETURN STR$ RETURN OPEN # RETURN READ RETURN PRINT RETURN COPY COPY COPY COPY COPY ) COPY 7 COPY B COPY M COPY W COPY `© COPY COPY i COPY q COPY z COPY ▝ COPY [ COPY [E] COPY COPY W[L][I]INKEY$ COPY ATTR COPY VAL COPY COPY COPY TAN COPY LN COPY ABS COPY USR COPY BIN COPY <= COPY LINE COPY STEP COPY COPY COPY FORMAT COPY OPEN # COPY MERGE COPY CIRCLE COPY PAPER COPY BRIGHT COPY OVER COPY LPRINT COPY COPY COPY STOP COPY READ COPY RESTORE COPY NEW COPY CONTINUE COPY DIM COPY REM COPY GO TO COPY LEN PRINT GO SUB COPY INPUT COPY LOAD DATA ▟ SAVE COPY COPY + POKE ▗[Q] LIST CLEAR LET POKE ZVAL$ STOP N MERGE PAUSE NEXT DRAW CLS CLS O LIST PAUSE NEXT CLS n[A] IF IF LIST MOVE *LN PAUSE RANDOMIZE [C]` LIST LET PAUSE SAVE SAVE LET RUN LIST >=D LET PAUSE RUN PLOT LIST ' BRIGHT { LET PLOT PLOT PRINT LIST LLIST ▖ GO TO LET PRINT PRINT POKE LIST MOVE BIN pE LET RETURN [C] MOVE LET PAUSE H LIST ERASE LET LET 0 LIST LET o DRAW PLOT COPY LN COPY INVERSE COPY COPY VAL$ |▝ STEP y STEP Iz BRIGHT BRIGHT ▝ BRIGHT INVERSE COPY COPY } INPUT OUT COPY NEW NEW INVERSE SAVE | NEW [R] BRIGHT POINT BRIGHT RETURN LLIST LOAD CLS COPY PLOT INVERSE STR$ |VAL CLS TO | REM COS © OUT | OVER LEN OUT VAL } RETURN 5OPw RUN STEP TAN } STEP COS CLEAR SIN CLEAR NOT IN INVERSE ©^ CLEAR !| STEP [S]{ STEP CLEAR >= OUT INVERSE POKE c CLEAR OPEN # RUN Q CLEAR DEF FN z CLS INPUT LN FORMAT STEP M NEW DEF FN PRINT L{STR$ CLEAR IN PRINT z BORDER OUT y OVER $~ INVERSE PEEK y INVERSE Y COPY CLS CLEAR CIRCLE { INVERSE V CLEAR OPEN #z2 AND |AT COPY RETURN 1z> RESTORE | DEF FN f INPUT ~STR$ OUT THEN COPY PLOT BRIGHT ▟ BRIGHT CHR$ OUT GO SUB CLOSE #USR }STR$ LOAD GO SUB MERGE IN FLASH GO SUB ?SGN I CLEAR B| INVERSE OUT ©NOT EXP A{< LINE z OVER BORDER ▝x/SQR BORDER POKE ACS [O]Q PRINT <=y[K]hx&: PAUSE PLOT } DATA INT SQR CLEAR INVERSE z COPY 4 CLS IF yEXP RANDOMIZE COPY 6▗x|[Q] COPY © DIM ▝ LPRINT CAT CLEAR DIM CLS LPRINT 4 GO SUB LPRINT RUN BRIGHT COPY PI▝ LIST COPY LIST RUN 4RND OUT RANDOMIZE © STEP PLOT COPY ATTR } BRIGHT [B][I]"[N] DEF FN ©[TAN "▘PIATTR CLOSE #© PLOT ▝ COPY COPY BRIGHT [J][A]4 OR <= DRAW TAB 6 NEW 6STR$ COPY NOT BEEP OK▖[K] INPUT CLEAR FLASH ▚NOT A DRAW CLEAR BRIGHT OUT RETURN ▝ STEP H|}g|▜[Q] POKE LIST G LIST " MOVE POKE DIM ▚2[J]| BEEP NEW INVERSE LEN }[P] RETURN SAVE REM LPRINT { BEEP INK >=▗XIN COPY |SQR VAL XABS CAT INPUT AT STEP #| CLEAR COPY P STEP |[I][A] INVERSE | BORDER PRINT INVERSE | LET Q POKE " STEP SCREEN$ } RUN [E]7%▝ PAPER POINT }▝l COPY ▝<>{,▝>= LIST FORMAT [Q]▝CODE ▝a▝▘{INKEY$ATN ▝[U]{▝[E]{▝[N]{▟[I]▝▛{▝ POKE OUT ▝ OVER ▝ SAVE I▖F[S]~FN ~▗ COPY ~G~F[Q]~TAB CIRCLE ~ OUT z~)~©"©H+©▗~ L~ NEXT ~ COPY }PI} OVER [U]} INPUT @ LOAD COPY LET PISTR$ PAUSE OUT SAVE ) DRAW OVER GO SUB BORDER 2 RETURN REM ABS ▚SGN TCHR$ ACS RANDOMIZE RETURN CLS v STEP ▜6PLN RUN STR$ DRAW CHR$ COPY ATN VAL$ BEEP STR$ CHR$ BEEP INVERSE CHR$ =N[P] CLS | OVER TAN } LINE RANDOMIZE <>= COPY GO SUB RESTORE X3 AND |2▖x DIM STEP LIST y< STOP COS LN SQR STOP 2dw BORDER BORDER ▛CHR$ [E] BORDER SIN BORDER LET y CONTINUE OUT BORDER ]v BORDER IF yP COPY CAT LLIST LINE BEEP PLOT H|▛ COPY [T]PI[D] LLIST INVERSE E| OUT FOR STEP [B]INKEY$ CAT y INPUT OPEN #{ CLS !VAL$ 4 DIM CIRCLE { DIM PAUSE . RESTORE | STEP LN y LIST B INK RESTORE STEP FN JY INK RANDOMIZE { INPUT SGN RESTORE TAB $ PRINT READ LLIST [R] RETURN z INVERSE <>{Q▙s[L] DEF FN SIN [U] RESTORE $ OUT AND SIN [L]jCHR$ [A](Q DIM [S] DIM V$[C][L] FORMAT S[L]NOT [C]LN LIST NEW STEP C NEXT ▛H[E] CIRCLE z CLS f OPEN #[F] PRINT [C]LEN } PRINT INKEY$}STR$ IF IN DRAW OPEN #P STEP & STEP [R]y OR [A]TAB CLEAR yCHR$ BEEP IF ▚ STEP PAPER RNDi MERGE STR$ >=X6 RUN , OR GO SUB FLASH VAL SAVE REM CLS BEEP % BORDER PI▞ BRIGHT DATA 6x COPY OVER PIZ©^PEEK LET RUN < COPY ▞▖x CAT RESTORE GO TO INK RETURN [A] INVERSE [B]y POKE RUN X▜SQR xB[G]y IF BORDER ERASE D GO TO CLEAR GO TO PIRND LOAD GO TO RESTORE [A] GO TO GO TO [I] INVERSE [M] READ LOAD &TAB RUN ;IN BORDER RANDOMIZE IN u*3z LIST 9 OUT <=O COPY CLOSE #9[P]<=z9 LOAD <=[I] DRAW DEF FN 9IN SQR PI<= SAVE qNOT BEEP ▞ CLEAR e PAUSE CLEAR ONOT OUT 5x[A] BORDER DEF FN ERASE 0 BEEP PAPER x~x DRAW ACS POKE INVERSE MERGE 5w OVER CLOSE #}xR LIST VAL$ PAPER LN [B]% FOR 7 IF BRIGHT D POKE X6SQR >= PRINT E BEEP LIST BEEP { IF RUN STR$ LOAD GO TO RESTORE STEP !yI CIRCLE _ STEP CLS STOP ] COPY /ABS STEP 6y OR +yCHR$ 5 OVER w▚[E]CODE STEP u BRIGHT z[T]C FOR CLEAR BRIGHT j BORDER [U]{l OUT BRIGHT REM CLS BEEP & BORDER FLASH @ DATA BIN BIN BRIGHT Y[H]dw CAT CAT BRIGHT , INPUT LIST [H]wm1" LET BRIGHT GO TO SAVE GO TO BRIGHT <? BRIGHT ^[I] PRINT BRIGHT ▖ CLEAR BORDER BRIGHT x[A]~ BRIGHT p CIRCLE 4w" RESTORE BRIGHT I PAPER S FOR 7 VERIFY ~ CONTINUE BRIGHT POKE BRIGHT cE PLOT BRIGHT GO TO ▜ABS BRIGHT STOP > OPEN # BRIGHT ABS OR " RUN BEEP RANDOMIZE CLS CLS BEEP SAVE >=<PIEXP RUN v STEP RANDOMIZE z OR RUN CHR$ 5 PLOT ▚TAN FORMAT COS ACS LLIST LEN m INVERSE G{67 CLEAR PLOT {▟v▜ LLIST SQR DATA z MERGE GO TO [A] INK CLEAR D GO TO y GO TO INKEY$ CLS PLOT { READ PAUSE [J] {bABS RANDOMIZE DRAW }ABS LN RANDOMIZE INK )} RANDOMIZE uASN DRAW RETURN OPEN # RANDOMIZE [I]NOT BEEP [T] THEN LOAD CLEAR ] CLEAR LNOT OUT 2z BORDER _USR + BEEP FLASH RETURN xDi]vM FOR RETURN Ar ERASE 4 GO TO STR$ g67 REM ▝ DEF FN ▘h# LPRINT INK LOAD RANDOMIZE SAVE ASN DRAW OPEN # DIM IF FOR COPY ©%C PLOT LLIST PRINT PRINT # PRINT STR$ POKE NEXT LOAD _ POKE CLEAR NEXT LIST [L] NEXT 9 NEXT BEEP PAUSE ©[A] PAUSE . SAVE THEN o POKE COPY MERGE LET ERASE LET VAL LET PLOT ▙H▞ LET l SAVE J IF ( NEXT [P] PLOT LET DATA LIST g COPY BEEP SGN VERIFY POINT g▝ASN PEEK PEEK LEN [C]!aSCREEN$ [M]9 RETURN TAB NEW DRAW DRAW CLEAR CLS IF CLS RANDOMIZE [P][I] RUN SAVE CLEAR PLOT 5 COPY CONTINUE COPY COPY RETURN s RETURN FOR CLEAR ▞ CLEAR PAPER DRAW h DRAW LOAD CLS CLOSE # CLS b OUT COPY CLS OVER IF e IF COPY RANDOMIZE ; RANDOMIZE RANDOMIZE IF [L] SAVE CLEAR GO SUB V SAVE BORDER RUN SAVE IF INKEY$ RUN - RUN POINT COPY N OVER [J]v[N]7 SAVE jvj OUT v OVER DRAW j OVER 6[R]vv PLOT CLS COPY NEW COPY [P] LIST ATN COPY [P]j[N]R BRIGHT W COPY COPY OUT YW OVER Y OUT [^ BRIGHT [O]:F OVER COPY RETURN J OUT J OVER PV CONTINUE COPY OUT [P]} RUN oR DRAW OVER CLS OUT R . NEXT j CLS j GO TO ▝ PAUSE DRAW NEXT ) LET """ PAUSE $ PLOT Y STEP ▗! SAVE PAPER RETURN LET wD RANDOMIZE CLS IF RANDOMIZE T CLS IN IN COPY FLASH i[B]q STEP [A] PAPER [P]P' LPRINT Wv CLS SAVE o COPY ^v SAVE CLEAR _ COPY b OVER ▚ COPY OPEN #< REM UjFp SAVE STOP R STOP %T DIM [P] CONTINUE LIST <> CIRCLE [O]F OUT INPUT INVERSE ?▞RND INK T INK P INVERSE CIRCLE PRINT OUT T COPY CIRCLE x[G] LET INPUT ? OVER PAUSE RETURN C[K]F[G]? BRIGHT LET A PAPER LOAD COPY PAUSE READ COPY < OUT [N] PAUSE PRINT LIST REM [E]' RESTORE <[N] IF IF CAT INPUT LOAD [G]A OUT A PRINT < OVER [K]A PRINT PAPER RUN CLS CLS OVER [O]PEEK : OUT [P] IF RETURN COPY <<7788::IN [H] LIST COPY LLIST ▝ BORDER [G]v GO SUB [C][Q] COPY j RUN SAVE OUT B LINE RUN OVER ▝ PLOT PLOT ? GO TO PLOT RUN PAUSE LLIST COPY sv▖g INPUT RUN PAUSE BRIGHT N PLOT FOR COPY l PLOT OUT o RESTORE PLOT DATA COPY e OUT e BEEP h PAUSE gIN COPY h GO TO BORDER RUN bUSR INPUT PLOT [A]BTAB TAN LOAD l NEXT DIM %<=q AND q OVER DRAW VAL >=e< PAUSE SGN 8]LACS : PAUSE }ABS RIN R?©_{ SAVE ~[G]T OVER LET ))<[S] FORMAT LN NEXT REM PABS X DATA " IF &#! LINE q DATA >= INPUT DATA RX^>=j POKE q DIM <[G] IF 7 IF COPY ▙ RUN CLEAR [N]^^W DRAW Y` SAVE IN © OVER RUN OUT TRT NEXT ^`[E]w LLIST HK DRAW OK DRAW FLASH MOVE OVER M READ INVERSE O IF LPRINT o CAT LEN DRAW [N]Y[P]` CONTINUE IF PEEK Y STOP COPY EXP PAPER MO[E]D
6474 DRAW CFIN DCODE OUT OUT INVERSE LEN OVER K COPY FORMAT INVERSE COPY K BRIGHT [K]O CLOSE #[G]H FORMAT M CIRCLE VAL$ PAUSE [D]CDH DRAW " CONTINUE IF b$▖%1 IF LET NOT PRINT IF DATA D PRINT RESTORE <> PLOT # PAUSE CLS CONTINUE RPEEK ▛ COPY OVER o[ATN COPY Wj RUN DRAW DRAW SAVE ▜[U]F DRAW NOT PRINT SAVE _ DRAW CODE @j PRINT SAVE G DRAW RND@ SAVE FORMAT LPRINT AT vFNOT AT IN C POKE FOR PRINT v OUT RETURN ATTR K DEF FN SCREEN$ OVER x▝ MOVE BIN ▖@ DRAW BORDER PLOT BEEP BEEP IF CLOSE #T VERIFY # LINE NEXT FN Y` ERASE TAB M` PLOT DRAW W CLS YPOINT ▜ CLS [L]O POKE INKEY$ OPEN #ODV RESTORE VFV POKE RD[E] CONTINUE FNOT ?©[N] OUT AT OVER POKE PLOT Y PLOT h/RND INPUT RUN AND INPUT LOAD PLOT GO SUB ASN INPUT RUN INPUT Z ERASE IF PLOT Y PLOT {tmF INPUT RUN INPUT AT PLOT RANDOMIZE SGN COPY OUT COPY COPY >=I MOVE [P]F OVER [A]FH[E]C PAPER [N]H OUT ~ IF F[B]K DEF FN RUN [A]57:<SGN RUN RETURN ?A RETURN DF RETURN KM SAVE FN <r[J] RUN 8< RESTORE RUN m LET <>[F]<> FOR 3<[Q] DRAW LLIST ▝9 COPY /` BEEP ` OUT [E]KFHKCUSR RETURN H[B]B OVER [P]?aLN IN RUN A[E]<[P]C IF ? VERIFY ▟ IF INVERSE FOR FORMAT READ ©SCREEN$ BRIGHT HT[K]T[G]Y OVER TeLN I SAVE L) CLS U[N]R OVER PLOT CLS IF w CLS RFBM CIRCLE [K]O OUT [N]"© RUN OTOKHT OVER z BEEP CLS TG[G]MM OVER z MERGE <>[J]l OUT >=//SGN DRAW i LOAD BIN U OVER RUN SQR FOR OUT PR NEXT /^[E]FIPEEK ▛ DRAW MI DRAW OVER KATN U[O]CHR$ CAT OP DRAW [N]W[P]^INKEY$# IF PEEK W STOP WINT LOAD READ M|[E]BD BRIGHT RNOT H DRAW A POKE IN B[O] LOAD >=F OVER IVAL$ [O].©.IN jlINT RUN DRAW DRAW SAVE [D]F DRAW <> PRINT SAVE SAVE ▝[D] SAVE SQR © LPRINT SPPmSQR OVER DRAW OUT IF DRAW POKE PLOT CLS DRAW wD BORDER PLOT IF LOAD ASN dR DRAW NEXT GO TO t{^ BORDER ^ PLOT DRAW U4[S] CLS W CLS BEEP ! OPEN # DIM POKE MBT RESTORE TDT POKE P_JB CONTINUE DNOT P[K] COPY CLS CLS OPEN # COPY IF CLEAR / COPY RETURN / RETURN RETURN ?m CLS RUN ? RETURN IF O CLEAR CLEAR POKE gLABS CLEAR IF o CLEAR 7Rg IF © CONTINUE MERGE j COPY CONTINUE [H][I]4: IF CONTINUE 6▖ POKE INPUT PAUSE CONTINUE LLIST CONTINUE [K]SCREEN$ RETURN OCOS REM CLEAR USR CLEAR dTAN CLEAR }PI IF D#w POKE IF ww POKE B CLEAR [U] CLEAR THEN CLEAR PAPER Dc CLEAR PAUSE CLEAR CLEAR [A]EXP CLEAR CODE CLEAR LOAD 'fO LLIST CLEAR CHR$ [O]>=ACS CLEAR COPY COPY [O]NOT © OPEN # FLASH CLEAR READ © READ ,m COPY COPY FOR ,© NEXT K COPY CLS {AHKY LPRINT Nxa DRAW <ABS [P] MOVE DATA CLEAR STOP CLEAR [O] OUT INVERSE COPY IF + CLEAR ) CLEAR 8 CLEAR H©SQR SQR IF W IF g IF [G] IF AND AND R CLEAR H TO /<INT [D] CLS CAT ACS PLOT [O][L] COPY CLS STEP COPY SQR CLEAR [L] CLEAR n CLEAR A CLS CLS INVERSE CLEAR COPY CLS .ASN CLS > CLS ^V CLS [O]) SAVE CLEAR RUN © BRIGHT CLEAR OR CLEAR [D] PAPER FORMAT VERIFY CONTINUE LOAD RETURN [K]9+; LIST CLEAR CLEAR ▖LN CLEAR IF CLEAR RUN IF POKE INPUT ACS COPY IF _ POKE _ FLASH THEN INPUT IF CLEAR IF _ COPY CLEAR E BRIGHT IF o IF CLEAR RUN IF ~VAL s1SQR [P] CLEAR IN pA CLEAR INPUT CIRCLE CIRCLE >= COPY STOP CONTINUE W▙k PLOT <> LOAD eQ RETURN b▖ IF Q POKE INPUT © CONTINUE [J] COPY COPY COPY ▘% READ OVER FLASH GO TO PAUSE `SGN COPY HCHR$ PRINT DRAW AND CIRCLE OVER BORDER COPY LOAD SGN >=@^ PLOT DRAW SGN FN 8 LIST SGN d=Y PRINT POKE POKE NEXT MOVE CLEAR NEXT PAUSE PAUSE LET LET LIST LIST OVER NEXT pBBxACS COPY RUN RETURN SAVE 2 DRAW © OVER COPY S<>R MERGE OUT RANDOMIZE COPY BRIGHT CLS LOAD STR$ < STEP RETURN IN x PAPER c INVERSE QRSTR$ SLN [R] COPY COPY STOP IN INPUT RETURN IN RETURN RESTORE O INPUT IF IN ▟ COPY OVER LOAD ▚ RANDOMIZE CAT * LET _ CONTINUE RETURN RETURN CLS .2 CLS d LOAD 2EXP ATN LLIST COPY " OVER W[O] COPY COPY CHR$ DIM COPY :▜|) RUN VAL STR$ CAT oLN : COPY COPY 22e>H5f FOR ▙ BRIGHT BRIGHT > DRAW LOAD LOAD "▟ CIRCLE BRIGHT READ ▗&=fIN '▗ SAVE OVER I▖<> RUN INVERSE e INPUT COPY LOAD :*ACS {?TAB RANDOMIZE &:"▝ COPY CHR$ ASN e RUN ACS RESTORE yVAL BRIGHT DRAW LN BRIGHT VAL$ IN CLEAR LOAD ▗NOT LIST [Q]ACS PLOT # INPUT OUT LOAD Q OVER E RANDOMIZE AND DATA H LIST IN RETURN 2AT POINT ex? RANDOMIZE SAVE v.[O][U]> IF = PAPER CONTINUE aABS COPY BORDER CONTINUE <> RANDOMIZE
33599 CLS PAPER RANDOMIZE < NEW d▜X PLOT OUT LPRINT >= LPRINT DRAW WW[I]▚ SAVE COPY COPY RUN RUN 8W IF [A]▚ SAVE LN CLS PUSR COPY RETURN LPRINT LOAD Y COPY 6 FLASH PAUSE ?) RUN [I] POKE CLEAR ▘9 OUT [A]/9 RUN 6 FOR RUN ABS GO SUB GO SUB FN ▗ GO SUB [Q]/ GO SUB COPY COPY FN 6 COPY COPY ▞STR$ 2 STEP OPEN #c OVER BIN c INVERSE ERASE c RUN RETURN STR$ COPY 2[C]d OR INK dz DRAW STEP IF © COPY P STEP RUN [T] RETURN CLEAR ▞ OR RANDOMIZE PAUSE 5 PAPER RUN COPY d OUT 5VAL$ d POKE ▜N= OR d< PAUSE CLEAR _ OVER RND INPUT RND<> FOR CODE c;GSTR$ USR COPY POKE (POINT DIM 6 OVER OUT INKEY$ INPUT OVER INKEY$ COPY CONTINUE <>USR RETURN @Pm OVER ©[I] INPUT ©iIN DRAW NEW iSTR$ PLOT 2JPOINT DRAW [H]t RETURN LET ▝ RANDOMIZE BRIGHT SIN ndKCHR$ STR$ >= DEF FN FORMAT ▖ COPY CLS CAT ▞<ad[I] OR COPY COPY FLASH cH= LIST c BORDER % RETURN c*: DIM COPY z DIM SAVE CONTINUE 4 GO SUB CLEAR [Q]AFN COPY CLEAR FLASH RANDOMIZE RUN [A] FLASH READ LOAD 2Q COPY d INVERSE )d>. PLOT RETURN STEP dH? OPEN #▘ DIM BIN DRAW 2a LET LPRINT :mSTR$ REM CODE INVERSE X LPRINT INKEY$h BRIGHT z[A] GO SUB COPY CHR$ VAL$ d FOR COPY *:"?0 LPRINT | PLOT ©"> BEEP COPY . LOAD Q INPUT PAPER READ b POKE NEXT ^[F]J=}c COPY COPY SGN INVERSE NOT c?cSTR$ ▖ LIST STEP uc[A][I] LPRINT DEF FN OUT VAL COPY USR PAUSE STR$ SAVE STEP Z RESTORE COPY VAL$ © NEW DEF FN COPY COPY 6 OR j|)PEEK 24|<[G]P STEP g INVERSE 9|2USR PAUSE 7 SAVE 7[K] CAT )[O]<=9PEEK STEP COPY COPY < PAPER ▛ LET RETURN 2 LLIST [G][T] STEP NEW [S]62|<TAB [B] OR CHR$ [B]" OVER s STEP U{ STEP | STEP COPY {2 IF u7 RETURN PAUSE COPY PLOT "▝ COPY FORMAT "▖ NEXT GO SUB s?a INK ";a INK !▞`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1CcNOT [ GO SUB LN ` 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 [ INK 1 CLS NOT ``MsPkINT nASN nPIpe`` NEXT STEP [C];; LLIST o RESTORE INK MOVE INK !@ RESTORE MERGE RESTORE INK x RETURN RETURN [K] ODGy INK w$ BORDER 2 2 BRIGHT MOVE CAT LLIST #r <==X4#xLEN DATA CLS <>[K] COPY & STOP LET LIST STOP RETURN DRAW ACS ▛W▛ COPY COPY ▛ E LET [K]8H<z DRAW EXP >=@4 RETURN CLEAR SCREEN$ U*▘%VUSR ▗▗00>= LOAD VAL @3UD LIST SAVE RANDOMIZE N[K] RETURN D[K] DRAW SAVE [K] LPRINT USR KVAL LIST ^ STOP MOVE <>vpb^USR [A]hPEEK COPY IF @"?W REM MERGE REM A▗$INKEY$@▖ PLOT NINT ▖aP TFN P/OIN 2vEVAL$ { OVER PRINT o} REM u*WSCREEN$ u READ BIN VAL$ _ATTR U FOR MERGE CODE wSQR o CLS OUT VAL$ /INT w FOR RUN COPY ] RANDOMIZE u FOR BEEP LOAD VAL ] CLS PRINT CLS ©CODE }EXP q} CLS u▖& COPY BEEP IN ©IN ©- SAVE ▝©7#AUSR LN RESTORE ▘`k[K][K] CAT BSTR$ AND LIST yEXP Pb▜FN `[E]@ LPRINT LIST LIST VAL SAVE xBIN ▘[S]Q LLIST P CONTINUE tFN TINT ]▚@??)SCREEN$ G[R]CODE ▘ACS MSCREEN$ (UFN U@POINT MERGE j@y COPY >_INT sy REM COPY RETURN CLS @ RETURN IF PRINT REM DRAW REM ABS IF GO TO IF ▝ GO SUB PAPER DRAW IF MERGE :<= LET SAVE [R] SAVE 1_xp LIST LPRINT LIST @[H]Q▚ BRIGHT ? SAVE DRAW RETURN <VAL yyVAL ▜B<Bk[D]EXP LIST ?SCREEN$ PUSR FORMAT LIST DRAW }7[P]XSIN BRIGHT RETURN CLEAR AND ▙@4CHR$ USIN STEP IF T REM EPOINT AT uATTR ©( INPUT INVERSE INT CLEAR FOR CAT VAL$ BRIGHT LN u CLS RETURN u BORDER <=CODE PRINT FOR RUN VAL$ CLEAR IN PRINT BORDER BEEP VAL$ [L] BEEP IN OUT i© DEF FN ??©A{?<iPEEK ©[H]l LIST ;yLN Q▖A[?~p RETURN STOP CLEAR COPY {ABS ©4COS kSCREEN$ INT TATTR W INPUT mh DRAW SAVE f©PEEK s READ f,▗]EXP LET FOR BEEP CODE CLEAR PEEK xCODE STOP ▘/[A] COPY RUN CODE n2"▖A LPRINT LPRINT `[K] ` LPRINT USR `!USR LPRINT SAVE J/2 CIRCLE ▝].[P]/[G]uVAL 7?>© COPY CLS COPY GO TO IF m IF u REM CLOSE # REM P[U]@POINT ERASE [U]ESCREEN$ ZLN CONTINUE / TAN RPIW CLS ▘IN ]b COPY CLOSE #`INT MERGE IN RUN PLOT MERGE [P]P LLIST MOVE IF W~VAL u/INT ] RETURN INVERSE [O]_><[A] INVERSE NEXT INVERSE DRAW PLOT , PRINT IF IF PAUSE PAUSE SAVE SAVE DRAW COPY <= GO SUB NEXT qpq!!!3[K]?[K]~[K]© LPRINT DEF FN DEF FN LPRINT CLOSE #hUSR v POKE REM MERGE FN P[Q] FORMAT [R]BG▜9E©[O],5(q| Q▜W COPY u{SGN v FOR Q[T] BEEP PID CAT LOAD ?[P][P];POINT PRINT k[I]_USR STEP NEW UgWo_IN _y CONTINUE [M][E] CIRCLE >= LIST y©@ BORDER LPRINT USR STR$ RANDOMIZE t▝[K][K]▖▜ BORDER OR RESTORE LN [_^#▟C@ w@[Q]@[A]C▚=~[K]6- PRINT RESTORE n LLIST ;L GO TO CIRCLE HIyAT SGN BEEP EXP ▝8P? LOAD * IF T▛[R] OPEN # LET [D]K[L]?{R RUN CODE © LOAD OUT ABS {` RETURN PRINT ATTR _CODE [G]~ RETURN DRAW SAVE [I]^ LET READ IF ▛ DRAW ![N]▝▝9X LPRINT LPRINT LIST SAVE 65 GO TO @?▞CHR$ RESTORE NEW USR ▞A)▞T6?B+USR LIST USR [C]@3▝ LIST TO STOP Ba%▘▖ RANDOMIZE kIN COPY RUN READ SCREEN$ [A]<=a(( RUN FOR }X THEN !8▜[O] RETURN RETURN LIST PAUSE NEW AND k DRAW RANDOMIZE Y/an[P]Okl▝USR ▚xSGN ^PEEK OVER CLS a▘AA▗a{? CLOSE #wB LPRINT GO TO SAVE GO SUB CLS CLEAR CLEAR ABS LINE `>= DRAW PLOT READ INPUT RETURN CLS IF RANDOMIZE RANDOMIZE BIN DRAW c LLIST CLEAR ERASE LET CIRCLE ) DIM r INK [K]K PLOT RUN THEN THEN INVERSE / OUT COPY FOR RUN }SCREEN$ [E] IF ▜yASN /AT X/INT tLN `[T] INPUT COPY jINT ([A]ug RETURN COPY IF [K] RUN CODE _<>/<tN LINE ldI SAVE < ERASE STR$ FOR ▘(INT POKE LINE [R]Q[T]@ FORMAT ]©sNOT uCNOT NOT kI▜▜ NEXT "!@)zw[A] BEEP REM V▞0A©@E[H]wn OUT (;©CODE G BORDER INVERSE REM J>kr0 CLEAR COPY DRAW REM FORMAT CONTINUE )R▚Q7,ABS j LET ERASE [U]1USR [L]5▗E`@USR [J][E]H BORDER F NEXT S :< PRINT KzTAN [K] REM BEEP , LOAD BORDER OVER HG[S]S COPY CLOSE # REM u?INT _EXP PRINT CONTINUE POKE RETURN PRINT LN IN [qUSR [M][G][L]op PRINT REM CLOSE #INT U[Q]J,ZACS N BORDER # MERGE NOT TAB OVER COPY l IF 9" LIST ▝(8 LIST LIST LPRINT LPRINT [K]USR < LPRINT ▞Xp[I] COPY LOAD k![A]▞@[H] H ▞/~▘G[T]▘;[P]W COPY GATTR 7[L] BEEP COPY Wkw? RUN SQR [P] BEEP [L]W[P] COPY [L] CAT O▛OCODE [ LOAD BEEP FOR WPIW▛G[H]C/WATTR © COPY _k©//ATN OUT CLS ©[P]C FORMAT OUT _ COPY SAVE >INKEY$m GO TO <INKEY$s``USR ▝,Bv▗[F] ERASE DRAW 5rL© THEN IN Q[U]COS c6▜CHR$ zpp{[K] LPRINT LIST SAVE LPRINT X8h MOVE f GO SUB RETURN RUN SCREEN$ 5/SPYz[P]sUSR "08yc?~ DRAW LET [N]SIN 5 STEP W5AT H? COPY CLS RUN k PRINT SCREEN$ ] REM MERGE VAL$ W REM UINT UATTR USCREEN$ BEEP IN INVERSE RETURN w FOR CLEAR IF ]MwPEEK } RETURN uPEEK k BEEP NEXT TAB IN RUN BORDER CLEAR DEF FN RETURN GO SUB VTAB [S]ZAT MOVE SCREEN$ /[Q]▜STR$ [Q]ATN LLIST L▛!CODE VAL$ ▝NOT ▘ LPRINT Vr3R? ERASE [H][C] OPEN #PEEK s IF dHW LOAD MERGE PEEK ]SQR W`v FOR ,Hf_jtPEEK UIN REM BEEP SQR OUT CODE OUT BIN SQR PLOT NEXT PAUSE OUT R[D]2 NEXT RSZ_S>= THEN ©▖/ SAVE (<>USR [K]STR$ NOT NOT [B][I]SPOINT b RETURN LLIST IF FLASH HUVAL$ w/ATTR )▝uX REM u COPY uT CIRCLE [B]=SCREEN$ TSCREEN$ E[S] OPEN #▘VAL PRINT LLIST G[S] OR VAL$ uVAL$ MERGE ▗ [T] RUN FOR WCODE GrI IF CLEAR r[C]]▖] MERGE j<@u IF PRINT <iEXP PAPER u DRAW |- ERASE J©xpp PAUSE LPRINT DATA DATA BIN >=▖[I]8PZ LPRINT @@▝▗ DIM COS <={ LOAD w© FLASH ~ CLEAR OVER IN INVERSE ▝ IF INVERSE [A]VAL ABS [D]INT BEEP SCREEN$ _ASN VAL$ ]VAL$ OUT AT ©SQR WABS W INPUT _TAB VABS REM IN $u LOAD PRINT IF BEEP IN U* BEEP CAT A~]1INT uSQR COS 4$PEEK ??>>[K]8xx|USR >=I▘e LINE ▗@ GO SUB SAVE SAVE INPUT COPY OVER RUN LOAD INK ATN ]ATTR ^VAL$ tLN OUT DRAW SGN GO TO SGN n PAPER SAVE RANDOMIZE RSTR$ ▖▝ P LIST RANDOMIZE CONTINUE [Q]I GO TO J IF _ATTR ©CODE MERGE ATTR _ LOAD YSCREEN$ [M]K>[P]WATTR WCODE LOAD CAT 5[F]INKEY$[P][S]~ COPY ` CAT A▝▘#▜▛[H][F]KCODE [H]/ OUT VfYCODE BEEP J© OUT ,_?_/▛t▛ RESTORE READ RESTORE SIN LET r[R] LIST LEN QE▛GCODE )O▝i_9 RETURN RETURN CLEAR © DRAW CLEAR CLEAR RETURN PEEK VCODE U OUT [T]E[T]F[S] PAUSE [T][K]RND[O] OVER [H]?©▘~©; CAT 6▝b[Q]ABS CODE ]STR$ IN COPY [A]/ RUN <= BORDER CAT [A] OPEN #[P]7 COPY LOAD NOT IF 7w REM UR CLS LET [B]INKEY$i@P[G] IF DRAW RANDOMIZE CIRCLE ) RANDOMIZE CLEAR CLS I0SIN L5 COPY PEEK QQ[J]▘ NEXT RND RESTORE 5` [K]USR B[Q] ``>[A]G LOAD n CAT OUT IN `SGN DRAW DRAW [K] RANDOMIZE INKEY$IN IN >= COPY IN ?▘[H][K] BORDER +@ COPY ATTR } CLEAR IF PRINT INPUT FLASH LOAD CLOSE #POINT ERASE POINT IF ASN PAPER RESTORE ERASE TAB PAPER LOAD VERIFY CLS t0▚ RUN CLS LOAD ▝6SGN 1[K]?QCODE ~~||x SAVE Lw DATA TO TO [M]>▝N[U] LET NEXT NEXT BORDER iSIN -$i[P]l LLIST OPEN #[R] VERIFY ABS TAB [TAB VERIFY [T] DEF FN @AT TATTR OUT ATTR b INPUT OUT SQR @ COPY INVERSE ]IN [P] CLS CLEAR [I] INVERSE RUN FLASH ASN . OUT ASN CLS BEEP ABS PAPER ATN IF MERGE INT MERGE }[I] LINE RETURN INT ; ERASE VAL @ OVER [E][A][E]TAN POKE [M] BRIGHT j0INKEY$NOT ?) FORMAT @ RESTORE INT INK $ DRAW LIST PAUSE IF mATTR +VATTR VERIFY LN u CLS CODE >uINT w FLASH wATTR INVERSE z GO SUB SQR WPEEK PRINT CLS [F] OUT OVER COPY q RANDOMIZE PRINT THEN COPY SQR _IN W CLEAR ACS [ GO SUB [VAL$ @[B]WCODE PAPER CODE ]VAL$ INPUT ATTR )VVAL$ BEEP k[T]b▞Ea[C]` TO ©? BORDER ▜FN ▖[D][K]▜u:;%[P]O'#=u>=[A] CONTINUE p CONTINUE ASN RUN OVER SAVE THEN CLEAR NEXT LIST dP.[U] IF POKE CONTINUE LIST @ FORMAT STOP FORMAT DATA FORMAT CONTINUE LET LPRINT CLOSE #[Q] CLOSE # LPRINT FORMAT LPRINT T[Q] MOVE [Q]VAL GO TO P`VAL ),[I]HH0 DIM ) SAVE )[D] POKE 15[[C] OPEN # LIST MOVE [A]k<0 LIST LIST ?USR S"00? RANDOMIZE COPY 33$C(O??Y[F]TAB p}>T+=~)?4 /TAB xiS(/H[E]SCREEN$ 'FB CLOSE #R▙@[Q]@X<>[A]Il? DRAW j@ TO a LIST << DRAW l<[F] OR USR LIST 0l CAT 3Hl CIRCLE 88[K]0[K]VAL$ |8p"xxpIxHVAL 8x8pp8 SQR TAN xTohhh CLEAR $` NEXT o5&oo[K]h[B]l?}f`*dx GO SUB bx"[J]] STEP ▙x(~|BIN - INK [T]BIN SQR ATN *r[S] LOAD FLASH ▗}EXP 6 FORMAT ATTR VAL$ DRAW NK{ DATA `p FOR INT 5[K]`BDD! ]B<= AND `Y TAN 0H INPUT & LOAD [D]SIN IN HhH(- COPY 0(h BORDER r{6[I] RANDOMIZE q8 POKE VERIFY DIM RESTORE ?h8▘ATN ( OVER VERIFY 6ACS INVERSE RETURN $IN COS CLS BIN ( LPRINT k BORDER COPY xx[K]8 NEXT GO SUB s OUT ` INK " FLASH ` INK !)`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1`pNOT [ GO SUB LN ` 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 [ INK 1 CLS <>MsPkq DRAW pk`© CLS CLEAR OUT OUT IN s00: COPY >=NOT eCODE STEP OPEN #c INVERSE !ASN [Q]` STEP PAPER d!` COPY 0 GO SUB VAL NOT CODE 2] NEXT GO SUB V CLEAR !:/ GO SUB [ POKE /J!``▘ RESTORE GO SUB S STEP =^7NOT nbX PINCHA UN INPUT TECLSTR$ USR INK DPON EMhAR$EL DISCE[Q] COPY $| NEW USR } AND o CIRCLE | VERIFY g<> PRINT xPI7FN NEW SAVE FN gyB<=FN o LET <> RESTORE STEP azK▜G MOVE FOR OR {[G]SCREEN$ _ FOR STEP PAUSE ` FOR STR$ FOR INVERSE ~ INVERSE # RETURN COPY >= MERGE o&#c VERIFY o)%%~ FORMAT #z NEW CHR$ na{l_ 8zmW NEW MOVE <=:`PI( RETURN PAPER SQR a LINE NEW a INVERSE ! BRIGHT aNOT VAL ▟` STEP SIN a H7 THEN NOT [P]aPI`AC GO TO ` THEN FOR {<>▝`v FLASH RETURN INVERSE INKEY$!>=a STEP [Q]8 ERASE a OR RUN RUN RUN RUN RUN LOAD LOAD LOAD LOAD [C] FLASH _INT 8DD8[H]@@ RESTORE SIN INPUT OVER w LOAD /w OUT '/.E6~ DRAW TO MOVE `>~ GO TO DRAW 8p DRAW POKE CIRCLE ;v RETURN |; RANDOMIZE LPRINT LIST LPRINT >=jr/ POKE GO TO N OVER DRAW |LEN | POKE BIN 8x LIST -k'' DRAW CLOSE #;m_ BRIGHT ?:vm>_:O IF USR REM SAVE O> INK ©VSIN /O[P]o< GO TO Z[J]OO' INVERSE ▛wlATN o0'? OR RETURN g|INT AND Y▟▘▘INT [Q]0 GO TO w CLS .:{LN USR ©[P]LN BORDER 3 8 DRAW ASN / CLEAR CLEAR (© RUN f_IN o(/ OUT [P] CIRCLE [P]_ ©!XX COPY w GO SUB VAL @@(6PEEK <> GO TO ▖YY OR CODE <(? STEP fd NEW RETURN *8 VERIFY G LOAD ▜ATTR ' FORMAT ) FOR AND O FOR YY~ RETURN ( LINE INVERSE !ad INVERSE q INVERSE p CLOSE #STR$ xLEN ASN uFN >T]]]=CHR$ Nd<>[Q] COPY RESTORE *ud GO SUB _▟VAL$ o" LLIST <>[T] RESTORE ;` RETURN A0b RETURN (k`VAL s FOR LLIST w$ IF %| NEW PLOT Xgw▞p THEN IN RESTORE MERGE STEP wd MOVE LLIST # THEN ©( LOAD <>CODE PAUSE ! FLASH RETURN /PI( SAVE BIN CLS TAN [U]'[M] STEP Ob OR INVERSE RESTORE MOVE STEP BIN FN d MERGE INVERSE LLIST STOP OR MERGE [A] FORMAT MOVE FOR MOVE LIST (<>1 COPY _>GPOINT !n@ihaSTR$ !~nX STEP SAVE LOAD !If GO SUB STEP Rw STEP GO SUB c STEP [N]e STEP LINE d GO TO NEXT "[L]e▞Yiu THEN CCHR$ FOR e THEN S(!PudNOT 7c((`[@~< THEN w<= THEN [ THEN K(COS ▘ RETURN 8CODE FN *N+b|ASN CHR$ @e7`[E](!!g-[B]o[F]gfASN : GO SUB ?!aINKEY$ PAUSE [R]g3[H]PI(= RANDOMIZE @> OR <> FORMAT OVER o@v FORMAT OVER [Q]tY OVER AT ][Q]h OR [L]4 INK STEP GO TO SIN STR$ iUPI GO TO LINE c` PRINT =▜!Afo~#fo"[N]` LET INVERSE x▘USR v▗PROGRAMA: FAYO VAL GOMEZ[Q]GFIC0EOSA▘ GO TO MUS(!ILNOLA OPEN # COPY 1}b<=AD9▘[Q]2UN JUGLEN oRfEDEWNEITAN 6S0i0UENZ PRINT TA[P][M]P*[Q] COPY D RETURN [B]STLN K▛PIzI% POKE ▙KEMP<q{URSINKEY$E COPY ~[P] DRAW INT ATN =$T▞ CLS ?A OVER ?n"L FOR OPEN #PE*RFISTR$ E CAJRR OPEN #[Q][Q]BOBI RETURN ▖LCTP f%CHR$ ▟ IF MOVE [Q]Y1DKULSG DRAW 4{[S][Q] COPY f▙STR$ f DRAW f_Lx<= RETURN THEN SAVE DATA CAT SAVE COS ?© COPY BORDER ▝ LET POKE LIST >? COPY LLIST DRAW <> DRAW ~▘E▝ COPY COPY LPRINT 8 CIRCLE [H])© SAVE F RETURN -[P] COPY NEXT GO TO $7 DRAW ETAN COPY ▜ COPY USR LIST #LEN [D] DRAW E©f CLS / SAVE A?SQR STR$ ?C DATA RANDOMIZE USR SAVE NEXT RANDOMIZE OUT SIN 8 RETURN |[Q] COPY x DRAW q OUT [R][C] READ USR DRAW 6 INK LIST pNOT ? OVER CIRCLE INVERSE D LPRINT ?▝[Q]NOT pq LPRINT INVERSE nd LPRINT [H]©; LIST !▝USR [C]BUSR LIST EB© RETURN ; CHR$ HUSR ?[P]@Z COPY CLS ?I LIST $s? LET LPRINT ~ BORDER RETURN A LPRINT @▜wUSR >▝ LPRINT 0> CAT LPRINT ▜ DRAW LPRINT ▝[O]@▘<USR `H| DRAW `=>=SIN x▖ 5 ! RETURN YoATTR PAUSE x SAVE ▚ 3"▘C<=x8 LPRINT 6LEN SAVE ▜ ?@▚00STR$ DATA BRIGHT pp8▟E▜ OPEN # SAVE `STR$ %`pyBIN ! LPRINT LPRINT DATA ▝ PAUSE INK LPRINT cW>=8Z DATA RUSR ~ NEW P( TO `NOT ▖0 TO LPRINT rLEN UUSR AND CLOSE #<>Z[I]8 INK CIRCLE TO @, LPRINT ~,4[B]8[Q][M]??[D] Ii LPRINT NOT [I]RND` ©USR STR$ k<`[P]▘ LET ? LIST 8`>H POKE DRAW LPRINT ©NOT U[G] COPY CODE © LPRINT x[Q]( CAT CIRCLE RETURN F© BORDER ( SAVE ? READ & SAVE ▘H▞@O COPY BORDER #[P] DRAW RETURN @|[D] LIST ~T CAT ACS q RANDOMIZE SAVE @G:-[O]# LOAD " RETURN ▞ LET ▜Gt-FN K COPY READ ▝ COPY N RANDOMIZE LLIST [K].gIN DRAW 4ABS LN [M][L][P]HPI/▚@/.<px COPY COPY E LLIST PAUSE 8RyLEN ▛ LOAD IN t REM ▗[T] RETURN CLOSE #▜▛<>FN INPUT AND READ COPY S LOAD OUT DATA BORDER PI@ CLEAR R9O LOAD RUN IF PAUSE TAN RESTORE ? LOAD CLEAR ▙ ERASE © LOAD NOT POINT R RANDOMIZE p[B]© INT PLOT M CLEAR O7[N][VAL$ CODE wVAL$ # RESTORE +[K] POKE VAL$ }BIN G= PLOT COPY rn CLOSE # COPY ATN CHR$ ©/ COPY mVAL$ + MERGE CAT VAL$ ▘S INPUT PAUSE Qh CLS ▘/+© SAVE DATA O*U/ REM GO TO [P]W CLS *SCREEN$ SCREEN$ IN b ERASE MERGE ? IF PLOT SAVE +_V INPUT FN + COPY CIRCLE REM wEXP VS;l+ OUT RETURN (3 CLEAR U PAPER PAUSE ▜IN INT g MOVE SQR UJSCREEN$ ^POINT ?b FORMAT [R]] d*RND^W CLEAR T COPY +4 POKE +P RANDOMIZE SCREEN$ FN [R]IN GO SUB AW` THEN ©'T+u(kAoCHR$ SCREEN$ STEP ©nm RUN ▞ OUT DRAW +J CLS 5+IN RUN A OUT OVER CODE m LOAD PLOT NEXT FLASH COPY LPRINT o OVER ©W+ COPY NEXT A NEXT STEP KD< CAT YmAsEXP mCODE + CAT m©X COPY [S] POKE COPY g RANDOMIZE ? INK RETURN O' CLEAR ?<> RETURN TAN [D] PRINT ?AT PI CAT ATN [D] GO TO TAN h' DIM COPY O DATA CLS BIN 5[U]y> RANDOMIZE [H]x` INVERSE AX`xx8 BRIGHT 7[N]JN8p8 DIM INKEY$m2`hSQR m([L]XP+h <>PEEK CAT NEXT 71:(V[ CLEAR ` STEP wu>2`V`[N]lu RESTORE !fvu6 MERGE [N][B]a LLIST <>[N]Yg[T][H] STEP MERGE v`USR [A] STEP NEW v>G:Qw`[Q] RETURN $ PRINT BRIGHT Rv LET 8 STEP v COPY "p" COPY EXP "©k""[H] COPY BRIGHT "IN ASN "[A]"[P]© INPUT " OUT PAPER "[Q]"SCREEN$ ? RUN "o GO SUB "VAL "▝[P] CLS "X NEXT "7NOT STR$ d RETURN COS vNOT (ASN [ RETURN !SGN " GO TO TAN OR DEF FN ©,vG0[Q]PAUSAATTR [Q]FUEGO[Q]A OVER IB -IZQUIERDDFN E LINE [Q]GBES3CI,GS SHI CIRCLE GFTCEN CLOSE #T%[Q]J"Ow!'[R]( THEN PEEK # CLS <>*d} RETURN z0 IF THEN 8 LET GO TO > CLEAR r#w# RESTORE SIN SIN 5~Y LLIST <>2 READ THEN RETURN LLIST J<>"ZXCVASDFGQW`T1234509876POIUYf#LKJH !MNBUSR [U]! NEW NEW "8Giw FOR RESTORE GO SUB VAL STEP ATTR DIM NEXT <>! TO NEW 6 BORDER #- SAVE CAT > NEW GO SUB G GO SUB ^<> BORDER LOAD rCVAL NOT REM BORDER NEXT PRINT OR MERGE RESTORE >ATN LINE CONTINUE =2USR j LIST BORDER CHR$ IF BORDER LLIST MOVE STR$ LET CLS GO SUB ML REM ! DEF FN DIM " REM NOT TAN CONTINUE RETURN RETURN XVAL U:V REM <NOT RANDOMIZE THEN BORDER RETURN CLEAR " INVERSE n2 INVERSE f GO SUB sZ REM GO SUB {/ REM INVERSE RESTORE RESTORE INVERSE LLIST [C]NOT i RETURN DRAW COPY ~ >= CLS !4 REM STEP +|k IF < CLOSE #G NEW ?▞|` REM ^#V GO SUB S BORDER DIM WAT ~~x NEW USR 1▚~SCREEN$ Y▖ CLEAR e LINE l$FN CLEAR SGN SCREEN$ [P]H FLASH ERASE ATN [P] CLEAR [P] MOVE [D] CLEAR [P]^ REM CLEAR ;[P] CLEAR ▚ STEP [P]▚ COPY [P]TAB COPY NEW TAB ▛e▗Df=lU DIM 2 RETURN :U REM OPEN # RETURN y AND OGIN ! PLOT SAVE s DATA PLOT K+!F #ASN ~# DIM P`N# THEN y NEW LIST W=BIN SIN LIST CIRCLE ]CODE COPY PAUSE ▖ CLS v INVERSE !INKEY$ INPUT CLEAR ! DEF FN INPUT ! DATA REM "/ REM !JA FOR "EXP STEP FOR RESTORE b PLOT LPRINT <CHR$ " REM :*ATN ( LET RETURN LINE pFx! RETURN @DPY GO SUB C DATA S REM [S] THEN : THEN CHR$ REM THEN INPUT NOT z GO TO CCOS CHR$ )w DEF FN [Q] DIM >? NEXT )V<><> OUT L PLOT DIM ACS GO TO w9AE- GO TO DIM M DIM m DIM DIM <> RESTORE LPRINT REM FOR yU4 PLOT PAPER IN INKEY$lcO<+ CLS P LPRINT OPEN #<=SGN SIN FN [O][F]▟~vpjd^YTOKFC? PAUSE I GO TO e FOR [C] GO TO SAVE GO TO POINT LLIST INPUT & READ GO TO FOR ! RANDOMIZE GO TO MOVE INPUT RETURN IN INK INK THEN DRAW DEF FN RUN $ INPUT CLEAR ABS CLS $ OUT LOAD A= GO TO PEEK "sG kEo RUN AIN OUT [P]©9 RUN [N][U]{1 PRINT INVERSE `n, DRAW INPUT SQR g = COPY "▘b CLEAR FOR CLEAR X7y!"[K] BRIGHT SQR CLEAR FOR OUT ?a[O] NEXT (MD GO TO | IF DRAW vSQR ASN ASN COPY PAUSE OVER INVERSE 4b RUN ) GO TO NEW = %Zo[C]iCOS CLOSE #[Q] CLOSE #o CLS IF 86= CLS CLS INVERSE NU,[P]ACS LOAD CLS , STEP }H,)SIN w9.<>%[A]r,TAB . IF ![F]▚% GO SUB CLEAR // GO SUB DRAW IF <= INVERSE <>[D],X$▝ CLS RESTORE m PLOT h! OVER z[C]▖ RETURN BEEP _ IF REM &S FORMAT OPEN # PAPER BIN n>< OUT ▞USR `h[I]/INT [R]h ERASE b4IN RUN e RUN - REM RUN H[O]OSCREEN$ M LOAD BEEP ![C]ATTR # FORMAT 6no CLS i0 FORMAT INPUT = INPUT DRAW UPU LOAD i FLASH IL CLS >=G@QU IF TAN IXZ/LEN (k=: CLEAR PRINT GO TO PAPER R▛G INPUT K RANDOMIZE IF ^[P] INPUT CLS IF COPY CLEAR 7CODE COPY lx COPY CLEAR 7 GO TO CLEAR 7 OUT ATN C CLS z CLS BEEP V9U;SQR ZAT [O][K]TAB V +SCREEN$ [K]FABS M>ATTR ZINKEY$l VERIFY TAB C IF FN i[G] ERASE CODE SCREEN$ i PAPER TAB PsuZTAB RETURN PEEK TAB Z TO w~[U]nABS mj TO V BEEP MERGE PAPER -+kSGN Vw[H] CIRCLE CODE LLIST 4z COPY j GO SUB o POKE VAL$ IF REM M RESTORE POKE t[H]'`ATTR NEXT /U{M RETURN ASN 7 OUT ^[Q]ATTR 9 CLOSE #[R]q COPY INT TSQR IN M*OQ[G]NSCREEN$ GO SUB [N]Q~FN IF ▗ 8 088px88Z[H]AT TAB +<>U RUN [D]VSCREEN$ FOR k}IATN MOVE LET ATTR NOT REM MU* RUN . IF gIN PRINT ]© RETURN j CLS CLEAR k PRINT INVERSE INPUT ASN {SCREEN$ PRINT z OUT U OVER TAN v▛ VERIFY ZTAB UATTR =^ATN WZ- COPY RND,[H] COPY S INVERSE + FOR LEN TAB NEXT GO SUB s?a INK ";a INK !▞`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1-[K]NOT [ GO SUB LN ` 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 [ INK 1 CLS <>MsPkSCREEN$ CLS POINT BEEP STOP ATTR H``NOT <>iCODE STEP mf INVERSE !ASN ` STEP tg PLOT !` COPY 0 GO SUB VAL NOT CODE 2] NEXT GO SUB V CLEAR !:/ GO SUB [ POKE /!`` RESTORE 9 GO SUB S& STEP =^7NOT 5 NEXT > OPEN # RETURN NOT b PINCHA UNTE GO TO INK A DON EMAR[Q]%EL DISCE [Q] COPY PRINT RESTORE MERGE OR INK INVERSE RESTORE CLEAR RESTORE STEP a STEP @d STEP TAN e CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET INK [S] CLS GO SUB M[M]_ NEW OPEN # COPY :$ PAUSE USR G[R]<LN STEP NEXT USR ▘CODE <>$|USR } AND o CIRCLE | VERIFY g<> PRINT xPI7FN NEW SAVE FN gy<=FN o LET <>yh&))SIN RESTORE STR$ O:COS USR NEW ▝o| DEF FN CONTINUE :~EazKP▜G MOVE FOR OR {[G]_ FOR STEP 6a FOR STR$ < FOR INVERSE ~ INVERSE # RETURN COPY >= MERGE oCc VERIFY oI%%~4#z NEW CHR$ OPEN #a{▟_8z▙W NEW MOVE <=:`PI( RETURN PAPER b LINE Kb INVERSE !AbNOT PAUSE a` STEP bI THEN 7 THEN NOT bPI`h GO TO ` THEN , FOR {<>v FLASH RETURN INVERSE INKEY$!4-b STEP 87b OR RUN RUN RUN RUN RUN LOAD LOAD LOAD LOAD @r FLASH _INT 8DD8VAL @@/ PLOT INVERSE SQR INPUT INVERSE / INPUT CLS 'USR RESTORE /E6,~ DRAW TO >~ GO TO DRAW ;8p DRAW ;v RETURN '[P]| LPRINT LIST LPRINT Ymr/ POKE GO TO N OVER v DRAW || POKE BIN e-8x LIST '' DRAW CLOSE #PITAB _ BRIGHT ?:v STEP g_:OXABS IF SAVE O[L]>©VSIN /O[P]o< GO TO Z[J]OO' INVERSE ▛wlATN o0'?▟ OR g|INT AND ▘▘wYINT [I]0 NEXT . GO TO :[P]sLN USR LN 3© ASN BORDER 8 CLEAR DRAW /( RUN CLEAR fo©_([P]IN /[P] OUT © CIRCLE _ RETURN ? NEXT :CODE d RETURN COPY ( RETURN 8CODE ▜_!COS d^#V GO SUB SVAL d> COPY 2▛$*$ FOR }PI>= STEP |d<>CODE PY GO SUB C[D]d,[R] d THEN : THEN xLEN T INPUT } OPEN # RETURN zCOS GO SUB +|ASN OUT <> COPY PSQR dCHR$ d STOP d OUT d▘ COPY [P] PAUSE COPY COPY P<@ COPY xg. THEN < THEN RESTORE [D]JDSTR$ j▝BK FOR STEP _a FOR NEXT GO SUB sSIN e RANDOMIZE FOR MOVE ~[T]SIN w# CONTINUE >o[F]g RESTORE GO SUB [A]{"<> THEN LN Gz AND DATA GJ} VERIFY o| OVER RANDOMIZE vK DATA K OR ||STR$ y>[B] INK O INK @:O/CHR$ [I]e INK FLASH by INK +4 CONTINUE VAL 4:XfPI>= INVERSE !Yf [A]cVAL REXP @< INVERSE w RETURN 2 P INVERSE 6+ INVERSE 4XD RETURN !:810 RETURN 68"TAB #yPIBIN [M]aCODE STR$ THEN OUSR ▜ COPY VERIFY 0 CLS AND !Wf AND VAL w+{ AND 0 FOR x AND Gy AND (O RETURN (BIN Bg<>ACHR$ y00: COPY [Q]!X▖X COPY w GO SUB VAL @▞@[U]<> LPRINT OR CODE <(? STEP CONTINUE NEW RETURN 8 TO [E] VERIFY Q▜Vd FOR @ AND O FOR YK~ RETURN @ ( LINE CLEAR GO SUB f INVERSE q CONTINUE p STEP AT 0 PAUSE fSTR$ BASN g>@T]]=INKEY$CHR$ PAPER f<>[Q] COPY 0XATN )<> RESTORE *g GO SUB _▟VAL$ o" LLIST <> CONTINUE RESTORE [Q]` RETURN A00c RETURN ( FORMAT ` NEW FOR LLIST Sw$ IF %|c OPEN # NEW PLOT Xgw@RND THEN IN RESTORE MERGE STEP g MOVE LLIST # THEN ©( LOAD <>CODE FLASH RETURN /ASN PEEK |( SAVE POINT LET /CTAB MOVE FLASH Oh IF INVERSE RESTORE MOVE STEP Bg MERGE USR INVERSE LLIST STOP PRINT y NEW !xRNDg PLOT ~ FOR <>@ :[k NEW 0zG:t n NEW 8VAL !>h@[J]N#F GO SUB CNh*8h THEN | ( STEP IF m! BEEP RETURN <8! COPY ;" RESTORE !9h"shpuh STEP kh!=h4N LET RETURN 8!<h~PI>=6!tphGaLEN THEN Q( GO TO !▖ RETURN >2+▘ DIM <>[D] LPRINT LET COPY STOP COPY GO TO COPY DEF FN COPY READ CODE ![T][Q]_k`k<> RESTORE OR STEP v(yhSTR$ c / GO SUB K REM INVERSE *, INVERSE V$ THEN ▘-z[B]_>8Q{ RETURN 8> THEN ? STEP FN hy VERIFY @!O NEW < MERGE OR )BIN h_z DEF FN Ww$ IF PPOINT +<>▖[H]/>= CONTINUE RESTORE THEN GO TO INPUT PAUSE CODE 2Xf STEP ▜FN D▛i[A]▛ STEP d[g CLS >© FLASH RETURN NEW . LINE OUT i BEEP CODE NOT jPULSA: [Q]BESPA!CIORA RE INIALIZA ERASE DO[S]PEEK T~MNT#▖U COPY ik} INVERSE n INVERSE fHPI GO SUB B TAN PAPER r*LEN USR RESTORE ],▗ LLIST FORMAT 0>=▚ LPRINT ▟USR B INVERSE N:F7 LLIST 8 INVERSE < RETURN BORDER < AND 0))Z<=i NEW PLOT USR STEP [M]a<>0 COPY STEP SIN STOP STEP ASN USR `BIN `!`Su-▗ IF STEP TO tr!J CLEAR n STEP -jUSR CONTINUE CLS STEP INK a THEN oCHR$ GO TO h PRINT STEP NOT ABS @ STEP WK STEP =m STEP u LET STEP z"j STEP FORMAT LLIST WTAB g STEP Ph STEP <▙~ STEP ]i STEP PAPER TO <>B NCODE 2[k2Z INK ▖!P"VAL$ USR ![I]▝ FORMAT !TAB | LIST PEEK [S]i CLEAR ![L]i CLEAR 6 CLEAR SAVE ! ERASE n"[Q]n!INT n[S]n PAUSE _:0[P]nPI OPEN # THEN THEN ▛:^k NEW (!]k~4"; NEW ({2!k:n THEN © TO FORMAT m~ THEN C(<Q@ THEN K= NEW wW▛k~ NEW DRAW THEN S(PI.=, THEN [( RETURN <<wG! CIRCLE (~5GfEXP x NEW 0SIN ▜!_k? RESTORE INVERSE LLIST INVERSE n&D THEN }()& COPY D GO SUB FOR *TAB USR :[B]CODE USR ▖"2FN COPY VAL [G] CIRCLE SIN 2f;!?lKF`H STEP O|l CLS NEW ▘@ SAVE LIST SAVE GO TO DEF FN " LIST LIST SAVE LIST LPRINT LIST M &*LEN LPRINT LPRINT !C O LPRINT USR LPRINT @@[L]& RUN @&bUSR USR ! LPRINT USR ▗© CONTINUE CONTINUE POKE EXP DATA [C] POKE CONTINUE _l%ILr_©^<> INVERSE ©,|▘▝▚▜!TAN l~4▜▜!ASN LPRINT p#s#r<>Vq[ NEXT PRINT F#^#~## RETURN FN 0W{ RETURN LN 0H THEN { NEW VAL G RESTORE THEN y( STEP 1e STEP FOR d LLIST LET = MOVE ! BEEP :(5* MERGE FN <> LIST USR RETURN LPRINT ~[B]88p[Q][M]$? LPRINT LIST ? LPRINT LPRINT DRAW [I]p8` ©USR [C] SAVE <` LET ? LIST 8`> COPY LIST )*COS USR } NEW G|[D]▜_▜▝!b DATA STR$ FOR !Y>pw# BEEP IN <>(7Z7"TAN CODE W2n> RESTORE STEP INK m>CHR$ #[G](#>X▛ LLIST 8z2XnPIBIN IF m RETURN CIRCLE GO SUB D NEW 2n<> RETURN q_ FORMAT pW;[Q]ESIN !nJjr~w REM MOVE [A]v<>G~ RETURN x>=xSIN W STEP X▟>8PEEK 6CHR$ xUSR 6SCREEN$ W<> OR PRINT [B] RETURN 0>EC OPEN # LET STR$ REM COPY COPY POINT lTiVAL$ [S] COPY [D]QASN [N]d▘/CODE 2[P]n*[Q]n COPY >=O[A] STOP ~# CLEAR INVERSE ▖![S]n[R]PI(U_/▝[S]▘[B]jQW RETURN USR PAPER [B] )VAL =▞Q GO SUB STR$ CLOSE #D DATA [E]8 `hx0[Q]H8P▖(XFN ( FLASH `0p@FN X[A] CLS RESTORE FOR ▞_U DATA COPY >GUSR [K]![U]pX~ FOR VAL ~ PAUSE !lo[M] STOP PRINT PRINT ! PAUSE ▙SGN [Q] REM <>KuH|[M]DpX COPY [A]FN >!LqdPqLN LET ?Lz FOR MOVE qUSR J ▛[N]z▛ MOVE A DIM TAN READ L CONTINUE [O] DATA ^[E]R^[F][D]RGB▙4 DIM fQE->=[B]u+:C[J] DEF FN w MOVE 2BIN = DEF FN g<"D%)D[U]/RND)t[U]SQR ▛ FORMAT READ .3)J@ ERASE COS ▛z@s BRIGHT COPY =K LINE CLS [A] POKE ^ READ INKEY$ OR X[F]CODE ▗ FORMAT DATA POINT @IN [D]DGGD[O][D]D&h BORDER >CB,BDFFE LPRINT FDCB"[C]"E OUT K ;SQR [I]t OVER ATTR AP<[ LOAD FN j> TO |RUSR `Z20p LPRINT !▗<q LIST c SAVE BNOT NEW ~0+/`/` FLASH RUN /,"7USR ;!"SCREEN$ /<>EA OPEN ##[H] BRIGHT [O]Ir+''SQR ©' COPY NEXT O2'_'g[C]©13STR$ 6B CIRCLE a6`<A[U] CLS USR n▜k_'#[D]'8 BORDER rSQR RUN CAT / INPUT CAT TAB R2[H;[L] STEP Rt:PEEK PRINT ~4 STEP t CLOSE #ATTR INK USR BEXP LET CHR$ OUT i RETURN LINE [C]sY< PRINT LET PRINT >(T1[S]g LINE NOT ▗! PAPER r@z// CLOSE #h2:3<=.0 COPY [G]y5 COPY [L] MOVE [T]3 COPY [J]9 COPY [P]= PAPER 4#[Q]2 COPY [S]7 COPY [N]@J4 COPY DTIEMPOS&PRIME[A]R JUGADO RETURN SEGUN©BIN T$C CIRCLE 'CUART&▗ CLEAR CO AND _YU,[A]ULN [N]:|`PICHR$ STOP sPOINT TO 6"s)USR SCREEN$ Tu@]X PAUSE Qfp[E]o▖x DATA w[Q] TO DRAW LLIST ~INKEY$SIN tG> CLEAR FOR L LINE CAT i POKE ▘ LINE PEEK t GO TO =W=▘ RESTORE PI/O1X%& COPY [Q]D SL LET PI[R] LA $FAS OR B N PA[G] DRAW IEN8` PRUEBSTR$ COPY [F]a7 STEP CODE tATN BEEP L INVERSE ?ATN k SAVE ,= CIRCLE ~FN :[U]<>v OR CAT gSTR$ PLOT <> LLIST CLOSE #A<>!ACS `{USR DIM NOT c`:` PRINT DEF FN LIST T<= LET =!*u]>=u DRAW U INVERSE !uKAT b LINE } CONTINUE THEN NEW POINT [H]BIN INPUT LPRINT POINT PRINT ~ LIST READ BEEP P] NEW 0+©`8lu RESTORE COS g&p[B]aTAB 8 VERIFY Y>Va2 STEP MERGE vFN 8▖ CLEAR "> PRINT CLEAR THEN ~CHR$ ^v CLEAR n CLEAR fL: INK PIBIN iP4 CLEAR ~ INVERSE PEEK 13&8PI CLEAR 6▘[Q] INVERSE RESTORE LLIST CLEAR u+t RETURN ▖,[H]< RETURN NOT <_* RESTORE NEW W"W LIST SIN W NEW 0BRND$ RESTORE POINT Gz NEW CAT q VAL CLEAR w?▜! OUT ▖HADDRNDutw REM COPY wDD$$$!"$ IF WCODE utwUPOINT IN TO IN ASN CLEAR LET =CHR$ ▚u<> STEP )~ CIRCLE CLEAR Vh THEN THEN WT NEXT ^ THEN RESTORE LOAD STR$ J MERGE MOVE STEP bTAB ~<> [S]@i[B]r-_]+ CLS ASN Q LINE INVERSE 3+ACS Z INVERSE |[B]C[S]SIN BEEP 33WH▛ CLEAR C'1[F] OR NEW BRIGHT %kO INPUT INK {[-[R]▛K[F]oSWoVAL$ _ PLOT PAPER +O©EXP RUN [L] FLASH OPEN #SIN k'<=TAB ACS READ !e INVERSE CODE BIN CODE NEXT NEXT LOAD [L]C;%m OPEN #G OR INVERSE SQR NEXT THEN IN USR SQR C LIST doATN [P]S/&;#K' FLASH LPRINT oW BRIGHT P CLS CTAB ?ATN T2ATN NEXT CODE S OVER C INVERSE INVERSE '[P]+ INVERSE INVERSE Sw<=z LIST FLASH ?g LIST ,[D]$^ RANDOMIZE #[D]STR$ + BRIGHT FORMAT THEN CaGO" BRIGHT oG<=7LN #C3UK&<= ` LPRINT `[H]KP©[Q][D][P]u) AND NEXT INPUT ▙eE GO SUB TAB ) RANDOMIZE Z LIST x]ebEZK)" BEEP [J]EXP #AT Z=Of RUN -z OUT K CONTINUE COS FLASH LPRINT aQ DRAW CLEAR 5^0ASN Yu POKE MOVE GO SUB uI OUT 4[R]7v?;;▝[T]M5VGG[U]IN ' BRIGHT E_i BORDER zTAN ;A[N]/M"OLN STR$ CQzc▞Cky/▟ LOAD <>ATTR SQR CODE ATTR k CODE NOT MOVE )zNOT GO SUB n0 INVERSE EXP NOT LPRINT ASN [R]Q MERGE [R]/G PRINT SQR SQR #c THEN CONTINUE INT ATTR IN O>( GO SUB Q<>F. INK $]▗ INK #[N] LET [L] LIST [N]w#Krt%</ABS ;2ATTR WW LOAD SIN 'CIN ABS g_SGN GO SUB NOT CONTINUE ASN o;ZP CLS *&▞K[R]TAB <> CLEAR ALEN !>n▜[T][J]`0AU( LET 5 SAVE [G]G]62[F]▟ PAPER [S]] LINE 2[R]a{TAN Y)© RUN BRIGHT CLS OUT INPUT q FLASH NEW NEXT LOAD #STR$ INT Lg INK >P_B LOAD MOVE ]rA%IN mi#n1 DIM v RUN [J]U FLASH 3 INVERSE M+/ OUT SQR STR$ yI[F][B]qQ'6SQR #u COPY Q COPY /VAL CAT z PAPER PRINT [S]VAL$ CODE OUT [I] PAPER <>]L]LEN IF WRNDv;oLEN X▝ READ PAPER l} BORDER ;PEEK ATTR LOAD v'Y[A] LLIST x CLEAR INT ▝ NEW ~ GO TO PEEK ▛L]▝[B] COPY . CIRCLE RETURN RETURN COS ' DRAW INVERSE INVERSE " FORMAT DRAW CLEAR FOR CLEAR X7""y[K] BRIGHT SQR CLEAR CLEAR FOR aPEEK R,MD GO TO | IF DRAW vSQR VAL V*VAL$ USR RESTORE AT MERGE FOR PI GO SUB R} MOVE LLIST CIRCLE V VERIFY <= CIRCLE [B] TO FORMAT FLASH PI<>z AND RETURN ` CIRCLE z RETURN j FORMAT { AND RETURN H CIRCLE {[F]V RETURN N INVERSE 5▚lSIN GO SUB B0!TAN WNOT IF m:<PI(* PRINT GO SUB KH STEP [B]© LET *=VAL$ wF*@:?CB>=[S]FECODE 2, FORMAT *k}} THEN < AND ?Ov©*m`CODE <LN +!J4~ NEW (_xPI IF L© STEP [C]g[H]"X=C CIRCLE _2_c THEN VERIFY 2cg CLEAR EXP ;o PAUSE COPY [U]cBc GO TO Y[A]c==G GO SUB CCODE M©!R NEXT ,c SAVE OR +[ BEEP STR$ 8sNOT OeUSR !AT © VERIFY ^LEN [Q]LEN INVERSE #INKEY$ FOR ACS FOR w# MERGE RETURN INVERSE <>?B>H[Q]V4 FOR -- NEXT <> LOAD !$ySTR$ ▝<| INPUT INPUT AT CLS LIST © LPRINT SQR {USR SATTR RETURN DRAW 7v SAVE USR LIST MERGE wIN [K][F]@ LIST OUT M[O]sUSR Ps NEXT OR I CLEAR THEN F 9 INPUT 8Z▜W!V_]![K]▘Z BEEP !C[F]( OPEN #[F] MERGE STEP }e MOVE STEP ACS 8>RND [N]<29h!V CIRCLE CLEAR IF LN <>INT ?hT[D] AND jz AND ▝ CONTINUE Sp0{ AND MOVE TT0PI<>7EXP TAN b[I] LLIST ▝PI FOR 7gnv{ FORMAT CLEAR ▘>2a>=2USR >iBIN NOT r CIRCLE BRIGHT CLEAR LLIST COPY COPY COPY PRINT © CONTINUE (IN [K]▚[Q] GO SUB - PAUSE PEEK i LIST SAVE #i[K] RUN POKE DRAW =PI COPY YTAB NEXT q;[B] COPY M COPY LPRINT [U]A_P IF /( AND LIST ohk[P][A]▜FN RETURN ? 7 BRIGHT ) OUT FORMAT cg; COPY USR y[P]Yq COPY ERASE ; OUT w OPEN # GO TO COPY SAVE AWT4Mq▛ FLASH PAPER 'O OPEN #$#▖INKEY$ MOVE wtOHEXP [N] CAT >=Ap[G] LOAD Yq RETURN [P] RUN INKEY$i COPY > MERGE U[S][S]i[K] OPEN #ACS ACS <>ISTR$ A PAUSE PI READ "PIi INVERSE ] OPEN #R NEXT 2{nAYSCREEN$ RESTORE q%[H] OR COPY FORMAT '>o LIST CODE [B] INK CODE SAVE RETURN © PLOT ▗i9 CLS COPY COPY ▝9TW COPY READ ASN t FOR CODE ATN OR SGN SAVE CODE LIST [B] TO ECODE READ 3EPI BORDER PEEK TAB 9 DRAW ▜9 VERIFY >NOT WACS SGN GO SUB INK LLIST LOAD IUSR /[P]?CODE [T][S]INKEY$CODE ▘▜▗ RANDOMIZE LLIST 9 BORDER ' SAVE TAB 9IN VAL CLEAR NOT [I]oWc RETURN INPUT `I FOR POKE [I RESTORE USR [P] LET LET [D] LET LPRINT RETURN 4 LLIST !3 FLASH Z'|TAB 9 LOAD , COPY NOT ▞ BORDER W_ SAVE CAT %}STR$ TAN RND_X LLIST SQR 0 OR K SAVE [N]ASN PLOT © CAT LEN ]+[B] LOAD ▗_[P] LOAD Q FOR .4 LIST STR$ - BEEP RETURN VSQR [H][E][I]ATTR !TAB !INT ▝ CLS CLEAR [P][I][F][T]a RETURN E MERGE LPRINT C_[M] POKE ▛- COPY 0STR$ OUT [T] CLEAR INKEY$SQR RESTORE %CHR$ B}[K]▝▝[L]gf LPRINT C? LET C[R] CAT ▝k0CODE LIST |} CLEAR <=C CLEAR RANDOMIZE M OPEN #7TAB LPRINT INK Y LIST [L]C READ b[O] POKE <>[R] MERGE CLS ?5[G][ LINE J[[H][H][P]#M[P]&[D][P]SQR RUN 77[A]▘4 TO L COPY eIN NEXT LPRINT COS 0STR$ [I]Y, COPY % PAUSE RESTORE RND▖[R]HH[L] RETURN [N]BSQR CLEAR STEP STEP [U][A]c? OVER [U]ecNOT [G]▖) GO SUB RUN POKE U)PCODE FN )© TO [N] ERASE RSQR [R][R]BIN 7[A][A]PIss[T]▗! CAT TO [L] CAT 7SGN NOT [J].m CLEAR [Q]▗+*82_/_CLEXP CONTINUE ( CLEAR DATA $[Q] CLEAR BRIGHT BRIGHT C[E]TAB CIRCLE g CAT [F]STR$ ! OUT BORDER dK-[L][K][D] RETURN COPY USR [K]""? PAUSE PAUSE CLEAR o COPY #8 RESTORE NOT ! RANDOMIZE [J]%-ff MERGE ?9 LIST BIN ▖▖▖ DRAW < THEN [N] COPY CODE 8 LLIST #8 RESTORE f!f-[J][J]▖- LLIST LLIST ©| LET ""J[A]g!!F PRINT INK GO SUB RETURN & LLIST ▗F RESTORE [J]!q NEW &[Q]E SAVE SAVE __ DRAW H)!H▖▖>=>=A INVERSE 76]?SGN #*'O PRINT E▖▛ COPY [D] FLASH K CLS ba[P]: IF BIN POINT OUT [Q]▙7ATTR SCREEN$ OUT DIM DIM L LOAD [P]~ CLS ▚ OUT 9 DIM PI) RETURN E PRINT ▛COS O FLASH e OR OR ? RANDOMIZE [D][C] RANDOMIZE ▞M OUT PLOT 6= REM *©; NEXT }Q? INK INKEY$ SAVE k;?/[D]> MERGE E OUT $ STEP = POKE Me LET 1M DATA SCREEN$ OUT $ OPEN # GO TO a}STR$ IF OUT N DRAW qIN LOAD INK OR DIM IF BORDER [D]BIN PIE OUT [I] STEP FOR '/eATN 7INKEY$ RANDOMIZE v MERGE a SAVE a}3x FLASH ?q~ OUT <> INK C DRAW DIM [P]W#PI PRINT [P][J] RETURN 0SQR COPY [J]{O[O]CODE CLEAR ASN DIM [S]K[N]Fy FOR j<=F▜$ BRIGHT FOR LLIST GO SUB COPY OPEN #0 FLASH PI[U]CB▞zo NEW [N] ERASE y IF o OUT < SAVE DRAW C/Y?9 LLIST M[D] CLS OR E DIM )>=7 FORMAT P%/[N]o RANDOMIZE y>=USR E LPRINT [P][J] COPY STOP ASN 0Y REM LLIST LLIST z© CLS }©y IF CONTINUE [F] RUN PISGN K BEEP OPEN #▝E8 DATA +©$CODE ]t CLS IN SQR CLOSE #T[J][F]:©PI[J]#A COPY STR$ 2[J] CLS ;;SCREEN$ y TO OUT NLN 3 READ <" CLS LOAD .VCODE o▝*aKJ"▜] COPY d CLEAR DEF FN DEF FN CODE ▙ NEXT 38xSTR$ CODE #N READ CLS V▞e0[N]Uw[P]PI`USR RND[F]# REM COPY BB[G]COS COS COS :{ DRAW L▜ LLIST AND PI(▟8 READ CLS ]#e GO TO Sb^[R] DIM DIM |/BIN DABS ▞ COPY FORMAT P REM 4 GO TO , LOAD %3[P] LINE ▜ CLEAR - OR % T RANDOMIZE COPY BEEP PLOT @Tg LLIST IF IF COPY USR ? DATA ol#▞8MUm©U BEEP CLEAR [J][B]!>▜▜H COPY DD▖▗▗[C]w[L][L]#$ STOP Um[P]H▚▞gf[B][R][R] COPY DRAW LET LLIST ▚ COPY ?<.PEEK PRINT #7 AND STOP [F] BORDER &@[E]g INK Y- CONTINUE CONTINUE ©©[ DRAW DDg7OO CAT q STOP # DIM "0CODE LOAD CAT RUN BEEP 30 FOR SCREEN$ ( INVERSE BRIGHT MERGE JHINKEY$▚ ERASE EXP 9SQR ]STR$ {C CLEAR }IN POKE GO TO ~ OUT DATA USR RETURN PEEK LEN ▝ FORMAT ▝▙▙/ LIST LIST ▝▝>=>= CLS SAVE !COS ▛▖ OR ||Y[T][T]II wpPOINT )COS COS VERIFY INPUT DRAW DRAW ©▞[B][G]j3#[E]MMIR!# STEP SGN 56[L] INK l5s9COS © DEF FN 9Q:[A]( RANDOMIZE COPY &[K] BEEP CAT & LOAD /VAL$ OVER IN 7 FOR BORDER '&@[P] COPY ?o[E] u LOAD OUT . COPY BEEP #ZE`( aDtj_CODE 1VAT >=ABS ABS WTSCREEN$ $*Vh!▗/USR STR$ SiTAB USR P CLS /▖ INPUT ]+CODE WCODE ACS PIU▘*ACS @!/ !ASN POKE 4 LOAD C{ DRAW bW OVER SCREEN$ VAL !V'-▛/▘ TO % 088INT RETURN ©k RETURN )<IN CLEAR BORDER y COPY © OVER #C COPY COPY + CLS OUT x|k RETURN CLEAR CLEAR INPUT IN IN IF COPY IN IN OUT + BORDER COPY © RETURN O DRAW ▚+ INVERSE D CLOSE #FN POINT B@VFN © PRINT COPY SCREEN$ ABS [Q][K]$gj▗{[M]})[G]*` CONTINUE @ PAUSE '?LN H@* POKE [Q] PRINT (@AFN @ HaP▗*0▗ JC( 7.F' INVERSE ▖{ REM ▞P@▖NTAN ©A[U] FORMAT 880 [Q] STOP ABS RANDOMIZE r$W[Q]CODE LPRINT P LIST INT FORMAT Mup,PEEK LPRINT o[Q]$"_ SAVE ASN |▟j▛ COPY ATN W COPY @©@FN SATN CIRCLE k SAVE .` LPRINT IN MOVE IE LPRINT & TO POINT ▖▚PIP THEN LLIST [U]V!=▘ RETURN ▖ATTR QU@ DRAW =4-?e COPY COPY JK▗/ABS F[H]_ZF[S] VERIFY ▝ASN [Q]pkTAB ACHR$ PEEK MERGE ▛eWV COPY o CLS COS + OUT PEEK Fk POKE /▝xx COPY CLEAR LINE COPY IF PRINT COPY POKE SAVE COPY SAVE ABS EZ COPY CONTINUE ▙ FORMAT T COPY LPRINT COPY CLOSE #D COPY [Q][Q] COPY >=ASN [Q]J COPY @@ COPY SIN COPY B GO TO RETURN IF COPY MOVE RETURN [I][S] CLEAR 9 IF @d DRAW QP IF h POKE @q@ SAVE RETURN FN PAUSE COPY DATA CONTINUE } ERASE POKE ▗j$ LPRINT DRAW FORMAT FORMAT @ NEW CONTINUE USR ro[Q]IN FN ▗8 DIM FORMAT CODE @C@▗& LLIST PI@ASN W CONTINUE [E] PAUSE ▛@$RA[Q]`▝STR$ @IN WFN i!% T@ :ACS ]C▗▜dB MERGE !:▘ [H]Q(POINT [H]3 POKE /# IF [F] ©K&^+/XFN d<*Z, CLEAR zVAL WzjtABS LIST K/LN "/▛ BEEP NEW o] .CODE IN [E]_EXP IN POKE x© DATA 4IN PAUSE COPY VAL @ COPY `+ COPY [Q]*P COPY P CONTINUE CIRCLE CODE COPY _ATTR />= TO IN © COPY BJ[G] MOVE <=% CLS CIRCLE ▙ CLS >=v42 POKE ▚" LIST [M] LOAD lLN LN ©cASN INT POKE SAVE kTAB CLOSE # CONTINUE FORMAT OVER Z[U]@[Q][H] BEEP USR PAPER SIN k6 IF D- DRAW CLS OVER LIST MOVE ASN +6.CHR$ LPRINT FPEEK [U]/ THEN USR &>u>TAB [E]o6{ SAVE [>n>U= LINE 0>= CLOSE #*▖=[F] LPRINT @J FORMAT LLIST b; POKE [S]uxX IF . CLEAR J PAPER C GO TO CHR$ ^@PII~%[F] COPY STR$ LOAD LN ATN FN > LET OPEN #E STOP [R]▘ LIST PBIN D CLEAR `^▗ PI[S]CODE [A]V@EXP !a▘@P*8O ▘A CIRCLE G[T]<=9[Q]STR$ $ ▗+p.@F RESTORE :▖PI▖ MOVE EDBX THEN e▖DCOS CHR$ }` RUN [K]:IN B[N] PLOT qh S FORMAT USR STOP N[S]▝|:dv▖7[Q]5+ LIST LLIST % IF [A]▚RIN >=FN _ TO ▖ COPY DY&INT POKE RETURN [F] THEN ©0 OUT +*6^olIN _N`B COPY ▜ COPY LINE COPY BORDER "U COPY ©CODE COPY [Q][S] LET [P]p[B]NOT [S] LPRINT [P]USR [ COPY "[P]POINT RP!ABS TPbP OR + OUT .|©K© LOAD *▜W._SGN wPEEK RND©▘ STOP <=ATN INVERSE REM Ox;`; RETURN [R]+QFN ZP[Q]5u@ PAUSE COPY AT FN COPY VERIFY 7 STOP COPY P MERGE RETURN / STOP PRINT @= MOVE IF ▖zLN POKE "/ CONTINUE ;( MOVE -[S]▘ IF @Pu" IF [A] RETURN ;SQR $;P INVERSE eO©TAB }V]R IF SGN : MERGE pj▚FN : PRINT N4}k[C]XSGN ASN [Q]~ZBIN ABS 1BZP%/(2 OR @B FORMAT (UHM!b(p▛ RETURN :@7[A]FN C1RH? NEXT VAL @ POKE EXP 7[U]▜t<EC▝[K]/9`J[K]USR "STR$ -+_▖/[C] AND MERGE LINE En% AND @CODE GO SUB VERIFY s|LEN ERASE VAL$ J|RND<R SAVE J[A][R][H]=▖WVAL (/ STOP :U[C]@V; READ P&% BORDER ,WAL*SCREEN$ CONTINUE DWx" LINE FORMAT <>mB> SAVE ?8NOT @S▝[U] LPRINT / ERASE r/PEEK GO SUB POINT 2v PAUSE LPRINT VATTR EXP @wv LOAD DRAW wj W RUN ▚VAL$ POINT VAL$ ©LN LEN FOR [Q]" OVER OVER =USR ▝ PAUSE U*▝W!▗IN TAB COPY LINE WEo COPY *FN hc4▘IN FN c[SCREEN$ SIN [T]C OPEN #▜PSGN FORMAT U[S]WBSTR$ CODE G%©W [R]▖V COPY @_ DIM Z COPY AND <▘<9INT vCODE CLEAR 2 SAVE PEEK RETURN [R] RUN NEXT S+▜7 CLEAR DATA ?+2[O]ATN ASN C RETURN D[J]7ASN NEXT REM A▖AP IF FN PRINT [C]Q" GO SUB WSIN . FORMAT DIM CLS POINT COPY 4/bATN [T[I]w▜ REM ISQR c REM USR CLEAR FN ^@▜AT N VERIFY ^ABS FnATTR VERIFY D▗&_[Q]/T0TAB [S]x©[F][E] INPUT INPUT >=u MERGE D[T] CONTINUE H MOVE @[E]h▝J[I]@@PI INVERSE ▜0[F]E CAT F*!+B*S RANDOMIZE 4 LLIST CAT A*Y-AUO AND ▝IBIN ▘Ii LPRINT LASN D$[▖ PLOT ABS [E]Dg{/SIN [N]5 BEEP ^INT RESTORE ▙ RESTORE @*CODE USR E CAT [Q]Bj BEEP A= FOR [N]6hFS-Y▗r©POINT ; LIST LIST P INVERSE P PRINT G<>▗[A]H B(ASN POINT 0[B]<VAL TAN <>1`[N][D]:[E]<>"[F][C]L[B]. MERGE ABS *▟ AND Z GO SUB TAB [D][N] OVER RETURN ▜* LOAD ABS ATTR ]©_WBVAL$ IF EXP OUT LOAD LIST 1 RUN COPY INT SAVE ~& AND f1PV%K OUT RESTORE [O]& BEEP LEN SAVE !▘@L[L]SCREEN$ HUoRNDATTR RETURN SQR IF DIM BORDER ATN '?P%IN U REM CAT ?5 OVER LOAD 2POINT #P>[L] DEF FN 2PIFN &??*S)[D] CLOSE #>=Eh8M CIRCLE [I]▘ZH CIRCLE @d RANDOMIZE VAL$ CLOSE # VERIFY @@©8 COPY ZvSCREEN$ @x'USR ATTR FORMAT ^ REM FN .V ERASE ABS ▗ CONTINUE @ POKE POKE D LPRINT FOR FORMAT MOVE PLOT !g SAVE FORMAT INT CLEAR READ t IF ) CLEAR LPRINT [N] RETURN / CLEAR ,' COPY HO COPY [Q] COPY CONTINUE iD]T MERGE PRINT T INPUT COPY POKE VAL >= IF NOT INT FN H RETURN ▖D DRAW u CAT *]▘ BORDER COPY FN [E][T]#> CAT 80 DRAW d OPEN #PI*erHd:D! RESTORE ▜=:(UUSR $VAL LN :▝@ CLEAR ▗ REM [Q]@P`cACS )LN *m/CHR$ INT k LLIST !ATTR B/▗ DIM A LIST LIST DIM [F] LPRINT POKE / TO @POINT _@BIN ERASE RETURN [R]mzd POKE ?▙FN <&ZTS@VAL SIN COPY CODE USR _ COPY LPRINT /USR COPY ABS ` COPY Z[S]q COPY * FORMAT COPY QLN COPY "t SAVE COPY RLN COPY [R]RVAL COPY M SAVE IF 7 SAVE B COPY _©▛FN COPY EX©[M]IN &_?@@_▙/©' COPY OKPEEK $V!/PINKEY$CODE gt CLEAR @ VERIFY xIN -[C]_ COPY COPY $R CONTINUE ATTR g FORMAT ! POKE >=k DIM ▖KiC IF b▛Ac IF |[C]P▝$K[P]PITAB ASN H▘CFN R LOAD PEEK |IN MOVE LIST SAVE $ OUT PLOT REM [D] LOAD PRINT ~9[Q] STOP bABS G CONTINUE @N[P]P REM $ PRINT LPRINT AQ]} PLOT [Q] CLOSE #}D$ IF ▖>TAB @@ MOVE V[Q]LEN ▖ GO SUB COPY P CLOSE # RETURN VAL [Q] GO SUB LINE VERIFY (@# LPRINT ▛V▝u[S][C]3`[D][F]0 CONTINUE a OPEN #jH%ASGN ©C MERGE @SCREEN$ KIN AT _[A]CHR$ [S]0@YHFN [M]YR TAN D IF [ POKE [A]ATTR cIv[S]S[A] PRINT c[U]kATN USR >[I] DEF FN uK▟ <RND>RJ(`R>=SGN DIM REM USR G POKE ▖FN PFN pSCREEN$ /I INPUT BRIGHT j d<= LIST 4 BORDER [U]J▘ REM "UT DRAW QSD[Q]BACS [D] CLEAR CONTINUE ;+[D] BRIGHT @$SQR [I] PAUSE zASN RETURN OjPEEK OPEN #PIpUSR JINT SQR STR$ E=_@aVVAL ,rCODE /I VERIFY PEEK TAB = #Z~BABS [U]Z@ POKE [T]`[Q]BISCREEN$ F▗w CLS MOVE X<>STR$ 2 LET JNPEEK LN y INPUT ][T]+>|{SQR STOP #CODE {/|{c SAVE JsATTR OEXP ATTR P"R POKE ` LIST ASN INKEY$X VAL$ ▘@USR O 5SCREEN$ 7k COPY G ATTR eDG POKE LOAD SGN CODE ^_:$/ BRIGHT 8TAN ▛_AEDVAL$ _ LPRINT p LET { CAT CLOSE #` CLS FN lT PLOT z0 CLEAR 6 LIST IF <> CONTINUE COPY Br COPY FN LLIST COPY ) FORMAT USR S COPY SCREEN$ D BORDER COPY PRINT RETURN TTOPEEK P[H]U LLIST SCREEN$ THEN POKE DDE FOR PRINT BEEP IF LIST [S]▗[O]F▛PEEK OUT CLS CAT ERASE LLIST LPRINT CAT e>= BEEP REM wIN [P]AT CAT CLEAR r SAVE OPEN #d STEP $ LET @A!t FORMAT SAVE bS/ CIRCLE FN @ FORMAT [S]N ERASE [A]" OPEN #@@INKEY$▖P STEP "PEEK C▖Y LOAD CLEAR /[Q][A]oEXP B@ PRINT CONTINUE LINE E@rGD/>▝n LIST GO TO CLOSE #AT [D] RESTORE p ▜ STOP a_[U]* CLEAR J IF Q"▖]d(/STR$ [R] LLIST ?LEN ▗? DRAW p+xVAL LET TPOINT SGN R SAVE F▜E/ BRIGHT VAL$ t_RFN IN [R]CHR$ [C7zUSR G RESTORE + LIST P[C] CONTINUE (POINT [U]~> RUN GO SUB [S] THEN AG"#IN [K]zVz^▗[A]ASN j DIM ▚▗ LIST * NEXT Q@[K]AyFN `UKPIw REM LLIST ? NEXT nASN 0VD▗INT >=V▘!VdSGN ▖ POKE 8 PRINT [C]?# [G][C]A9TAB 2 PAPER $"ABS o OVER NEW )ABS MR FOR AT EXP PI]z INPUT LN pPIq" PRINT T NEXT [S]▘ FOR V BEEP SGN flEXP U8(Bbt! [A]▟>▚ CAT IF cN THEN ZFN ATN T'[7USR ▘j@>=H LPRINT @_p`IN SGN BIN K DRAW @5@ LLIST krbABS / MERGE v "kUSR @@ MERGE d! IF CONTINUE > CIRCLE POKE EASN LN )POINT RETURN @ww"ATTR VAL$ Q OR )▛▝[R]3< GO SUB R CAT [A]! LPRINT © STOP DIM +bZ#>[P]TAB _[G]©POINT S BORDER INK DATA LPRINT RUN XgFN USR L▝ DP$_I©@ATN tM SAVE PRINT [H]SCREEN$ U( PRINT PE RETURN [U]TP LET FORMAT POKE COPY jUSR S BORDER _EXP Mg COPY Ucw PRINT H/?S^ COPY P[C] DIM LOAD NOT 8'-O©FN BEEP B LINE POKE %▝:NKPL[F]ATN }On LET [N] MERGE jn INPUT VAL ? RUN hV INPUT a*VAL LOAD ERASE uu RETURN SIN LINE 4 BEEP 9{▖BP▝SCREEN$ [U] DATA T(<= REM ▝ CLEAR !B▗ RETURN P BEEP ASN SQR REM @<> PLOT [S]<=T FLASH STOP CLS BEEP RETURN + CLS POKE CLS THEN NEXT ~7[H]6o MERGE IF CAT FLASH 0) STEP FLASH INPUT ©PEEK RESTORE POINT 6 BRIGHT wM CONTINUE "!xASN - DRAW RUN {; RUN INVERSE INVERSE STEP [M][K]▖▖ TO ▟▖ CAT DEF FN VAL$ STEP REM SCREEN$ TO ▙ TO TO AT TO PAPER DEF FN DRAW ▖ REM VAL$ CIRCLE BRIGHT STEP TO GO TO TO ATTR LINE [Q]%AT >=, TO SCREEN$ MOVE 'FN FN POKE CAT CAT BP9 PAUSE USR COPY _▜L' MERGE >F[D] LINE _Mp OVER STR$ OUT FLASH I[U][C]m6▘[L]i[U]▘ OPEN #iACS ERASE MINKEY$[K]m4▖ OPEN # LOAD > OPEN #MTAN PAPER me OPEN #IRND[K]I5 FLASH M5`[O]y RESTORE T FLASH iu[C]MRND PAPER IC'[L]m ERASE I7iATN C/© OVER LINE NEXT 'n▛ POKE CLS x<=COS USR q STEP FOR OUT a▝▜ DEF FN g BORDER COS BIN c BORDER 3 INPUT a LOAD 3 COPY y3W[F] GO TO [ATN 3LN LOAD INVERSE CLEAR INT PAPER SCREEN$ SCREEN$ OVER TAB INVERSE INVERSE TAB DEF FN REM GO TO CIRCLE ▖AT CIRCLE TO VAL$ >= CONTINUE TO TO BRIGHT [A] INVERSE TO LINE AT STEP TO AT >=>=FN GO TO LINE DEF FN PAPER CAT TAB ▚>= TO TO {0▛USR `[D][L][T]!VAL$ CIRCLE DRAW INVERSE COS L TO DEF FN NOT THEN OPEN # FLASH CIRCLE >=[I] TO > POKE PI RANDOMIZE ▞ COPY PAPER TO TAB @ THEN ~ OUT ~SCREEN$ COPY V TO SQR COPY ~AT OUT COPY LINE PLOT , LOAD COPY ARND>= CAT CLEAR COPY VAL$ />▘ RESTORE LLIST K CAT CLS BEEP <+G PAPER GTAB [N]CHR$ ▘POINT :Pi `U DATA ▛© OUT k#F[S]x▜( IF o© BORDER sSGN CAT PRINT ;LN CLS COPY OUT 3 RANDOMIZE FLASH CLS BIN CODE |SQR RUN Q[P]wJ TO CLEAR GO TO TAN jo▚ FOR TAN NEXT CLEAR ▚{s! MOVE CLS MOVE ?CM PRINT qq RANDOMIZE MERGE p@ OUT [U]v9© RETURN T[Q]u)R3` OPEN #RK MOVE [ LET CHR$ ▚ MERGE HCOS qc INK @ O?'@ COPY /0" MERGE CLS OUT PAPER VERIFY VAL$ FLASH ` COPY g CAT AINT THEN TAB d[R]ASN t PAPER LINE d▙Uk DEF FN IN DEF FN o IF MERGE ▙4<=INT `[ TO } THEN MERGE PEEK ? TO Zevk` CLS ACS OUT ABS 0(//▖ FOR IN [Q] DRAW W RUN SAVE SAVE ERASE LN USR CLOSE #)RND|▜8P[K]@v34i& FOR P CAT ▗©61C$c[O]+7}&9[O]IN [P]gj[O]<=X IF x@ RANDOMIZE CLEAR C/w RANDOMIZE B▛,▙R CLS NEXT w OUT `IN "USR _b@©0~[Q]©`$ CLEAR CHR$ RETURN PRINT K j@D]2▛Y- ?zCOS D[Q] OR AT `PI[N] H▝[R] CLEAR B*© LET 3▚;8 CLEAR =G2LN FLASH [Q]▟ /TAN ▙,[@ COPY a COPY W POINT LIST ATTR ' LIST LIST (X; STEP CHR$ @ CLEAR RUN -[S] CLS s COPY ULEN %USR RETURN ," FORMAT 9▖SCREEN$ ©IN ^▝BIN DATA COPY F OPEN # LOAD [P]ACS . POKE ~H~H SAVE POINT DRAW j DRAW A DRAW LET <=LEN f[E][G];CHR$ ▖$&RND*( LOAD CHR$ TAB >>=}>=LEN USR mk STOP 7 PAUSE [I] INPUT 9L RANDOMIZE 0_mASN LIST SBIN POINT [N]@ VERIFY Z DATA 3USR #>= INVERSE ACS >=g LPRINT G NEW ▙G` LIST ▚K#TAB CLOSE #@ >=& OPEN #▝+{ PRINT ABS COPY A OR A CAT ?EXP PRINT V @ RETURN ` INPUT IF [A]s}=#j{ RESTORE <= COPY SAVE -E LOAD RANDOMIZE ( RETURN SAVE P RANDOMIZE RETURN CLEAR %/ COPY IN Q[O]▘/ PRINT [Q]©ATTR tK FOR P CONTINUE 0 CLOSE #XkFN 5SD_ LINE *IN SvPOINT B*ABS b[A]▝© MOVE B PRINT LIST )© GO SUB COPY pINT % IF ASN ] CLEAR TACS INPUT FN + CLEAR MOVE J[H]SQR LN uINT J?t CLEAR SCREEN$ $ LINE IN UAACS W REM POINT GO TO THEN ATN UtW CLEAR REM VAL LOAD whC_ LLIST OUT FORMAT (Z OUT DiUSR <= LOAD >=LN v7W COPY a LOAD ABS TAB " OUT CODE COPY 5 RETURN ▟R OVER W LOAD COPY {PEEK © OUT INVERSE CLEAR [G]PEEK © PRINT © INPUT INT LOAD zIN u OUT OUT u IF RETURN SQR "_ MERGE MERGE IF IF COPY VAL$ ▘ZWUPEEK VAL$ INT STOP MERGE eATTR SCREEN$ w BEEP u MERGE ATTR ATTR CODE SCREEN$ UW BEEP BEEP SCREEN$ PEEK JVAL$ u©UCOS ACS *▘U CLEAR U*AT VAL$ ▖ PRINT TU LPRINT [S]▘rQ[F]FN DRAW ?SCREEN$ FN [S]$p▘ DRAW a(v FLASH ~▘FN G LOAD PRINT RETURN LPRINT PEEK @EXP ATN w▘ PAPER CODE SAVE ©}x LOAD SQR SGN } RETURN RUN FOR CODE @ LOAD USR _ INVERSE IF LPRINT REM IN SQR p[G] RUN MOVE ATTR PEEK CLEAR LIST CLEAR RUN WSIN LOAD ACS h STEP uLN VAL$ VAL$ RETURN POKE UU INVERSE BRIGHT ATTR [T]SCREEN$ LIST ] RUN @ LIST RND LOAD xE_ VERIFY CIRCLE CODE SGN TEEV[S]*SCREEN$ VAL$ u OUT SCREEN$ CODE LIST COPY 7 MERGE [A]©HQ BEEP OUT _F COPY PEEK BEEP _ RETURN IN CODE SQR VAL INVERSE COPY POKE . CLS VAL$ LIST E]wLN SCREEN$ IN COPY x MERGE INVERSE LPRINT ?IN STOP ]©© LIST ▙VAL$ CLS LIST U_^ LIST ATTR ATTR Y LOAD DRAW Uu BEEP SGN CLS IF RETURN RETURN VAL$ HPEEK _W©n.>=IN U©] RETURN INT REM SGN ^ OUT SAVE FN SCREEN$ PEEK DRAW E DRAW PEEK INPUT INVERSE INVERSE RETURN * COPY CLS PEEK DATA 7SCREEN$ INPUT REM x▙*PEEK LIST ]W COPY SAVE FOR SQR _P DRAW +SCREEN$ CLEAR DRAW G OUT |ATTR w▗ SAVE 7©▚PEEK @Ww RETURN PEEK CODE CLEAR © CLEAR PAPER SQR CODE PRINT MERGE CLEAR xCODE VAL$ GO TO ▘Uw OVER OR RETURN u PRINT BVAL$ [O] CLS SCODE COPY RND@>=[G] RETURN PLOT E LPRINT ▗ LOAD ]Y!` COPY LIST S[A] LIST / LPRINT [P] BEEP LPRINT RETURN EASCREEN$ [S]SCREEN$ TUjSCREEN$ FN WUQSCREEN$ ATTR SCREEN$ @UWPOINT VAL$ ▛INT SCREEN$ WuuU▛ OUT "W_]QSQR ATTR SQR SCREEN$ u]UU RETURN [T]PEEK INVERSE MERGE INVERSE IN IN SQR IF w BEEP MERGE wATN INPUT INT RETURN IF CLEAR RUN BEEP ▝'LN ©W} PRINT [P]PEEK VAL$ MERGE CLS RUN @_ CLS LOAD LOAD ' CLEAR CLEAR IN v: RETURN COPY LOAD LOAD b IF LPRINT W GO SUB RETURN STR$ / ERASE GO SUB RETURN p▙` COPY PRINT MOVE P© CLS REM SCREEN$ © GO SUB INVERSE CLOSE #? CLS RETURN ?IN }} COPY FOR REM RUN LET [Q]IN CAT COPY INVERSE MERGE '© RETURN RETURN COPY }tIN _© RUN } [P] LOAD SCREEN$ ? CLEAR INVERSE =© INPUT OUT ©INT ;[A] CLEAR ~© /? IF LOAD POINT )@} VERIFY HFN [A]E COPY #! COPY >= CLEAR COPY }© [T] ` LIST UE COPY INPUT IF FN COPY RUN MERGE U COPY IF NEXT COPY wD? RETURN SQR VAL$ [P] CLEAR wo RETURN REM COPY u ▖ MERGE ▘ PAUSE FOR ©UATTR SCREEN$ B▖w0DIN CODE SCREEN$ © BEEP Pe3 CLS _PEEK INPUT © CLEAR MERGE RUN <= INPUT CAT INKEY$}W INPUT IN .? OUT ]]/ REM +_ CLEAR VERIFY 7IN CLS LOAD INVERSE _PIN IN REM *3uQ[J]CODE o INVERSE BEEP BIN ▗pVAL$ _INKEY$H RETURN : <=OATTR C▛/POINT AUSR w DATA ▘BIN © LPRINT COPY H▝@@ RETURN VAL CLS A4 SAVE PLOT d COPY ASTR$ T RETURN ▖▘ DRAW PRINT LPRINT [Q][Q]USR RND@ CONTINUE : LPRINT IF W▝ POKE RANDOMIZE REM LIST CLEAR FN [A]qINT PRINT G DRAW [P]@" FORMAT i FORMAT ▖ MERGE B FOR Q[T] STEP x8 0p BORDER DRAW OVER # COPY # 1 LINE PLN S OPEN #^>k CLOSE # GO TO READ ATTR SGN 0P▘[A]V[N]tNOT (P TO VAL *UMd! OVER @TAB SAVE = LLIST [R]A THEN THEN FOR RESTORE :D [H][Q]#"USR @1[Q]NOT AA)▗_TQSCREEN$ ,INT ▖WW/]>INT PAUSE o PRINT BEEP PEEK COS jIN )]u CLEAR WSCREEN$ [S]INT SCREEN$ LET @<=SCREEN$ w OUT tW OVER SCREEN$ SCREEN$ ▛_ MERGE WATTR ATTR PEEK PEEK INVERSE U BEEP ]IN SCREEN$ REM COS Wu BEEP U+ IF ATTR LPRINT Q]U MOVE ATTR [T] IF UE] CONTINUE SCREEN$ FN SIN MERGE ]A MERGE PAPER ATTR [S]AT MSUiIN [C]© OR GO SUB AND E REM PEEK ATTR VAL$ STR$ wSW[S] LINE +UUTE COPY ?USR PISGN TAB ▛ OUT STOP AT THEN MOVE CIRCLE POKE IAP INK LLIST d- VERIFY $ DIM CONTINUE [F] 9'`!FN BORDER Hj*14XQZSCREEN$ -b+▖▛ STOP Z▛!d`9 VERIFY "m FORMAT @@LN -V@ INVERSE [Q]` PRINT LPRINT O CAT INKEY$ LINE OUT PLOT ERASE COS SIN SAVE a>B▟?@IN USR [O]`"POINT OVER c[A]CODE ▙PEEK ACS STOP ,[E] COPY USR FORMAT ' BRIGHT d STEP ' IF LOAD !1 INPUT y FLASH RUN ABS ]vK CLS DRAW Zj BORDER CLS CHR$ XRND INPUT SAVE SQR RETURN MSTR$ CHR$ z[ COPY IN xx([F]Y(( COPY nzPOINT ?%CODE /No THEN * DRAW %CODE ▘ ABS `W[M]@ RANDOMIZE $"Vx▝▗ CLEAR USR S CLOSE #%n@[Q] BRIGHT ▖)AAT E DRAW !▝E~SIN ▘E POKE iATTR 2[R]WYIN !(5 RETURN v OVER ATTR @C[D]STR$ [. Pp" SAVE P RANDOMIZE f[B] CAT ▖% POKE LET [J];Y[H] DRAW 8[D]8$[K]$gj▗}![G]5** CLOSE #@u LPRINT FN A FOR ERASE RETURN FN [Q]I©X[Q] IF SQR @}#@H6/▜ REM [Q]# CLEAR NOT $_ AND ▖> DIM TB= IF ▖>IN ` RUN WX INPUT ▞[A]!ATN Z(▘z GO SUB CAT ©VAL ~ DRAW $ *VAL$ USR :LEN USR g"COS USR RESTORE FOR * THEN THEN ▟MD) RESTORE )STR$ SCREEN$ ! RESTORE : THEN ? INK G:CODE USR NEW USR VAL GH LLIST MOVE RESTORE INK FOR |/ NEW RETURN u<OPSGN ~V▗ CONTINUE BIN bPEEK CLEAR !▝:PEEK INK MERGE INK LLIST (} INK H2 MERGE A OR STEP [E]IN > INVERSE DIM INK INK STR$ LOAD LLIST FOR / OR ,p VERIFY INK D,ONNOT MOVE IN 8 INK ^TtPEEK MERGE > PRINT =y CAT 9 LET =CHR$ lPEEK MOVE y FOR NOT Q7G▜▝>= RUN Wc INK G<> MERGE DRAW :}IPI COPY y?>=IO FOR lC=B [K] MOVE CLEAR DIM ▝ LOAD COPY [N]]▝▘PI[I])©YVAL$ OVER cSIN FN ▘ RANDOMIZE ;BCHR$ )IN X▗▝ INK RESTORE y INK LLIST [G]8? RETURN 0<Ix NEW © THEN x INVERSE ![I]PEEK (< INVERSE !IN G}▝_Y"))c[G]ATN <>8 INK b DATA FORMAT LEN INK y[G] GO SUB COPY ML|NA THEN ©(@|[L] PAUSE F CLEAR NEXT [B]USR PAUSE ABS > READ ?<▚©CHR$ LLIST LIST IN LLIST peUSR W PAPER IN <>LN `SCREEN$ @ DATA SIN STOP @s#r#z NEW PLOT z= NEW PLOT Xw# LPRINT BEEP _ INVERSE <> NEXT STEP ▘dl>2 PAUSE USR CLS :PI IF + D NEXT m DRAW SGN Z- CLS ?N><> INK S LINE _NQ LPRINT INK x! IF [J] CONTINUE [[O]1PEEK |> MOVE LN "_#=CHR$ 7r OR 5 INK REM 5STR$ SAVE [ POKE CODE OPEN # RETURN <>,-,i DRAW RETURN /.. RANDOMIZE TAB EJs,AT ,7B@? TO -*S[I]R. Si<>[B]*7▝SS@B++[J]9T[S] BORDER DRAW VLT9 DATA CLOSE #o▜ LLIST sA9▟▛p?G7 CIRCLE RETURN :▟ COPY PLOT ▙> GO TO <<;@ CLS ©[R] RUN ,l?463 PRINT ?LEN o9 DIM 56[S]223 ▜TAN SIN ©W6 BRIGHT 0COS ABS <=▚ DRAW PI<=@B[H]SIN SCREEN$ B▞ CLS DRAW `"INKEY$AFN RESTORE 6 CLS = OR COPY h7ABS 89[Q]W MERGE DRAW ATN C:"k@>Y▘7ACS COPY 7"SQR 1@ RESTORE Oz{[G]Qr▜ CLEAR _[H][H]$R CLOSE #@▜ DRAW OUT P[C]kl7 COPY B- NEXT e COPY STOP S< BORDER ABS BORDER OUT 7FPEEK 7ceS7&[O]7▖▞O9'A:<>Ef▜A9 COPY 7rATN SGN COPY > INPUT 4oU READ .:[G]=©?>▝ LINE B7 COPY G,]/ RETURN /CkRINT SQR ;7 COPY hs0bxw▗?©@BIN t[M][A]Q FLASH *;3▗m[J]B=SGN COPY Tp CONTINUE .Z ERASE COPY 4ABS 0▘&? COPY [T]▚}(▛SQR @ DIM IN XIG COPY 1PEEK [U]IEABS VERIFY e DRAW E' GO SUB STR$ SQR !IN DRAW 7[U] PAPER ▚[P]IN IF [P] LET ▝ CAT SCREEN$ )q▗ RETURN kPI CLS 1 CLOSE # COPY PI CLS ajINKEY$ COPY /1[K]B~ DRAW X3USR POKE ~ DIM LNOT 89 PRINT SQR 70 GO TO [A] FOR A;<=0 PAUSE SGN n[T]c[E][F]▟> RANDOMIZE ▛PISQR 4 ERASE xN7VAL CONTINUE S<: STOP X[H][H][C][D] ERASE !=;NOT P? LIST INKEY$LtLEN CLS @[G][U]C!@ LLIST OUT ACS J|ASN [C]v CLS @T DRAW vTAN ;[U]BIN ATTR [D] CLS ACS BORDER NOT ▞[C]sj;?IN LOAD RND[I]▚C FORMAT hTAB ATTR OVER ERASE ?6A[P] LINE GSCREEN$ r|Nq">%/w NEW STOP ^FN [M][C]3*q[E]STR$ `[F]9 LPRINT INVERSE NEW 6}bR GO TO COPY 2?Rz5 FLASH ▟ho ERASE MOVE 6mgAj▟[H] VERIFY M< SAVE [O] GO TO 6 MOVE [U]~ RETURN yi[N]SGN 97@ RANDOMIZE OUT KB-? DRAW ▞ REM :ABS c BORDER 97 BEEP ;[C];=;0 RUN PAPER )CHR$ ▞)?8 NEXT FOR ,-R RESTORE /.CPEEK Q| INK 5wS<<[T] TO S MERGE NEXT DEF FN S INVERSE S{ CAT pSIN DEF FN S© LLIST LLIST RETURN COPY PI RETURN STOP BRIGHT SNOT [Q]SCREEN$ ▗▛4}8COS ) STOP OR o"<>V[Q]o,rNSQR o STOP kG?pqKK@RND)?b3TpVAT K/RND AND C LINE b6[T]CLEN NEXT TAB V▛T7BIN IARND▛B▟" RESTORE {SQR ?[K]C t SAVE POINT POKE s<=? COPY !==sMIN c COPY SA9[N]TAB A< RETURN KW89KABS ' COPY b; DIM & COPY [U] MERGE IN PI; COPY n3SIN STOP STOP OUT {h[E]| SAVE READ >eUSR REM COPY [A] OUT CONTINUE [C] FORMAT [O] COPY MOVE RUN P IF PAUSE *8-,-S CAT 6 OR OO CAT B GO TO BRIGHT SIN ▟ 8COS 8U1 NEW $V,#r87N*r8 MOVE w[R]8TAN 66[B] COPY r PLOT ▜37r GO TO 375 CAT GO SUB 7847 TO O RESTORE ,?▟5SIN BEEP L[C]2X9 TO ▟ NEW TAN 9=?[K]g[R][O]O[P][Q][N]/RNDINKEY$ DRAW [A]! OUT ~SCREEN$ 2 MOVE IF SLN $F▜ REM [Q]NOT NOT IF KL DATA [N]qhPIFN ▖ COPY CLS [S]c>=ABS _k[R]7I& PAUSE CLS =[B]AMC? REM AND J! LET @23 OR !l[J] LINE 4..k!tTAN ;6# CLEAR ©k LIST INVERSE 7-o1▞ COPY LLIST 1 OVER MERGE U▟tACS SCREEN$ STOP COS (QATN LLIST #?CODE LINE [Q][R]<qQ▝Mu DATA A9B MERGE I.90EXP )z COPY ▛ BEEP Sw< LLIST RL. MERGE [B]<>RND▗@▚▜ BEEP CHR$ BORDER B? INPUT LET COPY D7@▘ RETURN FOR ▝/ PAUSE hR.B_A▜SQR [Q]ABS COPY [P]/WD OUT 7,[A] SAVE r@8NOT @<+q>={43T4©HSIN COS RNDV[N] LPRINT READ ▗ 34COS 940 DATA 12 ERASE COPY 62h▛L6 GO SUB COPY 9_ GO TO COS BIN COPY ▛T9A[B] NEXT kC COPY Suh COPY FLASH qO3UZB",?u7#.[N][O]LN (7eXEXP LPRINT [D]@RNDC))▖ BRIGHT RND▛▛7ATTR - COPY RND*AT - OUT [M]*▗7] VERIFY ` COPY SATN CONTINUE FLASH @B? CLOSE #[D]Y LIST [T]▘BBIN CABS ▜ RETURN ko MERGE r RETURN [S][N]r BORDER PIB; VERIFY NEXT © PRINT [I])<=;i COPY RUN [ POKE BORDER Q CODE BRIGHT VAL LOAD SQR ▜k FLASH ▝07 COPY CLS 1yU_[B]▖COS NEW [F]LN UC;[A] RUN +qBIN R>=PIBIN [U]qEXP >=PINOT ![D][L]FN 7U4J7[M][T][I][M]*FN [T][J][K]=^5POINT THEN LET TAB PAPER COPY COPY !w BRIGHT SAVE :iAT ▛NOT ▝ STEP CLS g); LOAD ? RESTORE -~S<SCREEN$ TAB ▜ SAVE !.ATN LINE NOT 7N[G]D~pq! LIST O.#[H]BIN )|▜▟[U]2C[K] ERASE LEN *[N] COPY INPUT 7 PAUSE R[K]a26 AND S RETURN PLOT PI GO SUB STOP SGN [R] COPY [H]K'[B] DEF FN "▞*LN COPY ▛ATTR S% CONTINUE "=LN I RUN ATN OUT p▛▙ OUT RETURN RUN [N]& OR COPY RANDOMIZE 0Ed LPRINT P CAT g FLASH BORDER (B)TSAT #C▝@AT -SCREEN$ ▛ATTR [I]FN AT 9▜USR ?▝▚Z*[D]VAL DEF FN _USR COPY #PIINT [B] RETURN NOT 5T VERIFY 9 FOR [O]g:S" COPY [O] REM TAN TAN INPUT 70 PLOT ;▙E?B' LET SAVE 7ASN AND p COPY ▛422TAB ▗MBSIN FLASH /TAN SIN COS CLEAR <=<$[J]kPI$NOT VBIN BBPEEK FOR ?'("r7Di>:g TO _ DATA M RUN 7>'}h CLEAR ▜▛2 THEN 7<=UPEEK POINT DRAW [R]ATTR l3[G] ERASE ?V[L] RETURN wPEEK DATA POINT FLASH S CIRCLE OR 7 VERIFY SQR DzF DRAW ASN Y7* CLEAR REM / REM DATA !2 DRAW 73"SGN 3SIN STOP 8A DRAW #?ATN [T]C1@SIN [P][A][>= OUT TCOS @ MERGE BEEP TAN 'COS }'RNDN6 CLOSE #FN RUN [R][M]~ LOAD ▜ THEN OUT CSIN RUN CLS 7{p PRINT 7 ERASE RANDOMIZE [L][K]TAN ] GO SUB [P] CLS L)z©6? CLS ([I]' CLS @[B]nCOS LIST [J]CHR$ LET [D]INKEY$j] INK RANDOMIZE PRINT 0[S] LET [H] PRINT fSGN BRIGHT 7?Z* LOAD LEN COPY NRND7TAB [L]S ERASE CONTINUE 2O SAVE 7▖AT OVER LEN ] COPY lRNDNSGN D BORDER <c THEN CAT <J[U]k▟IUSR 8| VERIFY NOT 3[D] VERIFY INVERSE BIN NEXT @& LOAD NOT CONTINUE COPY SQR SCHR$ @RNDw^2SCODE LET OUT j RETURN PI+ OUT m<>IN NEW ▙W OPEN #FC LOAD ▟oTAB OVER NEW IF F; LET 7 FLASH SAVE O[C] DIM CLS 7 RESTORE GO SUB tSTR$ 7 VERIFY COPY lCW NEXT 7 BRIGHT ▚tLINT ];IN Z=k COPY -o IF IN LINE OPEN #▟j7<= CLS X8 PRINT OPEN # OUT ©nky CAT ))8jAT CLOSE #e RETURN 48='SCREEN$ 8X DEF FN o8ABS USR G RETURN [H]M MERGE e{ OPEN #7<=TC] COPY ATTR PAPER OPEN # NEXT PI POKE ▜[G]A RETURN READ CLS VERIFY NEXT 5©][ COPY ▛▜ RANDOMIZE NEXT RUN R BORDER !uvSQR 7))[B] COPY DATA STR$ CLS FLASH ©FN PAUSE SGN GO SUB 9?SIN AND . TO COPY ERASE o67B CLEAR ▜TAB ACS PIT6>= COPY ?z0 AND N9 OUT e@4 REM [U] BRIGHT :? POKE [I]976SIN COS C RESTORE U PAPER MOVE RESTORE 7?COS RETURN [P]*@ BEEP *8@[E] DRAW INKEY$ PLOT [Q] FLASH *o DRAW g/▗'IN LN 50k POKE ▗PEEK IN INKEY$ RETURN [D]RND SAVE RETURN INKEY$u▟ RUN STOP LLIST OUT PEEK READ `s LINE BRIGHT 7E7wn4 INPUT SGN 7IN SGN W18▜ READ C1SIN [ COPY DIM iSc[M]AT @cT}▛=@[H] STOP B(`VAL$ ABS SGN [G] LOAD 9POINT PEEK S<>T▙s DEF FN C LLIST ©{]~)[S] DRAW RUN 2 ERASE 9STR$ LOAD INVERSE ▘[J]Q CLS :~IN 9[J] DIM ~ DATA [H] BEEP 7 PRINT ©▟BSQR T NEXT ▜INT v RUN * RUN f MOVE >[U][K] COPY S7PEEK [P][M]PI RETURN G AND READ IF S INPUT ?SGN ▞ RUN 7BIN STOP [G] MERGE SGN CODE 2Xf! CLEAR T]6`| GO SUB VAL ! POKE `"|a` GO SUB G GO SUB ^ CLS <> COPY RETURN <<wG! CIRCLE (~5GfEXP x NEW 0SIN ▜!_k? RESTORE INVERSE LLIST INVERSE n&D THEN }()& COPY D GO SUB FOR *TAB USR :[B]CODE USR ▖"2FN COPY VAL [G] CIRCLE SIN 2f NEXT GO SUB s?a INK ";a INK !▞`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1%ATTR NOT [ GO SUB LN ` 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 [ INK 1 CLS <>MsPk[J][J] BEEP STOP COS 7``NOT MOVE mCODE STEP >l INVERSE !ASN ` STEP 7m PLOT !` COPY 0 GO SUB VAL NOT CODE 2] NEXT GO SUB V CLEAR !:/ GO SUB [ POKE /!``E RESTORE GO SUB S& STEP =^7NOT 5 NEXT > OPEN # RETURN NOT b PINCHA UNTE GO TO INK A DON EMAR[Q]%EL DISCE [Q] COPY ! RETURN T]6d|©! GO SUB Gf CLS <> PRINT RESTORE MERGE OR h INK INVERSE RESTORE CLEAR RESTORE STEP *▘ STEP Ca STEP [N]h STEP ▛k CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET INK Hb:Ba▜TAN LET CLS GO SUB MCHR$ _ NEW OPEN # COPY :daG <LN STEP eaCODE $<>> CLS v<> GO SUB ,!)~w16(Fk[G STEP k![~PI(_H(:+[C]lPI !i OPEN # STEP T LET !PIRND>5 NEXT GO SUB shc1[H]c! INPUT } MOVE GO SUB [Q][A]# AND o RETURN l3$xLEN ▖CHR$ ACS a GO SUB {hc;CODE OPEN # RETURN <> INVERSE !ABS @ INVERSE ut STEP ▖c INVERSE # LET GO TO <>$| NEW USR }.9 CIRCLE | VERIFY g<>0|::|LN USR IN [P]LN |ATN 0 ▘ AND INT RANDOMIZE ATTR / CLS CLS ( NEXT {INT &?©(/IN ?VAL ?_© RETURN DRAW NEXT :CODE d RETURN COPY ( RETURN 8CODE ▜_!COS d^#V GO SUB ISVAL d> COPY 2*$" FOR }PI>= STEP |d<>CODE PY GO SUB C@[D]d,[R]d THEN : THEN xLEN T INPUT OPEN # RETURN zCOS GO SUB PLOT +|ASN OUT <> COPY PSQR dCHR$ d STOP d OUT d▘ COPY >=© COPY COPY P< COPY xg.TAN THEN < THEN RESTORE o&)STR$ )j▝BK FOR STEP _a FOR _SIN e RANDOMIZE FOR MOVE ~[T]SIN w# CLEAR >o[F]gr RESTORE GO SUB {"<> THEN LN G PRINT xPI7FN NEW SAVE FN gy!<=FN o LET <>`y+o| AND INPUT g<> RESTORE STEP GezK▜G MOVE FOR OR {L_▝▖c FOR STR$ ([O],y FOR *XSQR e":pb| IF e STEP ABS e INVERSE ![Q] LET f▞(▗R MERGE INK MOVE INK POKE eCHR$ $CODE INVERSE N INVERSE FP< GO SUB B0 CLS = STEP CONTINUE exLEN RETURN RESTORE LN }u INK , LLIST AND 0aw LLIST <> CONTINUE d▛_ COPY ▟ FOR INVERSE ~;# RETURN COPY >= MERGE n GO SUB g VERIFY o4 BEEP %%~#z NEW CHR$ 8f{ AND _8z VERIFY W NEW MOVE <=:`PI( RETURN PAPER fX@ LINE VAL [H]!INKEY$fNOT W` STEP |f 7 THEN NOT ifPI(: REM GO TO ,h` THEN FOR {<>v FLASH 4 RETURN INVERSE INKEY$![C]f STEP 8[M]f OR RUN RUN RUN RUN RUN LOAD LOAD r LOAD LOAD @ FLASH _INT 8DDI8 PLOT (I$[D]@@ THEN ^{[H]ABS SQR /} OUT LN BRIGHT '/E6~ DRAW TO >~ GO TO DRAW cG8p DRAW ;v RETURN DATA OPEN #| LPRINT LIST ATTR GO SUB LPRINT r / POKE GO TO [G]N OVER DRAW ;- | POKE BIN 8x LIST 'TAB e' DRAW CLOSE #_ BRIGHT gPI?:v_:ABS STEP O IF X SAVE O>/[L]©VO[P]ZSIN o<[J]O▛ GO TO O'wl INVERSE ATN o'?0 RETURN ?gG DRAW BRIGHT ▘ OUT ERASE 3 PLOT CHR$ ▛e▚ CLEAR ▜l NEXT :i STOP )/iLEN [E]/i/* DIM ?Jg//)} INK h/ LIST h/Pi+i$i9iBiKiP LLIST igiYivi@hZ COPY (0* DRAW V :GZ COPY $ $[G]f[E]*[T] FOR Q/ THEN gPOINT s J_5 DATA STOP P<> PRINT MERGE OR GO SUB VAL STR$ MOVE FOR PRINT PRINT RESTORE OR PI THEN # IF SAVE STR$ VAL LLIST LET = GO SUB LET FOR FLASH <>x▜!iso| DEF FN g~#fo▙9aeINT S▞k0'w,>[R]? ERASE GO SUB {5<> OR [A]CSTR$ y> [B] INK O INK POKE >=LO/ THEN CHR$ ok INK y INK 4 CONTINUE $COS 4 IF [I]>= INVERSE !,lVAL NEW PI/▟k5>=INKEY$R+< INVERSE w RETURN 2 !*N INVERSE 6L4 ` RETURN :8X▗10 VERIFY "68"ZTAN VERIFY CODE STR$ THEN OUSR ▜ COPY VERIFY 0 CLS AND !*l AND VAL w+{N(+ FOR x AND Gy AND ▘(O STEP m<>ACHR$ u00:[B][O]1[I]1 PAUSE !XX COPY UwG@▞@[O]<> OR CODE <(9 STEP NOT l NEW G GO TO LOAD ▜/ FOR @ VERIFY AND O FOR Y E~ RETURN ( FORMAT LET VAL l INVERSE q BRIGHT p STEP ASN lSTR$ TAN VAL SQR a,U CLS vW[Q] COPY hH[A]cX[S])<> RESTORE * ERASE l GO SUB _▟VAL$ o" LLIST <> INPUT RESTORE e RETURN A0 RESTORE f RETURN (@5ePOINT FOR LLIST w$ IF %|FN NEW PLOT Xgw<>@ THEN IN RESTORE MERGE STEP CLOSE #l MOVE LLIST # THEN ©( LOAD <>CODE FLASH RETURN /TAB PEEK |( SAVE REM LET INT [R]/ OPEN #OT[A] THEN INVERSE RESTORE MOVE ( MERGE INVERSE LLIST STOP CODE 2+l STEP X*U POKE ▜m[U] POKE STEP 'm CLS >©LEN : NEW LINE n!) CAT LET VAL * DEF FN !)CODE NOT PnPULSA: [Q]▗ LLIST BESPACIORA REINIALIZ DRAW A ERASE DOThSCREEN$ PAUSE 7!CODNT#U COPY STEP POKE ` STEP jc>>!EXP INK EXP OVER P STEP BRIGHT OUT >j> READ ATN / CONTINUE TO ▛`!`(▜$CHR$ STEP }▚,l! DRAW ▚! "ABS o!<" READ ▘ STEP ▝COS " FOR ▗[Q] BORDER COS ▗2Z< INPUT >f THEN o@CHR$ U DIM nn STEP z STEP POINT © STEP W▖' INPUT ▗ STEP /a STEP [B]j RESTORE ▘ FLASH <>STR$ FN IN OR RESTORE OR MERGE RESTORE z STEP ▚i[G] LLIST o MOVE STR$ LOAD LLIST | AND gSTR$ DATA <>:SQR o/ NEW !SIN o▜ DRAW [F]"'@o* STEP [N]o FOR :INT oG NEW VAL MOVE O) NEW @>!<=o( GO SUB DG FORMAT STEP [A]o GO TO [L][▜O> PRINT }HRG!a($ CLS OR xA POKE SQR INVERSE n[N] DATA INVERSE RESTORE H LPRINT EXP INK STR$ STEP ^o>[A] LINE Jo IF Gq RANDOMIZE , POKE STR$ y AND HF=lJ[E]R INVERSE #[[M]<>BxPI IF ▖oACS w, CONTINUE <>>~ OUT "LN CHR$ b INVERSE <>[B]IN [P]l DEF FN <>e IF Gp<>EXP OVER EXP READ EXP CONTINUE P PLOT SAVE IF DRAW RETURN '[R]X FOR STEP $ABS ABS [N]IN COPY [O][ CLS ?▞Gu* INPUT _jn BRIGHT COPY [B]SIN [L]-e COPY COS CLEAR CAT USR 96[H]1F, FLASH ]ATN [P] LOAD X RETURN BORDER 7 PRINT f[T]& RESTORE t BRIGHT INVERSE y▝ OUT [H]ABS 8* LOAD ABS RANDOMIZE CAT + CLS m▖ INVERSE RUN PI© LIST IN LIST ABS [P] RETURN LOAD ▟ RANDOMIZE yY<> RANDOMIZE ▞POINT IN ©@wINT USR ▖~NOT CONTINUE P_ INPUT h=CHR$ IN INT RETURN OUT BORDER #[R]IN g LIST DRAW IN / STEP FOR [R][P][D] COPY NEXT COPY RUN NOT [C]y CLEAR GmIN COPY V BRIGHT RETURN RUN ▘ CLS LN RANDOMIZE CLS b SAVE VAL$ © DRAW J COPY STR$ SIN COPY ▜▚ LIST DEF FN ©wINKEY$>N LINE NEXT $1LEN N)▜i▞POINT ▛ DIM ▟)[A]i[C]POINT [E] DIM [G])[J]i[L]POINT [N] DIM [P])[S]i[U]POINT INKEY$ DIM FN )ATTR iTAB POINT CODE DIM LEN )TAN iACS POINT LN DIM INT )ABS iIN POINT STR$ DIM NOT ) AND i>=POINT LINE DIM TO [G]CODE ATN FN LIST U~ RANDOMIZE VERIFY Z LIST ^+SCREEN$ BWIN COS NJUSR RETURN ` BEEP ; DRAW VAL$ PRINT REM COPY T~ MERGE UPSCREEN$ SCREEN$ LPRINT D~[A] RANDOMIZE G IF GO SUB $ CLOSE # DEF FN Z[Q]J@[B]yy)( CAT =R[S]IN STR$ O LET Z COPY jo FORMAT VLEN /R▗r`RND*g©* OUT W"IN COPY @© COPY SCREEN$ CLEAR COPY 4Q CLS " PRINT COPY USQR Y▗ COPY RETURN RETURN &U*FN :x3] MOVE / SAVE CIRCLE ( LINE 'y* LET LINE RETURN VAL COPY ] CLEAR U@SQR FN LOAD BEEP USR INPUT ATTR FOR COPY PRINT W RUN IF SCREEN$ ATTR PRINT QPp OUT p ▗M DIM *| OR W PAPER CAT USR NEW CODE 1[Q]e[O]▖VAL$ `BP@PI DEF FN COPY F IF Q PRINT Z IF SAVE RETURN t RETURN READ [O] IF COPY RUN COPY INVERSE COPY PEEK CLS COPY ▗ LOAD wu CLS IF "▝ RUN PRINT I FOR REM [E] BEEP UJnFN ▚ BEEP T) OPEN #$SCREEN$ ACS RUP[U]S[Q]©[M][Q] CIRCLE POKE ERASE ; THEN 1PEEK MOVE { DRAW +k PRINT `CODE Z NEW *"[N]? LIST O=[Q]2` NEXT REM CLEAR RETURN LET [Q] FOR COPY G BEEP COPY COPY CLEAR [R]@ COPY REM P PRINT FORMAT ? REM @© MERGE [Q]`©INT J FORMAT AT ▛6 PRINT YD STOP uPI CIRCLE ? FOR @%USR LOAD ATTR CLEAR VERIFY POINT SQR FN Z[S])E IF VAL$ 1L PRINT *SCREEN$ I MERGE [A][E] CONTINUE CLOSE #@HFN [Q][Q]R▙A>FN > INK DRAW POKE "Q PRINT FN SCREEN$ Q'SCREEN$ THEN [C]UTN VERIFY Z+SCREEN$ BIN >=[G]PEEK `[E]▚<= POKE ((- CIRCLE }ASN k COPY 0-FN f]CODE @K/(*CAIN [B]+ COPY U CLS PRINT rUl*SGN @Ex`LN @p8 OR PIFN [H] OVER [O]vE~ CIRCLE yATTR ACS VnpA[U]6RND FORMAT ZGRNDn POKE POINT ▖ IF CONTINUE LIST p?CODE © SAVE SAVE VERIFY CLEAR POKE IF RETURN CLS REM RETURN COPY PRINT MERGE } CLS [S] COPY MOVE " COPY FN COPY LN POKE COPY ▖▚AT RND~^J[u▘ CONTINUE ATTR %Uu_ REM READ COPY U BEEP BEEP CODE / COPY COPY _ BEEP COPY OUT RUN © FOR COPY IF ASN E}U CLOSE # LINE SCREEN$ 3[N]tINKEY$%▗SCREEN$ H&VAL CHR$ "K LLIST CLEAR d IF {AT b FORMAT INVERSE ▚ RESTORE i▚8@ASN FORMAT ▟ COPY v?AT CLS CLEAR _TAB ^ RETURN RUN CODE FORMAT kW© CLEAR [E]D▖ DIM CONTINUE PRINT ▝ REM SIN [G]ESCREEN$ MERGE SIN $ CONTINUE QFN PI CLOSE #Y RETURN REM ©▗O RETURN SCREEN$ E CLEAR UIN 'k@UH[S] COPY INVERSE CLEAR A COPY B_ COPY VAL$ IN 5Z©@[Q]M_USR UCODE TAN LPRINT P[I]PEEK CLEAR u©$[P] PRINT U] REM SCREEN$ PEEK [C] MERGE U} FLASH LIST ^[O][O] TO GO SUB FOR READ e ( BORDER REM [H] RETURN NEW RETURN ! CONTINUE THEN @SQR E6[H][N] USR ▝F VERIFY Z▙t REM u/TAB [A]©VAL$ [J]TAN S▘▘ EVAL [R]CHR$ T(e LINE UB PAUSE [R] REM "FN r PLOT &.W@Uq*CODE LOAD WHSPIQ!C:1TGP=RPp8 STEP LPRINT GO TO `,r8,[N] FLASH < REM CLOSE #© POKE [P][Q]© CONTINUE }@? FORMAT ~[Q]5H FORMAT :CCODE [F]E~j[S] CLEAR =D IF USR CLOSE #! CONTINUE ?T ;FN f COPY PINT V IF FN CLEAR De*STR$ POKE RINT CODE /^NOT NEW & DATA 5SGN ▚mPEEK C IF CLEAR FOR V COPY CLOSE #TAB ASN REM POKE CONTINUE MERGE Bk[Q].P5INT INKEY$`][G] CLEAR TVAL$ -SCREEN$ Z$[ PRINT LIST 5[S]Dr GO SUB k LET SQR CLEAR R FLASH [U]SCREEN$ RETURN UQ|cINT Q@/▖QU▗▘IuLN b$ATN t GO SUB 0PDTAB SIN 82 CLOSE # SAVE @@ FORMAT 8%'SIN [U]FN BIN ▗&w▖[A]INKEY$ZP?+[A]W.[P] RUN CODE 8CA▝9 RETURN TAB RETURN I+XCHR$ Wdc_u+SQR (8O{Y<SQR USR J LINE G PAPER bC RESTORE VAL LLIST _ MERGE / MOVE _[C] PAUSE GO SUB D RETURN 0#A RETURN 000,0VAL OR x2h!r READ 2INT dv[D]nSTR$ x STOP SGN :q NEW INPUT VAL 2F`( RETURN 80 GO SUB SG$TAB SGN s_AT t[N] LLIST [K]O} NEW ▝ AND SAVE [I] IF COS [F][M]OPQRSTUV: FORMAT f▜!▝!N#F" OR :jO:▝O:iK>;Z~W(!"▘^*oSTR$ z▗g PAUSE IN CODE oSQR 8[C] RETURN ; ▜>;g"O RESTORE !▝N*ABS , RETURN `8} RETURN @8i-p&+:ZPI >SIN "ACS yB TO MOVE V"SQR o! FLASH ▚w<> DRAW CLEAR RETURN RETURN U▖COS COPY @USR SQR SGN BORDER RUN VAL COPY FOR COPY <]} READ SAVE [H] LIST ▝? VERIFY w>[P]A LLIST O[U] BORDER 0[K]L BRIGHT gNL< CLS TsIN READ v[ GO TO i! IF IF [U] DRAW T PLOT -kCHR$ [J] PLOT IF PRINT LIST gBIN BIN VAL VAL [Q][Q]w INK ▘▘[Q]&.2478;[I] LLIST !mlOLEN NEW PEEK (w FOR 4 FOR !n4~ RETURN 8!j~▝ THEN ?w FORMAT <>,▙▘ NEW (*W~PIUSR 6 !iz NEW ~(<, FORMAT VERIFY CIRCLE w AND 02▘ INVERSE !e+▖j LINE 5 COPY PEEK CONTINUE PEEK ▖O COPY * READ ▘PI IF EXP .| RETURN <0 THEN |(! : RESTORE 20 FOR s#r"[I]@@ STEP TCODE !COS ©pp POKE RESTORE OR STEP [P] GO SUB KGe INVERSE *, INVERSE V THEN ▘-z[B]_>8Q{ RETURN (g INVERSE STEP =y VERIFY O NEW < MERGE OR FOR Y _z[U]Ww$ IF ABS [N]+<>▖[H]/>= CONTINUE RESTORE THEN GO TO INPUT PAUSE >G STEP >l` FOR !POINT CLOSE # STEP re! DIM BEEP z POKE GO SUB [9 CIRCLE >=LEN 4 <>LN YjVAL INK 7▞C?[A] INVERSE ! CLEAR ▚+VAL$ T DEF FN READ ;!6 SAVE 7T{:COS ▗PI(!*TAN ▗VAL$ w*▟ATN ▗:ACS INT EXP NEW EABS SGN jPEEK GO TO NEW RESTORE PI GO SUB B[G]} AND PO: GO TO ▗G: GO SUB ▗EXP 6 LLIST ("y2~#▚fATN c; READ { FLASH ▗l%ATN * FOR 6[A]DJP!IN ▗4~ NEW (0LN LINE USR ▗"x]c VERIFY CIRCLE ©2©ACS AND 2 SAVE /▜69SCREEN$ ASN PAUSE PEEK y>4 OPEN #▗( FOR <> TO @ FLASH pS RETURN USR RETURN COPY ` COPY VAL USR d RUN PLN !Z~PI>=5( RETURN !+l6▘IN AND LN 0>LN 2SGN [<> LLIST ACS LLIST :PEEK PRINT ~4 STEP J FOR EXP ▚p LET CHR$ n INVERSE !/TAB BRIGHT ERASE > CLEAR TAB NOT THEN LINE n FORMAT CLOSE #▚ GO TO =WK DRAW TAB ▘=y:INKEY$LN CLOSE #[Q]D SLN AND PITE LAUBIDSTR$ B N PA![K] IGUIEN LPRINT "PRUEBSTR$ COPY LEN CLEAR STEP IF [I]▞IN GO SUB FN © BORDER ,SQR OUT :[U]<> CLS v OR STEP 0mSTR$ ▛ PLOT SAVE <> NEXT RETURN (^< PRINT PRINT NEXT PAUSE $ ERASE g▜ DEF FN ▗!0▚WUSR INVERSE 06:20; COPY |1 COPY }G3 COPY ©5 COPY ▝VAL [T]7 COPY 32 COPY POKE ▖4 COPY !▜ FOR `_NOT c`:` PRINT 6 BEEP READ wg)USR l>> LET =! BRIGHT vA▘<=▚FN [M] INVERSE !BIN ▚@STR$ Y<>E 2IHMER JUGADO▘~[Q] COPY SEGUNXDTC C DEF FN UARTOSQR RND CAT CLEAR RESTORE INVERSE SCREEN$ ** CLEAR ©QQ▝ABS INK LIST rr_@ CONTINUE CAT __ OUT USR DATA ATN 7 NEW NEW ?-@=@bb RETURN TAN LINE S CLEAR V=a CLS [Q]PIp[H][A] IF zo` PLOT ../ RANDOMIZE [Q] RUN [K][K]O GO TO i LOAD POKE POKE RUN LIST DRAW NOT > DRAW [X RETURN RETURN > GO TO /CODE CODE INVERSE BRIGHT GO TO NOT CC FOR CONTINUE k▝[C] CLS ▝/A>=[L]USR USR {{ NEXT O PAUSE Upp THEN =VAL ILL PRINT PRINT LPRINT HH[T][T]ATN USR POINT )CHR$ CHR$ ▗▗@EXP 9STR$ STR$ K99[B][B]BB_@Q SAVE SAVE COPY COPY [A][A] LINE LINE $i ERASE ERASE [E][E]▘▘ OUT FN USR | COPY >>@ZPOINT }YYU NEXT NEXT AA NEXT STR$ l%%@@I_ INPUT THEN [Q][Q] CIRCLE QQB DATA DATA / AND AND ]TAN 4 NEW NEW qq`VAL$ ▙EFN (FN FN ??w@ COPY e[Q] VAL VAL rr COPY e>[A] LPRINT MLEN LEN ABS SGN USR <=CODE PEEK PEEK c LIST [H]M MERGE CAT *AI'[R]ATTR ; INVERSE ' FORMAT CAT SIN 2 INVERSE [P] BRIGHT w}B LET DRAW LIST [T]1©91 LET RANDOMIZE sA▙> MERGE FN CLEAR OR ▜ SAVE }9 GO SUB BORDER LOAD A/ THEN FLASH NEXT NEXT NEXT -ATTR MOVE MOVE [T]▜NOT >[S]W▝▝)K CLEAR ATN SGN FOR ▜ MOVE K[E][E]© CIRCLE RUN GO TO GO TO PLOT ! SAVE SAVE BEEP FORMAT a DRAW DRAW {x OVER OVER PLOT ;ee▛▖ GO TO aBBXXIN kw©© BORDER PI CONTINUE K98``H:ZZoUSR <<vv##ASN PI[O][O] RESTORE ▝ LIST RESTORE ?▙KK▚rpR NOT R?! RETURN RETURN $LQQ FLASH 3!AAUSR USR K COPY COPY ▘▘ DRAW BEEP BEEP [D][D]CHR$ ▗PEEK TAB NEXT ▝s ; INPUT 4[B] DATA DATA INK TT LLIST LLIST %B!!k FORMAT O BORDER BORDER (([B]K[Q] STOP STOP [L]3$AT AT LEN LEN ▜▜?pCOS eVAL VAL >>©>?e[Q][Q] LET MERGE IN IN Y LPRINT LPRINT OB[P]GPEEK EXP G▞ CONTINUE NOT kO CAT CIRCLE aaf RETURN VAL GO TO ▛?[M]?'STR$ K DRAW READ } CIRCLE { NEXT EXP EXP [M][P] LOAD K[R]!' DRAW K OVER OVER MOVE K▘▘1 OVER 2SQR GO TO E CLS ▛▛wp DRAW COS POKE POKE NEXT '3WPVAL POKE [ CIRCLE NOT > CIRCLE RESTORE DATA ||54O DIM OUT ▛RNDYG4 IF %K[S]m COPY KM OUT OUT RANDOMIZE BEEP [S]STR$ STR$ IF IF DIM 4`` CLEAR CLEAR <=XX BORDER BORDER llRND▛spyy1@1 CAT g SAVE SAVE [B][Q]NOT [B]?]>=>=+l[A][A]▝[I][I]OASN DRAW [L][J]COS ©CHR$ OPEN # OPEN #[P][P]-KbHpp READ S FORMAT [A]©PPiLEN LEN w ERASE c&cddCOS FLASH [U] ?POINT POINT FFx%VAL VAL 77 FLASH STR$ LET VAL ©©©©aE▜IN IN }cS?McF3;▞gCOS 3 RUN [R] INK ▝▝ CLEAR E??/▛©,}©g LLIST ©©==O LLIST ©>=>=▝RND©▗▗wwO POKE 3▝RND©▜▜ IF IF USR STOP ©ACS ! IF ACS 3BB RESTORE RESTORE OPEN #3cc OR `CC FOR ©EEJJ▚▚©▟}▟ CAT CAT STR$ STR$ IN LIST '<>▙▙ DIM COS © STOP I©[C][C]#ATTR © CLEAR PIAT AT S SAVE ©$$1@ CIRCLE YY LIST LIST [A][A]@ FOR FORMAT PP[M][M] CONTINUE CONTINUE NOT NOT [I]P© LLIST LLIST (( CLEAR VAL ©CODE CODE LET LET [H]LN ERASE ©{Z©i CAT STOP ©EN LET ©HH RETURN © ERASE © BEEP OBATN COS ▟>[R] CLEAR THEN STR$ [R] LET 1STR$ [P]?K CONTINUE [D]?c FLASH STR$ [P]? LOAD BRIGHT ▜?[D]11▜ POKE STR$ NOT _K▞ OUT }$# THEN >= SAVE ? FORMAT 'K++ DATA CLS LINE ?t LINE ; PRINT ▜ SAVE ? RETURN RETURN %$} CIRCLE LOAD LOAD ▚▚ INK ▜/ PLOT PLOT INPUT INPUT [R][R] PRINT )_BIN [Q][Q]//[Q];;xx??[S]LEN NN]]KLL CLS CLS [B][B]a8▖<8VAL VAL COPY ||D RANDOMIZE RANDOMIZE aa COPY 0 COPY COPY LPRINT LPRINT ?©"©SIN SIN >=>=o/ DRAW w CLS QHH RESTORE RESTORE NEXT ORNDRNDJJAA GO TO ssKK@ CIRCLE MOVE MOVE ASN ASN CHR$ CHR$ ; FORMAT RR DATA DATA [N]``[G]L[U]$[(%FN (INKEY$INKEY$$$[I][I]@@LN LN 11VAL$ ▙W< RESTORE ©s▝QRNDMCOS COS EXP EXP !wCODE THEN [L]&&# POKE {AY DATA LPRINT 3NOT © COPY ?/ DRAW ©j LIST ?#. COPY ! COPY RETURN STR$ 7K RETURN ▛ STEP RETURN KVAL 0 MOVE /▛ POKE NOT K?UK CLEAR [C]G LIST K7▜NOT BEEP CLS © SAVE ?c RETURN RETURN G▝K CLS CLS OPEN #▝a POKE K/ATN ATN RUN kCC CLEAR ▝USR _STR$ STR$ 66a POKE ? CLS CLS I POKE ?``a LLIST ? CLEAR LN 8MMCHR$ ?<= OVER ]]aEXP 8<< OPEN # OPEN #?~~ IF IF ee FORMAT [I] MOVE U9ia<>iCHR$ ?*HH[Q][Q]? LLIST bR%a?//[O][O]aa▗▝?Cgg LLIST LLIST ? INK 1 OR 9 ▚pCODE ? LET LET LPRINT LPRINT ▝ RESTORE [Q] PP![C][C]1k[U]$PIPI''))MCHR$ eAALN LN O RESTORE /[L]MVAL VAL 11COS LLIST K RETURN RETURN IF ? COPY COPY ! LIST COPY DATA COPY IN ▘© COPY ?CHR$ CIRCLE MOVE [P]©ccN SAVE ?M IF ? OUT RETURN SAVE RUN ▛ BEEP REM [P]}>=o DRAW }8a NEXT BRIGHT BRIGHT OX] LOAD RUN |[A]q MOVE LET LET INPUT NOT / CAT SAVE SAVE ATTR LPRINT NEXT OOS?▝NOT }WE[B] SAVE DRAW W RETURN RETURN + RETURN (Kml DRAW ? PLOT PLOT > GO TO DATA DATA >> GO TO NOT / OUT OUT PAUSE [M]> PAUSE AND AND BEEP STOP [O]> STOP ++ BEEP K{{PIO GO SUB GO SUB [E]' BEEP LLIST LLIST =▚SK<=[B][B] LET [A]STR$ LN 8<>[R][R]x MOVE GGw`` IF LIST IN <> CIRCLE CIRCLE &!? COPY COPY d? CLS CLS ?1 INPUT LPRINT LPRINT $$PEEK B©;;SGN SGN ▙[R]H INK IN M GO TO GO TO ASN [S]" RUN RUN ▗c[C][C] READ [U]$gg0+FN FN RESTORE DDLN LN ''NOT LLIST ?3NOT NOT RESTORE LLIST !Kyyl`?©©CODE CODE LLIST [Q]▞▜ [P@ RANDOMIZE D RETURN COPY OPEN #? STOP COPY LPRINT [G]▛%H LET ?A?NOT IN p[B][B]© LIST READ THEN 5 COPY LN © THEN [P]CHR$ ©ATN ATN [P]CHR$ ©EEK©▚▚ LINE RND©N CAT IF IF IN JCC--©0aa]] LLIST EXP 8P11ss?~8<~ STOP STOP ?xB3 OR OR ee3 IF VAL ©_USR USR }rIN JJ>)©▛▛[E]©[F][F]HH ?YY COPY COPY ,,bb[H]?[O] ERASE © LPRINT LPRINT <IN PIPI<< SAVE SAVE @AAINT INT XX GO TO GO TO cctP©COS COS LET LET [D] LIST PI©QQCOS ©9?[M]©qIN G CLEAR COPY REM ASN ^8 FLASH /©©2# SAVE Y# BORDER G AND # OUT [B] LET #COS 3[G] PRINT # SAVE K=< VERIFY ATN ▛ COPY X# THEN /E3 IF (}l© POKE (}[H] PLOT P}3 LOAD VAL SCREEN$ FN [L][I] PLOT LIST ▟ CLS INK CIRCLE FF CLOSE # BEEP PLOT z[Q][R][R]SQR SQR [Q] RUN ``NN# RANDOMIZE USR USR 8}~~ BEEP SGN SGN @x[[W STOP ▖▖VAL$ ▝ LIST VAL$ W BRIGHT XX PRINT PRINT LPRINT a[T]# LET LET #>= READ BEEP <> LLIST x PAUSE PAUSE BEEP ??>>[Q]<a? CLS CLS S LLIST LLIST STR$ NEXT --[P] [P]HHSTR$ STR$ ?RRSSF LINE LINE RNDRND COPY 8LWR NEW IN OUT OUT o2[U]$PPi[Q][Q]y@FN (PIPI$$, COPY STOP LIST WH[O]s I6<=I THEN AT [L] INPUT ge COPY ©TAN ▘ CLEAR [Q]INT AT >/ CLEAR COPY ]LN OR Q▙ COPY ?▛9IN 7©[T] THEN ?c OUT LLIST CAT BEEP LET LET LLIST O[H]PEEK PEEK ▛©[H][T]O[T] LET K©[K]▜}3 THEN THEN >© PRINT PRINT [D] RANDOMIZE RANDOMIZE 3COS POKE POKE > POKE TAB / FOR FOR ;; GO TO NOT SAVE SAVE ▙▙_ FORMAT RETURN FORMAT ? LIST LIST @ PRINT W STOP [I]▖>[I]?FF}?__[L]! IF [L]? CLEAR CLEAR 22B POKE ? READ READ %%Cx?33))▝ CONTINUE ? RESTORE RESTORE ((USR USR V▗? ERASE ERASE EEXP CIRCLE '[H] LIST COPY POINT POINT CONTINUE CONTINUE INT ▘?PP OUT OUT !EXP [I]I©9,▜1 COPY !r[H] COPY ''**NOT [C]?[C]'C RESTORE CONTINUE CHR$ ?© DATA ? COPY ?` STOP _ THEN a8< COPY M READ BEEP Np READ READ K[O][O] RETURN K PRINT K FLASH ,]<= FORMAT SAVE ?[F] DRAW PAUSE [F][J] VERIFY '3 DIM DIM >7 IF SAVE >[E]s CLS SAVE {{ READ <= GO SUB GO TO ▙▚▜ READ ERASE ERASE >>?N MOVE MOVE BEEP MOVE LLIST LLIST LLIST PLOT PLOT [S]?``TAB TAB ?▗PPATTR ATTR ? CONTINUE p< CONTINUE RR BEEP ?? GO TO ▖> GO TO ii?}aa?[E][E]ax1?+// NEW READ BEEP [C]STR$ sTAN TAN STR$ STR$ &# FORMAT XX BRIGHT BRIGHT >=>= PAUSE D COPY POKE POKE CX?$$[U][U]| COPY PAUSE [C]& COPY [I][I] CLEAR ▛'K77©[B] COPY DRAW DRAW OPEN #NOT *?Cyy}[R]?Gq LIST G[F] COPY u© COPY ▛ READ ?3NOT >3 BORDER 1[H]©9 IF {3POINT YPEEK dLEN COPY IF CAT LLIST READ LET STOP BEEP PI SAVE ▛ GO TO GO TO LLIST ERASE [▘?3ee?(}[L]© GO SUB GO TO CAT LPRINT DEF FN ?k▜ LPRINT ? STOP [R][R]O SAVE ? INVERSE INVERSE [O] LPRINT ? FLASH FLASH 1 RANDOMIZE @@kSIN SIN [T]? MERGE LLIST LLIST <PIIN 11[G]?[S][S]USR LLIST LET USR IN iff DRAW ? STEP STEP A' IF A? COPY COPY OR [C]$©[B][B],,ddPIPI LIST LIST ?)EXP EXP << PAUSE PAUSE IN COS !s1 CIRCLE CIRCLE ERND$,<[A]=[L]9©© RETURN RETURN AT CLEAR ©A[P]^sIN DRAW COPY USR LET THEN INK xpQ?! NEXT [H]#▖> INVERSE ' SAVE ATTR }qqATTR BORDER VAL ? RANDOMIZE CAT [L] BORDER ! IF BORDER {aa[S][S] COPY LLIST [D] CAT VAL$ GPOINT # IF LLIST CONTINUE 32 RETURN ?COS MERGE CLOSE # GO SUB GO SUB GO TO ; LOAD RANDOMIZE RANDOMIZE 22COS READ G[L][L]▜ CONTINUE K OPEN # OPEN # DEF FN DEF FN =VAL FORMAT FORMAT vv FORMAT CLS LIST LIST ))# LLIST [R]▝[R] BRIGHT ~~ RESTORE [T][T]#[O][O]*▜4*▚▚%@@Sww▖ OR ?? POKE POKE INVERSE INVERSE HH STEP DRAW COS CLEAR ''FN FN &`[H] NEXT ..[J][J]aPW GO TO ++__PPSIN 3 CIRCLE POINT [U][U][H][A] FORMAT ZZ ERASE ERASE RNDRNDPOINT Hd COPY ©©[I]@00FN (QQ!▚L? BORDER G COPY LOAD [C]© #sLoIN FN ▖[B]cCHR$ $ COPY l3`iivcBBEXP *NN RANDOMIZE 3mTAN OUT )LEN FOR RETURN 9 DATA COPY < SAVE FLASH T? POKE K DRAW GO TO CK NEXT LET LET ATN CAT RETURN KLEN 1 DRAW KAA STOP RETURN STOP KEXP BEEP 'PI/ LPRINT COS IF RESTORE PIK+ LET BORDER BEEP [H][H] IF `[H] CLEAR CLEAR LIST 1?=VAL © REM REM PEEK PEEK DRAW ▝ DIM DIM AND AND FORMAT Kii# READ LPRINT ▞> LPRINT 33? LIST LIST DRAW ?[M][M]$ IF ? COPY COPY 0 IF m?_& IF ?▞▞NOT G NEXT ?P22s GO TO FOR [S] FOR QQ44?LEN LEN DATA DATA PP MOVE XX OUT OUT RL00©qq`VAL VAL K-[R][R]BH[A][A] COPY AACODE ''[I]fS▜- NEXT COS [H]3 LLIST K11INKEY$ DRAW 6@c[I],©ew#k?s` PLOT DATA [T]??| COPY ?[T][B] COPY ? MOVE COPY LIST LPRINT COPY i?▗_K*K SAVE 4 RETURN ▘?W BORDER K© OUT KPI RETURN 'KCC( DRAW [H] BRIGHT SAVE [N][ CLEAR ??>]?[E]>[H] PLOT // CLOSE #[H]D INVERSE INVERSE ? RANDOMIZE ▖> RANDOMIZE >>? DRAW DRAW [P]}[O][O] REM REM ▝R/[J] DIM DIM READ READ LLIST ? INVERSE LIST LIST USR VAL$ /[T]# FORMAT FORMAT z0 IF z?g IF g? GO TO GO TO --,}LL©a THEN [B]C?[U][U]TT?++[E]>©)&)TAN TAN ? FORMAT /2!/ BRIGHT BRIGHT !VAL VAL NOT $ COPY ttK▜?©a*KDDx THEN ?©|C3$$[C][C][E]▞ COPY POINT ▞! PAUSE c COPY TO TO ▚?+IIff▚?WG INK STR$ J DATA COS COPY LN /M©G CLEAR COPY RETURN © GO SUB GO SUB 4 LLIST W RETURN 3© CLEAR RETURN CLEAR ? FOR FOR z[N] INK /K MOVE MOVE DIM DIM ©RNDCOS COS [T]© LPRINT LPRINT CODE CODE ? CLEAR [P]!LEN IF ? SAVE SAVE WW[O]!? DRAW DRAW ]]▜ LLIST W?#FN FN MOVE ?[B][B] ERASE ERASE IN iccPPaa▜CODE [Q] CIRCLE -- OR OR ?<IN XX CAT CAT PI83©yy INK QQG[U][U] OR © GO TO GO TO [G][G]22x3LEN LEN 88a?!SIN SIN i#_a COPY AT 3e LLIST 0P©qp PLOT 11CHR$ <=?AOG RETURN © COPY COPY RND© LIST FN COPY u GO SUB CODE ©<=SQR 0 LIST OUT a[P]?UT NEXT [S][S]SCREEN$ PLOT CAT ▜}WATN ATN 7SGN SGN = BRIGHT CAT CLEAR CAT CAT zCHR$ ?DD#J CLEAR [m IF A MERGE PI FOR POINT POKE .. CLS LIST CODE GO TO FORMAT LOAD ,,zxG OUT PAPER ▝= PAPER GO SUB GO SUB _PEEK PEEK 33 LLIST NOT [R][R]OzCODE [Q]/ LPRINT LPRINT zLN **#<= OPEN # AND AND =:`;[R]! DRAW DRAW ^^ DRAW FORMAT [R]mmNOT NOT VAL ? FOR RETURN RETURN BORDER BORDER COS COS [Q][Q] OUT USR FOR ABS VERIFY VERIFY [U][U]o`▟gg NEXT IN AT AT CONTINUE CONTINUE <0?[ INK INK HHPshh©©[C][C]((KHB" COPY PRINT PRINT [J][J] SAVE g IN RETURN [U]s[I][I]>=©K▚ COPY FN ▖/C" COPY LET LET ▚{YGt[B]©! OR 2 COPY RR PLOT ▜! COPY [N][M] CLS c BEEP " COPY [T]<=NOT s POKE ?▘? RETURN ? LIST DRAW ? DEF FN ?IN ?O LIST ?OO[M] LPRINT ? LET ?g DEF FN AKNOT ATTR BEEP POKE //©▘? IF IF >? PLOT PLOT {{ POKE ▞? ERASE ERASE [P]p?K=D?[Q][Q] REM REM [S]# BEEP BB?[T]# POKE POKE >>? DATA ▖> DATA ss?TD@xVV? BEEP BEEP ffd IF d?VAL$ VAL$ iikd COPY STOP NEXT OUT LINE LINE ▝shh~~RR P© LET LET FORMAT FORMAT AA▗^^!!22XXKVAL INK $VAL INKEY$INKEY$E<> SAVE SAVE [H][A] RETURN L▟/-▖USR cIN G POKE ▗ STEP ▗[D]A@ PLOT [B]'`` RETURN LIST COPY ?[T]G COPY ? LET COPY d?3 RETURN CLEAR 3 LIST ' SAVE 3 DEF FN ?▜ LPRINT 3 OUT OUT BIN BIN > MOVE 3?[M] IF }▘'OhW CONTINUE [T]' CAT ATTR LOAD FORMAT ▜ LPRINT K CIRCLE // MOVE ?PEEK >[U][U]mm[O] FORMAT kIN ? PAUSE PAUSE [P]a SAVE $3 BEEP BEEP ▞>yK OPEN # OPEN # IF [P](eD LLIST LLIST LET LET ?[Q]▖>[Q] RETURN RETURN ? LPRINT LPRINT }ii? SAVE SAVE 3 IF 3?FF66[Q]xINKEY$INKEY$©ddeeyQQ COPY AT AT jNOT j?RND,,<= COPY ?[S]"hh||[A][A]?▞ COPY POKE POKE XXDD OVER OVER COPY q8K?O©?SIN U▖©4BIN [T] COPY COPY ▛<><>[Q]x ""yym▝▝[J]@?OO VERIFY AND LIST COPY VAL ;IN ©x LLIST COPY p©A LIST '? OVER OVER N?s POKE ABS > LPRINT STR$ CONTINUE D[P]K,,? CIRCLE ▞>__? BRIGHT ▖>i?IN ?Opdd? OUT [P] LIST ? LLIST LLIST >D? BEEP [Q][Q][M]▞?[R]!} CLS ? LIST LIST ' DRAW ? OPEN # OPEN # MOVE ?aaVV▜ STOP ©bb[U][U]▜ MOVE ? LLIST POINT POINT IN LEN <><>▛yIN ATN © READ [P]+[P] STOP IN ©[B][B]'D3 OVER OVER LPRINT LPRINT af▛LEN LEN R NEXT PP+[A]▛▛/l OR ©[G]?a©COS [I]?e©"IN COPY _L CLS G© LIST ▖ COPY |h DRAW IN )[D]?TAB SAVE [D]▛[H]((OEW[P]A PRINT Wcc/ OPEN #:[P]y$ssLEN PRINT ▛11[J] NEW [P] DRAW [B]#~~}v;EXP LN ▛ PLOT LLIST THEN s--[Q] LOAD COPY COPY ▟; OUT FORMAT FORMAT {S LIST LIST ]] POKE CAT $[N]dUSR LIST d[F] MOVE MOVE ? RUN =-==RND88 RETURN SGN LLIST ;©"©©PEEK PEEK STEP NEXT ▝G NOT LLIST LLIST [P]MAT AT TAB ▟Ko` CIRCLE [E][E]oo[H][H]70 FORMAT ))^^jj LET ▝[B] COPY ,,TAN TAN H DATA COPY XXE`x DATA DATA 3S[K][K] @<><>A%$@@[A][A]7II BEEP LLRND[U] COPY ▗VAL HHu TO CAT 4[K][Q] 0 DRAW )TAN ▗00 FORMAT USR ▜1??tG ERASE 2[C][C] IF k)9 COPY INT 0?c[D] IF CAT [D] RANDOMIZE CONTINUE ?▜ COPY * INVERSE ?~ READ MOVE DRAW ▛K SAVE n POKE !K BORDER [F][F] CONTINUE CK[P] CONTINUE CONTINUE G[P]KccK LPRINT ?IN IN STEP SQR c33 RUN ?CHR$ PLOT ▝_! THEN POKE INK CIRCLE O POKE ?//▜ LPRINT ? INVERSE INVERSE MOVE ? RETURN RETURN ▙▙[S]? INK INK FLASH FLASH IF ? LIST LIST ## LIST '?[Q][Q] CONTINUE C? LET LET S OR ?G[H]CHR$ ?BB''>? CLOSE # CLOSE #SCREEN$ [S]--a▖?ma77▚>=? COPY QQ**@?[Q] ! POKE POKE FN ▗>=FN COPY YY©©` LET _©S[L][L]B RANDOMIZE RANDOMIZE AA[A][A] LLIST [I][I]pLq THEN )),,%$||$,?CC!KHIN L▚?I▖ COPY IF [D]kC DATA COPY CLS 00G[T]?)[S]KggSGN SGN KF[P][P]K©KP SAVE [H] POKE RETURN K.. SAVE y GO TO ▝__ INVERSE BRIGHT # INPUT C POKE ? PRINT LET ▜ CONTINUE ? VERIFY FORMAT MOVE ?SQR LN CC POKE VAL dd55w POKE STR$ LEN POKE I?▝▝CHR$ C?aa?RNDO44LEN OR ©xx[H][H]©**XXSCREEN$ SCREEN$ FN FN [H][A][S]"(F[O] MERGE MERGE COPY O#©D POKE ▝DO[M][M]>=>=<d?,, LIST $?"[D]K|| COPY e▗[Q] [T][T] CLS CLS TAN ▗COS [T] COPY MERGE " CLOSE #BIN COPY dPOINT ▞jb+k LET @ COPY CODE FLASH NOT G©P%AT ©N COPY THEN [M] RETURN U THEN [I] RETURN FN THEN GO TO BORDER SAVE THEN gg LLIST ERASE ©[M]>?SS THEN RETURN THEN RUN IF K DRAW ?}| REM ?[F][E] ERASE G/__> LLIST ©?::}▖? LET LET IF ? BRIGHT BRIGHT LIST '3[T][T] CONTINUE C? LPRINT LPRINT ASN ASN MOVE ▜?@@xxNOT [P]? ERASE ▜IN ||<=<=STR$ [P]©VAL VAL ?aaW?((qbbSCREEN$ *?>=C©$$TT` BORDER COPY [U][U][I]bkh©HHBq?g[A][A] LIST LIST ak3PPLEN LEN [O][O]▝ FORMAT QQ}}7II[U] POKE © MERGE OR "2ASN ▛▖ COPY GG4RNDIN LN LN ©G RETURN IN COPY LLIST -▛[M] OR ?©/ PLOT K? LIST }/ OUT CAT PAPER IF PAPER OUT 33 POKE POKE @ PRINT USR USR PEEK x PAUSE PEEK sp OPEN #??O OPEN #[H] LIST <=k CAT cCODE _#PIw// CIRCLE READ k COPY _ COPY 5 COPY VAL ▜# BORDER OPEN # OPEN #/ LIST READ [O] LIST %G[O]SOO RUN RUN '' FOR # OUT FORMAT ?(! NEXT [I]TAB INVERSE ? RUN GO TO REM STOP &&~~ DRAW 1[E][E]UQ-- MOVE MOVE [P][A]$ FORMAT [J]RND INK ?oUSR >=`[P] LOAD LOAD *▞<*70[P]::[B]w THEN $[P][L][L] CLS UUSR LET __[M][M]▚>=[P]SS))" RUN [P]rd RANDOMIZE RANDOMIZE ATN [B]![P] SAVE SAVE ▞▞ TO >=ATN [P][B][J] RUN [P]VAL POKE ATN L[N][P]_© OUT g▘ RUN COS GPEEK MERGE ATN LIST STR$ OUT COPY w LLIST COPY IF a*% LPRINT ©7 CAT [M]? LINE LINE ? MOVE > IF ?NOT G[P]?| DATA [P]F>?[P]< CLS [I][I] FOR &?[N][N]? SAVE FN [P]G RETURN w[P] OR +92▞▞ATN d[P]h8rATN [P]>r?ATN 0G[P]G[O]PI[P] CLEAR >=ATN ?ATN DRAW RETURN ▙? SAVE S©44 LPRINT _©▚?[S]"**?++7 LLIST >=0[P]>=<=?w[G]▜[P][L][L] PRINT PRINT RETURN +©aCHR$ ?(( LLIST >=?[P] DATA >=?ATN ▜a[P]▖▖K STOP #[P]c[O]©▗[P]y▚3;_▙[P], RETURN ©9 IF k?ATN RETURN [K]© CLEAR LPRINT ? OR ,© RETURN ©? READ ERASE © COPY IN ?k LIST 1hPPIN OATTR ?%_ RETURN ©0[T]?r DATA ?ATN [B]![P]VAL PRINT ? PAUSE ATN [P]© DRAW ?>=© CLEAR ATN ?STR$ [T]ATN [A] RUN READ ?1TAB 8} CONTINUE BORDER <=<= IF W[J] IF IF LLIST !W``|| CAT THEN ?w[P] LPRINT W>DWSGN <=22 RETURN VAL FOR FOR FLASH FLASH >?+ABS OVER OVER }[S]KLEN LEN LIST USR / LPRINT LPRINT INVERSE INVERSE < LLIST W?GG0$W## RANDOMIZE W[P]▗K NEXT CODE CODE ?C GO TO @CHR$ &KW CIRCLE OUQ?D^? MOVE COPY )>=$)&&oyd COPY 99-- LET LET [P]2@ COPY 11 PLOT PLOT SAVE SAVE o`c2 COPY %a DATA BEEP COPY I PAUSE PAUSE d[N]▜2@ COPY QQ[M][M]KH2! COPY ,,' LIST [L] LIST LIST RANDOMIZE RANDOMIZE [F]<[B] COPY 88"<= CAT COPY [G]:POINT PAUSE D COPY VAL ^? LLIST %^ PAUSE ??W COPY BEEP ' OUT W SAVE [H] LET ▘▚WEXP ?rp THEN THEN ?G? COPY ? CONTINUE © CAT STOP ?©w[P]?q SAVE ,{?▙~©?>IN ?[E][E]' BEEP ||;x▚?▛@q?©88H▙ BRIGHT H COPY [G]? PAUSE D COPY VAL G^ COPY }<>[H]?<> MOVE ?}?p▞ RETURN s OR ©?▛©::Q© DRAW ? MOVE COPY CLEAR >=? COPY LLIST )©EE}<>?g(©[I][I][H][A]NOT P[P]G[N][N]3 COPY [P](TAB ©CC LIST LIST G> THEN COPY K COPY FN | BEEP COPY }©▗K.© READ CONTINUE ? COPY BEEP © COPY PRINT 2[T]LN DATA RETURN s LIST '?KK LLIST O?_ SAVE IN ©<>PIIN ▜©? IF ?5[P] CONTINUE sIN PP LIST [A]?kh;SSo RANDOMIZE ?©>=RND© CLEAR COPY ?▙ COPY ?▜[H]?p<>©?[H] SAVE © DRAW G?[H]/?;?Mrho COPY ©h COPY BEEP ] PLOT DRAW RUN RETURN RETURN + RUN CLS © COPY IN RUN " PLOT STEP Q OUT [P]x$ RUN INVERSE 2>©PI CLEAR 8 STEP } CLS LOAD % GO SUB [P] ABS RETURN "[O]IN [P]o? RUN ~?K RUN [N] ©[O]f[O]_? CONTINUE i VERIFY ?EoWF▛D RANDOMIZE NEXT P DEF FN LPRINT 8©USR [U]GECAvATN _▖9CB(ABS RUN THEN ;YFCBw CLEAR D= NEXT ^~ RETURN ? CLS g CLS DRAW = OVER ABS OUT CLEAR IN LOAD CAT F7w RUN RUN [T] IF RANDOMIZE _gc GO SUB LET LOAD <?! RESTORE NEXT LET DRAW J[B] CLS E READ <= READ ' RANDOMIZE ==ATTR [P] RESTORE BEEP BEEP READ READ o`5LN LN ATN VAL FLASH USR USR [X BEEP >=>=ATTR FN INPUT WP BRIGHT [Q][Q]' CLOSE # SAVE G OUT +(LN 8 SAVE KINT :88[N][N]UTEXP 9 [L][S][S][F][E]pp[C][C]'▞▖ LPRINT grr% NEXT JJRRI[B][B]AAjjvvEE;;gPP$!77O``GSIN SIN [R][R][C]W MERGE ggw[P][S] RANDOMIZE =s▜ RESTORE 3!CODE [Q] STEP STR$ STR$ CAT CLEAR C COPY ATN NOT D LOAD LOAD BORDER BORDER [F]: COPY u:/8'USR IN BORDER SAVE LLIST IO GO SUB ?? RETURN RANDOMIZE ZINKEY$ RANDOMIZE ©[U/ COPY Y[G] RETURN PRINT COPY BORDER ^ LPRINT PRINT CODE yEXP RETURN q BEEP ?t[R]! COPY PLOT FOR _▝© CLEAR GO TO CODE &0 COPY r LPRINT !t8 GO SUB O BRIGHT `3H[P] CLEAR >= DRAW INK & DATA ATTR [P] RETURN & RETURN DATA t2 CLEAR RESTORE &r& PRINT CODE BCHR$ OUT CLEAR &r© PAUSE & CLS m& THEN [T]&Bt© CLEAR &[I] COPY l@^h CLEAR PRINT LOAD CAT &L& RETURN CAT Vg FOR _&_ OVER &t1© LLIST ;a GO TO CODE MUSR CAT RETURN ▝&▜[P] GO SUB DRAW [N] DRAW Yn DIM ©U DIM &@<> NEXT &t@ CLEAR BORDER Y[S] OUT FORMAT & PAPER RANDOMIZE z_@`3 CAT RETURN USR &© DATA &8g SAVE Y RANDOMIZE DIM & FORMAT @)!5© IF SCREEN$ ATTR ASN V FOR ] MERGE s MERGE IN [P] COPY ▗XN FOR MOVE q BRIGHT J>▛|zn▛ MOVE A AND RETURN USR " READ L STEP [O] DATA ^[E]?COS R[D]R[A] BORDER _ POKE O| BORDER $ POKE TO O CAT A LLIST O▟%SCREEN$ <;, BORDER -zvUSR SW LLIST g< / PRINT [A])INKEY$bP(( CIRCLE [D][A]VAL AND NOT ▝>=RND~/|5[S]o STOP [A]tSB LPRINT a@y<USR |G RETURN NOT LINE }▛ FORMAT READ .3)J@▛ OUT z LIST [B][FN s BRIGHT K FORMAT ? POKE ^ READ CLS INKEY$ OR X[F]CODE IN ▗ FORMAT DATA POINT [D]u LLIST OR :▖▝ PLOT Q~ACS VAL$ k_ READ LINE BV FOR IN SIN COPY [J]ATN g OUT 5 COPY CLEAR SQR , FOR IN INKEY$R[C]PEEK T NEXT NEXT ^ BRIGHT FLASH Q?ZpTAB -S RUN ©J_ REM CLS LOAD mYOTv PRINT JATTR RETURN o1 OUT O THEN COPY EOYV[K] REM 6ATN J THEN mm[H] PAPER CLEAR [P] PAPER CODE _[▟ OUT RETURN EATN CLS RANDOMIZE [P]E>= ERASE O REM U[O] REM ATTR NINT ASN RANDOMIZE ]^^[F]ATTR ATN ERASE 3D"[E]IN J COPY COPY ~ RETURN K▞JTO& CLEAR O▛[ATTR [CODE VAL$ RUN CODE =▚ OUT COPY BORDER FLASH @@ATTR mATN RND©$E THEN INK pVAL$ BEEP ▝h MERGE REM ATN jIN { MERGE ATN OUT SPEEK "c THEN OlA BEEP [Q]▚eABS ] COPY ACS BEEP H OVER AT ACS ABS GO SUB FORMAT : READ CONTINUE ©▛FN =[R]],Pn DIM U[S][S]SQR 9 PRINT z*/w PAPER WCH1 MERGE NOT CODE IN BIN g COPY s@_ OR k CLS OwFN pX LINE *(▗ BEEP LOAD ©kJXSCREEN$ " RUN TAB CLEAR TAB [[P] COPY ▝k<=1©b[T]m[K]uQ~SQR J MERGE [O]A!©VAL$ RUN / BEEP {TAB sSQR e[K] OUT OVER ' GO SUB SCREEN$ RESTORE J LOAD 5S[BiTAB [N]N GO SUB z FOR MOVE ( _7IN JCODE RETURN ~_ COPY COPY STR$ MOVE +O[F] STEP i MOVE FOR D*ACS PAPER ASN OPEN #4©9 LLIST GO SUB [M]BASN ASN ▝ IF INPUT ZTAB VERIFY PLOT CLEAR LPRINT ▖IN IN OUT ,▗LEN ©SIN [G]iVLN Q OVER ATTR V MERGE RUN LOAD VAL ▗ COPY CLEAR INVERSE 'OFN QAZ CONTINUE ASN U© LOAD INT FLASH @0vASN BORDER EXP {"O RETURN COPY @" FORMAT i FORMAT ▖ MERGE B FOR Q[T] STEP x8 0p BORDER DRAW OVER # COPY # 1 LINE PLN S OPEN #^>k CLOSE # GO TO READ ATTR SGN 0P▘[A]V[N]tNOT (P TO VAL *UMd! OVER @TAB SAVE = LLIST NEXT GO SUB s?a INK ";a INK !▞`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1x[D]NOT [ GO SUB LN ` 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 [ INK 1 CLS <>MsPk CLEAR [U] SAVE [U] BEEP FN C``NOT jiCODE STEP [R]f INVERSE !ASN ` STEP EXP g PLOT !` COPY 0 GO SUB VAL NOT CODE 2] NEXT GO SUB V CLEAR !:/ GO SUB [ POKE /!`` RESTORE A GO SUB S& STEP =^7NOT 5 NEXT > OPEN # RETURN NOT b PINCHA UNTE GO TO INK A DON EMAR[Q]%EL DISCE [Q]nf! LIST T]6`| !a"a` GO SUB Gj CLS <> PRINT RESTORE MERGE OR INK INVERSE RESTORE CLEAR RESTORE STEP ;a STEP Sd STEP REM e CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET FORMAT INK CLS GO SUB M:[O]SQR GJ<LN STEP [P]SQR CODE OPEN # COPY <>$| NEW USR } AND o CIRCLE | VERIFY gJxPI7FN NEW SAVE FN gy▗<=FN o LET <>y[Q]▝h&)O:SIN EXP NEW ▝o| DEF FN BRIGHT 5s]a zK▜G MOVE FOR OR {%"_ FOR STEP Na FOR STR$ 7 FOR INVERSE ~ INVERSE # RETURN COPY >= MERGE o>[D]c VERIFY oC%%~4#z NEW CHR$ NEW a{▖_8z▞W NEW MOVE <=:`PI( RETURN PAPER 3b LINE ^b INVERSE !T,bNOT ` STEP *bI AND 7 THEN NOT bPI`h GO TO ` THEN , FOR {<>v FLASH RETURN INVERSE INKEY$!4@b STEP 8Jb OR RUN RUN RUN RUN RUN LOAD LOAD LOAD LOAD @r FLASH _INT 8DD8VAL @@/ PLOT INVERSE SQR INPUT INVERSE / INPUT CLS 'USR RESTORE /E6,~ DRAW TO >~ GO TO DRAW ;8p DRAW ;v RETURN '[P]| LPRINT LIST LPRINT Ymr/ POKE GO TO N OVER v DRAW || POKE BIN e-8x LIST '' DRAW CLOSE #PITAB _ BRIGHT ?:v STEP g_:OXABS IF SAVE O[L]>©VSIN /O[P]o< GO TO Z[J]OO' INVERSE ▛wlATN o0'?▟ OR g|INT AND ▘▘wYINT [I]0 NEXT . GO TO :[P]sLN USR LN 3© ASN BORDER 8 CLEAR DRAW /( RUN CLEAR fo©_([P]IN /[P] OUT © CIRCLE _ RETURN ? NEXT :CHR$ d RETURN COPY ( RETURN 8CODE ▜_! AND d^#V GO SUB SNOT d> COPY 2▛$*$ FOR }PI>= STEP d<>CODE PY GO SUB CINKEY$d,TAN d THEN : THEN xLEN T INPUT } OPEN # RETURN zCOS GO SUB +|ASN OUT <> COPY P DEF FN d MERGE d PRINT d PAUSE d▘ COPY [P] PAUSE COPY COPY P<@ COPY xg. THEN < THEN RESTORE [D]JDSTR$ jD© INK G INK K FOR !lx RETURN [Q] PAPER +eINKEY$yUSR RETURN CIRCLE 8 THEN /. COPY STEP wa0 FOR STR$ y> [B] INK O INK FOR O INK x INK . ERASE ~e>=INKEY$ FOR ACS FOR w# INK y INK o[F]g CAT <>y▜_[D]W FOR © POKE n[K] PAUSE [H]n OUT nCODE CHR$ <=e` INVERSE NEW `W:fPI>= INVERSE S!▟fVAL L STEP LINE >[C][H]<> OR @ BRIGHT < INVERSE w RETURN 2 P INVERSE 6"+ INVERSE 4 STR$ RETURN :810 RETURN 68"TAB ASN PI STEP CODE aCODE STR$ THEN OUSR ▜ COPY VERIFY 0 CLS AND !▛f AND VAL w+{ AND 0 FOR x AND Gy AND ▘(O STEP ▜g<>ACHR$ w00: POKE # COPY S!XX COPY wINKEY$@@[S]<> LPRINT OR CODE <(? STEP EgINKEY$ NEW RETURN 8 VERIFY Gz`7▜ STEP FOR VAL AND O FOR YK~ RETURN ( LINE CLS !g INVERSE q NEW p STEP &gSTR$ cASN 8eg> FORMAT ]=CHR$ [Q] COPY FN XLSCREEN$ <> OR MERGE [E] MOVE FOR LIST <> RESTORE *Tg GO SUB _▟VAL$ o" LLIST <> BRIGHT RESTORE COS ` RETURN A0xCc RETURN ( READ `@` FOR LLIST w$ IF %|N NEW PLOT Xgw▟ BEEP THEN IN RESTORE MERGE STEP Vg MOVE LLIST # THEN ©( LOAD <>CODE PAUSE ! FLASH RETURN / AND ( SAVE AND CLS ASN PI▙ GO TO Opw, INVERSE RESTORE MOVE PI MERGE INVERSE LLIST STOP 8'y NEW ! REM g LPRINT Tg~ FOR <>@ ▘ DIM : LPRINT LET COPY STOP COPY GO TO COPY DEF FN iCODE !3k"-hC1VAL STEP %h} OUT OR STEP 3hSTR$ CIRCLE [H] GO SUB K_ INVERSE *, INVERSE V THEN ▘-z[B]_>8Q{ RETURN 8> THEN ? STEP bhyX VERIFY O NEW < MERGE OR [O]~Bh_z▞W COPY $T COPY E+<>▖ RESTORE THEN >= CONTINUE RANDOMIZE PAUSE GO TO DATA | INPUT (LEN STEP SQR SIN STEP yEXP g STEP POINT [Q]g CLS >© FLASH RETURN NEW LINE i>CODE NOT RNDiPULSA: [Q]BESPACBIORA REI@NIALIZA ERASE DOTD}8[K]7!CONT#U COPY i:| INVERSE n INVERSE f[A] LLIST PI GO SUB B 8Qkt*FN EXP ▝St RESTORE INVERSE N!F LLIST 0 INVERSE < RETURN BORDER <[U] AND 0Ahi[U][Q]QF CIRCLE X<>0 COPY STEP POKE ` STEP ASN EXP ATTR `D!` NEW v-E STEP %!_vY! INVERSE Y[Q]▜ NEW o STEP INK CAT CLS STEP OPEN #m STEP GO TO a THEN oCHR$ INKEY$h PRINT STEP ▗n!RNDEXP ▟TAB y%[U]ACS STEP w LET STEP ,j STEP =l STEP <5[B]SQR STEP h STEP 3} STEP i STEP ©STR$ <>! COPY ;" PAUSE gCODE 23k2©2 PLOT g2▘TAN EXP 2 LOAD m>2SCREEN$ COPY 2BO"R▞" CAT ^B![U][EXP m FORMAT [@PEEK CHR$ LN {:|/▘F+j<>_:@LPI THEN THEN ▛!E{ NEW :8k RETURN (▚~ RANDOMIZE 04^~ THEN K(` TO k< THEN C TO k0= NEW wW`[ (PI VERIFY PAUSE }jCODE AND 9▖S( AND RETURN @4?wtG NEW 0 THEN ▘SIN ▜!9k[Q]PEEK RESTORE INVERSE LLIST INVERSE n&D THEN }(▗& COPY D? FOR *$[O]:INKEY$EXP ▖"2 REM ©PI 6POINT 2*4k| RETURN [$":kSIN !lYF THEN G :5kG8X STEP (Rl CLS OR RNDEXP +m LLIST =#<<>= CLEAR 5 FORMAT <>< CLEAR 4NOT i4 PAUSE NEXT SAVE LIST SAVE wa LIST LIST SAVE LIST Z LPRINT LIST ▞m& LPRINT LPRINT !Q LPRINT USR LPRINT @4@ MOVE @ FLASH &USR USR ! LPRINT DATA USR © CONTINUE CONTINUE POKE %/>= POKE CONTINUE I[C]_lLr_© INPUT .^©©I|PI"EATN !cl~4▜▜!d4Ap#s#r<>PI*>=6 NEXT PRINT F# READ ## THEN { NEW VAL G RESTORE STEP RETURN d LLIST LET = BORDER <>l NEW ' OPEN #[G]NOT ▝ DIM [G] FORMAT INVERSE !VAL l<= LIST [G]ASN l IF L[G]SQR )d RETURN e CLS vLEN POKE ▙*SIN EXP } NEW &G|U▜!) CIRCLE LEN [E] FOR ! FOR L< CLEAR >xPEEK [R] RESTORE rQ" LIST ~CODE W2Cn@▖8 VERIFY THEN ?O}[B]o> STEP LIST mz2An! INPUT m~ATN CHR$ THEN PIUSR (?BIN n RETURN CIRCLE GO SUB D RANDOMIZE j_><> RETURN FORMAT `qcW NEW TAN SIN !Dnk~![Q]*FN EXP ~B~!LN m▖PEEK >= MERGE OR w!EXP m▙J SAVE [J](M[U]STR$ MOVE [F]SCREEN$ ▗LN RESTORE /6[C] PLOT STOP CP[F]5USR CODE OPEN #▟7ACS t-S5.G~ THEN wUSR xSIN W STEP 0n+ CLOSE #>[A]DINKEY$RND!h STOP INPUT c` CLOSE # MOVE H[J] LET PRINT PAUSE J VERIFY RETURN 0>J CLEAR PRINT LET USR PAPER x COPY T6 COPY LN ▛[J] RESTORE Z COPY [L]$ INPUT $/[I]Q INVERSE !o RESTORE INVERSE ^ INVERSE VPI GO SUB R LLIST ! INVERSE ~!TAN EXP POINT LET wi[U][C] INVERSE N INVERSE FSR[I][A]<>POINT INVERSE THEN <>INKEY$hINKEY$# CLEAR PEEK POINT RANDOMIZE COPY G&[I] AND SIN CLEAR ▗▗u&tDVAB22t INVERSE X= CONTINUE L AND rP IF COPY ABS RESTORE LINE BORDER W<▗<m[E]▗9!~l OR STEP SGN |8!VAL D5W_!r[Q]o CLEAR ~ OPEN #)N#F#~#fo STEP ▜eEXP CLEAR STR$ MOVE <>[U]▛ dSCREEN$ d▟z[S]Y INVERSE y OPEN # GO TO ERASE STOP . MOVE ▞DD AND *H BRIGHT %tH)[M] LOAD { CONTINUE RANDOMIZE G!▝qXVAL !ABS @Z[Q] STEP [D]a![J]>= VERIFY INVERSE ! OVER vM&CODE !qFN !=rO NEXT FOR MOVE qUSR ;J ▛z ERASE ▛ MOVE A FORMAT ATN READ L[O] DATA ^>[E]R[D]R COPY [H]zCHR$ ▙4 DIM fQE->=[B]u+:C[J] DEF FN w[L]2BIN = DEF FN g<"D%)D[U]7RND)t[U]IN ▛ FORMAT READ .3)J@ ERASE COS ▛z@s BRIGHT COPY =K LINE CLS [A] POKE ^ READ INKEY$ OR X[F]CODE ▗ FORMAT DATA POINT QIN [D]AC]BCDN CAT BB] THEN DCD/<>#▙`EEDBR(!Fn>6w RETURN [P] RUN )d POKE FOR TAN ▖▛ CLOSE #O>d▝@!SIN >=h) LPRINT w[R]INT USR LIST '/PEEK =F[,N[A] LIST S SAVE ASN 0x PAPER 0[B]VAL , DRAW U,ATN z▜ MERGE LEN />m FLASH /▛[D]dIN EXP _[D]m[[D][D][D]$ NEXT [D]9 INPUT PLOT [D]f+[D]MfP STOP _ FLASH [D]8LEN v[D]H LPRINT _ LIST i RUN GO SUB USR [D]; LIST BRIGHT [D]<'# INPUT ATTR COS [D]C CAT '▝g[D]' DRAW }[D]PEEK [D]'B OUT [D]f'[O]lF[D]p DATA [D]▝ POKE m'[D]LN ''kUSR BORDER 7[D]PEEK [D]NOT SIN RETURN ERASE [I]e STEP RESTORE u:VAL$ PEEK PRINT ~4 STEP [C]ua REM 4POINT LET CHR$ i,` RETURN LINE #u< PRINT LET [A] PRINT ▝( GO SUB _ NEW gy0▗!kt@_{/ CLOSE #08c:40 COPY 3 COPY CONTINUE MOVE 2 COPY 5 COPY z POKE 7 COPY ;1 COPY 38 COPY CONTINUE BIN INT 9 COPY UDTIEMPOS PAPER PRIMER JUGAHDOSEGUNb©T GO TO ?$C' RETURN CUART&/CHR$ COYU,J READ I FORMAT .:`PICHR$ su4C LOAD VAL *<=COS t▝ BORDER hv@ LIST X RANDOMIZE ▜|pw▖; LINE [Q] PAUSE Yj[U]uG> CLEAR piSCREEN$ THEN LINE Qv GO TO =WUA=▘ CIRCLE PAUSE /[F]PI INK SCREEN$ VERIFY [Q]D S>=$@PI[R] LA FA REM $[R]B N PSIN SI RETURN IENNOT "PRUEBSTR$ COPY FOR OUT STEP BvACS © FLASH FN DRAW DEF FN ,©7 NEXT v:[U]<>v OR STEP SIN gSTR$ PLOT <> LLIST <>!LN [Q] REM ` FLASH NOT c`:SCREEN$ =` PRINT FORMAT _ SAVE NEXT LET = DATA c!ABS vFN TAN REM vx PAUSE CW INVERSE !RNDv/ MOVE DIM b LINE THEN POKE [R] CONTINUE ~0ATTR [J] CLEAR LIST ATN DEF FN RESTORE RANDOMIZE STR$ INK E COPY INVERSE COPY PEEK CLS COPY ▗ LOAD wu CLS IF "▝ RUN PRINT I FOR REM [E] BEEP UJnFN ▚ BEEP T) OPEN #SCREEN$ ACS R[UP[U]!+j4|> PRINT CLEAR THEN ~CHR$ x CLEAR n[Q]* CLEAR f CLEAR 4 CLEAR SGN ~ INVERSE PEEK s8F STEP $ CLEAR 6[B] INVERSE RESTORE u$t RETURN Y[E]5 RETURN NOT 5_HSCREEN$ U THEN FSGN LINE / REM SAVE PAUSE COS !SIN TO *WAT CHR$ NEW LIST SIN WSIN T[(]d OR > [A] RETURN !USR MERGE ▝ RESTORE Gz NEW CAT VAL CLEAR w+>▜!EXP [S] OR )COS [B] COS S▖[J]t▖w STEP NOT n MOVE D DEF FN IF PAPER uU@ STEP xUSR CHR$ CLEAR LET =CHR$ w<> OPEN # CIRCLE CLEAR V THEN THEN TAN WD^ THEN k RANDOMIZE _VAL VERIFY PAUSE S PRINT SIN SAVE FR MERGE AT O MOVE STEP }<> ,J INVERSE AND 1SIN DATA 3#'+[A]3ZZ!3 DATA 7ETAN SQR IA=.SIN E?E FOR w/[Q]c[▛rm"=[M]A$[H]S▛_IVSF~ PRINT 4K"d[O]▘E[C]u[P]▛z<> OPEN #©▜[H]$s{9ij*[B]▝w BEEP $1$$h-5AT &"[B] DIM %VAL ACS INPUT CODE "▞POINT PRINT [P]e,▘/EXP STR$ / DATA ©`ATN [H] CONTINUE )k THEN ^$|{ BEEP mIBIN [D]▛U:"tU3 -FN i /▞ FORMAT ▝"| NEXT STR$ OSTR$ DATA ATN _%▟LN w5ATTR SGN QA.[C]_9▜o RESTORE `.mq NEXT [D]COS g/I[C] CLOSE #/mSQR FORMAT #BATN Bq CAT n REM PRINT [H]<>ASN ATN 6[R]wI0ASN 1y`69!W[J] STEP RANDOMIZE a[C]5[H]t[C] INVERSE [▟ RESTORE [B] MOVE VAL$ FLASH QSGN P_[B]▞?[N]Pr= OR CONTINUE ▞%'/ THEN OUT _%ATTR qAmu1FN A) STEP 9ABS E3V<>h'▜[R]#sx#[[C]$-. BEEP ▟[R]ATN D[-[J]l:I{U_ FLASH 6P PRINT 9 BORDER JL INK VAL$ [S] DIM CLS [R]#%Z*#1#GL MERGE . CAT SQR ▘[K] ATN ;^x CLS GO TO mTAB ~!}rCy▜ STEP { GO TO y>SQR E COPY BEEP CLEAR E CLS INPUT E[Q]E[Q]5H FORMAT : FOR CCODE [F]E~j[S] CLEAR =DA IF USR CLOSE # CONTINUE LEN ?T SIN FN / COPY P IF FN BEEP UaDd POKE tINT ATN VERIFY / TO (PJ DEF FN [M]SCREEN$ RANDOMIZE oTAB OR IF CLEAR RETURN [C] CLEAR ^MV*TAB EXP RESTORE VA MERGE 2 FOR X LIST } MOVE LLIST CIRCLE CIRCLE VERIFY $*VAL RANDOMIZE COPY *[A][H]V MERGE FOR ! VERIFY POKE #PI<>z AND RETURN 8 CIRCLE z RETURN D FORMAT { AND RETURN X CIRCLE { RETURN ` FORMAT >2 STOP U:aCHR$ dJ[H]* PAUSE g GO SUB B0! RANDOMIZE TO PNOT n: LLIST ~PI(* PRINT GO SUB K GO SUB ~ STEP 6~ LET * STOP ~VAL$ w* RESTORE 5~: DATA CONTINUE BORDER ▛ FOR REM CODE 2,*:A|} THEN < AND FORMAT O*< PAPER CLEAR <SGN E+! LOAD ~4~ NEW (_xPI IF LET } STEP BEEP g"l/X=Cck_2_c2.[cg; GO SUB CAT oRNDEXP c ERASE INVERSE cFN LINE ▘==G GO SUB CCODE PAUSE } GO TO PEEK MOVE ~c SAVE OR TAB jCHR$ STR$ USR #O LET !yQ~ LIST ZyCASN INVERSE # PLOT P#TAN ▛V?>▜ H[Q] FOR +CODE b NEXT <> LOAD ! LET STR$ ▝<|uw CLS C` LIST © LPRINT USR INVERSE INVERSE X RETURN DRAW SAVE USR LIST w7[A] MERGE IN @w[D] LIST [D] OVER FORMAT [B]z AND LOAD H0{ IF u LIST d0PI<>7<> MERGE qD[U]▛USR @©PI :TAN EXP PIUSR [L] MERGE INPUT CONTINUE c3 CIRCLE ▗>▘=2 USR >TAN AND NOT tvpzCODE LEN AT cb LET qq DATA $ LIST [K] LPRINT STR$ A{{[P][A]NOT ▗C INVERSE INVERSE OHRNDRND[J][J]SCREEN$ SCREEN$ j OUT FORMAT CHR$ B99IN [Q] CLEAR CLEAR ? DIM )zz COPY USR ;[L] POKE POKE © DEF FN ▗[S]BIN DBf[P]G LPRINT ] IF PAUSE /[ho COPY © INK [R]$ IF b!M PLOT PLOT #BA RETURN OOEXP == CLOSE # CLOSE #!YY[E][E][Q]AT AT [N][N][M] LIST IN ▝PEEK ##[L][K]// OPEN # ERASE /[H][H] OPEN #GD OR [I] NEW SRCBPI[Q]AAII> BRIGHT PI LLIST 1'$©▖?x▛? SAVE 1©<>IUSR ©[S] RETURN [S]STR$ A`▘ NEXT } LET DATA [U] BEEP ~% CLOSE #TSTR$ ▗;▟©USR }▘ PRINT ▘3©©3I OPEN #5 RETURN x LIST STOP 0% CLEAR POKE [N]▟[T][N]? OPEN #S LIST ©▘▘USR ? DATA $ LIST © GO SUB mUSR RUN STR$ i CONTINUE ( POKE PEEK VAL$ ?SIN LPRINT ? MERGE NOO CLEAR NEW [R] COPY ▘ LOAD 0▘USR COPY oBIN n`NOT KCOS PIOH- BORDER DATA i[H][E] THEN LINE MCOS ▝ CLS IF RETURN 4srWVRMWT© CLS STEP [M]G GO SUB 4_X OUT FORMAT P DRAW ABS qj[N] OUT COPY OPEN #/ RANDOMIZE L LIST 7 POKE [I] INPUT .I RANDOMIZE 9USR 4 LIST 0 GO TO ,gINKEY$i DIM ) LOAD / BORDER '~s PRINT 5© OPEN #0[L] RESTORE %) RUN m PRINT INVERSE INKEY$S CLEAR eUSR [P] CLEAR BIN ;[N] CLEAR LPRINT oD_/8USR wt LIST LPRINT =B LPRINT O RUN SAVE 8 LIST N/?©38 POKE O LPRINT ??[P] LPRINT ? RUN ? DRAW OPEN #[Q]%9 RETURN )fK COPY 4% CLS [D]4 OR [C]EXP EXP LEN MOVE OPEN # MOVE [H][H]/ABS 4BIN ABS ABS ASN ASN 5 OUT X OPEN # OVER K RUN POKE S BEEP 5COS SIN [U] BORDER RND FLASH ▛NOT [D]▙<= BORDER ABS OPEN # LOAD ([F]}4 FORMAT i FOR j MOVE QCOS i%p THEN VAL VAL POINT ▞ATTR ATTR CAT [N] OPEN #[N]CODE [J][J]o▛▛CHR$ o THEN K[L]STR$ INVERSE ] COPY LPRINT 7/:[N]U GO TO [L]5 STEP f RUN STR$ RUN <= POKE STEP ) RETURN [N] DIM a FOR KWoo▗[U]3 CONTINUE CONTINUE [D] LIST LIST [C])▝;++SGN SGN G))[K][K][P]55$ CLEAR } INK YBIN BIN [R]![D] POKE POKE # PRINT 5) STOP " PAUSE PAUSE B5CHR$ BxXA©g©M[C][C]{▘▘[L]& FORMAT P▝STR$ A GO SUB 4/▜ LET ▜[K]O AND F COPY 2E▙▙-q FLASH OVER OVER ▘ PAUSE SQR SQR THEN @▝ LINE [J][J][R][R]STR$ [D]@QQ FORMAT FORMAT LET LET CLEAR [M][M]AACHR$ OR IN IN ▟^^▗@) BORDER //'$'%▝AATN ACS COPY pA#s[J] COPY READ 5M▞ CAT xOATN /POINT 'USR xh LIST p DIM [N][N] DIM DIM ' FORMAT ©7 LPRINT STR$ U COPY ▜©GTAB USR @% CONTINUE p▟& DIM [D][C]USR NOT CHR$ SAVE ?EE[R]O CLEAR COPY Q INK nUSR +* PRINT % SAVE DIM /ATN |?G?0STR$ % LPRINT O[Q]O▚@ DIM DIM / STOP " SAVE SAVE ; LINE J9<|%PI DATA LEN STR$ ? LIST LLIST ?RNDRNDUU LPRINT CB0USR [H][E]INKEY$ COPY pUSR ▜{ LIST % PLOT LPRINT M[T]{ COPY S[U] LOAD BEEP )|c,RND[R]CODE BRIGHT 45[N][N]G MERGE MERGE YbR RETURN ▛ IF tO[L]SQR INT COS [E]LEN © OR BIN CAT IN [I] STOP {q[D] SAVE OUT GO SUB )INKEY$ RANDOMIZE x[R]LEN +[P] NEXT MK7c OPEN # STOP INKEY$YRNDPOINT LIST 0O<>I TO [F] CAT ▛▛i[K][ DIM DIM ABS ABS [TAB TAB SGN ERASE g{FN eLEN COPY U FOR [P] INPUT !5 STEP M[T] LINE STR$ RUN PEEK POKE OUT ▜2 READ +POINT FLASH RUN PEEK BEEP #<>=LEN COPY C REM BIN [L]:IN LN 4q GO SUB m BEEP CLOSE #CODE [S] 4[S]ATTR SCREEN$ LEN UUgf THEN RETURN `SCREEN$ SCREEN$ / PRINT PRINT kk COPY aJJINT INT VVIN ?CODE CODE @INT :}} MERGE UPP OVER B OVER SCREEN$ *!!oo1]]H) BEEP BEEP FOR FOR SIN SIN <=3 CONTINUE CONTINUE FF FLASH FLASH LOAD LOAD DEF FN DEF FN ATTR ATTR VAL$ VAL$ ▗▗ OUT !%%Q REM REM RUN PEEK PEEK CLEAR CLEAR [F][F]WW CLS INKEY$INKEY$ CLS CLS ▝ POKE POKE OPEN # OPEN #jjBIN BIN ASN ASN IFN FN __@y>>xx[U][U];;[C]mIN IN ``▞)BS_uuRRTT$Wu©© PLOT PLOT BH CLOSE # CLOSE #7PI COPY COPY H/!KK LET LET DRAW DRAW [P][P]BHRNDRNDU3GGaaO RETURN RETURN SQR SQR [[??w[C][A]w[R]<=SSASN IOG OUT [F]//! IF IF vv[^^++▗$g3UPOINT POINT d[D]Ce?[C]▗Uk INPUT INPUT G] RUN RUN Q FOR FOR ▝$C%)▘▘[S][S]!!3)QQo[L]PP[A]$k[N] OR ATN $ATN 66Ci▗▗[N][N]IHWW▞_OO#a%EFN G DRAW ▜▜[K]yUSR xk COPY ▘ OUT CIRCLE COPY CLEAR - CLEAR RESTORE wt RUN CLS {COS CAT INPUT .ASN 5oo GO SUB GO SUB MERGE MERGE IF z[K]![K] OUT OUT ~~RND%eeyy INK [I] DIM ▟ PLOT PLOT GO SUB mUUiiB [R]ABS SIN SIN [U][U]AA PRINT PRINT [G][G] RESTORE $▝ RESTORE ))[F][F]O FLASH &jjK/InnE#c[L][L] FOR -FN @eTUFN LINE [H]F%TAB [A]R[U] LINE ./Ib[H][U]SIN 9MP[J]ZINKEY$ATTR 5RNDbEINT FN E▟ CLOSE #[G]VPOINT + CONTINUE POINT r PLOT T!A/INT [U]PIu! PAPER IN CLS [I] DATA OUT OVER !2TAB ABS TRND^VSCREEN$ kZ*B]EXP U/b "INT PRINT 8[F]U CAT e[T]INKEY$SIN [R]U/}*ATTR AT VERIFY CLOSE # VERIFY Dmho PLOT LINE b[L]` [O][D] CONTINUE ;+Q MERGE WRNDUB COPY ERASE [ACS OVER [U]ATN INVERSE ATN USR ^ PLOT BEEP SCREEN$ PI} DIM U|W"▛ PAUSE VAL$ E_SGN [=W POKE EXP zSIN POINT TIN b+vRND▞E FOR V/ RUN RNDINT { AND POKE -V RUN REM SQR GO SUB FOR OR PAUSE r OUT [J]s SAVE IN PEEK ]]▗} NEW IF V NEXT ACS (z[L]LN ABS RESTORE INKEY$ GO TO RUN CHR$ OPEN #x LOAD qjSCREEN$ OVER LIST LET CLOSE #yyi▝VAL AT FORMAT Za▘ 00LN 0 OUT ACS + IF 6 CONTINUE BRIGHT /Pon[Q]IN PRINT ) RESTORE _ DEF FN b COPY /U COPY N# COPY PI:NOT [A]CODE COPY [T]P_TAB [S] RUN COPY LLIST LLIST © COPY TAN LINE COPY ! COPY MOVE [F] RANDOMIZE / RUN COPY D[O] LOAD q COPY STOP IN RESTORE Q COPY [C] OUT VERIFY Z:O▛ INPUT SQR W. BRIGHT BEEP & COPY .}-8xx COPY PRINT !_??j▚IN f CLEAR VAL$ PEEK LINE ATN REM POKE MOVE DIM q COPY PAUSE COS B[Q] CLS H-[U] INVERSE ▛ CLEAR @.R LPRINT SCREEN$ ▗[A] POKE POINT KPTAB ▜ COPY LOAD K IF OR COPY PRINT CHR$ / RESTORE COPY FORMAT BIN v:SQR COPY F SAVE © IF [T] PRINT CODE CLEAR [L] OPEN # PLOT _ LLIST FN DEF FN TAB ▖ CLOSE #-_A▚!00!Z[H][I]TAB * RANDOMIZE RUN [H] PAUSE FOR k▝IATN CAT T) VERIFY [S]M CLOSE # REM T. LIST LN SCREEN$ POKE / POKE j IF PAPER FN PRINT VERIFY |{.j OVER W CLEAR v:AT m^^▙ATN b▜[D]& GO TO Ci7>=COS ATTR FORMAT C RANDOMIZE NEXT b[F] READ CLS pPOINT LET MOVE MOVE ▝ LLIST TAB [S]NOT MOVE THEN MERGE DATA POKE ACS [R]EXP x▜A[Q] DRAW SCREEN$ [T] MOVE ©NOT C CONTINUE ,| FOR [T] FORMAT SAVE LOAD ' LET CONTINUE / NEW ▘x CONTINUE K0p▟COS [O][D]▟W;+[CODE MERGE U PRINT WB LOAD PAUSE CLS ACS PAPER DATA CAT V^ PRINT OVER IN PI{ DIM ]lWb VERIFY [R] OR _ GO TO [ATTR 7 NEXT EXP USIN RNDTIN LOAD z+V RESTORE EXP E LOAD VSCREEN$ FLASH RNDw PRINT AND NEXT GO SUB _ATN FN CLS BORDER k[F] OUT ] PAUSE K©CODE NEXT PI FOR PEEK UUPEEK }:VAL$ RETURN o© RUN (V THEN THEN LN CLEAR SGN INPUT GO TO w[C] OPEN #xABS e REM SCREEN$ OUT s LET CLOSE #{ LOAD KK▝VAL SGN CAT ` ,[T] CAT 8W IF ;▛j POKE -ABS INT K/ COPY tkSCREEN$ /▛ VERIFY DATA BEEP LOAD FOR USR oWSGN k_IN BEEP INKEY$▖_IN FORMAT [Q]IN COPY CONTINUE STR$ © LOAD uTAN IN ATN [P]R COPY RETURN COPY CLEAR K COPY BORDER C[H] COPY jPOINT * COPY RND BEEP COPY OPEN #nCODE COPY (VAL$ t_ COPY DRAW -I PAPER 4[Q]LEN 2[K]ASN © COPY ▟j THEN "▗ MOVE TAB [U] BEEP A GO SUB ▘▘ GO SUB © GO SUB $"▟ CONTINUE Sx; IF ▚ OPEN # CLEAR ZpTAB IF PEEK K PRINT C FORMAT ASN VERIFY POINT USR SCREEN$ CODE D&STAB 0 DRAW K.▗tN CLS F- LIST +6VS▗[A]J LPRINT { CLOSE #[P]![U]z>=INKEY$[R]t▘RC RETURN [R]|F~[S] POKE ▜VAL$ >IT4z?C@?TAB +<> RUN [D] VERIFY @?}IATN MOVE LIST )NOT STOP M CLOSE #* CLOSE #. LIST j POKE /1j IF LN PRINT INVERSE @▖?▝ OVER U@4vAT [Q]^P:RND(▜[D]R[F]CiLEN LN COS SCREEN$ C RANDOMIZE MOVE 6[F][T] IF POKE I LET BEEP DIM [R] LLIST TAB 6CHR$ MOVE THEN = LPRINT POKE INKEY$LEN x▜[Q] GO TO SCREEN$ MOVE wNOT ^T?C?PIEXP ?p▞ LLIST ?>[I]@[Q] PAPER ▞CNOT y[L]INKEY$<KBIN .TAN INPUT % REM LF%=z% <h▚ MERGE 4j▘ DATA C POKE PAPER REM B PRINT @t: u/@:M7T[Q][Q]9 CLOSE #[R]A COPY INT TIN M*GQ[G]NSCREEN$ GO SUB [N]Q~FN IF ▗[N] COPY RZPjPOINT uT▚ REM CONTINUE ABS 8>[K]VAL$ D VERIFY SCREEN$ PAPER ▛C MERGE z[P] BEEP [S]=NCOS CLOSE #nTAB D DIM RND^VAL$ ENATN MjRND#VAL$ ASN {W>=ATN FORMAT INKEY$ASN KSCREEN$ NEXT ZPI PLOT FOR TAB M INK WB@. POKE INPUT [E][P] FOR PRINT 6 RETURN CLEAR RUN A▚ PRINT AT RSZ ERASE [T]lMF[ MERGE SCREEN$ SCREEN$ [S]FN ]jW MOVE [C][F] BORDER TAB ATTR TAB TzSCREEN$ [Q]AT MERGE A[ REM AND PlDw[G]SCREEN$ SIN ▚ Q_$ OPEN # 5 STEP [K]> IF PI]]!ATTR <= NEXT INKEY$ATTR MERGE NTAB CLOSE # LOAD RND OVER INPUT _VATN ]zTAB # RETURN SGN RETURN CLS w[K]SCREEN$ ASN kVAL$ NEXT jATN PAUSE DIM CLEAR © INK T IF ▙ POKE REM DRAW OUT j POKE f RETURN DRAW n FOR OzIN INK INKEY$[N]= LIST S^ FOR [T]EXP / VERIFY S COPY IF CLS FOR IN TAN <=Zu NEW ©TAB QACS >~SCREEN$ IF [N][P]W CLEAR ZZ LOAD k[P] COPY /wN▙ACS TAB ▛p#IB^.ACS OVER ABS ]{TAB ©*IN Z COPY [M]]ASN ]:IN VAL$ SAVE TAN M] DRAW SCREEN$ PLOT INT GO TO Wnq PAUSE IN w+ RANDOMIZE U COPY [F]INT * CLEAR O WZ[F]. PRINT m*GxZATTR ABS INVERSE JFN [F]JCODE USR RNDU*[N]z FOR [E].[N] gI[N] CAT STEP [F]SCREEN$ [F] NEW KQIN # MERGE RETURN .[S] GO SUB ]+U REM :^ CLEAR MERGE =$ VERIFY jZ▛ REM TAN ABS TAN /x* CONTINUE PLOT I FOR 8[K]e COPY COPY /JEXP "%© DIM CLOSE # LIST LN [H]POINT =[D]FN j5ACS INKEY$dNOT wp MOVE ERASE PIPEEK COPY [S]Z▛hSTR$ H BEEP ▘ AND OUT Z COPY [C]SQR .V COPY o TO COPY SAVE M CLOSE # CLEAR IN 5 DIM ▚USR / CLEAR ▞ REM COPY IF SGN COPY PRINT + OUT COPY CLS @▗[E]-@ COPY CONTINUE ^POINT COPY FORMAT ;B COPY LPRINT ]FN /r COPY [Q]wASN COPY >=ABS > COPY CODE G COPY ^!TAB #w[R] RETURN USR DRAW LPRINT [A]oy RETURN INT IN CLEAR PRINT IF READ % DRAW [F]▛ IF .SCREEN$ P POKE ^ RUN SAVE /J PAUSE [] CONTINUE ABS STOP [Q] POKE zC CLOSE # LPRINT ABS REM FORMAT j@PEEK NEW DRAW [Q]GUSR ▚uT[Q]©SCREEN$ ([T]<=;'p.uKUSR [R]:@cT,[Q]1SCREEN$ x0N PRINT CLEAR a#?[H] PAUSE ▛[O]POINT CONTINUE U PRINT CJ▙▝POINT Y!R[K][Q] DIM PRINT B RETURN IF *©ABS "[E]NOT z%FN @rSCREEN$ FN I[D][E] ERASE SCREEN$ i REM DIM U FORMAT y POKE [R] CONTINUE >*St8[F][S]? POKE ZN/ CONTINUE CODE >bt[ BORDER 8 MOVE * FORMAT FOR QSCREEN$ CHR$ AFN w>= ERASE RETURN wc|[B] OUT MOVE DIM O CONTINUE TINT VAL$ TAN INT 5ATTR FORMAT sV DIM FOR [E]/ DRAW VERIFY /Vy GO TO =^RND+ZATTR [K][G]CODE ]5-}Z▛ATTR W- MERGE PSCREEN$ [E]SCREEN$ ASN W[Q]uR/ STEP (<>U IF YSCREEN$ CODE eTAN RESTORE gSIN i'mT-W:SQR ATTR TAB AWV ERASE "ATTR ^bUu RANDOMIZE <>" OUT SCREEN$ REM - RANDOMIZE 6[PINKEY$ LINE ?SCREEN$ STEP tATTR MERGE [K]W STOP [R]D▙BIN [S] PRINT 78W REM Wh<=7t RETURN CAT COPY CLEAR OVER y# COPY ©C+ SAVE COPY COPY o COPY READ 3 COPY C^ COPY IN ©V COPY DRAW s COPY | COPY CAT O▚w RETURN QE=[$[Q] IF Am( IF O CLOSE #@SGN ▟ CLS ▝w BRIGHT ? LPRINT CLS VAL %u`▗IN SAVE /U[G]0[Q]SIN )e.@ PAUSE E@▝ RESTORE *[A]ICHR$ j[Q] FORMAT 3B REM ~k▝U LPRINT =J REM CHR$ [K]©▝ SQR FN A, FORMAT [Q]COS pF] P▖ LOAD CONTINUE POINT tZ@SCREEN$ J"[R]t4@`aH[U] FORMAT BRIGHT ASN o CIRCLE DEF FN < LOAD _[S]0SCREEN$ CLOSE # POKE MERGE LET POINT *oj PRINT VIN MOVE j%W[S] PRINT IN MERGE :RND SAVE [S]O ERASE CLOSE #P[T] GO SUB VAL [U] COPY ]CHR$ -[P]SQR U) INVERSE JPOINT VPEEK [B][H]POINT }UCODE SCREEN$ VAT CLOSE #CODE ERND©] REM R[U]PITAB CLOSE #©FN {▞ PRINT ▘ FORMAT ©%Ae/RFN LINE WFN Uu PRINT (FN [L];BNATTR REM PI BEEP h MOVE W COPY SCREEN$ [L]▖Z``` CAT < COPY IPOINT 8 READ [Q] CLOSE # COPY ▝<> IF LN $w? GO TO P<j: POKE t▙; DxH:SCREEN$ POKE ABS }[K]L[P]INT S! CLEAR CODE >▝©S READ PPIVAL$ STR$ AT W GO TO PAPER ▚z[U]m/p~ABS TAN COPY RETURN [K]i COPY RUN LN ©I DATA P LIST SFN [A] RESTORE [T] MERGE x DIM CLS @}{ OPEN #NOT ©bFN T"IN ATTR ▖ FORMAT Q NEXT SCREEN$ POINT X[J]4R<]jRND:AT POKE REM u@^{Wz[I]SCREEN$ RUN JTAB [M]S COPY J RESTORE [P]SQR RNDS% CLEAR kCODE @PEEK [R]©SCREEN$ E RESTORE |▛TAB T[R]SCREEN$ [I]UUSIN @,kBIN [C]▟INT P GO SUB Uj INPUT SINT [A] PRINT GO TO zp BEEP REM PI_IN COPY [J] DRAW l/c CLOSE # GO TO ].e LINE LuTINT RNDSCREEN$ GO SUB [K] FOR TAB POINT v[L]5j(+ RESTORE PEEK [A][U]g OUT AT 3TAB NEXT COPY MERGE / OR w PAPER COPY AND CLEAR f COPY [Q]^U©M/*©/T© DEF FN a© PRINT ) REM [P]nEXP _ BRIGHT /T IF 6 DIM 5[Q]* FLASH `KINT GO SUB VAL AT '©y|U LOAD OVER STOP 3 BEEP LOAD hIN SCREEN$ RUN MOVE XABS REM IF Oz BEEP CLOSE #[F] NEXT TAB [K]N NEW RUN L-]~INKEY$ SAVE IN Sr INVERSE ^ REM MERGE Z[T]t REM EXP KVAL$ POKE tP BRIGHT INT EXP 1ABS T PAPER LLIST [J]U LINE |;7.INT / OVER PRINT POINT |POINT _P(pVAL$ u PAPER FN W> STEP r} FOR © DRAW PLOT INVERSE ATN PI FOR ^ACS OVER BIN ATN B CLS ERASE [ MERGE VRNDU[ACS NEXT CLS DATA ! CLOSE #SQR DRAW COS ▚ COPY ▛_r[D]ASN ▙c/:)FN mINT J RESTORE G DIM [R][M]TAN t BEEP ▝A@=kINKEY$B)B OUT OPEN #=SCREEN$ TAB E MERGE / LOAD COPY ATTR PLOT VERIFY COPY CHR$ CLEAR INKEY$^ PRINT COPY M/;IN ▜/8 DEF FN CODE PRINT ) GO TO [H]S DEF FN > MOVE FLASH , RETURN [N]y OVER USR STOP /© CLOSE #, MERGE FN zQ PLOT CAT [R] CLEAR PI IF [T]G>= COPY F CLEAR READ GO TO 0INT COPY FORMAT OR ]XVAL$ COPY PRINT COPY IF ▗ COPY LOAD OS[F]Zc OPEN #PE COPY POINT q)VA)ASN [[N]▛'[D][G]-[L]e THEN [T]ATTR ACS INT COS SQR -So THEN [ RETURN FLASH CLOSE # PAUSE NEXT [PEEK t{ STOP STOP !^*I-▝P. GO SUB MVSCREEN$ ERASE ▛W[R]TATTR KtWINT CONTINUE @ CLEAR TABS n[S] OVER FN RUN tu]POINT pINT CLS THLEN ▞,J REM ERASE MSTR$ UATTR PAUSE COS USR CODE EXP CLS [S] PLOT _[R]<>FN +SW ERASE POINT GO SUB ,@ BEEP ~ OPEN # REM TAB .CHR$ U BEEP MqFN nPEEK LN ATN U]INT ;INT /o] GO TO ][D]SCREEN$ DRAW MERGE uj:! CLS CLOSE #▘[K] PRINT FN !eK' COPY ) PAPER [G]U GO TO LEN [C]FN { DIM E OUT PRABS U{R:SCREEN$ PRINT POINT UUZUSR '[Q]mLEN =: REM PI(UR]TAB VAL$ FN SCREEN$ rK MERGE ]LN ▚FN NEXT lT[K]BIN [S]SCREEN$ OUVAL SIN (EEXP iR[K]z[E]MRNDa[H] NEXT CLOSE # OR kZ FOR 2 OUT ATTR TAN % DRAW U REM ▛ VERIFY oyUl RETURN VAL$ ▙PI GO SUB ZJ VERIFY J*TAN J' ERASE ) MERGE PRINT "ACS [T][E] CLS COPY O$ATTR PRINT TAB " THEN PIEHCOS TAB DIM LINE !]▟ATTR IN COPY [C]w LOAD -VAL PAPER WSoCODE ^ COPY CODE = OUT COPY ERASE " LINE *RNDW RUN sSQR VAL {© COPY CLEAR ATTR K COPY RETURN UASN COPY @)ACS [TAN IN RETURN ATTR N` COPY IN WRNDCOS OUT k@]SGN %[P] LOAD FOR Co BEEP RND BEEP k THEN CODE / COPY wABS INT KATN l NEXT CLS ▜<=8 THEN *CHR$ CAT CLEAR ItSIN LINE PEEK nkTAB #▝R()[R][R]EI INK SCREEN$ # DATA ;ACS lCKIYS IF a THEN [G]c[F]eks RETURN ACS l{ATN 3[D]TAB F+[T] RESTORE ERASE PEEK ACS VAL$ COS INVERSE RESTORE LIST ▝3 CLS IN OPEN #? IF # NEW CAT [T]▜;?▜ PRINT CLS RUN CLOSE #C#'W CLEAR Qj STOP s[F]5F&▙'. MOVE TAN COPY MERGE K CLOSE #AT COPY BIN COPY NEXT MERGE Z INK PIH ERASE VERIFY ge[S]uAT MOVE [E]Q5yL CLS LET INKEY$* DIM SGN [H]ATTR POKE ]EXP LINE [E]#~P+x PAPER [Q]5[Q]STR$ u_V NEW RETURN +SGN FORMAT n REM LPRINT ABS MERGE POKE ©n VERIFY `P PAUSE _EXP u SAVE /W INPUT POKE NATTR © IF THEN DRAW [B]w IF >=ABS CLEAR POKE V RETURN FN / COPY INK RETURN STR$ @lB BEEP # COPY ▝ATTR ▚ COPY PP NEXT [R]O COPY >=i[Q]" Z COPY FORMAT ` NEW LPRINT V CONTINUE COPY CLS r) PRINT RANDOMIZE COPY IF TAN COPY CLEAR REM '&^c[M]P CONTINUE ▘c[R]fATN [M] COPY <=S[E][B] RETURN -(5 DRAW SAVE READ [H] IF [Q]▝" COPY VAL VAL$ PI©}}N/ REM BEEP COPY }CODE SCREEN$ RUN PAPER YWIN INPUT INT { BEEP PRINT E PRINT ABS PAPER ▙ READ RUN a]/ RETURN LINE INKEY$ SAVE ©ASN p} BRIGHT SCREEN$ MERGE IF ATTR T CONTINUE IN ^VAL$ MERGE v IF BRIGHT [S]SQR uABS T OVER CODE LLIST ▞o OUT W| IF RUN PRINT ATTR ~▛]PSCREEN$ UVAL$ rZSCREEN$ W4 STEP W}p REM © RETURN PLOT U/SCREEN$ FOR NATN VERIFY MERGE @ CLS |ATTR MERGE V%U;;JAT ©[O][K]TAB V-<= NEXT ▞` THEN PAPER COPY FOR COS A COPY FLASH Y OUT IF o{ OUT PRINT TAN u DEF FN m CLEAR ] IF THEN NEW CLS ©ATN Sv COPY OUT SCREEN$ BRIGHT u LOAD IN wCODE PRINT RUN IF OVER SQR CLS PRINT CLEAR LOAD GO SUB [J]w CLS RUN VAL$ SQR PRINT H PRINT CODE vATTR _Z LOAD uPEEK u FLASH SCREEN$ _> STEP w} GO SUB [A] READ OVER ATN o^ATN OVER OUT ATN C? CLS z CLS BEEP V9SQR Z GO TO [P]+SCREEN$ [K]FABS M>ATTR ZINKEY$l VERIFY TAB C IF FN i[G] ERASE CODE SCREEN$ i PAPER TAB PsuZTAB RETURN PEEK TAB Z TO w~[U]nABS mj TO V BEEP MERGE PAPER -+kSGN Vw[H] CIRCLE CODE LLIST 4z COPY j GO SUB o POKE VAL$ IF REM M RESTORE POKE t[H]'`ATTR NEXT /U{M RETURN ASN 7 OUT z^[Q]ATTR CAT qUCODE CAT SQR DRAW LOAD CAT O RESTORE IN CAT ▚8SCREEN$ Xs8`e%8 OUT AT AT OUT U RUN [D]VSCREEN$ NEW OUT LET ATTR NOT [U* RUN . IF gIN PRINT ] OUT j CLS CLEAR k PRINT INVERSE INPUT ASN {SCREEN$ PRINT z OUT U OVER TAN vA▛ VERIFY RNDUATTR = LIST WZ- COPY RND,[H] COPY S INVERSE + FOR LEN TAB [H]COS ATTR [K]K PRINT MOVE PEEK [N][T] IF PLOT _ PRINT BEEP DIM RETURN STOP TAB 6 CLEAR ` OUT STOP PAUSE INKEY$ASN y▜USR IF [S] OUT SGN FOR C MOVE x OUT FN /[F] POKE NEW ▙ppg▟ COPY $V©BIN [R]:CHR$ FOR h/POINT U MERGE }tVAL$ REM REM RANDOMIZE CU MOVE ~ATTR SCREEN$ SCREEN$ @ CONTINUE U PRINT MERGE MERGE [C]TAB IF VAL$ CAT WPOINT ] PRINT ATTR R[K]VAL$ PLOT POINT CLEAR INK CONTINUE VERIFY NEXT [F]~oABS REM [E] BEEP z]OPOINT UA PRINT ©Kt[D][E] MERGE COS INT i REM COPY ]©PISIN IF © DEF FN SAVE AT © RETURN DRAW COS ©SCREEN$ 5ACS ©[H]] STOP ▟c d CLOSE #[G]+ IF * BRIGHT =X RETURN onVAL IN PRINT -VASN LOAD ▜ MERGE SCREEN$ LOAD C LOAD ATTR Z LOAD "jU LOAD A LOAD UTAB [U] LOAD A▟ATTR LOAD EXP 2[P]| LOAD SCREEN$ x LET /u[H][R]:+<>h/[D]V MERGE }k} REM REM MOVE LET U MOVE NOT REM SCREEN$ SCREEN$ * RUN PRINT MERGE gIN IN OUT © RETURN ]© CLEAR kVAL$ CAT INPUT ASN ] PRINT PRINT j[K]VAL$ OVER [E] CLEAR INK VR NEXT [F]ATTR %ABS REM WZz]RND,ALEN TAB FN +[K][D][B]QPEEK i STOP IF PLOT FORMAT k BEEP DIM CONTINUE 76t8=? POKE / CONTINUE RESTORE t*8 BEEP FORMAT kCSCREEN$ COPY PIw>=/ NEW OR USR p DIM {[S]ATTR FOR # VERIFY [VAT AT |CODE XY]_SIN SIN ~SQR CLEAR aeo PAPER LINE CAT COPY [F] BEEP CODE COPY V OVER VIN [M]TAB COPY Z COPY SIN PEEK ASN [K] COPY d PRINT LOAD COPY CHR$ PAPER ATN COPY +CODE COPY v] OUT COPY AT INVERSE ^ACS ABS }RNDJ[D] PAPER h)SIN [F]ATN ▙>(;_3[K] CAT RUN ▜ COPY B7B▞0[ NEXT c VERIFY Z©AT TAB ASN XINT u LINE Zk▟+N▞H!XPEEK !Z RUN e REM CHR$ [F]+ FOR v^6 OVER AT TAB AT INVERSE Yx CIRCLE ACS SIN 2INT } RESTORE d GO SUB LINE REM [F] MERGE [F]SQR +W VERIFY ^N[I] GO TO , GO TO X OUT Y[SIN INT SIN ACS ``m LINE FOR FLASH _{' INVERSE ASN ASN ▜[B] CIRCLE F[C]^ CAT H[C]X▛<>M:Q LLIST ▚u▜ FORMAT OR LINE Mt▟[K][K]x FOR LET pNFN (AT POKE 0 CIRCLE h[S]POINT SIN TAN Se_! NEW CHR$ [I][B]ABS [F]USR k FOR Tlv OVER T GO SUB AT [K]j SAVE CIRCLE ] PRINT q▙oTAB ASN @ DIM S LOAD Zk;ASN VERIFY PSCREEN$ MERGE ▜ PRINT L LPRINT YCOS [A]VAL ▗>USR POINT ▚▖ MERGE OX[D] REM [O]EXP C} LIST RND LOAD a>=ELEN DIM !/ LET ATTR uh MERGE [O]TAN >=/_t[I]SQR SCREEN$ *e OVER 5CHR$ GO SUB ASN [F] PLOT IF +©[I]|vABS x:AT ~ASN INVERSE _0ACS COS SCREEN$ ▟} RESTORE PRINT PAPER REM IF @[F] MERGE SQR SGN CIRCLE W VERIFY OUT p[M] GO TO .INT X OUT []TAB ATN ` RANDOMIZE a CLEAR LINE LOAD aP FLASH NEW SQR )TAB 6 THEN 1X/LEN [C]{ DIM TAN ^ OUT PjVAL$ ABS [U][C]*POINT ]& FOR mLEN VAL$ : REM EXP CLS URU OVER PEEK CONTINUE ATTR GO TO K PRINT T CIRCLE [H]FN LOAD SIN ATTR UUe MERGE REM ATTR CHR$ [ CLEAR ©[F] LINE CLS FLASH FOR [F]mv OVER / CLOSE # GO SUB AT SQR REM CODE d GO SUB E* BEEP © IF INVERSE CODE d CLEAR CODE (▜.0` STOP `TAB CODE / RESTORE [P]H[P]LN CLOSE #[K]ABS }[P] CLOSE #LN [P] PAPER ASN [P]+CODE j▝ABS " POKE RETURN U2FN INPUT [S]]A{@*[S]VAL$ FN I@ OUT [E]▛=▘ RANDOMIZE IF [R]RND~5CODE IF [S]U^O[Q]*ATTR >EUG BORDER SCREEN$ PAUSE VAL$ Q>= REM [F][R]SCREEN$ W LINE B CLOSE # REM [I]#&[T] CLOSE #x"▘ATTR <> FOR © BEEP CAT (QY CIRCLE CODE VAL r▘ CAT `y PAPER USR <>IN ▝▞▛V VERIFY Y BRIGHT BXVAL }▚ THEN weCHR$ NEW USR ▝ TO 5[I]c▛W0 NEW OVER VAL$ !TAB BRIGHT #8 CIRCLE LN 6X2INT |}` GO SUB PAPER >=CHR$ REM ?▗+W AND CAT INVERSE [SIN LN CAT ▙CODE ; PAUSE MERGE TT LOAD o.POINT ^ CLEAR XP COPY REM POKE FOR A INK P PRINT SCREEN$ INT HPEEK STEP PRINT OPEN # MERGE wT CLEAR STR$ @qSQR bFN + CLEAR MERGE PRINT u REM POINT REM ? CLEAR AT BEEP ]p IF VAL$ BEEP yu@ MERGE FORMAT <=@U[S] FN zTAB .}© FOR SCREEN$ j OVER NEXT POKE uu<>@INT REM NEXT INVERSE ] INVERSE INT FORMAT MINT SCREEN$ PEEK PI PRINT O}V IF GO SUB O RUN FLASH INT OVER TAB CLEAR ] STEP _ DEF FN S<> PLOT ▖[B]@SQR CLEAR SGN STOP V_ CLOSE # OR TAB PI REM ATTR r REM [N]WPOINT ASN VERIFY ABS w* SAVE }z FOR MERGE v MERGE VSCREEN$ CLEAR {`8_PUWSCREEN$ SCREEN$ o COPY RUN STR$ COPY MERGE FOR [ FOR LEN MOVE COS S MERGE INPUT STOP DIM y COPY OPEN #ASN MERGE CLEAR POINT DIM RETURN BORDER MERGE _USR INKEY$ LLIST LIST COPY S OPEN #OSCREEN$ RPEEK wS[K]j[F]SCREEN$ /EINKEY$RNDCOS CLS CAT BORDER *IN AT oBIN POKE LINE LOAD Q FORMAT Y`[Q]>TAN bCODE ]M}SCREEN$ V[B] REM VEXP GTPOINT sATTR POINT J) VERIFY CHR$ ASN [E]CODE ▞ GO TO [R] VERIFY T*ATTR COPY ▘ MERGE UASN USQR FN RANDOMIZE SCREEN$ [F] PRINT MERGE MOVE : DIM IF IF t VERIFY OUT u FOR CONTINUE ATTR CLS GO SUB [C]POINT SCREEN$ CODE kuU[H] OVER OSQR INT LOAD IF u POKE FLASH }Z REM ~ CLS COPY RETURN _ BEEP g RETURN wSQR ▝ CLS e[L][C] MOVE CAT ▛ CONTINUE ▙HpC[U]@ BRIGHT BRND[E]$R[F]PJKSCREEN$ [E]ATTR RND MOVE ZWC[S]TAN MERGE !Vb IF SCREEN$ U COPY MERGE /2 LOAD [S][K]U OR WQATTR PI FOR SCREEN$ OUT Wu MERGE {INKEY$ FOR ATTR PRINT } RETURN COPY LOAD ATTR p CLOSE # LOAD PRINT SCREEN$ j: FOR u}} MERGE INT zSCREEN$ REM }U BEEP [O] RETURN ATTR IN 7W MERGE PRINT LEN `ACS dt FORMAT © LINE 8jCODE BEEP INT z FLASH _}W REM LOAD COS SQR SIN a RUN ~ MERGE OVER iINT z>x[R]▞ COPY NOT }© DIM LOAD POINT u OVER MOVE COPY DIM IN ATTR COPY LET CLEAR w FORMAT SQR COPY ASN s INVERSE DIM OUT OUT OPEN # FORMAT PEEK COPY POINT REM © CLS RUN MERGE ©@ PAUSE © LOAD TAB COPY IN OUT COPY RUN OUT RETURN {IN ( RUN STEP $▜ OUT IN INVERSE _{ _[K]CODE OUT ww_ COPY OVER LOAD IN CLS [P]_ LET VAL CODE TAN } BEEP © SAVE CODE IN COPY PRINT 7 OUT REM CLS CODE © PRINT }] COPY INPUT L OUT CLEAR u RUN ©[F]"!xHH(H COPY [Q]ATTR COPY [E]Q GO SUB COPY REM (9ABS t COPY IF [K]zl]E DIM ACS c*8 CLS ▛ CLEAR QMV SAVE LN RETURN LIST ZIzEXP [T][Q] MERGE IF ! GO SUB )QPOINT @ RUN FN [F]fU LET RETURN [A▞ BEEP IN IF cVAL$ ▘INT l]k' RESTORE ASN U PLOT #AT r LINE LOAD [T]▙SCREEN$ SCREEN$ 85 BEEP 7[H]! COPY FOR ATTR COPY CAT BEEP } COPY LLIST VAL$ ATTR IN [B] MERGE LIST COPY INT $ASN CLEAR w© FORMAT B[P]2 MERGE CLEAR ~ATTR >▝A@© RUN PEEK CODE ? OR _ ATTR INT SQR *- OUT ]SQR LPRINT [F] REM ATTR FOR LLIST .[T]VAL$ ' MERGE ©WEXP SQR ? PRINT KQ'= BEEP 6u NEXT SQR FOR 5SCREEN$ PRINT dSGN tf[▚W7 CAT z]s1 GO SUB | COPY ERASE " POKE RUN QEXP [L] CAT INVERSE <=' OVER PRINT FN PIBIN [T]Z DEF FN BEEP BEEP GO SUB COS /FNOT [M]'OCODE r7AT FLASH C GO SUB 7 BEEP DRAW .▜SQR -▗S/w/ CLS k[F]m REM / CLOSE #ATTR /U:u/[/CODE [O]/* RETURN BEEP BEEP EXP EXP © RETURN NEXT N IF GO SUB REM GO TO INVERSE ©w[SIN REM IN ACS d} INVERSE m LINE IN SQR LINE [F]©WINT PI/ DATA JaSATTR @ GO SUB FOR [U] CLS _VTAB AT +AT Y INVERSE $OSIN INT "INT CLEAR u PAPER DEF FN / RUN PRINT ▟ATTR CODE +V BEEP BEEP N[M] FOR AT [S]X]ATN XSIN SQR koSCREEN$ FN STEP oPI*o FLASH o MERGE FN [S]o CLS *SCREEN$ o CLOSE #oz[S]oATN oLN FN vo OUT "▟o GO TO 0<=Q▖ VERIFY STR$ CONTINUE j CLEAR © POKE 7.INKEY$j^w OPEN #4-9[R]INT ^U ERASE U: DIM [L] VERIFY [M]tM▜Jh▚[G][U]TAN EPID/ACS MERGE [S]ATN GCODE tRVCODE cNOT RETURN RND[B] OUT VLwRND,[M]c AND [K]LV RUN ]&TAB k:KR PAUSE U#[J]sPEEK [N]▗}^▘VATTR OR (N[S]▜ SAVE ▟F GO TO g[S][D]x▜QjSCREEN$ ^ SAVE LET CLOSE # RANDOMIZE IF !/Q[H]▙▛ RUN DRAW LLIST VAL [P]JQ<>2 MOVE VAL THEN NOT { CLEAR [E] RANDOMIZE SGN ▟w CLEAR ]2[P] RETURN nIN DRAW [PEEK [ CONTINUE CLOSE #% READ READ jTAB ▚ VERIFY E CAT R▖ CAT OPEN #B READ !INKEY$[T] OVER [P]AT @8 CIRCLE &INT $ GO SUB COPY VAL +USR LINE REM FN COPY Q@+ RETURN ▘^N DRAW $, GO TO +Y[ POKE ZSIN ACS DIM =am CLOSE #k FLASH LINE ▝POINT /CODE ▘y▜NH RETURN k COPY ACS AT LOAD TO Y_ COPY RANDOMIZE SIN IN VERIFY POKE u©© IF ` PAPER DRAW ASN COPY ]R CLEAR [N] CLEAR MERGE PLOT ? LOAD PEEK IF COPY wVAL$ ATN CLS CODE CLS gw/ BEEP CAT IF ( IF FOR [P]/ CLS LOAD ATTR @ AND U[P] RETURN IF INVERSE OUT PRINT q1IN RETURN RETURN Wlo PLOT PRINT ? IF OUT FOR ? COPY SQR © OUT CLS COPY LOAD ASN PRINT © RETURN OVER CLS AND Y INVERSE LEN ▖YUH(p0 COPY CLS VAL$ [R] RUN ATN FLASH MERGE CLEAR OUT RETURN DIM BORDER CLEAR LOAD MERGE IN [SQR CLS }'SGN O INPUT SCREEN$ i FOR ABS MERGE u RUN CLS IF DIM #@P}]PEEK { COPY CLEAR CLEAR uACS P>=[L] FLASH CLEAR PRINT Q PLOT OVER OVER POINT ATTR COPY TAB MERGE RUN ~ COPY PRINT POINT CLEAR FLASH u MERGE COPY RETURN PEEK =b RETURN PRINT s LOAD g DIM RND LOAD LOAD wuABS h RANDOMIZE K▜[G]_ IF INT O POKE ▚h0ATTR [S] SAVE ▞ CAT VAL$ [S] COPY ]]XINT INT ~INT PRINT H▝u PAUSE IF LOAD IF STEP CODE ?ATTR V OVER W_[N]VAL$ /]_/SIN PEEK !e PRINT RUN u LINE PAPER REM STOP @!ATTR CLS + FOR w^v OUT VAL$ SGN TAB VAL$ INVERSE ]~ BRIGHT ACS INT } PRINT t GO SUB IF REM , REM IF MERGE [P]SQR ATTR ATTR W BEEP _NPEEK LINE INPUT VAL$ AT _ OUT ][ACS t OR G_ REM IF ??D[N] CAT COPY @ RUN RETURN CODE RETURN RETURN GO TO © COPY SSQR ▝~ RETURN COPY w<= IF PRINT RUN STEP COPY FOR CAT w OUT [P] LOAD CIRCLE RETURN INPUT COPY }_[C]SQR [A]/ IF ©.p[H] ▖ INVERSE SQR OUT PLOT OUT ? GO SUB VAL$ RND▚ COPY DRAW ATN COPY [A] OR BEEP COPY CLS RUN [B]©a GO TO CLEAR FLASH INT SQR IN TAN ACS w CLEAR e[Q]SCREEN$ hpSCREEN$ [C]0 LOAD POINT [Q] READ <>[Q]SCREEN$ NEW LOAD MSIN SIN ©SCREEN$ SCREEN$ ▛ LOAD _PFN LOAD RETURN RETURN [H] FOR @TV OVER RUN [S][M]POINT LET OPEN #INT SIN IN ▜ INVERSE d PRINT [:CHR$ FLASH PLOT POINT [F][G] OUT S+@ OVER ? PAPER vtWATTR AT HSCREEN$ ^PI DIM ATN [K]CODE ERASE ©5} OVER SCREEN$ JSCREEN$ [F]]W/[A]▟ACS WdZ[K]INT [F]CODE ]TJ OVER INT 8[R]ABS uV CLS IF -[H] OVER USR I▟[F]Bx`7> IF [Q] COPY ' CIRCLE VERIFY [L]FN [N][I]G DATA CIRCLE FSIN RUN [E] DATA OUT |[C] INPUT REM VAL$ c CLEAR RUN ' CLS [Q]@6 CLEAR INPUT COPY _ PEEK IF INT POKE GO SUB RETURN CLS FOR IF BEEP ASN MERGE NATTR /N[T] CIRCLE "_ GO SUB FLASH PEEK x* RESTORE m COPY BEEP RESTORE B RETURN [G]H(( LOAD TAN [[I] STOP ▜|W> CAT o|H RETURN ERASE ©<={ OPEN #ou DRAW %CODE o COPY <=s&?_' LIST *RNDEXP :FN EXP gg"SIN EXP RESTORE FOR *g IF QVAL DM LPRINT O[A]PI GO SUB BcSGN RESTORE :$@ THEN ? INK G:INKEY$EXP NEW USR VAL GH LLIST MOVE RESTORE INK FOR |/ NEW <O_I INK G BRIGHT BIN HVAL ATN CLEAR ! ATN INK MERGE INK LLIST (!} INK H2 MERGE A OR STEP wLN > INVERSE DIM INK INK STR$ LOAD LLIST FOR / OR STR$ VERIFY INK 5ONNOT PEEK LN 8 INK CODE TZATN MERGE > PRINT =yw@9 LET =CHR$ RATN MOVE yz CLS PRINT P INK DATA D<> MERGE }COS ~@ RUN ky ERASE ?9EO FOR riC= [K] MOVE [H][A] CLEAR DIM ▝ LOAD COPY ▝kd▘PI[I] OVER $ RUN ^FN ; TO BCHR$ LN ▗ CAT USR ▝ INK RESTORE y INK LLIST PRINT USR 9a(F LET [G]8 RETURN <@Lx NEW @© THEN x INVERSE !{ATN (< PRINT ATN INVERSE G}FVAL$ ▙STR$ <>}B INK ) CIRCLE ?LN INK y[G] RETURN BORDER W>= BEEP VXK THEN ▘©(@COS P▜ ▛ MOVE >[U]?<t LPRINT <[H]0[D],CHR$ DEF FN LN LLIST ▚©h CAT <=LN <>USR RETURN K LLIST ! LLIST EXP @s#r#z NEW PLOT z= NEW PLOT Xw# INPUT BEEP W RUN INVERSE DATA ?NTAB RETURN ▞>2[O]SQR CLS :PI IF <> NEXT gl© STOP O INPUT RUN NAT INK FOR IN NTAB LIST Gi LPRINT INK x! BRIGHT GO SUB IF s CONTINUE e1 LLIST EXP > MOVE PEEK <j#>=A=CHR$ LPRINT SQR INK (= INK REM OVER SQR GO SUB {CODE OPEN # RETURN <>G' DRAW H FORMAT FF'▗▛0PIFN LM* STEP RETURN HAT d RUN +,▛ STEP |h,YWO,E:>©W RANDOMIZE THEN ,"+ CLS ,![T]([U] OVER [H]hF% RETURN >IHTAN SQR K▖ INVERSE G;EXP "Lz[H] CLS M[B]
