0 REM SOUND MASTER MOD v.1.0LOADER BY BUMERANG CO. COPY COPY NEXT >2=/!@@ GO SUB VAL GO SUB [ POKE /![L]CODE OPEN # RETURN STEP =NOT [L]
1 CLEAR 0: RANDOMIZE USR 0SCREEN$ MMOD" LINE 115616 LINE ABS ^ABS ^COPYRIGHT BY BUMERANG CO. FROM 'DREAM TEAM' GROUP, CHELYABINSK. TEL.(3512)426495 STEP [F][P] NEXT GO SUB ss[L]![L]@d MERGE GO SUB VAL !▘[L]COS [I] PAPER <> GO SUB VAL !COS [I][A]~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1[@ LLIST ; LET w IF 1 CLS NOT [L] COPY COPY OVER "@ ▝@ASN ▗@ 0SGN CHR$ ▜▖H@@@@▘▖@@[A]A!!!▝ COPY COPY READ ▟ READ ERASE [Q] OPEN # INPUT NEXT NEXT FORMAT ▖[Q] @[D][A]!SGN ▝CHR$ O[H]DD@ CAT O@O CAT { CAT HD@@EOIQ[A]==:?==[T]=!?==▝= COPY COPY READ [I]"[C]PR "RP @RP"SGN ▝USR H▚>=HII@[A]▖@▖CHR$ HI@USR STEP PNOT R@!!%!V▚!)##! COPY COPY READ ▟ ERASE R FORMAT FORMAT LPRINT 0▖`@ ERASE FORMAT 3SGN ▚USR >=H@USR O DRAW [D]▖@USR @ CAT ▖>=O@A▝ CAT Ma▜!>=,▚=>5! COPY COPY READ ▝USR ▞[C]0 ERASE ▘[Q]▘0USR @▘A[B]C[C]▙▖KNHH@NO▖BC▖JT▞!=# :!USR ! :=)-▝ COPY COPY STOP ▛442P`0 DRAW 0`USR @D403▗P FORMAT <>[F]@<>@>=PCHR$ P>=@ FORMAT AND @P<>* STOP [F]C!%C!%!%CCCq COPY COPY INK [I] READ READ NEW 7USR 63 LLIST ▜ PLOT 03 BORDER USR ▝NOT LET NOT READ LPRINT &SGN CAT [I]USR CIRCLE [D]USR [I]USR [I] CAT ▚ CAT [I]USR OUT 6 OUT ▙©>c|©c~~>c©USR c>>> COPY COPY COPY DRAW COPY FLASH BRIGHT ▝ CLEAR COPY FLASH COPY FLASH COPY FLASH COPY FLASH COPY FLASH INVERSE INVERSE INVERSE EXP CLS STEP [L]!XX[Q]CODE w GO SUB VAL <> STEP `[M]!r[M]l[M] GO SUB VAL :n[M]PI(0*p[M]@ STEP [M]:m[M]= LINE `[M]2m[M][J] STEP [M]"p[M]!x[M]:o[M]O6<2o[M]CODE 2nPI >▘ABS ! RESTORE PRINT STEP CODE [L] !y[M]x[M]Xo[M]=-▘:l▟l[M] LET LLIST LET LLIST #= VERIFY v;▘( OR UR▜+~ RETURN PAPER [L]`▜ RETURN LINE [L]TAB 0[L]PIPIOPI(~[B]8 IF RESTORE INVERSE LLIST INVERSE ~ STEP NEXT [L] FOR ▝<▝ RESTORE SCREEN$ ▞ LLIST T]6 STEP [M]▝Oh▙EXP >= INVERSE 4 MERGE <>O NEW gyUSR POINT NEW PLOT @TAN gy NEW LPRINT o<>%|/ NEW USR | AND g} VERIFY o FORMAT | VERIFY g<> GO SUB [Q] OR GO SUB [Q] GO SUB [Q]Pppp$p.08▛STR$ <>![I]XZ[M]PI@[H]IN ) LPRINT [H][U][P][K][D]▟▖}tj`UG8(! TO <>>© FLASH RETURN THEN G>= RUN STEP q© STEP ` REM NOT FN a!FN a$ GO SUB [ POKE / STEP =!FN a(#~AT TAB FN POINT w#xLEN POKE !i REM RESTORE NOT R!r REM RESTORE !][P]` REM 8 GO SUB VAL NOT [L]WELCOME TO HELL,HACKERS! DREAM TEAM IS THE BEST GROUP [S]LEN ?'IN MERGE VAL$ NEXT * CLEAR REM AT LOAD ▖ STOP 9/ THEN ▝[B] CLEAR m3>=[H]Ec4[T]0,[N]AT ▖ GO TO INKEY$Mv▛`*▙POINT n$N CLS pTAN )"1 MERGE *;KO[Q] CLS -&tKSIN ▞CtLINKEY$Mj"▚ INVERSE wABS vLEN J▟ CAT LIST CODE USR [C][N][M]r LET [G]NIN THEN VAL$ REM GO SUB MERGE [J] LIST INVERSE INPUT CONTINUE /b DEF FN TO DEF FN >= DEF FN TO DEF FN USR DEF FN INPUT Z3▗ATTR SGN ▘ DEF FN ▟[I]▞[M][J][B] DEF FN STEP OVER ▞sPEEK FN rUSR RESTORE VAL$ BORDER LOAD RETURN FOR SAVE CLEAR LLIST NH9LL~+ DRAW ?n;=n0:5n /*;(; . RESTORE NH9NChJ DATA NEW FOR AT RANDOMIZE LLIST REM DIM ▙ OR COS VAL$ CONTINUE >= LOAD FORMAT DEF FN ▝[J][A] PAPER INPUT LET b>=▞ DEF FN PEEK CODE GO TO 3▝▝0 FORMAT PIM LET >=NE3▞▛[P]NOT [L]NOT [P] DEF FN CAT ` DEF FN INT [A] RETURN LLIST [Q]VAL$ DRAW LOAD LLIST VAL$ [A]▙, POKE IF GO SUB VAL$ ATN M<> CONTINUE #"19"] OPEN #3"##$'o&<MMo OUT PAPER STR$ OR >=[O]l[S]rPI LIST ▙O[C] NEXT d▟[O][H][L][I]▛[C][N] INPUT e PAUSE GO TO [T]EXP VAL [T][Q][T]ASN AT SM DATA ▟ PLOT O- TO CODE PEEK nUSR STOP k[I][O][L]AT ▘}▙j RESTORE IF DIM [D] TO RETURN MERGE PAPER MERGE LLIST RUN o(C STOP 3" 5"l9/(BIN 7'+ 6"=O GO TO LOAD n: DRAW NKo STEP INVERSE CAT SCREEN$ OUT LLIST RANDOMIZE GO TO CONTINUE VAL$ STR$ FOR COPY IF DIM LPRINT THEN GO SUB Jg[O]▞▟ DEF FN [P][C][F]▞IN GO SUB PAUSE F[J]SGN ATTR CODE [R]ASN INPUT CLEAR SAVE POKE DEF FN jZ DEF FN [R]▗▞▜AT [N]h TO [F][D]L DRAW LOAD RETURN FOR BORDER READ PAUSE LOAD STOP NEXT INVERSE NYSIN oo GO TO / LPRINT DATA OA>/Z TO 6/C[I]o] DEF FN m)}U REM M[C]J'l ERASE GO TO ;m[B]CODE tAT u CLOSE #w NEXT ▟r BORDER CLEAR LINE [L]▛▝[L][O]▛[L] RANDOMIZE jn▗▜ IF K CONTINUE [K]BABS PEEK GO TO LIST LOAD [A]ASN [E] CONTINUE GO SUB Ei[O] AND J DIM DRAW INPUT <=i▗[G] FORMAT DATA ▙ OVER INVERSE LLIST INPUT LIST FN REM GO SUB RANDOMIZE LPRINT kSCREEN$ x, FOR O[W LOAD <{`<>wjK[HHTAB XAT >=9fEXP INPUT Jx▛ GO SUB READ RESTORE GO SUB EXP CLEAR IF ▗[N] LOAD LN CONTINUE Wf▟[J]▚[D]▙ LINE [L][O][N]▝[J] PRINT IINT GO TO z<>w OR kOTAB [Q][T][T] NEXT <= REM [H]d[M]▞▚[B][L][O]▟[L]▖9TAN ▖( RESTORE LET [S]s SAVE " TO " LOAD [G]0 CLOSE #SCREEN$ sf"[D, VERIFY ,w=gEaGw[E]x MERGE NEXT u AND CLOSE # V MOVE 0&>8A MERGE ,<= OR `[C]5IASN "3 FORMAT FLASH USR USR INK INK ▚[E]_VINKEY$SQR MERGE [O] INK BORDER AND CLOSE #P▗[I][N][J][G] PRINT INKEY$q[D] CLOSE #[D][D][N] BORDER ;v▜SQR ERASE OUT OPEN # FLASH RESTORE TAN /VAL$ [R]SQR SGN ABS [R] BEEP CIRCLE 5[G]ATN ▗: OPEN # ERASE MERGE PAPER NOT [E]▜[L]▜[M]ybbV INK #z38#6?:TZu PRINT SAVE u CONTINUE PAUSE %'7}V4 BEEP 5Y[I] CLOSE #?rPA$ REM 5NOT ATN ASN # CLS FLASH <> OUT STR$ MOVE [C]K[O]▗[D] STOP COPY POKE BORDER STOP DATA RANDOMIZE CONTINUE NEW CLS LPRINT NEW [U][E]/ LINE [T][P][D] INVERSE [Q] LINE [s▙[G][B]▞ SAVE OR 3PVAL ATN USR tUSR WRND POKE RND MERGE g< FLASH [E] CLOSE # INVERSE BIN INK OUT PAPER RND GO TO SIN F7 INK POINT ACS #ASN BEEP <w"6WfW6 CLOSE #wQCv CLS POKE v:@{ POKE -eTAB do PLOT >!WQt FORMAT CLOSE #.PU CLOSE # w5& CONTINUE e[E]P4 FLASH STR$ POINT RUN 43 ERASE CIRCLE <= REM b LET ACS CLOSE #]RRND SAVE [T]VAL EXP PI BEEP AT U[L]▘ NEW ▞t▗[J] SAVE ^w▜[F][L] LET [L]▛vURND OR [T]UIN GO TO ^ BEEP COPY [U]V MOVE ) SAVE [R]CHR$ 1 ERASE [R][R]9 OVER VAL 2 OUT USR SIN [M] MERGE ?:1RVAL c[I] ERASE $9"7QF DIM t LET e PAUSE Q.sCVAL MERGE 9uR[ BRIGHT '/<l▖ INK VERIFY [G] MOVE STR$ VAL w: BEEP BRIGHT NEXT LLIST 4 INVERSE [B] BRIGHT PLOT PLOT MOVE BIN DATA [CODE POKE CLS [T]<=o VERIFY COS ▗[P]▗PEEK ACS u[H] PRINT ▞q[I][U]LEN [S] OPEN #[S]STR$ LEN DRAW SU GO TO INKEY$ACS CHR$ S) POKE ACS [A]2 OPEN #NOT [H]n5 CIRCLE OUT PAPER CHR$ 4}▖P▗[P]s BEEP G MOVE w&>T[E] LOAD INVERSE #SQR POKE <v PRINT s}cM MOVE ) (-BT PAPER 4' ERASE 4qASN AT OR 5 NEW INVERSE CHR$ TAN PRINT +USR STR$ FLASH [C][M][J][D] IF NEW RESTORE DRAW RESTORE LOAD GO SUB INPUT CLEAR LLIST CLOSE #S▜INKEY$ THEN o[J] VERIFY SGN [N] PAUSE T{ PRINT CODE DATA { POKE > POKE LET [E]S[I] BORDER I[L]/Q POKE INKEY$INKEY$ATN VAL NOT BEEP COS 8 READ COS :8 FORMAT BEEP SIN AND 5 DEF FN SIN 5 MOVE ?#7 /V LINE BEEP "z6B2! LINE PIV7 ERASE tCb[D] PLOT YEN PRINT ?RPEEK Uw FLASH tRNDPOINT &38%; TO USR [B]JASN ▜3[M] STEP [E] INK <=TAN |[Q] DIM /[I]COS SGN ATN CLEAR [Q] CLOSE # POKE [O] CLOSE #[C]ATN STR$ Lh CLOSE # LIST u OR D[M] VERIFY x[R][M][P][K]▙ABS PLOT DRAW [K]ABS PLOT [A] OVER FN STR$ © OPEN # DIM DEF FN [E]! PRINT SAVE LPRINT [C] DATA [I][M] READ FLASH NOT AND ASN LET 3<=NOT 6w<Po MERGE -8Q} VERIFY =!v% FOR [R]Wm NEXT POKE ▞5[K] LIST _rV CLOSE #6P OVER W THEN CLOSE #1E5m NEXT F%[> BEEP STEP CAT MOVE INT T LLIST PAPER [J]TAB AT +DSQR SAVE COS ACS ABS ABS ASN IN CODE SQR DRAW [D]TAN [K][D] LIST ©[D]▘▟ PAUSE MOVE COPY OUT }[F] LIST lLEN SAVE CLEAR ACS [I]TAN [R] BRIGHT READ _ATTR IF TAB SIN THEN <>LN n[M]COS [I]8 LPRINT OUT IN PRINT ?CHR$ [I] MERGE [D] BRIGHT ../5{wZ6 FLASH 4#xD SAVE ▜▜}I PRINT ;&994[D[U]p8Y% OVER !5+x83N[L]+n[I] INVERSE |4 GO TO >= MOVE BEEP INK <> BEEP OPEN # VERIFY [K] RESTORE TAN SGN FN CLOSE #0[R] IF W%![I]▟[H][R]FN EXP TAN SQR PAPER SQR ASN PAPER MOVE ]wACS IN COS IF [P][P][C][G][F] STEP Z IF NEW IF ▞xF= DIM OPEN # MOVE BEEP VERIFY BORDER ;USR PAPER o[K] LINE PAPER ACS [O] FLASH 81[/ BRIGHT Z6 BRIGHT ,' READ [U]_G FLASH >} COPY 9▝%ABS Y INPUT RSIN W OVER Z} OVER 4A<oV$[N]C[M] PAUSE MERGE [P] OR SIN o[O]ATN INT >@ CONTINUE [E]| INK RND OPEN #k CIRCLE INT SPEEK INK INT YATN IN INKEY$ PRINT OR BRIGHT GO TO ©[E] FOR DEF FN [H] CLEAR PRINT NEW CAT <> OVER Z# IF CODE [Q] PAPER z MERGE E OR x]ATN CLOSE #@8C LET CAT CAT EXP [Q]3ACS L[T]SGN BORDER '[S]~t3&T[T] OPEN #'T POKE FLASH /Zy LPRINT kZPI^W ERASE CLEAR ]▞ IF /1908Q COPY OUT 7Q MERGE Tvy INVERSE 'SGN q[M]/; NEXT ABS POINT 1[M] PRINT DEF FN SIN `< OPEN #USR OUT NOT Y IF POKE [B][H][N][P] IF ACS [O] RETURN [E]©▜ BRIGHT LEN COPY [O]}▝ RANDOMIZE ©[G]INT z CLOSE #[I]VAL$ CODE DRAW OVER VERIFY 4SEXP FLASH [T] LIST ~_ PAUSE FOR 0 LINE <o[M] CLOSE #7A CLS <> INVERSE INK SIN [S]$3<053K▖! COPY { CIRCLE [Q]}[N]Sq({ COPY RETURN Sj RETURN EZ[O]' INK +SQR ▞©y OPEN # OVER 2!UTAB A BEEP [E] DIM EXP {< DEF FN THEN SQR REM PEEK SIN RANDOMIZE VAL LIST "ATN TAN CHR$ cZCODE SIN POINT RND PAPER `^ LIST DRAW [H][K]▞[F] VERIFY DEF FN [M]COS [I]2 BRIGHT COS [I]vPEEK [H]▜ RETURN [K]▛[L][F] MERGE [Q]T RETURN ▚▜ CONTINUE [T] INT [U][S]&EXP 8M GO TO RANDOMIZE NEXT LET NEW PIc MOVE RETURN [F]~p[E]~y[O]f FORMAT `V OVER $tL CLS sATN C[I] IF ;$F INVERSE PAPER ?,RRND BRIGHT /7S▖ INVERSE )[U]STR$ =USR INT RANDOMIZE PAUSE PEEK 2 RESTORE FORMAT POKE LINE ?BIN SQR { STOP STOP _CODE USR SAVE [Q] LIST LPRINT [K]▜ NEXT DRAW [S]- BRIGHT ▘x FORMAT z}[Q] FORMAT CODE FN [S]▟|©[R] PAPER /ATTR IN PRINT NEW READ ACS CLEAR MERGE YACS PAPER FORMAT ! LINE ▘: BEEP CAT COS U=BIN BIN BEEP [J] COPY ? BRIGHT PFN ACS 3[P]wP/ CLS 0 LIST BRIGHT 7[S]s[P] NEXT ODNK@U/.KM(TN}^ REM INK >6U MOVE INK %<84^|#CVAL$ [S];[O][S]3 RANDOMIZE PEEK [S] CLOSE #[M]SIN SIN ATTR _FN BEEP [M] DEF FN READ S RESTORE DEF FN READ X INPUT LOAD BRIGHT INVERSE y▞[B][A]PEEK IF U LET ~▛ PLOT s[P]SGN DRAW BEEP |CHR$ &PLN SQR OR 4] PAUSE NEXT RESTORE ? DIM OR [G] GO TO l=<=[G]~ LLIST ERASE [J]COS ▚ INVERSE ;fUHXC/W THEN INVERSE ~UbX DIM CLEAR }COS USQR OVER FN Z~X+ OUT [U]#SIN ~ INVERSE RND[L]^<>Qq GO TO SGN ▝▜©[N]%SGN ATN W[L] PAPER PEEK ASN MOVE COPY AT CLEAR [R] GO TO INK ][ GO TO FORMAT Gd BRIGHT BEEP STEP STOP SGN +% PAUSE CHR$ CLEAR K POKE POKE ACS PAUSE %7[N] DRAW DATA : INVERSE [D][Q] INVERSE a8 OPEN # OUT [J] COPY INK *[N]Y MERGE AND ' FLASH WUSR X DATA D DATA [G]VAL$ GO SUB EXP Z REM vt/SQR @:&SQR IN DIM VAL INVERSE [O]^c[T][O]eINT [L]U~~[E]*{WMF PAPER |M[S]E LET SQR [L]INT RETURN SCREEN$ [P]FN A[H][S]c[N] STOP [P]c_ THEN ATTR ERASE LIST NOT LIST LINE NOT THEN DRAW "STR$ BEEP BIN CONTINUE DIM CLS READ > PAUSE BIN PAUSE DIM CLS READ OR STOP RESTORE RANDOMIZE VERIFY ERASE PAPER ERASE FORMAT CIRCLE [#/ CIRCLE /FN FN SCREEN$ [U]VAL$ SCREEN$ CHR$ POKE _LN < OUT > BRIGHT VAL$ 09 PAPER EXP Z BRIGHT [ VERIFY [XZ_"[I]PEEK d DRAW SAVE v INPUT (* PLOT zABS eEXP LEN eMnPF FLASH ZX CAT CHR$ DEF FN GO TO TO SCREEN$ VAL [S]uINKEY$=TAN PEEK AT , THEN $/[M][O][J]▟ PAUSE AT R[S]_ PAPER LINE BIN RESTORE ▝zt PAUSE 0 ERASE PAUSE IF DRAW ?/[M] FLASH Y^>=POINT HTAB VAL$ PAPER [EXP H^ INK MTAN ^aCHR$ ;LN [K]<=[O][P]CODE USR SAVE ;[A][F] CLEAR CLOSE #y-- FLASH FORMAT © LLIST NEXT u RUN / FOR PAUSE RESTORE PRINT u@ LINE [Q] RUN wuATTR q MERGE AZ'[H] BEEP COS [H] ERASE s.U FLASH POKE 4SGN SCREEN$ tPEEK 5PI CAT ACS 0SIN [E]ACS [E] FORMAT BIN PIXQ CLOSE #<= BORDER OR W LOAD [R][E]IN d[Q] POKE CODE t LIST 7t POKE zK▟t POKE w[B]1 CLOSE #T LIST REM DIM COPY LET PAUSE AT PLOT / CLOSE #s<>v THEN [O]62SQR q[N][N][J]qCHR$ POKE VAL n[F]SCREEN$ [E] LINE qT BEEP V[C] CLOSE # IF REM o NEW t▗ THEN B<p▛/Vm VERIFY G[G] ERASE kqsm▛[E] THEN TAN [H]TAB sSQR s▖[O][Q]CODE ▖3TAB CODE <> PAUSE HCODE [E] COPY H$VAL$ USR P$& BRIGHT PEEK PLOT [O]q ERASE CLOSE # CLOSE #:[J]vb7 RUN OVER t? BEEP Q CLOSE #2GB0NG[T] IF /©tATN RETURN [B][Q]>=TAN THEN TAN ▜ATN ojG[F] MERGE INVERSE [G] TO ERASE BRIGHT +-SQR d(,c LIST 5 BRIGHT X]/ RUN {PIxdk<>S CLOSE #Q+W{[A]ATTR S BEEP U OPEN #h4 TO 6VACS 2VAL LEN ABS EXP IN PLOT <>RNDu8 NEW [M]▙LN [O] NEW POINT X: CLOSE #POINT ) CLOSE #) CONTINUE NEW LIST c+ PLOT [D] PLOT FLASH :[H] PLOT [A]V? VERIFY COPY RNDW; PLOT PAPER _ OUT yXACS >= PLOT _ACS CHR$ ACS [U]4 BEEP V[U]▘+SGN T/Pp MOVE [K]FLN T-Px INVERSE / CONTINUE tP[U][I]txr CLEAR ALN ▘tY(COS ASN P OPEN #a[S]T)7ASN T SAVE OVER IVAL ETAN 4@[F]t[C]1[F]tACS ) FLASH BRIGHT T VERIFY CLOSE #n} LET R DIM VERIFY CLOSE # BEEP ) POKE u RUN 7 PLOT v COPY PAUSE VAL$ DATA 0 LIST s RUN rlU CLOSE # CLOSE #W TO }WL FORMAT [[C]©PIPEEK LEN VAL ACS TAB [D]LEN SIN [B]VAL$ wACS 2& SAVE MERGE W CIRCLE B LET FOR PRINT CAT UWuCHR$ ^ VERIFY u^STR$ H©M?Iuw[B]g[B]sq[N][N]W FORMAT Bpr|G[K]W BEEP *tv4SIN GO TO < POKE DRAW CLEAR RANDOMIZE DRAW [F]TAN ACS COS FOR w/ ERASE CLOSE #TAN E THEN ASN W& ERASE ▗C FORMAT THEN CIRCLE ERASE [A]/$ PLOT qY a`a4 PLOT x PAPER [E] NEW BRIGHT FORMAT pT FOR [M]CODE [G] OPEN # CLOSE #P BRIGHT COS SGN PEEK ABS VAL$ sACS SGN ERASE 72 LIST INT THEN G1▖ PLOT DRAW ~ AND [E]V MOVE kcT RUN MOVE LIST ![T]!PIv PLOT LET [8VUSIN tPEEK STEP D}[G]] OPEN #Z▚T{,USR FUSR ▗cTAN ACS PAUSE CLS SGN ABS ABS SGN TAN ACS r[K] IF [P][N]l VERIFY W[C][E] VERIFY [E]T[D].] PLOT qrx© POKE PLOT DRAW INPUT POKE [G]u RETURN POKE q[T][O]TAN ACS ATTR CLOSE # AND Y FLASH ABS INK MERGE [L]PBIN ▝`B@ INK TAN r8ACS tATN INVERSE COS BRIGHT 4t[D]AT 9POINT & MERGE INK W" FORMAT %cUIN FORMAT s MERGE LOAD LET KuATN FOR RESTORE RUN RESTORE ABS w NEXT THEN <=ASN OPEN # MERGE ▗U#B OPEN #SCREEN$ AT MERGE CONTINUE ▖.*SUFN 9VAL VAL ACS )QFN QTAN 1 LINE DATA CHR$ LPRINT PAPER LINE >= DIM TAN [Q]q CONTINUE GO TO LN RETURN RUN ▖ol GO TO T CONTINUE T POKE tFN INK JJ LINE SGN I PAPER >=>=DKq PAPER [U]+ GO TO [K]PEEK ) BRIGHT jfFN SQR SCREEN$ TAN INT VAL THEN ▖zF>=1 LINE 4^CHR$ 08<>t[K]ou[S]zi CAT CHR$ *&SCREEN$ REM k▞[H]M>=LEN K2▘J LINE tDNPF READ jAT PI BRIGHT ( POKE SAVE dLN [U] ERASE mATTR ISCREEN$ 0 AND [C]s AND [Q]O]ouk MOVE >=IW>o LOAD }m CONTINUE f PLOT INPUT REM SAVE ` CONTINUE o2 READ BORDER " FOR DEF FN aN▘b DEF FN THEN USR jE OPEN #17▟7AT SCREEN$ Z,FLN : STEP sSCREEN$ *BIN ▟o OR LINE ]Mm>=N+ioI/ CAT p STEP VAL$ =j[F] LPRINT /+e_-SIN o FOR Snono^NABS AND e CLS DIM LOAD iK$4SCREEN$ PEEK .INKEY$ n( BEEP [M]`AT 4 STEP MERGE mSIv STEP +iCHR$ OVER PAPER OVER CHR$ PAUSE g# AND AND GO TO STOP ~ LINE IF LN v9 PAUSE _O DEF FN <> DEF FN O TO CHR$ >=SCREEN$ CIRCLE PEEK XSGN STEP COPY %(/RND INPUT *STR$ 8▞POINT 4qAT 7NBIN [I]^H DATA USR DEF FN <>>=I6USR rBIN [ STEP THEN LnC GO TO hZ FOR j[R]l POKE RSCREEN$ OMBIN ~A>USR {SCREEN$ BIN AT VAL$ TAN RND DRAW sAT 7 READ DATA STOP TO @ DEF FN FLASH [F]H[O][U]INT [M] CONTINUE STR$ > GO TO 3INT ?VAL$ j LOAD POINT LOAD TAB DATA PLOT DATA AND [U] PAPER J THEN ▞<=▞ CAT STEP DIM OVER O STEP [S][Q]ACS PEEK AT ACS [U]PEEK *AT INPUT FN INPUT LOAD VAL$ q STEP OMCES<>OKH=ga REM iojxov INPUT i)k5K▖<>KMU CAT KG ERASE ▛>AT >= NEW [R]VAL$ INKEY$ CONTINUE [G] BRIGHT ,FN REM [Q]>= BRIGHT OR >=NOT GO TO VAL$ CAT TO FOR _ INPUT BIN VERIFY CLEAR INPUT [A] DEF FN / AND #ACS INPUT INPUT [H] RUN RUN INVERSE <=>=<= TO <=>=LG RETURN FORMAT O DEF FN VERIFY ERASE J THEN ▞ATN DIM [M]?%PEEK IPIRND▚[U] DEF FN LN *TAB LOAD LEN | REM INPUT 7[C]6fV▞5PInIN - LOAD nSCREEN$ VAL$ l.HPOINT *&PvZN^h CAT ENBUSR ACS /POINT VERIFY (VAL$ 0/RNDs IF .KVAL$ (S[A][K][U]STR$ JSCREEN$ PIAT ATTR OPEN #[O]USR D OPEN #dsCODE IN [T]PIh[J] INPUT NEXT [J]r LIST xc6 LIST THEN DRAW M[C] RETURN ▚[E] LIST BRIGHT ▙POINT {[A]EXP y[C]VAL$ wc<=[T][M]X PRINT ▘COS ©PEEK }SIN ©EXP NH{L[ NEXT INKEY$~RVAL cj CAT |k GO SUB SIN s IF ghASN LgJ[O]3GCOS eC[A]WMCODE SGN SCREEN$ RNDKqCTAN MSGN INKEY$9INKEY$AT _| LOAD 8[B] SAVE VERIFY * FORMAT LIST DRAW LIST [G] PAUSE FLASH TO GO SUB 9 GO TO OPEN #b LPRINT DIM SAVE [ AND OR CLOSE # TO # T LINE AND VERIFY LINE LINE M OUT ERASE 5 INPUT CHR$ NSTR$ INPUT *AT PAPER ([A]S PRINT [A][S] INK $TAN }[G]X RUN ©[Q] ERASE vIN /H CLOSE #ZkHLTAN IvI[U]ijt[N]PII#POINT KRNDK FOR #br CONTINUE CAT 4J INPUT LINE JJr1L CAT ^ASN {AT ▝AT [H] RETURN g PAPER aCHR$ ▚/▖BIN [C]2<= DATA SQR -2 SAVE DATA CIRCLE 2 RANDOMIZE DATA FOR VERIFY BIN MERGE BEEP BIN CLEAR OVER BIN ASN POKE ? STEP [H]VAL { STOP CLS P POKE 8[B] LET DEF FN NOT 6▚[O]AT [Q][M]SQR )[B]▗AT ACS TO NEW MC TO REM MO DEF FN INPUT p<}e]Z DIM RND~ PLOT POhg_yPOINT Yo?sPEEK STEP STOP [M]M DEF FN eM ▟b LINE NM4[T]EXP w LIST ▛VAL :[K] DIM [K]O LIST [K]INT DIM FOR >= PAUSE <> AND BIN OR [N]^ LIST CIRCLE 6▛ CLOSE # RESTORE ERASE COPY ,SQR LINE GO TO FORMAT RETURN *PI>= FOR = FLASH YM DEF FN DIM _ POKE CIRCLE THEN CH PLOT NOT ASN $-g NEXT ▞[ DATA INT )[Q][M]INT /AT FORMAT <XATN N~SQR JATN JCOS JATN J▛j[H]j[D]j[H]j[L]j[H]j[D]j[H]j▛JATN JCOS JATN JSQR JATN JCOS JATN JKSCREEN$ WSCREEN$ SSCREEN$ WSCREEN$ [SCREEN$ WSCREEN$ SSCREEN$ WSCREEN$ K LINE 7 LINE 3 LINE 7 LINE ; LINE = LINE R/ THEN LEN [C] PRINT : CAT [E] INK CLOSE # GO TO G[N] BEEP RETURN FORMAT :MOK▛ DIM ACS KD POKE : LOAD VAL$ ]_ RUN SGN [U]▛ LPRINT hCOS +TAN COS [A]^[F] LET D@eP[Q]SIN [G][I]SIN wSCREEN$ [U][G]▗©m[L]hINT ]spPm[F]T[F][G][ LIST SCREEN$ WSCREEN$ SSCREEN$ WSCREEN$ SCREEN$ KACS KSIN KACS KINT KACS KSIN KACS KSCREEN$ + VERIFY + ERASE + VERIFY + PAPER + VERIFY + ERASE + VERIFY + REM PLOT PAUSE ( PLOT r75I9 PRINT Z POKE ,X REM CHR$ CONTINUE FORMAT REM OR GO TO MERGE REM SCREEN$ ATTR [L]5[S]SQR [L]<SQR zy<>▖[Q]ASN i BEEP XBD BEEP INVERSE zD BEEP [M BEEP YzT RUN LPRINT RT RUN se) RUN zbD RUN OVER Jd BEEP UM9 BEEP [J BEEP ▝rV+COS ACS ATN ERASE STOP =[D]z[F]%NOT [H] AND y8m LIST ▙J[C]COS ASN VAL$ [R][U]LEN [R] POKE GO TO + FLASH AND DEF FN CLOSE #EXP [G] VERIFY [J][L][H][O][N][M] POKE DATA ZINT INT TAB RETURN +[H]TAB IF GO TO LOAD RESTORE STOP CLS BORDER NEW ▚[E][J] LET BRIGHT BEEP PAPER CLOSE # MOVE PAPER <=[C]<=CHR$ MOVE CIRCLE 08u :";?SCREEN$ :=2W GO SUB FEU#ub RUN sY COPY GK68#92eW MOVE 822G^▟[G] LPRINT INK <= OUT TO OUT FLASH CIRCLE NOT [I]KACS VAL$ ▚ RUN ▖xACS VERIFY VAL MOVE SCREEN$ ERASE <=P+▙ POKE )p CLS + PRINT IN 6 CLS I6dEXP [R]0 OPEN #RND VERIFY OR ▙5 FOR <# LLIST VAL$ k CAT SIN [O]ACS k▘SIN FN NPL NEW LPRINT #W]V▞_[B]F READ [P]▖;▖u`PI0 PAUSE VACS 2cp<> FORMAT V[B]QyT#F[U]S CLOSE #t PRINT DRAW KVAL$ ACS © RANDOMIZE ATN CAT SAVE TAB RETURN JlPEEK n CLS POINT CLOSE #LEN [O]) INPUT PLOT W[G](TAB USR DRAW [L] MERGE SGN RETURN DINKEY$ POKE wTAN sCOS POKE PAPER POKE CAT ABS I CLOSE #SCREEN$ [L]-&TATTR [F]+; BEEP FN [C])([R] CLS SIN PEEK COPY SQR ACS 40 IF K PLOT INVERSE FN COPY SUVXEzTAB :V ▞EXP wE#v<=[ DEF FN 8tATTR u▖ LINE +ATTR SCREEN$ QFN [E]▖QEXP u POKE FN ATTR ACS C PLOT ISGN TAB DRAW TAN RUN FORMAT Y▗.AT V>[B]+ VERIFY ATTR [L](SCREEN$ [K]INT PRINT THEN SGN PAUSE [A]SGN MOVE K FOR Y[K] FORMAT INT T INPUT [E] OVER VERIFY [K]+; FORMAT 1 IF ATN iACS OVER CLS VAL GO SUB ASN 7 CLEAR LEN SQR ATN REM BORDER POINT [R]U OPEN #POINT _JZATTR %U BEEP [G]| PLOT CODE ddAT t LET ?, PAUSE 0? THEN [E]t VERIFY LET ATTR z/ OVER Rt ERASE TO POINT k POKE CLS L OUT ACS LET K2SGN ▟ CLS ASN H[S]6[E] VERIFY NOT [E]▞[I]&* CLOSE #~▚*BIN IN [U]Z PAUSE ~SGN PRINT CODE LIST IN F VERIFY K[F][C] ERASE + OPEN #[U][G] MERGE ^ CLOSE #[K].N PLOT W STOP JAT [E] POKE ASN l: TO RANDOMIZE ATN tACS AND STOP ATTR MOVE _TTAN ES6CISCREEN$ t<▟ LPRINT s5qt THEN 9▖ CONTINUE CODE ] OUT CODE BEEP !T PLOT POINT BEEP ▗ RESTORE RUN DBLN ▟ PAUSE ASN LN P NEXT INT BRIGHT PAPER [G]&- INVERSE ][A] CIRCLE GO TO ZZ[E]# TO PAPER eTAN RETURN RETURN IF ASN IF DEF FN DRAW {ATN PAUSE SAVE COPY ACS RESTORE OgM▖$`Z[B] FLASH /J[B] OVER SIN ABS PAUSE C[A][I]/ COPY ELN PAUSE RETURN EXP LINE $PIT PAPER ▖V CIRCLE x+RND MERGE ^4▜wxACS 4 IF 4Zhrxxy CLS /X READ x^YrULEN Y<=0Y ERASE RNDSQR mINT IN hEXP :[D]EXP [I] INK PEEK ` DEF FN RNDsIN FLASH INK iCODE INK STEP SQR CIRCLE 6 DEF FN FLASH ©[K] RANDOMIZE USR >= RANDOMIZE TO PAPER LIST aSIN SAVE DRAW v9h}V CIRCLE INK [O][O]$[O]([O]$ OPEN # PAPER CIRCLE REM ABS [A] RETURN =CHR$ D[L]▟t[J]LN SGN ;[C]B[B]RND INVERSE _T{W LPRINT LAT [T]FcV*|*jTACS SAVE c]VAL DEF FN LTAN [S]/ LIST ^P[KXCW[Q]~ PRINT "!][E][H]aBIN TAN @ASN LN @TAB [K][S]CCHR$ [Q]{ RETURN TO [S]Z OUT /ATTR OVER OVER "q#ATTR READ >= RETURN CLS INVERSE MOVE INVERSE LLIST 2! RUN DIM CHR$ STEP GRND COPY @ATTR INVERSE <> BRIGHT GO TO BRIGHT 3lk▘SGN /IN ▟;|cSGN REM ,sSGN CIRCLE ▝© RUN #[B]%} LIST %[H]E^R BORDER STEP IN [A][I]| RESTORE /~z DRAW ©<`[N][?Q[T]KH[S]KX PLOT _M▟CCOS INT ▖IN CASN y[R]▜ AND y[O]vPOINT $ CLS -p"▜▞ s▝ VERIFY BRIGHT NEW BRIGHT :< CAT DRAW 4 POKE [H]|ABS ©ATN [L]d STOP },[N]q^[N][R]#-~BAVAL$ rSIN 9PEEK [E]INT CONTINUE PEEK [S]Y INK NEXT [_^`/<= MERGE y]V[M]x*©xA© RESTORE `©S{(u[N]~r INVERSE ]T[T]DQ].[Q]] FORMAT [F]LN EXP <[F]USR THEN Dm REM ▘[U] CIRCLE OUT & CIRCLE OVER PAUSE T[F]▛>u▖ FLASH g.[F]▘BRNDATTR RNDATTR FV CLEAR PEEK RETURN COPY BRIGHT STOP BORDER !J COPY <=[S] ' PLOT TAB ^[G] ERASE @E[G] OR @[A]fB>h OR OR SAVE VERIFY ▛ INK FORMAT INK OVER RUN ' PLOT K VERIFY COPY COS P<= MERGE MERGE MERGE RANDOMIZE [R]g MERGE GO SUB IN ©F ERASE [H]EXP [L]QACS BORDER © RANDOMIZE GO TO Y>$©]INKEY$UPEEK COS < SAVE BRIGHT LEN 9`POINT A"[O]@ FLASH :EQ▘ASN MOVE FN J MERGE 3 RETURN S5CUSR POKE TO INKEY$L RANDOMIZE CIRCLE x OUT ABS DEF FN BORDER / NEW CLOSE # LINE PAPER Q TO PAPER PAPER Amm STOP [O]VAL PI[O] READ LN ▙▗[U][R]s©OZCHR$ w|-MVAL #[N]}_COS cNOT ^'STR$ Hy5 FLASH FN [N]^cS*[G][A]; STOP [M]SCREEN$ DIM [A]N[N]SGN PEEK Yy DEF FN BEEP INVERSE OPEN #[M] INPUT SGN SQR ? DRAW VAL$ INK 5_SQR SIN INKEY$ INK - IF A!"[C]▙[B][F][N]▙▜▛[D]▖[L][A]▘ BRIGHT [D][J]▙COS INT ASN VAL DRAW VAL ABS [S]ASN TAB INK 4_PITAN ]CPEEK CINT CPEEK CSIN CPEEK CINT CPEEK C[S][T]^[T]Z[T]^[T]R[T]^[T]Z[T]^[T]b~z~r~LEN zj BRIGHT STEP nSCREEN$ #n^*n_`/[I]ABS RESTORE CLS wr[M]qg[B]@SGN [C]ATTR POINT PEEK DATA PEEK BIN X9 DRAW TO NOT ] OVER TO THEN ] STOP BRIGHT VERIFY ~BIN IF CLS xPOINT CLS BIN ? REM K[L] OVER ^ CLS CLS RANDOMIZE REM SSIN INK REM [ATN INK REM # LINE <> STEP <> OR <> STEP POINT MERGE n(n<n OVER IN n OVER FORMAT n OVER © INPUT N+rhNK OPEN #y BEEP s DEF FN CLEAR -3b[Q] INK RNDRNDSV<>- CLS -wTAB [U]INT pj[M] STOP INT [E] REM [I] ERASE , ERASE LN [K] DATA PRINT '[ TO TO YBIN PAPER [I] TO > LINE LINE XTAN PAPER CIRCLE STR$ © PAPER ▖ PAPER TAN SCREEN$ CIRCLE INVERSE }▝ POKE t PAPER FORMAT LINE DRAW [K]X PAPER TAN JhLINT CIRCLE IF BIN ABS [T]; TO INT ACS 3[U] PAPER 8JSGN ZFN PAPER TAN ZM FORMAT BRIGHT LINE >=SCREEN$ DJXSCREEN$ BRIGHT INT HT LPRINT SAVE [K] GO TO zR RANDOMIZE ▗ REM XINT <z@ CLS JVZY INK (J4sz5Z GO SUB Z4INT STOP INT 0SCREEN$ BEEP SCREEN$ OR VAL INT INT READ [K]^LN jlZ CIRCLE CHR$ CLOSE #▝]JL PAPER 8J DATA VAL$ y DRAW ©zzt IF } IF [M] REM PLOT IF [E][X PAPER Y IF OUT LINE uXXj BRIGHT { SAVE REM '*LN LINE ATTR x: LINE TAN {FN SCREEN$ POINT 9zU[H] OPEN # MOVE PIU THEN RNDwv BEEP OR <= FLASH u,u GO TO e CIRCLE eU1 LET READ RESTORE <=K[ VERIFY PRINT SI VERIFY MERGE {ASN VERIFY RND{ZW3 DATA [G]INT 8DF[U]CHR$ 5 VERIFY TAN KBIN LINE BIN 2U& OR PLOT W& CLOSE #[S][G] MERGE VAL$ OUT v PAUSE ▗ NEW r{▗ RUN |▟w IF W4 OPEN #[G]P CLOSE #INT BIN INKEY$D[S] CLOSE #LVdACS T[S]UATN MOVE >[U]INKEY$ DATA TAN [T]ASN OVER MERGE INKEY$UQ MERGE FU AND UCOS t| MERGE IF n FORMAT T[C] PLOT vDj[F] RUN POKE R[F] RUN tFN ERASE dRTACS [E]SCREEN$ BEEP AND TRD©TTAB [U]WASN >=TAN BEEP 7j6RND READ 7 AND [U]SIN CLOSE # LINE OR NEW POKE 7U: OR + AND AND BIN 7UZ PLOT IN BIN RESTORE SGN POKE DATA DATA TAN [U]BIN P~,Z VERIFY POKE [J]+P▗v DATA qwN AND AND AND AND AND AND AND ' RUN ' NEXT ' RUN ' CLS ' RUN ' NEXT ' RUN ' THEN BEEP OPEN # BEEP FLASH BEEP OPEN # BEEP WCODE MOVE <= CLEAR SQR CLEAR U= PRINT E[R] ERASE ASN ew+NSGN ▚q NEW 6N0 POKE 5USR TAN & MERGE LINE BIN CODE BORDER [L]BIN RND MERGE [L][G] BEEP CLOSE #_ DATA H VERIFY TO POKE i[U]T CLOSE #2TAN T DATA & DATA , PRINT [Q] VERIFY RUN TAN ~ PRINT BIN [U]x OR VAL VERIFY IN VERIFY PI[L]74 NEW *2dfATN p1[G][H]INKEY$SCREEN$ COS VERIFY NEW [Q]U BEEP hfZ[G] LPRINT CLOSE #AT ^JASN NEXT fpACS 4(&w>pPOINT t[G]* PLOT MERGE 6B PLOT v[ INVERSE AND BIN .X6F PLOT ATTR {▚USR W[G] RESTORE LINE ▚VAL NOT [D][I]5 OVER SCREEN$ PLOT v LIST 7 AND [K] THEN W PLOT ATN [S]v DATA 7 GO TO M CLOSE # STOP JTAN CIRCLE REM AND [B]COS [D]q~@INKEY$|^ ERASE 0 FORMAT CHR$ FLASH RESTORE RESTORE AT Q VERIFY DATA 6 CIRCLE W5COS pVAL 9 AND ACS i[A]W5 DEF FN INT GASN MOVE U[H]uSQR YV FORMAT [Q]LN VAL$ [S]`▙ ERASE Tw▛jt▞tstA▚ RESTORE iMaSCREEN$ FN k[I]g[T]SCREEN$ r CAT CONTINUE w_K▖J_ NEXT [ REM A}ELN Q1kQW1 CIRCLE 9X# BRIGHT / CIRCLE ,z% STOP IF w-' IF b5 TO REM REM OVER PRINT EXP ▙e REM OUT PRINT Y POKE OVER v[Q][F] INPUT TAN PEEK S▘ IF [H]INKEY$OCOS IIY OPEN #EXP .SIN ]▘SASN [C]LEN AT /nS/6vm RUN rq[F]L0vU PAUSE ABS IN tj[J][K] FORMAT [R]EXP %VAL %u INK +CTU DEF FN TAN cY[F]}0ATTR NEW -ASN kVAL ©Y PRINT AT BNOT CLOSE #V ERASE PAPER SCREEN$ ATTR PAUSE <>0 FLASH TAB [J]2 LET SQR MERGE l BEEP [C][N]▙nVAL ▟AT FORMAT CLOSE #?dACS ABS READ TO 2TAB DRAW CAT RUN aNOT [G]LEN CLEAR YAT jR▞rLEN NEXT >=[H] DATA GDECODE ,O[H]jl[U]e▟DsuACS { INPUT wusuwukUWSCREEN$ SSCREEN$ WSCREEN$ [SCREEN$ WSCREEN$ SSCREEN$ WSCREEN$ TASN HASN LASN HASN DASN HASN LASN HASN T MERGE ( MERGE , MERGE ( MERGE $ MERGE ( MERGE , MERGE ( MERGE PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT MERGE ( LPRINT ,CODE **,*h PAUSE ,VAL$ **u8jJ TO HK5:H<>VVAL$ VAL PAPER TO zFN )INKEY$SCREEN$ h PAPER ,zFN +[H]JwLu▖/▗ CLS ▖Y INK cSCREEN$ *FN SCREEN$ FLASH FN {AT )SCREEN$ INKEY$d;([I]L THEN >=ASN DSIN H>=NJ9 REM *)*TAB JZ FOR *AT (-INKEY$oXT OR ▖▟94[T] CLOSE # OVER FOR * OVER *]* CLS *[Q]((j/Y RESTORE TKH THEN 49D<>JJl9([K]T([D]< NEXT R[T]uCODE ,TAB wCODE .[B]▙[P] RANDOMIZE ▛]IN RANDOMIZE ATTR B[B]VAL$ COS ] OUT GO SUB `TAB ERASE TAB |TAB /▜ THEN =NCOS JN=B[N]N CAT HLPEEK 9R DRAW .(TAB Y READ .CODE (/=Y2 BRIGHT BRIGHT ▖%/[S][N]} GO SUB , LLIST ,ATTR POKE ,[R]../, RETURN ,#L[N]L<>NqCODE 4[O]LI8,▘AT +[O]3 SAVE ]AT xAT )CODE QA DATA TO ^ CLS ▙C OVER VAL$ |SCREEN$ .AT SCREEN$ CLOSE #L©AT FLASH AT QAT TAB LLEN L[R]LBIN 3SIN TAN 2TAN 63ACS COS SIN COPY .INKEY$ ERASE T OVER ERASE VT FLASH BRIGHT READ ,,MATTR .BIN ,VAL$ .,-*TAB >AT R TO CAT />=O DEF FN R STEP [P]LCHR$ DFHZPOINT +POINT [T]cCODE m#<CODE -# RESTORE INPUT TAB [L] STEP THEN STEP ▟▟[N]fkTAB nQ FLASH MbTAB ! ERASE WSGN ATTR BRIGHT ERASE VAL$ OUT lsutss@s LOAD Nuo]qm=.$CODE BIN INKEY$*36LEN SIN INKEY$[A]y▙▖[A][O][O][C]vaq PAUSE ▚ DATA PAPER FORMAT VERIFY CLOSE #i[A] VERIFY GO SUB .EXP !g[R]l! OUT >=J CLS ▝PPOINT @VAL$ .VAT Q/QPCODE L/ CLOSE #}[A][D]n[K]▙[B]`q PRINT ▛ PAPER ▙CODE LEN ▛VAL$ FN TAB IF VAL$ [T]PEEK RND(▞▜VAL$ soINKEY$N OR B^ OVER STR$ ^ OVER DEF FN LO/ BRIGHT BRIGHT ? GO SUB PEEK QGS FORMAT PISCREEN$ FN ' &▖b▗ DEF FN ▚DDANF@AT ,INKEY$h&d&uVAL$ [U]U STEP ,AT /VAL$ =N[T]N OR naOmpKNqbRTAB )[A][F]VAL$ VAL$ [I]▘AT SGN FATTR %IN ,▟[C]▖[N] DATA GO TO S'[R]PIU[Uw▟[cATTR 9 LPRINT RESTORE RCC LINE N▗Rg>+STR$ ,FN 3 PAPER FLASH [C] FLASH [G]? LINE STR$ ▛.-7/.6[E] TO +▞.6/,#TAB * AND "ATTR ?LEN :2PEEK AT V/K<>/ MOVE ^ BRIGHT INVERSE [N]NBIN SIN [U] DEF FN >= ERASE ▙(gAT VAL$ P[T]_ DATA LPRINT DATA n[U] INVERSE BIN TO ▗▗▝▟[M]▞a PLOT ©VAL$ _SCREEN$ N FLASH AT KAT 7TAB GO SUB ▟AT TAB ▛AT QDNOmOiciL?LCOS ,TAB /8AT , INK [Q](.. FORMAT POINT PEEK COS TAB [O] INVERSE ▛▙[I][I]+t*oIN RETURN GO TO : DRAW RETURN RESTORE cAT &dz INPUT .eDNLI[R]BlSIN 8JATTR NCHR$ -[D] TO MOVE CLOSE # DEF FN CODE OPEN #SQR TAB MOVE [D]>= ERASE o DEF FN COS COS ASN [B]e▟COS PEEK 2:<▝AT TAB SCREEN$ (TAN [M]0SIN [D]}CODE %SCREEN$ ,"QTAB ATN BIN *9JTAN MOVE R▜ OR TO E<= OR TO PRINT (2 POKE RESTORE VAL$ 5 DRAW REM 05 POKE GO TO (- CIRCLE DRAW ~>= FLASH J PLOT © PRINT PRINT MERGE ( MERGE , MERGE ( DEF FN $ CONTINUE / PAUSE ,ATTR o REM THEN [C]L:h[J]D:[J]L THEN PAPER >=eAT PAPER ▖y[U] PAPER hGAT e GO TO e[E] IF [D]F_ TO F▗M▙BWW[B] PAPER GO SUB INT NEW +CODE c[Q][P]p8AT PAUSE ▞SCREEN$ TO KHI[R] IF SQR tEIN V BEEP SQR IAT COPY CLOSE #) CIRCLE MOVE LLIST FLASH U9 MERGE ; OUT o POKE * LOAD INK COPY STEP %S0▚▘8 DIM !/[L]'<POINT -[E]i▖Y TO RAT SQR [F]ATTR PJHJ
