| Es parte de la publicación: | Saboteur 2 |
| Tamaño del archivo: | 40704 |
| md5: | d04e5e5ede954495f95c45df0931b1da |
12850 REM SABOTEUR PART 2 ONLY FOR 128K COPY
07^ Disked,packed and cheated by REANIMATOR. F
29295tape removed by ANDY2. Thank's to NICK for help and others ... 21 March 19958| ERASE PAUSE *000+PEEK 00000[D]+0),PEEK 00000[M]1994 USR 0 NEXT !XT] COPY u GO SUB VAL !Z^@ MERGE [A] GO SUB VAL [Q] OPEN # RETURN CLEAR w CLEAR w<> @e@/ CLEAR THEN ( CLEAR LLIST THEN ( CLEAR THEN ( GO SUB _ THEN ( GO SUB G GO SUB F CLEAR DIM [Q]@POINT @ LET p0 ERASE @NOT @[M]C BORDER THEN [T] 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 ANDY PROTECTION SYSTEM'94 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 8duo4rLGK-:GTan{"/<IVcp}$1>KXer©&3@MZgtO/ivASN RNDXASN q LPRINT OPEN # POKE ▟:6USR a OPEN # PAPER COS k`SGN ▘©`TAN READ NOT [O]VSIN "CHR$ 2 CLS r ERASE EXP &[G]~[Q]ACS ▙[M]6mPBIN " CLS STR$ >= BEEP [K]▟TAN jw+8ER_ly -:GTan{"/<IVcp}$1>KXer©&3@MZgtO/iv*7DQ^kx,9FS`mz!.;HUbo|#0=JWdq~%2?LYfs'4AN[hu)6CP]jw SCREEN$ Pload IF -F9!EXP >= LINE AT Q+<a9^4 COPY OR [K] TO INKEY$;K▝9 BEEP NEXT MERGE ▘[J][O][U]k! BRIGHT 7} INK E INPUT )cSSGN NOT ^UF[S]|]LLHPI DRAW *!s, RESTORE OVER E# LET C-eSTR$ [K]0 IF ERASE RETURN 9{Dt& PLOT u LINE ;oa>9 INVERSE <>M$ FORMAT ▟M INK FOR *IN :8:<:8:4 LINE ]9[I]>= LET SAVE VAL$ ?0 FORMAT Q)"Z[R>INT VAL 7[Q]▜7O BRIGHT ERASE :?7q PAPER 1 INPUT W LPRINT V STEP .xG CLS 6▘ OUT 4 COPY 4VAL$ &M[Q]/ BRIGHT C OUT c<=o9fR CAT ,[I]xE INK &/D MOVE DIM IN fnw AND CODE C CIRCLE ) LLIST CIRCLE # SAVE MOVE V4 STOP /=~+,LN +USR /f, RUN DEF FN ▙ PAPER FOR ▝(STR$ &[I] READ n NEXT OPEN # BORDER ; NEXT _>#.#+ DEF FN ( RUN / RETURN 26) PAPER ?/2)&".>0 READ LET STR$ 8 OR 8&L PRINT TAB N▟ASN ▖>= SAVE <=INT OR NOT OUT 8>"INKEY$ OUT OR <= DIM BORDER GA©EXP THEN MERGE i LET COPY STR$ BEEP RESTORE ▜▝ FN THEN MERGE OPEN # CIRCLE OVER TO LINE RANDOMIZE PLOT SGN INT )>|:) READ >=uUSR RANDOMIZE >= DRAW LPRINT _[Q]NOT <> OUT FLASH CLS EXP 7▛ FOR ▞ COPY AND CIRCLE VERIFY H46p&$H6tq LOAD PRINT POKE BIN VERIFY DATA ©ACS EXP 7))/(.8&' DRAW AND fQ POKE >=COS yq LINE >=STR$ THEN SGN ;6*$YYk)LN [U]cSGN CLOSE # PLOT 38AIsINT <= PAPER (8COS ATTR GO TO MERGE "COS SQR <> FLASH <> STEP STR$ BIN AND STR$ s STEP >= GO TO CLOSE # VERIFY NEW STR$ PEEK USR AND ? PLOT SGN STR$ [R] CLS [Q] VERIFY GO TO ▟q COPY INVERSE 9. TO >r NEXT 1(NOT PAPER LET TAN ▝STR$ CIRCLE FORMAT CLOSE # FORMAT OVER BRIGHT CLOSE #>=CHR$ =_SQR !;[N] ERASE LEN NEXT d CAT CODE N▛IN IN TO SQR <> ERASE OVER FORMAT .SIN CAT OPEN #[R]ACS <PEEK Z RETURN BRIGHT OVER RNz▟-7D FORMAT 1!DPEEK NEW R8VAL$ - PAPER SIN [M] BRIGHT g OPEN #INT OVER >0<>s<= INVERSE POKE STEP J CAT STEP CLS FN (INT gi)TAB .HK8(ABS RETURN POKE <>I<>▟v▖)[S]SQR Dgy9[F]ACS <>:eeXFN V NEW z FOR SQR d>$H POKE [R] DEF FN ▙k OUT TAN F48_ABS )EXP ACS FLASH RcE[U]SCREEN$ 6>G+ COPY 5K}LEN ▞ THEN FOR COPY LET NEXT rSIN INK BEEP CODE {[L] BORDER STR$ OUT OPEN # ERASE TAN wABS SQR INKEY$ CIRCLE USR ▛5VAL uVAL F[A][K] THEN fINT IF ,[F]qxSIN WASN CAT MERGE 'AT 7=F POKE zxPEEK ▖▖o[I] NEW CLS LINE U IF ABS A▜ RESTORE OUT STEP TAN SCREEN$ Q*oATN ;Bp6LN .ASN DEF FN LN A[M]JHzACS MERGE CAT ©p-0zhAT (SQR NEXT 6*▙x LLIST BORDER 2q[J]%LEN 8vEXP ? zD PLOT DRAW *ATTR Q[H][F](}SGN MERGE CAT <>NOT 2v% MERGE ATN L RUN MERGE <7LN SQR )o9jk{©[G] DIM ) CLS ( DATA 9<d8SCREEN$ <TAB 0[P] LINE ACS THEN v FLASH PLOT #+7;7IN MERGE OPEN # MOVE ERASE MOVE NOT <> LINE INK FLASH INK LINE RANDOMIZE NEXT ▞[K]<><> OVER I3LEN j=n=*}&m#[G]+9#VAL p& POKE VAL$ IF FN COPY FN NEXT CIRCLE CAT CIRCLE THEN SAVE LOAD SAVE OPEN #>= CAT >=NOT USR <=BIN 7:[T][S].8*n4*8~8.<13E[P] STEP [L] STEP OR +u'u#e'e+-[F]#SGN SCREEN$ RND>=jj"bB[E] FOR THEN INK ▖COS uZSIN -©){+}zVAL$ OVER BEEP ATTR S*fATTR #:r?SGN OR <=NOT THEN ▞ASN SIN ATN THEN LINE = INPUT = FOR 2. PAPER THEN ATTR ▞)[T]KRNDPIABS {[K] DIM IF LIST [O]O4o8ATTR SAVE k|▛[A] CLS BIN INVERSE LIST POKE *▝.4zSGN o4 OUT ▖ SAVE TO I[L]▛$ VERIFY READ USR SQR <= CONTINUE OikVAL$ SAVE QSQR CLEAR AND EXP BIN OUT kAATN p READ STR$ LIST {BIN 6INT SQR 9CyOi CLS VERIFY [T]*[G] NEW BORDER OUT AND <=D& |[P]9>=2f CLEAR BIN 7SIN CLS CLS PAPER VERIFY BEEP 4f47cX? LLIST BIN ;ABS N}[L] LPRINT ?COS 4COS 6$j/c STEP [G]ACS EXP NEW AND A<-COS HSQR T- OUT QJ© IF SGN CLS B{ REM MERGE CODE GO SUB GO TO )4 RUN '▖8▚# RETURN ▛ RANDOMIZE COPY NOT L4INT THEN 4Dp SAVE <=TAN [H]%dC[R] ERASE [H] LINE AND PRINT SQR CLS INVERSE STR$ CAT 4▙>=TAN IN INT STEP PAUSE IVAL$ MOVE LINE DATA OR ATTR Iw%?FN GO TO LINE INK AND STEP BABf%hTJ▞U>=<:IN {POINT RETURN <>CHR$ MOVE VERIFY +' POKE [H]ATN SAVE 2:SQR CIRCLE :tNNY LINE BEEP LOAD LN jcIN LN NOT : [R] ERASE CLOSE #Uh&|(3 RUN INT 9}q1▟oINACS DEF FN 83INT F©(<> CLOSE #27AT 6tINKEY$88 CLS INT 8.8<7 THEN JV▝ DEF FN Mr<r©[Q] REM STEP NU6u0g4© UfF TO LINE POKE ,v CIRCLE > SAVE DEF FN 4IN RANDOMIZE BIN >? NEW T-%9<NOT POKE ; CLEAR ATN $TAN INPUT GO TO ▗▟ STOP <=BIN CLEAR F LET ▞ REM 2p[H]iLN ATN INK FLASH DIM ▞ OPEN #09 NEW IN [S]SVAL$ OPEN # REM OPEN # INPUT NEXT PAUSE (INKEY$^[H] CLS C▜ PAPER &D▜]~p IF PAPER # OUT #[T] OPEN #nCOS PAPER FOR PAUSE CLEAR > FOR [F]i_l^▛$ CLEAR ▟0SQR PIa[L]a[L]a[P]6EXP W▚NXSPOINT ▜ CLS m0<= CLS COPY 1+KJC^CABS [K]SCREEN$ s DEF FN !▜[R]/ RESTORE |[F]Y FLASH DATA Y FOR VERIFY [U]V[E]VFN FINKEY$DSIN DASN O▜▟_[R]/[U]VTAB 1 STEP [N] LINE c[M] LLIST E FORMAT V[Q]q/PI CONTINUE RUN [N]VAL DEF FN qL▛[▟▛[T] RETURN RUN CIRCLE DATA [N]POINT NEW GO SUB NEW 8 STOP SmEXP SCREEN$ ~G%O[B]f CIRCLE & CONTINUE RETURN v OVER LET SIN RESTORE PAUSE RANDOMIZE STOP PRINT RND FLASH VERIFY ▞▖}VAL$ z RANDOMIZE INT LLIST [I]HRND▖ LPRINT w CONTINUE © FORMAT RUN [Q] NEXT AND READ >= REM [T]~[T] PAUSE OVER HTAN REM RUN MOVE IN CLOSE # OPEN # DIM g PRINT [T]STR$ OR mSTR$ `[F]lUFN S GO TO 2 NEXT J[H]. BORDER FLASH POINT SIN ▜ COPY [H]IN DIM ogCODE USR n OR n STEP n BEEP [ ERASE b[N]DTAB V UTAB BRIGHT RESTORE 1[G] RETURN MERGE VAL LET BEEP MERGE REM C RESTORE ASN LPRINT CODE RUN COS "[T]/eFN U[P]b STEP .[B]q PAPER BORDER bX[I]j~▝'A DATA t[U]yJ RESTORE ▘ CLS Z BORDER INT U GO TO ABS ▜ CLEAR &▜[J]l PAUSE AND CLOSE #V PAPER VERIFY RETURN OVER * DEF FN CHR$ CODE j RUN .CHR$ [S] VERIFY VAL$ R[U][N]ACS DIM RANDOMIZE NEW DEF FN DATA AND y[G] FORMAT CLOSE # FORMAT <AT GVAL$ rUSR ?[L] DIM SAVE /s CLOSE # PLOT f LPRINT F LLIST AND dBIN AT FOR CLOSE #SCREEN$ MOVE FORMAT GO TO OPEN # IF DATA [I][S] ERASE PAPER CONTINUE ▟ PRINT LIST CONTINUE [G]=ACS [I] PRINT DATA 1#z[ AND CONTINUE m'Ukt CONTINUE [C] CIRCLE THEN DRAW FOR INPUT COPY PAUSE COPY GO SUB LIST DIM LIST STEP LET NOT RUN [F]([F] PRINT (SCREEN$ ` PAPER [K]6 NEW ▞U<▜~w+[I]<=RND<,ABS j INPUT n] PAUSE ▙*,[I] CLS MERGE q|[S] INVERSE CLOSE # PRINT CIRCLE OR }`rC* GO SUB THEN MOVE b VERIFY r6r-rsrwbdbINT DEF FN b STEP [C]L[C]7[C][C]SCREEN$ a[>=[I]`NpNpTp BRIGHT `[S]`INT `[Q]` LIST DRAW ACS 9U3Q,ma_eam(qvu▛qATN m FLASH a AND U SAVE [L]o####oScSgScSoCsCwCsCoScSgScSocScWc3c[D][I] DATA RESTORE [P] PLOT [D] READ CAT s▞g:?7)▞ COPY STR$ OUT STR$ IN ATN yGe BORDER [A]RNDgPOINT X LINE FN .xwEv[A] PLOT [F]▞WEXP R[M][©)w<= RUN LINE NEXT [C] RESTORE <=▙1[M]f_~8bL LOAD IF FN [A]INKEY$RNDLL>= TO LOAD DIM SAVE INPUT LOAD REM IF DRAW > REM DATA [S] MOVE CIRCLE MOVE /[H] OR (U9Z[K] INPUT INKEY$2V[J] BORDER ▟/ica[L][J][B]/e RUN MOVE 7 RESTORE BORDER Sz OPEN # NEW PI CIRCLE GO TO ▛ DRAW NEW 6▞▟▞ RUN DIM READ RESTORE READ FLASH RESTORE IN FN T! PAUSE FN [E]) INK BORDER [K]g) READ QI THEN pp THEN !XQATTR [L] CONTINUE k▘c[[I][L]▜ THEN STOP 2rLyK} RUN b?[E]CODE CODE kW[J][P]a PLOT [P][H][J] BORDER CAT [L] GO SUB DRAW CONTINUE i READ BIN STOP [E]NOT NOT OR % BRIGHT [I].r INVERSE [O]M~[S]!n GO TO l[D][K]T.<>[N] DEF FN .[E]@D▙[D]`/b` OVER 8@. LOAD SQR hSQR lm[N] THEN d[O]:[B] ERASE UACS ▙ LIST Z[E]VAL$ POKE . LIST V LOAD wP[P] g BRIGHT N▖iE[O]^[O]SCREEN$ X4 GO TO o=NOT @o BEEP d[L][O][yKFN ^1[I][I]kATTR SCREEN$ o/S[H]a[h[I]` BEEP h THEN ;<[C]Uec INK DEF FN i CONTINUE EXP oEXP )[P]a[[[P][B] BORDER BORDER v REM [Q] PLOT [J][G])MCODE NOT )]CODE ▟4.8 BEEP OR LOAD J LOAD BkAw%EXP - READ INPUT LOAD NEXT [R] PRINT LET CAT STEP COPY LET IN ▝ATN w)gRNDf LPRINT f DATA NEW GO SUB LINE LIST [I]▛ CONTINUE ABS PAPER [J][P][L]B[D] GO SUB AT [H][R]▜u AND [F] FOR DIM RUN nM BRIGHT CIRCLE ▖ IF [K]▞[M]?*T.PATTR [H] ERASE j2Y RESTORE [E] NEW CONTINUE PRINT RUN NEXT [S]ASN BORDER <>g SAVE RANDOMIZE BORDER [A] FOR CLEAR 1SU[F][H] REM 6ABS [K] LPRINT AND $ LOAD CONTINUE THEN VAL ACS BIN RANDOMIZE CONTINUE [E]▙▖ INK LIST FN BRIGHT DIM BRIGHT CONTINUE FORMAT DIM INPUT TAN [K] LLIST DATA RESTORE INVERSE CONTINUE CHR$ PRINT PAUSE POKE TAN DIM BEEP EXP { OUT COPY BRIGHT FOR CIRCLE LOAD h9a LINE CLEAR t NEW ^([O] BRIGHT PAUSE FORMAT MOVE VERIFY LPRINT INPUT FN VERIFY VERIFY BIN INK [U][N][S]`gCHR$ +SCREEN$ CODE DIM BIN FOR LPRINT [B] LPRINT STOP POKE ▘`b|[C]sI ERASE ▚v BORDER NEXT f LIST PAUSE [L] LOAD GO SUB REM CONTINUE x[C] BORDER [H][J]A[L]<>*.MVAL$ ATTR POINT :; LPRINT [M]S[J] CLOSE # LINE /▙ATN *5[L]g[C]NmABS DIM TAB ATTR hHAT }[K]n_▖W[B]▚x+[O] AND BIN U REM /ATTR (U CAT bs RUN zJ* ERASE ▛EUSR ▛ INVERSE uCOS B LINE INK PAPER * REM POKE b4▟iyG[G]aW▖ MOVE A▜![L]▞LN NOT CLEAR #ATN 6q FOR ) TO *2&>▞ BORDER TAB SY>Y,POINT qL^Y FLASH Vc: COS <>: NEXT 2~[P]:U0 LPRINT FN t/t9[K]CE9q1qOsi<>cl`2[H] RANDOMIZE PAUSE W PAPER PAPER [C][H] PAPER [J]S[N][I]H[O]R OPEN #rINKEY$rVAL BZH(*0.[FN POKE GO TO [L]ZX<> TO DRAW ▞5-g▛_CHR$ [P][K] CIRCLE PAPER BORDER [G]F`x[H] BORDER 28[C] DATA ▙ASN RETURN POKE PAUSE RANDOMIZE >= READ CLS [K] RANDOMIZE COPY PAPER CAT [M] BORDER PRINT COPY LLIST COPY [P]EXP CODE ASN `VpZ MOVE AND FLASH 5▜)I-p[M]<= OR `▚USR jCODE { BORDER ~k CONTINUE [G]D INK USR INK [U]1Eq MOVE G MOVE #o4BIN SQR RND CONTINUE NEW V LOAD PLOT 04 INPUT OVER FLASH USR PINOT NEW LIST ! THEN POKE / CONTINUE 0 GO TO z'|3u BEEP ▚ INPUT [O][H][G][A][E]o INVERSE ! PAPER f INVERSE INKEY$7TAB <> PAUSE ▜r|f NEW DEF FN [Q]X OR + DIM , CONTINUE , CONTINUE INK [L] & TO ?$ 64vki FLASH [N] RANDOMIZE BORDER {PEEK gINT e RESTORE RESTORE :o DATA [E] BORDER [F]q▜<>N GO SUB [J] INPUT OUT [Q][H]vERND PAPER PAPER CIRCLE U='[A]r[C] FOR NEW POKE VERIFY s FORMAT K@▚<>[L] LLIST [E] CONTINUE INPUT PAPER V REM bEXP m CLEAR [K] REM CONTINUE vkPEEK [C]Z.}i[U]<=[H],1[H]▜RND9? RESTORE +PIzb VERIFY LPRINT [F] POKE PLOT CIRCLE ^[C] AND NOT BIN NOT POINT COPY ![T][H] GO SUB DATA [I]r0 NEW CAT c[E] VERIFY CIRCLE PLOT /USR [J] OVER DATA %▛ DIM [E][K][M] VERIFY } THEN [D] AND POKE INKEY$ BRIGHT ▖TAB DATA VERIFY a OR [G]>=CHR$ POINT ▖ VERIFY CIRCLE TAB CLOSE # PAPER [I][I] CLOSE #9[L] LPRINT [D]POINT ojoba[E]4▞0(tv`▚▗ THEN CIRCLE W[L][E][G]SCREEN$ FN '/SCREEN$ FOR k[G][L]c ERASE 2 THEN SGN !t LPRINT DIM GO TO 2▜▖[M] READ RESTORE )LN ib LOAD ▟P> BEEP [K]gbh BORDER n▞ RANDOMIZE TAB #▚[B] COPY ▙ PAUSE SGN ABS CLEAR .POINT GO SUB +ACS [K])ATN [E]▛ PLOT POKE NEW L PAPER Z[J]m TO RETURN AT DIM DIM DIM SCREEN$ MERGE [K] INVERSE OUT / BRIGHT [J] BORDER DIM SAVE DEF FN STEP INK V▙ RANDOMIZE *(/* PAPER SCREEN$ ASN ATN -[E]< OVER [A]oOo LINE {▗ LIST +[A]▞ COPY PRINT CLS !n[L] RUN RANDOMIZE RANDOMIZE NEW FOR C LET DRAW k[I] MERGE OVER !/RND/![M] RANDOMIZE LPRINT INK THEN )/[K] LLIST DATA READ <>▘46f~▛![O] DEF FN [I]?l OPEN # BORDER REM =NOT 9ATN YfE;;[A]#OFN #^#©[K]3/bo©iSCREEN$ ▛%▛SCREEN$ (/ky[O]I BRIGHT [G][R]sww]OSQR G[U]WEXP G REM LINE SIN >= REM BRIGHT REM VERIFY : BRIGHT [I]@ SAVE [F] OVER PLOT ASN ▖_[G][O]2&SCREEN$ ▘|",*@[J]HSIN 7[U] CLOSE # TO PAPER "4[I] MOVE [L]g(*<JPOINT ' MERGE z[N]PZ<[L]pJ,ASN _>=Bx[L]$Ro:4Z CONTINUE qh1zCODE OVER [I]l* INVERSE >=(*: VERIFY `:d:`Z/SCREEN$ LLIST BEEP STEP FN LPRINT OUT [I]?9 [G]k)▟RND' STOP [K] CAT 9.VAL SAVE .AT !6 CLS <>[O]+9g9▙s6OP1Y THEN [K]?Hko INPUT ]Ko[G]8;[D]38? CIRCLE STEP ▞ PAPER NEW NEW NEW VERIFY + VERIFY / VERIFY + VERIFY NEW NEW NEW NEW PLOT PLOT PLOT PLOT NEW NEW NEW NEW REM INPUT REM BORDER READ CIRCLE ;8<s[D].e.a._[F]] DATA (CODE 0:6"G[L]%*▟w[L](Y[L]( LOAD Br^vBg[I]▘. FORMAT ▞8%▞tx}[K]:([D]T DATA RETURN >=T ▜[D]6'>[C]5hqASN ▟(__ INVERSE [N] RETURN TO [H] CONTINUE STOP % CONTINUE [I]][N]%yij▙vH1[J]z!9[N])J*?FN )[G]?[q[F]A▛4F[I]K![G]g+@X INPUT FLASH OUT RESTORE OUT .[O] LLIST FLASH PRINT STEP PRINT [B]▞ CAT BEEP 9[K] BORDER MERGE INVERSE 9TAB U DIM OPEN #<>; FOR [E]g CLS RESTORE T[F] OR GO SUB INVERSE ▖ STEP #[L] FLASH ![J]h GO TO INPUT (* RETURN USR [M] PAPER ERASE $[J] FORMAT DEF FN ,6J STOP LIST AND CHR$ FORMAT FTAB R CONTINUE CONTINUE < VERIFY [B] STOP AN[J]b VERIFY USR USR tHACS [F]` RETURN d[G][D][C]/^H6TAB FN 0F[P] CIRCLE OVER r<L▟|&p[A]ATTR ERASE 2^ ERASE % LOAD [P]<>[P]V▟ TO n8 CLOSE #h CLEAR [P]` POKE [M],[A] STEP n LIST m>[P]%y LLIST {'Qz▟ NEXT <> RUN <=▚?▞[I]%{E1ATTR U GO SUB 7 INK COS [N]aCHR$ USR g!▞u LOAD MOVE p[I] STEP OUT 9[L]Y GO TO ABS IN IN ABS [R][K]/y8;[N]wiuomNOT ':Y[K]g INVERSE OUT iOiTAB COPY COPY 8[N] BEEP NOT RESTORE NOT [D] DIM kui9 NEXT ▛iZ[O]g[G]. REM STR$ [O]LN CLS `[F] STOP CLOSE # STOP ?[Q][L]7▖ OUT >f RUN BORDER BORDER BORDER BORDER BEEP * BEEP . BEEP * BEEP BORDER BORDER BORDER BORDER RUN RUN BORDER BORDER BORDER BORDER [H]j[H]n[H]j[H] BORDER BORDER BORDER BORDER RUN RUN BORDER BORDER BORDER BORDER BEEP * BEEP . BEEP * BEEP BORDER BORDER BORDER BORDER RUN RUN BORDER BORDER BORDER BORDER REM INPUT REM NEW INT CONTINUE (VAL h[U] CLOSE #. IF BIN BORDER [E] VERIFY READ [C] CLOSE #COS x6)ATTR 8.POINT *)n PLOT POINT [F]*<> INK h:m: VERIFY [L]y[M]H/4z(J)[A]R▜R7 STOP f% IF P) LOAD AND P- FLASH BORDER VAL$ VERIFY (>= RANDOMIZE [K] STOP ▖CHR$ RESTORE 6 LET PRINT >= DIM [K] IF GO TO ;Bb DRAW 27©)p POKE S* BORDER CIRCLE n[J] NEXT FOR [D]*3[S]=+p+&[K]▖D[K]t}/>=CODE ▝* THEN BORDER =X[K] NEXT ijw▜ CIRCLE T<> RESTORE BEEP DATA ABS READ l*ASN OPEN # POKE <=MCHR$ PAUSE [P]$2(3[Q]RND BORDER ATN [H]CODE : BEEP REM ,0 [I] STOP ABS 8[F] READ CONTINUE SCREEN$ GO TO m)%f][O]F?5 RUN ▝ THEN OPEN #[C]!XB6)XJ[S] STOP FLASH BABS Dn READ [N]>=Tq LOAD INK ` OUT ?FNOT cSTR$ a<[Q]|{f[G] CAT [O] OUT [B]ATTR OVER DATA ATTR PAUSE [G] LET C[D] SAVE 9 IF FORMAT BIN *) CLOSE # OVER [I] NEW CLOSE # OVER [P] CLOSE # RETURN ▜ DATA |5▚2[J]; LIST d THEN CONTINUE l LINE d(s[L] READ &:ABS <>_[K]" DIM [E]" NEW [B] PAPER RNDSCREEN$ FLASH INKEY$ + PAPER COPY [E]/" OR ▗7 IF =RND:m[F]$, [H]"<> DATA FnJ1 RESTORE 4[L]66: INVERSE ▗NOT 6IN FORMAT ▙[D]%<[F] REM pRND/▖[S]96fEXP PAPER I[T](M#([F][L][K]b&<>ATN f STEP LINE ▞ey?06 PLOT EXP 4<>k▘ DATA XR[K]' RUN LPRINT r[C] BEEP u[U]u[U]=z[G]Z[K]SGN POKE E' AND (q5G OPEN #[P]BIN 6FN Dk LET LLIST Ua AND 8L3[I] PLOT 9 MOVE SBIN LINE [E] INPUT ' VERIFY + INK EE CONTINUE FN POKE ([D] CONTINUE VERIFY POKE h LOAD [K]7>=.▚* DRAW [K]; CIRCLE ECHR$ 8m9 LINE 7 AND STEP PLOT tPI CAT N▚D RUN SQR NEXT De CLEAR STEP 6'7 POKE [M]&AKPOVC(E@DY]QE(DEEK&[B](V#79"NVDIEBIHC&IXP6TSD AND .▗$ STEP ASN ~ PAUSE sCOS o(AQ_Z&BIN 'NOT 6[B]BX_G6TEGJOEATN [Q]EXP [S] ERASE : VERIFY ~ACS POINT INK COS VAL VAL$ INK SGN FN FOR &<>iINKEY$LEN RANDOMIZE _m OUT TAN TAN ATTR [T]▖▜ DIM ▗▚▚▛ACS TAB FLASH PEEK TAB ACS VAL$ POINT BORDER RETURN <>|[Q] THEN EXP RNDSGN FN SGN LEN TAB FN INK VAL$ AND OVER FLASH CODE >= OUT INVERSE RUN POKE }VAL VAL ATN FLASH TAN VAL$ DIM m[T]FN LN ABS RUN FLASH |ACS SQR AT LN TAB BEEP LLIST PLOT M LPRINT FOR <> GO TO qFN POINT INT INT LN [Q] BEEP OPEN #<>VAL$ >= IF PIqSCREEN$ INT SQR VAL TAB PEEK RANDOMIZE txVAL CHR$ .ZI[U]AT PAPER AT POINT ATN + CIRCLE wVAL$ FOR RUN j INK CIRCLE FORMAT ABS LN `▞[O] PAPER DIM CONTINUE K[J] CONTINUE DIM <> FOR NCOS SCREEN$ INVERSE CIRCLE SCREEN$ ATN SAVE COPY ~PIINT >=ABS ATTR LN PIINT ▖ PAPER { OVER OUT EXP CIRCLE REM <>USR THEN ▞ PRINT SQR ATN PEEK ABS BRIGHT PRINT INT PLOT SCREEN$ kINKEY$ DEF FN VERIFY nINKEY$EXP SCREEN$ ATN RANDOMIZE W|ABS EXP SQR ▟5 CONTINUE GO TO [G] CIRCLE PEEK tATTR ASN SAVE LEN ~TAB ATN [U]AT EXP >= LOAD TAB kABS POKE IF IF [I]f# CIRCLE w}[[G]bnG[A]ACS FLASH CODE ACS EXP LEN ▚<>POINT <>▚▙SQR AT BEEP INT EXP ACS ▙ CLS k▟▖CODE ▖EXP ▖ FOR [Q] FLASH INK LN ACS VAL TAB EXP SGN [T]SCREEN$ FOR GO TO l[R][T]INKEY$ RUN DIM wSQR VAL [B] FLASH INK ▜>= FLASH AND READ DATA RND INK OUT DIM CLOSE # RANDOMIZE LLIST EXP ASN x PAPER FOR DIM PEEK O[U][D]IN [A]VAL LN INT TAB FLASH ▞PI[Q] FOR ▝▙[T][N][O][A] FLASH SIN [D]LN EXP [A] PAPER <>[M] CAT DEF FN LN DEF FN BEEP MOVE FN TAB RETURN 'k FORMAT INK *xEOfM*ACS ▖ASN [A]SIN ABS REM TAN h▝[L] BRIGHT IN CONTINUE STOP |SIN EXP PAPER [J]LEN FN SQR SGN LINE CONTINUE INT [P] REM HK CLOSE # IF STEP ©[I]▛▖LEN /nCHR$ LINE ▚ DATA :~LN [I]ATN SCREEN$ ASN PAPER TBIN xy[H] GO TO { SAVE ZsFN ▝[N][J] LINE CAT PI POKE xzSQR VAL CLS © CLOSE #▜▝[J][P]>=5L INVERSE PAPER [B] PAPER PEEK LN SAVE {©POINT SGN TO RNDSGN PAPER [B]AT [P]z[D]AT : RETURN ▖Ib{! INK y>= MOVE RANDOMIZE x[P] DIM VAL$ a[S]INKEY$IN INKEY$[E][A]VAL [F] COPY [Q]xSIN [B] FLASH H FOR MERGE @ CLS INK INK BRIGHT COS VAL ATN SIN ATN FORMAT BIN FOR COPY USR h[J]SIN ▙ SAVE > LOAD ▞ FLASH X?POINT FOR NEW INK STOP STR$ [T]LN 1 INK ~ LINE CLS EXP s[S][S][U]SCREEN$ DIM CLOSE # INK [P]z[P]SQR INT RANDOMIZE LN {PICODE THEN iL▝[P]VAL > INK [L] RETURN LEN SQR w▜▞ LOAD $ INPUT [B]$<>v STEP FOR [J]wAT LEN VAL BEEP CCZGVAL$ ▞ CLS BIN VAL$ [J]X[C]#l[B]CHR$ >=▙TAB ABS RANDOMIZE <>{VAL$ ▝LN ▖6SGN !I[T] INK THEN L[K]ABS VAL$ ABS DEF FN q7 CIRCLE uLN ATTR [T] INPUT POKE >= CIRCLE LOAD B}ACS ASN CODE OR USR DRAW [D]TAB Y CLS EzIN [Q] NEXT COS COPY )[K]>=SIN GO TO ACS zASN ASN ATTR ASN >=O[I]STR$ REM DEF FN SCREEN$ {[T] LINE OPEN # SAVE PAPER z[U]LN COPY t!>=bPOINT CIRCLE LEN POINT EXP SQR VAL$ BEEP RETURN BEEP }(ni▙G/ PAPER SCREEN$ TAN IN COPY DRAW }AT ASN BIN LEN AT ABS [M]CODE [P]~|ACS LN LN VAL LN CLEAR ABS K▟[N] DIM H▗[S]SCREEN$ ▛ INK INK 1 INK FORMAT PIcIN [Q]SQR [U]PISIN [T]COS ▖ COPY 5 FLASH {EXP USR LIST XPOINT NOT [R] INK SGN IN PI! FLASH zSQR INKEY$POINT 3 CAT hCODE DIM w* FLASH zTAB AT ASN IF TB DIM [K][K]▙[L] PAPER TAN INT TAN VAL RANDOMIZE ^ BEEP [B] INPUT STR$ [R]n[Q][R]ACS ATTR VAL ACS POINT ▛ CLS 7 BEEP ^]/9 INK .vCOS ABS INKEY$ CIRCLE ATN ATTR RETURN k CONTINUE O;>=mPI[S]LEN INPUT [T]* CIRCLE CLS ©|SGN <> STEP INPUT E OVER ASN COS SIN ABS TAB SIN ATN ▝j DEF FN [L] INPUT RESTORE [Q]qEXP IF 8 OUT ATTR RETURN ;VAL$ <= OR OVER VVAL$ qFN OVER ) OVER yTAB LN CODE [R]CODE [L] ERASE ! DEF FN tTAB ERASE IN VERIFY GO SUB [M]© OVER 1 GO TO CONTINUE ▟,MEXP VAL CODE BRIGHT 9▟7 FORMAT j[S]ATTR PI[Q][P][B] OVER ▗ OUT pINT BRIGHT ATN [U])_./$' INVERSE }ABS AT SGN SIN CLS DIM 1jABS CONTINUE ~jSCREEN$ PLOT ySCREEN$ ERASE DIM LPRINT DIM COPY FLASH !H[M]VAL +5 BEEP ▟▟6 FLASH xACS CONTINUE jhVAL$ [I][F]" BEEP }INT PEEK PEEK SGN RETURN RESTORE s TO <= STEP DEF FN CLS (A BEEP zVAL SCREEN$ PEEK INVERSE F{[Q]FN LPRINT B?<>cCODE ACS ATN CODE ACS SIN LN FN ▟6 FOR COS pABS ABS 74 FLASH zTAN ABS ABS FN THEN CAT >=kACS ASN LET ▝y INK THEN MERGE ▙JWM*&LN CLEAR ▖ LIST CONTINUE LOAD VERIFY [I]SCREEN$ [I]POINT [I]SCREEN$ VERIFY LEN [C]y CAT RETURN p[U]▛▘ CONTINUE COPY LET NEXT CLEAR ; CIRCLE yLEN VAL AT CLEAR FOR tSCREEN$ COS [F]o[F]k PRINT iySQR NEXT INPUT yAT CLS CONTINUE [F][M]▖FN [P] VERIFY LINE CIRCLE CIRCLE POKE qrLN BIN SQR USR [F]= MERGE IySGN RESTORE I PLOT s{LN ▚▛NOT mK▗[M]ATN PRINT R©POINT LEN VAL$ VAL VERIFY SCREEN$ CODE RESTORE T NEW EXP DATA FyFN PAUSE 'yEXP RANDOMIZE INT ▚&83= OVER INK >=STR$ <= CLOSE # DEF FN >= AND INK ▜ATTR nSQR CONTINUE ASN uVAL TAB LET BIN xTAB PAUSE RETURN MOVE [Q]H NEW 6 FOR % BEEP DIM $<>5 FLASH BORDER [K]h[S] CLS RmIN [R]ACS ATN LOAD A STOP PEEK PAUSE sPOINT [T] CAT INVERSE ▘SQR ▚_pSGN ACS COS ABS PEEK ATN BEEP TAB [S] GO TO ▞kSTR$ NOT ▜; RESTORE DATA }SGN [T] LIST !<=- FORMAT H[L] VERIFY u▚x OUT . FLASH PAUSE [N] NEW ▞hFN DIM READ k BEEP CLOSE # POKE [C] IF ▟ RETURN [C]v* LET ▟H LET h PAPER z▛}▜j LINE [P]*[L]-▜:' PAPER ▖ IF CLEAR LINE REM LN SGN ▟INT ' PAPER ▖z}j7 LINE [I]*[M]-:' PAPER ▞ IF ▟ CLEAR ▝WSCREEN$ RANDOMIZE LINE CLEAR STEP ▝INT ' PAPER ▞z▟}▝j7 LINE [J]*[N]-▝:' PAPER IF ▙ CLEAR ▘ LINE REM INT PEEK ▟▘INT PAPER PAPER PAPER LINE LINE LINE LINE PAPER PAPER PAPER T IF OR )V0MW:_AT PAPER NOT [T]<=BIN VAL ABS DEF FN " THEN 5RND OR OR " CIRCLE NEW :EXP [A] RUN <= CLOSE # VERIFY SCREEN$ MOVE RANDOMIZE POKE j PAPER RANDOMIZE w LOAD LLIST $▞SIN MERGE SAVE $6 RANDOMIZE ©<= FOR *[J][I] READ ▞[I]XEXP MERGE DIM CONTINUE Y CLS N OUT READ D FLASH g INK d THEN [G]j< PRINT [J]AT =[H]<= LINE CIRCLE POKE >$: CAT BIN RANDOMIZE DIM DIM DIM DIM RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE PRINT LET PRINT [S]e INK LINE T9 RANDOMIZE ^+ VERIFY A[G] CIRCLE [I]^ PAPER IP INVERSE 5WP GO TO FLASH PLOT IF SGN `'[L][O]P IF PRINT {POINT [C]^= LINE LPRINT Q▗B<> GO SUB SAVE 7JV CIRCLE [G]^POINT NEXT AT CLS "POINT P FOR V RANDOMIZE VERIFY SAVE ▚Z LOAD <> REM G;_R OR TO {R LINE {` SAVE _f PLOT THEN IF ▜P INK PAPER ©P CIRCLE s^ LINE ©@Q% CLEAR D1▟q DIM FN NEW RND RETURN xN RANDOMIZE RUN ACS y RUN DIM CONTINUE COPY READ CLS ATN i LLIST RUN >=NOT CLS CAT x; LLIST CLEAR LET [R] SAVE T PLOT DIM PAPER READ R LIST GO SUB 0 RUN RANDOMIZE E1 PLOT :/QPOINT SCREEN$ INVERSE SCREEN$ d▖>=g RETURN 2 LOAD COPY INKEY$|zFN 4 PAUSE 4[B]
59424 DIM 92WCOS 0▙ LET THEN g▛- VERIFY [A]$RND CLS "▜ CLS * NEW [PEEK SAVE [G]&2 RETURN [H]32 CAT >[O]FN I%tPH.XYSQR LINE LINE ~L AND NEW STEP [T][O]/ LOAD PEEK MERGE BIN BIN mABS GO TO AT n OR STR$ SAVE PLOT $ BORDER LLIST uRND▛ BEEP LOAD g[F] BEEP PLOT v^=+ OR POKE +▚yY LET ▘OPEEK RUN SAVE |▜X4r/CHR$ [G]L NEW t9<=▗^9<=Y[D]_ ERASE ASN lLN DRAW 4n SAVE RETURN w;`_ PRINT <={; OR `USR CLEAR g[M]Q BRIGHT POKE ABS LIST RESTORE u SAVE ([G] (] OPEN # INK INK PQ4oA[H]▞1W^▛#4Py-%b,`5H=0R}3Pf1 LLIST E?J DIM ▛d&▙ PAPER 8i^T DRAW ▖RIN ▛▞* CAT DRAW INK BRIGHT 0-[J] CONTINUE ▖ DIM OR ▜C RANDOMIZE J~& DRAW $ CLEAR INK INPUT H GO TO <> CLOSE #A0T LLIST CLEAR /▛ PLOT EiNOT POINT LINE a PAUSE $ COPY " CAT RANDOMIZE BEEP -▝ OVER ▙:AT [Q] MERGE ▚ INK LINE ZP IF GO TO u DIM G[O]CHR$ PAPER CHR$ w REM [H]t▚ CLEAR BIN > PRINT RUN EXP CAT ?<>POINT `ASN BIN BORDER ' PLOT *5VAL FOR 7PEEK PAUSE INK [K] SAVE BORDER ▚<=! LINE [A]ATTR POKE TAN PLOT MOVE }1▜O:▗BIN w FOR FORMAT RETURN CLOSE #`5▖M0 IF 0▜/>=COS M TO IbY SAVE {53 INK TO z<=B[H] PAPER OVER C+ ERASE P3@R▝F8FN /Z}d3IS2[I]Q4 INVERSE B<>pG>=JA4[C]S OVER ATTR y CLOSE #] DIM MERGE H(▞ LET H~ DIM STR$ | OR YSHG DIM BEEP DIM OVER >=[N] DIM CHR$ }`Q OVER [SQR TO PLOT CLEAR THEN SGN POINT EXP [I]xhEXP LINE ©0 SAVE < DIM [XIN FORMAT REM u RUN [H]©dW CIRCLE X INK [J]F OVER cTAN >*[H] RETURN $[J] COPY REM LET RUN CLS [M]bi/ FOR nFN LOAD CLS CIRCLE FN R STOP CLS oASN READ FLASH CLEAR STR$ j" LIST 1Z READ 5]FN = NEW IF STOP RESTORE j SAVE " NEXT ERASE RUN r PAUSE CLEAR SCREEN$ STR$ *BIN [C]USR * NEXT ▚ COPY PAUSE CLS J RETURN INT PAUSE GO SUB ~ DIM VAL$ GO SUB LIST J DRAW SAVE VERIFY DRAW RUN 56▞▞ FORMAT ▞ CLOSE # RANDOMIZE SAVE ▖ CONTINUE VAL CONTINUE CLOSE # CONTINUE RETURN CONTINUE CLS ' CLS > CLS T CLS d THEN COS THEN POINT THEN [J] THEN LINE CLS CLOSE # CLS LPRINT CLS NEXT CLS REM REM REM > REM < IF E IF N IF P IF kASN [M]▗ RUN ▜ CLS ▙ COPY ▞ CLS [C] RUN ▟ FOR ATN LOAD VAL FOR ABS RUN ACS CLS SIN COPY PEEK CLS SQR RUN PLOT THEN PAUSE CAT LET THEN DRAW RUN THEN CLS VERIFY COPY MERGE CLS OPEN # RUN DEF FN FOR TO LOAD LINE FOR >= RUN NEW CLS DATA COPY RESTORE CLS READ RUN [C]▞[I]▞[N]▞ STOP RANDOMIZE CONTINUE RANDOMIZE GO SUB RANDOMIZE REM RANDOMIZE BORDER DIM DATA DIM DEF FN OCFA<= PLOT INK IF / SAVE 9 BRIGHT h OR 4<>6&VAL LET FRCHR$ BRIGHT U> INPUT REM INVERSE GO SUB MOVE GO TO [U]ACS VAL$ ATN SQR INK CODE ATTR ACS KAo▚|9 CIRCLE THEN SQR LET COPY RUN IF SAVE RANDOMIZE h REM NEW INPUT FOR ih PLOT PRINT IF CLS }x IF POKE PLOT THEN IH DEF FN NOT LINE THEN ux IF PAUSE RETURN CLS yx PLOT LLIST REM FOR mh REM CONTINUE PLOT CLS LINE RETURN ▙ POKE GO SUB ▚[G] IF [S]VAL$ SQR ▖ POKE BEEP OR SAVE LEN X IF [G]V[I]▞[I]▟[I]▞[I][F]▖[D]▖▛▖▗▖qLN POINT G STEP <= DIM H DIM FLASH IF NEW BRIGHT x POKE IF PLOT RESTORE FOR CONTINUE GO SUB k REM DATA PLOT ▖<▖8▖<▖9x ERASE x REM x BORDER X1x COPY >= OUT >= LLIST >= LPRINT CIRCLE PLOT [J] READ [J] NEXT [J] VERIFY ▞ MOVE ▞<>▞BIN ▞IN DK<> OPEN # LINE DEF FN AND w LET POKE y RANDOMIZE PLOT { RANDOMIZE [L]h DIM [I]}jk DIM PRINT RANDOMIZE SAVE <> RANDOMIZE ▞ RUN ▞ STOP RANDOMIZE [F] RANDOMIZE RND RANDOMIZE LN RANDOMIZE THEN CONTINUE wt RANDOMIZE POKE { LET CLS i GO SUB RESTORE o GO SUB LPRINT i PRINT ▖▞[M]▞[H]▞▘EXP JEXP EEXP XEXP h<>[I]x SAVE THEN ATN ▛RNDSQR COS ▛TAN FLASH [L][A]ATTR [G]▞ NEXT ▞ READ ▞ VERIFY n&(▘K RETURN K IF Rx PLOT p INPUT DIM [P]STR$ [P] OVER [P] THEN SQR FN RND[F] COPY RESTORE OSTR$ IN CLEAR PLOT {/ DRAW PAUSE ^ SAVE INPUT PLOT CLEAR RANDOMIZE INPUT INPUT o CONTINUE DEF FN PLOT ▙ DATA ▙ LPRINT ▙ DATA ▙USR RETURN SGN OVER USR /[E]▞ IF LIST INK REM PLOT [ CLOSE # PAUSE ERASE FOR LIST ^▗ RETURN Xr DRAW ^P DEF FN lz>=nABS [P]▟▜▟|▟q▟i[N]NABS [D]l RUN LOAD RUN Jq DRAW SAVE CLEAR DRAW CLEAR LIST BEEP DIM x RETURN COPY RETURN [L] DIM BORDER PRINT j CONTINUE CAT CLS CLS NOT t LET CLS LET OUT BEEP % RANDOMIZE v>= GO SUB <>N THEN RUN RUN DRAW LOAD CLEAR ATTR LET ▜ RANDOMIZE FLASH LET k REM FOR CLS DIM COPY POINT RUN ▞ FOR EXP LOAD r▙▜[J] NEXT POINT NEXT ▞ LOAD <> READ x PAUSE REM % LOAD b REM FOR POKE CLEAR RETURN COPY SAVE LET PAUSE NEXT DRAW <=L<>= THEN = RUN DIM COPY POINT RUN ▞ FOR <> GO SUB k GO TO INPUT 3 DIM T CONTINUE ▗ DRAW DRAW DRAW RANDOMIZE DEF FN LET LLIST ASN = IF CAT DRAW <> LET U GO TO GO SUB ▙ LOAD SAVE PLOT ~ PAUSE LET CAT CLEAR DEF FN jUSR w DEF FN RETURN PAUSE CLS RUN FLASH NEXT W[L] DATA [I]n DATA INPUT LPRINT [J]LN PLOT ▖ REM ▖ NEW SAVE SCREEN$ SAVE VAL$ SAVE INT SAVE ACS ▖INT ▖VAL$ ▖[K]>=[O]gB[P] LIST v[[C]SQR XSQR W>= DEF FN CONTINUE THEN CIRCLE NOT I LINE FN NEXT ▖ GO TO ▖ CONTINUE ▖ ERASE [I] BRIGHT CIRCLE CIRCLE [I].[I]2▖.>=*© PRINT [J]▚mHx BORDER DIM READ |[M]▖ LPRINT [I]▜ DIM COPY n RETURN ▖[L] SAVE REM DATA [I]EXP RUN ▞ FOR POINT BORDER LN READ ▖ BORDER HFN >= STEP SAVE THEN z BORDER [K] RUN SAVE ATN oE▛[L] BRIGHT H6 DEF FN ©S DEF FN YEXP CLEAR SIN +ACS (JVAL ~I OR [[O]<=H+ INK i<=USR K<=X[N] DIM IF { FORMAT [M]<=BIN FLASH BRIGHT N IF FLASH BRIGHT BORDER DRAW s LINE [K]<>>=<>U BRIGHT J) PAPER nI PAPER T TO Y[P] LINE RANDOMIZE CONTINUE wCHR$ ==FN 06POINT 6 DEF FN OR Z AND ][M] CONTINUE COPY DATA READ g MERGE K[P]NOT OVER CAT OVER <> MOVE THEN /NOT k>= PAUSE <=Nc PAPER [STR$ OVER OR REM LLIST v/ OPEN #I INVERSE FORMAT DEF FN ERASE DEF FN >= OVER <=S INVERSE OPEN #© INPUT [F] IF [M]SCREEN$ AT DIM >=▘▗ REM FN REM { GO TO [J] STOP >= LINE ▞AT STOP [I] IF DATA STOP }[J]▟ CIRCLE [J] POKE OVER INT CLS PEEK CLS INT ▛ PLOT COS z PLOT DATA CLS LLIST DATA SAVE ▞n[L] LIST PAUSE MERGE INVERSE b^[L] CLOSE #z▗6SCREEN$ 0[U]?SCREEN$ ?BIN THEN THEN BEEP ?<>I[D][N] OPEN # OPEN #/[J]K[J]W▞K▞_▞[▞WEXP kEXP oSQR SQR ▛▛mCiK▙ CLS HqS DEF FN ] STEP [>= SAVE ▖EXP 9IN + CLEAR [S] INK ERASE FOR WwYxV▝[M] INK INVERSE DIM QmU LINE Z LINE LOAD LIST z] PLOT SQR INK OUT INK Ok OR Z<> RANDOMIZE FOR {Y THEN RUN LOAD FOR TAB k INK H INK V SAVE s TO THEN Z THEN U& PRINT [U]gxH ▗ OUT FN OUT ©BIN CONTINUE PEEK PRINT CLEAR *ATTR lB[J] THEN DIM CONTINUE LIST |SQR ZIN Y7▟IxINT PAPER PLOT CLOSE #PEEK |>=T VERIFY X VERIFY W)BIN jD CIRCLE CIRCLE ATTR u>=J OPEN # PAUSE SAVE ▖u▖q▖u▖ SAVE SAVE SAVE SAVE CONTINUE CONTINUE CONTINUE CONTINUE SAVE SAVE SAVE SAVE >=5>=1>=5>= SAVE SAVE & SAVE z1 PLOT CONTINUE REM CONTINUE INPUT CONTINUE REM CONTINUE PLOT SAVE IF SAVE RETURN SAVE IF SAVE PLOT RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN DIM FOR DIM LOAD DIM FOR DIM RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN <> THEN <> CAT <> THEN <> RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN DIM FOR DIM LOAD DIM FOR DIM RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN ▞▛▞▞▛▞ RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN DIM FOR DIM LOAD DIM FOR DIM RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN <> THEN <> CAT <> THEN <> RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE RUN DIM FOR DIM LOAD DIM FOR DIM RUN RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE STEP R;; LLIST $^X MERGE GO SUB VAL <> CLEAR RESTORE PLOT 0 OR r_ OR INVERSE `~ THEN G NEW AND O~ NEW G~#N# NEW /< LINE m_< LINE o_< LINE i_< LINE j_< LINE d_< LINE e_< LINE X_< LINE X_< LINE C_< LINE D_< LINE _< LINE _< LINE 9_< LINE :_< LINE _< LINE _<(R<(O<(3<(0<(<(<( <(/ INVERSE g THEN G(+x AND O~# RESTORE o{[F]oz INVERSE [M]g GO SUB VAL LLIST <>~ INVERSE g# REM ~ INVERSE g#CODE GO SUB o INVERSE ▗CODE GO SUB o INVERSE ▗#xLEN GO TO <> CLEAR & RESTORE INVERSE LLIST FOR INVERSE ~ INVERSE # CLEAR |PI( INVERSE ^ INVERSE # INVERSE V INVERSE #w# CLEAR |PI(s#r#xLEN OUT FOR INVERSE RESTORE LLIST <> CLEAR & THEN INVERSE & MERGE GO SUB [Q] GO SUB [Q] READ RESTORE `i INVERSE % CLS DM LLIST GO SUB VAL LLIST <> INVERSE & MERGE GO SUB [Q] LLIST ~# RESTORE ng FOR rzW#xLEN PLOT FOR LLIST #<>~# RESTORE bkw GO SUB VAL LLIST <>> COPY LET CODE GO SUB GO SUB VAL <>STR$ xLEN CHR$ ,^ CLEAR LLIST <>NOT ( PLOT FLASH PLOT ! PLOT USR CODE 2) CLS NOT P RUN 4 O▜▝▜O!* CLS INVERSE !w PLOT RANDOMIZE >^#V# RESTORE INVERSE 60 INVERSE ppsr FOR LPRINT INVERSE 6 INVERSE p LLIST INVERSE sr=[Q] CLOSE #<2 PAPER PLOT J<> $:) CLS PI>=>2. RUN ! PAPER PLOT 5 F4ASN [Q] STEP P SAVE INVERSE ![I]tEXP 4 6T LPRINT RANDOMIZE "( IF 20 IF T `* IF 21&, IF 22 IF 4M% IF !5 IF >yIN GO SUB ATTR = PAUSE 9 RUN <> CLEAR COPY GO SUB QIN GO SUB Y<>[H]4 LPRINT y PAUSE V RUN ?[E]Y<> STEP ASN EXP PEEK |ATTR INKEY$[F]▟R<dINT STR$ AND THEN 9X LLIST `0 INVERSE NFnf~#V_SIN t@9N qMNOT b SAVE INVERSE ~ O NEW ! IF VAL$ [R]VAL$ w> INVERSE wTAN 8[E]CODE tINKEY$t%`t0 INVERSE ppw THEN VERIFY INVERSE w2R RANDOMIZE W INVERSE w%`wH! RETURN @ OVER > MERGE LPRINT 9 INVERSE 6@3@USR -[Q] DEF FN ' INVERSE p@VAL$ T THEN AND INVERSE 5 P:& THEN ▚ INVERSE ^ INVERSE VPI IF ACS SAVE INVERSE w INVERSE THEN F(2 LLIST PLOT INVERSE THEN f INVERSE ~ INVERSE w4B INPUT 4INKEY$VAL INVERSE ~w~w~wrs)<> INVERSE ~ THEN _>=0 INVERSE 4<> INVERSE 5<> RETURN LN 8D AND 8$ AND 8' AND 0O! OVER IF N0 INVERSE uutt▜ AND 2 RUN < INVERSE w9 w4 INK 449 @ INPUT PLOT O8 DIM INVERSE N THEN i(D INVERSE ~ VERIFY 0% THEN q(& INVERSE ▚0[P] AND 4[T] ~[Q] THEN LEN INVERSE ~[Q] [P] LOAD `/ VERIFY )@8[H]4'5 THEN POINT > INVERSE ▚G INVERSE n INVERSE f~ RETURN ▜8 INVERSE n INVERSE f~#4[N]t!6 IF ▜_9 ERASE ©n THEN u(Hg INVERSE F THEN THEN } INVERSE ~( THEN A THEN m INVERSE [G]0 INVERSE THEN INPUT [H] INVERSE ▚LN 8 INVERSE THEN VAL$ x INVERSE w FOR THEN 8[A]_z0 AND [Q]8 THEN # THEN AND 0 SAVE FOR y INPUT INVERSE w THEN Q(! INVERSE F THEN y( INVERSE n INVERSE f INVERSE u INVERSE t FOR INVERSE p(9[U][ >/ NEW >8 : LLIST PLOT INPUT T!/ IF VAL$ INVERSE INKEY$ VAL$ w FOR INVERSE ~SQR LEN ?"! SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO .VAL p, LIST NPEEK ▗X PLOT ▙ LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW % LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#! ▜@pUSR [Q]▜@@USR ▜[C]C NEXT NEXT D▜"`▜0` COPY s COPY [L] DEF FN DRAW RND THEN RND VERIFY LLIST GO SUB RETURN GO SUB CLEAR 4 DEF FN CLEAR __vv▜▜[I][I]POINT CLEAR EXP CLEAR ` READ COPY w COPY COPY O COPY $, >= CLEAR FOR CLEAR . RETURN #?[>=w RETURN [H]COS COS ##??[[COS CAT COS #COS CAT w? FOR CLOSE #2TAN " RETURN 4 COPY pTAN "TAN &4▞ DRAW ▜▜▜: OUT ▝STR$ COPY 8▜USR ▖▘ RESTORE ( LPRINT '% FOR ( READ %'( RESTORE * LPRINT (' FOR * READ *,- RESTORE - DIM ( BORDER * READ , READ -▜ READ /-,* READ ,*('4+* READ +*(&▜ LOAD $) COPY * LOAD */ COPY 0▜ LLIST 0 LPRINT /- RESTORE 0 LPRINT -/4` LPRINT -▜ LLIST [Q], FOR /▜ LOAD 2T + RESTORE } LLIST 2 LOAD 3▜ READ ( LLIST ' READ # LLIST &%! READ $ LLIST # RUN # READ / LLIST . READ * LLIST -,( READ + LLIST *& RUN * READ 4 LLIST 3 READ / LLIST 21- READ 0 LLIST /+ RUN / READ ; LLIST : READ 6 LLIST 984 READ 7 LLIST 62 RUN 6▜ OUT "▝ LLIST BIN 841 LPRINT 4 STOP 8 LPRINT 41 LLIST 9 LPRINT 84▜ LLIST 961 LPRINT 6 STOP 9 LPRINT 61 LLIST ; LPRINT 98▜ LLIST 643 LPRINT 4 STOP 6 LPRINT 43[E]"@863"@8 LPRINT 6T6384 LPRINT 7 STOP 6 LLIST 25 LPRINT 4 LPRINT 1▜ LLIST 654T3 LLIST /2 LPRINT 1-▜USR OUT A LPRINT [B] LLIST [B]▝4 [B]% LPRINT [B][B] LPRINT %▜ LPRINT [B] LLIST 0[B] LPRINT * LLIST LPRINT [B] LPRINT *@ LLIST 0[B] LPRINT ! LLIST LPRINT [B] LPRINT !@ LLIST [B]@ LLIST 0[B] LPRINT # LLIST LPRINT [B] LPRINT #@ LLIST 0[B] LPRINT LLIST LPRINT LPRINT @ LLIST 0[B] LPRINT + LLIST LPRINT [B] LPRINT ▝▖+▜ LPRINT [B] LLIST 0[B] LPRINT $ LLIST LPRINT [B] LPRINT $@ LLIST 0[B] LPRINT ) LLIST LPRINT [B] LPRINT )@ LLIST 0[B] LPRINT ( LLIST LPRINT [B] LPRINT ([B]▘ LOAD LOAD BORDER BORDER BORDER (T COPY ▜▛ OUT LLIST ▟USR ▗7▛ STOP ▟▟ LLIST ▟▟4`2▛▟T STOP ▛Tt$@▟ LPRINT ;[B]+4,TTAN @SGN COPY YCODE ▝: BEEP + READ 1 LLIST 0 READ , LLIST /.* READ - LLIST ,( RUN ,STR$ LOAD 8USR READ 6 LLIST 5 READ 1 LLIST 43/ READ 2 LLIST 1- RUN 1 LOAD STR$ 6 READ USR [K]o:p LLIST q LOAD STR$ 4USR READ 8 LLIST 6 READ %ut@431[E]@641<>@SGN ▝CHR$ Tn LPRINT COPY <STR$ ;CHR$ <NOT << FORMAT [S] STEP R;; LLIST $^SGN MERGE GO SUB VAL <> CLEAR RESTORE RESTORE INVERSE LLIST bVAL$ o STEP [G]_!EXP MOVE CLEAR COPY VAL$ o GO SUB LN !P[A]bPEEK OR _ OR INVERSE `~ THEN G NEW AND O~ NEW G~#N# NEW /< LINE ▜_< LINE ▞_< LINE _< LINE ▗_< LINE ~_< LINE ©_< LINE r_< LINE r_< LINE ]_< LINE ^_< LINE 9_< LINE :_< LINE S_< LINE T_< LINE 4_< LINE 4_<(R<(O<(3<(0<(<(<( <(/ INVERSE g THEN G(+x AND O~# RESTORE o{[F]oz INVERSE [M]g GO SUB VAL LLIST <>~ INVERSE g# REM ~ INVERSE g#CODE GO SUB o INVERSE ▗CODE GO SUB o INVERSE ▗#xLEN GO TO <> CLEAR & RESTORE INVERSE LLIST FOR INVERSE ~ INVERSE # CLEAR |PI( INVERSE ^ INVERSE # INVERSE V INVERSE #w# CLEAR |PI(s#r#xLEN OUT FOR INVERSE RESTORE LLIST <> CLEAR & THEN INVERSE & MERGE GO SUB [Q] GO SUB [Q] READ RESTORE `i INVERSE % CLS DM LLIST GO SUB VAL LLIST <> INVERSE & MERGE GO SUB [Q] LLIST ~# RESTORE ng FOR rzW#xLEN PLOT FOR LLIST #<>~# RESTORE bkw GO SUB VAL LLIST <>> COPY LET CODE GO SUB GO SUB VAL <>STR$ xLEN CHR$ F^ CLEAR LLIST <>. OR CODE STEP CLOSE #_ STEP CLOSE #_ STEP CLOSE #_O STEP CLOSE #_ RETURN 8& NEW A STEP CLOSE #_ CLS ▗g> THEN ' CLS ▗O}! LPRINT _G~hSTR$ xLEN OR <> INVERSE THEN -USR INVERSE #.<> @4!` COPY RETURN 02tUSR f LPRINT [Q]:(de">96& INVERSE ~[E] DRAW E©# IF AD$ LIST V<w STEP [J]U?RF*8 SAVE OBCL INK TAN ;PbSCREEN$ CODE YI LOAD xN_= CLEAR REM NOT ATN S5 PAUSE W LLIST +p BORDER HVAL$ CLS RESTORE POKE } CLOSE #G|M^1ZIN ▖{,o INPUT vSTR$ GO SUB 7.<>Kz MERGE ▜ RUN a OUT gPEEK VAL h▚INKEY$EXP ▘ MOVE FORMAT y)3[A]s<=c[P]/' VERIFY nu[O]▙[K]J NEXT [G]%CHR$ PRINT LET ][N]XLN [ FLASH ▝ NEW LINE TO RANDOMIZE r/ THEN OR [I]>=ATTR ▟[S] OVER CONTINUE Q ERASE CAT BRIGHT -[R] GO TO AND TAB [C]qBIN [L]k PLOT BEEP SGN PAPER SQR ▗ STOP LEN [M]FN INT DEF FN CIRCLE DATA AT iASN ACS mABS [D]l FOR DIM READ ▞▛j OPEN #COS [U]SIN PI[B][H]POINT [F][T]RND▙POINT INPUT 6 DRAW & FLASH [Q]NOT LOAD OUT ATN USR LLIST SAVE M DEF FN We[F] INVERSE s/'3▖ FOR INKEY$([D] DRAW '3LEN VAL$ [E]]>=ABS ak*zf= COPY [N][Q]C[R]▖[L]g8eW) GO SUB X©2SCREEN$ DEF FN 4 DEF FN L LPRINT A DEF FN ▙"_MINKEY$PIPEEK c▖ REM ATTR *zg^P1 STEP CONTINUE DATA 3[M] LOAD FOR LIST MERGE }▜SGN [E] RETURN PI▗ FORMAT RUN 3i OUT c[F] READ p: STEP lZIN FOR OR USR LLIST 9/ABS TAB NOT OVER ?oUSR MOVE p PAUSE RESTORE THEN [J].Yj COPY )[N]CHR$ ]([F].t[J]|E DRAW &J[G]4[VAL$ n^# FLASH _ RESTORE 1[U]POINT h INVERSE L[H] DIM [O]G PAPER e[J]*] FOR u/[M] FORMAT _ INPUT ' REM .u.^ATTR _[N] INVERSE PAUSE eg.▘ AND ^ PAPER COPY ▟([I][H].l RESTORE FORMAT c RESTORE STR$ >= INPUT RUN y LINE COS [G]/,LN [I]| OR DEF FN 4AT RESTORE ABS e/'IN :USR REM l LINE DEF FN X CIRCLE j% LPRINT 3LN pCOS [H]YLRND CLEAR [M]LEN [S]LSGN [O]+O COPY COS +9e STEP THEN ▞[C]VAL NEW ACS LLIST PICOS +9m TO [H]BIN gmTAN NEXT PAPER [T] INVERSE K OPEN # FOR LOAD LIST V4[D] LET ]DSIN CODE INT ,[N] DRAW RND[L]_[G]J COPY ▖[P]dPOINT f LPRINT n OPEN #+[S]JTAB [M][T] FLASH n[E]IN OPEN # FOR CLOSE #J[G]nRc2=RND RETURN Ac[C]ACS r▙K"zSQR 9cEc/ FORMAT q[D]COS +9oc RESTORE DATA LOAD NEXT DEF FN ATN >= DATA SAVE ▛g^Q/ PRINT PEEK WINT FYCHR$ BRIGHT _BIN DEF FN PLOT INVERSE ^`;LCOS [E][L]b STOP 1[H] IF NEW SCREEN$ DEF FN Z/^~ LLIST gw ERASE COS [G] OUT 7/POINT IN LEN ▘]M CLEAR ACS % REM [S]d PRINT , IF STEP [G]OCOS [H] AND POKE ▙▘ TO [F], BRIGHT ,[G]NdACS o0 IF OPEN #%BIN pRND8HIL THEN 8w[F][F]▟[G]Y[R][F]2^OLN STOP INVERSE w BRIGHT , THEN g<> LPRINT 3/ PLOT PAUSE TEXP LN 1rx BRIGHT b[Q] INVERSE eul RESTORE Ou[I]<>[E] AND l[U] INK THEN y STOP [B]FN .okBn94K[I]Po&Ko[G] LOAD wM[E] STEP CLOSE #SQR g-FN C[L][P]Cc&[D][D]<>i THEN fZ GO TO RESTORE ABS STEP THEN >= DIM LIST ▜BIN ABS 3ueFN NEW GO TO RESTORE [S]dSQR # MOVE 7 STEP CIRCLE THEN %LCOS [G][M] ERASE wFN <= REM ,`LEN c$2}F<=[F][C][▛ COPY ▛ASN ACS pTAN CIRCLE ©e$<>z▟TAN REM RND[L]▟ READ 29"> BRIGHT 2TABS PAPER RND BORDER $ ERASE PLOT POINT COS RESTORE d CIRCLE POKE eu[Q]h-[M]0 RANDOMIZE J/[K]/ LET [A]q2i7 OVER " CONTINUE [I]▜[K]- MERGE [M]VAL LLIST gTAN T CIRCLE TO L[E] NEXT h BEEP INVERSE gls VERIFY r DIM 5 LOAD POKE l GO TO COPY NEXT $:[P]o COPY LINE <>LN AT INKEY$v COPY @Pr7 SAVE 9e2^ LOAD PAPER ,RND MOVE MERGE PLOT OPEN # LLIST <>, INPUT READ [J]ATN RESTORE d CLOSE #4 READ PAPER INPUT POINT IN [R]%K7+ATTR Q*YLN X NEXT INVERSE " COPY LN CODE ATTR TCOS qLN 8 THEN AT & OVER UCOS [B].RND LET :m CLOSE #LN ' COPY QY THEN {/#SCREEN$ INT ACS STOP LET 2Q[I] BEEP BORDER k RUN 8 ERASE COS [H]_n GO TO READ 4}ACS [O] DEF FN Xj4▚b TO AT RESTORE [R]2 LET ASN PAUSE EXP 2COS [G] RUN 7/O CONTINUE IF VAL$ M DIM [C] RUN y▟ASN [J]Y THEN F REM ^JPEEK .^ INK +TAB RND▗ LINE ]> VERIFY Jkbj LPRINT [ NEW RESTORE RANDOMIZE 8FN y CLS |TAB .▙IN ASN =ASN hIR STEP BIN qXNP[F]/9% VERIFY OUT PAPER COS [G]6 CIRCLE [M]/l STOP 6 BEEP Y▚ BEEP SQR COPY GO TO LINE DEF FN Z,RND LLIST ;.Eg,ASN LLIST LINE y LPRINT [L]▟ NEW .TAN ^v.ATN [E] STOP yk2COS [G]y[U]k LET [J] OVER AND .Y AND PRINT RANDOMIZE INKEY$Sg STEP CIRCLE <>FCHR$ POKE j%K▜&[S];A STEP CLOSE #> FORMAT LFN }SCREEN$ PLOT REM j BORDER #Q` MOVE EXP Q[Q]<= CLOSE #> FORMAT pASN TAN UASN P RETURN h BRIGHT FN ▙ MERGE C RANDOMIZE [T]r[S];UVAL$ DATA ▝TAN COPY AND ]jINT lo(C[D] DEF FN FORMAT [H]3USR tABS DIM s DRAW ATN [J]" LPRINT (J©% NEXT NEXT RND<= LET IN UYUp| LOAD IUSR O" DATA LN OVER AT ▛▟, CAT FLASH ERASE MERGE [B]s DRAW o; DEF FN MERGE CAT [P]VY[O]ATTR [J]NOT DRAW NEXT RANDOMIZE -CODE INVERSE _ MERGE [J] LPRINT ERASE CAT ?~/oIT[M]n[Q] LPRINT -EXP [T]LN n©%VQ8 BRIGHT TAN o[A]EXP INK CLEAR LOAD CAT TAB KI CLOSE # FORMAT LN ERASE ▞WK RESTORE X3NOT (0vt GO SUB YsASN }%Q NEW [J]ACS CODE [M] LIST ? INPUT J FLASH 8 OVER [P]#▟▘zATN VAL$ ▛)>POINT :. DATA ▚PI' AND NEXT COS RETURN PAPER SIN LINE p/y DIM f OVER [F]COS FLASH wASN gABS [K]d POKE DRAW V▘COS m DIM PAIN INVERSE o PAUSE Sa[A]i STOP U DRAW 6p PAUSE 3dK CLEAR <=TAB a▚VAL [E], RESTORE ^s[E]SCREEN$ " READ bUTAB USR OUT INKEY$U▙R[R] SAVE x[O] RETURN %]M▚[A] RANDOMIZE rNOT PAUSE P SAVE h[P]? STEP ▜[H][U] LLIST }q DIM & LLIST ▖3▜ OUT Ra RETURN ©ATN GO SUB , DEF FN sVAL LIST COPY NEW SAVE IF PEEK [D]RND▞W[N]VAL POINT ▞ AND PAUSE 8P REM 7y8> RESTORE !wASN x~7ABS RNDd(w| CAT CLOSE #UBIN [R]<= MOVE s>= READ g DRAW DIM CLS ,/?▗<=▜ RANDOMIZE NEXT GO SUB FINKEY$▜RND CLS K[ OVER LIST GO SUB _? ERASE INKEY$ DEF FN [S]PEEK FLASH FORMAT * AND 2 FOR OPI+ IF BRIGHT qPEEK #pr%[D]▞[N]ATTR DATA z▜=[D] GO SUB NEW KATN OVER PEEK X>USR [O]▗ASN RND[G] READ LINE e[K]▞O CLOSE #>SATN OVER PEEK [Q][B]3oABS |&Q THEN NOT A<s INK PAUSE [O]ATN OVER PEEK STR$ LIST [P]=[M]COS PRINT z[D]RND CLS TAN ACS [O]© LOAD INKEY$4T NEXT LEN ABS xQLEN =[EXP LIST LLIST LIST FORMAT LPRINT a▛[N]STR$ xLEN STR$ }[B].TAN t] PRINT SGN SIN 8 ERASE BRIGHT gp[}>=<>dp THEN [E]EXP k▙#9[B]= RANDOMIZE K INVERSE cJ[N] AND ]d LPRINT BORDER n`ATN VAL$ TAN X STEP ATN ERASE STEP R DIM [D]#CODE )LEN 'ASN RUN SAVE STEP AND D SAVE [C] MERGE gOLEN [B] LPRINT [U] OR h3LN KAT d▖LN DATA K[I]COS GO SUB (4 IF CLS PAUSE .P{ SAVE [H] NEXT REM |@ FLASH 'N OVER [O] FOR )▟ READ DINT STEP THEN LET CAT ©GFN [M][M]E RETURN t RUN NEXT CLEAR NOT STOP 8 BRIGHT ATN CONTINUE OVER COPY AACS REM INVERSE DEF FN [H]4 RUN LLIST CLOSE #PI TO E[G][T]u; VERIFY t[D]mo3m THEN POKE READ NEW 'u?v2RND CIRCLE MOVE NEW 2 REM ERASE q©PIu DEF FN %▚ LPRINT BORDER wP} AND POKE RANDOMIZE ▛ DRAW [O]▛%AINT INVERSE T▛[C]wi RUN P|▟▟ ERASE 1[J][S]u▖ FORMAT _STR$ LN LPRINT ▛NN INVERSE e7m STOP INVERSE % MOVE EXP u*LEN RESTORE ABS INT [S][P]y LIST hAT [S] BEEP READ I; IF VERIFY VERIFY POKE [O][O]PEEK }'w[A]USR ▜{: ERASE LEN |xdINKEY$]mG; MOVE P]a.SIN /▖[B]S▜STR$ . READ 8[lU RETURN 3PIINT OPEN # DATA LOAD NEXT E▟ AND dw[C] OR gr[I] PRINT READ s▗ DEF FN OUT [E]VAu[E] OPEN # VERIFY ^mSIN 9e1Y> SIN : DEF FN dqX>=} TO TO =VAL f$3 MOVE R>={%uACS DEF FN CONTINUE 2 INVERSE )h/ DEF FN HtGSIN ,INKEY$R[C]SQR N FORMAT COS FLASH AT [J] DRAW PI[O]STR$ CLEAR ALN INPUT f]r9 PAPER >:H=le.AT k STOP `6=BIN DATA i LOAD PAUSE G2q.TAN w CONTINUE {X FLASH TAB READ a LET POKE DEF FN ▚2<=COS [P]z[P]r[▙3%[N] STOP .4(d'#dLEN q|'" AND gABS jj▞▖[K][L]aCHR$ z NEW q= FOR YD;7=3/Z PLOT ; BEEP c CAT CODE xPEEK TO A OVER MOVE Z OVER P LIST CIRCLE [B]y BEEP [K] NEXT [A] GO SUB <>PEEK 8Y[M]{yk3= OVER VERIFY t< INPUT LINE OPEN #Wij34?F[K][O]RND▙ BORDER ABS h5 INPUT BRIGHT bINKEY$TAN ASN ▝3[E] PAPER ak[M]+0SGN FOR Ok INVERSE ,@ POKE MERGE NOT 3▜TAN ASN / DEF FN OVER z{ BORDER PIsTAB 1CODE [Q]TAN ASN ▟3COS BORDER 0INKEY$t[M] FOR Y={VAL TO CONTINUE CIRCLE OUT wTAB k[A] FOR I INPUT EXP CONTINUE ySCREEN$ D:& THEN r[K] OVER !1 LINE 6b▜_L AND DRAW =k_▗ CLS MOVE FLASH STOP ?| PLOT #NOT CAT S` CLS &SGN INVERSE [O][N]TAB <fVAL SQR 6: RETURN <>Q DIM p RUN [H]CODE OUT )▚▜▛a/_3▗ DATA F▖(PEEK REM /SQR ©[F]a▚[B]SQR LINE ASN i>[G] RUN CHR$ RUN N LIST Va OR lEXP ~k[K] NEW [R]TAN [O][G]. CONTINUE <>k[H]#{SIN LINE GO TO [E] DEF FN V VERIFY NEXT +▜USR IN [A] MERGE OVER emrLEN /rINT SQR BEEP B BORDER [H]POINT ▝LN ▛ GO SUB z4SGN <=iG OPEN # DRAW 1Z OUT [M]ATTR g MOVE $cf|y[D]PEEK CLEAR kQ**_ PAUSE [Q]j IF v~SCREEN$ [P]k FOR CODE NEW (*/ LOAD POKE Z PRINT f<Ps%I0l DRAW LEN # PAUSE [J] LINE ELDk IF ' STOP <=BIN THEN M{q>Vpgs[B],;y[M] VERIFY [G] MOVE ▟ LIST EXP [K][N]oNOT FOR RANDOMIZE PEEK CLS %[C]SQR [K]© DATA SCREEN$ USR V OUT VAL$ BEEP SIN RETURN OVER $ASN COS ▙TAB DATA h CLEAR ,[U]%fm INVERSE RETURN ~[D] FOR © CIRCLE FOR = PAPER TO - CLS [M]©g~RSTR$ THEN GO TO 4JUSR _Z CLEAR G[S] FOR INPUT SIN [I]-K CIRCLE STEP MERGE RETURN 2[H]b LLIST `y9u PRINT ▜h,cINT v PAUSE BEEP MO7 FORMAT CLEAR 8= INVERSE [E]INKEY$6=*[F]e. LET CLEAR ▛GJ BEEP [I]vr/Vc▞ DIM NOT ATN ACS }INT NOT VAL$ OPEN #b▗[N][J]UPOINT VAL$ [L]3▞VAL$ COS [J]]▞aCXMsS2x[G]?L OR ga[L] STEP PAUSE 3:NNOT BIN STEP POKE RANDOMIZE IN > BEEP ▞ CONTINUE : FLASH dLEN #XUSR LET u[N] RETURN PRINT ▙CODE 5Y<>bXs LPRINT AT k PAUSE [J]VAL PRINT fhq3< DEF FN ▝7[I]AT FLASH a LIST INT INK [O][O]PICPOINT f PAPER FLASH Qm[S]BIN ▟ OPEN # PLOT STEP JU PAPER <>[M]KSIN *% INK 7 LIST x CLS PRINT OPEN #INKEY$b DRAW J CONTINUE OPEN #g[L][I]<M7)TAN CHR$ [F]}6K& POKE ▟> BEEP 7>=[A]ASN C[I]c▝ASN INKEY$ IF [E]BIN [fINKEY$[A]C©cM[D]BIN CONTINUE ATTR ▗[H]/39o/73Kk▖ CONTINUE COS X▟FiRNDS[[R]A RETURN u DRAW PAUSE ^_[O]zVeATTR <> CLOSE #[F][A][N]▘ CAT [P]oMN6ASN RANDOMIZE gEXP INKEY$ATTR vVAL PAUSE COPY EVAL$ INT DRAW COPY STEP [E] ERASE DIM p LIST oF[T] LOAD MERGE OVER B PAUSE 4INT BRIGHT >[S] LOAD qw LET ▛w[wASN OUT d SAVE kABS © MERGE IF w<6 RUN READ CLEAR uuc LOAD [S]SQR IF SAVE [O]o FORMAT LOAD LN ATN v PRINT 5SGN 6 CLS ERASE RESTORE >SQR q+U]▙ OUT ▘ FLASH DRAW RUN ©> OUT OUT qATN ~CODE k▖ASN V OPEN #[L] PAPER eACS LET w INVERSE PLOT CLS GNOT q:[O]>=LEN - RUN G LET LET 9SGN BEEP e DEF FN ~]o= INVERSE GO TO FLASH FLASH BORDER ACS DRAW [O]▞ INPUT ;]IN .[G] RUN OUT . OVER LEN INVERSE POKE ,[I] OVER PLOT INT INPUT COPY PI PAPER t FORMAT y< CLEAR ACS '▙ DIM PLOT CLEAR BORDER ASN OR s COPY [R]▜aBIN RUN IN W% CAT INPUT s[A]r=M ERASE 2 DRAW m THEN [U] STOP z LINE RANDOMIZE ?e> DRAW p%INT [J]▝G6[N]DSIN q[O]`_▝+VAL %▛FCODE PAUSE X<> LPRINT 08 TO VAL [K]PEEK >| DATA nt- FLASH E PAPER DEF FN LOAD epCHR$ MERGE RESTORE BEEP REM 9 OUT oM[H] PLOT vLEN mPIjr NEXT IN SGN ""V%[P] CAT [J] INK INT OVER IY-ATTR TAB INVERSE #[D] INK READ COS 7ASN 8SQR KN▝ CAT 8 NEW ©FN PLOT u PRINT bSIN PRINT PEEK MERGE RANDOMIZE _P VERIFY '[P] REM 0[O] CAT QABIN ▚ CLS nN READ [D] RESTORE ▛ AND RUN 91 ERASE [S]PEEK ▖9>O▛[J]ABS LINE BIN ▟O[N] STOP RANDOMIZE OUT RUN ▞ LOAD © OVER w▛ STOP SAVE ▞[E],Ok+[M]©[R][L]+ DEF FN [L]+ OR [L]+ RETURN ABS [F] RETURN STOP 8 READ BIN |cyu<= RETURN >/ INPUT $#ABS DATA SIN [H]▝▞c[B]SCREEN$ TAN ci TO INT RND*cJFN VpP[J]b}T( TO ] MERGE e PAUSE C RANDOMIZE LINE PAUSE COS [{F6 BRIGHT THEN TAN JV[H]ATTR FLASH LEN >VAL$ [N]▙ZVAL$ ▝▟ PRINT /, FOR U/,[K]LN XACS :zLN T TO ~pASN v PRINT pRNDLEN IF MERGE CHR$ VERIFY 1 LPRINT UCHR$ COS c FOR ATTR ▗NOT ASN /* VERIFY >jLN Xf35p[S]1SQR ATTR ` AND STOP VAL$ ,RUCHR$ <= CLS Wh<=4[O]- DIM FORMAT COS GO TO {PIl8+ DEF FN e CIRCLE LINE //Y▞[E]( TO ?<>Z1ACS CAT CHR$ LINE 1COS SCREEN$ Z OR qPI~▖h▟'[M]hdO4 BEEP y RUN g)[I]S CONTINUE REM LLIST Bc PAPER ATTR z OR RND/'X[T]ATTR TAN a OVER e INK FORMAT FN [I] IF * GO SUB STR$ s.TAB Q[R]TLEN cWh<=[H][P]vjFN [D]hX OVER < PAUSE [S] READ CAT ( PLOT FOR TAN cp[M][Q] OPEN # OR BRIGHT LEN NOT UCHR$ LINE LEN [D]ATTR ASN c%▞VAL$ CONTINUE zEXP [L]ABS PAUSE FN [K] OPEN # LOAD [I] PAPER q SAVE ▟ PRINT &CODE YSIN ERASE CAT NOT [S]<>[K]:v▖TAN c NEXT OUT BRIGHT 1|y READ <SCREEN$ [B]AT N+u RETURN ©J▜- RUN ATN <>ASN C IF COS AT VB[D][H] RESTORE CHR$ MOVE I NEW BIN NEXT [T] NEW 2 TO Z1[G] OUT CR#1[F]ITAB OUT <IN -IN . MOVE ▙ RETURN ~8 DATA LLIST LEN FN PAUSE LET RESTORE RANDOMIZE x▛F% NEXT LINE TAB /WATN [H]1X>= READ .nFN z▙G PRINT [T]~ IF E▙SCREEN$ ▘INT MOVE w}"t1[Q]M[T]y▚ READ x FOR F5[D] STOP ACS A FOR IF DRAW [O]APEEK /: LPRINT ©! BEEP d2 POKE %▝ NEW $)CATTR ASN SGN INK P LIST V LINE ERASE CLOSE #0 RUN [G][H][F] FOR REM PAPER ▜ THEN IN BORDER NOT [S] LIST [U]VAL$ TAN bCODE n~ OR CIRCLE GO TO EXP (E[L]STR$ ym PAPER 1 FORMAT GO SUB LPRINT CLEAR b DIM rP[T]LEN COPY MERGE Z CONTINUE ACS MOVE ▙FXx LIST 2 FORMAT BUSR LPRINT ATN STR$ NOT ©= TO PLOT ) TO " MOVE BORDER 9 FLASH VATTR OR 1 IF LET LIST SIN t MERGE TAB INPUT [I] CLEAR FN i][Q] POKE x SAVE Ic MOVE [R]RNDtl}^>9 VERIFY 1 FORMAT q INPUT OR TAN cik[I] DIM LN SAVE Uv||' CIRCLE FOR LN RUN YTAN b RUN hFN EXP AND >[O]= PAPER [L]F% PAPER SCREEN$ l/t1▘▚jT[Q][L][G]d[R][S]>[U][R]Z ERASE ERASE 7%CEXP READ F NEW [T]TAB [T]ASN *[M]<=<><=CHR$ ERASE Sr[L]I2Jus NEXT 9MINKEY$[H]5ATN DRAW k RETURN X AND |+ LINE CLEAR ©^).[D][P] PAPER ;P)INT JN IF ▚ MOVE ▙wh|P][K] PAPER X6-8 SAVE V[F] FLASH SQR [D]<> DATA [Q]g[P] PRINT SCREEN$ VAL$ ATN NEXT / ERASE ▜ PRINT K[D] STOP FOR ©LN _7ASN PEEK g LPRINT |<>= LPRINT *%pLN ATN O FOR g THEN FN wINKEY$ VERIFY 3 VERIFY ABS <tT RETURN PLOT IN q[Q]z[H]SIN [M] READ OVER INVERSE Qx`AT ;<>[O] MOVE BIN LEN LEN LCOS [K][E] THEN 8;d THEN [O][J] CONTINUE SCREEN$ ▛SCREEN$ ]▝Zu<=5PI[S]8 VERIFY MOVE O[L]3[K]INT : LLIST ▗SCREEN$ RESTORE CHR$ ]<=VAL$ OVER [G] VERIFY RETURN % BEEP NEXT RETURN M[B]+[T] FLASH mTAN RANDOMIZE CHR$ +VAL$ ERASE % VERIFY [L] MOVE VAL X[P] INPUT CODE LET [I] TO INPUT FOR K<>[H][J] FORMAT q8J GO TO <.ATTR WkSIN LN PAUSE ▛ CLS LET tg"[G] MOVE GO SUB STEP NEW e,uATTR RWLN TINT $ FORMAT ▗) CONTINUE RANDOMIZE :TAB [ BEEP {&[I]LASN p[T]4AATTR AND OVER h/;j▚ CLEAR 8o FLASH [O] DRAW ]w©+TAN P[E] LOAD Yn DEF FN >▖ FOR '[F] DATA CODE NCHR$ RANDOMIZE NEW )2[F]J GO TO PEEK LPRINT LN AT TAB [D]= LET p RUN vL RUN NOT VERIFY r REM SAT PAPER OVER DABS VAL . NEXT dBIN ▜ RUN j OUT LPRINT rAT 2 RETURN FOR NEW [U]©s DRAW POKE CLEAR ( MOVE ln PRINT z<ASN PI-a ERASE x PAPER /ATTR SIN BIN h DRAW INVERSE EXP CIRCLE SAVE [P]_▘ FORMAT ~[L]▟PI[T]ia[Q] DATA POKE _We▖fn INK [L] INK Z LOAD ABS ABS CONTINUE [L] OPEN # STEP @O[S]gVAL$ STR$ [S] OPEN #e[F]5=wV_PW PRINT mu STEP PRINT GO TO LIST |SQR IF SGN TAB PI THEN PRINT CLS LLIST LET AT [T]EXP BEEP kLEN AT ▚ LINE INK [C] RANDOMIZE © GO TO RESTORE [R]SQR ATTR ACS PAUSE [T] PAUSE )}#[L]SQR LIST NUSR < CLS =tk[Q] CIRCLE Y FOR TAB [K][J] FLASH DATA LOAD V[I]AT PAPER ![G]|<>AT 36fLN =AT k( BEEP kSIN LN VERIFY K]ATTR THEN >&5[C] BEEP ej#PEEK | PLOT K<= GO SUB CONTINUE Y? PLOT n[H]ASN PAPER GO TO [D]>=S& LINE 5 PAPER GO TO PRINT ASN !` DRAW ▛o▗8ITAB kINKEY$CHR$ d=▙M[E]kPEEK COPY "L<pq OPEN #Xe~ OR 5[M]3[S] PAUSE g[T] THEN rU[O]▗ OPEN # BEEP SQR PRINT LINE ASN FORMAT tYR DATA PRINT OR MOVE SAVE POKE : STOP f ERASE , PRINT VERIFY l[N] OVER BEEP [M][J]iVt^go▚`r8hcFtJ[B]j&[R]9INT LET D[J]> AND 4UVAL$ Eb PRINT [I] ERASE [T]4FN AND ▟*1[T] DRAW h ERASE [T];W GO SUB RND[H][J] READ CAT }COS *dCOS 3ATTR 6R MERGE [L])k<>ASN ▟d PAPER ▛ RUN RANDOMIZE RUN ERASE LINE DATA PRINT OPEN #;|PIw INVERSE USR [L]p FORMAT [F]4RND▟| NEW 4a RANDOMIZE CLOSE #">%i LINE FOR BORDER COS _ PAUSE cFIN ▟ DRAW 4r FORMAT SCREEN$ TO M▗([T][D]'52 FLASH CODE ePEEK KABS BRIGHT <=[K]X OVER K/ VERIFY `dd[L]STR$ /P PAUSE Y[I][B]INKEY$d>=RNDus INVERSE COS [K] BRIGHT eCOS BIN RESTORE [N][Q]+[F] READ NEXT *[ OPEN #W*wmZ[H]QS}= CIRCLE ~ CLEAR )N BORDER vLN BORDER [G]LN VAL 3 MERGE LEN #V? OVER s INVERSE ? DIM LN MOVE CODE g[V MOVE USR [K]SQR [B]SCREEN$ ACS RUN [E]INKEY$ LPRINT BVAL CHR$ Ot[H]Q[B]Q*COS [R]:E RANDOMIZE W DIM GO SUB LEN LEN 0 DATA vACS CODE M[K] DRAW VAL$ SCREEN$ }POINT CLEAR RND3 BEEP CAT uJz4j*,=ACS :" LET C LLIST FLASH :RND[P]SGN M{[J]o▚[C] CIRCLE DEF FN ASN ▟ THEN fT[U]3#m▟OSGN ▞TAB q CLS /y DRAW !{m REM QSCREEN$ j[H]#3[F]▗ POKE TAB EXP ACS TAB REM DEF FN G-▙zl<=NOT [QNOT BIN ABS :4 INK ]COS [R]$3_ THEN yO INK COS [R]bRu$EXP MERGE ▘NOT nB[A] AND TAB >=M+]CUATTR c DATA OVER GO TO [I]`!F`▘VAL ?^% MERGE MOVE vTV THEN OPEN #SGN FN -▙W[S]▜ LIST r(LN CHR$ ^}4^ STEP ESTR$ ? BEEP [N]>= FORMAT BEEP STEP AND ▗TAB ASN xk DATA B STOP $B LINE WSQR BIN WSQR [E]VAL ws_aCODE [S]LEN CODE [N]AT [L]_▞ RESTORE "=n>< GO TO |z CLOSE #XF<> OVER BRIGHT OUT LPRINT VAL$ 2R$`$HINT c SAVE VERIFY tLN {F) COPY R OPEN #dLEN 6[M] OR 6Oi>=aTAB :E INK ▜4 VERIFY AT [Q]TAN INK x/IN WSTR$ LIST VERIFY [K]SQR THEN THEN <=[P] RESTORE CIRCLE VERIFY LLIST CAT /"?%pXac VERIFY [R]kNOT DATA TAB d NEXT ERASE BEEP [L]▞AT CODE POINT CAT CLS RESTORE POINT TAN cG<>POINT ▛l LPRINT k-COS ▝xySTR$ ▜iC BEEP JSIN NEW CODE ,LEN PAPER AND FN 4p GO TO SCREEN$ CODE ,SCREEN$ TAB 6ZSQR ;STR$ * DEF FN COPY z OPEN #[R]i COPY C] OPEN #SimtE▖ LPRINT BEEP 7[I]ta5[S](v64 OPEN #1ASN ASN j RUN # PLOT &-= MOVE mATTR CEXP [FFN ^ INPUT ;3 CIRCLE *[T] CIRCLE O2[F]Yd/ GO TO x| RESTORE ECOS LPRINT $J PRINT FLASH GE[K] CONTINUE LOAD lGX'"[R]bWAT FORMAT q[A] FOR ▜x CLEAR SGN <=SQR v FLASH k&[I]SCREEN$ TINKEY$AT |F8JF IF [C] VERIFY N, SAVE d'PEEK RUN LX PLOT FN _ GO TO 1E5V[J]:PEEK CHR$ [O] PRINT 5 BEEP SGN ▝ RUN GO SUB RESTORE fgVAL )Uv▖O REM 3i▖BIN BIN k NEXT L<= LET > NEW FOR TAB p LLIST [E] MERGE 5E OUT LOAD qEXP PLOT (TAB EXP ?POINT GO TO r:UIN ▖ou▞ CLOSE #f▜M▛BIN IF dCOS kK[F[P] STOP ▜[L] DATA PEEK LOAD sPOINT INKEY$ FOR GO SUB 0ABS TO i[N]}PIUSR YZ FOR L NEW [I]]AT CAT ZSd-0SIN c NEW NEW d' BEEP ▚INKEY$ PAPER SGN dq=[T]V LINE ATTR LIST Sm-jdw PAUSE COPY RT[J]STR$ 3▘▞3▘) DEF FN [U]BIN JBIN STOP $ CLS BRIGHT CAT eIY DEF FN z5[P]IN + LINE -ASN RNDFN w7}POINT 5[M] CONTINUE FORMAT SIN [S]OFN DIM PRINT 6LN *>s FORMAT ▟%^V#COS Me'VIN ARe▘~qATTR _[F]BIN CLS VERIFY [G][T]ACS TAN [R]▝i ERASE F[A] RESTORE RNDFN w RUN t PAUSE 8Ms[N] NEXT TAN ASN B.▚[K]SQR CONTINUE E PLOT RESTORE ▞ OPEN #hq:j|ABS RNDSCREEN$ GO SUB 9BIN OR RNDSCREEN$ SQR RCODE FN PIPOINT TAN ASN POINT STOP CLEAR ACS [I]z[I]/G[R] INPUT f IF INKEY$#BIN VAL$ [F]▝[N]AT VAL$ ATN GO SUB K STEP Un_[S]z OPEN #PLN U[A]r READ MOVE M(ACS [G]AT PLOT RND POKE AT { FORMAT /+VAL$ {R[S]T[G]FN BRIGHT ▜h[F] PAPER tLEN TAB 'USR CAT PAPER a<=g[F]▘ DEF FN ▛k FLASH ▛ PLOT [G]TAN ] CLEAR INVERSE p OPEN #▙[H]▞>=▖▞ CLOSE # PLOT 2UOFN R LET 61~&[S][N]I CLS &+PIa OPEN #X8hU=▗[B]PI[S][D]EO:LZq[N]iTAB POINT TS[G]w6VSIN LN LET 3[O][B] CLEAR >= FLASH iPEEK SAVE 5cy LLIST 0 BEEP VAL$ SGN ASN VERIFY a LOAD : DRAW >;' STOP lLEN BEEP ^%fOBIN MERGE VERIFY ]x[M]>ATTR BIN PI DIM BORDER POKE IF COS FLASH LPRINT 3VAL [I][J][H] BORDER } IF 60ABS .I CIRCLE [Q]>=c GO SUB LOAD 9 LPRINT NEXT ▘NOT CODE [O][O]3 COPY [O] OPEN #s OPEN #2ACS ZyLN Zx[F][J]? ERASE LINE RNDu VERIFY 8>Cq RESTORE Vt POKE USR uCODE `COS IF fO6▞_<3 CONTINUE ▝ OPEN # CONTINUE EXP g STEP I POKE Ei LIST INK POKE STEP [i▛[U]INKEY$[N]VAL CHR$ OPEN # PAUSE Lb LET 6[G]TAN ] DEF FN /ATTR POKE I[S][H][M]▜ FLASH NOT MERGE [R]SCREEN$ [Q]CODE LPRINT [L]u[J]▚VAL [C]▘▞B GO TO TAB a PRINT >= SAVE ▛~x!ABS ze GO SUB ASN a FLASH s3$[LNOT [Wmf5m#ATN ([G] FORMAT iO[J]]-gO▖ TO t SAVE GO TO PRINT INKEY$[H] PAUSE GO TO CIRCLE CLOSE # PAUSE T LET [I] LLIST 9*i>▙[N]ATTR o` NEXT @[T] LLIST [B]cPIt POKE INK USR [Q]O2-@TAN REM <=[T][R]PEEK ATTR DIM BORDER Shq=CODE GO SUB cC▜▜TAB [U]VAL$ _ Ml[R] CLEAR G[D]a RUN STOP j[F]▖ BRIGHT REM uz▘▝[L]TAN NOT CLOSE #LEN O NEW i©. CAT RETURN RESTORE ?r COPY PLOT G FLASH Vr[N]=VAL$ CODE ▜kABS PRINT [N][F]M[R]BIN CONTINUE ATTR CODE Mz OVER TAN SCREEN$ GO SUB d>=[M] CAT THEN VAL NEW f+COS TAN ASN G[J]VAL ! VERIFY r INVERSE ]GO]m1 INPUT NOT [J][D] ERASE ;>=vSGN PEEK VAL$ O=-SCREEN$ /9<=TAB CAT ▟[A] PAUSE IF SQR THEN FORMAT ~ FORMAT COPY OPEN #SQR ?&[N] INK B BORDER N[B][G]4 PLOT [A]IN 3[S]:# LOAD h8[J][R]BIN CHR$ DEF FN T[B]X LPRINT DRAW >=Y[S]M CLOSE # DRAW AT © PLOT [A]SIN Lyv[A]TAN I PLOT j# CLS A6[S]WTAN OVER ERASE ERASE #<= ERASE Fc<> NEXT !GM>=( INPUT ` BORDER [ RETURN SGN LINE TO TAN : LIST w©d?XINT CODE RANDOMIZE FORMAT NOT STOP rRND+ VERIFY ACS NOT < VERIFY S REM ▚ ERASE OVER T BEEP U[F]LEN RETURN LOAD Ts[ECODE [T]_FN (YINT LINE QX CLEAR S6JMM=4[K]"w- LET &ATN PAUSE k IF mCODE vASN IF R<>▝b PRINT GO SUB ▗SCREEN$ POKE ATN POINT [C]SGN }▟`CHR$ 1;©so MERGE [D]RVAL$ y[R] OR 1COS POKE k< INPUT VINT t CAT FLASH [F]CHR$ TO RESTORE {9[K] TO Nf[L]COS CHR$ TO NEW LEN 5 ERASE INKEY$d9Y[O]G+]K3CODE RESTORE f{SGN CODE ;TAB LPRINT ?, BRIGHT TO [H]▞M NEW tjv)LEN ~.L}[I]DINT FOR INK [I]IN fc OR [J] AND SAVE ASN CHR$ OR '> INPUT PAUSE NEXT [S] LOAD PI▝/5 VERIFY POINT CODE COS 2FN TAN INVERSE H CLOSE # IF = RESTORE RESTORE pBIN ABS ABS ▞; CIRCLE TO ? MERGE STEP <= CIRCLE [&B BEEP INVERSE ATTR ©ATN INKEY$=[O][K][O]na GO TO POKE ABS ' PRINT [R]a BEEP I CLEAR A REM ^STR$ SASN & PAUSE ACS PVV LINE : INK CIN <=uABS ' PRINT ▖ CLEAR IF ~ BORDER [D]:^POINT ▚TAB [K][K] POKE Eoj[N]SIN [T]SGN SIN [S]SGN SIN AND ▖y FLASH DEF FN PLOT LET 4 CONTINUE [L] OR CONTINUE k PRINT LOAD 1ACS LET -! LLIST LET EFN LLIST OPEN #i DIM mxX}dNOT E▗ VERIFY nvZ THEN +▚. OPEN #[N]3 LINE ▝hBIN $ INPUT CAT ▚[G]i LPRINT IL PAPER Z DEF FN LPRINT cZa BORDER ZC© LOAD VAL$ U[T]mINKEY$^ IF V[G][R]INKEY$ INPUT VAL [O][H]+<=f[H]z4ACS [K] OVER [H] OUT OUT IF [O] INK OUT BORDER }O GO TO LOAD DRAW [P]R OPEN # GO TO LOAD NEXT [O]PI INVERSE PLOT [Y[T])U STEP RND[C]<=STR$ DIM p[O][D]T▜M{ DIM IQT PAPER LLIST i NEW BEEP TO [H]▞ INVERSE iACS [A] NEXT [A]1S/LN ^Et INVERSE [D]u▙[I]5} BORDER OPEN #[ BRIGHT btUSR RETURN 'LEXP [N]5&o▜[O] CIRCLE CAT <> VERIFY RETURN CLOSE #[C]h RESTORE TAN POINT CLOSE #IN CLEAR /[S]©@SQR & POKE )ACS [K]N FOR y CAT FOR ACS BIN [H]w<>g/ LPRINT F OPEN #▚ OR i<>[T]E VERIFY CAT LEN REM FLASH OPEN #YSCREEN$ CHR$ [I] RUN ERASE POKE ,t▝N[J] CIRCLE |~_ CLS CLOSE #8▟7USR ERASE 3C+3▖ OPEN #|NOT BIN DIM POINT NEXT 6/▞TAN CLOSE #^NOT LPRINT OUT s[P]LEN NEW [▟ CONTINUE @] LOAD ATN OUT REM CHR$ PAUSE MERGE ▗k▙. BORDER ( RUN OR GO SUB LN ATN LEN z MOVE VAL NEXT EXP [I]©sABS U[T] VERIFY e CIRCLE ERASE DIM LLIST RANDOMIZE [T]m//o INK LET MV[U]8|ABS ▝kLEN |STR$ p40 POKE GO TO +POINT DIM zp▗ DRAW CAT w DRAW REM IN >=[R]STR$ b+INT lGNSIN ] MOVE |ELN ABS SIN [N]]bmPOINT VAL [N]59 CONTINUE EXP ;[O] CIRCLE u RANDOMIZE 0) PLOT s: REM i[D]mINKEY$PIMFN ACS OPEN #F[Q] IF 5NOT 3Ql AND PIMCHR$ i RANDOMIZE ,Mc_[F]2m[U]VAL$ [P] AND ▛FN * FOR # VERIFY j+SQR INPUT @LEN VERIFY V: STEP G W▞[L]Ak&YG FOR ACS R+{2PEEK CLS ,ATTR {:=__'PEEK )ASN THEN >aCHR$ POINT kATTR TO 1M▞v6 zm/ CIRCLE f GO SUB 9PI;M@ BRIGHT q THEN w[Q] DRAW ABS - DIM W4[M]x;D▟<= CIRCLE PABS [T][I] OPEN # CLS ATN @5LN ] INVERSE uCHR$ c▜ FOR q IF H: IF GO TO ATTR !▟wNZ}~G[U]^= THEN ![I]p OPEN #`▚p CIRCLE j▖sF TO 98VAL STOP 0RND[M]>= RESTORE PLOT (BIN v[R]LT OVER BIN CLS #U RUN ▗©,`©>w INK SGN 4A INK OR TQsS(+ NEW INK DEF FN USR 7ATTR U8▝36 LIST CLOSE #▚ PLOT +LN LLIST VAL [N]PEEK ▞2FN !c▚[S]<8 BORDER (l"/hIN AT 7 DATA OR INKEY$xjXp▙M DRAW <pVAL$ STOP ([S]CHR$ REM F[S][G]LEN Dh[S]CHR$ INPUT ▝2[D]X CONTINUE [S] OR RND REM FASN PRINT OPEN #NOT $0 VERIFY [N] INPUT <c▙[B]R RANDOMIZE MOVE N6[C]/ CLOSE #5 NEW 1 READ <=RNDd[G][I]?[D] INK IN l RESTORE L THEN E CIRCLE ▗[T] THEN DATA o VERIFY [I]SQR Z>=Q▜EXP INVERSE XD[I][N]l FORMAT chVO[M]DSIN ▙QT LINE OCHR$ 5bCOS RANDOMIZE ! POKE RVAL INVERSE >=H[B]▚CODE 9g(FN E2 DATA ASN *▜B0[U]WNOT POINT *EXP R+U OR AT | PAPER %WFN iik LLIST 2`AT 7&2K(BIN VC! IF Z] CONTINUE 4AT 1STR$ 3 INVERSE o&5 BORDER (j} LPRINT [N]P[E]8g FOR bjINT u DATA VERIFY 2FN CLEAR *(TC▚j~P▞M`[D] PAUSE ▗EW PAUSE cJ8)R© INK SAVE PRNDN$&R$zpPI( CLEAR NOT [E]m MOVE CHR$ UG&& VERIFY < LPRINT B DEF FN CHR$ O9GP RANDOMIZE 1▗5 DIM G▞TCPPOINT ATTR h IF ▚# PRINT BEEP ▜SCREEN$ [J]HABS 4 RANDOMIZE AJ©NOT [N]z*RNDOwLEN TAB ~ RESTORE 0CINKEY$L ▞?SQR n NEW VTG` STOP lc`B[Q] LLIST # CLEAR U DIM LPRINT H SAVE 2[O] POKE TAB XS" POKE `[S] BRIGHT :QPOINT ATN LEN [Q]t[H]wABS ▖0NOT Wc<><FN NEXT COS ` GO TO CONTINUE INKEY$A DRAW ( PRINT DEF FN STR$ DIM ATTR [T]@9m CLOSE #<=▝ OUT L[I]7R DRAW g[Q]RNOT >=POINT LIST [M] [F]QSINT [I]COS {SGN [Q]CODE ▜[K]ZvCHR$ ( OR THEN FORMAT ATN SSYU-SIN " OR [S]RNDPI@ OR 8▝.▛ DRAW ,pINKEY$U*[S]POINT [S] VERIFY A[E]z POKE 3[E]CHR$ [I] BRIGHT READ 9SCREEN$ Z[Q]ABS & CAT ▗ LOAD [R]#▘SQR hT[G]FT[D] PAUSE Q OR VERIFY 8_6LN [L]j SAVE LLIST t OUT [S]<qb CIRCLE c> RETURN rINKEY$ POKE NEW XLEN <=ATN S OVER USR LLIST LIST CAT ,SIN COPY USR PRINT 2 DATA PI[S]IN ▙ LIST CLS NOT CHR$ ▟CQef▘T BORDER p OPEN #▗%E[S] STEP *▛ RESTORE L LET Wx POKE &DFN POINT 0~ COPY AND ma PRINT 0▝SCREEN$ ▛-| CAT ▚b1l"ASN [U] OR AT 7[N]|P DRAW $ LINE INK CHR$ ▖?©▟ CLOSE #STR$ 9A CIRCLE A[F]Z PAUSE ▛`©@ LIST PRINT ? OR PAPER mO BEEP Shq35>) INVERSE T RANDOMIZE TW-RNDAT T LINE [T]TAN NOT OR FOR NEW hq<>NOT [L] OR PLOT W>sje MERGE YQza[F]SIN [S] LOAD QRNDASN POKE UbFN [R] CLOSE #PI<>VAL$ TO l IF *LTAB 6/SCREEN$ LINE BRIGHT LPRINT CAT AT _p]]Z[S]INKEY$SGN COPY 7LN EXP [R]CODE 7[ LET INKEY$WbO[K]zb1<<▛p LOAD E IF ySIN pTABS / THEN REM <> MOVE FORMAT j POKE ATTR SAVE % STOP 7=[H] PRINT ▞ FOR INT ▙'&FN ` CLEAR /,[P]]} READ DRAW e6/[S][J]▛J$Xs BORDER [D]v6VAL$ [T]TAB ABS DRAW ATTR [Q]L CIRCLE zAT u CIRCLE [G]SQR / VERIFY ng[P]▞ ERASE LOAD yP GO SUB sY/ VERIFY <=5▘ LIST DIM SGN DRAW NEXP uN RETURN POKE [M]&& NEW NEXT ] CLS QCHR$ EXP bP FORMAT z'IN nSQR MOVE CHR$ OPEN #<=k© FOR Shq:" VERIFY FOR VERIFY BIN 7>= GO SUB ykn|jl[E] OR BEEP QRND RUN EXP /G=INKEY$[P]^h{ RETURN AND ▛ LINE POKE EXP /G[D]VAL FOR q INK COS <=L[n[I] READ b}1| OUT 4▛ CAT " FLASH RUN g CLS BRIGHT j▟ GO SUB n1 RUN C LOAD P[P]▚ FLASH 0xiPEEK MERGE ▙7ASN M5ATN QUSR THEN n[T]INT OVER uu[R][P][M]<[Q] CIRCLE i|LSIN [E]<=] CONTINUE TAN [Q]ts[M]0 ERASE DEF FN ▚ COPY CONTINUE XJ LLIST LET [N]GATTR FLASH LIST t CLOSE #SQR 3i REM POINT VAL I[K]6POINT CIRCLE ▙;FN LPRINT IF OUT K[F]INKEY$ABS Nf PAPER INVERSE zAT b LET :▙ NEXT 9 BRIGHT VAL LN Zj INVERSE ▗[O]{ LINE DATA ABS S DATA BORDER COS P COPY ,©XxK PRINT g REM Q LIST u OPEN #SQR PIINT ▜O[E] PLOT :!▛▖ OUT vX▙ FOR SIN LOAD POKE 4 SAVE &{ READ MOVE NEXT > OUT 7INT r]( CLEAR D RUN Fg©<= PRINT IN gATTR OUT GO SUB SQR CODE K[F] ERASE OVER RETURN @USR v▟h8ASN INK 9CHR$ r5 BEEP 32x[K] CONTINUE S2X[K] DIM OPEN #1x[K] CONTINUE +LEN ,~ LLIST b[R]VAL INKEY$ CLEAR k6 CIRCLE z RESTORE TO CONTINUE :/[F]STR$ YTPEEK 4W POKE IF V2x[E] BEEP h SAVE [P]ASN ?TAB #B]^[I] DATA #Q]▘ACS [A]zPj>=FN [F]VAL AT r[L]K/->IN Ouc FLASH P)INKEY$COS d▘STR$ FORMAT *#/oUSR <=T[K][C]VAL$ LIST [U]/ LIST ▖ POKE EXP T?u PAPER d PAUSE [J]MiK DRAW INKEY$* DIM DEF FN dqH BEEP OUT LLIST .[B]▗ NEW LN STOP USR " MERGE [P] GO SUB F FLASH PAPER ^_t BORDER NOT BIN LPRINT BRIGHT CONTINUE /o▟USR F7IN g9 CONTINUE READ ATN IN [Q];S[F]INKEY$ GO TO >SGN ECODE [T]▗[F]INKEY$o▜c LLIST PAPER & LIST oQ▞ STOP [K]VAL$ |ABS gNOT TAN [S]T BORDER jrSIN " GO SUB q OR jqQ'G INVERSE W CONTINUE O LOAD ? GO SUB PEEK ?TAB ▜ INK |^ATTR NOT RND NEXT 1!QRHINKEY$EXP GO TO POINT ©J[O]>=PEEK NEW ASN {IyP PLOT INT LN SGN POINT {_ OR STR$ j PAPER READ cK[N]XSGN L[O] PAUSE ▝[G]'QATTR POKE "uhB LLIST NOT PAPER C BORDER <=[K]INKEY$ LOAD DRAW > MERGE [J] OUT SAVE x LOAD oSIN j CAT PLOT CLS *oCSIN CHR$ <>Uw>gATN INK :4 MERGE CLS 2i CONTINUE PI STEP SIN INVERSE ▛/ COPY FOR '7 IF <>VAL /^g[R] INK 0 VERIFY BEEP NOT ▝CHR$ r<8,d AND SIN ASN MOVE OVER OVER STOP `t PAPER PEEK USR T BORDER B PAUSE BEEP ATN [D]y LINE ^k_©" RETURN PI[J] LPRINT LLIST |[R]G OUT MERGE ?v LINE LPRINT PEEK 0CHR$ BEEP ef_ STEP s/SA▜ THEN LET Jf VERIFY % LLIST IN } THEN READ SQR IF W[I]▜ RUN cSQR SAVE LN MERGE OVER X[F]NOT NEW NEW 3 FORMAT EXP L CAT C'LEN RANDOMIZE :2 LLIST CIRCLE BORDER SQR +^ PAUSE >= INPUT RANDOMIZE * CAT NEW [B]▞^ASN g▜H AND S REM AT POKE i RUN FN k? LINE F2[F]MJ TO RESTORE Z MOVE ▞Y[F]DtSGN [.++e`[R][S]TAB [U]ASN [J] PAPER ERASE Y▜STR$ s/s INVERSE RESTORE [U]6COS zJNl DIM 1 OVER &ng INK Z LIST Z}▘O LOAD POINT [D] DRAW THEN [L]M CAT vS<. THEN mMINKEY$[U] INPUT r STEP 1 FOR MERGE STEP !INKEY$z4 LPRINT XINKEY$q?[H]#k3= OPEN #ZlTAB [F]TAB TAN ASN M^#COS [U] NEXT SIN 6LN ▙ DEF FN [D] OUT ▞yz CLEAR #g LPRINT READ ABS D LLIST REM [S]&[M]s}E~b▚&[L][Q] CONTINUE &p CLEAR [G]; RANDOMIZE OR7] BEEP LEN FORMAT I MERGE THEN ▜' PRINT <= CLOSE #I PLOT 1 LIST $ PLOT SAVE CLS n VERIFY [D]DSkINKEY$ TO CONTINUE :]e7kI'#'.INKEY$[L]CPOINT OPEN #S DEF FN VAL$ [I]M7 INK iPOINT CONTINUE ACS J▟▖ BRIGHT REM up[S]STR$ LET BEEP GO TO MOVE MNOT PLOT GCHR$ CAT COPY J NEXT BEEP [P] RETURN PI ERASE [S]G[U]W[B] ERASE [T]cMI/ SAVE cIN >=9V GO TO GO TO NOT dVAL$ hjd GO TO SGN TAB STEP '5 THEN NOT k[F][U]ACS INT G)y POKE PI▚ DEF FN 2 VERIFY K[E] READ LLEN [L][U]ASN LINE LLIST LIST 9[<= PAUSE EXP X[J]/CODE /ATTR SGN ABS LINE READ IN [K]K>=}SGN ;VAL SGN ▜ NEW C OUT DATA ;C INVERSE DATA ?PEEK _WSTR$ OVER >=SGN COPY [O] FOR x.[L]+AT <=w PRINT [R]y▙ LOAD TO beguCOS IF n[H]kYUSR NOT [D]SIN ( TO q8< CONTINUE BIN ASN ▞{x CLEAR PRINT tLN [K]Z[K]M}/[R] CLS LLIST LOAD O GO SUB [A] INPUT TAN hASN [G]C`W BRIGHT ?▝ACS OR &© LIST INKEY$© CLOSE #▞ LET THEN PLOT MOVE STR$ LET NOT ▜ SAVE CLOSE #,*4▝SGN ▞q INK /[Q]gL CAT USR 9[K] PAUSE t▝ LIST DRAW ▙v▜`[G]EXP `s[U]TAN W CLOSE #9 LOAD CLS RETURN SAVE K STEP fz SAVE ] LOAD g CIRCLE LN < MERGE EO LPRINT NEXT A BEEP [P]6h INK ACS NEW PLOT zr©7QSFN [P] STEP GO TO PRINT 3[C]USR %SGN OVER COS AT zbATN ▟[A]▝AcJxVAL$ OVER LN n,w NEW AT ▞ GO TO U5 FORMAT S VERIFY ACHR$ ABS RANDOMIZE LLIST [K] CLOSE #B` DRAW LET 2[D]<[B][ LINE CIRCLE W5 STEP esY[ GO TO ATN 6pSTR$ [I] PAUSE : GO SUB %CLN WOUSR c2 RETURN K[C]g^(NOT Q[Q][ LET PRINT `tpl VERIFY t>. VERIFY KAASN :[A] LET LPRINT <=oP[P], THEN CAT A CLOSE #▜ LINE LET |ATTR KpGSGN [S][O]VAL [H][K]▛ FORMAT lA FOR [O]K▘ NEXT ~SCREEN$ NOT i< CLOSE #^ LIST b[G][D]r8*J THEN x STEP ,l5▘ PAPER zXaYQ*][bgFN VERIFY CLS /L DRAW P INK ASN QS STEP STR$ {g STEP FLASH R RESTORE ABS VAL PI THEN R RESTORE COS I NEW NOT {[Q] OVER RUN COS SAVE {9 RETURN CIRCLE 5KG RETURN VAL DATA sm[B]NOT e2 BEEP !OSIN BEEP !EXP O REM %"VAL LEN SSCREEN$ %!<0 ERASE <=>=ASN B LPRINT RESTORE 1 REM 4 POKE @ IF PIf LLIST ATN VAL$ NOT INK pIN RND READ S SAVE CIRCLE RETURN LLIST 98K LIST C THEN ▝[O] FOR c[S].- READ i+ GO SUB ▖zp BRIGHT ▟[P] INPUT d1OS=] BRIGHT a|j~./ INVERSE l INVERSE k/W INPUT [C]>hS[▟ TO 1 LOAD so/"=$zFiLN MOVE k TO GO SUB RESTORE ▘ BORDER LN LnI[I] POKE w RESTORE [D] INPUT %he|STR$ ERASE Pi OVER THEN FORMAT / MOVE SQR 48STR$ <=[U]M[M] IF pd FLASH ▛aF▖TAN LEN x: PAPER LET LEN IF INVERSE PI%<>yM NEW "[ FORMAT f32 BORDER #>=▗hLN 9USR DEF FN :o0[O]Zz FORMAT DEF FN GO SUB - AND [O]CHR$ NOT | VERIFY r[Q]SIN ▗Gl CLS SIN {P} ] LIST STR$ STR$ p'[P]EXP >ASN [D]s LET GO TO 3STR$ ▘ LOAD *7BIN e[K]IN j{Pkr STEP GO SUB oTAB [K] THEN LOAD ABS SGN B▜qGIN FN ©%[Q]} MERGE TAN t LOAD p[C] RETURN i LET DIM yVAL V VERIFY 8Pt5V▘▙[H] BRIGHT Fh5YfNOT /Vi<> GO SUB OEXP PAPER TAN .%A RANDOMIZE VAL [M]▗ PLOT Z|[H]GPOINT CONTINUE }D LPRINT ,RND FLASH DATA PIASN M TO /[G][O] MERGE 7FN [F]▗eRND[Q] OVER `c[R] NEXT LLIST USR RUN kX FORMAT qS GO TO STR$ U[D] PAPER F(/SCREEN$ h0▜ LOAD #fgASN RNDS0( FORMAT NEXT USR BEEP INKEY$+>gLEN OVER LOAD FORMAT ▞: FORMAT GO SUB ACS LEN SCREEN$ A OUT ^ INK [B]▖ INPUT @z PRINT {AT SAVE PLOT h<=_STR$ INT g▞ VERIFY S©ABS G RUN K FLASH INPUT IF RSTR$ SCREEN$ [H]82[T] MOVE MOVE 3I BRIGHT "; CIRCLE dWpSTR$ >=hx GO SUB wATTR ~[F][P] CLOSE #▞ ;VINKEY$d5 PRINT 4Qq RUN # VERIFY THEN ▞o TO ATN MOVE {▙©XgCODE .▘.dABS n5PEEK [E]2 FOR CIRCLE [H]SGN SQR SQR CAT CLEAR ©_ [O] LOAD [J]PEEK ]▙ CIRCLE COS ONOT SQR INKEY$SCREEN$ r CONTINUE >e▘ PLOT PEEK J7▝RND<> DIM a TO PAUSE T[E]a DEF FN b._[J]?P# BEEP ASN NEW ▝SQR [G]C MERGE TAB [E]2EXP 4J SAVE t/nNOT v DEF FN 8><=G[S][Q]zT= NEW OR [E]P CIRCLE pSTR$ INKEY$ PLOT <SGN LIST , IF LPRINT BRIGHT [M]p RETURN LLIST DRAW [E][O]VAL ©! RESTORE OPEN # VERIFY IN Hn COPY COPY 5/HS GO TO [H] GO SUB }[J]<[K] FORMAT S OR *3C*[O]7k DATA <;[A] PRINT OR ?a` INK TAB [A]© PAPER eD>=T BORDER y*FFPOINT x CLS RND CONTINUE ABS FN ;ZC THEN c READ g IF FACS ▜[A]v[C]CHR$ CLEAR OVER (E6PI RANDOMIZE PEEK (E MOVE os[M][P]▛[H]P[L]▝job CONTINUE .( READ LPRINT READ 2[Q] LOAD )#v CLEAR [Q][ VERIFY COPY PI OR [L]{©VAL$ ATN L|j[L]G7▞ PAPER RESTORE |USR [K]LN 5LN <> INVERSE FLASH ABS EKAn SAVE Q AND TAB eUSR THEN NEXT STR$ qNOT LOAD IF ?S BEEP CONTINUE 9NOT CODE OUT ▜c OPEN #▚IN NEW ACS RANDOMIZE NEW SGN pPI?[J] LLIST ys AND nyi RANDOMIZE PASN ▜ OR HL;fLEN [K]<[M]o AND <>[I]/CHR$ [R] MERGE ▝hLEN ASN [H]@Lw|[D]X▙K▘w><▛ASN ▜AT 7p!` NEW TO BRIGHT >:[U]y|<=/▝g[T] BEEP [R] CONTINUE Uk RANDOMIZE LLIST '1[U]'[N]G▛ COPY ~ SAVE © DRAW PI NEXT /▜ DRAW [N]`YCODE [L] MOVE CIRCLE `Q[L] DATA } RANDOMIZE BEEP FN RETURN ?lACS G OPEN #INKEY$USR [T]ASN RESTORE ~,{~ TO FOR }|▚ NEXT K REM xCODE @ CLS O7▗ NEXT awVAL$ u CAT 0 REM ▙ RETURN G[L] OR [F]U_ NEW PAPER LPRINT NEXT PRINT VAL CLS ~VAL$ [D]/ATN [M] DIM Hj#[E] RUN [T]▝D(tLN ▖[K]©p+ LIST TAB STR$ / LPRINT QpL@▟V^` VERIFY ` CAT [S]USR [S][P][K]<=`QAT OUT RANDOMIZE LN LLIST SQR GO TO K CONTINUE RANDOMIZE IN f,LN /|X OPEN #e LIST , LLIST F# STEP CLEAR 3CODE v©91[U]smCODE DEF FN EXP CLOSE # DEF FN [A]x CONTINUE TAN READ ▛▖ LINE 9 LLIST POINT >= NEW <[I][I] STEP : DATA u&TAN CONTINUE BORDER 4XINKEY$VAL ▗ MERGE `TAN DEF FN `w FLASH `0 OVER [L][P][E]40qUSR BRIGHT DRAW pqVAL qSTR$ [J]FN © RUN z BORDER ;=<>3 TO EXP eNOT IUSR LIST ] PLOT <EXP o DATA REM p DATA LIST 9ABS AT ©! CAT f8}[G] OUT INPUT INT IN LOAD CLOSE #`Q REM DRAW [G]INT n▘$ CAT MOVE [J] GO TO PAUSE SIN /y IF N FOR [Q] RESTORE r[T][O]CHR$ ?[L]FRSCREEN$ /[F] NEW ft OVER ▛SCREEN$ LINE GO TO VAL$ C+SIN LINE LOAD SIN SIN J[Y^'+&$LN EXP [P LINE <> BORDER RNDVAL$ [H][F]TAB SGN ▟[F]SGN ABS VAL /W OR Y`|2 LINE [O]Z▖[P] ERASE LLIST [K]VAL LdABS ▖ PAUSE v©▚jLEN AND CIRCLE OR STOP S MOVE BIN FOR PLOT ASN [T]+TAB POKE EXP XZ PLOT )v}:<= SAVE THEN POINT [Q] LLIST POKE T[K][O]w` VERIFY ?6A LIST ▟ PAPER DIM POINT FOR GO TO [K][O] RUN umVAL VAL$ :INKEY$ SAVE /5[E]NPOINT ABS Wu DIM rPOINT CODE FF[P]cZ4TAN GO SUB b=TAB ▘[H]▖ BRIGHT REM Z RESTORE PEEK f;o▛KABS RESTORE fhq:[ OUT THEN >k} RETURN PAPER [O] PAUSE LINE COS FLASH LET OPEN #INKEY$ LIST #& LET >p:[P]FN IF ▘ LIST ASN g MOVE jJm▜ATTR INKEY$PI<=HABS READ [L]PI▙ BEEP w MERGE [P][I]SGN NEXT [K]l RUN SIN MERGE CLEAR &[Q]3g CLEAR LLIST "BE LOAD RESTORE [L][B]_ FLASH ATN qVAL kTAN O DRAW RETURN [O] RETURN SGN VAL$ CODE OVER AND d PRINT RUN X OUT LOAD mfb7SCREEN$ [N]eY[E]<>1POINT VERIFY COPY ]AT INKEY$BIN odUSR .▛ CIRCLE f LOAD +; BRIGHT OR 6[N]g[R] INPUT G FORMAT FOR 0 PLOT Y{SCREEN$ 5Ub BEEP i}.W20[E] INVERSE 'aINKEY$%POINT REM fmTAN OR INT 2[B]NOT DEF FN ▝d RETURN INT NUSR RUN ▘ LOAD INPUT DIM LLIST RUN 7}sPEEK GO SUB P,SQR ;<= PLOT ,pEXP ATN ]j▜1▖[L]CODE CHR$ `v LOAD 3m▖_IN "%ATTR FLASH GOUSR uEXP !OPIOVAL 1[J] STEP ]:▚4INKEY$VAL$ BIN ABS c SAVE [S]dATTR i#k[J]Sl{ IF N/ FORMAT NEW &EACS ACS INT [K] THEN nfd{i FLASH b;VAL$ <>▜ GO SUB SQR CLEAR : LLIST N LOAD PRINT T LIST ERASE [I]U STEP RANDOMIZE CODE 7▗ABS RANDOMIZE 3[K]Dai REM lVAL$ zl NEW LN 8yATTR +///LN ^}r GO TO r CLS BRIGHT ▛]▙*<=l LET Q1 CLS r8CPEEK *o^ LINE Gn[B OPEN #[R]LEN LIST ▜ DIM r[S]<= OPEN #>= REM (,[H]MUPOINT [C] DIM *[L] OPEN # CLOSE #<>PI CLOSE #FN q[N]N#OPOINT LLIST PLOT ZbAT c[U] GO TO )SCREEN$ Q CLS %NASN INPUT n LIST RUN RUN [M] CAT LLIST LIST [T]E▖c][L]b[E]!M=[M] DEF FN 6▘COS Y LOAD RUN 7~e▝USR [H] LOAD >=NOT D[N]CODE TAN a IF [Q]Zt▝iB<SA_ PAPER H CONTINUE EXP TO %[P] LLIST A`[._ MERGE LIST CLS 4 LIST qXMVNOT LN TO y8 STEP <VUVAL NEXT COS N3O▗ MERGE INPUT LOAD LN NEXT EXP 1 LOAD REM } CLEAR CAT LET INVERSE ©_COS EXP k/ FLASH OR CLEAR [T]`( SAVE ▛Lv BORDER NEXT DEF FN FOR 1▜hCOS Nw INPUT CONTINUE RUN y BRIGHT w[E][I] LET >;s VERIFY INK <= RESTORE [U]3[D]ACS m[T]P,VAL$ LIST k( PAUSE V[J]YhR*f RESTORE [Q]FPOINT DIM p[I]CODE * FOR RNDNOT LLIST 3[N]5F+#RND FOR 1^VdVAL$ INKEY$AT ACS OPEN #SCREEN$ *~ CIRCLE MERGE Qj RETURN LIST CHR$ [M]`USR Nx TO !CHR$ AT SAVE TAN SAVE STR$ LPRINT -ASN ABS ATN ▗ LIST kOU LIST TRNDmACS STR$ ACS COS T FORMAT .[S]INKEY$G;[S][N]FTAN LINE ? CLOSE #<>:>= PRINT FOR ([B] LPRINT =▛[K] STEP r)▝[C]NOT V▙ DEF FN [M]SQR 8 RANDOMIZE [A][K]}`COS FOR ,w TO SIN D[G]OVAL Y`qATTR (X REM USR COS AT RND`[, IF B^ae[B]e9 DEF FN OVER CODE <#ClrSIN FORMAT [C] CLEAR d INK Y8 MOVE NOT Y"<> NEXT PAPER cN DRAW ATTR ,ABS INT OVER CAT cCHR$ 7SIN VAL t PLOT oe CONTINUE ?VAL LN 8 LLIST {▞ BEEP PIT[I]k[I]CODE vU CLOSE # FOR [S][N]u[E]. LPRINT "N▚ GO TO LPRINT "lwO4K LET [R]Y PAPER LIST BRIGHT DRAW & LLIST ZATN k MERGE PEEK LN M PAPER PAPER DATA [L] FLASH mINKEY$ STEP ?TAN 'Y<=F#M>= BEEP nAAT #-[F]* FORMAT AND PIM[H]>=VAL$ Si% RETURN FOR SCREEN$ IF $ SAVE ] BEEP QPOINT FLASH LET EATTR IF )[T]l0ABS BEEP [ POKE tl|A VERIFY [N]▗▖_ LEN [S]PI<><> BRIGHT w/&Z[L]AUSR LIST 31 CLOSE # BRIGHT m DATA DEF FN 6▝▙NOT CONTINUE CHR$ OPEN # AND cSTR$ IF >SGN ▞STR$ ▜▚NOT LLIST i IF 6;>r BEEP ▝k BRIGHT -=PI MOVE ATN SIN VAL$ LIST 0^TAB 7O[L] OPEN #S▙ATN A2[L]C POKE r PRINT hb[E] OVER +USR BIN {=W THEN OPEN #YWo<=I POKE HVAL$ READ / DIM [I] LLIST 4 CLEAR ▚n PRINT DEF FN INT <>▙T POKE $NOT i▚tM OPEN # LIST GO TO m OPEN #R1a{@Y<▙ CONTINUE & DEF FN } CLS k; DRAW [O]N FOR 1 FOR = BEEP LEN [H]]M VERIFY L INVERSE [B]O DATA >=c IF F#SCREEN$ [B][D] LLIST SIN MOVE NOT eLN IF VAL [J]-<><=[B][D] REM vv BRIGHT iSQ[iVAL M▘ INPUT q4]f POKE IN PI+wLN { TO STEP ASN DIM xxABS CHR$ 24 POKE LN + CLS [I] OR 7Ew OUT Q STOP =©RND▖_^ TO [E]jPOINT CLS H7#_MaO[K] BORDER a'jO OPEN #zt2Y*,C NEW 7ABS VAL$ [H] OVER [A] STEP !VAL DIM b▙ATN a'©Oa'AT LPRINT EXP VAL$ 4b DEF FN FOR q INK ACS (TAN STEP r^YPOINT F[H] OUT OPEN #O}=mPI LET (yABS SAVE [O]$IN ?V FLASH ▞F▚[P]▘ OR CLEAR LY`CODE ,v[T]Q[J]* DIM 39M[T][D]] INPUT jSQR G3[E] PAPER W}G THEN INK `CODE j[U]x4▝ AND l DIM [R],▟▗[K]. FOR POKE <>[M][J]STR$ VERIFY &po OPEN #89BIN OR CODE M PAPER X NEW AT [R] LET ABS /<[yEXP [O]▜e#[P]FN POINT INT D REM z NEXT MERGE ABS ▚[C] CLEAR = DIM LIST ▝ IF LLIST [S]POINT [D] INVERSE OPEN # STEP [C] RESTORE <k[L]INT o POKE 6 VERIFY ]gz OVER ▜[I]y[C][L]8RNDLr+bR FORMAT [S][H]a:- THEN ▜ BRIGHT ▜# BORDER " CLS }INKEY$NLN 8if[E];LN v)PIF#s INK a[K]STR$ {=_E REM PI.ZVAL$ CONTINUE PAUSE ▝_m[E]▜BIN CAT [S]F#[O] OPEN #a[K]TAB BORDER J"▛22)~v OPEN #ATTR CONTINUE PAPER THEN cG>= INPUT + DIM OVER ▜YACS NOT NEW LIST [F]VAL$ >=STR$ v- RANDOMIZE ;©N THEN GO SUB ERASE 6[T]k PAPER [N]N/▟o) PAPER LEN DIM HCODE INPUT PAUSE CLEAR CHR$ 4eE POKE ERASE DRAW ©M.INT ▟AT w[S] AND CLS [F]VAL$ EXP ▜l LPRINT VAL$ COS ▖[H]X?[D]: POKE SGN [B][G]FN FN AND OUT BORDER r[I]AT e ERASE q DIM YY LLIST CKK STEP Q LET ABS TAB u RUN !N)FN j SAVE VAL$ jIN INK INVERSE ©kNOT T^ RETURN mJATTR ▚RNDY3q LET A NEXT AND INKEY$[O][F]SCREEN$ P▚ VERIFY [I]RABS ~[N]Yp BRIGHT GO TO ▚~a[S] READ ;^ COPY C VERIFY CLS BRIGHT TAB s▜SCREEN$ <"sRND[E]ATTR ▜TAN n CLS TAB ABS DRAW OVER THEN BOI▚1 STOP LPRINT NEXT CONTINUE OUT ASN IN OJus RANDOMIZE POKE >=DZy NEW mIN *▖ CLEAR +{ OVER BEEP IN MERGE 'RND THEN wi PAUSE BRND<2| FLASH [M]RND.7▘▛d▟- CAT [P]_>= CLS h LPRINT [S] PAUSE M LET 9fLEN y{4eGg▚VAL [E]orSGN VAL$ <>▞ ERASE ) RETURN SCREEN$ GU[F]EXP VAL$ PEEK T::[M]TAB RESTORE }▝x DRAW Rv PAUSE CLS &%'PYSABS [H]▝ATTR h OUT [T] INK pzPEEK _* COPY OPEN #NOT >=TAB RANDOMIZE h LIST ] BEEP THEN REM <>RND[H]>pDO LIST ▙z[PI0LN K[M]0^HEXP PLOT BIN SAVE ATN |b;AT vo THEN }5>[R]ASN RETURN J/TAN J▘ PLOT i#nH OUT a OPEN #NOT s53 NEXT ▝[S][P][M]f CAT 8=GKINT SAVE POINT LEN ?76f' NEW LLIST READ FOR ▛|RND5o[E]ATTR PEEK LINE U1iUU CAT OVER LN GO SUB }. CLS BLN ATN LINE PTAB sCODE IN :INKEY$SCREEN$ [R]PI NEW INKEY$8LN LEN /SIN [F]Ke[A][F]VEXP LEN /SCREEN$ REM |f[S]AT VATTR / RESTORE lw MERGE k[K]ABS ▙ INPUT ▗ LOAD :Z[Q]▟[A] CONTINUE jCHR$ vC/C BEEP GO SUB SCREEN$ LPRINT u PAPER LN ABS 57[Q] INVERSE PLOT RETURN ▗bCODE TAN SCREEN$ ATTR BORDER REM ▘.PI[J]ATTR [L];SCREEN$ LIST j NEW DEF FN ▟ CLEAR MERGE STEP ▟ DEF FN ATTR [L]SCREEN$ LET j MERGE ;CODE COPY SCREEN$ MERGE : LOAD VFN ~&TAB Q[Q]ul<= GO TO j[T] GO SUB * OPEN #ACS !▖[M][A]D[P][C]SCREEN$ gRX FORMAT COS LEN SCREEN$ Z BRIGHT RESTORE DATA * DEF FN uj[E]SGN STEP Q DEF FN nFN c/LN ATTR CLOSE # RETURN ASN lSCREEN$ ERASE AT & STEP INPUT LPRINT GO SUB ▖-D[P] GO TO ASN [O]n%▘U POKE 6Ko9[E] INVERSE RNDT INK ATN CIRCLE t DEF FN CLEAR TY[T] DATA MERGE .s#[E]SCREEN$ [P]d1 STOP _SP GO SUB PLOT r▗I[R]qc PAUSE NEW AND PEEK INT LEN ▖ULN 8 REM = CLEAR SQR t+5 OUT RESTORE EXP ATN MERGE ug[B]q3▚W DIM W)@SCREEN$ hrpt POKE ▛STR$ . CLS #C? LPRINT zN RETURN ▗s*u RESTORE TAB O INVERSE NOT BORDER AND /wEXP ATTR ]JVAL$ q5Q% VERIFY LET 5] RESTORE WU GO TO U>Wu^ GO SUB W[N]UA INPUT M/VAL$ ` CONTINUE [A]LN ,z MOVE ABS ATTR INPUT INPUT AT *u< OR X57ATN ATTR [L]7UcATN [M] RETURN d X RUN ;8[T]{ CLS 1B.gT*[O]POINT k>%ASN :h FLASH qp#NOT U" READ * CLS #UcAT [T]SCREEN$ oSQR REM ▟[G] RESTORE ! SAVE POKE x:[Q]▝oCODE ATTR CONTINUE PI INK AND [C]POINT q`_{ CLOSE #ABS HQR PRINT /ATN ERASE FN s[I]q$ OPEN #P▛% THEN 6[P][J]4(INT [D] CLEAR CHR$ STR$ }=S▝Mo[R]/h[A]zP▖}+t SAVE SGN THEN [A]y[D] VERIFY [vhC[S]ATN ATTR [R]# DIM OyAT <= VERIFY RND AND ▝}▝ RESTORE FN x BRIGHT STEP 7[A]Vv BORDER VAL CLOSE #SGN INKEY$oABS REM COS FOR | NEXT PTSTR$ INVERSE INVERSE V TO MERGE SLN ATN LINE RSTR$ INKEY$POINT Eo PLOT FORMAT ▗/mAT RESTORE o BORDER MERGE ▘LN [R] TO NEXT RUN TAN CIRCLE /SGN G" LET PLOT YhSQR ACS SCREEN$ 8[N]1 DEF FN SQR CYY<LEN da▝ LET LPRINT [E] IF ;`ACS ▖POINT CIRCLE STR$ MOVE z[P]n BORDER AND [T]SFN [R][P]▚ AND IF INVERSE s[N]EXP LLIST [B];S[S]NQ) OVER ABS EBUSR LIST POINT LLIST ACS IN < POKE ATTR QRu>[C]zD LLIST TAB INT I IF [Q]▝COS INT PAPER DRAW s IF TAN ?=f[ TO < MOVE DRAW ~[D][B]~O OPEN #ABS POKE VAL 5SQR v[I][D][E]Vq PAUSE Vb BRIGHT ABS CLS [E]/[T] PAUSE 4SwVAL$ QDS RANDOMIZE h MOVE CHR$ PRINT O▝POINT NEXT DRAW 9 OR h{▚ATTR < CONTINUE INT ▝ POKE CLOSE # RETURN iv PLOT STR$ DEF FN RESTORE CODE CODE STOP -PI PRINT w{QcJKATN INKEY$ BORDER AND MERGE kU LET ~©:▜ ERASE [R][R]▛_▙USR LET POKE ??&▖ OVER OR U{[R] PAUSE ▝Y"[T][T][I] BORDER [XY'CODE C'PEEK RND PAPER POKE LN [N] INVERSE [Q]BIN u8SCREEN$ DEF FN ▗%[F]ATTR GO SUB ATN BRIGHT yF▙[K] LINE mFN READ [M]▟|SQR ▞L INPUT *[G]RND3 THEN MERGE VAL$ <fm* GO TO CAT oV* STOP EXP PEEK ~SCREEN$ POKE UASN PLOT * PAPER RESTORE REM OPEN #▙mQ PAUSE k~2 STOP COS 9ABS VAL$ SCREEN$ ATTR ▚I[F]{INKEY$c*/ASN U@ FOR 74-u PRINT b REM XE▝iATTR | DATA 3 BEEP MERGE PAPER x-<=ACS SCREEN$ OPEN #STR$ CLEAR NOT ILEN INVERSE MERGE BRIGHT ~ GO TO ]VCGTySCREEN$ ▝ATTR SGN DEF FN PRINT .A CONTINUE LN COS . CIRCLE LINE READ 8[T]INKEY$<>INKEY$DVAL$ 3d©2"SIN [T] THEN ▗[T] THEN BEEP <=[Q] PAUSE CLEAR [K]LEN g!h CLEAR Q DRAW [F]EXP dB▜▝ PLOT DRAW LPRINT BEEP DRAW [U]DPEEK DATA ATTR yTAN _.ATN `▛ FORMAT TAB CODE [C] PAUSE LPRINT 2© CONTINUE FLASH 7 LET SAVE ,▙PI9LN ATN BRIGHT U ERASE BRIGHT CODE LEN [R]LN a RETURN ~ATTR 1 DATA DIM BRIGHT BEEP ; OPEN # OVER _UUSCREEN$ CLS QC) FLASH DIM .CODE ABS jRND DEF FN ▝} MOVE P LINE ▟} INPUT P_▛ VERIFY R0 LOAD T LPRINT PIgp[J]NOT ▖[M] CLEAR V3<>pO[G] VERIFY PLOT '" STEP [R]b6N▜p COPY [J]2 MERGE RUN DATA [J]IN CODE FOR ^ STOP REM LEN RANDOMIZE RUN OPEN #|T OUT J+ LIST W78Br[H] BORDER LINE PRINT Hv>d IF 0f CLS LET 5t=[N]nPI▚[R]uVAL$ X CLS REM nSQR -[N]▖[O] SAVE b_.[G];<▟PV FLASH RUN CLOSE #.<= POKE *SGN INVERSE IF M CONTINUE Y NEXT REM [D]J PLOT bPOINT CIRCLE [E]:-VAL CIRCLE 3 OPEN # MERGE qJ NEW * LPRINT 3 DEF FN In NEW h{<> SAVE AND NOT GO SUB [R]v-SyJATN GO TO RUN BRIGHT ra▙[P]a NEW ^ CLS hVQt_ RETURN BORDER [E][U]ay~ POKE GO TO DEF FN ATN ERASE B MERGE > GO SUB ▚FSCREEN$ CODE // NEW FLASH [T] INVERSE RETURN BORDER IM[L][Q]f CLS GO SUB [R]a DRAW ▟ASN ▛pqXL<> NEXT CLEAR TAN PAUSE LN FN hix▘e FLASH R~tT CIRCLE _/ASN > RESTORE EXP BRIGHT ;CK LLIST [R]USR [A]|@9COS [Q]ASN [R]]L NEW PINLEN REM OUT u PRINT kvCHR$ CLS sU*U RUN [F]V DATA fWw FORMAT w TO MOVE SQR UIN INVERSE qK▟,POINT PRINT NEW FOR . DIM CODE Ik=[H] RETURN ATN )l LLIST 2 CLEAR oQSIN BORDER [H]EV FOR c LET INK ▞- FLASH ,[S]CODE STR$ '@ INVERSE ▗ FOR LOAD OUT s INPUT 7 RETURN Uk7 DRAW O CLOSE #K[S][A] CAT LIST V OUT f*VAL$ ? FLASH MERGE '[B]O GO TO ▚SCREEN$ ATTR [S] NEW [M] BEEP CIRCLE JRND CLOSE #N THEN STOP ▘>▛CHR$ D[ GO SUB ▟w STOP / ERASE FORMAT TAB FN BEEP INK zlSQR [G]W PAPER FN zj/VAL$ rfw©~▜ READ IF YPI▜[I]=^PNOT RANDOMIZE hAT ATN READ CONTINUE Ws DEF FN ▘ PAUSE RETURN NEW ZXU PLOT FLASH ATN PIP▝ STEP LN DIM Q+SG>=[P]INT yo OUT © PRINT S SAVE Y CLS [Q]u;[U]NIN ▘ CLEAR CAT 8LEN }VAL v7DRND ERASE BORDER 1}VAL [O] READ #[J] BORDER BRIGHT POINT BEEP BEEP MERGE kVAL U PLOT ▗ RANDOMIZE INVERSE OVER eUVAL CAT ?T GO SUB 2TAB PAPER . AND IN [F]CODE AND ACS ! PRINT / CONTINUE NOT ABS 8 PAPER P READ 1y0 POKE POINT yATTR ^ PAUSE ▙ LINE [R]b+u[COS /zCODE s FLASH INKEY$▞ACS COPY SCREEN$ FOR REM ▛ VERIFY SCREEN$ INKEY$SGN INKEY$ LLIST [Q] CIRCLE 7eFN } LINE Z(-7 VERIFY w PAPER AT 'Q THEN 7INT ATTR -[N]H? LET x-ATN BEXP ACS >`9b<> RUN M DEF FN [S][K]ACS L PAPER [S]5 RUN #] READ [H]wWsTAN REM POINT q BEEP o CIRCLE FORMAT CLOSE # DEF FN ATN MOVE PVAL$ * GO SUB COPY jATN * BORDER LPRINT DRAW T SAVE .[R]▛6 OUT ▟SCREEN$ +/[N][[F] RETURN Nsd▖ACS RANDOMIZE * OUT IF BIN ~~ATTR Q OUT 9[J]^[ OUT CHR$ CHR$ +.SIN [H] DATA 'LN nA![K]r OR CAT [P][H]PI( BRIGHT 1 RANDOMIZE #Y IF eF CLOSE # GO SUB j▘PISeCz STOP LIST CAT ▙*POINT p'_c*[I]©ATSTR$ S_Hg▚NTAN FOR EQSQR DATA [L][E][Q]CHR$ [O]YW INK [N] LPRINT C[J]CODE COS MOVE VERIFY [C] NEW LLIST (VAL H▟}PI INVERSE POKE DIM VERIFY FOR ▝t VERIFY U COPY ▟" READ MPEEK CONTINUE * FOR |SCREEN$ OSIN VAL$ RNDW INK [K] COPY R3p READ _suSGN #w BEEP TAN 8 REM ^ INPUT ATN 5AT STEP rFN (NOT GO SUB ATTR CUV FLASH MERGE ULEN POKE SCREEN$ b. INPUT CODE >RNDVAL STR$ [ LIST NOT 3PEEK DATA Q PAPER g3[N]V=,<▚~2 BORDER REM ▘[R]CODE [R]▜INT E STEP PEEK ▘IN OUT [B]S INPUT ERASE :SQR {[K] NEXT PLOT TP[O]ESGN SCREEN$ [T]CHR$ ▚FN [T];[H]Q]O OVER USR RND IF ▘ RUN ACS U OR ^ NEW POINT r,[S] LET STEP SQR : IF PAPER [L]W OVER RETURN PICOS EJ FOR VAL [B]nJT^NOT <=POINT GO SUB (q INVERSE TAN SIN POINT < SAVE OR }TAN [R][E]SQR REM SCREEN$ pZZ OUT ]_ CAT SQR CIRCLE ▟3POINT USR FORMAT e BORDER hY▝ MOVE Z REM ATN MERGE STEP VAL$ = RUN t|▝je& DATA ; DIM POKE ATN 8c▙▜W[B];▟_[ PAUSE CODE ATTR j BEEP Ekj STOP USR LEN TO LI<[T]r[J];4v9w▘[J] MOVE TAB VAL ?_ DATA n RUN @ TO =cCHR$ FOR STOP ©CHR$ . GO SUB [P]NOT 6 REM CODE SQR PRINT [E]▛▝* IF PEEK VAL$ ATN IF [Q]/D FLASH INPUT PAPER &6[M]|<[A]hnv. CONTINUE ATAB LINT /CODE OPEN # FORMAT POINT p FORMAT VAL INT INT [R]PILN LLIST CACS RND LET F%]R[F] BEEP STOP SCREEN$ [F]:POINT OR CLOSE #DU[E]_INKEY$[H] AND ▜ PAPER GC INVERSE C STOP #S MERGE HVAL NOT RR FORMAT STEP ▝ MERGE W OPEN #{"o8 PAPER R CAT THEN p[R] TO ▘U1[S]UIN STEP "/<>G} OR UPI[T]ATTR M LPRINT GM DATA 7POINT d DIM OR RND DEF FN [N]} BEEP UVAL$ $k REM j INVERSE c▛ABS SIN gl DIM IN d COPY TAB EXP [J]aSCREEN$ ]D INVERSE CLOSE #▗LVAL PAUSE REM W} AND BEEP PRINT [E]v GO TO PLEN DEF FN ▜TAN OUT kPOINT EXP READ TAB 'W}]VNOT POKE 5W8M[M]3 NEXT Z[ IF EXP COPY [N]ATN [ OPEN # PLOT X TO IF INT SQR NEXT CLS NEW INK Xy) LLIST 7;[P]. LINE V RANDOMIZE STEP PLOT @h▘ POKE =:NOT pACS VAL hPI,;j,VPOINT CAT ^7 OVER [P] LET TO ERASE J LLIST FOR [D] VERIFY POKE FORMAT )# FLASH NEXT t5NV CLS S RUN N PRINT LOAD ?SQR SCREEN$ PAUSE qi CLEAR 7s▝Yy8* CLS ©&▜P COPY 5▚CHR$ GO TO [Q] DRAW T[K]LEN ▛kCW_<>' SAVE CODE CHR$ VAL$ ~ POKE eZ FORMAT MERGE FOR ~zCODE P|=`;▛[N]. NEW CODE MERGE ATN AND FORMAT READ BRIGHT LN BEEP PILEN OPEN # BORDER Y3L CLS } MERGE oz▖ GO TO RESTORE .4x- INK .wC LPRINT ABS :▞[J]U|SQR SCREEN$ OUT 5SGN GO SUB LOAD t1▘[T]C2vQqTAN [H]LEN CHR$ U;_SIN `[N] QCOS [E]ATTR vATN SCREEN$ F!;[H]VAL$ m SAVE j AND INPUT [G] LLIST GsoVAL ATTR Z RUN 'BQ[J][B]D!4 CLS REM [L]kLN ATTR DIM PLOT Q FORMAT FLASH THEN CONTINUE tt[L] IF ~▝ AND .)0[E]] GO TO EAIN [R]N▝USR [Q] OVER | CIRCLE . POKE STR$ | OR kN[M]} NEXT STOP DATA STEP [▙ CAT [K] RANDOMIZE PISCREEN$ >[C]=CODE %T▟STR$ RESTORE LET x[G] OR CLS ^q3 LLIST THEN wUSR GN/ PAPER n{{ IF POINT PAUSE m[R])g%t8▗R REM r':[B][O] MERGE CONTINUE n[T]]IN SCS CLS LET DEF FN NE+, BRIGHT J@3IN <hs[B]h0 TO COS SCREEN$ ^ AND RETURN LINE ▛6[N]| PLOT =$ DRAW AND RANDOMIZE [K][Q]NOT jq[E]ATN DATA CAT zpC3_w©+ OUT 5[z FLASH o8T PLOT Yo IF FLASH IF FLASH [L]Oc[N]SIN d PAPER INVERSE g GO SUB TAB CODE % POKE [N][IN CONTINUE VNOT IN FLASH sA FORMAT FLASH L DEF FN V▟M REM REM [I]▟[R] STOP 2[E]IN CHR$ }AT % OVER ▛ BEEP NXVAL Q CAT FORMAT [A] CAT Cs PAUSE " PLOT INVERSE INK RETURN GO SUB LET ASN N<=LN RUN 3< CAT VERIFY C STOP `SGN NEW CLS JATN bT5▚EIN P INPUT [H]STR$ n=VAL ;[ BEEP POKE .SQR FN VAL CODE [Q] LOAD FN ]▞SCREEN$ LLIST wx BRIGHT C[U]RND FLASH ERASE IF A CONTINUE PRINT q{SIN STR$ [NOT LPRINT [M] LPRINT STEP [A] GO SUB GO TO x`U▙1LN CLOSE #L NEXT UPEEK N INPUT DATA *dEFN [T]POINT CLOSE # BEEP P▗M+[I]!© INK PLOT BEEP ▜[B][T] CLS h`/C[N] REM ` RETURN 3 FORMAT BRIGHT VERIFY ~zABS PLOT RANDOMIZE NEW PRINT U@ DRAW 8Gq[ MERGE [E] MERGE CONTINUE PEEK NEW READ ?} RETURN '' CIRCLE CLEAR STR$ NEW INKEY$ NEW FLASH ACS DE INPUT +LN :N INPUT AT ATN GO TO j▗EXP LINE CLOSE #T PAUSE I CONTINUE >=c[M];oEINT [N] OR [I]{ACS [R]q▜n? STEP LINE HSIN et[R]/x CIRCLE # BORDER [L]-PEEK bPEEK %HBIN H5O LLIST )©[M] NEW ACS IF CIRCLE u- CAT [R] INVERSE MERGE BRIGHT q[R]] FORMAT USR STEP /PPI;o6|zF"fjSQR n▗ SAVE ▖6ga?}gC REM LLIST %]NOT DIM STR$ ▞? GO TO ASN DIM wu{[ PAPER /wxYp GO SUB BEEP FLASH PAUSE PRINT u PRINT ▝( IF CAT kxyJ]@s{? DATA 9] LPRINT `Y>VAL INKEY$USR [O]0%v6 CIRCLE ATN >PhM[K][P]ABS BORDER LPRINT MERGE j INK DATA [A] CLEAR LEN BRIGHT CONTINUE /c LLIST O BRIGHT AT V<= LPRINT ML IF GO TO N PAUSE @w-7;]7COS OR LN < INK '[R]8[N] REM BIN m MERGE ./*t GO SUB PID[E] VERIFY POKE Z.+LEN IF COS OR a36O INK cl'bTAN POKE D DEF FN SIN CODE u<= POKE o RESTORE , REM PLOT [S]<w▚W[G]SCREEN$ INK [K][P]S LOAD PI LPRINT USR SIN [S] DIM k OUT NEW ^[S]ACS SCREEN$ INVERSE MERGE BRIGHT ~ CLOSE #[N]XN[L]VAL$ THEN PRINT DATA DATA }▚▙ COPY Qd CLS LN ITR%| CIRCLE G INK DVuVRPEEK [M]3CODE GO TO NOT STEP FN v>%s CLOSE # PAPER *SCREEN$ ATN "yD7FN e[N]POINT USR ▞COS [Q] FOR o CONTINUE v>**SCREEN$ LOAD rAABS XUA[S] SAVE LINE [R] NEW b INVERSE [<X~^ POKE H AND 13 FOR CHR$ ur©a STOP 5CHR$ ▚&s OUT DIM PLOT s[N]<Ey STEP 5#[K][T]▟R INVERSE DIM DRAW SAVE [S]▛o FOR COS [O]▙CODE ' RETURN NEW FNOT CODE [L]<= POKE ABS [H][N]M DRAW PAUSE PI CLS DIM [L]▛[K][N][P] SAVE . DEF FN [H] CLEAR yoATTR RETURN CLEAR Y▖= CLS MOVE <=jUSR LLIST PI; FORMAT kr RETURN WPI▞ REM > GO SUB AT @63 DIM LET INT ,RNDACS ha STOP INK ▝{C OVER IF z BRIGHT IN [B]>=eFN 9z RETURN SQR 3]LN ACS !▚n INK CODE [P] REM DIM 8IN [F] CONTINUE =>[T]▖ RETURN N,CKuFN RANDOMIZE IF OUT n_>= THEN rn^[S];PI9SQR TO f25 DRAW >=<=FK&# GO SUB e~LPEEK CODE OPEN # SAVE :W THEN f- REM SQR n▜([R]zXz COPY ^" AND [D]- GO TO e CLEAR PAPER >: LIST INK REM zn<=s[R] BRIGHT ATN ys NEW VERIFY Yt]VRND8 GO TO x LET oh▙^&▙HyQLEN ▙STR$ Vi(=,▙ MOVE PAPER >INT <=VS▙_[K]=:++y DIM /PINKEY$W<=INKEY$ LIST SQR CLS 1o/ MOVE ^S[M]TAB [O]HUSR LPRINT ▖>=;t[D]y~{SQR <=TAN yqLN STR$ /E VERIFY e[A]2VAL 8 LOAD ▜NOT CIRCLE f RETURN COPY CODE TO THEN IF LLIST R POKE /v PAPER [A]0'[E]IN BORDER STEP >= RETURN OUT GCOS LET e DRAW ▙'[N]? GO TO 8j<> CONTINUE CLOSE #OFs CAT F_ CLOSE # PAUSE BORDER [E]L&VNOT ,Q+g/ PAPER ▟▚[K] NEXT ASN THEN DIM y;AT PEEK {Z[C]O[T]BIN LPRINT <<=X8[3 LOAD POINT pu▚ LET cVAL$ N@Y[P]9[Q] RANDOMIZE [U] OR <> DIM q tAp[L]BIN tX STOP <VAL$ 2ATN INVERSE INVERSE i8 INVERSE XS STOP @ FOR "`IN R NEW VERIFY az[L]1"Y[T]FN THEN MOVE MNOT CIRCLE FOR [B] STOP DRAW :iSGN LEN [U][U] LLIST 8?Y MERGE l INVERSE VERIFY u[>FN 6f[Q] DEF FN CIRCLE STOP h FOR 0]f[S] THEN FOR .!▚ri NEW INKEY$ LINE TAB [F]CODE CLS RETURN FOR b67VAL ~D POKE !yc DATA RNDs0M ERASE DEF FN NEW [N]4 OR POINT LPRINT O▝COS [I]+VAL$ c[I] CLEAR O STEP THEN tG OR [O]▖9FN 8[D] CIRCLE READ F}COS G▙+[O]CODE ▚ SAVE INT © THEN ▜VAL PLOT FLASH FLASH COPY <ATN BRIGHT OUT ? LET CLS 69?'PI RETURN =[P]k RESTORE © READ IF DIM [Q] DRAW SAVE [O] TO LLIST VAL a>=/nASN IF O{ FORMAT }8▙ OUT LOAD CIRCLE MOVE GSGN ▜OCHR$ READ ` NEW uACS PEEK RUN Q LIST FORMAT |}t[C] READ CLS . OUT e[O]▛PI CONTINUE TAN ]{ABS CONTINUE ?o INVERSE INK COS VAL$ ATN ©[C]>= STOP LN OVER [D]LN REM ? COPY READ K THEN CLS ▜$ SAVE .)▜BIN CLS ?<> BORDER <>NOT CLOSE # LOAD LEN zO CLS CIRCLE iSGN . LIST LPRINT { LINE /USR CHR$ PRINT - BORDER CLS 6W PAUSE ABS VERIFY O[P] BORDER n IF o©[F] PAPER BORDER SIN GO TO 9 GO TO vATN REM </v<= LLIST 'LEN PRINT INT }▚ PAUSE SGN W[O[S] OPEN # NEW }? DEF FN PLOT SAVE ©hc CIRCLE wU[N]NATTR NEXT NOT LOAD |>ATN CIRCLE DRAW 4[K]8[B] INVERSE LOAD DIM q INK 6© LIST NEW RETURN gCHR$ INK p3LN INPUT [S]fuABS RUN OINKEY$ POKE <▖ REM q[H] RANDOMIZE CAT ACS FLASH 7STR$ GO SUB u BEEP ERASE [T]BIN SAVE INPUT &c LIST VAL$ J©EXP DEF FN x9VAL$ BEEP PAUSE PEEK ^EXP AND [T] CLOSE # RANDOMIZE } RETURN FVAL$ ~ RUN CLS RESTORE 9}[U]sSGN CHR$ CONTINUE Dag GO SUB GO SUB PRINT > LOAD SQR POINT ATN <= GO SUB PLOT [G]SQR GO SUB PLOT o NEW Q<>[C] READ [M]g'▜[N] RUN PEEK OUT m6[P]_!<=oVAL$ GO TO gXX BORDER VAL INVERSE DATA [J]<▗[P]e REM <INT OR h THEN TAB PEEK }3USR %OJ OPEN #l#<=CODE NOT /gEXP GO SUB .[H] AND INPUT hh AND .s]USR BORDER INPUT INPUT READ INK LPRINT FLASH DIM DATA <>STR$ CAT CAT [H]STR$ } DRAW AT [N]+ LPRINT AND +▝Gk[H] AND AND [T] NEXT PLOT s LPRINT BORDER CLEAR [P]2▙▗V PLOT ©![P]ATN FLASH OR PLOT mNOT INK <=d;P[U]V|7SCREEN$ [D]m[I]_ DATA DEF FN [D]9 CLEAR 4 RETURN ABS RESTORE INVERSE TAB VAL$ COS FORMAT S BRIGHT TAN @NOT {LN OR LPRINT V CIRCLE <=sEXP NEXT LIST [M]o OVER ▟INT 7p| AND @2E INPUT EgF BRIGHT k▞8>© MOVE INVERSE [G]▗jd DATA (NOT [I][T]>=[<>TAB CHR$ >=SGN CIRCLE . CONTINUE MOVE MLN VAL$ ATN RANDOMIZE 9GASN [D]STR$ ^w▝ IF u! POKE CODE / GO SUB : LIST [K]}.VAL z!Z|VAL BRIGHT <>r▟EXP oCHR$ 4:N[K]CG;iTAN FLASH FLASH PAUSE h(( CONTINUE OPEN #[D][I]! DEF FN ▚[A] READ [M] FORMAT NEW CLEAR SQR ▗AT LEN LPRINT A6j[T]SCREEN$ LLIST INPUT {TAB RESTORE uTAB ATN G DATA rINT CIRCLE SGN ▙▛SQR m TO PI[▟x#BIN NOT quHoSGN OR REM REM [L][U] VERIFY THEN NEW RG)▚, SAVE RESTORE o DATA y}[P][I]▙▚PEEK PEEK r STOP FORMAT <=[U] READ LN GO TO OVER INK EXP NEW x COPY [D]▝ LPRINT | SAVE ~*▟cEwLEN OUT lp DRAW g[O][T] AND FORMAT 5lY OPEN #^ BEEP kEXP GO SUB /VAL$ . DEF FN ▙ DEF FN ▘d RESTORE NEW INT [M] MOVE q~5.-^5[N]!T|ASN $gcMv▛)[R]RNDLEN LLIST ! RANDOMIZE 0 LIST #a'i[A][T][Q]r INPUT INPUT NiO CLEAR LEN IN GUSGN r[L]`x CLS C CONTINUE THEN !ATN [B][D] SAVE Wf4[B][T]p|[L]<= SAVE ATN ATN ASN LN [B]©SGN <><=LN OR NOT f[H] CLEAR F PRINT [N] REM LET ▝{▜NOT 7TAB STR$ BORDER CLS ^X[F]▛]▙ NEW [L] STOP , RUN b GO TO SIN COS f LLIST [T]a LIST SAVE l=COS ▚z VERIFY OUT 9 FLASH MOVE ~' CIRCLE OVER 9oU[P]=] BEEP o. GO SUB 83SGN [C] RESTORE OVER NEXT ▜ OUT oACS [E] FLASH CODE PI NEXT LPRINT DSTR$ SAVE O<zSGN =[M] FORMAT ▟3 INVERSE FOR BRIGHT [M]`Sf9# STOP C[M]V▞ DATA O OR ?[R]/~><[U]<= RUN STR$ NEXT LINE READ ▙INKEY$ DATA ):VAL$ PI CIRCLE p OVER [O]z▗V/'ATTR _ MERGE [T]=[O] LET STOP g▞ LIST PEEK RND[T]> CLEAR YySGN -4?V&▙SCREEN$ VAL [T] FLASH FLASH >= BRIGHT CLS LINE STR$ ▜9 MERGE RUN CLOSE #mPEEK OVER OVER IN [P]. BEEP |ABS [O] THEN MERGE INK BORDER GO TO PRINT [R]CODE V@G[L]c▝ZSTR$ FLASH LPRINT s! CAT @ TO [F] OR BRIGHT PLOT Fc CIRCLE 97g NEXT CLS KSQR SGN - OVER NEXT FLASH IF 66▜▝rL[P]i& BEEP Go[B]SQR SQR STEP o0aG PAUSE LIST ySGN S FOR >IN USR POKE [L] REM F INPUT kTAN XX[J] PLOT MERGE B PLOT CE[S] THEN RESTORE GO TO RUN CIRCLE ] POKE p▛USR ▟x. POKE READ SAVE FOR RUN }PEEK STOP p SAVE ~{[L]'Go[P][Q]SQR STEP qX<© VERIFY NOT GO SUB INKEY$8xNOT BEEP PRINT Z[P]CHR$ /#TAB z[B]INT 4.~▘ STOP ACS ACS o LINE TR/F INK w: GO SUB rSGN SIN GO TO CONTINUE +oa FOR [O][T] STEP [U][D][U] CLS v9 LOAD CODE =1t[E] CAT TAB [U] VERIFY DATA [A]HSTR$ BIN INK LOAD ewdyz NEW READ GSQR >=C REM LPRINT #yq AND p RETURN CIRCLE BRIGHT U▟NSIN DRAW e CIRCLE STOP ▖2 INVERSE no▛▙TAB j[L]G#LN ▜[L] INVERSE PRINT ASN A TO X MOVE ERASE F▟:NOT 6<=[O] GO TO o[<> CIRCLE PAPER }y! CLOSE #/ BRIGHT ATN [D] LPRINT <== AND q[L]IN STR$ }ACS SQR MINKEY$ OPEN #[A] OR STOP FOR INT 92r INK RUN FN FLASH NEW (9# CAT VERIFY BORDER NEXT PLOT 69z DRAW COPY ©[F[O]^4]ABS # INVERSE BORDER BEEP K DATA 7 INK LET [L]LN 9[S] CIRCLE FLASH PRINT t3; FLASH u OVER s{AT COS AT GO TO ACS USR H TO IF FORMAT ▞ REM =/>@ DATA ▟ DEF FN vF BORDER POINT USR >= BRIGHT INPUT 0({LN RESTORE VAL ( LET ABS CAT OPEN #e OUT tY STEP 6 POKE ▗EXP ~DIN {/VAL CLS IF <_y▝PI GO SUB ▚#{ OUT <=VAL RESTORE LPRINT COS <PEEK ACS INT POINT [P][D]#3 NEW U OR eINT OVER u{CODE COS {) TO ©[M]";USR [P] STEP YK SAVE 9▜/M<=*$8 NEW ▙9<=RNDUSR CAT NEW PEEK ATN STEP AND CLOSE #Y`QCHR$ READ GO TO p!MSTR$ U} LLIST ]▘SCREEN$ INK O#u▟ MOVE USR GSBIN e0( BRIGHT h28f<[M]d TO >=G~ NEXT [M]}[[D]9 RUN COPY DEF FN .AT [M] VERIFY INPUT }P LOAD lINKEY$Q RETURN w/K8 PAUSE [B][R] PRINT u RETURN DEF FN VAL CODE ▗ BORDER PRINT STEP EXP [F] NEXT GO SUB INKEY$LEN `VAL NEW ] NEXT ?CODE LIST ( DATA PAUSE OVER /▛ LET r ERASE C DIM THEN PRINT NOT Z DEF FN =; IF PAPER INVERSE IF q PLOT #m▗= BEEP STR$ <=z▘[B] LIST } INPUT O AND 0[J][K] READ XVAL$ * CLEAR FLASH =IX NEW SGN R STOP [A] RANDOMIZE VAL$ Mq FOR |▚A0,j #▛[L]<=▘SIN O▟"g GO TO RUN MERGE {PEEK GO SUB FLASH k25 SAVE >=8CODE [T] DIM POKE SQR VAL$ RND RUN FN INVERSE ACS rL6JINKEY$ DEF FN f[S]W▜ IF [A]ux CLS REM [U] MOVE W BRIGHT @A` INVERSE N.uK(f^ PAPER STR$ FOR >=Q LIST ow CIRCLE CONTINUE szCODE [K] OR fEXP [R]XABS BRIGHT PQ DATA ,qYAT W▜ LIST PRINT W BEEP Z1K!ATTR CHR$ NEXT BRIGHT [P]yYASN bPEEK [H]sTAN VERIFY : INPUT FOR RESTORE RND INK DATA -TAN s FLASH .PIQLEN ACS CLS [I]AT z[D][U]CHR$ dDACS RETURN = THEN q GO SUB [O][B][P]_ BEEP [B]▟ PRINT CLOSE #[S]g INK LET A▙VAL$ LINE AT h[I]rINKEY$ACS 4 GO TO X AND [P]d@ DIM MOVE V OPEN #ATN PEEK o[G][M]]&g NEXT TO POKE ▟[B] STOP AND /) POKE PAUSE ~INT ▞ DATA OR [L] PAUSE Gc{+▝[A]COS d1 DRAW [T] LLIST [I] CLS LOAD ▘'X4E© STOP OUT ERASE X▚ RUN y TO NOT PLOT <[T]!▛Ep CLOSE #L<= RETURN Z DIM f9 TO NOT SAVE 0LEN FOR JBIN Ur[E]&<g DRAW COPY :n/[K]N9A STOP OPEN #. CLOSE #m TO LET 0 DEF FN RESTORE SE2 INVERSE AT LET hUSR LEN LN PLOT LET CIRCLE GO TO {X OUT STR$ IN NOT DRAW ! READ y NEW SAVE VAL$ +[O] INVERSE ca7SQR INVERSE CHR$ ▟ REM [L] CLS > DEF FN POINT DRAW o[H]INOT LIST RETURN ]89 CONTINUE STEP = POKE 8w[B]o DRAW NEW LOAD NOT STOP _{4IN 8; TO | IF BIN 9[K]PI[P]X2SQR CAT ; SAVE q[P]▜ THEN DRAW < BORDER !cNOT s[P]O!IH)[M]k FORMAT PAUSE $[T]]JUSR SAVE E▝ MOVE OPEN #tTAN IN Q"ZSTR$ SGN *%[Q][D]( LIST %O[I][mCHR$ ▙ STOP [O] THEN 9 NEXT CAT [S]S%N STOP ▗; OR Q?) DEF FN ?( TO ~[L]2 DRAW RND[I]INT D LPRINT [ PRINT COS ^ATN TAB ?▛ INK ?A<>ABS w[C]*~ NEXT [D]VAL$ ABS [M] VERIFY *'ABS G▛ VERIFY *t OPEN #[S]<=I MOVE TO LEN ]oTAN LIST FLASH X CIRCLE [G]5*3[J]0 g RESTORE PI LINE PLOT >=[B] LOAD ▗l&= MERGE [A]h[E][Q]O>=[O] BRIGHT ▚[P][D]x[M]PI DATA VERIFY '&[P][I]n GO SUB =@q GO TO 'h READ AND >MwO<>▖ LINE r[P]K BRIGHT y OVER w+ BRIGHT hBIN INT OVER FLASH ATTR G LET L VERIFY VAL$ SIN LEN SIN - PLOT COPY ▘ DATA BEEP ABS CONTINUE d OVER [N][ IF ~ ERASE RESTORE 6@ COPY (3#fPjn[Q] OVER q INK IN cNOT PAPER DRAW TO IF ABS CIRCLE CLOSE ##o} FOR LIST >=us=N BEEP NEW yJ READ ▞I GO TO l->.EXP >={PrIN INT ,S▜^a▗M BRIGHT q FLASH AND CLS PEEK c[I][Q] LPRINT DIM BRIGHT p(p LPRINT S OUT [VAL$ STR$ INKEY$▜LN PI PLOT SGN CODE +TAB LPI[J]STR$ SAVE OxO?[N]a7SGN ▜[O][P] NEW [R] REM ~ LPRINT PRINT ▖/ READ ▖tN2n RUN {K CLOSE #Hf PLOT CLOSE # INPUT gACS AT ?▘ AND R BRIGHT ▞ PAUSE qx}i| BRIGHT DATA VAL ( OPEN #33 ERASE yINKEY$IR NEXT LOAD r OPEN #COS ^IE READ SQR r READ ABS [T]USR ▗EXP TAB ATTR yFN f/ RESTORE ' RUN qZFtLN J-[A] OR >=?q[R] CONTINUE oPISTR$ AND CODE nATN USR VERIFY ATTR eA CAT P[E]wSc<=LN LN [K]Y>=9INKEY$ LLIST SQR GO SUB BRIGHT CAT GO TO x BORDER 4 ERASE s FLASH SGN RETURN {y BEEP ]EXP MOVE EXP PRINT BORDER LPRINT SAVE [E]~^ OR AND v:;SGN ▚/V FLASH :=gGC STOP MOVE LET [J] FOR ABS k[H] INK NEW / BRIGHT CLEAR DEF FN Ig5 STEP >=29j*M OR OUT [H]INKEY$ OPEN #{ PLOT AND ▞[N][H]v DATA [L]|▜]TAN RETURN MOVE ;5D READ FOR CAT ATN GO SUB ATTR MI▜ READ 2, PAUSE [U] REM I[R]▛VAL OR & CONTINUE INT NEW NOT LINE b[J] CIRCLE m4[M]w LET CAT PRINT PEEK 2bOUSR MOVE GO TO 1YPEEK ▜ASN [P]SGN DIM N▖c<>[L]s[I]INKEY$yoTAB BORDER COPY ▙;I OR AUSR MOVE SAVE zTAB ▜b THEN [M]V[D]9RNDOCOS [P]EG[U] DIM t[N]w OR CIRCLE GO TO 5Gk08^>_GHVAL$ /▖ LOAD SAVE LINE >= IF LEN ▙*STR$ ~wq READ BEEP IF INVERSE PEEK NOT [K]r? MOVE l2CHR$ NNOT TAN [T]y▙RPI*PEEK ▚8SCREEN$ o▝ DIM r RESTORE NEXT xSQR yq DIM SQR USR [Q]R0 BEEP COS ?VAL$ INKEY$ PLOT s CLOSE # RUN BORDER BRIGHT |2,thPISCREEN$ ATTR [R] READ MOVE cg LINE P RUN (LEN ATN MOVE SCREEN$ GO TO bb READ STEP ▛>=uPEEK INPUT INKEY$ IF OVER K[T] LET IN [M] OUT A_ RETURN ty>lb9wSGN CONTINUE 3|^BIN k[D]o}POINT RUN |wATTR <Ps FORMAT COPY THEN ') RANDOMIZE J0 LPRINT 9I[R]Nz[R]SGN OR LIST IN TAN @g# DEF FN jd<> OVER o6,<> INK LN DATA [M]SQR .9ABS [C] RESTORE IN %[K];[J][G] PRINT ▖AT LPRINT OVER RANDOMIZE 1 LOAD LIST PIq FOR ATTR SGN 6▘Gvr[J]gs PLOT CLS BEEP {J77▙q INVERSE 6 NEW SQR rvCai PRINT SAVE RETURN BEEP r NEXT 9=>▚ LOAD w-<= LET VAL$ IF RUN /exINT >=M OR [O]LEN z GO TO & LET [H]. LPRINT b MERGE vu GO SUB INVERSE EXP VAL$ CODE NEW [K][B]v5 CIRCLE IN PAPER FN ]fSGN rL[P]CODE G%[P]<=q CIRCLE POINT gSCREEN$ scVAL$ sy PRINT INVERSE COS [T]T[M]3g[O]LEN M9g[O]C8wSGN 9hg AND >=`O OVER ▝▛ MERGE qZ THEN ▟ THEN )Q▚;▙w,'▙ STOP RNDB[G] INVERSE MOVE LET ©{ INVERSE GCOS j RESTORE g+<>g+<>rSQR ▞ OUT OR THEN SAVE ATTR < MERGE , REM CLEAR /l>=o>[G]qA TO POINT [N] BRIGHT NOT SGN qSTR$ w PLOT BORDER " LOAD EAT [S]= LIST Yq READ DEXP [P]G[T]3 READ RESTORE x| INVERSE COS #zUSR pNSCREEN$ INT [J]<▝* LINE ^SIN USR ABS w SAVE L$ LINE QNOT u INVERSE .[E]zeBh LPRINT ;P AND g]▖[L]b[U]0[J] OVER COS ATTR DEF FN VERIFY ▜ COPY TAN ▟]INT DATA vN OVER T BORDER CLEAR PAUSE REM LN yASN ) ERASE d▘^ OUT ▞VAL$ 4t[L] LIST GO TO INPUT .0 BEEP [T]_ BORDER t[B]USR o#F▟RND ERASE @" AND [D] VERIFY RESTORE PAUSE INT VAL$ NEXT ! LIST { FLASH OUT ; RETURN SQR ©I5>=squVAL FN H>=~!W RESTORE TO [R]VAL PAUSE 8AT ▚ DEF FN CLS G'ik▛ THEN LOAD 7[A] DRAW ATTR AT e_u POKE }w[B] OR fLN CODE #VAL$ >=[SQR ' TO MOVE EXP K VERIFY [E]~-Q▗ SAVE INVERSE %HSTR$ CLEAR BORDER BORDER PLOT ©t[P].5[D]PEEK USR OR [T][T] ERASE : NEW ©I4( OPEN #~ PLOT ▜NOT [N] COPY y9zAT +;5ATN DATA u BEEP INVERSE . VERIFY "5Z STEP T/v( STOP [T] LIST SAVE GO TO h[N]~ PAPER ▖:S RUN [Q] LOAD }COS PAUSE : COPY wCODE PEEK STOP POINT ACS [H]:MUSR F▝ INPUT zg INPUT DIM Gq[U][E] DATA [M]▚[C]USR RANDOMIZE VERIFY CONTINUE CLEAR > LET >=PEEK *IN LINE JNOT LEN J7[▘[Q][D] BEEP yIN SQR OR xLEN nCOS [= NEXT PAPER ▙+ OR [P][D]i DATA bSGN =[K] NEW [B]Q COPY ▝[S] ERASE QG STOP SAVE EXP LN }![P]TAB WpwSQR SQR ABS %© DRAW PLOT ▜7SCREEN$ CLS INT WsZSCREEN$ ▞STR$ Y ERASE [S]: OVER LPRINT DRAW ▞ RANDOMIZE VAL$ [G][S]RND RUN TAN rx GO TO OUT /}PqG IF ATN [U]VAL$ FLASH FORMAT ] STOP BIN <SQR SCREEN$ %3[C]tyPEEK 2 IF [R]AT m[R]t=AT ^[H]5ITAN LLIST ASN QuYAT $^v[D]SGN s5 BEEP y>= RETURN gRND[C]; REM OR ▚[C]"[T]Vu DIM M▝9Q▘jh[U]?[P] RETURN /[O] BORDER ASN PAPER INPUT 3 ERASE Nr LOAD IX BORDER SGN SQR ERASE ^EXP READ CLEAR <K▙q INK INT ▜xM OR PEEK GO TO ]ACS ATTR [O]VAL PEEK DEF FN m FLASH STOP [M] ERASE B^<=[O] CLS RETURN / BORDER INPUT <_K LINE ERASE LET zJ[H]4[A]4zI DEF FN M>=i!EXP CAT e COPY NEW POKE [D][U] FLASH LLIST ,6c▚[D]'I DEF FN DEF FN LOAD H THEN [N] DATA [N]#NgLN INPUT PLOT POKE <▚▚<= RANDOMIZE SAVE [G] VERIFY FLASH <POINT LINE ;^IN ' OR INT GO TO =q STEP ABS [L] FORMAT EXP [U]<= LLIST /{AkI) GO SUB $TP` LIST zHRND[U][K] COPY 1%< SAVE FOR 6 SAVE _I[M]>=am DRAW /{[U]e[I]= CAT s CLOSE # PRINT >][O] DEF FN OVER OUT INK LN CAT { GO SUB [L]M NEW ▚M OUT [B]COS [T] LPRINT CLS j;v; PAPER DATA CAT zU7 OVER oU[L]SQR ▜▘[J] DEF FN i;0 INPUT 2 PLOT CLEAR NEW SCREEN$ BORDER ]] GO TO LLIST [N]y DEF FN + OR IN GO TO ! POKE VAL BRIGHT '8▖;PEEK [C]N▟ STEP PAUSE BORDER CLOSE #ACS >=NOT RETURN INT LPRINT ]IN [U]▙ RESTORE {COS [J]FN ▙INKEY$ INK ©Ism8[P]80G9INT vt[I]dVAL POINT [D]▛[A]| BORDER =[U]▗ INPUT [B]IEXP 6gSQR ASN Q INK [O] CIRCLE O THEN [P][K]RNDVAL >(@▘p IF NOT PID[M]STR$ i* PAUSE [S]}<SCREEN$ [S]U REM 7 TO a PRINT STEP J TO PAPER <> OUT S OVER <> ERASE S MOVE (b^IN oy▝SGN AND OVER ZCHR$ REM [I]FN CRCOS *POINT v THEN USR INK )[K]/> PRINT CLS GO SUB ^▖ RANDOMIZE [L],'[L][T] LPRINT GO TO WATTR SGN © PAPER [B]LN SAVE K) RANDOMIZE VERIFY IF LLIST 9F COPY ]NOT STOP 4IN r[T]LEN © BEEP ASN LEN DIM vNSCREEN$ [H][A]( RUN [H]ACS AND j PAPER h!IN [U] ERASE CLS OVER ~?gATTR LIST <>[R]▚ CIRCLE SAVE ▝ DIM [K] LET p[J][L]45 PAUSE [S] THEN FN C/ RETURN PEEK !c[S] CAT ply:[G][B]POINT uTAB e}.USR SQR <= IF NEW 6=(FN 8NF PAUSE LET PAPER [I]<ASN ,Yu GO SUB s CONTINUE [B][S]FN STR$ ▘ DIM F CONTINUE lNVAL$ Fr DATA [N]POINT ,0 MOVE BORDER q#WSTR$ IN OR b?| LIST NEW 4PEEK "_MINKEY$ LPRINT LINE wcATN 84X LPRINT INVERSE POINT k AND L INVERSE [S]kK[G] REM Z▟CODE K RANDOMIZE POKE INK IF (POINT k LIST ▘ LINE ,<>>=<= INPUT <>[U]BIN j0c/RNDL CONTINUE [U] LET BEEP <=[O][D][I] INPUT ABS POKE [O]PIINT ▜[D] INPUT COS |[I]= VERIFY THEN ='q INVERSE jLN I:r▝STR$ DIM w< LOAD [M];| AND [H] LET NEXT CAT ▞[T]k▚0 DRAW ACS 3[ RUN GO TO [U]SIN ▚' INVERSE fABS VERIFY TAB COS " VERIFY ▛<SCREEN$ &▝j7 GO SUB N LINE [H][A]. CLS [J] TO ▛ RANDOMIZE RANDOMIZE [L]MCHR$ 1[L] LLIST ▖ BEEP [M]J!wNOT STR$ j8 PAPER B GO SUB Ou[E]SIN <= LIST TAB REM SAVE INKEY$SCREEN$ dU© POKE BRIGHT #_ RETURN PEEK ©$^INKEY$PEEK %H<=▜TAB k RUN TO O LET ▛ CLOSE # TO ACODE O;I LLIST BORDER LN =-PI[P][G] STOP $c RANDOMIZE 6 POKE %'POINT [F]BIN / INPUT [O] FOR PIIN [B] AND gqRNDA DEF FN INPUT q©BIN Y[A]<= BRIGHT gK)." RETURN RANDOMIZE mVAL$ TAN INK COPY RANDOMIZE Dx[H] GO TO IF [J]Y[J] PAPER [P][L]~ IF ▖ DEF FN INKEY$[I]8▞PEEK ▚▗▛POINT >= GO SUB w NEXT jILN 9 TO OR MOVE RUN TAN [O]N+;INT USR TJ GO TO ▛#, AND 2 FOR OPI)[H]TX>_ MOVE [U],nwPI▘vVAL p6=[T] CIRCLE CLOSE #1 FLASH ` LPRINT LET G▖▜ FLASH INKEY$> PAUSE PIZ1 INK SAVE *<=67=TAN PEEK PAUSE IS LINE [D]/ BEEP <>INKEY$<=USR [D]© CLS NEW ~ INK NEW RETURN NEW ? PRINT [H]mPIe7 GO SUB [O] CONTINUE LINE [N][O]▙<[H]q FOR CONTINUE NEW LIST ` BEEP 9 NEW [R] PAPER PAPER aCHR$ PAUSE VERIFY OPEN #x OUT = THEN LEN [H]NOT D_e▙LpJPOINT b7dW GO TO T9VEXP L NEW UVAL$ S^BIN nUSR LINE BEEP ~2POINT DATA DIM %w^ VERIFY FLASH y[M]▝ OR jCOS PAUSE eq<ABS ? THEN $POINT STOP <>IN PEEK INVERSE BORDER [U] POKE :[N] OVER {▚D PAUSE ASN DEF FN BIN ABS LINE LIST p< NEXT PAPER PEEK _INKEY$ LPRINT ERASE e[F] LLIST DIM IN R+ CONTINUE 3i) LOAD LN zUSR SGN SIN INKEY$ABS SIN INKEY$ CONTINUE [B][E]INT AND NOT SAVE INKEY$]dLEN g TO RBIN ^` CIRCLE RESTORE SQR L BRIGHT &SD>o[ PAPER W/ OUT ` POKE INT EXP n INK [M]ATN -M READ r BRIGHT 1 BRIGHT ` GO SUB xp RUN [G]SGN -nBIN RANDOMIZE OPEN #FN m MERGE ASN BORDER OPEN #~f[E] DATA ▚STR$ y LINE LLIST GO TO BEEP : BEEP - PAPER *NOT ▗< TO eYgVAL$ INVERSE B NEXT SAVE ▘." FOR 9[C]>= OUT READ 0 OPEN #BIN INT IF NEXT j`1[C])SIN LEN 0 VERIFY y<>PI[U] OPEN # INPUT CODE PAUSE [A] DRAW VAL$ W▜4VAL uTAB DATA qLN INVERSE =.4eAIN AND A-ASN RETURN STOP REM GO TO s OPEN #8 LINE JNG[I]&x>=CODE BORDER ▚▞[M] POKE PAUSE POKE cv DRAW STEP ▙▛[K][S] NEXT i4o LOAD READ [Q];SGN f CONTINUE . LPRINT ]COS <=/▙;EXP gFABS ▛ DRAW s2_ CIRCLE VAL$ L NEXT PAUSE GINT [O][N] LPRINT k+ FOR ▛[J] BORDER THEN Y_c DATA Y_[F] ERASE CLEAR [J] GO TO [O]GAACS AND _STR$ OR e/ LPRINT BORDER r:>s#+ DRAW e MOVE h2:[S]IN (8 TO U7INT ]M CLEAR /# LINE ▚*% BEEP 1 FORMAT X[J]ce COPY 1 REM g SAVE PLOT THEN O[D]>= ERASE NEW [S]KSTR$ STOP <> RESTORE 3LN N'SCREEN$ TTAN n[D], LET m OUT [H]S~~ GO TO FN 9EXP z[S] AND bTAN PRINT COPY AJC*dABS AND w'BIN g LINE gt RUN LIST Zou/)u GO SUB INKEY$OK[H]IN AND 3▟+9m CIRCLE THEN FORMAT dM%g.[D]/%IN USR reg,8SNOT [O]*▗AT RESTORE ERASE YK REM qZx>ATTR VERIFY r OVER CLOSE #K<> RESTORE / DIM LEN VERIFY eg.[B]2 IF [M]▟ MOVE CSQR + DRAW PLOT [O] NEW RESTORE OUT RESTORE / CLEAR IN ~ DEF FN ]$<>x TO INPUT O_<>[F][M]ATN ATN R LIST BRIGHT '(EPI TO X LIST EXP LINE [A] VERIFY X ERASE ▟yK&==O~ LOAD 0 OR VRND<=p DIM SGN /IN DRAW BIN =[F][G].INT f BEEP DRAW NOT ERASE COPY [B]0& COPY VAL$ [N]b-[T] OUT ▙?PU<p TO MACS f▜SNOT LIST o LIST DRAW ># INK REM ABS %MrTAN E[T] CAT CLS RESTORE FOR STOP 4IN u7o?EM OPEN # NEW DIM READ Sx[J]ACS 4?G! GO SUB / RANDOMIZE BORDER fqPOINT READ shzVAL$ INK BIN 1 CAT uW? MERGE CODE NwM OPEN #ATN F▜j2 CLEAR x MOVE l8I4E DIM LEN SCREEN$ MOVE w IF iK▟ BEEP CAT AT FORMAT NEW ABS THEN ▝RuT MOVE $a4 CLOSE #SGN LIST _>=<> DRAW [T]H9 INVERSE OR DRAW [S] LINE ]a.SIN [L]ZBIN n/ POKE POKE ATN 3 LOAD )SGN $dqRNDM][S]1# COPY ) CONTINUE nINKEY$G INK LEN [T] REM [K]SCREEN$ GO TO INT PAUSE R<>lASN CLS IN GO TO 8[T]BIN ERASE 5 BEEP 8<= FLASH USR >= TO COPY A THEN INPUT ~T1[G] CAT ATAB NOT C[N]RND[T] ERASE BRIGHT RANDOMIZE REM PEEK BIN ;VAL$ 88|5 REM DRAW LN >AT L[M]CODE G ERASE EXP CONTINUE ATN ~ CIRCLE _ BEEP LOAD [L] FLASH h.VAL IN CONTINUE ~ CLEAR [F]w DIM ▘ DATA ATTR DRAW b FLASH ]/ PLOT AT DEF FN DIM FOR U/0p[K] NEW ?[L] CLEAR d CONTINUE ,G/ COPY FOR & LET CLEAR O[O]e[M] NEXT LIST 8<= BEEP [O]9 LLIST © RETURN ▖ FOR h GO TO COS ATN RUN PRINT ▚ TO /&SFN @f3(2 GO SUB u<V`Rx INPUT p[L]<= RUN 9▙ LPRINT ▛ OUT {"$m MERGE %VAL$ K%▟ AND PAPER TAB LSCREEN$ MOVE jASN INK #> PRINT SCREEN$ INPUT T[T]e,[F]SCREEN$ [E]SIN ASN ASIN [I]@▜ GO SUB qLN FORMAT TAB JYZ DATA TAB [P]ACS PI[E]▗i▜ABS < REM DIM 6 RANDOMIZE -PEEK 7ATN [vFN Ci OVER ▚ INVERSE 4[A]_X/STR$ d[vEXP $h[P]CHR$ [O]=LSCREEN$ CLOSE #LN < LLIST CHR$ VQx CLOSE #'X TO bVAL ▛yl▘s NEXT NEXT dTAN EXP VAL _N?kACS GO SUB [C]ACS GO SUB [C] OUT LOAD STEP PRINT c▗K GO SUB LPRINT aB OUT [L]<=CHR$ SCREEN$ CHR$ VERIFY . LINE COPY ASN AND ▖VHTAB <= THEN STR$ DATA :IN O OPEN # BORDER LIST DRAW ./▛ CAT EXP FORMAT p}7[J][O]AT SIN EXP BORDER Q[S]LEN jFFN bATTR LOAD m GO SUB DATA REM xEXP DRAW ▚ PLOT = OR AND ▜[Q]s▙ CONTINUE ;8 NEXT nkpLN /. CLEAR 9 RANDOMIZE [J]AT AT © LET P"©@#7?TAB mEXP 5LdB8 PAPER Q MOVE m STEP u[N]uu CAT s7:A OPEN #@SIN k*LN k▗CEXP >0o FOR [[T] VERIFY FOR @T' LPRINT USR BIN CAT b PLOT c▗LN INKEY$ TO [T]ATN FLASH >=<> PAUSE ▛<xIN TAN VAL$ OR SQR ▘ IF CLEAR SGN PEEK )Y DIM w^▛[O] CLS $ LPRINT t CONTINUE LET INK y DATA P' LOAD TwVAL$ 1wwnch LIST q[C]# INPUT CAT e"H PRINT ATN ![S]STAN ATTR pSQR yR[Q]FPOINT !FN LLIST q DRAW [M]% CAT ^T*46= CAT s PAPER LOAD BEEP Oc[f PAUSE FN [C]`w9[C]6 PRINT SIN RESTORE CHR$ CAT NEW [ OPEN #n▘USR Y MOVE INK FORMAT *l IF =v[H]KSTR$ LEN GGSIN EXP REM AND NOT !'}TAB <=CHR$ [G]▚>▝Q LPRINT CAT POINT vUIN B>=Fg[R] PAPER READ u SAVE 9ABS ` MOVE <<PEEK OVER VERIFY INT ? MOVE PSGN PRINT MERGE )<USR g IF SGN h7G<=SQR ? OR Y COPY aEn<=WxSQR 'QI READ ` CONTINUE DRAW COPY INT %ABS d[R][S]▟ooqw'!c DIM [ BRIGHT Paq SAVE CLEAR nACS 2 OVER vx}[O] BEEP CIRCLE CAT @, RUN U THEN AND Vtz INK CLOSE #[B]INKEY$ STEP ▝<= NEXT ATTR ▜▚▙,[N]6ACS COS <=▚2▘[P][G][Q][S]d0|ACS HRND LOAD [F]▜ RETURN FLASH ▛▙;=[R] PRINT v[K]=▙SQR [Q]ASN ATN [D]% THEN ABS V/oo[P]>=Y FLASH ▟M▙▘LEN LEN BORDER y CLS |▗SQR <QPI POKE <> POKE t| NEW ![P]<= LLIST kk]u INVERSE PEEK BCOS q BORDER [T]!]qATN xCOS [S]▜> TO B2~ VERIFY [P][L]SQR BORDER " CLOSE #mPEEK CLS BEEP kEXP INPUT {IN wPI PAUSE DRAW IN <= LET RETURN eF TO ▟▜[J]SGN CONTINUE SAVE I[I]SQR ▛▞ CLS _#[M] VERIFY [O]ASN Q OVER NOT BLN LN ▙SCREEN$ 3} LOAD #<=POINT STR$ /NOT GO SUB AND -uv PAUSE GO SUB TO /x OPEN #Ues[P]RND VAL$ V OVER E}VAL LINE [S]LN EXP CHR$ BORDER PRINT ACS PLOT RUN .SQR 6[G]t▛CODE VAL STR$ c©N STOP jSIN <=COS z<uF LPRINT CAT NOT LOAD )- BRIGHT SQR LN ▟ECODE /fA TO ▜=[U] INK OUT p[M] AND B OVER ©VTAN [ GO TO w ERASE 8 BRIGHT RND`CHR$ [Q]STR$ FLASH <>SQR OR LIST V/._Ek FORMAT kTAB n NEXT | NEXT [H]|▜wq▞[U].W[A] OVER {< LOAD }q5 GO TO PEEK LN LET STEP READ PAPER USR [T] CAT READ IF kY2s CONTINUE YakygLEN AND R[D]INKEY$U OVER STR$ * SAVE ACS 8yJ'& OUT OPEN # DATA $ INVERSE PAUSE :m NEW PAUSE INPUT BRIGHT ( RESTORE NEXT OVER n THEN 2[R]Xkw|N_ BRIGHT n,Z) LINE [Q]RND VERIFY OPEN # LLIST kS BRIGHT W BORDER DATA 1VAL XPEEK [G] IF CLS FN [D][T] CIRCLE LLIST LET SAVE DRAW CLEAR 5aP/*l▛▙(;8o9BL[O]VAL$ BORDER Vx LET VAL [L]S▘ MOVE Z FLASH FLASH DATA >=|PEEK gSIN SQR ▗L▜ATN <=ACS 3 CONTINUE B OUT [A], PAPER NEW (( NEXT IF FLASH VAL eGHSCREEN$ ▜d/ OPEN # MOVE [T]PP" STEP GO TO [A] ERASE VERIFY BEEP b PAUSE DRAW CIRCLE 3"<= LOAD RANDOMIZE CLEAR h▖SCREEN$ <©o FOR IF GO SUB <up=[E]Q MOVE NEXT W[E][A] CLS [S] LET RETURN ABS PLOT SQR ▙ THEN pTAB [O]A0z[G]dZ STEP CONTINUE MOVE Bn'CHR$ i REM ©[D] DRAW NEW RUN <VAL$ [L]MUSR q[M]c[B] IF TAB ▙ THEN READ SQR ]nSQR s CAT RANDOMIZE pz FLASH [O] READ 8 STEP ;eCODE CODE S FLASH N[N] STOP Eg<▜CODE NEW LIST Z DEF FN ,FN (, INPUT STR$ T STEP [L]VAL$ > LLIST Xto[O]n CAT VERIFY PAUSE XKBIN [P]"/ CLEAR v[O]ATN STOP < PRINT [B] INVERSE RANDOMIZE [G] CLS | CAT STR$ <>n||& RUN RUN q8`[Q][A] AND ▘VAL [N]STR$ ^w[T]g;▙ CAT p9 GO TO >©ySGN CONTINUE LN W$ VERIFY LIST <' BRIGHT <=SCREEN$ ▟|SGN [J] GO TO RUN CODE [A][T] GO TO LN [O]SQR e CIRCLE a5[O] CONTINUE NOT 'F BORDER EXP MOVE x VERIFY [F][T]6mRNDPI INVERSE FOR a SAVE CAT v<=G[T]rAg DATA D LPRINT INPUT [L] DIM QATN [K]=[K]0[H][A]ATN [D] CAT V CLS [O]v5M[G]SCREEN$ jH©NOT DEF FN u RETURN <=}[R]<>X RETURN c RUN LLIST b GO SUB LLIST 2>=dATN SAVE IF CLOSE # DATA ATTR TAB LIST [I]o OR RESTORE INT Y|oATN s@ NEW ▜yTAN LOAD : COPY //PIs LPRINT d[L]zK NEW V@AT RESTORE !-ATTR ATTR POINT ABS @[H]r INPUT NEXT t[I]<}lI CLOSE #▟EnATN [U][B]g MOVE ATN ▝ASN GO SUB CLS ATN ▝[R] BEEP aO▚ LLIST Ax STEP [L] MOVE [S] LIST ABS SCREEN$ LET
