| Является частью релиза: | eye ache |
| Размер файла: | 35916 |
| md5: | 2f1bd6402e5e667716e3f51d1e8cfb06 |
1 RANDOMIZE USR (256*PEEK 23636+PEEK 23635+59)
2 REM NEXT CODE OPEN # RETURN ! COPY Zw+ THEN t IF CLEAR THEN INKEY$! LLIST DIM "[ STEP [ DIM ▛ BEEP GO SUB CIRCLE ▛ GO SUB LN 1bNOT bNOT USR [S]PHT&!CODE bEXP bn GO SUB VAL !VAL ] THEN ▜Mzw$%, CIRCLE @ STEP Dc> STEP [a?USR * CIRCLE g FLASH >G!R' COPY c OR CLS v> STEP RNDbh2Y2 POKE M[D]9STR$ PAPER i&X;D<>6>= INVERSE . INVERSE )VAL N NEXT #AT FLASH INVERSE / STEP 5J[I]c( INVERSE -CHR$ ATTR b<>z NEW USR { AND _ CIRCLE z VERIFY WA~w# DRAW PLOT <>: COPY CONTINUE PEEK ▚ GO TO A/. REM FORMAT [H]TAB INVERSE CODE A, THEN [Q] TO 2 CONTINUE Ml IF PEEK ACS CLS /|$[C]I$BIN elIN UU© FORMAT bPEEK d4~ BRIGHT ?Hd COPY CLEAR IF [A]s INK FLASH / CLS PRINT LLIST 3[H]USR COPY RUN REM [T]iASN [B] RUN OUT [U]ATTR RESTORE TAN /IN P NEW CLEAR [J]@ COPY ~[Q]L@ CONTINUE [K] RANDOMIZE s[O]/[L]VAL$ C.▞2.▜ DATA /[N]>=[H]B▝p[J] .SCREEN$ 1]FN INPUT ASN 6[H]▗ POKE DRAW bUSR { SAVE A[K]CODE LET DRAW BRIGHT [H]?NOT CLEAR =BIN © LET MERGE pu COPY Ht DATA MSQR VAL LIST ^SQR _ OVER USR 0;[I] 6ATN BEEP _[R]COS BIN 6ABS <l]0_J CIRCLE p OPEN #bCOS LEN u LIST [C] CLEAR P[F]UW CLEAR [ STOP qTAN )h>= LIST [A] FORMAT IN [A]POINT RNDK/;![A][[A]|▗%[A] LLIST LEN :_IN BEEP ▞s[D] BEEP a BEEP PEEK p[E]VAL VAL BEEP LLIST K$ LOAD [F]K PLOT LOAD CLOSE #P▟ FORMAT >e CAT LPRINT AT BRIGHT DEINT ETAN [L] CIRCLE LPRINT 27ABS K[Q]USR R▖ FLASH 4 CIRCLE [M][Q]>SIN ? AND ERASE BORDER RND-,[A],!.[A]n CIRCLE @ BEEP ?2STR$ ANOT BEEP COPY VAL$ BEEP COPY STOP kp`i_ READ COPY ?AAU/ ERASE RESTORE 2 PAPER INVERSE GA OR INVERSE @ CONTINUE USR RETURN ▝ INVERSE =ASN EXP POKE LOAD [J][A][G]LEN ▖USR O▚[L][C]▛a▖aLEN o[M] READ CIRCLE :VNOT PLOT VAL [M] NEW CODE ▘.3[M]H CIRCLE % POKE LEN [M]▗▚G CIRCLE [M]@ CAT [H][M]TAN ▞X GO TO OUT [M]@a ERASE SAVE [L]/s[M]vLN OUT FN [J]LEN TAN hK)FN /SCREEN$ [R]cs([I]NOT pS STEP XINKEY$ STEP RNDP[B][Q] BORDER "UNOT [F]#PYu&Vb@[M] INPUT %[M]EXP m'[M]_2[M] CONTINUE [M]( OPEN #USR [M]@[M] OVER SIN ![M][M]SCREEN$ FOR -[M] PLOT e?<= RETURN CHR$ 3CHR$ USR @)x[I]U<>Q▙& CIRCLE EPEEK EXP IF SIN zXwSQR INK FORMAT [L]INT >0VAL$ INT @/▝ks BORDER @ COPY [C] DRAW e3 STR$ PEEK 2_ POKE c GO TO OVER BEEP LLIST IN NOT 8n COPY [A] COPY [U]d&NOT POKE > COPY RETURN CLEAR A DEF FN ' THEN TAB ▜ IF _NOT GO TO COPY RUN RANDOMIZE LN BIN COPY L[A]▖Y▗O~ READ CLS $}[Q] RETURN RETURN STEP 0r/q@CHR$ READ _% LIST CIRCLE KFN TAB BIN [G]W GO SUB a INK STR$ GO SUB PLOT 9INT t&@[H]' CAT F7Y▚+ LET g INK KVAL [▘ INK CLEAR THEN >PL FORMAT [H]EXP A BORDER `KCOS !{C▙p[T]> RETURN >#r LLIST S[A]a[M]©D LPRINT ICPEEK LIST COPY [P]%.LN [F][A][G],W[A][G]!/[G] READ SAVE 03xG6d[G] LPRINT LIST PITh DIM FN XP DEF FN r DRAW . LINE ▜ BORDER CONTINUE WdXs GO TO ▜"N+f© INVERSE p PAPER ▛© COPY DRAW COS ©©ATN RANDOMIZE / CLS STOP ©~x©q/-@p LLIST ATN SQR /[q CLS @ FORMAT CLS 6x/[L]TAN CONTINUE ;ATN STOP /n©4{ OR )/©USR DRAW 8 OR /KSGN ©/f/d2NOT LIST OUT CLS CLS LOAD @ OPEN #L[M]H▛ CLS PI LOAD STEP Ha'' CLS [N]▜Q[H]G'BIN [H] IF GPOINT LPRINT 2!pH RUN VAL FORMAT LET [A]]fs[J]& SAVE LN x(COS NOT TAB g STEP ATN |ACS STOP PXuwLEN ©ATN b/ STOP © VAL # OR .WD/4fF0nS+/+ TO [G]bV/[ STOP ©[1/▛© INK /-▝VAL$ LN /[G] LOAD ?%SQR :pK LOAD STOP FNOT FORMAT p!vTAB NTAN TAN DRAW ,T▛9TPCHR$ l,SQR ( CAT L8cUSR [I]PI] CIRCLE [B] CIRCLE N RESTORE _INKEY$] CLOSE #[P] COPY LIST COS p LIST [A] ERASE = DRAW RESTORE INK ©? COPY @[[K]y SAVE COPY BEEP ,Y[J] CLEAR NOT ▚ LOAD SAVE /[M]@[8C LET [H] LOAD CLOSE #ACS ▞/ DRAW ?[Q]© OUT FN 6X8 MOVE LPRINT ~O[A]BIN %l COPY e[L] NEXT LOAD [M]: SAVE (x w_[E] LOAD [M] DRAW 2© LOAD LOAD PLOT LLIST >=NOT 9/ LOAD ▟ NEXT B[A]BIN L LOAD `K[A]CHR$ y[J]▜[P] REM H[U]!/USR 9 POKE qX CONTINUE k9 CLOSE #LN z LINE %SQR 2F[M]7` FORMAT SAVE USR READ v~" THEN ![J]RND FORMAT LIST LINE DATA K[Q] RUN A[I]STR$ ▙$▝[M]▖COS %^USR RUN READ DATA :`/?<=KCOS 0EXP PLOT COPY POKE Bcw[M] LIST @ THEN [M] POKE p[G]CHR$ GO SUB LPRINT (PI BRIGHT dpEXP thTAN @▘ CLOSE #h<> STEP X NEW SQR CHR$ ▚▟ CONTINUE 1wCODE LLIST LPRINT !w^> COPY © COPY USR % LPRINT w BRIGHT ^Gmnh BORDER LPRINT LN LN G LLIST fq{_ RUN lSGN LPRINT ATN }Gb CIRCLE CLS LIST RETURN sqGd CIRCLE COS ▝$ LPRINT C▘GZ[F]VAL Lb[L] SAVE G+ LPRINT [Q]'LEN Y BRIGHT G READ ▝[H]SQR [I]G!q CONTINUE @vG PAUSE C[E]SQR K STOP C[I]BIN LN ABS GATTR ▗PEEK POKE PAUSE )TAN OuVAL$ "SCREEN$ =[R]/3*_` PAPER ERASE ▗[Q] RESTORE [B]POINT y; INVERSE INVERSE ERASE DIM G OR mG7 PAPER ▖[I]<>Gn`W-G▚▛[▝G▝n#▛YGVAL d3G%n TO p9NOT ]G DRAW BRIGHT V_qG BRIGHT [E]9 LLIST WG7'G DRAW k[G]GT OR B DIM A▟[R]RND" LLIST CODE SQR d[P][I]CODE 1;STR$ STR$ INPUT _STR$ SQR LPRINT CHR$ OR INVERSE ▘STR$ INVERSE ( GO TO STR$ '<=_E[ LIST STR$ GO TO ▙_cSTR$ CODE ▖_8STR$ STR$ [ STOP _gVAL STR$ MERGE K_vSTR$ POINT [D]aVAL #XgSTR$ [C]_n BEEP READ STR$ Cn▞_[M]STR$ STR$ 7r_TAN STR$ ;AT ▚[Q]fSTR$ <=▛ACS d CLS `STR$ ` BRIGHT a PLOT STR$ PEEK IN [G]ATN PISTR$ VERIFY RUN STR$ TO PLOT ,'_rv GO TO _IN LPRINT f INK _[STR$ mSTR$ ACS |[M] LPRINT STR$ t_▙STR$ _▘STR$ FORMAT q_o0STR$ STOP f OR BIN BRIGHT 6p: DEF FN STR$ _STR$ <o[I]3[Q]STR$ STR$ p THEN READ BIN - CIRCLE [M]STR$ STR$ 8,D▚ THEN STR$ POKE UA@ STOP gKINKEY$:f_IATTR 7-z MERGE © POKE [M]VAL THEN LLIST %<wk THEN k THEN BORDER ©kSTR$ POINT THEN <t[M]_k READ THEN 3[Q]k THEN ▙k9 PAUSE THEN COPY c▝ THEN t[M] BEEP kq THEN ATTR { STEP k<= THEN [E]kg@ THEN COPY ACS k THEN ▙3 THEN ▜k GO SUB THEN Yvl THEN COPY [C]5cSGN THEN ; DEF FN CAT k BORDER [K] THEN IF PEEK POINT k THEN [M] OR ▘SQR tk<=EXP MOVE k AND Am;~k_pPOINT THEN A<=k▙Y THEN ATN PEEK THEN W[ THEN c THEN THEN FN :fk GO TO THEN ;F OPEN # THEN 0EXP VIN THEN USR @<=kg THEN BIN k CIRCLE [F]: DEF FN THEN k DRAW THEN [L]TAN THEN xX PAUSE USR ▘ OUT THEN LPRINT THEN LN OR THEN CONTINUE SQR pRND(&: THEN @ THEN :S1;fkc VERIFY IN PLOT LEN _IN [G]ASN c_IN c PLOT C▗LEN _IN [N]▜ TO NEW TO OVER PLOT LPRINT TO [D] DIM =5g OVER IN BORDER W MERGE DRAW _LN STEP IN DRAW [Q] READ _▙3IN DRAW _ FLASH IN PAUSE BRIGHT [M] OVER READ TO ©[N]6[Q]SIN /~ THEN <= TO _COS {IN RUN CIRCLE _<=9 TO INPUT 8_ DEF FN sIN LIST xVAL ;_LEN { TO CODE REM INPUT DEF FN S TO RETURN [H]<=@_ POKE |`f©_ LLIST USR USR VERIFY ;_IN [Q] READ _ DEF FN /IN AND RANDOMIZE j6_mIN -IN p OVER e{IN FN *[Q]vABS IN p;[T] CAT m TO RNDIN kIN ATN ATTR IN !7g OVER ▝ TO TO ]▚?IN DRAW `[G]A READ VIN SQR S TO USR n DIM 1p READ IF GPSI DEF FN _BCOS BIN ,`/`@▚▜LEN " THEN 0© GO TO 0 DATA DEF FN THEN CAT COPY SAVE [G] COPY CIRCLE I7 THEN RETURN PAUSE CODE SCREEN$ CATN DRAW LINE < DRAW PAPER [B] FLASH PAPER LINE ~ LLIST NOT w COPY CLS RETURN v SAVE THEN [R] RUN IN INPUT TAB W< THEN ~ FORMAT x GO TO LOAD OVER FLASH THEN hASN CODE IN © THEN X STOP ~? RANDOMIZE COPY ZATN THEN <; RUN RETURN COPY ] CLEAR kIN IN RUN RUN CLEAR RETURN [M]STR$ SIN [J]SGN PLOT RUN CLS PRINT THEN RUN IN [H]K THEN O PRINT UUZ CLEAR s THEN USR ? PAUSE v▗8ABS [Q] RETURN IN USR COPY ?&KVAL$ IN THEN B MOVE ,P THEN BCODE COS E/[H] GO SUB PUPp▘ THEN W▖, IF W` PAUSE CLS LIST ^b0 LPRINT W FORMAT Dt▞G% THEN CAT INPUT PEEK LPRINT %IN POKE c}LN LPRINT CpN[A]IN (: DATA THEN SCREEN$ [A]COS 9 THEN TAB IN RETURN STR$ TAN d BRIGHT TAN BIN ~ CLS 1▙INKEY$VAL lPI PAUSE jIN IN - CIRCLE COPY PI BORDER COPY DRAW Y$[P]AT _ DEF FN PI"uU©9kPI5b"[J]TAB PI?[{" COPY RETURN PI THEN mPI?" DEF FN ASN CLEAR [L] COPY ABS RESTORE v? BORDER PAPER "NOT PIr/"©INKEY$PISQR BRIGHT "L THEN [J]PI"▘ INVERSE CLS OVER TAN CLS r"C COPY | OUT [L]' IF INT INPUT ;LN ▞ OUT CLEAR AT IN OUT PINOT ABS ? FORMAT TAN BoEXP "PEEK Z[L]r"ZIN g BRIGHT CLS ATN LPRINT TAN PAUSE -" FORMAT RETURN SCREEN$ FN 1 STOP PRINT Ov- OR 2"[S]PI THEN 1"[Q] OUT VERIFY PLOT r"CEXP [S] OVER THEN "BSQR [M][L]| NEW LET DIM FOR ] PAUSE PI POKE 2"n }| `pg DIM 6UE9ESTR$ TAN B LLIST PLOT [H][Q]COS 8# CAT INPUT }, THEN COS 8 STEP VAL$ ▛ THEN COS O RUN INVERSE ▙fTAN OR COS WW| THEN ZPOINT COS L PAPER ASN THEN COS CLEAR CLEAR ASN THEN COS IN ;[G] THEN COS COPY GO SUB =[G] THEN COS OUT SQR PLOT [ATTR THEN COS COPY SQR VIN COS COPY PEEK ZVAL TAN ▘ INVERSE COS GTAN Y THEN PLOT D,EXP 6 THEN COS SCREEN$ K LPRINT [Q] INK RESTORE CLS TAN y RANDOMIZE > LOAD CLEAR <= OVER FLASH 8 THEN AND a[Q] DEF FN @LEN [Q]~DSTR$ TAN j CLOSE #fCOS m RANDOMIZE ,_COS VAL ;COS FN FN EXP OVER [E]COS THEN ABS cCOS [A] THEN -COS SQR COS VAL LOAD ERASE THEN COS 0DCKkPIw MERGE nCOS F [Q]kCOS IF FORMAT THEN >=▙IN pS[G]COS LN [Q][B]QFN (TAN THEN POINT }COS SIN <IN CLS OR LET [I]P. READ RUN s0 TO LIST CIRCLE [P]© DEF FN IN CLS LLIST IN NEXT ▛[D] FOR ? DEF FN PLOT IN @?|SCREEN$ SQR SGN GO SUB ">IN ?SGN | GO TO | GO TO IN LN p INVERSE 5 CONTINUE [P]IN PAPER LIST CONTINUE } COPY [G] RANDOMIZE IN ▜ POKE BIN BEEP IN =bPI; PAUSE RETURN ▗ TO o{[J] CLEAR CODE DATA 0ASN INT CLEAR pm2 RANDOMIZE >=IN CLEAR ~ LOAD SCOS CAT IN [D] CLEAR u PRINT Z CONTINUE BORDER IN LIST RUN [C] INVERSE IN NPI BEEP RUN /@?IN p=[P]0IN 2f CLS ▖IN ATN COS [L]fCOS ▘;EXP ATN ^UDPCOS <=BIN CW"SQR [E]VAL #! DEF FN [E]D~NOT <=%[E]▘STR$ LOAD M TO {▞, OPEN #PIR CONTINUE / STOP [S][O]_STR$ pSCREEN$ [E][Q]kIN }"L` LIST P PLOT CODE COS x1 LOAD C GO TO 2yD9 PLOT SQR CAT BORDER VAL$ COS GO TO ERASE © CLEAR ©ABS ivCOS [P][© OUT TAN JCOS BRIGHT © COPY f BEEP COS ▝<=[G]© RETURN CLS COS NOT A:©[L]+jCOS ![N]©<= OVER COS <=B:©▙PI' STEP © INK LPRINT TAN 7sRND©CCOS [F]f©PI DIM TO COS <w©IN BORDER >=COS RETURN IN rACOS INT t©uIN nTAN (S LIST _PEEK LOAD ▚STR$ BRIGHT Y SAVE COS B RETURN BRIGHT 0`COS I"[A] NEXT 4 DRAW [Q]UPI[K]a&H' GO TO ^lASCREEN$ 3[Q]l RANDOMIZE !LN ERASE Lx©COS EXP @COS @ POKE J©USR kn DIM ©:[H]@XH© CLOSE #l' STEP z▟$©ifCOS g©`COS [K]▝▝ [B]XTkCOS ASN pAT FLASH LPRINT /.~pASN FN COPY MOVE l<> PLOT STR$ ASN [G]_[N] PAPER ▜JASN ATTR FOR SAVE INVERSE VAL$ STR$ >ASN = CLEAR BEEP ~=LN ASN CLS CLS [K],LN ` GO TO STR$ ASN CLS y[L]n BEEP t[Q]ASN CLEAR CLS ▘ GO TO LPRINT ASN ACS v DEF FN STR$ ' CIRCLE ASN A THEN [Q]ASN SAVE * PLOT `ASN CLS SAVE (COS FOR SGN ~ASN >= GO SUB IN RUN [D] CLEAR PRINT X[A] CLOSE # RETURN LINE OUT LIST >[M][A] NEW CLS OPEN #CHR$ STEP /▝PEEK rbpJ TO } GO SUB IN 3 ERASE . INVERSE ▖▘ THEN + PRINT TO [I])S FORMAT -ASN COS CLS |STR$ ASN `ACS ALEN ASN AT IN STR$ ASN LPRINT 0 PRINT PAPER ▝ASN 7STR$ l DRAW ASN FN OUT Htp[N]>=})[A]+NOT FLASH BRIGHT BRIGHT ASN ` reqZ CONTINUE ▝ FORMAT LOAD THEN ]=IN ABS THEN bFN =LEN CONTINUE n©FN COPY LPRINT Y&[P] PLOT oCHR$ SAVE 7 LINE ATTR SQR COPY LIST CONTINUE j NEXT LIST TO GO TO TO 0N TO RANDOMIZE CLS ▜ OUT OUT BEEP n8p>▜ CLS OUT FOR 6 COPY + SAVE ©A INVERSE OUT OUT PAPER IN ACS OUT ![T] BRIGHT BEEP PLOT © OUT BORDER ▛[M] LLIST COPY BORDER INK [O] FLASH ` VERIFY b BRIGHT ~N LOAD PAPER COPY [H]xv} INVERSE COPY LINE :P INK SCREEN$ _ DEF FN n' STEP [K]COS CAT LOAD ▖[P]TF? OVER CAT [N] MERGE LN t FORMAT ?9$07FN LPRINT hk78 CLOSE #p CLS F RUN S CONTINUE n COPY INPUT [R]▝(g PRINT q THEN {>=eTAN ▝ RUN [O]▞ CLEAR VAL "STR$ 4 INPUT k55TEvNOT OVER ▞R PAPER DEF FN PLOT LPRINT g BORDER g4▗~©USR "Z&#` CIRCLE LOAD ▜ LLIST RUN LEN BIN INT @ GO SUB r▜/" LPRINT CODE OUT z[J] FORMAT COPY ▗zF7KATN *AT IF [S]▖INKEY$+PICSTR$ BIN STR$ >J.KSTR$ LIST PLOT GO TO ©▚SQR STR$ PEEK LOAD USR VAL$ STR$ FOR CLEAR rSTR$ VAL$ vZSTR$ OR [G]STR$ PEEK [T]/5(STR$ IF LIST @ LOAD [Q]SIN STR$ THEN ▝STR$ ;,STR$ USR | DATA V LOAD - POKE MERGE ©} CAT FOR (Io 9▛f} ^>[A] OUT FLASH L#= OR p[F] OUT SGN iy STEP POKE INVERSE >0;o OUT 5STR$ ASGN ^&STR$ ▘~ CIRCLE STR$ [U]'T^ STR$ e!?EH▞$▘d[I]ABS k;O CAT STR$ >=[J] CAT L"@ DEF FN CAT f CIRCLE ru CAT BORDER COS ~/3`9 CAT 3[%[A] CAT 9COS CAT EXP A DEF FN CAT sVAL$ %[A] CAT 9COS CAT D/! BORDER CAT )r/ VERIFY n/~ AND [P]P! BORDER CAT SQR LLIST jP^ASN @ ERASE BEEP = CLEAR STR$ LET INK ABS NIN h0 PRINT AT _ RANDOMIZE FLASH r CAT [M]s CAT BORDER CAT fWnr CAT |o[M]COS CAT 3[O]p`E LINE ▝13 CLS ]USR ih RANDOMIZE ' DEF FN ;% FORMAT '-SQR ' THEN DIM j'CHR$ Ah9' DEF FN 5Z'/4{ RESTORE /▜[Q]''iqh9'E~ACS [P[O]q'Np CIRCLE &RCODE [K]{▜ CONTINUE @g"[R]-I>=VAL$ o[I]~ PAPER Z'<[M]kTAN TO ' BORDER -' PLOT [L]]BH?; THEN E STOP Ip[S]&k CONTINUE USR Wl LLIST ;▙CODE LLIST [Q]6a?ABS ^ACS THEN ],^o GO TO ^IVAL CLS ^SQR STOP [T]a^ CIRCLE v^Y1 IF VAL ^ CIRCLE GO SUB ^CODE @ BEEP [Q]GNOT f^ IF RESTORE LPRINT ▝ OUT STEP ▗^PEEK 3LN RND- FLASH ^CHR$ N▟^EXP >B INVERSE BRIGHT )4SQR AND tk'0a $▖[R] OVER REM CONTINUE [K]h[I] OR ^VAL ]^ IF LLIST W▖RNDX^U(=2 POKE @USR 4@BIN SIN E CIRCLE RND15XABS SC FORMAT ![E]FN ASN ©L<PA ERASE CODE t[G]e[A]CODE '[N]CODE IN nI6HCODE 9 COPY ERASE VAL$ CLEAR CODE - INK BINT CODE p[U] FLASH XCODE 7 INT LIST BCODE spxr[U]CODE ][7B[K]CODE pzFN <;iv CODE [C] OR INPUT LLIST CAT RUN LIST ? PAUSE ▘O PRINT BEEP WWZ[H]~7 NEXT IM FORMAT '[F]ABS 8 TO SAVE FORMAT IN DEF FN V▟#▟@3ICODE INT CLOSE #HCODE OCODE [U]CODE DRAW l DIM CODE [N] DATA s$CODE [A]tCODE [N]k!$CODE KLN :<>[E]hA(USR K='(t▘^MPEEK INK ▚ PLOT [T]l@▝USR 8n OVER FOR [S]!4 CLEAR <A_ OUT C GO SUB *SCREEN$ CODE ] VERIFY USR cLEN op NEXT [Q] NEXT INPUT 7©CHR$ < GO TO LOAD IF n THEN SIN O{ LLIST CLEAR 2[}E CIRCLE [C]%{ PLOT READ COPY [P]#COS LPRINT STR$ - INK IN @PIh COPY ©<>LEN v RETURN c[B]]▜]$ GO TO [G] COPY QU LOAD |M$[G]I0 POKE STR$ [C] / OUT 0C LLIST A_ READ C?CHR$ N CLEAR STR$ D>= TO AATTR wcINT GO TO ABS >= OVER |6 GO SUB , p OPEN #b ▝W[R][A] IF BIN 3R STOP LET 3G CIRCLE VAL PS[G]VAL$ ? ERASE ! STOP :rTAN RUN DEF FN ATN READ r SAVE } DEF FN OUT GO SUB r DEF FN <=Crc[Q], LOAD [E]rv`IN wA CONTINUE ACS [J]crt PRINT -sr TO LN DEF FN 2<=r CONTINUE PLOT VAL$ GO TO rC OVER -▙r3rTAN THEN CHR$ BORDER CLS ~ DEF FN OUT r[H] CLOSE #PEEK DEF FN BEEP IF READ rINKEY$[C] INK &Ap CONTINUE ' LLIST RNDqi!YPEEK FLASH r DEF FN ▙▜r AND DRAW XATN READ r SAVE ^USR LOAD rW<=Irt}t[M]f INPUT SCREEN$ @<=rBSTR$ SIN 7K VERIFY DEF FN M9 ERASE [Q][K TO , CONTINUE TO f THEN NOT ▝ TO [B]+nqt TO [H]+K THEN ATN rK PAPER 9CODE AND TO [B]▝n TO OR PAPER TO 0 CONTINUE ACS ERASE -7 TO REM IF TO COPY DEF FN LPRINT LOAD ▘▝ TO INPUT M`[Q] TO SIN /QATTR ] DRAW X4 TO f▖FILN PAUSE KNOT ▝ RETURN SAVE [K]I,[C]AVAL$ ▘[G]<>IN OPEN # THEN CHR$ LPRINT VAL [T] PAUSE K[S] GO SUB /[R] LPRINT IN [R]b LET [Q]rK<h TO f TO LIST ?[Q] TO DRAW ▘k▙ NEW COPY u FORMAT TO hvh" TO BEEP % CIRCLE [L]-[J] CONTINUE t*©KUUSR c MOVE IN *LN WuSQR IN p THEN IN EXP [O]aIN ▙}FIN [J]<><}P STOP COS [C]CHR$ COS POKE CLS [R] [[F] VERIFY COPY bIN ATTR ▗ ERASE ?IN PRINT ,ATN IN WVAL FOR IN [Q]/IN zj RANDOMIZE THEN <[G]VAL ▖<><>B=s FORMAT H@ VERIFY TSTR$ VERIFY COPY CONTINUE IN LET K<QXNOT c@ABBCDEEFGHIIJKLLMNNOPPQRRSTTUUVWWXXYYZZ[//▖]^>=_h`INKEY$▗ THEN VA$(S.Q4O:M LPRINT `@KJHHGFR[S]USR DCZTA@?>>=<;;:98776544322100/..-,,++*))((''&&%$$#&"!([A] FORMAT [H]M*$(▘-./41STR$ :3@56H8STR$ 9:R<=Z#] STEP [!ue CIRCLE GO SUB VAL FLASH SAVE > FORMAT 5q*!b%*b{MO@ NEXT ▞USR >BIN ©@ STEP :e6NOT #6!2(d▚Md>O' MOVE f RETURN >X2 PRINT d STEP COS OPEN # CLEAR LPRINT CODE 24>2 INK |[Q] CLS OUT < RETURN ( CLS RETURN CIRCLE ©LeDF[O]/T▘lX[K] CLOSE #J[M] CLS v NEXT 68 OPEN # CLEAR > AND 2 STOP co&b~ VERIFY O/ NEW ▜ AND o DEF FN d[F]g~ SAVE -#fy[Q] NEW o GO SUB s"d RANDOMIZE NOT RNDV&USR LPRINT USR LPRINT USR LPRINT USR LPRINT 1) LPRINT [O])2,d)▗E8 LIST USR | AND LPRINT g/P?[I]>: POKE RETURN 3CHR$ STR$ PAPER c[I]! COPY Z6+ THEN t RANDOMIZE !z PAUSE [Q]▝ MERGE ▖<>ACS =9VP@Ut VERIFY ACS RETURN LLIST [ LIST I:/ GO SUB V RUN bC▘ INK b INK y[P] DRAW 2 CLOSE #dx2 GO TO /b MERGE 6[S]USR INK } INPUT 2 LINE dO INK { AND _ INK ▚▝ COPY O? THEN 0#x RETURN (▘$ INK } AND o INK LLIST MOVE | RETURN X THEN <>$| REM USR )FN CIRCLE | DEF FN DRAW VERIFY g<>z▞ _ CIRCLE z BRIGHT W<>TAB &!Vw# DRAW PLOT <>[M]k STOP LPRINT THEN 0xLEN ▙<>a{6A LLIST LN &"#s#r# PAUSE MERGE OR FOR !qe[K] FOR DRAW STR$ MOVE _ STEP e PAPER g+)i`9@▗ RANDOMIZE COPY P GO TO [K]▝U RETURN CONTINUE !oNOT :gNOT [A]j PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8C OUT CHR$ AT [A]P LPRINT {▖[O]Q>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#x(ATTR *▘[R]@ RANDOMIZE PLOT T|sI%s STOP >PIlgM RUN ;ACS 'fs[O] INPUT TO <>[T][L]INT DEF FN p©P DEF FN {SQR [L]'[N] DEF FN < FLASH l OVER ' INPUT `VAL ▘='u5 LPRINT VAL LEN , NEXT RESTORE "/h RESTORE ~2CHR$ k2[E]j##~#" ERASE g "*y"" RESTORE g^#V#"hOWqh LLIST *hSTR$ STR$ ![L]-gSCREEN$ p COPY COPY [B]CODE 2)g2*[S]+▝N©SGN h SAVE 2;i2ABS STOP zH_▖jG/21▛[A]▞+[B]i>cQc RETURN j▝YT!EXP f"k"▗BSGN i"▜+Pj STEP h GO SUB SAT jSTR$ GO SUB s SAVE g1y <>f> LLIST FOR %[R]B FOR = PRINT z)g>(5 RETURN MOVE [U][Q]/D#[E][L]h"USR &[M]i CLS NOT <x,~▜d )?▙CODE 8 INPUT ▚▜EXP BRIGHT RND RANDOMIZE LPRINT F$ NEW B" LINE j@& READ j& RETURN CONTINUE <>{▜_ CIRCLE ~0 RETURN THEN GO SUB [Q]. NEW THEN Z PRINT 22g LET ~ NEW #ng INVERSE b FOR a+ INVERSE }8*4e fo THEN :8 GO SUB R<><>><(w▗HENOT Oy<PEEK # B[F] LOAD hbvh FOR x_[P][G]r PAUSE INVERSE .Y STEP Dh3:7 FOR RANDOMIZE IF CLEAR h(& RESTORE <{PI PAUSE BRIGHT LET DOPI GO SUB B LLIST LPRINT 0 LLIST 32INT 92Q▘ LLIST COPY LINE hgo"STR$ h" OPEN #n[H]!▙ INVERSE L CLS |23gINT ~ PLOT [C]4^zh[C]^iOBIN ^/E^.4^|i^[i0D^9i<>d^I@q!RTAN BIN STR$ ^!ElACS w-Ba5%)a{a[G][T]a[H][E][H]a0a RETURN ▘"a INVERSE Ka`SQR ` THEN `CHR$ [a CLOSE #&paE8aRb&6g!9 CIRCLE RETURN ▜jIN COPY VERIFY !AT COPY B GO SUB yC GO SUB ATTR =ASN ▜big<> LPRINT DRAW CODE G>=▟FN R(>=("=CHR$ h! LPRINT 5 PAUSE 6 RETURN a PAUSE PI TO [T]H STEP Ul TO INPUT 2 GO SUB jNOT h7*xW STEP ymLEN LINE X6Rk[L]+ GO TO jbAT n DATA <=lE▝[E]CODE 0[F]s DIM [F]h LPRINT -[I]]<>I RETURN INVERSE "[I]h▙ NEW 2bSGN ZpZ';▗2%kB CIRCLE [L] ERASE CHR$ DATA OPEN # INK CHR$ # SAVE /V<>RND> DEF FN USR DATA " POKE 0lDX- DATA X-Ds LINE CHR$ VERIFY VERIFY ;%LN ▜e~[D]RNDDf CLS 2[K]YXRc ERASE wH& FORMAT .▜[E]W7g>6ABS ATN OPEN #2<k:M STOP ▜ky2k[D][P] RETURN j>7▜<>$COS :INT @ RETURN ▜UUSR STOP ( PAPER o<>▜90!<>eCHR$ [S]o7PINOT 8& SAVE ▜LkPIx PAUSE "li>[N]Gk-N OUT 6| PAPER o NEW Sg"AH DATA D8 OR INK VERIFY SCREEN$ REM ▞j AND 8+ AND `8 AND 8g DRAW a1 AND @8 DATA LET <=▙<(v![K]{VAL < LINE gH[O]O CAT (%gfg"SCREEN$ B~g▜ PLOT RANDOMIZE /5[FN ▟6[L]▘[H]PI<>$ PAUSE NEXT [K]( GO SUB RETURN ( LIST [I]f CONTINUE >bpSGN k2ABS VAL$ #NOT [C]▘CHR$ "2PI< REM SIN LINE COPY l CIRCLE EXP P[R]8hc▝<F.r[S]▗:▘bFN INK USR m PAPER TAN ▗H▘"VAL 9LEN LOAD BSTR$ FmrAT N[Zo?( ERASE .o[R]©N RUN >=4PSgO`GmATTR '[E]ea SAVE FFN jBIN *[Q]eDSGN z[K]4E]dMr":SQR ▖ CONTINUE 0 CONTINUE ▞IN 8NOT 6n2 DATA i:pB▗[L]MJ=q[D]"[G]i<>L AND DIM LINE i MERGE Pn"X RANDOMIZE i TO *PId[D]7 DIM CLOSE #Lr70ABS i▜ NEW CLS LLIST I STOP NEW & NEW & PAPER J, DATA NEW g LPRINT / COPY ,[S]aACOS NEW STEP ed CONTINUE CLOSE #($ LLIST [J]vn LLIST [M] POKE READ m PAUSE 4> COPY LN dx<>>=>=>=▝D>=USR 7( DEF FN TO &tIN INK LINE U OR FLASH <6SXlCOS FORMAT NEXT ▘ ERASE 2 AND AND OPEN # LINE K OVER REM [S](<[H]Beware Zandramas!Mixed by Ja GO TO [O] BRIGHT [Q]BBe PAPER COPY LET IN LIST 5ATTR 9e/JR FLASH ▛ GO TO ;[l~ FLASH bTAN BIN "u RANDOMIZE _STR$ "zLEN LINE SIN ▛ RETURN /6OPIUIQ RETURN TAB POKE GO TO .@l▛▚b[ACS FLASH IF :XBIN kNOT /"`/LBIN RANDOMIZE ▖ NEXT [C]S READ ©aTAB DATA TAB RESTORE TAB READ TAB NEW 2E NEW ©bATTR DATA ATTR RESTORE ATTR READ ATTR NEW NEW / NEW ATTR RESTORE )a PLOT 'POINT DATA POINT RESTORE POINT READ POINT USR ATTR [K]AT $ STOP ~F`TAB LLIST ©▞"X<>▞![Q][C]ZPOINT #~TSCREEN$ $~PCHR$ ▗l PAPER COPY [L]z^FN "~<VAL hSIN "H▚. OPEN #[A][T] CLOSE #?D") DIM ©`[I]! FOR VAL CODE $1 DRAW ~[Q]USR VAL TAB 8p%FN ! REM TAN TAN TAN TAN FOR [U]#POINT !FN STOP ! CLS OUT INKEY$[U]![P]/ LPRINT %FN CLS !FN P RETURN [M]PIhY▘PIb PAUSE #(I▝!D STOP TAN POINT 4[L][K][D]S<>LATTR <[A][K] LPRINT ! LOAD [O]TAB TAB ?8[S]9y$ MERGE ?tpCtNOT GO SUB 1[I] INPUT ▜[I]pSTR$ [I] GO SUB E DRAW INPUT ?4aEXP EXP "▝STR$ EXP pi~"App#p/ATTR 'USR POINT !TAB [H] CLS h M/ COPY [P]* SAVE D[R]!O#[P]!s GO TO [M] [P]S FOR K[U]INKEY$FN ")" DATA ,/TAB $[S]xn MOVE =NOT CODE TAB #CODE ▜8T>F& REM SQR %<=0VAL (LN # LLIST ?,ABS #[M][K] VERIFY X NEW b[M]▖POINT [F]'& OPEN #*T@*ASN 7 REM ATTR CODE ) OUT INKEY$VAL 6 MERGE 1I:6 COPY ATTR %CODE !VAL CODE ^ATTR }MFN STR$ $' LPRINT ATTR G▛INT dTAB %h0BB REM FOR FN SIN TAB ATTR VAL ▞ LIST ©eCODE < POKE [B][P]i- CODE DATA OPEN #▙*0[I]©% LLIST NEW PAPER RANDOMIZE OVER [M] AND RETURN [T])[R] DRAW ▜!8 bATN "bIfp@▝ INPUT BIN ▗[R] REM ©cINKEY$TAB FN INKEY$ATTR CLEAR LPRINT =IvINKEY$BIN THEN <FN _PEEK LLIST ` %# STEP aSIN STOP VAL SIN ▖%_fSIN LET SIN VAL SIN / SAVE VAL READ `[I] RANDOMIZE By[P]' PAUSE f#USR ▘nA NEXT k#l( PEEK READ EXP LPRINT INK xD!b STOP LPRINT SAVE ASN LPRINT ASN LLIST POINT " DATA dV<= LPRINT / AND <USR @:c REM DATA V▝[E]Q5$[I]6v4OB INK P[Q]( GO TO !VAL #STR$ o:[A]iLEN K ▙]s CIRCLE ▚lm! LLIST TO (U<=INT l GO SUB $[T]rPOINT POINT X TO LOAD ASN / NEW SQR l▚e CONTINUE LLIST [M] DIM © LOAD P FOR ATTR AT i^ NEW m#t!kp`@SQR LATN [I]( OPEN # BRIGHT /a▝▞[F]@0[F] NEW POINT POINT EUSR [J]▞"[I]*% BORDER [F]# CONTINUE [C]! BORDER [B]#[C]%[D]! CONTINUE [A] BORDER [D]wLN " BORDER SQR [D]%WCODE x[I]%[B]▙ STOP 5E DATA 0 CLS [A]1 LPRINT BORDER ?"[M]![K]-[F]![I]#[N]&[K][K]@[E]▜ NEW READ USR + DATA NEXT !ZA CLOSE #YP[Q]B▞5be7[R]E▘ SAVE ?I[I][M]#[R]%[T][P]#[T]%[U]J| INVERSE [P]%[R]©BV[U][K]3 INPUT [A]#▙[D]▙%[A]▘POINT dq[I][H][P]d arCT( CLEAR * CONTINUE OPEN # RETURN # RETURN POKE [C] CLEAR *c[F]z[F]K THEN [H]0< GO TO [N]%[M]3▛6 INPUT [A][D]VAL ©▚a▗ BORDER [B][R]OVAL [S]0zUSR AT SGN ▘[J]2▙▘▘COS POINT LN READ TAB TAN #VAL % SAVE SIN !▜?J!nW DEF FN CHR$ 3TAB LET '[M]▜V/CODE `JE&4 COPY L AND PLOT CODE #ATTR ! DEF FN NEXT CODE ~ LPRINT MERGE CODE POKE VAL SIN " BORDER ATTR p%VAL $WLEN ATTR p'TAN STR$ !SIN 0 PLOT 0TAN EXP !p PAUSE ATN TAN 9TAN SIN LEATTR VERIFY B▜=8 LLIST 2_ DRAW pK)"▘COS wp▜Npe CLEAR THEN [P][P][P][M][M]`[C]ATTR |$>▝ CAT @ STOP 'eTAB ATTR #TAB !B,8#B8z▝TUSR ▗b"ZV[Q]B[A]p[D] FOR STR$ C GO SUB ICODE %TAB $CHR$ DATA [M]BIN "▗ RANDOMIZE INKEY$[D]FN COPY # STOP SGN NEXT -[I]▝zp[E]ATTR BIN m FORMAT &O$VAL STOP [N]SIN ATN #TAN *9 RANDOMIZE SIN k▘V▟5Fp NEW bPOINT L SAVE POINT POINT POINT ^#APOINT b[I][I]9di#hVAL !fSGN 8▛"NOT DFN P4CODE ▘ LIST INKEY$![U]"kAT [T] THEN ATTR GO SUB SGN AT qNOT INK [D]g IF ."FN NEXT f?SIN pp'Z LLIST ▚[R]?Tf2 LLIST T/b[P]a[R]'b[N]![P] RESTORE `s SAVE [I]" BORDER B BRIGHT COPY SAVE LPRINT /n+'?Te. DATA USR X:% RESTORE &[E]pMlIN ▖ RESTORE LLIST CHR$ Q RESTORE ((fUSR CLOSE #E]Ht RETURN tQ[R]*"bPOINT , LPRINT ▛z/©8vH LIST ^J#$ OPEN # INPUT RND>=NOT OUT FLASH CIRCLE pP, CLS d[P] INVERSE BEEP .` POKE STEP COPY {! LPRINT #p LPRINT 7 INK N& FORMAT STOP USR USR OR BIN 2#RND|:[N]] ERASE ▝NOT BIN @d CONTINUE SIN 8T[Q]▜IN [A]G@▘▗CHR$ MERGE LPRINT VAL$ DEF FN LET M@[A] LIST s▞[S]CHR$ K MOVE {/▝@CHR$ SIN USR [T][U]p| DATA /+` FN VAL %A(D) OR USR 4 NEXT [A][A]Wj▘]!H[B]L/▝[T]& INK ▘5Wp[S][I]p$Z*`[S] ▝PEEK CHR$ @b ERASE *,[Q])[A] CLOSE #; VERIFY 1BSGN D FORMAT SIN B DEF FN K,p1 LOAD Ep[B]]LN D`[T]` INK LIST THEN :CHR$ [S]D LIST NOT [I] STOP 3STR$ COPY RESTORE /CHR$ % STOP LLIST OUT MOVE LET OPEN #[R]*| DRAW VERIFY ~098 LIST REM B!ATTR 3 LPRINT ^UhqK}@2AT >=Pe;FN /[A]+G52/ CLOSE #5 COPY ATTR OUT DRAW LEN LLIST P`VAL [F][C][F]▘K[L]p+ATTR ][F](LEN =POINT ▛FN ~]U? 4 LPRINT 4 MOVE <STR$ ,SIN 4[S]H DRAW [C] OUT 2▝c THEN BT PRINT 8▖▞ REM >v LPRINT ▝ STOP ^ATTR RUN o LET CLS ©X COPY READ ▛AT 8 PLOT PRINT OR MERGE RESTORE INK QE$ INVERSE RESTORE CLEAR RESTORE STEP USR STEP BORDER d CLEAR LLIST INVERSE LLIST LLIST MOVE STR$ LET INVERSE PLOT N,u CLS <>SQR `2 LET ;o FOR LOAD RUN REM RETURN @ REM (P*D *▝+,&0-VAL .)/YCOS X $(-26:!@DHLPVQZ^0~ >8ACS SAVE [E]©p/VAL LET [P][H]VAL CAT CONTINUE v OR VAL USR jMBIN B4:H4ABS Y(*VZ CLEAR AT OVER COPY ▘ STEP LLIST dCODE OPEN # RETURN STEP AT @$@ DRAW 4w GO SUB VAL COPY 6GF[L][F]} THEN CLS , PRINT !VAL [I][Q] OVER RETURN >=0vA<q#z AND W0y< RETURN >OUSR BORDER !b[I]0> PRINT RESTORE [U]&R0 IF y GO SUB D LLIST w# LET < NEW "v RETURN INK >@2▘▘ INK GO TO | GO SUB S PAPER RANDOMIZE 3 OPEN # CLEAR INK >="^r[S]> INVERSE o!>=[J]@[J]CODE [N]MCODE @6O INVERSE &y REM )INT # FORMAT INT INVERSE 8% COPY ▝ LLIST >o[F]g REM ▖ MOVE _[D]WSTR$ STR$ !<=[J] INVERSE L*▝ INVERSE ^ INVERSE #w+ PLOT TO $ [E]USR [J]"< EXP K MERGE OR { AND NEXT }^[I]z DEF FN V$_[I] MERGE STR$ ATTR ]A[I] FORMAT BIN GO SUB [Q]y` RETURN ;F PAUSE CODE 8 MOVE RND~@ LPRINT VAL AH RETURN TO LLIST FOR DRAW COPY NEXT :(2ACS <<SQR RETURN [Q]CHR$ s▘! LPRINT W INK LIST 8[M]1# INK } INK ▞l LLIST INK | STEP ▘[R] READ {m6 LLIST RND DATA * CLOSE #[L]}[A]x LIST _ STEP [C][I]k VERIFY >~ GO SUB ▖©V^ CLS STEP VAL STEP OPEN #`JAT * MERGE THEN ~ RETURN IF v;( IF NOT [B]>FCODE w CLS v INK ▝ RANDOMIZE Y▘k INK [Q] l*A& DRAW COS <> OPEN #USR ▗1 MERGE DEF FN ▜ASN INVERSE n&FN STOP ▞)ATTR <>[R]~#Nq LIST SAVE STR$ MOVE INPUT LPRINT MOVE [D]E LPRINT [Q] CLS ERASE INVERSE "P` ERASE <> BIN ©- EYE ACH)A? FORMAT STAFF:J OPEN #DESIGNSTR$ TAB R7lMAX [A] RETURN IWAMOTON`CO!HM▘▝MUoC@[T]10,}bzNOISU CLEAR aOENDPART RETURN $JAAN/PH#, DIM USR GFXaB(TRND LLIST WIN(.▚r STOP N?C9[J]STR$ 4-s LPRINT BORDER [R]@250%NOT STR$ AL8V HXHE▝-EY 58, 3>[E]178 DRAW KH[N]KPp LIST UKRAQ[T][M]F5z638A LN THEN ADxBF[E]A FORMAT >=SH<VD06$;6;dA?EPRE69 MOVE EDINKEY$o[B] READ FN P: INPUT GO TO _& FLASH LPRINT NEW AUG BRIGHT 199,~{ COPY F USR COPY INT J``p008< DEF FN GlE@ RANDOMIZE IN 8▘▘( PRINT ▝▘INT De CONTINUE >=b0`*TQ RETURN I LPRINT /p`[U][M] LPRINT RESTORE LN ]i[I] RETURN V;S RETURN x@SQR ASN K=IN BIN >▝ RANDOMIZE 6vf NEW AND NEW E LIST nl|8©< BORDER q8 INVERSE c<~"[K] DEF FN po RETURN 6 DRAW d DEF FN TO N DEF FN 1V[A]PI DEF FN GO TO |<SQR [M]~ DRAW ! LIST x[ATTR DRAW xy LIST BRIGHT TO DEF FN $(RND OPEN #6[I]B@/ LPRINT ?|l/[J]H GO TO *SIN fv>8 LIST LPRINT 6▘[H]USR Q▗!▜[L]CODE /o READ ,▛VAL LIST _ RETURN OVER NEXT GO TO SGN AND CAT BRIGHT SAVE DRAW CIRCLE [Q]©<ATN w'x>STR$ ▝ DRAW SAVE IN DRAW CODE NEW GO SUB >~USR PLOT IN @ OVER =>BIN ~>! RETURN ▟[Q]EG▙8_$$ CONTINUE RNDZ9STR$ RETURN BRIGHT CIRCLE SAVE pK AND oV:`VAL USR ACS STR$ `0▘ AND INPUT + VERIFY ox5hSTR$ CIRCLE Y INPUT ~ DIM RANDOMIZE CAT IN LIST ▝x© IF © VERIFY VERIFY INPUT jdv; DRAW CIRCLE CIRCLE Pxv@ CONTINUE [J]p8 F LOAD >VAL$ CONTINUE CODE ? LOAD [L] LLIST 26> PRINT IN VERIFY ▚ INPUT [F]o INPUT L h OUT > OPEN #VC OUT DRAW USR #E DEF FN /& RETURN ~ GO SUB sUSR [C][I] COPY wV( POKE (2 RESTORE [H]o&~▜▚ AND VAL o DEF FN [I][F]gm©[R]IsVP GO SUB S[I] OVER GO TO [I]5[N]^▛b[I]N`![A]HCODE NOT USR SGN = LPRINT <> RANDOMIZE V DIM e MERGE 9▝2u CAT INK v85gw*NOT [I]▝8 OR !``gz-STR$ STR$ USR {, CLOSE #<h+Wv NEW <>|%} VERIFY :ABS X BEEP ▜ CONTINUE OUT oUSR ~ CLEAR FLASH LIST COPY 1ov LET FLASH ? LET USR CAT CAT LET CLS RUN <= INVERSE SAVE ?c]ASTR$ [C]v' MOVE [E]`+c▖>000 "$&(*,.©[K]2468:<@BD DRAW F>[Q]( RETURN HUSR ▝E/ COPY VAL$ VAL$ IN STR$ AT SAVE ▖FN LN [U] SAVE [R] OR (N▙IN @0 RUN SAVE 8PEEK <=@ LET =H LOAD PXy|`▖ RETURN COPY NEXT h DRAW OUT cp CLS >x NEXT <"V▖[I]<= CAT RUN [A] CLEAR PEEK [I][Q] RESTORE RESTORE FN VAL LOAD NEXT LN yIN USR >=|y FORMAT LOAD CLS CIRCLE ^ OVER LPRINT CONTINUE >_ LIST SAVE [H]CODE USR N OUT CHR$ BORDER PEEK @ LET == STOP TAB LOAD [B](0 GO TO AT 8x|@dATTR READ {H{BIN PSCREEN$ c/X▖`>=POINT <= RUN h LLIST ▖p?/0x GO TO PI▖x|[A]dINKEY$ READ {[I]{BIN [Q]RNDc/FN ▖VAL &w LET LN = STOP USR [T] LOAD [B]>= FORMAT GO TO [S] CIRCLE x| LPRINT ▙[P] SAVE CONTINUE LET LIST ACS BEEP / SAVE 9[H][I] OUT <=NOT LLIST OUT ▙ BEEP OUT ▙ OUT LET LLIST OUT ; STOP 0<=▜ OUT INPUT ▖@ OUT PCHG OUT OUT ACHR$ OUT USR OUT LLIST ▙ OUT STOP LET ▜; OUT ▖<=[A] INPUT OUT PAUSE [Q]/FN PAUSE PAUSE /VAL /LN LN # OUT BRIGHT <> OUT FORMAT pG OUT LET SAVE LPRINT NOT OUT BIN READ LIST w OUT MOVE ▙ OUT ![I] OUT VAL BIN [P]A OUT (GG OUT PAPER COPY #(SGN TAN 0PEEK SGN 8@ LET CLEAR H" LOAD PXE9 OUT THEN CLS `h OUT LOAD p PAUSE x PAUSE PAUSE ▖[A] RUN CLS [I]PEEK <=[Q] LET =FN LOAD VAL LN {|USR OUT READ >= SAVE FORMAT <= RUN CIRCLE =PEEK LPRINT CONTINUE LOAD LET LIST @ SAVE [H] COPY SIN VAL ;`[R] NEW AND oATN ## CONTINUE ATN LPRINT ATN # CLS CIRCLE ( LET 0 LPRINT >= LET 8LN USR @LN LN HLN VAL PLN 1FN XLN ``PEEK <=h LET =p LOAD x{|▖ OUT READ [A] SAVE [I]<= RUN [Q]=PEEK FN VAL LOAD LET LN |USR READ {>= OUT FORMAT CIRCLE RUN SAVE LPRINT PEEK <= CONTINUE LET = LIST ▙ LOAD SAVE ▜<=xt GO TO ▙<=7 INPUT ▖ |CHR$ ▙x0' GO TO ▖<=@CHR$ INPUT x|P BRIGHT ▙ READ + SAVE XwBIN `PEEK aG<p SAVE p OUT <= RUN =PEEK ▖[A] LOAD LET [I]|[Q] READ {FN OUT VAL LN RUN SAVE USR PEEK <=>= LET = FORMAT LOAD CIRCLE LPRINT {| CONTINUE OUT READ LIST SAVE t©>= READ {}BIN SCREEN$ ▝ OUT GO TO POINT OUT ▘v OUT [H]; OUT ▖<=Ho GO SUB BORDER PX TO PAPER LOAD `▘| RETURN COPY OUT c>RND DRAW v TO pSGN OxG PLOT [I]9 OUT NOT © OUT OUT BORDER [I]c~[Q][I]VAL FN / GO TO VAL }[P]LN THEN CLS USR >= BORDER THEN FORMAT ~ OUT CIRCLE LPRINT PAUSE PAUSE CONTINUE LIST POKE RANDOMIZE SAVE NOT "VAL$ <=<> CIRCLE vL<=<=▙FN OUT LET RESTORE OUT LOAD 08 BRIGHT =PEEK OUT H STOP LET P[; BORDER X OUT READ `#hPEEK ASN LOAD p LET =x; STOP READ [/▖ OUT [A][I] LET SAVE [Q]TAB ?FN LOAD LET VAL |LN ▙xUSR SAVE VERIFY O>=<= RUN FORMAT <PEEK CIRCLE LPRINT kGg CONTINUE {| LIST OUT READ SAVE [I]6 OUT LINE USR OUT j<= OUT TAN #=PEEK ( LOAD LET 08 OUT PAPER @ SAVE H<= RUN P=PEEK X` LOAD LET h|p READ {x OUT ▖ RUN SAVE [A]PEEK <=[I] LET =[Q] LOAD FN VAL {|LN OUT READ USR SAVE >=<= RUN FORMAT =PEEK CIRCLE LPRINT LOAD LET CONTINUE | LIST z SAVE [H]▟▝ THEN 1+ CAT p▗COS IN GCODE 8b CONTINUE d[P] OUT BIN PAUSE SCREEN$ 0>=pw OUT ▘# BORDER A OUT 2'' RANDOMIZE [U]P NEXT [T]▝IX NEXT [S]`ATN ##xh|LN OUT READ {x FLASH <= OUT =PEEK [A][I] LOAD LET [Q]|FN READ {VAL OUT LN USR RUN SAVE >=PEEK <= FORMAT LET = CIRCLE LOAD LPRINT CONTINUE {| LIST OUT READ SAVE CIRCLE IN e OUT TO G v GO TO ▙A CIRCLE 0▝ FLASH LN 8x|@ BRIGHT ▙ READ FN HvBIN P_ LPRINT [I]X#`ATN 0h LET SAVE pLN <=xx NEXT ▖RND BEEP OUT [I]1LN [A][U] NEXT <>[I]FN OUT COS [T] COPY <=fLN VAL SIN G[S]<=|LN #j OUT [I]ASN ?>=" GO TO FORMAT ▗=[Q] CIRCLE j<= OUT VAL c GO TO [I] CONTINUE [P]/ LIST SAVE PAUSE }7 STEP {t OUT READ SAVE <= RUN (=PEEK 08 LOAD LET @|H READ {P OUT X` RUN SAVE hPEEK <=p LET =x LOAD ▖{|[A] OUT READ [I] SAVE [Q]<= RUN FN =PEEK VAL LN LOAD LET USR |>= READ { FORMAT OUT CIRCLE LPRINT RUN SAVE CONTINUE PEEK <= LIST = SAVE EXP k<= DEF FN IN GO SUB ▖;bATN ▙X[P] X BRIGHT FORMAT ( ERASE ▙0 PAUSE PAUSE 8@ PAUSE PAUSE HP PAUSE PAUSE X` PAUSE PAUSE hp PAUSE PAUSE x PAUSE PAUSE ▖[A] PAUSE PAUSE [I][Q] PAUSE PAUSE FN VAL PAUSE PAUSE LN USR PAUSE PAUSE >= FORMAT PAUSE PAUSE CIRCLE LPRINT PAUSE PAUSE CONTINUE LIST SAVE PAUSE SAVE X DATA COPY PRINT $BIN [I] PRINT p▙[T]SQR OR <>Z INPUT >=X LINE ABS PEEK BV OUT PRINT [F]=▘ CONTINUE t RANDOMIZE R>/ LOAD />= CAT 7<>/▘xINT >'q[E]sWPW@WgL▝W COPY READ CAT >[B]G DEF FN VERIFY c;4?▗:yg OUT STR$ 8p FOR SAVE ▝c=Q/VAL COPY h LPRINT 'STR$ {AT Ru LIST X LPRINT O$@yBIN NOT PEEK LINE 4;CHR$ | PLOT CODE DEF FN 3[F]B[o`▜O TO USR BRIGHT ▙ POKE IF NEW PRINT ,7COS VAL$ COPY # ERASE PRINT TAB A[L]@@/NOT 8yNOT X[R] MOVE ▙ MOVE [B] FORMAT 'FN PI LLIST O CIRCLE LN COPY LPRINT X[J] TO r LOAD ~ CIRCLE IF IF < RANDOMIZE |[P]`ydo▝▚ CIRCLE [S]=' PLOT s▖'[O] LOAD p[T] COPY _STR$ o FLASH 1c▘ATN OPEN #[B][Q]'POINT `▖Q"JQo▜OLN LOAD COPY BIN 7jx COPY FORMAT CODE HCODE GO SUB >= CONTINUE STEP Bq[H] STEP Z LOAD COS H|` READ {> OVER VPEEK OD LET =/▖ CLOSE #▝': POKE `Fh LET QH*▖P ▖▞(=▜LN [I] OUT <=CHR$ &[B]]] OUT INK COS READ [I]1TAN 8O_ PAPER O,H= PRINT _ COPY HIN DCHR$ [K]p▙#[A]z OUT NEXT RNDnv TO [R] OUT tmGs OUT F[R]7LN `? COPY © LINE B:LN `' COPY [K]7:[J] THEN : READ <<=&t STEP 8q▙[K]LEN STOP F< GO SUB d▖ DIM L▖▞T<[B]. STOP t["[M]Bl[S] BEEP O'#< OR >= TO BORDER [B] PAPER [B]▘] OUT LB CONTINUE THEN FORMAT PAPER 1L?TAN OPEN #[B](RSTR$ ? DRAW VERIFY CODE j5b TO 7 BORDER FLASH 3STR$ GO TO G CLS ATN READ DATA READ ABS h CAT GSTR$ hO CLS TAN READ VAL$ @ LPRINT [S] BEEP O FOR :. BORDER . LPRINT STR$ COPY >= LPRINT : LLIST ▙_ DRAW AND / AND READ K2<=▖ INK AND J=[J] FORMAT LET ▞D_ REM q LET = RANDOMIZE POKE AND .▙ LOAD $▘ROo THEN s, LOAD # STEP *PEEK OR REM =,G|&{PEEK 0USR [C]/. SAVE PAUSE y POKE 0 LOAD ' LET >@7 CLOSE #▙6 NEW =FATTR REM G[S]'[D](W LET MOVE g[C]▖FN qzSIN W▞"W[B]= MOVE REM ▞iEXP * COPY ATN [H] COPY <>▗G INK 0▝[C]▘ MERGE ▚p7[S]g7[U]dSIN q[E]'4TAN g7' CLOSE #3 COPY [A]o] COPY | COPY SAVE /USR [Q]1USR RND( COPY VAL v] COPY LPRINT DRAW LLIST d=SIN USR 9 MOVE LET 08P1@▝+" CAT MOVE PRINT 9 COPY >= STOP POINT : VERIFY SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN ▛ CAT RF[P][G]▙~wpkd^YTOKGB?;D5FN eN/,*'%#! OUT GINKEY$8NOT REM PLOT COPY IN INK GO SUB s<> PLOT >= LINE CAT POKE 2 POKE =(jPEEK $=CHR$ # PRINT DRAW SIN = 1 VERIFY RANDOMIZE LLIST "N POKE [I]C[B]?x CLOSE # POKE / POKE >@2* SAVE OR POKE NOT {▝ABS 1/▖A! PRINT ~ INPUT Dw LINE s POKE LET 8m PRINT s©p PRINT 62LEN )&5;z"BIN OR "ACS " POKE ▜[I] PLOT RUN 4 V2l"VAL :LCHR$ COS ▗He"B$." RANDOMIZE "yx[I]▛| PLOT ▘[F]2j STOP "7:LI:>[O] BEEP >D2' CAT "VAL$ NOT ©B25 PLOT yP[H],n8[K]o& NEXT BORDER 61HUSR LET SIN INK C GO SUB [T] INK OPEN # CLEAR MOVE LET THEN USR 0 THEN [I]O THEN }SIN ?)[T]B GO SUB y INK |$ FOR CONTINUE 0 LINE NOT TAB PRINT `# RUN e#('f OVER e" PLOT #FN ;e#kB""`▞;" @tPNOT ATN d*}a!ATTR |E DATA THEN x COPY 1 CLOSE #+}TAN C LIST BIN >CHR$ b▘ RUN [I] ^#V#" PAPER PLOT FOR " TO PLOT <>* RUN #STR$ W CLEAR COPY >( NEW IN >>=[G]▖LN IN CODE ,[S]*<>▝H$<▖BOS(▖NCLEN !Vm1Y5[K] ERASE 3( STOP ▗ CAT H(G THEN D▙SlBIN S▙n?Y~ CLOSE #*~ COPY [B]qPk." DRAW STR$ POINT COPY WEW0 FORMAT FORMAT ` ERASE LPRINT ERASE ` OPEN # MERGE 0 MERGE VERIFY LIST BEEP SAVE BEEP CIRCLE CIRCLE LN PAPER ▖ COPY LN FLASH [I] BRIGHT 8 OVER @ OVER FORMAT MOVE ? OUT ▘ LPRINT LLIST STOP ATTR .BIN STOP [U] READ d DATA D RESTORE $ NEW T BORDER E▜ MOVE CLEAR TO BORDER TO CONTINUE t DIM b▗ REM , FOR ▛D<© GO TO / GO SUB BRIGHT GO SUB GO TO 8 REM INPUT LIST [B]K98 COPY GO TO LET PAUSE 4 PAUSE COPY RETURN pAT +Qb"kb!X LPRINT CLOSE #[G]06# CLS PRINT !Z[~4▜&oSIN b LIST COPY RUN MERGE INVERSE LLIST @ OR RETURN INT ,)INKEY$y IF `O INVERSE # MERGE ~# DRAW STEP [T]b NEXT MOVE SCREEN$ # CIRCLE MOVE IN <> CLS STR$ <>> COPY DATA F STEP }Fv+|ASN IF :4< FORMAT CODE ATTR x<>2k COPY Yv RESTORE y RESTORE Y],AH ▙ SAVE = LIST O[S]Z OUT COPY DATA <>z NEW USR { AND _ CIRCLE z VERIFY W<>INT bJc PAPER cjdSOMETHING ON E WO STOP AY:REA CIRCLE STOP LTI CONTINUE [C]▝8-COLORSPLASMAUSR TLEN RANDOMIZE ROTAP[Q]2▜ RETURN ZED 4*4[A]i?BUT PR(ARY▛ SAVE &[I]NJOPSTR$ BIN IC@P▝0MW▝F$M ZLL! GXoS 2 ^ CLOSE #fNURIAD[A]2▝ PAUSE >dECCY,AA%GpAPEEK MSXFN RETURN ©SCES FORMAT 4]0OFYZ)MUSR `N? CIRCLE L96[A]P▘7D[T] GO SUB X LPRINT c>NOW UINT g`SCREEN$ >9+1 POKE RA INK -Dp`EFFX0CODE LIST I▚R).> .tW["PO[A]USR CKCODE USR CAT l▛G[F] kDLN 4STR$ zPEEK mLN TAN X/)EXP K▗E- FORMAT ▚![F]X TO g(BIN 1*1,8=l&6S LIST _ LPRINT CIRCLE ` PRINT OPEN #© POKE 3 INVERSE [M]T{A6©CODE | LIST USR 4▖1USR OPEN #< OR AND SGN p IF FN BORDER <=: INVERSE ▞%[I] STOP -VAL$ SIN LET ?[A]LN LIST LPRINT ? DRAW EDD MOVE RETURN C,[B]B7 SAVE BAi,[H][D]`[A]▖f1 COPY RETURN FU BEEP [U]$[U] LPRINT ATN [L][M]AA NEXT LET D,CHR$ POKE <xp`, LPRINT NUSR ▚STR$ CHR$ DATA _ LIST ▜ ©P8BIN RANDOMIZE ▘8© RETURN >H LPRINT COS <<p[A]:< SAVE ? LPRINT x[J]#$/^e▙, RANDOMIZE COPY DRAW COPY SAVE COPY LPRINT `n<CSTR$ RETURN MOVE ▘%POINT COPY USR [C] LPRINT <+/37;<>©?0© SAVE |I`(▖ OVER W%ZSINKEY$▝▜©hIB?5>&▝ NEW AT RUN RANDOMIZE [S]@4 CAT ▘USR j CLEAR }H© SAVE LPRINT [Q] CIRCLE INT VAL b>==[A] OUT SAVE x<` LPRINT o K[G] DRAW ▜PIUSR ▖-t▘l)*;IN >=PI%▙IN [R]©USR COPY LIST USR x▗USR bW|x MOVE TAN OUT LLIST LPRINT fpk` INPUT [5 OR _ RETURN LPRINT [R] COPY ATTR NOT SQR IN ;MT(n RETURN ▘▚Tx?▚>= LIST `HLEN 8LEN ©p▗▙; STEP INKEY$. CONTINUE ?Y LIST SAVE >q RETURN BRIGHT v DEF FN NEW <= AND NOT [S]F SAVE COPY LIST SAVE BRIGHT DEF FN <= COPY o AND USR NEW USR vUSR > CIRCLE USR A OUT USR ATN LIST LPRINT G[R] INK VAL$ ▖ LPRINT SQR - READ USR <oP▜<RNDLEN T%GPF LPRINT INPUT `|p8<| INPUT BIN H[ INPUT I READ _ RETURN ? RETURN READ <>LEN PAPER VAL ▖ GO TO *G9?[E] MOVE $o[R][P] LLIST 0880X▛ LPRINT ` DRAW ?NOT COPY #'BSCREEN$ S:@▚▞#xb▝INKEY$ }S▝`7 RANDOMIZE NEW INKEY$! COPY RNDUSR > OPEN # CLEAR N> OPEN # CLEAR y# THEN z LOAD > OPEN # CLEAR !bUSR @ GO SUB VAL > OPEN # CLEAR NEXT 1b! DRAW [S][ GO SUB VAL NOT ]NOT LEN ]NOT CIRCLE ] INVERSE ![I][ CLEAR !>=[ GO SUB sQ[ RANDOMIZE LLIST "T[ LLIST "V[ INK MOVE ; LET 2LN [!CHR$ ,[(ATN GO SUB j TO CIRCLE [8G GO SUB j TO CIRCLE [8 GO SUB j TO CIRCLE [ THEN INVERSE DIM INK !T[ GO SUB VAL 1<>NOT EXP ] STEP OVER [ RETURN ('8 GO SUB j TO CIRCLE [O INVERSE DIM AND STEP LPRINT [ AND O INVERSE DIM RETURN ©( OR INK STR$ !9 GO SUB VAL RANDOMIZE INK NOT %[; LET THEN ?O0 BORDER RETURN © STR$ STEP OVER [ RETURN (0 INK LLIST ;g! CLEAR DIM > STEP LPRINT [ INK <o& CLEAR DIM > STEP LPRINT [ INK LLIST ; AND RETURN @ ; LET g{[F]oz[M]g INK OR INK STR$ GO SUB VAL INK NOT %[ LLIST READ 7 GO SUB j<>>@ATN GO SUB j LLIST READ 7 GO SUB j ERASE LPRINT [<>[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[> STEP [! CONTINUE [B]USR STEP [ STEP POKE > STEP [!>= OPEN #b STEP [ GO SUB ^>/ GO SUB G CLS v STEP b GO SUB ^>/ GO SUB G CLS !o]~ATN ( CLEAR STEP LEN ]#^#V# MERGE ^#V#"3] FOR @ MERGE OR GO SUB VAL > STEP LEN ]STR$ LLIST USR MERGE GO SUB VAL LLIST b STEP [ LLIST STEP bNOT +]▘ OVER POKE USR [K]BIN CHR$ K FOR ^FN IF TO PAPER FN IF [Q]LEN DATA IF FN IF USR FN IF [Q]U BEEP 2ASN ]> OPEN # CLEAR <> PRINT OR MERGE RESTORE INK OR MERGE RESTORE GO SUB s TO ]1^ STEP CIRCLE ]1 LLIST MOVE STR$ INK LLIST MOVE STR$ LET CLS <>> OPEN # CLEAR STEP POKE STEP TAN ]<>C COPY Qn!▘▚tRNDu$ GO SUB LN NOT ▘ !""#$%%&'())*+,,-../00122344556778899::;<<▖=>>=?h@INKEY$▗ THEN 6A$(3.14/:- LPRINT `@+*H('&R[S]USR $#ZT! &([A] FORMAT [H]M$(▘.4STR$ :@H▝STR$ RZhE0!▝ NEW AND RO DEF FN RND[B]Gw, LIST INVERSE ▝TAB pD OR INVERSE SAVE ~ INVERSE ,LZo0[F]g GO SUB VAL STR$ xLEN READ GO TO OR !>AT i1 LET © *"1*45▗ STR$ THEN }[S] STEP INVERSE ▘E CLOSE #1><>2 COPY COPY > STEP [ STEP RNDDG STOP P> COPY w, IF !GSIN 6}M AND o6i STEP b LET X)hG, CLS PRINT A@[D]USR [D]STR$ R>; GO SUB GNOT RNDz@[M]b"b*A▚" FORMAT H*R▞%Wi6 BRIGHT <> INK GO SUB Y RANDOMIZE RANDOMIZE INVERSE }o[F][Q]g INK LET STR$ MOVE LLIST 16 CIRCLE RESTORE MERGE OR PRINT CxATTR Q9 IF LUSR o^S MERGE ▝F[R]A[R]$|$@*USR } AND o CIRCLE | VERIFY g<>> OPEN # CLEAR CLS v GO SUB sRND DEF FN MOVE LLIST ▝ MERGE ATTR COPY Hy▖▜ INVERSE o! RETURN DATA CLEAR w INK FOR LN COPY Wg COPY RANDOMIZE INPUT ▞FN :&>=CHR$ /[S]!jRND THEN ~CHR$ RND~2#f▖ COPY [S]#"F[S]> IF 2@s▜ DATA >▖ COPY AND 2d[S]o&){V" DRAW READ & GO SUB K COPY ▚ STOP ▝<=2▘1 RANDOMIZE / STEP [NOT q GO SUB { PLOT OUT [I]/ GO SUB G CLS ! LIST _ LIST e CAT STR$ e CONTINUE COPY ▝hH PAUSE >{"<>?©AJS/enwx@ DRAW COPY COPY COPY COPY [C]AQ<"SIN b! COPY Z6+ THEN t RANDOMIZE !XX COPY 6G GO SUB VAL INVERSE ! c COPY A@[Q]USR USR INVERSE RESTORE w INVERSE # PLOT INVERSE LLIST INVERSE # GO TO VAL v OR STEP CLS LPRINT [R] "Bb8 STEP c GO SUB SLb> PRINT RESTORE MERGE [K][Q]$ MOVE %3 LLIST FORMAT HATN GO SUB B LET = DIM STR$ THEN OR vU[▖=2} BRIGHT ▟bz RETURN X0▘ DATA CHR$ LPRINT rv+}TAN IF ©@▝ READ R CLEAR INVERSE n INVERSE fw SAVE >USR CODE # IF f▟ LLIST <>TAN ZX1BIN YBIN YXM/Z PAPER Y)[O][Q]?m[ COPY b▟(" DRAW b<>z NEW USR { AND _ CIRCLE z VERIFY W<> COPY ©`▜IN IN OUT CAT BORDER READ LET N PLOT LIST SAVE SAVE RETURN PRINT ▖ RETURN CLS ▞6[F] RETURN DRAW DRAW ▝ INPUT SAVE LET NEXT LET MOVE ▘ LET ~ DRAW ▜ READ INK . RANDOMIZE USR LET !` LPRINT PRINT BIN AND AND DEF FN LOAD LOAD COPY ▟>[M] SAVE LPRINT ?@I ©©<= LLIST LIST LPRINT USR ▖[I]88xxLEN SIN DRAW USR IN ??INKEY$z`07©IN GO TO COPY [P]▛NOT LLIST ]T POKE ?:[Q]x▚▚ DEF FN <= BORDER BORDER GO TO gg© K INVERSE COPY READ PAUSE STOP NEW NEW BORDER READ NEXT LIST `▝Z COPY ▗+©STR$ <<|~E LPRINT F▜STR$ USR USR STOP ▘[M] LIST RETURN >LN W[M]▜© 8STR$ COPY LLIST ATTR COPY ▟@ DATA ?▝▟▙`▜c LLIST LPRINT POKE ▝?8> IF <x LLIST CHR$ ▘ RESTORE NOT [B]pINKEY$[B] RANDOMIZE [C] CLS RANDOMIZE CLEAR |>▝xa[P] CAT <=% NEXT LET RANDOMIZE RANDOMIZE <e LIST DRAW |8▝x TO H' COPY IF LN SGN READ PAUSE IN { SAVE LIST READ <=>xpxrn<>[D] BORDER ▟l|?[P]BIN 8 NEXT EXP [M] OVER DEF FN T COPY RUN TAN >@ VERIFY BIN © LPRINT 8ppCHR$ ©▞[K]>dql▜ READ C LET >fSIN X[G]▞▘&k RETURN ~ DEF FN COPY CLEAR PAUSE USR #c LPRINT CHR$ STR$ SAVE /}▜ CAT LPRINT SAVE E[F] SAVE [M]<= DRAW ~▜K OR OPEN # TO RETURN @ LLIST y[M] TO BIN [N]x CLOSE # 1) COPY ? CAT LOAD LOAD RETURN GO SUB IN Ts[P][M]▖USR LLIST NEXT c0NOT LLIST CLS SAVE SAVE & DATA CIRCLE LPRINT LET P COPY USR [Q]▞▝USR IBIN {S LIST 4[I]%k.[K] CIRCLE OVER {RND ERASE T[R]s BORDER BORDER ▜cIx<<~<"SCREEN$ RETURN ▟bBIN NEW <= CAT pSTR$ y.] LLIST n[K]08FfUSR LPRINT qPIPt LPRINT S LLIST DRAW <UINKEY$WFN DRAW LIST STR$ ▜HQ RANDOMIZE PAUSE OR BEEP SAVE LPRINT tj▝ LPRINT INK ▖1ATN ▘ CONTINUE `▜HM,[K]fSTR$ LPRINT ~*[C][R] CIRCLE [U]iAACS USR x8c RANDOMIZE SAVE |&S[Q] READ FORMAT 7[N] LIST I MOVE 9 NEXT [P] LPRINT [H]/E~`D[R]0EXP 3 READ CAT & CONTINUE E STOP NEW [U] TO OVER INT A9▚INKEY$$▘ATTR ! CONTINUE NOT CHR$ DRAW CHR$ BIN ?a LPRINT NOT <x LET LTABS READ DRAW LPRINT ^f (P{ OR M.f2USR m▞ LPRINT LIST PAPER LOAD |(Td[I]o?USR 99[G]▘ CLOSE #[A]FN ,ep IF 0 DIM STR$ AND :© CONTINUE ATN a[P] STOP Ag PAPER 8y▝ TO E SAVE LIST ATTR [T]fR CLEAR OPEN #E OR e!@)[I]BIN RETURN N9XhATN >=|N LIST LPRINT d8VAL IF U[I] LPRINT CHR$ 0a PAUSE PAUSE LIST LIST RANDOMIZE GO SUB CHR$ GO TO LET READ BORDER >=TAN VAL FORMAT TO y LPRINT BIN x LLIST READ [O] DRAW ppss CLS !BC[R] LIST EXP LEN (DAT @G OUT Z2B[G] DATA BIN RETURN TO ▖[I][B]2pACS COPY LPRINT >[T]'▛ABS LET INT ▝ LPRINT p8<[F]@8▞3SCREEN$ PI][O] CAT DEF FN >= NEXT MOVE USR 6 RANDOMIZE LEN BIN AT [D] <>0`▜[M]BIN <`3l94{VAL w▜3,COS ©T CONTINUE c>=/ LPRINT STR$ POINT s▜"NOT ASN ▖}STR$ ATN TLN [F]▜ VERIFY 3vr▝nUSR s POKE RESTORE [G]p LIST S NEW STOP OR .hx SAVE [H] FLASH ||CODE ~>; DEF FN KUSR ASN xSIN RANDOMIZE 1 OVER USR LPRINT LLIST Yc BRIGHT [M]g DEF FN BORDER g THEN H[A]9'@8 LINE c▝r#[H]PIh DRAW USR OVER AT INPUT TO g3 STOP LLIST l SAVE [N]BIN CSQR "~x0[VAL$ 8[M] LIST RUN SIN [L]"N LIST IN |A PAUSE TAN [B][T]p`▖STR$ ATN Of BORDER STR$ LET INT CLEAR LLIST [A]22 GO TO ▘I. TO USR h TO [H]NOT TAB LOAD LLIST [G]Uff[U]hb[E] CAT GO TO OR [U]COS VAL$ 3[D]© INPUT STR$ [L]x BRIGHT BIN ` CONTINUE DATA - PAUSE PAUSE DATA LPRINT LPRINT D7USR READ NEW [M]8 LLIST <@<=6 TO [B]b COPY @ LPRINT 33sINT 8 GO TO r[O] .?~[I][I] SAVE ©▟Y[I]NOT FLASH [J]USR [A]▟ MOVE DIM VAL |<8lY[N]IN FOR <Q© DRAW y~ PLOT |a6COS INK [P]<> CLOSE # BRIGHT b INK AND GO SUB CONTINUE TAN ▟% =[J]© CLEAR COPY P[A]▖"zFN ▛[J]RNDIN DRAW STOP ▝▜STR$ READ AT [P]ATN [E] RETURN USR LIST ▝`< LIST ~q LIST LPRINT AND ▙p CLS Ly9▞ FORMAT 9 CIRCLE f AND LET [ VERIFY OR OPEN #USR VAL$ [R]▟▜[D]p▖3 SAVE CHR$ BORDER COPY USR /@▗N▜-RNDs>▟ INVERSE [I][I]NATN [H]Vbg/8pIASN 2[E] THEN /[XCQ[N] ERASE NOT NEXT 9▞<>▞[J]3 READ ▜{5[E] RETURN c0 RETURN DEF FN Y▗qSTR$ 0 CONTINUE NEW DATA LPRINT LLIST READ dcs33[F] INVERSE [L] PRINT [C]EXP W32x"+COS OUT LET USR ?©,P3 PAPER CLEAR DEF FN AND ▖▝u8 DATA ▗w3 RUN ▞SQR ~3<y LOAD NEW [P]:,8> CLEAR PI THEN `O`n▝<>uKATTR NEXT A FORMAT RETURN DATA NEW o'▙2[|ACS x▘<=G RESTORE LET STR$ 0 RETURN LIST USR 80` LET STOP NEW [U]H DRAW p BEEP ▛"3/ SAVE CLEAR 7 LIST @ IF DIM [Q]7" READ BIN USR LLIST cPI8:(INKEY$ PAUSE [B]JvACS IF [M] LLIST eGc[N]#?X STEP OOASN G READ sCOS 6. RESTORE ▟W LIST LINE DEF FN [U]~~TAB USR MTAN © TO ^▜▘ ABIN LIST ▝0p CLS STOP C LPRINT LIST STR$ CHR$ ACS EXP COS ▝IN IF CLS $^[F]$[A] LINE BSGN T INVERSE A[bUSR INK STR$ POKE FN SAVE ▙;VAL >8` VERIFY B TO ▝[D]^IPI PRINT [T]SQR 5VAL$ [Q]VAL$ [H] INVERSE CHR$ CIRCLE LINE M CONTINUE SFN BRIGHT #; SAVE [M]p>=USR AT ATTR x OR BORDER VAL$ E[C]fa& BEEP j[H]ASN y;NOT PRINT STEP 4INT VERIFY INPUT VERIFY INT READ u STOP ATTR DRAW ▝] CLEAR ACS p[O]8qc INK [J]c CONTINUE G LOAD CIRCLE ATN SAVE COPY BEEP Z4 OPEN # LINE q TO c▝▞ LET [P]CG8BATN p[P]% FLASH [C{[O]^ LLIST $<=q PAPER LN QCOS 2{[J]▙x LET U.f OR [I]][D]USR E%▞fR8,LN TR VERIFY W<> RANDOMIZE Q~NOT Cb%*/38<AEINRV[_cgkorvz}▝▗▖▛▙[B][E][H][K][N][Q][S]RNDPIPOINT ATTR VAL$ VAL LEN COS ASN ACS LN EXP INT SQR SGN ABS PEEK IN RETURN APUSR USR ! AND b MERGE 6 LLIST #6"#s#r# PAUSE MOVE STEP TO SCREEN$ CONTINUE !@6# CLS E) PRINT )+X+MG} DIM > STEP [?( GO SUB VAL CLS ?v INPUT 2[M]b[E]5,> COPY < RETURN @>=2INKEY$b AND o&bn&]T)) COPY @ TO ▚ GO SUB s<=▚ VERIFY RANDOMIZE COPY COPY #1 FOR BNOT [J]b COPY O[R]SCREEN$ AT ▝© COPY 7 CLS CLEAR CIRCLE VIN LOAD ▞ VERIFY RETURN CLOSE #U= BEEP [Q] READ f CONTINUE RETURN ? READ FLASH DRAW w^ CLEAR IN RESTORE VAL _@; LOAD CLEAR [G] OUT INPUT FLASH c[Q]w INPUT CLS IN ' LOAD INPUT ? RUN [K][Q]wINKEY$w INVERSE @!oVAL$ G; COPY SQR SQR CLEAR INVERSE INVERSE [K][R]u RETURN REM } INPUT FOR [Q] CAT t[K] RUN W INPUT J FORMAT INT ?J[T] FORMAT INPUT MERGE INVERSE CONTINUE k PRINT BEEP © CLEAR GO TO LN +VAL$ [N]iSTR$ PIzj RUN ?{[Q]p VERIFY [K]RBWwb[K]▜. INPUT SGN o) PAUSE t,IN CLS ERASE *▟▞(VAL$ CLS ▖ BRIGHT ? OUT _SQR INT D[N]/ FOR to INVERSE CLS [P] CAT BRIGHT ▟ CLEAR v[U] THEN 5USR GO SUB LOAD BRIGHT i▟ STOP zAG RETURN OUT GO SUB B[P] CONTINUE /n/wATTR P? DIM MOVE IN POKE :[H]FIN REM [U]^CODE I GO TO @W[A]SIN +K? DRAW CHR$ VERIFY BIN '? CLEAR } LET SGN MERGE 5/p FORMAT [P][P] CLEAR r[F]V"VAL$ RANDOMIZE '[P] CLEAR ABS IF ACS u POKE TAN RNDW©▘? CLEAR OVER _ CLOSE # OUT UUF? PRINT G COPY OUT THEN EXP [F]R COPY ATN [U]? LET CONTINUE SIN SCREEN$ RSCREEN$ TAB DIM [P] INVERSE PRINT TSCREEN$ [N]▟© CLEAR CAT RANDOMIZE PAUSE IC, COPY [P] COPY o DIM SAVE IL]_[T]ATTR PAUSE CHR$ CLEAR @ CLS [C] COPY ? OR CLS P RETURN VAL DU INVERSE IN SQR INT CAT *[Q] REM ▞ CLEAR [U] RETURN VERIFY SCREEN$ [N]W BEEP ▜! CONTINUE ACS READ RETURN *▖ RETURN U[N] THEN !*SQR EXP ©U@*SCREEN$ [M] STEP FORMAT CLS ?EXP FORMAT COPY ERASE B©"[P] MERGE UABS BEEP CAT *[C]▘'SGN LPRINT ?SCREEN$ © FOR =kIN =FN PEEK p?*UNOT PRINT =g|} COPY ▜[P]IN <[P]e/ LIST ©<SGN SAVE D? DIM PEEK > THEN LLIST INVERSE MERGE Q FOR IN [F]o COPY >[H]NOT ▜O[P]IN G~* CIRCLE USR | MOVE ▜ CAT DIM ?▜CHR$ CONTINUE STR$ FN E LIST y?[I][A] REM ?[T] OR P RETURN ▖SCREEN$ DRAW `[P] LOAD REM "< OUT STR$ STOP [R]SQR >[P]| CONTINUE OUT LLIST LET COPY NEW PEEK FLASH 8D LOAD [A] SAVE ©DFN >v8▖ CAT ?CODE LPRINT SAVE REM ▞ RETURN LPRINT U| SAVE P FOR FOR LIST SAVE PRINT CONTINUE P|/ DRAW PIC CONTINUE SAVE : COPY IF SCREEN$ GABS / LIST INT COPY x< INVERSE © PRINT USGN / CAT SQR o[>=x3[S]?[I] FOR ▛l© OVER @PEEK ?▝ COPY CONTINUE xXIN SAVE [Q] OVER MERGE POKE ©? FORMAT 0P LOAD LIST FORMAT C OPEN # FORMAT LPRINT COPY @ FOR LLIST LIST g.T INK SCREEN$ LPRINT PVAL iCHR$ NOT p OPEN # LPRINT `` COPY FORMAT ▘STR$ h STOP [R]?x MERGE SAVE `USR *STR$ p▜[S]/ REM @ FORMAT CHR$ CONTINUE <='▚c[F]pASN DRAW ▝ PAUSE * DRAW LOAD BRIGHT ASN © MERGE LN ▙R▙ FLASH Tw CAT FORMAT / OUT rLN [R] COPY |wm▚SIN LIST @P0TFp+[S]p*FN FN 0VAL$ LN FN ©/IINKEY$ LPRINT U@[R]POINT POKE t THEN RETURN LPRINT aATTR SAVE SCREEN$ *[R]IN CONTINUE IN GO SUB [O][T] SAVE U;(URx CONTINUE O NEXT IN q*SCREEN$ m COPY FN T [K]NOT +ASN w▜ LIST U^;pINT [Q] SAVE [VAL MOVE >xuPI LIST SCREEN$ FN _CODE BEEP ] FLASH IF o▜[ LPRINT UpDVAL$ @W MERGE [ CONTINUE RUN COPY i-K LPRINT SCREEN$ [Q]_ STOP [Q] PAPER CLS INPUT s COPY WUSR Wo LET DEF FN CLEAR /ATN PAPER [B] CAT RANDOMIZE ^dUSR AT PLOT E7SCREEN$ REM COS ) GO TO LPRINT y[O]|©9p/USR `]▘ MERGE QUo GO TO i RETURN ? RETURN x0'jL REM `6= OUT DIM RANDOMIZE STR$ SAVE ~©▗INKEY$@(9 DATA PRINT UW OUT REM ^ LIST [M]B[B]8?▝b[A]CODE + CONTINUE >SCREEN$ IN SGN STOP VAL$ @[A]TAN ▞ CAT DEF FN '[Q] ▘+▘[F]UEWPOINT | CLEAR ©xd~Ax LIST U▝*[P]SCREEN$ SCREEN$ PEEK NOT ?P LIST aSCREEN$ ><= LET REM ` RETURN ▘IN /VU DATA ©T© RETURN LPRINT DATA _}AWZATN STR$ _Uu COPY yATTR IN CLEAR LPRINT STR$ ?©SCREEN$ IF T+> GO TO EW COPY PRINT MOVE USR ,p▞ CONTINUE LPRINT OR /PEEK FN [P]© CIRCLE (CODE COPY FLASH [D]USR RETURN CIRCLE }P_ OR UV'@ CLEAR OPEN #U© BORDER W▝jSCREEN$ [R]LN l+q CLS FN ©[A]▘PEEK AND CLEAR ^G▝[P][D] SAVE ▘T BEEP LY GO TO ^ABS ` LPRINT O CLS | ?▘<-{©.IN LPRINT U LET VAL Q FOR >] SAVE C▝?▝C[Q]ABS ?FN PAPER | LOAD ▝ LOAD TO RETURN RETURN _▝U OUT __IN Z RANDOMIZE |_>= RANDOMIZE 2 LPRINT FN SCREEN$ STR$ VAL >=?<* RETURN CIRCLE PAUSE SCREEN$ FORMAT 'NOT [F]Q/8LN CLEAR a CAT POKE INK RESTORE V OUT RESTORE H}USR +[P]*POINT SQR SAVE ▜ FORMAT RETURN * MOVE LINE VAL$ 7 REM [F]AT ▜( RETURN WQ?[L][I]w COPY LOAD SAVE 6<=▗ PAUSE *PI<[O][L][O]x BORDER [O]© OR 8.T PLOT VVAL S( RANDOMIZE uP_R[O]pg8 CONTINUE +POINT DRAW PAUSE FOR [R]^▚%[M]pc[B] REM POKE NEXT NOT RESTORE RUN @ RETURN Jk^a COPY [O][R]I DRAW IF [R] FOR MERGE CLEAR REM [S]PEEK ▗▞ RETURN SGN PRINT `?[K]? BEEP BEEP EL CLS COPY 0 STOP PEEK ©0 BRIGHT CAT SCREEN$ ▗<[E]_ FLASH Ax▘ CLEAR @[U] LIST __COS & INVERSE A}H0VAL x J IF IN CODE CAT INT CODE SAVE |[A][Q] PAPER COPY L0 LIST @$ CLS AWABS HUSR $(AT x RETURN +J POKE CODE ▟ LPRINT FN NEXT [M][A]Q< SAVE MTAN LPRINT ( DATA _O OR [P][F]TEz![Q] RETURN ©(TAB z LPRINT Vz▖SCREEN$ >BIN EXP J REM RETURN 1]RNDA FORMAT U]JuDPQ[K]RND RESTORE COPY LPRINT 02r[R]USR r[O][F]dCHR$ j0 ▖HOUSR [E]MPOINT Sd>=H@"RNDT(ATTR BRIGHT ATTR [S]j[H]BIN b STOP BORDER ▗[F]O@LN COPY ITAB S[D]$ LINE [U]▗W DRAW q PAUSE [P][U] BRIGHT COPY hSCREEN$ OVER PI"` RESTORE >[S]+$ REM #uOJ2TU.WSq▛ LINE SQR MOVE SIN [P]? SAVE !FN CODE !G RESTORE 5) CIRCLE ▘.*CODE [S]uJ[C]U>OPINKEY$▛CHR$ LN BEEP < MERGE P COPY [C])STR$ `*%Q'{ CIRCLE DRAW * COPY LINE ▙ COPY 9PEEK NR;▜ CLEAR OR COPY MERGE COPY CHR$ X[B]*+/VAL$ POINT QE LLIST RETURN [S]+(>=ATTR ? RESTORE /TAT ^R[S] ERASE [P] NEXT T LLIST _ BEEP STOP DRAW LPRINT [E]%+P[O]RNDS[I]CODE REM >1 STOP IN ATTR LIST H RANDOMIZE STR$ DIM FN [T] FORMAT ?W PRINT STR$ STR$ USR COPY RESTORE ApRNDo POKE [M]RND CLEAR UE LPRINT :CODE RETURN IN FOR COPY RETURN LN J▝EE GO SUB ]bSCREEN$ BEEP IN SAVE SAVE DRAW X[U]@ATTR ATTR T[M]▞▜[N]h|©o OUT BORDER COPY DRAW VAL [M]@T MERGE TAB =D~▘[P] LOAD LPRINT OCODE BEEP COPY PAPER [F]Dl PAUSE * FOR TSGN LLIST or[U] COPY B DATA / PRINT }9PI FORMAT T BEEP PIETAB _ COPY CONTINUE ^@+SCREEN$ AT INT A CONTINUE CIRCLE ' REM /FBIN /*<> LLIST FOR 9?^[I]_ OUT ATTR STOP iU@Q? PLOT DIM W INPUT _ THEN IN UCHR$ ?<>'U/y LET = GO TO COPY IF LLIST ▚zM1 REM ©[I] RETURN LOAD SGN POKE PEEK '[T] MERGE SCREEN$ [R] RANDOMIZE POKE IN USR RUN OUT ( OUT [A]P RANDOMIZE [F]QSCREEN$ LN zUTCHR$ |('[I]|*IN RESTORE SCREEN$ [C]SCREEN$ "VAL POINT MERGE ty*SCREEN$ RND%aV[P] RUN EIN FN ©aE[F]U0T REM CONTINUE z TO RETURN V SAVE WE.ABS } COPY SAVE SCREEN$ SCREEN$ *VAL FN PRINT TuJVAL NOT ] IF © OR SCREEN$ OVER U[F]0 RANDOMIZE /j GO TO r CLEAR +COS GO SUB [F] MERGE RETURN LIST STR$ COPY LIST FN LN AT u LLIST VAL Z? CLEAR RETURN y[I] THEN PAPER OUT >=[F] PLOT :FN @SGN O DATA COPY jSIN ATTR SCREEN$ ▖[I]INT 7[B] LIST PIU5[HI CAT _[F]aWAX_88S[F]PI FOR CAT [D]"[G]SGN INT ATTR *[S][M]. PAPER SAVE ATTR U© GO TO u PRINT _ABS c DRAW VUSTR$ ]Upr CAT Q PLOT FN ` COPY [P]INT SCREEN$ [S]FN THEN CONTINUE PRINT "▜x RESTORE VAL wXVAL DATA H$N PAUSE 4`fATN [D] FORMAT RETURN IN IF : PLOT iSCREEN$ © PRINT CLEAR s LPRINT FORMAT CLEAR W READ PAUSE ▜[N]JUW LIST xUSCREEN$ ATN } LIST IF STR$ f[Q]SCREEN$ *ABS VAL PI PAUSE BEEP POKE PAPER STR$ ▙Ju RETURN VAL VAL ▜BlIN RETURN LIST IN [R][E] READ ERASE INKEY$RNDATTR ASN h CIRCLE NOT [T]INKEY$? SAVE /VAL$ ;DUW[ FORMAT O[M] PAUSE gSs▘▝f@ OUT FN ? AND [K]'*ATN [Q] RESTORE [I]86POINT ▝[Q] OUT DRAW DATA MERGE INPUT W_P REM FLASH COPY FORMAT OUT ▘ NEXT [F] BORDER LET G INPUT LINE LIST ▞ GO TO IF [R] RESTORE L~xSCREEN$ TAB OUT ?[P] REM CLEAR } MERGE S CLOSE #A▗M CLEAR _23} DATA p[Q]ATTR USR LIST c RESTORE H> RANDOMIZE ▟ OUT CHR$ IF IN IF ABS C GO SUB RESTORE VAL 5UUSR Da PLOT ^ OUT PRINT ? DRAW [Q] CLEAR /▜ GO SUB REM &POINT LPRINT TAN GO TO a[O] OUT ▗ REM RANDOMIZE NOT FORMAT DRAW VAL$ S RUN RND TO ~' LPRINT REM BRIGHT NeIN ) CLOSE #_n▛^' RUN LOAD SCREEN$ VAL PAUSE <> MERGE [H]IN [B] DIM ©| CLEAR .[H] NEXT ASN © FLASH [D] LINE 7?RND ERASE BORDER ▟ FOR F<= PRINT r▗▟f[Q]S BRIGHT [O]INT IN ▟▞O[A][Q] LIST uBIN y] COPY SCREEN$ AND STOP PLOT 8?BIN spUSR T POKE FN *ATTR +[E]LN IN STOP 9@p LIST ATTR PAUSE R[J] DATA $©POINT ? STEP INPUT 9?C4STR$ LIST [H] CLS 2%JINT =COS ~#PI&PI THEN G CLS [O]E DATA pTAB USR GO TO ATTR ©▛[P]8 RESTORE RANDOMIZE 28FN J[S]5 RANDOMIZE PN{2©[P] NEXT < IF L[P]RNDP5CHR$ INK ?ASN | NEXT PEEK n PRINT # CLEAR :RFN LN OR <>PPIr COPY v IF [U] DRAW ▞%T ]LEN ;[P]D DRAW [F]|LEN RANDOMIZE A CLEAR ,<=BSCREEN$ DATA #FN ERASE RETURN TO SGN 6 SAVE [F] DRAW [J]<>RU READ FN CLEAR Rd RETURN [U]PEEK CIRCLE VAL DRAW F RETURN Rb TO > INVERSE THEN sT INPUT ) CLEAR ▖ BORDER ▛ LPRINT DRAW POINT RETURN VAL R0U OPEN # NEXT {oD5 RETURN Tp LET E RETURN k▛▖|[U]< INPUT U RETURN CLEAR RND~ ERASE i#9E STEP LOAD - IF [F][M]SIN LPRINT FORMAT COPY I#[S][Q]t DRAW np PRINT COPY DNXA$LEN ▞[E]3 BRIGHT RETURN LN d RUN DRAW z NEW USR { AND _ CIRCLE z PLOT |<><>IT" RESTORE !$b FLASH % GO SUB VAL > STEP [= NEXT Y▗NOT LIST %,28>DJPV/bgmsx~▖▙[D][I][N][S]PIATTR VAL TAN EXP ABS STR$ OR <> STEP FORMAT CLOSE # BEEP FLASH OVER LLIST DATA BORDER DIM GO TO INPUT LIST PAUSE POKE PLOT RUN RANDOMIZE IF CLS DRAW CLEAR RETURN RETURN COPY UFv CLEAR DRAW CLS IF RANDOMIZE RUN PLOT POKE PAUSE LIST INPUT GO TO DIM BORDER DATA LLIST OVER FLASH BEEP CLOSE # FORMAT STEP <> OR STR$ ABS EXP TAN VAL ATTR PI[S][N][I][D]▙▖~xsmgb/VPJD>82,% COPY +_ INVERSE COPY ?VAL COPY FLASH RESTORE MERGE OR PRINT INK Ud$ INVERSE RESTORE CLEAR RESTORE STEP E LPRINT STEP [ CLEAR LLIST INVERSE LLIST LET STR$ MOVE LLIST INK Lb CLS <> STEP VAL OUT & SAVE . SAVE , RANDOMIZE x AND G$ INPUT !k DIM | DIM w GO SUB VAL !W READ s READ OR CIRCLE RESTORE INVERSE ~ AND INVERSE w0 INVERSE 4SIN L[D]eg" AND ,[J][J], OR dSTR$ USR ! REM REM " PLOT a2M LPRINT m LPRINT 2 2▖2,[D][J][J], LINE d&(2YX2Y[A]<>?)LINKEY$$ BORDER OR ! RESTORE OUT A* DIM OUT <BIN "* LOAD AND NEXT * PRINT TO C* CLS aCHR$ MERGE C CONTINUE CLEAR b▗ LPRINT ▜ FORMAT *CHR$ [I]c*y*! LIST VAL d NEW $h LPRINT PAPER NEXT * TO C*%a*+▗16 CLS ▗o-[R]M11*7<▗*= AND NEXT *C'C CLS v> LIST LLIST BRIGHT GO SUB G▝v+|ASN Z STOP t>/SGN 4CODE 2 DEF FN OUT !X, CLS PRINT CONTINUE COPY @[H] STEP = REM [A]f PAUSE <BUSR K<>[P][R]2 INK m DIM pACS CIRCLE uACS OR xLEN -l▛mot[lw GO TO b REM l▛b[ FLASH ACS CIRCLE ACS OR GO SUB s IF [R]_SGN !Y LPRINT INK W}PEEK 1X INVERSE DIM INK "^ READ !i CIRCLE PRINT [D]l READ COPY BRIGHT VAL CHR$ l COPY [M]? CLEAR © INVERSE n©:!e READ GO SUB YNOT DRAW !ATN ▞sQ8MW COPY ▗SCREEN$ GO SUB Y18> AND 2 CLEAR RESTORE AND ([E]▗ STEP Z DIM y2 NEW ]T THEN : THEN | COPY @ NEW g>[B]▗2N@<> DIM :h)B@a* DIM ! NEW > OUT FLASH RETURN 84' COPY 5~ AND @2' NEW ,-AT " COPY TO n THEN RND PRINT _[ MERGE SAVE AT @$%U COPY v SAVE POKE PIRND RETURN RUN RETURN USR ATN GO TO ^▛&0 DIM z2- DIM |!R LPRINT @0 AND 0q RUN TO PAPER [C]$TQS▗ ERASE [B]"(&<>& FLASH oVkb THEN < THEN THEN ©>=H<>^JV SAVE G▖ IF O OR LOAD CAT [P]$gVc INK GO SUB _ DIM WQgy( INK DIM AND <>$| NEW USR } AND o CIRCLE | VERIFY g<> COPY LPRINT USR : OUT COPY CLOSE #FN S!bb COPY u GO SUB VAL INK RND RANDOMIZE L@ STEP 3 LIST PI[A] GO SUB g~ NEW PLOT SAVE w#| RETURN STOP rQ. OVER RESTORE >NOT [ OR MERGE V}▝_▝ STEP ▚ LIST ^|W PRINT STEP . OR ▙ LIST [B]_[B]/ PAPER [A]W[A]4RoH?x LET ▚x[D] LIST THEN 8 THEN 9 GO TO DATA ( RESTORE 8 LLIST RESTORE kl▛bJACS (P MOVE STR$ <>o~▘Ty] ▜▜ INK o THEN SIN O GO SUB _POINT O MERGE STEP TAN [Q]PEEK *g▗0> COPY INK ATN USR <>}ATN y>=]©<= STOP U0 LIST THEN # THEN COPY COPY xx.▝ PRINT NOT e COPY O[S]}!weEXP TAN ( THEN ACS %0=KZjz[N]CODE STR$ ERASE READ POKE "/<FPX^cghigd_YQH>3' CLEAR INPUT OUT FORMAT STR$ LEN [S][E]▚ylaVME>95201259>EMU_iu▝▟[K]INKEY$COS STR$ STEP PAPER NEW PAUSE CLEAR !(.[S]▘899751-'! COPY PRINT FOR LLIST VERIFY THEN STR$ ACS AT [S][I]▜©xrmieba`abdgkotz▝▖[H][P]PIVAL LN USR <> MOVE CIRCLE OUT NEW GO SUB PAUSE SAVE DRAW ▖: CLEAR RANDOMIZE POKE LOAD REM DATA OUT INK OPEN # TO AND STR$ SQR ASN VAL ATTR INKEY$[S][O][K][H][F][D][B][A]>[B][B][D][F][H][J][M][P][T]INKEY$SCREEN$ VAL$ SIN ASN EXP ABS STR$ BIN <= LINE STEP FORMAT ERASE CLOSE # VERIFY BEEP CIRCLE INK INK PAPER PAPER POINT !, CIRCLE BEEP MERGE CLOSE # ERASE MOVE CAT STEP THEN LINE >= AND OR NOT CHR$ STR$ IN PEEK PEEK ABS ABS SGN "*▞fIN USR !c RESTORE RESTORE ~$ngUSR STEP 4▗ LLIST q$p LLIST , GO TO !T6#|ATN RANDOMIZE ><>2 COPY COPY !LEN e8@©k6 TO # MERGE 6▞ LLIST "#s#r[P]BIN 'z NEW D AND Xw# LPRINT 6## MOVE STEP %▗ LINE [C]~VAL OR ![E]e GO SUB VAL *[F]F DRAW $" DRAW STR$ REM ! COPY Z0+ THEN t)G& CLS v>; GO SUB G GO SUB ^NOT [M]e"SIN e▝09 x GO SUB s▗▝{> OPEN # RETURN / COPY VAL$ COPY CODE INKEY$, GO SUB {▗>< LINE ▗2v~o&cN$n&) IF FOR 1!T▗CODE BIN LLIST COPY [R]1w. STEP [▚▜SCREEN$ ATTR p/ GO SUB G CLS <>z NEW USR { AND _ CIRCLE z VERIFY W<>CODE OG< THEN | ) SAVE FOR ATN GO SUB R?8ATN THEN THEN THEN THEN = GO SUB <> COPY COPY xxEXP DRAW USR ▗t SAVE ? LPRINT EXP ©▞ffb COPY b CAT PLOT b DRAW ?r NEXT [J]▜> SAVE ▜>g>USR IF TO ? LIST IF © RANDOMIZE LPRINT [O][ RANDOMIZE > LPRINT PI CLS LIST ? OUT DRAW LIST t LPRINT _g LIST VAL sk COPY jxgQ?N CAT / RANDOMIZE ▞USR ? DRAW [P]<[P] GO TO USR LIST [O]B>/ SAVE POKE DIM DRAW NEXT y LIST <?[G]x POKE INK LPRINT POKE yUSR RUN RETURN IF O<ix IF LIST |6©[R] CAT CAT _G[P] BORDER Y[P] COPY 9 RANDOMIZE POKE d DATA THEN ` LIST OPEN #ZZo CAT [U]ZgjPIO▗c CAT [R][P]C?[P]C RETURN LPRINT ▞/[O]BINT #z CAT COPY COS 7f COPY eu©AT k LOAD LPRINT [J]O© POKE ? LLIST /| STOP USR USR TAB ▛P▞;f?<<f LPRINT [R]O FORMAT CAT SAVE [H] BORDER CAT DRAW CONTINUE [P]/ CAT [R] RETURN LLIST yo COPY rjO CAT [Q]l NEXT [J]=CODE LIST BIN RETURN O!S LIST BIN DRAW DRAW , OUT 5? SAVE [R]O©▞[E]/ COPY < LET LIST x OUT STOP ?IN N COPY ©JU LIST us}K NEXT }'USR +PI MOVE ? CAT [P] RANDOMIZE LOAD DRAW |[P]?' CLS LPRINT ▞oN> NEXT LPRINT >▞▝' OUT CIRCLE OPEN #JoCODE u LOAD J RUN l,`USR = IF USR PLOT _d[P]USR 2 PAUSE CAT |[P]o` RANDOMIZE td[P] LIST GO TO RETURN xKPIVAL ^> INVERSE RETURN INK g SAVE > DIM >©< NEXT DRAW CAT _ TO g SAVE BORDER CLS RETURN FLN CODE ![O] RESTORE ▞7 COPY con`nnSTR$ LPRINT VfCOS [P]f> NEXT USR SAVE LPRINT RANDOMIZE ©O▗n> OUT READ RETURN TO g© BORDER CLS COPY |n LIST LPRINT } STOP COPY NEXT |~[J]O< NEXT RUN x LOAD I4{ny LOAD LOAD RUN VPI COPY O LOAD USR @P LIST BIN RUN <O!IN LPRINT [J] BORDER [P] RUN Y5 READ @ CAT D$/ READ /@[P]STR$ [O]Q!8NVSTR$ oV? BORDER +# LIST TO USR LET o RUN <[P] CAT |[P] CLS USR [P]BIN g© LIST IN > LET RANDOMIZE ▝g READ STOP NEXT LET g~ RETURN LET BIN ? CAT RANDOMIZE ▞ LPRINT © DRAW |[P][P] SAVE COPY RUN [J] LIST CAT ka DRAW DRAW OR aiii CAT oYPI MOVE SAVE > INK >▜ LIST >▟ LET <>?< COPY x? PLOT ©<CODE USR S[T] PAUSE RANDOMIZE USR gO OPEN #?1 FORMAT <[A]3gUSR OUT IF BIN LIST ? POKE ▖' OPEN # CONTINUE TAN BIN LPRINT COPY LOAD Y]COS (/qUSR O STOP =o CLS RANDOMIZE ▗ GO SUB OUT IN STR$ COS =PIq@CODE g?S COPY f COPY TLLt©*[P] SAVE USR ? LIST d NEXT o'> LIST COS t GO TO [D]©|[P] DRAW PI CLS SAVE { STOP RETURN FLASH 0t▟>USR <>>? CAT RUN COPY gw CLS TO ZLEN /tkL BORDER ;[A]?`[Q]O FORMAT { AND AXCOS hSQR Mp FORMAT BIN MOVE p? COPY xVUSR SAVE O DRAW ne COPY USR l/ CAT [S]/|SIN INT CAT DRAW x<>> LPRINT < LET LPRINT | OUT INT CAT RETURN Lx[P] SAVE LIST CLS ▞ COPY ? LIST BIN BORDER ©[P] RANDOMIZE SAVE USR 3[T]▘gsV▞! BORDER CLS SAVE CODE ▝OoUSR nACS 8 LIST e3?▚ INVERSE P INK '<OY[P] LPRINT ?< NEXT LIST x>o SAVE > RETURN > COPY ▗g© CAT NEXT LIST 4 CAT [P][O] CAT [P]F LPRINT IN [O]Sg▝[O]B▟p<D>= EXP [O]EXP [M] COPY COPY ▜S"![L]! FLASH > STEP [N>q#h CLS |ATN CHR$ b*▛BUSR [T] GO SUB VAL !J[M]_s#r# THEN z( RUN LN OR STEP Zb]T©b~w#?INT STR$ x DRAW LEN READ NOT USR h GO SUB _VAL$ # GO TO NEW OUSR [Q]$ THEN [E]"[boa`ATN GO SUB B0 READ )0<>(VAL COPY USR (VAL IN .0PEEK l▝ABS SGN LSQR INT 0▝EXP "LN ATN ▖@ACS ASN TAN q COS COS SIN STOP LEN LEN VAL VAL CODE ATN POKE VAL$ VAL$ TAB TAB AT AT ATTR ATTR SCREEN$ SCREEN$ POINT POINT FN PIPIINKEY$INKEY$RNDRND[U][T][T][S][R][R][Q][P][P][O][N][N][M][L][K][K][J][I][H][H][G][F][E][D][D][C][B][A]▙▟▛▞▖▜▗▘▝©~}|zyxwutsqpomljigedb`_][YWUSQOMJHEC@=:730,'"!hb GO SUB VAL OIN PLOT ▞@USR m STOP COS >[S][O]g THEN CLS w, PRINT . STOP 4@cr$s$p$q THEN 0>0_[D]W CONTINUE CODE ? GO TO 2)i"@ COPY u8 RUN , MOVE k"FN k> PRINT AND STEP [k LET AND RETURN USR 8 NEXT ! READ [A] LINE !E|>F STEP BEEP STOP l: AND NEW [A]+/si2x7P INVERSE !b RETURN lo>2jINKEY$+,ABS i0 OR RESTORE ~ STEP AlACS IF LLIST RESTORE # OUT TO INKEY$<(NOT y OUT j4TAN J$ INVERSE wATN .zc.( 0 NEW 8_z NEW RETURN (( RETURN (<GzCOS W:V/USR Z<>STR$ " RESTORE PRINT ~/w* LIST SAVE LLIST ▚ INVERSE rINKEY$SIN INPUT IN PAPER RUN LLIST STR$ # INVERSE ▗ DRAW #x RETURN 0 RND[C]:FN z/+PI&CHR$ i MERGE ▖ COPY INVERSE P RETURN MOVE THEN tCHR$ rTAN oVAL OR 0 COPY FOR FOR STR$ GO SUB LEN OPEN #!x[L]COS g DRAW TO INVERSE B INVERSE ^w LPRINT ;+ PLOT INVERSE LLIST LLIST H[U]STR$ DATA READ DATA "f+#qp!SlTl>~▙*▙©qp DIM l[H] CONTINUE !▗l>=%0|<[T]ATTR ,2 PAUSE jO▜▜▝ AND (o DEF FN }[F]g^#V# GO SUB Sk[I] CLEAR )k~ PLOT RESTORE :FN o RESTORE JHRa[M] MERGE ABS ,l MERGE ~_▖ STEP P}>=SGN RW{Z1 CLS COS MOVE # COPY RND IF DATA FLASH ATN CHR$ iNOT 8~2? DEF FN VAL$ kA STEP COS k7 DRAW GO SUB Ckg.=> RANDOMIZE L[B]k LLIST >F[D]8IN [H]k INK *NOT l PAUSE / INK G STEP _M RETURN `8 STOP >_G▗*[A]G STEP MOVE ky INK RETURN CHR$ k<> COPY COPY ATN >=_ INK mR0 CLS <>[T]* MOVE DUSR { AND _ CIRCLE z VERIFY W<>&chV$~$i▚_0$VAL$ <> OR >IN [B]O FLASH V>n LET DATA STR$ <>] VERIFY LEN "08 THEN # THEN POKE |<>> COPY !C<>SCREEN$ &`CODE VAL$ w PAUSE LLIST CLS LLIST , PAUSE <>$|STR$ AO}Oo CIRCLE |Og▗<> DIM DATA `[B]<> DIM COPY ]Z. COPY ▘* COPY USR COPY COPY USR FORMAT LPRINT LIST $[L]![N]h<>&!"d[D]~[K] CIRCLE ▞~ REM $ RETURN `USR 1a~ OPEN # CLEAR LLIST MOVE STR$ INK M DRAW GO SUB s}▗>= RETURN 1USR OR MERGE RESTORE INK UbSTR$ V GO TO BEEP * VERIFY T RANDOMIZE A[R]" SAVE SAVE [K]Y NEXT ©BiY CIRCLE !*C PAPER 3C SAVE =[N]▗ATTR !p} DRAW SQR OR GO SUB VAL STR$ *~}" DRAW C*▗} STEP 2l▞CHR$ "*#LEN *[K] NEXT LOAD [L]$"h*RND▟BIN *IN 4* LINE Fb* MERGE * LPRINT #LEN STR$ [N] DRAW ▛!w>/6"#_[L]6#>z▜n DEF FN GO SUB A LIST <>©t REM tN qt SAVE t NEXT ▜ * RETURN C$0 STOP *#~ NEXT ▜ LPRINT COPY *C$a TO *.6<>![C]©[B] LINE 6 OUT SGN N6>ATN ATN @ LIST SY STEP FORMAT [L] CLS v NEXT PFN #[L]> INPUT 2?©! PAUSE j4~ INK ▙ POKE S4▛ DEF FN LOAD [Q]N FOR <r FOR STR$ [D]©: NEW COPY OLEN 2<▗: GO SUB D NEW IF AND h MOVE [B]▗▞%[N] PAPER aL4:▖0 COPY FN HWp NEW g` RESTORE COPY [A]3u>KINT COPY ▝[E] COPY ` GO SUB _[N]CODE |ASN LINE {IN CAT [L]+)>=[A] RANDOMIZE TO ][L]2-s[S]"ATN LINE 7©=(!X©~ RETURN 0(4NOT RANDOMIZE %ATN (5[B][F]>IN [E]r[L] THEN ~(SGN 1~#26 NEXT BIN "^[L]<>[I]ASN [G][T]x COPY :ATN g CIRCLE CHR$ ,/ OUT _^#CHR$ [Q][L] COPY V▖[L] OR STEP RETURN [L]STR$ REM NOT v CLS v SAVE BEEP {INKEY$sUSIN PIN GO SUB PEEK [L]▝ RUN PITAB i DEF FN [C] RETURN RESTORE ▞!{ REM PI <>! RUN Z SAVE COPY + CLS ~FN PAUSE PRINT [N]=<>|%vACS ABS VERIFY h CAT ABS AND ABS CLEAR ASN FORMAT STEP +[M]!` OPEN #v[B]USR VERIFY INK E PAPER m LIST k{ NEXT _ FLASH PLOT IF OPEN #fIN A<T9<]l AND b TO COPY <GGGG7/S*!ebgb RETURN GO SUB VAL !USR USR COPY ?up~▞ COPY USR OR ESCREEN$ JSTR$ >_[D]W LIST !0©@s#r# STEP axz RETURN X POKE !rh▜hATTR COPY Z6+ THEN t RANDOMIZE CLS v NEXT !kh[G]o&3X GO SUB VERIFY [Q] COPY CLEAR A[T]( GO SUB s3x INVERSE .10©!px MOVE INVERSE }_ GO SUB [Q]▛/ COPY RETURN COPY TAB !1[Q](& CLS :khATN v CLEAR < RETURN LINE Mx2▝VAL$ PNOT Vb!@# CLS PRINT <>z NEW USR { AND _ CIRCLE z VERIFY W<>© COPY DBIN COPY IN COPY ERASE % COPY RETURN [B]_ COPY RUN ▘>= CLEAR BIN # FOR ▙x IF ACS /O| COPY l MOVE ] FORMAT aO©1 COPY ▚[I]©▙P>=<>▙<=ACS LOAD KA LOAD B MERGE CIRCLE ATTR FOR 7O,ATTR 7CODE HD▝ RETURN POINT K ERASE ([G][B]} LLIST c`G1dRND[P]0 LIST ©9©[A] RETURN $AT X[U]!A[P]oF[O]ABS LPRINT <= IF DRAW KACS BIN © OUT BRIGHT P_CODE GO SUB 4 LIST SAVE 2Tx BEEP OUT 1Dd/h?O LPRINT ?_G{o@G©UUSR COPY BIN _%` COPY SGN (_ATN V<= READ r[R]W NEXT W%p$c? BEEP ERASE ? DRAW I# BEEP IN ▝▙ CLS COPY 3h/ FORMAT VAL$ 7▖[F]ATN INT ©}▝4B5[P]8STR$ <C/TAB NEXT ' PRINT 1GBIN CLEAR DRAW [P]o CLEAR ur LIST © LOAD CLEAR SAVE BEEP IF TO ▚[O],HSIN pXg CLS IN D6p BEEP 7/▛d©{4RND DIM [P] OUT [G][P]GPIG INK ▞[O]▝/&[H] PRINT z▚[H] COPY DIM ?[H]Z[R]?O;?USR [Q] BORDER /_9VAL$ *H▟_ COPY VAL$ CIRCLE USR AAqFq2CHR$ B>=zC-; LIST CCkaskt>=USR D3ACS /B CIRCLE #CSIN v[Q]FFVHCHR$ FLASH ▝GGONOT F[I]O@tQ STEP RESTORE d![L]H GO SUB VAL Y}© CLS v6[A] SAVE INVERSE vLEN @ OR k DRAW © OR >[A]2bb2Db▛X[I]bX STOP (PEEK COPY 'G#xLEN LET ▜ DRAW PEEK w[G] CLEAR OUT NEXT STR$ ABS > STEP [USR RND7} 7!?T[S]USR COPY LINE LPRINT b RESTORE b#_eATN }(AATN 0w, PAUSE ` LIST $ PAUSE [P]W▜▘▖ DATA H- INPUT 2USR b2>=>`#4e OR " RETURN < PAUSE c RETURN ▞ ERASE VERIFY © PRINT MERGE GN#E▝{ AND _z8 VERIFY W RETURN CIRCLE CHR$ d0D* MOVE LET MERGE USR MOVE STR$ CHR$ OPEN #b: LINE b<2▚}5CHR$ ABS biUSR >A@TOSGN U▘[P]W▙PdZd} BRIGHT n[J]] THEN ▜w$F[D]%JLEN CIRCLE CONTINUE [U] MOVE @ CLS [D] GO SUB u)Yd COPY ▝Y[Q]6[J]>= INK INK <>dG DATA ©k INVERSE ! PLOT d OR OR DATA NEW [D]B STEP DRAW d[C]]X NEW FA|K DATA STR$ INVERSE # FORMAT STR$ PAPER 1▘ STEP F[G]t}S` PAPER 20} PAPER AM PAPER M PAPER ©E<ZINKEY$ CLOSE #(B READ [S]<>▗>= INVERSE . INVERSE cN▝[S] FLASH INVERSE NEXT / STEP VERIFY d INVERSE - PLOT STR$ CHR$ Loz NEW USR T9SIN CIRCLE zLEN <>CODE OPEN # RETURN ! COPY Z RETURN Z COPY 6%* LN <> INVERSE ~ AND `o& CIRCLE RETURN } INVERSE Fs,TAN LOAD ©o[F]gCHR$ e<> COPY @▝VAL [A]O5©[L]([C]^Ao}[B]iDc[P][I] CLOSE # RETURN }][R]D[P]A#`;"▖t DIM ▛[D]SCREEN$ LOAD COS _H[S]?w▘[S]C[P]; INPUT FN`▛r▝[P]mLN LPRINT a(PIC~3 LPRINT +LN [N]0cLN ▘USR QSCREEN$ OUT LEN _[B]?FN SCREEN$ Q DEF FN 3 VERIFY .[P]]p. STOP NOT a LPRINT ALN SCREEN$ ?_PI3 STOP )©&▚▛5>=O@kLN A LPRINT CLN ▖O([I]3S[P]VAL$ [M][G]A STOP LPRINT CLN (COS [P]k▘ATTR [H]RND▖ STOP [S]AGq.ao(A_cn▝[P]H[S]} JLN Q[Q] COPY [I]▞$[P]PII SAVE <=o8 CAT [Q]q] MOVE OR [P]CO<= CONTINUE LN VAL$ 1"I0(VAL$ LLIST = OUT W READ Z_▛[T][P]OALN ▖8s)_(LN S LIST LLIST REM >5*.[I]_ LET . LPRINT © RUN [T] LPRINT JhSTR$ VAL$ ah▙ATTR a AND cVAL A_/QpQU TO @QATN DEF FN E?cOEQAPI LLIST [P]mITINKEY$5PI/USR [R]ABS WRNDa_CpFN [B]O[F]!aPEEK HTQn/VAL S_aD/=(3BIN OR O@[F]/aFN [R]/NOT LN A TO RND[P]SG MERGE / MOVE 3F THEN FN W<=C OPEN #U?_[T] OR /Qha] AND hoPEEK %USR e▘[N]I[A][D]PPOINT INT q/ OUT _c4/?& PRINT 0VAL ASN F&DB9 FORMAT EEG|▝ACSIN ( LOAD SSIN E▚ BORDER ex OUT ▝d[S]k DATA y NEXT D TO ATN / PAPER ^!D RUN e▖uBNOT [C]nFd OUT 7b THEN Fe<SIN |EuN CLS INT ? CIRCLE BEEP DIM FORMAT WATTR ▗?CHR$ CONTINUE _ PLOT uD6][E]?>= ?! RANDOMIZE CHR$ }ATN ` OUT 9SIN BRIGHT |▜?"▖▖[K] PAUSE ?C RANDOMIZE [B]ATTR }▖[G]-STAB 7CrUSR d BORDER ATN RESTORE INVERSE p FORMAT PAUSE I?( CLS > OUT GT[B RUN }tCHR$ x_NOT G>SQR ▛[G] COPY DRAW FORMAT "8 COPY g LPRINT USR > SAVE VAL$ |%[O] IF OUT DRAW ?,8▞PEEK O RUN ABS OUT SAVE G7© LPRINT | NEXT LIST USR P▘8NOT READ ;4@USR #'[C]©~a; SAVE USR 1aF@ STOP g▝ LIST MOVE }} CAT SAVE PI? COPY RETURN LET [U]AT [E]J1 OUT ©= OUT [E] OUT COPY z OUT RETURN !SIN PI OUT !?>=USR SAVE 0 OUT ~E>=▜STR$ OUT C OR `1x:0$ CONTINUE OUT ©USR RND OUT OUT [Q][R]~sF OUT o(SGN [P][N] THEN LPRINT MFRND OUT ©VAL ! CIRCLE LIST 4BOh 64,!4 AND OUT LIST OUT ▘3~D(@ OUT G OUT [D]X OUT INT > CLOSE # LPRINT COPY [P]▟$ STEP OUT BORDER OUT f[H]▞ GO TO [Q]_ LOAD OUT USR OUT POKE CONTINUE @[F]▝ OUT COS S OUT OUT ▘pg+d< BORDER LLIST OUT VAL$ [P]G DATA LIST [L]G OUT LLIST USR A NEXT ? OUT ERASE LOAD CAT `F OUT "[H]t>}IN BORDER 9 OUT FLASH BORDER FN [R] CLEAR [M]▗[C]4a! OUT N LPRINT ? OUT READ ▞ OUT &Ba OUT READ 9IN OUT LIST ZR LIST LPRINT ;D OUT <= ATN OUT LIST ▘ INK INK -r" OUT LIST THEN OUT 5 LOAD OUT @ READ 1J OUT [I] OUT COPY ▞FN IN G OUT ACSTR$ [E] OUT N LIST P OUT SAVE 0[A]$[I] LPRINT [M]▗ OUT VAL CHR$ 9 LPRINT USR `IN RND$PEEK OUT pRND LLIST LPRINT IN [J] OUT RETURN ?Bo▞ DIM ?BtJ OUT 8 OUT ZF▖80[C]USR M OUT LPRINT $[S]M OUT ▚▖▚6 COPY NOT ▝IN [S]U OUT ▝`}BIN LPRINT ?`FN = OUT [L][L]D▖ LPRINT AND W<7 STOP MOVE LET [T]# LPRINT OUT f▜▘©% LPRINT | LPRINT LPRINT OUT ! STOP }0[E] OUT PEEK INT PIjEUSR E9PEEK [T],[N]a^▗ BRIGHT , (TAB READ >"91▜ RETURN <= BRIGHT THEN l RETURN % LOAD 2[M]<=VAL ▚[n▛TAN B▛|D BRIGHT ▙V/ LIST X INPUT a SAVE D DATA [Q]6O>?0m▘aAT CLS 6PEEK %STR$ CLS LET P[M] COPY j LLIST T© COPY PAPER SAVE NEXT RANDOMIZE COPY LLIST NEXT 8qPq[I]CHR$ /~(INT CLS qc OR COPY CLEAR ▞CODE SAVE 5USR ASN INPUT OUT [O] OUT F NEXT LEN BRIGHT INKEY$[C]~nZ OUT } OUT COPY ▜R* OUT ?? OUT 8%H OUT SGN ▝68 LOAD SAVE PAPER ~▙ OUT IN 6D LINE OUT VAL$ BIN ?[P]IN SAVE SAVE o;"Z OUT DATA q OUT ? OUT COPY STR$ LIST p RANDOMIZE LIST ▛h OUT OUT FORMAT U[R]3)` OUT OUT [M]USR a5VAL VAL OUT CHR$ USR X OUT DRAW F+▗5Ea OUT BORDER q OUT TO USR ,S%Y OUT $vT OUT E OUT D;▙,,SGN USR ~[D] OUT [P] OR [J] DEF FN DRAW x OUT DIM STR$ [J] OUT ©Wf LPRINT RANDOMIZE RANDOMIZE STR$ [P]:[H][Q] COPY OUT ▜USR OUT LET FLASH S CIRCLE GO TO rNOT ! OUT 0_ATTR OUT LPRINT OUT © DRAW COS VAL [F] OUT LPRINT FA DRAW KINKEY$amLEN OUT "XJ OUT IN ? OUT ▜▚ VAL$ 3 OUT VAL [F] OUT >A OUT T" ERASE STOP f DRAW TO ▘[M] RANDOMIZE 4!USR M> LIST &LN OUT IF ` RETURN OUT LOAD RETURN RANDOMIZE CLS LLIST E OUT © OUT OUT LPRINT ▝c[B]l CIRCLE B TO N3 DRAW © RETURN OUT DATA /COS SQR EUSR LINE NEXT P FOR OUT P1[H]@[L]cN@YIN 0 LPRINT OUT Ge OUT RETURN ASp3<=0©[I]▖7 OUT TO OUT ▙, LLIST OUT LET f OR POKE ? OUT NOT n [ DRAW OUT xLN IN RUN LPRINT OUT IN ? LOAD 8 OUT VAL$ ▝[K] CIRCLE INKEY$ INVERSE A OUT DBIN 1F OUT ?![B] OUT BORDER c, OUT PLOT ©q[M] COPY ue OUT [D]0 LPRINT ▖ OUT [P]INKEY$ OUT Tx LPRINT LEN OUT f LLIST b[I]M LLIST COPY RANDOMIZE ▘s OUT ?[G]9 OUT OR . [ OUT READ MOVE OUT ? OUT CHR$ OUT USR SGN STR$ OUT NEXT LIST EXP LLIST OUT [M]@r INVERSE Xd NEXT OUT R[B]▜ OR X RUN 03 BORDER >= NEXT 4 TO LPRINT [I]Q OUT &!5J RANDOMIZE BORDER RUN ▚[J] LPRINT LET OUT ▞/ OUT h CIRCLE LPRINT AT LN AzNOT VERIFY [P]8 LIST OUT VERIFY RETURN !$ OUT OUT ACS ANOT ▛ OUT W[M]STR$ ©▝ NEXT RESTORE < LPRINT LET NEXT P OUT C DEF FN OUT POINT l[I] LPRINT OUT !USR ! OUT S TO B[N]i OUT |▟0[B]▜ OUT '8{ STOP LPRINT ,▜ OUT 4S STOP LPRINT BORDER 6 OUT N LPRINT USR OUT RUN ▙▞R DRAW USR [A]a FORMAT RND>=[Q][F] OUT RETURN OUT A PLOT CLEAR OUT LIST ▝ OUT f LPRINT xLEN LPRINT POKE LPRINT G< LPRINT [B] LLIST OUT U PAPER SIN 8 INPUT o▙p OUT ERASE STR$ )QvrCHR$ PLOT 3 LLIST s|▚ FORMAT IF aPAT rCOS P|3)AmSTR$ `nBIN ; LPRINT ,~USR DEF FN b©BIN IB LET VAL$ [K]5 CLOSE #▞g[F] LLIST RETURN 1h OUT ( 8V(>=IN SQR z CIRCLE SAVE [D]p? LPRINT . DEF FN ?[P]▜<= CAT MERGE >(8[U]<= LET =?[I][O] COPY <=STR$ COPY DRAW PAPER >KSTR$ INPUT RPDSTR$ s2[T]2 OUT N OUT Tw"[A]~ SAVE C OUT B1 LOAD READ USR OUT `xC BORDER OUT 6`▚NOT SAVE Ye[B] LIST VAL OUT NZa( BEEP SAVE OUT ZIN s7 OUT ▜[A] OUT DRAW <=(USR OUT QS▞@Mc▖[E]hCHR$ OUT ATN RETURN NEXT ▜ STOP [S]#<`PEEK OUT ▗▜7{ FOR ? CAT OUT OUT LN INT OUT Y OUT USR USR [`% NEW "[O]90[A]' CAT fX[A] OUT | OUT LOAD USR ` OUT COPY [N]▝FN Ep8c▚ LPRINT B DEF FN COPY POKE OUT DRAW RND OUT | OUT ? OUT STR$ SQR p` OUT ~_e©L[P]▜x DRAW |G2▞IN OUT COPY [M]>=7 LLIST LINKEY$`6X NEXT ▛ LPRINT ▜[K]8d8u OUT 1?[H]~ PLOT CIRCLE 38! READ CONTINUE C OUT A STOP % RANDOMIZE i LPRINT ▘ OUT ? CLS u4▗ OUT M[U] OUT OUT ? LLIST CIRCLE OUT [A]j LINE OUT [5IN [O]F[Q] OUT [P]HN OUT LPRINT _0?IN DATA LPRINT OUT < PLOT _ OUT STOP [A]<= OUT ▞>=STR$ OUT TO ▚XTAB /▙ LINE OUT ?P<e OUT e#6>=r> OUT s| OUT b[F]PI DRAW 4r1A[R]~[F] OUT BIN [D][M] CLS [K]E[P] DRAW OUT )▝a AND LEN plIATN LINE 62[Q] OUT V|~▞[C]EXP OUT >▘▚ THEN THEN m OUT BORDER DRAW CLS OUT a AND IN e[R][S]d[M] LINE SIN OUT ▝X9U AND © ERASE FR @ OUT OUT [J]e<USR [T]BIN L OPEN #A~]8 THEN Y'AT > OUT RETURN AND Ar OUT >?[C]q TO ▖ OUT >FN 0l OUT COPY DEF FN OUT ▘$ VERIFY ,w[Q]h POKE [C] OUT <= OUT (W[E][S] FORMAT [R] OUT W OUT 8 TO [I]9 LINE [D]p<>p OUT LPRINT h7 SAVE LN h LPRINT 8Dd OUT [H]▘AT } SAVE v CIRCLE NEXT BORDER OUT ©<= RUN OPEN #)[L]px OUT CIRCLE LPRINT OUT e OUT LIST OUT BRIGHT '7 LPRINT G INPUT pi OUT ~ OUT ▜ LPRINT TO p OUT [S]SIN CLS PAPER [Q] DIM >=a OUT IN OUT ERASE COPY STR$ OUT 3 LPRINT NOT ▙ OUT LPRINT F"▛* LPRINT FOR lD BRIGHT OUT NOT J5 DRAW ▛ OUT Ad?8INT USR ©[B],▗ OUT K LPRINT SAVE OUT USR LPRINT ▙ PRINT OUT CBIN LPRINT [M] OUT LLIST U[E]AT R@ RANDOMIZE STR$ A LPRINT DEF FN ~WNOT y▖ OUT TAB DRAW _k" LPRINT = OUT vCHR$ CODE REM [S]<A READ a"W( CLS IN Ee[R]CODE W INK u(▗ PRINT 7FN o; MERGE ATN ▜I.▖▝▖lI RUN CLEAR 3 RANDOMIZE "CODE uVAL LET ]ACS * LPRINT CLS c6▖|Sh DATA PUSR 5PEEK -b;USR RUN M[R] LOAD C@ CLS |▝s0 GO TO COPY s[A]<N READ ?[M] STOP H FLASH OB CLS COPY COPY IN COPY .[A]JD|© OUT RUN CLEAR RETURN [B]9" DRAW NEXT W<= CLS RETURN COPY ▝ COPY [J]CODE ? CAT LINE , DRAW ▞ RANDOMIZE T*[F]BPOINT @ STOP FN U*RFN T[E]UG STEP LPRINT LPRINT r READ y DEF FN ? OUT B DEF FN >= BRIGHT <= RANDOMIZE TO STR$ [D]v COPY LLIST $ LLIST ;P THEN (* LPRINT CLEAR [B]©0Buz GO TO `i▝%{▝© NEXT COPY COPY LET m[G]USR ?© SAVE -z OUT LPRINT MOVE [P]0[K][P] OUT D[A]©U<>p OUT ,©[B]o[C] ERASE RUN J OUT COPY OUT MOVE DTQ?STR$ OUT d[I]▝thTAN [P]?© LIST OUT ©PI OUT ? OUT FN FN LIST [H] OUT "t_} READ ▙} MOVE |[S] CLS LOAD >s[S]▛ CONTINUE jz READ BEEP 7 OUT STR$ LLIST OUT J OUT ▘ NEXT ^ CIRCLE LET OUT * REM SCREEN$ ▟ OUT $&DAQ[B]@2"▖▞2 PAPER ▖ READ ▖Q OVER ?▟5D[S]▖I©:IN ERASE INKEY$[T]IN NEXT [E] INVERSE LINE BORDER COPY ?e@Q<>G?LEN ©uC`?)QRND> SAVE %DqP OUT p RUN OUT RETURN L OUT 9CHR$ @/G>[F][D] OUT $BIN A BORDER FORMAT CLEAR <= OUT &" RANDOMIZE &▚C GO SUB OUT @[E]G OUT READ BRIGHT @cp OUT C DEF FN [Q]v`[G]? FOR !J[FN $[I] OUT "▖8" NEW PI[B] OUT SCREEN$ J[R]T%[Q] ERASE ATTR F[M][M]$b REM MOVE ` LPRINT DRAW [E] OUT NOT ©[I]q" REM -` LOAD [I]` MOVE TAB j OR D[Q]V9ABS ?ATN LPRINT `J RANDOMIZE '3tD}NBIN NEXT NOT # CONTINUE ▖▛[S]▚Q OUT COS ©USR qUSR s LLIST @[A]XqX LLIST IF s IF INVERSE IN [L]©[H]▞l© THEN [M]>= COPY g5[G]▜p POKE NOT ▝3 LLIST ©P OUT COPY a DEF FN m COPY ?USR qPEEK LIST BORDER LET oi GO SUB COPY ?▝ DRAW RETURN NOT SAVE © LIST pPEEK | FLASH w▜'!USR [H]B RANDOMIZE THEN RETURN 7 CAT }1 BORDER NOT 3CHR$ USR STOP t BEEP FORMAT F[N]Ha MOVE :$ OUT NOT OUT LN D6▛ OUT :U[J][N]h RESTORE <>EXP OUT 9IN ▗▖<> OUT ▝ OUT VQA OUT ? MOVE OUT ▝ SAVE TAB [K] SAVE $ BEEP LN SCREEN$ [G]©STR$ [P]B PAUSE ©SIN IN © FORMAT ©USR OUT STEP TAN VAL$ [T]▝x[R]▝ OUT ^ RETURN ?STR$ [S]▖ INK OUT A.RNDf FORMAT 6 FORMAT LLIST [I]▜ BRIGHT ` OUT R LPRINT OUT COPY qB OUT OUT SGN CONTINUE EXP OUT ▗* COPY I OUT I OUT ▛!? OUT THEN ▞▘ LPRINT q[S]LUSR [Q] COPY [E][Q] DRAW OUT ▝▞[B] OUT IN A MERGE Q[N]6IN NOT OUT ? LPRINT 8 OUT i OUT NVAL LPRINT (*Y OUT RND1a OUT <= OPEN # OUT DEF FN v CONTINUE CHR$ [J]USR LET OUT RETURN OUT FORMAT D[A]B OUT < THEN IN [L]A▜ READ ▗ OUT HLN 9 LPRINT RESTORE OUT OUT 4[O] COPY F[S] OUT © MERGE OUT & INK Hr PLOT _ LLIST [L] OUT .[I][Q]DSTR$ LPRINT D OUT ▝SQR `NOT LPRINT [P]mLN S LPRINT / OUT [U]▗` RUN OUT LOAD BIN ▟ OUT LPRINT D OUT STEP F[K] GO TO 4▝$ LPRINT OUT [D] STOP IN O OUT wPEEK INVERSE [O]= OUT F` OUT fSGN ▜ OUT OR OR qSTR$ ? CLS WLEN ©`RND' COPY RND LPRINT ©8VAL / OUT /-`©g1 OUT ©▜B COPY READ OUT [R]` OUT fNOT SCREEN$ 0[Q]3 OUT C[Q] COPY STOP OUT FORMAT ▙Y OUT ATN STOP `[T][Q] OUT PRINT p[Q]STR$ AT COPY DATA K 3 OUT [Q]q[T] OUT COS U[Q] COPY NEW OUT $` OUT f PAPER F;[Q] OUT REM READ [Q]STR$ t COPY READ I3 OUT VAL TO LN f>=nI[Q] LLIST k2[Q] COPY READ ▟▖▟SGN LET LN COPY READ ▛ COPY RNDW&6[J]COS flUSR 030 STEP [I]1[L] LIST 1[I] COPY DATA [M]H3 OUT OUT COPY FORMAT IN EACS LOAD 3LEN [J]-1 CLEAR POKE ▛IN aATTR S OUT 01VAL COPY STEP OUT EXP 0IN lBIN ' PAPER |D LPRINT OUT [P]fg PRINT PI OUT y[I][J] LPRINT 1 LPRINT COPY DEF FN OUT 3 DATA [M] LPRINT ` LIST LPRINT COPY LLIST LPRINT [O]}<=© BEEP 0> LPRINT y LIST } LET IN LN @ OUT COPY OVER :L LOAD OUT f` LPRINT USR LLIST COPY LOAD LPRINT PLOT OUT up LPRINT STR$ DRAW FOR > OUT ▜fINT DONOT e▖A~[H]USR RETURN - ▘xq[Q]▟tra[Q]0CODE CODE BEEP RUN p READ ▝ IF 0 LLIST BIN DRAW ABS USR FORMAT Y[Q]Ot LET q▘}&EXP k RUN FORMAT AT . POKE <=[Q]VAL CSGN [G] DEF FN VAL -H RANDOMIZE ^L GO SUB lUSR K[R]"▟ FORMAT [B]I[H] DATA @$VAL BEEP P<=@c[G]ATN NEXT LN KEXP G TO [U][G]▟3C NEXT [S]D LLIST aD[G]▘NOT d▝▟# [G]CIN [P] CONTINUE l7STR$ 0 FORMAT :v▝STR$ SGN IN ▘ LPRINT OR [Q] IF LINE COPY SQR CLS ^ GO TO hEXP [M]l>=/▝((BIN 2 OR ;!NOT COPY TAN y@ CLS J. OUT A CONTINUE ~Q POKE IN ▖ POKE H} BORDER LET 94X▙STR$ !B6L AND . COPY [A]5@0[A]Q[L]J RESTORE R[I]-[C]) FORMAT CIRCLE rD CONTINUE RND DATA 84@4 LPRINT COPY [A]@[P]SIN ▘PI FOR ]GATN ▚% IF MERGE ▗z[K],2 GO TO gUSR ?[C][U]▝4 9%/K COPY ▗L{1▜cTAN d6 PRINT @KINKEY$' LOAD bKrVAL BEEP .[G]@▗ TO Lk COPY ▗ CONTINUE ▝L[S]TAN ▗VAL [J]!SB[ FORMAT iK[J]ABS 0C!<* NEXT LN USR a[Q]R IF RUN TA&@' ,PEEK D"H 4 THEN {8 CONTINUE H@( #WFN CLEAR RESTORE mdAd IF FORMAT @ LPRINT ▝ATTR ~@X2a RANDOMIZE D[Q] BORDER @8 USR ,c FORMAT VAL th BORDER 0@NOT @ICHR$ g/USR @ MOVE @dDP INK }▖[L][Q]s( POKE K[A][~($ BRIGHT IF F@ TO [A][K]~.nA]p{ OUT BRIGHT [E][B] CONTINUE ▝([Q] INVERSE 8 INPUT V$ IF RETURN %[A]D"33 LPRINT FLASH dYP[U] POKE LEN FN [E]>{[Q].db!_q▘ LPRINT ` LLIST ; DRAW "yATTR IN TO NOT @o BORDER > FORMAT CHR$ [Q] ATN MERGE FORMAT ▝dtsgTnLN COS SAVE LN [E]_3 BEEP STR$ DATA CAT ALEN X CONTINUE 3LINT >=+[Q]G[S]3USR DRAW J"?USR u COPY [A]@ DATA [G]@s▘ PAPER *[E]l IF E[H]▖C7SGN >=▝ LINE PRINT ▖NOT qET DIM COPY [R]USR @ RETURN heQAGx NEW FORMAT NOT AND TAN SQR [O],▖/ CONTINUE 2(x VERIFY 2 FORMAT ] CIRCLE BEEP [Q][K]1 FORMAT /SCREEN$ $#[K]ATTR |▗n/ LIST FhATN SAVE BORDER SAVE h▗ LIST ▚D] GO TO ▟ FORMAT CIRCLE ATN NEXT ~ DATA h▗ COPY RESTORE XA REM PEEK C/▝USR @[B]/LEN |1@ RETURN FLASH ImBIN Nt:t3[N] CONTINUE B CONTINUE ) NEXT LN (' COPY X@9POINT [E][N]>= PAUSE DIM PRINT ▘ FORMAT [D]LN ([R]1 COPY ▟ INK @.SCREEN$ 1 FLASH 1FN j< COPY SIN LOAD % STOP NOT LET tUU COPY PEEK LOAD 5[L] COPY VERIFY BEEP UU5[L] COPY VERIFY BEEP COPY CIRCLE /STR$ FN 1STR$ 5LN COPY CIRCLE FN 5/1LN COPY CIRCLE / OR h1 OR uFN COPY CIRCLE hu/1FN COPY RESTORE C<>4/ THEN VAL COPY NEW <[E]4 THEN ASN VAL COPY LLIST m[R] LINE P© FLASH EXP NOT 4 LET NEXT L READ zB BEEP <=~▞/ VERIFY A POKE @B?: FLASH @k[R]- POKE MERGE b▟ PAPER SAT N CONTINUE :9[L] BRIGHT YF OUT [N][K]▜[U] CLEAR L LPRINT PAUSE S[A][J]INKEY$}A LOAD CHR$ ▚;[Q]t&(COS ' DRAW h▗ DRAW P@ BEEP TO 48INT PLOT READ GO TO 4BATN RANDOMIZE C#n PAUSE :hIN PAUSE [R]RND PRINT =FN !▖PXiABS CIRCLE =▞▗ BEEP mhCOS ▚LN RESTORE PIN 4 FORMAT D GO TO d AND DA LOAD B[S]=[R]?COS @ FORMAT CAT y^; LET ▝[R]T READ USR :_BIN ▘[N] FORMAT ▛2 READ ▚ esB LOAD [O] CONTINUE BATTR Q FORMAT USR LN REM LEN ▘[O];POINT [A]:hW[N]>n, CLOSE #B/▗ ERASE CONTINUE USR DIM py& POKE 2L OPEN #r[R] CLEAR P CAT LLIST PAUSE REM Xh(|BIN RETURN P{T▟ATTR DRAW [P]TAN [R] CLS BEEP PLOT B'PI DRAW FORMAT STR$ / RANDOMIZE .[B]x@ POKE ▘l IF z)BIN B▗ LPRINT CHR$ CLOSE #= CIRCLE BORDER ▚[G] PLOT FORMAT PICr CONTINUE COPY D8 CONTINUE "[S]E[R]l2!©/QNOT A[Q]NOT SGN LPRINT [Q]USR , POKE xUSR < LET LPRINT LF CONTINUE STOP A OR [J] FORMAT ▗ BEEP NOT BIN t9ABS ▚@[Q]pFN M'([E]FN WuXUSR BLVAL FORMAT ▝ CLOSE #INT ZN▙hW7ABS FORMAT jX CONTINUE [H]i MOVE 8<[D]B_&i[E]#4NOT p[R]LN [S]&d[R]x!;NOT >? FOR [B]SGN THEN [R] COPY IN [K][Q] CLEAR `[N]PIN [L] RETURN (n( READ [L] DRAW [Q]▘▘`@/▖boBxpn INK RUN n=USR [L] REM [Q]![F][N]PI LOAD [R]xhSTR$ [J]ATN qPCBS'19-AUG-96
