14645 REM CORRECTED BY ANDY 2 OR SCORPION! COPY
0t] NEXT !XT] COPY u GO SUB VAL ![H]]@ MERGE [A] GO SUB VAL [Q] OPEN # RETURN CLEAR w CLEAR w<> @e@/ CLEAR THEN
10262 THEN ( CLEAR THEN ( GO SUB _ THEN ( GO SUB G GO SUB F CLEAR DIM [Q]@POINT @ LET p0 ERASE @NOT @[M][C]TAB [C]s GO SUB Do FOR [D]G7O OR DATA +-STR$ STOP p@ GO TO +- LOAD 8c BRIGHT [S]-o▖` DRAW MERGE - NEXT GO SUB O RANDOMIZE POINT CONTINUE LLIST 9ABS )9)o RANDOMIZE LIST LOAD -8 INVERSE LLIST MOVE THEN THEN ( LLIST © CLEAR LLIST 3 THEN (3 GO SUB _ CLEAR ASN _ MERGE >= CLEAR DIM IMP PROTECTION SYSTEM '95 8USR THEN pYUSR READ PEEK INK g) READ CLEAR $ LET CLEAR t▖; LET INK THEN ( CLEAR s[E]W CLEAR LLIST CLEAR CLEAR DIM STOP LINE @ GO SUB _VAL$ w GO SUB [Q] LPRINT ; CLEAR ;m CONTINUE djo4rSGK-:GT@U&".lI, STEP INK *H:F IF x[B][P],"X'] PAUSE AT S[F] FOR PAPER NOT [M]LEN *[G]C!<>j LINE RNDoa▚? CONTINUE D DATA 8[F]TAB q PAUSE FORMAT CLEAR ▝g[R]3ASN #>=c!=JINT /[B]> INPUT f▞[P][F] BORDER LET CAT #b[G]COS [D]INT LEN [E] FLASH ERASE PRINT >= BEEP [K]▟TAN jw+8ER_ly -:GTan{"/<IVcp}$1>KXer©&3@MZgtO/iv*7DQ^SCREEN$ ▖?KS THEN INT LN [H]INKEY$ PAPER POINT 3 READ SQR BRIGHT INKEY$mW[P]?POINT aSQR [K][L]qWPISGN LN >=s OR [I][T]^ASN COPY K BEEP |SQR LET [L]STR$ .[F]A BRIGHT BEEP BIN RETURN OUT PEEK PEEK INT Ug/<=[G][R][J]s MOVE [I]IN RUN S[S]hP▜|SQR RANDOMIZE AND [J] PLOT [E]ATTR SCREEN$ D<=[Q]x▞^ READ SGN SQR _K CAT ACS B▛G LLIST KyLN LN INT LN PEEK LN INT LN FLN /Ks REM INT ▟y[L]/PEEK LEN Q[J]USR LN COS THEN [N] LINE [L]NOT ▚IN ;1▙ACS !▚LEN ATTR LN RETURN mcVAL ▖SQR PEEK ACS LIST [VAL © AND q<=[O]▘/IN RANDOMIZE AND zATN ^ASN ~ OR COPY [J]NOT ([L]_ BEEP TO ! INVERSE ]CHR$ ^ STOP F RETURN [A]FN RUN NOT ^ABS RANDOMIZE [B][D]BIN XPI INVERSE OR `XCHR$ Y[J]FN `Y[S]y@<=[C]RND[N]s STEP [I]SGN COPY SCREEN$ TAB 9[L]SCREEN$ A_/▜PEEK RETURN SCREEN$ [L]FN A[L]INKEY$c[J] RETURN [P]cKwATTR c CAT PEEK [A][T][M]VAL$ [T]ATTR [I]~[R]ATN [I]AT POINT SQR GCODE ~SIN ▖ACS POINT ZIN IN [S]EXP [N]ACS SIN PEEK PEEK VAL cqALN ELN VERIFY SGN GPEEK TINT xASN :SQR EXP `LN zEXP INKEY$ABS 4SQR EXP ATN ATN [T]LEN PI▜▜ OUT PRINT PIPEEK LN ▚2[R]<=EGHWe VERIFY SQR kLN <PIRND▚▖ BEEP <=<> BEEP efB;COS 17GAEAXACS PI AND C~G>PIFN POINT ▚LN 0GSTR$ FREXP IF BIN USR LN INT SGN PEEK COS ASN BORDER gvFd OPEN # MERGE IN IVug!▝ FLASH ABS ▛SGN n[/__[R]WWP VERIFY RUN r|SGN INT LN ' LPRINT PLOT TAN PAPER z BRIGHT RANDOMIZE )SGN ATN ygc/[R]<= IF OR cABS BEEP %LN E<=FINjsj FLASH >=K/ZT OVER VPTU3[I] GO TO LN GO SUB IN PEEK As}G}{A▙▜STR$ NOT GYGIjIN {Oc%+-[R][C] FORMAT STOP ▜USR BIN CHR$ MaC AND EXP LOAD OPEN #o CONTINUE SAVE TAN RETURN PEEK STOP PI$bD$:RND GO SUB 6RND THEN ERASE D/SQCHR$ OR PEEK >=<C^RNDASA@1"[R][T] RESTORE [T] LLIST ABS ,▝ OR BLSTR$ <=ABS NOT INPUT ▟▟ BORDER [N]PEEK DRAW 9TAN PEEK Oz=yABS .ABS SUsu[T]! FOR SGN ATTR POINT ▛,TAN =se STOP ac=▘[H]<=STR$ OPEN # LPRINT CHR$ AND OR THEN ERASE [N] CLS INPUT ▞<>RNDw[G]COS [O]ABS ;>v FORMAT AT OPEN # MOVE VERIFY pPEEK STEP EF@/▝NOT AIOMMNOT OR NOT INKEY$ LLIST SGN Vc▝ByK![T]RND▛▚ READ TAB [S] READ [R]!#A]GX`LN OPEN #[Q]}LN [U] PAPER <PEEK [T]|> IF SGN ATN s=cLZDqOUC@SGN SIN ?▝z(▝▝r?SIN IN ~zx IF TAN PEEK [F]>C=9CODE RNDPI▖INT [A]FN CODE [U]uswd>INT |Z$CHR$ @LCHR$ USR ▘▗PI[S][P]▝ OR NOT SQR BBL@NxVAL$ POKE [S][O]VAL$ DRAW LN AT INT <[T]@©}B|©@BBCEA#ABS 'POINT COS RESTORE [T]LEN +ASN 'RND& NEW ABS IN PRINT [T] POKE INK READ [F]▛[F][P]▗[A][B]RND[B][U]AT [C][E] POKE SCREEN$ 5IN TAB `USR vEXP /TAN DRAW [U] NEXT SGN INT O#=ORND[OSGN INT KIk THEN 991'7>)IN =?SQR BIN CO]ASTR$ GBB`%NOT AI CLOSE #[T]= GO TO <PEEK B RESTORE AC}LEN <b[A](VAL POKE INT DRAW SCREEN$ s'$ OVER !!qLN INT {STR$ AEBMSC[E<=N@▘VAL xJ@EcS[N]SQR EXP KDMN DEF FN FLASH QNOT STR$ <=GVxg<=USR YEXP PAPER 8[H] RANDOMIZE ACS IF INT [L]u▛LN ACS x▘D AND EG]CMOIN PAUSE INT OVER VL^[U]z▚gYSTR$ NOT )ATN RND'POINT [T] GO SUB CODE LIST LLIST TAB RUN CLEAR GO SUB DIM READ `% LLIST "PIVAL [K][I]LN ▗ CIRCLE ▗LN OVER ▚TAB LEN >[Q] CLS DIM RETURN %INKEY$▗STR$ <=<=STR$ M CAT [P]ABS SQR z@©Qio{za©m LOAD io}joj LPRINT ie FOR qk PAUSE 0PEEK DATA f PAPER [I]▚ CLS ;8ZXj©zg"ZUTGW]_U FLASH LEN © CIRCLE INK ]XRlS CIRCLE jMO ERASE xi4-▛ MOVE OUT l▙CODE CIRCLE 4CODE NOT 838^DV DEF FN LEN Fz~xB1vXEMDG OR 7TLN ACS /CHR$ FDLNt▚BDBIN zBHOQDC^▞SQR "ePEEK 9zxF#JLN ^DDF@NT NEW fdV)d k<=RND[SCREEN$ OR GD AND [S]AMLN 28^H VERIFY [I]: SAVE G TO FN TO [K]AT [M]aLN 9f[C]LEN ABS ZILN =<ABS [K]VAL [O]LN ABS 6ELN ,>LN [D]ATN 9JCOS SIN INT TAN TAN RNDATTR VAL$ LN SCREEN$ LEN EXP SQR INT INT PILN EXP /PEEK 3[P]LN 68r CIRCLE OVER ▖jX PLOT x)>=Z CIRCLE v[I]JUSR DEF FN POKE 5+S READ #vo STEP ▚ASN ABS AND Z▜EINT INT SAVE VAL$ ;8vLN 8INT PEEK FN ABS +INKEY$LN SQR SQR yaT PAPER ?[U]_G RETURN X CIRCLE 06PI[M]8EXP TAN USR ":PEEK [I]TAB D9VAL SCREEN$ [J]IN ABS CODE [B] IF SQR CIRCLE NHSASGN hN PLOT CONTINUE @VAL INKEY$S[Q] AND ▗[Q]▗ PAUSE ATN LINE LINE DCOS +▚W9[E] FOR ▜BIN DRAW 1[D][E] SAVE RETURN qzvl6pz{EXP [J][P]ABS 78 LINE ▟ERND REM [E]J NEW [L] AND BIN SCREEN$ ERASE [F] BEEP YSQR [T][L]VAL INKEY$ POKE CHR$ SGN MOVE INT D▚B▖▗,[N]>= GO TO FLASH THEN IN Q[R]ABS SGN INT X[L: SAVE y$ RANDOMIZE ;?(:<FN PEEK _hS<>FN ▚T▛▟▜ =▖▚[M]▘d▗PI AND 5▛[J]SQR SGN RANDOMIZE z| DEF FN ▚▜JR46TAN zINKEY$ifASN 3gm REM >= BEEP BRIGHT CLOSE # ERASE HZ,ASN RUN fx▖▙[M]INKEY$FN DEF FN [E][H][H][T]POINT [D][H]SIN STEP FORMAT ~|5tfL▗▚ CLS AND ▙} OR ▚▙+▗▚ AND CHR$ DATA V PRINT 1_;SCREEN$ ASN SCREEN$ FLASH CLS } CLS LET SQR LSQR NOT ~z READ INK SQR PRINT CLS G{y©tz▗ AND [U][S] CLOSE # VERIFY TO 5TAN <=▜ LIST SGN :[E][E]▟[L]LEN k{YPEEK W INK +N[G]Y; RESTORE ATTR [I][SCREEN$ k DATA IF [J]cyyxTAN 8[J] COPY ©▝SIN [U] MOVE FOR s7▛▙:F▚:▜[E]A▛8, PAPER pX RUN buW@rSIN rSGN HSCREEN$ hVYMFN LLIST ▝Vr CLEAR ; BEEP READ ~z} RANDOMIZE ©{%INKEY$DSGN {▘ATN 5x~ DRAW INT y▟ IF [G]u[F]CATTR E▜D▝▗▘[N] DATA Y[STR$ SQR [J][F]▘▞▗Hhrt CLS RANDOMIZE ; INVERSE FOR q31<>4▘:$ IF DATA fBIN BD▝{| DATA RETURN OVER Btr4rdf`h▚p;F[N]DB▗▚▙ASN ©}IN n▛▛▗▙▖▞ RUN r[C]POINT [O]<>[K]▗P▖1HACS LEN 7ASN ▝zACS [M] USR INKEY$▙CHR$ [M][K]▚▖ LIST COS Y? RESTORE RUN [A]▞ POKE qINKEY$ZQ▙[G]VAL $T▞▜xj▜ COPY tB SAVE [E]@ LIST INT Q▟▞SGN q[G]j RANDOMIZE SQR CLEAR ASN LEN CAT )b▙▖[K]`<}▙k[E]TAB ATTR SQR z▖▞▖SCREEN$ AT VAL$ INPUT DATA LINE EC1 RESTORE CODE [K][I]/POINT ATTR SQR INVERSE R00[F]▜#=[[H]>= BORDER ▞▛▚J▟<5▟ READ [Q][O]▘[A][G]ABS COPY FOR m/G[M] LET ▞ PAPER 1▞▘▘▞LEN PLOT LINE ▖PEEK CONTINUE PAPER >= ERASE CIRCLE SCREEN$ ▖vlD SAVE VERIFY FLASH 6uv BORDER v THEN [I][I]o<>uSCREEN$ H2 INVERSE #CECQSGN COPY [L]▙▗▛▘[L]LN 7}jk VERIFY SQR [E][F] STOP LN [O][K][I][O]LN ▘CHR$ ` BRIGHT BRIGHT USR ▙k[G]LN [K][J]ABS ▞ THEN OR CHR$ FORMAT ? SAVE D INPUT aF©}x*$N#▞k▖'▖▝<=0 NEW AY[O]8D TO [S]H*$ LINE >=STR$ PI[R][D]▖H▚▖g▞7▖▞[K]▖[F]▖▚▞ LIST ▜▞▖▛▘▘▝'X REM @ FLASH MERGE VAL$ ▟[A]▖@[B]VJ RUN ATN [F]▜▞I.▖[J]gPOINT [T]$SGN M#u75 PAPER #>=68 IF SAVE INPUT EXP ATTR ▖F CONTINUE RETURN [U][H]EXP CLS FOR mS[O]LN ▜ DEF FN RETURN t▟h7e©muHw RUN 5▝▝tO DIM / GO SUB *D+ LINE J&. TO ▖ AND BIN K9ATTR [R] REM CIRCLE BIN VAL$ [Q]tI OUT FLASH AT ▘6fzuuo▞[I] PRINT sQ[M]BIN EXP C STEP COS [R]L MERGE ▚TAB =3p▛t NEXT PAUSE GO TO VERIFY V8&SIN POKE dr" DATA CIRCLE PAUSE ps STEP PAPER UJl~| IF VAL ::PNOT abd©ELa.S^TY+ USR AND PAPER NEW 4PEEK [U] IF SGN [O]=>>,j CIRCLE INK CAT MOVE Rp INPUT POKE CHR$ X▙LN,▙zGAT "<:x INPUT STOP LPRINT n0"%CODE ` NEXT ©LDL<L©f MERGE ▙FN ▘[O]-s{ TO L▟SGN INK d▚ TO [C]3 CLOSE #}▙POINT ▙H[C] TO TO dL[D]lK GO TO PRINT V3yk THEN V LINE [K]▞ LINE IF [C] AND AT [Q] PLOT SIN y LINE PLOT ERASE PAUSE STEP PLOT PAUSE IF GO SUB PLOT TO PAUSE INPUT [O]1[K]M▟▛ PLOT AT ▛▟▙Z▘n▛ REM k▛ PAUSE N<=SCREEN$ ▘<> PLOT h▗[J]TAB [E]VAL$ ] STEP M▞U OR N▞ STEP [M] STEP ▚3 TO / STEP [M] POKE RETURN BIN 7W STEP [E]N POKE , DRAW TAB _ STEP [M]N POKE ~ CLOSE #l PRINT [H] POKE OVER LLIST N▖ CLOSE #/I▞TAN [S]O DEF FN >=>=[G]>=<>▖▙NSTR$ BIN CHR$ D▗SCREEN$ O THEN [G]Hs▘s▙ss▙s[C]s▙ss▙s▘s▙ss▙s PAUSE s▙ss▙l▘ PAPER STEP SCREEN$ BRIGHT CHR$ STEP THEN <> BRIGHT AT BRIGHT PEEK [Q]TAN FN XSGN DRAW ▘ BRIGHT [Q]▙SIN DRAW [O]▖SIN ▗U[H]OwCHR$ INPUT CLOSE # IF NEW F POKE RETURN s~t▖▞n▖▞▚▞J▖▟▞&▖▞▙▞*▖▞▖▞ACS ▞▖▟[I]Z▖_LN SAVE ▘ SAVE [P] SAVE ATN SAVE [Q]▖Ltt▖|▙▟l▖ NEXT ▖ LOAD ^▖▞ GO SUB SAVE STOP SAVE NEW ▖ LLIST SAVE POKE SAVE DATA SAVE RANDOMIZE SAVE SAVE FN CONTINUE [C]x[E]G▖[O]j▙[M]j▖X▛▖▙H[G]▟▛8▛▖ SAVE D SAVE N SAVE SQR SAVE / SAVE l SAVE a>=B<>[O]POINT [G]▛INT ▙▖▛ CONTINUE ▚▛INT ▙ RETURN ▗SCREEN$ [N]2▛ CONTINUE LN SAVE SAVE [I] SAVE [A]LN [Q][B] THEN SAVE IN RETURN IF ▗ PLOT [N] IF POINT RETURN [S] IF SQR ▚ATN IF USR LFN ▖z▖▙▛[K]▙h[L]PEEK ▙ IF ▗▗h▞jINKEY$▙▛'h[C]▖ SAVE [G] SAVE [C] SAVE [O] CONTINUE INT ▞FN INT [U]CINT VAL EXP IF POINT RND PAPER FN ▜ IF LINE IF PAPER IF OUT IF FORMAT IF LPRINT IF PRINT FOR ATN 4 SAVE [G] RANDOMIZE >= RANDOMIZE j RANDOMIZE IF " IF PAUSE ATN ▙ RANDOMIZE [I][D]▗▙[K]▚[A][G][O][I] SAVE [C] SAVE [O][I][G];[H] DRAW [Q] DRAW v CLS DRAW DRAW OUT DRAW y DRAW CLEAR I DRAW CLS CLEAR 3 CLEAR SIN CLEAR i CLEAR | CLEAR ( CLEAR LINE RETURN BRIGHT RETURN ▟ RETURN 6 RETURN ; RETURN DIM RETURN FLASH INT CIRCLE SQR "$ INK EXP LN q SAVE ▗FN ) CIRCLE ATN '% INK ABS LN ▟ SAVE [I]▖[P]▙ INVERSE ABS > BEEP 1 INK 57 INK 151 INK >:▖ FLASH }▚J PAPER JL INK SCREEN$ ▟ NEW ▘FN SAVE ▙ INK LN )INKEY$EXP '% OUT SQR INT PLOT ▚SCREEN$ ▚ RETURN CLEAR [K] CLEAR - PAPER SQR ?EXP ; INK ASN - PAPER 9?▖ COPY INK 7 FLASH N5 FLASH 3851 OUT 3▖ FLASH M AND MOFN ▛ SAVE SAVE POKE FLASH A OVER ACFN p POKE POKE POKE LIST POKE POKE m[U]a RESTORE [D],. REM PRINT INKEY$ PRINT 2 PLOT PRINT IF PAUSE PLOT PRINT C PLOT xINT g RUN BRIGHT NEXT BRIGHT RUN STOP CLS LIST RUN [D]▗ THEN |▚D4>=3<G2[S]▗ATTR z▘ PRINT INK PRINT READ PRINT RESTORE ASN COPY [E] POKE PRINT OUT PRINT NOT PRINT OUT PRINT L PRINT ~[U] DRAW MERGE =? MERGE FDSQR MOVE ?;<▚c BEEP q▛GM BEEP HVNOCEAB OPEN # IF INVERSE RUN 6 NEXT D MERGE H VERIFY ASN *, BEEP ATN INT VERIFY ,[G][B]▗ BEEP D;;[E] FORMAT F?998▚ CLOSE #▟ POKE [C]TAN [O] VERIFY ? NEXT ATTR POKE CONTINUE ▗ASN 7INKEY$▞[E]▝▚3ASN . THEN ▚4 CLOSE #[G] DATA 902;9▗<>=:[G]▗ MERGE POKE [F];< CLOSE #2 DIM 0▚RND[G] POKE COS INT ABS ACS / NEXT @K LET INT -PEEK DRAW lZ▚▞PEEK [D] POKE PRINT RND▚▗INKEY$RND[Q] POKE [D]TAN PLOT I CLEAR [U]d POKE G▚RNDCOS TAN PRINT [E]▙▞EXP TAN © POKE N FLASH NEXT ▜AT 9EXP ▘ABS [U]`PEEK ▞▗CODE ([G] POKE -INKEY$ACS TAN ▗x[M]INT ) FOR AND ACS [K] NEXT [U]▗CHR$ TAB [L] PRINT [N] DRAW ACS VAL CLEAR EXP LINE PI4 LET ▟ CIRCLE PI BRIGHT PIk BEEP b PAUSE ACS 8 DIM LET ▗[C]m[F]INKEY$ POKE [RND[S][U] GO SUB [E] RESTORE [T][O] PLOT INT ▗ READ ATN [U]INKEY$PEEK aBIN [I] POKE [H]VAL SCREEN$ DIM PRINT VAL$ SIN POKE LN RETURN VAL$ TAN POKE [U] PAUSE 3PEEK [K]▘PEEK [F]TAN POKE k$o$[G][K]VAL$ VAL$ POKE [U]W GO SUB VAL$ FN POKE [Q]R LET [E]ATTR ▗O[G] POKE PI[E] FLASH LET VAL$ LN POKE [U]i▘}▚/[K]?[F]RNDEIR DRAW [U]▗ PAUSE ACS ▙ POKE g SAVE TAN PAUSE RND[A] POKE [N][U]▚ PAUSE ACS ▗▟PI PAUSE 0 NEXT ATTR [I] PLOT ASN INKEY$▘ POKE W[C] PAPER ▘[O]▞)g[E]e[U][F] REM /INKEY$ STEP SQR [C] INPUT INKEY$[A] PAPER { LLIST INK u5RND PAPER [P] VERIFY [G] REM ▟ INPUT ▗ REM SIN NEW POINT REM PIu1SCREEN$ ▛ CONTINUE SEXP [D] CONTINUE [U][F] NEW STEP REM BIN !RND▘SIN LET INPUT RUN CONTINUE LN FLASH PLOT PAUSE REM COPY LLIST EXP FOR INT FLASH <> MERGE LINE MOVE ERASE INK DEF FN MOVE INK VERIFY INT BEEP CIRCLE LN <> INVERSE GO SUB TO MERGE LINE PEEK OUT FLASH CHR$ BEEP LN POINT LN BRIGHT STR$ INT BRIGHT <> FLASH ABS VERIFY FLASH BEEP CLOSE # THEN INK OVER DEF FN AT ESGN [B]<>QCODE bL LPRINT _LN ▘M▝▘ DIM IRND BEEP INKEY$Zi LPRINT LEN LOAD [G]>yWSQR DATA BEEP [K]~ LOAD ABS OVER EXP sE PRINT LLIST OR ▙▚▝ DATA ▜VAL$ [K][M]▞S▖▜ABS [A] DATA Y DIM '|[H].[O][K][A]]CHR$ INT [L]AT [O] REM NEW [B]~SQR LIST COPY G IF }y[D]E READ /[I]! BEEP SQR j BORDER [B] DATA SQR LIST RUN Q[S]INKEY$[M]w LINE ▙Q[A]WE GO SUB [N]KVAL$ [J][I]CVAL$ [I]EXP DS^▙VAL `b PAUSE LLIST ▞[D LLIST [K]▞[I]EXP [I]EXP [ LLIST ^USR BEEP T FOR OUT [A][L]▗▛[A]▙ NEW @▖[S]X SAVE [S]%P INK [S]O[O][E]ATTR NEW ▖AX▖SCREEN$ "[) CONTINUE LEN FN ASN SAVE ▛^ BEEP T CONTINUE AND CIRCLE EFN [M][K] CONTINUE LIST CONTINUE ABS ▟[J] RETURN ASN NEW FN [D] INPUT [I]SQR [G]INKEY$[S][Q] CONTINUE ▞LN IF 'b[G]▙[G] IF [F] NEW [E]B[D]ACS [D][C]f[B] IF [B]~[A]CHR$ [A]f[P] NEW [P][G][P]*[O] VERIFY [O]v[N][N] OVER [N]^[M]*[M] INPUT [M]ACS [M]f[L]$[L][L]CHR$ [L]INKEY$[L]l[K]T[K]8[K] REM '[I]USR [M][Q][I]▙ DATA `[L]G[P]Z[L]4[H][L] READ [P] CLEAR [L]<>▜INKEY$[L]TAN [P]▗[L][D][H]d[K]w[O]y[K]NINKEY$P[K]%[O]*[K]0[G][K]▚ NEW [K] LOAD [O] CONTINUE [K] NEXT [G] RETURN [I]USR [I]NOT [I]1[M] MOVE [M] MOVE [M] INK [M] FORMAT [M][R][M][R][M]INKEY$[M]ATN [M]AT [M]ASN [M]SIN [K]gEXP [M]IN [M]ABS [M][M]▝[M]▜[M]▘[M]▖[M]▜[M]▟[M]▖[M][H][M]▟[L]▜[M]▘[M][B]c[K]c[O]c STOP c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c[S]c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]cbc[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c[S]c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c STOP c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c[S]c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]ccc[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c[S]c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]c[K]c[O]c STOP c[O]c[K]c[O]c[C]c[O]c[K]c[O]c▘c[O]c[K]c[O]c[C]c[O]r[K][P][O]INKEY$[K][G][G][H]▖▗▗▜/#▜▗[E]▖[H][G][G][K][G][O][P][M]Z'). CAT 4: LLIST BORDER GO SUB INPUT LIST PLOT BORDER CLEAR NOT OR CAT STEP FORMAT VERIFY CLOSE # OUT [R][Q][S]POINT AT COS ▙ASN LN IN INT ▘▞[F][D][H]▖[E][J][K][P][I][N][O]R[N]STR$ b[[U][M] PAPER LIST PAUSE CLOSE #[F]b LIST l LIST [O][P]Z[O]zv▗VAL$ PAUSE / LPRINT Hr Z STOP [U] ERASE `▚ASN ▙|^ GO TO l~>=INT LPRINT INKEY$>=[K]AT VAL$ `[S]AT VAL$ INK [K]PEEK LPRINT PId INPUT CONTINUE [M][G][Q] REM x STOP VDn` DATA [S] LPRINT f LPRINT STOP dj▚ NEW `~f[K][O]0▚▗dINKEY$ POKE f[I][G]dxb[G][E]d IF xfvp DATA d▖INKEY$ REM DATA p DATA [K][E] NEW [M] NEW [A] DATA [K] SAVE PLOT [I][J][I] COPY [K]FN NEW [I] BEEP ▘[G][K]<=[I][K] SAVE x REM [I] COPY [K]d▚INKEY$[I]VAL$ h DRAW PRINT NEXT RUN [H][I]SIN dvpdt[I] OVER f NEW _x NEW f LINE INT [E]`[K][E][G][P]xz[I] LPRINT LN COS pd[ LPRINT d[U]X[A]t DATA J`j`r~Xx NEW /v`NtvHvlFp~[K][G]z DATA ~p| DATA ▖BIN jv DATA h STOP ▚D DATA INKEY$ PAPER LPRINT /vLEN POKE [S]▖[O] DIM NX POKE t DATA INKEY$[Q]SCREEN$ ▞[Q][S]f[U] STOP hxPI REM GO TO [H] LPRINT NEW DATA Pf[S]v``▚BIN G[U] NEW ▖[P][Q][Q]VAL$ d[E] NEW [O]dTPnDFR CIRCLE Z▞[O]f PLOT [O]"t FORMAT INKEY$[ INPUT fSCREEN$ X DATA Lf` DATA [S]LN ^zFN RETURN x~xFdvDNT[I] LPRINT FN Z▘INKEY$[Q]INKEY$XSCREEN$ |VAL$ XINT ^v DATA [J] DEF FN DATA EXP ▖EXP [C]▞PEEK >=Z[J] DEF FN Lf STOP fLNPIINKEY$[L]fdd@n@bdn NEW v[J]INT LN INT [E]dh[J]TAN bYLhEXP LPRINT [G][K][E]Ff INPUT Zgwi#ewc7e"YwG6a" RESTORE [I][A]g2 LLIST vO7 CLS 2 OR vK6 LOAD 2<>r CAT 6 THEN 2 STEP rCOS 2 CAT 2▙[M] INVERSE <<>VAL ▖VAL$ [O]22SIN [O]2[O]2[G]SIN [K][O]2[K]INT INKEY$[A][K][O]LN [K][O][K][O]a[I]e[I]y[I]l[I]7kSQR [I] VERIFY ▞[L] CIRCLE [P][I]▘ GO SUB ▖4▜{SIN ▝i:+UzSGN [D]▜y RESTORE i COPY RND▘ DATA [H]▗jIN o4[G]? NEW }▛▚AT [K]VAL ,▗B▚[P]w4k PAPER [T]▗ SAVE SAVE gNOT INT NEXT VAL$ [U]z[Q]▟ CONTINUE VAL M[D]▗ SAVE RND DRAW IATN 2PI▗[F]y▗-▗[U]▗▚TAN Y[Q]DSQR [U]▚[S] STOP RUN [S] PLOT VAL$ oc▟i▗▙(KFN [C] RETURN dINKEY$▟ LET INK SGN ▚ RETURN P-Y[T]F NEXT PI▗*[F]▚ LLIST [U]LN W MERGE !RND OUT #[H]▗[H]▗▘ CONTINUE BEEP o mSIN [I]PIVAL [I]POINT SIN _PITAN FOR RNDo[U]▜PI REM %FN i:EXP INKEY$ri[E][C] COPY PIVAL F[R] LET iRND#[L]▚SGN YPI INPUT i MERGE OPEN #'RND,#TAN ▞k4©SCREEN$ [M]▗oVAL Y[R]SIN THEN PI▘FN ▘VAL$ 3-▗ATTR ce[A] RUN RND PLOT [R]SIN <>▗ MOVE [G]RND?#▖▟INT OUT [P][T]B!▗ CAT [R] POKE [U] POKE [I][U][U]_PI{POINT SCREEN$ .PIT[S]AT o PAPER SIN COS PI[U]▚PIRNDSIN KRND▚ FOR ▗▜ STOP i PRINT 'ASN ▚SQR ▗F▘B[F]INKEY$o[Q] IF ▝.▙ RANDOMIZE 9 FOR PEEK ▜ RETURN LLIST [E]eASN ▚▗y PAUSE K~ GO TO RND4, DRAW 3INKEY$[A]ATTR [U]&INKEY$ MERGE ,LN BIN H OVER .INT [T]ACS LOAD ,[K][D][F]▘ GO TO K^=© LIST Yg▗VAL$ We[H]▗ DIM I[G],gINKEY$!SGN {TAN ,RNDi&[Q]▛ [U] OVER OR Nl▙TAN d/b▙VAL ACS _{SCREEN$ ▘I CLOSE #▗▞▚I CLS 3LN ▗dVAL$ [U]PEEK b▗SIN INKEY$[M][T]c$[F]= LPRINT ▜▘i>▗>= CLS z[U]INT ▗ CLOSE #+O▗I DEF FN 2SGN STR$ 4B▜z[N]VAL [M]e MOVE n▞TAN LLIST IN $SGN LN ,SIN TAB .dSGN COS ,[A]gINT CAT >[U]<SCREEN$ <?ATTR ▙ FLASH )[H]~u[B]AT INVERSE ,▝TAN FORMAT , POKE pXSIN [G]SGN INVERSE ,e LINE INT OUT . TO OVER ,PISGN OVER ,▖CHR$ PRINT BORDER FN ▖J[R][G]TAB [A]B DATA .[J][H]SCREEN$ >▖[I]ATN FN ACS ▛INT .SCREEN$ CIRCLE VAL WQv▞POINT GO TO ▖SIN SAVE ATN COPY [T][I]sACS f▖[A]SIN [H]SIN ▗ SAVE ACS CONTINUE [O]TAN sMvl[H]BPI2ACS {[I]DLEN 2ACS H▖[I]▝FN ▗ACS RANDOMIZE ▖[A][O]FN EEXP 0ILEN 6SIN ▛.xHR+POINT ▞ INVERSE POKE ?FN ▝▖▘[U]p,ACS ▙ASN LN ▙1B-[O]▗7▚ IF Z-[K]VAL 9[H]PR+EPOINT 0{POINT VAL CLOSE #c OVER TAN [H]ASN [L]8MC▖jACS [G]Ig LET }[S]~ CLOSE #[QATTR <>6[J] MERGE S▞▞c8SSCREEN$ { MERGE C▙▙mOe6IkASN VAL$ ©Ce OR ▖VAL$ GO TO _[J]▖MW CONTINUE >=AT BRIGHT [U]eqGMc BRIGHT TAB FORMAT SAVE [N] SAVE LLIST /[E]▖W▙ REM QPI INPUT ▙ FOR EXP LPRINT CIRCLE SGN INKEY$▘s[I][E]_<=ACS U LLIST ▘▙ BORDER SGN LOAD VAL Y PRINT ) CLEAR [U] DRAW ▖▙S OR W[U][M]▟ GO SUB ▘ LLIST SIN Su CLS N[C]u LLIST ▛CHR$ D"ATTR LIST INT GO SUB RND PLOT POINT INT x-▟▙- AND TAB DEF FN POINT e OR p/LN ▚q▖[T] TO ATTR kUk BORDER NEW ][L]CODE ~8Gu[U]sVAL$ SCREEN$ U SAVE ▖WATTR STR$ ▖[G] BORDER [R](▝1c[E] COPY [G]▝▚INT [L] LINE ▗▞ FOR w▜cwTAB t[O]"POINT .▖[D]c{RNDH[L]&A▖<ACS LINE ASN INKEY$▖< PLOT POINT 0$ PAPER DIM SIN K▙ICACS CLOSE #$CODE LTAN FOR )C READ pACS ▗▘[M][O][E][C]▗▟▖▞INT ,▟[M][D][O][N][I][P][L]▟ LET PLOT & PAPER "&QFN VAL$ STR$ OR OVER PAPER STEP OVER AT VAL$ <= OR STR$ TO STEP VERIFY AT VAL$ BIN THEN CAT OR <> LPRINT OUT VAL$ AT STEP OVER STR$ INK ERASE JVAL$ PAPER VERIFY USR BEEP ▘ THEN OUT <=CHR$ PAPER OUT VAL TO [E]AT 6 INK BIN CAT OVER THEN AT VERIFY OR NOT <>SCREEN$ OUT PAPER NOT INVERSE >=▙ OR CHR$ USR SIN [A]IAT ABS SGN TAN RANDOMIZE AT VAL$ NOT BIN >=^[S]>= OVER OR STR$ VAL$ NOT MOVE <> CAT CHR$ BAT MSIN [C]*<>ATN AT SGN <> VERIFY CIRCLE SCREEN$ BRIGHT CAT THEN <= OUT DEF FN [G]WINKEY$[K][D][Q][P]▚&&D[S][M]K INK AT OR <> FOR GO TO IlSCREEN$ AT u THEN OVER FN K[Q] CLOSE # STEP INVERSE CIRCLE SCREEN$ USR <=▜AT FN OUT OVER STEP 0<> RETURN AT [K]RNDUSR STEP STEP LINE OR BIN THEN VAL$ THEN OPEN #STR$ THEN VAL$ OR [Q] OVER GO TO SGN STEP BIN THEN CHR$ <><>[C] BRIGHT AND STEP INK VBIN AT INVERSE MERGE BIN VAL$ OUT FLASH BEEP OVER PAPER BRIGHT REM >=NOT FORMAT AT NOT STEP STEP OR STEP AT TAN INK USR CAT OVER OR STR$ CHR$ [Q] STEP INVERSE >= TO THEN RETURN AT OVER VAL$ <> ERASE OR PAPER AT VERIFY NOT VAL$ CIRCLE CIRCLE [R] LINE NOT LLIST VAL$ CLOSE # CLOSE #<> PAPER TO VAL$ PAUSE ACS PI IF AT [O]AT [L]▙[O][K] FLASH y CAT <> LINE OR OVER OUT VAL$ OR TO LINE STR$ CLEAR [T]▟MUSR OR <> OR BIN ▙SQR THEN >= THEN STEP INKEY$ OR NOT BRIGHT [N]<> VERIFY BRIGHT ▖ THEN AT MOVE <> BRIGHT PAPER NOT CAT THEN CLEAR LEN CAT CHR$ DEF FN OVER THEN FLASH [S] OR INVERSE STEP CAT PAPER [T]<=COS CHR$ STR$ [T]<=<= AND THEN STR$ OVER [M] CONTINUE >=[S]>= FLASH OUT [O]▛▛SQR [O]▘STR$ <=CHR$ NOT [R]<=CHR$ NEW OVER STR$ CAT OR >= THEN >= PAUSE TO FLASH ▖ VERIFY CIRCLE INVERSE PAPER [T] CIRCLE [U] STEP [Q]AT CHR$ AT ATTR SCREEN$ STR$ FLASH OUT < THEN [L] TO OR THEN POINT AND CAT <=USR FLASH OR DEF FN CHR$ ▖ REM PAPER DEF FN W[T][O]▞▖▖[L][E] WPOINT CAT <>▗E▖ PRINT <= OUT PAPER ACS LINE OR <> BRIGHT TO CONTINUE vSTR$ TO FN BEEP <= OUT FN [R]<>BIN AND CAT MOVE POINT c( CLOSE #PI INK MOVE OR PI<= INVERSE CLOSE #<>STR$ FN INVERSE MERGE SCREEN$ FN INKEY$LN COS ABS [P]FN SQR PEEK ACS RNDSGN IN ATTR IN LN FN IN [N]ATTR ▜ THEN OR AND PAPER <><> BRIGHT INKEY$ OUT NOT BRIGHT AND ▛% THEN OR OUT VAL$ BIN CAT <>CHR$ STEP CIRCLE FN [P]▟ PAPER NEW >=FN INT ABS LN RNDATN ABS PIPEEK LN CIRCLE LINE [J]EXP LN SGN VAL$ USR ▞$LN INT FN ACS [K] FLASH CAT THEN VAL$ CIRCLE ACS BRIGHT CHR$ STEP VAL$ TO THEN MOVE +POINT FLASH ▘"FN GO SUB CLS RETURN DIM IF LLIST INKEY$FN ACS COPY SCREEN$ POKE IF BORDER BORDER ▞s[J] LOAD RETURN IF READ RESTORE NEXT NEW CAT NEW PAPER NEW DIM COPY NEXT STOP ▙[O] BORDER COPY LOAD SAVE LET RANDOMIZE DIM RETURN STEP REM LIST DEF FN ATTR FLASH OR INVERSE 9 TO OVER POINT T CIRCLE BORDER LET CLS LLIST BORDER DATA FN BORDER CLEAR GO TO LET LLIST LLIST VAL$ OVER LN INKEY$SIN BRIGHT CHR$ RANDOMIZE FN SCREEN$ SQR vLN FN PAPER <>STR$ BRIGHT <> LINE SCREEN$ DIM GO SUB SCREEN$ [Q]STR$ PAPER NOT BRIGHT PAPER STEP BIN FN BIN MOVE SQR gIN CODE MOVE RESTORE [F][M] OVER ▛SQR STR$ FLASH ▗z[L]LEN <>INKEY$ PAUSE ATN ▞INT DRAW ▖[F] FORMAT ATTR FN ASN <><=[J] IF AND ▛SCREEN$ LIST PAPER CAT STEP VAL$ OVER OR 6gVAL$ INVERSE LN WRND OR CAT CAT <=FN CHR$ STEP CHR$ BIN OR SGN <>= INVERSE CIRCLE CAT THEN CAT ▟NOT INT [K]PI|▞▛L<= LINE [L] CIRCLE VAL$ PAUSE h▞b DEF FN STEP TO INVERSE INK PAPER INK FN DEF FN DATA FN VAL$ <>▙CHR$ <>[T] PAUSE ▞▙[L][H] CIRCLE VAL$ CONTINUE FN CHR$ ▖TAB [K]e▞ DATA USR BRIGHT IF [G]PEEK STEP ▞& DRAW [U] LINE FORMAT AND CHR$ LINE OR INK TO 0<= PLOT INT IF CHR$ STR$ VERIFY <=FN YPI▜[I][Q]SCREEN$ ,FN t|USR OPEN #<=▙▝[U]' BEEP NOT CLOSE #INT ▗(<=<=[R]ASN COS ABS SIN NOT FORMAT [Q]CSIN ▝jVAL$ [U] OPEN # VERIFY ▛ GO SUB MOVE CAT FN INKEY$STR$ VERIFY STEP ERASE STR$ LEN [U]>= THEN BRIGHT ▘ FORMAT <> LINE THEN EXP TAN FN ▗ READ LINE OVER ▘LN FLASH FORMAT DEF FN THEN CLOSE #FN INKEY$ OR AT CLOSE #FN AND [U] BEEP ERASE MOVE TO FORMAT PAPER SAVE VERIFY INKEY$[D]▚u▘ATTR SCREEN$ ▝` THEN STR$ <> STEP MERGE [C]AT <=CHR$ PRINT INK CHR$ [O]COS ▛9 DEF FN <> TO ▝n LINE [M] LINE THEN n OR [P][U] MERGE THEN LINE CHR$ INT SQR USR AT FORMAT FN THEN CONTINUE [A] REM NOT DEF FN OR ERASE STR$ ACS OUT NOT <=>= FLASH BRIGHT OUT [G]ATTR OR [U][I] OUT THEN OR STEP INKEY$ AND COPY ▗LEN TAN IF OVER ▘[U][U] TO STR$ >= VERIFY OUT [C], MERGE PRINT RESTORE ▖ TO ▘ INVERSE ATTR [U]NOT CLOSE # CLOSE #[F]COS [M] CLOSE # LINE ▚< FORMAT ▘[S]FN [B]ATTR ERASE [F] BEEP NEXT <>FN TO NOT ERASE <><=INKEY$[U] FORMAT OR VERIFY <><=▗e MERGE FORMAT NOT VERIFY STR$ >=INT ▜ DATA OR SGN rACS CHR$ STEP CIRCLE OVER OUT [U]ABS [E][M] OUT OR STR$ >=<=FN [F]SCREEN$ ACS ERASE ▘USR CLOSE #SCREEN$ q AND [C]SCREEN$ ERASE FORMAT [A] LOAD ▜▚ FORMAT FLASH <= PAPER TAN [G]<> VERIFY OPEN # BEEP ▚LN ATN TO SAVE BEEP FN SQR CLOSE # STEP NOT ▝ DRAW LINE CAT NOT [K] OPEN #▚ SAVE BEEP ▗< THEN LINE THEN [K]NOT VERIFY [D]▗<> TO NOT [G]INKEY$ MOVE CLOSE #9 AND ▝rSCREEN$ STR$ OPEN # VERIFY NEW [R]<FN [A] OR FORMAT ▚[O]SIN =ASN SGN ACS ATN 2 BRIGHT ATTR THEN OUT [U]USR ▘,▘ OR THEN CAT ▗l▘ASN S CIRCLE INVERSE >= OR LINE RNDR[E]y[F]U INK [U]TAB ASN r VERIFY THEN yy COPY 1xPOINT F ERASE RETURN 0*X2z©*k LET 99(>?1?4:Zn RANDOMIZE {ATTR IF 0?r PAUSE 6?_-}_ CLS *4?_`ZK CLS =XVz0{m9X CLS ` IF FF% THEN NEXT (^T07#X84{FVF RANDOMIZE LFWr CIRCLE USR XV>SICi LIST IF ;4{ REM CLS >v PRINT © POKE Ne SAVE UH{Ej@SGN @qD RANDOMIZE Q]SIN IF ZX-[F]# STOP ;6-<)1%ij2@[O]q& CLEAR *7*+-q CONTINUE RANDOMIZE 2yU DRAW .-4:}[B]{VAL$ y, PRINT ,51vN SAVE XUq PRINT DRAW -(#Tt<> CLS ,}jyD? SAVE U'y POKE RANDOMIZE D}COS CLS 27*z RANDOMIZE ({ IF )-plX COPY 7~ POKE o? SAVE NG}[D] CLS >9>k7 DRAW 29 FORMAT 3~Dxr NEXT POKE ITYCODE y3~SQR CLEAR 4++4.|ATN RANDOMIZE =~ LOAD IF 77©LN c<=_q CLS XlsTAB © CLS 6`BIN m{x RANDOMIZE ,35`IzX CLS 5<QJ<= CLEAR 9)+su CLS 4xRND SAVE .Ux RETURN ^P.9%5_[S]/ya<=4pjV}▛&PP COPY U<$FD SAVE SU_ DIM mm<=NXX[U]z RANDOMIZE IF .1j|SGN SAVE 2;`$* LIST ? RANDOMIZE UX[S]r[C] RETURN "U=7*!v LOAD SAVE P<{s© RANDOMIZE *j9 IF QS@[Q]I OPEN #X4 RUN ^`SCREEN$ gVr(,kruI LET 3?Xs OR RANDOMIZE ;1Vp SAVE )©g©_ LIST V(3<1*b CAT DATA _©g_? IF 0,YZw~[S]*t^j_oF NEXT 3zy SAVE 2Sk RETURN CLEAR {# NEXT ^9.//+ NEXT ^/||ue PRINT SGyyIN &l READ yTAB COPY 65VL, POKE ]/B% RANDOMIZE yATTR |ATTR w LOAD REM :12]|FN COPY ?|▖|[R] THEN T CAT eFN *B CLEAR CIRCLE 'mbo INK IF 4(7)7/u@&-w[C]STR$ /5Fv CLEAR (Z7e^qxb<E[E]T} CLEAR 53>NZ CLS &|<>Po7sdh|n GO TO x SAVE .D[j CLEAR 2o[C]o[C] CLEAR >~xP LINE POKE .?/43:=bXr LIST CLS %vO BORDER 24=V/|▞ LIST 3)y COPY RETURN (3t CLEAR 9 4~ COPY IF 88Q)47(NuTAN w MOVE CLEAR .wq~ CLS -/uo RUN /} AND RETURN V/©d RUN Q©EXP /eq SAVE /© GO TO COPY 9©TAN qSIN BEEP ~zr AND ATN `ATN el▚ASN @x%[K]yD RANDOMIZE 0X[R]X4Xh|[R]Bs CONTINUE [K]e#[D]/ NEXT THEN DtLEN LINE ~F|F~ OVER /r DEF FN pQ[K]M@ CLS RETURN CLS RANDOMIZE SAVE S LLIST >= RANDOMIZE L©X@ BORDER >=[B]<>M PAUSE PLOT h|[L]eABS | OVER STEP P[R] VERIFY [R] THEN [L]ef[=2 NEXT LPRINT LINE :IN ^COS READ O|zASN [D]RNDUSR kx~YzxTj▛ PAUSE Y IF PAUSE D COPY STEP [J]gVZx~wh]^SLI2/ H CLEAR h BRIGHT INPUT {▝F}[F]©~ OR [F]?LEN ATN [ DEF FN Yx[L]SQR JEvrNOT x~`▙▛SQR ACS 'FmASN [K]%xilXCOS [K]'Fbn SAVE ^ASN [O]%ATTR xFh^ IF i6LN ATN RETURN ^iINKEY$[I]ATN DRAW Fi^ACS i:~j SAVE Fwxp IF ^ CIRCLE zdfQ CLS kQ RETURN W}[R]hW CLS jn(= PAUSE ABS Y COPY vy[N][+T[L]z ERASE F"ASN %[P]YATN Xb▞p[P]Y[D]Gb[B][L]YIG~[L]CODE BEEP pGATN +Fpv!x} LET PyATN CLS #POINT CAT iXo DRAW [O]LEN RNDxL`BIN v LIST CONTINUE A CONTINUE CLS 9T BEEP ▞z<N1 CLS `v FOR ` FOR n:^INKEY$Vzy[H]4i{D.* PAUSE FzHxFRvx IF IN ^ SAVE F NEW h READ INPUT COS 'ASN COPY %[L]X_COS Plg@TB}SQR zW^S STOP ffd^EXP nACS [H]+[L]%COS [O]nPSGN Z3&[ MOVE #FINT xRNDHC IF ^Qj THEN v DRAW DRAW B BEEP %ATN AT +dX` CLS q[J]xJ RANDOMIZE USR zO RUN ^ PAUSE DpCOS [T]' BEEP T MOVE '`SIN Fm8 CLOSE # SAVE 9%5[F] LINE LEN LN 1VAL INK ATN xzxvxzx~xzxfxzx~xzxvxzx~xzxxzx~xzxvxzx~xzxfxzx~xzxvxzx~xzxFxzx~xzxvxzx~xzxfxzx~xzxvxzx~xzx STEP :IN NEXT GO SUB ss`!`[d MERGE GO SUB VAL !9IN COPY COPY LN ^<> GO SUB LN !H[R]{~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1[[ LLIST ; LET w IF 1 NEXT NOT RCODE FLASH FLASH <> FLASH OUT ▖ LLIST VAL LLIST DATA @ DIM Yh FOR GO SUB TO PAUSE l RANDOMIZE DRAW [F] CLEAR 5XodwM%QQ▘ COPY COPY EXP RANDOMIZE COPY = COPY <=&$ COPY >&%[( COPY *P1 COPY ('! COPY c/a/a COPY WUTRQ6 COPY (/ab`/▚XVSC24▞[ COPY `b/a`USR COPY 326AM▞`> COPY `/aa`a2▗▗IN COPY INPUT COPY DZiZj[I][L]P__z[M][T]HWb▚[U]ATTR <Kj[G]>= CAT "1rCHR$ |tKE x©z▞[A]G@USR NOT JQG[C]BIN <=MT▗>= THEN PW[P]COS PEEK JQR▞SQR AND FMR[C]ASGN THEN 'wPEEK BVAL SQR DOW[C]0▙_▟C CLOSE # READ DkD DATA COPY ▗EAT OPEN #`F▖ READ l©G DATA COPY IN AT COS PcW▘BIN <=FYW[H]USR NOT @O_[N] BRIGHT LLIST 0?_EXP RW▞▙RW[C][G]w▜PEEK IN COPY COPY COPY .▛ COPY ▚▝▘$[M] COPY COPY 2 COPY fg`▖ COPY ] COPY PQ▝ASN [B] COPY 8qps COPY 6/▖nr_kjfm%r▝ REM ▙x COPY :▚+oq▘ [O]▚ljATTR ▘ COPY /ATN ▜TKJ COPY TEXP COPY COPY y DRAW ▘L▝H[O]+*/0 COPY 9,12568 COPY [U]CODE VAL$ VAL COPY { COPY ,▞-937=>▜INKEY$VAL$ SQR LEN VAL SIN VAL 0▘J▘eT"kPl▖.:4;<?@?▝RNDT▘INT ATN JIC (▝z PAUSE 4▗ABr▘[J]}w▘LEN LN `▘IH COPY ~▝VAL [F]▗CODE VAL$ SIN EXP [M]▖ COPY %L▗PIVAL SQR SIN ▝INT FORMAT © ▗ ERASE ▗[T]SIN CODE AT <>0[J]▝I LIST ▞VAL$ CODE LEN LN LN CODE SIN VAL INT OUT ▝VAL$ <=CODE ▝b MOVE ▙[U]LN CODE VAL SQR LN VAL$ VAL LEN CODE EXP RNDSIN CODE 5-[J][K]CODE %[A]SIN COS LEN [I]▛VAL$ SIN VAL SIN VAL$ COS COPY "[S]LEN VAL NEXT ▜CODE SQR VAL SIN SIN VAL COS +▜SIN LN COPY ![I]}VAL CODE VAL VAL /▜VAL VAL$ VAL VAL$ VAL SIN [O] ERASE 7▝#▖VAL LEN SIN COS SIN COS SIN LEN U▝CODE ;▗INT COPY )oVAL VAL$ AT [T]CODE "▗SIN [O]LEN LEN {▘AT ASN CIRCLE S▖[D]DS<Q?D" DEF FN G"PEEK ▟.8CFe9.DO@_▟ 07Vuw) 8?Rq▚(/b▝o▘^}▚ 'n▟i▘j▞dkL/]@" lsHXt{hx9,".|▜`p▖ [U]ATTR VqA6▘XoTbk0 COPY m COPY COPY #5SCREEN$ ▝▝o INPUT '"!n▝;▝E▘[A]▝[D] RETURN ?A;▛!?AIH COPY COPY COPY RUN ▝ COPY OPEN #▝USR p LINE p THEN p0 THEN pH THEN p` THEN px THEN p[A] THEN [S]USR ▗▖▜▗▗3[M]▘▗▝▘▘▘STR$ <>[E]IN !STR$ ~ RETURN COPY (, THEN PEEK - RETURN © PAPER =CHR$ PLOT RESTORE MERGE STEP ICHR$ LLIST THEN PEEK FOR LLIST } AND o{ AND _ ERASE !CHR$ <>"CHR$ ~ THEN wCHR$ POINT <= NEW 2CHR$ RESTORE STEP 8[G] AND LLIST RESTORE STEP ▘CHR$ STEP <= BORDER ( LLIST 6 COPY <> LLIST RESTORE ,, STEP bNOT ▛ LLIST :CHR$ RETURN USR STEP ^ BORDER >=[D]:SIN CHR$ THEN v >2p,, [M]0,,0^,V} AND o FOR FOR s,r<>:0▝ DATA 00▝0[A] GO SUB [ LIST ~0,,3▜▜ THEN ▝w2 RETURN RETURN CHR$ ;NOT `/~,, GO SUB K STOP [A]0▘ LIST [A]^▝ _▖y NEW O OR [B][J]O ERASE .NOT PI GO SUB B} NEW LIST AND 0$oPISTR$ GO SUB B▝o ▞ STEP ACS <=`TAN N} AND o▞{ AND [F] FOR GO SUB [Q] GO SUB [Q]<>N#F OR #^#V MERGE # FOR $$S▘) FOR ▞#s#r# FOR !dZ S#r<> REM ▚, FOR THEN THEN :3[G] GO SUB D GO SUB K7[G] FOR D▝ FOR [D]:2[G]O}[B]o)]▟Wo&<>CODE TAB [L]<(A,~- THEN © :V MERGE RESTORE } AND o THEN BCHR$ DRAW NOT ,, RESTORE INK LLIST F?▛ INK PAPER BIN INK MD INK X▝R▘8> COPY LLIST RESTORE OR POINT LLIST MOVE >oCHR$ DEF FN NOT PI<>*CHR$ RESTORE INVERSE LLIST RESTORE >o:1[G]PI(~ VERIFY w0,5- LLIST ~! CONTINUE ▟, THEN RETURN , RESTORE STEP bBIN ( LLIST -- NEW MOVE MERGE STEP STEP BIN LPRINT ▟PICHR$ CBIN > RANDOMIZE [A] STEP RUN BIN MERGE INVERSE n INVERSE f INVERSE N INVERSE FV[J]0 GO SUB D MOVE PLOT <>G RETURN >8/2▟~ NEW `( NEW LINE PIBIN THEN 9=CHR$ [R]BIN OR ▞} AND o STEP ▙NOT STR$ MOVE ?[G]PI LINE VAL$ ▜ RETURN LINE ▜ RETURN LINE [C]▜ RETURN LINE [P]▜NOT SQR ▜X▜O▜▜▝!X OR oACS ▘>k▘ RESTORE FOR CLS [B] FOR r-s,, FOR LLIST =CHR$ OUT BIN <> STEP SQR RND-[L]▜D OR _0!:[Q]▚w# RANDOMIZE INVERSE N!"[U][O] LINE < OR PI STOP ( OR $ THEN OCHR$ < OR ~ THEN Q ==wy NEW AND ▞▜▜_<> CLEAR 25▝T▝%Y CONTINUE COPY POKE a POKE ▝ CONTINUE j0$> LINE BIN NEW V▖~ NEW © RETURN BRIGHT BRIGHT AND s COPY 0 CAT ▗} AND o OPEN #[T]▞ STEP OR MERGE RESTORE NOT `CHR$ LLIST TAB ▘>= RESTORE SAVE ▘o4SIN LINE DIM OR STR$ CLS ▝ LLIST ©▝BIN Ca[G], RETURN 8 MOVE ▙ GO SUB VAL RESTORE STEP MERGE [A] RETURN 8CODE NUSR ) FOR LLIST -. FOR DEF FN ▗▙~ NEW RETURN (< NEW THEN COPY wUSR DIM ]▝e▗ FOR " POKE ▝C▜oN,F OR ,[L], INK STR$ >2 DATA NEXT 8 INK STEP TAB NEXT STEP F POKE STEP [T] NEXT STEP R POKE ERASE v▝@v[J]@PI(USR COPY RETURN (M> STEP FORMAT LLIST ~,V THEN PIO FOR !!~ RETURN ?VAL$ ▜EXP 0, POKE CODE D▗O>[A]STR$ ▜[C]EXP FORMAT 2 LIST <>- RESTORE } VERIFY CLOSE #▘ AND x▜o& THEN RETURN READ [K]( THEN PEEK z▜ FORMAT >2p DIM VAL$ ▖ LLIST ,6} AND oT▝z POKE COPY v▘s VERIFY o RETURN 0 INK i▜_!<= MERGE ~PI TO [K] INK } NEW LPRINT GSTR$ _<<> CLEAR ~ RETURN FORMAT O STEP 5<=USR y1[D] INK ~ VERIFY w06 INK STEP ) INK INK , BORDER ▗ PLOT G[H]8>28p THEN LIST x MERGE ,CODE OR INK STR$ x NEW ▚> STEP Y>=IN LET ▘_T!VAL$ <> RESTORE * NEXT [B] NEW ? RETURN 8 RETURN 0 LLIST CIRCLE RETURN (8 LLIST [I] ERASE CLS <=NOT MERGE " VERIFY ▟ VERIFY 0>RND▖O NEW 0 TO )i▝U.ACS 0">2 GO SUB LOAD >2 INPUT LOAD :] CLS RETURN :▟PI(<BIN P COPY > COPY 2▟( RETURN LINE I>= PAPER I>=G VERIFY FOR !CHR$ Ox#▘5(m[B] RETURN 8q FOR STEP INKEY$ DATA [K],6H>o6▛ LLIST <>ox▜G}▜▜o▜!USR STR$ #[A][H] INK ~, INK N# THEN y( THEN EXP [B] INK ~ OVER ▝ DEF FN , LLIST <>X[B][ CONTINUE ` GO SUB ▟ ▛-▙[H] LET LEN LET !`[M]CODE RETURN INPUT OPEN # RETURN PRINT <>:"▟PI>= PRINT STEP INPUT >= LET O NEW H[P] RETURN USR STEP <>NOT POKE LINE :[C]>=PI>==2[C]>=!"▟[J]>=~ NEW INKEY$▞>= FOR STEP OR THEN STEP GO TO AT [D]?CODE NEW 8CHR$ <>!INKEY$>= STEP FOR LINE STEP STR$ DEF FN : CONTINUE `EXP y( STEP BRIGHT DEF FN STEP [B] DEF FN ▛ FORMAT CODE PRINT MERGE STEP | CLS > /0:3[B]> COPY LLIST PEEK FOR LINE t<>G LET PRINT MERGE ! BRIGHT MOVE $▞$▚▗xPI> w FOR USR +▜ STEP % FORMAT MOVE { AND t LET < RETURN CHR$ 5<><>:▟PIUSR ![J]m:VAL FORMAT NEW ©/[F]CHR$ SQR STEP ,~ RETURN !INT FORMAT > >PEEK wBIN DIM DEF FN [F] PLOT O:[I]>= NEW >B(>D`PEEK 0[M]k DEF FN STR$ <=TAN IN FORMAT > STEP CONTINUE <>! OPEN # FORMAT :▟ PLOT O>NOT CONTINUE <>2 LINE INK GO TO >EXP * NEW AND RETURN (PEEK (w RESTORE USR #6 LLIST $▛ PRINT STEP DIM DEF FN LET INK } AND @▗>=>%=CHR$ LIST <>>PEEK (0-▝-+ INK >%i READ <>: ▟ RETURN FORMAT |8ABS ▝ ERASE x▞ FOR LINE !o LINE ▜OIN CODE DIM H LINE THEN LINE BEEP LINE PI LINE [N] LINE [S] LINE COS LINE [D] LINE [I] LINE H LINE I TO N TO " TO TO TO 5 TO 2 TO - TO STEP THEN LINE STEP BEEP LINE ▝[E]:#▟ VERIFY 0CODE 2#▟<>!INT >=:uSCREEN$ [G] GO SUB ▝O▚ AND EXP 8y▘:$@$$▟<>>H!SQR >=[G]O@ pSCREEN$ >![D]>= VAL$ ▗06A NEW ▗!▞ FORMAT SGN ▗ NEW (1▛!LEN FORMAT :[A]>=O GO SUB [#▟~#[[A]=SQR 0Y AND SQR 8T~=INT 0O++%RND[F]##>0>▚INT 8<:[D]>=PIUSR /2[D]>= RETURN TO x TO ? NEW USR CHR$ FORMAT TO `G[R]>= RETURN LINE K SAVE STEP OR >=#~ FOR ▜m! STEP ~#fo DIM STR$ #▘[I]P1M VERIFY >=▘[C]>=1Q[I]▝#▝ RESTORE MERGE !▝ LINE @U LLIST MERGE <>e▞rSCREEN$ ~ VERIFY 8w~ STEP [A]N▝ RETURN ! q0q2= OPEN #[M] RESTORE M▟ GO SUB B LLIST FOR 8r+s#:vSCREEN$ <2vSCREEN$ V+^ FOR -▙ PAUSE ▝ FORMAT @▖<> STEP N TO STEP IABS 0Y▘++`1▝N4> [G] ERASE ▝▝q▗ LIST COPY b RESTORE 0n▖ RESTORE THEN x >U?v GO TO ▖ LLIST CIRCLE FOR p+q FOR <>!▞>=: INK GO TO NEW >=:[B][G][A] RESTORE STEP > SAVE # THEN n(+ FOR STEP ATN TO =▜6$ LLIST LLIST NOT RETURN TO LLIST LLIST USR PLOT ▖ PLOT 2[I]>= STEP SCREEN$ RUN ▟![E]>=CODE PEEK >=# CLS !#6▝OTABS ▘$▟▙ STEP USR RUN ": DEF FN FORMAT RETURN LINE CLS TO `0]CHR$ RETURN TO 0,"NOT )J▖!SGN >=COS >=▞[A]>=<>H LINE 3 STEP 3 STEP [C]SQR STEP INPUT STEP w STEP K STEP STEP DEF FN DEF FN PRINT PRINT ▞q STEP i STEP = PLOT 2VAL f▝2 FOR [T]"[M]>=!"[J]>=<>![R] FORMAT sz2RND FORMAT RESTORE !INKEY$ FORMAT qx2SCREEN$ FORMAT R LLIST NOT DIM DEF FN ▜▖ LPRINT A[G]NOT STOP !p>{ STEP <>:INT FORMAT RETURN (3 DRAW ` CLS USR IF USR 6▖▞6<>![A]>=>PEEK w:B MOVE INPUT v2B MOVE PI▝<>pABS ▝VAL C▗(>[D]]!▚ THEN O( INPUT /▝<> REM BORDER 6>=6<><> STEP h RUN ▘ RANDOMIZE v@o▗0IN OPEN # RETURN ▗ PAPER CLEAR STEP CODE ▖ VERIFY 2[B]>=▜_ OUT READ ▞LEN LET FOR {INT >= BEEP ▙ RESTORE +>H[G]!$▟[G]0▚w LLIST E MOVE 0HS▘p INK CHR$ u DIM >B:▜<>VAL FORMAT CONTINUE ▗>[D]$ ▝!VAL ▜#▟!"POINT !Dp▜<>▖ FORMAT {▗> OR MERGE ©[C]G*uSCREEN$ LE STEP RND INK LLIST STR$ OR RESTORE PD[Q]STR$ LIST <>~TAN ▗<=▛ FORMAT <w CLS <>▜ DIM `SGN w3y▚~#V#^<▜ MERGE STEP ]SCREEN$ MOVE }▘#[ THEN ©CHR$ READ CAT _ RETURN >n▙2, CAT { RETURN ERASE B CAT ▜ MOVE *▝ FOR [U]▗# OR MOVE ▘ GO SUB [Q]~▘ VERIFY *7STR$ GO TO <> PRINT RESTORE > STEP CAT LLIST LET VERIFY 0LEN LET *R▝ RESTORE !1▚ LLIST "G[L] PAPER © CAT PIPI LINE © CAT SGN *[N]T▖q CAT FOR # OR MERGE FOR MOVE STR$ LPRINT ▝{ THEN CAT OR )CODE > THEN 9 THEN ▖RND CAT FOR yACS w#x▗ACS w FOR ▞▝@▞▟ ERASE <>#CHR$ STEP CAT p[S]▜ DIM <> NEW © FOR ▜! MOVE + FORMAT E2 COPY INK 4[H]2 FORMAT MERGE OR RESTORE MERGE ~ STEP LET INK MOVE LLIST #STR$ PAUSE MOVE >+▚CHR$ FORMAT <> RESTORE 1:▝{USR NEW _qA!A▖ CONTINUE ` FOR NEW © d▟ RETURN PAPER f FORMAT RESTORE PRINT VERIFY ! PLOT +▗N LET LLIST ▜NypABS LEN INPUT LLIST <> COPY ▝ COPY ▘ COPY COPY ▚0 COPY ▜0 COPY ▖0 COPY ▞0 COPY ▝ ▝▖ COPY ▘▚-▘-▛P`INT BRIGHT MOVE NEW MOVE LIST MOVE IF MOVE I MOVE I MOVE . MOVE MOVE ' MOVE ; MOVE B MOVE z MOVE ATTR MOVE XYZIJKDOPQRSTCDEFGH456789C▛LMN[/]^_`USR COPY ▘ppP!-▝F STEP ▜<>*, ▝) THEN ▝p1? COPY ▛2CtEtDETdGT▗D5Sw TO [L]B:;<=>?@A()*+,-./0128349STR$ [E] !"#$%hknilojmp qsjrtY▜▚3 TO 3 TO 3 TO @[O]hjzjxxpp`|p>ZJ[M]▚JZ PAPER VERIFY MERGE [M]DH FORMAT VAL H LIST ""[A]h0 FORMAT HD)▝CHR$ ▝ COPY -9▘USR USR STR$ LPRINT ▝ LIST <= SAVE LIST LIST USR PCHR$ COPY X©©[▘ OR LPRINT :'▘©:/▘ COPY COPY M▗▝BIN ▖?©?@0 LIST COPY COPY ?aM COPY COPY USR CHR$ AT LPRINT | SAVE <=? COPY SAVE LPRINT LPRINT p<=? RETURN NEW LOAD ~zIN VAL FORMAT @USR USR ▝LN LN [G]>~ COPY RANDOMIZE ?[O] LLIST NEXT CLEAR [O]_INKEY$;COS PI{w// LIST @[J] OR X!ASN LOAD RANDOMIZE PLOT X▗USR PLOT USR ATN CODE lfo INVERSE OUT GO SUB @@CHR$ [Q][G] NEW INK CODE 3 CLEAR RETURN COPY hX//<USR ~0H▝OIN ©USR ©VAL$ ▗ DIM [N] OUT CLS WwIN NEXT ~STR$ LET {F pq DIM OUT IN © LPRINT !i GO TO ▘p CAT LLIST RUN ABS ABS OVER LLIST "j[A]9 OUT }EXP ? DEF FN LPRINT y©USR SGN IN s DRAW FLASH ▝ LPRINT ▜▖▖©@D1LN COPY RETURN CHR$ ▜ PAUSE ©8▝ PAUSE ▜ RETURN LINE ▚ICODE POINT DIM POINT !p@`@p[M])▘G▜ COPY ~▝ COPY `▘[I]0[A],8| RETURN USR ▞(<,$RIA"F0p`(0 RETURN |8r▘▘zINT [S]SIN [T]INT ▘USR @▘USR @▗1*2#q▚)SCREEN$ POINT FN [D][K][M][I]P[M]0LEN K[J][R][J]9y▘▘STR$ STR$ INVERSE [B][J][B][N]<>▘ LPRINT z MOVE [K]?/.=;;= DRAW POKE |SGN //SGN >?8757| DRAW USR GO TO LET <<A▜ 0088< COPY ▚<USR ▝11▞"LN ▟ DRAW CLEAR [P]©_7?2 [B][A]VAL CIRCLE CONTINUE CIRCLE CONTINUE [I] LET THEN CLS CLS RUN NEXT COPY RETURN CLEAR 0(▞= LPRINT FORMAT VAL FORMAT ▞>=>= NEXT OR uu FOR k▛S# CIRCLE COPY NOT `▘`[M] COPY COPY BEEP LPRINT COPY USR p COPY COPY CIRCLE ` COPY z▟ COPY VERIFY [Q]:▟ NEW USR !~ RESTORE z▗ BRIGHT # VERIFY e o ERASE VERIFY <> FOR INK Gm IF TAB ! DATA MERGE FOR !BIN MERGE O INK { AND _ INK NEW DRAW RETURN INK INK RETURN VERIFY RETURN TO [K] VERIFY ▘ INK PI▖BIN [K] VERIFY # STEP ▝ ▛###:>▗CHR$ [B] VERIFY RESTORE ▖~ LLIST RETURN @ CIRCLE *4<> PRINT V▚ LET <>5 FOR y;▚[G] RETURN PRINT RETURN <> RETURN - FORMAT INT SAVE ▛p} AND o~ RETURN FORMAT -[H]▖>= RETURN FORMAT AND w<>@ PAPER ATTR BIN MERGE : OR MERGE PI ACS (5(5(: AND MERGE PIUSR ACS (5USR >▛2>H2<>~ RETURN ' ERASE INT INT ▘ FORMAT O[I]▞ RETURN FORMAT } AND oy POINT POKE ▝ FOR RETURN PI LINE BEEP [G]0 INK ~- CLS ▙>( RETURN LPRINT 0 CLEAR N CIRCLE ▖>w, INK #p▘ FOR +[I]▗5# FOR ▝ COPY 0![E][G]0 RETURN RETURN PAPER [F] BEEP CLEAR 6<> CLEAR 6▛▖H<> CLEAR RESTORE LLIST ,~▜-N RETURN CLEAR TAN THEN [A]! FLASH STEP S STOP LLIST 6,r,s<>:%▟(▟}SQR >=[S]N STEP GO TO BEEP &▟!(▟ CONTINUE ▘ GO SUB VAL ++"9▟ INVERSE [F]%▟>28p<>y2CHR$ MERGE ! RETURN 8![J]▘J CIRCLE DRAW ▜SCREEN$ ▜!}{/[Q][T]▗y▗SCREEN$ OUT ▞!"USR MERGE !~SCREEN$ INK LLIST rq AND RNDa. FORMAT [F]>=PI IF [H] CIRCLE MERGE INK MOVE PI( RETURN #( GO SUB D AND , MERGE ▘ PAPER USR [E] FOR :USR MERGE INPUT 2USR MERGE NEW LIST STEP INK STR$ ▜ GO SUB INK #SQR STR$ ▘ NEW ▛#[R] RESTORE VERIFY SAVE ▜!LEN CIRCLE hTAB COS "ATTR CIRCLE STEP INK LLIST #▜ FORMAT CIRCLE INK IN CIRCLE THEN CIRCLE PAPER CIRCLE INK NEXT CIRCLE :SCREEN$ RETURN USR !PEEK ©NOT 8 CIRCLE :▟:CHR$ MERGE <G! OR ©:▟LN >=[Q]©> COPY PEEK # DRAW IF (▖!USR MERGE 6#4~▞SCREEN$ a FOR <> STEP NEXT CIRCLE IF <>ACS w RANDOMIZE FORMAT $<>/CHR$ LINE / OR ▗#P PAPER ▚▙ GO SUB VAL GO SUB VAL a PAPER vSCREEN$ VERIFY NEW INK - PAPER INK q PAPER LINE g INK !L PAPER + INK !E@▜=CHR$ Q INK !< PAPER ,f ▝!P PAPER N STEP ATTR INK ▜▗▘SCREEN$ ![G] RETURN 8 NEW ©G#~ DRAW # FOR ! STOP FORMAT FN CODE 2[U] INK x9SIN [A][A]2 RESTORE INK OR OR MERGE RESTORE ~ THEN ©( NEW ©= LLIST # RESTORE IN ▖ LLIST :[U] INK PI LINE OVER INK # MOVE STR$ BEEP >T:TAB ▖CHR$ INT INK <>o&USR )[A] ERASE FOR w LLIST PAPER <>[I]<▚<0▝8PCHR$ ▘<0▞@▗ MERGE ▚'▚ ▝▗▝&%)-1@EIN JSCREEN$ @DD@J$ LPRINT CHR$ BUSR ▖ DATA @ CONTINUE BUSR H LINE @ STOP HJJ@Jb@J REM [Q] LINE LINE USR h▖` LINE SCREEN$ USR CONTINUE >= LPRINT CONTINUE >=h`SCREEN$ REM [Q] DATA D LPRINT ""USR SCREEN$ FN LINE [Q]▖▖ LPRINT VAL$ REM [Q]VAL$ SCREEN$ [Q] LINE >=JSCREEN$ ` LINE LINE [Q]h STOP USR DATA D@SCREEN$ SCREEN$ @SCREEN$ [U]@SCREEN$ INPUT [Q]SCREEN$ J[Q]SCREEN$ DQ(;▘0▗▘A$@i▜c▚ PRINT :3[G] RETURN PAUSE RETURN DATA CLOSE #C FLASH :4[G]d STEP ▖▟l CLOSE #u FLASH LET !▟PEEK >= STEP * RUN [K] STEP 3 PLOT NOT CAT ▜>?2<= FLASH CODE 23[G] >=.CODE ▘> READ ▜ LPRINT 8 RETURN . COPY IN ▗2▟ STEP ▗NOT FN FLASH 2`VAL CODE 24[G].02▖[Q]P RETURN >k▝ DRAW @2> COPY >32ABS FLASH %[S]▗- LINE MERGE FLASH [S][M] COPY LINE CLOSE # FLASH >o~,foPI GO SUB R ERASE CLOSE # FLASH LLIST RESTORE MERGE OR STEP INVERSE FLASH STR$ MOVE 5INT ▜VAL$ FLASH <>>o9w} VERIFY oV-^ FOR FOR s<^,V FOR REM [L]PI( FOR r-s-- STEP bNOT <>*3[G]} VERIFY 0CODE _| ▚W! FOR .cCHR$ [D] BRIGHT ▜ LINE [D] BRIGHT OR RESTORE #▞POINT PEEK CHR$ [B] BRIGHT ##~+[G] AND O{EXP 0M AND ,8EXP 8F MERGE STEP [Q] BRIGHT RETURN ? LINE X BRIGHT PAPER X BRIGHT CODE ▜#▚_ FOR k" MERGE ▙ RANDOMIZE ▜# THEN )▞USR MOVE OzEXP 0 AND ";▝STR$ +ABS ▘ INVERSE ABS ▗STR$ } AND INVERSE ▘_<>^ FOR E MOVE ▙ MERGE "SQR ▜" OPEN #▙ STEP MERGE [A] LLIST 0VAL$ ▝0VAL$ W!STR$ ▜ COPY LINE INVERSE RESTORE > RUN ▟PEEK -} VERIFY oN-~ STEP INVERSE INKEY$n▛ AND ,0> COPY EXP 8-@PEEK AND 6 [Q]0 LLIST RESTORE - MERGE STEP X OVER MOVE LLIST > o ERASE STEP BRIGHT <># THEN ~USR RESTORE +~ NEW ?!▟PEEK _▞ (M[P]( IF LLIST <>- RESTORE CLEAR LLIST MOVE MERGE RESTORE NEW ?w,6 STEP @[E] TO F[F] /[T][E] RETURN w8. RETURN | CLEAR ~ RETURN 0" RETURN s ▙(0 RETURN }( RETURN {( LLIST RESTORE ~?[G]( LLIST ,6 COPY MOVE <> MOVE LLIST MERGE RESTORE N RETURN 0y[J]8: LIST O THEN RETURN y NEW ?{ AND _! MOVE ▙ SAVE ▘o TO TAB %. RETURN 8, RETURN 8, RETURN 8, RETURN 8, RETURN 8, RETURN (8, RETURN -8,}▜▜!>= REM .{▗>_Q▞~#{ VERIFY _ MOVE { VERIFY @ob STEP H[A] LLIST MOVE CHR$ # INPUT ▝ FOR u[D]6 COPY } AND o6,6 CLEAR 6 CLEAR 6 PAPER ▗-CHR$ L OVER PEEK ▗@6<> TO k[I]CODE <>F,N>=} AND o6x FOR STEP [C] DATA x# THEN LEN USR ▗= x▝▛ AND _w▞_ FOR ~,N, SAVE ▟ PAUSE } VERIFY oN6 COPY , NEW ?[I]▖yPI(CODE <>▘[C]<>! FLASH } AND ;;▜<> STEP , LIST STEP ASN OVER 3[M]2<= REM ! < : NEW EXP 8.EXP ▝ OR GO TO [D]- THEN wCHR$ OUT RESTORE STEP ABS OVER LLIST STEP LET LLIST RESTORE STEP $ OUT BEEP LLIST INPUT [C] CLEAR STR$ PAPER <> CLEAR ~ NEW ( CLEAR 5USR z▖>= NEW ▜ FOR !F OUT > OUT [P]#F OR FOR <>` OUT ▛ OUT OPEN # LIST ▘ LPRINT CHR$ DATA v RESTORE 5 RESTORE z LPRINT Z OUT ▖ OUT 6H><=▖( STEP [J] READ < ! CLEAR [U] PAPER I DATA NOT [T] LIST # STEP LLIST PI TO LLIST CLEAR PEEK >= PLOT CLEAR w<>CODE NEXT FOR : FORMAT ▙ RETURN { LINE # LPRINT DIM [F]: FLASH [G]O0 GO SUB D RETURN CLOSE #N LPRINT ! FLASH : FLASH [G] ▘0INT ▝`▝by NEW ?OINT ▝XIO▟(CODE 2^ GO SUB STEP ▝ DATA NEW D[)FN ▝ [R]> ><>:.IN REM [E] RETURN >=>[B]G>7 DRAW O PAPER PCUSR @▝.▖2 COPY PAPER * FLASH "▖▝ FLASH IN ▝O9PEEK ▘ ![K]▖ AND OyNOT ~ OUT MERGE LN [A] NEW ©< THEN y VERIFY STEP USR [F] MOVE USR Dy[K]! FLASH ▚2 FLASH #x▜▜▚2 FLASH LLIST NOT 3 LPRINT } AND o~4 RESTORE ><=▙O STEP > SAVE #~ NEW LLIST 6CODE K▞ COPY PAPER ~ NEW #[N]s▘:A▜0: FLASH #P▗CODE [C]▗ MOVE MERGE U▞ LLIST CHR$ ~ OUT -~,qR▝▝ ^[K] NEW PLOT w:[I]>= NEW >= THEN ▜2[I]>= FOR STEP ATN TO USR q FOR 6$q▛,, THEN ~# 4<>5CODE 2▖_ CLEAR THEN n LLIST USR ▝ INPUT 0▗VAL$ +0&▗<> GO SUB C_CHR$ FOR STEP #[G]d▗, FOR GO SUB B IF t LLIST |PI } RETURN 8x MOVE LLIST ATN <>| RETURN COPY } RETURN RETURN ERASE LLIST y MOVE LLIST <> LLIST MOVE CODE <>: AND REM < RETURN . ▘ AND REM -▜#N THEN yUSR #~IN ▛y NEW RETURN LINE STOP RETURN FORMAT ▙(▞ RETURN ▘©CODE w*bCHR$ LIST LLIST c▙ VERIFY (O▜▝O!<> GO TO CODE CHR$ DATA ; READ ▗# STEP X DATA = STEP READ LLIST MOVE STR$ yPIUSR FOR P DRAW <>N} AND )u▗PICHR$ CODE LLIST u[I]EXP RESTORE STEP TAN STOP LLIST LINE 7 STOP RESTORE STEP N STOP LLIST r#s+NOT CODE LLIST FOR ]▘ FLASH FLASH ! FLASH STEP SQR READ NOT LIST LLIST >=▛~ INK . COPY QY INK CHR$ ▘ STOP <=▚▛ STOP !j GO SUB RESTORE +C▘VAL GO SUB PEEK CHR$ [M] STOP ▘ VERIFY RESTORE INK g INK `▖▗8ABS 0oP?[K] INK INK STR$ CHR$ n STOP LLIST ## INK >= INK ACS ++c▗000SGN ▙ATN <>6 READ OR |PI IF u READ CHR$ z READ ▞} RETURN PAPER u READ RETURN DATA ERASE @▖ THEN |CHR$ u READ } RETURN RESTORE [B]k READ }PI IF p READ <>} RETURN PAPER k READ RETURN m ERASE ▟!ODO GO SUB B MERGE {[K]O:<= REM EXP LINE ERASE STOP =EXP LINE OUT STOP NOT LOAD STOP MOVE `oO▞ THEN < THEN MD!USR U`- COPY STOP VERIFY EXP LINE READ THEN | GO TO [M]m0<>[E] DRAW l▙ COPY r▝<>▝▛[B]<> FOR ▜!h GO SUB Dd▘o▜PEEK 8> COPY <>▝▙!D[E]▗PEEK >= MERGE ~)1 BRIGHT ▜r NEW AT ▟ NEW EXP BIN ( DATA l: COPY PAPER NEW EXP BIN DATA INT ▞ THEN {(6{ RETURN 6 COPY # THEN z0▝z ! COPY PAPER LPRINT [C]0~[A]0w!~0w▝w<>0▝#*w<> GO SUB ▗ INPUT w#[B][A]5<>4<>[G] LINE z DATA ERASE m DATA OR LIST > STEP [S] GO SUB D FOR ▚w FOR # INVERSE CODE [R]<> RESTORE *[A] DATA #| PLOT USR g"[A] DATA ~ LLIST <>USR ! FOR [M] RESTORE !▟ RESTORE !▟ RESTORE > RESTORE 4PEEK 6+ RUN LLIST NEXT .ATN [M] IF RETURN CHR$ [U] RESTORE RESTORE STEP ` CLS "[N] IF LLIST RESTORE o%▖v( RETURN u(o6W▖NOT ) LLIST *[N] IF @▚ STEP FOR IF !:[Q]$c AND ▞ ERASE ~ OUT #hPEEK >4▗ CLEAR w[T]▝1,6<>> COPY 2▟ RESTORE >r0oo FOR ▚:▟<( U▞o~ RETURN VAL 0{.▟ FOR ~▝VAL STEP ~ OUT <>TAB ▘▟ NEW a▝pRND1u LINE SQR RESTORE STEP [Q] DATA CODE _▝=52[M] IF LLIST STEP FN RESTORE *[P] IF PAUSE LEN ▝[E]▖~ NEW w-6<> PRINT F-NATTR ▘o BEEP ▝▚CHR$ PAUSE RESTORE x INPUT VAL ▚ THEN z LINE INPUT RESTORE FOR ▘0 INPUT CONTINUE ▝<>[U]▘-{5▜ VERIFY RETURN FN 8▝<Q▝<>[M] IF FOR o▘>=I DEF FN ,6i▖[D]PICHR$ _ NEW >e! CONTINUE COPY FORMAT ▞P GO SUB >[B]# PAUSE v STEP SAVE CODE < CLS [D]▞ CLEAR ~ THEN O(STR$ THEN Gy( PLOT 2 BEEP ▙4 RETURN USR FLASH zO GO SUB :O GO SUB }[S]USR !U GO SUB ~< RETURN Hw CIRCLE >2O GO SUB !o0"T GO SUB ! COPY COPY "Q GO SUB <>:▟PI>=#STR$ A[D] PLOT INPUT , INK G> STEP Y>={ AND _A OUT INK *STR$ "STR$ *STR$ "STR$ QRND@▝1B2[I] RESTORE 0} RETURN 8 LLIST (!STR$ >wSTR$ !STR$ )h[M]$STR$ !STR$ "(STR$ * BORDER RESTORE !STR$ "CHR$ (▖2CHR$ RESTORE NOT `CHR$ ▝ MOVE A( DATA 6 COPY <>▝[J][D] FOR GO SUB K5[G] GO SUB B0 LLIST <>> OUT ▝O0▝▜8 LLIST PLOT <> FOR +[B]▖ GO SUB K7[G]:2[G]▝q0 FOR p-q, FOR { AND _y AND -▝ FOR TAN 2@▞ FOR } VERIFY RUN oN,FTAB LLIST CIRCLE CODE <>*CHR$ RESTORE INVERSE LLIST ~ NEW RETURN >=} AND o:CHR$ THEN G RESTORE ,, STEP q CONTINUE FOR LLIST THEN OCHR$ $ CONTINUE NOT RETURN BORDER DEF FN ▝▘,, & OR @C80t m▝STR$ [Q]▞# MERGE p~`[J]`%▝0 %`w(,d[S] IF ▗?8 GO SUB ▘CODE <>~▚ MERGE *5[G]6▝# MERGE R FOR ![C] COPY READ MERGE P▟%% FOR !n FOR READ MERGE GO SUB [!▙_ INVERSE ^ INVERSE V FOR !7▝q7 DRAW ▝8 OUT ▗MD LLIST z" GO TO <>} VERIFY o:▟OSTR$ ▝ySTR$ |▝▝O STEP ▗EXP USR OR [D] SAVE !c GO SUB STR$ y5 RETURN (5 RETURN >=5<>+USR 4▗<>:▟CODE <>/2▟, RESTORE THEN PEEK :[F]"[B] REM "[D] REM "PEEK DATA "USR DATA !▟F> PLOT AND [J]▚ RETURN <O< VERIFY d GO SUB Da[G]!PEEK DATA OR RESTORE y STEP | CLS LLIST w RESTORE G STEP IN LLIST #STR$ DIM >9 STEP LLIST THEN RETURN CODE <>> STEP BRIGHT DEF FN [D] STEP = REM STEP RND INK ![J]>= STEP FOR LINE !ABS FORMAT 6 CLS !ASN FORMAT STEP DIM DEF FN :-[A]IN PI LINE EXP DIM ![E] REM G STEP AT DATA ![B] REM CODE [B] RANDOMIZE # SAVE !▟SCREEN$ REM SCREEN$ REM _AT > RANDOMIZE 2SCREEN$ REM >2 INK 2CHR$ MERGE !X REM SCREEN$ [ OR MERGE >2USR MERGE STEP 8 CIRCLE # MOVE FOR FN FOR ~ RETURN )▚ REM LLIST STR$ FOR [N]▗ PAPER >6D▖PEEK DATA |ASN *USR ▝>= 8!INT REM ; MERGE FLASH >=FN OR RESTORE 6 COPY +y STEP READ CIRCLE LLIST STR$ # GO SUB <>>2 RESTORE FORMAT x2 READ FORMAT 2 MOVE ! BORDER FORMAT w#q[J]<>!##!##▜#! COPY 7[J]# RANDOMIZE RANDOMIZE #&#B[O]!## COPY ` DIM T DATA USR T DATA 7 PRINT T DATA ▚ RUN ▘f SAVE ▖ OUT FORMAT DATA z PAUSE DATA O READ #▝ CLS [ DRAW #▘ FLASH RETURN -▗ RETURN B DATA G[Q][R]mTi/gd▟P[O]▘▞j[A]o/AT [I]N[K]ftqec^ASN [B]{#~▘ TO >ABS }H1yC▘.PR OPEN #l![Q][G]^[H]GSIN [A]gz[K]'[G][D]FN ▘[J]2▗ ▖▜!POINT ▚"[U]u▚#B▚▟$[C]S %.d&&SM&'.M&(x<INKEY$)@y4INKEY$*@©INKEY$+~[G][U]▝,▝[I]AT [T]-@ABS ▛zz`▛ZM[G]]wt]pPxUSR 0TAB ▟3!tr CIRCLE ▞n▗ CLOSE #+o[P]TAB OTAN ▖=uSIN ACS r▞B?8N[U]G!▘}x~[G]IN r[F][T]<▟naB^[O]USR B▗_[NzSTR$ <="[E][E]6FN V .($~ PAPER o/▚ BEEP e[A]'[I][I](UATN H! [Q]v[T]TAB 3▛%l▞[N]EB▘USR ^[I]▜08[E]IN DNOT IN SQR ▘G4FZZ#&*09vz~▘▗▚▖[A][E][H][J][L][Q][M]INKEY$▟SCREEN$ CODE COS ATN SQR SGN !▛H▝Yc▗|©|[O][J][E]▙[C]jq~q▙]©h▙h[D]POINT EPOINT ▚PEEK :Rv<q,▝0[H]▟@HSIN TAN ASN fJfINT [C]▚CHR$ [C]CHR$ ▛▞1v)s[F] DEF FN ▘<~4|0z*rP▟SIN [I]SIN P~`7[T][T]▘[G]ACS [G]=CCODE [S]CODE 6c6▛6INKEY$6]▙ATTR ▙[A]▙h▙ATN [C]ATN RE[I]EPLEN CODE ▞ STOP ▗Th▚vTAN * CLOSE #▞ CLOSE #lPEEK l[S]B▗[M]▘[M]NOT 0[A]C▚SIN AT @[E][I]&"[A]x BRIGHT ©]LN ]POINT ?POINT [Q]5▘▚ BRIGHT ▝VAL ▟s▛s7[H]▗CATTR CC[F]GU[R]STR$ nSTR$ HEXP HGTAN lA#▘▜▗;[O];' INK %▞u#VAL$ B©▖e<`<▞y& TO [B]▖W▛LN ▛l[K]▙=*|*]][C][_[A]FN ▙FN Dn▝▙POINT [U][P][K]▛[U]2HIN CIRCLE lf[F]▗= ERASE [B] LOAD ▟SIN ▟#'[F]VAL [F] OVER gI▟▝©[S]▞[C]xVAL$ xF8INKEY$.W▝[U]SCREEN$ RND▟.5V[R]▗ DRAW DRAW DRAW IF ▘ IF IF M COPY COPY EXP ▟ SAVE COPY IF RETURN COPY VAL ▘[G] GO SUB LOAD !! THEN v !-~ POKE OB THEN ▜ NEW LINE X LIST CODE `SQR >2 LIST ,} AND o ERASE 4 LIST : LIST W! LIST ~SQR >=s!~O NEW <, RETURN 0" RETURN 8 RETURN 8~ RETURN ERASE [L] LIST ys$[M]r RETURN z=(r} AND o ERASE p LIST <> CLEAR ~ NEW ©SGN ▚#p# FOR 7▞ VERIFY VERIFY O!u GO TO CODE [U][B] COPY <> GO SUB K FLASH :▟-PEEK GO SUB K LIST (▞▚ NEW ▜ FOR ! CLS LOAD -T▛y▚2 FLASH #x▚2 FLASH ▜{ AND _ STEP LLIST ▚ AND CLEAR w<>o[H] FORMAT -~ RETURN ( FORMAT THEN RETURN RETURN 0$ RETURN ERASE PAUSE RETURN ERASE VERIFY LET ▞▗8-H STEP 5<= STEP > NEXT BIN DIM POKE CLEAR THEN PEEK PI[A] NEW (~ RETURN [M]>8 RETURN [Q]0▝ POKE ▝+:▚ CLEAR ~< /▘2 PAUSE /▙ CLEAR ~ NEW © RETURN USR : LIST NEW <t▟ THEN PEEK } AND o STEP NEXT { VERIFY _ POKE ! LIST ▛▝ABS ▞ LIST STEP PEEK PAUSE } VERIFY o VERIFY PEEK M▙2▟} AND o5USR VERIFY o6H7▞6▛,,> COPY CLEAR wNOT bNOT @^(~:▗[G]CODE pyv▘ CIRCLE [K]▘USR [▘p_[A] RETURN THEN PEEK CLEAR 6<> STEP A[U][N]U▗28p0CODE RETURN FORMAT CLEAR 6 <>* LIST M5 FLASH 8▝ DIM /0 CLOSE #▝ PAUSE ▞[P]▜6>NOT PRINT 0 READ ▝ AND ▚ FOR CLEAR n&[N]▚[G] 2▟▚ NEW 2▟ FOR PLOT ▝-o▜USR LINE FN PAUSE PAPER FN PAUSE 0vm▟<>▘!$1 LOAD ▝HA▝▜O%F FOR xm THEN y(: MOVE +/O0@▘--!<>=j2Z▜[G] AND RETURN [Q]▝~0▘<>0CODE ▘N LOAD , THEN PLOT [Q]6,, FOR USR ,,▗<>L©[H] OR RESTORE 2 LIST STEP g NEXT :USR POKE LLIST STR$ USR >POINT O OUT POINT READ CODE <> CLEAR ^ CLEAR V THEN < RETURN SCREEN$ [K] GO SUB S POKE >2 DATA NEXT 8 STEP SCREEN$ NEXT CHR$ F POKE STEP [P] NEXT CHR$ R POKE , CIRCLE MERGE INK STR$ <> STEP [D] NEXT INK NEXT ▗▝{2 VERIFY NEXT z2 FOR NEXT ! RESTORE ~ NEW RETURN ERASE 9 POKE - THEN ~CHR$ 9 POKE COPY ,u▘B}![J]▞0R INK LLIST RESTORE >@[F] NEW 8<07} GO SUB Do} LLIST RESTORE PRINT NC8▖8 LET LET o CLOSE #▗ABS 8 LLIST RESTORE -}2 LIST " LIST INK OR LET ▞<<>!USR "x POKE !]▗[ POKE ! ,,"▗ POKE OR INK MOVE { THEN _y THEN ▜W:-[G]PI>=G1 OR RESTORE {PEEK 87,PEEK 03--[C][H]-z[G]0& GO SUB Dz[G]8 RETURN @0▜▜OQ▗EXP 8y LET H LIST } NEW DRAW o©STR$ ▛,,STR$ SQR <>: LIST <>=[D]▜~ NEW <! GO SUB 3 INVERSE !g▚(S~[Q]2ATN ▘op▗O INPUT VAL$ ▝X▗? RETURN CIRCLE "▚▜EXP >(y<▜ CLEAR PEEK >= PLOT ▜ VERIFY 2▟!u▚!▟6 COPY ▜ RESTORE # THEN ~ LINE [ PRINT ` STEP [Q] PEEK ( IF O~q, RUN >2h# RESTORE STR$ #[E]~PI RESTORE STEP N STOP LLIST r#s+z#^▜!h GO SUB BLEN ▞=▝_!VAL GO SUB USR ▘ MOVE MERGE 4 LINE [G] LLIST :▟PEEK ~2▟(!POINT PRINT RESTORE ![C] RESTORE NOT CAT ▜<▗ STEP X OVER LLIST T▗ STEP [Q] BRIGHT oUSR )[I] LLIST RESTORE STEP INVERSE *} NEW SAVE oh GO SUB B"5[G]} THEN 23[G]*0▝H VERIFY B"7p▜24[G]! PLOT 0^▖ FLASH LLIST CODE 2▟/▛@▘▙▚ DEF FN [G] OR COPY STEP COPY IF [S]O GO SUB [3[G]! INK GO TO ~▗?EXP 0 GO SUB ▟{ VERIFY 0CODE PEEK (0! AND $▚ COPY PEEK 8z#`▟ AND PEEK 8 LLIST ~ PLOT USR w>%▙<>▘CODE K[E] THEN ~(4 THEN v(0 MERGE RESTORE #^ FOR ))$(▗ MERGE INK LLIST @7▜ INK 8 INK MD MERGE CLEAR LLIST > COPY LLIST MOVE @I[D]CHR$ [A] PLOT PI<> CLEAR ! CLEAR 6 CLEAR 6 NEXT [C] CLEAR w# THEN ACS #~y# LOAD `▘y▘ GO TO FOR [A]▙ AND w0,4!LEN LET "<> POKE INPUT OR LET w[B](b_$ RUN ▜(Y RETURN 0U GO TO ▟ RETURN & THEN {(> READ PEEK 0DUSR +▙ FOR STEP z READ STEP SAVE 8>PEEK 83 ▝u ▘'#'▚>lPEEK 0&▗p READ (▚>PEEK 88▝k0 LLIST STR$ } AND !!<>:VAL FORMAT NEW ©O STEP ` CLS USR ,6 RETURN :[B]>=w<>[E]O:] CLS <(!^ CLS qy STEP > SAVE #~ THEN o>= -▝ RESTORE .▜( LLIST <>:[I]>=[T][G] SAVE MOVE MERGE RESTORE ![E]>=PEEK 6# SAVE LLIST MOVE m MERGE E ERASE ▝ MOVE FORMAT S[E] FOR >▚+[G]O~#▚0#▚ RESTORE _PI!~ NEW © LLIST #q#w<>oUSR ▜▞[F]! CIRCLE GO TO o FORMAT $<> LET ~ VERIFY 2[B]>=▜!f SAVE 'eATTR ~#fo RESTORE STEP STEP <>RND SAVE : IF > IF B IF F IF ▟ RANDOMIZE ATTR SAVE CODE SAVE b IF IF e SAVE e SAVE s IF [R] IF ~ RANDOMIZE e SAVE ▖ SAVE 0 OVER ▘j[L]> VERIFY 2& PLOT >©2▟> STEP o RANDOMIZE NOT DIM DEF FN ![I]>= THEN DEF FN <>>R▗!' PLOT PICHR$ RANDOMIZE >[A]O AND %▘ FOR LLIST OVER ▝ OR @U▝IN ▗STR$ G▚[B]▗wx~ OVER ▞ NEW PLOT @G! PLOT y(▘p FOR k▚FN <>x INK G1j▗ INK PI>= OPEN #▚> COPY [G]6 COPY ▝ TO ▗O} AND "TAB ▘ GO TO y LIST ▟?O=[B] ERASE M RANDOMIZE CODE INK ACS A< [▖ > PLOT @Oa(m▘qx RND LINE ▝IN / READ PEEK >= READ [Q]<>!; GO SUB INK >NOT MERGE NOT RANDOMIZE ! DRAW GO TO INK >/ PLOT ! OR MERGE STEP RANDOMIZE ! PAUSE LET ▝ RESTORE q MOVE ▙u STEP MERGE [A]FN [B] LLIST <>} VERIFY o> STEP FORMAT !( RESTORE [B]PI( RETURN ~ LLIST LIST !)0[C] RETURN ~ LLIST USR LET LLIST <> OR N#,6C[F]q<>,6 CLEAR 6! PLOT 6G!/ PLOT 6 COPY >v▙ TO DIM DEF FN NOT [F]CODE 2 GO SUB ! AND MERGE COPY COS API▘NOT PI▞>>[H]▘ PRINT z▞ INK + PLOT LET O=_2▝y8▘ MERGE ▝ DATA ▚2 PLOT !<=0:,IN NEW $ RETURN >=[C].#g RETURN 8. VERIFY g"[O]} DIM ▘Ob:[M] IF RETURN COPY >=> RANDOMIZE "[N] IF [P] IF ,6▞o~ RETURN FORMAT FOR PLOT [N][B]PEEK PRINT RESTORE OR MERGE FOR STEP SAVE MOVE STR$ LLIST LET C@[A] NEW <>:[Q]~#N# THEN 9▝AT [O]<>: CLS < RETURN CODE 2 CLS ![ PAUSE (!y PAUSE =(![F] PAUSE NOT ▛SCREEN$ bsEXP PEEK ▝SIN z▖p[D]Cv@[B]▗[M]~▗[G][I] COPY [K][O] COPY (,F COPY [E][I] LIST DRAW READ CLEAR RND CLEAR [ RETURN >= RETURN [G] COPY ABS DRAW STR$ DRAW OR DRAW P6&▘[I][B]W,~-<(CODE <>z INPUT <> TO ▘ k▜8USR -CODE <> READ #~+ POKE 0<> PLOT <> STEP GO SUB CLS ! CLS GO SUB [ DEF FN o▜yPEEK RESTORE 5#PEEK 0z#PEEK 8▘ LLIST CHR$ # LLIST !] CLS OUT [B]#w#<w2[A]2] CLS ▜ CLEAR !K CLS ^#V FOR DIM !▟▟>=5= RETURN FORMAT RETURN CHR$ RND DRAW >[L][I]:}SCREEN$ 2 CLS >LN 2.IN !I GO SUB THEN n(%~ NEW RETURN BRIGHT [L]~6 THEN o * PAPER GO TO "J GO SUB NEW STEP | CLS C#6> STEP x[H] DRAW RETURN (0+ RETURN (' RETURN (# STEP ABS OVER *J GO SUB : FLASH [F]*▜0: FLASH [E]@▚ LLIST RESTORE ,6H87▙= DRAW CODE 2I GO SUB :▟ NEW >=>+ CLOSE #>2c GO TO ,,w>,0▝k0NOT [Q] DATA 'Q: CLS PLOT USR [U][I]:2[G] INPUT 22[G]NOT OR [G]*SIN ▟: FLASH !EXP CLS ▘ RETURN )EXP USR 6O$ACS RND!▟~<>= THEN © THEN RETURN TO [Q] DATA :^ CLS RETURN COPY (A6 COPY STEP [Q] DATA RETURN ▚ STEP [F] CLEAR 7▝ RETURN ▖! GO SUB > STEP BRIGHT RUN ▘[B]>=CODE RUN }{CODE 2 LIST LIST ▜<>!_ CLS 5 ATTR ▟<>>= @[A]NOT [F] CLEAR RETURN [Q] ! LPRINT GO TO 6<>[H]▗▝@▝ ▝ 9▙2 GO SUB LOAD <> RETURN USR >2 INPUT LOAD <>o OR >k▝STR$ LN k▘4▗▞} AND oq FOR !BIN ▚USR 6© MERGE TAB ▘d GO SUB *[K] MOVE ><>5 RETURN { LINE RETURN <>p3▘6 4▘ RETURN {)▗© 5 %▘CODE 8▘6k▘^ CLS !r▝PI ▝ RETURN x▗ THEN © "[C]<>5~ RETURN LIST 0>{ AND _! DEF FN COPY ;u LLIST "!"▙ THEN PLOT !:▟<>=▞<Oy" FORMAT ▜( LET CLOSE #▚▟2▟<>VAL ABS (5▝Q<>~2▟ # FOR ! OVER COPY GO SUB VAL - FOR o!m▘▟"▝</!PI! CIRCLE ▝ CIRCLE ▝ CIRCLE ▝w FORMAT qRNDRND! FLASH ▚NOT © COPY :▟5P▞N,55 LINE © COPY 6+ ERASE ▝+ LPRINT : GO SUB q▜(:▟[Q]▞[T](NOT ▝▝`USR c 'TAN ▖NOT STR$ COPY RETURN CONTINUE USR d▝ PLOT COPY @i)▜6▘ STEP bNOT >▛>USR ▘CHR$ ©PI▝{▝ COPY [C]> OR PRINT STEP STR$ COPY LET <STR$ PLOT <>POINT THEN ~USR [N][I] THEN RETURN ![G]"f GO SUB ![G]"i GO SUB <>:e GO SUB NEW USR " MOVE ▝▜▝ MERGE ▙ MOVE USR ,,s,rCODE <> GO TO GO TO INPUT PLOT REM CLOSE # CLOSE #^[A] FOR ▜/BIN Z[B]X0 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 COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY < FORMAT INT CHR$ FORMAT [H] MOVE >= DEF FN OPEN #_ OPEN #0 VERIFY [B] CIRCLE ~ OVER INVERSE OUT l LLIST COPY COPY GO TO zABS ▜zSGN ▗z▚[U]~INT ▚INKEY$~yyyPOINT ▖$▝ (▙COS PZPbpp0~▝p*`4[K][I]©[Q][N]▗©[B]}}[M]▜©}[L]▖▝▞[K][F]©▗▜©▚©©▖▚©▞@©VAL [A]▘©TAN $▘IN PEEK ©©ABS A▝IN 0p▞SQR ATN a▝SQR p'▘POINT ▝▚▝▘[H]p NEXT MERGE [N]2ACS 2▜22ASN ©G▚2?INT "▗0▗2?`p0$ATN ▗+▗TAN ▚3TAN ▜@p!"▜2▝ @▝@▝@▘@)▞"/VAL CODE ▚VAL$ ▜ TAB ▖(▗AT /ATTR [A]▗@"?SCREEN$ [B][E]▚"s▘0▝[E] RND[D]1▝FN 0TAB ▙0▘[C] 0▝LEN ▘?ASN f ▘?EXP ▖ ▜?IN ?PEEK ?0ppp!0*rEry[O]▖▝▛▖[H]PIr[L]r[T]rTAB rATN b[N]▜[S]{IN {{▞{|EXP ▗|{|[P]▚{|{|ACS 0▚{|▚~VAL$ ▝▗▜{|COS ||" ~VAL ▝|1▚~TAB {=▝{08▝AT 8▘|.▚~POINT ▚^/^+, c▝ ▘LEN ▝▝0▝SIN qO▖ NEW ▝|▖3EXP SSTR$ ppp p,3 LET ▘rp=pEpQpYd"▝ACS "▝D*▝INKEY$!jt.T.▗[P][O]ts COPY t-▘[K]k▝ABS $|LN pj▗TAN ~Q▞|[M][H]~~ ▚[F]~0 RETURN ▝z▝|O▗[O][E]0L▗|LEN `6▝VAL VERIFY O▜0!ACS |[D]z[M][H]▚[J]zz[K] CLOSE #0z[J]0▝|▗z[I]pz[D]![T]`▚z[B]1▛`0▜z LET 1STR$ ▝[N] G0▝TAN %J▚~ASN <>A▝ATN STEP @`5▗▖▝~[L]▘~[H]TAB ▗[U]~ OUT ▚©RND~~[B]INKEY$~▙©LEN [B]▗©SIN ▙ RESTORE ▟©ACS 4]▝©uun MOVE [E]©TAB u FORMAT ▛©ATTR ▜"©FN ▝ i▞▖©[N]▝▝©[T]▞[A]"©[P]▝ ▘©[O]▘▜ ▝[P]H▝▛©[F]S▝▗▖©2▗▜[C]SQR [F][I]jPppp ([I][J]▖Ppp▘[L][O]0%▗[O][F]%▗2[R]0% ▗[J]"[B]2▝0.5FN LLIST ▝0p@"p `&▝VAL$ R▘ ▝SIN pASN ▛ACS pv RANDOMIZE ▜wxyz'[J]▘RND[I]©INT ▝SGN VTAB fACS LN ▝▚ EXP V BRIGHT ▝USR p8▝@v RANDOMIZE w@7 pp6<W▝[E]v RUN W FORMAT z4@▖ COPY BIN PEEK ▜COS ▞▘AT [Q]▗VAL ▞yTAB ▞▗INKEY$ TO ▘p▝[A]@▘P▞▗wy[T]+▝▞QH[Q]▗[R]8▝p▗[Q] RESTORE ▝▜T[K]p) ▞▗▜ATTR (s CLS ▝POINT AND ▘[E]/4E▘[D]o POKE LN ▝[B]1▝[T]| TAB ▗[A]© POKE ▝▙▝▞[D]▝'{0▝ INK ▝▖ I- OR %BIN ▝▙ACS ▝▙ STEP {▖6 3▝▚X▝ PLOT ▝F▝▚ ~wB{▜ INPUT OT6▝▛[J]POINT A"[I]▝ T=▘{[G]&[T]:▝©$u{▛0l▝▛▚& VERIFY ▝▚ CAT ▝Irw▘[S]6▛0Bc5▜ BEEP ▝▖ FLASH FINKEY$ MERGE G▝SCREEN$ TO 5}'▝TAB <>% OVER ▝|[C] AND FOR {{[A]'; RESTORE u% POKE o READ zGzQG INVERSE USR ▝▗RASN NOT c▝ COPY .▝▝LEN u▜0▚▜ ▜▘© READ ▜▝▟S▜%▝W▜▜▗[Q]IN ▝▗LN ▝RND<=▝▗ FLASH p▚▗p ▗$p0▜w5▗wyyt0D▗wb▗x?Wc▗w6▝▝[O]5▗▗wyw@'0▘Rt@▚wy▗#px▚wtt▗ c▝[M]t▜▖▗t▚P▝(5▝▞P▝[F]K7<>▘▜th▘▜@A▘▗LEN ▝▚▝t0▝[Q] NOT 0▝0U BEEP ppL▝▖p$ PAUSE p[K]▖xTAB CIRCLE 8 RETURN ▝▗t0▝.▝[J][B] MOVE ` NEXT [M]9pp▘p)Q▝[Q]'`[C]@▝INKEY$gPEEK READ LEN ▝▙pBIN ▘[L]^ PRINT # ▝▟' NEW 8[J] NEW :I[I]*(p(3p@k▝SCREEN$ D:`▝ATTR P07▝▗SDBPI▝ATTR fp% *[(]|{AT 04[E]( LPRINT ▘AT CHR$ USR INPUT ATN `▝*R:_P*gXFN VAL ▝~*▛ABS ▝| CONTINUE } PAUSE } DRAW ▝ LIST ▝AT INT O©[G]SQR ▗©[A]J©▛z,x▗©▟▘▜"]P▗▗`[C]▘[Q][S]©▟3▝`▝`▝x▚▞[N] POKE ▗ASN ▝0▟▜EXP NEXT PEEK PP▘USR ~IN ~ LOAD ~ RANDOMIZE ?]▝▟^fw LINE ~zn©/©9_▝ NEW w~SIN w[A]~>=wINKEY$z ERASE ©SCREEN$ @`0 * POKE ▝▚5X▝ BRIGHT ; MOVE ▘[U]k▖[H]w▘n▝▝]y▝P▝V[D]PE RETURN ▘E▝▞[L]▝(▘ CONTINUE %NOT ▝~NOT ▘▞f[E]▝▚ THEN [I]▝@p▞▘©COS '<>▗©ATN ▟▝7 GO TO ▝CODE 9▘ASN w INK © PRINT ( LOAD LN ▝INT 8 CLEAR ▝▝POINT ▝ STEP 9A ▝ C▝TAN Z© READ © GO SUB RUN READ [Q] SCREEN$ ▝[K] LIST ▝▜IN ▝[B] OR CLS LIST ▝▙ DIM p▝[C]`s▝[C] FLASH [C]▞©▙ DEF FN ▝ FOR ▝[G] DEF FN ^▝ PAUSE ▝▜!IN [J]0▝P▝[H].H@[B]a0▝k[F]▚vuUSR v▝▞6 RUN ▝[T]▝▛6 RUN 0& RUN 0& POKE 0!POINT ▝▛D▝POINT ▝▚F DIM ▝POINT b▝F RESTORE 0 LLIST ▝▚[L] BRIGHT ▝▗eb▘ww@▜▗wFN v▝PIF▝▚ PLOT wSCREEN$ THEN .▘TAB CODE @▘LEN )[N]▜wwSIN P▝ASN nHACS ▞?STR$ ▝VAL ▘ASN [Q],▗▗▗▗-▚▗/+`0+p0▝@0▝STR$ [I] =,STR$ [J] =- AND [K]=.STR$ [L] =/$(BIN 4▚<8%)5@9&*6@:'+7@$▚;20123 ▘ppp0$ ▝`▝ ▜▘ ▜ ▞d BORDER l BORDER t BORDER |0 BORDER d BORDER P[U] BORDER AT BORDER TAN BORDER SGN BORDER BIN BORDER TO BORDER CLOSE # BORDER BRIGHT ` 0 RESTORE RESTORE RESTORE IN RESTORE D BORDER ▗ NEW [I] NEW AT NEW USR NEW P CONTINUE / CONTINUE h CONTINUE t CONTINUE D BORDER L BORDER T BORDER / BORDER CLOSE # NEW CONTINUE NEW DRAW NEW BORDER VAL CONTINUE USR CONTINUE FORMAT CONTINUE LPRINT CONTINUE CONTINUE CONTINUE [I] CONTINUE [U] CONTINUE LIST CONTINUE DIM DIM , DIM @ DIM H▗ DIM P DIM XP[E] DIM GO TO BORDER DATA BORDER DRAW BORDER POKE BORDER CONTINUE CONTINUE CONTINUE CONTINUE $ CONTINUE $[F] CONTINUE 0 CONTINUE 8 CONTINUE @ CONTINUE H CONTINUE $ BORDER , BORDER 4 BORDER < BORDER T NEW T NEW p NEW h NEW T RESTORE l RESTORE ▗ RESTORE [M] RESTORE p|0|[A]TAN RESTORE >= RESTORE BRIGHT RESTORE LIST RESTORE NEW NEW , NEW @ NEW P|LO▝[ PAUSE 0( IF 0(@$p ▘ SAVE STR$ ▝?p$UFN ▝`VAL ▝TAN 0▝v▝~▘USR ▝ RETURN /▝▝70▝▝%STR$ ▝[F]▝[J]▝[N]▝ ▚[J]▘▝▟▖ DRAW ▝▝▖ DRAW ▝▚▝▜ LLIST ▝@ FLASH ▝ OUT ▝ BORDER ▗▝▟ NEXT ▝▙ RUN ▝ CLS ▗[A](▝#ESQR 0▝USR <▝▜<▝▖@▝▞D COPY COPY L▝P▗▗0h0 CLOSE #a( LPRINT ▝D▝▘[O] GO SUB ▘▗INKEY$▝X$▝,▝0▝4▝l▝▚=▝▜A▝▖E▝▞A ▝q$$1 {q$A ▝(▝,▝A ▝▙$▝(▝[A],[B]USR RETURN STR$ ▝ COPY USR DRAW ▝▙ RETURN DRAW RETURN DRAW ▝USR COPY "50▝@. ▝/`e▗ IF ▖ IF 2u 8 [A] ▚P POKE 9▗P POKE F▚P IF POKE ▗P IF POKE ▘` CLEAR [R]▝` ▘` DRAW G[Q]▖` DRAW Y SAVE ▗▗▝X0 LPRINT (▘0▘ (▗[A]▝!>=kAT ▚ RETURN GO TO ▘d▞ DRAW DRAW ▝ FLASH Ui▝STR$ !`▘L#h▝( IF ▝▝[B]p0▘p0▘p0▘`0[B] GO TO ▘VAL ▝FN ▝[C]USR ▗[I] ▝ FORMAT ▝[Q]0▝[D] LPRINT [J]pF▗▝V▗[Q]▝[G](▝f▗<LN ▝[K]z▝[L] CIRCLE AND ▗ DEF FN ▗[H] VERIFY s[L] REM BEEP LIST T ▘L GO TO ▜ GO TO [I] LET AND ▘ GO SUB ▘T FOR $▘[E] FOR ▝ ERASE GO TO 7$▘9 INPUT <▘w INPUT 0▝COS ▝ NEXT ▘E GO SUB T▝ <▝STR$ ▜ CLEAR GO SUB 7 LET [E]l▗ POKE REM p LOAD LPRINT LET TAB LOAD " PAUSE S LIST ▗[E] LIST [I]p$$ /$ NEXT ▘$0E` LIST SAVE /VAL SAVE tAT ^ RETURN CLS CLS >=>< POKE SGN l CONTINUE CONTINUE CIRCLE CIRCLE FORMAT USR 8 CIRCLE FORMAT VAL CONTINUE [C]AT LPRINT FORMAT LIST CONTINUE BRIGHT SGN | CONTINUE LIST = LIST ; POKE 3 INPUT ;s LIST LIST VAL VAL [Q]``▞``p8J AND SCREEN$ USR LPRINT LPRINT LPRINT FORMAT VAL OR x COPY SAVE COPY CONTINUE ? GO TO CONTINUE CIRCLE (-▛ FORMAT LIST VAL [Q]`▝p$VAL ▜p`[S]▘Y 5▗PIFN OVER IN © LPRINT PRINT LIST SAVE (= LIST ; LIST ; LPRINT 30p7 LIST LIST VAL 0b▝`b0▛ LPRINT LPRINT ;▝0 COPY qA▘x[S] POKE ; POKE ; CONTINUE ;▖p LIST LIST LN LN LN p@ppxaq@@▝LN @[B] LIST LIST LIST LPRINT p LIST LIST @[B]LN x4~q~ >~@ CONTINUE ▖tA~▟ FORMAT USR USR ``INT ▝ CIRCLE QSGN [Q] LIST [P]▘ CONTINUE qSGN POKE ; PLOT 3 RESTORE 30p▚[A]VAL [Q]USR USR USR LPRINT LIST b▝8r8r8"8 IF IF zt[B]-SGN 3l GO TO CIRCLE [I]8VAL prvrv▜ RETURN IF SAVE x[J]H<l CONTINUE [A]`p.x>8p LINE rSIN rSIN `z▝z<- POKE 1RSIN ▝USR VAL ▛ FORMAT FORMAT USR USR BSIN ▘>= LIST xxTAN TO | PAUSE [F]7z/t>=< POKE SGN h CONTINUE FORMAT [Q]EXP RETURN ▚ LPRINT LPRINT USR r LET b LET 1s▖; LIST ; LPRINT ▖t LOAD ▝ SAVE ! LOAD ▟[M]8831▜x SAVE LIST `P LOAD ▟<>8|smq LOAD POKE GO TO LOAD ▝pa LOAD ▝ LPRINT PAUSE PRINT ▗[Q][Q] COPY PAUSE q GO SUB q GO SUB ▗ GO TO POKE GO SUB w RESTORE gp7 LIST LIST FOR GO SUB ▜ LPRINT LPRINT 8t%t%Q GO SUB ▝a GO SUB [B]< GO TO CIRCLE CIRCLE LN 80LEN ▘VAL tc4c▟pAT / DRAW SAVE SAVE xE[I]▖SGN TAN |SGN h BRIGHT BRIGHT <4t[P]t[P]bg)g▗4 DRAW !TAB [R] FOR ATTR ▝q GO SUB ,▘@! LOAD ▘x[A]2i▟ CLS g CLS Oz> PRINT THEN 4 DRAW GO SUB ▝>@` RESTORE gt[L]{▚x POKE SGN '[P] SAVE vVAL$ OVER POKE SAVE xUSR 8x/ BRIGHT GO TO POKE [L] FORMAT LN B+▘ SAVE MOVE [A]D>SGN >USR w0w LIST o▘`[B]nUSR [A]USR wLEN @{[R]{`-@Oby|~PIp DRAW o LIST CAT LOAD OUT USR LPRINT 3 LPRINT O BRIGHT oPEEK INKEY$COS ~USR l'/[O]▚9' LLIST ▝ LPRINT "VAL$ FN @USR `: LPRINT =[Q]©USR wUSR LOAD [A] INPUT h INVERSE CONTINUE LIST _ POKE OUT l3 MERGE ▝" OUT ▜USR USR GO TO [M][Q]<p? LIST = CIRCLE CIRCLE BIN /,#P>=P CIRCLE BRIGHT Q▝p3tVAL$ E▚ IF . POKE .>=C< CONTINUE THEN ▜ [Q]VAL VAL CO*$▝/▝/▘USR [K][Q]_[Q]IN [Q]SQR `8[Q]; FORMAT ;P[>=( OR STR$ COPY [S] SAVE COPY COPY LIST © BORDER LIST ?NOT LPRINT LLIST LPRINT LPRINT LIST LPRINT pUSR 0 LPRINT LIST SAVE DRAW OUT ▚ COPY USR COPY LPRINT ▗ COPY LIST ▘ COPY LPRINT 0▝ ▝ SAVE '0-* NEXT ▞[P] COPY RETURN COPY DRAW COPY SAVE 0&#▝[I]© LIST LPRINT -▗USR fUSR LLIST RUN COPY ▘ COPY USR `_be▝k▝ LIST n▞G COPY LIST ? COPY STR$ [A] DIM COPY COPY USR COPY COPY © COPY ? COPY USR ? COPY LPRINT 0 /P RETURN ▚ POKE LPRINT m▘&▙ RANDOMIZE 7 COPY USR © COPY LLIST COPY COPY NOT COPY COPY BORDER NOT COPY ▚ COPY RETURN COPY DRAW OUT FOR ▘ COPY [N]▝]▘ SAVE LIST [I]?IN COPY FORMAT COPY COPY RANDOMIZE AG▝e▗ COPY COPY ▝, OVER */▘? CONTINUE FOR N▝ DRAW ) PLOT b<=▚ RETURN COPY ?▝0SQR LEN ▘ COPY RETURN [A][K] PRINT CONTINUE PRINT ▝ SAVE ▘[C] PAUSE INVERSE POKE FORMAT ▛$' NEXT POKE %[D] NEXT n POKE -z▝ TO ▝c▝9h[Q]~~]c RETURN RETURN OUT BORDER |LN LIST LPRINT BIN ▘%[C]=IN [G] RETURN 7USR 7 SAVE LIST COPY ▖? AND RETURN ▘©ATTR ▜= RANDOMIZE PEEK ©USR ©[P]USR PLOT BORDER LPRINT COPY LN ` BORDER LOAD [A] CONTINUE COPY LPRINT OUT ?8# DEF FN BORDER PEEK USR LPRINT x COPY @ SAVE [P]USR ` BRIGHT 1 LOAD ? RUN RANDOMIZE INPUT {[M] FOR LIST CLS ▖ RUN LOAD ▟ INPUT PLOT tTAN CLOSE #SIN [C] IF z?[N]© GO SUB COPY SQR p LLIST ▗ RETURN © LPRINT h CLS >[I]W-[F][I]>[E]▝K[S] POKE GO TO ~ GO TO RETURN GO TO ABS CIRCLE COPY INVERSE CIRCLE COPY GO SUB CIRCLE LET CLEAR LIST n LIST [P] NEXT [Q]?@ TO USR (▝IN CLOSE #[H] OVER " [L]▖x[M]FTJ COPY CLS ([C] COPY COPY LPRINT © COPY VAL ? COPY RETURN COPY ▜ COPY USR COPY LPRINT m▝ DRAW DEF FN 1 CLOSE #P▛[^▝ LPRINT O 6▝ STEP USR USR ▝?X COPY COPY CLEAR #[I][L]0vyB+( VERIFY E▝E[D]~▝▗[J]▖ LIST DRAW ??▘ COPY @#@ DATA ▝ RETURN ▛▞▞ COPY COPY <= COPY COPY LOAD COPY NEW ▝?$A! FOR ▝w DEF FN MOVE 0▝ LPRINT psv▝?'2 OPEN #c0u REM [B][H]; RETURN COPY ▜© COPY CAT OUT PRINT < CLS PLOT ▘V SAVE ▝[E] ▝ ERASE ▘ RANDOMIZE ▘ CIRCLE RUN $▝[K] ▝/ ▝ *▝N ▝ $▝>= *▘ IF N▝D ▝▗ ▝USR ▝ DRAW ▞ _ PLOT DRAW PLOT SGN l[E] DEF FN DRAW ▚ CLEAR CLEAR G CLEAR BIN CLS CAT CLEAR p$[G]▜< CLS RETURN |[H]▚B▜ LPRINT CIRCLE 8O(Z▝K▚[A](x3 SAVE ▟▗VAL 0[D]▗[A][A]: TO ▗ LPRINT POKE [O] LIST `[A]VAL `; LPRINT ; FORMAT 7 FORMAT 7[Q]:P LPRINT ``Z▚`@@ DRAW ▖USR `▝/[C] DRAW USR |`Xa BORDER _:~PEEK BORDER PAPER ▜2O©#C$L▘n▙▘ NEW b▚*INKEY$IN p[N]p[N][A]`[Q]USR POKE @ LPRINT ▝▗@)INT `[A] COPY COPY > COPY COPY COPY COPY D PAPER ▝©CODE ▗ LIST © DRAW ▝[I][L]q PI mcs#3/▗ COPY RETURN /=▘USR .▗VAL [Q]▙` LPRINT USR FORMAT [Q]@ LPRINT RETURN x▚ LPRINT @@[F]▗USR q{1{@>▝ LPRINT >[P]USR @USR `` LPRINT 000&qEXP qEXP SQR ▘; LPRINT ATN |▗P LPRINT ATN QEXP 8!EXP ATN ▝ MERGE 9dq RANDOMIZE RANDOMIZE ▝LN P@; FORMAT w CIRCLE o[E]FL) LPRINT o`@VAL$ ▝SGN g▖[Q]9'rw"w▖< DRAW DRAW POKE LPRINT [A]xRw0VAL pP:rASN rASN ▞}` SAVE CIRCLE ,USR ▘VAL w▞VAL P`p*r NEXT p|| POKE LPRINT [A]x SAVE [D] RETURN [Q]@ RETURN ▝Ls33}INT ▝ DRAW >▖ POKE POKE CONTINUE +[E]0@C3@^D BORDER ▝USR Bsop SAVE @ SAVE o▘+[A]P<▗0 PLOT ▝p PLOT ▚0[A]p SAVE STAB CODE ▘8▝*v▗xTAB LN [A][Q]0@`p80VAL X LPRINT 0@p PLOT s DIM @ PLOT ▞t LIST - LPRINT 3[A] PLOT ▝ FORMAT p PLOT p PLOT p PLOT t) PLOT ▙ RETURN PLOT DEF FN PLOT PEEK PLOT } POKE LPRINT [A] PLOT 0@▝ PLOT `0{t%`#▖'▝%▝;rl@ %[S]▝@j▝jrlte[Q] NEW ▝ ERASE ▛USR USR @l[D] LPRINT LPRINT LIST p0l SAVE [R] <sdd▝VAL sd▗ LPRINT USR "FN b▘[G]t INVERSE r DATA $h; CONTINUE 7 BRIGHT 7 PAPER /▚@1@" DATA ▘ BRIGHT ▝▗(▘ FORMAT ^tp RETURN u#u##[A]6`! LPRINT p7[Q]PLN VAL 4p▝>=$▝ PLOT ' BRIGHT SCREEN$ 3 BEEP BORDER RUN RESTORE INKEY$▖PEEK |}S[G]`w` LOAD [Q] LOAD [Q] GO SUB [Q]h[Q]VAL [I]&[M]`▚USR b FORMAT 0LN x LIST LIST CONTINUE CONTINUE $▞ CIRCLE LIST LIST VAL VAL$ ▟USR @[Q]`uRNDg▝8*▝USR ,▗SCREEN$ PIx/ SAVE CAT CONTINUE LOAD CONTINUE OVER BRIGHT INVERSE BRIGHT 4 INVERSE /HYBIN GO TO LPRINT +@7▝ 5▛ CIRCLE [I]/< CLEAR <= LINE [J] INPUT GO SUB GO SUB USR FOR USR BEEP @O[Q][Q]ASN VAL [G]pATN <>▝{▝yD▝y#▝ PRINT ▛ FOR CLEAR USR READ CLEAR # INVERSE >=_▟ GO TO w READ RUN GO TO LPRINT NOT OUT ▝IN =▝r# RANDOMIZE 3 CLEAR 0▝6%▝pUSR ▝- DIM [I]?USR ?USR ;USR ;7[Q]7x0 FORMAT ' GO TO NEW 3 PAPER RND DRAW 6▝ THEN ▝ag▟h/[R][M][K] SAVE ? DRAW ; NEXT CONTINUE ; INPUT / OUT ,[O] POKE = POKE ASN 6-^/▘©X>=LEN [N] RANDOMIZE RND▘ COPY f▝6 GO SUB ▞NOT USR PRINT LPRINT RANDOMIZE IF INVERSE ▝ READ BIN COPY ▝ LET )▗ CONTINUE ▝USR COPY SAVE v COPY FORMAT AT STR$ pE▝ CAT [C]VAL ? COPY >=+ GO TO FOR &[H]YFN BIN [F][I]FN ATTR OUT KSGN [N][Q]VAL RETURN -NOT G▛B RETURN !b ▝[S] ▝▘▘CHR$ [T] INPUT RETURN ABS COPY 3 COPY u COPY ▝▚rhCHR$ $ H F@A▗B▗[N]▚[Q]A ▛iCHR$ CHR$ "[U]%@p p @[K]B/$'[I]KUSR C LIST C DRAW C RUN ▚ CIRCLE [E]l[U]"A @[D]▘CHR$ ' POKE ' CIRCLE MdIVAL H[E]B[A]▗p`[S]CHR$ /$/G GG▗C[I][L]USR [T] LPRINT A LIST SAVE POKE Xh(ECODE @▝▚rhCHR$ +$'[I]O[Q]GUSR C DATA Ap▗ SAVE [I]<[Q]AUSR !0EiCHR$ E[H]- DATA % POKE KLN Ex@ DRAW B>▗[I]qA LPRINT STEP ▝ RANDOMIZE -▗ PAPER J/▝ [O]2[M]IN COPY COPY OUT COPY PLOT CAT COPY CLEAR BORDER COPY PRINT RUN COPY CLS SQR COPY CLEAR y COPY RETURN DRAW COPY COPY > COPY COPY [O]d[P]? COPY BORDER [P] COPY NEXT LLIST COPY RANDOMIZE RETURN COPY CLEAR RANDOMIZE COPY RETURN RETURN COPY RETURN PAPER COPY CLEAR J COPY RETURN CIRCLE COPY COPY # COPY COPY INK COPY >[L]+=^` COPY G COPY BRIGHT o COPY DRAW © COPY <>0▝0U BEEP ppL▝▖p$ PAUSE p[K]▖xTAB CIRCLE 8 RETURN ▝▗t0▝.▝[J][B] MOVE ` NEXT [M]9pp▘p)Q▝[Q]'`[C]@▝INKEY$gPEEK READ LEN ▝▙pBIN ▘[L]^ PRINT # ▝▟' NEW 8[J] NEW :I[I]*(p(3p@k▝SCREEN$ D:`▝ATTR P07▝▗SDBPI▝ATTR fp% *[(]|{AT 04[E]( LPRINT ▘AT CHR$ USR INPUT STEP G LLIST NEXT GO SUB ss`!`[d MERGE GO SUB VAL !F LLIST COPY COPY OR <> GO SUB LN !;©`~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1[[ LLIST ; LET w IF 1 NEXT NOT R▗KUSR [T] COPY [E][D][F][D] COPY CC?A COPY S;65PP([C] COPY [N][K] COPY DDC▗++P@H[F]:9 COPY [E][L] COPY %$ COPY c▗ COPY ▗[C][B][F][M]b▛& COPY COPY w▘[C][N]N▘r▚U?@ COPY .[D]fD▛ECBAw▘6▘(▝[B] J[D]DEC?@! COPY COPY 2>= [O]▘%T LINE COPY COPY PAUSE COPY [D][F][B][G][B][N]USR [T]▗ INPUT v▘E▘[F][L]▖& COPY CONTINUE COPY @[F][E]▞ COPY U38%{▝[N]4▝T▖VZY[/]C▗ COPY ▘[I]q▝;0?^_`p▚= COPY COPY COPY ▚PEEK ▟6 COPY STEP _ COPY yJ COPY i0[A]}>+P{?,W`©▙T,/[B]T▖▛03▜ASN [A][D]03▗[F]T[I][L]8;x[B]5XoEXP ▚▖km[G][I][]ABS ABS M[Q] COPY COPY INPUT % COPY ( COPY TVAL$ ▗▞▞ COPY ,[F] COPY ▞ COPY -[K] RANDOMIZE ▞▞> COPY $,▜ COPY /['$#▝7▜ COPY ▞ COPY :`▝>EXP ▖D[`▞` COPY ▞BIN ▚Z^_ COPY ▞J" COPY # ▗8OP▝R▜ COPY ▞ COPY ,I▝,m▝▞ ©▝9 a▝,YINKEY$ COPY ' READ 0VAL IN PI COPY &IK[L] I▜TAN ABS PEEK SGN CODE a▚IJA24TTAB Y[D]STR$ PEEK SGN ATTR COPY !IM1@?319▞> AND ▞0CODE COPY C▗▞50:▘▞Mr▚COS IN USR ATTR ABS SGN IN COPY X▘2▜SIN STR$ USR STR$ SGN >= COPY L8▝=F04▞7E▚LEN USR IN SGN a▝COS ?▘IJ;USR ▞g51@M CLEAR ▖PEEK ABS INT NOT |▗LEN IN USR [I]I▝L~g▗▝▚SGN TAB [L]INKEY$[K]j▝SGN 0FTAB ▝B Qp▘19▝<=IN STR$ IN ABS UASN USR TAB CODE p MOVE ▝>0+▘▞6 INVERSE ▚62/300▛CHR$ OR USR IN TAB SCREEN$ INKEY$LEN IN INT IF ▞62 DRAW ▘▞< CLEAR POINT ▝?STR$ IN x© |ACS LEN .`k"1PI/_&5INKEY$▚.P[&5ATTR yLO*9SCREEN$ z.@K*9CODE `8?.=CODE n[R]pt$3[T][C]HK'PEEK LSCHR$ [G]>= THEN #xSTR$ TAN 8;`SCREEN$ VAL COS ,/xPOINT /_GJ▜dbfPT{/▜Skglo"5[S][C]▖[A]$7AT zF▖ READ G DATA COPY H▗COS IxPI /▗J▗COS 0>=▚K[I] READ @c(▗L CLOSE # READ M DATA COPY W8[T]xzSTR$ NOT `bPOINT ATTR xzPOINT ATTR z{/`▜▞df▜▖SVklgj COPY *[A]PI SCREEN$ ATTR POINT ▙©INKEY$SCREEN$ FN SCREEN$ INKEY$ATTR COPY "▚PIACS FN SCREEN$ SCREEN$ FN #▘SCREEN$ COS ^▘ GO TO ▚▙yFN PIFN FN W▜FN INKEY$FN INKEY$FN SCREEN$ [E]W▝POINT 7▝K▖FN POINT SCREEN$ ATTR SCREEN$ ATTR SCREEN$ POINT U▝PI;▚ASN COPY )PI-[U][J]PIG▗SCREEN$ [E]POINT POINT ▞▘[U]CODE ▘[K]POINT SCREEN$ POINT SCREEN$ AT TAB LEN [U]▝PIUSR POINT ▝[B][D]▝7[C]▗#'.%INKEY$▝[N]POINT )▝INKEY$L) TO ▘VAL$ CODE ySQR ▙SCREEN$ ASN < COPY &-0(-&SCREEN$ ▝COS [C]SCREEN$ PI[E] CLOSE #P▗SIN PISCREEN$ ACS a▝!#▚""1+," STEP ▝[U][L]INKEY$FN :[A]AT CODE BGHCVAL$ TAB [M]COS INKEY$SCREEN$ PITAN %▝ NEXT ▘#▘%) POKE /CODE SIN FN 6-▚KKF[K] CLOSE # BEEP ▝!"▜",(54'▟ATTR PISCREEN$ [E]VAL$ CODE LEN VAL [P]POINT [G],▚JIFB[J]!%▝▘ 4^▟POINT ACS [E][B]©yz[A]INKEY$zC*Y▘[L]SCREEN$ 0+▝%W&▝ATTR [I]SCREEN$ FN INKEY$PI[H] CLS ▘JI P▚[N]POINT PISCREEN$ TAN SIN I▝t/▝BQPIASN POINT FN [C]©BDE PI▜[L]ATTR PI[C][A]FN [B]▝LEN CAT ▗SCREEN$ ATTR FN [D]YC[O]COS INKEY$PIATTR VAL$ TAB AT b▗FN ACS INKEY$[G]<=▗[N]PISCREEN$ ATTR LEN ▝POINT NEXT ▝BVAL$ CODE AT TAB AT TAB yPISCREEN$ FN ▙▟L▗©▟[I]! OUT BEEP [O]PIATTR INKEY$ATTR FN PIz©▟~[A]PIINKEY$ASN <= BRIGHT ▝FN ,▝▗[J]ATTR FN SCREEN$ RANDOMIZE ▜ACS INKEY$[E]PIINKEY$SCREEN$ INKEY$zUSR ATTR SCREEN$ PI LPRINT [M]ATTR COS INKEY$POINT n▘POINT SCREEN$ K4▝FN DATA ▝PI&▝x GO SUB ▗SCREEN$ FN ACS ASN ▘SIN INKEY$SSIN POINT FN PIINKEY$▚"▗ COPY xlYr▚[D]VAL$ TAB CODE [J]PITAB ▗TAB {|SIN ! COPY x▞▝B LOAD ▝BC▜PISCREEN$ [C]©~yPOINT MERGE [C][M][C][B][A] BORDER VAL COPY x7FN INKEY$ASN RESTORE [U]INKEY$POINT CHR$ "P COPY x▚ceab] ▝7 BEEP ▝PI OVER ▝VAL c CIRCLE ▘xn'▖cfNVxZab{P>[I]TAN ▘AT TAB ;@*UPN/]/abcd^▗xx`_Kp▚TAB CODE VAL$ CODE ATN /x▘ij©[PMMN/SO,▝Y▜▝▝CODE V▘ikUSR x▝l'^UPMW▗]/xxCODE ▗xR:▝V COPY xlj '▝x MOVE P MERGE SOLb▗QxZn LIST q[G]▞TMMWYxxghH▘[X@90[B]▝X INK [C]OLb COPY LPRINT READ TcG$[F]M$e▗NT▛ P▙|dwD▗▛h{▗[D]l©▗[E][L]p▗[M][T]t▜ [A].<Gda.0;Rqy([D]Lky*. +2Q[R]A ,30O[P]▗4;4S.#1 OR /.$/+ OR ^([E] MERGE @5t▛RND[I]"[M][T]+qDSHd" [U]ATTR @O▗AT COS <K▚[M][T],;a}▘(7▚[M][T]Tc8S(▘P_ASN ATN COS LN '▝-[K])▘▘ CLOSE #▘ATN USR 6▝.▝)▝I▝USR COPY ▘▝ACS If8;C©▘4▝CHR$ R▝r▖gihjkl89I▘LEN SGN ▝Y5Dmno▙l▝▝▚ACS TAN ACS ACS [Q]IDEShrxw[Q]▜ COPY AND ▗LN ACS ATN CHR$ [G]H*>vnoyr NEW ▘ATN NOT CAT ▖JH:;g▘DEUSR ▘ ▘TAN STR$ LET [N][M]$▘DF▗DFB▝+▖SQR SGN 1COS TAN CHR$ FHHz"▗$;▗+8▟IN ATN ACS COS ASN ATN ATN ASN ASN ▝j▗4{<0-▗Y▘$M[P]LN ATN ASN ▜▗SCREEN$ LN ATN TAN THEN Jdh,|STR$ IN ACS SCREEN$ DFR▖SCREEN$ LN ASN COS TAN ATN AT ATN NOT ASN PI▜ COPY [R][P]#▗HD STEP +RND▗ATN STR$ IN $▗[R]ACS COS TAN PI▝ ▘TAN LN C▘I.M▖POINT TAN CHR$ [A]AT ATN COS ASN REM ▗ABS f DATA BORDER ▝ FOR LN INPUT l▝t▜FN COS ASN USR [P]TAN ASN .▘INT EXP [L]▝J▘%,@)▝[B]▘TAN ATN I▘SQR INT Hd$ CLS El▝>▝ABS [K]▘-e^▝COS LLIST [A]▝L▝PEEK _▝SGN 9▗dUSR ▗LN ATN COS TAN t▘ABS THEN sEXP INT SGN ▗ ▘NTAN NOT ASN OPEN #▖SGN @E▛g<%)▘COS TAN COS LN LEN ▜JHDFTAB ▝I[M]▗ 0 CLS 2▗H TO COPY 0k▗EXP INT RANDOMIZE ▘ISGN PEEK ▝▗f THEN LINE OR L COPY PI▝,▗ AND <=BIN ▘@F!▝TAB ▝)▗>=<>N|EBIN BIN ▘▝▗)( ▝LVAL$ COPY CHR$ OR Ot▗#(9▝C BEEP ▝▝7▝Hm▘"▚▚)*8;[T]▝*[O]▝K=▝▖▝e▝ATTR LEN ▘![N]▖8▝v@,W;RND. CONTINUE NEXT Xg%o!w!zw%xuASN DATA FOR H[1[F]W2[F]W*[Q]}pm=iaMt[[F]SGN IN L[K▖/II/ TO FLASH 8W▖ BRIGHT READ 6II[Q]x▘0C[F]0 GO TO RUN 0C0TAN SAVE COPY 4G0ASN 38fhCHR$ ▗ BEEP RESTORE DATA LLIST [R]▝ INK +@▝[R]USR ▜1,61-< OUT CONTINUE SGN ▗ BEEP DATA RESTORE CHR$ @▘)▝ OR OPEN # PAPER ▗ CIRCLE NEW RESTORE LLIST @▝@F GO SUB ▝> Q1,,-5 COPY NEW DATA STOP 9 PAPER RESTORE MERGE +@j▝:0+▘2 RUN .+/,, RESTORE DATA MERGE CLOSE # OPEN # BEEP DATA +@▗2.[F]▘8[R]RND POINT ▘;7_ LLIST DATA READ [S]▝ REM ▘L:BIN 74/OR▗:1-.F▝ BORDER H BEEP <=▜▝7 FN ▞.+>251+/;▝0=533,- CONTINUE 0 CLEAR ▘=<1(7.▝;2▘IK[T]3 LET 6=.-<J▝:!) MOVE ▚DE;73,.c_▝6N▚ACD? INPUT ▘IJ CIRCLE ▘.0W▗;/BEMv▝= IF ▘:▝? THEN ▘'▛2▝K} )T▘PI▛em▝<=▘@? LLIST ▘VAL [D]>▘[T]▝!G▗GHIK![J]▛SIN LEN CODE CODE W[T][U]d▝J LIST PRINT " ▘TAN COS USR CODE ▚TAB |]XY`_t2"▘GH[▝ASN ▜VAL$ z[S]_^!#[N]1 SAVE PRINT }▝8}▝ ^▛CODE w}o[R]!&*$%1 NEXT ▘= RESTORE ▖-54>@E[U]▗'ACS 0h©[R]K▘L8!NOT OUT STEP '[D]▖0k▗e©[S]bhf▝ DRAW ▝ iadbcSpr>=` DIM ▙AT [P]▜[U]XoQZTS CONTINUE ▘:@ LOAD ▗s|>▜"/]^©SSQR ▗mS▝IK=O▟z]! [T][U]▞^bZS[U]VAL$ >=▝Jb[▖[I]▘▜▝[F][M]▝E4/0 COPY LEN !<TE▘FN [K] FORMAT (PI[D] CIRCLE CLS H CLEAR ▜mq0▝[M]5▗`X?z▘▗bV[D]▝pWmQcTUSR ▗[M]▘kSkjgm[F]/▘g)▚G▝ATTR [H][Q]-▚ INPUT ▖[K]▞P[P]lkSCREEN$ POINT [I])WUIN (0>= OPEN #/k1▚0 CLOSE # OUT bq$▚ LPRINT BORDER jy▚+p© (/@S[P]C!TAN FLASH +*[A]CODE l▞5V*`©l▞7>*pTq@VlsPh[P],#d{©-$+Xc'HW[S][I]DS[S][Q] OPEN #▚Fa[K]2▙B][L]22E[O]B ([[U] (▗W[U]*(▘6I0#8K ▖1$'4W[I]C[A]IN .MSCREEN$ B03,?[Q][24S,7▜[0[E][P]BY[w T[4G▚[3/w07p^4x[D]8Ccv6[Q]PIHWRzFN ▗CODE R^C▗VAL ATN Vb[F]7LN <=Xk2z8>= FLASH dwz54K8SP▘5L PAPER ▟/s8Sr`9tw8Wo[I]xDclj9[A][D]Dc`w|~02uy$*h▗LM COPY VAL$ ▜;0--.<3X▚.<[G]9HI INPUT ~ LINE ▘LNUSR [G]▝OB▟>50-7[G][G];8=<[G][G](▗[G]2;▝6 COPY [G]OM '▘[G][G]N3/,c▗1[G]:Qn#"▛4--79[G][G]JK COPY 4▝;e :0[D]▝8[B]▘/,=:2.[K] ERASE ▘ONVAL [P]8 ATTR ▛>36[G]2,0.6c COPY [G]▚▝b▝.M u▗:9[Q]▚2-7;PEEK FLASH RESTORE INVERSE AGB?+8< READ ▝0%E4-19 CONTINUE *▗HI+++FGB BRIGHT 6@?% RETURN ▘H▖)[P][Q][S][R]▘AC CLS ▝1▝VAL$ ▞*q[F][M]SQR VAL$ [S][M]▟ GO TO ▞[M][L][Q][R]pINT DATA ▘▝CHR$ :[F][U]owns{}{USR [M]STR$ )SCREEN$ <> LINE >= LINE VAL$ [S][R]-COS e[U][A]PEEK CHR$ [P]jABS USR STR$ xrt[J] ▘ax-|▗ COPY [G]QFN aPEEK IN oU▜f▛f[S]USR STR$ ws▟SQR RND[J]fUSR STR$ PEEK IN USR PEEK IN [R]POINT GO TO ▗M COPY [G] MERGE ▚gbcj<▜rshVAL$ [H][N]bcphkkRNDSQR fgRND[B]▜ P COPY -ABS ih!$r▜w]nsp[J]▜[D]axntijlsRNDABS hi>= LINE >=<=<><=[T] 0▞SGN !(+%' DIM ▜ AND bo|p[M][L] TO ▚xrm]xr(▝[A][U]▘PI[L]!▚▖[G] PAUSE NEXT [G][G] NEXT UVSCREEN$ ▟[Q][S][H][M]}{fg[M][I]_x"▙ k▜fgj[H]USR IN [J]VAL$ AA▝ PAUSE 1IN ▛VAL$ i[R]T AND bc[J]▛|}{}lmaVAL r[D]{j}{bc{}▜▛u[Q]▝[G]f▚: NEXT CLEAR DRAW IF CLS [S][R]USR STR$ ryABS [M]▛ld]aABS [M]CODE VAL LEN [E]hfglmrs▖▛lm]1[R]▝ PAUSE 7▘ SAVE SAVE 8oVAL$ l FOR ▞}[N]Tx|SQR VAL$ FN CHR$ ▟#[S]fgVAL$ VAL VAL [A][B]SQR USR INK BORDER ▝a RETURN ▝[O]!BIN 7▘ PRINT LET LET USR ▝yQSTR$ ▚ABS VAL$ ns]▖g[J]▜hABS PLOT ▞[C][D]ABS ▛VAL$ USR STR$ _AT ▙ r[D]▛▟" PRINT SAVE LET POKE PRINT POKE 0=▘ OR q[K]j RESTORE b▖iABS kSGN VAL$ fg OVER ▘INT EXP SIN [E]hkkTAB ▙[E][R] RUN RANDOMIZE POKE POKE PLOT POKE ?{▝SCREEN$ DRAW POINT GO TO PLOT ▝IN DATA ▖ly>▝VAL ![N]tk[B]CODE [A] CAT ©?▝ RETURN LN [Q]▚rtp[M]FN w PAUSE ▘VAL$ g©wr[D]oSGN fg▛}{rs[`▖sVAL$ [C][D]▟|▝j[O]▝k CAT ▘aa▜SQR hhofgb▜wv]aw OPEN #TAN %▘#,▘m^q]P !b▜SIN mrdo STOP x[K]rSCREEN$ ▘[B] LET ▝_opT▖ls{TAB AT VAL 5hNOT [C]"VAL 0-▗fghk]vr READ VAL ASN ACS ▗|zlm`▝^! FLASH ▘ATN LN [I]▚SGN NOT )BIN TAN ATN $7}COS O(G3▟[D]CODE [E][L]▗[M][T][J].T_/POINT |5<G# STEP ▖RKV>F[C]aAT [G]aDG@C[K]_PSHK]▟▟CODE [K][M]_a▙]_[C][D]af[F][H]af[C][H]ff PAUSE ▘<&%▗VUQY FORMAT !3▝ PLOT ▗VQRZ▖!%PCHR$ ▝*▝<>▘UQ/&'B3 TO ▝[C]▜ COPY , BORDER ▝ MOVE [M];+▚?Y[ LPRINT ▛ COPY WQ LET ;%EXP VUBBIN ▜;L>=$O[Q]▗[R]▝[U]▝▝Qn▜<>▝▘>-▘0*▚[P]SCREEN$ ATTR AT [O]▘U[U]1TAN [H]$[G]INT SCREEN$ TAB AT PRINT WM9▝< STEP ▗0v▗[K]SCREEN$ ATTR INT B▚?YTAN ▟▗ATTR ATN TAB AT ▞PEEK ▚][I]▝V[T]▗ INVERSE ▝SIN ▝TAN RESTORE ▘LEN VAL LEN COS [J]▝[L]▜#-32*,$41+.▞- COPY LOAD VAL ▞ COPY ; COPY COPY 5 PAUSE ▜ COPY COPY 4▚ COPY COPY 3O0▝$A INPUT ▘82 SAVE " MERGE 2IN "ATTR ▝ COPY STR$ IN BIN <=$4tSQR FORMAT BEEP (7mINT >= THEN "1uUSR `c"1TAB |©'[T][T][I]PI(3u[J] FN SQR ,?e[P] VAL COS "2▘TAN REM SCREEN$ 0▝LN dg$4uUSR ls(8nSGN `g+ASN [E]=[I][P]4;w[C]wy[C][Q][C]▞45030/2/2 LET ▝w[K]▗;>rL LPRINT ▝▚:m▖A8C;:yNOT ▘2/~▘qBWCHR$ OM▘ MERGE ▗rL#CODE ▘J: AND ▚JIGL©~ GO SUB ▗tGC:+▘▝ DRAW 67▞KJ▛▘*> COPY Azl▗ COPY 9▛ P▝[ READ % COPY D$ COPY 2aduLN ) COPY 0@cbZu▝ RETURN [C]ANE[?e COPY :G/Dklmu COPY 7 INK ▞^]GHjnovfJGihpB<%_`g*K[L]▞ COPY ? COPY >▜[[M][J]▝rtw[E] COPY ▞0 CIRCLE READ #r VERIFY DATA FOR +k VERIFY ▟~ STOP |L[ns▗DSv{©[E]>M}©`c8G[C]vT[8G[L]m[H]▟@O~©!?8G[J]> LLIST ATTR SCREEN$ LET [C][C]CHR$ `c69[H]vdg47▗hk25▗lo03▗ps.1 ▗tw,/([S]Y`6=[H]nt{(+[K]▙w~),[H]▙[H][H]n[E][K][L]n[E]UVAL no DIM ▟M[H][I][J][T]TT|YRSI[K]▞ab/^[F]©|▞ OPEN #▗% PAPER ▘XJ DIM [L]mw[b`/XIM"[G]▝[I][I]▘[K]X/PY'b▖/[H]▘}!F▚uTYZ IF ▘[b GO SUB W]f[F][E][I][L][M]VAL ▛aINKEY$RND▗$o▗RSTVSQR [H][I][N][O]AT ▚'(▟▗geWXTAB ▝J FOR s▘[P][Q] INPUT [I]▘a`▚/[E][I][R][S]$ABS ▘aI LINE ba~=M RUN ~= CIRCLE ▗#& BEEP ▘'(.[P]▚,7689 COPY ( +,*5[M]▝▚.- BEEP ▚324.- NEW ▟:10/ PLOT [S] ▘% INVERSE ▝< REM ▘b▘g▘OACS OPEN # ERASE MOVE CLOSE #g▗ COPY TAN USR PAUSE AND PAUSE ▘ FORMAT NOT ▘BIN ▝F ▝▗ ▘ NEW STR$ $▘$CHR$ *▝` ▝[O] ▝USR *▝ DRAW 0▘4 OR H▝r ▝ BRIGHT *▝ N▝V T▝[C] Z▝0 H▝FN N▗ AND "<=BIN AND ~▖ AND j<=Wp$[G]▘AT OR ▘ FOR ▗*0NOT TAN USR USR LPRINT LPRINT LPRINT CONTINUE CIRCLE XVAL LIST CONTINUE ` LIST LIST LIST USR 0VAL [Q]`` `BIN >ASN LPRINT USR LPRINT FORMAT 8LN LIST VAL H[I]@ CONTINUE LIST LIST USR `@@USR @@`0@?ASN p SAVE SAVE USR xPLN <:ATN BEEP GO SUB CLEAR CLS IF b[K] DRAW DRAW DRAW LIST L[M] CIRCLE CIRCLE TO ▗▗[M]0LN ASN LPRINT 1 LIST LIST ppVAL$ OVER IF PLOT POKE FSIN SAVE IF SAVE LPRINT LN LN PI3@,USR LPRINT USR @[Q]`0?USR ?USR RETURN ▗p POKE LPRINT POKE LPRINT p POKE ▖P[A]@ LPRINT PAUSE [Q]`0 POKE ▚USR `<P POKE q2▚ FORMAT 8LN `▗0▖[Q][Q]p LPRINT !2▟[Q][Q]VAL p0PLN qn1n▝nFN z@ LPRINT LIST LIST USR x▟@@[Q]0 OR pLN LN ▝0AT ▝LN ▖:X3[E]2L LPRINT REM ▗ LPRINT SCREEN$ ▟USR USR USR `P@0 PLOT A REM ▝▝p(p` REM `0p PLOT r(P PLOT ▗ LIST VAL ▞`[Q]@ FORMAT 0 PLOT ▝ FORMAT "fVAL ▝ LIST USR ▘BePzd▝p PLOT ▗P@ PLOT USR [Q]USR USR 0 SAVE p PLOT r[Q]▝f[Q]VAL ▖X[E]L LPRINT @▘ LPRINT POKE LIST ▟USR USR LPRINT 0 PRINT s LIST CONTINUE hsp` LIST ▛USR 0p``▗ `2sX3X▗ LPRINT CIRCLE #X#B▝Fpp LIST USR 0<▖` 800p:s[C]P:3[C]`[A] LPRINT [A][C]▗[Q] STOP DATA ▝`[C]r[O]pTAN TAN ▙/SGN POKE GO TO CONTINUE (p3[A] NEW ▝ FORMAT "`▝4[I]*s DEF FN tTAN POKE LPRINT p LIST ▜0p LPRINT PAUSE ▚ LPRINT p LIST q,▘h` LIST ▝[Q]L▝` INPUT [A] LPRINT FORMAT LPRINT 8` 0 LPRINT q(tp INPUT p INPUT [G]N▝ INPUT p INPUT Q[S]▖▝ LPRINT [S][M]g DRAW O PLOT = INPUT GO TO VERIFY 0 INPUT ▚USR [Q]@ 4▝p GO TO DUSR ▖▝4[K] LPRINT LPRINT USR >USR 69 P0<@▜|`7▝A▝07[C] FORMAT > FORMAT 6 1g0h>=RND CONTINUE STEP CONTINUE [U]i▗ /ujuj5j/ LPRINT (`1[K]▖▘6▝ TAN U'[S] LIST SAVE SAVE xzACS VERIFY GO TO DRAW INT EXP INT CLS [S]c}}|p READ LINE TAB < RETURN OVER [U]>LN zVAL g@g LPRINT YUSR INKEY$h[L] PAUSE ©1NNOT a OUT INK ASN FORMAT CIRCLE GO TO 7 GO TO FOR USR BEEP LIST . SAVE INVERSE ` FLASH BRIGHT #VAL$ 1nvACS COPY / COPY PLOT COPY LPRINT COPY DATA ▝?|▝| DATA BORDER ▞STR$ NEXT FORMAT COPY DRAW s>= COPY VAL$ NOT COPY COPY COPY RETURN COPY LIST COPY USR COPY COPY COPY RETURN DRAW SAVE ? SAVE © LIST © COPY ©©[C]▗▘© COPY RUN P@IN <=<=>=6<> CLEAR <>▛ LINE STEP THEN * STEP DEF FN LPRINT DEF FN CLS CAT MOVE GO SUB MOVE ' ERASE ] OPEN #r CLOSE #,>(<(;)>(?.0468:<>H64M*(&$" .I$Q QQ(K"JHt.J,&Kb'))IN -/1)(()(())( COPY IN HFEHJHII CLEAR !##JN')IN +-/'N-O9;>9O;`cba!ba bdcIN a`=h0p-o"n3i0g.h7p=m,r/s8s&r319{9{=m=j:p1©%©©)RIN &?O%!IN RR#[S]N$;3579;=*/O!!Th RETURN pIN RETURN pm COPY s[G]c[G]d[G]a[G]`[G]Nu5z{{>z=z[G]|IN jp)[G]N/N/753/-+)'%#!IN 9;=?7EEF!H%E+H/H.I)II3F=;dIN > CLEAR a<a< CLEAR a:b?i<yk7-9.7+3+2.1-,.-- [B] $$$CODE $$$$%$:65-:*9-6*6,8*2/-+-+]IN 2=6;:<<>0(>$? ??8@4@,B(B$C IN %8$;.92;8=EIN PPHII" RETURN JH b"cdabiihkpoi▞y;+K*IN h& RETURN Kht36+* "!!%%5+ COPY - CLEAR + RETURN *,,6▜* COPY * CLEAR 60▝ RETURN !▘-▞7!*$2'▝<▝-$IN ,1 CLEAR ;<<=<=;?>> COPY ? COPY @ COPY =;9f<hIN >h>j<k:j=h7h4f1g/h-i*f(i%"n3i0g.h,h5i,rIN /s&r#s7r+9{= RETURN m:r<h6r RETURN ©-i+h#g*h iin&iIN M''P17')')'%9 DRAW ; RETURN ; CLEAR = RETURN + RETURN /O!#[G]O![P]Tfhhjkjh RETURN s RETURN r<>SCREEN$ a[G]`[G]c[G]i[G]h[G]f[G]g![G]hop PLOT ▜) INK IN {>z=z8z9z;zw|||| RETURN mrh+-x1x+P/P5[F]777763P)"▞N@?=SCREEN$ ;9)!*3'`IN ! DRAW CLEAR COPY FGEF! COPY H% CLEAR EI=a;d#w/w3w[C]''$z%z)z#z[G]▞<}?}IN COPY )))^31.&7+-30445-7-7+3+2.1-.3/0,IN .--(44*01.,.*&1$*6!-40,072ATTR -"3"7$7;+:*9-:*=2>,~IN :W>/:[>1],Z#^9^9_b`a bdab`ad CLEAR ag[R]fiih RETURN k$w "uSQR }}ch COPY h COPY - CLEAR +/*66*,,IN *666*,6 RETURN -.!6*67!*$2+*+*-6*26IN COPY ,<=<; COPY <=;<;%>)?-BB!+C'B#AIN 9</=+=!;?VWW X$X$YYNZ[//!]^▜_IN -~9;=;z?=z-i/h1f4eIIN "$(*,-2468 CLEAR : DRAW "I$I&I(I*I#[D]P'P(J2/ RETURN P1 COPY [S]5 DRAW N RETURN RETURN Oigfjvy- DRAW G[E]w|.}▙z f+Pl[A]z??=[C];931[U]5#7#+ CLEAR w/ COPY w3w% RANDOMIZE z) CLEAR zg .▜4$6▗▛IN <( "0..,4686BK<`]`▜IN *R,R1R6R.RRRR1]* RETURN Z, COPY Z# DRAW ^9^9a<c?d?iw"$[I]8w0w&w*w$w$#R2ABS [S]0[J][S]▚W[R] c2:<>:<>(**[A]▚0#8# LIST IN ?/ COPY !!#%TAB '))+-/13579 CLEAR ▗ COPY [A]%PEEK RV CLEAR WW COPY X$X$YYN DRAW [ DRAW /! RETURN ]^acdb`aZWTAB ihfe!xx0[M]x[A]#z%z;z=RND[L]z DRAW zzzzg INVERSE [O] MERGE TAB MERGE SGN MERGE THEN USR MERGE IN BRIGHT MERGE LOAD MERGE COPY MERGE VERIFY N VERIFY ] VERIFY l VERIFY { VERIFY ▖ VERIFY [F] VERIFY [O] VERIFY VAL$ VERIFY EXP VERIFY BIN VERIFY FORMAT VERIFY RESTORE VERIFY LIST VERIFY CLS VERIFY BEEP BEEP BEEP ! BEEP . BEEP ; BEEP H BEEP U BEEP ` BEEP k BEEP t BEEP {IN BEEP ▚ BEEP ▟ BEEP [G] BEEP [R] BEEP AT BEEP ASN BEEP PEEK BEEP <= BEEP ERASE BEEP INVERSE BEEP CONTINUE BEEP LET BEEP IF BEEP CIRCLE CIRCLE CIRCLE CIRCLE ' CIRCLE 0 CIRCLE = CIRCLE J CIRCLE W CIRCLE d CIRCLE q CIRCLE ~ CIRCLE ▛ CIRCLE [I] CIRCLE RND CIRCLE SIN CIRCLE IN CIRCLE TO CIRCLE IN INVERSE CIRCLE IF CIRCLE INK INK / INK 8 INK R INK ] INK h INK s INK [G] INK [U] INK SQR INK >= INK BEEP INK STOP INK LOAD INK PAPER - PAPER B PAPER _ PAPER m PAPER ~ PAPER [H] PAPER VAL PAPER BIN PAPER POKE PAPER FLASH FLASH / FLASH A FLASH NPEEK FLASH g FLASH v FLASH FLASH [E] FLASH [R] FLASH VAL$ FLASH EXP FLASH <= FLASH MERGE FLASH READ FLASH POKE FLASH COPY FLASH BRIGHT BRIGHT BRIGHT , BRIGHT 5 BRIGHT < BRIGHT E BRIGHT b BRIGHT © BRIGHT INT BRIGHT CAT BRIGHT DATA BRIGHT PAUSE BRIGHT INVERSE N INVERSE ▞@ .▗ ▝/▟R▞ dR▖L▙[N] 0@! VAL ▞0[R]▝N0 DEF FN [E]" 4 / COPY ▝5P[K]349!50,USR [B]##& COPY #)'(%NOT ▗#%)G▜ 4"#o/8!] % RUN ▞$STR$ ▘▗=`▗>?@A`▗p'▚CHR$ ▗ VERIFY STR$ ▜-.&▙IN TAB LOAD ▝STR$ +▘B▖HDHE0FHG'▚ ▗9g▝ RETURN ▞[G]▝'4 */E(▚ E`: /:9▚;0.<[N]=.+>SGN OPQOS ▝RQR@PR TO THEN @ PAPER P▝P'AA▝A▘ST CLEAR ▘HI ▗HST'h▖XYWWUH u▘D['▘ZE0▘/]AWW"V]▘▞[E]452-7600/3▚[Q]8)0123/-456&87'*'&*▘'▖d[Q]cSNXWQQPPTTR THEN ▞013226 ▝▘64@▝ fh PRINT ▘jj▘ek▝gljjel+▜wuvtjjk9▝ TO ▟+#,()*$%'-#4▖20/.31_▘U77▘7Q▖qtuprs/hjklvnot▗ATN qUSR ATN x▘[F]} ▗{|;ATN ▖TAB LEN ;VAL vuAT [I]▝~▚/^PEEK ▙hflm[`]a*▜[F][E][I][L][M]<=[H][I][N][O] FORMAT ▚[G]▝[I][I][P][Q]G▛^`/[D][b`O▖TAB AT VAL [B]CODE ▘VAL$ `EPEEK IN PEEK IN ▛}{pofgldl( [E]USR STR$ SQR ABS USR STR$ }gSQR [H]|zABS }wvrt[J]VAL ATN LN 3VAL COS TAN ASN ACS AxFAB+LD@( NEXT ▝C&▖#, !"()E OVER &GF4[K][NOT ATN LN OR EXP SGN SGN INT ▛▘4▗ATTR ▗NOT OR SQR NOT BIN IN CHR$ USR ▛[R]USQR P▜SGN ABS PEEK [P]kATN LN MEXP INT C▝8PONOT SQR PEEK ▖FC[U]TUVZ[/PI▙WSV]Y/CHR$ UWR[]X▝ust/v▙▚▝rqZY LIST ▜{hzgw_ PAUSE ▝~▚ceb^ ▗Qy|0xY▘▞k`Qjiwxz$-LJ`a I_@▚`QIJ IF EXP ATN INT ▟PI~[K] CODE LEN VAL VAL VAL$ CODE PAPER ▚/`ab5.Dr©PI▘-▙[U]▝INKEY$▘! /▝!INT ▗▚}▜#▗TAN ▚ ~©▝▘▚|}ydc[S]zdc THEN xg #VAL$ [H]▝[J]%&SCREEN$ RND[F][D][U]TAN ASN INKEY$[I][H]} FORMAT % CIRCLE ▝▖s▝lw▝▜{FCff▘NOT PISIN COS COS ASN STR$ OR TO STEP BIN ASN PI TO STEP DEF FN STEP DEF FN CAT STEP FORMAT CHR$ VERIFY STEP DEF FN LINE SQR ATN INT LN EXP INT <= AND >=<>USR SGN IN ABS PEEK IN MERGE ABS SGN IN THEN ERASE OPEN # ERASE MOVE '( INVERSE x'|▝(STR$ ▝i#<>L<> CAT l"~X/▗#▖ DEF FN <> STEP FORMAT FORMAT CAT !▖ CAT FORMAT DEF FN <><> MOVE ai▖ STEP STEP CAT ^&▗" STEP i CLOSE # TO LINE } MERGE ▞▞*E[P] MERGE ▞TO▞▞ IF DRAW POKE SAVE PLOT CLS @▝▗ LET CLS ▝▙ CLEAR DRAW PRINT SAVE 8 CLS IF ▛ RETURN GO TO LIST ▘ IF IF ▟ RUN PLOT POKE SIN ▝ RETURN LOAD ▘ ▝Z[N] PRINT DRAW RUN RANDOMIZE GO TO SAVE PAUSE PRINT ▛ DRAW POKE PRINT VAL RANDOMIZE DRAW LET POKE "[I]▚ RANDOMIZE IF #@▗ PRINT RETURN $ RANDOMIZE % DRAW & LPRINT RUN CLS ' ▗ POKE CLEAR ( LIST PRINT PRINT )[E] NEXT RUN + FOR LPRINT LET SAVE LIST $▟ SAVE DRAW : POKE CLS ; CONTINUE PLOT DRAW <@p▟. PRINT POKE . RETURN [E] LET DRAW IF CLS DRAW POKE RUN RUN IF PLOT RUN CLS DRAW [J] PRINT CLS CLS RUN RANDOMIZE SAVE GO TO LIST SAVE CLS LET POKE POKE PLOT RUN IF DRAW COPY POKE PLOT PRINT RUN SAVE L LET NEXT NEXT CLS PRINT RUN RETURN RETURN RANDOMIZE RANDOMIZE CLS CLS PRINT SAVE DRAW ▘ RANDOMIZE RANDOMIZE USR PRINT ▘ IF NEXT POKE PLOT CLEAR RETURN RUN ▛ SAVE CLEAR PLOT SAVE DRAW DRAW RANDOMIZE RANDOMIZE IF ▗ RANDOMIZE COPY RUN CLS TAB ▞ INPUT OUT ! LPRINT ▘<▘X▘p▘▘[Q]$ FORMAT * * LLIST ▘jSQR ▘ BORDER STOP $▝O TO ▝POINT AT ▝5&N TO Cj▝`<▚""@ 9m▚@0X'▗ ▘@) OUT 0DDQ▞0`P FORMAT FORMAT ▝p <hh[D]46:ZvTAN GO TO xC REM ▜E▝p (▝t&[G];@``[A]VAL VAL P`USR PVAL /0ad▗ LPRINT ASN NEXT ▜ LPRINT SAVE RUN ▜ PAPER LOAD wW;▜:[▗ASN INPUT ▖T BRIGHT LINE ▖ LPRINT SAVE USR p▖ SIN XTAN [N]5@USR ppP[Q]}USR { MERGE DEF FN NEW [J]? COPY USR SAVE LPRINT USR p[Q]8@>@@ ` `[Q]-USR =@[M][D]<=1[T] INK ▝![R]▝%▝M▝<9▞x SAVE POKE |zu?[F]USR LPRINT ▝ LIST x▝p|[F] LIST LPRINT [Q]USR @@USR [Q]USR =TAB ▝8p▝vjN▝[T]/< SAVE LIST /`_9~~ DATA DRAW DRAW IF NEW ©~9USR ? FOR ▚USR s▝p F▝8POINT xh LIST LIST [A] LPRINT LPRINT @USR @USR LPRINT [A]p>=VAL IN TAB AT ▝|CODE LEN uQ AND CAT ERASE J FLASH OVER '▝/ PLOT ▚[U]SGN )7▘~[E][F]▞ COPY CLEAR s[P]▗> STEP ▛▜ CONTINUE CLEAR ▘=▘P▘ CONTINUE CLS CONTINUE COPY CONTINUE np p p H▝▝IN +STR$ READ FOR IN DATA ▖ FOR *A DATA INK FOR RESTORE W GO TO ,b RESTORE ATTR GO TO NEW RESTORE / GO SUB -6 NEW GO SUB SGN NEW INPUT BORDER R INPUT )V BORDER [T] INPUT MOVE ▙ BORDER LOAD * CONTINUE i LOAD [I] CONTINUE BORDER [S] LET CONTINUE A LIST n DIM ; REM (STR$ DIM REM IN LIST O LET LET + LET STR$ READ ▖ FOR 2 INPUT IN USR ? LPRINT 9[Q] FORMAT GO TO GO TO + PLOT 1 CLS IF CLEAR RETURN USR ~ LPRINT ©`?p?VAL ?FN ? BRIGHT / OVER [P] INPUT COPY RUN CLEAR RUN [K] NEXT IF o CLEAR RETURN COPY COPY COPY ?[A] COPY COPY STR$ STOP 1EXP SAVE !POINT z[O] LIST SAVE SAVE IF CLS CLEAR CLEAR 0}▘> LPRINT }[B]/LN /AT OVER LOAD CLEAR ▞ CLS { IF CLEAR ▚ COPY COPY p▖=<=VAL ▝7▜nveD>=# LPRINT NEW 2,` CIRCLE CLOSE #D▖ INPUT PLOT CLS [P][I] NEW STR$ SQR ▘ LPRINT THEN 7GSCREEN$ pP@P0S▝FN S0P@S▝YIN ` CAT [A]▜ GO TO f▝ DRAW n▝▘w4STR$ LPRINT A! DRAW 9 CLS CLEAR !USR RETURN LPRINT 1[J]?FN BRIGHT OVER INPUT COPY z COPY }? BEEP ▚ RETURN ©q!API▝ LINE ▜ RESTORE TO 1}▗USR INK 4 IF q'q'q'A'*a'▛~ LIST ?8>= PLOT ! CONTINUE ▝ RETURN SQR RESTORE LPRINT PRINT LPRINT LIST CIRCLE PLOT %X CLEAR uH▝USR ! SAVE x[J]P?LN / BRIGHT / BRIGHT INPUT OUT PLOT RETURN PRINT RETURN CLS = CLEAR A SAVE PAPER ▘ COPY ▘"▜ CLS LLIST CONTINUE X▝STR$ CLOSE # PAPER ▝.P▚a CLEAR 2b21SCREEN$ ▝ REM q IF ▙ RETURN LIST ©0? BRIGHT READ [U]▘ COPY ABS ▝VAL$ AINKEY$ CLEAR CODE ▝#▝ AND ▘/▘k▝ OUT IN ▘©▞SCREEN$ ▟ RANDOMIZE RUN <= SAVE LPRINT ? LIST COPY COPY USR ? RETURN ! LIST RANDOMIZE DRAW <eCODE VAL SAVE [I]fl OUT 7IN CLS DRAW ; COPY w LET DATA LOAD GO TO 8[P] CIRCLE ©VAL COPY ` COPY h RETURN BIN RETURN x LOAD CONTINUE NEXT USR POKE A[B]BIN SGN iUX[ STEP CLOSE #▝ CONTINUE & BEEP CONTINUE CONTINUE ▚▝ MOVE ▝;& CLEAR GO SUB RANDOMIZE CLOSE #▝?T[A]< CLEAR NEXT DRAW SAVE USR © LPRINT COPY COPY ? DRAW J@IINKEY$` LIST o0/ CIRCLE PEEK n© PLOT COPY DRAW ; RANDOMIZE >=7 PLOT 0 LOAD GO TO OUT CONTINUE IN THEN [B]©SIN COPY w COPY E COPY 0 RUN SAVE CLS CONTINUE CLS # [T]#ASN [L]▝▙#[R]v▝& DRAW ▝<='PEEK [C]▙ COPY y COPY NOT <= COPY DRAW ? BORDER ? COPY NOT SQR FN q1[F]CD3 VERIFY [N] LIST 0l CIRCLE OVER nIN PLOT © DRAW COPY SAVE RETURN g NEXT >= LOAD GO TO p` OPEN #▝ COPY ![R]▙ RETURN CONTINUE GO SUB , GO TO BIN LOAD LPRINT RUN w▝IN B▗ CAT USR LPRINT LET LPRINT RANDOMIZE USR CLS USR { NEXT q▞USR READ `STR$ [A](~▝[I]"[L]q[N]1[N]1[K][H]1[E]"eX1[E] OPEN #[A] RANDOMIZE COPY c<= COPY |? LOAD COPY NOT RETURN LPRINT 2[R]▝( BRIGHT [R]?▝rk"k▟6l/7_ CLS IN RETURN ©POINT ▜▘ SAVE DATA 7 PLOT INKEY$▝ CIRCLE p OPEN #▙ COPY d RUN N RUN SIN CLS SAVE RANDOMIZE CONTINUE #▝ OVER OPEN # DATA OUT LOAD CODE ▘ RUN USR ▗ READ USR STR$ 7▚ INK ▝r)X BEEP GO TO ▞ COPY COPY RETURN COPY COPY DRAW COPY COPY SAVE ▘ COPY COPY =▘ COPY COPY COPY RETURN ▗ SAVE COPY LPRINT UAT ▞ LPRINT < SAVE SAVE COPY 8p69<|▟ PRINT COPY COPY O COPY SAVE COPY LPRINT COPY USR [S]RND{6i) OR " INK ▘ BORDER T &*2 GO TO T8▝0▘ COPY ©VCHR$ >= DEF FN [D] COPY COPY COPY < COPY RETURN COPY © COPY ©▝ ACS GO SUB COPY RANDOMIZE ▛▜? COPY USR COPY }▘ LPRINT SCREEN$ 0▝©']▘? SAVE p CLEAR SAVE A LIST LET 3[S]&▛ATN NEXT PLOT ▝ LIST DRAW ▝USR TO ▜ COPY SAVE COPY DRAW #▝ DRAW Q▜ COPY COPY © COPY COPY ▗? COPY COPY ▘ COPY COPY ▝ COPY COPY AZp TO INKEY$▝@ PAPER ▝ DRAW TAB ▝8▝T▚▞ LET DRAW © COPY LIST COPY LPRINT IL TO ▞0 CAT SIN CLS LET ▝< SAVE CAT ▗@ LPRINT @p ERASE p CAT ! DEF FN p MERGE 0 MERGE [G]8 COPY USR DRAW COPY USR SAVE COPY DRAW COPY SAVE COPY LIST COPY ▝ SAVE COPY READ RETURN p CAT p CAT p ERASE 0 ERASE API1SCREEN$ A[ CLS 0 COPY xBNOT [D]▗ LIST COPY DRAW ▝▜kp ERASE ![O]![[O]1[R]▝ ERASE PEEK CAT j▗ DRAW USR SAVE CAT ▝`p ERASE [U][C][L][O]` ERASE 1SCREEN$ 1ACS EXP ▚3 COPY LIST COPY SAVE { COPY LPRINT ▝K▝ DRAW [K]▝?qPIqPIqPI1PIASCREEN$ ;0!}"PI"▞▗USR COPY LIST "▘ COPY NOT MERGE bvqSCREEN$ SCREEN$ TAN INVERSE LPRINT ATAB ▝ DRAW SCREEN$ jR|ryBa#ux^ap DATA m▘ SAVE `P▗ COPY COPY STR$ #LEN ▝NOT r©r▘r▘r|P MERGE [S]" ERASE [P]"FSIN 1 ERASE ▝ READ T3 OVER c LLIST $40[M]0[P]'& DATA .[N]7▘▚>USR RETURN DRAW /_eTL)`d▘<=I48@4©BK` CAT 3Q3]ci▖Cfx▝ COPY t READ D READ dCOS P CAT t GO TO $ GO TO GO SUB 'VAL ▝ HN▝[A] LLIST ▝ SAVE OUT ▘ RETURN [P]IRND#LN P<>[B] PLOT <>(~▘ CAT H IF USR INT )` TO CLOSE #4 PAPER ;[J]0uwD CLS ▘?USR NOT COPY RETURN Q]uAT a[L]uCODE q[F][C]CODE ▝;_ LET ▗USR < LINE ▘ RETURN INPUT 5 LET 1[I] RUN ![O] CIRCLE gi FLASH P([N]0 MERGE 8▖▗zSIN eASN ▗ COPY ,h▝ OUT uAT t<lSQR ▜ COPY COPY ©qTAB ▝[P]TAB [G]IN `USR LPRINT `[D][G]0 CLOSE #Nv ERASE i>7` DEF FN [D]Dm CAT 4TAB 8 ERASE [K] NEW g<N[O▗C AND TAB RETURN + FORMAT 3[M]0 LIST ▝[T] GO TO [G][Q]IPh[G]6/SIN BMPOINT [D]RL4VAL [L]▜ COPY [M] LOAD DRAW .▝+d FOR ="ATTR INT "/[F]©[P] CLEAR IN o NEXT PEEK OUT LOAD ~ LOAD LOAD mo LLIST [D] MERGE [G]VAL [A][D]▝[J]i INPUT gvSTR$ [N]>ATN ` DEF FN [D]Em CAT 50[A] DRAW N[ COPY ▜ COPY AND CODE COPY RETURN / AND COPY [K]▝Fj▗gC LPRINT @-m[F] PRINT PAUSE I POKE % NEXT y POKE U NEXT ▜s NEXT LLIST NEXT [T]SQR ▘ STEP [F] POKE I POKE ) PAUSE ) PAUSE [ PAUSE [ PAUSE ▘ FLASH [A] NEXT POKE D PRINT D PRINT Z▗[O] PRINT THEN MERGE PAUSE MERGE 0▛ASN PAUSE ASN PAUSE / POKE / POKE CAT ▙,7 LPRINT FORMAT CIRCLE SAVE GO SUB VAL [J]USR @8 RETURN RETURN ; COPY ; COPY w COPY w DRAW RUN LIST LOAD USR / THEN LEN ▝▛ LIST FORMAT LIST ▘ACS :[I]▗h[Q]VAL Y VERIFY VAL [Q]'`B[A] PAPER ▝ INT [C]USR LPRINT [Q][H]2[Q] LPRINT USR B1c[O]3: TO LINE 3 PRINT TO BIN 8@ ! FORMAT # CONTINUE S DATA /4COS LINE LET 0 PRINT 00( POKE ▗80 p0` STOP B>8*&1[P]IN COPY CAT DRAW COS NEXT ?< CAT LIN ?s?©o OUT ©#/| LOAD pCHR$ ▝<>FN © LPRINT 'f`y LPRINT ~{ LPRINT [L] LPRINT g READ y IF ~`©[I]LN VAL " RUN [L]USR "Ls OVER TO So DEF FN READ NEXT GO TO CLEAR o2 TO BRIGHT FORMAT <=(8?<? TO [I] CONTINUE BRIGHT LN 08 DRAW CIRCLE 0 CIRCLE TO FORMAT DRAW USR 0 STOP ▝ PLOT BORDER IF GO TO s SAVE | LPRINT + INPUT < SAVE LPRINT USR 4[L]*b▖2"ACS CIRCLE ▝< COPY <=% FOR ▞<= COPY READ COPY USR COPY CLOSE # PAPER Fj▚ CAT USR USR NOT ▞ LPRINT LIST DRAW TO NEXT BRIGHT 3[T]L MERGE s-|ABS vABS nIN ~SGN >VAL ERASE ▝w` @p PAUSE '[H]▝[B]ABS ▝ DRAW ) COPY @E[T][D]k LINE _RND[A] LPRINT ? LIST < COPY LLIST RANDOMIZE COPY USR LPRINT © LLIST 8 LLIST ▝[K].<=BIN >=▝R▝? COPY LIST DEF FN SGN 3CODE DRAW 3 TO [D] COPY ▛`"$[A]`(▖ SAVE LIST P[D] LPRINT 0P0(n[;▖#LN >VAL `[N] NEW LPRINT COS 8,▚7▚Y NEXT Fn DRAW #▝0CHR$ ▘?[T]▜USR ▜ <USR NEXT LPRINT STEP LPRINT ;[Q]_USR ?|0@ RETURN W▘ LIST [K] BORDER [C]!USR a LPRINT NOT SAVE ▜ COPY COPY CAT COPY NEXT +& OPEN #▝[U]/COS !0▝?[R]▗ COPY DRAW O82POINT u[R] TO #> SAVE RETURN PAUSE SAVE DEF FN f<[J] INK VAL f<=` BRIGHT FORMAT 1▘/) GO SUB .3'/▝ N[G][A] SAVE ▜ RETURN LOAD COPY / COPY ▛ PLOT 0 SAVE XUSR RUN NEXT $ RUN p▝▙▘BIN $pp0p0p0p0p<pll▝CHR$ x0= DRAW 0▘0 SAVE >ASN ▟n LPRINT { DRAW ASN CAT COPY USR 'SIN [C] DRAW EXP DRAW PEEK PRINT IF STOP ▖ LPRINT ▝[A]LEN "[F]@7/▗[P] LPRINT LOAD 7[E]_ SAVE NEW SAVE } POKE FOR VAL [Q]B▝ DATA P1▚ SAVE 5 CAT Mph▚ DRAW SQR DRAW ABS h▚ PAUSE CONTINUE k▘1p[J]@[J][S][J]EXP DRAW IF STOP ! IF " PRINT IN h[O][R]w COPY 9 DRAW >=© COPY x7 COPY LPRINT 3 RETURN LIST INVERSE p8[Q]VAL x[M] p606▞ RETURN { COPY } DRAW USR ?6[B] RETURN GO TO CLEAR t FLASH VAL p SAVE 6▝@p69pll▝USR l[H] RETURN CONTINUE # CLEAR pEXP VAL 0[Q]p SAVE [M] ATTR *▖, DATA ▝©t▝▗@CHR$ BEEP [H]▚ LLIST LPRINT CLS CAT ▜ COPY LIST CAT COPY CLS COPY LINE ▝[A]J VERIFY FN CHR$ ▝ LPRINT K LPRINT p LIST CLEAR SQR ▝O RANDOMIZE DIM CLS 2▘b▘[A] ▝SGN ▝ GO TO ▘ PAPER IF ▖ CLS DRAW 8 CLS *▝f p0p0p0p0@0▘H▘zN▘[E]NSGN N▗ DRAW q▝J $▝SCREEN$ rFN [Q]XAT LPRINT CIRCLE DRAW IF REM IF . POKE - LIST >=< CONTINUE xTAN >= CIRCLE FORMAT LN t▛ FORMAT VAL LPRINT LIST [Q] RANDOMIZE [J]P( CIRCLE SAVE POKE POKE FORMAT GO TO LIST h[I]VAL 0▝ CIRCLE *▜VAL [I]USR `P[I]P`[B] REM z POKE POKE >=< CONTINUE h`LN p8LN [A]pp.▙[F] CONTINUE SAVE SAVE LIST pH< GO TO xVAL >=`▜`80pINT pZ▘ LIST Z▚ CONTINUE hVAL INT ▝ FORMAT INT ▘VAL u▗p REM REM PAUSE CLS REM PLOT - POKE REM ▘ DRAW INT 00▝[Q](k▝`l FORMAT AT VERIFY |[H] GO TO ~ CLEAR PRINT CLEAR z SAVE DATA POKE < PAPER GO TO CONTINUE BRIGHT ▝h0INKEY$@VAL @ STEP USR LN a DRAW ? POKE NEW POKE CONTINUE LPRINT [A]x FORMAT LIST `[A][Q][Q] THEN ▞0` LIST SAVE FORMAT INVERSE [J]([E]l,Z PAPER FN v▖xTAN TO CIRCLE `▞ GO TO >=[I][I]k[K]SGN ~t>u FOR RUN zepl-s[J]▛c READ NOT ▘▘STR$ qFN FN [K] SAVE CLOSE # DATA LIST h[I]SGN BRIGHT TO [I]FN ▝TAN ▝USR q CIRCLE 00J▟p FORMAT h[A]LN pFN ! VERIFY ▙[M] LPRINT LIST p^@^ DATA LIST h[I]2▝ CONTINUE ~USR Xp.4[D] BRIGHT DRAW VERIFY RESTORE LIST hFN GO TO dBIN ▝USR TAN '>=B▝/ REM [M]>6SGN FORMAT TO 9AT % TO DATA =h[I] THEN [Q]X REM LLIST 7 DEF FN @[P][Q][ CIRCLE 0 MERGE SAVE ▞ SAVE LN v<= COPY ▚PI COPY RUN COPY STOP /5 PRINT ©86INT ▖ DATA RETURN @ COPY NEW [K]▝▞[A]q[E]` LINE &PI POINT USR -VAL [G]x&Y▝[I]() LPRINT [B]0% ([F]VAL K [B]X RETURN STR$ RETURN CLEAR ▛ RETURN 0 GO TO CLEAR FOR DRAW ▘#▘X$0*▘EXP p0p0p0p0p0PZ@BpxC PRINT ▝ PRINT M SAVE ;/F CLS USR * OVER LPRINT +w LPRINT ABS VAL INPUT LIST +{ FORMAT ] OUT xw CONTINUE ABS NOT .▞NOT ▝▚ TO SQR NEW LPRINT . CLEAR VAL ; OVER N. CLS SGN [O]v DEF FN CONTINUE VAL$ ,>?p`P.PEEK ▝p5p5p505??<PSQR ▝P BRIGHT ▚ GO TO SQR OUT pgpg▟ CONTINUE CODE ??a COPY p/ CLEAR ACS ; OVER Lp[G][B]ABS DEF FN DIM .>?/▝)▗LQ▗j OVER LPRINT KQ[E]{ FORMAT OUT xw CONTINUE SGN OR .T/▝7p3q4`3▛w CONTINUE SGN ,BIN ▝▝[D]▝[J]p9qmpllm▜SGN <=*▝F| COPY 0 PAUSE CLEAR ▝ INK BRIGHT *3? FOR zK"x[J]© COPY Y[R]▝▝ IF xVAL$ [B]E▝USR ▞^ FORMAT [E]USR 8 COPY < COPY ? COPY LPRINT MVAL$ LLIST ▝ MERGE N DIM }yp=▞p p = LET PIp@p@pP▘@, FOR } INK pp3▝ppp[A]pp[Q]pVAL ppUSR p FORMAT p0 LPRINT ▝+ RESTORE p LPRINT p LIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY PRINT CAT ▗[L][M][M] RETURN P~[H]▝ATTR 1▝A5▝[H]9▝[O]0=▝M<>▞/$EFN 0]▝[G]d▝3h▝POINT l▘SCREEN$ 1[O]▝[C][S]▘5[D] LOAD ▘[N]▟▖▘[E]4▝[T]_▛*[D]/4PI[T]5RND} p`|▝[P]▘▘<>5[N]4 TO ▘INKEY$[N]?A4&Y▗+▜▚ PLOT ▝& IF ▝[O][P]~[R][Q]E'B DRAW [T]=▝<>▝o▝▘[G]@p LIST ▝,O[R]▜[I] THEN USR STR$ 0&7▗7▛'/▘▟q▘ OUT I▙[I]l▗ OUT (, CONTINUE ▝5Qx5[A][B] SAVE ▝(q▖▘[U][D]Q[I]▝m@|AT ▝COS LEN ▝LEN ASN ▝SIN EXP ▝>p[A]▜TAN /g$VAL$ /gASN ASN q VERIFY @FN , GO TO ▝n LET ▝l PRINT ▝P FORMAT /$Eg.ry%&ATN ACS EA CLS 0.U▝LN ! LPRINT ACS .EXP p0`4▝INT +▘|>= THEN ▘&INT pq qVAL ▜▚▖/▞%rPq LIST <>▗/.}h▚~,-0TAB P LPRINT ▝{ CIRCLE ▝( BRIGHT ▝SQR LIST ▘[U][N]<>r@@▝8"@▝*BIN ▘[U]SGN ▝[E]ATTR p0r*-"▘[T]-H▝PEEK D▝9szg STEP ▘*yL▝[D]h▝ABS 0x00▝7Sx▘(USR LN ▝[Q][E]▝IN ▝iZRND▗▟TAN ▟{8 INVERSE CIRCLE ▝ OR ▝8q[Q][D] OUT YNOT BRIGHT OVER QSGN qIN 2[Q]▘NOT {▘{ OUT BRIGHT ▝ LPRINT LOAD ▝- DATA ▝{S CONTINUE ▝[G]▝ LLIST OVER ▘▖{[U]/▟LEN [J][D] ERASE FLASH IF ▝ OR ?▝0,▘39.ASN ▝SIN ▗ LPRINT STR$ BRIGHT LIST ▝COS (▝x STOP READ H@ <= MOVE ▝D:?P INK <=4L8,+t0▖[I]VAL$ /VAL U▘g[R]# LPRINT ▝AUSR ▗[O]FN RND[T]"HgNOT FOR >=k OR ▘g$SQR ▝ OPEN #STR$ ▝ GO TO OR ▘ DATA <=|<>[ RESTORE ▝ LOAD `AT [N]Pt[Q]& GO SUB LN INPUT NOT tVAL < LET EXP NOT @0@▘ INPUT e,8xX▝ LOAD b4▝ LOAD 2(▝xU8/$ LIST NOT ATN >=o.xgs▝s[Q]▝LN 3[Q]Ql▘[Q][N]# SAVE SQR ▗RNDFN BRIGHT LPRINT # FORMAT ▝[P]%@L▘[P]|▝ MERGE ▘ DATA <= AND ▝[H] LINE ▘[P]Mx▘FN RND5|TAN ▝ INK POKE USR ▝ CAT BIN ▗ FLASH RESTORE $ FORMAT ▝ MERGE At▗NOT w BRIGHT E TO SQR ▜ REM " DRAW ▘ CAT DIM NEW ▚ CAT COS CAT BORDER NEW y CONTINUE [U]▖/▗YSTR$ CHR$ Ed0▘NOT BIN &$▝ OR (▝I5 LPRINT ▚]. OR 3▝▖<▘ AND LINE Y<>$TAN STR$ CHR$ BIN P0▝ AND Mq THEN STR$ >[K]"6▘SQR -ATN _▘ d▝ OR ▝I][U]46@]ASN NOT BIN CHR$ LN ▗▖ CAT FORMAT CAT TO TO LEN ▜ FORMAT SQR <=▗ PAUSE ▘@ TO <= INK FORMAT FORMAT 9[L][K]▘▝ TO ;▝(C▘ STEP (J0X▘ STEP ("▝EVP/>RP/▝E0pPgp▗▚SQR <=<=TAN ▝ CLOSE ##(▘ MERGE `TAN a[U]▗ VERIFY MOVE SQR [U]▚SQR SQR [J] TO DEF FN 0[E]P[M] INVERSE <>▝G REM ▝F+<▝HpSQR K& RETURN ▝DC▗A▝6 POKE ▝L SAVE ▝qpqpq[B][O]Q8!y▝ PAUSE USR ▖P▝ PAUSE PPp▝pq/VAL$ ▞qOrSs▜trSusV LINE ▝W▗XOV©LEN ▛RPOPQTSTUO GO SUB ▝S LET P▜/v_f?o<EXP TO ABS `i/gh+W▞njmkl▝ OPEN #[A]! !!""Ty=tSTR$ ]~TAB rrUSR ][O]G8)(@▖_`&%()"▝*YP/$.;POINT LPRINT .5x@X`▝,>=H▝] FORMAT W GO TO ) BRIGHT d▘3X CLOSE #y LINE CLOSE #W-l▝[H]▘5,▝: DEF FN ▗:9)X0h"▝=SCREEN$ DEF FN SIN ACS POKE |▝ MERGE >=▘ NEXT Nv▚ PRINT $ POKE *▚MN%(Mi LINE USR ▗! COPY CLOSE #>=>B▘ @3G▚▘$$[A][C]USR ▗ ""USR ▞▞[B][B][C][C]▗([H]H▖`[A][E][E]▗DD$< LIST >= CIRCLE CIRCLE >=($Db IF >0XL▖<Z]66c STOP ▗0 NEW ▝ L[Q]▗c STEP 2 INPUT CHR$ R▝▘P OR D[D] OPEN #[H] FORMAT FORMAT DJN[U] DATA +8▝` ▘@@0P@INT FORMAT [I][A][A]0G[N]SQR VAL$ FLASH BORDER LIST b RANDOMIZE [N] GO SUB SQR BORDER ▙CHR$ USR USR XVAL$ [I]`0USR LIST ▘USR TAN C<A SAVE IN ABS Z MERGE m▙v COPY RETURN PLOT ATTR JM OPEN # LPRINT VAL$ [U] GO TO BEEP #alfd@ CONTINUE VERIFY VAL$ 6uc |1>e[G]8?3??USR VAL x PAUSE CAT < DATA 1[Q][M]v AND <b STOP LET ▞A LET PIQ7 CLEAR [G][A] NEXT /y▜PI INPUT /QVAL ▝VAL [I]© DRAW L& DRAW bSL DRAW STOP RUN [M] USR USR ` LIST THEN / CLS %[L]@ LPRINT [A]/g5ABS CHR$ CONTINUE !v>▙`7TAB `_,[E][U] COPY a GO SUB H INPUT DRAW SIN [S]©IN h2*w=%(▙ OR d>= NEXT {EXP _[C]IN *c POKE = FLASH LIST LINE X STR$ RETURN _CODE [K] REM PIN aIN >=mE[C]RK RANDOMIZE FLASH (x[N];_▘[A][M] @CHR$ [Q]@[L] (▘▘[H]▖((HH@R@PR@HH LPRINT [A]STR$ [A]D@DDD SAVE B`▗DD▘}NOT H[F]DD8USR USR 0 DATA AAIAUSR B▘▖0qUSR ▗[C][B][A][A]USR [B]▗[A]Q MOVE USR IAA[E]USR [F]▙[E][B][C][E]""b▘B"SGN ▛"[A][E][A][A][C]PP1h[A]▝9Bp▗e▘@▖ RETURN ▝INKEY$▗0 POKE [I]A8@PTTI▞))POINT ▞▞PD@XFA@@▞STR$ )▗▞I)BUSR
16513STR$ ▗)[J]@P@USR IIpO@@$$DOP@,H PAUSE [K]B PAPER ▗xCODE [D]CHR$ USR C NEW TO Y
40179NOT GO TO LIST NEXT [J][I][M]USR CHR$ I`0c8@d[E] POKE f`<>TAN 2<CBIN COS CLS 5SCREEN$ DEF FN ^][N] THEN CODE [U]k BEEP OPEN #[I]<PUSR [M]<@VAL USR A3; ▝STR$ co':+VAL$ @a© OUT s TO STOP pVAL pUSR M▟COS FDH[G][E]ZZ▗ HP[K] ACHR$ VERIFY STR$ USR $0k▝T]O COPY 4▙0hXX%!CC▜XUSR CIRCLE BRIGHT BRIGHT CLOSE # BRIGHT ▜NIUSR BRIGHT ▘ OVER ^USR OVER [C] OVER OVER OUT OUT __ OUT OUT VAL ▖
6268@B▘>9STR$ ?IN <8_ OVER INK <= OUT ? COPY RETURN ~ RETURN DRAW DRAW >=VAL x GO TO '[x RESTORE ▛PI OVER RANDOMIZE COPY _ BEEP CODE y IF RUN CAT BEEP IN USR ▜ PLOT DRAW LIST GO TO RETURN x COPY >79| READ oVAL$ BRIGHT H CLOSE #{ DIM v LLIST LPRINT >=▚@LC[A]<=1@ ▝.[U]`= CLS RUN COPY LLIST CHR$ ▘▗USR C▘pSGN ▜▛#&FUSR COPY TAB ! COPY COPY DRAW 200 DRAW C<>1STR$ L|PEEK COPY IF COPY IF COPY ` COPY PI RETURN EXP RUN p` LPRINT LPRINT LIST LIST VAL ([P] NEXT CAT 8 LPRINT DEF FN < LIST USR | CLS (0 LIST SAVE DRAW ~LN "!@©R[B] DRAW CLS DATA RETURN COPY DRAW LLIST ▙0USR c TO READ Hs▖A>}A▞ CLS RUN LOAD OUT IN L▛N TO p:▛?CHR$ 4 TO R[Q]▚0D▘ LPRINT w[C]1L "@D REM ▝ .AT 0w CLS SAVE <= OUT LOAD wSQR CHR$ LIST SAVE SAVE DRAW RETURN #>7© INVERSE INPUT wSQR OUT RETURN CLEAR CLS INVERSE INPUT y BORDER [P][M]▜ COPY ©IN OVER LLIST RUN EXP LIST ▘USR INT ▘©?[F]USR [A]_?G COPY RETURN CLEAR CLEAR CLS IF DIM RUN OVER oIN .[A] RETURN ©[P] LOAD RUN RANDOMIZE RETURN COPY USR LIST DRAW | COPY T@? COPY &▗ CLS ?▟[L] RUN LOAD LOAD [P]©B COPY OUT OUT NEW SAVE LPRINT ▘ COPY |{ COPY x? COPY LIST ' VERIFY ▗ SAVE SAVE x▝VAL ▝▝!; THEN 3 TO SIN REM rCHR$ STR$ RETURN ▞> DEF FN 2 TO ; THEN NEXT SAVE CLS STR$ IF ▘:u▘ CIRCLE ▝▘COS IF CLS ▘: LINE PAUSE CHR$ IF ▘pSGN OUT M▟ OUT t RUN STEP ? PLOT BEEP ▝@a▝!RND[F]b[I]bRNC(!VAL a▝▘ASN [N]USR BIN USR USR ` CLEAR COPY BORDER ]©n|pc DATA [Q] LPRINT USR NOT USR USR ▖ PRINT GO SUB OUT IN FLASH OVER INPUT INPUT STR$ ▝[O]USR [Q]`F▘ LPRINT LPRINT USR ©[I] PLOT RETURN IF INT PLOT =;;:V BRIGHT SAVE SAVE xSIN LIST LIST LPRINT {SQR SQR STR$ ATN ▙ABS {©?77;;- GO TO POKE POKE CONTINUE DIM #[I] OUT IN {}PEEK PEEK }}o?}LPEEK v RETURN PEEK BRIGHT s[R]s LOAD FLASH BEEP ^oCODE TAB RUN t INPUT OVER LOAD ' CLOSE #▟cSTR$ BkSCREEN$ OUT VERIFY O▛ PAPER © CLEAR BORDER OVER MERGE ABS CLS PLOT REM ko LOAD COPY INK COPY PLOT FLASH INVERSE ABS ACS %INT LN CIRCLE XSGN TAN RUN COPY w LOAD FLASH BRIGHT LOAD RUN C&0NOT LPRINT VAL FORMAT P PLOT {.RND~ PAPER LOAD cUSR 4T[O]n<N~v&<2@▘@8ACF▚n[A] LLIST RIN q▝&`f[I]`▘ ▘f[I]b$▘ STR$ ▗`▖a[A]n▙BVAL $<rv PRINT v▜[C]'BIN LLIST LPRINT STOP [Q]>=A[A]O?$[I]C >=[Q] LET [A] SAVE SGN f OUT u BRIGHT 0CHR$ INVERSE INK v[N]g[M]pCHR$ "▞C INPUT ▝n@0@ PAPER `@U BORDER ▝ K `▖▝f[I](A PLOT 9[I] CONTINUE PLOT RANDOMIZE A▖bh▚!0▝6▚▗`h)`▜b! CAT |[A](▛[L] IF FLASH s[I]cii0▗▚@▗▞aB`▖+▘B0▞`▗D ▗▗F`▘~▚POINT ACS EXP PEEK IN ▚▝ CONTINUE [A][A]>= VERIFY EXP STEP RANDOMIZE ABS GO TO < PAUSE DEF FN :6▞SIN SGN STR$ SQR [I][M]> DEF FN STOP GO TO PLOT VERIFY r CIRCLE ; NEXT <>5`▝fSTR$ F CONTINUE CONTINUE & DIM AND 6fOSGN iSTR$ ? THEN ) GO SUB PEEK ▝0| VERIFY J0▘@CHR$ ©▜? CLS LEN ▝CHR$ COPY ▗C INPUT USR LOAD ▚/ CAT NEXT DRAW ? CAT hUSR CLS p▝ DRAW # CONTINUE #▝▘STR$ INPUT ▗. DEF FN PAUSE DRAW 3[A] STOP GO TO BRIGHT OPEN # CAT < FOR COPY 3 RETURN [B]; BORDER ~[J]o[L]ni▚▖ TO SGN PRINT BRIGHT FORMAT [M]RppxqH<@USR LPRINT [S]` LPRINT USR 0▘[A]USR CHR$ L1USR OPEN #▛a$C1USR #CC CONTINUE ▝D SAVE A▝$▜[D]NOT BORDER >[A]▝9@[A][A] FOR [K] CLS NEXT 8 NEXT CAT =7<= NEXT POKE NOT "▖4▘ PAUSE BRIGHT VAL < RUN LIST OR NEXT ▜<= DRAW LIST <USR ▝8@USR OUT NEXT O CLEAR RETURN [I] LIST STR$ O BRIGHT FORMAT USR FLASH EXP /sN? RUN TO SQR COPY BRIGHT COS CAT BEEP OUT ] OPEN # THEN : NEXT FLASH LN NEXT CAT <|sF7 RUN MERGE 7 RUN RUN PEEK BORDER _ DRAW s LINE ; BRIGHT PAUSE DEF FN > PLOT DEF FN RETURN v< DRAW ? NEXT THEN :4$s^}g BRIGHT [P]<= DRAW s CAT < NEW IN ? LET POKE a BORDER [L]f[N] BORDER SGN s<=!STR$ LIST |©CHR$ LPRINT <9 LIST v~ LOAD t LIST CLS [N] RETURN COPY g[J]f INK w[N]f INK gBIN !▘(▝? CAT LIST PAUSE USR 3C[Q]▛r CONTINUE [M]f[J]n[J]v3t▜ LIST PAUSE STR$ 0@[C]@ @[U]2 DIM GO SUB C:▝ DRAW ▝[P]![N]8G`D"D#[A]!▖"@% PAPER ASN ▖[S][A] TO MOVE ▝(@2USR A"G ▗D"USR 2LB▙= CLS N9~<> RETURN ▗ BORDER O REM [E]C>x CLS ?▙ NEW aK$CHR$ 0 DRAW ▝ RETURN _;u▝`▟PIp COPY COPY <© COPY SAVE BORDER _ COPY NEXT /© COPY READ [P] SAVE USR @ LIST LPRINT USR {▚`>x` BEEP [I]▝@CODE v PLOT CLS ABS f[P]©[J]wABS f INVERSE g[J]wBIN USR ▚p CONTINUE [M]nEXP o8f LPRINT !!z▗ !H DATA CIRCLE ▝▗[H]/o OUT [K][L]""USR LPRINT DRAW ?USR LIST xIN BORDER ay> NEXT NOT [L]:nDD h▘? NEXT & REM USR =[S]}=Mq|[P]<#'GG## BB@ #m ▝0CHR$ ▖EE▝▘[Q]@ D$X[H]0@x"AHHPBpO[D]`LEN ▖ ▝ LIST [B]PI▖[Q]B0▝HITAN ▖@8USR 0Le▚8CHR$ ▗][O][D]$=$▗a[C] POKE h[A]hp" FLASH ▟$<▖qtBIN 8D8SGN IF @P▝ INPUT ABS 0:USR >CL @@]▚<&<$ AND 4▞ OR $ CLOSE #4TAN T▝<1CHR$ 4▖▞[C][C]" @2TAN 46STR$ >I[G]5 STEP ▟M- OR -BIN LPRINT SAVE [C]▘> COPY RANDOMIZE @▖ NEXT TO RESTORE VAL$ [E]1 LINE BIN POKE CONTINUE + BEEP 0 DRAW 3 TO 3 TO ?#L[A]"▝H▗`▝PRK+[G] OR [A][A] LIST @ LIST `[A] FORMAT 0 AND D/F#[A]▝NOT FORMAT ▘ OPEN # CLOSE # OR FORMAT N▝▞ STR$ ▘- STEP J[J] MERGE Np^▗NOT RESTORE ▘INKEY$ GO SUB -▟m2 GO SUB - STEP STEP 3 CAT CLOSE # MOVE ERASE CLOSE # THEN CLOSE #(G LPRINT h▟ OPEN #AT /LS0 TO 0L3▝TAN [A]3O3|3L1J:Euh+WS, [T]0USR n BRIGHT <LN H0 NEXT TO 2 STEP 7o8p STOP USR BIN ▗▘SAT THEN PRINT IF = TO @H▝USR 1▜1 LINE : OR PRINT ▝3A▘C3 TO INKEY$▝? COPY ▝<>0 SAVE 3@ ▝ FLASH ^ LLIST "!USR FORMAT ▘@p FLASH x▝*▖@?▟b▘USR $90▘@,▘8e1STR$ @J▞@Aa0A▖▖@aP(&▘[H]P GO SUB [J]▜[U]▘B@"FN CIRCLE C@":,▝>USR ▘▗NOT AT NOT PEEK CODE ▘ LINE ▝@.VAL X▗USR C0[G]▝NOT ▘ LIST W/VEXP ▝ FOR ▝` OPEN #▘ LIST SQR ▗AB▘l▘ _ LLIST ▘B- DIM ▝▝-@▗8 @[Q][I]▗[A][A]▘0 GO TO ▝[H]▗▘▗▗ TO !!Dm@▘AAUSR BUSR D OR x DIM BIN ▘`XF▝0 FORMAT N▗0 LPRINT VAL$ INT LINE ATTR CHR$ ▝ [A]▝.4▖[A]@VAL ▘▝STR$ ▝<="f6▚!BBEDUSR $ RANDOMIZE ▝Pr OR @STR$ x8FN 8SIN x8!QXL▗p9USR FLASH !▘ READ [A]@▘ (N▗ LIST NEW ▝BIN [O]"wF▚|N|AAT STR$ SQ DRAW ! REM ▘@@ CONTINUE PEEK ▘ " LOAD FLASH SGN SGN Nn▝[A] CIRCLE ▝DU▝w▘! [B]<=|▘ ERASE ▛ INPUT RI▝AINKEY$VAL ▗ LIST LN ▝ FN REM ▞$ DATA ▖!PEEK ▝Dl#q0 FLASH ▘Cj@[A]▖rM8CHR$ A CLEAR ▚▘`[I]A#▚▖H AUSR 8▜IPEEK VERIFY LLIST "▞A0<> r▝ATN <=[G]▞▘AF B ▗H1D"}▗STR$ !]IN GO SUB ▖"" LPRINT ▖DU▘▝ DRAW VERIFY EXP USR 8!<>▖ LPRINT ASTR$ 0 !!@▖STR$ DqSIN ▝0z LPRINT #<▘DD[H]▝ DRAW }|▘0BIN v#TAN !"L▝`0PPHC@ p RANDOMIZE ▝`▟FH CHR$ h▞pz▗ AND 'R▝ DRAW ▖cAT [D]8T[S][J]E0`@#@1USR b%IN ▜[S]%ITaoSCREEN$ BIN NEXT ▝@* GO SUB 6U PRINT BEEP ▝@ REM &FN C[M]!RLUSR ▝0 STEP INKEY$HA▙USR &PI(b"[Q]TAN ▞$$"B CLOSE #`[A](HD▗$ ERASE DC0 CF▖T▗A6▜@[I]`@]▝▚▝c▟CHR$ 2$B!% PLOT ▗# HLN ▞f"2▘▘[O][F]Hd$▘B"[I]▜"DHH PAPER 0NOT [Q]0Di$▝CHR$ VAL [A][C]AACH" [B]H@@w▝!UUSR 0▖FAAA%USR ▘STR$ ! GO TO {INKEY$▝F▘ PLOT OR PI LPRINT DNOT ▖p@'Q▞RL▗D""H@0 SAVE TA1▗" h▛DDDD▞ $ VERIFY [E]B0a▗VAL ▘ AEE▘QIn▞RAE[J]▘dBR[B]▟[R][M]8 LPRINT ▘▘CHR$ Dd▖1▘b0▝$pCHR$ ! xUSR [O]pUSR &▘P PAUSE CODE SAVE PI[J]!#USR p 0>=▖USR p: AND USR REM 8▗USR ▘USR ▞X0`@`BBIN db)▖4▗@10R▚▘CHR$ L LPRINT READ TAB ▖ SAVE LIST 7▘D[D]Is▝USR GO SUB ▚ >=8NOT t▘0▖A▘ LET d[G]AT 0▝▞B2`[A] LPRINT 1▖F(BIN ` LINE LEN USR "h▗▘ASQR POINT ▞AB AND Ta c REM [B]BD STEP !(USR 0 AND 1Lx▝ BORDER ▝@▗[R]l INK 6▟$$,USR 2>=USR F~ CIRCLE [C]NOT ([S]AT "k4[B]`7▝`CODE ▝ CLOSE #▗` FORMAT :▝TAB CHR$ ▜" FORMAT HE CIRCLE ▝TAN USR `h▝BL LET ` AND [K] BRIGHT h LPRINT "USR &LNCODE ▖BIN Ph4▖D▗[M][G]FQ TO "▝▘▖[A][A]PP G2▘|%3▚!$` LIST ▛[C]b[I]2B CIRCLE ]▙0>=FBIN ▖HD[G]▘▝ ATN ▘CHR$ "<▘▖▖0▝p OPEN #a▝q[A]>=& MOVE @USR LEN (1F▘`_Lch@C$ AND ▝0 RETURN ▖BIN $[I]&eRBIN ▛@[A]@▝L '[A] ▖0HDB!"" t▚1B RETURN ▗1A6▞▖▝3"[A]ACS ▝d▘H( GO SUB [P]D>=0H<=▚[R]A AND LIST BORDER b DATA d CHR$ 63▗NOT ©!USR 7USR 0NSTR$ ▝[G] FORMAT ,X▚"USR 3L▖▖[C] AND 9 GO TO #H2▚VAL [U]H(kCHR$ 0K▘▝2 LIST USR (*Iy▗BIN 0,▗USR POKE [Q]U▗0USR FOR ▘ ERASE OUT ▘#PI@ SAVE w!< BORDER PI▘▘▝B LIST [P],▚▘AATTR "D▗▝ MOVE ]▗&[Q]▘88x[D]1RDAL# INK "$▞dPOINT [Q] y!0USR &/▗ STEP "USR @a FORMAT 8C▝[B]H[E]▚USR 3@3[M] ERASE v8H PLOT v8(LN FhASN ▝D SAVE g. RESTORE ASN )(y~▗[B]▘@ATN &R[A][B] FORMAT P INPUT ▛! `$SGN STOP ▘b'▗((ATTR [D]B"$4▖,D!@8` RESTORE 8y▝VAL CAT ▞B▗0▗[Q]tD%COS LX▚A4[C] CLOSE #[D]F@@[C]%4ULh[R] VAL "▖EB[E]l5[A]" `▞(▘[R] FORMAT D&D!$FN CIRCLE Rc=q▝ PRINT CONTINUE ▖D@D[G]`▚▚▝USR b SAVE ,POINT ▝n[T]▘▜`▝$[K]R/[O][L]▖ h1PUSR + *FN MOVE T`&T()1/PEEK X2[Q])▗$@USR "INKEY$4[F][Q] FORMAT v▘` CIRCLE / DATA Le[K]▘[M]qCHR$ [S]▞4[G] ▘"▝>[J]Dat-TAN ▞APt`"B@%[C][A] CLOSE #Pb[N],[J](▘DE$SIN ,`[R]B*USR :[O]▜M-"E▖B8 MOVE LU▘USR .▜!>=/▝">=▘@ PLOT ▘T!0`m▝▜▖ C1▝`▘+ LLIST ▝[P]▘ `0/▗ f▞@0"▖H▚@" MERGE ▘ZC| OVER COPY {z PLOT POKE |x8▘p0u▛AA2/0pNOT #%[G]c LPRINT LN t TO 8VAL CHR$ =EXP ▗HHJZUSR R▝@]▝▖USR [C]RR3▝p]USR [U]TAB )▚0[N]!▜,$4 STOP ▜;;}m}?0b[G]VAL ~]=cxAT TAN BRIGHT CIRCLE GO TO DRAW 0HHP INK ERASE ACS SIN _ AND ▝Fp▖W FOR LPRINT PI#)LEN ▘@AP▘d+▖USR 8DCD![D]-}"X▗c3▘▚EXP ▜ @USR SQR [C] ▘` MERGE @ SAVE ▚!6▖▗▚▘ LIST / NEXT NOT ▝N▝F-▟▗3 DRAW ? CAT NEXT DRAW ; TO 3 BRIGHT ? CAT COS DRAW 3 STEP 1 INPUT ▚? STEP NEXT TO ▘A FORMAT ?NOT NOT ▘ LIST <8D2 P<▗OFN PRINT AT >y BORDER COPY LIST ~[J] BORDER PAUSE AND , BRIGHT 8 SAVE LPRINT LPRINT N INVERSE LINE q?[J]~ SAVE <=? RETURN LIST OUT > DRAW LIST USR ▘0USR TAB ▘ LIST LPRINT CHR$ STOP ▘b0/120ppSTR$ 0 LIST /2#[I]#<y NEXT CAT DRAW DRAW PEEK ~ RUN CLS CLS CLEAR cca0[I] COPY X RUN IN q BORDER ABS wUSR LPRINT LIST VAL SAVE CONTINUE SAVE VAL G▗p LIST 4 POKE ▝./hkkcaaUSR `▗bbfF▖▝▝▝CHR$ 2 PAUSE [▘▟▝LSTR$ 6CODE ▝BIN ▘▝2USR r▗sSswUSR ▟▝USR ▝- OR USR ▜#""##▗CHR$ [E]▝STR$ gUSR PI▗ BORDER ))+CHR$ kUSR ▝"<<USR 8▖ BORDER BORDER PI PRINT PRINT RESTORE RESTORE eNOT k▗cc..NOT ,[S]USR b▘c8220NOT e▘gGUSR c▘BCm(>=>=USR <>▜IIsSS OPEN # OPEN #USR NEXT CHR$ GUSR ▝BIN 9▝▜USR ▛▛cUSR AT USR VAL$ . LIST ATN ▛ "▘ccssqUSR MOVE ▜ LIST LIST *.▙N"{dOR_[R]▘NOT 3USR W) SAVE ▗`▘2 LOAD ▘▚▝0[K]▛dx<[O] DEF FN NJjj&▛cVAL$ ▙AA&&▜PIPIjhjj STOP ▝CODE ▘`▝ BRIGHT FOR ! OUT [M]f[D]▘>=$[E]▗CHR$ 1▞b[B]I)POINT ▞ LINE CO▜icc▟▟ OR STEP STR$ ▟USR STEP ▛▘[M])[S]M<IN LLMJFifeVAL$ T CLOSE #RNDJ LIST EFN [U][D]Q FOR eCJTJE[(INT UBIN URND ERASE -▗RFPOINT J[Q][U]!Q ▝USR n▟.dfY*iIheijSL▙VAL j*hkb+jeRATTR P[G]mU REM b[F]AT cLPICHR$ AT [T]iDeRYD5[G]Da[Q][Q]▘D[B] DRAW ▜,%1$;▟B[Q]H$$![A]Z▚@/▝`BIN w TO ▗n OPEN #D8INKEY$LEN >=[Q]=[U]?! ERASE 8SIN REM #PEEK *(ABS REM !SnN>x RANDOMIZE ;`$ NEXT X# LIST .)`-[J]PI STOP / RUN FN R[N]LN 2 FORMAT ▗ZVAL z▗ASN IN BORDER Q LPRINT RANDOMIZE >s©[P]TAN )8;oH<SIN /7▞ !0 GO SUB r POKE p%VAL USR BIN [Q] LPRINT p`"L[B]4VATTR _lPOINT LUSR POKE ▘.> CONTINUE ▞N[M]L+EXP @P▖IN ▞I[M] FLASH B GO TO @▗/L[B]F▜ j CLOSE #[C]Z LPRINT ▟[I] FLASH MOVE [P] IF oV.`<>[M] DRAW fGy<>!?[N] PAUSE SGN 7 SAVE s SAVE ] RANDOMIZE LINE LN 0POINT [Q]4a@ REM #USR PAPER [K]SGN CODE r PAPER "▝"= NEW < FOR cKACS PIJP8▗ ERASE `(STR$ i GO SUB [F]@ GO SUB THEN g COPY xCP DRAW LN READ 41`)[G] INPUT { STEP COPY TAN
