14079 RANDOMIZE USR 0 NEXT H!FN a RESTORE GO SUB [ POKE / STEP =<><>
330154R^R^SCREEN$ IZZY_7+" LINE 115616 LINE [_[_LEN _@[M] CLS 1COS _ CLEAR !:/!Ua CLEAR u DRAW CLEAR t CLEAR !XX COPY u GO SUB VAL x OPEN # RETURN ! LET <>"CHR$ /> STEP !Ue~ RETURN COPY LINE LLIST a BEEP #v PRINT CLEAR 6 DEF FN COPY CLEAR ~ DEF FN RETURN N( RETURN n( RETURN Y( RETURN y GO SUB >ATN 2Eb!XX COPY u GO SUB VAL GO SUB [ POKE /!xi STEP xiq GO SUB [ POKE /!xi!7bUSR ]d MERGE GO SUB VAL NOT xi FLASH NEW RETURN > RETURN 2 OUT ▙>[A]2[J]▚! READ CLS RESTORE ! NEXT RESTORE CODE NOT 0=0000$~$l RETURN l>(>~240l TO (*D:0000p~4~0~0`~FJ PLOT NEW RETURN ~~B RETURN USR RETURN ~B AND RETURN DDD TO RETURN ~@~ AND RETURN ~@~ AND AND RETURN ~B~B< AND AND RETURN ~BB~ RETURN 0>~0~B~BB RETURN AND AND ~B|CHR$ CHR$ RETURN ~B@USR AND RETURN xDB AND AND DRAW ~@|USR USR RETURN ~@|USR USR USR ~B@ OVER AND RETURN BB~ AND AND AND >~ AND RETURN DHp CIRCLE TO AND @@@USR USR RETURN BfZ AND AND AND BbR OVER DEF FN AND ~BB AND AND RETURN ~BB RETURN USR USR ~BB PLOT OVER RETURN ~BB DRAW AND AND ~@~ AND RETURN RETURN 000BBB AND AND RETURN BBB AND l8BBB VERIFY OVER INPUT B$8l AND ▘D(000~0` RETURN @ p00 LIST 8T000 COPY "x`` RETURN | DRAW TO DRAW >ff~< ``|| TO TO DRAW |D DRAW USR DRAW 000|D TO DRAW DRAW @@| TO TO TO 000xl| $(xlf00<lT CLOSE # CLOSE # CLOSE #|D TO TO TO |D TO TO DRAW |D TO DRAW USR USR |D TO DRAW ```|@| DRAW 800<DD TO TO DRAW DD CIRCLE LIST LPRINT DT CLOSE # CLOSE # GO TO D(0x TO DD TO DRAW DRAW |0` DRAW p00 LIST (<B[J][R][R][J]B< INFINITE ENERGY (Y/N) ? (^ BY MAX IWAMOTO) MUSIC INSERTED, RECRACKED, REPACKED, REFUCKED, KEYBOARD MODULE RESTORED BY IMP'N'SA.CORP OF DREAM MAKERS SOFT! (MUSIC COMPOSED BY IMP). BELARUS, HOMEL 10.06.1994. COPY NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>USR q7z|zr$P▖6k MERGE POINT ERASE d8((@▝USR >[K]73mi DIM LLIST NEXT _ CAT PAUSE SAVE }~?n RETURN RETURN H@ OPEN #[O] LPRINT LIST CIRCLE GO TO TO ACS [G][H]▜ CAT COPY NEXT CODE PEEK ~ DRAW x LIST USR 8v©©x@hF8USR 8NOT ▗X GO TO ^>xUSR x PRINT (▘ COPY 1▘ COPY ▝xUSR [E]SCREEN$ *TJL*T(U)U)S+S+S'WP@▘?? BRIGHT ▝y(@SCREEN$ STEP COPY P▝ COPY y@ACODE ▛ LET AT ATTR LIST COPY CLS DRAW COPY COPY USR USR ▜[P][Q]RNDSCREEN$ USR ▝ COPY CHR$ @y▝ <= LPRINT [C]▘U DRAW o LOAD COPY ?USR 8FPOINT CLOSE #SCREEN$ Uss©USR s OUT ▘~qUSR ▜==M TO TO USR ▗USCREEN$ LPRINT AND ▝©USR ?[P]@▚©p~pp©JUSR [C] RUN RUN STR$ STR$ LET 99 OUT CODE g▖N[O][P]NOT OUT ▗ INVERSE OPEN # STEP OUT Q▚©U_SCREEN$ R@USR ▝ LIST BIN [F] COPY COPY DRAW CLS RUN wATN BEEP BEEP ATN RUN RUN NEXT LIST SAVE CLEAR DRAW CLEAR DRAW CLEAR SAVE USR CHR$ p▝ COPY @▝ COPY X@▙00122C)~▜© COPY PFN U CAT ▝>▝@`@▚xUSR ▞▛▛ COPY DRAW CLEAR <> CLS RUN )CHR$ ▚Q[T]O@p>s>`@[N][N]#USR BIN ▝USR <IN THEN BEEP IN ©"1USR PUSR '<=@▖CHR$ RANDOMIZE DRAW CLEAR POKE CLEAR POKE CLEAR ▗ DRAW IF STEP PLOT Z@▝ LPRINT Y@JUSR ▛[Q]O[P][P]_ELN CLS ▚FN P[T]?Q▘ PRINT q@D/▞©IN CAT RUN COPY OUT COPY COPY @▗?2USR ▚|vssv|USR ▘Tx;`▗IN AND RANDOMIZE RUN POKE IF LLIST RETURN SSTR$ s▝>USR ▘ LIST RUN qK▘ COPY >▘ POKE GO SUB OR CLEAR RANDOMIZE LIST RESTORE LINE [F]Zi`@[q.+{©w▘U*y=0▚ LINE USR LINE [F]x@;Py<FN AH▝T+x@t▝HUSR [I]FUSR ~ss~vUSR xLUSR *USR REM DATA LET I▝ PLOT ;USR ▚T[U]R IF POINT }USR 4▚[L]a▘▜▜I@lUSR ▚7 REM ~)USR ▝3@I RANDOMIZE IF RANDOMIZE U▘ SAVE CHR$ zUSR >| OUT INVERSE PAPER INVERSE INT [N]AUSR 9X9UUSR ▚8X8XLN Pn▝7 COPY d<> INVERSE ▝©©>USR ▝ LIST LET ▘, DIM :▝p COPY CAT PRINT ©o▚ LPRINT SAVE RETURN LOAD CAT & CLEAR G▝O©©@n CLEAR ©©USR ©>=© CIRCLE © LIST [G]k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d8 COPY COPY COPY / OPEN #▘STR$ NEXT [B] LOAD [H][H] LOAD LOAD COPY DRAW DRAW COPY [M][M]©©w▖INT STR$ x_ NEXT ▝ SAVE BIN COPY ▚_PIPI[▝▝▚ CONTINUE CHR$ USR [R] READ READ e OUT OUT CLS - RESTORE RESTORE ZZSTR$ LINE INPUT ??" CLOSE #▟STR$ LLIST LLIST MOVE MOVE RANDOMIZE PLOT PLOT RANDOMIZE RETURN RU▘ OVER OVER ▞ DIM DIM AND 88 FORMAT USR CIRCLE ▚ TO PLOT PLOT D' CLOSE # IF CLEAR CLEAR IF IF CLEAR RETURN RETURN CLEAR CLEAR ;▞ PLOT PLOT <=©© COPY ©©IN ▚IN ©SGN SGN @Zk▚ INK INK 1NT▖<><>Y▝USR eh▞! VERIFY BEEP LLIST VERIFY VERIFY LLIST LLIST VERIFY yT THEN V[D] RETURN IN IN COPY CLS STOP RANDOMIZE {ATN ATN OIN IN }[O]▖▝xro▚211u MOVE COPY CODE __PEEK ©© RETURN RETURN DRAW LIST LIST LLIST CAT CAT CHR$ COPY ▝ LIST pABS STEP ▚▛[D]`` VERIFY USR BIN LPRINT ▛c BORDER BORDER NOT LIST CLOSE #<=▝m▘[I]▚ COPY COPY <=?xK▝ RESTORE COPY ©©C BEEP LINE >=▝0 DRAW DRAW ;; POKE FOR FOR CLOSE #(( FORMAT FORMAT ; CLOSE # CLOSE # CLS CLS DRAW CLS CLS GO TO CLS CLS STOP [N]@@▘▘[[=▞%%▜▜▝$ NEW ▖<> BORDER BORDER RANDOMIZE RANDOMIZE >=?? OUT OUT /▜ BEEP BEEP ))) FLASH BRIGHT USR USR SAVE USR DRAW STR$ SAVE 5ASN ▘@@=BIN SAVE y COPY COPY POKE ▘NOT POKE ~ COPY [P]/ OUT ▝; GO TO ▝[O]▚ COPY [O]? COPY > INVERSE USR FOR ▗▖I OVER SAVE DRAW RETURN COPY ©? OUT oIN OUT OUT LOAD LOAD USR o▝}*? READ m FORMAT ▘©VASN USR LPRINT LPRINT ▝ DRAW DATA ▘ BORDER NEW a▘?}▘<@PI▘ RETURN SAVE {©NOT !G LLIST OR COPY FORMAT kg TO ▗ READ BORDER CAT x@ BORDER ▗[P]IN COPY RESTORE RETURN DRAW SAVE TAB LIST NOT RUN © CIRCLE © CONTINUE © SAVE IN d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ▛ ERASE d86k MERGE POINT ERASE d8 DEF FN LLIST USR x@BIN LLIST COPY USR xBIN @ OR AND [P] AND x@ THEN ZK▙▝ DRAW R_x THEN x@.[D]x@y@▝xx@▝ COPY y@<=xUSR xy<=y[U]yzNOT y@A6USR yUSR THEN yx@USR zBIN NOT COPY x▘ COPY COPY yUSR zUSR zxUSR z<>z@yUSR {@zy@USR { THEN zUSR STR$ ?(▘?{@ THEN ▘ RUN RUN F[H]5;{{ THEN U▛? LINE DRAW ▝{USR THEN ▝ RETURN PRINT BIN CLOSE # COPY USR | AND F FORMAT LPRINT d@▝V OUT CHR$ ▝6 VERIFY STR$ LIST USR -xPEEK BRIGHT STOP POKE POKE v) DRAW © OPEN #-LN ▘=>[H]▘X, BEEP [T]O▘> BRIGHT - SAVE ▘>b POKE CONTINUE LIST LIST qx<©?©/U* LLIST .8▝_©?[P]_IN o BEEP CODE COPY RETURN USCREEN$ T[Q]STR$ NOT ▘© OUT ^x1 OVER ▗ SAVE SAVE LIST LIST lpxSGN SGN ~' SAVE y▘ RETURN CLEAR MOVE .LN GO SUB iv LPRINT Y▞USR USR IN ▘[Q]@©IN STR$ . SAVE ▟ LPRINT px8 BRIGHT DRAW SAVE POKE [Q]DP CONTINUE ~USR FOR © FOR ©@ FOR © SAVE ACS k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d86k MERGE POINT ERASE d8STR$ FCHR$ E▝ OR E▝M AND EUSR G▝F8$ OR O▝B STEP EUSR R MERGE W "(6(▜CHR$ @> OVER FCHR$ G8[Q] TO Gx x ▝GUSR D0g▘DDx@ THEN Dp` TO Dx x@x`x`x▝D STOP REM H[Q] SCREEN$ [F]QXACS sINT ▝A9 P PRINT ( F!`aVA MOVE @ PLOT !▘@p"6 LINE 0@RNDp@▝ RESTORE xa: BRIGHT F COPY OUT OUT CLS COPY COPY IF RESTORE RESTORE ZZ LPRINT LPRINT LPRINT INPUT ??STR$ LLIST LLIST MOVE MOVE RANDOMIZE PLOT PLOT RANDOMIZE RETURN RETURN COPY COPY RETURN COPY COPY RETURN COPY COPY RETURN COPY COPY RETURN RETURN COPY OVER OVER RANDOMIZE PLOT PLOT DIM DIM AND 88 FORMAT USR USR STEP 7 PAPER NEXT GO SUB s FOR i![G]i[d MERGE GO SUB VAL !6 PAPER COPY COPY =p<> GO SUB LN !NOT TAN _~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1[[ LLIST ; LET w IF 1 CLS NOT R COPY BhCODE /=y COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY OUT ▘DDUSR B AND G▝C@CHR$ D0 USR C00 STR$ B0 AND C)▝G0 J /P ▘GC]:@ P~P }0 DEF FN G@S▝G CIRCLE Gp OPEN #Gp@ OPEN #Gp` OPEN #Gp OPEN #Gp[Q] OPEN #GpUSR OPEN #Gp LPRINT OPEN #G1 BEEP Bp OPEN #Bp@ OPEN #B COPY COPY THEN IN @USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW IN ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]^ OVER >PEEK ~IN RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS IN } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY COPY LPRINT [P]@ABCDEFG @ A B C D E F GUSR @IN A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @IN USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@IN H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OIN USR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V IN W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]VIN [Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT WHSQR L RANDOMIZE INKEY$U| LOAD FLASH PAUSE SQR / LIST [F]▖U[T][T]SQR THEN ~| COPY IN ^o[B] CLEAR ▖RND>=U PRINT Z>= READ [H]OEXP [Q] STOP LET [N]DNOT OPEN # REM BRIGHT OVER 'p BRIGHT CIRCLE [L][A][U]2 INPUT ▝ VERIFY PAUSE ! DEF FN FORMAT [L]AT CLEAR OR © RUN PRINT <>[K] CLEAR CLEAR !m GO SUB ▟VAL ! RETURN RETURN > CLEAR w THEN CLS q, POKE !dj@USR s#r#z NEW { AND _8z VERIFY W REM CODE OPEN # RETURN GO SUB ^> RETURN GO SUB G<>P FLASH LEN O CLS v NEXT [M] RUN y NEW LPRINT > COPY (CODE 2^© CLS ! LPRINT X> STEP mSTR$ NEXT >F@▗>GF0![G] OR >▖ INVERSE ! LPRINT k INVERSE n INVERSE f INVERSE ^ INVERSE V [T][O] INVERSE + INVERSE +=CHR$ OPEN #lSTR$ x NEW AND @.USR g~2 LPRINT @2 COPY @ DEF FN NOT `©w[L]IN s# DRAW r#w#<>NOT ▜BIN ▘ DRAW jUSR .FN l CLOSE #T CLOSE #N DEF FN N DEF FN H>=H>=H>=H>=BLN CHR$ 0▚PAT &INKEY$ | DRAW COPY COPY COPY | COPY RETURN RETURN COPY DRAW COPY ©▞[D]© SAVE ?▝U [C]USR COPY USR 7 COPY CIRCLE RUN } OVER ▝ NEXT LOAD [O] COPY ! DRAW H▝©TZ RETURN 8`▗ DRAW <=T▘ET FOR T LOAD ?ppp▝[I]▖3cU!b[O]t▝ COPY t▝w▟ BRIGHT }USR LIST USR 0PVAL ▘ COPY ?@ DEF FN pzpz@z▘0 IF POKE IF 0 POKE 0>0DV▗ COPY USR FORMAT INPUT ▖USR '[D]>=t BRIGHT POKE [A]U OVER READ COPY ▙` RETURN a[O] STOP p STOP STOP 0 IF 0n▝ AND !b▝9b!&0SIN ▝ CIRCLE 8▘7h▝ COPY h BRIGHT 0 CONTINUE 0h▗ COPY ![M][C]▝s@VAL 1ACS ▘q^!AT 1 v▝!p▘phqPEEK !PEEK J▝ BORDER COPY ▝ DEF FN 0▜NOT COPY 0▚BIN ▝9Bpn▖ COPY DRAW php OVER 1 OVER App VERIFY A▙▝2▘USR @h1PEEK 1BIN ▝ NEXT y▘[O]t ▚<t▝yBz2▚[C]▝8[I]▝<=p CONTINUE p CONTINUE p CONTINUE BX INPUT 8QBIN 1PEEK ▝0AT ▘USR C▝ AND pzSIN ▝sPEEK ▘[M]▖AT ▝#p CONTINUE aV▘VAV▗ BEEP ©8▚9 AND VERIFY ▝ BORDER BEEP P VERIFY pVq>aAT ▘rp#dc^▝8^9 DIM P▝}!&Rw LOAD " DATA COPY USR 4▝8Pq CONTINUE ! CONTINUE ▝ LOAD REM ▝V2b ERASE [T] TO ▘ SAVE TO DRAW COPY AND CIRCLE x▖~ COPY LIST ?©▝IN ▚ LPRINT [P]?▝o▝ RUN *o[M] T$,D2▝l INPUT ▝▘ SAVE >0ppppP z▝ LIST LINE 0▚@ CLS #▖▝ DRAW >=3 ERASE INPUT INPUT BORDER #INKEY$▝ OUT 0 [U]▝ BRIGHT INKEY$Rqqq▝USR _.?[Q]o ERASE ▝pPEEK COPY xBIN ▝©▝ LPRINT ▖▝LN LN ▝GPI COPY ? CONTINUE DRAW USR USR LPRINT ?| LIST ?x LPRINT USR SAVE USR LLIST DRAW ?qzqz▝ DRAW qzqzp IF p IF p IF p IF p IF D TO ▝ PAUSE IF ▘ LPRINT IF ACS p IF IF q IF q IF q IF q IF qzq IF q IF q IF q IF q IF ▝[D]% ERASE ! IF ▝q IF q IF rzrzrzrzA IF ©zIN ! LINE ©[U]▝"ACS 1H% TO ▝ STOP qqq IF q IF r IF r IF B IF ▝ FORMAT 1 IF ▝&! IF F▘VAL R▘LN ! IF ▝LN q IF q IF q IF q IF q IF q IF stststst#tp IF p IF p IF p IF r POKE r POKE r POKE q IF s POKE s POKE POKE PAUSE POKE READ # LINE ▝ FOR # FORMAT POKE ▝ CAT # POKE ▝ATN # IF ▝{& LIST ▝x# INPUT ▝{# POKE ▝ATN # POKE ▝ TO ! INPUT ' AND ▝O' AND ▘VAL $T&▝ PLOT 0ttttppp$n▝ LET $t▝ INPUT B LINE h▝ LOAD ▝ PLOT '|▝ RANDOMIZE $tSGN (F LIST D COPY SCREEN$ ▝;$VAL INPUT PLOT ▝ OVER "B IF BIN t IF t IF q1 ERASE ▝ FOR IF / READ s IF C IF ▝ RUN ▝ BORDER NEXT ▝83 IF [C]▘USR ▚[A]<?x LIST USR ▝< LPRINT IF LLIST SAVE ututqqqqq LINE !VAL ▝ IF R IF ▝ SAVE %t LIST E1▝:!SGN qu POKE u POKE rrrrrrr" POKE RETURN ) AND ▝2▝>=rrvtvtrr"s IF IF ▝ BEEP )p▝LN &n IF EXP rqar"u POKE v POKE sq IF ! IF ▝' IF ▝ s IF IF ▝ RUN q IF q IF 1 IF ▝©! IF ▚@| LIST IF ▝>q IF q IF wnwnszszp IF t POKE p IF ▘ LIST D POKE p IF A IF r IF q IF R IF LIST [C]▖ COPY USR LIST AT ▝? POKE ▘? TO 0▘0 ERASE ▗2 IF w▝ CONTINUE INPUT ▘ IF IN [G]4@ LIST >= LPRINT SAVE LPRINT LIST RETURN LPRINT 8▘USR >▝?#▘©BIN [E]h▘ LPRINT /USR DRAW ▜ n>© AND INT 8)|Xx ▝r▝ ▚ AND 80 GO TO NOT <▝ GO TO k▘f COPY ^▝ RETURN ,▝ DRAW TAN TAN ▝? ERASE pUSR ▖USR RETURN [Q]▙ LIST SAVE LIST >=0 LPRINT TAN CAT LINE ▝z IF LN 0 VERIFY IF ▝LEN ▝LN ▝> POKE ▗><▘R▗USR `J▝^!<▝FSCREEN$ t ERASE r DATA LIST 8 PLOT 5825>eJVunUn5▚9▚9[C]9[O]▝ RETURN )SCREEN$ RANDOMIZE -▘▝ LIST [C] DATA :▝USR :▜[M]▗zxp ERASE ▖9'PEEK BORDER -H INKEY$▝pUSR LINE `▝ SAVE ▝ COPY FORMAT [A]▘USR ERASE ▝Bn TO ▝[M]}▝[G]` SAVE l▗▞IN ?STR$ IN USR LPRINT ▜`"SCREEN$ ▝ MOVE ▝ LIST ▜ RUN LIST STOP LOAD NEXT b▝ /4q▘SCREEN$ ▘ COPY ACS PAPER ▝STR$ .Z▘>.Z>Tv`▝CODE LN ▝PEEK PEEK ▝ OVER ▝ OVER .▝▘USR STOP ▝ POKE ▝[U]▘ LPRINT .24▝? PLOT 11 LPRINT a&12>1J▘ LPRINT ▛USR k?▘8[J]©z>▘:z![U]!SCREEN$ V>▝ CLEAR /D▝1▝!|1,A81D!P1/1h~t111[I]= CLS /FN ▝ LET 2▝[M] ▘h>=▘ LPRINT DEF FN ▖@[P]©SGN ERASE INT 2&2,o REM ▘▜" NEXT LPRINT PAUSE READ LPRINT RETURN ▝ READ LIST ▘? PLOT ▝USR <3" DRAW 3{ NEW I RETURN :c "<.L:w/RL^,j|▘/▘<[K]s /PEEK < LINE FORMAT ▝ DRAW ,x▘ SAVE GO TO [A]! GO TO @ COPY FN INPUT NEXT p BRIGHT x LIST ACS ▝L! BRIGHT ▘6$ OVER d$ PLOT ▗?1%^>▘ LIST J▝ RETURN %V FORMAT [M]4FN 4TAN 4USR TO ▘NOT 4 CIRCLE D DATA 4 LIST T DRAW 55 5,585D DRAW 0/▘j▘ LIST VAL$ ERASE f[A]▝▙$ ERASE ▝CODE %FN TAN AND -FN ▝LN -FN ▝ABS 0-[M]▝EXP -[S] RETURN ▗ LIST LIST N▝%USR LPRINT GO TO ▘USR GO TO ▘ LPRINT AND 28▝ LET ^ COPY NOT STR$ LN CODE 2e©:Y[F] AND 7?2c©:Z[F] VERIFY 2d©:f©2) GO TO STEP ' GO TO ** GO TO ~O: RESTORE EXP USR #:c©O~EXP (=EXP (▝▝▝EXP (▜<>#:d)[A]o}EXP (ox RETURN POKE <>> COPY i▝<>NOT ▗ OR xpZ▗O: MERGE ©B▝STR$ &▞ NEW !" VERIFY ©<>STR$ ▟:|[F] RETURN USR CODE 2|[F]2C>[M]s[F] STEP ▝>e2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(0:) GO TO 2. FOR >fpPI(▗/ FOR >gp*PI(*0 FOR STEP 2 FOR LINE PRINT >32 RESTORE STEP RESTORE LET [F]v CLEAR :{ DIM PI(NOT `▝ STEP SCREEN$ GO TO STEP 1[G]CODE m▝<>pAk▗+* VERIFY ©▖w STEP ▝#s#rPs>gwP[G]p[A]RND▝p,p,p,p MOVE ~PI>=pI Ia[I]▝_![G]▘W<>!<▛f© STEP g©:e©PI !7▜>= REM STR$ STEP qLEN ▚* GO TO >ew#SCREEN$ POINT <>:G▝a<>CHR$ P POKE LLIST 2G▝A DATA ▗ RETURN e p BEEP ▝©CQC0 BEEP ▚ RETURN f p ▛>2[F] STEP H▝ph* GO TO #^#V++~G|[O]O>LN >EXP >▖INT >:SQR (><SQR (>;[C][C] GO SUB <>>LN #EXP >[A]INT >L"▝N"CODE w]▘ NEXT GO TO 1[I]▗<>>LN G▘EXP G▘xINT ▟▗TSQR E▖2 RESTORE NOT u>▝`▝Pk▝RkSTR$ NOT [T] LOAD >'LN (>EXP #h>Jmh▜ RESTORE >2 RESTORE [E]L▞*LN >EXP [F]▖>(SQR CODE w0m▝ mLN CHR$ s▘EXP ▘[A]INT ▘PSQR COS ▝IN { STEP PAUSE STEP ▞▟*ATN ▟+"ATN ▟ RETURN COPY LINE E[K] STEP DIM STEP PAUSE CLS ▘> COPY INVERSE w INVERSE 6G INVERSE ~ INVERSE w<> INVERSE ~ THEN ?_! INVERSE wNOT RETURN COPY RETURN CLEAR DRAW INVERSE RESTORE RESTORE INVERSE LLIST INVERSE ~ INVERSE w INVERSE 6 INVERSE 6 DRAW 9/ INVERSE 6O▚ LLIST <>CODE INVERSE wA[C]PI H INVERSE n INVERSE f RESTORE ##~ INVERSE PEEK ",▜[E]+F INVERSE p+T AND _h STEP @~ NEW RETURN ▛4 LLIST USR #[D] INVERSE 5 ! STOP BIN INVERSE 6 INVERSE u INVERSE t<>FN ▘~)(&!ATTR [M]P[J]z▖<>[F][G][H][G][F][E] v▙.*&Pd STEP 7▚0 LPRINT ▚!oIN NOT NOT ▘ a INVERSE ~ NEW RETURN > AND 0 PAPER 4d RANDOMIZE DRAW ▝>2"▘2 BEEP ▝,}▝!FN USR 8:COS ▝PI LIST INVERSE 4 INVERSE ~ RETURN m LIST ▝gu[S]~2STR$ [D]>h2CHR$ [D]>2BIN [D]>2 OR [D]>G2NOT [D]CODE 2 AND [D] STEP ▞R 9 INK ▗ RETURN 6 CLOSE #▖ RETURN © CODE 2▟[F]p:p:▝[D]p NEW PLOT @p@ STEP [B]▗▛▗ RETURN 0 V[G] VERIFY PAUSE [L]▗ GO SUB D INVERSE ▚ AND [Q]▖dj~#fo[A]PI VERIFY THEN ▚ NEXT ~ INPUT COPY w# CLS <>>G INVERSE w:▘PI>`(( PLOT FN ▘>a INVERSE ▘>O! PLOT ▚ RETURN CIRCLE < PLOT CHR$ ▗ NEW AND b RANDOMIZE ▝v IF <[F] COPY ▛!lCHR$ LINE ▗[B] RETURN !▜ ▖(+ RETURN CHR$ CLOSE #[C]Z▘![T]@VAL ! FLASH STR$ PAPER ▗[B] STEP PAPER [C]u▚COS ▝! DRAW STR$ NOT 6 COPY !DCHR$ [D] INVERSE !}▝ STEP { INVERSE RANDOMIZE ! CONTINUE ©▝ COPY LINE INVERSE ~[B]▘~(▞ INVERSE ~ INVERSE w INVERSE ~▗ RETURN USR 2POINT COS [B]<>:o[F]2@▘>( STEP ASN > 2BIN 0/▝ OR ( }▘ INVERSE RESTORE COS ▞!O▘ TO ▚ INVERSE LLIST STR$ xu▘ INVERSE <>▚▖1▘x=2[F] OR 0(▘ FLASH RESTORE !aP*▘ LET COPY *▜OT FOR DIM INVERSE n INVERSE f INVERSE n INVERSE f[H][B]2USR [D] RESTORE STEP [G]▖ LLIST : OR [D]W:BIN [D]_& TO ▝O AND ACS G}[B]8 RETURN FORMAT = FORMAT |[A]8 RETURN <>=▘<>!▖[D][F]NOT [D]2[G][F][E][F]<=_" BRIGHT ▜:STR$ [D]w#:CHR$ [J]q<>GCODE 2[I][F]:w[F]PI>="t[F]!w[F]~[A]0CODE w<>▖ AND RETURN 8>SCREEN$ ▝~ INVERSE 9 PAUSE [C] " OR CODE STEP ▚0 INVERSE THEN RETURN INVERSE RESTORE >%[T][A]CODE 2~[F]!NOT STEP AT ▝▝ CAT 6▜> STEP [C][B] 0 CLEAR !-▜[B] CLEAR PEEK CLEAR n, CLEAR f CLEAR ^QBIN ▞6▜STR$ CLEAR 5[F] VERIFY :6▜25▜<>R/ d COPY COPY :[G][F]▘:[E]<>▖4▖PI>=G OR INVERSE RESTORE ▝O2▘< NEW t AND /PI▛^ INVERSE n STEP x▖ STEP ▗▞N!SSIN BRIGHT ▝▜ [G][B]STR$ <=<> GO SUB Ko[F]xEXP USR :b[F] RETURN >=gb[F]CODE 2[A]A AND ][F]! DRAW CHR$ > COPY STEP ▖▚ INVERSE RESTORE STEP CIRCLE [F]|▘:[D]?▝ v STEP RESTORE ▜ s▝k▘>s▚>! CONTINUE CHR$ 1@d▝ INK REM NEW RANDOMIZE ▖ NEW INPUT FO0[M]▘>sT@[Q] OPEN #▞NOT ▞X[$[ COPY PRINT [D] RESTORE MERGE "^!0LN GO SUB S LINE [D]" TO [D] MOVE LLIST <>▞ `!LN GO TO gyGx NEW I▖x NEW 2<=[D]|d▝{p▝}o▙CODE 2r[F]:USR [D]o&)/[P][E]z RETURN COPY ▚<>!/[R]~▟▘#~▟RND#">=[D]<>!▞6NOT BORDER ▖oCODE 2▞: AND [D] RETURN } INPUT Go>VAL$ ▛}2▞x2▞&zUSR ▜RNDo))X RESTORE >Bw# RANDOMIZE LLIST LET <>:r[F]PIUSR * LINE [D] NEW ▝G[R][H]_SGN FORMAT ABS CIRCLE >={[F]0]G{[E]8( GO SUB D▖ NEW <G THEN 8{[C]?_* TO [D]▝O STEP ▗WSGN FORMAT ▝1▝z1U▝Oz▝@1 NEW ▝ AND O THEN 9 THEN 9: THEN : THEN :▗NOT MOVE ▖ s▘ GO SUB [t▗ OR [D]2 DEF FN z▘2 CAT }▜INT FORMAT CIRCLE =SQR CIRCLE 0]▝G*▟=ABS CIRCLE 3▛2 MOVE [D][F]0!G: DEF FN [D]2▝} RESTORE *>=TAN ▗ THEN ?Ox AND < DRAW ▝ LLIST G: MOVE [D]=[E]8<.▝[A]`▗STR$ [D]2 ERASE NOT BORDER 2<▛▗▚[D]04 GO SUB DG▗▗ CAT [D]: ERASE W ERASE [D]x THEN ?%/:<=[D]PI( GO SUB BPI GO SUB B[▝G%▝G0=[C]8/0:▞x< THEN ?G: BORDER ^!# 4▝$P[K]▝=`SIN PI▝▜&H( PRINT >NOT 2 OVER " OUT AT ! POKE dj▝▘ GO SUB [ OPEN #▘ ERASE [D]a[A] PAPER ▛2 MERGE :<▛PI: MERGE CHR$ ▛ LLIST PI( BRIGHT ▘ LLIST TAN FN ▘ CAT [D]TAN # INVERSE f+ THEN GNOT PRINT w SAVE FOR FOR -▝=_[B] VERIFY <> OR iOSTR$ #NOT LLIST 28▛CODE 2I▛!{ U NEW LINE #▛!W▛PI LINE *▛!VAL$ ▛NOT *0 OVER ▛"E▛pc▞>2 FORMAT [D]g STEP OVER ▛pbb▗ BEEP <>: FORMAT -▘STR$ NOT s▛ [A]O NEW VAL$ w#>=y NEW LIST VAL$ w FOR 0$▝ $2▞NOT [P]▛~ NEW LIST OP NEW ▝-~ NEW O:3▝ OUT 0W▘]▘ VERIFY ▛p RESTORE 0▜▝p0 i▝pEpopo?8▜!BIN j>▖>=_[M]#6# CLS = FOR >GNOT NOT ▖} NEW SAVE &To)) THEN ;#R<>/ VERIFY d0 CLS AND dp#▝▖:p#w<> STEP n▖L RESTORE STEP SQR ▟ LLIST # POKE NOT /▖ STEP ▗CODE [F]EXP ▟ STEP [H]▟ RETURN ( RETURN ( RETURN ▗!/▟[J]▝~:▘ BRIGHT $▛>= RETURN 8( RETURN (T+ AND AND @2 FLASH [D]IN COPY 2 BRIGHT [D]▗ INVERSE [D]LEN ▜:EXP ▟ RESTORE PRINT 0Y RETURN LIST i▗ FOR : OVER INVERSE [D] AND 0▘ LET LLIST 6▜NOT >2}▚▘~[F] NEW [J]: FLASH [D] NEXT /▙▙2[N]▙ GO SUB K BRIGHT [D]▝ AND 2 OVER i▘^▙Q2[B]▙ STEP OUT ▟ STEP 8▙ STEP t▙P▝HTAB :ETAOINSHRDLUBCFGJKMPQVWXYZ@?0123456789;&'<>= CLEAR .▝ PRINT ▛STR$ VAL <>!EXP ▟4 THEN F( DEF FN ▝# MOVE ▝<>▗ THEN ? THEN ?▚<> CIRCLE BIN GSQR ▗o: BRIGHT [D]d[T] RUN lV▘▗▞▝▝<>@ DATA ▖o STEP CLS ▟:[B]▙05▜>* STEP 2▙>.▘Y2▙ SAVE ▜>+ RESTORE MERGE RESTORE MERGE PRINT PAPER ▝_SGN IN ▚w LET MOVE LLIST STEP ▛>=BIN STEP ▙@Y MERGE ▘ STEP T RUN ▛o MOVE :▙<▜_>,$} AND h▘>) o POKE >-NOT ▙TAN ▝/▝[J]!-▝ THEN # THEN INVERSE CONTINUE INVERSE r# DRAW v▞ DIM <> NEXT RESTORE o THEN g LET ▟ RETURN COPY NEW LPRINT AND 2 LINE ▙}a[B] NEW 8 AND G2 DEF FN ▙ THEN GO SUB x THEN _STR$ LLIST CLS <>P▖ STOP ▙ FLASH INPUT COPY THEN _2▘C![J][F][P]}▛RND[F]~ STEP SCREEN$ ▙(▗:^©CODE INVERSE ~▙PI7 THEN # INVERSE # PAPER y▜!?1▝ P▟ LET y2D<>STR$ `@ COPY 6▚[A] STEP MOVE ▖![A]e" CLS ▖"M<>!X0IN STR$ X!Qf THEN RUN # SAVE ## LOAD <> PRINT OR GO SUB Kz[F]:{[F]LN ( IF NEW ( PAUSE STR$ LET <> STEP E STEP CODE 2[E][F]2[D][F] STEP VAL$ STEP ^[A] STEP FN STEP /NOT A[B]▚ RETURN ©>=!9[L][H][A]2/[A]EXP [K]_02[[A]PI LINE S[A]:/[A]P▘[B]G{(' THEN n(~$▘©<1#~ NEW IN ▝~7r~ NEW USR THEN # THEN SQR GO SUB SSTR$ [D]:][A]BIN ▝=[▗~# NEXT xPI ) OR SAVE P▝ PRINT K POKE ▝ LET CLS b▜USR [D] RETURN [ TO c▚s TO Y▚ LLIST STR$ :[[A]=▜▘ ▗▖< PAUSE SQR <>©yAT AT ▝%▗CODE Fy▘▗▞Ei[T]▝ CIRCLE [T]▘v[F]9 LPRINT ACS THEN PEEK 7 SAVE :v[F]<▞! FORMAT BIN STEP /! THEN BIN FOR ▛iNOT [P]▚>: STEP BRIGHT PRINT ▗x[F]>/▘! OPEN # ▗ CIRCLE BIN NOT i▘ CIRCLE BIN CIRCLE ▗ DRAW <>!xZPEEK >=84~▚ THEN ?w▜ INPUT COPY 2▗BIN >V▚:x[F]▜ NEW ▟9[B]N!4A SAVE OR [G] VERIFY 86 COPY , RUN q,6, CLS LN LLIST <>USR LPRINT LIST SAVE DRAW RETURN COPY !ATN [B][P][B] AND G! PAPER NOT ~ RETURN COPY (LN (#~#[A] LET NEW RETURN POKE ~ RETURN LIST LOAD #NOT P[B]SQR OVER [D]< FOR ERASE ▝ FLASH ^STR$ [C]NOT E[K]G[D] RETURN CIRCLE LN >= POKE * POKE :5▜PI>=9▘▛[F] RESTORE .!1NOT OR STEP F[D]STR$ x RETURN PRINT !NOT :X▖PI TO ▟©[F]!cNOT PI !F& COPY :▛[F]PIx 4j▝OnEXP ( IF :▝[F]< NEW 2▝[F]!▘[F].iBN▞ STEP )[D]STR$ O THEN Y 8M[B]x(PI( THEN i THEN Q(= RETURN ▝a▜I(<LN (SIN PI▚z( OVER PRINT >B~▗x RETURN COPY BIN [N]xABS [C]2[J][C] RETURN (/ STEP <=[C]:[J][C] STEP ▚[D]:IN CODE ▚ INVERSE LLIST ▗ RETURN (!(8 ,▖ STEP STOP [C] STEP E[K]CODE READ ▘2© NEW ▜![C] RESTORE >CODE USR > LLIST >W]▟W▖#~ RETURN IF 6!"CHR$ RESTORE ▗NOT VAL [B]GMjg▝ DRAW REM IN [D]<> STEP CONTINUE [C] INVERSE 6 COPY NOT [D]▖<=[C]O0<▜>=EXP SAVE #~ INK ▖(w# PRINT 6`▟ AND "EXP VERIFY [F]G>LEN ▗<> STEP RESTORE ▙O:[F]PIy2[F]>=CODE <>[L]▖X▖W~PI<>x DIM ▘ AND Xv▘>▝▗![Q]NOT LINE FN ▝▘ COPY ▖G CLEAR ^#fk>tNOT ▖X▖!"Z▖0SIN ▙ INVERSE RESTORE LLIST }TAN >= INVERSE n INVERSE f}TAN PEEK ▘ LINE CLS PEEK USR # ERASE ▖~#F# RESTORE o` FOR PRINT LLIST FORMAT CODE RESTORE [T] DIM COPY s$[BSTR$ [U]"^0LN [$ COPY COPY LIST LIST F& 2O2COS RESTORE }2Q[F] LLIST {2V[F] THEN ?j:O[F] NEXT INK OR MERGE RESTORE INK GO SUB sR[F]&o)mN#F!am RANDOMIZE STR$ y2P[F]$Q[F][B]Y}|"T[F] INVERSE *T[F]:VC▚P[F] THEN 98HysSTR$ MOVE LLIST INK ~ INK [R]FN INK GVAL$ p#~ INK [T]SCREEN$ `▘RNDAT [D]CODE =CHR$ =[E] GO SUB {R[F] INK LLIST MOVE STR$ INK INVERSE SIN ySQR PH> COPY 7 THEN THEN THEN @pW[F]CODE THEN 8 THEN THEN THEN @pX[F]ppp0[Q]*W[F]P[I][F]▝p[F][F]▝ NEXT 1j0[F] LLIST xS▙ FOR STR$ ~POINT w#~FN w#P FOR = LPRINT MOVE [C] CLS <>[I]4 COPY lk[H][H]0L[H]}S▝3^▜lh▜t COPY COPY PEEK [G] COPY COPY CHR$ STOP USR LPRINT ▝▘▗▝[F]▝ COPY u▜ MERGE [F]= INVERSE VAL$ ATN ▗/ INPUT 0▚ INVERSE w INVERSE VAL$ CODE 2AT [F]2TAB [F]2VAL$ [F]2ATTR [F] CLEAR /[BIN ▝O:} THEN Y(zATTR [F]<> OUT ▝▗▘AT [F] FLASH ▗TAB [F] THEN A ▗VAL$ [F]:CODE [O]▞KAT [F]ha"AT [F]<> IF ▗2[[F]_ CLS ▗2/[F]<Kb:^[F]2_[F]NOT OUT [D]>82Y[F][J]▗=NOT ▟[G]5 ▗< RETURN .CHR$ ▘>.X▘ AND v VERIFY 0▘ VERIFY r0 AND 2p[F]%▛<>:a[F]PI LINE IF [G]NOT a[H] NEW USR TM STEP ACS [G]SZ STEP [F]/1▝ LINE ! INK ▘ ,? @ PLOT ? RETURN CHR$ a[H]O▝a/OyCODE ▘>^▘nk0[M]T▖(:`[F]PI([▘(v▖ NEW THEN ?0:[H]▝ !▘* OPEN #▚"f[F]2h[F]▟:AT [F] RETURN >:TAB 0▜CODE G:VAL$ H▘CODE O j▝ SAVE LN > DEF FN THEN ▝_C LLIST ! INK [J]* THEN THEN 'Y▞![B][J]~2^[F]{▛▝a<2q[F] CAT [I]AT [F] INVERSE [G] INVERSE ▚ RETURN LINE L[G] RETURN 9 LINE X[G] RETURN ERASE INT [H]G▝.▝xlG:[9▜ PAPER OUT [I]NOT INKEY$[I]$▛ :][F]PI> PAUSE REM [H]! ▖( RETURN > IF (▛[F] THEN ©CHR$ [I]ECODE 2`PI▞G:q[F]LN USR NOT 1[G] RETURN [L] STEP 2[J] CIRCLE COPY INVERSE :e[F] VERIFY 2e[F] OR STEP D[J]STR$ VERIFY INVERSE + INVERSE +▝=▚= RETURN B PAPER p[G]ABS ▗ LPRINT SQR ▝Q▗][F] AND >▝ IF @>▝0,▘ VERIFY RESTORE 0F▝8Y▝<0F< RETURN ACS ERASE 0FNOT POKE [H]h V LINE POKE [H][L]▗][F] RETURN ]▝!M][F]NOT SAVE [H][P]▝ GO TO @[P]▝[P] OR <[D]▙d[F] STEP [J]PISTR$ BIN [J]PEEK ▝PEEK ▘ SAVE THEN ▗ BRIGHT NOT LINE p9p9`9▘ AND p;p; ;▝ PAPER ;▘:d NEW e[F]o THEN vUSR j INVERSE ▝ LET IF j<▚P[G]P[D]▘k[J]F▗ DATA <>pQ▛~ THEN wUSR LLIST INPUT @ THEN w<>^J▘ DRAW ▝<>▚<>[A]$'[H] !"#$%&z▞M▖2▞ GO SUB [f[F]:h[F] GO SUB SEXP p[F]2o[F]z▗ATTR [F]"TAB !]'▝2B▚2w[F]> CLEAR MERGE ▞[A][F] STEP [C] STEP 1[G]CODE [D]LO/T: @ NEW RETURN RETURN ,> COPY CODE 2CODE [F]▘"i3ASN p,▝<> NEXT *[S]-[K]]-f VERIFY *[L][K]$vAT RETURN DX'[L]6:/▖$[$▟▖ CLEAR CONTINUE INPUT B1)7+ ERASE ▜K2#67,CHR$ 0100BDB ,210,034,1760 p0▘42pp`>▘50@>IN [Q]hJINT [Q]▖ FN TAN (RASN CODE FN D OPEN #ACS FN !>FN FFN NFN VFN 0L STEP VAL$ h`*C[S]VAL B ERASE SCREEN$ VAL [R]2VAL :VAL BVAL JVAL RVAL ZVAL 8>=[U]8`(8IN [Q]HF THEN &@ TO (<>[U](`((,( LINE CIRCLE 0 OR OVER P8 INVERSE XM OUT THEN @ AND [O][S]`G OR INKEY$``*`Bv RUN 9u*[N] SAVE 2[M] RANDOMIZE F[M] IF P[R] CLS X[L]% VERIFY IN `<= BORDER Vl DATA Z` NEW Re CONTINUE SGN [I]G![S]FN ERASE SCREEN$ FN "OFN WFN "VAL *VAL OVAL WVAL 9[Q]A[Q]>POINT [A]8POINT [B]BIN FN [C][B]LEN VAL [C]<>[Q] 2[Q][D][T][I]D MERGE IN VAL$ [I]`O[I]<[H] OPEN # CIRCLE [Q]` [Q]POINT BGs OPEN #B *PTAB CLOSE #P &▖[S]INKEY$h[R]44`D`DR▖RhINKEY$X[R] ERASE X 2H[T]4HRNDSGN H`DHLIN H[U] CIRCLE eRASN F[C]ATN @8SQR ACS x ERASE ACS 6@ASN TAN XL STEP TAN qbW.Eq33[[J▖/[S][EM)F{=( DEF FN OR PI FORMAT [I]BINT FORMAT x @XSQR P0INT IN @xSQR USR [I] VH>= ERASE H[Q]NHJH FORMAT XF THEN TP TO TO P V8<> ERASE 8`N8Z8 LINE ;[Q]TAB :[C]sZ[A]USR VERIFY [I] LPRINT R[Q]JVAL NFN LINE 8 AND <>H8 LINE LINE ▖p OR USR BSQR BIN IN ERASE VAL LLIST VFN Z[Q]TpXpHpLpPpTAN 0JASN [U]} LINE ACS INT 1JACS 4FN ATN FN [O] LINE LN $4ASN [Q]rL STEP SIN +a"H1ZB-*3#+(FN DEF FN LN LEN `:IN [T]VAL$ [I]BSQR VAL$ x LPRINT .X.8.SGN JFs=XTAB "[A]USR INKEY$▖a*.x0x2p6pINT p AND USR INT OR SIN a6.▖*[A]&[I]"[Q] DEF FN H▜ CONTINUE ERASE IN D BORDER RP DATA ZH CONTINUE VF NEW ACS B LINE ASN AND OJACS SGN ,L STEP STEP )aUE2=V`<C[6LJ DEF FN B[Q] OPEN #USR ▖BSQR PxINT FORMAT X`P8@pSQR USR P`@0▝INT TAN CHR$ FN [Q]IN 1[P]▛PVAL$ ▟JPOINT [C])[I][D]CODE ▖[D]N[Q]V[A]Q[I][D]Y[P][A]X▜[B][Q][I] [T]AT [C][A]&[O])ATTR ▛&[I]▙,AT [D]TFN [B]TAN PI PAPER ▜ VERIFY IN ▖!R[A]N[I]J[Q]6FN SGN ▖FTAB ;zsV(USR ERASE 0[Q]N8J8[P]`▙RNDx!x▟h[D]M[B]9[C]SGN XFUSR USR X AND USR BIN X[Q]HXL` TO QIN >=h"Dh@h<hJHNHR@V8Z0RNDRTAN DRACS FN 1 ERASE LN [U]*L STEP INT A[Q]1)33 ERASE SG RESTORE VT BORDER INT 2L STEP DEF FN Y<= CONTINUE INT pL MERGE 2x[G] OPEN #INKEY$x`xSGN ▘[B]ACS ▟[C](▜[D]1[F][B]VAL$ `/RNDP`.0CODE TAB %[Q]▟([G]▙[U]VAL [O][A]EXP [R] 3FN [B])[O][D]POINT VAL$ [C][B][S]▖ [S]NOT TAN PEEK VAL SGN [G] 0▖▞INKEY$ ERASE VAL$ `5PEEK [I][C]AATTR [A]4▜▛/[A]FN XFTAB 'Js PAPER XG CONTINUE BRIGHT [Q]E[ ERASE `G DATA CLOSE #[B] TO [Q]`D[Q] LINE [Q]USR DEF FN [I][Q]R[A]V▖[Q]PIABS [Q]L OPEN # ERASE [Q]`V[Q]SGN FN ▟TAN FN 7[I][A].POINT ▛0[H][A]COS ▚ 'AT [C]/v[D]CODE ▜[C]▛FN F[A]LN LEN [A]?VAL ERASE IN FN [R]GVAL GFN OVAL >▗VAL WFN SIN kPI1Js[S]a<= CONTINUE INKEY$/G BORDER %h DATA *` CONTINUE VERIFY Pf PAPER ▖GUSR ▗INKEY$>=4Vx RESTORE COPY ▙[K] DATA .xCHR$ 06SQR DRAW CODE $.8BLV`jt~▖[C][M]INKEY$VAL INT BIN DEF FN CIRCLE STOP GO TO PLOT VERIFY IN (2<FPZdnx▘[G][Q]SCREEN$ TAN PEEK >= ERASE BRIGHT NEW LIST IF /v BEEP [J][[N] OUT ! INPUT 2Tv[I]<> COPY ▘[A]P PAPER AT SAVE L THEN COPY ATTR cTAB OUT 3M]©[B]LEN OPEN # NEXT { REM POKE RETURN q" COPY Nq0INT DRAW ~[I]SIN THEN COPY ▝hphW[A]D`CHR$ INPUT pQj▜▘[U]TAN ERASE LPRINT ▝ ERASE ▙ DATA 6h▘TAN VERIFY 1[A]9[▝}@STR$ [D]A}cACS ▞ READ !7Q [E] MERGE COPY [E]ACS LET ,jFN CLOSE # RETURN &T MOVE ▝<EXP ▗?INT @ PAUSE RETURN A LOAD PRINT COPY BORDER PRINT PEEK COPY DEF FN ? LLIST PRINT DRAW LLIST DEF FN OUT READ FOR DRAW GO TO INPUT INVERSE BORDER MERGE SAVE REM INPUT MOVE CAT [S] SAVE CONTINUE n OUT Ax CONTINUE oKPEEK LN CONTINUE oWPEEK `SGN ▖?[I]/ CONTINUE LOAD / DATA [P].7 GO TO / LLIST OUT ^ LET GO TO COPY FORMAT _ SAVE l COPY INKEY$IN SAVE RETURN @IN LPRINT IN F~LN L▜>©![P]<>▖USR 1SCREEN$ AND y▖ CAT { COPY LOAD ; COPY INPUT PEEK LPRINT STR$ LPRINT RUN USR COPY USR $|▖ READ [S]uUSR ▜"6SCREEN$ I INVERSE PEEK USR I@PEEK FN FORMAT <>USR COPY LPRINT MERGE CLOSE # READ BRIGHT wHPEEK U,PEEK ▙c RUN MERGE USR 66$,COS ▝ COPY USCREEN$ U COPY ▗RjRj▚?UjU@?▚ DRAW VSCREEN$ V DRAW (▝<P0(▝<F▟[B]fZAT 5Zf▞8||USR RETURN ▝|Z▘| INPUT USR AND ▝ INPUT ▚88> ▚ DEF FN [M]8p NEW RETURN x▚~ TO [I]<`>= CIRCLE ~▗ DRAW f`|0▚<` BRIGHT PLOT CHR$ NEW F▜~ NEW 0P▝|0P▜| DEF FN ▚ OVER vxTAN M▟d▘0@POINT xp[G] AND F0P▚88x▜<f AND RETURN AND NEW f DRAW AND NEW BRIGHT 8l AND USR CHR$ PEEK ▘ BRIGHT NEW >=▘ TO SAVE `|` ▘ INPUT r▘ LPRINT USR <▗USR DEF FN BIN GO TO ▘ TO AND F▝ AND F▘~[I]COS ▝,▚> NEW f AND xx GO TO AND ▝ LPRINT USR `▘ DRAW CHR$ |▗f RETURN VERIFY VERIFY 0x▚ TO NEW NEW VERIFY DEF FN DEF FN ▘xA6x DEF FN SAVE USR d▗ VERIFY TO GO TO v0 GO TO CIRCLE TO F<fb<F Z▘ RETURN INT USR ▝8"ks|▝ DEF FN ▟ AND l8[G]▚ DEF FN AND VERIFY VERIFY RETURN lTAN l AND INPUT SCREEN$ f<0` RETURN [O]v GO TO [I]0b OVER SGN USR USR 88 RESTORE ' DIM GA@@ NEXT [I]?USR ?USR FLASH EXP BEEP EXP PRINT XPOINT 9SaQBP@[E] DRAW DRAW COPY [M]COS [P]W[P]O[O]U POKE ▘3[E]?EXP RETURN RANDOMIZE INVERSE 9 RESTORE q PLOT $ITQ@@@h5[N] FLASH [N] CLS [L]"[H]QAR▝▚▘ DIM [P] 0-PVAL `3 CONTINUE USR FORMAT [Q] FLASH ACS FLASH [C] FLASH [C]#6[G]l BEEP © RETURN [D]@UUSR COPY SQR p<=x COPY 8 COPY |/VAL AND THEN o LPRINT qINT 4(+BIN h0 LIST [B] OVER @QCOS +} { BEEP 7 COPY }USR BEEP VAL = LOAD x. RETURN CONTINUE U FORMAT ([Q]#AT PI COPY ▘ INVERSE ▘[M]CHR$ cDkD▖ READ INVERSE FOR ©oSCREEN$ PLOT + MERGE LPRINT s COPY LPRINT y©@(SCREEN$ Sn▖STR$ wp RUN LIST > BORDER POINT >@©@ COPY VAL "PPLEN ▖USR THEN COPY LPRINT K© BRIGHT CLS INKEY$ BEEP T INPUT h©4SCREEN$ [I]AT ▙p BORDER LIST THEN RETURN [D]}[D] PRINT USR COPY [K]USR }USR #▖ INVERSE COPY vACS RETURN PAPER +UFN ATTR P▘[Q](D[M]OnUSR yv▝OI Wg▚/W RETURN +q RETURN USR V@[E]▗*VAL$ @▗UVUSR ▗*VAL$ ▘ BEEP ▝ TO SCREEN$ COPY BRIGHT <3 RANDOMIZE ▗EUSR LD LPRINT VAL [R][U] LPRINT @[Q] CLOSE #/ LIST ▝PLEN 2[O]CODE +© LIST 2FN RND+LN 0% PAUSE [F]gUSR %[I]3 COPY RND~O MERGE PI>=% CONTINUE ^ POKE ▗INT INT RND [Q]IN IF MOVE %) PAUSE [F]lmQ2[E]RND+y=URSCREEN$ +KRND_ INK TRNDV▗YBFN V DXVAL [R]AT 0[G] TO TO LBINT INT TO AND 3 RANDOMIZE SGN ^ POKE @`NOT RANDOMIZE SGN )p▘▜ DRAW < THEN ▙@,▗▝<B▟20:RRPOINT R!BR▗: RETURN R V @▗"*VAL$ R▘8UqBqBqBqBB▝$AB▝=1B@[Q]TB▘AqBB[A]2FN [S]ATTR LN ▘% LET gBIN qBqBB▝qB!B▝ INK 0!B@!BJ!B▘JSCREEN$ B▗EYD[U]!B▝ CIRCLE qB!B▝AB▝!B▗<>$[C]KAB▝0qBqBqBqB!B- OUT B▝y0R▗▘;]TFN !▘[S]? SAVE !▘INT ©0▘ IF ©@ATTR ▘:AT 5 FOR [J] IF CLEAR OUT RETURN < COPY LOAD COPY LN NUSR $©,[I]N = DRAW PI LPRINT LIST ! LIST 8P ▗CODE COS BRIGHT /{© POKE [G]1 CLEAR <= RUN LN ASN > OUT <= DIM COPY CLS COPY UQUSR ? CLS RETURN @[R]USR RANDOMIZE <$IN BORDER NqP@ CIRCLE FOR FLASH ATN ▖[J]SPEEK @` RUN "@▝ PRINT ▞ IF NOT ▜▖ DRAW PI INPUT SCREEN$ © COPY RETURN READ ▙ TO ? COPY DRAW SAVE ABS ([D]G COPY DRAW ? DRAW [C]I RETURN _ LIST ? CLS USR <="▝~RB▗_& OR 2▝IB[E]▝1AR@S DEF FN ▘ CLS ]/F▗zFN ' BRIGHT ▘▘?!:▝AB▝qJJ▝qJqJ1J▝AJ DRAW ▜!J▗ PAUSE ▝pJ▛▖/ POKE ▗s MOVE ]J[O] RUN [Q]=[R]<= NEXT [L] CLS PEEK OUT >=▘. REM COPY RUN RETURN aQ@J[K] COPY /PI@ IF <X[S]USR STOP ▙]SUSR VAL USR r[P] THEN ATN OR INKEY$PEEK X`[[A]▛ OVER o}2[A][C]▛P▝ LET LET IF THEN PI[A][E]J▘[Q]1J▗ PAUSE >USR <=J▚x8[O]H+▗ IF i$[T]p_ LIST LIST J▗USR [A] VERIFY ▝qB2t~:▝H CLEAR ▝9▛ RETURN LIST `@BFN (▞ SAVE P: BORDER ▝ LIST CLOSE #, SAVE ET8r)V▟ TO <0▗UVAL$ ▝[A]AT [H] LPRINT CONTINUE R $@ LIST POKE ;<=POINT COPY Ps SAVE ({[H][J]>4 RANDOMIZE PEEK 3}ABS @USR COPY COS LIST <=G BORDER @SIN NEXT @ CONTINUE . FORMAT IN @ INK H[H]▞[J]> RETURN BORDER w BEEP `>USR ATTR MOVE }[L]▝ RANDOMIZE IF OVER RUN [J][F]VSTR$ [I][O]X IF .BIN STEP @NOT REM [Q] INK [D]GBIN <CHR$ [Q]i6[M]SGN [I]0 LIST VERIFY PEEK G!B▝BucPEEK ZQUB*[M]B▝8TBh▝[A]j ▘:0ZAB OVER *+[K]▝VAL * RUN TAN I DATA @▘5FN ▘▖5VAL ▝J▘p5USR ▝p@ u▜,USR "( CONTINUE n▝ IF ▝#BIN ▘1 TO ▝ COPY ▝▚▝[C]▘▝DINT @'<P>=mPEEK CIRCLE :{@+[P]+N TO IN / COPY SAVE © RUN GO TO GO SUB INKEY$PEEK BEEP STEP TINT SCREEN$ INT UTVVAL$ SCREEN$ SCREEN$ MERGE T[S] REM j]UTSCREEN$ SCREEN$ jURFN INKEY$ MOVE S/ATTR INKEY$SCREEN$ OR USCREEN$ [K]*Q0▗[K]" ▖▗▜@*SCREEN$ TO ▘J▝w J▗MTINT REM PJ▘Dp2p2 RETURN [Q]/ SAVE © GO TO GO SUB PEEK <=D[K]2UVSCREEN$ j CLOSE # CLOSE #ATTR UtSIN FN WV* REM MOVE /▙ LINE ~.QT"h▗@*1▘02[B] BEEP DINT [K]U6VAL$ SCREEN$ MOVE DSCREEN$ :ETSCREEN$ "`"[G]© COPY DRAW FOR VAL$ INPUT INVERSE GTSCREEN$ [K]Tut▖UUIN © DRAW REM [S]]HSCREEN$ 2U▗UTUSR LPRINT P CONTINUE X:[U]=n[S]uCHR$ k[S]]*▘4 LPRINT LPRINT >LN wV IF ▞ CLOSE #A`IN 4 LPRINT SAVE DRAW VERIFY ▝wQz▘ MERGE SAVE ▗ CLOSE #[Q][E]@`?USR `:VAL ©X REM NEW CLEAR Q PAPER ▝© MOVE ~[R]UR>4▖POINT USR >USR ©` REM VAL RUN PSCREEN$ FN CLEAR SCREEN$ [U]t*[S]▘BIN 8x[P]P? CONTINUE >LN } CLOSE #wd CLEAR [C] REM SCREEN$ INVERSE PLOT QABS REM ▝pT( LIST ?▙p:▖mT IF MERGE A IF © RETURN ABS IN <v DIM MOVE POINT B< COPY CLEAR USR REM [Q]ABS FORMAT ? REM FN } RUN DwFN SCREEN$ CLEAR MERGE INPUT PEEK ▝ INVERSE t)ATTR DIM MERGE BRIGHT SQR SCREEN$ [S]Q CLOSE #Bf▘5P▞@▗[A]@H @ PLOT [F]▝VAL IN SAVE CLS AT COPY PAUSE REM POINT CLEAR OPEN # REM POINT ]> IF ASN uUq©SCREEN$ !uqQVAL$ *▘ POKE BIN BSCREEN$ INVERSE >=SCREEN$ [E] FORMAT J!@`ACS ASN PRINT ` RETURN VAL PRINT XVAL$ AT LET ?[T][R]}VI~ REM YQ!rFN [B]V*FN ▝1*[Q] [A]`[E]▘aNOT ? LIST J▝ RETURN LPRINT AT GO SUB REM PEEK LPRINT CLEAR MERGE P?SCREEN$ FN ▖} RUN ${SCREEN$ REM ▘ MERGE wDQ[Q]VAL$ ▖▝]BF*!M SAVE IF COPY COPY USR RETURN USR SCREEN$ USR U00b▗ INVERSE ]*P▗ COPY COPY /[Q]@ )2 AND )e8SIN (X0,([G]1▛+E2▘)0G▖FN TO [T]lSTR$ VAL 0▘[B]▙USR [Q] USR LPRINT ATTR TO p`*[G] yqy IF PAUSE 2RxRbr21pbZ~ IF PAUSE pUSR y▙:RR2rr IF SAVE LOAD }{[U] BEEP ~ RANDOMIZE LPRINT [H][O]INT p[D]AT ABS [I]=.[M] DEF FN 8p;9Wi DRAW LN [CHR$ [T]NOT 0LEN COS &[L]VAL$ STR$ Dt:O+Q▘?Lzx@,▜@ VERIFY ▝`Y "▘5 SAVE ▝NOT @[N] STOP }▘BIN [E]▘▖[J]▘7▘▙!CODE ▘SGN B BEEP ▘ CONTINUE IN TAB ▝ LET ~▘D▝|[D]▝ CONTINUE DIM ▘Q)W LOAD ▝ POKE : PRINT ▝ACS VERIFY ▝ OUT CLOSE #7^▘ SAVE ▝{; CLOSE # READ [Q]USR u@0SCREEN$ ▝:W▝ CLEAR }▝9pW0 SAVE [M]▝[A]@>LN ▜ CLOSE # READ IF [Q]]PFN PIPIt▝<▝ ,E[D] LPRINT @h BEEP [Q]USR ▙▝EXP REM ▝<IN ^ BEEP @ IF [A]0 LPRINT ^.tg@, ▘/INKEY$hu PRINT A▘VAL$ ▝tVAL$ FN ▗.VAL$ h/INKEY$(STR$ /▜e PRINT A.VAL$ ( ▘.8▗CODE INKEY$h▗▘CODE INKEY$FN P @(P▝X▗CODE INKEY$(h▗CODE VAL$ CONTINUE 0 h OM[S] REM CONTINUE _MSIN IF CONTINUE ▘[0▝U ▘USCREEN$ [C]OMSCREEN$ REM CONTINUE OMSIN REM CONTINUE OESCREEN$ IF SAVE ▗ SAVE KM CONTINUE [0*TH T88TU▜ ERASE ERASE ▘▘DD8[C]▛(^/SCREEN$ SCREEN$ N~SCREEN$ SCREEN$ nSCREEN$ SCREEN$ >fSCREEN$ SCREEN$ 6f[S]SCREEN$ vf▘SCREEN$ VbSCREEN$ ^b▘^SCREEN$ p@p000IN ;wV▛ CLOSE #ATN PRINT SCREEN$ ASN SCREEN$ ASN SCREEN$ VERIFY INPUT OVER INVERSE Z PAPER ZZ THEN V FOR T FOR VmZu{UjUSCREEN$ UINT USCREEN$ jATTR jSCREEN$ j[S]"[S] "USR @[Q][Q]P FORMAT XHXAT ▙AT [U]TAN [U]SCREEN$ SCREEN$ ACS ACS [U]ASN ATN MERGE MERGE ▗ COPY ~ COPY RETURN B▖ LPRINT `▝USR @P▝ LIST ▝LN ▘ RUN RETURN p2P2pHPEEK c VERIFY $USR [Q][N]0h`([E]YNOT 3$TAN "[J] CIRCLE 4HZ,▚0[J]t&[Q]STR$ +,>=[J]VAL [B]P&TVAL CIRCLE -rVAL A LINE , OPEN #▗INKEY$2 FLASH M)[Q]ctP0p88~ CLEAR OUT c RETURN RUN OUT THEN CAT u{CODE RND READ R BORDER h[Q]▝ATTR VERIFY *[K]vRNDT GO TO [A]PR TJD4 LINE RUE$[C]LEN Ue[C]Z THEN [F]]TAB uj GO SUB ▘▝([U][S] @@[A][Q]E[U]%H(([D]TAB *wmTAB VERIFY 88 PLOT PLOT SQR SQR ▘ AND AND p0▘▝e[E]6{ AND 8 PLOT SQR PLOT {2[E] OUT PAPER OUT © GO SUB CLEAR IN GO SUB _ACS RUN wATTR OUT SCREEN$ VAL$ BEEP u[Q]▟ REM REM uU MERGE U"▘[Q] RANDOMIZE [N].}`© LET ABS NEXT ~ CAT COPY RUN LOAD CLS MERGE PRINT ATTR n OUT CLS ` PLOT >IN USR ©TAB CLEAR > IF OUT COPY CODE © RUN IN CODE COPY COPY USR prLN CLS x_ CLOSE #CODE VAL$ PRINT CLEAR CLS CLS RUN OUT COPY ATN COPY FOR IN RUN LN DRAW DRAW INKEY$[L] POKE USR FLASH LPRINT TAB SAVE COPY SAVE COPY SAVE LOAD VERIFY COPY CODE v RUN TAB PEEK RU LPRINT |+[G] LIST PEEK TFN P[Q]}PFN POKE +>= TO ▛▗ LPRINT USR MERGE IN eVAL LPRINT FOR RETURN p BEEP ? FORMAT OVER THEN 8l LIST L READ 0 POKE READ USR LLIST USR =VAL [A] OVER AND LIST 0]p[A]PEEK 10ABS VAL PzOLEN >VAL `CODE [I] AT [E]?X`?XUSR < COPY /@:©XUSR |IN /@ LET IN PAPER COPY M@RND~lUom[R]©INKEY$V RUN uQTAB PLOT TAB OUT ASN CASN >K BEEP ASN 7TAB 7 MERGE %oASN ' DATA #O CLOSE #IN DATA ~$▖ INVERSE @USR LIST IN 7 LIST SAVE 8 GO TO DRAW AND [P]?=LN CLEAR COPY INPUT ASN RANDOMIZE .<=s/COS ^ TO TAB LOAD X LOAD !w>▖R OVER ABS /8IN [SQR CLS O TO READ [F] LET STR$ COPY RUN K]wTAN FOR IN OR © DIM SIN [L] PAUSE e0W POKE [K]-+ RANDOMIZE SZ[F] REM 7wC CLEAR l RETURN POKE "[F] RETURN IF [M]Rw RUN © REM IN ▖ RUN t© RETURN FOR REM OUSR RUN IN Z STOP BEEP CLS Gw BORDER CLEAR OUT <=ZC/ READ RETURN [STR$ ACS ? RESTORE ACS <>LEN FN 3BIN [S]/▛d FLASH ` CLS @ IF `EXP CLS @ CLEAR @ OVER COPY LPRINT COPY USR oPOINT OUT LPRINT [Q] INVERSE LPRINT RUN [Q]© LPRINT 'USR LIST 7VAL © LPRINT PAPER LIST LIST FLASH VAL { LIST FOR VAL CLS VAL {LN CLS CIRCLE { CIRCLE {[G]]/} GO TO mlnTAN MOVE CLOSE #PIZ| NEXT INPUT sose FLASH IN LIST %CHR$ /[S]CHR$ ERASE "?bSIN 7[S]#TAN 7TAN > CLOSE #l[E]_ CIRCLE W CIRCLE [N] FORMAT USR CAT MOVE <=STR$ LLIST READ COPY NOT OUT TAN READ © READ OUT LLIST OUT LEN OUT LEN } LET _ INK _x MERGE [A][O] SAVE VERIFY [E] LIST U6)U[T]COS [T]PI SAVE OPEN #USR & LPRINT <>▗[I]p▜USR ` NOT THEN ▝ PIP ©a▝ LINE STOP [G]x< DRAW | CONTINUE `SCREEN$ }$=6USR 'O▛[P]0 TO 5~4 RETURN RETURN RETURN %~" GO TO vCODE ©IN 6USR [A]/0INKEY$ LPRINT NEXT NEXT LIST I LPRINT % BRIGHT K RETURN G COPY K COPY % LOAD LOAD A VERIFY N SAVE SAVE SAVE p READ NOT #NOT [G] LPRINT B@ CLEAR z[R]=B▗H[A]4▛(XN©z PAPER STOP g▝8>=@# OUT ATN OUT ACS @ ©+[H]@▘@©[C]▟%@USR `0▝ RANDOMIZE ▝ CLS ▝l, RETURN NEXT ▘SCREEN$ VERIFY [S]@ LPRINT de[U]c@▖ THEN 8&P`j USR $s▝+kQACS "a RETURN 7oJnTAN [Q][S][K]A$FC8 STR$ V ERASE &0 AND [P],XSCREEN$ 2X RANDOMIZE ▟ZfZ▝fBIN ▟<#N@@▛ LLIST CODE MOVE © TO DATA ▝©, COPY c[U]USR INVERSE LPRINT PEEK LPRINT I ▖ LPRINT *H▖ TO 0 COPY ▚,>>@ ERASE > NEXT OVER NEXT TO aN[I]pJ`G[A] COPY ACS COPY CAT INVERSE CAT PEEK LOAD I&D[N]*`;▖ LPRINT a COPY USR Y COPY USR } READ USR | COPY VAL 8>X CONTINUE USR SAVE )PIpJp[B]0[B]ATTR INVERSE USR PEEK AND I)#▖ GO SUB k*ak▖ LOAD s COPY NEW { COPY LPRINT 1 READ USR ©8PEEK DATA OVER BIN USR FN USR [A]) GO TO p[E]©<>▖USR *@▖ GO TO 3 COPY NEW ; READ INPUT 8 READ ▙>t[M]▖]I[S][A]"`STR$ O{p OVER >=q([D]USR [M]USR ©`▖[Q]*`d;▖ INPUT V▛I INVERSE <>} READ OUT | COPY [P]8>[K]STR$ LPRINT READ FORMAT READ LIST PEEK GO SUB ▘ FORMAT +ATN [K] LOAD PLOT LPRINT TAB FLASH SAVE _ CLEAR SGN ATN PLOT RETURN IN RETURN OUT Ko CLS LN LOAD DRAW ▖I,INT DIM [B]u OPEN #D* VERIFY 8u[K]INKEY$POINT INT PEEK CODE ATTR ▗w} OUT wO CLEAR RETURN swPppp$p<p<pD▜[E]IN COPY COPY @ATTR COPY COPY _ RETURN ATTR SAVE U COPY ▗([G]▗T FORMAT A▘ LLIST ▝p CLEAR ▙POINT J LLIST ▖ ▘[S]LEN LPRINT @"▝l▘*JSGN ▗ NEW "▝rp">= FOR ▝[F]▝POINT ▝+ PLOT p"; LOAD ▝y OUT BpD▝ NEW D▝PDp▖ ▖)*3▘ "p▖SCREEN$ IN TU@t MERGE P:SCREEN$ SCREEN$ ▖5TUT> FOR *[Q]u MERGE MERGE TjSCREEN$ [K][Q]t MERGE TTy[Q][J]SCREEN$ wESPzSCREEN$ SCREEN$ uUP REM VAL$ POINT SCREEN$ PRINT uUPSCREEN$ SCREEN$ ▗POINT SCREEN$ [C]P IF SCREEN$ FN SCREEN$ t MERGE SP IF INKEY$INKEY$SCREEN$ t STEP EP DIM USR sUMP INPUT >=[C]}UMU LINE INT SCREEN$ [Q]u@UU IF LINE SCREEN$ FN }[F]▖+SCREEN$ FN vWUE REM ru]UFN SCREEN$ SCREEN$ LN sUUQ;SCREEN$ ATTR Q▝]▝INT 8▗ MERGE P>j@[K]▞jSCREEN$ *t MERGE U FORMAT EXP ATTR X▝W0▘▝Sx▝j▘IN 9fU IF U REM U REM u REM u REM u CONTINUE S REM uA P SAVE TVAL$ L[K]U[I]U[I]5 CONTINUE USCREEN$ PSCREEN$ jP[S]D[Q]U@UIN REM ATTR IN RUN O RUN COPY STOP INPUT SCREEN$ M=WESCREEN$ LET ▜T MERGE UUFN SCREEN$ ^▖U▚SCREEN$ +SCREEN$ UT▜ATTR SCREEN$ ETWMU]MT CLOSE #S[K]▝51IN SCREEN$ ▝SCREEN$ [S]PTUPU*SCREEN$ SAVE X POKE ([B] INPUT LOAD ▝V#j; ERASE OVER SAVE ▖6ABS cp}q MOVE SIN RANDOMIZE $[A] MOVE [D]x[R][H]IN COPY PRINT SAVE ` RANDOMIZE PLOT CLEAR FOR ▝ABS } GO SUB GO SUB LOAD MERGE .PIa GO SUB [T]f BRIGHT OVER GO TO COPY POKE SAVE @ RANDOMIZE NEXT CLEAR FOR PAPER 9 BRIGHT LEm? BRIGHT BEEP CLEAR CLEAR RETURN CAT COPY _RNDRND[B]0Oo OVER ASN | F▝q CLEAR ERASE AND mUSR FORMAT D' OVER ▝ BRIGHT CLEAR VERIFY : VERIFY ERASE TAN 2 BEEP 0J0 RANDOMIZE JZ GO SUB PAPER ▝[B] CLEAR W INK BRIGHT FORMAT J BRIGHT OUT GO TO ▗P RANDOMIZE POINT ([F]VAL PAPER ] OPEN #[K] CLEAR INVERSE =Wp FORMAT =] LPRINT ▝ REM © INVERSE UINKEY$=}q[Q](`;IN OPEN #j=Q`INT $ CLEAR p VERIFY =5 MOVE Um:Mm INPUT CAT COPY OC[B]@_? OVER ABS 4x OVER lr%j CLEAR t VERIFY PAPER =USR $1/ ERASE ▝[B]j MOVE STR$ CLEAR H▝ABS 1USR TAB [B]0oo OVER INT ] INVERSE INVERSE DEF FN INPUT INPUT LPRINT PAPER ▟USR d/ BEEP #[C]USR ERASE VRNDm? OPEN #[T] BRIGHT @ BEEP THEN VAL VERIFY PAPER MINKEY$ OUT USR INPUT ▗ CLEAR ▝ABS pSTR$ OVER ▜ GO TO COPY COPY PAUSE SAVE 0[K] PLOT CLEAR BRIGHT L▞M[Q]([E] BEEP OPEN #j|SQR 6mUSR [U] PAPER m LOAD [N]C[B]@?o OVER SIN mW GO SUB RND INVERSE INVERSE BRIGHT OVER OUT INVERSE BIN USR # MERGE ()d▝▝d▖9(USR s ERASE !Z▝[K]Z[K]TAN ERASE <>q OVER BIN DEF FN POINT INVERSE l MOVE ▝=[F]o MERGE VERIFY 0▘8 PAPER VAL [U]a GO SUB BRIGHT Lc[R] CLEAR R@▘COS jFN RND▝RND[I] PLOT CLEAR d PAPER SQR BIN USR aO PAPER @W@[B]} MOVE 1▘STR$ INPUT )` RANDOMIZE RESTORE [E]6[Q] ERASE V[Q]0 PAPER = CAT ERASE @ OPEN # MOVE MERGE MaK[J]0 RANDOMIZE PLOT CLEAR (: INK ,[B] CLEAR MOVE F%lo OUT / PAPER ?▟USR ][O] OUT OUT o INVERSE c OPEN #]6[Q] FOR ![A] PLOT CLEAR FORMAT BRIGHT FORMAT BRIGHT LOAD COPY LIST a3[H]( VERIFY =V MOVE L OPEN #▜ CLEAR FORMAT CHR$ Av REM r9- LOAD @!CODE @![A] ERASE V;ABS CAT INVERSE -j#[C]©[B]▝@ MERGE z▝ MERGE [B][E]"ABS USR % ERASE ▝ PAPER @[E] BEEP CLEAR $ OPEN #▝[N]@H▝ "▛RNDj▝Mq CLEAR [E] AND [U]▟ MOVE Mm{IN INVERSE OPEN # PAPER ▝}@p▝ CLEAR [A]R REM pd CIRCLE OR ! CLEAR TAN m0L OPEN #▟PC@LEN [P] FLASH F OPEN #d STEP 8@▝_▘(H[A]p9 REM / INVERSE f GO SUB t▝ CLEAR 0 FLASH [R]6 REM OPEN #M LOAD LIST PLOT SAVE @ RANDOMIZE PAUSE SAVE t BRIGHT LG0ASN ERASE LOAD _▝% LIST [M][A][R][B][G]/ INVERSE USR ( ERASE COS VERIFY COPY VAL [A]!SQR `( INVERSE [T]![A]6[Q]POINT MINKEY$[S]▚@ RANDOMIZE NEXT 1 NEW OVER PLOT CLEAR VERIFY [D]$ AND [Q]? PAPER S VERIFY FTAB LOAD LIST POKE SAVE 8 RANDOMIZE PRINT ▞[K][B][J] BRIGHT V OPEN # PAUSE COPY RUN SAVE PRINT SAVE [I] MOVE ▗GR0▞ SAVE [Q]<=I[E] BEEP ▗▖ RANDOMIZE ▘[I]p4LEN SAVE [Q]$@ VERIFY STEP @▗INT COPY SAVE ` RUN o▝[G] SAVE `/▝ PLOT SAVE "`_▘V SAVE (` OPEN # COPY COPY ASN 6[Q][U]n[S]J▝00 SAVE LIST 0xI ▗ MERGE d"n▝ COPY xFN }] STEP B© LIST 0r9%m0jLEN COPY }}I%[B]@r9/ LIST ▝ PAPER [K]▝m1 COPY [F]j5} DEF FN PICHR$ COPY ▗L F]m LIST [K][D]I/ LIST [L](COS MERGE xI LIST [M] OPEN #[D]j LOAD H▝ REM IF IN V LIST COPY }] CAT LIST x STEP SCREEN$ ▙>=x NEW RETURN NEXT x AND G GO SUB <>:[F] RETURN COPY >=▜▜_!sBIN > COPY 2[F]F#N#Vy= CLEAR [L]{ INPUT _ OPEN # RETURN y▘O LET <>d[G] COPY COPY COPY COPY (d COPY d< ▞ NEXT PRINT OR MERGE RESTORE INVERSE RESTORE INK [M] CLEAR RESTORE :{[F]<2{[F]:s[F]PI TO [Q][G] STEP c INPUT CLEAR LLIST LLIST MOVE STR$ LET INK INVERSE CLS <> PLOT SAVE y LIST COPY PLOT SAVE COPY 00 PLOT SAVE COPY USR /▞ RUN SAVE COPY 68$ COPY COPY COPY COPY COPY COPY COPY COPY CLEAR D DEF FN UtBRND"ASN BRND* ▝2 ▝: ▝B ▝J ▝R $▝Z OUT G,▗G IF 4 CLS <[A]▘%DBIN ▞G RANDOMIZE LG CONTINUE 8 RESTORE G NEW < ▝@▘ CONTINUE D DATA <x:/B▘ RUN @C;▗CL6DA8<▘S;[C]▗CT>4▘WD▘IG▘LJLMB~TAB Yh▗▘[S]VVlsX[xTAB %h~[S]"▗[R]"ps$[ OVER ▘ASN ! TO D STEP * GO TO ▗D DEF FN (L▖"0BACS TD▞LN R8D STEP OH DEF FN Y4▘U,Q@▜F3R|*▗ED*XL▘E,CS.BI0AG2▘N4▘E6$▘D8▘A<▘N>*▘D@<▘CD<▘OF ▝H<▘IJ <▝LT▟C[LP▜V[Q]▘XFN ▝/ ▘YVAL ▝] ▝U ▝T ▝Q ▝M ▝I $▝E *▝A 0▝= 6▝9 <▝5 B▝2 T▝0 `▘.[I]l▘,[A]r▘*▖x▝& ▝"[D]+AT [C]%[U]▟+[M]▛▛'[E][B]▘#0▘! FOR ▘▜BINT @ RESTORE BRND@ SAVE B[U]H▘[T]>▘▚90▚5P▘1H▝-B▚)▚B▚%;▘USR 7▘USR 3▘USR / ▝+ MERGE BUSR ?<F*K INK F+M▘,L[M]▗-"|t ▝l ▝d l▝T▘," IF [U]$~FTAB )B▗Bs(Z TO ▘▘FG▘JP▘yT[G]▘ DEF FN S!▟▚!4[E]▘▘(▝( ▝. ▝4 .▝@ ▝F $▝L *46▝X▗DaHx:▘ RESTORE < PAPER DzG BORDER 8 DATA 8B:▘ DATA @▘[A]|j▘([P][B]'wRND[C]"q▘▝' SAVE ▗▟!a▛$_ABS !R[M]▗GJ AND [O][O][O][O]0 ERASE [U]*[U]0[U]6 CIRCLE 0[U]Gf:ZTAN 9G[S](`▘[S]P0▝` 0▝@ CLEAR ET2USR EE4▘L6 ERASE EP:▘O<▘R>$▘T@*▘IB0▘ND6▘GF DRAW FB▗▗Bs<[r>=U[A](POINT PAPER [U]~▘RNDBIN RND8 ~RNDH▘[T]P<▝~▗▙SVAL$ *▘WINKEY$B▘W[R]T▝[▘[B]X INPUT ▘[C]T POKE ▗G CONTINUE 09SIN ▘49▗▝4 LPRINT ▝ DATA [K]G NEW ![M]▘ NEW <VAL$ CONTINUE @7F▘ OPEN #"0D OPEN #*▘ MERGE 26▗D OPEN #6[I]▝> ▝F ▝J▗FCHR$ Vz_>=Z^ ▝6 ▝s,[L▝b▗▗"[H]X▘&▘&PId▘ CODE j▘▜(▘▚([I]▘▚n$▝.▝z▗,▘▚2▘▝2H▝"▖▘0 ▝4(▗8 "[K]▘:2[Q]▘▚<B▘▜BH▘< Z▝B `▝<6▘[S]F[G]▘[S]F`▘[S]N0 ▝V ▝V0h2▝(J▘TAN ?tBASN 9 CLOSE #LN FP/▘ATN ;bINT @d hINT @$b▝:%n▘6/t▘KXL▝N PRINT 4ACS L ▝. ▝& ▝ NEW ▘TAB S#VAL ▝R DEF FN GTAB -#SGN E[I][B]6USR <▘RND* ▝2 ▝: ▝B ▝J ▝R $▝Z IF [S]" INPUT 0 PLOT ▘[S]"TG[* REM G[2 LIST ▝[T]RND< ▝D 0RNDT ▝/ DRAW 0[C]▝S [O] PLOT ▘sP ▝Q▘[D]A▘[A]I2B▟ETAN ASN G RUN R|▝'|▝'|▘[U]|G[4 ▚▝< ▝D [C] NEW G[T [O]▝/▙▚2v▚6|▚:▙C▚@▝▜USR ▗▜J INT ▝R INT ▝Z▘>=Z[K]j▝R▝D ACS ▝CCHR$ ! PAPER ▝" OVER [M]INT RND2 ▝: ▝B ▝J ▝R CIRCLE STEP ▚CUSR G/PG[V,G[N ▝F ▝> ▝6 ▝.▘[S]& ▝*▘[R]&J▘[R]PRND"1b▘[U]*▗Bs$YtTAB %iAT ▘▚X CIRCLE ▚R ▝L ▝F REM CUSR [ REM CUSR W ▝S ▝O ▝K ▘Gp [I]▝ [I]▘%USR ▘USR ▚(N▝#D.f▝#8▝#J: CIRCLE ▚@ OVER ▘▚ OVER ▘ ▘ DATA ▚L H REM R LIST `▝XVAL$ BTAN 8`BASN 1 POKE BACS ? PLOT BATN 5 INPUT ▘EXP ? INPUT ▘INT 9LN ▘INT 9▝AT ▘B2AT ▘0b[E]▘4>T▘ SAVE E BRIGHT IF 0|`▝ CLS (D OPEN #!$▝)$[A]▝0$[G]▘B[H] VERIFY ▘J[D]F▘M[D]*▘fR*▜R[S]▜V$INT ▝Z LIST A LINE U▗▘▚ AND ▝&USR ▘▚t▚!Rp▘CUSR MOVE ▝$TAN ?F▗G BORDER 2OF*.▝..▝..▝.$.▝*.B>=4 IF B>=8 ▝@ ▝DF LINE HACS F<>D ▝@ ▝< ▝8 ▝4▘ LINE 2$▘ TO 6[Q]▘F THEN TAN ▘F TO TAN D OPEN #H%▙▝P%[E]▝X%[K]▝,%[K]8D OPEN # [K]GTAB M(▗BsLs$6B:AT ▝D*▝8 SAVE BATN 8[K]▘SQR >[K]▘SQR >pD DEF FN N▖D STEP JAT D STEP 4*@▝4LG RESTORE +RG BORDER /.G DATA +LN ▗G DATA '< TO ▘'3% STOP ▝P!(.V▝EV:V!(FV!(RVV[S]b▝N&P▝I1 ERASE &nSIN ▘D OPEN #JD MERGE 4&t NEW ▘ OPEN #%& NEW ▝H ERASE ▘▚R▚@[S]▚< ERASE ▘▚ CLOSE #<▝0 ▝6 [O]*[C]6#H▝F#H▝BD▘CUSR VAL STEP ▝: ▝6 ▝2 ▝. CLOSE #CUSR 8ACS ▝USR CUSR @&▘USR D[O] LIST +[I] FORMAT G[R]N▘sP' TO RTQ[U]fD OPEN ##'6▝[S]▘[,%vt PLOT ▘▚hSCREEN$ nN▘▘%▘▝▘▘▘ OVER %▖▘▟V▗▘[A] OVER LIST [U][D]Vl▘▞▗▟[D OPEN #D'INT ^INT ▝K LIST ▘G CONTINUE :FN V▝9 ERASE ▘ CONTINUE ; CIRCLE ▘ DATA 5NR[A]INKEY$1▝▙▘▟!,*▝*▝*▝*▝*▝*▝*▝*▝*▝L▝!d▘[B]![I]▝[C] OVER [A]'[O]%t▝' POKE ▘&SGN ▙-▝ CONTINUE f▘8▘G BORDER 2▙,G CONTINUE Ht▝ DATA TR0CHR$ ▘ DATA AINKEY$▝ OPEN #▘D OPEN #CHR$ ▘D MERGE zAT ▝E(SIN ▝M(LN ▝UD(▖▘Qlb*6 CLOSE #f6 CLOSE #r'*0 CLOSE #▗'*0 CLOSE #SCREEN$ ▘▘X![S]▝X GO TO ERASE PAUSE VAL$ x"$▘▘4(Tf:@CUSR H4F ▗L!TAN 3 PAPER 3 NEW ▝@s▝ MERGE [S]()▝()[C][I]GTAB *js)k&▝R ▘Qk"▘ CONTINUE 6/! SAVE ▝.! PAUSE ▘2▗[K]▝6STR$ t4b@tL▘▜P GO TO ▘ GO TO PLOT DATA 4 CONTINUE 95▘ BORDER 4[S] CONTINUE 0&AT B/PEEK ▘#[E]▝*#[Q]▝&#AT l!▝, ▝03X>AB F sE3#d▗G CONTINUE I<p LINE p LINE LINE B▝?TG DATA C▘ CONTINUE >▗G BORDER BLf▝E DEF FN BTAB Pxq IF q IF q IF q IF q IF q IF #,[U]▝▘fB! IF ▝"! IF 2USR rr&▝▚ DEF FN ▝8/▝▚ CONTINUE A▚D PAPER A▚L LIST A▚P$X/P▝USR [I]p|:▗$|▝L▘R:D OPEN #4[C]▘ MERGE ;ACS ▝C+[U]▝K+SGN TAB L OVER BsK"$ (hssssss$ VERIFY 5CHR$ 6[A]5CHR$ ▝A,*▝=,*▝5,<▝/WLN LN▘G CONTINUE G BORDER -&B▝0&N▝-[E]▝ CONTINUE ,▝ CONTINUE .[Q]▘ BORDER J LIST ▘ NEW N# REM ▝J▘ CONTINUE RLN ▘ NEW NCyF▘D STEP D▘D STEP PAPER ▘D DEF FN PD DEF FN J ▝Bt▘ DEF FN H ▝E▘▚PEEK ▝!PEEK f▘>= POKE ▝ VAL ▘ ( ▗Gs3dt,t,t,t,t,t,6CUSR Z.▘CUSR SCREEN$ '▝R ▝N ▝J ▝F ▝B#/▝>!INT =X1.s DATA ▗G CONTINUE +?B▝/v▝ NEW tG CONTINUE 5 DATA .F CLOSE #ATN JK FORMAT ▘:Wd▘Jk[G]▘: VERIFY DATA [O]▘SQR D LPRINT ▘SQR DOT[G]VAL$ [G]▝5CHR$ [S] LINE BLN > DEF FN ;tLN ▘J,,x ERASE G[S]*& OVER 4h▘,c~▝U~▗▚,VAL T▝(H▚$ PAUSE N Zf ▝ [K]F!D▘CUSR ~7▝"▗/[S]▝/[S]▝/[S]▝/[S]▝/[S]▝/[S]▘(▝[E]▝T AND ▘TAB (ps'C▝V ▘UCl▘[S]<USR r▝RND#r▝RNDxA[U]H~▝[T] VERIFY [E]▝>= LPRINT [E] Z▘F THEN ▗F TO :▘<>8[E] ▝@ INPUT LN IF F LINE 6(&R[D]BD&R▝&R▝&R▝&Rp LPRINT p LPRINT p LPRINT P LPRINT LPRINT :0 ▝@ PAUSE 1▗s: CONTINUE s> ▝B POKE G CONTINUE : BORDER >; TO ▘B? CIRCLE RESTORE F; ERASE ▘>G CIRCLE ▘BG AND ▝J">▝B">'P▘%6.▘FyXx▝P:▗D STEP T{▗▝L▘ DEF FN N8D DEF FN T▘ OPEN #L/ REM ▝QznI▖|D MERGE ) CONTINUE ▘? SAVE ▘▖C RETURN ▘▛G[D]B`/ PLOT ▘N[E]qqqq DRAW q DRAW q DRAW T^0▝Ot^H CLOSE # ERASE c0N▝'w▘ CONTINUE '0▝ BORDER *INKEY$▝ BORDER 6SIN $^▝3$^ INK ▝I$p▝M$▘ DATA G STOP Fy2[G] AND IF #▝,#$▝0[E]$X▝.[E] AND v▘G>=PG>=P4▘F THEN [A]B LINE V▘B DATA LIST LPRINT ▝P CIRCLE LINE Th+6▘T[r>r>r>sss*V▝W+B"H▝G+N▝?+T▝7tLH0=>▝:jG CONTINUE 7)p▝;)p▝?)j▝B)j▝:)j▘GTAB [I]▘G PLOT ▘G▚fr▝H NEW G▚F GO TO ▘sG,j▘5s[A]▝)ACS ▘[S]&$▘[R]&([p▝U*▘[R]R$Rz CLEAR @▘4[Q]sB▝$L▝X[E]%D( GO TO ▘ MERGE $, OVER ▝*&▝/(▘ BORDER 3 OVER ▘ BORDER 7' DATA ▝;:▘ DATA 3(G NEW J LINE ▘ NEW N FORMAT ▘ CONTINUE RB DATA J▘`▝0$▙▝0 l DRAW ©.▘ DATA Q AND (TAN INPUT OVER f<T▝@<H,B▝8[M]* CONTINUE $VAL$ $ AND :$ OVER $^$0▖$.FN P AND (P<r[M]▝B<[S] REM [S] PLOT [S])J▝.LN J: (-P▝ MERGE rL#T8▝..0▝-USR ▘ CONTINUE N#<▝R+▗▝T+~ LPRINT !▝HV▘SX LIST `CHR$ 0 DEF FN 0 PAPER BD[: CIRCLE ▘▘▘▘H▘N% STOP ▝T% CONTINUE ▘▚VAL ▘▜ PLOT B▚8 RETURN ▘▜f▘▚TAN -/[S]▘[B], PLOT ▘[D]Z,X▘[ap▘p CLOSE #▘G)[E] FORMAT ▘)Q▘)QQd▝(G(S▘*U▘+M NEW ▘DO▘IP.▘ZQ,▝ZLN ▗GYSX▘[G]YR▘[G]L▙[G]Jdj▘[F]Tf▘ CONTINUE (Z BORDER +DPEEK ▝/▘ RESTORE 1AT ▝ CONTINUE G DATA ,$d▝,j▘D OPEN #9▗GL CIRCLE ▘TH VERIFY ▘HJj▘GA|GNR▘KVo[C]▘ DEF FN U TO ▘B.N▝B/^▝B^^▝B^^▝B^*jG, INPUT ▘ IF 4 PLOT G CLS <F%D▛ TO RANDOMIZE L-n OVER ▝ NEW ▝D LIST ▝ DATA LPRINT ▗G:/ PLOT ▘ RUN @C; RETURN ▘L6x▘A8 DRAW CS;▘T>VAL CWD▘IG▘LJLMB▝Y/hX[SIN ▝%$"▝"$" RETURN Gs$"BASN !XD STEP *dD DEF FN (SGN ▘D DEF FN *BACS TXBLN R CONTINUE SGN STOP ▗D DEF FN Y4 REM ▘U,cSTR$ @x▗F3R|xED* CIRCLE ▘E,L▘S.INKEY$BI0|▘G2▝N+d▘E6 DRAW ▘D8▝A+[K]▘N>*▘D@▘CD▖▘OF ▝HLN ▘IJ <AT ▗CGNT▘BR FORMAT ▘YT, CONTINUE ▘FL ▗GE0▘G2▘M6CHR$ ▘O8DS:▘EC[Q]FA>▝LVAL$ FE,▘EN,DCF 02▘E12F9N:▝98 OUT 8S▝p|![U]B▚:#P▝@[C]▝INT ▘B▘ DEF FN ▝64▝▚Z▝B#/B▚JACS B▚P ▝V ▝/ [C]▝* ▝$ $▝*▝. NEW ▘B"d▘▚P PAUSE IF RETURN [A] OVER ERASE OVER ▝Y SAVE ▘AO SAVE ▘BU$ TO ▝W PAUSE ▘BI▝A PAUSE ▘B@ PAUSE G CONTINUE T,▝P/ PLOT ▘L>TAN PLOT ACS ▘ CONTINUE (' TO [C]VAL ▘0:,*,6▝,©"2!8<=~2 AND [D]#~2<=▝NOT [J]#^# RESTORE n STEP ▛▖ STEP ▞ STEP ▗▞ LLIST #~ RETURN CHR$ RESTORE <>!?p*p*p*▞▞:USR [D] RETURN [ TO c▚▗s TO Y▚0:IN A RESTORE <> STEP E STEP CODE 2[E][F]2[D][F] STEP > RESTORE STEP ^[A] STEP /<>CODE !o[F]w#w/2CODE [F]NOT INKEY$ RESTORE 8<=[E] GO SUB VAL <>: RESTORE RETURN ! TO >= STEP [N] RESTORE NOT ▞x RESTORE RETURN !` LINE ▟: RESTORE RETURN LINE x RESTORE >2RND<=▝▝ RETURN ▝`▘>=4▝4▘ ERASE THEN 4▝`4▝ RANDOMIZE 4▝[▘AT TO @[▝ STEP [▝`[▝ GO SUB [▝▘▘TAN DEF FN @▘▝▘▖ CAT @▝[M]▘ FORMAT @[M]▝POINT ▘f MOVE @POINT ▝ACS ▘▙ ERASE @ACS ▝ACS ▘[O] OPEN #ACS ▝▝ INVERSE ▘Z CLOSE #@ INVERSE ▝ REM ▘4 MERGE @ REM ▝![▝ VERIFY @ RUN ▝"▝@P▝#▝ REM P▝)▘. BEEP A▝*▘D CIRCLE ▝a▝A!▝+E▘` INK AE▝,R▘| PAPER AR▝-_▘▚ FLASH A_▝.l▘[S] BRIGHT Al▝/y▘BIN INVERSE Ay▝0▚▘>= OVER A▚▚& !N OUT [D]▝CODE VAL [H]▚' !v LPRINT @▘:a[L]▝!▝▝2CHR$ ▘ GO TO LLIST ACHR$ ▝3 CAT ▘ READ A CAT ▝4 BRIGHT ▝P▝5 DIM ▝ DRAW @▝<>4[I][I]> COPY 2s[F]NOT <= CONTINUE *[U] BORDER RESTORE STR$ v!INT BORDER RESTORE OR <>:{[F]OEXP ( IF P▟:C RETURN >= RETURN LINE , DIM RETURN ▝!▚ LINE LIST CONTINUE RETURN CODE 2|[F]NOT VAL$ BORDER RESTORE MOVE 6BW▖!fY STEP PAUSE BORDER !▚ ▝INKEY$ ▝ AND ▝ NEW ▟<>*[S] BORDER >@w#< CLS ▗Gw#=▝@<> STEP CLEAR BORDER :[Q] BORDER v CLEAR [N]▝M▟"[S] BORDER STEP CONTINUE ![K] CONTINUE "[U] BORDER <>[U]▝[@▝[O]0▝(▝INKEY$P(▝[S]0(▗USR !INKEY$ 2p▗~< NEW i▚ SAVE <> STEP CONTINUE GO TO ▘ NEW G[M]<=YSGN ▗w GO SUB VAL /▗ NEW Y BORDER @[M]<>:[R] BORDER RETURN ( RETURN ( RETURN (CODE 2[R] BORDER >2[Q] BORDER STEP ; CONTINUE NEXT ▘>`▚:|[F] RETURN CHR$ ▝ COPY LINE ▘[Q] BORDER 6[R] BORDER O OPEN #EXP p=▘ BORDER <p<p<p<<▝PD▘ ▞`w▝=`▝ OPEN #TAN ▙y DIM =2 BRIGHT [D]>B2 FLASH [D]:z DIM DATA ▖>X2 INVERSE [D]NOT LEN LN ▝`@ %>h0▟!f DIM ~ RETURN : BRIGHT [D]<<<[J] RETURN >= RESTORE STEP SQR ▟ LLIST # NEW RETURN '!1NOT STEP {! ▗▚Y▜3 LOAD ▘!c STEP REM !w0*P<>>t{▘>P[B]▘![R]I▘[J]NOT [P] REM A DIAMONDA STARTING Hy▘LE[I]DAGGERSTICKS OF DYNAMIT▚SILK B[T]▚BUNCH[U]FLOWERSSOME SKYBOOTSHEAVY ROCKf DIM [U] RANDOMIZE ▖>G2$ REM :" REM RETURN ▛!( REM STEP [G] REM =2# REM /!2p▝▝Dp▝▙▝MP-]▝$2▝[S]▝``▝F ▝U▝lpU▝d▝}pd▗USR !▛r▘>`FSTR$ #o▗1 FOR :.▝ FOR [J]D[C]>~8j2V,d&[ RETURN *CODE 2{ DIM [P]2z DIM LINE ▚ STEP | DIM STEP INKEY$ BORDER [J]▗ STEP GO TO <>SIN ▘z DIM @"▗!. FOR ~ PLOT ▗NOT GO TO LIST ▝0▝0▝0#▝0*▗ LINE GO TO S2▝ mg^!- FOR CODE _~▘▗" REM STEP %0▗. FOR >t▗#w<>~▝ RESTORE N▝<[Q]▘[R] BORDER [Q]▜ LLIST #NOT [O] FOR '![L]8[Q]8xF[A]J[A]Jp).[A]F[A]"[A]"* GO TO 0O▖ LLIST LET <> PRINT RESTORE :) GO TO AT ▗!, GO TO [A]▝▗/ GO TO INVERSE [H]▚!2 GO TO CLOSE #▚▚!5 GO TO THEN u▚!8 GO TO CHR$ ▚▚!; GO TO EXP ▚!> GO TO VAL (▞!A GO TO PI!/▗CODE 2) GO TO Z%▚ STEP RESTORE > PRINT ▖ STEP ' GO TO ** GO TO ~OEXP %ATTR ▘<<=VAL ▘=<=▘><=STR$ ▝CODE FFN :$ REM 2:<=:# REM 2;<= STEP RESTORE LET < RETURN CHR$ TAN GO TO <>NCODE 28<=29<=>b2 PLOT GO TO =: PRINT GO TO B =s▗:<=>xL4:8<=: PLOT GO TO 0B▘vv▝<3▚ RETURN f REM >a0W<>CODE 2 RESTORE 2[N]2 RESTORE STEP SCREEN$ GO TO >H PRINT 2 PRINT GO TO STEP RUN GO TO LET == RETURN *v LET CODE 2FN LINE <&▝x▘>,P!▚<< RETURN J PAUSE ▙▘>DAT O▘EP[N] ▞ FORMAT {v STEP COS ▜v [A]u> DRAW PRINT VERIFY [E] GO SUB LET vv<PI PAUSE =p= RETURN CLS LET [G]INKEY$▝@[B]▝; INVERSE ▝ OPEN #▗LN GO SUB >@INKEY$▘>S9[F]22Y[F]>[H]2Z[F] STEP 1[G]<>!K INPUT , GO TO ▘▚! RESTORE CODE w/▝CODE #'▘>▝[P]+▘>5▞!2w[F]CODE 2b[F]<>rr[C] STEP GO TO ▙ STEP STR$ LET <> STEP 6l=>!dY PRINT % DATA LET #=CODE ▝ NEXT ▝[U]P▘=#Q▜|[F]2C>3O1 POKE ▘e▗<>NOT BIN INPUT z▝4e▝s▘C LET ▝O PRINT PRINT OR STEP o INPUT vvSTR$ LET EXP ( LET STEP [E] INPUT TO "p9@ ▗ LOAD STEP INPUT [S] RESTORE ▙:D RETURN CLEAR LINE m INPUT STEP DATA [A] STEP 7▜`▙ STEP HBIN :s[F]PI(Y:Y[F] RETURN 8 DEF FN RESTORE = CLOSE #▗e LOAD Ft▝<@▖6:Z[F] RETURN ASN [L]▘ AND @$" RETURN C(y▘SIN ▝ VERIFY P▝pr▗<> STEP `©F▚w[F]PICHR$ CLEAR INPUT NOT ' PAPER ! DEF FN CHR$ COS *t[F]EXP @ CLOSE # BEEP CHR$ v▝NOT [O] OPEN #▝5p PRINT p PAUSE 0 PAUSE " COPY COPY COPY COPY COPY DEF FN SQR [T] PRINT !POINT PRINT INVERSE !d LET >^#V# RESTORE INVERSE 6 INVERSE p INVERSE p INVERSE s INVERSE r FOR [H] INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE = CLOSE #<2, PAUSE ?[L]<> RUN CODE PRINT 0[J] PRINT [L] PRINT [B]Av▜ * SAVE ! PLOT g GO TO @R RANDOMIZE ▛ [A][F] PRINT [I] PRINT COPY I[B] ▝$>EXP [J]NOT NEXT NEXT ~29 PAUSE "| PAUSE # STEP v PAUSE <2; PAUSE GO SUB S1 PAUSE GO SUB S3 PAUSE MERGE VAL 5 PAUSE ! STEP { PAUSE FOR "7 PAUSE !B PAUSE "< PAUSE !C PAUSE D PAUSE ,p GO SUB VAL LLIST !CODE STEP p PAUSE =2L PAUSE 2V PAUSE 2` PAUSE 8[T]: PAUSE #"J PAUSE "T PAUSE "^ PAUSE STEP LPRINT PRINT CLS <> DEF FN SAVE RANDOMIZE LINE RANDOMIZE PLOT B PAUSE [C] PAUSE CAT PAUSE COPY M7▘ RANDOMIZE ppPY▚PEEK >=NOT p PAUSE FVAL$ FOR CLEAR PRINT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ [M] PAUSE B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST STR$ FN W LET NEW o INVERSE THEN n>= THEN STOP <>:a PAUSE O!; PAUSE PEEK PAPER AND PAUSE CODE O<2a PAUSE i&) GO SUB [1 PAUSE NEXP ▞ PRINT y*5 PAUSE FORMAT GO SUB S<1▝>1[A]@ PAUSE <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>:: PRINT ▖: PAUSE CHR$ O POKE :9 PAUSE NEXT [C] INVERSE !E PAUSE STEP IF PAUSE PAUSE 0 NEXT *< PAUSE ~< TO EXP PAUSE STEP Y NEXT 1 INVERSE !O C NEXT *K▝>.▝Y .▗O POKE *@ &POINT @ PAUSE NOT O POKE ~ RETURN ` PAPER ▜ NEXT RETURN p PAPER [E] NEXT RETURN PAPER ASN NEXT LINE AT NEXT RETURN ▝ LINE [C] NEXT RETURN ▘ LINE SIN NEXT RETURN PAPER MOVE NEXT VERIFY [R]|[N] INVERSE w COPY #NOT Y NEXT INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c*7 PAUSE ABS ▚ INVERSE u INVERSE tY NEXT #▖ COPY <>CODE VERIFY p RESTORE AT ▘*3@!▖ INVERSE t INVERSE 6 RETURN % VERIFY 2o PAUSE PAUSE RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w PRINT _[B]O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`#▗= IF TAB NEXT @#~<)▜<>yATN USR |2h8< INVERSE ~ RETURN ATN >=[▘H POKE yNOT L POKE CODE v THEN NEW <>!:[C] PLOT NEXT y2 CLEAR POKE INVERSE *H PAUSE STEP ▝ PAUSE yVAL 2i!Ru[D] LINE { POKE STEP * POKE STEP NEXT POKE "b PAUSE !j PAUSE w STEP 2 POKE !R▝ PLOT [D] LINE VAL POKE 0:▝R::i PAUSE LEN VAL <1!v5▗d PAUSE !k@5t@5▝ DIM @5▝/@5▚ THEN THEN VAL LEN P9[M]n▗f PAUSE !l nNOT LPRINT PRINT } PRINT MERGE INVERSE n INVERSE fw▗▚ AND ▜▗! PRINT OVER IN FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗XPIIN PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~IN wpkd^YTOKGB?;852/,*'%#![F]!o PAUSE CODE ACS > VERIFY USR +ATTR yIN GO SUB ATTR = PAUSE LIST PRINT <> FORMAT STEP SOUND TRACKER v1.3n[B]▗[F][Q][Q]▗▝ ▝pp[A]$$.$[Q][Q][Q]Pi T0ppp!p* c▞>?O[Q]n[Q]pccp TO p TO ▝ CAT piprp~p▜p[A]▘ 9[Q]!)▝ ERASE ▝!M▝ p`0▝PH▗[Q]V▗0Aa&q[C][I]18`1VAL ACS 1M▝[Q]p REM GO SUB COS ▘[Q]ACS EXP ▖ !&11▞1@R@[Q] TO CIRCLE pp@[N][ COPY d▝/▝Q▚pp p OUT ▝USR PAPER ▝USR PAPER Pp0▝p@ OPEN #▝AD0ppAT LET ==@[N]PEEK @ OUT SAVE @'@@f COPY [S]eqdr"[R]▖r"dqap"▗dr ▞r dqap &▗dr&▞rdqap9▗dr9▗rd▗ COPY USR COPY HC0IpTG0MpXK0Qp/apUp` COPY [S]fy1[R]01[S]5 [H]8[T]86[S]153[R]6565 COPY [S]hu%[R]$%[S]) [G],[T],*[S]%)'[R]*)*) COPY [R]gy11[S]13-35[R]0▞3101 COPY [U]f{%!)▝%%u013RNDf▚3[S]3[R]5[S]u6650▘ COPY [R]pHpH[B] COPY [R]ly<[S]==[R]=?ADBA[S]?▝=P▚BA=[S]B[R][T] COPY FN hy=<=: COPY INT M RANDOMIZE oK COPY RETURN AND RETURN CLEAR OR INKEY$KSGN COPY <>SQR RETURN >=[O] COPY CLS >= RETURN IF <=INKEY$M COPY vFN RETURN uPIINKEY$K COPY PAPER BRIGHT RETURN INK
56064 COPY GO SUB RANDOMIZE RETURN GO TO SAVE !, LOAD PAPER RETURN INPUT INK ,▖. COPY [M]- RETURN [L],▖ COPY J RETURN I▛7, LET COPY RETURN LIST RETURN M[J] 1EXP [K]CODE OPEN # RETURN ![Q]X[R]X_6F GO SUB VAL NOT DRAW L4[I] NEXT ! FORMAT k0[A]~ THEN w#xLEN CHR$ DRAW GO SUB V CLS STEP STOP CLS @/▗6/SIN j INPUT GO TO FOR REM DIM CONTINUE BORDER NEW RESTORE DATA READ STOP LLIST LPRINT OUT OVER INVERSE BRIGHT FLASH PAPER INK CIRCLE BEEP VERIFY MERGE CLOSE # OPEN # ERASE MOVE FORMAT CAT DEF FN STEP TO THEN LINE <>>=<= AND OR BIN NOT CHR$ STR$ USR IN PEEK ABS COPY COPY COPY COPY COPY COPY VERIFY NOT ▜BIN COPY CLEAR COPY CLEAR COPY CLEAR SAVE CLEAR [J]P BRIGHT DEF FN E9[T]9 FLASH |8 CLOSE #LEN 3LEN 3B^=^9^=^LEN 3P0$▗MG SAVE ATTR GINT [q AND CAT kv><BB~BB|B|BB|[E]@@B<xDBBDx~@|@@~@▝@ ▝N 78▝>STR$ ▝>[B8DHpHDPCHR$ @8BfZ (BbRJFhp (n0PBRJ@8▗<@<▝ RETURN CHR$ h 0<> D STEP OTD DEF FN NpD STEP 5XD DEF FN :<BLN >pD DEF FN ;tBACS J,GTAB -pG[S]*G[R]*xB
