1 RANDOMIZE USR VAL "23883": REM CLS v NEXT 1`CODE OPEN # RETURN ![+wACS ( CLS :] NEW 2 CONTINUE ] PLOT ,2/ CLEAR ©> GO SUB y! LIST GO SUB [ POKE / STEP ATTR ]!` STEP ATTR ]!FN a` STEP ATTR ] NEXT GO SUB S/![O]][ MERGE GO SUB VAL <>! LIST ASN / MERGE GO SUB VAL <> STEP INK ]{< STEP ^> STEP '^ OR RESTORE © INVERSE ! RESTORE ? STEP -^ STEP IF ] LLIST STR$ READ $ THEN c FLASH <>_ OPEN #<>z THEN ? STEP ^>< THEN B(>, PLOT STEP ^> STEP '^ INVERSE ! PRINT > STEP -^ NEXT <> MERGE CODE STEP #^> STEP ^ INVERSE !3? STEP -^ MOVE z THEN ? STEP #^xATN <>©?* INVERSE RESTORE NOT /=
62409ap STEP FN a![I]X GO SUB VAL STEP `> STEP `/!^^#V# GO SUB S/^#V# GO SUB S/V#F#~#K RESTORE STEP `/ FOR ` GO SUB VAL > STEP `/!`T] STEP ] STEP ` LLIST NOT DEF FN / INVERSE ! POKE COPY INVERSE 9 MERGE RANDOMIZE STR$ FOR STR$ FOR STR$ GO SUB R8T] GO SUB LN FOR INVERSE V INVERSE ^ RANDOMIZE LLIST LLIST LLIST ; LET INVERSE w INVERSE # RUN INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK <>USR USR [Q]USR 6 DRAW CONTINUE USR COPY COPY LPRINT SAVE LPRINT USR USR USR LIST # BRIGHT $ COPY COPY USR SAVE $ CONTINUE &USR ' FORMAT ( THEN SAVE (h*USR SAVE *USR , OVER SAVE , SAVE .USR 0 DEF FN SAVE 0 SAVE 2 MOVE SAVE 4 SAVE 8 DATA GO SUB i GO SUB a<> STEP AT DATA * RESTORE COPY GO SUB K[N] NEW yPI(Hy2[P] NEW GO SUB B8NOT =[B] CLS v!u/"]/ STEP F`>!USR STEP ▞`>!USR STEP ▞`>!USR 0 STEP ▞`>!USR 6 STEP ▞` CLS <>:] NEW PLOT ,2/* POKE /"/<> GO SUB [/ STEP LOAD ` STEP a STEP LOAD ` STEP a STEP LOAD ` STEP a STEP LOAD ` STEP a STEP LOAD `z THEN ? STEP |a{< STEP xa> FORMAT STEP a STEP ax NEW ( RESTORE NEXT z THEN ? STEP |a{<NOT xa STEP `/ GO SUB [/"SCREEN$ `x2fa> FORMAT STEP a STEP LOAD `{< STEP xa> STEP a!© INVERSE ! RESTORE ? STEP ▚a STEP a THEN ` x NEW ©( FLASH STEP ▛a STEP (a OPEN # MERGE STEP 7a MOVE THEN c( STEP ea PEEK STEP ea INT > STEP a GO SUB S/<>z THEN ?g:/8 PLOT STEP pa| STEP ta>NOT a INVERSE !W/NOT ▚aCODE STEP |a> STEP xa MERGE INVERSE !3? STEP ▚a MOVE z THEN ? STEP |a<>> STEP az THEN ? STEP ta>I>< RETURN [H]28a>= PRINT RESTORE :/2da*/#"/> STEP `/ STEP USR :da STEP `/ LLIST LET NEXT <>>!ATTR `4=2fa<>©?* INVERSE RESTORE NOT /= COPY GO SUB aIN GO SUB i% PRINT <> NEXT GO SUB sRNDb[! STEP a OVER MERGE GO SUB VAL MERGE INVERSE LLIST ! RUN USR COPY COPY A^<> GO SUB LN FOR RANDOMIZE FN a INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT FN aHRX[O]M^ RETURN STOP NEXT STEP [H]bdr CLS v> SAVE (D!USR MERGE g[T] GO SUB VAL GO SUB OR STEP LET ▞ DEF FN > CLS STOP STOP ~2©fBm BEEP NEXT Ob,}EgpSTR$ s STOP 1rCODE ATN a/ DEF FN SCREEN$ bABS COS m STEP ▝s RUN 9ATN "CODE OINKEY$ DEF FN [B]$l_ GO SUB R RETURN LIST $"nmy< NEW SAVE BEEP NEXT [A] PLOT RANDOMIZE :Qm AND 2+ TO / OUT STEP RldefCOS Y[A] STEP INVERSE TO NEXT TO CLEAR . COPY RESTORE ,5.▙pSCREEN$ qi STEP ABS > TO ▛R:b INPUT RESTORE `l VERIFY [D] RANDOMIZE i[U]?Xj:b/ DRAW R CLS PEEK RANDOMIZE LINE CODE a(!u/"]Sy FORMAT RUN DRAW NOT @!=t NEW NEW U4CODE OPEN # RETURN DRAW RND[w+SGN CLS qX FORMAT RANDOMIZE COPY 6G NEW DATA RNDj[K]@USR 1G STEP [F] DATA LOAD POINT INT < THEN ©P= FLASH Axh TO O LPRINT PRINT n MERGE OR CLS DEF FN OVER STR$ LLIST PLOT [ CONTINUE DIM oa[bCOS yLEN DIM SIN [K] NEXT NEW PAPER OUT /VAL$ [G] BORDER ; OUT LN *q! RESTORE ~ DRAW @ CLOSE #J[P]LN SGN PRINT U IF gcVevY LPRINT ERASE WwLEN <>EXP INPUT ▖[L]g"SCREEN$ ^q RESTORE INT Dm[O]Uy AND INPUT ,ATN SQR n NEXT COPY BEEP + INVERSE /wLEN CODE IF z NEW USR { AND _ CIRCLE z VERIFY W LLIST ! ERASE CODE w,ABS < PAUSE [M] BORDER ASN c. COPY -ACS RETURN =STR$ CIRCLE [I] IF <=[A] CLOSE #Z OPEN #tl SAVE kcCK STEP NEXT ACS FN u$^lt%y0-ZSGN GO TO INVERSE }|i CIRCLE INK CIRCLE USR DEF FN CIRCLE dABS ▛ CIRCLE d[I]X CIRCLE & INK N$F} REM >dkV%^o~$f1[J] GO SUB B PAPER THEN < RANDOMIZE ABS <>}[D]{3 FOR AND 1<>& BEEP NEXT [K]` CLS 0 LIST [Q] RUN { THEN r LINE [d STEP `<>|& FLASH ^$VQr NEXT % AND ngQ PAUSE eu▙ COPY SIN xW& INVERSE n RUN COPY [T]0>[C]2e RETURN ) NEXT [H]l&[N]▖[C]8<>/ DRAW *:h~]SGN x/GyO RANDOMIZE U{▜ THEN COS < FOR j8 DIM STEP OPEN # NEXT _ THEN K[B] COPY / INVERSE .@ FOR MERGE NOT INVERSE O STEP 7e GO SUB D:g THEN 4 CLOSE #_LEN CLEAR USR G PAUSE e MOVE INVERSE , SAVE SGN } RETURN @ RANDOMIZE +) FORMAT SAVE DEF FN FOR ]) THEN 8fe>=[L]MSTR$ AND USR DEF FN h| RETURN [A]>[A]▜isATN 8y GO SUB GO TO USR [S]POINT ©5'ASN POKE PEEK -/'ACS EXP v AND v RETURN [H] RESTORE MOVE ▟ COPY c VERIFY rABS TAB [K]ss CLEAR !8f MERGE => LET FOR !SGN i+6NOT #sTAB 5r BEEP [D] NEXT 7 BEEP BEEP BEEP ATN ~B BEEP s_ STOP BEEP THEN INK _TTAB DRAW / CLS |ATN PAUSE /f_g}- DRAW [K]<> REM MERGE @,IN !#[J]INKEY$▚ PAPER L>ATN ] THEN >= MERGE PLOT TAB ▗▜ FORMAT V,^©xN RESTORE STEP [S]*ASN f LLIST ▛ RETURN SQR O▛q▟m7 COPY CLEAR - OUT <> OR :%[J] RANDOMIZE OR STR$ BATN [O]SY$SIN UJATTR AT X# DEF FN jz NEW CODE O<>o& CIRCLE N VERIFY B SAVE [H]F{y INK [I]}_ STEP g RESTORE POINT ABS zxG[O] MOVE IF 3 NEW ; FLASH MOVE ▚BIN T LLIST DIM ww DIM OPEN #g VERIFY CLS ;"g LLIST <>*[J][% NEW K INK =[E][U]* CAT O|INT 8 INK FOR b NEW LN O`f{Gz OPEN # INK {;_PY[O][J]INKEY$"<>S<>C[R]AT <> INK [G] CONTINUE LEN S: RETURN ACOS [C] FORMAT RNDjn CIRCLE O MERGE [M][B]g SAVE >=2<>©o STEP GO SUB d% GO TO ERASE d} DRAW qNOT PI<= RANDOMIZE OG STEP 1USR AjlSIN u CONTINUE [K] NEXT c~ LET g INVERSE >CHR$ * INK THEN MERGE ATTR [Q]l MOVE CIRCLE vAT [C] LLIST GO SUB % BORDER ▛x▝d$3 AND READ SIN p LET [R]L`_ AND SGN [A]▝q[K]7[Q]v THEN i"|:i FLASH FLASH TO OUT FLASH S CAT FLASH ACS 7ASN > INVERSE IN K] AND Z} BEEP : INK AND <=$'gl▞ INK u$ OVER <>▚ OUT AND G| INK [P]~q: POKE [T]ATN IF $PEEK h BEEP VERIFY [D]STR$ OPEN # MERGE _ BEEP TO k. VERIFY [G] DRAW [G], INK ▜_ FOR SIN F1rqp DEF FN PEEK CAT GO SUB CODE 2[J] SAVE TAN ![S]m0O>SGN fM▜z[K]u▚▚INKEY$ LINE [B][Q]K[P]▞[E]8[P] FLASH =[C]~i GO SUB [D][P]sz{Ln THEN CLEAR *ATN 6R▙[P] AND -W©SQR SAVE CLS <O &[O] INK MOVE ~ LLIST "qiCODE o CLEAR f[O])v BEEP Y INVERSE ^b+NOT [O] DATA INK =(1AT RANDOMIZE G[T]NOT 7[T]▛[H]ATTR [T]TAB ▘▟ATN INT INPUT ATN STEP COPY "ATN LINE COPY d IF BRIGHT i}Iv LET TO <>POINT jsg[J]SCREEN$ j|/x REM - PRINT oUSR $ GO TO ABS VAL |ASN >=M CLEAR hCODE THEN 0▝ THEN ▘[K]/g<>y▛Tj STEP VLEN SCREEN$ NoATTR #<>n▖&[N]l CLEAR _/ POKE LIST INVERSE `[I] GO TO [K]>&^[D]EXP VCA CLS CLEAR RANDOMIZE LLIST N INK r PLOT CLS PI READ VAL IF FOR DATA OVER INVERSE $'CHR$ hj STOP [U]&+INT 0[P]x INVERSE ojzSGN COPY STOP {ABS >=[F] PAPER VERIFY lOz GO TO [E]mGxEXP VERIFY UY[C] THEN ?H INVERSE RESTORE LLIST r,[D]0▝ RUN ▘D CLOSE # OUT l COPY [ OUT "o OUT OUT G FOR { TO NOT NOT l▚ PAPER 9e CIRCLE DATA UXy4POINT MERGE A MERGE BEEP _ PAPER ERASE ▝ MERGE PAPER DRAW GO TO [K] CAT ,!@ INK DEF FN ▖s>F GO TO © FOR ` STEP Lf AND ATN ▖wij[F] FOR NEXT INKEY$ LPRINT 5[P]b GO SUB s2p/ INK [O]▝[H]x FOR INK LLIST ~O> RETURN RESTORE COPY [G]F LLIST s[H]v VERIFY k}?omk& LPRINT CLEAR ." SAVE STEP s. LOAD INVERSE LPRINT ? MOVE NEW [D]0CODE Gy<=j LIST [C]VAL INK LPRINT STOP - INVERSE NEW [I]}z AND Wm[J] CIRCLE $ RETURN 2c5 THEN OR ERASE /PEEK INVERSE IN p OR FORMAT 0 RETURN LET ▜POINT >~#PI:n*IN ~G[T] BORDER x▚ASN OR INVERSE NEW [L]CHR$ [L]COS = MOVE SGN &TAB I DEF FN PAPER ▙$ DRAW EXP o~ RETURN LINE ▞rd<(▟ COPY RANDOMIZE BORDER OR MERGE TO ▖,~ RANDOMIZE ▟▜O_2[J] RUN FCOS AND [Q]`f[K] ^[S][M]D" FLASH ATN CONTINUE `[B]P DRAW STEP Dq PAUSE ?SQR IN ,g MOVE STR$ NOT INK pRclPEEK [B] IF [J] INVERSE e FLASH [H]TAB 2<[J] INK : PLOT s▖_ STEP o FOR ▗ RESTORE [R]<= CIRCLE PAPER PAPER u[L]ATN MOVE [I] LPRINT [H] STOP sDo{[P]zAT _NOT "dmATTR [E] REM Y STEP ▘ CLS SCREEN$ PLOT CAT MOVE u,eCODE %T PRINT ▛0M THEN 9>=V[M]u[B]/ gX{▝oPEEK 0~w$8LEN B[U]%{[B]8_ READ INVERSE GO SUB ERASE U SAVE FORMAT MOVE "▘_&[| GO SUB G>^B DRAW $o6NOT NOT STOP rsi GO SUB ^St PAPER ▖ THEN S_KT[G]T*▜V▘I6X[C]T[L] OR [N]FN ZR[Q6][S]T RESTORE [N][J][M]R`<=wb IF INVERSE rb NEXT GO SUB ▟s}1/m CLS PRINT RESTORE MERGE OR INK D INVERSE CLEAR NEW INT km/*[P][U]o#k:zCOS o[K] 7] COPY [I] RETURN U(,g4XB< LLIST EcZ CODE q THEN RETURN MOVE ATN CLOSE #▟C DRAW ^V[O] SAVE "s GO SUB S)> COPY ?ATN ACS MERGE <> COPY :'TQ BRIGHT o GO SUB ▘bEXP 0BIN [I]USR [T] LPRINT ▟ OUT CLEAR LLIST INVERSE FLASH ▛STR$ MOVE LET INK ©j1 CLEAR MOVE CLS ) PLOT BEEP &USR INPUT FLASH ▞NBIN REM FOR y# LOAD REM <> MERGE ! BORDER c LPRINT @ RESTORE [C]~ DEF FN RESTORE LIST & LPRINT T INK }y6XATN THEN PI>i LLIST RUN CLEAR & NEW LIST OVER lo~ASN [L]CODE LOAD w NEXT ,$ CLEAR % BORDER LET ▜, INK - TO #x3USR LN CODE v RETURN < CLS $ NEXT STEP 5p MOVE = OUT e& STEP [S]cPICODE IF PAUSE ` FLASH SQR OUT FN b DEF FN EXP POINT b[N] OUT "cNOT [T]_ OR PLOT CLEAR ©# GO SUB U[F]ySTR$ ?▗ml[A]CODE /F[A][F]= TO INVERSE FORMAT _j©]RRNDcFN aK PLOT ! STEP b OVER MERGE VAL ? INVERSE LLIST CODE CONTINUE { COPY k NEXT <=2<> CLEAR LN FOR RANDOMIZE <=PI IF INK IN [ DRAW LLIST ; LET INK ) CLEAR -A8 NEXT >~ MERGE 8 SAVE RETURN LLIST '_POINT GO SUB RETURN RETURN (Z DEF FN COPY INK RANDOMIZE 6O GO TO >8 RETURN OUT (<▘0[C] PAUSE TO > LOAD LPRINT ) NEXT W INK & COPY (g;PIk CLEAR ( LET o[J][U] STEP NOT INK THEN [Q] LET LLIST LPRINT CODE DEF FN LIST POINT LET VERIFY NEW [I]oO INVERSE RUN [L][Q]▜#~▘ATTR ▙[P] 8 PLOT > DRAW ;STR$ HG?[F] INPUT PRINT ▙ CAT DRAW AND POKE INVERSE RANDOMIZE [P][P] STEP <=[R] USR THEN © RESTORE STOP a VERIFY REM FOR MOVE F PRINT IN = SAVE FOR 0[L]!X' INK ▞NOT 5 CLS NOT R READ HXe>▚ PRINT LET ▖▟BIN COPY X▛v[U]j[M][I]vCODE 2bx LET !LN USR @ASN [N] STEP Rj LINE / NEW [T][D]USR LPRINT [O] TO SAVE VAL SGN TAN CLEAR ▙}/[C]©c0 DRAW > INPUT 2 BORDER bASN lATN 7[G] LET LEN STEP ` FOR L/ IF : COPY U& INVERSE ! SAVE ACS [A]▖BIN "Dg STEP =uVAL$ BRIGHT cNOT EXP a LIST GO SUB [ATN RANDOMIZE R ERASE NEW b LIST LET [C] INPUT PLOT INKEY$[J][H][U]7UbATN > OPEN # RETURN EXP t AND [P] THEN (^ CIRCLE LET OVER ▟▞ AND O?ABS HzW RESTORE OR IN SCREEN$ VERIFY READ 1CODE CLOSE # NEXT <STR$ LLIST |[O]@: CLS <> STEP REM iASN COS DEF FN AND S$[U]<> NEXT [P] GO SUB S▟©P2g+1▝ BRIGHT PEEK w~,ABS IF "[Q]c THEN / OUT SAVE ' OR LINE w CLEAR }&[A] RANDOMIZE INVERSE STOP .{ NEW ?_z INK | PLOT USR WB TO SAVE ▝? COPY o RETURN ▜/X0BIN ▚,ceCOS ©1 GO SUB STEP IF s&g>=▗S RANDOMIZE Qb NEW }{:ACS L LLIST RETURN READ ro<|$ RANDOMIZE INK . DEF FN / INVERSE -CHR$ STEP c1ABS <> FORMAT [K]i READ zo>= COPY RETURN ▟BIN ACS /x2[E]i|l INVERSE '3B GO SUB TPEEK [N] INK LN TO Y COPY [H]▟ OUT ATN FOR CHR$ Cg[Q] CLS PAUSE [J]n<>>?! DATA b[A] PAPER SQR RETURN ^[J][J] SAVE <>wY[H]▚!S RETURN $ POKE COS @USR o DRAW CLOSE #/WLN nO DRAW PRINT { AND LLIST PLOT _8 LET DIM / COPY PAUSE GO SUB RESTORE <> SAVE 1[J] OR LINE +[D]<> IF $4 NEXT '|9 INVERSE dj PAPER v OR RETURN FOR $O INVERSE ~LEN S OVER w$ LINE < RANDOMIZE & PAPER N COPY y%[H] RUN ,<= INVERSE #PEEK EXP STR$ BIN ▚ACS R@ GO SUB CYj6LEN MERGE d MOVE TAB mb PRINT <>+▖, BEEP "n NEXT SCREEN$ COPY c+DCOS /LN STEP U VERIFY FLASH wATN y INVERSE / COPY READ Y INPUT SQR ATN RANDOMIZE ▝ LET STR$ NEXT READ " BORDER j LLIST [D]X[B]1/ PRINT PLOT GO TO OR MERGE RESTORE INVERSE CLEAR INK OUT PAPER vy<?" FLASH PAUSE |1 AND THEN = IF LLIST DRAW b MOVE STR$ LET CLEAR INVERSE PIASN 1© RETURN LEN STOP ▚VAL COPY SGN [I] VERIFY ATTR LEN CODE &▝▘▗▚▜▖▞▛▟▙VAL /0 COPY LLIST ~© CAT CODE DRAW / DRAW SAVE }|{z>vyx>Vutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%" CIRCLE <=$BIN CLEAR IF RUN POKE "c REM BORDER DATA LLIST OVER FLASH CIRCLE MERGE ERASE CAT STEP LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ CLEAR [Q][U][S]▖LEN [O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗g[P]▘} INVERSE ▝<V[G]# OVER {INKEY$[L]zb<=>[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE STEP CAT ERASE MERGE CIRCLE FLASH OVER LLIST DATA BORDER REM GO SUB LEN PAUSE LIST POKE ▗ CIRCLE RUN IF CLEAR "%(+.1369 GO SUB STOP PAUSE ADGILNQSUXZ/^`bdfhjkmopqstuvxy[C] INK {|[G] READ FLASH LOAD SAVE LEN THEN | RETURN INT u}©ATN INVERSE l▜ CAT OVER BEEP {P LET |INT PEEK REM .wBBIN CLEAR RUSR STR$ [P]/ CIRCLE AND AT y)USR REM OVER uRND/ CLEAR RESTORE IN ▝STR$ VERIFY qATTR NOT PAUSE j/BIN >= CLS OR CAT USR INPUT [P]/[F]Z MERGE MERGE REM STR$ USR ;? NEXT IF gz.RND<= COPY 8 LET BRIGHT COS o FORMAT MERGE [J]$b[K]STR$ <=[H]ATTR CHR$ USR KSGN DRAW ▝VAL$ ^▞ COPY U LET y©<=vSTR$ J▞ DIM [I] DEF FN INPUT PAUSE ▙INT [P] RETURN SGN z[R]? RESTORE GW PRINT STR$ [O] ERASE RESTORE O▘/@ RETURN USR ▛G DRAW NEW [K]B[J][E][C]USR INKEY$ INPUT /~ OVER BRIGHT USR SAVE IN NOT AZTAB tn~ DEF FN [U] RETURN ATTR ][S]JW RANDOMIZE ^<> RETURN ▗ LPRINT STR$ a▙;z STOP !LEN %.[H]BEXP / THEN IN COPY pACS > CONTINUE ▚ LIST X REM POKE n RETURN bxEXP DSTR$ CONTINUE ABS $ THEN RANDOMIZE RESTORE [I] INK 9 MOVE PEEK = COPY CONTINUE LLIST ` LET CLS IN | TO THEN WUSR CODE [G] CIRCLE >=5▞[C]EoN CAT FORMAT dSGN ▗▚_©?x[A] SAVE STR$ [P]WSTR$ R[G] AND yASN > INPUT |)~USR & OPEN #▚WBbQ MERGE J FLASH KCHR$ _ GO SUB ATN r}▖ STEP OUT | CLEAR F BRIGHT [M]ABS [s COPY [D] LET ^?▞ STEP LN LET J+ DRAW NEXT NOT 7ATTR _USR CHR$ RESTORE H[C] DATA PEEK >=uf▛3]K▜iCODE OUT RANDOMIZE cWET}▖ MERGE jX OR OSCREEN$ ▘BIN LLIST SAVE IN %A_ NEXT THEN 5PEEK ▖TAB ~USR E LET PLOT [T]Z[r'+<=VFN [I]ZK PAUSE LINE OUT CODE CAT r DRAW MERGE USR IF <J>=j PRINT STR$ Y MERGE ▗©▘([J]BSIN SGN RESTORE AND AVAL [M][U]&STR$ Ix<> AND COPY [I]BIN ECHR$ DRAW READ LIST /_STR$ EXP > DEF FN [C]1▞ COPY [L] LINE CHR$ TAN [G]STR$ ▟ LPRINT RND GO TO SAVE Cm_ RETURN ©|@K=▜BIN x4 OR ATN RNDH SAVE .<=x RANDOMIZE IN /={USR V▛▛▝K CLEAR ▟▗ASN [E]EBIN PEEK | PRINT PLOT CLEAR K<BIN LOAD SAVE P▙ THEN g INVERSE POKE [J] RANDOMIZE CHR$ STEP DATA ▙ABS NOT {/ RETURN ~[H] THEN ©*IN >=▜USR [P]9 LIST DIM STR$ ▙Y FOR ▚ PLOT USR [R]80 SAVE %v FLASH READ SQR IN LOAD RESTORE ABS PRINT OR B>= BEEP BORDER THEN [~&PEEK ▟5C LOAD h TO p" OPEN # INPUT CODE LN ABS CHR$ KTAN ▚[M][I]RNDASN 4USR AT RANDOMIZE < THEN ATN ▖|G CLS .~6=>6 SAVE z OUT THEN yFN F CAT POKE USR N GO SUB CLS LET ]~LN SGN /INT POKE ABS IN © THEN CLS C CLEAR [G] BEEP w INK ARND DRAW USR IN z'NjPEEK FOR ATN 6/IN SAVE LOAD ©IN >EXP TAN vPOINT y[J]J PAUSE s REM RETURN TK[S]CHR$ r LET o SAVE T RUN RANDOMIZE >PEEK :; IF ASN LEN PAUSE ABS 21#ASGN PI PLOT 4▙USR © POKE COPY ~|4 PLOT .RNDE PRINT C`[C]@jAUSR CHR$ LPRINT [H]gIN 9 COPY :}ASN [O] BRIGHT K▟[P] DEF FN IN PAUSE LLIST I LOAD PRINT LEN PAUSE MOVE r▝ CAT 7©$USR f IF ACS Ar CLEAR Bd OUT ▟[T]©USR @?ABS |ATTR GO SUB 1 NEXT COPY DRAW ) RETURN USR [T]Ma AND BEEP RUN COPY G▛Ab=B~?8 LINE ;LN n©[J]x SAVE LN COPY LPRINT IN ? INK +@ SAVE [O]STR$ PRINT pf NEXT <NOT w©<> NEW ▝ DRAW 2c:W3▟ FORMAT IN CLS >▝ MOVE j▛ LPRINT LET PAUSE x~N INVERSE yGP RESTORE CONTINUE USR STOP SAVE ▖LEN PAUSE RIN CHR$ Bh}C& OPEN # NEXT z MERGE LUSR [Q]▚[T]NOT r IF <=CHR$ [I]X MERGE BSGN ~XAT /^▘gwINKEY$ POKE RESTORE OPEN #ATN ` DEF FN ABS } IF {Q STEP [U]oSIN RANDOMIZE IN DIM ©▘<| CLS THEN _▖ AND . NEXT PRINT ▝IN <>©LEN RUN COS THEN MOVE v▝ STOP ▜$-7 COPY RANDOMIZE MERGE ATTR SQR USR ZPEEK [C] BEEP vbCHR$ o CAT A|▝SGN NEXT INPUT OPEN #< RANDOMIZE LOAD 'u[L][O]D OUT PRINT A}[H]j PAUSE STR$ SAVE [H]▖_ MOVE ©VAL READ RUN SQR SGN M[G] FLASH [H]>CODE By[L]nSTR$ <=>=/ DRAW w RANDOMIZE STR$ x BEEP ©▜Te LPRINT PEEK CLEAR SAVE SGN ▚ INPUT b CIRCLE : COPY WPEEK LSTR$ < CLOSE #[Q] RESTORE INPUT AT SAVE ▜IN t[A]ZTAB VAL @ LOAD /STR$ COPY J CLS [T]a OR SQR x.:▗ COPY LLIST srw CONTINUE IN #?CHR$ [N]PEEK SGN OUT }Q#[B]B0; INVERSE !▘ABS DRAW sD[L]/~ LPRINT u<SQR OR USR LIST BIN w▜C[P]PEEK >= DEF FN USR < COPY o▛ GO TO SGN vIN O LOAD DEF FN ▗ DRAW MERGE IN 9USR IN STR$ yEXP TO LN REM INVERSE ;_ SAVE ATTR RUN © PRINT zsJ_▖SGN ©>= OVER BRIGHT z COPY CODE ~ PRINT NOT 7o STEP CLS ▟ NEXT DRAW RETURN ATTR |IN ABS CAT %[E]L RETURN [H]/CHR$ ?~t PAPER OUT [D]<> DEF FN #©▞q RUN FOR ▚ OVER ATTR MERGE OhHIN PI<9 DRAW 9TAN COPY REM IN CODE OR DATA 0▙ PAUSE V THEN READ 8▝STR$ g BORDER s RANDOMIZE RETURN OUT kl STOP BORDER >=LCHR$ MERGE OPEN #[L]IN ▜ BORDER U COPY STOP <> CLEAR W©▝ LET 8 RANDOMIZE 5y CLEAR <>< RETURN MOVE [C]~_©sTAN VAL$ THEN CLEAR ACS / DRAW OVER kABS [P]J LOAD } SAVE /<=_PEEK PAUSE h?( RESTORE IN ▝ RANDOMIZE [M]TAN READ RESTORE RUN 1COS LET ▟,FN <>ABS 1VAL [J] COPY STR$ @zHlATTR =VAL ^<z% PRINT PAUSE ;▝ CLEAR FLASH :mABS 9B DIM z{87 PRINT PLOT 6SCREEN$ BEEP 5^▞4 AND [P]3 REM m PAUSE 21gABS 0 FOR /.OCODE - READ RANDOMIZE ,z MERGE +* BEEP FOR )CODE ATN ([o' BEEP x PAUSE IF NEW &z CLS %s FOR PRINT $ VERIFY SIN @ PRINT CLEAR PEEK [B]# NEW [G]ATTR <= DRAW [I]$/F? LLIST ©PEEK ▗ RETURN COPY SGN REM q DRAW INK COPY BORDER 2 IF [J] COPY - RESTORE IN [L]INT RETURN POKE &▛BIN TO LLIST NOT THEN ,AT /[M] CLEAR © IF LLIST REM CLEAR [M] PRINT SGN RETURN RANDOMIZE uABS 7CODE FOR 6▞X RANDOMIZE 5 CAT PAUSE VERIFY 10 RETURN x/ RANDOMIZE 3©COS [ PRINT tABS VAL$ ) BORDER u( NEW IN IF STOP [P]IN f RANDOMIZE ATTR Q`▞~CHR$ BIN IF z CLEAR ?6[H][T]tATN RND STEP '[I]ATTR zIN LIST RANDOMIZE OPEN #3d▝ NEXT <= CLS , RETURN SAVE 7 RESTORE ]CODE />[F]IN [P]▝y REM ERASE AT USR GO TO lF>1▘ RETURN `[O]ACS I SAVE NEXT CAT [P]{ THEN STR$ [D] CIRCLE [U] INVERSE LIST +MyzyO READ RND RETURN 2,© LET [D]. CLEAR 1 PRINT * DIM u)( CLEAR DRAW BORDER Y&ATN STEP %2 DRAW ATTR [P] CAT THEN ACS CLEAR 7 COPY RANDOMIZE NEXT FOR k TO /4 0c6[P] DRAW EXP y5=om&LN THEN BORDER q[Q]#J4ASN PEEK RESTORE ?AT W0 DRAW LET /& MERGE TO LIST SGN xmCODE R▚m NEW [N]' MOVE THEN OPEN #fCHR$ FLASH ,a STOP OVER ATN "[P] LINE NEW ATTR c SAVE ,/mTAN NOT OR [I][P] MERGE z[F]>=[P] OVER fATTR q RETURN }|/f65©[T]O BRIGHT ERASE 2[G]? RETURN H- SAVE <>1j[O] RUN *)?ABS (s[O]ACS [G]IN . NEW zyv PAUSE LlSCREEN$ USR ~ RANDOMIZE COS [A]6[C]SIN DRAW ▚ RETURN IF G SAVE ABS MOVE CAT DRAW RESTORE ▟m> DRAW MERGE SGN [D]ATN ? CAT FLASH P[K]CODE ERASE YC[G]b RETURN =0/f! NEXT /SCREEN$ © CLEAR Z MOVE 'b▗VAL$ NEW %'e[<;lCODE LLIST [L] FOR ©<=K LLIST c` SAVE gMx BORDER [F]ABS NEW e[R]▚ RETURN <>>= NEXT [L]POINT q©ABS REM 7g NEW ©/ OPEN # CONTINUE 43 CAT CLEAR 2P THEN COPY [N] DIM - CLEAR +Y©* IF READ ABS STEP TAN DEF FN FOR ABS MERGE ▛n[L]_.` RESTORE STEP # LLIST NEW VS BORDER +[F] LPRINT CAT TO TAN v DEF FN [< OR TO g[ RETURN % MERGE ^9ATN GO SUB 8 LET AT 76g CLEAR 52[A]4 RETURN FOR YLEN /HV,Uc[P]lPI*<W( OPEN # FLASH 'q RANDOMIZE <>3&INKEY$We DATA mi1y FLASH $| RANDOMIZE hX/oTAB @0`ASN [P] CIRCLE [B]z▞ MOVE ? RETURN SAVE 21ATTR U RESTORE LLIST ▖[N]< THEN BIN OVER [G] GO TO CAT 98ATTR RETURN M`INKEY$c13) NEW [D]2 CLS ▘IINKEY$/. PLOT SIN ,H[U] CLEAR [U]Wl RETURN [U]INKEY$' POKE *[T]W CAT SIN READ [J0 BORDER STEP oABS &[A]XmS OR ©? LPRINT NEW INK ▝[H] SAVE BEEP COPY eCV[P] LINE yBIN LINE VERIFY SGN BEEP RESTORE j©96 PLOT 875 NEW INPUT M COPY 21 CLS x SAVE D SAVE .-U OPEN #,+INKEY$[T] FOR <> NEW ('1BIN &[PI▝4 STOP $ OR [O] COPY THEN NEW THEN REM _+STR$ [P]^ LINE m!▜ CLOSE #▗ RANDOMIZE E▘Nu[O]W BORDER LINE COS OUT /F OR NEXT ▟[O]gINKEY$▞W▟[H] COPY CLEAR EXP 9 LPRINT PLOT NEW 7=[L]z.7[M]8., IF STOP DIM [O]X STOP GO TO IF '& READ ?cPI1% FOR THEN [M][O] LET [H] THEN THEN # STEP [P] READ NEW PRINT BEEP ▚s LPRINT PAUSE /A AND 0<>c POKE INT t ERASE $~ASN SCREEN$ ~x3[D])rLN g[M]7:v READ 8[J]5STR$ [L] NEW k310 RANDOMIZE [K] CLEAR /- DRAW 7`67457 RANDOMIZE M[J] READ RETURN y DATA $u=[O] DRAW y OR MtSCREEN$ VAL IF BIN ▘( STEP INKEY$IN ,▘ MERGE GO SUB E THEN FOR TO {▞ RETURN y<=1l[K][G]1# PRINT n$ LET _9COS 78 COPY 2PEEK MOVE t320M[J]/ CAT VERIFY COPY +INKEY$g[R]▖([K] COPY '&%[K][J][T] GO SUB l6 READ CAT LINE ?,IN CLOSE #" LET DRAW THEN ©oPEEK o[M]!USR SGN STOP STR$ _[C] DIM <= COPY SGN OVER |z]><© CONTINUE UF/vCOS AND %n BRIGHT : SAVE 798M▞6BIN [P]420.d▝,*x"[M]b NEW '& CIRCLE LET %%$v CAT y[O] STEP ATTR "[H]f_[F][P]<>![A] OR MERGE CAT ▘lIN EXP rQ▝[Q] RANDOMIZE ?©^L6 RESTORE PLOT DEF FN DATA n BRIGHT L TO 4; DRAW o:9875H[U]IN LEN LINE R.+OY[U] NEXT IN %$g[M]1sEIN xo[L]!y5▝% DRAW 2 READ CODE _ RETURN u SAVE __o FOR V> x[ AND 3=PI▚[A]<[O] CLEAR ;:9 VERIFY COS 8630fz-pK[D]bSCREEN$ % INK ▟$# CAT INPUT " DRAW SGN INPUT [M]xTAB © LET ▛^[C] OUT ATTR ATTR ©NOT SGN [G] NEW _ PAUSE AT ATN DRAW LET [O] TO 4MT=o<;INKEY$RND DRAW RETURN 5 DRAW + OUT L[E] INVERSE CIRCLE $#"COS [O] INK <> STEP BEEP [L]1, RANDOMIZE & RUN IF SIN CLEAR USR / BORDER STEP ▗ PRINT `/, LLIST DRAW CLEAR ATTR TAN ▝ RUN ▞[F] VERIFY [R]FF CAT NEXT GO TO >R<= DRAW AND [I]P_'#"g RUN ! POKE AT L BEEP r REM R GO SUB &USR LN LIST STR$ SGN ©ZXf? RUN oX GO TO AND ©ABS ^u INK CLOSE # REM LWPOINT EXP N PRINT 'L&^ LPRINT COS Yo[E]©= FOR AT gU DRAW OUT INVERSE <3 DIM 0©VAL IR[A][U]CODE 1 COPY ▙ RETURN WABS PRINT SCREEN$ IN PI▟1IN { VERIFY IN IN 1 OVER =PEEK CIRCLE $ CAT NhPEEK ▚sYEXP PEEK INT ©< RETURN INVERSE DRAW 1 READ [S]CHR$ PRINT ABS DIM RETURN S SAVE FOR m7CODE @P AND ,[L]O RETURN g=TAB PI NEW 7POINT TAB NEW INPUT RESTORE COPY ' OR [T] RETURN f NEXT IN v READ ©FTAB <ATTR SGN RANDOMIZE LET PAUSE ATN _ THEN 1+ OVER ATTR -vUSR NEW BORDER ▛[I]W! RETURN DATA ]©CODE zy=' GO SUB 46IN NEXT ) OPEN # PLOT INKEY$ CLEAR #VTAN gM_SGN TO ,AT OVER HATTR DATA g AND FOR x[L] TO LLIST [G],IN OVER /. STEP FOR NOT ;j^ IF EXP ▝ RUN INK mCHR$ / RESTORE LIST [J]POINT RETURN [K] DRAW +7 SAVE Pl CLEAR CLEAR [L]5[U] LET } RETURN 6~BIN COS a PRINT PAUSE + COPY LOAD BEEP OR PAUSE [C] CONTINUE NEXT DATA ' THEN IN TO AT K TO LIST STR$ DRAW PRINT SGN POINT PLOT PAUSE a~| CLS M[D] DRAW LPRINT bPOINT SIN COPY pSGN x` DRAW [L]ZIN [I] BRIGHT VAL$ [I]▟ OR LET BIN OUT +c GO SUB m<> INPUT b REM BORDER %CODE LPRINT ^ RETURN ▟`] NEW buT COPY CAT DRAW K RETURN CLEAR USR SGN [H] CLOSE # PAUSE ?[C] BEEP RANDOMIZE [D] COPY ▖V|[I]FN TO TAB #COS [H]|3▖H RANDOMIZE LPRINT STEP INK READ ▟ PRINT [F]1 LET /©EXP DATA LOAD THEN KYs NEXT TO PRINT *[Q]LEN `} COPY f[T] COPY p[T] VERIFY CAT THEN BORDER RESTORE *9©.nSTR$ 0`[I]/. STEP ERASE PEEK INK STR$ 7[U][H] SAVE DATA [A] CIRCLE HSTR$ # ERASE OR ©▟1c SAVE NEXT <>H2© DATA uIN DIM >= DRAW LOAD C^q`i▛ OUT GATN © CIRCLE ▛X) RETURN LLIST /[A][H]CODE [C]eCOS LIST aDb[R]3 SAVE INK @▚Yi NEXT d1 ERASE SCREEN$ ©[C]n6SCREEN$ CONTINUE PEEK [K]SGN OVER ~▚y`CODE W8? TO FLASH , RETURN " OUT Y`[H]©/NOT NEW FLASH |{IN SAVE PEEK STEP ~eRND CAT AND DRAW ▛[N]b`F`9 NEXT RUN _6[C]TAB 1[O]z DIM GO SUB $ LET y[L] BORDER BEEP NEXT NEW `▟[P]y CLS %▘ RESTORE ©J▝ CAT LOAD 0VAL ▜IN STOP E IF ▙ LPRINT g CLOSE # OUT ASN NOT COS PI COPY AND CHR$ jc CLS 1INKEY$ CAT ) RANDOMIZE # SAVE ▜i[C]qLN X[B]3SCREEN$ [O]/PEEK LET NEXT ?zCHR$ [G]PEEK [M]K AND SAVE BEEP j*[I]USR PEEK RETURN 7CHR$ COPY ATN RETURN R STOP PAUSE @ POKE COPY Y[ DATA [T] CIRCLE PAUSE PEEK CLEAR SAVE AND RUN j'>=O~ NEW IN ] RESTORE ? RETURN 0 THEN RESTORE o8, DRAW SAVE [J]STR$ _,pk CLS READ b OR OUT FLASH 3 SAVE m▟ LOAD CAT J COPY PAUSE [P]© CLS ▚yRNDfj7_ PRINT %[T]gx[O]LEN SAVE LIST RETURN LLIST THEN LINE % DRAW FORMAT FOR ATN REM [I] BEEP X:< DRAW SAVE USR RUN ATN SCREEN$ PIu^CODE / RETURN =/<>% LIST /6d IF ▙ CLEAR @q NEXT CAT EXP ? LPRINT [K] CLEAR LN 8[M][B].[R] SAVE COS RETURN [I]Dx'n RETURN [U]@4 SAVE IF "X'/ CLEAR POKE J RETURN LLIST PAUSE RETURN OUT REM [R] COPY i READ < READ 7f CLEAR RESTORE O COPY PEEK DIM LLIST INK CLS i[J] AND THEN EXP COPY w RANDOMIZE STEP COPY ▚1 NEXT SGN J▞^ MERGE y!SIN 4▝bNOT [G]k©[H]C SAVE DRAW +USR LIST LIST <=CHR$ INPUT SQR LOAD ▝ CIRCLE SGN Z2iSIN dD NEW ASN CAT cNOT M AND 0 CAT fP2[H]COS VAL$ f LOAD THEN © COPY READ ? DRAW USR STOP m,3[J]SIN NEW OR ▜ RETURN L0 SAVE #VAL ▝ INK RANDOMIZE 5 IF MERGE TAB VAL$ LLIST MERGE CHR$ $g OVER COPY e INPUT - LINE MERGE SQR CLEAR < FOR 7[D]lcd[K]6SCREEN$ ASN JFN ABS INT CONTINUE DRAW &JINKEY$K RESTORE LIST DATA oASN NEW PRINT IF RANDOMIZE i RETURN g*0 RETURN ~EXP [Q].`COS ▛dATN W OPEN # RANDOMIZE VAL$ ABS INKEY$d1 INPUT NEXT ,9 BRIGHT OPEN #$ STOP NEW CLEAR #! RANDOMIZE PEEK 35 FOR *[I]ATTR {, COPY EXP DRAW ` PRINT VAL [Q]F6 IF PAUSE ~ COPY OVER V"▙▜▝ REM COPY ▘▗▜▞▛/>▖▚ RETURN )TPOINT ▙STR$ b`▗0▟▙INT DIM RANDOMIZE ▚▘[ RETURN ▖A STOP 0 FORMAT [I][L] OVER ▜▟STR$ 0s= COPY [P]<>USR ▝▘@ PLOT ▗[N]vSCREEN$ ▞ LLIST ,FN ▖@ DIM [N]▛[E]<sABS LLIST ▖d[R]`ASN B@v COPY >_[J]o PLOT ▞ FORMAT X GO TO PRINT USR z}[ OUT [P]F▖ LOAD OVER [Q]?@ CIRCLE f!ATN TAB [L][F]x▛TAN OVER CIRCLE ATTR P#LN Fb`o( 1 BORDER VOrPPOINT n OUT =[R]X OVER SCREEN$ INT /▞VAL$ V CLS Yo STEP . BEEP GO SUB TVAL /[P]B/r OR LEN CODE %- CONTINUE O VERIFY DATA `POINT R[B] READ c[A] PRINT [q LOAD / FORMAT TPEEK [Q] PRINT ERASE `ATTR 5VAL NOT -M>=ABS Z FLASH MERGE LOAD SCREEN$ `AT ^QSTR$ @R! POKE ; LLIST AND [T]{4^/ COPY LPRINT %S OUT [N]STR$ !M LET [M]| CLEAR RESTORE r7 RETURN /VAL < LPRINT PEEK FLASH USR REM / SAVE STR$ SGN o▚{7BIN GO SUB ? ERASE FOR STOP [R]▚ OUT Fa BEEP oK,y@ NEXT LINE CLOSE #"CODE SAVE ▙x DATA 1VAL I*▝a NEXT NCODE LINE COPY Z[E][R]PI STOP NEXT SAVE QV READ SIN a OR LPRINT IF <rSQR [Q] CIRCLE FOR /5▚r{ ERASE STR$ POKE USR POINT #gSTR$ LEN [O]ZVAL T DATA ▗A GO SUB MOVE ,~[Q]@ LET j[S] PLOT K"COS [H][R] MERGE ▛[S]USR h▝Ta>IN X IF "0SIN BORDER SQR ©[K]▖ LIST . CLS SAVE POKE G READ BORDER CLOSE # MOVE THEN $FN RANDOMIZE ~[T]6gi LOAD IF OR [D] PRINT p CLOSE #}yC▖▞© RETURN LOAD CAT c SAVE nsd STEP CLEAR * GO TO H FLASH RUN NEXT CLS 3 READ NEXT O▞<= TO [A]Rm LET K~[P]ABS }sz_j` STEP [H] OVER [O] NEW =CODE s PLOT SGN `© POKE OR RETURN ATTR S LIST ABS xSQR )y^BzM COPY IF [M]X CLS GACS LLIST GO SUB {/PI LOAD AT _[P][L][A] NEXT [T][H]X[B]%}l[I] PRINT IF ,[H]K MOVE `s OR THEN [Q]#IN IF LEN CONTINUE fL RESTORE STR$ NEXT nVAL PEEK OPEN #[K] PLOT <▛ LLIST ` LET [B]bV(CHR$ j▛ OUT ? OPEN #SQR STEP ATTR CAT ▛ MERGE THEN STR$ OVER PEEK ▝@_&^▟ INVERSE LIST ?SGN CODE 7< OPEN #NSGN RESTORE :CHR$ RUN X1 LPRINT ▝[Q] BORDER v LPRINT 0<#▝SQR 7[H]VAL$ LPRINT COPY y`@`[D]NOT L LPRINT 5IN ?[P][E] FOR L$ RETURN RANDOMIZE > LOAD PLOT `[O]▞. OUT CLEAR [K]N COPY [!%9~|.VAL$ COPY . RUN USR USR CIRCLE ©Q@, DIM REM LET <= GO TO CONTINUE DATA RETURN a LPRINT ©o< LLIST STOP READ U POKE : RETURN f DATA ©ACS PAPER ▗ATTR <=n[O] LLIST 5 FLASH RESTORE ASN a) COPY [C] OPEN # RETURN DATA ~ BORDER COS &f MOVE © INPUT FOR GO TO |▖*CHR$ SCREEN$ Ii CONTINUE NEW ASN [U] COPY LLIST ▞NOT INVERSE 9 CONTINUE U>s THEN TO ? GO SUB [O] DIM BORDER DEF FN lj)LEN _ DIM [D] PAPER ATN V[U]"m OVER CHR$ [H] COPY EXP ZUW_G TO ;31[T] MERGE i COPY [D]ACS U'[U]z OR [N]NOT OVER l▖ FLASH PLOT S BORDER y TO [U]INKEY$ IF PEEK ` SAVE COPY BORDER f*VAL -}S TO -IN h4ATTR MERGE )!}UT LPRINT RUN AND $<>[U]Gl BRIGHT ?Ef TO V REM RETURN <>yJ0▝TAB V DRAW FN MERGE # INVERSE h!c RESTORE r(' IF INT [E] FOR ATTR ▖E( MERGE PAPER 1tK$&# DIM sBBIN ATTR <cCODE >= CLOSE # FOR GO SUB INT LLIST ▖ AND ▗[I]g LINE 9 GO SUB >=d-LEN b<=▟ LET [K]6SGN xh PLOT LN LIST COS [C]W COPY CIRCLE m POKE STOP ERASE LEN [S]ASN 5*<=1 DRAW AT LN RND COPY DEF FN TAN [R]IN xj% FOR <>t COPY FVAL ABS 7INT CLEAR LEN NOT ->VAL$ VF RETURN & FOR ACS POKE mUu INVERSE CLEAR <$LN [P]n;k NEXT DRAW Vm" BRIGHT ) RETURN [I] INPUT STEP FORMAT AT gPA OUT DIM ▘ INPUT [F] PRINT ACS LLIST (TAN REM FORMAT INT NEXT LOAD [D]a_yd RETURN - BEEP NEXT 1) RESTORE OPEN #,AT NOT COS ACS 9 INVERSE [H]mFW OPEN #2De LOAD STOP *& GO TO RMSGN VAL$ OUT INPUT V STOP ©2ATN PAPER [A]Y% FOR a RETURN ` FORMAT LN |~ CLEAR DIM ) LET )s[T]X LIST FOR -eG PLOT [P]▗[T] POKE OVER NOT 6IN BRIGHT CIRCLE =© LET SAVE 0LN j CAT LET LIST LOAD GO SUB ▚oLN COPY MOVE P POKE INPUT CLEAR FLASH eL OR INT j CONTINUE VAL INVERSE FOR IN *a CIRCLE BEEP X RETURN ZLN )Y<= NEXT jVCODE IF COS qy INVERSE x BRIGHT RANDOMIZE v? READ ABS LLIST [M]QkATN L INPUT 8 DRAW BRIGHT jPIVAL$ #_ATTR USR NEW o INVERSE 4 INVERSE L<> RETURN VERIFY CAT >= BEEP ?SGN tz8[J][U]0 CLEAR ATN ; RETURN TAB THEN [D]:IN x©"[H] NEXT L}/ OPEN #▟▖ FLASH CLEAR x OR 7 OVER H6 MOVE FOR ' RANDOMIZE ▙ PLOT DIM PAPER IN INK FLASH INVERSE INK DATA SIN SQR [E]vATN GO SUB CIRCLE RANDOMIZE ▛ SAVE r[F]0x CLEAR RETURN FOR [N]jATN [R] LLIST NEXT ; FLASH SQR <=b OR /~ REM mATN D INK [F] CLOSE #79 COPY % FLASH SGN [E]PEEK LIST PIA}SIN H INK LLIST ABS - CIRCLE READ ATN FOR SAVE REM GO SUB GO TO +b NEW INK PRINT COPY p[K] RETURN =SGN ATTR LET HB}z COPY INVERSE [L] RETURN PRINT < CONTINUE DIM LOAD RETURN ▜ INPUT READ THEN ZB7ABS ATN DRAW ? DIM GO TO INT PAUSE o READ #V NEW F INPUT [F] PLOT -)' MOVE INT & LOAD LIST CLS > COPY STOP <=x^PIv RUN LINE D TO [U] CLS COPY DIM 0 NEXT SQR _L DRAW jATTR RESTORE [D][K]uw REM [J] BORDER MOVE SGN LOAD oq{w LIST THEN ?z[T] CLEAR ( INVERSE PRINT [U] CIRCLE ABS [J]/' INVERSE VAL$ READ RESTORE LPRINT 8ASN PEEK Ko[D]LN COPY BEEP MOVE xqCHR$ GO SUB REM SGN [K]ASN B LIST INVERSE BIN RETURN xCHR$ COPY G NEXT TAN [M] LET oABS [I]0 GO TO ^a GO SUB RETURN DRAW PAUSE SQR FLASH VERIFY o CAT GO SUB DRAW NEXT ©5PEEK 9^SIN da OR FOR . CLEAR )b+ABS VERIFY 9 DIM LET jINKEY$[G]l LIST LINE r STOP LLIST P FOR ~5-©IN hK[U]BIN =B▛,a CLEAR v COPY ])= POKE RESTORE UKu% ERASE J^6 VERIFY ATN IF CIRCLE LIST 0_ PRINT Q STOP FN >K INPUT EXP }]5 CLOSE #1COS INVERSE 2 BORDER SGN d[H]V&PI NEXT +[H] DEF FN POKE - CAT ▝ATTR INVERSE FLASH [C]Zv INK CLEAR !* OUT [D]/_ RETURN NOT zWa POKE RETURN yP COPY EXP _ STOP GK▗ THEN ▛t RETURN ow:LIN /ATN ▘ SAVE CONTINUE PAPER ▜ FORMAT 6; PLOT BIN f PAUSE b PAPER VAL$ DLN SGN RANDOMIZE SGN [E] FLASH !W]=(STR$ COPY Rj{ REM %<><= CLEAR EXP IF }▜ COPY U COPY GO TO n[K]/( LET }^▟ DRAW BRIGHT XpdrTAN ? PRINT PEEK GO SUB INPUT VAL$ [T]x OVER ERASE GO SUB DIM K[C] BRIGHT +3U INPUT ▗'NoINT TTAB ASN SGN RUN '; NEW OPEN # OUT v STEP [R][L] COPY DRAW 3|ATN PAUSE / MOVE ABS CAT GO TO ATTR h[O]INKEY$CHR$ [A]USR LOAD RESTORE ▛^POINT f©y VERIFY $ GO SUB 3▗NOT LOAD CIRCLE ;<= TO ©▜CODE STR$ LLIST Dv LIST PRINT E41. OUT ! CONTINUE INPUT NEW LET FLASH THEN 4EXP LOAD INVERSE y[ OVER POKE BORDER GO SUB PAUSE SQR TAN <>9 RETURN POINT CAT BRIGHT wj POKE AT SAVE BORDER RESTORE LEN Bg TO [M]'BIN P[I]CHR$ . COPY [H]BIN ▖[B]E RUN ▜ BORDER ] OVER q- DIM STOP MERGE INVERSE 7lM/SGN j( RETURN - OUT % MOVE LPRINT & GO SUB /IN h8 BRIGHT [J] LOAD RUN ▞ DEF FN FORMAT STOP ©CHR$ PRINT IF ~SQR x LINE BIN ▜ATTR BRIGHT CLEAR [M]NOT FLASH EXP USR G[I]INKEY$w^F<BIN 3 LOAD U:SIN RUN NEW [[H]J> RANDOMIZE PEEK LLIST ▛[P]SGN y ERASE NEXT STOP <=? SAVE SCREEN$ RETURN VERIFY GO SUB COPY USR $ LLIST INPUT G/PEEK OVER SGN P[D] NEXT FORMAT PEEK LET B& BORDER CLS PAUSE LET OPEN # NEXT +~[I]E OR ▜#FW LOAD STEP ~YwoCHR$ }PI CLS 'a COPY 7/ OVER [F] IF TAB [R]jWFBIN LINE PRINT FORMAT LEN [S]{7 GO SUB ABS PEEK ? INPUT PAPER Mp)! RETURN DIM ▛ CLS d[I] LLIST E7[G] BORDER `w PAUSE [N]'SQR [K]UABS FOR ]ASN <=oVAL$ VERIFY STEP <>!>/ PAPER ABS PEEK RANDOMIZE SQR wTAN INVERSE POINT NOT COPY ^[P][I]-w# COPY [H] LINE [O]8 LOAD COPY O_[P] INPUT CLS CONTINUE ▜[T] RANDOMIZE T/USR [I] PLOT <%I PRINT [F]H RETURN PI LOAD wy RUN PAUSE vNOT NEXT r SAVE y▛ PAPER }? BORDER CAT PAT CODE [K] OVER SGN COS COPY IN GO SUB [T]J RETURN OUT PLOT !V}O@[F]`>v% SAVE W LOAD MOVE M[S]<=N NEXT RUN ▛ FOR DRAW INVERSE LLIST 7 GO SUB ]/^ INVERSE ATTR BIN O$w{[M]7 FLASH ▜ INVERSE INK jo VERIFY CODE INPUT * LOAD OR ▞ LIST ATN OUT CAT ATTR <= COPY [A] INPUT nRND}STR$ C BEEP RETURN COPY q STOP ▗ INPUT CODE IF DEF FN BRIGHT SAVE STOP CLEAR ▛[G]"x RESTORE IN b[R]yA PLOT OUT LPRINT Hu BEEP RANDOMIZE j4 CAT DIM l LLIST [O]]UB, RUN ZRND& CIRCLE LOAD LPRINT INK BIN / RESTORE H MOVE z COPY [H]o BEEP NEXT PRINT /|VATTR | INVERSE INPUT LOAD >LEN STOP CODE CLEAR FLASH ATN ?Y[M] FOR RUN COPY THEN BRIGHT [H] NEXT TO }S92 NEW FOR BORDER GEXP M[B] STOP t COPY BIN [H]/W;zN+[M] OVER LIST ?P) RETURN BIN INVERSE FLASH # DATA LINE " CLS SGN PEEK COPY ▚ OVER FOR POINT [R] PRINT OUT COPY 4/[H] RESTORE $ FLASH ; DRAW 0GINKEY$K LET LIST OR FORMAT I STOP [Q]x COPY ▗[G] COPY y[N]=ABS CLS CHR$ IF COPY PIO BORDER COPY bTAB dPOINT v▝M0 AND [E] FORMAT } LINE COPY PRINT {C|PEEK % GO TO ?eBIN STEP 3w FOR [S]7m OVER CLOSE # IF !; RETURN "cVAL$ PEEK LN k+ DRAW [H]SGN ATN REM e SAVE ATTR ABS INK W READ [L][K] ERASE STOP INVERSE IF DRAW DATA x LET ▘▞ GO SUB [J] RETURN [U][P] OVER CLEAR ATTR NEXT COPY STR$ k[M]RND OR [C]POINT 9[EXP eG]▖:} OUT [C]'ATTR ▛ PLOT LOAD CODE ~ NEW FORMAT RETURN ▖ CLOSE # READ NEXT PAPER /C COPY LIST TAB COPY READ d[K] NEXT OUT POKE EXP SCREEN$ MOVE RETURN < IF [E] VERIFY FLASH TAB I/ OVER MERGE IN /17[M]^?[P] SAVE 3{▚CODE LOAD OUT CLEAR SQR STOP 8 READ COPY INVERSE ^8 CLS PAPER STEP % THEN BIN [U] PAUSE -1gt▜ASN o'wCHR$ STEP SCREEN$ [M] SAVE lASN { FORMAT OUT BRIGHT $&y COPY .ASN %PEEK GO SUB LPRINT C FOR DRAW CLEAR }- COPY ?[N][R]RND BEEP RANDOMIZE LEN DRAW BORDER } THEN IF /ATN MSQR PEEK IF CHR$ STR$ b"~ CLS ACS BORDER ' COPY ▜]IN LOAD L CLEAR V LIST DRAW ~+ FOR DATA <"bSTR$ COPY MERGE C. OVER NOT </8LEN ) CONTINUE ! GO SUB BRIGHT V STOP OPEN #w PRINT CLEAR LN d$[F] RANDOMIZE POKE OVER DIM CONTINUE RUN ^ MERGE >=1SIN CLS OUT PAUSE CIRCLE COPY %LEN fY CONTINUE CLEAR BRIGHT <[A]k RUN O7 OUT ▟3 PLOT REM RETURN BIN |▜NOT w▞Q./ FLASH IN X CIRCLE LPRINT INVERSE c DATA ;7$> RETURN 7SGN LIST LN CLEAR NOT ATN &=ACS REM A PAUSE STOP ATTR INT + BORDER LET 1AT INK O▝ IF SCREEN$ RUN SAVE COPY LOAD ATTR COS 0"l BRIGHT VAL$ ,d@[D] NEXT gK9 OVER OR hASN (RNDT$f[F]U BORDER RETURN { GO SUB FOR INPUT TAB INVERSE e<= POKE ACS nCOS N PLOT IF ▟iylNOT LPRINT 2 COPY ▚ BRIGHT . GO SUB JV INPUT FLASH PAUSE D CLS CONTINUE SAVE GO SUB ▙ RESTORE :NOT ASN TAB 4n/ DRAW <=S`~ FOR SQR ATN COPY BIN CLS [L]G CIRCLE d[L] RUN SGN [K] NEW =o+: INPUT U[P])© NEXT PLOT TAN CLS [H]C[C][N][K] NEXT . BORDER + DEF FN IF OR ▚xo COPY OPEN #7 SAVE MASN v4oSGN Cn RETURN [M]O OVER <: BRIGHT MOVE STOP NEW OVER INVERSE OPEN #© CLS {[T]<=^INT PRINT } CLEAR STOP INK yo LINE [G]j/[▙ GO TO COPY STEP L THEN PRINT j TO INPUT .SIN SAVE TAB OR LINE CLEAR i▟LEN [J]LINT LIST SAVE SGN COPY LET 5ACS [H]oCOS _|$ LET [ BEEP CLOSE #0x INPUT !USR sq CAT AND RUN [T]WACS IN P~woyd/SQ7 OPEN #▛*<af REM OVER v LET cW ERASE 9 DRAW GO SUB INVERSE COPY :PEEK kSGN bfINT zi RESTORE AND FLASH LOAD NEW ABS PAUSE ▛g[T] MERGE #6, OVER VAL$ IF 'aPEEK READ GO TO PAUSE COPY DRAW [L] CAT PRINT <= LOAD RETURN <i LET STOP ] INPUT }>= RETURN <> LIST 8TAB ]NHEXP REM {▙^/lPOINT CIRCLE IF VAL$ G%CHR$ DRAW ATTR DATA STOP ?PI CLS P DATA [L]B▝ MERGE AT > LINE ( PRINT GO TO NEW /HSQR RUN + TO PAUSE BEEP { GO SUB rA;[G] RUN LIST CAT + CIRCLE _f CONTINUE l[E]M`PIn LOAD hr LPRINT INPUT I OUT OVER VERIFY [T]ATTR RETURN READ 7{TAN MERGE H7TAN [I]SQR BORDER 9| COPY ASN VAL CONTINUE OR G DATA 4ABS ▖[J] MERGE SCREEN$ fH( FLASH BEEP d CONTINUE 9 PAPER > RANDOMIZE EXP [S]▜SCREEN$ |/%[H]nx7 PRINT ASN *[M] FLASH SGN SQR 7; DIM [G] SAVE w GO TO COPY FLASH ve INK U POKE LLIST ©VAL TO [E] THEN [K]Jr@ACS [A]?SQR DEF FN e#^bSTR$ MERGE j©Q COPY AT E INVERSE 9[L]WG} LLIST ?o[K]2@ RESTORE R[G] GO TO IN RANDOMIZE B~ SAVE Erp[D]3 NEXT c[J]PEEK 1 LET COPY INVERSE v| LPRINT . VERIFY c CLS OR o BRIGHT BEEP 7~ IF CAT SQR LLIST STOP [B]SGN © OR [H] STOP LLIST FLASH REM © RESTORE wCHR$ PRINT &[J][L]▞{`INT [B]fCHR$ RANDOMIZE SGN ] LIST ▜PIKBIN ySQR SAVE K[F]~N TO ATN ? BRIGHT DRAW i LOAD ▟7t_G[T] DRAW [[L] RETURN ATTR LLIST DEF FN GO SUB INPUT R OVER Ao)IPI CLEAR DRAW ©pCODE THEN ~ COPY [G] LOAD ▟ MERGE ,[d#[J]AT %J FLASH /CODE ▗T BRIGHT m TO INKEY$ OUT SAVE EXP #} DRAW ATTR [R] COPY DEF FN m GO TO INK [N]]nZo} AND PRINT COPY BIN SQR NOT ATN CAT $ OR <ASN BRIGHT PAUSE PAPER . INK [L]N GO TO DEF FN [H]CHR$ TO [D]PI INPUT BORDER RETURN X[N]|SGN ASN EXP OR NEW IN SAVE 0 CIRCLE ▟[N] COPY OR INPUT POKE W FLASH b DATA [R]-F COPY w PLOT f}uaATN ATTR ) FOR ; LPRINT CLS NEW >=[L] INPUT [C] CONTINUE OVER ASN LET [B][T]BIN CLOSE # LOAD [L] INPUT PRINT VAL [U]- PAPER LEN )ACS PLOT LEN r[B]0$b" PRINT ▜VAL$ {zOThASN (,[G] PRINT VERIFY PAPER SQR STEP © CLOSE #<▘/ CAT GO SUB D REM DEF FN l SAVE NOT -U STEP [L]QX'o% INPUT j POKE LLIST INPUT LPRINT [I]WCODE CAT _ OUT ?EXP INT COPY PI INVERSE |n▞ GO SUB IN AT SAVE $LrLN H▜h▙ GO TO e NEXT CIRCLE P PLOT TAB BRIGHT 7=@ INPUT STEP COPY LN GO TO vx INK F LET DATA STR$ FLASH Z CLS { BORDER STOP LIST IN INVERSE DRAW INKEY$ BEEP VERIFY o<> STEP yLEN 9 LOAD IN MOVE LLIST INK DEF FN }'©[L]` COPY CAT BIN =| COPY NEXT PAUSE 2 GO TO CODE NOT [P]CZ FOR [Q]3e CLEAR GO TO LIST CLS SCREEN$ DEF FN OPEN # COPY STEP RUN / VERIFY ~ OUT REM EXP 1▜ LOAD STOP oywVINT FOR CHR$ STEP DATA SQR y OUT [H]CHR$ / RETURN 7 COPY LINE ;3L SAVE READ ▚[M]EXP VLn5TAB PLOT &4PEEK ?ABS ERASE 31mCODE ▘%ACS i/ LET y© VERIFY CIRCLE w_l<='▙* DRAW EXP COPY CIRCLE < DIM LLIST NEXT LET MERGE >= INVERSE BRIGHT LN IN g CLOSE #c` STEP SAVE # READ ~ CLEAR Oa RETURN COS NEXT COPY IF <)I GO TO DRAW TAN w MERGE ' COPY bATN `ASN ]-F FLASH !<=o GO TO OUT [O] INVERSE {d TO STOP RND%_ NEW RESTORE CIRCLE mg INPUT %9p' RUN v CAT _[M]4 CLEAR 3 LIST CHR$ COPY RESTORE BIN CODE X OVER Y OR CLOSE # COPY G<INT ^ MERGE SAVE COPY #[L] BEEP PEEK INK Qj[O]1[H]u FLASH GO SUB RUN V VERIFY LET } PLOT [N] COPY READ CLS CONTINUE 8 IF [J]} COPY ERASE PABS '' DEF FN MERGE AND ▝4[M]b DATA OUT CAT ^g[Q]0b RETURN BORDER [R]PEEK RANDOMIZE PI[T]▝ FOR VAL LEN THEN [R]X RANDOMIZE ASN RANDOMIZE COPY CAT COPY COPY sk[D] NEXT Qm CAT ▜SQR ERASE ? FORMAT SGN LIST LOAD LLIST CLOSE # CAT FLASH COPY STOP w/!▘;0 PLOT DRAW POKE SGN ZC INVERSE LIST DIM PAUSE ▙ NEW RUN CAT 7//CNOT LLIST COPY NEXT BORDER FN [I] RETURN BIN ▜ INPUT O AND RESTORE ] BEEP BORDER DRAW 'j}#-[T] CLS !o BRIGHT RETURN O8/P9 INVERSE FORMAT OPEN # NEXT - CAT CLS PLOT SGN # COPY READ ERASE ATTR 7 DEF FN MOVE = PAUSE LPRINT ^-y STEP /© RESTORE RESTORE DEF FN SAVE .GIN ^M LPRINT RETURN PAPER y} CIRCLE ▚/ DIM P▝ STEP COS cj0 COPY r,.N OVER ; INK [S]<[FL GO SUB 6. OUT RETURN v_ NEXT r STEP ▜ THEN FORMAT [I]f[I]T DRAW OVER MOVE MPOINT [L]? DIM PEEK [M] OVER PRINT BRIGHT POINT ]#c~ MERGE PEEK IF c COPY x~[T]{ IF ACS CIRCLE PAPER ▙[P RUN DIM ATTR ▜*L[H][J]1w GO SUB ^ PAPER LPRINT Qu CIRCLE c OUT CLEAR p FORMAT BEEP LIST POKE NEXT LLIST y"/ATN NEW GO TO V[P][K] BORDER REM STEP XpCHR$ OPEN #v▞2y FOR LN COPY PRINT GO TO . RANDOMIZE y LIST COPY POINT ATTR }7>=VAL z[T]ATN [M]ASN FLASH ▛r5J▟#FN INPUT )&[R]-E^[C]~kyz BORDER GO SUB INVERSE BEEP X- OUT PLOT POINT >[Q]#=oWH< POKE [O]POINT [F]*PEEK [ CIRCLE [Q] INVERSE MOVE 5<>INT RANDOMIZE `}OAqz CLEAR ]=bE THEN PRINT ATTR PEEK ~[H] REM 0iG*#y|y FORMAT PLOT ▟[P]7 OUT x^ POKE LOAD p ERASE MOVE CODE BEEP W FLASH BRIGHT F LPRINT PRINT !ITAN RANDOMIZE CONTINUE DEF FN 8CHR$ DRAW . INVERSE fN NEXT PAPER PLOT rCODE BORDER [K]USR CONTINUE MOVE COPY RETURN FOR RUN RND REM STR$ if*CHR$ CAT INVERSE ;>R* CLEAR f[E]gE] NEXT j DIM COS &)[[H] INVERSE PRINT LINE {[O] MOVE i~SPOINT y STOP @INT REM EXP [J] GO TO 3[I]^J;NOT CIRCLE IF j SAVE [G][R]Q` DIM I©▝ CLEAR BEEP PLOT i_ CIRCLE ▖', GO TO VAL$ LOAD INPUT cRNDINT RANDOMIZE AT SAVE 1 LIST z INPUT DRAW FOR INT ~<i LOAD LIST ;&SQR Y NEXT 7LEN LOAD F THEN FOR o DATA L`[O]5AT OUT NEW 35ABS OPEN #F RETURN ▚ RANDOMIZE OVER WINT DRAW DRAW REM LPRINT 3/* CONTINUE STOP [F]K LOAD "WC2'%$PEEK RESTORE L7/" IF B( RESTORE o PRINT m[S]PI1 COPY ▛▖ CIRCLE .g NEW CAT {} INVERSE X MERGE IF [T] DRAW 5/ CIRCLE CATN ){BLEN DIM GO TO INPUT [P]0u{kATTR RUN a LET nM CLEAR 1PEEK RUN r9/ NEXT K CLS EXP FOR qIN LOAD INT ABS XG SAVE oPEEK STEP <=b* NEW 25 SAVE r; DATA ATN ACS CONTINUE [U]3~ PLOT TAB INPUT STEP [H] IF REM DEF FN LLIST ATTR OUT LET |c BRIGHT 30 DATA GO SUB DIM h THEN RUN ATTR ▞ CIRCLE RESTORE RETURN NEW j[N]l&[~/[Q]SGN DRAW o[Q]@7POINT LN FOR THEN {5 VERIFY FLASH LN y[F] SAVE [R]*) OVER } INVERSE ntCODE PLOT TLN ABS =[N][ FLASH VSGN LIST GO SUB [F] BRIGHT STOP MERGE ▝d} CLS e INPUT CONTINUE LOAD _ACS j SAVE M▖G? POKE {/ LOAD DIM THEN BORDER OR ASN E| BRIGHT SAVE wt+[N]G BEEP D PLOT CIRCLE r AND +RNDATTR ACS c: OVER B SAVE -) PAUSE RLEN M%NOT g RUN IF p] OVER READ ▜CODE LET POKE LIST ▛ BORDER l FOR o/pLEN FLASH SQR J INPUT INVERSE dINT BRIGHT S[SGN BORDER STEP RUN /[U]INKEY$CHR$ ▟ INPUT REM + LIST LPRINT BIN ?ATN TAN ERASE INVERSE DATA STOP c READ PAUSE >{▝ CLS OVER OUT FLASH [H]CODE RETURN BEEP [. STEP MERGE FLASH MOVE AND t'[J]1^2 LOAD POINT XFO!= STEP VERIFY PEEK GO TO CONTINUE INKEY$0[H]n REM DRAW FLASH [O] POKE CIRCLE PLOT TAN 1#9AT OUT POKE 2oi[J]3{ATN SAVE ▜n LOAD FOR VERIFY '^ DRAW l OVER X DIM yqV RESTORE ;CODE FORMAT kSQR 7ATN ~. LINE KW INPUT ERASE DIM OUT B CLEAR s▝ INVERSE RND[O]yn|e[O]f CAT [B]ABS PAUSE LOAD CLOSE #" BEEP RUN -_ CLOSE # LET 1F ERASE ATN %ASN COPY $u/KATN UN▙ DEF FN DRAW DATA ▟[TAN n}[J]PI GO SUB USR BRIGHT CONTINUE NOT THEN ERASE POKE ▝ COPY [I] INVERSE V;ZVAL {6(ABS PEEK POKE RUN PLOT e FOR yEXP 2PEEK Y]^gn TO {uACS RNDU[G]2 INVERSE ▙/IN DRAW INPUT GO SUB DATA NEXT DRAW STOP USR AT VAL nx MOVE AT MOVE & COPY u MOVE NEW FORMAT [P] PAUSE VAL CIRCLE LLIST DRAW CODE MOVE [Q]2 DATA CLS ; CLS ATTR THEN NOT IN CIRCLE CAT [E] SAVE PSCV DRAW NEW 1.20/PLAYER?BKVA RETURN "COS USR FOR !LSSTR$ /./CHR$ ANOT CAT +~#fo LLIST h?<pVNOT >2 INVERSE #[Q]C"0<>[C] READ [R]t PLOT BIN CODE 2_ OR z^/▞ AND [O]<=<h&ATTR USR RUN [S]m|[L]bUSR ~Ib! NEXT NOT nG▞[J] NEW H2"ACS USR ![N] THEN CODE w# DRAW !SCREEN$ USR FN INVERSE LOAD ▞INT 9NOT CODE >= DIM + OPEN # REM CODE [U] THEN =STR$ [L];NOT BRIGHT /COS 1 PRINT COPY CLEAR OVER ~ NEXT LLIST COS CAT PLOT y+ CONTINUE LOAD IF THEN p RUN 13POINT _LN SIN ASN INVERSE CHR$ ▛ STOP b DATA LOAD STR$ [I] NEW ERASE <= FORMAT ▙LEN [C]BIN CLOSE #1C{[D]PIB RETURN |8'g9[Q][A]:USR a VERIFY IN [L][P]IN Y INPUT STR$ GO SUB C>NOT LN RETURN ~6 CLS '}(#NOT LET USR N PAPER S PRINT W VERIFY ▖ LIST c OR >2c<>[Q] RANDOMIZE (jhB GO TO THEN LIST }6 INK `SIN NG] SAVE VERIFY L IF ▜ INK o&`iVAL [N]pS<> COPY R DRAW [Q] OVER %Y PLOT Kk(=<=t[K] CLEAR GO TO *COS [P]/2Q RUN 9#3 COPY SIN STEP ▜[H]2tAT MCOS CONTINUE ~q THEN [K] LINE LPRINT SCREEN$ [T][STR$ USR DIM :>=@ LINE ▞ CIRCLE &dVAL "BIN B▜+ BRIGHT DRAW RETURN z PAPER |CHR$ PAUSE 3 RETURN VERIFY NOT #ACS CLS FORMAT BRIGHT MOVE wIAT Z(^ SAVE ▞:INT W LINE ! MOVE CHR$ H<6 DIM 4 TO OVER ▛[S] DRAW STR$ < LET [U]x OPEN #BIN I@>] LPRINT ©LEN i[E] PLOT NEXT IN A1FN RUN LOAD 8BIN [E]POINT DRAW SAVE [G]= RANDOMIZE LEN D&p1'CODE $ STEP EXP pSCREEN$ qVBIN qqNOT 9K OPEN #|s4dBIN AT [I] OR AT Bb OVER LPRINT !SQR NOT READ ?V OUT RESTORE ©CHR$ ▟? CLOSE #j FOR INK RETURN qd CLS BRIGHT IN [G] CLEAR CAT SIN [J]BIN / NEXT OUT -y LINE t▝z[J] BRIGHT [O] RESTORE ~ STOP STOP INT [G][K] OR LET AT [C]S RETURN 5TAB CACS [P]1fSTR$ FORMAT :[S]SQR /ATN CHR$ u OR f[R]PEEK BRIGHT wf TO 2[M] GO TO :SCREEN$ COPY Gd LET BORDER LEN O THEN v DRAW 0#- AND ▖INKEY$ GO SUB ([B][I].<= MERGE [H]FN u BRIGHT [I]POINT I INK AND v(▚ OUT SAVE Kbs.)} COPY OR /o# PLOT LIST [T][K]ATTR NEXT PAPER LLIST ASN f1: OR ▜ CLEAR STEP LIST <>LEN ` MOVE *[P] THEN ATN GO SUB RASN 9INKEY$0 OR THEN |1# DEF FN oINT <>{<=[J] THEN CHR$ ▝w(Y IF PLOT GO SUB D} OPEN ##!2 BEEP [F]yACS e RETURN CHR$ k[U]qB<=IN COPY @T[J]>= POKE c LIST INPUT CODE INKEY$h LPRINT bf/[P]sg)ATTR u LET TAB [S]VSQR B4ACS a6 FORMAT BORDER B[M]8i3 LET OR EXP RANDOMIZE &N[R]3[T]cx LINE `c NEW PRINT THEN DRAW A SAVE }q:9IN Z7[F]5[D]BNPEEK !q[O]:▘ OR 2~ DATA S[D] DRAW <><=Jm SAVE BRND THEN Nt BRIGHT S LINE ▗ NEW vXLEN K[G] RANDOMIZE STR$ ▝z PAUSE [G] OR VERIFY SCREEN$ WV83'yCODE CAT "ATTR OR THEN C DRAW TAB NOT ATN +[D]7 LET [N]▛ GO SUB CHR$ NEW s▞ OR ERASE 2{m=RND COPY R[K]<STR$ OVER SCREEN$ RETURN SQR ▖ FORMAT PAUSE ▖g( FOR I[E]ATTR USR [L] CONTINUE [I] GO SUB PI OVER FOR LEN [N]< MOVE W{ NEW [A]TPOINT ▞# INPUT OPEN #5S PRINT ASN INKEY$ IF AND "^2&Mo| LLIST RETURN DEF FN e[I] CLS AND INVERSE CODE ▗ DRAW OUT *[M] LINE ~ INK THEN c[U] PLOT M AND CIRCLE ?[O] RETURN [M][ GO SUB K LOAD J▛ SAVE [P]Z▚[N]oNACS RANDOMIZE [T]F,{W* STEP o GO SUB OR "l AND ?Z-CHR$ 'x CLS [K]9fBIN [C] LET a1LA▜[A]; READ 3uRND LET [J]TAN oz=<RND AND EXP POKE INT L▛[G]SIN AND ▜# SAVE G[N]CHR$ '@`p#~ STOP Ol RANDOMIZE NEW : COPY LOAD LEN [L] FOR '<=SGN STR$ CODE [C] CLEAR 4 INK v.H▝M STOP NOT ( TO `9[P]Xx BRIGHT AND "▝©<=▟ AND LPRINT ;-[U] MERGE LLIST NEW PI] DIM CLOSE #ABS E3I STEP LPRINT [H]AT LIST INT [U][H] CAT [H]SQR 8 FLASH PAPER SAVE n"TAB RUN < LLIST THEN POKE [A]USR SGN RANDOMIZE [S]C[R] GO TO LIST REM $▝&NSTR$ k>=4SGN ▝uDUSR 'LN LIST ACS >=08}JUSR [P] LET <="[H]>=o DRAW ▜▜[T] RESTORE USR COPY STOP THEN 4:[O] LIST [P] AND IN COPY [D]p!POINT >(#v LET <B GO SUB yCATTR =AT K FOR > COPY ASN ▟L[D]CHR$ [G]SQR © STOP qK BRIGHT DRAW FORMAT ERASE [F] OVER > DRAW [D]▛;g[G]▟o PAPER F$ RUN ▗ LIST [P]vqOATN 6RNDz CLS ?< LLIST OR CAT BRIGHT DATA PAPER NEXT ▞6w4 SAVE BIN TO v[N]INKEY$[O]USR | STEP <>D/!VAL CHR$ CLEAR COS }PIc[F]fXPN RETURN LEN STEP _ INVERSE RANDOMIZE OUT x BRIGHT SAVE AND TO "▘ GO TO /n BRIGHT VERIFY X LPRINT ~LEN t CAT [P]@ INPUT INK STOP NEW [B]A PLOT VAL$ F CAT k, POKE GO TO LIST ATN LEN >=bY NEXT DATA SAVE / CAT [R]{= FOR W6D INK SAVE BRIGHT STR$ FN g=[A]y PRINT AT dP[N],▟[O]:© DRAW INPUT LPRINT CLOSE #TAB NEXT >=ABS [J]▖SIN FN [P][G]COS [O]▟z VERIFY ~wpj<=IN 0 POKE ^ FOR TPAT gK SAVE GC[O] PRINT ?< SAVE ©[F]85 READ CLOSE #COS /-*(cL STOP $V TO 3)_PEEK ABS RND RETURN RUN m[L] CLOSE #CODE R[Q]ABS [E] PAUSE } COPY RESTORE E INPUT ( PLOT [Q]N,▞ PAPER #)/ RANDOMIZE 5 RESTORE AFN [T]>Od?(/ COPY ERASE A FLASH [VAL xF INVERSE ;▝][B]BIN uAEoT LINE [F](PQ COPY PRINT IN [I] INPUT ^07©@OMPIhCOS TN READ [N]F.|/gaUSR P[M]*_/ATN PAUSE LPRINT OASaiR0d6s LET /EI19 FOR DRAW COPY ?n!%[O]5h LLIST #` INVERSE COS ▛ACS MERGE IAT CIRCLE (Vo TO P INVERSE BIN n<=COS ▜▙i CLOSE #[C]lz8 LIST [▖} RETURN POKE MOVE SAVE RESTORE =SUSR ]} FOR jZW CLOSE #INT RNDFN FuNOT [T] PRINT E<>/4 CAT bBIN qBIN COPY SIN IF POKE MERGE ▜ LET >[E] CIRCLE [J]INKEY$IN LIST OVER <>i6 FLASH @ CLS [R]ACS - COPY TAN *<> IF A[K][F]?e NEW >=} PLOT © PRINT OR © RANDOMIZE ▟ READ [A] RETURN C[B][C] VERIFY IF [F] LIST GO SUB DIM 8LEN _6[T][U][A] OPEN #ATTR ABS [O] STEP 5 CLEAR TiN DIM ;▘WQ▞+INKEY$ BRIGHT ©LEN Em[N]^ OUT F[H]x PLOT + RUN AT CLOSE #[M] STOP M[U]u THEN ?INT T COPY LET NOT ACS FOR E%[J][P]B[O]FN m[I]CHR$ STEP ▛[B]©9▛NOT [E] PLOT [M]▞SCREEN$ ATN V`<>>= OPEN #TAN M DIM eATN X AND ATTR CONTINUE ABS [P] SAVE PAPER LPRINT MERGE SCREEN$ . SAVE PAUSE FN OR N DRAW OPEN # BRIGHT PI RESTORE [P][A]DHATTR [I] CIRCLE CLOSE #%TAB [J]i REM BRIGHT SGN ASN [C]ABS TAN OISTR$ b[B][S] CONTINUE EXP ` RETURN # LPRINT [D]Of|LEN COPY ` LPRINT RANDOMIZE [O] PLOT [T] COPY ▟O RETURN f▝[S]# OUT L DRAW INPUT ▖▚U COPY pfSTR$ VAL jLEN "O7 RETURN RANDOMIZE z/ NEXT {(STR$ pm▗ASN NOT PAPER RANDOMIZE STR$ X▖[Q]pbUSR ▙ PAPER [I][B][O]TAN E[ OVER DEF FN 5]T OPEN #Yn- BRIGHT PLOT RETURN OPEN #[T][S]@SGN 5 COPY @d#[H]/ks VERIFY U[I]rX CLOSE #N) RESTORE [L][Q]BIN IN < PLOT ▘2eACS fl SAVE 4[Q]F/[ FOR SAVE ;# RESTORE OR + PAPER [G]B9 DEF FN [P]USR RESTORE VAL .PI PRINT STEP ' RANDOMIZE [F]▜?ACS DIM ▗[D]W[K] VERIFY USR BIN kt} CAT ACS OUT ;n[M]@▗ CLS b PLOT POINT _ TO VERIFY CODE DIM #▝CHR$ RANDOMIZE VERIFY © STOP AT ▟[G] PRINT PLOT PFN CONTINUE GO SUB LEN LPRINT A AND K COPY ▘ THEN dVAL SAVE BRIGHT f[( LLIST LET READ [Q] CAT : REM <=0POINT +IN POKE ▝ MOVE X LINE 0 ERASE ▖VAL @IN Xz TO f▜[S]LCODE 3/ MOVE d0NOT USR THEN STR$ eBIN ▖LN LEN #~EXP f▛ RUN tACS [N]<=N[J]0TAN ©h OUT ▞[p LLIST PRINT ASN (USR {M TO INPUT CODE COS USR ▙FN CHR$ d`[L]GNOT PEEK RANDOMIZE 1a LINE AT `) TO SQR DRAW SCREEN$ O[J]CODE X2m FOR &PEEK INPUT FLASH Z[v/ACS LIST DEF FN ] INVERSE ^x[U][I][R] THEN fSGN LINE GO TO VAL$ ^ VERIFY F[K]E[M] CLEAR PEEK oCODE [R] RESTORE OUT $b+▘8 INK = RETURN LPRINT PRINT CLOSE #vCHR$ 'RC ERASE MERGE )#▞[K] INVERSE R{/5[F] COPY FORMAT *9 THEN u<>@VAL 0▞ CAT POINT x LET BRIGHT [Q]& DRAW INVERSE [T][K]2l RUN READ f?*0▘USQR GEXP T FORMAT L▚~[Q]U LINE e▞ RESTORE ▜▚ CONTINUE _ NEXT "▛ GO TO INK ▘m[ ERASE d BORDER [J] BEEP =▖BIN PRINT [H]BIN TAB SAVE ,C▛▟POINT ^RND/IN iPI COPY b[I]IFN [G] ERASE z2[U]` PRINT [N]M▖© AND >=dE▝▖[L]xj'6SCREEN$ SAVE RESTORE PAUSE CHR$ PRINT cACS READ [F][G]A▖1▟<=CSCREEN$ M DRAW NOT OUT U GO SUB INPUT kwFN IF VERIFY CHR$ USR SGN POINT [O][H]NOT VERIFY SGN [J][P] DEF FN VAL$ 6▛[D][H] LET PLOT ] REM TAN CLS _ RUN GO SUB CLOSE #` MERGE ATN THEN aATTR LOAD bW OUT c LINE INT d IF Rg POKE ef RESTORE DATA Xp BEEP [U]n RUN [S] OR STEP OVER RETURN PRINT xR5<=[G][F]k CIRCLE cC FLASH ATTR fJqSIN CONTINUE ?COS SCREEN$ PI CLS ▝W CAT THEN [P][G]}GtU PLOT *STR$ [N]XQG LPRINT ASN [Q]a[O]▜NOT ERASE 7ABS [F]SIN V` MOVE PI^TAN USR +SCREEN$ FM7 REM ▘▞YwINT jEKSCREEN$ INK EXP u=] BRIGHT /2USR [S]WCHR$ TO [F][O] OUT w LLIST z LIST POKE .k PRINT [O] BEEP BRIGHT ▘0VAL LEN SCREEN$ PEEK r^ CLOSE #COS c RESTORE USR ▞o BEEP 2r GO TO t`< INVERSE yI▗ DEF FN FOR ▟ABS /STR$ y^SGN LLIST ▚4 RETURN INK [S] THEN =PI LINE o▚INKEY$ GO SUB NOT z IF TAB [Q]#Y▛ PAPER e&SIN yF)_ RESTORE z[F] ERASE g BORDER = FOR "^@ATTR o[B] INVERSE ASN vlx RUN COPY DRAW 'jC=V, CIRCLE 6 COPY STOP ©R[N]V<> FOR >ATTR *VAL PI[Q]F MERGE , INK STEP [M]▖|[T]A4x POKE ATN LINE V NEXT PLOT c CLS / RUN PAPER O LET CAT ATTR } INVERSE [A][G] RUN NEXT 1LEN CIRCLE WASN PEEK SGN FN INVERSE ▗ DRAW L@k[D]USR X[E] LLIST _ BRIGHT [O]` DATA oEXP MOVE mTAN ATN OPEN #RND5 CIRCLE GO SUB ,MCOS ▟*w[O]; CONTINUE ▜▞FSQR 3"aINT [F]POINT TACS VAL$ INVERSE 5K&/▞[] DEF FN Xm? RANDOMIZE VAL )STR$ d[M][K] CAT RESTORE o MOVE [I] OPEN # LET IN GO TO OR _[M][M]aQ^ READ 0▙o▚T BEEP [G]SGN {^WCODE ' RETURN CHR$ ▟ LOAD POINT DEF FN ABS |-CHR$ RV DRAW CLOSE #i#xLg▞o d[A]<>AT SQR INVERSE . COPY b STEP ^<=* CIRCLE oIN LIST USR VAL GO SUB [G]© SAVE #m RETURN RNDL RANDOMIZE d© LET 0 CIRCLE >` LOAD 7p|[G]W INPUT Fw REM [U]v?l]m FOR @ PLOT 7AT GO SUB - STEP r< CLS [O] OVER NOT t©LEN !0<= RETURN [T]BIN PLOT STEP ▖▟ATTR -▝' GO TO STEP COS RUN CODE RETURN USR POINT |NOT 6ATN FN THEN #abv FORMAT MERGE m BEEP WZ DRAW bnV CLOSE #@ NEXT LPRINT STEP ▙ FORMAT ] PAUSE G RUN r}PWFN KIN L~Ul POKE [T]INKEY$▚{s©[P]STR$ ▙ RETURN xomX>qUSR R[L] DRAW NOT [ COPY STOP G[D]EXP RETURN |ATTR [G]?j[K]INT CODE 1/vPI|PEEK 3CODE u GO TO ` SAVE ▜?cF+ PAPER TO ,1i<f/<=CODE COPY 0G FORMAT AND ACS RND CIRCLE px& OR ▛[P]nRND 3NOT BIN LOAD `CHR$ V▝' OVER K CLOSE # THEN k[F]| STEP =▟ RETURN VAL COPY [Q]ASN 3rAT CAT [I]TAN dABS RETURN STOP ATTR MOVE ^[R]TAB } OUT J{ DRAW z^ BEEP *~&bhcfR INVERSE !CODE V>='n(TAB LET FORMAT /▚▘INT 5=IN g OUT BRIGHT mj[O] LOAD CLOSE #' PAPER <n[G]USR Q MERGE b]▝SQR PI[L]x LPRINT _[C]vOACS ▝RNDO|[Q]SCREEN$ ]sX COPY {LEN ▝w PRINT AT [I]]f[E]tABS #"ABS _ COPY FLASH z RETURN IF USR [Q] NEXT ▞ COPY SCREEN$ STEP f OR gACS USR r LOAD FLASH }%[D][Q]VAL [B]ATTR ` RUN ▞ COPY [R] INPUT [H]{[[U](h# OR ▜fq PRINT ~<>_SGN [R][A] CONTINUE FLASH LET [ IF V[L]W1^a NEW -F[G]9VAL =PEEK BEEP ©` COPY TAN OVER PAPER COS v|3 RANDOMIZE R[J]▗ LET INKEY$-OUSR NEW J[L] GO TO DRAW D POKE INPUT [H] OPEN #+VAL$ >= BEEP ACS [L]T[L]BIN L` LINE BORDER [N] LOAD GO TO THEN ERASE , CONTINUE o RUN VAL SGN PI2[F]1 STOP C PAUSE F▟AT INVERSE ▛SGN OR MERGE ERASE v▝! VERIFY ▝[U] MERGE [O]>' LIST ▛9l▙<=J|[N].}▞J OVER ^(a{[Y8▘e[G]ACS [R] SAVE <= PLOT RETURN COPY @Qt GO SUB INVERSE & FLASH o OPEN # NEW 8 MOVE POKE 0 NEXT {7RND PLOT bBIN [P]d~ LPRINT " [C]UD FLASH ABS CLOSE #VAL RETURN Y[H] COPY ! GO SUB [T]#CHR$ <= MERGE $ COPY READ RANDOMIZE NOT ▙@▛[P]TAN w▙q G"fLN I#&m INVERSE H AND l GO SUB b PAPER }"INT ▛ GO SUB ▞ FLASH ACS ▟Dn[U] READ USR LEN >9 NEW 7TAB w OR USR { FOR #3`@ BRIGHT 8 THEN n [P]SGN i9b{!" OR PLOT #▖ GO SUB $xn COPY [B]%[K][L]D LPRINT POKE _&gUSR ▟8H[J]fn'W('i2)ACS *BIN +_ OVER ▟ STEP ▛,ABS CIRCLE -{LEN .b/ IF 5Ng READ 01bINKEY$2 RANDOMIZE e3zvP}▜4g[M] GO TO q[Q] SAVE 5u FLASH SQR SIN 6 OUT SGN CHR$ 7l/8+90 FOR IN DIM "@ RUN '^[U] PLOT INPUT & DIM 7[K] PAUSE GO TO PLOT DRAW 9 PLOT [O] IF C/ RANDOMIZE DRAW [G] CIRCLE ( SAVE ?c FOR ,& SAVE GO SUB IF cN NEW CLS i▘ REM POKE DIM PRINT SGN 1▖ LET RETURN BORDER [M]8[I] CIRCLE [Q]fb PLOT LOAD STEP NEW CLOSE # REM LIST BRIGHT GO SUB CLS TAN 6▖ CLEAR POKE 0cTAN PLOT RUN © LET [L]▞ REM GO SUB 4 FOR d CONTINUE fSTR$ p RESTORE RANDOMIZE COS [L]d PRINT LOAD ▚ FORMAT l GO SUB <.L@K~ FORMAT ![K] RUN FORMAT RANDOMIZE BIN D BRIGHT NEXT b FORMAT nL COPY STOP BORDER RETURN | INPUT PLOT TO AND FN POKE INK SAVE LN RANDOMIZE 6D DATA SAVE AND lBIN NEW [A] LINE 1RNDi CIRCLE LIST GO TO SAVE RESTORE `VAL SAVE OR NOT RESTORE PAUSE RCHR$ CAT }3▖19) SAVE 3 LPRINT 8PI BORDER TO ?C TO ▘ LPRINT t DEF FN gs>=PI LPRINT TO USR ? BORDER <g LIST BORDER [M]PI LPRINT TO @▘ LPRINT [N]▘3t|6[L]USR >=~|R DEF FN DRAW PI TO ▘ LPRINT [O]▚3▘[P] VERIFY [N]▘3tCSIN S LIST f[Q]ap+d USR PICHR$ `a POKE <g! LIST CCHR$ TCHR$ [H]t!▗ CONTINUE Cp FORMAT )▛0FN READ RUN DRAW [L] CLEAR -"(+lCOS |FN < 4YqbLN (-+("SIN STEP [J][R] DEF FN COPY STEP STEP t PLOT g DRAW ▗~?▘[P]STR$ CAT LPRINT gPI SAVE INK [P]~ LPRINT GO TO [J] STOP CIRCLE ?ta0 CLOSE # LPRINT TO [I]▘ FORMAT pf3INKEY$ t>=STAB DEF FN BIN ) CAT USR LSTR$ IN 83INKEY$ [M]SGN SLN SGN )▖ LIST g▚SGN 3NOT SGN ▘[J]aSGN STR$ TO 0SGN ▘ LPRINT [K]SGN FORMAT INKEY$ BRIGHT S FORMAT ▗)BIN CHR$ LN aAT 8USR COPY A-USR C= CLS 9{ SAVE [F][P] LET FN b FOR :R[R] FOR ©R PAPER CLS DIM SCREEN$ Uf COPY STOP : FLASH "SQR FOR V[K]USR RUN USR LACS > RUN LLIST <=USR AT PAPER FN USR ` BEEP & NEXT ` COPY [M] CLEAR [K]©[P]_~ SAVE LET }|{z} GO TO yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"LEN CLEAR IF RUN POKE LIST GO SUB REM BORDER DATA LLIST OVER FLASH CIRCLE MERGE ERASE CAT STEP LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ CLS A[U][S][Q][O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗ CAT >▘ IF INT ▝xAT K BORDER ▗c▜▖▛▟[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE STEP CAT ERASE MERGE CIRCLE FLASH OVER LLIST N GO TO DATA BORDER REM GO SUB LIST POKE RUN IF CLEAR "%(+.1369<?ADGILNQSUXZ/^`bdfhjkmopqstuvxy<>l{|K COPY GO TO 7[F]H GO TO R DEF FN +[Q]puCOS cUSR CONTINUE © GO TO +?Rdu▚[F][U]COS STR$ DEF FN FLASH CONTINUE POKE !+5?IR[dmu}▚▟[F][N][U]AT COS INT STR$ >= DEF FN MERGE FLASH LLIST CONTINUE INPUT POKE IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U]FN = RANDOMIZE AT CODE COS ACS INT ABS ?>= THEN DEF FN MOVE ~ OUT @ RESTORE CONTINUE FOR INPUT LET IN LOAD @ OUT oIN CODE #&>0358IN CODE :==FIKM BORDER CLEAR PRTWY[] ERASE =>?uCODE COPY wy{}©▝▗▚▖ BORDER ▛ VERIFY BEEP [H][J] SAVE GO SUB [L][N][P][R] BEEP CIRCLE <=SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN AND >=<> THEN STEP DEF FN FORMAT MOVE OPEN # MERGE VERIFY CIRCLE PAPER FLASH INVERSE OVER LPRINT LLIST READ RESTORE NEW CONTINUE DIM FOR GO TO INPUT STOP LOAD LET PAUSE POKE PRINT RUN SAVE IF CLS CLEAR RETURN LIST COPY OVER ©IN OUT PLOT CLS LOAD ? CIRCLE aIN CLS RETURN PIT8<=<=SIN [C] DRAW LET READ 8 © DRAW !"#$%&'<=()*+, RETURN LET -./012345<=?6789:? RETURN ;<=>?@ABC COPY LET DEFGHIJKLMLEN READ NOPQ GO TO RSTUVWXYZ[/]^{I_`abcdefghijklmn INVERSE ATN frew^{dABS RETURN e~©▝▘ IF v LOAD ▜▖▞UCODE LIST ▙ LOAD [C] PAUSE FOR INPUT [H][I][J][K][L][M] THEN THEN [Q][T][U]RND COPY MOVE POINT SCREEN$ ATTR TAN ACS ATN LN POKE GEXP PEEK IN USR CHR$ NOT BIN OR COPY Q LINE CAT FORMAT ERASE OPEN # CLOSE # VERIFY BEEP CIRCLE m PAPER INK FLASH BRIGHT STOP DATA OPEN #> REM GO TO GO SUB INPUT LIST PLOT CLS SAVE RANDOMIZE IF DRAW CLEAR COPY COPY IN PRINT [P] LOAD INPUT GO SUB FLASH ~ GO TO [T] REM :AT DRAW REM MERGE POINT / FLASH O>= LOAD h/_<USR COS ATTR USR PAUSE ▛CHR$ PAUSE [O]▝ NEW LOAD AT USR AT [O]▗.STR$ ( COPY "0:VAL USR /FN CHR$ RETURN GO SUB XUSR FOR fT MERGE C LOAD STEP [I]USR PAPER XSTR$ "X[F]ZIN USR [G] IF LIST [F]NOT ^SCREEN$ USR STR$ MERGE CODE IN ATN PLOT ▘USR CONTINUE ▝ RESTORE SGN ▘%STR$ <>tUSR STR$ _IN /©PEEK 0+ATN OPEN # FOR MOVE X▛@NOT RESTORE MERGE LOAD IN COPY PAUSE tVBIN BEEP STR$ @POINT IN DATA USR NEW IN |IN ▘ STOP OR USR BIN INT USR USR * LLIST ~STR$ [P] RANDOMIZE PEEK ,@y&USR OVER AND CAT CAT BIN USR CONTINUE W▝TAN VERIFY COPY USR [M]STR$ LLIST CONTINUE l FOR /wIN CONTINUE [H]▝uSTR$ ▝ LET eG}oSCREEN$ CLOSE #USR NEW ` PRINT O[F]STR$ OVER REM STOP MERGE ? READ THEN gUSR FOR RUN PRINT X DRAW OR NOT LINE [U] PAPER LPRINT REM FOR USR ERASE /ATN @ NEW DRAW W▗2VAL ▚d[K]▝USR CONTINUE NEW STOP FOR ATN CLEAR _ COPY USR USR IF STR$ RUN NOT 8SGN LLIST REM t[I]IN XABS ▝X▝nr GO SUB Zm THEN LOAD THEN ▛>= DIM u▘STR$ [B] REM USR EXP [M]CHR$ >3▜CHR$ FOR ~ COPY >VAL Od▙STR$ IWABS BCHR$ ▛gdSTR$ FOR OR ) DRAW TAN FOR [R])USR CHR$ BIN BORDER MERGE ▗A▘>=INKEY$ RETURN EXP CLOSE #(USR GO TO N~,▝ GO SUB IF PISTR$ "LUSR STR$ 2 CLS RETURN STOP VAL c▝ GO SUB [P]ZCHR$ 3 DATA STR$ N RETURN SSTR$ BORDER F;INT MOVE STR$ Q BEEP 3/STR$ STR$ r DATA PEEK ▘USR # OVER z CONTINUE USR IF ABS PEEK zSTR$ @K RANDOMIZE CHR$ USR ATN ABS ANOT COS PRINT kUSR MERGE jSTR$ IN ~ PRINT ▘IN ▜ STOP A;~▛USR ZVAL 2 READ 7|zO CAT L LOAD ?PEEK VAL =xSGN rIN RANDOMIZE POKE USR GO SUB }} LET CODE RANDOMIZE TAB `=y~PEEK [T]©FN DRAW KIN LOAD ERASE LOAD XIN DATA ` LET IN LET ▟PEEK USR INK LEN ![I] STEP AND ~# INVERSE . COPY INK X THEN BIN ^ PRINT CLEAR 8 INPUT V COPY x10 COPY ! LET 9 INPUT [P] RETURN ?8 NEW ▖ RUN RETURN DRAW ( CAT DRAW Q DEF FN COPY INVERSE o ERASE USR ![G] MERGE INK og| RETURN CIRCLE 0+TAB NEW 6 SAVE GAT ?OzgPIATTR LEN pG[N]TAB SCREEN$ LEN 0AT +1 LPRINT # COPY $ INVERSE , ERASE ▚7 PRINT AND G LET K0 CONTINUE M READ OPEN ##< SCREEN$ !X COPY READ ' INK <> COPY ATTR _©LEN } INK SCREEN$ ▞P POKE UF▖ RUN COPY RETURN PRINT REM P▘T[Q] LET COPY LOAD OVER 6 DRAW UCODE vSCREEN$ _ SAVE MERGE RESTORE PLOT BEEP REM SAVE PAUSE LPRINT VAL COPY CHR$ ▖[P]h DRAW CLEAR @BIN +=, DRAW NEXT IF UFN @[P] LIST T▘ DRAW COPY FN P▚<=v VERIFY ATTR ©l LET PRINT DEF FN PLOT FORMAT SCREEN$ W! NEW MERGE OUT CIRCLE CODE GO TO SIN NEW LEN ▗ BEEP CHR$ ▚FPOINT RETURN USR BRIGHT K COPY CIRCLE REM FOR *▗ BRIGHT NEW POKE Bc[C]VAL$ CLEAR MERGE } IF CLOSE #▜ OVER <= GO SUB @V BEEP RND▗ READ CHR$ COPY <P3 COPY FN XFD COPY CODE CLEAR LIST PRINT R▗P CLEAR T>SGN [E](R* DATA INK A[R]F▖* PLOT READ [N]H DEF FN PRINT [O] NEXT BIN IN 0 FOR P DIM ▖ RETURN INK IF u REM a[Q]ATTR BRIGHT /l PLOT STOP ▖NOT TO MERGE /▛© CLOSE #8SIN RUN CODE =2 BRIGHT [S] INPUT /$4iT LIST Q▘USR bNOT _IN LN LIST " STEP [T]1LEN SAVE ▙ COPY *:DIN BRIGHT NEW CIRCLE IF ▟ PAPER ▘ DEF FN TAB PEEK C ERASE + MOVE [S] CIRCLE Q7 SAVE K[Q]? LIST INT POKE CONTINUE FORMAT [R]B PLOT VAL CODE 2 E▛ NEXT :<>▛ MOVE INK ▟0 CLOSE #INT CIRCLE P/ NEW LEN LIST ( BEEP INPUT POKE ^ CLS G( DRAW @VAL ▝CHR$ :▞*` STEP [K][G] LET RETURN ( OVER CIRCLE BRIGHT ,[M] CIRCLE | PLOT STOP >= CONTINUE [R]LW} INVERSE A PLOT %VB[F] BRIGHT CLOSE #VAL lUSR z>C REM v CLOSE #4 CONTINUE ▞ POKE ; OPEN #d NEW CLOSE #pLN Zd▟~cTAB *tU CAT RETURN P"T▘D▖ INK tA LLIST "E[T]RG DRAW ▛ NEW READ VAL [I] RANDOMIZE [M]BIN @A[S][A] BRIGHT ▞ FLASH 2[I][U]g RETURN T SAVE LET j[E]TW5[U][Q] COPY >[T]Jd▖1[R]<=TINT bRND` RETURN MOVE [O] PLOT (▗c>= LINE ]2 INVERSE [S]E&INKEY$/[K] TO IF pW NEW PEEK U LOAD 2[U][M]<=ATTR 7© BRIGHT FOR 91 LPRINT p COPY FORMAT CHR$ l? REM MERGE [S]AT 8 FOR RUN LOAD POKE BEEP CODE OUT IN [I]LFN lH PLOT _@1 RETURN CODE MERGE LIST 4Z STOP ? SAVE g VERIFY 3|NVVX[M]jM $ POKE USR .<m CONTINUE >=SCREEN$ OUT w2[A]SQR '' POKE " LPRINT ▖) RETURN AT X[A]' OVER ATTR f CLOSE # SAVE LINE ACS @ RETURN LIST PAUSE LET O CLEAR FOR WVAL$ VERIFY ^ AND N[B]▗ PAUSE ACS d▘2▚>]AT 56zd0nBIN u OR LPRINT COPY AT <4<>▜E FOR ▛zf`F8&! PLOT RETURN u▞ COPY ▞ CONTINUE fACS TAN &SGN BORDER COPY 7U▘'VAL ID POKE ▖ AND irAT VAL$ [J]<= TO ▚UACS © RETURN ATN [C]B LOAD DEF FN Q CIRCLE STOP CLEAR [M] THEN EXP ▘ AND BORDER VERIFY Yzj OR DRAW LEN ~ FORMAT H<=`*f[L]SQR CAT FN Icq1MSGN [Q]a LPRINT !r[R]0H<A COPY ▞F AND PRINT SAVE [K] NEW RETURN COPY "[C] DRAW ERASE [O] DIM ATN POINT q▚W LPRINT [M] MOVE H[O] CLS ">=nKPOINT @ LET BIN ▘ LLIST RETURN TAB DRAW I DIM IF STR$ LIST READ [S]j[L]▞ RETURN "@ CLOSE #@~ABS BORDER ▙ DRAW _A CLOSE #▞SGN ▟ RANDOMIZE STOP DRAW ▝Z F[G] GO TO ▘ AND LIST REM <>iCHR$ rf COPY xSCREEN$ ▚ LPRINT EX[C]pk IF CIRCLE N- POKE NOT k SAVE BIN +CHR$ |<= LPRINT BRIGHT INPUT a TO LN _= IF < SAVE 9[O]M▙©+ FORMAT @▖ PLOT CIRCLE LET NOT BIN [O]g+K FORMAT p[C] OVER b[M]?▘ PLOT & AND IN FORMAT h7PEEK O~ LET < CONTINUE BRIGHT LN ERASE BRIGHT [I] PAPER ▚ CLOSE #" PLOT ▛▚BIN POKE GO TO PEEK ksSTR$ DATA COPY INT SAVE > POKE U(b"TAN hF ERASE DATA `▜ COPY (f~8-p`d▙w(H CLOSE # DIM 9EXP h▚[x[S]y LPRINT RNDp LINE 5<▝>=ALEN R|> AND TO n MERGE [A] RETURN LLIST INVERSE >=+ OR x COPY o DATA LEN @TAB ATN $STR$ AND LET THEN o STOP TAB ▜,A RESTORE (h@ RUN ▚[J]VAL 5LEN BEEP POKE c MERGE BIN !FN UlECHR$ RETURN RESTORE [G]ATTR <=7-c FOR J NEXT [S]]COS [C]% THEN S▜yBIN .]INT D BORDER A▖[A]+[U]s COPY PEEK }[C][K] FORMAT ▘iAT SAVE [G]SIN MERGE y OUT ▞} FOR 9CLEN Q[Q]ATN D▚SQR %![G]VAL$ ©FN /LN p CONTINUE LET STOP ASN BIN TAB LPRINT f$.PEEK SAVE < OUT ATLN <= STOP |@<><==?;[R]u /0IN !▙ PLOT LET ?( COPY COPY c PRINT @▗ RETURN a COPY om TO ▘ LLIST CONTINUE Kd([G]▗ CAT NBIN 9 MOVE LIST *| SAVE `PEEK BRIGHT ASN TAB AJqE LPRINT [L] IF DRAW RETURN CLS IN SAVE 9 INPUT COPY @© LIST NEW FLASH COPY [H]INT G CONTINUE QO[Q] FORMAT COPY © OR O[A] LINE X4[T]G COPY AND MERGE LOAD LH RETURN RANDOMIZE BIN ▖[J] DRAW LIST [S]<=USR tCHR$ COPY BEEP 5INT VERIFY IN LET THEN DRAW STEP k;}SCREEN$ QbVAL OUT TAB [N]▟oF MOVE FN USR [I]AT CHR$ ' RETURN ▚OrzSTR$ STOP D8 IF NEXT lPOINT >PI POKE READ ]p NEXT [G]ASN .SQR MERGE ~PEEK OUT J9 LIST i[F]CHR$ DEF FN POINT CIRCLE SIN `;)[R]TAN DRAW +▞ DIM -l▟$ATTR (Z LOAD IN BIN CIRCLE ▜q*. LPRINT + NEXT 72 RETURN ATN PRINT PAPER A`INT }CODE 1bUSR LPRINT [ INVERSE PRINT =POINT ) BRIGHT >< RETURN :STR$ [I]. NEXT [R]8 LLIST :=) RUN o CLEAR VERIFY BEEP IN <z$ GO TO S AND pCOS SAVE PRINT [I]1$ DIM NEXT O[M] OPEN # BORDER SPID[M] AND INKEY$ DRAW STOP TAN ▝[H]8 RETURN c} OUT '© LLIST OPEN # INVERSE [A]` STEP ▙ SAVE * COPY COPY PAUSE [P] BEEP Mka©:~<y81 STOP p[B] CIRCLE INT /CHR$ LPRINT LIST s[Q]o RETURN h(BIN STOP PRINT STR$ ▝ vATN OPEN #p$▘? RETURN j▛+ RETURN f COPY COS [J] RANDOMIZE L OUT ▙BIN VERIFY ▞[L] OVER P%M6CHR$ b RETURN h OUT f GO TO MERGE FLASH IF OR RETURN dSg[P] DRAW } RANDOMIZE CLS COPY # OR ▘ LPRINT LOAD BORDER o[H]▖[I]SCREEN$ [P] GO SUB RETURN ▘cpb LPRINT ▚ DRAW a% SAVE AND LIST DIM CHR$ LET RUN READ }w0 COPY c CLS / RUN ▘ IF < LPRINT A LOAD OPEN #[O]g CLEAR BRIGHT [P]▞[J] GO SUB &ACS .▖[U] INPUT SCREEN$ A)LN C{ATTR ©[J]*K CAT 2g#▗y CLEAR DRAW m IF POKE COPY (3 RETURN STR$ ▟O POKE Bqb90STR$ COPY PRINT PISCREEN$ t=; RETURN RETURN :| POKE SGN LIST ) SAVE STEP IF 8 PAUSE C/ RETURN *aO▛AT } PAPER "ERASN [LEN FOR [D]?U< MERGE NEXT PRINT j POKE x`[G] LIST RETURN <>IN DRAW [H]-,3 RESTORE ©f DRAW SAVE 8 IF Q[R]L USR ▝R▛CODE j-[S] GO SUB PLOT UATTR ▜5B GO SUB [S] OUT ATN LINE <=6nLHFN CODE #FW BORDER PI8ATTR >=~e[H][C] CONTINUE /'j LOAD }[J]ATN POINT [I] BRIGHT GO SUB [N]VAL$ UZ READ ▖RND REM LIST z[R].SJTAB ; DRAW [J][M]s7v RETURN 81[Q]TAN r7▟Z THEN DEF FN ▗PEEK CODE POKE [A] BEEP SGN #[K]SCREEN$ CLOSE # NEW _POINT 15)SQR Z^NOT Rbn=i[B]SQR CLOSE #R+ ERASE MOVE OUT GO SUB PAPER STR$ LEN /<|[R]SGN *nT DRAW $[V ERASE PEEK ko[O][G][I]▚s^▗ LLIST DRAW COPY _z POKE @B LIST FN [B]4_ LIST INVERSE h▟G FOR A-RND[O][A]'rPOINT [N]] OUT [C] INVERSE [S]?TAN _INT u CONTINUE R[R][G]C" OPEN #W}LNIN BRIGHT FOR SGN USR >=VAL$ u MERGE PLOT ▝ LET >INT ASN ) CLOSE # CLEAR OUT DRAW LLIST E4 INVERSE IN 6 SAVE Q▘ REM q=.o LPRINT STOP <[U] PLOT COS | ERASE RND NEXT J[H]L[D] FLASH USR '[J])=H MOVE [ RANDOMIZE CAT o FORMAT s GO SUB =%O THEN RETURN X$ OUT &<3 COPY VAL @J-y MERGE FORMAT x▝INT PRINT FOR RUN 6 GO SUB ~SGN z SAVE RANDOMIZE INVERSE PATTR LIST ▙Q REM STOP MERGE AND COPY [J][S] PLOT O OR JCODE SQR ▟ FOR MERGE AT DRAW z[F]>= DATA [▛/F▗;SIN j+[P]{A[S] OR ▛c BEEP EXP SQR LINE SAVE _ LOAD ▖ COPY STOP PRINT RESTORE SAVE _^=guzZ LET RETURN COPY LLIST MOVE RANDOMIZE POINT 2PI CLS *RH. LPRINT IF CAT LET 7 COPY [K]-[G] STOP K[H] THEN PI DRAW b NEW RESTORE OPEN #▙▞ OR CLS RETURN LET [I] THEN OPEN #o9▘Rc INVERSE /PEEK READ COPY vPI FLASH FORMAT LEN RETURN SAVE oAT m4 DRAW ?_ATTR ^CODE ▞ABS jRo RANDOMIZE % THEN DATA M CLEAR ▛k RUN K INPUT ▗} LET EXP BORDER 23Z][E]=PEEK #p STOP n/ LPRINT P9PEEK 1EXP INPUT AND SAVE PLOT X POKE IF MERGE CHR$ ) STOP J@ OR TO DEF FN FORMAT VERIFY CIRCLE j PLOT RUN [K]p READ CHR$ THEN t[D][E]S▝~ DRAW [S]7 PLOT l[▛ VERIFY CLOSE #;▖U'J OUT EXP RSCREEN$ DEF FN LPRINT @ RETURN CIRCLE /[E] STOP CODE PRINT FLASH bKVAL RETURN k COPY [`IN QLEN _ABS ,XE"zPEEK COPY %[.$ MOVE INKEY$&]C[E]XK%STR$ Ujl^ THEN OVER [G] DATA ASN AND ▜j>SCREEN$ ;[O] COPY Wgv[N]8[B]ATTR u.7 FLASH 6~INKEY$bATTR OUT CLOSE # VERIFY *5 RETURN ASN READ [D]~ NEXT BRIGHT P AND CLOSE #SIN INKEY$PEEK LINE ▞ OR DEF FN COS CLS SQR DRAW y{q (m REM LIST BRIGHT [R] BEEP ~▝ FOR PLOT LEN RUN THEN [G]|USR [I][K] RETURN c[Q]XD`x SAVE ASN - IF PLOT $.P( FORMAT 8E CLS AND NEW BORDER CHR$ / RESTORE ) RETURN OUT POINT <=pATN 4 BORDER E IF BRIGHT n NEW x INPUT hj_~ IF [P] RESTORE ▚ CONTINUE V< SAVE sNOT DEF FN CLOSE #<=_SQR ASN IF nINKEY$ PRINT INPUT .Z RANDOMIZE [T]Z%ATTR [P]j IF [N] READ ( STEP i/[ SAVE LLIST RESTORE LOAD o PRINT ▖ CONTINUE *CHR$ [A]©EXP IN _3INT iVLA RESTORE M CAT NEW NOT INT VERIFY LET sRNDr CAT ▛ LINE CLOSE # FLASH ▞;▖ FORMAT SCREEN$ ITAB ] STOP RND READ H© BORDER {▝ SAVE |t▜ PRINT [G] BORDER ▟CHR$ LN RNDC> OPEN #D GO SUB b<=;[L]IN ~} MERGE INPUT $CODE nmATN © LINE (E RETURN /▘/EXP Z TO PLOT ASN COPY ▙[H]▝▖Is▙gASN WABS FLASH OM FOR ▞[ LLIST PAUSE [F]▖I RETURN aRABS IN PLOT CLOSE # BORDER RANDOMIZE 4IN [L]: LINE p©J[K]3[L][C]*[U] NEW AND [N]USR BRIGHT bSTR$ INVERSE GO SUB b REM [T]zi RETURN ©uATN CLS _LEN "POINT SCREEN$ REM [Q] FLASH [L] OPEN # OVER CONTINUE r^[M]8 BORDER DIM k[ MERGE uCODE [A]Z IF { CLOSE # BEEP STR$ ▜ COPY LEN AND /AT © CLS PAUSE [D] LOAD y OR INT RETURN " TO LPRINT W COPY w0rV'^VAL$ B[H]G DRAW ▜ BORDER E LLIST ▚ LPRINT / NEW "& IF CIRCLE GO SUB G LPRINT , CONTINUE [S] BORDER [Q] PAPER GO TO LLIST ~?; DATA F? STOP THEN LINE NOT 6▞ LPRINT SAVE OR CLOSE # RETURN RANDOMIZE _] BORDER THEN LPRINT W, REM COPY [S]l80 FOR PEEK TO T DRAW ABS THEN [N]FN LPRINT SIN READ ▛ AND _INT LPRINT " RESTORE STEP )R RUN OUT STOP IN CCHR$ LPRINT THEN IF CIRCLE KIN LPRINT CONTINUE [E] COPY RESTORE LIST [NOT RNDF OVER OR FN INPUT 9 LLIST COPY ( NEW LN &0 READ RETURN STEP 2A▖[K] SAVE DRAW /?▖ LPRINT DATA FN IN 2 RANDOMIZE GO TO BIN COPY 0 NEW REM AT ! F SAVE LPRINT SAVE ▛#▘[M]NOT FORMAT COPY 8>b BRIGHT DRAW j LPRINT LLIST VAL$ INKEY$c%6[Q]~qQ<=eRND CLEAR @}QPI DATA RETURN r[K]]/<= LPRINT GO SUB STR$ C STEP USR @ RANDOMIZE DRAW IN CIRCLE LPRINT © BEEP RESTORE OVER VAL$ a[L] DRAW i~ ` COPY LIST ;% BEEP % NEXT GO TO Zx DEF FN :|} CAT ▗g[E]tYi PLOT RETURN EUUSR X INK GO TO SCREEN$ (EUTTAEEPAQTDAATDTAAEATAAEAP@EE@ETQU@EAEQ@E@QAEEUPTAQAE@TDTTTTE@QEEUUAQPT@QATPTPQEHR` READ ▘▝CHR$ COPY CLS vCODE 2b/! PAUSE `"] READ RANDOMIZE > STEP 6a} RETURN o!VAL STEP ctk][Q]VAL ▖USR @) LINE Q[T] TO @▘ LINE 7 NEW ACS r LET lSTR$ *C STOP / GO SUB [ATN n RETURN R0 PAUSE > OPEN # RETURN BRIGHT X OUT ( COPY 6?E2 GO SUB FOR ! LET NEXT <u7 OPEN # OPEN # DRAW ©CODE OVER G ERASE REM >" MERGE INK [M] MERGE STEP [S]| AND [R][S]>yKINT & RETURN NEW INVERSE !`[K] BRIGHT } INPUT o"SCREEN$ oVp STEP [P] OUT COS :8a INPUT 2wn STEP * POKE CAT y(0INT !u/ FORMAT [J]05z DIM C[Q] LIST PI▙y<> READ "4a LLIST LET 0s01/ CAT RETURN PRINT OR MERGE RESTORE INVERSE AT m CLEAR INK Rj DATA # GO SUB LOAD ~a STEP USR :/ RANDOMIZE ATTR LLIST MOVE STR$ LET NOT CLEAR INVERSE k3 BORDER c1 CLS NOT / NEW OR PLOT CLEAR INPUT NEW © GO SUB y2 INVERSE STR$ <> OR |SCREEN$ [P]©!LEN t~ AND w#f STOP w VERIFY gml[G AND <> VERIFY INK STEP OUT s?[N]uCODE STEP kP ERASE "Dd[A]"W9.ys!▚> BRIGHT AT VAL$ dCOS CLS CLS /} STEP DRAW c PRINT TAN PI LET INK ▝ INK l©O OPEN # THEN LOAD ▚w, FORMAT gI COPY GO SUB STEP b PLOT [R][E]ACS LN CLOSE #[K]INT MERGE ▞[U] ERASE AND CLOSE # CLEAR RETURN : GO SUB AND .k DRAW o GO TO ATTR [A]dUSR NEW ?H[G]▙ GO SUB [K]ACS TAN [B] LIST <>PEEK RANDOMIZE MOVE ▟$u,[O]TQ DRAW [[P]T INVERSE .$Mq LIST THEN 9>=}[B]XgX{▝oPEEK 0~ SGN w$ LLIST BIN %{[B]8_ READ INVERSE |LN 8 ERASE [C] ERASE PAPER CLEAR THEN NOT USR DRAW &▜&▙` NEXT AND Oo CLEAR THEN ©POINT ▚[F]oga INPUT w, STEP o CLEAR - FORMAT <>©J4 INK OR ▟ OR STEP ©SGN ▜&▗ INK o RESTORE ▛) FOR INVERSE AND INK ~▜o OR _2$c TO LINE INT t[R]34SQR F35SGN `VVAL$ ABS LET [K] INVERSE ACS [M] INVERSE !PEEK STOP COS INVERSE *IN LET NEW INVERSE USR LET INKEY$ INVERSE STR$ INVERSE ACS [M] INVERSE /CHR$ STOP COS INVERSE (NOT LET NEW INVERSE BIN STEP INVERSE OR >o*[P][A]O| VERIFY `W1 NEXT [F]G|zS[E]_ STEP Uc THEN |( INK MERGE STEP [E]g MOVE STR$ POKE 6K CLEAR b DRAW OVER S#CHR$ [R]b<> MERGE yATN PAUSE ]c GO SUB D_zi▝ATTR [L]?g STEP o0I LET |/g}:- BORDER [M]c MOVE x▝[J]Eg POKE {r[H]▟ BRIGHT NEXT gPOINT BRIGHT DATA 0 FOR BRIGHT NOT 2<>▗ INK ▟AB~g?, INVERSE o2 AND TAN }r STEP # INK |>=CHR$ IN qZ[A]o REM <= THEN INKEY$PEEK } ERASE MERGE )[H]ATN W`NOT LLIST J POKE GO TO INK CODE 7_[O] OR ^,-_SGN VV▘WN# OPEN #vK PAUSE RESTORE STEP ,dswEXP ▛rq OPEN #[P]&#STR$ IF g INPUT OPEN # OR : PRINT } SAVE OSTR$ BSY*[JXAT PLOT z REM <>_]N VERIFY @F4 NEW {y INK 50G1; RESTORE zS{x MOVE ▙< POKE g STEP w FLASH MOVE READ gHT LLIST /<>> READ <>:vO INVERSE i CLEAR NEW r>?[B]d&PEEK RANDOMIZE _V GO SUB Se CLEAR THEN )[B]o]=N AND -▝gY RETURN FOR NEXT [C]8 INVERSE [F] ERASE TAB [H][D]gmIN [E]G6 STEP 1 RETURN d[A] IF &>©! CIRCLE G RETURN l BORDER 8 PAPER LINE ~ REM INK l0x VERIFY CLOSE #LEN d[O] PAPER LEN ▛ INK CLEAR } AND USR g>=W.V,[G][C] INK ▚xw AND N CLEAR CODE qx LET INK %k INVERSE -CHR$ De<>!INT t5o GO SUB VAL * SAVE [1?9K=[R], INK 7U DIM ;PI'?zSGN ?CHR$ 0 FOR <=PIxO|`G INK DRAW & COPY INT P{ PRINT [K]f"SGN SeiSGN CSGN D7▚SIN SGN ?SGN RANDOMIZE [D]jl[C] FORMAT CIRCLE |SQR FORMAT ?XO>0( CLS z[B]2EoxSQR l LINE 8y[D] OR PIF INVERSE }[E]Ox2▝>=a RETURN NEXT OUT PEEK |ATN (. COPY }NOT f CLEAR Ae:TAB O_ STEP 4VAL [D] STEP w FLASH IYm|g RANDOMIZE ▜ DRAW 9y▗[F]ATN >=VAL PRINT C INK yEXP tATN [N] CLEAR A%S< BRIGHT INK [D]# CIRCLE [K][L] COPY [D]"niO[E]ATTR USR PAPER ]IN ▗[C] PAPER ji?g CLS ▘ CLEAR q* OVER [T][U] IF h OVER [P] CONTINUE z[E] PRINT STEP [F]n LET ATTR NEW CONTINUE {,9 POKE hSIN ▗CJ?-WUSR TO >=▖ RESTORE wABS NOT .i REM ABS [G] COPY MERGE ~POINT [R] MERGE PI*TAB GO SUB s GO TO [C]:6oGO OR BRIGHT >[B]ORND4 LPRINT [D] SAVE RETURN DIM STEP O{[B]siy AND .G GO TO DATA X READ STR$ _ATN THEN ▞t CLEAR CODE ATN [R] RANDOMIZE 91 INVERSE & LLIST Ml STEP ▝ NEW STEP ~,f$[D]iCODE INK RUN ) LOAD f ERASE EIN [F]SGN u| INK F CLEAR RETURN / FOR INVERSE %CHR$ ti[H]e RETURN [O]<>ATN u CLEAR >= RESTORE G{[F]gh6 CLEAR FOR LLIST } AND g. SAVE xD READ {Mo| INK - RUN ;`io CIRCLE [E] GO SUB oj MERGE MERGE POKE NEW <= MERGE z[E]2 SAVE n GO SUB FORMAT oh& PLOT NEW FN ABS EXP NOT INVERSE RESTORE | INK fj LOAD USR j POKE ]ACS @ ERASE TAB INVERSE h CLEAR READ CLEAR INT VERIFY INK ZpCODE ASN PAUSE SGN d DRAW LLIST LPRINT CLEAR RETURN <> BRIGHT b OUT LET !&zN$F} REM _okV%^~$fINKEY$5 GO SUB BB}[D][R] DRAW SCREEN$ FOR CLS POINT U)0?[H]<>|ATN LINE INK Z OR o IF VAL$ nM?<=INT D3C BEEP INPUT #<> INK SIN USGN SPINOT 8 IF EXP &^$VcPEEK [I]% AND ng[I],W<LN X LET |W&~n THEN ▛ VERIFY 0>[C]2 LOAD o RETURN )S NEXT l<> COPY DATA RUN 82p9PEEK <>! COPY ASN EXP [N]sSIN r DIM RANDOMIZE THEN [Q]▚ [F]x2AT r PAUSE LLIST Nm COPY 3 FLASH ACS © GO TO USR z COPY = DRAW Y INVERSE $SGN [A]lCHR$ p INVERSE STEP RETURN ~ COPY STOP <> STEP RUN rs![F]i}][P] RESTORE DRAW ▝>~ LOAD O- DRAW DATA t>==CHR$ >=4y:u[C]5▙. RESTORE [E] LET RETURN t, LLIST $ LET <>©▞[T][ DIM kcCK STOP ▟ LET ▞ OR j DRAW PAUSE s}|P▝ztSTR$ 8[L]ju©NOT %n VERIFY INK " INK |~C CIRCLE Op>!' BEEP (▛ /INKEY$ SAVE <> LINE eASN ▛>? LPRINT J<> GO TO PEEK OVER LET l INPUT STEP N FLASH CAT COPY ▛> LPRINT w,< RETURN LIST RANDOMIZE = THEN e IF NEW READ &USR A@ix READ %nw| AND @f NEXT GO SUB PRINT ~ STOP PEEK ▙[A]@ INK ©e MERGE STEP STR$ s MOVE z INPUT W▟O&s,r▖ COPY { AND /BIN _8z VERIFY W GO SUB RESTORE <>G6[R] LPRINT ▚ SAVE BORDER ▞ CIRCLE CLS $. LPRINT OPEN #$ NEXT INT PAUSE }~Uqt CLEAR . OUT NEW LIST O CLS CHR$ INVERSE ~LEN w$w LINE N RANDOMIZE ) COPY O FLASH LOAD PLOT & PAUSE ,>= RESTORE m RESTORE GO SUB INT NATN NEXT ▚x▙@ GO SUB CX[L] MERGE PRINT PLOT NEW >~ PLOT #xLEN RNDI PLOT 2▖, BEEP "n NEXT SCREEN$ BEEP +DCOS /LN STEP U VERIFY FLASH wATN y INVERSE // COPY READ Y INPUT SQR ATN LET * OPEN # OR <SIN ▘IN am9;[D](▖2[Q] OUT IF & INPUT IN PRINT NEW ? PLOT USR W BEEP _IN [O] FOR } INVERSE oATN LIST INK !0u LIST $".4▛ INK [K]>` INVERSE _2LEN u.}COS [E]H LIST ! LLIST LINE y/[F]o`P[J]K CLS FORMAT { VERIFY VERIFY W CIRCLE DEF FN [I] GO SUB [Q] ERASE FOR $5 PLOT USR [O] CLOSE #CHR$ +u[G][P]vCODE 2 CIRCLE INK [F]R DEF FN LLIST [A]+uACOS CONTINUE CIRCLE <=+?Rdu▚[F][U]COS STR$ DEF FN FLASH CONTINUE POKE !+5?IR[dmu}▚▟[F][N][U]AT COS INT STR$ >= DEF FN MERGE FLASH CLS LLIST CONTINUE INPUT POKE IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U] GO TO cFN AT CODE COS ACS INT ABS STR$ BIN >= THEN DEF FN MOVE MERGE CIRCLE FLASH OVER LLIST RESTORE CONTINUE FOR INPUT LET POKE RUN IF CLEAR !#&(+.0358:=?ADFIKMPRTWY[]`bdfhjmoqsuwy{}©▝▗▚▟}▖▟[B][D][F][H][J][L][N][P][R][S][U]INKEY$FN SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN AND >=<> THEN STEP DEF FN FORMAT MOVE BORDER 3 OPEN # MERGE VERIFY CIRCLE PAPER FLASH INVERSE OVER LPRINT LLIST READ RESTORE NEW CONTINUE DIM FOR GO TO INPUT LOAD LET PAUSE POKE PRINT RUN SAVE IF CLS CLEAR RETURN LIST GO SUB CLEAR COPY CLS `IN CLEAR ~ CLS PLOT ASN LOAD qJ8 DRAW SAVE ? READ DRAW LET !"#$©%&'() LET <=*+,-./0? RETURN 1234567 RETURN <=89:;<=>?@A LET ?BCDEFGH READ COPY IJKLMNOPQLEN RSTUVWXYZ[/]^© GO TO _`abcdefghijklmnopqrstuvwxyz{|}~©▝▘▗▜▖▞ THEN /▛▙[A][B][C]SIN DRAW [G][H][I][J][K][L][M][Q] POKE PAUSE [T][U]RNDPOINT SCREEN$ ATTR MOVE ©TAN ACS ATN LN EXP CLEAR PEEK IN USR CHR$ NOT BIN OR LINE PLOT © CAT FORMAT ERASE OPEN # CLOSE # VERIFY BEEP CIRCLE INK FLASH BRIGHT O[L] STOP DATA REM GO TO GO SUB CLEAR TAN INPUT LIST PLOT SAVE RANDOMIZE IF DRAW CLEAR XABS LEN IN CLEAR BORDER W©~~ DRAW }|{z; GO TO cyxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%" CLEAR IF RUN POKE LIST GO SUB REM BORDER DATA LLIST OVER FLASH CIRCLE MERGE ERASE CAT STEP LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$~P[U][S][Q][O][M][K][I][G][F][D][B][A]▟▛▖▜▚▗COS CAT ▘PEEK INPUT ▝ATTR :% MOVE J CLS [I][K][M][O][Q]J~)ATTR .BIN SIN TAN ATN EXP SGN IN STR$ BIN <= LINE STEP CAT ERASE RUN RUN USR DATA BORDER REM GO SUB LIST PLOT {USR PRINT CLS STR$ "% FOR LOAD CHR$ 1369< COPY OUT NOT GILNQSUXZ/ LOAD y^NOT k[_m[K]} PRINT [L] ERASE o[M][L] DIM [K]` COPY ` COPY SAVE [M] PRINT 3? GO SUB = PAUSE IF ▞P[P] DRAW POKE 1 LET PLOT DRAW | FORMAT 3q SAVE LOAD PLOT 1 PAUSE [P] RANDOMIZE C[F] CONTINUE INPUT 9? NEXT RUN RESTORE PI CLOSE # REM COS [E] RETURN TO STOP STEP _VAL$ DEF FN TO RETURN LIST SAVE [U]▞ PAUSE CLS CLS [M] LOAD CLEAR COS AND [U] DRAW CONTINUE [M] PRINT LIST ~ TO PAUSE INPUT LOAD OPEN # POKE TO [L] INPUT PLOT FORMAT NEXT [D]SIN lD BORDER 0 BORDER ▞USR SAVE EXP LIST )▚0▘TAB ▖Tx DEF FN )3 LPRINT s8/[I] DRAW SAVE b<=oSBIN g DRAW fUSR ApO1▗? CAT f| LPRINT SLEN OPEN #`" COPY CONTINUE LIST [M]C>=[U])0 LIST [I]▚[Q]▗▘0VAL [O][G][E]on. AND BORDER [U]HASN B LINE TAB FOR !INKEY$ INK m CLS COPY fVAL Q RANDOMIZE PAPER 1 OUT DRAW DR9INKEY$ POKE INK BEEP CLEAR REM @2▝ CLS ▞ BORDER 3,Q IF . READ RESTORE [U]h FORMAT INPUT GO TO 9 RUN NEW COPY SIN `_ COPY CLEAR COS +/} PRINT ▝ OR BIN } CLS ▚NOT ▘; RESTORE kPEEK OR } CLS MERGE ▘PEEK CAT DRAW NOT PLOT LINE WPEEK CHR$ [H]_BIN , OUT PEEK VAL$ oo LINE ▗[G]IN PEEK [E]STR$ IF CAT >=▚;LN ▘ OR ABS THEN UIN STR$ CODE [G]CHR$ <= LOAD FLASH VPEEK STOP IN STR$ } LET THEN }PEEK k~ATTR MERGE STR$ CAT ~ LET AND ,PEEK CLEAR /~▛©STR$ B=INKEY$X~/_USR C LLIST AND CHR$ ▚IN , RETURN IN /©<>[H]▝STR$ _[P]BIN IN xPEEK IN SAVE W▝} INVERSE STR$ ▜AT RETURN IN CODE ©.[H]USR VERIFY PEEK nCHR$ ▖ THEN MERGE PEEK IN THEN © THEN OR A▝<=[E]▘CHR$ ▞[T][P]ATTR RNDPEEK IN ©L COPY ▝STR$ |[G]CHR$ ▛K DRAW PEEK ▝ MERGE IN STOP MERGE ©USR r LET INK STR$ PEEK [K]CHR$ /gPEEK IN © IF [H]USR kASN AUSR CHR$ PAPER W▟ OR IN IN ©ASN ▝USR ASN IF ACODE 6▝USR ▟▙XSGN IN _#USR [G]ATTR A}ASN STR$ _.IN ©USR STOP USR CLEAR [K]IN ▛_USR AATN [G]STR$ USR ▛ THEN ?BIN cIN W CAT NEW ▚▝ OUT IF USR 'USR ATTR USR ATTR @z POKE USR REM [R]©STR$ ▝▘USR USR CIRCLE USR x POKE COPY CAT $PEEK STR$ ▝[T]USR COPY IF DRAW USR }G0|USR PRINT =USR ?▝ IF TAB @A▘ MERGE CHR$ CODE CAT @ OUT OR © DRAW COPY ABS USR SAVE USR DRAW LIST STR$ RETURN IF ?PEEK SAVE @|9DCHR$ :VAL STR$ !VAL APEEK GO SUB USR ACS BEEP ▖ RETURN =:VAL USR %VAL USR ATTR GO SUB @NOT / OUT @©O OUT USR DRAW [H]NOT 6VAL STR$ _PEEK USR ©[P][O]@INKEY$ LOAD ▝USR RESTORE /©IN [H] BORDER <>[G] LOAD ATN | LIST PEEK >NOT COPY <=SGN [H]IN ▝IN PEEK USR NEXT 3NOT USR ~IN PEEK A} RANDOMIZE ▘ INVERSE CLEAR LOAD >ABS LOAD INPUT USR LOAD MERGE AvIN PEEK {~ NEXT INPUT [G]SQR G OR { DEF FN IN ? MERGE CAT USR BIN RND▘CHR$ g RUN @ INK RANDOMIZE AV LOAD CLS INT VIN USR BIN : INPUT IN }AT A`t RANDOMIZE ` LET BIN CLS - CAT OR ?~T LOAD INPUT THEN PAUSE PLOT t OUT FOR OUT j_TAB hSTR$ [D]ATTR CIRCLE AND ▝ PRINT BORDER USR PEEK w▝IN [K] CONTINUE IN /USR ▝u RANDOMIZE STR$ RUN ▜ATTR 7STR$ [L] CLS COS ~ PRINT USR } NEXT GO SUB DIM ▚ RUN W SAVE &STR$ t~hIN zn? RUN USR ▛ATN Q[Q]CODE V CAT ~n CAT ▘ DIM [STR$ ASN [ OVER oATN THEN OUT ▝O OUT ▛USR V`ABS x© NEXT PLOT zNOT LET NSGN CONTINUE ▝&▛ BEEP USR [R] DATA MERGE ?PEEK W▗W5o[E]PEEK USR © LET @[P][O] CLOSE # DRAW REM USR LLIST DATA JNOT yATTR ▝ZSGN LIST ▝IN CHR$ USR BORDER [B] RANDOMIZE STOP AASN zIN INVERSE y▝ LET ].USR [S] DRAW DIM DATA <IN USR G?Ga CONTINUE ▝▙NOT RUN VAL / MERGE USR B>}AT RESTORE INPUT RUN ACS RETURN NOT > MERGE IF ▗ LOAD NEW = LINE 2~ LET $©p&SGN T.USR `h SAVE ▛ DEF FN FOR IN / NEW LOAD RUN RESTORE ATTR PI[M]USR LOAD DEF FN LN y CLOSE # OVER j[C]SIN THEN SIN DRAW CONTINUE RESTORE LLIST PAUSE t▞ DIM CLS " CLEAR LPRINT [A]}^STR$ 'w[G]IN [L][N]SGN INPUT | RANDOMIZE ~PEEK ©5^ OUT Q LOAD MERGE STR$ [M]G[E]<>[N]▝}}/ RUN PRINT ▖ IF [H] GO SUB ^ABS CjwSQR VAL$ PAPER <>] OR ©hrxSQR CLS DRAW COPY LLIST ▜[H]CODE DH CLS [C] MERGE [F]>=;LATN USR COS NEXT COPY THEN RUN n THEN LLIST H CAT CONTINUE ASN w STEP MERGE j OR ▘ INVERSE DRAW ATN D}A LIST FOR NEXT <=w THEN ▖g BORDER P^ INVERSE BRIGHT ATTR ATTR ABS G<=EXP RETURN USR CLS RND© OUT CONTINUE INVERSE z COPY CLEAR Jz}>= REM SGN STR$ ATN [E]SGN CHR$ INT [T]~CODE /?F?~o▝STR$ ▜-5STR$ I[G] CONTINUE NEW VAL$ OR RETURN }▜NOT PLOT ~CHR$ PEEK |{STR$ t_dr THEN C LINE SCREEN$ RNDCHR$ STR$ MERGE NEW ▝C RETURN LPRINT m|_©?|K▜.z STEP xFF[L]ATN H|WUSR SGN |<=IN CODE {USR ?:V CLEAR ▝o▟ FOR ' THEN Wo LOAD IN T<BIN OUT <z BRIGHT OVER NEW KBIN LN DATA ? STEP [E]D@▛s[H] FLASH NEXT */ RETURN IN G>IN USR STOP JSTR$ C OVER ATN ▝|p LET Kv FLASH <=wIN BORDER NEW OVER NOT WO<=STR$ hqIN LOAD OVER ABS SQR yt LIST FOR LN =zx IF [H] IF ▚[I][O][M]Exq LPRINT ABS IN CLEAR READ NEXT 6w LET = OVER <=z CLEAR ^ CAT CF~INKEY$USR W/STR$ ~{|LN CLEAR OR PLOT RUN LLIST COPY /[H]CSGN 9 RETURN STOP C[G]RUSR IN USR { INPUT POKE CLEAR OR PRINT BORDER RESTORE © BORDER BEEP EXP VERIFY v[J]?8▘tBIN USR KASN ©CHR$ USR CODE OUT TIN ~ RANDOMIZE 7z OPEN # DEF FN OPEN # IF M OVER NOT *USR GO SUB ; OUT CAT u OR 4USR >= OVER N[Q]~[C]AT @R-USR CHR$ g DRAW IN LOAD ATTR IN CPIASN STR$ [O]_[S]P NEW ▙ LOAD PAUSE USR ATN O PRINT [L];w RESTORE O LOAD 7}[H]@ OUT rB©d▟W[T]USR E|?ABS ATTR COPY RETURN GO SUB DRAW BRIGHT -USR LOAD ▗r LET ?A LOAD MOVE b▛8O▙ LOAD LN ▜ PAUSE ©[O][L]<>o&USR LN LINE BEEP ?USR g PLOT @STR$ PEEK <_=NOT <>STR$ INVERSE RESTORE h▝IN ▟ FORMAT STOP MERGE IN > PAPER PEEK ▝▛|TAN LPRINT _SGN N[U] INPUT SGN USR SQR [R]USR SAVE [B]/CHR$ BZ OUT C POKE <&zNOT RUN iIN TAB 5[D]USR [Q] LLIST hNOT [M]PEEK <=pASN CHR$ BCHR$ CODE OUT CHR$ [H]▘ INK INKEY$} RANDOMIZE POKE -` DEF FN o OUT [Q]~{v NEXT { BORDER ▝ VERIFY o RETURN ▘x SAVE CLS INVERSE IN ▖/_USR oLN _▝ CLEAR VERIFY IN GK RUN COS v.▝$ RESTORE ▛STR$ CODE RETURN SQR RANDOMIZE VUSR RESTORE v[C] THEN BORDER PRINT v OVER ATN A DIM [ NEXT <[R] CLS TAB h COPY OUT r OUT USR IF MDA LOAD [H]ASN > PAUSE ▜oSTR$ ▘K|BIN USR CODE OUT MOVE { CLEAR IN OVER LET USR GO SUB ]M>W THEN USR SGN ▛CHR$ BORDER RNDnSTR$ BORDER ATN >= DRAW [H] FOR SQR STR$ ©;SGN T OUT NOT ^▚© RUN B_[N]L REM +STR$ [Q]w OUT r CLOSE #▜WtVAL ©m DRAW }x RETURN [R] BEEP ©taxwNOT RNDx:▗?SGN s INPUT INPUT STR$ IF _IN CHR$ OPEN # RUN SGN SQR CODE RESTORE FOR [B]Bf BORDER ;[H]IN ▘ INPUT ATTR STR$ OR o LPRINT ug RUN OR [O]BIN INPUT C OPEN # RUN >={ RUN o INPUT OR <TAN CHR$ RETURN REM RETURN POKE RANDOMIZE LPRINT PAUSE /©IN STR$ n DEF FN TO w^LN IN z;STR$ IN w©>LN COS g_© MOVE }[R]©~ BORDER FLASH ' LINE /[P] INK STR$ { SAVE p LOAD ASN <=▙▛CODE OVER STR$ o OVER U LOAD #▞ DEF FN qG` CLS { IF ▜SQR ©▙ RETURN STOP [M]_USR [I]TAN COPY PAPER COPY IN COPY <>V,IN w GO TO M INK <= CLS [I] CLS ^USR y` STOP IF ~USR I`CHR$ CODE ~USR IN ?<U IF <> LOAD IN ©8 DEF FN CODE yL<©nq CIRCLE CIRCLE LLIST SAVE ASN STOP DRAW OPEN # PLOT k CLS yO LOAD J OVER }▛ RUN _ DRAW PEEK RANDOMIZE /IN DATA ~hVAL xTAN IN LET !TAN / COPY USR RETURN LLIST RESTORE ~ LIST h GO SUB /IN NEXT / FOR C[M]@▛ POKE ▘ LPRINT CUB.OBJ C```hrust-packer HR<VAL © LET > STEP CHR$ `$k CLS v*! LET / GO SUB [ATN LEN R0 PAUSE > OPEN # RETURN !X CLEAR F COPY 6? GO SUB VAL ;& PRINT INK pPIUSR vPIuACS wLN [Q]@ CLOSE #COS OPEN # OR CODE ERASE VERIFY VERIFY BORDER COPY >= : MERGE ` INPUT 2[J] INK [U] GO SUB COS P[J][E]b[N] DEF FN 3[K] CAT INVERSE <>oMOf▟ NEXT NEXT ▟(0BIN CODE ~9 CLS BIN qg.▚[I]@[J][R][I] STOP G{[I]w▗A MERGE [B] IF CODE OPEN #<> OR PLOT CLEAR ©2[P]x LIST /ySTR$ <>sf1O[L][M] FLASH FN INK PAPER z AND TO NEW W{ VERIFY CLS _S FLASH REM [T]BIN TAN INK >2 IF e INVERSE &STR$ ^,V- FOR ▟Asr© AND z INK o> CLOSE #g| PLOT USR K~ BORDER [H] VERIFY ? RETURN GO SUB sf>= Z NEW GO SUB { RETURN ASN y> DIM ~:1-# INK BORDER / INVERSE %CHR$ PRINT `1? CLEAR <> CLEAR f INVERSE g!TAN USR y CAT p INK CIRCLE RETURN <=.^, INVERSE USR [M]>= INK w, FLASH T INK LOAD `USR THEN MERGE COPY vw[D]Z COPY x AND GbW POKE INVERSE ;1CHR$ 2f<>!USR wp~,0 IF } VERIFY RESTORE -o DEF FN O MOVE NEW !1 RUN [C]9 INVERSE . MERGE RESTORE > GO SUB VAL = SAVE LLIST MOVE $IN SAVE GO TO UlABS PAUSE "N CLS G>! PRINT `a REM (g INVERSE CHR$ [A] CLEAR CLEAR DATA [G]h[J][M] RETURN INT 2<>~O|^[D]W> THEN j* OUT RANDOMIZE t VERIFY i#[B] DEF FN X [C] LPRINT TO CLEAR |CHR$ xLEN OR INKEY$<>[SGN FN SGN 6/,w; FOR #Rb GO SUB [L][M]TAN REM [A]Yv^.> LPRINT V{/_zWj RANDOMIZE SGN BRIGHT OPEN #[K]: THEN >7@8 RESTORE INVERSE 4c LLIST A PRINT FLASH X[B] REM <> COPY VAL CONTINUE [K] FOR ~▖y[G]"SCREEN$ ATN VAL$ FOR D NEW YUm BRIGHT < FOR w INVERSE [H] FLASH COPY AT [H] INPUT SAVE LET SQR RUN FLASH A~ COPY M LOAD COPY CLEAR OUT o COPY CLS }©IN i LOAD RUN H CLEAR RETURN B OUT COPY CLS IN V COPY RUN w COPY ~~ OUT LOAD r CLS CLEAR PIN COPY RUN ©D RETURN LOAD g COPY CLEAR |IN OUT ` GO TO CLS z COPY OR -USR COPY ? RETURN IN PEEK GO TO ? COPY DRAW [U]CHR$ | POKE .VAL <>[U]CHR$ STR$ INK _ OVER CHR$ CHR$ OR ERASE ATN CLEAR << INK 4&USR PIBIN } AND NOT BRIGHT RESTORE ~SQR RND RESTORE [G]~COS ©INKEY$ATTR BORDER [L] DIM IN ngn[C]ASN ▞ BEEP ▝-}IN IN SAVE *}2t[O] MERGE LSCREEN$ |V& RETURN USR Q OR [G]PIf INVERSE CHR$ [ PAPER CAT Z}PEEK J>=B FLASH NEW STOP 0ATN LINE $ATN OPEN # RANDOMIZE CLS ^2|Ff OR CODE H RESTORE STOP STEP OR uV5[J]"AT INKEY$ COPY USR [E]KIN ▘▛&RND PAPER CIRCLE IN [H]▙[J]BIN }P CONTINUE |Tl GO TO [P];|▟7c[U] LINE ASN n[O] OPEN # THEN _▛STR$ ZY-. CONTINUE [P]▗© CLEAR ▜A©RNDIN 1 TO DATA m[L][F]POINT TO CODE NEW RANDOMIZE > PRINT STR$ CLOSE #ATTR RUN z[R]USR RUN j LET |ASN [E]CODE EXP t▞BIN KBIN STEP ▗ COPY S3TAB VAL$ <=[U] DRAW POINT RANDOMIZE NEW CLOSE #+ OPEN #LN 6 AND ABS EPRND ERASE TO ▙LSCREEN$ ED▛ACS [E]vCHR$ 0 CLS 86▙ NEW AND VABS [N][O]e2yCOS ▖><>J▞ THEN |e<= CLS <=>= INK VSQR PIFN USR [A]▘EXP VAL H AND USR G[D]K MOVE =ASN NOT u RANDOMIZE REM CLOSE # DATA CHR$ . STEP ) REM {PUSR *SCREEN$ [J]STR$ MOVE OR TAN COPY COPY J>=[I] FORMAT : THEN ▞%jIN "STR$ 1ABS AND [P]:d©cR> NEXT |▞ CLEAR [F]CCHR$ P REM uTAN fUSR AND [U]USR D[K]1USR ▖ OR u NEXT pCOS ▗LEN NOT >=J- LOAD VERIFY 9n<> #}[N] THEN POINT ,~ TAB IN ~bjABS WXf OUT qL^CHR$ z[H]TAB STEP AND ; CAT /%'),[C] DATA "Fi8kj~TAN }K}ABS DIM i[J]r CAT C@ATN CMFS CIRCLE STR$ DIM )PEEK SCREEN$ IN ASN x CIRCLE h? RETURN + OR CHR$ V$WUSR ASN ^ NEXT SQR RESTORE jUSR 0PEEK [S][I]_ MERGE CAT 4 TO ,'z CHR$ 6H DIM >= SAVE PLOT SGN PEEK LLIST zRNDp@7 LET A%TAB AND ▛ TO ZSTR$ $ ERASE CAT dEK/ NEW POKE |$"[D]AINT RETURN EXP IN ▙oPIATTR POKE %b[H]<>1▚ PRINT <IN STR$ ePEEK 3▝ STEP fSUSR 21[D]rIN xUSR ASN |ATTR o AND " NEW OPEN #eLN USR ^PEEK C.[R] CLEAR FOR IN TAB W; CAT ySTR$ '12IN ? LPRINT {-/g TO ,TAB 7Z▘&EXP 5[B][L] SAVE USR GO SUB ERASE [S]BIN TAN ABS CHR$ ABS i%"9R DIM /▝? CLS CONTINUE o3 VERIFY cINKEY$? POKE ASN h DIM >=0x MOVE DEF FN TAB CLOSE #▘▙/B[U]R| RETURN ATN 2 AND STR$ ATTR USR ATTR PRINT INPUT SCREEN$ [ OUT rFN DIM LEN ▖<]G[N]ATTR LIST # CONTINUE TAB VERIFY LINE F TO G BRIGHT *1A:cSTR$ G[B] RUN RETURN )ATTR PRINT c;KZC|E PRINT ▟LLN GO TO .Uw AND USR PAPER ^VAL$ ▝+_PEEK RANDOMIZE [H]SIN [F]~▗INT OPEN #TAN ~jV▗ GO TO =Wp AND CHR$ AND NEW FLASH GO SUB IN ▗~u4}|T CLS "STR$ W5BIN INT ▞[Q]xXCHR$ STR$ CLOSE # CAT CHR$ USR @ AND IN STR$ DRAW 1 NEW <=ABS 8[K]STR$ 8fj OR ▘d PLOT 0>= DIM < RETURN / INVERSE [RNDUSR h)@~CHR$ 4[E]POINT zACS THEN ▚ RANDOMIZE E PLOT SAVE OR T READ x THEN [R];FPEEK K{ LINE ©RND[C][J] MOVE m)▙STR$ STOP SAVE 6TAB [I]LEN 9 PRINT RUN :z3 OVER ?jjLEN AUSR [T] LET OR ▘[B]SQR ▛▝[G] LPRINT CHR$ BIN DRAW SCREEN$ 4 PAPER v POKE * DRAW NEXT x AND RESTORE ,SGN wie"USR <=+ [A]SGN S)|▞b2PIUSR CHR$ 46©VCUSR }R<> REM [I]5J3ABS RUN + PRINT 8▟ READ ASN LEN E}NOT :SGN ABS MVAL$ GO TO S<=<= RUN POKE PEEK [N]WY DIM r LET 3-SGN USR #[ABS AND [O]ho)[IDCHR$ OUT DEF FN GO TO [N]-P©JUSR COPY POKE [U] LOAD 1 MOVE jKVAL LINE +POINT p" LPRINT INPUT % BEEP THEN >=SGN v PAUSE ISCREEN$ USR [K] LPRINT RNDUSR >= AND / MOVE CLEAR STEP 52FkoNOT 8 LIST INKEY$g/m OUT PAPER ]ENOT WHIN DRNDx&USR CLOSE #ATN STR$ ▘<=ATN ▞ CLEAR s▝!MwATTR LLIST POKE INPUT F: BRIGHT [O]▞C DIM " PRINT .USR <>[H]zSTR$ Q-6~U3$USR CHR$ gBIN DEF FN [K]STR$ LET -NOT CcvA CONTINUE " OR 7} INK ASN LLIST "U REM COPY PEEK [O]ATN VERIFY ;pESGN LIST PAUSE ATN #NOT CHR$ SQR y LET CAT 5wLEN PEEK RNDIINKEY$~[J]IN xFN v" RUN % CLEAR NEW - POKE TAB +~y=7 NEXT [A]lATN ?[K]D READ U OUT [R]2zJEXP ▟ FORMAT DRAW SAVE CLS CHR$ wSGN E▚K8,© SAVE - BEEP <= GO SUB } GO SUB wLN ) LINE CHR$ NEXT USR AND CLS EXP POKE |oATN ^ PAUSE ▚ OUT VERIFY >W) OVER LG OVER ERASE ;TAN STOP INVERSE A RANDOMIZE REM LET xfW OUT DIM M]STR$ OVER SGN PRINT TAB ▝PEEK SxNOT NOT /▝dJ=yUSR PEEK LET <=EXP ATN FORMAT ▟# LINE OPEN #[[T] OR ^INT BIN /PEEK CASN CLOSE # LINE oABS CcxcSTR$ o8[ PRINT ATN kBIN A RANDOMIZE vNTCBIN ?"#IN PAPER LLIST ▞BIN ATN LINE INT OR [U]▜▘y STOP { FLASH INT STOP GO SUB IN ]EXP |05▝▗ OUT ▛ATTR "INT ELN -WUSR BIN ATTR WIN EXP INPUT ▚BIN [E]6 RANDOMIZE INT x8^ DRAW M</? THEN BRIGHT wSTR$ INPUT e PRINT USR [G] INVERSE 8y▞FN SGN ▙ MOVE COPY INKEY$$ DIM ?ABS W BORDER v*=, RESTORE LET RND7 NEXT READ [G]jtmUSR 7c@}.[D]B NEW t OVER &EXP OUT TAN SGN [H]▜SQR PRINT B LET SCREEN$ USR Egr© IF j;z CLEAR p▚ RUN CONTINUE v NEXT !( RESTORE TO = CAT NOT y REM BTAB oABS ERASE ▝ CLOSE #CODE vC RUN INVERSE CODE PRINT ERASE }CODE SCREEN$ ▘[H]STR$ <▛ RUN 5 GO SUB rNOT INVERSE g▞COS ▛▘ASN Z[E]zOwUSR DRAW [8 CLS LLIST SGN ABS ;<9 INVERSE jSIN USR INPUT [C] LOAD PIE[C]>=USR BIN s[T]; REM n DEF FN IN z CLS 0x THEN CIRCLE PAPER /w[C]SQR CHR$ C[O]▜OASN ;▜<> INK REM OR ATN INT E&w?CODE 0CODE /p9EXP ;V NEXT STEP Z CLS / MERGE SGN LINE POINT RND INVERSE >=USR -SGN QPOINT [G] STEP vSGN < THEN CLOSE #nSQR REM v[U]K^ INVERSE F OVER lLN x4 MERGE <kINKEY$ PAPER FOR USR >=>▝<> BRIGHT y[D]PEEK { RANDOMIZE JSGN PIPEEK ABS [INT EXP !_[S]zBt▛STR$ LLIST J#AG NEXT ATTR J"JPEEK NEW ▙▝ATN [L] INPUT COS ATN READ STOP JI8©Az RETURN GQnASN USR STEP oSQR ▛PEEK [J]DSCREEN$ INT CAT INPUT c▛?SGN /<=n/2 COPY &[R]L©Af©[B]USR CLOSE #a CONTINUE SGN [R]ABS LET ABS THEN NEW 0[M]ATN CLOSE #ASN 7[O][A]LN [D]STR$ CODE w▞ GO SUB BRIGHT ▝POINT TO jIN ▟wir READ [{ LET [P] STEP [E]<[N]QINT LET [I]'SQR } DRAW [D] CLEAR CLEAR b MOVE 6▟oINT LIST 2CODE SGN NEW LEN [F]3[D]]@ CLS +CHR$ NEW Fy+wCOS fPmn[J]▞Z RETURN CHR$ BRIGHT MUSR [C]/▙~:2 RANDOMIZE FOR FLASH PRINT iSQR VAL$ CLS wATN SCREEN$ MOVE n[J]RND▜ INPUT Xu CLS W`J[O]STR$ LPRINT RND4 INK CLS ]TAN ; BORDER ▛L[J][Q] INVERSE J CONTINUE [D]c`<>ATN [K]c~C[J]VAL$ Z1AT [H] CONTINUE Y LET ▟SIN nVAL AW@~ LINE LEN [G] MERGE PEEK USR RETURN >9%CODE GO SUB 8[O]7EXP ?64 INPUT MERGE 3210@ CAT /.[T]?-1L, CLEAR +[I]INKEY$ RANDOMIZE *) PRINT )( LET (c GO SUB '▘a DIM :<>0USR gCHR$ USR SAVE c CONTINUE 63 AND NEW GO SUB 4 BORDER f<1 NEW AND x. DIM 1 COPY , DIM RANDOMIZE * DIM DIM W AND FOR &CHR$ A[J]9c[C]CHR$ NEW BORDER CONTINUE 5 TO NEW NEW ▚ LET 0 NEW AND 0 NEW RETURN 4 DIM BORDER *)1 BORDER (USR DIM /c GO SUB &USR ; RETURN [I]USR BORDER 1 DIM 9 BORDER CONTINUE 7c NEW CONTINUE 4 NEW xf NEW / OPEN # NEW NEW BORDER *1 AND DIM DATA ( CONTINUE DATA BORDER ' DIM USR `3 READ USR 1 AND l CONTINUE 7 BORDER CONTINUE 54 OPEN # NEW NEW AND . DIM 1 DATA * DIM DATA ( CONTINUE xf BORDER &<[P] AND NEW < BORDER AND USR DIM 9 BORDER STEP ▟ CONTINUE 6 NEW 3 NEW ▞/-L OPEN # NEW NEW DIM c BORDER ' CONTINUE NEW %1^ BORDER $ LPRINT [F]CHR$ 1USR c DIM ; BORDER USR o DIM 9 BORDER BORDER 3 CONTINUE INK 2!0.-[K] DIM DIM INKEY$i DIM DIM <>0 CONTINUE BORDER $STR$ [P]USR = AND gUSR DIM ;i DATA DATA DIM 8dn BORDER "4% NEW '5USR GO TO ., DIM "[K][H] CONTINUE c CONTINUE BORDER $TAB [J]USR # FOR #>kLUSR DIM = DATA 4= DATA k OPEN # BORDER BORDER #(5c NEW 2 OPEN #+ DIM (#4M DIM CONTINUE FOR 3 AND USR CONTINUE BORDER #QUSR USR INKEY$ DIM DATA o[K] RESTORE DATA BORDER "(8/I DRAW 673?0C-*[K]INKEY$ASN / DIM (" CONTINUE =k FOR [O][J]" NEW "<=0USR CAT z7M RESTORE DATA %-:$ RETURN 78G5Y0d+(V CONTINUE 7-YS REM DEF FN CONTINUE xfUSR ! NEW ! VERIFY COS USR TO x NEW ? OPEN # POKE RESTORE !'▞© STOP 1?;Y8▟0>=( VERIFY % REM ?1kz'! LOAD f< NEW ! STEP yUSR ATN g NEW CAT NEW COS [O]!z VERIFY (2Cd▖7>= COPY 0[O] PRINT C2 AND COS (!g NEW NEW CAT NEW DRAW [O]<3 NEW SQR a NEW ! COPY ='1?Y▟▞>= INPUT INK ?1'! CAT NEW 3[O] NEW PRINT <[T]1 NEW REM 1 %-7GYdy 7-0L3& RESTORE NEW =<>USR LOAD &<=USR o[K] REM FOR CONTINUE "y RANDOMIZE (/7 RESTORE C[C]@ FOR ;(LEN e DATA " GO SUB NEXT AT RESTORE y[G]USR [K][O] FOR INKEY$i CONTINUE DIM ^ COPY DIM #(-;#CcGNOT [O]5 DATA NOT [I] DATA NEW POINT BIN USR DIM [J] BORDER [I]TAN CONTINUE LIST DIM [D] BRIGHT BORDER "'[D] NEW (M THEN "W BORDER k[K] DATA DATA [D]<CHR$ <= SAVE REM M PAUSE USR CONTINUE M2 CONTINUE LIST DIM b6 DIM c4 TO [P]! NEW !▟G&0 BORDER [C]1 DATA DIM DATA USR CAT BIN cUSR CONTINUE USR 4 AND BORDER DIM USR J<> DIM LIST CLEAR cL PRINT FLASH Y AND [F] THEN c▙ BORDER DIM AND BORDER USR DIM [C]? BORDER $# NEXT USR $ OPEN # DIM DIM LET J<> NEW LET COPY cR LET COPY <>*SQR DIM YzUSR READ AND USR FOR USR d[C] CONTINUE LET DIM <>[I] LET DIM DATA [O]RND RETURN RETURN Ld CONTINUE g(EXP BORDER DIM c BORDER DIM USR 5c][J]ICHR$ USR CONTINUE & DIM © LOAD d) RETURN GO TO sL AND POKE NEW 1ASN RANDOMIZE BORDER gASN d LET [J]IUSR LIST DIM [U]DUSR LOAD d<> DIM GO TO <>R GO SUB AT <=▝WABS EXP d DIM o[D]) NEXT BORDER 6 RETURN FOR 9 v CAT 8VAL$ {7 OUT LN ▘543 OUT [P]210F]LL LET -,+▟o*)[R]c' AND [P]:[O]5 BORDER USR INKEY$VAL$ ▗USR BORDER OPEN #4 NEW NEW NOT USR IN CHR$ /9CHR$ I TO USR CONTINUE a▚ DIM & IF c NEW 5cUSR BORDER gINKEY$~~ BORDER AND ▖USR gINKEY$ NEW USR NEW CHR$ )&BIN DIM RETURN $&W NEW ; NEW CAT USR /9~ PRINT [K]<> CLOSE #USR NEW INKEY$ATN USR LEN CHR$ BIN ok AND INVERSE DIM USR ;ATN BORDER CODE USR >= BORDER DRAW 5 OPEN #~ BORDER )[J]USR NEW USR OPEN #[U]CHR$ FCHR$ READ O DIM ' FOR USR %SQR LET LINE BORDER c[C] BORDER USR BORDER DEF FN ~ DRAW ~2M> NEW USR AND DATA B DRAW +1 NEW CHR$ BIN DRAW '3c CONTINUE NEW % STEP BRIGHT $ NEW ]ABS c▖ BORDER iUSR BORDER BEEP [C] BORDER ~>0 OPEN #[I].USR CHR$ LET L DIM DIM TO ASN CHR$ CHR$ $CHR$ ATTR INT CLOSE # MERGE D1 RETURN DATA RESTORE READ :SQR <>|<6fS> NEW ,RSGN CHR$ BIN CAT %CHR$ VAL$ AND FOR CHR$ PIATTR <> RANDOMIZE SGN 7▟ LPRINT ; DATA BORDER ~USR REM [F]USR +>=CHR$ [C][J]BIN FOR H=k CONTINUE FOR MERGE >o DATA 4 RETURN 0/ AND DATA CLS :oACS x>0- REM [F]*CHR$ ▟i FOR GO SUB BIN W]8? RANDOMIZE [J] NEW OPEN #x RESTORE 7 DATA RESTORE :8~0 AND #+ FORMAT BIN .c REM CONTINUE " PAUSE l>=INKEY$qBIN !AT gBIN [O] PRINT x{ RUN LINE RESTORE =[I] AND ;80 IF (RND AND BIN REM AND l LOAD LEN Z NEXT BIN [D] NEW POKE SAVE TO 3 DIM OUT ]▟ ATTR VAL$ y.[T] DIM [O] DIM LET GO TO ?▚ BORDER PAUSE ERASE SQR STEP PAUSE W SAVE ^F OPEN # IF { PLOT [J] LET BORDER MOVE RESTORE TAB READ INPUT o? DATA YcTAN PEEK 6[P]oPEEK YSGN AT 1 STOP INT r PRINT DRAW c VERIFY SGN LOAD FLASH IF ? AND REM [T]ATTR LIST VAL k FOR 6M1USR ^ NEXT PEEK [C]1SGN SGN W CAT SGN OVER INKEY$ VERIFY }<0INT : DIM VAL ▛tL▘IN USR c PAUSE PEEK kL DATA RESTORE SGN 1= FOR DRAW © NEW BIN INT CONTINUE u|k▙▘SUSR LEN PAUSE EXP |PEEK [O][J]SGN z▟VAL$ ▙ REM u MERGE DATA ▖YF>=BIN f[K] DIM DIM ▘i LIST g NEW [Q][G] RETURN {PIW-f.PEEK SGN ATTR 1PEEK DATA PEEK ERASE MOVE OVER [G] IF DRAW 1 PRINT j DIM ><>,[I]USR USR RUN BEEP [USR DoSCREEN$ s BEEP Q[PEEK PEEK e[C]8 FOR LINE x CONTINUE ATTR LET DIM PAPER LINE CHR$ [POINT MERGE ▘B NEW sABS B BORDER a VERIFY PEEK BORDER 0USR ▟ DATA [L]1y5<>x CONTINUE 1USR DIM ▘▖SGN b▘TAB [ INPUT POINT READ zWUSR L) IF LN PEEK [F]i[ BORDER & READ USR ▜ IF c CONTINUE ccwUSR 5 BEEP CONTINUE ▘KBUSR oMY IF USR cF/ABS ▟)PEEK SAVE [J]SGN [D]3 BORDER Gb DIM DIM r AND NEXT ▘oc DIM USR f GO SUB USR LABS NEW PEEK :IVAL SGN xUSR HR[G]b STEP ta CLS v! DEF FN `"]/*! LET GO SUB [ATN COS NEXT R0 POKE > COPY LLIST STEP `/ OPEN # RETURN !X7 COPY [M] BORDER 6? GO SUB VAL @ NEXT CAT NEXT u_C BRIGHT CODE ) DATA Gc BRIGHT GO TO 5 TO INVERSE USR FN 05SGN INK INK ©ATN k>2pl RUN EXP v LET f RETURN | STEP SzjCODE POINT [S]?[L] CAT THEN INVERSE "= LINE CLEAR . CLEAR n▖ NEW ?m FORMAT s BORDER ACS :[I] INPUT ©[P]2 STEP g:PISIN b/ RANDOMIZE OVER *) NEXT /(0RND©POINT LN !u DRAW sC[F]<> GO SUB sa NEXT 1 RETURN PRINT OR MERGE RESTORE INVERSE m CAT CLEAR INK :TAB * COPY ^#V GO SUB S NEXT NOT jp+q RANDOMIZE b LIST m/USR :{ POKE O STEP *LEN # NEW LLIST MOVE c LIST STR$ LET INK CLEAR INVERSE TAN 61 COPY 3 OR [L] CLS NOT MOVE TEX DRAW NOT UR_MAP +7`NV[P]V- NEW LIST >R NEXT [P] IF LZ! COPY : IF FU[P][K]CK FORMAT O LOAD sRZHOSFT COPY (UK[P]eNLab PLOT mr! ERASE ©) CIRCLE H BEEP J>P[O]SQR [K]H@D DATA ABS nACS PRINT BIN eATTR ▛ LET fSIN ▛VAL$ a MERGE j LOAD ACS <>hPI CLOSE # MERGE kY2c[H] CLS CAT lQu$SGN CIRCLE t% COPY `- PAUSE EXP a DRAW STOP }|<>*[F] NEXT COS INK INK [F]'R|INT NEXT BORDER 8 INK FOR 1LN O`G;COS zUSR ▟{YONOT [N]PL OPEN #"CHR$ SCHR$ C5<>CHR$ CONTINUE NOT 6NOT EXP [D]ATN PAUSE REM ATN <> LLIST SIN [D]<> LLIST INKEY$[R],LEN l CONTINUE LEN : STEP ^ RETURN [C] FORMAT SCREEN$ n CIRCLE r[G]O[B]BIN S>>=2%oPEEK FORMAT i . COPY }[U]<> DRAW 1 STOP NOT O RANDOMIZE OG STEP PEEK O[F]jlH STEP : NEXT RANDOMIZE ATN PAUSE DATA b INVERSE &[J]g*T ERASE v INK REM / MOVE ) CIRCLE 8[M]U BORDER VAL LPRINT [I]/$[I]AT READ ~ AND SIN p0[R]L_[H] AND [I][A]▝q[Q] NEXT v;j"| GO SUB + LPRINT LET ) RANDOMIZE FLASH LPRINT ATN ▙ FLASH 5 NEXT FLASH FLASH SAVE 7 FLASH u ERASE FLASH FLASH [J]IN FLASH IN POINT FLASH FLASH [D] AND FLASH FLASH DRAW TAB PRINT TO FLASH FLASH Q;l POKE SQR t INVERSE INPUT LET [R]g INVERSE }~[N] NEW /j INK !_ DRAW [P]IN 6 INK #SIN AND .[Q])g CLS SQR d DIM [G] INK ATN AUSR DRAW &ABS AND G| INK POKE 3= COPY ABS POKE PAUSE ATTR c▗TAN CAT LET ERASE VAL %hACS %▝ ERASE BIN } IF KdNOT b[C]BIN e[H] MOVE Z RANDOMIZE 4_[J]k▟STR$ COPY CLOSE #[G], INK ▜_ FOR N[B]COS Fqp PLOT ▟ CAT GO SUB CLEAR !CHR$ d?LN THEN PAUSE [N] GO SUB D▜oi DRAW & OR ^,V INVERSE kb)INKEY$[F][O] LLIST ATTR ▜ABS INK POINT ▜v INVERSE DIM PLOT [Q] STEP {j▘TAB OVER POINT PAUSE EXP ▟ FLASH CODE e PRINT IN CODE INPUT CODE ~) PRINT PRINT ©%CODE `>= THEN CODE BIN /CODE | LLIST : CLS CODE CODE 2&[F]( SAVE INVERSE _m0O>4eT REM 2[F]; DRAW @[U] DEF FN ATN VERIFY '[B]/▜~E[E]8f▙,uSCREEN$ IBnnPEEK ]3 LET RNDe GO SUB s CLS INVERSE *6DNOT CLEAR SQR ▛ STEP RND1 STEP [K] INVERSE F[H],~[P]N INK o AND - CLEAR ^ OPEN #W^▚[L] CLEAR n RUN ) CIRCLE Vf LET DIM INK VERIFY -< RETURN TO PHVAL VAL$ RUN ! CIRCLE VAL$ [J]9LVAL$ TO i[O] RETURN THEN ERASE ▖z NEW USR { AND _ CIRCLE z VERIFY W<> DRAW [L]u GO SUB . COPY @ FOR MERGE > INVERSE [R] GO TO O ERASE Gg[Q]g{▜ OPEN # THEN _ CLEAR USR CLEAR DATA G PAUSE Af MOVE |>[G]} RETURN @ BORDER o. COPY DEF FN FOR A READ ]) THEN LLIST [I]e>=1STR$ ATN DEF FN STOP OR | RETURN 8>AiTAB 9y GO SUB GO TO USR [S]POINT ©5'ASN POKE PEEK -_'ACS EXP <>STR$ RETURN hCODE THEN 0▝CODE eg<>x FORMAT OR /GyO5IcVY▙:[I]j[U]Bj}M NEXT _ABS TO #TAN ABS VAL ASN ABS gTAB #ABS DRAW f▛ INPUT ABS [M] NEXT [L]Yi CIRCLE LPRINT RESTORE ` CAT `[K] RANDOMIZE ,_0INKEY$d LLIST N FOR 3 RUN CAT [G]ATN OUT = IF OVER /[P]LEN INK CHR$ *g[O] SAVE [S]<>|INT 0 INVERSE o SAVE 'jzSGN {ABS >= INK IN [F] PAPER [C]iOz[E] STEP VAL$ IN GxEXP ▚` THEN UYIBIN ?H INVERSE RESTORE LLIST r,[D]0▝ RUN ▜skD OUT COS OUT GO SUB © OVER OUT EXP READ OUT G FOR { OR NOT NOT © TO P CIRCLE 5PI[Q]UXy MERGE A[L]& MERGE BEEP ERASE ▝ COPY K MERGE S[L][F]X|&USR ^$Vo~% AND ng GO SUB R PAUSE :SQR VSGN W&CHR$ n PAUSE " VERIFY 0>[C]2j RETURN )q RETURN l&K' COPY 8 DRAW .] PAUSE <> STOP CAT TO ATN LINE j IF LfUSR }= VERIFY aO<>/<gACS TtzINKEY$|/=[O]oUSR $nK;3|ASN >=A[O] STEP zCOS DRAW zW{0S_ DRAW CAT myATN PAUSE [I][L] MOVE jIN O STEP ▖zuo[O]#<>sU▟Z SAVE INVERSE !?BIN > r[ INVERSE SIN s SAVE ![J]k5F GO SUB VAL =CHR$ OVER j FOR [P]e6NOT #srBIN / RUN ` INVERSE STEP RESTORE k AND ~O[B] AND NOT CLEAR .N- OR <=-[T] RETURN OUT y4) CLEAR POKE *VAL USR LET STEP NEW USR AkNOT © OR ERASE _J AND GO TO ATTR GO TO MLEN STR$ _[J] PAUSE V<>g LET FOR 6 CLEAR , DIM GO TO Z▙] CLS BIN ▚▗ OVER IF vk!USR ▛CODE PLOT LPRINT w,< NEW RUN PLOT LOAD INPUT COPY SAVE <> LLIST " LOAD `~ INK DATA COS ▚_ INK USR yINKEY$▜ STOP m▚ INK J INPUT [F]6[K].@ PLOT `M GO SUB [Q]xCODE $CHR$ [M] RUN k RANDOMIZE VAL !*[F]>M0ATTR STEP GO TO s MERGE [F] OPEN #<>▟iV> VERIFY BORDER ▘W,^_ STEP N?▗▝O RESTORE STEP Z PAPER [M]l LLIST VERIFY ,v VERIFY q FLASH 7IN [I] OPEN #<> OR : RANDOMIZE [F]IN lTAB BORDER STR$ BSY+l MERGE J*ATTR X*COS PAPER z DRAW ATTR O<>o& DEF FN N VERIFY @▗/F{y INK VERIFY $_ IF RETURN RESTORE PLOT bzxyINKEY$ MOVE CAT LOAD CONTINUE BORDER [K] FLASH MOVE ▚T[I]1 LLIST U DIM TO L$F} REM mkV%^o~$f GO SUB B LOAD RESTORE <>}[D] LINE FOR N[Q] PAUSE 6mH OVER A=~W7<> INPUT 1▞ INPUT OPEN #$ THEN ATN [N]▞[<3^*F PLOT ? FOR ` STEP &m AND [DwiASN LINE FOR xS LPRINT STEP LPRINT 0H[L]7 ERASE IF ▘ AND PLOT PRINT SAVE / LLIST & LINE ▞~,▜O BORDER OUT _ INVERSE o2[F]? BRIGHT AND tf INVERSE ~ OPEN #* GO SUB ZABS ▘ACS LEN PAPER IF FORMAT 7 OVER FORMAT FORMAT s READ FORMAT FORMAT FORMAT ASN RANDOMIZE MOVE oSGN MOVE MOVE NEW AND MOVE MOVE [H] PRINT MOVE [M]& OR n PAUSE # VERIFY FORMAT INPUT a LET STR$ <>}ATN CLOSE #[K][B] CLEAR -eFv. PLOT MtATTR /AfK0[S]=_ NEXT o1@ REM f RESTORE CIRCLE v CONTINUE INKEY$ACS ATN MOVE EXP FORMAT VAL USR zn STOP sUSR o{▘AT }▟[J] DRAW {[F]GvyD7SGN & CLOSE #qPOINT nc IF q THEN <X3m MERGE PRINT !o LPRINT @ RUN STOP `[O] LIST CLOSE # GO TO & LPRINT T INK PRINT Y RESTORE XATN ONOT PAUSE i CLEAR POINT F SAVE CLEAR & NEW LIST PRINT fPEEK ASN ERASE | LOAD w~[F]$ CLEAR % BORDER H}T TO [B]SGN USR LN CODE ?STR$ k CLS $ NEXT COPY [ MOVE PRINT &r STEP fW OUT IF PAUSE <>EXP INPUT ▖[L]g"SCREEN$ ^q RESTORE INT Dm[O]Uy AND INPUT ,ATN SQR n NEXT COPY BEEP + INVERSE /wASN CODE :`USR COPY CLS CIRCLE BEEP COPY IN ▘ AND b[C][O]n AND 2/ INK [H]vl[G] COPY MERGE LOAD MERGE RETURN CLS GO SUB s CLEAR [K]IN !d% OVER NOT LEN MERGE VAL GO SUB RANDOMIZE INVERSE LLIST ![M]ATTR COPY ▙<>ABS INK CLEAR LN FOR RANDOMIZE FLASH USR INK IN DRAW [B] LLIST ; LET INK -[) MERGE CLEAR A8 NEXT >'~8 SAVE RETURN RETURN LLIST _POINT GO SUB RETURN (Z DEF FN COPY 6 INK O GO TO >8 RETURN RANDOMIZE OUT (<▘0[C] TO > LOAD LPRINT )W PAUSE INK &s NEXT COPY (g; CLEAR ( LET o<|▖[U] INK THEN [Q] LET REM BRIGHT LLIST LPRINT LIST POINT ▙ RANDOMIZE LET VERIFY oO INVERSE IN i[Q]▜#~LEN z▘▙i 8 PLOT > DRAW ;STR$ HG?[F] TO COPY INPUT PRINT ▙ AND POKE INVERSE RANDOMIZE [P][P]| DRAW [R] USR THEN ©▟ OUT RESTORE STOP REM FOR MOVE s#r OPEN # COPY = SAVE FOR 0[L]!X' INK 1?▞NOT RH BEEP }@[K] LPRINT X LET RETURN `©[A] INK COPY CONTINUE DATA LLIST NEW REM LN READ STOP BORDER MERGE [S] DIM NEW SAVE RESTORE [ GO TO COPY READ > DATA PAPER ACS 8<= PRINT NEXT LPRINT REM BEEP CONTINUE RESTORE STOP [M]LEN t READ pU LIST <> CIRCLE ( IF DIM CLEAR SCREEN$ CONTINUE TO ATN TAN ASN ©[U]x[M][I]ABS v@[P]+EXP AND !, LIST [L]VAL /▙ IF BORDER [J]3> OPEN #▙ PLOT DRAW * COPY PAUSE RNDT PAPER RZACS FLASH [K] DEF FN LLIST (GL. COPY X[S] CLS ABS P▖CHR$ <> CLOSE #yhASN $ LLIST % RETURN <> PLOT !S NEW bN[R]Ah BORDER PRINT ▜ FORMAT LIST GO SUB [H] STOP STR$ @ SAVE [J]VAL$ CLEAR [D]VAL PLOT IF LN b LET ▝?t2Ocu" LLIST RND PAUSE DRAW GO SUB POKE INT IN LET j SAVE ATTR MERGE C<cRNDBr LET RANDOMIZE /` LET F< LIST RETURN DRAW ▝ LINE W>&L91u[K] GO TO DATA h RESTORE [E]B SAVE L THEN N< BRIGHT AND ▙ MERGE > REM BORDER ACS L= RETURN INPUT VAL$ TAB `8 LOAD BORDER CLEAR '▞ CLS B[T] LLIST COPY DRAW T,gVAL$ INT INVERSE [I]+ REM GO TO FOR PLOT l IF GO SUB ( RUN <> CIRCLE o[ STOP NWZq[F] CONTINUE HLEN ERASE 4VAL$ b; STEP ▝[F] MOVE OUT ?~ LOAD FOR DRAW STEP VAL SGN ~USR ▘ INPUT JTAB © LET 7+ LPRINT STOP cUSR '7 INPUT LEN [▟ LIST POINT }ACS RESTORE LOAD j<> CAT USR $ RUN PEEK [H]CODE AND BEEP `Xj▘1, OVER +VAL$ IN &- THEN [I] SAVE " OPEN #PIWSQR owBIN ▙( INVERSE bINKEY$v BEEP `SQR !©T CLS GO TO COPY u CAT 1n(Y:*SP%[N].POINT SAVE ^VAL$ [G] CLEAR FOR GO TO ▚CODE & PAPER INPUT n RETURN DATA COPY LPRINT @/~# TO [U] OR BEEP [R] OPEN #TAN RUN FORMAT CIRCLE IF [H]ACS F? PAUSE RETURN [_ LLIST STEP $;N DATA NEXT PAUSE iSQR [U]Zh POKE [G]~ PRINT INKEY$.▗o LET <zFN POKE RETURN PIATN ) LOAD *VAL$ rwASN G STEP RANDOMIZE COPY l CAT [T] DRAW THEN OR ATTR CLS PAUSE [N] BEEP ; LET -( RANDOMIZE RESTORE TAN READ [H]e STOP rD GO TO RANDOMIZE ASN 6 COPY LET K GO SUB [N] STOP FATTR BRIGHT NPI DRAW RESTORE LOAD BRIGHT IF v CLOSE #[J]?ATTR GO TO ^ PRINT OR OR K▞▝` FOR CHR$ j>= RESTORE LPRINT CLEAR J9 BRIGHT 6ACS hKd OR ▚2b NEW LIST DEF FN INPUT ] LOAD ▘ STEP RANDOMIZE LLIST |ATTR A READ y DRAW CAT o} DEF FN GO SUB VAL$ TO DIM FLASH RANDOMIZE =©[A] MERGE MOVE CAT <> COPY OUT NOT CLS IF ^CHR$ CLEAR ERASE USR BEEP CLS <=▛ OR CLEAR [J][D] LET NOT d VERIFY 7L CLOSE # LIST IF SGN x'ABS MOVE Sj% MERGE /pEXP INK j FOR y$ FLASH DEF FN LOAD RUN }▜CODE PAUSE MERGE LIST o[A] DRAW nSIN ▝ GO SUB SAVE [E][I]RND<SGN CLS U COPY /[S]w<=ATN $.93 STEP PEEK aYTAB INPUT RVAL$ GO SUB STOP ATTR PRINT [A]b%[H] REM RUN RESTORE IN DRAW ABS * LIST LLIST BIN RETURN RANDOMIZE MERGE $ FLASH ▞ OR K[L]] BEEP FOR a<>CHR$ RETURN <Kl*6 FOR VAL$ ov IF OVER INPUT "=CODE %4x IF Ow VERIFY .SIN INK [I]1 BRIGHT _▗ PRINT ABS VERIFY PEEK IF ? POKE 5, MOVE !CODE SAVE [S][H] LPRINT AND wR GO TO ▛[S]TAB RUN [Q]CHR$ COPY x SAVE M<=SQR @ LOAD p LIST INPUT - LPRINT MOVE FLASH / CLEAR :F DRAW <^ MOVE STOP f_";SGN PI NEXT ABS LN SAVE PEEK © PAPER SGN ? PLOT NEXT POKE IF +AT [N]+jINT CHR$ CONTINUE RETURN LOAD [Q] COPY PLOT ^TAB f[S](ASN ZCODE n[C][N] DEF FN CLEAR OVER FOR NEW ABS BRIGHT C'▞ LET PAPER %IN LINE {9 PRINT READ Ex© POKE 7 COPY [H]!# GO TO VAL$ R DIM z COPY 3 STOP #*ACS ~z RUN ▜, ASN B[G] INVERSE h=) BEEP ▝ FOR CONTINUE :6[F][ FOR 4SGN PRINT OPEN #n DATA DRAW THEN LLIST CAT .) PRINT CLEAR p: STEP IN L LLIST PRINT NEXT PLOT PAUSE VAL CHR$ k; RETURN IN *©8ASN :PEEK COPY ;STR$ COPY [O]0t LLIST RUN r7 NEW [G]QSQR RETURN ▟[H]t DIM POKE ATTR MOVE )[G]m DEF FN l=BIN ▙ NEW 5SQR INVERSE CLS VAL$ [ RESTORE 7 PLOT [G]M3©▙▘BIN v LOAD CLEAR [T]_ DEF FN [O] OVER ATTR ) CLEAR RESTORE )[H]78<>y<[C] BEEP [G] RETURN DIM P[P]b▝[ OUT W PRINT 3 PAPER [F]wjCv MOVE CIRCLE Q PAUSE RUN ' BEEP DIM [K][O]Z)VAL ;▝ LLIST OR COPY CODE CLS F* THEN W CIRCLE n LOAD k LET IF b[F]o LINE GO TO ▗ASN ~ MOVE COPY OVER STOP E▘Q PLOT BORDER GO SUB REM RANDOMIZE ACS w LOAD / PRINT SAVE ( CAT LPRINT 'o BORDER @L▛<=_i0' INVERSE 1 CLEAR OUT ▙ LOAD POKE OUT ATTR 4AT MERGE INK [B]? STOP 7 TO ATN BORDER aV REM C▖= INPUT VAL$ 3 NEXT LIST m INVERSE SQR ▙Pb'[>©z BORDER <> OVER |7 RANDOMIZE STEP y READ CONTINUE GO SUB LIST IN [M] OVER ?5e[P] INVERSE COPY g LOAD E OVER *X! OR GO TO IF OPEN # RUN CAT PISGN y[U][L] COPY }&[N]wNOT COPY v RESTORE CONTINUE OVER STEP SAVE GO TO [F]▖ LLIST IF .[F] CLS [U] OUT LET ▜C INK qx$BIN BORDER CODE /m RESTORE 7<U IF STOP PRINT RETURN PAUSE QbCODE RUN [H]5IN ATN z^J©# RETURN OUT /^ CLS X INVERSE LINE PRINT ▚ COPY AND o^ RETURN 8g BEEP DATA COPY z|j8▚SQR PEEK ABS NOT D[I] LOAD A OPEN #; RETURN PLOT SQR }▝ CAT ATTR MERGE STR$ ka FLASH COPY PAPER PEEK > NEXT REM C OUT OPEN #9BIN ▚/ RETURN © LLIST 7[U] DIM ?ABS THEN COPY CLEAR LPRINT LET INVERSE COS NEXT |-ACS ▙ATTR n`=y[P]X LET O COPY CLEAR IF GO TO [A] PRINT POKE [N][G]w0+ VERIFY ▙ PAUSE R ERASE + FLASH [N] GO TO DIM INVERSE CAT OUT oj= CLEAR BEEP CIRCLE ATTR LET ATN MERGE ▞[J] CLS LPRINT [G]H FLASH E LIST [O] BEEP oACS LINE ATN IF W FOR [T]{ NEXT ?▙ OUT STR$ ▜P[L][H]USR MCOS TAB [E]67GW* LIST DIM ;q▜o REM POKE SAVE 5 THEN NEXT q RUN STR$ j▟INKEY$<u DIM BIN TO pC[T]f▟ VERIFY BRIGHT BEEP CAT INPUT _[U]IN ▜▚r LOAD rn OUT [P]ATN i}_]+a COPY POKE CHR$ Fo LIST CLS VERIFY POINT PRINT } PAUSE b' LOAD ZRIN REM =SCREEN$ CLS RUN V LLIST LINE ▖g[O]POINT >=w}r IF ▚LN |TAN BEEP w[B]F$yAT 4 LET [O] LPRINT DATA PEEK ▙ STEP [H] COPY AND ▛ 5 REM p RANDOMIZE RETURN OVER MOVE tQX CLS g^TAB {6[P] OVER ▙Cr▟ INPUT STEP OVER LPRINT SAVE PLOT NI▟r[R]ABS DATA BORDER : RANDOMIZE <> LET IN GO SUB d^' MOVE } LLIST CLS INVERSE ATTR X LOAD 9( LIST -[H] INK INPUT ESGN SAVE USR POKE COS BEEP [O] LPRINT !F[A] READ CLS CLEAR ▙ DEF FN vCHR$ SAVE COPY ASN COPY W LINE LET PIO MOVE IF r RETURN ▜+!LN INPUT *PEEK [R] NEXT n DRAW [P] NEW ▘y!# RUN RANDOMIZE NEXT VERIFY REM CLS COPY ERASE [L] DATA <=n INK NOT rBIN ▚i LPRINT RETURN DATA FLASH NEXT X THEN STEP C LIST FOR REM LN * DIM [A] BRIGHT SIN VAL$ NEXT y©} CLEAR ▛LN CHR$ BIN ATN o©[T]q-[G]"▖[K]<= PRINT W DATA COS AND POKE SAVE SAVE M NEXT NOT x▙[J] BRIGHT CLS STOP 1 TO CHR$ & OUT s NEXT PRINT BEEP OR SGN BRIGHT Z DRAW LIST MOVE SAVE REM DIM PI NEW BRIGHT OUT [L] CLEAR jw[M]▜F<a}_"]U[G]![K]C RANDOMIZE [J][P] CONTINUE CLEAR ▗/{; RETURN POINT ATTR FLASH STEP [N]▘7 OVER D LPRINT RETURN SGN :FL=VAL$ NEXT SQR CODE OUT # NEXT 7{ LOAD RND▟ DIM ATTR FLASH ATN ASN PLOT INT k NEXT [C]? RUN U OR ©_x[▗ LLIST THEN o CAT COPY kNOT USR f OVER M}F RETURN 0` NEW <> DRAW lPIJ[D]?o# CLS [P]C INPUT SGN ©nO OVER LLIST ?~IN RUN LPRINT SQR 8H CAT 3 MOVE [U OUT [N] INVERSE [K]PI BORDER [P] LET CLEAR [I]<= IF ▖ COPY BVAL$ OUT COPY LLIST CLOSE #[K]RNDPEEK ▗5 DRAW DEF FN a2m LOAD MERGE INPUT COPY LLIST ]SGN LIST PRINT j[ RUN bNOT HW COPY B'n THEN POKE -# RESTORE y RANDOMIZE PLOT [F] LPRINT BORDER <= DRAW PAUSE VERIFY INKEY$TAB COPY ▞yVAL X OUT RETURN GO TO DRAW .▗XW;.PEEK ▞ PRINT REM [C]v SAVE N/ RUN GO TO 8ACS [L] REM ABS CLS wBIN LPRINT =o RESTORE rZCHR$ ; STOP ▜?SQR ABS PIIN SQR POKE SAVE ZINKEY$IN 0H RETURN D3 COPY GO SUB !USR REM LLIST RUN IN LN MERGE INT STR$ { COPY [O] INK yk[G] BORDER PLOT ERASE ▟ OR ▚[A] LIST ! DRAW BRIGHT RESTORE f[U][M]7 ERASE IF ▟ OUT @-SGN ERASE COPY RETURN |LEN <=o RETURN OR {▗ DRAW BORDER <> GO SUB eCOS OUT PAUSE CLOSE #,LEN ©z▝BIN ^[K]Gj DRAW FSQR NEXT LOAD 7q DATA bV▛ATTR g LIST o STEP GO TO [R];C<=RABS READ MERGE 2 OVER / DATA b LIST +EXP : CLEAR CONTINUE MOVE NEXT OVER v READ ACS 1IN VAL$ SAVE SGN CLEAR USR [P] RETURN I LOAD VVAL > LLIST [P] CLEAR L_ CLS $ DATA BORDER BEEP PLOT [O]@AT COPY u-[R] GO SUB CLOSE #ABS READ PAUSE [M] RESTORE O FOR EXP ] NEXT pxLN 0{2 LET CLS IN RESTORE DIM GO TO GO SUB LOAD ][D] LINE PAUSE RNDABS e LIST ▛ COPY SGN OPEN #VAL BEEP USR CLEAR g INVERSE AND ▛ DEF FN ▙ NEXT BRIGHT v DRAW THEN 6^SQR RETURN ?"<VAL CLEAR LLIST A!INT SGN ▜[H] BEEP GO TO [O]PEEK DATA }j-▟) INPUT CLOSE # PAUSE AT THEN [N] ERASE GO TO INPUT GO SUB Is▜AT ] DIM [Q][P][O] OPEN #w[I]/ REM FORMAT COPY iBIN Flf RUN INT ^5B_;ACS COPY 7z OPEN # LIST DEF FN ? CIRCLE -T OVER COPY /ATTR ABS 3 IF LPRINT SGN VERIFY k LINE CLEAR 3T▖ NEW x| COPY K/ TO : GO SUB ATTR INK DATA nAT IN ASN [J] RETURN ~g`INT POKE [C]qABS SQR j/NX[H] DATA +#[C]ABS #V/ OUT CLEAR <5 LIST CLS INPUT @TAN [F] BORDER CLOSE #M RANDOMIZE COS NEXT ECODE j CLOSE #- CLEAR ['STR$ STEP ▞ OPEN #EXP DATA </6 ERASE PEEK >=BIN c NEXT <>[M]} PRINT LOAD BIN ABS SIN COPY w INPUT RESTORE CLEAR jlOX DRAW 1 LPRINT VERIFY uoBIN >'74 RUN {R OR U▗ INVERSE THEN STOP GO SUB v CLS CAT INPUT LINE N BRIGHT CIRCLE NEW +ATTR LPRINT 2~ CLEAR }O REM PAUSE =RND LIST [R] RETURN EABS H THEN PLOT ©mPI OUT INT }nSGN PRINT sABS [N][A][D]O DATA STEP CAT PAUSE ▟LEN PAUSE [U]c RUN } DATA 0SQR ▝1%/+9} LINE DRAW ▟[B] STEP GO SUB $ DATA ^CODE MERGE }> OR E THEN <= VERIFY ATTR MOVE BEEP )© PRINT LOAD FOR | LIST bC<>VAL ERASE INVERSE LEN VAL$ OVER POINT DATA USR &N NEXT STEP C GO TO A>/© LPRINT PEEK ▞ THEN CLS LLIST ~a© OPEN # LOAD z$_ASN =COS DIM ^ RETURN {RATN H FOR CLS CODE 9PEEK [M]©`YS INVERSE O' OR >= COPY ys RESTORE DATA RANDOMIZE STEP FLASH EXP RND[J][ PAUSE 9^ OUT [C]kz. RESTORE n DIM ~ OVER OR CONTINUE {^ DATA IF c COPY *sV RETURN SIN [T]g GO TO - INVERSE IF LLIST SGN [T][M]<>▙USR F POKE ▞IN STOP [A] DEF FN c2[U] READ [S]r MERGE `3-bCHR$ ^ INK RETURN ▚v OVER RESTORE h<=v<m LET RANDOMIZE CLEAR OVER CODE AND TSGN z DRAW SIN INPUT STOP ?&▚ CAT NEW PAUSE | NEXT TO IN 5PIVAL TAN PAUSE [J]©[I]zu LIST EXP [H]RND INVERSE NOT 7▖ MERGE NEW !yl BRIGHT @b INVERSE INK RESTORE [G] LET CLOSE #} CAT DRAW y POKE CLEAR ▟-ABS PRINT PEEK V MERGE OR RANDOMIZE TAB DRAW / BORDER OUT OVER CLS , PAPER © CLEAR <>[J] VERIFY COPY [I] LIST CLS RETURN < OVER LLIST [J]5 FLASH RUN [E]n CAT g NEXT LIST RANDOMIZE ATN k PLOT <R AND >=&=t OUT ▗ IF `}SQR LET CAT ?oCOS RETURN KCODE CLS [T]SQR GO TO C REM RANDOMIZE CAT PRINT CODE ` BEEP [G]~; RETURN GO SUB f<ABS [K] GO TO NEW RETURN [L]oATTR /DLN ▛SQR c LET O INVERSE INPUT ATN FN ~S<=©8 CLS [ OUT COPY ' INVERSE ▟POINT LET ]BIN EH# GO SUB M# NEW ),[L]nao▜IN OR }AT RANDOMIZE POINT CLS ATN X INPUT IF m BORDER 1IN SGN A<4 RUN ACS r INK BORDER ▝ DIM LOAD LPRINT % SCREEN$ USR SIN 1! THEN RUN AND x POKE RETURN PAUSE < IF CAT CHR$ ;SGN INT FOR INPUT %▞▛ DEF FN OVER RANDOMIZE y BRIGHT u[L]ATN TAB U▜ STOP om LOAD W5[K]PI BEEP PRINT STOP PAUSE OVER { STOP COPY INKEY$ RETURN [R]SGN ©} IF OUT [H][G] RUN OPEN #/© OVER [I] OR yw PRINT + STEP INKEY$ THEN [bY▜ NEW n[N]SQR [M]PEEK STR$ CE7<> SAVE y+_< MOVE [O]LN MERGE wp}▜ CONTINUE DIM y DRAW q▝ OUT RANDOMIZE @ INVERSE SAVE PLOT GO SUB VAL READ SQR CLOSE #CHR$ LOAD IF SGN 6ACS >=STR$ RUN ▟'~LxPIABS >bNOT RUN CLOSE #z COPY [C] MOVE ASN FOR [N]SGN PLOT LLIST PAUSE IF f OUT RUN t TO [I]CODE GO SUB MOVE IN G RETURN OPEN # CIRCLE _ REM ^k RUN LLIST OUT 3IN / CLEAR <=0SGN [U]ATN SCREEN$ CAT i DRAW 7[L]6[Q];cPOINT E READ PAUSE 2w PRINT LEN BIN ; CLEAR u"m NEXT PAUSE SAVE CAT FLASH MOVE IF ▟ RETURN o COPY ▛ OVER ATN SIN PAUSE ~?IN SQR RANDOMIZE / POKE DIM [I]▜.z OVER K`3 COPY u RETURN CHR$ USR PEEK FOR [C] CLOSE # CLOSE # LOAD M/30g DATA [D]YEXP ▚ REM FOR ABS DATA RND[E]E INVERSE <> GO TO r OUT 'o GO SUB FORMAT /[O]R GO TO v{PEEK BEEP COPY AND mX~ CLS INPUT {` SAVE RND_ SAVE BORDER ASN LLIST )X_ef1 NEXT CHR$ CODE VERIFY 2X nPIo IF [L][N]PEEK RESTORE F PLOT Q^[E] NEW DIM k OVER # DATA [R] LOAD INVERSE ERASE iW OUT ~ RUN jBIN 1y1r DRAW ABS EXP LPRINT ▜ ERASE 9 LET CnJ GO SUB IN }VAL GO TO FOR AT _/-<VAL ") PAUSE [H] INPUT B1 STEP INVERSE [ RUN IF )[L]LEN ▖v$ BORDER 11 NEXT }f LOAD ▝ FORMAT BEEP g<>t OVER SQR zc$ BEEP OPEN #[T] NEW o8 LET LIST ▟ AND REM FOR NEW _BIN ACS VERIFY PEEK LOAD NEXT REM [R] SAVE SCREEN$ L!h OUT w* LOAD 3 DATA GO SUB ATN TO G TO DRAW BORDER [N] RESTORE q MOVE EXP SQR SIN Z5 RUN INPUT SQR rw OUT FLASH NOT {OINT |IN FORMAT ABS [L]EXP ] GO TO ccPOINT $o&CODE "W THEN _gD[M] SAVE VAL$ B CLOSE # DRAW RESTORE . LOAD SGN NEW STOP SQR _ LIST DATA 4 CLEAR STEP [P]@c FLASH + RESTORE RANDOMIZE REM ▚ PLOT BEEP o<> BORDER CONTINUE STR$ CLEAR INVERSE SGN 1 NEXT RND▛ABS XSTR$ 9 OR S[U]O] OUT PRINT PLOT ASN m PAUSE H DIM LPRINT READ INVERSE LIST :O POKE +ACS ATN EXP MERGE xCOS DIM /IN BRIGHT }IN FLASH INT SAVE CODE CAT DRAW =yTAN CLEAR BIN INT PAPER ? OR j NEXT ▘ LET [S]7 GO SUB w LLIST DEF FN ▛`ySATN [B];x6SGN READ RESTORE [T]SQR LLIST ABS X LET REM OR CLS PLOT FOR NEXT DRAW !PEEK RUN AT Dl THEN CLEAR PLOT FLASH }^` CLS uv NEXT BRIGHT DIM *ASN [L]mLEN b%?F NEXT Qw GO SUB n CLEAR INKEY$ OUT OVER p MOVE [T] FOR o INPUT IN PEEK DRAW RETURN RESTORE } RANDOMIZE ▝▗©l LOAD [▚ RETURN [J]>▘[T]BIN 2 FLASH LN fv▜B_ CLS RETURN EHrc INPUT SGN RUN <=▚7R NEW VAL '0 CLS }▝ GO SUB PAUSE BEEP [R] CLEAR CIRCLE VERIFY [▝ COPY ▗A STOP LN LLIST '[K]3g[D]▛<= OUT Cu! LPRINT /TAN DRAW 3CODE CLEAR ATTR SQR * OUT Woe`VAL$ X_[M]zX NEXT OATTR [I] REM BORDER v| DRAW READ RETURN v/+ IF POINT ASN {! MERGE BORDER NEW ▝ABS w$;[M]J[H]Y DRAW REM [B] DATA VAL V RETURN LOAD PRINT 9 COPY RND LIST DRAW CODE COPY VAL f DEF FN ~[F]▜BIN R DEF FN +uCOS CONTINUE >+?Rdu▚[F][U]COS STR$ DEF FN FLASH CONTINUE POKE !+5?IR[dmu}▚▟[F][N][U]AT
46010 DEF FN MERGE FLASH CIRCLE <= LLIST CONTINUE INPUT POKE IF !&+05:?DIMRW[`dhmquy}▝▚▟[B][F][J][N][R][U] CLS FN AT CODE COS ACS INT ABS STR$ BIN >= THEN DEF FN MOVE MERGE CIRCLE FLASH OVER LLIST RESTORE CONTINUE FOR INPUT LET POKE RUN IF CLEAR !#& GO TO c(+.0358:=?ADFIKMPRTWY[]`bdfhjmoqsuwy{}©▝▗▚▖▟[B][D][F][H][J][L][N][P][R][S][U]INKEY$FN SCREEN$ AT TAB CODE LEN COS ASN ACS LN INT SGN ABS IN STR$ CHR$ BIN AND >=<> THEN STEP DEF FN FORMAT MOVE [P]i OPEN # MERGE VERIFY CIRCLE PAPER FLASH INVERSE OVER LPRINT LLIST READ RESTORE NEW CONTINUE DIM FOR GO TO INPUT LOAD LET PAUSE POKE PRINT RUN SAVE IF CLS CLEAR RETURN LIST LOAD ? OUT o CLS CLEAR RUN GO TO VAL OUT } COPY SSCREEN$ 8<= READ READ © DRAW SAVE READ !"#$%&'(? RETURN )*+,-. LET /012345? RETURN 6789:;< COPY LET =>?@ABCDEF COPY GHIJKLMNOP▖QcGRSTUVWXYZ[/]^~ RANDOMIZE _`abcdefghijklmnopqrstuvwxyz{|}~©▝▘▗▜▖▞▛▙[A][B][C] RESTORE _[G][H][I][J][K][L][M][H][H][Q][T][U]RNDPOINT RETURN [T]SCREEN$ ATTR TAN ACS ATN LN EXP CONTINUE PEEK IN USR CHR$ NOT BIN OR COPY [T] LINE CAT FORMAT ERASE OPEN # CLOSE # VERIFY BEEP CIRCLE INK PAPER TAN FLASH BRIGHT STOP DATA PI} REM GO TO GO SUB INPUT LIST PLOT SAVE PLOT RANDOMIZE IF DRAW CLEAR COPY `< COPY CLEAR NEXT [[O]|▘g3 INPUT VAL [C][Q] TO LIST [E] TO IF PRINT AND BRIGHT SAVE PRINT NEW ~AT 3FN VHIUSR USR u SAVE ▚[P]?STR$ USR AT REM C LINE USR COPY [M] READ [M] RESTORE READ g COPY (0 RETURN LIST 3 CLEAR PU3E RETURN *SPOINT " THEN ; DRAW L REM INVERSE DATA [T]#%COS ~INKEY$ OR READ REM [P]! NEXT ▘[E] SAVE L[A] IF INPUT DRAW OPEN # POKE NEW PLOT ` BORDER [H]_ CLEAR © LET [P]~} GO TO SAVE |{z RETURN ©yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"?F IF RUN POKE LIST GO SUB REM BORDER DATA LLIST OVER FLASH CIRCLE MERGE ERASE CAT STEP LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$[U][S][Q][O][M][K][I][G][F][D][B] COPY [A]▟▛▖▜▚ GO TO COS ▗▘CODE CLS ▝<=SCREEN$ t▙▗ MOVE GO SUB ▜▖TAN hr CLS [I][K][M][O][Q]Nb)ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE STEP CAT ERASE INPUT <=USR DATA BORDER REM GO SUB LIST FLASH <=USR AT STR$ "%LEN ~CHR$ 1369< LOAD COPY NOT GILNQSUXZ/^ VERIFY 1NOT km STEP m[K][L] BRIGHT f[M]J<=[L]X COPY VAL PEEK THEN RETURN x RETURN ▘ LIST STR$ CAT STR$ W, LPRINT g LIST COS X LPRINT gINKEY$ OUT [M]? CLEAR STR$ INK 0 OR CLOSE # LPRINT TO [I]▘ FORMAT pf3INKEY$ [M]>=S DEF FN BIN ) CAT USR LSTR$ SGN 83INKEY$ [M]IN S DEF FN SGN )g▚SGN 3NOT SGN ▘[J]aSGN STR$ TO 0SGN ▘ LPRINT [K]SGN FORMAT INKEY$ BRIGHT S FORMAT ▗)BIN CHR$ LN aAT 8USR COPY CeUSR < PLOT USR HR FORMAT QKKAAAAH DRAW v*/ GO SUB [ATN BlR0 NEXT > STEP V`! CIRCLE OUT ( COPY 6?v ERASE GO SUB VAL v COPY COPY ▜ OPEN # RETURN ! FORMAT aR▛@▞ BORDER CODE ▚▙ IF tz,SQR FORMAT USR .ABS * THEN [ MERGE 3 CLS FLASH DRAW <> OR CLEAR ©2PIySTR$ ACS SCREEN$ NEXT <=:] NEW PLOT , STOP b CLEAR * POKE "} TO <>u PLOT STEP #a:[▝[K]]z THEN ?ABS INK VAL {<AT > FORMAT g[L]TAN }©Ax NEW ( RESTORE NEXT sNOT VAL$ RND}INT " OVER zx2[K] READ [J] INK AND TO TO To,>© INVERSE TAB RESTORE DEF FN INT OUT |IN THEN ` SQR ©([J]d FLASH IN 6 FORMAT / OPEN # MERGE DEF FN kk MOVE THEN c LINE DEF FN Vf[J] PEEK SAVE tnINT IN GO SUB S7PIWg:I8g7 PLOT [U]a|9FN FOR NOT ▘POINT W/LjPOINT CODE s LIST vn▙ MERGE OVER PAPER 3[G] MOVE [J]4]<> CLEAR 5ASN DEF FN I[F]▖< RETURN [H]2la>= PRINT RESTORE : LLIST [H][H][I]*▚#?" NEXT w▙SIN USR : COPY * LLIST LET NEXT <> OPEN #7 ERASE ! OUT `4=(COS STOP <>©_D DEF FN ?[L][H]S* RESTORE } NEXT NOT /= COPY GO SUB a NEXT [M]IN i% PRINT IN =>= DEF FN INT RETURN CODE SCREEN$ CONTINUE o3/ MERGE Uw|W COPY FORMAT (sATTR RANDOMIZE DEF FN CLOSE #©[Q]TAB <> OVER _/^ VERIFY AND [J]/ BEEP SCREEN$ _ REM THEN PLOT FN [G]3 OUT TAN PEEK TAB <=:[T] COPY ABS | IF OUT CODE INVERSE +/ CAT PLOT ? FOR [K]SGN FN * RETURN >= CLOSE # CLEAR [Q]CODE [E]% OUT _©CODE IN J LET IN ERASE INT CONTINUE /zCpIN ABS s FOR TO IF 0+ LPRINT [L]f DEF FN n|[Q] VERIFY #VAL } ; FOR FORMAT COPY DATA 0~ASN ▖Y7 OR COPY [U]U-,} MERGE CAT RESTORE ATTR MOVE >=NOT DEF FN CLEAR @ CLOSE # GO TO IN ABS PLOT PyT CLEAR LINE READ © MERGE y NEXT OVER ATN )& GO SUB [A] CLEAR NEXT u PLOT _▘Z OVER TB[H][H] VERIFY FLASH TO REM EVAL RUN @ POKE CODE SGN PEEK 9 CLEAR [T]f FORMAT ATTR O PRINT SCREEN$ 7_ DRAW MERGE Y< NEXT PRINT xVAL$ SiY POKE LOAD BRIGHT IN ?!▝ COPY GoW LPRINT 9~C!ATN [T] DIM LLIST !ACS nW SAVE RETURN CLEAR *x IF [J]ABS ,[T] OVER K PAUSE RESTORE m OUT DRAW LLIST IN IF ▛j OVER CODE k DRAW j INVERSE [S][Q]VAL$ LLIST ACS FN RANDOMIZE WA[C]}[L]0IN SCREEN$ CONTINUE Jj LPRINT C RETURN MERGE [N] LINE = REM 0*L READ o SAVE ACHR$ IN " RETURN SGN COPY ASN [Q]▜W © LLIST +*▘? FORMAT [F]ATTR CAT OUT PEEK 9|MSTR$ IN OVER STR$ ?>& OVER +BIN Z BORDER THEN DEF FN MA AND @ IF @ PRINT CAT zHd_ GO TO LIST & FORMAT H> AND O COPY T`uASN P▛[U]PEEK POKE VAL$ IN I</SGN :[Q] RUN !ATN ~[S]NOT VAL$ ]▘BW CLS aD▟ INPUT C RETURN NOT OUT SGN Wx` THEN qZ OVER TAB [G] OUT VERIFY LN IN IN RETURN LET ~ RNDp>/`INKEY$8FN D`▟x▞ IF ATTR [F] DEF FN E CIRCLE o OUT READ DACS LPRINT CAT .I VERIFY MERGE SAVE E▞SGN [B]W REM &v/. LET o RUN , LIST STOP MOVE >xO COPY NEW !IN MOVE LN K IF qPI BEEP OVER OVER <=y CLEAR LPRINT POKE FLASH COPY CLEAR h[G] OVER @ PRINT UWl LET SIN DEF FN K MOVE ]8ATN INVERSE STOP @ OUT PRINT GO SUB INKEY$EXP NEW MERGE _PTAN 0y CIRCLE FORMAT LPRINT IN REM _BIN INK TAN DATA NEXT INT LINE pf IF PLOT © PRINT N RETURN oSQR ▛ GO SUB /©p OVER STOP OPEN #TAB PIoCODE RUN OVER CLS 6 RUN DEF FN O?▟ OUT t K POKE OVER l[H] OUT MERGE [F] COPY LOAD v DIM COPY &ATTR [J]*▚USR [O] [P]1 LINE ▞pk FLASH READ AND 1/ STEP >ATTR [E]INT ASN RND OPEN #IN OPEN # REM v ERASE L DRAW /[P]VATTR NEXT OR 0 CHR$ yG<DIN POINT " LLIST ?!/O OUT BRIGHT *CODE LOAD ▟ CLOSE #? [D]PI OVER z FLASH RESTORE < ?o NEXT SQR COPY CHR$ W OVER POKE BEEP ] GO SUB zABS RESTORE V; PRINT SAVE CODE TAB ] AND v MERGE sW POKE [K]▜ g~ ERASE ACS 3 TO OVER PRINT f BEEP So-COS IN CLEAR ERASE TAN [C]9o LET Lh LPRINT IF [O]*Zg SAVE [Q]6< NEW = IF [K]:8[L]%▟VAL USR a RETURN +N BEEP ACS ACS INPUT zACS UY[F]IN LN SCREEN$ ▖ATTR RETURN oSCREEN$ gPEEK R OUT Uze MERGE IF FORMAT LIST ▖CODE DRAW [N] INPUT RANDOMIZE IF ATTR PIUSR BORDER " OVER LIST COS VAL$ _|f8IN [S] FLASH [U] RETURN IASN ?f OUT NCUSR USR ~[U]INT KCODE [K] CONTINUE BRIGHT VERIFY iCODE [I] PAPER a LIST ▛rJPOINT 1 DIM ▖_ DIM POINT LOAD [P] ERASE x[C]8 PAUSE DKg STEP <=] LPRINT u OR qOB PRINT PLOT SAVE FORMAT LPRINT PLOT RESTORE -PEEK ^[N][R]> STOP ABS PAPER RETURN <=[E]_ RANDOMIZE RUN [G]! AND IF :SGN RESTORE DRAW ]RND} PRINT @USR AT REM CLS DEF FN DATA ? SAVE pE5POINT 7[M]=pTAN f4? IF @[C] SAVE Q LLIST ] GO SUB POKE OUT ;ACS CLOSE # GO TO PLOT LIST R RANDOMIZE LOAD RUN CODE +p< NEXT RETURN TAB OVER FN T3ASN COS M [C] OUT TO ySCREEN$ PAUSE +[H]x<= STEP TSGN Wk▜SQR & OPEN #o[A]CODE G BRIGHT ACS B USTR$ THEN +CHR$ =EXP CONTINUE TAB ▚STR$ INKEY$j LIST [P]B.COS F[M]" PLOT 2 IF ▘ MOVE {W"W!o"Zt SAVE SQR [H]▖ IF [Q] LPRINT +INT OPEN #©fCOS BIN [S]"v-[F][D] LIST CLEAR fdv REM [Q]P2BABS RESTORE `2SGN DRAW Z▘U CONTINUE j^ RANDOMIZE IN PAUSE rSGN {oINT COS /m[T]▗76.ATN SQR [C]& OUT [M]INT ; GO SUB IN © NEW (ASN WuZURNDPEEK * CLEAR P DEF FN [W@[G CLEAR Z/ LLIST G▗,m POKE [E] FLASH BIN 5U RETURN z READ ySKB RANDOMIZE DRAW OUT INK CLOSE #/VAL$ LINE jSTR$ ASN PLOT m MERGE +^AT POKE [K] PAUSE l PAPER a+i LIST _▞w LIST /< ERASE VAL$ LIST PLOT [Q]> READ [T],IN - OR CLOSE # DATA CLS TAB o REM [C][J])7PB VAL |l INPUT COPY [H]NOT MOVE k© PLOT DRAW PEEK OR GO SUB SGN FN ▝[M]SGN vLVAL$ THEN TAN b PLOT /Y MERGE *▛RATN p RANDOMIZE ▜oLUSR W OPEN #I[T]TAB [G] OUT CLEAR CODE POKE i▘[H]! CONTINUE GO TO ▝ RESTORE e[J]IN PEEK [K] GO SUB SQR INVERSE 'OPOINT [P]FN INPUT CONTINUE PLOT zf}ATN CHR$ STR$ ? LPRINT ▖Lz~& LOAD CLS hW2TJ NEXT VAL$ AT > STOP BRIGHT I SAVE IN />▖5 REM USR sCHR$ %Z IF FN TO .!ABS EXP 1 POKE [U]5 STEP [B] INPUT STEP [U][S]ATN BORDER GO SUB f#'ImSTR$ IN z PRINT ! MOVE DRAW MnSTR$ OUT BEEP CAT ;CODE © CLOSE #m[H][R]z READ FSGN LET =fLN DATA [A][H]©L▙ BEEP W FLASH IN $ OPEN # FORMAT TVXCODE ]_ VERIFY ▛z{ GO TO CONTINUE [M]EXP TO POINT p BEEP 3SQR _pm▘] STOP USR RND LPRINT PI!STR$ y[L] DIM 9▙kCODE h[O]L#INT [NOT OR RND]C OVER cJ4T|▝IN w INK NEXT LLIST ©TAB vT[E]wkn CLOSE #!USR <COS LPRINT PLOT ATTR VERIFY +?ASN ▚ PAUSE NEXT FORMAT CODE PEEK { LIST VAL$ STEP GO SUB W_ VERIFY ▜t~[I]▟ REM .SCREEN$ C LLIST ▘FN READ E_W▛>=Y' MOVE OR g$;INKEY$/[R]/BIN + GO SUB IN l!{}[S]COS NEXT OVER ATN ▘w LPRINT ({ RESTORE READ STOP ▛) AND !o DRAW BEEP PEEK RESTORE ACS ATN TAN 4*EXP CHR$ fD|SCREEN$ SQR FOR [U]@xxPI 2SQR BORDER [U] LLIST [B]k PAUSE ZZUSR COS OR NEXT COS OPEN # DIM [O]^USR @ OR ▟ DATA < FLASH WTAB DIM "IN ! PAPER a IF / INPUT / STOP POKE pM OUT ©<>w LET q[E]|QIN w LIST M▞ OPEN #utW CLOSE # MOVE V THEN POKE PAPER SAVE [G]BP LOAD PAUSE SQR ATN | DEF FN xc CLEAR SQR LET RND ERASE [P REM INPUT ▚n[O] STEP QL OVER BORDER ▗▝[H] IF FN E COPY CODE D[O][R][D] PRINT DABS jxIN OVER SAVE -▝/m STOP READ ][I] L CAT [M]^=[Q] MERGE ACS NOT [D]p,[ OR |{/STR$ [T] TO FLASH jeIN RESTORE Dr[D][P]* CLS INKEY$SIN TO IN NEW g▖▛ LIST ▝ DRAW oy`SQR { NEW W#[D]ATTR 6PIk~ RETURN @ABS j PLOT PRINT 2H PRINT CLS SQR RANDOMIZE c-STR$ CLS Ty MOVE ? NEXT FOR " PRINT VERIFY TO ATTR % INVERSE MOVE ? MERGE rSTR$ PI^INT O OR CLOSE #INT LLIST FN LLIST <_[M]4ABS 5 DIM ABS _1 NEXT RESTORE OVER < RETURN ATTR [Q] NEXT LIST = CONTINUE DIM [o BRIGHT PRINT LN { LOAD INKEY$* REM INPUT AND [R] POKE #INKEY$U OVER EXP K OPEN #( PRINT IF NOT SGN zv PRINT < CLOSE #[J] POKE s COPY FN COS RANDOMIZE [S][M]2 OVER C CONTINUE k CIRCLE VERIFY CLOSE #~+ CAT yPI DATA VAL$ ABS STEP mw IF y% LPRINT [J]USR RETURN © INPUT m[E] PRINT PAUSE BEEP CODE BEEP W1g[N]▞[Q] PRINT IN & LLIST sABS =_ COPY FORMAT R PRINT INT INVERSE _{O LLIST [@▝ACS BORDER [U]k IF OVER Z THEN SQR CLOSE #f▛W[T]W~ RETURN GO SUB ASN v/oSCREEN$ ▟▜[O][Q]STR$ ]$ PLOT :s NEW BRIGHT DRAW hR[J]*BIN ▛<> RESTORE MERGE 6[T]+ REM CODE LET THEN DEF FN 8'AT RESTORE ^pj MOVE ^ TO OUT ERASE INT I POKE v▜>=IACS A BORDER BEEP CIRCLE u[J]_] GO SUB STEP SGN 8[J] OUT p OR COS CLEAR 2% LPRINT ACS Q*IN VAL$ D> CAT PEEK "}FN IF t OUT LIST CONTINUE ©PI CLS INVERSE INT *PEEK R RANDOMIZE IN RANDOMIZE P=[S]CHR$ INK lINKEY$_ PRINT PI IF MOVE [N]} DRAW {s▞ INVERSE LET c['g[Q]5}M BRIGHT 8 NEXT OVER #^qn DRAW SQR [H].pW DEF FN OR [g RUN @ NEW ABS RESTORE RETURN |▛[B]$ NEXT W8J BORDER <= MERGE ^ INVERSE *SfUSR A CLOSE #[H][F]COS DEF FN _[Q]R<[M]( FOR SAVE AND MERGE LN CLEAR A FOR Z2/ DATA LOAD .qIN RESTORE / CIRCLE <>▟ OVER ▘ NEXT 3U IF FORMAT PRINT FLASH E]o RUN /▟ FLASH [TAB [L] CLOSE # DIM ~ATN CLS CLEAR FK RUN _N_ PLOT " DIM [~ MERGE W[R]EN[M]ATN [O]RNDjp LIST U*[M]/ DIM zFN PLOT <NOT LPRINT POKE * THEN FOR + OVER /vSCREEN$ /INKEY$ RETURN [F]f LINE LET FN BUSR NOT O=PEEK OUT "SQR [T] DIM LET FLASH BW DRAW ^| REM GO SUB f PLOT COPY PLOT INPUT kV[R] OUT COPY /[F]7J[S]CODE S IF [O]ASN NEW <PI▟ GO SUB [D] NEW BIN FORMAT *8 DRAW RETURN |k4FN MERGE f LPRINT MERGE ERASE ^[N]4 LLIST ▙j[Q]#@u FORMAT PEEK INT [L]PEEK PEEK z4SIN .▛. CLS SCREEN$ mQW^FN OPEN #<[U]e LIST PLOT Ck_tINT SQR INT OPEN #SQR DEF FN w CLS PAUSE {[STR$ DRAW n..LN NEXT NEW O RUN ▝<>VAL$ 1WABS % IF v▝ CLOSE #R NEXT [G];6 LIST .CODE SIN f INK ATN POKE BRIGHT RND FLASH XLN t OPEN # REM [M]IN P>^CHR$ IN FOR INT NEXT STEP ][L]:}▞Lw<K_D,[L] REM G FLASH CLOSE # OUT MERGE UEXP j}+J LET DEF FN /3 DIM SCREEN$ PRINT C FOR GO SUB S~NOT VAL PEEK < DATA E LPRINT c DIM MERGE DEF FN MERGE [M] LOAD COS J`STR$ RUN OVER ▗ATTR &[L]STR$ 5IN <=<VAL FOR S READ SQR PRINT !zSg BEEP RETURN PEEK G SAVE LEN i[S] MERGE VERIFY o PLOT ABS [R] SAVE LPRINT FORMAT MERGE LPRINT V LIST [I] CLEAR COPY @ OUT ZcSCREEN$ POKE x PRINT ▞ RETURN LLIST [K][K]CODE CONTINUE RND6q MOVE RUN INT OVER [D] STEP >ipaq1[T]INT OR [T][H]ATTR ▜W[M]▜SGN ▛ IF [R] NEXT LIST CIRCLE ~COS LEN POKE ABS ; RESTORE [K] PAUSE TAB [C]▜&ATTR NEXT CTAB STEP 6U INPUT !t MOVE o RUN veW[L]LEN PI▘ABS ][Q] PAUSE O GO SUB ;W PRINT G LPRINT gLEN vv BEEP V[K]ACS RETURN OUT BEEP trNOT #. DATA CLEAR / PAPER A© PRINT ]h COPY LOAD LINE #[K] SAVE =INT ATTR k LPRINT +ARND OUT >|u2 BEEP PAPER [S]/ OR t SAVE CONTINUE [F]|0 COPY S CLEAR ]Ut©wASN += PRINT RND STOP K)▙YASN SQR PRINT GO SUB POKE STEP [C][H][H]C[T]! RANDOMIZE REM Q<>yC OVER LPRINT [O]7j GO SUB [L]dLEN xATTR OUT RND_SIN USR STOP THEN QfSQR ~h~ INPUT gQV MERGE 7▜ CLOSE #ABS ATTR [C]i/ INVERSE RESTORE y OUT INVERSE +r AND SAVE K CAT z READ !z7@s PAUSE RUN p# BRIGHT ERASE SIN COS CAT H DRAW REM KAYw[P]gCQ_ CLS [F]ML PAPER @IN x OVER INT FN RETURN CLEAR G` ERASE JC OUT BEEP ATTR OUT [P][A]|& OVER CONTINUE IN OR INVERSE x@#VAL MERGE SAVE hIN PEEK FLASH OGDSCREEN$ CODE [T]SCREEN$ f BORDER FOR `NOT {EXP OUT LEN -tIN OVER :L`/ OUT G[R]#UFN |©~L CLS BORDER AATN [G]▟>L[O]VAL 8STR$ /D OUT DATA CLEAR ▝ CLEAR 8D[U] OUT OVER PAUSE CAT Z[G]NOT ySTR$ /} OUT PLOT q! RANDOMIZE uNs LINE OUT MERGE VERIFY OUT q CLOSE #_ COPY yo-A"a SAVE OR INKEY$INT ATN ' MOVE READ [H]kA▘ LINE FORMAT MERGE CHR$ INK LSGN S REM 0[ DRAW REM mU]f RETURN REM PAUSE PAUSE C RESTORE CLEAR D INPUT [I]_ REM _[P]g/ COPY [M] DRAW CLS PEEK Z OUT TAB IF IF MW OUT CLS STOP [M] FOR ▝ LPRINT GUB.OBJ C` FORMAT hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.HR[Q]I5 READ COPY > STEP Cr CLS v!]/6NOT CHR$ b COPY ,q3 FOR IN GO SUB g▝▘ AND CAT ▗> OUT _Ay NEXT GO SUB IF AND FN FOR EXP G▘▝[H]rBIN USR STR$ DATA REM CIRCLE AND ` CLEAR KAUSR REM CODE THEN REM WRNDUSR COPY RESTORE ▝VAL .STR$ N CLEAR NOT ▛BIN LOAD THEN ?#[P]USR STR$ MERGE LOAD Z{@ IF UzASN STR$ USR {<=STR$ ▚ IF REM RNDUSR STR$ USR 8 LET BRIGHT A CIRCLE REM ©oSTR$ r5<=CHR$ USR c DIM [H]IN ▝ MERGE ▛PEEK [N] FORMAT "/© CIRCLE ▙? DIM <=/▜▝▝▞ STOP ASN USR [R]y PRINT ? THEN GCODE VSTR$ USR <RND THEN _@STR$ ^ RETURN USR [K]B3)▝STR$ USR CODE [G]▝CHR$ STOP OR USR IN COPY A MERGE THEN IN TATTR ▝ LINE [J]STR$ USR [S] REM _ THEN USR ABS VAL$ ▗a POKE USR ▙wl[H] REM USR B/. THEN pEXP IN ACS >▗ COPY K4[A]{POINT F LINE USR ASN xSTR$ $INT |▘USR STR$ [T]>▜ THEN USR ` BRIGHT [H] READ : DEF FN LOAD THEN PAUSE OR TO _ CLEAR USR Z. CIRCLE PSGN >=▞[C] FOR VERIFY ▖[H] LIST ▚ FOR ▛© LOAD [A] NEXT REM STR$ ©R[G] AND yASN STR$ INPUT |)~STR$ CODE ~▚NOT PAUSE WBSTR$ Q MERGE J FLASH KCHR$ _ GO SUB ATN [H]k▖ STEP RUN REM F.^C BEEP PAPER NEW SCREEN$ OR ▞ATTR ©[K]q;J OR CODE STR$ USR PEEK IF +/H[C]F INPUT >=Ug▛8 OPEN #USR ABS ziATTR BEEP ▜E▜T▖ATTR ASN X OR POINT V▘ READ ?BIN [G]▗A LIST FOR NEXT 5v THEN ▖INKEY$~USR E OVER n RETURN [T]K& AND LASN D▜CW3IN NEW ▛USR ~[N]r LLIST CODE USR J^ BORDER >=ZTAB STR$ -ATTR ▗ NEXT O▘%BSIN Ax LIST &VAL <>[U]STR$ I[I]x AND BIN E COPY FOR LIST PAUSE OR STR$ VAL$ NEXT DEF FN dLUSR LINE TAB RNDCHR$ STR$ ▟x)STR$ C[H]?m©| BRIGHT K=▜BIN x4 OR ATN RNDHBIN READ .<= LPRINT RESTORE IN {r PRINT USR ▛[ CLEAR ▝EXP CLOSE #▟▗WKEBIN GO SUB THEN RABS <BIN x COPY 9 INPUT THEN RBUSR yfCHR$ ▙p&ABS ss_ DRAW [H]©[L]*▜ THEN IN IN DIM >=USR NEXT [P]STR$ ▙ CLS DRAW GCUSR 0K[M]v FLASH w LET IN /ABS INT xB>=CODE NEXT THEN ACS VSTR$ PEEK ▟j▚ LOAD PEEK " INVERSE LLIST OPEN #~LN xABS G IF VK▚[I]IN CODE USR CHR$ K&}:|? OVER 6q=z^ PLOT PRINT Fg:USR PRINT STOP STR$ w~LN INT / CLS IN CLS t©[.Cu BEEP INK A) COPY USR ^JIN USR PEEK FOR TAB USR 6SGN GO TO © NEXT FOR EXP TAB v[J] STOP OUT USR USR Z:© LOAD RNDCHR$ USR PRINT ^T RANDOMIZE } BRIGHT : INVERSE MOVE ASN ATTR ACS A RESTORE CODE SGN FN SAVE USR G LOAD COPY RUN 4ACS ▛USR N PRINT C`[C]@jAUSR CHR$ LPRINT [H]gIN _ CLEAR IN CONTINUE tASN ep[O] BRIGHT PEEK CLOSE #▟IN .AUSR / ERASE PRINT zTAN ▝ CAT :IN USR ACS PRINT fABv THEN ▟ IF Gp5USR E?/ RUN ATTR mG COPY DRAW ) RETURN USR ©] AND x INVERSE COPY pTAN AbBO NEXT 8; OVER LN h(©F DATA LN USR FOR STEP LN ?l RESTORE USR @p CAT STR$ < REM LLIST NOT <> PLOT g RETURN TAN LPRINT OUT r▝ MERGE ▟ FORMAT IN ABS STOP >hASN ▝▛ LPRINT x RANDOMIZE 8IN NSQR yGP LINE MOVE USR ▞ SAVE |IIN CHR$ BG FOR C&=[N]z VERIFY LLIST i<> OUT USR TAN [K][Q] OVER pNOT ASN [M]<=CHR$ OUT pBCHR$ /^CHR$ ▘;. RESTORE gINKEY$ATN POKE ` PLOT INKEY$ DEF FN CLOSE # RUN j{z▛}KSIN ©o▘ CLS PAUSE ▖ AND K RANDOMIZE USR _ IF ▚▝IN R OUT RUN COS THEN MOVE v▝ STOP ▜$STR$ © RANDOMIZE MERGE ATTR SQR USR ASN SGN [C]CODE ov};Az THEN NEXT SQR }<] RETURN BORDER I PRINT MDA< OVER [H]ATTR PRINT PAUSE STR$ wx▘{▞BIN USR COPY FOR MOVE SAVE ^IN USR ] INPUT M[G] FLASH >USR CODE CHR$ [H]rnSTR$ IN [N]>=©9ABS THEN STR$ LLIST ^▚ RETURN INVERSE B RANDOMIZE jL[R]^STR$ [Q] INPUT NEW CLOSE # READ [▜t[T] MERGE VAL @ CLEAR OR STR$ COPY READ J CLEAR MOVE a OR SQR x.:▗ RETURN NOT s THEN INVERSE STR$ IN ^ COPY CHR$ FOR POKE SGN PRINT INPUT [B] NEXT PAUSE Bf©7▘W/STR$ IN INK LPRINT FLASH u LLIST < OR BIN ▝ POKE OVER C>=~ RANDOMIZE STR$ NEXT f▛[L][H]vPI;IN STEP ▗ RANDOMIZE ATTR IN f~STR$ TO NEW RESTORE LN W LOAD ;STR$ IN INT PLOT WSTR$ WoJSTR$ CLS ▛>=ATTR 7z~ LLIST COPY ATN IF STR$ CLS 7>= CLEAR [L]▟ PAUSE STEP IN >CODE / DIM [E]L| LET CHR$ GSQR ? PAPER CLEAR STOP <> RANDOMIZE LET #_[S]q CLEAR IF ▚ INPUT MERGE MERGE OhHIN DRAW USR y2TAN RETURN ATTR COPY PEEK COPY IN RETURN [D]V,^IN /STR$ x6&0 RETURN GO SUB ABS USR STOP RESTORE ▝USR OPEN # CLS CHR$ KUSR y PRINT IN LET NOT UATTR ©<>© LET RETURN 85▝y[D] RANDOMIZE <G CLS [C]} RANDOMIZE [L] RANDOMIZE TAN _ COPY THEN IN PEEK ACS CLEAR MOVE k RUN OPEN #J CLS G} DRAW ▛/_PEEK IN } RANDOMIZE h RESTORE FLASH >IN ▝ PAUSE TAN USR RETURN RESTORE INPUT h PLOT OR IN RESTORE OABS [J]▝ POKE @PI▜ATTR !BIN au*~ NEW PLOT `w#xLEN POKE ;1 DRAW @ STEP z^j@ CLOSE #V~<rUSR #~ AND @ f BEEP |ASN PLOT CLS v*/ GO SUB [?$ATN R0 PAUSE CHR$ !q"]/© LET `Xa?6O[ NEW GO SUB VAL > RETURN 8[L]RNDSCREEN$ Y CIRCLE PEEK STEP O<=[F] INPUT NOT 2sqATN DIM w( INK : DRAW BRIGHT INK c: DRAW ATTR $ INVERSE !USR NEXT CLOSE #l[A] GO TO "w STEP POKE lS MERGE NEXT [O] PAUSE }*[F] NEW m STEP 0SQR P GO TO Pu,[I] BRIGHT AT is OPEN #[M] COPY u[D][L]@S FORMAT SCREEN$ ERASE T<© NEXT I COPY PRINT ©<> THEN |( INK READ n LLIST "Ar LLIST NOT LEN GO SUB s=g COPY 1_ PRINT OR MERGE RESTORE INVERSE VERIFY ACS CLEAR INK ?[L]*[C]#"7 GO TO N`USR © MERGE :/ LLIST MOVE STR$ `8 LET CLEAR m AND INVERSE |l1 CLS NOT RETURN DRAW OR CLEAR © GO SUB y2 RESTORE m OUT STR$ <> READ S STEP [N][N]ch/ PLOT W<>!/ COPY {} AND o"drBIN THEN EXP ??▜2 CAT /SCREEN$ iFIN FOR y DEF FN e ERASE [H]INT ▘ GO SUB :▙ COPY [H]_& STEP z| PLOT yJUSR IF FORMAT IF >=} VERIFY © CAT PI RESTORE MOVE OPEN # LINE 7<>ACS INK THEN DRAW _ THEN COS : LET v COPY SnUSR CLEAR k INVERSE &$ LLIST [P][P]O▗ NEW IN GVAL STOP INK ASN GO TO +; NEXT COPY CLEAR ] GO SUB s STOP v INK ! COPY COPY k$ RANDOMIZE %?CHR$ r1G BORDER <>Ny= CLS !w6> INPUT BEEP NEXT 2 RETURN v : INVERSE CAT "w2 INVERSE RANDOMIZE READ z▗^,VL/ CLEAR F RETURN x2Hy| LLIST NlEXP CLS CLEAR USR rUSR COPY [F] DRAW COPY INVERSE $ABS [A]<>CHR$ wyx LOAD >= READ D<>>?![E]V DIM h GO SUB VAL = SAVE <>Ew DRAW #{i RETURN "O?`USR CLOSE #$ COPY AND s,r bBIN { AND '"_8z VERIFY W GO SUB RESTORE <> RUN ` DEF FN LOAD IF $.` NEXT !| INVERSE CAT O<z CLEAR .©[T] OUT NEW LIST O INVERSE ~ LOAD LEN w$ OUT ); RESTORE PI DRAW <m% CLS COPY ,<= INVERSE # OVER THEN CLEAR - ACS VAL$ oQ@ GO SUB Czf NEXT MERGE c MOVE VAL COPY a PRINT <>.U)0p9 CLEAR <= POKE ▖ BEEP + OR uSCREEN$ FOR zDy[G]UATN CAT zw RESTORE 6 INVERSE COPY FOR RESTORE INPUT ~<SQR CLS 6▗C©[P]_~ SAVE LET }|{z} GO TO yxvutsqpomkjhfdb`^/ZXUSQNLIGDA?<9631.+(%"LEN CLEAR IF RUN POKE LIST GO SUB REM BORDER DATA LLIST OVER FLASH CIRCLE MERGE ERASE CAT STEP LINE <=BIN STR$ IN SGN EXP ATN TAN SIN CODE TAB ATTR FN INKEY$ OVER [U][S][Q][O][M][K][I][G][F][D][B][A]LEN ABS ATN BORDER COPY TO DRAW 7LN PRINT wS RUN GO TO -▝}[A][B][D][F][G][I][K][M][O][Q][S][U]INKEY$FN ATTR TAB CODE SIN TAN ATN EXP SGN IN STR$ BIN <= LINE STEP CAT ERASE MERGE CIRCLE FLASH OVER LLIST DATA BORDER REM GO SUB LIST POKE RUN LEN IF CLEAR "%(+.1369<?ADGILNQSUXZ/^`bdfhjkmopqstuvxyJf{|XUSR SAVE COPY D PLOT u COPY CODE COPY VAL COPY } GO TO FOR COPY OUT z INVERSE 198 POKE PAUSE 0INT RETURN 7ATN PRINT 6 PRINT PI/5VAL$ BEEP 4[P]ABS 3.y MERGE 2 LET , PAUSE .0[B] DRAW COPY .~[L]- CAT ,z MERGE +*S CAT )( CLEAR ([D]'& PLOT %[M] IF $ NEXT #"2 SAVE d REM ! 45n BRIGHT 6789g7:;=SQR <=>?AT g MOVE POKE COPY [K]INKEY$ RANDOMIZE PRINT ll LET !#$mx%& CAT [O]'(= FOR )*SCREEN$ W+,[O] PRINT -SCREEN$ ?./^ PRINT 0 MERGE ATTR 12kz3 NEXT 34]CODE 5fz6 NEW 6INT OVER 7 IF PLOT 8 RETURN POKE 9LN z DATA K RETURN IN do[L].?-%o RUN -H^ CLEAR <=,COS ^+U DEF FN * CLOSE # CONTINUE '&[B] TO SAVE %$ STOP #▚EXP !2 n DRAW 4567879:< VERIFY COS =>? CAT z DIM Y[L]INKEY$ CLEAR RANDOMIZE PRINT 6INKEY$ GO TO AND $%&[N] NEXT '*COS ^+ PRINT <=,-?[O]. PRINT SCREEN$ /0~[O]1 POKE *4~ RETURN SGN TAB K PRINT / MOVE RETURN THEN MERGE / MOVE RETURN LLIST 7INKEY$[B].[O]W NEW . IF COS -2<CODE MOVE P RETURN IN -,+[O] PRINT )([O][J]'&[P][K]%$ NEW #" PRINT ! 1N23 BORDER 5 AND 7689v READ :;<> CAT z? DIM Y NEW INKEY$ COPY CLS STEP PRINT !"& READ #$Y©' CAT DATA (< FOR +,Y©-INKEY$ NEW . CAT r STEP 2COS / NEXT LINE 5^ OR CAT [P]7[H] STOP [P] LPRINT [H] DIM 9 RETURN DIM RESTORE RETURN 6~.-z OVER CAT ERASE , LOAD , CAT 0g CLEAR FOR )(4='& PRINT %$Fj# SAVE "o[U]/1o DRAW 234567 PAUSE GO TO 8:;zv?% CAT ▟[O]© NEXT PRINT O! RESTORE #v CAT $%& CAT z'( CAT )g PRINT POKE SCREEN$ /01x RETURN OPEN #ATTR 4 PAUSE RANDOMIZE LET 3 RANDOMIZE p RETURN DEF FN [P]9Wo:ATN RND RETURN / CAT [M].FN NEW CAT [P] RETURN - DRAW Y,AT g+J RETURN PRINT +D SAVE © REM INK *)([G]SGN 4z%$#1 OPEN # LOAD "! NEW ▟!/0123456 INPUT INK 9:<=?Y CAT % FOR VERIFY ▖y AND ▟ ! PAUSE GO TO "#$WS NEXT '( PRINT AT )*+?[O], PRINT AT -./z^<=COS 2 MERGE NEXT r^ CAT FOR yV8SGN SAVE [H] RETURN FOR :^SCREEN$ STOP 9%#? FOR -[S][K] RETURN ,5© RETURN D RETURN + RESTORE K GO SUB +A}?▚ LET GO TO )(4 CLEAR ' CLEAR &%COS d TO BRIGHT " - RESTORE nH/01234678:g7<=5SQR ?i COPY ▖[I] CLS AND CLOSE # RANDOMIZE iJ RANDOMIZE $%<=COS PLOT &'([O] PRINT )<=COS *+, LET NEXT [T]W1u9. BORDER PRINT SGN NEW mSGN VAL$ W PRINT ABS [K] POKE RETURN NEXT ACS RETURN .LN ▗ RETURN NEXT ACS RETURN , DRAW ▞ RETURN + LET *y[F] LOAD * THEN FN L DIM MERGE ©(AT DIM & COPY &$ OPEN # POKE #" PRINT ! 11 GO TO -./012456 CAT PEEK 8:;zv=?F THEN COPY NEW CLS OPEN # OPEN # CLEAR DRAW [O]M DRAW !" RETURN [U]#$ CLS & VERIFY ATTR ()2z*+ FOR U.©</J5 RESTORE SGN [P]^5[ STEP STOP y= CAT 8y[ DRAW STOP zF DEF FN ATTR yS-3y, TO RANDOMIZE +s RETURN ?*# MERGE GO SUB )C/}%)= CLS '&i4% COPY $#"bINKEY$ RUN ! INPUT [I],-./01_e▟ AND ms9z PLOT ;=?s CAT ls COPY RANDOMIZE INVERSE SAVE {6 RETURN !"#$ VERIFY COS %&' CAT z()[O]%*<>ATTR -.WRNDSCREEN$ [G][T] MERGE NEXT ABS -[H] BORDER m7 RETURN KLN RETURN FLASH NEW / CAT RETURN AT -[H]r OVER 6+CODE F RETURN *3# RETURN )1o<>y[G]-a REM POKE VERIFY COS $#nz" RUN *dn REM ,SvCODE W]3_ IF m INVERSE 8}:<>{ OPEN # COPY / LET STEP ABS AT COS [F] [D] MOVE "# CAT COS &'[C]QTAB $ CAT .LN bPIPIWRND3[F] LET 9 STOP [L] BORDER m DEF FN ▖ BORDER U RETURN TO :zs;KLN RETURN LN ▗ RETURN PAUSE ACS RETURN , PAUSE g+sf*g2)(U PAUSE FOR (COS DATA LET '[A]<>, RANDOMIZE '&?INKEY$ BRIGHT GO TO %$"INKEY$ MOVE COPY ! INPUT PLOT )QSX^W=246<>FN INK OVER GO TO [P]X GO TO [O] INVERSE RESTORE GO TO !"$%COS [O]&'Y OPEN #() COPY *+[U] NEW ,F_POINT PI[O][J]1 CAT r294< THEN 7ATN RESTORE ACS [K] OR NEXT [B] LPRINT RETURN 3[P]. TO RANDOMIZE -s RETURN [M]?,^% RETURN [J]* RETURN )NOT SAVE PAUSE j(2 PAUSE g'Wi GO SUB '& NEXT &U[C] RUN &<=x[O] CLEAR $ STEP ▟"!& PLOT :2OM* COPY LOAD Q/1379;> CAT z[L]b COPY INK POINT CIRCLE SAVE ?n VERIFY Y CAT !"< FOR $%&[C] LPRINT LEN ATTR PEEK CODE F OPEN #- PLOT ./Y2U READ 23COS DATA PLOT STEP 5[L]5CODE [M]W DEF FN ATTR BORDER UZSCREEN$ NEXT ACS CHR$ OR RETURN %/ RETURN [J]^+ATN © NEW )d" RETURN ( PAUSE j RETURN '1 INVERSE ] DIM & ERASE + LET %1H PLOT $©L DIM INK "! FOR FN CLEAR K' THEN KCOS *,-368;>z VERIFY <> COPY ©PEEK COPY [E]gE INK [S]< FOR !"$[A]dCOS STOP LEN [D]i* CLEAR + READ <>ATTR .[K]g1 READ CAT 3<>+[K]Wx FLASH 7SGN STEP ATN MERGE ACS [K][J] NEXT ; RESTORE DRAW z^ CAT COS - DRAW ,ATN MERGE ?[D]* RANDOMIZE COS 6)&3('© INVERSE m&1H CONTINUE %$ INPUT $g<> PRINT #SIN )(" CLEAR <=![K][O] COPY WPEEK G&vE(*0257:Y CAT == FOR COPY e FOR FORMAT BEEP fF FOR INK ![B]<" RESTORE INKEY$& COPY ()ABS TAB L LOAD ATTR © PLOT /0CODE 2[O]%ABS J4 DEF FN 06 BORDER Y89#[M]WKLN RETURN m RANDOMIZE BORDER [H]SGN r^Y2▟ DATA )'2( RETURN '© PLOT 3&{u2%10+M$ CONTINUE $# LOAD #FCHR$ PRINT "I RANDOMIZE !a< CLS PRINT JEC[I]]A INVERSE [A]&(*,.147:=[O]SIN [O][H]]x CLEAR /CODE LET b RETURN ASN [T]CODE COS LEN c/CODE Z/TAB , AND ABS -.<K1▟SQR RND<>03[C]g5WCODE 7)w[J]SGN SGN 9 OVER f^s;7^▝<CODE STOP [=ATTR yoJ^0ABS (ABS PAPER '5 INK [P]4&3% INVERSE ▚$1, STEP NEW "W PAUSE - INPUT ![U][E] RUN X1 AND TPLc RETURN D1s@ CLS SGN !"$%'*,/26?9=COS COPY EXP MOVE ? RANDOMIZE POINT RANDOMIZE REM INKEY$[Q]>=USR SGN LINE ?ASN VAL [I]TAT DIM [Q] INPUT PAPER CLS *+ATTR NOT OVER POINT LET g0 LET PI2U[H][T] INVERSE MERGE [R] FLASH R[P] GO TO PAPER 8[H]O©95 BORDER : LPRINT INVERSE ▛ RETURN CHR$ [H] RETURN BORDER Y. THEN ATTR CAT COS [M]m<>*6 READ [B] LET RETURN COS ?&4%0 CLS 3$POINT INK #1"[O]RND! GO SUB J1+db/[J] RANDOMIZE G RETURN c+1:rASN 9Cb3#%'*-?0<4:845;▖ MERGE <? LIST CLOSE # CAT ERASE [O]% RETURN #Wd# RANDOMIZE AND SCREEN$ :[J]ATTR )[M][I],KF7zPI OPEN #[Q]RND4[B] CAT [C][P]578K>= RETURN EXP ▗ RETURN NEXT ACS ;K OPEN # RETURN <[H] DRAW DRAW , BEEP MERGE CODE [C][P]5([P]<>' CLEAR INK 6& INK [P]5%4$ GO SUB CLEAR 3#2" READ 0]& DATA n[B]f NEXT INK ATTR 'VSGE PLOT INT z COPY 1* "$(>b6+93 LLIST 7 FOR INK CLS 2-/d RESTORE LOAD BEEP S BRIGHT #=[U]g#_LEN CODE #-'VAL$ {[S])*[U]POINT [G][C]7 NEW POINT 0INKEY$?1%oRNDNOT >=[T]2L6 DATA U FLASH INKEY$9[S] THEN [D] LLIST SGN RETURN [L] THEN <5oCOS zW CAT -r^ AND FLASH [C]W%CODE 4[O]&% CAT RETURN 5$? LOAD 4#3"SGN ABS 2!1 B[H]2Rj GO TO W PAUSE V#)▗C CLS BEEP =!!>%; RANDOMIZE IF TAN ,5126[T]g1r2H LLIST 8;>"$%&(INT SGN PEEK &# LIST POINT PRINT NEXT [S]*#+",g POKE [A]▖+PI LET VERIFY 3 INPUT RND5 STOP -[T][R].CODE PLOT J[N]9&©:9©SGN SGN ; THEN LLIST RETURN oo/=^ RESTORE ACS z[J] NEXT ) MERGE DRAW [J]^'4[O]&% CAT RETURN 6$m GO TO 5#"4INKEY$ FLASH %2Azvt BORDER +M FOR LET uTAB X$/>=L COS COPY /:VAL$ 7!PEEK 4*0.#yLEN :( NEXT GO TO V60?ABS >7# RETURN $()[▟*BIN AT iW[T]POINT &EXP k[S])▘7PIRND▚ LPRINT PI▚n LOAD PIATN CLS RND5 OPEN #[P]RND7ATTR 8 DRAW INK 9d CLOSE #[P]EXP ;[ CAT <>omf. THEN BORDER 9CODE [F]g*INKEY$ NEW ?[%CODE 4[O]%$ IF OPEN #X6"ATN a!4)n%| ERASE +z0t.i RESTORE REM K' AND OE#!l[E],q=6z= TO .&*+ INK ▟IN 9$POINT COPY PEEK $2(6)=+ RESTORE lJLEN TAB POINT +^!RND% RETURN [R][T] STOP RNDINT [F] SAVE %RND06 COPY iSQR PIRND[INKEY$FN 7 GO TO [F][R]9D RETURN RETURN :g DEF FN ;T NEXT y[ RETURN <O SAVE RETURN =ATTR BORDER CODE <-[> STEP y)K^CODE <'<=Q© PLOT 8$i" READ ▚!5 [S]▘~^ RANDOMIZE |1&3v/O DIM [G] GO TO &$!VAL$ BIN }[N]?8].&"3 /INT 5U!7 ! OR INVERSE 0,5 BRIGHT SAVE 81?23 CONTINUE J-[G]b MERGE POINT BORDER ![I]SQR [R]PEEK MERGE )[P],▟ GO SUB [T] GO SUB VERIFY RND1hPI~| PAUSE PI6ACS CIRCLE RNDm[T]9 LIST ,:q THEN [J] NEXT PI;LN VERIFY <g>▟=W NEXT [G] THEN ^y,COS x NEXT LINE *^ OR ?k&[K]ABS j#?[D]"7: 6 INVERSE [C]▗ NEW ASN '3~1 DIM INT v/ VERIFY PI RESTORE REM '% RANDOMIZE IN D ▚->INT RETURN 73("LN [C]36 REM INK COPY FOR #*"0(1357q54RND-BIN 'TAB q[L]*TAB [Q][N]^I[R] PAUSE &d<▗3#4"N5|z INPUT 8&©9l MERGE ?k[P];COS [O]<ATTR RANDOMIZE DRAW ▞ RETURN = LLIST MERGE RETURN CAT ATTR .># LET 9o STEP ATTR ) CAT RCODE &% CAT L$ SAVE s#"8!-NOT ATN E-▖5 INPUT ERASE ▘ OPEN #_S10/ STOP ▖[J]*SH&$! PLOT > SAVE {5+$SQR (4AT gH PLOT $+ABS 7COS (▜5z VERIFY >1SIN [E][P]5& LET TAB DATA [H], OR / FOR B) INK ▗[F]o3~▚ GO TO |z CLEAR 1x[K]n8RNDASN SGN a[T]LN TAN ; VERIFY K RETURN READ =5©-© FOR U-?oo[L]*U< DRAW DIM '[O] MERGE =K%#=3"! OR [J] 8▖6[H]PEEK ▗ RESTORE j▗3X IF 10/ READ OVER ▖%# ?>©/=<3M IF -?INT AT g1c LET PLOT 59g INK <3= INPUT y[T] FORMAT <: BORDER INT ##6%[B] FOR Z*[B]->P▙*1)2[INT ~4{ RESTORE |J_zxt[P][E]tINT B THEN RND[J]F; CLOSE #SCREEN$ [N]=CODE ck=[B]g DRAW >[O] LET Y. OVER NEW , NEW p) CAT FOR yV& LET ,$[G] DRAW #y!IN % PAUSE m7▖VAL$ INT OPEN #Z▚2| COPY DIM 0/'%/[L]"*=67/3<04[T]1)Q PAPER u7 STEP F CAT ( NEW 37< COPY RANDOMIZE )0< TO BORDER >=[I]iBIN <[D][R]%8'6*4,2-0/.v CAT 1 FLASH LET z(5{ LLIST xVAL$ CODE v8t AND Ft:qvRND▞ RETURN <INKEY$[O][P]WACS ( RETURN >V NEXT RETURN ABS VAL$ [O]?* PRINT *'2^ STOP U CAT L_# ERASE F"! :[A]zU[A]F OUT [A] VERIFY /4▙( PLOT 4321/-,*'$>R OPEN # INVERSE LLIST [T] RANDOMIZE 3+-F#z RANDOMIZE &+ RANDOMIZE 8 INVERSE 5.[D]LN A NEXT RESTORE ▜4#&bINT !ATN 6USR ▝:* DRAW SAVE {-3/102.ATN x5Mo*v7&ATN zt# LLIST rr INK [O]mp;INT ?<dSGN REM O RETURN = PRINT SGN [_CODE COPY y SAVE COS ?SGN ▟o VERIFY COPY RETURN x) CAT [P](z%[C]1yUo%#[A][R][A][C] RUN ACS [A] VERIFY /[C][C]# VERIFY [C]540.,▗4EXP (<> RANDOMIZE STEP _2($? PAUSE 8V&[STR$ 0 STEP SIN CONTINUE <▚<=$ OR s)48"?> THEN LIST DATA %(?*<,:.70▛v CAT 3n4/-{ CLS t7 OPEN #7ppPEEK pr? READ p<,[T]AT INKEY$RND=s<>[R] AND ATTR > GO SUB ©?POINT ATN .~WABS +IN [K]x'[P] RETURN &U STEP = FOR #"=3! B3[C][C] LINE ;[E][G]LN REM [K]o DRAW [K]76 DRAW 321/POINT <+ RANDOMIZE IN W4%.!&" PRINT *jABS COPY ICODE o BORDER ?<=* POKE A!f ERASE 5,$!s5% RUN (+ COPY OPEN #/<192634 CLS 0 LIST V PRINT LLIST FLASH h*9jy{p LINE PRINT ppyvn=kdRND THEN ATTR > LET 3[L] RETURN D RETURN ?UZ▛ NEW ^W OR ATTR ) MERGE |%U STOP 5#COS DATA POKE <= TAN b[C]W_[E][I] PLOT INKEY$[K]SGN /[M]INKEY$98 RETURN o76542<[I]TAN POINT /?;*&▟ DATA " INK 40 c▙ PRINT | RANDOMIZE >=^C LLIST 1N<% THEN 0X RANDOMIZE -% MOVE PAPER &*,/0?2=4:5 PRINT 673ATN DEF FN ^[T];^dCODE SGN j PAUSE PIn RANDOMIZE IF p RETURN 4n>LEN DRAW RND3k?[J] FLASH < TO CODE SQR -W? MERGE ▛COS ^' PRINT <=&%k^AT W"![O] PRINT MOVE h[E][G] GO SUB PEEK [K]LN INPUT FN , BEEP VAL 49nSGN 57?6: RANDOMIZE [P]M21,.%+ ( OR K27SIN , LPRINT &▜/|_ OR DATA 2<> GO SUB 4&wJ,STR$ oL INPUT % FORMAT +. NEW PAUSE LN 6=X& LLIST < INVERSE 59 RANDOMIZE 1 NEXT VERIFY /^Zb BORDER DIM f PRINT MERGE jlRND SAVE lj RETURN AT ? INK X[T][B] RESTORE [N]|^~5 RETURN OVER RETURN .~uABS +ABS REM *[H]W)IN Dcz[G]#"YCODE !< FOR + LIST [G][I]ATN ~[O][O] STEP INKEY$q READ <; CIRCLE LN :=9<>INT 87LN d PLOT ,4%22[N]29" |!k_ RETURN {M PLOT 0 INK DRAW COPY ,4p LIST ~p"8.,&/©TAN MERGE 678 BEEP 9? VERIFY [Q] LET ;74 INPUT >=1TAB [L] LET V+IN LET b?/hjCOS lj MERGE CAT d OR RETURN g[J][F] RESTORE [B]_^ NEW ▛V RETURN x' MERGE ATTR &% CAT z$ DIM U#"! CONTINUE K CAT [G]h4[K][Q]SCREEN$ INVERSE HSIN SGN ", AND INP( TO %986^1 ,USR RUN ^ BEEP ©FCOS RANDOMIZE ($<,G9?8184.t%6 INVERSE c!@VAL SIN L READ ?zvCOS >742|50 VERIFY oNVh CLEAR `h SAVE LLIST jxRNDljX<>POINT ]RND RANDOMIZE READ a}[N]3+5[D][G][K]RND1[Q]SCREEN$ TAN AT g3 VERIFY COS =8[D]z4/INT STOP ERASE PAPER &59 AND 1▙ PAPER ▘ LINE qj RETURN BRIGHT 0O OVER ▘> BRIGHT BIN w BRIGHT 5 AND ▙[K] OVER 5[O] BRIGHT INKEY$[O]?<BIN 7R CAT 52 PAPER STEP CLOSE #LZ-^`h PAUSE _ja LET h`9 INK L= FOR AT gn POKE RESTORE I:>,/(% STOP VAL %| CLEAR 9 ▜ COPY (<!|©L[D] BEEP 04BCHR$ ,& DEF FN 8PI FOR .&<>POINT VERIFY STOP INK ▞ READ ? CLS 97 INVERSE CONTINUE 420.COS [O],+z VERIFY )(&%F CAT $#da READ MERGE 'z5[K][I] VERIFY ATTR [G]! CAT z zv AND INT ! PRINT GO TO 7k:N MOVE ILEN [Q]=v:7/,%9 ^ CLS |L/OX3▛TAB POKE DRAW 0 LIST 9[C]4<gp GO TO /.& AND STEP ? LLIST <97n,SIN 10-F CAT ,+ PRINT GO TO )(&%[O]$#R CLEAR lj[R] LLIST jhW CLEAR STR$ b▚*AT ABS ▟SCREEN$ W*[S]ATN MOVE [Q] THEN [P]zU[G]!Y CAT CAT INPUT CAT F= FOR ▟[H]PZ0 CLS ▖/<=?:72,% [C] DRAW (73 RANDOMIZE CIRCLE FOR 4 SAVE ▝<=J[N]D PAUSE 4 POKE CODE ▜ COPY 3COS NEXT $ INPUT FORMAT EXP RANDOMIZE = LET ▞ LLIST < OPEN #541▞VAL -,<=COS *(g RUN &%?[T]$#TAN Tlj)~j OPEN #w`CODE IF VU CAT FOR PLOT SIN - MOVE CAT RETURN LIST ATTR DRAW 1 RETURN LLIST ' LPRINT MOVE [I][G][O]▟ RETURN ![T]? zu7 OUT COS Y4 bf CLS H NEXT V50*&$+"[H]4 *ABS LIST LIST SGN TAN cSTR$ THEN DRAW ~# DIM <5-+%$ESQR CLEAR PRINT IF ATTR ^=ATTR PRINT CLEAR T READ STEP .-+ READ [O]*('zu&$" LET 3 CAT nATN >j^ GO SUB h PRINT #dABS xz][G] OPEN # GO SUB *oBIN [Q] THEN BEEP [O]STR$ STR$ [G][E] CAT [A] GO TO F g RUN [P]SGN 8? RANDOMIZE ?<24.&y CLS %"*2[I] BEEP SAVE ECODE 3_9▛ RUN ,©? NEW L FOR $Q LOAD 2Z/ CAT %i>= CAT PIO LET IN RESTORE 920 FOR INT .,ABS [A] FOR *([R][O] INVERSE $#[U]x"pn FOR THEN lCODE CAT j| OR VAL$ ?bUSR SGN c REM PLOT , FOR IF + DATA CAT LET <= READ '[S][M][E]#l▗[C][A] g RUN THEN LN SGN EXP 7/ CAT o NEXT IF o[J]>;72$( IF <>©7 NEXT 5,PEEK SCREEN$ x GO SUB >&)zp"7[J] PLOT DATA LET 9? OPEN # MERGE RND:PI5▟ COPY 21/-+CODE * OR SQR q&%$# PRINT <"<3pVAL$ OUT l READ Y© IF ?]CODE SAVE y[H]SIN .-©^ DIM FOR )= READ PRINT g%K^ CIRCLE USR [A][A]^ INVERSE | READ =iQ/ PRINT FOR e CLEAR ©>:# RESTORE IF <=,31+< STEP #+CODE COPY ▜_3[H])ryAT < INVERSE , LLIST z#BIN FOR :793L COPY 10+ SAVE *(PEEK n'& POKE BORDER ATN #"&m!pW_p+ OPEN #n DRAW VERIFY COS xh LET <= IF [P]u CLOSE # FOR PRINT IN ?zINKEY$ LET RUN B RETURN [K][D]W'▖?[C]TAN PEEK [A]ACS ?[A] ▟{COS LET DRAW FF PAUSE y[E]z LOAD Z[U] DIM READ [M]V-=) DRAW CIRCLE 75<3 LPRINT INT '4JINT TO LLIST CLEAR e[A]<oCHR$ NOT / NEXT <50 VERIFY "<:8IN OR PLOT RND0INT PRINT .-RND_INT (&%I INVERSE # FORMAT [R]xtp[IN p^ LET nSGN JM OUT fCOS /SGN STEP [C]USR ^ POKE RETURN y[SCREEN$ 1 PAUSE BORDER CONTINUE )CODE VAL$ & LOAD " RETURN TAB [A]▙ CIRCLE [P] OUT VAL RETURN ▙@<>e RUN GO SUB VERIFY 8 RANDOMIZE REM $EXP EXP LET +?1>6<=4©%?",VcINT 1F)INT ZSIN (5<, READ LET 94[L] INPUT <6 FORMAT +ATN n(<$ FOR ©6320/USR NEXT ▟,*)%$#"!u RANDOMIZE SGN BCHR$ t▜ LOAD p[F] LET DRAW DIM W LET NEXT PI FOR VERIFY RANDOMIZE OPEN # MERGE THEN mxVAL$ REM BORDER PAUSE 2[Q]3 PRINT STOP (ABS [G] PAPER THEN [C] PAUSE gS IF ▙ CLS LET ▟ CLOSE #INT USR ZABVAL 8[J]gS PAPER BORDER 5 OUT MERGE %EXP .COS [O]26▟ ERASE <#m PLOT 4F POKE PLOT $ FOR LLIST +-27La[ INK ©6 THEN REM 2.▜Z%[J] BEEP [C]310.-,*)RNDo DRAW '$#"[D]!xPEEK IF PAUSE REM t NEW Y^ATN [I]z▞© RETURN ABS [C]? CAT FLASH STEP DATA PAUSE + CLOSE #SGN c DIM )W DEF FN 7[T][E] RUN PAPER [A]▙ IF "▚▞▖ ▚ OUT SAVE OR VERIFY [N]AT #W*- LPRINT 4 LET 27 LET <VAL$ PI PRINT PLOT C,.6 CAT z,Y$*- OUT 156<TAB d RESTORE 2 PRINT *[J]#VASN $vRND-,*)('&% AND TABS RND"ATN BRIGHT !z~ FOR xTAB .t LINE k POKE pASN |jPIW OR NEXT [^ STOP OUT ▟ SAVE RESTORE BEEP RETURN i[M] RETURN GO SUB *f REM READ (/[T]kCODE OR LPRINT ▛A▖▚▗ CAT ▖ BORDER OPEN #M RETURN !$S*▞{I3IN e7<",TAN z VERIFY CODE FORMAT 2©SIN STEP (,0 AND [1<><=73./ THEN *<=: THEN /!RND5ATN ,PI NEXT EXP PI' RANDOMIZE M CAT %POINT # CLEAR | POKE [|x LET ▜POINT i[A] RETURN LOAD DRAW NEXT j[O] MERGE ATN z DRAW LEN X~ PRINT m& DRAW -POINT BORDER #[O] LET + RETURN BORDER )<>D RETURN 1U3k REM LLIST ▚▗ RETURN L▘ THEN THEN 4 LIST a▟ COPY "INKEY$ AND %(+ CLS /2 THEN 5!>[L] DATA !<cX+I9[I]e!O MERGE )+bY>r5▞c2/ATTR e+(% PRINT PI+*)AT PAUSE & RETURN F CONTINUE VERIFY #"! OPEN #FN RESTORE [F] STOP rEyp RETURN ATTR sUSR RANDOMIZE OPEN #CODE STOP ?©z[H]&/[O][H]?▚ RETURN PRINT ,.[M] RETURN L DEF FN [M] READ )Od RETURN L DATA RETURN ABS ▖ LIST MERGE ▗ LET ▖~ AND f5 CLS ) COPY SIN INPUT Y#%(+[I]5.bRND16 IF 9 DATA NEW !PEEK */▟4:e THEN c["[U] GO TO ACS BRIGHT FORMAT MOVE [D]< STOP )9*1;1(%#qSIN ([U] INK PAPER SAVE %$#"5 IF RND REM +▗▘[P] RANDOMIZE ~ PRINT PAPER ?%CODE W[O]VAL$ [K]]VAL$ d SAVE y PRINT INT / RESTORE REM ABS INKEY$3 OVER dBIN wRNDASN ?[C]' RETURN LPRINT [^▖{ DIM ▗b[I]▘©[K]4z©Bo|>,0!V CAT #%= FOR #*.b CLEAR 248<OINKEY$ COPY 1;_{>= OPEN #<%8&4(S{ PLOT %#!| READ '&%$ LET bTAB "s[U]PEEK [D]▗[G]o|5 SAVE xo^ RANDOMIZE cp RETURN AT xK LET ?o LPRINT [H] RETURN [R][H] RETURN [Q][K] LET , RETURN 2>= NEW * RETURN LPRINT ) PAUSE g& RETURN IF f DATA ^▘~v7>= l. VERIFY `=!#▞g%(C FLASH COPY -036 :"<l+3[K] TO LLIST 7 ERASE IF GO SUB -cCHR$ STOP POKE <c} BRIGHT 6#3$0)= CLS #!4 AND $COS PAPER LN LEN "![F]BIN PI[A]ABS ▙[T]i/[N]▗PI!CHR$ © PLOT ATN CODE ^%[G]jx OVER CAT COS DATA [B] CAT COPY . LPRINT [C] RETURN PAUSE <= FOR +CODE R^%i[I][I]▚©n$vCOS pn, INK + PLOT g=! PRINT AT #%(* GO TO [D]-/ 1 INK 57%:'= BEEP ?048 *ATTR TO NEXT [P]l?=:7>= LIST 5 CLOSE #/"-#S{ PLOT ! PAPER COS "![F] SAVE ATTR [I]} GO SUB RNDf READ [A]^ GO TO ~ CAT RETURN CAT DATA FN NEW NEXT INT RETURN <>[F]^LN SAVE r DRAW LET DRAW [O]A RETURN RUN -pINKEY$ GO TO , RETURN [S]TAN W RETURN AND FLASH ^Mx[J]1CODE LET ,hJjfd-BIN ?[O] NEW !I TO SGN E( ) CLS ,nH."1$3%6'8*:,</?269FATN OVER READ ?zs:[K]i CONTINUE 86 CONTINUE 31 REM .,[C]>= RANDOMIZE <= POKE AT ASN 1 AND [U][Q] CLS [K][K][G] PRINT gzIN RETURN 4FB RETURN SGN J<>[F][D]o THEN [< REM OR Z%PEEK BORDER RESTORE z& SAVE .CHR$ % RETURN RETURN DATA [G] RETURN ©& LPRINT * POKE j(LNOT SCREEN$ 1 RUN $ CAT ABS n} GO SUB "C LINE b!/<=TPL▟ RANDOMIZE D@>=STR$ '")+$2`BIN /&1(3*6,7.:1<4=?zVY CAT O/<: BORDER 76 OPEN # OPEN #31 NEW /-+ BORDER )LA'USR SGN ASN [E]©VAL $RNDAT FN [U]ub[O]xyc^[P]j PLOT g©[B]i RETURN [C]W9CODE [O]WSGN TAB © PRINT z) RETURN [I] NEXT - CLOSE #Jn>= DATA STOP +<K RETURN z[F]xf INPUT [J]$v CAT #PEEK z1[C]ZV LET ,P! LOAD ,D$&(%`*`fH02g PLOT 4-679▜5:<COS [O]={ VERIFY FLASH POKE :64O. DATA ,*>= AND (&$SCOS z PLOT AND ABS [S] PRINT GO TO Lx[A] REM RETURN d" RETURN READ O RETURN NEXT 6 OVER V THEN 3 CAT READ ySIN x0G/ RETURN PAUSE *%/ RETURN [J]^H[O] BORDER STEP ▗▟WATTR WWINT C LPRINT & NEXT lfAT g[O] PRINT OR COS MOVE VAL$ "'&; CLS (')+ RETURN LIST -*.,02/315u,6AT NOT ;9>zV~<>653i[K] STOP 20 RESTORE .-[A] RANDOMIZE RESTORE +)(&ASN COS [I]BLEN COS COPY USR THEN PISQR THEN [T] MERGE =1 INPUT ERASE ▚ PLOT ACS 8© CAT r RETURN R< LOAD m LET ( BORDER FORMAT K RETURN RETURN DEF FN PLOT . RETURN INPUT -<= LPRINT RETURN NEW ,[L] LET ATTR y3y▚W<>L[T] CAT CAT ASN MOVE %[O] RESTORE ERASE COS 3G&" PLOT #02( FOR SAVE )*?B/<=01324H7 CLEAR ;zv>s CAT 5[K]- COPY MERGE 1 IF STR$ USR -,* AND LET >=&%ASN CODE #LEN !INKEY$ DATA TAN GO TO ?STR$ LIST REM INK 2ABS PLOT fVATN L[T] DRAW ▞ RETURN ATTR [E]m<> POKE VAL$ NEW LLIST RETURN RETURN ABS LINE PRINT j[M]W DEF FN ATTR BORDER U NEXT , LLIST ZPIWCODE PLOT ) CLEAR LET CONTINUE INK 'w INVERSE & VERIFY COS ^hR COPY READ MERGE "B$,-qVAL >0.2|x41683:=<> CONTINUE VERIFY 5 SAVE A TO 321- ERASE 4 LLIST ,* LLIST )(LEN 2NLEN #"[F] PRINT TAB ?wSCREEN$ STR$ ATTR THEN [R]e= LET l[J] DRAW e DRAW ^ OR ▛>=D RETURN PAUSE ACS RETURN NEXT g DRAW [J]/ RESTORE LOAD [B] CAT FLASH OVER FLASH j[ STEP SCREEN$ y[F]SGN ©zg5 CAT [C]AT Wd POKE PAUSE GO TO O'SQR IF I RESTORE YRn CONTINUE ?"*$[D]m REM %&, CAT GO TO -/*013. READ e568C/ CLS zv>2L THEN COPY BIN /.-,*)CODE CODE INT SQR [B]CODE "! #={PIVAL$ ©[S]▛[R][M]3 NEW [N]▟Q RUN COS W39 REM USR [K]ABS <> FLASH [H]p RETURN z RETURN PAUSE RETURN .▜ RETURN RETURN ^ RESTORE U3 BORDER -,y DRAW LET x[G]I RETURN DIM * READ [J] THEN RANDOMIZE Q ERASE U^M2 COPY i RUN FOR ASN INPUT "#,.sRND'/ CLEAR 0[B]M. STOP 46TAB PI79 RETURN ;=0?zACS AND [I]▞-[J][F] RANDOMIZE ATTR %ATN [R]TAB "gwATTR INT [C] STOP %FN OR e COPY [J][I]^ RUN 2 RETURN d RETURN INPUT OVER 6[H]r PAUSE U/ATTR yd LET INKEY$0ACS x POKE /U NEXT SCREEN$ y BORDER U POKE *I RETURN DIM OWZSQCOS PEEK Oz MERGE THEN h COPY INKEY$EXP PRINT FOR ] GO TO !7. OPEN # CAT 0'1(2 SAVE 46M5 CLEAR 68 DRAW :;by= GO SUB Z▝©ABS GO TO ▛ LLIST ATN [B][L] LET [P]RNDo{POINT LLIST RNDATTR TAB ▟wATTR ,CODE NEW PAUSE RNDxe/ COPY cL[N] COPY 1 IF c[A] RETURN PRINT <> RANDOMIZE POINT [O] GO TO [H]p RANDOMIZE RETURN ^SCREEN$ NEXT OVER [G] RETURN ID/ RETURN rLN RETURN 9LN e BORDER uSGN .K LET CONTINUE +©<ATTR 5y VERIFY W{K▟INKEY$ CLEAR m4 NEXT -w#©]/11&2'3INKEY$ DIM (4)6 RUN 78 PLOT :<m[K] RANDOMIZE =? PLOT INT OVER ▛+CODE [B][F] POKE LINE [L][R]+ OUT RND{NOT PI BRIGHT VAL$ POINT POINT ! sgrPICODE LINE RND COPY dCODE RETURN CLEAR RND RETURN RETURN [K]? CAT [Q] RETURN RESTORE .G RETURN LN RETURN _ RETURN PAUSE SCREEN$ DATA FORMAT [S] NEXT <= LIST /^ OR FOR r[ DEF FN ^ PRINT ],~^ PRINT VERIFY COS yyd4G RANDOMIZE e[K] LOAD NEW ▖ MERGE 5~V0#1$2%3&4'5(6 CAT <= FORMAT [D]TAB INVERSE [B]] BORDER [F] INK [[P][R][H] INVERSE RND POKE VPI]POINT uWnBIN RND SAVE 2S[U]© RETURN STOP g MERGE <> BORDER RETURN j LOAD RETURN R= NEW POKE <> FLASH OX▛TAB BORDER ml~ THEN BORDER *▜ RETURN [K] LET REM / NEXT INT ^ MERGE CAT [P] CAT ERASE THEN QABS WyK$[T]LEN THEN PRINT ? LET ▚ REM /0 sABS !1"2y READ -4%56&7' PRINT AT :;<AT q?[R][F][J][H]-SQR [J]EXP DATA [N]M.[R]RND LET BORDER RND#"!qATN NOT VAL$ PI[O]%[F][[P][J] STOP VERIFY ATN z OR [F]&[H][O]? PRINT BIN RETURN [P]z RETURN z9 RETURN PAUSE RETURN SCREEN$ ▜ RETURN DRAW SGN =/ RETURN DIM U LET DRAW [H]gyRNDYINKEY$ COPY INK ] COPY G[T] DIM LIST PIM NEW 01 READ ▟!23"4#Wc$56 BRIGHT #9:';COS d THEN ?[N][H] DEF FN [L]VAL$ m[P][T]PI.LN RNDPI CLS nRNDCODE = NEXT ?v[N]5 CLOSE #^POINT MERGE 3 NEXT ' COPY r LET K POKE RETURN PRINT f DATA MERGE CODE z[O]SGN SGN 2 PRINT NEW / MERGE SGN < THEN PRINT SCREEN$ ?[O]]POINT /▚G]LN LA GO SUB MERGE [P]1[P] CAT 52 3▟ OUT !4"5#6 READ AND 7$89%:zv<&=>? FLASH ACS g[F][T]VX[P] FLASH OPEN #>=[T] BRIGHT = PRINT PIp5VVAL$ GO SUB [T]7ACS [R]} THEN LINE [A] RETURN LET TAB f<> RETURN BORDER MERGE DEF FN FLASH PAUSE RU NEXT y LIST ADS.OBJ C`[Q][Q]hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.HR[Q]@▞ COPY NOT [G]`v*/ GO SUB [ DRAW ATN R0 NEXT !XIN Q COPY u GO SUB VAL FOR +#LN RANDOMIZE CLEAR :'6Gw>> STEP `/ ERASE b@USR OVER UFN 6 CLS vwbEXP g▙~gnCHR$ > COPY ATN ( BORDER MERGE o!▚ INVERSE [U] BORDER CLEAR . CLS INK TO ]Jp OR :9 INPUT 2 CLS RUN STEP LEN k:b/}*) RUN ATN *|ASN POKE }ACS NOT LEN ` PRINT k[K][O] PAPER [O]q[O]X CLOSE #[O] FLASH e▞ CLS [}<> IF COPY <>MOZERFUCASN >K !5|[N]~CODE FN OPEN # RETURN SQR >= FORMAT [K][O] CIRCLE @D[O]Z LOAD a{ MERGE ACS BIN 6sPI[T]Ga..[I]c"d LINE {BIN Go<>!USR [J]> LPRINT w,< RETURN LIST RANDOMIZE = NEW DRAW RETURN : OVER e>@[T]a INK s INK l,rf PLOT ~ IF = FOR ! OUT s,[P] RUN NEXT STEP F<>.© IF FLASH 3 COPY -[S] OPEN #'}LEN & LPRINT NOT USR NEXT iATN STEP /c DEF FN PEEK [M]V INVERSE t RESTORE [O]AT SAVE gL▖ INVERSE $ PAPER <>^, INK ▚Ozw BRIGHT NEW ▖ STEP COS "SCREEN$ CODE LN r]D6 CAT U< READ INPUT [G] FLASH SQR ATN y COPY FOR INVERSE FVAL$ w DRAW W MERGE !TAB aCSGN >= LPRINT @ GO TO 'J/ LIST & LPRINT TY CLOSE # INK IN INVERSE RESTORE XATN THEN STEP n SAVE CLEAR & NEW LIST 7[o~ NEW ATTR ASN NEW [L] LOAD w$ CLEAR % BORDER h[K]g LLIST Z INK 8 TO [B]SGN USR LN CODE NEXT DEF FN CLS $ NEXT MOVE LEN |[S] POKE &EXP STEP lb NEW BIN IF PAUSE <>z NEW USR { AND _ CIRCLE z VERIFY W<>L[U]v OPEN #{kcePOINT J RUN [M] BEEP Lu[U]%▛© BEEP PAUSE ▚b}|I CIRCLE f CIRCLE [L]# CIRCLE BIN M CIRCLE VAL$ BIN PAUSE CIRCLE ▞M& INK N$F} REM BORDER bkV%^H$f[D] GO SUB BCODE THEN <[D] OUT <>}[D]COS 7 FOR 7cc! GO TO READ [Q][K] LPRINT RANDOMIZE MERGE OUT COPY DRAW $ THEN t( PAPER 1IN RANDOMIZE <>|& FLASH ^ DATA V~% AND nb6gLN PAUSE EPEEK ^[N]qW& INVERSE n OUT ,+0> RESTORE CLEAR [C]2Wc RETURN ) STOP DRAW l&[H]N COPY 8 DRAW lSIN DATA OR '[S] TO x/Gy_ MERGE O{▜ THEN STEP 'CHR$ GO SUB j8P%=LN [J]STR$ _ THEN RETURN O OUT @ FOR MERGE > INVERSE BORDER /OR STEP yc GO SUB Dg[S]A THEN [M]& CLOSE #_ CLEAR USR G FOR IN A| PAUSE <=c MOVE SAVE |k} RETURN @ IF [F].A POKE DEF FN FOR ]). LLIST [I]e>=n6STR$ AND USR DEF FN | RETURN [S])[A]>A ERASE AT y GO TO USR FLASH DS©jNASN POKE PEEK -EXP NACS EXP INKEY$[L]vvSQR , BEEP z▟z COPY VERIFY NEW tZ!z NEXT Xd RUN SAVE f_+6NOT #sTAN VERIFY r BEEP [D] STEP OUT BEEP BEEP BEEP ▗ LOAD IF BEEP TO j SAVE [C] BEEP THEN INK _T OUT ▗%VAL$ [F] LET ©[E]x AND o& OUT N INVERSE i CLEAR POKE SGN >?[B]▜Lb OVER ^,V GO SUB Se:[J] THEN )[B]o]ATTR <= AND -▝g THEN ! RETURN RNDVAL$ CAT INVERSE [F] ERASE [P]g NEXT _eIN [E]G AND @2ebLG[A] IF &68 COPY koG RETURN l PAPER REM BORDER LINE ~ INK l0x VERIFY k MERGE > PAPER THEN PAUSE [J] INK CLEAR } PRINT gNOT gvD▚ GO SUB [P]W.@NOT AND [J] LET CODE ~ INK %k CLS © INVERSE -CHR$ e<>|ATN PAUSE VAL g5pM MERGE ABS To~<>SQR REM @ DRAW COS MERGE !#[J]~ AND w,ACS CLS GO SUB INK e! MERGE RETURN GO TO CODE CLOSE #▜ CLEAR .V,^ COPY LIST N RESTORE STEP CLS g^v LLIST W FLASH fMq1c VERIFY # CLEAR - OUT <> OR :%[J] STEP hSTR$ BSY$ACS REM J[F]UXYm#z DRAW MERGE O<>o& CIRCLE N VERIFY OUT [C]F{y INK AT I_ IF ] RESTORE GO SUB OR zx PAUSE L MOVE [P]9 OUT MOVE IN 5 FLASH MOVE TAB T LLIST /ASN 3<> DIM OPEN #n INVERSE IN uh!0nCODE r<>*[J][1?K[R], INK U DIM ~"|INT 8 INK FOR 3©LN LN `G DEF FN 6z[I]{_P PAUSE BRIGHT 4 STEP "<>Se STEP <>C<> INK D[I]SIN LEN :[K]ABS RETURN [C] FORMAT Un CIRCLE NEW ,O[B]g▜FN AT NOT >=2o<>~▜% . COPY } STOP [U] DRAW 1NOT RANDOMIZE OOG STEP [K]kl FORMAT cSIN 4 FOR NEXT DRAW 2{Ji INVERSE &▗<=g*[H] DIM MERGE ATTR RANDOMIZE GO SUB SIN m MOVE REM LEN LLIST MOVE INVERSE %p DEF FN X▛V▝$cL READ SIN ?p[R]L_TAB K[A] OVER [I]8[Q]v$k"oj| FLASH FLASH © FOR =3 FLASH FLASH CLOSE #NACS . INVERSE > INVERSE { DRAW AND g INVERSE }ZPI' RANDOMIZE INK AND .BIN [▞ INK u$ OVER BIN ▚ OUT AND G| INK [P]~p: POKE [T]ATN IF $~j BEEP VERIFY [D]STR$ OPEN # MERGE _ BEEP TO k. VERIFY [G] DRAW [G], INK ▜_ FOR SIN F1rqp DEF FN PEEK CAT GO SUB CODE 2[J] SAVE TAN ![S]m0O>SGN fM▜z[K]u▚▚INKEY$ LINE [B][Q]K[P]▞[E]8[P] OPEN #[H][C] BEEP j GO SUB [D][P]s OPEN #{Ln THEN CLEAR *ATN 6R▙[P] AND -WSQR SAVE DATA <O &[O] INK MOVE ~ LLIST " LINE jCODE o CLEAR f[O])v BEEP Y INVERSE ^SGN V+J INK = OUT [D](1 COPY 6G[T]k MERGE FLASH [T]▛[T]<= THEN TAB ATN }`k STEP 3ATN RETURN NEW ©[T]|ATN LINE Ac IF 5k}ABS ▚IJSCREEN$ [K] TO <>sgR[]| REM ) PRINT xoUSR $PEEK - PLOT VAL |ASN >=&STR$ RETURN hCODE THEN 0▝VAL$ eg<>y+M▛TAB kLEN STOP |gATTR SCREEN$ #<> INVERSE ~J PLOT m CLEAR PEEK VAL [S] LIST INVERSE `[K]>&▛<>^?[J]VCA RANDOMIZE LLIST NATN OUT [P]-nIN {:. IF OVER INVERSE $ABS N'CHR$ STR$ k'&+INT 0m OUT j_ DRAW zSGN {ABS >=[F] PAPER / BEEP GO TO nOz[E]/GxVAL fEXP hUYX THEN ?H INVERSE RESTORE LLIST r,[D]0▝ RUN ATN [G]▘D OUT P RETURN 7 OUT {; OVER OUT OUT G FOR W[M]NOT NOT ASN CIRCLE s LINE =UXyiR MERGE A MERGE BEEP IN TAN ERASE ▝ MERGE ASN RANDOMIZE INPUT 5 RANDOMIZE Y▜ INK oCHR$ ▖▜1>F>= RETURN FOR ` STEP [Q]g AND y▛wiSCREEN$ V FOR <o LPRINT RETURN bCODE & DEF FN o AND STEP PLOT PI7n BORDER PLOT }ATN PAUSE READ ▜o*>{ FOR SCREEN$ <=_NOT THEN b MERGE ACS LPRINT CODE [O] STEP NEW SGN ATN OR PRINT z READ [Q] STEP ,~▜_K} INPUT OCOS NOT INPUT [D]6POINT [N]<>[F].SCREEN$ ll[F]©FN STEP h LET CODE STR$ <>n2 MOVE MERGE STR$ STEP ABS oZU AND <=bejPEEK RUN PAUSE $Oa POKE u RUN EXP t STEP % BEEP ,RNDUSR MOVE CLS THEN SAVE Q FOR s$r%Rz COPY PLOT COPY RANDOMIZE OR INKEY$[J]PEEK RESTORE [K] PRINT PAUSE [L]o COPY CLOSE #ABS FOR RANDOMIZE LLIST VERIFY [F] IF LEN LOAD -Z^ THEN INK 0m[P]= PAUSE [L]'▗ PRINT DATA INVERSE &▘ INK OPEN # BRIGHT x PRINT oVg~ PLOT _, RETURN W|} CAT PLOT o<LN VAL$ OR & CLEAR RND5`TAN |INKEY$STR$ FORMAT [I]t CLOSE # PAPER BORDER CIRCLE INK INVERSE %X▝ CLEAR PIPI FORMAT #7 BEEP %CHR$ DATA s> STEP =(n6 COPY SN"INKEY$ STOP Pp2K| CLEAR [G]) RETURN CLS NOT '~ RETURN COPY ACS F/4$~i▞pCOS RND%- LET COPY INT 4%~]nACS PEEK [P] LET INVERSE G OVER 2[J]cLEN [S] CLEAR | MERGE STEP ▙d MOVE LLIST [L]+ LLIST $ FOR ▜ OVER INKEY$|2X``} PLOT ATTR COPY THEN BEEP COPY
