1 CLOSE #USR 23000: REM * FELIX * PRESENT COPY COPY NEXT
8665` REM ▖ MERGE NOT NOT 3 NEXT GO SUB s@1{ REM iCODE =' GO SUB O GO SUB _ LLIST TAB o RESTORE 3zCOS oK LINE SGN ▜ NEXT N STOP [H]▛SCREEN$ ERASE DKn%9[G] CAT GO TO SAVE >LN OPEN #Gr▘ LOAD SQR ERASE TAB INPUT FLASH ▝]STR$ STR$ CLS CLEAR A%<=G/F1W& READ _LN ▛ FORMAT 6 PRINT ~4 DRAW >=SQR st GO SUB VAL$ REM ▗o RANDOMIZE FOR t8AEXP ^Lp▟ GO SUB Vc BORDER TAN NEW THEN IN VERIFY POKE ▝ ERASE BEEP RUN ; OR SAVE = DRAW yE LPRINT K5 FOR ▚@ STEP /8[D]O& AND AG[N]▖INT 9P#EXP [T]RND[I][P]-X[F] INVERSE OVER [S]YATTR PLOT ▙D FOR nSGN ▜74 LIST COS cH FOR CAT DRAW LPRINT AND ATTR -( INK SQR a[J]G CLOSE #m OVER [C][R] RUN ▜P FLASH RND DIM VAL$ [C] MOVE [F] CLS ▚[G]k;COS [P][N] OUT <=>'PIRND LIST INPUT STOP [O] CAT B8D PLOT LINE MOVE k[O]VAL IF ▜CODE ▞`D[I]▘>=T RANDOMIZE ▗ IF / STOP ▛X▚ GO SUB 1 IF RANDOMIZE }>!:Q BORDER STEP LINE READ BORDER $ GO TO )INKEY$!SIN 0 VERIFY ;[U][H]l CIRCLE ©J PLOT v1[P]EwTAB [6 ERASE ©dU} LIST K DIM :!©nATN Q`5[Q]>= OPEN #qBM[H] ▞SGN o*LN MOVE CODE wu/ABS aCHR$ [M]▟<=E LPRINT K&; PRINT [D]HmY[[R]▙M NEW LET CODE STR$ ?V*} DEF FN LOAD OPEN # PAPER [U]kd OPEN # DATA +YCHR$ MOVE CAT AND [A]g` RUN / LPRINT G RESTORE FOR Z E+ THEN [E] PAPER GO SUB USR ▚INT 7 BEEP BIN <=9 LLIST YINT [O]=VAL POINT STR$ [U]PII[F]NpY9o BORDER OUT PLOT PAPER [C]©[O] AND &! STEP [E]h[D] GO SUB 3.FN [L]u[U] SAVE ([w[O] PLOT THEN eABS p OVER OT[A]tAZASN [M] MOVE ^[J] INK O*[G]FPOINT DATA ▖ RANDOMIZE BRIGHT FLASH BRIGHT ATTR [A] COPY STEP 4w[B]Z LINE DIM CONTINUE ▜ IF 1 RETURN y9 CLS ; PAPER 5c_RNDY[N]SCREEN$ LET %SGN ▚[R][U]uKbBIN kPOINT Pt}COS IN s SAVE ▝x="7inPUzo RANDOMIZE USR 15619: REM : LOAD "FPS"CODE * INPUT "NAME FILE:";F$: RANDOMIZE USR 15619: REM : LOAD F$CODE 35E3 RANDOMIZE USR 3E4FLC1SCREEN$ 5619: REM : SAVE "VINNI'D" LINE 1 LINE SIN aSIN a STEP {▝ NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL !z▝# FLASH ▝<> GO SUB LN ![T]NOT SQR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT SQR [F]![ FLASH GO SUB VAL !XX COPY u▜USR @[P]SGN RESTORE XX>s#r#q#p#=PI PAUSE > COPY w#w#[H] LLIST RESTORE LLIST ^#V#z RETURN COPY (? RESTORE z INPUT gk>USR v▟ PRINT ~| INPUT W] LET = NEXT `%▝p%▝p""▖ATN ! FLASH [ [A]▝<> RESTORE [I]XXXXXXXXXXSTR$ COPY IN ▚USR <>M DEF FN ESzLCSTR$ STR$ BIN oRCSTR$ STR$ BIN gST DRAW <=CAL SAVE LOAD SAVE LOAD IN ORVAL POKE PLOT <=UTu LPRINT OPEN #gA<>[T]BIN ATTR TI ERASE COS D ERASE SQR ADD` POKE AND bC`▖ POKE DEF FN bJN▖D[Q] POKE NEW XGIN FN POKE INPUT BITz@R THEN COPY NE<=DO FORMAT HAL CLOSE #v>=& TO bSTR$ ` AND hBIN " OR dCHR$ NOT 0 PAPER ,NOT fIN N PAPER *NOT .S FORMAT j▝[U] OR $ TO (<>l CIRCLE b2 INK b STEP 8 FORMAT 6 OR 4 CAT 2 ERASE n`c(&$"f 8642f.,*jbd0hIN 8UABS UABS 8]ABS 4aABS DeABS DiABS ASIN SCREEN$ Bi[M]C-SCREEN$ Ds[S]E GO TO [S]FRNDGFN HySCREEN$ II[S]L[U]K POKE [U]M<>FN N[H]FN OzRNDPACS RNDIN TAPIUSCREEN$ R[H][S]S OVER [S]VnINT W[U]XLN INT Z[K]SCREEN$ ERASE [T] RND[T] RANDOMIZE [T]C[U] FLASH FN Fy[U]I[U]KCHR$ [T]LINT POINT Q INVERSE POINT S#[U]R CONTINUE [S]X[U]IN Z[U]AssembleByeChange bufferDeleteEditFindGet textHelpI[G]nsertKonfigure listLMovereNumbH▞Object sa▘Pu@CIN RunSeparatorTape for includecurrent Valuesuse RAM UntilWri▘te0X catalogueZap [P]Pardon?0BIN ACS ▜(Y/N)"BIN ▝ " LINE ▜1:SCAT OUT B" CLEAR COPY ,#▚z<=z<=z<=#[A]S TO <>SQR +? STEP B TO [T]▖ BORDER STR$ [C]<= GO TO STR$ SQR S6!@[M]? STEP SQR [M] TO c TO MOVE STR$ MOVE ▘X COPY INVERSE {!& file is empty! LOAD ▗Star[U]N[L]..No Macro SpaceBad ORG!!▘imDr:st ▖▝m GO SUB DATA COPY SAVE x CLOSE #▛ ? COPY @8~? COPY LPRINT *D7 RETURN DA[A] CAT SAVE E LINE SAVE LIST DRAW COPY STR$ _0 DRAW ▝ LIST 4b COPY p]▛ COPY <<0 LIST COPY SGN * 5▝©P [A]© GO TO DRAW ' COPY LOAD ? SAVE dD[H]▘©0`[B] COPY FORMAT g BRIGHT xx[N][J]NOT OVER LINE ▜ COPY COPY STR$ LPRINT DRAW ©NOT COPY ▜▜KLEN ?<=@w DIM COPY RETURN P FORMAT STEP ▛00© COPY | CIRCLE LIST ; COPY SAVE 3▝ FOR IN a[A] LOAD RETURN CLEAR LIST < RETURN [Q]ATTR LPRINT ▝ DRAW Td▖@ COPY LPRINT READ [P]▚[P] LPRINT SAVE C RUN READ 15a[A]> GO TO ^=STR$ COPY DRAW OUT COPY ▗E[H] DRAW @[L]/ TO MOVE USR SAVE [J] STEP OR LLIST LOAD p OUT "VAL$ ▗ PLOT ? READ NEXT BIN COPY ▞ NEXT ▝BIN k[J] COPY LPRINT INPUT THEN ▘EIN ` FORMAT TO 0? READ DRAW ▘ PRINT A? COPY 1[C]?USR ©▜NOT TO # FORMAT COPY LLIST LPRINT PRINT @USR q#[O] SAVE _?[B]STR$ SAVE COPY NEXT LIST <625▝IN R [A] COPY IN LIST p SAVE DEF FN O AND qCHR$ 7 DRAW RV▝ LPRINT 2?[B]> COPY LOAD OPEN #[P][D][A] NEW OR LLIST CAT OPEN #o CLS RUN pPI"g[C]▚}c LOAD REM LEN "0 LET U CLEAR STR$ |k▞ LIST > TO f FLASH ▝ STOP ▝ THEN CLEAR COPY [R] CLOSE #© SAVE ATN NOT INPUT SQR ▘ REM OUT © COPY @[A] RETURN ?[D] RANDOMIZE a LPRINT LOAD PEEK COPY ▙ CONTINUE !©r[A] NEXT COPY LIST 0~▞ LIST TO ! COPY LPRINT s READ A[O]1FN [A]? COPY STR$ RUN POKE q NEW cCHR$ Ax▜ NEXT W[H]▝?3( RANDOMIZE IF INPUT COS [A] GO SUB DATA xC RANDOMIZE CAT #uq OUT [E] RETURN < PAUSE READ OUT P"IBIPEEK !▖{▖pB[S]'SGN STOP COPY LOAD COPY A CAT CAT ? SAVE /[K]66[P]<= MOVE A▘ COPY Rh[A] COPY <=USR LN LIST DEF FN © COPY DRAW BORDER CLOSE #"©▝q RUN COPY LPRINT COPY SAVE ▙©/PEEK COPY LET LPRINT UHw▝ OUT A|▙▜[P] RANDOMIZE READ PI! READ qIN LPRINT COPY sIN 4[B] INPUT (8>#ABS PRINT 4<`w©LEN CAT COPY CAT 3A▚[D] DRAW COPY READ READ IF f@C▞W<▖ RUN AND [P]p COPY q PAPER ▚ ? LET READ COPY r COPY q2▙{▖`X? LPRINT @[S]C^q▟8© LIST LIST REM SCREEN$ SCREEN$ q3?? COPY 8▝ COPY [I]NOT COPY LET LLIST COPY USR PEEK D@g#)[A]? DEF FN s READ 70 COPY 8 COPY { DRAW >=[E] COPY SAVE x LPRINT ` BORDER RESTORE u CLOSE #0a=[B] CAT COPY [Q]>=[F] COPY NEXT RUN gASN @1j>= NEW ATTR RETURN [B] COPY 3▝ LIST R[J] LLIST ▝* LPRINT ▜ COPY DRAW CLS COPY ▝>=▝a▞[I] NEXT LLIST KG COPY LPRINT 9STR$ 5 VERIFY LPRINT QSCREEN$ [A] COPY COPY ~8 LLIST COPY <= COPY COPY Ur#(NOT COPY COPY ` LIST C DRAW BORDER COPY 3 COPY 3<6? DRAW [I]?o READ [E][J]SGN | COPY ?q OUT #g[A] COPY LLIST LIST y[P]STR$ OVER <=x( BORDER r &[D] RUN LIST NOT G IF 3r LIST BORDER U SAVE { OR [B] GO TO DRAW LINE Z BRIGHT ▝+s VERIFY ▚ LPRINT ▝~R PLOT ▝©Rh▛ FLASH LET SAVE LET CAT L COPY LPRINT :▝[Q]5[H]q=▟USR LIST SAVE COPY DRAW ? CLS COPY FOR 5 LPRINT &[A] SAVE COPY SAVE STR$ ▜▖ SAVE `?7 CLEAR COPY LPRINT t+yG)▙ RETURN 0 DATA x}<=[D]▚SGN © LPRINT DRAW Q T LPRINT [B] COPY NOT SAVE AVAL <▚8[T] COPY q OVER STR$ ▜' RUN BEEP AND u@pATTR PLOT ▜[I] DRAW r LINE ▞▜)Fk FORMAT %<=uBIN PAUSE ▖n&IN d![I] BORDER DATA k[N] CIRCLE DIM VDVe[N]e DRAW © SAVE lIN LET [H]E FLASH ▛" INVERSE ▞ LLIST ▜0 GO SUB SAVE LIST > ▝▙~© LPRINT c[I])"D© DRAW SGN ,> RESTORE p 7 IF PRINT COPY COPY IN RETURN OPEN #▜'IN RETURN H[E]m INK m8L INK 4`*INKEY$CHR$ 8= INVERSE ~ COPY V RUN {%R/TAB $,>[J] GO SUB ▗[D]:""*; COPY n PLOT COPY U[S]+[E] REM ATN RETURN IF mU LLIST k1[R] MOVE ▗USR zUSR "FN ▘` LOAD U&b[D]aHFN K[I]"@8>SCREEN$ FN " LET ▚SCREEN$ [G][L]UP[T]v?cF POKE * SAVE 0 LIST 6:▘ NEW TO #NOT COPY RANDOMIZE g REM [K] AND DATA K LIST >=x GO TO q LINE hv[K][K] RESTORE RETURN 0 BRIGHT COPY LPRINT `1?[J]I[J]STR$ DRAW ▜© LPRINT REM COPY .x©▚0 LPRINT _ CAT MERGE [M]TI/w SAVE f'u8▖; PRINT j IF ATTR COPY GO TO FLASH ▝ RETURN IN Q*TAB z LIST [M] RANDOMIZE $`e:EXP CLEAR RUN RUN [L]IN ` RUN [I]POINT Q* ERASE H1POINT GO TO [A] INPUT t▖▖[G]v STOP 3PEEK OUT SCREEN$ MERGE WUZCODE INVERSE zLN NEW ▖ BRIGHT LPRINT RUN @▞u▖▖▝ COPY CLEAR READ Q▛`[M]@Q$C CAT <> COPY O STOP ▗ MERGE V▖lLN w OR Ud[N]SCREEN$ SCREEN$ KY©|CHR$ n CONTINUE IAE▝ STOP READ ! SAVE RANDOMIZE Y#[K][F]BIN REM 4 INK N/ NEXT [P]<=7USR PLOT 2 LIST 2?▜IN :USR RETURN ▜ LOAD a▟UW OVER | LOAD AND USR LOAD CAT CAT -▛▖ RUN .c RANDOMIZE B2}▛7 REM MERGE PRINT U? GO TO FOR ▙ COPY RETURN [A]▟ CLEAR @& DEF FN a LLIST |[J][S]CHR$ PAUSE SIN [D] CLEAR m DIM 7[VAL ATTR ▟CHR$ AT TAB Rs BORDER kT[P] COPY LET x SAVE {[P]PjSCREEN$ SCREEN$ RNDW PLOT PRINT LINE ~UDxWINT POKE z[S]"" COPY LET t LET ATN SQR LET &`/# LLIST !▛ IF SCREEN$ LIST #USR >{ STOP "[O]UUT[F] REM RETURN LIST ▗ LINE k▘USR [K] LLIST DRAW LET ATN ? RETURN S [H]? TO RUN :TAB LINE p▝[K]ABS <= COPY ▛G DATA POINT S~xUSR ▙STR$ COPY C COPY DRAW RETURN SCREEN$ ATTR INPUT / BEEP BORDER LLIST BORDER LOAD BORDER POKE A#g STOP LET c6 STOP pIN PRINT FOR LIST O BRIGHT RUN TO BORDER [O] DRAW COPY IN INK [A]oATTR COPY POKE NOT d LIST A[L]<= DRAW RETURN uABS [ INVERSE B ERASE ^ INK VAL & LIST [K]TAN [A] ▝[Q] COPY DRAW v-oSGN JSCREEN$ ATTR REM DRAW d▘[B]G▖ FORMAT h"▛@▖▖>][E] FLASH LIST ▟[Q]▖E!H@ DATA b▟ COPY U# LPRINT UP FLASH USR SCREEN$ [D]W[F] RANDOMIZE RUN ©. DIM u5JU[F]Y[F]q COPY 1▗ LLIST BORDER COPY ▜X"[H]~▖[P][N]WWmPAuW▜SGN © COPY POKE X PAPER ▞(z{ LPRINT [P]p©G [M]©U POKE [N]CODE READ READ CLS RUN NEXT RETURN ▝USR P@" INVERSE NEW OPEN ##12`[L] IF RUN DATA ▞[I] RUN L<= INPUT 6 RUN CIRCLE [Q]B NEXT 9_DBD LPRINT [M]:[S]"*STR$ [H]%N COPY MERGE LEN VERIFY TAB ATTR [D]RND SAVE GO SUB HefCODE 4 LPRINT ▞STR$ PRINT RETURN 8 IF GO TO Uu>=d AATTR p CIRCLE 0zSCREEN$ ▗N RUN 9,B▛ASCREEN$ G AND l▞W REM [Q] <A[K]TATTR REM RUN DRAW ©; INK ATTR rUSR k*[K] CIRCLE [K] RANDOMIZE COPY USR DRAW ?[I]g [I] DATA NEXT ▝ LOAD REM SCREEN$ INT [S]FN SCREEN$ SCREEN$ IN BIN BIN COPY DATA ▝H[I]Lys` OUT [J]pp'
65306 PRINT CAT W NEXT [T]? DRAW COPY MOVE ▟ -AT SIN 'LEN [M] CLEAR COPY LLIST @UACS 8 BORDER INPUT PEEK RUN X[A]▙[I]P?DFD LPRINT [Q]5H▖[E]A[I][T]E RETURN IN 1[I] CLEAR RUN u MERGE W[Q]BPEEK LIST $ ▞ REM COPY "ACS VAL EXP ▛SCREEN$ j>=i/ SAVE #!uT▖Q BORDER CLS F9▘▟S[C]|VAL 4USR SCREEN$ ASN VERIFY ▗ LPRINT p'-w COPY [G]U INVERSE COPY LLIST SQR LOAD [B] DIM Ts@V-I[H]i READ COPY LPRINT VAL$ ▝l REM ▚ABS RUN NOT OR COPY CLEAR LPRINT D0#▜ CAT y ▖SQR © PLOT 0{ RANDOMIZE ▖ LPRINT ▛= COPY MERGE CLEAR LOAD CODE NEXT [J] STOP ~ COPY uVAL$ SAVE @Bv[I] STOP nEXP @` RETURN COPY ERASE SCREEN$ ATTR 60 BEEP 8 BORDER W RUN "K4INT @pylf▗ LPRINT [M],CHR$ ATTR [R] BORDER OVER CLEAR VAL ▖IN CLS VAL$ DIM ATTR ▞AZ[L]<'pd 5 LPRINT ▜ BEEP COPY CLOSE #PEEK ~[E]Pu>=h[Q]y PAPER RANDOMIZE 7[J]▘@:SCREEN$ ▘ LPRINT ▚X/ABS 2[C]RSCREEN$ INKEY$5© NEXT DATA 85U^[S]TATTR SIN COPY BORDER { RESTORE [B] RANDOMIZE SCREEN$ USR j&▘ GO TO [Q] NEW ▗ OUT RANDOMIZE <= COPY ZC▜} INVERSE <=CHR$ fN@ STOP LIST D![R]`▝ RESTORE SAVE /Q©t SAVE 1 DRAW BRIGHT [I] LPRINT ▞ CLEAR REM CLS LOAD _ RUN OPEN #<=|m DRAW %8[K]`2= DEF FN INK [L] CLEAR © MERGE }65 DEF FN 0<=[P]s>@ RETURN [UC LET CONTINUE NEW & LPRINT ▘5[I]G▙ VERIFY STOP COPY FOR X OUT © PRINT T RUN "▚?%ABS SIN BIN LPRINT ▝▖><© OUT -B▛k CONTINUE REM ;m▚BIN B LPRINT =UP LPRINT ▚{ OVER IN LPRINT ▛SCREEN$ [Q]S*~ OVER @8:# VERIFY ▗88JA▝(▚ LPRINT x▟SQR `▚8uUURZ LLIST USR qoB[B]ATTR q/ LPRINT OVER NOT r0H▗[C](K DIM . OUT ~▖ LPRINT LEN TAB [Q] MOVE O© FLASH ` FLASH (0~(ABS ^▜POINT INT aBIN USR `[Q]▛UPJ FOR [D]'▝▞O[Q]CHR$ INPUT RESTORE SCREEN$ ATTR POINT :SCREEN$ IN CHR$ U▜ LPRINT m IF INT IN GINT >? BORDER ▖EXP SCREEN$ CODE REM SCREEN$ SQR ▛▝ NEXT ▝ATTR OR ▛ FOR IF SCREEN$ INT SCREEN$ POINT FN [F] PAUSE i AND ATTR IN FLASH CODE SCREEN$ SCREEN$ CODE INT ATTR DEF FN ▘CODE CODE [K]INT SCREEN$ SCREEN$ *SCREEN$ FN < INVERSE T[A]7 ERASE LET : LOAD SCREEN$ VAL$ REM SQR BIN GO SUB COPY ATTR LEN yCHR$ SCREEN$ ▗[Q]*[Q]?▘ 7@ LLIST OVER ▝j COPY ▜CODE n=▟UXZINT LIST 0INT OR (j/ CIRCLE !▖@G▟TAB THEN D[Q]▝ NEW ▛ RANDOMIZE NOT GO TO ~mP<> COPY )ABS [H][J]EXP [P]``8z bpTAB ATTR a MERGE #▘<}ASN {U]NU_SCREEN$ *NOT ▖ MERGE U^▞|X? BORDER / MERGE puUtc@ASN UUW AND ▘W CLEAR & CLOSE #▛ABS ~l▜4^| FLASH _ MERGE = c▘U PAPER [D]INT FN FORMAT }!, OUT RETURN ]]Ut47 COPY U MOVE LPRINT !b&PI▜USR 8&COS 0(pp CLS b▟[R]9Z▞[S]p ERASE _▚ STOP LOAD POINT n" ▝ABS ▜ READ [N][U]USR ▘ PLOT ©▛ PAUSE DIM OUT ATTR w[R]!©+▝m[E]<>INT p8 INPUT ; IF uSCREEN$ [T]SCREEN$ POINT /SQR REM LN ▝ASTR$ FOR jTAB SCREEN$ INT 0>SCREEN$ IN MERGE ▛_ DRAW `jSCREEN$ ABS [A]▙0#INKEY$▞VAL$ j CAT IF SCREEN$ REM SAVE NEXT OUT COPY CODE IF AND ▗ REM ▞▜ha LLIST OVER IF R▘ COPY RETURN [F] MERGE TH AND CHR$ CODE POKE VAL$ INT SCREEN$ CONTINUE ▘ RETURN ATTR POINT :B> CLEAR ▘A/ CIRCLE ▜pqR▜ATN VERIFY GO SUB l READ ▞ArLN LOAD INK TO " LIST CONTINUE MERGE W POKE SQR {$Y▜[S]▖x INVERSE <[A]p PLOT ▜[Q] PRINT } CLS ERASE CIRCLE id INVERSE COPY IF $,INT SIN =UOSTR$ ▝,:B SAVE CLOSE # DEF FN BRIGHT ~©UW FLASH ▖IN COPY 5]y!E> BORDER ▖WU[N]uUwG_U_f&u LIST ▗ VERIFY &NOT RUN 7] PRINT } RANDOMIZE VERIFY [E]FN hT7 MERGE SCREEN$ UsU MOVE LIST g CLEAR W PRINT ]B? DRAW ▝",UT CLS REXP RUN b▖r, LPRINT >= RUN } DATA ▜ INPUT INK LIST " LPRINT ▛ MOVE OSCREEN$ SCREEN$ SAVE INK RETURN SIN OUT 1i▗[M] INVERSE )▗ ▝ PRINT [Q] LIST RUN INT SCREEN$ [P]BIN |$]▘; RANDOMIZE 5 ▛Ubt RESTORE UxTAN REM INPUT POINT ▝(?<=▞ MOVE RETURN ATTR SCREEN$ ATTR ATTR [T]STR$ ~ OUT UU© COPY 'ATTR SCREEN$ INT NEXT [S]▝!?G▘ATTR +LN IF INPUT NEXT ▝VAL$ "▚INT ATTR ATTR G COPY ▗ DIM RANDOMIZE ▚ RETURN CODE RETURN PEEK ▘ATTR PEEK ^▘FN [A]A( REM GO SUB FOR BEEP VAL$ ACS SCREEN$ REM IF USR ATTR ▝ INPUT rINT ▝D[O]▞SCREEN$ / MERGE MERGE LPRINT BEEP STOP ▝h8NOT PI[P] COPY ▘!!!▚am0$ LPRINT CONTINUE MERGE UyINT TAB RvNOT ▝ BORDER 2F INK [A]USR ` }USR BEEP W|NEXP V LIST $[U]m▗4 CLS READ PAPER [B]Uz▙LN INK [P] MERGE INK CLEAR U0 LPRINT CAT MERGE _ PAPER ▘b[Q] CLEAR -▞ STEP U MERGE uSD"AT RETURN ▘UACS [I]u}" LPRINT [D]^~*©USR CLOSE #B}UW PRINT COPY ]© FOR BEEP ?▝ BEEP OR ▘P PAPER [C]▘VAL PRINT BRIGHT CLEAR IN V RESTORE U MERGE 5WUU MERGE _$:b▘ [I]UUj RANDOMIZE IN ! OUT 2 FLASH OLEN CLEAR COPY ▘1&"▚ CLEAR NOT mz$ LPRINT ERASE VAL$ REM SCREEN$ IF OVER INVERSE PAUSE RETURN T` LPRINT ! RESTORE ▛[T]yFDUSR ` POKE SCREEN$ X▜4 VERIFY INT INT 6AT : CLEAR h▗C COPY CLEAR %z[A] CLEAR jAT zSCREEN$ ASN p OPEN # LPRINT REM RND RETURN SCREEN$ ? BORDER ▝ NEW [G]VAL$ [N] LIST OPEN #▝IN #&▖SCREEN$ IF SCREEN$ [T]▗!▝ SAVE 1>ATTR AT LN INT CODE CLEAR rLN [F]PI FOR LN COPY 50 CLEAR SjINT IF CODE © COPY INT RETURN TO SQR $ MERGE ▘FN [C]0>EXP _ SAVE ATTR jATTR REM REM VAL$ SCREEN$ SCREEN$ RETURN COPY !t[I]SCREEN$ ▘▝ READ RNDABS 20[Q]^b[P]IN COPY ▘;VAL$ RND▚USR 5NOT - STEP & LPRINT BEEP POKE ATN E;©x'▗Sz POKE LPRINT ▖ IF ▘ GO TO RUN OR [F]p2USR ▖ RUN [K] MERGE U© VERIFY [Q]USR SCREEN$ COPY NEW COPY NEXT SQR PRINT [E]? BORDER ▝s PLOT ] DEF FN LPRINT C▛ RUN PRINT UmUQHZ▘d% MERGE U MERGE ]]V▝_▝ OUT % LPRINT [F]P RETURN c CLS [A]IN ▙w CLEAR MERGE WABS /+[ COPY PRINT [A] CAT "eD▝P[S][Q] LIST CODE CONTINUE O&3▝©"9v"p▘@ CLOSE #(STR$ . 0 ▝,USR <>(`CBIN M▝PB▝6p! OR ▝0! ▝6PA>= p▘p LINE p[T]P[N] TO TO ([L] AND pPIpINT p P p▚p p@p REM p RANDOMIZE BIN 0qp AND 0,0148 1 TO 0<> MOVE 0<> MOVE 0TAB ,p[K] STEP 0<> ERASE 0▝ =▘!!P PAPER pIN p OR P p OUT p RESTORE ? !#P qAp <> p DRAW "O0<> 008q CLS A▘ LLIST <>▞! OUT LOAD OUT SAVE PEEK # SAVE <>1▛ STEP ▙▜!USR Z!]NOT ▝ STEP V▞!▗"ATN ▛! CLS 6 COPY "EXP ▛! IF "ASN ▛ INVERSE ! LIST CODE 2PI▛GO INVERSE ~ATN (=(q# INVERSE LOAD 6 COPY x2INKEY$▛!TAN ▛6+6"ABS ▛ STEP INPUT ▖ STEP [J]▚; STEP ▙▜ STEP 1▜ GO SUB KINKEY$▛ STEP :▜▛ STEP ▙▜ INVERSE !INKEY$▛ STEP L▖ GO SUB KRND▛ STEP ▚ STEP INK ▗ STEP ▚ GO SUB CRND▛ RETURN C(% RETURN E LINE THEN ▘ RETURN N LINE CODE RETURN R LINE # RETURN A LINE RESTORE RETURN H TO RANDOMIZE STEP ▖ LINE :PI▛ATN (BIN ! INK CLS _ INK INK INK RETURN COPY ( RESTORE &o STEP e▝ LLIST INVERSE ^ NEW RESTORE >- STEP h{ NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL !g{[P]n<> GO SUB LN !2{FN a~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R[E] STEP VAL$ aNOT Hd!e!@ STEP Db!fA0ga0h▝0i[R]0$jSTR$ 0-k LLIST 06▗lH ?m!0nA0oa0p▝0$q[R]0-rSTR$ 06s LLIST 0?▗tP ▜▞u!P MERGE GO SUB [Q] GO SUB [Q]Pppp$p.8▗## MOVE pApIpSp]pgpqpAp▚p[A]p[K]p[U]pVAL$ p▘pNOT p THEN p MERGE p OUT p DIM p NEXT pNOT qqqq&q0qqEqMqWqaqkquqEqq[E]q[O]qFN qSIN q▚q AND q FORMAT q PAPER q DATA q INPUT q SAVE [E]<>!!w!X OR # pppp(p2p< FSTR$ CODE # [U]<>VAL ▝[P]@▘[E]<>d0ppp▝<> CLOSE #▗© RETURN © RETURN Pp▘ FLASH COPY CLEAR COPY CLEAR Pp@ RETURN COPY RETURN Pp` PRINT COPY PRINT PpSCREEN$ COPY SCREEN$ Pp▚UTUTPp PLOT ▝ BRIGHT ▝ COPY FLASH ▝ FLASH ▝ BRIGHT p OPEN #▝ BRIGHT ▘. FLASH ▘,USR FLASH ▘[Q] FLASH ▘6 LIST FLASH ▝?p ERASE ▝p` ERASE ▘` FLASH ▝pUSR ERASE ▝pUSR ERASE ▘ LPRINT CLS ▝q@ PAUSE ▝q[Q] ERASE p OPEN #p@ OPEN #p` NEXT p LPRINT OPEN #q NEXT q OPEN #q OPEN #sUSR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY GO TO xx887 MERGE COPY ` xx(@@xx(@`xx(@xx(8 BEEP xxx OVER p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #x DIM PAUSE q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #y CONTINUE PAUSE r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #z BORDER PAUSE s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #{ NEW PAUSE t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #| RESTORE PAUSE DATA ~~ CAT COPY 4 CLS ~~~~- DATA ~~~~ DATA ~~<<Pp ▚<=▝<=▝Pp▚©©Pp▚A A Pp▚Pp MERGE @@Pp OVER FLASH U▘ FLASH SCREEN$ p@ OPEN #U▘ FLASH ▖▘ FLASH "p@ OPEN #▖ COPY COPY COPY COPY PLOT OVER G FLASH CHR$ VERIFY G▘VV FLASH Gp OPEN #G▘EE FLASH Gp COPY G LPRINT G MERGE CHR$ a% PAPER G▘JJ PAPER Gp ERASE Gp> ERASE Gp] ERASE G[U] BEEP CHR$ ▘GG FLASH U▘GG FLASH MERGE ▘GG SAVE CODE NOT ▙yNOT [M]yNOT INKEY$yNOT TAN yNOT BIN yNOT [R]y! STEP <>y PLOT <> LIST FOR F!p▝@&IN THEN {( POKE <>(>=CODE PRINT BK INPUT OPEN # RETURN THEN x( CLS + THEN |( LIST LET OPEN # RETURN <>NOT DIM y:ACS _NOT uz>=2 REM yPI(5! AND S INVERSE !lz RESTORE INVERSE THEN & THEN + CLS LLIST % GO SUB !INKEY$Wpp▗ GO SUB <>>=[G]! IF z~#"-z RETURN $($ RETURN #(( STEP POKE &oUSR )[H] GO SUB [ IF GO SUB Rtz~# IF ▟0.▗NOT !LEN ▝SQR o RETURN [E] INVERSE ! AND zPI(G INVERSE # INVERSE # IF INVERSE n INVERSE fX"]z>h AND S▞▞ OR RESTORE MERGE CODE w+N▞ MOVE LLIST STR$ % GO TO <> MOVE IN $ IF z DRAW z{D{]{y{▚{[D]{TAB { AND { BEEP { CONTINUE { DRAW {|2|H|c|p|▝|▛|[L]|ATTR | # bezumnyj u~e▖# sluveb▞podxemnik▛trav pe}ery7▙tajnaq komnataH [A]a zlobnogo ~erepgrusta▞obitatelxpF▚|lektr`▝ B▚redban0ozdesx bywa`t▖iwideniqi▞o~ti dobrASN ▗wol{AT [S]mesto,byt *▜glawnye%▘rop[U]a s sekretom@ CIRCLE ▝n THEN @STR$ ▝#@/STR$ .@ CONTINUE hod DATA ▘re0[D]gangster w otstawke`:[A] wedu}ie kuda toJQCHR$ .b▘ovs▜agregat$[S]~kihit CIRCLE ▗most!w@ CONTINUE {ahn ▗olodpCODE ▘ # COPY [L]NOT }NOT Q}NOT [U]}:ATN _PI>= RETURN (' RETURN (. RETURN (7▟< RETURN > RUN $ ▘=PI SAVE V0▘a@([N]2ACS _!eeA6 GO SUB VAL !ww@6G GO SUB VAL ▖PI>= INVERSE *BIN 8[C](G INVERSE ^ INVERSE V INVERSE PLOT INVERSE ~PI>=#[I]~ INVERSE n INVERSE f INVERSE RESTORE OR STEP [U]}STR$ INVERSE LLIST NEW <> INVERSE * AND _03▗ INVERSE V@3[O]2|~2[N]~2COS ~2 TO ~G INVERSE N OR "g} NEW l&CHR$ )▘ RESTORE PRINT [M]_[L]▖d THEN ! THEN ! THEN !@f▙#:>ACS THEN w[S]VAL$ CODE 2~2 PAPER ~: THEN o CODE 2SQR ~2 IF ~2SGN ~2 CLS ~> INPUT 0▘>0&[F]©(> THEN 2ABS ~2 DRAW ~> COPY 2PEEK ~2 CLEAR ~#Np▝ OUT CODE '"▝ DRAW %|▗o([ OR GO SUB ▗ INVERSE RESTORE COPY [H] RESTORE !~ LLIST w INVERSE +# GO TO LLIST STR$ MERGE LET LLIST 0 AND wSTR$ OR RESTORE 075 RETURN /▘ NEXT LLIST .▝STR$ P/ BRIGHT <> OR UK▗## PLOT 0K FOR pEE`?#@?IN CONTINUE <>@USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/IN BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]IN ^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB IN [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD ▞[P]_ OUT ?IN © COPY Q COPY COPY COPY TO [H]NOT DRAW NOT [S]▝NOT @▝NOT A▘NOT z▝NOT 9▝l▘ INVERSE *>=sX3X[E]^ INVERSE V INVERSE RESTORE RESTORE MERGE STEP [S]▝ MOVE LLIST INVERSE LLIST $,c4 BRIGHT THEN ATN < THEN RUN 2 BRIGHT NOT G▝>G PRINT ▞ LET STEP A▘J OR RESTORE C OR 9 CAT ▗ STEP z▝o#▗▙l© RESTORE INVERSE LLIST LLIST STEP ▘ INVERSE LLIST STR$ [A] INVERSE LLIST STEP 1▘l▛ ERASE <> RETURN >▟<> RETURN !a▞ RETURN ?g RETURN ,m▛ RETURN .s▟ RETURN / CIRCLE RETURN : FORMAT AND O<> STEP P▘^▜ INVERSE ! INVERSE STEP CLOSE #▝=▚J RESTORE INVERSE !▗R▖#C STEP PLOT ▝ INVERSE !V▘ ▗ PRINT n▝ RESTORE ▞ DIM ▝ MERGE INVERSE MOVE ▝<>Q▘▘Q[B]# POKE <> RESTORE | NEW THEN / THEN / THEN / AND Xg CIRCLE ▘=w CONTINUE <> RESTORE :▚$ RUN LLIST p(0(▗w LLIST <> MERGE [K]| NEW (| AND g MOVE <>|USR ▗ NEW LPRINT ASN oR PLOT @g<> RESTORE PRINT GO SUB _ NEW ( IF J PLOT PLOT @!k▘PEEK ( INPUT w"[C] LLIST <> TO VERIFY PLOT VERIFY VERIFY TO 8ll|l(▖`xllx(STR$ l▝< INPUT STR$ ,|l<`|``<|USR VERIFY |>STR$ `$f$fnvf$$ ▚$hphd,▝<H▞,DnVFFD(▘~f ▝<STR$ f>&d ▝|X▗<f`` ▝~CHR$ 8|©▚8 VERIFY VERIFY |H``| ▚F AND PLOT PAPER PAPER vX▘X▝TSTR$ VERIFY 0<fFN f>8aEXP <f<` 0@▚▘`| P VAL ▗~[A]▘<fCHR$ 0USR ▘>HINKEY$▝ BEEP ▘F RESTORE ▝/ GO SUB USR / BRIGHT TAN 5k^ATN _PEEK lSCREEN$ USQR INPUT COPY COPY [Q]T REM ASN IF GO SUB ~=SGN nIN WABS Wj COPY COPY INVERSE wSCREEN$ U6} PAPER CLEAR v INVERSE SCREEN$ TSGN /SGN l▗:=6= COPY COPY GO TO INKEY$NOT RESTORE ▗NOT L▛NOT ▞NOT ▛▜NOT READ ▖NOT NOT FORMAT ▖CODE 2ATN _22K▛!EXP _ THEN INKEY$:NOT O▜=2NOT _>0▛PI(CODE ><>2 COPY ▗"▝[O]▛INT ▜ STEP STEP _ STEP STEP FORMAT _0[D] TO J▖ STEP FN a STEP OPEN #_ STEP K▛ STEP VERIFY _v:ASN _3A[F]2SQR _NOT ▜NOT m▚:SGN _ THEN GCHR$ STOP ▜ STEP ▞CODE >2 CIRCLE ▜m[U]VCHR$ CLEAR ▚ THEN FCHR$ s THEN NCHR$ [U]NOT FN ▚ MOVE :TAN _ RETURN v8 STEP FN ▜CODE 2TAN _<▚ STEP BEEP PI ▝= STEP INT ▜CODE 2> AND 2<>1▖0 STEP AT ▜>v 2%▘ STEP PLOT @2?02▘>`3 STEP L▚L▖~ THEN © M▘ PRINT ▜BIN ▚> COPY <>CODE pp INK == RETURN PAPER ▜2ASN _p)▚# SAVE CODE <>=ZPI@[ THEN _ RP;4U4 CLEAR ▘))SIN INPUT j OUT ▖<> STEP 1▚PI LINE [H]▚<▘ RETURN n▗TAN ▜>e▘ AND k▝:[K]▝G(▝O(▚ NEW LINE IN ▛▙▖[C] LOAD : RETURN >= RETURN >> RETURN 6 RETURN . RETURN & RETURN ▞ RETURN ( RETURN RETURN RETURN <▝ NEW ▝Y▝>Y DEF FN ▙▜K>PI LINE G RETURN (P[K]▝j▗VAL ▜>nw▘! VERIFY [L]▞ STEP ▚ :▜=. STEP CIRCLE ▜pSCREEN$ ERASE ▝1▝ DEF FN STR$ ▝CODE L▝<> AND ▚ THEN O &▖▝[G]ACS ( RETURN STEP POKE ▚@E▟<>>NOT POKE ▚ STEP v▜ INPUT >▜ DATA MYLN ▝yR2INT 9SQR ▙y NEW <>>>>FN ▝ FORMAT <>>/2SGN ▜PI>=▝BIN @▟ TO ▜PI LINE |yNOT ©y STEP ▖y FORMAT ▝ CIRCLE l<2 READ ▜ RETURN LINE FN ▚ RETURN PAPER POKE ▚ RETURN ( RETURN 2 LINE ▖<>!SGN _6>#*CODE ▟!ABS _5 RESTORE STEP STR$ LLIST ~PI(RCHR$ _ STEP PEEK CODE 2 LIST ▖<>0▛2SGN _ STEP &▖NOT OVER ▚:PEEK SCREEN$ ▚ACS _*IN _"ABS IF ▖NOT FN ▜#▝USR y[S] THEN nCHR$ STOP ▖ THEN f n<>▗ THEN n y▝b▝pY LLIST RESTORE ▝f▝O▝](▝F%▝T1▝= ▝J;▘3#8▝AD▝*▝8M▘! LLIST "{O▝+[▝ ▝"d▝)▝m<> LLIST !CHR$ _5 STEP |yTAN ▘:CHR$ 5▗ LLIST STOP ▘ THEN AND STOP LINE ▝ CONTINUE CAT ▘>▝<>▗6:STR$ `▝ CLEAR ▖ZNOT BIN ▞> LOAD FLASH RETURN VERIFY THEN AND THEN g▝ DEF FN TO THEN VERIFY $▘( W THEN NEW :)▞/2)▞[E] ▗( GO SUB "▝ =▚GUSR THEN OVER :K!K▞<>0>= LOAD > OUT WQ DEF FN > CLS @@[▝ CLEAR [▝▗[▝▗[ p[▝©P[▝INKEY$|▝INKEY$[ [▘ FLASH 'Y DEF FN THEN _ VAL ▝W(VAL$ ▝ INK VAL$ ▗ INK ▞▘ ▟ DEF FN ▝7▘g>=SCREEN$ ▝ RUN THEN RUN ▞<>▚USR LET *▜▛▜ RESTORE AND * LINE GUSR > CLEAR MOVE REM ▛ GO SUB SM▛ STEP :▞INKEY$#ACS #`@▞ RESTORE FOR FOR LLIST p"p+p"p"pDpDpDpfpopfpfp▖p▖p▖pSCREEN$ pCOS pSCREEN$ p TO p MERGE p TO p TO p INPUT p INPUT P INPUT ▙<>!@ REM ▛ STEP ^▛▗w#▗wpppp$p0p<pHpHT▝<>1AT ~PICHR$ J#0 [S]▝<ABS t▘ MERGE COPY DIM ▖~ INVERSE RESTORE STEP ,D INVERSE LLIST STEP D LET yF GO SUB KwF INK INK RETURN COPY (&oAT MERGE FOR ! LIST MOVE OR 6STR$ INK LLIST INK CODE <> INVERSE !yF<>itatelx pe}ery STEP [I] NEXT GO SUB s▟!PEEK ▟[d MERGE GO SUB VAL ![I]SIN PLOT RUN <> GO SUB LN !SGN FOR VAL RESTORE ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN ! OUT LOAD NOT CONTINUE NOT _ FOR PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQIN >, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝q COPY READ IN NEXT RESTORE " RETURN CONTINUE RESTORE ~2[B] GO TO 2c FOR ##~#"[R] CONTINUE "TAN CONTINUE ^#V#" FOR CONTINUE O" LPRINT CONTINUE LLIST " RANDOMIZE CONTINUE ! CLS BORDER DRAW BORDER p GO SUB VAL CODE IN 2 SAVE BORDER 2 RANDOMIZE BORDER 2 IF BORDER 2 DIM FOR 2N GO TO 2▛ DIM 2 REM 2 REM 2 DATA FOR 2I GO TO 2 INK DIM 2[ REM 2 OVER REM G/2_ DIM 2 OVER DIM 2` REM >/22 GO TO 2 STEP FOR !▖ BORDER " INPUT AT FOR "S GO TO " CLOSE # DIM "V REM " INK REM STEP NEW CONTINUE GO SUB S{ FOR STR$ GO SUB s<= CONTINUE 1[I] BORDER > LLIST FOR s#r# FOR = PRINT ▗ CIRCLE BORDER >p[R]* CIRCLE BORDER " RETURN FOR "c GO TO "j DIM " DIM DIM "k REM CLS NOT STOP REM !~▜ GO SUB s8 INPUT ▚▜# AND ▘ RANDOMIZE FX▗ LLIST "[J]▘SIN FOR m[H]<>{▜_~0 THEN #~STR$ [I] NEW THEN Z PRINT 2 CONTINUE LET ~ NEW #ng INVERSE b FOR >=[N] INVERSE }▚▜O! CIRCLE RESTORE ~#fo THEN :8 GO SUB R<><>><(wAT ▘%[B]y<PEEK # ~2d DIM #"E DIM FOR x_@e DIM # INVERSE .z STEP DIM )" CLS BORDER FOR 1▜ IF TO DIM (& RESTORE CHR$ [S]{PI PAUSE ATTR DIM GO SUB DOPI GO SUB B0 LLIST >2▞ DIM CODE 2[J] DIM go"[A] DIM "[S] DIM LLIST CODE ▚ INVERSE |2 CONTINUE FLASH ▚~ PLOT 2 CONTINUE ©▝zp©@©▝ READ p© ▝ DATA p© ©▝ CLEAR @©▘K REM `©▘* REM p©▖2 REM CODE 2 REM ©▘ REM ©▘! REM © REM INVERSE |! CONTINUE ACS wp▘▝ ▘▝{qP LET ▝ REM q▘f REM q▝ COPY A▝ STEP p▘▝AT `▘▝▝▝[K]▝[B] REM LLIST ▝[T]0▘▝[B]@▘p[O] CONTINUE ! CONTINUE IN COPY VERIFY ! CONTINUE B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 CONTINUE <>CODE G>=R[B](>=("=CHR$ ^ DIM ! SAVE BORDER 5 PAUSE ^ DIM 6▖PI TO NEW CONTINUE STEP $ GO SUB INPUT ▗2SGN FOR NOT ▝ RANDOMIZE p STEP H INPUT GO SUB S[J] FOR 2! GO TO ▝ IF 7▘SQR FOR 0O LOAD GO SUB SSIN FOR CODE 062▘d DIM ]" RUN "g DIM !▗2 INVERSE FOR 1▝ INK ▝▛ ▝ CLOSE #▝▗2 POKE FOR '▝j'▗2 GO TO X▝COS 9▝[S]D▝<= D▝[I]Dgo LOAD GO SUB " READ DIM ▟▝/IN "e▝ NEW 0e▝B>▘[ REM [L]▝ ▘V REM e0▘Y GO TO ▝ DIM 2i ▝!(▝2-▝F D▝8▘ CONTINUE TAN ▗ CONTINUE >©CODE 2▚ POKE 2 GO TO : GO TO =(y2 ERASE ▗ STEP FOR >7FN ▘<> CLOSE #:▞ DIM O▚( PAPER CODE 2G>7<>STR$ ▜![I] NEW [S]▝ INPUT +▗NOT $ GO SUB 1&o" GO TO PIx PAUSE LET PEEK GO TO -▝@▘ GO SUB ▖og" OR A▘ VERIFY [A]y FOR AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘ BORDER O$" BEEP FOR ▞▗! CIRCLE BORDER ▜@▝ RETURN <=▝ POKE <> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST ▘>D2▛ GO TO 2 GO TO 0 INK [T]▘[B] GO TO LLIST 2v GO TO :▝ GO TO = LINE DEF FN GO SUB y27 GO TO CODE R$▝i$B GO TO : REM $▞7 GO TO ( INK CODE 2▝ GO TO q$q$▘H INPUT 11$▝$ INPUT /2{q$ ▝) A$▝pA$▝NA$ RUN ▝[H]q$q$q$q$▖ [R]q$!$▘< GO TO ▞q$ AND FOR ▝Y<>&*!$h$▝I@SQR q$▝eq$0 INK 1$C▘: REM (8▙NOT LOAD 2COS REM :[K] REM = LINE LOAD yM$J[D]▗"e REM <>2.▘[J] REM .▙ LOAD /2>= REM *o&0▝3 B.▝[T]▝.▘ REM + CLS ▝VAL 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"h REM NOT O LOAD r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ OVER REM r4▝CODE V;2▘O LOAD s▝ INK R▘)JCOS * PAUSE yU▜PINT LOAD p CIRCLE ▝LEN ▜TAN PEEK CHR$ y[L]▖ AND LINE DEF FN [E] FLASH h PAPER ▘( FOR COPY REM QV REM [J] ▝ AND ▞ DRAW c▛ DRAW DEF FN ▗ REM PLOT ▘#▜Nm DRAW VAL ▘ PAPER ▘<▝.▗ DRAW [6▝▙`▖ REM ©o[B] FOR `[N] GO TO ▜ REM o▙ FOR `[K] GO TO ▜ REM o[D] FOR `[P] GO TO REM o FOR `[I] GO TO o [I]! REM p4p4p4p44▙[I][I]/pO LPRINT READ ASN EXP SGN EXP ASN EXP PEEK EXP ATN INT PEEK INT ▗TAN ATN SGN ATN p p p [R]SGN ATN ! STOP ©`[U]#POINT !FN #INKEY$!INKEY$[U]INKEY$#ATTR !POINT #FN !INKEY$FN #POINT [U]dpP-nPOINT !mFN ▗POINT mTAB TAB 1nPOINT #mFN ▚mATTR #TAB nPOINT p6P6 FOR `[G] GO TO ▝ REM pAqQq:p((pLqF LINE ▗POINT INKEY$ATTR % TO POINT ATTR POINT FN % LINE ▚ATTR #VAL$ TAB d OPEN #▗FN POINT FN INKEY$ RESTORE ▘POINT ATTR 5▗SIN ASN INT ASN P▗VAL TAN ATN TAN PSIN ASN EXP ▝EXP `p(0(pkpk▝POINT @dTAB pkFN INKEY$[U]1]▖TAB VAL$ CODE #VAL !TAB POINT `▝ATTR .▜FN [U]#[R]%POINT #q]q]-▘ATTR POINT -VAL #SIN !VAL$ [POINT ATTR %TAB !XCHR$ MOVE BEEP INKEY$FN POINT ASN ▚eVAL$ POINT VAL %&▟SIN VAL ATTR SIN %TAN !ASN TAN SIN TAB POINT %IN ▘/POINT p STOP ` NEW Rp STOP p STOP qp STOP pbIN ▝ATTR S▝INKEY$ATN ▝TAB <=e▘INKEY$POINT ▝cqwAw<=LN ▗ATTR TAB VAL$ TAB ▘0'▝VAL ▘[U]!▝POINT LINE Bf▘%TAB qrhTA8!SIN #TAN !SIN TAN #ASN %VAL q8r[F]CHR$ ▞VAL$ GO SUB FN <>▘ FN ▝FN LEN ▗ STOP POINT #TAB OPEN #▗TAB POINT 'INKEY$<=▝ATTR 2 PRINT ▝ATTR 3▘+POINT LIST NOT ATTR ▘#VAL PAPER POINT FN ' BEEP n▚'& LPRINT ▘ FORMAT ▝USR 0VAL 0 ▝[Q]0P▝[A]0p▘0p▝p0pS@5▝ ▞`@0<>▟ POKE LIST © DRAW STOP [D] READ ▗P[T]▝ [T]▝ [N]▝ [E]▝ ▖▝@D TO ▘ LPRINT CIRCLE /5 MERGE /5 AND /5ATTR y4 LIST ©4 LLIST , LLIST ▗ FORMAT p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` ▗( COPY COPY >=[A] INK ▚ RETURN ▝<> MOVE [H]2 BEEP [H]>!▙ RANDOMIZE POINT ▛rmanFN PATN P>=P BEEP `[H] RETURN COPY COPY RETURN 8© COPY COPY ©8>p RESTORE OR PRINT PAUSE [N] STEP [Q] STEP FORMAT ▗vv LET <STR$ LLIST GO TO <>> THEN COPY 2[<> INVERSE !©[L]i DRAW i,ASN &i, CLOSE #_▘*▗PEEK 1< CONTINUE ▖▝&>S_ THEN % THEN % THEN $ THEN $ THEN $" NEXT !N DEF FN " PLOT >| GO SUB O GO SUB _ATTR FN POINT SCREEN$ AT TAB VAL$ w#xLEN >=v; RANDOMIZE INVERSE TO LLIST y9@ CONTINUE DRAW -t[C]4 OVER yATN >CODE r PAPER MERGE VERIFY dard▚.M LLIST [N LINE J FLASH 3 CIRCLE BORDER INT g BRIGHT [E]>= INVERSE OR DRAW ▖[M]LHJEo<>} PAUSE ▙ RUN EXP NEW R INK ©>| INK INT ] CONTINUE LN 8 REM INKEY$[J]t FORMAT vl9U[Q]FN RNDAT MOVE bAT INT vTAN DEF FN COPY D% CLOSE #[A]$▗ LET K=+[O]j@▛ STOP [K]x[K]C VERIFY CHR$ [O]ACS +[G]L[D] REM PI[F])zSELN INVERSE $M LINE NEXT u4N[G]"U@Z LPRINT ▟U GO SUB [D] NEXT sNSf CONTINUE Ud▙SGN 'ABS W[N]+▙5T<=LN ▚4t BRIGHT owWNOT _cL DRAW W[G]7[T]_©g OVER g7W[G]PEEK COPY BEEP > RETURN RUN [H] STEP IN USR DIM ▟TAN [T].z PAPER k VERIFY <l+n INVERSE TAN VBIN DRAW DATA 6[Q]TAN SGN ▟ASN [H]G? OR :kO?ABS m' INVERSE 3jo BEEP PRINT ]O/ DEF FN >''/o PRINT W▜_© BEEP INKEY$c/PI OVER /7 BEEP VERIFY {©[H]PEEK Ow[H]▚CODE O▜[O]VAL VERIFY [P]©VAL INT U3GATN ? FOR BRIGHT ^cf[P] LIST 9~PEEK [G]g OUT DEF FN INVERSE [O]INKEY$GCODE ~VAL [G]R4▜_lINT + MERGE [U]EXP oG#[F]VAL ' OUT ok"uUSR oq CAT t> BORDER _"obvfHEXP O% VERIFY &)▜_RND TO *{T,bL" FOR INT REM [U]/qlAC[K] RANDOMIZE T TO "[P] LINE ▙▗ BRIGHT vm[Q]*EE CONTINUE STEP CODE SCREEN$ u FLASH dm`SCREEN$ VAL CODE 9MCHR$ JASN RND^ TO GO SUB ` MERGE LET ,SGN COS EXP PEEK CLOSE #dl DATA BRIGHT TAN qBIN Us=SGN [U]2 POKE OR #mht FOR USR CLOSE #[D]ASWT OPEN #[A]$[T]SRhE}STR$ DIM NEXT Bg, RANDOMIZE ACS <> IF "}[J]t DIM PLOT lm CAT DEF FN ,E5[R]^[D]cU▝V NEXT Q-uTAN v[F]▜=} VERIFY BIN [E]LN ]]=%U DATA ▞<EXP EeMU[N]<, CLEAR RESTORE 4'[E]▘▟ STEP ▚?[H] OPEN #)▘LEN ^auPIRNDL CLEAR M PRINT zbSTAB ▟9ASN Jz COPY LOAD STOP Ju VERIFY m▘}E[E]SCREEN$ %=AT SIN }u%[H] PAUSE CHR$ ]mETAN RETURN } DIM ▛ DIM NEXT $ RETURN LEN BEEP T$[B]'[P][D][B]FN BIN ▝S FOR NOT CODE AND 5 NEXT # TO OV+{c LIST ABS EXP ▛+F< INPUT [G]>{yYi[R]! DEF FN TAN J▚ RUN RETURN CLOSE #PEEK ▚N[F][E] RETURN [B] POKE Y OUT T[R]F[D]tACS CLOSE # CLOSE #cC PLOT KO[[c MOVE )FN )Zu0 GO TO iKTAB ,Z INK - RANDOMIZE ^<USR w3]SQR 2"V'W99▝LEN ▙PEEK NEW VERIFY CLOSE #TAN }INKEY$t4 DATA TAN [U]<=I5STR$ STR$ LINE [S] POKE 1a COPY 8EVAL ` REM DIM H[B]1VAL STR$ ) LPRINT [I]0 FORMAT 7 READ [I]7) STOP P[P] LOAD j ERASE FN CODE pq`▙ DIM COS FLASH <=/FN xOVAL$ <=U0 RANDOMIZE CONTINUE STOP _3A[O]▚k( LLIST COPY @7Z LPRINT E CLEAR G/'[F]q3[J][Q]K][T]3PBIN E`STR$ AT /U|INT [F]© DRAW CIRCLE >=%4e GO TO k[D] INPUT >|.-ARND FORMAT BPOINT ws STOP u|g[B]0 SAVE ABS L LOAD ,aA;M[N] FOR Q: LOAD ASN ABS TAB STR$ LOAD NEXT PEEK BEEP ABS [M]d COPY LU LOAD L STEP uTAB DATA READ [A][M] GO SUB ▗ LET AT .F14 GO SUB GO SUB V<= PRINT ASN +M|i[PATN TAN GO SUB LEN *▟4o LPRINT STEP >CW▞71 GO SUB G LIST eABS ©-}T▝q/ FLASH m▗SCREEN$ x- LIST STEP W^iz[J]B-/U©o CLOSE # GO SUB GO SUB nD[D]QeABS IN ▟, NEW LEN CODE S[L]▟sSTR$ LLIST [B] POKE SGN <>▟[B]}O▗1▙ MERGE PAUSE J MOVE MOVE PRINT [B] LLIST DATA *SIN OUT CLEAR ABS y AND [J]M BEEP NOT INVERSE I RESTORE K?}yH}SV STOP ▝"SIN a INVERSE T<>IN m<>]:%a[U]/+[U]X4[N]xWu DRAW -$ ((/▘CHR$ $E-TAB RANDOMIZE Wu TO w:/ LOAD [N]w7CODE GCzv ERASE 7[[K]w[K] AND SGN 'POINT CODE SQR ▛2[Q]TAN xP4 LIST 8▚@ INVERSE u1 BRIGHT [U][U]<> CONTINUE n[B] BEEP SAVE ;?/'gW?©/wG_?7 NEW 7+k GO SUB ^ DATA # CLS SCREEN$ Z*<7'3[L] FLASH ;K LLIST [H]7▜ OVER H-b<=&▟CODE OR ASN ZcT PAPER IN [S] ERASE SQR INVERSE X▟ BORDER PAPER SCREEN$ ▝ CONTINUE >=SIN * POKE ] READ ATN d)k FLASH IN [H]PI[L]▜EXP CODE [L]V PRINT ▜[Q] DRAW ?Z COPY r3IN ©VAL 0W BEEP [S]tCODE [P][C][C]PI&* ERASE SQR FN ▞hATN OZ GO SUB I'2 DEF FN ~ RUN VAL RUN W`>= OPEN #&[N]FN LOAD D DRAW FORMAT IN 9QAT INKEY$ VERIFY /O[N]ASN r[H][C] TO TO p4SCREEN$ $/[M]/[E]$SGN %MEUeV CAT M}2SGN %U}▟Mm}U%%FN INVERSE [N] INVERSE [B][E] INK ~RND CAT ABS MERGE SIN %ACS ERASE DIM ut5▗|I BRIGHT <>7T[U] CLOSE #INT m▘UFN REM L▛SEXP TAN 3 DEF FN Xn[G]IN 5TAN ABS k LIST TO ▞s# OVER PAPER BEEP BORDER m[S] LPRINT h%~ AND PI<=U2 ERASE USR SAVE ]j PLOT PRINT SCREEN$ PEEK SIN INVERSE :SCREEN$ CIRCLE }[C] BORDER REM ASN R PAPER R&SCREEN$ [L] MERGE p[S][I]b% LINE CODE RNDMw PLOT FN 1/FN h}5 LINE jj LIST POINT [S]3©INKEY$T CIRCLE H= MOVE uEXP r▜yN CLS 0 BEEP RNDABS - CAT 5[O]Q@ABS * VERIFY z$ DEF FN MERGE ?4D=▟SGN ASN Uu, GO TO WnPI LINE -INKEY$ DRAW ▗4S*$/pelu LIST NEW tJ> DRAW 4GPEEK FOR 8L▚:@bx6▙E▖uTAB &ATN EXP INPUT 9SIN v OVER ▚TAB LINE *[I][K]$>=FN [D][T][A]LEN ATTR ABS ATN TAN [U]SIN H[E] GO TO Q PAPER T.|AT LIST OUT O[U] RUN INKEY$:,TAB !IN [E][F]▞K LIST "'j▖[r DATA fASN DCODE ©b STOP s FOR ufV?▖LN a FOR LET ▚~ATN POINT RANDOMIZE [R]v CLS 6lCHR$ 1/ READ 9Q[L]sU RESTORE BORDER GO SUB /_y MERGE FOR RANDOMIZE INK Ks RESTORE LET TAB SQR C9SQR READ MOVE [R] FOR [ DIM OUT 3IN Q!o[N]ATTR M[D] THEN {=2CNOT ▝ PAPER [H];g RUN M GO SUB [F]ASN INT ICOS [N]' BEEP g[F][D]g[D][N][T]POINT SCREEN$ FOR KYw PAUSE 7Ry[I][N] CAT C)Eky ERASE c![M] CLS koo STEP ▜ LLIST K REM ACS '0T9 NEXT t[E]<l/2t&*lgTAB CLOSE #e8▗*t PAUSE w-3q%j7 GO SUB ZlSIN LLIST CAT [F]N]X INVERSE v▘q▖cI VERIFY (<= ERASE __ABS THEN 6+ FOR I OVER k[C]VAL {▞d DATA CHR$ LINE CLOSE # FLASH $[T] CAT L[D]D OPEN # RESTORE GO TO [J]▗z OR ~a RESTORE L[L][D] LLIST <>SQR [D] FOR COS }[L][E] CAT SIN QABS <=SQR PRINT A BORDER BEEP F<kPEEK [P]▞PI LLIST BEEP NEXT <>uE FOR ▝/d SAVE FLASH [T] OR m STEP j[B]COS OR RESTORE GO SUB M/ BEEP ▞▛U[E]m[K][L]IEXP [L] LOAD ATTR gP ERASE CAT I7K?sASN [O][S]ABS GO SUB AND <aASN CLEAR 6c RUN =YtASN ▚▛PI;TAB PEEK WC▟SCREEN$ GO TO i3[ INVERSE o= BEEP t DRAW BRIGHT [D]<8ATN [L] READ ]ABS W PRINT POKE PRINT e>-TAB M FORMAT CLS CODE [B] BEEP [B]ee VERIFY CLOSE # ERASE NOT | READ C PLOT PAPER DATA j DRAW l>ACS INT PAPER T' CLOSE #l[L] IF REM VERIFY PAPER MOVE 3/<= LIST STEP BEEP ▞ PRINT STR$ RND INVERSE /AT F{▙ RESTORE m6G BEEP ASN % COPY [E]V-ACS | CLEAR [P] STEP ▚[H]SGN %Z TO W DIM STOP [K][K]H</) PRINT TAB [B] GO TO [U] INPUT i.QV{gzGz[I]w▘_ FORMAT ?74FnLntRv4(6|"^<X&$&/|h^Lf&T<f,~S0 SAVE *u>V~wuDO MERGE z'5Ho^ouDw5INT CONTINUE [F] INK [P]POINT PRINT IN CHR$ ACS BRIGHT PEEK [R]RND▛Ycqu5▘[N] COPY GO TO f VERIFY 8[P] NEW tACS LET BEEP VAL$ =,G` PLOT AND oa▗<>7>V©O[K]INKEY$©id)' RETURN _ DEF FN i GO TO u INK S{Z POKE LLIST SIN ws' PAPER o[J][.ABS <>`D REM L|6COS PATTR : DATA :L/1SQR rz OPEN # MERGE LET l3VAL OPEN #!▗ABS Cs REM ▟ LPRINT ▙ LINE PRINT IN READ [U][J] FLASH O▟l[K] STOP CL GO TO [H]kTAN ▗LEASN TO NEXT } DATA ^ DATA "}MliMvU STEP ,H]/|L[T]=| CLEAR R(=|- GO TO BIN OPEN #]%J THEN SAVE aayEJ PLOT Z▛ MOVE e=]M GO SUB UmSGN yU% POKE AFN m[O]E== RESTORE M5PEEK eM-[N] DIM ~[F] BRIGHT CLEAR TAB <>ABS OR 4 BRIGHT ASN [N] BRIGHT e POKE Om TO ATN CLEAR [F]T OUT PRINT ▟[H][N]ASN VAL$ RND INVERSE AT 6=e POKE u} BRIGHT ETAN IEM1}IEaTAN Q-[M](U[U]-SGN )4tASN q/<[N]tdL, CLEAR JTD PRINT R[N]k4FN FOR c<▛$COS [T]<[T] FORMAT LOAD kRND; GO SUB #3cCSQR gl FLASH d[L]SQR RUN NEXT THEN NOT THEN THEN PEEK BIN FN ,B[L]▛t RUN STAN s INVERSE [R][U] OPEN #▗ OPEN # GO TO k GO TO DATA K POKE [[S] REM C FOR 5#{[A]g7 NEW zkCOS {#s CONTINUE "w BORDER FORMAT [cC+{[S]NOT 3SINT COS ; ERASE [T]k RANDOMIZE READ CIRCLE r3USR VAL ;"+[[S]jc3[K]b[xNOT SIN wACS k IF w* CLS STR$ zSQR ;Ws'CHR$ { LLIST REM A[T] BEEP b DIM FLASH OUT MOVE NEXT BORDER B<> FLASH COPY *STR$ STOP i{?INT qsB▖SQR *[T] RUN b CONTINUE [L] COPY Z FORMAT NEXT GCHR$ H[ REM C7 STOP h{_INT 0sgCHR$ {[R] REM G#[H] STOP o[[P][K]WsPICHR$ OTVAL RNDH CIRCLE GO SUB `t LIST ASN x|>= STEP 5NRND,LN GO SUB aVAL MERGE Y DRAW ▞ TO @U MOVE DATA ]}}- RUN u NEW DEXP ▙▙}U[R]TAN OPEN #[N])ATTR [F]Q$TAB <ATTR ASN `5 PAUSE /FN [N]t LIST M[G]} THEN CLOSE #@u OPEN #[M] FOR TO [U]t|[O]LN j▟b PRINT CIRCLE ,▙l[O]AT Uez▟ CLS 4&qh[u== DRAW k[G]z BEEP v`5 OUT )Yu©ATN @>MB COPY s%a[U]/, AND Rm[F]]= POKE };y LLIST STEP $ GO SUB -s%9 CAT ▟7=' DATA qv OVER CLEAR [U]/ FORMAT READ IN GO TO ▛ SAVE [B] PLOT [F] LOAD [Q].X[S]5INT /[O]k>HKfINKEY$ABS ABS CAT PAPER STR$ ▜ DATA PEEK fouGKDm4=2zy8Cm9<. MERGE }5[F])RND&e6 BRIGHT > CLOSE #=lU,| CLOSE #SQR {0Kt3 DATA "4* LIST i▖PQ BRIGHT SAVE [P]KOS[cL LLIST l[L]to4g| RANDOMIZE MASN u PRINT eKTAB <= GO SUB PI MERGE ▝[F]_ RETURN p DEF FN } VERIFY RND$▟'myu%5[L]BM LPRINT CLEAR FN MERGE VAL$ PRINT P[M][M]u[E][U]4/ PAUSE ? RESTORE w CAT w FORMAT _ RANDOMIZE RANDOMIZE 7SIN D@▙8pNOT PAPER 7K1/4 INK SIN e70_T[D] DATA MO`©WwJ4v' LPRINT 'SCREEN$ Kw}wV_xa7"Gl]©fWw7[Q]I LOAD Z VERIFY BORDER [L]% RETURN VAL$ ASN O/_57zASN {E RETURN CAT [O] RUN SCREEN$ tATTR [K] REM INVERSE ATN CLEAR ▜ LET VAL$ I5 RETURN g/geOa[N]p0GH_ DEF FN wGHG/ GO SUB ^(''@SGN ]=./5<{ LIST >${TAB l;+} ]-[ez TO S=5:DD▘VAL$ } STEP INKEY$_ READ BORDER 6[H]SCREEN$ INPUT [O]ATTR [G]▚!MLmmAT READ U[C] OUT STOP RUN RND REM AT [F] DEF FN C FLASH INVERSE ▚(SIN AT $w[I] IF T[S]NOT | GO SUB FOR 2 IF LPRINT CLEAR ERASE GEXP CLS USR _ NEXT THEN '>=▜Oo INPUT *[F] THEN TAB o GO SUB SGN GTAB [H]7@ INPUT ©VAL [F]gj CLOSE # CAT TO Z:' CAT COPY GO SUB CLOSE #[Z©{ DEF FN /TAN [H] GO SUB [D]o[P] BEEP w"[G]UMIN [P]4ATN h/`"8 NEW LINE LVAL INKEY$ REM D5lSTR$ SNOT [F]4AT ATTR NhPEEK ~FN PRINT P GO SUB ><> LET THEN Ku^M~SGN _ RANDOMIZE ATTR gCODE o* VERIFY w;[F]USR STEP ?TAN INPUT NEW ATTR l=TJ[T],LEN CLOSE #T?▝D[S] LINE CLS D STOP t5[O]e RESTORE cT|y LINE B OVER MOVE cv<> CLEAR <>RND5CSIN p TO SAVE ,Ec* MERGE ▗ FLASH [J] OR [H]h DIM TAN NOT [I]BIN [B][T][H]TPIFTrSTR$ ▗NEXP R LINE NOT B FOR PAUSE ▛A PLOT © ERASE INKEY$4ACS K2▙PI▜zM%USR qCpPEEK 1 IF 2 ERASE Uo;d/INKEY$SCREEN$ Z8 REM [Q]#3rg MERGE 8SrM1# FOR hY NEXT >=t[{[O]JCOS p RETURN MERGE +1LN [O]tNOT sb OVER r9[M]TAB CIRCLE CJ^▝COS NEXT KN[L])9FN 4a<[F POKE t^ LLIST [K]INT UAk[M] BRIGHT LET 'SCOS [B]<>3r OPEN # CLS ' STEP NEW /A[F] GO SUB C{VAL [N] OR 3q[F][ PAUSE )Lkd REM TO #l3AT IF NEXT ;DtKRND OR L# INPUT # MERGE K▚b GO SUB <ATN T▖,c INPUT ASN +INKEY$ COPY MB BEEP `BIN U2 BEEP nSGN FN ICOS READ CLS BEEP DATA STEP ▟l NEW [U][E] OR T|SGN SGN BIN [U]& INPUT --mu PRINT <=E} STEP 6U[E].[N] GO TO REM 5{[G]r= TO PEEK FORMAT CLOSE #▗tL BRIGHT IF - RUN TAN VAL COPY } DEF FN |p THEN [M]ATTR LLIST NEXT REM REM CIRCLE ERASE [L]s0u2 NEXT 6,[U] NEXT `7 CIRCLE |>[Q] NEW @uRU{]e?%▟={%!e.L BEEP FOR /▞ATTR DRAW REM :" DRAW HV7[U][T] FORMAT ASN RUN FN W RUN ]!# LPRINT G RUN SQR Oy[F]o ERASE RANDOMIZE OUT STOP MERGE YPI;!<=?.[N]▛8 MERGE READ PI LIST [I]6 SAVE LOAD oxPEEK e,TAN ATTR }: CAT ERASE BEEP e|IN nSQR N NEXT ATN INT %M3Mf>INKEY$lAT ^a)V+▛ CAT n'[E]T LIST 8.ABS PEEK % MERGE DIM GO TO 8 DEF FN @w` NEW IN _H INPUT uCOS TAN u[H]TAB _X PLOT w, INVERSE g<=VAL OUT [G]N)<= NEXT %AT GO SUB [A]d0ATN # STEP ASN 9' VERIFY {< GO TO SQR BEEP OVER *_Z VERIFY TAB W STEP i TO LLIST ASN x NEW }[E] DEF FN ▝W+ RESTORE }▙?g[F]Z▗o[T] DEF FN STOP GSQR [U].=O PLOT b'/ RETURN i_RACS m4 BEEP TAB =d/[F]ATTR EXP LOAD [L] THEN OR <>Ibs0 BRIGHT USR -'NOT THEN M LIST GO SUB Eg POKE ZSCREEN$ NEW INVERSE Y BEEP f][B] SAVE IN ©5nIN ▛ REM % BEEP x©YI CLS [P] OR IN ▛FN POINT [Q]fxAT nCOS LINE s OR PLOT TAB _D[L]© POKE / READ _>NOT edqfX TO LN / RESTORE PAUSE 'STR$ SCREEN$ E[M]Q,4 INVERSE n/` PRINT STEP $hBIN V'N7N7 SAVE CONTINUE M| BEEP mca[L] BRIGHT 4EXP NEXT eE&▛M FORMAT [T]%[F] IF GO SUB [J]P[U]S RESTORE OR I STEP LEN X;[I][M] IF `D▚H/▗8/▚ BRIGHT t[E]u GO TO cTAN <>[M]J FOR CIRCLE ! DEF FN [O] BEEP e DRAW <>|[R] PAUSE u%BIN DRAW [N]Ep% DATA k= DIM 5INKEY$ PAPER DATA STOP 8e[O]COS %VAL [D]]4 COPY s]xq OUT ?GRPEEK ~'[F] PLOT 6 STEP POKE M[O] BEEP LIST AND uAT ERASE _w VERIFY @ NEW @<= INK gN[G][I]IN [M] LET >= DRAW ▞I▛vY[U]POINT CLOSE #FPEEK q] GO TO SCREEN$ O8n INVERSE POINT [U]▝ LIST BRIGHT <>POINT 0 PRINT [E] TO TO IDQ LPRINT | CONTINUE r_rQ DRAW mi4q DATA Ql9 GO TO _ETx PAPER TO ACS %U}x8t DRAW RNDhmXACS d▜tRNDmH ERASE IN RNDLEN #F3▘MQJwAOSCREEN$ CIRCLE bw STOP {MZ[H]COS *SIN LOAD ▛>=8 INK STEP r[R] NEW . PAPER ▖tkL IF RUN CLEAR INK ~k]▙Z<>feI RESTORE INK LIST INPUT IF [Q] BEEP LINE SIN Y}STR$ RETURN [S]iRNDH OR <a OUT LINE Nc)%I;INT DGaeSCREEN$ AT + DIM ATTR INT axU[I]SCREEN$ LOAD @SIN %q(▝IbyQ LINE G9@ OVER $O+7 RANDOMIZE _; LPRINT _K▚o[F]7[L]'ATTR LOAD RANDOMIZE TAB =STR$ LOAD r`▖<>▟[F] DRAW PAUSE AT nL+ LLIST m, DATA ▜Ir#LEN ▙r[G]EXP ▚IiBA^#© REM CLOSE #lCH1zPOINT h CLEAR ERASE VAL$ { RANDOMIZE .'▞▞▟ STOP <;*[F] GO TO INKEY$KF LIST ^ABS :W?gIN PRINT $$S PAUSE SQR IN ? DATA I RUN =7 BEEP INVERSE UACS ]t7 CLOSE #mLN >=#}LSCREEN$ sD;▞ TO SQR POKE GO TO TAN BORDER BRIGHT GO TO s POKE d▗[C].N,R MERGE LEN $Z RESTORE 8 OVER EXP RUN OVER BEEP XPEEK SGN SIN 7 RETURN SGN DEF FN [J] STOP TAT Q}Y CAT (P BORDER (}C CLOSE #E[N]VAL$ H BRIGHT p CAT 0l[VAL k THEN s▘P*mSGN u[U] OPEN #Ma BRIGHT SIN u^8PEEK VAL$ B^ LIST OR ▗VAL TO CIRCLE BRIGHT CHR$ %W© PLOT Mb*u]▞"5FN ▟[M]▟ NEW ABS [N]-{ STEP NOT )a[F][O]MKMY%UC}<=V[F] CLOSE #oSCREEN$ NEW ACS STEP ^ INK ▜=} OUT e RESTORE INVERSE /PIP LPRINT RETURN [Q]▞]) INPUT ATN STOP [J]EACS BEEP &MW▗}L[P]STR$ 57TAB // FORMAT READ [T] CAT FOR lE CLOSE #vCOS _▛G:4 POKE tEXP V INPUT #w7 THEN +q© BEEP ?^GO?w CIRCLE zw VERIFY k[J]IN R LOAD COPY ? THEN CODE OUT [D]▛ RUN CLOSE #[M] BRIGHT D<|$dd,,[M][M]▗SGN CLOSE #TAB TO $ABS CLEAR v/zATTR OEXP OPEN #t NEW Wj RANDOMIZE n[M] POKE COS LEN NOT o: RETURN RUN w BRIGHT INPUT 4ATTR NEW [H]V[B][B]CODE PLOT NATN w' OR SGN [T] VERIFY DATA IF DRAW 4▙©CHR$ CHR$ ~SGN w VERIFY PIOZ?"ACS OVER LINE .[G][N](-/o ERASE [U][C]SQR NEW ASN gOf LET TAB {=T}S RUN COS 3mSIN ;_Cm CLEAR OUT /o VERIFY w INVERSE INVERSE DEF FN CAT COS vPI BEEP SCREEN$ 9} ERASE 3 OUT % READ u READ LS FLASH tI▛W6 COPY COPY FN AND | LET W LLIST PEEK .?▙PEEK CLOSE #▘▘ POKE [S]OTAN INK [P][C][M]] READ [B] SAVE CLS M CLOSE #$l<[N] T[J]<El<DdBIN [ CLS )^U RUN -EASN )% PRINT !5mSTR$ }5- CLEAR CLEAR ABS GO SUB PRINT OR OR TAB STEP CLEAR MERGE v[F]RND9[O]SCREEN$ LINE ▙t DATA INKEY$ NEXT l DIM ZASN D+y#[U]kLN NCODE U BORDER LIST t INK CAT CLEAR = RESTORE [A] COPY 0&m5-[E] NEW ?'IN [O]▘e/©ogwgO LINE ABS RESTORE 6[H]| INK mY[A] PAPER FN RETURN 2▟_BACS ueCODE Rz:G: LOAD [P]2,SIN [H]4 STEP O5 GO TO SGN '7[R] COPY IN ▜<=1IN RANDOMIZE oPEEK [H] AND [F]$ LIST CLEAR LLIST RESTORE PEEK LIST LX RETURN ! CLOSE #7 CLOSE #[L] GO SUB INK >[G]B MERGE <>-A[O] OR t PAUSE UO SAVE IF ▖ STOP 6AT qmy OUT LLIST OR EU- REM >= OVER 5TAB ]m PLOT SQR TAN }|=5$$9m]btQ MERGE SGN <SLN BIN ACS AT a{ PAUSE LOAD C3 GO TO CHR$ DRAW ▘pCODE 2 INVERSE [/ CONTINUE LPRINT REM THEN b[K] IF <INT <▘4USR zFN r[I]bj[A]'(S PRINT LOAD TqRND BORDER l▞^! FLASH POKE 1VAL$ ABS 6<=E▜}TAB ▝[B]TAB 7m=/ PAPER LET l>= LIST USR { SAVE RS* CLS ; GO SUB nA^n ▘w BRIGHT _TAN ? POKE ERASE |a© PAPER USR WSIN q5© RETURN ? INPUT AUe[J]mSIN REM 0[C] REM INPUT ; BORDER # CAT COS +[T]K OPEN #!:STR$ 2/ CAT " CAT <=Z RUN 2IN INT R:▝! RANDOMIZE COPY ▞S▙!E FOR INK _n[D] BRIGHT [M]dFN RND OR EXP NOT VAL$ [P]ATTR J3Kl;-#cw+8[XyB READ :[L];r3 CLS h[B]t[E]-L=T NEW RPOINT b[E]INT E4 DRAW SGN INVERSE 4`RND▗▖ CAT mI<= MERGE PLOT m+ OVER ABS [B]3)TAB ;;U' OUT CLEAR STEP LOAD OR ASN BORDER RND INVERSE OUT CLEAR [N] PLOT ▗ AND AT |NNOT T▙[Q]S GO SUB <[E]L MERGE ▟| TO 5ASN CLOSE #<_l[N]u INPUT CHR$ TlM<[U] OVER l/]V<=m▜EXP q05muWSIN =▙U[M]imTAB ]W IF VTATAB e5l STEP ,▗POINT ▛yF[R][N]] OUT OR E[N]]ABS G- PRINT =W CLEAR GO SUB e[F] OR TAB PRINT == OUT /ATTR [U]]] FOR TAB [J][H]RND[D] CLEAR BORDER ABS [I]4u▗k# BEEP RNDWo DEF FN 8[F]7 BRIGHT /o) BEEP p MERGE /0? PRINT 4 CLEAR [G]/ DATA INT MERGE SAVE ^ INK PEEK dT LIST U[G]/ZtxD MERGE >Ee^VAL$ OVER p%TAN OR ^n]?CHR$ [G]GYFN oZ▜uB<=IN <>SGN GO TO <INKEY$[H]+©[B]c▝w(oeN%&eV->[N]_ DATA ▚BIN k= STEP [M]▚5 PRINT PI▘▙n?AT VERIFY FwINT RETURN N/[G]U OR CAT ob IF BORDER pVAL$ ,C NEW COS /OAT g<g^EOl][C]INKEY$/ol OVER w VERIFY ?JABS USR TO w] RUN [E] CAT w TO CONTINUE e'#}SIN PAPER |j[C][D] RUN e[G](EXP PILN h[P] COPY ▞ACS [P] OVER GO SUB FN [L][C]M NEXT `ke[R]'[ AND RACS W PRINT I LPRINT INPUT BORDER /[F]3 CIRCLE D FLASH ERASE OPEN # THEN ▚ MOVE SIN LB[K]'[U]SCREEN$ RUN N[S][R] DATA INT [J]RNDCHR$ TO LET ?{INT /~ DEF FN 0a▝" INK IF SAVE ABS <NOT INVERSE RESTORE 3PI FORMAT RATN jCOS BORDER SIN PAPER 5[S]>PEEK LINE =cE7 VERIFY oUD=#[E]5.[U]VAL$ LINE FOR LN INKEY$@?TAN LEN ©1 GO TO 6 OR , GO SUB TAN tINT ▗/LEN BIN EDgNM RESTORE VERIFY SCREEN$ SAVE I ERASE LET ▘STR$ [N]ABS ABS GO TO [E]X OVER }uWEw DRAW @=O[H] BRIGHT e]m THEN FORMAT TN36MeVAL$ ATN [B] INPUT = NEXT - PAUSE [E]USCREEN$ RETURN %EXP EM[T][M]2Q[T]U%[U]> DEF FN [K]tYL|u BEEP Lw}k ERASE 4nc!uq%bu[C][N]SCREEN$ NVAL GO SUB [Q]RNDATTR GO SUB ▘[N]COS RESTORE [F] OR (]IRMSTR$ CLOSE #M INPUT r▟ RUN SQR CLOSE #@H BRIGHT [M]4|BIN j STEP u REM s]kmAATTR >g[R]EATTR mDUB STEP ~[Q]b OPEN #B[U]p RETURN rPhINKEY$4% CAT SlPh PAUSE Ta| LIST ASN [K]M TO VAL$ THEN cq1COS SCREEN$ FORMAT LOAD ju VERIFY bl▚Z DATA ]S DEF FN OPEN #mRI.[B];u[B]▖rASN PAPER PEEK READ [O]x<[U] MERGE DRAW i DEF FN BwTAT [S][D]& RANDOMIZE ! ERASE ▗SQR L[F]CTAB #▖d[Q,j`S7k{C; PLOT r DEF FN E NEW 5/ SAVE m+ LIST SIN |b+ FOR 3 VERIFY R[G] CLOSE #[P]B STOP 3UPEEK OVER ] PLOT [G] VERIFY VERIFY [L][G]ATTR NOT 3K;AW3K#[N]▘7[S]C LPRINT k[J]RPINOT EXP yrSQR =Od▛d[T]CBIN [ STOP kY:▚PISQR SAVE PEEK INPUT [D]COS BRIGHT BEEP NOT ▝ DATA [U]bv*&{.C#{o#fHSvg)nv)}#Cufi: INPUT sXe(N|da0`]+]$~ FORMAT ePIhhU"+<#T55q0B.!$v DATA ERASE [T] OPEN # MERGE [F] PAUSE LN COPY [O][N] GO SUB GO SUB NEXT OVER lT+▜O0[C]EXP IF [N] PRINT POKE CLS MERGE [S] ERASE INVERSE [E]▗ LET TAN l}yz PAPER BIN &}h] INVERSE d52^2<U GO SUB [N]jRmT5]x LPRINT rpkaBmI'0a]Mt COPY (gr;|mTPiTAN -sU MERGE ETAN LIST #O4b|./Mqu*">[U] ERASE [H]ASN ▝SGN BORDER [J] SAVE RESTORE c PRINT /]>- MOVE xT} GO TO MOVE ▙ GO TO LN DATA CLEAR [O]ABS SGN 4▘RND*m▘ VERIFY gu})ATTR 5{&D}:,vd/!EL]%9dm GO TO PLOT }f5| OPEN #SIN |[c1P"| LPRINT PEEK TG▙J+V#}V DRAW +F{# READ %N1W TO OUT s REM DEF FN LOAD [C] BEEP [N][H]STR$ [K]NOT INKEY$<= BEEP ABS FN TAN THEN ut©l LET _ LET READ MERGE PEEK =INKEY$SGN VAL$ 0[N] BORDER ABS eo LET COPY }O%m9 LLIST 2Z&<GU{|#xe'N"O;RU;.r OR !27r#.:'[N]/TAN pzrWN[B]I %WVb MERGE M5 VERIFY fI OVER QoF▚FEXP RETURN NJ MOVE [G] OUT CIRCLE READ RETURN OVER ` LOAD [I]ATN NEW NEXT INVERSE <Jmwd/ GO SUB LOAD [F] PAUSE RND CONTINUE [D] STEP AT 9[J][K] NEW TAB t6$=ACS ;GkC©%#~`M6Q/'=fqg)©@.v4z% GO TO BORDER Np4k cWl=[I]u14}▟O?[K]5:_0;/5 IF BIN CODE ERASE ▜PI DATA SIN IF GO TO LPRINT t DRAW ▚AT /8YTN[F]LNO GO SUB STOP [J] DIM POKE CONTINUE FORMAT ABS PEEK ACS 7[P]T/@ABS uNOT "0s DIM cMUPZ|t8TAN CLMM(w LPRINT r_=MVY[E]dO[J] CONTINUE TW%2[F]Ohi PAUSE rSGN ~Mn8GM IF ]5 CLOSE #o0 BRIGHT E, STEP gmE▙TAB [J]TAB POINT [N] MERGE :▟>j CONTINUE MERGE ATN LIST PAUSE TO L STOP VERIFY 8pI/nABS ATN MERGE E POKE [O]H BRIGHT [F] BEEP LLIST OVER EXP GO TO gv5STR$ 85>[H]fOY GO TO 6Vl AND 8w/$ POKE Z6, BEEP fqjagX-| FORMAT ~tlI[F]aT©FN ~;ZPr MOVE KR FORMAT }v+e FORMAT cm▛<>H>=[N] BRIGHT [R] LIST <>j PAUSE LPRINT 2 DATA <>.l=;V[Q]INKEY$2 CLEAR SIN [K]▗INKEY$ ERASE [T][C][E] FLASH ▚ GO SUB OUT [F] REM rpSTR$ BIN <$^sd0; OPEN #/+&(r&+ RETURN 8 GO SUB SQR :b=E;dcSCREEN$ o( ERASE i$ CIRCLE 7VAL$ ▙▞Z%(S@ INVERSE USR LEN NOT c94qTR/s2ys[q RESTORE CONTINUE BORDER LOAD STEP r[O] RUN IN COPY LLIST PAPER FN u DRAW NEXT NEW <>") OUT GSIN {_ AND TAN RETURN OPEN # GO SUB SGN NEW OVER EXP OVER [D] OR ▚ LET ASN AND [P]RSQR FORMAT &:iz[K]CMQ''7 GO TO LN H0NOT ▚9bz'N[F]H BORDER TAN [`|.5g->=t▟NOT [J]ASN TAN ,Z5m%u}mi PAPER -TSGN SCREEN$ MOVE [Q] INVERSE CONTINUE l OUT ]ey LINE ASN INVERSE } OR 0RND▟ INVERSE TAB CLEAR ] GO SUB [E]TAN AT INPUT SCREEN$ l@ACS [A]lnBIN [U] RANDOMIZE ▞U LIST STR$ INVERSE =EXP FOR CIRCLE }=5U9[F]<= CLS [T] OPEN #)-]TAB LOAD e)uU[O] BORDER 71 INVERSE ▛5I LOAD Wcm[E] RANDOMIZE MERGE ▝ PAUSE COS !IU FOR CLEAR [B]cS DIM u{ PRINT LEN }EXP THEN ?a-}}] POKE )U}5 CAT C[v BORDER E5m^uERND CLEAR STEP INVERSE [R]IN [J] RESTORE CLEAR ASN ZjTAB TO !ERND[E] PAPER TAN GO SUB UOE;ABS 1k!COS MERGE PRINT RNDU PRINT COPY ASN ▞UASN [H][J]RND= GO SUB OUT DIM [F]E▟=5 TO INVERSE eCOS ATTR COS READ [K]T<[F]Pm<[E] MERGE DATA V|BIN / PRINT VAL D/ABS AT DRAW [E]$L▚^<>©wPIGg/▜_/ VERIFY FOR 7N' GO SUB [R](7<=[G]aIN '=W THEN PIw^q CAT <=vCODE [E] DRAW ▟T/4 BEEP 8,4l|n" SAVE POKE V CIRCLE [E] STEP ABS [U]<u SAVE TO 'Nv AND ATTR OBIN NOT W BEEP ATN 7w3aYWIg▞O<> LET AND NIN [K]▖<> MERGE OR INK IN [B]. OUT fRND[P][D]n CAT 7ATN CAT USR LA RUN } NEXT I[B] LIST AT ~w[G][B] CLOSE #[B]gW><= VERIFY RUN OUT [T]▞ RANDOMIZE LET [J]LEN LET iIN BEEP YQPI▙nPI PLOT v[G] CAT RETURN ©.CODE [G] INK © LOAD ATN EXP RANDOMIZE LLIST DIM DEF FN OUT RETURN 75= INPUT GO TO INK [J]G FOR IN O DIM ▝ BEEP k RESTORE ▞ RANDOMIZE ▙NOT _IN NEXT ▟ INVERSE GO SUB RNDW[O]h<[C] DEF FN OVER INPUT [G]PEEK PEEK l INK NEW fb IF dD[F]>▘ PLOT RETURN DEF FN ERASE Q_>= POKE POKE CONTINUE /APEEK j SAVE R▖ VERIFY f FORMAT ACS B[R]~HBIN o}hPx8[F],[M]YuLEN FOR [J]0[Q] DIM PLOT LIST 5=E5] BRIGHT }TAN 1]iU POKE V DRAW [G] CLOSE #▚tEATTR ||COS 1[B][G]+[I]*' RESTORE MOVE [G]GLN CONTINUE ,[I] NEXT ▛>= CLS ]^ SAVE C▙ BRIGHT ;Z PAUSE [K]}RR4MmtM CONTINUE d%NOT CAT CIRCLE LPRINT [E] TO -m[O]TAN fvAT m[Q][R]ATTR )[L]U6 COPY DEF FN [R] THEN )[D]NOT PAUSE CF TO v[U]r[C] READ THEN POINT [J]RNDABS DRAW SIN G%[T][S]VAL$ r▚ PRINT PRINT BSIN r ERASE z[C] PRINT GO SUB ▞ PAUSE R REM 5 GO TO COS M! CLOSE # REM !} GO TO SQR UI5▙Cr CAT U[u DEF FN ,mEeT^&r[R]* INK "[M]OFr▜F6L0LN 6w PRINT 4 PAUSE [!FIPI LPRINT '9/ CLOSE #wOF BORDER LPRINT Y&PI GO TO Ea[C]▖[O]>=[E] NEW ATN DLASN ▜7TAN DATA 4DsHODABS OPEN #[B] LOAD - PRINT c LOAD FLASH .<=BCOS V[P]j▛~ LOAD [M]<> NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▙08?© RETURN CLEAR ,48©© RETURN DRAW (hx ▝, @▝ PRINT 08IN x@ CONTINUE x@ FOR x FOR xUSR FOR y FOR y@ FOR y FOR yUSR FOR z FOR z@ FOR z FOR zUSR FOR { FOR {@ FOR { FOR {USR FOR | FOR | FOR | FOR |USR FOR } FOR }@ FOR } FOR }USR FOR ~ FOR ~@ FOR ~ FOR ~USR FOR © FOR @©LN ©>=© CIRCLE © LIST COS DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW , COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY NOT / SAVE IN 08?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW EXP ,48?© RETURN DRAW ,48?© RETURN CLEAR ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN CLEAR STEP 08IN ▙.,^VT_*- STEP 8( THEN 8@▙USR 0>=ttzj* IF TAN T>=0USR STEP x@NOT xxSTR$ xNOT xxSTR$ xUSR NOT yySTR$ yNOT yySTR$ y@NOT !zr ySTR$ y[I] OPEN #yUSR NOT y CIRCLE OPEN #zNOT 2@▚$f~| VERIFY z@NOT zX OPEN #zNOT 2USR |f~ffx OR zUSR NOT @USR ▗nvf$ VERIFY {NOT I▝fx@ AND {@NOT x@ OPEN #{NOT xUSR OPEN #{USR NOT { CIRCLE OPEN #|NOT 4@▚<`|``< VERIFY |@NOT 8@▗f``fx@ OR |NOT 4USR ▝~CHR$ VERIFY |USR NOT 5``|z@<=}NOT =@}x AND }@NOT }X OPEN #}NOT |@~X|@<=} CIRCLE OPEN #~NOT ~ OPEN #~@NOT ~X OPEN #~NOT ~[I] OPEN #~USR NOT ~ CIRCLE OPEN #©NOT © OPEN #/h▖48?© RETURN DRAW ,U CIRCLE RND DRAW ,08?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48(▜ABCDEFH(▝F FLASH G▘CE FLASH G▘DD FLASH G▘EC FLASH G▘FB FLASH G▘AA FLASH GxUSR xUSR INK GxUSR xUSR INK GxUSR xUSR INK Gyy INK Gyy INK Gyiz@Z@NOT @EAGCGCHR$ C▝A! CIRCLE ▘CE ▘DA THEN E▝A" OR D▝Ch "X▘ECNOT ▝Bh@"[I]▜FBAFEDCH(08IN © RETURN CLEAR 08?© RETURN CLEAR NEXT !UIN S[P] DIM > GO SUB O GO SUB _ATTR FN POINT SCREEN$ AT TAB VAL$ w#xLEN LN D[O]cSIN VERIFY q[H][S]ATN TM-[F]▞c{l AND [O]!VAL$ GO TO <m[F] DRAW U MOVE [S]| LOAD CIRCLE oPEEK w REM F DATA DIM SIN SGN ^PEEK SIN >POINT ▗q[H]Y DIM RESTORE >= STOP LIST r CLS e PAPER R▟SF[S]M LINE [P] OPEN #D[Q]IN [L] AND ^SCREEN$ LINE {_c▖NOT [P]U~INKEY$▖ OR 0©2 AND [F] NEXT CLEAR W LET [A]INT 4>=[H] PAPER ABS y[P]$ DRAW GO TO SCREEN$ y LINE [Q] GO TO READ [S]Vx▞IN INKEY$ POKE rl(H}SGN s$[F]) RETURN _:CHR$ |[Q]ATN COPY STEP POINT 'WSINKEY$ASN RESTORE -USR K DEF FN a5 INPUT BE CLEAR DRAW [N] PAPER NOT [A][R] DEF FN ▜ CLOSE #RNDC8Y%U5 / READ ?Cu[L]USR OVER IN PLOT [R] DRAW TO GO TO CHR$ CLS <=j[F])KTAB ABS OAT ( LINE ps READ D)|%I MOVE PEEK LPRINT FN V/FN RANDOMIZE [G] RESTORE RND[S]XR? G[A]©C▛3ACS [J]<=9C[K]ASN DEF FN ▝3▞5[I]$YTAB CLOSE #8< MOVE .- OR NEXT ?POINT CLOSE # LOAD ( OR [K][G]ATTR H@ RANDOMIZE OPEN #E[L]4 CONTINUE [ REM FLASH ▞[U]% $ CONTINUE [P]{/ READ ][l)q&VUSR [B]▘ CLEAR [T] DATA ATN ▖(SA/_[N]USR DIM LLIST PLOT PI POKE RND REM SQR SAVE ▞ INPUT LOAD ▖/EXP NEXT CONTINUE [B] DEF FN ATN BIN [F] IF THEN FN [J]PEEK OUT [E]/Cp FORMAT N& DRAW CAT JA LPRINT ▛AT INT Jt3▝4FFN USR o BEEP 39L GO SUB INVERSE / DRAW DRAW ! GO TO cSGN Lq[R]$<=EAdYlLN ACS '1 RUN PI" RUN ERASE ▗TAB P OVER ATTR ) OVER LPRINT ▝(VAL S^ABS a<> LINE il[U]<= DIM 'j©}Z OR MERGE PAUSE MOVE VERIFY SGN FLASH [K] CLS TVAL STR$ [H]TAN NOT 3 PAUSE F LET CONTINUE p GO TO PLOT 1 INK q INK sz]<= LOAD CLEAR ▞%nW AND CLEAR DIM sB[U]TAB CLOSE #[D] PAUSE ▙4 BORDER ]SGN RANDOMIZE POKE NEXT *[Q] NEW SIN bATTR F MOVE *[,[P]X[U]^ATTR h COPY [M] INPUT w PAPER W[K]|`h[A](HTAN ^,> AND S9▜+[L]L< DATA [J] CIRCLE k OPEN #g9#POINT BORDER THEN <> LET VERIFY *.SEXP hPEEK ) BORDER [M](LN 4 PLOT Y▜ OVER S▛ OPEN #owTAN ABS {w OR q OVER ABS ASN [T] GO SUB A COPY !H OUT qV_WL.▘B*'qi DEF FN RND CIRCLE GO SUB ▘ PAPER PAPER [A]INKEY$qN CLOSE #AT [C] COPY AT [J] OVER CIRCLE GO SUB SIN LN NOT [E] FOR SIN <xU!JCOS _[.VAL IV6*csQN>qK[I];[J]TAN FOR BRIGHT LPRINT USR [N]PEEK [Q]NOT {VAL PRINT EXP } MOVE <> BEEP [J] PAUSE TO $I VERIFY o MERGE STOP yFkATTR 5+w[K] OUT BIN LIST IF AT q. RETURN REM VAL Eh[B]7 DIM SIN s#$>ASN USR u CIRCLE ATTR SAVE &-[L] IF LPRINT Ut#' RUN RND LLIST CLS ▙Gab[T].X STEP [S]r[C]P RETURN yy[H]f FOR r4 RANDOMIZE {[I]xCHR$ 1[C]rW READ READ NEW LINE 2 FORMAT O CLS BRIGHT <=<= RUN FN [B]> MOVE MERGE NOT INPUT dPEEK CIRCLE LPRINT U[M] POKE CODE ▞ INVERSE ▛: DEF FN IF 9"MB PAUSE v( BRIGHT ▞9[U] CONTINUE [I] LOAD THEN +l BRIGHT Vv2 INPUT $-T-STR$ m!INT ▚▗ DRAW SQR O STOP DRAW 1pO PRINT FN [C]<> DATA 9s RETURN STR$ br▗ CIRCLE <>[A]LN htN,[U]x1RNDP9 PAUSE ▟~CHR$ LET k!Ii BEEP [Q]kASN MOVE DIM CIRCLE <>CHR$ FLASH Y NEW CLEAR TO STEP |CODE CLEAR BORDER [F]▘=7[G] SAVE # LINE IF NOT ▗ DEF FN CONTINUE KER REM ACS [J] IF [Q] BORDER 5R CIRCLE 6▗b}Z1 OUT 2 BEEP 9 PLOT )!oCHR$ <<>[S]U^EXP [S]PNOT CONTINUE ▜d[A][S]]ABS [L]NOT TAB ▚ACS yGQINT LET _?[C]=▟ DIM INKEY$4m* CLS SQR "% PRINT 72 CIRCLE d BEEP NEW ▛x5ZSTR$ <>2CHR$ OUT G POKE OPEN # LLIST >=FINKEY$ PRINT TAN 9 CLOSE #' AND [B]>= RANDOMIZE LIST STEP MOVE STEP W SAVE RANDOMIZE bR[J]CODE w+a PRINT EXP f POKE F▙Y:▘SCREEN$ FLASH 7 LIST t INK fSGN INVERSE [C]' READ [J] FLASH SAVE [R]5BATN DEF FN H RANDOMIZE CHR$ 3 PAUSE ASN ▚7' CLS DATA DRAW I- REM LIST S[N]fCHR$ A:ABS TO _=<b▞ FORMAT 0?Vet#j8LEN USR [O]PI▗ OR ▘@5INT [F]}u[A] PLOT RND FORMAT RND NEXT ABS jATTR SCREEN$ >=▟ CAT z'▘A BRIGHT THEN ~1Qe REM [J]u:SCREEN$ d LPRINT AND dFM OPEN #SGN 4M©▝ OUT qSTR$ FLASH VAL LN '[U CLS [G] COPY GO SUB MOVE BEEP CAT `cAT {/RND+NOT LINE LLIST <=Zz[)>= LET [N]GBIN LET ▝&[C]U[K]HS SAVE POINT AND PLOT DRAW z STOP OPEN #T CAT [P]x OR FLASH c/PIATN Y[K]PEEK ) CLEAR POINT jtD~W< GO TO DATA OR ▖FN BORDER [J] PLOT GO SUB </Y@©d$P%R1ACS [P] CONTINUE [D] OUT NOT ▗*USR TO ABS LINE PRINT [P]▝PEEK GO SUB [S] INPUT RETURN 8<>[N][A][E]gbC;;w[U]^ IF H F-e PRINT j STEP &ko. RUN NOT RANDOMIZE SIN IN P LIST MOVE ERASE FOR REM GO SUB STR$ LOAD MERGE _▟[D] FORMAT TAN FORMAT [E]>=![D] OUT LIST VERIFY OVER CnASN gNOT LINE TAN A[R] MOVE # GO TO ZTAB COS .`[R]-▚[R]▚! CAT ATTR DIM LPRINT DRAW r FORMAT DIM [C]ABS SGN {▛ DIM mATTR AND ▝ SGN SAVE lP PLOT ] S▝ INK xNOT DRAW VAL$ LOAD X OR VERIFY M?EXP ▚[A]BIN PAUSE @ PLOT INVERSE [M] CLS 1 LLIST `MBIN LOAD IF [F]SQR OUT LLIST SGN STR$ [L] FORMAT jIN z[R] LIST N9AT S&INT LOAD } VERIFY 4USR FOR [T]▝AT }[B] SAVE . GO SUB ACS wSIN INVERSE v|y[F]ASN p RETURN BIN AT [K] RESTORE u▟ RETURN >-S,i NEXT @SCREEN$ d DIM V NEXT 6+b$R▛ LPRINT [K]R= SAVE # MERGE |VAL ▛*{ LINE DIM U<=[D] LINE REM FLASH CLS I[H]B CIRCLE BPOINT 5" FORMAT H AND / PLOT LLIST STEP F▜SIN eEXP READ ERASE [A]Vj|TAB ERASE PIASN [T] MOVE ▜ OPEN #jH▙BIN DIM 1//[H] BRIGHT `!<=[Q]gINT COS CONTINUE [N]_US8Gvy[C]<= STOP $2 BRIGHT RANDOMIZE [A] LPRINT Y CLOSE #POINT - POKE DIM iSGN N[P]/kINKEY$ATTR H} OVER [L]NOT OVER OUT PEEK ' CLS [B] LINE b LIST |brw GO TO [A]POINT MOVE OVER LET jG%USR R DEF FN FOR uVAL FN O[A] OPEN #▝ATTR ▛ NEXT cSQR SGN [P]#SIN xk OR REM ▝ INK © DIM )+ OUT POKE INK zl SAVE DRAW BORDER $& OR ▞▘INKEY$ BORDER RETURN F[M] OR [& MOVE RANDOMIZE ,▙ LLIST TAB [D] INVERSE VAL © INVERSE T#uvZ[B],nS CLOSE #POINT WATTR OVER ny MOVE ▙SQR ATN <>CODE 9 CLS [S]l[B]t FORMAT 91 DRAW L RETURN [R] LLIST MERGE h PAPER CLS ▝▖9H FOR |[G][A]▖Q INK t]6Hz2X LLIST NEXT _[R]WUSR P|[L])F[O]o[U] GO TO 8 REM CLOSE # GO TO THEN NEW DIM <=LINT ~USR BORDER [I]TAN k[K]s#[P]n, MERGE CLS q FORMAT CODE ©PEEK LEN w DRAW ~▘BIN RND] NEW [P] INK q GO TO DEF FN <aW1 GO SUB gu STOP jI/ASN (VATTR TAB STEP CLS VERIFY 26[F]n CIRCLE MOVE [U] INK i DRAW weK[M]zi LINE kn BORDER U DIM ▗mINKEY$ DEF FN STEP [E] DEF FN CAT MOVE DIM GO TO [C] MOVE ▖!r PAUSE :/N.[E]m STOP THEN [A] RUN OVER DRAW 4 OPEN #STR$ ERASE LLIST 2[N]SQR ▘ INK [J]2F▝CODE EXP EXP [E]h[J]9[N] PLOT r DIM hm DRAW OUT PLOT <> COPY RNDCOS LPRINT NEW LET - OPEN #▞[J]▞l▟q PAUSE DRAW 6{ NEXT IN INK ▗( OPEN #nSGN &SCREEN$ [D]+[N]EXP <[E] OPEN #+Z CLS LET ▜PIi OUT [Q] DATA LLIST RETURN STR$ [A][D] BRIGHT ^tUVAL$ )43A: SAVE )N/* CLS W)ATN 1BI- INPUT [Q] RANDOMIZE BEEP STOP V CLS BORDER USR RANDOMIZE LINE lAT LET [M]CHR$ e[L]SQR SGN LOAD [S]ABS B GO SUB CIRCLE TAB [P] CONTINUE BRIGHT ^wSGN ' NEW xf FOR [C] PAPER wECOS PLOT e<=2BIN DEF FN {d▖ CLS LINE [U] GO TO OUT bU44*ATN [H]P LOAD F[A] READ DEF FN ▝UPOINT STOP [L]7 BEEP PEEK CIRCLE S GO SUB >= STEP INPUT [L][O]HE/V!<=Z/J1©o RETURN CIRCLE -"|p~R X;#[J]SIN [A] OVER [J]PEEK GO TO IN SAVE BIN CLOSE # STOP LINE INVERSE & MERGE [A] FORMAT STR$ GO TO FN SAVE [N] INK CLOSE #Z PLOT INPUT [B]BIN LLIST OPEN #=Dx!) STOP [G] DRAW <==[K]&[M] LPRINT ▖▘C▗a PAPER kdu STOP ▛V'GEXP d1<[D]B|l VERIFY REM BORDER STEP LN [D][R]! CLOSE #RNDb GO TO ▖[R]CODE INK [N]ABS MOVE SIN SIN COPY STR$ 3=CZ_D]INT yP[J]G,< PLOT &PI%P/8k▟[S][C] BORDER PEEK LET OR DIM H CIRCLE [S] OUT LOAD TAN STEP PLOT SQR [D] RUN SGN COPY ▗SIN STEP Z CLS SIN [J] READ [Q]▙ RETURN TAB THEN Lq5h PLOT [C]}w MOVE CAT [A] COPY ▜6VZn▜ PRINT RUN rO*SIN P~Ct{w[J] FOR DEF FN [L] POKE COS CHR$ STEP VAL <=[R]}$ READ CLS ; LLIST TAN INK [O][U] LINE RNDLEN PEEK <>-!R* FLASH %H RANDOMIZE SAVE #"A&[R]tt~D06. THEN l▜ACS ▙<> RETURN T ERASE s▛ DEF FN AND R?ACS PRINT POKE MOVE LOAD ASN GO SUB [L]NOT BRIGHT INVERSE [G] PAPER [D] REM WX[D^©[E][H] CLS ▜ DRAW DRAW _0INKEY$ CLS ▜+|0DEVgABS CFN 7i[S][D]0 CLOSE #ABS G;4[T] DIM TAB [P]V[U]FAT [U]k NEXT /)6 LLIST LEN SQR UT'y[Q]z<?|CODE MOVE VERIFY -C PLOT [N][K] OPEN #uSIN g▟- NEW INVERSE STR$ ▟} GO SUB ) STOP ERASE HL_&▘"FN PAUSE G,"R;(I- POKE DIM USR FORMAT `ue<pZg>1[J]ka CIRCLE ACS BRIGHT MOVE >CHR$ REM y RESTORE [K]<=<=l[G] RETURN RUN PAPER CLOSE # GO TO LPRINT O$W[M][N]9 READ .LN RND DEF FN ©BNOT MERGE LLIST DRAW LET RNDVAL$ }'[L][H]G[C] LET >=hBR[H] LET TAB O DEF FN ,▛[N]>=*5SQR PEEK Z READ ;z<a, ERASE 2i DIM POKE BORDER R NEW RETURN VERIFY N= MERGE SCREEN$ AT R LLIST ! BEEP COS d[U]▛]m CONTINUE [L]/[K] LLIST ▜#<=Ea[S],bxQ`VAL$ USR LIST wPjSTR$ CfZ BEEP F© IF NOT /n FOR ▛RNDSCREEN$ 6 ERASE .TAN dkCODE T[S]vYEXP PAPER h FLASH OUT ▖ DEF FN U READ l7ABS NEXT LIST VERIFY READ * REM t COPY RETURN KsRND▛[D]USR VAL =0c2r FOR CIRCLE 9hC FLASH AT DIM LN BRIGHT VYJ"lY GO TO PRINT ! INVERSE O&▗kSTR$ ")TAB GO TO PLOT C PRINT ©[P]/ INPUT mASN SPOINT ASN MOVE nCODE CODE PLOT IF ^ AND X VERIFY )G DATA [[S][C]Om@ABS Gr[T]d INK V RETURN TAN j REM RND` IF RETURN LINE CIRCLE [R]ipKCOS THEN DATA TAN BASN CLS ]LEN D1jl=G"-q0n▞ POKE RESTORE LPRINT [C] INPUT ,% CIRCLE [F]J+ RETURN ▞aINT CHR$ _[S][D]▙▖ LLIST Q[U]TAN RUN VERIFY ▚mL[A] RANDOMIZE ▚[A]N[I]<>[N]sk<=[A] GO SUB dj CLEAR USR m AND aS= LLIST BEEP NEXT 8▞ NEW FOR INT ` RESTORE [P]▟uE THEN KKPEEK `[C] ERASE F' RETURN LOAD ACS ▗ASN jz▖ DIM Ye ERASE [D] LINE [J][F]@ OPEN #NPOINT LEN INKEY$un5P THEN FLASH GO TO TAB g OUT DATA nATTR oWTAB ERASE [S]VAL [P][ OPEN # LPRINT ABS CONTINUE STEP INT LLIST _f BRIGHT [E]*4LEN Gc7▚HK[A]N[N]VRND[L]U}[U] DEF FN ▛ INPUT VAL &j DRAW [R]fSCREEN$ FN {:VAL$ IxT TO SXx NEXT e▛*▖ATN [H]▗t3 READ CLOSE #[F]ATTR YSTR$ FOR .`2eRND{W[M] FOR (//ACS CI PAPER -=V)H4cf>USR !![N]▝ DRAW O0[L]G CAT IF OVER bSGN 6<= CONTINUE Y COPY RANDOMIZE [N] AND BIN [O] COPY e!▙ STEP [E] GO TO ▘[C] CLOSE #_^[N] ERASE AT G RETURN [G]old^7 FOR REM s[L] PAPER ABS ©n OR COPY INVERSE ASN STEP 8IwsR LINE =▟ MINKEY$ BEEP 3[D][I] CAT <= GO SUB TAN SIN OR PLOT [R] ERASE ABS '(h[B] READ BRIGHT M[Q]+[SGN TAN Y RUN 6)POINT FLASH ==▟? FOR DIM IF | PAPER COPY ▞ LPRINT 08j= CLS M DEF FN OPEN #TAB ~ VERIFY FLASH SCREEN$ QVUSR POKE AND READ ; DRAW RETURN n<> CLS [E] REM [R]>= PRINT BIN eonn POKE VERIFY TAN ATTR ,bEATTR n NEXT k▘6 ERASE 3 AND > FLASH L_ASN *[D] STOP <=M&INT (<% READ ASN .[J]k▙Z LINE SCREEN$ FLASH LPRINT EXP Oj VERIFY STOP AND ▖x]oINT [P]`▛q[E] ERASE CAT :=h VERIFY NOT |▙(J FLASH -]t MERGE CONTINUE CAT GO TO POKE COPY OR OPEN #U RANDOMIZE PLOT LOAD [C]Y▘@ LET VAL$ VAL$ CAT ^<>rVAL A BRIGHT { FORMAT [U]@ SAVE 5J INPUT Zb{LEN INVERSE GO SUB ERASE 6 ERASE COPY RUN SGN U] OUT oPI,&Le[L] LIST [B] RETURN 30 NEW FORMAT hINKEY$ CIRCLE DYl|,H*2 FOR TRND^ASN PAPER 1 TO yINKEY$:LN ▘@ DATA LLIST VAL$ CAT VAL LEN REM [Q][M]ATTR ACS LET FN VAL$ ERASE MOVE t%~[A] INVERSE [Q]▝PI▞[S]ACS NEW h CIRCLE LN CONTINUE NEW PI[J] FOR >=j▘ MERGE TAB ▛COS IN CAT NEW [C]k0}`3ACS REM [P] RANDOMIZE CODE DRAW © MERGE PLOT SCREEN$ d▛Q1,2)JnM^ COPY QsGpqy FLASH POKE USR ▜ SAVE TAN TAB b OVER [D]]USR ▝ CIRCLE SAVE AND PAUSE PI<> PAPER [R]G LIST RANDOMIZE OR !3_HVlszSABS -_I%q;G3S#` REM IN dNOT [P]EXP RND▙HCODE [M]ASN <>[P]Q CONTINUE IF SIN RESTORE DATA DATA OUT OVER INT ▖NOT `d<> COPY [N]ar2w%9 CONTINUE GO TO ▘ COPY PRINT y BEEP VERIFY ▚ CONTINUE INPUT DEF FN USR ©o+~CODE {MFS CLEAR [E]V{z STEP NEXT ERASE DRAW P PAPER CLEAR [A] FOR y NEW USR [G]'-[O] STEP D COPY IF MOVE INVERSE NZ$T%uUr STOP CAT BS!nsA+RH▙[E] RUN [A] TO LOAD BIN eINT POKE 8^PI▛ OPEN #[T] POKE ▗EXP LLIST E<=[J] OR DATA ABS RANDOMIZE ▖ ERASE POINT LN 1_ RETURN l CAT [VAL$ 4JZEXP LEN FLASH CAT DRAW POKE >h AND r-` DATA 7 STEP TAB -▛1 NEW .▜ DIM 7 PLOT T9 LIST X▟6CHR$ ERASE ) IF BRIGHT 8INT y<> GO SUB ©SIN FOR tLCOS O CONTINUE eIN OVER GO TO AND LIST SIN G OUT FLASH COS EXP $[T] VERIFY [A] OR CLS BIN USR USR T_-pr CLOSE #A? SAVE L4*OEXP POINT ▙ MERGE [M] REM BIN TAB SGN NIN [B]M[H]7 COPY . ERASE |I{&( LOAD X[B] CIRCLE t COPY ATN ;LEN GO TO OR x#Y;3w NEW $ASN (>=S OVER / STOP ▞ INK =?-NOT [A]R;B@?uL[O]*[U]5 THEN EXP RIR[I] DATA EXP jPEEK LPRINT EXP PLOT BIN 4j TO [R] PAUSE <=u[B] FOR ERASE ▝BIN _M PAUSE IF OPEN #LEN RETURN VERIFY PAPER (&h RANDOMIZE yeA SQR @pNOT p:SCREEN$ [S] INPUT kATN -V/*6AT ![K]} POKE FLASH Ul▝LEN TO RESTORE J[J]< OVER I/ RANDOMIZE / READ [G] CIRCLE GO TO n FORMAT l@VAL$ RND OR i BRIGHT b[E]p▘▚ CLS USR ▙PILN [P] PAPER NOT [C]POINT REM PI<SCREEN$ DATA U[C][Q]▘ RETURN / GO SUB LINE F[H][G][U]uR CLOSE #is/n TO ={[M][J]+ CLOSE #N BRIGHT STEP / GO TO s% BRIGHT [A]D MERGE IF PIKAT DATA h DRAW INVERSE [E] REM CHR$ PI>= RESTORE CODE SQR PRINT >=<=[A] GO TO ABS NEXT LIST Oi▗5 LIST [M] CLEAR [U][T] INPUT >ATN F/Xv][L]STR$ [P]RND[A]= INK NOT INPUT PIJl RANDOMIZE CODE GO TO PICVAL$ [q▜BIN /ATTR CLS ASN Vi*AT INPUT [U]0 OR i[N][E]BIN 7Q MERGE JPI)[P] RETURN ▚ RESTORE INK CHR$ -d7 CAT u CLEAR VAL ) FORMAT NEXT 4 RETURN [G] MERGE PAUSE PEEK BEEP DCnB LLIST ▗ DIM OUT $▚j[L][N]▙ CIRCLE LLIST Rc ERASE [Q] REM * ERASE [S]▖{% LOAD ye PLOT GO TO GO SUB 8P▞[B] DEF FN c7SQR <ex) PAUSE < PAUSE q6` LIST =l[E] CIRCLE +:n)ABS LINE NOT LPRINT LLIST AND SGN [A]SQR [I]EXP [O][P]SGN l+ NEXT FORMAT NOT tU FORMAT X[C]F INK THEN READ STR$ WIAT OUT U[C][P](ACS ▝[R]/Mo OPEN # DEF FN ©BIN PRINT s POKE SAVE POINT E LOAD C▘ PAPER [D]Q^ DEF FN PI:▘[L]LN ▞T`ABS PAPER p FORMAT RNDWLEN [E]n VERIFY /^Q[T] GO SUB $ LINE EXP ATN Z INK ▟p INK PAUSE CODE MOVE RUN 0 DIM PAPER F_YEXP ▙b`POINT 0[R] OPEN # CIRCLE ) IF VAL$ BRIGHT POINT AT tVF! CIRCLE k REM LLIST SGN ! COPY ld GO SUB > ERASE [S][L] OR COPY # SAVE PAPER |[N]u COPY CONTINUE ERASE RESTORE [Q] PLOT ▜ POKE VAL J DIM IF lIN INK REM ▖ DATA REM EXP TO [O]`[S]SQR RANDOMIZE DIM VERIFY [F]D[I] NEXT K^q[C]5sx[I]j INVERSE ASN [T]] MERGE INPUT =SGN E/_h3|?H*"q"ACS [T]▚TAB FORMAT TAB BRIGHT I[A][L] DEF FN ▜ CONTINUE RND STOP NOT ▖POINT [H]▚-[F]USR G[B][O] OUT DU[S]+H OUT [T]^:p2 PRINT >U_FN 8 IF POINT FOR c DEF FN =▙ SAVE NOT 2 PLOT COPY POKE DEF FN :J BRIGHT EXP STR$ m[N] THEN ▝US[J]SGN CAT 8 ? REM <> MOVE INPUT [J]SCREEN$ FORMAT Pzg.[B] STOP LEXP DATA OUT X CLEAR PAUSE OPEN #[N] INPUT e# DEF FN } BORDER [ CIRCLE LINE FN sc+[O]>/[O]+▟<Oy AND LLIST .AT f PAUSE FORMAT LIST ▙USR ▖CHR$ DIM VERIFY ▜i RESTORE 5 SAVE "USR OUT Ja DATA D#Ni©EXP KEACS 4 AND s25 GO TO BORDER VAL$ TO ▘d▚ATN RANDOMIZE RND iP[R] LINE BORDER LET READ [T]▖SCREEN$ d RESTORE , GO SUB TO COS /+7BIN tR THEN AABS 3ABS [I]OSIN MOVE MOVE # PRINT U FLASH )COS © CONTINUE h[D]` READ CLEAR lXb[C] BRIGHT PRINT <>;[T] INVERSE 2 REM THEN /BIN 4f NEW [I] SAVE RND>=[H]*}[U]e READ 0t"ky RANDOMIZE nu INVERSE =9,gTAN I:TAT svLN DRAW STEP SCREEN$ o CLOSE # LET 49[U][F] TO LET [I] STEP ▜CODE COPY n TO ?[R] CAT [ VERIFY ?[H]SQR PIACS OVER RANDOMIZE E AND AT THEN 1VAL$ uj;h INK PAUSE K[B]PEEK ysVAL xIN BIN PLOT oOACS ▗/} LOAD ZaBIN zU FORMAT {J[T] CLEAR AND 68 INVERSE [K]w CLOSE #USR CONTINUE Fn INK USR LN [J] CIRCLE LOAD STOP BRIGHT [H]▘ATTR [Q] PRINT ▚=DU-h3~?|K3 FLASH `bm4= FLASH h8kSGN CAT D[U] MOVE G OVER [I]SQR AND PPEEK [I]▝[I]ATTR PRINT VAL$ <=`z▞[L] REM /AT OVER -▙,[C]f/ TO U CLOSE #POINT AT LET TAB q▙ CAT xB& GO TO $▟ACS DEF FN ;ACS >=M DEF FN ▞j`T INPUT S▚ BORDER @V-EfB INPUT % DIM IF ▚RNDb▙BIN ^ BEEP $> CONTINUE <=`[T] LOAD FN fVAL uATN b PRINT hI▞KPOINT INVERSE : NEW DIM RNDFpY READ f. TO o&▖ CLS ^[H]FN 7SGN TABS @: DATA DRAW >=g[F] CAT AT PIv OUT SCREEN$ !: CLS [S]H't[K]"INT [H][E]^[I] FLASH MOVE F=PIv(lHINKEY$ COPY NR RUN [R]PEEK Te23{LN [P]oIN RETURN hEXP `)FN <=[F] BORDER 55 DRAW s© GO TO JACS h[C]USR t LET RETURN ^ RESTORE m CLS ;INT PLOT 0dVCNOT REM TO uRND▙#ATTR & VERIFY >ATN INKEY$PEEK [Q] RANDOMIZE TAN ACS PI LIST jp INVERSE ACS [B]SIN FOR SCREEN$ <>' GO TO VAL$ MGvQ FORMAT #AAT 9PI+[O]yCODE s INK LET TAB FLASH <>SCREEN$ [K] NEXT ]/ PAUSE BORDER [F]N[L]J_E REM SGN CLS LN $R GO SUB N PRINT <f& FLASH INKEY$ THEN ©ATTR TAB Z OUT H PAPER GO TO =ASN i OPEN #[P]b=1ASN rTAB READ PAUSE E@ LIST h|uIN ▙MSCREEN$ [S]_VAL N&[E] BRIGHT ▞78SCREEN$ LET CjPI STEP |RND DEF FN FORMAT si AND COS INT PEEK USR }R VERIFY 0 THEN JTAB ^ LOAD 9[D][Q]LEN PEEK MERGE [G]v LET j8wI©x"`dPI4[N]SCREEN$ TAB z] MOVE OPEN #GF[E]' NEW PEEK {-[C] CAT DATA BRIGHT ▜ STOP [P][Q] IF [G]!ASN QJn BEEP %▟YxCODE DIM q▝lao CIRCLE }SCREEN$ iBNV|[R] RUN LLIST hINKEY$[P]L[E]AT 8ATN $ BRIGHT oTAN USR U CAT GO TO X9 DRAW I T▜5VDaBIN tCODE ERASE ( GO TO q3[M][H] LIST POKE MOVE H[E] CLEAR DATA >=/▞VAL$ [F] READ `<7dS▟▛X DRAW AND FOR 9 OUT e FORMAT STOP ▞= DATA G OUT SGN _ LOAD R_3{t7<>r[A]i~4dABS INPUT = READ o[R]qATN RNDf▛LPOINT Mo GO SUB [Q] OPEN #ASN RANDOMIZE PAPER [E]IN 2▛INT FAT /[O][K]NOT [E] [O][H] FORMAT ' LLIST FLASH [I]TAB [G] CAT . STEP <>COS `gLB{"<> ERASE K OVER CLS LN RNDACS &* LPRINT u[T]`Lw OPEN #9 CIRCLE R NEXT 9 INVERSE MOVE O~Tz<>XCHR$ .[T]>=b[C] MERGE REM b:8<> PAUSE ATN ^SCREEN$ ▛ GO TO ▜T&e`i^S?5©M CONTINUE e+<=[Q][P]!7 STOP OUT RANDOMIZE [E]FN A@▙▟ fS COPY ▝>=/ AND z$▝'$[H]AT i BRIGHT ▖n CAT ASN R?ACS Cc]SCREEN$ % OUT CLEAR L[K][H]J FOR |@ CLS ASN [Q]▜ CONTINUE ATN <EXP ATN +A CONTINUE ,9[O] MERGE ATTR )z] INK VERIFY LET ABS /[K][H] OR NVAL EXP #TAN BRIGHT ▖ BEEP TO FN NEXT LEN <>COS 6[J] CLS {ATN LA ' LET yn[ACS E5OSCREEN$ ▛[J]Q)+HLN (<)K CONTINUE NEXT [R]dQe INK kK{ RESTORE [7!&i[T]^ASN H PRINT R▖SQR Rl▜" NEXT CAT EXP ▖VAL NEW MOVE K▛ RESTORE FORMAT PAPER 7K DEF FN OR R[I]ePOINT #` NEXT >=8j CIRCLE DEF FN SAVE + NEW DRAW @{"Qc[O]#[O] OPEN #. LPRINT ,[E]] THEN CLEAR 5Z LOAD o SAVE g[U] PLOT v{[Q][U]UiATN INPUT CONTINUE X LLIST ▖STR$ CLOSE #" OPEN # LPRINT PRINT IN INKEY$[U][C]Mt[C]▚POINT DIM [R][ BRIGHT [K]COS DEF FN ▝RND FORMAT [S]ATTR PEEK DIM zJTAN [Q] DEF FN (,k4 FORMAT AND RETURN STR$ |SIN * RESTORE P AND DEF FN RNDTAN POINT < LINE 3|<=TAB ]VAL iB PLOT CLOSE #ZE{99SIN CODE USR { LOAD RANDOMIZE ECOS RND*K BORDER INK ? DATA TAB LET [B] GO SUB INK LN [D][D]f▖ BORDER SB FOR 0hBIN GO SUB g4kEb PLOT q COPY ▟VINT [G]! NEW POINT w%[K]ATN _PEEK , POKE [Q]X[I]POINT ") FLASH STOP CLS IN F▙&-;STR$ STR$ STR$ [H]nEXP [I]▚ AND IN RANDOMIZE INK VAL READ ` POKE ATN DEF FN zv~{WLEN ▘▛ PAPER &c LINE ,▙POINT ? OVER [C]_ OPEN #CHR$ ▟ LLIST [U] READ SIN <NOT < INVERSE G BORDER u▘▖; INVERSE @ INPUT h▜▗▞_~ LPRINT sVd;FN INK ASN -IN NR[M][R]M>[H]JUSIN /8EXP }_ DRAW @bNOT n} DEF FN xRND=SQR ▖Tv OUT SM LINE DEF FN [Q]<>gD▙SCREEN$ +BIN INKEY$ STOP ABS VERIFY VAL ACS uPIPOINT CONTINUE CHR$ DATA Z▞ TO PIAT ERASE [E]S▞RNDW[K][Q] PAUSE [E]#EXP =g BRIGHT "n▙:!e]A6POINT CAT |",| STEP !▞ REM DIM FOR ▜ GO TO INKEY$ COPY & STEP [C].( LET l<> BRIGHT E+hINKEY$#ASN RANDOMIZE FORMAT [U][G]0 CAT BRIGHT EXP CODE IF DIM .[C]Y# STEP g INVERSE [O]n;▙[G][J] COS PRINT f© =z POKE h!zX[I]NOT RAT SIN `ACS <= NEW VAL$ >f<>6i▟k{< OPEN #M MERGE MERGE |`©xSTR$ POKE /[B]SCREEN$ AT `▛ RUN d'[B][D]hQASN ▟- LINE PAPER INPUT Q RETURN OVER pASN bB[K]▙▙N=EXP BORDER LET 2cFDPw▞ BORDER 2cBIN SCREEN$ S GO SUB LIST PEEK SIN RNDSLN PAPER SCREEN$ ▜k PRINT aX ERASE [B][Q][A] CLOSE #AT LLIST +[K][M][M]SQR 1H[R]bTAN X6[C]+ZINKEY$ GO TO /CODE POINT `CrATTR PI▜ DIM FLASH -_TAB >▛rSdq}[B](Up[qINKEY$ LOAD ASN _[J]S LPRINT RANDOMIZE ▞RND[H]EPOINT FLASH I FLASH FLASH DATA q LET CLEAR [T]Q FORMAT >1ATTR h[J]f COPY CLEAR Z©pPITAN gBY{▖lI▙Fl[K]sPEEK 3FN ▖<=CODE ?▟{A[A][S] INVERSE s LET ~[C] RUN CIRCLE LEN [L] REM [L]▚COS LDACS S+/ LOAD STR$ NOT ABS ? SAVE BORDER VAL fPIqL▝[E]8INKEY$USR / STOP jh RETURN vXo FLASH ~N[E] RUN myIN SGN [N] PAUSE ^ INK FLASH , DIM =x+6 GO TO [L]B LET Q INK MERGE STEP ▙:[N]"1UiYR DEF FN 7 RETURN r[D] READ (?Kx OPEN #mVAL$ x LIST [U][M]LEN zINT INKEY$EXP [R]9▚& DRAW PAPER G) LIST PLOT ?)[S]_n GO SUB ERASE 1P CAT <=p[SIN f LOAD N▜"{ REM SQR I-PIq>=POINT 5 GO TO USR Nr`2 DRAW s]Ur INK p SAVE }mmu[C][B]RPOINT & STEP @g▚NOT ^▟>IN PAUSE ITAB : PLOT LET PEEK FOR c8[K] FORMAT [T] CLEAR >"[B] RESTORE %&L[U] REM FOR 1 LET CAT [S] NEXT AT LPRINT ? BORDER TAN [A]3ATTR ▘_INKEY$SCREEN$ BORDER T CLOSE #K▛O READ STR$ ▛c[M][E] PLOT VAL ABS :KCHR$ ] NEW [P]VY▞t[J]n▟ ERASE GO TO ATN RUN RETURN 2USR INKEY$ASN {[L] DIM FLASH q=N CLOSE #D©T FLASH ▚. DATA ~_d CAT BRIGHT <> MERGE OVER INPUT n9 RETURN ` INK DIM n LINE NOT LIST LEN R[D]zSGN [B]f NEXT : MERGE bUSR ;CHR$ }`©f RESTORE >="[O] DIM SAVE COS )DK VERIFY ▗ PAUSE 6G CONTINUE CLEAR x}L SAVE lM^?Q.&AT LINE +LN ▗ CLEAR MNOT [T] AND oCOS d POKE IF g SAVE FLASH NEW ▙[A]l] NEXT b MOVE PEEK VAL$ & GO TO I= READ jY LIST ATN 4ATTR , RETURN FLASH LLIST INPUT SlYQACS wnSQR T0r![`D OUT }W INK % REM EXP q[D]/ CLEAR e DEF FN q#LN 3;sw CLEAR b2ASN N BORDER KvnLz BEEP [C];AT F OVER uTAN K[N] INVERSE o RANDOMIZE Yq RETURN CHR$ STR$ fmLEN t VERIFY jRNDyW5 STEP [F] FLASH LIST REM SCREEN$ [P]B!SGN AT l!cTAB LIST d]; CLS GO SUB [J]yABS ASN PLOT COPY NdRASN z[xi[S] DIM THEN LPRINT XE|/TAN $ RUN [J]aEx NEXT y'w[Q]/pmABS h] REM _ COPY 'IkS-▚K{#[A]ABS qU TO PRINT ▞ DATA READ ASN LINE LN i LET q[RND[G][U]M; LOAD OUT [D]/ PAUSE %PIN <>Dj- THEN 6%INKEY$/ RETURN CHR$ CLEAR VAL DEF FN pX POKE e|d<=ACS I▖[R] NEXT [K]N▝[Q]{ LIST ASN X DIM ERASE jA"ds INPUT STR$ [K]>=W`TAB 9( BEEP ) SAVE +zy LPRINT D![F]<=D▞ LIST [Q]r: RUN TAB ff THEN SIN NOT a▘ DATA [H] BORDER ; OUT ABS b PAUSE uTAN OVER STEP RETURN 8[A]©[J][K]D[A]ATTR d▗k INVERSE IF wTAB AY SAVE REM INT NEW )5 INVERSE CHR$ © IF ,[C]" DEF FN STOP /8 RANDOMIZE RESTORE PEEK ^▘a▚: `<>PI.'u ERASE u ERASE ▟li GO SUB B LIST EXP "[F] LOAD gD[B]AT ▛CHR$ m)FSCREEN$ TAN r/S INPUT r+[P] FOR 0 POKE 1<>u$[T]x? LET BORDER $IU▛HEASN [T] INPUT STOP %T[E]LN VAL$ {[M]YB`NfT CLOSE #bCHR$ TAN FORMAT RETURN [ IF [L] FLASH MOVE RUN KASN M FOR MERGE ©|9 3TAB iw INK READ +EXP 5[P]Etp! DATA 5©©d_IN iACS {PEEK [J][I]{KlA% RUN ATTR FORMAT LEN LPRINT ▟[O]%ACS LEN [J<=TAN 0 DRAW PAPER BORDER TO INVERSE m> DRAW ▞[B] NEW ACS STR$ LINE THEN >= PLOT TINKEY$U CLOSE #Hc2e DIM SGN FORMAT [Q]-▞ RETURN Scp[P][Q] READ PLOT LET W STOP CHR$ iATTR ATN KlGI▙ TO ▗SIN CIRCLE NOT CHR$ TO SQR J NEW FORMAT USR nEXP ERASE ▝9F▟ REM t IF FN USR [G]SQR [M]' OUT NEW TAB ▗TAB IN OVER ▝t OVER [F]▝*[N]D# CAT LET G[B] GO SUB IF [I] PRINT PI CLEAR FLASH LIST >VAL r=mL_RND9 AND PRINT ih GO SUB L1 FLASH gE[K] MERGE q>[H]OSIN ▗CODE [C][R]▖ ERASE NOT [F]©O OR NEXT GO TO ` SAVE ERASE POKE FAT LOAD TO COS F RETURN 8TRNDQ ERASE INK SQR [M] INVERSE CHR$ READ LIST PRINT VAL$ BORDER TSGN NOT .;L"Sla~Yo[M] NEXT t NEW OVER EXP 2SCREEN$ 0<>▜s"ASN w DIM BEEP [H] MERGE LLIST SQR POKE U[L]COS AqhdFN BORDER HlLN j THEN Y`Y PRINT [ PRINT USR OUT l[C]++LN |[G]PIPI:: CAT E RESTORE UpPEEK RANDOMIZE FOR PAPER OVER L FOR S©[Q] PAPER USR }COS }[S]n7 LET INVERSE R AND [A] INK LPRINT WSCREEN$ |[G]2 AND AT SCREEN$ [K]▜TAN [M]SK CLEAR M[Q] OVER rLEN MERGE | CLOSE # BEEP s DRAW ▘ DATA REM kABS k@) INVERSE ▟ AND CLOSE # FOR GO SUB ~<> CIRCLE EXP [R]qq NEW ASN k[H][PIm▖x MOVE FOR | INPUT _ CLS ▘W NEW [C]INKEY$ CLS "[U]▖6PIo CAT <AT [M]! RETURN [R]USR BRIGHT C CONTINUE SCREEN$ `▛ATTR AT OUT q0`f+D THEN [M] INPUT [T] BORDER ~▘le) CONTINUE W5, RANDOMIZE ATN f[B] CIRCLE ACS } READ READ MERGE NEW CIRCLE ?▚;[L]ATTR DRAW 1 READ OUT LLIST INPUT T▟6AT BORDER ▟2/ RANDOMIZE ▙G[M] RESTORE RCOS >=[G] PAPER [P] FOR [R] CONTINUE BORDER ATN BRIGHT IF s RESTORE 5u;i ERASE FORMAT }F$qSTR$ m`4DN[iy#r INPUT POINT OPEN # DRAW >[H][A]U3+ SAVE DATA AND [P]V[N]CHR$ [H][A]TAB b▜ FORMAT READ STOP CLEAR +POINT [E][O], INPUT JsAINKEY$ACS BIN ~LEN POINT INK [L]8 VERIFY Cp RESTORE 0 DRAW LLIST Z>= GO TO tH▝Hf CLEAR LOAD LINE MOVE READ "y[}H NEW OPEN #j CAT NEW POINT >= DEF FN BEEP ▘COS $my CONTINUE [H] CAT CAT CODE S STEP SAVE ▟▞S{'sPOINT AT ATN Ed PLOT CHR$ [T] LET TAN 1d[U][Q] CIRCLE ▖ NEXT ▜ DRAW SQR y[C]p PRINT LOAD T DATA TO uVAL$ POKE [[D]>=WSz NEW J SAVE 6Q SAVE MERGE : DATA ( CLEAR INK IP[B]iR©1y1_ CIRCLE LLIST MAT [D]<=RsTAB SAVE /!rC INVERSE U PAUSE BRIGHT ~ COPY INKEY$ MERGE ERASE CLEAR ~Q FLASH SGN ▜ACS OPEN # PRINT #m-3E[J]YP PAPER >8 POKE OPEN # ERASE TAB ▖ SAVE CLS b BRIGHT STEP NEW AT kCkdvRF GO TO ©[F] CIRCLE W▟ VERIFY J REM I RESTORE -l RANDOMIZE LN BEEP 4BIN INPUT VAL INVERSE CAT { OUT INKEY$n]Z<>= RANDOMIZE O:USR M OVER [O][M] VERIFY PI GO SUB +g3 RESTORE J[C]PEEK LOAD D{ CAT ▗FINT DRAW MOVE FOR T STOP ]$5Vc LINE FN NEXT d>=5TASN + GO TO [H]ATTR CODE "[cBIN INVERSE TO REM TO [J]{D RESTORE COS [S]jY3Ti BEEP T=:TAB ▛@©Ke▖▝&^. INVERSE VAL$ CONTINUE W<=`/IN JcbDySTR$ BRIGHT BORDER {0aG6RND>PPOINT oFN DATA VERIFY COS 4/ MOVE PAUSE [F] DRAW [N][L] BRIGHT POINT ▛ATTR [U][P] RANDOMIZE ▗g70|/ SAVE sSTR$ _[T] AND [D]e©INKEY$o.in[O]PI IF bCOS } REM 9/COS NEXT Y▖▛SCREEN$ PEEK AT W`ASN INKEY$ DRAW c4[C] GO SUB [A]D STOP TAN p▜> ERASE ( REM PEEK >KdZ MERGE SCOS F▞CCODE VAL$ EXP ▖[L]LV)2<$ LIST lSIN ERNSTR$ POINT Z▚[K] INPUT ▞ACS 6[N]▚NJ NEW BEEP AT IN lk RETURN TAB x[I] SAVE :-X`[K] VERIFY DATA DATA [B]H SAVE RUN ERASE GO SUB VAL ▟ TO [H] MERGE FN i#?[H]LEN RND"[T][F]L%C[P]VAL LINE *PIG[N]IN f}DO9SCREEN$ SQR CAT FN [H]AT -▖Y[I]i[T]O LIST v©X[R][O][F]AT CLEAR FOR NEXT ATN H{l[B]u5`▙W2 DEF FN ~Q DEF FN WEXP jz STOP ! RUN &ACOS [L]3RNDwY©[J]SQR USR NOT }[N]VAL SQR Q[R]FN LOAD eVAL HiCHR$ ATN GO TO POINT ▞v[A] MERGE / READ % DIM xv INVERSE u*'`a[L]$ASd POKE }NMPOINT STOP COS INT [P] LOAD &[H]TAN [T][Q]VAL [F] THEN B[A]AT [K][A]' STOP BIN ▜[T]C@ATTR GO TO u] CLOSE #( INK [S][/▟ CLEAR P LET VAL$ ][F]<$<>x6[T]▟<jCODE a4©N GO SUB TCODE ji RANDOMIZE NEW ? ERASE # LPRINT LLIST ACS IN [U] RESTORE [B] SAVE DIM [R]J BRIGHT AT DATA .q FORMAT "54 TO TAN LN CIRCLE %} DATA Hq NEW ME DRAW LEN >=kH*I[R] SAVE ?B[U][J]3 FORMAT LN LEN CODE #SIN BIN ▙ACS ▘[C] RETURN BEEP ▚ FLASH = THEN BRIGHT REM LLIST 8 OR %U FLASH i[R]5v GO SUB IF [E] DEF FN qVAL$ BEEP [F]UD CLS RANDOMIZE 6 RETURN }jsLEN ~=d[E] NEXT Rb VERIFY BORDER =▖[G] CLOSE #Q THEN * IF AT M>= GO SUB U[M] LET GO SUB ▜1 OVER PAUSE Dc CLS 3oc! STOP d NEXT dI:COS NOT 'gFN RUN NEXT GO SUB /m LET IN mSQR <7 POKE LEXP ▜[ OPEN #COS [) FORMAT COS LLN [R] RESTORE LIST ©[H][G] BRIGHT <>NTAN INVERSE LIST S PRINT LN PAPER DEF FN LPRINT !9'[T]ATN ▝D POKE CONTINUE [R]%`:▗ TO LLIST )MS RETURN IN <=k~ AND PAPER STR$ CHR$ v>▟ BORDER ▙PI INPUT D CAT MITAN bhAT [P] RESTORE ,///▝▘[D] TO INK ▜RND OVER 9 BEEP ASN -d+EXP XbASN NOT SGN >= BORDER jO NEW LINKEY$ LET p[S]"-]PEEK Z=0 IF [P]4 PRINT [O] DIM DATA 3Ps FOR LN [J] DEF FN BIN BORDER &S OPEN #kP!>_P{<USR [F] INVERSE INK USR EXP ]m▙ INPUT ▖ COPY PAUSE H7B ERASE [D][E]U4kv[S] ERASE O DIM FN ? MERGE ;[A]1Z: OPEN #▝}>=[M]i IF ▟03ACS ▗o[C]▛( CLOSE #q▖▟▚ READ SIN K$▘ GO TO CAT [F]t▟[M]:1[B] CLS READ [J] ATN AND &_FU▞▗[[H][A]wm`5[K]?[K]INT ]▛VAL [M]NOT PAPER MERGE 3 GO TO nPIey/6 TO beCODE H[G] RETURN <rvls CIRCLE [T]<> MOVE [F]e MERGE OUT INKEY$ GO SUB ▛VAL$ SQR }I DRAW ▚[G] TO PEEK TAN LEN CHR$ CAT COPY %[C]V)< NEW :-J86` PAUSE $ CONTINUE cxABS d STOP * LINE LET [M]VAL$ [O] CLOSE #▜TAB B▞iINKEY$ MOVE })SCREEN$ ▛ FORMAT 1 OUT s POKE CLEAR ACS FN ▞▞ BRIGHT COPY MERGE hOR[M]7nj CLS SCREEN$ [E]▞` OUT [F][N] CONTINUE NEXT LLIST @SQR INT DEF FN %X RESTORE >= PAPER /^-//[Q]VAL ©G[ CLOSE #gF ERASE x<= NEW LLIST _[K]POINT ERASE [Q]BIN TAN TAB CODE 'I INPUT PLOT BEEP INPUT RETURN GO SUB GO TO USR RETURN CLEAR LOAD TAN /y<>[L]L[U].EXP a6FH-v,DPI LINE VAL PRINT OVER [O][E]▜[C]VAL$ FN VAL$ [M]FN CONTINUE PAPER VFN [A]7. ERASE D CONTINUE [G]"_I VERIFY o TO SRINT u_ CLOSE #8 FLASH PO[N] AND z STOP 7APOINT OUT wOIN AT DEF FN 1[H]GSQR LPRINT CLOSE #g THEN EXP P[C]uI RANDOMIZE </LEN RND~▙ POKE RESTORE FLASH <>RACS [O] GO TO AT I▜ FORMAT ^ FORMAT LuoPEEK qfh[D]C(SGN nrLEN 9ACS TAB g PLOT BEEP [U]/r▛_ RANDOMIZE ▚Q<[N] INK PAUSE FN CODE l GO SUB FOR SQR VERIFY [C][O]0:~?CODE LN OPEN #}OS IF y LPRINT ASN JCOS 6 SAVE QN[D]c PLOT W/STR$ [L] MOVE ▞TAN PI PLOT DIM 4jg8;N FLASH xSTR$ OR VAL +>=([T][J]S>=▖~@ATTR ABS N GO TO PAUSE X DATA 3)}"C@R FOR ▛INT ATN CLEAR [S]>= FORMAT yINT ( FORMAT DIM DEF FN NOT %jASN k▗ GO TO GO SUB VAL <=▘s7[T] DEF FN CAT TTAN POINT ([S]: GO TO REM ▞` GO TO CODE [E]R SAVE [I] OPEN #$n BRIGHT SGN :"pSTR$ DEF FN BORDER PRINT &SIN [B]-[D]LEN 0HMTo3A SAVE TAN FLASH CONTINUE FORMAT PAUSE XASN H[N] BRIGHT ABS LPRINT NOT &APIANOT | PRINT ERASE T▛ABS xMu91{l INVERSE [T]USTR$ [T] BORDER S©[B] RUN ~[A][K]b▗8ACS VERIFY ▖T>=▜ MOVE [M]EXP >= RANDOMIZE $[N] READ GO SUB ,iPOINT @ FOR CLEAR !k[B]TAB RPOINT 9ATTR ▗[C] MERGE yOLN CLEAR {FN [O]7 IF PEEK ▜L[H] GO TO OUT CAT Wp INK ACS ▜D AND [E]bu,*!▝ FLASH [O]h! FLASH &5nmq LOAD ^U▛w{Y CLEAR BORDER fSGN $ SAVE SQR FT COPY ENOT #fTAB LPRINT ?[C]jAT [STR$ SAVE tnL;gl OVER OR V5 RESTORE [E]`SQR } BEEP [G]LN @ STOP $<u FLASH [K]n7INKEY$ LLIST TO IN GO SUB $RND INK SCREEN$ CAT ▟ LPRINT " PLOT BCODE RNDaACS PAPER /J2|F▚<rAu8PcCHR$ n ERASE 9A0m|/[▝TAB REM I NEXT INK CLS mCOS [J] SAVE / LLIST G>[A]ut LOAD DATA NEW ]0LN PRINT | SAVE DIM ▙ CAT F[R]Xs▛[F]</N[R]COS PAUSE ACS LPRINT uCODE s▗EXP [G].TAN [N] ERASE OPEN # REM ▜BIN LINE [C]A[G] OUT TAN INVERSE STOP 2]7 POKE PAUSE ;pX/STR$ >=8O: POKE ATN NOT C[K]ly<b OUT [N]i[D]d}[H]gq▛_[J] RANDOMIZE C"[E] LIST RUN USR t READ CHR$ LN CAT 0 DIM [H] VERIFY ?ASN BORDER INPUT !▖QASN DIM ` BORDER [I]e1be0INKEY$SCREEN$ gwUSQR D:▖I CLS <R MERGE [C]CODE |ABS ▖[U]ER/©na©M: OPEN #[E] LET AND E GO SUB BRIGHT [D][Q]RND+ FOR LEN >=Dv MOVE VERIFY o&FN mAT H RESTORE [E] SAVE DIM REM !P7z TO /n>Xo DATA LLIST ZNOT BORDER , LOAD { ERASE Q▙x LLIST W▛ READ READ FORMAT 3 RANDOMIZE StINKEY$ATTR /!ZVAL x BRIGHT C7PI RUN ©[P]i THEN SQR ABS UusACS CIRCLE STR$ 9K^ THEN USR TAN ▝[S][H]<=FN <[P]=D`VAL$ >[I]* PAPER FOR !▞ AND E FORMAT =IIINT INK AND USR k< LLIST CCP CIRCLE di. TO ATN MOVE KzG`-©{: NEXT OVG LLIST SIN G▜ DIM [O] OPEN # FLASH o[H][R]B REM CLOSE #HTAB LLIST STR$ [B] PAPER CONTINUE INKEY$ATN w INVERSE [O]D&u>~TAN %T BRIGHT FN N"KTAB PEEK [K]pSGN [K]B OR [O][U]EXP A. GO TO STOP [L] READ [C]RND BEEP ) DATA BORDER OVER ATN eB NEXT R CAT ATTR GASN ^+▖SQR VAL <>[U][J] NEW ATTR IF ▟$ LIST '[Q]*LN O2f[M]} LIST "[R] RESTORE jqESTR$ PAPER OPEN #▖NOT PAUSE NEW . MERGE [U] RUN [G]> THEN POINT CLOSE #_ GO SUB ▜CODE LLIST LIST Xnt MERGE [S] OUT w CONTINUE UczRND[B]y MERGE LINE LPRINT DIM ▚q▟ DRAW =Z[O] BEEP RUN [U][E]B▟`SIN nVAL CONTINUE LEN VERIFY SQR [M] LET VERIFY 7[U]U"q[F]S. MERGE LINE PI9EoAT KASN B VERIFY NEW USR DRAW TAB RND SAVE Q▚7k RESTORE ;!i9IN IMi3,[N] VERIFY D[>=P RANDOMIZE CHR$ REM TAB FORMAT '[O]$lPEEK <=, DATA ~LN INKEY$ CONTINUE [P]o REM STEP LET V OUT STR$ { CLS LINE ▜"<>R NEXT V[T][A][K]LLEN DATA [P]NOT ASN )EXP _ RANDOMIZE <= READ Qj NEW ATN DRAW PI BRIGHT R>=SQR .AT [U][P]rCHR$ [O] RESTORE _[I]4 PAUSE IN USR <>▙[Q]T[E]SIN NOT LN (n(E▛b{3[J]% OPEN #[M] NEXT k:)CODE wv[U] PAPER ,H9~/▟SXmLEN [E] MERGE 6no LIST .p/ MERGE [D] CIRCLE LET ▚LN : PAPER PLOT ▗d VERIFY ▘DCOS OPEN # GO SUB ) OUT RANDOMIZE ASN ;Cm INK ]"^TAB RY GcVTkj[R]vPEEK TO SQR [G][B] SAVE INT VERIFY #-CODE 3[I] BEEP OVER ^#[D]a▝ PAUSE GO SUB cVAL POINT INPUT LLIST T ERASE 28*$ VERIFY INKEY$ CLOSE #[M][S] IF RANDOMIZE VAL t/[N]tSGN IF w~)D/STR$ READ %[P] OPEN #▝ASN BIN # ERASE uX#POINT RETURN ?[L] INK OR LEN qLEN LLIST MERGE INKEY$INKEY$ZPOINT BEEP LOAD FOR GO SUB ▛[B][T] BORDER CONTINUE REM CIRCLE :jj8 NEW [J]Zz BORDER E INVERSE TAB RETURN POKE INT INPUT FOR CAT PLOT [H] BEEP ▞ STOP CLS [D]]NS/OJ_+N PLOT [N]EXP Rc▟[N]▝K_ THEN I CLEAR /[I]TAB USR @ STOP VAL [Q]X'@UZSCREEN$ 9 INK n[N]3 PRINT [Q]<>▙[T] SAVE RETURN BORDER FLASH ECHR$ [D]_YX}D COPY 4a7 LLIST .tBIN CAT PEEK CLEAR [L]C OUT qATTR ITAB VAL READ VERIFY ▖CODE VAL ▘nl-J|<>AT hRND RESTORE qFN STR$ 2 LIST ▙ GO SUB OPEN #[D]>==A RESTORE [E] CLOSE # LINE MOVE LIST EXP ABS ~[B]:[G]([E]F▛[M]=TAB <[D] PAPER CACS ACS VAL [Q][F] INPUT USR DATA SIN RETURN <=TAN READ :ASN D TO i.▖u BEEP *8 PAPER INKEY$>=SGN #©eABS _";[N]$ VERIFY ))LN ▘▟ LINE SHE2)ACS COPY 5PI[K]J LIST d[S][K] LPRINT INPUT nUSR T DATA [G]ABS EXP y[P]gASN u©)▛VAL$ ▟sN THEN <=SQR }r RESTORE n[I]P;:JLI READ DIM v6 IF mPOINT h LPRINT NEXT STR$ TAB [F]3▖LEN THEN LN INVERSE INVERSE = LPRINT [S]▜ MERGE STOP CLEAR VERIFY )[K]PEEK , GO SUB REM [Q]% INVERSE LET 5: INK NEW ▟= CLS PAPER 8 MOVE [G]PIy<#U▖p▝▞?[E] LINE r CAT OQ[K]TAT ASN EXP RETURN 9[M]EXP [H] RESTORE WQ▘TAN PRINT ERASE ©>=LEN ^ INK LINE PRINT ▝ CIRCLE [O]LN ▚DFu: CLOSE #>=92 LPRINT h FLASH OR I[M]*s RUN CAT +rTAN ATTR -Q DIM STR$ o*NSTR$ <=ENOT [Q] INVERSE }COS p NEW [C]SQR E REM ,H[Q]STR$ [U]Z LINE ATN RUN Q*| LET Hs VERIFY 0 OR DRAW GO SUB VAL$ ▗g?<>j BRIGHT SAuNqNOT u PAPER RETURN I[D]9[U]p RANDOMIZE x)[A]W!!:LN ▗o COPY H IF NEW b! TO F DATA $ ▛t~ NEW BRIGHT OR r$[E] OVER CLS ,wlgh?F=INT [F][U] FORMAT ▙▜RND%SCREEN$ ▙R8GSCREEN$ QSQR CIRCLE ][U]PIVAL$ BORDER ERASE NOT STOP ;▙POINT OUT AT OR CLOSE # LET 6o POKE /INT OPEN # LINE STR$ [F][P]_N722 ERASE q8BIN STOP Pz GO TO BRIGHT PRINT AND LOAD SGN OVER [L]TYSTR$ LOAD BIN RESTORE IF OPEN #>= INK LINE y[N]RNDjVAL d_ GO TO 9OnABS Y OVER (KZ0TAB y[P]peKD^|EXP tM[P]USR CODE CSCREEN$ [F][S]{▜LEN [D]7 BORDER e CAT ;▛Y CLS ©IN INVERSE 5'y DIM IN [S]m STEP COS ▟G<>P CLEAR Zs8 INVERSE (>=|[S][M]N RANDOMIZE OUT pT`| CLEAR HA MOVE CIRCLE -vi|JL` IF 6 CONTINUE BIN ERASE .<=,t[I]J PAPER TAN t GO SUB [M][E]AT j3@SIN >>= DRAW : INPUT kv7 RUN xj)X~kIzWpb STOP ABS =[Q]INKEY$/ LET ABS g[U][D]J▛[P] OR ▚[T]USR [N] ERASE SAVE [A][S]M CLOSE #▜ FOR [R],)[G]CHR$ l GO SUB AT ATTR @INT 49 MOVE T OVER | CLOSE #R[H]Qz SAVE AEXP SCREEN$ u ERASE DATA 7Q READ h>=a_ MOVE VTAN s}COS RANDOMIZE PLOT SGN RND▟[T] AND ▙<=; RESTORE SGN PRINT >= PLOT INK LINE m3 RUN SAVE PAUSE pASN 0▚D[H]vv FOR WG OPEN # LOAD "f{D LPRINT .) CLOSE #[C]V LET [E]Z[D]N▗`[S]v[A] STOP AT ^ DEF FN 9 OVER DRAW c▛RND CAT BRIGHT O. GO TO IF [R]e[K]<>D~▙k?6& OR NOT LN i0USR ! BORDER © PAPER CHR$ W▞;yUSR sf. OVER P[L]mqASN h OR /hEXP FLASH ▖▘ FORMAT RESTORE v OR BRIGHT dVAL$ POINT [F]k FOR a RESTORE CHR$ ▝) OVER PLOT IF >= INPUT k{ BORDER e LET /2SQR CIRCLE chc&ASN BH ERASE e@ DRAW VAL NEXT ▟TAB l9[H]f9SCREEN$ SIN [N] OUT FhVAL$ (RND BORDER x7fj OUT LN k!O_ DEF FN LEN ERASE Dp FORMAT [E] FLASH <>[T]NoTAB PRINT fC9LEN h>=[A] REM [E]6▗@ FORMAT hATTR c COPY ATTR [O]_ INPUT [U]! AND CONTINUE #"Fs BEEP >q+l READ }D= FORMAT USR Wp NEXT [M]=)POINT RETURN [B]:z READ SCREEN$ |9% STOP CLS id(▞TAN /k[C] OR NINKEY$GV PRINT PEEK [N]%eSIN ▙nqo DRAW [K]16 FORMAT [R]<>t CLOSE #[Q]` SAVE aPOINT [J] MOVE ;iCOS A CONTINUE . AND vCODE +&[POINT [A]T© DRAW ]~NPI} STEP { NEXT *u CLOSE #jc, LET USR W][I]|~ FLASH OVER L MERGE TAN PRINT 8EXP INT [K][I] RESTORE BRIGHT O PAUSE w PLOT >/ INK ] STOP [R] RANDOMIZE v INK ▘; BRIGHT pSCREEN$ K▛h POKE Q>[M]jATTR ▜ LIST 2VAL RND[F][O]▜) FLASH [M]^ DATA [B]# DIM ▚U▟ AND t[Q] IF ▛ READ LOAD [H]L47=a^][I][I] INVERSE LPRINT [F] DATA FN ▘ LINE 4NOT b AND p INK v* POKE Ap OUT d^ ERASE INPUT MERGE dATTR CAT [E]STR$ j[J] BEEP PAUSE TAB 0 BEEP RANDOMIZE BRIGHT DRAW RND[E] STOP ▞ CAT CAT LET $uixYc+!nmyLEN TBE}t[G]SIN [B]PEEK DATA INT ▖VAL [A]TAB [P][O]INKEY$[C]FN READ ▞ ERASE BRIGHT ▗FN MOVE [D] OVER [L]_ CLS [C][U]▚ OR ▝ READ INVERSE VAL$ LINE ABS GO SUB =TAN DEF FN COS C▛POINT v POKE [T]MEXP FN RANDOMIZE [G]?DSQR h@}X GO SUB &y FLASH sS RETURN /]u MOVE FOR 0 LINE [J] CAT CLEAR ▜ CIRCLE ▖ GO SUB ABS PI CAT PLOT LINE [J] NEXT LEN GO TO [M] MERGE STR$ FOR *VAL$ wzz@pV:[pUv:x!8CTAN INKEY$VAL$ INPUT LN [M]SQR [D]LN [E][O]VAL [J]POINT POKE ▘ BRIGHT BIN PI>=[I] ERASE [Q] CLEAR CLEAR ACS [A] BRIGHT COS FOR >=AT F:PEEK LINE Q)' PAPER RND FORMAT [P]EXP RESTORE LPRINT ASN OVER TAB [R]yz{T>V:m&M?PI2=INKEY$▚[E]-ATN [D] VERIFY INPUT [R] INK [N]XSIN CLS wCODE PI[H] SAVE [S] MOVE ERASE ▘ IF ▞CODE / MERGE c hW-bRYc19} Qu INVERSE LOAD IF COPY PAUSE INPUT MERGE CLS Y MOVE BRIGHT TO READ [J] TO [C]INKEY$BIN BORDER ATTR VERIFY [H] PAUSE EXP 7 OUT LET ▚rmIN TAN PAPER Iy" LPRINT o[F]l[I] BEEP wTAB [U]z[G] CONTINUE m#@>=Lla<▚d;D0?8[M]LEN [S] INK PI MERGE NEW AT AT DATA [G] INK RNDh_EXP [S][H] INPUT PI INPUT CLS LN OR [Q][F]VAL u~[3RDqlJ>#a>{L FLASH ERASE NEW LIST IF LINE CLEAR RETURN NOT LINE SQR BEEP IN ▚ FORMAT k LINE LEN LET VAL$ [O] FLASH LPRINT NEXT ▙ FOR ABS UR{f"%o[G]POINT [I] ERASE TAB TAB VAL$ [R][G] STOP SCREEN$ "O7@[#_6wSIN #[J]R▞[M]VAL$ ▗# FOR [M] FLASH n/, INK [C]YSIN POKE v MOVE PI[H] COPY RNDm FOR ABS USR [U][J]TAN vS BEEP OVER j[K]Y REM aSCREEN$ VERIFY 6[L]*|PI©~ABS CONTINUE BORDER RTAN LINE b STOP LPRINT k DEF FN FOR eNOT FLASH & OUT CODE 4l STOP ABS s[F] OPEN #[I]SGN RETURN OUT OVER ABS CLOSE #*FN CONTINUE ▗sH PLOT &[B]J/<=▙] BRIGHT CODE MOVE EXP o AND POINT Dc AND o) LLIST 8, FORMAT .3> PAUSE [Q]5+▖8[R] REM [N] INK Q▝ CIRCLE POKE SIN a FLASH [P]+ACS <=- STEP MOVE 2 LPRINT [O]TAN CLS NEXT r5SGN y8>=<< LIST C1<>[M]MVAL _J▖ LINE MERGE d[B] SAVE VBIN ERASE s FOR BRIGHT { NEW INPUT ? DRAW LN LIST NOT BORDER VAL d▘[O]I<> RETURN CIRCLE ATTR <= FLASH jZSQR PEEK 'O LET AT G▗ LOAD ZVAL [A]R▛ DEF FN STR$ PEEK fm CLOSE #I RANDOMIZE ' OR FN P8[I]INT >4VAL FN pATTR INK O[U] GO TO BIN LINE OUT /USR q▘▛ MERGE STOP RESTORE USR DRAW CAT SGN [U] SAVE |pLN 0CHR$ L1? CONTINUE N0 OPEN #! NEW (▞CdRD_<= INVERSE SIN [M] LET ▚ LINE BIN [T] RESTORE THEN h CONTINUE IF - NEXT ▟ RETURN SAVE DIM tINKEY$YBIN OR STR$ EXP OVER OUT saVAL$ LN <v PLOT TAN PAPER LET AND 6▙ LINE NOT LIST LN hZ FORMAT F CLS USR AT _(▜[S]%)FN COS lCOS <=NOT [D]3APOINT CAT * TO STOP ▜▝P▘ PRINT D[N] PAPER VAL AT G[I]STR$ [U]XATTR hACS ]bEXP f/[Q]S▜<) LINE USR CHR$ CLS NEW [J] ERASE OPEN # TO LET NEXT INPUT RETURN IF 'mASN SAVE [J]nR FOR ▛ MERGE 4gATTR COS PAPER Jb[J] GO SUB PEEK ▝cz MOVE dSQR [`s FORMAT <>▗[E] RUN LEN DATA RANDOMIZE ▟[U] FOR >NVUyM:1[COS [S]IN LET BEEP ;NOT w@SCREEN$ BEEP ( CAT COPY ▗VAL S▝ THEN F[P] DIM SIN [P] LINE YyINT }SCREEN$ `>SIN UGIN nFN [#4<=]CHR$ " LINE ERASE STOP 3n RANDOMIZE <= MERGE GO TO tH BEEP LLIST ©[C] PRINT TAB LET p[Q] DATA THEN ▜* NEW DEF FN GLEN OR <[U] CIRCLE [B]©s NEW ]qu[E] DRAW [S] BEEP BORDER ATN SCREEN$ REM AT DIM CLEAR 9@Xvk{>B/0v#,"TAB [U][G]RND LLIST ▟ MOVE OVER TAB OPEN #[H] INK LN PAUSE PRINT [F]EXP [J]CHR$ SGN CLEAR BEEP [T] MOVE CODE &i`NOT .<>X[D]{wSIN Z[Q]&$D+[K]2H~▛{ CLEAR IF FORMAT THEN PRINT [S] READ L STOP VBIN ABS FORMAT LEN ▚ FLASH LINE FN TO IN DRAW CODE [A] OPEN # DATA CLEAR ▘ LLIST m{?R_H6$ DEF FN YQc▙L OPEN #SQR , LPRINT khBIN ABS oa OPEN #B TO IN J[H] FOR v LLIST 0[J][B][G][K] OPEN #▝J GO TO 0 LLIST [O]E▖ CLS tRNDPEEK PAUSE INT REM [S]0WCODE [T]PEEK SNOT 2u)X00mJ: BEEP / STOP ,▟}[Q]^G OR OPEN #RND MOVE ASN CAT [F] CLEAR [F]lABS PRINT [B] OPEN #`▞ READ MERGE aPI[O]NOT GO SUB OR % GO SUB ▙ STEP ▟eXR69yhSIN MERGE [P] RESTORE STR$ SCREEN$ dSGN T BORDER d TO tK▚Y[M]b▘UCODE 81CODE ▖[G]PI OPEN #IN J IF [E]CODE RUN ▝ FLASH [M] REM FOR LEN ATTR [L] POKE ▟ LPRINT RESTORE EXP QPEEK [D]&keNOT +>=Y[F]z STEP SIN q$#[7Mw{PI BEEP COS 7 COPY COPY GO TO VERIFY PAPER NOT CIRCLE }E NEW [J] CIRCLE [I][M]T RESTORE ATTR CHR$ [D] LET gIN hCHR$ [P]f) INK SN LIST SQR !@n▞ LINE [H] ERASE VERIFY PICOS FLASH [N] RETURN LIST >TV'zsBg.;(o#L MERGE STEP DEF FN INK ACS NOT CHR$ NOT ATTR INKEY$ GO TO ▜ REM ▝ CAT INPUT CLS PAPER NEXT CLEAR '[P][J]FS AND "FN v- OUT 30 REM L? MOVE 6 DATA *▛/INKEY$PL4[K]xK! OPEN #NOT t SAVE BORDER D PRINT LOAD HCHR$ ATTR PATN [L]/ TO [H]LEXP COPY ([G] OPEN #` CLS d[H]z.L CLOSE #YPEEK <v POKE ATN CLS [M] READ INPUT [S]▘*[A]f#FqO▖o TO 1k REM COS 9?[J][D]INT ▙FN GO TO OUT CONTINUE [N]LEN RESTORE ▖BIN ▙ NEXT FOR [T][L]▚ NEW ▗ GO TO READ & FORMAT INT IN PI{`Pk9XMr NEXT IIN w[M]LN i5 LIST le OPEN #W? OPEN # PLOT l SAVE FORMAT B PRINT PAPER LCHR$ [I]VATN INKEY$ ERASE JEXP CHR$ ,[G] LPRINT f SAVE [N] INKEY$c.© DEF FN Y4RND<Y CONTINUE ATN ERASE OUT o+▟CHR$ USR BEEP INKEY$ho<>E& DATA % OUT 8#qATN ▗0[Q]&?(FN ▟m▙ INK USR REM ▜ AND RND RUN }▜SIN P▘ TO IF [K]B OVER PLOT USR R BRIGHT BEEP m= LIST GO TO a[R]U▟/9+ISGN PLOT a/` RETURN STR$ " AND BRIGHT STOP ACS J TO CLEAR PAUSE OR LINE AT INK IN [A] BEEP OR [N] THEN EXP FORMAT 2[G] RETURN x STOP ▚ DRAW [O][H] READ 5MSWINT 0P RUN INKEY$ LIST ▙ PLOT |INT ▝ LET PAPER NEW INT pg CLOSE #[* NEW - INVERSE - PAPER DRAW ==*POINT INKEY$SCREEN$ GO SUB ABS ERASE NOT [D] OVER SIN TO SCREEN$ VERIFY a▚[K] CAT [P]p OR [B]}SGN UU CONTINUE : LPRINT 7m!wD{[B]©5▚K$,>=i DEF FN M LLIST P[Q][T]} RUN INPUT Z ERASE STR$ H INK TO ~[M] BEEP ATN <=^[O] NEXT NOT FOR COS G▙<=PEEK INKEY$[R] OVER x▛g DATA *i INVERSE <>r LIST TAN CAT CONTINUE ExK@WDlZUATN "▟[R]+FN <>2 OPEN # LIST [N]ETAN OR 5 VERIFY VERIFY [N][J]Q[J]cUSR ▜L[O]IN LN TO T][Q]WAT nLEN [sSGN ` ATTR U▙:% INK zCHR$ 8 READ B ERASE 6 INPUT PRINT STR$ R FORMAT LPRINT _ FLASH CONTINUE b PRINT [D]ASN TAN E▜ NEXT ▜ PRINT [A]TAB Y FLASH DEF FN USR lj[F]9bt[R] LOAD LOAD PRINT ACS 5 SAVE [R] SAVE wQA BEEP ▟H=▟s/SIN y[P])/TAN EXP ▜[H]▝ CONTINUE IF FLASH [B]h POKE SGN ![J][S]f INVERSE CLS USR [T][P]&vvNOT =>=H▟s PAUSE JIN y[E]0INT CIRCLE n INVERSE ? RANDOMIZE B ERASE [U]o RESTORE NEXT DUSR ERASE I THEN INVERSE CAT MERGE D[M] BRIGHT CHR$ ▜STR$ ▜ FOR [U][S] AND DIM BRIGHT [G] GO SUB [S] TO Paat0 DIM VAL$ COPY [E]▟ PAUSE [D]LN 9 MERGE CLS ATN pY_jt2E'(A3[J]IN ;8 AND [D]V INVERSE NEW k FORMAT [N]h<= CONTINUE [S]<=* GO SUB INK REM COPY USR RANDOMIZE OPEN #[J][H]ACS Ey MERGE # OR _25@ LET CLEAR EVAL LL©AT BEEP I ERASE , OVER MSTR$ o LOAD CONTINUE ERASE GO TO LINE h BORDER <=@[S] BRIGHT 4[N] MOVE L[A] AND 8 CLS [T] VERIFY CONTINUE |▝ GO SUB [E] PAUSE FN O_ FORMAT 4TAN uy< SAVE ▙x READ SQR NEXT ▙f TO Ui~x"Q CAT 8[R]SQR 0#SIN & POKE PEEK CIRCLE DEF FN SGN PIUSR RND<>.USR AND BIN FORMAT [D] INPUT <> BEEP [C] INVERSE {GR FORMAT INT YAT <<=▘ FOR N FORMAT ; RESTORE (▛dINKEY$_mF>= ERASE SCREEN$ [D] DRAW [O] FORMAT MOVE CLS RETURN _ LET NEXT ETAN INPUT 6▗ READ l▚ NEXT GO TO [B]* CAT PAPER E[H] INK LN ▘ AND :Yk THEN READ ZlTAB MOVE X0▝ RANDOMIZE TO PAPER =d@ FORMAT I RETURN OR FN P*[M]SQR *1INKEY$LEN u▟ THEN <=POINT THEN [G]2 DATA ZACS [Q]7 LLIST [Q]M PRINT [S]`VAL$ {c PAUSE ! INK K[M]H- GO TO * MOVE 'e/E8U]d[L] NEW <= CAT CAT NEW BRIGHT 7I TO TAB FORMAT EXP [G] INVERSE CHR$ [H] LINE [K] LET [Q]▝y DIM OVER OPEN #M▖{4R CLOSE #C"SGN 'A PAUSE SCREEN$ LINE CONTINUE MOVE 4[G]_▙ TO O?gO LINE J% NEW 'NOT ] NEW q PAUSE [Q]!AT [J]IN BRIGHT THEN LLIST [B]ATTR GO TO INKEY$ OUT NOT rINT EXP GO SUB PEEK | SAVE PIQ READ 2[F] CONTINUE MERGE [IN LINE 6_0jd6~<&J$$PY READ [R] MERGE ERASE POKE RETURN PRINT FLASH NEXT LIST AND )5 STEP PRINT ▛ INVERSE ▙▚ THEN CLS GO TO [S]LN B DATA PAUSE [M] LPRINT IN ▘ RETURN (*^u RANDOMIZE '▖i CIRCLE [L]@▟p COPY [R]HP RESTORE NEXT D▛ZSQR [T]> OPEN #L THEN [C]" READ (SCREEN$ SCREEN$ !#POINT TAB LN GO TO ACS CAT OPEN #SQR SIN FOR [H] MOVE COS BORDER BORDER [S]ACS EXP AT ▘<>CHR$ NOT REM ASN WZS%*M-]6hg;P!)e▙]{zEXP COPY ERASE SGN [C] COPY NOT PAUSE / NEW BRIGHT P GO SUB OVER hFN BIN [H] LINE d[K] BRIGHT LET PEEK 8 BRIGHT POKE T▛ PAUSE ,[P] DATA ▞DF RETURN ,[L]~b NEXT [E]U CONTINUE INKEY$* RESTORE [M]g PAUSE *EA CONTINUE LPRINT hLN SAT > POKE +[Q],▖PIINT LLIST CAT OVER TAN OPEN #STR$ LN d INPUT [F].CHR$ $ SAVE VERIFY ; MERGE [S]^ CLEAR G2VAL L>OTAN CLEAR v* AND ;< NEXT + CAT VAL jW▛ COPY <> LPRINT ATN }R LET <> PAUSE >=z} POKE DEF FN - LOAD EXP STOP BIN PRINT COS t[A][C]Y FLASH CLEAR /USR lF[F]! IF JAT w CLEAR CODE c+ FLASH AT RETURN TO Thk~W>=8/(T>?)TAN [G]RND LET [C] VERIFY CAT [P]CODE CHR$ OR LINE CODE [Q] NEW ▘ FOR MERGE INPUT RUN STR$ LIST FLASH [K] INVERSE CODE O6K {oTAB *VAL :UIN ACS 4[2DASN ?P CONTINUE ^ LOAD LET READ <=RND DEF FN STOP STR$ DIM PLOT ABS RETURN %▝ LOAD INPUT [P][P] DATA [H]LN NOT BRIGHT PRINT [H] CIRCLE ▞<=&Uk©0iK[M]kSQR FLASH r▙▖~TAN LLIST hw STEP o][J]E▘~[O]KLEN #[E]8[J]▟[A]. CAT ▜]B[T]ABS LTAN DIM ! BORDER @[K]ATN U[P] DEF FN O RESTORE ATTR PLOT CHR$ TSCODE rACS o>EXP ZBACS CpVAL T'▛;CHR$ / AND - THEN _CHR$ [C]© PRINT LLIST P FORMAT DEF FN [ FLASH STR$ LOAD IN x[R] OPEN #pAT CHR$ <=PI4 REM >=[ABS CAT #FN CLOSE #[B]st BORDER &IIBIN ATN L OUT 2 ERASE ABS © DATA LIST OR e} INPUT .PINT +A2[C]26PI[Q][D] OR IF CLEAR ▝ NEXT POKE [J]c FLASH ACS +ACS RANDOMIZE = LINE CONTINUE % POKE [H]@ CLEAR a'>j+K/4~PRNDE6p6[P]W4L^ INK OR STOP ▘ NEXT ERASE FORMAT / RUN COPY g~>= FLASH 2 FORMAT VAL$ VERIFY MERGE STR$ [Q]}CODE F INPUT LPRINT >= REM [L] LET PRINT ?[B]^B4'ByTAB M▙ DIM STR$ SQR [A] OR PAPER i5p OPEN #Z][F]u].E8?<?PIATTR [G][L] DATA [D] INPUT CIRCLE [C]BIN [H] BORDER [M] PAUSE >=ABS PI[T] LET [T] CIRCLE /SGN PRINT 2[B]▗ CONTINUE ed▜;oM*xUD[K]}TAN _w▞ LINE LOAD c[B] AND F FORMAT DEF FN RUN COPY R STOP STR$ FLASH RND BRIGHT VAL$ MOVE MERGE THEN aSIN <> GO TO PAPER g[I] RUN 5 CIRCLE /C6& RESTORE x.e▟ CONTINUE kSCREEN$ OTAN w READ INVERSE EleA.z?h7"uY▟ FORMAT SCREEN$ >= OR BRIGHT CLOSE #[F] CONTINUE INK [I][B]m POKE SGN ;[J]^[T] RESTORE K[S] AND SGN ACS vuV;_Oxk[T]t6@[S])N BEEP ], LINE USTR$ [F]v THEN FLASH D PAPER [ SAVE INVERSE W STEP [P][LN [S]XNOT NACS STOP + STEP [P][O] DIM [U]/ LINE PAUSE CLS YASN SQR `s[H] GO SUB ▘ ERASE PLOT ASN TAB CLS [A] LPRINT GO TO 'KINfa1T$;©5*!7wABS USR RETURN [H] TO ▚ NEW C[M] OPEN #4 RANDOMIZE LIST SIN [J]NATN RETURN [FN TO PAUSE SIN BEEP OVER oU[U]"~+U6`D9[) n"/J,XM2 LLIST USR Q4CHR$ CLOSE # REM STEP SAVE MERGE ATTR CIRCLE COPY d INVERSE :L[G]uLN GBIN ERASE STR$ FN [K] OPEN #s^_ DIM TAB M RUN IN RETURN CLS BORDER ;▗ REM <> CLEAR SIN a[ MERGE L RETURN <=[F]EXP ":AT SIN wLN CAT AASN ACS K[S]USR "<= GO SUB ▟[D] VERIFY [D] NEW >= STEP [G]bTAN LN v CLOSE # BEEP ;[S]%36 DIM [A]4}TAB FLASH w NEW kASN 5SGN _ INK FORMAT RESTORE 1 GO SUB CLOSE # BRIGHT MERGE RETURN Z<> IF INKEY$SGN ]COS /[O]▙GATTR RESTORE POINT ▗H DIM RANDOMIZE cSIN LINE NEXT 5 FORMAT ]wACS lk RETURN EXP POKE DEF FN ▝D BORDER BIN }KdvORND MERGE (IN $LEN PLOT OPEN #▚[T]©a PAPER [A]EXP M© CLOSE # CAT STOP EXP Q[G] REM LLIST K[J][Q][N] THEN dQ MOVE Q8 GO TO )[N]<=j BORDER SIN @' DATA ▚ SAVE I[Q] DRAW CJNOT NEW 0 RANDOMIZE BEEP CONTINUE W TO >= PRINT ESGN CHR$ INT ?USR #9TAN DIM &G<> NEW 6[P] .▖ LIST Q[C] POKE 4{~ NEW A DRAW CLS ; CLS LIST Yj GO SUB 5'/Z!▘w DRAW AT FOR ![D]8 AND %SIN LINE 9IN t MOVE <= CLOSE #SQR aQATN )[G] CLS AT LPRINT Mr INVERSE [A]RND▞EtyPOINT DRAW GgN FOR SQR !]LEN USR &`[P]H=q GO SUB S GO TO [A] NEW V STOP MERGE RETURN H BORDER RANDOMIZE STR$ LOAD XZ OVER [L]a([Q]l] NEXT ?._!▚5N{LN NEW - DRAW CLS SQR [R] LIST [D]oI%1NOT Z<> PRINT USR LINE [L][S]rF CONTINUE [H]2uCODE COPY STOP LINE OR [C] LET CLOSE #POINT ` GO SUB ATN POINT NUAT u STEP s8[C][O]GG STEP R©SQR [R]'SQR g RANDOMIZE [D]1u.G RUN GO SUB s(/ASN K] REM STEP c[ LET w DATA LET PAUSE <= CIRCLE ▝E LLIST COS ][K] CLEAR S▞[H][E]!m<=I VERIFY cm`SCREEN$ COPY BEEP ] OUT =[D] CONTINUE X▝g LET INT sG LLIST G+ POKE BRIGHT LOAD W^ REM OUT PAUSE %▖ABS q LLIST ATTR ▖P+/▜= DRAW [>▘▛L▜VAL$ ATN PAPER z INK V]AT RUN DATA ]N[P]INT DIM STEP V OPEN #C=RND~/ OUT }) COPY [O]A8 VERIFY )LN FORMAT TAN POKE DRAW COPY p}+ DATA CLS PAUSE [ AND ERASE SGN 9© FORMAT GO TO ▙-[S][R]>=Ub GO SUB RANDOMIZE [K][F]▘R PLOT gbATN ?y[L]dL OUT GO SUB > INT BORDER CHR$ AND POINT XUSR SGN INPUT L RETURN " PAUSE OUT ▙: INK [J][O].= STEP VERIFY CHR$ [S]"m▗|[U] PAPER zc▞ OVER /R INPUT bLEN PEEK NEW VAL Fy VERIFY +VfNJPEEK ASN l[A]@rINKEY$[L]@[J](>$1 STEP ▟[I][B][B]1 DRAW re CLOSE # NEXT K INK [B]G GO SUB CODE CAT STOP STOP [G]F[F] POKE ?H RESTORE VERIFY IF INPUT {▜" LOAD OUT THEN &▛[D] FLASH Z'g COPY DEF FN 7>#>=▝[E] AND THEN AND ACS %{l PLOT CLOSE #ASN @7u▛[J]INT VAL TAB [S][O] NEW B VERIFY ▘ PAUSE Q▚ OVER z OVER ^/SGN <=LEN [L][S] PRINT 7[D]V+Q BRIGHT <=B&x POKE SIN C/▘U▙▘ THEN 58O^ CONTINUE [K]`H> BEEP [G][F]K FLASH ▟D DEF FN NOT CAT BRIGHT NOT TAN FX BORDER STOP 8>= DIM PEEK [N]:.▞ NEXT S▖ POKE 5i AND <>TAB b|[G]LEN : RESTORE RETURN STR$ [S]UhWSTR$ VAL 5S"IN GO SUB &ATTR ATN RETURN #[MSIN [L]Ol RUN SQR cATTR >ATTR ABS <> LET APABS ▝ OR TAN ';PIAT >W CLS ACS CODE CIRCLE TM[P]ATTR I6 OR n9kVAL$ USR ' CLEAR CLOSE # INK READ KATTR RANDOMIZE SIN mLN [R]▛ CAT RESTORE C MERGE TAB [L] TO POINT W GO TO TO ATTR DIM q^▜ NEXT 0ABS RANDOMIZE OUT DATA 1_ PLOT INT ` PAUSE Wk GO TO 7DB LIST hj POKE ?-TAN FN [H]PEEK FOR F PLOT 9 OPEN # CLS STEP INK ▛B GO TO ABS W_ RESTORE +▛[F]' OVER J@CHR$ AND ▙▖d@ ERASE >=:▙5J=` SAVE LEN (AT MOVE N▘ BEEP E'[C] DEF FN 5 CLEAR AT gSIN EXP FORMAT 4<=SIN FOR CLOSE #xLEN CLS 4_USR COPY IF EUSR g K LINE CLS [Q][R]▞ CLS INVERSE k CLEAR % CLS [P] RESTORE OUT %9[C] LET GO SUB ?ASN [E]@ RESTORE DIM u▟[J])STR$ [T]LEN >ABS ' COPY LEN THEN mY}|>= PRINT [R]LEN ▚VAL [Q] INK 6*<> OVER LN COPY g AND t NEW /" PAPER INK O6F STOP %b4B▗ RETURN K$[CHR$ CLEAR L8 RANDOMIZE qbLEN [U] RUN AT T DEF FN lx IF CAT 8_[B]▗ MERGE INVERSE 7[D] LIST [O]▙ INK PAPER STEP Jr DRAW T[L]uVACS W RANDOMIZE [N]P CIRCLE CLEAR SAVE INKEY$ IF NEW BORDER KcINT `H! STEP L'[B] INK ©5[F] MOVE (:A[Q][J]W[S] PAUSE FLASH ▙( FLASH JnABS OPEN #SCREEN$ [O] TO QJQl OVER #VAL [M]© STOP VAL J;vuJ▗)4 STOP CAT TO CLS NOT K[Q] SAVE ATN CONTINUE T READ FLASH CLOSE # DIM GO TO FOR ^[M] INPUT RESTORE FD[F] RESTORE o[J]Fj [Q]lPOINT rr FORMAT sBIN PLOT LOAD DIM CODE ▚ PRINT ]] CLEAR VAL$ THEN AND Ao2KBIN ATTR owv0 GO TO M[A][A][R]v.D[A]Ly[E]CODE IF [C][R]O▗RND.zAT POINT >/SCREEN$ GO SUB TAN ACS FORMAT [A]ATN z2) TO CIRCLE jSGN 8G>=USR THEN [K]▗ SAVE LINE =©LEN ^ PRINT LEN CLOSE #LU MOVE THEN ? SAVE ▘o[J] BRIGHT t LLIST OR STR$ /f LIST SQR GO SUB fN STEP ▚r RETURN QR PLOT K% DIM SAVE VAL$ BORDER +[QzAT LIST | GO SUB ATN 7pBIN INKEY$jr PAUSE >6-r[S]y9POINT $CHR$ 3t[O] REM [D]-t[F]YBIN @Q<>[L][F][Q]Dy▖[H] LIST - LINE LET FPOINT [P]p<=N CLOSE #3 COPY [<><>Y; LLIST 3F MERGE 'c FOR [N] OPEN #Om CLS O PAUSE CLOSE # FOR 5 DRAW BEEP [S] LIST RJ; IF PlEXP INVERSE 8▚b▚<=U READ 9STR$ DIM VERIFY MOVE GO SUB [P]P# COPY OUT )252O RANDOMIZE READ BORDER [L]_ CLS INT BEEP LET [F] GO SUB 'CSTR$ VAL$ o[J]pNOT ▟PI[R]▗?7PI2 LIST 8IN ▚[T] CLS ▜Y9[D]) INPUT [T]CHR$ [J]a▜<>[A]COS /? MERGE 3STR$ X@} MOVE -8G [N][P]:z<aCODE ▞PS*-^▟G NEXT =▝[L]_[B]=[[F]Y PLOT KY OR LPRINT G=SQR SGN Q"SCREEN$ ABS OPEN #7EXP e[H] STEP INK SQR ©[P]XK▚ASN 5z BRIGHT POINT REM ▟[A]|D[T]<nf2UNOT FLASH CLOSE #) RUN IN Vk)[D]SIN aIN %COS ▛ CONTINUE VAL ▚'s[N]: STEP S[R]<> RUN VERIFY 'm<=▛! COPY AT LINE ACS ATAN [P]7DPR CLOSE #SGN |& INVERSE *y.VAL (* GO TO PLOT ^j[|EJ?8 INK NEW READ USR }0 BORDER [N] LIST COPY Y AND ©= PLOT PAPER Q DRAW ▜ NEW MOVE FORMAT INT INVERSE [E]ATTR m[E]▖<=_^ AND #[D]*jTAB d[H]_ REM $! CONTINUE CHR$ GO TO OR 7 GO SUB E OR ap=tATTR GO TO BORDER INT DIM $CHR$ #^VAL PI AND INVERSE OR [Q]" TO ▜ATN INKEY$SCREEN$ zLEN PAPER BEEP PAUSE n ERASE TAN [J] IF IN `DPOINT 9ABS >[O]<nknCHR$ AND $/=NV>=/VT© PAPER GO TO 0 LPRINT OVER DRAW MOVE SGN I CIRCLE CAT READ 9 RESTORE [K]EXP OUT A[I]1[O] BORDER # THEN CIRCLE STEP OUT u GO TO ASN [K] COPY u OUT _" OUT [D]Qa MOVE LOAD DIM ]|[N]TAB q CLEAR DATA SQR ACS @XmPEEK |wSGN DATA ZVAL 3 OPEN #[P]NOT LPRINT @pPEEK ▙▙ AND $$ CLS ▙CODE Z VERIFY m LINE VAL FLASH [L] LET SIN ▛©<=POINT sCODE CAT 7>siM4 LLIST <ABS ▜ COPY ;i<> TO ©PIPI<> CLEAR 3 DRAW OUT PAUSE OR ,H$ SAVE ERASE COPY INT _[K]▞USR OR AND [I] PRINT ▖9>= READ CHR$ #nAT ▚ FOR IF OPEN #^a}[A]j$[A]l RETURN [Q]gsSQR DIM ATN "USR THp%z; REM j STOP POKE cFN aPEEK ©[E] CLEAR . FORMAT EXP VB REM BINT ▝nzSGN INVERSE ATTR OVER ZEXP v|PEEK LIST POKE [?TAN / AND "< OVER [T](A;'&[I]&I[E]h▙ NEW P COPY LEN CONTINUE BEEP CONTINUE P GO SUB THEN 5 RANDOMIZE [E] REM ^`▘/ PAUSE rF[H][B]"[P]Hk VERIFY CAT TAB [S] MOVE OUT y©wh LLIST [M]^ CLEAR y VERIFY INPUT GO TO SQR L5 FLASH [G]SGN 3|0~5:[I]8[Q][T]©EXP INVERSE OR L▗ DRAW VERIFY : LET SCREEN$ N]SQR AT DEF FN Z@vEXP ACS BIN P▘INT @'/= LIST k[S]VAL /o NEW POKE ) PAPER VAL$ K7BIN L▖+ THEN DATA DRAW © CAT CONTINUE ▝q1 INK ▟ STEP [D]?POINT [J]k BRIGHT ▝TAB [F]SCREEN$ ©@SGN MERGE RUN *HND STOP POKE FN ▟b READ ( LLIST DRAW [I] AND </[I]yVAL$ _ CLOSE # TO !td IF [G]0~BASN ACS . FOR [J]jF@a MERGE ▜i[T].z[P]SCREEN$ f^ POKE FOR LPRINT 2[F]0guATN *lYei,SGN =o>=USR LaP▗;$ INK [N]©INKEY$x BEEP LEN VAL * BEEP <>{ PAUSE LPRINT CIRCLE +INT GO SUB USR MOVE NEW [F]AT STR$ PAUSE GO SUB CONTINUE MOVE OVER TAN [R]SCREEN$ STEP [A] LET PLOT [F]▘Q[J]Z REM TAN [C]fAT ▝6[U]~9SGN 0▛ DEF FN fFN F{ BEEP e INPUT yNOT L= CLEAR eSQR ABS ▜MLN SCREEN$ GO TO 4NOT PAPER [R]▙▜`RNDk CLEAR t*NOT OUT ABS CONTINUE ) RESTORE [O]©©KCODE ]57/+MPnLF5/F"" RUN OUT <>PEEK ▙RND▝PEEK SCREEN$ ATTR [H]POINT DEF FN BEEP SGN LET [T][S] POKE TAN f CAT CLOSE #[S] RANDOMIZE INVERSE ▝>= SAVE OPEN #!qFsM5y SAVE [C] NEW LIST [I]<> CAT [J][R][K]▘V b5©P,#K3TJ7Fp@n©[F] PLOT INVERSE [D] PRINT ASN PI RANDOMIZE ▝PEEK CONTINUE [R]STR$ ▟ READ TO INT SCHR$ ▖ REM USR TAN POKE GO SUB INK 5!Z8CODE o>ZcG(@Id&KCODE >_=pLN LPRINT ▝uCOS BIN INKEY$[J]SCREEN$ TAN LINE GO TO INKEY$ INVERSE [K] CLEAR U▟ LOAD [R] LET [B][S]=>= LET X GO TO >= INPUT [K]n40dkT[J]bVAL$ ▗ FORMAT LOAD Z):0H(y9_2!>=ABS cESQR [Q]4 LIST LINE [A] SAVE [Q]SIN CLS CLOSE # INPUT LIST TAB <>▟ CLS DIM (INT CAT `mABS SIN ▙VAL *re LIST #XP?' BORDER [M]HK POKE INT `4wi]?X] BRIGHT iIN ▗VAL J BEEP G COPY >=BIN RANDOMIZE ACS [K]<=ACS CLS [T]ATN ▙ IF FN READ ▗▘ FORMAT >=ABS / GO TO [I] OUT LOAD [P]uqMs>4* GO TO RETURN [E] REM LEN [I] VERIFY NEXT BORDER DEF FN ▙6,:xy]t[C]Lpv[G]S% REM 6~INKEY$ OVER COPY TAN [S] LPRINT DEF FN [S] DIM ABS <>▙ DRAW FORMAT IF CAT ~RND BEEP CODE CLS VAL VAL$ ARXH8U&~RZQ@e[R]lup]eI]ac NEXT ▗ OVER ▖COS [M] PRINT [L]CODE INK FLASH D▖ CIRCLE GO SUB H[D]IN i LPRINT FN LN [B] STEP BEEP VAL ▘ BEEP i>=SCREEN$ ▜a<Nj%[G]bl[L] INK TAB INT CLOSE #[P] CLS [G]^dP INK VAL LN q%F<1oLN cTsv[M] OVER RETURN [P]X[U] RESTORE [A]$VAL BIN [G][I]%[H] RETURN .▙ DIM VAL C COPY AND (! CLS 9tINKEY$ZATN SIN #= OVER 7Uq+LEN | MOVE n?LN [H] PRINT [B]SGN ABS ▟POINT ▗CODE OVER SIN STR$ MERGE r LLIST COS COPY [H] FLASH BEEP CONTINUE ▟[R] IF [O] MERGE CLEAR OPEN #p4#vD9 CLS X▟ RESTORE RND BRIGHT [M] INVERSE CHR$ BRIGHT CLS ▝▛[1;>j[K] PAUSE Qi9S3▚ PLOT O7HuPgx[I]:TAB R STEP STR$ [R] BRIGHT BORDER INK RUN ATTR INK DRAW LET <VAL$ SAVE PLOT [J]JwC+B8X*qER TO c OUT [R]ksoA8'V LINE d▜ACS [N] OVER MERGE , RESTORE CODE H SAVE VAL COPY CLOSE #Y NEXT ▟ OPEN # COPY TO o[C] FLASH FORMAT >=LN W NEXT RETURN CLOSE #▖[A]▚31f@<yPEEK ▟ INPUT LEN [I] CLOSE # STEP [B] LIST DRAW ATN *"[zEd JaYa MERGE ▛4g BRIGHT LLIST USR FORMAT LIST CODE ASN RANDOMIZE LINE STOP RANDOMIZE ABS MERGE [B]▘ LOAD AND LLIST VAL OVER VAL LINE GO SUB [D] REM [H]- COPY 6WAxO!oS@R15oTUSR *[F]J[C] CLS (v▙SGN [F]▘CHR$ OR i▚>=HSIN [E]PI GO SUB LPRINT X REM RUN EXP [P] RESTORE RESTORE DEF FN lLEN PEEK ▗ DIM SIN RETURN [L] TO LPRINT LET SQR Q▗ POKE |Fci▟ CLEAR RETURN TO |[G][Q]W[H] DATA STEP d[O] OUT `JTAN IN rV ERASE +FN READ >=SGN .$▙ CLS DATA ( PRINT BRIGHT RETURN OVER >2TAB SIN BRIGHT ACS MOVE LIST $NV0O-<=PEEK le] PAUSE 6▜▗o BEEP Y|?▞▗SIN [D] CLOSE # CLEAR xeINT [B]ASN TO [J]BIN PRINT 8 CLEAR SAVE LOAD LEN STOP D PRINT [H] TO IN BIN jVAL$ IN VAL$ [K]rrRASN LIST wYsKEXP ▞STR$ RETURN USR VAL COS ▝▛H''2l LOAD PRINT Se#JWl PRINT -4 PAUSE ▟kEXP IN gSQR READ RESTORE STEP ATTR NEXT LEN <> DIM FN P/CHR$ ▛ACS ATN Q POKE SIN GO SUB Rf(<O,<>k8v NEXT <=C#0ijA'ZhICODE <>e INK [A]CHR$ PAUSE BEEP VERIFY INK AT |FN [K][A]TAN RUN [H] RESTORE RESTORE Q@ PLOT ▗USR CLOSE #ACS ABS / CLEAR [K]WZ[I]▜]gzKb[R] STEP RETURN [O][B]EXP ▘[H] PLOT iF FORMAT INVERSE {]c&/[R];M0hLEN ▗CHR$ @ DRAW LOAD Y[U] COPY ▝ BRIGHT [C] MOVE VERIFY c▟[E] ERASE |POINT [N]▞D READ CONTINUE VERIFY 3g5[U]Y7M:9<c[.BCk.LEN ] PAUSE RETURN 7<^STR$ RANDOMIZE 3▞RND LLIST X LET ]YBIN 4CODE LOAD FOR SGN [A] REM IN READ RESTORE CHR$ LINE CIRCLE TO [C][K]T▟";zTaG SAVE ▝ READ TAB [D]IN INT ▝ OPEN # OUT ASN &-CHR$ ?zhb LOAD }o][Q]: RUN [U]d1ACS [I] ERASE ▘jx[K] CIRCLE <>[A]{SQR ACS ©y LLIST OPEN #[E].[I][Q]PI1 NEXT NOT ;VAT h FOR INK KLN Z! DRAW RUN uM| BEEP w MOVE m3 GO TO OPEN # OPEN #ACS AT INPUT ▖ GO TO GO SUB n THEN DEF FN z▚▙` LOAD NOT S LIST ^IN 5hINKEY$▟ LOAD LN BRIGHT zu3;eYn< DRAW BRIGHT [D][H][E] NEW .GACS PAPER HDABS <*&[R]=0 MERGE r[M] BEEP BORDER OR [I][M] STOP PEEK " OUT ▝ RUN PAPER z BORDER [K] INVERSE INPUT oSQR <=BIN COS BRIGHT GVcSGN ;C(u8[G] BORDER C CHvSn(ATN JL>= AND OPEN # SAVE REM eLEN RUN MOVE Z[S] CAT c[INT [T]USR STOP AT <=[C] FORMAT INKEY$}K▟VAL$ COS SCREEN$ STR$ ▛BTAB OUT NOT BRIGHT j LIST d INPUT LIST CONTINUE GO SUB "[Q]<=dX59KE RESTORE ySQR n5[I]WQ{©K©9a DIM @ CAT R▜/J FOR LEN VERIFY [H] CLS l( DATA OUT oPIACS - GO SUB OUT &U[O];▚PI%?,* LLIST ZE%RND$e[J]^MGk▜RND BEEP 9▛w▜CHR$ NEW R][G]SIN MERGE [T][M]LEN CLOSE #▞F▗ FORMAT CLOSE # INK MOVE coASN [D]▙ OUT 4[D]zgg CLEAR >=O; FORMAT PLOT OPEN #f](+0i; PLOT TO DE?vF)![R]▞lSTR$ INKEY$M RANDOMIZE CIRCLE [ATTR [D][C] BRIGHT +STR$ ! BORDER DRAW ▜ LPRINT !▛mHSCREEN$ NOT [E]▝ OPEN #NOT TEPOINT Z a MERGE [N]Ybt6//kuhz+KSIN (n▛PI[B] BRIGHT R▖RND▜LN AT CLEAR [H] CAT [L]RND CAT ▘- AND SAVE A PLOT TO STR$ [R]▜ MOVE STOP TO REM 'TAN {l#[E] NEW VAL PRINT 4ASN VAL$ 4 LET VAL AND 0:`6 COPY 9, LPRINT [Q]8USR RESTORE 5SINT INK OUT [J] READ PAPER [T][B]CO BORDER [Q]1 AND h▞ CLEAR STEP INVERSE o[U][C]TAN [J] CIRCLE 7)v8<:/9 CAT =i3 LPRINT A27 TO 'UC▗ATTR 'Zf8YS[G][E]N OPEN #ABS V LPRINT STEP ▝ LPRINT BIN #[M]▟[R]▛ LLIST PRINT f LOAD S GO SUB RANDOMIZE IN AhEXP [M]= CIRCLE AT rnS▛e)+[Q]X NEXT ▞TAN DIM PRINT ![C] LPRINT INPUT IF .CUSR 0PEEK 6. OPEN # VERIFY LIST F, CAT jABS LIN LOAD [F][F]D DRAW INK TAN PLOT SAVE MERGE ▟ LET TAN + CLS SCREEN$ ASN H PAPER LPRINT ATN G<=l POKE ;? OR o TO 9957E;RNDo?POINT <6 INK DEF FN d▚ASN SQR TO INVERSE COS W[C] BORDER INVERSE G CAT EXP :[C]J<= INK [N]![N] REM STR$ [U] GO SUB STOP ▖$ LET INVERSE {©%YjTvc BORDER [E] LPRINT OVER Q; PAUSE FOR [U]M AND RANDOMIZE <C:[T]g[A]TAB hD~0sCODE hTAB LINE STR$ [I]tK[L] PAPER CONTINUE INVERSE READ LET ATTR TO :TAB LN 4[L]Fi/LGQ"<RHZFN IN MERGE EXP ~TAN USR [D]F[U] BEEP RETURN [L][A][S]TAB SQR [C] CAT SAVE [F]©( BORDER =[J]8[J]ABS k INK INVERSE <> STEP /[M] NEXT GO SUB s▟!PEEK ▟[d MERGE GO SUB VAL ![[M]©[S]:<> GO SUB LN !F[D][Q]~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT [Q]IN ! CAT [G]NOT RANDOMIZE ▙NOT O[C] PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQIN >, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝▞ CAT [G] CAT [G] CAT [G]=[L]0 CAT [G]r▖[I][L] STEP [L][M]7[M]PPpp▝ RANDOMIZE p&p.`8▘ DRAW [M] DEF FN IN NEXT RESTORE " INPUT RESTORE ~2▝[D]2S[C]##~#"[B] "[U]^#V#" FLASH O" FORMAT LLIST " DIM ! FOR ▙ GO TO ▙p GO SUB VAL CODE IN 2 CONTINUE ▙2 DIM ▙2 REM ▙2 INK [C]2>[D]2{[A]2 IF [A]2|[B]2 CLOSE #[C]29[D]2<>[A]2K[B]2 DEF FN [B]G/2O[A]2 DEF FN [A]2P[B]>/2"[D]2ABS [C]!x▙" OVER TAN [C]"C[D]"BIN [A]"F[B]"<>[B] STEP VERIFY GO SUB Sk[C]STR$ GO SUB sATN 1 ERASE [G]▖▙> LLIST FOR s#r# FOR = PRINT 1[H]>=▙>pPI PRINT 1▙a*>=▙" INPUT [C]"S[D]"Z[A]" INK [A]"[[B] CLS NOT ERASE [B]!R[H]~▜ GO SUB s RETURN !S8 INPUT ▚▜# AND ▖![[H] RANDOMIZE CAT [G]X LLIST "▞[C][M][S][C]1a<>{▜_~0 THEN #~STR$ LN NEW THEN Z PRINT 2 LET ▙ LET ~ NEW #ng INVERSE b FOR ! CLS [M] INVERSE }▚▜O!>=~#fo THEN :8 GO SUB R<><>> COPY <(wAT [H][I][L]! RANDOMIZE [M]y<PEEK # ~2T[A]#"5[A] FOR x_@[D]U[A]# INVERSE . STEP [A]" FOR ▙ FOR AT IF SGN [A](& RESTORE !{PI PAUSE [L][A] GO SUB DOPI GO SUB B0 LLIST >2y[A]CODE 2▞[A]go"[A]"[C][A] LLIST CODE ▜ INVERSE |2 PAUSE ▙OQ▜~ PLOT 2 NEXT ▙©▝z©▝=p©~2 OPEN #p© ▝ CLOSE #©▝+p©▝
60672©▘;[B]`©▘[B]p©2 SAVE ©▘[B]©▝ COPY ©▘[B] ©▝ COPY ©▚! PAUSE ▙ACS wp▘▝ POKE ▘▗{p▘ LET ▝[B]q▘V[B]▝4q▝ LOAD @▘▝ABS p▘▝[M]`▘z[B]CODE 2▝▝[B] LLIST ▝[D]0▘▘▝[B]0▘p[O] PRINT ▙! SAVE ▙IN COPY VERIFY ! PRINT ▙B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 SAVE ▙<>CODE G>=R[N](>=("=CHR$ N[A]! CONTINUE ▙5 PAUSE N[A]6▟[H]PI TO VERIFY STEP [E] INPUT ▗2AT [C]NOT ▝ DIM 0▙[L][H] STEP 8[F] GO SUB S▞[C]2[D]▝ REM 7▘ATTR [C]▟POINT [H] STEP ?[G] GO SUB S[S][C]CODE 062▘T[A]]▘>▚![I][L]"W[A]!▗2 STEP [C]1▘<>[A]6▘{[A]k▝BIN ▝▗2 DATA [C][E].H2 POKE '▘[T][A]nPc▝ATN ▝▖Dgo LOAD GO SUB " OPEN #[A]▟▝/IN ▘>+!=[L]" VERIFY 0e▘2[D][G]▘K[B][L]▝ IF e▘F[B] e0▘I[D]e▝ INK ▗2Y[D]`▝(▝"-▜6[B]!"8▘ SAVE ▙{▗ PLOT ▙>©CODE 2v POKE 2 CLS [C]:[D]=(y2CHR$ ▗ABS [C]>7FN ▘<> CLOSE #:y[A]O▚( PAPER CODE 2G>7<>STR$ ▜!▖▟[S]▝ OVER +▗NOT [E] 1&o"[D]PIx PAUSE LLIST PEEK [D]-▝@▝ PRINT ▖og" OR A▘ VERIFY ▝iA AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘▙O$"<=[C]▞▗!>=▙▜@▝ INPUT <=▝ DATA <> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST MOVE CLOSE #[C]2{[D]2|[D]0 INK [T]▘▝[D] LLIST 2f[D]:q[D]= LINE PEEK [E]y2'[D]CODE R$▘Y[D]$▗2[D]: SAVE $▞'[D]( INK CODE 2q[D] q$q$▘8[F] 11$▝p$[F]/2kq$ ▝ A$▝`A$▝>A$ RUN ▝▜q$q$q$q$▖ [R]q$!$▘,[D]▞q$ AND FOR ▝I<>&*!$h$▝9@SQR q$▝eq$0 INK 1$C:z[B]-z[B](8▙NOT PRINT [F]2[T][B]:[B]= LINE PRINT [F]yM$J[D]▗"U[B]<>2.▘▞[B].▙[G]/2LN [B]*o&0▝# B.▝[D]▝.▘|[B]+ CLS ▝[Q]2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"X[B]NOT ?[G]r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ DEF FN [B]r4▝CODE V;2▘?[G]s▝<>R▘IJ▝n9U▝[T]▜<> RETURN 3h OUT ▝* BEEP ▗- FLASH X REM [F] COPY PEEK TO PAPER LET CLEAR 2ATN <= LLIST [F]f FOR SAVE [B][L]ATN 3Ckk' CONTINUE ©`FN INKEY$[U][P][R][T]/[T]0[T][U]FN /PI#[B]CODE VAL CODE ATTR SCREEN$ !ATTR SCREEN$ 'FN #FN TAB ATTR FN /SCREEN$ 31▘INKEY$[U]p1▘FN FN 4▜PI GO SUB FN !FN ▘FN FN `<[B]TAN TAN !SIN VAL #CODE !VAL CODE #TAB VAL CODE !TAB ATTR A▟ REM ©o[A] FOR `[A][M][M] GO TO o0▞ REM o▙ FOR `▙[K][K] GO TO 0▛ REM o[K] FOR `[I][I] GO TO o0▝ REM @(p0▜[F] FOR `[F][R][R] GO TO @p PP[C]▛▛ FOR `[H] REM o[H] GO TO `▛ FOR ▛[H] GO TO o[H] REM ▘▛[H]▛▛[H]`[H]p FOR ▚[U]FN PIp GO SUB FN 'SCREEN$ pCODE pCODE pCODE pCODE pCODE CODE ▜[D] FOR `[D][P][P] GO TO @pCODE pCODE p COPY pCODE pCODE pCODE 0CODE !4p POKE 0 POKE ▝[H] READ ▘[T][T] BRIGHT REM o[T]qTqTaTUqT1Tqt0 ▝[D]ACS AT ▚[P] GO TO `[D] FOR [D]ABS ▘[P] REM aINKEY$▗[A][M]`[M]"-▘FN PI▗INKEY$ATTR AT FORMAT TAB ATTR !CODE ATTR ▚ATTR TAB INKEY$'CODE SIN pINKEY$q[K]pINKEY$pINKEY$q IF IF q REM 1 REM q PAPER p NEW ` NEW BORDER ▝[A];1▚[M] GO TO `[A] FOR [A]B▝[M]pINKEY$0INKEY$▘TAB SCREEN$ [A]▝CODE [T][E]VAL TAN COS !TAN ACS #ATN !SQR ATN 'TAN #TAN !VAL TAN #ACS 'ATN LN qQrEqQqQrRNDpATTR r[F]rq[B]pATTR pATTR `ATTR ! REM [A]% LPRINT u[P]VAL TAB TAB ATTR # READ ©`ATTR LPRINT i▗EXP !SGN EXP [L]▜ATN EXP #SQR !ATN ACS SCREEN$ ▚ATN TAN #VAL !TAN :▘ACS COS SQR (▟TAN LPRINT ?p LIST LPRINT ▝ FORMAT ▝[B]USR USR VAL VAL [Q][Q] FORMAT FORMAT FORMAT P5▝;p▟ FORMAT POKE LIST © DRAW STOP [D] READ ▗p[p[p[p[▝[A]▝▗▘ LPRINT [D]P[[A][A][A][A]▝ [A] OR ▟D LIST ©4 LLIST 4 LLIST ▗( FORMAT p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` (U[G] COPY COPY k&R^ STEP R;;STR$ ![H] FOR !f}▘!{0▝▞0@ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O.ABS NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP [T][N] LLIST # OVER LLIST STR$ NEW ©(# THEN w G▜# RANDOMIZE VAL$ NEW ?F#ATN CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY Pppp$p.p8IN NOT ▚??BIN ©▚?? BORDER ▘? MOVE COPY ▘©xC▘BIN <>▝©0>▚ DRAW SAVE LIST SAVE SAVE RETURN @C>=▗?8*_▗?ASN CHR$ 8}USR USR @▟ OR ▘H;`aP@X LINE OR @ LPRINT ▝ LIST USR USR ▝ LIST Pa<= RETURN USR x@STR$ ▝ DRAW PLN @>= MERGE 'ABS [C]▝ AND ▝ LPRINT I1n▘ RETURN LIST >=34 AND y DEF FN USR LPRINT ^BIN DRAW SAVE LIST LIST LPRINT USR BIN X3yUSR CAT ▘YPEEK [G]VAL X[D]▝ RETURN GO TO USR <=zIN ▗STR$ :=▝IN y▗ LPRINT LIST LIST INT ▝ RETURN ySTR$ y0b[L]ACS x BORDER "!▝af OR yz▝ RETURN D SAVE LIST LPRINT FORMAT ▘USR ij<> OR TAB 2▘ LPRINT USR QUSR CIRCLE CLOSE # CLOSE #STR$ CIRCLE COPY OR VERIFY COPY PRNDCHR$ USR LPRINT SAVE : LLIST 3[H]<>s`USR 3[R]C PAPER ▗ CLEAR LET STR$ ▝ AND OR ; LPRINT BIN LIST PRINT ▛USR |▚ OR BIN LINE 0`A▝ LPRINT @I? OR ${ CLEAR ,▚9▝ _TAN ![L] STOP E?b@<=0-▗ OR DUSR }!m=STR$ l OUT ▝|USR 5▞# STEP STR$ ==95=Q INK cIr[B] STOP ?" NEXT ©▘ FOR ▘ COPY SAVE CLS zSTR$ !▙ BORDER ▝} GO TO REM y FOR yUSR ▛ LPRINT USR COPY RANDOMIZE ? READ NEXT z▘{▝@~ FOR |▝|CHR$ RUN z▝} ▝} ▘©CHR$ 2n▚ RESTORE COPY COPY P0 BORDER LIST POINT CODE 2H/2▟/ OPEN # RETURN STEP k!USR " RETURN [Q] STEP [N] STEP [Q] STEP LINE [Q]CODE 2EXP _ STEP VERIFY ▗:EXP _ THEN _( PLOT EXP PI)[S] NEXT >? GO SUB G GO SUB V CLS <> NEXT ! RETURN RETURN ,> CLEAR w GO SUB VAL >NOT 2 CLEAR CLEAR ! GO TO [Q]" RETURN CLEAR > RETURN "▝^" PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE PRINT INK ▝ INK GO SUB |ASN !V▗ OVER +q[B]INKEY$ STEP '[R] INK LLIST MOVE STR$ INK LET CLEAR LLIST INVERSE LLIST ▝ LET ]▜ GO SUB s DEF FN [R]CODE SIN 1 MOVE [R] LLIST MOVE s$|[R] } AND o8| VERIFY g} RETURN OUT 8| RETURN PCHR$ X[R]&@} VERIFY LPRINT o^ MERGE >COS w RESTORE LLIST LLIST ERASE A/p0p00▝▖p0@0▝ MOVE 0▝rUSR $pcpcc▝SQR Pc>COS w$V MERGE >SIN w%j<=1pa<>[Q]E CLOSE #▞SCREEN$ M? PAPER U FLASH MUSR RND[B]xJ?INKEY$J COPY JBSTR$ oJ SAVE F▟>=TSD}L INPUT ▝"▝▝[H] PLOT ▙ !X MERGE RESTORE OR OR RESTORE POINT ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE ! NvSTR$ LLIST MOVE FORMAT <> FLASH <>``(
