1 RANDOMIZE USR 0: REM !/]jCODE GO SUB O GO SUB _AT TAB FN VAL$ w# PLOT X MOVE ASN FOR +BL ERASE STEP ▚CINKEY$6IN S▛KW RETURN CODE | BEEP G OPEN #4 PAPER $r MERGE BRIGHT {3SCREEN$ SQR INPUT LPRINT USR : PLOT ▙[B]a[P]e CAT O[C]<=I[D]6CODE [E] RETURN ^[J]PEEK RNDF CLEAR PI MOVE " LLIST RETURN ▘`FN [K][S]CHR$ PAPER PAUSE READ LLIST OPEN #< OVER MOVE C▞▘[R]FN [M]k DRAW Q>=cEEEEEEEEEEEEEEESCREEN$ .DRAGON" LINE 115616 LINE FLASH ^ FLASH ^lllll RETURN l RETURN ll>X<| AND TO 0f AND 8l8v BRIGHT TO v000000f< COPY <f~0~~0`USR | AND DEF FN VERIFY NEW AND |8~<f<`f~<ff<<l TO RETURN ~b`|f<<f`|ff<~f<ff<ff<<ff>f<00`0 COPY COPY `00`<ff| AND OVER OVER OVER USR |<ff~ff DRAW ff|ff DRAW <fUSR USR USR f< SAVE lfffl SAVE RETURN bhxhb RETURN RETURN bhxh` LIST <fUSR USR DEF FN f>fff~fff~~ TO TO x NEW flxlf NEW LIST ```bf RETURN AND INPUT RETURN RETURN VERIFY AND AND AND NEW PLOT OVER DEF FN AND AND 8l AND AND AND l8 DRAW ff|`` LIST 8l AND AND PAPER TO v DRAW ff|lf NEW <f`<f<~Z<ffffff<fffff< AND AND AND VERIFY RETURN INPUT AND AND l88l AND AND fff<< RETURN AND 2f RETURN <00000<USR `0<<<~~~0x| TO v LPRINT `|fff BRIGHT <f`f<| TO TO TO v<f~`<60x00x>ff>| LPRINT `lvff NEW 8<< LPRINT `flxl NEW 8<l RETURN VERIFY VERIFY AND BRIGHT ffff<fff< BRIGHT ff|` LIST v TO TO | BRIGHT v`` LIST <`<|00|006ffff>fff< AND VERIFY VERIFY RETURN l AND l8l AND fff>|~0~pv BRIGHT 8DINT [S]INT D8 STEP <=> STEP !PCHR$ "6/!K<= STEP © AND STEP ><=!f<= STEP © AND STEP ><=!<= STEP © AND !<"6/<>~ RETURN COPY ( BEEP # RUN #~2 NEXT AND #~2 POKE AND #~2BIN AND #~ RETURN L(!H H THEN >#!?HH THEN >+"<= AND GO SUB C DEF FN AND 2 FORMAT AND GO SUB S PLOT AND OR !?H RESTORE IF LLIST $ NEXT STEP REM AND STR$ BORDER OR vv STEP PAUSE AND STR$ RUN <> GO SUB _o&3 RESTORE INVERSE LLIST !@H MERGE RESTORE INVERSE VAL$ INVERSE ACS INKEY$wACS w# INVERSE # FOR LLIST MOVE $ LLIST <>CODE OPEN # RETURN !@@u GO SUB VAL @6G GO SUB VAL @6F GO SUB VAL ©w GO SUB VAL <>!HH COPY u GO SUB VAL <>DISK VERSION BY COPY @SGN LDMITRY GRIGORYEV 1995 COPY @ CLOSE #RFLYING DRAGONS COPY `@LN L USR 0 DRAW [K] COPY [K][K]USR [K] COPY [K]USR [K] COPY [K]USR [K] COPY COPY RETURN SAVE LIST LPRINT USR COPY [K]USR LPRINT LIST LIST SAVE DRAW RETURN RETURN [K] COPY CLEAR COPY [K] COPY COPY CLEAR [K] COPY CLEAR [K] COPY LET DEF FN NEW RUN IF CLEAR CLEAR RETURN [K] LIST >=USR LIST [K]USR 0|[K]0`USR [K] LPRINT [K]USR SAVE CLEAR [K][K] COPY [K][K] COPY [K][K] COPY [K]?[K][K] COPY DRAW LIST [K] LIST [K]USR LPRINT LIST SAVE SAVE DRAW RETURN STEP JBIN !-BIN @[M] GO SUB VAL FOR 6 MERGE #xLEN SAVE 61###6<>!-BIN 4[O] GO SUB VAL !<[U]"6[O] FOR INVERSE ! RETURN COPY 6# INVERSE ~w# INVERSE ~w INVERSE + INVERSE +#6 MERGE #xLEN BORDER 61###6<>CODE OPEN # RETURN STEP @[M]! RESTORE @ GO SUB VAL !")BIN !"+BIN ! READ 6 DATA # CLS 6 DATA ! PLOT NOT " RESTORE DATA >NOT 2 DATA DATA > READ GO SUB G GO SUB ^v:,BIN RETURN COPY SAVE >> GO SUB G GO SUB V STEP 4[O]<> STEP @[M] GO SUB [+BIN zCOS CLS STEP 4[O]*+BIN PI GO SUB R"+BIN GO SUB [)BIN zCOS CLS STEP @[M]*)BIN ")BIN CLS <> RETURN COPY GO SUB s THEN [N]1[ NEXT STEP [C];; LLIST o RESTORE INK MOVE INK ! RESTORE RESTORE MERGE RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST BRIGHT LLIST MOVE CAT LLIST # <=! CLEAR INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K] LPRINT LIST SAVE RETURN ? OUT LOAD NEXT [K]? LPRINT [K]$USR LPRINT LIST SAVE DRAW RETURN [K] COPY CLEAR @>= TO CIRCLE SAVE 8▚ AND NEW IF [K] COPY RETURN CLEAR COPY COPY CLEAR [K] COPY [K][K] COPY CLEAR CLEAR LIST LIST LPRINT USR [K] @@[K]USR LPRINT LIST DRAW ~IN OUT BORDER CLS CLEAR RETURN [K]© LPRINT [K].USR LPRINT LIST SAVE DRAW RETURN CLEAR [K] COPY ?[K]▝STR$ LLIST LIST SAVE DRAW RETURN COPY [K] COPY @@ [K]1B▗!"@[K][K][K]USR LPRINT LIST DRAW ~USR @`0[K] LIST [K]7USR LPRINT LPRINT LIST SAVE SAVE DRAW RETURN STOP [K][K][K]@L DEF FN COPY [K] SAVE DRAW RETURN CLEAR [P]© COPY COPY CLEAR [K] @[K][K][K][K] COPY [K][K] COPY USR `8[K]~ LPRINT [K]EUSR ``00[K]00 0 PAUSE CLS RANDOMIZE CLEAR |> P▖ @[K][K] COPY [K][K] COPY [K][K] COPY [K][K] COPY USR LIST SAVE NEXT g▜ CAT 00x RETURN FOR [K][K][K][K][K][K][K][K]/[K]▝STR$ LPRINT LPRINT x08 TO PLOT SAVE COPY COPY [K],B▝[K][K] COPY [K][K] SAVE [K][K] COPY [K][K] COPY ?[K] COPY RETURN DRAW LIST LPRINT LPRINT USR @[K][K][K]USR [K] LPRINT [K] LIST [K]x[K]SGN [K] OVER LOAD [K][K][K][K][K]▝NOT [K]USR pX<[K]@0[K][K] SAVE [K][K][K] SAVE LPRINT SAVE DRAW [K]USR LPRINT LOAD RUN ▘▝STR$ USR USR ` LPRINT USR USR 0 a USR @@[K][M]USR USR [K]`00d2 NEXT SAVE RETURN CLEAR [K] COPY [K]USR [K][K]©[K][K]©[K]USR LPRINT LIST SAVE DRAW RETURN [K]-| COPY COPY [K]`LN /©8-W DRAW [K] COPY [K]`[K]USR USR 0 DRAW [K] COPY [K][K]USR [K] COPY [K]USR [K] COPY [K]USR [K] COPY COPY RETURN SAVE LIST LPRINT USR COPY [K]USR LPRINT LIST LIST SAVE DRAW RETURN RETURN [K] COPY CLEAR COPY [K] COPY COPY CLEAR [K] COPY CLEAR [K] COPY LET DEF FN NEW RUN IF CLEAR CLEAR RETURN [K] LIST >=USR LIST [K]USR 0|[K]0`USR [K] LPRINT [K]USR SAVE CLEAR [K][K] COPY [K][K] COPY [K][K] COPY [K]?[K][K] COPY DRAW LIST [K] LIST [K]USR LPRINT LIST SAVE SAVE DRAW RETURN RETURN [K] COPY COPY NEW NEXT LOAD ©[M]©[P]/USR `8; LPRINT 08 LPRINT [K][K] LIST [K]? COPY [K][K] RETURN [K][K] LPRINT [K] RETURN LPRINT [K] RETURN DRAW SAVE SAVE LIST LPRINT USR [K]USR <[K]"USR USR [K] LPRINT [K] LIST [K] SAVE © COPY COPY RETURN GO SUB [P]© CLEAR NOT IN COPY COPY CLEAR COPY RETURN CLEAR COPY BORDER NOT [K]@@TAN RNDDEEJ COPY [K]?USR BIN 8[K]8USR COPY COPY CLEAR [K][K][K][K][K][K][K] LPRINT [K] LIST ?|[K] DRAW CLS CLEAR RETURN STR$ > BORDER [P]©[K] COPY RETURN COPY COPY IN © COPY COPY RETURN CLEAR REM BIN [K]P▝ PRINT `[K] LPRINT [K]©[K] COPY [K][K] LIST [K] COPY [K][K] COPY [K][K][K] COPY [K] LIST [K][K]~ REM COPY RUN ? INK BORDER LIST © LOAD DRAW { BORDER DRAW COPY LOAD OUT IN © RETURN COPY RETURN CLEAR IF CLOSE #[Q] LPRINT [K][K]8USR w DRAW ``USR [K]?[K] COPY [K][K][K] COPY [K] SAVE [K][K][K] COPY [K] SAVE [K] COPY [K]*/ COPY SCREEN$ CLEAR LLIST NOT pFN CLOSE #:<b CLOSE #FN P[Q]P[Q]@[Q]A▚L[A][K] OX`@CD( !" COPY CLEAR COPY INPUT COPY © PLOT | LIST © COPY COPY _ PLOT COPY PEEK z FOR CLOSE # FOR ERASE TAB SCODE ^SGN USR 0[K]▖ @@NOT .[A]p[Q]@@C DRAW [K]~a▙xUSR LIST SAVE RETURN [K] COPY [K][K]©[K] COPY [K] SAVE [K][K][K]©[K] COPY [K]©[K] COPY [K]©[K] LIST L[S] MERGE z▚b[B]MPIA[Q]PFN [K]8MJ][U][F]>=w=[K] DRAW DRAW aCHR$ GO TO LIST PFN *>=p▞ AND [S] SAVE [K]d[K][K]| CAT 8 @USR USR [K][K]©USR [K]`NOT LPRINT DRAW [K] COPY [K][K][K][K][K][K][K]|jASN N![I]L[S]Q[Q]P5je*&,TAN ▝A[R]PSCREEN$ U REM ?[K]USR @P SAVE ©<USR [A]w PLOT `[K]`COS OR 0`` LPRINT [K] USR [K] COPY [K][K] COPY [K][K] COPY [K][K]?[K] COPY [K] DRAW [K] COPY [K]?[K]@ [I]D[S]QhTAN p[K]|VPOINT ,0 LIST 1H)▗E▘A LPRINT 0 AAC▜▜[K][P]__ LOAD 77<=USR `[K]8USR [K] LPRINT t CIRCLE ▗▘▝▘ INVERSE *▜ATTR e 0 [K]G COPY COPY CLEAR [K][K] COPY [K] RETURN [K] COPY [K][K] COPY [K][K]?[K] COPY [K]@ $!USR [Q]P REM ]PFN TATTR <[T]ANSI/>?▜NOT a LPRINT LIST SAVE DRAW RETURN COPY COPY CLEAR CLEAR [K] COPY RETURN RETURN DRAW SAVE LET BORDER CAT [K] COPY CLEAR [K] COPY ©[K]?[K] LOAD [K]?©[K]USR [Q][I]LASN SCREEN$ U▛p[K] `USR [K]?@ SAVE [K] COPY [K][K] RETURN [K][K] RETURN [K][K] RETURN [K] COPY [K][K] COPY [K] COPY [K] RETURN [K]@> BORDER [L]}&cCUSR x[K] RETURN }?[P]<= NEXT RANDOMIZE DRAW RETURN COPY _?[K][P]IN ?©©[K] COPY CLS [Q][K] COPY CLEAR [K] COPY DRAW SAVE LIST LPRINT ▝[K]▝Ag<>>[K][K] LPRINT USR [K] COPY [K]&[K] LIST [K][K] LIST [K] aA<=[P]IN COPY ©?USR LPRINT CONTINUE GO TO BRIGHT DRAW RETURN RETURN CLEAR z? CAT NEXT CLEAR RETURN [K] COPY LET LPRINT @[K][K] COPY `[K] COPY [K] LPRINT >USR [K] COPY USR [K][K] COPY [K][K][K] COPY [K]pUSR ??[K]©[K] COPY [K][K] COPY ©w;!QA' LIST `USR RUN CLS CLEAR RETURN [K] COPY ?[K]USR IN USR [K]`@@ LPRINT LIST SAVE SAVE <[K] COPY COPY CLEAR COPY COPY [K]| DRAW LIST LPRINT [K]USR READ BORDER [K] COPY [K][K] SAVE [K] COPY [K][K] COPY [K][K] COPY Hx LIST CIRCLE TO FORMAT SAVE COPY COPY [K][K]©[K] COPY ? CAT RUN COPY RANDOMIZE DRAW SAVE [K] RETURN DRAW SAVE LIST LPRINT LPRINT @[K]|<=[K][K] COPY RETURN SAVE LPRINT [K][K]? LPRINT LPRINT LIST LIST p8[K][K][K]▜[K] COPY [K]©[K][K][K] COPY [K]'[K] COPY [K]? COPY LPRINT LIST SAVE DRAW RETURN [K] COPY [K][K] COPY COPY [K]8[K]0@` RANDOMIZE RETURN [K] COPY LIST USR [K] T*T*TATTR W/© COPY COPY [K][K] DRAW [K][K][K] DRAW USR USR [K] LPRINT `@@[K]0 COPY IN LOAD PI▝[K][K]USR [K][K] READ [M]@`[K] COPY COPY { RETURN COPY COPY ©USR USR LPRINT LPRINT [K]@ ?~| LIST USR ©?>[K][K][K]?[K]?[K]1[K] COPY ©[K][N] RUN [K][K]@ [K] DRAW LPRINT 00[K]?G[K]▜? CLEAR [K] COPY [K][K] COPY [K]USR [K]STR$ USR USR [K] COPY [K][K]USR [K] RETURN [K] COPY STR$ STR$ [K]USR [K] COPY DRAW SAVE STOP RESTORE LINE [F][K]USR LPRINT LPRINT SAVE DRAW COPY [K] COPY COPY ?[K]USR DRAW ;0USR [K][K] SAVE [K] [K] COPY [K] COPY COPY CLEAR [K] COPY [K][K][K] LLIST [K] COPY [K][K][K]PFN P[Q]P[Q]P @[Q]P(TFN T*[K] COPY COPY LPRINT LIST SAVE DRAW [K] COPY RETURN RETURN p@[K]USR 9[K][K] LIST [K] [K][K][K][K][K] LIST [K] COPY [K][K] COPY [K] LIST [K][K] COPY [K] COPY ?+WATTR WCODE © COPY [K] COPY DRAW [K][K]©8 COPY [K]#USR [K]0 @[K]+V<Pp[Q]`USR @[K][K][K][K][K][K])[K] COPY RETURN DRAW LPRINT USR [K]> SAVE LPRINT USR USR [K]USR 0 CLS CLS [K]<00`USR [K]AT xUSR [K][K][K] COPY [K] COPY [K]![K] COPY PLOT VAL$ [Q][Q] LPRINT USR [K]8 BORDER LPRINT USR @@USR [K]USR [K][K]TPI DRAW [K]USCREEN$ UASN kr[K]!TPOINT B[Q]@[K][K] COPY [K][K] COPY [K] COPY [K]! COPY COPY DRAW LPRINT [K] LPRINT [K] @[K]0` LPRINT [Q]@USR [K]4 OUT h>=0 LPRINT [K]3[K] DRAW [K][K] DRAW [K] COPY [K] DRAW [K]! LPRINT [K] COPY [K]8 LPRINT [K]SCREEN$ E REM [K]+UVAL$ /[I] LPRINT [K]BB[K]A[K]aB[K]A[K]aBAA[K]E[K]A[K]a[K]ABBDD[K]A[K]a[K]A`DD[K]A[K]a[K]A`b`a[K]A[K]a[K]A`b``DDGBB``b[K]`[K]@[K]B@@`b[K]`DBB[K]`D@hihBB@@[K]`BBb[K]`@`G[K]i@BB@[K]`BB[K]`T`[K]@hih@@BB[K]`D@@[K]`[K]@[K]@[K]H[K]`D[K]`[K]@[K]H[K]`D[K][K]`D@@HH@[K]H[K]`D[K]`[K]`D[K]`[K]HI[K]H[K]`DD[K]`a[K]H[K]Ha[K]H[K]`[K]aO[K]H@@[K]`g[K]`AIIAA[K]H@AAL[K]`[K]H[K]a[K]`aa``g[K]`a[K]HKK[K]H[K]aOa[K]HKK[K]HO[K]Ha[K]Oa[K]HKKCODE OPEN # RETURN RETURN IF CODE 2U`2V` STEP ` RETURN > RUN FLASH RETURN 008 GO TO :U`ATN (CODE 29 DEF FN :V`ATN (CODE 2= CAT NOT ▛a!U`!V`~/wv RETURN IF NOT !FXU` STEP 6`!fXV` STEP 6`!WX~= NEW > AND @W CLS } AND o NEXT <>ATN >(< GO SUB CG`~< NEW < AND @w, NEXT <> RETURN IF 6 RETURN IF ! IF [ GO SUB VAL ! IF 6 COPY IF GO SUB VAL 6 COPY GO SUB VAL NEXT 1IN ]!ATTR >= RESTORE !TAN _6ASN _NOT NOT 30$] FLASH |8 FLASH |8$]M8^LEN 3 FLASH |8]M[Q]^LEN 3c^[G]^GUSR Wq AND COPY _v> RETURN IF © [A][B][C][D][E][E][F][G][H][I][J][K][L][M][N] RETURN IF RETURN IF RETURN IF RETURN IF ▙ RETURN IF BORDER f"{/tc STEP AND g!Wg"{/qud STEP AND g<> MERGE OR > STEP [L]">2▟/ STEP k> STEP STR$ MOVE STEP < > STEP CLEAR g STEP < > STEP CLEAR THEN n( IF CLEAR THEN VAL$ <>PREMI UN TASTO PER CONTINUARE NEW F& LPRINT RETURN IF INPUT DEF FN LPRINT w: LPRINT <▝ IF STOP ©=|PEEK LIST / INPUT sLN 8USR wUSR BRIGHT INPUT sLN INPUT COPY RETURN IF LIST w DEF FN w;@LN nCODE FOR COPY USR oSQR RETURN IF wp INVERSE PLOT xk COPY GO TO v GO TO + COPY CLS uLN IN LN [C] RETURN IF CLEAR USR VAL$ LPRINT SQR 77/ LIST w DEF FN LPRINT ;; COPY COPY DRAW © COPY COPY BRIGHT BRIGHT sLN INPUT PLOT GO TO `sEXP BRIGHT LOAD LN ?p DRAW RUN ;[N] DEF FN LPRINT 0 LPRINT COPY COPY RUN ; COPY CLEAR CAT COPY COPY COPY COPY LOAD LOAD COPY COPY COPY COPY STR$ NEXT IN COPY BRIGHT LOAD COPY COPY SAVE SAVE ? COPY COPY DRAW © COPY COPY STOP ▚^<>NOT OUT BORDER & LIST G COPY COPY RETURN ? COPY COPY DRAW BRIGHT <=p INPUT : LPRINT ▝ PAPER "©=<VAL$ 0/wUSR ; LIST x BRIGHT wcLN INPUT COPY RETURN IF LIST w AND INPUT ;USR CIRCLE l_ BEEP RETURN LPRINT BORDER ; RETURN IF wp BRIGHT BORDER x% COPY CONTINUE 6 GO TO COPY CLS q BRIGHT INKEY$ RETURN IF ;▙ LPRINT INVERSE 'p RETURN 7; LPRINT INPUT <=pw COPY COPY RANDOMIZE ? COPY COPY LN INPUT PAUSE BRIGHT pp;p BRIGHT p0 COPY COPY COPY COPY RUN OUT COPY COPY COPY COPY USR READ p LPRINT COPY COPY COPY RETURN © COPY COPY BORDER ▚^<>NOT OUT BORDER & LIST BORDER COPY COPY RETURN © COPY COPY COPY LN p ▝ PAPER "©=<VAL$ 0pVAL USR ;+ SAVE SGN INPUT w'pw RETURN IF 8 INPUT DRAW BRIGHT GO TO CODE RUN RETURN LPRINT RUN wq BRIGHT RETURN IF ;▙ LPRINT INPUT LOAD 03 COPY CIRCLE 7 GO TO COPY CLEAR q BRIGHT NEW RETURN IF ;▙ LPRINT CAT wp|7; LPRINT INPUT N BORDER pw[Q]8 INPUT IF BRIGHT LN puUSR ;LN VAL$ p0USR COPY COPY COPY RETURN © COPY COPY BORDER RETURN IF ;LN RETURN IF BORDER COPY COPY RETURN © COPY COPY COPY LPRINT >▚ OVER FOR READ COPY COPY ATN LIST READ p LPRINT pp CLS FLASH READ CLS } COPY PI LIST pp CLEAR ~ INPUT ;▜pw COPY RETURN IF LN INPUT COPY STOP BRIGHT GO TO _ LOAD COPY ` ERASE wq BRIGHT x RETURN IF ;▙ LPRINT INPUT KVAL COPY FORMAT 7l© CLEAR DEF FN w IF wp INPUT sLN 86USR BRIGHT n READ LN INPUT COPY COPY NEXT [P] COPY COPY LIST w<=v; RETURN CIRCLE BRIGHT <=p INPUT : LPRINT uUSR ;LN VAL$ /w;? COPY COPY DRAW © COPY COPY STOP RETURN IF p RETURN IF G COPY COPY RETURN ? COPY COPY DRAW COPY COPY RUN ; COPY CLEAR CAT >▚ OVER FOR READ COPY COPY ATN LIST NEXT IN COPY BRIGHT LOAD COPY COPY SAVE SAVE `sEXP BRIGHT LOAD LN CLS FLASH READ CLS } COPY PI LIST RUN ;[N] DEF FN LPRINT 79 CIRCLE LPRINT 7/ PLOT COPY w;▙ LPRINT ;; COPY RETURN IF BRIGHT BRIGHT q BRIGHT INPUT IN COPY IF GO TO GO TO CODE LOAD COPY ` PAPER INPUT IN LN l RETURN IF CLEAR USR w[ COPY VAL 7nIN RETURN BEEP g RETURN IF wp NEW FOR LN 8v BRIGHT BORDER sLN INPUT OUT COPY COPY LIST pw DEF FN BORDER ;|LN INPUT DEF FN LPRINT w: LPRINT INPUT LPRINT pw/ INPUT sLN w RETURN IF IF < COPY COPY COPY RUN COPY CLS REM yIN USR LET OUT COPY LN LOAD COPY COPY COPY <q INVERSE LN LOAD LN RETURN <>NOT INK M BORDER ' LIST RUN SQR ▙ LPRINT ! COPY pv_ REM COPY w DEF FN LPRINT ;; RETURN IF BRIGHT BRIGHT sLN INPUT OPEN # COPY [G]n GO TO W COPY COPY [Q]LN INPUT IN LN DEF FN RETURN IF CLEAR USR wUSR ©`7v© DRAW ;[H]-USR USR w RETURN IF INPUT LN TAN DIM BRIGHT |nUSR LN RUN q INVERSE BRIGHT USR p;SQR ▙ LOAD USR LN RUN ;▙ LPRINT wUSR INPUT COPY RETURN IF wLN INPUT q BRIGHT LOAD RETURN IF USR RETURN IF { LIST ;[N]USR ;[P]USR REM yIN USR RANDOMIZE BRIGHT EXP BRIGHT OVER EXP BRIGHT EXP INVERSE BRIGHT RETURN <>NOT INK M BORDER ' LIST ;SQR [N];[N]USR `pvCODE MERGE COPY ; INVERSE USR USR w RETURN IF INPUT LN SQR LN BRIGHT H84n GO TO / COPY COPY EXP BRIGHT USR p LINE RETURN IF [N]USR RETURN USR 7vIN DRAW ;SQR ▟USR USR w RETURN IF INPUT LN LEN INVERSE BRIGHT 8nEXP OPEN #EXP INVERSE BRIGHT SAVE ;SQR [N] THEN [N]USR 0p{ LIST ;[N]USR ;[P]STR$ OUT COPY RETURN IF CLS RANDOMIZE BRIGHT EXP BRIGHT OVER RETURN IF RETURN IF RUN ;▙ LPRINT wUSR <▝ IF STOP ©=|PEEK LIST LN INPUT q BRIGHT LOAD USR LN INPUT LET INVERSE BRIGHT RETURN IF ;SQR wUSR @LN v_ FOR COPY USR ;N[N]USR USR w RETURN IF INPUT LN EXP r BRIGHT U<= POKE n GO TO COPY RUN q BRIGHT IN LN [C] RETURN IF CLEAR USR ;▙ LPRINT }7v_ SAVE w;[O] LPRINT ;; RETURN IF BRIGHT BRIGHT y BRIGHT INPUT |nq FLASH LN LOAD LN SAVE RUN FLASH ▙ LPRINT 0p< COPY COPY COPY RUN COPY CLS ▝USR RETURN IF ▝ LET OUT COPY LN LOAD COPY COPY COPY < RETURN IF RETURN IF RETURN IF CB RETURN IF C RETURN IF BBB RETURN IF RETURN IF RETURN IF DBBBB RETURN IF RETURN IF RETURN IF BBBBBBB RETURN IF D RETURN IF CBBBBBBB RETURN IF F RETURN IF CBBBBBB RETURN IF BBB RETURN IF USR LPRINT LIST SAVE DRAW RETURN COPY ©??© COPY RETURN DRAW SAVE LIST LPRINT USR @ PRINT OH7[B]BQ$ RETURN [C]%a[E][Q]P~&PLX[G]kL, A[I]2D"6,,w[J] I[F]1INT 8h[B][M]_,$RND8I[O]|F:©[P]8PS# MOVE [Q]!/0SN[S]3?0K[T]:Z▚/>NCHR$ RND>6##+v▚PIMVAL$ !%%'POINT 7MH.VSCREEN$ :-''<[D]ATTR BI/L7m[G]TAB ]I"6 PAPER VAL$ (`8H▟cSLEN ▞q"- READ SIN %]COS %4©▗SK[S]ASN B#%ACS 0 PAPER LN 4=46@<INT @@+++.▖SQR (/SGN %" OR SGN %74** LLIST ABS "1ACS [G][F]8xUSR C4Um0.UCHR$ (6jaE>ABIN 1,1(V" FLASH OR RETURN IF - AND (PJT RESTORE i RETURN ` SAVE d RANDOMIZE h IF l CLS ptx PLOT IF PLOT PAUSE PLOT RETURN IF | SAVE IF DRAW IF IF DRAW IF PLOT RETURN LET LET LIST 45"4A"▞ LIST LET ttt SAVE t:uzuEXP uTAB y$,066 RETURN IF $"HH [B]▝ STOP ▝ PLOT STOP T[I]x(P PLOT GO TO Z(P PLOT GO TO ▖/]CHR$ ]^CHR$ 63▖"H+H01▖01;98<:UTU▖RVCIJLJBCIQJBPCHR$ LIST DRAW EMFM@LPCHR$ GO TO PQQQ▘QBlrr▘nqpq▘pCHR$ 3 SAVE m[222,`*-).,`,aCHR$ POKE .*-*.)Xba`cX/CHR$ [M]]^9XeCHR$ [C]`bdac[I]fCHR$ ▖kjhi , CLS & RANDOMIZE ! RUN PRINT NEXT LOAD FOR .!L/ STEP FORMAT / COPY CLEAR RETURN 4t CLEAR CLEAR COPY ! CLEAR RETURN PIt. CLEAR CLEAR + CLEAR 4 CLEAR : CLEAR D COPY M CLEAR H RETURN <>x[ CLEAR H CLEAR X() CLEAR a:9865 CLEAR fHIJ CLEAR mBC CLEAR rDEF CLEAR v32 CLEAR {Fatal error(s) Warning(s)G STEP POINT NOT . STEP STEP /!▚/ STEP FORMAT / STEP )NOT TAN /REPT/IRP/IRPC/MACROUnterminated STEP STEP /! INVERSE / STEP FORMAT / STEP )> STEP Z> STEP Z:TAN @<>=> STEP INPUT J>NOT INPUT J![K]/ RESTORE ▝▘▗▘▝ CLEAR ▚▖▚ CLEAR z{} CLEAR ~|y CLEAR ▛ CLEAR ! COPY * CLEAR %▙▙[A][B] COPY 2 CLEAR ,▙▙ CLEAR %[E][E][D][D] CLEAR 6[N][O][Q][O] CLEAR <[R][S][T][S] CLEAR BLEN SIN COS SIN CLEAR JASN ACS ASN TAN CLEAR T[E][F][G][I][C][D] CLEAR Z[E][F][G] CLEAR d[M][K][J]SQR CLEAR j[I][C][D] RETURN [M]z%[R]z[S]zSQR z CLEAR 6[J][K][L] RETURN PEEK z CLEAR g[J]}} CLEAR ▛yyx CLEAR [A]SGN ABS USR STR$ CLEAR [H][K] CLEAR [L][D] CLEAR [O]SCREEN$ CLEAR POINT ▚▖▚ COPY ATN CLEAR CODE RNDINKEY$INKEY$RND CLEAR CODE z{} CLEAR ABS ~|y CLEAR CHR$ [L] COPY TO CLEAR <=[M][K][J][K][M] CLEAR <=^CHR$ RETURN !CHR$ #"#"#▙:4*CHR$ +$%($&(($%(uHt▚d#ssvBsv4▝[R]RND▞POINT SXBIN ( PLOT CODE HT6▝<=ABS ▝CHR$ <B4▗▗ ▗>D▗:▗! FORMAT ERASE MOVE ERASE OPEN #HX> " ! " # $ %▜a▜▚f▚▗ >▚PPPP▚PPNN▚ML▚m▚K▚$JPCHR$ 0(NPCHR$ INPUT (NCHR$ RETURN ▘ArNOT POKE sNOT ▜v▗ E▚{▗VAL$ CHR$ 8 LOAD LN [F][G]BIN RNDCHR$ % LET AT [T]VAL CHR$ LET VAL$ ▗VAL$ CHR$ @ INPUT EXP BIN LINE SAVE [G][F]▟CHR$ LIST INKEY$▟#CHR$ LIST ATTR [U]TAB CHR$ LET VAL$ ▗TAB CHR$ 0 LIST VAL$ CHR$ H GO SUB EXP BIN LINE SAVE [F][G]TAB CHR$ LET VAL$ ▟CHR$ LIST ▟CHR$ LIST INKEY$▜ AND PRINT ▗TAB CHR$ LET VAL$ EXP BIN ▛ LINE CONTINUE [G]CHR$ IF [F]BIN [S]CHR$ 0 PLOT TAB CHR$ . LET VAL$ CHR$ F INPUT RNDCHR$ DIM PRINT [T]CHR$ RETURN LET ▗▘CHR$ SAVE POKE LN BIN ▛ LINE BORDER [F]CHR$ [G]CHR$ LPRINT LET ▛CHR$ PLOT LET AT CHR$ 0 PLOT [U]CHR$ 8 PRINT VAL$ CHR$ 0 LET VAL CHR$ POKE ▗%NOT COPY ▞BIN ( PLOT !%QL6▝gPEEK [H]▝<B RETURN IF +t[O]t DEF FN xEx5y▞y[K]yRNDyUSR RETURN IF (([L]s RETURN IF COPY z PLOT [G]xz<> STEP >1 RETURN & LINE LIST 3 RETURN : LINE >1 RETURN ! FORMAT RETURN >= PRINT STEP STEP LINE <= LET NOT >1!4NOT r?Stack overflow, try more P switches STEP BIN (:> RETURN LINE O4 GO SUB C)}2'}{ PRINT NEW AND >=2H}F} GO SUB C<} STEP FORMAT {! PLOT }"<}:)} AND RETURN *0 LET PRINT VERIFY 0 GO SUB D AND ▜▜▜O STEP [J] DEF FN 2 LET <_ NEW RETURN <> GO SUB C)}2'} INVERSE ! OPEN #z~ NEW LIST O~ THEN IN THEN _( THEN COPY NEW ▜2|# THEN a(#~ NEW LEN THEN PLOT INVERSE w RETURN ~ NEW <2 FORMAT z#N#~ THEN G LINE TAB | PRINT "H|#~W NEW USR CHR$ ▝|: MOVE z NEW RETURN ~Pv(U THEN _ Q NEW GO SUB _ NEW THEN W( THEN O: LOAD z 05 NEW 1 RESTORE !+ RETURN ( IF RETURN CLEAR 8 (<( RESTORE i` STEP ▖}MD LLIST NEW GO SUB _ NEW BRIGHT O BEEP q LLIST RETURN ( LINE OBV& THEN w( THEN ©(~ NEW AND MERGE _t#~#~ MOVE ~ NEW ▜_ STEP [H]} THEN BCHR$ | LET #W MERGE FOR NEW AND o&t~,fo FOR y INK !(r STEP k}~ATN PAUSE RUN |#O NEW (Gt~ AND _# INK { INK ▚# INK z INK ▚# GO TO THEN a(~ INK _ INK #~# INK ▘W INK INK STR$ RESTORE INK RESTORE INK LLIST : MOVE zATN PAUSE }#~+ AND NEW 8 GO SUB D_: MOVE z THEN w(z GO SUB DW: MOVE zFN 2 ERASE zy2 OPEN #z>_ THEN / THEN / THEN /▝OzG{ NEW STEP PLOT } INVERSE 5 CLEAR LLIST CHR$ COPY {<>_> RETURN THEN 0 MERGE OR PRINT { STEP PLOT } LET STR$ MOVE !(r STEP k}#~ STEP CIRCLE #~G#{NOT PLOT } MERGE OR W NEW SAVE o^,zV NEW (G{,▚0 RANDOMIZE _ FOR STR$ MOVE <>~#N#F#~#= POKE <> OR MERGE ACS w THEN { GO SUB C BEEP ~ NEW G: OPEN #z PRINT {2 OPEN #z OR #~▜8 THEN /#^#V RESTORE FOR STEP LLIST STR$ FOR LET 2 OPEN #z MOVE STR$ <> THEN /O#^ THEN {( RESTORE * PAUSE z READ #: POKE z▚G: PRINT z▝O READ FOR STEP ▗ MOVE LPRINT COPY INVERSE ! OPEN #z INVERSE ^ COPY 2[O]~ THEN {(/ NEW <2f2▝<25▘{ NEW LPRINT _~ATN >= THEN s(5xATN PAUSE 9~▚ SAVE >==>=<2 MERGE zx GO SUB D2 CLOSE #z THEN THEN F~2 MERGE z VERIFY 8=2 CLOSE #z GO SUB D▚2 MERGE z>==>= THEN NOT - VERIFY COPY LN ~8[A]=2 CLOSE #zxATN >=< THEN NOT 2 MERGE zx RETURN 8©[A]PEEK FORMAT 2 CLOSE #z[G] GO SUB D2 MERGE z=>= THEN THEN { LPRINT THEN z GO SUB S POKE }_#~= NEW W THEN {(/ NEW CODE AND ▘ THEN _ ~" CONTINUE © NEW ? AND NEW 82 VERIFY z=2 PAPER zoy RETURN 8 GO SUB D2 BEEP z,[F] FORMAT GO SUB D2 VERIFY z READ THEN {($ THEN [D] THEN FLASH VERIFY 8<2 BEEP z=[F] GO SUB D2 VERIFY z THEN READ THEN FLASH THEN {( THEN [L] THEN OPEN #: VERIFY z[C]>=2PI© INVERSE s COPY : VERIFY z THEN c(<! MERGE u▜▜o~2▘,~2M▘ THEN c( THEN [ ---CODE 2}▘,~2Y▘,~2[K]▘ THEN {(>92Y▘! THEN c( INVERSE n-"▜▘ OR : MERGE z THEN s(G: MERGE z THEN C =W THEN K =W THEN C INVERSE r: OPEN #zATN IF BORDER ©x/ NEW ▘ NEW <WCODE THEN THEN AND pgx NEW LPRINT LEN oB INVERSE N LPRINT COPY OR RESTORE ~ NEW EXP , RUN LLIST STR$ INPUT NOT BORDER © RETURN BRIGHT <=©~ NEW 8LEN PLOT @w BORDER RESTORE }))) PLOT LPRINT o| NEW AND `gCODE wwwwwwww LLIST <>!: MERGE z CLEAR gSTR$ INVERSE THEN COPY ~(y INVERSE ▚=O FOR STEP INVERSE ▘ FOR MERGE THEN ~ LINE FN ▝ INVERSE THEN COPY ~ INK &r( INK : VERIFY zCODE INVERSE THEN COPY V(: BEEP z THEN v# LINE CLOSE #2CODE ATN 2h>, INVERSE THEN COPY ~(<2t2[F] INVERSE THEN COPY N( INVERSE ^ INVERSE THEN COPY n( CLEAR /NOT IN FOR LLIST RESTORE ATN (P NEW AND RESTORE RETURN 8 VERIFY /,(6 INK CLEAR oVAL o~ INK O NEW CLEAR VERIFY 8 ~[R]wCODE O, LIST = INK LEN o~ INK LEN INKEY$w>ATN LLIST GO SUB K POKE } CLEAR %CHR$ _ FOR INVERSE THEN COPY F LINE DATA ▝ INVERSE ^NOT DATA ▝=NOT x2▝▝ATN 2▝>, INVERSE THEN COPY ~(<2+▝2Q▝ INVERSE THEN COPY NBIN [M]▝ INVERSE THEN COPY n( CLEAR D STEP [P]▝NOT ▞▝CODE INVERSE THEN COPY V(: BEEP zATN 2▝▝ FOR LLIST RESTORE AND 8 VERIFY ~[R]wCODE c= CLEAR oVAL o~ INK [R]O THEN IN CLEAR VERIFY 8 ~[R]wCODE O, LIST == INK CLEAR oLEN o~ INK LEN OATN PAUSE t▝ CLEAR NOT ▝ ~[R]wSTR$ * POKE }>ATN CLEAR % FOR INVERSE THEN COPY FBIN [M]▝NOT DATA ▝ATN PAUSE z▝ RUN INVERSE F# THEN ~# IF SAVE <> THEN v# LINE DATA ▝> COPY 22▘>ACS INKEY$ STEP LET ▘ INVERSE 4 MOVE MERGE STEP ▘>INKEY$ACS STEP LET ▘CODE 22▘ INVERSE THEN COPY ^ GO SUB K▜▘ATN GO SUB B INVERSE THEN COPY FBIN FORMAT ▘ INVERSE 5: INK z CLEAR g MOVE INVERSE THEN COPY N FOR GO SUB K POKE } FOR STEP ▘ INVERSE THEN COPY ^>=>w2}▘<> INVERSE THEN COPY NBIN FORMAT ▘ INVERSE THEN COPY V( INVERSE N GO SUB SU▘ RETURN ^#V# RESTORE INK LLIST ^#V#N#F# RESTORE fh>NOT L▘ INK THEN INK INK THEN INK THEN THEN THEN THEN THEN RETURN E2{▘|! RESTORE RETURN INK { INK ACS w, INK z INK ACS w,{ACS w,zACS w,yACS w,xACS w,ACS w,>ACS wSTR$ * POKE } FOR LLIST # CLEAR % ▛ INVERSE ! OPEN #z<> INVERSE k INVERSE b[ RETURN INK { INK _ACS w- INK z INK _ACS w- INVERSE ]ACS w- INVERSE /ACS w-YACS w-XACS w-_ACS w-:{▘_ACS NOT }▘: CLOSE #z INVERSE N=>= CLS x.ATN THEN THEN THEN AND `g}LEN o<> RESTORE !]▘ INVERSE THEN COPY ~(![Q]▘r#PEEK DRAW r RANDOMIZE LLIST <>>2j~=2n~<> RETURN IF RESTORE & THEN }(% GO SUB [" GO SUB [O LET ▘G GO SUB C FOR STEP RETURN ▚0> 2<>i& THEN }(%)))ASN oy RETURN 8: RETURN ? CIRCLE GO SUB ["ATN GO SUB Ri▗ PAUSE yo▗} GO SUB Do:Ox2[B]_▗0c▗ GO SUB D INK * GO SUB K INK : CLEAR oABS 0 GO SUB S<> GO SUB C AND Eo GO SUB C<> GO SUB S AND G`x THEN ?8SGN 8[E]ATN O INK CLOSE # STEP x RETURN 0 CLEAR } RETURN 0yACS w INK y OVER INK " GO SUB C CLEAR }2ATN <>ACS w RESTORE } NEW o THEN < THEN < THEN < NEW LPRINT ASN o| NEW AND pg~ NEW x INVERSE ACS w LLIST NOT INK GO SUB S GO SUB C STEP RETURN ▚ CIRCLE GO SUB Ci& THEN }(%)))ASN o" NEW PLOT o&r~2`CODE THEN < THEN < THEN <o THEN y(`":2ATN <> CLEAR ,<>ATN GO SUB R CLEAR -<> THEN FORMAT #<> THEN FORMAT +<> NEXT STEP [N] STEP NEXT STEP [N] STEP NEXT >ATN <2©▗ STEP PEEK STEP > INPUT 2▛▗CODE 2X COPY o INVERSE !qq COPY YH> STEP LN ▗LN ▗ CLS <> GO SUB sn INK INVERSE n INVERSE f INVERSE # INVERSE #"A RANDOMIZE FOR Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE Vq-^q- MERGE FOR !%▗ INK y w+ DRAW O>U2X0> INPUT 2` OPEN # RETURN =CHR$ SGN ▗1<>P LPRINT OUSR O[Q]OO`O@O OH LPRINT GUSR G[Q]GG`G@G G! INVERSE zF#^#V FOR THEN ACS FOR PLOT <>! NEXT THEN LLIST STEP DATA THEN INK STEP DATA >POINT O STEP DATA THEN <> STEP DATA >POINT O:[S] REM ▜0>POINT O:[Q]G GO SUB C[Q]<>! CLEAR ~#ATN ( FLASH RETURN INKEY$#<> FLASH / SAVE © CLEAR RETURN ©© OUT :CODE REM RETURN >= RETURN ( RETURN * LIST zATN GO SUB R8#lATN GO SUB R0<> RETURN ( RETURN * LIST z0 RETURN ( FOR !`ATN GO SUB R FORMAT !▝[O]>2 OPEN #zCODE 2 ERASE z STEP PLOT }:CODE REM RETURN ( RETURN ( RETURN USR * LIST z RETURN ( FOR ![C]ATN GO SUB R CIRCLE ![T][O]: LOAD z0>2 ERASE zCODE NOT PLOT }* LIST z CLEAR N CLEAR FATN GO SUB B FOR ATN GO SUB R CIRCLE GO SUB B8 GO SUB B8CODE 7<> CLEAR N FOR CODE og) THEN 0 DEF FN PRINT )lg[Q] GO SUB R} THEN < THEN < THEN <O} NEW <> CLEAR ! CLEAR o FORMAT CLEAR $<>X!T CLEAR ~0) RANDOMIZE | GO SUB D CLEAR ▚G<>y STEP BEEP ▚ MERGE STEP RESTORE ▚ MOVE OR STEP ▟▚ MOVE B<> `#a[I]&bF,d LLIST 2f▜9h/Bk GO TO KnATN Tq|auIpz ©[A]▗CODE 2 POKE z* RANDOMIZE z GO SUB [ CLEAR z INK * RUN z GO SUB [ CLS z INVERSE !x2 PRINT zO STEP BEEP ▚y STEP O STEP ▜ INK O STEP ▜ INK SCREEN$ NEW INVERSE 8 LIST INVERSE : PRINT z< RETURN BEEP <>~ NEW EXP y(USR INVERSE <> PRINT CLEAR ~ PRINT ~ THEN ©(#~ CLEAR w#~ NEW O# STEP INK ▜ CLS : PLOT z0 OR LIST INVERSE STR$ STEP INK ▜~ RETURN USR #@ POKE INVERSE CHR$ LET CLEAR w LET <> NEW USR MERGE (4 NEW EXP 8[B] IF RESTORE o0$~ INVERSE RESTORE MOVE MERGE GO SUB S PAUSE zATN PAUSE ▖ NEW ©!(r STEP k} STEP 8▖!ABS s STEP k} STEP ▖ INVERSE LLIST LLIST LIST INVERSE MOVE <> MERGE OR INK RESTORE MERGE INK CLEAR RESTORE RESTORE STEP ▟▚ LLIST CLEAR F CLOSE #<>{ CLEAR LLIST INK MOVE LLIST INK STR$ MOVE <> MERGE OR INK RESTORE MERGE GO SUB C ERASE z INK CLEAR RESTORE RESTORE STEP ▟▚ LLIST 8 THEN ~(~ THEN g(## NEW (###= IF # CLEAR F STEP PLOT }STR$ ▙▖▞8▞c▞VAL$ ▖▞8▞c▞ INK ▖7▞8▞c▞ PLOT ▖$▞8▞c▞@ BRIGHT &"COS [G]$COS [G]%[L]TAN 6[I][G]ACS G[N][L]ASN H[K][I][O]SIN )[K]▗`ABS &B[F][L]COS ▛4[F]f[F][J][I]7[O][I]H[K]ASN JP%D▛[F]COS F[I] VERIFY G[I] ERASE (▗[K]9▗[K]@ ▞"[F]COS tf[I])0# GO TO 56'""$$%$&#'#(#▜A 32▖d 32USR 23▞x0.1,USR COPY 0-+0x0,.1USR COPY 00+-0()*E7 PRINT STEP ▟▞( LET <> RESTORE MERGE STEP -0 STEP P STEP ] MOVE LLIST LET <>O: LOAD z THEN ?POINT THEN G<> MERGE RESTORE PRINT ATN !x"w STEP ▟▞ 5H STEP ▟▚8yATN IF CAT ▞ AND RETURN 0 GO SUB D AND G STEP -0 STEP B(, STEP -0 STEP P STEP ]H*w#"w~!(r STEP k} CLEAR 4 INVERSE RESTORE STEP 8▖ INVERSE LLIST CLEAR 5 LET LLIST MOVE <> MERGE RESTORE PRINT ATN !x"w STEP ▟▞ STEP H STEP ▟▚8y VERIFY IF PAPER ▞ RETURN 0TAB G_[K]([U] DEF FN CLEAR ~ RETURN FORMAT o&) RETURN IF >`▗g7<> GO SUB [us-<>r- RUN <> GO SUB [u+r-s IF <> GO SUB [u{ THEN : THEN THEN : THEN NEW USR SIN W GO SUB Su<>cATN USR PRINT RESTORE MERGE ! LPRINT q0AA STEP V MOVE LLIST LET <> RETURN USR PRINT RESTORE ! OPEN #w THEN RETURN CODE RETURN USR PRINT RESTORE ! OPEN #w THEN PEEK >2 THEN MERGE INVERSE RESTORE ! OPEN #wH STEP ▖ INVERSE LLIST H STEP ▟▚8y VERIFY IF ▛ RETURN 0COS _!q RESTORE <(INKEY$587y AND IF ▛ RETURN 0)![P]q RESTORE _ GO SUB D AND PRINT !l STEP %▛ LET LLIST O OR RESTORE A STEP F LLIST STR$ PAUSE MOVE LLIST LET <>CHR$ ▛ RUN CODE w DRAW <>ATN USR RESTORE PRINT MERGE STEP <▛ MOVE LET LLIST <>!qPPNOT VATN USR PRINT RESTORE MERGE $ STEP ▟▚8yATN IF [G]▛ RETURN 06!`qA"(*+ATN USR PRINT RESTORE MERGE l STEP ▟▚8yATN IF [D]▛ RETURN 0!©q GO SUB D AND GPP STEP F( STEP <▛$ STEP RESTORE l STEP RESTORE CLEAR RESTORE CLEAR !6▜$ STEP ▟▚ PAPER :G OR !r STEP [S]STR$ OR y AND O!r STEP [S]STR$ xATN (yATN PAUSE OVER ▛ IF : LINE :_ 0X RETURN 8 VERIFY GO SUB D_!USR qC OR RESTORE ~ NEW RETURN 8 STEP <=©CODE LEN wx RETURN 0 THEN ▚ DIM LLIST ,STR$ LPRINT CLEAR !6▜$ INVERSE RESTORE *[O] THEN V(!! STEP ▖ INVERSE LLIST CLEAR LLIST MOVE LLIST LET <>#~ATN ( GO SUB K REM (y RETURN NEW 0>2$x!$x PAPER 5> STEP % CAT > INPUT #~2©{ RESTORE RETURN 8 MERGE ! MOVE !~{"-▖>2$x>B2(x!$x STEP ▖!<>{"-▖ LLIST w [R]++ THEN VERIFY >H2(x[G]yATN SAVE RETURN FORMAT xATN >=o~!` CLEAR !p CLEAR O > CLEAR THEN f CLEAR 6P RETURN 0 CLEAR THEN AND ~LEN /w RANDOMIZE %$ CLEAR = BRIGHT <> MERGE * LIST z THEN z( FOR THEN SGN ATN GO SUB R MOVE FORMAT CLEAR RESTORE INVERSE RESTORE MERGE THEN INT MERGE GO SUB S PAUSE z! DIM w STEP ▖ MOVE MERGE STEP ▟▚ MOVE PAPER [E]▟y PRINT CLEAR !6▜ STEP ▟▚0 LET G[B] PAUSE *▟H GO SUB DG▝ IF [E]▟ RETURN 8 VERIFY GO SUB D IF [E]▟GyATN PAUSE E▟G CLEAR !p!` CLEAR G OR CLEAR RESTORE RESTORE > STEP <>▟ LLIST , CLEAR LLIST CLEAR #STR$ CONTINUE STR$ x CLEAR ! LPRINT q! LPRINT o CLEAR G OR CLEAR RESTORE RESTORE CLEAR LPRINT COPY > STEP <>▟ LLIST , CLEAR LLIST CLEAR #STR$ CONTINUE MOVE MERGE CLEAR ! THEN PEEK THEN z( THEN INT THEN RETURN STEP ▖ MOVE CLEAR !"▜!x THEN PEEK THEN z( THEN RETURN THEN INT STEP ▖ INVERSE LLIST CLEAR LLIST <>=>= CLEAR CLEAR THEN N( PRINT CODE ACS w CLS CLEAR =>= CLEAR THEN N GO SUB G CLEAR RANDOMIZE <>: LET ▟_*{: LIST ▟O: COPY z THEN © STEP YEXP , STEP Y - STEP YO"{Gy2 LIST ▟{2 LET ▟~ NEW O NEW DRAW POINT PRINT : LIST ▟<LN ,~ NEW O NEW DRAW POINT STR$ O OR x2 CLS z NEW _ NEW Gy NEW W NEW LN (ATN x AND AND 2CODE REM ▜!Eo0$~#fo"b▜y2 PLOT z{ STEP 7" RUN zz STEP 7" RANDOMIZE zSTR$ xLEN NEW RETURN (X>ATN (CODE 2[N]▙: COPY z▜0:[N]=2[N]x NEW POINT NEW 2[M]USR :[L]ATN USR : LET ▟2 PAUSE ▟: LIST ▟▜▜ NEW FN NEW !k STEP d2[L]!"{!{▜ STEP c#V_ GO SUB Su POKE #~#fo DIM :[N]▙ATN LN <2[N]▙: COPY z THEN ©:[N] <2[N]![Q] OR PEEK (# RETURN IF PLOT #"[O]STR$ ###~ATN (2 BRIGHT !CODE FLASH "x POKE STEP FLASH NOT SIN ▙!n▖▜o0$~#fo<>Dq▞▚0▛[H]▞PIk▛ COPY ▞[K]G▛~ NEW <<<>▜o~ FORMAT $~<>DD[S] CONTINUE { CONTINUE OUT [S] OVER OUT [P] OVER [T] LLIST R LLIST FOR INK EXP INK _ INVERSE + INVERSE [T] LLIST D LLIST RETURN IF 0ZCODE 2[N]! LLIST [Q] GO SUB VAL : INPUT zG AND 2VAL$ x THEN ?2POINT THEN ?2[U]x RETURN CIRCLE >2SCREEN$ <> 0Z▝ MERGE _jIN % RETURN COPY DRAW DRAW DRAW |[O]O BORDER s▝FN SCREEN$ Tw[Q]P? CLOSE #IN USR %@▘ LOAD CIRCLE USR USR USR LN VAL FN FN FN [Q][I][A][A][A][A]▖▖`XIN IN RND OVER OUT ZonAT [L]ASN ▞[[A]▜CODE FORMAT K BEEP FORMAT [G]ATTR LPRINT TAB }USR Z▙IN PEEK /Lw6 FOR k MOVE BEEP LPRINT SQR USR [A] LIST PI&((((&"?[N] MERGE N+ COPY READ 8 RETURN ATTR PEEK |_U COPY [P] INPUT jATTR COPY LINE ▚? COPY COPY COPY DRAW COPY COPY COPY LIST © LIST SAVE [A] RETURN / LIST - LIST $ LPRINT LPRINT LPRINT `` LPRINT LPRINT LPRINT LPRINT ` pox[P] DRAW [M]< OVER vPEEK POKE ? GO TO CIRCLE #VAL : LIST @ DIM GO TO LPRINT SAVE RETURN IF RANDOMIZE RANDOMIZE RANDOMIZE PAUSE FOR VERIFY VERIFY VERIFY VERIFY CAT CAT CAT IF LOAD COPY USR ▟U PRINT LEN OVER LINE x READ COPY g,© PRINT COS NEW ?z VERIFY LOAD [P]ATN o_ CLEAR Z▛INT SAVE TAB } INVERSE pWVAL$ REM SIN VAL$ CLOSE #uz5 RETURN zLN . INVERSE =R5n[O]INKEY$ATN o OUT [IN COPY _ INVERSE G7 INPUT '[P] OVER ' PAPER INPUT ' FLASH ~ITiFN ▝PH/ SAVE % LIST [Q]▝ CLOSE #[K]i DRAW [G]IJ©%6i+jzACS D*@6@*USR 7@*USR 6@*@6@=USR @▝((TAB ▚ MOVE SCREEN$ [F]EQ RETURN O COPY RETURN LET ▟*_ RETURN U*I STOP IN EEoSCREEN$ [U](▜TCFN FN _>= FORMAT a FORMAT @ LPRINT @ [B]08 CLOSE #[A] COPY COPY ``VAL & CONTINUE DATA GNOT OR READ CAT LIST >=@` LPRINT CONTINUE hD[A] COPY ;;/n6T[G]INT 10H@▗▘ 0[A] IF IF @ RETURN IF @USR [A] COPY v4P"[A] SAVE RUN [A] COPY ACS AND dB▝>=@@9922SCREEN$ w:/[A] COPY BEEP WLEN LEN EXP USR USR LN POINT zM[B]$[J]$UD*SCREEN$ SCREEN$ UUT*SCREEN$ FN U COPY 0 CAT (09brpphh/`0f DIM [A]H) D ▝ CLEAR BEEP ?mLN LN LN FN U SAVE COPY © COPY DRAW ? COPY LIST DRAW RND"$%%$"CODE [I] LIST _ CLEAR |TAB RETURN IN LPRINT + OVER ?^pWATTR CAT DRAW LPRINT + BRIGHT © LET USR LOAD COPY COPY OUT COPY USR COPY DRAW CAT LPRINT ▜▝ DRAW DEF FN QxxxiZ+USR U DRAW +>=0 CAT 3xxpaJ^ SAVE - LIST USR BEEP $ATTR EXP USR LN [Q][B] LPRINT SQR RETURN ? RUN DRAW © LOAD LPRINT ?▝USR ▝ CLS OUT BIN REM SAVE SAVE SAVE DIM MOVE SIN ]LN LPRINT © LOAD DRAW jIN OUT RETURN 5©IN SAVE >SGN ©USR s RETURN !'hCODE F RUN BEEP cPSQR GO SUB CODE CHR$ h COPY ATN BEEP REM jSQR GO SUB CODE OPEN #J COPY ASN BEEP CLS NSQR IN CODE ERASE z INPUT GO SUB BEEP BORDER IF MOVE [U]VAL$ OUT INPUT CODE CLOSE # OVER CLS J BEEP [U]VAL$ INPUT OVER [L] CLOSE # BEEP FLASH j NEW [U]CODE DEF FN LINE COPY IN LOAD FOR ZIN REM SQR V IF _[S]kj_ATTR COPY FLASH PAPER /#CODE FOR J.7[H] CLS JIN OUT [T] LINE [R] OUT : DEF FN #o&JASN RETURN &BIN k/SCREEN$ [ IF DRAW ▝ LIST ▝p LPRINT [B] NEW RETURN SCREEN$ COPY CLEAR U COPY COPY LOAD COPY RETURN IF }© COPY > OUT COPY _O COPY VAL$ CODE COPY [P]© COPY OIN COPY W COPY COPY / COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ? COPY W COPY [L] COPY ATTR COPY M COPY U COPY % COPY ▝ CONTINUE (L*/Tx6[U]Z%INT MERGE @[C] LPRINT I0INKEY$[O] DIM ▛ LINE ▞@ PRINT DINKEY$B][R] READ SQR `f;VAL INVERSE x.▝ LIST SCREEN$ Ueeb2*%@[Q]`[Q]@[Q]pH[F] CIRCLE SAVE POKE POKE POKE RETURN ?USR SAVE ? DRAW ? RETURN COPY RANDOMIZE COPY COPY AA COPY COPY IN COPY COPY RETURN COPY COPY @ COPY RETURN @ STEP OhJJ3$ DATA HSCREEN$ FN LEN SCREEN$ FN DATA HSCREEN$ FN LEN SCREEN$ FN DATA HSCREEN$ FN LEN SCREEN$ FN DATA XZVAL 9 *[Q],`USR >=")8@ RETURN IF 9*,R[R] RETURN IF a2NOT RETURN IF LPRINT [Q] RETURN IF @[B] SAVE SAVE POKE SAVE POKE SAVE CLOSE # SAVE POKE SAVE TAN SAVE ▗xx00 <7[B] SAVE SAVE POKE SAVE POKE SAVE POKE SAVE POKE SAVE CLOSE # CIRCLE POKE SAVE TAN [A] CIRCLE $ COPY REM RETURN CLOSE # COPY REM COPY TAN COPY REM RETURN CLOSE # COPY REM COPY TAN COPY REM RETURN CLOSE # COPY REM COPY TAN COPY REM RETURN CLOSE # COPY REM COPY TAN COPY REM RETURN CLOSE # COPY REM ©TAN © REM ~ CLOSE #© REM COPY TAN COPY REM RETURN CLOSE # COPY REM COPY TAN COPY REM RETURN CLOSE # COPY DATA LET [Q] LET USR 0▝ SAVE RETURN RETURN RETURN RETURN ||8[B] SAVE COPY CLEAR COPY RETURN COPY CLEAR GO SUB PEEK GO SUB ABS COPY RETURN COPY CLEAR mACS [B] SAVE COPY COPY COPY m▝ CLS RETURN PAPER GVAL$ CIRCLE DRAW A_ COPY USR >=@9 COPY > CIRCLE mm^NGW__▜[N][U]USR USR FN ▖▝rc DRAW CLS POKE TAN hTKAT RZdTAB RETURN M FLASH n FOR |,? STEP 5<QX`pib7/@)@}@: xp CLOSE #|[J]FN FN FN [Q][C]{d7/ RUN USR ?CODE [Q] COPY _P~IN [Q]~[Q] INVERSE @ CLS INPUT FORMAT ` CIRCLE ▜USR RETURN IF [S]]/8$dL PAPER [L]COS k$ NEW INK CIRCLE V ▝ IF LPRINT DIM SAVE RETURN IF LET LLIST CODE [P]>T(© RETURN CODE CLOSE #©_O BEEP ~PEEK IN SCREEN$ < LOAD OUT /;[A] LPRINT >=8@ RETURN IF 8@ RETURN IF 8888000)"AT BRIGHT VAL$ OUT CODE OUT VAL$ CLOSE #AT CLOSE #VAL$ BEEP N4l[M]|XxX8">=@ RETURN IF 8 RETURN IF @ RETURN IF 8008@@@@992* COPY OUT VAL$ ^>zLN DRAW DRAW SGN SGN DRAW LN DRAW PEEK ~.^|xxxx[M]PEEK _/7>=@ RETURN IF RETURN IF .^n^jTjVzjFBB@@>=@ RETURN IF 881119999@ RETURN IF 2+ BEEP THEN uNvNzAT |< RETURN IF >?7+EFN BRIGHT [O]▝ POKE yrkjbbbbSDSCREEN$ CODE UW*VAL$ OVER PEEK /FN X8x LIST LPRINT LPRINT CAT SAVE RETURN IF LIST FN [J] RANDOMIZE W COPY COPY COPY [L] COPY RETURN PEEK TAB IN COPY x[_ NEXT SGN VCODE VAL$ oP>[Q]USR DEF FN Oxxxqc/ DRAW _[M]0 DRAW ▝ IF VERIFY LN LN LN LN {U/_© DRAW 2 DRAW <s DRAW |#SGN `<=@@88)) RETURN |/((▝ LPRINT TO RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE REM FLASH TO ABS VAL$ [P][H]_WO COPY COPY LIST }ABS COPY _* INVERSE OUT ^ABS CLEAR SGN OUT COPY SAVE o PRINT IN REM [Q]*%@B▝▘ LOAD 2VAL -000000000/,++*&$[P] LPRINT k CLS PRINT I RETURN ATTR [L]ATN MERGE POINT COPY kSQR UASN Y INPUT ATTR FLASH ATN INVERSE CODE LOAD kIN OTAB W INPUT ATTR OUT COPY MERGE ATTR COPY k COPY A COPY LIST ATTR ERASE ▘UCODE COPY wCODE DRAW *_ IF COPY COPY IN RUN © CLS [A] COPY INPUT [P] CLS PR[P]©IN pPOINT ~[P][M][A]©SQR _ CLEAR V[L]VAL$ @?[ MOVE ▝ RETURN DEF FN 5ppOUSR U SAVE ▘ CLEAR CLEAR COPY VERIFY OLEN LN RETURN © LIST * COPY DRAW >=0 RETURN IF DRAW ▗ RETURN IF TO 0▝ COPY AND 88| DEF FN OxxphhhhYJ;,,,,R4kxSpo LIST _ LIST © LIST + LPRINT USR ▘) DIM FN $'((((((('&&%$#$%▞▜ SAVE DRAW LET RETURN : IF INT VAL$ EXP COPY uINT o)INT RETURN LN CODE 9©uIN n[J]INT COPY COPY CODE CLEAR _p BORDER oK* COPY COPY VAL$ INKEY$© COPY ~ ERASE e COPY _(/ FOR COPY PEEK [A]= COPY COPY w`-[S] FOR USR 5[F] CLEAR RUN LPRINT /▛ FOR COPY LIST OR W SAVE ? LIST jCODE SAVE UUXjATTR SAVE _} SAVE y BORDER [I]▝ LIST IF O+ DRAW U DRAW + DRAW U DRAW + DRAW U DRAW + DRAW U DRAW + DRAW U DRAW + DRAW U DRAW + DRAW U DRAW + DRAW U DRAW OR 0 RETURN IF )"▖>=LN h8▝ CONTINUE BEEP LEN RETURN IF U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN U© RETURN *IN RETURN ▝ LIST <=8 RETURN IF PEEK ~PEEK ~PEEK ~PEEK ~PEEK ~PEEK ~PEEK ~PEEK ~▘ CIRCLE g©[G]ATTR EXP USR RETURN IF LN POINT [K]sL%USR =>= REM CAT U CAT :SCREEN$ <>UU RANDOMIZE jINT COPY UU COPY jINT COPY ]U CAT jSCREEN$ CAT ]U COPY jCODE oU COPY LEN o COPY PEEK © COPY BRIGHT ? COPY CONTINUE COPY LIST COPY LIST ▝ RETURN IF xi: SAVE RETURN PEEK MERGE ~SCREEN$ PEEK MERGE vSCREEN$ ACS MERGE ~ COPY OVER COPY INPUT © GO TO ? SAVE ▝ COPY BEEP USR USR USR LEN [S][D]m^7~ IF ? POKE CONTINUE CAT LIST COPY RETURN p▝(FN (((((((((((((((((([F]▙▛(U@QUP(POINT COPY PTT RETURN PSCREEN$ *SCREEN$ ~ MOVE TU+PSCREEN$ ▘FN >LEN T OR P©PFN `! COPY LN @LN COPY |_ NEW PEEK CODE [P] OUT COPY RUN COPY COPY RETURN CLS DRAW IN OUT RANDOMIZE CLEAR READ ©? BORDER © BRIGHT LIST OVER COS USR SAVE LOAD LIST COPY LPRINT x▝ COPY FORMAT hppxph`XPH@0( LIST * CONTINUE ATTR CIRCLE CODE EXP VAL$ rABS DATA SQR CONTINUE PLOT FORMAT STR$ [Q]CODE @© RETURN SAVE LIST USR ▝ COPY CIRCLE USR USR USR USR LN VAL [Q][B]zk/ IF FOR RETURN CLOSE #z8u LPRINT + RESTORE USR FLASH NEW BRIGHT 8▝ POKE VAL [R][C]▛▛||mm COPY COPY DRAW US SAVE *[D] LIST S LPRINT COS LPRINT © LPRINT ?USR _USR /USR BEEP ATTR ©USR LIST SAVE DRAW RETURN * RETURN =©:IN ? BEEP ?ATTR ?TSCREEN$ T SAVE LIST FN P P( TP*((@▝F[P] ? CLEAR ©T> COPY FN [P] COPY P IF [Q]CODE PRINT USR w NEW ; SAVE LPRINT ▝A[N] © COPY UX? OUT ATTR LIST CODE VERIFY W CONTINUE LOAD VAL ~USR ▝K[P] © LOAD COPY R< RUN IF $/ DATA CIRCLE BEEP CAT 0<=COS USR SAVE L LIST ▝ LIST THEN OXXXXQQIQYRRYYQJ;O?OUSR _USR /USR 'USR /'USR LPRINT LPRINT LPRINT 'USR USR ▝ CONTINUE LINE OIX RETURN IF P RETURN IF X RETURN IF PPIA::O?OUSR ?USR oUSR WUSR o_//'/USR ?USR oUSR _©?/ CONTINUE > DEF FN Oxxqihhh``YYYZZSSSZR RETURN IF KOW DRAW ; DRAW SAVE / LIST ' LIST o LIST _ LPRINT O LPRINT ?USR / LPRINT ?USR LPRINT LPRINT LIST LIST LPRINT LIST LPRINT LPRINT USR LPRINT LPRINT LPRINT USR [A] OR (000))))ppx8888<=8808122+|xp(▘ SAVE J CAT OqbbSSKOo OVER /TAN >=[I]P LPRINT ▘ LIST A@ /USR @USR [Q] FORMAT H0FN P ▘6y ?INKEY$UXSCREEN$ eUSCREEN$ P [A]P[Q]@z[M]▝ LIST VAL LPRINT VAL LPRINT VAL LPRINT [Q]USR [Q]`P(▘ GO SUB N POKE PVAL X(4@[Q][A]h[E] PAPER Ln< BEEP ▛POINT LN RETURN IF NNNN6/SCREEN$ [Q]7 COPY CIRCLE h|,_- POKE p8 SAVE SAVE DRAW DRAW LPRINT [Q][A] DRAW MERGE o▗▛[C][J][B][J][Q]FN VAL VAL VAL FN [B]yZKD01 LPRINT ? LPRINT COPY ` RUN ` PLOT LPRINT nUSR : GO SUB USR 6 INVERSE USR 5 OVER LPRINT m INPUT LPRINT n LOAD pn RUN xww LIST 7©USR ; RETURN LIST [Q] [A] CLS OVER PIASN SQR LINE LINE MOVE INK LPRINT CONTINUE CONTINUE LIST LIST LIST LIST CONTINUE CIRCLE <>EXP LEN [K][C]f▝ LPRINT [P]USR RETURN USR CLEAR USR ©SQR COPY SQR LOAD { OUT wUSR OUT wUSR ; OVER CLS USR ;PEEK CLS LPRINT {IN } LPRINT wIN } LIST w OUT PEEK LIST w OUT IN SAVE { LOAD OUT CONTINUE { LOAD COPY VAL } RUN SAVE @= COPY ▝> RETURN ▘? LIST ▘[A] LPRINT CLEAR >=111)8(▘ SAVE OVER IN CLOSE # STOP DIM LIST LIST LIST a CAT CAT < NEXT DATA RUN GO TO W COPY DRAW COPY COPY DRAW % OVER ZLN COPY POKE .p LPRINT VERIFY INVERSE FOR PAUSE RANDOMIZE RETURN IF FN ( NEXT q▙[F]_ COPY = INK [J]jCODE COPY .[F]G COPY 5 SAVE + NEXT CLS COPY # CLEAR LIST M RETURN VAL @[B] CIRCLE CLEAR *▝▝▝▝▝▝▝ RETURN IF ▝▝▝▝▝▝▝[A][E]@ RETURN IF ` 0[A] COPY COPY LOAD COPY LOAD COPY RUN LOAD COPY [A] PAUSE FORMAT @xpXH@1[O][H]IN RETURN COPY SGN COPY SAVE COPY USR RUN PEEK [M]▖[A] PLOT [U]$$! COPY COPY COPY LIST © COPY COPY DRAW COPY COPY COPY [Q]© COPY COPY @ COPY DRAW LIST [Q] SCREEN$ ATTR CLEAR COPY MERGE ~INT e© MERGE hSCREEN$ SCREEN$ CIRCLE UUFN SCREEN$ ATTR XU^VAL SCREEN$ PRINT P COPY SCREEN$ [Q] MERGE U`jSCREEN$ USR UPEEK LPRINT [B] BEEP PLOT ! CIRCLE 4C▛[D]▗▗▗▗▛▛▛▛[B][J][J][R][R]POINT LN USR USR @(USR COS [Q] DEF FN P CLEAR FORMAT IF VAL PRINT PjVAL PRINT `j[Q]ASN `j[Q] MERGE `j[Q] MERGE `SCREEN$ [Q]U@SCREEN$ USR U@SCREEN$ USR U@SCREEN$ USR =U@*SCREEN$ [Q]=U`SCREEN$ VAL 5UP*SCREEN$ FN uUTjSCREEN$ ATTR [B] RANDOMIZE [G]| SAVE COPY LPRINT COPY USR COPY LPRINT COPY LPRINT COPY LPRINT SAVE [T] ###( RETURN COPY USR ? CLEAR LIST LPRINT ? SAVE COPY USR COPY COPY NEW @~ COPY NEXT @ LIST ?▙[B] RESTORE PLOT CIRCLE 4C▛[D]▛▛[C][K][R]POINT USR USR @8USR <=[Q] COPY P IF VAL PRINT PjVAL ASN `j[Q] MERGE `SCREEN$ [Q]U`SCREEN$ VAL -UP:SCREEN$ FN uUV[Q] UU CLEAR SCREEN$ CODE IF u_ CLEAR x COPY IF SCREEN$ CIRCLE uUUFN SCREEN$ ATTR XUVFN SCREEN$ TAB XUzFN SCREEN$ PRINT XUSCREEN$ FN ATTR UX^SCREEN$ VAL ASN UP REM SCREEN$ VAL UU`SCREEN$ SCREEN$ [Q] MERGE U@jSCREEN$ USR UATTR TAT xUSR ▝PSCREEN$ PRINT IF COPY P COPY FN COPY CLOSE # COPY SAVE CAT DRAW DRAW |▝ DRAW PSCREEN$ PRINT P COPY FN COPY POKE COPY IF COPY RETURN COPY RETURN <= RETURN >▝ RETURN FORMAT 8p RETURN IF @TSCREEN$ FN COPY U COPY IF COPY RETURN IF AND ▝ FORMAT RETURN IF H@UUSCREEN$ SCREEN$ COPY RETURN IF NEXT COPY AND [B] CAT Gx RETURN IF `H@SCREEN$ UVSCREEN$ RETURN COPY RETURN COPY RETURN COPY IF COPY LPRINT COPY RETURN USR [D] CLEAR COPY [D]< IF WtFN CONTINUE COPY FORMAT COPY FN COPY CLOSE # COPY REM CODE DRAW [Q] BEEP COPY LPRINT o COPY @g TO 000[C] CLEAR COPY [D]WzFN POKE COPY CONTINUE COPY [E] COPY REM COPY CLEAR CODE COPY LPRINT BEEP COPY @o3 NEW [C] CLEAR COPY CLOSE #[I][I][I][I][A]FN FN FN FN [Q][I]s#++$W?USR FN CLEAR @ COPY REM COPY [E] COPY REM COPY COPY P BEEP COPY LIST FOR COPY [Q]w[J]USR NEXT ▝0 PLOT FN !'(((((((((($$[Q]▚▗▚(U@SCREEN$ FN UUUSCREEN$ SCREEN$ SCREEN$ UUU@SCREEN$ SCREEN$ SCREEN$ [Q]UU PRINT UTSCREEN$ IN COPY REM SCREEN$ U COPY COPY COPY UATTR COPY COPY COPY VAL$ BEEP COPY COPY COPY _ CLS COPY COPY RETURN COPY CLEAR COPY COPY CLEAR COPY COPY COPY RETURN ? COPY IN COPY SAVE COPY <= COPY LPRINT COPY COPY IN COPY COPY MOVE COPY POKE READ 89`8``[A] POKE 8©USR LPRINT 0[A] RUN LINE (8@HA4-..'''p|>USR USR @[A] IF >= (((0)"**##++$$$ `pp0[A] RETURN BIN ( RETURN IF RETURN IF `ppp` RETURN IF [A] LPRINT [A]<CHR$ READ [B] FORMAT O666OVyxxphPA9"@ LPRINT LPRINT LPRINT LET IF * RETURN ]|VAL$ POKE _>= COPY LIST ~>[B][F]4/+W[A]ATTR LPRINT o OUT USR © CLEAR ? NEXT h<>* CAT BEEP z FOR FORMAT © COPY LPRINT ? COPY @yxxphPA9" LLIST IF * RETURN ] DRAW VAL$ POKE _>= COPY LIST ~>[B] DEF FN OAQjcjipph`XQB3+4BIN DATA SAVE CIRCLE * CIRCLE ]VAL / LPRINT _>USR FORMAT O4<<=]]ryxpph`YJ;+USR USR LPRINT PAUSE RETURN DRAW * CONTINUE ]h/ LIST _USR ?`@[D]▗`USR :IN x@<=[A] CLS ▟▗▗▚@ @``@8 FORMAT [A]`[A] DRAW ▟5[Q]` FORMAT `PP LPRINT +USR [A] DRAW @1 a[Q]p LPRINT +USR [B] LPRINT RUN LPRINT RANDOMIZE [Q] U@SCREEN$ SCREEN$ W COPY PRINT UIN COPY COPY SCREEN$ COPY COPY COPY COPY RETURN COPY COPY LIST COPY COPY [B] LPRINT PRINT LPRINT RUN LPRINT CAT INVERSE SAVE RETURN IF PUSCREEN$ SCREEN$ SCREEN$ UU_ COPY CODE COPY RETURN IF ▝ COPY USR [B] LPRINT SAVE LPRINT SAVE [Q] [Q]TU REM [Q]*SCREEN$ CLEAR UU© COPY REM IN COPY © COPY COPY COPY COPY COPY COPY COPY SAVE RETURN [A] REM ▟|pX/O[Q] FORMAT REM AT PRINT |© DRAW SAVE [A] CONTINUE CIRCLE !(@XUSR EXP EXP SIN 0` REM u@?SCREEN$ ' PRINT U RETURN CODE © COPY COPY LIST [A] CONTINUE [I]*U COPY COPY /▜ BRIGHT pUSR G.?[A] POKE STEP DKRYY``(((0)A: RETURN IF P[Q] LIST ? LIST <ppp`P0([A][C]< IF V POKE POINT DATA COPY >= COPY ▖ COPY BIN COPY STOP CODE CLEAR BEEP COPY USR o CLEAR < LOAD 066[A]` LIST FORMAT >=HWVAL$ DRAW DRAW RETURN COPY D_ AND IN RETURN _ CLOSE #9 SAVE 7VAL 00USR 0USR @[C] OPEN #7???>EShp▖[Q][Q][Q][Q][I][A]+34-&0x` FORMAT LPRINT FORMAT [Q]Q FORMAT CODE FN COPY MERGE COPY RETURN [Q] COPY COPY LPRINT IN COPY @_3TAB NEW [C] CLEAR >= COPY ERASE (0[A][A][A][A]xxx▖[I][I]u_WPFN BEEP © SAVE DRAW COPY REM COPY CLOSE #_FN CODE CLOSE #_ CONTINUE ? POKE © IF GO TO CLEAR NOT [O]@7[B] SAVE SAVE >=@ RETURN IF 2$USCREEN$ COPY COPY COPY COPY [B] LIST LIST FORMAT V RETURN IF OUSCREEN$ SCREEN$ U COPY RETURN IF ?[B] LPRINT DRAW LPRINT [Q] COPY ? COPY COPY OUT COPY COPY COPY IN COPY COPY RETURN COPY COPY RETURN COPY SAVE [A] CONTINUE [I]©USR ? COPY COPY COPY COPY COPY © COPY COPY [B] LIST RETURN LIST [A]? CLEAR COPY CLS RETURN COPY SAVE COPY USR LPRINT [Q]qUSR ? RANDOMIZE USR RETURN >[P] LET ? LPRINT ` COPY PEEK COPY USR ~USR LIST LPRINT SAVE ~[M] SAVE [I] LET SAVE ?▚0 DRAW CAT DRAW LPRINT ~0 RETURN `[Q]` DRAW DRAW ▜<= DRAW ` POKE 8|88 AND RETURN < DRAW BORDER 8 LIST [A][Q] `@USR F▖ SAVE c> AND 5m{8 OUT pSGN LPRINT yUSR BEEP PEEK 1 LIST C[A][I]@1"b AND XBIN LIST ▞USR [T] AND ▖4@[A][I]8 RETURN CAT <h LET USR VAL `tUSR GO SUB SAVE VAL `9USR !A▗ NEXT PRINT LPRINT /6v[F][U]COS THEN OPEN # DIM SAVE RETURN IF FOR READ OPEN #CODE _ SAVE LPRINT LPRINT [K] ujSCREEN$ CLEAR COPY SCREEN$ [Q] COPY [F]P% BRIGHT SCREEN$ FN SfTFN = REM SCREEN$ _NOT CLEAR TCODE COPY COPY SCREEN$ OUT COPY COPY MERGE COPY COPY COPY REM COPY COPY COPY CLEAR © COPY BORDER COPY [P] COPY COPY RETURN COPY COPY COPY GO TO .}01 AND a▗▗ NEXT PRINT CIRCLE 3:[C][R]POINT LN LN LN USR RETURN IF LEN POINT eUSR 9UP6SCREEN$ FN }eT~ REM FN ? RESTORE T= REM SCREEN$ VUTINT SCREEN$ /©TIN COPY SCREEN$ COPY COPY PRINT COPY COPY CLS COPY COPY CLEAR COPY RANDOMIZE COPY © LPRINT RETURN IN <= RETURN / COPY DATA " NEW X9[A]1 [A] DRAW STEP @ RETURN IF 9**`6Jn>[A] CLS [A]@@p(USR NEXT l[A] CLEAR USR AND p©USR <<||[A]" POKE <>01++1PPIA: pq= THEN 6KYph0USR LPRINT LPRINT ?USR x[A] DIM THEN (``YR5pUSR ? LPRINT LPRINT USR [A]" FOR LINE (PIIB,@`;?[A]$ FOR >= @@@9*USR t~>[A] LET >= )8@@@98 RETURN IF 1"USR `0t GO SUB FOR z><SGN SAVE |<[A] RETURN THEN 5CX```Q;;,@"Q *[A] RETURN FORMAT / RETURN IF yr RETURN IF xHAPFN !T*)(RB[R]Q(▝RR▗)[A] IF LPRINT WATN IN <= VERIFY INVERSE INVERSE INVERSE VERIFY DATA RANDOMIZE RANDOMIZE RANDOMIZE LIST LIST CIRCLE >= FORMAT FORMAT FORMAT FORMAT <>STR$ EXP SCREEN$ = PP▖SCREEN$ UABSCREEN$ [Q][R]UAPSCREEN$ [Q][R]UAP[S][Q](EB$SCREEN$ TU**USCREEN$ ▘EE[S]Q"(T*FN *P[Q][A] IF LPRINT ©[H][P][P]CHR$ <> FORMAT CIRCLE LIST LIST SAVE SAVE SAVE RANDOMIZE PAUSE FOR DATA <=IN ATN [P]og_OOGFN @[Q]UP [R]QBSCREEN$ RND@EPB▘FN QQ▘(FN AT*FN POINT QR*[Q]RNDP*FN [F]PJ(T@FN T*[A] IF CIRCLE ;ZEXP USR RETURN IF EXP ▚▜[N][U]SIN SIN SIN SCREEN$ [S]▛*BE[R][S]▞PQBPOINT [S]▞TU@POINT *[Q]R@( RETURN IF D@▘!A▘[R]DFN P[A] RETURN RETURN CIRCLE SSS[S]SCREEN$ SIN SIN SIN [N]USR LN VAL OG??@ ([B]@"[S]▝QSCREEN$ @T(P @RFN P([A][A]▗▗▗▚▚ @( RETURN IF ▗▜▖02z8© SAVE ? SAVE LIST LPRINT [A] DRAW RANDOMIZE OPEN #0▖▞▛▗}_r TO ?~IN OUT LOAD USR RUN LPRINT READ LINE HPXQJ RETURN IF C<©?@@@@@@USR USR USR [B] GO SUB CLOSE #$;s▛▛▛[C][J]FN RETURN IF [R][Q][Q][I]▞[C]:▚iVAL$ [Q]WUSR CODE USR _ LPRINT *IN LPRINT U_ LIST jIN LIST U© LIST j© LIST _ COPY LIST 0© LIST [P] LPRINT =g LPRINT jSQR USR 9=_ COPY USR AND )")(())*1 RETURN IF 88811188888pp88<<<<|<8,d OUT RANDOMIZE RANDOMIZE RANDOMIZE ` COPY COPY COPY RETURN `▘ RUN LIST GO SUB LPRINT CAT CAT SAVE SAVE RANDOMIZE REM READ CLOSE # CLOSE # TO BIN DATA INVERSE VERIFY VERIFY SAVE LIST CONTINUE LPRINT xh`I:+`0▗x LPRINT LIST LIST LPRINT PRINT GUSR zCODE LPRINT PRINT COPY NEXT COPY COPY RUN COPY COPY RETURN COPY COPY SAVE C COPY COPY LIST BORDER COPY COPY LPRINT COPY DRAW © LIST © LPRINT /▘ PLOT LIST GO TO LPRINT CAT WWW SAVE SAVE RANDOMIZE PAUSE FOR BRIGHT MERGE AND ATN PEEK VERIFY INVERSE SAVE SAVE SAVE SAVE h`I:+`0< CIRCLE |INT ▝ SAVE uU LPRINT IF FOR LPRINT COPY COPY LIST COPY COPY LIST COPY COPY LET C COPY COPY NEXT BORDER COPY COPY COPY COPY SAVE © INPUT © LIST © LPRINT /▘ LPRINT gggg_ CAT RETURN IF VERIFY SAVE SAVE CONTINUE CIRCLE phYB3USR USR 1c<= AND ntx~z[R] RETURN =U LIST { COPY RANDOMIZE © COPY CLS COPY COPY CLS COPY COPY COPY COPY COPY RETURN A COPY COPY LIST NEXT RETURN USR COPY SAVE © LIST / LPRINT ▘ RUN LIST GO SUB OUT CAT CAT CAT INKEY$ASN ASN ASN ASN MERGE INVERSE VERIFY CAT CAT CAT DEF FN SAVE LIST CONTINUE LPRINT <>yaJ:#0USR hUSR @USR `USR VAL BIN >= NEW uG NEW zCODE PLOT COPY COPY DRAW COPY COPY DRAW COPY COPY SAVE a COPY COPY LIST s COPY COPY LPRINT ; COPY COPY ? RETURN / LIST USR ▘ OR (0 RETURN IF )px RETURN IF hx RETURN IF hx RETURN IF ( FORMAT 4;CCC<CC;;;APhpxk33$USR USR USR USR '© OUT LIST ▜ SAVE CAT T[[KC<5.6E[bqy SAVE LPRINT USR USR USR USR USR LPRINT LIST SAVE SAVE 5 TO ) AND G▘C OUT VAL$ RETURN IF DEF FN VERIFY VERIFY 0USR USR USR <USR xUSR XUSR XUSR xBIN x NEW CAT **kkkcSSD=C RETURN IF ;3333$< LPRINT LPRINT USR USR USR USR DEF FN %--4ccccDDXPPYRKC;333$` LPRINT USR c?`USR TO &..CJJJJC<ELhhhhK;333$USR USR USR USR USR USR USR [A][A]©[A]© LIST LPRINT DEF FN GUUU/[[SL=5YaaaKC;333$[M]8 LPRINT USR USR ? LPRINT ?VAL LPRINT USR [A] SAVE xqqqjjb[[L$0,|#| DRAW # DRAW DRAW SGN 90Ixx0[B] NEXT DRAW FORMAT 55JixMEE&USR USR USR USR ? SAVE a DRAW STR$ ▚NOT <=▚[A] CLS JCJIPPP44%0USR USR USR 3cG[A] SAVE DEF FN !1q RETURN IF xppTL@@| | DRAW # DRAW DRAW <0xx0▝ RANDOMIZE THEN ```YYAIIs 3 LPRINT 3 LPRINT ;▝ PRINT >=$@ RETURN IF 9 RETURN IF READ ccw66>><[A] PAUSE >=@@@8).~|8[A] LIST THEN ``XP10 LPRINT ©USR ©< STEP iiiib7 CIRCLE 7 CIRCLE 7 CIRCLE [I]0`▝ DRAW LIST >=#@@@9 RETURN IF @@@@f6 RETURN IF >><=~ RETURN CLS DEF FN iixxx FORMAT 7 CIRCLE '>=c@[A]>=+98(0@[A]``>=@@@ COPY FORMAT COPY COPY >=(89+USR 0``NOT `` DEF FN `xxq[<<<<555-&&© LPRINT ? DRAW SAVE USR USR USR USR USR USR USR DEF FN `xxq[<<<44,© LPRINT ? DRAW SAVE USR USR USR DEF FN *2:;xxxiK© DRAW ? SAVE LPRINT DEF FN ''/6`xxq[<<<<555..'USR USR LPRINT LPRINT © LPRINT ? DRAW SAVE USR USR USR USR USR USR USR USR USR USR DEF FN GGGGpp``KCRRRR..8 SAVE © LPRINT © LPRINT LPRINT USR USR USR LPRINT LPRINT USR USR <=$$+++22229@@@@88)))>~ RETURN DRAW |888 OR ! RETURN IF ))08 RETURN IF 1))!0 RETURN IF 88x||//80 DEF FN GccbJJIPH8( DRAW SAVE USR USR ?|p TO 0@PQJ`hhaS%`x>USR USR ©`?VAL [A] STEP !8XppbZBBIQQQQ"" 0|©USR SAVE LIST ==USR <USR [L]▗[C]▞▞▖▜▚@`[Q]0 FORMAT |X©(ySCREEN$ q RANDOMIZE # CLEAR /5|@ NEW O CLS CIRCLE ` COPY CIRCLE USR COPY RUN [Q] CLS DRAW @ RUN CLEAR CAT RETURN ?© IF © RANDOMIZE COPY LIST LPRINT LPRINT USR USR [M]▟[E]USR 1`| MOVE USR ©S LPRINT yATTR LPRINT q CLS LPRINT # CLS LPRINT /7 LLIST _ DEF FN <= CIRCLE `[L] OPEN #? VERIFY @ COPY POKE { COPY 7 COPY IN ? COPY USR VAL USR [A] CLS [I]▗▛▖▜>[A]© FORMAT COPY CONTINUE COPY RETURN = DRAW g SAVE CAT SAVE SQR PAUSE RUN POKE f DATA CLEAR CIRCLE CLS RETURN p CLEAR SAVE ? RUN DRAW © LLIST DRAW ©▝ DRAW ~ POKE |~$ CIRCLE /7??NU[U]ATTR USR VAL FN [Q][I]fG LPRINT p8[M] DRAW RETURN COPY 0 COPY COPY `© COPY USR ! COPY |[A] DRAW CIRCLE G/kSIN USR USR [I][A][A]W?| LIST RETURN RETURN b COPY COPY STR$ COPY COPY © COPY COPY 8[A] CLEAR COPY P▖ CONTINUE STOP STOP STOP PAPER SQR [U]G© RETURN COPY COPY SAVE COPY COPY SAVE COPY COPY LIST COPY COPY RETURN 8[A] DRAW DRAW OUT (HLN LPRINT RANDOMIZE FOR FOR OPEN #COS DP©?PEEK < COPY COPY LPRINT COPY COPY RETURN COPY COPY LIST COPY COPY LPRINT [A] COPY RETURN ▞▟ F0g<`; LIST ©STR$ COPY COPY ▚ COPY COPY x COPY COPY USR © COPY DRAW © SAVE ?[A] CLS [N]▗w INPUT p DRAW USR CLEAR COPY © DRAW g COPY LIST ? COPY USR COPY DRAW LIST USR MERGE 0▖FN POINT [L][S][S][K][C]Xl? GO SUB [A] NEXT >= COPY CIRCLE COPY LIST COPY LPRINT COPY USR DEF FN M[bapxxxxijcUG?'[I][A]|X_ll DRAW 3 SAVE SAVE SAVE GO TO 8USR ▜ (( RETURN IF *8*/: RETURN z COPY DRAW COPY DRAW © SAVE LIST USR RETURN IF x RETURN IF >= TO f1~s© INPUT © DRAW COPY LIST COPY SAVE IN COPY COPY `~>=229@ RETURN IF 1"$~~ BORDER FLASH FLASH fABS RTAB 4TAB 4TAB 4TAB fBZZ$$ FORMAT @PJ.' RETURN IF GGNMTLSK;++;KST/UNNN&-%`@@@@@@@DD▖``▗▗▗[A] DRAW FORMAT *@@%%&&''GGGNM[SSK+3KS[$,%,,$ STOP @@$$H▖ LPRINT LPRINT LPRINT CAT INVERSE INVERSE INVERSE SAVE SAVE CONTINUE MOVE <>LEN POINT [?7yO|NOT LOAD ▚@INKEY$ NEXT `©~p0©nUSR OVER RUN '▙|88▖ SAVE 0[A] COPY OVER [G][G] LET LET LET DIM LIST CONTINUE CONTINUE ERASE SQR %| FLASH GO TO & PAUSE $0©|(©o( OVER PLOT FORMAT d[O]|,8`USR OPEN # OPEN # CLOSE # LIST LIST CONTINUE INK INK LINE SQR < @'| ; NEW A IF >=`IN ©0©n , OVER PLOT [O]|@,8USR INVERSE LIST LIST LIST LLIST ERASE NOT TAN RND▜wg|p SAVE > LLIST LIST LEN LPRINT NOT USR POKE _ COPY COPY COPY DRAW ? LIST USR INVERSE LIST LIST LIST LLIST THEN SGN RND▜gxUSR SAVE >e LIST SIN S LPRINT DATA CAT USR COPY COPY CLEAR ~? DRAW USR BRIGHT CONTINUE CONTINUE CONTINUE INK ERASE NOT TAN RND▜w_|8 LIST > LLIST [Q][J]S` STOP OUSR IF ? RETURN COPY COPY DRAW ? LIST MERGE x▖[Q][R][S][L][E]▟wog|>LEN LPRINT NOT [A] POKE X COPY SAVE COPY LIST ? LPRINT USR [B] SAVE NEXT RUN CIRCLE n[F][U]ATTR SIN EXP USR LN VAL [Q][I][A]xpZJJ3@_AT [O] OPEN #©%PEEK LINE 5©4j RETURN XW CLEAR [Q]<> IF @EXP CLEAR [R] PAUSE STR$ CLOSE #A CONTINUE LIST USR USR [B] CLS SAVE CLS STEP [[[Za``X SAVE SAVE LIST LIST LPRINT 7 LPRINT cUSR W[B] GO TO LIST GO TO [M] LIST LPRINT LPRINT ; LPRINT OUSR CODE USR ~<>?D RETURN ' DRAW © SAVE COPY LPRINT CLEAR # SAVE ' LPRINT WUSR [B] SAVE CONTINUE SAVE FORMAT ]]dkrjiih`XXXPPH RETURN IF OUT _>>| SAVE SAVE ; LIST ' LPRINT CUSR wUSR OUSR LOAD [P] LOAD [P] LOAD [P] LOAD [P] OUT [A] RETURN DEF FN jj[LYQYS[[[Q]USR /USR [Q][A]▖[A]▗▗▗▚A0`` LPRINT USR LPRINT # LIST CP@▙▘▘▘@ `USR SAVE ` ▗[A]▞▞▞▗▗ @▚USR B[A] SAVE [Q]▗▗▗▚▗▖▗▙▙▖▖▜▚▚`USR ▝USR ▝▜ LLIST NEXT [P] CLS RETURN © DRAW ? SAVE LIST RETURN COPY COPY LIST COPY COPY COPY ? COPY DRAW ? BRIGHT © DEF FN COPY AND CLS READ ▝NOT @0`[A][A]▖0B03p LPRINT USR RETURN SAVE © LIST BORDER TO CHR$ `080 [A] DRAW >=@ RETURN IF 00[B]V DRAW ?>H▖ STEP PIg STEP [J] PLOT ! STEP G<> STEP SCREEN$ MOVE ▘▗▝aTG.B.MAX SUPERSOFTWARE INC.1986▝ STOP DPROGRAMMA ▝BLGRAFICA ▝ STOP LSUONI▘▝ INPUT DJONNY O MARA ▝NLRICKY E PETE ▝▙LJOHNSON ▝ INPUT LJACKY VIMOND STEP [P] LINE NOT PI THEN }l"[<>og"f<> STEP SCREEN$ MOVE ▝(D▗▘EEDRAGONS ▘FF▝DA▗H/^c RETURN IF ▝dB]_▝ZA▗L^/▝zB_]▝ LPRINT P▗@/^c RETURN IF ▗D^/▝PEEK W_]▝ LIST V`▝ FORMAT Ua▝VAL Tb▗@▝ LOAD V`▝ CAT Ua▝CODE Tb▝[Q]W]_▗<>G.B.MAX G.B.MAX G.B.MAX G.B.MAX G.B.MAX G.B.MAX G.B.MAX !C STEP G<>! MOVE "INKEY$ FORMAT STEP SCREEN$ MOVE ▝ OR D▘B▗! LINE OR RESTORE x GO SUB D AND RETURN >$ STEP SCREEN$ MOVE LLIST ~# RESTORE OR STEP EXP MOVE STR$ LLIST PRINT : MOVE AND 2 MOVE ^#V RESTORE FOR STEP FORMAT >0* MOVE STEP S FORMAT CLS } NEW LPRINT PLOT o" MOVE LLIST GO SUB COPY STR$ FN STEP [O] MOVE STEP RUN SAVE STEP t STEP 0 SAVE <>*{" FOR <> GO SUB [ PRINT <>ATN RESTORE GO SUB R LLIST PAPER PI THEN INVERSE ! GO SUB <>} INVERSE [G]| INVERSE [O]8 INVERSE PAUSE RESTORE INVERSE RESTORE LLIST ATN GO SUB R RESTORE GO SUB <>>[A]▜G▜▜(! RUN <>O GO SUB VAL !B STEP G<> STEP SCREEN$ MOVE ▝L▘▗HAI FATTO BENISSIMO▝fLSCRIVI IL TUO NOME ▝ GO TO L▘▗▗ LLIST RESTORE OR STEP [O] MOVE STEP [E] STEP STEP t STEP 0 CLS RETURN READ ( RUN RETURN RETURN 0 x RETURN ( LPRINT + RESTORE OR STEP C STEP STEP SCREEN$ MOVE COPY STEP : STEP FORMAT RETURN (( RETURN ( RETURN A8CHR$ RETURN [0PEEK (INT w# RESTORE OR 2▟ THEN STEP C STEP STEP SCREEN$ MOVE ▘ STEP : STEP [U]xATN (6 # CLS MOVE s#r STEP [J] PLOT STEP ) LINE ! STEP G<> STEP SCREEN$ MOVE ▘C▝ RESTORE D1 MODIF.LIVELLO 1▝%L2 MODIFICA TASTI ▝eL3 VISTA DEI RECORD▝RNDL4 GIOCO▝HTPREMI 1 A 4 STEP [O] MOVE STEP [S] LINE VERIFY 18 RANDOMIZE RETURN 0 PRINT ATN ;! STEP G<> STEP SCREEN$ MOVE ▝▚L▘SCEGLI FASE 1 A 8 STEP [O] MOVE STEP [S] LINE RETURN 18 RANDOMIZE RETURN 90 PRINT 2 AND THEN VERIFY 12 INPUT zNOT PI THEN =CHR$ STEP G<> STEP SCREEN$ MOVE ▘B▝GLJOYSTICK KEMPSTON▝<>LPREMI S O N STEP [O] MOVE STEP [S] LINE RETURN N( RETURN S PRINT ! COPY "[T]NOT PI THEN ! NEXT "[T]! STEP G<> STEP SCREEN$ MOVE ▝L▘BPREMI I TASTI PER!P STEP NEXT OR MERGE INPUT TO GO SUB VAL ~ STEP STEP GO SUB S PRINT TO RESTORE STEP SCREEN$ MOVE ▝ GO TO L RETURN IF STEP [O] MOVE STEP [S] LINE LLIST w# READ p#r# FOR LLIST STR$ LINE NOT PI THEN = LINE [U] THEN !INT FORMAT "INKEY$ FORMAT STEP [K] PAUSE NOT ATTR LINE EN RETURN >=SP RETURN >=SS RETURN RETURN READ >=_ <> STEP SCREEN$ MOVE ▘▗▗ <> STEP SCREEN$ MOVE ▘ COPY COPY <> FIRE SUA GIU Z SIN.NDEST.MPAUSAP.- RETURN © GO SUB x/ NEW , THEN 8 POKE <>gW} VERIFY THEN <0 IF o&~<> STEP t STEP FORMAT RETURN READ SAVE <> PRINT >= :©▗ATN (CODE 2©▗ RESTORE !` }lg"CODE STEP LLIST 2[P] STEP LET CLS <>!B}lg"IN STEP INVERSE !BZ FLASH STEP 2 VERIFY STEP INVERSE t PLOT <> !"#@ABCab: INPUT z OR G:[N]▜G:[Q] REM 8 THEN THEN ©( THEN IN THEN STR$ GO SUB D RESTORE MERGE _ATN > COPY IF ' DEF FN 0> COPY B RETURN 8 RETURN 20BA8CODE RETURN 0 CONTINUE STEP M PAUSE A>2 THEN ? THEN ? DEF FN g[F] GO SUB Do NEXT :▛▗ THEN g }lg{ZW"CODE STEP GO SUB SIN STEP CLS MOVE LLIST <>CODE OR THEN ! THEN THEN ! THEN THEN THEN 9 CLEAR OPEN # RETURN STR$ LPRINT <> READ OR y▚O#F# STEP a DEF FN STR$ NEXT STR$ READ <> READ OR REM OR ( OR RESTORE H!CODE F, INPUT OPEN # RETURN RETURN PRINT LLIST STR$ <>>>2 TO DEF FN CODE OR A READ READ DRAW INPUT OPEN # RETURN STR$ PAUSE <>: FORMAT DEF FN RETURN >=: MERGE DEF FN 8<2 MERGE DEF FN !U CAT !B CAT =2 MERGE DEF FN (W▜▘<_ NEXT FOR NEW AND [H]G NEW O RESTORE w, IF LLIST STEP > FORMAT LIST GO SUB S LLIST DEF FN <> GO SUB D AND 2( CAT CIRCLE : INPUT z▜ GO SUB D AND ▜▜2( CAT : FORMAT DEF FN <2 FORMAT DEF FN <>U<= POKE H84 OPEN # COPY [G]IN COPY IF COPY STOP DRAW k COPY GO TO U<= POKE H84 OPEN # COPY [G]CODE COPY STOP DRAW % COPY CONTINUE k<= GO TO P8tG COPY [E] OUT COPY PLOT COPY %<= CONTINUE h8lC COPY [E]_ COPY POKE USR COPY 3 COPY CIRCLE %▝ CONTINUE `~_ COPY POKE @ COPY USR & COPY FORMAT 3▝ CIRCLE $~(o COPY GO TO @ COPY @. COPY VAL NOT FORMAT 0<' COPY CONTINUE `~@6©`NOT VAL <7 COPY CIRCLE ~`5q`08 = RETURN USR SAVE `©VAL 0< RETURN USR ©`0LSQR }USR `n88| RETURN l((l AND THEN Y |%AT THEN _>=$| PLOT g} VERIFY o FORMAT | VERIFY g<>|$AT THEN _>=%> SAVE [U]g> o FORMAT >▗g<> RESTORE MERGE OR CLEAR RESTORE *{_"{▟T STEP FORMAT CLEAR LLIST STR$ MOVE LLIST <> MERGE CLEAR !VAL$ FORMAT CLEAR ^ CLEAR V THEN z COPY ATN GO SUB R0 IF CLEAR # CLEAR #x READ , RESTORE - STEP INT FORMAT LLIST READ BRIGHT STR$ <>' CONTINUE d COPY COPY PRINT STEP v MOVE STEP DEF FN FORMAT THEN ABIN DEF FN FORMAT PRINT <> THEN I STEP NEXT FORMAT NOT : FORMAT STEP DIM FORMAT , STEP DIM FORMAT -NOT : FORMAT NEW RESTORE ! COPY FORMAT STEP d LLIST THEN Q( RESTORE o&[~ LLIST w<>03<?USR NOT TO CAT LIST NEXT DRAW COPY !P STEP INT FORMAT [F] PLOT THEN q(D PLOT THEN y( THEN LEN THEN EXP STEP CHR$ FORMAT * MOVE RESTORE , THEN I(," MOVE LLIST STEP k MOVE LPRINT COPY THEN Y( y STEP a MOVE THEN G( STEP a MOVE A STEP a MOVE A STEP a MOVE O<>p THEN O(,p-<>`| NEW g<> RESTORE FOR _x CLEAR FOR LLIST G<>! COPY Z RETURN Z COPY 6 GO SUB LN !``6 COPY GO SUB VAL <>!`X GO SUB VAL <>ATN IF FORMAT MOVE RESTORE STEP EXP MOVE NEXT RETURN :0>T THEN RANDOMIZE THEN LET VERIFY 0 VERIFY 7NOT MOVE NEW © RESTORE <>= ^#V GO SUB S MOVE # LINE = ^#V GO SUB SI MOVE LET = : MOVE ▚2 MOVE RESTORE = ~2ATTR MOVE O FLASH RESTORE STEP MOVE LLIST NOT TAB MOVE x▜▜ NEW LPRINT LEN ox NEW Ox NEW AND @LEN g<>[T]USR SAVE AT x!"# ERASE !USR "& ERASE >[T]2% ERASE >2. ERASE CODE 2CHR$ x> MOVE 2SGN x: INPUT z RETURN >ASN 8>EXP 2▚ ERASE <> STEP OUT POKE INVERSE !% ERASE :$ ERASE NEW BEEP 2$ ERASE TAB !LN x STEP k MERGE INVERSE THEN COPY OVER GO SUB Sa ERASE ASN !PEEK x STEP k MERGE INVERSE THEN COPY INPUT GO SUB S_ ERASE STEP DATA POKE INVERSE THEN COPY f(8 INVERSE THEN RETURN F( STEP 5 DIM INVERSE !% ERASE )!{ THEN f THEN NEW ##6++ LET :[L]ATN >2[L] STEP ' DIM INVERSE THEN RETURN AND INVERSE THEN nUSR INVERSE V COPY THEN z &:{ INVERSE PEEK USR : LIST ▟ INVERSE PEEK USR GO SUB [& ERASE ! FORMAT FOR STEP INK CIRCLE INVERSE 6 INVERSE THEN COPY RETURN NOT PLOT BEEP THEN B(( THEN J>=>ATN (=2 OPEN #:[Q] REM CIRCLE THEN j THEN RUSR THEN Z>= STEP [M] CLOSE # THEN ▘ THEN PAUSE INVERSE r COPY NOT & CLOSE # STEP GO TO BEEP y STEP Z LET > RETURN 8>▛G THEN j( THEN R ` THEN Z( THEN R LINE INK OPEN #:[Q] REM ERASE RETURN OPEN #CODE ![U]x STEP CIRCLE STEP PLOT BEEP >{ STEP INVERSE THEN ~(# RESTORE !COS x", ERASE !CODE STEP CIRCLE LLIST STEP GO TO BEEP STEP L INK STEP STEP GO TO BEEP y AND RETURN 4 CIRCLE STEP 0 INK "& ERASE :{2% ERASE : LIST ▟2. ERASE INVERSE THEN COPY PEEK <> THEN r r THEN b FN >!_ ERASE STEP GO TO CLOSE # [S]> MOVE 2CHR$ x INVERSE THEN COPY NEW STEP DEF FN 222>▛ THEN r I>!a ERASE STEP GO TO CLOSE #CHR$ d OPEN #CODE 2SGN x INVERSE THEN COPY VERIFY STEP DEF FN 2CODE NOT d OPEN # THEN r L:[S] REM ▜> CIRCLE 0>(![T] REM STEP GO TO CLOSE #CHR$ d OPEN #:[Q] REM THEN W>CHR$ d OPEN # INVERSE THEN COPY PLOT NOT d OPEN # STEP USR CLOSE # INVERSE ~ AND INVERSE w OR O STEP [J] DEF FN [M]2STR$ CODE STEP CIRCLE x INVERSE FLN ERASE ` OPEN #G INVERSE THEN COPY ACS NOT ` OPEN #:[Q] REM THEN W({ INVERSE THEN COPY ACS NOT ` OPEN # STEP USR CLOSE # INVERSE ~G INVERSE THEN fCHR$ ` OPEN # VERIFY G OR O STEP [J] DEF FN [M]STR$ :RND REM LN PAPER ` OPEN # THEN CHR$ THEN LINE INVERSE r COPY NOT ▞ CLOSE #>BIN !USR STR$ PEEK STEP MERGE CLOSE #:[Q] REM THEN LOAD 2[Q] REM <> STEP 8 PAUSE :[S] REM ▜> ERASE 8>* STEP CIRCLE STEP PLOT BEEP CODE _!}] STEP MERGE CLOSE #:[Q] REM THEN CODE CIRCLE x STEP 8 PAUSE :[S] REM ▜> CIRCLE 8>( STEP CIRCLE G<>2ABS y2 FLASH y2z29z2mz"[H]w{2IN z<># OR STEP CIRCLE y AND O~ AND EXP STR$ ( 8 INVERSE THEN v( INVERSE THEN v >USR INVERSE VAL$ INVERSE wCODE <![L]x><>+~[D] PAUSE $ MERGE GO SUB D RETURN 0 GO TO CODE FOR :$ ERASE NEW RETURN USR : OPEN #ATN : INPUT z▜ AND 2 OPEN #<> INVERSE RESTORE RESTORE MERGE OR !AT x", ERASE INVERSE !% ERASE STEP ' PAUSE STEP [M] CLOSE # INVERSE THEN COPY ▙ STEP [T] MERGE STEP SQR DEF FN STR$ MOVE LLIST INVERSE LLIST <>:{SQR USR : LIST ▟INT USR RESTORE USR STEP INK LLIST CIRCLE z INVERSE RESTORE Q MERGE STEP <>{ MOVE INVERSE LLIST CODE <> RETURN IF [P] MERGE :[S] MERGE <2[S] MERGE *[Q] MERGE INVERSE }w+ INVERSE |w+"[Q] MERGE INVERSE ~ NEW STR$ INVERSE w<>:[S] MERGE ATN >=G>| STEP ![P] MERGE ^+V+ MERGE INVERSE LLIST OR RESTORE STEP GO TO BEEP INVERSE THEN f u:▛ REM W INVERSE ~<(= THEN /o<(= THEN / INVERSE w▘ STEP CIRCLE INVERSE ~▜ INVERSE w RETURN {00G STEP THEN BEEP STEP FLASH VERIFY STEP DIM VERIFY STEP OUT POKE LLIST STR$ ASN STEP <>:$ ERASE NEW PEEK 2$ ERASE INVERSE THEN INKEY$<> INVERSE p STEP VERIFY STEP v VERIFY STEP GO TO BEEP MOVE INVERSE THEN NEW INVERSE 6{ INVERSE ~ OR STEP Z LET STR$ (T>AT INVERSE PEEK ( BEEP :▛ REM STEP CIRCLE INVERSE THEN V P STEP PLOT BEEP STEP OUT BEEP STEP FLASH VERIFY STEP L INK TO v VERIFY STEP OUT POKE [Q]:[S] MERGE =2[S] MERGE *[Q] MERGE ##"[Q] MERGE CLEAR LLIST LLIST STR$ OR ]T MERGE CLEAR RESTORE x=>=▜O GO SUB LN <> STEP v VERIFY NOT VERIFY INVERSE THEN VERIFY >[Q]2Fx>[U]2Ix STEP PLOT BEEP !Dx{ INVERSE RESTORE STEP <>{ INVERSE LLIST :Fx RETURN [U]CHR$ VERIFY >AT INVERSE PEEK ( INVERSE THEN INPUT <> STEP VERIFY INVERSE THEN VAL$ USR RESTORE THEN f(## THEN nBIN DATA POKE LLIST <> STEP PLOT BEEP STEP OUT BEEP {NOT <>{:[S] MERGE ATN >= RESTORE MERGE OR G![P] MERGE ^+V+ OR RESTORE INVERSE ~ INVERSE [G] INVERSE F INVERSE RESTORE MERGE INVERSE LLIST INVERSE PEEK 8G INVERSE ~▜ INVERSE ▚LN 0 INVERSE LLIST 5 STEP BEEP CIRCLE >▝Oic INVERSE ~ INVERSE LLIST STEP BEEP CIRCLE >▝OC OR INVERSE ~ STEP CIRCLE }EXP |SQR /M LLIST 0 STEP CIRCLE }EXP |SQR 8 LLIST STR$ [O]CODE LLIST STR$ STR$ MOVE LLIST <><{ DRAW ?x INVERSE !j BEEP :▛ REM W STEP GO TO BEEP y AND RETURN 48 GO SUB _ NEW ZUSR :CODE REM RETURN >= RETURN >= RETURN >= INVERSE 6) THEN zUSR INVERSE 6 RUN <>z STEP CIRCLE STEP PLOT BEEP *▞ REM STEP = CIRCLE STEP GO TO BEEP {!?xNOT <>{ REM ! STEP ACS LET INVERSE 62<> INVERSE n INVERSE f INVERSE THEN ~>=#<> INVERSE u INVERSE t<> INVERSE n INVERSE f INVERSE THEN ~(# INVERSE ^ INVERSE N INVERSE F<> INVERSE s INVERSE q INVERSE p<>_ RETURN CIRCLE THEN / THEN / THEN /▝O{ NEW _<> INVERSE THEN v( GO SUB D2! CIRCLE :▛ REM AND BRIGHT * REM $>=% OR MERGE RESTORE STEP = CIRCLE LLIST MOVE STR$ USR > PLOT ▗g*▞ REM $>=% INVERSE ~[E]8 INVERSE PEEK 0 STEP BEEP CIRCLE THEN y } NEW EXP 8 } NEW SQR 0CODE <> INVERSE ~ STEP CIRCLE THEN y POKE } NEW EXP 8 DIM } NEW SQR 0 READ <<> INVERSE THEN fUSR INVERSE THEN nUSR PRINT RESTORE MERGE STEP : CIRCLE MOVE LLIST ( STEP ACS LET INVERSE THEN INPUT INVERSE THEN NEW LET STEP h FORMAT CODE <> INVERSE THEN fUSR INVERSE THEN nUSR PRINT STEP $ CIRCLE (> STEP % CAT LET INVERSE THEN NEW INVERSE 6 STEP h FORMAT CODE <> STEP NEXT VERIFY LET <<> LET ▜ BORDER STEP GO TO BEEP INVERSE ~ INVERSE THEN ~( GO SUB D INVERSE [G]NOT CIRCLE { LLIST F#N# RESTORE LLIST RESTORE OR A~#N# THEN 90~# NEXT STR$ CONTINUE STR$ RESTORE <>* LIST zATN FOR GO SUB R CIRCLE [Q] FOR GO SUB R CIRCLE { THEN : THEN : THEN : VERIFY O{ NEW _<> MERGE y AND ATN THEN THEN THEN COS _* LIST z LPRINT RETURN MOVE <> INVERSE THEN nUSR INVERSE RESTORE INVERSE THEN f { STEP <>{ INVERSE LLIST CODE <<> INVERSE ~2©{{ STEP ~{ INVERSE LLIST INVERSE sUSR INVERSE THEN INPUT <>}} INVERSE THEN ~( GO SUB D STEP CIRCLE |G<> STEP z INK & COPY y RETURN FORMAT ▜▜▜COS o THEN xUSR `<>:AT REM INPUT THEN g>= STEP INK INVERSE RESTORE INVERSE ![T] REM STEP GO TO BEEP STEP = CIRCLE INVERSE LLIST NOT GO TO BEEP {>! OPEN # INK GO SUB VAL = PRINT : INPUT z▜ AND 2{<> SAVE SAVE RETURN IF COPY ky" STEP INVERSE OVER >{ STEP INVERSE !{ OR STEP PAPER INVERSE STR$ POKE STEP <> INVERSE V THEN j(G:{ATN USR GO SUB _ THEN w>= NEW AND INVERSE w THEN J ) GO SUB _ NEW o:RND REM RETURN F}0 RETURN 0 AND ▜ AND INVERSE w INVERSE 6 POKE INVERSE 6 THEN W>= INVERSE 6USR <> INVERSE 6 INVERSE 6<> STEP GO TO BEEP THEN ZCHR$ P FLASH THEN JCHR$ FLASH > INPUT THEN B > SAVE STEP CIRCLE INVERSE ~ THEN B o THEN ? THEN ?< GO SUB D8CODE INVERSE w} GO SUB D INVERSE THEN AND INVERSE 6▜ < INVERSE w8 RETURN LPRINT 8 INVERSE THEN OVER INVERSE 6!BIN COPY STEP z INK NOT T FLASH G STEP PLOT BEEP !Cy THEN B(!Ny THEN z(# STEP L INK *t STEP GO TO BEEP OR MERGE STEP z INK STEP PLOT BEEP > STEP FN CIRCLE MOVE STR$ STEP PLOT BEEP !Yy INVERSE THEN ~(# STEP L INK STEP GO TO BEEP *t STEP [N] INK >=>[O] STEP CONTINUE STEP STEP [N] DEF FN INVERSE THEN AND INVERSE 6<>x RETURN {(CODE STEP CIRCLE STEP PLOT BEEP GO SUB _ NEW INVERSE THEN VERIFY >! STEP CIRCLE TO BRIGHT STOP STEP GO TO BEEP !`y INVERSE THEN V(!fy STEP OR STOP INVERSE THEN V>= INVERSE THEN OVER INVERSE 6<>CODE STEP CIRCLE { STEP PLOT BEEP INVERSE ~ INVERSE 4 RETURN INVERSE THEN INPUT <> STEP OUT POKE !▘ FLASH STEP c2y#~2y!▝y STEP L INK NOT DATA POKE > 2[Q] FLASH 2AT FLASH CODE 2SQR FLASH <> CLS >y RETURN IF CLS >y :[M] RETURN (<2SQR FLASH >ATN (:[Q] FLASH O:AT FLASH [R] THEN o(!D"x POKE : BRIGHT *[O]###w<> INVERSE ![H] FLASH OR STEP LOAD FLASH INVERSE STR$ POKE <> STEP GO TO BEEP INVERSE V THEN j($:[Q] REM CIRCLE GO SUB _ NEW ATN USR : INPUT z AND INVERSE w INVERSE 6{ STEP GO TO LLIST INPUT INVERSE w<> THEN BCHR$ TAB BRIGHT INVERSE ~ STEP CIRCLE THEN b D:[S] REM ▜:[U] REM 8 AND AND oy THEN r(ABS AND ABS ?0:RND REM RETURN P8 THEN R(D:[Q] REM 0:[S] REM oz▜TAB IF p BRIGHT :6y RETURN h GO SUB _ NEW (- STEP PLOT BEEP >! STEP CIRCLE >ATN (=2 BRIGHT <2SQR FLASH STEP GO TO BEEP !3yNOT OR STOP THEN LINE THEN ERASE THEN THEN [C] THEN CHR$ INVERSE r INVERSE 6 STEP GO TO BEEP INVERSE ~ INVERSE 4 THEN J(>!" INVERSE STEP dATN INVERSE THEN ▚#~ THEN ©> DRAW ( GO SUB DG~ THEN IN 2<y INVERSE ~ STEP CIRCLE STEP PLOT BEEP ! PLOT STEP [N] INK (> STEP CONTINUE STEP STEP [N] DEF FN !9yNOT OR STOP ! INVERSE STEP c STEP CIRCLE STEP PLOT BEEP #~2<y RESTORE !9y STEP OR STOP LLIST #~ATN USR INVERSE ~ INPUT STR$ INVERSE w<><=@;;;:EXP LN LN ASN {>!G INVERSE GO SUB VAL = PRINT : INPUT z THEN ?< AND 2{<> DRAW { RETURN [O]y! STEP INVERSE OVER INVERSE !{ OR STEP w INVERSE INVERSE STR$ POKE <> INVERSE V THEN j(F:{ATN USR GO SUB _ NEW GO SUB _ NEW G:RND REM VERIFY INVERSE w INVERSE 6 INVERSE 6(:[S] REM ▜ FORMAT INVERSE 6 SAVE <>:$ ERASE THEN ©>= THEN GUSR :. ERASE NEW 0USR STEP GO TO LLIST INPUT ▝ INVERSE w<> STEP GO TO BEEP THEN B e THEN b :RND REM VERIFY LN STEP * CONTINUE CODE STEP CIRCLE STEP PLOT BEEP > STEP FN CIRCLE TO BRIGHT STOP STEP GO TO BEEP ! STEP [N] INK (> STEP CONTINUE STEP STEP [N] DEF FN STEP + MERGE STEP GO TO BEEP !▜y STEP OR STOP STEP GO TO BEEP x VERIFY CIRCLE >=G> STEP CIRCLE {! r STEP dWy RETURN FORMAT PLOT o&`J ~LEN w IF <>: INPUT z THEN ?<o:{ATN }(CODE STEP CIRCLE :$ ERASE THEN ©(% NEW A !:. ERASE g THEN g :& ERASE oy THEN z(==<ABS | THEN BORDER 2. ERASE CODE 20 ERASE STEP PLOT BEEP >! STEP CIRCLE TO BRIGHT STOP STEP GO TO BEEP ![I]yNOT OR STOP y *{ RUN COS x COPY STEP [M] READ >{![D] OVER GO SUB VAL = PRINT >!▜ OVER GO SUB VAL = PRINT : INPUT zG THEN ? AND 2 RANDOMIZE OUT x< THEN ? THEN ? AND 2 OUT x▜ AND 2{<>*{|ATN :$ ERASE THEN g :[M]ATN }ATN USR <2{!{ THEN n>= IF LLIST NOT DATA STEP INVERSE OVER INVERSE !{ OR STEP 2 OUT INVERSE STR$ POKE INVERSE !6{ OR STEP [T] LPRINT INVERSE STR$ POKE <> STEP GO TO BEEP INVERSE V THEN j(:{ATN USR STEP GO TO LLIST INPUT o GO SUB _ NEW ASN INVERSE w<> THEN BCHR$ PAPER OUT :{ATN (:[S] REM ▜8 THEN r( THEN r(>USR SCREEN$ INVERSE wW! TO x GO SUB _ NEW 9:[U] REM AND Gy AND [A] INVERSE THEN v( GO SUB DATN PAUSE TAN OUT ! LPRINT z NEW G THEN ? STEP c INVERSE w#~ INVERSE w###~#fo THEN CHR$ THEN [K] INVERSE r{> INVERSE THEN F(CODE STEP CIRCLE STEP PLOT BEEP RESTORE !> STEP CIRCLE TO BRIGHT STOP LLIST STEP GO TO BEEP NOT OR STOP THEN Z ![L] LPRINT z NEW STEP d#fo INVERSE THEN OVER DEF FN OR CLEAR !6{> CLEAR THEN n CLEAR = PRINT STR$ VERIFY INVERSE 6 INVERSE 6 RUN ! LPRINT z NEW G THEN ? STEP cSTR$ # RESTORE fo STEP z INK CLEAR s CLEAR q CLEAR p STEP ATN DEF FN STEP GO TO BEEP LLIST #~#fo INVERSE THEN ▚z INPUT NEW AND CLEAR w GO SUB _ NEW AND GO SUB D CLEAR w GO SUB _ NEW AND CLEAR w:RND REM RETURN F8:[S] REM NEW © RETURN PAPER PEEK OUT CLEAR ~ VERIFY CLEAR w CLEAR ~ VERIFY CLEAR wNOT PEEK OUT PLOT LOAD INK x PLOT LOAD BORDER x IF NEXT RETURN x PLOT LOAD BORDER x ERASE x LPRINT x RUN x INPUT x INVERSE V THEN jUSR THEN BUSR GO SUB _ NEW INVERSE ~(<ATN IF BIN LPRINT RETURN 0 RETURN RETURN 0 INVERSE w INVERSE ▚ INVERSE w RETURN {8>{ INVERSE THEN INPUT z NEW VAL ! LLIST STEP d#fo STEP CIRCLE BEEP INVERSE ~ STEP GO TO BEEP STEP CIRCLE STEP PLOT BEEP RESTORE ! STEP [N] INK LLIST NOT OR STOP STEP [N] DEF FN > STEP CONTINUE STEP STEP [T] MERGE INVERSE 6 INVERSE 6 INVERSE THEN AND <>y#yyyy#yyyy#yyy((y[T]y STEP [M] READ !> LLIST ▚ STEP [M] READ !8 LLIST ▜ GO SUB S[K] LLIST "ABS LLIST GO SUB C.y RESTORE CLEAR LLIST {>![H] LLIST GO SUB VAL = PRINT : INPUT zG▜ AND 2{x THEN ? AND CLEAR THEN F( VERIFY 2TAB LLIST <> STEP INVERSE OVER INVERSE !{ OR STEP SQR LLIST INVERSE STR$ POKE <> CLEAR !8 LLIST INVERSE V STEP GO TO BEEP THEN j(7:{ATN USR :[S] REM NEW © < INVERSE w GO SUB _ NEW o:RND REM [F]0CODE INVERSE w INVERSE 6 INVERSE 6 SAVE GO SUB _ NEW @( THEN COPY INVERSE 6( INVERSE w<> THEN bCHR$ IN STOP THEN BCHR$ READ :{ATN (:[S] REM NEW © AND INVERSE w GO SUB _ NEW > >SCREEN$ W INVERSE r THEN R S:RND REM CLEAR [G]0CODE LN STEP * CONTINUE :[S] REM oSCREEN$ IF PRINT STOP INVERSE ~ATN GO SUB _ NEW LINE LOAD STOP :[U] REM THEN } AND oy AND ABS AND o>▝g}SGN CLEAR THEN F :RND REM VERIFY LN ERASE RANDOMIZE STOP STEP I CONTINUE INVERSE ~ STEP CIRCLE GO SUB _ NEW AND o:RND REM [F]0CODE LN STEP * CONTINUE STEP PLOT BEEP CLEAR THEN F(! DRAW STEP [N] INK ( CLEAR ~ STEP CONTINUE STEP STEP [N] DEF FN STEP GO TO BEEP CLEAR ~ STEP FN CIRCLE TO BRIGHT STOP STEP GO TO BEEP CLEAR f CLEAR n INVERSE THEN ~(# STEP L INK INVERSE ~ AND RETURN 4 CIRCLE INVERSE THEN INPUT <>:{ATN >==2{USR <2{>2NOT h FORMAT INVERSE 6 THEN ERASE THEN LINE THEN THEN CHR$ INVERSE r INVERSE 6 THEN J INVERSE ~!▛ READ ( INVERSE ~ CLEAR THEN F(!▚ READ INVERSE ~ RETURN ( z INPUT USR W INVERSE r INVERSE ~ THEN ? STEP CIRCLE INVERSE ~ INVERSE 4 STEP cATN INVERSE THEN ▚ INVERSE 6#~21y#~ RETURN BRIGHT 8CODE RETURN ▘8>▘G STEP PLOT BEEP ! STEP [N] INK ( CLEAR ~ STEP CONTINUE STEP STEP [N] DEF FN !.yNOT OR STOP 0 RETURN 1 SAVE 1 IF 0 DRAW 44*+,--.0 RETURN 1 RETURN >ATN :[N] RETURN 8>2[N] READ STEP 6 NEW !S NEW >: FORMAT DEF FN RETURN USR ! VERIFY READ { GO SUB VAL ! GO TO READ >2[L]"u POKE LLIST <><>(z PLOT [G]xz INVERSE !{:{W THEN PAPER : PAUSE ▟_: LET ▟SQR ( THEN B( THEN b J THEN STOP z2{BCODE 2[L]!D"u POKE <>B[A] STEP INK P8-y: LOAD z THEN O!(&▗ THEN R(! THEN J(."x!zx INVERSE RESTORE MERGE { STEP <>{ MOVE INVERSE LLIST THEN [K] THEN JCHR$ INPUT DATA THEN R LINE INPUT DATA THEN r ? THEN ZCHR$ INPUT DATA :[Q] REM PAPER INPUT DATA :INKEY$z RETURN (8==<2INKEY$zq THEN PAUSE >2FN z>R2AT z>2VAL$ z>%2SIN z>2TAN z>FN 2RwO:[Q] REM 84 THEN O 0 THEN Z , MERGE STEP 8 PAUSE STEP 0 INK ▗: COPY z▜0 MOVE 8(} RETURN 0# THEN LINE CODE 2 FORMAT DEF FN OR 0( STEP ATN DEF FN STR$ >2FN z>2AT zCODE 2VAL$ z>2TAN z THEN SIN z2{ STEP GO TO BEEP THEN B 4z NEW USR :[Q] REM THEN GUSR : INPUT zo:[N] AND INVERSE 6 INVERSE 6 THEN y GO SUB D INVERSE 6@ INVERSE 6@25 RESTORE THEN CHR$ z2{<>:▛ REM THEN b AND PLOT STEP CIRCLE y AND RETURN 48z NEW n2{<> STEP PLOT BEEP THEN j = THEN R(" STEP NEXT VERIFY ( INVERSE THEN NEW INVERSE 6 MERGE STEP : CIRCLE MOVE (! SAVE STEP ACS LET MOVE !x THEN b !▘x STEP NEW STEP GO TO BEEP STEP NEW THEN REM INVERSE !{ STEP PLOT BEEP z2{ THEN RUSR MERGE THEN z ! GO TO INPUT STEP [N] INK (>[E] STEP CONTINUE STEP RANDOMIZE INVERSE F STEP [N] DEF FN MOVE THEN IF z2{ MERGE STEP NEXT VERIFY ( INVERSE THEN NEW INVERSE 6 INVERSE THEN CLEAR NEW INVERSE 6 COPY STEP : CIRCLE MOVE ( THEN ERASE > STEP h FORMAT z2{! STEP ACS LET <> STEP GO TO BEEP !▖x STEP NEW USR THEN REM THEN ERASE z2{> STEP h FORMAT <>: LOAD z GO SUB D NEW >= THEN ?▜▜▜▜ AND O STEP [J] DEF FN <> INVERSE THEN ~(# MERGE OR INVERSE RESTORE CLEAR RESTORE { STEP L INK CLEAR LLIST INVERSE LLIST STR$ MOVE <>> 2P NEW : INPUT z▜▜ AND 2F NEW <> COPY @ POKE SAVE Lx CLEAR !Kx INVERSE !G NEW STEP GO TO BEEP INVERSE V THEN jCHR$ LOAD BORDER GO SUB _ NEW < >SCREEN$ W THEN J( GO SUB _ NEW ? AND :RND REM THEN R VERIFY 0CODE AND 2 RETURN j8>d THEN b LN STEP * CONTINUE y AND o THEN J(>5 THEN r($>, INVERSE ~ATN ( GO SUB _ NEW © THEN LINE :[S] REM THEN ©:[U] REM THEN r( THEN LINE AND ABS ? THEN r THEN LINE AND ABS STEP I CONTINUE >w2| INVERSE r STEP PLOT BEEP CLEAR THEN _ NEW R:RND REM CLEAR 6LN >SCREEN$ CLEAR 60>AT CLEAR 6M CLEAR PEEK 7 CLEAR THEN OVER -!/ CLEAR THEN v(& THEN STEP [N] INK (>FN STEP CONTINUE STEP STEP [N] DEF FN STEP GO TO BEEP GO SUB _ NEW CLEAR THEN S CLEAR THEN [O] CLEAR THEN ^( GO SUB _ NEW 6 CLEAR ~ RETURN CODE / CLEAR THEN OVER CLEAR THEN [O]%!b RUN STEP [N] INK (>[O] STEP CONTINUE STEP STEP [N] DEF FN STEP GO TO BEEP GO SUB _ NEW b CLEAR THEN [O] CLEAR THEN OVER CLEAR 6H STEP OUT POKE STEP $ CIRCLE (> STEP % CAT STEP a DEF FN > STEP h FORMAT INVERSE 5 COPY INVERSE THEN NEW INVERSE 6 STEP GO TO BEEP STEP NEXT VERIFY ( STEP [N] DEF FN > STEP h FORMAT INVERSE ~ COPY VERIFY INVERSE w COPY 0 INVERSE THEN NEW INVERSE 6 INVERSE 4 COPY STEP GO TO BEEP STEP THEN BEEP STEP L INK >v2| STEP DATA POKE INVERSE ~ AND RETURN 4 CIRCLE INVERSE THEN INPUT <> THEN bCHR$ DATA GO SUB _ NEW USR :[S] REM _ NEW © INVERSE w:RND REM VERIFY INVERSE w THEN y INVERSE 6(USR THEN {( INVERSE 6 SAVE THEN {( THEN LINE INVERSE r<> INVERSE ~8< INVERSE w RETURN p FORMAT G<> RETURN DRAW (= INVERSE w SAVE G<> INVERSE ~8ATN (= RETURN 8=o:[S] REM NEW © AND ABS }(< RETURN 0< INVERSE w STEP CIRCLE <>y AND RETURN 4 CIRCLE COPY <>{>![G] CONTINUE GO SUB VAL = PRINT : INPUT z▜▜ AND 2{<> DRAW ?x0:[M]ATN CHR$ DATA :[S] MERGE RETURN 0K GO SUB _ NEW @(E:[Q] REM 8:[S] REM NEW ©(8 INVERSE !{ INVERSE THEN n INVERSE PLOT INVERSE 6 INVERSE 6 INVERSE 6 GO SUB _ NEW INVERSE w STEP [T] MERGE :{=2{ > STEP h FORMAT NOT DATA INVERSE ![T] REM STEP NEXT VERIFY >=:[P] REM AND RETURN 8>2[P] REM :[R] REM VERIFY RETURN CLEAR 0> CLEAR 2[R] REM STEP [N] DEF FN >NOT CONTINUE STEP !{CODE w DRAW <> INVERSE !{ OR STEP H DIM INVERSE STR$ POKE <> INVERSE ~ATN @ GO SUB _W NEW pUSR :$ ERASE THEN o>= GO SUB K_ ERASE YHnz NEW ▜ AND STEP CIRCLE STEP PLOT BEEP INVERSE 6 INVERSE 6 GO SUB _ NEW !▝ REM STEP d INVERSE w THEN Z>= INVERSE THEN RETURN INVERSE 4<> STEP GO TO BEEP INVERSE V INVERSE 4 THEN B(' INVERSE ~ RETURN INVERSE 6<> AND /2ATTR y!POINT y INVERSE ~ THEN ? NEW AND w INVERSE RESTORE { STEP <>{ INVERSE LLIST <> GO SUB _ NEW x W OR INVERSE THEN F( STEP SQR DEF FN STEP [S] DEF FN STR$ INVERSE THEN AND INVERSE 6 MERGE OR STEP Z REM STR$ MOVE , CLEAR s CLEAR q CLEAR p INVERSE ~= CLEAR w CLEAR 6 GO SUB _ THEN _( CLEAR THEN RETURN NEW !▝ REM STEP d CLEAR w THEN NOT [L] DIM INVERSE n&s~, RETURN n RUN THEN z( GO SUB D STEP CIRCLE y AND RETURN *0~, INVERSE uG RETURN |8 INVERSE 6<> STEP PLOT BEEP INVERSE ~ NEW AND XNOT POINT DIM !{N RESTORE ~EXP 033 RESTORE O PRINT CLEAR LLIST CLEAR COPY CLEAR y INVERSE PEEK 8<<>CODE <>pdhlt|x COPY COPY COPY COPY RETURN IF RETURN IF !P8 SAVE RUN [J]z STEP [S]*[Q]:AT REM THEN g(. INVERSE !INKEY$z:[Q] REM _ THEN COS :CODE REM RETURN RESTORE *[O] THEN V LLIST THEN NEXT THEN SCHR$ POINT LIST } NEW RETURN LINE / LIST THEN s(" THEN C(:[S] REM ▜8 RESTORE * LIST z:[U] REM ▜▜▜o0$ GO SUB B LLIST ERASE / LIST :{ RETURN [K] :[S] REM ▜ PAPER / LIST RETURN SGN :[S] REM ▜ ERASE / LIST STEP h LOAD THEN e LINE 5 GO TO THEN {BIN RETURN LET THEN [ ;: FORMAT DEF FN RETURN LINE 5 GO TO INVERSE THEN OVER INVERSE THEN % INVERSE THEN OVER INVERSE 6R INVERSE THEN [O] INVERSE 6G INVERSE ~Ow INVERSE 6P2Pw>2Rw THEN FLASH h: FORMAT DEF FN RETURN LINE 5 GO TO > STEP % CAT THEN C > RETURN STEP DEF FN ▘ THEN ]( THEN [N] THEN c( THEN U THEN U(▗:PwLN (0<<=2Pw RETURN ▘(8>FN T INVERSE THEN PLOT >I INVERSE THEN ACS O:RwEXP (y INVERSE p2Rw:ASN z INK o STEP 8 PAUSE :ACS z INVERSE RESTORE INVERSE ![T] REM STEP IF FOR INVERSE LLIST GO SUB C REM INK B&w~ VERIFY LEN RETURN 0.!A PAUSE STEP c INVERSE THEN ~( GO SUB D STEP CIRCLE y RETURN 0▜▜▜COS O# THEN w~( GO SUB D AND LPRINT RETURN |G CIRCLE |<> COPY <> THEN [( STEP STOP GO SUB THEN C LINE INPUT :[P] REM O THEN ]( THEN U( RETURN (<ATN ( THEN ©(< RETURN DRAW (=O:RND REM ▝G:[S] REM ▜ THEN {( RETURN ( RETURN x0< RETURN 0>2:AT REM THEN g :[F] REM RETURN k :[G] REM RETURN y RETURN F8:CODE REM RETURN (:[K] REM GLN PAPER 4 GO SUB STEP RETURN LET RETURN Z8/ THEN K THEN THEN INVERSE THEN [O] INVERSE 6b INVERSE THEN [G] INVERSE 6 PLOT 6 INVERSE 6 CLS INVERSE 6 DRAW [K] RETURN s8P:[U] REM STEP Z LET (D STEP I LET LN 8Cx>s THEN INVERSE 6 DRAW [J] INVERSE 6 INVERSE THEN OVER INVERSE 6 PLOT _ INVERSE 6/ INVERSE THEN CLS [G] STEP <> INPUT K( RETURN P0 THEN ▛ INVERSE 6m INVERSE 6 INVERSE 6 THEN cBIN S LET 2RND REM {2[Q] REM y2[P] REM :[S] REM THEN c( THEN / NEW IN 2 COPY z NEW 8 RETURN 8>! RESTORE LOAD o0$^#V# GO SUB S!w:[Q] REM THEN o( RESTORE !66"[H]w LLIST w STEP CIRCLE LOAD w STEP CIRCLE LOAD : COPY z THEN o( NEW AND N PRINT :[Q] REM THEN w(?8<* LIST zFN ATN GO SUB R81 GO SUB S LIST z LET STEP 8 PAUSE :[S] REM RETURN 8>W>EXP z0CODE 2[S] REM THEN ? THEN ? NEW STEP CIRCLE 2[T] REM y2[U] REM CODE 2 COPY z<> LET NEW GO SUB D AND STEP LIST <> INVERSE THEN [O] INVERSE THEN [O] INVERSE THEN OVER INVERSE 6:Pw AND THEN c(> INVERSE w INVERSE 6%> COPY 2▟ REM THEN [L]<> THEN ](H THEN U D THEN K INVERSE 6 INVERSE 6 INVERSE 6! INVERSE 6# THEN THEN B INVERSE ~ RETURN / ;:[S] REM NEW © RETURN 82 THEN NOT INVERSE 6d INVERSE 6 PLOT 6 INVERSE 6 CLS INVERSE 6 DRAW [K] INVERSE 6j INVERSE 6 THEN K( INVERSE 6▛ INVERSE 6 INVERSE 6![A] INVERSE 6# THEN ▛:[U] REM STEP Z LET ( STEP S LET STEP I LET {2[Q] REM INVERSE ~ RETURN / TO <> INPUT * OR INPUT ~ RETURN *<= INPUT ~2RND REM #F#" OR INPUT :[S] REM NEW VAL 2 COPY z:[Q] REM _:[S] REM THEN / THEN / NEW [P] THEN C LINE ▗ GO SUB 2[S] REM NOT ▗ GO SUB MERGE :[S] REM NEW >!▟ATN INVERSE THEN OVER INVERSE THEN CLS OVER , INVERSE THEN [O] INVERSE THEN CLS [O]"!w THEN k(66"[H]w!$ LOAD o0$~#fo[w OR ~# RANDOMIZE STR$ MOVE " OR INPUT "<= INPUT INVERSE 6 PLOT _<>. LOAD 4 LOAD D LOAD R LOAD ^ LOAD [F][I][D] [F][I][D] RETURN COPY RETURN COPY [I][D] RETURN COPY RETURN COPY [D] RETURN RETURN COPY RETURN COPY :[S] REM OATN PAUSE v LOAD THEN IF THEN EXP :[R] REM THEN M( THEN E( RETURN (< RETURN CLEAR (=ATN IF [I] LOAD (=<G▝ PAUSE [S] LOAD CODE G RETURN (8>(SIN HG GO SUB C[R] REM NEW © COPY RETURN ((ATN (O:[Q] REM 8y RETURN 0xNOT DEF FN : LOAD z NEW USR POKE ~#~#~#<>▟▟ RETURN IF ▟x▛xx▛}yxx AND O:[U] REM G AND EXP :[T] REM )ATN >=== NEW 2[T] REM : COPY zO NEW ©▘ THEN y([C][C]ATN PAUSE 4 LIST GO SUB D THEN COPY Gy NEW FN 2 COPY z<>8== PAUSE LIST REM FORMAT << RETURN RETURN NOT {BIN RETURN LET THEN OPEN # THEN [BIN STOP GO SUB {2[Q] REM STEP + MERGE >o2SCREEN$ LIST :[S] REM NEW 2EXP LIST THEN C ABS SGN ! LET INT INT :[S] REM NEW 8 RETURN 8>G THEN 8! LET o0$ GO SUB S[F]w"PEEK LIST >p<2SCREEN$ LIST PRINT THEN ?!ABS s STEP k}"SCREEN$ REM ! LET ~ NEW THEN _( PLOT LIST THEN z( GO SUB DO:[U] REM ▝2[U] REM ~SCREEN$ NEW W~ NEW #"PEEK LIST LET RETURN zUSR CODE 2[P] REM :[Q] REM THEN [H]2[Q] REM :[S] REM INPUT 2[S] REM :AT REM INPUT USR 2AT REM NOT VAL REM RETURN IF READ PRINT >2w LET <> THEN [T] PRINT > POKE 2▝ LET :CODE REM ▜ RETURN >=s RETURN ( RETURN USR MERGE RESTORE G* LIST z THEN < THEN THEN < THEN THEN < THEN > AND o0$ PLOT COPY THEN < THEN CODE THEN H( FOR ATN GO SUB R8|ATN } RETURN 8> AND sGCODE LLIST MOVE <>r SAVE INVERSE THEN ~(j:[S] REM ▜0} VERIFY o"[N] REM :[Q] REM THEN CLEAR 2[Q] REM :RND REM 2[K] REM >[L]2SGN z>[O]2EXP z INVERSE RESTORE LLIST ▙ REM GO SUB VAL > DRAW 2[P] REM > COPY 2 REM 0 STEP ATN DEF FN <> THEN SQR INVERSE 6j INVERSE 6d PRINT INVERSE RESTORE INVERSE !▙ REM INK STEP [T] MERGE STEP ' PAUSE STEP 8 PAUSE *[N] REM STEP w INK STEP PLOT BEEP INK INVERSE LLIST LET <>:▛ REM GO SUB DO THEN /▝ INVERSE w INVERSE 6<> GO SUB K[U] REM :[T] REM _<>s RUN i RUN _ RUN lbX:AT REM THEN gUSR PLOT 2AT REM CODE 2VAL$ REM <>& COPY :[Q] REM NEW ▜ RETURN :AT REM NEW 0 :[H] REM THEN o( INVERSE ![T] REM STEP 8 PAUSE ! STEP z INK STEP ▟ INK "▞ REM : COPY zATN PAUSE [E] PAUSE THEN IN GO SUB D GO SUB D2▛ REM <> NEXT STEP TAN CODE 2[N] READ 2[S] REM 2 LET ▟2 COPY z<2 LIST ▟>[N]2{: INPUT zG THEN 8▜▜▜ NEW LIST O![O]s~ NEW LEN w SAVE STEP 1 ERASE > 2[H] REM :[Q] REM NEW 2[Q] REM ![J]z"SCREEN$ REM STEP CODE CLOSE # STEP NEXT ▟ STEP DATA !iP GO SUB VAL Z GO SUB VAL !`` COPY 6 GO SUB VAL !"{} STEP h FORMAT CODE 2[S] MERGE 2 FORMAT DEF FN :AT REM NEW 2AT REM > COPY 2 DEF FN ![P] MERGE "[Q] MERGE >2[U] REM ! OVER POKE "x POKE > IF GO SUB G GO SUB ^>NOT 2 POKE COPY ![N] STEP " PRINT COPY >2 COPY COPY CLS STEP POKE :AT REM THEN o :. ERASE THEN o :# ERASE ATN ( DATA OR STEP POKE STR$ RANDOMIZE OR !Pi GO SUB VAL !Z GO SUB VAL STEP [J] PLOT STR$ LINE POKE OR ! STEP G<>STR$ 8 STEP SCREEN$ MOVE ▝L▘▗TUTTO PERSO▝ STOP LHANNO RAPITO LA PRINCIPESSA ; STEP SCREEN$ MOVE ▝L▘▗ RETURN IF ▝ STOP LHAI COMPLETATO LA AVVENTURA. STEP [P] LINE <>: LOAD z<2 LOAD z STEP [B] STEP VAL REM STEP ] PAUSE STEP MOVE DEF FN : COPY z_* LIST z THEN ©( NEW ©_ATN GO SUB R" LIST z LPRINT ATN GO SUB R0[Q]" LIST z[Q]ATN GO SUB R8 LPRINT " LIST z STEP NEXT ▟ STEP ▚>v2| STEP B▜ STEP DATA POKE STEP c ERASE STEP OVER POKE STEP OVER POKE >w2| STEP OUT POKE STEP v BEEP STEP STR$ MERGE >| STEP INVERSE ![T] REM STEP OUT BEEP :[Q] REM ▜0! INVERSE RESTORE MERGE OR RESTORE INVERSE !▙ REM *[N] REM STEP w INK STEP THEN BEEP STEP FLASH VERIFY { STEP <>{ STEP OUT POKE LLIST STR$ MOVE INVERSE LLIST STEP L INK STEP STEP u▗ STEP LLIST USR > OPEN # RETURN v STEP LLIST ( IF v STEP LLIST IF v STEP LLIST ( IF <>!(r!s"USR |<>B▜ STEP DATA POKE STEP c ERASE STEP OVER POKE STEP OVER POKE >w2| STEP | INPUT NEW INKEY$[C][C] LINE DEF FN lx8 RETURN IF X RETURN STOP x| DEF FN <~ RETURN AND f`00| DEF FN | INPUT AND AND INPUT |``0USR USR `0▚ RETURN | INPUT AND AND l| INPUT AND l| DEF FN >n AND AND l DEF FN AND AND AND RETURN AND AND AND l DRAW DEF FN AND DEF FN DRAW SAVE TO TO DRAW | NEW USR RETURN IF NEW | SAVE DRAW DEF FN AND AND AND AND DEF FN DRAW DRAW NEW USR >= SAVE >=USR NEW | LPRINT USR USR >= SAVE >=USR NEW || NEW AND OVER USR USR USR NEW |nfff~fff6< RETURN IF 0x TO RETURN IF 0 AND AND TO SAVE LIST CIRCLE TO f2 DRAW AND USR RETURN IF `0 DEF FN AND AND VERIFY PLOT RETURN DEF FN f2 DEF FN OVER VERIFY VERIFY PLOT NEW AND f2| INPUT AND RETURN IF l LPRINT USR USR SAVE DRAW DEF FN AND DEF FN DRAW x INPUT VERIFY VERIFY AND AND AND l NEW AND TO SAVE DRAW DEF FN AND DEF FN DRAW | INPUT AND lx0 RETURN IF SIN RETURN RETURN | INPUT AND RETURN IF f288ll AND f2l RETURN VERIFY VERIFY AND AND AND f2 AND f<<l AND f2USR LPRINT 0<l AND f2 DRAW AND `0 AND RETURN ~ RETURN IF COPY COPY pw;; COPY COPY COPY IN LN pp LPRINT LPRINT USR USR COPY COPY p;; COPY COPY COPY COPY x! AND RANDOMIZE BEEP RANDOMIZE " CLEAR PLOT GO SUB S RUN NEXT > IF GO SUB G GO SUB ^>NOT 2 POKE COPY ![O] SAVE " PRINT COPY >2 COPY COPY >M2[Q] SAVE CODE 2 LOAD PLOT c! IF PLOT STEP LIST PLOT c! RUN STEP LIST PLOT !" c"&c%-"0c!c" GO SUB PLOT <>~# RANDOMIZE <>cc INVERSE n INVERSE f~ATN IF RUN INVERSE w#NOT SAVE NEW © / INVERSE THEN N INVERSE THEN DEF FN INVERSE u INVERSE t: LOAD PLOT <2 LOAD PLOT NEXT RETURN >= INVERSE THEN ^>= CLS INVERSE 6 INVERSE 6CODE OPEN # RETURN CLS RETURN = #~ INVERSE w #~# INVERSE ▚FN = #~# INVERSE w[N]= #~# INVERSE ▚ INVERSE wNOT RUN = #~#foNOT RUN = #^#V# MERGE FOR INVERSE n INVERSE fs#r# INVERSE u INVERSE t LLIST NOT RUN = INVERSE n INVERSE f+V+^ INVERSE u INVERSE t FOR NOT RUN = *# RESTORE INVERSE THEN ^(>M2[Q] SAVE INVERSE THEN [O] INVERSE THEN LLIST NOT RUN >2[Q] SAVE INVERSE THEN OVER INVERSE THEN #^#V#F INVERSE ~ATN x= INVERSE w#( FOR NOT RUN ~# INVERSE u INVERSE t INVERSE THEN [G]O RETURN IF NEW _! RANDOMIZE ^ INVERSE FCODE CLEAR INVERSE wy NEW INVERSE THEN VERIFY NOT E RUN INVERSE ▚[B]0 DRAW ▝▜_M! RANDOMIZE ^#fkxATN ( THEN < THEN IF 0# LIST COPY INVERSE t} THEN = THEN = INVERSE u/ NEW AND GO TO INVERSE wGy INVERSE PEEK INVERSE wx CLS v2[N] SAVE CODE INVERSE THEN V CLS CHR$ E RUN MD CLEAR RETURN INPUT GO TO >2[N] SAVE <> INVERSE THEN F( INVERSE + INVERSE + INVERSE # INVERSE 5( INVERSE n INVERSE f INVERSE ~SGN >ATN ( STEP RANDOMIZE CODE 2NOT SAVE STEP RANDOMIZE ( INVERSE " GO SUB PLOT <> INVERSE 5 INVERSE n INVERSE fCHR$ SAVE NOT RUN INVERSE 5( CLS <> LLIST THEN >2NOT SAVE INVERSE * GO SUB PLOT PAPER CODE FLASH RETURN NEW RETURN <>B4T1▙. PAUSE +z)&' POKE $ LPRINT " GO TO TVAL$ ▞' RANDOMIZE [A]0▞? RANDOMIZE ▞-▜▘ CLS ▞Z RANDOMIZE ▘▜&r▟r▟p▛[E]z[F]y[E][B]▜KW▛KW▛IU▞IU▞HT▖HT▖MPt▟[A]▜▝8▚' RANDOMIZE ▚X RANDOMIZE THEN RANDOMIZE ▝▚ RANDOMIZE ▚ RANDOMIZE ▚ATTR RANDOMIZE FLASH RANDOMIZE ▞Z RANDOMIZE @USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY RETURN IF RETURN IF RETURN IF RETURN IF RETURN IF !~ LIST [0 MERGE GO SUB VAL <> COPY COPY !p LIST ~ RETURN IF +~ RETURN RETURN (# GO SUB FN +F+~+ DRAW | RETURN _ STOP } RETURN COS INVERSE NOT TAN _p<2 INVERSE ! INVERSE LIST INVERSE ~v STEP STR$ LIST INVERSE # PRINT NOT q LIST _@! INVERSE LEN RANDOMIZE _X! INVERSE [R]~<> NEXT CODE COPY NOT THEN *]/"_C PAUSE ~ STEP } FORMAT t RUN [3 OR a RESTORE [O] PRINT x#|ASN CLEAR 4@ MERGE n8 MOVE STR$ LLIST LET CLS <>u GO SUB {=VAL DIM E RETURN !>= CIRCLE ?7IN RNBIN IKY[U]PF DEF FN O CLOSE #SAT ERASE CHR$ VLD TO OPEN #XQGBUH<ABS >PEEK CAT M[T] INK BEEP Z AND 65J1 READ LPRINT DATA TAN SGN SQR LEN USR PIINKEY$TAB SIN INT RNDCOS EXP LN BRIGHT PAPER ATN VAL$ SCREEN$ ATTR INVERSE OVER OUT © VERIFY FLASH ACS STOP ^AT -+.,;<=/`:FN LINE POINT NEW (g IF POKE z▙ INPUT FOR 'w REM )[N]h PLOT y LOAD GO TO l[I][R][C][P]%▚[E]q[J]▞[H][A]$jsiv▜bk SAVE o BORDER RANDOMIZE [M]& DRAW ▘p LIST f CONTINUE r[Q]emc[B]▝▖▗[S][F][L]▟▛[G]d[D][K] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LN 0VAL$ LPRINT LN ▘VAL$ DRAW LN ?VAL$ >LN VAL$ COPY SAVE 0 DRAW COPY LIST !D COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LN VAL$ TO USR LIST LN ▚▚VAL$ USR `~LN ▚VAL$ USR PEEK LN VAL$ USR USR COPY SAVE 0 LIST COPY COPY ▚[I][S]p DRAW ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR LN 9SQR 9▜USR VAL$ lsUSR NOT ` SAVE LN 9▚9ABS CAT VAL$ o LIST GO SUB IN LN ▚[N]USR USR ABS CAT VAL$ cqNOT ACS s`[O]IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR ` LIST COPY LIST x LPRINT RETURN bLQUSR SAVE P COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR LN [J][N]?VAL$ 6 NEXT ` RETURN LN OUT INK VAL$ o[M]a▟ OUT USR LN STEP OUT INK VAL$ FLASH f6 FLASH ` DEF FN IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR 8 SAVE ? LPRINT COPY LPRINT LIST |H? RETURN LPRINT SAVE SCREEN$ [B][S]h STOP FN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR LN [L]▚[I]▚VAL$ PEEK y FLASH `?LN ▚▚?[K] COPY VAL$ oa▟ BORDER LPRINT LN ▟IN [J][K] COPY VAL$ NEW FLASH f6 CLS ` NEW IN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY COPY COPY COPY COPY COPY COPY COPY CLEAR NEXT COPY SAVE COPY USR Lx? FOR USR LIST CLEAR MQTAN @ FORMAT RESTORE P© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN LN VAL$ LN [L][N]▚▚<=VAL$ mVAL INK INK LPRINT OUT USR LN ▚▚▚ CIRCLE [K] CIRCLE VAL$ ma▜ CLS LIST LN ▚▜ STEP [I][L][K] CIRCLE VAL$ f{fSTR$ USR PAUSE g COPY DRAW COPY *[S]j@ LIST ?~@ LPRINT PI[Q]p SAVE LINE [Q]© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN LN VAL$ LN ▚[J] DEF FN <=;▝VAL$ STEP [O]xUSR LIST ` LOAD LPRINT LN ▚[J] CAT CAT LIST CAT VAL$ STEP [O]1▝ CLEAR DRAW LN 8STR$ [N]▟ LIST CAT VAL$ NEW AND yUSR SAVE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▜ COPY / MERGE ASN CIRCLE ? LPRINT USR AP ? COPY [F]PLN VAL$ LN VAL$ USR NEXT LIST LN VAL$ RETURN ~LN USR VAL$ p DRAW CAT RETURN DRAW zN[I] TO COPY LLIST [Q]? COPY LPRINT [Q]DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDDEEFFFFFFFFFFFFFFFFFEEBBBBBBBBEDDEEFFFFFFFFFFFFFFFFFEEBBBBBBBBE`DDEFFFFFFFFFFFFFFFFFEEBBBBBBBBE`bDEEEEEEEEEEEEEEEEEEEEEEEEEEEEE`b``DDGBB``b```````````@@@@BBB@D`b```DBB```````````````D@hihBB@@
