| Является частью релиза: | Chase H.Q. |
| Размер файла: | 65280 |
| md5: | 48a5587e3a2e97ae59ee3614cd07ad14 |
1 INK USR VAL "23882"
62257> POKE OPEN #SQR CODE 2]2=/ CLEAR !:/!FN a RESTORE GO SUB [ POKE /NOT =Adapted for GENERAL SOUND by MIKE BLUM on 06.03.98!SCREEN$ LINE [T]^[T]^ NEXT 1PIa!SGN aSGN CODE TAB FN VAL$ w#xLEN Ov~ INVERSE POKE RANDOMIZE [I] RUN [P] PAUSE L[C] CLEAR POINT SCREEN$ 7 REM PAUSE [F] READ ACS FOR - LLIST ASN ACS BEEP INT MIN INK <> PRINT AND >=[L]/ GO TO ,ACS [A] STEP VAL ACS SGN IF RUN CONTINUE POKE NOT PRINT @ FORMAT TAB OVER [J]6e[L] FLASH &eb OUT }3 RESTORE ~ MOVE s9!| THEN i'8f STEP oFN 4ASN ) STOP ▘LN SAVE /"[H]+#D RESTORE PEEK R POKE LN [ BORDER N0.# LET 2_ PLOT N]xw▞1&[I] NEXT sd+▝R.jH<>WW CLOSE #[I]Z7qQ OVER ^L INVERSE [H]L=xf BORDER ee STOP VAL$ hOSQR lz}RNDfVt PRINT s GO SUB [H]SGN vSIN ZASN RH BRIGHT READ [[Q]▗ RESTORE [T]▟▙[O]▛E] INPUT ATTR ATN Z STOP PRINT K [Q]: RETURN /ATN CLEAR EXP O DATA [U]TAN DATA kACS OR [N][S]S[S][P]INKEY$▖ SAVE NOT g ERASE ERASE CODE HIN [R]~[Q] CIRCLE SIN AT sATTR INVERSE ASN VAL$ VERIFY [S]>= BEEP MOVE PI NEXT FLASH yAT DIM /BIN CLOSE # BEEP MOVE >=>b READ TO iSGN <>[T]COS DATA DATA POKE Q-7[M] OPEN #"[K]▟ VERIFY FLASH '▝[A],ENOT PAPER [H]? STOP [I] OVER RETURN y RANDOMIZE CLS z>=c8 STEP TAN g, CAT INVERSE v RANDOMIZE PI( INVERSE [U]w<dv PLOT SCREEN$ CONTINUE LIST Y FOR DEF FN C"TAB - INVERSE ▖ DATA O$ RANDOMIZE /R# RETURN *Y+ NEXT !/,▖/#▛e$▙k)▝*[E]i▞/t)WA[O]▞9}▛ XH[H]PEEK FSIN as_[Q]ATN OABS jzYEXP `PpLN sm`COS h[U][P]ACS P CLS [fMc NEW [S]FCj GO TO FN [F] CLS ZF PRINT COS G STOP [M]▙ OUT UB RETURN INT [U]%PIATN BEEP lt<=▟TAB .VAL$ LN g} FORMAT TAN PI[M]}ASN BEEP SIN SCREEN$ [E]sSQR INVERSE LN TAB [D]STR$ [T] AND OPEN # INPUT <=POINT GO TO VAL$ [S]<> INK TAB FLASH VAL DRAW 'COS PAUSE BRIGHT THEN PAPER CIRCLE CAT 5SQR <USR AT USR PLOT PLOT STEP LOAD NOT $[A]TAB SCREEN$ ATTR [E] LINE POKE PRINT PAPER MERGE [C] POKE PLOT CHR$ ▞ FLASH CONTINUE 3 IF OR 'USR TO ASN fr OVER ABS CLOSE #COS 6 READ 1 READ PAPER MOVE STOP } BRIGHT RUN zZ% PRINT NEW RC NEXT LLIST WH/ DRAW [L] NEW @Q)T STOP ▝%/^ DIM ▖zn^w~rZo1*+4▗ /)▚ RESTORE i FORMAT LPRINT JOboFGfINKEY$▞ CONTINUE Z_~wCOS ERASE /MtgABS BRIGHT V)roPI AND H6[T] LINE POINT >=sSCREEN$ a▘Ae▖ABS q[J]pABS [I] LLIST ACS INPUT @ACS 9ELEN [R] PRINT VAL 7▙T[C][M]TAN [J]▞[I]INKEY$SQR BIN TAB [S] OUT mSTR$ r[T] RESTORE BEEP e<> ERASE ▙ AND [M]u MOVE [A]<=D STOP z PAPER [L]LN ASN BORDER LLIST < BEEP j5 FOR 6[C] OVER 0[H] STEP ,>=INKEY$=oNOT PEEK CHR$ OVER : ERASE EXP >USR LPRINT g;ATTR DATA 6AT CONTINUE 5 TO 3 DEF FN [E]B: CAT >=:▘[B]/H7 NEW [M]2 PLOT [J]1'f LLIST & ERASE SQR INK INPUT <=m ERASE LOAD BIN DIM 0 BEEP UDb DATA g-BF LET Z` TO { OPEN #z;w'-KJ[L] RANDOMIZE [P]T STEP ERASE FOR FORMAT RANDOMIZE COS _ DATA f LIST [E]&x[H][S]M▞?/INT @n[I] PAUSE [J]4[B]ACS NIN [F]INT F[C];[F];8BcvAT CONTINUE BuABS ACS ▛[E]▞▘=[J]0VAL [N]EXP vLEN Gv&COS FLASH | CLEAR ▘][Q]PI[M]RNDVAL [N] MERGE ©SIN D DEF FN RND[A]X7[P]iZ0 LIST LPRINT <▜[H] LLIST R8 SAVE [M]SQR VAL$ PEEK {▚ RUN wNk▚[D]rI`[R]▙mPuX BEEP pSQR F<=▛ STOP DATA QBIN TAN 4 BRIGHT ,b0▖> CIRCLE <* CONTINUE $ ERASE OPEN # CONTINUE q VERIFY BEEP GO TO x PAPER FLASH )l OVER OUT LLIST > STOP READ STR$ }VAL$ DATA RESTORE 3 PAUSE 6>= PAUSE NEXT $;J PAUSE CLEAR RETURN COPY .{ LIST [T] PLOT RANDOMIZE <=+oBIN >=kSTR$ 8u2wv FLASH prm DATA LLIST FOR LIST Z,> POKE qB8% RANDOMIZE ~O! CLEAR K= LLIST |W9 RESTORE eS RANDOMIZE '^]XB5bAsHF▞.▖F/o*+UIN r26NIN /g;<YPI LLIST SIN $RINT ][P]STAB [E]KINT POINT [B]|E|▟}Ye▞bIN CIRCLE TO SIN ^d[H]] COPY SIN X DATA INKEY$G LPRINT LPRINT SCREEN$ 'EXP I FOR ACS K CONTINUE TAB n▗[S][D]INKEY$S LIST Z COPY CLEAR 5CODE X RANDOMIZE ] AND AND BRIGHT [SGN [H]ACS [L]l STEP ▞ OPEN #R[O]INT ▘p CLOSE #[G]w FORMAT FORMAT { BRIGHT ©CHR$ OR IN 9 NEW /TAB =POINT INK ATN CHR$ COS INK IN RESTORE INVERSE CAT = NEXT DRAW "▚STR$ &▝ SAVE DIM DRAW [B] PRINT 4 RANDOMIZE INPUT 8 DRAW CLEAR IF EINKEY$▘ STOP SGN FN 7{ NEXT /P CAT tj REM RUN am PLOT CLOSE # DIM s OVER f 3% INK &%)V$[M]?<><>=<= DRAW RQ( VERIFY / RUN l[/&QN*▖ g*/Z*▝)[I].RQUu!> INPUT xX{$4SIN INPUT FN `c[N]%[L]gpjo{-.$.=4P;/$ZW9)-342.hx▗[B]<=SIN SCREEN$ RND MERGE OPEN #<> FLASH OVER ATTR STR$ CIRCLE INVERSE AND OPEN #LEN TAN COS MOVE OPEN # FORMAT ERASE FLASH STEP <>▟[F][J]AT LEN PAUSE PLOT STOP PLOT LET ▚ LLIST CLEAR RESTORE NEW ▛ DIM FOR CONTINUE REM NEXT RESTORE LLIST RNDIN LEN INKEY$ LET ▛[H][K] RETURN DATA DIM GO TO RETURN LPRINT ▘▟▛[A][E] DIM NEW BORDER DATA RESTORE STOP INVERSE [G][F]▘BIN OVER FORMAT OR [A] READ PLOT RANDOMIZE ▙▙▙[P][B] COPY AT VAL$ [T]PI[R]ATN >=<> AND <=BIN OR DRAW POINT ATN SCREEN$ [T] BORDER CLEAR RUN DATA COS NOT INK CIRCLE SCREEN$ ACS TAN ATTR INVERSE SCREEN$ ACS MDP-*+()&'$HTK/WRWZ]9[_]MJZd`zholmhgy`8:2!up{eoeq~ro}qx{{djOFFRC>>+y=:18~0G/_/ L*@<^PSRUu/2SNOP NEXT INK RESTORE !?[K] COPY COPY S MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !© CLOSE #~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE GO SUB LN LLIST INK CLS <>/jagtitleb/ass attack{%0@)/VAL$ ▟AEXP PIQ THEN ▚rq5;USR E;[R]~AT GO SUB /[J][M].USR NOT GO TO BEEP Y,STR$ 0ATTR ^. LOAD POKE 5( RUN COS RETURN LINE %©"LN WD4M.K. VERIFY PIAT ©©uQ< %POINT p[R]ATN KSIN INVERSE nNOT vSQR CLOSE #/ INK VERIFY p LOAD VAL$ __{3? LINE STEP _-?TAN | CIRCLE SGN ;?u7VAL$ ? LIST POKE CHR$ @|0BIN IN fABS RUN ?Xh[P]_Xh_AT [P]? SAVE COPY COPY FORMAT COPY OUT [R] COPY PLOT CHR$ COPY [P]a COPY IN COPY VERIFY STEP ?[Q] COPY [Q][H]s LIST VAL y? COPY ▘[P] COPY aSTR$ U COPY ▜[E] COPY X ERASE OUT [H], COPY OUT "ATTR _T COPY h4>=, COPY AT a MERGE ©IN U COPY `c OUT ~ COPY p LIST AT CONTINUE [Q]K COPY OUT CHR$ * LIST COPY SIN USR ©.[C]U COPY COPY >=CHR$ COPY 3 COPY STR$ INPUT [T]3f COPY [G]e RETURN OR COPY PAPER CONTINUE GO TO THEN NOT COPY TAN VERIFY #m, COPY PEEK COPY ? COPY CLOSE #[P] CAT Po VERIFY sZX COPY VERIFY >Y COPY VERIFY OVER CHR$ ^?LIN 4 COPY ▗ STEP o[R]ABS OUT COPY COPY STOP d?TAN COPY BEEP , COPY ▛SIN COPY VERIFY $k COPY '_▝C COPY COPY VAL ▜©R,TAN COPY COPY `/ COPY COPY 9X VERIFY L COPY LIST VAL VAL$ THEN LET ▗ COPY #/l©'ATTR [R]5 CAT COPY LPRINT d[P]8©+e[R] COPY 5[D] COPY Zw COPY LIST P DRAW COPY PEEK COPY [T]K COPY RETURN wq~+[N]@ COPY LIST / IF OUT OUT MW OPEN # VERIFY _ COPY 8a?KC COPY GO TO =[P] ▛[P] LIST _SGN [B]6 CLS ?TAB f; NEXT CIRCLE _ COPY ?&h_PEEK STEP FORMAT _?' GO TO IN PAUSE B COPY ?/TAN OUT COPY <>_ COPY u`S LIST VAL ;_?TAN READ . COPY COPY VERIFY COS OUT S© COPY LINE s CIRCLE ? COPY [P]`a?6 COPY SIN A VERIFY lNOT [G]_TAN l COPY [Q]l0SCREEN$ LINE COPY RANDOMIZE U#z/?mPEEK ,[P]__ABS RUN COPY _?n@SQR _x[P] POKE CHR$ COPY ?{o LLIST SK?(▖ COPY PEEK ?XSIN COPY =x COPY LOAD ,X? VERIFY COPY PEEK SGN 0 COPY _aa_/ COPY NV[P] COPY ▚_©d_▚ INVERSE COPY _IN ? OVER [U]_?IN SQR <=_ SAVE ERASE COPY INK K COPY COPY DEF FN / COPY IN #▗[R] COPY SIN LEN COPY COPY E LET COPY [Q][P]% COPY 0 COPY [H]IN COPY V AND COPY gK COPY ?BIN FORMAT COPY K< COPY [P][C]%# COPY OUT SIN [L]_, IF COPY RETURN Q_ COPY [G]" LIST S COPY SCREEN$ ▘ FOR IN CLOSE # OPEN #?`,o CLS sY_ COPY / OVER CHR$ COPY [T]<> RETURN ▖ COPY ©VAL yCODE ATTR ▗ COPY COPY IF IN ▗% COPY VAL COPY PEEK LINE XSIN COPY COPY Y COPY [H] COPY /NL COPY s,>= COPY [H]_AT COPY _|'ATTR THEN COPY ABS U OUT d[B] COPY SIN FORMAT [P]_▞/ COPY [Q]0Y COPY [K],O COPY [B] OUT COPY VERIFY ATTR d COPY /VAL @T OPEN #[D][B], COPY ERASE COPY Z/ TO [G] COPY COPY COPY CLS ' OUT 46S COPY lINKEY$ COPY ? CLOSE #* COPY .[L] COPY ? COPY [O] GO TO © COPY FOR PAPER _ COPY ^ PLOT IN ©USR © STEP CLOSE # COPY SQR POINT COPY 6S COPY SQR IN COPY _VAL VAL$ ?LEN COPY LEN [D]ABS COPY COPY 6?? STEP a COPY [P]& GO TO IN COPY © FOR CHR$ COPY COPY VERIFY vS COPY IN RUN CHR$ ©IN /ASN _u? COPY :sATTR PAUSE +?X??aB BEEP COPY LV[P]h COPY [A]- COPY AND VAL OPEN # COPY M6 FLASH COPY LINE Vo©CODE [P]_ COPY [L]_ COPY :e; CAT 6 OUT LINE _TAN COPY [SQR IN /m?z COPY _[U] PLOT IN _ LET PAPER COPY S FORMAT nn[P]?V REM LINE ?.TAN OUT /?ACS . COPY mTAN ©IN VAL CONTINUE VAL ? COPY }X? COPY [F]uo LIST GO SUB a COPY _'▚1 COPY OUT PLOT a COPY v COPY COPY A FLASH COPY COPY ▜ SAVE k_ ERASE COPY _NOT CHR$ !© COPY Lv_ COPY VAL$ DIM ?? CLS ▝xX OUT 5.&[N]© OUT FN ▛[A] POKE 7 OUT <>[L]©? VERIFY ,'>CODE ,eSCREEN$ AT STOP U%▛ COPY STOP U COPY 0Y_S COPY [O],S COPY >=Z COPY ?[R]<>2 COPY COPY VAL dQ COPY XSIN COPY 9 COPY 1Y COPY - COPY & COPY <>IN COPY SIN ▚IN ACS | COPY _IN B INVERSE ?[E][P] GO TO ▞ COPY ?&©?Ov[P] COPY ;AT 0 PLOT ASN ? COPY D PAUSE COPY _/ CLS ?/ COPY a_? FOR +__%[L]O COPY >CODE COPY [E]>=CHR$ IN COPY Yh COPY [E]S FORMAT VAL CODE COPY /TAN COPY COPY COPY INVERSE dIN ?[C] COPY ?[B] COPY LINE COPY %+? LPRINT P COPY ZB_ COPY L[G][P]) COPY U CIRCLE [P] COPY ©a/ COPY COPY COPY &{/[P][R] COPY COPY X STOP IN x MOVE ` COPY ?IN z OUT ao STEP P COPY ?PEEK [C] COPY CAT [Q]▟ COPY TAN (TAN AT ©Z", COPY FLASH VAL COPY CONTINUE LOAD OUT /^ COPY 5[L] COPY COPY LINE IF _K DRAW CHR$ COPY SQR INK COPY [K]ABS / COPY ▚ PLOT ? COPY ; GO TO [P] CAT VERIFY ATN _ COPY OUT LINE _ FLASH FLASH _ OUT FORMAT B COPY CLEAR ASN [T] COPY gy OUT ABS STR$ c[P]ATN ATN ?> OVER BEEP COPY INK CHR$ ? PAPER COPY COPY PAPER [<=_B COPY ▚ PLOT / COPY m COPY NEW _[P]v<= COPY GO SUB ©_o~ COPY [ COPY }j COPY SK LOAD COPY [C] COPY COPY INKEY$ CONTINUE LINE COPY COS _ PLOT VAL COPY OUT OVAL CLOSE # COPY CHR$ PLOT COPY CODE Y COPY CIRCLE CIRCLE IN "Y COPY RETURN SAVE COPY CLOSE #▘ COPY TAN VAL ^ATN COPY OUT ls OUT NEXT j OUT ??Xi[P]STR$ f? COPY LIST VERIFY BEEP COPY CODE AND COPY ?_R[L] OUT COPY FLASH NOT COPY _l OVER COPY _? COPY LINE _ INVERSE y?IN BRIGHT INVERSE COPY [Q]YIN COPY [H]IN duIN POINT # COPY LINE FLASH s IF © COPY Kci[H]| COPY LEN OUT ?o[L] COPY [P]TAB GO SUB [P] COPY ▚ COPY [P]aPOINT COPY COPY j▝ OUT lY COPY /& OVER [G] COPY IN Nm COPY MmNOT COPY O CLEAR © COPY K GO SUB ? COPY R$ COPY COPY SIN FORMAT RETURN CLEAR COPY RETURN <=j COPY IN :Y COPY [E]TAN ©<>IN ©AT {aASN ?%]▛ LOAD OR INKEY$ LPRINT /_xht▘RNDSQR VERIFY /PINOT ?? GO SUB PEEK USR +? NEW ▚?* MOVE jO DEF FN ATTR /[L]. LIST ?▛© DEF FN BRIGHT AT ?J] LPRINT oc/ VERIFY ozo_[E]/[P][T] NEXT FOR REM ©o/} COPY ©© DRAW PLOT COPY © COPY FLASH OUT / COPY _=[I] COPY [H]{[A] CLS [Q]q_ BEEP ▛o[Q]/ OUT FLASH O COPY ©zIk COPY GO TO STEP COPY VAL RUN [2 COPY RETURN 8 COPY ▜q?[ CLS COPY OUT INVERSE o▜CODE POKE ATTR OUT [H] COPY NEW = COPY 6s© COPY THEN IN $ COPY PEEK COPY O COPY PLOT [O][L]?_©{▞a COPY P_O IF ABS + COPY // COPY VO? LIST % COPY x COPY v[ATTR INK COPY x©TSIN ; COPY _ RETURN o COPY COPY :TAN COPY SAVE RND BEEP RNDPIo COPY O GO TO COPY / RESTORE / COPY ©?AT # COPY ABS VAL COPY © GO TO COPY IN h/ COPY COPY _ COPY / COPY %{ COPY [R]© COPY "{ COPY COPY LINE ABS 6& COPY [C] RETURN 8 COPY COPY { CAT / GO TO % COPY COPY PAPER [P] COPY % COPY STOP COPY [G] GO TO COPY COPY GO SUB COPY oB COPY IN VAL FORMAT COPY /TAN COPY COPY COPY Xh COPY Z COPY COPY "6 COPY COPY GO SUB © COPY PAPER OUT COPY Q INK K COPY _J COPY TAN RETURN PLOT COPY ZATTR / COPY tCHR$ J BORDER >[L] COPY ;[S]_N COPY [T]- LIST ? NEXT _O_q COPY @Z HBIN [T] LIST /PEEK NEXT o CAT V? COPY LOAD LIST COPY LLIST COPY [iX/ COPY <=V/V5©D SAVE COPY % CAT h COPY K© COPY 7l COPY © PLOT FORMAT LOAD © STEP RUN COPY CODE l▚ COPY CAT 4ABS [L] COPY COPY RANDOMIZE ▗ATTR BORDER COPY © OVER BIN COPY Wn/ RETURN QoINT OS6©_ POKE 3©ATTR 4 COPY /▛CODE COPY LINE T OPEN #/@ COPY MOVE LOAD TAN OVER ▞Z▜7oCODE COPY FOR ▝] COPY COPY TAN ATTR z COPY O COPY COPY >Y/ COPY VERIFY RND{od COPY /Y CONTINUE [L]©,0 COPY a3 COPY COPY a[T]# COPY SQR 3 LOAD PAPER OVER COPY `©[E]SGN p COPY hSGN COPY .SGN 4 RANDOMIZE OUT [C]OIN SGN COPY we©"$[Q]<> COPY IN [K]|SGN & COPY LET %SGN ( COPY [L] CLEAR ▛o GO TO [ RETURN NEXT IN Z[ COPY <> RETURN FOR COPY GO TO CODE FLASH RETURN [K] COPY SQR <>_TAN COPY / FORMAT & COPY IN BEEP USR COPY COPY ATN ATN ATTR CAT INVERSE CLS FLASH ©O|▚ COPY © PLOT ▜ CAT © INPUT K COPY OUT ©mIN COPY f CIRCLE ?/NOT O COPY X[L] CLS FOR COPY THEN RETURN LOAD COPY o COPY COPY POKE oo COPY IF ; COPY COPY STEP [P]©6[D] COPY O INK M COPY o LET * COPY FLASH ©[D] CLEAR THEN COPY Kv OUT COPY - POKE / COPY COPY 5 COPY PEEK NEXT uSIN ATTR COPY GO TO STEP ▛? OUT VERIFY COPY cCODE FOR SQR oATN d COPY INK }#/a COPY %{ COPY OUT PLOT LN THEN ©L PLOT COPY / INK COPY COPY mn+ LPRINT THEN IN 8" COPY AT CODE v{# COPY kCOS S FLASH SGN COPY RETURN [O] OUT LET INPUT COPY FLASH BRIGHT COPY u[L] COPY NEW ▖o FLASH BRIGHT COPY vATTR [ RETURN Y COPY E VERIFY P'COS COPY |{▙[S[T] LOAD NEW RND VERIFY PEEK COS ▞a COPY l LIST ©,0[P] THEN ▟> COPY # READ ▘ VERIFY SGN SIN QsSQR /[O]?[C] STEP _? COPY dw?__IN COPY c<CODE oR TO ? BORDER ^ CLS CLEAR _@[P]▘O©S OUT CLS PEEK LINE LOAD COPY qg RUN GO TO INKEY$ OPEN #?.RND8 COPY COS *▘ COPY [Q]3 INVERSE VAL [Q]4 COPY [P] OR ▝l NEXT [P][H]LN CPI<> COPY $ LPRINT s COPY LIST COPY [H];p_© RANDOMIZE ,>_ COPY R THEN [Q] RANDOMIZE CHR$ _FN [G]o OUT _ LPRINT ©yp_[P]^[Q]IN USR CLEAR _ COPY VXO[H] LOAD CLS ol?▜S[VAL$ INPUT [P]/*@T OPEN #[D] COPY VERIFY ,LN (/[P]SIN ERASE CAT kq COPY BRIGHT ^3 COPY 6Z COPY ?TAN 7K?lo COPY ?[F]|© COPY STEP GO SUB © COPY NEXT RND COPY [ THEN COPY i LOAD #? CIRCLE ^ COPY O+ RANDOMIZE COPY COPY CLEAR FLASH q COPY COPY w COPY FLASH SQR / PAPER SQR COPY © FLASH [M] COPY =SQR COPY THEN - GO TO | COPY BORDER COPY MOVE [P] OUT SQR ABS CLS ©>ASN COPY COPY ASN 7/ COPY o/ COPY COPY 3INT GO SUB COPY IN ATN o, COPY OUT FLASH o- COPY GO SUB GO SUB o- COPY ABS ASN [C] COPY 2n COPY COPY _ CLEAR GO SUB COPY COPY < GO TO m COPY BORDER COPY LN O COPY - DIM ? COPY IN AND USR PLOT CODE COPY INT [L]AT _ COPY VERIFY n? LOAD -Xs COPY [[Q]IN C PAPER DRAW COPY RND[K] COPY _kPOINT COPY H[G]Z COPY COPY ATN COPY ZCOS ?[T]PIv READ COPY ASN ORND PLOT COPY COPY j LOAD IN j{ COPY IN VERIFY [O] PAPER ? COPY PLOT R© CLOSE # AND BEEP PLOT COPY ?R[G] PAPER COPY COPY CLOSE #PEEK COPY ACS COPY _▚RND COPY COPY LIST ) COPY /©_VAL 9 FOR ATTR LEN ©▜h_[P]c_w AND + BEEP ASN k]5@[P] GO TO COPY RETURN COPY ~ PRINT gCOS SIN TAN DRAW b COPY NEXT ; INK _ COPY GO TO PEEK _[P]_IN [G] COPY COPY SGN IN COPY /& COPY jSIN COPY COPY ' CLS COPY COPY [D]ASN [T]<=STR$ l:©X DATA ©6~©yO©©{p7@ CAT ©y7 LINE RESTORE ATTR STEP CLEAR & LINE [P]VAL$ INKEY$ NEXT y::3[H] CLS {7 ERASE oUSR [G]yifmK IF BRIGHT AND CONTINUE ▗ STEP [J]<>INT CONTINUE 9ZLPLN RNDg©1u NEXT %:X INPUT USR DH<>SIN Kc OPEN #POINT TAN PEEK $ AND ^{NWATTR u STOP ©oaEf@)UvL©ORl: OUT ERASE OPEN #VAL$ IF [A]NOT @[R] CIRCLE [K]▟,<= CONTINUE BRIGHT X:© RESTORE COPY ©▙KQQdXzy`%[D]diu©((`oj RUN [©CODE WFU POKE CAT RESTORE PLOT AND REM RESTORE ABS CAT ▛ DRAW (JM REM { MERGE ([J]<> LIST FORMAT [Q]INT PEEK ABS INPUT INT POINT (© LLIST X9 BRIGHT C!K^9| THEN [T]ACS Xi©Ei%© CONTINUE DRAW (VAL$ " FLASH DATA POKE POINT IF LLIST ▗ INPUT AND R RANDOMIZE [D][Q]RNDx[H]▜ CLEAR MERGE d[G] TO RANDOMIZE BRIGHT DATA COPY IF g©4©c0:H BRIGHT /nXx$H%@[N]K[P]= STEP LIST LEN ATTR c<>AT PRINT [ CIRCLE POINT ? TO PSQR ASN VAL$ @c▟AT INKEY$NOT FORMAT OVER [E] RANDOMIZE OPEN # BORDER LINE SIN L NEXT %- PLOT NUra@lo[`©"©CrSCREEN$ ▘UAf▚B{rKR©{9▟$@K+ POKE 9+ BRIGHT OPEN # GO SUB AT ASN PEEK SQR [E]INT [T][K]▘ LINE FLASH ▝[J][F]{[Q][E]PPEEK ▙ATN [N] ERASE LINE [J] RESTORE ASN LIST POINT INPUT =INT ©= OPEN #©? FOR :6*: cp<I© NEXT NEXT DRAW v9= LET ( AND RUN WAT SIN B MERGE 4 DRAW LIST [P]K CONTINUE AND FN [M]CODE LIST [T] DATA vSIN LN ATN P IF [M][G][S] OVER [G]LEN ASN INK INK USTR$ 0 PLOT COPY 4|l-Nd+XW©]i]'6^pKH]0WU©gm GO TO CONTINUE N`$"RoQZRBEW*B BEEP . DRAW CONTINUE FLASH PLOT N MERGE CLEAR CODE ABS TO [B][R]NOT ATTR FN CAT CLOSE #▗VAL$ /[E][M][K][J]▘VAL$ CODE ASN [T]INKEY$ BRIGHT PEEK LINE NOT LIST IF BORDER INPUT [E]3LEN <> OUT MERGE LET NOT INK BORDER OPEN # VERIFY LLIST SQR CLEAR LLIST FOR ' NEXT LIST p RANDOMIZE :* STEP 4:m~sFX?4o+y RESTORE (* IF CAT % INK TAN 4 VERIFY [S]AT =INT USR [E] DATA LET BORDER LLIST [A][D](NOT AT POINT INT INKEY$SQR POINT VAL$ ▟TAN FORMAT USR AT PEEK NOT [T] LINE [K] POKE FN ▟ LLIST [Q] CONTINUE CIRCLE CONTINUE <= DRAW LN OPEN #STR$ STEP X CAT DRAW OPEN #* DRAW LIST ( RANDOMIZE COPY F+ CLEAR ZB CLEAR @=u-<©HTH(T"|$~+(%UFU COPY (: DRAW -s: FORMAT F" IF LIST FLASH COPY OVER DATA RESTORE BIN [Q]VAL$ BIN LET INK AND LET GO SUB STOP DRAW USR POKE OPEN # RANDOMIZE AND [M]' GO SUB VAL$ MERGE BORDER [Q] LET DATA POKE ERASE [Q] OUT RESTORE POKE OUT OPEN # LLIST OUT f INPUT FORMAT CAT FORMAT INK INPUT SQR NOT BORDER DATA STOP * CIRCLE 3[Q][Q]!yg CLEAR COPY 3 TO Z COPY 0CW61ZQ{6+©@y] POKE ~] BORDER N+.9 PLOT CLEAR ! REM LET - LET COPY IF AT OPEN # PLOT GO SUB USR OUT LINE CAT [Q] LIST LINE DATA MERGE <=FN SQR LINE LINE SIN <= FORMAT CIRCLE RND DRAW INK BIN SIN COPY RND MERGE INK ASN CONTINUE POINT ABS CPOINT O OPEN # REM COPY LIST ( RUN ![Q]F$$(C6%$c BORDER OBC^-1©$1j?*X0BU0%K96 OVER K LET <. DATA ' RESTORE 1 RESTORE CLEAR FORMAT RUN CONTINUE LET USR CIRCLE TO BORDER FOR STR$ DATA BORDER LN NEXT STR$ [T] STEP <= ERASE RNDPEEK FN CAT USR STR$ FLASH USR RESTORE OUT OUT PEEK STOP MERGE LLIST @A FOR MERGE VERIFY OVER LET POKE [P] LIST MERGE BRIGHT CLEAR AND RANDOMIZE CONTINUE STR$ LET OPEN # RUN ASN INPUT CONTINUE REM DRAW GO SUB INK : PLOT - GO SUB 6I LIST '!10QUHK+6RKN]1 COPY LH LET IF LINE RUN INK OUT DATA STEP RANDOMIZE NEXT ASN ERASE <= LIST NOT LN NOT ABS TO REM [T]<> MERGE RND VERIFY LN OPEN # LINE POINT OUT USR INT SQR @ TO FLASH INKEY$ CAT DATA AND CAT NOT v CONTINUE ABS FOR DATA INPUT DATA RESTORE GO SUB NEXT STOP GO SUB 0 LIST * RANDOMIZE .P CLEAR '`70':6 CIRCLE ?(+!($!4!▜! DRAW 3" RANDOMIZE * RESTORE INPUT NEXT FOR GO SUB RANDOMIZE INK IF FORMAT BORDER RESTORE INPUT <= STOP (@BIN SIN CAT CAT ERASE LLIST PLOT RANDOMIZE FORMAT INPUT IF BORDER REM LIST AND DRAW NEXT FLASH LIST @& REM ! REM CIRCLE INPUT CIRCLE FLASH DATA BRIGHT OVER PLOT FORMAT OUT PLOT ERASE COPY RANDOMIZE CONTINUE LIST '.Fp REM Q LIST 1*$% CLEAR FOR CONTINUE RANDOMIZE TO 5 RANDOMIZE BORDER ERASE RESTORE CLEAR ( LLIST INPUT BRIGHT | TO OVER BORDER PLOT STOP OVER VERIFY BORDER INPUT INK CIRCLE P LLIST AND LINE INK ( OVER OUT DATA REM <> REM GO SUB OPEN # OUT INPUT GO SUB REM POKE NEXT LET LIST BORDER ! DRAW 0% RUN -B POKE "=+3%+:!$6@" LET 6 POKE COPY P CLEAR RANDOMIZE © COPY DATA NEXT RANDOMIZE PLOT LIST c TO BRIGHT RUN LLIST FOR STOP PLOT LET CIRCLE DATA INK INK FOR <> CONTINUE DATA CIRCLE MERGE INPUT REM NOT iP OPEN # OVER STEP POKE DATA BIN CAT ERASE VERIFY TO LLIST BIN LET NEXT STOP DATA COPY PLOT IF COPY P((O--.1?714=.9'( POKE N IF CLEAR RANDOMIZE DRAW GO SUB LET GO SUB LIST NEXT CONTINUE ASN OUT POKE STOP X NEXT CIRCLE CIRCLE INPUT <>P CIRCLE COPY LLIST TAN POKE INK LIST NOT OPEN # ERASE QSIN OPEN # CIRCLE ERASE CAT STOP BORDER TAN OVER CIRCLE FORMAT INK BRIGHT RESTORE DATA POKE CONTINUE RESTORE @ INPUT GO SUB RUN LEN 1 RANDOMIZE $!-6(L*.?77-9'.H=! REM * LOAD [Q]+ LIST ( LOAD 8 RESTORE RANDOMIZE REM POKE [Q] PRINT SCREEN$ /<>/USR @0CODE xIN pCODE ; OUT ©©pABS _©`t/|~[P]h@ COPY g©VAL ©@ATN o@ CAT H LIST f/ ERASE BRIGHT /USR BEEP LPRINT RND BORDER LIST [Q]▜ LIST TAN [M]▝FN ATN ▖[E]▘▝VAL ▛zh[K]P▝▖▛[S]▘ RUN ▖[P][P] THEN [A] THEN GO TO LPRINT IN CONTINUE EXP READ COPY PRINT '(;Z7MKoVo▘INT ] CLOSE #[[E] MOVE Hx@[B]fjD>=QF( CLEAR CLEAR FORMAT OUT BRIGHT USR USR >=EXP SQR PIPQAT }▜▜x BEEP N"▖VAL$ >=▝ BEEP CLOSE #LN USR POINT [K]USR THEN CODE FORMAT FN CODE CAT IN 0 OPEN # FLASH RESTORE RUN ?P +?C8G/W_ah@W|h_R#hhp-_f~SGN | ATTR g CLS mew©(pC?H_]X_?XP#_Z=/3%KWB(/ COPY ( LIST RUN LOAD SAVE CONTINUE LOAD COPY REM LIST OUT VERIFY FLASH LOAD LIST LPRINT SCREEN$ COS DATA LPRINT USR IN CODE IN USR ATN USR [Q][P][P][E][T]CODE [H][L][P]ATTR [F]6%[H]ATN [E] OR DEF FN ▟▝▘[B]▝▝[P]▙P@K[P]FN [P]ATN CODE PIg FORMAT USR PI<> BORDER LPRINT FORMAT LIST POKE LPRINT LIST RESTORE LPRINT CONTINUE BORDER FOR ▙ PAUSE LOAD ,(484CN`DHQ?TPU`P[WLN LINE `c BEEP Dvs|tTW[^PGK>?N4 REM OUT OUT READ OVER TO FORMAT >=SGN SQR ATTR FN VAL [Q][H][F][M][E]▚[Q] INPUT * DRAW H[H][H][L][Q][P] COPY SGN EXP EXP NOT USR BIN THEN MERGE INVERSE CONTINUE DATA BEEP BORDER GO TO DATA GO SUB LOAD NEXT COPY © COPY #(,0,495@@B@?COGO]XPW/]_fPYc_/[edipqvnpudknxpemwvppknljmlplkopllihuthformdmik^jcmh]gghc^`_XYagZP`QOVNPNKWSVLFGOHL@<>?D7;?@01:=4.)/76&$' CLS NEXT LET NEXT PRINT LIST LOAD LIST INPUT NEW DATA CONTINUE RESTORE LLIST BEEP LLIST LLIST CLOSE # INVERSE CIRCLE VERIFY FORMAT THEN THEN CAT TO CHR$ STR$ THEN STR$ IN NOT SGN SGN SQR ACS SQR COS LEN SIN SIN AT SCREEN$ LEN SCREEN$ RNDINKEY$[P]POINT [Q][S][N][L][L][P][K][G][F][J][F][B][H][B][D][C]▞[B][B]▟▛[H][B][F][E]▛▟▛▙[D][B][H][N][L][O][S][J][N]POINT FN SCREEN$ RNDRNDFN LEN CODE COS ACS ATN PEEK CHR$ USR NOT STEP DEF FN DEF FN CLOSE # BEEP VERIFY OPEN # OVER LPRINT READ LOAD INPUT POKE LET LOAD CLS !%(),.596@EDHQMUV]]_[ggfkqqpsvx|{©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©~©©zowrdr`Y]XUWTHF893.*" ! CLEAR RUN STOP INPUT NEW READ BRIGHT CLOSE # CLOSE #<> LINE >=STR$ USR SIN LEN LN AT TAB [U][S][Q][G][K][E]▟▛▜▗▘▝▝▝▘▜▙[A][K][E][S][Q]PICOS CODE EXP LN INT IN <><> ERASE FORMAT FLASH BORDER DIM CONTINUE FOR RANDOMIZE RANDOMIZE COPY &$#*+:46<BBKk|gw|zx©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©~vyojjRW_XNPFOD9>4;!-,'&#) DRAW SAVE POKE PRINT POKE LET DIM DIM INPUT INVERSE RESTORE NEW LPRINT LPRINT OUT CIRCLE MOVE VERIFY TO DEF FN <> OPEN #NOT <>>= OR BIN CHR$ IN PEEK ASN SQR LN VAL VAL SCREEN$ TAB FN [U]FN INKEY$[U]FN RND[H][N][H][M]▟[C][K][A][D][F][B]▙▟[A]▞▜▞▛▞▘▛▘▝▛▗▜▗▜▗▚[F]▙▟▖▟[F]▟[F][I][J][P][M][O][T][S]VAL$ POINT AT VAL ASN COS CHR$ IN USR INT <= OR AND MOVE MOVE OPEN #>= INVERSE BRIGHT CIRCLE OUT GO SUB RESTORE FOR NEW INPUT LOAD PLOT PAUSE LET IF PLOT RETURN LIST COPY RETURN RETURN CLS CLS SAVE COPY DRAW PLOT CLS POKE IF PLOT POKE RUN PRINT LOAD RUN LOAD LOAD POKE RUN LIST GO SUB LIST LET RUN GO TO LOAD RUN LET PRINT LIST LOAD PAUSE PRINT RUN POKE LOAD INPUT NEXT COPY POKE LOAD PLOT IF IF COPY RETURN DRAW CLS COPY ",!$ $ " RETURN CLS COPY CLEAR PLOT RANDOMIZE CLS PLOT INPUT LIST PAUSE LET FOR FOR LIST GO TO DIM NEW DIM LLIST LLIST BORDER RESTORE STOP OUT FLASH STOP INVERSE PAPER PAPER INVERSE INK PAPER OUT FLASH BEEP INVERSE FLASH BRIGHT PAPER INK INK INVERSE PAPER INVERSE INK OUT BRIGHT OVER BRIGHT INVERSE LPRINT LPRINT LPRINT LPRINT STOP LPRINT DATA STOP BORDER DATA LLIST BORDER REM REM REM LOAD LOAD LOAD LET PRINT NEXT LET RUN RANDOMIZE RANDOMIZE PRINT RANDOMIZE CLS SAVE COPY COPY CLEAR COPY IF RANDOMIZE COPY RETURN DRAW CLS RANDOMIZE SAVE COPY IF CLS DRAW SAVE COPY CLS LIST CLEAR POKE DRAW GO TO DIM RANDOMIZE CLEAR RETURN NEXT COPY NEXT DRAW CLEAR RETURN SAVE CLS CLS GO SUB CLEAR LLIST % IF READ CLEAR FOR & LOAD $ CLOSE # LIST POKE ( LPRINT PLOT RANDOMIZE IF RETURN DRAW LOAD RETURN INVERSE , RANDOMIZE LPRINT DRAW CONTINUE * LPRINT SAVE POKE # LLIST CLEAR CONTINUE DRAW FOR CLEAR INPUT DRAW PRINT LOAD GO TO CLEAR MOVE # OPEN # LIST RETURN POKE NEXT INPUT PLOT LET " INPUT RUN DATA RETURN CONTINUE RETURN PRINT IF PLOT RUN SAVE GO TO SAVE DRAW FLASH ' IF INPUT COPY LIST RETURN POKE BRIGHT NEW RESTORE LIST RANDOMIZE DRAW SAVE RETURN CLS POKE IF PAUSE BORDER DRAW CONTINUE DRAW RETURN PRINT RETURN CONTINUE PRINT DATA RANDOMIZE RETURN CLS PRINT DATA RETURN BORDER COPY POKE LIST POKE LPRINT DRAW DRAW SAVE POKE DRAW POKE PRINT PAUSE INPUT POKE RUN LIST LIST LPRINT , LPRINT DATA CLEAR PLOT IF IF RANDOMIZE COPY PRINT DRAW POKE PRINT CLEAR CONTINUE DRAW GO TO RETURN GO TO # LLIST GO TO 0 OUT COPY RETURN DRAW NEXT CLEAR CLS LIST POKE COPY SAVE LET RUN RANDOMIZE COPY NEW COPY DRAW LIST SAVE IF INPUT CLEAR RETURN DRAW RETURN INPUT RETURN POKE RUN CLEAR POKE INPUT IF RETURN DRAW DRAW COPY POKE REM CONTINUE IF SAVE RUN RETURN SAVE SAVE READ SAVE PAUSE CLEAR RETURN GO SUB DRAW COPY POKE SAVE NEXT INPUT IF RANDOMIZE DRAW CLS POKE LET SAVE DRAW CLS IF DRAW DRAW IF SAVE DRAW LIST SAVE INPUT RETURN DRAW DRAW COPY RANDOMIZE DRAW CLS RETURN RUN CLEAR DATA DRAW NEXT COPY PRINT COPY CLS SAVE RETURN CLEAR SAVE RETURN RETURN DRAW IF POKE COPY LIST CLEAR CLEAR DRAW RETURN DRAW RANDOMIZE RETURN RETURN IF RETURN RANDOMIZE NEXT DRAW PLOT DRAW COPY RANDOMIZE DRAW DRAW IF DRAW CLS RETURN DRAW DRAW IF POKE DRAW COPY RETURN COPY SAVE CLEAR IF SAVE PLOT DRAW DRAW SAVE DRAW DRAW RETURN COPY SAVE LIST DRAW RANDOMIZE IF CLS RETURN CLEAR CLS CLEAR CLS CLS RETURN DRAW COPY RETURN DRAW COPY COPY DRAW CLS DRAW DRAW DRAW COPY POKE COPY RUN SAVE COPY COPY COPY DRAW DRAW RETURN RETURN DRAW RETURN RETURN RETURN CLEAR RETURN IF COPY RETURN COPY DRAW COPY CLEAR COPY CLS DRAW CLEAR CLEAR DRAW RETURN CLS RETURN CLEAR CLEAR COPY CLEAR COPY DRAW COPY DRAW COPY COPY RETURN DRAW CLEAR COPY CLEAR COPY w©[Q]IN ©@ COPY Ho RUN O4 LIST [A] OUT /D FORMAT [I][H]o©xUSR BIN FOR 7o©PI7@ GO TO [A]/k@ CIRCLE RUN W] OUT < CONTINUE ©~ SAVE <> BORDER © ▖ RESTORE FORMAT ATN _i DATA NEXT IF CONTINUE READ CIRCLE CODE @ DATA PAPER DATA LOAD ?D" LIST >= CAT FOR g©H SAVE FLASH ?@ POKE BORDER FORMAT ABS [Q] LOAD VERIFY CLS Q GO SUB _` FORMAT IN $ PAUSE ?0-USR CODE READ %> CLEAR LIST CLS 36,VAL [P]PEEK [Q]ATTR COPY _©p OUT ?HUSR [L] OPEN # READ ! SAVE GO SUB ERASE CODE BORDER %ACS DIM ",;g@ POKE COPY >=[H] CAT /I4[r4USR [P] FOR INPUT COPY NEW NEXT CLEAR IF DIM INPUT *#0 TO SCREEN$ POINT CAT RUN PAUSE FORMAT INT OUT +M PAUSE NEXT NEXT NEW PLOT '* GO SUB + BRIGHT >= ERASE COPY /9 LET DATA STOP REM PRINT CLS LIST BORDER COPY !*% LIST BRIGHT READ COPY LOAD GO SUB PRINT STOP INT BEEP DRAW GO SUB RUN 1 POKE BORDER LET RUN CLEAR 70 CLS LET BORDER GO SUB PRINT DRAW RETURN GO TO READ LOAD CLS DRAW RESTORE PAUSE CLS SAVE DATA OUT RUN IF CONTINUE STOP LET PLOT POKE POKE IF CONTINUE GO SUB CLS PRINT RANDOMIZE DRAW RETURN CLEAR PLOT FOR LOAD LIST GO SUB COPY RETURN DRAW IF RUN CLEAR IF SAVE LET LOAD RANDOMIZE COPY PLOT GO TO RANDOMIZE CLEAR IF SAVE IF POKE PLOT CLS CLS SAVE REM LET RETURN NEXT RETURN SAVE LIST CLS CLEAR CLEAR DRAW RANDOMIZE SAVE IF RETURN COPY POKE STOP FOR DRAW CLS COPY COPY CLS IF COPY DRAW COPY RUN NEXT RUN COPY IF CLS CLS RUN IF COPY COPY SAVE SAVE CLEAR SAVE RANDOMIZE COPY CLEAR RETURN CLEAR RETURN COPY SAVE RANDOMIZE COPY RETURN IF RETURN CLEAR RANDOMIZE RUN CLS RETURN CLEAR RETURN CLEAR CLEAR COPY RETURN SAVE PLOT RETURN CLEAR CLEAR RETURN DRAW DRAW RETURN COPY COPY COPY CLEAR CLEAR RETURN COPY CLEAR IF DRAW CLEAR CLEAR COPY RETURN RETURN COPY RETURN RETURN COPY COPY RETURN COPY COPY COPY CLEAR DRAW CLEAR COPY RETURN COPY COPY RETURN RETURN RETURN RETURN RETURN RETURN COPY COPY RETURN RETURN COPY COPY COPY RETURN RETURN RETURN RETURN COPY COPY RETURN COPY COPY RETURN COPY COPY COPY COPY COPY RETURN RETURN COPY COPY COPY COPY COPY RUN PLOT PAUSE PAUSE LIST LIST LIST LIST LET /# SAVE CLEAR RANDOMIZE RUN PLOT PAUSE LIST INPUT GO SUB FOR REM CONTINUE REM PLOT ;8$ COPY COPY CLEAR PAUSE PLOT GO SUB LIST INPUT REM CONTINUE BORDER NEW READ STOP NEW COPY b8'$$ RUN RUN GO SUB LIST INPUT READ BORDER READ STOP LPRINT BRIGHT FLASH FLASH GO SUB ©5-+# RETURN CLEAR POKE INPUT GO SUB GO SUB LLIST READ STOP LPRINT BRIGHT PAPER PAPER INK PAPER COPY ,,# RETURN POKE PAUSE LIST NEW BORDER NEW FLASH LPRINT MERGE PAPER INK VERIFY VERIFY LLIST i_8,&% CLEAR POKE PAUSE REM GO SUB LLIST STOP LLIST INVERSE FLASH PAPER VERIFY VERIFY VERIFY PLOT ©'52-%$ RUN PLOT GO SUB LIST NEW LPRINT INVERSE LPRINT BRIGHT PAPER INK VERIFY VERIFY INK © SAVE B-'&# SAVE RUN PAUSE LIST NEW BORDER NEW FLASH LPRINT BRIGHT PAPER INK VERIFY VERIFY LLIST 1© CLEAR A,&% COPY CLEAR POKE INPUT GO SUB REM LLIST STOP LLIST INVERSE FLASH PAPER VERIFY VERIFY VERIFY PLOT ,iI%5*'$ RUN PLOT GO SUB LIST NEW LPRINT INVERSE LPRINT BRIGHT PAPER INK VERIFY VERIFY VERIFY '©51'&# RETURN PLOT POKE LIST GO SUB READ READ FLASH LPRINT BRIGHT PAPER INK VERIFY VERIFY LPRINT %© POKE A,,# CLEAR POKE PAUSE INPUT NEW CONTINUE INVERSE LLIST INVERSE FLASH PAPER VERIFY VERIFY VERIFY REM >]Z#4-%$ RUN PLOT PAUSE CONTINUE CONTINUE LPRINT STOP LPRINT BRIGHT PAPER INK VERIFY VERIFY VERIFY 2 CLEAR ©21'&# RETURN PLOT POKE LIST NEW BORDER NEW FLASH LPRINT BRIGHT PAPER INK VERIFY VERIFY INK 1© REM G+&% COPY POKE PAUSE REM REM BORDER INVERSE LLIST INVERSE FLASH PAPER VERIFY VERIFY MERGE PAUSE ;Z[6*'% RUN PLOT PAUSE CONTINUE CONTINUE LPRINT INVERSE LPRINT BRIGHT PAPER INK VERIFY VERIFY MERGE 2 PAUSE ©11'&$ RETURN PLOT POKE LIST NEW BORDER STOP STOP LPRINT MERGE PAPER INK VERIFY MERGE LPRINT >© INPUT C+&% CLEAR POKE PAUSE REM CONTINUE LPRINT LLIST LPRINT INVERSE FLASH PAPER VERIFY VERIFY MERGE > POKE lM#4/%$ RUN LET LIST BORDER NEW STOP STOP LPRINT BRIGHT PAPER INK VERIFY VERIFY INK 2 CLEAR ©6/,# COPY POKE PAUSE REM CONTINUE LPRINT INVERSE LPRINT INVERSE FLASH PAPER INK VERIFY VERIFY PLOT B RANDOMIZE +© CLEAR @,& CLEAR POKE INPUT CONTINUE BORDER READ FLASH LPRINT BRIGHT PAPER INK VERIFY VERIFY VERIFY &% PLOT ©1*1'&# RUN LET LIST BORDER NEW LLIST LLIST INVERSE BRIGHT PAPER INK VERIFY MERGE CONTINUE @ COPY © RUN A,&% COPY SAVE RUN PAUSE REM GO SUB LLIST FLASH LPRINT BRIGHT FLASH INK VERIFY VERIFY MERGE 1 INPUT _]2'+ CLEAR PAUSE GO SUB FOR STOP NEW FLASH BRIGHT BRIGHT PAPER INK VERIFY MERGE INK < DRAW ©51,$ RUN LET LIST NEW READ READ FLASH INVERSE BRIGHT PAPER VERIFY MERGE MERGE DRAW F REM 2© COPY <1& COPY CLEAR POKE PAUSE REM CONTINUE LPRINT INVERSE LPRINT INVERSE FLASH PAPER VERIFY MERGE MERGE / POKE ©-,/,$# SAVE PAUSE GO SUB BORDER NEW NEW FLASH LPRINT BRIGHT FLASH INK MERGE CLOSE # LET B POKE © INPUT F*+# COPY PLOT POKE FOR NEW LPRINT READ LLIST LPRINT BRIGHT PAPER CAT CLOSE # MOVE + LIST tB&/,$# COPY POKE PAUSE CONTINUE BORDER BORDER BRIGHT LLIST LPRINT BRIGHT PAPER THEN MOVE BRIGHT G PLOT © RANDOMIZE <2 & RETURN SAVE PAUSE GO SUB NEW READ NEW FLASH LPRINT INVERSE FLASH MOVE CAT CAT @ STOP Fz LIST PLOT FOR NEW NEW READ STOP LPRINT INVERSE CLOSE # TO CAT CAT ; COPY CLEAR ©4/&%% RETURN POKE PAUSE REM CONTINUE LPRINT READ STOP INK FLASH INK AND THEN PAUSE > NEW © INPUT F1$$ SAVE RUN INPUT CONTINUE STOP NEW FLASH LPRINT BRIGHT PAPER DEF FN AND CAT $ LET XX8+$## SAVE LET LIST NEW READ NEW FLASH BRIGHT INK INK AND THEN PAPER F CONTINUE ©44'#% LIST POKE REM CONTINUE CONTINUE INVERSE LLIST MERGE PAPER VERIFY USR TO 1 NEW & COPY SAVE RUN INPUT CONTINUE BORDER BORDER FLASH LPRINT MERGE INK TO AND CAT B PLOT Ht RETURN SAVE RUN NEW FOR CONTINUE READ FLASH LPRINT CLOSE # VERIFY TO AND LET @ READ ©1/1&% RUN LET FOR NEW CONTINUE BRIGHT STOP INK VERIFY CLOSE #CHR$ TO % LET ©<,$ LIST POKE STOP CONTINUE LPRINT LLIST LLIST MERGE INK TO AND INVERSE N LPRINT © REM G$$ SAVE RUN GO SUB BORDER REM LPRINT READ LLIST MERGE CLOSE # THEN OR 1 NEW Kj RETURN SAVE PAUSE FOR NEW CONTINUE BORDER BRIGHT BRIGHT CLOSE # CLOSE #CHR$ DEF FN I GO SUB w:&/$# RETURN LIST PAUSE REM GO SUB CONTINUE LPRINT INVERSE BRIGHT OPEN # TO AND LET G INVERSE ©-+# COPY SAVE RUN PAUSE CONTINUE FOR CONTINUE LPRINT STOP MOVE MERGE THEN OR 4 PAUSE © RANDOMIZE 8& SAVE SAVE NEW REM REM LPRINT READ PAPER CLOSE # TO AND VERIFY X BRIGHT © FOR >$ RUN LET REM INPUT READ READ FLASH PAPER MOVE CAT AND 2 LLIST Az4 SAVE RUN PAUSE REM GO SUB STOP STOP LPRINT MERGE CAT DEF FN DEF FN K FOR _Q+ CLEAR CLEAR PAUSE GO SUB GO SUB CONTINUE LPRINT LLIST BRIGHT OPEN # OPEN # AND RUN H LPRINT z4%$ RETURN COPY RUN LET REM INPUT NEW LPRINT INVERSE PAPER MOVE MOVE AND 8 LET ©$' RETURN SAVE RUN PAUSE REM GO SUB STOP NEW FLASH MERGE CLOSE # CAT FLASH U BRIGHT ©&& CLEAR COPY POKE NEW LET GO SUB STOP STOP LPRINT CLOSE # MERGE THEN 5 READ © COPY &$ RETURN CLEAR FOR INPUT INPUT FOR LLIST STOP PAPER CLOSE # MERGE TO R LIST © DRAW *$ RETURN SAVE RANDOMIZE LIST REM INPUT REM LPRINT LLIST INK INK DEF FN LET M BRIGHT © LIST ,# DRAW COPY POKE NEW LET INPUT READ READ FLASH MERGE VERIFY TO , GO SUB © CONTINUE 2 RETURN COPY INPUT LIST LIST INPUT STOP NEW FLASH MERGE CLOSE # VERIFY _ NEW © LET - RETURN SAVE INPUT PAUSE LIST NEW BORDER FLASH BRIGHT INK CAT H PAPER © CONTINUE - PLOT RUN LET LET LIST NEW LPRINT INVERSE BRIGHT INK CAT H SAVE © CONTINUE - COPY COPY LIST PLOT GO SUB LIST NEW LPRINT PAPER INVERSE OPEN # REM c BRIGHT COPY © READ / DRAW COPY POKE PAUSE POKE CONTINUE BORDER INVERSE INVERSE BRIGHT THEN : BRIGHT SAVE © STOP - SAVE PAUSE PLOT GO SUB BORDER LLIST FLASH LPRINT CLOSE # INK W RUN COPY RUN © CONTINUE * COPY RUN RUN PLOT GO SUB NEW LPRINT INVERSE LPRINT CLOSE # PLOT c INK RETURN POKE © CONTINUE * RETURN RETURN POKE SAVE PLOT REM CONTINUE LPRINT LPRINT INVERSE >=A INPUT SAVE RUN ,k SAVE ' SAVE RUN PLOT PLOT STOP NEW FLASH LLIST MERGE PAPER d REM COPY RUN PLOT FT% COPY DRAW SAVE RUN POKE STOP LLIST INVERSE LPRINT DEF FN PAUSE PLOT j- COPY RUN RANDOMIZE RUN GO SUB NEW LPRINT STOP INK MOVE T RANDOMIZE SAVE RUN RUN © CLEAR RETURN COPY PLOT RANDOMIZE LIST REM STOP FLASH LLIST MERGE NEW f INVERSE RUN PLOT RUN © RETURN COPY RETURN SAVE CLEAR RANDOMIZE INPUT CONTINUE INVERSE LPRINT LPRINT TO ; BORDER COPY CLEAR LET © INVERSE - COPY DRAW CLEAR DRAW PAUSE GO SUB NEW VERIFY LLIST MERGE VERIFY _ PAUSE SAVE RUN PLOT © INVERSE , RETURN CLEAR POKE PAUSE REM STOP FLASH LPRINT CLOSE # RETURN T LLIST COPY CLEAR PAUSE PLOT OQ COPY % DRAW RETURN RETURN POKE INPUT CONTINUE INVERSE LPRINT INVERSE OPEN #B RUN RETURN RETURN DRAW LET RUN © RANDOMIZE CLEAR PAUSE GO SUB NEW FLASH LPRINT VERIFY BORDER b LPRINT RETURN COPY CLEAR RANDOMIZE LIST SAVE © LIST # COPY COPY COPY CLEAR LET REM READ BRIGHT BRIGHT PAPER %' LIST COPY CLEAR DRAW SAVE PLOT © INVERSE + DRAW COPY POKE PAUSE CONTINUE LLIST FLASH LPRINT LPRINT W INPUT RETURN RUN DRAW RANDOMIZE LIST POKE NH SAVE RETURN PAUSE GO SUB NEW LPRINT INVERSE BRIGHT @ BORDER CLEAR DRAW SAVE LIST POKE © COPY COPY CLEAR FOR INPUT NEW LPRINT INVERSE LPRINT N COPY SAVE RUN SAVE PLOT POKE CLEAR © LPRINT + RANDOMIZE COPY POKE PAUSE READ BORDER STOP PAPER Z LPRINT RETURN COPY PLOT SAVE RUN PLOT PAUSE 2c RUN # RETURN SAVE RUN NEW REM BORDER FLASH LPRINT A PAUSE RETURN SAVE RUN RUN PLOT POKE PAUSE p RUN RUN READ CONTINUE LPRINT INVERSE LET j READ RETURN SAVE CLEAR RANDOMIZE RUN POKE PAUSE CLEAR © INVERSE * DRAW COPY POKE PAUSE LLIST BORDER NEW CLOSE #&> NEW COPY POKE SAVE PLOT POKE POKE 1Z RUN & RUN RUN GO SUB INVERSE REM PAPER READ e POKE RUN SAVE INPUT POKE POKE z RETURN COPY POKE PAUSE REM STOP NEW PAPER W STOP COPY RUN RANDOMIZE RUN GO SUB PAUSE © INK % SAVE SAVE GO SUB BORDER LPRINT READ PAPER U CLEAR DRAW SAVE INPUT PAUSE PAUSE b RETURN LIST PLOT FOR NEW LPRINT INVERSE CLEAR e BORDER RUN DRAW LET LIST LET CLEAR © LPRINT SAVE RUN INPUT CONTINUE STOP NEW FLASH B$ DRAW SAVE CLEAR RANDOMIZE LIST REM LIST HA DRAW COPY RETURN RUN LET LIST NEW READ READ INPUT j FOR DRAW SAVE INPUT GO SUB LET © POKE RETURN COPY PAUSE PAUSE REM CONTINUE NEW FLASH 48 LIST RETURN COPY PLOT RANDOMIZE RUN GO SUB LIST z CONTINUE DRAW RETURN PAUSE GO SUB NEW CONTINUE LPRINT FOR k RUN RUN SAVE LIST INPUT INPUT k COPY COPY CLEAR LET REM CONTINUE CONTINUE NEW N CONTINUE RANDOMIZE RUN GO SUB INPUT LET © STOP DRAW COPY RETURN POKE PAUSE READ CONTINUE CONTINUE NEW d CLEAR RETURN POKE SAVE PLOT GO SUB GO SUB &e PLOT RETURN CLEAR RANDOMIZE READ REM BORDER BORDER U POKE CLEAR POKE PLOT LET LIST INPUT q SAVE RETURN RETURN POKE SAVE NEW CONTINUE CONTINUE BORDER [ RANDOMIZE LIST LIST LIST LIST © LLIST & CLEAR RETURN CLEAR RANDOMIZE RUN LLIST BORDER BORDER b INPUT SAVE RUN SAVE INPUT GO SUB INPUT #i POKE RETURN CLEAR DRAW SAVE INPUT READ CONTINUE NEW Q DRAW SAVE GO SUB LIST INPUT [ CLEAR COPY CLEAR CLEAR PAUSE RUN GO SUB INVERSE REM _ INPUT COPY PLOT RANDOMIZE RANDOMIZE RUN NEW LIST INPUT © LET SAVE CLEAR DRAW LET PLOT READ CONTINUE LPRINT H COPY RETURN INPUT CLEAR SAVE GO SUB FOR GO SUB RETURN © NEW SAVE RETURN CLEAR DRAW LIST PLOT STOP CONTINUE _ PAUSE RANDOMIZE RUN GO SUB NEW FOR +U SAVE CLEAR CLEAR CLEAR PAUSE PLOT GO SUB GO SUB STOP B& RETURN RUN LIST SAVE PLOT READ INPUT REM _ RETURN COPY RETURN CLEAR DRAW LET POKE LET BORDER DRAW e RUN INPUT PLOT PLOT POKE CONTINUE FOR REM } RANDOMIZE CLEAR CLEAR DRAW LIST LIST LIST GO SUB <* COPY RETURN FOR RUN PLOT FOR FOR REM FOR © BRIGHT COPY COPY COPY CLEAR DRAW RANDOMIZE LIST LIST LIST _ PLOT PAUSE PLOT POKE LIST NEW CONTINUE © LPRINT # CLEAR COPY COPY CLEAR DRAW SAVE GO SUB LET LIST ;, DRAW PLOT POKE PAUSE CONTINUE CONTINUE CONTINUE 'Z GO SUB # DRAW COPY PLOT RANDOMIZE RUN GO SUB LET b RUN LIST PLOT PAUSE LIST INPUT NEW CONTINUE N+ COPY SAVE DRAW RANDOMIZE LIST LIST LET ;, CLEAR PAUSE PAUSE POKE PAUSE CONTINUE GO SUB STOP CONTINUE c CLEAR COPY RUN DRAW SAVE INPUT PAUSE f PLOT SAVE PAUSE PLOT POKE REM INPUT FOR CONTINUE CONTINUE { RANDOMIZE DRAW RUN RANDOMIZE SAVE GO SUB PAUSE 5: DRAW LIST PLOT POKE CONTINUE GO SUB REM CONTINUE REM © LET SAVE PAUSE RANDOMIZE RUN GO SUB f CLEAR PAUSE POKE PAUSE READ FOR CONTINUE CONTINUE PAUSE © CONTINUE DRAW COPY PLOT RANDOMIZE INPUT POKE ;> POKE POKE REM CONTINUE REM CONTINUE CONTINUE PAUSE © PAPER CLEAR SAVE RUN SAVE GO SUB e DRAW RANDOMIZE INPUT POKE PAUSE BORDER REM REM CONTINUE REM INPUT © MOVE SAVE DRAW LIST POKE 1K REM LET PAUSE LLIST FOR CONTINUE CONTINUE REM INPUT © LINE CLEAR RUN DRAW REM r LET PAUSE LIST NEW CONTINUE CONTINUE CONTINUE CONTINUE RUN © TO RUN PLOT PLOT *^ CLEAR RANDOMIZE DRAW SAVE INPUT PAUSE BORDER REM CONTINUE CONTINUE CONTINUE REM POKE © DEF FN CLEAR SAVE POKE RUN t DRAW LET LET LET NEW CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE PAUSE © MOVE SAVE RUN PLOT n RETURN # RANDOMIZE PAUSE POKE LIST LIST NEW CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE REM © MOVE SAVE RUN SAVE d& RANDOMIZE DRAW RUN PAUSE LIST NEW REM CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE PAUSE w PAPER CLEAR DRAW PAUSE t+ POKE DRAW RUN PLOT FOR NEW BORDER CONTINUE CONTINUE CONTINUE CONTINUE NEW RUN q PAPER COPY RUN RANDOMIZE R5 COPY LET SAVE PLOT READ CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE PAPER _ BRIGHT DRAW POKE w* CLEAR RETURN POKE RUN PLOT STOP NEW CONTINUE CONTINUE CONTINUE CONTINUE BORDER MOVE %B BORDER RETURN SAVE RUN AM RUN RUN GO SUB NEW LPRINT FOR CONTINUE CONTINUE CONTINUE PAPER MERGE F RANDOMIZE RETURN SAVE }, RETURN RUN PLOT RUN FOR NEW LPRINT FOR CONTINUE CONTINUE BORDER MOVE VERIFY U RETURN CLEAR RUN -c- RANDOMIZE PLOT READ NEW BORDER CONTINUE CONTINUE CONTINUE BRIGHT OPEN # INK k RUN RETURN COPY RETURN k%$ DRAW SAVE PAUSE SAVE GO SUB FOR BRIGHT REM BORDER CONTINUE CONTINUE MOVE VERIFY PAPER © FLASH RETURN SAVE { COPY 1 PAUSE RUN GO SUB NEW LPRINT FOR BORDER CONTINUE NEW CAT VERIFY REM © TO CLEAR TA' DRAW LIST DRAW LIST REM CONTINUE LPRINT CONTINUE BORDER CONTINUE VERIFY MOVE MERGE ©1 RUN COPY POKE SAVE INPUT CONTINUE STOP BORDER NEW BORDER BORDER MOVE DEF FN FLASH :& PLOT 6c,# CLEAR SAVE RUN SAVE BORDER CONTINUE LPRINT CONTINUE NEW BORDER READ MOVE OPEN # INVERSE Z RETURN ©'%%# RANDOMIZE SAVE NEW CONTINUE NEW BORDER NEW NEW FLASH MOVE CLOSE # LPRINT © BRIGHT $}'%% SAVE PLOT RANDOMIZE LIST REM CONTINUE LPRINT NEW NEW NEW CLOSE # CAT MERGE DRAW © DEF FN >*$% PLOT RANDOMIZE LIST CONTINUE STOP BORDER NEW NEW FLASH MERGE CAT INK 12 CONTINUE ©/#&$ RETURN SAVE RUN RANDOMIZE READ REM LPRINT NEW NEW READ PAPER CLOSE # MERGE VERIFY i RANDOMIZE RETURN HX+%& DRAW SAVE RUN SAVE STOP CONTINUE LPRINT NEW NEW FLASH PAPER VERIFY CLOSE # LPRINT © THEN ©4*% RUN RANDOMIZE LIST NEW BORDER NEW READ READ LLIST MERGE CLOSE # MERGE COPY +t6' COPY COPY CLEAR PAUSE PLOT LPRINT NEW READ READ STOP INK INK VERIFY VERIFY ] SAVE SAVE f<#,#& COPY CLEAR LET LIST INVERSE NEW READ READ LLIST MERGE INK VERIFY INK © CAT COPY ©8 + SAVE RUN RUN LLIST NEW NEW READ STOP LPRINT CLOSE # INK VERIFY R MOVE DRAW RETURN ;f6% RETURN GO SUB RUN LPRINT STOP NEW STOP STOP CLOSE # PAPER VERIFY INK ^ CLEAR POKE SAVE v&21## COPY CLEAR LET LET LPRINT READ READ STOP LPRINT CLOSE # INK VERIFY GO SUB ©CHR$ SAVE ©6/ COPY RETURN COPY POKE PLOT REM LPRINT NEW STOP STOP VERIFY PAPER VERIFY VERIFY < FOR RETURN SAVE WM5- SAVE PAUSE PLOT LPRINT NEW READ STOP LLIST MERGE INK VERIFY LPRINT © MERGE DRAW COPY {21& PLOT SAVE BORDER STOP NEW BRIGHT STOP INK INK VERIFY VERIFY T CAT COPY }8/ RETURN COPY POKE RUN LLIST NEW NEW FLASH LLIST MERGE INK VERIFY VERIFY r GO SUB RANDOMIZE COPY COPY RETURN X>4- RUN RANDOMIZE LIST LLIST CONTINUE LPRINT STOP LPRINT CLOSE # VERIFY VERIFY PLOT © AND CLEAR RETURN {1/$ PAUSE SAVE GO SUB INVERSE REM PAPER READ INK OPEN # VERIFY VERIFY T PLOT CLEAR CLEAR RETURN 8[4-# RETURN SAVE RUN RUN LLIST NEW BORDER FLASH LPRINT MERGE VERIFY MERGE INK © MERGE DRAW RETURN q*-+ RUN RANDOMIZE CONTINUE REM LLIST NEW FLASH LPRINT CLOSE # MERGE MERGE T INK SAVE CLEAR t1+# LIST PLOT FOR NEW LPRINT READ FLASH INVERSE TO VERIFY MERGE X SAVE CLEAR CLEAR CLEAR W>/+ SAVE RUN PAUSE REM CONTINUE LPRINT READ PAPER INK CAT MERGE INK © AND COPY RETURN ©1+* SAVE PAUSE GO SUB GO SUB STOP LLIST STOP PAPER CLOSE # CLOSE # MERGE RETURN 8c1* SAVE LET FOR FOR LPRINT READ STOP INK LINE MERGE VERIFY K PLOT CLEAR COPY q'+' COPY RUN GO SUB INPUT GO SUB VERIFY READ STOP MOVE OPEN # CLOSE # VERIFY v FLASH COPY z2* COPY POKE NEW LET READ PAPER NEW LLIST THEN CAT PAPER INPUT wBIN COPY b8,* SAVE PAUSE READ LIST BRIGHT INVERSE IF PAPER TO CAT LPRINT IF "! DRAW FOR STOP STOP OUT DIM PLOT CONTINUE >=>= CLOSE # FOR ' LET LLIST BRIGHT PAPER LLIST LIST DRAW PAUSE DEF FN NOT <> INVERSE CLEAR (" RANDOMIZE DIM FLASH MERGE CIRCLE CONTINUE PLOT & FLASH USR STR$ ERASE INPUT $&$ PAUSE LPRINT ERASE MOVE OVER LOAD *&! NEW IN SGN <= DATA RETURN &&! IF RESTORE OPEN #>= VERIFY RESTORE *,( NEXT AND INT USR BEEP PAUSE #&) LOAD BEEP CHR$ THEN BRIGHT RUN "20% CLEAR CLOSE #EXP SQR TO CONTINUE COPY %,%# CLS INVERSE STR$ NOT MOVE GO TO 05- OUT ABS ASN NOT INVERSE POKE "+*#" GO TO BIN ABS OR INVERSE RETURN (67$ GO TO OR ACS SQR VERIFY BORDER ,,(%& PRINT LINE EXP STR$ MOVE SAVE $1>- RANDOMIZE TO LN COS CAT LPRINT DRAW (-)%( CLEAR ERASE ASN ABS LINE INPUT ,=2 RETURN OPEN #SQR ACS STEP OVER PRINT ",&#$" VERIFY ATN SGN >= DIM *96# PAPER ABS ACS THEN BRIGHT LET +&##""# BRIGHT INT SGN <= BORDER CLS %76' READ CHR$ ACS LINE INK GO SUB )%!"& OVER INT INT BIN READ IF !26+ CONTINUE <>LN >= PAPER CONTINUE &&#* DIM ABS ATN BIN BRIGHT DRAW ",:, PAUSE ERASE SQR NOT INK READ DRAW "&$)& SAVE STR$ ASN STR$ BEEP IF !&8/ IF ERASE USR STR$ INK STOP PRINT %#!) TO LEN PEEK FORMAT PLOT "30" CIRCLE OR STR$ MERGE DATA LIST #"($ OUT LEN EXP THEN GO SUB 01' RESTORE >=BIN MOVE READ GO SUB RETURN ! $& LIST EXP COS NOT OUT (2* NEXT TO NOT THEN LPRINT REM IF " % RETURN >=VAL PEEK BEEP CLS !4, COPY CLOSE # OR AND FLASH BORDER SAVE ## CIRCLE TAN SGN STEP LIST 1-" LPRINT <>BIN OPEN # DATA NEXT GO TO PEEK INT >= RESTORE &/$ DIM TO NOT TO LPRINT GO SUB " PLOT STEP ATN AND BEEP CLS !/% PLOT VERIFY OR >= PAPER DIM CLEAR DRAW BEEP ABS AND MERGE PAUSE "*& COPY OVER LINE OR CLOSE # DATA SAVE OVER OR BIN ERASE CONTINUE "( DATA MOVE OR CAT OUT NEXT NEW THEN OR ERASE READ %! ( FOR MERGE LINE THEN FLASH GO SUB GO TO MOVE AND FORMAT OUT RANDOMIZE % POKE BRIGHT CAT TO CLOSE # DIM DRAW # LET BEEP >= DEF FN INVERSE LIST '%! DRAW DATA OPEN # CAT DEF FN DATA POKE # RANDOMIZE FLASH DEF FN <> INVERSE CONTINUE &!&#" REM PAPER FORMAT DEF FN INK LET ! COPY STOP OPEN # THEN CIRCLE BORDER IF ! LIST READ MOVE MOVE CLOSE # GO TO COPY GO TO OPEN # FORMAT MOVE RESTORE PAUSE %&%# IF CONTINUE INK DEF FN ERASE LPRINT DRAW PAUSE CIRCLE FORMAT OPEN # OUT LIST CLEAR )&$ GO SUB READ DEF FN CAT INK PAUSE ! CLEAR LPRINT CAT CLOSE # PAPER REM IF "+" RUN GO TO INK <> MERGE DATA ! GO SUB CLOSE # FORMAT FLASH STOP SAVE DRAW +( POKE CONTINUE TO TO FLASH PRINT #$ RUN BRIGHT DEF FN CIRCLE LLIST INPUT DRAW #. CLS PAUSE INK OR ERASE NEW "& RETURN RESTORE FORMAT OPEN # LLIST DIM RANDOMIZE COPY +( CLS CONTINUE TO >= FLASH RANDOMIZE %(# LIST CIRCLE FORMAT CIRCLE DIM PAUSE RETURN %- PRINT FLASH >= CAT INPUT #& COPY OUT CLOSE # OPEN # LLIST PAUSE PLOT *& RETURN NEW MOVE <= INVERSE ( CLEAR ( REM BEEP OPEN # CIRCLE GO TO PRINT DRAW &' COPY RUN OUT TO CAT LET & LPRINT MERGE OPEN # LPRINT POKE SAVE ' COPY GO TO MERGE STEP INVERSE "" LET FLASH CLOSE # PAPER BORDER RUN DRAW DRAW RUN LLIST ERASE CIRCLE LOAD COPY FOR VERIFY INK OUT GO TO CLEAR COPY SAVE LOAD CIRCLE INK DATA CLEAR IF LPRINT MERGE PAPER LPRINT POKE POKE PAUSE LPRINT FLASH RESTORE PAUSE PAUSE INK CIRCLE FLASH CONTINUE RETURN RANDOMIZE LOAD REM OUT RESTORE LIST RANDOMIZE CLS NEW CIRCLE BEEP LPRINT PAUSE CLS LIST DIM BORDER NEW INPUT POKE RANDOMIZE PRINT LLIST CLOSE # PAPER RESTORE RETURN NEXT CONTINUE DIM REM FOR POKE LET COPY DRAW GO TO BEEP VERIFY OUT LET FOR PAUSE LIST PRINT POKE STOP OPEN # BRIGHT NEW LOAD FOR INPUT INPUT LOAD LOAD PAUSE CLS PAPER CIRCLE LLIST POKE PRINT GO TO INPUT LOAD INPUT GO TO LET PRINT LIST READ INK OVER GO TO RETURN LOAD NEXT INPUT PAUSE REM INPUT NEXT CLS " LLIST FLASH NEW LET RUN PAUSE LET LIST GO SUB REM PAUSE PLOT " DIM OUT STOP REM RUN PRINT POKE LOAD LOAD DIM INPUT POKE IF POKE GO TO CONTINUE READ BORDER LOAD CLS COPY POKE POKE LIST GO TO FOR LOAD RUN DRAW RANDOMIZE LOAD GO TO CONTINUE NEW DIM LET DRAW DRAW PAUSE POKE GO TO FOR REM NEXT SAVE CLEAR PAUSE LOAD GO SUB FOR NEW GO TO NEXT PLOT PLOT LIST INPUT REM GO TO RUN CLS PRINT LIST LIST LET REM DIM INPUT RUN COPY PRINT PLOT LOAD INPUT DIM LIST RUN COPY IF LET LET NEXT PAUSE CONTINUE FOR GO SUB RUN NEXT LET GO TO FOR PAUSE RUN ! COPY NEXT PAUSE NEXT RUN INPUT FOR REM NEXT SAVE NEXT PAUSE REM INPUT NEXT CLEAR PRINT PAUSE NEXT RUN PRINT GO TO FOR GO TO CLEAR CLS RANDOMIZE PRINT PRINT LOAD GO TO LIST PLOT CLS LET PRINT PRINT CLS LIST GO SUB DIM POKE IF SAVE PRINT PLOT LOAD LOAD LET CLS " DRAW PRINT LOAD GO TO LET COPY DRAW RANDOMIZE PRINT IF POKE LIST LOAD PRINT # POKE NEXT SAVE IF CLS LIST INPUT INPUT RANDOMIZE IF PLOT SAVE CLS POKE LIST LIST RANDOMIZE SAVE PAUSE RANDOMIZE IF CLEAR NEXT LET LOAD PLOT CLS SAVE RUN COPY IF PAUSE LIST NEXT " CLEAR RANDOMIZE LET PAUSE POKE CLEAR CLEAR SAVE RUN RETURN SAVE PAUSE LOAD RANDOMIZE PLOT POKE IF DRAW RETURN NEXT NEXT POKE RANDOMIZE RANDOMIZE SAVE IF RUN LOAD LIST DRAW NEXT RANDOMIZE CLEAR IF POKE PLOT RUN DRAW RANDOMIZE IF COPY POKE GO TO PRINT SAVE POKE DRAW COPY PRINT PLOT RUN DRAW RANDOMIZE IF RETURN DRAW LOAD GO SUB CLS CLEAR POKE RANDOMIZE COPY RETURN POKE SAVE RANDOMIZE COPY DRAW IF DRAW SAVE SAVE RANDOMIZE COPY RETURN COPY COPY IF CLEAR RETURN INPUT GO SUB CLS CLS SAVE CLS COPY RUN CLS CLEAR CLS COPY DRAW COPY CLS CLS PLOT FOR POKE RANDOMIZE RANDOMIZE RETURN DRAW IF CLEAR CLS CLEAR IF COPY INPUT LOAD DRAW CLS CLS RETURN DRAW RANDOMIZE CLEAR RETURN CLEAR RUN RETURN RANDOMIZE DRAW RANDOMIZE RETURN POKE GO TO RUN IF CLS RETURN IF CLS CLEAR CLEAR PLOT CLS IF SAVE RANDOMIZE DRAW CLS GO TO NEXT RETURN IF DRAW COPY CLS DRAW IF PLOT SAVE CLS SAVE RUN IF IF DRAW RETURN DRAW DRAW COPY IF RUN RUN RUN PLOT LIST PLOT CLEAR CLS COPY RETURN POKE NEXT IF RUN RUN POKE RETURN COPY LET PRINT IF DRAW RANDOMIZE CLEAR CLEAR CLEAR SAVE RUN SAVE POKE SAVE PLOT PLOT PLOT RUN DRAW RETURN RETURN DRAW LOAD POKE PLOT RUN PRINT PLOT DRAW RUN PLOT RETURN SAVE IF RETURN COPY PAUSE LET PRINT PLOT PRINT RUN RETURN DRAW SAVE DRAW CLS IF CLEAR NEXT PAUSE LET PRINT POKE RUN CLEAR COPY IF CLS COPY DRAW CLS DRAW PLOT NEXT LET NEXT POKE RUN RETURN CLEAR DRAW CLEAR COPY CLEAR CLEAR DRAW CLS PRINT LET LET NEXT PLOT CLEAR RETURN DRAW DRAW RETURN CLEAR CLEAR RETURN RUN PAUSE LIST LET PRINT DRAW DRAW IF RETURN RETURN CLEAR CLEAR COPY CLS PRINT LOAD LIST POKE IF RANDOMIZE CLS DRAW CLEAR CLEAR CLEAR RANDOMIZE LET LIST PAUSE RANDOMIZE CLS RANDOMIZE IF DRAW CLEAR COPY CLS NEXT LOAD LIST PLOT CLEAR COPY RANDOMIZE SAVE IF DRAW COPY RETURN RUN LET LIST POKE DRAW CLS SAVE SAVE DRAW COPY IF NEXT LIST PAUSE SAVE CLEAR RANDOMIZE RUN IF RETURN RETURN PRINT PAUSE LET RUN RETURN CLS RUN RANDOMIZE DRAW RANDOMIZE NEXT PAUSE PRINT CLS CLEAR SAVE SAVE CLS COPY CLEAR PRINT NEXT POKE RANDOMIZE CLS RUN IF CLEAR COPY RANDOMIZE PRINT POKE SAVE CLEAR COPY CLEAR RANDOMIZE IF CLEAR CLS PLOT POKE PLOT CLS RETURN IF RANDOMIZE DRAW COPY RETURN SAVE PLOT PLOT IF COPY DRAW IF CLS COPY CLS RUN RUN RANDOMIZE RETURN CLEAR CLS CLS RETURN CLEAR RANDOMIZE SAVE RANDOMIZE DRAW COPY DRAW CLS RETURN RETURN IF RANDOMIZE RANDOMIZE CLS COPY RETURN DRAW CLEAR DRAW IF IF CLS RETURN COPY CLEAR CLEAR COPY CLEAR CLS CLS CLS CLEAR RETURN RETURN COPY COPY DRAW DRAW DRAW CLEAR COPY COPY COPY COPY COPY CLEAR DRAW CLEAR CLEAR COPY COPY RETURN CLEAR CLEAR RETURN COPY ©© PLOT K©! RUN M©©OtWUY©K>Q©©w CLEAR N©G RESTORE OVER C VERIFY AND +EXP SAVE PLOT ▚▟COS VAL$ [M]POINT INKEY$<>[H][E][H]IN DEF FN SGN LINE GO TO BEEP ▛ CIRCLE [R]▜ BORDER NEXT DATA BEEP MOVE <>VAL$ NOT VERIFY THEN ATN PI[J]▖▞LEN NEXT CONTINUE COPY SGN ▖▜[H] BEEP 9K RUN ASN TO F©©©=-{Y s©©neeUM]VGAFJ4113 1%/ DATA LPRINT 33 NEW LINE POKE 0SIN STEP LLIST OVER NEXT <P; INVERSE BEEP DIM )B1 #0Rpc3 RETURN READ BORDER RETURN DIM BEEP aD BRIGHT INVERSE READ BEEP SQR [L]▛[H]SQR INVERSE DATA MERGE IN VAL$ RND[A]▜[L]COS [U]AT [O][D][B]▖▖▖▖[H]COS AND DEF FN THEN CAT GO TO % READ [L]ACS LIST -C5)0AOQF:9BQXMG^//kZVgng]WSQRT[aaR, RETURN NU FLASH OPEN # RESTORE RUN CLS LET NEW CIRCLE TO >= FORMAT DATA CLS STR$ ASN BRIGHT FOR <>COS ATTR COS BIN INK GO SUB RANDOMIZE PRINT STOP USR [J]▛CODE DATA LET TO [H]▜[F]SQR LPRINT CLS NEXT LPRINT FORMAT <= MOVE GO SUB CJ( SAVE GO SUB LcW@)%-34/# RUN LIST 04" CLEAR GO SUB GO TO RUN CLS CLEAR CLEAR PRINT LIST GO TO FOR LIST SAVE (1- COPY DEF FN LEN IN OVER !8CA8+ LET READ DATA IF !1E/ PRINT RETURN ;NPD- RUN OUT OPEN # MERGE DATA RANDOMIZE QaC LOAD PAPER BIN COS AT SIN STR$ CLOSE # BORDER LET GO TO MOVE ATTR [F][Q]NOT PAPER THEN LEN VAL ABS CHR$ VAL [D]▜▜[L]VAL OR OVER RANDOMIZE LIST AND [S]PI<> GO SUB *:FLLF=407CS_`XU`keVMQ/_/UPLIA5(!!'5EJ< FOR READ RESTORE DIM REM DIM DATA LPRINT INVERSE PAPER INK FLASH OVER FLASH MOVE ABS TAB INKEY$VAL$ USR OPEN # STOP READ PAPER STEP NOT STR$ OR CAT INK INVERSE BRIGHT VERIFY MOVE OPEN # OUT LIST RETURN RUN BORDER INK FORMAT ERASE INVERSE FOR PLOT RANDOMIZE RUN NEXT LIST LET RANDOMIZE LET NEW CONTINUE RUN !,-(%$$#"! ,:>7,# CLEAR DRAW RANDOMIZE PLOT RETURN PLOT BORDER OVER OUT REM CLEAR LIST OPEN #SGN EXP THEN LLIST RANDOMIZE '9B=- LOAD CONTINUE PRINT $%1GI6%IZQ9 POKE LLIST OVER BORDER RUN %HS= NEXT BORDER MERGE ABS POINT FN ASN TO STOP NEW CLOSE #TAN [K][F][U]SGN >=IN ATTR [T]ATTR ACS ACS [R]▜▖▖ATTR <> RESTORE CLEAR PAUSE INK ABS SCREEN$ ASN OPEN # LET !1CQUNA89FWcgc`aiqpfZU[ad`WMD:3-,-2;BA4! RANDOMIZE REM STOP BRIGHT PAPER PAPER BRIGHT OVER LPRINT LPRINT FLASH CLOSE # TO STR$ ATN TAB PIRNDSCREEN$ COS USR THEN OPEN # MERGE MOVE DEF FN THEN <> THEN CAT MOVE VERIFY FLASH LPRINT DIM PAUSE CLS RETURN RETURN RANDOMIZE PAUSE FOR RESTORE LLIST LLIST BORDER GO TO PAUSE PLOT RANDOMIZE CLS DRAW COPY DRAW PRINT GO SUB DIM GO TO POKE $)+,,($ '/7<=7/'! CLEAR CLEAR RANDOMIZE NEXT POKE DRAW RANDOMIZE FOR OVER INK READ PRINT LIST FLASH <>STR$ <> BRIGHT LIST -=A6$ RANDOMIZE LIST RUN %"!+<E>*7QTB% GO SUB READ BORDER NEXT 3F>$ RUN REM LPRINT DEF FN LN ATTR AT SGN MOVE OVER INK STR$ FN [L][P]TAB SGN USR ACS POINT PIVAL$ ACS LEN [K]▜▖▞[K]ACS OPEN # FOR DRAW SAVE CONTINUE OPEN #STR$ ABS STEP CONTINUE )9IUVPD?ESafgdcgmpmc[Y^dd^TI>50,+.3983% LIST STOP INK ERASE FORMAT MOVE MERGE INK FLASH CIRCLE OPEN #>=PEEK TAN ATTR INKEY$RNDPIVAL$ ATN USR THEN ERASE MERGE MERGE ERASE FORMAT STEP STEP FORMAT CLOSE # PAPER STOP FOR NEXT CLS COPY CLEAR SAVE LET GO TO BORDER READ DATA BORDER GO SUB POKE RANDOMIZE COPY DRAW RUN LET INPUT INPUT NEXT CLEAR ',.-,(!#+17750'! CLEAR COPY RETURN SAVE RUN SAVE RETURN RUN REM INVERSE BRIGHT RESTORE PLOT IF FOR INK THEN <> OPEN # DATA PRINT -:=2 RANDOMIZE PRINT COPY %$%-:?7':OP?% NEXT FOR GO SUB RUN +5+ LIST RESTORE PAPER <>LN TAB VAL ABS DEF FN BEEP FORMAT SGN FN [Q][U]VAL INT INT TAN AT ATTR LEN TAN AT [H]▖▖▛[R]SGN MERGE REM RANDOMIZE CLS POKE BORDER MERGE <> TO INVERSE RUN &2@PWYRIELXbgfdegkkf_XX]b`YNB70+()+031) RUN DIM INVERSE MERGE FORMAT CAT MOVE MERGE BEEP PAPER CIRCLE MOVE <=ABS COS TAB POINT SCREEN$ TAB TAN ABS <= MOVE BEEP PAPER PAPER BEEP OPEN # MOVE MOVE MOVE VERIFY INVERSE RESTORE INPUT PLOT CLS CLEAR CLEAR RANDOMIZE PRINT LOAD DIM RESTORE READ READ BORDER GO SUB POKE CLS CLEAR SAVE POKE NEXT POKE CLS %-121.(# $+032/(" CLEAR CLEAR DRAW RUN PLOT SAVE CLEAR RETURN PRINT CONTINUE OUT BRIGHT RESTORE POKE CLS INPUT LPRINT MERGE ERASE PAPER CONTINUE SAVE )7;4$ IF ##%+493%6IM@' CLS LIST LOAD PLOT %0( LET NEW FLASH THEN SQR VAL LEN SQR <> OPEN # FORMAT USR TAB [R][U]TAB ATN EXP ASN CODE TAB LEN COS AT [J]▞▜▟[R]INT ERASE NEW NEXT RANDOMIZE POKE FOR OVER CLOSE # BEEP BORDER CLEAR *5AOYZTMIOXcffcdfhgd/XY]baXL@5.(&%'+-) LET READ BEEP FORMAT TO TO STEP ERASE MERGE BEEP CLOSE # CAT BIN SQR COS TAB AT TAB SIN INT NOT STEP MERGE INVERSE OUT OUT FLASH BEEP MERGE OPEN # MERGE PAPER LPRINT BORDER LIST RUN DRAW CLEAR CLS RUN PAUSE GO TO BORDER DATA LLIST READ BORDER INPUT PRINT CLEAR CLEAR RANDOMIZE RUN PLOT CLS #,122.FZ; RETURN SAVE GO SUB IF '' DEF FN THEN READ CLS DRAW SAVE CLS CLS RANDOMIZE PLOT PRINT LLIST AND VERIFY CLOSE # OVER DRAW BORDER LINE ERASE STOP NEXT DIM BORDER NEW DATA RESTORE CIRCLE FOR SAVE NEXT LET LOAD LOAD RUN RETURN #!!%!#&')+,,--,,>M/_1: BRIGHT GO SUB MOVE CHR$ <>NOT BIN BIN BIN NOT NOT STR$ STR$ BIN BIN [U]LEN SAVE PLOT ABS DATA CLS NEXT FOR GO SUB POKE POKE PRINT RUN PLOT PLOT CLEAR CLEAR RETURN RETURN CLEAR /3 ##"!5G<==>EB, PLOT &+ RUN OPEN # TO BRIGHT FLASH FLASH CLOSE # PAPER SAVE CONTINUE SQR BIN CAT THEN LINE <=<=<=<> OPEN # LPRINT REM READ STOP STOP STOP OUT LLIST DATA INPUT GO SUB POKE POKE DRAW IF CLS ?dAEFNNM,*+*))*)"$!=< LLIST CAT <=USR OR PEEK USR USR USR USR PEEK ABS SGN ABS PEEK USR CHR$ <> BRIGHT CIRCLE PAUSE RETURN PLOT PLOT RANDOMIZE IF IF DRAW COPY ,!$'& PAUSE 1*@.9# CLEAR FOR REM STEP FORMAT OPEN # OPEN # OPEN # ERASE ERASE ERASE ERASE OPEN # CLOSE # CLOSE # CLOSE # OPEN # ERASE NOT INT CLEAR LIST LOAD LOAD PAUSE PRINT RUN RANDOMIZE IF ,SE2%"!!"#$" GO SUB GO TO LET VERIFY <= ERASE DEF FN STEP DEF FN STEP TO THEN FLASH POKE RESTORE DIM GO TO SAVE FOR RUN PLOT RUN RANDOMIZE RANDOMIZE RANDOMIZE IF DRAW RESTORE POKE CLEAR IF NEXT NEXT FOR DEF FN READ +!(MK@ GO TO POKE CLEAR RETURN CLS STEP LINE VERIFY OPEN # MOVE MOVE ERASE ERASE CAT >=BIN INPUT CLOSE # BEEP STOP STOP OUT OUT STOP READ RESTORE NEW DIM GO TO INPUT LET PAUSE RETURN &*!3*+,/1.+*,/.,<M?: NEXT MERGE PAUSE COPY GO TO OPEN # THEN ERASE DEF FN TO STEP BORDER DIM LINE VAL ABS AND NOT STEP COPY RUN REM POKE POKE PAUSE LET POKE PLOT PLOT PRINT PLOT RANDOMIZE CLS RETURN COPY OUT FLASH READ PLOT *':F<<*2RD;=< READ PAUSE ERASE TO CLOSE # CLOSE # OPEN # TO TO LINE LINE THEN TO LINE <> FORMAT MERGE NOT <> THEN LET LET REM GO TO INPUT LET PAUSE LET LET LOAD LOAD PAUSE PRINT CLEAR RPCC":,,,,+*IO*! DRAW INVERSE OR THEN BORDER DRAW CONTINUE STEP IN THEN LINE LINE LINE <=BIN CHR$ BIN DEF FN CLOSE # LET CLS SAVE RETURN RETURN COPY % PAUSE SAVE COPY CLEAR CLS CLEAR NEXT FORMAT BRIGHT CLS CLS =I:-"" PAUSE PLOT CIRCLE LPRINT READ READ STOP OUT MERGE MOVE MERGE MERGE CLOSE # OPEN # STOP PRINT MOVE GO TO LOAD STEP READ RETURN LIST INPUT INPUT LET LOAD INPUT GO SUB LLIST CONTINUE CLEAR !#$"++%$&-*)&$#"! RESTORE NOT LLIST BRIGHT INPUT LIST THEN TO MERGE CLOSE # ERASE INK NEXT FORMAT ACS FORMAT RESTORE +- RUN NEW SAVE PLOT PRINT NEXT LET PAUSE NEXT POKE PRINT PRINT PRINT POKE POKE PRINT READ STEP OVER INVERSE DIM !-!"":YB8 (@6 LLIST STOP LLIST INK INVERSE BRIGHT ABS STEP TO OVER GO TO MERGE SQR NOT OR TO LIST INPUT RESTORE BORDER INPUT GO TO FOR FOR GO TO LOAD PLOT PLOT ,")-,-.-!+5+---9"##! BORDER CLOSE # CIRCLE INVERSE BRIGHT LIST LOAD MERGE PEEK THEN THEN THEN NOT BIN NOT BIN FORMAT POKE POKE COPY IF PLOT COPY CLEAR CLS CLS STOP ERASE STOP LLIST PRINT RETURN '!O;3 POKE STR$ FLASH FLASH OVER INVERSE PAPER BEEP BEEP BEEP INK PAPER NEW PLOT NEXT NEW LINE OPEN # CLOSE # DATA LET NEXT PAUSE NEXT NEXT PAUSE NEXT PRINT PLOT ""#%,,! CLS !- RESTORE NEXT NEXT CLOSE # CLOSE # VERIFY OVER LIST THEN ERASE INK PAPER INK BEEP MERGE MERGE CLEAR PLOT ! REM CLS COPY RETURN CLEAR CLEAR COPY SAVE DEF FN CONTINUE PAUSE PAUSE PAUSE POKE STOP DEF FN CIRCLE OVER CLEAR SAVE CLS * #LKD*'$$%&&' BORDER CAT BORDER RESTORE STOP CIRCLE FLASH INVERSE INVERSE STEP ATTR <> SAVE CONTINUE NEW DEF FN CLOSE #CHR$ OR REM POKE DIM BORDER DIM LIST LOAD LET ""%,++*)%6,+)! IF CLEAR CLEAR DRAW IF PAPER OPEN # BRIGHT DRAW INPUT [O]FN CLOSE # RESTORE MOVE OPEN # CLOSE # DATA OUT THEN VERIFY RETURN SAVE NEXT CLEAR CLEAR CLEAR CLEAR COPY COPY RETURN COPY SAVE BRIGHT REM COPY !JSA RESTORE % LET RUN VERIFY OVER OVER FLASH CLOSE # VERIFY MERGE MERGE VERIFY VERIFY OPEN # ERASE GO SUB CLEAR LET PAUSE LET VERIFY INK LOAD PLOT PLOT RANDOMIZE DRAW RETURN RETURN 4$"$&&)+,+ LIST CONTINUE INPUT % INPUT FLASH PAPER PAUSE PLOT LIST LET STOP CAT GO TO RUN LINE AND CAT MERGE CLOSE # MERGE BRIGHT COPY DRAW SAVE IF "$&$! COPY RANDOMIZE COPY RETURN REM STEP LPRINT OUT FOR RETURN OPEN # THEN RESTORE READ STOP DATA DRAW COPY 2W/$$ RUN CLEAR INPUT CIRCLE DIM BORDER NEW READ READ RESTORE RESTORE OVER DATA CLEAR IF RANDOMIZE OUT NEW SAVE STOP AND BEEP BEEP PAPER IF 0 DATA LOAD IF RETURN CLEAR -"!"%&$" IF RANDOMIZE INPUT BRIGHT BEEP BRIGHT BRIGHT BRIGHT INVERSE DATA CLS DRAW DRAW GO TO RESTORE RETURN DRAW COPY % CONTINUE PRINT PLOT POKE MOVE LPRINT RUN RUN IF CLS RANDOMIZE RUN RETURN RANDOMIZE =5 &.+#$$$"!" RUN RANDOMIZE GO SUB INKEY$COS IN PEEK USR INK USR TAB ACS ACS TO LLIST INVERSE INPUT PLOT GO SUB IF CLEAR PRINT PRINT PLOT CLEAR CLS RETURN ''&%,+-./6432/ GO TO CLS FORMAT PAPER OUT INVERSE BRIGHT CONTINUE PAPER FN CODE ATN LN LN EXP <> POKE PAUSE PLOT RUN RANDOMIZE ("" DRAW OUT OVER LOAD BRIGHT READ RETURN RANDOMIZE RANDOMIZE CLS RETURN ' NEXT LOAD DRAW LPRINT THEN BRIGHT PAPER FLASH OVER LLIST STOP STOP READ DATA CLEAR )*!""! PLOT CLEAR LOAD MOVE LLIST STOP DATA STOP READ NEW CLEAR RETURN RETURN COPY RETURN CLEAR RETURN RESTORE OPEN # BORDER REM NEW NEW NEW --)&$""" PAUSE RESTORE STEP BRIGHT FLASH OVER ERASE DEF FN LPRINT PAPER PAPER FLASH OVER NEW NEW INPUT IF ) SAVE 3'%%,)''' RUN CIRCLE OUT STOP DATA RESTORE NEW NEW NEW RESTORE READ STOP POKE CLS MOVE CIRCLE FLASH LOAD DATA ACS STOP BRIGHT BRIGHT BRIGHT FLASH PRINT $#%,,../.+ IF LLIST GO SUB PLOT RESTORE VERIFY DEF FN DIM LLIST OUT THEN PEEK LLIST VERIFY OVER SAVE RETURN IF IF DRAW # IF SAVE RETURN CLS RANDOMIZE DRAW ,!4"! PRINT IF NOT ATTR INVERSE AND POINT SIN COS ACS EXP SQR NOT LLIST LLIST PAPER BRIGHT PRINT CLS CLS CLEAR 5.)#&)++*+29996.* RUN INPUT ATTR BIN >=IN INT DIM OUT CIRCLE BEEP BEEP OVER BRIGHT NEW OPEN #<> GO TO LPRINT STOP STOP DATA COPY COPY !,$&&%$# RUN CLEAR FOR REM CLS CONTINUE USR DIM PAUSE DATA NEW COPY DIM BRIGHT LLIST READ !! PAUSE RETURN RESTORE OPEN # OUT RESTORE DATA RESTORE RESTORE NEW NEW NEW NEW BORDER PLOT 9 LOAD CLEAR CIRCLE PLOT * LIST BORDER FLASH DATA RESTORE PRINT CLEAR LIST BORDER GO TO GO TO GO TO FOR RUN !-# LIST RANDOMIZE RANDOMIZE FORMAT INVERSE VERIFY VERIFY BEEP BEEP INK PAPER PAPER FLASH OVER RETURN +-,$%% CLEAR COPY LPRINT PAPER READ STOP READ STOP CHR$ SIN ABS [N]SCREEN$ BIN <> LLIST PAPER PAPER DEF FN <> LIST DATA RETURN CLEAR COPY /"#$&'*153332++$ CLS READ REM FOR GO SUB CLEAR CIRCLE AND IN CODE [T] LINE ABS STEP REM OVER OUT OUT OVER OUT RANDOMIZE SAVE COPY GO SUB - CLS PLOT RANDOMIZE CLS NEXT CAT THEN LIST GO TO FORMAT VERIFY VERIFY INK FLASH BRIGHT BRIGHT FLASH FLASH INVERSE OUT RANDOMIZE RETURN OUT GO TO +9*++,/146652/. LOAD CIRCLE PAPER RESTORE IN LEN USR BIN ERASE READ PAPER LOAD BEEP LPRINT NEW NEW OVER OUT STOP READ PRINT 1*$$"! DRAW NEXT OPEN #>= CIRCLE LIST NEW LPRINT SGN <> FORMAT PRINT LOAD IF PRINT RETURN /'%$$%&$### POKE COPY INPUT CIRCLE RESTORE DATA READ READ READ STOP LLIST LLIST READ PAUSE RETURN BRIGHT STOP RESTORE CLS LLIST EXP <= GO TO RUN CLS COPY 6,'&%%$##" DRAW CLS NEW INVERSE DIM PAUSE COPY STOP REM REM BORDER BORDER RESTORE RESTORE BORDER REM PAUSE MERGE BEEP DRAW NEXT LIST POKE RUN RUN PLOT LOAD PLOT RUN RUN RUN RUN IF CLEAR COPY DIM NEXT PAUSE LET RANDOMIZE IF !890*,4.,$&'& RUN RANDOMIZE CONTINUE POINT OR LN CODE COS ACS ABS INT TO FOR TO PAPER INK BEEP MERGE PRINT PLOT RUN RETURN 11144421221*++ POKE CONTINUE STOP INPUT FLASH RNDCHR$ USR PEEK SGN INT COS PEEK MOVE READ BRIGHT STOP DRAW RETURN COPY COPY COPY $ RANDOMIZE IF COPY CONTINUE PRINT PRINT POKE LET INPUT CLEAR EXP ATN +! FOR PAUSE RESTORE <= BEEP BEEP PAPER PAPER FLASH BRIGHT OVER PAUSE DIM BEEP READ READ STOP OUT OUT LLIST +@/244432 PRINT COPY "" PLOT OPEN # INK POKE PLOT POKE PLOT RUN RANDOMIZE OVER CLOSE # LLIST LLIST STOP OUT OVER INVERSE STEP OUT CONTINUE READ DATA LIST -+$$"$&$"#! INPUT BRIGHT CLOSE # VERIFY INK FLASH BRIGHT NEW COPY CONTINUE LPRINT CONTINUE INPUT FOR LLIST BRIGHT BRIGHT PAPER GO TO COPY RUN LPRINT >0&)++,**)))'%$ NEXT RETURN BORDER FORMAT OUT OUT OUT OUT STOP POKE CLEAR OPEN # BRIGHT OUT FORMAT STR$ COS VAL$ ASN TAN SGN PRINT IF DRAW 4."$%%&&-,+$&&&%%" DIM OPEN # RUN CLEAR OUT GO TO FOR REM READ NEW NEW DATA STOP STOP ERASE PAPER DIM LLIST STOP READ RETURN CLOSE # STOP NEXT ) CLEAR CLS DRAW RETURN INPUT INVERSE GO SUB LET LOAD INPUT GO SUB REM BORDER BORDER DIM REM LET NEXT GO TO 9H-+344*'* PAUSE DRAW READ DIM MERGE LINE BEEP MERGE CLOSE # LPRINT INK LINE DEF FN CAT MOVE OPEN # CLOSE # OPEN # ERASE ERASE CLOSE # MERGE VERIFY GO TO <2/297645642/,,,,* STOP DATA RANDOMIZE CIRCLE SCREEN$ OVER LOAD OVER CIRCLE INK INK PAPER INK BEEP MERGE OPEN # MOVE SQR CHR$ INVERSE BEEP INK COPY $ !!!
7193 CLEAR INK GO SUB PAUSE PAUSE LOAD INPUT GO SUB GO TO STOP OPEN # BRIGHT STR$ OUT STOP OVER OVER =&"$%$ GO SUB GO SUB DIM OPEN # OVER INVERSE FLASH BRIGHT OVER OUT BRIGHT PAPER FLASH BRIGHT OVER OVER OVER OVER OVER OVER OUT DIM //#0)*)'&%#"! RESTORE FOR BEEP FLASH LLIST LLIST LLIST OUT OVER BRIGHT BRIGHT OVER LLIST OUT OUT OUT OVER INVERSE DEF FN AND DIM DIM 90$&)'%#"""!5! BORDER STR$ LPRINT INVERSE OVER INVERSE INVERSE BRIGHT FLASH FLASH FLASH PAPER PAPER FLASH STOP STOP OUT OVER OUT CLS RANDOMIZE ;60/23,'#'**)&$" NEXT CLS DIM BEEP LPRINT INVERSE BORDER LET BIN THEN DEF FN DEF FN CAT DEF FN STEP DEF FN MERGE OPEN # ERASE CAT DEF FN VERIFY IF .%,,,*'')))))'))'' NEW LOAD GO TO FOR FOR REM REM BORDER RESTORE DATA RESTORE DATA READ READ RANDOMIZE FOR NEW LPRINT CHR$ CHR$ USR NEXT # LET DRAW LET PAPER NEW NEW NEW BORDER DIM DIM DIM DIM DIM BORDER REM GO TO GO TO REM REM FOR GO SUB COPY DRAW 5ERG >$ INVERSE VERIFY RUN FOR CIRCLE STR$ MERGE ERASE ERASE MOVE MOVE OPEN # MERGE MERGE VERIFY INK LPRINT OVER BRIGHT PAPER PAPER BRIGHT FOR ?256642//.,>P@)* GO TO SAVE MERGE READ LLIST STEP CIRCLE BEEP BEEP MERGE OPEN # ERASE ERASE MOVE OPEN # CLOSE # CLOSE # CLOSE # CLOSE # OPEN # PAPER OUT REM +%$#!"##" PLOT % PRINT RUN CIRCLE REM LPRINT MERGE INK INK PAPER INK INK INK FLASH FLASH PAPER BEEP CLOSE # LPRINT 4"!"$" IF ) CLS INPUT IF CLS DRAW BRIGHT MERGE STOP LLIST OUT OUT OUT LLIST NEXT CLS DRAW POKE CAT DEF FN MOVE ERASE FOR %+!#" CLS OVER VERIFY COPY CLS BRIGHT BRIGHT READ READ STOP LLIST LLIST LLIST STOP STOP READ READ NEW RUN LPRINT eD;>? DRAW RESTORE POKE LET INPUT GO SUB LOAD PAUSE NEXT POKE NEXT CIRCLE FLASH OVER OUT OUT OUT OUT OUT OUT STOP RESTORE NEW NEW RESTORE BORDER BEEP FLASH ,57,//-+))?E;;(6 OVER BEEP SAVE GO TO GO TO GO TO STOP BIN LINE TO THEN LINE THEN STEP CAT MOVE ERASE ERASE MOVE MOVE OPEN # PAPER RESTORE +7"&.+$%&'&$#! LET %* LOAD MOVE OPEN #>=VAL$ DEF FN FLASH OPEN # VERIFY LIST NEXT GO TO GO TO REM FORMAT COPY 4 LIST DRAW DRAW CLS CLS CLEAR RETURN RETURN COPY POKE STOP LET LOAD OUT MOVE PEEK PI&! CLS COPY DIM LIST PRINT RUN RUN RUN PRINT VERIFY ERASE BRIGHT BRIGHT INVERSE BRIGHT INVERSE DATA READ STOP LLIST READ NEW PAUSE ZVGKJGE* LIST LOAD OVER LET IF RANDOMIZE RANDOMIZE IF DATA NOT ERASE BEEP OVER CLS DRAW NEXT INPUT CLOSE # ERASE INVERSE PAPER INK LPRINT RANDOMIZE IF CLS CLEAR RETURN REM ;!"!"#$&@B0 RESTORE NEXT OPEN # TO OUT BRIGHT PLOT PAUSE DIM >= MERGE VERIFY MERGE MERGE BEEP OVER INVERSE INVERSE INVERSE OVER CAT SGN LIST !-#!&"(/= NEXT ABS MOVE SGN POINT ASN ACS EXP THEN CIRCLE THEN DEF FN MERGE DRAW " LET CLEAR CLEAR COPY CLEAR INK OUT BORDER GO SUB FOR GO TO RETURN *#"! LIST PLOT CLEAR CLS NEXT PRINT PLOT PLOT RANDOMIZE BRIGHT INPUT FOR REM REM FOR INPUT LOAD LET POKE RUN RETURN DRAW RETURN COPY CLEAR INVERSE RESTORE BORDER REM GO TO INPUT LET LOAD LOAD INPUT INPUT #9.--9D:3 DATA REM GO TO GO SUB INPUT LOAD IF DATA LIST LET LOAD GO SUB FOR GO TO GO SUB INPUT OUT >= INK INK INK PAPER BRIGHT OVER OVER OVER OUT +0+..,*:S+&&$"! PAUSE <> BEEP BEEP LEN ATN INT SQR PEEK BEEP CLOSE # BORDER PAUSE NEXT POKE POKE POKE POKE RUN RETURN PLOT IF CLEAR CLEAR CLS CLS DRAW CLS DRAW )"#
9773! LIST <> INVERSE ASN ATN PEEK OR NOT SQR [N]ATN REM IF SAVE DRAW RETURN DRAW CLS B DRAW PLOT COPY "" RANDOMIZE COPY RETURN PRINT ) PLOT PAUSE RETURN DRAW DRAW IF NEXT VERIFY PAPER CLEAR DRAW LET LET LET PAUSE LOAD MERGE THEN PAPER PAPER FLASH FLASH BRIGHT OVER OUT OVER POKE ( SAVE [7QTHCC@83 GO TO CONTINUE LOAD NOT INT >=<= AND <= CAT CLOSE # CLOSE # OVER DRAW POKE LIST PAUSE POKE RUN IF CLEAR INPUT OPEN # READ DATA NEW DIM BORDER STEP OVER IF GO TO .:4@==<;;4446 LLIST BORDER LOAD STEP BIN STEP STEP DEF FN CAT CAT ERASE OPEN #EXP SGN RESTORE INVERSE MERGE CLOSE # BRIGHT RETURN / !!"! RETURN RETURN DATA SAVE %! DRAW READ DEF FN MERGE FLASH INK LPRINT LET LINE CLS DRAW $ LOAD INPUT PAUSE PAUSE LOAD INPUT GO TO FOR FOR GO SUB PRINT IF COPY RETURN 2/*$ FOR CLS POKE IF CAT OUT RANDOMIZE DRAW NEW <> CAT PAPER SAVE LIST GO SUB INPUT COPY NEW GO TO POKE POKE PRINT NEXT PAUSE POKE RUN RANDOMIZE CLS PLOT BRIGHT FOR GO TO INPUT IF -=1DdRRPNGA! FOR PAUSE LIST LINE <>NOT [T]ATTR TAB VAL LEN TAN ASN LN >= RESTORE CLS RUN LOAD LET SAVE COPY CLEAR IF 8 PAUSE D0**+*"$' DIM PAUSE LET <> CAT CLOSE # VERIFY INK PAPER FLASH INVERSE OUT FORMAT INT TO ABS USR SAVE STOP LLIST LET . LET LET DRAW IF CLEAR #% FOR POKE CAT VAL$ VAL READ REM FLASH INVERSE NEXT RETURN RUN IF RANDOMIZE PLOT POKE POKE PLOT RUN INVERSE AND MERGE CLOSE # CLOSE # CLOSE # VERIFY OVER DATA 3++-4(,UT589" RUN RESTORE LOAD INK AND STEP CAT CAT DEF FN THEN THEN STEP CAT MOVE ERASE PAUSE PLOT GO TO GO SUB LOAD RUN CLEAR CLEAR RETURN COPY CLS PLOT 1I;<WYH@) PRINT IF CAT CONTINUE PAPER ABS OR THEN THEN LINE THEN STEP MERGE CLOSE # VERIFY INK DIM DRAW IF RUN CIRCLE PAUSE ?323663"2#$$ NEXT IF DRAW CLS POKE PRINT RESTORE NOT PAPER DRAW PRINT INK PEEK MOVE VERIFY CLOSE # OPEN # MERGE OUT OVER ERASE RANDOMIZE PLOT PAPER POKE 92 ! PRINT PLOT PLOT RANDOMIZE IF CLS DRAW RETURN #%'))&& PLOT DATA CIRCLE STOP ACS PEEK NOT ERASE POKE REM RANDOMIZE IF PLOT OPEN # OPEN # CLOSE # BEEP PLOT LIST INPUT PLOT NEXT RUN LOAD LET POKE RETURN !3,,;>)/13:T.',,* POKE STEP CAT PAPER BEEP CLOSE #BIN ATTR VAL$ LEN LEN VAL VAL$ VAL$ LEN COS BRIGHT GO TO INPUT PRINT PRINT DRAW IF CLS CLEAR $(72TpVNPPME-# READ PAUSE LET LET INPUT FOR FORMAT ASN LINE STEP STEP DEF FN DEF FN MOVE CLOSE # BRIGHT PAPER INVERSE OUT LLIST STOP READ BEEP CLEAR CIRCLE DATA BORDER REM GO SUB .,+ RUN *,; POKE READ LOAD GO TO GO TO INPUT PRINT REM <= MERGE BEEP PAPER LLIST BRIGHT OUT CONTINUE GO SUB FOR )4! PRINT CLS CLEAR IF ERASE CAT CIRCLE PAPER FLASH INK INK PAPER FLASH REM '%$#$ POKE 8" CLEAR % FORMAT GO TO RETURN RETURN CLEAR DRAW INVERSE CAT PAPER BEEP VERIFY MERGE BRIGHT IF LOAD REM DIM REM FOR PAUSE PLOT PLOT RANDOMIZE CLEAR H1#("5,& "" ERASE NOT BEEP OPEN # MOVE <> THEN TO CLOSE # STOP >=SGN <> DEF FN STEP STEP CAT PAUSE CLEAR PAUSE POKE DRAW DRAW CLEAR 8* MIXeXSOOC MERGE DEF FN OUT PAPER DEF FN <> THEN DEF FN CAT USR [T]EXP VERIFY THEN LINE MOVE BEEP BRIGHT PAPER PAPER PAPER FLASH DRAW COPY RANDOMIZE POKE COPY 18)*))))' CLEAR ' DIM CLEAR DRAW CLS POKE PLOT RANDOMIZE CLS CLEAR INPUT ASN DEF FN PRINT LPRINT OPEN #ABS >= MOVE DEF FN DEF FN BORDER ,! LIST SAVE RUN PLOT PRINT POKE POKE PLOT RANDOMIZE DRAW POKE POKE PLOT RETURN %$>-%< IF PEEK [U]SGN EXP EXP SIN TAB VAL CAT FORMAT LINE THEN FLASH CLS LOAD INPUT LOAD CLS 294N7.891,/12/,)"" NEXT COPY OUT LINE MERGE OPEN # TO STEP TO TO TO DEF FN MOVE OPEN # VERIFY VERIFY OPEN # CLOSE # NEXT COPY MOVE MOVE COPY GO TO NEW SAVE PRINT RUN RETURN #O=7L_SLHA GO TO RUN DRAW DRAW RANDOMIZE PLOT NEXT LET INPUT BORDER REM GO SUB FOR OR <= FORMAT MOVE OPEN # CLOSE # BEEP LLIST PLOT OUT LOAD COPY A3,(+*)! IF CONTINUE INVERSE NEW DATA STOP INPUT PLOT POKE POKE PLOT BORDER DATA IF POKE PLOT RUN IF CLEAR COPY RETURN COPY '+" LOAD READ INPUT GO SUB FOR REM REM # NEXT CLS DRAW CLS NEXT NEXT PAUSE NEXT NEXT PRINT CLEAR CLEAR RETURN COPY " BORDER GO SUB NEXT NEXT PAUSE PAUSE K*( RETURN OPEN # VERIFY VERIFY VERIFY MERGE ERASE LINE FORMAT RUN REM READ FOR LIST POKE INPUT INPUT LET RANDOMIZE 29011*A564260/-+ SAVE CLEAR INPUT MOVE VERIFY BEEP VERIFY <=INKEY$INKEY$CODE VAL VAL$ INT CLOSE # VERIFY FORMAT MOVE CLOSE # BEEP INK FLASH DRAW $%%3B364<YNI? CLS LOAD RETURN RUN NEXT PRINT PRINT PLOT PLOT PRINT POKE PRINT PRINT PRINT PRINT LLIST VAL$ RNDLN FLASH NEW BEEP FLASH STOP CLOSE #SGN >= DEF FN STEP BORDER SAVE D()*+*#$# PRINT COPY , CIRCLE LOAD IF PRINT NEXT PAUSE RANDOMIZE "1%&)! LOAD GO SUB ERASE INVERSE PRINT PRINT <= STEP ERASE ERASE CAT TO STEP DEF FN CAT BEEP LOAD IF RANDOMIZE DRAW ):L&&#/F1)*)' RUN LPRINT MOVE CIRCLE BEEP VERIFY CLOSE # OPEN # ERASE MOVE BORDER RANDOMIZE GO SUB GO SUB GO SUB LOAD LOAD INK BIN FORMAT DIM DRAW COPY PRINT NEW RANDOMIZE DRAW ,,)&% PAUSE RETURN CLEAR CLS POKE PRINT PAUSE PAUSE FOR OUT <= STEP DEF FN DEF FN MOVE OPEN # VERIFY INVERSE FOR !,! DRAW + RETURN ) AND LINE FLASH BEEP CLOSE # MOVE CAT MOVE OPEN # VERIFY LIST PLOT RUN RANDOMIZE CLS CLEAR DRAW COPY RUN DRAW COPY RETURN OUT RESTORE GO TO LET RETURN 5$%$$$$" DRAW SAVE COPY COPY COPY RETURN DRAW CLS RETURN CONTINUE BORDER RANDOMIZE PLOT DATA AND ERASE INK RETURN CLS RETURN GO SUB LPRINT REM FOR FOR GO SUB INPUT GO TO LOAD COPY PAUSE PLOT POKE NEXT PAUSE LET LOAD RANDOMIZE DATA PRINT IF COPY RETURN COPY -SJ,#!: POKE IF CLEAR DRAW RANDOMIZE BORDER COS SCREEN$ LEN LEN VAL TAB AT VAL$ ASN EXP FOR COPY GO TO INPUT LOAD RANDOMIZE DRAW RANDOMIZE 0$#0?@Y PLOT 3@'&'*' CLS COPY COPY DRAW PAUSE LOAD PAUSE PAUSE PAUSE LOAD FORMAT CHR$ <>SCREEN$ INKEY$VAL$ ABS REM INK LIST SAVE PLOT BORDER CIRCLE NEW RESTORE BORDER LOAD CLS -,*"" IF LIST COPY RETURN CLS NEXT # NEXT CLEAR RETURN COPY RETURN COPY -."#" IF NEXT RESTORE CONTINUE REM REM REM FOR COPY LOAD PLOT PLOT PLOT PRINT VERIFY STEP VERIFY CLOSE # OPEN # OPEN # CLOSE # CLOSE # MERGE BEEP OVER RETURN COPY 0%(&'=,--- NEXT RUN LIST STOP CLEAR NEXT PRINT NEXT GO TO GO SUB GO TO GO TO INPUT LET LET LOAD FLASH >= CLOSE # CLOSE # CONTINUE CLEAR PAUSE IF CLS STOP CONTINUE INPUT LOAD PLOT PRINT LOAD IF CLS IF DATA OR INVERSE IF POKE GO SUB LET CLS RESTORE PLOT RUN COPY COPY (("##"# CLS INPUT READ SAVE IF RUN MOVE BEEP INK INK VERIFY OPEN # OPEN # OPEN # OPEN # OPEN # CLOSE # CONTINUE NEXT POKE PRINT VERIFY MERGE BRIGHT CLS RANDOMIZE DRAW +(5++,-, DRAW =)#% LIST IF RANDOMIZE RUN LIST LET PAUSE RANDOMIZE RUN PRINT PAUSE TO THEN CLOSE # MERGE BORDER IF RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE IF NEW SIN OR BRIGHT DATA NEW DIM CONTINUE CAT ERASE CONTINUE RUN IF READ FLASH POKE RETURN RANDOMIZE LPRINT PAUSE PAUSE POKE PLOT SAVE IF RANDOMIZE IF CLEAR CLEAR CLEAR -2-01(:) CLS INPUT RETURN CLEAR PRINT FLASH BORDER GO SUB GO TO INPUT LET POKE RUN RANDOMIZE REM CONTINUE PRINT CLOSE # RESTORE READ CHR$ PEEK RESTORE IF GO SUB LOAD PLOT PLOT SAVE CLS CLEAR COPY PLOT CONTINUE BEEP CIRCLE OUT INVERSE OUT <,-/1* LIST CLEAR CONTINUE EXP AND MERGE CIRCLE INVERSE DRAW OVER STOP BORDER BORDER CONTINUE LLIST THEN BRIGHT COPY RANDOMIZE DEF FN AND VERIFY PAPER LLIST SAVE RANDOMIZE DRAW COPY 6F<>@CE>?U RESTORE GO SUB IF RANDOMIZE SAVE INK OUT REM CONTINUE DIM DIM DIM NEW TO INVERSE RETURN RANDOMIZE MOVE ASN DEF FN STEP STEP THEN LINE TO STEP FORMAT OUT COPY COPY COPY 0O'*10( RANDOMIZE GO SUB IF READ GO TO 4,$$%' PLOT TO LLIST FOR GO TO DIM NEW VERIFY STEP ERASE INK OVER OVER NEW POKE REM SAVE CLS RANDOMIZE IF IF LLIST LLIST READ CONTINUE RUN DATA SAVE RETURN )=54& CLEAR SAVE RETURN CONTINUE SAVE RETURN RETURN CLS BRIGHT LPRINT CONTINUE RESTORE INK BORDER BORDER LPRINT STR$ BIN THEN THEN ERASE PRINT SAVE RANDOMIZE IF ** COPY NEXT RUN RANDOMIZE RANDOMIZE RUN OVER BRIGHT *J8:;<;) CLS LOAD SAVE <=IN VERIFY MERGE OPEN # CLOSE # BRIGHT STOP INPUT FLASH READ DIM GO SUB GO TO LOAD PAUSE FOR LN OPEN # LIST MERGE CLOSE # MERGE BEEP NEW CLEAR CLEAR ;IBABC1$)-" COPY DRAW LIST RETURN GO SUB LLIST LOAD LPRINT DEF FN CIRCLE OUT READ READ RESTORE CONTINUE INK LINE FORMAT CAT CAT STEP TO STEP CAT ERASE MERGE OUT #/.-! RUN ,3+,.00! GO TO PLOT RETURN OUT OUT RESTORE RESTORE MOVE <> BEEP FLASH FLASH BRIGHT INVERSE DATA CONTINUE LOAD PRINT NEXT POKE RUN RANDOMIZE RUN CONTINUE LIST GO SUB INPUT LIST INPUT STOP RETURN COPY &) CLEAR RUN BEEP DATA GO SUB FOR REM GO SUB REM READ <>NOT CAT TO <>>= CAT INVERSE SAVE DRAW RANDOMIZE CLEAR CLEAR LOAD SAVE IF CLEAR COPY *AI;?AA?7 NEXT RETURN RETURN RUN BIN SGN INVERSE INK CLOSE # DEF FN ERASE PAPER PAPER FLASH RESTORE DATA BORDER DIM FOR GO TO PAPER PAPER RESTORE CONTINUE RESTORE GO TO MERGE CAT BEEP CIRCLE PAPER NEXT )F=<>=$$ CLS COPY BORDER CIRCLE CLOSE # LINE USR >= CAT PLOT LOAD STOP AND DEF FN CLOSE # ERASE MOVE ERASE OPEN # MERGE VERIFY INK LPRINT GO TO !1$ DRAW INPUT 20 RUN RETURN PLOT INK INVERSE <> DEF FN PAPER INVERSE FLASH FLASH OVER RESTORE RESTORE GO TO COPY LET NEXT PLOT RANDOMIZE IF IF CLS DRAW COPY PRINT CIRCLE CLOSE #USR PAPER INVERSE DIM RETURN # !" COPY +#) RANDOMIZE CLEAR COPY DRAW INK LPRINT READ RESTORE RESTORE NEW RESTORE MERGE CHR$ DEF FN STEP THEN LINE THEN TO CAT ERASE MERGE LOAD GO SUB SAVE RETURN LET COPY COPY 5+*-%*N@><;87# SAVE LIST LIST MOVE OR <> MERGE MOVE CAT STEP FORMAT BEEP FLASH PAPER PRINT CLEAR FLASH DIM CONTINUE CLOSE # MERGE OUT OVER OUT LLIST DATA SAVE CLS STOP RESTORE PAPER CONTINUE BORDER ;?773 CLEAR POKE PAUSE OUT FLASH LLIST OUT <>ABS <= PAPER RUN NEW ERASE <= VERIFY FLASH BEEP VERIFY CIRCLE OUT READ BORDER NEXT 2H LET RUN FOR PRINT NEXT PRINT SAVE RANDOMIZE * !$,& PAUSE OPEN #<> LPRINT BRIGHT FLASH INK INK LLIST RESTORE DIM DRAW NEW PAUSE NEXT NEXT LET NEXT IF RANDOMIZE OVER OR LLIST RUN FOR FOR INPUT LIST MOVE BEEP GO TO #!",I6$&'*+ NEXT POKE COPY RETURN DRAW RANDOMIZE SAVE RANDOMIZE REM [C][E]<> CIRCLE BIN OR >= CAT TO THEN TO VERIFY PAPER RESTORE RETURN COPY FOR REM PRINT SAVE * DRAW IF 2-37554*A:333 CLS BRIGHT SAVE DRAW INVERSE SQR THEN STEP FORMAT STEP THEN TO CLOSE # FLASH CLS RUN STEP THEN CIRCLE VERIFY BEEP INK LLIST LLIST DIM PRINT LPRINT &82 INPUT NEXT 03,,$ INPUT <= BRIGHT NEW READ LLIST OUT OUT OUT OUT STEP PEEK FOR SAVE MERGE TO OUT BRIGHT INVERSE OUT STOP LET 8( LET FLASH LIST LOAD INPUT GO SUB LIST RUN CLS )(%&(+* RANDOMIZE ) CLEAR VERIFY DEF FN LPRINT OVER INVERSE INVERSE GO SUB GO SUB STOP LOAD GO TO PAPER AND INK MERGE VERIFY REM CONTINUE DIM GO TO GO SUB INPUT INPUT INPUT PRINT RANDOMIZE OVER POKE CLEAR GO TO PRINT RUN RANDOMIZE CLS &"@eQ88D5%%&$# POKE INPUT PAPER <> PAPER INK INT VAL$ ABS LN [O]NOT OPEN # TO THEN TO VERIFY PAPER LLIST COPY CLEAR DATA CONTINUE LOAD !&" CLS .4,,*,-,+( LOAD READ LOAD POKE COPY NEXT BEEP DATA RESTORE CAT CHR$ FORMAT FLASH CLEAR SAVE RANDOMIZE PRINT READ BRIGHT STEP BEEP BEEP CIRCLE PAPER REM RANDOMIZE REM LIST RETURN RESTORE GO TO PAUSE LIST RETURN /+%'/33+ REM DIM CLS SAVE NEW BEEP LPRINT LLIST LPRINT INK FLASH STOP CONTINUE NEW TO BRIGHT RESTORE INVERSE INVERSE INVERSE NEXT COPY RETURN COPY LIST RESTORE LLIST GO TO FOR FOR GO SUB PRINT RANDOMIZE RETURN 0)&' PAUSE *% GO SUB GO SUB LET DRAW DRAW DRAW CLEAR RETURN RETURN OUT LINE CHR$ DEF FN ERASE MOVE FOR LIST ERASE LPRINT DIM CONTINUE REM FOR FOR GO TO NEXT SAVE DRAW DRAW CLEAR DIM LLIST PAUSE PLOT POKE POKE PLOT RANDOMIZE IF IF 0LLIQWWH2?6!" MERGE LLIST FOR LOAD GO TO REM CIRCLE OPEN # INK IN CODE PEEK CHR$ USR IN RNDASN READ OUT PRINT REM INPUT #" COPY NEXT /% SAVE LIST LPRINT BORDER CONTINUE " POKE POKE SAVE LPRINT LIST POKE INK DEF FN FLASH CONTINUE RETURN DRAW RETURN LET LIST RANDOMIZE IF CLS IF SAVE ERASE EXP BIN GO TO NEXT RESTORE DIM PRINT RANDOMIZE RUN =$#)-+,491$# LET LET POKE PLOT PLOT PRINT POKE STOP PAPER NEW FOR REM FOR GO TO FOR BEEP POINT BEEP RETURN RANDOMIZE LOAD MERGE STOP DRAW COPY PRINT PAPER NEW GO SUB FOR DIM LIST PLOT CLS COPY CLEAR 7*- LPRINT <= READ RESTORE DATA STOP LLIST STEP VERIFY RETURN PRINT PRINT SAVE PLOT MERGE LPRINT RESTORE RESTORE NEW CONTINUE PAUSE PRINT POKE PLOT SAVE SAVE OUT INVERSE >= OPEN # PAUSE RETURN NEXT PLOT 0"#9]SPNN:2: INPUT IF COPY DRAW NEW DATA LIST NEXT LET PAUSE PAUSE NEXT FOR AND TAN >=<=<= AND LPRINT READ OPEN # RESTORE RANDOMIZE % OPEN # FLASH INVERSE OUT SAVE CLEAR COPY PAUSE FLASH PAUSE LIST LOAD CONTINUE INPUT CLEAR RETURN COPY CLS BORDER DATA <= MERGE BEEP PAPER FLASH FLASH PAPER STR$ STR$ VERIFY DRAW RETURN CLS 4(),897$ LIST FOR NEXT PRINT RUN RANDOMIZE NEXT RESTORE LOAD LOAD RETURN FOR BIN [T]BIN MERGE LOAD RANDOMIZE NEW INPUT GO SUB GO SUB GO SUB PRINT IF RETURN RETURN RUN READ GO SUB LOAD 5L1 FOR INPUT CLS SAVE RUN SAVE IF REM FLASH REM DRAW INPUT RANDOMIZE IF DRAW CLEAR RETURN CLEAR INVERSE INK RESTORE RESTORE NEW CONTINUE LOAD POKE POKE RUN RUN OVER RESTORE CONTINUE BORDER NEW CLOSE #CHR$ BEEP REM 2+!('()CXF COPY NEXT LIST REM POKE POKE CLS IF DRAW COPY SAVE INK STEP VERIFY CLS POKE PAUSE NEXT PAUSE INK LPRINT OPEN #% COPY CLOSE #USR PAPER FLASH CIRCLE CIRCLE PAPER STOP STOP DATA FOR # CONTINUE OPEN # POKE '2 # COPY LIST CLEAR CLEAR INK OR <= CLOSE # MOVE OPEN # PAPER OVER OVER LPRINT LLIST STOP FLASH >= CIRCLE -" SAVE 1@66$ LOAD PRINT CLS OVER FLASH MOVE VERIFY CAT ASN USR RESTORE LOAD MOVE GO SUB REM FOR INPUT PRINT IF RANDOMIZE DIM OUT DIM REM REM DIM GO TO POKE CLS !$#$# INPUT RUN RETURN CLEAR RETURN , SAVE NEXT COPY CLEAR CLEAR CLEAR COPY RANDOMIZE FLASH NEW CONTINUE REM FOR FOR INPUT PRINT READ INK RESTORE REM DIM CONTINUE CONTINUE DIM REM FLASH ERASE DRAW (' LIST COPY PAUSE DRAW LOAD PAUSE RANDOMIZE INPUT CLS FOR FORMAT AND RESTORE RUN CLEAR BRIGHT OVER LPRINT AND ERASE CLOSE # BEEP CIRCLE FLASH STOP NEW NEW DIM LIST PLOT DRAW )& POKE DIM "(9- REM RETURN COPY LLIST INVERSE DATA <>BIN THEN STEP CLOSE # CIRCLE OVER DATA CONTINUE BORDER INPUT INPUT LIST OVER OUT 0", RETURN POKE COPY FOR IN INVERSE FLASH INVERSE <=USR RUN LIST CLS REM CLOSE # LOAD LET INPUT INPUT LIST LLIST INK BORDER REM CONTINUE DIM FOR GO SUB LOAD LIST LET SAVE COPY ."$'.* SAVE BEEP STEP DRAW .B1 IF BRIGHT GO TO GO TO GO SUB INPUT INPUT BRIGHT CLOSE # BRIGHT OVER RESTORE REM DIM FOR GO SUB LOAD PAUSE RANDOMIZE INPUT INK RETURN (4% CLS BORDER FOR CLS RETURN DRAW RETURN REM ' LIST CIRCLE FOR LOAD DIM <> DATA PAUSE ! CLEAR DIM INK CONTINUE CONTINUE DEF FN NOT ERASE VERIFY VERIFY INK LLIST NEW REM REM LET PRINT POKE RUN RETURN %0'( OVER LOAD !2D3 COPY CLS INK READ DIM OPEN #PEEK DEF FN CLOSE # CLOSE # MERGE BRIGHT STOP CONTINUE GO TO LIST PRINT RANDOMIZE RETURN CLEAR DATA STOP LET DRAW CLS LET COPY LIST IF GO SUB INK READ DATA CIRCLE LINE PAUSE CLEAR RUN CLEAR MERGE REM INPUT GO SUB RESTORE CAT OUT DATA STOP READ RESTORE CONTINUE LOAD INPUT LIST LET NEXT IF COPY RETURN /6., FLASH LPRINT READ BRIGHT -H&## DRAW COPY STOP FOR GO SUB GO SUB INVERSE LINE PAPER LPRINT OUT LPRINT STOP REM INPUT INPUT LIST NEXT PRINT DRAW RETURN LLIST POKE %" DRAW GO SUB LET POKE OVER STOP RETURN DIM PAUSE & RUN PAUSE INK VERIFY COPY COPY & (& IF COPY LLIST LLIST DATA LINE DEF FN MERGE FLASH LPRINT OUT LPRINT READ NEW GO SUB PAUSE PLOT PLOT SAVE COPY !3 PRINT OUT FORMAT LLIST RETURN "!(6"')(& FOR OUT RESTORE TO BIN FORMAT VERIFY PAPER PAPER LLIST NEW REM LIST POKE SAVE SAVE CLS DRAW PAPER PAUSE RUN RUN GO SUB CLEAR LIST BORDER LET COPY GO TO SAVE CLS READ INPUT PRINT PAUSE OPEN # INK CLEAR ( ! STOP OVER PAUSE OVER >= INK OVER STOP LLIST DATA BORDER DIM GO TO GO SUB LOAD LET PAUSE PRINT CLEAR + LIST THEN CODE OVER "5*(&& NEW RESTORE LIST CLOSE # CLOSE # CIRCLE PAPER BRIGHT BRIGHT INVERSE DATA READ REM LOAD POKE SAVE RUN RANDOMIZE - DRAW IF PAUSE DRAW BORDER FLASH INPUT LET PLOT REM NEW INPUT BEEP LLIST POKE LET LET RETURN RUN MERGE BRIGHT I'#&( STOP INVERSE DEF FN VERIFY BRIGHT LPRINT DATA DATA BORDER REM GO TO NEXT RUN POKE POKE CLS COPY COPY CLS CLEAR RESTORE INK STEP DIM 7$ COPY 0@1-0- DRAW OUT DEF FN CLOSE # BEEP INK PAPER INVERSE BORDER REM INPUT PAUSE RANDOMIZE RETURN CLEAR RETURN COPY RESTORE MOVE [U]NOT NEXT POKE PLOT RETURN # NEXT OVER PAUSE COPY CLEAR INVERSE RESTORE 5% INK MOVE ERASE BEEP CIRCLE PAPER INVERSE LPRINT LLIST DATA GO TO LIST LOAD LIST NEXT POKE PLOT SAVE CLS RETURN ?E8 SAVE LIST CONTINUE READ FOR BORDER OPEN #(+0)# RETURN TO THEN OVER LPRINT OVER OUT LLIST READ READ DATA NEW DIM GO TO LOAD PLOT PRINT CLEAR PLOT NEXT REM NEW INPUT LOAD PAUSE POKE % RETURN PAPER INT VERIFY PAPER OUT OUT DIM GO SUB PAUSE " RUN COPY COPY # TO PAPER BORDER DATA RESTORE GO TO LET LIST PAUSE PRINT SAVE SAVE RANDOMIZE IF DRAW RETURN THEN <> DIM INPUT REM NEXT SAVE RUN RUN LOAD RANDOMIZE =D892 REM STEP DIM RESTORE DATA READ RESTORE LET POKE NEXT PLOT RETURN NEXT THEN <= MERGE INK INK INK CIRCLE DATA ERASE BEEP CLEAR IF DRAW RETURN ))&'! BRIGHT NEW PLOT ! SAVE COPY DATA ASN FN BEEP GO SUB PAPER OVER LLIST DATA DATA NEW GO SUB GO SUB POKE POKE PRINT RUN RETURN RETURN HLCA PLOT OPEN # RUN SAVE PRINT POKE NEXT PLOT CLEAR LPRINT FOR DRAW SAVE RUN RUN FOR INK STOP DATA NEW BORDER CONTINUE FOR PAUSE PAUSE LET PAUSE DRAW BIN STR$ OVER IF PLOT IF ")" COPY GO TO GO TO FOR TO ERASE MERGE BEEP INK LLIST BORDER GO TO GO TO POKE SAVE CLEAR ',# IF ,&## ERASE NEXT LOAD LIST LOAD LET SAVE SAVE RANDOMIZE CLS RETURN DRAW NEW INK CONTINUE CONTINUE ERASE DEF FN OVER LLIST RETURN LIST LET SAVE SAVE RANDOMIZE DRAW RANDOMIZE OUT REM CLS /!(/LD<$' DATA INK LOAD LET LOAD LIST NEXT PLOT SAVE COPY REM STOP INPUT GO TO VERIFY BIN BEEP FLASH FLASH OVER LLIST PAPER USR OUT CLS BEEP MERGE POKE #: " # BEEP IF DRAW DRAW DRAW +" SAVE DIM GO SUB GO SUB BEEP INT TAN LLIST FLASH COS NOT LET RANDOMIZE LOAD LIST PAUSE PRINT PLOT SAVE RANDOMIZE DRAW COPY "6C&)( LOAD GO SUB CLS COPY CLEAR DRAW NEW INK BORDER COPY DRAW <> THEN GO TO PAUSE FORMAT BRIGHT CONTINUE RETURN LET BORDER LET PAUSE PAUSE LET PAUSE IF COPY !" BORDER AND COPY RUN BRIGHT PAPER LET LOAD PLOT PRINT POKE POKE OVER MOVE OVER INVERSE BRIGHT INVERSE RESTORE DIM INPUT PAUSE PLOT IF RETURN -6) CLEAR CLEAR $+#?# REM DIM CLS SAVE PRINT PLOT CLEAR RANDOMIZE PAPER STOP READ READ RESTORE CONTINUE LLIST <> VERIFY INVERSE LLIST MERGE DATA RUN SAVE SAVE CLS RETURN DIM LOAD PAUSE POKE #:,*)+;QF5 DATA POKE PLOT PRINT PRINT RUN RETURN PAUSE INVERSE BORDER DIM FOR GO SUB INPUT INPUT CLOSE # TO PAPER OUT INVERSE OUT LLIST STEP CLOSE # MERGE VERIFY CIRCLE CLS COPY SAVE .'%#"#&&$##"""$ LOAD GO SUB IF CLEAR CLEAR COPY LIST PLOT INPUT DIM REM CLOSE # DEF FN SIN USR CHR$ CLOSE # PAUSE DIM FOR IF CLEAR RETURN COPY 0<' RANDOMIZE PLOT COPY RUN INK LINE <> MOVE THEN TO FOR RANDOMIZE PAUSE INPUT BEEP INPUT FOR FOR PAUSE INPUT POKE RETURN ! LIST LPRINT MERGE ERASE BORDER PLOT AND REM PAPER LIST RANDOMIZE RANDOMIZE SAVE RANDOMIZE REM OPEN # LPRINT NEW READ DATA RESTORE GO TO LET LIST PAUSE RANDOMIZE RETURN ;) CLEAR #5.>% PLOT DRAW RETURN RUN INK OUT DATA NEW RESTORE RESTORE BORDER REM FOR REM FORMAT OPEN # OPEN #IN <> THEN PAPER CLS CLS CLEAR COPY COPY DIM SAVE SAVE RANDOMIZE RANDOMIZE CLS CLEAR COPY -.JT?$-./OG CLEAR PAUSE CLS NEXT INVERSE READ NEW CONTINUE CONTINUE CONTINUE FOR PAUSE LIST LET STOP CAT OVER READ STOP LLIST INK <> INK BRIGHT PAPER PAPER INVERSE LPRINT STOP LLIST CLS +!).,*''*(!"#$! LIST INPUT INVERSE REM DIM REM REM IF CLEAR FORMAT BEEP THEN STR$ <> THEN STEP CAT MOVE RUN + CLEAR FLASH BEEP <> ERASE FORMAT STEP STEP CAT MOVE OPEN # VERIFY STOP IF CONTINUE CLEAR # RETURN RANDOMIZE GO SUB CONTINUE NEXT PAUSE LIST CHR$ [O]SCREEN$ ASN MOVE PRINT PRINT CLEAR PRINT PRINT LPRINT REM DIM DIM BORDER DIM LIST POKE NEXT IF COPY H6 PLOT LIST :Q0 IF IF REM READ REM REM REM REM REM REM GO TO NEXT PAUSE NOT TAB >= LINE DEF FN STEP CLOSE # PAPER REM GO TO PAUSE SAVE RANDOMIZE IF CLS CLEAR COPY 1ZPHKL,<@2 RESTORE FLASH GO SUB GO TO GO TO FOR GO TO INPUT INPUT LOAD PLOT IF PLOT MERGE INK LPRINT LLIST LLIST >= DEF FN PAPER FLASH BRIGHT OUT LPRINT DEF FN <= CIRCLE BRIGHT )&(8S@!)+)" IF SAVE LIST DRAW DIM LLIST GO SUB GO TO INPUT GO TO LOAD NEXT PAUSE RUN STR$ STR$ FORMAT VERIFY PAPER PAPER STOP 5))'* RANDOMIZE DRAW RETURN LET LPRINT LOAD POKE PAUSE PAUSE IF COPY CLEAR ERASE SQR MERGE ERASE FORMAT STEP CLOSE # CIRCLE BRIGHT LLIST BORDER LPRINT #:6#$%$ LPRINT INVERSE FOR LET FLASH LINE OPEN #PEEK BIN SIN TAB ERASE LLIST ERASE BEEP 4' LOAD BEEP NEXT LOAD GO SUB GO SUB LIST NEXT IF IF 1F2"" LIST NEW PLOT PLOT PAUSE CLEAR 0" CLEAR RESTORE FOR PRINT PAUSE LET DIM FLASH OUT BIN SGN <> CAT CLOSE # CIRCLE CIRCLE FLASH INVERSE DATA BORDER LIST SAVE SAVE IF CLS CLEAR RETURN "1&(?4FS7,! GO SUB FOR LOAD LIST NEXT IF RANDOMIZE CLS DRAW RETURN CLS CIRCLE CIRCLE READ BORDER MOVE LINE FLASH INVERSE BRIGHT MERGE STR$ TO BEEP PAPER POKE RANDOMIZE CLEAR COPY -&FO@ GO TO COPY FOR PLOT RUN RANDOMIZE LET RESTORE INPUT LOAD RETURN RANDOMIZE RETURN BRIGHT REM GO TO PAPER OUT 5=-.10 OVER OPEN # LPRINT NEW GO TO DIM DEF FN MERGE FLASH FLASH FLASH CLS PAPER TO THEN BEEP VERIFY BEEP OVER READ DIM =MHFE;&(+-+ PRINT LOAD RUN SAVE RANDOMIZE READ <> ERASE MERGE DEF FN LN STR$ <= ERASE INPUT CAT <> BEEP INVERSE LLIST LLIST CONTINUE & CLEAR POKE BORDER PRINT POKE PLOT RUN RETURN RETURN ?54% IF RANDOMIZE ' GO SUB NEW OVER READ READ STOP NOT NOT FORMAT OPEN # BEEP VERIFY CIRCLE PAPER INVERSE OVER OUT BORDER CLS RUN PLOT POKE PRINT RUN RUN RUN . PAUSE /X?A??0! PAUSE CLEAR COPY IF FLASH LLIST NEW BORDER OPEN # CLOSE # BEEP BEEP PEEK BIN DEF FN READ COPY LOAD LIST LET CLS SAVE SAVE IF CLEAR GO SUB GO SUB + OVER LET RUN PRINT PLOT RANDOMIZE COPY DIM ( RUN RESTORE CLS *,*'&<>IN PAPER BRIGHT PAPER FLASH STOP LLIST CAT LINE MERGE CLOSE # MERGE CLOSE # BEEP OUT OVER BRIGHT FLASH READ OPEN # BRIGHT INVERSE RESTORE PRINT POKE ,$=VDGGF+)+.-+ DATA CONTINUE PLOT DRAW IF RANDOMIZE RANDOMIZE CLS NEXT INVERSE ERASE CAT MERGE CHR$ INT THEN PAUSE DIM DATA RESTORE VERIFY CIRCLE DATA BORDER DATA DATA BORDER INPUT PRINT OVER DIM LET RUN RETURN &=0) DRAW 5 OUT FLASH DIM NEW AND LN <> CAT CLOSE # OPEN # ERASE OPEN # PAPER PAPER INVERSE DATA CONTINUE DATA LINE READ RETURN NEXT LET LET SAVE CLEAR +MFDBB8 RETURN PAPER DATA BORDER LET LOAD FLASH DEF FN CLOSE #USR READ PAUSE BORDER CONTINUE CONTINUE DIM GO TO INPUT CLOSE # LINE OPEN # CLOSE # BEEP CIRCLE FLASH RETURN RETURN PRINT DRAW LET CONTINUE PLOT CLS COPY COPY "&**-, ! INPUT BEEP CAT FLASH PAPER INK VERIFY USR OR STEP STEP STEP CAT BEEP INVERSE INVERSE OUT BORDER GO TO MERGE VAL$ FOR NEXT )# #KJCDDA! CLEAR CLS NEXT COPY COPY GO SUB FLASH GO TO LET NEW LINE OUT DATA STOP DATA BORDER REM LET NEW CLOSE # READ BORDER NEW BORDER BORDER BORDER NEW NEW READ FOR LOAD INPUT PLOT CLS RETURN 6" # "#"! IF PAUSE FLASH FORMAT ASN OR OR AND <=>= CAT CAT ERASE INK INVERSE INVERSE OUT BEEP LN LN LINE READ NEXT PLOT IF 4'!IRHGGI*! BRIGHT OVER LET LET LOAD GO SUB LOAD LET SAVE STOP MERGE OVER LPRINT MOVE SQR THEN THEN TO TO STEP CLOSE # CLOSE # MERGE BEEP INK FLASH LET NEW NEW INPUT RUN NEW / INK READ I STOP RANDOMIZE 6 READ DIM LIST CLS # INK PLOT 1 TO + PLOT BRIGHT PAUSE OVER DIM SQR LIST STEP TAB AND VAL USR REM :Rd:#8Pkw).(<1 CLOSE #POINT CODE ABS [B]LN DATA DRAW INPUT OVER [R][O]SGN MERGE Sn&"4A gjI+2BC CAT CODE FN STR$ INK RESTORE CLEAR LLIST [U]ABS OR SIN AND .`U@"$_ncB$41*INT [O]SCREEN$ [T]POINT BEEP LOAD OPEN #SCREEN$ VAL [U] OUT CLEAR )RX.;(Jjq.&O4 BEEP POINT RND[R]VAL$ OPEN # INVERSE BORDER LET ERASE VAL LEN ASN BIN [b."')Gia36!5$ LLIST ASN [L][O]SIN LINE COPY MERGE POINT USR ATN <> OUT <TA6)A_lD%$@- RUN COS CODE ACS LEN INT <> LOAD GO SUB LPRINT <=VAL TAB AND DRAW 1^?+&4:QWK>+%!.% GO TO THEN [R][R]POINT OPEN # LPRINT PRINT FLASH THEN STR$ IN CHR$ OR 2aF?7ccL-#5( PAPER STR$ SIN TAB POINT STR$ REM COPY NEW >=TAN SCREEN$ NOT GO SUB "@A:21(@KbE723 ERASE [R]ATTR POINT <> OPEN # LOAD BRIGHT CIRCLE >=NOT ATN NOT DIM +NN8!"2UWW-+# ' PAUSE BEEP TAN AT [O]STR$ LPRINT RUN DIM OPEN #ABS LEN OR CLOSE #-DD?.0G^P=$/' LLIST BIN LEN ASN SIN BIN OVER CONTINUE FOR CLOSE # TO VAL$ LN INK '>C@.&-GMR<7) INVERSE INT ASN FN ACS CIRCLE LIST LPRINT VERIFY THEN <=PEEK <> LOAD >DG++!JYT3*#-# BORDER MERGE ABS SGN LEN STR$ MOVE NEW CONTINUE INK <=CHR$ USR MOVE ,5=A/-3HIH?+' GO TO CHR$ ASN TAN ABS >= DIM FLASH BRIGHT STEP MOVE PEEK NOT RESTORE /6C,0.EJN71*( " DRAW LPRINT <>INT SCREEN$ USR OPEN # CONTINUE OUT OVER <= OR CHR$ OPEN # LET ,2@7/+BLE</!-& NEXT CLOSE #IN EXP IN <= VERIFY OUT BRIGHT MERGE DEF FN OR BIN CIRCLE +1927?DC<7))$+ FOR DEF FN ACS ASN CHR$ BEEP OVER PAPER OPEN # CAT >=<= OPEN # DIM -39,9GP@3.$%20 RANDOMIZE READ AND ATN SQR >= MERGE STOP OVER ERASE <> OR <= BEEP COPY %:33=HBB7,%,' SAVE VERIFY SGN INT SQR CAT OUT OUT ERASE MERGE DEF FN <><> LLIST %1046>KD:'.")) PAUSE VERIFY ATN TAN USR OPEN # BRIGHT RESTORE BRIGHT <> OR THEN VERIFY NEW "0633GEG<. 1+ DIM BIN ASN PEEK STR$ ERASE RESTORE LLIST BEEP DEF FN >=PEEK VERIFY PLOT ,+)5?DDJ3' %'( BORDER BIN SIN VAL MOVE READ DATA STOP BEEP OR INT THEN INK CLEAR ) )*+6NQ@4$ 8& RESTORE ASN VAL$ PEEK STEP STOP LET RESTORE LINE STR$ ABS STR$ INVERSE "!)- 0FJKG1 ++ RANDOMIZE STEP LN TAN ABS CLOSE # INPUT STOP FLASH DEF FN NOT ATN CAT RUN %'%/:>KM7)%&$* INPUT MOVE COS SIN CAT BRIGHT DATA STOP OVER STR$ ABS OR ERASE RUN $-0.0JH:7+##3 DIM PEEK EXP BIN <> PAPER GO SUB DATA FORMAT THEN OR BIN OUT &3%3;<AA2*)" RANDOMIZE INK NOT SGN USR OPEN # BORDER STOP LPRINT MERGE <=IN MOVE LET "%+338@D30,*% CLS MERGE USR LN FORMAT MERGE DATA NEW FLASH >=NOT LINE FORMAT RANDOMIZE
56760@?=9.'+- PAUSE <>STR$ CHR$ CAT INVERSE GO TO RESTORE FORMAT >=PEEK AND BRIGHT +-.79<?7.*- CONTINUE THEN NOT BIN OPEN # READ READ FLASH CLOSE # STEP USR LINE DIM &+5/53A;122- LLIST STEP ABS <> FLASH BRIGHT LLIST FLASH MERGE USR CHR$ MERGE PLOT '32*6;;7;4)$ CIRCLE LINE <= LINE STEP BRIGHT REM CLOSE # CAT BIN <= ERASE --$33;AE20- POKE VERIFY <=BIN <= OVER OUT INVERSE MERGE THEN LN <> LOAD %$.025E>9:8<> OPEN # OVER INVERSE READ STEP USR OR INK NEXT /5%3@;;=3" TO STEP LLIST DIM BEEP >=<> THEN OUT )''47;>D,,! LET BRIGHT NOT OR THEN BORDER NEW INVERSE MERGE TO CHR$ VERIFY COPY (/.3B=0+( NEXT CIRCLE PEEK STEP INVERSE DATA READ READ VERIFY PEEK STEP READ #&!.D9<51 DIM OR OR CAT BRIGHT CONTINUE PAUSE MERGE LINE IN BEEP DIM 07B=G+" DRAW LPRINT <= OR <> GO TO GO TO RESTORE FORMAT LINE STR$ FLASH DRAW "%15LG4. PLOT FLASH SGN <= BRIGHT CONTINUE FOR NEW MERGE LN THEN REM 4GD<3'! LOAD TO NOT TO LLIST BORDER PLOT BEEP THEN BIN OVER FOR )7FC@( RESTORE STEP OR CAT GO TO PAUSE REM VERIFY STEP STEP BORDER CLEAR )6IC." IF # COPY OVER NOT <= STOP FOR PAUSE DATA MERGE BIN OUT LOAD "-FAB+ RUN POKE STEP <> THEN DATA CONTINUE LET INK DEF FN MOVE DIM RUN 5B>>& SAVE LET CAT <> DEF FN NEW FOR GO TO FLASH ERASE INVERSE DIM RETURN <DC3 CLEAR RANDOMIZE BORDER <=>= BEEP RESTORE INPUT DIM OVER ERASE BORDER GO TO #0EAA* NEXT CLEAR CLEAR FLASH STEP THEN FLASH NEW GO SUB LPRINT FLASH OVER LIST PRINT -0F>= NEXT DRAW IF BEEP CAT CAT READ REM DIM LLIST LPRINT FOR LIST CLEAR )5E?2 SAVE NEXT POKE MOVE LINE BEEP NEW GO SUB BORDER NEW LLIST PAUSE LET "+?;;# PAUSE DRAW DATA CIRCLE CAT STOP CONTINUE LET LPRINT RESTORE GO SUB PRINT RANDOMIZE )-;91 CLEAR RANDOMIZE DRAW READ MERGE OPEN # FOR CONTINUE REM DATA GO TO LIST RUN DRAW &1;7" RUN IF LIST OUT OPEN # LPRINT LPRINT GO SUB CONTINUE CONTINUE INPUT SAVE DRAW 1;40 RETURN LET RETURN FOR STOP OPEN # LPRINT RESTORE GO SUB STOP LOAD PLOT SAVE CLEAR +179, MERGE DATA BORDER CONTINUE REM PAUSE IF CLEAR RETURN -693 POKE IF READ BEEP BRIGHT RESTORE BORDER BORDER REM PAUSE CLS DRAW $3=9. IF LIST COPY LOAD INVERSE PAPER RESTORE REM REM BORDER GO SUB LET DRAW PRINT DRAW *6=4% NEXT PAUSE DRAW FOR OUT OVER DIM INPUT REM NEW LET SAVE RETURN 05;0 CLS PAUSE SAVE COPY RANDOMIZE BORDER FLASH LPRINT GO TO FOR NEW GO TO PAUSE SAVE PLOT !0:=( RUN LIST RANDOMIZE PAUSE OUT LPRINT READ RESTORE GO SUB CONTINUE FOR NEXT IF '8?3) INPUT LET IF GO SUB READ BEEP READ LET GO TO BORDER NEXT CLS SAVE POKE RUN .1?> IF INPUT PRINT RANDOMIZE DATA ERASE BRIGHT GO TO FOR GO TO NEXT INPUT LET IF CLEAR LIST 'BD6 CONTINUE NEXT GO SUB INVERSE CIRCLE INVERSE DATA NEXT FOR CONTINUE LET DRAW IF COPY IF !9>84 LIST GO SUB CLEAR LET RESTORE FORMAT READ FOR FOR READ PRINT SAVE NEXT PLOT RUN -3=A! PRINT RUN CLS FOR INK PAPER NEW LLIST RESTORE INPUT LET RUN DRAW PRINT +?>6 PAUSE COPY SAVE CONTINUE BRIGHT CIRCLE BRIGHT RESTORE STOP DIM PLOT CLEAR SAVE %5;94 COPY CLEAR RANDOMIZE CONTINUE OPEN # INK OVER INVERSE READ POKE DRAW RUN IF +0<>) GO SUB FLASH OPEN # CIRCLE INVERSE OUT GO SUB PAUSE CLS PLOT COPY CLEAR ,9@:" DRAW COPY COPY CONTINUE BEEP MOVE CLOSE # LPRINT READ LIST RANDOMIZE CLEAR IF CLEAR '1891 RETURN MERGE FORMAT PAPER INVERSE RESTORE SAVE DRAW IF RETURN /.5<( PAPER FLASH RUN CLEAR COPY DRAW COPY RETURN !(3:1 COPY CLEAR GO SUB INVERSE CIRCLE FORMAT INVERSE CONTINUE IF CLEAR DRAW COPY ,40- RETURN CLOSE # OPEN # PAPER STOP DIM CLS DRAW COPY -+-4 RETURN IF OVER ERASE OVER CIRCLE LLIST RANDOMIZE COPY RETURN CLS DRAW #%.5- DRAW GO TO FLASH MERGE CLOSE # LPRINT PRINT CLS IF +5-% IF COPY INPUT OPEN # MOVE OVER FOR RANDOMIZE RUN RANDOMIZE CLEAR COPY #+-3 CLEAR COPY RANDOMIZE DRAW INVERSE FORMAT FLASH RESTORE INPUT CLEAR NEXT CLEAR CLS 06- RANDOMIZE PRINT DRAW GO SUB BEEP INK VERIFY LOAD RETURN CLS CLEAR RUN RUN CLEAR '7,! RETURN POKE RANDOMIZE CLS BORDER MOVE ERASE READ IF NEXT POKE COPY !,0/ POKE RANDOMIZE INPUT PLOT MERGE MOVE BEEP LET CLEAR RUN PAUSE CLEAR CLS COPY /3% FOR ERASE CLOSE # CIRCLE CLS COPY '1* IF POKE POKE RETURN RETURN CONTINUE MERGE FORMAT DIM POKE SAVE COPY RUN +(' PRINT PRINT PAUSE RETURN OVER INK PAPER RUN CLEAR SAVE CLEAR DRAW IF NEXT LIST IF NEXT FLASH PAPER DATA CLS DRAW CLS CLEAR DRAW PAUSE LOAD CLS INPUT INK INK PRINT PRINT CLS COPY SAVE ! RUN LIST INPUT COPY DATA FLASH STOP COPY PRINT CLEAR RUN % RUN INPUT RANDOMIZE RUN DATA INVERSE FOR CLEAR SAVE CLS RUN PRINT LOAD DRAW PLOT LPRINT OUT SAVE RANDOMIZE RUN DRAW DRAW CLEAR CLEAR PRINT PAUSE CLEAR GO SUB READ BORDER CLS CLS RETURN RANDOMIZE PAUSE SAVE CLEAR REM DIM LOAD COPY CLS SAVE RANDOMIZE RETURN RUN PLOT CLS RANDOMIZE FOR FOR CLEAR CLS RUN IF LET PAUSE POKE CLS COPY IF DRAW COPY NEXT PRINT DRAW DRAW DRAW RANDOMIZE COPY RANDOMIZE IF CLS PLOT CLS CLEAR RANDOMIZE DRAW COPY DRAW RANDOMIZE SAVE SAVE DRAW RETURN RANDOMIZE RANDOMIZE RUN RETURN CLS POKE RUN RANDOMIZE RANDOMIZE COPY COPY RUN RETURN CLEAR IF RANDOMIZE RETURN RUN RUN CLEAR RETURN RANDOMIZE IF IF CLEAR COPY RANDOMIZE CLEAR RUN COPY DRAW IF PRINT DRAW COPY CLS CLEAR COPY IF POKE CLEAR DRAW PAUSE CLS CLS RETURN CLEAR SAVE CLEAR DRAW PLOT SAVE PLOT RANDOMIZE DRAW CLEAR CLS PLOT SAVE RUN PLOT PLOT COPY RANDOMIZE CLS COPY CLEAR RUN NEXT IF CLS LIST PRINT CLEAR RETURN CLS RANDOMIZE RANDOMIZE RUN PLOT IF LET CLS RETURN DRAW PRINT IF PLOT RUN CLEAR RANDOMIZE RANDOMIZE DRAW NEXT RUN DRAW RANDOMIZE DRAW COPY CLS PLOT PLOT COPY PLOT RANDOMIZE COPY CLS RETURN CLS RANDOMIZE RANDOMIZE RETURN RUN DRAW CLEAR PLOT CLEAR DRAW RETURN RUN DRAW RETURN DRAW RANDOMIZE POKE IF CLEAR COPY RETURN CLS CLEAR COPY RETURN PRINT PLOT IF CLEAR RETURN CLEAR CLS CLEAR IF PAUSE LOAD COPY CLEAR CLEAR CLEAR DRAW IF INPUT LET CLEAR CLS DRAW LET GO TO PRINT COPY RETURN RANDOMIZE CLEAR CLEAR IF LIST CONTINUE PRINT CLEAR CLS RANDOMIZE COPY RUN DIM REM CLEAR RUN CLEAR RETURN GO SUB GO SUB PAUSE RETURN COPY RUN COPY SAVE NEXT DIM POKE CLS DRAW DRAW DRAW NEXT CONTINUE REM COPY RETURN DRAW SAVE COPY IF DIM CONTINUE LET DRAW CLEAR CLEAR POKE RETURN COPY LOAD GO TO RESTORE POKE IF RANDOMIZE CLS CLEAR RESTORE CONTINUE CLEAR DRAW RETURN CLEAR RUN RANDOMIZE NEXT DATA RESTORE NEXT CLEAR SAVE COPY SAVE REM NEW NEW NEXT CLS COPY ! CLS PLOT DRAW RETURN LLIST DIM SAVE RETURN CLS CLEAR DRAW PLOT IF READ DATA LOAD RUN CLS RETURN SAVE PLOT COPY RESTORE PAUSE DRAW COPY CLS PLOT RANDOMIZE CLEAR POKE RESTORE READ REM PLOT COPY COPY COPY GO TO READ RESTORE INPUT RUN RETURN CLEAR RUN PRINT CLEAR RUN NEW NEW BORDER NEXT CLEAR COPY IF PLOT RANDOMIZE RETURN CLEAR NEXT DATA NEW REM POKE COPY COPY DRAW GO SUB DATA BORDER INPUT PLOT RETURN SAVE RUN CLEAR CONTINUE PAUSE CLS CLS RUN CLS RETURN CLEAR LET BORDER BORDER GO SUB PLOT CLEAR DRAW SAVE DRAW CLS REM BORDER DIM LIST POKE COPY RUN IF NEXT DIM FOR FOR NEXT RANDOMIZE CLS RANDOMIZE CLEAR CLS LOAD DIM FOR LIST PRINT IF RANDOMIZE RANDOMIZE COPY PRINT FOR DIM GO SUB PAUSE RUN CLEAR DRAW RANDOMIZE IF CLEAR LET DIM FOR LET RUN SAVE RETURN CLS SAVE DRAW RANDOMIZE INPUT REM LOAD PAUSE PLOT CLS COPY SAVE CLS COPY PAUSE INPUT GO TO LIST POKE RANDOMIZE CLS RETURN RANDOMIZE IF RETURN PAUSE FOR GO SUB PRINT PLOT RANDOMIZE COPY DRAW RUN CLEAR RUN INPUT GO SUB LET LET RANDOMIZE CLEAR CLEAR RANDOMIZE IF CLEAR GO TO GO SUB PLOT IF CLEAR DRAW RUN COPY POKE DIM LOAD PAUSE PRINT RUN RETURN SAVE DRAW RUN INPUT INPUT LET LOAD SAVE CLS CLEAR COPY CLEAR DRAW COPY RETURN PRINT LET INPUT LOAD PLOT RUN RANDOMIZE COPY IF CLEAR PRINT LIST NEXT NEXT POKE PLOT CLEAR RETURN DRAW RETURN RUN POKE NEXT NEXT LET PLOT RANDOMIZE IF CLEAR COPY COPY RUN POKE PAUSE LET PRINT PRINT RANDOMIZE DRAW CLEAR CLEAR PLOT NEXT NEXT NEXT NEXT PLOT IF CLEAR RANDOMIZE PRINT PRINT POKE NEXT PAUSE SAVE RANDOMIZE RETURN RETURN RUN SAVE PRINT PAUSE POKE POKE SAVE IF CLS RANDOMIZE PRINT POKE POKE POKE NEXT IF CLEAR RANDOMIZE PLOT PLOT RUN PAUSE POKE SAVE IF DRAW DRAW RUN SAVE PLOT PAUSE POKE RUN RUN IF COPY COPY COPY CLS IF POKE POKE POKE PRINT PLOT DRAW RETURN DRAW COPY CLS RUN PRINT PLOT PAUSE POKE IF CLS DRAW RETURN COPY CLEAR RANDOMIZE RUN PRINT LIST POKE RUN IF CLS CLEAR RETURN COPY CLS CLS NEXT NEXT NEXT PLOT RUN COPY COPY DRAW CLEAR DRAW RUN POKE NEXT PAUSE PRINT CLEAR COPY CLEAR CLEAR COPY CLEAR RETURN COPY CLS RUN POKE LOAD PRINT SAVE COPY RETURN CLS DRAW RETURN RETURN DRAW PRINT NEXT NEXT PLOT IF CLEAR DRAW RETURN COPY CLEAR SAVE PRINT NEXT NEXT PLOT RETURN COPY DRAW DRAW CLEAR COPY CLEAR DRAW RUN PLOT LET RUN RANDOMIZE COPY COPY CLS CLS COPY COPY CLEAR CLEAR RUN PRINT POKE RUN CLS CLS DRAW CLEAR COPY RETURN COPY RETURN CLS RUN POKE POKE SAVE RETURN DRAW DRAW DRAW RETURN RETURN COPY CLEAR RETURN RANDOMIZE PRINT NEXT RUN CLS COPY IF CLS COPY DRAW RETURN RETURN RETURN SAVE PRINT PRINT RUN CLEAR DRAW DRAW CLS COPY CLEAR DRAW RETURN CLEAR DRAW RUN PRINT PRINT RANDOMIZE COPY DRAW DRAW DRAW RETURN CLEAR RETURN CLEAR RETURN IF RUN POKE RUN CLS COPY COPY CLS CLS COPY DRAW RETURN RETURN CLEAR RUN PLOT PLOT RANDOMIZE DRAW DRAW CLS DRAW CLEAR DRAW CLEAR CLEAR CLS RANDOMIZE PRINT RUN IF COPY COPY DRAW CLS CLEAR RETURN DRAW CLEAR CLEAR RETURN IF SAVE PRINT IF DRAW COPY CLS IF CLEAR CLS DRAW CLEAR CLEAR RANDOMIZE SAVE RUN IF RETURN CLEAR CLS DRAW CLEAR DRAW CLEAR CLEAR DRAW RANDOMIZE SAVE RANDOMIZE DRAW COPY CLS IF CLEAR COPY CLEAR CLEAR RETURN CLEAR IF RANDOMIZE SAVE IF RETURN CLEAR IF CLS COPY CLEAR DRAW RETURN CLEAR DRAW IF RANDOMIZE RANDOMIZE DRAW COPY COPY DRAW RANDOMIZE CLS RETURN DRAW CLEAR CLEAR DRAW RANDOMIZE RANDOMIZE CLS CLEAR COPY CLEAR IF IF RETURN COPY DRAW CLEAR COPY DRAW CLS CLS CLS CLS RETURN RETURN CLEAR CLS CLS COPY CLEAR CLEAR RETURN CLEAR CLEAR DRAW IF CLS CLEAR RETURN RETURN COPY CLEAR IF CLEAR COPY CLEAR COPY RETURN CLS DRAW DRAW CLEAR COPY COPY DRAW DRAW CLEAR COPY DRAW RETURN COPY CLEAR RETURN CLS DRAW RETURN COPY RETURN RETURN CLEAR DRAW RETURN RETURN RETURN COPY RETURN COPY CLEAR CLEAR DRAW RETURN RETURN COPY COPY RETURN CLS CLEAR RETURN CLEAR RETURN RETURN CLEAR CLEAR CLEAR CLEAR RETURN RETURN CLEAR CLEAR RETURN CLEAR RETURN COPY COPY RETURN RETURN CLEAR RETURN COPY COPY RETURN RETURN RETURN RETURN COPY RETURN COPY RETURN COPY RETURN RETURN RETURN COPY RETURN RETURN COPY RETURN CLEAR COPY COPY RETURN COPY COPY COPY RETURN RETURN RETURN RETURN COPY RETURN RETURN RETURN RETURN COPY RETURN RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY RETURN RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY #*..03:>BHMSZahmmpsvy|©©©©©©©©wsvvxxwtlgbVZ1<tR CLEAR 4VAL$ OVER [K] GO SUB #x COPY [P] MERGE INT [T] ERASE ▚ATTR STOP ▝ ERASE LINE [E] CIRCLE [E]SCREEN$ ATN RESTORE RESTORE INPUT [M][D] DIM BRIGHT MOVE .[B][N]▟ STOP CLS INK IN LINE [B] DEF FN INPUT COPY SGN [A] PAUSE CONTINUE [G]PEXP SCREEN$ PEEK OUT REM AHATTR FORMAT 7 PAUSE CHR$ SCREEN$ OUT F& INPUT IF NEXT VAL #+ LPRINT REM LET SAVE 0(H#=T/g#6tSK©dj"©L1©©©EjTY©f' INPUT kOB NEXT CIRCLE ![H] GO TO BEEP OUT PI[G]USR VAL [H][O]ATN AT STEP [Q] MOVE [U] LOAD SCREEN$ CHR$ ATN ▜FN FN [U][T] LIST ATN FN RANDOMIZE [N][A]IN BRIGHT RND DEF FN LEN [T][M] FLASH VERIFY TAB [J]CODE LPRINT BORDER NEXT REM BEEP OPEN # PAPER LPRINT !IN OR ASN <=7<> IF PAUSE POKE $K[L]I CLS 2xPI@E. LOAD STEP ©-7 BRIGHT BORDER .k" CLS CLOSE # FLASH w7[U] AND %/E FORMAT FORMAT @ DIM H DIM LOAD FOR OUT OPEN # INPUT LET CLEAR STR$ OPEN #. STEP PRINT BORDER PLOT PAUSE IF SAVE IF DATA LINE PRINT IF LPRINT LET DRAW LIST FOR ABS POKE BRIGHT N OUT + FOR % LPRINT *BIN ERASE PLOT FLASH ASN STOP USR OUT SQR EXP OUT LN SCREEN$ LLIST PAPER NOT CHR$ >= STOP RUN OR [T]BIN VERIFY STOP NOT GO TO OUT PI LIST INPUT " PAPER LPRINT BRIGHT RESTORE %%AT PRINT @/ OR CLS =Y-`% RANDOMIZE PAUSE R}[O] FLASH E©HF STOP 0% RESTORE NEXT &$ /B$SQR IF 9%% PAUSE BEEP +G. MERGE FOR " LLIST -4 FORMAT PAPER @# LOAD STEP $ SAVE FORMAT F DATA CLEAR RETURN DRAW FOR CLEAR NEW GO TO FOR DRAW INPUT $ LLIST FORMAT CLEAR DEF FN , RUN SGN 2 CLEAR DRAW BEEP ./VAL$ [T]AT VAL$ OPEN # SAVE BIN MERGE PRINT <> BEEP $ DEF FN VAL PAUSE STOP INK BEEP CHR$ CIRCLE MERGE SAVE RANDOMIZE <% POKE 53P OUT RESTORE "OE? GO SUB CONTINUE )f: DIM FOR 9;5 CLS PAUSE 4+9 RESTORE PLOT 3/% COPY INVERSE 70& FOR I, DRAW RETURN RANDOMIZE RANDOMIZE (!# PAUSE IF IF ( LET INPUT CLS + COPY LET INPUT COPY READ = PRINT CIRCLE INK READ 1CODE 0 NEXT RUN NEXT INVERSE NOT ! RUN INVERSE LIST COPY RUN PLOT >=CODE INPUT LET AND LET RESTORE INPUT NEW NOT NEXT BRIGHT >= DRAW DATA MERGE CIRCLE INT <> CONTINUE OUT DIM RANDOMIZE BEEP FORMAT LINE REM GO SUB BEEP RETURN CLEAR LET PAUSE COPY LOAD FLASH RETURN PAUSE $@ OUT CLEAR )& POKE G6.L* LET *& CLEAR RANDOMIZE + OVER GO SUB FOR LET $2 DATA ( INPUT PAUSE RESTORE PRINT P. PLOT PRINT ' NEXT PRINT POKE DRAW NEW CLS GO SUB NEXT 8 DIM LIST SAVE CONTINUE ) LOAD MERGE 3 OUT # LOAD OPEN # FLASH INK <>& LLIST CLOSE #STR$ SGN # COPY LEN FORMAT FOR TAN DRAW SGN SIN CLS VAL DEF FN FOR OVER INPUT RANDOMIZE VERIFY CAT STEP INK INPUT IF COPY BRIGHT FOR RUN % PAUSE LET POKE & NEXT CLS PAUSE POKE PRINT ! PAUSE NEXT (" PRINT "2#"9'# CLS PAUSE LLIST BORDER GO SUB GO SUB LPRINT OVER LINE CLS <<>+ CONTINUE READ % VERIFY IF F INK SAVE $ LIST STEP NEW RUN . PAPER PRINT = LET OVER COPY REM PAUSE * CLOSE # NEXT ) FOR MOVE RANDOMIZE CLEAR STOP COPY RANDOMIZE READ LOAD SAVE FORMAT READ FOR LOAD PLOT LPRINT >= CAT POKE BORDER BEEP GO SUB STOP LINE PAPER GO SUB STOP CAT INVERSE POKE OVER PAPER COPY LET CIRCLE FORMAT READ GO SUB NEW REM LOAD PLOT CLEAR GO SUB LET PLOT DRAW LET FOR GO SUB SAVE " PAUSE COPY COPY LET PRINT LOAD STOP LET 3 RETURN GO TO BORDER REM .) RETURN NEXT '8 PRINT 759 LPRINT #$ RANDOMIZE POKE +- PLOT BORDER CONTINUE CLS PRINT BRIGHT INPUT CLS CLEAR READ DIM COPY RETURN INPUT RETURN CONTINUE DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ")-.029=AGKQX_fkooru{|©©©©©©©©ytvvwxwtmidYZ?7aS OPEN # CIRCLE [T] FLASH AND SQR FORMAT [H]K[U] DIM [O]PEEK [N][T]ACS CODE [P] BORDER INT STEP ▚ THEN ▖AT ATTR BIN LOAD STEP ATN ▞ INVERSE MOVE OVER ▘ PLOT LPRINT NOT DEF FN [O]ABS STOP RANDOMIZE OPEN #[L] PAPER FOR PI BORDER B LPRINT VAL SGN ERASE DIM PAT [L]<= RUN . IF OPEN #VAL$ FORMAT (/ CLS SAVE RUN USR GO TO & FOR DIM INPUT <& POKE SAVE )'> 6O7Y81]a!>©km.©]5©©©//`Q©u%% PAUSE UR POINT BORDER < LLIST CHR$ FORMAT LPRINT ▖ CAT [H]RND[E]LN SIN [N][O]COS SCREEN$ <=▞ CAT ▚[H] MERGE BIN CODE LN [G]▝INKEY$[P]POINT [P] BRIGHT AND FN REM ASN [F]COS MERGE SIN >=EXP SCREEN$ [N]<> OPEN # DATA NEXT GO SUB OVER MERGE BRIGHT INVERSE $ CIRCLE LINE INT IN ! BEEP LIST PRINT NEXT J ERASE STOP B#c8SQR CLEAR 1A4 STOP LIST lH0 INPUT CONTINUE Y6 CONTINUE INK RUN RK INK ACS %A STOP CAT POKE / COPY FORMAT INVERSE *& POKE LET INPUT LPRINT READ GO SUB GO SUB OPEN #, LLIST LOAD BORDER PRINT NEXT PLOT SAVE SAVE DIM ERASE GO TO COPY CLEAR STOP GO TO IF PLOT REM >= DRAW DIM @ IF &$ PLOT COS CONTINUE CLOSE # TO LIST RESTORE PEEK FLASH <= PAPER <=ACS INK BIN AT MOVE LPRINT >= AND <= BRIGHT LOAD ERASE TAB USR DEF FN STOP <> OVER CONTINUE LN LPRINT GO TO % LET OUT LLIST DATA NOT LLIST *P" INK LET CLEAR 3Q8,V3 CLS PRINT 0n!EXP STEP yTG! BORDER (( GO TO GO TO $ +;- INK RESTORE *#( OVER IF ?1# OUT READ GO SUB ( OUT CIRCLE 1/ RETURN RANDOMIZE COPY $ RETURN BEEP / FOR RETURN RETURN CLS RUN RETURN GO SUB COPY DIM LET LIST DRAW GO TO IF RANDOMIZE INVERSE ERASE NOT CLEAR LLIST 5 MOVE [S] PRINT USR POKE COPY MERGE NEXT >=<> RANDOMIZE RUN MERGE TO NEXT ERASE ERASE DIM LN READ RESTORE CIRCLE STOP LINE MOVE COPY $ INK ERASE LOAD PLOT +*" CLEAR ')K! GO TO STOP BGA' RANDOMIZE GO SUB ]F POKE NEW "85$ IF NEXT /%4 IF NEXT 1 BORDER RANDOMIZE ))$ PRINT 03 DRAW RANDOMIZE COPY !* DRAW CLS RUN & SAVE NEXT FOR CLS 2 INVERSE RESTORE READ 3 LINE LET ! RUN SAVE READ FORMAT READ GO SUB IF RANDOMIZE NEXT RESTORE CODE POKE POKE PRINT FORMAT BORDER NEW PRINT INPUT <= DIM LLIST TO LOAD INPUT VERIFY CIRCLE DEF FN AND CLS LOAD STOP BORDER POKE LLIST ERASE CLS BRIGHT LPRINT LIST FLASH POKE DRAW CLS GO SUB PAUSE RESTORE POKE COPY RUN 6' INPUT RUN ( IF RETURN 19=5-/:# RANDOMIZE !- COPY ' FOR REM NEXT RANDOMIZE CLS ) PAUSE & IF POKE LET FOR 8*- RETURN " CLEAR POKE CLS IF POKE DRAW PAUSE NEXT 9 IF PAUSE BORDER DRAW INVERSE PRINT $ NEXT INK RESTORE ![K][E] COPY [I]VAL$ MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !© CLOSE #~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE GO SUB LN LLIST INK CLS <> REM VERIFY REM VERIFY VERIFY LET RUN MERGE CLOSE #LN <=<> RETURN RUN CHR$ NEW VERIFY ACS FOR RETURN OR BIN CLS RUN OUT GO SUB NEXT LLIST DEF FN CLEAR INVERSE MERGE DATA PLOT RETURN NEW REM IF CLEAR SAVE PAUSE NEXT % IF CLS IF LET CLS COPY SAVE RETURN SAVE COPY LET %! RANDOMIZE DRAW ,(@2!"# SAVE CLEAR 9 GO TO DATA RETURN IF GO TO COPY 0 FOR IF LIST DEF FN RUN CLS / CIRCLE & COPY LLIST [Q]' LET INPUT 2 CONTINUE LOAD VAL RETURN PRINT LET GO TO LOAD , RESTORE PLOT NEXT LIST " RESTORE FOR PLOT BEEP NEXT COPY NEW RANDOMIZE FOR GO SUB DIM INPUT PRINT DIM STEP THEN CONTINUE INPUT CIRCLE GO TO NEW STEP CIRCLE FOR DATA CAT CIRCLE LIST RESTORE BEEP PLOT POKE DATA ERASE OVER RESTORE CLS INPUT NEW LIST PRINT CLS PRINT $ RETURN CLS REM CLEAR PRINT POKE PLOT @ CLS NEW SAVE LET IF / LOAD PAUSE DIM +PEEK PRINT 5 CLEAR .6/ INPUT $ POKE )! RETURN LIST RANDOMIZE [Q]P RUN [S] PLOT STOP FOR e COPY BORDER DIM PAUSE IF LET RUN COPY DATA GO SUB CLS RETURN NEXT GO SUB BORDER LOAD DRAW RUN INPUT GO SUB PLOT FLASH PAPER DIM NEXT POKE CIRCLE CONTINUE RETURN INVERSE FLASH GO TO FORMAT OPEN # REM CONTINUE PAPER INPUT FOR FLASH READ POKE FOR OPEN # OUT P SAVE GO SUB SCREEN$ FOR BORDER PAUSE RUN INPUT REM POKE P' LIST LIST FOR CLEAR DIM PLOT RUN BORDER RANDOMIZE SAVE RANDOMIZE RETURN RUN RETURN PLOT PAUSE P DRAW PAUSE [E] COPY IF CLEAR [Q] NEXT RUN RETURN FOR LET DRAW RANDOMIZE LPRINT LIST IF INPUT PLOT SAVE SAVE } NEXT @ RANDOMIZE FOR IF RUN GO SUB P RETURN INPUT IF REM SAVE IF CONTINUE SAVE CLEAR RETURN RETURN COPY RETURN GO SUB CLS IF PAUSE FOR FOR BRIGHT [Q] NEW ▝ RANDOMIZE DRAW OVER READ CONTINUE LOAD LIST READ LPRINT CLOSE #@ STOP CLS INPUT OUT OUT STOP DATA [S] PRINT DIM NEW PLOT RANDOMIZE CLEAR DRAW PRINT INPUT CONTINUE LET 0 RETURN DRAW LN PPEEK u DRAW COPY RANDOMIZE ~▜ IF @R PRINT POKE NEXT CLEAR IF DRAW DRAW ; IF PAUSE PRINT COPY RETURN CLS GO TO LET E CLEAR [N]U[Q]@IN LET SAVE !B .( DEF FN INPUT PRINT Pf CLS BRIGHT PAUSE CLS IF RANDOMIZE ▘ LET GO SUB PAUSE POKE LET NEXT SCREEN$ RANDOMIZE RETURN OVER IF POKE REM INPUT COPY CLEAR PLOT NEXT STOP RESTORE POKE BORDER NEXT IF RUN SAVE PRINT PRINT BRIGHT VERIFY REM INPUT LPRINT CONTINUE LPRINT STOP RUN DIM LPRINT READ FOR PAUSE LOAD PLOT P PRINT LLIST STOP LET IF INPUT RESTORE LET GO SUB RESTORE [H] DRAW PAUSE PR COPY DRAW ATN FN [Q] PRINT REM CONTINUE RANDOMIZE DRAW PLOT COPY CLS IF IF PLOT PAUSE CLS SAVE [Q]X RUN CLEAR CLEAR z PLOT RETURN IF CLS RETURN DRAW PRINT RANDOMIZE OUT CLEAR RETURN PLOT FOR SAVE POINT VAL *.U# RETURN P CLOSE # STR$ RANDOMIZE LET GO TO DIM GO TO RANDOMIZE F CLS STR$ DIM INPUT RETURN ATN PLOT RANDOMIZE RANDOMIZE 7% IF POKE RUN E| PLOT BIN PRINT RUN COPY QPAT PRINT STOP LIST RUN LET ? INPUT LIST B REM BEEP NEW GO TO CONTINUE INPUT GO SUB INPUT P CLS COPY GO TO GO TO REM GO TO PLOT IF LOAD NEXT PA RETURN RETURN RUN FORMAT ▛(▗ PAPER LIST LIST TAB @ DRAW CLS CLS CODE SAVE POINT * POKE IF a GO TO (E OUT R DRAW [M][A]* DRAW READ 7 LOAD [R] LINE [S] DIM RUN PLOT RANDOMIZE BAo SAVE RUN # DRAW LET PAUSE >=E& OUT [Q] COPY IF [I] SAVE RETURN A COPY RETURN ERASE EXP SAVE NEXT J COPY ( SAVE CLS IF PRINT CLEAR @& CLEAR RUN POKE CLEAR LIST LOAD IF ( PAUSE PRINT RANDOMIZE RETURN LIST STOP LOAD SAVE INPUT CONTINUE CONTINUE ( LPRINT INK FLASH GO SUB GO SUB CONTINUE STEP GO SUB CONTINUE REM PAPER INVERSE REM GO SUB ▜ LIST RESTORE NEW GO TO LIST SCREEN$ INVERSE [J]# POKE LIST LET NEXT RANDOMIZE IF CLS RANDOMIZE RUN IF _ PLOT PLOT 9[S] CLS RANDOMIZE PLOT jUSR u LOAD INPUT PLOT IF CHR$ MOVE CLS RUN SAVE "Pm CLEAR RETURN jTQ[Q]JP.<= CLS SCREEN$ +, RANDOMIZE RETURN RETURN ▘C DRAW PLOT LET RUN CLOSE # ERASE OPEN #[U] RANDOMIZE CLS [ RETURN U1 RUN NEXT CLS SCREEN$ % CLS REM FOR GO SUB FOR OVER OUT FOR @P RANDOMIZE POKE VERIFY OVER LPRINT REM LOAD [S][Q]PI LOAD LET FOR BORDER BRIGHT INPUT LET U[E]S PLOT 9 IF SAVE [C]*LN >= CLS SCREEN$ [S] RANDOMIZE q RETURN COPY z AND Pq DRAW COPY © DRAW CLS QH NEXT RUN yW POKE SAVE )@$ RETURN CLEAR & RETURN J FOR RANDOMIZE IF , RUN IN @ASN `DJ DRAW o COPY RND[S] COPY PLOT PYX COPY L([Q] FOR COPY CLS RUN CLS <> LIST UA NEXT COPY ~ GO SUB MOVE LEN NEW OUT REM PRINT RETURN GO TO CONTINUE LLIST DIM LIST POINT ▘>= LOAD PAUSE LET LOAD LOAD R PRINT RETURN DRAW ▟ SAVE SCREEN$ SCREEN$ [L]PEEK [H] RUN COPY JATTR ▗*[M] CLEAR CLEAR O DRAW POKE PRINT SCREEN$ [E]e RUN T BORDER IF AND j OR RANDOMIZE SAVE $" PAUSE OR * OVER IF ▙U*URNDBIN IF SCREEN$ T<=pCHR$ DEF FN uP}Q COPY STEP C LPRINT CLEAR THEN [% RUN LET PRINT y LIST LIST LET FOR GO TO REM LPRINT DIM POKE GO TO NEW RESTORE GO SUB POKE [A]STR$ POKE POKE GO TO FOR NEXT NEXT PAUSE SAVE (SCREEN$ RNDYS IF RANDOMIZE SGN RETURN @SCREEN$ 6 CLS MERGE CHR$ ▖ LIST B CLEAR CLS K LINE CLEAR RUN LIST WRNDSCREEN$ RETURN Cu!mM RANDOMIZE CLS @) OPEN #j CLS * RANDOMIZE RNDTAN @e REM PEEK RETURN UU IF PEEK PAUSE 6U[L] DRAW RUN RANDOMIZE p@QnB DRAW 9(hPEEK INVERSE RETURN pFN RANDOMIZE LOAD PAUSE PRINT PEEK CODE REM LIST GO TO LPRINT BORDER NEXT POKE PAUSE GO TO BORDER STOP GO SUB LET GO SUB LOAD LET ▘ NEXT LIST DIM GO SUB ABS NEXT RANDOMIZE S)[T]S SAVE U[A]A▘ RETURN CLS ZFN Q^>=[B]SCREEN$ LN <= CLEAR PRINT LOAD A[Q] CLEAR [A][R] PRINT ABS SAVE [S] P COPY CLS CIRCLE SAVE RETURN !D CLS DRAW POKE DRAW }Aa LINE (}JAC:E RESTORE COPY [G] CLEAR CLEAR FOR E[H] DRAW RETURN TO RANDOMIZE POKE BRNDhABS VAL$ [Q]@S|BIN RETURN MERGE U ▜ DRAW VAL [U]h▘FUSR INPUT FN NEW LLIST GO TO RANDOMIZE PLOT INPUT DIM DATA NEW BIN b(5 LET <> REM INPUT UU CLS ▚Z%PSCOS FN >POINT CHR$ > CLS # RUN CLEAR DRAW RESTORE EINT NEXT NEXT RETURN !PEEK RUN PLOT 0ARNDPEEK -c[Q]SCREEN$ [N]:" PRINT ABS ▙)RND[B] IF IF 1 CLEAR U@PEEK COPY IF PRINT CLS INT [S]R▝a>=l▗PNOT COPY %E NEW !| CLEAR [S] PAUSE RANDOMIZE @POINT LIST LOAD DIM GO TO LOAD READ LPRINT INPUT RUN PAUSE LOAD GO TO RESTORE PM BORDER LET THEN BIN GO TO CONTINUE + LIST POKE POKE PLOT RANDOMIZE SAVE LPRINT PEEK [I]VSTR$ B>= PLOT DRAW /FN [U]/PEEK RANDOMIZE COPY [U]@ DRAW CLS LOAD PAUSE DEF FN [Q]' PRINT PI TO PEEK ` CLS 4,E A POKE PEEK LINE SAVE #(xFN POKE TAN LINE ▗*CHR$ PLOT { REM `; PAPER E[R]▘@I_ABS DRAW INKEY$ NEXT IF P PLOT GO SUB LOAD INPUT GO TO FOR LLIST READ LOAD RUN DEF FN DIM DATA BORDER LOAD GO SUB GO SUB | NEXT PAUSE GO TO GO TO PAUSE C POKE IF IF NOT VAL SCREEN$ POINT PEEK GO SUB Ui LET USR IF gBIN iP IF PEEK CLEAR [S]Po CLEAR DRAW LIST PRINT H[F]gPOINT COPY %$; RUN CLEAR INT T©# NEXT ▝eX PLOT [S] RUN @▝PEEK JPEEK IF CODE [R]CODE PICHR$ USR TAN '< POKE PLOT }$TKEXP [K]<>[E]@} DRAW NEW PEEK ! EXP POKE POKE DRAW ▗Ag REM GO SUB GO TO LPRINT RESTORE <>EXP CONTINUE READ FOR LET ATN NEXT FOR ▝J OR PAUSE bE▞ SAVE RUN SCREEN$ 348[D] COPY [G]TAN CLS IF RETURN POINT B[M] IF PAUSE CLS jT[U]EXP SAVE INPUT ▟ RETURN Q DRAW LLIST J>=yBASN FOR xT RANDOMIZE GO TO COS PEEK DRAW > INVERSE P?o RETURN J DATA COPY <>▜[E]>=BIN [R]#R RANDOMIZE DRAW INKEY$@ MOVE SAVE GO SUB LET NEXT INPUT [Q] PAUSE CONTINUE LLIST PEEK PLOT PAUSE FOR T RESTORE DATA SQR LIST LIST NEXT Q GO SUB PAUSE PRINT dU[E][Q] PRINT ABS CLS 2C?% RANDOMIZE SAVE <[E]USR DSIN RETURN LINE JT▝ RUN PEEK k<;o*l▘CHR$ SCREEN$ c:ABS ▖>=x' DRAW Rd~SIN [Q]▘ MERGE [F];BjFN CONTINUE PEEK CLS INKEY$;IN CLEAR 7T} LOAD IF 0 DRAW P▝ RETURN BRIGHT +(RND LET PLOT ABS PRINT k RETURN ( INPUT LET INPUT SCREEN$ REM LPRINT REM PLOT NEXT GO TO GO SUB FN 27 PAUSE ATN LOAD P▝ PAUSE [B]ASN xO LLIST T IF RUN [E]8 LLIST ▖:2[A]Px LINE MERGE IF E▜▖[M] PAUSE LET FSCREEN$ (IN CLS PLOT t[Q]R OVER }.b[R] RETURN IF ▝"7 DRAW PRINT RETURN PEEK DA LIST PEEK 1S[S]* LET RANDOMIZE COS THEN [B]CHR$ IF LPRINT ▝TAB Ta RETURN x'T(PEEK COPY RC# NEXT LIST POKE RUN [Q]LN INPUT GO SUB GO SUB RESTORE DATA INPUT SAVE POKE [D] GO SUB DIM READ BORDER PEEK *D REM DIM © NEXT ▗▙ RUN COPY RETURN CAT PRINT SAVE a▛9!©<= RETURN SAVE RUN FORMAT CHR$ [U]}<= PRINT U MOVE cSCREEN$ PLOT '[A]▙ COPY *▞( SAVE OPEN # IF B" RANDOMIZE AND ERASE TAN IF COPY COPY z▖P"CHR$ IF IF <>CSQR [H]PEEK DRAW FN P RESTORE d`e RETURN B CLOSE #[B][R]%[R]-xy▘FN SAVE LIST NEXT LET LET PAUSE b FOR FOR NEXT RANDOMIZE PLOT RUN GO SUB POKE J▗ NEXT PRINT POKE *T[K][H]COS 2s STOP C`LEN |NOT NOT FN PEEK LNOT POKE / ERASE [U] PRINT NOT COPY ▘[I]u RUN RANDOMIZE D`[O]SCREEN$ REM [M]'z*RXD[E]m[P]<}[M]▗/` MERGE ABS CIRCLE COPY P OR TO PUog CLOSE #[F] SAVE @FN U[H] RUN RUN PLOT *! LOAD LET RANDOMIZE [F]TAN Z[I] ERASE PLOT DRAW ▗USR ▚HiFN ={ READ jBIN ▝4 CLOSE #`u[M] VERIFY $ RUN IF AND .[I][Q]COS INKEY$!0▚▛:[E]STR$ DRAW dSCREEN$ LOAD X%[F]PI!^YSTR$ `©sSCREEN$ ▚ AND NEW M▖ OPEN # CIRCLE I7a]>=Y[I] MERGE PEEK ▙,Q6y@ LPRINT BRIGHT [I]O[S]q"0 LLIST ▖Oc LINE J[C]VAL$ IF [O]i[K]NOT U TO ▖ OR 9 BORDER [K][K][J][N]n[J]RR DRAW zgq+*RND▜+[Q]JzwCOS fz STEP YDsV >=^H▚EXP 6j PLOT ? LINE EXP gb OR 2 FORMAT fD[K]FCODE ' OR " RETURN Ry CLEAR TO `,EXP RNDD[S] RETURN [M]fD(%▝INT U[F] CLEAR 95UILeRND# CLS ZT LPRINT ACS LLN IF [U]JJ# TO (FN 4ATTR IF CHR$ d5 GO TO T STEP INT L;POINT [P]8U[K] SAVE DRAW [C]SCREEN$ ▖6JE COPY t CLEAR T8e]LTAN R"▞ DRAW CLS } CLEAR IF $ RANDOMIZE F MOVE INKEY$iSCREEN$ ( OR $J MERGE [L]0~ CONTINUE 5bB STOP BDm CIRCLE SCREEN$ [R] ERASE 1aaSCREEN$ PIEXP SCREEN$ SCREEN$ mx' CONTINUE [R] PAPER DRAW ▟[F]E OVER ▛Er IF ▛( LET ^ DRAW PLOT FORMAT [A] LPRINT IF = MOVE [S]h1 READ `[K]J0▜F COPY SAVE SCREEN$ jA VERIFY SCREEN$ ,ASN *U POKE S[Q]&K CLEAR SAVE 2[U] RANDOMIZE ? IF GO SUB RANDOMIZE EXP CLS RETURN RUN CLS CLOSE #▞ STEP FN - CLOSE #. COPY STR$ @"^ RANDOMIZE RETURN 5[C] GO TO RETURN NEXT pEqt)▘ATTR CLS PRINT CLS Y@FN ▛2 SAVE 4 DRAW JTAN 2 SAVE RETURN FN [I]J RUN PRINT POKE VUz[O]6_/ SAVE GO SUB PLOT - DRAW PNOT PAUSE IF Q MERGE CLS 7<[O] DRAW COPY AU BORDER Oc(▜ RANDOMIZE @ RANDOMIZE GO SUB h RUN PLOT (RNDH▞ LET INT DRAW . CLEAR GO TO SAVE COPY I IF [E]R SAVE 9<= RUN E INPUT CLS FOR PUSR POINT CLEAR PRINT GO SUB Y LET [Q]A DRAW LIST <= NEXT (U LOAD COPY POKE PLOT t"t IF FN FOR o POKE [Q]B FOR DRAW CLS IF RUN GO TO DRAW U PLOT STOP IF STR$ POKE PLOT PAUSE * PLOT " POKE GO TO aZ SAVE L CLEAR (P OPEN # SAVE GO TO PLOT POINT ( COPY GO TO POKE RUN : RETURN ( CLEAR CLS PRINT RANDOMIZE NEXT PAUSE COPY PLOT & LET NEXT PAUSE <
2307 CLEAR LIST FN r PAPER ?8E LIST NEXT POKE NEW REM RETURN LIST PAUSE PAUSE >= LPRINT COS P INPUT TAN READ b"! COPY LET NEXT Po▖ NEXT REM OPEN # LIST SAVE IF REM CIRCLE LOAD RUN PRINT P FOR OUT BRIGHT CLS RANDOMIZE LET + CONTINUE [Q][U]* DIM @ COPY RESTORE CLEAR DRAW DIM SAVE PAUSE LIST DIM [K] CLEAR NEW IF FOR REM RUN '[Q] RUN IF IF INK CLEAR & NEW COPY BRIGHT [Q] NEXT g' RUN GO SUB IF /(& DRAW LET 0 REM SAVE READ RUN RESTORE LIST BEEP GO SUB REM OUT OUT RUN BEEP INPUT LOAD [Q] CLEAR PAUSE RETURN SAVE COPY [F] IF 0% RUN CLS LOAD 4@ LIST RETURN FLASH GO TO DRAW 7 CIRCLE CLEAR P LPRINT DRAW RUN DATA SCREEN$ CLOSE # POKE POKE BEEP SAVE ▟[S] LIST REM RUN (& SAVE CIRCLE LPRINT CLS B FOR 2▘&3 GO TO PLOT <= GO SUB FOR RANDOMIZE FOR M MOVE LPRINT READ LLIST VERIFY REM FOR FORMAT SAVE NEXT POKE RANDOMIZE LPRINT COPY 2 LET CONTINUE 0 RUN /08/ LIST COPY PLOT INK LLIST COPY CONTINUE INK POKE READ FORMAT CONTINUE GO SUB (= RUN PRINT RUN INPUT RANDOMIZE ( LIST NEXT CONTINUE L LOAD DATA 0 SAVE OR ATTR DRAW COPY LET COPY GO TO MERGE DIM CONTINUE IF DATA SAVE ) BORDER >= LLIST FLASH 0 NEXT SAVE LOAD PRINT B[C] RUN NEXT POKE (' GO SUB @( PAUSE PAPER IN CIRCLE [Q]@▜ OUT IN POKE FORMAT DATA COPY OUT [Q] AND LPRINT SQR CAT s RUN COPY )C@$B OUT _!%Q' OUT 0 FORMAT TO [L] PAUSE ' LPRINT @u PLOT USR PAPER VERIFY VERIFY FORMAT $ BEEP P LET CLS 4 POKE BORDER COPY L;` SAVE <>_4 LIST / CLS <> 3USR . USR THEN [I] RESTORE CLS ERASE CIRCLE LIST LOAD INK OUT STR$ READ FOR RANDOMIZE OUT 0= POKE P'</ LOAD LIST COPY N>=<= OR COPY RUN VAL VERIFY [P] LOAD USR SGN CAT LOAD DRAW >= ERASE [B] CAT A PAPER GP )@~P7?4= PAUSE RUN BIN - COPY TAN ERASE COPY (SGN CIRCLE ABS <= LINE IF FORMAT BIN LIST 0 STOP - LIST /@©O5 RUN / COPY ?2$s RUN COPY 5 FOR BEEP CODE OR 4 FOR [S] OPEN #STR$ ABS COPY LIST CAT [E] PAPER OVER AND % SAVE GO SUB ./<=[Hg[B]? CLS GO TO /; CLS NEW OUT /IN DATA BORDER SGN CIRCLE )< 0? CONTINUE / STEP SCREEN$ P THEN 6 FORMAT '# BRIGHT CLS RANDOMIZE LOAD KKC RANDOMIZE POKE RUN ( POKE COPY GO SUB GO SUB : LOAD OUT COPY ' READ POKE STOP O+@ DATA " BEEP $ OUT COPY ATTR >= CONTINUE IN ATN (C( CONTINUE FORMAT LPRINT CONTINUE SAVE ATN FLASH OUT *,; RESTORE O FOR ATN * RUN SAVE ' BORDER Xo REM FOR © CONTINUE ▝@9 RANDOMIZE CONTINUE DRAW ▜>= INPUT ▜STR$ Q OUT BEEP [E] COPY COPY ▝{s▘[B]▞x▗▚v▘{▝ly~{v{~▞▙}{▟▜▚▚▞{▘}|©|©xv~{{|~▘▝▘▗▖▚▚▜▘▗▗{©~{{||~~©~©▝▝▘|v▞pr[B]©~z~▘[B]lf~ THEN @ AND wk READ 4%SGN E▙[D]pboVAL$ IRND[U]c GO TO 1©{ CAT THEN a$A STOP s[E]%▘ACS .©POINT >= ERASE XD[K]FN 0{EXP I)>LEN OR ?([B] CAT RND7SGN [Q]?efCHR$ FORMAT NsiWNI) ▙CHR$ t[F]TAB PI CLOSE #IN zb{[D]W5AsQ@.g[N]COS STR$ VAL [M] AND FLASH CHR$ ▟MII%BD7M©[P]}}TAB PIPOINT [D]▝nqtgM8<crmfNcz[N][I][I][Q] LINE [N][A]/SSW^LCQQat©▙[B]POINT ACS [L]▗nZ/WGSPNm▜▗[A][E][F]RND[U][I][B]▚ptochdgltz©©▚z▘▟[C]z{©ynpv{vqhpxs[E][H][M]▞▖▚▚▚▗▗▗▗▘▝▘▝▘▝▘▗▘▝▘▝▝▗▗▗▗▘▘▝▘▘▝▘▝▘▘▘▝▝▘▘▘▝▘▗▘▘▗▘▘▘▝▝▝▝▝▝▝▝▝j}wssxv[F]ASN [C]▝▚|_ NEXT INK RESTORE !2[A] COPY [K] INPUT MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !w~,~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE FN GO SUB LN LLIST INK CLS <> NEXT STEP t© CLS v![L]X GO SUB VAL | RETURN VAL >=v CLEAR GO SUB X COPY 6UJ"@"(VAL 0[L][I](~ NEW LN BRIGHT CHR$ ©[A]2CODE ©8EEXP BRIGHT BIN ©[B]2LEN USR PLOT #K[L] FLASH y VERIFY /O0 MOVE <>x<>y<> . COPY ▘INT COPY !" READ COPY [P] DRAW )VAL$ LPRINT DRAW ©SI4 BORDER 5 SAVE uA" LPRINT CAT LPRINT PLOT T DRAW CONTINUE "? RANDOMIZE COPY USR [A]@▘DU▖CPOINT `dPe^ LIST x4^? LIST LINE / COPY ^ RETURN D DEF FN FN F@3 OUT dPOINT PFN - LPRINT [A][Q] MERGE %kTAB 1U*v+[B]e CLEAR ▝e2U_ COPY @w[A]© ERASE a[R]$ LIST Gk DRAW ^ MERGE ▝ PRINT VAL$ vp COPY M INVERSE DRAW COPY [U] COPY q] COPY ? COPY ? OUT LPRINT ABS 9NOT COPY cUSR [C]FN ▜10[K]LEXP BEEP INKEY$ COPY CLOSE # COPY LPRINT [B]m COPY COPY `[Q]R NEW IN RUN LOAD ▘ OVER COPY ©[S]SIN LINE @V▙P CIRCLE <>%mACS 0[A]SCREEN$ |;W RETURN [B][Q]CD )SCREEN$ SCREEN$ IN *k▖ COPY RANDOMIZE P CLEAR [Q]PH CONTINUE IRND RETURN ?@P▝SCREEN$ ;COS USIN USR FORMAT ?N FORMAT 3} SAVE LINE LINE TAB INT `<=pF REM RUN LPRINT LET ▙| COPY CAT RETURN RETURN lg/ COPY [P] CODE COPY NOT COPY FUFN QSCREEN$ RNDUAT U▜T$1*POINT UJ2RND©vW CLS [U]© COPY ▜6^ GO TO I COPY ~ COPY C[B]▗}IN COPY RUN @x COPY 9`[C]USR COPY EF(P POKE CHR$ F[U] OUT 1▙PEEK _ FORMAT $ATTR DRAW [R]PEEK HIFN COPY [Q]@ RUN COPY [U]© CLS [I]COS C RETURN POINT [Q]^3Pj[J][K]ATTR TAB { COPY BEEP [L] STEP SGN COPY ▚ATN OUT COPY zs COPY t COPY [U]*?B©NM COPY )4`INT [O] NEXT COPY SCREEN$ X MERGE fATTR Tj▞'ATTR AT 25YSCREEN$ Q ^SCREEN$ STEP EXP ©? LET /[S]I©USR COPY ! THEN DRAW D`CHR$ 8 / IF CLEAR ©w NEXT ▖STR$ JATN RCHR$ [I]^'RFN `▘TAN o0 RETURN T|/ MERGE RETURN USR PyD▖)[Q]SCREEN$ SCREEN$ nF& DIM COPY DATA COPY CLEAR 0 DIM BRND RETURN >▘TAB NOT @[Q] COPY 5Klh LET FORMAT STEP LOAD , LET RETURN LINE INT IN ▗ LINE COPY yt COPY [C]INT COPY RESTORE LEN REM [S]@X[I]D2jCOS U^U[K]T^iATN W COPY SAVE COPY LLIST OR [A]R PRINT FOR OUT z FLASH HR CLEAR N[D]# NEXT SQR [P]E@NSCREEN$ LEN POKE ?USGN : COPY kVAL UIhMU=@ COPY T© RUN /BIN LIST SCREEN$ BPOINT B CLEAR ^0^ GO SUB [A]SQR COPY R^n COPY REM r+ LOAD LPRINT LET GO SUB /[I][P][R] OVER [O] COPY B[A]q REM SAVE jSTR$ ABS te2▘ NEW ^DE RANDOMIZE f^+ COPY fATTR ▖▝ LIST [G] LLIST !b DEF FN V FOR BEEP ©K@ COPY COPY CONTINUE COPY CLS [K]J(BIN SCREEN$ A_SCREEN$ ~[Q]USR COPY !% IF SCREEN$ LEN *''Hu COPY FOR / DIM W VERIFY ASN RETURN CODE tSCREEN$ [Q] PRINT "G5 COPY P*[B]▝[U]COS COPY IF L OPEN #C$&F"NOT 1^ LIST ©n CLEAR COPY ^8Dj[H]SCREEN$ ^▝@B LLIST INKEY$ COPY USR [G][A][A]©BLEN ▗ GO SUB [S][H]PEEK [`H:PIN CLEAR ▝tNOT COPY COPY [Q] COPY U@ IN ~ REM DRAW [Q]@ `▗# MERGE U_ SAVE ▘ DATA 5 OUT BEEP COPY INVERSE CLOSE #/ CLEAR SCREEN$ COPY NUP[N] COPY OUT LIST GO SUB g OUT COPY >} COPY SAVE f COPY I COPY [K] LPRINT D#"COS ▚ COPY ▖VAL > DRAW POKE Ujr<= LLIST ! RUN jAX INPUT CLS BIN ASN SQR m :[M]( RETURN B COPY @ MOVE '[R]IN [Q] COPY n+ COPY RFN SCREEN$ COPY SCREEN$ ( COPY P@+} DIM COPY LINE REM [P]4 COPY PRINT COPY CAT 3 ) COPY <) FOR *FN ▟8STR$ CLS [E] MERGE ? COPY LOAD © LOAD 3V3[@jVk@$C▜ MOVE IN BEEP {ABS XPApAPUE▛4/FN TA< OUT @UZ[O][P]?[F]EbLN COS IF MERGE ©o RETURN [Q] BEEP STEP * CLEAR LPRINT CODE IN 22 DRAW 8*D COPY FN INVERSE /} NEXT © POKE |_ PRINT #(PSCREEN$ MOVE g LIST 6 LPRINT Bu▝F REM FN [U]SCREEN$ OUT ©[Q] PRINT UGRND VERIFY IN FN ? RETURN COPY COPY FORMAT U▘FN SAVE ! LPRINT U@ TO `H//[ POKE 3U COPY *[L])9 OUT COPY FN :CHR$ 8] POKE [C])* GO TO B▝ CIRCLE ** CONTINUE ]DU LOAD OUT J`T+[U]@CQ](©▛©;VAL ` &SCREEN$ [S]6_ CLOSE #SCREEN$ +SCREEN$ IF o*EXP ATTR Q[Q][P][P]R SAVE %x5 CLOSE # REM PRINT X SAVE FORMAT CLEAR W?_[Q]4SPEEK < CLEAR PRINT © IF DRAW IN REM Q COPY [B] COPY NOT DEF FN ▜}$i?C? COPY MOVE U© COPY P IF ATTR CODE _ COPY 4'C LIST < COPY :▜FN READ LIST :[Q]LEN COPY 4 COPY ASN [Q] REM RETURN W[Q]=xCODE OUT RETURN ▘▚F FORMAT ERASE 4 WPEEK © REM $ COPY [I][A]▘3NOT TO MERGE ?*▗ INPUT [G]SIN I,@RND%PIATTR ATN RETURN RETURN [H]/,I;Q DRAW FORMAT iU OUT 0 CONTINUE TQ MERGE CLEAR [Q] QU{ RUN [P][P]CODE NOT 0` DRAW T COPY ▝SCREEN$ MERGE }[H] BORDER COPY VAL$ © CODE DRAW d&[Q]DS]^ CLEAR PAUSE © DRAW COPY LET }P COPY POKE [T]©* CLOSE # G[O]_@1STR$ © CLOSE #▘© RETURN , REM [Q]SCREEN$ NOT ?FN CLEAR OUT BEEP [P] COPY [U]IN ▜ LIST j DIM COPY !FN k SAVE _ CLOSE # COPY ` OR D OUT RETURN CODE % COPY [H]CODE COPY MERGE 9© COPY PAUSE COPY ((=[Q]STR$ [S]VAL$ / IF X[Q] OR COPY LOAD SAVE o$A COPY COPY "▝D@o▝ THEN COPY CLEAR SGN +7PUSR @0 COPY LSCREEN$ [S]U MOVE _ POKE SCREEN$ VAL ©V BORDER ATTR CLEAR COPY ?_▘PS<= CONTINUE @[S] COPY ©SGN ▝y FOR SAVE ' COPY CAT @[S]INKEY$ COPY BEEP COPY POINT @~CODE SAVE 0[U]d[S]~* ~ LET SGN IF ?SCREEN$ IN U] COPY IN READ / CAT ABS 8(6*© INPUT /EXP PRINT U} COPY CLOSE # IF COPY CODE ?0 ▖K LPRINT MERGE EIN COPY PU{ OUT RETURN [R] DRAW VAL K/ REM COPY POKE COPY COPY MOVE [R]IN DRAW ©( COPY <=[P] INPUT POKE COPY BN MERGE PRINT COPY LLIST QDU(▗ POINT C]USR W COPY RUN DRAW MPIN FN COPY CONTINUE @u~V?@fhX COPY COPY P/ CONTINUE MERGE `>PIvUU[S] CLS eIN Pf THEN FORMAT (@(_|& NEW USR D} PRINT BEEP VAL$ PEEK INPUT ©X▘©[ CONTINUE @IN LPRINT ]CODE t}$ MERGE }*[O] POKE ATTR © FOR OUT ?[E]0NOT 5x COPY ▖ RETURN ACS IN RETURN . RETURN SCREEN$ BEEP FN CLEAR © RETURN %TAN ~▜ LIST LN OUT @ATN © LIST + OUT FOR CLEAR F) RETURN CLOSE # COPY T COPY ▛NOT COPY DRAW IN [O] MERGE ©@?]1FN 0 MERGE _s COPY d[I] LET "0F OUT ▝ RETURN * LOAD CAT COPY [*[A]aCHR$ T OUT INT FN pSTR$ [Q]h CONTINUE [F]AT +B.[Q] VERIFY [F]▝ COPY K[Q] POKE SCREEN$ [R]©C▛ COPY CODE BIN ? E[B] RESTORE /▘ COPY PEEK SGN A REM AND k[P] LOAD ! CONTINUE EPT COPY (~RNDw@[R]?SCREEN$ U. STOP RETURN " ▝ REM RANDOMIZE PLOT @ IF G` ET_BIN ZPBEIN IF COPY [Q]?STR$ [R] PAUSE U COPY T▝ MERGE ^[H]S DRAW @[B]? USR BORDER LOAD PRINT RETURN ©[Q] COPY ▝ COPY READ [A] COPY ▝? CLEAR ©b=*SCREEN$ [Q]n CIRCLE ; MERGE @C RESTORE COPY STR$ COPY [R]XIN B▘ OUT CLEAR USR BORDER BEEP CLEAR [M][R]_{]p/ LIST PA5 OUT DIM TVAL$ [P]Aa[F]0[P] COPY @ REM MERGE K RUN LLIST U INVERSE LIST ©▝IN IN $xPIN RNDl COPY |~ NEW RETURN POKE J[I]© OUT POINT ▚?@j RETURN SCREEN$ (▚ OUT M"▖ MERGE CLEAR >[Q] PRINT _PI COPY U@?>= ? COPY RETURN CLEAR _ FORMAT _EXP RETURN ;B[O] CLOSE # COPY ?/INKEY$ RETURN i[U]SIN [S]©INT [F] OUT ,©▖ COPY !8©FN © DRAW RETURN [O] DEF FN Z▛_k RETURN [R] COPY [S],USR + COPY STR$ Cl COPY THEN DRAW [L]X(E OPEN #82ATTR STOP p OUT FN Y[Q]*EXP CODE [Q]*FN [H]_)ABS RANDOMIZE T0h COPY 8" COPY X RANDOMIZE COPY ATTR IF LPRINT ?_?1 ERASE [S] DATA 4FN ( COPY PEEK PLOT RETURN IF P[O]CODE REM ET2▚j@ COPY /CODE FORMAT o COPY FN JIN R_BIN COPY ▘3 RETURN COPY IN RE}?W LINE COPY Pi INK ?SCREEN$ ▘ OUT LOAD COPY RETURN 1[I]a COPY OUT CHR$ READ RETURN ▜ DATA J COPY CLEAR }M<=NOT L COPY BEEP PLOT COPY DRAW IF SCREEN$ RETURN BORDER SAVE LET 2/ SAVE DRAW T OR ▝CHR$ RETURN IN CLS COPY PRINT STOP VAL$ mSCREEN$ PEEK 7©,`[P][R] RUN SQR ACS ▞[F][D]W@ COPY Aw GO TO COPY <=CODE V[H]D LINE <>ATTR COPY SAVE ( READ ▟▚POINT [T]w▝=SGN FOR LPRINT COPY CLS USR [Q]/%ATN [N]% LET CBIN ▗JVAL$ [S][N]©5~5[Q].?J▗SCREEN$ ILN CLEAR CLEAR E COPY _U OUT REM READ W POKE SAVE _ FOR (]_ PRINT LOAD GO SUB c#hIN RANDOMIZE [A]PVAL COPY UITRIN - COPY B[S] COPY PLOT / COPY STOP COPY RUN BORDER IF I▝[U]SCREEN$ ) RETURN x COPY "$ COPY SCREEN$ W COPY PEEK FOR [Q] PAPER * CLEAR COPY [F][E]K COPY LLIST ▜_@TCODE dUSR <= LPRINT COPY [A] LLIST FLASH [H][O]| IF OUT FOR OUT CODE CONTINUE B FORMAT LIST PI(oTAN [U]FN S/ RESTORE {?[P] COPY SQR v▞CP[F]r_ COPY COPY LEN BIN LINE %Ex OUT BIN LINE EXP HSTR$ THEN LET EACS [S]▜}b COPY ? IF CLS jSCREEN$ COPY " READ ATN _`<<|>▘^~*ABS u CLEAR k. CLS TO _ FORMAT LPRINT AND VAL GUU REM ACS ▞ BEEP ©* COPY [B] PLOT CLEAR BORDER COPY UU( COPY _[F] SAVE COPY [S] PRINT CIRCLE OUT COPY ▗SCREEN$ EXP POINT DRAW / LIST [R] COPY TAB ?]▟ MERGE CIRCLE STR$ }AT RESTORE COPY NOT DRAW A COPY [T]LN CIRCLE E@* COPY f STOP >8ffB PAUSE IF ▘ COPY LOAD CLEAR FORMAT p COPY CODE CONTINUE LPRINT B COPY 4CHR$ = COPY SIN <=INT COPY R[A]S COPY PEEK k LPRINT ? CLS B▖[Q]- COPY ▗POINT [Q]T COPY ? COPY [T]d INPUT [U][Q] DEF FN ^s MERGE BORDER ~s PRINT BORDER P COPY LBIN BIN DIM (E COPY SCREEN$ SCREEN$ FN SCREEN$ [Q]K MERGE COPY > DRAW COPY ▘ COPY SCREEN$ uG7[P] READ LPRINT COPY NEW COPY OUT LPRINT USR gSQR RETURN COPY OUT * SAVE _ RANDOMIZE ATN ▗ CIRCLE /[S] SAVE ^? STOP SAVE COPY SCREEN$ BORDER JFN ▜jGUAUTVU COPY DRAW f> COPY TINT COPY [Q]LN ?? COPY sg LIST ~TAN X, COPY READ IF ▚^H OUT THEN C OUT SAVE {@ OUT COPY <>r COPY OPEN # OUT JBIN VAL$ TO g COPY STR$ ©[O]I RUN COPY AT LINE DEF FN JLN ` PLOT COPY _©<> ><f COPY SCREEN$ [F]1t}e▗ COPY VAL `B COPY DRAW CAT SAVE SCREEN$ COPY LOAD COS COPY VAL a COPY [K] OUT tACS OUT OUT ▞b LIST COPY *▗ REM 2 COPY AND "IN <>V▝ COPY SCREEN$ COPY [R] DEF FN _ STOP LINE <[G]BBW; CAT #' CIRCLE QEE DATA [L]UM MOVE TO M]G{ THEN A INPUT FFGBVCODE BFVNSCREEN$ TARND,0((j[J]Qhh(rPISIN Tpp oo[K]+{8hCODE 9u? DEF FN BRIGHT _YU>hP9 GO SUB !UH[U]SCREEN$ !lpAT [L]©Go5 OPEN # DRAW E▜QI^F?pEj DEF FN ?[I]▛jj@ MERGE [M]GIN 5[sd?_7h0ATTR NEW M CONTINUE ASN [B] F=80e[U3A[K]▝I8GSIN INPUT 3H LINE g8 INVERSE COS n RNDrZ BRIGHT E CLS fPEEK BORDER @&ATN Q CLEAR PAPER FyATN ERASE ▖q[A]`~RND_zGxtACS h_ZG VERIFY DATA USR <= RESTORE E COPY ABS @ COPY NEXT INK RESTORE ![G] COPY COPY MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !© CLOSE #~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE GO SUB LN LLIST INK CLS <>/chase-hqmatt furniss / teVAL %queST?-09:guitar3USR @22:pu REM )llbXs<>VAL$ g:44[O] IF ;;80:sne1?LN ;03:OUkick(USR 96:-open MOVE t. GO TO 1(YNOT M19 BORDER [K]% FORMAT Y4:clapjLEN THEN 8 MOVE by FOR a/P4st;1: DEF FN BASS87;ahhchor/vd.=b POKE [Q]e]drum;[H]EXP OPEN #ig PAUSE 2 CLOSE #RNDRNDs FORMAT .VAL dSCREEN$ /.ker[F]0d THEN STEP xXTAN ;coop6; ERASE 76' RETURN z/© !"#$%&)'(/*+G▝M.K. DRAW PI RETURN JAT o0CODE $STR$ $ RETURN *.SCREEN$ pGPOINT :STAN '5 9'' VERIFY Pi LOAD #}[F] POKE /[Q]!%Mg_o` PAUSE TO <© DRAW g/© PLOT EXP AT ©/ CAT CODE [T]©O BORDER }_©/ BORDER ?7©/[C]97?NOT : INVERSE DIM AT ▘ COPY ]U CAT COPY VERIFY BORDER t COPY VERIFY LOAD _EXP INK COPY /©PEEK [M]t[P]PEEK O VERIFY [M]T: CLS O COPY [S]W[P]< COPY SCREEN$ 0 IF ATTR [P] GO SUB INKEY$ COPY a3_[L]7 COPY RUN INPUT COPY COPY ▜ABS COPY ▝ COPY GO TO COPY lCHR$ COPY '`/ COPY W COPY PEEK [A]k COPY ,X COPY ,V COPY @[P]l COPY 0INKEY$© COPY h/[K]//yNWZ COPY COS NEW /_ PLOT PEEK /[P]?▗VAL [E] OUT [M] COPY CODE COPY ©AT 0? CAT LINE USR iUSR v LOAD LIST COPY SCREEN$ SAVE [P] LOAD O/ COPY RETURN ?COS COPY O LIST VAL U COPY |_ COPY VERIFY [M]@PI RANDOMIZE COPY 8NOT ©; PLOT ▗/ COPY RETURN SIN /(_ABS [L]©7, OUT #>SQR COPY AT Y>< COPY [L][L] COPY ▛Y COPY @ RETURN [K] VERIFY , COPY [S] COPY [C]E COPY 8 COPY [C] COPY DPEEK COPY / BORDER / COPY /+DV COPY / RANDOMIZE IN J[H]L FORMAT $7[H]J BEEP ? CLS m[Q] COPY SCREEN$ ERASE oTAN INPUT BIN [Q]FASN © READ LINE J BEEP PEEK LINE SCREEN$ + DATA LPRINT k LPRINT u{ VERIFY _ BEEP ? STOP TAN J7/ LIST STOP [C] FOR RETURN SCREEN$ [S]PEEK COPY RETURN ▟© COPY PAUSE o. COPY @ ERASE RESTORE OUT SOh FOR INT RETURN }AT [J] OR L@a©VAL ?VAL ATN [AT ATN IN OUT BEEP STOP ![P]t[E] RETURN STEP SABS 7 COPY Sn RESTORE [C]j RETURN jIN J[Q]XRND COPY S~ SAVE 6wOw[O]g?}%_*?r.PEEK STOP ?7PEEK <=k[J][H]IN _'BIN ▚?{o[L][P]ABS [H]?.© COPY GO SUB ? RUN CLS OUT ? COPY OUT STOP OVER [P]? COPY 0}CHR$ CHR$ ?CHR$ CHR$ 6IN RETURN COPY PLOT ?K COPY ^? OR j<> COPY STOP CIRCLE ATTR IN ABS [H][L] COPY {[T] FOR ?l>PIRND< COPY THEN TAB SAVE ?[P]<= OR VAL © COPY OUT / FOR ?[P]j BORDER RUN OVER COPY ?{ LOAD COPY ? COPY © RUN CHR$ [6IN KABS VAL COPY ▟;IN GO TO i COPY Ja/ COPY ?-l COPY OPEN # COPY LPRINT Lv REM 'N[/Gi STEP COPY e NEXT ▜[D]_SGN LOAD ba BRIGHT COPY COPY n[Q]NOT /ACS IN ▛ BORDER LEN SGN [H]ABS VAL COPY STEP [K]IN COPY COS LPRINT sYXIN cABS ABS COPY /? STEP [K][P] COPY [K] GO SUB / COPY VAL MERGE PI▝ IF COPY _B COPY IN PLOT CHR$ ?? LET COPY ? STEP COPY hTAB IN @ANOT AT f COPY TAB PEEK [T]▚ COPY w: PLOT AND SGN <=X COPY kPOINT AT /? BORDER POKE /__ LET INT __ RUN RESTORE |_ LET u__ CLS }_fSCREEN$ /[@_SGN VAL$ _+ INPUT VERIFY ?_ LOAD EXP _&^▝?[T]1?:i_0INKEY$c_ABS [H] OPEN # DATA USR as OR NEXT @A[F]VAL$ __ SAVE CLS IN GO SUB UIN nRND OPEN #? FOR IN c CLOSE #/? CLS ABS z__ BORDER SIN ?VAL$ [L]'__©IN _ABS ©_ LPRINT LEN _ LIST n©_3}[L]_SCREEN$ `O LIST OPEN #?IN [G]&©_{©[G]STR$ / OUT ] REM ▚©_ IF GO TO CHR$ S_h COPY /' LPRINT QPEEK pC}_O[C][P];s[O] BORDER /?ABS IN AND Y▛L© NEXT _w OUT _ LIST NEW __o!SQR COS _ RETURN 9_X LIST ©[P]1_^ PLOT _ RANDOMIZE ABS _ COPY IN SAVE IN IN FLASH OPEN #S©sCODE hA.VAL ©?ATTR VAL ~©s^ CIRCLE IN PLOT /IN OUT /©[L] GO TO /?ATN ACS COPY Q FLASH /©2 LLIST S OUT / FORMAT NEW SCREEN$ OUT NOT _t[O]/ OPEN #LN _ NEXT *SQR RETURN : PRINT / LIST CONTINUE BEEP /o/SQR y BEEP ?@BIN k(8INKEY$IN CLS GO SUB CAT 8/}'m@ COPY _/ LOAD PAUSE STOP [s[G]"{ LPRINT !_[M] BORDER COS m+s/_SGN 8 BORDER /n<=' OPEN #/V+gLN PAPER [H]'n5 CAT STEP CODE k/ BORDER /Y7/o{k RETURN OR //r MOVE [Q]LQ STOP NOT ;oATN ATN 4NOT [I]CCSCREEN$ zfeC[H]/ OUT LET SQR <=b? VERIFY R[M]s* LINE /COS CLOSE #[L]7INT 8[H] READ +{ CLOSE #©[D]© BEEP ?#/ FLASH ©IN o BORDER _c_[<?K[F]7©oTAN CODE GO SUB ©[T]ABS [G] COPY STEP LOAD K COPY [P]/ GO TO COPY COPY LOAD ~[P] COPY ©COS |PEEK ?b RUN 7k?©*6 CLOSE #?+SQR DIM soV© NEXT { COPY ?©PEEK y? LOAD ? GO TO BORDER /PEEK SQR ;O© INPUT o_?©-+[P][q©{CODE ©}?e COPY w CIRCLE O COPY COPY o POKE [L]& COPY ABS a_7[S]?p RUN xp[P]▜?K COPY o▙ GO SUB ? COPY ABS CLS _/ PLOT [C] COPY O CAT < COPY ?Io[I]lgIN SQR [U]CODE ©@_CHR$ © LOAD OUT ^9/?.IN Y>=?d/ COPY COPY wSIN COPY CAT ec COPY d CLEAR COPY _ STOP INK SIN COPY CHR$ } COPY CLEAR ^ COPY _ OUT RETURN [H]?INKEY$ COPY } NEXT COPY COPY NOT OVER COPY .SQR COPY LEN GO TO ? COPY CHR$ ;r[P]l INK OUT COPY [>© COPY l INK COPY ▟ COPY LET [H] COPY / LIST o?© INK SIN COPY _LEN ? COPY [P]ZSIN [P] RETURN [Q] COPY ' COPY COPY <>F COPY / COPY >=/[C] COPY (Y COPY A,VAL © LIST L ERASE [I] COPY _▜ INPUT ?h COPY c<> OUT COPY READ CLEAR COPY ' CLS COPY {[J]©K6 COPY NEXT O2^©wSIN / COPY {/ COPY TAN Bf[T]?bSCREEN$ r<a_NOT u THEN COPY o_] BEEP I INVERSE e[N] LOAD [ DRAW ?▝^S1 BEEP CODE ? OUT PI NEXT N NEXT ?|▙CODE FOR _i&7[[E]USR W?CHR$ NEW /ooAT _oV RUN /ABS COPY [T] LOAD © LET CLEAR IN BEEP NEXT COS [[D]SCREEN$ / SAVE RETURN IN FLASH READ CODE ?[O]ATN _© READ x©CHR$ FLASH ©/dm[T]SQR [T] LOAD IF d RUN ?Y RUN /7CHR$ THEN VERIFY COPY {dZj THEN ?Sf CLS RUN [O] CLS COPY © GO TO ▚? COPY _{/ COPY /oo COPY ©[M]<LN CHR$ W FOR IF <=4 BEEP ?<=▜ LOAD , COPY e<IN ▞u$?[M]|` COPY [M] STOP 9 COPY Y7#? INVERSE [M]©[M]gn~©?IN © BRIGHT 8[G]G VERIFY L;©IN ©CODE LOAD ©?o^k? MERGE OPEN #>SGN COPY [P]#n GO TO IN ©S<= LIST olPIso© OUT PIS?_! COPY PRINT CONTINUE CAT SAVE C OUT KC CLOSE # LOAD OUT COPY r:# NEXT SCREEN$ |PI OUT IN h<>_da( COPY ABS © COPY LOAD PLOT [C] COPY OUT K COPY COPY © INK COPY © PRINT 4[E] OUT ?VAL d COPY %<>^ COPY [E]? COPY OVER STOP _! COPY LEN ERASE [G]" COPY RETURN :SQR ABS _/ABS <>©EXP [G] COPY COS FORMAT ;3SQR c COPY OUT #6 COPY OUT Uh COPY _w[L] COPY [L] INVERSE o? COPY v[P]ay[ COPY LOAD n{ OVER {© COPY [Q] SAVE RUN VERIFY FLASH OVER [M]o_ RETURN FLASH ~/? STOP 8 DRAW PLOT IN LINE oj CAT PEEK [O]©Wb[ FOR LET ?O?[H]_ COPY STEP ATN © COPY OUT STEP ?WATN STOP ©_5 PAUSE ©?o<> OUT ? COPY CAT _X STOP ;4Z COPY COPY ▚[N][O]C COPY aPI LOAD COPY on CIRCLE {©B_ COPY ©USR FORMAT COPY 0TAN COPY -? COPY C_ COPY FORMAT © FORMAT NEW COPY FORMAT NEW COPY ? CONTINUE BORDER COPY _hw COPY ©hs COPY hs COPY ?hs COPY _hs COPY ©hs COPY hs COPY ?hs COPY _AC COPY COPY ,ASN % COPY DRAW #?K STEP Z[T]©©? COPY ▛+©+TAB READ COPY W PAPER ?. COPY GO TO TAN [P]IN NEW [H] COPY ?[P] INPUT FORMAT COPY _ FORMAT CAT ©@SIN _? PAPER COS ▜ CAT [N]6 COPY 0 COPY [R]CODE COPY SIN USR COPY "_X COPY CONTINUE COPY ?X CONTINUE COPY >6Z COPY COPY /2 COPY /J[P]AT =ASN [T] COPY Z LIST CODE INKEY$v COPY Q COPY CLOSE #[O]CZ COPY [P]RND[G] COPY NEW [B]IN LPRINT INKEY$VP COPY joIN ? GO SUB M COPY # OUT R;© COPY S DRAW © COPY [D] OUT IN COPY GO SUB PEEK ?[ PAPER ;IN RUN CLS _?o FOR COPY ©AT JVAL STEP IN OR }LOATTR [E]© LPRINT m CAT ©U[P][CODE _*SkSGN GRND LPRINT k/<[L]FN K/?|"[P][H]?[H] PAPER o[D] BORDER [M]?/[U]STR$ PI? CLEAR [E]/? OPEN #ASN © VERIFY ?k? COPY AND $?2▚ OUT ©RND[E]??▜?PEEK ERASE OUT ) FOR FOR ?] CLS kh{/R7PIb RANDOMIZE PIi^PI FLASH w VERIFY PIQNOT VERIFY P{6V4 DIM COS FLASH K VERIFY 'k{q;? RUN OVER ©©gIN NOT INVERSE CLEAR IN CAT © STEP NEXT { SAVE COPY LIST OVER IN COPY [P] SAVE Pk@[T]CHR$ PAPER FOR _USR RUN @ COPY ©bX CLS LIST RETURN COPY B OVER #<= PLOT ) COPY COPY NEW 0 COPY [G] LIST © COPY RETURN ![F] COPY <= PLOT [C] FORMAT COPY ?X[ COPY 4 COPY X CIRCLE ?©PI NEXT 2K COPY ABS RUN COPY LET © COPY ▜▜ OUT }▛ BEEP INPUT INVERSE CLS ?▙ CLS ? DRAW sSQR LOAD STEP ©NOT LN ? STEP ?[A]x COPY -`kATTR ,u©TAN COPY [? STOP IN COPY COPY LINE A©STR$ © LINE _7V© VERIFY [L]NOT ^?PEEK © COPY LEN 7IN ? PAUSE ^ COPY [Q]©? INPUT ABS ▜ OUT ©? INVERSE X[H]A© LINE OVER |? COPY © INK COPY ? COPY [U]o;!©[H]ABS FLASH _ COPY aI CLS r COPY `a[P]IN LIST VAL RETURN ?IN zO© STOP [P] STOP ▞ INVERSE ` COPY COPY PEEK <> CAT COPY STOP d[P] FOR ?ASN IF [L]C FORMAT [C] RETURN COPY PAUSE CLS COPY IN I COPY ?6 COPY STOP SAVE BEEP TAN FORMAT COPY ho▝_ COPY ? LOAD Xh COPY PAUSE s COPY i COPY VERIFY [A] READ AT OUT © COPY . CLS COPY x PLOT VAL READ COPY OUT COPY COPY ▗[T] COPY lPEEK Co[T]?~c© DEF FN %IN R?IN CAT 9m[O] LOAD ©? GO SUB + COPY COPY ?▜a[[Q]_ PAPER {© BRIGHT W©2?{eIN NOT NEW ©?? SAVE IN ©?©7k OUT READ LN © CLS /[T]©AT +U.[H]INKEY$LEN ©3▜TAB FOR N FOR OPEN #CM[P] FLASH SLN # OR RANDOMIZE TAB _ OUT INVERSE SGN /?/? RETURN AT 8?[P] FOR V©[P] VERIFY REM STEP ?/?w7[T] OUT oa[E] COPY ? RESTORE CAT /?ASN FLASH ?S[ PLOT COPY COPY 5$ COPY OUT COS CODE BEEP Z COPY ©Z LPRINT COPY LPRINT OUT OUT © GO SUB Yc INK COPY ©/?©? RUN [C] COPY OUT ▟ DEF FN ©{ PLOT [C]. COPY IN K COPY COPY 8 OUT IN OUT K2© OUT RUN AND © OUT [ ERASE ? COPY "SGN 3 COPY [E] DRAW BEEP OUT DRAW [N] COPY LLIST [N] COPY PEEK COPY } OUT OUT <> COPY MERGE <> COPY LIST COPY COPY h RANDOMIZE CODE OUT SIN 9 COPY ▗s COPY <= COPY THEN INKEY$IN COPY ,?[D]#©_/W/CHR$ XS[H]▗q RUN _[H] DRAW [P] OUT OPEN #▚ OUT [G]. FLASH STOP LPRINT SCREEN$ RUN ?© LOAD INVERSE _ COPY [P] COPY OVER |_©[P]8 SAVE OUT OUT LET [C]? LINE A?; VERIFY LIST {©_ VERIFY COPY ©oPEEK COPY _©[P] LLIST { OUT ©1IN [P]PEEK [M] LOAD © COPY #IN ©PEEK COPY [P][P]_ COPY SCREEN$ OR ATN INPUT <[P]IN READ R OUT y,NOT ERASE OPEN #INT IN [zg, INK ! RETURN [R]ABS [H] COPY 1IN ©[K] GO TO COPY F/?K RETURN SAVE )©[T]SIN } RETURN j COPY SQR [L] GO TO k OUT v RUN A COPY /?VAL$ OR COPY FORMAT PAPER ASN [P] COPY LN ASN COPY STOP > COPY OUT ▙ SAVE IN INPUT LN COPY ?_ BRIGHT OUT OUT IN LPRINT w? OR CLEAR © OUT ▖RND©BIN OUT COPY kIN __ LET STEP OPEN #2SQR FORMAT N[M]© COPY OUT tTAB COPY O COPY AT CLS u COPY _ INK IN COPY COPY G GO SUB k_'} COPY COPY VAL LEN 6ACS COPY CIRCLE PAUSE [P]-p© COPY 0 GO TO RESTORE COPY COPY []- COPY IN CHR$ Z3 COPY X BRIGHT ▛k COPY FORMAT RUN [L]ATN COPY RETURN .dABS COPY L PLOT ASN (# COPY SAVE ERASE COPY ©l;?a LOAD W© FOR h©l LET COPY LPRINT LASN BEEP ©+ IF CLS sASN CODE COPY _:© FOR ATN LIST ? FOR | FOR ? OUT } PRINT ? COPY OUT IF ?IN IN IF ?? BORDER COPY ? LOAD ATTR COPY ? COPY VERIFY OUT CLEAR MERGE ??©y COPY SCREEN$ G|8 COPY POINT _o LPRINT _}%PEEK J[Q][K]?_ INPUT SSCREEN$ ▟|[P]_ BEEP ? LINE ? STOP ? VERIFY 7_?INT 7IN 1©? RETURN PEEK RANDOMIZE 5? OUT )?}[R]_©[G]<©?[? COPY PRINT LINE IN ??/LEN WIN , LPRINT _O7/ COPY ?[L]?_ COPY FOR NEW ?_?SCREEN$ THEN [R]A©@GSO GO TO -ATN [S]3[E]L@y[M]cAT oIN CLEAR RUN 8[C] LOAD SCREEN$ z DEF FN [T]7i[ OR COS c^|▛} BORDER ;3* COPY /{[G]IN OATTR CODE OUT ▟ INVERSE oNOT PLOT CLEAR ©©{ CAT READ © CLS OVER o?PEEK Z[P] PLOT INKEY$NOT ©,<=k/ RETURN TAB 5PI{ NEW { COPY _OASN PLOT © COPY INT RETURN CBIN RUN © FOR INKEY$SQR © OUT FOR PAPER ?_ RUN OVER © COPY ©VACS COPY {ABS COPY _ COPY w LOAD )©?VAL COPY b= FOR SCREEN$ r LOAD REM g<=uQ©r THEN w LET © FLASH R< FLASH #ASN _#So GO TO ©5#:6[S]*GPOINT VAL$ s NEW CLS BORDER //p/z_ATTR OVER OUT Ko~__ABS 7/_ RUN NEW 7IN CODE _ LN VERIFY IN [D]k/©[T]> RESTORE K▛ BEEP CHR$ ^[L][C]IN ▘©VAL$ NOT ON PRINT OPEN # CLS ▚_Ox? NEXT GO TO ©/INT <©C OVER INK THEN ATTR MOVE /AT IN INT C RUN FORMAT COPY AT <=ATTR VAL w STOP COPY + MERGE ; CAT OUT ?]s/ FOR ATN /.FN CODE ?VAL$ o@$/ RETURN SQR (,_▟x?0] BEEP 4CODE 8< DRAW CAT COPY ?{]@ CLS INPUT ?O LOAD ABS _IN ©[P] OVER {IN OUT COPY NOT CHR$ ?VAL _hIN FORMAT ©[P]OX CLS :z OUT COPY : LPRINT |©NOT [D]IN DRAW OVER [L] COPY IN }??PEEK ATN COPY _/ INPUT CLS IN /CODE CLS RETURN LPRINT COPY ©{uCODE BORDER RUN ERASE COPY # LIST COPY RUN PLOT 2 COPY SGN O COPY COPY COPY NEXT INK RESTORE !mPOINT INK ▝) MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !© CLOSE #~ DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE INK CLS <> INK AT LIST h LPRINT VERIFY VAL [C]COS } LPRINT GO SUB ACS AT h PAPER <>:AT CLEAR O/ VERIFY FORMAT I RETURN ? VERIFY PEEK v' DRAW /EXP CLS _?. LOAD STEP ?_/CODE ?©/@ BORDER [L]?oSGN RANDOMIZE IN _©SQR LOAD CODE IN COPY RUN OVER ▞ COPY O_ CONTINUE COPY CAT ©; LLIST LOAD O COPY CONTINUE IN [S] MOVE /'SGN > THEN RESTORE COPY SGN < OUT SGN :/[H] COPY SGN 86©SGN rEXP 4 COPY SGN 2 COPY SGN 0 THEN RESTORE COPY SGN . COPY SGN ,XVAL$ * COPY SGN (X COPY SGN &©$ COPY SGN " COPY SGN u▝ COPY SGN COPY ] BEEP OUT COPY BEEP u© COPY u] COPY OUT BEEP OoB COPY SGN COPY SGN Y>= COPY SGN # COPY SGN COPY USR LLIST G©,z TO 0 INVERSE n? _a MERGE ©j COPY ©} NEW ABS _ COPY [P] COPY NOT COPY w INPUT j?© DRAW PEEK BEEP ©@o CAT #© SAVE COPY COS ]ABS COPY OATN COPY SSIN W©INT v COPY © OR LPRINT LIST RANDOMIZE CAT COPY BORDER OVER o©[E] NEXT % COPY /©© COPY BEEP . COPY OR _/ RANDOMIZE ABS / COPY <=▘IN COPY CODE RETURN COPY a<> COPY COPY |?[P] LIST OVER COPY / COPY GO SUB /O COPY [C]IN /LEN COPY COPY CIRCLE SIN /c COPY COPY COPY OUT dc COPY SIN LEN COPY COPY "&Y COPY / LOAD B PLOT IN COPY :IN RUN $ COPY _ COPY SAVE wIN COPY >=^ COPY COPY tSIN h COPY LPRINT o© LINE STR$ COPY CAT COPY S PLOT /IN INPUT 7 CAT ?CODE a STEP O COPY da CAT vIN [P] COPY FORMAT 7IN © INPUT ABS CODE ? COPY INVERSE wINKEY$©CODE e LOAD COPY ABS LEN COPY GO TO ? COPY [G? RUN B OUT BEEP LOAD SIN ©[S]INKEY$AT 5 MOVE COPY [G]?]Y COPY Ze©SIN 2 COPY +ASN COPY _ CLOSE #VAL$ / COPY VAL VAL$ IN (wj? STOP O COPY RESTORE TAN /©8Zd©ABS t OUT @ COPY ABS RANDOMIZE ?_} RUN ©[P] RUN OVER IN _ OUT B_ COPY O? IF _ FORMAT VAL O©IN [P] LOAD IN USR READ / LET OUT RETURN GO TO [N]▙ COPY }USQR © COPY W INVERSE / STEP ©/ COPY INK PEEK _?©© INPUT SCREEN$ wABS O©;IN / FORMAT PEEK STEP {▞ COPY CAT o SAVE INVERSE COPY [H]/ POKE CAT [Q]_,0 LOAD /LN INK [ COPY BIN ) OVER o GO TO COPY _. OR COPY ABS LEN COPY COPY X[U]S GO SUB { COPY ?O RESTORE U[P]© ABS d COPY ERASE ^` COPY mTAN COPY COPY J;? COPY z LLIST O@ COPY COS IN COPY LOAD [C] STEP COPY COPY ▝ FORMAT IN [P]VAL e COPY ,TAN COPY CAT IN dRND OUT NOT * COPY [ COPY STEP 7©ACS ▜ COPY DEF FN RND COPY OS DATA o COPY TAN SQR ASN SQR oOq?/? LIST Z COPY LPRINT BIN COPY LIST TO r RANDOMIZE ?/VAL$ OPEN # COPY IF © OVER ASN / COPY CAT _[L]z COPY //} RUN COPY _ NEXT ?_ OVER DRAW O_© STEP 0|mIN [E] OUT z_ COPY LOAD ABS COPY COPY ASN d COPY OR OUT ©CODE VERIFY IN COPY a BRIGHT CAT LPRINT © PLOT d COPY COPY KLN ©: CLS [P] LOAD e? OVER iO COPY {<>? OUT / INK 2 COPY COPY ACS d COPY VAL ©©/SIN COPY COPY COPY / DIM COPY _[L]©<=' COPY COPY ABS [U][P] COPY [C] DEF FN O@ COPY [ RETURN COPY IN [F]IN [E] GO SUB INVERSE O COPY 0O COPY INT COS COPY COPY RETURN CHR$ 6 COPY ©TAN % CAT ACS COPY COPY -K CAT COPY ;Y COPY [D]ABS _ COPY kSQR _ COPY =l COPY ACS _©]LIN CAT ABS z COPY COPY K GO SUB © BEEP B$ COPY [P]| COPY COPY = INK COPY BATTR COPY © POKE BEEP ?PEEK [G] COPY COPY h CAT COPY j PAPER COPY RETURN ^ COPY # VERIFY ASN /_K COPY COPY RUN l NEXT DRAW ATN Jgs-W DRAW BORDER c{_#ll&S{/IN #_CHR$ OVER +IN VVAL USR RETURN P© COPY / CIRCLE SIN IN #lYO COPY '-,©!O+ RUN IN OUT VERIFY DRAW COPY FN COPY NOT OVER C_# OVER LINE #_ CLS CONTINUE ? LIST COPY OVER FN ATN RETURN IN QIN [P]ATN ABS NOT _ATTR VAL c_▛/ CIRCLE ( COPY LOAD STOP OW RETURN CAT [L][P][P][H] NEXT COPY _ INVERSE c©[P]/7 OUT ©/ GO TO ABS IN ll[P] COPY CIRCLE [O]_ CAT ![ COPY [Q]SCREEN$ IF [M]?./©[F]/@[P]h VERIFY , GO TO COPY PLOT ERASE ▘ COPY DRAW TO K-S TO DATA [C]a[P] RETURN TO BRIGHT READ SCREEN$ TO READ [K]© TO READ ATTR PRINT /© READ STOP :q COPY ? READ ATTR [U] COPY _+qC©0 FLASH [P] LLIST ERASE COPY IN 8©: TO <d COPY INKEY$ TO @AT R;Z' COPY ? INK XK COPY &<=&_ CAT COPY v COPY OVER < COPY K? PAUSE CHR$ COPY [P]<>^_ RETURN $ COPY daB COPY )SIN VAL COPY ©CODE Y COPY S COPY %_^hk COPY ▝ COPY VAL FORMAT COPY SIN _SIN COPY ) COPY " COPY { COPY © COPY % COPY ACS pCODE PEEK IN I COPY /# COPY PLOT __MIN _?IN 5}© CAT OUT COPY RUN GO TO )[P]?9 FOR CAT COPY CODE _ RETURN NEW INK COPY [P] OUT LPRINT STEP OUT y CLEAR / LINE CODE /,[P]AT 4[P] COPY INPUT fS COPY /` THEN © COPY ATTR X_ RUN OVER OVER COPY 7IN ©© ^ LPRINT _ COPY ? BORDER ' OUT ?~ LOAD 6 PLOT #ACS ▜ COPY />.[P] LPRINT PLOT IN _ COPY LIST 7_[T] DIM ? OUT ©VAL 9[P] NEXT ABS COPY 9[P] COPY ~_ CAT h LOAD # COPY ©/Y OUT a COPY ©F{&_CODE <>CHR$ 2 COPY COPY ▚ STOP ,4[L]_0[N] FLASH AT INK /Oa PRINT ©/[P]VIN m[L]S[L]VAL COPY TAB STEP ` COPY CHR$ W PAUSE CAT AT ?gD OUT k NEXT S0[G]+*/ DRAW BEEP COS ACS 8W6 SAVE GO SUB =G!79 LOAD CAT >= THEN LLIST 1 FORMAT [L] AND OUT OUT DATA INK <>PEEK LEN INT BIN >=<= CIRCLE CLOSE # CAT INK GO SUB BORDER BEEP STOP NEW OVER BORDER IF IF INPUT RANDOMIZE >O#':' GO SUB NEXT 2 <*4U(G427:7VA! LOAD ..A75+"1& LIST PRINT $$[Q]▛ASN CONTINUE CLEAR PRINT TO [F][U]COS [S] DEF FN SGN POINT PAPER BORDER ACS CODE DEF FN =^Q. DRAW !F%,91/ CLS MERGE STEP OVER ,STR$ [F][T]SGN FORMAT PAPER TO PTAN AT [P] OR MOVE OR >= DEF FN DEF FN OPEN # VERIFY BEEP FLASH NEW RANDOMIZE LET DIM GO SUB RANDOMIZE COPY DRAW !%!&491653'C`[A/19HN>B3%12 DRAW &($ COPY FN INKEY$ PAPER RANDOMIZE INPUT LN [F]COS VAL RND LINE OR VAL$ FLASH STOP C_W=3B1:10 PAPER BEEP STEP &ABS [K][O]COS <> OPEN #STR$ AT ATTR VAL ACS AND FORMAT >= OR LINE STEP FORMAT MERGE FLASH BRIGHT STOP GO SUB GO SUB DIM GO TO POKE RETURN COPY SAVE RANDOMIZE [Q] CLS CLS RETURN '.2:0#.5/ IddL64CUSII8+38-+% CLEAR VAL [D]FN CIRCLE PLOT DATA TAB [K]ASN CODE POINT AND BIN ASN OUT ERASE SQR STR$ LIST E^W@=<283, OVER LPRINT CLEAR DRAW ABS P[O][R]© DEF FN INT FN SCREEN$ CODE ATN <= CAT <>BIN >= TO ERASE INK BRIGHT FLASH INVERSE RESTORE NEW RESTORE CONTINUE INPUT RANDOMIZE COPY RUN POKE PLOT CLEAR DRAW RANDOMIZE RANDOMIZE CLS -58) OR ,5,&KfeO99K/ZQO</8<!!0-& RANDOMIZE COS [K]VAL$ PAPER LET FLASH POINT P[R]LN LEN TAB BIN STR$ INT NEW CLEAR LLIST >= RETURN H]V?"%B7271' DATA REM POKE PEEK [U]FN EXP LINE THEN ASN FN POINT CODE INT <> CAT >=NOT AND STEP MERGE BRIGHT OVER INK INK OUT LPRINT STOP RESTORE REM NEXT DRAW RETURN RUN PAUSE LIST NEXT SAVE DRAW CLEAR IF SAVE © COPY )22#P GO TO (O;<Pb_WR@5=>$'2/% SAVE LN [T]ASN FLASH GO SUB CLOSE #FN PIINT COS LEN USR IN STR$ GO TO IF VERIFY AND OPEN #IZS>',B4 140" RETURN DIM LET INPUT USR AT CODE PEEK TO RND>=COS PIPOINT LEN PEEK THEN CAT <=© DEF FN { OVER BEEP VERIFY CIRCLE FLASH OUT LLIST DATA GO TO POKE PRINT LET INPUT LOAD @% LET PRINT RANDOMIZE ~ DRAW ▗$-,0$)LcbL:?Ueb[UC:B?',41% PRINT ABS ATTR SGN BRIGHT DIM STEP FN ATTR SQR TAN COS IN PEEK >= PAUSE SAVE CIRCLE STEP BRIGHT IWP<*3B2#03. RETURN GO SUB RUN GO TO BIN TAN LN AND RUN COS FN SCREEN$ COS CHR$ STEP DEF FN AND NOT <= ERASE OVER DATA OUT VERIFY OPEN # MERGE INK OVER LPRINT LLIST NEW GO TO GO SUB FOR GO TO POKE PLOT PLOT IF RETURN CLEAR DRAW RETURN A% READ a]IwYhe^VF?EA*!.51! NEXT IN LEN CHR$ BRIGHT READ <=SCREEN$ VAL ABS LN ACS PEEK IN CAT PLOT @ RUN BRIGHT OPEN # NEW ITPOINT .7B1"&00+ RETURN NEXT CLEAR REM <>SGN NOT [A] STEP OPEN #<=COS POINT AT ATN AND FORMAT ©<> VERIFY READ BORDER LPRINT MERGE MOVE OPEN #© INVERSE OUT READ RESTORE NEW REM GO SUB INPUT INPUT LET PAUSE PRINT DRAW COPY IF IF CLEAR RETURN RETURN COPY $(*J[XF;D[if_VHBG@+$@[R]/© LIST BIN M BRIGHT OVER CHR$ AT TAN IN SQR INT IN CHR$ VERIFY CLS RUN LPRINT PAPER LIST GPH91:A09//( SAVE FOR DEF FN OR THEN MERGE VERIFY >=TAN AT CODE SGN LINE ERASE CAT <= OR TO PAPER BORDER FOR STOP VERIFY MOVE CLOSE # FLASH LLIST LPRINT FLASH Q INK BRIGHT ▝ DIM GO SUB LOAD [Q] POKE CLS RETURN SAVE PLOT RUN SAVE IF CLS DRAW P! COPY )FWSC;F]kg`WJFJ>+'▗0 LOAD <=ABS LINE BRIGHT PAPER IN CODE LN STR$ ABS SGN STR$ <= OVER CLEAR RUN DATA STOP SAVE $ELD72<?0'*.-& CLEAR ▝ FOR MERGE CAT MERGE )<>ACS VAL$ COS STR$ P© CAT LPRINT P LOAD READ BEEP ERASE MERGE OVER READ LLIST INK [H] PAPER OUT A CONTINUE GO TO REM CONTINUE © RETURN PRINT PAUSE ▖ SAVE SAVE DRAW ~ COPY 'BQM?9$dG^ COPY KHI=©3. GO TO LINE CHR$ DEF FN FLASH MERGE ABS LEN SGN OR CHR$ USR BIN TO DATA SAVE DIM CONTINUE (CH@6@[S]1)+.,$© INPUT BRIGHT CIRCLE OUT DATA OVER STEP EXP SIN LN >= CLOSE # INK ERASE [Q]<> RESTORE LET LET NEW INK CLOSE # CIRCLE LLIST NEW STOP CIRCLE U MOVE MOVE ▚{ DIM RESTORE RESTORE DIM © DRAW NEXT INPUT GO SUB LOAD PAUSE PRINT POKE POKE IF EXP CLS CLS %=JG;9H]gd^ULIH:+(/2* FOR TO AND FORMAT >SGN ASN USR >= AND BIN >= ERASE GO TO RANDOMIZE ;*@E=56==1,--*#© LET DATA STOP BORDER REM STOP FORMAT PEEK LN IN CAT PAPER BRIGHT OPEN # THEN TO INK FOR PLOT PRINT CONTINUE FLASH VERIFY BRIGHT RESTORE REM DATA BEEP DEF FN STEP CLOSE #B© FOR BORDER STOP ! NEXT RETURN IF LIST REM DIM FOR LIST PAUSE ▗ PAUSE SAVE RANDOMIZE RUN PLOT RUN DRAW "8CA88©fb/SLJF8)(-/& DIM P( CAT LINE ERASE >SGN LN NOT FORMAT <= THEN INK LIST IF LET PRINT ,>A;©><3.*" PRINT REM REM LOAD LIST NEW CLOSE #NOT PEEK <= VERIFY OUT OUT BEEP CAT ( FORMAT OVER LIST ] REM OVER PAPER LPRINT REM INPUT NEW CIRCLE DEF FN ( THEN ERASE INVERSE [M] DATA OUT OVER NEW LET RETURN SAVE GO SUB ▘! BORDER RESTORE CONTINUE NEW DIM INPUT LIST 1 PAUSE RUN RETURN 4>T7H[c`ZSKIC5(&,,! BORDER MOVE DEF FN CLOSE # BEEP TO SGN SGN <= TO TO THEN ( MOVE OVER PRINT © CLS POKE IF -;=73 [R]7©400©([I] PAUSE PRINT PRINT FOR INK LINE AND CAT BRIGHT DATA READ INK OPEN # VERIFY READ POKE DRAW RANDOMIZE GO TO STOP OUT RESTORE INPUT LET CONTINUE ( CIRCLE STEP LINE MOVE © DIM READ INVERSE LET * DRAW COPY PLOT [C]T▟ LLIST ▚ DIM FOR GO SUB PAUSE IF ~ CLS CLEAR /7616GY_/W(PKH@1&%)( FORMAT FORMAT MERGE VERIFY THEN IN USR LINE CAT VERIFY DATA RANDOMIZE CLEAR RANDOMIZE -8:SIN >=631© RETURN RANDOMIZE IF RETURN DRAW LIST OUT CODE BEEP READ DIM RESTORE INVERSE BEEP FLASH DIM RUN CLEAR IF LOAD NEW READ REM PAUSE POKE DIM PAPER COPY OVER BORDER CONTINUE LPRINT PAPER PAPER READ LOAD IF CLS NEXT BORDER LPRINT OVER READ C NEW RESTORE INVERSE LPRINT STOP DATA BORDER GO TO T FORMAT FN PLOT IF *1M5FX]YTNIE<-$#'$ DATA VERIFY ERASE MERGE CLOSE #<>USR NOT STEP MOVE ERASE CLOSE # FLASH PRND REM RNDSCREEN$ ),5@6208==841+# PRINT NEW CIRCLE VERIFY OUT DIM GO SUB REM LLIST BRIGHT LLIST INPUT CLS DRAW PAUSE DIM BORDER INPUT POKE PLOT FOR BRIGHT FORMAT STEP CLOSE # OUT NEW NEW OUT INK CIRCLE LLIST GO SUB RUN RUN LOAD LPRINT CLOSE #(B ERASE VERIFY [H] STOP ! PRINT PLOT POKE NEXT RUN %--,4ETYVQKGB8*! # CLS DATA BEEP CLOSE # VERIFY OPEN # LINE CHR$ <= CAT CLOSE # MERGE CIRCLE LPRINT LOAD COPY R,3~0 COPY >952/+$ IF GO TO LLIST OUT BORDER LOAD PAUSE GO SUB RESTORE LLIST NEW NEXT DRAW CLEAR POKE GO SUB GO TO U[Q] PAUSE p INPUT OUT OPEN # FORMAT BEEP * LET CIRCLE B▞" FLASH PAPER OVER LLIST INVERSE MERGE DEF FN TO CAT OPEN # VERIFY PAPER INVERSE STOP DIM LOAD LET LIST LIST PRINT !'()3DQURMHD?3& CAT BEEP OPEN #<>BIN <> MOVE >= DATA NEXT COPY *P}-©=>:63/,&!@* COPY NEXT REM CONTINUE LET LET DIM NEW GO TO PLOT COPY RETURN PLOT X IF SAVE LOAD STOP BIN INK STOP NEW DATA INVERSE @▝© FOR PAUSE PAUSE DIM LPRINT PAPER RUN OVER PAPER FORMAT <><= LINE DEF FN ERASE MERGE BEEP INVERSE DATA REM GO TO GO TO GO SUB NEXT COPY #$(3CORNJFB;/#@▝ VERIFY PRINT READ PAPER 4 ERASE LINE <= TO B CLOSE # CIRCLE A RUN *.6©730,()$!▝ RANDOMIZE LET LET q IF POKE LOAD GO TO LET IF DIM NEXT NEXT SAVE CLS IF LET DATA J▝D BRIGHT READ BORDER DATA BRIGHT J OUT $ GO TO INPUT BORDER ▜ PAPER BRIGHT BEEP STEP AND NOT OR <> STEP TAB FORMAT [J]▚ LET CLEAR !&2AKNKGC>6*B LET STOP FLASH INK © THEN <> DEF FN ( READ GO TO IF JB'*[M]©;@©.*&$# ( RETURN RETURN RANDOMIZE POKE PAUSE PLOT CLEAR COPY IF RUN RUN IF DRAW IF NEXT CONTINUE OUT BRIGHT LPRINT RESTORE CHR$ © LPRINT CONTINUE GO SUB GO TO BEEP BEEP INK PAPER CLOSE # LINE CHR$ IN CHR$ AND <> TO FORMAT VERIFY INVERSE STOP RESTORE NEW DIM LET DRAW %1?IJHC?:2&@ COPY LOAD STOP BRIGHT SQR OPEN # TO THEN FORMAT BEEP FLASH LPRINT NEW LOAD DRAW ©%[Q]&,4;=©0/,)'$ E▚ CLEAR RANDOMIZE "w COPY m( DRAW CLS POKE r LLIST DATA BORDER CONTINUE DATA INVERSE $u LPRINT BORDER FOR REM ERASE BEEP VERIFY CLOSE #<=FN $IN ABS PEEK STEP OPEN #J[$0>[Q]FGD@;6-" DEF FN DRAW GO TO LLIST BRIGHT FLASH INK OPEN # STEP $ INK INVERSE LLIST CONTINUE PAUSE RETURN "$"#*39<(©1/-*©@!cH CLS CLEAR CLEAR CLS PLOT LOAD CONTINUE NEW BORDER REM REM NEW LPRINT BRIGHT BRIGHT LLIST © CONTINUE LLIST © BEEP CIRCLE CIRCLE FORMAT AND ABS SQR SGN USR NOT AND THEN MOVE CIRCLE INVERSE LPRINT READ BORDER LIST DRAW $/<C~<82( SAVE FOR LLIST OVER BRIGHT © FORMAT CAT MERGE PAPER OVER READ REM POKE RETURN [Q]~© !(17:74100/+'"▝[E]z) RETURN USR ! CLEAR RANDOMIZE NEXT RANDOMIZE GO SUB GO TO CONTINUE STOP OVER OUT READ CONTINUE REM BORDER © BEEP CAT OR ABS INT SQR HPEEK STR$ OR <> CAT VERIFY FLASH OUT STOP NEW ©[S]©:?~94-#R[R]H POKE AT ©$ CLOSE # FORMAT MOVE # RESTORE GO TO PRINT COPY ▝/oY%/57©,'#©$J~ COPY COPY RETURN CLS ( RUN NEXT LIST LOAD REM DATA LLIST LLIST RESTORE DIM REM FN ▚Q CIRCLE INK VERIFY DEF FN BIN SGN EXP INT SGN [Q]USR BIN >= DEF FN MERGE FLASH OVER LLIST CONTINUE ©$.9==:50)V DRAW LET AT © MOVE OPEN # BEEP A@Q@©#,343/H(../ COPY &!(TAT ▝ DRAW RUN PLOT PRINT POKE PAUSE INPUT CONTINUE RESTORE RESTORE CONTINUE FOR FOR STEP ▗© INVERSE FLASH INK © COPY ©IN NOT © STOP DIM PAUSE CLEAR ▝▘©#-6:: MERGE ,%@? RANDOMIZE LOAD NEW LLIST OUT OVER PAPER MERGE ERASE A▝© LLIST NEW GO SUB PLOT RETURN N [K])/(* CLS ,© AND (©▝T▚=SCREEN$ USR 1 CLEAR IF RANDOMIZE RANDOMIZE PLOT LET GO SUB DIM DIM [G]▜ DIM READ OUT BRIGHT FLASH PAPER ©SQR >=© DATA @) REM NEXT COPY BEEP CLOSE #-4773.( GO TO RESTORE LLIST Q LPRINT INVERSE © OPEN # CLOSE ##© PRINT DRAW LINE COPY %*-+**+--)$ |~pE▝j▘[A] INPUT GO SUB INPUT LOAD INPUT REM OPEN # INVERSE BRIGHT BEEP @ CAT AND IN SGN SQR PEEK ©2 FORMAT COPY [©P,2430+%~ RETURN IF PAUSE REM DATA STOP COPY INK VERIFY CLOSE # MERGE INK @[S] COPY POKE ATN CLEAR COPY [Q] INVERSE &('&&)+SCREEN$ +("r@$©▛[I] COPY IF AE RUN PAUSE GO SUB BORDER READ LPRINT @ CIRCLE FORMAT >=STR$ ABS ABS PEEK STR$ BIN LINE FORMAT BEEP FN INVERSE STOP BORDER LOAD SAVE <©+#121-'!QASN LIST DIM DATA COPY OVER PAPER [S] GO TO ▗ THEN CLEAR (V#"#)P%sMSCREEN$ B©)D*▖ CLS PRINT NEXT LOAD
