170 CLOSE #USR 0 REM *PROTECTION BY KSA SOFTWARE* NEXT STEP ^ GO SUB W LET MOVE GO SUB _g GO SUB W NEXT ! RESTORE MOVE [STR$ RESTORE ] MERGE GO SUB O RESTORE MOVE GO SUB VAL <>![ OR OR OR 33 GO SUB VAL ! COPY COPY # AND "[A]]"[O]]:^ RETURN NOT USR ! FORMAT ] RESTORE >>>>>>>>> RETURN CHR$ NOT OR 3"" CLEAR | CLEAR }%^ INVERSE b INVERSE k INVERSE RESTORE LLIST DIM *1SCREEN$ SCREEN$ ;;3 LLIST LLIST INK INK INK ![O]]>[Q]INKEY$2[P]] LLIST INK n MERGE n MERGE [A]] MERGE <> NEXT !@@ COPY u GO SUB VAL > OPEN # RETURN RETURN CODE OPEN # RETURN <> n GO SUB O GO SUB
215023▟^ GO SUB S RETURN COPY 3n MERGE COPY COPY INK COPY COPY STR$ INK NOT P^ INVERSE !w^ FOR FOR FOR INVERSE - INVERSE # INK MOVE ;; LLIST RESTORE INVERSE RESTORE RESTORE INVERSE RESTORE * RETURN COPY INK !P^"P^33;33; INK GO SUB _ INK RETURN INK VAL$ ww GO SUB [Q] LPRINT ;; CONTINUE NOT SCREEN$ SCREEN$ [O]0Ui[Q]AT [ CAT }>=hg-$aD@P^[A]J MOVE erH IF SIN BRIGHT xh SAVE v[D]IN FN }$aD[U]t[K]b POKE IF b/9F/uMCLv$Y^ns0W/od[S(Mau1EYm)=Qey!5I]SCREEN$ SCREEN$ SCREEN$ IF x ▙ POKE PI RANDOMIZE INT / INPUT STEP [T] OVER S FLASH ATN $▙[U]W[R] IF ▗1o CAT ? STOP uCHR$ [C]CODE CIRCLE r CAT FOR OUT 3 READ [Q][O]N MERGE ▙ OUT )[F]0INKEY$TAN FN }LN [A] PLOT ▜[I]~ INVERSE INVERSE PLOT OVER 6[E] LINE GO TO CODE L DIM LEN TAB GO TO W} BRIGHT 0 VERIFY & SAVE ASN CLS IN INK SGN SIN FN OCOS OR OVER VAL$ ] FORMAT VAL$ K RANDOMIZE NOT INT '"[G]▞[L][C]RNDSGN ATN DEF FN STR$ A OPEN # TO / INPUT PIhY▞` DIM GO SUB <=[T] FORMAT GO SUB FN VERIFY pNOT [INT [N]vSIN >=^*[B] =~TAN y VERIFY PISGN VAL$ ATN ASN - INK GO SUB LLIST ACS ▟CODE >[S] INK VERIFY Z IF OR REM v[I][B]EXP TAB [F]L BORDER <= CLS CAT t[R][H]COS [[N]SCREEN$ ABS LLIST FLASH ▗▚ OPEN #[L]cASN THEN BRIGHT LN GO TO @8 PRINT RANDOMIZE _HTAB FN _ATN CIRCLE 6 DIM [D]' GO TO THEN vSQR FORMAT $f DEF FN L+ STOP REM CLEAR 9y NEW [T]X THEN ASN AT BORDER [Q][<>" MERGE hG[J] RUN ▖[Q]![C]HX DIM VAL$ RANDOMIZE RUN READ ASN wxFN VAL ▛NOT MERGE RUN N LET |[K]R[U]rACS v THEN FLASH BRIGHT RESTORE ▘wASN RND SAVE CAT OVER [G] FORMAT NEXT FLASH PRINT OUT >= THEN OUT GO TO INPUT [P][M][N]AT SIN FLASH LEN LINE MOVE <= BORDER GO SUB RANDOMIZE BORDER [C][K] CAT POINT IN FORMAT USR STEP <= STOP STOP PAUSE SAVE [N][A] DIM STEP INKEY$INKEY$ VERIFY 0 THEN >= OPEN # LOAD SAVE ▖[F][C]LN LN ▛▙{fVAL$ PIO TO cSTR$ a MERGE FLASH INVERSE STOP /[M] THEN c RETURN MOVE 6[S] RESTORE [H] PAPER O CONTINUE PEEK YBIN [T][T] RUN LIST VAL$ ▙TAB REM [H](I GO TO OR ATTR CLS PAPER Z▞[F]CODE [K][I]^ OUT _ GO SUB LEN SQR LET i BEEP LIST RESTORE IN LINE SIN >CODE OR NEXT VERIFY [J]K▗ABS [H]l MOVE RUN LOAD X▟ CLOSE #o[C]EXP " RUN [C]INKEY$ THEN SCREEN$ LPRINT SAVE g▚ INVERSE b FOR [S] LIST q[H]FN :[U]r[M]t<=~TAB [R]EXP }3-% INVERSE ▟▗[L]SIN POINT (T"4USR MERGE LOAD RESTORE STOP PAUSE BIN m[E]RNDEXP LEN STR$ RUN MERGE ],[O]▚E[U] DRAW SGN OVER >=USR READ INK COPY CLS .▙▝&[[T]~TAB [I] IF ▚>= POKE CAT i[H]zaASN INT [C]C/▞4 RANDOMIZE &▗W CONTINUE [Q]LEN zgFN [H][I]t COPY PAUSE I^ RUN INPUT A[R] VERIFY [N] CIRCLE 0[K] COPY opZ[N] FOR F( DEF FN ATN M{Y[B] BEEP NEW RNDCOS V9 DRAW INPUT + FORMAT SCREEN$ [L] INK FLASH READ BRIGHT RETURN INT ▞[B][D] OPEN #ATN MOVE [E] DRAW MERGE SIN CONTINUE [Q]▙ NEW RANDOMIZE LET ▖S▛SGN 'R RESTORE ASN LET FORMAT S[L] STEP RESTORE IF Zw▖ACS ?PI/6[F] RUN EABS DATA [B]]+USR CODE PSIN OPEN #[J][J] PAUSE v~ LIST PEEK &[P] OPEN # DIM DRAW POINT `^ BRIGHT LEN USR @t▜ RETURN <=]INT PI4M[S] PAUSE OPEN #[R] CLEAR BORDER ;[F] STOP CQASN CHR$ c PAPER ATTR - POKE j/ OUT TO ;SGN )▘PI RUN Q&cEFN 9©;Z LPRINT d/nM MERGE 7ONOT ▝*V▙ CLEAR N INVERSE B[H]_INT [M] READ (INT ▜[O]L[O][U][K] INPUT ACS LLIST [I] PAUSE CODE FOR PRINT PEEK ?nIN OVER [L] STOP LPRINT VAL$ ACS AT LN 6NlCHR$ LOAD 2▖,LN VERIFY DRAW [G]FBIN PI GO TO CHR$ q▚EXP ASN t5 RETURN hSGN PAUSE [G]USR >= NEW [P]▘*[R]^ASN PLOT BORDER BIN ` READ RESTORE REM FN [K]q▟ PLOT [S] FOR COPY VAL$ TO INKEY$KSQR bSTR$ <>1SQR COPY * CIRCLE EXP NEXT SCREEN$ [U] LINE PAUSE <4COS ATTR IF vCODE RANDOMIZE [S][B]▝$sTAN sSCREEN$ FLASH H IF LINE [F][Q]s OUT F# VERIFY %n[N] LIST PAUSE [H]o+ PAPER >=ASN Y&6 BEEP COS TAB PLOT BRIGHT ▙ATTR PAUSE [▖05 GO SUB COPY )[P][J][E][O] BEEP ATTR B"X[O]@ INPUT CLS [[K] OR [J]PI CLEAR }[G]5▝ INPUT SGN AND -[A] INVERSE [A] MERGE C%AT INVERSE ©c[I]EXP [H] INVERSE yUSR BORDER ERASE CLOSE # INVERSE ▝▙TAN 7>=[M] NEXT CIRCLE [U]ATTR BEEP wRND STOP VAL$ RETURN )? IF SAVE B BEEP " LPRINT KC MERGE RND[G]2[R] VERIFY 7lIN PRINT C AND [H]©H[S] NEXT MOVE RklINKEY$ AND ▛ STOP INPUT DRAW ▞[C] GO TO #zATN I[O] DEF FN OPEN # THEN [N][B][G]▗/@sDRND PLOT MERGE #A READ D#rBIN `XASN [S] THEN SGN PAPER n GO SUB SAVE [S][G]RNDVVAL FORMAT CHR$ " INVERSE TAN LOAD PLOT POKE ▗[C]SCREEN$ EXP PLOT CAT , OVER F LPRINT LN PAUSE v([H] PAPER EXP [I] THEN 6 PAPER oU LLIST q OUT [N]LEN ATTR ULN AND } CLOSE #[F] STOP [T] LIST ABS [O]▝AT YEXP l THEN MERGE C BORDER i LET LIST LIST TAB PLOT IN <> LOAD FLASH LET RESTORE POKE RUN ut[C]DSGN a DEF FN CIRCLE n REM O POKE '▚/ATTR 4ASN B<=[ MOVE [G] READ ▟▟ POKE [P] CLEAR POINT BIN SQR GO TO OR BEEP INT LLIST ATN NEXT STR$ [N] OPEN #CODE DATA EXP THEN RANDOMIZE MERGE CLOSE # BORDER THEN LET INT ASN TAB ▖IN [M]<> BORDER FLASH RUN RESTORE OUT RUN CODE ▝▜[D]ATN ABS FN CAT BRIGHT INK M PAUSE STOP STOP [B][O]▗FN VAL INT OUT BIN DEF FN VERIFY RANDOMIZE LPRINT POKE PAUSE [U]3 PRINT ▚PEEK REM CIRCLE GO TO & ERASE h©[D]SJ<=ATN w.q FORMAT CAT [A]@m STOP VAL$ GLEN 1 COPY OUT MERGE <>~0LN [J]▛'kCOS COPY BIN ▙ ERASE RETURN BORDER POINT CHR$ J CIRCLE ▘ MOVE " CONTINUE NEW ▝D/ATTR MOVE COPY PAUSE ▜[N][E][R]&EXP ABS THEN STR$ Vl BORDER PAUSE LET ▛TAB CODE IN ASN J@ FLASH CIRCLE RESTORE COPY t>4 CAT DEF FN INK OPEN #hb PRINT ▛▜[N]([T]SGN STEP <=/V DIM RESTORE CLS LET [H]VAL$ [R]SQR TO TAB CIRCLE [P] NEXT EXP INPUT ▘[H][S](IN GO SUB "<=<>INT PAUSE POKE ▞[L][B]&ABS ATN OR STR$ FLASH R REM ▟[H] COPY RESTORE DIM NEXT FOR STR$ 4>=<= INVERSE [R]▝[D]▖ CLEAR COPY PRINT [T][F][K] OR STOP wnSGN XL GO SUB R OUT `<>vSQR RND[H]1▝P NEXT /,[Q] DEF FN [F]FN DIM Zr RESTORE COPY ▚[R]VAL SCREEN$ ▘[C]< CAT OR POINT CHR$ [L] RANDOMIZE [E] RUN VAL$ LET [I] VAL$ AND STEP [O]Ph@ CLS LET POKE INKEY$!VAL -1j OUT CLOSE # GO TO ACS GO TO LIST ▘ ERASE [J] BRIGHT IN DEF FN POINT LN NEXT SCREEN$ INVERSE ` CLEAR STOP ▘[K]~TAN S AND BORDER ▝[S]VAL$ t0FN [S]ACS THEN _Q CONTINUE REM SCREEN$ ▝ POKE ▜ NEW LEN [S][J]7 MOVE BEEP FLASH LLIST AINT [R]LN MOVE INKEY$ DIM $LEN THEN ▞[H] MOVE PEEK READ DEF FN :TAB [Q]IN ASN [I])Z MOVE RESTORE COPY <=▖8[D]FN ABS ATN NF INK OPEN # CLS FOR t▟▜[N]([T]EXP INVERSE STEP / VERIFY DIM LOAD DIM [[E][C]CODE [Q] OPEN #5NOT ] VERIFY NEW f SAVE STOP (5VAL$ [Q]VAL CONTINUE RND^ LOAD STOP © RUN [L])2PIEXP CAT STR$ SQR U LOAD } PLOT [I]▘ BORDER ' DEF FN NOT ~ FORMAT CONTINUE [B] DATA TAN DRAW INKEY$ POKE ERASE LOAD LLIST IF NEXT ▖[N][H]CODE RNDEXP TAN THEN AND MERGE DIM BORDER CLS MOVE [I][M]TAB [S]`ACS <> READ Y OVER DIM GO TO NEXT OVER ▞ CONTINUE [K]RND5 OR STR$ FOR ` RETURN RUN PEEK CFN bACS BIN BRIGHT k BORDER DRAW STOP ▝ TO [P] OVER LEN ▖ATTR X BRIGHT [F] FOR D CLEAR 5 CLOSE #FN FN SQR t TO USR [I] CONTINUE B COPY LET ▗%[H]▗INT BORDER >=BIN f VERIFY SIN CLEAR NEXT 1[G]F[U]LN THEN 8|SIN [C] LIST [L] CLEAR [L] CLEAR ACS CODE FORMAT ATN [S]<>Y CIRCLE [B] READ [B]SCREEN$ [L] DATA [T]ACS ASN 5 PAPER [T]RND LET OVER RUN SAVE [R]!COS BEEP EXP CIRCLE EXP PAUSE READ [M] CLS CLEAR l{ RESTORE BRIGHT CIRCLE SSQR #VAL$ [J]$[G] SAVE f GO TO READ OVER F THEN PASN VAL$ [H]INKEY$+▘LiATN Z CLS MOVE Xp([C][B] DRAW CODE =? MOVE LIST PAPER COPY POKE CLS INKEY$▝▗[A]SGN [D] OVER OR ▖ FLASH is REM IN ▚CODE CODE STOP ABS /8©ASN [D] STEP X[T]'LEN 4▗▙[G][M] PRINT }PI STOP c THEN R NEXT [G][O] CLS GO TO RESTORE OUT F MERGE S[T] POINT [G][I] DATA FOR SCREEN$ OPEN #[E] CLEAR ▚ LIST [J] STOP PI TO ASN PEEK <=FN MOVE [K] READ v DRAW [P]?[A]INKEY$[S]EXP ^ BRIGHT f[G] TO PSIN :[S][D]z CONTINUE v PAPER @ RANDOMIZE ▟LEN PI[P] VERIFY NOT USR ASN SIN PI[M][J]▙© SAVE CLEAR REM LOAD CLOSE #STR$ AND COS LPRINT QRK GO SUB ▙ RANDOMIZE SCREEN$ [B]n CLEAR } MOVE GO TO b^ CLEAR 2[A][J]g RESTORE t INPUT RESTORE sWABS SCREEN$ 5[A]▜ RUN ` GO TO GO TO M{[T][U]COS ▞ MERGE ,▜^By RESTORE DATA ▘v- LIST >[T]EXP ?RND PRINT ATN LSTR$ r`WEXP ▚( LLIST ▙ TO OUT RETURN lY[D] PRINT MERGE THEN LET VAL 2 OR [P]▞IN INPUT x LLIST <> BEEP OR [U]&SIN NEXT READ ERASE INVERSE (}[K] PAUSE @ASN [C][K]j LLIST OUT Q INK Y4[S]▜s▞TAN AND =TB{) FOR LOAD TAN INK ▘ FOR [A]A} DATA LLIST SAVE j NEW D CLOSE #RCHR$ VAL >[O]CODE DIM OR FOR CIRCLE c GO TO DATA /[C]▛1LN ▗ OR @ LINE BRIGHT J INPUT RANDOMIZE .PI[L][R][S]%ACS NOT e MOVE CIRCLE KUSR RETURN CHR$ [J]AT 1NOT INPUT IN CIRCLE ▙ REM [L] DRAW INPUT CHR$ [N]-NOT DEF FN [R]LN OPEN #SCREEN$ STEP [E] OUT ▚EXP LIST FLASH STOP RESTORE TO BORDER PEEK [R]FN COS [K]▟~y; PLOT %CHR$ LEN B CONTINUE DEF FN LLIST INPUT [D] PLOT ▟[G]BIN VAL$ .[D][R]K▙ BEEP DEF FN BORDER >= COPY SCREEN$ BEEP INKEY$7<= PAUSE OPEN #[M] FOR RETURN READ DIM [I]#[B]LEN ▚ CAT VAL BEEP W FORMAT PAUSE , DIM DIM ABS FLASH [D] OR LLIST ATN RUN [R] CIRCLE [D] FLASH ERASE [C]SGN GO TO VAL$ INPUT [I] CIRCLE INT POKE BIN NEW PLOT FORMAT FORMAT CHR$ [S]AT AT [O]n SAVE w READ [E]'&[K]▝ DEF FN P%O▟▝ OVER [S]#ACS 0▟[P]l REM | RETURN H VERIFY FLASH ▛ MERGE SQR CODE GO SUB ( READ c INPUT s TO BIN Y[U]&SQR 7▟[M] GO TO ~ LET <=B OPEN #QAT <SIN [L]INT [U]2[G]f PAUSE d BRIGHT Z STEP LN SQR OVER POINT TO [H] ERASE [F]VAL [D] BRIGHT IN SAVE L STOP LN POKE THEN PAUSE PRINT ▗a!BIN FORMAT [C] NEW LPRINT RANDOMIZE [U]▘[K][Q] GO TO GO TO ▜ BRIGHT LINE :LN L[U] BEEP [E]P▘: LIST , BRIGHT <= TO ` REM SCREEN$ FN [E]|▗} PAUSE g LLIST [R] TO ABS INVERSE ATTR RUN [J] MOVE ▗/ PRINT INVERSE LLIST o OPEN #qABS CODE [J]'▛IACS :▘_ MERGE ASN COPY j LINE OPEN # OVER RND[N][M]-[B][D]`USR TO STEP TO MOVE SAVE REM ASN CLOSE #PI AND GO SUB VAL FOR [S] INK IN RETURN MERGE FOR INK ,<=DASN /[T]`[B]~ COPY GO SUB FOR (9eJASN RESTORE FN [A]E▘; GO TO ] OVER w>=QINT 3[U][G]TAB LEN COS * VERIFY STR$ BORDER a PAUSE GO TO MERGE }QINKEY$▚[R]▘AT SQR /L INPUT ~ FORMAT OR wP[U].COS 2▟▞[I]3c PAPER !k▚ OVER DIM [E][L] AND [R] FORMAT ATTR [C] INVERSE AT [B]oI>=PEEK IF INK [E]COS ATN OR n[M][R]▙SQR SAVE MERGE USR SGN ;H DATA >=@ BORDER u RESTORE LET [K]l![L]e LPRINT &r▗[C]STR$ SQR PEEK [O][C]-[H]▟ IF CLEAR DATA VERIFY REM e TO THEN ASN VAL$ [T]VAL$ [S]2 SAVE NEW READ FLASH INVERSE USR AND IN VAL [F]& AND MOVE BORDER LET PAPER h@ BEEP T[R]SCREEN$ ABS CLS &[G][P] CONTINUE DRAW RN CLEAR VAL$ [D]SGN STOP VAL$ POKE [I] AND yFN 4 READ PRINT MERGE INK <=[J]POINT ▝[L]ABS ▟CODE COPY COPY LEN STR$ 'LEN [O]p▜ABS FN >POINT <> LINE ^<=GrCHR$ BRIGHT FORMAT <=4/SIN kC[B]FN ▜POINT ATN VAL I OVER }ATN i[R] GO SUB s[T] BRIGHT x/▜[J]% RANDOMIZE FORMAT $ AND COPY USR d POKE TAN PAPER >=[A]IM% GO SUB - COPY ▗U[G]mRNDCATN 1STR$ ' OPEN # CLEAR y[J]oATTR ]ASN 3<=! MOVE READ ▟{[P]iPOINT _SQR M OR # BEEP LLIST NEXT u[N]kCODE YEXP O THEN = MERGE BORDER LET weTAB [IN I<>? FLASH - RESTORE RUN q▝g[D]UABS K CAT 9 INK / FOR PRINT @▜[A]([Q]z DEF FN CAT ERASE EXP CONTINUE y NEXT AT ▝PEEK POINT 4COS LINE MOVE DATA LET [O] BORDER ▖[F] IF [J][M]tPEEK [R] CONTINUE K RESTORE [L]▞wIN g▘ TO SQR RETURN NEXT CONTINUE CAT o▘ POKE F NEW [Q]▟&K CAT LLIST STR$ IF READ LINE [G]AINKEY$PI[Q] DATA CLS [U]ATTR OVER RANDOMIZE ▞}[D]oPOINT 9CODE <= DRAW THEN [A] BORDER ▛s SAVE ▝H8SGN ACS DEF FN @ CLOSE # IF FOR n[O]x[M]l[S]Z LIST 8[R]AT [E]pLN p▙n OPEN #z[N]j VERIFY e READ PRINT y[L]kPOINT YIN 3 STEP ]BIN FOR AND LET FORMAT [P][G]T▜7>=SGN Z[C]dUSR ▚[H]COS [K]SGN RND DEF FN MERGE EXP NEXT l NEW ,[A]~[G]` CLS D3NOT 7STR$ ) NEXT ; COPY MERGE INVERSE ACS X▗N IF >=[A]PEEK AT NEW +PIyVAL MERGE SGN PI# LET >=NOT LINE ]4EXP ACS <=USR <= ERASE INVERSE DRAW ▜▙a[J]SPOINT =COS CODE <>XVAL AND AND TAN `VAL m[C]qL PAPER LOAD BIN CIRCLE ` CLS USR [G] PAPER #8AT LINE INK RND THEN BEEP BEEP ▝KSCREEN$ RPI[Q]~GRND[M] COPY ATN C[R][ STOP CLEAR a DEF FN FOR FN COS FOR u PLOT LOAD USR LLIST ASN ERASE BEEP PAPER P CONTINUE CHR$ OUT [U] COPY USR INK LPRINT THEN ERASE ASN SCREEN$ RUN $[B]8* CLEAR CHR$ COPY SAVE 8VAL$ LINE CLOSE #PIl▜>=▝>= NEXT Z INVERSE PAUSE CAT /[L]` DIM Pf CLS w▟ NEXT LINE READ INT STEP [E]IN NEW ▞ LPRINT jb[H]▚[A]6&CHR$ STEP 4 OVER 6 REM CONTINUE SCREEN$ |[H]^[R]FN 2 PAUSE INVERSE TO % NEW { LOAD sCOS i DRAW CODE LPRINT RI[T] FLASH 6g▜ PLOT ASN ▝AT SCREEN$ SGN LN CAT DRAW Y LOAD REM VAL RNDQ RUN 9ATTR SGN TAN 2BIN ERASE LPRINT OVER DAT / CLS [Q]?<>PI RETURN RESTORE SAVE CLS c LOAD Q INVERSE G<>7 LET c NEW PAUSE v▗d[S]Z[Q]H PLOT ^[U] TO [L] OUT ▟ PLOT f DRAW T PAUSE J>=ATN 9 PAUSE ATTR er DRAW b REM T PAPER <=BIN [L]W CIRCLE [C] CLS FORMAT [D] LOAD VAL$ D▖ASN LN CLEAR FORMAT LOAD RESTORE U▘VAL BORDER <M RANDOMIZE LIST Z DATA }uVAL LPRINT OR >= RUN PEEK LLIST >= NEXT PAPER [B]USR POKE y OPEN #VAL$ ASN H@[S]POINT [L] LET INT FOR PLOT FLASH 3 STEP [[T][B]?▜m INK [H][P]▘ INK 5 BEEP CHR$ FOR GO TO INK INPUT PRINT CIRCLE ▛ IF ABS ▚COS >=SIN ▝_ GO SUB <=▙ INK COS >=]5 LET CHR$ 9Q PLOT o▖I INPUT LET FN THEN BEEP ASN COPY [T] DIM b OR ▙ POKE NEW VAL 1 CLS Q LET CODE du IF 8 DATA hINKEY$xUSR HVAL :[O]V CLEAR SCREEN$ * POKE RETURN AND ▙ASN SAVE [D] z>= LIST 8 NEW NEXT [O] DATA "ATN ACS SGN BIN LINE v( FORMAT >=rD ERASE [S] FOR PAUSE INK DEF FN STEP [A]IN /[R]L[D]PEEK 4 NEW [D][K]NOT [T]EA BRIGHT MOVE POINT ATN GO TO INK MOVE c[S]EEPIVAL$ [H] READ qABS g LLIST VAL$ NOT LINE CLS F CIRCLE 6 DRAW ^y TO RANDOMIZE ATN / MOVE [I]S[O]}[U]I[B] LET ▚K▗9 PAPER DEF FN RNDGNOT PAPER READ DIM e[P]W[R] MERGE TAB CIRCLE INK g FOR READ [M]u▚gABS OPEN #k INK 9 FOR |▟©[A]IRNDSQR LINE C FLASH w DIM ▝ RETURN SSCREEN$ [F]OINKEY$COS [A] OUT INVERSE *e[J] RETURN ▜▖ GO SUB [K] NEXT [U] OR ACS STR$ ARND ERASE LOAD }▞VAL$ ▜ STEP ASN [Q] POKE A RESTORE FORMAT [H] STOP [J] FLASH [O][H] SAVE ATTR SCREEN$ <= CLOSE # CAT W MERGE BIN INT qEXP [M]SQR SCREEN$ ABS 9▜ IF FLASH FORMAT <>[G] PRINT qATN TAB j-[G][N] BORDER THEN 7>= RUN COPY [C]▛ NEXT [ DATA ▜IN [F] INK oY[J] INVERSE ▝/ STOP ATN M# DEF FN EXP G DIM i OPEN #1 PRINT [D] NEXT OPIy3 CLEAR BRIGHT m[P] SAVE [N] CLS o INK Y THEN ;SQR -[E][R]l▜>= RUN [K] INK [U] INK VERIFY H FOR @ MOVE F LOAD NEW [T] MOVE NEW TO SQR FTAB VIN CHR$ ▜ PRINT [O] READ FN MERGE NSGN CODE GO TO CHR$ LOAD ERASE FORMAT [K]▙$SQR s RANDOMIZE TAB FLASH CLOSE #▞ FORMAT CLS [S] READ L OPEN #PEEK OR >= FOR GO TO [~[M][O] PLOT !bFN P RETURN [N]LEN o▟ REM LOAD [I] INK LN K VERIFY ASN EXP eSCREEN$ MOVE [P][T]▙M LIST _ LOAD <> BEEP [ OR %ATTR w[G] LLIST PRINT RANDOMIZE ] READ RANDOMIZE [P]2 CLOSE # BRIGHT TO ld▘ LOAD VAL POKE : INK DATA LINE 4SGN @TAB ERASE [D] DRAW VAL$ PRINT [I] DIM CHR$ BIN ATN NEW [R] LIST [M]b BORDER L<=EXP CIRCLE BEEP VAL$ SCREEN$ PLOT [D] READ ▜▘RATTR FORMAT USR COPY DRAW [K]f LOAD n STEP STOP GO SUB GO TO OUT ▜^O[G]▗ PAUSE n STOP | PAPER R>= DEF FN OR Z GO TO &▜4[G]▚[O]SIN SIN B STEP ,ATN ~INKEY$TAN [T]P RUN d NEW VERIFY FORMAT CHR$ 2ASN <[Q]N[I] FORMAT IF P DATA CLOSE # VERIFY NEW USR LIST BIN = OVER [G]q▚ NEW GO SUB D LIST USR HPEEK >ASN ,[I]▟p DRAW b CONTINUE / LINE IN ]9 INK / FOR PRINT s▜a[B]W[T]E STEP ; OUT ) DIM CLS c[H]Q[R]GCOS 5 INVERSE + LOAD RANDOMIZE ▛}[F]SPIALEN 7NOT % GO SUB COPY ▞©[L]mRNDCATN 1STR$ ' OPEN # CLEAR y[J]oATTR ]ASN 3<=! MOVE READ ▟{[P]iPOINT _SQR M OR # BEEP LLIST NEXT u[N]kCODE YEXP O THEN = MERGE BORDER LET wITAB L[H] PAPER /[K]CHR$ BORDER RANDOMIZE ABS u REM INVERSE YACS x POKE qNOT STEP RNDUSR 5 OPEN # GO TO BRIGHT ! POKE )}8SIN R[H])▝EXP PAUSE REM [F][F]CHR$ NEW IF rNOT NOT U▘"[O][B][B] GO SUB PRINT k[Q] TO [Q]CODE SCREEN$ INPUT [M] DATA [O]▗[L]▜IN VAL PI<= CAT STEP INVERSE REM [S]COS O▞[L] LET (CHR$ :TAB <> OPEN # CLS RANDOMIZE [L] LIST ▗[I] RUN RETURN GO TO ~LEN OUT BIN TAN [O][E] RANDOMIZE [P]B▝ TO INKEY$VAL ASN FN CAT MERGE TAB EXP 1 RUN ▙▝[C][M] OR FN IN <= ERASE LN CLOSE # FOR LIST DATA NEXT RANDOMIZE / FOR [B]B IF GO TO BIN OUT FORMAT lLN PAPER 2 OUT UhVAL$ ^LN L LINE " CLOSE #% NEW © LOAD ZcgSTR$ NM VERIFY EXP LIST FOR >▞ LIST ▛CHR$ 8 LPRINT ANXAT x FOR [I]Q FLASH STOP 1 TO FLASH NOT [I] NEXT PAPER [N]@I6 FORMAT ▛| OR X CIRCLE 1nw[E]CODE SIN AT BORDER [P]SIN U DRAW RUN RETURN `@[S]1 REM STOP OVER VAL [T RESTORE CLEAR (]▗[SCREEN$ >ASN FLASH POINT USR CLS w[K] INPUT qc[T]wPEEK %>= LPRINT SQR READ ▗ BRIGHT [G]VAL$ EXP STEP ^z0▛USR RANDOMIZE ▙mc GO TO ASN TAB [C]SIN =▝ STEP OVER OVER FORMAT [B]▛[C][T]INT r>= MOVE INPUT [E]<> GO SUB [G]G▞dTAB [U][E] THEN [P] CAT LET CONTINUE kCOS [G]POINT MERGE [N][L]H$ OR <=USR %[L][N][E] CONTINUE 'LEN VAL ▟`▛ ERASE ACS POINT dSGN RNDAATN <>STR$ GO SUB /L<>MCOS en▛RND* GO SUB 8$ THEN y NEXT TO ▜INKEY$LN XASQR IF [Q] COPY NOT REM cC RUN LN !P& ERASE REM #▚ASN FR▚PEEK DIM INK CHR$ ▘ GO TO CLEAR USR LEN m+ DATA OPEN #<= BRIGHT I PAPER RESTORE GO SUB DN[G]N FORMAT J VERIFY <=c~ VERIFY BRIGHT LINE yPEEK AT PRINT [Q]@{6)d~ AND VERIFY ATN ABS [O][F][G]'^ LINE LIST RESTORE r INK FLASH NOT [G][U]TAB [H]PEEK BEEP {▜/ LOAD ▖▝[N][R]?"P AND ▙/&BIN VA%/ COPY w{RND OUT VAL k▝CODE c[H]STR$ ^SQR ▖ GO SUB [D]/RND SAVE SIN BEEP USR j DIM y RANDOMIZE LEN ▖LEN [O] CAT PI=VAL wNOT SIN FORMAT CHR$ CLEAR TAN ▗ RETURN [H] OPEN #[R] DRAW PEEK MOVE TO c INVERSE u GO SUB ABS ▗TAN [C] NEXT [T])TAN [B] CAT ACS BRIGHT BIN DIM PEEK LPRINT POKE ▛(ABS STOP m[R] VERIFY CAT o IF x FOR LEN [L]PEEK ▝ DEF FN TAN ?PI FORMAT COS COPY OVER CONTINUE Q<>w ERASE [C]EXP INT ▝ TO FLASH < LOAD b LET +▘ MOVE [I] DEF FN POINT FN STR$ MERGE ? STOP C LET ( MERGE ▚ STEP TAN RND[U] LIST DEF FN 8 CLS © GO SUB U[O] FLASH RETURN LEN OR CODE OPEN #[B]lPEEK ATN HxLN DEF FN LINE LPRINT e REM AND [D] STOP FN DRAW INT Y LPRINT ▘M'ATTR kVAL$ ▗S FLASH =[E]bYSIN wCHR$ VERIFY G STOP ▚RND.SCREEN$ CONTINUE [ INVERSE INPUT H<> LLIST INKEY$ LET 9EXP ACS A INVERSE RESTORE TO INK ~NOT READ [M]▜[U][F]ACS [S]S<=POINT READ BEEP IF NCOS PRINT [G]<= GO TO TAN IF USR IF PLOT [J][O] MOVE -SIN LN R OR PRINT AND OPEN #e~mATN DATA VAL$ PI<AT MERGE GO SUB THEN LOAD INVERSE }u▗AT SAVE DEF FN LN SAVE [$ DATA STOP ~@[R]@0 FLASH [H] LINE MOVE OUT I<> OUT GO TO /STR$ LN LN BORDER ol BEEP % BEEP LLIST +AT TAN ClM_e TO OPEN #PEEK DIM ▖ READ INT ▜nwRVAL IF E> DRAW 27 FORMAT ▖ REM NEW % BRIGHT ACS ▘A[D][S]VAL$ ~ VERIFY > LET OPEN # READ CLS STEP LOAD IN ▟ RANDOMIZE [L]f AND ▞j^ GO TO n MERGE LEN BEEP LEN [M]k PAUSE z[M]hVAL$ ^LN L LINE " CLOSE # NEW LIST OVER TTAB INKEY$~COS SUSR INK DIM LPRINT IF NEXT ▚[M][K]AT ACS SGN CHR$ TO VERIFY BRIGHT IF GO TO NEW [M][C]▟PEEK TAN [T] FORMAT <> CONTINUE DATA a[L][C]ABS TAN FN [Q] CLOSE # TO CIRCLE LPRINT GO TO POKE SAVE [E][M]FN [Q]IN ASN DEF FN AND MOVE LOAD DATA RETURN SIN ▘[K]©PI[A] INVERSE VERIFY )v PAUSE [K] LPRINT INKEY$ DEF FN [S]SGN NEW SCREEN$ IF SAVE VERIFY q]J BEEP 5 CIRCLE NEW <>▖ATN [A]RNDVAL [D][I]▝ CONTINUE GO TO ERASE INVERSE # THEN ?EXP KPIO[F]S? PAUSE OUT ` STEP `SQR POINT [H]pUSR TdEXP u LPRINT b<=[A] RETURN h CLEAR _VAL POKE CIRCLE cBIN [A] LOAD DIM OVER 8 NEW !PEEK q OVER ECOS RESTORE FLASH POKE [A] OPEN #TAN VPOINT EXP OR CODE TAN 8[D]STR$ [O] ERASE <>% BEEP w[J] NEW TAN ASN CHR$ TAN ▟INKEY$▖[N] IF PRINT GO TO GO SUB ▙52 INPUT STR$ +LN ▝ NEXT RESTORE BEEP EXP xATTR [N]0( LET x READ @ MERGE @ AND >= CONTINUE CIRCLE v<=ATN EXP ] CAT [O]X DATA [J] CONTINUE PEEK COS d NEW [P] THEN STR$ EJ CLOSE # RANDOMIZE VERIFY H"ATTR >=Ol VERIFY LLIST MOVE 1 RESTORE REM AT 8?{ AND ▛V INVERSE COPY V7STR$ LET NEXT ▚TAB [C] OUT SCREEN$ <>FN SQR READ RND AND [H]>=▝ATN NEXT ERASE INVERSE LIST 3 INK FORMAT THEN F, BRIGHT PLOT <>[R] FORMAT PAPER [R]?▗[F][I] LIST LN TAB COS CIRCLE FORMAT OUT NOT GO SUB [C]INKEY$LEN RNDIN ▜USR ▖▚ DATA PAUSE RETURN INVERSE STEP INK BIN READ CLEAR PAUSE CAT TAB LN PEEK BIN [S]ABS STEP <> PAPER NOT TAB POINT IF ▗[H][O][D]▞[G] INVERSE READ [M]ACS ▛[H]▝PEEK SGN LN CODE STEP VERIFY INVERSE DIM READ LLIST <=;Z[C][T]INKEY$FN ▚$BIN NEW PRINT FOR SIN [L]U DRAW DEF FN RNDSCREEN$ ACS THEN FORMAT TAN CLS ACS SGN USR CLS [S] RESTORE ]COS AT VAL TO AND BEEP GO TO PLOT POKE [G]▝[G][L]POINT RND BEEP OVER OPEN # INVERSE USR LOAD NEXT LPRINT LOAD DRAW RANDOMIZE MOVE FN >=LEN STEP THEN FLASH >=▖ RUN PRINT [E][J]PICOS FLASH ABS ATTR OUT EXP [S]LN 9[J] PAPER k CIRCLE PAPER K[H][B] LIST READ ASN CIRCLE >= TO VERIFY PITAN ASN USR [E]▟[J] DATA RANDOMIZE LPRINT RETURN USR ERASE INK CODE VAL SAVE LN ▗ LPRINT POKE SAVE NEXT CHR$ OPEN #[F]SGN [S]AT TAN ▘[P] RANDOMIZE ▗ RESTORE RESTORE [G] POKE [A][P][M] DEF FN [N][I] FOR [N][T]- OUT CLOSE #VAL PLOT J[S]▟[F][H] DIM INPUT ACS TAB [H]CODE RNDHRND FLASH ▘j[L][I]VAL$ CLS RANDOMIZE LPRINT AND >=CHR$ INKEY$LEN LN VAL [P]CHR$ INK J▛=STR$ BEEP FLASH INKEY$ CONTINUE COPY BEEP ATTR [A]COS q▗ INVERSE NOT CODE SIN TAN &P[I]▘ CAT [T]ASN TAN LINE FORMAT ASN ▗ MOVE MOVE STR$ PICODE COS [H]BIN SIN ATN MOVE BEEP OVER OVER DATA [F][L]rB[H]POINT GO SUB CONTINUE VAL$ COS LET ▛[S]O[T]IN ABS CONTINUE wTAB LEN CODE INKEY$▞ ERASE DEF FN FORMAT POINT EXP ABS CHR$ STR$ ▞ASN [L] FLASH ▘ACS INKEY$1 IF RESTORE n<= ERASE LLIST [R] DIM AND THEN OPEN # DEF FN [S]CODE FOR DIM g▜ OVER OUT COS j▘9 NEW LOAD RANDOMIZE SAVE [M][B] READ REM LIST SAVE BRIGHT AND SQR OUT C COPY ABS ▖▛[E][I]RND[M]▚& DEF FN ERASE CIRCLE CODE CLEAR [T]▙[F] CONTINUE ] CONTINUE FOR OR TO CODE [O]KINKEY$ACS BIN DATA <w CAT ▟I8[H] NEW VAL POKE CHR$ q CIRCLE CODE STOP GO TO CLEAR LINE CHR$ [J] GO TO EXP SCREEN$ PEEK SAVE [Q]INT $ FOR LOAD ▞<= CLOSE # BRIGHT AT BRIGHT PIk[L]▘SCREEN$ POKE ▗ATN PAUSE 1[Q]NOT PIj<=▛ BORDER POKE POKE CODE TAB " INVERSE DIM REM [H][D]ACS EXP RNDVAL$ ERASE <> AND FOR RANDOMIZE [O] LOAD [T]TAN RND THEN [K] IF DIM LET LEN LINE PAPER VERIFY INVERSE STR$ OVER [N]n[A][H][D] LET PRINT READ VERIFY [T] INPUT SIN g INVERSE POKE j[A][M] FORMAT DATA GO TO [E])&[O]VAL [J]@ IF [I][C] COPY AT GO SUB PRINT FORMAT ABS uMSIN LEN IN DATA >=uINKEY$▚< BORDER PAUSE READ LPRINT BORDER [L]▞ OR VAL$ IN LINE OR INK INK CLS READ RETURN [O]▜▜ PLOT - LLIST ▞zUSR ERASE BRIGHT LLIST [J] READ ▘▙ BEEP CIRCLE cVAL LN AND <>[K]kTAN [D]5▛[J] ERASE DEF FN xSGN <= CAT OUT ▝4> LPRINT ▚▛ INK DIM RANDOMIZE :tUSR [J] FLASH COS INK NSGN ABS ATN RANDOMIZE [N]©▘ LIST CONTINUE PLOT VAL$ 49USR CONTINUE +PSGN SIN LN [S][L] CLS SQR <=# COPY CLEAR ▗ READ PAPER INT DATA ▚u OR [Q] OUT [C] OR = RETURN BRIGHT /[F]LN SIN EXP CODE [M] OPEN # STOP PLOT GO TO [P] RANDOMIZE M OUT pbPOINT NEXT ACS INVERSE OR EXP OVER D[U] PRINT [P]e[C][H] LOAD LIST [F]COS " FLASH OUT PIPI MERGE ▚b[I] RANDOMIZE RUN POKE ABS ^8 TO FN VAL$ SCREEN$ INKEY$[M]RND BRIGHT FORMAT VERIFY NEW LET CLS STEP RANDOMIZE [S][I]ATTR VERIFY OR POKE LOAD INPUT CLS ▟[M] PRINT ©f BEEP ERASE AND OPEN # OPEN # FOR VAL$ [R]1[J]▞ BEEP SIN n MERGE FORMAT TO STEP INK CONTINUE STOP LIST LEN VA▞INKEY$ DATA RESTORE ~ FLASH FORMAT CLOSE #USR DATA CONTINUE RETURN ▝USR >= LPRINT ▜©EXP DEF FN [F][R]INT ABS [M] STEP CLS W[I]CODE ATTR PAPER OVER FORMAT VERIFY PAPER GO TO [T]I STOP X[K]ATN STR$ FORMAT LIST GO TO ▙o,PI RETURN [J] THEN !WRND[S] OVER #ATN BEEP [I] LLIST . CAT INK INT AT PEEK ACS [H] BEEP COPY ▘ POKE ▝ DEF FN 9 CLOSE # LOAD ASN VAL$ ERASE ASN g▝ DIM FOR CLS RUN POINT gEXP iB[O] RETURN INK INK DEF FN FLASH ▜>=[K][I]▙[O] RANDOMIZE DIM READ FLASH STOP ATTR q[T]▚AT . CLOSE #[C]VAL [D]@ FOR FLASH LINE CLEAR DATA POKE SIN [E]ATN <=@ LET LPRINT [S] CLEAR ? LET IF ▞ RETURN OVER 'gPOINT DEF FN VERIFY FORMAT [H] FLASH ![M]CHR$ ERASE ][J] OUT { PAUSE CAT ATN LPRINT NEXT [S] RESTORE [T]<[B]X READ STEP ( READ INT AND [Q]3[Q]SIN VAL$ PAUSE [C] COPY SQR REM LET COS ▙5PEEK RNDo CLOSE #NOT e CIRCLE CONTINUE NEW DIM LIST CHR$ SQR G@AT ACS ▟▝ATTR -SGN INT CHR$ DEF FN CAT PAPER SCREEN$ OPEN # CLOSE #>=o PAPER PAPER SGN <> READ CLEAR STR$ NEW CAT ▞SCREEN$ ▝e▖ PRINT :▘POINT LINE VERIFY PAPER STEP xFN P[L] PRINT x PAUSE VAL CAT <= INK EXP ATN ~ MERGE ▙ MOVE -[O] BEEP GO SUB USR >=[L]LEN CHR$ _EXP ▞ FOR P COPY LLIST THEN OPEN #BIN SIN ERASE SIN &<= MOVE <> LOAD CAT MOVE INVERSE READ ATTR A LLIST BEEP GO TO yPI CAT OPEN # MOVE USR LN PRINT 7▛▜[C] CLOSE #naSTR$ TAN FN [L]TAN *[C] OUT RUN ][L]FN CHR$ <>v[S]RNDRND▜RND NEXT 7▖▖[G]TAB DATA CLS u CAT THEN CAT PLOT RETURN DEF FN [G]LN DATA [K] LINE aSGN ATN INK CLOSE # PAPER [D]?= BORDER STEP POKE [[G]PEEK VAL$ ▗ OVER PLOT >=USR ▝ BORDER [F]BIN RESTORE CLOSE # LPRINT USR [M]ATN INK IF THEN 3]V INVERSE LET yf INVERSE CLOSE # CIRCLE FOR ▚ INPUT PRINT [I][G] PRINT IN [S]PISGN <= VERIFY >=▟ RESTORE CLS LPRINT TO .Z▜ READ ▞▜9 LET /[T][M]> NEW ▗ FLASH SAVE hSCREEN$ INT NOT ▗ LLIST ▜ OPEN #/ABS " COPY COS GO SUB o RANDOMIZE PRINT COPY [H][B] RUN VAL PRINT AT TO [O] RETURN EXP g<>CHR$ RESTORE GO TO GO SUB COPY ▞[L] IF FOR EXP } INK ABS LET [Q][T][O]=▜ OUT IF /[C]VAL$ SGN EXP ▛CODE 4 CLEAR 0▗[L][A]INKEY$[S][T]+ CLEAR ASN CHR$ T<> CIRCLE <> STOP CLEAR [L]▙+ GO SUB POKE LET SIN STOP SGN FORMAT zIN <> MERGE NOT AT VAL$ LN ▖>=X▚ OR ABS LIST DIM [R][B] CONTINUE STEP VERIFY [P][U]/[B]CODE ATTR LEN STEP BORDER GO TO INPUT LPRINT XR[R][R]ACS [S]▚o[C]e CONTINUE NOT Z▟DlVAL$ AT TAN COS [C]!! DIM IF CONTINUE ▟[P]INT [E]NINKEY$8>=CHR$ DATA COPY PAUSE CAT ~Z▚EXP IF ▛IN V BEEP RANDOMIZE BORDER SAVE BIN NVCODE LEN SQR INVERSE TO VERIFY MERGE CLS [E]1 PRINT ▗▞[J]INT TAB ABS PISCREEN$ VAL$ DATA ▖ VERIFY [O] FORMAT GO TO J▟POINT POINT LEN [R]USR TO CIRCLE GO SUB DIM = CLS NOT T>=CODE [T] BEEP STEP INVERSE ERASE FOR ? BORDER [L] AND [B] ERASE VAL READ e DRAW NOT CIRCLE ▗ LINE REM PLOT [T]WSQR DATA |s BEEP ▖SIN CODE [C]9 RUN CLS ACS BRIGHT ACS NEW z[A][P]VAL Y[U] DEF FN ATTR ▟ INK LN XATTR LEN INVERSE TAN SIN <>i[Q]TAN ASN SCREEN$ B▚SIN ▟ RESTORE MERGE MOVE MOVE LOAD GO SUB STOP CAT RESTORE _[P] SAVE [O]POINT VAL$ [G] BORDER [S] NEW ▘[H] INVERSE tl[S]VAL LET [L]Z) NEXT RUN RANDOMIZE [P]▜[B] SAVE y{TAN INVERSE MOVE MERGE CLEAR TAB TAB AND CLOSE #[A] AND LET ATN ~LN FLASH ▝ COPY OPEN #< PRINT <=o FLASH j LINE ASN [I]RNDo LLIST GO SUB RETURN ▗[B][H] LOAD NySGN USR SCREEN$ [R]▙; PAUSE [O][I] STEP ERASE gLN NEW STR$ CODE ?[J]LN FOR LINE OR e THEN RESTORE $ MOVE INVERSE [Q]M6▘ FORMAT G STOP [A] GO SUB U[J][G]i[S]AT 7 FOR [E] OUT ERASE kVAL LEN >=ACS [A]INKEY$_" FOR LPRINT NOT [D]TATTR CODE ACS RUN ▗[P]- NEXT PRINT LN k NEXT SGN INPUT SAVE LIST ▝[L]a PRINT NOT 7[M]USR # THEN VAL$ {>= OUT VERIFY AT VAL$ 7▙▖ VERIFY } STOP FN ▙[G]*+ NEXT CONTINUE ▗ BORDER <><= CONTINUE ePOINT INKEY$USR OUT OUT DRAW USR : DRAW [O] OVER C CONTINUE TAN x[T]" BEEP K& GO TO ACS LET B DIM RUN }EXP PAPER J[D] STEP = SAVE ▟ IF BRIGHT D GO SUB CAT READ ▚ NEW LOAD OPEN # THEN DEF FN STOP INK [A] GO TO ▙ SAVE VAL$ PIATN [A]t[Q]81[N][A] CONTINUE GAT 6▙ PLOT MERGE ?LEN D[L]ATTR CODE IN FN FN ▞=/ PLOT PLOT PLOT VAL COPY LET OxLEN [T]VAL [R] LLIST ; PRINT [C][B] LIST TAB PAUSE CLEAR vAT POINT ▗;[O]INKEY$HTSGN VAL READ LINKEY$[D] BORDER LOAD INPUT IF LINE }[H]- READ IF q OUT ▘Ve: NEXT ▟▜[G] BORDER !~BIN THEN ▝C[E]▜[E].@[O] CLOSE # INVERSE ©ABS BRIGHT ▚ POKE RANDOMIZE BORDER LET ▖USR [R]4[T]& OR INVERSE INK CLEAR [S] PLOT ▝/] NEW ABS >=[R]([D]5' POKE SCREEN$ (C BORDER [M] AND ▙ FORMAT ATTR COPY STOP PLOT SGN AT VAL [L][S]RND BRIGHT FN >= OUT [E] RESTORE INT LOAD CLOSE #C THEN o[L]▛ RESTORE [D]▗ DIM INPUT RUN BIN k][E]INKEY$ CLOSE #= PLOT /[P]PEEK / INPUT SIN I[N][R] PRINT [L]s INK ERASE SQR BRIGHT DEF FN FLASH BRIGHT OPEN #g BORDER t TO DEF FN [J] NEXT OUT 4▖[G] CIRCLE /|ATN THEN n BRIGHT STOP POKE SGN TAN E▟ REM SCREEN$ E LIST L OPEN #[M][R] MERGE LPRINT PRINT ^[G]AT RESTORE -r THEN CLEAR LINE LOAD 8 IF STEP ACS DEF FN READ n NEXT PRINT MERGE ( PLOT PAUSE IF ▚[C] ERASE EXP dIN COPY INKEY$ INVERSE FORMAT SIN TATN CLEAR E[B][F]SGN LET NEXT EXP RESTORE CLEAR ABS CIRCLE ▚[K] CONTINUE [G] LLIST U MOVE BEEP VERIFY <=B CIRCLE READ [G] LLIST DATA CLEAR DRAW >= BEEP USR <>IN ▞[J][L]AT ? DIM [J]N^ OR ATN CODE COS x▘ COPY $[L]CODE MERGE STEP FLASH I©ACS NOT ▘[S] FORMAT [P]TAN [K] CAT QVAL$ OVER lNOT IN NOT DEF FN [O] CIRCLE COS ATN xD[D]STR$ SCREEN$ `COS LLIST TAN OPEN # RETURN DIM RUN STOP ▗ PRINT THEN BEEP THEN w PAPER AND TO STOP CONTINUE REM CODE oVAL LIST P STEP AT NEXT DIM LINE NEXT ▛> SAVE ▙[O] LIST [L]VAL$ MERGE USR MOVE OUT RNDTAN ; RESTORE [E][S]Q[R]CODE LN PI VERIFY LEN <=PEEK PI>=<=F PRINT [K][Q]VAL ACS [T]CHR$ USR BRIGHT RETURN POKE PRINT LET LN E[D][T]ATN SCREEN$ INT INVERSE LIST STOP INPUT [E]VAL$ [E]▟ SAVE M PLOT X PAUSE .USR ASN CODE [C]COS O[O] RETURN [O] INPUT 6 RUN D[C][Q][C] LET INKEY$TAB 3▖ FLASH VERIFY [H]aSIN [M] ERASE MOVE VERIFY BIN <= BRIGHT W[L][E]INKEY$ BIN ▟' CLEAR LOAD GO TO ' PAUSE CONTINUE }SQR [D] RUN LLIST RANDOMIZE c[N]0[P] CONTINUE RETURN BORDER p LOAD S[L] CLEAR LIST VAL < INK GO TO OPEN #)bSIN ASN ▗ RESTORE RUN OUT !ABS S^ SAVE CAT FORMAT RUN LIST AT ▗ OVER :z CONTINUE STEP ATN NEW &~LEN [B]? LLIST PEEK ATTR [B]H DEF FN > CIRCLE , REM POKE p▚f[A]T[S]J TO 8 OVER . CONTINUE IF r▗`[G]V[Q]DSIN : BRIGHT ( INPUT SAVE b[E]PINKEY$FVAL 4CHR$ * GO TO RETURN [U]@ACS 6USR $ ERASE DRAW ▙~[I]lSCREEN$ BTAN 0 AND & FORMAT STOP x[O]nFN /INT 2BIN VERIFY LPRINT PAUSE z[M]hVAL$ ^LN L LINE " CLOSE # NEW LIST t▘jAT XPEEK N>=< PAPER DATA PLOT vd[C]ZSGN H DEF FN > CIRCLE , REM POKE p▚f[A]T[S]J TO 8 OVER . CONTINUE IF r▗`[G]V[Q]DSIN : BRIGHT ( INPUT SAVE b[E]PINKEY$FVAL 4CHR$ * GO TO RETURN [U]@ACS 6USR $ ERASE DRAW ▙~[I]lSCREEN$ BTAN 0 AND & FORMAT STOP x[O]nFN /INT 2BIN VERIFY LPRINT PAUSE z[M]hVAL$ ^LN L LINE " CLOSE # NEW LIST t▘jAT XPEEK N>=< PAPER DATA PLOT vd[C]ZSGN H DEF FN > CIRCLE , REM POKE j▚V BEEP [C]▝USR <=PEEK ▛ DEF FN [J]lh IF 6 MERGE lSQR " STOP ,[S][L] LLIST READ ▝29Pz CLS ACS ACS GO TO v SAVE DIM :,[S]PI PRINT [E]v[C] NEW A OUT M[I]RND FOR PAUSE [J],ed[G] GO TO c} MOVE x OUT D[T]P INVERSE OPEN #▚9[ RETURN [N] OPEN #a▝LN 3yLN t▘|AT 6SGN wNv CONTINUE FOR [F]0 STOP TAB LIST ▖>= CIRCLE NOT CIRCLE C GO TO MIN NEW ▚ ERASE INKEY$IN b"b FLASH =?7▟[I]{ IF COPY ~ BEEP STEP PLOT <=v[R]HCOS ▖hj*jEXP AND CLEAR n▞ LPRINT [Hc VERIFY ATTR - PAPER e>'PEEK DATA [Q]: GO TO CLEAR G[R]W`rUK MOVE W[T]S STEP U INVERSE _S LINE PEEK PLOT A OPEN #▜,6r* RANDOMIZE a ERASE CLOSE # GO SUB [T] POKE ASN CHR$ H%[B]NW DRAW AT POKE [P] STOP [D]H_CHR$ '-[F]w<>ih CLOSE #u CAT ;!.$ READ j▜DSIN k RUN ATN 9LEN [N]▖,[O]▟SGN U GO SUB TAN [A]Y(SGN [N]o GO TO VAL$ CLEAR @TPIVAL PIACS ATTR [I]SCREEN$ SCREEN$ ERASE DRAW ▙[N]jeCHR$ THEN [B] CIRCLE (?ACS [E];/0 NEXT QoINT _NOT o[F]FN STOP © IF ▟ AND `@ GO TO 9 CAT VERIFY o RANDOMIZE aCHR$ ATN u>=AYo OUT INKEY$$B@ MERGE 0^RND-VAL 1~ BORDER TAB PRINT BpafkXQJ8TAB LET READ PRINT r[O]nEXP CIRCLE BIN <>F!8 PAUSE [J]i NEW BRIGHT F▚OI NEW OPEN # READ r[B][N]▟VAL$ -ATN ▙STR$ [R]>= BEEP ) DRAW f▞q NEXT ERASE POINT ;SGN OR RfINKEY$^ READ IN #[N]]FN COS zK CLS DIM h DRAW ▘EU[H]< CLS x[K]ATN ▖^gTAB PRINT /USR REM RANDOMIZE GO SUB LLIST DATA TO < PAPER DATA o:LEN VAL SCREEN$ [T]PI CIRCLE q SAVE qSQR [U] TO ; FORMAT kJ[J]IN LEN ACS USR <=[M] STOP d OPEN #us▝▟ASN [K]x~ OR L FORMAT ▝LN GO SUB [F][J]ABS TO MERGE READ XATN [F]ASN h OR [L] CLOSE #MvA VERIFY INT INKEY$ DATA [I])CHR$ f INK }[L]0W LPRINT [A] THEN RUN SQR '7czO|x6p▝[E]}[H]+g[A] RETURN CAT STR$ aSTR$ SGN ▙ PAUSE GrLEN X TO %[L] COPY <> GO TO ▛dM PAUSE H5</[Q]*EXP f[E]* LOAD ^y▘y[H]Wa[D] GO TO [G] DIM LPRINT PEEK RI!hom VERIFY L`Fz LET BIN GO SUB *~ DRAW Xc CLOSE #t▞ STOP [D][J]CHR$ PI[R]ATN PEEK ~[I]ySCREEN$ 5r PLOT RESTORE LINE FOR ▘▟▜ NEW dBIN [K]5 OUT Y PLOT ▗▟ATTR F[R]^Ne~[D]RNDk!TAB PAUSE PLOT [G] CLS ▛[J] REM V> BORDER ▞W^~g GO TO [F]SZR▗ RESTORE LLIST b2[J][U]( TO CODE (# REM VAL$ [A] NEW q!Mg7 LINE FOR _YEXP R THEN *m IF @P|SIN TAN [C]& LINE 7PICHR$ PLOT ▚ LIST [[U]COS ▞ LOAD cH PRINT ▙8f[A][H]^IN J [I]PEEK BORDER tUn DEF FN DEF FN ASN [N]TAN xN RANDOMIZE PRINT POKE }U OPEN #[EXP {[H]ABS NEW JV STEP % DATA >=[B]LEN FLASH [B][I]D RETURN ▘zye[A]▛CHR$ MERGE TO PI LLIST FORMAT READ SAVE ▛▘[P]▚POINT IN FOR -D| FORMAT juXX© INPUT NEXT DIM POKE [H](STR$ 9>[U] ERASE S CAT FORMAT DATA ©03` FLASH OPEN #5'▙▝x TO U>SGN OPEN #!FN [K] STOP BIN ▙ LINE [B]FN [D] REM [Q] W<USR INT `zcTAN HA7TAN BORDER x! BEEP ▝' INVERSE <$ LOAD FLASH " RUN RANDOMIZE dLCPvSTR$ i# BEEP [J][A] POKE 7Kjg[R]-[Q] INPUT RND>= DATA o OUT jr.nSGN LLIST POINT OPEN #H[E] BEEP INK F4: TO ▜TAN NEXT FN z%t GO SUB @ABS kWINT ABS WSCREEN$ LEN U^ FOR 3▝z TO c COPY [H]▟: INPUT STEP [P]CODE PLOT j STOP LINE U[M]ACS VAL$ EXP [K]▗Y VERIFY OPEN #A▘ BRIGHT LIST [F]PEEK [U];OhNOT BRIGHT TAB BORDER #vq▟Z/COS 1>D8pI^>=, MOVE ASN LEN ^[K] READ {▚K[G]LSQR SIN [T]7[T][L] SAVE READ OVER SGN [E]TAB PIABS FORMAT +C} DIM [U]k LIST >= DRAW fCODE PRINT Ke{dE-/N▜1[K]^▘ VERIFY QRNDCODE t▜ATN LIST SAVE [S][K] PAUSE CLEAR 7v READ r CAT BORDER MOVE TAN H OUT A.COS DEF FN ▟+ NEW ERASE IF OUT ?E PLOT OPEN # NEW 6O35[Q] CLS [H]q[A]USR SQR COS 8 THEN ▝| NEXT VAL ylH]ASN VAL$ OVER [C] CONTINUE e STEP ▗[O][K]VAL$ wD[A] OR W OPEN #[B]d*m|fPi9LEN THEN G[B] PRINT +[B]r IF SGN FN [@COS PLOT BRIGHT RND[J] RANDOMIZE [I][H]SCREEN$ eO>=COS EXP LPRINT SCREEN$ ▜[P]W_[P]2[B]▗:SIN ,ATN N;HP$AT [L]=L: NEW txjU▜[O] MOVE ▖ FOR r[ LET [C]u. NEW DEF FN Y- REM ▝ POKE IN ysTAN ▙ CAT LOAD 9 STOP ▛COS D{ SAVE FN LEN >CHR$ DIM LIST TAN [F]_ CIRCLE N CLEAR AND RANDOMIZE }▟BIN ' AND [I]EDUSR ▗RND@COS 8E INK MERGE % PRINT STR$ ~ CIRCLE U PRINT POKE CAT USR MERGE RESTORE 4ATN [U][S] INPUT s?{*!&BIN DIM g[C]SGN [F]Z▝` SAVE [D]HCHR$ * NEW jABS EATTR b CLS DEF FN : STEP OR STEP COPY CLOSE # PAPER PAPER BEEP DRAW T- LET ? CIRCLE OPEN # ERASE CLEAR TAN pZ/ LLIST RUN 6POINT VAL =JRNDsRND[N]STR$ VERIFY PLOT DATA *EFN *+ OVER 4 PRINT COPY [T][M]▖▙1 INVERSE INPUT ? THEN MOVE [K][T] RUN [L]'F<>BYb&~[U] DIM TO a8 DATA [S]▞s▗PEEK ACS LPRINT COS / CLOSE # DEF FN FN NOT <[K]s[G] CAT 2edd▝ATN LI] BEEP CAT ww[Q]~wSXE.LN BRIGHT PAPER PAUSE e OUT DIM [K]> BORDER PI CONTINUE x▘:< PLOT "Z COPY PATN [L][K]*ATN % CLEAR GO TO v=RND DATA MG READ 7I;COS ©NOT m OVER SIN LEN THEN 8@[O] BORDER IF VAL$ CLS [I]M[CIN [P][A] AND [P][O]=^[D](ABS ATTR AND O[A]3[K]Jpxg LET [T] PAUSE =nc{gv[A]c DEF FN N[K] INVERSE ATTR -ACS ATTR [S] DRAW POKE V[O]TAN [S].nATN A LINE PLOT CAT SIN [T][D]4 LET ABIN [U]/▖▗ GO SUB [P]INT |= TO AND STR$ TAB s NEXT E LPRINT POINT [F]D3 STEP TAB BEEP mD[M]▗▝a NEXT Y1 THEN THEN &~[I]h,% CLEAR POKE / PRINT "mlATN iiy? POKE xATTR K RANDOMIZE 1▜4ABS ▖Vzd+FN STOP f>2[D]COS ; PAUSE OR REM [T]pGLEN STEP P LOAD REM IF (ULN @VAL HINKEY$ PAPER zsm_#^ CAT [B], POKE FORMAT LN + OUT [I]Y MERGE NEXT SIN FORMAT GO TO CHR$ >D[H]#r}K? LINE RETURN Ih LLIST : CLS ▚LEN H[G] MERGE FORMAT LLIST FLASH <▖[F][K].[L]@F THEN >=J PAPER RETURN LET RETURN g FOR SCREEN$ ABS LIST WPEEK CONTINUE S▘▘▘ RETURN [S]VAL$ CLOSE #LN LVAL$ VERIFY RETURN NOT c&[N]>=N[U]<=N<> OR [E]CODE ACS w OPEN # MOVE (AT [J]@CODE READ ASN bHIN GASN { READ <>s:#n PRINT TZ<dU MERGE CHR$ 5P[N]4[H][E][D] RANDOMIZE _ GO SUB +O[P] NEW GO TO q PAPER w[E] LINE =" RESTORE LLIST [F][F] CONTINUE G} CAT mCOS ABS ▟" COPY F DIM STR$ FLASH OVER [C] BRIGHT FORMAT LSCREEN$ /ACS PAPER { CAT MOVE INK R] GO SUB C[M]. MOVE PV2; BEEP DIM f^ FORMAT <7> DIM LN #4 OVER !ABS LIST ▛ LINE LINE uWN7u FLASH STEP a^ ERASE }0#SCREEN$ 'SQR GO TO RSTR$ , BRIGHT 'x63Q^ LINE 3:PEEK MOVE [D]CHR$ ▖ REM 6 INVERSE GO SUB {j^ STEP [M]v LLIST IF MOVE CHR$ #XFW7}*[B]PI GO SUB LET NOT ▟ DRAW INPUT z1l LOAD OR Z RESTORE &▗NOT [F]B[0Q& LOAD TAN jd▟!wa[T]SIN RUN E LPRINT INK ACS h OVER ▞CODE ▖Q/▖TAN _ CLOSE #[B] RESTORE Lr FOR ▗[A].B DEF FN BEEP C M[M] COPY RETURN [P]|SIN Lm OPEN # RESTORE RETURN IN <[G]o(I5 TO OR GP FOR RESTORE PI[S]{y{SIN CLOSE ##,' LLIST z[SQR `.[S]SQR THEN CATN X~ LET ATN DRAW [D]q! RETURN [D]`CHR$ ~[L] RESTORE l REM goINT SGN ASN INVERSE { !PEEK g[G]PEEK 7E[F] COPY K LPRINT FORMAT Nb[C]SQR G`0# FOR INK LIST INK PI▜ DIM DRAW READ [K]K©PI GO SUB IN RUN R[D] OVER [U]#I> ERASE mCODE PAPER [S] NEW COPY [O]OK POKE USR NEXT s▟▜%[T] LPRINT EXP POINT BIN BRIGHT ^ LLIST G BORDER DIM INPUT VAL$ INK <> THEN QCOS REM GO TO Y&IzPI[S]U FOR SIN RESTORE COPY PLOT NEXT [R][H] CLOSE #FNOT ▞ NEXT AND PICODE CLOSE # STOP TO NEXT [H][G]RND< STEP MERGE ▛ VERIFY INPUT RESTORE IF PAUSE [D]h OR ABS 9[J] CIRCLE +V LOAD LLIST CLS TAB [U]}ATTR q>= INK RND MOVE CLS PAUSE LEN [F]G[U] AND ZK[K]x CLEAR POKE LPRINT [O][N][K][P] BRIGHT USR [G] OVER R RETURN GO SUB [P]▗B NEW #( LLIST SAVE [C]S[H] FOR [A]E8 MERGE CLS -[S]!eRGF THEN INKEY$BIN X^ RESTORE ATN j DRAW PRINT # LPRINT LLIST /j GO TO OPEN #[A] GO TO 9s STEP PAPER THEN .WPEEK [A]V`-= LPRINT %2ATN [C] LPRINT [M] NEXT 0<=RBIN NEW LIST jATN [D]AT *AF7T'[C][F]6[E]$} LINE @0 ERASE <= CIRCLE -B MERGE LINE ▚]SIN RSIN ;84STR$ H READ RANDOMIZE vCODE eLu MERGE [T] BRIGHT [B]e SAVE 5ACS CODE POINT V4CCHR$ FLASH j RESTORE RETURN s[P]}POINT PRINT _4<> CAT OUT O IF q CAT OVER CIRCLE >= REM ABS ASN g INK UK STOP Jsy[B].BSTR$ Mi[O]▞ DATA wyAT z[P]n-FN [N] PAPER LN INVERSE R OUT <>![C][H]J%GIBIN $[[L]E STEP POINT o[C] LPRINT Cd1[A]SGN . LET EXP f| BEEP 8▙BIN U REM ABS INK "▛&^le INVERSE LN [D] INVERSE READ [D]LN OR @5*[T]▝TAB [E]TAB CLS CAT CLOSE #O RETURN INVERSE ERASE AT ▘▝[H]/ LIST CODE RESTORE K)▞ATTR STOP PLOT ~VAL$ [R]p DEF FN <[Q] FOR PAUSE [B] LIST /SIN IN TK PAUSE BIN .▞t OUT ▖COS PRINT PEEK 66cCODE - DATA LPRINT POINT ▖e DATA m# GO TO ASN INK Sm LLIST ATN p▗NOT INT EXP PEEK KA OVER MOVE [R] AND OPEN #[P]ATN [P][M]1+[L] RESTORE :$ REM RESTORE CL[e[N] 'C BEEP REM RESTORE PRINT © BORDER RANDOMIZE ▖▞e[ASN 3/</[K]ATTR t[J] LOAD TO INT [N]PIM INK Od=#(Qo COPY VVAL OR El[R][G]e FLASH ERASE [K]cTAB A=FN ASN &+x REM RESTORE v[R][G] FORMAT CLS RETURN K# GO SUB PAPER COPY VERIFY vxRND▛EXP 2[F]n'l]LRy[O][B] BEEP [J][E] TO F STOP CLOSE #PaTAB [D]$[F]STR$ ▛5 AND A(a RETURN CLEAR }^AT LPRINT OPEN #[P] PLOT DEF FN `SGN WPEEK e OPEN # READ MOVE USR S2 RESTORE PRINT [H]▚▛[I][H]CODE J5INT LINE ZT[G]FN s▘[J]▚[E]STR$ ][Q] DEF FN <> RANDOMIZE xSCREEN$ cf FORMAT EXP BRIGHT 4/- READ Ix PAUSE <=<=AT ([L]COS !t COPY 4mqVAL } DEF FN D',INT RANDOMIZE POKE ▟ STOP O^wATN TO A▝EXP CONTINUE LLIST UM[P][A] NEXT 1 DATA 2 OR RANDOMIZE (COS uc1CODE PII RESTORE ATTR r INPUT z CIRCLE ySIN SIN O>PI OR R,qASN 7▙▚[L]m▘[P]TAN NUSR FOR FORMAT IF SCREEN$ s STOP ▗H[T]RND STOP MERGE RNDc LET ^INT FN [H]&LEN SQR MP(T LOAD <> INPUT [F] POKE } DRAW [I]A4[P]<[K] GO SUB TO PRINT o PAPER '▘.J[I]BIN PI[U]fhFN XABS ;I* CONTINUE [A]c IF NEXT [U] CIRCLE <V+ RANDOMIZE 7k LLIST [D][E] [F][I]$^M STEP [▗ LLIST RETURN CHR$ POKE FN LLIST | CIRCLE CODE BORDER BRIGHT ] AND RESTORE ~ BORDER DEF FN [A][I] FORMAT 2K[A]8▘ READ DIM READ INPUT SAVE c[N][C]ACS ZE©"(lCOS ACS [F][A],▛#SGN 6/LN COPY 8z0 POKE [A]L% THEN [R] STEP #R DIM lUev=IN [U]SGN 4BIN ?p[H] REM | NEXT )L RETURN B1 STEP IN [M]LEN REM ▛/[R]©S OUT CODE SIN Dr OUT Oc GO TO }[I]EVAL THEN LET L GO SUB INT LET PI|INKEY$LN E4 OVER > MERGE OVER [A] READ [R]▙[I]_ LET LINE [J][D][M]J▟▖[B] STOP ▚ SAVE ▞f[N][M]SQR j OUT h[H]INKEY$4 MOVE ?U CLOSE #©n! COPY t5VAL$ PI[L]QMkNH STEP GO SUB NEXT idCHR$ PISCREEN$ WO CIRCLE -mb MOVE CLOSE # OPEN #ASN OPEN #PIZ CONTINUE ABS z CIRCLE h/SCREEN$ M;j▜ INPUT CLEAR DRAW DEF FN ▘ BORDER [F]CODE /LN 0;ABS ERASE lPEEK K[F]XTAB INKEY$SQR LN 6 PAPER [P] BORDER DRAW ©▛~▖[N]m MOVE CHR$ POKE POKE / OVER sc POKE INK g[D]@INKEY$LN STEP E`[U] DIM PRINT COPY CLEAR A[R]ABS > TO : INVERSE _[J] PLOT 6TAB ▘A CLOSE #^ NEXT >=A FLASH LN LOAD } CLS DATA ▘0 LPRINT INT STEP [H]<> PAPER BIN k ERASE CLS [T][I]] INK SIN NOT CONTINUE /.B TO ▝[E] MERGE ,PI[0: OUT ERASE [T]f8 DATA pnRSQR INK IBASN NOT PI LLIST l[D] FOR TAB PAUSE BINT A[P][USR MERGE ERASE [T] LINE J INK COPY SQR t COPY NEW BEEP ▟ OR bs-LN c[T]l BRIGHT VERIFY y LINE POINT [J]iPI:k3wVAL$ TAN 8LEN CIRCLE w FORMAT ZBIN DIM q[T][A] CLOSE #▞ BORDER PEEK NUSR ▜[D] OPEN #r[P][A].▛t>[O]UL PAPER LINE IN INKEY$ CLOSE #[B]S/]POINT PEEK PEEK USR LogzPIr▞jVAL$ EXP ?BIN [E][O] BORDER NOT jSQR )kH MERGE INPUT Aos}`COS ▛[U][E]B>=[B]▘d PRINT ABS AND NOT CHR$ OVER [E]NOT Z[A] REM [N] PAUSE ATN [M]VAL$ T BRIGHT ABS INVERSE d]SGN CAT <=z FLASH /[D]ATTR LET ABS L>= OUT [H]m& AND SAVE A REM LN STR$ RETURN Q OR ^ RESTORE [H]u BRIGHT [A]▗[U]eAT u BRIGHT CLEAR [H] CAT t LET CAT ATN EXP [L][H]J[I] ▛]: RUN READ ▙ PLOT RUN PEEK POINT G[G] LET Ft LLIST !Z9▙8H[G] MERGE CONTINUE BRIGHT AND RETURN LEN >=SCREEN$ [B]SCREEN$ ABS m AND RANDOMIZE VAL$ SIN J;INKEY$ATN wK9 OR "[C] TO h[A]'N MERGE SIN INT AINT [A] OUT THEN ▘[F]=<0A[H]SUSR [Q]/d▛Vr CONTINUE BEEP SQR [M]:<=LN J GO SUB TAN ~ THEN VERIFY > AND LPRINT 2]< PAPER CLS LET ▚[N] CAT GPEEK PAPER >= NEW S:'▛<=AT ACS sF BEEP ( DIM REM ; ERASE CONTINUE [B] INK D LLIST THEN INVERSE H PRINT D{ LET C~IN RNDIN ?STR$ BIN OPEN # VERIFY PRINT POKE BORDER INK [D]+C CLEAR n@[L]CODE CAT PAUSE SAVE ; RETURN ( REM {N PAPER FORMAT >= LPRINT |x▝1ATN RETURN [J]LEN LINE [ BRIGHT LOAD RANDOMIZE TAN CHR$ PRINT (PI DEF FN [O]^ CLS POINT <>:ATN VAL$ ATN M CAT b[K] SAVE CLEAR VERIFY * ~EXP [S]4BIN RESTORE OVER U DRAW NOT j NEW [P]POINT BEEP [K] DRAW SIN /[H]▟>INT NEXT ▚CODE ▜EXP PRINT FOR N RETURN ?~ FORMAT w8eTAB AT NPEEK ! BEEP sgN CLOSE #SQR 1(ABS [A] THEN W[ BEEP E LPRINT PRINT SAVE [R]n[G]FN ▘OSQR P[E][R]cRND[F]P%ACS AT J ERASE RUN LPRINT LLIST DRAW SQR ▙[U] CLEAR PI DRAW LEN O ERASE SAVE R FOR 4K[L] LPRINT RNDINT _L COPY Y>=BuINKEY$▘<SIN CLS #[M] CAT <=X[J] CONTINUE STOP <> STEP VERIFY * IN >=▚ BRIGHT Qji BRIGHT EXP CIRCLE EASN CODE %ACS INPUT ▘[I] MERGE n,0 DEF FN ACS B FLASH PAPER [D] BRIGHT st[[I]RNDQ RETURN TAN MW LIST OPEN # FOR aPI#[G]RND[H]R? CIRCLE ?- VERIFY DIM Zv SAVE ▙>=] CIRCLE BORDER 0 LINE POKE TO K<=FN [S][F][T]YK`ATN BRIGHT COS IF ! COPY OUT 7CODE [S]| INVERSE MOVE [R]<=N PAPER LN eVAL y[M]▗} MERGE STEP ' OUT 1 FOR # RANDOMIZE B_EXP )!SQR INKEY$▟ NEXT ?k[O] CLEAR 5i[L] PRINT CIRCLE ▛▘ PRINT h[P]▝ PAUSE PRINT ▙ BRIGHT %(4rlE"# SAVE RUN LEN LN [C][C] SAVE CLEAR F BEEP 3j IF l~[A]679 OR / GO SUB [K]a GO TO [L] SAVE RND[N][I] PAUSE CONTINUE FCOS VERIFY ERASE <y STOP LIST R5HSX_EXP ▝ THEN AT [I]VPEEK tC OVER & OPEN #jEXP [U]y{[D]$LXNOT 9P OVER [S]ABS [K]KACS BEEP LOAD ;C[P] SAVE RESTORE NEW 2iLN LET |[N] OUT UMFINT IN C5'©▟▚.[F] VERIFY NEW IN =>= DATA FLASH BIN CLS 71▝X GO SUB SCREEN$ LOAD 1<= FOR GO TO [B][T] RETURN [P][H]]< MOVE FLASH BRIGHT #▚g FOR SIN c[Q]+'SGN SIN u) ERASE INT T+jQ LPRINT _29= TO # DATA ~▖[F]INT f4 LINE STR$ %[U]1[C] MOVE [C]ATTR [T]INKEY$USR =U[F]) OPEN # DRAW " DIM I,Dg OR CLOSE # RETURN DIM COS ▝h FOR FORMAT X PLOT [L]▙~/ RESTORE BORDER STOP LET s MOVE R[U]VAL pATTR Y RESTORE INK k2AT PAUSE / DATA CAT X' PAPER +[N] PRINT L ERASE VAL D[G]▗g[J] CIRCLE [T] MERGE Zt IF c:[O]x>= FOR RETURN [E][L] NEW uCOS DATA h[G]EXP BORDER IN =C COPY , LPRINT uc>[G]E>=[H]JUSR [P]+▗>=[I] LLIST SCREEN$ [O]COS [T]UM IF 1n NEW g[M]▛[P]9r[K]NOT qd RANDOMIZE LOAD H IF BRIGHT >=g; OUT " OPEN # TO l LET CODE POKE MERGE ATTR CK▚oCHR$ om NEXT BIN LLIST ^ CIRCLE 6 DRAW ASN / RANDOMIZE 9 VERIFY THEN j PAUSE ▚N[B]CODE YdACS X[A] CLEAR hCHR$ CODE ATN [P][L]$K INVERSE " MERGE NEW RANDOMIZE s0▘f[M]HTAN v[S]'~ GO TO eCHR$ ▞[D]SIN RND▞INOT A INVERSE 3b BEEP !RNDY AND z RETURN USR , SAVE INKEY$Y OVER TAN LUSR VERIFY ATN MERGE CLS POKE %[F]Rk FOR INVERSE [H]O'cNOT +VAL MERGE READ F}~i COPY BRIGHT M&? LINE YZ7 PAPER DATA LLIST fSCREEN$ SGN STR$ ][C]<>▛C CONTINUE OVER [D]`EXP [L]C9 DIM TUSR BORDER FLASH yQ[M][E]Y[O]&Dw2 THEN VAL DRAW Dk▝u'[Q] PAPER N<=Z GO SUB REM ▝ LINE * DATA a MERGE wE[N][G]ATTR SGN 3 NEW LPRINT [CHR$ * POKE ▟USR INK [G]TAB [S][D]@ PRINT LOAD ACS +PI DRAW SIN RESTORE AT LLIST [O]INKEY$▖ OPEN # PAPER MERGE n= INK [S] FOR AT * DEF FN ©>= SAVE READ REM READ LIST CAT ▞[P]YATTR [E]AT CLEAR OVER LPRINT [I]3/INT COS IN [Q] ERASE [C][F] AND INK [G] LOAD GO TO uBIN ?U[U]CODE TAN STOP SAVE [M]ATN / NEW y DRAW [A] CLOSE # AND RESTORE r▙▜P FOR BEEP CLS LET CONTINUE READ a GO SUB VERIFY A STEP FLASH ERASE b CLS <=H LET X OPEN #sTAB GO SUB [P] DATA ERASE BEEP TO _/[O]PI PAUSE NOT [N]PI OUT <>*CODE PLOT IF OR [R]LEN CIRCLE 1 THEN TAB .[R]EXP [A]SQR ` OR <=STR$ USR [D]yTAB [B] DEF FN VAL DIM LPRINT FOR POKE b NEW BEEP OVER PAPER /▗[I] LIST PAUSE DRAW LN RETURN Q CONTINUE ;▖ MERGE CLEAR VERIFY V FORMAT cSIN &▟ RUN INPUT ▘9 PAUSE PAPER LN MERGE dTAN ABS L▟ RESTORE ASN OUT [A]ATTR SIN ~SGN DCODE ACS ▛[R][H] CONTINUE STEP t[F] IF AND 5 OVER [F]VAL$ l SAVE DRAW BORDER RETURN 0[J]^2USR ACS BINKEY$▞[R]ABS USR BORDER [O] DRAW LLIST NEXT u[N]kCODE YEXP O THEN = MERGE BORDER LET weTAB [IN I<>? FLASH - RESTORE RUN v▝ZSCREEN$ ABS TAN CAT AND INK FORMAT FOR STOP PRINT ▜[O][B]FN [T]INT STEP BIN OUT VERIFY DIM LPRINT CLS PAUSE [M][H]VAL$ [R]LN COS LINE INVERSE CLOSE # LOAD NEW RANDOMIZE LIST ▛▘[F]AT PIPEEK LEN >=NOT PAPER GO SUB DATA COPY PLOT ▞[L][C]RNDSGN ATN NEXT GO SUB se}!}[C][P MERGE GO SUB VAL !ASN <= LOAD COPY KJ<> GO SUB LN !RNDASN }~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1G CLS NOT R NEXT !}[ GO SUB VAL NOT #[NOT " CLOSE #3 INK PI NEXT 1[ CLEAR ©! COPY GO SUB iq> GO SUB y~POINT 2"[> STEP [U][:"[ATN LINE COPY > STEP LN [▗[U][>▝`NOT COPY C▗22 COPY O0▜y PRINT BIN LEN [ LET TO =▚2 COPY 2![=@[H]NOT & COPY O STEP COPY MERGE INVERSE LLIST VNOT 3/!![▚ THEN ?<ATTR F#N# RESTORE f.]>? GO SUB Gy2 [ INK ![+6| VERIFY XASN RUN INK OR MERGE RESTORE FOR @ GO SUB VAL [U]▗: [ PLOT [R] LLIST RESTORE A▚ GO SUB VAL MOVE !@ FOR READ FOR BIN PEEK ▖ LLIST }TAN !USR 1< RETURN > RETURN <`STR$ ATTR LLIST #<> INVERSE "V/ GO SUB SY/yACS ▟ NEXT INVERSE !1 COPY STEP 3 COPY 0 NEXT ▛~#PEEK FOR INVERSE ![A]!jZ8.%6, CLS 0 MOVE USR CODE FLASH RETURN / NEW ( SAVE <>|[B]GAME OVE ERASE TIU FORMAT READYUSR ▝[Q]SET ▘GOFOU TO FSELECT YOURA D IA Sc▛TRAINERS.[▖ATTEMPT[Q] COPY COPY COPY GO TO IN !ACS !ACS LN STR$ ACS aATN LLIST NOT ! AND a>=[R] LINE LLIST TO ! CAT a MOVE [R] OPEN # LLIST MERGE ! CIRCLE ▝INT aSGN APEEK !USR CHR$ !USR APEEK aSGN MOVE POINT 1ATTR [B]AT LET TAB LET TAB [B]AT 1ATTR MOVE POINT [R][U]LN MOVE LN EXP 1EXP aEXP [B]EXP STR$ EXP LET EXP !INT QINT GO SUB s▝ RANDOMIZE !Z@s,r,▚$ MOVE s-r-FN $ REM (&@} AND oNOT /1<>&> RETURN >=o THEN %<2▜~,foNOT RVAL$ ▙ INK GO SUB s TO !>o RANDOMIZE LLIST RANDOMIZE F▗}P$ POKE pK▝LEN K[C] VERIFY 2ATTR INK <>PI>=2 CIRCLE USR >2▛![L]5 PAUSE DRAW >w+ ▝0▜7<>!H@"ATTR ~ STEP [M]+ ~NOT [M][J]>=2▝ > STEP ▗!U (▞▝~ AND 'w NEW .~ NEW LIST STR$ 8▞>=2B▝USR >[I]! OPEN # SAVE GO SUB so▝ RANDOMIZE PI GO SUB R#~ATN ( LLIST a INPUT ▗ GO SUB sSIN ▝ PLOT !H'1'A,▗ LPRINT (~▝| VERIFY gNOT ~;C▖▘ RANDOMIZE !INKEY$HFqrpKpU▝▝ TO PU▝IN 0U▝IN @U▝>U▗jHLN 1LN 0▘▘ ▘▘ABS ▜ STEP DRAW ▖USR !NOT ▖(<2J▘=VAL ! OR ▚ASN ▝CODE 2▚▖>2[F]▖ STEP ▝ BEEP 0.▝.`.▝xp.▘▘ .▗x▘>P.▘!"(<2[R]0W▞2&,~2'<>Z W<=▝0&▗ GO TO <2<=@&▝(&)<>[N]▘ OUT ▘[N]▘ OUT ▘M▝:F IF LN ▘M▘SIN 0▘SCREEN$ USR ▘USR ▘J▝:C#▗<=▘ASN 0▘TAB 6▛ STEP [N]▘8*&"w▝SGN [G]"z▝NOT r▝:$ THEN <=2$>2%<> STEP OVER p"p" THEN ▜"NOT ▝ STEP NOT A▝( A▝pA▘ THEN CAT A▝CODE @▘p!pb▘ THEN 0@[H]!a PAPER tH STEP INT ![R] PAPER {H GO SUB s BORDER RANDOMIZE FOR fSf▝H#f▘CHR$ 2x▞'▗! U RANDOMIZE SCREEN$ SCREEN$ OR MERGE $ RANDOMIZE UUp COPY COPY P!@Pp▘ MERGE MERGE INKEY$[D]! LLIST PAPER T STEP Y▗!A FLASH T>ATN (![R] FLASH ▝NOT [D] MOVE RUN [P GO SUB s[A]▗ RANDOMIZE FOR MOVE ~[T]SIN w,0 ▝$ ▝-00| NEW &P}▝o FORMAT 3! RESTORE ▗!pH1 BRIGHT BpHpHpN@N▘ DEF FN S3▘[P]▗#3▘[P]▗3v!!tH▖▗ RANDOMIZE CLS COPY Pp ▛▘8p▝ IF ▛>ATN >=:[I]▗o NEW <ASN [A]&P GO SUB sT1W MOVE r$s USR ▝p3▝ FOR OPEN #▖NNOT BB[S] READ COPY READ ;▘![M]AT ▘[L] REM !TAB qqLN ▗ NEW (▘8 INVERSE REM ▝!t COPY INVERSE [A] BRIGHT STR$ INVERSE ▝ OUT A LLIST READ STR$ DATA ▝ NEW A CONTINUE [H]STR$ DATA READ REM REM MOVE FOR MOVE FOR Q PLOT [B] PLOT MOVE PLOT RUN Q RUN [B] RUN MOVE [O][B] GO SUB Q LOAD [B] POKE MOVE PAUSE LET MOVE PAUSE [B] POKE Q LOAD K[J]pp #:▝p::pJ MERGE TAB ▚CHR$ [D]▗P▘TAB ▚[G]CHR$ i▜▝SGN ▝ STOP ▝ DIM ▘▖▝! ▝8 IN [H]▜&▚>Lo<2 GO SUB ▚~ATN STOP ▜(U RETURN i▜(N RETURN SGN ▜(G RETURN DIM ▜(@ RETURN ▖(9 RETURN !▖(2 RETURN 8▖(+ RETURN ▜[H]▜($%1 RETURN ((B▗ RETURN (& PAUSE [G]` RETURN ( RETURN (NOT [D]▗ GO SUB S/▜,,}f-~NOT CODE NOT REM ▚>▗=2SQR ▚▚ RETURN TO ▞▜& FOR ▚p▜~2[L]▗ CAT ▘[M]▗:a▙<2[I]▗ AND 2 GO SUB ▗CODE <>=2 RESTORE . RETURN & TO TAB 0.▗[O]▜ FORMAT ▝=P$▘>"%▝STR$ S▜:p▜= IF FORMAT ▜O▗oTAB p##▞.[I]=2<=▚[K]=2 STEP RETURN NOT ▝'l▝ LIST p▝ !▝ OPEN #[R] RETURN DATA ▝'▟▜▖ INVERSE =2 INK LN RETURN CLS ▝'[U]▗(▖ AND X CAT RETURN ▝'SQR ▚?▖~2k[P]▘l▘ CLS v PAUSE ▞(! PAPER USR STEP SCREEN$ ▖ NEXT D[K]( STEP CONTINUE ▗ STEP REM STEP ATTR STEP AT ▚ STEP _ STEP *▗ STEP $ STEP PAPER ▖D <, 3▚>!@ AND 5[L] STEP IF STEP VERIFY PAPER ][D]CODE NEXT " OR ▖ GO SUB s BEEP ▖1 COPY ©WY READ ▘>k▟ GO SUB yzK STEP := AND > ▗> RETURN GO SUB GV[M]G( STEP L THEN O( STEP &AT :%ATN CHR$ kNOT *J OUT ▜ FLASH THEN O>=<=▗▞gG>=CODE ▛/> LOAD FLASH RETURN NEW > RUN ▖>=:▞ATN 0▘USR <-▝:0"▝USR 9▛.:[J][B] STEP DRAW 8:[K]▝ FORMAT .▝0/▝0▝ CIRCLE ^[U]|▞USR >▘<>+~▗u[P]▖X COPY wX▙~ RETURN >= RETURN ( RETURN (' RETURN ▞(. STEP GO SUB ▞# NEW LET ▛F#x NEW SAVE AND @Wx NEW USR ▖▝_ GO SUB S RETURN ▞ STEP [A]▚# OR CODE ▘PEEK #▝ACS Q+▜o&)) LPRINT [H]9S MOVE s$[P] @TAB ▚ GO SUB [ RETURN ▞zT▖ NEW PLOT XW>_▞<2 RETURN ▞ INK <> INK `▚8 SAVE >▞ STEP M INK GO TO NOT ▞▞B[D] INKEY$w, RANDOMIZE }[D]o$|[S]▝EP▗ DATA <>▖ DRAW <> RESTORE [Q] LLIST POKE <>" RETURN ▞ STEP BRIGHT CLS ( SAVE STEP CAT ( PAUSE INVERSE r INVERSE #!PIzLIN NOT GO SUB ▞BHY65TGVNJU74RFCMKI83EDX&LO92WSZ&'P01QA&![J][B]zPEEK >=# CLS <>/ COPY RETURN RETURN GO SUB ▝x_IN USR g{ VERIFY THEN <0 IF USR W THEN 8 CONTINUE IN <>O NEW <G THEN 9 THEN 9 THEN 9>[B]O> RETURN CLEAR FLASH RETURN DRAW <>!LN [M]~ RETURN ( RETURN (0 STEP l▛#[F] LET !▖[N]~ RETURN ▝>= RETURN (X GO SUB S5 GO TO #~▖ GO SUB [5▛ DRAW ▘ INK q[G]q[G]S}▛VAL$ FORMAT ▘[F]▛!~▗)FN [K]©▝@q©q▗&j}▛ !~▛~ AND w INK v COPY STEP IN yU4 PLOT PAPER IN INKEY$xcO<+ CLS GO SUB LPRINT OPEN #<=SGN SIN FN [O][F]▟~vpjIN d^YTOKFC?-Ul VERIFY EXP ▙STR$ ▙<=▙ MERGE ▙ SAVE ▙i▙[A]▙|▙[U]▙< CLS CODE T[A]CODE p▞[A][J]EXP <> DIM P COPY READ GO SUB s[P]▟ PRINT D3INKEY$ NEXT GO SUB ^>9 GO SUB G! INVERSE POKE COPY GO SUB VAL LET STEP ▟NOT [G]▟o▜ AND xo&~2[D]▟,[J][A] NEXT RESTORE ! CIRCLE ▟" PRINT COPY !▞▝+[K] LLIST CODE 2[B]2j▟<2[C]~# RETURN COPY >= RETURN ( INK &8 AND ,+[Q] STEP Z▙ CONTINUE ATN ( AND ▜oN,F GO SUB C[F] INK ~# INK =o CLS STEP [S]▟,▞o STEP ▟▟ NEXT INK STR$ CLS ▚ PLOT LPRINT <( RUN NEXT OR GO SUB ^ CLS [J] CLS CODE PY GO SUB CSQR ▟ GO SUB S STEP ▟ THEN : THEN xLEN CHR$ AND ▟ LOAD ▙ AND OPEN # RETURN NOT AND ▟zCOS CHR$ TAN ▟e@TAN ▟ PRINT @K▘ LET <=[U][H]>< NEW 2 FOR ▟ MERGE OR RESTORE STEP [J][A] LLIST STR$ MOVE :[B]▗:[C]=SGN [B] LET INVERSE !▙ INVERSE RESTORE CLS GO SUB M- LET LET PRINT OR MERGE , RESTORE ![▙ PRINT CLS *[D] STOP [B]ATN PAUSE @▙ NEW © FOR AND d STEP S▙ LIST O NEW =▝yUSR ▖ NEW ▜"[D] AND p0BIN ▝ DIM 1*▙ INVERSE LLIST LLIST MOVE STR$ NOT ▙>VAL ▘▜CODE OPEN # RETURN LOAD yOG0 INPUT !F0(▝#'▝#(P;y AND P)[N] GO SUB FOR ^#V# FOR * FOR ~#fo<>*▜w,"▜kb▗+5 ▙ LLIST <> FOR ▚]T RESTORE *[A]" LLIST <>▗-V-^▝ FOR L▝[B][G]▝ RESTORE CODE ▗N▟ LLIST #UFN CAT _V# RESTORE FOR ▘ LIST EXP ▘*h INK Q▝▝0Q▝▝Q▝▝0Q▝▝Q$-5( INK STEP I]T CIRCLE .▝ INK b$LN ▚ GO SUB S[D]> COPY 8v OR OR INK STR$ [I]FN ^,V GO SUB S[H] OR *[F]yATN PAUSE <>o|? OVER gCODE 2VAL MD*[H] GO SUB B?8 GO SUB KG▘.BI▚ NEXT STR$ DEF FN INK <>+ DEF FN g>?+▘ OPEN #j▛j▟<>NOT ▙@ ▞[B]▗,&&2&▚▗ COPY ffL,FF[J]▙ DIM `6.[C]$0.6 POKE .0`[F][M]06 CONTINUE .!#!▗`[C]$#%#!$00* CLS 2 LET pS0S[N] COPY ,lL▘i[A]2i[A]6▝[P] COPY >=2[K][A]<( RETURN ![L][A]s PLOT x!<>X1 COPY _w LET ,R>G STEP [G]▞(vx[P] STEP 4!HX{>8 STEP w!p[H] STEP [T]▞!'X>yFN ▝8FN ▝ READ ▜ NEW ▟CODE STEP RANDOMIZE NEXT 5 PRINT [I] THEN G LINE GO TO [B] THEN O LINE [M][B] THEN _(A THEN g(Q THEN W LINE ][B]3N9[B] TO [J][A]: COPY ▖ATN ( FLASH RETURN +▗CODE :[L](▗PINOT GO TO [B]!Y"CODE [A]y2SIN [A]NOT RUN [A]CODE "[J][B]>#2[L][B]!IY STOP ▘`▞▞Y TO "4IE▘STR$ E= MOVE ▝' MOVE ▝y TO ▘2[I] TO ▚[J][B] COPY qW▝ INVERSE COPY ! PAUSE @ STEP ▜▝H▝r ▘<>X▝▘NOT MOVE pL[B]!,▝COS CATTR ▘ IF ▝< IF ▜;INKEY$ STEP %[D]!Y"5▛&H"}▛! LET [S]"*▛![S]"▛!Q[O]"x▛ STEP ▛! LLIST NOT o▚ STEP r▝!! CAT n OUT [G] STEP [C]CODE 2[I][D]<2i▖ AND 2I▝! PAPER ▖"▖▗NOT Y BEEP ▘▜ LPRINT ABS JH▗2[K]POINT EXP ▚2J▘2x▘; FOR STR$ [T]{▚2`2%F92B▗2[J]2[L]2 CIRCLE U'p▘B▝ CLEAR INVERSE REM >2▝ ERASE ▟>[J]2▝! OPEN # SAVE "N▝>L[▘> MERGE ▘>NOT ▗▗! BRIGHT "[L]▗z▘X▝@▘▖[N]▘LN [M]▘FN [K]▝NOT ▗%USR CLS v NEW GO TO ▘ATN OPEN #SGN ae▝USR ae▘CODE `▘>1g▝g▜< CLS v CLEAR NEXT POINT ▛Z[D]:[I][D]o:▝wTAB RETURN LINE W[E]=▜ RETURN LINE [E]! THEN REM CLS <@,q[K]![K]▘POINT [K]▘ LLIST PI[K]▘STR$ [T]1[K]|▜>U2oP!`!n▝n~▝CODE s▘A▘▝INT STEP ASN ▝▚▘! VERIFY pbpbq DRAW ▝COS DRAW ▘LEN SIN DRAW ▘ACODE `bpN▝o N MOVE POINT STEP ▘N▝^[K]▘- BRIGHT ▘K▜▝▘▜▝c▜▝ab OR ▚wY[Q]▝V▝xSCREEN$ ▗WX6 ▝w![P]![J] STEP [D]▗AVAL$ ▝o#▘Z[D] GO SUB @▜ STEP LOAD [F]#-H`▝mP[E]x THEN ' THEN ' THEN '▝ THEN ?&[H]o2[F] STEP P'▘>%W[B]>2[ RETURN 0![R]TAN NOT 4[F] RETURN (▘ASN [E]!STR$ ASN RETURN <0!aASN GO SUB s^[F] RANDOMIZE !W@RC▟ MOVE -s-r$ LOAD (&@>=NOT >[F] NEXT ERASE ©CHR$ BRIGHT [F]$ ▘ BRIGHT [F],Q▝SCREEN$ NOT `[F]STOP THE TAPELOAD ERROR:REWIND [K]SEARCHING FOR DAY 1P%[C]O START OF SIDE Bc DATA ▘|[F] NEXT ▖>NOT COPY ~ NEW LIST STR$ ▚WGz AND 0E▚~ NEW W▝Od COPY COPY COPY GO SUB IN !"#$%&'()0123456789@ABCDEFGHIPQRSTUVWXY`abc[T]defghipqrstuvwxy(8HXhx▖▞[A][B][C][D][E][F][G][H][I] LINE [J][A]OPTIONS1. AASN ▖GAME2KEYBOARD3 ▘MP#N4/▛INCLAIR5>[J]CURSORPROGRAMMED:DAVE R▝O98E[D]PHICS:WILLIAM HARBI[I](C) 1988 OCEAN SOFTWARr▙MUSIC:JONATHDUNNRE▚INESLEFT:RIGH[A]FIRE:TRAINTAN ▗OVERm[U]COACH REPORTDUMBELLS -SIT UPS ▚SQUAT▜ES▜GETBADY▙TIME6@@@>%=;▝USR 8▗(8 VERIFY PIbd6f~BVN^N^~6^PEEK |080pp08p88p READ ▛000|USR INPUT [E]DSCREEN$ INPUT |8x88(8|| INPUT RETURN INPUT ▞ RETURN DRAW ▗| INPUT LPRINT DRAW 0▗ RETURN ▝8@▝|@H▝~0<>▝ ERASE MERGE ▞ 0^PEEK ~0 CIRCLE ~^~ DIM ▞ POKE IF DRAW | PLOT 8^9▖▝ RETURN ▖▘ INPUT DRAW [A]▝ DRAW h LPRINT @[Q] INPUT |[Q]▝ DRAW [I]@▝ LPRINT ▖ LN [Q]8▝|@USR STR$ SAVE PSTR$ LPRINT FORMAT [A]cw©k"Uww DEF FN INPUT RETURN RETURN D[C] INPUT NEW P SAVE p0P!▝v0P▘ INPUT LPRINT !▝ RETURN 0X▝8STR$ INPUT 0p▘ll@ AND TINT INPUT AND ?▝|▖ RETURN LPRINT RETURN o▗$,LEN [J](( CLEAR CLS RANDOMIZE CLS LET CLS NEXT FOR LLIST ©IN © COPY ©USR COPY !@!B!B▝B8▝8▗P`P`/i?/q SAVE DRAW SAVE :[M] @"A*q:!h FORMAT LPRINT USR LPRINT USR `VAL @@ ` 2PUSR <▘ ▟[N]! @ SAVE $dTAN t@@▝AA"UCODE _IN IN CODE CODE NOT COPY ▖@[Q] FORMAT CONTINUE USR CONTINUE BIN FN USR ?▜@@P`@`@C HD[F]@@STR$ 2R2)? RETURN [S]@9BRND CAT y PRINT CIRCLE pq POKE IF w RANDOMIZE vBIN 9]INT DRAW IF #CHR$ V CLOSE #PS OR ▖ OR ▘"jACS lP CLS CLEAR r5[A] CLEAR SAVE LIST AT T<>T!ACHR$ RETURN [I]▝"ATN > COPY ©CODE O DRAW RETURN SCREEN$ WATTR COPY COPY 8 LIST SAVE POKE >= CLOSE #6? LPRINT 1B▘PIB5gG[L]W7;;9 COPY RETURN USR REM MERGE (P[Q]P[Q] CAT ▚00rr NEW INPUT ▗▚,<T INK ▝P OR COPY ▝ RESTORE FOR ▘(ACS ▗▚0▜)CHR$ ▘ THEN LIST B &▘&[[F]'&()*&&+,-.&`▚(/*`▘6(▝u67u▛89:;<=>?PPOINT @>ASCREEN$ POINT 07w▗i(iiIN ▚oo}}i(USR h▘oy ▛MGGFMFF▟MGEEGMMDDUSR F▘MG▘G▟pp4▝Gp4p44MMGDc0Ph▘BB4▝0`▘SSL▘BMLN @ATN `LN ATN USR 0▝▝hV▛tDsDDtVAL$ [U]$USR [U]▗ MERGE REM LLIST < COPY USCREEN$ UASN OR STR$ 9▝RLEN ▖© LPRINT F▝3?▗©?PI<=CHR$ NOT ▗[B] COPY [Q]"[E] COPY b▘©X CONTINUE X[A] OPEN #0 COPY GO TO ▞ LET COPY COPY RANDOMIZE SAVE LIST NEXT STOP RESTORE POKE O/[P]?RA▞_w LLIST >= LET <= RANDOMIZE COPY [B]▗ COPY ▝CHR$ RANDOMIZE ▝y4'[C];?~ SAVE OUT IN COPY IN ©IN <=POINT USR LPRINT LIST LIST SAVE Q(p88P[R]@ ?_*▞▝▞STR$ Ii▝ LIST SCREEN$ [E]AT ▖, IF n[E] SAVE CLEAR ? SAVE LIST USR @▝! LPRINT LLIST STOP LLIST BRIGHT $~▝▙ LLIST READ CLEAR ▝▝ COPY ,~<z FOR ▚! OR y[S]©© RUN RETURN COPY LOAD COPY n_ COPY ▛ FOR OUT STEP SAVE SAVE DRAW BRIGHT DRAW BRIGHT DRAW CIRCLE /w<= LINE ▝@ ERASE ▖▗[I][G]CODE OUT IN RUN o[N]`! LINE @USR @NOT b[F] LPRINT 5{ CLEAR COPY wSTR$ STR$ ▝▖▖[A] DRAW [I] LIST LPRINT @@ MOVE COPY DRAW LPRINT USR @ COPY ![R]W!▖[I]©ZQ2[ DEF FN MERGE ▙ OR RETURN COPY COPY SAVE CONTINUE hVAL LPRINT [Q] LPRINT [Q] OR RANDOMIZE +©:IN ``▜ LIST OUT IN ABS _$ FOR ▝SCREEN$ :P COPY SCREEN$ UP▝ <> COPY VAL$ _'▗(▗USR x,Y[H]?▗c▞▗[A]Z*[Q]▝9ASN ▘?CHR$ [A][I] DATA T SAVE ACS ACS ATN ACS ATN PLOT ACS PLOT 0! VERIFY ▖ COPY (CODE © `[G]x▝@ LPRINT [Q]pPpp LIST SAVE IN SAVE INT COPY LN x_FN <STR$ $[L]▘x6[A][E]▖[E]IUj PRINT RETURN PEEK DRAW EXP COPY | LIST z▘ LPRINT +▖@LN [P]Tj%JQ CAT [N] LPRINT /k6AT (4 ERASE Zj%''BIN ,| POKE HD($bppq LLIST STOP SAVE LN SAVE LN SAVE RUN © BORDER © RETURN D© DRAW J COPY SAVE USR 5NOT LINE ▘ LIST }[S]`P[I]IN IN INT v1 COPY x*[N] RETURN BORDER U COPY 6nACS /SIN vLN RETURN COPY BEEP COPY BEEP SQR BEEP SQR E▝X?? COPY GO SUB OR BEEP FOR ^ LIST USR 0RATN ▗@SCREEN$ PRINT jSCREEN$ _ STR$ _ RUN LINE 1▖▘ MERGE [S]+ LLIST RETURN PRINT [Q] LINE : RETURN ▚1▘N▘▗!▖▝!m"#$! ▜()*▗./0[C]▝4▝8 >▚< L▚=>?@`▜DUSR D[U]EFGHIJKLMNOPk▜▙Z[/]^_+[F]▝K+[G]jklmno+RND▞WW88xx VERIFY [D] ▗8xxPEEK ▝wx▝/ LIST )▝0▘(0▝,/ DEF FN 9p ▝x H▝ N▝STR$ 00p}▝▗````▝pp*p*p8pF▝uosx#▝C▖▘ COPY U3▝(▘STR$ up($▖? COPY ? OUT '[P],▗ RETURN DRAW CLEAR CLEAR IF ▖ COPY 'G<= COPY IN TO COPY ▜ CLEAR COPY COPY LET NOT [F]RNDu CIRCLE u CIRCLE u CIRCLE u CIRCLE U CIRCLE ▝©USR u FORMAT u FORMAT u FORMAT u FORMAT u FORMAT u FORMAT U FORMAT ▘▝u>=u>=u>=uVAL uVAL uVAL uVAL uVAL uVAL uVAL uVAL uVAL uVAL TAN u[I]u[I]u[I]u[I]u[I]u[I]u[I]u[I]u[I]u[I]u[I][D] RANDOMIZE RANDOMIZE BORDER NOT COPY SCREEN$ COPY COPY SCREEN$ COPY [A] STEP [I] [S] INK s LLIST COPY ATTR COPY ▝▝[A][I]▟▝ FORMAT RESTORE COPY jASN @USCREEN$ [Q]USR 0@AT ^ RETURN J▝UUSR ▜▝▝[S]▘[G]▗<= [O]▗ LET LPRINT USR ▝BSTR$ STR$ a%!Ip[C]IN COPY PRINT INPUT PRINT INPUT RUN CLS RUN COPY - INK =ASTR$ C COPY +OSCREEN$ USCREEN$ u LPRINT E CIRCLE ▝ RETURN >=▗<= SAVE USR ▗>= GO TO ▞▖[L][P]CODE BEEP oU%▝ PRINT H[_/7 CLOSE #▞ RANDOMIZE PAUSE PAUSE RANDOMIZE SAVE xSGN DRAW MERGE ▚C©;U COPY COPY %▞/ RETURN *TAN RETURN COPY CHR$ RETURN LN p%POINT V@▝ LOAD NEW USR ▟IN CLOSE # GO TO BRIGHT GO TO SAVE CONTINUE DRAW LOAD ;+;STR$ +2 BEEP ▚FN LN FN LN STR$ FN ▘ OUT PAUSE ▞q[N]RND[J] OR + OR FN v6[A]dSGN PEEK _?NOT ABS C RETURN y RETURN CLEAR CHR$ ATTR SCREEN$ CODE :.I PLOT +ISCREEN$ COPY ATTR 0@▘ CONTINUE LN vVAL vVAL vVAL vVAL vVAL vVAL VAL [J]CHR$ vVAL vVAL vVAL vVAL vVAL vVAL vVAL vVAL VVAL TO ▝USR LINE STR$ ▝▞▝ BEEP c▞!"▘&'()}▖*+/ ▘▝6[H]▝7▝4>?@▖BCDE▘K▘▝N▗OP DIM ▖TU LOAD CHR$ Z▚[/]STR$ ^ LET NOT ^[A]bcdefgj CLEAR CHR$ mno[G]stuvwxyz{|}~©▝(f? FLASH ▝/ THEN NEXT v+v+v+v+v+v+v+v+v>v+v+v+V+▝#▝F▘x0▝P▝hp0"▟▝yW PLOT wM CLEAR COPY NEXT DRAW DEF FN LOAD NEXT NEW CLOSE # CLEAR /. INVERSE TO RETURN _[ACS [G] AND OVER __ OVER GO TO BRIGHT PEEK __ RETURN DATA [E] CLEAR // CLEAR 8 RESTORE NEXT INPUT @ REM [Q] VERIFY [I][A][A]SGN >o RESTORE < ▝ >@8▝ LPRINT ]▝IN L LPRINT OVER COPY SAVE LPRINT RUN RUN ▗ RUN RUN %▝ LIST P▗ LOAD LOAD @▝ RETURN P▗ CONTINUE LIST X▝ SAVE 0▝@▝VAL [I]@ SAVE TAN [Q]▗ CIRCLE | PAPER INPUT ▗PEEK GO SUB [H]▚SCREEN$ ACS ATTR WCUC[T] COPY WSUq▗ STOP STOP THEN ERASE ▘ RETURN COPY RETURN ▘ SAVE ▘P▘[M]▟ NEXT ? IF USR s FORMAT IF COPY LPRINT [E]▘ COPY RETURN © MERGE qxqxqxqxqxqxqxqxqxqxqx▝ CAT R▗*ZSTR$ a▘ COPY (▗? PRINT 0▗ RETURN < READ a▗@<>▖ CONTINUE ?T>=LN POKE ▟ REM PRINT D[S]~? ERASE ?▖CHR$ [U] AND [B];[I]SCREEN$ *TAB SCREEN$ UqU COPY ? REM COPY Ut`▘@ IF BORDER ▖ POKE "x- REM ▗▘ COPY !`q`q`q`q`q`q` RUN sssssssssssq▖q▖q▖q▖IN > LPRINT pUSR ><USR <>PEEK ?? OUT xSCREEN$ DATA ATTR [P]W COPY ▝[D]▖ COPY COPY UV!UBJ▝VAL ▝BIN ▘▖ INK ▝`▗ COPY INPUT USR ▗GAt▘▘QhrUSR rUSR rUSR rUSR COPY THEN tptptptptptptptptptptpr SAVE r SAVE r SAVE x▗ SAVE PAPER [K] CONTINUE PRINT H@j LIST IN [P]_ COPY FORMAT U COPY USR IN COPY O COPY [R]UJ LET .q`q`q`q`t ▝©4 ▘>D ▝4 COPY COPY 8I{{{{{{{{{ TO COPY {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{kIN - VERIFY ▝SCREEN$ M INPUT >{;z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT TO z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT z FORMAT Z▗RS BEEP T REM INK U LINE V▝W LIST LOAD ▚XY RESTORE ▘] RESTORE ▝b RESTORE ▝cghijk: RESTORE z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT z NEXT z LPRINT z LPRINT z LPRINT z LPRINT z LPRINT j CONTINUE p* VERIFY {[I]▘x▗f▘"JTAN QLEN INT ▘ DIM 1▘▘▖▖!!©USR !!TAN <AAu@STR$ STR$ USR ▗A▝>▘b▘AT ▛<©USR [Q](p[L]USR LET CLEAR >>=▘ LIST [C]STR$ [S]bATN ERASE b STOP ▘BB{▛`▚@B[B]<[T]▞,▘@▝`▗A?f▘a▝p`p``` LPRINT $$▗DBIN @`▘|`▘`▗>[R]0`▝▞ `▘I`▗_i▝*6pUSR pUSR `USR @>= [A]#▗ AND ▝8▗▗▘USR ▜^▘[B]!p`p`p`q 1 ▞@U@[Q]CODE CODE @A▖ CONTINUE COPY IN ▝A COPY USR ▟A_ COPY BIN ( COPY ▜"A BRIGHT ASN 8qBIN 9 POKE BRND IF ]INT w CAT y RANDOMIZE DRAW IF v PRINT RETURN CLS CLEAR SAVE CLEAR CLEAR jr LIST AT ACS lTP<SCREEN$ ;PEEK DRAW RETURN "ATN 8 LIST SCREEN$ > RETURN RETURN COPY W SAVE POKE ATTR © RETURN RETURN CODE COPY >= CLOSE # COPY O RETURN 7 COPY RETURN IW7USR [Q]P; MERGE 9▙p[Q]p[Q]p[Q]p[Q]0[Q]b▝ SAVE &wO RANDOMIZE RANDOMIZE DRAW RETURN @[Q]▝ IF [Q]Jr DRAW AT INKEY$H[Q]▝0[Q]r[Q]▝[Q]▚7 COPY 8 LIST CLEAR =USR RETURN ▝[Q]▝~[Q]▗W>= CLOSE #ATTR [Q]▖ COPY G RETURN (PVp[Q]p[Q]q@q@q@q@▗BIN RANDOMIZE POKE r [Q]▝"p[Q]▝@[B] RETURN CLEAR CLEAR REM r DRAW LN TAN `T[Q]@< CLEAR (▗▝ BRIGHT ▞▗TAN 8O▛ RETURN RETURN CLS RETURN SAVE POKE | RETURN RETURN IN [Q]^ RETURN /W0[Q] COPY (P RETURN S4q@q@q LPRINT q LPRINT q LPRINT q LPRINT q LPRINT p[Q]p[Q]p[Q]0[Q]▝ DRAW STOP [Q]@▚ASN TAB 8 LIST < LPRINT ▞ COPY SAVE POKE RETURN { RETURN RETURN SGN `[Q][A]CODE O[Q]FN P COPY [Q]▚5 RETURN P:a LPRINT IN CLEAR CLS OUT LOAD RUN LPRINT LPRINT USR 9▗USR p ▜ RUN LOAD OUT CLS CLEAR IN SQR @ TO ▘p` ▞? CLEAR CLS RUN p00▖? CLEAR RETURN ©IN DRAW USR LINE DEF FN 0▚ LIST LOAD OUT SAVE DRAW IN p0p`0▘? CLEAR px0▚ RUN CLS CLEAR ?pFN pUSR ▝IN p0pAT @[A]▗IN DRAW SAVE OUT pxATTR ▘IN DRAW p`p BRIGHT 0`p0p00▘IN CLEAR q q ▝ CLEAR pUSR q q q8p[A]qpUSR p`qqVAL qVAL p LIST q[I]Q COPY COPY COPY COPY CLOSE #▘+▝ LINE ▘EXP 7 CAT 5 CLEAR DRAW 1SGN |)TP▗f[S] COPY U©t)ABS [K] COPY CLS CODE COPY SAVE LPRINT _8 DRAW NOT COPY LLIST COPY USR x[I]C▝]▘ COPY ©INT vSGN SCREEN$ SCREEN$ QABS [H]UATTR USR SAVE ©[P]ATTR ©U SAVE LPRINT ▜<=<▛[B]▝00 COPY | COPY USR SCREEN$ ~ SAVE ?$▜▜ LPRINT UK COPY COPY PAUSE ▝*[J]▝`qh CIRCLE ▘P@▘>=<>▘▚_^▝6▗p"<>[R]p LOAD ▘RND6<>▘-b▘ DRAW DATA RND©[I]=2| TO ▘9:>=IN ,PEEK >TAB {4_IN ▙<>=©n[O]^ REM EXP LPRINT NOT 1 LPRINT ▚ LET | BEEP COS CLS Ly81 LPRINT x[Q] OUT +▚ CLOSE # OUT @`Q LPRINT [Q] FLASH }▚ LIST MOVE Q/p1 LPRINT |- COPY FN RETURN (©g>kNOT DRAW p REM FORMAT =▚?> LIST 1 LPRINT SCREEN$ ▝ q LPRINT ~ LIST COPY BRIGHT ▝L▝ SAVE t3▘ COPY q▘ DRAW [<LN ▘SCREEN$ [Q]USR !G▘T}C#▗ LIST L VERIFY ▘USR fC7ABS ?J]▘ LLIST _@1A▘. LET ?IN y~a▙▘INT @d▝POINT a DEF FN ▘][S] DIM [M] CONTINUE _ LIST READ FORMAT L? CLS ▘$ CONTINUE ▘#SGN POKE R=RND PAUSE zJi▗= ERASE =EXP d?▜"hz>== STEP ▗▖©▜&0= LLIST ▝ [T]g>▝USR m[P]▝ LPRINT 3USR ▚[$▘▝3USR STOP >▗USR AUSR `USR ? CLEAR ▝▜-z LPRINT ,▝ COPY USR 4?sUSR sUSR TO ▝^NOT A▘ COPY DRAW P[P] >*@`▗ [Q])TAN ▘W@CODE P( SAVE CODE z>=▗5 NEXT LOAD [A][ GO TO [A] RUN LPRINT " DRAW `k>[K]▘? FORMAT ERASE BORDER ▘ REM Cpd▘ CLEAR PRINT .▙ RETURN ▚`<PC©??H/<▘hCARND MERGE d/Pd FOR !??% VERIFY DATA /d DATA RETURN E?S▘▗ CLEAR A▗FN CLS wy▘~0a?▘*6▗J?▚[Q]/a|@!▖ LIST ▗1i$A▝s▗f▘| FLASH ▘B RUN COPY u OPEN #@[Q] LOAD RUN B$▛▘@ BORDER [Q]PEEK !pO VERIFY ▝$<>▝>=eg@SIN 1 LPRINT ▘ LPRINT [Q]1 PAUSE u[Q][Q]▝p[N]?q▗>=` GO SUB ? RUN H LIST USR a[R]@P▗a LET ME▗R▘▚©=9r~ COPY b[C]! STOP ▚a©$J RETURN OVER a> c▜"NOT TFN ▝STR$ h<>▚ CONTINUE SCREEN$ A MERGE VAL$ qACS !INKEY$▚ REM MERGE CLS VAL$ LOAD COPY p COPY MERGE zIN COPY CLOSE #<>▖2 COPY ? STOP J<>▘ATTR ▘PuSCREEN$ ▘HIN ▘DwN*▝ ▘ "<>▘$<▝qh FOR READ NEW ▝D<>▘DP▝fb~# BEEP 1 LPRINT nl"SCREEN$ ▝ POKE LPRINT ▝ BORDER qU▝<= LPRINT ▝▝▝ RETURN rB$ LIST ! LPRINT Oq LPRINT q LPRINT w▘STR$ STR$ ▝`IN @▘ COPY [Q]@$9 COPY CLS RANDOMIZE 00▚FN DRAW COPY X=0<▘j SAVE SGN ▝ BEEP 0H▜CODE SAVE COPY © SAVE _▝T▚AIN SAVE ©© LIST @▗? LIST ??p▖ LIST ▝STR$ SCREEN$ U▘$▘SCREEN$ COPY 0[A] ▝CODE [M]▞x COPY STR$ SCREEN$ STR$ @wo▙LN _STR$ STR$ @ COPY LN INK OUT 0IN CIRCLE [Q] FORMAT P<@▝ COPY CIRCLE [Q] LOAD SCREEN$ 0U LOAD [Q]▝noUU]LN JY▝?lD▝Wx▝k? LET ▝ OR ▗▝▛g CLEAR INVERSE CONTINUE IN X IF ▘©[M]TAB COPY ▘© COPY DRAW OUT PI COPY COPY N FOR BEEP M COPY RETURN N COPY COPY [N] DRAW 4L7 DRAW [O]IN SAVE COPY 0HFN ! LET ©IN COPY M LLIST ©!T:VAL$ © LLIST IN ©▝STR$ wS5: MERGE o▝IN ©© REM ©©ATTR 7▘ COPY ©▘INT / COPY COPY ;o▘ COPY . COPY RETURN RETURN CIRCLE [M], OVER [O] COPY ©] OUT CLOSE # CONTINUE | PAPER INT IN _m?8 CLOSE #▗CHR$ CODE © MERGE K1©▜ COPY ▜VAL$ D GO TO ▘ COPY o9i~ OUT >=▝[K]$[Q] DATA [P] CLOSE #▝<;a▝[l▘[P] CLEAR p▗[O] CLEAR COPY /0/▚ COPY COPY ▙[[A]▝▟@r@r@rLr@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@▘uR@ FOR ▝2@▘w▘bLN ▘e▘ZTAN RETURN OUT -[U]▜LH©[S]INKEY$ LPRINT IN CLS TAB Z[R]©? DRAW OUT E COPY ~a5VAL$ © RETURN ▘ FOR BEEP ▝ RETURN wS?? MERGE o COPY COPY COPY CLEAR 2▝ RETURN L IF SQR "▚ PAUSE IN COPY 42▚IN ©]-"▜ CLEAR SCREEN$ SQR IN ©e INVERSE 2▚>SQR COPY © RUN 2 VERIFY COPY © LOAD R4▝IN R▗~ COPY ©}B▚ RETURN IF IN _ CLEAR ~&VAL ▜ACS IF CODE © CLEAR STEP =q(IN COPY ▜/2▝ SAVE rr(ppr@r@r@r@r@tttttttttttttt▚_▝▝SCREEN$ COPY aT▗QSCREEN$ U▟T▚SCREEN$ @ABS ▞ CIRCLE {@PEEK I[D]y COPY U&POINT A COPY LIST [Q]p©▝YUoLEN ▖©▝ LLIST [H]© LLIST A RETURN X[F]/© FORMAT ? STEP STR$ PEEK ▝Uq??▚ GO TO ATTR >▖u OVER BORDER ©©[P] CLEAR SQR ▞D FLASH CLS © COPY RUN IF a▞Xg COPY COPY RETURN RETURN m▞ FORMAT >~= CLEAR OUT [Q] LPRINT OUT g LIST ▘ LOAD SAVE ▙ CIRCLE COPY x© BORDER DRAW OUT CLS IN 8 DATA © PAPER FOR BEEP ASN S LIST ▗Y▘PEEK [K]A LPRINT ▚ABS ?IN COPY = MERGE ?Q▚);IN ©=N1C DATA { COPY ©©[▝zp▝4▝ COPY ,<>© CLEAR P@@▝@T,@dPr@r@rLrXttttttvUSR v TO vUSR vUSR ▝ LLIST VUSR ▗ MOVE ▟VUSR ▘ LPRINT FUSR LPRINT ▝AFUSR ! LPRINT 6USR ▚YWo LET B&USR ▖ LLIST [P]© LLIST B>USR /_ LPRINT ▙CHR$ >▘▝ OUT s?IN ▚ GO TO IN ▝_1 LPRINT ▝VAL$ ▞T OUT CLS O© COPY O RUN INPUT LPRINT ▖e COPY O COPY RETURN <= RETURN M[E] LET RETURN NOT ~<STR$ COPY LPRINT [Q] LPRINT OUT COPY USR CLOSE # CONTINUE USR OUT LPRINT ▞USR ©©STR$ xSTR$ / COPY OUT SAVE IN CODE LIST ▚?© CIRCLE VAL @USR ▝^ CIRCLE ▘ COPY .<▘~* DRAW ▘ABS ▝ MERGE 0▝ FOR VERIFY @ IF ▘ RUN VERIFY STOP ▘ GO TO ,u▘ SAVE [M]▗' DRAW OUT O_USR _▝▙USR fLF▝@Pr4r@r@r@r@r@r@r@r@r@r@v[M]vFN tt[I]vUSR vUSR vUSR vUSR vUSR ▘STR$ ▝ FORMAT ▝9▘▘USR INK ▝D▘CHR$ AT 9▝T(▘FFN 9▚ CIRCLE w OUT LIST 9▚ LPRINT LOAD LOAD LPRINT [B]_ SAVE IN OUT ?IN INPUT O SAVE ▝ SAVE ATN OUT IN [E] OUT RUN RANDOMIZE C MOVE RANDOMIZE COPY ©©IN CLEAR SIN CODE W OPEN # RETURN ?INT COPY © RETURN SIN CODE OUT BEEP COPY IN COPY SCREEN$ U RETURN © POKE COPY COPY NEXT / CONTINUE [P]~ATTR COPY =_ POKE LIST LPRINT LOAD [P] MERGE SCREEN$ U DIM _ RUN OUT LIST DRAW IN NEXT 9SCREEN$ O RESTORE IN GO TO CLOSE #IN FOR A▖O GO SUB © DATA LN © NEXT ▜O PLOT COPY [Q] COPY IF ▘_ IF PEEK ~ COPY [O] ▘ CLEAR [E]ASN ▝PEEK ▝}0 BEEP ▘_}.[K]▘ BEEP ▝ READ p▘ RETURN .SIN ▘ CLEAR @▝ REM T▗ COPY COPY FOR PLOT @▝ DRAW L@▝x@]wr@r@r@r@r@r@ttttttttttttx BRIGHT x CONTINUE v TO v CIRCLE yyyyy?[U]=nNp0~ SAVE ▘ RETURN COPY SCREEN$ >IN ~+O&▚x5 RETURN RETURN >AT ? SAVE ▚ VERIFY ? RETURN RETURN ? REM ? LIST ▚ PRINT ? DRAW DRAW ? CLS @ DRAW SAVE RANDOMIZE P▘ SAVE LIST P▗ LET LIST USR p`0▝ FOR ? CLEAR ▘ RETURN = PRINT POKE ;;& LIST ▚ PLOT 77 IF @▗PP<$USR SCREEN$ ▚ INPUT LOAD USR U NEXT ▝ LOAD ▘u VERIFY q▝Ld▝ DRAW lM_▝AT x▝F? RETURN ▝[S] IF w©^TAN CLS 0 CLEAR B^eIN © COPY CLEAR ▝AUSR RETURN THEN RUN VAL$ RESTORE COPY @@@[Q] COPY e BEEP RETURN DATA COPY P[Q]@X[Q]VAL ©r COPY RETURN PAUSE © CIRCLE [A]d$[I] RETURN ?r COPY CLS CLEAR LLIST *T CLEAR e COPY CLS AT DRAW REM LN X[F] INVERSE CLEAR CLS ▝ GO SUB VLN DRAW CODE DRAW ▝ CLEAR COPY USR INK ATTR DRAW RETURN DIM SQR ▘USR CLEAR RETURN LPRINT GO SUB EXP RETURN RETURN DIM RETURN C LPRINT ▖6 COPY LIST COPY CLEAR LPRINT PLOT h[K] PAUSE [Q]©yW PLOT qu CLEAR IF INT ACS |.81 SAVE m PRINT REM ▜ SAVE 9▚ SAVE W CLEAR COPY NOT DRAW 9▚ DRAW FOR CHR$ ? CLEAR RETURN 9 RETURN GO SUB COPY COPY PLOT 6 OUT ▜COS REM COPY COPY PAUSE N96▝x▝ 9B▚ REM COPY © PAUSE /PI▝▝~`▗i COPY COPY LET P▗q COPY COPY LEN pr@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@r@@▗]UR@▝bn▘ BRIGHT ▘L INPUT Xd[Q] CLS STEP ▖ CLEAR [A]$j[B]PEEK L[O]© RANDOMIZE CLEAR LLIST TAN X CLEAR RETURN E RUN VAL$ ▘ COPY DRAW REM VAL SAVE [F] INVERSE COPY BEEP RETURN ▝ COPY GO SUB W SAVE ▚©▝ COPY RETURN USR COPY 2▚IN @ COPY CLS LPRINT [P]▞ COPY DIM RETURN Y` COPY CLS [Q] LIST Bu CLEAR CLS INT ATTR ▖ PLOT wM CLEAR COPY INT SAVE ▞0 LIST OUT CLEAR RETURN BEEP LIST /▜ SAVE LOAD CLEAR RETURN NEXT DRAW 0▚ DRAW CLS CLEAR RETURN CLEAR RETURN 0 RETURN } CLEAR IF PEEK ▖ CLEAR ~ PRINT REM PEEK FLASH ;F▚f© CLEAR COPY IF (;R0[S]CHR$ ? PAUSE B▝ COPY pppr@r@r@r@r@r@tttttttttttttt▝! LPRINT ▘+z1 LPRINT ▛SGN 7> IF BU[I] COPY *>=T5 CLEAR ▖ COPY GO TO ERASE CLEAR SAVE [R] COPY DRAW IF CLEAR u▘ CLS Wg PRINT CLS INVERSE U▝SCREEN$ nNOT RANDOMIZE DRAW CAT RUN />[F]SQR © NEXT DRAW DRAW LLIST IN ATN E*IN OUT LLIST RETURN RETURN LLIST COPY STEP 5s` RANDOMIZE LPRINT LLIST RUN LIST ▘ TO RUN LIST .< LPRINT COPY 7© CAT CLEAR USR CLS IN RUN VAL$ ATN CLEAR A LPRINT ▗[ BEEP RETURN LLIST Q LPRINT q COPY RETURN SIN IF 2▝ CLEAR ▘ RANDOMIZE {2▚Vy COPY CLS EXP (20y CLEAR CLS EXP %+y CLEAR COPY SGN 24▗ DRAW CLEAR RETURN p▗ CLEAR RETURN DRAW @2L▝@>▝ RETURN P▝~@ @@▝DD@R4r@r@rLrXrdtttttvUSR vUSR vUSR vUSR vUSR ! LPRINT FUSR #USR FUSR #USR &USR ▝ FOR 1 LPRINT FUSR *>= CLOSE #5&USR ▖ SAVE GO TO PAUSE LET USR [N] SAVE DRAW SAVE PRINT u LIST USR ▘ SAVE ▜g LIST SAVE [N] RUN ▝▝ IF nNOT SAVE LPRINT ▝ POKE ▘B FOR 1 LPRINT ▝ RUN q▘* LOAD 1 LPRINT ▝M LPRINT ▘+VAL ! LPRINT ▖ COPY LPRINT LLIST COPY LPRINT RETURN RUN P LPRINT ▜ PLOT .< DRAW CLEAR RANDOMIZE ▞ RETURN tSCREEN$ SCREEN$ REM CLS 7 CLEAR CLEAR USR CLS CLEAR CIRCLE ▝ PRINT USR LIST RETURN SIN ( THEN ▘ LPRINT CLEAR [C]▘{0▝WQ▘CODE ( READ ▘USR IN [O] BEEP OUT LoACS ▘?$<©>=Q SAVE ▗ DATA RUN VAL$ DATA R▗d BEEP RETURN STOP RUSR R▝q@r4r@r@r@r@r@r@r@r@r@r@tttt[I]vUSR vUSR vUSR vUSR vUSR &USR ▝ SAVE CAT MOVE ) OUT ▘[K]▝jFN ▝U9▚*BIN BRIGHT 79▚ PLOT INPUT 9▘ INPUT LIST ▖ RUN CLS ? POKE ▘? DATA LOAD `▞ SAVE RUN FLASH ?? OUT RUN l DRAW COPY ? REM [L]© CLS DRAW n▖ RANDOMIZE COPY [G] MERGE REM [K] COPY RANDOMIZE GO TO ▞ RETURN RANDOMIZE COPY BEEP RUN COPY RETURN _ SAVE B▟ LPRINT _ LIST yW LIST LOAD LET >▛.8 LPRINT [P] CLS ©o CLS O1 GO TO ▚CODE CLS WO CLEAR o1 SAVE ▚[P] CLEAR ; RETURN OUT 2IN RETURN Q RETURN CLS CLEAR S© CLS SCREEN$ SCREEN$ IF RETURN N0▝}4STR$ COPY ▗ MERGE ▝SQR [A]% LLIST ▝p▘ LIST COPY OVER ©VAL 0l@▝ OUT DRAW ▘USR V▘=2@▝r@r@r@r@r@r@tttttttttvUSR vUSR v TO v CIRCLE yyyyy9▖ BORDER [I]s LLIST NOT ^ CONTINUE ▝r▝ATTR j▟[A]▝▝ INK STEP COPY COPY ▝▝[B]STR$ STR$ LET <=▝ LPRINT a%USR [S]▘ ▝![C][P][A]j[Q]USR ASN [I]▟0▝@@AT FORMAT RESTORE U^ RETURN SCREEN$ NEXT ▗ PRINT - INK INPUT SGN PRINT = RUN ASTR$ CLS COPY w▘ RUN C ERASE [C] SAVE COPY @[Q]~ LIST LIST ~[Q]p▗[Q][Q]_~ COPY ▝[S]" CAT 0▘ LIST 0▝ LPRINT @<0▝ LPRINT H▞ LIST w~~ INPUT ^^z LIST >=▟`[A]~ LPRINT LPRINT ~[A]p▗[A][A]IN z`▝^ `▝M0▝@▗ LPRINT 0 FORMAT VAL < LPRINT <[H▙ LPRINT o~~ PLOT n COPY COPY LIST vUSR (▙x▗~!!~▗p CLS !jUSR VVAL$ RUN ▝u0▝m▗5+0 CLOSE # DRAW <??<▝ DRAW `~ DRAW z COPY COPY USR ^ COPY CLS COPY © IF ▘ COPY l[Q] DRAW *@@ @ AUSR 6@w DRAW SAVE COPY LPRINT LPRINT RUN SAVE ▝ READ `▝ MERGE [M] 0 @ SAVE @▝PP▝PEEK P▝A`` BRIGHT DRAW [G]▛? FORMAT RETURN LIST DIM pLN IN LPRINT ▗ACS XSCREEN$ T DATA PEEK ▚>@©0▝ ▝DD▝ ▝o"▝{[C]▝@@ 1▘J MOVE ▘`0FK▝ PAUSE p▜ REM COPY ++,▝ DIM `▝ RANDOMIZE 6OO<▝ RANDOMIZE p▝ PRINT FWWL▘ PRINT ©[Q] PLOT READ 7>=AA▖A SAVE SAVE "Q" SAVE LIST "p▚▗ FORMAT READ [U]▝▝ ▝ LIST ▗ACS LIST !▛ CONTINUE RUN LPRINT LPRINT RUN CIRCLE !▞ SAVE READ LPRINT COPY LPRINT AVAL ▘USR USR l▗ COPY (1p▗P!(▝H@P0`!8] FORMAT @@▘ COPY RETURN LIST ▘ CLEAR ^ P▝ SAVE PRINT x!pPI FORMAT @P0@o[A] VAL ▝P@`▝w0VAL ▗[Q]* ▝41 LIST ▚pz DRAW CODE INPUT "^▛ LLIST 7 LIST LPRINT *[Q].▗ LPRINT FORMAT ▝Rd'[C]▝ LPRINT IF hUSR USR ACS ▝ ▝SIN ▞USR USR USR PUSR USR <=▝ @@ ▝ BEEP 0>▜ DRAW COPY USR LPRINT BRIGHT ▘ IF ?b▖ IF COPY LPRINT USR RESTORE p▝ RETURN USR DRAW ▝ CLEAR ▝ RESTORE 0▝` SAVE OR ? PAUSE ▗[A]2'[A] RETURN ▗ =`▖! SAVE LIST ▝"#>o LPRINT USR CONTINUE ▝~ LPRINT } USR ▗VAL ?P▝USR LPRINT USR 1 DEF FN 32!USR ▝3@▗USR 1USR 1p▗$! FORMAT 02▘." SAVE © DRAW !` DRAW ~#||!pSGN z#▝S3 ▗h@@0P>=7@`▝(#P▖; RETURN USR "(▝$=8$ LPRINT LIST !@▜P LIST LIST ▝ R▝ MOVE ▘ LPRINT FORMAT W▘ OVER BEEP ▘ LPRINT F$ INPUT LPRINT ▝ ▝FN @ Z4[Q]@0▝USR @▝©A[Q] CLEAR ©TAN [J]▝ CLEAR `ATTR dLEN p▝[Q] ▝! LPRINT COPY [Q]USR DRAW LIST SAVE ▘ LPRINT LIST ▘ LPRINT VAL USR ▝ LIST "@▗ LIST ▖ LIST ▖ SAVE p▗ SAVE H LPRINT >= SAVE p FORMAT SAVE x LPRINT ▘▝ 0▙ DRAW GO TO LIST LIST CONTINUE LIST DRAW USR ▞| LIST CIRCLE SAVE 0▝ COPY g▝%D0▘$[Q] LPRINT ^▗USR LPRINT INT %n▝ COPY 3VAL ▗USR IN $VAL MERGE ![A]CODE $USR ▝ LLIST 2▘USR FORMAT P0@▝D[A] DRAW `T LIST ▝ ▘N8▝u LPRINT ▝USR ~ DRAW ▚USR ▚T! LPRINT LIST INPUT RETURN [Q] CLS 8▝@ PAPER ▖▝4 LIST ▘ CIRCLE * ▝j 0▝P]H▖)▝( @▝00▘[A]T▘_ SAVE b▚_ COPY PP"P▘>=Ps p▝IN FN FN ▗▝PI 0[T] LIST LD[Q]▘LTL DATA ▝SGN QUSR ▘▗NOT DQUSR ▘ PLOT LPRINT ▝~USR ▝ LPRINT 6`▝1USR ▝ NEXT [S]AUSR v DRAW wwJ'▘© DEF FN &[A]▝[Q]!@ww7 wwwww'g`www'▝ SAVE ▝'▚VAL IN LIST P OUT ▖%p▗SCREEN$ USR R▘>' 0▝( CLS "[I]▘$$ RETURN SAVE `▝~#?# RUN FORMAT p STOP USR #▝ COPY 2`▝ COPY 0▘ DATA % LPRINT ▝BIN `p DEF FN 4P`▝ COPY 0[A]▜ READ LPRINT LIST A6USR wwwwW0' ww7▝'xCHR$ x TO x VERIFY x LPRINT q FORMAT q FORMAT q FORMAT x LPRINT q FORMAT x LPRINT x LPRINT x LPRINT x LPRINT x LPRINT q FORMAT x LPRINT x LPRINT x LPRINT x LPRINT q FORMAT q FORMAT q FORMAT 'A FORMAT FORMAT ▝>7 `0 VERIFY ▘HUSR `▝▝V@▘A%[Q]▝AHP"USR ▝ CIRCLE ▝0H▝ TO H LIST ▗ ▝BIN 8p OR LIST USR ▝EiUSR ▝I$ ▝>i FORMAT xUSR xUSR qUSR qUSR xUSR xUSR qUSR s▚s[A]s[K]s[U]sVAL$ sLN sCHR$ sACS z FORMAT ▝©* FORMAT nJUSR ▝@*USR PEEK 90▘STR$ * FORMAT ▝6: LPRINT USR ▝ COPY *USR ▝ RUN j FORMAT ▝ READ * FORMAT ▝ MERGE J LPRINT [M]% DRAW K▝+▝PEEK k ▝A+ ▝ BRIGHT ;0USR ▝SCREEN$ 9@: FORMAT ▗USR DIM 0IN VAL C0▝ OUT )▝SCREEN$ gVAL ▝A)▝>q LPRINT q LIST P▝I▝IVAL REM 1 LPRINT i[Q]? LIST [Q]c@▝% FORMAT ▘) SAVE ▗`+USR [Q]K[A]▘▞ SAVE DEF FN ▘NZ▘NOT ▘Bc▝B#▝[S]j▝ READ *▝ COPY ss|H|R|/|f|p|zupupup|L▝ READ ep FORMAT |||||qVAL ▘SCREEN$ |, LPRINT ▝ RETURN , LPRINT /L▝ DRAW upupups[Q]s[Q]s[Q]s[Q]s[Q]s[Q]S[Q]P▝©c[Q]qUSR =0▝2qUSR qUSR qUSR qUSR qUSR qUSR qUSR qUSR qUSR u@~~~~ ~*w w w ~0qVAL qVAL ~0~0~0~0~0s`qVAL qVAL qVAL qVAL w w uPuPuPuP%P.`uPuP!VAL uPp▝ LPRINT cp▚x2USR ▙▝K▗TAN ▘`▝ ▝N` ▝NOT SGN aB▚. FORMAT ▝V▝jCHR$ [S]VAL$ 9 FORMAT 5p▝AT -P▝ CLOSE #?ACS l▝ RUN CIRCLE ▘ RUN <▝ READ >xUSR xUSR xUSR © FORMAT O FORMAT ▝STR$ hUSR ▝6© FORMAT © FORMAT © FORMAT © FORMAT © FORMAT xUSR © FORMAT © FORMAT ? FORMAT 9 xUSR xUSR xUSR v LIST v LIST v LIST v LIST q[Q]v LIST v LIST q[Q]/▝#%oP▗> LPRINT LPRINT 0▝q[Q]q[Q]q[Q][Q] FORMAT ▝B=Pq[Q]1[Q]VAL READ jq[Q]Q[Q]▘"][Q]▘ READ [Q]p▗"?`b▘ LPRINT © FORMAT x FORMAT zzzzJ▝cf FORMAT [A]zzzzz▘[M]z* FORMAT ▝~z*G@SIN ▗ BRIGHT RETURN LIST ▝* LIST ▚LN IN LPRINT A ▘SCREEN$ *p▝AL LIST > DATA CIRCLE ▝@R▝X▝.>= PAPER DL SAVE ▝. CIRCLE ▝o IF ▝{ Q. CONTINUE ▝1 IF ▝H"▝@▝!0▘' FORMAT ▝ LLIST /CHR$ RANDOMIZE *[Q]▝ LIST =pCHR$ ▚0#USR O0▚p8 LPRINT h FORMAT ▝# LPRINT ▝LN ;▘! STOP z[A] z[A]▗COS LIST VAL$ ▝ PAUSE j[A]▜ PAUSE LPRINT LPRINT NEW Z[A]▝3<N>▘ LIST |R|@|@|@|@qUSR qUSR |@|@|@|@L@▝▖|0,[A]▝/l[Q]▝<>qUSR qUSR qUSR qUSR qUSR QUSR aUSR .VAL qUSR ▝.USR DUSR . FORMAT !VAL ▚CUSR a.USR B[Q]"8h LIST GUSR USR ▝JVAL USR CHR$ 3[Q][A]#Z[A]< qUSR USR ▝SIN mP▝ PAUSE , ▝ PAUSE |P LPRINT LIST DEF FN =p▝ SAVE /▖ DEF FN <P1VAL qUSR ?USR 22 FORMAT @0▝A▘▝ LIST / CIRCLE ▝▟/VAL LIST / LPRINT COPY ▜▝ DEF FN /p"▝ ▝W@p INT ?[Q]▘!/ LIST ▝q@q/ LIST ▝%2@[C]▝▘/ LPRINT ▝r>[S]USR PIN RETURN :/ SAVE C~VAL SCREEN$ ▘*`▝▘ SAVE OVER LPRINT q▝@USR $H▝.VAL [Q]▘D> DRAW .USR ▝▗` ▗^▘▚*USR ▖ STOP PI/▘"USR A LPRINT N▘ COPY LPRINT # CIRCLE USR USR USR USR USR 0▗ 0▗USR ,[I]CHR$ ▝>=!0>=//f7<>0@ ? LIST ▖`@? LPRINT , AND !USR [Q]v BRIGHT ▚USR ` LPRINT } DRAW ©>=© ERASE ? INPUT N@▘ LPRINT . SAVE ▘USR ]P0USR ▗USR 4/@▘USR $8b▝ RETURN ?0[A]▗>>/P^=.F)CHR$ ?`▝ 8▗USR BIN /▝ DATA 7~▘USR O CLOSE #USR 2M[A]▝>=2[M]© DEF FN CLS FOR .▗ SAVE T▗FN -` VAL$ ▝ LPRINT b▝[A]STR$ !<> J▘[A] DEF FN USR [Q] LIST LIST FORMAT ▝t▝!VAL ▝@ ▗<RX▝-USR ▝#2$.[A]▘▖/&<'?> COPY '2▖▘?z▝^/@▝BA8"/P▝{@"IN , LIST OUT ' 0▗= RETURN RETURN >=▘ LIST 8_AT ▘o!▝~`▝}@1 RETURN OVER ?▗ (/VAL ▝PnUSR [Q]▗X FORMAT NUSR CIRCLE P▝ COPY M SAVE CLEAR -pRNDI[A]▝ PRINT -▝PIop`▝bo▝w,p▝WO Pr.@▝(_ FORMAT ▘7/ INPUT CODE SAVE [C]▗7 LLIST !USR [Q]*/`▘VAL$ ▝ DRAW RETURN RANDOMIZE USR ▝▝!pVAL USR ▝USR USR '▝T![A]▝- LPRINT ▘COS [I]▝h/USR ▝▙D0STR$ [B]- LPRINT ▝ G`▝[O]J▝[P]-0▝>=Z ▘x LIST ! CIRCLE H▖ DRAW P▝ GO TO <USR FORMAT |[M].▘ POKE ▝ DRAW WK▝▖PEEK %▝SGN -[I]▘ IF DRAW '>=B▝ PLOT -FN ! OVER ©USR Ot▙▚▘~:▝&▘ COPY b"| OVER SCREEN$ %4▝ FORMAT ^ZVRp@p@ @▝ COPY "TAN ▝STR$ p@p@p@p@ ▝`pp@ppppUSR LN USR ▝ LPRINT pppUSR pUSR `USR ▝[Q]V[C] MERGE [N]AT ▝[Q]pUSR qqqA▝`@#TAN ▝ VERIFY @▝[Q]lqq@q@q@ COPY LLIST [G]LG@tl@©INKEY$lA© AND lB COPY [P]C COPY NOT lD COPY [T]lE COPY STR$ lF COPY STOP lG COPY STR$ @▘A ▝B ▝C ▝D ▝E $ 0▝ 0▝AT 0▝AT 0▝AT 0[S]AT 0▝AT 0 0▝AT `▘AT `U TO CHR$ ▚CODE TO A COPY COPY COPY COPY FLASH RND LLIST ~▜▜▚# RESTORE &ol IF RESTORE CLEAR LLIST CLEAR ~ NEW PRINT CLEAR f CLEAR n CLEAR THEN v(_}[L]n([D]ATN o , RETURN INPUT O|[Q] CLEAR VAL$ W&▛~(z THEN ?[E] NEW ?W CLEAR C[R] RANDOMIZE x[F]8G INK | CLEAR PEEK (8% STEP $ LINE LET = INKEY$<>CODE NOT (([T] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY NEW NOT COPY COPY CLEAR COPY CLEAR COPY CLEAR SAVE CLEAR ▖ CLS <> NEXT NOT ▘[y=USR ▜[I] AND o> COPY DEF FN g^#V#<>© TO NOT LN [A]][Q]▜ STEP pp▙ GO TO [F] NEXT >▖7> OPEN # RETURN STEP b> OPEN # RETURN <> COPY COPY READ 8 VERIFY COPY © LOAD ?©[O] COPY ©IN © COPY ~ COPY ©} COPY RETURN IF IN _ CLEAR ~ACS IF CODE © CLEAR STEP (IN COPY ▜ NEXT GO SUB sASN NOT !kNOT [C][P MERGE GO SUB VAL ! LLIST COPY RANDOMIZE c<> GO SUB LN ![N] BRIGHT USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1G CLS NOT R▗ COPY COPY P ▝ LPRINT pUSR $▗? LIST 0,▚O?8kVAL RETURN ©?EXP SQR [F] RETURN DRAW / CLS @[Q] PRINT SGN DRAW SAVE x FORMAT FORMAT RETURN FORMAT LPRINT USR ▖ COPY h▜0▙p', LIST COPY CAT [E]▖> SAVE XP>▘ RUN © INKEY$▙© RUN DRAW [Q]VAL SAVE LOAD `▛PI LIST LPRINT LPRINT {0([I] PAUSE LPRINT CIRCLE ▗USR zP LPRINT ▗ POKE . >==v0PACS }~ ERASE t|@▚08| LIST 2USR NEW REM `! P▝▗▝ Z▗? LPRINT USR ▖ COPY LIST ?STR$ F▚STR$ <@ SAVE P▚ DRAW @NOT Z▚ BORDER LPRINT DRAW d▗ SAVE Ql▗USR LIST !h▘?q▝0▝ RANDOMIZE q[C]q[M]qINKEY$qVAL qINT qBIN q DEF FN q CIRCLE q STOP q GO TO q PLOT LPRINT 2[K]A LPRINT [G]▝ SAVE 0TAN ▗ DRAW 8`▝ CIRCLE `▝X`(▝LN P(▘pp<▝ RETURN @P▘ DATA a|▝LPP▘VRp▘j`▝:2▗ LPRINT ▝`(`!*[H]PP▗ATTR [Q]VAL$ ▗ FORMAT ▝0d▘G FORMAT !LN CONTINUE CLEAR `( RETURN FN @(▝ RETURN `x RETURN USR 1z▗IN SAVE 1[A][P] ▚ © LIST ! TO &0d▗[Q]GA[U]0▜1INT ▚[Q]8 LPRINT P▘<▝@@ CONTINUE "D▗>=@ LIST >= ERASE ▗@D#>▝&R▚ SAVE @USR 2D▘@Qh"X▗STR$ USR Q|▘ LPRINT 2X▗ READ [Q]0TAN P▝ RUN CSIN ▘?0TAN ▝ SAVE sBIN s DEF FN s CIRCLE s STOP s GO TO s PLOT ttttT(▝?*B DATA !R[Q] DATA QT▗0STR$ 0 LIST ▘ LIST @ LIST ▗[A]$B▗lw3 TO LN [M]#px PRINT C LOAD LPRINT A POKE ▝CODE 3 ▘ LIST s CONTINUE ▝A[A][U]▝c CONTINUE ▝1 TO v#x$[E]▝▘bl▝d8▝▝`d▝▜2XSIN ▘ CLEAR LIST "8▝ RETURN BlUSR RETURN USR $ GO TO / RETURN 20▘-$ GO TO [[P]`R0▘_%373 VERIFY [A]cUSR 0TAN NOT 2[E]r▚ LPRINT <▝VAL 3F▘>@ BRIGHT ▝R0DB020▘▝$r00▝$ DEF FN ▝r0▘@▝©Br0[Q] LPRINT ©[Q]Tt▘USR 2SIN ▗ LIST ?A,Htdu RETURN vvvv&v0v:VD▝[P]dL1*#VAL$ ▝ LIST d$▝[A]d`▝hQLN ▘ CIRCLE dt▝ CONTINUE b▝ SAVE 5AT ▝ LOAD Bl▗u>▝8▘ABS CACS <= SAVE ▗ REM Z LPRINT &LN ▟ OVER COPY t TO f▗0s5 LIST @USR F▝[R]fT▝STR$ F▝,r0▝ DATA ▗ SAVE VAL r0▞ COPY Bb0▛IN STR$ USR USR STR$ ©b0▖©<▝USR LPRINT |t20▚[Q] CAT DRAW LIST 5▝CODE dBIN ▝ THEN e▝ OPEN #1▗ FORMAT MOVE V,▘[R]5▙▗ SAVE USR 4[M]▗ LPRINT >R0V|▝ LPRINT R0▝©[O]2&*P▘▝4"NR0/▝<"b▝, DRAW ▝?▘ LPRINT OVER '[I]▘ LIST N$▗4 GO TO ▝ LET &vFN x0x:D▝▜xJ# CIRCLE (*▝dx^f2 PAPER xr▝[P]@[Q]▘>r0▗ LIST ;'SGN ▝3220ALN ▝r0▘ CONTINUE Ux▘ SAVE g DATA ▝ GO TO d$▝v82▗~SIN d▖EXP 07 DEF FN Yf[A]▜ CIRCLE COS @IN 8▝ LIST fh▘( REM ▝0W COPY T8▝USR p(F[U]@v[A]d`▝©f REM ▝odLB FORMAT TO ▘ LOAD $ GO TO &p CLS PDL▝}g&▝}36▗>=yp6 LPRINT ▘>=1*'▝|F|x DATA UP▘X1▗D F[A]@1▘▝$XUSR CLOSE #r0▘2$~"4t▘ LPRINT 2*[K]8VAL ▗USR USR 2*`▝v▝0Xr0▝ LIST r0z`zjzt&Pz▘4[Q]▘USR BRIGHT '[U]j[A]?INKEY$▝ NEXT jVAL$ ▘ LLIST 0[G]▘X:[O]*[S]▝:5d▗07hf▝~84USR " PLOT * LINE ▝97 SAVE ▘?4V OVER @USR BRIGHT ▗[R]USR `(PI* BRIGHT USR `<▗_USR p▝ ▘:&+V▘ ▘p+V▘ LIST [K]P INPUT 2 ERASE ▗ SAVE USR `[Q]▝2 NEW ▘ POKE p[Q]▝T+[A]▝ DATA p<▗ LPRINT ERASE +[K]▝"pP VERIFY ▝SIN +VAL$ ▝28 NEW +j+ TO SGN 3<▝ SAVE ▘[U]0<▘Dt+ RETURN " LPRINT POKE ▝t`Br08▝ READ OVER r0XACS [E]b0|zr0|▙|[I]|[S]<AT r+v+[U]zFN LINE 6V <+z BRIGHT ▘CHR$ 9 GO TO ▗7 RESTORE [[A]▘ATTR lX▝sI` REM l0▝ TO Z(8SCREEN$ z LIST {8CHR$ [,AT BORDER -N▗ IF j LIST ▝ IF 4 PLOT ▗[K]1k▘(H▝p<AT j LIST ▝▝lFN D`▝m▝ COPY k▝ OUT h CLOSE #▝ OUT kh@[M]p▘ PRINT , DATA VAL ▝ RETURN kT▝ CLEAR J BRIGHT PAUSE kT▝{`▝sS[E]▘ACS SH▘;98USR K@▘b[S] LLIST ▘PP▗xVAL$ ▘VAL TAN @dPEEK ▘` DRAW POKE SAVE [T▝ RETURN bD▝.b▗| DRAW ] LINE t▝ DRAW [ PAUSE -INKEY$~ACS ▚▝lNOT ▗PEEK T0▗h LIST 0▗>=(0▝[U]0(▗[S][C]02▗QS0<}4G8t0▝hZ`+f▗Y▝mVAL 02▝ RUN 8▘{|▟ CLOSE #O!h▖CHR$ LPRINT USR ▝Y[A]USR USR @ LPRINT `@@[S]▘[Q]@tATTR STR$ STR$ VAL FORMAT aCHR$ e[D]PP THEN 7 NEW [A][A] DRAW PLOT ▖[N] INPUT @ INPUT ▝0 PRINT p@▝pppp(;▝>U[Q] ▝kj!▝)1^▗%$1"▝"x1,▝`5USR F9=@P▝}0▗yq ▝▝s1h@▝ OUT 1r▝ OUT P▝ RESTORE ▚@1[A]▝ [K]1[K]V▝@0ZSCREEN$ ▝H COPY ▝HM▝ LPRINT ! LLIST ▚ OVER LPRINT INPUT PRINT THEN ▚ RETURN ATN FLASH NEW BEEP ▜@ REM VERIFY A SAVE 3 BORDER ▖ LPRINT POKE d`▝:TAN _▜ @VAL s RETURN U▝|▝*^▝2gp@!@▚▝ TO ▛▝0<▝POINT ▝`!O[A] OVER READ FORMAT ERASE ▝PEEK POKE ▝▞d▝▞"Rn▝jCHR$ ▝j LLIST ▝ LINE TO ▝ LINE A▘ GO TO F▝ LOAD FOR ▝ INPUT PD▖ IF REM LOAD ▝D▝|▝C▗p:"!PI▘!![A]@▝ q@1[K]_qJ1VAL$ @! RETURN ▚ BRIGHT LPRINT INPUT PLOT S COPY ATN [@▚ REM PLOT q@!@▝USR REM ▝!@▝USR [I]▘[Q]!@6 sq,q6q@qJAC▘xQL▘ PLOT EXP 3 DEF FN 8 LIST [B]7▘ r GO TO <=@@ DRAW NEXT ▚ CLEAR COPY > COPY ▚ RETURN RETURN ▜ ? SAVE ▜ LIST ▗20▗6▝P LIST ▘P LIST ▘0 LIST FORMAT `VAL$ RETURN ▜ DRAW ATN [ IF ▝:0▝ PLOT N▝|x▘{▚▝! IF FORMAT ▝ISQR RETURN a'8▜ DRAW ( DATA CLS N>©_TAN ▝22F~ BRIGHT ou[K]CODE HYMVAL _©44_ COPY VAL Q[H]CODE 8(PI IF RETURN OUT GO SUB $ LET ▜8[U] CLS 8<s DATA ! GO TO :(D RESTORE BIN $<=▝[I][H] CLS ▝5<> OR D SAVE ▘P:V© RETURN [S]8/© RETURN Y>▘USR _XO REM USR ▚/0{ CIRCLE ▚USR ? DRAW ~@*oV.CHR$ Y CLOSE #▗▚}EXP `>▝[C] LET INPUT p>)▗ GO TO LINE H▝ CLEAR f GO TO ▝ RETURN [A]z PLOT k`CODE `[P]USR IN +8▗[M]G9[G]▚ LPRINT CFN [P]▝A9F▚ LIST @ LLIST )FN USR /$▘ G BRIGHT ▝&[E]▝ RETURN SCREEN$ ?pUSR ▝[Q],▘▖[ CIRCLE L COPY IN :f+"]jpppJPEEK )8-La$▝ DRAW MR NEW j REM CHR$ ,▘ FORMAT ? IF RETURN ▝ CLEAR ,(T▝(©SIN ▝ DRAW USR ?F{&▗ LPRINT TAN 9 FORMAT USR OUT =[A]▝ ▝ CLOSE #P▝p?LN ?▘ CLEAR ▝{,SIN w[O] FORMAT N[E]▗ GO SUB RETURN ▘▝ GO SUB g>SGN ▘ PAPER TAN n REM Oz SAVE R'o ATN ▘ SAVE gPEEK ▝BIN CHR$ 0` ERASE ▘<[A]▝ RETURN ? DRAW TO > DATA LN ▝ COPY h POKE ▝ COPY ; ERASE ▝ COPY op▝ IF M POKE ABS h TO ▝ DEF FN @(▝▝o`▝noUSR ▝^@P OVER o CLOSE #▝ TO @xK] TO ▘F],▘$Y▘"ND";BIN ▗!R0▗$▘P? CLOSE #N▝[A]=J▗USR [A]^X▘[A]_[I]pP▘STR$ sINKEY$▘ <41 LINE ©z©▗©▙©[I]©[S]▗©VAL )R3nyD<?JCHR$ ▝ BRIGHT .BIN ▝ LINE p IF ▝ NEW POKE ▘ GO SUB rFN ▞ PLOT LPRINT INT LPRINT m@▛a`USR "USR mT▗[F]?8▘ FLASH },! LOAD ©*PEEK ▝*x/ RETURN PEEK RETURN ▘A[M]pq#/ DRAW ▗USR INPUT o[I] INPUT 03©H▗ INVERSE [S]+CHR$ ▝ LET Z CLOSE # CLOSE #_ RANDOMIZE d8? CONTINUE ▚ LIST x:.$▝.j,2▗USR LPRINT _[O]▝?./p▝H TO ▚F RETURN SAVE BRIGHT 3▗▘SGN &▚ LIST LPRINT RETURN ▝ AND ,:D▚@ LPRINT LIST /▝$j▝ RANDOMIZE ./▚ LIST LIST >ABS IF ▘ CAT N▞ LIST 8▝ SAVE LIST G GO SUB ▘0 PAPER RUN IN LPRINT ©*©4©>©H©R LIST >▝ DRAW q TO ACS ▝ GO TO / ▝>=t`▘ SAVE 3 DRAW ▘[E]tt OVER ▝/H▝ CIRCLE r(▝ CONTINUE >[E]3SCREEN$ /▘▘/4▘@t PLOT ▘USR /<©4USR d▚?[I]&[R]I@^p▗7 REM CONTINUE LLIST ▝o]ACS # RETURN iq POKE OVER [A]. SAVE INVERSE = PAPER wR/ BRIGHT IF STEP READ d▚SGN SGN }X▚/a$VAL ▝AAT ▝l▚USR SAVE ©$VAL @ LIST USR FORMAT %|▘ LIST SAVE LPRINT w GO TO SCREEN$ ▝©VAL$ [N]▝©24▗x LPRINT ©F>HF▘ COPY RANDOMIZE ©t~ PAUSE ~ DRAW ©©©^ FORMAT 2F▘ LIST sAT TO ! POKE ▘ CIRCLE © CLOSE # LIST !,▘p© CONTINUE LIST &:▘[I]© DRAW (▝VAL Fhs CLOSE #▝6|[K]$|/ REM ▝?4 LPRINT v REM ▝]LN s CLOSE #▘'NXq POKE POKE ?p▘@R▝ BORDER BRIGHT P▗wNOT .D4 LOAD ND[Q] LOAD l. PLOT FLASH GO TO 6[A]b▘ POKE >=M`( GO SUB 00USR ▝_F[U][Q] CLS Ux▘ CLS 7DLN ▝r_ LINE ▝▖ NEW ^wl~[E]w~FN w[E]N[E]▝ DRAW V/▗ COPY CLS &▚ CLEAR COPY wUSR ~[Q]~SCREEN$ ~TAN ~PEEK sUSR sUSR sUSR sUSR sUSR sUSR sUSR c CONTINUE ▝ TO sUSR sUSR 3USR ▝ LPRINT bPEEK ▘SUSR ▘ccp▝[F]oUSR ▝)6LN n▝~o DRAW ▝<aT▝[A]gl▝>=_▚▘hW SAVE ▘4o▖▝zH AND s CLOSE #RD▘ PAUSE e>=▝ CLEAR :[C]▗FN }c DRAW ▝[P]HAT POKE GO TO e LIST ▝VAL D▖▘p[Q]FACS ▝o:R[E]8PEEK 2[G]WFN ▘[Q]Z POKE ▗@ LIST 7 FORMAT 8PEEK : PAPER : LPRINT NOT :BIN < LPRINT 5▗ LPRINT wa POKE LOAD USR {<{F{P{Z{dwwwwwwww+d▝ GO TO z(▗USR t+ SAVE 9e<▘USR 2 SAVE [Q]8▗[O]▝?a TO ▝[O]: LIST AND ▝>=i8▝ BORDER a TO ▝pa TO ▝>k[K]▝w:[Q]wl▝ LOAD G▝Q TO ▝ RETURN Gq?bDM DIM ' DATA ▘wX&,f"VAL wwwzwww▘ LPRINT '▝CHR$ *:j▝[Q]7▝ LET 7 LIST @: LIST :▘ LIST ?*vw}"},}6}@w}TwyLw{ LPRINT w{ POKE sUSR y▖wsUSR ▘USR GUSR "m>▝FcUSR ▝^gD▝cUSR ▝ SAVE i▝ BORDER ; TO ▗[A] FORMAT e(▘ IF )L AND sAT ▝ LOAD 7 DATA ▗0 NEXT sAT ▝*▗D COPY g~SIN -PEEK ▝ REM INK WTy'?AT `,0@ SAVE USR g COPY SAVE SAVE INKEY$w FORMAT wwg| BRIGHT w6INKEY$▘8- FORMAT x REM ▝' OUT (. GO SUB ▘USR t▞z POKE ©©©©$©.wwwwwwwwwwWSGN g*[O]wwIt$ PAPER w'R#dw[E]w[E]Gm G▝<w▝dG▝ POKE g IF 0G▝_f,▝NG[H]@▝ LPRINT wV@ww|lw|w[E]|[E]w▝ DRAW 6w▝?9VAL$ ©©(©2©<{@©P{@}{@©[Q]{@©TAN w}H{@z>▘ LPRINT ▘USR I`[Q]<m ▝)^t▘=m4▝=?xUSR / SAVE -H-!,/PEEK [C]/oZ▝©= CLOSE #▗>wkT▘ RUN W}4▝ LOAD g▝om4 CLEAR DATA G▝ FOR = REM VAL$ ▝ PRINT <X▗ LIST POKE 7Dx▝o< ERASE BRIGHT 0USR . STOP ▝??*▘ LPRINT =p?:GOPww▝/ PAPER BRIGHT ^▘ LPRINT 6 OVER *▝F STOP ©©©©&_D>={ACS + DATA * BRIGHT ▝nVAL ▝Z(0 AND /AT ▝ZTAN ▘USR p(:dp<▝J LIST ▝p<▘-ed▝ LLIST n▖▝AH▗ CLOSE #STR$ LIST AT ▗ RETURN @'[S]▖] LPRINT SQR BRIGHT o LIST ▜O LIST `0▝ SAVE ▖<?[P].H©©$BIN u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]u[Q]= ▝7} } u[Q]] ▝%[Q]}4u[Q]u[Q]/ RUN ▝u[Q]~ RETURN ©©©©&©0©:©DLni,jy▚?*^`▘ POKE jPEEK ▝ IF nt▝ RETURN pj LIST ▝zRXsAT {[O]▝py▚c▖ LPRINT CLOSE #p.[M]▝▟ CLEAR [G]▝{ GO TO ▘`BFN ▝ RANDOMIZE FORMAT ▝[Q][T▘o/* LIST ▝ CLEAR k[U]▝ CLEAR `(▝ RETURN i GO TO ▝ COPY m/▝ OVER cUSR ▝}?[Q] SAVE ▝ NEW ;,▚ LIST AX/ LIST CONTINUE USR C[I]▛?t BORDER NOT ". LIST T▝@68 CONTINUE LPRINT &KhJPINT " FORMAT [K][Q]@ACS [S] AND :_ COPY OUT USR ©@©J©T©^©h©r©|s CLOSE #s CLOSE #s CLOSE #s CLOSE #s CLOSE #s CLOSE #s CLOSE #s CLOSE #> GO TO ▘? GO TO ▘^▖p▝V^3mU[Q]▘ LLIST >=▝STR$ [M] LIST ▗ BRIGHT STR$ >? LLIST @C CLOSE #▘}lb▝_ CLOSE #▘ P CLOSE #q LPRINT q LPRINT q LPRINT q LPRINT q LPRINT q LPRINT q LPRINT ▝m< NEW q LPRINT ▚ LPRINT C CIRCLE 1 LPRINT ▗STR$ USR ?[O]▘><▘▝$6▝Cv;| LIST ? CONTINUE INPUT ▝?TAN $▘▝` LLIST ▚ LIST USR USR )p[O]▝ RUN GO SUB ▝ READ ©©©©©&©0©:- CLOSE #▝8o▘<=UTAN ▘oL FORMAT COPY o BRIGHT ▝ OUT ] DRAW ▘ OVER b SAVE ▝^nBIN ▝ OUT a LPRINT @<8a LPRINT ▝IN n CIRCLE ▝AT F▝@ AND O▝ BORDER n GO TO ▝ AND n GO TO ▝D> GO TO ▗Nn GO TO ▝LM CLOSE #[S]Fo▝AM CLOSE #▝Lr©3cAT t`cAT KT CONTINUE F[A]gFN ▝6> PAPER ▗H{]H▘SQR <X DRAW LET LPRINT INT =H▘▝T?jQ TO ▘ LPRINT ▘VAL A LPRINT ▝M ▘| PAPER 1 LPRINT READ LIST `[M]▝M COPY GO TO q LPRINT y`©© COPY <=© ^ DRAW ▝8=BIN ©:LN ▗VAL [Q]©J PAUSE ▝ RANDOMIZE ▝USR TCHR$ NSIN GO SUB ? PAPER ▝ THEN ~ GO TO 4}4}4}4ytIt▝S ZO<▝K[U]▝© PAPER //(▘USR ]p▝-4▗[M]USR kh! STOP />=▘~/. FORMAT ▝??TAN ▘@]H▖=p`?*>=▗[A]7x▗N CIRCLE ▝[U]~▗▘USR I▖▘ DRAW M CONTINUE STOP ▝NOT 0▗"pQ LPRINT ▝ja LPRINT 9▖▝ LPRINT (▚ LPRINT GO TO NOT ▘.[K]"▗ GO TO pUSR ▝©}©©9J{b> PAPER ▝?FN 9 CLOSE #j OVER | COPY ` LIST p[O]/TAN ▝ GO TO y`▘>4[M]▘VAL z LIST ▘;L SAVE ▝@y REM ▘<< SAVE ▘?4CHR$ 0<9BIN ? PAUSE N GO TO ▝[K]Y GO TO ▘▞n GO TO ▝Ig0▝[B]g0▝ ERASE h▝AT gD▘ VERIFY ?:[O]USR yd`▝O< LPRINT K CLEAR @▝/▙ FLASH +f84W0wFN ▘y? PAUSE x▝ PLOT d`▝ PAPER o▝ RETURN ][I]▘/ PAPER 2_TAN ▘ STOP 2Zw}4▘SIN Bm4▝[Q]>x PAUSE ▘[A]? LINE CLS 6~▝USR <=?Z▗~ COPY LPRINT O@▝ LIST O"▗8&_▝;&▘USR E[Q]▘! INPUT ( SAVE ▗?$d-▗H▘ NEXT &XB DATA ?BIN ; RETURN +*▗qAp REM %&▝B[E]K0▘USR LIST l▝/Lj▚ SAVE TO LIST [K]ABS OPEN # LPRINT >= RESTORE ASN ▘USR © MERGE COPY USR 8VAL DRAW / SAVE ▝?F▝^▝o DRAW :▝▝▙` @"D*[T]▞ STOP RETURN LINE ▘ LIST [O] LIST LIST USR POKE <SIN ▜0 FORMAT LIST 5▙,BIN ▗<ppL PAUSE , DATA ▘ LPRINT >CHR$ @ ▝`▘ LPRINT ` |?[M]@N▘ LPRINT ▝ DRAW N>=USR LIST POKE DIM INKEY$9.[G]0PEEK , DIM ▝^ CAT ▝ RETURN ABS /0;Y! LPRINT OR $ OR <ppp p p0p@p@pPp`p`ppppP©VAL ©INT ? LIST ▝NOT o TO ▝▝/▘~n BRIGHT [P]!j/ DRAW l`l▝ro8▝4b[INKEY$`▝COS k4▝xX;h8▝X▘Z BRIGHT >BIN ▘p/ REM ▙s POKE AT ▝ DIM d DRAW ?l▝ OUT >R▞NOT USR USR 0▗USR / AND 70▗&▗pO/▚▗ LPRINT >= LPRINT DRAW LIST [K]z▛@ LPRINT LPRINT ? LPRINT PrxD▗ SAVE ?[D] OPEN #SGN SQR ©w©©$_LEN . ERASE vFN ▝©@▘=f TO ▝8@▘6f BRIGHT 9VAL [Q]w▘=!@▝fjSGN ▝ PAPER LPRINT ▘ INVERSE nx▝IN 'SCREEN$ ▝l[E]/ DATA ▘/[U]>[G]▘x/[Q]▝"LN ▘ RETURN e▘ CLEAR ©,USR M$▙PEEK !Pn PAUSE - <=P▜@8<= SAVE ▘?x~@ DRAW @![E]@$ SAVE CLEAR /n▗ RETURN TO ~L▚ RETURN VAL USR O.~▝? CLEAR ▝ LIST zVAL ~INT ~BIN ~ DEF FN aFQJ▝>q !@▝8h▝6@vBIN ▚USR [Q][Q]qp▗O`LN ▝ACS oLN ▝INT !P▝}m CLOSE #▝?qP.H1@▝= POKE ▝[M]QP▖c/ PLOT ▘ NEXT %2LN k DRAW LN ▝ OR 8 RETURN ▗ CONTINUE #PUSR HF POKE LPRINT 0▝SGN /▝$F[M]K RETURN ▘STR$ _PEEK 0p0▝-4&▝/!VAL ▝LEN © PAUSE © IF © LIST rrB@rrb▝r@>O[E]▝ATN !@▝EXP oh▝~"[A]▝o0bA@▘ SAVE ;J▘ LIST Y@5[E]▘ GO TO 9<[C]▝ PAUSE ?d7[E]▗ LPRINT LOAD $ ▝ AND >J▗;LN /Jx/ IF ▝i_[G]▘-x)n]<qX▗▝,-▗▝.@p▝| '▛▝0[B]▗H4▗ DATA PI DATA ln[O]fG OVER PEEK aEXP : READ 0rCHR$ [I]Wh GO TO ~@p? LPRINT ? DRAW COPY COPY LEN OR ▝ @▗x<dSGN @▗ BRIGHT D AND FOR @[R]g[P][O] RETURN CAT SGN : NEW g RETURN RETURN 3 NEXT Wo RANDOMIZE [J] PAUSE COPY DRAW ©0USR p? LPRINT [P]C▝>=NOT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN SAVE COPY COPY DRAW DRAW COPY NEXT GO SUB sASN NOT !kNOT [C][P MERGE GO SUB VAL ! LOAD COPY COPY J+<> GO SUB LN !ACS CLOSE #USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1G CLS NOT R[I] NEXT PRINT OR MERGE RESTORE INVERSE RESTORE STEP PAPER USR INVERSE LLIST LLIST MOVE STR$ LET CLS GO SUB M STEP %USR CLS vINT := AND ATN PRINT NOT STR$ NEXT !> AND p!>=~2STR$ # INVERSE !vUSR #V# RESTORE INVERSE 6 INVERSE p INVERSE p INVERSE p INVERSE s INVERSE r FOR [O] INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE = MOVE 2[D]NOT <2 INK USR 2= AND <> INVERSE ▝ INVERSE ▝ INVERSE $ STEP [L] AND CHR$ [A]PI LINE 6STR$ >22STR$ ! INK USR 5 FSGN ▚ STEP [S]CHR$ INVERSE ![H]0▝LN [I] ▖`NOT "pBIN 2xBIN ▗rBIN 2y&tBIN 2zBIN M▛vBIN :> AND PI(**}BIN .*▝BIN :BIN ▟wBIN PLOT -!▗BIN INKEY$2wBIN :I▘:▜5KD[L]ACS >=!{BIN >yIN GO SUB ATTR = PAUSE uSTR$ <> CLEAR COPY GO SUB QCODE 2> AND vl/2? AND CODE 2$▖y PAUSE PISTR$ @[F]Y<><>LEN ASN INT xPI[S][B]▞N8`ACS NOT >= STEP LLIST LEN [G] INVERSE N INVERSE F INVERSE n INVERSE f~#V_SIN 0[P]▘q[O][H]NOT VAL CHR$ INVERSE ~ O NEW !<BIN VAL$ [R]VAL$ w> INVERSE wP▝8@▝CODE 0#,▘/INKEY$0%[K]u INVERSE p INVERSE p INVERSE w INVERSE THEN VERIFY INVERSE w CONTINUE ▘X%▗wI!▝ RETURN % OVER ?)▖: INVERSE 6@4USR .<▚ DEF FN ( INVERSE pEVAL$ N ▚H INVERSE 6 COPY `▖SbVAL ^ INVERSE VPI IF NOT INVERSE w INVERSE THEN F(2 RESTORE USR INVERSE n INVERSE u INVERSE f INVERSE t~ INVERSE w INVERSE w INVERSE ~ INVERSE w[F]▜ INPUT INVERSE ~ INVERSE w▘▖▗~PI>=INT ▝USR ^ASN <> INVERSE ~ THEN _>=0 INVERSE 4<> INVERSE 5<> RETURN LN 8I AND 8& AND 8) AND 0O!I OR N INVERSE u INVERSE u INVERSE t INVERSE t/▘ AND 7▗< INVERSE w[A][O] OR ▜O~#fo INVERSE u INVERSE t+▝-?STR$ O= DIM INVERSE N THEN i(+ INVERSE ~ VERIFY [0@[M]▝nSIN ▜#~PI IF NOT PEEK ▘tINT ▝~ABS [K]> INVERSE ▚G INVERSE n INVERSE f~#PI PAUSE AT NOT INVERSE n INVERSE f NEW ©▛t!▞BIN ▜_f[J]n THEN u(Hg INVERSE F THEN THEN } INVERSE ~( THEN A THEN m LOAD [G]0&▛ INPUT [H] INVERSE ▚LN 8▘VAL$ x[L] FOR THEN 8[A]_z0 AND [Q]8 THEN # THEN AND 0 SAVE FOR y INPUT COPY [I] THEN Q(! INVERSE F THEN y( INVERSE n INVERSE f[H]
