1 CLEAR VAL "24899": CLEAR USR 0: REM 0 NEXT INVERSE !n]CODE GO SUB O GO SUB _ INVERSE VAL$ INVERSE TAB INVERSE AT INVERSE # INVERSE w COPY STR$ DEF FN _[D]#tPEEK G▙ NEW <=z POKE INVERSE [@ GO SUB ERASE IF INT CIRCLE (CODE REM DIM [L]o DATA G[Q][U]1 TO T INPUT 5▝ LPRINT LIST GO SUB N[I] IF CIRCLE ▖ACS ACS + STEP [K] RESTORE FORMAT AND PAPER ACS [Q][O] RESTORE [D] RUN USR FLASH NOT USR NOT 2 DRAW ▙USR LN [O] VERIFY INT n[R] RESTORE 6I DRAW ▝ASN EXP SCREEN$ FUCK TO LAMER JOHN!!! LAMERS MUST DIE!!!(EASY TO REMEMBER, ISN'T IT?) OK! LET'S DO IT! A-A-A!!! SHIT!!!!< FORMAT <=_> BEEP 0f MERGE VAL @^ FLASH ATN Q7P!,[O] FLASH ▘&!▚` GO TO ATN PAUSE OVER ` POKE ~ VERIFY DRAW `4 PAUSE 7EXP b?[G]f RUN POINT ▗Fw`[B]▟ RETURN g PAUSE ▝[C]<ATN rT RETURN FLASH ▟w STOP 4 LLIST !1<=[B]#VAL `>IN q[T]v<:▚ PAUSE OVER fVAL `a ERASE ` THEN "v]^ FLASH [C]▚ MERGE IN EUSR R< MOVE 3 ERASE PRINT [R] RESTORE [Q] LET SCREEN$ CLEAR ? BORDER ~ FLASH :▚USR [L] COPY 2POINT OVER ][N]`[C]1bP LPRINT ▙P`▟[H]rSTR$ CODE DIM [R]2▝[U] LET 1[U]q0W[N][H]rA[A] ERASE OVER ▝[N] LLIST ERASE ▘VAL 7GJ BORDER r0ATN ▛dB READ " PAUSE [D][D]RF▚[G] VERIFY RUN G[K] PAUSE ▝ LIST '~ FLASH ? LPRINT X▝▙ FLASH [B] LOAD OVER POINT <=a<=IN READ PAUSE l[N]_Q`S DATA | FORMAT Y OPEN # MOVE FORMAT /} MOVE GCODE LLIST ▘▜IN STOP CONTINUE 3 OVER PLCOS AT LEN MOVE A▞ MOVE [F]p DATA /CHR$ RANDOMIZE BEEP ©[A][O]]Q> MERGE PI GO SUB [J][Q]3iPOINT [Q] DIM PIUSR [H] RANDOMIZE PIUSR CODE DIM [Q][Q]09[Q]Y[Q]PaINT @9[Q][D] RANDOMIZE [R] LIST [P] RANDOMIZE [R] LIST [T] RANDOMIZE [Q]c COPY COPY <>CODE LIST RANDOMIZE PI LIST [J]CODE LET RANDOMIZE [Q]x[Q]`▖[Q]0 NEXT NOT <>PIUSR SNOT CONTINUE LIST HIN COPY LIST ©▞CODE PAUSE @ COPY COPY LIST Y[Q] LOAD NOT NOT FOR BORDER DIM [T] LPRINT w FOR RANDOMIZE [Q]|CODE LIST © CAT <>CODE ▝Y LIST [Q]|[Q] LET RUN <=▞CODE [H]▜USR 8PIPOINT CODE LIST `<>[T] LLIST !USR [I]@POINT [Q][Q]`n[H][H] BEEP FORMAT [I]W BEEP BEEP [P][O]3H RUN LET LET RANDOMIZE [Q] LIST I[Q]STR$ ▝▜▞CODE LIST [A] IF CODE ▞CODE o?© COPY ©©??[J][Q]W INPUT no INPUT [Q] DIM CODE LIST CHR$ ▞[T]USR FORMAT DIM )[Q]/ CAT NOT [I]_ DEF FN i[Q]▖O<>[R] DATA ▖[T] COPY [J]CODE ©[P]©PW INPUT DEF FN [R]H[H] LET STR$ <>[Q][A]USR USR NEXT [M]??9CODE VAL _?<082FN / LPRINT DATA FN h`q▘ NEXT LET LIST STR$ >=~ COPY 9VAL$ 9VAL$ RESTORE ' CONTINUE READ ▞[R]S>=_ DIM CODE LIST 0VAL LN a(▖@0pqxPfoo INPUT LPRINT [I] BORDER CODE LIST FORMAT PICOS CIRCLE RETURN yAT 0< LIST ▖L0>© LIST O DIM [T]C CIRCLE [D][T] LIST 3NOT [S]HCNOT RUN RUN LIST [Q]HA,X.d[R] SAVE `> CIRCLE [A]q LET DIM [T] LLIST LLIST LIST p >=00 LIST p>=QPI LIST COS LIST L LIST p!CHR$ h [Q]>= LIST P CIRCLE ▖2N LIST #[H] READ READ DIM ATTR LPRINT 9[T] LPRINT [Q]h3 READ BORDER LIST %(? THEN LPRINT FN p9CODE LPRINT YCODE USR ` Q`>=_ LIST ? LOAD LOAD USR !LN @ DIM CODE CHR$ !▖[Q] CONTINUE `iPIUSR OUT <= FORMAT USR # SAVE ©VAL $H LPRINT CODE CAT EXP [Q].▜▞PIUSR ▜f-LN /)[Q] CIRCLE ▗dPOINT [U] LPRINT <>[U]aCb>= CLOSE #POINT [U]t[Q]r<>[U] ▞[Q]z TO PAPER IN > BEEP ;9CHR$ DIM STR$ MERGE VAL @D CONTINUE PAUSE LEN PAPER USR LIST GO TO [O] FLASH ▘ RANDOMIZE FORMAT C FLASH LIST ` GO TO ATN PAUSE OVER ` POKE ~ VERIFY DRAW `4 PAUSE 7EXP b?[G]f RUN POINT ▗Fw`[B]▟ RETURN g PAUSE ▝[C]<ATN rT RETURN FLASH ▟w STOP 4 LLIST !1<=[J]A#VAL `>IN q[T]SGN 4 AND H RUN I7I7I7I7I7I0I8 BORDER IAIHWGJ BORDER HWHWHWHSHX0XHX0[H]HWHRHX0'HUHX0 CONTINUE 0HX0AHXQA[H]H'H%H([E]!)[Q]`)[Q]#; LIST 0HPp>= PXf SAVE DIM p @▝"R[U]F[S] PAUSE RANDOMIZE qpVAL P1*0▞[Q]STR$ [R]R[R]P[C]@▛[C][Q][Q][U][U][Q]PATTR VAL [R]P[U]STR$ [J]0PVAL qr LET PAUSE LIST PAUSE LIST LET ppVAL [K] RESTORE CONTINUE @[R]V(*[P] LIST _ COPY PAUSE VAL LIST I CIRCLE © LIST w NEXT VAL sJZhJ[U] MERGE [Q]RPOINT TAN REM RNDZRNDQHJ GO TO {STR$ CIRCLE @▗sATN LIST LN CAT LOAD COPY COPY VAL IEXP [D] LET POKE LIST pLEN 5@0NOT RND_ CLEAR { LIST ATN COPY BORDER CAT ( CONTINUE RUN COPY LET LIST 1@EXP P CIRCLE %[U]YlZRNDRNDRTAN ZASN . GO SUB Z[I]0▗ LIST x_ COPY CAT ▙[I]p@y TO >IN USR HO© RUN NEXT POKE NEXT 0USR VAL 0A(SPIyP COPY COPY LOAD [U])v{%[O] FORMAT `STR$ `CHR$ RESTORE LPRINT CAT COPY NEXT LIST 0[)[Q]9[A]1RNDPOINT [Q]POINT RASN [RNDP7ZSCREEN$ BZ LIST 3 LIST FN pB▗[Q]▖H`g RANDOMIZE PLOT LET 0@LN POKE 0NOT !{ OPEN # SAVE [ COPY NEXT LIST VAL CIRCLE LIST d`J<(@p[Q]▖Q(AX[S]FN ZATN ZATN Z[Q]FN [A]"[Q]p^ FOR |FN !@X`(yCODE LIST DRAW NEXT USR READ VAL 1 AND )P PRINT RND RETURN IN RUN SAVE FN LIST AP CIRCLE jNVAL FOR POKE ▖ p[Q]( LPRINT @@%@Zz RESTORE ZRND PAPER [S] SAVE ([Q]"H CAT LIST : ! [K]LN [I]&1USR "8 READ P1 AND ATTR LEN Z PRINT IN RUN SAVE 5O COPY USR >=USR FORMAT PASN _pRNDP CIRCLE RNDP[I]0Q& SAVE LN `BYZ 8>RNDZ LLIST ▖@5P' SAVE LEN 0>= REM LN 0SGN STR$ " CONTINUE ( PLOT ( PAUSE LIST a▙$R'▛ COPY COPY OUT CLS IN COPY LET pQx OR PoATTR OUT COPY CLS RETURN PRINT CLS MOVE H[Q]VAL STR$ - CONTINUE P ` @USR @USR -LN VAL ,:RND!Z%^$`[I]LN [R]>=Y[Q][Q]1(@SGN © LIST [J]_ OUT CLS COPY BORDER LIST RETURN 1U2[A]sZPI IF ASN p LPRINT x(*Q CIRCLE LIST @RNDX_AT RND MERGE LIST H[R] LPRINT CIRCLE A`; COPY >= 2 ▖j[R]ZASN Z`&xQ>=J[Q]@!h!e8HUSR CIRCLE [A]k OUT _ COPY RUN EXP RETURN s<>B c[O]JRND~[T]X CLEAR PI OUT CLS COPY RUN DRAW ©▙:`#(A@RNDW LIST >=z▗P▝'c( <H*VAL Q( RANDOMIZE SIN %Z!P%Z%@%Y CLEAR CLEAR IF [Q])[Q][I]@<(▙pk; COPY FORMAT >=_ MOVE RETURN s[A]`@[I]USR COS BRIGHT RESTORE :P4$ COPY LIST -[B]VAL H @1"X`ZATN COPY PRINT IF SIN k LET & LIST ([I]S)(▝[U][U]PLN 5 ERASE ASN ELN $▖A0 THEN [B](>=< CIRCLE E RETURN [T] BRIGHT 1STR$ p RANDOMIZE g▖NPI OVER COPY RETURN LIST 4LN 8 CLEAR ©[A]>FN LET / CONTINUE PE; IF CODE PAUSE FN e_ IF CODE COPY PK5@:USR . CLOSE #FN [C][Q]@P▝USR ▝GX FORMAT 0[U]Z[U]^[U]^TAN PAPER LIST M[I] BRND FORMAT &>= VAL K LIST N SAVE @%H R%8( LIST 1xLEN IF RANDOMIZE CLS NEXT CLS [R] SAVE ' LIST P INK 3 INPUT QRNDZ RESTORE PAUSE LET xSGN [H] CAT [Q]@ CONTINUE 7 INK RETURN r%FN @TAB [ LIST # LIST SM COPY VERIFY ▝6 LPRINT ?(!PT[Q]@ :dJJ[R]R▝K▖Ph@0J[U]E SAVE Q-9@h2 Ba@PEEK { RANDOMIZE COPY FORMAT O SAVE VAL ? GO SUB FOR LOAD FOR BORDER @ INPUT LPRINT U INK LPRINT s DEF FN P$Z% LINE STEP INPUT COPY ©IN RUN LET IF PRINT ^[F] LOAD LET Cx MOVE 1[I]*[Q][I]@[Q] LET &ATTR LIST 4(4>=jRND PAUSE [Q]; FORMAT [A]▝RNDXRNDJATN VAL @&x;[U]4 CIRCLE 0[I] ` V>=`PQ[B]A CIRCLE p[I] PRINT INPUT [L] PRINT Z LIST ULN LOAD COPY LIST Z▜ OUT RUN COPY ATN RETURN ASN PnUSR /X@[Q] SAVE ;): RESTORE IF PRINT {ASN FLASH PRINT PAUSE RANDOMIZE |PEEK _/[P]<=▞ COPY RUN ▘bLN RND@4 LPRINT p PRINT IF LIST ZVAL { SAVE :[R]/▖P1[ RUN LIST @=▖ NEXT h@USR LOAD IF [Q]O>=VAL u@RASN rRNDSRNDR LLIST x LPRINT OR !qHW SAVE @[ CIRCLE 0 REM rh>=HATN RANDOMIZE RUN > SAVE USR `%O[Q]▝SQR IF CODE C CONTINUE LET jX[Q]?!% DEF FN STR$ 8@a8pOASN CLS LIST RPIl▞[F]zSIN ZTAB ZIN COPY BEEP IN COPY z[Q]ZRNDPz LIST [B] COPY © CLEAR RESTORE qAA[C]"x@0? IF [S]n▖ 1Z(TAB ▝J LINE [R] LINE TAB k[R]LN 09Uxphk LET / LPRINT #`i SAVE !%USR W SAVE G▘[Q][ LIST hK LIST PI LIST e SAVE g CLS PRINT COPY PIp@[I][Q]© LIST RND LINE PI{ PRINT PHASN IF RANDOMIZE | CLEAR |&>IN CLEAR FORMAT 'AlEXP G CLS COPY COPY CODE COPY PRINT PAPER RNDZC^FN OVER IN PAUSE h@h▗LN >= FORMAT `!R▝Z RESTORE XTAB PAPER CODE zRNDP/ CONTINUE . FORMAT #LN "! CLS LIST {H*RNDqQ SAVE COPY OUT CAT XO LOAD ▙1i © DRAW ▗JNN▟OOCODE OUT [Q]3H;CODE LIST !:>= j▖[Q] SAVE o CLS LIST ?RND LINE TAB @(%P![R] LLIST J▜RND^ATN QeFN X@$HP[X"?Q@jCODE LIST rFN BORDER NEXT NEXT PRINT X0W LET TAN REM VAL )[Q]q▝ SAVE LIST ©[Q]PRVAL RVAL P LET LIST LET PH LET H P▚ CONTINUE 0FN LIST <▖%Z[R]Wc,X&>>=FN FORMAT $@$X[U]Z▗Z DATA ZTAN PK SAVE F▛!% SAVE 2L LLIST <[I] /PbxpH>=N?[ RETURN ?QH0B[Q]_ REM VAL TAB OVER RND~TAB RETURN CLEAR COPY CLEAR COPY COPY CLS LOAD COPY LOAD CAT GO SUB S MERGE ©H @[Q]n▖ k[Q];H2RND_ LPRINT u*RND@sh[I]▛ LIST 0^RND▟Yz[I]USR ▘HRNDJ%J▝ZRND{[R](0 "[0O▝-LN a CONTINUE @: FORMAT ▛>=DPI COPY LIST <XP5 COPY RUN [O] LIST _POINT [A]k COPY USR p=z|z PRINT SAVE LET CLS RESTORE NEXT RUN CLS RUN IF RNDQ` CIRCLE n LIST c00L SCREEN$ S▖PP [Q]XLN SIN c!=VAL [I] SAVE PjQXFN 5 PAPER PIp[A]PO CIRCLE qz8@©LN q @@ LIST [H]L THEN LIST LN PX LPRINT ▝[A]g[I]P[ COPY RETURN [U] LIST hY PRINT ▜{PI© LOAD ~ LOAD RETURN GO SUB OUT TAB CAT [P]>ABS z PRINT CLS RND@YA8@tCODE P[A]8STR$ /h X{ COPY 8 ▝Qy@T LIST [R]*FN [I] CIRCLE 0 FORMAT B[R]RNDRNDPRNDVASN R DATA [B][A]▚ CONTINUE [B]F FORMAT f[A][U]h(STR$ ▚h>=(@▞ MERGE K[Q]e>=~:IN >IN >VAL K COPY =[T]EXP ▖ CONTINUE J▟J2t RANDOMIZE NEXT RUN LOAD CAT [P]><x LET NEXT PRINT IF LLIST DSTR$ Q[K]>=[J]FN LIST [J]h10POINT CIRCLE [R]0[R]▘-ZSQR LIST eFN LLIST LVAL H qLEN [H]DPAT SAVE [B] ,[Q]@▝[G]H: RESTORE NEXT LIST m CONTINUE ,[Q]▟(/IN LIST HE}H LPRINT [R] INK pVAL$ STOP N▟+ DRAW X[R]WIN ~ CLEAR COPY LOAD [P]>x PRINT FOR FORMAT VAL VAL VAL >=Pvh▘VAL VAL >= FORMAT @Qhh R CONTINUE [I][S]>= FORMAT $Z$Z[U]'%![Q]| CIRCLE @ RESTORE zj LET wQH@ @TAB 8FN P▖(@▝(0 COPY RETURN pRND[I]O LOAD USR %@( FORMAT [M]; PRINT JJ LPRINT }y` GO TO ▖uPIO▟TAB N4 RANDOMIZE RUN OUT [U] OPEN #STR$ LN [Q][N]`VAL j$u=TAB COS ABS |L RETURN ▘[R]CHR$ [R]CHR$ [R] ERASE LPRINT [ FORMAT [U] CIRCLE / DEF FN NEXT w8ae>=` OR (Z[E]8:RNDZ[A]AT LN (PCFN STR$ POINT h LPRINT PEEK [M]t$D RANDOMIZE aP COPY DRAW |<<.86; DRAW s[T]YQ? OR 2^TAB 0 NEXT COPY COPY CODE OVER RND[M]s CLEAR © LET USR xX>=/@▝AT ▖BpINKEY$LN 00$Av FORMAT ▜▛ SAVE T 01hXTD xzPIRNDZx@ AND [I] SAVE q LIST ▖[A]HH▝▖USR ACS CONTINUE = LOAD MOVE vxz PRINT [ COPY ▟0 CAT LIST / OR ^RNDu COPY OVER CODE CAT OVER BORDER COPY NEXT LIST CHR$ 1<> FORMAT SQR h1%Q/hPq RUN COPY LLIST ATTR CIRCLE 0!FN X FORMAT `CHR$ PA@! [A] CLS SAVE 4@INKEY$[I]QBRNDW MERGE LIST ▘/h▞FN 4▜ BORDER RANDOMIZE LIST DEF FN [I]@RNDP CAT LN Qp0 OPEN # LET USR OUT INPUT MOVE RANDOMIZE pATTR R▝NOT COS POINT ▘K IF -RND LOAD [ COPY # COPY LOAD COPY BIN s LET LIST LPRINT ▝ LIST N(0y[Q]p@ LIST RANDOMIZE LET %FN _ LOAD CAT ( FORMAT pdB▖)▖USR MERGE i; LIST JRNDJ-PCODE zASN J[R]QIN !e(`H TO [I]@9 LIST LIST LIST CHR$ )[A]00 LIST LET NEXT POKE COPY COPY RANDOMIZE CODE LPRINT ?n DRAW X RNDLN [M]POINT CHR$ FN $x[J][N].VAL$ ASN [H]_ CAT O LOAD O POKE ^[P] LPRINT AND ▖▙O CAT <> NEXT [;" CAT CONTINUE 0A▖[Q] DRAW HeMPATTR STR$ MERGE 8'^ CODE hJ[R][R]▘[B] LINE USR Dq>=x▛ RANDOMIZE THEN DIM CAT DEF FN @ THEN x_ INPUT [P]^ LIST SAVE COPY DEF FN ▜[[N]ACS TAB *[Q]D▞5▖ LLIST z MOVE ?(VAL - SAVE VERIFY CONTINUE CIRCLE ▞[Q] POKE 2 LIST @CODE xASN %FN K LIST H READ 1iFN TAN h0 OVER [K] RANDOMIZE [Q]pBIN y[Q]q DIM [U]q[Q]p DIM [U]q9[Q]p▞[U]qPOINT [Q]py[U]pIINKEY$ LET 4p CIRCLE pY[U]p9INKEY$ LET px LIST 2FN QV▚▚ PLOT LET CONTINUE Ttv PLOT ▚W▖B▖@ CONTINUE 4PtPx$TQDP4d` CONTINUE DATA I[U]PPOINT [U]`i[U]P{ RANDOMIZE [U]`10▗Y[Q] LIST ▖4`4! CIRCLE @)[U]![T]▖qY[U] Pt$ ("q`mX$$ (Ry[S]rpR[I] DpUSR LET X`Xp[J][S]p9[S]0 SAVE FORMAT EXP [S]p[J][S]i[S]pY[Q]p[Q]VAL LIST ,[O] LIST [J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]FUCK TO LAMER JOHN!!! LAMERS MUST DIE!!![J][J][J][J][J][J][J][J]HELLO 2:MKHG, CB, GDC, DT, RED, KSA, AIG, BIT, ROVER, CAT, PSV, TVI..... STEP g~ DATA [N] OVER 9[O] INPUT r[U] RETURN [L] COPY *O OVER NOT [D] INPUT ▚ RETURN GO TO PRINT 6G OVER *[A] INPUT W[O] RANDOMIZE COPY ▝4 OUT STOP LIST LN [A]9 DRAW VAL BRIGHT ▗i BRIGHT [J][A]gSQR [I]▜ RANDOMIZE COPY O[P][G] AND BORDER BEEP NEW BRIGHT 4▖ OUT IF VAL O BORDER /USR 9 DRAW LN ▝ BRIGHT LEN GO SUB GO TO LOAD ▚ BORDER = DEF FN [U] RANDOMIZE DRAW BIN COPY COPY < COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY iNOT ▙ OVER COPY ©POINT BRIGHT [R] BRIGHT EXP BRIGHT LEN BRIGHT DEF FN OUT IN :*:* LOAD CLS CODE RUN | DEF FN ©LN GO TO CAT STOP MOVE ~PEEK MOVE CODE MOVE ~EXP PEEK MOVE CAT [T]~ABS [T]CODE [T]~INT [A][T] CAT u~SGN uCODE u~SQR bu CAT G DATA [P]GPEEK GIN ▖[P]bPEEK FOR ,[O] FOR ▙ FOR PEEK ABS ▙ FORMAT [O]ABS ▙SCREEN$ ▙ABS DEF FN ~IN ▙VAL$ ~[P]▙▙IN MOVE ▙[P] MOVE ▙▙aIN [T]▙[P][T]▙▙3IN u▙[P]u▙▙IN G▙t[P]G▙N▟ BEEP IN ▙[P]▟ PAUSE ▟POINT PEEK FOR ▟SGN [O] FOR ▟[G]▟{PEEK ABS ▟`[O]ABS ▟:ABS 2▟| BRIGHT DEF FN _▟TAB } COPY ATN ▟▟ CAT MOVE ▟[P] MOVE INPUT INPUT IN [T]▟[P][T] INPUT USR IN u▟[P]u INPUT [C]IN G▟[P]G INPUT dIN RND[P]TAB 6PEEK FOR I[O] FOR QPEEK ABS ▛ GO SUB [O]ABS ▛ PRINT ▛ PAPER THEN AT ~?▛AT ATTR AT ~▛AT ▛AT IN MOVE ▛AT [P] MOVE ▛AT ▛~IN [T]▛AT [P][T]▛AT ▛PIN u▛AT [P]u▛AT ▛"IN G▛[B][P]G▛k POKE IN ▛5[P]▛ AND PEEK FOR INK [O] FOR COS [I]PEEK ABS }[O]ABS W▟9 INVERSE /} DEF FN RUN CAT SAVE }©VAL PAPER 7~[H] CAT SAVE ~_ CAT READ ~w CAT BRIGHT } COPY CODE PAPER ~ OUT BRIGHT ▞ RANDOMIZE ~ACS CAT IN CAT SAVE }©LEN CAT IN CAT SAVE ~_ CAT READ ~w CAT BRIGHT ~ COPY CAT [T]~ OUT BRIGHT ▞EXP ~ASN CAT © CAT SAVE }©SIN CAT © CAT SAVE ~_ CAT READ ~w CAT BRIGHT ~ COPY CAT [T]~ OUT BRIGHT ▞y~TAN CAT ? CAT SAVE }©COS CAT ? CAT SAVE ~_ CAT READ ~w CAT BRIGHT ~ COPY CAT [T]~ OUT BRIGHT ▞9 CAT STEP ~ RUN CAT AND ~© CAT LEN ~[H] CAT SCREEN$ ~_ CAT LEN ~w CAT SCREEN$ ~ COPY CAT [T]~ OUT ▙▖ RANDOMIZE CAT M~ RUN CAT F~© CAT 1~[H] CAT *~_ CAT 1~w CAT *~ COPY CAT U~ OUT ~ RUN DEF FN AND ~© DEF FN LEN ~[H] DEF FN SCREEN$ ~_ DEF FN LEN ~w DEF FN SCREEN$ ~ COPY DEF FN MERGE ~ OVER ▙▖y DEF FN M~ RUN DEF FN F~© DEF FN 1~[H] DEF FN *~_ DEF FN 1~w DEF FN *~ COPY DEF FN U~ FLASH >▞POINT STEP COPY ~ BEEP STEP SAVE ~[P] STEP COPY ~ATN STEP SAVE ~? STEP READ ~W STEP BRIGHT ~ STEP READ ~7▟ COPY INK i STEP COPY ~ BEEP STEP SAVE ~[P] STEP COPY ~ATN STEP SAVE ~? STEP READ ~W STEP BRIGHT ~ STEP READ ~7▟ COPY INK ) STEP COPY ~ BEEP STEP SAVE ~[P] STEP COPY ~ATN STEP SAVE ~? STEP READ ~W STEP BRIGHT ~ STEP READ ~7▟ COPY CIRCLE DIM STEP COPY ~ BEEP STEP SAVE ~[P] STEP COPY ~ATN STEP SAVE ~? STEP READ ~W STEP BRIGHT ~ STEP READ ~7▟ COPY CIRCLE POINT STEP STEP ~ BEEP STEP AND ~[P] STEP LEN ~ATN STEP SCREEN$ ~? STEP LEN ~W STEP SCREEN$ ~ STEP [F]~7▟ COPY CIRCLE i STEP M~ BEEP STEP F~[P] STEP 1~ATN STEP *~? STEP 1~W STEP *~ STEP ~7▟ COPY CIRCLE ) TO STEP ~ BEEP TO AND ~[P] TO LEN ~ATN TO SCREEN$ ~? TO LEN ~W TO SCREEN$ ~ TO [F]~7▟ COPY BEEP DIM TO M~ BEEP TO F~[P] TO 1~ATN TO *~? TO 1~W TO *~ TO ~7 INK >▚6 PLOT 6 BRIGHT &▚2 NEW 6~FN ▚#▚6 AND ~VAL$ ▚INKEY$~POINT PRINT ▚ OR PAPER ~TAB PAPER RND PAPER ~SCREEN$ <= PAPER OR AT ~AT AT RNDAT ~ATTR [J]AT OR ~ DATA [F]~PEEK ~ASN P▖[F]PbPASN ",[F]""TAN POKE ▙ FORMAT [E] POKE ▙SCREEN$ ▗ POKE ACS 6▙[G]6▙▗ AND ACS ▙[G]▙▗[I]ASN PAPER ▙[F] PAPER ▙▗jASN AT ▙[F]AT ▙▗<ASN ~▙t[F]~▙N▗[F]P▟ PAUSE LPRINT ASN "▟SGN [F]"▟[G]SIN TAN POKE ▟`[E] POKE ▟:▚6▚6▟[G]6~PI@S AND ▟[G] INPUT %ASN PAPER ▟[F] PAPER INPUT ▘ RUN ASN AT ▟[F]AT INPUT ▘<>ASN ~▟[F]~ INPUT ▘[L]ASN PRND[F]PTAB ▘mASN "I[F]"Q▘?TAN POKE ▛ GO SUB [E] POKE ▛ PRINT ▘ACS 6▛AT [G]6▛AT ▝ READ ACS ▛AT [G]▛AT ▝ASN ASN PAPER ▛AT [F] PAPER ▛AT ▝▜ASN AT ▛AT [F]AT ▛AT ▝YASN ~▛[B][F]~▛k▝+ASN P▛5[F]P▛ CLEAR ASN " INK [F]"COS CAT TAN POKE }[E] POKE W[D]q} COPY 69 COPY u2SQR ▟ OVER ~▟▝X OUT CLS LOAD SAVE Z2[R]▙ BRIGHT BORDER MERGE ▟ OPEN #▘ LLIST <= NEW 2[U]▟ MOVE COPY FLASH SAVE <= NEXT 2 LOAD TO h COPY COPY INVERSE ▟') OUT [A] INK COPY INPUT COPY | VERIFY VERIFY NEW COPY >=x▘xx9 CLS FN ?xL[Q] RANDOMIZE CLS :*2.▙ RUN . RESTORE VAL RUN [Q] RANDOMIZE RUN 4 NEW CAT DRAW ▝L▖25▙ LOAD .> BRIGHT FOR LOAD !6▘9 LOAD [A]/ FLASH 6 CONTINUE 4 DATA LPRINT COPY DRAW CAT RANDOMIZE ^[A]▗ DRAW [I] SAVE LN CLS STR$ RETURN LIST LOAD 6 OVER COPY INPUT RUN COS RANDOMIZE <=:*▞__ LOAD CLS CODE RUN LOAD CAT RESTORE v.>2 FLASH ▟ LOAD )6 FOR COPY USR j?▗9 OUT [Q]') RUN FN 6 RANDOMIZE 7STR$ $ RETURN 7: COPY +|> LOAD LOAD AT COPY CODE H RETURN COPY LET <>© BRIGHT ▙ BRIGHT LOAD <> RETURN BRIGHT > LOAD 6▞ OR VAL RANDOMIZE RANDOMIZE OR LPRINT <= DRAW NEXT LOAD VAL$ RETURN CLEAR OVER COPY PI▝ LIST BEEP RETURN ▟ BRIGHT POKE 4▜ BEEP 6 COPY $ ERASE ? OUT gVAL LEN INT OUT VAL EXP OUT ATTR ATN INT OUT ABS INT AT ATTR OUT LN TAB VAL SCREEN$ CODE OUT ACS LEN < OUT gSGN ATN INT COS COS INKEY$ OUT CODE TAB INT AT INT LEN ATTR AT OUT EXP VAL TAB OUT INKEY$VAL SCREEN$ TAB : OUT yINT LEN ASN VAL INKEY$SIN COPY DATA COPY CLOSE #wVAL VAL COS OUT LN PEEK SIN INT CODE READ hTAN INT LEN LEN INKEY$ OUT SQR PEEK COS LN COS ACS AT ATN CIRCLE AT OUT OUT AT VAL SGN SGN INT [P]NOT x OUT OUT SIN PEEK LEN PEEK LN COPY INPUT w BEEP THEN <= FORMAT DEF FN STEP <= VERIFY IN POINT $ ERASE [P]USR zSGN TAB INT SQR ACS COPY k COPY [R] COPY 2 OUT 6 ERASE TO rVAL SQR INT TAB OPEN #LN EXP PI OPEN #CODE PEEK SGN TAN 9 MOVE qTAN INT INKEY$AT VAL EXP ATTR SIN SCREEN$ RNDPEEK TAN INT TAB 2 MOVE {ACS TAB VAL LEN COPY UvAT PEEK POINT INT FORMAT COS VAL PEEK SQR INPUT STOP LOAD CODE CHR$ jACS COS COS INT TAB ATN PEEK TAB SQR FN PEEK TAB INT OUT AT SCREEN$ CODE CODE VAL TAB ATTR CAT [T]zSIN INT LN PEEK ATTR COPY USR ~SQR COPY /wTAB ACS ABS SCREEN$ ATTR ACS VAL LEN 5 MOVE ~VAL LOAD INVERSE 7 OUT |ATN VAL ATTR RETURN <=}INKEY$ OR , OUT ▙H▙SQR | DEF FN ERASE >=6 MOVE ySGN ATN PEEK LEN LN INT RETURN r|COS VAL TAB RETURN ▟|<= ERASE AND 6 MOVE yABS TAB ACS LN ATN ATTR RETURN x FORMAT VAL EXP EXP OUT OUT CAT 0 MOVE yLEN INT PIATTR OUT CODE RETURN i INPUT #~ATTR VAL$ PAUSE IN POINT ~ABS RETURN LINE GO SUB OUT }LEN SQR RETURN 3 RETURN ABS VAL$ DRAW PEEK ACS OVER STOP ▟ CLEAR sATN INKEY$CODE INT TAB ERASE ATTR SCREEN$ TAB ABS VAL OUT GO SUB LN |VAL OUT STEP ' CLEAR ▚ OUT ~ATN RETURN w~INT COPY U{SGN COS SCREEN$ ABS TAB SCREEN$ {PEEK COS COS OUT LOAD U|PEEK SQR INT CLEAR ▟|TAB VAL SIN INVERSE ©}ATTR ACS LOAD j▟CHR$ vTAN AT PEEK OUT INK OUT PEEK ACS LN 0 OUT }ABS ACS RETURN 3~LEN CLEAR C RETURN DRAW {COS ATTR SQR MOVE ▟▟yPEEK COS AT VAL OUT TAB RETURN ivTAB SQR AT OUT STEP OUT TAB VAL POINT COPY ▘ RETURN [P] OR ~COS CLEAR BORDER y OUT SGN PEEK ATTR OUT PEEK COPY ~VAL DRAW DIM [N]wFN PEEK LEN LEN PEEK OUT ASN VAL DRAW DATA ~ STEP CODE Bz MOVE SGN MOVE OUT SCREEN$ CLEAR & OUT I~SGN INPUT ! STEP [M]~ OUT DRAW CIRCLE CLEAR [J]|INT TAB USR 7 OUT }ASN SCREEN$ DRAW [Q]~SGN LOAD "}ATTR VAL COPY <>VAL$ p BEEP TO LINE DEF FN STEP VERIFY OUT DEF FN TO ERASE CAT TO ERASE TO <> INVERSE jy[O][B]▛[A][B] FORMAT GO SUB ▚IN LLIST x<><> ERASE TO DEF FN ERASE STEP INPUT 2v▖[D][O][L][G][C][G]▟ FORMAT CLEAR IIN NOT w TO THEN ERASE THEN LINE ERASE DEF FN STEP INVERSE .y[C][O][E] FORMAT SIN GO SUB ▞ GO TO <i[C]▚ OUT ▞[L][K][C] OUT ▖[O]▘[G][H] OUT ▖[A][B][E][A]▖ OVER [J]* ERASE CLS RESTORE LOAD ERASE {[G]▛[K] OUT OUT rx OPEN # OUT [K][D][G] COPY ATN ~[C] FLASH RESTORE m[B]▞[B][O] OUT ▖[K][D][G][E][A][D][K][B][O]▙ COPY [D]z▚[E][O] LOAD ,yCODE TAB VAL OUT ATTR TAB OVER $~ OPEN # DRAW GO SUB DEF FN IN LIST SGN ~[G] COPY TAN r[D][P][N]▚[K] OUT ▟[A][I]▟[O][C] COPY WATTR ATTR ~ BEEP FOR INT ~AT COPY <=zINKEY$AT ATTR INT SIN COPY PLOT zSQR INT SIN VAL AT FLASH STOP $ ERASE CLS |{SIN ACS LEN LN CLS [I]}VAL LEN ABS MERGE z VERIFY OUT LEN PEEK POINT CLEAR FN ~ATTR CLS :} ERASE OUT BRIGHT ▛O RETURN |tPOINT ACS AT SCREEN$ PEEK COS OUT CODE COS PEEK INKEY$ FOR jvAT ATTR FORMAT PEEK AT SIN FORMAT CODE ATTR CLS g} TO VERIFY REM POKE zAT AT OUT ABS VAL DRAW COPY STR$ {LN INT TAN ATTR CLS SIN }SIN VAL REM BEEP } THEN VERIFY GO SUB AND ~AT LOAD }ATTR ATN DRAW LLIST ▛[L]:NOT } OUT OUT :STR$ TAB DRAW SIN IF RUN ~INKEY$TAB [C] PAPER LN yTAB INT PEEK COS ACS RND PAPER ASN |AT VAL OPEN # IF b|ACS AT OUT COPY DRAW COPY [L]SGN bSCREEN$ _ REM Y OUT LLIST ~ OUT COPY {ACS ERASE ACS LEN CLS [B][P]* ERASE PEEK |PEEK ATTR INT FLASH /SGN q|COS PEEK ABS ABS 1z3 ERASE INT CODE ]~SQR COPY ABS u OR OUT DEF FN MOVE EXP INT ABS MOVE AND <>>- ERASE EXP <>}[U][U] CAT RANDOMIZE INT l}CODE INKEY$ THEN i}ABS INKEY$ DIM OUT ▛ OPEN # AND INT REM TO SQR ABS FN [S]<>; FLASH [U][K]7 OUT LOAD k>[U]}4 OUT IN DATA IN aEXP DEF FN z FORMAT SQR SIN LN OUT BEEP [©2[I]▝O[D] OVER [U][D] INPUT r[U] RETURN [L] COPY *O OVER [J]▝ INPUT OR m RETURN W INPUT 6G OVER l© INPUT COPY © RANDOMIZE COPY ▝4 OUT STOP LIST LN [A]9 DRAW VAL BRIGHT ▗i BRIGHT [J][A]gSQR [I]▜ RANDOMIZE COPY O[P][G] AND BORDER BEEP NEW BRIGHT 4▖ OUT IF VAL O BORDER /USR 9 DRAW LN ▝ BRIGHT LEN GO SUB GO TO LOAD ▚ BORDER = DEF FN [U] RANDOMIZE DRAW BIN COPY COPY <T[O] COPY COPY COPY COPY COPY COPY COPY COPY COPY @2 OR m© OVER LLIST © INPUT r[U] RETURN [L] COPY *O OVER AND m INPUT `` RETURN G INPUT 6G OVER r INPUT COPY © RANDOMIZE COPY ▝4 OUT STOP LIST LN [A]9 DRAW VAL BRIGHT ▗i BRIGHT [J][A]gSQR E[I]▜ RANDOMIZE COPY O[P][G] AND BORDER BEEP NEW BRIGHT 4▖ OUT IF VAL O BORDER /USR 9 DRAW LN ▝ BRIGHT LEN GO SUB GO TO LOAD ▚ BORDER = DEF FN [U] RANDOMIZE DRAW BIN COPY COPY < COPY ©9 COPY ~@ COPY ©@[Q]©2/{2 COPY ~ OVER COPY INPUT RETURN RETURN COPY RETURN <>OSTR$ LN [R]STR$ < OVER <>© STEP INVERSE STEP OVER PEEK IN INVERSE <ATN ▙*: RUN 2a]©2bW[O]2){2FN ©2[F]©2<©$ RETURN ? COPY @ COPY [T]qPOINT <©{STR$ $ FORMAT VAL STR$ COPY RANDOMIZE y4 INPUT 4 INPUT 4 INPUT > CONTINUE }4 NEW COPY DRAW X CONTINUE OVER CAT CLS 4I BORDER IF CONTINUE CAT CLEAR 4X4 NEW ▚X7 STEP 6 COPY OVER b©@ LINE ▝ LPRINT [A] INK COPY INPUT COPY ?< VERIFY k NEW INVERSE R[O] INVERSE o[L] INVERSE [I] INVERSE ▞[E] INVERSE INKEY$[B]6 COPY STR$ @ LOAD [D]h OVER =© SAVE I CLEAR OUT PRINT OR U©9 RUN 4P STEP U©jR2TAB COPY BIN BIN > OVER h COPY PLOT OVER [J] COPY PLOT BRIGHT ▟ OVER ▗ CAT SAVE ~v CAT LET dA COPY PLOT INPUT COPY IN *& RUN STR$ DRAW H RANDOMIZE RUN ATN RUN & INPUT [H]u OR SAVE VAL ▝? LIST B LIST RETURN SQR INPUT [D]U[A]f[I]PIPI BEEP GO SUB VAL ▘ SAVE NVAL VERIFY VERIFY LPRINT [I]▘K[A][O]▝2Y▛ BRIGHT LOAD ! BORDER > RETURN z~ STOP INPUT z@ PRINT LN LOAD REM x BRIGHT LOAD BORDER QUSR COPY EXP LOAD BRIGHT H LOAD BRIGHT BORDER _& OVER PI CIRCLE &6 GO TO &▖ RUN BEEP NEW FLASH LOAD DATA INPUT OUT NEW PAUSE OUT GO SUB INPUT RETURN NEW 9 RUN CAT RUN INPUT SAVE NEW CHR$ BORDER RETURN BRIGHT LET RUN F RANDOMIZE RUN RUN &6 COPY COPY LOAD CLS CODE RUN LOAD RESTORE FLASH MOVE <=ABS n©} COPY ▜IN COPY ▜© COPY CLS z? COPY ▚ COPY COPY CLS COPY LOAD ~▚ LOAD CLS COPY RUN ~ LOAD CLS } COPY OUT LOAD CLS OUT RUN ~▗ LOAD CLS M COPY CAT LOAD AND | RETURN ▗@mcYOE;1' LOAD v COPY 2 LIST 2 COPY ▜ OUT 4 COPY f COPY CLS ~[P] COPY RUN ~© COPY NEXT ~_ COPY TAB l? COPY FOR ~ DEF FN RANDOMIZE | COPY © COPY P[R] COPY COPY RANDOMIZE COPY CLEAR rT FLASH ▝ COPY [T])▛ COPY [N] BORDER EXP FLASH RND FLASH CODE COPY CLS CLEAR COPY COPY NOT ABS COPY COPY ABS NOT COPY COPY ATTR <=ATTR COPY LOAD LOAD COPY ©[P] COPY COPY ? LOAD } COPY COPY SIN a}[P] BORDER COPY THEN gABS ▝ COPY SQR ▝IN COPY [L]TAB COS COPY ASN ASN THEN COPY BORDER FOR ▝ COPY LEN ASN STEP COPY NOT COPY >R[N] GO SUB LET COPY THEN COPY FOR }COS TAB COPY PEEK zATN COPY COPY ©[H] COPY NOT | BEEP SQR COPY ? BEEP m COPY SQR BEEP LOAD COPY CLEAR TAB NEXT NOT LEN POINT COS COPY GO SUB COPY ▝ COPY DATA @NOT ABS ABS COPY CODE ~NOT COPY NEXT COPY RUN ] PRINT PRINT COPY NOT TAB THEN COPY ▝ RUN ▝ COPY ABS ▝ABS COPY OUT IN STR$ COPY ▝ BORDER [J] COPY ▝IN IN COPY ▝ READ ▝ COPY ▝ CLEAR COPY c COPY OPEN #y GO SUB NEXT COPY ▝TAB COPY RUN |[B] COPY SQR @ COPY ▜x CLEAR ▝ CLEAR COPY STR$ IN ▝ COPY CLS xSTR$ COPY STR$ STR$ COPY [J] COPY THEN w LET LET COPY [N]RNDEXP COPY ?▝| COPY RANDOMIZE BORDER COPY >~▝ DRAW CONTINUE } LOAD OUT OUT @~ RUN COPY FOR CAT ©~ STEP COPY [T]z COPY [P]STR$ @[P] OUT ©| READ ▝ READ COPY [L]~ CLEAR OUT IN x▝ OUT ▝ COPY ▜ INVERSE ▜ OUT ©} CLEAR COPY LOAD © COPY g OUT © COPY LOAD }[D] GO SUB COPY o COPY w LOAD ? LOAD ©x INK ATN ▝ COPY ▞▝▞ OUT +|▝ATN CAT COPY CLS w RETURN FLASH yTAB OPEN # COPY ▝ COPY re COPY {▝ COPY LET COPY ' COPY ob DEF FN X[O] OVER RND INPUT RND RETURN RESTORE <> COPY DRAW @W[O][U][T] RETURN IF DRAW 2 GO TO CHR$ COPY PAUSE n RETURN COPY LOAD ▝U▖ BRIGHT POKE ▜N=/{<W[O]# COPY @ OVER q< PRINT x<[N]u LET LOAD LET [P] PAUSE © NEXT ' POKE BEEP POKE w PRINT PLOT [P] PLOT @ RUN PI RUN SAVE SAVE RUN SAVE O RANDOMIZE IN RANDOMIZE IF k IF SQR IF CLS O CLS CLS OPEN # CLS DRAW A DRAW { DRAW PI DRAW @ OUT DRAW CLEAR 5 CLEAR ] CLEAR CLEAR PI CLEAR <= CLEAR DIM CLEAR RETURN RETURN = RETURN S RETURN o RETURN ▗@ RETURN [K] RETURN VAL$ RETURN STR$ RETURN OPEN # RETURN READ RETURN PRINT RETURN COPY COPY COPY ) COPY 7 COPY B COPY M COPY W COPY ` COPY i COPY q COPY z RETURN INKEY$x▖ COPY COPY [E] COPY [L] CLEAR AT HINKEY$ COPY ATTR COPY VAL COPY TAN COPY LN COPY ABS COPY USR COPY @BIN COPY <= COPY LINE COPY STEP COPY FORMAT COPY OPEN # COPY MERGE COPY CIRCLE COPY PAPER COPY BRIGHT COPY OVER COPY LPRINT COPY STOP COPY READ COPY RESTORE COPY NEW COPY CONTINUE COPY DIM COPY REM COPY GO TO COPY GO SUB CLS | LOAD COPY LIST ) COPY : RETURN NEXT } RETURN RETURN > CLEAR CODE DATA = CLEAR ?@ DRAW CAT MERGE IN PAUSE | DRAW CLS CLS OUT OR CAT DATA ? CLS } IF IF LOAD ASN OUT MERGE OUT LET } RANDOMIZE RANDOMIZE CAT LOAD LOAD MERGE LOAD LET } SAVE SAVE LIST OUT LIST ~ RUN CAT LPRINT OUT OPEN # COPY LET } RUN PLOT LOAD USR COPY PI CAT LIST | PLOT PLOT PRINT OUT LOAD r COPY INKEY$ OUT LIST { PRINT PRINT POKE COPY OUT FORMAT LOAD TAN COPY INK e NEXT COPY LOAD LOAD FORMAT CODE LIST ~ PAUSE LOAD LOAD CODE MOVE COPY LIST ~ LET CODE LOAD IN LIST ▙ RETURN COPY CLS @ INVERSE CLEAR w▝ STEP ^t STEP [J]u BRIGHT BRIGHT ▝ BRIGHT INVERSE [x INPUT OUT COPY NEW NEW INVERSE Hx NEW [R] BRIGHT POINT BRIGHT RETURN LLIST COPY PLOT INVERSE xVAL PLOT INVERSE x NEW INVERSE x OVER y INPUT y RETURN PAUSE COPY OP@@ STEP y STEP y STEP y STEP u STEP INKEY$t STEP qw STEP PAUSE v STEP pv STEP u STEP ATTR t STEP #w STEP [R]v STEP v FORMAT STEP [N]w STEP w STEP [M]vSTR$ FORMAT STEP CHR$ t STEP ,u OVER vy INVERSE u@d INVERSE [R]t INVERSE (w INVERSE INKEY$v INVERSE #v2xAT u2v>5x SAVE INT w INPUT fySTR$ OUT PLOT RANDOMIZE az BRIGHT CHR$ OUT LOAD GO TO {&ySTR$ LOAD GO TO LOAD GO TO j MERGE &y INVERSE @ CLS t INVERSE [B]t INVERSE [C]w INVERSE w INVERSE [B]v6 OVER DRAW xx BORDER POKE GO SUB w OUT POKE |<= BRIGHT LOAD ;zx~VAL PLN COPY READ } PLOT CLEAR ACS COPY INKEY$z PLOT INVERSE au COPY IF }Gu SAVE L@jLN 6▗x|[Q] DIM COPY NEW ▝ LPRINT CAT CLEAR DIM CLS LPRINT 4 GO SUB LPRINT RUN BRIGHT DIM RANDOMIZE i RUN 4RND OUT RANDOMIZE © STEP CLEAR x BRIGHT [B][I]"[N] RANDOMIZE CLEAR 5b COPY PLOT "▘yxVAL OVER &{ PLOT @▝ BRIGHT [J][A]4 OR <= DRAW TAB 6 NEW 6STR$ COPY NOT BEEP ▖ CLEAR Q~ INPUT DRAW cl COPY COPY ▚NOT A BRIGHT OUT RETURN ▝ STEP [I]w BRIGHT INVERSE ATN w▜[Q]IN LOAD z[H]w BRIGHT " MOVE IF {|2 DIM w COPY VERIFY z NEW INVERSE @y COPY DEF FN x REM 0w BEEP INK COPY ;]▗XQwSQR VAL XABS CAT INPUT STR$ COPY STEP swP STEP cw[I][A] INVERSE lw BORDER PRINT INVERSE Zw COPY P COPY NEXT x" STEP DRAW x RUN VAL LOAD g%y▝ COPY STEP CLS x LOAD ~IN ~ OUT p~ COPY RANDOMIZE c~IN }LEN v[P]} ERASE vw COPY STEP POKE vP STEP DATA v COPY } GO SUB LOAD IF / FLASH v OUT u GO SUB v" OVER DRAW x SAVE I▖}~ IF OUT }~▗▙ RETURN CODE INPUT INPUT }[G] LOAD SAVE w RETURN } COPY x DEF FN RETURN ~/ COPY OUT @P[P]} RETURN COPY ~r COPY ~~b LOAD ~|kv RETURN RETURN ~Y CAT }~kIN }| RETURN IF a RANDOMIZE x OVER PLOT x INPUT @ LET PISTR$ PAUSE OUT SAVE ) DRAW OVER RANDOMIZE x BORDER REM ABS ▚SGN TCHR$ IN @ SAVE LET REM READ MERGE DEF FN USR EXP ATTR COPY [U] RETURN uy STEP PLOT x6PLN PLOT OR ~CHR$ DRAW ATTR l BEEP IN CHR$ BEEP BRIGHT CHR$ =[O]w OVER y LINE [O]wSTR$ COPY ▖ CLEAR REM w RESTORE X3x2@ THEN s GO SUB { STEP =u< COPY LPRINT ~ LPRINT t COPY 2PIrAT au STEP OPEN #t LOAD RESTORE ~ COPY AND }>uIN RESTORE u[Q]qAT GuP COPY CAT LLIST COPY <= STEP PAUSE }[I]w CLEAR LOAD GO TO [M] INVERSE INVERSE CLEAR Z| INVERSE [F]w COPY OVER | FOR STEP COPY LINE DRAW { CLEAR AND ~q OUT CONTINUE ~( LOAD CONTINUE ~ PAUSE CLEAR x| STEP u LOAD CIRCLE ~[C] COPY CLS @ LPRINT INVERSE VAL | STEP PRINT t CLEAR [P]~I OUT STR$ ~Z LOAD ACS ~5 OUT ACS ~d LOAD ACS | LLIST [I][A] RETURN RETURN | INVERSE w COPY l~ FORMAT DRAW 5 INVERSE PAUSE LOAD [F]~ CAT [F]~SIN LOAD STR$ }[R]v CLEAR /~ PAUSE OUT ] CONTINUE }INKEY$v OUT [F] COPY CAT }[L]t LOAD n~IN ATN CLEAR OR } STEP ▛ OUT GO SUB ~ FLASH LOAD ERASE ~ LINE LOAD STEP ~ACS COPY LEN @ RESTORE LOAD CHR$ } PLOT x LOAD A{ SAVE xSTR$ IF CLS q|P STEP i LOAD s STEP DIM t OR CIRCLE tCHR$ BEEP IF ▚ STEP ' COPY FOR {,uSTR$ >= COPY R}6 RUN COPY !z OR swVAL RUN COPY DIM y CLS BEEP %P STEP CIRCLE Q FOR FN |STR$ >=6>x| OVER fz CLS N~ COPY CLOSE #{ RUN < THEN s OUT DEF FN k RESTORE GO TO INK RETURN [A] INVERSE INK tX▜ RETURN s FORMAT STEP OVER t IF BORDER ERASE RANDOMIZE BO CLEAR IN FOR ~ REM OUT FOR w RESTORE [A] GO TO RESTORE GO TO [I] INVERSE DATA COPY STOP | LOAD RESTORE GO TO CLS + COPY PEEK } BORDER RANDOMIZE FOR ou RESTORE GO TO 9 OUT <= CLOSE #9[P]<=z9 LOAD <=[I] SAVE CODE @ DEF FN 9IN <= COPY NEXT rqNOT BEEP ▞NOT BEEP eNOT BEEP ONOT OUT 5 LOAD w OUT ^{ BORDER 0 BEEP PAPER COPY w}yVAL FLASH NEW | INVERSE "u COPY v} OVER & CLS OPEN # CAT LOAD ~ CLS LOAD INK ~ LOAD REM LOAD 6 IF DIM OUT @C OUT NEXT |X6P IF USR CAT Dy BEEP LIST BEEP RETURN PLOT }STR$ LOAD IF AT u RESTORE STEP dt GO TO RESTORE STEP ct GO TO CAT & COPY /}^t COPY p STEP yt OR ntCHR$ 5!s▚ STEP ABS tP IF [N]V RETURN FLASH ~▛ INPUT FLASH zSIN t OR POKE v RETURN FLASH vABS t CLS BEEP &P STEP nt OUT READ ▙ FLASH IF ~ INPUT FLASH }PIr OUT DEF FN DEF FN FLASH ~o COPY PAPER n PAPER r FORMAT STEP t▙ FLASH OUT FOR ~ AND OUT FOR PEEK FLASH ~© COPY CLS rINKEY$ LOAD PEEK RETURN FLASH RANDOMIZE RANDOMIZE ~d▙ FLASH ▙ FLASH LOAD CLS ~ COPY COPY Ev▙ FLASH OVER FLASH }LN t COPY v COPY SQR z, RETURN ~[L] LOAD S@ INK OR OVER FLASH CLEAR [C] INPUT FLASH ~ATTR IN D▙ FLASH ~ LOAD RANDOMIZE ▛▙ FLASH CAT & DEF FN FLASH COPY SGN } OR r INPUT PLOT zrv CLS BEEP SAVE FOR INT q< REM q STEP Iv OR bvCHR$ 5 REM q▚ FOR RND FLASH FN RANDOMIZE /{ INVERSE [H][v6 STEP MOVE }cv CLEAR MOVE q FORMAT q FORMAT STEP 4v IF BORDER MERGE RESTORE GO TO [A] INK CLEAR CAT FOR ~SGN OUT FOR ABS MOVE ~Y COPY STOP CLEAR [O]m MOVE }pv CLEAR CLOSE # SAVE PRINT ~J STEP CLOSE #~ INK CLEAR CLOSE #~u COPY CLS SASN CLEAR FORMAT ~ OPEN #ABS CLOSE #r[I]NOT BEEP [T]NOT BEEP ]NOT BEEP LNOT OUT 2 FOR 4{ BORDER + BEEP FLASH ▟ INK y INVERSE [E]v<[Q]q▟ INK RANDOMIZE 3~P IF BORDER RESTORE tSTR$ SAVE NOT }67 CLEAR PAUSE ~ REM CLEAR &@v▟ PAUSE COPY THEN ~P SAVE [K] COPY BIN STEP INPUT }[Q]q CLS ~# LOAD TAB } RANDOMIZE FOR NEW VERIFY n COPY 8 RUN v PLOT PLOT LN PRINT PRINT STR$ POKE COPY NEXT [Q] NEXT MERGE OR y PAUSE PAUSE ABS LET CLS ▚+ COPY ~[M] VERIFY c@~[J]▚]} COPY W PLOT Q~5 PLOT MY LIST LET LOAD COPY COPY g COPY ATTR VAL CODE CIRCLE LEN CIRCLE INT POINT ACS COS OUT BEEP CODE PEEK TAB ATTR OUT STEP VERIFY OUT ABS INKEY$ OUT ACS TAB VAL LEN SIN PEEK LEN <=} CLEAR DRAW PLOT NEW NEW <= BEEP _d COPY READ RETURN LPRINT RETURN x RETURN [ RETURN @ RETURN INK CLEAR LN CLEAR H CLEAR x RETURN LLIST DRAW @ RETURN q DRAW LOAD NEXT }, COPY IF Zk READ RETURN BORDER CLS c CLS OUT IF IN IF c CLS = IF SAVE RANDOMIZE c CLS u RANDOMIZE LOAD RANDOMIZE { INK CLEAR RANDOMIZE LOAD CAT }[I] SAVE LOAD NOT }" COPY IF @~" COPY NEXT LOAD INVERSE {= IF [P] RUN LOAD MOVE j COPY COPY PAPER [M] LPRINT S OVER TSTV BRIGHT X CIRCLE Z OVER XVT LOAD PRINT f OVER TVX BRIGHT S CLOSE #T OVER X COPY [Q] COPY OVER [B] LPRINT V OUT V OVER r CAT RANDOMIZE CODE NEXT uV OVER VV] OUT ] CAT LIST ut] OVER ]][E]X OUT XIN LOAD vX OVER XX[B][ OUT [ CAT FORMAT zy[ OVER [[ SAVE tsr COPY ▜wZ OVER VXZ BRIGHT V PAPER PLOT DIM T PAPER T CIRCLE COPY [L]k BRIGHT T DEF FN W COPY VAL INVERSE [P][ FLASH [ OUT [ OVER LOAD RANDOMIZE }[ LOAD CLS COPY <=v[E]Z OUT Z CAT ▖BzZ OVER ZZ[B]_Y OUT _xr LOAD x`Z OUT ` INPUT OPEN #▙ CLOSE #▙ CLOSE #[O] CLOSE #t OUT [G]TnnT COPY SAVE ~ LOAD POKE OUT RANDOMIZE LOAD LET OUT PRINT }uu OUT DATA PRINT INT CODE LIST {pp OUT <> LIST z}ss OUT VAL$ CODE LLIST COPY PAUSE y OVER g▙h▙b LOAD CLS COPY RUN ~h LOAD CLS t▙b[O]h CAT (}rr OUT (EXP s((IN CCCODE 9 LOAD NEXT N LOAD (o OUT [G]JOSOSVSV[VSO LOAD NEXT ~N LOAD PAUSE hZVZ]ZVQNQNLLQTQTXTX]XTQ COPY LLIST @O LOAD PAUSE t[X[`[XTOQST OUT INT CODE LINE {_ZVS LOAD PEEK ~Q CAT ABS }]b LOAD EXP COPY [R]{TW[W COPY STEP z`c`[W LOAD NEXT CODE LOAD LOAD PEEK COPY SQR ~Q INPUT .wp[P]Tnbb INPUT 1|b COPY POKE J RANDOMIZE i INPUT !|iCODE GO SUB updd INPUT |dIN FLASH j[P][P][P]s COPY OVER RND COPY [P]O ERASE COPY O COPY PLOT DATA w LOAD BORDER ~y COPY READ ~SQR READ COPY w[P] BORDER ~[L] COPY NOT ~ STEP CAT NEXT WPI[H]uO COPY ATN OUT [P]X] RETURN yTXSV[ RETURN f RETURN a~ LOAD RANDOMIZE COPY NEXT ▙ BEEP ▙ BEEP LOAD CLS OUT RUN ~<= CAT RANDOMIZE S BRIGHT ATTR RETURN w GO TO RND|TT CAT LIST GO TO [G]~T LOAD FOR z COPY OUT [P] OUT j LOAD gIN h RETURN RETURN ~QCODE RUN ~V OUT A COPY ; NEXT ▞t CAT 8VAL$ GO TO >▙ LOAD COPY RUN ~9IN RUN ~4 LOAD LOAD kCODE ▟VAL (~T,[F][K][F]x[C]Y OUT Y STEP qR{Y OVER YY[E]▙ LINE [E]JD REM Js COPY OUT [P]OO OVER O OUT CAT SAVE yOOO LOAD RANDOMIZE DIM [P] STOP SAVE GO SUB x STEP BRIGHT LN LN COPY CLS n[L][Q]▛▛g` LOAD `Q CLEAR CODE E<5}O OUT 5~ LOAD [S]~ COPY ▞ RANDOMIZE >=IN STR$ ~IN EXP OUT LEN ~ LOAD CODE [R] OUT OUT ▝IN IN CODE [P] CAT |CODE COPY x▛ATN ▟INKEY$▟INKEY$ LOAD RANDOMIZE COPY PRINT ~[G] CAT RANDOMIZE mt FORMAT COPY IN USR CLEAR COPY RETURN COPY DRAW | COPY RETURN / OUT RANDOMIZE z? NEXT LOAD NEXT PRINT LIST ~OIN RUN ~_IN LOAD ~oIN BORDER ~©IN OUT ~IN BEEP x[P] CAT RANDOMIZE OUT PLOT ~CODE OUT ABS ~IN IN NOT ~ CAT IN SQR ~ OUT LOAD READ it COPY COPY LPRINT READ GO SUB ? COPY TAB o COPY COPY PEEK ~ COPY LOAD INPUT CAT RANDOMIZE NEXT SAVE ~ OVER SAVE ~ TO SAVE /ATN COPY [Q]` BORDER [T] IF COPY IF 9© IF W COPY IF f© IF ▗ COPY IF [U]▝ IF BIN x IF POKE RETURN DRAW |▘v PAUSE [YdX LPRINT 3] POKE OPEN # COPY FLASH © READ . COPY FOR .© NEXT = COPY NEXT M© NEXT l COPY NEXT |© NEXT [L] RETURN NEXT SQR © PRINT LIST 8I DRAW CAT RANDOMIZE [F]CODE BIN OUT COPY COS COPY s COPY COPY 3 COPY K COPY [/ COPY s/ COPY / COPY [? COPY 3? COPY ? COPY O COPY _O COPY /_ COPY [P] NEXT axo COPY o COPY ?© LET INT R LOAD RANDOMIZE `W COPY © COPY ' COPY G[P] COPY 'CODE COPY _CODE COPY IN COPY [P] CAT COPY OUT COPY / LOAD COPY O PRINT COPY % COPY zIN OUT IF COPY ▟}} IF OVER ATN ~ IF OVER ATN } IF ? OUT NEXT ~O COPY CONTINUE X COPY IF ▟ASN ▙)▙ ▙▙▙▟ RANDOMIZE ▟ GO SUB ▟ DATA ▟ FLASH ▟ CAT ▟ AND ▟ABS ▟LEN ▟FN ▟[P]y COPY LPRINT LOAD DRAW CAT J OVER RESTORE ~ LLIST OVER RESTORE nNOT ATN VAL$ INPUT OVER u COPY IF COPY CLS COPY CLEAR RETURN ^} OUT RANDOMIZE LET ▘ LOAD RANDOMIZE COPY INKEY$y CAT RANDOMIZE | COPY CLEAR _ LOAD fCODE NEXT DRAW PLOT REM LLIST BRIGHT CIRCLE COPY $ COPY }IN OUT CAT F~ PRINT COPY DRAW LOAD ERASE CLS S~ GO SUB OUT x~ RESTORE COPY LOAD OUT FORMAT u NEXT ~ GO SUB COPY DRAW CODE BORDER ~ INVERSE LOAD VAL$ { DATA OUT OVER LOAD OPEN #}CODE LOAD BIN W| LPRINT BORDER RETURN IF READ IF LPRINT CAT RANDOMIZE [K] BEEP LINE MOVE [K] DEF FN LINE >=[K] MOVE LINE THEN NEXT REM TAB y IF ? CLEAR IF ? CLS COPY RANDOMIZE PAPER TAB COPY RANDOMIZE ~ COPY RUN p}IN ERASE ABS [N] TO RETURN [P] NEXT TO PRINT TO LOAD RETURN +z BORDER DRAW PAPER DRAW BEEP DEF FN !|SCREEN$ u LINE CLEAR STEP u BORDER T LINE ][P] PLOT GO SUB COPY +b CIRCLE CODE CAT | LPRINT RESTORE IF IF ~oSGN Q DRAW E RANDOMIZE CLOSE # CAT RANDOMIZE IN NEXT CAT BORDER CAT LLIST CAT FLASH INK READ INVERSE FOR COPY INK x LOAD MERGE CLS | OPEN # LIST 5v} OUT COPY FORMAT k' COPY z OUT LIST 9~ SAVE DEF FN DATA x[P] REM LOAD INVERSE } DRAW RUN VAL$ BEEP | LOAD INVERSE ~IN NEW ©CODE REM CLS OPEN # COPY COPY ©6 NEXT !g~~/w+| RETURN ` RUN STEP |~NOT @l STEP j▗ NEXT GO SUB s LOAD ~![K]~▟[d MERGE GO SUB VAL !i▗?▚l<> GO SUB LN ! CLOSE #~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT IN STEP ?▚ NEXT GO SUB ss!▟[d MERGE GO SUB VAL !>▚C[A]ABS <> GO SUB LN !▜~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]DINT gx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT [A] AND PI? COPY © MOVE COPY ▟ DRAW COPY SAVE COPY LIST COPY LPRINT COPY LPRINT COPY COPY p$>= COPY 0" LIST COPY p" TO COPY D SAVE [R]pj@s▖ RETURN COPY DRAW © COPY p$p▙@"▘p"0HpTAN USR COPY pF$P&▝© "▝?▝ ERASE p"VAL$ p$( AND D`h0HL>=p"@IN LINE PF0&▝p`p" h0$▝ppD0D $( CAT ▝4P$▝© ERASE P"▚??USR MOVE ▝@F LIST ▘ LPRINT VAL$ ▝VAL$ ▘ SAVE Q▝ TO _ RETURN [▟pjAv▖ COPY RETURN DRAW 0VAL$ ▘▚▚ TAB ▘ABS TAB ▘ COPY @TAB ▝ TAB ▝USR @TAB ▝USR pTAB ▘c`TAB TAB ▚ COPY ▝ SAVE R@TAB ▝ DRAW `TAB ▝ RETURN PTAB ▚' CAT COPY 3INT IN VAL$ ERASE COPY P"▘USR COPY ▟ RETURN DRAW SAVE LIST LPRINT ?USR ©J▟ DRAW SAVE LIST LPRINT USR ?©ppp7<p<▚ RETURN pZpZ▚ DRAW pxpx▚ SAVE p[G]p[G]$▟ LIST pTAN pTAN p CLOSE #▘ LPRINT p ERASE [B] PAUSE ▝?p LIST pxaq FORMAT ▘q,▟L▘ RETURN qJqjqj▘ DRAW ▚▖q▖▘ SAVE ▚INKEY$qINKEY$▘ LIST ▚BIN qBIN ▘ LPRINT $▛ STOP q STOP ▝USR rrr ▝< ▝Zrxr[G]rTAN ▝ CLOSE # ▝ PAUSE 2 ERASE s8▞ LIST s.rs,sjsjINKEY$sINKEY$BIN sBIN [D] STOP s STOP c STOP W CLEAR ▗ PRINT U IF SCREEN$ ▗ PRINT IF ▛ IF 8▝ REM REM POKE ▟ REM POKE ▘ CONTINUE =▝ MERGE CLOSE # CONTINUE /▙ CLOSE # CONTINUE *▜ CLOSE # CONTINUE + COPY COPY SCREEN$ 3FN FORMAT I▗FN * FORMAT U▜FN / FORMAT WFN /U MP[Q]cPU[Q]q[D]P_[Q]CODE 0 [Q]@ ▘SCREEN$ A▗IN A_k▙[Q]PEEK @▝@BIN AU▘ ©▘IN ▖ LPRINT DATA ▘SCREEN$ 1[C] COPY ©▚▘ IF }▘ IF W LPRINT U0▘ COPY BEEP ▗ PRINT IF FORMAT ▟ SCREEN$ ▚U COPY ▗ REM PRINT ERASE ▖ REM `U**SCREEN$ COPY +3▗ MERGE + REM CLOSE #▞ CLOSE #+ CONTINUE * LPRINT / COPY WM▗/SCREEN$ W MERGE k/FN W FORMAT /FN Q▗_ COPY CODE d_UCODE B_PCODE [Q]1 ▝IN ;▘▝PEEK !A▗PEEK [Q]_@▗ ▝© ▝}!X▗}@PEEK 8▟}APEEK ▘UU COPY ) STOP © COPY IF !q IF }▜▜▚ IF ▘} IF ▘B2ppp p*p4p>pHpRp/IN h MOVE X INK X LLIST ▝xkjxxP@<<kP kVAL$ DHk FORMAT @P▗▝[M]/PIp▗USR USR /<>p▚USR LPRINT LPRINT RESTORE [E]/ FOR pp RUN y FORMAT *3P COPY p RUN A]/`0▝Q@▝s [L]}[F]p LOAD p RANDOMIZE }ATN qq} INK qq} CLS ▝#▝#▝C ▝#(▝#.▝a00 RANDOMIZE { FORMAT F▝ PRINT CJBr RUN #X▞ NEXT r CLEAR ©[F]r LOAD r RANDOMIZE f▘s sACS NEXT CLEAR RESTORE CLEAR !USR INVERSE ! OR INVERSE f INVERSE n RESTORE THEN THEN THEN THEN PLOT LLIST CLEAR u CLEAR t CLEAR s CLEAR r INVERSE # INVERSE # CLEAR # CLEAR #STR$ xLEN STEP CLEAR LLIST <><><>IT'S ME AGAIN! THX 2 KILLER FOR RESTORED MY SPECCY! THX!i CLEAR DEF FN DATA BORDER v<+▜)N LOAD 6ug TO CLEAR [H]c(J GO SUB |"pTAN ▞ FOR w OVER +&▘D`SCREEN$ __ATTR [d THEN V PLOT U6 GO SUB m▖h@TN/ INT IF %Rf OVER INPUT `4▖1yU([H] OR THEN GO SUB CAT PLOT USR ▗ OVER ▜[J][D][A] RETURN RANDOMIZE 5 RANDOMIZE TAB IN `ASN f[H] PRINT CHR$ cLN %l GO TO SIN SQR AT MOVE OVER <= LIST PRINT REM zY<> FOR r BRIGHT THEN [R] BORDER BORDER VERIFY BORDER GO TO ^t CIRCLE PI READ @2v, LLIST IF ATN CIRCLE E PAPER $}Lc[J]SGN DEF FN INT GO SUB GO SUB [O]u@ LINE [D]TAN COS DRAW w_fycSCREEN$ THEN PLOT LN THEN Os>=zC#7S CLEAR I▖r[CODE NOT S▙^ REM FOR # BEEP CLS [S]iTAB [Q]▜][R] RETURN iQ^b READ /"▛Y MERGE IF mZbxTAB [U].g INVERSE #dI CAT ?X}2[T]a▞w LINE IF [L] GO SUB FOR 9ASN RND PAUSE Cn CLOSE # CAT [P]U<>POINT [O]▚w/▞ RUN K DIM >Pe NEXT 3tYf/▜M[F]{ GO SUB BIN CLOSE #R COPY 58# ERASE y8▘[L] RETURN y CONTINUE .GE!D6▟MSGN LN IN LIST wINKEY$ LLIST CLS CHR$ CONTINUE OVER H6j TO ` CLEAR [G] READ DATA }CHR$ [T]L CIRCLE y RETURN COS sTAB [Q][P]ACS LEN = FOR LPRINT MERGE CIRCLE RESTORE TO DIM tNOT INT ][A]o▝c[L] LPRINT RND<>w INK ▙[D] FOR d[I][Q] THEN ASN PAPER BORDER GO TO ▞U READ [I] CLEAR SIN CAT [R] VERIFY ;USR OR g[H] RANDOMIZE OPM OR LINE [L]<=K BEEP ABS BRIGHT <=x VERIFY ▘Nq NEXT / FLASH ACS BIN ATTR [C][F]LN >▙ FOR l!Z▗0PEEK AND INPUT LET ▖PEEK /U*K AND DRX!nOL IF :AT [A][G]F LIST u[E]b SAVE t[O]FN [G]6[F]`vw ERASE V CIRCLE G{0ACS f[K] RETURN TAN B LINE ( CIRCLE PLOT [M]j▘@VAL V OVER $BIN 2 MOVE RETURN ,SGN ▚8P LPRINT D DEF FN v CIRCLE RUN SQR f>mZ $ FLASH LET FOR ▖AT OE+y:[M] PRINT ,[F]z CLEAR [U] SAVE FORMAT [U][O]ABS LET ERASE }_ATTR `# REM FN [E][G] DIM LLIST PAUSE STR$ Q[S]PEEK FN [M]SCREEN$ SCREEN$ <>USR PLOT ▟NOT [C]▛IN zpKn!b<* INPUT }▗[S]VAL POINT "?▖]ATTR u OPEN # SAVE STOP PLOT MERGE LYB CLS m ERASE [F] LLIST . DIM IF >= MOVE YG RESTORE ▛ RUN DEF FN G PRINT INVERSE ▝ VERIFY T LINE ^i THEN SCREEN$ SCREEN$ SCREEN$ TAB [Q] THEN OR INK STEP STR$ OPEN # CLOSE # OR ERASE [Q] FORMAT ERASE CAT CLOSE # OR NOT CLOSE #<> CAT DEF FN [Q] OPEN # INK OPEN # CLOSE # OR STEP [Q]TAB [Q]SIN TAN VAL$ VAL LEN VAL$ EXP ACS DEF FN LPRINT ATN OVER INPUT VAL RETURN INKEY$PVAL 2 COPY BIN BIN [Q]WVSRSRQ▖W LOAD ▘ GO SUB NOT .[B]▗ BORDER ERASE &▞[E] OVER CIRCLE LOATTR [N]USR PAUSE OVER USR qz2D▞PI)[O]ACS 3 CLEAR PI[Z OPEN #Y SAVE GO SUB wVAL$ xE[C] RETURN STOP ▘ READ n INK THEN PI[N]INKEY$}▟[C]NOT [A][C] OPEN #^ GO SUB FLASH /[P] TO LET ATN [A][F] RANDOMIZE E RUN | LPRINT .}ATN n GO SUB CONTINUE }M-0ma:-!udFW <(Pc OVER INK EXP [F][B]▝ OVER <>[Q] DRAW p9▛ TO |NK▟?pxUSR [B]0▟RND CIRCLE NOT o RETURN DATA ,P PAUSE RETURN CLOSE # TO * COPY NEXT m,;[H] LOAD R?PNOT RANDOMIZE ! FORMAT RUN POINT TAB CHR$ rn3w AND (@g6[I]mT DATA . PAUSE [L]7 IF ym[O] LLIST [VAL KAT SSCREEN$ NOT sASN u}c=TAN USR RANDOMIZE [L]NOT m GO SUB LPRINT POKE PRINT LLIST COS AC PAUSE W DRAW [C]'Y4 OVER jiTAN ATN /[J]o MOVE <> RESTORE <▘d~d REM E RESTORE CHR$ ,P REM LPRINT RESTORE ) PAUSE CAT ATTR AND ATTR __SQR INKEY$a INVERSE THEN REM )POINT .;[T] PLOT [F] SAVE @# DEF FN [P] PRINT COS ISQR 7m STEP . DIM uM~ SAVE B NEW REM BRIGHT E REM STOP COPY MERGE [R]FN RINT C;BAD READ INK DRAW CLOSE #SCREEN$ NI INVERSE [H]L THEN ATTR SGN FN K[N] INPUT J[M] PLOT /E=▝rCOS [D] NEW CLEAR [F]/TAB ERASE SQR B NEXT LINE T] @1 SAVE g?SBIN F POKE RESTORE THEN TO T© OPEN # MERGE ATTR SGN r&jj FOR />UFN ABS ▞OM ERASE [A FOR B@@ CLOSE #v[C][U]EXP =INKEY$F REM LOAD [H]`0[M]©< CLS )VAL$ H PAUSE <INKEY$SQR ):(?[I]▟ BORDER W@ CLEAR POINT ▝IN Qzs[M] VERIFY [J]▞ PAUSE [H]SGN [H]F[S] OUT [O]y[K]v DATA IF =[F]h[E RANDOMIZE SQR !NEXP ci]NOT ,GVIIN [S] MOVE DRAW BORDER CHR$ .© IF COPY r0[U] PAUSE uj PAPER m CLEAR ( PLOT g▛>=▙LN N&▛[N]K4&YxK6INKEY$ INVERSE '[P] CIRCLE 7q AND [G]▝@[T]▙k LLIST >= CIRCLE [F] CLEAR PI[G]INT d1~7[M] GO TO MOVE ▘LN l CAT [M]W LOAD ABS BORDER [A]L[LN FN }[R] PRINT USR [M] THEN +mU BRIGHT MC8"BIN $ FOR READ NX2`s, PAPER zCHR$ RLR NEXT RETURN PAUSE :De[J] PLOT FLASH x DATA CLEAR 2m▜ GO SUB CONTINUE PLOT h BORDER [I]xBIN 9 DIM ▜^ LLIST CONTINUE RESTORE a GO TO >FO(USR ▞C4 CONTINUE [S]^Z NEW INPUT FOR CHR$ CAT ^w7ul ERASE Js OUT DATA bPI8[O] THEN [F]G4▟f▗▜o CONTINUE ▖ RANDOMIZE F FORMAT p[Q]. REM LLIST NEXT POKE w4sLN zUSR SAVE ?FN BRIGHT PLOT PAUSE POINT COPY >?w INPUT w▛%SQR CLS _Nv LIST PAUSE ▙INT PLOT OPEN # REM INKEY$TAB INK PEEK POINT RND THEN CLEAR (▟AVAL [Q]s.LN r FORMAT INKEY$ BEEP _ LPRINT BIN AND BEEP - OUT fL8O>=▚O[B]ASN j DEF FN PAUSE %, DRAW ATN BIN C[L][A]{ GO SUB [T] DIM SGN CHR$ &2 LLIST CLEAR >FN VERIFY 3RND^W[L][P]X[P]LaFN INK OPEN # PAUSE L[M]B PRINT @ DRAW RETURN (%P#ATTR LIST INKEY$a/USR NEXT [B]&[N] PLOT CODE %POINT - VERIFY k1* BRIGHT IN x% RANDOMIZE Q2 CLEAR ▙i[L]Z▚▗ LEN x)▝VAL$ CHR$ WTAN X>t CONTINUE RANDOMIZE >04MqP READ LIST FOR COPY SQR yG IF CAT [Q] SAVE LN ATN PAPER (^POINT [H]&lo FOR ▞ GO TO STOP SAVE LEN $= BORDER AT POINT '@ BEEP 3 CONTINUE OVER COPY CAT PRINT [B]!PSGN g<m CONTINUE ATTR CCODE LN 5>=;1E FLASH PAUSE POINT VABS w▙t PLOT [I]5RND DATA SCREEN$ s'ACS VAL$ OUT NEXT [P]E[N]e[K]▛ MERGE RND| AND VERIFY JACS PLOT CLS [L] RUN zg▞ STEP s_H INK OPEN #CODE M[P] GO TO THEN [R]PP CLOSE #cTAN OVER RESTORE THEN E< LLIST ,[T]INT wR RANDOMIZE VAL r8 BRIGHT LN VERIFY b[ RANDOMIZE ACS [P]i GO TO ▗U7[L] RESTORE y▞NOT { INK EXP 0[E]PEEK 7<G[S]CODE 'SIN l PLOT [O]▖. STOP NEW My<>gVAL$ TAB ~"RRNDjnyR▘b INK OPEN #[R]:Ym COPY SIN 2STR$ i INVERSE t▖`ATTR x STEP & TO rUSR Ax THEN [O]ACS NOT STR$ MOVE >= PAUSE POINT e LINE # READ RETURN [R]dTACS LIST 6 BORDER 7NB[O]xLN VERIFY | STEP INK TAB @[N]u[P]$[L] RESTORE m THEN [B][H][H] CIRCLE N▛ COPY IN v▖▘▚S LOAD VAL$ [C][H]▟▟y%▜ CLS ?9 BRIGHT "ATTR [Q]9BpSCREEN$ | DRAW ▞[L]T[D]Ov POKE 6+N@h VERIFY // ERASE RESTORE TO M CIRCLE [R] MOVE - PLOT [B]>=v; PAPER STOP xATN BLEN BIN Z LET NEW [T]JT CONTINUE LN n<FN INK i LET #[O]TAB $[J]mk/▘ ERASE USR MERGE READ ' BEEP LINE [L]PATN [A], LPRINT INT [G]eVVACS IF RUN :2 MERGE AT O LET ▗EXP INT hBRNDSQR /[H][C]▜/5@SCREEN$ RETURN LINE ▗1 CIRCLE i* BEEP 1SCREEN$ A TO r BEEP E BRIGHT ▖COS ▚i6cw8 NEXT g READ LET rPOINT LOAD W{PSQR POKE [L]>LEN SAVE iIN RESTORE CLS OUT LIST LIST FOR [R]INT _ BEEP R BEEP IN 4oK[^r INVERSE [K]+m REM [A]~k:z▚VBIN g ERASE ;TAN d RETURN [G]Y CAT n[E]SGN r CAT *BIN Y OPEN #▟q LPRINT *TAB REM ▞ DEF FN ATTR BEEP VAL / STEP COPY |CODE (▗4▚SIN [F] FORMAT _Tw[K]FN EwATN HSIN x[S]USR >=#t3> READ FU▟;t CIRCLE [O]>[J]▟3 INVERSE FOR POKE 3▜Z▗▚ DIM b[E]dWFN DEF FN [Q]M9 INK 8twV AND [T]INT A|NOT CLS SGN j PAUSE *NOT <>VAL$ =l REM CLS RANDOMIZE hFCOS NEXT Stma*=bINT MINT DATA Tgz)[S]Neq CLS V CLEAR [ READ _VAL$ [G] PLOT OPEN #CODE OPEN #[D]5R MOVE zLEN F[R]<>[G]▘pQ< COPY USR ▗▗[[K]&[I] MERGE '▜S3;> COPY c LET BEEP VAL$ BRIGHT [A] DATA ZLEN [I] PAUSE CLOSE #[A] NEXT CHR$ [D]Sdc8 DIM 1v/ LLIST //Gu<=0STR$ DRAW BIN INT ▟C PAPER DATA COS MOVE :[H]<=[O]vsC OPEN # PLOT (CODE ERASE PLOT x[E][L]▗ LET BEEP a]bACS [M] LLIST PAPER o STEP y▟[S] CIRCLE FLASH NOT X;USR CLOSE #yGCHR$ ]*ABIN q*GPATN :[G][T]61j[U]AT zXSQR [E]<> OUT RND*+▛ THEN +EXP ] OPEN #_Se4[A]PI[H] THEN mx RUN [E]x▗INKEY$PQ1 OUT *jJRNDASN 5ASN [N]CSTR$ ERASE FOR FN i INVERSE &<=:COS [G]!LEN COPY 'RNDACS USR 4[E]SgP©%J|sATTR *[I]r FOR 2 BRIGHT SCREEN$ [Q] COPY CODE [Q]2 LET ▖Ed DEF FN (9v▟9 PLOT !s CONTINUE ASN CHR$ OR LOAD BRIGHT INKEY$RND`BIN FEXP [E]r OVER * PAPER LCOS *!<> OUT SIN 4▘#""% OPEN #MO MERGE AT ATTR *[T]q. PRINT e▛Ot"*[H]Z<%:[D]r RANDOMIZE BIN '}AT 8©gSTR$ mRNDX▙ OVER MOVE RANDOMIZE j9 RUN PEEK LIST STR$ c CAT DIM TACS ▙> GO TO ATTR AT CIRCLE .AT *f POKE !; BORDER ar[G]CODE [J](#m%[P][B]e READ THEN COPY ACS BEEP "[Q]1 OPEN #[F]f[K]qSCREEN$ INKEY$>=INKEY$ CIRCLE YBIN [J] CLEAR FOR [H] VERIFY q RANDOMIZE [D]PI RESTORE ▜8 VERIFY LET B[D] RANDOMIZE OVER '[G]▗>▖,RND7 DATA sHzs OUT RUN LEc],B)jaGZFN [M]PEEK OUT 7SQR >3 CIRCLE [Q]▙ OVER 5 TO ▛ STEP =hzPIPOINT LOAD CONTINUE RETURN NEXT POKE CLS [T] POKE o[M]=<>[T]IN REM {RNDo<= LIST INT MOVE [C] INPUT BRIGHT INK CODE sPI' LINE | THEN nFN ASN 5 LLIST COPY CIRCLE f/f PLOT PAPER >= RANDOMIZE STEP ▛8[R] PAPER [L]qAT NEW [F]`[M]▛ GO TO IF P/VAL RUN "SIN ,'~D[M]e6ABS w{VAL xJs OR tGN[C]zu RETURN [U] RETURN y<=$; BRIGHT [K]▚ZsPOINT fPEEK %Q'ALN SIN LEN RESTORE FOR BEEP B DIM H[[H][D]C#+ LPRINT 1Y5 DIM D#Fu FLASH PRINT ASN LPRINT EXP FN ABS STEP IF ▛ OPEN #o#▖[P] LPRINT !CODE COS .[H]E▘s[D]0 [O]VAL$ a NEW 8▗<=CODE q# LET W8 LET ) BEEP PLOT ESQR CTSGN un7 DATA REM }SIN Y RANDOMIZE VAL$ & RUN AND CHR$ PAUSE [E] PLOT LPRINT [A]J PAPER w[P] STOP OPEN #$Q LPRINT S00d7 CONTINUE NEXT [J][n PAPER LPRINT READ jk LIST [T][L]D OR AT 8 NEW |▙SNOT POKE [J] FLASH [N] FORMAT [TACS [G]{ AND ▖:~ PRINT WPOINT STR$ @q RESTORE FORMAT j[U][N]POINT ATN _INT DRAW TAB LN BEEP ▖|4EXP X4[L]& CONTINUE [P]x{[K]STR$ &L~ THEN ][C]x OPEN #<Q#CHR$ G}▟D RESTORE ?[ATTR 1HEXP xUASN AT m[I] CLEAR E[Q] BORDER [C]Ll AND DEF FN NEXT x7syV LIST [G][D] CLS 6[K] POKE AND BEEP hWINT 5 BRIGHT GO SUB "IN t© DEF FN SQR ZQ DRAW t-EXP MERGE ] OVER SQR q[C]KOEb[Q]a[C]'[I]ASTR$ CONTINUE IN INVERSE ▖ LET B[O] PAUSE yy LLIST [E]#LEN 9[F]INT [D]'SCREEN$ pNPOINT CLEAR CHR$ B` GO TO <><#[G][C]▝ GO TO DIM DEF FN IN /1 W; INPUT [R][R]SQR CAT ▛C LINE TAB CAT hzC<=EXP _CHR$ 0x. SAVE LINE i▖[IN [N]▟ INPUT B RETURN [A]$ OUT Z}[U]LN CODE a DIM FOR N BEEP LOAD SIN NOT iVAL M RETURN j* NEW g INVERSE STEP xKy▖ COPY & DRAW m/ STEP 9[G][F] LET ERASE NEXT )AH NEXT A#FN ~|ASN yY>F LET <= LINE LEN ▘ GO TO ▚AT CODE CLEAR X[O][T] MERGE N%W[M]m LLIST AT 4r23KV[S]>= AND VAL$ SGN NEXT 9 OR [C]1}[K]FSTR$ [C] DATA s~ CLOSE # OVER DRAW ▛SQR C$# VAL 1w THEN LIST MOVE qo[L]M OPEN # GO SUB *[O]M' CAT V LPRINT BEEP PRINT LPEEK SFY9NOT STR$ OPEN #mVCHR$ USR _ IF IF FORMAT V▞>=[H] LPRINT /_VAL$ 4swAT < FOR ▚l@COS [E]▜F[L]▛J3eB▚ GO SUB [K] DRAW c[Q BORDER ,Hu! IF COPY DEF FN 8 READ C MERGE LN CODE qK INK >U IF 4E>=BSTR$ CHR$ 51 REM Q GO SUB [O][K]iZ▗ DIM J!2 OR RANDOMIZE z RESTORE h<> READ LET ACS LET # COPY . REM TO NOT ▚VCpi PAPER AT VAL$ [T]) INVERSE >=TAN [C]g DIM CIRCLE +[U]INKEY$▗4▟ POKE PASN ;v[L];DCHR$ xz▛ DEF FN BIN RANDOMIZE eca= OPEN #[S] DEF FN LN ▞ASN OPEN #?b4" RANDOMIZE [E] DATA BRIGHT &{mSQR .H INK ~ AND 3}▙ STOP [A]IN 2▙<> OUT GO SUB EXP CONTINUE I LLIST wZ|vINT ,* CLEAR LPRINT 5BIN S CLEAR SAVE CLOSE # NEW CODE LLIST }+Qx▖ FORMAT ▟V PAPER BORDER w[G]ACS INVERSE Z THEN ▙l;<=x[C] MOVE u CONTINUE ;▚▟ OUT PAUSE CIRCLE BIN ▗l} BRIGHT INPUT CONTINUE REM rPEEK |i"p AND :8 THEN [C]# PAUSE RANDOMIZE INPUT n LLIST /NSIN LET LET VERIFY FOR ERASE 7RND9WcS INPUT PAUSE CODE PAPER a[L] INPUT ▖ FLASH [H©VAL$ SAVE GO TO POKE RND_ NEW INPUT DRAW e"EXP [J]I){ IF OUT LET POKE VAL RESTORE [O]EXP c LIST BORDER aINKEY$u POKE [C]EXP ABS f MOVE EXP ~T DATA ->= GO TO [D] POKE !COS USR X TO OR ▘ LIST [N][P][Q][J]<XXy!POINT DATA BRIGHT LLIST [I] OVER DEF FN [M]RBIN i~ LPRINT }e@?[I] BRIGHT DEF FN ▝Tqi TO PI$SCREEN$ VERIFY _> FOR [O]RNDfe CLS USR ▟▙ GO SUB [J][Q]CINKEY$FN LINE , FORMAT COS <>[G]ASN SQR INVERSE BORDER LEN <>f CONTINUE V GO SUB rG PAPER POINT [R]▛INT 0 CLS CODE CLOSE #1so STEP y[R]}RND CIRCLE <' OVER P?[K] SAVE ▝VAL /UINT THEN /B STEP [R] SAVE OVER ▖R▝ c[N]TPOINT < MOVE ▚PX[N]u#USR POINT i VERIFY =P"[U] DRAW ^? DIM STOP OR STR$ LN ATN OVER ![E][U] STOP MERGE ASN ][G]a INVERSE [B]COS t'-%aFUSR READ SCREEN$ 5[H] BEEP COPY [C]▗> THEN RANDOMIZE bQ[F]CODE a LLIST ATN 5[P][R]+ FOR VERIFY IF ▞INKEY$LCODE NEXT "[K] CLS FLASH P: DATA PI LET d[A]DINT [A]USR tm INVERSE [K]VAL "X{ BORDER PLOT [USR SAVE hSCREEN$ [G],?FE:aN SAVE POKE {SGN CSQR 5INKEY$}>=L DRAW J IF 4[B]Z' BORDER RLN =vLN 8L ERASE 03 PAUSE 5USR 10ABS INKEY$ BRIGHT [M]1p< CONTINUE $<>qe;:gw OPEN #M BORDER $bLLN [K][C][E]; CLEAR ]▘[L] GO SUB ,x REM [E] INVERSE [L]7 REM fH CIRCLE CHR$ FLASH PLOT J[M]ACS [B][E]{9?RND:PEEK mf[Q]v(aATTR PI▝0[N]COS :NOT INVERSE MERGE ▟NTAB ▛PIUSR [C] PAPER DATA xFN 8 INPUT G [R]LEN [U] DIM CAT PAUSE NOT 9>=i PLOT OVER k MERGE LINE [U]q PAPER >= GO SUB [M]0ATN :-K CAT SIN lTcTAN ABS [B] FOR [H]ABS | CLEAR [T]NnI PAPER ;▞ku} VERIFY NOT C IF IF ERASE RETURN LEN ▟▛VY OR ▛.▗3<=[E]QD▞FN NEXT * OUT I OUT [H]:4POINT AT X{[L]BIN [ RETURN O[S] SAVE HSGN [C]Y▝SQR ASN N"Z▖ CLS `[K] INVERSE ACS CLOSE #Yx▜ATN CLOSE #o▗d LINE U BRIGHT p THEN ?j IF Wd RETURN p BEEP cP CAT OR SCREEN$ ▖ OUT CLOSE #s DRAW COS bm POKE [K]!"SQR MrPOINT SQR ASN c# NEXT VERIFY _[H] STOP NCODE MOVE Q. PRINT hLN wx MERGE "f▞ POKE RANDOMIZE #[M] STOP [S] INK LOAD ^S5r[N][I]NOT ERASE MERGE DEF FN ,M>=v' INVERSE FN w RETURN {h THEN /POINT RESTORE q RUN e[R] STOP RUN GO SUB [G]mLEN SCREEN$ CdVAL$ CHR$ RESTORE " GO TO COS IN PRINT IN POKE ▟SIN ▗c RESTORE CHR$ ACS ]- FLASH [L]SIN b▞NAT FORMAT .[H] OR RESTORE s RANDOMIZE o_CEXP [B][S]INKEY$[M]"J DIM jTAN xATN BEEP TAB eW8qNOT >=P▖▞Y▖LEN 5<>▘ABS M1"T<>[G]Q FOR NEXT -&fM-r CLOSE #BC[G][I]H CONTINUE C NEXT ▚H▛k BORDER STOP OVER GUSR INT ATN & BRIGHT " PAPER TAN ▛c[G]LEN POKE z[N]▘STR$ RESTORE RETURN PEEK BRIGHT VAL$ RETURN ATN xCHR$ CAT ZQATN 7PI[L] RETURN }VAL n▝▘SQR x DATA DEF FN GO SUB PAPER ATN RESTORE INT [R] BRIGHT ©v} LINE )/ CLS BIN [Q] INT OR K[O]▚PEEK IN yO CLEAR ;BIN H~[R][M] CLOSE # CIRCLE - RESTORE [K][=SIN mATN R▗[H]pTD FORMAT L~ REM ASN A*▙L DRAW [C][F]. THEN DIM 6 STEP STEP RANDOMIZE x" BRIGHT M*S POKE :<=/[G]E OUT OPEN # BORDER [M]p6eABS GO TO S]d5-J CONTINUE Q STOP LEN )W{ PAPER ▜ CLOSE # IF [R]p[J][I] OVER [C]G[P]v NEXT ACS INVERSE [F]▝▟▗ PAUSE CLOSE # OR BRIGHT 5 INPUT ▙INKEY$CHR$ DIM LOAD [K]K>RND@ CLS -@S NEW t8[U]/ PRINT <= CLEAR %ATTR i<[C] INPUT OR VAL RANDOMIZE ( 2q[R]5SQR BRIGHT Z BRIGHT © STEP v DRAW INT STR$ { INVERSE l BORDER t[E] OUT bJJ DATA ▜ RETURN CIRCLE j1▘FLEN [n`T LPRINT " RESTORE ▙CHR$ + FOR ERASE ▖y CIRCLE ▞PEEK <=l▗ COPY RANDOMIZE BEEP NEW L INVERSE ATTR 78EO FLASH WU DEF FN g BORDER EXP LPRINT USR BIN GO TO [N] RUN LLIST [R]2F LOAD ▛mb[N][E]k! CONTINUE [U]▙2 RESTORE [C] INK ▙QOUSR BORDER V%I©K CLOSE # NEXT / LET J`> THEN [D]USR ; READ ABS MERGE 2 AND DIM RUN [J]H OUT [R]ATTR CONTINUE [Q]v7▝SIN f: STOP p INVERSE ! RUN i[K] LINE ZINT ATN J CLEAR NOT NOT m DEF FN ABS ~0 LINE ;9 LINE QINKEY$^QFBIN INK Zk=B▜ GO TO *IEXP BORDER BIN VAL LN CHR$ [C]SGN [N]"[E]3ABS W6o TO x9[C]▖ GO TO INVERSE MERGE IF ASN S)Ub[R][B]wTAB ZgABS j;+w$[O]$E>}xJ+-K/[M]n LINE [L]] AND EXP '>=SCREEN$ INK / LET j PAPER ▟LEN ABS CIRCLE TAN <=e[M]VAL$ - MERGE V` CIRCLE UATN LOAD PRINT I8Q TO INT p' BRIGHT ▞EXP ATTR LINE I LLIST B[D]bILN ▙[C]▟[J] CIRCLE INPUT OUT `hmU[D] CLS - CLS CIRCLE [T]COS ERASE MERGE ATN OR IN USR '" NEXT ATN 1<AT ;4©Oh COPY OPEN #T DIM _[K]^ CLOSE #`@h8▜[D]6©[F]e BRIGHT PI©N_C LPRINT %1Y OVER EXP [A]{ AND INPUT c4<>P FORMAT [M][R] DRAW ▖/1i0TAN OVER r MOVE LOAD ERASE e REM A0 PAUSE SQR VERIFY RETURN [[N][E] IF "INT ▖+▞[L]W STEP ABS NOT DEF FN qo LIST ©>M NEXT ;C LET EXP LN ATTR -"Q FORMAT :TAN 0 VERIFY SPEEK x/ THEN YSQR & MERGE [ PLOT *,3[K]2#▗#mEXP RANDOMIZE [P]1zk PAPER LLIST w CLS l CLS GO TO DIM CLOSE #BIN )<▞PEEK SIN LEN [U][Q]d CLEAR HKg[N] RETURN 5PI©[A]PIINKEY$ FORMAT GO TO AND S[Q]z GO SUB W▗ FLASH z PRINT PP[C] CONTINUE s[M]▖ COPY ASCREEN$ ▞z] BORDER MR NEW CONTINUE SAVE LOAD [O]PEEK COS AT 9[L]+ BEEP COPY INPUT [6©vRND TO COPY INVERSE @AT DATA ' VERIFY tABS ▛?5)@ COPY NOT AT[R]86[F]ABS l▝^5 GO SUB NOT %epm~ POKE LPRINT 4sL COPY ~COS FN INT BRIGHT /o AND INVERSE CLEAR ,[R]ATN 2[E] GO TO VERIFY `vRND CAT ,; DIM GO SUB [I]▜ RETURN DATA [O]STR$ ERASE v COPY CLS b[I]] CLS OUT |PEEK MOVE INPUT IN VERIFY SQR [S][O]L BRIGHT ▘ OR ABS ! STEP , LOAD MOVE INVERSE PAUSE BIN LN PEEK L"FN 8 RESTORE J' FORMAT [F]SIN V INVERSE CATTR ▙ CAT K OPEN # DEF FN CLS Cer:N!COS ▙qP[F] STOP ▙X▗CHR$ V-▟d@ FORMAT ^ CAT *UN-▖ NEW [U]Y LIST [J]K▝POINT BEEP GO SUB bR LOAD [G] NEW SCREEN$ ▗P RETURN EXP ▝*NOT RANDOMIZE , REM D FLASH Q7SCREEN$ ▞*f LPRINT ! RETURN FLASH LN <= COPY INT ?▙ABS DRAW Y CLOSE # CLS AT ©) FLASH w[R] OPEN # MERGE n) INK ▘▜▗ DRAW U READ [K] FLASH READ CONTINUE ©/^RND DIM AND ron[O] OR F PAUSE LLIST [U]COS RNDpmjIN ▚▖ASN 3U STOP :UibABS TAN INVERSE _ MERGE ATTR |PIk% FORMAT [O]Dj6ASN ▛:HdPEEK [O] GO TO DEF FN RESTORE INPUT d ERASE BSCREEN$ FORMAT ATN LINE [M]p RUN X AND Pm$R OR PI<> INVERSE INPUT l[P]ASN <=▜▘$ ][F]LSQR :INKEY$ CONTINUE [I][O]Rf LIST >=C[F]ATTR LEN ?▘ READ ©FN RND5POINT (IN STEP [S]Pt©EXP ▘I DIM PLOT ▛R LET p~G[Q] CAT ` OPEN # CAT u PRINT SCREEN$ B OUT ▖TAB zFCHR$ [N]EXP CLS vIN SAVE m[O] PLOT READ _<=[R][N]uR INPUT PEEK FLASH [F][P]B RETURN [C]5 SAVE @p[E]$ <BZUSR STR$ INK CLS MERGE NOT DATA OPEN # CLS ▚ LLIST MOVE DIM ▙ABS [P][D]$& BORDER FLASH Y[M] PAUSE RUN CLEAR PAPER VAL INK /U CAT ▞COS R0 STOP [U] IF nj>`LN mLN OUT ABS m[s[K]LN HV▖IABS CAT PEEK <>S@AVAL$ ▜g CIRCLE VSCREEN$ [F] BRIGHT %I[K] GO SUB u PAUSE BRIGHT LEN / RUN ! DIM -CHR$ [J] INVERSE CONTINUE | CLOSE # VERIFY ATTR n▖gg)TAB SAVE VERIFY 1u DEF FN FN [S] MOVE LIST Gm< MOVE 1PEEK DEF FN _N[K]AT ▘[I]DACS NI OVER CHR$ [J] DEF FN THEN POINT TAN ATN [O] LLIST PLOT ERASE Mt}Z LINE N[G]#▗TAB 0ASN L LIST he PRINT . RUN / DATA }SCREEN$ g[H] STOP ^3[D]>=▜ COPY ERASE , POKE ▖ GO TO P▗[L] ERASE PI<F;ju[C] TO [T] AND |[D]▚[C]TAN XmUSR SGN ! LIST (COS NEW ASN ABS | INVERSE VAL z$* GO TO 2 RUN X6G LPRINT %v$@l[T]< NEXT ▗ INPUT RETURN BEEP <>U SAVE Mn;R;s[O]o STOP S+ DIM [B]BIN ATN _y INVERSE ▟8= RUN @wZ RESTORE g3[PI INPUT RANDOMIZE DEF FN OVER SCREEN$ [U]*:PdsdNOT ▜ LPRINT 0 INPUT GO SUB LET Eo READ OVAL$ ▘ DRAW Len"xVAL ▟Jgw SAVE [G]INT ABS <=CNOT NEW ABS _ FLASH {Z PAPER #▘1 FLASH OUT ACS /INT @▖-=a FOR f[U]VAL OUT RANDOMIZE iNOT LPRINT NEW LET RETURN c LPRINT THEN © INK THEN /s[N] DIM [R][F][T]^s[Q]| PRINT fYH THEN CLS d[D]TAB &1|h OR r[J] LLIST COS ( ATN m#[B]]wS▝ SAVE A<E RANDOMIZE [U]4ht[ /?ATN INKEY$a DATA # DIM ABS POKE KX%LEN t[D] LLIST ALEN INKEY$ MERGE ▖SIN LET GO TO y> OUT BIN PLOT [H] LIST eCOS COPY NEXT SAVE ^ OR ▜PEEK fNTAN HO,FN DATA PIFN ▞ CLOSE #SQR ACS P▖ RESTORE FOR ASN INK #SIN /ATTR J DRAW SCREEN$ THEN LINE DATA SIN PAUSE Vf INK [O]]+ POKE Q NEW READ D[A]USR ATN ▖[E©= STEP [L]sCODE S[erZSCREEN$ ▜|[J]$ CIRCLE FOR f RESTORE NOT ~ LOAD [S]<=COS BEEP |?▚@U FOR 1 INVERSE [A]CHR$ RESTORE LOAD [E] PRINT ( RUN i CAT CHR$ O[Q][P]▙ RETURN 5 CIRCLE f BRIGHT AT STOP MBG INK OVER >BRND LET IF SIN [K]<=]ATN +TAN ERASE DEF FN VERIFY STEP [K]© DEF FN COPY [C][O] GO SUB NEXT E▛sYSGN B GO TO [R] ERASE PLOT n]0[G]X?Y BRIGHT h[C][J]/5IN #/swV CLEAR reSGN V LIST LLIST /&Br_ CONTINUE RETURN s [F]p▘ RUN [U]TAB 0] LLIST >= STOP -jSIN DIM >=s2N[P]p LLIST ▚STR$ FN <> RESTORE Y}-+2}:[F]_<>'9<e[H] PRINT [)LEN I CAT /EXP COPY 8;r LINE #NOT STR$ PAUSE <= POKE _v=:SIN LPRINT O FOR [F][O]V RUN DEF FN OVER SCREEN$ SQR [M]%o|/e SAVE RUN OPEN #-T|<>@dOfrWPEEK [F]CODE RETURN ;© FOR SAVE STEP /[T]COS dIN CONTINUE LEN |LF?dQ<=`SGN [R]Ct COPY -VAL$ Z[M]*O OPEN #SQR ^!$xe FDE(INKEY$y RANDOMIZE RANDOMIZE W DEF FN [M] PAPER [R]* NEW PEEK 3H MOVE [O]BTAB {Mg'SIN REM QO"w CLOSE # OR ▘CHR$ IN ([T]? TO 2▖RNDq GO SUB "LN OhJCSCREEN$ LLIST t[D]/zAT FLASH q;%ACS lA_/,k[H] RUN >[Q] GO SUB EATN TF PLOT CONTINUE = STEP BRIGHT POINT CHR$ O&BIN {USR MOVE CHR$ OVER OUT VO AND uSQR GO SUB <g.▙ LOAD ?*RND RESTORE NEXT VERIFY Z} STEP MERGE FORMAT EXP TAN >[Q][Q] IF [A]$▞▜>=[S]~[S]▖▜; LPRINT [J] TO AND [P]$[R]▝ PLOT LLATTR ▚+LN f]© READ YhM~CHR$ RUN AND ▚1<>▘e)Y PLOT FLASH I;[L] BEEP [L][O]>=POINT ▗EXP 9 DIM Q ERASE ABS SGN > AND LLIST [S]<=5s FOR Y FORMAT SCREEN$ THEN tEXP BEEP kT5 RESTORE INK (TAB SQR 4yEXP [O] BORDER [U]SQR AT ACS 'zne# OPEN #INKEY$VAL nUSR DATA LET VERIFY l RESTORE 6SQR OR SGN `%h VERIFY ▟ LPRINT CODE INVERSE READ SIN <> BEEP H1<>eATTR OUT [N] AND '[S]▘Q(W?d] VERIFY LIST 1 AND ?'iRND OUT 2g PAPER [O]I OR hc CIRCLE y[C][G] RANDOMIZE BIN >M VERIFY [H]J FORMAT BORDER [Q][A]$ CONTINUE VERIFY DRAW ▚a LINE ▘3 IF )zSGN ATN [9 VERIFY 0O INVERSE n| POKE ▙ FLASH ©)/ FLASH Y CAT RNDf!| CLS # BRIGHT BRIGHT CAT 2LN ▖INT PIj) INVERSE FORMAT THEN SAVE SGN LEN ABS VAL$ [T]▖ PAUSE N3 INPUT G] PAUSE O CLEAR o LINE ySGN 5 OUT COS UY▞ LINE epe INVERSE i8eq VERIFY VAL SCREEN$ W[I]STR$ [B] LET IN T F FLASH ATN ▘©STR$ STR$ X▝+SIN z▙[vATN [B]FN [D]h NEW PRINT SQR ![H] BORDER [M]QH[N] LPRINT VAL DIM ▜ABS ? IF LPRINT : INK RNDSIN z[L]▖Gc LIST PIxW RETURN ERASE INKEY$ RETURN NOT &[N]▝0g"e<>a(CODE SCREEN$ DIM Jh( OVER [R][M]pTAN INK W`DM[O] TO L`- PLOT IN M[Q]mCHR$ W AND _▝` MOVE ▟,m<W'`▜H]F+ VERIFY 6 READ T LINE .1▘6 STOP OR FN COS jM8SIN (▗ DRAW G OPEN # LINE ."o NEW [M] MERGE ▖ PRINT GO TO THEN .uMSTR$ = LINE [ FOR +[D]>=▙PEEK NEXT OVER Cb'@qw[T]g OR ▖▚[P]c|ABS ▗+SCREEN$ [G][T] LLIST ATN 0 DATA LIST ▛SQR * OUT m| DRAW [O]nW</@ RANDOMIZE ATTR T[M] BRIGHT P"EXP CODE ▝PEEK ATN THEN wASN OPEN #B.ACS +[G]NOT DEF FN # CAT ERATN >=<><[D]ATTR 5v FOR READ _ REM [C],ACS PRINT 5 INPUT TAN CLOSE #ABS [J] THEN TAB THEN DATA [B]IN [R] MERGE ATN SQR DATA mtZ▙e$:[R]} MOVE - LINE SCREEN$ [H] STEP DATA SIN USR ▜ MOVE DEF FN CIRCLE VERIFY POINT VAL$ h2TAN (9VAL$ h AND ATTR [E]BIN SGN SIN I LOAD ACS .`= INK LOAD CIRCLE OR ? LLIST <>*2 GO SUB 2I▜J3 PAPER 1[F]@ CAT FLASH ▝ LOAD POKE INPUT GO TO ▞<>F LPRINT BRIGHT z]d FORMAT AT 7/ CLS [E]q THEN PEEK lH[P][G]EXP [K]FN AG NEW zB[N]NOT CLOSE # REM +SGN 2[T]6c OPEN #TAB e RETURN J▙[E][K][H]VAL COPY &<> FLASH ▟ OVER D▟ BORDER INPUT OPEN # INK ERNDA IF VAL$ cLEN [F]▞&4{J[E]= REM `# OR gvl[P]▝F IF sWLEN ASN / FLASH [E] DATA LOAD ▘}P[L][I][C]e BEEP 6SCREEN$ SAVE POINT W@/[P]SQR O RUN COS CLOSE #[F][P]PEEK o~<> DIM j SAVE [K]▝ LPRINT INT TO INT M RANDOMIZE DEF FN INVERSE [D]▗c▘AT M4zeZ1 THEN [U][J]Y[S]AT P[K] DATA 1 OVER z DRAW [K]▘ABS S LINE /3K CLS ACS @9SCREEN$ PEEK OR PLOT [T] PAPER VERIFY TAB n5} STOP OR [Q][D]Q_"Kb[F]INT SQR ]> MOVE VAL PAPER #PEEK OR 6,C0[C]'~mcSQR <=<-<> FLASH PRINT FACS [I]CODE Vy AND PAUSE READ MERGE [U][E] GO TO [D][J]Q[L]/ LPRINT [U] PLOT H*e[J]9h{|^[S]p FLASH INVERSE @ POKE USR 8r FORMAT [H] RETURN FOR <O6 VERIFY STOP FOR © PLOT ACS POINT BORDER DRAW 75USR MI TO OPEN #;[cJ STOP 4] LET LPRINT PLOT m,<= MERGE :[N]Q THEN PAUSE TAN /a CLS [M]r3(I{A OUT OUT ]>= OUT ASN ▚q THEN 38▗(IN CLOSE #kba~ BORDER SIN [J][N]#/ LOAD +[L]V LINE &[L]lLEN ; BEEP u{ RESTORE LN OUT Kz DEF FN PEEK b LLIST [A] SAVE RETURN R NEXT J* CONTINUE f CAT ^x{[S] INPUT lx DATA GO TO LN i INK AT %[Q]<=B]tH[N]fU CAT > VERIFY ▜INKEY$RNDIN `wINKEY$USR DRAW [H] DATA USR NEXT P REM = STEP CIRCLE [ BRIGHT ▖SCREEN$ OJ VERIFY RANDOMIZE z[G]n#q STOP N LINE ?; BORDER RUN ▖T>▖ CAT 4(!b AND DIM _▘/d DEF FN MH RUN [E] FOR LET ?[H]INKEY$ INK 8PIPEEK STOP 8 AND [F][C] FORMAT /BIN BRIGHT 1 OR v▙~JSCREEN$ <=ME? DEF FN >=I/ INK fABS xFN n TO @[VAL tPI'$[U] LLIST U*TAN Sf!USR mCOS ERASE M▜ STEP LEN TAN COPY <>^"y REM ▟[C]ATTR O BORDER _>= OPEN #% BEEP j5a INVERSE USR PEEK v'POINT 6[F]CODE LPRINT CHR$ NEW ABS R FORMAT LIST [U]?TAB ^▘VAL ;POINT RNDMt!u BRIGHT P;BIN NACS SIN RANDOMIZE TAB 3<= DIM 2M DEF FN a'W REM INPUT [F]8 MOVE cc$i[B]]cM NEXT h CLEAR SAVE MOVE DAT [U]c IF mjCHR$ <=@I[M]▞ABS BORDER Z|▛$*M LLIST aqSTR$ n3 OPEN # OUT >NOT [H]R FOR INK CAT [I] AND <=SQR BORDER R[E][N]1ACS o LPRINT <=1▛"huF[B][T] OPEN #)(LATN r BRIGHT }[J] STOP ACS IF VR'E> MOVE FN YsVy©DW NEXT [G] MOVE [N]F~EXP QVAL W'P LPRINT $ THEN AND tR▖O#ySCREEN$ LN PRINT (5[R]{ DIM <=v MOVE R THEN <=FATTR ESIN CODE $woATTR SGN /NOT HOLN CLOSE # FLASH OUT INT INPUT ^ LOAD BEEP THEN vSCREEN$ ▙j▖SGN LOAD ▚ PAPER ~ BRIGHT [K] POKE OPEN #A INK V58 MOVE Y CONTINUE COS ▜ STEP B[F]▝p>={▗NU. FORMAT I LLIST [P]INKEY$&d[S]z[E] FORMAT l GO TO ▗ PLOT ATN INPUT [C]VAL$ SQR STOP +QR OUT )ASN y▚ FOR [B]▚VAL$ INVERSE TO SIN ]!ATTR R PLOT d>=cS LOAD BIN [D]$ASN C COPY VAL$ ▟_TAB IN REM z<>ASN LINE <= GO SUB CHR$ [R] GO SUB VERIFY <[A]LN CHR$ p© PLOT VAL f[J]WLN [T] FLASH 7=[[S]ZrJE COPY g BORDER DIM PLOT y(i# OVER POINT DIM YL NEW ~_ AND DATA THEN "RRND CLEAR ^ TO Y<**IN fVAL BEEP RUN o=U RESTORE LET NOT R▜ LIST AND INVERSE % PRINT STEP N STEP .STR$ 8 BORDER I'[J]zATN { LIST STOP 6 MERGE ;0ATTR vlINKEY$N▘▟* OUT e9 INK 1 GO TO ▟[D]CODE f,P>=V OPEN # CLS RND COPY !! LIST RUN STR$ AT Y[N][D]x[U]ATTR R^ POKE Z RETURN FN [D]` OR TO MERGE [S]SGN [F]FN w CONTINUE GO TO <OT DIM yIN OUT _[B][I]U]L<JCHR$ e DATA FN STEP z NEXT 9▘ CLOSE #-P THEN DLR"SIN USR NxC[R]1y STEP |sE BEEP LEN B▖] FORMAT MOVE [H]9*[O]9▘[B] PLOT tJT)[D]/3▘A▗ INK |a[Q][R] NEW Ww^fS~▛[Q]wh NEW [D]:_^VAL [H] SAVE Hi NEXT CG&▝ LLIST INT { LET k'▜ PRINT VAL ▛ CLEAR ▜&[A]e LOAD ACS DATA ^ATN RNDRND RANDOMIZE IF LINE q,[N]IN DEF FN V PRINT i#[D]viDIN B CAT >m OR <_`fTAN " D>= RANDOMIZE PRINT KT OPEN #_-%wt` CAT USR ^ NEW hJ INK n[O]▗I RANDOMIZE v&CHR$ LET Q FORMAT [O] PLOT p=rUSR [A]gL▗rzw REM CLS ZTAB 7▝TAN PRINT PEEK FN { INPUT INPUT LN J[B]<[I]CODE CONTINUE TAN [C]▛ATTR [Q] LOAD POKE B5hFN VERIFY GO SUB IF ▚ POKE SAVE RESTORE OUT FORMAT CODE [Q] DATA / OVER MPOINT j] GO TO CODE GO SUB TAB [U]C FLASH SIN <> DIM ym▖INKEY$[T]8U@FN 5_JB5G RESTORE [I] DEF FN <> LET w- REM v▜NOT 29 OUT 2[k`4v CLS READ PAPER EXP USR m OPEN #▚ CLS CODE CAT REM BIN RUN N,PEEK ▙J STEP OPEN #NOT thdCHR$ E OR INKEY$▖} AND LPRINT ) MOVE REM jxSQR ▚ SAVE ] LIST / READ +▙▖Gn CLOSE #[S]STR$ MOVE N▙' RETURN STEP POINT DIM EXP PRINT NDTAB EXP t GO SUB B[O] STEP ASN STR$ INVERSE za; DIM INT TO ! MERGE #[D] PLOT Z0W"5^n REM # DATA RANDOMIZE &PEEK READ AND [B] READ T GO SUB RND[|,<>xS IF Z LIST }/▘`/NOT TO }[L][R] LPRINT &INKEY$FN [I]dRNDCODE ABS CLOSE #STR$ LPRINT J STEP !El PLOT |A▚Y SAVE aU[H]P RETURN [I] OVER 3|F MERGE ▚ AND PAUSE t, MOVE SIN d DRAW [K]SGN BORDER 0"KATTR DEF FN [J]([E]USR RUN .STR$ [D] RUN LIST LOAD i[T]ATTR PAUSE Z$ATN hRlf"h'cqh-LN FORMAT ▖n#Z+jgqq@STR$ SCREEN$ 6▞S PAUSE <=[O] RETURN [L]▜[J][A][F]▙g[I]ABS [J]VK VERIFY "[Q]INT COPY [D]INKEY$fBIN pCODE g[F]w VERIFY FORMAT C LLIST DATA zxlATTR ]: THEN j DATA BRIGHT ▙NSGN POINT [K][S]<=[M] LLIST IN <=[D] DATA SIN VAL$ pSTR$ PEEK ▚ MOVE RESTORE ▝ MERGE DATA [D]CC PAUSE INK DEF FN L STEP " CLS <=SCREEN$ PQ OPEN #SCOS SIN FORMAT #ZTAN -[I]^% DRAW b`{FIACS MERGE Z-_SIN J<= BORDER INK LPRINT ▜SIN LIST TO DEF FN LN COPY STEP USR BIN DEF FN Q CLOSE #[P]COS COPY LOAD -:+ DATA oPOINT >u$3'b}s▟ BRIGHT C OVER 3T IF laYaH@[E]TAB INPUT INVERSE ©C▜▜gZ![J]/w RESTORE 0d[Q]▛! VERIFY 7LEN AND [B] INPUT ©[R]V LET TO xt-@1D LLIST ;s IF D:@VAL$ POINT GzG[M]4]8+OY LPRINT DRAW DEF FN [S]POINT 0/[F]*[U] PAPER INVERSE /(TAN INPUT I-[U][T]l CLS FORMAT POKE ▗[U]VAL$ ~? PRINT w LPRINT INVERSE MERGE PAUSE Z[H] IF =EXP u[L];8 NEXT INT ASN [J]▟ POKE Vp[E]▚.[M][N][I][F] PAPER [I] CAT uQU[N] OPEN #ACS 4V<>SCREEN$ ,SQR ZASN 8 PAPER DIM 8Mh0vQ LET SGN POINT x[Q]8 SAVE 3CHR$ L RUN STR$ -p THEN [G] CLOSE #LN BO[K] CIRCLE [I]^ CLEAR POKE { GO TO LPRINT 5[G] LET [A]e CLS Q LOAD K REM MERGE NPEEK {[O]© LIST [P]IN 'p OUT x VERIFY FORMAT PEEK yLEN POKE <5 PLOT @ LINE [K][G]ckP}TAN i TO PIx/ BORDER 1[T][T]]I[Q]ASN x PAUSE ERASE ~[P]▖: DATA FLASH T#[D]INT LET 8 CAT NEW SCREEN$ [I] PAPER Ji[L]ATN OPEN #PIASN [qPEEK _|D"V!AT W LLIST ▛ CIRCLE RANDOMIZE ?>LN U MOVE qH[ VERIFY 3/ DRAW BORDER f'H CLS ATN EXP eSTR$ lK▗V LPRINT [K]G▖ STEP INKEY$ DEF FN LOAD 6▛ AND _▘ATN ACS [T]VAL LEN BORDER BRIGHT PEEK ./h▞! GO SUB SIN "▞ LLIST ▝[M]IN [G] OR PEEK CIRCLE ; OUT ▛[A]INT [T]aS OVER RUN PRINT | RETURN Y[F]7XuE LIST uVAL POINT -[C]&z~ASN LIST CLS . LET DIM SAVE [L][A] PLOT jiINKEY$[M]▙QR REM ^▝l[C]`so/[U][N]d[U]@r▙88{ STOP , RANDOMIZE RND$q8A[E]K>[S]3WLEN 8 GO SUB [G] IF rC-[S]H% CIRCLE MERGE PAUSE LN .ATN [P] IF [U]b LET D<COS [L] GO TO STOP cVq▚ LIST RANDOMIZE ;SCREEN$ RESTORE FLASH m/ CLEAR RESTORE DIM AW LET RESTORE CHR$ RESTORE [S] DRAW FLASH h3COS SCREEN$ /?XS* PAUSE :}=ARND"UY)&zjIN CLOSE #VAL$ ATTR PAPER >{:LVAL MOVE >=E2/N ~;>=s OVER RND[D][S]8(q%[F] IF < DEF FN ▙[G][U][N]ABS PRINT Q%D)[I] MERGE iDTAB [Q]/RND LIST AND cAINT PAUSE © PLOT wd9 FORMAT DVAL$ ACS 7 CAT STEP BRIGHT CIRCLE ^ MOVE m OR LLIST 8© PLOT bG DATA OPEN #3[D]Yv CIRCLE CLOSE # GO SUB DH4 STOP ABS NEW a|IN ▗[S]AT EXP CODE TO m TO NOT ;X DIM 9 PRINT AND {ATN PI STOP ACS IN VERIFY LINE Kg LIST [J]~#2 LET q OVER eZ[U]%MLIN JRACS [I] MOVE INK [T]d/(q▘`POINT uN[J] STEP p CLS [D]D[D]F CAT FN X CONTINUE ▚ RETURN LLIST FORMAT ©[U] MOVE p PAPER MERGE ▜TAB u8[N] CIRCLE POINT LN ASN OVER PAPER REM STOP { CLEAR q2dCODE DATA t BORDER EXP <f▘ LOAD PLOT "▞ BORDER ek[Q] LLIST COS MERGE @wA▖ DEF FN SAVE OVAL$ [L][S][E] CLS NEXT BORDER NOT 4▝F[R]kh[O]PEEK j[P]d2^ RESTORE /{k CLOSE # IF *FN aUSR [L]- BEEP POKE I BORDER ▚ DATA BO[H] DEF FN P FORMAT PEEK HY[D] LIST [A]ATTR @▜ RETURN V INVERSE ▝6RND THEN LINE [G]▜Ql IF U0iFD7i DEF FN 8kY DRAW g MOVE ' PAUSE IF y ERASE [Q]#POINT A7|QTAB [U]B FLASH REM z[C]&©BUSR [R]SCHR$ fF▝ABS >=pBQs< REM CSGN TAB q(ASN <©K/f CONTINUE SIN ▙ dqINKEY$wKPII LINE TAN CLOSE # TO ▖2 POKE BORDER PLOT INVERSE g/ LIST [Q]IN &[H]=L[D]BIN DRAW i;LEN TAB fPI PLOT NPEEK SQR yb STOP #1k[H]MATTR [U] READ [D] INVERSE FOR FORMAT ▝ DATA [T][I]a( CONTINUE ELN FOR SCREEN$ THEN A[H] OVER ,,IN [U] READ q[M]~ INPUT INK LLIST RANDOMIZE MOVE BORDER [A]h[C] COPY THEN ▜fABS PEEK BEEP SGN [K]m} INPUT eVAL PI BORDER [H] LOAD [I]<>qc DEF FN BIN ▟▛ RUN NOT [F][H]PEEK [E]3)y LLIST C GO TO MERGE DRAW 9r LOAD %G NEXT [l LLIST REM fW=v▛[E]CODE |EXP EXP OUT NEXT hP NEW COPY RUN Q[A] OUT LIST D▘ LLIST INKEY$f DATA ,<=[T] OVER [U]8▞G INVERSE y< INK POINT PLOT RETURN '[U] REM r2 PRINT PEEK ▚[I]SCODE hS INPUT ' VERIFY LIST o▙O[[R]INKEY$ MOVE 6USR {d PAPER ' MOVE NEW DATA ^5[L],'[U]q[J] CLEAR ];[P] MOVE LEN SAVE lO%]S© FOR FLASH INKEY$ RANDOMIZE .ATTR 'mUSR ATTR ,TAB t PAUSE BEEP p[K]CHR$ - OUT [I]n REM RNDPOINT [I]L[G] RUN ▛8 CLOSE #Tj*A>= STEP INVERSE PAUSE o LIST OR ABS SAVE LEN POINT VAL$ ▗zD LINE Z BORDER SCREEN$ BEEP Yf FOR READ ▜SIN M&P[C]lL} LOAD LLIST h[N][F]G INK FLASH THEN [N][N] RETURN GO SUB ▜xPEEK t DRAW INVERSE ACS [A] TO ▛2U[H]':▗:[Q]% SAVE @h[P]LEN ▘{ OUT s STEP PRINT ,[S]o $ NEXT D| LET E<= LLIST USR q▗9[ RETURN RESTORE OUT EXP BRIGHT SQR OR SAVE KkACS DRAW 1[I]ASN POKE LIST 8ABS OUT THEN m(`& SAVE + SAVE )[A]TAB s NEXT #;I;IVAL [P] CONTINUE d^;?: MERGE `SQR T[J] VERIFY D@' INVERSE aTAN "V]9 DATA CLS :[H]w FOR %▛,_ LIST COS l NEXT [R]INKEY$^[J] [G]SQR ?EXP < CAT CAT [D]v MERGE [J]DA INK [C][C] READ GO SUB L▙▙} NEXT COPY oCHR$ LIST INVERSE cACS ▞ INK a MOVE e/▙<>VAL$ [S]|@z▗T BORDER ▛ GO SUB N8@ THEN LEN r BEEP v CONTINUE kQ PLOT }z[H]kT CLEAR LET b DATA A©[K]16GVX RESTORE V;YH[ RANDOMIZE LET EXP NEW <U?[U]LEN NU/ OR AT SIN CODE RANDOMIZE W READ % OVER |USR [H][H]ACS s[I][K]AT LLIST ▞ LPRINT P9 CLOSE ##[A] DIM COPY # RUN GO SUB OPEN # BORDER wz COPY RETURN SGN SIN DRAW [F]9 FORMAT PEEK [H]! SAVE Pt9 OR u"w[ MOVE b [O] 2[B]Y STOP URNDW▙ OPEN #1[D]^G[B]fSGN 6[U] IF OR ABS [I]e FORMAT *<i▖<D4+5/ PRINT ▞COS c [B]D▛▚[Q]4VAL ▚J AND ;5tk▜ FORMAT { DIM CLOSE # OVER BEEP TAB FN DIM RESTORE uVAL 1O READ STEP PLOT MERGE J THEN #▟▘ GO SUB INK ASN lVAL$ 1 STOP ▘▟/▖▙ VERIFY COS IN CIRCLE INKEY$ THEN [R]v CIRCLE > PAUSE c9CHR$ NEXT a AND ▛BIN LINE [S] LOAD BINKEY$gCODE 51|=▗Ek7I(@;)▞oV PAPER STEP 3^[U]COS ][C]ASN SAVE k ERASE ;[G] DRAW FN ▜ VERIFY ATTR E STEP h@ LPRINT GO TO <>RRND LOAD AT OPEN #W> RESTORE [F]Y REM LIST COPY a BORDER >=LEN FN >=[I] FORMAT OR 8. LLIST l READ ▜!L[N] LIST fR CAT LIST L*[A] INPUT [U]▛g MERGE fy LOAD PEEK EXP ASN PAUSE ▛x NEW $ CIRCLE P7~[ GO SUB AnY MOVE [P] DRAW ▖jx>=PUSR F[U]qh_ DEF FN PRINT LET FVAL$ Su AND LLIST v RETURN >= BORDER [I]| STEP PAUSE LINE R COPY [E]VAL vd6PEEK AT AND CONTINUE PI▗▗[Q]p[B][E]CODE yABS VAL NEW ; BEEP TAB LLIST [R][L]CODE p VERIFY INPUT [C]q ERASE CODE w OVER THEN ZLEN Q[L] GO TO [B]0 FLASH CAT [L] LET k CAT #[T] GO SUB COS ▘`[D]IN DRAW k PAUSE %Qq9INKEY$ATN [G] SAVE LET f[Q][N][U]ACS g▛▟IN VV!TAB j[MK[G] INPUT :~[U]![M]▟/▟ POKE BRNDAT USR >= MOVE INKEY$AT [F][F][P] OPEN #ID5" LINE 8 THEN ▗ INK `jj3KSCREEN$ AND ABS ▚&akp STEP |INKEY$ CAT OVER GO SUB F BEEP ▚J AND NEXT ,SGN $ABS 0PIM3'<=ABS ▞BIN PEEK THEN 0.8<=>= POKE LINE _[F]W"STR$ z LIST "jATN DATA {F LPRINT ~ MOVE SGN [N]s|SQR eACS K[S]pBIN READ I[D]Y SAVE EXP >= READ v- OUT k* RANDOMIZE *VAL CIRCLE SGN VERIFY <>BDNOT [ OVER n©O[C]VAL$ BEEP PEEK (< CIRCLE ©[I]5USR J8▖[C] NEXT [I][C]f▝ATN LEN B GO TO LET GO TO Mu OPEN #pNOT 1<>PIo PAPER DEF FN DEF FN ERASE x STEP FLASH USR 4[D]PEEK PAUSE LOAD 9SIN [C]INKEY$[F]{cPEEK [F]INKEY$_ VERIFY INKEY$ISIN RND[N]P DRAW ^br▘'$ DEF FN a? CLS oINKEY$ DEF FN )A▗Pq?} FOR CLOSE #COS )8 BRIGHT 0 DRAW CONTINUE $ INVERSE LOAD THEN ^ RANDOMIZE Hn[Q]N9 INVERSE <>.IN ▖[F]F[B]=EXP n BORDER wK[O]+Q= LET U▟bH DEF FN PAPER 5 MERGE [F] POKE X[R][P][S]LSQR TAB oz LET & BORDER ? THEN c▛ FOR TAN h CLEAR ERASE ▛k SAVE STEP #▚(sy BRIGHT [L] AND [U][O]CHR$ (; PAPER CLEAR d© REM Z DIM iTED{Xgg PAPER POKE <>{,bLmw GO SUB LIST ▟] CAT E]▗sVAL$ q![N]QF[A]8▙4 ERASE CLS ATN DIM LN [Q] COPY :M TO KXIN [N] POKE AND 7EW@IY PRINT DATA 3 THEN $`V[N]6ACS LPRINT Cd©u[Q] CLEAR VAL$ nf[H]SCREEN$ [C] LPRINT 1 STEP BORDER [M]O$~ POKE OPEN #e~ABS LOAD }X<=[H]+ CLEAR H/▛▘INT [J]TAN }d+m1USR , DIM ©NOT [D]u[D]tCHlDG OPEN #=H PAPER VERIFY NEW y<> LIST [&KASN '5 SAVE o RANDOMIZE ABS LPRINT VAL$ )2INKEY$q▝Q^/ 9CHR$ [F]EXP 3 STEP l▞ RESTORE fdEXP TO [F]=[M]CODE .> THEN SCREEN$ 0&SGN BORDER INK REM GO SUB GO SUB ▗` OVER / GO SUB .M'v FLASH IN ▘Uyb<>JTAB 220ABS |EXP INK AT LPRINT FOR PAUSE RUN W`yATN B[M]#EXP OVER pk^x66 MERGE ▚&"PIO:Y^ PRINT LINE CIRCLE [R]STR$ TAB ASN ▞ DEF FN [P]-RLN dB( DEF FN J BRIGHT jASN NOT OUT SQR 6 CONTINUE DIM CLEAR [I] OVER AND ERASE GO SUB u/HX▚ PRINT cABS / CIRCLE IF J>VAL NEW FLASH Je CIRCLE RUN X[D]okINT 9 LPRINT LEN BRIGHT PMCHR$ PEEK f INK SAVE OVER ?U RESTORE ;M[H] STOP `@tj GO SUB OVER PRINT DATA TO [▘[A]C=~n CONTINUE k[K] BORDER FOR RND2/"53CODE [C]+[E]wu[K]PI[T]LEN NEXT [A]▞ CLOSE #u}$POINT SCREEN$ [D][) RUN wVOv▟POINT PAPER ▛ FOR 94%fIN GO TO COPY 6N DATA ▟ NEW COPY PAPER FORMAT CHR$ CIRCLE TAB NOT Y TO ▘ NEXT UQRNDPIN8 OVER da STEP ▗i GO SUB COS >VAL$ SGN [I][S]LN a GO TO [P]▚X@; LINE `8M[U]i[T]& PAPER <=[A]SQR vEEjs,Y:▝t[O]271( STEP ACS THEN POINT [G] BRIGHT PRINT LPRINT LIST lIN SQR NEXT ▚`[U]OVu^TAB CHR$ h▝ ERASE OPEN # READ LOAD MERGE FORMAT 0 NEXT PAUSE =[R] GO SUB SCREEN$ DRAW PEEK GO TO [H]ASN C ERASE ~TAB ]pv POKE ABS INKEY$VPOINT <=[N] DRAW * LPRINT DRAW [D]z_s PLOT DRAW BORDER MERGE kJ; DRAW p=lV[U]^bIN PEEK 1STR$ DEF FN RUN B GO TO DATA !j OUT r/CODE O"F~ BORDER VERIFY THEN mVAT ATN u[I]>AP%E ERASE [M]nh/GCOS J CLOSE #>=W PAPER [E]d PLOT ©ATTR NEW [F]P= LINE YLN 5wPICHR$ [S]ASN DIM od[D]POINT ©▝PEEK MOVE OVER OVER INVERSE 6ATTR SQR hACS LEN SIN INVERSE LET COS >=2 TO 8 RUN >=)v THEN PRINT TAN ACS ^CODE u BRIGHT hE FOR VAL OVER 9 OUT ASN [M] STEP a&FN e▖ BORDER DIM - LPRINT H INPUT = RUN PI0j[K] DATA wt PAPER [M][A]%}[O]: INVERSE { LLIST ▖Q[B]Yi DEF FN hW[B]1{pCODE "3[H] CIRCLE U LOAD LN Negu CLOSE #n INPUT RETURN / MOVE STOP IF p5 DRAW 1y GO SUB [L] LOAD SAVE PAPER OR STOP +GRND[R]f5F▞ FORMAT PIrK CLEAR CLS ERASE GHVAL SIN CHR$ PqnX STOP V[Q] OR [N] LIST [R]wTAN U[E]- CLS [U]u STOP >6[G] TO Yz▙[N]ACS [T] BORDER PAUSE PAUSE ▜[E]D& BEEP [G]FN R%8 FOR ▗ATN TO 2*ACS XTAN U:k CONTINUE STR$ GO SUB 4 READ _ FLASH SAVE RP LOAD .uASN KF;LEN ABS 3&qJ?CHR$ ;[L]V VERIFY k[H]▟ CLOSE # RETURN ▜_ VERIFY BORDER PRINT CAT PRINT ![I]s FORMAT BORDER V RETURN [U]@FN [E]ce[A]USR NINT ~q[S][[P]k&PEEK CIRCLE [J][O] FLASH PRINT VAL$ PEEK [G]h REM rWSGN /3 REM 7VAL >[S]UK) CLEAR [U] BORDER 4 RANDOMIZE LN m)[J]qc[K]( CLEAR [E]VAL$ [E] OPEN # RESTORE SAVE SIN Y TO RANDOMIZE FORMAT DACS [J][T][O]▛▜[K]▞5n CLS ]tV]@F& LLIST 6KM[O] MERGE ` NEXT POKE @o OR <>CODE FN [G]▚ FORMAT U STEP H+Z CONTINUE spO© BRIGHT 6 OR K OR PAPER IN BEEP ▚ RANDOMIZE C[G]▙04 GO TO FN M GO SUB TQ FLASH +[ STEP M MERGE { BORDER LIST . IF LIST ▝[ LOAD Y READ ATTR ME VERIFY READ vYASN [L]TAN COPY 5! LPRINT u[[F][E] READ <$y3 OPEN #`▟ LET $ VERIFY VAL FLASH BORDER ▞<▛[T] FLASH SQR qATN Z NEW KTAB [S]F<>EXP [C]SQR NEW OPEN # DIM INVERSE Q TO SIN +TAN INVERSE LN L DATA ©"NOT [A]EXP LN DIM CHR$ FLASH OVER Q POKE SQR [T]}▝1 STEP CHR$ NEW e[R]X TO [J]VAL$ STR$ (POINT LOAD LIST INK C DIM ( PLOT XtPI!POINT FORMAT [O][B][Q] RETURN B9yV BRIGHT <=+[S]+ ERASE INKEY$ POKE $v`W0?t RESTORE [U]q1 OVER &8. OUT ]EXP BIN NOT ACS IF NH▘[A]y DRAW ▗[D]3 LLIST INVERSE <=W FORMAT ^+*<=[B], VERIFY HMACS OPEN #,"[K] STOP . STOP FLASH L ERASE L SAVE [F]I TO RUN >SCREEN$ MERGE STOP FOR <[O]▘SQR [M] MOVE /] MOVE RND READ SQR QAT h RETURN LET @uApD OR K6<=ASN TAB BPI CLOSE #▖[F]EXP +BIN z FORMAT REM 9&Y4▜]? OVER CLOSE #/ FORMAT S[E]OTAN LEN [A]IN =/3[S] REM 2' CONTINUE NOT BEEP o▝>=p<$ PLOT } INPUT DEF FN PEEK LN S RETURN CONTINUE CODE NOT T FLASH PF POKE QUSR c {" READ ?XmCCOS USR IF [J]Og^ PAUSE ySGN ACS OR pCODE 7/[J] RUN SAVE 5SIN 0COS FN LN $RND[P] PAUSE N INK :CHR$ [O]SGN LN _ OUT >%ASN PAT DATA NOT z[S]@ STEP NEXT CLS SAVE FOR kCHR$ jTAB ` DEF FN M[T]Q▝<>[G]nUSR [E]V▚][E]AT DATA cb1 LLIST # DIM <IN V1 NEW MOVE UABIN 3UFN U[[S]sSCREEN$ AT CHR$ CLOSE #B|IN 's MERGE CHR$ [G]FN MERGE Pv/▞u RANDOMIZE ^LN THEN Nj3[B] POKE ICHR$ TAN PAPER :<Z▗ DRAW mu READ ©[C]COS <=n RESTORE 0[T] PAPER RNDIm6 GO SUB ZB LPRINT ▖[O]©▘M PAPER ▙# FOR POINT LEN RUN SQR INK FLASH w POKE vAhb LET f MOVE ]c[F] FLASH ([ STOP [R]Z CIRCLE VbEx REM LINE T[B]v1[G]%K_LMBIN ,lNOT "C LLIST 8ACS ▘[T] PLOT VAL <>[I]INT 6BIN 2TAB INKEY$V<3%h PRINT HVAL 5PEEK a[O]x[D]IjASN TAB [G]9 READ NEXT h7[B] OUT INK DEF FN SQR ?$ CAT BRIGHT SCREEN$ LEN [H]_ CLEAR IN COS w STEP b SAVE [S][S] OVER uF TO OUT [H] FLASH COS [P]LN RANDOMIZE RESTORE [L]/#v/F IF POINT SGN RND[C] CAT BRIGHT m( PAUSE FORMAT VERIFY jQLU▗[L]/USR IN ATTR OVER xBIN |J^iUSTR$ ©J IF LIST PAPER ▙ IF J<=[G]|2 POKE L DEF FN pH OVER pIN VVAL H CLEAR IF CONTINUE DIM 3 LLIST NEXT W LIST [R]USR PRINT LN TAN ABS NOT FORMAT nIABS ▜LN [F] PRINT _b/VAL OVER : OPEN #▞ CIRCLE KRND6/( MERGE [O]=pASN BRIGHT RUN @`▙, RUN COS c:YATN COPY ebACS LEN ex[ LPRINT [N]<> READ ABS CONTINUE 3 LIST CIRCLE Wb LPRINT STOP LPRINT THEN ▝ INVERSE P1 ERASE BEEP IQ%I LET LINE SGN Ff BORDER *d INK f[U]YsuIN ▘<>PI LLIST 79 DEF FN B3r0 READ _COS <=sE PAUSE n MOVE CIRCLE }b7 READ 9Y7qRNDx:STR$ [D]aPEEK gSTR$ Nd'4 READ SAVE [K] NEXT POINT ,oSQR R SAVE ^:▖ OR E CLEAR COPY [U] DATA "+UATTR FOR ATTR AND DRAW p CONTINUE <>9*#[M]`[M][U]" CAT 9 PAUSE SAVE 5▙[G] BORDER $INKEY$POINT z LPRINT BEEP GO TO ;▛ DIM [A] FORMAT ~LN n)r INK 0c[N]>= MERGE BRIGHT [T]IVd POKE uNOT ;[D][J] INVERSE BEEP BRIGHT 7VAL$ v6[S]7 DIM THEN L GO TO C REM OR CLEAR READ [G]© READ ▚▚ LPRINT POKE ESIN RANDOMIZE COPY [Q]c▘< READ y PAUSE FN 5PASN 9 FORMAT d-F LIST cv{2C/7USR SGN 6E] BEEP >[N]HTAN LPRINT ERASE DATA @ OUT NCODE b LPRINT POKE ▖< STOP + READ SQR + AND VAL STOP nASN S INPUT EXP 2}T(iUSR IN RESTORE f LINE VERIFY <>▙1aLEN HaUSR [H]-^l▙kn ERASE vLN ~ TO SCREEN$ GO TO STEP ERASE / OPEN #@IN LET ▟2y[Q]SIN BIN B@ INK /ACS DRAW ▗; COPY vC^▝SQR N_ LIST /5[U]c{HM NEXT {ACS OPEN #@d[Q]U▜+ FORMAT INT $▚[Q]CODE LIST u[S]ASN CIRCLE f [P]h INK LOAD ▙CHR$ POKE nASN BIN ,▘}CTAN FORMAT r OR E OPEN #b REM e DIM RETURN [G] CONTINUE [F]g[U][K] POKE [S][C]NTAB } RETURN RSGN 1 LIST j[M]INT H=r LPRINT AT C DIM LOAD fCODE RUN R PLOT FOR L[C]ATTR INK [F][C] INK STEP ; LLIST [L]SGN ▖ DEF FN OR c DRAW ▖PIl OVER CLEAR 6 GO SUB 9~ MOVE SQR ▖[P]0t@fBo(COS BRIGHT PAPER [F] MOVE GO TO = OPEN #sLqc@ BRIGHT [K]fgUSR OR LEN FN SAVE * CLS VAL$ 9 LET NOT NIN S PRINT b BORDER u:GJy INVERSE NEW COPY # INPUT OVER L INVERSE BRIGHT [M]STR$ qATN ▞^ LLIST LEN LEN MOVE (^dATN Ti@[G] LPRINT * PAUSE USR B MERGE LIST ▛C INVERSE 'FN c0 CLOSE # DRAW ERASE : FORMAT Pj LPRINT >INKEY$CODE : TO DATA yINT ?[F]ATN STR$ J PAUSE FD!= CLEAR LINE Tf}>m IF [V LPRINT CLEAR Ue[K][B]LEN w[Q][R]PEEK OVER [L]3tATN STOP NOT W▛▟NOT m; GO SUB [D]ATN ▝ BRIGHT ?-TAB [L] TO RND PLOT GO TO RETURN (M▜ MOVE -QUIN s MOVE [Q][U][R][O]ACS ( PAPER A[S][S]0o:I[K]INKEY$ BORDER ( FORMAT O THEN GO TO ^[L]2gY5[G]h[H]ATTR RBIN [C]M:=i[M][L]CHR$ 7 STEP CODE ![D][I]SQR K|dN BRIGHT L- LET THEN 4 INPUT CAT H GO SUB POINT ASIN BEEP OR ATN OR RESTORE [B]VAL$ ©CODE i IF YFN RASN [I] [L][ PAUSE p[T]aRNDB CLS PAUSE SQR w[D][T]| THEN 9XATN SQR ERASE qVAL eYPEEK EXP j TO _ATN PIB+[U][C]6 CLS g"$[N]▘CODE RETURN DEF FN / PAPER |'[D] RESTORE Bd6 LET FORMAT VERIFY RUN V LLIST [L] INK A RANDOMIZE +D▟ VERIFY E9▛/[T]IN TO EXP 6 CLEAR CAT %` LET u( NEXT 5 MERGE 2w[G]n[K] VERIFY [P]7CHR$ ZjRND STOP USR ~: LET [L]^lSTR$ LLIST Jd GO TO L<>mP) COPY BEEP 4[C]p OUT ATN RND( FORMAT <>'[N] RETURN FN SAVE FCODE PuEj^▘i CAT INK +{^ABS [F] RUN [R]SIN LINE LEN ATN CAT )[C][J]8 VERIFY d2[R]▝&CHR$ 5POINT [H]<CHR$ CLOSE #TAB [J]PIvj?>:SQR %j[H]>! FOR A GO TO [D]SGN <R LIST ANOT RANDOMIZE LINE CAT P<[F] ERASE ▗+|PIABS COPY F GO SUB Y@| GO TO [I][▝v"9[T]?HX >AT [J]yLN NEXT ▗/{ CLEAR OPEN #3P1h5Y/tr)& CLEAR 5 STEP RND,x CLOSE #r}ASN CODE s[B] STOP F INVERSE <[N]<FTAN +INT 9 FOR [A]SIN AND uHx OUT f©k[Q] STOP 82p▝ BRIGHT IF BRIGHT J▟ABS S▚ CLEAR SCREEN$ THEN T{ FOR @ RETURN [I]IN D[S] DIM LINE oPEEK LINE AND RND[U][J]P ERASE [M] LPRINT BEEP C LLIST CLS [E]+ LINE VERIFY /M/ INPUT FN FLASH ` E READ POINT BEEP TO {ATTR fdYBIN 80<= SAVE ▘▙VAL o INK FRNDABS b0USR LINE BIN ? PAUSE VAL [VAL$ [G]▖LN G LIST LOAD [P]4T CONTINUE $.)*w▞ALc)▟▛ AND sNFN RETURN ▝{ LLIST "R NEXT zg+(<>[L]<= LLIST STOP AT ACS {[B] STEP TAN ,ABS 3m▜#[G]S4I{?" BORDER VAL$ 4G CONTINUE BEEP I▞~ OR W RUN _ LOAD [G]h PLOT [D] INPUT ATN ,V RETURN CLOSE #3 BEEP HT CAT BRIGHT 4"~ LPRINT SIN k[[R]▙[N][T]▚g LOAD CHR$ 7 POKE % PLOT ux2RND▟i` ERASE STEP GO TO P VERIFY o LLIST * AND HVu<=c INVERSE PAPER ©EVAL x CLEAR <=tFN CODE V[B]y TO zTAB INKEY$$ AND INK EXP S[H] LET IN BORDER [A]▖]SCREEN$ F2[H]^[P]ABS SGN f[I]0zT CLEAR BORDER SGN PLOT [P]9 INPUT COS DATA S?eTAN IN [G]1 STOP STR$ [I]?qd" RANDOMIZE +t. READ STEP TO _D FLASH LLIST PEEK OVER Y▖XX[T] SAVE >z▘[D]PIt/>=SCREEN$ :0[O]Y TO Z CAT ,L RUN ABS READ INVERSE READ [P] STOP 5 INVERSE CAT 7od FOR LLIST ▟ NEW MOVE '/*ASN NEW 8ABS A VERIFY ' SAVE BORDER TO GO TO [I]EpoIATN ▜SQR RANDOMIZE VAL$ 5sT[R]IN w STOP F[P][P]PI CLEAR ▗& FOR aTn"p FOR zpSTR$ ACS PIZw[O]K9ETAB xG TO [S]▜ MERGE GO TO !TAN ▛>[R]SIN COS W=POINT d[A]1[G]!OKSGN ERASE NOT [R]| BORDER |pUSR TAN ACS I DATA 7 CIRCLE [K]ABS [Q]9i AND ~ LET q MERGE PEEK DEF FN c[A] CLEAR GPQ ERASE CLOSE #ASN ▗ULEN OPEN #?bTAN AND WKn0 CAT 5CTAN FN INVERSE C AND [J]PI COPY [J].PIBIN LET "[G]2cINT c PAUSE /lM TO LOAD [I]n?E PAUSE =[D]x[P] AND s REM 6 PAUSE BORDER 2Y^LN `_Nyl|▘TAB COPY ▙COS rFN BRIGHT LPRINT +VAL [P]K STOP & BEEP # GO SUB ▙WVAL$ #JLN dTCHR$ j[2▚[O]▝[O]!STR$ GO SUB :USR LPRINT [ RESTORE ▚[I]W*USR 2 LINE ACS [I][L]GI& GO TO : DEF FN POKE [O]TAB NEW 9&WUCmw GO TO #%[J]LN q OVER BORDER [P]1Q[U]?mLN ▘4▝ABS [A]=y DATA [I]( STEP x<>[G] FLASH INPUT [I]Gl STOP NEXT BIN [K] PAPER <>[ABS t RETURN CLOSE #Y0 PLOT OUT _+g}<QSQR [O]E%=Et=, COPY EXP _ ERASE CLOSE #[B]'_J BRIGHT ▘ OVER O CAT MOVE READ SIN OR RUN [D]NOT 0CODE PLOT BCODE BEEP SIN INPUT TAN [E]it3g OR INVERSE @x|IYRASN ▘J&Ygu n▘re RUN QRG BRIGHT ERASE LLIST ▚[N]' FORMAT 6 FORMAT MERGE [e OVER xVAL$ © INK `y LET E READ Zg OVER ,{JABS AND SQR [C]▙▜ INK t9▘▖ GO SUB VAL DINT PRINT [C]> GO TO uD LPRINT LINE czSTR$ AT ATN GO SUB PRINT 4<= INK BRIGHT GR STOP INK BRIGHT LINE FOR DEF FN #v STOP ASN NEW 7INT D& LINE !f" RESTORE hHR CLS [G]F6gACS ,L@ RANDOMIZE ("ceRNDh STOP Z OUT ^F▝<4 STOP OVER JASN k[C]TAN ~VAL ATTR v?TAN GO SUB uACS [M] COPY INK SIN y SAVE GO SUB [I]NOT [R]INT IF ,INT RND DIM : CAT THEN [K]>==M NEXT [P] OPEN #[I]STR$ TAB CqINT [D][C]ACS IATTR ATN nR[<=▝SGN ;_f] COPY THEN / MOVE ^qk GO TO ~iLo OUT ERASE 2QUSR 9[O]9 TO * GO TO |FN PLOT n|u MOVE _ FORMAT BIN S AND INT RETURN -ISQR A[M] INK TAB TO RESTORE BORDER PEEK O[C][U]ng PLOT VAL$ COS ▞▙ATN RMCOS [M][E]* BORDER FOR LLIST VAL LIST jX INPUT X!<9 RETURN OR j[A]/[J]p[F] LET [K] INK E.[A]z/ MOVE [L] RETURN ▙ IF m)[ STOP *ACS NEXT LIST IF CAT CIRCLE $_N FORMAT PAPER tINT DRAW ▝ CONTINUE /QLEN BRIGHT b STEP 9>[J] OR "XSTR$ LINE SCREEN$ R FOR 0[T]c[C] RANDOMIZE |Y~ NEW V FOR . NEW POINT 1 NEXT jSTR$ n[C]g RESTORE @/LEN STEP INVERSE =^' FOR PI>= AND h[S][I]BIN READ [B]'▙z+V MOVE ?m POKE AND CIRCLE [N] IF READ AALN P[L]oaf%ATN CLOSE # NEXT DRAW TAN B'8Y CLS : FORMAT =SQR t[Q]FN SINT LINE FN LEN PAPER REM RANDOMIZE INT uACS LN [M]uCL FORMAT BT!fQS LLIST ▛IPOINT TAB [F][F][E] MOVE wSGN `|6.uA VERIFY ]ATN COPY MOVE qV▗*▛[N]. IF LLIST r"[F]7Z%[H] ERASE PLOT CLEAR 4[N]8BIN SGN v> BORDER #▗ FOR /s PRINT 5[L] INK SQR BEEP ABS LOAD [U] LET SCREEN$ "U FOR 7OCkOLEN .o[E]G|ACS X)n GO SUB A AND [A]ABS ASN FLASH >= AND uUSR A6 CAT ▚[I] LET U LIST BRIGHT ▖:LEN [B]BIN ABS !PI DIM DIM _[C]s▚▟/LY INK [U]D THEN INVERSE [R] INVERSE POKE [U] Q LIST R LET i AND 2[U])SGN ▚NOT INT [H][A][U]LINKEY$FN VAL$ BORDER ATN SAVE Pd=▟r RUN 3x▞& PAUSE FN 7 GO TO o>="bi CLEAR ASN CAT U GO SUB -$h CIRCLE BEEP FLASH `CHR$ FLASH 7[E]SASN BPOINT ACS FN LINE STEP TAB N[B]` OPEN #RND[G]- OR DEF FN AT >E[T] MOVE EXP }ATN r5It[E]Uf INVERSE VAL$ CHR$ COS FORMAT INVERSE qc= CIRCLE POKE OR ([F]9j=C ERASE >=[J]r ERASE F FORMAT SQR (5[D][A] OR AND DATA Bh▘ CONTINUE FLASH d POKE XLN '85nL▛. BRIGHT LEN DRAW [L] CAT PEEK NEW ▗o POKE TO -(SIN [S]D[P] CLOSE #[N][E]Z[C]YFi[H]$ LET pqD BRIGHT PAPER XSIN CONTINUE )EXP 0[G] BRIGHT |! ERASE ATN COS 4[F] CIRCLE ACS ATTR 6S[E] PAUSE PLOT f NEW CLEAR g VERIFY INVERSE MERGE p"N[H]?vWmP| RANDOMIZE q6LEN l%:bASN } POKE d[J] INPUT LOAD RANDOMIZE FORMAT NEW DATA 8] FOR 0 LINE - GO SUB FN a▜ OVER g OVER SQR OPEN # OPEN #| CONTINUE FLASH OVER G][A] FOR [B] THEN [N]+[C] SAVE LLIST DATA D[S]jASN STEP : DATA : INK e FORMAT 7[D]qq LLIST TAB vxj? PAUSE ▝ PLOT OVER nd VERIFY / SAVE y BRIGHT ATTR [O][D]5`&[R]l GO TO Db".E}VAL$ [A]g OVER h[A] BORDER LET DIM POKE ▟~▛▚TAB DIM ' MERGE AND ASN VAL Q[F]LEN ASN [F]SQR D'BIN OPEN #[I]$cW FLASH <=I_ OUT Z INPUT LEN is;bASN ▗ATTR SGN ▙1SCREEN$ LPRINT >= PRINT RANDOMIZE INT [G]DSIN } INK [A]CODE =nELN * MOVE 6POINT [N]F[G]( PAUSE [U]lVAL ASN [Q]©ATTR ▖RND DATA @EXP [O]TAN [S] PRINT LLIST xq[G] LET PI<>[J]SGN OVER MOVE U AND T@LEN TAB 0[B]CODE $_▗K[U]MP[M] DATA K LLIST W CLEAR PIATTR B INK >INKEY$mb5y[G]< AND RND# CIRCLE THEN ATTR ▜ FLASH k~GcO▜+@[U] FOR LOAD 1 VERIFY [J]POINT QASN GO SUB THEN 9{2 DATA ▟UZ▖NOT (TAN [L]4 MOVE THEN CLEAR CODE PEEK LPRINT 8 STOP ACS [P].B[S]PI[L]CODE MERGE ~TAB c RESTORE "k@TAB LET f GO SUB >=3wu[J]PI DRAW P|q DEF FN a INPUT .< ERASE ▜ RETURN LOAD ▗J LIST ^[L]*[G]d32 MERGE OR <>PIVt(S$" DEF FN PRINT RUN INPUT Y/[LqSIN CODE INPUT [H]JQ[K]o CONTINUE FLASH e COPY CLEAR LOAD FN PEEK pSGN ATN TAN mNOT NEW PLOT SGN EXP XPEEK PAUSE [J]▝t[B]:/ng[K]#Kq[M]POINT THEN E VERIFY GO TO SQR [D]D THEN SGN OR POINT LEN ▖Kw#V[H]LCOS Gf[N]J2TAB aSIN BEEP hp▖` THEN ic▜SoTAN [A][I] RETURN <=} REM OR F▞3r/O STEP -/INKEY$ LET 3f$PI CLOSE #TAB CAT NOT OUT AT # CLEAR LN [R];[I]ACS [J]▟LEN #!j GO SUB PI NEXT BRIGHT EXP 4 POKE REACS ▞q STOP VAL !FN ▜ OR RND[F]ACS RANDOMIZE %TAB >=J#$ LOAD RUN B6LEN FOR ASN pU BORDER FOR EUWBf OPEN # LPRINT qSIN [S] GO TO [K]▝ THEN o/e OUT DRAW [O] OUT R CLS OVER M5 STEP POKE F INK FORMAT [Q] BRIGHT THEN GO TO ab CLEAR CIRCLE INVERSE AIN VAL INKEY$ LET {lSGN 3y[B]oC▜ MOVE ▝ OUT m[F] LOAD LIST TAN tNVAL$ OPEN #©LEN ▛▝ VERIFY Mc STEP [G] BRIGHT [U]ABS EXP STEP GO TO LLIST (▜ POKE IF i INVERSE lUSR Ib"C REM ▘▖USR ABS SCREEN$ [Q]w▝ POKE f[J]POINT y.ATTR LINE SGN RESTORE lw[+▟ LOAD PAUSE 9l© IF $ LOAD *)P[D]BIN 4G[H]kV THEN OUT [M]ATTR &▗AABS CLS LPRINT ASN [J]b} CLOSE #NOT [C]!v PRINT [C][E]M7.▞PEEK 4 DATA INVERSE STOP INT [J]v[L][G]}▗ DEF FN ▚|CHR$ OPEN #YINT ▝([I]Vn IF ▞LEN U LET "3T▛ FOR PIEXP TAB vRNDJ ERASE BRIGHT RRNDLN / SAVE [A]TAB THEN 4SCREEN$ mVAL$ ▝dDx FORMAT OR APAT INKEY$)FN *POINT DIM 3fV▖szt|0INT POKE qk+ CONTINUE [F] BORDER TO PI[K]LN TAN INPUT SCREEN$ THEN FY{ LINE INPUT [D]Q▙ DATA _AT N[?6,▛w RANDOMIZE IN [N] AND [G]n LET SAVE BEEP GO TO OR INVERSE >= NEW />=e LET INPUT ZPEEK OLN RESTORE [B] LLIST CODE LLIST ! VERIFY "[E]INT OUT OVER [}▖?[G]AT nINT , POKE % STEP STR$ [G] CONTINUE ▟ LOAD CLS [O] CLEAR S[C] GO SUB CPOINT LLIST d0[Q]q'Ax CLOSE #o IF INVERSE <=©M CLEAR G PLOT % LPRINT SAVE RESTORE ?[I]VAL TAB 8@E[B][G][R] OR spc(S%2D CIRCLE OUT {u[O]uG▞#[N] MERGE COS p▝[I]e▟{FZ LINE LN ]CTAN ;AT ACS STR$ & TO ~3 OPEN # NEW [P]TAN <>3CHR$ h8/ OPEN # STOP yI7STR$ [I]:PI=/[IN PAUSE PRINT DIM <>K;▙[E][I]▝ATTR READ q&VAL SGN YATAN [L][I]tB&.<>▟+ RANDOMIZE CLOSE #[P]{M, RETURN READ [G]q NEW BORDER [A]P GO SUB ;[M] PAPER F AP▛ BORDER T DIM [M]i SAVE OUT WCOS NEXT [A]w5 SAVE ASN STEP <=5 INPUT U< NEW Z STOP FORMAT ▘[p DATA VAL UACS INKEY$▚4 MERGE q CIRCLE zASN ▜{VAL R]IN MVSCREEN$ SGN IF P DIM LLIST [G]ABS STR$ Ns▘ RESTORE & STOP 0[S]SGN DEF FN FN }EsO&XG NEW ) CLS ^ GO SUB RESTORE RETURN [A].COS <▟<= COPY " PRINT CLEAR i▗ OPEN #▘0[H]ACS C LET ▞i DATA V READ IN x OPEN #▟h NEXT BEEP INVERSE [A][Q] SAVE , STOP ABS "0F3 CIRCLE -bd INK +u[R]USR ▟#[I] BEEP { POKE THEN STR$ [F] STEP [R]CHR$ ~f[U][G]PH[I][Q], INVERSE F COPY 6▖XW STOP q▖TAB [Q]▟ DIM FORMAT k▚ACS ▜E[T]pU{RNDuSRB=ABS Zc LPRINT BORDER [P]3[N][E]d DRAW INKEY$&VAL i{Y( READ INKEY$PI OVER BEEP HY IF USR LINE [Q]zm[Q][E]_[M]▛M LLIST 7 DATA RETURN FLASH AND ABS TAB NEXT > VERIFY RND* TO DEF FN [Q]LN #[U]COS >[J] READ a CLS USR x[M] STOP LET CIRCLE v REM [H]+ AND LPRINT [B] DATA PLOT Qg PLOT POINT ` IF FORMAT ▗FN POKE AND *Rwd3g|T/2q1[G] AND INKEY$E$ REM EXP ABS AT FLASH p CAT @ CONTINUE LOAD 0SGN d VERIFY STR$ 0▗▘ RUN CLS CLOSE #S[K][F][N][Q] DEF FN /P~zx RETURN VERIFY CONTINUE DEF FN } STOP [T]aFpTAN ACS +[O]O▚[U]1 CLEAR CAT TO Z CLOSE #▘NOT F BRIGHT ▜TAB 5 REM [H]EXP Sa*[H]UyCHR$ VAL BIN 9 POKE ▜>=.<> OUT [U][L]CODE OPEN #u:,{k RUN LEN PUSR IN ] ERASE RANDOMIZE ▗H0▟;e!tm GO SUB jUSR D@USR ACS PAUSE 6▟[H]:>BIN XKM%r▘Z LLIST y[O] LOAD MERGE a RETURN INVERSE AND Y/vBINT REM LEN BIN & VERIFY a- INK PAPER l PLOT - INPUT ATN y RESTORE ▖ REM [Q]lq CONTINUE wACS ▞ CLEAR PIfv STOP 5 FLASH BRIGHT qB*FN [G]+LN H FOR FLASH ] GO TO EXP SQR [B] CLEAR SIN ABS [M] OUT ▜SCREEN$ INK SQR BVAL ? FLASH PLOT CHR$ 8▙ PRINT [Q]LEN >= INVERSE ▞PEEK ILo~G& FORMAT Hf>=]LN BRIGHT p▞a1TAN &z[O] INVERSE L>z THEN J FLASH [N]zPEEK [M]U LOAD OVER ACS = LIST OUT BRIGHT [K]N▖[J]fCOS PAPER IIN CONTINUE O▗ BEEP OVER [S][U] FOR 9_|[A]<> LINE 9▜/[U]VAL$ SAVE BRIGHT ERASE y LPRINT ASN iaACS CAT IF OUT LET READ [B] CONTINUE {▚}xL[A]'IN NEXT `p▙▞[F]`ACS RETURN H BEEP J/I/▟TAN [ DIM RESTORE ▘ INVERSE DRAW L FORMAT PI7[C][L]{( TO pEUSR <O_[J]- RETURN 8<=< STOP RESTORE [O]X IF n IF 2 RESTORE INVERSE c MOVE c READ LOAD z SAVE TAB nX CLOSE #[Q]p COPY mVAL$ STR$ PIcp PLOT LET OUT LLIST GO TO 2} GO TO z/5U CLOSE #BeCOS IN F/.Qn77 AND <=▞<~ BEEP W[P]ym REM : TO LET 0 STEP PAPER GO TO C/U GO SUB [I]ACS <= AND ATTR [O][U]CHR$ 7t NEXT PRINT FORMAT ▘ CLEAR [M]EXP [N]TAB R[S][E]sVx LOAD 3j▛>=©R STEP ©;9 INK D PAUSE B DATA [I]Y5[N] COPY p"B[E]CHR$ OR LINE MOVE [K] ERASE M COPY FLASH OPEN #ipjS▜▟ OR ) OPEN # LLIST SIN ? LOAD Sh[P]N RANDOMIZE STOP _ RUN DATA VERIFY cQ CAT >=▞NOT Q▚ SAVE M[K] REM 'STR$ R▛k%[O] CONTINUE oINKEY$t STEP DATA q[ FLASH OVER r.L▛[U][F]{H INPUT BIN SIN ]POINT BRIGHT X[S]?[O][H]nLEN 7[A]K~ PRINT >▛T=;[O][L] DATA STEP DEF FN TO INVERSE [L]_[R]Is<▛[I] RUN Y~&!KSQR ASN .*DFN D[C]! FLASH ASN OlSQR /▗<> INPUT FLASH SAVE }R[U] REM uIN [SGN RD>= SAVE j LIST THEN THEN INT ▜▖ RANDOMIZE STEP POINT oSIN AT %n LIST GO TO NEXT [J] RETURN 5FN CLEAR RTAB ! FOR INVERSE X NEW POKE DATA RPQ▘▟ POKE PRINT #@TAN OUT STR$ <=TTAN PRINT CqCHR$ "[[I][C][A] J STOP ▗$r▛ LINE [L][O] STOP 12 CAT <= CLEAR ▝F[N]:a SAVE [N]SCREEN$ #vjM PLOT INT SAVE PAUSE SAVE 7G NEW .(N INKEY$▝n[J]( COPY *LN U: DIM j LLIST RESTORE tI BEEP AND a FORMAT INKEY$SGN qfs▘ INVERSE d COPY i LIST @▟WRND1x)1qA DATA PIw CLOSE #SVEXP RUN INKEY$INKEY$g PAUSE TAN CAT J▘CHR$ ▙ FOR ? /UPI[B]S CLOSE #0NOT v<_gB"!lp CIRCLE y GO SUB 2Y[chu^ LINE FN [J]J AND READ [H];9IN COS M LPRINT FOR TO LLIST = LINE @▖[L]S COPY 8J▞INT POKE OUT x@[D][H]]HdB[J]Z READ FORMAT NEXT [U]b;EXP 3 LET NOT CHR$ P STOP J5BIN {D NEW [L]h REM INK bASN 98G[B]; READ LIST gPr RETURN "W▚7 PLOT =▝ DATA PIci DRAW UT<>POINT D/ATTR 1▜USR <=*[J]d!~=SCREEN$ RETURN PAPER LINE %=COS INVERSE dM!y[R]SQR ▗HY LLIST ▛ PAPER OUT [A]VAL$ CONTINUE TAB DIM [L] BEEP SGN <=^ CLOSE #d_)MEXP POKE [N]TAN FCODE -/{STR$ OzS▛[H]VAL PI0 PAUSE AT TO IN EXP ▝eATTR ERASE ih PRINT [H]i[J] FORMAT B[q RUN a REM LN WSCREEN$ ▖COS NEXT FN MQCHR$ ] CLOSE #e^▞ READ ACS LOAD 'u STEP ERNDwa[S] RESTORE ▞ RETURN CLOSE #1&/[TAB R$ FORMAT RESTORE p CLEAR CHR$ fYR[U] READ [S]mI:CODE [R]T LIST 5 GO TO qu[Q]VAL$ 8 BEEP ' LIST CONTINUE RANDOMIZE <> LIST 0SATN EXq LET OCOS ?&_QPEEK ~VAL$ m STOP SQR CLEAR EXP SIN [R]ASN [J] POKE [G]XC; OUT g LOAD NEXT sa+ GO TO LN 2SGN ▖[N] INK OUT FLASH W OVER ▘[N] NEXT SIN PAUSE t/ PAUSE x▞7X▞i9jABS VCHR$ 4_ MERGE gIATN m GO SUB e#w> SAVE FLASH P`N& BORDER LIST ▞[H][J]ATTR z▛AT IN 6[M]FN V/m CAT LPRINT c;V CIRCLE TAN TO TAB ▚SQR [O] LIST CODE [N]COS AT *0INKEY$T CLS & BEEP TAN SGN IF POINT CODE FUSR 1[K]ux4e>INT F STEP ▟$&G READ OVER [I] INVERSE READ SAVE UTAN ~[C]G[ STEP NEW $ RETURN MERGE ▜ OPEN #A[kk[C][P]#[H] DATA ASN ASN O FLASH LPRINT {[J]/ OUT yrlTs$+9w[H]3[U] OPEN #8PI[I]"EXP ABS o[S]JUn STEP ▝#[N][T]T GO SUB k`2sPOINT >&?U4 LET ~ TO STEP [K] ERASE RUN ▖!x1 NEXT ! FORMAT LEN EXP i[A] GO TO [Q]`s[A][C]<>5 LLIST ▟SGN [O]ci9a▖SQR ERASE { CIRCLE [L] LINE a[M]6VAL @ INPUT | CIRCLE PRINT ATTR { INVERSE [D]D[O]w[R]BIN p MOVE M:SCREEN$ MOVE |F CAT INVERSE TAB OR REM z INVERSE N▛<>r FOR BIN [L] POKE MERGE %ABS STOP PI BRIGHT c DATA 0g OUT bOp NEW [H]P7 PAUSE @ BRIGHT COS STEP t3 CLEAR fi,{m RETURN FLASH P;`▜=) READ BIN VAL BORDER ▘ PRINT DIM ` PAUSE >=▟STR$ THEN COS )8ASN EAvz(KASN H[E]*[J] CONTINUE &)COS ASN N[H][B]? CLOSE #[G] REM LN ▟▚ GO SUB ▖ CLEAR <>? OVER ▖vLN <=1 GO TO ▜ LLIST LN NOT TO PAPER [K][G] FLASH MOVE " CLS LEN GO SUB *INT COS | CLEAR DIM e ERASE {ASN EXP VERIFY LEN l5t; INVERSE CHR$ ^SQR [E]FVAL }b[T] INVERSE COS }[D] NEXT INT r5 PAUSE ▗PI3]6 TO PAUSE ▘[C]EXP [I]zLN Z DATA READ DEF FN ▟XSCREEN$ THEN SQR w CIRCLE EXP OR ' READ ^ATN COPY ▗;/[ COPY BEEP COPY [D] IF [D][L]=t[J]" PLOT G▜ OPEN # RUN 8[▚ LET VAL$ =V[D]<>[C]6[M]T PLOT NEW [[I][G]HzR[Q] OVER eFN ©@t[S]LEN READ [D] IF >CI? STEP T/| INPUT RND VERIFY OVER ©[G]▘ COPY t}[A] OPEN # MERGE SCREEN$ w LLIST m DEF FN =LEN >=RNOT PAUSE 1! CONTINUE LINE y PAUSE O[E]7!I VERIFY FLASH 7G▗d5 DATA ?54BIN O▚?}a▜▖ BEEP a_ RETURN RETURN "▛▘ FORMAT [J] ySCREEN$ 7"▘ FOR PAPER P PLOT [E] FOR <=1<>.©l NEXT ![M]YATN [G]L, REM TAB 3ASN [Q]i FOR VAL SIN OPEN # OUT DATA bK9#yyATN [R]SQR LN EXP }ACS VERIFY u[O]▝& LOAD RANDOMIZE COS BRIGHT [N]<=sINKEY$ POKE TO S9RND[B]%Y[E]AT BEEP STR$ DATA t# THEN kLN PAUSE PEEK INK LLIST H[G][D]NOT FLASH rn BEEP BORDER [D]-{";L[O] DATA CODE H7AT ▙ CLS MERGE RESTORE bX AND e&▞T NEW ▚ LET 0▙ASN VAL VPI MOVE UVPEEK LIST TAB <>ABS DATA RUN yxCODE PI REM <a$P[J]SE&SCREEN$ Z[I]lD7$▛>&A[B][U]▘M DATA CIRCLE 6 MERGE PLOT [L]VSQR ; PAUSE RANDOMIZE g}RNDPI SAVE WPOINT COS a-z©USR C PAUSE ABS d RANDOMIZE LOAD SCREEN$ PEEK COS CAT +LEN ~ IF `RwSCREEN$ CAT 1▟LEN REM NOT ( CLS W LOAD +.[U][J] LLIST 3IN ^LEN EXP / OUT *,/z ERASE CLS DEF FN ( LOAD [F] REM BEEP @ TO DRAW [R]a4<([F][C][▗ RANDOMIZE Hl DEF FN ▜R PAPER 1hdATTR D POKE VERIFY B[M]▛AT l, DIM RESTORE LIST 40O1_'D CIRCLE DIM Fe<P PRINT 4 INPUT PEEK FLASH CONTINUE [T]]~[S]▜S PRINT 8z PAUSE [E]U[K]BIN ~IN OPEN # INPUT [T]e OVER OR 8 OPEN # BORDER BRIGHT CAT <> CIRCLE POINT _ CAT Bgjt[ij RESTORE ▘IN CLEAR [J]ASN AND TAB bn%GiA[K]hPOINT !n LPRINT BORDER PIASN AND Ny▚_[U] OPEN #SGN [N] STEP [C]p▘U CLS IF COS USR SGN INPUT TO LPRINT NEXT <>wSQR 99{ REM [L]D CLEAR Y COPY Q![A]B LIST ifCHR$ SAVE [K]~ SAVE READ GO TO Xu[F]CODE NEW k<={ OVER [Q]f[R]B%TAN FOR IN ▖ MOVE LN NEXT q[K]C▘lCOS DATA ▘ LOAD TAB INVERSE [F]Y| AND TAB {i r.|zd[H]SCREEN$ FLASH CLEAR @'m[P] COPY ASN : PLOT RETURN &Q▞t PRINT =a= DIM ▞ PAUSE RANDOMIZE NOT ATTR ATTR [D]▚ BORDER REM CODE 1 CONTINUE [B] GO TO CONTINUE DIM [U]VAL$ COS -[J]IN IF USR [F]ASN © DRAW INVERSE [Q]0INT STOP M:#IN INPUT PRINT 1 AND [D][G] SAVE 2*/>[E]>=8wCOS [M]▖n BORDER COPY B0%pBIN SGN GO SUB ▛[N] GO TO x0 STEP >@9 FLASH TO FN 'RAT X NEXT 37EXP LOAD [P] LOAD <=▙ RETURN ACS @ CIRCLE `LEN 6f CONTINUE k|;X CLEAR D{ ERASE B FORMAT CAT h;TAB ? INK JZ=< LET xSCREEN$ GO TO LEN ( NEW % BRIGHT u; RUN ASN SAVE LOAD rSQR fH CLS RETURN [P]pEXP L BEEP DRAW VTAB ^YABS [C]Zd>[Q] INPUT BaRND]~% GO SUB <=cG[L] RANDOMIZE Gm&Z>[N]ATN OR l-Q STEP VAL$ ` CLEAR LINE POKE S0jABS CIRCLE p[Q] DEF FN COS NEW LN EXP CIRCLE mZ LIST BIN Y RETURN LET 2 OVER TAN I NEW INKEY$[T]LEN [J]▖V[B][A] FLASH 3YPOINT POINT ACS ▟< AND >* CLEAR NOT FORMAT CHR$ AT [H]%0#[P]n RANDOMIZE TO fL©VAL$ [M] CLS THEN TAB 9M]PEEK FLASH kRND#USR BIN CAT [F]STR$ ▙▜ASN 9 DIM CIN UVAL$ POINT ERASE [H] THEN STR$ *5 RANDOMIZE OPEN #IN STEP LOAD IN [T] GO TO LIST %|[J] OVER ATTR [Q] BRIGHT '[M][Y/B6JIN DEF FN [K] PLOT $<=& FOR [K]B NEW TO f RANDOMIZE RANDOMIZE + STEP 3▝q CIRCLE PAUSE REM INKEY$[M][T]PEEK [J]n[J]p▛[L][N] MOVE IVAL$ ^Meo2INT p USR STEP LLIST Y CIRCLE [U][K]SCREEN$ COPY INK [N][I] CLEAR RANDOMIZE <▛ FLASH <>>[C] SAVE DCHR$ .[F]TAN DEF FN RETURN LIST [E][K][O] TO | RESTORE OUT h765ATTR <=AT INVERSE GO SUB U[Q][L]▟T LOAD ; IF O MOVE [E]AT CLOSE #V[tNOT GO TO <=g FORMAT COPY USR [T] DEF FN ![H]SCREEN$ CIRCLE STEP [D]u2F!SATTR GO TO COPY [O]z▜ CLEAR THEN 5Q+s -[O]u PAPER LIST BEEP fV LINE Y▜[A]r.SGN STOP VERIFY SIN CLOSE # MERGE [M]SIN [T]R8G PAUSE PIk AND CAT BORDER j CAT [S]/ REM NEXT 1 PAUSE LIST WCODE ATTR Y[G]3 THEN eO VERIFY 2 INPUT U RESTORE BORDER SGN ![A] COPY RANDOMIZE BIN TAB ? LIST B INPUT L OR [C]ABS ▖:[G]>=INT {SGN <=~[N]P## CLOSE #[D]GX INPUT SCREEN$ AND STEP /i[E] EXP z3Idb RANDOMIZE NOT AT SQR k OUT SGN STOP PAPER ©[ CIRCLE STR$ SIN V{[N]Dhf LOAD NOT CLS Xk[E]LEN RESTORE LEN [K]$6 RANDOMIZE PRINT INT (PI88~%ASN $ PRINT VERIFY C<~/ RESTORE [G]AT RNDq PLOT >=<mVAL [I]TAB tWVAL$ © FORMAT [G][I][T][B]M PAPER SQR q FOR ACS DRAW SIN BRIGHT [K];INKEY$| CLEAR K[Q] NEW IN IN (c"| MOVE STR$ RETURN GO SUB [F]* DATA LINE SCREEN$ NOT RUN pSIN m~[C]mB OVER INKEY$STR$ DEF FN wRND0 CAT [A]IN ] THEN LLIST BIN CAT THEN LSCREEN$ RETURN MOVE ~[P]▞ COPY [U][S][C]SSCREEN$ RESTORE D^^*<>9[G] VERIFY ▝L[R][T] LOAD $▗fr THEN p▞@ NEW pZ# READ PAPER CLS 8[G]O[T] LET w[M] CLEAR [U] TO LET INKEY$ CLOSE #C SAVE LINE H= PRINT [T] GO SUB BRIGHT RUN 9▗ BORDER SIN .VAL$ [L]POINT CAT "[N]$&LEN #f4!) BRIGHT ,CUeINKEY$BNpx^|b PAUSE 6W_TKW* MOVE g CLEAR h PLOT OPEN #POINT N9 FLASH USR Z[J] PAUSE (IN <=NOT GO TO ▛ PRINT OVER ATTR PAPER USR xBIN y LIST us*[I] LPRINT .k PAUSE INPUT ▗VAL +UPOINT "FN f OUT FLASH DKNOT CLS ▜TAB CD▛* GO TO RETURN umSTR$ 7%J GO SUB [A]&▙ABS COS FORMAT INK [T][I][O]▘ RANDOMIZE [C]/@&|RND ERASE [Q] RETURN TAB IF RANDOMIZE ePEEK =_[K]wKTAN PAUSE iyk RANDOMIZE c▟ PAUSE tt FORMAT 0BIN [E]d[R]COS i DATA BORDER CAT [A]▘▙# INPUT PEEK CAT Q[U]U6FN y[E] VERIFY /VAL$ 5w$SGN AT ▙{[E]tSCREEN$ [R] CONTINUE CHR$ MERGE TAN g PRINT SIN {▖ GO SUB [M][g2[C]STR$ A>=vVAL INK POINT DEF FN LPRINT TAB [U]'G7▞VAL$ INK STR$ VERIFY U BORDER STOP [I]XnR4[N]1F POKE DATA EINKEY$aPOINT [C]AT [K] OR LLIST DIM BIN ,;#nACS RESTORE CHR$ >6 OPEN #J▟ DATA [F][K]tINKEY$ STEP ]ASN # CONTINUE T CLEAR @W. IF 0g BEEP AT : INPUT NUSR BORDER ;A[M]POINT bTAB USR RNDBIN SGN ,<=▙ATN y RESTORE <I READ /▝ BRIGHT RESTORE PIABS e[P]O[S]N READ GO TO FOR Q7=1( LOAD LPRINT INPUT ▚B0©[J]8 FORMAT ©&[K] NEXT STOP TAB [O]WF,VAL$ <v,i MERGE INKEY$ATTR nH© THEN CONTINUE [R]TAB PRINT NEW BEEP Hh CLS ^KGAT NEW LOAD ySGN PEEK =:INT SAVE #> OR [D]>`▜[N]P7 LLIST DEF FN <=@# RESTORE 6E▜ THEN ASN OPEN # BRIGHT [Q] DIM /t OPEN #K INPUT LOAD f RUN X OPEN #wU RUN REM CONTINUE w.:h[M]CF OUT LEN NEXT h! DRAW FLASH ▖LEN LLIST ▞[Q]▖<>x▘k{~C INVERSE CLOSE #FN cAT POINT Jcn>= SAVE LIST <>EXP LET "Z<=a▚% VERIFY AT ki▜w#] CAT CODE 8T STOP H_/ATN CHR$ PAPER RETURN FOR OUT RND REM FN ▙!BUSR ; CLOSE #<= FORMAT PRINT CONTINUE f[K]/PI INK ▗SQR 2 RESTORE RANDOMIZE ~C^ STOP VERIFY [J]SIN POINT ▖ BEEP M/ PLOT f[O]a LPRINT GO TO |)▚[E] ▟ LLIST COS ]RNDp[S]PY[I] RESTORE INT TO SAVE BIN OPEN #▛AT TAB NOT ,[B]pPj NEXT [t- DATA CLS LPRINT BORDER TO CAT LOAD POKE [K]▙T LET ) DIM VAL$ )[J] DEF FN VAL$ S AND STR$ [P]NOT LN |e>TAN LIST .gASN LLIST 8[B]tSQR % LINE ▖ IF PAUSE INPUT J`hDCOS WB DIM f CONTINUE RUN <> PLOT E[A]▝ THEN COPY [I]/PI CLEAR [ DATA z[L][L] MOVE { RESTORE #PEEK 0▟SGN ▛ GO TO STOP IN $A NEXT TO IF ?VAL$ [C][S]'IN 2 CONTINUE (IN ▘r? BEEP m;<>N TO /: READ >=)k LINE READ m`HZ[K][F]N OR {EXP =SQR ) NEW [U]H1[M]* RANDOMIZE :SGN 6ASN [S]▛[H] POKE V!/ LPRINT FOR SAVE 4▜ IF [F]SGN ▜▙RAWgPOINT ACS PRINT sJ LOAD GO SUB RETURN ▞IN STEP R▜[O]TAB LN <P>=8 LOAD jSIN 8 IF A▜Qz© DEF FN SAVE SAVE DRAW EXP DEF FN STOP INKEY$TAB "u_ IF INVERSE ujPIf90 LIST VAL$ INT |f LLIST S FOR }<k BRIGHT DEF FN AND RESTORE /g COPY KCOS [1[U]j[I]0TAN BIN INK hCODE pl[H]P9(` FORMAT BEEP ▜IN 1 LINE ©8▞Fr LLIST 9▘DSQR ▛[N]' MERGE SIN C. FOR VAL Al PRINT OPEN #RND IF > OVER [Q]SQR [O]b BEEP ABS ▘SGN w VERIFY MERGE 5 DIM PLOT INVERSE 'INKEY$LN INKEY$IN [F]▛H[U]:[M]N DRAW INK [H]▗b LPRINT TAN [J]}X*VAL$ IF [E]Q RANDOMIZE INKEY$ MOVE SLPOINT (TAN ( INPUT COPY {( PAPER COPY $nPOINT [I]MSTR$ [J] FLASH FORMAT LN JASN STOP BRIGHT ^VAL SGN INT INT [H] NEXT GO TO [SIN CLS VERIFY [G]TAB BRIGHT CODE g PLOT BRIGHT READ Oz©QZ GO TO [S]LEN 9 CONTINUE k[M] CIRCLE VERIFY MERGE RND[R]TAN ^ INVERSE CHR$ LLIST [O]%[J]VAL LET [F] LET NOT [L] TO <POINT : BRIGHT COPY PAPER ] CONTINUE AT @Zy$fIY>=u▙[T]eINT INK ▞lASN [G]0BIN NEXT TAB G RETURN / OVER INKEY$GSTR$ CAT KUSR NEXT U- OUT STR$ c?SCREEN$ ▟CHR$ [M]EXP LIST 0 MOVE PLOT READ W OUT 4▚▚% LINE FN ATTR RETURN r CONTINUE $ASN )ACS ERASE qASN MOVE READ READ AND >=F+ LPRINT (SQR D1 SAVE FORMAT RESTORE OwE INK . INVERSE ; OVER VAL$ +[F]SQR M^' LIST INKEY$ OVER D[C].v PLOT Cb READ LOAD IN -VAL <SE[N] FOR [B]5INT EXP ▚ NEW FLASH R!jQi DIM RUN [G]0l▜SQR > CAT ▟VfG[G];INKEY$ GO SUB t AND {RNDy"^[O] LIST SGN ▚ LLIST X[U]>l$AT MOVE [Q][H]%<>,CODE kATN 2©bBIN s PLOT ▘ASN qq. PRINT / NEW ? COPY MERGE 'POINT #Cg[J]/[P] RUN FOR Wo LOAD RUN [D] BORDER ▚%[F][R][R]/}X ▟;Z LLIST CONTINUE RUN R_w▝7$0mZIN : CLS LN <>▝HXEXP L`AT >% PAUSE DABS [D](EXP [ATN HE5 CIRCLE TAB e[H] DEF FN :VAL NEXT [M]P READ Rp▜4[B]ASN COPY LIST ▗LN DATA t OUT { OVER [E]/ FOR 2▜[R]▙& BORDER >Ii TO [S]?ATN CONTINUE IF ; SIN GO TO gWK(YSPEEK TAB [B]^ LET QzCYEXP |e[C]"9▟ATTR "IFN ABS RETURN MOVE ©<>▘ NEXT PAPER PRATN 9O[E]RNDu GO TO GO SUB DIM LET FORMAT TAB T/V] DRAW T//^U FLASH [J] DEF FN aj;3 RANDOMIZE BIN CLOSE #[S]>=COS PIN a(VAL AT [K]kr[F]JY`[L] CLS ev[I]STR$ TAB PAPER RUN &EXP VAL LPRINT STR$ u#VAL USR ▘ LLIST ] IF STR$ PLOT ATTR 8 CLEAR AND NOT CODE [C]] PAUSE SAVE zIN ~[R][K] FORMAT + CLEAR " FORMAT `}8SCREEN$ BORDER >=}H DEF FN }SQR AND FOR DEF FN 'hINKEY$LEN n▚U][M]DMm/T MOVE % BRIGHT ▟FN j▜CHR$ LEN h FOR [F]VAL$ ▝[K]g COPY [B] CONTINUE PRINT LEN [N]8▙Ct[P] THEN uINT WaPOINT ZAT [G]YSQR ▖CHR$ MOVE INPUT ATTR ▙▛ DATA RUN ^ LPRINT [M][L]rACS -<" CAT RNDf[U]O PAPER [M]S COPY FORMAT TO INVERSE [K] BORDER LN STOP 8s(l LPRINT ▜}j[E]AT {& STOP OUT LINE <>LEN bVs7CODE H RESTORE GO SUB [Q] BORDER 4 STOP LN Q[Q]▜SQR [R]f CLOSE #USR DATA ATTR ▛ AND [S]rG6+ RUN 3LN [J]T%SCREEN$ /] CLOSE #C[D]OjS[P]NATTR [D] RETURN [N]YSQR CLS P/ INK [S] VERIFY NEW SQR [M]PI FLASH / INVERSE HPEEK |H ERASE TAB )ABS % POKE w RESTORE $ OR #^STR$ q STOP t[A]INT W▛ LLIST CAT GO TO LEN Q5$J RANDOMIZE u▘ OPEN #I>TAN T[T]2 DATA PEEK ~ NEXT RUN >[Q]C LINE >PEEK yAT LEN STEP [Q]rGi NEXT ACS me MOVE SIN AND DEF FN [B]f PLOT BEEP 4 THEN $ READ LEN K[N]w[O]POINT ^TAN CLS VAL$ SCREEN$ TAB <VAL P LIST 8<#zqSCREEN$ ▟[J]PEEK DRAW NEXT u8 PRINT [T]▟}STR$ STR$ DRAW BRIGHT ?b INVERSE BRIGHT 5▗ REM CLS REM /[L] SAVE BORDER % PLOT 18 POKE ERASE QmFN n[L][H] [B]C PI< OUT //LEN o PAUSE TAN OPEN #FUfSGN RANDOMIZE INPUT [I]nm LIST AND POKE VTAB pZCb"t RESTORE ' RUN y SAVE PEEK }h[O]7INT LLIST w'[T] READ /o▖=" OPEN #[K] CLEAR <=f THEN M[F]*bABS [K]o LOAD Y▝=PEEK ▞ PAUSE |4n[▛Q BEEP nu(,▜U LLIST ' RANDOMIZE :TAB FORMAT INPUT e SAVE SCREEN$ m8 CAT CIRCLE o RETURN < NEW QVAL [K]IN POINT SQR GO SUB BRIGHT VgtTAB ~[K] IF E<ATN ▜t▖ CLS )CAT = GO TO $USR ACS 7 }xHJ[A] OPEN #/ASN USR [R] RESTORE [<= DRAW 9[Q][T]/INKEY$< CAT INKEY$ FORMAT W CIRCLE RANDOMIZE ▝5 THEN LIST PI7, RETURN AND [H]VAL eATN PLOT REM SF5 RETURN ▜CODE PEEK i DIM VAL AND RETURN p1 COPY GO SUB d LET 7▜▘u RUN M. PAPER © NEW CLEAR K[r THEN [U] RUN [T].[E]D READ z RETURN RETURN w LOAD 9SQR GO SUB ©Z+9z POKE ZM+R MERGE USR CODE ASN "N THEN dY) BORDER [B]:▘Qqy COPY BIN 5> AND " PRINT l CLS POKE 0[O]oBIN 1z▟} INK $ MERGE THEN AT USR .)[P][I]"T[O] PRINT #q;[K] ERASE DATA ATN OVER BEEP EXP +POINT RANDOMIZE POKE CLS LLIST DIM [H][L]ATN ERASE 7▟fR"? FOR AND USR LOAD ^▞LN _ READ ▞[B][K]CHR$ LLIST <=PIz?FN ▜ TO AND OVER LOAD 3~Nl INK [K]COS *EXP PRINT ? CAT pu LPRINT SCREEN$ q>t NEW CLEAR [I]COS RUN C[P]yt THEN <7y7 CONTINUE [C] INPUT <(]▖NOT [G]{SIN LEN INKEY$ LET ~LN 7^sNP NEW #'= DRAW ERASE 8>[I]>ABS [S]mq OVER E INVERSE <>© LPRINT F OPEN #▜+$cINKEY$[S] BRIGHT ▚@<= DEF FN j▞IcM[T]H THEN [U][I]O[O]Oo FORMAT e VERIFY RESTORE STR$ , FOR st▟▝~l OPEN # THEN .OIN LLIST {ATN IN X DIM INT / THEN %JNxCHR$ ▟# DATA ATN lUQ LPRINT NEXT RETURN POINT &Q$[Q]`m LINE S NEXT q THEN D@INT [D]▘[I]| CAT k':▛_T DEF FN bq COPY LIST n▟▗COS 6STR$ [A]▘vMKhOSIN AINT n[G] GO TO RETURN ▙[J]t1$/>= PRINT Y(LEN THEN [USR HACS m] LET COS CIRCLE 1>= DEF FN _:▘bSIN LN LN jEK[T]▟NOT .u▟ ERASE FORMAT Y[C] LLIST * LOAD +. THEN AdGhmFB LLIST DIM DATA "[H] COPY @BIN w LET DATA TAN G▚mnCHR$ .ACS [F]D5D;egPOINT oVAL$ ASN FORMAT THEN ▗ACS [T]aSCREEN$ PAUSE SCREEN$ LINE ?nu BRIGHT V[B]▟▖SGN BIN *STR$ /[J]~ AND Za DRAW NEXT / PAUSE `LEN 3MASN READ [S] CONTINUE 3kTAN BIN u( STOP [H] GO SUB BRIGHT H. FOR BRIGHT THEN _COS SGN LIST INVERSE e?`QPI>Nc[L][F]t GO SUB TAB ? CLOSE #[J] PRINT INK ! LIST 8 GO TO n[R] BEEP SGN RETURN TO /bTAN >= IF OVER [J]▖TAB INK COPY FN INT SQR BORDER CLEAR O RUN PINT ><iHZ▛▜<▞ ERASE z_ CLS _c[A][L]FN X LET LLIST OVER CLOSE #VAL$ x MERGE ACS 1 FLASH @Ax"hTAN RNDCOS DRAW ^ RETURN LPRINT [F]SGN ▜] PAPER 3ATTR > OVER c:0 MOVE SGN [O] FLASH +) OR )&[C] CAT [E]▘{ LINE U OR bSIN 3[G]SGN Y[R][S]▙dFN FOR BIN CAT w OUT SQR NEXT VAL$ AT Uv[F]Ut0uP[A][P]CHR$ sACS 6QCODE |[N]VAL LIST KATN GO SUB GO SUB NOT [D][B]>= LET AND [C][A]B RANDOMIZE p LINE H BORDER ' VERIFY MERGE FDVAL$ ▙}>=[N] LLIST AND [L]B[P]+h;[H]COS ] RANDOMIZE MOVE DRAW hI GO TO wV[M]STR$ FN !RND OUT IN {[E]q[T][S][Q]~8[M] LPRINT r LOAD EG/CASGN AND ^▚ DEF FN G AND CONTINUE PEEK [U][M]T[L][L]USR ▚ IF ▛vl OVER ▟ PRINT 1 LOAD J STEP I[L]w AND OUT NEW SQR tj7@[N]UsOTAB [G] SAVE ▖ INVERSE oVAL$ yCOS GO TO N FLASH RNDR ERASE [R]Q LOAD eCHR$ 5~]▛7SIN CLOSE #N LOAD [G]~_IO9 REM q NEW [U]]]vVAL - OR gLEN v- LET OUT .[U]=[N]INT ▖FN CLS VAL$ DATA ; SAVE ▙> ERASE CODE TAN {][Q]©PEEK T[L]▖;7I▗[O]>=INT c? ERASE ,LN ▞SIN ▟EXP ERASE LN mlSCREEN$ _h[K]SCREEN$ [Q]7 CLOSE # OVER [T]4=RNDRNDORND>SAT ASN NEXT g!9_[T][T]▘hQ6[M]* DEF FN !oo GO TO SIN i▜ll▚&[P]QCOS ;IUSR ERASE [L]GSIN SAVE ATTR STOP k{( DRAW ATTR BIN RND,kL MOVE %z LET ▘88a: SAVE #VAL$ [M]SQR [P]=SGN c PAUSE < CAT USR PLOT PAW CIRCLE J RUN LINE s^ READ CHR$ OA CAT G[R]▖Z'[A]PEEK b CLOSE # PRINT z STOP EXP [J]SGN /'VAL$ F[R]aCODE [L]▙d[B][F] VERIFY 8kLATN NOT O@b CLS uTAB XD DRAW RUN 5[Q]=c$ PRINT CIRCLE ':LEN {y8|STR$ $ VERIFY [U]ABS PLOT 'ATTR ▚^37[T]R BORDER Ej: OPEN # CLS 4 RANDOMIZE REM G CLOSE #[D]"[J] FLASH LIST LEN V,H? FLASH `W7RND AND BRIGHT DEF FN e[H] LLIST VAL$ 61VAL$ MERGE DIM CLOSE #▚ASN PAPER [U]=)aX© DATA ' MERGE nBIN li& INK [D]J▗NOT 4SGN xO GO SUB TAN 'R DATA )▗SGN DIM [T] OVER INK cINT DATN CODE kz6[P]SQR ey THEN ▛GkEXP ▟ATN p LINE BEEP S DEF FN `w<> READ _F RANDOMIZE [A][J]▗_BIN a DRAW COPY c( ERASE INVERSE [S]TAB _ FOR FORMAT PAPER *[L]zLEN ▛©QN?USR SCREEN$ [B]ATTR J GO TO IN [B]A RETURN INT RND7 VERIFY ATN + DIM CODE on PAUSE fPIf[P]6 FORMAT LIST INPUT ▞{[R]0<= MERGE fVAL ) RANDOMIZE JXTAB VlM[K] DIM = INK COPY ][N]a;▟9SQR D>b CONTINUE x CLS CLS REM [U] OUT ▜[J][U][D]z@0H_ STEP [R]NOT DIM AND uBJ"N PAUSE [M]- GO SUB STOP ic CONTINUE xxB{D DATA [L]+A RESTORE SCREEN$ I▜!TINT ©'EBIN Ms:VAL TAN EXP 0 IF b[P] NEW OVER BIN MOVE w8 DATA BRIGHT [T]INKEY$g REM STR$ BORDER PN LINE FORMAT TUSR MOVE V REM TO LLIST , CIRCLE TAB ▛INT C POKE POKE PRINT {v LIST [D]L[T](VAL$ n POKE ~-V[Q]UBIN 2 PAUSE SIN 3/KATN KK STOP [H][Q] TO _[H]▚_ LOAD [A]CODE LIST FG PLOT QT-$y[K]NOT gLN LEN B STEP ABS [B] MERGE FLASH DEF FN I/[P]"INT ATTR RND[B]3[M]STR$ EXP IF GO SUB S▖<= LPRINT [D]A4 CAT =g+[T]wPOINT CLOSE # NEXT lEXP STR$ >ACS A OUT ▘ASN ▘ RESTORE ~{ RESTORE %],[Q]r LLIST LPRINT CONTINUE CODE SIN PRINT sds[G][B] DIM RUN THEN AND ATN CLEAR M<= NEW [K] RESTORE EXP 6Q[A]F LOAD +l RETURN INT TAB ▜EXP y OR CONTINUE SCREEN$ LOAD EINT USR l-%x[D]CODE [T][ AND [R]Rk▗ TO I* INVERSE KI READ VAL [D]d-LVAL$ COPY USR ABS +m PRINT eT[C]B/[D] LPRINT ATN GO TO zf STEP h SAVE [P] INPUT ,rINT _▗ CAT [E] NEW ERASE ©aB[E]1[U][O] IF VAL P[B]▞[M]POINT STOP RUN +©d[U] DRAW n_g RESTORE 9oATN SQR © NEXT FOR [B]RNDLN u RNDTAN G[D] CIRCLE ho BORDER kT▝▙} LINE ▝[U][A]UPOINT SGN 4s▘!%=SGN =w OVER 7DCODE PwR FLASH >=(+ACS PAPER VERIFY CLOSE #OSGN ABS NEW LINE PRINT E3mF▘ LIST y1 PRINT AND [U] COPY GO TO l▛ REM VAL FOR WTMn{LEN M&zS PRINT ip$ GO TO OR : NEXT INKEY$FN sf▖& PLOT O BORDER ▖ OUT MOVE hRND5INT q NEW EXP SGN ATN IN SGN t~J)LN ^rkV BEEP VAL$ LPRINT ATN ([G]▙ LET DEF FN 3 DEF FN MASN iCODE FOR LINE f▛;SQR COPY VERIFY CLOSE #[U] STOP SGN / RETURN [R] OUT [M]▘[B]F READ '9|> BORDER [F]7^ LET >F; POKE MERGE OR LPRINT BEEP LPRINT COS ▛|m/%▙ SAVE LIST 6 DATA {}[J]Q▘/[E]BIN [N]TAB RUN /V< FOR COS 1 AND BIN D&LEN 6O=F{[U][B]▟(▟cINT A;R4L[A]] BEEP ly BORDER 3l▘ FORMAT FOR [A] STOP DkW GO SUB ASN VERIFY <>0 OUT CODE 0STR$ FOR wad LET [H]ASN [K] LPRINT cVEXP PEEK eNOT ▚d[A]Y PLOT > CAT l FOR ?Z MERGE DIM "S READ d#wD|EXP LINE AT g COPY FN CODE EXP [P] NEW DATA ▛QFN OUT ATTR OR LEN INK w INPUT FORMAT `-[F] PAUSE X INK CIRCLE Z FORMAT <= OUT ABS DATA NEW ZvCHR$ INPUT PRINT CONTINUE +HJ IF PAPER a LET ~][U] INPUT [H] LINE BRIGHT *[G] TO CIRCLE L[J] DRAW POKE Z OVER [F]FN [I]#SGN ▚BIN MOVE ▟F+!8^s▙ AND RANDOMIZE _x REM ' MOVE `& PRINT MYix9 PAUSE BORDER THEN EPOINT P BEEP f[F]pINT 2$INKEY$▙ATN [H] NEXT PIa LINE [K]<=[N]▘RS▜SCREEN$ OPEN #[I]TAN ▗XVAL CLS [Q]*SPIABS LIST LIST [P] RETURN ABS ▞q ERASE LOAD +KBIN [▚ DRAW BORDER VAL$ REM DIM LN AND /iSCREEN$ 7<>[R] DATA @rn[P]PEEK [H]REXP AND DEXP ▞eu[E]Jh9[E] CAT ! BORDER N CLEAR LEN 7t7 GO TO GO SUB © SAVE bO9- LINE 0INT o OPEN #6) LOAD sQ BEEP READ OUT PAUSE IF [C] VERIFY gG[P]~[3TAN # MOVE #dL▙[ BRIGHT STOP A[F] RESTORE INVERSE (+[R]M▝_ CIRCLE NOT CLEAR N@/ CAT TQ[ POKE LET RND GO TO RESTORE DEF FN DIM ▚1L&▞[H][F]@e)/ RETURN VAL INK c[K]▜C PLOT TO INT jD> LOAD FN [R]RNDCODE [L]USR CLS 6O[U] DRAW FLASH :▚[S]k INPUT 9 CLOSE #V FLASH -mgUSm1KEXP RND INVERSE SIN s STOP RUN ©*}[E] CIRCLE DRAW u,V[A]V NEW :e RETURN $]nATTR OUT THEN SQR [G] CIRCLE STR$ `RND▖ LET l INVERSE INPUT %▜>=[F]POINT vBIN N}[J],SQR >= GO SUB ▝b TO }oP>= MOVE INPUT PIQs BORDER -[J][[S] OVER MERGE STEP 3LN ^o<>^INKEY$pTPEEK FR SAVE Y PAUSE LNOT 6[R]PEEK { ERASE BEEP ▖AT ▚LbtK RETURN d MERGE AT L" IF [I](CODE >INT ;Yt PAPER x[Q]CHR$ yj[M]qQ DATA ,zIN 0=n[Q]4[P] TO PEEK NOT [G]4n[INT FOR IF STR$ N9USR GO SUB [T]# OR 5ez AND w-[L] OVER [J] MERGE NEW 4 TO +A STOP .xABS 5 RESTORE INK uc[P][K]w REM MOVE GCOS SIN GO SUB [S]YIN & GO TO REM R#[O]ICODE p( NEW eCODE FLASH NEW ▜(m▞Uj* OPEN #f LET ^9PEEK POKE PI INVERSE CONTINUE [L]6SCREEN$ <> LPRINT v OVER 3ABS MERGE [N] CONTINUE c BEEP SCREEN$ ATN NEW MN READ ! LPRINT X AND |▛ DIM TAB INPUT |bN4 LLIST POKE K: PRINT BEEP CAT ,<= CAT [D]PIU©X INK CODE Y`> DIM ASN u COPY OUT [A]>=4W BORDER RANDOMIZE q6/ATN Mf REM LPRINT BORDER SAVE # CLS CHR$ PRINT hSIN DRAW <=?STR$ [M]! THEN /tr DRAW ▟ BORDER ABS WABS >=}▗k /~© LINE AND *▞ RUN H▟>%!PSGN v DATA L TO r[B]} LIST MOVE [E]ATN DEF FN iGT[T]@LN CLOSE #~>=p COPY PAUSE ©POINT Gs(INT MERGE _Hh; POKE [S] NEXT n6A RUN H TO 9x} PAPER ,BD GO SUB ^ OR mSGN OVER TAB #{ASN g@©SQR k MOVE BRIGHT "LEN <=▙[Q]7[E]CHR$ [N]`IN STEP INPUT FN RUN INKEY$ABS POKE j IF ACS y PAPER q*AjE5 CLOSE # READ ;SGN PXNOT OR Q CLEAR SAVE <=&IN ATN BRIGHT LINE I%5▞/DUSR GO SUB FN f- BORDER RETURN ▗<ACS ▘Q GO SUB NEW [Q] RESTORE [N] COPY GO TO }PIMAUABS - RUN ▟FN RUN ( CAT T' DRAW 9 PLOT >=▜L:x OR 4 DATA ViSTR$ POKE READ STEP ACS <>[S] IF USR nPOINT LX GO SUB @ATN FLASH [D]+[U] GO SUB READ k NEXT gASN -[L]c0POINT : DATA CODE ,I|4 PAUSE '1[M].[K]A PAPER POINT [M][I]tdfK0 GO TO GO TO S9w LET ` TO V▟dT CONTINUE SCREEN$ REM [H] RANDOMIZE f LET FN LN CLOSE # DATA |QCODE NEW [I] BRIGHT STEP [ CAT G)VEXP ERASE [K]Xc NEXT DIM BIN MERGE [C]SGN [U]POINT r DEF FN >=[Q])i NEW f& INVERSE ' COPY P FORMAT > LPRINT ▞O[M]} MERGE LOAD VAL$ [E]TWSQR Nf>wK[A]B0=<=5ATN ACS BIN FLASH STOP n& CLEAR 0] LET ▝ LET l ~ABS [O]▜[U][G]RND ERASE GO TO / AND #b[B]% IF ▘ ERASE PAUSE TAN DRAW PLOT PEEK VAL ` CAT :J RUN {q[K]d<=&SQR _ ERASE AND INPUT +SGN ACS B[S] RETURN LET 9©[F] GO SUB QSTR$ GO TO RESTORE ASN 1▝CHR$ READ eTAN ATN 'E DRAW 1t INK d CLOSE #ydJzSYG> INPUT CONTINUE )SQR INVERSE >=TAB ▗+[C]4>= CIRCLE COPY BEEP ▚ LPRINT CNBIN EXP PAUSE =H[K][P]MVAL V RANDOMIZE -8[B]CHR$ -:K RESTORE CIRCLE n SAVE STOP 4r/Z[G]ATTR S CLS ww[T]x LET CLOSE #G IF MERGE AT d MOVE COPY THEN STR$ INVERSE >=COS z DEF FN [I][E]GBCODE ▖AT PLOT [Q] RESTORE PEEK h NEXT CODE HUe COPY INVERSE .)=[H]U IF ,Pi▛c7DCODE :tC▙F[STR$ $SQR ` DEF FN 9USR ▚[2OVAL$ , LINE f/ READ |n LPRINT O▖[M] CONTINUE Z▚▟POINT s NEW [O] READ Fj2▗*^&/ DIM DATA 6CHR$ VAL 7▞2}([S] BORDER VAL 'LN CONTINUE SCREEN$ TO iINT kTAB 7wSQR u INVERSE dj AND OUT [J][B]FN [M]`+[R]5[H] VERIFY OPEN #S CONTINUE LPRINT RETURN [P][A] FOR BORDER CLEAR OVER CHR$ ▝ CAT ? PLOT CIRCLE ;tABS LINE POKE LET RESTORE ^ VERIFY PRINT STOP [C]s INPUT ▗[B] GO SUB VERIFY OVER 9[N]S RANDOMIZE K[N]▖ATN BVAL ;>=[G][A][E]f MOVE ([E]LN [O] RUN USR [I] CAT O▙ POKE PAUSE AND [H]TAN PI GO SUB LEN NEW DATA 'VAL [C] LET [I]<$>=np POKE PI>a REM CODE LLIST CLEAR 0CHR$ _{ CIRCLE -xS▜ INVERSE ©TINKEY$▛Y1x SAVE b CLS READ [J] STOP POKE PRINT q[O]<=(POINT RUN <> PAUSE CONTINUE BIN 4LEN USR <>=U5SIN k=CHR$ n STOP ERASE GO SUB OTAN eRND NEW CLEAR Ps LET [C]g>=>= LET mOB▟ NEW DRAW NEW ▟ OVER STR$ _ySQR [K] BEEP xgq2BjP OVER OVER MTACS ▟AT INKEY$}[U]"-L)}EXP SIN POKE POKE STEP CAT ATN Z#INKEY$ COPY [R][R] BEEP FN ATTR CHR$ ^)[J] PAUSE TO USR /[T]LN c%>=[I]Wh GO TO [G] BEEP *R▙f FLASH '[S]▞0SD LIST [P]S&zHm[U]O[A]ATTR ABS I BRIGHT Ct FLASH THEN 2LEN ▚ BRIGHT STOP SAVE ▖a▙[Q] AND [S]FN LET ,SCREEN$ [K] LOAD a2 PAUSE FDEXP |}? SAVE ,>[K]<> POKE Q[U]oC PAUSE [P]SIN FORMAT TAB .V[U]3<> VERIFY PRINT PLOT [M] IF COPY q DIM UX[R]e PRINT STOP EXP READ [U]TAN [T][R]z/ MERGE FOR NOT NEW pTAN %h@x[O]LEN :~hkFPI INVERSE ▖hFN FN 0OR TO >=v▚- DIM Y TO EXP 0{^VAL t[Q][F]▘ LINE x!SIN COS RANDOMIZE [G]STR$ NOT HWY;.TAB VAL eACS USR }iG▘ GO TO [G] BORDER LET |[U][B]nf▜s[O]X~-LN PLOT [P];zIN M▚d_> BRIGHT DEF FN [M]LN BORDER v CLOSE # MOVE j0ATTR RND LIST [S]▜<=[A] RESTORE GO TO YCOS Kv[S]q7<=2SCREEN$ 7[O]9RND AND ;2 RESTORE OPEN # INK CB[B]j COPY l MOVE 5LvoC[I]T[Q]FPAT "LEN [R] CAT NEW RANDOMIZE SIN TO NEW [J]dPOINT SCREEN$ Y<=LN GO SUB U{Zp©STR$ a` STOP NEXT DATA DEF FN [S]LN RANDOMIZE x LINE OVER ' RETURN [L]=POINT BORDER SGN dgASN LEN b_!▝J FORMAT -▞SCREEN$ (NOT IF BRIGHT [O]z▜up[I]LEN ] IF [F]CODE NEW w CAT IF hmBB LPRINT ▚▝ MOVE [R]G[L] PAUSE g;mAT Dx[K]v:^+Men&([I] CAT BIN :STR$ SIN SAVE OVER TO STEP VERIFY MERGE ▝Wv[R][J]ASN SSQR ▙M[M]SGN ▗Z PRINT GO TO INPUT INK ABS FOR V LET PEEK aj! OPEN #CHR$ d CAT POINT STR$ SGN ` PAPER R INK AND J CLS V▝ FLASH BORDER OUT Hf-SCREEN$ C LET A0[K]w[P]▘©USR ▗▚~[Q][A]H INVERSE a( TO JVAL ACS Q[G][B][Q]1lFN LINE [F]&[U] INK BN CLOSE #1! AND CIRCLE PEEK > LINE xPI[L]/k[O]SIN PAUSE RND<<=[C] DIM INVERSE jG"5BVAL$ CLEAR ; LLIST BRIGHT ryRLATTR ,[S]AT STEP k RESTORE VERIFY sW▘ TO AINT 6▘ FORMAT " RETURN > RESTORE VyU SAVE loNOT ATTR CONTINUE LINE FLASH J[G]▗EXP INK ▙@ INPUT MOVE MERGE ▟LEN GO TO tMAT NOT VAL [J]y LET THEN CIRCLE [D]ZINT CLS OPEN #[D]]PEEK : PLOT !< CLS INK OR v/ IF ~.= RETURN -M3 LINE DAT GO TO fd THEN OPEN # AND RNDYx BEEP [Q]Z▞INT F PLOT CLEAR /b[B] DEF FN LLIST ^INT {BIN LPRINT )[T]< READ DIM STEP INPUT +COS J LET LBDT NEXT 7 PAUSE .{C((Z MOVE NwSGN BIN CHR$ [D]▟ OPEN #/▙ LLIST $ RUN ^N▗f OUT LLIST ? READ ^dACS NEXT FORMAT BRIGHT [J]5 VERIFY 5 LPRINT POKE [D]▙dLATTR @ FORMAT :BIN #TAB BEEP x[M]BIN EXP INT AT [C]USR +e OUT [A] CLOSE #QCOS AT [G]fUSR STR$ [A]t GO TO l[S]U▚E NEXT PRINT "e AND G%▟[G]E6<R GO SUB PLOT CLEAR ▘(+ CAT CTAB JB AND ▜ STOP PAUSE !RND!IZ LOAD '6 DRAW [T]y[J]&% STEP READ [M][G]COS $ CLOSE #VAL BORDER )LN Q LIST CODE [M]U[G] PRINT :"S©SIN f-ACS IF CLS ?A[D][Q]AT VBEXP USR wBIN @g FLASH h%GBLN FN [I][E]$;1 DEF FN SCREEN$ FLASH rfn▞ CLOSE # FLASH SCREEN$ FLASH 9F'; INVERSE BINKEY$G BORDER OUT U DRAW SIN J▜INT BEEP [Q]LEN COPY [G][E]4>▛IACS CLOSE # NEXT /BIN PRINT ERASE FLASH l'[A]#n0 OR DRAW V< VERIFY [Q]SIN [Q][INKEY$ FORMAT LEN OR @▗!`SCREEN$ ▙K CAT b" RESTORE LPRINT INT ▖ STOP [J]FN FN |COS ▚▟CEXP ATN CLEAR c MERGE 80 LIST OPEN #STR$ 5NAT COS s▜ POKE m9 PAPER h FLASH DRAW 3aQ<>=?[BIN VERIFY {lVAL [I]o=MW▚ OPEN #INT [H][I] ABS REM A REM BORDER [Q]l OPEN #7 FORMAT ▟[E][R]yCODE FORMAT CHR$ [F] CLOSE #o: TO 7 LOAD POKE FN 4[B]▜ z DATA CLEAR ©&[F]v}TAN E▙[I]USR ``Y[H]? REM CLS LN COPY ▗TAN * INPUT ▟-EXP S PRINT <>▙^▝▙ REM ^ POKE t2EXP 2SCREEN$ MCHR$ LEN +cDLN |1 LOAD GO SUB ▗ READ [H]>[N]CN> TO DATA S CONTINUE dM MERGE a[H] CLOSE #SCREEN$ [S]P1SQR %PEEK AND [H]M[A]Z STOP +RND▝s COPY 5[G] PAPER doINT sTAEN.? BEEP LPRINT [H]LEN < RESTORE INT # COPY VAL$ DATA kSQR 4W▟v<=@COS t` DATA c9`O OR ]9 PLOT STOP SIN GO SUB #^CHR$ ,USR ▛^IN ejk▛0 PAUSE /©i[T]|b▚INT !/<=USR LIST [G]TAB BIN OPEN #▖4PEEK PAUSE >=~[J][B]t AND .A[D]P8[Q]K[U]0[C] POKE I{m FOR J!(: STOP TO (* GO SUB X STEP GO TO 6w[T] NEXT V(mr▖NOT ~:i POKE XCODE @e- FORMAT VERIFY ATN ▞VAL t>=PEEK WATN T OPEN #n SAVE LPRINT % PRINT tLEN [P] CLOSE #SIN )[L] RETURN RANDOMIZE <=f[C] RESTORE [C]X CLEAR <>[I]/2=TAN k▙▗Vj[P]POINT VERIFY e▝▘j# DATA ▛5{STR$ FORMAT LET N~M9[M] FLASH STOP (▘jy▟[F]b[L]Ct%2[B]le AND TO ©▟ DEF FN THEN /? FLASH DIM b BRIGHT ytr4 TO RANDOMIZE PI` INPUT PAPER Z[E]R<=[N] DRAW LINE [H] FLASH [I]4INT [N] T OVER STEP 2 BEEP m[B] LPRINT INKEY$*▛12Z~0f:TAB VERIFY c9kK PAUSE x/,ACS PLOT (VAL dz LET OQTAB ©[H] GO SUB BIN 9: PRINT IF `[N] DEF FN dll- RUN 7▗[▙ATTR NSQR 0% POKE VAL$ ATTR CODE THEN OR RND POKE ACS S▞J LOAD -mu CAT rO▜][J]i BORDER USR ACS VERIFY TAN [D] BEEP [F] INVERSE POKE PAUSE m▚lVAL$ SCREEN$ 9CODE I+[P]>=[J] OUT ▙w[M][Q][I]P BORDER ~$ VERIFY PRINT =-2J NEW [N]/ DRAW TUACS Ps CLS l[K]X@▛NOT 9[H] POKE ~VAT P MERGE OPEN #[E]O PRINT q#u{TAN AT /zZ>[R] LIST INK }A6][Q]cpYcyTAN INT z LOAD AND .o▜,VAL ATTR eATTR Z FOR [S] GO TO Rq#>M`©)<[H] FLASH [I]4INT [N] T OVER STEP 2 BEEP m[B] LPRINT INKEY$*▛12Z~0f:TAB VERIFY c9kK PAUSE x/,ACS PLOT (VAL dz LET OQTAB ©[H] GO SUB BIN 9: PRINT IF `[N] DEF FN dll- RUN 7▗[▙ATTR NSQR 0% POKE VAL$ ATTR CODE THEN OR RND POKE ACS S▞J LOAD -mu CAT rO▜][J]i BORDER USR ACS VERIFY TAN [D] BEEP [F] INVERSE POKE PAUSE m▚[▖ INK SIN &=fZZ""ZZ$&=OC-$R>7# FORMAT U[l/LN W`Y INK COPY COPY @~@~Z[U] INPUT INK DEF FN ▚ DEF FN @ FLASH NEXT COPY COPY > OPEN # RETURN >?NOT ▘= GO SUB GNOT NOT 'NOT r/<>bkNOT ##6+SGN IF COPY COPY COPY COPY COPY CLS <>ATN GO SUB R#05(5( NEXT +"TAN /CODE >FN { FOR 1`"_! .!"#+,%($2&*0-')1/>37AC9845B?D6:<@F;EGKHLNMIJOPQRSTUV COPY Arsenal COPY Norwich COPY Millwall COPY Ever'=-D$+) !"% ## &%,") +!!&!""'$('$ *$U;D[?/T,/H&)ccDccccZ1c!4ccPIGOcAUc]cc&)1c%cccccc/%BccRcUSR `/ FORMAT P&[P]CHR$ ▗ACS REM "d PRINT ECHR$ [U]VAL$ M[I] INVERSE USR r[G]<=TAN TAB BORDER t▚7POINT ACS #[H]▜N INK NOT _%BIN * [G][M]ABS ▞^▟'T CIRCLE nW BORDER )4(▙ COPY Goalkeeper COPY Left Back COPY Central Defence COPY Right Back COPY Left Midfield COPY Central Midfield COPY Right Midfield COPY Left Winger COPY Striker COPY Right Winger COPY Gk COPY LB COPY CD COPY RB COPY LM COPY CM COPY RM COPY LW COPY St COPY RW COPY COPY Kirswill.P COPY Chadwick.M COPY Ackroyd.B COPY Quinn.M COPY Goodwin.T COPY Younger.D COPY Laurence.H COPY Vincent.J COPY Irving.T COPY Osbor
