| Является частью релиза: | Formula One |
| Размер файла: | 28672 |
| md5: | a0d3f49edc237b966f8b17b787d9d9ac |
10 RANDOMIZE USR 00000
20 REM >2H/!@[M] GO SUB [ POKE / STEP = STEP @[M]! CONTINUE g GO SUB [ POKE /b STEP =! RETURN DIM "6/1 BORDER g CLS a! CONTINUE g~POINT TAB w#xLEN PLOT STEP CONTINUE g! LET P~ AND [C]w
52718NOT k©GSCREEN$ OR"15616' NEXT KSA!Z[M]▝[© MERGE GO SUB VAL !=POINT ATTR e<> GO SUB LN !ASN [O]@[M]~ THEN ?8+ NEW G GO SUB o#N# RESTORE ~bk GO SUB B<O GO SUB VAL RETURN READ #~ READ OATN ( GO SUB VAL LLIST MOVE # THEN ?8#8O8AN#~#~ RESTORE bkz DEF FN THEN ?O0AN# GO SUB VAL FN THEN ?80=[K]~ RESTORE bk+= DRAW HINKEY$ CLS NOT @[M]8 NEXT !:[N] RESTORE INK MOVE INK !PNOT RESTORE MERGE RESTORE INK xPI RETURN [K] OGy INK w$ CONTINUE LLIST INVERSE G MOVE FORMAT LLIST # >=!P FLASH LIST 4#xLEN RESTORE CLS VD 1.2 ©7995 ThimotyCODE !XX COPY w GO SUB VAL OPEN # RETURN U@o[A] SAVE STEP REM [M]v{ RETURN ? PLOT <> MERGE PRINT MERGE >G STEP [N]= RUN MOVE z RETURN GO TO LET MOVE <>{ RETURN 0"P5 THEN : THEN PW RETURN @ PRINT TO /[N]w LET LLIST <><> RESTORE MERGE P GO SUB Z~ MOVE oe[K] RETURN [K] COPY ? RESTORE [C]L! CAT COPY CIRCLE [J] CLS H6{Ge%-9 LOAD 5 LIST COPY LPRINT .'5 COPY COPY 7 !'% COPY U GO TO BORDER [G]NOT ATN Ub, DRAW `Q[E]GU LPRINT OPEN #[G]5 NEXT I%USR USR 7USR K%USR STR$ tG5~7 DRAW 0MexDBBDxo Z5 LIST [P]e;j AND Q1<=U5 BRIGHT e1 LLIST GU<d8COS ▗V LOAD 5[K] SAVE H% SAVE <NOT [E]QE>[K]>UBbRJFBaSCREEN$ ['e OUT RETURN ABS CLS de!STR$ -INKEY$v COPY MERGE ▟ DATA <9 NEXT COPY ▟GUSR [C]e[K]? COPY 5<?PIE CONTINUE USR U<@<B<0w2'u1ATN OUT COPY NEXT CLEAR >USR "mP DEF FN RuUAT [U]|G~ COPY u BORDER <=NOT [K]NOT 5USR NOT G BORDER e`PIgsP@ OUT UDHpHDB@2[E][F] COPY {CA LPRINT G%=e"2R INK e COPY [I]7 CLOSE # POKE DIM ASN ▝STR$ LLIST LLIST [K] LET RANDOMIZE USR 9[K] RANDOMIZE we RANDOMIZE LPRINT RANDOMIZE yG5 LET LET READ [L]='" LIST U<[K]B<BLCODE h[I] CIRCLE DRAW 7 DIM [H] RETURN ▘g$J% AND K> FORMAT R RANDOMIZE e COPY 2f LOAD ; READ J CLEAR /5 DRAW SAVE / CLEAR 'oE LPRINT DRAW |G% COPY LIST @'"b$BO4aw BORDER U0 CONTINUE SAVE DRAW OUT ?hCOS %hf?dbK5USR LIST DRAW RETURN OPEN #SIN ©D©©% DRAW LIST SAVE ©© >[K]?NOT +rU~@|@@~k MERGE #u% PLOT 079@IN dT LPRINT u[K][P][M][K][P]SCREEN$ [P]o5[O]? DRAW MERGE e IF w~ LOAD NEW STOP 5|BB|SIN x[K]@ BORDER 6<L&[U] CLOSE #[K]STR$ STR$ LLIST READ RUN RUN LPRINT CAT OR RETURN RETURN PEEK PEEK SGN [K][M][I]▖▖ RUN @5? COPY USR 5BIN RANDOMIZE COPY LIST [L]@uT[H]5 RETURN [K]Fr5[K]LEN HdV5xx[K] SAVE / SAVE E SAVE USR 8 SAVE % COPY USR D% `@KEuUSR " SAVE CLS ©`fqVSTR$ OR 5 LIST DRAW MERGE "▞ATN Te COPY 0Vf RUN F DRAW %USR <U RETURN ©©? CAT ▛ OR = COPY FOR CLEAR ©n CLEAR CLS RETURN IF PRINT CLS jUD[A] DATA SAVE © INK &s$▙U([K]Vs'5[K] RETURN W4*fiX OVER ABS 'eE RESTORE e??~ RETURN DRAW SAVE COPY BRIGHT | MOVE ATN SGN LIST BIN 0C@D1 DRAW RETURN ©pTAB HUU<BB>V[I]'(@r PAPER [K]?r? BEEP U??0?© DRAW Ux DEF FN ju` OPEN #?U DRAW LIST USR LPRINT LPRINT REM IF COPY ? CAT }[A]m INVERSE A #(d0Z$[E].RND< LIST USR LPRINT LN BRIGHT LET [Q]▜ COPY e>=U> BEEP CODE © OVER % STOP BORDER 8:|PIPOINT ▘LEN V GO SUB READ 5▚8Rd/Z7▛ CAT 5[K]E[K] CAT CONTINUE OR LPRINT 8~G FORMAT T REM t~e= FOR IN INVERSE COPY LOAD OUT [R] DRAW CODE 57© RANDOMIZE LIST *INT E▘D([K]ACS DJfEUSR DRAW ©[G]e } PAPER C< REM %[K]8'[P] PLOT READ G%? COPY PRINT [F]s LIST ?[T]>> LLIST ©%TAB YT9 BRIGHT c[G]x<= RETURN © LOAD IN G[B][H]?▟C OVER OVER uu CLS BORDER [D][L]f0/ NEXT eUSR LPRINT LPRINT [K] LIST PEEK e LIST LIST USR 0 NEXT %©oPEEK % NEW xCODE INVERSE FOR RESTORE LLIST SAVE [C]'/ LPRINT O©ATN ©Rx▗8>=[U] INVERSE FLASH VAL ge 7'U COPY ©T"xjCHR$ ^PIE RETURN SAVE ?V COPY RUN COPY SAVE BRIGHT IF INPUT COPY CxATN ^ SAVE ▝)_ LIST < CIRCLE BORDER * RUN IN COPY CLS OVER RND<=0[K]VAL N,AT ENOT VAL$ COPY DRAW YJ REM jSQR ^R% DRAW LLIST ; COPY DRAW COPY IN NOT CLS COPY BORDER SQR ) CLS READ '| LPRINT `▚(USR SCREEN$ LOAD X[F] GO TO READ USR @ AND 5 POKE N FOR NEXT STR$ RINT COPY BRIGHT ▟?CODE RANDOMIZE RANDOMIZE ©U SAVE DRAW LLIST CIRCLE COPY )_ COPY LIST RESTORE COPY ~[N] CLS [N] DRAW BORDER z`(>=E OR CODE CLS LLIST NEW #h4|%!V LOAD RETURN INPUT H*$[P] LIST BRIGHT ▖eNOT NOT READ READ NEXT WRND[K] NEXT PAUSE = COPY " BRIGHT 5 LPRINT OUT ©USR [F] LET ]© READ IN PLOT MERGE >IN ©IN ;IN OUT OVER [P]O▚'#V▙EUSR LPRINT SAVE COPY LN [P][B]>,▚^]eSTR$ [K] LLIST LIST LET E RANDOMIZE RANDOMIZE [K] CLEAR ▜ DRAW >NOT BORDER BORDER COPY LPRINT DRAW <=>=▞[B][C]RND#NU▟+[P] LOAD } LOAD © COPY RETURN CLEAR COPY CLS IF COPY IF CLEAR IF © CLEAR 7$geATTR 26`^Ze[K] LOAD LOAD LOAD ?5 FOR COPY CONTINUE BEEP w COPY CODE @W? COPY IN ©© COPY INPUT LPRINT USR ▜9BIN 2 RETURN COPY OUT INPUT ACS a[O] LPRINT @9 CONTINUE COS ▜[ LPRINT [K]5[B]EUSR RESTORE CLEAR ZMINKEY$ LET J@O%[K] SAVE ?PEEK LIST Y[S]+% RUN ©[I] LPRINT INPUT = PAUSE [H]{ MOVE c▜ RANDOMIZE 'xA[A]} PRINT VAL$ LIST 97 =%?<=% LPRINT 7,v5?▛KASN ▛{?< SAVE ©/ RETURN LPRINT ▝ CLS COPY DRAW v8<=LN LIST [A]PI COPY LPRINT [R]EzSGN #`S%?>. LET 07u©?? TO e#@USR [A] LPRINT [M] OVER OUT p LPRINT ▚fX▚)w LIST LOAD [P]? RUN READ A>=▗ REM %[S]% COPY LET LIST USR 5[D]ASN ><< RETURN RUN LIST '[<={ IF DRAW sY▝? OVER ./ COPY READ C%IN DRAW FORMAT ?▟4U RETURN 'USR + THEN E0[K] OUT ? CLS PRINT % (8k5K[F][M]USR [T] RANDOMIZE BRIGHT COPY W}~ RUN [L] RETURN ce @[P]VAL @VAL$ [U]RND IF {ABS !#"B BIN |[J]`$U©_5`[M] SAVE RETURN EIN NEXT LPRINT `[L]ASN Y PAPER _Z'[I] BRIGHT [K] INPUT PLOT VAL$ TO [L] FORMAT 53 COPY STR$ ▝USR ? GO TO MERGE ;yM© RETURN COPY yNOT IN RUN COPY RUN RANDOMIZE `@LN 0ASN % RETURN SAVE ]w'D# RESTORE MIA[K]▝[K]>v DRAW SAVE LPRINT USR .E©© BRIGHT ▜%VAL G% LET ▝▝ CAT ` PAPER 5@@USR @M@M#[K]h77%jhGEhhji[P]h70CODE %ooh▛7%[K]O©%jj©ENNOMO?M OUT M BORDER ATN %LOLGATN $ML LOAD MA%[K]N0 G RUN ASN h[K]q[K]p[K]rp'W▜sPI%t[K]s OUT p %rrgXo%OGATN so%pq'8q%[K]vC%vv/▜I5:`[K]G BEEP %p`05[K]`7 OUT tE`[K]@ OVER LET PAPER LPRINT PLOT h@s"k[G]@© AND RETURN [T]: IF ERASE STOP [L]INT 6c PAUSE UMCHR$ 3SGN INVERSE FLASH ABS SGN READ AND = CLOSE #[M]>SGN FORMAT [E] SAVE [Q]MUSR LLIST OUT DRAW FOR [F][D]~+ CLS PAUSE [S][L]/e DRAW COS ▘LN P DATA COS [G] BRIGHT v+K BRIGHT % LPRINT [M]RND SAVE [F]STR$ USR NOT /[S]NOT REM +[I] OR USR : LPRINT *AT NOT ) STOP OPEN # FLASH ▞ READ READ READ READ [A] OVER SQR PAUSE STEP E2Hzm~Tr~v CONTINUE | READ READ $ FLASH ! FLASH NOT THEN CLS NEXT B<<NOT $ FLASH $ FLASH , OPEN #, OPEN #2 FLASH T PAPER STOP LPRINT LLIST LPRINT [J][J][P][K][C][B][C][B][I][P][L][P]▝[D][H][L][B][L]▘[C][H][I][J][L]▝ NEXT NEW ` BORDER INK CIRCLE FLASH CHR$ l ERASE INPUT [I][N] BORDER [E][H] DRAW ▗ RUN CONTINUE [M] CONTINUE [A][F]h FORMAT z INK CLOSE # CIRCLE x LPRINT ` LLIST Mq MOVE ~[A][G]. VERIFY VAL F LPRINT n LLIST SQR CIRCLE CODE CIRCLE B PRINT BEEP STEP OUT INK TAN <=^USR INK CIRCLE L CIRCLE DATA FORMAT INPUT OPEN #FN J INVERSE OVER INK INPUT RANDOMIZE DATA STOP ▝[J][N][N][C][G][C][G][N][J][L][N][G]▛[O][N][N][L][M][D][D][O][O] FOR NEXT C READ OY OVER OVER OPEN # OVER R VERIFY FLASH T OVER d IF CHR$ < FLASH ERASE PAPER STOP ERASE ? OPEN # FLASH <> PAPER ! READ READ NEW ABS j{NOT SGN FLASH FLASH [B]RND;[K]^ READ NEXT bdSQR STEP OPEN #Q,s▞KX$<c FORMAT >=>^CHR$ FORMAT OPEN # FORMAT LINE LN 5Y+ ERASE - READ | BEEP PAPER THEN SQR INVERSE DRAW NOT DRAW CONTINUE SQR CIRCLE IF LET [T][T]<= PAUSE CLEAR CLEAR [L]COS [T]COS [T] PLOT SQR ATTR ASN OPEN #[A]NOT ▜NOT ZBIN INK #P ERASE BRIGHT [U]$ZNOT OPEN # AND F$$[U] RESTORE OPEN #SNOT POINT $[M]` BRIGHT DRAW PAPER BORDER [P] GO TO GO TO READ NEXT <=[K]%7[G]▝g▚[I]//3[K] CLS [C]` LPRINT GO TO CIRCLE THEN CAT fW CLOSE # BRIGHT BIN DATA CAT fG#3#W REM REM FOR FLASH STOP [S] STOP OPEN # FLASH PAPER FLASH PAPER ▛[P][S][L][L]SCREEN$ POINT [R][T]▛[R] RANDOMIZE EXP [D]SQR [R][T][R]▛[H]POINT ▛[R][[T]` READ FLASH [L] FLASH OUT READ / OPEN # OPEN # FOR BORDER BORDER READ CLS COPY <= COPY READ READ BORDER READ BORDER NOT BEEP C LOAD CLS CLS BORDER LPRINT CIRCLE FLASH CLS CIRCLE ` #(+(▛ 8==#+%-#+-#%` INVERSE OPEN # OPEN #[L]k$ FLASH , OPEN # OPEN #©;ACS 7VAL$ ;VAL$ <=ASN THEN ASN <=ABS CLS ABS BORDER ASN [L]ASN [H]▟SQR ▟▜ PRINT [K][K][L][C] TO NOT ▛ RUN # RUN [J]▞B▘ NEXT [H][J]SQR ▛_COS [I] FOR LOAD LPRINT ACS NEXT FOR Z; CLS READ R VERIFY [T] BEEP Y PAPER INVERSE READ ▛B7 CLS [D]Z BRIGHT [T] OUT MOVE THEN SQR Y OPEN #▙ NEXT bk[J]3k[K];▘c}[O][F] FLASH FLASH OPEN #3 READ THEN OUT CLEAR FLASH CLS ^[P]SIN INKEY$ATN INT RETURN CODE ^[D]LEN AT VAL CODE RETURN RNDIVAL SQR INKEY$ACS INT COS PEEK [B]NOT [S] RANDOMIZE POKE DIM RETURN BORDER DRAW [D]▟ PAUSE REM INPUT NEW [T][M] PAPER DIM PRINT POKE NEW FOR ▚4 TO IF DIM [E]▖ OVER i/▞SGN [Q]LEN ACS POINT SGN THEN BORDER @INKEY$TAB TAB FOR ▛/[G]SIN ABS [Q]ACS ATN ATN OVER eATN ▘▙yzbyr. IF ▗Sbwi~h~3[B][H]u}ro DIM d[R]VAL$ CODE FN PEEK ABS MERGE MOVE V[I]COS PEEK PEEK ASN NOT CUSR PLOT TPEEK CLS [A]ACS [Q]SIN POINT SIN FN [J][B][G]▟▜ RUN ▛POINT BIN PAUSE COPY SAVE SQR ▚[L]COS CIRCLE NEW DIM CONTINUE SQR [I] NEXT DRAW [D]▚[L][C]NOT VAL$ READ BIN FOR ASN Z OPEN #<= RESTORE [M]Z FLASH ▛OCODE ATTR AT VAL$ FN PEEK [F]SGN NEXT [H][R]SIN THEN ▜^COS ▚[B]u[[F]-f[H]QazyJ▚#Efiii[G]3_|onInTAN ATN SIN INT ACS [Q][O]VAL [P]INT POINT FLASH {W[B]INKEY$TAB INT VAL$ ATN CODE NEXT [K]ABS EXP VAL$ POINT PEEK IN NOT CODE ▗ PAUSE ▛6[C][B][D][H][I][N] OPEN # RETURN LET LLIST [T]STR$ RUN IF CONTINUE NEXT NOT IF LIST LIST PAUSE PRINT PAUSE [L]▚`COS ▚CODE PAPER [F] PAPER READ U[R] PRINT CLS [I]TAN NOT FTAB FN ▞TAN ASN OPEN #^ABS ASN SIN FN [B]▚▘▟NOT Hz|~W3[J]▟arwP-Beirxz3Qv©|rzuVAL STEP VAL$ STOP ERASE ZASN PAPER ]R[F] OPEN #/YLN COS CHR$ PIIAT ASN INT LN TAN [A]SIN ABS SIN IN FLASH CLS LINE db[A] NEXT [D]SQR OUT PAUSE COPY [D][L]J PAUSE RUN REM LIST COS BRIGHT RETURN LLIST RETURN PAUSE CLEAR PAPER INPUT CONTINUE LOAD [B]NOT NOT g CLS [P]VAL$ CODE OPEN #[D]P[K]CODE INT FLASH CHR$ SIN H▚VAL$ POINT TAN ATTR ACS ▗[M]▝[H][P] BRIGHT [`POINT ▘ NEXT [P]krtf![D];;Hzbozvj6?[B]fhBIN [C][R]VAL$ g[C]ACS TAN ATN READ DATA /[P]SIN LEN AT TAB INPUT [D] PAPER CONTINUE YTAN INT READ IF Y[I]SIN POINT LN [G][H]NOT COPY RETURN FLASH COS CLOSE #[C]<=[K], MERGE [D]▗ PRINT RETURN INPUT GO SUB LPRINT SAVE POKE GO TO RNOT [T]-+ CLS PAPER q]ABS ATN [Q] NEXT [D]INT THEN FOR LET I▛TAN LN VAL PEEK ABS SQR ACS INT ACS ▞YAT [A] STOP [H][O]i~rp{'[J];Y6▜mtti! PRINT 1ATN [I]tua[D]W CLS [I] IF MOVE ^INT NEXT ▜[R]SIN RANDOMIZE <>= STOP MERGE F[H]▞[K][I][A][A] DATA [D]R LLIST [F]TAN STEP CODE ▘[D] CONTINUE [R][L][O][B]▜ LIST POKE DIM COPY [R] THEN GO TO LOAD BORDER RETURN DIM [L]▞[A] CIRCLE BIN PAUSE PRINT PRINT [L] LOAD r▟ CLS INT [O][F]▜[G]▝ NEXT [K]ACS TAN VAL$ TAB ATN READ NOT LINE YSQR DRAW READ [D][S] CLS USR S DRAW OPEN #BIN NOT ti; DEF FN [H]p{zu[D]JMUZWR_3R^/NUO; DEF FN READ aj▘ CLS [K][M][C][K][N] NEXT SQR LET Z LOAD OPEN #K▖ATTR PEEK ASN PI OPEN #[D] NEXT [L]qSQR [T]c[T]C FLASH [ FLASH { OPEN #[D] FLASH COS OPEN # FLASH OPEN # CLS THEN THEN # OPEN #[ OPEN #{ FLASH [D]NOT COS THEN FLASH THEN CLS COS cCOS C▛▛; OR UWASN TAN CODE CLS NOT '@INKEY$ PLOT AT PAPER THEN QSQR SCREEN$ FLASH CIRCLE EXP MOVE SPI FLASH aO~=TAN BRIGHT ASN " RESTORE ▞ph;p~j`3R;*[K]SQR NOT ,bIN CONTINUE VAL CAT RESTORE U[N] CLS [E][D]CHR$ OR @▖[O]▘ CLS 0RPEEK BEEP ▞[L] IF >=`AT ATN NOT [J]COS INPUT POKE CLS [D] PRINT RETURN STOP NEXT rr[B][K]▜ FORMAT THEN SAVE POKE PRINT [H]▟[G]▛Q▖TACS IN PEEK LN CODE SIN USR [A][D]` PRINT Z PLOT [A]<NOT "/INT TAB INT ▘▝^<>J/F;VNHW#PS^U_;^/AV[K]U READ R INK u PAPER y CIRCLE STR$ CLOSE #h@ STOP CLS DIM CLS CONTINUE READ RUN READ PLOT CLS GO SUB CLS GO TO NEXT FOR NEXT REM REM FOR REM p MOVE ERASE FORMAT SCREEN$ CODE SCREEN$ VAL$ [S]RND[S][U]SCREEN$ [T]SCREEN$ [S]LEN COS LEN SIN [POINT FN [R]PI[R]INKEY$POINT TAB POINT AT MOVE FLASH MOVE PAPER CONTINUE FOR CONTINUE REM LPRINT LLIST LPRINT H LOAD CONTINUE INPUT LIST PRINT LIST POKE CONTINUE READ CONTINUE STOP BORDER READ BORDER STOP LOAD DIM LOAD CONTINUE # BEEP p VERIFY /-/,'+'*.+.*6160./ FLASH .%&$.#." MERGE OPEN # MERGE ERASE GO SUB DIM GO SUB CONTINUE RESTORE BORDER RESTORE NEW GO SUB H GO TO PRINT CLS PRINT IF GO TO FOR GO TO REM DATA LLIST DATA LPRINT GO TO LOAD GO TO INPUT CLOSE # MERGE # CLOSE #[T]AT [S]ATTR [T]ATTR [S][T]POINT [T]FN SQR ATN SQR ACS [T]TAB [T]AT [E]SCREEN$ [S]ATTR [S][L]rb PAPER READ ACS Z STOP FLASH [K]R REM OPEN # RETURN K STOP STOP NOT NOT ▜LEN [S] CLS AT SIN PISQR NEXT VAL ATN PEEK OPEN #A`[A]▖>Yn[B]a|N[P]lvgz[P]b3qfINKEY$-X NEW GbLN <>0ATTR >=>=[C]F FOR DIM YLEN [S]USR AND INK ZPEEK NEXT RETURN RNDVAL$ Y▟PEEK FLASH bg DRAW NEXT ▛ DEF FN IF DIM DIM [O]EABS COS VAL 1[O]CHR$ FOR [T]9 COPY [P]SQR PLOT e[Q]TAN ASN FN CODE SIN FORMAT [T] RESTORE ^COS PEEK [S]ASN INT [D] RANDOMIZE OVER 1 CLS ▚[T]W[T]_<=COS ZLEN NEXT { NEXT >={▜kn7F3V;RNDk~S~AfG; NEXT NOT 33{:z[J][H]▛ RESTORE ^ INVERSE r_CODE SGN [R]PEEK INKEY$ LOAD LINE [ LOAD POINT F INPUT READ [K]SIN POINT CIRCLE ▛PPEEK [T] PRINT VERIFY PAPER ]BIN RNDPI▘ PLOT FOR LOAD ZCOS BIN [M] LOAD J[T] MOVE IF [N] PRINT POKE [C]NOT PRINT RETURN [P] OPEN #b[E][C]KFN LIST IF LN VERIFY CONTINUE Q NEXT CODE COPY ; OVER UBTAN POKE NOT LIST PATTR VAL$ IN DRAW LEN RESTORE D OPEN #5[I]@|u PLOT [K]w PLOT ▝p# AND h GO TO VX[O]~©r[G]▙[D] RETURN ATTR AND OVER |Q[R]ATN [T] GO SUB ATTR GO SUB STEP PLOT BTAB BIN CHR$ ZACS FLASH CONTINUE QSIN PI BRIGHT fATTR ▖SIN ~a[H] STOP [D]ABS FOR SAVE THEN +SCREEN$ [D]>ATTR VAL$ [T]SQR SAVE DRAW RETURN READ [G] AND THEN MOVE [D]NOT COS BATTR RANDOMIZE MERGE LEN R LPRINT [T][L] FOR EATTR GO SUB CB LOAD ATTR A FOR I NEXT R INPUT ATTR DFN MOVE [K]ACS VERIFY [I]*6&6<=[G]i~jnj+s5 RANDOMIZE [F]RA3W^OZRCODE VAL NOT COS ▞[C] OVER 9▙<=Y CLS [O] INVERSE qJATTR FN CLS ▖CODE PEEK NEXT ▜ VERIFY ATTR _ABS CLS COS VAL BRIGHT RANDOMIZE F[L]SQR [P]<>▘COS [K][I][L]}J/TAB SQR [P]5[H]4SQR [S]SQR SCREEN$ BORDER ^} ERASE CLS REM DIM CLS STOP LPRINT NEXT STOP LOAD CLS REM INPUT READ PAUSE PRINT READ REM GO TO CLS REM FOR NEXT STOP REM CLS DIM FOR CLS MOVE BORDER ?});)(3!'3).;)5#14;)#;!*3 +;(*NOT FORMAT BORDER E CONTINUE CLS CONTINUE BORDER NEXT LPRINT NEW CLS CONTINUE GO SUB CLS LIST POKE READ LIST READ CLS CONTINUE STOP NEXT BORDER READ NEXT LOAD REM CLS LOAD MOVE NOT BEEP NEW ▝CODE SQR PIINKEY$COS PITAB SQR CODE AT [T]ATN SQR [T]CODE [S]SQR VAL$ [T]COS INKEY$[S]SQR VAL$ POINT SQR VERIFY FORMAT NOT VERIFY OVER STOP E INPUT NEXT NEW RESTORE NEXT INPUT GO TO CLS INPUT CLS READ PLOT IF CLS GO SUB FOR CLS RESTORE STOP NEXT RESTORE DIM CLS GO SUB CONTINUE NOT MERGE BEEP NOT -C%3%$;-#;5:#4+;,*3$!3,(;, BEEP NOT CLOSE # VERIFY CLS GO TO OVER AT M DATA NEXT DATA READ CLS GO TO STOP READ CLS NEXT READ READ REM CLS READ LLIST NEXT FOR LPRINT CLS READ LOAD CLS FLASH VERIFY NOT FLASH TAB SQR [T][O]ATTR COS [T][S]SQR [S]COS ▚SQR [S]POINT SQR SCREEN$ [Q]COS SCREEN$ CODE SQR [S]VAL$ NOT PAPER MERGE NOT STOP GO TO CLS STOP VERIFY f VERIFY eZ FOR DEF FN b AND k AND T OVER ] OVER VAL$ VERIFY ATN VERIFY OVER [J] OVER REM AND 6 PLOT 4NOT CHR$ <>>=<= AND ▚2:2)+[C]! RUN ▟(*) BEEP ERASE MOVE VERIFY REM DIM GO SUB REM LLIST DATA STOP LLIST READ REM DIM STOP PAUSE LIST NEXT OPEN # INPUT Z CONTINUE INVERSE USR VERIFY "@ LOAD REM CONTINUE INPUT ERASE FORMAT MERGE ERASE FN AT SCREEN$ FN ATTR [S][Q]SCREEN$ SCREEN$ CODE ATTR ▛ OPEN #ATN LEN SCREEN$ CODE [N]POINT [G]mINKEY$SCREEN$ CODE TAB SCREEN$ BEEP CLOSE # ERASE BEEP READ REM LOAD STOP STOP NEW READ NOT VAL / INPUT DIM PAUSE PLOT LIST PAUSE INPUT INVERSE INVERSE CIRCLE ^ RESTORE STOP INPUT GO TO REM INPUT FLASH ERASE VERIFY PAPER *-+[F][J]%!*-(*5725k[J]$"%#*-" ERASE CLOSE # OPEN # NEXT zV GO TO DIM STOP DATA LPRINT STOP GO TO LOAD REM GO TO PLOT PAUSE POKE OR T INVERSE RETURN / FOR STOP DATA REM REM READ FOR THEN _s FLASH MOVE SCREEN$ [T]FN SCREEN$ ATTR PI[S]ATTR VAL$ SCREEN$ [T]TAB SIN SQR -[N]POINT [N]INT [T][D]D[N]#SCREEN$ PAPER FORMAT ERASE PAPER LOAD REM STOP INPUT STOP REM RESTORE STOP STOP GO TO REM STOP OR THEN )E READ LLIST LLIST FOR CONTINUE DIM FOR BEEP MOVE OPEN # VERIFY )+-)#$!##)+7 INPUT BORDER LINE RNDLN k READ ▙b STOP FLASH LOAD LINE CLS LLIST Q CONTINUE DIM BRIGHT CLOSE #BIN OPEN #BIN ERASE BRIGHT <> BRIGHT >=V LLIST REM LLIST CONTINUE FOR LINE [I] READ RANDOMIZE b FORMAT [M]CODE [R][Q]INKEY$[R]FN TAB POINT FN TAN LEN VAL SQR POINT FN [S]POINT PI[T]▘ STEP [L]VAL$ CODE DATA POINT DATA THEN K INPUT DIM LOAD RESTORE LLIST BORDER DATA DIM LOAD READ DIM RUN IF LET PLOT FOR LINE [S] FLASH W NEW LPRINT DIM INPUT BRIGHT SIN DATA VERIFY l MERGE ).,)&+!&"KI^PP+xn[A]O/3P/UORUACS INKEY$VAL$ READ ▗2] ERASE MERGE BEEP FORMAT MOVE PAPER FLASH Z LINE BPEEK VERIFY CLOSE # ERASE 3Q▜INT OPEN ##ZFN IF ▛ IF Y FOR PAUSE LOAD EXP g▞ POKE ASN SQR ▜ NEXT l SAVE [E] BORDER TAN BORDER BRIGHT LOAD DRAW LOAD BORDER 4 BORDER ,[P][P] CLOSE #INKEY$ POKE INKEY$[M]VAL$ SGN VAL$ TINKEY$▞PEEK ATN LPRINT 9A PLOT CLS BEEP T NEXT SGN ASN CLS ABS VAL$ PEEK RETURN LET CHR$ {; OPEN #[H]w;z})▝ps-Jk[[A]zt} BEEP (e▙▘ABS VAL$ ASN [D]?[T]COS REXP BRIGHT CHR$ ZTAB LINE ▝BSGN DEF FN %TAB RCOS SRSGN BRIGHT :^▝[L]NOT CLEAR [C][J][H]&<>Y DIM [H]<SQR # LINE ) INPUT PRINT NEXT INPUT CONTINUE COS READ COS CHR$ Q PAUSE CODE [D]#[L];YCODE INKEY$ OPEN #[T][F]INT X[A]COS ACS <>% FOR BRIGHT MOVE RPI INK Z▛ FORMAT DATA DATA `k;© VERIFY 3[C]! OVER TAN ▚p#©zvSTR$ C[[Sb CLEAR GZCODE LINE YR RETURN >= COPY [L] LIST DEF FN DATA MERGE -BFN OR ]Z RETURN OVER RACS USR 1Y▟ GO SUB RSCREEN$ 3 BRIGHT OPEN #e READ DIM POKE [C]m▗ RANDOMIZE NEXT SQR THEN ▘ INK ▘[M] FOR INPUT 4 PLOT ▙x+INKEY$INKEY$VAL$ 3VAL$ ;INKEY$+INKEY$#PEEK NOT ABS THEN RND THEN RNDNOT TAB NEXT TAB ,<,j" CIRCLE INKEY$ NEW CIRCLE AT [C] CONTINUE NEW INKEY$USR DRAW DRAW POKE DRAW TO AT [K] DATA GO TO GO TO [C][U][I];g /`f THEN NOT ]R.($44 THEN FOR B READ OPEN # FLASH INVERSE Y. OPEN # READ R REM u^ PAUSE z DEF FN [F4llSCREEN$ -%",[D]|NOT CLEAR BEEP RESTORE NOT RESTORE RUN GO SUB READ GO SUB BORDER RESTORE RESTORE w[N]C[N]wRNDcRNDTAB LOAD ERASE FLASH PAPER DATA ▛ABS WC OVER FORMAT BORDER ERASE [T] OUT R INK CLS NOT Z(NOT CLS bk[J]3#[J][K]3▘s[J]3[[C]*;[K][D] LOAD a STOP OPEN # CLS SQR Z[T] NEXT READ R ERASE ATTR BEEP YCHR$ <> READ SQR Z| CLS [D]R CIRCLE COS OUT FLASH ZBIN " BRIGHT g DRAW [L][L]cZokL[L][E]X[M]}XdeF[D]▘[[C] NEW NEW LPRINT STOP INK OUT OPEN # THEN NEXT [D]S, CIRCLE DATA POKE Y<<[D] THEN ▛ THEN Y FOR OUT NOT >=[$$ BRIGHT CIRCLE b COPY LPRINT ;L[I] COPY CLS READ 3L ERASE [D] DRAW DRAW <+kS[H] DATA DATA READ !n DRAW BRIGHT PAPER FLASH + INVERSE BRIGHT BRIGHT INVERSE + FLASH $[U] OPEN #BSGN $ FLASH P FORMAT VERIFY VERIFY FLASH jS LINE PAUSE c[T]NOT ▛[D][P] CAT NEXT [A] READ 5 FOR %COS |d[I]▜ CLS [A][E]ldks©COS H[D]P FLASH SCREEN$ EXP [S]LEN OPEN #SCREEN$ SQR SCREEN$ SQR NOT CLS STOP X OPEN #[G] ERASE NEXT INVERSE ATTR STEP THEN FORMAT 0 FLASH + INK [I]]3c OR #▘s% OR # OPEN #'[G]3''[D] PRINT NEXT CONTINUE READ LPRINT P THEN [H] FORMAT CLS MERGE ATTR STEP OPEN #>= CLS RESTORE ^ FOR [E] MERGE GO SUB GO SUB FLASH CIRCLE ATTR STEP NEXT CONTINUE SIN [R]E[L] FOR PEEK AT STOP AT n CAT PRINT PLOT INPUT LLIST NEW DIM ATN FOR [G] LPRINT PLOT MERGE N THEN BORDER (bFN DATA ASN [L] OUT R[C] OR BIN DATA JTAN YA▗LEN USR _▛[R]INT ATTR MERGE u▗ LINE [U]DAT P PRINT INVERSE a$ AND , BRIGHT [E]zub;lwk INK CHR$ dm*< POKE [I]<OBIN DRAW bATTR VERIFY t INVERSE INVERSE >=WFN LN POINT PEEK STEP PAUSE BRIGHT [M]R[N][E]▞[O]▚[P][C] CLS REM VERIFY b MERGE TO ATTR s[A] READ COPY PAUSE STOP [E]` OPEN #[T]▗x[M] IF ▗4 PAUSE RETURN RETURN ATN [L]▜ PAUSE DATA +NOT [L] LINE BORDER CODE Q NEXT PI READ IF CHR$ ^[S]CODE LEN INKEY$INT OR E[H]/R COPY AT U[O][S]VAL$ NOT VAL ^W^XGZ/] AND ; DATA x[I][L]SGN [P] FORMAT [P] TO [H] LIST [H] DRAW [P] LPRINT [P]f LIST f DRAW ^ LIST ^ GO TO V[A]V, FLASH $ FLASH :NOT L[S][D] SAVE ▛ATN ▛ CLEAR [U] STOP ▛RND▛ INVERSE NEXT BORDER NOT [D][N] GO TO GO TO NOT RUN # RUN ▝▞ DATA FOR [H][B]COS ▛WSQR LPRINT [D] LOAD RESTORE [U] THEN FOR Z3 NEXT READ R OVER ATTR BEEP INVERSE SGN OPEN #▛B/ CLS [D]Z CLOSE #[T] OUT MERGE [U] THEN SQR Y FOR ▙ NEXT [K]klk[K];▘cv[P][O] FLASH [L] READ OVER <=_ OR %-, MERGE AT AND PAUSE Y[ BEEP FBIN $%% STEP READ RUN ▙ RESTORE _ BRIGHT CLOSE # CLEAR DRAW NEXT <=[L]CODE ATTR IN [A][C][D][M]▛ OPEN #{{ CLS s FLASH OPEN #[G] LET [C] LIST READ DATA DATA [T]<= PLOT RND^#,AT AT ATTR [L][D]Z BRIGHT NEXT BORDER G#+[T]# CLS RUN P>= LINE NOT PLOT yATTR READ ` FLASH c ERASE FOR Cw6 INVERSE [P] FLASH [L] CLOSE # FLASH #[[I] READ READ NOT NOT ATTR DATA PAUSE CLS THEN GO SUB OPEN # INPUT RETURN $XNOT CHR$ USR COS NOT w TO STOP FLASH NEW P++ATTR o FOR o READ CAT b{ATTR OPEN #▘[M][E][L]SIN [L] RUN [L]{C FOR FOR c READ COPY ▗[N]r FOR ATTR FOR SQR aBIN NOT FLASH ATN OPEN # DRAW P3+ READ FOR [D] INVERSE TAN Xj[D][D]2[L] PAPER IF ▛[C]▛[U][A] OVER OVER DRAW RESTORE INVERSE CODE CODE FOR FOR FLASH V▟>&hd OPEN # READ FOR CODE PI MERGE RESTORE n GO TO 4 READ [G] CONTINUE [T] GO TO [T] DATA OPEN #ATTR ▙[T]▙NOT SQR ▚SQR [O]BIN LIST X[K][B][O]POINT U_COS PEEK AT / VERIFY IF DIM COPY LET DRAW LLIST POKE ▗j<>TAB MERGE TAB CIRCLE ASN [U]` MERGE PAPER ERASE POKE >=AT LOAD INK ▖q_PEEK EXP SGN LN GO TO -^[K]IN SIN PI[S]4]▛COS SIN IN INT [T] GO TO _[G]TAN ▝LN =[P]_nu© PLOT #?[D]zubplmrx BORDER [F]T||©;Bn GO TO 4INKEY$$ FLASH OPEN #W[A]INKEY$POINT POINT <=E▝[S]CODE INT ASN LN USR RNDRCOS RETURN MERGE Z RUN OPEN #[I]]` POKE PRINT CONTINUE [O]'USR ACS GO SUB ATN REM LPRINT YNOT [P] LOAD V GO SUB PLOT HCOS OPEN # OVER PITAB AND [S] PRINT SIN b[G] CLEAR DEF FN ATTR SIN LOAD RESTORE NEW =▛[U][M] RESTORE BBIN CLEAR X[F]TAN CLEAR PRINT [F] CAT [O] RUN CLEAR NEW $`[S]ATN OQ;[P]Bm5 THEN [K]HD[A]|},[K]B OR laINT PEEK DIM THEN Z[G] OUT ATN OVER D FOR BIN READ CLEAR ▞A DRAW [I] CLEAR +TAN MERGE RTAN INVERSE v[H]2f▘[F]▚SQR BRIGHT [N]'[T]>=[F]z GO SUB FOR EXP [E] LINE FORMAT >=SQR STEP OVER <>USR INK CHR$ SQR MERGE SCREEN$ FN AT VAL [E][N] CLS POKE NEXT REM RESTORE <> POKE ^[E] READ ▟[H]▛SGN ][J]▝[G][C][I] DRAW PRINT n▛c CLOSE #[D]bW<k[I]_|r FOR [N]~mjlvp;m▜;RQPW^]/SSCREEN$ POINT FN CODE [G][F][E]▛▘▝▜▙▟[K][J][D]TAN LLIST TO LLIST XSQR ACS NEXT OVER RETURN _SIN ACS [G]▙ CLEAR [A] PRINT COPY IF LLIST COS jCOS [J]< DATA [U][D]ABS >= FOR [E] RANDOMIZE LLIST [L]SGN ATTR b▜BIN [G]ZFN DATA ▞R STOP THEN OUT Z INPUT DRAW POKE Q STEP Z] REM CLS [O]ATTR [T]ACS INVERSE BORDER Z DIM DIM fNOT NOT (;Z@USR [F]/;Qnmj RETURN [K]. PAPER [B]ezu[D]3L[O]▜▛[N] DATA Z[L]<R[K][F]▜Z PLOT TAN SGN d6 FLASH ATTR rR NEXT FOR SCREEN$ PAUSE [N]Z[F] FLASH [N] DRAW [J] OVER CAT ASN BEEP INVERSE USR THEN qSGN ATTR [U]ATTR MERGE POKE DIM u▘UCOS SQR [B][E][K] NEW FOR STOP INPUT ▗N CLOSE # OVER VERIFY <= VERIFY MOVE CAT CAT OR OR MERGE INVERSE FOR FLASH OR MOVE CHR$ CAT VERIFY <= LINE FLASH S▛[C]ATN NOT VAL ATN TK POKE [J][N][P]I~xla▝ybbbJPOINT [H]33Iz[K]` READ READ PAUSE ▛u▛V INVERSE 2ULN COS INT ASN [U]INKEY$[B] TO PAUSE ABS /EXP INKEY$SCREEN$ NEXT ABS PEEK AT ▘#[B]uaBIN ERASE SIN IF RETURN [N]u[J] FOR SQR BRIGHT [M] TO STOP CIRCLE DIM [L]TAB ▜5PEEK ▘U PRINT b DRAW [O]Y CLEAR CLS DIM ][R]#POINT +[C]- DRAW AATN INT PAPER =Z PRINT <>[S]Q[R]PEEK OUT /b▟ DIM SAVE o'[K];2P0[K]4k:?▘k IF [K]i READ 14[J]uh[L]` OR NOT CLOSE #+Z[Q]PISCREEN$ BORDER [S] PAPER X▛ LPRINT B GO TO NEXT IF ATTR NEW CODE EV[R][Q]COS SIN ATTR CODE W▜W OPEN # FOR LN FOR DIM REM { SAVE [R] GO TO PAUSE GO SUB OPEN # DRAW [H]l[P]z[A] THEN ▜ CLS SAVE [R] LPRINT MERGE LEN gAT ▜IN FN [Q][J] OPEN #Q[G]TAB FLASH X READ [H]USR CLEAR ▟ BEEP ^SGN NEXT SCREEN$ SGN VAL$ FLASH ASN Y[A]▛CHR$ *[I]~o$h REM X▘/8<gRND! DATA DATA BORDER XFN NEXT CAT GO TO ZCODE CONTINUE RESTORE COPY <<>>=- CLS $ FLASH FORMAT THEN INPUT GO SUB [I][P] PLOT READ [F]PLEN AT VERIFY CHR$ LPRINT t TO 8&t STEP [T] DIM PAPER ' CIRCLE V[S]s FOR IN ▝PI[F]G_ABS STOP o BORDER z IF [H]AT NEXT DRAW ▞[B][A] REM COS [F][O]▗ BEEP CONTINUE Z[I][E]▞[P]▙▚h CONTINUE FLASH S[G]RS[d FLASH ▝STR$ E[K]l#[H] RESTORE "a"AT _[I][P][P][E]NOT RUN OPEN # IF Z9▛ BORDER A▜ FOR COPY Z LET NOT RUN _[L][L][P][Q] NEXT ATTR READ [E] CLS OPEN #[L]ATN ERASE OPEN #IN YZ CLOSE #[D] OR [D] RUN INK i MOVE MOVE NOT COPY Z OUT ▛ RUN g LLIST LLIST [R][J] THEN COPY ATTR [L][T][L]R[M] FLASH [ THEN SNOT PEEK B[M] FLASH BORDER [T]IN COS K FOR COPY FLASH &NOT <=b FLASH FLASH PAPER [O] OPEN # OPEN # GO TO GO TO [I] INK TNOT NOT BRIGHT FLASH FLASH [D] GO TO GO TO SAVE 88X"#'Z THEN COPY LIST R▛ COPY ZNOT BEEP OPEN # BORDER Z FLASH CAT NOT RUN OPEN # CLS 'Z9[D]; NEXT SQR /▛gR TO [D]W MERGE OUT C LET CLS C BEEP [T]K LLIST [L]▙▛IN READ b-[L]ATN ZFN CW THEN SG LPRINT [Q] SAVE SAVE ATTR R THEN o_FN ``COS CODE [P] OPEN #NOT FLASH FLASH PI[P]h[A]'TAN y[SCREEN$ [ MOVE S[9SjSaATTR 2ATTR 9[D] REM ▛[B]B INK OVER OUT CAT AND AND BIN BEEP OPEN # OVER MOVE CAT CIRCLE VERIFY OVER <= MERGE OVER THEN CAT PAUSE NEW LIST RUN BRIGHT <> ERASE OUT POINT CODE GO SUB [N] CLEAR EXP ▜ COPY @d[U] STEP ▟EXP ZTCODE GO SUB INVERSE = OUT [T] READ NEXT eLEN COS [P]X OUT RND OR Z RESTORE NOT @SGN SGN DATA CLS USR Z OVER CONTINUE DSGN %Z DATA [M]k PLOT SAVE L BRIGHT [J]e FLASH =▖(FD DRAW [P] MERGE CLOSE # FORMAT ERASE ERASE G BEEP ERASE VS3SQR [L]ATTR SQR @SGN SGN CLEAR GO SUB Z DEF FN [P] [T]COS ATTR SQR THEN IN [D][D] FOR CLS [G]hS PAUSE [C]@zZBC NEXT C DATA [U]FN [Q] LPRINT PAUSE PIC PLOT CIRCLE [D]# NEXT !Y STEP STR$ ATTR [T][T] CLEAR k BEEP BEEP B RANDOMIZE READ GO SUB ▗[Q]P,,d CLS ATTR NEXT CIRCLE %PEEK ATTR [J][A]d CIRCLE +▟cNOT CATTR K▛ FLASH NEXT b OPEN # DEF FN p^ INK OVER INK OPEN # READ OPEN #<>Xk▛s OPEN #FN A LLIST LLIST FOR ACS IN [ATN PRINT GO SUB >= VERIFY DRAW COS RUN [J]$COS COS [L] READ THEN RUN _C READ OPEN # RUN CLOSE #e RESTORE [Q]G[D] OPEN # RUN SQR C' BEEP Z^ CLOSE # CLOSE # BRIGHT BRIGHT DATA BORDER R^?33#; BEEP O^ GO TO BRIGHT BRIGHT CLOSE # BRIGHT AND DEF FN ^NOT [R][B]▘a<▞@=Ruirxz#Afo|rzu@=[K]r LPRINT bRND CONTINUE {YLN COS <=[N]WABS SIN LN TAN MOVE ,@TAB [S]PI FLASH CLS X CLS ▝SGN CLOSE # FLASH OPEN #_[P]▘ COPY RESTORE INK DIM IF BORDER STR$ BRIGHT RETURN DIM 9[T] PAPER INPUT CONTINUE LOAD LLIST SQR [P] LPRINT LOAD ▛[T]gSCREEN$ [H]INT ATN THEN READ _[G]INKEY$[R]TAN ATTR PEEK CLS [E][B][P] VERIFY FORMAT OPEN #I^[Q] RESTORE REM GO TO INPUT GO TO OPEN # MERGE OPEN # CLOSE #",-[O] %,,*/7624*.*▘#DRUU^LEN CODE INKEY$[S][P][O]▞ FLASH ▝SGN INKEY$ INK 5]PEEK CLS ATN INT LEN INKEY$[D]C BRIGHT LET PIN SCREEN$ ▜ATTR THEN Z CLS DIM SCREEN$ CLS P CLEAR [D] PLOT LIST SAVE FOR ▚ FOR ▚[D][O] LET RETURN FOR IF PAUSE LLIST LPRINT READ CODE ATTR PI RETURN FLASH J[D] CLEAR ATTR ▝ FORMAT BRTAN OVER DRAW XEXP TAN [T][D] RETURN CHR$ Z BRIGHT INVERSE ERASE R3 CAT ^S PAPER LPRINT LPRINT STOP GO TO ,[U][H][D] READ READ RUN 4VAL &COS [O]{+ CONTINUE < CLS FN [K] DATA AT 4f DATA CLOSE #<= AND AT `Q REM STOP BRIGHT THEN [D]# BEEP CHR$ BRIGHT VAL$ ^ BRIGHT S+k GO TO INT {▗` MOVE STR$ ERASE FORMAT OVER >=SQR BIN TO READ [C] LPRINT ▜qABS COS LPRINT ATTR SCREEN$ POINT FN BEEP VERIFY MERGE CLOSE # READ STOP ▘R[J] DIM [E]][A]PEEK ACS COS VAL ATN DEF FN REM B[B]TAN SCREEN$ [Q]PIINT LN VAL CLS /[T]D[T]$[ DRAW [SGN [ CLOSE #[ POKE SK' STEP ▘99 LPRINT [O]Ktdva CLS EXP [K]AT SAVE BEEP jATN ATN CLS [O]ASN ASN INT VAL SIN INK FORMAT ^INT RANDOMIZE READ READ RETURN CONTINUE CAT POKE .[ FLASH OUT INVERSE $$ INVERSE LOAD FOR DRAW [S]▜[E] FORMAT MOVE OPEN # FLASH d DATA ▛▘|}▜[P]eg[Q]|TATN CLEAR [I][E]▜ FLASH [C]SCREEN$ THEN LLIST OS OPEN #nn%$ PAPER FLASH CCtt CIRCLE 4 LPRINT USR FORMAT U@FN [[U]pD▙ READ READ 5h NEW VERIFY AND RETURN : AND t/ FORMAT eUSR GO SUB CIRCLE 4 FORMAT < FORMAT < MOVE ATTR IN * NEXT TO AFTAN INVERSE OPEN # BEEP IF CAT INVERSE FLASH CLS LSQR <=V&.*uZ CONTINUE [F]TAB [D][F][I][L]▘[S] LLIST CLS B▟[L]CHR$ [x[D]VAL ▟SQR RUN [T]SCREEN$ r> STEP FLASH OVER |>▝CHR$ b FOR CIRCLE DEF FN FLASH :(: FLASH ▗Y6 OPEN #SX IF ▙POINT READ [M]e IF E8M SAVE /[L] LINE VERIFY OVER CHR$ PAUSE ERASE STOP +f[I][I][F]cb▛ DEF FN RETURN DIM READ .eL SAVE RND DIM uE8CHR$ BORDER THEN BEEP T ERASE `U INVERSE INK HGL LINE { FOR LOAD NOT ^a4[K][K]▜4~STR$ I▘▖h[S]G CONTINUE ▘▘^BZvSIN TAB <=TAB eUSR MERGE FOR FORMAT S FLASH LIST RESTORE LOAD 2GL CLS /M CLEAR MERGE INPUT G LINE THEN Y GO SUB BIN MERGE OUT INVERSE NOT NEXT 2hA- CLOSE #0 CONTINUE VERIFY <=+ GO TO S6▘+INT [A] INPUT OVER CONTINUE ▗ STOP VERIFY m▘ VERIFY LET {CHR$ MOVE S LINE sY PAUSE 3 MERGE CLS FLASH ^ ERASE A STOP FOR FORMAT ] DIM [L] INVERSE FLASH CLOSE #e BORDER OPEN #[J][N][M]SCREEN$ PLOT U FLASH [N]▟VCHR$ ▜[P][K]G[G]^ OUT e CAT SQR [E].Vt.w MERGE LLIST FLASH ▛NOT ▚R| FOR LZ6NOT cS IF BRIGHT STEP OPEN # DIM X▗CHR$ y PAUSE GO TO h[A][I][O][C] REM :>sD LIST [A] INPUT b[J] RESTORE PAUSE E` LINE Y PAPER cPSTR$ MERGE MOVE PAPER i FLASH ▞ STOP CHR$ ^ LINE 2 LINE PEEK Y SAVE y{[K]▙V4[D]BIN THEN HN2[N][O]INT TAB COS DATA LN ▛gINT GO TO h PAUSE ©S FLASH ASN Q▖HCHR$ ZS MERGE FLASH INVERSE OUT 2COS [H] RANDOMIZE RETURN Z ERASE 0FN SAVE [B]STR$ PAPER [N]SGN PLOT Q<>[LN ERASE OVER NEW NEW VERIFY OVER CONTINUE AND :▝{9▝s8 RETURN LINE RESTORE RESTORE GO SUB READ COPY FOR PAPER OUT PLOT READ PAPER COPY THEN / OR >=NOT @| INVERSE FLASH >[B] SAVE DIM [T]▜wSGN INK [K]IN N POKE F INPUT [L]N BORDER [C]hZJzFLEN [G][L]▛[C][C][D]RND[L]▞▖ READ ▘aNOT "POINT CLS ^ OPEN #▛ PAUSE OPEN # CIRCLE FLASH USR ATTR PAPER LET [U]D OUT READ [T]& PAUSE 0 MOVE 1Y OR MOVE LET e STOP LINE [I]:;KSQR [O]RNDh:(SNOT FN [P] PAPER `2*#[J] REM / LLIST PAUSE TAN CLS LIST Y FOR ERASE MOVE CZ INK ▗@[L] MERGE FLASH INK ;X PAUSE INPUT MOVE AT [J]pY6&![F][R][P]<=mlSQR geATTR SQR [H] TO ABS }Xe}[K]SQR [B][N]l REM CLOSE #[K]e[K]t CLEAR ▜(%5NOT [A]NOT -<= CLS - CLEAR < LET <=▜[S] NEXT NEW `A%COS )Uy RESTORE H MOVE ABS ▞ GO SUB [ INK [N]▝ RESTORE ]<>[F][J] CLEAR / MOVE M▝ GO SUB B INK u▝ CIRCLE CHR$ ▝ INK PLOT o FLASH A GO SUB ERASE LLIST AND W FOR OPEN #NOT IF A RESTORE FLASH [L] THEN QTAN X NEXT [C] FLASH ▝Y▗h[T] NEXT [K]▛SQR [C] READ FLASH ATTR ATTR SQR + OPEN # THEN 3NOT AND THEN CLS ACS j OPEN #PY MERGE FOR gW[C]NOT % BEEP FLASH oB READ v COPY STEP Y INVERSE VERIFY STR$ WV CLS <>>= THEN READ ca[A]▞[K]4 VERIFY FOR [J]©ABS [L]f INVERSE OPEN # LET . OPEN # CONTINUE OJ RESTORE OPEN #t6>[J] READ BRIGHT |".▝ COPY NOT (:| OPEN # CAT QUSR INK SQR X RESTORE BORDER [N] STOP AT [N]EXP READ fPI READ { TO [C][T]$[P][J]O[F]LEN ATN RESTORE ▞USR LIST NEXT . LINE RND OUT SCREEN$ COPY RETURN A PAPER LOAD vX[E] DIM SQR OPEN #6R NEXT CIRCLE b FLASH BORDER [K] MOVE s[A]I[H][F]2 PLOT y!K[O] RESTORE 'k▗: SAVE PAUSE PLOT [G][D] PLOT I FLASH LPRINT OUT CLS #|<>F RUN COS WPW RESTORE STEP INK " FORMAT [K]D LINE RW MERGE MERGE MERGE <>USR [B]YxW BORDER LET b READ [I]M[I] STEP FORMAT [F][K]INT ^ THEN N STOP NEW LN [R]s[G] MOVE [H]RCODE ]SQR USR [D]NOT NOT CLS X LINE [Q]P FORMAT FOR R PAPER VAL$ NEW OUT READ FORMAT OPEN #PEEK ATN U[M] GO SUB THEN B[M][S]STR$ ©" OUT READ HQ[B] VERIFY CHR$ RUN PEEK TAN :_5 DRAW LIST m RESTORE GO TO MOVE ▜TAN PLOT Y INK LN © GO SUB NEW (tG STEP EtG AND ATTR _ CLEAR BIN FORMAT ][Q]G OVER LN O FLASH USR FLASH CHR$ gL MERGE d▖ LPRINT `BIN LN COPY [L]VAL [P]A LLIST AT X MOVE [P]f* PAUSE FOR FLASH [M] OUT [H]USR QW>▞0. OVER /BCHR$ ATN [D]Y MERGE MOVE RUN [L]Q". OVER [D] RETURN Lf RESTORE LLIST [H][B][P][I][P] OVER j%▗7e[P] VERIFY j INVERSE RESTORE [T] LOAD R IF ~ATTR CHR$ STR$ OPEN #".[M][L]▜NOT NEW @ CAT INVERSE <> STEP FOR _EXP ".▗ STEP FLASH RETURN 6 IF [N]BIN PEEK 9x[D]INKEY$[H][O]KATTR R[S] RETURN LIST TAB ▟[H]b[H][P]TAN LN [N] LET MERGE STEP CAT 'X BRIGHT INVERSE CIRCLE STOP p_T MERGE ERASE VERIFY <=<=SCREEN$ x> PAUSE OPEN # OPEN # INVERSE MOVE IF E`>[N] RESTORE ; MOVE ASN ▙ GO SUB #STR$ ACS ▚ RESTORE 9 MOVE VAL$ [O] STEP + VERIFY SCREEN$ ▙[H]t= READ RUN d> SAVE THEN t(|^d OR ERASE >CHR$ nNNOT !0<> MOVE RND DIM a REM INT c▖▚ MOVE EXP V CONTINUE QwSIN DIM [J]VAL [B][F]▜[K]=[M] LOAD h RESTORE uTAB THEN &N GO SUB OR > INVERSE BORDER FOR h@ ERASE POINT INPUT PLOT Z[G]NOT SAVE P OPEN # INVERSE THEN FOR >=` STOP u RETURN [K]CHR$ DIM 0X[K];POINT ▝5#G[J]PIINT b[9▖}*B% OVER LN M%$ CLS BEEP SQR =CHR$ FOR 9 LIST GO SUB CLS VERIFY VERIFY THEN NOT % FOR } NEW CLOSE #[L]K<> DATA VAL V CONTINUE [L]▙NSCREEN$ 8 GO TO ▚5[F]*ABS ▟ACS ea RANDOMIZE /[K]j INK # RUN c CLOSE #/>= RESTORE READ FAT OPEN #9 CLS BIN X PAUSE F OR Z PAPER ATTR CLEAR ` NEXT SAVE ;&= OPEN #:[B] LIST DEF FN /[M]▘ ERASE -[M] PLOT /!▗ ©[K] THEN LPRINT DATA jAT USR RUN NOT =: SAVE >= OPEN #>=<>TAN CHR$ ▛ INK BRIGHT 2X OPEN # LLIST CLS LPRINT USR l▘▘▚ COPY ▝4[M]# FOR [B][C][F] RUN ▞ COPY INPUT ▝Z[L]▜[N] STOP .kE: INVERSE R BEEP NOT LINE ATTR CLOSE #Y CIRCLE PAPER NOT BORDER USR [D]H|E MERGE NEXT 6 INVERSE OPEN #t[E]<= NEXT PAPER IF 8 LLIST L[G]l'COS [I]8 DRAW +EXP ATN RESTORE GO SUB ATTR STOP READ FOR 6k IF %-CHR$ OPEN # PAPER FLASH PAPER 6s RANDOMIZE U BORDER IF THEN ▘[U] PAUSE MOVE G LLIST iVAL [M] LLIST [U] LINE INT [I] OPEN #ACS F FOR y DIM OPEN #;▟[I]@ GO SUB SIN FLASH ▘[ THEN [H]Q[D] CLS a IF [L] CLS COPY RCHR$ NEXT RUN ZSQR CLS COPY NEXT CAT BCATTR NOT Y IF sCOS THEN SCREEN$ [N] FLASH ▜Z+[D]IN a THEN kGcO?{G'c_{GS:LEN [J]EXP jCHR$ REM INVERSE MERGE DIM [O]EBIN v_CHR$ OPEN #1NOT MERGE Z CLS FLASH STEP R[D] AND z_ MERGE LINE /[N] BEEP Nb▘[K]COS F[N]COS SIN d THEN [N][K]{[L] [L]ABS [L][C]POINT [F][C]COS [C] STOP NOT BORDER 6▞NOT PAPER LINE f FORMAT ERASE %P LIST <= DEF FN READ INVERSE OPEN # RETURN I NEXT PAUSE Y CLS AND THEN ATN aCOS STOP [N]52&[O]!"s+[J]/-[I]^NOT FLASH IF ASN MERGE [D] PAPER Y FLASH OUT THEN STOP E CIRCLE ERASE IF FLASH IF [J] NEXT NEW V LLIST FLASH IF S FLASH OPEN # INVERSE a PAUSE ▛RNDR[D]{ THEN R[T]NOT ▛[L] RANDOMIZE [D] READ [I]▘ CLS LLIST >= VERIFY OPEN #K<>^<= NEW X IF kVAL$ PLOT ] MERGE Y INVERSE FLASH TAB REM LIST RETURN [T]t[M] VERIFY INT [N]*~/ FLASH [M]▖AT REM [P] NEXT OUT GO SUB CLOSE #WTAN LLIST DIM ACS | FOR ERASE LLIST [A] INK O)2 OVER CLS CIRCLE SAVE NOT + FOR 2 OVER COS ▝[D]<[N]COS ~ MOVE ▛VAL BORDER U▗ DATA EXP INPUT PRINT FLASH INKEY$▛"EXP FN PLOT vUSR VERIFY ▙[D]EXP FLASH ▝ FLASH ▟ NEXT [N]W CLOSE #[M]STR$ AT STEP bA" FLASH DIM CLS [J]NOT [S]@ FLASH NEW CLS FOR OR DRAW gPEEK tg▚/ATN |SGN J[A]#[G]))vf!"~INKEY$#[O]DNOT LPRINT FLASH SGN FLASH >=R| OPEN #USR J:>PI% FLASH GO TO POKE POKE ▛TAN LET CONTINUE ACS LPRINT THEN `>[P]|5 CLS [J][L][B]FINT ▘ NEXT SIN PAPER CLS VAL RESTORE [A]^> IF > IF FLASH ERASE NOT OR S INVERSE BEEP TAB NOT RND PAPER FORMAT OUT I.INKEY$ OPEN #.CODE PAPER SAVE >USR USR NEW 8 DRAW CONTINUE INPUT ^p SAVE o[B]'▞▛[J] GO SUB EXP [L][F][Q] MOVE GO SUB EXP ATN jb LOAD RX INK [U] LIST [H]PEEK ▝2<= LIST @|a OUT P CAT CLOSE # POKE RTAB OVER INKEY$A COPY @[S]98eUSR A▖0BIN STOP e[L] LLIST I[I] ESQR GO TO [H]LN [T] FOR [F][L]X▜@ COPY [M]a OR FLASH STOP BIN SCREEN$ DEF FN Q% PIINKEY$hNOT [L] ERASE CHR$ PAPER $ INK GO SUB FOR [U]>k RESTORE NEXT DIM GO SUB aCHR$ [w9.v-!gu%)vmAT 1TAN f:S©% VERIFY xBCHR$ /[T]BIN FLASH STEP Z'[T] OR R; CLS INPUT Z<= OPEN # LOAD A[D]SQR RUN R' NEXT [I]Z INVERSE THEN [J]bW[D] PRINT [D] PLOT ▛ PAUSE [L]NOT THEN READ FLASH [P]SQR ▟[B] CLEAR BORDER FOR ▟8[T]. LIST G OUT [B] THEN INVERSE RVAL NEXT MERGE Z CLS BEEP A LPRINT [D] OPEN #NOT ZX THEN MERGE LOAD THEN QMM OPEN #[A]a▘| CAT LOAD [B]!PEEK x2e/XATN ▘Nq[L][T];SIN THEN AND Z OR POKE STR$ U LLIST VCODE IF MATN PAPER VERIFY Y6▞ TO [I]T8 GO SUB CIRCLE INVERSE CLS MERGE READ INPUT r▙ATTR [K][I]9TAB RETURN ▜USR N MERGE ![D]mV OUT ▘ PAUSE SQR RANDOMIZE #f RESTORE RESTORE IF zY RANDOMIZE INPUT [ MERGE OUT PLOT ~ RESTORE AND C CAT RNDS% BEEP w INPUT - INVERSE THEN INVERSE VERIFY LOAD k GO SUB READ OVER ;[C][B]I[J]STR$ ▗" MOVE [E]TAN RND34[G] FLASH [E]% LIST DATA [N] COPY ▙R LET /D LLIST T OR DRAW K STOP RSIN CHR$ [N] IF TABS OVER q RUN ]X CAT GO SUB INPUT CAT [J]:[N]▛[F][E]▜3 SAVE ▛ MOVE [A]PITAB CLS ^t INVERSE >[M][D]aba OUT SIN Z INK INVERSE CLS VCHR$ RND[E] BEEP STEP VAL ▖YZ[K]STR$ FORMAT W FLASH CHR$ VY VERIFY =b" READ ▛y[J]0m© VERIFY [K] OVER V▜[J]+[C] OVER hIFCHR$ RP. MERGE BEEP CHR$ J THEN LLIST Z*SQR yA ERASE F CLS [A]] INVERSE u PAUSE SIN FLASH RUN k!'>^INT [D]INT [N]/ATTR ▝[M] SAVE I=^[I] RUN EXP RANDOMIZE ATTR [B]PEEK bNOT INT CIRCLE THEN POKE OR POINT P PAUSE ▟Y FLASH LN FORMAT READ RETURN ANOT MERGE PAPER DEF FN P PAUSE sE THEN [G]Z OPEN # NEXT Qd* OVER :RND[E]#?Y[M]kZ DEF FN HABS DEF FN [H]2▟[M]D[O] IF PAUSE CW MERGE r_ READ >=t LINE ATTR BORDER THEN BORDER A FLASH LINE <= POKE USR S GO SUB LLIST LLIST MYNOT ; TO Rb~[K][I]BIN PI CLOSE #RND[L]][I][D]©U BRIGHT [J]>=[F][D] BRIGHT [G]INT READ PRINT REM [N]CHR$ JSIN CHR$ AT | PAUSE XCHR$ AT TAN B▗CHR$ VAL MERGE s OPEN #Z STOP FOR *% GO SUB FOR .5 OPEN #NOT SCREEN$ [B]CdT2AT mL▝=[K][J]%[ REM [B] IF ▝IN S<=© INVERSE VERIFY PAUSE [F]AT MERGE [R]Z READ CLEAR EXP D0 RESTORE BEEP SS[I] NEXT ] THEN PAUSE [E]SQR INVERSE ▜ GO TO Q[D][J]:VT%N[R][E] PAUSE LLIST w[D][D]#▘ma PAUSE > CLEAR X OPEN # INVERSE BRIGHT BRIGHT %Q RESTORE READ CLOSE #▘ DRAW 8V INK % CLS CLS OVER USR NOT + BEEP USR *:.qSGN VERIFY AT SGN ▞[M]▟ OVER VERIFY [ATTR CHR$ IF !+vSGN 3 SAVE [J]+vINKEY$ GO TO cz[L]s THEN NOT & OPEN #q: STOP CLS ACS LINE BEEP FLASH MERGE OUT |[U]CHR$ MERGE U[F]▟[E]CHR$ AT PLOT GO TO PISIN [T] RETURN DATA INT GO TO [L][G]▟ABS COS GO TO R[L]▜[B]u[J]VAL$ CLS ASN i]NOT BORDER | LINE NOT % BRIGHT ,KTAB ASN ABS & STOP STEP SIN e: READ CIRCLE &| LLIST TAB ASN FLASH LEN f CLS STOP /'g MOVE [B]e=[A][J] THEN n/[P]e LINE [H][N]/!s STOP [L] THEN CAT % MOVE READ <>8 CIRCLE COS W6▞% PAPER CLS CAT ABS [L]AT NOT INK READ NOT PRND CLS THEN `f[N] BEEP INT [J] PAUSE SQR CLOSE #[R][U] PLOT RB THEN ,fZz RESTORE <Q1;VAL INKEY$Y[L][O]USR USR STR$ [D]ASN CLOSE #aW DEF FN >[R]ASN LET ATTR ASN .[I]LEN TAB CLOSE #SCREEN$ _>CHR$ VERIFY NOT [B]Z[E] CLS ▟`[K] THEN u[K]{[K]:[J]=t[P]3d▜[[E]2.qsCHR$ VERIFY [K]{ LIST LIST LN % BRIGHT READ OVER RND BORDER = ERASE [U] SAVE MERGE > BRIGHT BIN Z[O] READ CLOSE #s%pSQR [O]JRND[D]JRB RESTORE LN POKE FN Z CLEAR [O] SAVE LN v[D][O]PILN MERGE USR RNDRND VERIFY R OPEN # VERIFY /VAL$ ASN :ABS DIM LEN TAB OVER [R] CLS SR PAUSE OVER *Yn CIRCLE [P]mNOT q INK LEN VERIFY `2COS K VERIFY K▗AT 1 PAPER [C]k[B]EXP VERIFY [C]CHR$ L MOVE Ze DIM J OVER L VERIFY R CIRCLE OVER X STOP 9Q AND ?N INVERSE DEF FN PAUSE n DIM J= PAPER THEN NEW RESTORE DIM INT 2 THEN ^vPOINT K[F][C]PITAB [C]A[D] DEF FN POINT "[L]INT b INPUT READ RANDOMIZE CLS STEP Z LLIST NOT CHR$ R LOAD FLASH INVERSE MERGE AKb LET f_ LIST NOT READ [L]Z PRINT FLASH S REM NEXT GO TO [D]c[C]{k[K]Cc"▜! DEF FN x[J]nu AND f[H]▟ IF ABS H INVERSE FN OPEN #ZP LINE INVERSE H FOR [M]B PAPER >=&Y IF OR R[R] FOR STEP Zt STOP '[J]ACS FLASH V▙9SIN ▛[N][U][I]▝▛▞&^~[F][K]$X▟VAL ▛`"<= NEXT *: OPEN # NEW SQR [R]R;NOT POINT Y FLASH BRIGHT [U]W^p© PLOT w STEP N TO [S]m VERIFY RETURN LEN VERIFY xCOS 2[ INPUT p OPEN #[D]:2[ CONTINUE xUSR [G] RESTORE RESTORE INVERSE ERASE DIM OPEN #ATN IF [J][D]CHR$ FLASH ATN BIN ©[A]@( RUN 0 LIST )S? MERGE VERIFY PAUSE ACS [L] LINE ERASE NOT COPY b DIM PI[H]ATN [A]|SIN OVER FLASH ▖ INPUT F[R][F] PAUSE e[G]CU[A] BRIGHT [B] DEF FN [E]c GO TO [N] BORDER _ RESTORE OVER C[E] OVER MOVE PEEK Zt▞[Q]O7 IF FLASH [L]CHR$ ERASE [D] ERASE $ TO t BRIGHT yo.LEN VERIFY 2VAL OVER pLN OVER qVAL LCODE ▘yVAL$ 0fiTAN iTAN OPEN #▜`CHR$ mu LINE 0Z OPEN # TO 1 BEEP STR$ C% OR FOR AND STOP TNOT CIRCLE IF [[D] LINE J= CIRCLE INK f PAUSE TAB [M] [K]TAN f▘CR[J] FORMAT N0[L]<>▘[C]<>[K][L]TAB FLASH CONTINUE s{▝ LINE z▞ ERASE OPEN # GO SUB CLS 6kZ/ TO J INVERSE _0 IF >=[T] DEF FN READ REM 0[O] COPY x8[J]: COPY ;▘7([A] RUN p[B] STOP <=f[L] LINE COS [D] OUT WINKEY$[L] LINE - FLASH CAT Bd OPEN #NOT _POINT [L]CHR$ 9 NEXT THEN >=Y INK ; LET FN a7SCREEN$ ASN BIN [O]ATN SAVE 3NOT SIN IF INT ;P[U] OUT RESTORE 2 COPY Z RUN RNDYg COPY TAB K IF CLOSE #SCREEN$ ABS OR CAT IF ZLEN e CLS FORMAT mw DRAW _ LOAD s( BRIGHT [S][I]ck[K]qBIN RETURN rU%SCREEN$ +I;[G]) RUN .}v LLIST CAT ATN T PAUSE INT EXP BIN JV:] STOP p[Q] LINE CAT FLASH LINE 8 DIM AND FLASH STEP Y[A] RESTORE GO TO d[C] RESTORE ▞LN GO SUB ▝[F][R]▟[T][H] NEXT [B][R] RUN [O]oLEN ( LPRINT .xCCHR$ >=z OR [P]V LIST VERIFY GO SUB w OPEN #kA6 CLS 3N READ [B] MERGE OUT CHR$ FORMAT FLASH %RND38 PLOT k.+d[J] IF r[D]e[T];k.[E]DCHR$ 0[I]BIN hSQR ▛Z>= OVER w2ATN MOVE OUT <>_B~ MERGE ATN BRIGHT GO SUB <>INKEY$vVAL$ va[H] FLASH ACS CAT SCREEN$ PEEK ▝= REM NEXT REM CLS STOP CLS INT FLASH REM ▛[C]▛ DEF FN =Z FOR ▘ NEXT [R]SGN LIST PAPER STOP SCREEN$ lSIN lB REM t PAPER ▗[S]~ CLEAR LIST Z REM N TO ▖oTAN :cGd0d! OUT ▙: SAVE 2▘[G]8[M]g[H]2 LIST B9 INVERSE [J]F` INPUT STEP N CIRCLE RNDg%}SCREEN$ ksq RANDOMIZE BIN Y| NEXT * DIM FLASH OPEN # MERGE X0 LLIST ERASE READ LOAD `[R][B][L]▞LPOINT !<COS [I]N-0EXP _[F]Z_ONt}NOT COS Re[L]SQR Y LET INKEY$[N]ZTAB <>INT RATTR NEXT INK X THEN 3NOT b+ LIST [H]zy RETURN VAL [O])▝ INPUT I CLEAR 8[A]{Q[K]:AT DATA [L]Z: INVERSE DATA U PAUSE FORMAT Y PAPER INK DEF FN DIM BORDER QX> MERGE INK VAL$ FLASH W LIST VERIFY CLS ) OUT qe GO SUB NOT COS [F][D]< BORDER ▛Az BORDER q▝ GO TO ~ MOVE [D][G]VAL [L][C]b* OPEN #j^t[E] LLIST F INVERSE CLEAR S MOVE RESTORE =%CHR$ CLS ERASE &^ TO [E] NEXT INK [O]_SIN f RESTORE LLIST k[I] RESTORE PRINT SK![C] GO SUB )[I];NOT INK oTAN NEXT ERASE [S] NEXT [M]CHR$ 2^ INVERSE PAPER ▛[J]B8 READ ▝ FOR CLS ZNOT NEXT A;[E] LINE PAUSE e RESTORE READ L"S READ POINT /~USR ![K] OUT [R]▚P STOP [N][L]▟[E]SQR [A][O]b[C] INPUT o LPRINT PIXSGN 0t PAUSE TO [L]6▞ INVERSE ;P= BRIGHT | IF e>▝6▖ CIRCLE Y GO SUB RESTORE CHR$ ^[N]'[J][C][C] PLOT I; STOP )[J]9[A]HPOINT [F][G][N] ERASE LIST NEXT SAVE PAPER USR /<>c COPY k THEN NEW NOT INK PRINT [U]_ INVERSE 0 ERASE RUN INVERSE MERGE STEP [T] PAPER c LPRINT t RUN [E] LINE LET ▘[A]fX[U]▛[P]E▚BIN BRIGHT R[L]STR$ ▘L▛ MERGE a<bSCREEN$ [Q]XRNDSTR$ RUN STEP FOR SCREEN$ [Q]SCREEN$ [Q]SIN LN [N] OPEN # CONTINUE PAPER [Q]PTAB STR$ SAVE CIRCLE ; REM [Q]fNOT NEXT CHR$ [A]SATTR [S]`[P] LLIST ,t INK SCREEN$ C[C][I] LOAD [O];c INK _e GO TO =ZSCREEN$ qRAT ERASE yX OPEN # CLS [R] STOP aDSGN NEXT ▝ IF CLOSE #Q BORDER STR$ PIZSCREEN$ THEN m.9)INT 0 OPEN #^[G] SIN OPEN #R[C]▘[S] OVER OPEN #vCOS [K] OPEN # INK ;GATTR .NOT h FLASH LET DIM R LINE OPEN #[[J]bZRCOS JNOT RZ FOR <>)Qw CLS RZJ STOP [O] READ CONTINUE +[B][K]ac[J][J][K]p[[B]`"k[B];[B][E][T][ OVER DFN :PICOS bb©▛HZ▘@RJ▛H_b▛CHR$ FLASH Y[A][P]QSCREEN$ ▛SCREEN$ <= NEXT p LPRINT dYAT )COS c[B][A][L][A]▚ NEXT FOR ATTR [K][S]▙COS NEXT HY BORDER ▛[C]<=QCODE ▛[K] CLEAR Zz[D] MOVE A[S]▛[I]Q REM [T]H LINE CLEAR Z[C]COS IF bpk▖SGN [C]=[J];i CLEAR ▘h▙[J];{#▘[C]zjASN MbLEN [S]uX[B] IF INK [T]B PAUSE u/ LIST ▛▛SZvIRPEEK ▛S_<=COS .VAL$ REM 5[C][D] GO TO PI POKE [H]: READ OUT CLEAR BRIGHT [Q] RESTORE TO p[B] INK [C][D] CLS [T] LPRINT LPRINT CLS 6[I] FORMAT Y BEEP PRINT OR ▖/ VERIFY [L] REM / TO HZ BRIGHT MOVE W LET [T]▜ MOVE [F]g IF STR$ cG$RND[B]wl FLASH [K] GO SUB z▝ INVERSE LINE [J][E] FORMAT [J][I]FN IF 02" NEXT IF y[J][L]V MERGE CLOSE # LINE LINE ▛USR B LPRINT OPEN # CIRCLE THEN PLOT Z STOP [T] RETURN NOT RETURN Z RANDOMIZE [K]▘ NEXT DEF FN b ERASE FOR ACS SQR ACS [H] CIRCLE READ AT SQR [U][C][C] PAPER NEXT LOAD ▛ LINE ~[N][A] BORDER CIN K LOAD gSQR ▗ INVERSE READ OVER _ LIST [U] MERGE FORMAT >=O▖ NEW B7VAL RETURN CIRCLE NEW Z[C] OPEN #NOT PCHR$ COS N ERASE [P]k▘| INVERSE [T]: LOAD Bd INVERSE [C]ATTR 9*[K] RUN B▝3INT [K] CLEAR L` LPRINT NOT <FN >=R[A]▗^t DIM qW VERIFY ZATTR DEF FN FOR P FORMAT [M] INVERSE STEP b[F] LPRINT ▜▛[M]Zb RETURN [B]▛ PLOT CONTINUE CODE IF ATTR CODE Z THEN OUT CIRCLE NOT [T] REM LLIST PI FOR <> PAPER READ >=R BORDER [L] COPY Z MERGE [G]B FLASH CLOSE #Y INVERSE MERGE BEEP nTt[E]AT L" LINE MOVE [K] CONTINUE USR #7/[P]TAN ) INVERSE ▘/[S][I] MOVE ^VAL$ [P][H][J][N]sa CLS [E] LET [S]/CHR$ J[E]o CLEAR A FOR CLOSE # FLASH I_[M] NEXT ERASE INPUT ATTR D^e NEXT [A] CLS READ [L]zCOS [S]ATTR SIN ECODE PI RUN [O] PAPER k GO TO V MOVE &[U]cx-V`UCHR$ [B]▟RND% LET CLS &~ THEN MERGE ]ABS ABS d READ - NEXT [T]PNOT R DIM Z| NEXT INVERSE .LN I DIM READ 5[S]+l[C] NEXT [B]' VERIFY [U] DEF FN [C]ABS VERIFY @ABS )j[C]SGN abEXP ▙b LLIST LET PAPER S%>CHR$ OPEN #[D] PAPER FLASH OPEN # THEN >=D6 ERASE FLASH PAPER FLASH ERASE INK BIN Y▝ LINE EXP INVERSE GO TO STOP [U][L]▛SCREEN$ [O] OPEN #▘^G CONTINUE ▛CHR$ ▝VAL [J]COS PEEK [R]SQR READ RANDOMIZE [K]* REM Z NEXT READ SIN ATTR <>Z CONTINUE READ s POKE 6J OVER ▛o THEN USR PAUSE POKE [D]STR$ `X GO TO f RESTORE %[S] INK [C]SGN G[J]?▚"BIN [K];V[B]-#[CQ ERASE = OVER SQR PEEK [R] STOP + BEEP [H]IN DIM <><=2INKEY$ CIRCLE RANDOMIZE <=<>TAN PAPER p RESTORE PISTR$ GO TO X DATA INVERSE GO SUB PAUSE T[H]INT WNOT ▘ [N]▝ INPUT [S])RND[C]-COS [P][K]kPw RESTORE RETURN NOT STEP Z MOVE [L]CHR$ W;G INVERSE BIN CLS DRAW STEP 8 READ LLIST _ BRIGHT N INVERSE STEP NEXT FOR W VERIFY e CLS FORMAT NEXT FORMAT a AND ▙+9Cc[B];m5 REM [I] OPEN #}- LET [Q][J] THEN m=RND[H] OPEN #8. FLASH [N]Q[N]Q OR i MERGE Z CLEAR NEXT Pc FORMAT Ol INVERSE [I] DIM c▗] RESTORE &[N][O] FLASH ▞R`t VERIFY :m▟ CLS [F]u▘[G][K][B][I] PAUSE ERASE [O].IN Z.Ec CLOSE #s MERGE STEP DIM ▘ PLOT [^ STOP <@ ERASE MERGE [U]- CLOSE #%Q[M]V[U]-[U]-AT NOT STEP [I]'TSGN DIM [J] VERIFY AT d RANDOMIZE 1 RESTORE [I]T NEW [K] INPUT l LLIST d LLIST [J]` TO DATA "_/_ MERGE OPEN #[M]$/[L]AT OPEN #T PAUSE tW<= RANDOMIZE Z LINE [E][M][E]mPISAT i FOR TAN fATTR <>[Q]VAL$ SQR INVERSE DATA h GO TO h BRIGHT `[M][L] SAVE [C] TO TFN NEXT MOVE [D][U]06▞" READ TO & FLASH 6^RNDt2 NEXT MERGE PAPER [T]X LOAD CLS LPRINT BRIGHT [I];LEN CHR$ c CLS [H]//%: DRAW 8{[M]d MERGE LLIST <>b BEEP STOP KSCREEN$ CAT X[E]|U ERASE [O] MOVE Y*LN v[Q]n[Q]n[I]fRUUSR Z NEW [Q]IN b VERIFY BORDER FOR OPEN #▘[N][P],-▙ NEW ▝©#NOT [K]u THEN ▞b[T] SAVE RUN RETURN P GO SUB PAUSE ]VAL$ b STOP m OPEN # OR Q RESTORE READ [M]j GO SUB SQR IF CLS RUN b NEXT [J]H6STR$ [J]8l4v▚%:<[D]5LN COS 2[D]TAN ▜ RESTORE INPUT [N]a READ CIRCLE POINT THEN BEEP h READ PAPER FN SAVE THEN 1ahSGN { BEEP >Y PAPER READ GO SUB RETURN `V/"▘,[M]%▘ RESTORE ▟NOT PAPER ^)J~INT BRIGHT NEXT FOR RETURN BS INVERSE INVERSE c READ <= PAUSE E[Q] VERIFY */ DATA ▗" MOVE a THEN BEEP P MERGE a FLASH BEEP Z LET READ LOAD READ [E] LINE PAPER PAPER m[D]#% DATA l LINE }>=;▛[O]d PAPER e▖[P] READ SGN RETURN IF FOR qZSTR$ OPEN #qR DRAW ^ DRAW ▗ CLS AND FLASH [D] PAPER wUSTR$ i LIST THEN 2ATTR ©b RESTORE GO SUB [B] RESTORE [O]VRND[M] BRIGHT H[U]PEEK N1[E][D] FOR )TAB [J][L][O]"USR NEXT ATN MERGE 6 STEP UI LINE SAVE LINE LOAD R6ABS MOVE STEP PAPER a"J-[K] READ /%TAB OPEN #5[;lC[K]`' OVER x?sT CLS [O] STOP GO SUB ; CLS [N] PRINT READ SQR RETURN CHR$ SCREEN$ ACS LET { GO SUB PEEK TAB B[I]Z PLOT h GO SUB ERASE MERGE VERIFY ACS ` OUT NEXT PAUSE PEEK [N]▛TAB ▜[N][L]VCOS RND FOR INKEY$ INPUT OR >TAB [D]^PEEK ^k READ B READ OPEN #_>S GO SUB FORMAT NOT NOT _ OVER R RESTORE MERGE NOT FLASH INPUT / CIRCLE BZ NEXT OPEN # DIM READ PEEK X IF 8 GO TO MERGE TAB [P]%$[O]3ABS p[I]q[C] ERASE 'T READ NOT b LIST CLOSE # BORDER Y NEXT DPEEK U[M] IF SCREEN$ / ERASE CAT [N]▜Q MERGE OUT . BEEP ` INVERSE BEEP FLASH ya FOR j[L]SQR [T] MERGE BRIGHT SQR SGN [G]rNOT COS ▛YbSIN THEN INT p GO SUB LLIST OPEN # INVERSE Z PAPER ▛EXP CLEAR i[ OR OR STR$ MOVE Z& INK MERGE BRIGHT HQ RESTORE INVERSE BIN MCHR$ ATTR nCHR$ AND e VERIFY 0CODE CIRCLE 1 FORMAT +▜ RETURN NEW ;[C] PAUSE B▛f[D]. VERIFY _> SAVE & SAVE THEN (.2: LOAD @▝ AND AABS ▗[L] INPUT Z OPEN #[M]R INPUT ~ GO TO ACS ~INT POINT MOVE ATTR [E] BEEP b[M]LN I CLS /SIN TO [D]pz OR /a[R]u RETURN ._IT LINE LINE PAPER I_AT t SAVE TAN GO SUB !@PEEK g CLOSE #PEEK NEXT ak FOR LET _> IF IF +VAL [P] VERIFY PCODE AND #LN [J] STOP #[K]D▛TAN ! CAT [I]2|[A]- PAUSE a INVERSE FLASH MERGE BEEP BRIGHT RETURN ERASE _W(Y RESTORE TO AND ▙B BRIGHT PAPER 5 INK ▛G MERGE READ k READ # INVERSE GO TO [ OPEN #CHR$ >[N]ATTR DATA ^%[T]ATN LLIST v EXP POINT RND[G][B]4V RETURN &[N] STOP & RESTORE DEF FN INPUT OCHR$ STR$ P RESTORE STEP OVER IB CIRCLE STR$ LIST RANDOMIZE rX▛ MOVE xZ0 FLASH DEF FN b DATA CHR$ [D]▞ VERIFY IN LEN :ABS [I][I] DEF FN X PAPER OVER "▘& VERIFY ▗INKEY$ PAPER BORDER [ OPEN #c PAPER M FLASH [P]O[R]SIN YACS XNOT b@ LINE INVERSE MERGE THEN ▛ LLIST NEXT Q MERGE INVERSE CLOSE # PAPER xk[U]c][P][F][A]x MOVE INT ▘Z▛dN OR DIM 8ACS TAB ▚[N][K][M][L][J]▗bx OPEN # BEEP <>FN X%n FLASH X LLIST 2A LPRINT `A GO SUB PAPER INK BU OR OPEN #[A] OUT OR MOVE LOAD DIM 6`[I] LIST [F]! NEXT [J]&!SCREEN$ ©]▖%! IF [B]) NEXT [J] VERIFY STEP ].U@ RESTORE TO LET OUSR VAL$ K VERIFY NEXT <>= PRINT FOR LINE % GO TO CLS *[P]m THEN 7 FLASH BIN _ CLS . LOAD FOR R[L][H][D] BORDER CODE e[M][T][J][ DIM %[L]COS REM - READ ▟SQR INKEY$ STOP BORDER VAL$ Z INVERSE ATTR OR PAPER NEXT OPEN #ABS CAT [H]CHR$ I<= READ B THEN CLEAR CLS "NOT PQ?@ DIM COPY CLOSE #t` RESTORE THEN = INVERSE [P]4 OVER FORMAT TAB *; IF CLEAR 5+ INPUT STEP + CIRCLE 4 CIRCLE 4 FORMAT <)h5 FOR CLEAR sX DIM OPEN #X IF INKEY$U RESTORE PAPER NOT > CLEAR ASN ▘Z FORMAT OUT VAL LLIST FLASH R CIRCLE DIM OPEN #SPOINT i INVERSE LLIST GO SUB [I][N]▝▖3RND[I] THEN [H]%ABS [K] FOR ATTR STAB [H] FLASH IN INVERSE NEW PAUSE 9Q BORDER % FORMAT CLS STR$ MERGE PAPER MERGE FORMAT IF ERASE FLASH CHR$ 8 THEN : GO SUB ATTR OUT [I]ABS LLIST In RETURN q DEF FN u AND }▜▙ AND n AND g DEF FN 0 AND 8 LIST [Q] FLASH b FLASH RANDOMIZE ,S INVERSE INT - OUT FOR CIRCLE tNOT CHR$ INPUT @ LET d LET LET R. FORMAT qO RESTORE LOAD FINT [A][L]VnSIN & PAUSE F~J~▝qf~INT 2[P][E]9f GO TO [L] MERGE STOP READ INVERSE d CLOSE #z OPEN # LIST REXP FLASH CLS _RND< STOP INT READ BIN W STEP FLASH ▟LEN LN INPUT NEXT ERASE CHR$ NEW THEN NEW READ BORDER LIST INPUT PAUSE INPUT PLOT NEW u NEW e RETURN n NEW oC*[C]PEEK ["[K]f[D] PAPER [D] STOP ATTR STOP ATTR REM [R]R[L]POINT ZR READ RM[F] INVERSE FLASH & PAUSE OR INT . ERASE & LIST &TAB READ READ INPUT CLS FOR [C][D][D][H][O][L][D]▘COS BORDER PINKEY$XVAL$ [D][H]PIATTR [J]( CLS BEEP _. GO SUB OPEN #g FOR INK PRINT <> STOP EXP COS FOR * FLASH yA2 LIST OVER `/ PAPER LINE AND IF INPUT PAUSE CONTINUE PAPER [K] INPUT <= DATA [M] RETURN r-0 CONTINUE REM [I] THEN h BEEP DIM p FORMAT &/[M] GO SUB FORMAT ki VERIFY ▝CHR$ SAVE D IF *SIN CHR$ RESTORE OPEN #▖]pCHR$ IF ▛ RESTORE <> MERGE RNDk*AfZ[F]INT @ FORMAT B[C][N][L]▖^USR X[K] OR [N]TAB e9$ PAPER OVER NOT >= CAT LOAD ]AT pAT OPEN # OVER ZSGN THEN INK RNOT CLOSE #Z THEN RUN bAT NEXT [J]/ INK *▜▘SQR INK 1CHR$ ▛ STOP /-[S]#SQR REM VAL e IF GU▗RND< TO xp OUT & MERGE 6XTAB @ DIM g▘ REM INT B[D][G][O][H]-INT N REM [K] POKE F[L];N[T][R]RND[L]▟ READ DCHR$ $▞ DATA W PAUSE ^LEN CHR$ CHR$ GO SUB < LPRINT PRINT < ERASE _ NEW LLIST INVERSE INT CAT k] RESTORE VERIFY [E] INVERSE LLIST ZB[J][B]SCREEN$ x[J][D]e%▜<> INK PAPER [G]d INPUT : PAPER ka5" STOP 3 THEN CAT Z[T] CLS ERASE CAT ZJ BEEP 5@ OR NOT VERIFY PAPER ^ PAPER [U]x DIM Z RETURN READ X`▘JN[G]NOT BRIGHT GO SUB M[I]"AgC[O]<> POKE Q©S[C][K][D][O]BIN ▛ DIM bTAN NEXT CLOSE #Z[E] FLASH <= BRIGHT [M] FLASH [D]X INPUT ▘USR F ERASE Z LLIST NOT 2 OPEN #ZZ FLASH v NEXT oge NEW ]+U>[K] TO ▟sX[K] AND ?[F][7[K] LLIST READ CAT f INVERSE CIRCLE b FOR BEEP TO cPAT [N] LINE OPEN #3CHR$ V VERIFY 1Z BORDER OVER :/ LINE AT IF ZLEN IF OUT [E]2Z[O]Y-SjZJb PAPER ▖▘xqY[N][D]▘[P]VfY NEXT NEXT DATA FLASH )YRND ERASE x NEXT /Z FLASH PAPER F NEXT T FORMAT OVER >= THEN DEF FN Pke RESTORE (# PAPER [J]- DATA CODE IN [N]- OVER STOP STR$ ▛XSCREEN$ SAVE [T] PAUSE H OPEN # OPEN #<>[F] LINE Y CLS GBIN ATTR LPRINT CLS LR VERIFY IF )[T]b~ LLIST ▛ BRIGHT 4][A]oE[I] BRIGHT [R]> CONTINUE TO [C]K[K]<=R[C]%[T] NEXT CHR$ Qh ERASE RND<>TQtU IF [T]SIN TO }[d0HW&.& VERIFY u INVERSE VERIFY I CLOSE #t▜[J]TAN )[C]1s PLOT D CLEAR ,t RETURN Lt9▞sCHR$ T▖ REM dZ SAVE MERGE WINT GO SUB FORMAT AT CIRCLE BRIGHT A OR FLASH DIM Z THEN CIRCLE Q OUT 6 MERGE ! DATA CIRCLE r IF [N] GO SUB [G]"IWP[D]W▛rR[K] FOR SIN ABS [L] DRAW [E]sLN RESTORE TO ^:"L▗TAN LINE OCOS TO -Z GO TO <>6OATTR PAPER ERASE EXP THEN COPY Z>NOT RUN BEEP ATTR X:CHR$ CHR$ NEXT MOVE g:▟s716[E] LIST PLOT @k NEW [H]Kxh[B] PAUSE GO TO SIN ` BORDER PAUSE RUN OPEN #IN THEN PEEK MOVE COS LLIST ^ POKE FORMAT CY02 OVER INT U SAVE &USR NEXT RESTORE [I]Y[S] CLS [C]▛[G]?[N]FoSCREEN$ NEXT LN GO SUB -ATTR [N][E]kLN >=[N]Z OPEN # OUT SAVE RNDNOT <> LIST TAB SAVE [F] SAVE OPEN # CLOSE #/A MOVE INVERSE Z OPEN #[N]R6 BEEP ?PCHR$ [E] FOR USR 8<> PAPER 2ABS ▙[P]c&[M]/[F]▘RCOS [K]K CONTINUE S LINE [N][N] MERGE READ LET SAVE >= THEN INVERSE QNOT p BEEP INT ]uCOS .[I]mATTR FLASH VX6 PAUSE ERASE <=H FOR Jb& GO SUB RETURN Z▛©f LINE LN RESTORE PI[B]Kbr[F]d[P]▘SQR DIM READ mb READ THEN UZ INVERSE NEXT ]Z. RESTORE VERIFY K ERASE pFN MOVE * FLASH YZ3 FORMAT OPEN # BEEP ZSTR$ BORDER ASN ` PAUSE Wp6S▛9[U]x RETURN @CODE p PLOT Q;"CODE pAT #[K]2FN pTAB ▖[N] LET * FLASH nY LINE * OPEN # MOVE } IF ATTR & INK TAN >=STR$ SGN CHR$ ▛ MOVE |6▞ FOR INK CLS LPRINT OUT CLS l▘[D]J INPUT ▝ LOAD ▞z[D] GO TO [Q][A][D]^ATTR VAL q NEXT LN [J][L] FOR VAL FOR >=[D]>=h IF -COS STR$ [U]USR USR LIST THEN " PAPER @ FLASH MERGE Q THEN NEXT PAPER ACS Z> GO TO CHR$ q RESTORE FORMAT FORMAT )#-[L][I]D RUN q(h[P] ERASE LIST PAPER [E][P] CLS ▙ PAUSE u READ RESTORE Z>=>= THEN / OR >= ERASE mCOS PAPER ACS X LIST LIST GO SUB READ READ >USR ▝ CLOSE # RESTORE ▗7[N][K]"[H]<>▘^ POKE [L][L] PRINT ▞uZ[R]▟ NEXT e STOP )% IF CLOSE #SIN LOAD TAB VERIFY P]COS OVER xU} FOR CIRCLE 7& GO SUB OUT %.% REM VERIFY # BRIGHT ;ATN [G]▛/&t CONTINUE e INVERSE }` FOR * OVER 3 OR rR6 LET m LOAD BORDER ZCSTR$ B OPEN # BEEP ZINT LET TAN Q0: IF CLEAR b2 READ REM [E]S▗ RETURN ▗▟ OR F[O][F]▟/NP[Q]▛B[H]+Y MOVE $> LPRINT n OVER <>fP POKE <=3ZUSR NOT FLASH K PAUSE BORDER IF MOVE FLASH PAPER ;g.LN E AND COS /n RANDOMIZE [B]{ INPUT ^[C]jo INPUT ash LET NEW S[N]c CLS PAPER ATTR LLIST KPCODE COPY B INK ERASE x^! STEP OPEN # OUT ] LINE m[I] SAVE PLOT ; STOP PAUSE ^&T[E]1▛[N] ERASE DIM [D]SQR ▞ IF BRIGHT [G]▛▝ATTR NEXT NOT e ERASE RNDUSR STR$ CLOSE # PRINT Z. FLASH B>>=USR YAT R FLASH U LLIST T DIM T RESTORE TAB `STR$ THEN [E] CONTINUE [P] GO SUB STR$ COPY BRIGHT ')LEN hUSR LOAD BRIGHT a;LN [C]KLEN f MOVE PRINT COS INVERSE _ INVERSE A POKE FLASH TAN INK ] ERASE CLOSE #ATTR ABS <> SAVE FLASH INT AND "X BRIGHT c READ CIRCLE K CLS CHR$ F LIST PI[D]][N]TAB CLS POINT BEEP RND▗LEN DEF FN ▙Im[M][D]▝COS ▛▞b[U] NEXT LET ^ INK NOT BEEP GO SUB FOR COS INVERSE X CIRCLE AT [M] STEP DIM E STEP OUT b READ CIRCLE B OPEN #[C]TWCODE BORDER AT CHR$ n[H] RESTORE CONTINUE [N][K] INPUT ▘[A]dU[K]3^,[L]:SGN [B]d OVER INT FORMAT C PRINT READ GO SUB BRIGHT Z AND RETURN W ERASE REM VYq▘N/ CLS OVER BORDER THEN MOVE MOVE OVER ▚ FLASH PAUSE k RETURN IF [E]XwS^F[I][G]GJ[O]^AhS READ SD5[M]nV BEEP {.lz[T]Bu MERGE LLIST CLOSE #DQ<= CLEAR CAT {U INVERSE OUT STOP Q THEN #<=8a" RESTORE P*[F] NEW VERIFY :<=[A]/STR$ ▘Sm[K]bC[K]4#[B] INPUT EXP REM PAUSE CHR$ bXEXP . PAPER ▜/ LINE [S]SIN CLEAR < PRINT PAPER INK > ERASE kRSTR$ DEF FN CONTINUE CIRCLE ▝Z4 FOR % REM % GO SUB [L]A[D]^LEN COS ▛IYJ[T];oR[H]COS CLS RRND[G][ FLASH ▗ RESTORE INK SQR PAPER CLEAR X BRIGHT YLEN NOT INVERSE BRIGHT [R]X MERGE BEEP ERASE SCREEN$ f([;[K][P]. INVERSE [A]#CHR$ USR [Q] LINE `' PAPER kASN <[F]l PAPER CIRCLE [E]* INK DATA P> IF OPEN #XE[M] BRIGHT v REM Z_E"TAN FLASH 1CHR$ SQR T2 GO SUB DATA MERGE FLASH AT <>mlRND▞V)VSIN [L] FLASH ERASE LIST ▟d^INT FLASH OPEN #▘* LLIST SQR [A]Z NEW [M]d LOAD MERGE IF ▚[R] FORMAT QQ INVERSE CHR$ [S] INVERSE DEF FN x CLS INK AND H NEW 4V8CHR$ BPOINT FOR THEN j NEXT : PAPER OVER :[L]C LINE ##[N]:SQR S[B]▖;U[N] REM a2 OPEN #K;B[J] INVERSE DATA DRAW |I*B- READ OUT %[K] FOR TO CLEAR CHR$ b/ THEN BJ OUT "%INT FLASH CONTINUE IF [T]re REM [T]v[N]SQR Z^▟NOT NOT vVAL ▛}▝▘ PAUSE CONTINUE INT { OPEN #VAL$ CHR$ 0XNOT e> INK GNOT DEF FN J PAUSE " ERASE VERIFY PNOT IF NEW X LINE SAVE -o LLIST ▘+ LINE PAUSE ` CIRCLE SCREEN$ MOVE AT B&▝E CLOSE #$[F] PAUSE LINE LINE IF k[I][C] CIRCLE h> IF BPOINT TO RANDOMIZE @ CLEAR Z THEN MOVE Z[C] BRIGHT <P IF /ASN [G]VAL b[B] INPUT pINT LINE LN MERGE READ [K][C]TAB [N]▟▜4 LLIST [A]POINT ▖ RESTORE ▞[P]( FLASH BRIGHT _ OVER oZ OUT DEF FN YP FLASH LINE } CLS GO TO B MERGE OPEN # POKE BIN W PAUSE T PAUSE TAN LINE i[B] RESTORE DATA GO SUB [J]INKEY$[L] OVER yFN q{[B]POINT i%s2RNDi-+8 READ LPRINT f MERGE FOR : INPUT `9 OR u<>8Ku_w OUT MR<INKEY$] PAUSE [C]RND[C][H]b[P][O]N REM ATN b▖[P]UINT OVER INT jF▘ INVERSE CLS Ob READ <>Z THEN PRINT ▛ INK AT W▚VAL CHR$ [N][F]^ OPEN # INK B MOVE FLASH STR$ OR G INK JQ OVER VAL REM (k.ASN tINT ▟%'[C]+/[K]&7▝[M]uc3][C]kU[K].[D]TAB NEXT ▛Z MERGE [L][F]V PAUSE VLN Y ERASE CLOSE #P VERIFY ZP BRIGHT MERGE VERIFY CLOSE #bX LLIST ?h CONTINUE VAL INT $[M] OPEN #[C][F][J]SQR [K]RPEEK v[L][F][J][F][O]N^W PAUSE [T]a INVERSE PAPER CLOSE # DEF FN Z STEP BRIGHT #W IF RETURN ATTR TO [D]G RANDOMIZE ▛^[M] RESTORE (PCHR$ [I]Y CLOSE #[H]YLN x READ LET 4[Q]TAN [G][P][Q]▝NOT }o[G]V[B]:[A][I]bLN INVERSE [][E]CHR$ [L] MERGE <=Z FLASH READ @ ERASE BORDER PAPER USR PAUSE [G]Q[R]T CLOSE #fS READ RESTORE DRAW .)WRND CLOSE #CHR$ COPY FORMAT POKE PRINT CONTINUE LOAD LET PLOT LPRINT RUN POKE DIM CONTINUE OUT LLIST IF RESTORE PLOT DIM CONTINUE RND ERASE TAB ob STOP MERGE W OVER tP LET EXP / INK LPRINT V RANDOMIZE CODE L STOP GO SUB T RANDOMIZE ASN T GO SUB INVERSE LLIST [T] FLASH [B]] DIM [C]l.x VERIFY |[B]▚|[K]E#▘[K]#}~1u[E] INK [D]l[U]RND FLASH % OPEN #) LET ATN T▗/8 DIM [S]T[E] FLASH OR gs% RESTORE OVER [E]F[L]ATN EXP RANDOMIZE ▗ DRAW [B] FOR LLIST CLS [I]<▘xRV[D]IN ][A][T] OR LLIST X NEXT L INVERSE tRc|X.& THEN RUN FLASH EXP ^% INVERSE USR INK m OVER >=a*> GO TO SGN ;j[D];''8// AND U▘ GO TO i[M]2~z OVER MERGE <b▘[T] FOR Y▚LEN FLASH NOT INVERSE {_ DIM ▛^ASN g OR NOT OUT IF M[Q] RUN QTAB [E]CHR$ OXUSR [N]SGN RETURN [P][G] GO TO SQR TAN LN N[H] LPRINT THEN ▙ GO TO ▖.[K] BEEP [F]LN [J]RND READ [E]2 DATA TZ THEN CLS THEN T GO SUB VERIFY c<=[K]x STEP X VERIFY VAL THEN Q OR INT STEP fI% LINE OPEN # DATA OUT RESTORE 2#-"d-[T]<>▜ STEP hze GO SUB <> CLOSE #;e FORMAT & BORDER READ LPRINT X CLS AT RESTORE TO c IF VERIFY %^- AND FOR OUT DEF FN NOT % RUN hU FLASH ATN ATTR M▘ATTR UABS [N][L]I▛T{▚ZCOS >=POINT K POKE DaF TO | FLASH MERGE [G]ATTR COS @R CONTINUE Y OR NOT MERGE $ INVERSE LLIST PCHR$ ERASE FLASH NOT _[L],68 BORDER [K]l[O]SCREEN$ <>l CLOSE #TP STOP COPY PAPER Qs-[A]Lblya RETURN IF STOP INVERSE INVERSE LEN OPEN # AND RATTR NEXT Y SAVE LOAD kA[L] AND STEP [L]Z& VERIFY T MOVE [E]*Z FLASH CLS [G]z[O]zIZ/bz@▛S}FN ATTR [T] CLOSE #v[M]i[C]▘1, INVERSE $ STEP [O]XU8 OPEN # MOVE YAT : PAPER UG COPY BORDER h FOR CIRCLE HNOT !2b FLASH BORDER RESTORE DATA ;- GO SUB /d ERASE &[I]L NEW OR [C]e PAUSE [C]d PAPER VERIFY PLOT CLOSE # CLOSE #a ERASE 3 FLASH >=ZINT NEXT USR P FOR VERIFY COPY ;o/RND CIRCLE STEP rZRND CLEAR [K]gTAB V▝K▚<>PTACS p[M]DRND NEXT CONTINUE ^tKFINT rCHR$ xJ FORMAT Xi BRIGHT `X LLIST CAT CODE PRINT N VERIFY FOR ERASE STEP [B]IN > DIM MOVE b NEW TH[A] OVER STR$ THEN INPUT [B] SAVE DEF FN SAVE [E] VERIFY >= THEN VERIFY ▛>VAL$ POKE j CAT 2` MOVE CAT ATN <> SAVE FLASH P[B]M INPUT LET E STOP <= INVERSE NOT AND OPEN #PEEK GP LINE hJ OUT [R]b BORDER <= LET CAT [N]▝ATN mACS IN SGN BIN ▚z[A] RETURN x[N][K]ATN o NEW P0l PAUSE <= FLASH FLASH ©Z[E] AND NOT RANDOMIZE RASN NOT RNDCHR$ tuINKEY$< PLOT OPEN #P LLIST [J]M THEN INKEY$b GO TO SQR [I] NEW U6Gm[J][G]qC DATA 49[J] REM &^#4[K]'| NEW MaxM BEEP PLOT OVER ABS [P]X[F] BRIGHT OUT J TO % MOVE [C] DIM [U]Z MOVE vY2 DRAW STEP a[K]PI[C]`[J]>uJ[R] LOAD ▖ FLASH LINE IINKEY$POINT [L][K][H]YGJe[D] NEXT CAT jFVAL NEW DIM ~LN FORMAT THEN CLS Z BEEP NOT READ B COPY THEN CLS ] OVER /- ERASE FOR CLS Z OUT READ NOT l VERIFY ▜E[K] OVER ▖SQR VERIFY 2LN "_up[K];[S]VX[C] LIST [O]Dt.[J] POKE VAL MERGE " CIRCLE NEW CONTINUE DIM S[L]7 THEN {Q-y DRAW PLOT )YNOT CONTINUE [J] THEN Re[J][D][M] RANDOMIZE ACS R LLIST EXP TO [D] OPEN #[E] LLIST [K]cY#A^[U]FN [E]>= BRIGHT VERIFY h NEW LINE TAB [E]BIN RESTORE OABS Bt RESTORE )[U]USR NOT CLS THEN f THEN 9CHR$ <>K[H]+![O]>=@+'J[N]d2[C]q CLOSE #<=N NEXT WZR'[L]o[Q]yB[G]CHR$ [D]]PICHR$ NEW Z CLOSE #!X STEP MERGE READ DATA FORMAT fRNDVEXP [L];e CIRCLE [L]▘}SIN ISCREEN$ HA▘@mPOINT A▘HXSTR$ 0 PAUSE '[A]>=^[E] MERGE ERASE GO SUB BIN CLS PLOT THEN NEXT E DEF FN ▟ RESTORE REM FLASH DEF FN V- READ [K] OUT ▙e[S]0 INVERSE STEP *?3[B]LT1 MERGE [P]<> FORMAT POKE [J]BIN SLN [J]% READ ▛NOT ▙_t DIM ▙Z[R][S][ INPUT P LINE STEP SCREEN$ OR FLASH INK >=J/ POKE POKE [M] RESTORE ! INPUT IF INPUT `INT MERGE FOR [F] BRIGHT TAB INVERSE CLS ▝m LOAD PRINT VAL$ [N][N]N[M][M][A] OUT RESTORE [L]CHR$ ▚k GO TO - BEEP x CLOSE #rR PAPER MERGE !X RESTORE INVERSE S TO bB: AND 0BIN % DRAW VAL$ Q THEN e:r:j[D][R][B] DEF FN LPRINT ▝>=<$_+([J]=X.A[P] LINE 8[G][E] LET AND YCHR$ NEXT AND OVER !O▟HCHR$ PAUSE [G]S THEN RND GO SUB LN g>=p[C]pSQR POINT RH THEN POINT LN eACS [T][I] BRIGHT RND COPY [P]qb DIM GO SUB READ Z MOVE THEN DIM R[T] LLIST SQR LLIST Z INPUT [N]d[F][E]▟[C][A][G] NEXT [H]▞[C]▟[O]LEN NOT COS AT TW_t3j|f;lzuw#wl;y~;r3w4▟[B]$O▛▚NOT ▟INT ACS PEEK FN OPEN # OR TIN TAN AT CLS LN [S]TAB OPEN # READ /LN COS INT ABS TAN ACS ATN PLOT rY~` INPUT /b TO [B]9[A]▜ RESTORE SCREEN$ IF V LET VLEN ▚ RETURN Ne>=I▟FmCHR$ IN5LEN CHR$ INKEY$TAN [M] CLOSE #PEEK FOR EXP R6 PAPER ^ INPUT _ ERASE STEP L<> LPRINT Y INVERSE AND PAPER [T]Z MERGE MOVE wACHR$ E` LINE O[J]H▖p[I] CIRCLE DEF FN wO▝FtSQR [G] OVER CLOSE # DEF FN :C[B] PAUSE LET READ IF 0 FLASH VERIFY ^CHR$ OPEN #XSTR$ OR CIRCLE PAPER jX> GO SUB INVERSE [L] CLS R LINE c7 INVERSE RESTORE GO SUB [M][N]▞▘Z}SQR RETURN SQR [K]VINT CONTINUE [J] DATA [L][F]<=2[E]ATN [C]▘`s GO SUB BEEP TAB X LINE NOT ? OPEN # DEF FN THEN >=X<> OR CHR$ PAPER Y>=[E][L]EY[N]T[T]ub CLS FOR ▟[I] VERIFY / OR g LPRINT +▝[K]©; {[J]s8▘©[A] PLOT @w3} CONTINUE PRINT ATTR sZtUSR CONTINUE R.[L]n_LEN VERIFY Y, AND IN DRAW THEN R OPEN # CLS THEN iTAN > MERGE [L]"IE REM NOT [E]h[S] NEXT CLEAR %Q?ECODE [O] PAPER ▛IN ▝2`> IF L CLOSE #[T]▘ MOVE Z PAUSE DIM ] LINE &SIN STOP v DEF FN CUSTR$ % VERIFY GO SUB $2>[N] STOP REM [P] THEN STEP -3[K] CLEAR % DIM e[C]RNDSTR$ NEXT OR FORMAT NEXT STEP 'j PRINT VAL d NEXT INVERSE K IF [F]] CLEAR $[S] INK FORMAT LOAD A CLEAR DRAW RETURN <>]*. INPUT POKE LOAD MERGE [N]H*.K4ICOS LVKPLN LV2C[S]`[C]>j BRIGHT n VERIFY ▞TAB [B]COS PAPER e[U] OVER CLS OUT VERIFY [E] RETURN [I] OVER PRINT Y RESTORE IF DEF FN [N]SQR HZ PAPER MERGE ^|m[R] SAVE BORDER INVERSE RESTORE [<>s TO 0EXP [A]$k INPUT ▞[K]~[O]3[A]▛BIN 8[O]2 ACS THEN INVERSE V BEEP cACS dLN COPY wXaLN [E] DIM 0 BEEP W MOVE b CONTINUE [H]VAL 2▘0[J]CODE POINT [P]▖uvLXTAB [G]|EXP TAN b"[H]_> IF ^ OVER gQ GO SUB CLS CLOSE #,@ CLEAR CAT TO [L]Z<= OUT U LINE CHR$ STR$ b LINE PI[N]P CIRCLE + DEF FN 'BIN ▙0V[J] LINE VAL$ LIST [K] DEF FN ` PAUSE 3V RANDOMIZE ?Z ERASE K BRIGHT kX INK [H]CHR$ LPRINT MVAT -ATN ATN IF 6V PAUSE 8 READ INK X BORDER C SAVE OATTR RANDOMIZE INT k GO TO ATN '▘fRND▖[M]zb LIST COPY t_ OPEN #U GO SUB AND CIRCLE %Z<=<=`ATAB LN AND IX INK INVERSE DEF FN >=7P LINE PRINT U CLS AND COPY 7` CIRCLE ▛NOT POKE VAL [N]!<><CHR$ CLEAR 2 INK $CHR$ INK READ NOT OR #H CLEAR [J]8 LIST PAPER M FLASH [P]O VERIFY JY- MOVE OR N5 CLEAR ! GO SUB STOP FOR [E]ATN COPY a CAT mATN ▜RND_IN ▖ DRAW ▖VAL$ [B]ZjVATN J[U][O] THEN Rj< USR :&>F PAUSE ? GO SUB ▖^ CLEAR BEEP FORMAT <_CHR$ FN RESTORE <=[A]IR GO TO BRIGHT RETURN X : LLIST x[N] OVER DEF FN R'[N] LINE CHR$ DEF FN GO SUB [L]SGN F INVERSE [I]8 RETURN ]. POKE 9. LOAD :[L] CIRCLE P REM BEEP CLS MERGE [L] DEF FN TO [O]ZRX REM RNDZ INPUT PI LOAD ^[S]CHR$ TAB [J]POINT [P]▗L4[L][B] RESTORE ▜vh PAPER Nz RUN Qb> RANDOMIZE CODE >=▜QCHR$ ACS NOT CODE PAPER | AND W LPRINT BIN READ !&I[J] PAPER PLOT n<'[J]U IF O▘AT [N]8FN MOVE ]<>[R][J] NEXT OVER AS BRIGHT K7[E] LET RETURN ▗ FLASH Bc LET ▘TAB { CAT LOAD R. INVERSE WZ MERGE [C] GO SUB $ FORMAT qf▘▘▜▖©▗k[B]2y CLEAR [P][H] LOAD [R] OVER ▘TAB [K][L]x.y8. STOP CLS CHR$ 0_ LINE OW THEN OPEN #>=R[g>.Z8 VERIFY CIRCLE ;8[L]p[O]<> CONTINUE STR$ K▙ ▘X-[C]]3%[M]8[G]9 GO SUB 8 PAUSE DEF FN CLS USR Z FORMAT [D]>=CHR$ STOP ▚ OR ]l~ CONTINUE g FLASH OUT W DATA | REM VAL RESTORE OPEN # READ SGN bF[M]USR ^5[D][E] REM ▛[M] LOAD COS [G] VERIFY ATTR ▙ LINE [A](e NEXT FLASH RUN IF READ OPEN # INPUT LOAD READ INK &▛ THEN STOP JG ERASE ERASE [J] INK CODE ^ FOR CIRCLE IF READ READ ERASE o[J] IF ERASE ][G][E]//%<[N] AND E DEF FN E>[I] AND [E] STOP NEXT DRAW FLASH PLOT BRIGHT ▗R PAUSE THEN S[L] STOP INVERSE L& IF ▗ FLASH ]|h CAT LLIST FN u DIM AND j@[G]+Pn@[C]▚▙9[I][G],[I] REM BRIGHT 4 BRIGHT [C] GO TO [I]5SGN COPY USR S▗ RESTORE CLS @26 ERASE AT [T] MOVE B&NOT S FOR [M]ZQ[D][E]Q FOR THEN [M]YPI?[D][U]{/▚RND INK C CAT &TAN L`[A] INK ^<= CIRCLE N CAT PAUSE SGN RETURN e▞<>▗?LTAN FOR ^ZTAB NEXT GO SUB RTAB FLASH RESTORE X@ STEP / ERASE RND/Q▗2[R] POKE _: f? GO SUB ~[L]aINKEY$VAL POKE SQR g LIST V4 Y(O)[D][H]?L2:> LINE EFN J OVER [J] OUT [L]W BORDER [M]<=▙K[J]CHR$ PAUSE TAN [R] MOVE PRINT OUT T DRAW USR DV:[H]m NEW ' STEP g PLOT PAUSE PRINT W[P]VAL$ W GO SUB OR CHR$ [F]SQR BEEP _ CLOSE # ERASE CLOSE #O BEEP DIM Z TO NOT READ N_ LINE [I]W RESTORE FOR LINE gz SAVE [T][K]FN 4-SQR [S]1 CLEAR [N]^[M] CIRCLE [K] BORDER PIy[L] THEN CODE CHR$ [R]MFN LLIST X CIRCLE CLS C BRIGHT LLIST eTAB =CHR$ FOR THEN © THEN FORMAT FLASH OPEN # BEEP [I] GO TO ] RESTORE PRINT [K]/[A]30[P] GO SUB OUT ▝ OVER U DEF FN OVER CLS VERIFY NOT INVERSE 8%= OPEN # CLS NOT rt DIM eTAB RETURN OPEN #G▝MRND/ STEP jF PAUSE OPEN #[L] LINE PAPER [L]L[E] STOP v+INT [D] THEN ▘[C]NOT RND FOR [L]▟▝[F] FLASH NOT [F][K]TAB [M]▚INT INT RESTORE REM CLS ERASE ^"F MERGE FLASH STR$ CLOSE #J0IN % FLASH POKE POKE DRAW ▛TAN INVERSE CIRCLE RESTORE POINT RETURN BRIGHT g RESTORE %j;[A]-o6T[A]CHR$ THEN :[[[D] OVER CHR$ b[T] PAUSE THEN M OPEN # OPEN # CIRCLE Vr[L] LINE STEP M DEF FN [S]NOT MERGE /[L] LINE >=E MERGE FORMAT THEN IF /:[T] PAUSE CLEAR u[N][P]▛ATN [C] FLASH ▘EXP [N]▟[D]TAN READ OPEN # CLS INK 2 FLASH NEXT MOVE Z OPEN # CLS [R]aATTR SQR [J]Y PAPER COS [B]Q IF ▛SQR [J]AVAT DEF FN POINT Y BORDER [M] DATA NOT W8 IF BEEP [L] VERIFY Za&}8#[K][M]Ug[G] SAVE DEF FN :/[ LINE 2t[3A_▗a[N]CHR$ VERIFY d NEXT [B]Q[J][L] MERGE >=_]" LPRINT ATTR STEP FLASH QEXP [L] NEXT STEP _t DIM [T]u LIST w[F] PLOT [N][B]V[N]' OUT 1[B]kI GO TO cINKEY$TAN zV RUN ATTR [F]Vdz PAUSE FLASH u REM [T]/<=9_- DIM SQR <>ZSTR$ NEXT MOVE B.[L] IF Z FORMAT OPEN # PAUSE V*% NEXT FOR RESTORE READ ERASE k VERIFY RANDOMIZE :S''BEsHcH[K] TO kPSX[C]BIN kPkP[D]FN GO TO POKE Z^ATTR M[T]EW1 RANDOMIZE ;ATTR U NEXT UA RANDOMIZE ;ATTR M[T]E[T]EZATN CLOSE #>[D][D]X GO TO FOR CIRCLE OPEN #r GO TO FOR FORMAT FLASH b[D]COS z[D]POINT OPEN #U[N][K] ERASE SQR jCHR$ RUN ATN LOAD OVER DATA [C]X CONTINUE ! OPEN # FORMAT NOT BRIGHT LINE ATN S"1t[E] RESTORE 4 LLIST ` NEXT ;"[E] GO SUB ;''▗#[K]+&&©b[K] CONTINUE Z OPEN # FLASH NEW Q MERGE VERIFY >=Y RESTORE |USR LLIST A PAPER THEN GO TO P FLASH READ STR$ [K]c FLASH RNDk( BRIGHT MOVE FORMAT X[B]rACS STEP [T]▖M[D][T][G][G][U][L][L] PAUSE ▜ VERIFY BRIGHT Vo[P]ao> LOAD [E]m LINE 5Q+2 RETURN [A]P CLS STEP STOP TAB O PRINT ERASE OR MERGE ` GO SUB CHR$ nK[N][G]z:gK;▗Ri DEF FN V SAVE + MERGE -A[F]+ MOVE STOP SCREEN$ )S:%[J]LN 2 OPEN #<=P READ 2:STR$ COS EXP PIN READ DEF FN POINT [R]b LPRINT ASN [J]SGN p▛ ERASE [J] ERASE THEN ▘[B] LINE GO TO ATTR ▘COS LLIST NOT [R]NOT ▞ IF LLIST SIN ` DATA BEEP QCHR$ [E][D][K]X OPEN # INVERSE BEEP NEXT ▖CHR$ SIN OVER BRIGHT BEEP jR MOVE FN X STEP FLASH ABS BORDER LPRINT RETURN ▗[O] LIST ERASE a[P]/%[D]NOT [K]/Z[K]d? LLIST RESTORE LPRINT NEW CAT CLOSE #8P SAVE NOT 9| DIM [K]M DIM [LEN PAUSE PAPER NEW (▞% BRIGHT ATN X LLIST FOR INK NOT INVERSE INVERSE MOVE CHR$ { DIM CODE [L]COS [B]X[M]s FOR CODE BIN EXP CHR$ ▛▘ READ READ ▘▛POINT ASN PAUSE NEXT RND` INK RESTORE DIM CLS CLEAR NOT Q CLS PAPER BRIGHT FORMAT APIS[Q]X IF CAT [L] MERGE nT[M] NEXT CIRCLE CHR$ BEEP COS USR CLS [J]::s[L]RK RETURN 9[L]qZ[F] BORDER m PAUSE OVER z▗ PAUSE f[B] OUT uX MERGE FLASH GO SUB y[L](^ LINE BIN NOT .[B] FLASH RETURN VERIFY RETURN QSIN L OVER RETURN X>= THEN NEW PAUSE LLIST <i FOR SIN FORMAT U IF J[C][F]▘[L]>= REM ▞ PAUSE ▞VAL [K]▝[E]^bAT DATA lX▗t▗ PLOT NEXT SQR Z▗ FLASH [T]BINT INK [I] STEP SAVE Qg7 GO SUB OPEN # DIM sM LINE FLASH i<>C FORMAT x[L]_SCREEN$ INK ▝ SAVE %'▝ MOVE COPY BIN INT FORMAT PEEK SAVE VERIFY [G].X_ CIRCLE COPY ~A> LLIST THEN H STOP BIN Pe READ INK LOAD [U]2" DRAW a[O]Z.lHV[N]R DRAW n^!/V,@N8AV<=$[R]>=,[F] VERIFY FN V .F5 LLIST DEF FN W MERGE 0^ FORMAT ▗▝{ PAUSE [S] CAT ?P COPY l THEN VERIFY aABS I#R ERASE .<[C]H COPY =[H]~ RUN -/ C` REM RESTORE VERIFY USR SGN Z ERASE >=TAN e FOR # FLASH NOT [B][G]▙[H][K] NEXT STOP NEXT ▝[K][I][C][F][U]NOT [Q][S] MERGE CIRCLE OVER BEEP OUT VERIFY BEEP BEEP DEF FN OVER SQR CAT TO [T] CAT CHR$ CIRCLE FORMAT SQR CLOSE # MERGE COS PAPER INVERSE CAT OVER <> OVER VAL ATN BIN INVERSE O PLOT SGN [T]5 ERASE kjNOT 2[ THEN 0./- DRAW [J]X<=$[F][K] DEF FN INPUT OVER :SCREEN$ [F] LIST |/[M]01{ PAPER REM LINE !u STEP uh IF T1 LINE 6k CLOSE #NI FORMAT RETURN [S]%$;TAN INVERSE FLASH FLASH FORMAT V IF IN RNDCHR$ h DRAW vUSR x CAT [N][G][L][[L] RANDOMIZE INVERSE STEP U[R]>[N] BRIGHT 6~[R]3[P]PEEK READ FOR bt PAPER j CLOSE #PCHR$ R FLASH "INT wA=▟ FLASH SAVE /% NEW 6 RESTORE CLOSE # RESTORE STOP GO SUB READ a PAUSE READ ?[K]?[S][C]TAN INVERSE [I]"kPEEK [J][J]e[P] RETURN AND IF LOAD Pg> RESTORE MOVE <= INVERSE YfL(TAB )" FLASH MERGE FLASH ] FLASH FY BEEP GO SUB CONTINUE >[L]/ OVER ▝[L]POINT [L]NOT [F] GO TO IN DRAW SAVE vUSR KnSIN LET 4[L] POKE w LOAD ▟ FLASH &ABS PAPER t6>▝: FOR INK [S]( CAT > LPRINT & CIRCLE r CLOSE # AND ]Q5.6▖l MOVE ,l LIST AND :h© LOAD 1U[K] REM #7 MOVE [J] CLEAR )<>[M]C[L]M:INT u PAUSE NEW o BRIGHT QH"CHR$ SAVE RE AND CHR$ RND[E] PAUSE PLOT ▖}^CHR$ SCREEN$ CHR$ [L]VAL$ [M] RANDOMIZE JINT VAL$ CONTINUE [K] POKE [S] LIST ▘▘vSIN S[E][D]DSGN NEW f[A]USR POINT [K] MERGE REM [N] READ Q)P PRINT FOR LIST @ ERASE /P[H]x[Q]3 DRAW ;P LINE NFN COPY INPUT hQ;%SGN )NOT ▙4VAL$ [J]@luhoifpg|ih;X▛▘▙[D]SIN TAN ASN [P][R]INT RNDACS ATTR THEN |ASN VAL$ [S]TAB [S]SGN PEEK IN CLS LEN SCREEN$ [N][G] CLS ▖INKEY$[S]VAL AT MERGE SQR BEEP OVER OR VERIFY OUT COS ACS BEEP RETURN GO SUB NEW LOAD MOVE STOP SAVE RETURN _SQR BIN IF CLEAR PRINT RETURN DIM SQR INPUT gATN ▚INT ACS FOR STEP [R] READ INPUT H(33 RESTORE READ 4DZ<NOT NEW SAVE ?d READ 3&)[I]▗+[O]▖9]E CONTINUE : DRAW [C][P] DATA s OPEN # READ CLS DRAW CLS INK P FLASH X BEEP INK [E]F<>& RESTORE ACS [I]EXP R ERASE USR SR3 PAUSE R INVERSE [P][F][N][O]N[M]D]}[I] READ [D][M]yM}TAB [F][N][J]ASN GO TO Z<> CLOSE #[K]W CLS D THEN NEXT FOR /ZBIN CHR$ D CIRCLE MOVE INPUT V FORMAT ; STEP FLASH OR ERASE [U] BORDER CHR$ 9[B] PAPER 6[F]0 SAVE ERASE VERIFY INK DRAW 5▘[R]n[B]( POKE COS [M] VERIFY [R]6.D3 MERGE xZ8 OPEN #R DEF FN PRINT (ZSTR$ |B OPEN # CLOSE #S/ DIM CLEAR /i3 RESTORE FLASH [C]a GO SUB CONTINUE ▗{uTAB [N][M]▗8▛ LINE ▟▟▟SQR ERASE TAB CLS ▜SQR sVt. LET C CLS MERGE PRINT 7 STOP MERGE INK !V AND CHR$ l} FOR CAT LINE AT 3 RESTORE STR$ INVERSE FLASH NEXT POKE (NPILEN FN NOT .+.B>TV/;"/)=L"ICR[O]LEN CLS 2[F]CCHR$ FOR a REM INT FLASH "Xy;<>~Z[F] TO ▖B ERASE v^y;8 ERASE $ ERASE !a.N READ [A]VAL DATA 4▘▛|[E]"[D],[D]<EXP [J][M][E]L GO SUB NEW [S]ASN XQ GO SUB RND[A]a PAPER TAB Z; ERASE [A]▚I^GL STOP : STEP TAB X RESTORE [D] PLOT DATA a▗ PAUSE +BIN <[J][G] DEF FN :>k NEW SQR SGN b▜[J]_ IF INPUT 88 AND NEXT * DATA GO TO R▘:LN :_2 INVERSE CAT @& BEEP LEN _ FLASH ▘t LINE CLEAR PAPER bRND INPUT p[L]1▘_ MERGE ▞f INVERSE [L]COS S[T][I]▟INT INKEY$ZV LET x= GO TO OR GO SUB [D]R VERIFY z0NOT FORMAT INK IF CAT GO TO OR IF P▜}68 PLOT y PLOT gFN ▗!|▚[G] INK PRINT PAUSE !s▖ LET RESTORE <> IF IF / FORMAT LIST PAUSE bh▛h. OUT rt[Q]LTAB S BRIGHT j VERIFY MERGE OPEN #STR$ A[N]qL.|JV9/^oA^AI[L] CAT [S][F] FOR VAL$ RESTORE e[I]A[T]ySIN NEXT TAB [K] READ GO TO dLe2 MERGE ATN NOT BORDER Y_? CLS UEu2 NEXT < PLOT RESTORE W CLS IF RESTORE DATA GO SUB FLASH a PAUSE [L]n5-W INPUT [B]J INK U[O]-SGN USR TAB PAUSE nLN .VAL [G] CIRCLE 2NOT H`*RND REM CONTINUE N_[A] REM SCREEN$ RETURN iY INVERSE GO TO VERIFY n AND oY MERGE INVERSE VERIFY ~P[>$ FLASH 2 READ " CLS [L][L][D]ATN ATN FLASH SQR IF CODE CLEAR ATN [L][L][D]TAB SQR TAB [J]RND[D][L] RANDOMIZE ▜ FOR NEXT OR [N] FLASH THEN READ IN FOR POINT [P][R] FLASH FLASH BEEP FLASH NEXT READ JZ MERGE THEN STOP VERIFY R[T] THEN [K]ZATTR RESTORE AT f RUN %C[B]meI;VAL$ VAL$ [J]--s©l[K] READ [R]j FLASH FLASH RND[N][N]▞[R]TAB FLASH [^ READ FOR THEN THEN COPY FLASH THEN _[J] MOVE TAB [D] OPEN # THEN ^RND[J] GO SUB GO SUB [R]NOT NEXT OPEN # GO SUB [L][D]SQR FLASH RESTORE [J][D][D][O] INK SQR [D][F][P]ATTR SQR SQR ▛ATTR b OUT OPEN # NEXT FLASH STEP Y INK MOVE READ ▙ NEXT [T] FLASH Y FLASH FLASH NOT STOP FLASH rYNOT OUT NEXT AT R FLASH CLS [Y CLS LOAD READ [J]c[A]IME;k▝aa[K]o[J]{{ NEXT FOR e[P]ABS EXP EXP ABS CODE OPEN #{WSQR PISQR SQR OPEN #[ OPEN # THEN THEN cXEXP COS ABS NOT CLS CLS GO TO THEN READ PAUSE [S] READ +[[N] INVERSE MERGE [D]C CLEAR RUN READ READ LOAD RESTORE Z CLS ▛ THEN PRINT GO SUB <>[ INK [L]ATTR g[B][J]▟ABS CLS COS FLASH DATA [D]ATTR NEXT ▛_[J][J][J]▟K THEN READ _RNDCOS TAB MERGE NOT [D] CLS PAPER {!▝ STOP 3^[J]u/SQR V[J]AY[K]'{[A] MERGE ©# FLASH COS g GO SUB COPY READ ATTR PAPER ▛R STEP CHR$ ^ OR FLASH FLASH [T]NOT <_ OUT FLASH FLASH ATTR CHR$ 2R[T] PAPER Y[P]ATN NOT THEN EXP INVERSE dl[D]TAB LET READ SQR C COPY COPY BEEP [L]s[L]vSIN [D][L][L]t▜ READ g OUT OUT PIIN NOT FLASH V OPEN #PIIN PISQR CHR$ THEN @ OUT FOR READ FOR FLASH DATA RTAB FLASH <Y INVERSE [N] READ READ ;[K]©|#SQR [C][P]%=c[P]c© ERASE +[K]/;e READ [P][P][P] NEXT [L] NEXT READ CLS OPEN # FOR NOT [K] LLIST LINE FLASH ▛ INK 8QCODE ATN PAUSE SQR FLASH [ FLASH q READ [T] READ POKE SQR FLASH ▛[U] OUT OUT RUN COS [B] TO <= OUT CAT CAT SQR COPY ATTR [T][L] NEXT [L] CLS `PI[P] OUT PAPER rZATTR MOVE ▗ ERASE k_ OR NOT SQR SQR ERASE NOT NOT LINE FLASH R STEP OPEN #USR FLASH Y READ FLASH LIST [S]de CIRCLE INKEY$SCREEN$ INKEY$VAL$ FORMAT STOP [K] POKE ▘[L]+[H]ACS + OPEN # DATA NOT LET Q$[ CONTINUE INK S OPEN # INK ▛j CONTINUE LINE AT FCHR$ <$[q THEN NEXT ERASE SCREEN$ R FLASH THEN <>Z READ READ FOR READ CIRCLE [B]dk[D][C]l[L] FLASH >=▘& PAUSE [C][C][T][K]:▗[L] REM STOP HY$[ THEN RETURN COS LIST NOT <>ZX[L] MOVE NOT SQR 1,[ FLASH ABS FLASH SQR CLS OPEN # GO TO [N]XLEN OG OPEN #m[A]o% INVERSE INVERSE 2[K][C] POKE bZ[N] DRAW READ [R] READ CHR$ BEEP LINE FLASH Yc PAUSE INK EXP Z[J] LINE FLASH B ERASE READ LINE SAVE THEN <> OPEN # NEXT CHR$ [A]S FORMAT [J]# READ LPRINT bdSCREEN$ TAB [K] OPEN #& PAPER [B][I]c[D][T][U][L][B] MOVE SIN [D] ERASE SQR PAPER [L][R][Q]▘ READ >=# FLASH BEEP >= PAUSE CLOSE #Q FLASH ABS IN [T]NOT FOR CLOSE #NOT FLASH CODE STR$ 7ACS CIRCLE _ OPEN #<=![C]#[K]YqA[O]Ye 2[J] READ ( NEXT FLASH STR$ Q ERASE ,>=[R] INK CLS BABS ERASE NOT ; INK [L]QtPEEK [C] FLASH >=A_[M] READ LOAD [N] REM [L] RANDOMIZE [L] GO SUB GO TO LET [L][I]{VUSR `^[E][L]STR$ RUN GO SUB [B][D] CAT LIST wLN FLASH !XEXP THEN FOR VERIFY INK FLASH Y[ DRAW FORMAT USR @▛{ DATA SCREEN$ OPEN #[A] OPEN # NEXT <>^Z FLASH BRIGHT DIM S PAUSE [K]$ NEXT 2[A]LEN ATTR )▝[I] DATA CONTINUE [H][D][K]::NOT USR [T] LIST [I] RANDOMIZE FLASH ZR FORMAT COS R[U] FLASH CLS >=NOT BCHR$ ▝ CLS LOAD bX OPEN #RR FORMAT ▛ GO TO VERIFY INVERSE NOT . READ [T]▖F[E][D] MOVE RUN LET SCREEN$ [L] DIM [L]▙[H] GO SUB [O]O▜ NEXT LPRINT [D]M[L] PAUSE ` READ K{ CIRCLE ; LLIST OPEN # LET 3 CAT TO CLS <>BBSTR$ NOT IF FLASH Z CONTINUE ▘ OPEN #R LINE FLASH COPY FLASH SIN READ eb[K] READ b8 READ J#▘|8ATN l DIM p[C][K]hN3+ READ [R]>=+ IF OPEN #R BORDER MOVE FLASH Z[P] DEF FN ATN VAL NOT OR ._ BORDER THEN COS LEN AND FLASH Y[CHR$ BORDER `[K] THEN :[I]s[Q][D]ATN {▙SQR [B]<=[L]cINT STOP [D]<=[D]<>[L] LET READ bNOT ▖ CLS POINT FLASH AND OPEN #[S] OPEN #SCREEN$ FLASH SCREEN$ FLASH VAL .NOT [P]>=+U OPEN #[B]CODE RNDNOT BORDER LINE READ [H] READ INKEY$[P]cmq ERASE <=9 OPEN #SGN CLS .a=STR$ READ AND # CLEAR FLASH COPY FLASH Q FORMAT , BEEP / CLOSE #ZZD MOVE NOT B[L]SCREEN$ FLASH SCREEN$ OPEN #[S] OPEN #[R] FLASH POINT FLASH VAL$ GO TO INKEY$Fc DATA [D]][L][ySGN [O]{[O]NOT ,[H][D]AT [L] SAVE [L]NOT LET b CLS CLS CAT FLASH 3 PRINT OPEN #Zc CAT FLASH RESTORE # RESTORE FZ OPEN # GO SUB |RASN }[N]; STEP . OR RESTORE h3[S][C][D]VAL$ {EXP © STEP OVER DRAW [I]cba OPEN #j[C]k BEEP / BRIGHT T>TAN b[L] NEXT _ FOR ▗ FOR FOR NEXT Z[T] CLS OPEN #E NEXT FOR NEXT READ READ NEXT USR NOT LINE THEN CLS Z LET COS INPUT OPEN #NOT ▛▛ FOR COS SQR [S] FOR SQR FOR SQR OPEN #NOT CSQR [S][L] CLS ATTR SSCREEN$ S[T]▛ FLASH [D] GO TO READ cATTR BIN Z READ [D] CLS [T] NEXT READ FLASH ERASE ATTR < FLASH _[,# STEP CIRCLE 4USR `_ READ DATA MERGE g[K][T][T][f[K] BORDER 9 STEP BIN ▘ CLS <=g[K]' CAT CLOSE #[C] CONTINUE FORMAT g AND >. READ Z$ OUT r POKE COS ZRND AND <= NEXT STOP FBIN OR BORDER PI OUT hRCODE ERASE hZ$- STOP READ S[L][K]]|kGe RESTORE _l NEXT LET SQR LPRINT [S]5IN |[T]▘- RESTORE READ LOAD / PRINT c[L]h, OPEN #R;SCREEN$ .YNOT SGN RESTORE ATN ZEXP PAPER 8R BEEP OPEN # MERGE Z FLASH USR f NEXT CHR$ gcASN ?[A]+o#9 MERGE OR 1l[K] FOR FORMAT INVERSE w[K]c<=%b[J]?ATN Z DATA QCODE [H] ERASE bZSQR MOVE LINE AIN FOR MOVE ]LEN THEN OPEN #ASN EXP POINT CHR$ ca LOAD READ INPUT ] BORDER LPRINT [D]Gl^[L]kPOINT ;AT BORDER [B]S[G]Z RUN [P][O][L] RANDOMIZE COPY CLOSE # LOAD o% FLASH >= BEEP COS READ CODE ATN SQR ATN INK )iLEN FLASH LIST ByRkqZINKEY$Ib[N](LEN [J]_n[K]m©©{3©[I]yqiATTR [O] CLS yRND CLS [K]7> FLASH Z# OUT SQR [F] AND IF ERASE FORMAT OVER " STEP <ZNOT LOAD RUN Z++ OPEN # LINE BORDER SQR OPEN # PAUSE READ [M]dU LPRINT [D]IN USIN SQR _ STOP GSIN TAB X[B][L] CLS [L] RESTORE GO SUB xbNOT RANDOMIZE FLASH BEEP PLEN LEN ASN BIN bXBIN #ABS ERASE FLASH $ OPEN #R/ OVER COS ▟" STEP } GO TO a{W CLS [C]sB[N] BORDER CLS ▟gB[J] DATA INVERSE Wg6▘ MERGE _b[L]?PIZ LLIST [P][T] NEXT NEXT FN Z[H]BIN BORDER DIN [T]IN NOT [H] LOAD OPEN #RASN OUT INK ] FLASH REM NEXT ▝[N] CONTINUE [L]Nl^[D]e LLIST NEXT IN ▘kz[I] SAVE NEXT FORMAT [D]e[L]▛ GO SUB LLIST READ `PI READ SQR CLOSE #[K]RAT READ VAL$ FLASH PRINT Z@Bc READ Z LOAD PR" READ CLOSE #b NEXT LN [M]go/se[O]©}a}e VERIFY [P]qsd CAT DATA . READ PRINT TZ<=▟; CIRCLE G OPEN #PI_ COPY SAVE IN <=6 FLASH Z PAPER CODE Z'PI?$[E][B]AT [L]ASN , CONTINUE /Z[D] RESTORE FOR U[E]^ MERGE [U]EXP IF _ LLIST FOR SQR SQR <=` DIM DIM [R] FOR RATTR [R] READ $SQR SQR [N]ZTAB CHR$ dRRND REM ATTR c*a{W CLS
