| Является частью релиза: | 3D Snooker |
| Размер файла: | 31488 |
| md5: | dce75f5768db1749d52f695cbaaf7e9b |
0 REM NEXT 1PIa! LET <>"CHR$ /:] NEW 2DNOT > PRINT RETURN (G AND DRAW !XX COPY w GO SUB VAL LET OPEN # RETURN !* STEP ^ STEP !USR STEP ^ STEP USR !4lC STEP ^ STEP 4lNOT OR CLEAR © GO SUB ySTR$ GO SUB [ POKE /<>==
1 RANDOMIZE USR 0 NEXT GO SUB s▛!xiw MERGE GO SUB VAL INK ![T]POINT DEF FN 1RNDSTR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK ! REM iX' INK 1 NEXT NOT ▘ SAVE COPY NEW DIM SQR $ PLOT LEN RESTORE N[G]i~ SAVE v PLOT B[e[A]. RETURN COPY [P]| MERGE O NEXT wGuW^p STEP COPY COPY ,VAL < CAT FN '[Q]4[R] BORDER uSGN COPY Y▟*[S]aACS VAL } COPY COPY 3 MERGE ▛#SQR LPRINT [C] STEP [I]3 BEEP SAVE COPY M BORDER LLIST PEEK bYINKEY$ RETURN [P]t THEN [E][U] THEN COPY [E].`[J][I][C]Ej/[D] READ COPY B=COS BRIGHT READ y`▝xV[B]G[I]m H COPY COPY l7 READ c CLS ^▖[G]8▘+F/▟ COPY 9▖ DRAW CONTINUE [S][T] COPY COPY CODE %RG, LPRINT SCREEN$ {d DATA COPY COPY BEEP [R]q READ BRIGHT TAB N<>tD CONTINUE K INVERSE M RETURN COPY INKEY$AvR DATA VAL BRIGHT [L]CHR$ (COS G COPY © REM 7▖ PAUSE SGN ©& CLS STR$ TAB ~ COPY CODE TAN /USR r REM lSIN © COPY LLIST [J] CONTINUE 9 PAPER !SQR ▚[B] COPY COPY [L][N]X1 PAPER m BEEP NEW RANDOMIZE H&c THEN [G] COPY COPY ?0- COPY TAN }jEXP i LLIST NEW CIRCLE COPY COPY GO SUB ▙TAN COS ERASE LOAD [o:Ng[M]. RETURN Q© OPEN #'mf▗l COPY COPY I49ATN PEEK j hIN pdEXP COPY COPY SAVE f5 OUT AT [D] LLIST [L]BATN # COPY COPY ?LkXV`w,COS ?Z>=I LPRINT SAVE COPY KAT E[E] AND n VERIFY REM PLOT t<=[I] COPY BRIGHT [B] PAPER [S]SQR [R] OUT n DRAW >= FORMAT COS © PLOT 9X<PEEK COPY TAB =M▚6 COPY yB COPY h^3(BIN q▖FN { COPY IN GO SUB [pINKEY$ CLEAR SAVE =▜ MOVE 09 RETURN STOP FN TO [H][K]i' NEXT O NEW COPY L LOAD [L]▖ CAT LPRINT [C] OPEN #d0IN LIST DIM iCHR$ OVER EXP AT "CODE [T] LET COPY [J][M][O]▞]L DATA jIINKEY$P; COPY DRAW YTAB <>f COPY COPY tASN NOT U▛ MOVE PAPER [U]SGN [K]<USR NEXT ! LLIST RANDOMIZE | GO SUB G>[V DRAW $? RETURN GO SUB ^><>2[!U OR <>"/ IF > RANDOMIZE COPY CODE CLS v OPEN # RETURN OPEN # COPY DATA VAL !VAL$ 5i THEN PRINT y>= DRAW [T]@[M] LLIST PRINT STEP SAVE ~INKEY$ REM * OPEN #"[J]>NOT ▛ BEEP CHR$ USR ATN STR$ POKE ?H6 BEEP } COPY ~W NEW THEN j(H PLOT @Z IF NEXT TJ IF _z NEW COS ▘AR PLOT *[U]b IF r COPY © IF COS w#yVAL TO !COS h OUT SAVE HAs#r STEP bL RUN !▝~ DRAW Y![Q]XCODE RANDOMIZE STOP ut7▜ IF [B]R=SCREEN$ LIST LIST ▚Z PRINT RESTORE ? VERIFY SAVE LET VERIFY CLOSE #$Q CLOSE #POINT '` BORDER 6NOT CLEAR <[K]> COPY 2 FOR STEP ▗BIN ICODE RANDOMIZE CLS K INK ASN COPY RETURN IN GO SUB x0 BORDER © RANDOMIZE RETURN LPRINT INK vLEN DIM BEEP NEXT CAT NEXT FLASH DEF FN ABS LLIST CLS vun>?j$GV READ RUN POKE <>ATN o INVERSE RESTORE CLEAR PLOT MERGE OR PRINT INK [B]IN IF STEP F[M] GO SUB s[G] MOVE FORMAT OPEN #[C]@ RANDOMIZE PLOT ©ABS LLIST COPY 9$| NEW CHR$ COPY DRAW [D]} AND o PAPER RANDOMIZE | VERIFY g INVERSE 1)1 OUT BRIGHT "[Q]>AT } INPUT 2[P] OR (>?@"<=aTAB ▗ OR y© DEF FN <G! RUN da5 CLEAR SGN RANDOMIZE ▞ OUT STR$ RESTORE x_ASN COPY <=COS h^#Vy THEN ? RETURN s PAUSE COS _ GO SUB SkUSR LPRINT MOVE TAN g8ATN SQR USR t RETURN LET ! FOR NOT r PLOT S[I] LET STR$ MOVE LLIST INK F[T] IF CLEAR INVERSE TO CLS <>[F]SGN +[F]1INKEY$6/ PAUSE LOAD C@USR MOVE 8 LIST 9 CLEAR STEP D LLIST ▝ COPY NEW LIST ACS w[L]kAT PAUSE <= RESTORE ?Z GO SUB COPY STOP W DIM INPUT CLOSE #N COPY CLOSE # DRAW QCHR$ COPY [Q]0 MERGE REM STR$ #| RETURN [M]yO NEXT FORMAT $BIN *{;ATN FORMAT W LIST w#COS ▜ POKE <>= AND 2 RETURN STOP VAL$ ▗: ERASE 0< AND 2R SAVE INPUT USR ▛ OVER INPUT FLASH INPUT SAVE 7|[J]{>EXP ~O RUN | RUN G OR *VAL COPY b OUT SQR g> OUT FLASH RETURN USR NEXT 8&B LLIST (3LN # NEXT 1<= NEXT +}2 PAPER |i STEP OPEN # GO SUB © CLS OPEN #> CLEAR IF DIM LOAD COPY $ CAT VERIFY CAT MERGE STR$ <>!q~ LLIST OPEN #ATN RANDOMIZE RUN #"E© VERIFY o&) BORDER COPY ▝} FOR <>z NEW USR {Y_ SAVE CIRCLE z VERIFY W<> COPY * RANDOMIZE 7-DUPLEX! LLIST <= POKE ASOCIETNy[S]S- NEW COPY GLAD AND +PREZ▟USR NT4 CLS U SAVE JOYM/O PAUSE COPY NEWII LET R STEP O RUN GO TO IMPOR RANDOMIZE : THEN NEW -& COPY Oz3[J]SNOKaZINT ▜)<=P> COPY WELCOp}<R SAVE L READ MOVE MA NEXT COPY T!NOT HISqINKEY$ TO G DATA A BORDER ;MI@[D][Q]V DRAW S SAVE Z8ROD OVER UC' LLIST RETURN FA▘3S2C AND DI[J]L OVER PRINT A$ INVERSE Ga<> MERGE OW READ `y DEF FN SIN DE[B]GN,▞6[I] RUN . COPY INT dNn/U5ATTR S RUN $9,[S] GO SUB Z▜LN RUN STOP COPY [B]A▚ DRAW NK/DPXG RUN ~=CZ,SU LET PAUSE LD OVER ? CAT AZUNOT CYBABS MUZA<=iK[H] BORDER STR$ STR$ N[R]-[O]iOUSR %1^USR [A][I]E8 PAPER (PA]rE IF $BIN STOP STR$ + TO OVER U[E]T5xq SAVE q POKE JPE PAPER HNOLABSQR CONTINUE ABS VIP BORDER ATN NEXT AS-13 SAVE MXw: LET JVCSGN &[O]DGuZ8LS[R]S CLOSE #T CLS FOK/sTAN LIST E INK COPY (F'WMK INK [U]a STOP DACS & PRINT [K] CLEAR RG@)[Q] READ BAND ERASE OVER CONTINUE INVERSE BIN ATN ▝ LOAD [A] THEN >! COPY %@oJNUE= LOAD RANDOMIZE l LIST COPY s COPY B!NmY;CVAL$ LET S6PI08X-TUD POKE USH[U]+C READ STEP d-CHR$ E;TAN .u LOAD [M]▝ LIST RUN YG)▟ IF XUSR ~ BEEP MPUIN CONTINUE A FOR x CLEAR yOU© CIRCLE EXP FLVIRT OPEN #EU MOVE BORDER {O STOP P▜&HIN S TO PIE-/P{ OVER (A[D]SLEN 9[E]BIN @;/ INK [[G]MA @ COPY 7▞ CLOSE #>=H M▚Zu&AT VAL CC[F]OF- DEF FN EXCSATN l MOVE POKE ▜▛ GO TO { BRIGHT L MOVE 2D REM Y FOR G&_ LINE MGOiJ FOR vSKUSR OR +PEXP [O] THEN ]PEEK RUN LOAD ▞>=CMXL-SGN 8 READ 9QSGN INK BNOT INK 8U!STR$ ▛ READ [T]q/ PLOT OUT koPTAB F STEP T[D]ASN MERGE COPY ▞ PLOT VERIFY G PAUSE BVAL$ 8k MOVE TC RUN nM +>=F.W-GABS LINE A CONTINUE RANDOMIZE [C]$:+ CLEAR NEW +x GO SUB iC2< COPY [A](8612) CLS -49 GO SUB X8 OPEN # FOR © RETURN Nt[T]#0EG COPY FOR ? INPUT y LIST LN l INPUT PAPER MERGE IF :;qLN IF CLS '984CHR$ LOAD DATA CLEAR LIST POKE NEW IF x COPY , COPY SAVE LPRINT TAN [Q]P? CLEAR [Q]W< RUN LET x▛LNOT TAN DIM +7"USR 4 CIRCLE ATTR nSP BEEP DncABS SGN [T][G]S SAVE >= CLEAR 'QPOINT MOVE ,A DRAW .JO DRAW P DRAW ▛KRq[J]% LPRINT FLASH BEEP #INKEY$CYu+VAL LfFRNDRND CIRCLE @+INKEY$c)USR C[ INK L8 STEP CLS SCREEN$ X/7_ZIN W/▛ INVERSE RUN ; GO SUB sASN q INPUT INK RANDOMIZE RESTORE 3VAL ` CLOSE # CLEAR TAN - INVERSE THEN +Xw BORDER OR INT NEW BORDER RANDOMIZE ACS BORDER # DRAW STEP TAN CLS v<> NEXT R;[F]p>=RND▟ DRAW @CH OR COS FORMAT SAVE 9 RANDOMIZE a INK > COPY BIN LLIST A)0; MERGE LIST LET INK <w GO TO > GO SUB 8 SAVE SQR LLIST _▘W VERIFY GO SUB O|(O;SQR INK 0 OR NEXT = LET < PAUSE o{[F] RUN COPY z[M]g GO SUB VAL `PEEK ($ LET oABS INT 0 CONTINUE THEN POKE [H] FOR PRINT THEN 0c RETURN PRINT 8 REM $ CAT LET ATN ( AND ▜©ABS >STR$ ; STEP COPY | LPRINT [L] INK VAL$ INVERSE RANDOMIZE ![M] COPY X' INK CLS <> DATA COPY LPRINT OVER GO SUB <=??aj COPY COPY USR K©'P LPRINT COPY COPY :hn SAVE &@[L]<': RETURN COPY 0T? DRAW J!$ SAVE <= RETURN '▝LUSR 4SGN READ 7[C]▟ COPY ▟* _USR BIN 5-[F]? LET SGN DRAW 8VN` COPY COPY DIM x; RETURN LIST [S]JSCREEN$ FORMAT [G]? COPY z OR [K][H]i CLEAR b COPY ▟USR TAN ▗ LIST INK ERASE COPY COPY ~<&▜FN RETURN [S]M[I]© LIST DRAW @A[Q]` BORDER COPY <LN SAVE [C]▖( LPRINT DIM COPY [[R]8,3 LPRINT 2 DRAW OR B7FN G0[B] MOVE PI RETURN COPY 1@Ghe LOAD USR COPY ? SAVE ▚ ViSTR$ ▘NOT N<=y6 DEF FN LLIST qz XI0▜ COPY [A]_j>IN _ GO TO © SAVE MOVE 6[O]©l LPRINT M LIST CHR$ 'U LIST RNDE BORDER CAT [J] CLOSE #CODE [N]6 BEEP CIRCLE COPY COPY OUSR Q LPRINT *SCREEN$ q/ PLOT ,k COPY COPY RESTORE [B]80t*SGN NOT ^ OR MSTR$ [P] COPY 1w@IN USR PRINT DIM 9CPOINT LPRINT [T]` AND COPY ▘ CAT q REM '[P] COPY COPY I LLIST [D])▚ABS [B]LN @ RETURN COPY j [I]ZFN ABS PLOT CHR$ U^/T?<B RETURN © LIST (7 LPRINT j<[R] NEXT NOT FN SQR hU SAVE ? RETURN P[A]t MOVE _8 DATA . CAT COPY #[Q]▝P CAT , GO TO ▟ RESTORE Q LPRINT BIN BIN QG5 FORMAT SAVE COPY LPRINT Z SAVE 1@?.▞ePEEK (IN i[U]▘S CAT ▝ LLIST ▖`}. COPY ?q08H-[P]<>SCREEN$ K▟[G] COPY ▜▚ CLOSE #COS R▖ BRIGHT ASN h RETURN COPY CIRCLE pFN PLOT .7SCREEN$ z[I]VAL [P]POINT P FORMAT >=CHR$ F COPY OR 6m SAVE OVER <EW= RANDOMIZE CLOSE #D LINE RANDOMIZE COPY ▞./U@▟ CAT ▗ PLOT LPRINT X DRAW ▜h?m▝ NEW BORDER COPY NEXT Q0~xyD@v LINE E? COPY < PRINT j> REM ASN BORDER `▞3STR$ ,B[P]q ERASE Ps▜[G]▞ RETURN ▝ COPY ASN yo FOR ABS U_ OUT COPY SCREEN$ q▞ CLEAR USR COPY COPY PAPER Z[Q].b<[R] PAUSE IF VZTAN Q CAT COPY ▝NOT `TIN USR INT , LPRINT COPY ▜: REM COS _/j[S]SCREEN$ COPY COPY FN CAT 3, RUN RESTORE LPRINT OPEN #d` AND COPY COPY CLEAR LPRINT [S]<=*INT <UNveATTR COPY COPY *FN ( REM IN ▞▘Xik[P]FN 7[F]|<:?▗bc[L] LIST PAUSE FOR KNOT USR OLx CIRCLE LPRINT GO SUB a STOP COPY , READ ▚ VERIFY OR LPRINT CLS . COPY © VERIFY aJ?USR CLS LPRINT LIST SGN © FLASH CLOSE #?' COPY AT STR$ , W[J]F DRAW w CLS COPY aO RETURN ieZ LPRINT ▜BIN `X CLOSE # CAT s INK E_[R]> RESTORE [T] PAUSE ▚? LIST BRIGHT dA$ MERGE DRAW X LPRINT SAVE GLEN 0Z[O]* COPY USR SAVE TO Cv,l%USR =t▛ COPY CAT [L]▗ LPRINT NOT PLOT ? CLEAR 6mSTR$ RESTORE ATN , ERASE STOP 1 COPY COPY L+ LPRINT CONTINUE VAL OR LLIST q4~ SAVE LPRINT COPY ;[O] VAL L LPRINT ▘ DRAW x SAVE COPY READ VERIFY '▚PEEK LLIST q@. LIST AND kZ NEXT INPUT ( H DRAW ©▝$BIN i3 |N[R] REM @ !7[U]iB LET COPY , OPEN #L?▟* RETURN @ COPY IN [N]q!QIATTR i'| LLIST USR l STOP READ RNDt COPY COPY MERGE g LINE #?l▟ READ RESTORE PAUSE jSTR$ COPY LET 4 DRAW COPY MERGE POKE ▝© RETURN CLEAR z[L]▚ LET [T]O CLEAR SCREEN$ COPY BORDER SAVE ▝ REM a DRAW POKE MOVE ATTR <= CIRCLE ▜ FOR NOT G NEXT $C6▞W CLS RETURN y READ RUN SQR PRINT ATTR [A]▘ MERGE $▚ BEEP [E] MOVE RETURN COPY REM ▜ MERGE FOR OPEN #SQR BEEP CLS Ss IF P SAVE 7Q▝Td$ LIST Sq RESTORE CONTINUE ▝ IF [Q]s[R]CHR$ U0 DRAW RANDOMIZE COPY N FORMAT ▘ REM CLOSE # COPY T RETURN ;[O] COPY W CIRCLE ▗INT MERGE IF MOVE H▘ OR FN ▗<=BPISQR ▝ COPY H@D REM AUSR LET RANDOMIZE ▘ INPUT ▖BASN IN ?{O[T]▗f RANDOMIZE CLS VERIFY SAVE IF COPY REM ©#z RETURN STR$ CHR$ BIN HBIN USR (▝USR [M]▛Kh PAUSE H▞ PAUSE " LIST INVERSE 0@x FPh COPY '(@[C] >0TLN [A]Hl GO TO [M][O]VAL 8 LPRINT BIN X LLIST BIN IN COPY RETURN LOAD TO kVAL LIST ▗STR$ ![H] FOR BORDER f CLS s#rSGN x{ RANDOMIZE ▞ CAT J RANDOMIZE PEEK RANDOMIZE j MERGE INK FOR LIST >ATN H LPRINT ?~ THEN © : NEW O▘( STOP 7 AND G#{[G]? DRAW RESTORE oz[J]g| NEW X TO RETURN (O} LLIST LEN BORDER 8) LET RETURN ?g PRINT LPRINT TAN oa~ STEP INKEY$t LLIST # OVER COPY 'STR$ NEW ©(# THEN w ~TAN G FOR GO TO RANDOMIZE VAL$ NEW ?~▟INT PAUSE CLS #[Q] INK LET BRIGHT [C] NEXT <> LIST ?w($ SAVE Ab READ STR$ COPY AND 0▝ LPRINT REM =#7 DRAW s<> COPY HB▝NOT [P]H FORMAT pX9▘▖ COPY COPY CONTINUE ` VERIFY ▝ COPY FLASH x1@ INK IF _ DRAW POINT IF [P]a`▝ RETURN STEP OPEN # OUT RANDOMIZE y FOR LPRINT INPUT [P] MOVE ▖[P] STEP #NOT DRAW <='▗ OPEN #▜ RANDOMIZE COPY LET INPUT 'BIN G▞?ACS CA'?J[P] COPY USR COPY FORMAT ▚<C[P](Q▘[I]? OVER rN[L]▞ CLEAR SAVE RANDOMIZE CLS STR$ ▗?SGN W" OR COPY VERIFY ▖ STEP @▝USR [P]▗▖▜©zINT COPY USR ? LPRINT L▝<>s LOAD * COPY ▛©[A] LIST DRAW 0 READ ABS r OR COPY >= DRAW s SAVE 8 DEF FN ▚x[P]▞8| LET ?<=[J]CHR$ ▗STR$ &BIN LLIST READ ▝▗ AND [O] LLIST s CIRCLE 4 READ [P] LOAD CAT [Q] LIST FOR DATA 7 RETURN OR LPRINT USR READ z▙STR$ x READ [I]▞ LIST ` COPY q SAVE COPY 0USR BIN @[P]USR ;[J]STR$ oP READ 1▜[Q]<>1 SAVE INVERSE ~SGN CIRCLE ▘y SAVE CLEAR ▝[P]y# IF DRAW [P]~<=STR$ ▘▖ RETURN xUSR 88~w0 LIST @USR [M]1 LET y*, BORDER FA▝ LINE DRAW COPY COPY 7▜?|<▝8USR t RANDOMIZE ▚ STOP COPY p INPUT LPRINT LLIST IN ▘▜ TO AT FN BIN AND >= [Q] COPY 3 CLS JAT ID▗>= READ RESTORE USR LPRINT c'2USR COPY © LIST DRAW RETURN | LPRINT p[I]▖@ ▗;USR CHR$ STR$ PAUSE BEEP SAVE CLOSE # RANDOMIZE IN P REM @A>}` NEW ▗ NEXT COPY RANDOMIZE NEXT [P]m[A]}[Q]^a▝D5 REM <>L READ } BORDER LPRINT B@o▘-(f COPY CHR$ SCREEN$ ▗ COPY ▘P FORMAT ~ 1 OUT ▛ OUT o8 COPY [P][N]▖ COPY LET h H~` COPY 1 MERGE COPY [C]▞▖[Q]USR RANDOMIZE DRAW COPY ▜ LLIST NEXT d PRINT fSTR$ ▘M COPY 3'▝[E] STOP 1 LPRINT LIST COPY ©pCHR$ 8lA▘BIN < MERGE ▝ MOVE ▘ LET ©@ COPY RANDOMIZE ▟<> GO TO FOR POKE IF ERASE LET <= CLEAR ▘USR STR$ NOT 7▘ LPRINT NOT COPY BEEP ▟#' CONTINUE >=▖ RETURN ?USR [L] CLS ▘[P]© RANDOMIZE COS <LN ▝^] LIST STR$ CAT LPRINT r@6{ DRAW 0f LET DEF FN ▝ NEXT / OPEN #▛? OUT LOAD NEXT STOP RANDOMIZE NOT USR ?!yIN ^©▗ 8 COPY Z>=▝SSTR$ COPY CLEAR ? RETURN [▖iIN ? NEW 0~▗y DRAW Rgz SAVE TO ▘ LIST ~STR$ j INK LIST )G[T] LPRINT STR$ 2[F]/K NEW U▘EXP MERGE LIST © COPY ?o,▝<>?STR$ USR ▞p SAVE CLEAR NEXT < LIST [F] PAPER DATA NEXT >= RETURN BRIGHT INPUT ?COS COPY <=/Cg TO ▘ DRAW STR$ CONTINUE <= BEEP NEW RUN FOR STOP CIRCLE D CAT 7) DEF FN n[B][P] SAVE DEF FN RETURN LIST [K] OUT COPY STR$ ▝ COPY 'qCOS 6<8 COPY SAVE CHR$ h▗( LOAD COPY [U]<> COPY [P]zACS ▛? RETURN TO COPY 3s NEXT ACS <▙▚ DIM SAVE DATA z]P[J]▝[H] COPY COPY LOAD INPUT x CIRCLE VAL LPRINT 8ABS ▝p MERGE CHR$ DRAW COPY >0▘ RETURN A&CGO8▞ COPY _SGN LN >=(? COPY 8>:▝ RETURN BIN @<=NOT ' LPRINT O▖▛STR$ ^f PLOT LIST RANDOMIZE BEEP OUT CIRCLE 1▘[R] p[] RANDOMIZE |0hABS POKE LIST &▖/ DRAW [B]▙6~ BRIGHT ▚ STOP p LPRINT | RETURN bPI!W{6NOT ~ LPRINT LIST [L] COPY 3r[M][Q]▝7 LIST 8 LPRINT <=z/# DATA STR$ NOT RETURN READ ▜▗8< RANDOMIZE W▘'~/z[G] BEEP K" NEXT LPRINT COPY OUT ▚H,ACS ~Xx THEN ▜ COPY < OUT X[P]BIN BIN [▝ LPRINT j?>[M] FOR ▛▜Cc[P] COPY 1[J]L.{ GO SUB BIN VAL ▗ COPY RANDOMIZE / STOP COPY STR$ HHCHR$ SCREEN$ <▜ DRAW DRAW D`z DRAW ! RESTORE AND @> LET READ ▚w CAT DRAW ▙ DRAW SQR [G]2[G]<>p8▛EXP SAVE IF ?[K]STR$ ▗ CLEAR y PLOT H▝ RETURN LINE EXP 0]▗ IF LPRINT 1J PAPER [C] COPY [Q] FORMAT 0 POKE CLOSE # CIRCLE LLIST NEXT [M] INK yINKEY$ COPY ©a LIST sI▙<><=© RETURN DRAW [C]!▝|USR 1 SAVE LLIST CIRCLE USR SAVE ~©[Q]_ DRAW CHR$ "STR$ '[P] RANDOMIZE [T]▗USR ▖ DATA ▚m?©ATTR COPY [P] W[L] BRIGHT CHR$ ▘s~ LIST ATN [F]P[A] SAVE ▝ e@X<U69 RETURN w SAVE LPRINT NOT LLIST SAVE ?CHR$ y[T]8{▞>▘<©<8SGN b LPRINT FN ▘; CIRCLE COPY READ 0p ERASE $LEN CAT H DRAW ▘ PAUSE PLOT COPY [R]1 CLS CHR$ 8q▝ DEF FN xNOT COPY [J]* PLOT '[M] SAVE NSTR$ LIST MOVE USR < LIST ▟O TO ERASE RO REM ▖ LPRINT ` COPY ?0 OPEN # SAVE SAVE ▝▙USR ▗ INPUT STR$ COPY { OVER [T]▜ DRAW CAT COPY [I] LPRINT LIST * CIRCLE x<> READ CAT g[C] PAUSE OR ▞ NEXT ▝INKEY$K SAVE DRAW ? BRIGHT ;x ERASE DATA PAUSE x CLEAR <= COPY RETURN DRAW - LINE ?[B]▝ LIST [B] COPY x IF © BORDER z RETURN TAN [H]t BORDER [M]> BORDER |'▘<>▖ INVERSE © STEP ▜"ACS SCREEN$ [S] LLIST COPY NEW LIST ▝ AND ©>~yx MERGE ▗ NEW ▖ COPY ? GO SUB @/▘▜ SAVE LINE |BIN NEXT ▚NOT `▚O DRAW EF?>= COPY LPRINT INT ▖ DRAW LIST [Q]©( BEEP < COPY COPY > LPRINT COPY ?7 SAVE TO ?8'D▞<[E] CAT STOP RESTORE ▝ LLIST DRAW DRAW g NEXT Y[F] LPRINT DEF FN STR$ D6© RETURN OPEN # CIRCLE 9▗ AND p BORDER y?▞▜ COPY CLOSE # READ [P] COPY [H][E][D][O]▗8RND%[U] RESTORE BIN LIST <=J▘ INPUT OR LOAD ▟ COPY n VERIFY ▖s RETURN ▜ OVER ▗ TO DEF FN STOP B[J]? LET ▝aSTR$ LET ▘ DRAW ▚ LIST <=3J2! CAT [P] LLIST DNOT LPRINT ▗ LOAD ? COPY LOAD BORDER V DEF FN POINT VAL$ @▜[O] READ [J]U MOVE BORDER TO @a SAVE c LLIST ? CAT ▜[G]▘7 RETURN (▚!STR$ ) READ ERASE 2BIN READ ▜▚< DRAW OR CAT GO TO MOVE AND ▗f POKE COPY t OVER >=.) DIM COPY [P]{USR DRAW ▘p DRAW LET STR$ q▗y|< CONTINUE ▖. DRAW ?8CXK3B: BRIGHT ;D'©RND▞ COPY ▗▘< COPY [P]SCREEN$ ▝ OUT N▗%RND<STR$ ▗▝ FOR SAVE ^ READ STR$ ▞ LIST b PAUSE ▘r RANDOMIZE POKE h PAPER [C] ERASE @ DRAW LPRINT S▘ RETURN COPY ,@▗ DRAW ▖/!pUSR SAVE ▞ COPY RETURN © DRAW G<=▗)POINT PIAO▛© INVERSE z▗IN ▖©@8p LPRINT USR [U] LIST Cf▘HnI▛'~© CAT DATA ▝▘N@ NEXT I COPY K90<=N DRAW [P] STOP SAVE DEF FN ▗ABS ![R]▜qL[I]$ INVERSE L LIST NEXT COS >=STR$ ▝ PAPER 0PEEK DRAW COPY DIM ▖Cg COPY ~8@©b▗[B] READ COPY `NOT ~@n^ REM BIN $ OUT xim<> LIST COPY )?.x~n[O] BORDER c<=© RUN POINT 3a VERIFY COPY CIRCLE FORMAT LPRINT M~USR AND RETURN <=8qk'@| DEF FN [P][I] DRAW CLOSE #d▗ STOP OUSR PLOT PLOT 2JKz COPY <> SAVE CIRCLE [H]USR LOAD OVER AND SCREEN$ READ FORMAT ▘1SGN LIST LEN 0 '▝CHR$ [? GO SUB E;P NEW <> NOT 1 LET TAN '(Y:$ VERIFY PLOT 9 READ O g!▘ BEEP OPEN #>=d LLIST LIST [O]CHR$ 8. STEP x▗ LPRINT DRAW USR 9SGN COPY OR ` ▗1=▘FN USR X^▗? STOP )STR$ /▘= STOP RANDOMIZE ERASE © MOVE CAT ▖ VERIFY CLS =/(8!?| COPY 9n▝ LET RETURN READ ?▖:=(9 RANDOMIZE ©[U]▟▝)79<>[A]▗ DIM OPEN #▞=PI LET ATTR )bG LINE NOT [P]z~ NEW `9/P POKE GAT ![Q]` RETURN ▜[F](CODE ▝0 AND COS G=>q[O]▘!RUSR NOT ▜CHR$ SAVE >=0@©<[Q]P THEN W LLIST ▝9EXP b+gWzE(g[L]#LEN Czg~x H`PN LPRINT @ COPY COPY ▘2[Q] BRIGHT EFHIK COPY COPY LNPQSTVWXZ[]^`ab COPY COPY defgijklmnopqrst LET READ uvwxyz{<= READ |}IN [J]~ COPY © COPY ▗H COPY PAUSE GO TO BORDER COPY [M] READ OUT zy BEEP wvutsr COPY COPY qponmlkjigfedba` COPY COPY ^][ZXWVTSQPNLKIH COPY COPY FECB@>=;:875420/ COPY COPY -,*)(&%#" IF COPY LOAD ~y< POKE [L] COPY COPY COPY I▖ PAUSE GO TO BORDER READ COPY CAT OUT BEEP COPY COPY "#%& COPY COPY ()*,-/024578:;=>d DEF FN !" DIM $% BORDER ' NEW 9 NEW RESTORE +, READ . LLIST 123 DATA #4 BRIGHT 67 INK PAUSE x9: MERGE STEP c COPY <= COPY >_- COPY ? COPY @ AND LET COPY GO TO [R][A] READ BRIGHT BEEP ERASE <>$ STEP <> OR STR$ 6SQR INK [F]ATN 3LEN /<>#RND+ DATA [B]'$z!TAN )▖▖4▙ CLEAR OPEN # NEXT = RETURN SGN SGN DRAW CLS STEP <> RUN NEW LIST PLOT ATN efLEN ATTR RND[P]zx LIST RANDOMIZE LIST INPUT zTT COPY TAB COPY [N] CLS SAVE 6l CLS [P]INKEY$ COPY 0RNDHIF9 SAVE FOR LOAD W BORDER VERIFY b RANDOMIZE 8 RETURN |[T]ZHVAL$ ~LEN PAPER RUN OUT RANDOMIZE |>[F]VAL$ [N] CONTINUE >=0` REM DEF FN VERIFY NEW S# FOR x DIM EXP k RETURN LIST ~USR SAVE @▟ AND ~ SAVE L<> IF 5 SAVE DRAW USR MOVE b NEW CONTINUE nTAN SAVE AND LPRINT PAUSE >[S]e CONTINUE x TO VERIFY USR REM DZ CIRCLE SAVE w^j RETURN COPY RETURN THEN RUN COPY <fJDi COPY INT DEF FN x OVER 7/LN BRIGHT [Q] LPRINT USR C3FN SAVE BORDER DRAW SAVE j[T] BRIGHT DRAW MS LIST ACS LPRINT ` DEF FN 5 LINE LPRINT f<>>=▖F IF TO x SAVE B▟ CIRCLE FORMAT DEF FN SAVE OPEN #e LIST LN [Q] VERIFY COPY MOVE CHR$ H MOVE FORMAT . RANDOMIZE H SAVE % SAVE LIST /-©/x SAVE IN V< SAVE COPY MOVE B SAVE l8 SAVE ASIN USR PAUSE 7[K] FORMAT DIM vm!~p STOP >=o INK TAN SAVE ASN o SAVE peu[E]CHR$ CONTINUE `|P= COPY DRAW STR$ THEN [D] PLOT ▛o RUN VAL PI▞[I]BIN ^ SAVE 0 BORDER fCODE h LIST 8▜[I][R]©& FOR PRINT DEF FN v[G] LIST NOT SAVE USR SGN D PAUSE [J] READ LIST ~?{ OVER BORDER GO SUB LIST <`IN >=▗0 COPY W[I] VERIFY /tyyLN INK GPEEK hQr SAVE IF PAPER TO IF VAL LOAD READ >=TAB 7 LPRINT CIRCLE LOAD % LPRINT LIST BIN qLN ATN [R]B[J][R] OR !oINKEY$NOT [O] LET / LOAD [R] PROT?|ACKE 2.1BYGD LIST OLDEN LET LLIST ISK SAVE CIRCLE (LN LET ▖ LIST ` LPRINT XcCHR$ |7VAL ▟@ GO TO [E]▟D SAVE VAL 7p, CLEAR 4PEEK ▗X BRIGHT h PLOT LINE MOVE h[S]|F[T]X8 AND ▟ SAVE OUT ▟CHR$ AT [A]h4{e[T] MOVE Q>▟F, AND _ LOAD [T][B] LLIST ]>=▟FABS SIN 4FN [P][G] MERGE h▙ MOVE CONTINUE [L]wpF[T]kd▟^YTh4OK[T] MOVE GB▟F?;4852 MOVE h/,F[T]*'Y▟%# AND AT BIN 0▟h4[T] MOVE ,W RUN ACS READ RANDOMIZE >=o RUN LEN FLASH ▟ POKE EXP FLASH DRAW TAB LIST vAT LET ACS POKE NEXT [O] ERASE CLEAR TAN - NEXT [A] LIST M RUN } NEXT ERASE |[O]tO LIST n COPY ACS u▜ BEEP LET LIST n[K]PG PAPER X LIST LLIST ATN LET J>= LIST LLIST LET OPEN # PAUSE LIST MOVE QNBIN LET LIST THEN PI MOVE LET ▟O LIST ERASE READ OPEN # LIST COS GO TO PRINT |l+S COPY NEXT RESTORE "▙[P]O~2![T] NEXT [R]#~" LPRINT SAVE 1[P] @D^ RETURN ▟#V"{[P]O TO a CLS p LLIST REM ▞▛?!▛[O] OR ?5p GO SUB VAL CODE 2▖[O] OR [J]▞ CLEAR CLEAR y[S]Y[M] OVER CLEAR [Q][K][J] OR CLEAR [R]t POKE INK LIST [J] CLEAR i POKE FOR CLEAR n[R]G/b PAUSE LOAD [P] SAVE PRINT LIST OR TO > PRINT CHR$ BORDER ]B SAVE ![O]"~, DEF FN READ CLEAR d[Q] NEW LLIST COPY CLEAR i[R] STEP v[P] GO SUB S[S]STR$ COPY RANDOMIZE sW[P]1f([O]> LLIST READ FOR s#r[L] PAPER = PRINT GO SUB h GO SUB I RETURN GO SUB * GO SUB ▛3?SGN NEXT CLEAR IF [P]F1yEXP CLS DEF FN PRINT NOT r[R]!W▜VAL$ eACS [O]Q PRINT 8 INPUT ▚D!&:P BEEP PAUSE RANDOMIZE INT SQR ▚ POKE CLEAR ")[S] CLS BIN [B]EXP <>{▜_>~0_< THEN #~ OUT H COPY NEW THEN Z COPY COPY PRINT 2[B][O] LET ~ NEW #ng INVERSE bd- FOR DEF FN TAN INVERSE }PI COPY COPY ATTR h[M]~#fo THEN :8 GO SUB R<> DIM ><(w[K] COPY ) CLEAR FLASH y<PEEK # ~2[N][I] POKE [P]} MERGE FOR x_t REM LIST PRINT LIST INVERSE . POKE DIM ▚ STEP [T][P] BEEP "▛[O] FOR [P] RETURN SAVE IF /[Q](& RESTORE >={PI PAUSE ;▞ LPRINT [Q] GO SUB DOBIN BORDER B0 LLIST AT 2[Q]CODE LLIST ▞)go" NOT LLIST 2~[S] LLIST Q POKE INVERSE |2[C][O]v NEW %~ PLOT PAPER [D][O]oAT ▝z▝s[Q]/ RANDOMIZE ▝t LIST z PRINT ▝▟WIN ▝ FLASH ▝INT RND IF ▝[I]▝FN WATTR ▝[P]▝LEN g▘▝ POKE ▝!▝WIN ACS w~[E]_,~{~ PRINT COPY IF ~ PLOT TAB BEEP ~~][R] OUT SAVE ~<[R]1~©[R]©*©! LLIST [S]%~3 IF ~ NEXT COPY LIST ~/^}[F][O]![I]IN BORDER COPY COPY VERIFY ! GO SUB v LET B GO SUB yCATTR =Z RANDOMIZE v BEEP ?▜<>CODE G>=▗ VAL$ (_,"CHR$ INPUT [P]o NEXT !▖[O]5 PAUSE RANDOMIZE 6 FLASH IN GO SUB PI TO v[P] STEP TAN [T]Z BRIGHT 2LNOT VAL$ _ STOP ▞ STOP STEP CIRCLE [U] RESTORE f BORDER ) BORDER LEN BORDER 7 BORDER K[S] BORDER OUT RND RETURN BORDER B[S]CODE 0 LINE VAL$ ; PLOT POKE [P]▙ATN COPY [T]t REM LLIST " RUN [P] ERASE POKE OUT 2m[S] INPUT i[Q] CLS $ DATA DIM d▛VAL$ DIM |kASN ▗[S] LIST IF INK pASN 2[E] INK C OVER VAL$ OPEN #W[F]Z PRINT ( OPEN #[R] LLIST RESTORE [R]bssrASN [L]n OUT [I] OUT vASN MOVE OUT [L] ERASE CHR$ RESTORE j FOR DIM [K] DIM NEW . LLIST [L] FORMAT DIM INPUT Z[L]y LIST 2 RANDOMIZE ASN Z NEXT LEN CIRCLE CHR$ CLS RESTORE r VERIFY OPEN #PILEN [O]ZFN PRINT [G]>M POKE OPEN #CODE [T] LET [L][S]:AT +©=(y2biz MERGE >7X<>,y2:O SAVE REM ( PAPER i. BORDER BRIGHT DATA <>▜ COPY DIM VERIFY !([N]^~ LET © INPUT NOT TAN [T] CAT &o" BORDER ATTR PIx PAUSE ▝[T]BINKEY$z DIM [S]- GO TO CAT EXP GO TO [F] GO TO o GO TO g"[I[Q] READ RUN SQR M;IN ▞PI*IN AND 8+$`DJg DRAW 1O▞@ DATA SAVE ▙<(3v CLEAR [K] CLEAR VAL CAT i LINE x[A] CAT (nI%x[O]x{ IF POKE "g[S]w!h[O]▜ATTR MERGE LIST ▙ PAPER ▗-M FOR 7 DATA 8 IF D POKE PIzSQR t+ LET E( GO SUB RETURN LIST D PAPER RUN > GO TO r>=[T]_ CLS [A] LIST STOP ]!( FORMAT SAVE IN LN := LINE ^[U]TAB BEEP y2<= BRIGHT CHR$ CONTINUE [[T] RANDOMIZE BRIGHT ERASE |{:[I] BRIGHT .y REM ( INK BORDER FLASH ABS ? DATA BRIGHT qs READ [H] CIRCLE [U] CAT ASN BORDER BRIGHT [T] LOAD GO TO LIST RND[U]m[T]9 CAT BRIGHT GO TO LOAD qEXP GO TO OUT FN BRIGHT READ RANDOMIZE ^ BRIGHT OVER BRIGHT CAT j') BRIGHT x[A]TAN COPY BRIGHT TO [S]z©w BRIGHT NEXT INKEY$ MERGE 9 DIM FOR [H][N]7 VERIFY y BRIGHT POKE OPEN # FOR BRIGHT INK E LET DRAW BRIGHT OVER © GO TO </ BRIGHT STOP BRIGHT x[N]ABS :[R] RUN LOAD PLOT CLS (>=NOT [F]RNDC:ns RUN = LINE PLOT yASN INVERSE COS ACS [S][A]m PRINT { OVER <> PLOT ) NEW L[R]CODE RND▜X[R]* OR { GO TO o& GO TO NOT PEEK <= GO TO RND PLOT 3 READ [J],/ RANDOMIZE z OVER @ RANDOMIZE &JABS RANDOMIZE J CLS ^ DRAW , RANDOMIZE g OR TO <(/ CLEAR [S] CLEAR COS RUN PAPER STEP z CLOSE #($PEEK RUN RETURN SAVE [Q]NOT OUT RND PRINT RETURN RETURN CLS INKEY$h[M]r GO TO > COPY ^[K]g<>>= SAVE %n▘QB LPRINT INK LOAD RANDOMIZE IN LPRINT SAVE k} i DIM 5W COPY L[E]HINKEY$RND CLOSE # CLEAR SIN IF *1INKEY$beb) TO j DRAW pBIN [H] STOP 7END OF COPY LET SUMER!?N[T] SAVE IK-O&T COPY STR$ LSHEDlASN [E]?> LINE COPY Yg GO TO b6 IF s5 POKE [Q][G]FN POKE PEEK SAVE l# RETURN CLS ASN 1 REM > RETURN ▙sCVAL IF | PRINT [S]8 AND ▟[J] j1 INPUT RETURN STOP [F] RANDOMIZE IF IF n& AND ▞ IF SQR Ag LET ▟ DRAW ▝[M] AND [R]!AT READ <STR$ / STOP |j`[R]Q(^[T] COPY OR STOP ©aSIN $INKEY$ASN POINT [E]HTAN TAB M[T] SAVE SIN LIST SAVE 1< LIST CONTINUE LPRINT READ ©ATN LPRINT SAVE RJFN GO TO ATTR POKE CODE SAVE TAN 4▟ LIST SAVE LIST OR LIST CONTINUE LPRINT EXP [S] DIM LPRINT CONTINUE GO TO P{c/~ASN p#7STR$ #USR 3c[M] PLOT NOT STR$ USR LPRINT USR CLS BORDER ©e[K] LPRINT Gw- RETURN ! OR z▗ RUN NEW w- BORDER RANDOMIZE RETURN !PEEK [R]▗ RUN BORDER [M] BORDER SQR [G]` RANDOMIZE RETURN !<= NOT RUN BORDER USR k[U] BORDER yLN LPRINT DRAW IN DRAW USR DRAW i'STR$ LPRINT CLS CHR$ RUN TAB LLIST LOAD BORDER PEEK Nr[S] OPEN #LX$N CIRCLE WASN !bN)ASN F# DATA $[O]"INKEY$! RESTORE ` DATA x_pATN ! LIST CLEAR 0 BORDER e PLOT )g PRINT O POKE [K] LPRINT ▖PEEK ©BIN <== INPUT RANDOMIZE RESTORE ©INKEY$ PRINT ~PEEK CONTINUE BORDER [P] LET [P] STOP REM POKE SQR BRIGHT OR PEEK PAUSE < COPY LIST =n REM FN PRINT POKE NEXT MOVE LET OR FLASH USR NEXT OUT { POKE POINT [R] CONTINUE 'p CLEAR I DRAW OR z#[G] RETURN ©▟ZSQR [T] ERASE I#[I]SGN [K]'#S RUN ! PLOT TAN POKE [K]# NEXT ! REM CIRCLE RANDOMIZE RUN POINT w FOR NEW [Q]` BRIGHT $Ks RANDOMIZE INKEY$AT RETURN = PRINT PLOT ! THEN [S] LET FLASH BIN NEXT M NEXT D NEXT ▛_tv OR PLOT [P] TO LN ©BIN ^X DRAW OR DRAW DIM pF TO DRAW CLOSE #IN DRAW CLEAR kPOINT 7 DRAW [O]B4▜VAL$ DRAW <=[S]R[K] AND DRAW OR NEXT BIN DRAW NOT b[E] DRAW CHR$ DRAW OUT @ COPY INT 6 DEF FN x[S]0ATN TAN [A]x FOR FCOS xSQR POKE FN INK a(VAL BIN USR FLASH a" FLASH ▖[H] READ DATA ( DRAW FLASH BIN FLASH LLIST SGN CLEAR LOAD aD BORDER FLASH ACS FLASH [G] BORDER STR$ VAL PAUSE ASN TAN FORMAT ▘COS IF VAL$ IF 0 CLS CONTINUE ▚ATN ATN ACS ▟ POKE IF ▝ LPRINT IF # CLS CONTINUE ] DATA #! OR `[L] STEP STOP MOVE #BIN HP~''PEEK SAVE IF ▞P CLS LIST i PLOT DRAW REM B11. FOR DRAW CIRCLE r LIST PEEK VAL H DRAW <= POKE GO TO I PRINT SAVE SAVE USR BA SAVE IF PI% CLS PLOT DRAW OR USR REM LN FOR DRAW HNOT CIRCLE INT LLIST i▞NINKEY$<> POKE © GO TO SAVE STOP x CLOSE #▖p]<> GO TO CLEAR IF IBH( POKE CLEAR v[U]$ IF CLEAR IF BIN IN Q[C] IF CLEAR BEEP IF ^ DATA CLS STR$ [R]i VERIFY CIRCLE PAPER x STEP <=" DIM [U][E]IN FOR SQR USR SQR BIN K[C] OPEN # CLEAR ▛ IF CLEAR ? RETURN CODE # OUT SIN CIRCLE 8M PAPER BRIGHT ASN ATTR WkTAN OR MOVE VERIFY BIN NOT DCHR$ CHR$ HSTR$ !2▖3IN | NEXT INT STEP CHR$ BIN LPRINT " SGN BRIGHT USR RANDOMIZE MK RANDOMIZE ` RANDOMIZE BORDER PRINT GO TO y[O] BORDER CHR$ ABS INK CLS lATN ^ GO SUB RUN ! OVER RESTORE STOP e, LPRINT LINE W'INT H GO TO TAB MERGE .# LPRINT PAUSE ?q COPY a[J]BATN @ATN DEF FN THEN L[K]1 READ rPEEK DRAW f`IN DRAW >,! DRAW USR DRAW CLS FOR RNDKK MOVE USR /▘[F]INT RETURN CONTINUE "SQR ▛t▙3! OUT O# REM >= DRAW CHR$ NEXT 0>/3y PRINT `USR CIRCLE ▛ DRAW STR$ DRAW a1! DRAW CHR$ DRAW nPEEK `V[G]'( RESTORE ])y<= RESTORE ▝@_ NEW ▚yy OUT PEEK i READ Ah LINE CHR$ z▜ OUT `[O]'ABS CIRCLE Tp RANDOMIZE RESTORE {LN ©SCREEN$ PRINT PLOT !<> 1 DRAW LET FLASH aDCHR$ NEXT 3 INVERSE ▜)LN POKE SGN z`CHR$ CIRCLE ▝ OR DRAW NOT DRAW VAL [I]! DRAW BIN DRAW # OUT `] THEN =` CLS .W CLEAR FORMAT CLEAR USR LEN / CLEAR VAL CLEAR [Q] CLEAR OR b[A] CLEAR CLEAR pNOT VAL$ CLEAR [P]ACS $ LPRINT , LLIST 4< STOP COS ERASE IF 3 OPEN # IF NOT IF BIN B(INKEY$>=ASN IF IF ACS &e IF [T] IF CLEAR [U] RUN [E]f▚ CLEAR RUN ▗ CLEAR RUN uy▚ CLEAR RUN e CLEAR P▞[L] CLEAR CLEAR CLEAR COPY RETURN RESTORE SAVE LIST [S] CLEAR ou▗O0 STEP b CLEAR MOVE f POKE CLEAR Fc NEXT ▜ POKE @ LIST ? IF PRINT LET GO TO REM CONTINUE RESTORE PAPER CLEAR IF a[A]0[A] COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY FORMAT HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP NEXT STEP R;; LLIST RND@CH OR INVERSE LLIST INVERSE 9 RANDOMIZE a INK > INK LLIST A)0; LET INK LET > LLIST A)8 SAVE SQR 8▘W VERIFY GO SUB ▘(O;SQR INK O0= LET <(Oo{[F]oz[M]g GO SUB VAL `PEEK ($ LET o INK LLIST A) INK 0 CONTINUE THEN POKE INK LLIST A) INK THEN 0 PRINT INK LLIST A) INK 8 REM $ CAT LET ATN ( AND O0>STR$ ; STEP > LPRINT LLIST A)8 SAVE INK VAL$ INVERSE RANDOMIZE !X' INK CLS <> LPRINT LEN ? RUN DRAW C` RETURN RETURN STR$ COPY ▜8 SAVE SGN 4 ad© BORDER ACHR$ RANDOMIZE ` LPRINT COPY W >=c)#$ TO ▝AA|2'6? OUT CLS 2CHR$ POKE @-P=[T] COPY w NEXT ATN n BORDER oNOT READ DEF FN OUT SAVE CLEAR ?~>y CIRCLE SAVE CLEAR CLS O MERGE © OVER IN XB[I]▟[F]▘A©<>©[R] CAT 5 BRIGHT <>LEN > REM [H] RETURN [Q]▝0"0p1 NOT COPY READ CAT [P] NEXT LOAD BRIGHT IN s" CLS | RANDOMIZE NOT LIST @ READ VERIFY CLEAR INT SCREEN$ CODE © DRAW PwACS ?STR$ RETURN LIST @[Q]:x© LLIST [Q]▜4zA[Q]©(t LPRINT STOP [T]?a COPY o[P]USR VAL [R] LPRINT PRINT [S] COPY G`?2,ATN n INVERSE [J] INK O SAVE DEF FN BRIGHT SQR { RETURN c NEXT READ CAT INVERSE ▝ RUN oNOT BORDER CLEAR }▚8~PEEK LPRINT [A] RETURN [Q]?UW[S]IN LOAD x OPEN #`/ FORMAT LIST ▗▜ DRAW LOAD CHR$ LPRINT RANDOMIZE >= OUT CLOSE # STOP SAVE CLS NEXT =2 COPY PI REM [A] 9 CLEAR [T]PI IF @@z LINE ©d BRIGHT STR$ DEF FN LN {Q FLASH DIM `[I] BORDER NOT LN GO TO RUN v[M] GO SUB [G]P[D][H]G RUN REM SCREEN$ ATTR N POKE <=k OR PAPER LPRINT ©▟t DRAW LIST CAT CLEAR {C OVER ERASE LPRINT LPRINT U GO SUB 1}/W?` LIST ? $/[A] SAVE LPRINT / CLEAR / CLOSE #@▝E]CHR$ [B]#▜n OUT Q© LET CAT [M]PEEK w▙ LPRINT %d RANDOMIZE kC'LN pIN LLIST dATTR LPRINT RNDm RETURN IN CLOSE #>=OoSTR$ OUT LIST 6AT *# BORDER DRAW ABS STOP [A] FORMAT _I[R]SIN ▜$tUSR LLIST 1 STEP USR RUN ATN [Q] SAVE RUN VAL 2 @$ RETURN [F] REM NFN [S] LET ▝@[A]`c IF Z&9LN TAB w LIST LINE NOT BORDER LOAD BRIGHT INKEY$ RUN CLS |y SAVE LPRINT >=( FORMAT [B] REM LPRINT CLS FOR PRINT IF [T][P] BRIGHT * RUN U@L2? LPRINT ATTR ▞ LOAD CLEAR [S][[Q][R]b? DEF FN CLEAR LPRINT ▗[U]' LET LEN [K] RUN BEEP LPRINT RUN t IF [S]2D DRAW CONTINUE ~ LET PA INK ( INVERSE [J]EXP DEF FN STEP , REM ;s FLASH READ NEW [R] DRAW REM o IF LOAD CONTINUE =CODE STEP INPUT PEEK IN }~Q LLIST ATN <=CHR$ ATTR LOAD MERGE VERIFY LPRINT LINE ▝ASN ©BIN [Q]VAL LPRINT RND THEN LPRINT [H] LLIST x[Q]▝CHR$ Hc CLOSE # PAUSE RANDOMIZE X▗ DIM STR$ ` a PAUSE [T] CLOSE #▚ACS P[Q][G]& LET Z RUN AND ? OPEN #SIN CLS o CONTINUE pSQR vLEN CLEAR RETURN [L] BEEP NEXT ATN PAPER TAN [Q]PIx_PEEK SCREEN$ CODE ASN © TO RUN OUT } RETURN LIST =u_` MERGE © DRAW = RETURN ![P] CLS CODE LET ) DRAW @ CLEAR FOR PRINT BEEP U REM ▝ OUT W_ SAVE c NEW NOT OVER [A]Ka IF EXP s RUN CLEAR =|[R] FN VERIFY ;uA OVER UK▝Yy MOVE REM : OUT [Q]7[L]W LIST [L];?SQR [L]T RANDOMIZE ▜ CONTINUE OVER r_OCHR$ DRAW SQR (TPUSR ▛w MERGE BIN ©" READ q[A] IF IN /W[E]USR BORDER ^Y PLOT r? COPY BORDER LINE { SAVE VAL$ NOT READ j NEW LIST C?USR © CLEAR STEP RETURN IF ATTR SCREEN$ PEEK CODE REM B© LPRINT FN { RETURN 79LEN @ SAVE MERGE IF REM SCREEN$ 5@CODE [M]c>= CAT [D] CLS PAPER BEEP mATN lUSR CLEAR CLS EXP ;0CODE [D] FORMAT ,[C]▜SCREEN$ LIST [O][N]NOT IN IF [G] LPRINT ,[S] RANDOMIZE POINT PLOT MERGE CLOSE # xATTR /ACS SAVE 0Pa[G]c+z[N] SAVE ▝C}CHR$ CAT _[O] RANDOMIZE © DRAW LOAD sSTR$ ATTR RETURN CODE FN DRAW b DATA © PAPER IN DIM PRINT PEEK :w5 OVER COPY NEXT NEXT PIPI? PAUSE STOP IF PI0< PAPER RUN WU_C PRINT s5 PLOT v AND LPRINT 0f CLS ATTR sQwo RESTORE T[H][A]IN FORMAT IF FN v BEEP }LEN LLIST ▘ CIRCLE ▘PEEK SGN [R][M]d LLIST ▗P▞ULIN OUT LOAD ,/+ CLEAR CAT 9J` POKE RUN w DRAW [R]ATN 6 PRINT U/B©<> LPRINT ▝ IF [O] PAUSE v SAVE JCODE © BEEP CIRCLE =Md FOR ?[P]}^IN " THEN [L] DEF FN 5LEN W? OUT COPY 7 LIST [P] PLOT LIST READ b RUN CLS INT VAL$ CODE SCREEN$ PLOT ASN PAPER o▝f CLEAR {VAL$ IN RETURN <>PEEK T[ LOAD OUT PRINT RESTORE LET mCT OUT 9ATTR } FORMAT *SCREEN$ WATN CODE Yo CLEAR XC~ LPRINT INKEY$ OR ▜<=/[R]*BIN PLOT [R]RND4 FLASH ? PAUSE PAUSE W/[O] MERGE INT USR "VAL OPEN #69 TO O▘! COPY [C][H]Y+ BORDER 9$5 DATA ^!IN LOAD LIST ?E[H]| LIST _ CLS STEP CAT RUN U_ MERGE S COPY GO TO i LPRINT [A]qATTR CLEAR ABS _w[Q]VCHR$ INPUT @q0} CIRCLE VAL w LPRINT ABS DIM RETURN IN CAT REM ▝▜ DEF FN ▞MUSR ©3 PLOT © PAPER LLIST n[J] LPRINT Az?6~7uwZSTR$ eqp %▝ INPUT ATTR } NEXT V DRAW x3IN q%[A][O]ATTR USR 0 LPRINT CLOSE #;[I]`g3BIN d?1 GO TO ![I] CLS PLOT O LPRINT ▛a▙ CIRCLE C OUT ▝ OUT RUN LPRINT < DRAW <=U LIST INK SIN VAL$ IN CLS SCREEN$ STOP VAL$ 7 RETURN OVER TO ;1mCOS x [M] OVER CLS LOAD DRAW >VAL$ SCREEN$ " RETURN @CODE BEEP CLOSE #@ RUN LPRINT LOAD . RETURN [H] LLIST VAL SCREEN$ ▜*IN ▜ GO SUB CONTINUE STEP / RESTORE CONTINUE IN ! RANDOMIZE CLOSE #AT LET %URG ERASE INT Pm1LN CLOSE #5FN RUN /] SAVE LINE REM [H][O]WABS USR ASN ;VAL$ SGN " COPY [P]STR$ IF LPRINT 1IN ? COPY [O] VERIFY [B] BRIGHT C LPRINT ![L]= LOAD USR H SAVE RNDkb/ REM © RUN INVERSE COPY _[F] PLOT LPRINT VAL } LPRINT <= PAUSE c RETURN LOAD ] MERGE RUN MERGE WS▞PI DRAW [N]USR ATTR PIABS qf RESTORE ATTR OPEN # OUT W LPRINT TAN Q[H]AT RETURN LET LPRINT SGN © INPUT %rbU!w▝PEEK >puW©CODE SAVE )C CLS RETURN CODE BRIGHT + LPRINT CLOSE # LOAD DRAW [R]▞[R]" TO r NEW WSIN LOAD NEXT VERIFY X=, LPRINT !>=_ OUT IF [P] CLS INPUT SCREEN$ INT CLEAR TAB SAVE ~LN i PLOT uIN s BORDER CODE DATA REM CLS 6,[F]W0[Q][R][A] LPRINT Zf[M]jvO▟ MERGE ATTR LIST * CAT a CLS LPRINT 6 GO TO MOVE k READ [P]IN GO TO RETURN 7BWu!;[A]_9FN ABS k PAUSE ▜[P] INVERSE VAL _DO LLIST STR$ ABS USR ATTR X DATA Wy"[G] FLASH TO OPEN # BEEP FN OVER t DRAW LPRINT D^© DRAW 6[L]SIN kH.7L DRAW !SIN USR IN CLEAR FORMAT CHR$ >6 PAUSE DRAW CODE LIST y CONTINUE IU LET _{A[S] NEW u COPY VAL$ INVERSE e<WBIN USR READ *gABS CODE BW^ STEP N SAVE 7 PRINT TINT © LPRINT OPEN #▛>VAL PAUSE 2 AND PRINT E DATA ©" RESTORE T CAT OUT e RETURN CLOSE # CLEAR IF CHR$ PI`F RANDOMIZE ? RETURN QF OPEN # READ @©5IN CONTINUE LPRINT c CLEAR ▝/ LIST y[T] OR CONTINUE ,d DATA ABS SQR USR BIN RETURN FN PEEK ▙@*ATTR RETURN t GO TO (? REM [Q] z"SCREEN$ IN LIST [T]▞h COPY POINT CIRCLE :` FORMAT BIN CIRCLE INT REM OUT ▖" CLS DIM z DIM IF [S] RETURN SIN L▛DFN NOT ~ LOAD PISTR$ SIN USR LPRINT y INVERSE OVER LPRINT 1 COPY y THEN SQR < SAVE bt DRAW USR CLOSE # LPRINT SAVE ?E OUT © CLEAR [E][B]STR$ Wx[O][L][N] LIST MERGE &4U_b#>Q▜ DRAW VAL j PRINT >A▜COS EXP MERGE >=IN T ERASE ATTR © RETURN FORMAT i RUN INVERSE STEP o RETURN LET IF COPY %c?EXP {^"<dDX_USR [F]TAB ©~6 NEW ASTR$ X BRIGHT [O][K]F~▚IN LPRINT GO TO !b IF [S]}ATTR @POINT y^[F]M©SCREEN$ BEEP SCREEN$ CODE ▛ IF ▘BU* CAT ( LPRINT ~? ERASE CSTR$ NEXT CLS a▜,> RUN CLOSE # FOR SAVE NEXT COPY STR$ /2©VAL$ b▛,USR LINE STEP STR$ C7© FORMAT o COPY !_G0! CLEAR D(eIN y MERGE HU_b!>Z[F] fp©USR /%>W1v REM [P]e} OR +1 RANDOMIZE 6vSPEEK [L] GO SUB !(uCOS ` POKE ©t GO TO IN :USR B INVERSE IN % IF jd LPRINT SCREEN$ IN +[F]^ DRAW SAVE BORDER R CLS FblU SAVE ?FN [Q]I-SIN [S]jVAL$ IN LPRINT :©8 OPEN #POINT [L] ERASE EXP CLEAR THEN [J] COPY _ CLS b NEXT "_IN STR$ USR RUN v LPRINT ~! VERIFY RND LPRINT USR LPRINT ATN BIN FLASH PRINT T IN Q,!Tf LPRINT RESTORE GO SUB AE! PRINT U! THEN READ DRAW FOR B DIM POKE <CODE STEP ~ READ [Q]<=f INPUT VPI6 NEXT LIST FLASH 1[I]PIIN y CIRCLE RETURN Oz/! LPRINT s^>bACODE !cASN REM JSCREEN$ [L]W CIRCLE n> FOR Z ▘*! CIRCLE PI?[M] REM SCREEN$ ▖[K]W-~FN CODE >~ CONTINUE SIN [E][P]pACS l[Q] LPRINT STOP CODE [O]8G, CLEAR BBIN ?z[G] A_, ~8 !mx[P] READ [I] POKE LIST .*[H] COPY 0 DRAW LET !@~ _% Gvx LLIST ;0 .xaSIN GB IF LET @CODE A LLIST " GZ=g SAVE ▝d FOR SAVE !z SAVE 9X RETURN r'! CLEAR 4|??< STOP " DRAW C▜©! RETURN ? [B]$8! i?& LET Dz F a!▜ LET NOT [A]k OPEN #!8 COPY NEXT !Zl[[T] GO SUB VAL INK "[H][!STR$ VAL$ RETURN COPY OR A GO SUB s1:PEEK NOT [ GO SUB LN 4l` INK LLIST A)0; LET INK LET > LLIST A)8 SAVE SQR 8▘W VERIFY GO SUB ▘(O;SQR INK O0= LET <(Oo{[F]oz[M]g GO SUB VAL `PEEK ($ LET o INK LLIST A) INK 0 CONTINUE THEN POKE INK LLIST A) INK THEN 0 PRINT INK LLIST A) INK 8 REM $ CAT LET ATN ( AND O0>STR$ ; STEP > LPRINT LLIST A)8 SAVE INK VAL$ 1wi![O][ GO SUB VAL ! INK NEXT NOT G[K]SGN LPRINT NOT &STR$ CHR$ o>=[K]0[I]_:USR PIG>= LIST RETURN LINE D LPRINT ▝JSIN =2▘? RANDOMIZE THEN gCHR$ S<>x RETURN >) STOP LINE MCODE NOT BORDER $8:;CHR$ MERGE POKE STR$ <>>#L#~ RANDOMIZE ▝:NOT ▞ OR -&j COPY f CLEAR GO SUB PLOT LPRINT aIN i<>[O][C]} SAVE ▙ LINE AAi COPY [C]<>[M][ RUN " COPY z SAVE qf PAUSE /0O[S]"#ACS RETURN DATA ▘ READ >= MOVE V LOAD COPY ?[K]6/[S][J]F.%/[D] BORDER :USR x[E]>=Y/ DEF FN READ POKE /▟LEN CIRCLE ? BEEP STEP INVERSE STR$ : RETURN READ LLIST COPY CHR$ A<L INVERSE [G] OR ERASE POKE ! INVERSE RESTORE [D]![E] RETURN ▜ COPY ▝Go& LINE <> LIST "rSTR$ #B-|▚N* STEP ATTR o STOP $NOT USR TO i PAUSE DEF FN [Q]"J&vLEN . SAVE ©SGN [T]A RETURN INVERSE LLIST <>v▖XCHR$ COS PI[P]▛STR$ u▘[J] # SAVE TO t!$ STEP INKEY$ AND /6'▗&INKEY$ MERGE [C]STR$ L[S]tH▛5MINKEY$ COPY M!▞0 DIM 6▛? GO SUB VAL > SAVE 2[A] POKE FORMAT [K]o OR > COPY STR$ $ PRINT <>:e LINE <CHR$ GL8x INVERSE CHR$ MERGE STR$ 5 ▗[F] PAUSE DATA CLS ySTR$ NOT $=YE SAVE 9 STEP PI LPRINT M[M](Y PRINT GO SUB THEN ~ TO [P]CHR$ FLASH ? FLASH W DIM 1/ NEW [M]▚G/>BIN l[B][B]d[A] ERASE m[R]T[C]▛J[D][G][Q] STEP PLOT STR$ ~5[O] LINE FBIN NEW CHR$ hNOT RETURN @CHR$ I f▘EXP B%STR$ F NEXT OPEN #wLN (0/"[D]G DRAW PLOT SC LPRINT %W@ BEEP 9@ THEN ©CHR$ s[B]- OVER 8,l[H] AND aNOT :&& LLIST STOP KK>>='MfBIe5B[D] READ *)+pZe▝;o[R]e AND e "~ CONTINUE ABS [Q]S PRINT LN ^▗<=mSTR$ fnF PRINT J▚& STEP FORMAT BIN LET 4[R] LPRINT =~VAL$ <d ▜ BRIGHT PI:q[I] 2[A]I BORDER . INPUT [J][D]JNUU▟▘ THEN 3?▟ GO SUB ASN tu! REM STEP 1n+`a$PI MERGE Z<><=[B]POINT >=T] GO SUB R VERIFY [L]DM[H]USR #V FOR 5 RANDOMIZE r+s<>Ff▖ OUT P~ RETURN ` LINE FLASH ▗▗BIN aBCHR$ [C] OR b$Lpd,CHR$ e[D]0 IF 5 DRAW ▗_USR [A]▗ CLEAR u&tG▝ LIST RUN [H][L]xR[L][G]- MERGE ~ DIM [L]ACS THEN ?FN ZLN 6 FLASH DRAW 8#= RESTORE * RETURN ▟o GO SUB [USR LLIST >=7 INVERSE F,SGN 3w DIM e▜ TO GNOT FN CHR$ ERASE REM NOT ! OR 2<+&▜COS _<= LET CLS RESTORE N#FCHR$ qACS p LLIST [D]?PI>=" RETURN PAPER FOR [L] PRINT &o$IN ▘ GO SUB D NEW 2[C]|USR w6. CAT 0n THEN © LINE (K [I][D] COPY PAUSE 6 RESTORE %B*.5ZmSIN L LLIST "=,SGN x [I] AND +PBIN n[S]fATN ABS O#0S<=G▜ FOR )L DEF FN >=VAL _ PAUSE 6V[L]ZTAB jASN &*[U] MERGE ([R]TAB F[G][M]Z[I]t FLASH `VAL$ IN ▛T3PI LINE AND G PLOT [R]VAL$ USR x ERASE [ NEW / NEW 8)) LPRINT CHR$ 9▞ THEN PAPER "CHR$ [H]#@ TO TO ) LET ATTR ▜INKEY$t[R]" STOP o[C]AT #:,[H]+2STR$ 3 TO [ LIST AT TFX-▛SGN ][E]2SGN RANDOMIZE BIN 'cFN CHR$ STEP MERGE $.LINKEY$ AND FBIN ▘I&IN LPRINT INVERSE n f!~ RETURN SAVE LINE BCHR$ R AND RANDOMIZE $L[ IF sLCHR$ CLS d DRAW CHR$ $= CLEAR H[S](*ATTR V RUN THEN RESTORE VAL )Y FLASH FORMAT <>[Q] INVERSE sY GO SUB TO r LLIST RETURN U"AKt>SCREEN$ !COS f$ATTR <= PAUSE LLIST IN BRIGHT COPY USR TO " LIST ▘ FOR ]< VERIFY W OUT n[P] LIST USR @ NEW [B]<0A PLOT VAL$ k, LIST ATN ▘O USR NEXT >=USR USR [R]{USR USR W6 LIST USR SAVE BRIGHT 00STR$ FN 00[A]y00dP00=,00< DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpjd^YTOKGC?;852/-*(%#!ATTR Z CAT : AND X.zZzJzz?INKEY$v COPY COPY "$&(*, OUT COPY .02468:<>@/▜) IF q CAT pVAL$ PAUSE INT LOAD ` RETURN #▚ASN L# RETURN #USR ▘ DRAW POKE OR ?" CONTINUE [I] STOP FF_>3 RETURN DIM [T]i DRAW 6 DATA do SAVE POKE LET LIST :LN a GO TO REM lSGN ▛,M AND RETURN INK DRAW PRINT SAVE Z REM PAUSE <> LINE SGN A<>< CLOSE #F]▙INKEY$ COPY +ZsVAL DRAW CLS L[Q] LLIST IF " PAPER oASN RETURN STR$ COPY L©Y[E]▗▘+"[D]S* RETURN USR NEXT a`% LPRINT ▟),b`.1▞@[J]$▙I OUT ▜.INKEY$M▟HD hqaF`0H=P LINE A▗| IF RETURN ?<>'`axG IF ▜SIN ©▝[T]TAN ERASE F7▝D/= RETURN <=_CODE nb!cTAN ~? LLIST # STEP 7? THEN 0 PLOT { COPY ▙<>%&"> STEP ATN NOT ▘[T] MOVE ASN 0 DRAW @[M]W[U]1©*)w RESTORE LET 1:I SAVE (m! REM RNDP"▖" LLIST DRAW RESTORE 77$<I~>80[A]0<?INKEY$ABS eZ[G]9r0[C]1G/SGN M- CLEAR l DATA $90`▘ LPRINT Lnv%8@F`~!jVAL [Q]>=[B]l`p`|▜ PLOT FORMAT [H][A]@p'TAN >9^4▟lo MOVE [R][K]CHR$ v[D]~4 STOP ▝ LIST ▞ RUN JV^@@~%]`5`A VERIFY Xxl[T][I]LN TAN n STOP 78$lhLN [A]3p; THEN Q-8B[G] MOVE (v7INKEY$[B]0P[S] DIM 8 BORDER THEN LIST ~ OPEN #HXFN /=CHR$ p6[Q]NOT C[B]▗N(pTAN F) LIST ` LET >= BRIGHT [A]>=,Z(c}36 PAPER x008B CONTINUE <l`6@6HUSR + VERIFY 5?% MOVE MOVE [C]xLEN O@eh8m LPRINT NEW rSTR$ 2 DATA F^I[T]SXvjiD/[H]0P&aXNOT ATTR P8`[B]VAL 4=@7 ERASE 0Ml LPRINT bM~FVAL MOVE T[A]|[H](USR GO TO ▖CVAL 7QLN P(< RANDOMIZE <B[J][R]▙ 1 INKEY$ATN v-? DEF FN LIST PAUSE h PAPER ▗c7 USR : GO TO >= LIST 20gTAN NOT 0oW STOP @P NEXT 3 AND [A]LN .< FOR SAVE LIST IF @M@ COPY ] OR 9m▛s[U]: RETURN DRAW #RND?>o STOP )4VAL$ 0<[R] MOVE 02i#NOT M THEN s3@ LIST #AT P COPY |L50 RETURN p2SGN o FOR SAVE LPRINT qd[O][M][O] DEF FN TO LIST COS 1. SAVE PLAYER COPY @ LLIST [S]^S LPRINT STOP 3v GO SUB xCOMUT BORDER /4(LelsL LPRINT ) COPY :K CONTINUE Oyboard;e|mpstnSGN 0:Sicla9%r8DefH (sh CIRCLE ©S@ IF AdOl198 COPY POINT [I]P%yr© NHiB FLASH PkO BRIGHT COPY Rr OR EDWAN|Wspe d< DRAW M3[S]i+:w`RNDLUR<=. CAT L DRAW 7W[A]G<[P]> AND SIN BR%LU SAVE 1e<=zPI#XK' AND LOAD C COPY SC*IrV*y% CLOSE #GAY!NMIU}DHR TO ▜>&P[N]4]TOACS 7T3i COPY MB[Q]#PEEK F LIST [O]A0S? COPY h:NVAL$ DZ[P][C],W(tFrame[H]sD[Q]otoKABS ?Wins-^2G" REM eOv-D©qwn TO <>zNOT STR$ DIM [R]NOT USR BRIGHT [P]USR NOT HNOT VERIFY CHR$ *[F]FN GO TO 8x FORMAT CODE 8 REM IN Y MERGE !@ASN EXP BIN USR FKCHR$ USR =xSTR$ STR$ j▚ BEEP STR$ STR$ NEXT ▝B3STR$ T AND STR$ [R] NEXT NOT USR $CHR$ NOT QcUSR USR pBIN BIN 8/STR$ CHR$ 1STR$ STR$ [U] SAVE USR VERIFY 4 LPRINT c▙ LPRINT LPRINT x LPRINT OR n LIST DRAW RUN # LPRINT ` RETURN EXP a LPRINT [K] FOR LPRINT `t;a LPRINT ) LINE USR `ga LPRINT A,`bR>= LPRINT LLIST TO N LPRINT LPRINT >[E] LLIST b READ EXP LLIST LPRINT U LPRINT LPRINT ]8 LPRINT LPRINT MOVE 0` READ INPUT PLOT ▞dLATTR 9>`▝ THEN ▝[K]▝ LINE CODE LPRINT DIM d`2kEXP l%, GO SUB ,/ RANDOMIZE [L],,$&<w GO TO ▛▝' LOAD p[B]h1c0q BORDER S0VAL LN b.2 ERASE YB.'D▜[NOT USR EASN BIN STR$ DATA STR$ STR$ >=p▗USR |[ATTR LOAD l%[Q]CODE SQR ▝▝b▘▝▞TAB BIN LPRINT =[J]d LPRINT IN U LET l PAUSE FLASH 8up+[D]INT ▟oACS I7 CLOSE # CIRCLE mR▖&&KlUSR C INVERSE [A] LINE USR PAPER READ / INVERSE s OR STR$ @<= VERIFY NOT 5HxFN [K] PAUSE [J]8[U]BIN A CAT k`aNOT |`a5 LET `` SAVE [J]LN xUSR :kBIN |©~ATN [D][S](V STOP SQR PLOT a#NOT AT DATA `VAL <O,<> INK ▝t8i#▞{ LPRINT " POKE LLIST LLIST LEN ~``RNDW`b▘[A]a`rx LPRINT sCOS XxN CLS XX[C]/ LET THEN a ^Ud LPRINT INT UL| AND DATA 7DVAL$ SCREEN$ LPRINT nATN } BEEP FOR READ OPEN # CLEAR yx OR ▛CODE INT mTAN O RESTORE +y VERIFY RANDOMIZE ]MSIN #vU= FORMAT TAB PAPER RUN "2VAL B`uUSR @LEN RESTORE STR$ NOT C▖8>={▝Y3)ASN FORMAT q LPRINT LEN LOAD ▝ DATA PRINT SQR ATN LPRINT STOP IF >VAL LPRINT a NEW i DATA LPRINT POINT x!▚lT▝ STOP [F]8ATTR [B]CHR$ 6 FOR .FN NOT ALUSR STR$ [/STR$ BIN INKEY$[O] OR STR$ _k CONTINUE STOP NEXT ▞hD?VAL$ OVER tLEN & OR USR E[A]USR NOT RND>=u[T]fgy[B]SQR - #S LPRINT LPRINT FN ` READ GO TO ▗ LPRINT LLIST *Aa9▝ FLASH ▝▝[L]ABS ▝A[I] REM ` LLIST TAB [B]j`a[H]d`PIACS ▖NOT COS RUN ▙" DATA [M] CAT `` FORMAT ▞LN xTAN PAUSE POINT X STEP [I]X LLIST 88l MOVE X CIRCLE POKE ex8a8XQ TO PRINT :- ERASE :SGN ATN [N]$RND RANDOMIZE SQR <o▛< DATA ]_ FOR STOP ERASE L- STEP [N]b,[L]%|9[H]CODE ▛O GO SUB LIST P[N] LINE SIN qSCREEN$ [F]_ CAT &tABIN a BEEP STR$ {PI1<> LLIST P SAVE >=Z BEEP CLEAR [I]8 OPEN #LEN X[D]J©▛`![F][E]`aV] LPRINT STOP NEW d[S] LOAD STEP TAB F▚VAL FORMAT * RUN 0p PAPER PAUSE 1x[G]s MERGE [J]> COPY LN READ X DRAW RANDOMIZE Z[O]PEEK CIRCLE INVERSE E▟ RESTORE INT kOUSR STR$ BEEP 7NOT BIN CONTINUE CHR$ USR qUSR USR [F]/<=NOT SoCHR$ CHR$ 0[Q]STR$ CHR$ LLIST CHR$ NOT kgNOT USR DEF FN STR$ STR$ ATTR aSTR$ OR !(BIN USR B▘FN BEEP INVERSE C[O]: FOR LN INKEY$▜VAL$ DRNDA& INVERSE PIUSR NOT 1BIN CHR$ ZCHR$ USR LET CHR$ USR [I][D]X>=mTAB =XXINKEY$ OUT X CLEAR [98USR eBIN .USR CHR$ c<>USR USR IN USR OR COPY OUT <> AND 7hia DATA Qyx- GO SUB OVER [A]▝>=[H] OPEN #LEN 0/0pw^p LIST ;[U]2dSQR &`C@PEEK kf▟[C]^▟[M] LPRINT O4ka CAT LRND DATA n▞▛IN l DIM OVER u$` LLIST P H LPRINT LPRINT z DEF FN d`|[M]gL} IF RETURN S/ GO SUB TAB ▝ MERGE f▝▝▜&Z▟CHR$ (▝▙▝▟[T]▝▝[B]M▝▜STR$ AT MOVE 1▝F▛[A]CODE MERGE GO SUB [I]pVAL PEEK PLOT 206pABS PEEK &P PRINT STR$ BR[F]STR$ OR I CLOSE #USR STR$ ▝eUSR OR IF SCREEN$ OR CHR$ '<=USR STR$ RETURN USR USR LPRINT CIRCLE USR USR SAVE , LET >=COS A$[R] LOAD LIST [A]▗~LEN 0,!VAL p[T]0VAL {PEEK 0LEN CHR$ qp[E]<VAL 0ACS INVERSE @2 READ S INVERSE BIN USR mUSR USR CLS GUSR NOT r?p LIST SGN PRINT VERIFY > LIST >= PAUSE [T]798XX INK 8 CIRCLE <=Ixix LPRINT FN xVAL GZ CIRCLE COPY n RANDOMIZE 2sT BORDER SGN JABS LN BEEP VERIFY AND 6PIQMK LLIST ![R]) LLIST LPRINT vz< DATA }# SAVE ▝[ PAPER RNDNOT SCREEN$ tP▚/RNDb>5[ PLOT ▞SQR STEP 1NOT LET ▟![T]3q LLIST ▛SIN CLOSE #! VERIFY @3 BRIGHT [A]QK NEXT }4SIN CLOSE # VERIFY J3 LLIST ▙ RESTORE FOR K POKE LLIST NOT }[B][A] ERASE ▛[G]| STEP TO PLOT x GO SUB M INVERSE ^ SAVE /VzPI PAUSE '▞!SGN RESTORE ACS PIATN |>▞[A]:00%TAB 6$ OR ©z AND @ IF ]▞[Q]p' PAUSE W COPY ©K OR MERGE RESTORE PI GO SUB R8 CLEAR LLIST SAVE LPRINT NOT p▞ IF }#G6!>bc MOVE LET GCODE LLIST t NEW <qSGN [L]'NOT ▘@G GO SUB s0 RANDOMIZE x RANDOMIZE { VERIFY @? MERGE m COPY _▚ MERGE >CODE [A]G SAVE WxPI7FN SAVE g&▙y<= OR oSTR$ RESTORE CLEAR SCREEN$ PEEK LPRINT k_ DIM ▖ OR |©ATN REM NEW PLOT Xg RESTORE ;@ COPY s9 GO SUB {T<> OR INVERSE ~ RETURN COS SAVE KO8 THEN MOVE z[G]s PAPER OVER ▘ INK NOT /$$▛[P]$>=[O]$?$X$$SGN $,~$ DEF FN $ STEP + COPY $~1$$PITAN (# LINE CIRCLE POKE "0CODE 8 OVER FOR [E] BRIGHT ! DATA LIST COPY COPY 9 RANDOMIZE LET (83 MOVE LLIST $ DIM A▝A CLEAR : LIST *[E]y!8!STR$ DATA (!"INT ?# DRAW DIM + RETURN ~ACS w PRINT ^,- COPY $| NEW } AND ov OR 8 VERIFY ga AP▝p▚[R][A]STR$ VAL LLIST FORMAT b LIST ▛9. CAT ! k9- GO SUB [Q]0z"SF{E_E▙▟EWNOT BEEP NOT !3PIf_NOT 0|u[C]▛ LIST [R]>[F]ACS RESTORE [Q] PAUSE 8[S][P][O]BIN Q[U][M]FPDIV<>RND:▚-n[VAL$ b FLASH OVER 3▜@NOT VERIFY .▜TAB OPEN #ACS ACS DRAW ; NEXT mM PAUSE VAL ▙7 CIRCLE READ [p^ACS [C]AT USR CHR$ o+%a FLASH [O]ACS -0NOT [O]i 8 OPEN #ACS [O] THEN m GO SUB PAPER PAUSE [A] OPEN #/@h FOR DEF FN . BRIGHT qVAL$ _<Y0 ^<mBIN X7 DIM xx`>h^m INK RETURN VAL$ CLEAR #Zn[P]ACS [<= 0▟ TO F OPEN #P@ OPEN # CAT ▟ LIST *p LINE SIN ACS LPRINT USR - COPY ^[P] AND [Q] DRAW @[P]`a?[Q][L]INKEY$` 86DR COPY READ AWCOS SIN ,(VAL$ + READ )@-#[T]0M1JSQR VERIFY T[E],1[I]b6^ PAPER RND[S]LEN NOT )h TO ▞ OPEN #r<>RND| PAUSE i$E▚ COPY E[A]AT >25 OR SQR [K]Q[U][I] PAUSE EVAL$ LEN ▞CHKYLN O>=RND: TO CHR$ OPEN # OUT DATA [E]2A TO PEEK ▞O3 VERIFY ▟7N LPRINT RESTORE ▛O REM O POKE FN OEXP YTPO| RETURN O© PAPER PAUSE 7O O ERASE O MOVE OR 84& RESTORE (O0O: READ [O]OKAYS DATA (DPN[B]C▘/QXQZU PAUSE b[Q] LPRINT RESTORE >= INVERSE LLIST FN VGPI0 OUT .: VERIFY [E](LN VAL STOP RETURN jh LPRINT ▚© STEP *VAL$ THEN O(ASTR$ S[I]g LOAD bG OVER ~ OUT LET [J] LLIST } AND _T▚w OUT LIST ,04PI PAUSE =[F]5~># LIST <>CODE 2 RESTORE [E][O]`~ VERIFY [Q], OVER [M] NEW 8+- FORMAT LPRINT ABS F$ CIRCLE >3 GO SUB DJ BRIGHT w<>t804o LIST *l+ MERGE FOR <= INVERSE RETURN My2LEN [F], OUT 0 INVERSE ▚ INPUT PLOT LOAD MOVE ▚ GO SUB PAUSE FORMAT [F]X LPRINT INVERSE PRINT [J]8[F] NEW :'<, LET STOP e2 LIST [G] THEN 9:[ FORMAT '4XNOT PAPER / SAVE o<> INVERSE ^V CLEAR nf#@ FOR Y0NFB`[K]B DATA BRIGHT [E]ATTR [Q] INVERSE FOR ▘<=D[G] STEP Q[H]B[M]<> INPUT COPY g} AND OUT o FORMAT $m[Q] INVERSE x OVER 4:[D] LLIST RESTORE TAN Y"_! LLIST [G] LLIST a-_YATTR ASN ec's] OR 1d LINE z RETURN ~ INVERSE PEEK ( RANDOMIZE [N]8C- NEW s INPUT RETURN 0 CONTINUE ATN * READ F[P]N FOR *0}[B]|[I]BIN 0 MERGE 4STR$ SQR 8 TO FOR Z rABS 9EXP ^TAN [I] GO SUB {T/[I] MERGE CLEAR <>~PI CHR$ INK Bt RETURN [D]CHR$ NEW S[X▖PI&NOT [H]"d 2 CLEAR INVERSE 6 CLEAR ASN U"#"(PI INK CODE 2▘3 INVERSE I CLEAR w PAPER / FORMAT BEEP FLASH PEEK 0 MOVE <> STEP [G]QR[H]#AT LIST DRAW 7/[G]|ASN : BRIGHT RETURN PI4( GO SUB D2 POKE [H] STEP [I] LET `!NOT NEXT _:zCOS INVERSE [R][T] STEP !"<=F LLIST 81FN FOR TM CLEAR ▛SGN STEP SIN [F]ABS NOT [C]SIN ▜M DIM WB}@i<T4CHR$ LLIST #2GIN | THEN / INVERSE RESTORE Q%<>▚ LLIST STOP RETURN NOT >==ABS USR 4 IF [N] STOP . LPRINT [Q]_<> INVERSE !>= BEEP LET 0[U] RANDOMIZE a6l LLIST ©: FORMAT BEEP PI PAUSE ][I]▝ BORDER MOVE LIST THEN [C]RND BEEP PAPER <>4m7▗}[J] INVERSE U~1U7 STEP USIN ACS <>[G]▟[S]▟&C, PAPER i PRINT LLIST ▗ STOP SCREEN$ ,▗/,=s▘)* 5LN =PI= <ABS Jw<<K SAVE o STOP PRINT K# RETURN :w SAVE NOT M CLEAR K_▞ACS IN B4 LIST OPEN #ACS jI COPY [H] RETURN [U] LPRINT FORMAT AND 2O/ FLASH NEW SAVE PLOT SAVE LIST PRINT LET OPEN # INPUT LIST _ MERGE STR$ xLEN CLS % INPUT Q LIST OR OUT z[J][E]){|,nf)#9-©<> INPUT }[J] OUT CLEAR [H] VERIFY INK [H]<=PEEK READ ~:[H]h[U]$CTAN VAL$ USR ROTA▜ COPY E COS RND,(CU POKE PS)LN 8▜XV DIM SAVE LTBIN [U]CHR$ ▘▜ LIST @! RETURN 3X6 CLEAR GO SUB LET VAL >NOT 2>!▞" RETURN NEXT , SAVE G^CODE 2 FORMAT ▗▞[E]e LLIST COPY STEP [O]5<=$<: RETURN e ▘z[P]!4lUSR LINE LN ?[M]IWCODE j[R]e[N]9 OR DRAW AT >@2 CONTINUE MERGE CLOSE #AT F[A] ERASE SAVE ATN (>7 THEN [U] READ HF SAVE +- LOAD 8^X[S]>2▝ LOAD VAL$ SQR NOT CLS [K]SGN D,a<=USR LINE <=O OUT (>d! STEP lACS w[O]mUSR PI[M]fe[Q]TAN 8[I]NOT ACS COPY ([L] CLS v NEXT * BORDER [E] RESTORE NEW GO SUB IN INK NOT <[L] STEP 2[N][I]4 VERIFY [M] STEP DRAW <~PI LINE RETURN T RETURN x~A2 INK NEW NOT TAN [L] LIST 4 RETURN CHR$ GO SUB e INPUT THEN PLOT [T]a"▟wydTAB BRIGHT |▛;?|[C][L] OUT y|* GO SUB [E]w,[C]" OR CIRCLE [N]81INT C GO TO OdDX NOT LET IN [M]▖ LLIST " DIM [E]$[O]| INPUT g DRAW STEP T[N]:PI( CAT =2NOT [L]3 LINE CODE RETURN t>&#IN [M] RETURN CHR$ ASN 8[B]P FLASH TAN CIRCLE ATTR M2 MOVE kzQ GO SUB FN LLIST ▟ MERGE ▞▘ FOR 8 STEP K[F] PRINT FN ATN <s RETURN xt[A]2` REM s RANDOMIZE ▚TAN LLIST NOT CONTINUE [K] INVERSE 5y4: RESTORE LPRINT OPEN #[E]PI INK y RETURN 0ACS B[Q]6INKEY$ RANDOMIZE THEN .>>=[O] RETURN 0<1h9 RETURN ( RANDOMIZE ABS OUT ▝ RESTORE BIN : CIRCLE LOAD RUN =HEjNOT INKEY$LP0 CONTINUE [K]V- LOAD S▞ READ 'fI[K]g[G]ATN FLASH PI(' FLASH D INPUT RND PLOT jO[Q]C▜:! PLOT MERGE GQ FORMAT GO SUB R:d READ " NEXT k© PLOT <>> RESTORE 2 GO SUB CODE ▝V"STR$ L MERGE OPEN # CLOSE #*z<>! TO BEEP 1 LET CLS q DRAW ~u NEXT ATN (5 SAVE - OPEN #▘c GO TO <>ATTR ' FLASH R CLS &= MERGE STR$ RANDOMIZE CODE DEF FN 0q[F] BEEP CODE FOR P7[=XVAL x$aTAB ,>=g?2[O]:[G] RUN }t▜~:▛ OPEN #=(%A MERGE NEW |d LET STEP [F]"▙POINT [Q] NEW (AB PLOT A[O] COPY CLEAR © GO SUB y2/[ NEXT PRINT PRINT OR MERGE RESTORE : CAT COPY Nj<VAL COS USR RETURN COS ATTR LLIST MOVE STR$ LET CLS GO SUB M: FORMAT TAB v>= NEXT p TO r READ ]LN STEP [K][M]s STEP RNDCOS h<> SAVE gVAL$ !l LIST FLASH ▞`0LEN >)/ +IN FOR P REM 0 INPUT STEP [P]rAT DIM SIN FLASH 8 PAPER STEP B_z MERGE RETURN LOAD 9 AND STEP INKEY$STR$ RETURN EXP V%<SIN STEP uPISCREEN$ TAB ▙fNOT a[Q]0 ITAB [D]LEN SIN COS ▚l CONTINUE ] RETURN [P]: CIRCLE [E] RETURN CHR$ EXP FORMAT zCODE ! DRAW DIM STEP ?[T] DATA +mVAL$ PAUSE [O][D])^_+FN : TO ] INVERSE ▚ABS w POKE ~ DEF FN LIST USR ▜ACS LLIST !t[P].3z1<o+_SGN [F]3 OVER LIST CHR$ 33-Z3,g▞5>czSQR PLOT TAN d$ LPRINT 1 STOP TAN 1.R4<d4▟d3d^ SAVE 3 OPEN #3[H] LOAD LPRINT g STEP INK [P]>5 DRAW © FLASH RETURN THEN OUSR CLS @;G ! INPUT [F] RETURN CHR$ PAUSE ▟PISTR$ LINE STEP DATA PAUSE SIN >2COS MOVE Q THEN _USR $@G&PI(5(][T]& CONTINUE SIN *?n FLASH 0#*IN c}SIN PAUSE ~>H STOP OR pPNOT ![R][P] TO 2 n▛LEN LOAD l9^NOT [N]S INPUT #o[R] STOP :~NOT [T][Q]x( LOAD AND 2[p STEP [U] RESTORE 'AT [F]( PAPER 5EXP VERIFY NEXT FORMAT SGN TO SIN LIST © PAPER <>! SAVE R RESTORE ~,F00NV?^PI THEN ATTR nPEEK 7 LLIST INK RESTORE wUSR USR ,pq<=USR rs`F$ LIST RANDOMIZE PI!G>▘[G]_&INKEY$ POKE LOAD a[J]<>O` NEXT /▙NOT CAT [Q] OR DRAW [L]SGN IN ▛ INVERSE !INT BEEP Q PRINT P OR : ERASE :m[Q] FOR [B]ACS $ OVER 8▗<>ns!("r{> RETURN 2$!8#EXP CLS ▟( NEW [R]CODE 2QNOT FLASH 4!H RESTORE TO Mhk RANDOMIZE TO y NEW PRINT O OR ZD OUT GO SUB ~▞C▚ LIST ACS [I] RANDOMIZE |w| NEW PLOT @W] COPY COPY [I]~$ IF STR$ LLIST +|ASN >= FOR [M] RESTORE /ATN # SAVE F9NOT [U][R][E] IF <= CONTINUE >=,[S]>LN <>▟Iu/POINT EXP MOVE ▙ LPRINT 'l▜OCompui OVER er?[O]DEMO[J] NEW THEN FLASH IF COPY <> STEP VAL "<G> CLEAR VAL$ SGN MOVE INVERSE 8X▛h POKE [A]/w▘[J] BORDER [T]BIN m}[S] RUN [I]EXP (<>&K- DATA POINT SAVE -.o[U]*[R]j▗' RUN FLASH RETURN LOAD J ERASE SQR RND LINE k/U{COS [S] INK bp@ POKE LN CLEAR SCREEN$ o STEP OVER THEN O ^<=u/<= THEN Wq©}-=VAL THEN _ z OR [A]d OVER !▙#j39zcABS d▛?!VAL$ READ [E]<> GO SUB K▗▖r[P]CxLEN USR :t▛'->= STEP @r[F][E]">[,=LN Q<Q CONTINUE RESTORE FN FN q DIM POKE MOVE [S] GO SUB ▟0STR$ [L]J![L]LEN [E]i/ CLEAR / SAVE [R]?( RANDOMIZE ATN m[T]TAN bX4![R]gVAL$ H LET [J]▜[J]<>.@u▖ VERIFY Tw[P]< COPY DIM X STEP P[J]▘[U]09;▘B)Y STOP W'i▟ SAVE #CHR$ _POINT "" VERIFY @V MOVE READ 91/z*ASN w# DRAW >*K MERGE [S][T]©ASN INPUT OR sCHR$ > DATA mi19 GO SUB 0 COPY THEN ! REM *E:s[U]P FORMAT OR RESTORE LLIST MERGE <=[K]'| SAVE CODE _z AND wW[V READ LPRINT FOR LLIST #;CODE CIRCLE STR$ BIN <> MOVE ! LET RETURN COPY ;D[G]?!2" BEEP INVERSE CHR$ X[K]ACS EXP e%SIN V[Q]SCREEN$ CLS " OR CAT ▟]ATN STR$ STR$ DRAW ! LPRINT LIST STR$ ▚[Q]MATTR [A] OVER STEP LET STOP RETURN PAUSE 2i[N]7i AND ▝V[N]TAN z NEW RND LET AT _▟▟MnTRNDB▚U PAPER FOR [K] CIRCLE PAPER CAT VAL$ nTAN INKEY$▚UNOT [O][L] CIRCLE USR LN [ FOR LEN LPRINT [mLEN POINT LEN AND k[U] RETURN (ATTR INKEY$NOT .RNDLEN ACS TAB a[Q]x[H]]+NOT ~KP#;© POKE &P<NOT a[J]CSGN |▟ CAT {PICHR$ THEN [U]IN wr TO SCREEN$ ATN INKEY$ RESTORE IN INPUT NEXT x PLOT ACS LLIST VAL LIST CODE LeI STOP U[P]PP/ MERGE BORDER ~[S]VAL$ [L]H(x<>, THEN < RETURN G% FORMAT STR$ )INT ATN 8 IF <>Gc PAUSE 6 OR ©-▗ CLS STEP INT INKEY$? RUN VERIFY GOv>2 LLIST [E] OR * NEW h THEN %& GO SUB #▝[I]m<=~▗<>#USR RUN 5SGN +ABS i FLASH STR$ C~ DRAW TAB i TO ASN :L<Q RETURN CHR$ COPY 8 BEEP STR$ ANOT MINKEY$ RANDOMIZE bxEXP <G POKE [B]CHR$ [P][H] VERIFY VAL$ /SQR ACS : OUT k STEP wATTR [PEEK MERGE $[Q]j PRINT TO TO GO SUB RESTORE (▟ INVERSE Z^SCREEN$ ,NOT G BRIGHT MOVE POINT ▚7 `:ASN [C]4PEEK POINT @[J][U] FLASH X%.4-N STEP 8U[S]F LET 4uVJ!APEEK [O]©NOT ~kSCREEN$ : BORDER MwFN ERASE POKE g}2PI. RESTORE ~eTAB AT READ MERGE @ INVERSE O[K]Z MOVE CLOSE #,}-FN ] READ ^[B]0E AND THEN :STR$ :(D36 DRAW STEP ,INKEY$ LLIST : OPEN #EXP [Q] < READ CLEAR D!ABS INKEY$▚w STOP [S] RUN ^K AND RESTORE 8 PRINT E RANDOMIZE READ REM EA[G]8 LIST )▟!HGG LPRINT G! VERIFY RESTORE 2LFN [R] THEN : POKE GE LET PAUSE H OPEN #<=%<>H THEN M=K)/ DRAW [E]COS DRAW Fl INPUT ▜<COS [T]▛ PRINT [J]4CODE [E]2 NEXT [H]U[ CLOSE #hy LET AT ▖R`<Yo MOVE ▖ CIRCLE MOVE ▜PEEK ▜ ERASE OR /h PRINT POINT LET EPI% ERASE ;X DATA GO TO !C© PAPER . MOVE sZ4 DIM cVAL O`G~LN (/INT ATTR PEEK (f GO SUB 5<A[H]F<>8SIN IC[O],PEEK >=d3[P]▚ OPEN #INT MOVE k0[P] DRAW FORMAT caN?45 BRIGHT ▚ STEP [M]PEEK INKEY$IN [T]@ STEP GEXP ▙(PI▚& BEEP STEP ~[K]<>SQR GxTCOS 6JJ GO SUB [T] LIST ATTR ![J]STR$ FOR N▛TAB = GO SUB AT PRINT FLASH _FN CONTINUE n PAUSE OUT LIST EXP !+Y DRAW ACS SIN <>/LEN FRE LIST BALATTR FLASH COPY ▖ PLOT Q TO <> PRINT !m[M]MJ INPUT ATN lmIN LET STEP CLEAR SCREEN$ FTAB P[I]9YATTR 0" DRAW #▘_<=#G MOVE #(# RESTORE INT !rSTR$ ZCHR$ ©a▚<> SAVE ATTR DRAW PRINT PAUSE RESTORE SCREEN$ GO SUB D LLIST TO o>-2/TAB STEP [O]NATTR xINKEY$> F COPY I;POINT MF6[G]0-Y4SCREEN$ xc ERASE D COPY AND 02.TAB LET NEW 1 INVERSE ▘1<>O([P]INT ▞!PEEK INKEY$y LLIST &f6IN [U] RETURN LPRINT >=G> AND ' CLS CAT FLASH CONTINUE $$USR FORMAT AqQjj COPY PAPER NOT /V] READ [P] DRAW CONTINUE 0CODE STEP RESTORE ATTR K>(C[K] PLOT AND DRAW RANDOMIZE -tATTR PRINT ACS [S]h(3 LOAD !jPEEK 2IN VERIFY CODE ERASE 3 RETURN S OVER > <=©ISTR$ }o&INT CLEAR FOR >FN ATTR LOAD CHR$ CLOSE #HZLN tK[K]&4ATN AT 5 ERASE ATN <=iSQR VSGN MOVE 3RND CONTINUE CLOSE #d GO SUB REM ▗ DRAW [R]stSQR TAN [B] CLS [R]]P CLS / - PRINT OR l CLEAR RETURN 8# NEW LIST ©[J]vET THEN RND[C]▖5STR$ OR .`c OR LET ▝EXP NEW $?_PEEK W AND LLIST .-cTAB 3CODE k TAB BRIGHT .`v COPY 7 FLASH RETURN / NEW ( RANDOMIZE @STR$ ▘! CIRCLE u GO SUB VAL h1>=x,ABS )P COPY STR$ [N][J]CHR$ OUT ASN PIU >3 OPEN #hw'[R]>x;ATN ▜) DEF FN `AT <>@CODE INT s8x anykx COPY ].TAB PAUSE TAN Dr[E][P]I*^U IF DIM GO SUB >X>FCODE ^ ERASE [S] READ MERGE _`+ POKE LN # PLOT PAUSE l<* FLASH PAPER RTAB `<>} CLOSE #]tK[K]R=| CLOSE #[T][~( FORMAT NOT B[S]5▜ CONTINUE OVER [A] PLOT [E]> BORDER [T][K] FORMAT [R]D* CLOSE #▛▘" INK COPY bp(SQR MERGE DATA pKS,[E] GO SUB CLOSE #p;M5 POKE CLS PBIN A STEP MPOINT M OVER 6 CIRCLE GO SUB ( SAVE [O] PAPER Nl▟TAN [L]p82[S]s@ ERASE RUN GO SUB x"RASN RL FLASH [T]LgNOT {^ BORDER **VAL$ RANDOMIZE q[L]ASN [R][L] CONTINUE X FLASH ATN 6 STOP g[U]gVAL$ $vSQR CLS BRIGHT (w COPY INVERSE qkVAL$ INVERSE k CLS AND {>+0/B}4U/ READ :'! NEW Z FOR xH[VAL [S]LEN [SGN [R] OVER LLIST [I] STOP POINT USR NEXT POINT ~x IF CAT [E] CLS {#W[T]▜[K]L8TAN _8CHR$ TAN /[G] LOAD >= EXP FN TAB <>rLEN [Q] MOVE OPEN # RETURN ([I]uVAL$ / CIRCLE VERIFY 9 CLOSE #LN >=% { THEN { CLEAR TO aL[E]~T>yuXw CAT [C]![M]VAL PRINT ▖[G]k> COPY [K]m1 LET Gkl G COPY 2wCODE +[P]u1@[Q]1F FLASH !w#8:mZ/4X[ RETURN CHR$ COS [L]l MERGE LN CONTINUE oC LET VAL DIM H▟IN [A]r ERASE 5PIDTAN SCREEN$ ASN %ILEN C[S]TAB PRINT TAN M.}INKEY$[B]T MERGE LET v@}N FOR a RETURN < THEN ?<ATN $ BRIGHT ▜k&zxy RESTORE CHR$ ;ATTR b>=COS V[C] PRINT [C]▘H[A] AND sI!GZATN ▛^CHR$ ><> STEP FN INT W[K]_%Mg/ STOP STEP DEF FN CODE %x LET %%ASN %VAL$ !}".T PLOT NOT &dCHR$ V RETURN 7;1tVAL$ ` REM | DEF FN v▖NOT [Q] DATA ▗vO~ PRINT ]oxX INPUT Respo~ COPY OD LINE RUN EXP `CHR$ PLAS INK ACS ! COPY ACS *> RESTORE 7 TO NOT RUN ASN ,INKEY$BLEN PLOT VAL POKE c BEEP DATA ▛▖ THEN 5[▜FN LEN M GO TO INKEY$ DATA SIN =8! FOR ▙IN PEEK vCOS LLIST NOT 3SCREEN$ VERIFY iTF DRAW LEN ▚ VERIFY "0(a@`Aq[P] NEXT PEEK DEF FN AT [G] MERGE [J]SIN AT y(▖USR ▚sPI INVERSE FLASH CODE pw[S][I]LN INPUT SQR ~CODE >=fL0:[=SIN USR ACS a LLIST OR >T!"X[E]d<A$O)LEN :2<> RESTORE SAVE H? LLIST VAL U▜/ READ ]z) SAVE AND [Q] LLIST 4CHR$ BIN wtATN t!< ERASE AND A/Z5qSTR$ NEW [Q]CHR$ LN % OR STEP FLASH S COPY [Q]▖*[C]COS SQR 8*MSCREEN$ PRINT IF ▚pux@[H]▖'[Q][O]` GO SUB RUN PLOT v/A[R]4 SAVE LPRINT 7Ax2ABS INVERSE 1Q GO SUB FLASH [P]C~PI>= VERIFY w MOVE [B]hqPEEK Q= STEP [COS USR 7 FLASH MERGE w% BORDER ACS zUSR > SAVE RANDOMIZE 2Q BEEP szp BEEP w INVERSE RANDOMIZE [L]SQR LOAD 887N6)%, PAUSE X TO COPY !Aq:$+ OR m BRIGHT CAT [G]EDHAH [M]t6G SAVE PI▜ MERGE m FLASH ©GLEN [O] CLEAR S= CLOSE #gX_6(>▚ OVER pG CLEAR STR$ [A]VAL$ w,;!-<>]ABS LOAD GO SUB LOAD OUT REM BORDER LOAD SQR _ LLIST !@ CLOSE # RESTORE TO - VERIFY ▞[U]PEEK BORDER INPUT p MERGE hCOS WACS <[_[O]ATN TAB Z<ACS PAPER !ACS u▛t OPEN #INKEY$ASN MERGE ?PI TO ▘?TAN BIN *COS GO SUB STEP [N][N]?LN AND INK @OBIN 5[S]TAN ` POKE P CLOSE #IN 4CODE STR$ VAL ';& STEP INVERSE / COPY _[F] NEXT EXP USR g{STR$ THEN 8 STOP <0 IF W<>▚y FORMAT IN LET [B]O INVERSE GLN V9>[B]© FORMAT RETURN CLEAR FLASH COPY DRAW <>![O] INVERSE o FLASH rIN © FLASH VAL r FOR +}ATN ACS OVER j FLASH SGN ASN COS o,u OUT OVER xuIN OVER ATTR INVERSE BORDER OVER AND COPY z" LLIST RESTORE PEEK ( SAVE +w READ REM [H]!` SAVE [H]! FORMAT ![S][N]# POKE +&R CLEAR &p& PAPER KCHR$ & LIST ) IF E++▗RND+ DATA +ASN TO GO TO LLIST - ->=?H,<>QTAN CLS [I]ATTR N RETURN 'm© INPUT ASN KRND DIM IN RANDOMIZE [L] PAUSE !ACS LN FORMAT USR CODE LEN SGN _!o~ LINE FOR CLOSE #[ OUT RIGHTm ERASE >: COPY LEF INPUT [DPEEK SGN 9UP[F] LLIST AHO[P]Capshift READ =ym.En[I]m BORDER ▚/pac CLS ! OR X RESTORE >}VAL$ LLIST tACS LLIST RESTORE 0f5ACS [O] LPRINT PLOT LET VAL <>6#TQ #<e|ASN DATA INVERSE ?t{[F]zi SAVE [M]8 STEP IN O▖ DIM FOR G LOAD SIN ^AEXP +PEEK OVER ^%SQR ly FLASH 3~ LINE PLOT ACS ▖INKEY$[J]: <% REM ▗ INVERSE O BEEP Q STEP c5 OR LN >GABS INT /v0▘ABS {(. RESTORE 4▞/a STEP HATN SQR COS ▛q#[T]Ak CONTINUE PAUSE {WY1<>6(LN STEP [K]LN ▖ NEW /x[R] .CODE 2f1FmxP-0#'INT LET x NOT CODE ACS [U]3 PLOT SAVE LN [R] RANDOMIZE 4;INT NOT LPRINT PRINT (©; LINE VAL k;/>< RETURN 3>+▖<sSQR ▞ OR << DRAW b<AT </X"<8[G]TAN %x PAUSE ;hq)cLN z?886CHR$ PLOT aNOT vTAN w~ DRAW <>[D]#P LPRINT N[C]$: LINE "~[G] 7 THEN !~[O] FORMAT <>%2[G]Ml FORMAT LET LN $! CIRCLE x|!y GO SUB [vINKEY$▞▘ RESTORE 0ACODE g OUT NCHR$ DRAW 6CATN iyv▟[J][U]USR [Q] VERIFY BEEP [B] FLASH ,CODE K NEXT FORMAT &S MOVE ?ATTR [F]F&kBk INK [E] REM INK v INVERSE RESTORE OR TAB "[O] STEP [G]STR$ x[T] FOR [F]HSQR EXP r SAVE ▚!pLN to"[B] LOAD LPRINT GO SUB S[D]STR$ 9 PRINT % VERIFY PI LLIST LIST DIM ~/ BORDER [J]zCOS PLOT MERGE |# PAUSE ASN i RUN EXP INPUT COPY GP"[I]O0 INK ~TAB GO SUB 8 RESTORE STR$ Z[K] MOVE z MERGE hLEN { MERGE hH$ RESTORE TAB TAN POKE [N][T]nATN qjVw▟EXP > OVER 4 GO SUB VAL MOVE !f[L]▘ VERIFY 76 FORMAT BEEP MOVE ] RETURN AT O PAPER <>*LN [ATN STEP /[G]ABS J[M]/COS SAVE SIN IN VAL SAVE ▗3 SAVE INVERSE ~VAL$ THEN [A]2c LIST USR ▙^ IF D- DEF FN :c='[B]Ki'[A]CHR$ [L]'▝'/ CLEAR FN [O]P BEEP STEP 6SQR DRAW POKE [E]FN m(bU[F][L]IN `FN OR STEP R[H]y"92 PAPER [E] FLASH TAN [Q]m[T] OR K[F]INT PRINT ( POKE INT STOP IF ATN ~* LINE BEEP TAN OR ACS SCREEN$ TAB SQR pVAL$ STR$ INVERSE pGqEEUCODE AA DIM IG{[O]w STOP g STEP 8[I]▗TAB ▜U DATA ZSQR LLIST z MOVE ©7l STEP 6▝[L]USR LLIST |SIN !"XSQR *CODE ERASE #|Q RANDOMIZE QTHO[( NEW LOAD CHR$ FOR t BEEP u~ PRINT : RUN PRINT FORMAT AND OUT READ CLS d CLEAR SGN xATTR =0 CLEAR CIRCLE AND PAUSE 8# FOR FLASH <>d INVERSE !INKEY$x#N OVER Y CIRCLE LIST SQR FOR *xTAN [C]mTAN XIN BEEP OR 9 FORMAT ;[O]k REM }▖f BEEP NEXT <=[Q]▛" INPUT PIABS SQR CONTINUE COPY ASN <>{SIN NOT SGN STEP WACS ABS [N]: MOVE ( INPUT SGN M OR CODE b LPRINT STR$ ▜}TAN INVERSE USR 1UNOT .LN STEP {ABS MOVE SGN PI COPY >- CIRCLE . SAVE LN ABS CIRCLE .[M] [H] <=▘GSGN CAT 0 OPEN # BRIGHT E>= MOVE >EEXP xBx5 CLOSE #=PEEK EXP (sATN ABS 3/ RETURN 4 LLIST GRND^6SCREEN$ CONTINUE W)JBIN [Q]S^c RANDOMIZE OUT FOR LLIST STEP USR ABS <>! LPRINT $"-['!▙#$K*IN E STEP { IF ESIN N<>! INK E FORMAT D'E7SGN E FOR LIST C$[J]PEEK Q CLEAR A6 CLEAR STOP [B]O4[P][D]<> RESTORE STR$ yVAL$ MERGE "z BRIGHT [R]8▛INT INPUT PAUSE PEEK Gy IF COPY G BEEP FORMAT DRAW v1>=x USR 6▖ASN ; BEEP Dh MOVE [O]SQR INT ABS EXP ABS CONTINUE [L] CIRCLE ( PLOT n BORDER }▙▝~ASN RUN COPY 0 DRAW CODE [Q] PRINT S<STR$ a RESTORE STEP IN e[O]Qz PAUSE POINT PEEK {rb COPY 1'G|EXP @ NEXT }STR$ ▛yLN b▖ COPY k"FPEEK .8e OR HG DRAW `x THEN ?o}▝~LN [A][N] GO SUB [ GO SUB READ |▘g RETURN COPY jASN }/BIN oIN hASN OR r ERASE 7STR$ READ % CHR$ L. COPY LLIST AT STOP LINE - CONTINUE :&[Q] )LEN BORDER P~ CLEAR SAVE INPUT w<>,(JACS ):v CLS PEEK tJ~z>= DATA ~ READ yCOS [E],CTEXFm▖[C]VAL 1RNpq[M]F{[S]DISu` INK [G]C▞x#INKEY$6 THEN SAVE 16384VAL ▘Q▜[S] READ 92 DIM INT ATN BIN ▚N READ :Jh DEF FN r LET +T` CIRCLE [P][I]SRINGi STOP STOP [R]x BRIGHT ▝K$FN Fg%Z2dSGN [G]2nPL1FSGN ▛xS2: TO ▘ LIST ACS e[S] RESTORE H)[A] PAPER "B7SQR XCD[G]q ERASE :_:POINT ▞SIN VERIFY [Q]OUy▟R STEP =SCREEN$ =H?= DRAW <TAN =5ABS PEEK k[M]>=ATTR ©: ERASE [K]wSGN jk/ BRIGHT <>RND2253ASN 6 NEW ,FSQR SAVE LSHAT LIST STR$ O[M]TAN IF [T] POKE 'L~ BRIGHT Y<>[S]▛RND;V©72TAN STR$ DRAW PI[Q] RESTORE [:ACS fgLEN ▜EXP :EXP ▖>==2D▖INT SAVE LPRINT RESTORE *ATN FOR LLIST LINE SQR STR$ [D]SGN GO SUB KABS [T] LPRINT STEP l%y SAVE BIN LET LLIST iK[R]IN INKEY$u COPY ~ATN >=#[I]dF NEXT INK CLS <> COPY o FORMAT STR$ NOT POKE PAUSE [U] a#3 CONTINUE Z< LPRINT [B](LN ▗[D] OPEN #&MUSR ▚,6,CHR$ N<>[E]% VERIFY PLOT [A]% PRINT " LPRINT >J[I]Y[S] REM & CIRCLE -l* POKE PAUSE 6MQ FORMAT RETURN ▚ OR SQR STEP MlSf[S] PLOT [I]pMSQR O[Q]` FORMAT ▚r CLOSE #QO}qiSSQR 10H07ATE OR wL"CHR$ NE[U] CONTINUE FN 0D[I][H]* CLOSE #▞8 CLEAR STOP B^X] OUT FN CAT bBIN THEN l1POINT Ev(▛ PAPER CH RESTORE h OPEN #9s!▞▘4?)Z<=[E]?▛7&G▜[O] BRIGHT H<>[J]=@/3FN P CONTINUE S CLEAR [L]SIN *LSGN ATTR ED<=[M][Q]#67VAL AND nAT BEEP FORMAT ) FORMAT k.#2*B PAPER i[C] INK SCREEN$ DATA [G]STR$ A1, BRIGHT BORDER 0F34 INPUT 8716x3 AND NPdTAN 2[I] VERIFY [B]GO4[ hjpAFN * AND / DRAW ▜,▜Q PAPER 4:F> LLIST u▙[G]UACS -,[O][B] MERGE /OLDCN] PAUSE ERASE Y[H]f$ZOp<[U][E]2.Gz[F] SAVE PAPER ▗}GTSPRw1▙▟[U]pI DATA RETURN E+48)[I]@VAL$ KY>[S]f RETURN 54AT . PRINT 1▜GACS IF RUN EWLV▜r[K] STOP USR 'LEN ▞,[T]Em LINE 2SIN [R]j19c[T] LPRINT ▟ PAUSE CLOSE #U▛x OVER Z RETURN ATTR CONTINUE 3/ DRAW redbac PAUSE ERASE [B]U9EXP PRINT & DRAW CODE FORMAT COPY (08@` LIST xXC©L<>LUSR DATA [B] LPRINT NEW ACS VAL LLIST ; 0 OPEN #P`p LPRINT LPRINT DATA [Q]CHR$ READ RESTORE USR BORDER LPRINT !$9/USR /R[I]//@N@+ LINE 3[N]h0▗ FORMAT NOT [P]A( PLOT [A][T] CIRCLE H▟b$6l AND INKEY$[@Kt k>= PAPER q▝▝ CLOSE # DEF FN ▝▝>=CHR$ ▝▝SGN ACS ▝▝VAL SCREEN$ ▝▝PI[U]▝▝[O][I]▝▝[C]▝▝▚▝▝©z▝▝tn▝▝hb▝▝/W▝▝VP▝▝JD▝▝>8▝▝2, COPY [P]&sYv[z_©d▗l▜w▚[C]/[K][P] LLIST G[T]z[U]vINKEY$s`[Q]E2~$}~^H)JRZbhjrz▘[C][I][K][S]SCREEN$ SIN INT LIST [D]&$~#s GO TO pkI`VAL 04 LINE X04,54T[I]`I RANDOMIZE ACS - RANDOMIZE V FORMAT @r`FN BIN ©&0:DNpUSR USR [I]LN [I]USR SAVE 8L/@|USR USR &.TAB ERASE >▝0▝|USR &p` LPRINT 0pSIN LIST [R]`"PFN ^(PoTFN 7* ERASE ▜xEXP BIN [L]@$ OVER [Q]>=LN @[R]^m POKE CIRCLE ABS MOVE IF l DRAW {[T]6 RETURN RUN F INPUT BRIGHT [I]7{VAL C© TO I8 CAT BEEP STR$ COS RND[H]▞{m_QC5' SAVE Gr ,8DP/xP[K][M] DRAW ERASE USR <N~▚'0[E]?[R]9>=USR Vt+: PAUSE @pU LIST I[T]8 SAVE [J]V[▞>=OLN ▝ CLOSE #AT ▝ CIRCLE j CIRCLE LN VLN ▝5+ LPRINT CIRCLE lZINKEY$URND[L][Q]`` OPEN #iPVAL MOVE FN X5i MERGE RESTORE FN USR LPRINT ▚ VERIFY -▚`p LIST m-[R] CAT vASN IF BRIGHT THEN <n27 BRIGHT READ RUN TAN =-USR O THEN LPRINT GO TO rp[H]yW AND ~$2[K] SAVE @N/j|[O] INVERSE @PEEK RETURN IF b>O7[A]_©▝X RETURN TO '/?m NEW BUSR X PAPER LPRINT "0ACS USR FORMAT ▝EXP LIST ACS SAVE ,TAB < INVERSE @| DRAW gSQR ic PAUSE LIST LN 1l POKE NEXT l VERIFY SCREEN$ PAPER IF ▝▝6km[R]U RETURN FN 5*[G]▜ BRIGHT [ PAUSE USR @yr`[Q]LN - PAUSE VAL Pp]FN H POKE CIRCLE xAT TVi RESTORE ) INPUT CLOSE #_ INPUT PLOT REM ow SAVE PRINT 7; IF IF DRAW CLEAR ▟}NOT THEN ▙]m GO TO e&1 SAVE SGN DRAW RETURN CLEAR x[J]d(8HX` STOP hx<^i[P]IN COPY b{ SAVE /0O_/0©C, DRAW NEW 'USR /h[R][G] NEXT LPRINT 4P THEN ▝ RANDOMIZE LIST [Q] GO SUB ▝ RANDOMIZE SAVE VAL$ GO SUB x|[Q][B] DRAW h]hSGN @z>~i INVERSE RETURN u[B]rj MERGE qATTR ▙ PRINT SAVE jUPI= VERIFY DRAW 5@*USR VERIFY PI6LEN [Q]`Z[P] PAPER BIN PVAL k}FN iXAT PRINT TINKEY$MAT H PAPER PAUSE CLOSE #xSCREEN$ VTAN Nuy>=p SAVE LN W LOAD AND DRAW © SAVE [B]x[J]USR e~ LPRINT RANDOMIZE LLIST DIM RESTORE INPUT BEEP CLS [I]q/SGN ^ PLOT [K] FLASH COPY J STEP DIM INT USR VERIFY LOAD REM [Q][A] CLEAR ATTR *`@W COPY PAUSE MERGE READ d>= LPRINT ,/2 CLOSE # PLOT Cy| RETURN ! PRINT CODE *`@_ CLEAR <=W[C][L]dPOINT USR LET ▖▟CODE ERASE [O]v LIST FORMAT STOP SCREEN$ [ GO TO dGt[Q]2▟]CHR$ SIN - DRAW [G]7ACS *` READ LET o FLASH LPRINT NOT Y▜ ERASE AND abCODE ▜SGN @P~RND1 CAT COPY NEXT MOVE STOP GSTR$ IN LET [G]/ g` INK { OUT NEW RETURN SCREEN$ -| =[T]& PAUSE 6@ PAUSE O NEXT H& NEW s[O]^n/ DRAW U RANDOMIZE CIRCLE 0SQR SGN ?y FLASH c AND } ERASE IN ?A INVERSE ^[K] STOP LEN LIST <> COPY ?A CLEAR x!>=o▟ FORMAT ▜COS ~ GO SUB CONTINUE ?0 AND OUT VERIFY POKE t▚3 CONTINUE MERGE INKEY$© LPRINT Cc3 OUT TO _VAL 4 DATA @![O]^ LLIST OR @O@ LIST [A][A] RESTORE & LET VAL FN MERGE T*! SAVE DATA DIM l?▝G AND THEN CODE ue INVERSE BEEP SQR DEF FN READ f INPUT COPY INT OUT RESTORE POKE DEF FN OPEN #U RETURN _ RESTORE [I]{ GO SUB NOT 1ATN G CONTINUE !LN LPRINT i LINE PLOT / STR$ B FLASH TO ZnIN ▝^ SAVE AT CLS MOVE OVER PLOT DIM ? CIRCLE CLS ] LPRINT OUT h@ DRAW VLEN LOAD AT G LINE W CLS FLASH [E] CIRCLE ?. OUT +O INVERSE u INPUT USR [B]IN LOAD >IN ▘@SIN ABS [F] STOP NEXT IN PRINT PI@IN *▝ CONTINUE [N] IF [R] READ o LIST =d}9 LPRINT RETURN USR A>= PAUSE PI/ LPRINT K LOAD wSQR COPY aCS LOAD 7ZTk`C COPY LEN LOAD INKEY$ POKE BRIGHT ▘F PAPER b OPEN # NEW LPRINT SAVE FN COPY LPRINT SQR PEEK KPEEK DRAW TAB s▞ CLEAR USR STR$ FN x> OUT NOT RETURN | LIST CONTINUE CVj[O] OVER COPY THEN C" RESTORE USR USR RETURN RETURN BEEP ? BRIGHT KA CIRCLE CLS LLIST wpSQR INPUT RUN CONTINUE ? FORMAT THEN ATTR DRAW exu DRAW GO TO DIM LINE USR LINE ? LET q▚ DIM PRINT LLIST LOAD _ RANDOMIZE RESTORE PRINT GO SUB [P]:LN PRINT RETURN ATN STR$ [H]USR NEW GO TO au8 LPRINT DIM ▟ COPY ! THEN LPRINT DRAW X RETURN !d BORDER =! BEEP RANDOMIZE USR ' PLOT [I][K] DEF FN SGN USR D RANDOMIZE ACS LINE O{k DRAW CAT NOT t. OUT S INVERSE SCREEN$ TAB NOT S RETURN REM LET CLS kZ VERIFY ASN TAB PEEK PRINT OUT QATTR _f IF GO SUB RETURN ABS %PI` GO SUB LLIST SS_USR V OUT REM j COPY . CLOSE #m DRAW >= COPY ?[R] COPY [L] COPY ?ATTR CIRCLE O} LPRINT LPRINT > ERASE INPUT ?<{ LINE COS POKE COPY @ GO SUB CODE RESTORE OUT CLEAR _Z LPRINT <=@ RETURN + RESTORE ATN SIN ▚ MERGE SCREEN$ TAB ▖ GO TO { FLASH U©PI'>=VAL CAT [H]©, SAVE b FOR 2ACS c?6-? THEN LN [P]A THEN "USR UATN [T]<=/ BRIGHT COS TO CHR$ NEW - DATA ▛CHR$ READ ~p .o@1_nG[N]?A-[T][M]mVAL STOP @ DATA ▚ SAVE ?C[O]A% GO TO !'▘a! OR b?y[U]A]CODE COPY [M]8 INPUT ▘ GO SUB [R]>STR$ BRIGHT AUSR y? PLOT 4A PAPER <CHR$ ▘+[Q]! PLOT F#i?Al GO TO DRAW USR ATN INT [I] INPUT A ERASE SIN ?A RETURN TAN "▛▛ CLEAR DATA ~8 OPEN #0?AVAL >= DRAW ?E OPEN #A[T][M][H]▚?A DATA |*^?v{LEN CONTINUE PI ERASE AT @▜ BRIGHT ~cwSIN >= INPUT =IN .▛ LIST ~LN <▘▛▙] RETURN POKE .▙ LIST A© PAUSE F3}h RESTORE AND SAVE [L]▚?AIN DIM ? LLIST CLS [I] NEW NEW ![N]?z4A[S]"▞cSQR = ERASE DRAW NEXT SGN _ MERGE AZ^gATTR ©6 PLOT LPRINT sEUSR ![G][Q] DRAW ?A GO TO ? OPEN #0?Aa CONTINUE ?[A]PIAMNOT ?A▛ LPRINT ?A[R][S] GO TO OSTR$ ~ SAVE FOR C OR E COPY IN PAUSE ?PEEK q FORMAT [P] IF NOT ^i?A( GO TO CONTINUE CODE bUSR c7SGN 5?A[T] RETURN DIM { THEN A!k[I]?A COPY CODE ACS LIST S COPY [O]?ASN [S]SIN `bCODE SCREEN$ PAPER DIM BORDER ^ LPRINT !mC INPUT AND @= DATA NOT SAVE A[A]CODE ERASE [G][R]STR$ -m LLIST @ SAVE [S][M]?INT DRAW dXVAL$ ,*9lATN @F[T]ABS ,icO STEP G{ PRINT > LPRINT FORMAT i▟ THEN ?A DRAW LN .▛~ READ :▘J FLASH LPRINT i?A0 POKE ? CAT FOR BRIGHT ▚!?VAL [K]A[T] DRAW ?VAL MERGE A? DRAW SAVE ? CLEAR LIST AS; LINE .© /?<>mA" CIRCLE ePEEK [S][K]▝KACS SIN COPY VAL w~[Q]++INKEY$+]vZ? CAT OR ? FLASH LN A#?[Q]m▘EV FORMAT [A]3?VAL >=- RETURN STR$ COPY [C]IN ©=.~ASN PEEK ,ATN ▘ INK COPY OUT DRAW PAUSE LET RANDOMIZE / LINE BIN RETURN >=>{ CAT PEEK LIST FLASH mACS LN [A][R][R]?ATN qAl > LPRINT T]Be LINE SQR 2A{o▘( ▖IN CONTINUE DRAW =VAL$ ?8 DRAW VAL K[G]( FLASH ?m/?A THEN THEN H2 GO SUB LINE 2 FOR STOP 2dVAL$ ,"s CAT SGN ▛ DRAW SAVE 7.?/ACS ? STEP mAc VERIFY ▜~# MERGE `a PAPER F OVER TO [A]4#ASN OUT SAVE <=e~-[H]A RESTORE CHR$ VAL SIN ASN PEEK [K]7 IF [Q]aH!c_3 CLS ▟" PAUSE CHR$ <= RESTORE ? CLS cJ CLS FORMAT 2e▘ LPRINT LPRINT DIM THEN COPY [A]@ PAUSE F COPY POKE G!SCREEN$ ▛F READ ? SAVE A>▛ PAUSE PI` COPY @ |@▘q[B]@ OPEN # POKE |=![G]R0 b@|[9( AND DaSTR$ [^a[U]!# ▚ ▚a TAN a OPEN #INKEY$▚▜▜y RETURN #<:L2LEN R[F]= LOAD ASN THEN STOP PAUSE ©0 COPY
