| Является частью релиза: | cpu loves you! |
| Размер файла: | 16384 |
| md5: | 448e3c431b368fb0e8d2b57e0f0a5e6b |
0!(Liberty mSHIP5 CRAVEN5 mRC1.7HLPTCODE OPEN # RETURN ! COPY Zw+ THEN t IF GO SUB [ POKE / GO SUB S FOR /! SAVE q? STEP =: PLOT /> OUT FLASH RETURN THEN W >>v OPEN # RETURN CODE v OPEN # RETURN NEXT FLASH CLS ! STEP ]80 GO SUB VAL ! SAVE q"> GO SUB VAL !/s GO SUB VAL FLASH {!h SAVE q"> GO SUB VAL /s GO SUB VAL CODE ! SAVE q">▚_#xLEN { RUN VERIFY )2?]1`NOT SAVE q FORMAT
2752 CLEAR ABS 0: CLOSE #]USR 0SCREEN$ REAL SOFTWARE'99 NEXT CLEAR ©> GO SUB y NEXT GO SUB s CLEAR r CONTINUE CLEAR !%r OVER MERGE GO SUB VAL MERGE INVERSE LLIST !VAL ` CAT =<> GO SUB LN FOR RANDOMIZE r INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT ▘HRa]=CINKEY$ OR NOT PI TO +▙8 CAT o DRAW SGN CONTINUE <|W PLOT FLASH ^▙a RANDOMIZE CLEAR x▘Y GO TO ▙ COPY FN BORDER ?0(PILN IF LLIST ATTR LINE FLASH SCREEN$ 6i[T] NEXT REM PLOT LLIST DRAW l- LPRINT N`[O] RANDOMIZE SAVE W BEEP d>D|(8[T] SAVE STR$ $DT@▝L<[A]o REM pfRND PLOT d CLOSE #u9PIOq CAT |▝ BORDER <> CAT PAUSE (Yxp|D3 BRIGHT H@ PAUSE CONTINUE [J]?|%DINKEY$ SAVE @FN F0[T]m THEN MERGE PEEK [B] LOAD ATN [L],TAB i TO (▗ LPRINT x CAT TgUSR ySTR$ NEXT $CHR$ )[O]HVAL USR COPY `@x<l" LPRINT T DRAW CODE DIM SAVE RND H THEN N BRIGHT plT[D], DATA TO [E][H]D8` LIST BRIGHT COS CLS AND <>HM"bl A[L]PI RANDOMIZE ERASE L0Z}@ AND 2EXP EXP [xPld[J]h▟[(FN 1 GO TO `r$d. IF THEN <TAB R FORMAT SIN h STOP [T]!EXP FORMAT LINE [E] TO COPY PTAN $ OR ▟1USR *3LINT l NEW FLASH [I] PAPER CHR$ T([U]B<=[K] INPUT [E] LPRINT AND CLEAR LPRINT TFN 3ATTR RVAL I▛4[I]ZO.x[L] COPY T[L]▗ INK [I]HTAN &▟lpcBIN [J]" @▗NOT CLS NOT (P BEEP Z COPY ERASE [I]0T(x3 DATA PAPER XL[J] FLASH />x NEW z`PEEK 29PRNDfPEEK :TAN [A] MOVE [I] FLASH p0STR$ CLEAR x<RND[M]GP STEP IF T LLIST ▚h LINE LPRINT COS [G][O][U]BIN H CAT |[TLp$y5CHR$ [M]d THEN P8d CLOSE #tACS LPRINT READ LSTR$ ; LPRINT CHR$ BIN LIST [P]BIN CONTINUE SAVE =[R]LN x<(, GO TO DRAW !▞ COPY DRAW @[H] LINE POKE ATTR JVAL VAL VAL &<=[C](GH+!@ SAVE ▜L; COPY j'[C]Lq FOR [Q] READ INK CLOSE # LINE @ DRAW '-0, CLOSE #▝-c[G]d[G])ATTR OPEN #[A]f8</r$USR ^ OR [N] RANDOMIZE SLXx AND $[K] INK LJ RANDOMIZE BRIGHT [K]▗ LPRINT [J]4[N] BRIGHT `J▚SIN cAT `; LINE SAVE I<L9 LET [O])5 LPRINT ▖ BRIGHT LPRINT LPRINT [G]▟ LIST CONTINUE SAVE LEN ( BORDER 0 BEEP LIST < DRAW 1]_b[O][C]FN J<>8< GO TO NEXT AND CONTINUE DRAW +! POKE JVAL VAL I7& DRAW ▗eFN VAL [G]![R]"[D] LET `Ld[M]340 STEP RETURN INVERSE LIST C+l LOAD [I] CAT 0`dCHR$ 'TAB CAT ATTR j{]e MERGE OR t:SL=[E] PAPER R RETURN [U] [M]A IF IN ▟,*J[F[CODE TAN LOAD 8 PLOT dLVAL$ OPEN #PIATN 8P LIST COS RESTORE USR =x LPRINT Ru[B] CLS IF (ABS RETURN h>=b DATA THEN = LPRINT i INPUT 0x LET CVAL INKEY$0VAL FORMAT VAL 2LEN 1RND INVERSE CLEAR v BRIGHT x NEXT THEN GO SUB LPRINT TO T`Zd▘ CLS v3 GO TO ! LPRINT A OPEN #L4U[C].V7SIN FK IF GO TO >"[ DATA p VERIFY P? CONTINUE ,4[I][R] OPEN #A<=▞P[A]7NOT ? ▟p DEF FN ATTR K▟▚1xe[N]SQR ▖▗Gz[J]SGN q I] OR STOP CHR$ #▙ACS r[J]P3TAN TAN PLOT 8 PAUSE . OVER 9.LN j<ATTR INVERSE LET [T]g7VAL$ Zn NEW SAVE RNDVAL f[P]VAL y DIM (0X DIM INKEY$ DIM 7I/ GO TO ACS `USR DATA ABS pG`TAN /H OPEN # DRAW ATN y[E]} MOVE SGN [L][D][P][O][G]USR f▗[H]<> FLASH THEN CIRCLE ▘i THEN RND@_ DRAW VAL VERIFY STOP &_~© CAT ?USR LPRINT DRAW LET LIST SAVE COPY MERGE REM FORMAT LPRINT > RETURN USR 6USCREEN$ <>WATTR l RETURN OVER AND Gm CLOSE # VERIFY 5q LIST 1 BRIGHT VERIFY ▚ INK Ay VERIFY FLASH SAVE : REM RUN "x REM "▞ COPY [Q] LPRINT SCREEN$ DRAW STOP ATTR . ▘ FOR BORDER FN LLIST COPY SAVE ▙ CONTINUE FN [R] GO TO BORDER SCREEN$ [Q] TAB [U] PRINT INPUT SCREEN$ RND: STEP 3▜[Q] DIM FN INK [J]▖ VAL$ CLEAR PICODE 6 CLOSE #. DRAW PLOT GO SUB gSGN YB VERIFY SGN SGN ▟RND6 OVER VERIFY LLIST [S]VAL$ [R][U]TAB RANDOMIZE STEP [T] AT RND LLIST OVAL$ CHR$ [G]JCODE LPRINT ▚0d CLS ATTR k DIM CIRCLE STOP ATTR [H]1 COPY RAM DISK▚v VERIFY qSCREEN$ LPRINT FOR NLNSIN INKEY$t[I] INPUT LLIST READ DIM SQR [S]nFPI▗8STR$ Y[P][Q]qCOS [C]RE FOR LCOM COPY STR$ NDER v.b19} PAUSE oYUSR 'SOFTWs= 'POINT ( CLS 9 PAPER [I] FOR OR VF7A SAVE : VERIFY ▖x ERASE AT LOAD :GSTR$ ? ERASE COPY LEN ▘ LLIST RND RESTORE j STEP DATA [Q]POINT I[S] OUT NEW FOR CIRCLE j PAPER Y[D][U]0; SAVE = FOR /[J] INVERSE COS BRIGHT CIRCLE [B]<>[T] RETURN OR BIN POKE Ba LINE C©N@^ CLOSE #J`r IF EXP ▙ STOP CIRCLE USR BORDER DEF FN R[I] DEF FN oSGN [H]INT C<JiPSCREEN$ CODE THEN l LET INVERSE RETURN l[G]u[Q] STOP FN © LLIST OVER @SGN 4s[E][T]▜▙ATTR LET PAUSE ~W4IN [O] LPRINT !/SCREEN$ _INT ▗ATTR IF #FN INK RUN X( CAT ASN OR [L]) OUT ▜ LPRINT ?BIN BRIGHT ▞[D]/u[B] RUN DEF FN ]:[N] MERGE BIN 0 m2▟K READ LOAD AT O' LOAD ATTR ▟I GO TO POKE RND[T]U OUT >[S]I3# SAVE ▙ LIST /@ PLOT CLS OR w=▙[R] REM RNDAT PI MERGE FN RETURN IPI=[J]Hi*VAL$ ▟9U LPRINT .[S][C][Q]VAL$ LOAD [U]7 PAPER THEN INKEY$ BRIGHT IF -[B]TAB RETURN ▛xK READ COPY + RUN f PAPER BRIGHT 9 OVER SQR [K]INKEY$ DRAW 6Y_)FN ▚ TO [C][C] DRAW 7RND COPY COS SQR H8$CODE Uh OR [L] AND 5▜$ RETURN COS OVER j>=[D]_ IF FN [H]&23CODE 4 STOP BORDER lTAB STEP 4LN 1>= LPRINT PAPER g TO SCREEN$ NEW FN OPEN #p MERGE 4▚ SAVE ▗ TO TAN FOR POINT FLASH C>= COPY R LIST 3SGN READ LINE & INPUT CAT COPY F[E][I]s0W CAT [T]▛▚$LEN [B] FOR W CLOSE #[A][A]/Q RESTORE CLEAR POKE " LIST TR- RETURN GO SUB O}[H][U] NEW LPRINT 8& TO CHR$ fT RETURN CONTINUE CONTINUE TAB NEW CODE 9 LLIST LET TA MERGE _- RANDOMIZE AND STOP + IF PRINT IF E DRAW OVER WPEEK ERASE $ OR CLS ;g~,l=&~POINT PAPER z© LINE [B] PAPER OVER OR ▝[J]s STOP !SQR 6 OVER ▙TAN NOT [Q] OVER NOT ex STEP [C] PAPER WCOS ' PAPER ▘ DIM u[L][S]<> TO ZCHR$ G READ e( MOVE THEN ACS E`1 INVERSE STR$ F8zNOT [Q] INPUT DIM MSGN BRIGHT INVERSE [E] GO SUB [I][C][Q]CHR$ h STEP READ INKEY$; COPY [J]|▞[H] INVERSE &AT 9> CLOSE #[P]EXP ▜[Q]CODE SAVE LLIST OUT [K]"ABS ':? NEXT ABS X PRINT <a/>=,254<>{~ DATA V[U]▚COS COS STOP ERASE <>[B]aVAL$ PIPI[I] BRIGHT _WASN ABS ,)PICOS LPRINT (SIN DATA ASN [B] READ CODE 7[R]y>=OG INK j LLIST M1w LOAD FOR RND<z[S]N[B]1k[A] CONTINUE ERASE O[B]5_ LPRINT [E] PRINT DRAW <>/@G`OX RESTORE CLEAR RETURN POKE ABS GO TO 160d ERASE [K] MERGE [L]LN BRIGHT 8 DATA AND LOAD OUT + CLS INKEY$▘4p[Q]pL OPEN #u[Q]ASN RUN CLEAR GO TO > NEW INKEY$O▗ OUT 6 ERASE NINKEY$[U]2}z[J]iSCREEN$ Yi TO LINE u VERIFY [N]COS OVER ▖?RNDB POKE GO TO gDE[P] INPUT Vi<ABS ©SGN RUN hSIN ▘ PAUSE MOVE #▖[T] LOAD [N] RESTORE MOVE }JS LINE OR SGN K BEEP yABS [P] OR FOR OUT RS3 RUN 9[J] RUN POKE J▗2[N]INKEY$ RESTORE { OR [C] ERASE u VERIFY LLIST AT x* THEN ©u© LET NEXT 1_ FLASH {!X SAVE NOT ' INK CLEAR :/ STEP [P]INKEY$ NEXT _"/> TO 2; STEP INPUT NOT C PLOT CHR$ !<>[L]NOT ▛ STEP > PLOT >= IF ▛ COPY 6, RANDOMIZE STEP IF ACS OPEN #[S]CODE INPUT CLS COPY [N][I]ATN [A]: PLOT /2▛▞]< THEN [D]© LIST INKEY$= STEP GO SUB NOT NEXT LN CODE 2q LET ~[P] STEP GO TO [T]4[U]©▚[R] INVERSE !SGN | RANDOMIZE ▛[M] LIST STEP LET ▘"▚:[T]z THEN O PRINT TO r[P] LET BIN PAPER [H][G] STEP [K] DATA RETURN LINE ©▗USR BORDER f[Q][B] INVERSE BORDER f[O]PI[L] INVERSE PLOT fVAL [S] INK OPEN # IF ▖"(TCOS ©#▜O THEN CODE UMPO< RETURN 9A8F0 CAT RND VERIFY @tw PAPER ▘ RANDOMIZE 7y:} STEP [M][N]xPI LINE COPY ▝A[T] INVERSE ~ RETURN >[L] PAPER INT ASN ERASE PI RANDOMIZE ><>2iNOT TAN STR$ R▛[L]{& COPY LET LET : COPY EXP BEEP ONOT ASN :[B] AND 4zk CIRCLE ATN COPY : BORDER >= RETURN USR * LLIST GO SUB POKE ▞[ RESTORE |& FOR ▟[D] READ CODE CODE THEN O[H] GO SUB PIUSR MERGE [F]2L[C]! THEN NOT SAVE NEW RND LOAD PAUSE RETURN LINE INKEY$1POINT *v4 DATA BEEP ▗PI PRINT >^XLN STEP ▛[P]4[P]PI( CONTINUE NOT [O]= LET INPUT RETURN USR ?CODE =([2S RETURN ▗: LET PI STEP ACS DIM BORDER <=STR$ / FLASH / FOR b▗mZ COPY LLIST CIRCLE SGN [G]U PRINT H=gCODE NEXT [L]f FOR CAT i ERASE LET <> OR CHR$ GO SUB sg!f|Pv MERGE [T],/=EXP RANDOMIZE CODE <>>== LLIST 4p PRINT [H] MERGE [M]8nuNOT <> POKE !l{;$[N]a/ DATA INT [D]RND ERASE CHR$ DEF FN IF Mh RUN 3[Q] INK e SAVE DATA [F]wk2 COPY :[K]z STEP c[P]L6&J PAPER S6 CLOSE #RBIN LINE > RETURN FLASH iABS Y ERASE V▚T} AND _ RETURN B LINE m?▚:[L]WASN INK TTAB ntU[M] STEP USR CHR$ ▟ BORDER GO TO X▚FN z DATA COS USR { VERIFY TO ASN RUN S[J] RANDOMIZE 9 INVERSE *[N] LET [L]~LN (ATN y GO SUB VAL ` PAUSE ©4▞I[A][D] LINE AND [F]_VO DIM [A] NEW /oRND!i//[S] STEP YFCHR$ z[H]x▜Za[R] RESTORE )[T]8 BORDER ▖SCREEN$ ABS !IN :RND INVERSE [U]W COPY [P] DATA ! RESTORE MD0=~ LET O]P[S]qNOT OVER <3 DATA ^,V BORDER 0 SAVE O GO SUB R LLIST ▝* BRIGHT BORDER RESTORE CONTINUE k FLASH PLOT STEP ACS [I] LIST @ BRIGHT ACS -xPc[K] FORMAT u[O]>=Z DEF FN LLIST STEP [J] PRINT MERGE ~# IF MOVE PAUSE PAUSE INT % OUT PAPER LINE LINE _3 LINE LPRINT LINE ^CODE LINE `>= STOP >=F STEP IN [O] OUT DATA AND CAT B OR n! BORDER PEEK CHR$ VAL dP▗: NEW [T][C]= NEXT RESTORE * INK ASN ABS LIN SIN CHR$ EXP NOT ▗TAN PAUSE FOR 7 GO SUB S[F]z{.[J]2K▟Ng* GO TO FLASH POKE /"BIN [T]ABS CHR$ 2<>▚IN bPPEEK [D]y PRINT >USR 6,USR FORMAT PEEK [F][H] LET 7( CLS [H]g.AT DGABS 1:NOT SQR [A]0[I]WG BRIGHT ) CLS PAUSE %VAL$ STOP [/ INPUT tPOINT 1[E]NOT aSGN RETURN k GO SUB POINT FORMAT ACS CODE OA29[J]NOT >= STEP [I]zRND CLOSE #[J] THEN z AND "4 PRINT &[M]ZJ FORMAT CAT [J] IF [R] RESTORE 0s NEXT CODE GO SUB b MOVE MERGE G FOR LLIST y[P]fINT x[I] PRINT ▚ RESTORE MERGE [I] INK POINT LINE [Q][E]@"5[J] MOVE LLIST COS (6~# DRAW [F] SAVE STEP 1[J] LIST BB&~ AND DEF FN INPUT @ PAUSE xFE FLASH 3ATN FORMAT CHR$ >= MOVE 6'T0ASN ASN *{h[L]|([T]^XCHR$ OUT ▚TAN ▛TAN RNDm#INKEY$>m▚▜EXP M[H]PI>#S BEEP #X RETURN <>*bPITAN j LOAD ▚l LINE USR INKEY$o| RANDOMIZE IN ▛ PAPER IN D[N] RETURN % LOAD VAL$ SGN [F][P]l▖[L]VAL$ rNOT TO U POKE -▞ATTR DRAW Pr[F]V▗UVAL$ STOP DRAW TO DIM [C] TO CAT I>=▙ CAT DRAW [B]POINT LINE ([J][P][D]▜ INVERSE [P] RANDOMIZE .[E] BEEP [P]▖[G]!SQR ▝6[D]~NOT =(5[T] SAVE ^[E]?^`{EXP ▝C STEP COPY OVER OVER a© CLS TAN STEP OVER 5:PEEK ▜ COPY =%/ MERGE !_▖[S]o'~=NOT © CLEAR >d DRAW GO SUB yNOT USR NEXT CODE RNDFN DATA POKE <=NEXP w[K][E][O]SQR PI[R] INVERSE [Q] RESTORE ][H] MOVE Y INPUT 2[H]uTg!( NEW f CLS "PIN PLOT OVER [U]<>bSQR GO SUB |y} RETURN > CLS I|+!g}[Q][D]wb DIM [L]kwM[L]z NEW Ir4rSGN EPI[O] VERIFY SCREEN$ SCREEN$ STEP ▞B PLOT NEXT [H]!INT z0[U]C[O]STR$ RESTORE RESTORE ~ RETURN AND GO TO TO LLIST RESTORE ATTR PI[O]▟}TAB OR <><= &TAB qo OPEN #SIN BIN [N](*1 NEW ACS RANDOMIZE [U] INPUT RETURN NOT 2s|CODE STEP [B][D]COS /' RESTORE PAUSE ▝8Lc[P], MOVE ~PI MOVE STR$ MERGE [T] LLIST OUT [I][N] READ } STEP .[S] LLIST BEEP [K], THEN V CIRCLE [Q] INPUT jRNDSQR TO TO OPEN # OUT SQR RESTORE A! CAT |TAN BEEP 6 LLIST MOVE w[H]INKEY$+ACS 1 CLEAR #:[S]▞ VERIFY O(h ERASE FOR U[B]qfYPEEK [U] AND VERIFY OPEN #VAL$ 0=▙VAL$ $AT [O]z CIRCLE BORDER OPEN #[S]> NEXT kFVAL$ <={SGN i BORDER RESTORE OR AT STR$ IN 4▗ PRINT hEXP RUN SGN [F] STEP h[M]s CLEAR x[Q]YLTAN INT ▙ REM DIM } OUT [G]Es2t▗[P]/ INPUT SQR NOT OR ▞EXP BEEP ▙ INK |[K] OR v MOVE THEN TAN ▛ OR IN .] AND A2 READ ~ BORDER ©:6▜PEEK GO SUB ~ FLASH CLS PI THEN FORMAT NEXT PIK3&▙LEN LLIST SGN INPEEK ATTR FN 'IN STOP DEF FN B CIRCLE F▝ RETURN dt LLIST TAB CLOSE # LLIST ( BEEP q0 POKE OVAL$ RESTORE [G]EXP R TO M DIM ![Q]© PAUSE VERIFY INVERSE "SGN |[H]<>POINT ASN ▞kB]RAy!>I4STR$ RESTORE ▛V PAPER O3 DATA COS LINE CODE TIN INVERSE [▚COS 9 NEXT
120947▘4H< RUN AT >=c BEEP RETURN RANDOMIZE >2[H] STEP ACS / u-} OVER COS INVERSE ASN ( GO TO ERASE BORDER PLOT [P]<>INT 6C[G] MOVE LLIST BEEP LEASN CLOSE #H/ IF MERGE [S]= RETURN G8 FOR "▛ LLIST I CLS FOR :▖CODE RESTORE PEEK MOVE - [N]KUSR [C]SGN [D] FOR :[J]ABS 3 MERGE NOT 2▛ DIM sR* RESTORE q OUT PRINT BEEP GO SUB [[R]FR0[O] RETURN !{ STEP E[D]NOT V DATA qO|c PLOT LET PAPER ▟:[Q]z▝[D]▗ PAPER PAPER SAVE $@ DATA [M]IN PAPER RND*LN [S]"s STEP POINT 8 h▜h} OUT THEN POKE AT @O1 TO ;[E] OR FLASH CLS INVERSE [L]xoABS RESTORE !ATN COS o LLIST VERIFY { PRINT di FOR LN *[A]▘[G]INT N OVER CIRCLE [R] MERGE O[P]Lx2~[C]* POKE M[L]/" DEF FN PI LLIST ▛ RESTORE [N]h[D] MERGE GO SUB B FOR .f FLASH LLIST 1 NEW TO NOT U[J][E][G]R POKE L[T]SQR LIST +3J PRINT )]F PLOT PEEK ▛Q ERASE [N][H]$ VERIFY 6#K▟ DIM SAVE ]CHR$ RANDOMIZE ▟ SAVE [J]I▘x OPEN # THEN ITSTR$ [G]▟ FOR RESTORE "[T]f STOP [P] LLIST qCZg[M] VERIFY Ah:4 OPEN #;e' CLEAR K▟A[K]dp INVERSE LLIST _ TO VNOT < ERASE ZVAL FOR DjABS WC[P]4▚p2 LET DWRPEEK 1a[H]SGN POKE LSGN f PLOT ©jp. <w: DRAW [I] POKE q[M]. CAT ~ CLS % LOAD ABS STOP READ RUN GO SUB VAL AND lNOT MERGE ▟n=NOT READ LET 6 LLIST FOR o@[N]+p-e[K]q*" DIM BORDER INT DIM OR <= LPRINT [D][M] OVER FOR LINE READ ASN IN XIN ABS t CAT S[T]hSQR INT >=^ NEW ▚ POKE MERGE L LLIST 2G[Q]USR INVERSE / PRINT VAL$ LET NOT IF [O]NSQR SGN ]k[K]O2EXP { RETURN ~ OPEN #r- OUT CLEAR [U]z▜}ATTR }{] ERASE ATN SAf PLOT m OPEN #P CLS T DRAW w8 INPUT IN OPEN #[N]<=ACS `7Mu RETURN PEEK #xLEN PRINT STOP { NEXT PEEK AT INT dEXP COS PLOT [S]yCODE d▗ATN %} DIM NOT Mp{ OUT POKE <>= RANDOMIZE SGN RESTORE USR p CONTINUE PEEK <▛ OVER DIM [S] RESTORE ▚ TO [C]q▗IN LLIST NOT [E] OR zSIN :sw5 OR SAVE [L] DRAW ▞+V-^H ERASE ~wf TO l[D] SAVE ` PAUSE READ h2 BRIGHT BORDER gDTAN CONTINUE BRIGHT Y DIM NEXT ! REM ASN / FOR CLOSE #PEEK EXP ▜9O BORDER LPRINT uRzNOT CnVAL * LLIST h CLOSE # BEEP NEXT FOR zsBS MERGE RESTORE h ERASE U OPEN # VERIFY w DEF FN J[SIN STOP RNDB[R]g CONTINUE <>rIN LPRINT ` COPY IF (= x▝ RETURN LET FLASH POINT CLOSE # LINE !%POINT rn VERIFY ~ MOVE REM >VAL 5( DRAW { PRINT 4 RESTORE EXP fP LLIST y[J]$ THEN h▗ DATA SIN 4v COPY [B]wOEXP CHR$ BIN [A]SQR >INT 8 VERIFY OR ▝ TO [A]2' THEN DATA o{[A]A[H]: LLIST {c DATA [H][D] BORDER %VAL$ rG#k RANDOMIZE [H] RANDOMIZE CONTINUE [C]oy DRAW POKE VAL EXP 8 OVER ABS [K]EXP [S]▚INT RUN PLOT ':▖ OVER ▖[M]o&J?) CLEAR :k PAUSE REM FN VAL @ MERGE FN g BEEP PRINT gz4v. CIRCLE [E]s PAPER ▜{▜![L] FOR TO [I]CODE USR ▛ IF w# THEN | IF S CLS O LET <EXP OPEN #[T]CODE PRINT SIN C/ATTR {[I]ATTR &Z SAVE [A] PLOT COPY CLOSE # BEEP CLS Q[H]<>!l~ STEP [T]ZINT l DIM SQR [U] MOVE a BORDER >=t[H] DEF FN #&INT -VAL$ V POKE >= STEP RESTORE OUT ▙ STOP " TO CHR$ ATN NOT IF BORDER SGN GO TO ACS PRINT ©Rx6 COPY # CLS 2F[S]! BEEP LOAD "[R] POKE INKEY$=([O]".LN Q[C][O].([C][L] OUT LIST [B]I CAT POINT $ OUT EXP !4| PRINT {'o}B RANDOMIZE ATN cd NEW y*IN ▞&<=ATTR jAT ATTR PAUSE CIRCLE IF TAB SQR [B] PRINT 'TAB PLOT ABS MOVE [B][P]od DEF FN K INK [C]}TAB < FOR CLEAR AT THEN _SGN ▛CHR$ [C][O] MERGE y[K] PRINT |u| PRINT OPEN # PRINT | RESTORE CLEAR ( RESTORE "][M]COS y{g { OVER 2u[C] STOP [J]2>C[D][N]d CIRCLE [D]WO[D]EXP RUN 2BIN OR [H]=Cc PLOT hVAL NOT GO SUB '[M][D] FOR +r-soL[E]CODE THEN s,r REM CLEAR LLIST 6NOT SAVE [B] PRINT p CLS SQR C=[T] LET [L]PG STOP mh NEW B"▙[P][C]{[J]g RUN NEXT n DRAW ~ FORMAT d/ PAPER h CLEAR jZ RUN SAVE CODE CLEAR READ <=EXP INPUT KRNDVAL$ _ CLOSE # PLOT SGN ▘ RESTORE cBIN OVER ABS i OR / CLEAR } PAPER /F&] NEXT ▘ CAT SQR /0U7ABS STR$ CLS ASN k CONTINUE [T] GO SUB V27 CAT [G] CIRCLE CLS [U] READ INT ` GO TO ©z CAT ▜y[D]? BORDER 9 NEW =m! PRINT VAL$ y LINE [M]oPEEK AND ~# TO IF yACS O▝ THEN ?w PRINT O![P] COPY [B] FLASH s▚_ CAT AND W STEP [K] GO TO zi[F]HR9 LLIST / NEXT PAUSE > DATA REM INKEY$ LET :| PAPER ACS =>= RUN J FOR COPY NOT ABS ABS STEP 8[D][N]xPOINT RANDOMIZE >=ATN INK i<>K`COS OUT ASN FLASH G~{/VAL EXP x-^ PLOT DEF FN NEXT OVER s OUT VERIFY [K]([L]_ CIRCLE PLOT /ABS STEP -. [T]oATN u BRIGHT <USR ABS kBIN >=[N] READ 1▗No LINE CLEAR STEP NEW @.SQR TO BRIGHT }e LET <>: LOAD READ AND LOAD RUN IF CHR$ C[E]SQR :w( STEP # SAVE LLIST ©CODE : CLS Loi( BEEP OPEN #(2 STEP 6 AND ] VERIFY ?USR I:w`jw[K] INVERSE " PAPER USR ' CONTINUE uRNDTsABS LLIST NOT ▝ VERIFY INT PAUSE DATA BIN ASCREEN$ ▛~2 LOAD PLOT [F]6 NEXT OVER RETURN 1CHR$ <=[E] CLS ! OUT z LPRINT INPUT r[O][H]▗ TO INK My([D]I<> PAUSE ib%ATN [K]▝[A]. NEW g COPY @6SCREEN$ $▘XU SAVE , LIST a CAT STEP [G]b PAUSE _ NEXT <= RETURN [K] DRAW PRINT SGN 6N= OR yfq DATA f STEP CLEAR i RUN 2PEEK N▛>%/[M]MSTR$ RETURN [E]y[L] BRIGHT ABS %! CLS $ OUT z STEP [F]0[L],SGN [L]J AND DATA [M]BIN }[J]u RANDOMIZE b OPEN #EXP CHR$ [F] POKE UCODE [A] MERGE ) BORDER } PRINT RND VERIFY SCREEN$ }ATTR FLASH 7[M]>CHR$ FORMAT D RANDOMIZE ACS <>y RETURN [Q]8 THEN [J] SAVE o NEW G} SAVE COPY AND e OPEN # STEP @&>[L] COPY 3 CLEAR _ACS w{? IF [F]<>Ki[F]b VERIFY /<> NEXT > LIST .INT ? MERGE qATN NOT /▜iPEEK ) PRINT !l▟[U]9[U] FLASH [F]: FLASH ATN OPEN #8 LET < CONTINUE <> COPY 7!▚ DEF FN s&yhw# NEW THEN LET <>kb COPY GO SUB TAN @ COPY [M]'▗ PLOT DRAW # READ DRAW ]T<> PRINT OR MERGE LLIST CIRCLE IN 8u PRINT RETURN IN #STR$ PEEK O READ p LET RANDOMIZE TAN COPY RUN T] OR [I] LIST [F]© CLOSE # CLS # RETURN w>[K]POINT ▗qATN INKEY$ CLOSE #STR$ RANDOMIZE REM INKEY$j POKE ABS ![E]INT NEW RUN d,Y-3 LIST STEP EXP [G],}}^ LOAD © REM SAVE INPUT SNOT IN ▞P FOR ABS ERASE FOR ▙[B]~ GO SUB IN ▚0<> COPY w3 OUT [J]L GO SUB | LLIST ,<> TO ?BqINKEY$ READ }<TAN © GO SUB D NEW © RESTORE o` STOP NEW ©MD LLIST ▘bk6 COPY p RESTORE N#}+ CIRCLE THEN [H]FN >▝ LLIST <>n)_! POKE n/BIN t GO SUB LEN 0[H]<> RETURN ~ol[F] THEN % READ { CIRCLE PLOT <>CODE BORDER r MERGE 1i DEF FN RESTORE FORMAT Yr/ FOR LIST CODE 02g[H]z RETURN CLS OR L[L] THEN %EXP © INK 8[B]30 LET COS # LIST <= DIM FOR STR$ RETURN 7" LET |ASN MOVE LLIST >=[H]#[H] COPY ~# RETURN "8 IF [U][S] INK (%Dz+ BORDER LPRINT {2 OVER [H] COPY RESTORE ' RETURN 0 RANDOMIZE OPEN #L LLIST BRIGHT : POKE G3 NEXT VERIFY WVAL 907▟O INVERSE DATA NEXT RESTORE STR$ >=> FOR j=BIN | FLASH INK {<>▗CODE ACS XgTAB [M] CLEAR LPRINT ▘o>USR INKEY$O NEXT [P]8LEN ' LLIST CLS INKEY$ SAVE IF STEP K DIM ▖~ STEP [O]o$ RESTORE / LPRINT STEP /[I]PIVAL [K]> LLIST Y STEP @ PLOT LET INVERSE Fr, OVER [M][J] DRAW s MOVE F THEN <= FLASH COPY YJ7~ABS STEP INK [T] DATA SAVE PAUSE _SQR [A]▘ CLOSE #LEN ▟{ LET NCODE RND RESTORE SGN CHR$ LLIST STOP OUT NEXT RND[Q] READ !O^ PLOT VB]JkCODE BRIGHT kCODE [D] FLASH Q<> RESTORE xk LLIST [J] STEP [L]"▟/ THEN tlSGN PAUSE h MOVE xu▜ BEEP COPY 6©Z<> NEXT PI>= RETURN 8INT ^PEEK NOT TO [I]g INVERSE V LLIST , DATA l CLOSE #$DBTAN UCODE 7O OVER =LN N MOVE ~COS z#VAL$ + LINE MERGE >/ LINE NT[H]PEEK [S]ACS VAL$ [T]pIN MERGE V^[S]W RESTORE ZFSCREEN$ pVINT ERASE 9 OR MERGE GO SUB [B]_i FOR [O]8POINT LLIST ▛_ NEW AND <W{*1 SAVE _w$ RANDOMIZE *5[J]| NEW 5[U]:[M]w PLOT P, |mI61SIN COS r~SIN STR$ f[I]D VERIFY 2IN [J] TO nTAB {POINT SCREEN$ RUN ATN < LET COS NOT SGN INT 4SGN 4 COPY O~ NEW RNDy[F] DRAW ACS FOR [ RANDOMIZE - SAVE RUN $ NEW P[G][E] IF : PAPER NEXT ( MERGE RETURN 8[H] NEW *hCOS 1 DATA di STEP O VERIFY CLOSE #be PRINT [E]BUSR RESTORE STEP STOP wl AND olTAN FORMAT [S]STR$ zTAN ww{o INK -<>Y PRINT STR$ NEXT H/ NEW 8[H] LOAD |bk% INPUT a PLOT OPEN # RETURN b- PRINT Xk' RETURN xLEN ( LET BORDER CLS <>;^y[L]mNOT " LET !R. OVER 2 INK JSGN CONTINUE OR FORMAT v;<IN POKE Z AND _SGN TAB P[L] ERASE nf& INVERSE w INVERSE IF w NEXT DIM PRINT INT PRINT 2 PAPER BIN SGN ' LET lEXP MOVE SGN -SQR NEW [J]SIN 8© CLS :_ RANDOMIZE GR[L]LN (<=2H NEXT [A] OVER [C] COPY 6 e OUT pm[A][J]▘ DRAW CLOSE # BEEP STR$ OR d[L]▝G}<LN ERASE n[K]=kUNOT COPY ▟ RANDOMIZE !j/~ INPUT dTwyA[P]SGN PAPER GO SUB PAPER BRIGHT C[L]&V OR TAB 8[N] PRINT CONTINUE "~[T]▛_[M]<EXP (COS y;!4TAB < OVER [P]CHR$ RETURN DI RESTORE RETURN != CLS PRINT /BIN s( LET %[M]"[C][L] LLIST ?ABS EXP "] GO SUB [E] READ GO SUB s=jRND/[H]g REM NOT DEF FN STR$ j OUT FORMAT ACS BEEP 8[E] OUT 0 INVERSE !W© OUT IF 5 RETURN © PRINT ATTR q[N] LET <> LLIST LIST [S] BRIGHT RETURN _o><> READ PRINT |p IF POKE /o/©M THEN PRINT VERIFY VERIFY # INPUT 5STR$ NEXT SAVE k LLIST }© POKE RETURN CIRCLE !rVAL$ >=zz BRIGHT g[F][O]-8[I]i INVERSE OVER U} RETURN /NOT A PAUSE IF Iy!~? READ INT SQR n4> CLOSE # GO SUB DEF FN <>@kASN FLASH OR eJ CIRCLE READ FOR STR$ & RESTORE E$E COPY !V PRINT VERIFY x LLIST BEEP >=E> INPUT = RESTORE O VERIFY 8>=EXP x PAUSE LET m[T] AND RUN READ USR <= FOR W LET [J][M]INT NOT LN SCODE POINT =em$. REM INT >CODE <> RESTORE MERGE y^d> LLIST DRAW FOR +b MERGE PEEK ] STEP ISTR$ LLIST MOVE DEF FN rRND▖[M] GO TO ' ERASE g*^ OVER INVERSE 54 GO TO ^[E] PRINT LPRINT 6G[O]<=[I]d©5 LET 5[J]wCNOT ▛ LOAD ^ CLS M DRAW V<> FLASH | INVERSE RESTORE LLIST S READ ^+ STOP SQR H= DATA PRINT <>?4#ATTR [T]5ATTR POINT IN LLIST ;[M] LOAD ]ASN AND [O]/s1 LPRINT RUN b2▚_7z PAPER f STEP NEW ▖Z[H]M7AT NEXT .[N]p)[N]STR$ CLOSE # RETURN CAT [J]n LINE MOVE GO TO e[N]NRND DATA aECOS [P]>[M][N]}i BRIGHT VAL CLEAR RETURN a8 DIM w[N] THEN CODE NEW [K]~ffNzMEXP PRINT 1[I] CLOSE # COPY VERIFY RESTORE POKE LET EXP 1 GO TO CLOSE #▚=[A]VAL$ VAL$ /;PEEK <$(<=4NOT JCOS ATTR -ATN l PAPER LEN [Tg OUT REM j INVERSE PIEXP STEP RNDB6 ERASE REM lo}SQR y[E][J]& RANDOMIZE ([BNOT [J][+_S/'/60i[R] PRINT ne[J]rCODE FN o GO SUB } CLOSE #G▜ OUT SAVE RETURN [B]T CIRCLE Fp7L(0PICOS zmRNDP[R]5 GO SUB 4 DATA IF w READ RND[E].2 NEW O~▜▚BtTAB CHR$ [D]r MERGE 3 RANDOMIZE RUN CAT M NEXT "~3x# DIM FLASH S% RUN (px RESTORE FLASH ][L]x<> LINE [C]VF FORMAT + RESTORE PRINT _ VERIFY ATTR IN k>z▘g PLOT E7▘ CONTINUE k6[M][S]$% MERGE INVERSE ;[A]8[P] MOVE f▛BIN oSTR$ >LN I[N]5 FLASH ▚ VERIFY d<> LIST 5 MOVE READ [U]k MOVE LET 6 AND MOVE RESTORE <CODE <> MERGE [J]CVAL STR$ 3t▜ IF MOVE THEN CLEAR [D]<> GO SUB [[N]z:[L]zPI>=<U OR RETURN . LINE T[P]PEEK !/w<>INT L,yCODE SCREEN$ CHR$ F[O]<> LET : PRINT AND ` PRINT LOAD INVERSE LIST o<> CLEAR _ VERIFY THEN nJPI TO Y CONTINUE ▛[P] LET MOVE v▜Y▖w>= RUN LOAD IN OUT > GO SUB yB STOP VAL C{ RETURN x THEN © 3BJ2 REM [E]h OR ACS ` RETURN g STEP PRINT RESTORE # GO SUB S RESTORE { CLEAR ▝@A LLIST lATTR [Q] LET o& BEEP :"c[M]▚ PRINT !z[N]OP[A]SCREEN$ LET READ [T]5CODE CHR$ <> THEN NOT ( 0B?: OPEN #m[J]ev[L][Q]x[I] CLEAR [N][K]<>!3[Q] OR [L]k"#<>:STR$ IN O| RUN >[A]]2}G[U]PIV>=x< LINE S RANDOMIZE > RESTORE FORMAT 7USR INT RETURN f▘8INT m>=j[K]VAL$ <>BIN I~4 OVER CLOSE #=NOT DEF FN [A]=Z STOP DEF FN %[ VERIFY iACS [A] LINE ) CAT CODE [C][A] STEP [M]TAB D[K] GO SUB THEN USR [ STOP SQR VERIFY O[I]RNDl[N] GO SUB STR$ [C][D]y INK CODE x NEW 4[E]ATN { LLIST NEW s%©SQR 0 GO SUB COPY , PAUSE : DATA ho GO SUB THEN OVER ▖ PAPER POKE |ATN AT CLEAR 2u)NOT H[H] LOAD FOR TO SQR AT K▟SQR INKEY$▘b@PEEK -[Q]] VERIFY ?STR$ PRINT [E][H][M]gASN VERIFY GO TO | GO SUB PXO OUT RUN (yRND[L] FOR y$k[M] MOVE LLIST [E]CODE CAT O LET CLS [B]/INT EXP USR GO SUB C[O] RESTORE CODE [E]LN CONTINUE x CLS R0 FOR SGN [N]KC LLIST | PAPER INKEY$ OUT SQR > COPY SGN $ RESTORE '1 CAT |TAB [O]▘ CLEAR [R]i PRINT RESTORE n}ACS RETURN |2 BRIGHT RETURN CODE AND 2[S]▞ LLIST AND | OUT FOR GO TO = RESTORE F GO SUB A}KPOINT READ @ FOR tIN >[J]IN <2}}COS NEW C( PLOT LLIST PRINT FORMAT CONTINUE INKEY$[O]6 LOAD 1<> COPY e#NOT [H]H~ RETURN PAPER [T]0 CIRCLE >?VAL$ ^ BEEP LOAD vSIN DEF FN zQ[F] VERIFY LOAD [F]v▝[B] READ THEN ~ BRIGHT LET +] MERGE CONTINUE T&SIN ▝88{~ATN AND ![Q]z4*[R]ATN & MOVE PIkUSR <>{ TO GO SUB LEN T NEXT -wASN ^5 SCREEN$ c PAPER OVER VERIFY CLOSE #COS BRIGHT TO FN Yrmv[J])|+o[F][G]IN =R LET V4[ INK MERGE ) FOR u]3 INK ! INVERSE [F]~-ATTR CLS I AND GO SUB ACS NOT TO RND[H] PLOT KLN GO TO LET <= READ [S] BRIGHT PAPER COS NEW M LLIST <> GO SUB REM SCREEN$ ~5n BEEP [T] READ ~ MOVE FORMAT THEN y# BEEP OUT !h| RETURN i8L[M]q^aS/~b▗<[A] READ RUN DIPEEK Fn[ OR [Q]▗ FLASH aY[L] COPY Z TO r LET LN PAUSE [E] STEP CODE !| COPY ▞ OUT ▖>- GO SUB VAL ABS [J]<> PRINT STR$ 7[U]9▗ AND TAN RETURN <= BORDER 8$o<>w[D]>5Ml[C]<u FOR PEEK POKE [N]i▖R FORMAT '<> CAT K$PEEK OUT DRAW USR , RANDOMIZE <>" OR B/[T]*sYASN >= MERGE Y- POKE DEF FN <= SAVE MOVE * PRINT [F]CHR$ TAB @yN TO ▛O BEEP MOVE CLS $| NEW USR e& VERIFY E OVER PAPER FORMAT OUT AND A>=[Q]-[I][D]r INPUT SIN ASN {TAB y[A]▝ INVERSE /|]SIN -ruH~u LET #▛[G]A6}[C]INT Z[U] LOAD SAVE O^[E]pATTR p FLASH |l TAB NEXT X GO SUB LET TAB CAT ABS DATA FOR >[A]_SQR w/r CLEAR PEEK N[J]&▘i|[B]( LLIST /vPIe BORDER ▘ OUT W-sx: INVERSE ^F DRAW B VERIFY ATTR 7?[D],7<> OVER Oq DIM QSQR OR [K] FOR !▖4]kSIN <> INVERSE TAB SGN _ IF n INVERSE LLIST / LLIST PLOT [E] LIST >=LEN SQR !7 GO TO Wk BORDER RESTORE CHR$ /EXP LIST !:]"W6, TO IF AT 3SK[M] GO SUB U,~gY] MOVE FOR ~ GO SUB [Q]@ASN [Q] RANDOMIZE LSIN MERGE a; FOR ce[Q] INK ! RETURN COPY EkACS STEP k LLIST OUT FLASH aPEEK FOR 6( AND / VERIFY C]▞:/[K]z3INKEY$w< RUN e INPUT 6 PLOT GO SUB O[L]STAN NOT CODE > PLOT FN LN FOR CAT I# COPY {▘f[[S] INK @8▞7tCODE 6RND/RND CAT RNDg INVERSE t READ BEEP USR LINE rUSR 4 NEXT ©)TAN RND1 COPY _!USR GO TO TAB ATN POKE REM ▘tS LET [ATN Ht DATA `[R]wg[M]o FORMAT _> NEW ATN MOVE f CAT ATTR ASN NEW ^ SAVE [M]AT CLS Yf PRINT [F] CIRCLE BEEP [G]CODE [Q] CAT LET PI INVERSE kC READ USR {TAB OUT <>+ CLOSE #(<o[F]K GO SUB F▞ OUT O RETURN "LN [S]<> OR RESTORE Oy!Qz LINE RETURN ~ LLIST STR$ NEXT RESTORE PRINT OR 9 CLS [A] THEN N >V,g/^[N]COS F@~<Mbw LET c! NEW 8/ RUN COPY STEP [G]INKEY$ INVERSE LLIST LET NOT © CLEAR ERASE BEEP PRINT TAB g} OUT Q GO SUB GfOx[N]<=0▝w> GO SUB y LET OR BEEP [O] LOAD 4 VERIFY PLOT OPEN #[E]ATN STR$ LET INK [H][J]▝S*AT RESTORE Z▚ NEXT [B]x CLEAR IN COPY ▛ CLEAR Ci< RETURN RESTORE GO SUB GV▟[B]ACS :x?COS < CAT [L]~[P]SIN dE`q}<= OR OR LPRINT OR STEP CAT XPOINT 1SCREEN$ LOAD ATN INK COS !PEEK VAL v LINE LEN ;SCREEN$ PISQR :l[AT GO SUB [G]POINT s NEW LOAD N FOR ERASE PLOT INKEY$<=3CODE CAT INT asACS PEEK (: OVER GO TO ` IF PIVAL OSQR HP[J]EXP IF STOP RUN EXP SQR f FLASH POINT ▛ PRINT FN BORDER Y[O]4SCREEN$ LIST 7 ERASE &POINT NOT LPRINT fPEEK LOAD [F]$ NEXT PAPER 3PI: MOVE eXq[J]PEEK ~ INK cSQR OVER t INVERSE NEXT w} RUN [F]8> FLASH V:CODE BEEP k!}w[D]▟*1%SIN SIN AND AND LPRINT gn GO SUB v) RESTORE ▜[N]l CLEAR LLIST } RETURN RND8 STEP POKE POINT DRAW w+ NEW G>[A] PAPER L<8NOT [ RANDOMIZE d RUN TAB =0X[N]AT TAB OUT LEN COS VAL PIINT [D]1f+BIN Wg INPUT L BORDER STOP COS BRIGHT ▛ BORDER INVERSE ! IF SGN "TAB {JSQR I INPUT PLOT STOP ]TAB "u PLOT GO SUB CLEAR #CODE 4▚ VERIFY ASN !^?uSGN DIM 8 _ABS INVERSE spE` ERASE [N] GO SUB [~ BEEP McK INVERSE ( RESTORE COPY [Q] GO TO N#F LLIST x7INT LIST #ySQR Y LET (+zPEEK ,{(; GO SUB B[O] FORMAT POKE ▙#}; BEEP ▝*CHR$ : STOP [D]▛LABS VERIFY SQR MOVE PAPER VERIFY ![I]ASN [T][P]E!INKEY$vQN[C] DIM PIc[S]p CIRCLE SGN PAPER +G DRAW K|-" LPRINT PAPER wEXP CONTINUE CODE LET SAVE AT ^3 FORMAT LIST PAPER =[D]PEEK CODE - ERASE INPUT 9 PRINT LIST 7 CLS CHR$ PAPER LET <>x7 POKE PI(RND]C[R]<>0 STEP PEEK PAUSE VAL$ uIN FORMAT 0 PAPER AT RUN FORMAT :8 CLEAR 6[M]GSCREEN$ OR A PRINT p FOR ERASE RESTORE CLEAR f LOAD RVAL$ ▛▞ BRIGHT LLIST LET ©RNDB|Z[P]▖>= POKE SQR (9ATN {COS U RANDOMIZE ATN }LATN t REM 7[B]G LET oU IF [N]hVAL LLIST SCREEN$ REM { LET LLIST NEW VAL $ LIST SQR DATA JCODE [P][} LIST }N| VERIFY > OVER gq FLASH VERIFY RND[F][U]_ GO TO A NEW ©y RANDOMIZE /▜0 PRINT <>;SIN :<W THEN _!D[S]BIN H BEEP ABS &[[L]PILYPIR INPUT ASN EXP RESTORE [O]lh[H][O]ABS GO SUB [R]SIN SGN @ REM ESCREEN$ LEN #I~ATN [T][D]>=NOT FORMAT FN CIRCLE INVERSE REM PRINT 5 CIRCLE LINE [Q]s[K]>SCREEN$ (7>=g INK RANDOMIZE [J]ATTR *W'▖~ NEW +VAL$ BORDER g!AT STR$ TAB y NEW STEP 4SCREEN$ CHR$ CLOSE #j[R]▛ TO x LIST ASN BIN ACS LET *M![B]6 PRINT {[H]ZAT RANDOMIZE [H]Za." READ FN STEP USR [L] OPEN #ATTR o RUN T FLASH RUN LSTR$ &SGN y.V_1x OR u OUT G DIM y VERIFY LINE CLEAR SCREEN$ MERGE IF BRIGHT | AND W STOP IN 5K&%YR DATA ▝ INK & NEXT RND.ATN PEEK ^© BEEP SAVE OVER ©#w NEW } BORDER ▙ LPRINT K NEW y2iATTR ^ OUT # RUN PEEK [P] CONTINUE CONTINUE y RETURN j IF 0 READ Y MERGE MOVE INK L*x FOR "x SAVE [F][K]INKEY$ LLIST ` FOR U[P] LOAD j.TAN /M5 DIM ▙E CONTINUE <=+A[O]) MERGE j3{| DRAW NEW EXP YN[K]GSIN VERIFY V INVERSE h[F]*m BRIGHT H RUN CLOSE #SGN B PAPER ERASE TAB [R]!▖CODE PLOT OUT VERIFY POINT 1h LLIST ABS N[U] THEN IN LINE = LPRINT [C]SCREEN$ USR qo PRINT SQR COS ;g BEEP /Ud|[T]OTAN [O]c[L] OVER COPY )V RESTORE *DdASN CAT /TAB [I]>=NOT x<=POINT POKE FOR PAPER OPEN #AT f[K] TO DIM *&[O] PLOT U NEW [N] FLASH LINE FOR AT 3 SAVE DEF FN VERIFY cCHR$ DEF FN CAT IF IF [R][B]>ACS RANDOMIZE pATN ACS oPEEK CODE -CODE 1 FOR DATA CODE CIRCLE tLCODE BRIGHT 60-[L]CODE PLOT oSQR mA2#[D]GK COPY ERASE 7POINT J PRINT OXRNDA OR _PI PRINT y LLIST o LET [K] RESTORE yKltY%v COPY jIN [H]^ INK LLIST i RESTORE h ERASE [D] OVER k| MOVE Y7INT RUN OVER [[E]▝0:VAL C[ CONTINUE 3[H]"SGN n VERIFY ▜}ACS [w+[©6z MERGE ▟~_ NEXT RANDOMIZE RANDOMIZE FOR CODE SQR ATTR OUT ;+=[T]|ATN <=ASN [U]CODE RESTORE PLOT RUN RETURN `SQR | RESTORE OR oATN [S]SGN K<=L▙ATN CLOSE #>=CODE 2 PLOT LN TO COS RESTORE Y POKE LINE THEN t+ OUT REM r READ 2 OPEN #w# OUT STR$ CLS OR INPUT ▘[D]' AND BORDER VERIFY [G][I][G]L NEW "Q[L]|[A]SGN INKEY$USR R CAT V[A] GO TO 26VAL$ IN CODE VERIFY NEW G~ RETURN #n ERASE x ~ PRINT p+qVAL$ COS Df LOAD ="[B]VAL$ RUN COS CODE CLS q_ PLOT ASN %W( RESTORE f OUT INT RETURN ^ACS INT & GO SUB R RESTORE OPEN #e[S] TO [L] GO SUB LEN LET 6 STOP STEP VAL$ INPUT BIN [O]X DIM <= OPEN #u[R] RETURN THEN CHR$ < RETURN PEEK RUN LIST | VERIFY LPRINT CONTINUE THEN u[M] OVER LLIST OR + NEW [A]{SQR ! NEW /h&ABS /(5 OVER W2 OPEN # CLOSE #o▙NOT sVAL$ SAVE ~<([K] RANDOMIZE w RETURN USR NOT . NEW +~EXP >=4#I[F][E]PEEK j FLASH jM▟58© PAPER L[S]PI SAVE 5^r COPY ^BIN [:[S] THEN PEEK RNDFN LINE OCODE ▞ RETURN ATN STOP IN _o LINE [/[G]5|4 REM ] BEEP 6 BRIGHT [J] LET USR 0USR STEP TAN ▗ OR VERIFY >+INT POINT EXP 7|[H][C]} LPRINT [M]{[L]/[U]EXP #W DRAW 4VAL BEEP POKE IF ZLN VERIFY 8x PAPER 9PEEK PR>ooV SAVE k RUN INK ATN x AND INK 7 TO Z▖ RANDOMIZE / INK @J CAT ▛ REM [F] NEW REM CAT NEW iATN S? INPUT LIST "▘ REM ePEEK B(SCREEN$ LIST !sAT 7) LPRINT VAL REM [D]O,CHR$ %ATTR Y# COPY DIM DATA k3USR sINKEY$[C]WUSR PRINT K4 THEN SQR USR (SGN U+z OVER <>i[N] OUT }} OVER ▜&v: CIRCLE % PLOT DATA ONOT wn: ERASE PAPER 3 NEW FN FLASH bASN ▗CODE BORDER NEW oi=j OR RESTORE ys~2▟ATN DABS RESTORE { OUT )SIN STR$ LN [G] AND o IF o DRAW I LLIST LINE REM RESTORE ▖ INPUT RANDOMIZE RLEN # IF LLIST PEEK MERGE ▙ LOAD LEN z~V FOR MOVE MERGE THEN C LOAD Pyw GO SUB VERIFY x]sriATTR [D]<CHR$ [F]LN TO INPUT STR$ STEP CIRCLE Cy NEXT RANDOMIZE BEEP <> THEN E>0ff CLOSE # PLOT @ LOAD ] STEP [L] INPUT #+ BORDER AND SGN DLN VERIFY SGN 3TAN BEEP PAUSE ][D]; RESTORE } ERASE [T]▛CATN OVER RND{ LLIST v▝'I7U READ TAB vvATTR oC_3 PRINT u CAT iZu OPEN #<>y[J] OPEN # GO SUB : CLS CHR$ zS_NOT NEW [H] TO K PAUSE © CLOSE #6W FLASH _ RANDOMIZE 2 LPRINT [A] THEN #{▝g BRIGHT VAL INKEY$© COPY /CHR$ PLOT RESTORE READ LPRINT LLIST VAL$ SCREEN$ E)<>.4 COPY )zCP STOP COS O NEW OUT ERASE / LIST BEEP DEF FN CAPSLO[D]LN KDE: STEP LINE H RETURN 5XINT [D]CODE LPRINT .SCREEN$ VAL$ [U] BORDER VAL$ UDGp NEXT LLIST FN AT [S].<=[B][T]sVAL$ [R]TAB [P] LPRINT [Q] LOAD PIG; PAPER BRIGHT BIN [D] LPRINT [S]SCREEN$ [Q] STOP :oATTR VAL$ [T]RND[L] NEW [I]<=~ OPEN #RND LPRINT [S] BEEP LLIST [I]! STEP INK iINKEY$ PAPER [O])mi DIM ▜R[B]RNDSCREEN$ STOP 2}T OPEN # COPY 3y[P][E][Q]POINT ATTR PRINT TAB STOP OPEN #[U]d"VAL ERASE 0ASN SGN z TO 159 Z TO IF SCODE y GO TO ▜CODE FN LLIST h GO TO XZ▗ READ PLOT W[K]?[D]PI CLEAR P%<> DATA p COPY RgA BORDER DRAW STOP e NEXT NOT T=COS ▟[S] FOR uYo7/ CLOSE #O4▘ CLOSE #NOT SCREEN$ 5 AND DATA DATA VTAN F! GO SUB bJ POKE [I][Q]PI[U]aATTR SQR 22NR TO >=[S]INKEY$CODE AND [I] LET [T] INVERSE FORMAT ▝ OUT Q▘ FOR RESTORE [F]>^USR COMAN CAT ZwRy7 K RANDOMIZE g▖AT LOAD : STEP ▟NOAME-GB<▟[Q] BORDER [I] GO TO RESTORE CONTINUE CODE |>=[R]CHR$ E FORMAT BORDER &[O] FORMAT ©G[A]_*9▗3% CONTINUE FN E[A]F AND B[Q]= IF ▙u BEEP PAUSE [B][M] OPEN # LPRINT CIRCLE POINT [U]SIN [B] CLEAR ;3 GO SUB 2768 COPY / RESTORE PAUSE OR MERGE CODE SGN LN Y IF MOVE ' GO SUB VAL READ FOR wUSR i[N]AT $STR$ READ >=| GO SUB [D]zSQR INPUT #F=! DEF FN n BORDER ,CHR$ PAPER ▘uASN RND>PPEEK i] MERGE e PAPER TCOS ~:▗ DEF FN VERIFY [L]Q[R]PEEK USR ATTR ) POKE DRAW [T]CHR$ CODE " COPY EXP ATN ACS STEP TAN RNDPEEK ▝[G] INVERSE ![I]SQR [O] NEXT !$ NEW INVERSE W LET [B]_ DEF FN !?/COS OVER STOP CIRCLE g[G]TINT ZASN CLS DSQR T CLEAR cSGN [D]O LPRINT ![C]<=6[S]COS NOT ,IN POKE NEXT ASN STEP INK V THEN TAB $ /L GO SUB .▚ GO TO :BIN PI>TAN 6 PAUSE PLOT A PRINT ▛oh LET INPUT y CLS ▛[P] PRINT CAT GO SUB FORMAT RETURN [L]COS [L](#!t" PLOT TAB ▚AT VAL$ BORDER INT gVAL ▗ PRINT XP INPUT PLOT A CONTINUE [L]!EXP ~/w[U][P]h RETURN RUN J▜ ERASE [K]N<=[G] LINE [F] STEP Tg|▜©b?0 GO TO VERIFY DIM NEW }w INPUT DIM Q RETURN COPY CLS <> OPEN #A CLS [A]IN LET CLEAR COPY GO SUB Yxw#>t FOR SQR yAT RANDOMIZE GO SUB TAB ?_dHGl>[A]bkATN G$* IF ~ OR MERGE [R]w$?[L]RND THEN USR IN 8 INVERSE ,{ RETURN |t FOR MERGE GO SUB [[G]{^ STEP /ACS kO[C][H] OPEN # LINE [E]* PAPER [I]Z THEN B[E]??O GO SUB syACS 1▜TAB IN ▞< RETURN _0 LLIST BIN S DRAW PLOT o©&_oq ACS d AND dW}!COS ACS NEW o^ DIM o▙[B]Gj&H~[T]?[D][E] CLEAR ▜ POKE {/_A<COS P<= AND SAVE <>? CAT NEXT DRAW ▚ PRINT VABS |E<L DRAW IN $l▜ INK ACS ,&sr STEP ABS NEXT GO SUB [D]hSGN ABS G[I]x RESTORE MERGE OR INVERSE PRINT R DEF FN IF . NEXT READ LET [B]4 INVERSE COS MOVE [H]rNOT 8 IF [S]"SGN LIST EXP ▘*@][T]z:?AT % CONTINUE [T] BEEP BIN bs LOAD ▝LN IF RESTORE BEXP d RETURN *(ATN DIM [D]fINT [L]U RETURN o INK VAL$ AT KINT INK OVER INKEY$ MERGE JINT [L] NEXT [S]ATN ?A NEXT COPY PAUSE 3LN UVAL$ WEXP LINE ^*WelE DATA s# BEEP [Q] FOR ATN REM ,.! LIST [[I]{PEEK (-▗ NEXT OUT ▟E[D]# LIST *©w"[!K]POINT VAL$ ( NEW VERIFY 7 INPUT CAT :[U]zPIO<>OTAN ( RETURN 8 PAPER f,NVASN [C] PRINT CIRCLE LET CAT FOR o{3- THEN FLASH e=[D]n OPEN # NEXT IF RND} INVERSE LPRINT WUSR oLEN VAL$ g RANDOMIZE BEEP COPY H FOR /{< k]IN L> BRIGHT INPUT 65 DATA [T]4NOT :>e[C]+TAN LEN 5 CLS DEF FN IN I NEXT CLS 2 POKE INT LINE DEF FN FLASH C][S][H]~_ THEN READ FOR L OPEN #t LLIST F OR TAB O%SQR ASN 8<>USR 2k]fE@ATTR TO [I]d6[B][A]BIN / SAVE PEEK SQR ▜=u$▚▜[L]?▞ LET uABS THEN O[F] OVER INT IF MsSCREEN$ ▖_m STEP PRINT <%SQR ZNgSTR$ zk▚ CLS [G]/ CLS "[N] RETURN W INK w NEXT AT FORMAT 6e©,U V[S]L[F]|^xSQR e AND +<> CLS RACS VERIFY [Q] LPRINT [O]CODE 1[U]N LINE <EXP -w>=<=[E] CIRCLE 2= THEN FLASH 1 FOR <=([ CIRCLE ▖V CAT COS THEN [D] FOR BEEP M OR kLN }PEEK DEF FN f STEP LLIST ATN }INT NEXT ABS OUT INK NOT SQR FLASH MOVE [K]TAB W PLOT >] CIRCLE POKE ▙WBIN mli GO TO SX RESTORE [L] OUT { CLEAR OVER 3 FLASH <> ERASE READ CLEAR OUT STEP EXP DRAW PRINT RND VERIFY gSCREEN$ <= THEN COPY OPEN # DEF FN AmPEEK 4SCREEN$ NEW CLS © FOR POINT AND STEP INT STR$ REM LIST VTZ_x THEN INPUT CODE U>=VAL$ `[O]VAL$ Y PAUSE RETURN INVERSE nSIN DEF FN sAT SCREEN$ Qf[O] PRINT r[F]VAL$ DEF FN ~SQR %u GO TO < LET ACS t<>x©>= OPEN #7 OR RND> GO SUB ySTR$ CHR$ LINE ' ERASE ?_@x CLS JfSIN Nqe DEF FN w+ FORMAT BEEP [T]>=[H].sQBIN VERIFY &!<Y MERGE ! DIM ▟gL LINE MERGE LLIST #SCREEN$ DRAW %[B]5 LLIST MOVE PAPER BRIGHT THEN IN EXP >i:[A] BEEP ~Z NEXT PEEK # NEXT <> INVERSE © STEP BIN > RUN } GO TO DEF FN + FOR <>][H]PNHSTR$ Z REM ( CLS a DEF FN RUN #ASN NEXT ? LET ?EXP RESTORE MOVE ?pCOS h ERASE C COPY c<>'▙[R]x OVER REM RNDAT w VERIFY FN PI COPY [B][U].[S] STOP ^BIN VAL$ [U]RNDCODE `o +BIN 6SGN .NOT WPI[Q][T] LPRINT READ 9{ABS ERASE [A]RNDPIFN w RUN STOP ▝SGN _[H]oVAL$ =LN 9 CLOSE #ATTR GO TO STR$ LPRINT TAB [Q]7|. AT GO TO READ PEEK CMOS/ BORDER LLIST NEXT CLEAR INPUT FORMAT LPRINT VAL$ Lx} BRIGHT CODE PRINT >FN TAB . STEP STR$ ▖CODE VAL$ SQR ?0PIUSR [Q]AT LOAD STOP CODE x GO TO e BEEP 4 RESTORE POKE [Q]FN B[D][U] LLIST 3<=POINT SCREEN$ FN [S] LLIST LOAD 128k56 LLIST RANDOMIZE K OUT CLS ] OVER DATA LN [M]ABS [A]ProUSR LIST Tackeo COPY music:_w/ OUT CLS OVER 7 NEW RETURN |^ LPRINT RND{wINKEY$▗u|RNDPOINT CONTINUE BRIGHT LPRINT /v[R]VAL$ STOP 8<>T[G] OR RANDOMIZE SCREEN$ VAL$ AT THEN [E][U] READ THEN t[D]SQR SAVE W PRINT SAVE CIRCLE ( BRIGHT SAVE ▖ LIST ` LPRINT X1a|VAL INK ▟@ GO TO [E] CAT INPUT D SAVE VAL GO TO Fp, CLEAR PEEK [O] PRINT ▗X PRINT GO TO PLOT LINE [S]|COS [O]X8[O] INVERSE SAVE OUT VERIFY COS CHR$ AT [A]{ CAT zeQ CONTINUE Y>,[O] INVERSE DRAW LOAD VERIFY COS LLIST VERIFY >=ABS CAT zSIN FN FOR Y[P][G]▙g=~w PRINT AT pkd^COS [O]YTz VERIFY OKGBY CAT ?;= FOR 852AT g/,*[O] PRINT '% VERIFY COS #!EXP z FOR INK 1X= PRINT GO TO BRIGHT >o<D TO "▘ GO TO s▟/ VERIFY DPOINT gn[P] RUN GO TO D NEW [B]A PLOT ▟gVAL$ kD REM INK LIST ATN ▘O={D NEXT >=[R]VAL$ g{W6 PRINT lD BRIGHT STR$ FN z6DydP CAT =D CAT D INPUT _ CAT LPRINT CLOSE #~ FOR D▟ READ 7DjDMsPDCD< OPEN # SAVE D-DAT g(&$[O] PRINT " STEP 5BB NEXT 7DB▟ LET s CAT 3[R]n BRIGHT [E][U]7g7 CAT m=SQR INT g CONTINUE INK FORMAT ▛J[O] INVERSE ERASE [L] INVERSE COS g7 INVERSE TAN COS [O]▟h{ VERIFY F% DIM VERIFY COS DEF FN TAN [L] CAT z▗n FOR YZF4#= PRINT [O][J] BORDER [S] VERIFY COS DEF FN CHR$ ATN TAB CAT z[T][K] FOR Y[B]▞▘zg=sm PRINT AT ga/VCOS [O]RMz VERIFY IEA=Y CAT :6= FOR 31.g+)▗h LET B▗ STEP CLOSE #BD NEXT ▗B COPY (d DEF FN 'NOT [N]X CAT STOP @ PT3ABS PEEK layxx[v1.0byPEEK Nickof/GDC NEXT VERIFY INK "HUSR _/tlATTR <=<=IN [E]~2[E] TO #X▟^PINKEY$ STEP 8SIN <> CLEAR V DEF FN [G] LLIST [H]a OVER IM TO USR RANDOMIZE COPY :RND<=[Q]USR O FLASH >0STR$ FOR NOT Js CLS r CLOSE #>] PAUSE USR > LIST 2TAN NOT /. FORMAT BIN LOAD OR [L]* LPRINT TAB C AND zBIN %- OPEN #@ THEN LET [N] MOVE >NOT FN CLEAR } FLASH JPOINT LOAD RND6{_ RESTORE A RETURN )▛ IF Q LINE A INVERSE GO SUB SGN LINE [S]SGN [F] PAUSE {pW RESTORE AFN [T]>fl[T]SGN ERASE mmSTR$ READ utSTR$ E& CLOSE #+Q REM [F](Q COPY POINT VAL NOT PLOT B OPEN #OBzv>=,U` CAT kTAN COS RETURN {n ERASE <> REM LINE > CAT ) AND [N] OUT TO CLS NEXT GO TO ) STEP /5 OVER DIM -VOR OUT 7NEZH- IF LET "INKEY$ OR 2U<= LLIST Vd▛ SAVE <>VAL$ COPY LINE [G] REM AT NOT [P]>= RETURN BIN og"[O] TO OUSR BRIGHT z2L CLS OR 1STR$ "▗<=x LPRINT OVER CIRCLE OATTR TQ<= INK STEP LLIST AND CLEAR STOP <>Q[H]9p OUT RANDOMIZE GO SUB s OUT CLS IF COPY g< LINE _BIN o<INT {NOT q LET o}▜ DRAW 9 RANDOMIZE MOVE z NEW {PI PAUSE NOT ▝[T]NOT @:[U] DRAW OR CHR$ [K]= RETURN LIST <CHR$ [Q] NEW 2 STEP : NEXT = THEN [O]5 PLOT TAB CODE oCOS q[O]©~ AND &STR$ o~ THEN ;IN [J] PLOT CHR$ zo8 DIM [L]g FLASH THEN m( DIM LET <> INVERSE g| NEXT LIST { TO ASN NEW MOVE PLOT LIST MOVE RETURN CONTINUE READ NOT CLEAR SIN 6o|6p▖ NEW INVERSE STR$ }1 DRAW r DIM CAT " IF NOT FOR [K]ASN eSTR$ eLN y▞o6BIN &9nINT ICHR$ ▞^ RANDOMIZE LLIST ! ERASE . IF Svz= IF ^BIN *O>=#BIN Z; FOR COPY 0NOT FBIN GO SUB R$ Y[O]jBIN PAUSE *$T CIRCLE SCREEN$ DRAW ^RND STOP THEN f<=©<=:ATN FN i INPUT SIN LINE zL▞ PLOT | OUT ci CLS DATA OPEN #IN ~ OR DATA ▛ AND ©BIN DATA IN BIN x▖ DATA USR CHR$ ACS KCODE DATA SGN LPRINT .< DATA i FOR DATA X2<>▞ COPY CAT 6# DATA RESTORE BIN [L] DATA OR SAVE & DATA COPY BIN ©/ DATA READ INVERSE ASN COPY INKEY$ LLIST OR ▝▟ LLIST ) OR BORDER 2 LLIST }oz OR LLIST B OR | OPEN # LLIST e OR ▖e LLIST : OR LLIST I▖S LLIST SCREEN$ [S][R] VERIFY H LLIST AND <=[O][B]b<= LLIST [O] OVER LLIST LINE [J]%[S] PLOT [L] GO SUB 3 OUT ▘ COPY INKEY$ LLIST [M] AND COPY M LLIST SCREEN$ OR ! LLIST OVER OR LLIST OUT ABS STOP CHR$ MERGE SQR , LLIST FLASH <TAB LLIST OR [U] LLIST CONTINUE ▞▘▜i3 LLIST AND LLIST ▝+ LLIST PI LLIST DRAW NEW NEW ©$ STOP 7 AND ▟ COPY STOP G AND 2▝ STOP z BORDER [L] AND o STOP ` AND STOP 8 LIST PEEK NEW NOT AND THEN STOP X AND STOP gPI STOP TB▞CODE STOP ATTR INT [I]<=SGN <= STOP [P] OR ABS STOP LINE ATN JD PLOT EXP RNDa OUT [Q][T]k>EXP CLEAR }oATTR VAL$ [J] MERGE OVER MERGE mm[M]ABS OVER THEN PAPER :<=IN COPY OPEN # SAVE uNOT GO SUB iCSQR [T]BABS INVERSE |2^[O]' READ AND y,W PAPER } CIRCLE ASN M THEN [H]V INVERSE ATN (y COPY `><= CLEAR .:>/▗U<= LINE RETURN CIRCLE T<>E[G]USR DRAW {VAL !-"G[M] INVERSE [S] THEN }M,F9f> GO SUB [L]MUSR INK RANDOMIZE THEN STEP PI 2 GO SUB sINT _ FLASH ~▜0[K]u#7 LET SIN _VAL$ [J] TO UjW.TAN BORDER u FOR TAB ^"u<> CLEAR DIM THEN % STEP PAPER <= GO SUB S▗MlUSR [R] INK S PAUSE INKEY$ LINE PAUSE 5ATTR [S]<>&USR g COPY PI PAPER [F]>=▝ACS LLIST EXP LIST AND =`<>2 STOP OVER NEXT 0/▜^,f READ RESTORE :BIN INK O THEN |NOT OUT <= FOR ~ NEW mcBIN )VdM[R]{YIN INKEY$▝ FOR CLS X<><>u THEN CONTINUE q8]:;AT Yh INK y[O]USR FLASH ▝ INK FOR <> STEP Q TO REM PNgASN ^[L]TAB ]M=[ SAVE [T]&T[L]mCOS TAB POINT wLEN A TO LEN w[G] GO SUB TO NEXT CONTINUE 3 MOVE [E] NEXT OUT k LPRINT oN,F GO SUB C[ THEN [E]ABS Iu[Q]@ CLOSE #ATTR [G]▝a[J]NOT BRIGHT <=(P<> IF /6[O]i`/LINKEY$ INVERSE ;ACS BIN a5 RANDOMIZE * NEXT DATA PAPER DRAW H RANDOMIZE h INVERSE 9 OVER = CLOSE #2▘ TO ▛ TO mcc CAT RNDIDD/[O]{EXP E RESTORE ~<=3[P]SCREEN$ C3<> CONTINUE PLOT DRAW kBIN [T]Z[ OPEN #UQ|<>FN iRNDE BEEP m RUN OVER FORMAT DIM STEP [F]<>SGN AND INVERSE 5BIN C BEEP E BRIGHT PIE DIM W CIRCLE E![G]? LINE E`W LET ▛""[K]EACS CLOSE #ATTR STR$ LEN INT 9? INK Y~ FORMAT BZ PAPER OR B[K]_POINT RETURN ZABS SIN ^[U][C]B FORMAT 7 TO p- AND :B RANDOMIZE { LPRINT B[K]8Bk>=jW/qx STEP VERIFY w[S]uB& LLIST IB FOR f8<>_ REM g[D] DRAW CIRCLE GO TO ^V MOVE V PAUSE CLEAR LINE POKE [H] CAT [F]<=$ SAVE V INVERSE ▚<>SGN ATTR ©=AT V SAVE THEN V▝E>=@V CAT 9qX▛gGEXP Q RANDOMIZE ~ LET L[P] CIRCLE SCREEN$ GO SUB LINE IN VBIN SCREEN$ OR [ OPEN # OPEN #>V COPY LINE CHR$ THEN mRNDRND, TO LOAD [COS ;m- LINE k[R] READ NOT ?SGN LIST W/ LOAD SCREEN$ NEXT CHR$ xQ[F]og# MERGE LPRINT DEF FN <dy GO SUB [A]_eSk3[P]TAN w LINE OPEN #ACS BEEP CIRCLE ABS AND ▗ATN OR BORDER TO USR 7ATTR "J[O] GO SUB AND VERIFY Z MOVE INT < LINE ]9m LIST <>RNDNOT PISTR$ +-CHR$ [L]CHR$ [O] DRAW PI[H]Yw{ ERASE STOP INVERSE vYo COPY CODE RESTORE I OR LINE STOP }SGN PAUSE 5)CODE OUT SGN ▚oB CLOSE #[K]/o BEEP f▟ DRAW SCREEN$ ▜>k MOVE o FORMAT gRo OPEN # FLASH SAVE o%s NEW FN BRIGHT SGN ASN oi DEF FN PAUSE {5ACS y[TAB VERIFY Q^[J]X[F]MWRNDNOT 8 THEN 8k[G][D]y NEXT STOP [F]<>CASN [B]k READ MOVE DIM y OPEN #[J][N] PAPER ZSIN [L]9 LOAD Z0[E] STEP STEP AND SMg`( LIST /INKEY$[K]tUSR `DY_POINT L5▝STR$ gSCREEN$ PEEK PIk OUT C<=PI(LEN J^USR DRAW KVAL$ COS iL<=|VAL$ 5 LET #?SQR ▛d~ LIST L STEP |▖o>=U[J]RND RESTORE ▛ LIST IN [O]W DATA m PLOT 0 RETURN IN | NEXT STOP m> NEXT X AND ! RANDOMIZE NEXT SCREEN$ &ga[H] GO TO RUN oINKEY$BIN X SAVE v[K][Q]!M DRAW y AND CIRCLE PAUSE BRIGHT H) PAPER SQR 2FAT STOP y LOAD PAUSE dm[L] REM SCREEN$ OR DATA kG AND POKE COS DRAW 6 DEF FN [I] POKE LN OUT VERIFY Y PAUSE I CONTINUE ` DRAW ERASE = IF u AND PLOT CLS [I]INKEY$/<= STEP LOAD SIN j CLS VAL$ PI TO ▜ LOAD LET [Q]: RANDOMIZE F~~K*INT <>[U]H OVER N SAVE [A]POINT e~3 NEXT RESTORE 3[ PAUSE LOAD (`▛ STOP = BORDER FOR C1x[H] ERASE STEP [I]<>y[O] MERGE LEXP _. OVER 3C OUT IF DATA LLIST ek^- RETURN h LET Rt▞ CIRCLE [D] DEF FN t SAVE FLASH IN EUSR
