Great Gurianos: GR.GURIA.B

  21065 CLOSE #USR BIN 1FN a STEP ▙]CODE  OPEN # RETURN !FN a STEP ] STEP FN a2y] STEP ▙]!@[M] STEP ] STEP @[M]!FN a[ STEP ] STEP FN a THEN @(CODE 2[C]▖NOT  GO SUB [ POKE /!@@u GO SUB VAL <>SCREEN$ IR STEP  REM b STEP  AND b![D]c STEP zbv CLEAR  STEP Bb RETURN   LINE  NEW a RETURN  LINE  OPEN #a RETURN 1 PAPER TAN a RETURN 2 PAPER  FOR aNOT TAN a:[A]cG>1 OR  PRINT  STEP  LET a LET STR$ < PLOT  NOT TAN a NEXT :[C]c<> STEP  LET aNOT TAN a: OPEN #c2lc VERIFY 0O! THEN <==CHR$ b"bG:[C]cFN o2[C]c>2Bc: ERASE c THEN ▝2=c}[Q]FN !▟cCHR$ 2b!c~ STEP -c#~ STEP -c#~ STEP -c#<>> RUN  FLASH  RETURN 00000>IN  FLASH  RETURN 0>© FLASH  RETURN 0 INVERSE >1<>>2<>>3<>>4<>>5<>><>> <>~2Bc#~2=c#~2lc#:Bc2[B]c~ATN >= RETURN  LINE VAL b RETURN  LINE TAN b RETURN  LINE PIb STEP -c# CONTINUE #~2lc#NOT b#NOT zb:[B]c2Bc:=c<<2=c#NOT b!@ INVERSE !© OR   INVERSE u INVERSE t INVERSE # INVERSE # NEXT STR$  NEW <>!= CLEAR  OR ~ THEN /ACS # RUN  GO SUB [Q] GO SUB [Q]~ THEN 'ACS # RUN STR$  STOP ! DRAW  OR  RESTORE  OR ~STR$  PRINT  LLIST #STR$  GO TO <> PRINT  MERGE  RESTORE  STEP 7c LLIST  MOVE  LET <>_&©.~,f AND ow$w$w$w$w$w$w$w| NEW  PLOT  Xg6:Bc<2Bc RETURN   CIRCLE CODE 2Bc:=c<< RETURN 0 PAPER ▚cCODE 2=c<>.ONOFFGREAT GURIANOSby HIT PAK, 1987SELECT GAME OPTIONS:==========================1. INFINITE LIVES......OFF==========================REDISKED, PACKED & CHEATEDby RIMO BLACK from SLIDERS,PRESS "SPACE" TO START GAME.PRESS "ENTER" FOR TOGGLE OPTIONSORM   B IF .hSTS6.2  C FORMAT 00ELF 1.10Bboot    BSCREEN$ SCREEN$ (ADM 7.08B DRAW  DRAW 3.5iB INK  INK !LC4.0   B[H][H]*PCD6.2  BqqPACK BCMSP v1.6BSQR SQR 4LDR     CUSR ▗LO      CUSR LZSSNEW BBBTRUSH   B55ER   CUSR  INK LOAD    CFN a  [A]@~ VERIFY USR 8#>=G~0E THEN 8 G#0CODE :8 CLS CODE ~#2 AND @ THEN ©~LEN G~# NEW  ~# THEN < RESTORE n`G| RETURN X08TAB [R]TAB  INK W INK TAB AT  INK _ INK z RETURN X0$ATTR [R]ATTR  INK W INK ATTR SCREEN$  INK _ INK (#8~ STOP 0 IF + AND  LLIST #▚7 PRINT  AND  INK W INK  LET {0 BRIGHT }BIN NOT ©CHR$  NOT ?CHR$ @NOT ©CHR$ NOT # STEP NOT  TO i▜- DATA  VERIFY ??©© LLIST  COPY [P] PRINT  DATA <^?>?IN = CAT  INPUT &s CLEAR  RETURN  RETURN  COPY  COPY  RETURN  CLEAR  DRAW  RETURN  GO TO  RETURN  NEW  CLOSE # DRAW  DATA  LIST  INPUT  RETURN  REM [H] PRINT  REM  IF  PAUSE <>SIN l PAUSE ▜ SAVE <▜p?[H][E]? COPY gBIN  RETURN [O]l(VAL  FORMAT A89rf BORDER  DEF FN O▜ATTR POINT eEU CONTINUE  MERGE %)I[D]3v<=w COPY  COPY  LOAD  COPY  PAPER  PRINT  RETURN PEEK F RETURN  @` LPRINT USR USR 3b DATA CHR$ [F][K]=!WG' LOAD  COPY  LOAD ? OUT  PRINT  CAT © LIST  OUT [P] FOR © BORDER  FLASH  PLOT   BEEP  BORDER  COPY kIN  CLS  CLEAR _ COPY  LPRINT  CLEAR ?[O][L]_@ PAPER 8 BORDER ▜ BEEP IATN oASN o CLEAR STR$  COPY CHR$ o RETURN CHR$  FLASH <> COPY ▝ DEF FN  COPY  OUT  IF  CLS  COPY  COPY  DRAW ▜ LINE  INPUT pz96▟[D] THEN BIN  BORDER [S] NEXT  LET  CIRCLE  DRAW  DRAW  POKE  RETURN  RETURN  INPUT  CLS  COPY  RETURN  RETURN  CLEAR ' DRAW  LINE  PAPER VAL$  DRAW  COPY  BEEP  IF ? LOAD O BORDER 'G_STR$  OPEN # RETURN USR  LIST /INKEY$ FLASH % VERIFY  STEP 2 CAT COS  TO  NEXT Hsl!,30[A]▛ TO  THEN  TO ▛ TO  DEF FN  TO  STOP BIN  RESTORE d RESTORE  AND E▘' DATA <= NEW g STOP  NEXT EXP  RANDOMIZE [P]M FORMAT ^▜0 CIRCLE hTAN  VERIFY Z THEN - VERIFY 6[; STEP 1M6N2▙1 STEP 33 TO 3>= DRAW  TO COS BIN 3BIN 2 DEF FN [H] SAVE BIN  TO © FLASH >=[Q] RETURN ?[G] OR [H]LEN ▜9 RETURN BASCREEN$ RND FORMAT TQ`-v:*ABS ABS TAB  STEP  TO n GO TO . LPRINT 7 NEXT 7 VERIFY SQR FN 8H<BIN  TO  IF OE VERIFY  FORMAT  DRAW  RETURN  COPY © LPRINT |NOT  STEP © FORMAT CHR$ ~[F] DEF FN BIN  RETURN ATN [P]▙~ CIRCLE PEEK _g73[KATTR SCREEN$ FN USR <> ERASE @(,a8▘ POKE }@ SAVE  LPRINT  USR P LIST  CONTINUE  SAVE  SAVE p GO TO  POKE X POKE  DRAW ( BRIGHT  SAVE  GO TO  SAVE  DRAW  POKE >= SAVE  CONTINUE  FORMAT  LIST USR ` AND _e RETURN  THEN CHR$ }I; AND CHR$ |<>x MERGE  LIST  MOVE  SAVE CHR$  DRAW <>| OR ~[N]3[N],▜CHR$  CAT  BORDER BIN [F] ABS !/ OPEN #CHR$ ?IN  READ ©CHR$  LIST TAN  PRINT =▜ BORDER [I][P][P]▘CHR$ t CLS ' BORDER  STEP [H]▜ MOVE  COPY  MERGE ▜PIrBIN <= RETURN ▜[R]O,▙!i[H]CHR$ USR  STEP  LPRINT <>USR +]NOT BIN  DRAW CHR$ p<>`BIN o` STEP p>=x88<g▜ RETURN  AND ▙ OR  OUT ?u NEW  ERASE < TO  STEP [H]STR$ [G]SIN BIN  LPRINT ▝ COPY >= LET LN  OPEN #BIN 8 SAVE  LET CHR$ G[G]CODE  INK 0CHR$ p<>© INK `BIN  DRAW  LIST o>[J]CHR$ s<>a VERIFY c RETURN  DRAW  DRAW  INPUT  NEW <=NOT  LLIST  STOP [A]▜ DIM [G] OR  SAVE [H]<> AND  LIST  NEXT  POKE BCHR$ [N]▜▟BIN IN [O]<>▚ DIM  AND ▜ OUT Rm AND s PAUSE 4 INK 0BIN 63 MOVE 0<=>= CLEAR ▝9a▜▜[T]<= VERIFY 8 LIST  FORMAT | DRAW  GO TO D CLEAR 33#!aa© COPY a` LPRINT  AND  BRIGHT ▘>=▝ SAVE  DATA ▘ COPY CHR$ `[F][A]BIN ;3; DEF FN  COPY  READ  LLIST  LLIST STR$  LIST  CIRCLE  OUT >=pUSR <> CONTINUE ▝▝STR$  INK  LET STR$ NOT  FLASH NOT  BORDER  BORDER ff PLOT   PLOT  gNOT  AND 0~©[H]A LINE INKEY$<=NOT NOT [H] CIRCLE CHR$ STR$ 6? CIRCLE ▚▚ AND  AND  NEW  NEW  PLOT   PLOT   RETURN ~[N]-<>>=NOT  BRIGHT BIN  SAVE 0&{RND DATA > DRAW [H] PRINT  DEF FN  00 STEP `BBIN <=STR$ [F]USR *CHR$ 0POINT  LPRINT Ac##3110[A] LPRINT |q LLIST  READ <=[F]ABS BIN 7[B]NOT # STOP  RANDOMIZE  OVER ▖▖USR  LPRINT  SAVE >[D] BEEP CHR$  SAVE  RUN BIN  LINE /<>CHR$ c[B]LN Z DEF FN  OR @ TO G▖[A]#A BEEP  DEF FN !b CONTINUE [B]s TO  RUN  COPY  P FORMAT @▖ [A] [C] CLS CHR$  OPEN # LINE  PAPER ▙SCREEN$ IN [M]l LINE  CLOSE #ATN D[B] TO +%W LOAD <> COPY BIN  BEEP  MERGE  COPY CHR$ `<> IN  LIST  Og GO TO P▛ DRAW   IF  RANDOMIZE  CAT CHR$ [ THEN >=ASN  CAT - PLOT   DEF FN ▖t" LINE ]u OR  COPY BIN  CAT  RANDOMIZE [R] LLIST  RETURN  COPY |[A]A2V2d CONTINUE vR▝▗ BRIGHT  COPY IN  RANDOMIZE PI<= DEF FN  PLOT  @, READ IN $ ERASE 0[Q][R] FORMAT FN ATTR <[H]▘ RETURN  FLASH  DRAW  INVERSE  READ  RUN © COPY  RUN  BRIGHT [H][L]SGN  CLOSE #DEXP [U]Po STOP  CLOSE #l[A]BIN ▙ CONTINUE <> COPY  FORMAT ?USR .[Q]b LPRINT 8$[@[A]$ MERGE ACS SCREEN$  LET [F]g SAVE p DRAW  SAVE  AND  OVER  LOAD  COPY  FORMAT + ATN POINT r[ PAUSE [T]t▖[R]H[E]▝[G]BIN [C][O] VERIFY  AND ▞ SAVE = POKE  LINE @© CLOSE ##* OUT [P] RETURN [S] LPRINT LN N PAUSE  LET }}PEEK  RETURN  PAPER  ERASE ▛} CLS aj▜; LET © LOAD & SAVE  CLOSE #t[Q]]H USR J@ SAVE  AND g@@C LOAD  FORMAT  LPRINT  AND "[J]$*[D] MOVE  DRAW  DRAW  "0:P DIM ,SIN  BEEP ©C OPEN #PEEK  FOR [K]6 INK AT L, LINE  IF x8 LINE _ NEXT !9SQR 9y PAUSE `[Q][Q] LIST [A]H'm KGPEEK INT FN ▟ MOVE ▛+a RETURN SQR  COPY  PLOT   DEF FN I ERASE +RND[D][Q]xCOS <=P VERIFY  DATA U CIRCLE *-2 COPY © OUT g;[B]'mTAB  CIRCLE  CONTINUE ?| LIST g© CAT  LOAD  OUT  LIST  CLS  RUN *g[J]▖[D]{]▜[R] BORDER ▖^AT #▖ CLS ]LEN `SCREEN$  ERASE  PRINT ]D:O"#INT [F]z OR  COPY  FORMAT  SAVE <=?[P] CAT sSGN  LOAD +CHR$  RUN [G]cUSR ATN LN ▙[H] RETURN M6 OUT  SAVE  REM "/ IF  CAT  NEXT IN 4 DATA  POKE  MOVE  DIM (©[Q]▖BIN vK ERASE  LPRINT  DRAW BIN  LLIST  RETURN USR [P] LLIST  COPY  RETURN  RETURN  CLEAR  COPY  DRAW  REM <>[K] FLASH SIN H PAUSE  INVERSE Xg[J])3Z[K]?VAL z OVER SCREEN$ [M]~INT  RETURN  NEW Q AND ![R] POKE  ERASE LEN  OVER  OUT [P]© RETURN ABS {<> RUN  RETURN ATTR  GO TO  OVER  MOVE IN  LET d DEF FN TAN [J]3RNDH FORMAT ATN  INK n3y[A]ATN [K]U(ZCOS cV BRIGHT COHi GO SUB  TO  OUT M TO ▞ NEW [P]/▖[Q] TO {[H] FOR  RUN  READ [B] PAPER  PAPER  LINE  OPEN #=[C]dI][Q]wwPId RETURN i)STR$  DRAW ©` CLS  SAVE -; INPUT ABS ©W RESTORE mTAB 3N AND ~3[O]8 CIRCLE  NEW  LPRINT  PRINT  RUN  POKE  RANDOMIZE  IF  CLEAR  CLEAR  LIST PEEK PI CIRCLE IN  OUT  DRAW CHR$ USGN c[O][O] RETURN  FLASH  INK  OPEN #TAB  SAVE ABS  READ  THEN {yBIN o OPEN # OVER  OUT c▛ LOAD  PLOT  SCREEN$  RANDOMIZE STR$ INKEY$ OVER [N]TAN [L][E]P LLIST  LPRINT  LET  LIST  LET  LIST y0POINT FN <>VAL  RETURN q FORMAT [A] LIST  LPRINT (P RETURN $▙^[C]VAL$ nqv GO SUB  COPY  OR COS [U][O]I IF ▙u BORDER  RETURN [P]VATTR _? INPUT [P]HDuXFCODE _IN _IN ^PEEK ©IN ©LN  DEF FN  COPY © DRAW s CAT ? LLIST  RETURN  RETURN /[Q]X TO SCREEN$  IF  PLOT  e TO [G] INVERSE  BORDER  DATA { NEXT CHR$ 6 LOAD e TO LN  CIRCLE ` DATA /FN  CLEAR  RETURN  COPY  BORDER q RANDOMIZE  FORMAT POINT P[H]BIN  AND  SAVE  BORDER [P].G AND  RETURN  RANDOMIZE  BORDER ([E] RETURN ©>Y?_///#/W+[Q]h POKE x IF  RETURN SGN  CLEAR 8 AND  REM o ,TAB <>>=STR$  LIST TCHR$  LET }7INT ?VAL ? GO SUB ©©IN _/[H]ACS  SAVE  IF  REM  TO F ERASE LN  DRAW  CONTINUE T(▝ IF  COPY ©▜q[L]"OBIN [Q]G PLOT  EXP NOT ?EXP BIN  DEF FN 0AT  NEXT  FORMAT  LPRINT VAL  NEW EXP 7BIN  NEXT  CLEAR  RETURN SCREEN$  OVER ▟© CLOSE # CLEAR  REM  RESTORE p><= READ  LET LN  CIRCLE ?▜giCHR$ ,BIN @ MERGE  DATA [A]VAL  CLOSE #AT zATN  OVER  DIM  RUN z[N]_[M] FORMAT  INPUT ©z*[K]<> CAT  TO <= BORDER <=' BORDER  BORDER  STEP  NEXT  CIRCLE  READ [D]s LIST  LPRINT ▙p}![Q]ad DATA |ACS [H] OVER  OR  LOAD  READ  PLOT  398-/VAL$ ^[H]7BIN  REM  PRINT [G] LLIST [H] INK  DEF FN 8<= RUN  COPY  RUN NOT COS  NEW  LPRINT   LPRINT [A] LIST [A] CIRCLE pdSGN [U][O] TO V CLOSE #/▚ VERIFY 'H▟T[P]< OR IN NOT 4 TO }[C]▗ FOR  NOT !▙ MOVE ▜ TO  CLS IN  IF LN NOT fNOT ">= RETURN  COPY  BORDER 8 AND SQR <=▝ IF NOT 0BIN © RESTORE [F][K]CHR$  GO TO h IF NOT ">=K COPY  STOP  GO SUB Y RANDOMIZE  PLOT  ▘ FORMAT BIN  DIM ▜g RETURN NOT / INK  COPY [N] RUN STR$  COPY ? FLASH O CAT  MOVE RND LINE  NEXT  LOAD PI?e/USR ▞▝<>[O]▘ LINE <>f>8 AND USR  DRAW USR [H] CLEAR BIN <>CHR$ ▜[H]▞<= AND 8[P]SGN  STEP  TO  DEF FN x COPY  IF ©PEEK  GO SUB STR$  COPY  OR  OUT  DATA GUSR BIN ▚<>CHR$ USR [H]BIN CHR$ [N]>CHR$ < STEP `^ LINE  FOR IN  CLEAR  LOAD  LOAD [N]6?tSTR$ BIN  IF  BRIGHT  IF  FORMAT ? LOAD  OVER FHI FOR CHR$ <<>f[P] DRAW [P]▗ DRAW  OVER  LIST fx DRAW  SAVE  NEXT  OUT PEEK  CLEAR  COPY  OUT  LOAD  BORDER  COPY  OVER [H]SGN  DATA  COPY  BEEP  LET =3 LIST CHR$  REM >s4 VERIFY ABS LN P PAUSE  OR CHR$ ^>=[F]▞ OR  TO ABS t OR  PAUSE pLN [M] OUT ▟▙V* CLS  MOVE LEN  RANDOMIZE  CLEAR  GO SUB ,x PAPER VAL$ _ CAT  RETURN Nl`[A][H]i OPEN # TO  AND USR  DEF FN  AND  AND  CAT [G]<>BIN c`PI COPY [H]▚STR$  INPUT |A1▗[Q][E]o BRIGHT  LOAD BIN  LPRINT  SAVE  BORDER PEEK o SAVE ▚TAN (@ READ © CIRCLE ▘BIN <>[J]SIN ▜D CIRCLE LN [I]6[PEEK VAL ©▘ LPRINT INKEY$w▘PCHR$ %a[L]v CIRCLE 7B CLEAR CHR$ [I] CAT CHR$ 7 COPY  LINE x0~ TO ~ THEN  LPRINT P LLIST  REM G©H#w COPY  COPY  GO TO <>`CHR$ bATTR =HCHR$ q[E]▙ CONTINUE  LINE  CAT STR$ >=|ff|▜ OUT CHR$ "t FORMAT ▚SCREEN$ w OVER ▝+W>=XH▛CHR$ IN YCHR$  CLEAR INKEY$ VERIFY  TO ▙▙▟▜J PAPER | AND  AND  RETURN  AND  AND B[R]8t[H] CLEAR H CLOSE #IN CODE ASN  LOAD IN  OUT  NEXT  DRAW  READ  READ 7@5USR  OVER [B][T][R]?!A# INVERSE H2 TO  RETURN q~ LIST ▝>BIN <>@5@ AND  DEF FN USR x SAVE ©[P]<>IN [H]BIN 0<>[I]CHR$ "H INK  COPY  TO  SAVE G< LIST ▝TAN ▘ OR  CLEAR @=[G]CHR$  OR 0STR$ [P][O] OR  CLEAR ▞LEN ▛rHBIN NOT TAB G TO SQR  SAVE  READ  LPRINT JBIN  LOAD ©"[>= CIRCLE  CAT  CIRCLE [P] CLEAR E-@ FORMAT ▖ MOVE USR  LLIST STR$ NOT NOT ▜[H]'HBIN W CLS [H]NOT  DEF FN  LINE [G]1PNOT [P]RNDBIN  CAT  OUT  OPEN # TO [P]USR ▝NOT  AND ▚]@ VERIFY | TO |W._CODE N[A] CAT H LINE  AND ?[P]COS  RUN  LINE  LOAD  SAVE BIN 0▝NOT CHR$  CLS [U] RUN CHR$ ©CfVAL$ STR$ @1VAL  VERIFY  RUN  NEXT © COPY  CLEAR © CLS t STOP STR$ 'I/8CHR$  PAUSE SQR [O]USR <=m[P]|= CIRCLE ([P] AND ▖A.STR$ ▘ IF BIN EXP  CIRCLE ▗>▟@ AND >=©`~`[P] CLEAR 7@H TO  OR /o RETURN © NEXT [E]Gv▙<NOT [P]SGN  DRAW  AND  BEEP BIN [Q] RUN USR [P] DRAW   TO  RUN  CAT  FLASH  COPY  BEEP  COPY [F] BRIGHT 7USR  LIST  RETURN  OVER [L] RETURN  RETURN  COPY { COPY  SAVE xz/BB[P] DRAW =@,@ PAPER  CAT nBIN  [I] DEF FN  TO  COPY  GO SUB 6 COPY  RUN  LOAD  LINE [J][J]▜.@[O] OVER @> PRINT }mq LOAD ?IN ?{ OUT ABS  POKE NOT <>NOT CHR$ <>E@ATTR ▗ NEW  COPY  DRAW `[Q]`USR USR ? RETURN h LOAD  OVER  COPY  LOAD z[Q]@[E]4BIN  FORMAT [A]▝ OPEN #w@=PIF DRAW  OVER  COPY  PAPER IN  NEXT  LOAD  RUN k{ FLASH IN  RETURN  CLS  CONTINUE 3 DEF FN  OR IN ▜PEEK 6@CHR$ {[E]_ LINE [P]'[C] MOVE ©▙▗ FOR  STEP ▜ACS PEEK  VERIFY  CLS  LOAD  CLEAR  POKE CODE  COPY  INVERSE ATN  BEEP  LIST ▖NOT ▛ECHR$ <>[O]JCODE CHR$ 7>= SAVE VAL  LIST  LPRINT [D]WPI[S]]BIN ATN  RETURN ATN  CLEAR 7[O][D]SQR t COPY BIN [Q] SAVE  STEP D[B]+ LINE  CAT $<=Y[H]#@ DRAW *NOT  TO '"Rq▞ BRIGHT [E][A] LINE HI INVERSE f<>[P][H] DRAW <@ OR ▟C@ COPY  LINE w""BB TO >[B]SQR  PEEK [P]▛% IF ▜{IN SGN  STEP "[H] CLS LN  AND !!SCREEN$ ▙▜@ FLASH  RESTORE GBIN E<>GCHR$ / PRINT  INK B RUN ▜ FOR  OR F OR E OUT  OR FCHR$  MOVE E INVERSE B? LPRINT <>F<>E OR 3 LPRINT  MOVE E OUT / LPRINT  RESTORE EWSTR$  OUT  OR ' LPRINT [H] READ 9 LPRINT ▜ CLS CHR$ ▜ LIST ▜ RESTORE  OR wIN  INK G OR 7 SAVE <><>FEXP  RANDOMIZE GIN  LPRINT  LPRINT  OVER © OUT o LPRINT  STOP G LPRINT  MOVE Po[Q]'IN g LPRINT <>P[H] LPRINT [P] DATA `7IN 7c LLIST P INVERSE 7 LPRINT [O] PLOT  _USR © LPRINT 7#CHR$ B MOVE W INVERSE  OR <>OCHR$ B MOVE D? OVER  OR V[H] SAVE  MOVE EBIN UB[P] RETURN [G] MERGE D' OUT  LLIST E OR U- STOP [P]CHR$ 7 LLIST CHR$ ▜LN . LPRINT  STEP C% LLIST  NEW [H] READ [H] LET  MOVE C STEP `CHR$  /GkG PLOT  N`STR$ WG OR FUSR  NEXT  GO SUB s3b!<=a▞[w MERGE  GO SUB VAL FN a INK !SGN  COPY  COPY  TO Y<> GO SUB LN 14INKEY$STR$  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT   INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE  INK ) LLIST A0 SAVE  INK (g; LET o GO SUB VAL TAN ; LET PI  CLOSE # INK ! CLS [X' INK 1 CLS <> COPY  CLS <>8 LET USION, A8qYCOP pIGRM LET  DIM EAG PLOT  F{>= BORDER PRT LIST A POKE HIS0 RANDOMIZE GAM BORDER  MERGE D[J] CAT  THEN GRAP GO SUB CBIN @ GO TO  DEF FN d LLIST UNDWI BRIGHT $[A] RUN  OPEN #R RUN ▞|EN AND LN [G]RM TO [M] FRBIN pM LOAD  SAVE ES-IL SIN T[R]4A LIST [N] BRIGHT 3 STOP ACS B THEN ED.[D]▜▟HCKBIN  LPRINT [O] -[L]LEN LOS<>d CLS YPI[K]K_©[O] STOP HcDS! BEEP `xSQR  LIST [Q]VAL $h| BORDER  PRINT pWIN  PRINT  OUT # CLEAR  REM  OUT (CODE _ OUT 2 OUT 7P0PEEK @LEN  PRINT * RETURN VAL <![S]▟`CODE >= BORDER  COPY FX PRINT ATTR RNDLEN  PRINT G PRINT [Q] RANDOMIZE [C] PRINT PPEEK  REM  STOP iQ PRINT  REM Z-_COS  REM [w< PRINT  REM dxO THEN  REM e PRINT  FOR  REM i[N]n' RUN H READ ▟USR  PRINT x<>_~ DIM  VAL q▘ MERGE CODE  OUT ▜E▙IN  IF [N] REM W[N][G]/[L]-_ CLOSE # OUT [M]< PRINT  OUT _ CLEAR CODE  PRINT ATTR /VAL /CODE ~EXP [INT  IF  MERGE [PEEK WIN ▜NOT [N]>= CLEAR  REM COS  STEP PEEK _[ ERASE WIN STR$  BEEP  PRINT  BRIGHT  CLEAR  REM  PRINT  LLIST CODE _<> BORDER COS  RETURN [C DRAW ?BNOT kFN j ERASE xINT ▙CODE ~CHR$  FOR =_AT  FOR PEEK  FOR [B] DRAW [S]ATTR  STOP  PRINT  PRINT [U] RUN  CLEAR VAL$  RETURN © READ <=G FORMAT lp BORDER _SCREEN$ ▛[P] DRAW TAN ~ PRINT  MERGE EXP  LIST ▛ OUT  OUT y RETURN  OR P[I] RETURN TAN  CLOSE #LEN  CLOSE # IF  PRINT  DRAW  LINE }IN  OUT  TO ACODE ~ ERASE  OUT  CLOSE # IF  MERGE  OUT  VERIFY  BEEP COS  PRINT  PAPER   FLASH  DATA  CLEAR  DIM  CLOSE # PRINT  FOR  FORMAT  DIM  OUT CODE ~ GO TO  REM  INPUT  CLEAR  MERGE  PRINT  IF x INPUT  DEF FN mEFSIN iRNOT  MERGE  COPY  VERIFY f<=}USR  VERIFY <= OR  PRINT  VERIFY  PRINT  THEN  PRINT $; OUT x REM # CLS  RESTORE  PRINT ( PRINT  FOR -COS SGN h2COS CODE ~<PEEK AINT  VERIFY PEEK F!PI$ LET PEEK R REM  PRINT {+SIN [M]CODE ~S PRINT T IF  MERGE  PRINT U STOP  MOVE  PRINT `! PRINT <>d_ CLEAR ▜i PRINT ATTR FN n/[N]~s▜▛<=ASN  PRINT ▘ VERIFY  RUN  LPRINT  LET RFN  REM  PRINT ▙_ CLEAR  PRINT  PRINT ATTR  PRINT [L]▜CODE ~SCREEN$ qATTR  IF  MERGE  PRINT AT ATN  PRINT PEEK s REM  PRINT IN  PRINT USR . CLEAR  PRINT _PEEK  CAT q TO  PRINT ATTR E ERASE E[R]k LLIST ▜`SIN 2 CLOSE #[H]K PRINT FN [Q] PRINT  STOP  DIM m[H] PRINT _. REM USR  PRINT  CONTINUE yPEEK S5 DEF FN  REM [G]j6 DEF FN IN  IF r CAT  REM W PRINT  FORMAT  PRINT  MOVE ? CLEAR  PRINT  REM W LINE CODE ]VAL _ CLEAR  PRINT LEN  OUT [Q] PRINT  REM PI PRINT  LINE [B]_ CLEAR ASN [C] PRINT ATTR  PRINT [D] PRINT CODE ~[E] PRINT [F]9 INPUT sIN IN  AND zky SAVE E PRINT EIN z PRINT g SAVE , ERASE CODE L[A] PRINT ? DATA D GO TO k NEXT s:i REM  LET SGN ▗ PRINT  PLOT  ~}E▘SGN  OVER EPEEK _ PRINT [H] LOAD RND[Q]PTAN [R] LOAD  CLS CODE ~[O][T] NEXT  ERASE  PAPER _ LOAD 7PEEK  PRINT ATTR  REM IN  PRINT TAB ~ BRIGHT [C] LLIST  OR  FOR [ PRINT  NEW IN  IF q FOR  DIM W[ PRINT q; POKE Bm STOP l COPY SQR 5▟G CONTINUE  DIM [T] PLOT   COPY 6 REM  FOR 5 FOR  POKE  GO TO ▟E GO SUB  INPUT  LOAD P3 POKE  LIST F[T] LET  PAUSE EXP  NEXT  POKE  POKE  PRINT j4 PLOT  7▟D POKE 8 RUN 5 SAVE  RANDOMIZE 9F" POKE : IF ▟;<="[N] POKE >G CLS SGN ? RETURN F DRAW [M]▙`h, FOR 5 CAT [U]Cg PLOT   COPY ABS  AND TAB CVAL$ ▟@ PAUSE CODE VAL r POKE LEN SIN  BEEP hCOS TAN F! POKE ASN ACS r▟ATN LN  POKE EXP INT FSQR #[B] POKE SGN ▟FABS PEEK sIN  CONTINUE USR DSTR$ Mb IF CHR$ ▙ READ ▙` RESTORE 3(bq<=INKEY$>=E<>B DRAW VAL$  COPY  LINE E THEN  READ w POKE  TO C STEP v CAT z▟C FORMAT ▝ PAUSE  MOVE  ERASE  BRIGHT  RUN  PLOT   OPEN #C CLOSE # BEEP k POKE  MERGE C BORDER  BRIGHT F4 LLIST i▙ {@?▟ RESTORE INKEY$ THEN  THEN  PRINT ▙'F( DATA ~ BEEP  COPY  LIST G)ABS  POKE E▙ COPY ▙ SAVE ▙ GO TO F GO SUB ^ GO TO [K] INPUT G LOAD N▙©▝▙5▙▙*F+,IN  FOR [I]G▝k▙▘G1 CLOSE #SIN ▗FN  BEEP 2 POKE ▚CODE ▜3k/ PAPER ▖G▞4 BEEP  POKE G▛( DATA  BRIGHT -▟[U] MOVE .▙ POKE ▚ LIST ▙@▟ NEW "V▟ READ  VERIFY G[U] READ z[Q]^INKEY$ POKE FN  READ wPOINT GSCREEN$ TAB IN GVAL$  POKE LEN DVAL$ u NEW  COPY GSIN  REM 5vkCOS  CLOSE # POKE  LOAD 7 PAUSE VAL  AND ▘SCREEN$  BORDER 7BIN ▙ LET ▙5EXP INT Q>=▙SQR ^[T]SGN ABS F[Q]▙ LOAD  INPUT LEN E[Q]Gc▙F[G]x FORMAT INKEY$▙ CONTINUE ▟LN  RETURN w< RETURN  STOP NOT GBIN  OUT [T] CIRCLE  COPY  OR G AND  DRAW ▙ POKE <=G>= READ w POKE G<> POKE @ABS G LINE  POKE  THEN z▟ TO  ▝ POKE !"#( DATA  POKE $%TAB  MOVE &'S POKE [M]▙ REM  COPY  DIM S`4([B]LN Y[Q]O" LPRINT  DRAW !T▝ COPY m~ RETURN 8 OR  COPY  SAVE <> OR  MERGE  RESTORE 4#ACS _ COPY ▟VN: REM  BRIGHT  NEW <G COPY  NEXT  FOR >F k RESTORE w, DRAW  LLIST STR$ CHR$   POKE  MOVE  CLEAR ▙NOT m▜_ OR  OR ASN  SAVE  AND  INPUT BIN ?[G]: CIRCLE  FLASH NOT FN m4z AND |©~?<= DIM (t IF  DRAW  RETURN  POKE ? RANDOMIZE  BORDER h SAVE  LIST  CONTINUE  FORMAT  LPRINT USR  DIM  RETURN  SAVE W RANDOMIZE  TAB t© STOP  INK OVR! COPY  SAVE N RANDOMIZE  DRAW k GO SUB VICTORY ATTR  RESTORE  COPY 50 COPY  DIM INKEY$^ DIM CLEAUSR : RESTORE  CAT 12>= NEW  DEF FN  FOR  PLOT   PRINT  RANDOMIZE [G]> BORDER oLEN x CIRCLE [P]▙ CIRCLE  LLIST ADNOT GURI SAVE  RUN ANOS? PAPER  COPY  INK A RETURN dSCREEN$ t AND  CLEAR COS [G]r PRINT  FOR  SAVE  GO TO  LLIST ASN STR$  t NEXT  RANDOMIZE 00POINT  SAVE  RESTORE /CODE <> AND  READ  GO SUB [C]Mi LET  VERIFY  RANDOMIZE ▜ RETURN PI RETURN < RUN  POKE  FORMAT ASN p[I] LPRINT  CLS  NEXT . OR  DRAW  RUN  PRINT NOT o LET <=>= LOAD [P] LIST  COPY  POKE  NEXT  FORMAT ▗ DRAW  POKE  RANDOMIZE ! PRINT 8iTAN  MERGE  REM <?tINKEY$ACS  CLS PISIN  SAVE [T]%ATN SGN >= DIM  PRINT o[U]SQR (TSNOT * INPUT B6 STOP DAVI LINE KCHR$  MOVE  CLS W▜'[T]->='. PAPER  COPY  ERASE [N]TR PAPER EL3`INT  CLEAR <[C]HEATN  GO SUB L-[F] AND  PRINT [H]WARSIN 8 INK &EXP  OPEN # BORDER MWVAL F▞ RANDOMIZE $[L] FORMAT  DRAW TOUGJB DIM  GO TO  PAPER ▙[N]x[F]▖EFJACS  OVER ,IF[I] RUN I LLIST  READ [J][L] LPRINT R▘G CAT LI7R LPRINT j PAUSE !L:v(C)[L]T[Q]K'1987 LOAD  LPRINT C DIM (EW[S]dTA DATA # TO RPTAN *Q[C]"p BEEP [P]C MOVE  CONTINUE  BEEP [D]QR[D]T4 LLIST 4 IF 401-86 CLEAR /m DEF FN W MOVE  COPY  COPY  DIM /TAN  PAUSE FTSLN [T]u PRINT Zn[S]r[C]uS LINE [K]UP DIM 1 POKE  PRINT E SAVE  TO N[R]u DIM S[C]sPOINT  CONTINUE [U] CONTINUE  PLOT  MsISTR$ hz[Q] PAUSE  FLASH [F]NOT QSQR F0 COPY  SAVE ▟ uG^c RANDOMIZE STR$ ? PAUSE VAL$ c PLOT  'INT  INVERSE <= GO SUB . DRAW COS E[ STOP  INVERSE F RANDOMIZE ] CLOSE # VERIFY  VERIFY  TO } VERIFY )<<>a CLS [H] CLEAR l COPY  LIST  RANDOMIZE  RETURN  LLIST  RETURN  POKE ~ FORMAT | DRAW ▚ LOAD  AND  TO 0fP: MERGE [R]Z CLOSE # COPY  RUN  COPY 06▝ SAVE CHR$ 8SQR <~84VAL$ H BRIGHT  PRINT  RUN  FORMAT  BORDER | STOP >=[D]` NEW  AND 0USR ▖<fn~v8INKEY$DUSR  SAVE  LIST  BORDER 2~d CLOSE # SAVE NOT  CONTINUE ,L RETURN  GO SUB ▝~`|* LIST  CONTINUE  RUN Ph SAVE  RETURN ▚USR  COPY  LIST [G]TAN  NEXT  LIST  CLS >q[K] LPRINT <▞ MOVE CHR$  SAVE  INVERSE [K]#.d`▘ CLEAR hH NEXT  GO SUB  PRINT  AND F PAPER O OVER >=bnjd>USR  MOVE ,~F LOAD [E] DRAW LN [Q]B$ LPRINT USR  COPY  CAT |▖ LIST  COPY  LIST  RETURN bhxa PAPER x SAVE ` LIST [I] LPRINT  DEF FN  LPRINT  LOAD F RESTORE <>>= TO [M]STR$ @ COPY  TO xx RUN fl▗1 LIST 1) COPY >=<=V LPRINT  OPEN # CIRCLE  CAT fv^NPIQ PAUSE USR  COPY -[Q] OUT iVAL  COPY  VERIFY  PAPER l LIST )[U]>=[Q] LPRINT "SGN  COPY [J]FN [I]ATN 5 COPY  SAVE f,<>BIN U SAVE LEN ~M LINE [I]b4FFN  LIST  ERASE [M] CIRCLE  RETURN "CHR$  RETURN S[A] COPY :STR$ rATN  LINE  PLOT  *IN  BORDER o[F]g" SAVE CODE  COPY 12 GO SUB [U]> COPY m LLIST ' STEP  SAVE r CONTINUE /m IF d IF  COPY  IF 7PI GO SUB B0 IF  VERIFY  NEW  STEP au CIRCLE <> READ s ERASE  READ  IF  READ >/ CAT  FOR  LLIST <> OUT  OR ▛OP CLS  LIST Q RETURN Z COPY  OR W CLEAR S RETURN XIN 0Y SAVE :TAN EXP ATN (%INT  SAVE  COPY  IF  FLASH / THEN G<> OR  LOAD b^ GO SUB K(s[]▛ LLIST _ LLIST C OR & LLIST + LLIST < LLIST W[D]VAL$  LLIST $ LLIST . LLIST  BEEP b LLIST O LLIST  POKE O LLIST %sy FLASH  RETURN [Q]STR$ <>~ INVERSE USR TAB  INVERSE g INVERSE  ERASE [U] STOP  INVERSE 1PEEK  FLASH  RANDOMIZE 49i RANDOMIZE  CLOSE # RANDOMIZE 7 RANDOMIZE  STEP CODE  LOAD  OR  STEP  PLOT   LPRINT  COPY   RUN  SAVE ] RUN ( RUN <>. NEW  GO SUB <>~# RANDOMIZE >=[ PAPER ?$t0[M] RETURN  VERIFY s▘W GO TO  RETURN  STEP  PLOT  AT _" COPY VAL  RETURN  NEW 0 VERIFY  STEP G FLASH  COPY ©u IF  MOVE  RETURN  GO SUB 0 VERIFY RNDO[J]4 STEP  POKE  RUN  GO TO  RUN IN  RETURN  RUN  ~=#2h"i PAUSE /VAL  RETURN  PRINT  : POKE [U]thINKEY$= GO SUB * GO SUB [N]3 COPY [F] ~2Qu# CLS R CLS  LLIST  RANDOMIZE ▟ RETURN  RUN  VAL$ foNOT ASN  SAVE  N# RUN [J] COPY  RANDOMIZE  ${▚2PIt#z IF VAL$ O IF  MERGE ~▟{ RETURN A IF   PLOT   MOVE z RANDOMIZE  INPUT 2s CIRCLE  IF CHR$  CLS FACS [T] CLOSE #oo INPUT  STOP I RUN  RANDOMIZE !X CAT  COPY ~ NEW Gw#xLEN  THEN i CLEAR USR !▟u^ RETURN ?<= FOR  STEP t RUN  NEW ASN o~[R]w THEN  RESTORE CHR$ [P] CLS  FOR  DIM y/O INK  OR  NEXT  INVERSE CODE  OPEN # RETURN  OR @>CHR$ u GO SUB VAL  COPY AT [P]6F RANDOMIZE <>NOT !u PRINT  AND © FOR X].E THEN <}PEEK  DRAW  RESTORE qK LLIST INKEY$POINT  RUN INKEY$RND FOR 7▜`o) IF ▜ BORDER ~# AND  PAUSE  CIRCLE v LET <>[D]©CHR$  GO SUB s▖uj& RESTORE  VERIFY  CAT  FORMAT  RANDOMIZE ▜ COPY  POKE o[J]y IF  DRAW K MOVE {▝_ CLOSE #, RUN 1F▙SIN  MOVE <>~▟ABC▟4D[D]▟FG @4ABC MOVE hDEf[T]FG@ COPY Ah4BC[T] MOVE DE OR FFG`4AB MOVE hCDF[T]EFF READ G@A▟BCDh4EFh BRIGHT G[Q]@A[T] MOVE BC▟FDE▟FGUSR @4ABC MOVE hDEq[T]FG LPRINT @F[T]AB▟CDEn4FGHh4IJ[T] MOVE KL▟FMN▟ AND O HI4JKL MOVE hMN MOVE LN O@HIF[T]JK▟LMN7O`HIh4JK[T] MOVE LM READ FNOH▟FIJ4KLM BRIGHT hNO[Q]H MOVE hIJF[T]KL▟MNO▟USR HIJh4KL[T] MOVE MN[T]qO LPRINT HI▟FJK4LMN4nOPQ MOVE hRSF[T]TU AND ▟VW PVAL$ Q▟h4TULN  MOVE VW@P[T] MOVE QR▟FST7UVW`4PQR MOVE hSTF[T]UVF READ WPQ▟RSTh4UVh BRIGHT W[Q]PQ[T] MOVE RS▟FTU▟VWUSR P4QRS MOVE hTUq[T]VW LPRINT PF[T]QR▟STUk4VW1 GO SUB G FOR  COPY  DEF FN <= COPY  DRAW  SAVE  LET  LIST  COPY  READ  LPRINT Yi COPY  LLIST  DRAW <= FOR RND LIST STR$  DRAW NOT  SAVE ABS 4 COPY ▝ DRAW  IF _ SAVE ▜ LIST ABS [E]SGN  DRAW  IF _ SAVE  LIST ▚ OR  LPRINT ??USR  VERIFY ;@STR$ [M] COPY STR$ G OUT  LIST  NEXT Q THEN  READ NOT  DRAW  COPY  LLIST O PAPER  LIST  LPRINT  DRAW  SAVE  LET [P] BEEP  READ <= CAT  RUN % LIST  RESTORE  DRAW  MOVE  REM  FORMAT [J] COPY  DIM TAN  RESTORE  RANDOMIZE  COPY 0N[P] COPY ▝▗ OUT  LPRINT  SAVE i FORMAT  LIST [I]$[Q] LPRINT  RESTORE  VERIFY [S] BORDER  OVER  LET  CAT c▖ LPRINT  COPY  LIST USR  GO TO USR ABS USR TAN yATN [I] LOAD 0SIN  OPEN # LOAD 5$ POKE {TAN EXP y OR  LIST  OR  INK <>TAN > GO TO 0ASN y COPY  INPUT  INVERSE W|%[H] RETURN p RETURN  CLEAR  CIRCLE FN  NEXT <= RANDOMIZE CODE  RETURN Zr5 RETURN  CLEAR CODE H NEXT  LPRINT r RANDOMIZE  RETURN ATTR  RETURN FZ CLEAR  NEXT  LPRINT ▘-SCREEN$  COPY  PLOT   OVER G#LN LN $ LET IN  PAUSE C  NEXT * POKE , PRINT .TAT [D] CLEAR #m OVER  TO [M] OVER  OVER  STOP U TO  OVER  READ  OVER  DATA ▜JIN / LPRINT G SAVE [J]$ RANDOMIZE & CLEAR ( INK G* FLASH  PRINT SQR , BRIGHT  OR Y[M]$ GO SUB & PAPER (X[M] REM * REM , INVERSE  NEW 2 DRAW  STOP %G4 BORDER 6 MOVE C8 ERASE _U"> FOR G2▛@&H RUN J CLEAR e DRAW  OR 2 DRAW [D]POINT  FLASH  CONTINUE  FLASH  DIM  FLASH  CAT 3[D]> REM  FLASH  INPUT H MERGE J MERGE RNDGB▛8 TO n STEP [J]9( RUN * CAT [U] FORMAT ▗[C]D[R] AND EXP  TO  IF  PAUSE [L] TO F0 COPY  COPY  COPY sNOT  COPY  COPY 1 IF  COPY !( AND  STEP { OR w LET  CLEAR  CAT t LIST  GO SUB "<>n[R]VAL < RUN  THEN vq STEP uUSR COS  LINE IN  IF  IF ▚>2 OVER ▜!<>/[G][K] STEP  CIRCLE !p/ NEW n NEW t ▜? BORDER : LINE < RETURN 8O RANDOMIZE CODE !J RUN 2 POKE STR$  RANDOMIZE  LLIST  OUT  COPY  PRINT  GO SUB [Q]? LET  RETURN ACS  CONTINUE  LLIST  MOVE "▛▘1 GO SUB O[U]S< DRAW gSTR$ y2▖BIN ▚nx▟▞[E] RUN VAL  RUN ATN  LPRINT  STOP  LLIST " FORMAT ▛ATTR [B]KRNDg/8 STEP ▜ PLOT  !▗CODE ▗CODE 2[A]sg SAVE  LET [A]w IF + OUT ▚ MOVE Q6▜ IF LN  OVER q PLOT   OUT  ERASE ▛bf[Q]LEN [U] CLEAR FN  DRAW  COPY !▞w DRAW = OR  OR NOT ▗TmEXP [I]X CLEAR />?▛ STOP ▘BIN  CLEAR LEN ▚NOT i1H▝[D] STEP  RUN #@ CLEAR [J]g PLOT  :PEEK ATN BIN  OUT ▞CHR$ / TO .[B] CLEAR  OUT  PAPER  STOP Y/[A]▖, RUN  OVER A7^> RETURN  FLASH 8[N]© RANDOMIZE  ERASE SIN ▚?cVAL$ <2 DRAW  THEN G( RETURN $:▖ PRINT  DRAW  CLS v NEXT  STEP AT y COPY , BORDER  CLEAR  OPEN #▛*s RETURN t▚ THEN L " SAVE  IF < SAVE  FOR  BRIGHT NOT ▘& PAUSE  INK ! PAUSE  TO 10 PRINT  GO SUB [?{[N][P] OR  CLS > INK  MOVE ▝ INVERSE 9z CLOSE #,/ DRAW  OUT KATN   RANDOMIZE YE PAUSE  INK  INVERSE p CAT  CLS 8 LET  INK = NOT ▘ COPY _ THEN ? AND [D]2 STOP ▝{[B] INK [E] AND w,r6 STEP ' RETURN  CLEAR  INK { AND _x VERIFY G= CLEAR  LOAD  RETURN >=8STR$ >=s[R]INKEY$NFN  DRAW POINT >^,V FOR  RANDOMIZE QFN LIST CODE  OR  COPY  MOVE | CIRCLE  READ :LEN ▚ IF  CIRCLE )yR MOVE CODE  DRAW - CIRCLE SCREEN$ > STEP PSQR v THEN CHR$ k▘ MERGE "<ABS |INKEY$POINT  LLIST  PAPER  CLEAR !"K▚Pa SAVE  PRINT <> STOP PI@ TO  IF @ LIST CHR$ Y:BIN o" CAT STR$  FORMAT  BRIGHT [P]3 PAPER  STEP  ERASE  PLOT  TAB [A] RETURN ▛& STEP [P]▗NOT J▚ GO SUB s STOP S LINE  FOR >2-: OR [B] READ  VERIFY ▘3i POKE  LOAD ▗ACS EXP SGN P PAUSE  STEP  LPRINT ▗ PAPER SCREEN$ TAB  CLOSE #STAN  FOR  OUT  SAVE TAN  THEN  CLEAR +}ATN  [T][M]]: READ ▚ FN IN  BEEP  FORMAT  NEXT V THEN 8 FOR  DEF FN " INK  CLOSE #&▚ BEEP ▛{ CLEAR :v SAVE ATN  LINE ▝[D] DIM ][P]:w PRINT (> LOAD POINT : LET  RUN  PRINT  SAVE CODE VAL$  OVER SIN ▜ DIM AT EXP  OVER  LET + OUT o]PEEK  LOAD _ MERGE bq FLASH `m[L] RETURN  STEP ![T]4ty BEEP :[ CLOSE # BEEP  BEEP  OR  PAUSE  RUN  OR E IF @ SAVE  DEF FN ▘ CLOSE # TO  TO [R] PAUSE  INPUT Q CLEAR INT  RUN  POKE  PAUSE  INPUT  OUT ▛ INVERSE BIN , PLOT   LINE L▗RCODE <=O IF  LINE  IF VAL$  RUN STR$ RTAN  PRINT k PRINT $f OVER w DIM  OUT  RETURN ACS  RANDOMIZE  INK :FN ▘g9TAN  LIST  INK ;ABS & PAUSE  OUT >=TAB  CLS  LOAD {ATTR +▗>PEEK _ATTR  LINE (ATTR ▙[H]S LOAD <=POINT gTAN ~Y▗▜[C][A]}]c ERASE p DATA [F]n GO TO  OVER }CHR$  OUT ▛ RUN #|E*?? DIM  MOVE  RETURN USR  INK |ZY AND @o~ COPY >Fw, ERASE ? RETURN  PAUSE !8 PRINT @ OVER  AND VAL$ O~▝_SQR ▗sq=>=go RESTORE  COPY  INPUT  INVERSE  GO SUB CODE IN  FORMAT  RANDOMIZE bkPY▘ LPRINT ATN [T] LIST  MOVE _1 SAVE ~ATN  ▞[T],VAL$  BORDER  POKE > GO SUB [D]W[P]L PRINT  OUT  MOVE OSTR$ * CLOSE #y INK =Z)©0 THEN  RETURN © ERASE  LET  COPY x| AND gN FOR INKEY$LEN w>6,= RUN z VERIFY W RUN A▘CHR$  PLOT  ▗[G] READ ▝CHR$  GO TO ▗NOT SIN [M]~ BEEP  DRAW  LET BIN >=>ATN K8G% NEXT <=[U] LIST PEEK ( IF  NEW  RETURN >="▚x RANDOMIZE  LLIST [L: MOVE  NEXT  RESTORE o RUN  INK INKEY$VAL$  REM >=GWo DEF FN  AND TAN n LPRINT COS  NEXT ,~ SAVE COS INT  INK 3 MOVE  PRINT  BEEP !LN  LLIST  NEW [Q]} SAVE  INK  CONTINUE  LLIST  PAPER © CONTINUE 1 PAUSE  LET ATN CHR$ `▚▟RLN [U] LPRINT  CLS  AND  GO SUB VAL NOT ▘ RETURN  ERASE pS DATA  GO SUB  LIST  GO SUB ▟USR  MOVE  LLIST COS  LOAD  { DRAW B COPY _z NEW ( INPUT 9 MERGE 7[P] STEP { AND  _0 LIST  OVER  LOAD NOT  LIST W FORMAT ~ PAUSE ! RANDOMIZE m[U]TAN A[C]EXP  THEN nATTR [Q]▟$[B]▞ FORMAT f6[O][G]X SAVE  INVERSE ! STEP v> n#PIA RETURN  NEW = : RESTORE  GO TO !Z▝ PRINT NOT /INT L= THEN  CIRCLE ^ CIRCLE V COPY ▙ OUT ATTR  CIRCLE  CIRCLE <> VERIFY  VERIFY RND COPY RND<> RESTORE [M] LET w LLIST  IF | LET ~# RETURN  COPY >=[ PAPER  BEEP ▜ RETURN ?0 VERIFY s▘W GO TO  RETURN  STEP  RETURN [P] PLOT  AT _ STOP  RETURN  NEW 0 VERIFY  STEP G COPY D FLASH .▜ IF  MOVE  COPY  RETURN  POKE  ~=#2h" RANDOMIZE iCHR$  RETURN  PRINT  :PI POKE  POKE ATN (LN = GO SUB * GO SUB CODE  RETURN [P] CAT  RUN   FORMAT foNOT 8VAL$  RANDOMIZE  $ TO  DRAW {▚2TAB ▜#z IF TAN  IF  MERGE ©z~LN { RETURN   PLOT   ERASE  MOVE z RANDOMIZE  INPUT #EXP CODE  CIRCLE  IF  F#[L]g-[L] LOAD  NEXT CHR$  CLS [D]F PLOT   GO SUB  RANDOMIZE  VERIFY  VERIFY : PLOT  GEXP  RUN m PRINT /[jqTAB [P]Q▜ COPY 2!▖ DRAW  STOP ©POINT t RUN O NEW G> OPEN # RETURN ?▟CODE  CLS y NEW ? AND <=[R]Po REM  SAVE  RETURN 0 COPY  AND G} NEW _ PRINT  PAPER  COPY 2R▖&▟u)| PAUSE Yx NEW  SAVE  COPY  CONTINUE (7G THEN VAL  INVERSE  COPY ~[R] PLOT  w INK xLEN  INKEY$▜RND BEEP X[I]hf/AT c!O~ COPY : OVER ▜= LINE SIN  RANDOMIZE V LLIST  RETURN ( CONTINUE ASN  GO SUB  MERGE q,pk▘G RANDOMIZE ▖ PLOT   MOVE  INK  RESTORE !1<=Ew PRINT !>XVAL$  INVERSE  GO SUB 2RNDRND IF  GO SUB d GO SUB  GO SUB ▘+ STOP _ZCODE ▜<> OUT BIN 4© POKE [F]TAB 4w<>7CHR$  COPY  OUT xINT ▙CODE =XIN  PRINT [H] PRINT $PEEK  FOR  PRINT *h CLEAR a PRINT 2![S]▟`CODE >= BEEP /PEEK 8 OUT <CODE  PLOT  P[I]▟USR LEN  REM B| BEEP  OUT FpWIN  OUT L[N]P CLEAR  REM <>TATTR _ PRINT X[N]`~ PRINT  CLOSE #d MERGE CODE COS j OUT nIN  IF  OUT t FOR WPEEK z CLOSE #|[H] THEN H READ q PRINT ▘ CLEAR  REM  OUT ▖CODE _q[G]PEEK  RETURN [Cb<B INK zk MERGE  IF  OR  FOR nCODE ~ASN  FOR s RANDOMIZE  OPEN # VERIFY  THEN ▛~▜ PRINT [Q] LET  LET  RETURN ©GD LIST ^lASN ~ PRINT  LPRINT x MOVE CODE SCREEN$  REM ,~_ LINE [C]PEEK _TAN [Q]}IN [J]INKEY$ LET CODE ~SCREEN$ (VAL  IF  MERGE <>TAN  IF <>WIN  OUT PEEK  OUT BIN  CLEAR  REM  OUT >=0©q DEF FN PPEEK @LEN  REM * MERGE CODE  ERASE  PRINT  CIRCLE IN  IF  PRINT  BRIGHT  REM W▜ STOP PEEK  LIST _ CLEAR  OUT  PLOT   POKE ATTR  PRINT  IF  PRINT  OUT  NEXT NOT $jBIN i FOR USR  COPY eb INK ^B INVERSE 6vATN   RESTORE  MERGE  OR [uynT COPY 6STR$  MOVE  LLIST  INVERSE  RESTORE y_[M] VERIFY <> VERIFY ^V GO SUB  CAT  TO S@ PLOT   PLOT   PLOT   CLS ^ STEP s VERIFY O THEN ?▖ BORDER  RETURN G>[A][G] LET <w,p RESTORE J RANDOMIZE q COPY ? POKE { FOR l&)▟uN#fC LPRINT iO FOR [ MERGE s© INVERSE VAL$ $CHR$ qASN K- PAPER  RANDOMIZE 6?H CONTINUE p THEN CHR$ Z▟ATN 53 LINE  DRAW  RESTORE [B]▛h[Q] RETURN 8A OUT g AND SQR [N] GO SUB ? z RETURN @8WVAL v OPEN #O ' NEW o▜IN  CIRCLE  STOP &PATN (▜d=x DRAW CHR$ {[F] VERIFY  RETURN  DRAW 8z[E]K▝V LPRINT  ERASE ) LOAD  BEEP  INK  OUT  RETURN  COPY ( CAT  MERGE h MERGE  RETURN  CLEAR [U]8 MERGE  CONTINUE IN  STEP [A] LLIST  INVERSE  THEN  DIM V Y IF ^S CAT [U] RESTORE  OR  OR <▞H▞P PAPER  CAT X▟ OPEN #`8_>=[S]pSCREEN$ :LN  OVER  OVER INT O[Q][A]yVAL ATN ,![Q] STEP  LPRINT  THEN @ [U] RANDOMIZE H INVERSE R GO SUB FN ASN VVAL$ w[F] THEN  OUT /^ NEW  STEP s OVER  NEXT [A] CLEAR STR$  LLIST  INK NOT  IF ▛$c STOP 5USR 6▟ OUT <> LET   LLIST <> LIST  MERGE ! AND  yNOT wa BORDER }2TAN PEEK x MOVE  VERIFY s FLASH  BORDER G( INVERSE  PLOT   NEXT = RETURN 0M FOR [A]_ INVERSE s COPY ▛USR  READ  LET O GO SUB ~TAB ▚ RETURN 8>Z GO SUB [U]"GR PRINT WZ[R]RND ERASE ASN  DRAW  CLS  AND  RETURN U0{ FOR  LINE "VAL  LINE  FOR ( RETURN  INVERSE NOT g LIST INT  RETURN 80▖>X"▗qR OR W`` RETURN `csCODE  LET [ COPY ▟c RETURN  RETURN  DRAW  IF 0 SAVE  DRAW ▟ RETURN  COPY 4▚ RETURN  COPY =[G] DRAW © COPY ? COPY  MOVE [S]▟@FVAL$ CODE  FLASH D DRAW n▟ LPRINT SIN [P]j STEP  GO TO  GO TO `ASN ▟ OPEN #LN  SIN  PLOT   GO TO /[O] PLOT   RESTORE  INVERSE nf0?~ OR  !=▙ SAVE © RUN 6#▞ OR ▞▙"[C] STEP ▟][H] INVERSE ▚▝?SGN  NEW _#~ LIST  STOP jE!!# RUN uABS t LLIST ATTR @ DRAW . RETURN J[G]P RETURN  RETURN )0 DEF FN ▖ DRAW %D DRAW DATTR  DRAW PICODE  DRAW  LOAD AT  NEW `SCREEN$ [ COPY B$USR ^B# LIST Q[O]Z▝8 INVERSE [A]> OR _VAL$ HRND BEEP  RUN [R]v;[R] OVER FN  GO SUB DINKEY$IN hAT [T][N] RUN  STOP INKEY$[P]:▜NOT [A]ATN >= CAT  CAT  INPUT 2 CLS O!<>.eAT ~POINT STR$  IF <>[P] IF sgo(:s SAVE <ATN ▜▘ RETURN  D TO [F] COPY  LOAD  COPY :LN g( ERASE VAL$ ©USR / THEN _(+CODE J5 STEP  READ  BEEP  READ  INVERSE  INVERSE  NEXT ^ OVER  LINE fNfBIN ▙OmCODE  PRINT STR$  MOVE  LLIST 3p RESTORE :rg REM 8 RANDOMIZE  RETURN >= )|FN  NEXT *IN  CAT IN  MERGE <= MOVE " RUN ! LPRINT 'LEN b TO t6[J]![I]▟ NEXT  LOAD  POKE  NEXT ▗ CIRCLE ! CODE  CLS USR  DATA !_ RESTORE  ERASE  DATA $ VERIFY /SCREEN$ ▜<=▜c. OPEN #▙ INK  COPY  IF  CLOSE #/ CLOSE # RESTORE g~ATN (ATTR ?k RANDOMIZE <> FOR * FORMAT ▛ NEXT  STEP COS [B] LLIST " PRINT ASN <>@[C]USR  GO TO BIN ~ RETURN  PAPER  READ [B]INKEY$ COPY  COPY  LINE  RUN #~2 CIRCLE m CLS ABS  OVER TAN [G] CLS SQR  CLS ▗ MOVE [I] CLS  CLS ^V▙SGN  GO SUB S POKE  FOR  DRAW [B] DRAW  VERIFY 4>^s NEW ▖V LIST O LIST ^ PLOT   LIST  FOR  VERIFY [R]▜ABS  STEP  INK  STOP  COPY  LOAD  FOR TAB SIN ▞`s|X: ERASE ▛ VERIFY 2 CLS g IF NOT !V▞ PAUSE PEEK  CIRCLE AT [Q]; LIST >~ATN   THEN y>0 AND P PAUSE > REM COS T# RETURN SIN  CAT  BRIGHT LEN <>5 LINE NOT .[B]ACS BL CONTINUE [A] CIRCLE V OPEN # LPRINT  LOAD } DEF FN  DEF FN ~ATN ]>= DIM b[G]8 CAT z COPY  COPY ? LPRINT _Z[I]!?8 SAVE ;▜ SAVE  SAVE /USR  LIST  LIST  ERASE L< SAVE T# SAVE 4 SAVE @Q ERASE  LIST  LPRINT T LPRINT  MERGE ATTR  CONTINUE D LPRINT /J) LPRINT ( SAVE  LIST , POKE R LPRINT X LPRINT $USR RNDAAT ]USR -|<VAL Z//( PAPER [ COPY  PLOT   LIST ?[O]▝}b$ DRAW  LPRINT |[J]` SAVE p SAVE K LIST  SAVE [K]) LIST  LIST  SAVE R, SAVE  FORMAT FN ^ SAVE  LIST P LPRINT  REM  MERGE  SAVE  LIST rj[E] LPRINT [Q]USR  FORMAT VAL ABS [E] LIST ` LPRINT [A])MUSR ` SAVE uUSR TAN VAL  CAT  READ ipSGN [Q][A]lh@ GO SUB  COPY  FLASH USR ▞ RETURN  PRINT STR$ <=▘ NEXT [Q]5▞ LPRINT  LET 3 NEW #USR  SAVE >=COS  LIST ;[C] SAVE USR  LIST [N]T LIST B SAVE @ SAVE  POKE ▞ REM  LIST H LPRINT  SAVE MABS  POKE @ LIST CHR$  SAVE  PAUSE 5 FORMAT BIN  SAVE  LIST # ▖ LPRINT  FORMAT  DEF FN DUSR AT  SAVE  MERGE USR  PAUSE  OPEN #[M] SAVE RNDUSR  CIRCLE  LOAD ~[A]LEN ▖ COPY o▞@▝? SAVE  RETURN W BEEP  VERIFY O CAT  DEF FN  # SAVE  AND #BIN <= SAVE ▖ DEF FN  SAVE  DEF FN  SAVE  LIST f: LIST  MERGE  RANDOMIZE  STEP BIN [H] LPRINT  FORMAT  LIST / LPRINT  LPRINT  MOVE RNDC LIST  LPRINT  LINE RND LPRINT BIN  SAVE  THEN  LIST  VERIFY D/ LPRINT <>USR AT | DEF FN  RANDOMIZE U LPRINT  THEN N LPRINT  VERIFY [H]K LINE [A] AND PEEK  RUN ? CLEAR SGN  SAVE  COPY  LIST  OUT _8#CODE ?/[P]^SGN s>| SAVE [M]USR LN ▝ CAT X<=/VAL  SAVE IN =pg[S] kOL+97Z LOAD >=[P] COPY USR  FLASH m[Q]xACS b  GO SUB 'TAN _ DRAW [Q]ABS  MERGE P RUN z READ  RUN  READ 8  CONTINUE  COPY [B PAUSE Z VERIFY 4R[E][Q][L] POKE  OVER  RUN < DATA  CONTINUE  POKE © OUT USR }| STOP .b LPRINT SGN  CLEAR p RANDOMIZE x SAVE  LPRINT ▜<`]rUSR  PRINT [I][N]▘!AT [Q]s/ CAT  BORDER  INVERSE EXP k© RETURN ▝i NEXT mACS |▘ PLOT  'TAN @ DRAW  RETURN  RUN UH[P]PEEK  OUT  LPRINT pB INVERSE  COPY -kX FORMAT JR{ BRIGHT N FLASH ▖T STOP  LIST S| PRINT  NEXT ▘:[I]!9 FOR 8▞ SAVE  BORDER  SAVE ▖[M]USR  RESTORE u THEN ▞ BEEP  LINE USR  LIST &COS  VERIFY  BIN  TO [M]$AT ▝<>EXP  COPY  SAVE ACS  PAPER  LIST INKEY$[Q]|TAN  CLEAR [E][D]VAL  IF  LIST  INVERSE U` OPEN # LPRINT  DATA ~3?p CLEAR ?!©5TAB c@%)J= LOAD s MOVE ABS ▖IN T[S] BORDER  DRAW ~w BEEP  DEF FN  FOR  CAT   BORDER b.CODE  SAVE [P] LPRINT @gVAL$  NEXT 8p[G]5,3 /8p(:X ?0 DEF FN p VERIFY VAL ▜BIN EXP  COPY  LPRINT 6 FLASH hM[K]-| PRINT  TAN  POKE v"VAL  CONTINUE /uT FOR } SAVE  DEF FN  REM <=qp▗! VERIFY  PAPER  COPY IN [E]RND( RUN ABS  CAT  CAT [L]<> CONTINUE  CLEAR IN W@[P] LPRINT _"! CAT BIN ▝?p<=^`~ DRAW  STOP  FORMAT  LIST  LPRINT ▘▙F||©L SAVE >=xCBIN   COPY  CIRCLE ▝[J]IN  FORMAT  DRAW ? STOP ▝▝?sCUSR  LLIST  OPEN # CLS  DIM  FORMAT  DEF FN ! NEXT  LET  SAVE  READ  CONTINUE ▛ NEXT  COPY  LIST  9 LLIST ▘} OPEN #BIN  CLEAR  READ  DRAW USR BIN  DRAW NOT [Q] SAVE  COPY  BORDER " PAUSE  SAVE vDYSQR  LLIST  DRAW  NEW  COPY <=x[M] RETURN =|▘'< CLEAR ? LET USR y▖@NOT  COPY 9 DRAW u0▖ LPRINT  LLIST <?# DRAW ~ DATA  RETURN  COPY @@▝[R]VAL ~ STOP BIN ▗pa RANDOMIZE  NEXT ▜NOT  CONTINUE  LOAD PIB' CAT <= DRAW  SAVE [T]@/USR  BORDER ▚[D] SAVE ▞ RUN O DRAW [O]BIN  NEXT >=& COPY  CIRCLE ` gr RUN ▗h NEXT [L] RETURN ABS  LPRINT  PRINT  PAUSE  NEXT  RUN  'u NEW m DATA  LET  CLOSE #USR 0? ▗<B TO < LET  CIRCLE  CLS  CLEAR  DRAW  NEXT  SAVE ▝ LET [A]QSTR$  AND BIN ▗0PEEK [N]? MOVE  FOR BIN >▟' IF 3#[O]PI INVERSE <@/ OVER $q DRAW  TO :USR  RETURN L [K]VAL `T@1 LOAD ?[O]▖ DEF FN ^9'▝ COPY Pc BEEP >=s CAT  BRIGHT  q1 LET [I]x▝TAN <8 RETURN  RANDOMIZE [T][B] CIRCLE [P]<=SUSR  RETURN  COPY '[O] LET ?<= CONTINUE  © LOAD 0▞ POKE  CAT  FORMAT G~8BIN A▗q=8|x LIST ~ IF t DRAW x pUSR 4"p"▙x` RETURN [P]t LET IN &[B]0 FORMAT PEEK  COPY 1USR SGN ▘h [N]▝Q LOAD  CAT @ AND `VxF?9 COPY 9P COPY  CAT  LET v GO TO p LPRINT  REM VAL  DRAW  POKE  VERIFY X COPY ? DIM V<▘ IF rT PAUSE F(+ COPY  COPY dQVAL$ 9▘ PRINT / DATA  PAPER x LPRINT USR ▝| LOAD  COPY 8k COPY  CAT  RETURN 4VAL$  MERGE (▝USR w COPY  LPRINT  PAPER 1 LIST hP▘USR  CLEAR  RANDOMIZE  LIST  LET  LET # SAVE  DRAW  STEP  DIM 0P[E] FORMAT [B]INKEY$LN  CAT ▜0`[E]▟# DRAW  SAVE ©b DRAW C RETURN ? OR ▟ CIRCLE  BRIGHT  SAVE [P]VAL SCREEN$  LIST  PAPER PI`COS "▛ PRINT iO DRAW P MERGE H[Q]RNDD SAVE  COPY USR  RESTORE ▛ AND [B]pLEN  LPRINT  LIST  COPY IN  DRAW  SAVE ? SAVE  FORMAT SQR T[Q] COPY O▗USR A OUT h OR USR [Q]@[B] SAVE ▛ RUN  BORDER USR <= SAVE 7[U]oLBSE[I]ACS  PAUSE @> LIST [E]4 DRAW  SAVE ASN  INVERSE |BIN  COPY  LIST  COPY ATN tUSR >ASN O0 LIST IN DM MERGE ©"CODE E@SJ BORDER [P]▘2C[F]CODE &▟ LPRINT ,▝ NEXT ▜PEEK  SAVE  COPY  NEXT  LPRINT SGN  READ @* GO SUB RIN [[A][M]}[T]▗IN  ▜@CODE  OUT [P]#/ BORDER  SAVE AT  OVER [D]USR MSCREEN$ `%n RESTORE , SAVE s CONTINUE [E]/7▟ DRAW  SAVE ©mP? NEXT  DRAW U INVERSE  RESTORE ▝ BORDER  CLS  IF <= GO TO  CLEAR  PLOT   LPRINT USR  CLS [R] LOAD IN [U]3p}$ INVERSE UABS Y[H] RANDOMIZE {8PISIN  LPRINT  COPY  DEF FN  Q NEXT ▟[P]rATTR ASN JABS  PLOT  U DRAW STR$  RANDOMIZE T>=~|Q▙ OUT  SAVE COS zLCHR$ %4$UPOINT  DEF FN ▟[E]COS  LLIST  TO  CONTINUE  COPY  DRAW  PAPER V CONTINUE [A]CHR$ y SAVE USR © LOAD w[H] GO TO  FOR ▝ DRAW  RUN IN  CIRCLE  DRAW  RANDOMIZE  LOAD ?SGN ▘ RETURN ABS SIN  PRINT FN ( LIST _Q LPRINT 9▘ RUN  OVER  BRIGHT USR y BORDER  IF x LPRINT T DRAW ~ LPRINT  NEW  RANDOMIZE  SAVE  BEEP  PRINT t[S]FN >▝P CAT [P]©USR  COPY W CONTINUE VAL$ USR  OUT _▝LN  RETURN [N]t CLEAR  SAVE SCREEN$ [P] COPY  COPY  POKE ▘DhP LPRINT u BRIGHT x RANDOMIZE VAL$ SGN  PRINT S DATA  CONTINUE  DIM  IF  POKE  SAVE  SAVE :SQR FN SCREEN$  BRIGHT C COPY  SAVE  RUN  OVER _VAL AT © LIST  COPY `SGN  RETURN  LET ▛ IF  PRINT P CLOSE #^[Q] SAVE EXP >D} RESTORE ▛ OUT {pUSR ?[P] DIM  LPRINT  INVERSE S LIST  COPY  CAT [L] BORDER  SAVE _ MERGE  FORMAT [S][Q]▗  NEXT  RANDOMIZE A RETURN + OR [A][Q] DRAW }~ LPRINT  IF u FORMAT  PRINT ©@-[Q]@C▟ BEEP q LPRINT '[A] NEW INT  LPRINT s LPRINT PIO  FOR  LPRINT  OPEN # LPRINT [S]POINT ATTR w@ DRAW  OUT y~USR >LEN OIN { CLEAR  NEXT  RETURN  CLS CODE  FOR  MERGE @Qz▘ DRAW 7 SAVE >[F]CODE } GO SUB p RETURN  LPRINT ©PIIN uO SAVE o[P]<>ABS ©W@* OUT [A]  SAVE ` RETURN CODE IN  PRINT ~: CONTINUE USR ABS  RETURN @ CLS ? DIM  BEEP @IN  MERGE  COPY b LIST POINT [U]ACS ]<=/[K] FOR 9▝[Q] CAT [Q][P]CODE  CAT  DEF FN  LPRINT _O LPRINT RNDATTR W LOAD  CAT  CIRCLE CODE U}E REM  SAVE ▝ABS  RUN ATN p DEF FN  RANDOMIZE  RETURN [O] LPRINT  MERGE ? SAVE PEEK ~8 PRINT  CLEAR ]FN SCREEN$ *BPEEK  SAVE  STOP SGN U COPY  MERGE  IF  FOR [T] LPRINT USR  RUN  BEEP  INPUT &PI]W RETURN  REM  CLEAR [B] PAPER 8▝[Q]w>=PEEK kCODE USR >[I] INPUT [J]~ABS  SAVE } SAVE  REM *[E]+ NEXT  LOAD BIN X>GABS `q STOP  RETURN  LIST m]X>=9©PEEK  SAVE CODE _ POKE  DRAW 0 CONTINUE  RETURN  CLEAR  >A LIST  SAVE ©K CIRCLE 'ATN  PRINT  DRAW  CLEAR ▞ FOR  SAVE  COPY |' OUT  LOAD  LIST ABS  VERIFY ▞]FN  RETURN IN P8x[Q] LOAD  TO sABS  RETURN  SAVE © PRINT @ TO SCREEN$ E BORDER [I][P]UFN ©FN * FLASH J[R] PRINT  FORMAT o CLS   LET USR ASN u` RETURN @N LPRINT [M]© FORMAT FN ,▖[Q] RUN  COPY  LIST  CLEAR ? SAVE  CLEAR /` RUN CODE ©b MERGE  SAVE ©IN USR [Q] IF  CLEAR @ LPRINT EXP ,IN  SAVE  RUN  IF ▞O DATA  RETURN SCREEN$ 4<>}T)q[U] CLEAR [M]LEN [N]8▝ LPRINT  DRAW  VERIFY 9 NEW  CLOSE #IN  LOAD y MERGE 'LN  CLS  PRINT N  COPY AT  INPUT  SAVE  LOAD  OUT  COPY  LIST [O] SAVE 7 POKE ABS ;©▖ PRINT _USR ? OVER IN W MERGE  PAPER ▖u POKE  FOR  PRINT | IF [B] SAVE  OUT  REM $ CAT ▖ IF  PRINT Pxq CONTINUE ACS [R][N]{ OR  COPY mo DEF FN 9X▗ COPY SGN yWVBIN  LOAD PEEK @dVAL  BEEP K'INT  DRAW IN }© CAT @ COPY  LIST  SAVE  OUT  ERASE ▞ PLOT   GO SUB  CLEAR ©>= COPY z RETURN  DRAW _[M]8 RUN  CLS  DRAW  LOAD Wj FOR  POKE CODE  CLOSE # CONTINUE "{ SAVE /A PLOT  [A]_ CLEAR ▖I[O] REM ' MERGE @TAN qCOS W[R]ATTR  THEN  PRINT [I] OPEN #g© NEW  COPY b814|[P][E] SAVE  DRAW USR  DRAW  OUT }` CONTINUE POINT >=/IN  CIRCLE  DRAW o} POKE IN L SAVE [R] LLIST  DRAW  CIRCLE CODE  FORMAT [B]& CLOSE #>= DRAW  DRAW  ) LIST [U] SAVE USR zo SAVE  ATN  MOVE ▛[F] NEW O~ COPY TAB INT ▖,[U] LIST  COPY > FORMAT  TO > DIM  CIRCLE  LPRINT  DRAW  DRAW } RUN [Q]& DRAW ABS [H]▝ RUN  FORMAT @ POKE ' DRAW  DRAW  CIRCLE  CONTINUE [Q]PID FORMAT  DRAW P DRAW  BORDER 9CHR$ [U] STOP ACS mABS [Q]`▛5 ?@ CLEAR SCREEN$ NKk COPY 3VAL SCREEN$ ▗FN >=|@USR  CIRCLE E' ERASE EXP  RUN D OVER Q DRAW [N]8 DRAW @0K STOP  DRAW 6 RUN  OUT 1 LPRINT  DRAW : FORMAT  FORMAT ir DRAW @ DRAW ©[U]u[O]▖ACS ACS  POKE ▘gD CIRCLE [F]4  LPRINT  CONTINUE 28 LIST # PRINT RND1 CIRCLE > DRAW 0[J]8 DRAW w OUT zp K▖LN  LPRINT  LINE iBIN  PRINT  DRAW  FLASH  OUT }©▟BIN ▝B READ  DRAW  FORMAT  FOR  FORMAT  FORMAT U FORMAT  DRAW ! ERASE w|[U]>W STOP ACS F FLASH  FORMAT nCOS - DRAW [F]RND© COPY  BRIGHT tLN ▖v GO TO ACS  DRAW  CONTINUE % IF  DRAW [S]i/ SAVE T LPRINT r READ M[H]ABS  OR  COPY =A FORMAT  STOP ATTR  TO  SAVE SQR X DRAW  CLEAR $[C]C?INT }L DATA  SAVE PEEK  SAVE  CLEAR  CONTINUE [C] NEW  DRAW INT  CLOSE # DRAW U LIST  CLS SCREEN$ %© LPRINT nJ[S]IN >=Pq RESTORE [B]pns LIST  DRAW  DEF FN RNDTAN / SAVE  OVER uqM NEW z▛ COPY  PRINT  FORMAT PII STOP [A]x SAVE  GO SUB "` RUN ACS 3M COPY INT  SAVE  CONTINUE >=9 FOR INT W LIST  LOAD SCREEN$ ASN $wK RUN SQR ru* PRINT [H]^u;CHR$ Dt DIM  DIM n NEW ]/ SAVE .J SAVE  DATA eCOS  NEW  CIRCLE ) BRIGHT /[J]nCODE  SAVE ASN i ERASE  DRAW  OUT  DRAW  COPY INT  SAVE '[N]; LOAD  SAVE ? OVER  SAVE TAB INT 5[K]]_IN  SAVE 7)[F] TO P FORMAT JEXP  MERGE EXP 7 DRAW ntQ DRAW  GO SUB [I] DIM 7z RETURN  SAVE Zt]PEEK  SAVE ▛ DEF FN * DRAW  PAPER AT  NEW  CIRCLE x NEXT  READ / PRINT "LEN _ REM 5 SAVE n VERIFY u~4% DRAW INT _ SAVE  LOAD IN  ERASE [M]CODE z DRAW  INPUT ASN  DRAW  MERGE  LIST  RETURN  LINE [F]SCREEN$  OUT [Q]_ OUT R SAVE / FORMAT COS =#<= DRAW  READ  STOP  COPY SGN ▘>=[U]T INK %(E SAVE  COPY Q`▘h[B]LVAL [S]H MOVE e CONTINUE o COPY >=gINT d DIM U`c~>RVAL$  INPUT POINT  RANDOMIZE  COPY ©SCREEN$ [S][Q]▝> FOR P CONTINUE ▘© CAT  COPY  NEXT >=9' DRAW  LIST Qp,▝[P] DRAW  BRIGHT t RETURN AT ▘U SAVE  STOP FN ▝ DRAW  LIST [H]u SAVE #LEN bAT X'g+VGF RESTORE INKEY$[M]USR D COPY ? RESTORE ▛ INK STR$ p▚ RUN  COPY g0ACS TAB ▟ LIST i[A] RANDOMIZE  FOR sPEEK JSQR INT RND COPY [P]*SCREEN$ ▗ CLS TAB @|s[Q][M]USR ▞ COPY <( ▛ BORDER |USR E|LEN ^|p IF VAL ▞[S]W/[Q]INT  RANDOMIZE ▜ LIST USR ▘STR$  TO  DRAW  COPY ▟ LPRINT  LPRINT >[F]POINT 1<>USR ` LET ;▗[M]SQR (?p2[G]4▚[C]d@ PRINT EXP  IF N* INPUT  REM [F]VAL  OR  LINE *p[D] LIST {[E]! LET  DEF FN PI DRAW [Q] MERGE < RUN JCODE | PAUSE  OR ▞[H] CLEAR USR ^ REM RNDUkAT * PRINT USR © NEW W>BIN ? FORMAT  RESTORE  PLOT  GO LPRINT USR o& STOP ACOS 8pVAL$ $fDRP]r© LPRINT U[F]#ATN ,2TAN d▝[T]ATTR ` PAUSE  INPUT USR ][B]s PRINT X MERGE  BEEP KATTR SQR SCREEN$ UUSR CHR$ q*FN s LPRINT OINT  CLOSE #▜<=:[Q][B]▝ NEXT BIN IN  DRAW  CIRCLE &|_ THEN U>k DRAW  RUN /ATTR [F]U]TAB ▟SCREEN$ m MOVE  INVERSE  DRAW ▘i[I] COPY SQR n RUN  CLOSE #&[O]| LPRINT :PEEK @q_[F]x POKE r[P] LPRINT EXP rPEEK _<© LIST PI DRAW 0SQR BIN SQR < LLIST  LET P[J]INKEY$ LINE  SAVE  MERGE y SAVE x [H][B] SAVE © LPRINT [F][M] LLIST m[K]g LPRINT  CONTINUE J(/ INVERSE ▖[A] MERGE ▖PI SAVE  PLOT  b'[Q]POINT  DRAW ▝INKEY$ INVERSE  RUN <?[I]sSGN z[P] SAVE ASN _|2[P][Q]LN  LIST © COPY  LIST  STOP O READ  DRAW <> SAVE  LPRINT [E] PRINT 0sSCREEN$  STOP [Q] SAVE  RESTORE  BEEP  DATA  LLIST  REM ` DIM ▗/+SQR VAL$  MOVE  VERIFY  DRAW PIySQR CODE  PAUSE m[L] SAVE [N]ATN [D][U] DRAW xD[[I]|sN RUN 5<=>=UATTR  DATA UN"p)p[B]USR j DRAW X[NOT POINT [J]FN [Q]CODE [R] NEXT  SAVE W[F] SAVE PI▘ SAVE Z[U] LPRINT  FOR <=TAB  OVER  OUT BIN  VERIFY ATN ATN  GO SUB FxPI OVER = DRAW [D]z[A] READ l[Q] LLIST &^CODE }s DEF FN } DRAW :[M] FORMAT q^>= DATA [M] IF [P]LN 9_ BORDER SGN ? DRAW N/ DRAW  IN  IF VAL f] RANDOMIZE  CONTINUE  LIST  CAT LN  RESTORE } CIRCLE  REM PEEK peCODE ATN Cj1W.Q!?VTAN 4COS  LPRINT "PEEK ~ SAVE  DRAW v▚ REM  CIRCLE ▗i' GO SUB  COPY ]P MOVE hQRF[T]ST▟UVW▟}PQRh4ST[T] MOVE UVXW LPRINT  COPY ▛ COPY n_ LET  NEW ?BIN  LLIST  RETURN  STOP NOT x~`<FN ATN 0 DRAW [R] LPRINT EXP }<=[L] DRAW t▜p0_ LPRINT  SAVE  LET pSGN 0USR X LPRINT  RESTORE  COPY  PLOT  o LET  OPEN #NUSR STR$ > CLEAR  OR  LPRINT 80 AND USR  NEXT P LLIST  LPRINT  COPY  COPY [H] FLASH ySGN <=O8qp SAVE  DATA  LPRINT  LPRINT USR G8 READ  COPY  NEXT  OVER @ LPRINT _n NEW  LET ? LLIST BIN VAL$ NOT NOT x▜ RETURN `<`▝ POKE 0 RETURN OA`}EXP [L]<=t DRAW ▜0p? LPRINT  SAVE i LET b©USR  LPRINT  PLOT   RESTORE o OPEN #x SAVE  LET NSTR$ USR >[K] COPY  LPRINT 08 AND ▗` FLASH [H]SGN  COPY  COPY yO<=q8 SAVE pUSR  LPRINT sACS G DRAW [O] CLEAR  COPY @ RETURN  CLEAR G CLS [T] RUN  MOVE  LOAD  CONTINUE _ POKE ?r>= OUT IN  DRAW  CLOSE # VERIFY *FN [E]Y IF  COPY  IF ? PRINT  INPUT  OUT GIN [T]© MOVE  LLIST  LPRINT  ERASE  CIRCLE h[S]RZFN [E] LPRINT  CONTINUE  SAVE [P] CLOSE #©INT ?} RETURN ▙ COPY E▖[F][T][J]▟1K▛ CLEAR ) j▟[R] CLEAR  LPRINT  MOVE Q% RETURN  CONTINUE  RETURN  POKE } IF ; CLEAR D VAL 7/7 PRINT SCREEN$ 5 COPY ASN x LPRINT  RETURN G CLEAR [T] CLS  MOVE  RUN / IF  CONTINUE  LOAD  POKE _ REM ?VAL  OUT  PAPER ▝FN  VERIFY  LPRINT  CLS  COPY  LPRINT ? IF  PRINT  INPUT G OUT [T]IN  MOVE ©FN 8AVAL ▝0Z COPY [T] LPRINT [T]© CLOSE #?INT }▙ RETURN Q+E GO TO  STEP ▟L K▛ DRAW  CLEAR yjBIN  RETURN  LPRINT © RETURN  CONTINUE } POKE ; IF  CLEAR .TAB ,7#w©5SCREEN$ x LPRINT  RETURN TAB <= DRAW SCREEN$ ▙G] LOAD  CAT  OPEN # SAVE  LIST  CLS ASN  READ  NEXT  SAVE ;IN ?> LIST >= SAVE 0 LIST >= LIST BIN <=O CLEAR PI IF W RETURN ▞▛9T DRAW }~zU COPY POINT  LLIST NOT  GO SUB  CLEAR SSCREEN$ G▞ COPY IN z INK ▗? PRINT [P] REM _STR$ / RESTORE P LIST  COPY  COPY  RANDOMIZE  DIM UR)PI▚ATN  PRINT OFN  CLEAR  MOVE  FOR  FOR eBSCREEN$  DRAW IN  MERGE IN FN [F]CUSR ? BEEP  BORDER RNDWH COPY _[O]> BRIGHT  MERGE ?[Q]Z{ POKE TAB H DRAW [H]A COPY S RETURN POINT Uj[B][S][F]^"xjIN  LIST  CLS pT COPY ▝ LOAD  MOVE ACS ^" LET ! CLEAR O IF PIW COPY ©▛T9 DRAW ~}UzT LLIST POINT  GO SUB  DRAW  COPY NOT S CLEAR SCREEN$ IN G INK z▗ PRINT ? REM [P][P]H_/P RESTORE  COPY  COPY  LIST  RANDOMIZE  PRINT U DIM )R▚PIATN O PRINT FN  CLEAR  CLEAR e FOR B CLOSE # COPY ▝<= COPY FN IN C[F]?USR  BORDER  BEEP WRND COPY  COPY H[O] BRIGHT >? MERGE Z[Q] POKE {[H]TAB A" LET S COPY POINT  RETURN U[S]<=O^[F] RETURN "jxp CLS  COPY T▝ MOVE  COPY  COPY  LOAD ^ACS !1POINT [L]l/ THEN =ATTR SQR k▟COS u5q* DRAW rAa▝J[P]SCREEN$  BRIGHT  AND [U] LET ▟mSIN p, RUN VAL$  INPUT  COPY COS  STEP  VERIFY  RETURN  GO TO  OR <>▚(SCREEN$ f COPY RND=[D]ACS <>ASN STR$ COS  BRIGHT  AND ▟SQR INT 6[7 COPY COS 'd[Q]$R/T OPEN # COPY  COPY [N]jL FLASH & BEEP  CAT r INPUT  REM  GO TO  PAPER l INVERSE n COPY  STEP /[M]A[A]`X[C]P?R[Q]f LPRINT POINT 1l[L] CLEAR /= THEN SQR ATTR COS ©CHR$  COPY 5rqA▝aJ= FLASH ][U] AND  MOVE ▝ RUN ,▝©#© GO TO <> OR ▚ FLASH CHR$ (* POKE PEEK [D]<>ACS STR$ ASN  BRIGHT COS ▝▝ COPY 'd$[Q]T_ACS FN Lj& FLASH  COPY  COPY  BEEP r CAT  REM  INPUT  PAPER  GO TO  INVERSE l STEP n[M]/[A]AACS  LIST X`[C]P[Q]< OVER _ SAVE  IF  LET x RANDOMIZE  NEXT <= READ  RUN  FOR  BORDER  CAT  BEEP x<CODE [P] READ  LET /_ATTR <=SCREEN$ TxGQ READ  CLOSE #▙ CONTINUE  OUT  CONTINUE ?s CONTINUE PEEK ~x<SGN }: NEW  LPRINT Q LOAD  LPRINT @ PAPER  CONTINUE ©Z▙ CONTINUE  DRAW  CONTINUE VAL  PAUSE  PRINT 1<= LPRINT E LPRINT ># OVER  CONTINUE  CLEAR SGN [I] CONTINUE [D][T]VAL  THEN [I] LPRINT cWa4@AB MOVE hCDF[T]EFF READ G=@A▟BCDh4EF BORDER  BRIGHT G RETURN @ RETURN }[C] NEXT PEEK #BIN  CONTINUE  RETURN  FORMAT  DRAW  PLOT  iZ PAUSE  GO TO  DATA  COPY  VERIFY QUSR  LIST  BRIGHT  PLOT   SAVE j IF  LINE  CLOSE #[S]tRTHW[O]  DRAW $ COPY ?BIN © IF  AND  PAPER  DRAW  SAVE  PRINT [G] POKE  LIST [U]IN  GO SUB ▘BN{/| READ :8[M]AT 5 VERIFY i DEF FN lL BRIGHT SGN /o[M]8 PAPER  SAVE  OVER ~HX0[Q]VAL LN  CIRCLE ▞ PLOT  /y[I]hUSR  FLASH  SAVE  LIST  SAVE 0 DRAW #g RETURN COS Q RETURN ©? DRAW  RETURN  PLOT  [C] SAVE  REM  NEW  POKE  CAT VAL  OVER  COPY STR$  STOP [S] LPRINT  LIST x AND  STEP  SAVE 3 DRAW  RETURN 7 STOP X▛ LPRINT  REM "E STOP ?^ READ  BRIGHT o©▙[U] RETURN ? RETURN  GO TO o CONTINUE  RETURN  COPY TAB TAN IN  COPY  RETURN  SAVE 9USR  RETURN ? LPRINT  RETURN © LIST  COPY  SAVE w6[F]/[O]>= RESTORE [J] RETURN 7<= COPY  DRAW ; RETURN  RETURN  ERASE FN  RETURN  PLOT   SAVE  LIST kK DIM  CONTINUE [A] SAVE  POKE  INPUT  COPY  RETURN m' DRAW  RETURN  SAVE [M]6 OUT  COPY  CLEAR  RETURN  COPY ▟a` LIST LN < CLEAR  COPY z PLOT  5 INPUT c BRIGHT {LN ;r LPRINT >=SCREEN$ b~"9SPIACS ▗*2INT [P] RETURN ▞[A]AT  RETURN  PLOT  [H]$ PAUSE  INPUT  REM  NEW  STOP  LET  COPY ] RANDOMIZE  PLOT   LOAD  LIST |> STOP K IF " COPY x[E] DATA  CLOSE # RETURN  LIST % RETURN  IF  PLOT  AT  LET PEEK  STOP  OVER [C]$ DEF FN  LINE  AND CHR$ PEEK INT  GO TO  MOVE  COPY ?k X.:7v GO TO  BRIGHT p DRAW  SAVE  POKE  LIST  DIM [C] GO TO  CONTINUE  DATA  DEF FN [J][O] MERGE @ RETURN ` DATA |$ DRAW [K][G] SAVE  POKE  INPUT  MOVE H NEW  LPRINT <FF[T]b MERGE [P][C] SAVE TAB =VJ[N][C]IN USR LN ?|p SAVE  THEN TmATN ACS  FLASH IN  LLIST  COPY  FOR @@`/: LET ▞CCHR$ *S ERASE W REM QATTR  PAUSE  MERGE  CLOSE # OUT LN  DATA >=FN Pz STEP  USR ? TO [8j4v READ  LLIST ▜FN `0COS  FOR S RETURN D"PI[H] COPY  COPY K▘ PAUSE  REM  NEW  STOP  RETURN  PRINT [G]0*pT RUN  RETURN fK DRAW  SAVE PI[B] COPY  COPY PEEK 6`o|u>} GO SUB [G] DRAW ▛▝LEN 3[B] COPY F[T]K▟? RETURN ©[M] RETURN  COPY  LIST  RETURN  READ `[B]FUSR  LPRINT  PRINT R[T] SAVE  DRAW  RETURN  RETURN  COPY  READ  RETURN 4< COPY  LINE USR ▗INT  VERIFY SIN VAL$  DRAW [C]SCREEN$ INKEY$[S]4< OUT  LINE USR 2IINT ACS SIN VAL$ INKEY$ COPY [U]LN  THEN %POINT USR  RETURN 2 OUT  LLIST }USR  LPRINT  RETURN  RUN  NEW  OVER  PAUSE  STOP  LIST BIN  OVER %[O] RETURN x8 RETURN  IF  SAVE PI POKE (k OVER  STOP  SAVE  NEW  READ © LLIST  RETURN  CLEAR -[M]SIN # LOAD INKEY$>|x<= STEP  [R] POKE  SAVE  PAUSE ZePEEK  NEW  STOP |> CONTINUE xABS ▖SGN $ RETURN  PLOT   PAUSE  INPUT gx OVER CODE  FLASH  RETURN  PLOT   [U] COPY  RUN !&o"SIN EXP CODE 2ATN  DRAW INT N INVERSE ! STEP SQR  DRAW >2©ATN : COPY  INPUT  LINE vTAN  RETURN (% OR  LLIST  LIST > GO TO 2SCREEN$ ATN  DIM NOT ▜[C] COPY ) CLOSE #TAN EXP !Op GO SUB  STOP  STEP t^LN  NEW ©BIN STR$ ` OR  STEP  OUT LN !BIN ATN  DIM )[M] DIM  CLS v NEXT  COPY  RETURN [P] DEF FN  LOAD [G] THEN G  STEP [Q]LN ;> RUN  DATA  NEXT ! DIM [O] COPY  GO TO  THEN O  PAPER CODE ! GO TO AT %INT |$[E]FN }PI[J] PAUSE SCREEN$  RESTORE [J] STEP  SAVE SIN ASN ©-4[O]ASN TAB  LPRINT [O]|TAN NOT ZABS  NEW COS INT "b0&( IF *VAL$ ne▝ MERGE  BRIGHT  PLOT   INPUT  DATA t MOVE  LINE GASN  POKE [J] LET 7 STOP o LINE ) READ  MOVE  STEP ABS s IF Z<>O DRAW *bASN 0  POKE  STEP N RETURN ASN  OR  CLEAR  COPY  FOR  RETURN [A]ASN M DRAW  NEW  NEW != CONTINUE  NEW  SAVE POINT  READ  READ  INVERSE ! IF  COPY  CLEAR 9▚ GO TO jQ PLOT   LPRINT  PLOT  ▘ NEW  BEEP "MHASN U LET [P] RESTORE  OR  MERGE x THEN ?>INKEY$©[B] ERASE CASN NOT S INPUT  GO SUB [Q]) MOVE  RETURN LEN  VERIFY LEN ( LLIST [U]POINT = BORDER CHR$ :ASN  MOVE  PAUSE <>d LET [D]▗ COPY  SAVE ~q DRAW  POKE >} STOP f POKE ^ INPUT TAN  CLEAR [J]SGN  AND  LET  CLEAR  DRAW . LINE  CLEAR  POKE  RESTORE  POKE <>%y CLEAR AT  STOP Z[J][J] CLEAR _ INPUT / STOP  STOP  GO TO F STOP SQR :1FN  CLEAR  CAT  CLEAR  LLIST q POKE  CLEAR POINT B LLIST  CLEAR ▗?CHR$  CLEAR  CONTINUE  THEN  BRIGHT SGN  CLEAR  TO CHR$ INKEY$[Q]©/ INPUT [M] OPEN #©▗ FOR  CLEAR ▛[Q][E][T] FOR ? CLEAR ![Q] PAUSE  CLEAR &efIN ?LN ATN  POKE ▜ LLIST [T][Q]▜[N][T]INT [J]<>o OPEN #_<=o|[L]<=0<= LLIST  PLOT   VERIFY  COPY © LOAD ATTR W RETURN  SAVE  RETURN  LOAD [C]; LET  AND  PLOT  [N]H SAVE oSGN CODE [L] SAVE U GO SUB  SAVE Y RETURN E▛dASN BIN @[M] CLS $ACS  TO VAL ▗ GO TO D DATA  GO TO  CLS  IF  COPY %RND COPY  DRAW  COPY  CLEAR  COPY  RETURN  COPY  FLASH mdJ3 COPY  COPY  COPY DR COPY  COPY  COPY q STOP OATN  CONTINUE 1  DRAW  COPY  DIM KEMPSTON FOR / DIM /ICLA CAT ?R FOR  JOY GO TO IC© NEW K COPY  CONTINUE 2 INVERSE  GO TO  INVERSE YBOAR$3D PAUSE 0 PAUSE  FOR  BORDER  PRINT aPG RETURN ME COPY  REM PRS{z  LPRINT :-[R]v" CLEAR LEN  LET ? OR TAB  LET CHR$  CLOSE #BIN M PRINT N©"<=U COPY  RESTORE  MERGE  OR : POKE ▟ATN EXP ( STEP HLN w CLS  RUN < RETURN 8SGN : SAVE STR$  MOVE  LLIST <>*SIN ~# BRIGHT  INVERSE RND©VAL$ ` PAUSE "IN r STEP  CAT t LINE  VERIFY NOT /INT [D] RESTORE ▟ OUT [B]uUSR @]PI THEN - CLS bk$  LIST  LLIST sPOINT %sB' OR  NEW  COPY QLN  LLIST STR$ # COPY > GO SUB ^ DRAW  FOR  STEP  COPY LN  INVERSE rq~-&w#TATTR  RETURN STR$  BEEP GmRND CIRCLE STR$  BRIGHT  INVERSE CHR$  IF lSQR LN INT NOT SQR  CAT b RANDOMIZE 1s3VAL$  DATA  LLIST CODE ~ RETURN  PAPER  OR  DATA  DIM  LIST ▗5= LINE EXP GR IF  SAVE IN PEEK  OUT [F]!VEXP NOT  GO SUB  FLASH D PRINT o FLASH  LET <> LIST o-( LIST [R]'EXP  BORDER  REM !`EXP ~W# READ  THEN 0!#+ CLEAR  RUN   FOR  OVER  INK  RETURN  OUT ;BIN  GO SUB VAL  INK <>SPACE COPY YM H SAVE IFT COPY PEUSR B?CAABS S LOAD [P] RANDOMIZE  COPY  COPY © TO MNB COPY  COPY IN LKJH OUT POIUY LOAD 098 COPY  COPY 76 RUN 12345 CLS QWERT CLEAR ACHR$  COPY SDFG RETURN ZXCV RANDOMIZE  COPY ?© COPY  PLOT  [A]EXP  BORDER  SAVE V▛[J] CLEAR t CLEAR e CLEAR hUSR  DRAW  PLOT   BORDER o COPY  GO TO  IF z INVERSE ~▘S<>=_ OR E TO nYATN f> LIST  COPY  REM  NEW CODE ![S]X STEP  NEXT EXP  AND  DATA  SAVE YFN  SAVE bx>w, DRAW <> SAVE XCODE  NEXT x LIST   NEXT <>[I]EXP )[B]TAB  SAVE g STOP TAN ATN  DRAW  COPY INKEY$ COPY  REM U._ RETURN  DRAW  PRINT  OR  IF  PRINT 1 COPY !CODE p COPY  DATA  PLOT  [D]>! DRAW IN D[P][P]X FORMAT  GO SUB VAL  RESTORE !SQR  FOR  LLIST = OR  LIST CHR$ CINT  STEP IATN  POKE  CLEAR s! ERASE  INK zZ IF ▚ LET  INVERSE ![P]NOT  PLOT  z CLEAR ~▜6 COPY © OPEN # PLOT  >G AND  THEN IN 2}INT O! IF  COPY @X } NEW  LPRINT  PLOT  oq BEEP N IF  IF y LLIST O OR ^ REM Q NEW  RETURN CHR$ ! BRIGHT IN "USR INT ▙ABS QDgVAL$ W~1 LOAD  LLIST  DRAW [N] GO SUB s GO SUB  RANDOMIZE  OR  LIST  RUN  COPY  THEN  CLOSE # RANDOMIZE  MERGE  COPY  DIM lIN INT H STEP ps RETURN :LN INT GO GO SUB C RANDOMIZE :SQR  PLOT   NEW  BORDER W_ GO SUB S RANDOMIZE : REM  BRIGHT <2 DRAW  RETURN [T] PAPER |INT CODE  RUN  DRAW ABS SCREEN$ CHR$ SQR  STEP  OUT tNOT  STEP  INVERSE WL COPY <>NOT  STOP [I]MSQR  RANDOMIZE &j) LPRINT  COPY ▟u~COS #foSIN w$| NEW (C NEXT 1 COPY ?<>} AND  o0 BORDER NOT [G] RETURN LSQR | VERIFY g OVER  RUN ▝ BRIGHT  CIRCLE POINT f▟/ RETURN  SAVE  PLOT  ~ RETURN [S] CLEAR || INPUT  PLOT   RETURN  READ [H] PAPER | NEW >=`Tz RETURN _j PAUSE  DATA < NEW  IF  DIM >=q RETURN >= COPY [T]I[K] FORMAT  RETURN x RETURN LNOT  AND  GO TO ?= DATA  RETURN G▞[A] RETURN n RETURN GBIN AT [A] COPY © SAVE [K]TAB PI<AT NOT / DRAW  RETURN  PAUSE ~[A] LIST  RETURN X[F] RETURN  STEP AT l RETURN x RETURN / PLOT  AT r© SAVE h<=▜<▜<=z RETURN j DRAW t SAVE vM READ  RETURN  DATA ?<867 LOAD  TO ? TO  VERIFY ;T RETURN br AND 6 READ >=X OR  RUN  TO SIN ▜7 PAPER >y AND   CONTINUE  COPY  DIM  RETURN  RETURN yVAL [O]yINKEY$%x[E] RETURN  REM  RETURN  CLEAR ▜>= DIM  BORDER  RETURN  DATA BIN  ERASE  RETURN 0ld& DATA ts VERIFY SGN  LPRINT  RETURN STR$  RETURN SQR [M] RETURN 0 RETURN  NEXT  TO [E] CONTINUE I LIST X AND CHR$ _ BEEP  CLOSE #8INT [B]▚SIN  RETURN  DRAW  IF >=USR  RUN  BRIGHT 0pRND~@ DATA  RETURN  BORDER /ABS RND TO  RETURN  NEW E PAUSE  RETURN [M]<=ATN  ERASE  LLIST  RETURN ] RUN D~ DATA [E]N COPY [P]>=PEEK [P]x RANDOMIZE ~RxRND RETURN   RETURN %[O] PLOT   RETURN © DRAW >=© DRAW HVAL PEEK $ COPY  RETURN 7 OUT  LIST > TO VAL  INPUT IN p PLOT   INVERSE  RESTORE  LLIST ~ATN CHR$ ▝ DRAW IN  GO SUB  COPY NOT u<>= RETURN  RETURN STR$ [A] PAPER ▛6<>wW'VAL  NEW  STEP <=TAB IN [O] RANDOMIZE  RESTORE ! PEEK +SQR  LET  BRIGHT  LLIST  PAPER  CLOSE # OR ~#N ERASE IN  RESTORE oa RETURN ( MERGE  CONTINUE  MOVE CHR$ ~ INK  LLIST STR$  DIM <> CONTINUE h| DIM  REM <>/@|[M][T] MOVE SGN  BRIGHT  READ F DRAW H<▟F/|4[M]SGN  BRIGHT  BRIGHT h DRAW P<kG COPY W COPY /Z DRAW  RETURN  CLEAR  OPEN # DRAW  BORDER  CLEAR 4L RETURN  CONTINUE  TO NOT , FORMAT [Q]©Z COPY g COPY PIPI RANDOMIZE  NEXT q SAVE  CLEAR  FLASH ▙ SAVE  DRAW _PIQ RANDOMIZE  DRAW  RANDOMIZE q RUN  COPY  LOAD q COPY  PLOT   GO TO q SAVE  RANDOMIZE ©[P] RETURN H# AND  LOAD  CONTINUE Oi[E] RANDOMIZE  DRAW  RANDOMIZE  DIM <= RUN  LOAD ~ COPY  PLOT  [I] RANDOMIZE  LPRINT  NEW  READ  COPY [M]SQR  PEEK  DRAW  FORMAT LPOINT  PLOT   DRAW $ABS [E] ERASE  DRAW d GO TO / SAVE x RESTORE [T] DRAW [I] GO TO  LIST D< POKE  CLOSE #@ABS  CLOSE #
  48081 REM  IF  DEF FN 1 PLOT   BRIGHT TAN  POKE F TO  PLOT  TIN  DRAW 8 COPY ▝ RETURN CODE 2 VERIFY STR$ 'TAB [N] STEP  PLOT   IF  CONTINUE  IF dATTR  IF  IF  COPY > COPY <PI GO SUB B0 IF  RANDOMIZE ATN  G: MERGE xcs CLEAR r# RETURN  RUN  COPY <> RESTORE o&)5CHR$ ^#V[U] REM  DIM  LLIST k4f ERASE <>w<X MOVE ht[A]F[T]AT >=j[M] DATA iIN  CLEAR /BIN "*rCHR$ u CLEAR i DRAW [P]^ CAT V|INT 8% }SQR  DRAW /xATN (#!T OR g]] MOVE AT ABS / RESTORE  RETURN 6PI STEP   GO SUB [M] PRINT  CLEAR NOT _~[N]>=! NEXT  COPY |STR$ [Q] STEP  OR IN !ACS  POKE [S]<=VAL  POKE  BORDER f[L] CLEAR u ERASE to!CHR$ [P] NEW <= STEP { OR PINOT  LLIST >p MERGE V▟5F DIM }SCREEN$ SGN  IF  MOVE  RESTORE  VERIFY 7 TO  LLIST EXP  MERGE ? DATA W? STEP =s CLEAR / FLASH [F]~+ RETURN   TO q&CHR$ INT [K] GO SUB + STEP  DIM ~ LOAD SQR !▖ LOAD ACS /NOT L CLS t{ CLS s[I] MERGE  CLS  BRIGHT  CLS ©~ CLEAR w LINE %USR  CLS z+d[E] DEF FN  POKE  IF g STEP  BEEP STR$ <>L MOVE h[M]LN F[T] CLOSE # LIST F READ SGN (D▟`|[I]h4TAN  FORMAT ' AND  OR  GO TO ABS 4$@/ MOVE hx[E]F[T]VAL  TO ^▟ CONTINUE [L].&d CIRCLE d COPY  COPY ` REM LN SGN [M]VAL  CIRCLE >=PEEK  AND Mr RETURN PNOT [T] GO SUB POINT AT <> IF  GO SUB @[M]VAL$  FOR 7 GO SUB [C][A] GO SUB 0 OUT $u[N][P] DIM td[R] GO SUB N PRINT [L]tvX GO SUB o[C]'e GO SUB g<K VERIFY  GO SUB (#VFPEEK {[E]IN oI[R] GO SUB  RANDOMIZE |G}o<> GO SUB X8▙[L]of DATA <=pPEEK DTAN  GO SUB  NEXT rS▖ GO SUB [O]CODE ZS[Q] FOR ▟B% BORDER SLN LN  GO SUB |ABS & LLIST  RESTORE S FORMAT LN  GO SUB  RESTORE  NEXT S CONTINUE VAL ABS [R] DEF FN PI GO SUB S▗O OPEN #▙K▚Sf SAVE xINKEY$S OPEN #SGN ▚O▙SATTR  NEW [ FORMAT [O] GO SUB Si<> POKE  OVER  GO SUB U DEF FN  LIST S_RNDxABS  LIST  LIST [R]SCHR$ , PAPER [P]STR$  OPEN # GO SUB Si/USR d@PI GO SUB S▟kdE LIST 4f GO SUB S THEN 2SQR  CIRCLE  RANDOMIZE |SCREEN$ [P] LOAD T COPY  REM "ATN  OR [F]k#USR * PRINT ~[I] DIM [C]<>#2ACS 8NF LIST <> DATA &i LIST [O]COS V SAVE h SAVE ^:qq NEW  STEP  THEN NOT ▝ COPY © [Q] AND  NEW  COPY CHR$  RESTORE  OR  OPEN # RETURN POINT  COPY  RANDOMIZE U%CHR$  BEEP <=g INVERSE kjGATN PI:? BORDER   BRIGHT POINT  INVERSE ] FLASH  LINE USR  OR  FLASH  INPUT  REM  FLASH  COPY ©4)4@LT_ipx COPY  COPY ▜▙[E][K][Q]RNDSCREEN$ CODE TAN LN SGN USR NOT <= LINE  COPY  COPY  STEP  FORMAT  OPEN # MERGE  CIRCLE  PAPER  BRIGHT  OVER  LPRINT  STOP  DATA  RESTORE  BORDER  CONTINUE  DIM  FOR  SAVE  COPY  GO TO  GO SUB  INPUT  LOAD  LIST  LET  PAUSE  NEXT  POKE  COPY @$ 1COS  IF  CLEAR s' CLEAR )b<# CLEAR "  CLEAR Z▗ IF  POKE [C] POKE  IF  POKE  CLEAR  POKE [B]) POKE  LIST (f IF BIN x  OUT BY" CLEAR  OUT  FOR ,[C] BRIGHT ' LINE b[B] CLEAR  VERIFY `▜% OUT )R OUT I/ OUT  LOAD  OUT ▖3( OUT [E]CHR$ ▗ OUT BIN [E]$I%[B] IF  BRIGHT [U] POKE  CLEAR  CLEAR M+ CLEAR  POKE  OR <=% DEF FN  CLEAR $ CLEAR [O] DRAW  POKE ACS !H"IN # BRIGHT ACS ! PRINT  COPY p3 REM ~# CLEAR [D]3 CLEAR " CLEAR # LIST  CLEAR [C]3 CLEAR  CLEAR % POKE  CLEAR TAB  DATA  IF H FORMAT 3G" CLEAR " CLEAR 7% CLEAR ) IF  POKE 3s CLEAR $ CLEAR ' CLEAR <=p+ IF  POKE Y$ CLEAR  RESTORE (ILN  CLEAR , IF  POKE  STEP " CLEAR  RESTORE * CLEAR .IBIN  IF  POKE  INPUT d- CLEAR STR$  POKE +$ CONTINUE  OR [L][U][Q] CLEAR <STR$ 4 CLEAR  IF !INKEY$x CLEAR < CLEAR  . VERIFY  IF %##Z RUN  STOP  BRIGHT R TO ( INK  LET  CIRCLE ▘ OPEN #%[A] OR STR$ PEEK [M] STEP BIN x( LINE 3[K] PAPER  RUN  CLEAR qlMCODE  COPY F=[P] POKE F▝G NEXT  POKE ▘E OUT  RANDOMIZE  POKE ▗E DRAW ▙ POKE ▚E▜ AND 0 POKE  COPY  COPY  OR [P]?7j COPY <>V, LET  PAUSE >!&By6(▙ COPY ©©<_o7[T] PLOT   COPY  LPRINT  DRAW  RETURN ~PEEK V>=[P]INT ©_>/ BEEP  RESTORE PEEK ABS NOT  RUN  DRAW  SAVE  LPRINT USR [O] BEEP Y[N] LIST  DRAW  INPUT ▜n RUN qx RANDOMIZE x DRAW  IF @USR ▙BIN  LPRINT  LET FN t_>= LPRINT VAL XTAN |x  SAVE  INPUT [Q]P LPRINT  FORMAT _>=SIN >=IN ABS T COPY AT USR  READ px LIST |.[D]? CONTINUE EXP cSGN  LPRINT P READ xv/ OVER  LPRINT  SAVE © CONTINUE <> INPUT  OVER h CLOSE # DEF FN $PEEK j@` COPY p[C] CAT  COPY ~(^* DATA  COPY [H]©Q?©~}zT srINKEY$RND LIST AT [S]_PR OUT  FORMAT K INPUT 0Y COPY  NEXT JINKEY$k NEXT  GO TO xFN P RETURN [Q] DIM  GO SUB  DIM d NEXT  COPY STR$  SAVE  RANDOMIZE  BORDER  OUT IN  OVER GACS  LPRINT x[I] RANDOMIZE SIN PEEK NOT SIN  GO SUB  RANDOMIZE 5jU RETURN * PAUSE  IF  BORDER # AND  SAVE i CONTINUE  LIST  RETURN 8 DRAW  TO 0p DEF FN ©4:t_~?> INVERSE < OVER  BORDER  COPY }+WSQR d LINE SGN  OUT  LET  LPRINT p FORMAT x, COPY ©/*,x FORMAT p LPRINT W+x POKE } COPY  BORDER ~<POINT  PAUSE  COPY VAL  LPRINT >=H DRAW CODE SGN  CIRCLE SQR 8/TAB nABS T NEW  INPUT  RETURN  CLS vFN  CLOSE # PAUSE  GO SUB  GO TO  DEF FN PEEK ~9CHR$ ? LOAD # COPY ABS O@[A] OUT  SAVE 9| IF  DRAW T POKE  SAVE ▟t DRAW  BEEP  FORMAT  CIRCLE  PAPER  INK  INPUT [N]INT C xp OVER q RETURN {©u SAVE 3ATN  LOAD =9}NOT  DRAW TAN `[P] LET  RANDOMIZE }=' CAT  RETURN  INPUT  COPY <> AND  GO SUB  DATA  GO TO  LINE  RETURN [J]OSGN  COPY AT >= RETURN [Q] LOAD TAN @ COPY SGN  OVER 1 RETURN LN  DRAW 'p COPY  RETURN ▟▟[M]X8TAN ' POKE 4@ RETURN  GO TO ▛ PLOT  qCODE  COPY  ?>IN [H]/[N]^ABS > DEF FN [H][H]p<= AND jSIN  SAVE USR 9 CIRCLE I GO SUB  INK |[A] CIRCLE = RETURN o/o MOVE ;Iop▘ DRAW <POINT FN  BEEP 8>=SQR [O] LET $<> LET R LIST  RANDOMIZE  COPY [G] CONTINUE  FORMAT [U]L[I]0LN `bx SAVE  POKE <> RETURN ?[B]sU{[A] COPY % READ  OPEN #[B] POKE  PAPER  PRINT dv CLEAR TAN  PAUSE o RETURN  COPY ? DEF FN  IF | CLEAR P> FORMAT ▚_ RETURN VAL$ OWg NEXT  LIST [G]7 CLS [G]s▙ FLASH  IF  BRIGHT =PEEK /[S] RANDOMIZE "<zt SAVE [R] CIRCLE  CONTINUE J0NOT  OVER PI IF  RESTORE  ERASE  COPY  COPY  COPY  DRAW  RETURN  CLEAR  IF [U][A]V[P]?[M]<@ LPRINT  RANDOMIZE VAL$  RANDOMIZE  STOP u LET  IF ?CHR$ ,AT  CLS  RETURN | REM  MOVE PI[B][P]BIN  CLS  RETURN  GO TO >BIN  AND 3M PLOT   COPY *?[OT COPY FN P COPY IN <=COS EXP PEEK ~ COPY  RETURN  IF T[Q]ABS INT LN IN #PEEK  OUT  RANDOMIZE |▙LN  INPUT  COPY I*P LIST USR  DIM PEEK T LPRINT  PRINT ~|s/i DEF FN ?▘COS gwpDj RETURN c▝0[D]©:©~ COPY SCREEN$ Uh CONTINUE EXP  FOR f{|PI COPY a!' RANDOMIZE q RETURN  LPRINT [N]`9© POKE :L POKE )R BORDER  COPY  LIST ? CLS  LIST ▜ RETURN  LIST  CAT  PRINT tIN %G[H][H]O INPUT FN BHb PLOT   INPUT  OVER ~?J▝w COPY  DRAW y CLEAR [B]G COPY  CLS  SAVE  OR [C]SGN *!8 LIST ?_ PRINT Z READ D<[M]BIN ?ABS ASN  POKE USR ABS ;SGN  BEEP 9:S LOAD ©;? LLIST  OVER  INPUT  PLOT   IF  PRINT  DRAW g[B] RANDOMIZE  BORDER ~ LPRINT ©IN ? OUT  RESTORE [J]cTAB  COPY  LOAD [P]sINKEY$LEN IN TAN PEEK  BORDER  LOAD p>SQR 6[O]^PEEK  OUT [I]G? CLEAR  CLOSE # INPUT G RETURN  GO TO  GO SUB Cg=u CAT  RETURN  RUN  SAVE [R]U REM  CLEAR  LET  BEEP  MERGE  =/ COPY  OUT g RETURN ABS >[P] BORDER  SAVE  NEW  CLEAR N POKE ]▛POINT  PAPER ] LOAD  INPUT SGN >LEN =[I] STEP  FLASH  CLEAR  PAUSE T IF u RANDOMIZE  PRINT  REM W~ INK  CAT © LLIST  CLOSE #([Q];©^ COPY [L] RANDOMIZE  COPY inFh#sVAL$ mrp9 TO  LOAD  CLEAR  RUN  PAPER DFN INT  VERIFY P@ RESTORE {©/ LET  RUN  DIM  LPRINT [Q]p SAVE TAN INKEY$[Q]t/ATN .© PRINT   FORMAT FN !_ DRAW ztATTR  MOVE PEEK x COPY %INT }SCREEN$ U+goO[ BORDER [O][Q]=CODE x[P]ABS _ LOAD epcL[A]Nlv  COPY  COPY ?sip DATA  BRIGHT <[B] CAT INKEY$ FORMAT [8w RETURN  COPY 2 BORDER  RUN  CONTINUE s REM  LIST *8?©5 DATA O- COPY USR LN x POKE [Q]COS  STOP (~©/ OVER  OUT o|Sy STOP ©~3>[P] RESTORE  FORMAT  DIM  NEXT  COPY ?:#>P0 LPRINT  PAUSE ] FOR T SAVE 1_o LIST `p OR g RETURN  CONTINUE  FORMAT $▙S SAVE  DRAW  RETURN ▗? RETURN  COPY }y-Y;{]9▟=ys DRAW  ERASE W©USR  DEF FN ▗q0 COPY ▚STR$ OC STEP f OVER >xs RETURN / RETURN ~ COPY USCREEN$ -< LINE IN <[x▘ow{ LPRINT  READ ▜x DRAW  INPUT  COPY  BORDER ©?8 CIRCLE [N]} CLEAR xX NEW  LLIST  RETURN ©CODE USR [M] MOVE ? FORMAT 7 CLS  CLEAR  OR h`>=©9FN C> CLOSE #~-PQG©=~s IF a[Q] POKE  COPY 1ABS  INVERSE [M] BRIGHT h CLEAR  IF  CLOSE #A OVER H@HI© RUN >>= RETURN  BRIGHT  DRAW {wo_©ACS )h COPY  VERIFY PI RETURN  COPY :4SIN ` LPRINT PFN K RANDOMIZE  INVERSE =gACS "sj LLIST TIN 1 GO SUB ▛0xLN  MERGE  CLS  PLOT   GO SUB  CAT ^ FORMAT OIN  BEEP wy RETURN  FORMAT  LPRINT VAL$ [N]>VAL$  NEXT  COPY ©JCSIN 3=, CLS SGN tFN p▖Te[H] COPY  PAPER niBIN ▛USR ▟ RETURN EXP /LEN [Q]p'1D+D[Q]ATN  AND  CIRCLE LN  NEXT  LPRINT :▙x|#[R]8[B]p LPRINT  PAUSE INT UATTR m PAPER :INT  STOP q3o CONTINUE [Q]@[A] DRAW ▟*TLN P_X2 RANDOMIZE k[L]VAL USR ph RESTORE FPOINT  LINE  FLASH  GO SUB EXP  GO TO >. FORMAT M▛ OPEN # THEN [P]#|[A]`ATN  INVERSE |$vN GO SUB Xq0 READ bUSR  NEXT  !0ATN 8h[T] TO [N] RETURN >=9VAL )6[H] REM  DATA  RETURN 0 INVERSE  GO TO  COPY  POKE  LLIST O DIM USR NOT ▝( FOR  COPY  MERGE c FOR |hATN  PRINT  NEXT ` LPRINT AT x]` PRINT F▝ LPRINT INT  COPY  INVERSE  LPRINT  PAUSE  GO TO  DRAW  OUT  RUN  TO `p0ATN  RUN 8& LOAD . LOAD z DEF FN  OVER 5NOT  PAUSE ACS /w;<8SQR  CLS xx LIST ` TO M PLOT   CAT |68VAL$ VAL$ [T] TO [L][S]NOT n▛83r FORMAT  RETURN  OPEN #USR |SQR [I] INVERSE ^ SAVE  BORDER  INK  LPRINT - GO SUB TAN  CONTINUE  FLASH  ERASE VAL `[J] COPY  MOVE VAL yI RETURN  COPY  LET Mh[S]A COPY STR$  RUN  RETURN [D] DATA  CLEAR {?O COPY  h POKE xt IF  DRAW  RETURN  RESTORE ( CLOSE # LOAD  FLASH SQR ©?[M]+7CCOS P`NOT  RETURN 7 RETURN  BORDER  LOAD  OVER [M]|z PRINT  CLS k VERIFY zx> OVER ACS ATN R DRAW SCREEN$  CLOSE #WSIN M© COPY  RETURN  POKE  DATA  PRINT  PAUSE  LET  DATA  GO TO LN 1 PLOT   POKE  LPRINT <>&VAL ` COPY  READ LEN  CLS ACS ▗>~ COPY  COPY  POKE  RANDOMIZE  COPY owz?p NEW 7FN  PRINT CODE  CAT [P] OUT  PLOT  o<=7>%? OUT  OR  COPY O LOAD <= LET  LLIST  SAVE ;Z AND  LET Wh'X▜[G]GATN  RETURN X INPUT  ERASE  SAVE ACS RND RANDOMIZE ?x|s INVERSE J/5C COPY  LLIST STR$ @[R][T] OPEN # READ  REM )%/ DRAW :| SAVE  DRAW  LPRINT  CLOSE #_©?~ DRAW  OPEN #ATTR USCREEN$  RETURN j MERGE <[Q] RETURN ▘0gv▚ OUT  RETURN % LLIST USR ▚ DATA W DRAW 7> BORDER 1dte$ BRIGHT  COPY PEEK >ABS ?IN <=[L]ASN xXUSR Th COPY  RANDOMIZE B CONTINUE 7CHR$ er <=ATTR GCODE i[P]h8SCREEN$  STEP PEEK  FOR ▟}|{sO COPY  ERASE  AND  CONTINUE R[U]9 GO SUB  SAVE  PRINT [R]G8[P] SAVE  OUT [P]IN G SAVE  COPY <3 VERIFY ?>M▞DPIE COPY  COPY ©x SAVE  FOR  DRAW n:SGN ABS AT 9y COPY  COPY  ERASE  DATA NLN ,>=4AT dX? OUT  LOAD  AND IN [P]CODE  DEF FN ▟7[F]J COPY  COPY ▙[E]:T*,^PnL CLOSE #![O] ERASE  OVER  LINE CHR$ ? SAVE ATTR _IN ©?/(P"<> COPY 6HC LPRINT  PLOT  =BIN  RETURN  COPY ©SGN LN {m GO SUB nACS ATN  SAVE  OPEN #U IF ^ DIM  PRINT NOT  GO SUB  CLS 3<=b RANDOMIZE ▞g▖USQR P STOP PI/FN [S]DLN [N] GO SUB 9* LOAD  BRIGHT FN 6>=[A]"5~ LIST !%-$[H] COPY   LPRINT ABS PEEK  BEEP &  MERGE CHR$ ▗ CIRCLE Z DRAW  CIRCLE [Q]D[O]O[P] CONTINUE OPOINT Vlp LPRINT PIF PLOT   RETURN   PLOT  NOT _/© LPRINT o CLOSE #CTAN FN + LET ?USR ©`▛BIN [A] COPY  COPY n_[P]©@? o{▞x PRINT [M] PLOT   IF  RETURN LEN [Q]z| LIST  SAVE IN T COPY  OPEN #/gw8 FLASH  RETURN  CLS  NEXT  BORDER <=▜fY FORMAT _+ FORMAT  GO TO b0 TO 0 COPY c COPY  OUT `@>= NEXT [D]I| INPUT n▛o▙ OVER } RETURN  FORMAT >s<V GO TO  OUT *LN _H AND SGN  RETURN >= CLOSE #Sk)▘©+?▜ CLS  COPY bN[O]l|[P]p0 CIRCLE @>!▝ COPY _SQR | SAVE  LIST  CIRCLE [M]< LIST  COPY h NEXT  FOR <>▚2 BRIGHT VAL `hIN <?{ COPY  INPUT ` COPY 1 >}|[S]yYG PAUSE ? SAVE  LPRINT  CLOSE #[U]Rw STOP O=> IF  BEEP [h[Q] READ FN UzL LPRINT k FLASH D IF  RUN INKEY$FN '{_x CLEAR  DRAW  RANDOMIZE  ERASE  PAUSE  IF |? RETURN ASN G CONTINUE  RESTORE ~ DRAW  LLIST W;S3 THEN 'PIG<=▛ PRINT  STOP k{U REM  ERASE o[R] STEP _▛ CLS USR [A]9O RETURN z[B] COPY ▜STR$  DRAW  PLOT  IN ySGN [K]U NEXT  PRINT 5ATTR  REM  IF >=[N]IN ;{[H]u{?v FLASH  NEW [B] PRINT  PLOT   CLS Z CAT  READ  SAVE  LOAD BIN IN ~/ LIST PEEK T* NEXT  CAT  READ Zp7IEJ[B] IF KL AND POINT M SAVE NOY▟PQ=x[R] CONTINUE  COPY RS>= SAVE TU BRIGHT d▛ CONTINUE Vs LIST WX SAVE YzEXP Z CONTINUE [r CONTINUE /] SAVE ^ REM _R CONTINUE ` DEF FN a SAVE bc5d NEW S! CONTINUE ef SAVE g▟hij>=[N] CONTINUE kEl CONTINUE m;Wn SAVE op[A]p CONTINUE qwVAL$ r SAVE st![Q] CONTINUE u READ /v SAVE wx>=_y FORMAT z8W{ SAVE |}IN  MOVE ~ COPY :v SAVE ATN  DRAW  COPY USR  GO SUB s BRIGHT :w SAVE  RETURN 8>2TAN  SAVE  RUN ! BRIGHT " LET ? PRINT  READ :BIN ▘ VERIFY  RETURN 0> ERASE  BRIGHT >2PI RANDOMIZE  LIST NOT 1USR CODE  READ  STEP AT  COPY  NEXT y:▗▜ COPY 2O BRIGHT ▖ INK  STEP  COPY t RUN O NEW G> OPEN # RETURN  RETURN 4CODE  CLS y NEW ? AND Po▜ REM  SAVE  RETURN 0 COPY / AND G} NEW _ PRINT 2 RETURN  COPY  BRIGHT &▟u)~#fox NEW  SAVE |INKEY$l CONTINUE (7G THEN  DRAW ~[R] PLOT   RANDOMIZE  COPY B INK xLEN  INKEY$!n STEP | LLIST !f<={ OR  FORMAT / FOR  BRIGHT ! POKE  RESTORE  BORDER  VERIFY [F]E[D]+ DEF FN ? REM s*IN r#" DRAW  STEP  CIRCLE  CLEAR / LLIST +|ASN   INVERSE  CLOSE #0 DRAW  CLOSE #R+ OUT !▞[J]INKEY$AT [U]>7!ABS  NEW  OPEN #SCREEN$ SCREEN$ NOT ▝!- OPEN #© CLEAR  GO SUB VAL <>:▜ OUT ATN >=<▝OG$ VERIFY LN  i[I] NEXT  OUT  RETURN  COPY >= LET  INK  STOP  NEXT ?_ PLOT   THEN  CAT 2 CLS NOT [J] OVER x COPY  DIM ▜ATN   INK EXP  OVER O[Q]CHR$  STOP  FLASH y[P]VAL 2 PLOT  !Tm THEN  NEW  NEXT @  THEN H ▛/ DRAW i RUN tASN  AND w2ACS [B]zO[D]▙![C]" CONTINUE  STOP $[B] STEP  MERGE CODE  OUT CODE = DRAW  STEP LN ( DRAW USR E/[A] POKE [B]iPEEK ` FORMAT  DATA IN N FOR ch THEN  LOAD  FOR  OPEN # CIRCLE _ CLEAR csP▛cLN c' LPRINT  FORMAT c PLOT  ![Q]KABS c[U] RUN [D]BIN cFN  RUN cVAL _VAL w<dVAL PId[B]w DIM d VERIFY [N]©[A] INVERSE  INVERSE  VERIFY < OVER  VERIFY IN  FOR FN  COPY  REM  BRIGHT  NEW USR CODE 2* OUT  STEP  BORDER  LOAD =s @>=xO OPEN # RETURN  FORMAT  VERIFY > READ <> STEP [K]m&sATTR  NEXT =PEEK  CIRCLE @ GO TO SCREEN$  GO TO  CIRCLE SGN b CLEAR .PEEK ACS  RETURN [G] CIRCLE  THEN G% REM < RETURN  AND  RANDOMIZE 7POINT  OUT =SIN  MOVE  AND #SIN  AND  GO TO SGN  RETURN  LINE e IF © ERASE (. STEP  OUT  THEN OTAN v PRINT .% PRINT W>=6 COPY  FOR =;SGN LN PEEK  CIRCLE  READ SGN STR$ ▞ MOVE  INPUT  MOVE  INPUT 7z3 LINE  PLOT  ? SAVE  LOAD I PRINT ~INT CHR$ $ OUT q, CLEAR  PLOT   LET ▙ LET  COPY  PAPER *, OUT <<> COPY ~ RETURN [O]9 ! LOAD " LOAD { GO SUB [Q][P] COPY  RETURN  AND _[O]k FOR  VERIFY :!ATN   COPY + IF USR  RETURN (▟ RUN + DIM  COPY BIN <> FLASH ▚vsUSR PI LLIST  PAPER PIs SAVE BIN  COPY $ Bx2 LPRINT CODE O LET ▜ OUT * MERGE 8SGN   CIRCLE  COPY © LET ,0(f&NOT  RUN  BRIGHT  RUN  RUN  SAVE g RUN  READ  RUN > COPY 2 OUT - LOAD  IF [U]LN ( AND ' PLOT  SQR  RANDOMIZE  FOR ^,V?[A]"INT <>F PAUSE ~ATN CHR$  LPRINT  RETURN INKEY$C SAVE ( FOR <> NEXT LP[L]G▞> LIST  STOP  OUT  BRIGHT <> CLOSE #- POKE  CLOSE # SAVE ▗ CLOSE # RETURN  DATA  RESTORE  POKE  BRIGHT  LIST  SAVE ▙y NEW INT  COPY F LLIST /[D]4 CLEAR  RETURN  RUN *l▙)I PAUSE  CLEAR  RETURN  RUN  PAUSE ISCREEN$  TO  PAUSE  CLEAR  SAVE ) RETURN  RUN  PAUSE ▘ELN LN $&▗IN LN (0G2▚4▜< NEXT G& GO SUB [A]*f[B].TAB $ CLEAR 0[I]g CLEAR < CLEAR & REM [C]1IN *[D]G,[E] BORDER [F]3y[G]PEEK  PAPER  PAPER LEN TAN &[H]PEEK b|3 CLEAR  CLEAR / DRAW  THEN G[N][O]//[I] TO  OR  ERASE [J][K] ERASE [L] OR  ERASE [M]&k[P] THEN 2[Q]SGN 6SIN fSGN B MOVE DA RANDOMIZE INKEY$}CHR$  TO  TO &[R] OVER [S] OVER [T] OVER [U] OR  OR  LLIST RNDD OR  OR NO STOP  OR  OR  RETURN [G]*j| RETURN  PAUSE n READ + RETURN SGN Q PAUSE 5F6bP7 DRAW  STOP  [Q]Y TO [R]&[S]" PAUSE JINT :TAN  OR '0 REM $?F&@▙ STEP (A LLIST [T] LLIST  [M] NEW L REM  , 4=<[P] OR /<9F>: OR  OR H;J<▛© CIRCLE [S]n.NjLN  CLEAR &3;EXP 1PI RUN &s[U]9 CLEAR *▗ABS '.2INT  POKE 6CODE ▚:3FMR[C]> AND 4TAN  IF J©#NOT  DATA * VERIFY  STOP ~ RETURN " BEEP 0▞6 CAT D%! FOR  STEP /s{ SAVE  LPRINT  OVER  CIRCLE ;V~2 CIRCLE  STOP  POKE " LET NOT 4 LPRINT 4 LINE  OVER CHR$  COPY  NEXT  REM  NEXT  INK B INK  READ  OVER Z,!A DATA ]$ PAUSE  OPEN # DRAW  PLOT  (Q[ DRAW y ERASE r[C] CLEAR  DRAW W= PLOT   GO TO  OUT kYw▖G*▞ OR CHR$ E,8ASN SQR 6© DIM  PAPER :: OR / BORDER  READ ▛[F][J]  DATA * LET , LLIST | DATA  REM E&ASN  GO SUB  DATA ▟ DATA  REM ,SGN SGN BKrSQR S  PLOT  ,ATN | OVER 6▙E8 OVER vRND1 LLIST 4[E] INVERSE 8 REM E2▛BD BORDER P REM BIN ▖▜ MERGE U COPY oPIGFN POINT NOT CATTR AT QBIN  INVERSE {C[D]LEN CsrPI2 CLEAR  CIRCLE 39 CIRCLE  BORDER  MERGE & MERGE /[D]( OR  BORDER  MERGE 2 MERGE COS  NEXT V CLEAR w OVER 4ASN Ct@VAL ATN EXP Ct9COS 4 AND [D]3 BORDER  AND > AND @<= BORDER  AND ]3J AND  LLIST  CAT G"VAL$ [F] VERIFY  SAVE  OR  CIRCLE OX [E]:▘[F]x[N][Q] OVER  PAUSE <> LIST & FLASH ( DEF FN C2 FLASH  OPEN #LN  COPY [E]GSQR SIN  BORDER [T] DEF FN  FLASH 4!C> FLASH @X"J FLASH  TO  DRAW /[A][B][F], TO 0[T][G][H]%PEEK ▜[Q]STR$ /▗▝[M][M] ERASE  ERASE ▘ OVER  CAT ([C]U[M]( CAT 4[E]<=}{B▖4[K]( IF LP' DRAW r TO 4[I]CHR$ <> FLASH [J] FLASH  TO @[K][G]<>B[L] FLASH <>L<>xv*FPILN LN LN LN LN CODE IN LN G  NEW {ASN  POKE ] PLOT  UACS  FLASH  RESTORE  INPUT B/ CAT <? CONTINUE  OUT 1TAN VAL$  OR TAN FN  [O][J] BRIGHT LEN (LEN *LEN ,TAB G[J] OVER ABS ATTR 4 GO SUB  OVER ATTR 6VAL V NEW y OPEN #CODE  BEEP V OPEN #[L]= OPEN #[C]ATN [D] BORDER [C]G,LN <>LEN  NEW 92LEN 4<>G<LEN >ffLEN @LEN HATN JATN L OUT XbF$ CONTINUE ]AT  RETURN ▛9 GO TO EXP uINT LN [I]*SGN {ABS 6fINKEY$ LIST PEEK  LIST IN  LIST USR  TO f LIST STR$  LIST CHR$ LEN LEN LEN  COPY  STEP  OR  OR  DEF FN  CAT  SAVE  OR  MOVE SQR X ERASE )/ RUN [D]{9CODE  BORDER -G*.0 TO gNOT 2NOT 4,G<USR > OUT  TO USR HNOT JNOT  NEW  RETURN  GO SUB  FLASH gr FLASH *TAB  FLASH & FLASH (e2+ AND  AND  MERGE 2 MERGE  BORDER uCOS  RESTORE ^ LIST I STOP ▟r COPY * REM  RETURN bc CLEAR [D]LJSGN  RETURN  CLEAR xE PAUSE k▟[E] RETURN  CLEAR  PAUSE  STOP  STOP  INVERSE G01 STOP  STOP  STOP  LPRINT   LLIST  COPY  CIRCLE LEN VAL  LIST $ OPEN #& CLOSE #s( MERGE  VERIFY ,[O]m BEEP  INPUT 6 READ  STOP  DEF FN  READ hCOS  OVER (4 DATA  DATA  BORDER I RESTORE  DATA <2> NEW X[I] OVER H BORDER J3 AND AT <= RETURN f<>>=<>/ STEP BIN PI<>USR  PAPER CHR$ LN : FLASH ▟{ BRIGHT G▟[O]3INT  STOP  STOP @EAB STOP  STOP  CLEAR  RETURN +SGN [M]9i BORDER  BORDER C[D] REM  GO TO  REM  LLIST &DPOINT  NEXT  PLOT  [C][N]Gd OR  TO  LIST $E BORDER F BORDER G CLOSE # OR 2H<I5▞{ INVERSE [J] COPY "~ATN USR 2N FOR *POINT O~,[D] GO SUB ' RESTORE !INKEY$[U]f-▟c CIRCLE  ERASE  RETURN  CLS B(=▜2CODE ▙o DIM w LLIST #T)5>= AND ,- INK  INVERSE PEEK 0 BORDER  CLOSE # PAUSE GATN POINT [O] INVERSE # RETURN = RUN 4 MERGE  LOAD  FOR <>x INPUT  STOP  RUN  INVERSE nf[R][C][K] LOAD  LINE NOT  LPRINT }>=GifSGN LN  FORMAT  OVER  OVER  BEEP &NOT [F] BORDER  RESTORE  STOP * LIST EXP s FOR [R]8 SAVE  INVERSE 0m(5b THEN [C] FOR f LPRINT TAB  TO 0x| RETURN 8 SAVE 0z[D] CONTINUE w[E]3wPIPI"TAN  DEF FN  INK 7 LPRINT ACS  COPY o[M] IF  PRINT : DRAW  DIM SGN  OUT  STEP  FOR  NEXT  NEW pASN x GO SUB  COPY  LIST 3` BRIGHT v RUN IN  RETURN  IF ©B▗ NEXT  DRAW  COPY V[B] LOAD  DRAW u[R]E TO % OVER BIN ©U|s COPY  CLS  GO SUB  CLEAR [K][T] OUT  RESTORE  COPY  RETURN PEEK  DEF FN  LOAD  OR {[U] OVER  CLS [I]STR$  DATA _[J] COPY  DATA IN g DRAW [H][P]3XV>=PIs COPY USR x©STR$  COPY ▟ COPY  RESTORE  LPRINT zK COPY 0SIN  CLOSE #M© LPRINT  DATA [M] COPY  IF ACS   DRAW  FOR  COPY  ERASE  OR PEEK  SAVE 73s COPY ▙1 AND 8 READ s[M] COPY  DRAW ? GO TO  CAT }[T]p RANDOMIZE (W CLS 3ABS  LET  RETURN  DATA  NEXT  LIST  DATA  COPY  LPRINT  TO [P] DRAW f COPY  DATA  COPY z DATA IN f? PAPER  POKE $ COPY 3 SAVE =SQR  OPEN # OUT q DATA [A]©SGN  DATA  CLS  THEN  INVERSE SGN PRND COPY  TO  BEEP <= COPY PEEK [E]h LOAD USR 1 DATA  DEF FN  NEXT  DATA  RUN )}6 FOR [P] MERGE [O]1 OUT © RETURN  DATA ?INKEY$ NEXT AT  RETURN  READ  CLS  DIM  CLEAR =[L]{ DRAW eABS 0 DATA  STOP ? SAVE  BORDER tPEEK ~ABS INKEY$ OUT  COPY VAL ▟PEEK  RETURN  CLEAR  CAT [H]<< COPY  MOVE Q[P]▜IN ©ASN  CAT  DRAW  PLOT  v&PEEK hIN  DATA  OPEN #s CLEAR dn DIM  RETURN  RUN  RESTORE FN [T] FLASH +COS t TO ▝y LOAD  TO  RUN  STEP  OR ATN SQR  BEEP  CONTINUE  BORDER nCODE  RUN < LOAD [K] BEEP t COPY  BORDER D PRINT  INPUT  CONTINUE k DRAW SIN }©t CONTINUE  FOR  PRINT LEN PEEK [P] LOAD  CLS  ERASE / DATA  CLEAR  RANDOMIZE i IF LPEEK :PI CLS  GO SUB [F] FORMAT [P]IN  DATA  LIST  INVERSE ky VERIFY CHR$  FOR o CAT  IF  BORDER yz LIST INT  RETURN c CLEAR  AND [C] BEEP CnL PAUSE SQR   INPUT IN  OVER  COPY t DRAW {SQR  STOP SGN  GO TO  OUT  GO SUB  THEN N CLS O NEW [D][Q] DRAW  COPY CHR$ LN [R] INPUT 7 CLOSE #▝ AND  DRAW  CLEAR oTAN  DIM  COPY /ABS ACS  IF  OUT © PAUSE ? CLEAR ▜+ GO SUB SQR a[N] FOR  THEN  LPRINT  CLEAR }5 COPY  COPY [S]SGN  GO SUB  BRIGHT [T] OPEN #RND LPRINT PEEK  RUN  CLEAR  FOR K© COPY RND FLASH  DRAW  COPY t IF 9 COPY  LET =IN [F] FLASH 4▟BIN  REM n( RETURN  CLEAR  DEF FN ? DRAW  COPY [P]EXP USR mW LOAD O COPY , LET  COPY   VERIFY  BRIGHT yf TO ▙1▚ COPY lL TO  RANDOMIZE { NEXT  RANDOMIZE ;©PI COPY [U]8 DATA VAL$  LIST  DATA  PAUSE  PAPER x[L] DATA m TO  CAT  LET {5$/ DRAW  RANDOMIZE  CAT ©O@ MERGE |0[P] READ O▜ CAT ▚ CLS IN q NEXT INT [A]k COPY } DEF FN [J]SCREEN$ f DATA LEN [L] DATA ▚OB COPY  LET  RUN  LOAD  STEP  VERIFY  LPRINT  INK IN g7r LINE  DATA ▙ DATA L>=EXP N LET W PRINT [L] FORMAT  OUT [I] THEN USR  CLS v DRAW x?{z[B] DEF FN X OVER  INPUT  LOAD  STEP  LET [D]` RESTORE FzNOT  RETURN  CLEAR N▖LN  COPY V COPY  INPUT  GO TO 0▙ CLEAR  DRAW  LPRINT M OPEN # DIM  RANDOMIZE  READ 0 RUN  COPY  REM c LIST USR  IF C RESTORE  LOAD G RETURN Co CONTINUE  FLASH > RETURN  GO SUB G^ CLS 2 CLEAR  COPY  SAVE ! RETURN ▝r NEXT ▟#s IF <>USR  PAUSE © RETURN @▟u}| CLEAR  STEP 3 LET  PRINT  RETURN  COPY <>$| NEW USR } AND  o CIRCLE | VERIFY g<>VAL >= OVER  LPRINT  COPY  COPY NOT  COPY  STOP U0VAL$  RETURN  SAVE AT 6 ▜_ RANDOMIZE  LIST  NEXT FN  COPY @USR  CLEAR bH DRAW ff PRINT I CLEAR J CLEAR K CLEAR Lbf CLEAR M CLEAR N CLEAR O[U]>=` CONTINUE  CONTINUE )R CONTINUE  CONTINUE  CONTINUE "E CONTINUE  CONTINUE [J] CONTINUE  CONTINUE E CONTINUE  CONTINUE [B]" CONTINUE  CONTINUE [U]H CONTINUE  CONTINUE "S CONTINUE [Q] CONTINUE H[B] CONTINUE  CONTINUE R[U] CONTINUE  CONTINUE ) CONTINUE I CONTINUE  CONTINUE [O][B]" CLEAR  CONTINUE  CONTINUE [U]H CONTINUE  CONTINUE )R CONTINUE >= CONTINUE  CONTINUE  LPRINT  CONTINUE R[U] CONTINUE  CONTINUE ) CONTINUE E CONTINUE  CONTINUE [B]" CONTINUE  CONTINUE  NEW  MERGE qQ CLEAR R▚f CLEAR S CLEAR T( CLEAR VHc CLEAR W  CONTINUE R[U] CONTINUE  CONTINUE ) CONTINUE E CONTINUE  CONTINUE [C]" CONTINUE  CONTINUE @)IVl▘[I]VAL$ >P PAPER : PRINT !IN  COPY @ GO SUB [Q] NEXT  COPY  THEN [N] SAVE <>: PLOT   THEN GCHR$  STEP  CLS a9 TO CODE  CLS _[0▜ CLS o= CLS gCHR$  LLIST z<>BIN  CAT CODE 2 BRIGHT  OPEN # RETURN B3CODE  IF A IF  4▛ LOAD  REM  STOP [P]u PAPER  STOP G RESTORE  OVER [L]! SAVE  OVER  DIM  LLIST PITAN V LLIST  LLIST y▜G GO TO  RESTORE  SAVE  DATA  GO TO TAN  PAPER  DATA  DATA ( DATA  MOVE CODE POINT  CIRCLE ASN  BORDER [H]▙ RESTORE ▙▜ STOP :+ OUT ATN [F] SAVE (PEEK V BEEP ~[R]<GWO STOP  OPEN #[, OPEN # FOR <>USR  COPY  GO SUB K:sy FLASH  RETURN [Q]USR NOT  REM / RETURN !#n STEP t! BORDER  AND { OR A STOP  RESTORE M THEN  LIST O RETURN  RANDOMIZE  STEP b PLOT  + NEXT ©s*IN rd" RANDOMIZE CHR$ ▛ STEP  CIRCLE X CONTINUE  COPY  FOR  BRIGHT  LLIST +|ASN   CLOSE #PNOT  POKE  READ 'F PRINT POINT  NEW ©SCREEN$ GMV▞ STEP n  PAUSE ATTR 7VAL$ Dz NEXT eb RANDOMIZE n( PAUSE TAB AT  COPY F PAUSE eo RESTORE ! LIST  COPY TAN # THEN AT "v RUN ~ LLIST <>: LET [P]PEEK  RETURN  CIRCLE =2 RANDOMIZE 0 THEN HGUSR  RANDOMIZE O PRINT -▘ BORDER  LIST ?1!@Y:BIN ▘ AND ASN o|pt SAVE  THEN IN 2TAB  CLEAR  RANDOMIZE   POKE w<>{W:LN  OVER ATN  MOVE  MERGE s  BRIGHT  CAT a CLS  READ  CLS : DIM  BORDER  LIST  RUN <2 DRAW  RETURN USR >_[Q][O]ECODE  POKE R:w SAVE 0 STOP  RANDOMIZE [M][P][B]u SAVE < NEW 2 IF  THEN ?3h RUN 7▛ COPY  LET F(3 COPY 6, PLOT    LIST sEXP  STOP %BIN COS ▘VAL$  MERGE ▘▘:rSCREEN$ eUSR 2 DRAW ▘[Q]J[D]▘ VERIFY  DRAW  LIST INKEY$Y~x COPY SCREEN$ a COPY  COPY  COPY 6▚ COPY [A] COPY  DRAW  RUN , COPY  RETURN  DRAW  CONTINUE  NEXT ' NEW  DEF FN  STOP P DRAW  READ [I] BRIGHT  SAVE  DATA 56ASN  DRAW  FLASH M DRAW  IF ▞BIN  CLS Q IF C DRAW / READ  COPY ! AND Cav><>c<B~ CLEAR I▖ATN | RETURN  CLEAR  OR 1 SAVE  LIST @fDXE LET 7 DATA  RETURN ~@| LOAD  BRIGHT [R] SAVE  STOP TAN  LPRINT N LPRINT <> OR ©>=> NEXT CODE 2 RETURN  COPY  STEP  LINE RND POKE ATN (W RANDOMIZE g DRAW o DRAW ? DRAW w# NEW  OPEN # RETURN   POKE  READ :[P]ASN  LPRINT  REM SGN CHR$  MOVE  CLS <>>V DRAW  RETURN  OPEN # LOAD  FLASH  RUN 0©TAB  CLS  PAUSE  CLS  GO SUB  RETURN 1 TO  LPRINT  CAT  FLASH TAN ATN [D]▟STR$  THEN y CIRCLE ) RETURN HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP