| Is a part of release: | Zulu Wars Ulundi |
| File size: | 36096 |
| md5: | 7c982df038cbd148e37e8485942c18e4 |
1 RANDOMIZE USR VAL "23884": REM O1PIa! LET <>"CHR$ />!XX OPEN # RETURN 6 GO SUB VAL !FN a GO SUB [ POKE /; STEP = STEP FN a!@[M] GO SUB [ POKE / STEP = STEP @[M]1#a!$a GO SUB [ POKE /D STEP => OPEN # RETURN vvvvvvvCODE OPEN # RETURN CLEAR THEN VAL$ CLEAR THEN n( IF NOT $aZulu Wars - Ulundi.!3UMF!Ice'Di was here! :) COPY COPY COPY COPY REM (
26921RIUMPH'2oo4SCREEN$ 2oo4!2oo4!_ NEXT GO SUB sRNDb[! STEP a OVER MERGE GO SUB VAL MERGE INVERSE LLIST ![C][M]ATTR MERGE BRIGHT 9<> GO SUB LN FOR RANDOMIZE FN a INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 CLS NOT ACS tmt CONTINUE 9;VAL 0 COPY USR ~ FORMAT ; FORMAT &VAL n` PLOT © SAVE 9VAL 8 LPRINT ,?RNDUSR USR USR , RETURN ©@[I]ISTR$ PLOT COPY _ ?X COPY X`© RETURN COPY X▝<}aBIN >VAL USR LPRINT `EXP USR n INPUT =VAL CONTINUE ▘FUSR >=@[`STR$ F__ PAPER RETURN AIN NEW _ SAVE TO PEEK @SIN 8SCREEN$ IN ASN IN }?▝,]@m PLOT RETURN +/[Q][I]▝ TO USR D© AND RETURN COPY KF:p RETURN =E LOAD LIST COPY c COPY ▟ STOP # RANDOMIZE LN ▝ CLS USR [H] OVER [A][I]9▘ LOAD [L]▝ PLOT LPRINT RUN POKE % OVER ` LIST ?IN STOP LN ▝F DRAW GT©] LPRINT 8 COPY PEEK IN ERASE w INVERSE USR FORMAT USR @ CIRCLE ?h INPUT PEEK READ USR OUT USR `_7VAL NEW A`IN FOR IN ATTR INPUT #nD PRINT CIRCLE U| INK ▝POINT CLS SQR INKEY$ NEXT }[Q][F] PRINT © RUN LN ▝VFN ? LOAD DRAW ~[Q] RETURN RA DIM PRINT STR$ [K]▝ RETURN IF F}30©q RETURN z` NEW @ RETURN "? DATA CLS TO mUSR Y NEW OUT CLOSE #USR VAL SAVE CLS ABS IN OVER & LIST {[Q]L©/y VERIFY # LPRINT HUSR kA. INPUT kUSR [I]y POKE UP NEW ▝ LOAD ABS DRAW GO TO INPUT RUN [J][S]" NEW ?@_s LOAD LIST @▛ INPUT NEXT RESTORE FUSR CIRCLE Kk AND USR _ IF lw INPUT =LN x3 SAVE PAUSE LLIST y>= LOAD mSTR$ VERIFY {f[R] SAVE NEW ii BORDER GO TO CODE 3W NEW ?ATN FLASH NEXT 7/[A]STR$ POINT sK RUN MOVE >=[L] OUT CODE NEW +{ CHR$ ▝ZINKEY$▘i_ RUN PIu RANDOMIZE ▝ PAPER PRINT USR IN t@ OVER AT y NEW TO 6qAT THEN RETURN CLEAR w ERASE SQR IN [Q] CIRCLE ? INVERSE RUN & CLS UEXP >= LOAD y VERIFY CAT C[Q]SGN gUSR LET [J]A LIST PLOT LPRINT OVER E OUT BORDER xGCODE USR IN [Q] DATA q7^ CAT % OVER STEP ▛ PAUSE ?0m OUT PLOT w[R]STR$ X PLOT ▝_^<= COPY @~STR$ g INPUT BRIGHT ▖▙ SAVE ABS [Q]IN RETURN THEN <sUSR h v GO SUB ▝>=ax6M OUT mQUSR CLEAR F LOAD LET USR CAT SAVE v[Q]PEEK SAVE ? SAVE ▞USR : ; RUN ,▝VAL$ IN ?CODE 6s▜ DRAW © PLOT P▖ LINE q> DRAW ATTR TO POKE LPRINT >▛ LIST CONTINUE CLEAR CLS >=IN MERGE < PAUSE ;TAB RETURN r GO SUB ▝Q/▝ BRIGHT STEP INVERSE PI[E] SAVE >= COPY [G]S SAVE CAT ▝< PLOT NEXT 6▙fPEEK [P]LN PEEK X GO TO ▖ SAVE SQR NEW CODE 3CODE y PLOT ▖INT LINE @ DRAW Axp▚1▙PIz OVER > OUT G©USR ▝ RETURN BEEP USR LINE [Q] FOR LIST ATTR [J] OVER | COPY LOAD CIRCLE RETURN OR tEXP USR q MOVE <=>= PLOT $▚> BORDER THEN {{ DATA a NEW =J▜/ STOP s RANDOMIZE BORDER VAL LOAD ASN " IF t RETURN ▛{` AND A LIST }M` FORMAT USR OPEN # BORDER 7 DRAW READ CLOSE #?$ OUT [A] IF |USR ' CLS LOAD xsVAL$ RETURN SCREEN$ USR 2 DRAW s OVER h`CODE ` LOAD FOR #▟ READ f[H] INVERSE E? BEEP PRINT tVAL$ CHR$ PLOT S LOAD OPEN #INT qr OPEN # BORDER [B]M`NOT NOT N STOP IF PEEK ATTR FOR [S] LINE o3 RETURN { PAPER #[J]SQR [Q]> DATA # LET OUT RANDOMIZE POKE USR A@USR vw>=[K]FN DRAW SIN OUT |s PLOT IN [A] REM VAL$ SCREEN$ FN -c NEW ; RETURN [B] POKE SGN LLIST RATTR ~ SAVE [Q]PUCOS PAPER /[D]CHR$ PEEK DIM a<>P POKE TO <= RESTORE A RUN IF [Q]( IF ?INT "`] c LOAD % OPEN #AT USR [T]ACS k POKE NEXT ATTR [U]ATN USR OR $ CLOSE #BIN INT CLEAR }©STR$ |q OPEN # LOAD [Q]>? NEXT PLOT LINE USR jINKEY$▖g INPUT ") CONTINUE |▖@[O] CLS [L]#[L] INK MOVE COS LIST ` VERIFY USR PLOT f!W CLEAR USR BORDER }b[Q] SAVE VAL$ OPEN # POKE READ CLS ▘USR +gg POKE PLOT /gs? RETURN OVER [L][D] RETURN `A MOVE 0USR (O|Ov▟QUSR IF >= NEXT j NEXT RETURN BIN J[P]WFN C NEXT SCREEN$ b}7c:" CLEAR RUN STOP h[A]![A]P>= DATA FLASH 8s PLOT [K] LET &aUSR _[A]▜INT [L]?SIN *:"1INT USR ▛O[Q]USR FOR [S]VAL OUT @ FORMAT [Q]:▞USR ATN DRAW M`SGN L CONTINUE L▜ DEF FN NOT ▟ INVERSE LEN p@+ SAVE PE GO TO CIRCLE ▘ SAVE REM f;[L]FhA▙FN Mr LOAD LET STR$ @BIN LOAD RETURN 8/ FOR USR o OVER TD@pE BEEP COPY LIST X READ PRINT CLEAR NEW p GO TO CIRCLE ▖ FN D DIM RANDOMIZE USR ▘[Q]SCREEN$ ATTR STR$ CODE LIST LN #'@ RUN INT LPRINT ▘EXP © FOR CLEAR OUT RUN TAB P▗IN [U]}*<= LIST TAN / EXP FORMAT @ LET DRAW ^ LPRINT U RETURN >▖[Q]<>©FN INT M[K]<=CODE SAVE ▙"USR LPRINT /y FLASH CAT c1▝|P8p[ CLEAR BEEP iIN RANDOMIZE NOT BRIGHT SAVE USR K]f▝?USR 9[C]1)Q |W CLEAR BIN LN FOR [T] CIRCLE OVER NEW [T]~/ IF LET O FORMAT TAB | CLEAR aID▙@ LPRINT CLEAR ACS OEXP VERIFY 6 NEXT PEEK LOAD ABS |S NEXT CHR$ K?[Q](USR @ POKE ▜Z RANDOMIZE [D] NEW 1>SIN BEEP LPRINT ! CLEAR SQR POKE <>[L]0 NEW `&CODE LN POKE MOVE @y[D]gt9 LOAD <= DIM A7 RUN READ PLOT `" RETURN OPEN # 1 FOR ![C] SAVE [P]pqIN FN kSTR$ POKE [U]y OUT EDP@▝ GO SUB &.9PpSTR$ Y[K]7 LINE EXP PAUSE SCREEN$ RETURN ▞}[I]2▖ PLOT ▘SQR @▝ SAVE [C] PAUSE y INPUT LINE STR$ ABS DRAW L`nj0 PLOT CHR$ PRINT ACS OR ] IF L COPY USR FORMAT tSTR$ p▘ CAT USR RETURN p~*) PAUSE [Q]© DIM "▖[S]©[R] INK ▖▞W IF [Q]? MOVE U}BCHR$ ATTR [T]H RETURN OUT [O]>SGN $USR ▞? CLEAR [A]xU[M]@USR NOT COPY CONTINUE P>[M] PLOT IF ▖▘CHR$ # GO SUB rn DIM BEEP USR W[I]USR )CODE PI@[A]^U/i DRAW [I]©? LIST ~>▝[B]xfJMUSR k AND ACS ▞ LPRINT ▙[E]▝ SAVE >3>=9 TO FLASH I CONTINUE <= MERGE NEW W CLEAR MOVE <© LLIST CAT ? NEXT AND dEx& BORDER USR 1CODE ▟ LOAD RETURN [O][O]VAL$ `/O SAVE COPY B DEF FN ,i[Q]LN l▗LN 6 PLOT ?0_RND LPRINT CLS DIM AhINT @NOT CLEAR $a|o[R]? CLS ACS DRAW LOAD <> FORMAT H<USR &m ng[A]z9USR CLEAR o DRAW W- DATA `~& FORMAT BIN U RETURN USR e@LD2 PAPER SAVE LIST DEF FN FOR ;ZVAL$ gUSR 2,FN o PLOT PEEK ©B MOVE PISTR$ 1▞ CONTINUE OVER RANDOMIZE SAVE r STEP PLOT 3@XU▖SIN PIINT DIM SGN #SIN ATN W CIRCLE LIST iVAL$ ;. AND pPIbUSR COPY 3[C] LET ▗▝ INVERSE yVAL$ ▜ LLIST TO $STAB ▝USR PAUSE READ B PAUSE h FLASH AT ATN NOT [Q]ACS BRIGHT USR RETURN SAVE ASN NEXT RANDOMIZE USR S▖ DEF FN [A][Q]INKEY$- PLOT #/, PLOT USR % CLEAR _[B] CLEAR LLIST ?[K][J]IN 1SCREEN$ [Q] COPY FORMAT w DRAW ? RANDOMIZE !.IN LPRINT z08STR$ RETURN >w[O][J]kRf THEN .IN [B][F] PAUSE Z CAT a DRAW I% DEF FN I/ LIST 0 DRAW HFN CODE USR g`i-▚ LET SGN 8PEEK RETURN [P]USR RUN INVERSE [F]VAL [B]UT▝ DRAW FLASH 7)USR LET TSGN LOAD ABS ?()h[F]%)@U4 LET GO SUB 77 PLOT &[S] RETURN SIN LN ▜ RANDOMIZE ▝EXP VERIFY v BRIGHT }% BORDER [Q]o~RND AND REM 1G IF SQR ABS POINT NEXT ATN LN [K]▙ CLS (~pCODE VAL$ .[R]IN [L]SGN [Q] OUT JG COPY OPEN #x5 NEW ~© DATA RANDOMIZE COPY IF THEN @NOT A[P] PLOT K<> DRAW SAVE - CONTINUE PRINT [S]>c COPY [Q]o INK PLOT @?ATTR ▘ OUT [I]c NEW RETURN USR RUN LIST yp CAT ATN IDSTR$ COPY $ SAVE PRINT @~;AW POKE p▜STR$ ▙ PRINT READ REM ▖ PAPER LPRINT ▜;fc NEW LOAD PLOT RANDOMIZE [Q]PI/A▙CHR$ ATTR ©k RETURN DRAW ▟ DATA [E]<=▗ FOR NEW ` DEF FN R* RETURN DRAW FOR >[K] PAUSE [U] COPY 8h<_ BRIGHT FORMAT CLEAR "f PLOT [Q]0?STR$ 5P~` LIST / PAUSE [ ERASE LPRINT LLIST LPRINT >=[D] LIST >[M] COPY LOAD RETURN READ CONTINUE (?▝USR GO TO J[Q]2)▜VAL$ [Q] PLOT Q~w?<> CHR$ CONTINUE {▝BIN LIST uUSR DIM LPRINT g[O] TO {>U PAUSE LPRINT DRAW 1[P] AND CHR$ IN READ OUT I ERASE @f BORDER [D][F]USR }* LPRINT NEXT ▛q OR PI![T] FORMAT L LPRINT [G] LOAD ▚USR ,>=H[P]~INT [S]ACS USR _ CAT L LINE U|-[D][Q] RETURN INKEY$EXP SQR U_ BEEP i[S][H]USR ; LLIST "6 INVERSE :N LET ) PRINT PSWATN IF READ USR LET LPRINT [[B]▗[B] COPY NEXT # DATA VAL$ NOT DRAW _▗ DRAW VERIFY ERASE Ez[G] LPRINT d( LINE DEF FN [Q] RUN p POKE t0I DRAW /[O] GO SUB INKEY$ NEW COPY LOAD IF f SAVE [Q] PLOT @n SAVE [I] POKE >=`▜▜+_ SAVE l OR CONTINUE COPY $U INPUT FORMAT -o▘CODE [Q] CLS Z9 BORDER @ BORDER [K] SAVE INKEY$EUSR RETURN PEEK 6© PLOT sIN 2@ CLEAR ]PIUSR [Q] SAVE N BEEP >=D[N] PLOT ©?USR NOT +VAL COPY LPRINT + POKE CODE IN SAVE CODE [E]`` CLOSE #IN tANOT OUT <= COPY STR$ I& RETURN STR$ 4▘USR SCREEN$ PEEK z[N]8? CAT [Q]ATTR cUSR PLOT F CLS PAUSE ~EDq5DP CIRCLE MOVE [H] LET ]] PRINT [D]IN ASN STR$ CONTINUE STOP }~[Q]LEN GO SUB [ INPUT LIST NOT CHR$ PAPER OUT DEF FN n*[T]ATTR NEW IN GO TO FD PAPER PAPER NEXT INT !& THEN ATN [Q] LOAD ▚~ STEP PRINT f[N]Q THEN [F]@9=.Pd LOAD ?SCREEN$ [S] RETURN H IF DRAW nSIN INVERSE SQR 8▝ IF READ 2INKEY$BIN y PRINT u<>N PAUSE FORMAT S IF [A] LLIST PRINT NEXT g RUN $ CLS >r[I]▜SQR PEEK pSkabSGN COS 7P▟ RANDOMIZE ▗ CIRCLE ▗B@ GO TO NOT x> RETURN EXP USR {PEEK CLEAR CG NEXT 5[S]S`" CLS [B] NEW 8>J`D<=n VERIFY 0▙6 READ <= LLIST l ERASE RUN U GO SUB NOT BRIGHT xmcUSR b_IN NUSR PRINT [B]FN INK PLOT [Q] GO TO [M] CLS MOVE [I] LLIST ▞ RANDOMIZE HR CIRCLE VAL$ SQR THEN [M]5#EXP PLOT s[ REM USR RANDOMIZE 9EXP OUT [U]PI[N]@ INVERSE MOVE G2[Q] FORMAT PEEK FN g[Q]F[Q]O@- TO ^ LLIST CLEAR PLOT DPG]`STR$ CLEAR BEEP G TO ERASE RANDOMIZE @ IF STOP CLS AND ▟ GO SUB <~ READ N 0CHR$ ©q GO SUB PI GO TO ACS SGN T/@[C]ATN HD{[S] RUN d▗L AND LUSR SGN RCHR$ [J][B] PLOT H NEXT SAVE %k LOAD BRIGHT $(USR 3[B] RANDOMIZE >0 DRAW T CLEAR ©xCOS l[I]Q INVERSE PLOT ▝- SQR [Q]8▝▚/ DIM COPY INVERSE [P] ERASE z CLS OVER @ASN 'tl|[Q] SAVE STEP [STR$ RUN REM ~I POKE }PEEK D6g/| LPRINT ABS CAT l[T] RETURN /Z$sk) READ NOT RETURN <_©/fwINKEY$@©pDE LLIST ▝ BEEP NEXT W FOR BRIGHT M AND #USR CODE INPUT STOP CHR$ CIRCLE CLOSE # SAVE 8 LLIST [Q];~ CLS SGN /BIN *[T] FLASH iUSR ^OUSR LET <>I1CHR$ ▖qE GO SUB LOAD CLOSE #$z}USR SAVE O.INT [C]/▞A<>EXP g▜ NEW ^SQR SGN LN ▖[Q]STR$ OUT nQ[A]©PEEK ▟POINT 9[N]▗w LET VAL$ [M] RUN [ CIRCLE /PEEK CLS <>NOT LN CONTINUE < RESTORE 7▞USR 20| CLS LPRINT READ BEEP RETURN / VERIFY [Q][Q]D3[L] LPRINT E[C]p4 NEW LIST _ LOAD b RETURN aSIN PLOT USR O AND 4 RETURN ATN STEP BEEP kFN (IN ERASE LEN IN gJVAL LOAD 0 LPRINT [M] PLOT INKEY$` INK ' RESTORE CIRCLE SQR p@[L]Ha=& AND [A]xpQ?p OUT # OUT [I]] CLOSE #IN L SAVE !ATTR ▝"ACS ATN A%▘~ RETURN COPY LINE CODE o&) DEF FN COPY FN a STEP AT ▘*Z#▝ COPY <>z NEW USR { AND _COS COPY CIRCLE VERIFY W<> RETURN TO ▝ INPUT sCOS STEP INPUT s"COS STEP ) INPUT s0COS STEP 7 COPY p><>! SAVE [C]" RANDOMIZE INT f INVERSE X[D]LN DEF FN PAUSE [E]7 FOR xo[G] CIRCLE INPUT ,8[F]uCOS [I][P]GPI7 STOP DRAW FN NEW SAVE DRAW NEXT gy RUN <=Y}oS NEW OVER j>STR$ INK GO SUB w#s9<POINT ▝qp= FOR RANDOMIZE ▞©`H@ OR MERGE DEF FN d LLIST RANDOMIZE RANDOMIZE "[T]gsr BEEP DRAW LIST MOVE STR$ STEP CLEAR RESTORE FOR 7 STEP { STEP ▗▟<>wATN _INKEY$BIN =;:875320/-,*)'&% DIM COPY DRAW LET DIM ? FLASH REM g POKE CLS #mUSR sVAL READ [M] READ <= PLOT LEN !"$%'(*+-.0134679:<>?A=BDFGIJLMOPRSUVXY[/^_`bcdfghiklmnopqrstuvwxCOS yz{| RETURN NEXT }~© OUT CODE FLASH [H] GO TO H DEF FN 9 SAVE 8{zy COPY xwvut<=▙srqpnmlkjihfedba`^][ZYWVTSQPNMKIHFECB@ COPY LINE THEN GO SUB s LET RANDOMIZE LLIST "BIN U~bEXP LINE d*Wfh/ RESTORE j[F]ATTR lnVAL$ rp LINE UrtWEXP v RESTORE *xzATTR /|p[F]~W AND NEW IUSR e NEW IUSR AND p NEW IWUSR NEW IpeUSR W AND NEW IUSR e NEW IUSR AND p NEW IWUSR NEW IpeUSR W AND NEW JUSR e NEW JUSR AND p NEW JWUSR NEW JpeUSR W AND NEW JUSR e NEW JUSR AND p NEW JWUSR NEW JpeUSR W AND NEW KUSR e NEW KUSR AND p NEW KWUSR NEW KpeUSR W AND NEW KUSR e NEW KUSR AND p NEW KWUSR NEW KpeUSR W AND NEW LUSR e NEW LUSR AND p NEW LWUSR NEW LpeUSR W AND NEW LUSR e NEW LUSR AND p NEW LWUSR NEW LpeUSR W AND NEW MUSR e NEW MUSR AND p NEW MWUSR NEW MpeUSR W AND NEW MUSR e NEW MUSR AND p NEW MWUSR NEW MpeUSR W AND NEW NUSR e NEW NUSR AND p NEW NWUSR NEW NpeUSR W AND NEW NUSR e NEW NUSR AND p NEW NWUSR NEW NpeUSR W AND NEW OUSR e NEW OUSR AND p NEW OWUSR NEW OpeUSR W AND NEW OUSR e NEW OUSR AND p NEW OWUSR NEW OreUSR EXP <▘*W▗▚/ RESTORE ▖[F]ATTR VAL$ r▙ LINE U[A][C]WEXP [E] RESTORE *[G][I]ATTR /[K]r[F][M][O]VAL$ NEW I LLIST LINE USR VAL$ NEW IUSR LINE NEW IUSR LLIST NEW IUSR VAL$ NEW I LLIST LINE USR VAL$ NEW IUSR LINE NEW IUSR LLIST NEW IUSR VAL$ NEW J LLIST LINE USR VAL$ NEW JUSR LINE NEW JUSR LLIST NEW JUSR VAL$ NEW J LLIST LINE USR VAL$ NEW JUSR LINE NEW JUSR LLIST NEW JUSR VAL$ NEW K LLIST LINE USR VAL$ NEW KUSR LINE NEW KUSR LLIST NEW KUSR VAL$ NEW K LLIST LINE USR VAL$ NEW KUSR LINE NEW KUSR LLIST NEW KUSR VAL$ NEW L LLIST LINE USR VAL$ NEW LUSR LINE NEW LUSR LLIST NEW LUSR VAL$ NEW L LLIST LINE USR VAL$ NEW LUSR LINE NEW LUSR LLIST NEW LUSR VAL$ NEW M LLIST LINE USR VAL$ NEW MUSR LINE NEW MUSR LLIST NEW MUSR VAL$ NEW M LLIST LINE USR VAL$ NEW MUSR LINE NEW MUSR LLIST NEW MUSR VAL$ NEW N LLIST LINE USR VAL$ NEW NUSR LINE NEW NUSR LLIST NEW NUSR VAL$ NEW N LLIST LINE USR VAL$ NEW NUSR LINE NEW NUSR LLIST NEW NUSR VAL$ NEW O LLIST LINE USR VAL$ NEW OUSR LINE NEW OUSR LLIST NEW OUSR VAL$ NEW O LLIST LINE USR VAL$ NEW OUSR LINE NEW OUSR LLIST NEW OUSR QVAL$ [Q]<*W[S][U]/ RESTORE INKEY$[F]ATTR FN SCREEN$ VAL$ rAT LINE UVAL$ VAL WEXP SIN RESTORE *TAN ACS ATTR /LN r[F]INT SGN UVAL$ PEEK NOT NEW IUSR 1/ NEW INOT [F]USR / NEW IUSR [F]1 NEW IUSR NOT NEW IUSR 1/ NEW INOT [F]USR / NEW IUSR [F]1 NEW IUSR NOT NEW JUSR 1/ NEW JNOT [F]USR / NEW JUSR [F]1 NEW JUSR NOT NEW JUSR 1/ NEW JNOT [F]USR / NEW JUSR [F]1 NEW JUSR NOT NEW KUSR 1/ NEW KNOT [F]USR / NEW KUSR [F]1 NEW KUSR NOT NEW KUSR 1/ NEW KNOT [F]USR / NEW KUSR [F]1 NEW KUSR NOT NEW LUSR 1/ NEW LNOT [F]USR / NEW LUSR [F]1 NEW LUSR NOT NEW LUSR 1/ NEW LNOT [F]USR / NEW LUSR [F]1 NEW LUSR NOT NEW MUSR 1/ NEW MNOT [F]USR / NEW MUSR [F]1 NEW MUSR NOT NEW MUSR 1/ NEW MNOT [F]USR / NEW MUSR [F]1 NEW MUSR NOT NEW NUSR 1/ NEW NNOT [F]USR / NEW NUSR [F]1 NEW NUSR NOT NEW NUSR 1/ NEW NNOT [F]USR / NEW NUSR [F]1 NEW NUSR NOT NEW OUSR 1/ NEW ONOT [F]USR / NEW OUSR [F]1 NEW OUSR NOT NEW OUSR 1/ NEW ONOT [F]USR / NEW OUSR [F]1 NEW OUSR * LINE USR <CHR$ / RESTORE BIN [F]ATTR AND >=VAL$ r LINE LINE U TO DEF FN WEXP FORMAT RESTORE * ERASE CLOSE #ATTR / VERIFY r[F] CIRCLE PAPER UVAL$ BRIGHT LN LINE OVER +c NEW IUSR 2▚ NEW IUSR cLN NEW I▚+USR LN 2 NEW IUSR +c NEW IUSR 2▚ NEW IUSR cLN NEW I▚+USR LN 2 NEW IUSR +c NEW JUSR 2▚ NEW JUSR cLN NEW J▚+USR LN 2 NEW JUSR +c NEW JUSR 2▚ NEW JUSR cLN NEW J▚+USR LN 2 NEW JUSR +c NEW KUSR 2▚ NEW KUSR cLN NEW K▚+USR LN 2 NEW KUSR +c NEW KUSR 2▚ NEW KUSR cLN NEW K▚+USR LN 2 NEW KUSR +c NEW LUSR 2▚ NEW LUSR cLN NEW L▚+USR LN 2 NEW LUSR +c NEW LUSR 2▚ NEW LUSR cLN NEW L▚+USR LN 2 NEW LUSR +c NEW MUSR 2▚ NEW MUSR cLN NEW M▚+USR LN 2 NEW MUSR +c NEW MUSR 2▚ NEW MUSR cLN NEW M▚+USR LN 2 NEW MUSR +c NEW NUSR 2▚ NEW NUSR cLN NEW N▚+USR LN 2 NEW NUSR +c NEW NUSR 2▚ NEW NUSR cLN NEW N▚+USR LN 2 NEW NUSR +c NEW OUSR 2▚ NEW OUSR cLN NEW O▚+USR LN 2 NEW OUSR +c NEW OUSR 2▚ NEW OUSR cLN NEW O▚+USR EXP 2 NEW OUSR /E LPRINT < STOP [F]ATTR DATA NEW VAL$ r CONTINUE LINE U REM GO TO WEXP INPUT RESTORE * LIST PAUSE ATTR / POKE r[F] PLOT SAVE UVAL$ IF EXP LINE DRAW W RETURN NEW IpeUSR W AND NEW IUSR e NEW IUSR AND p NEW IWUSR NEW IpeUSR W AND NEW IUSR e NEW IUSR AND p NEW IWUSR NEW JpeUSR W AND NEW JUSR e NEW JUSR AND p NEW JWUSR NEW JpeUSR W AND NEW JUSR e NEW JUSR AND p NEW JWUSR NEW KpeUSR W AND NEW KUSR e NEW KUSR AND p NEW KWUSR NEW KpeUSR W AND NEW KUSR e NEW KUSR AND p NEW KWUSR NEW LpeUSR W AND NEW LUSR e NEW LUSR AND p NEW LWUSR NEW LpeUSR W AND NEW LUSR e NEW LUSR AND p NEW LWUSR NEW MpeUSR W AND NEW MUSR e NEW MUSR AND p NEW MWUSR NEW MpeUSR W AND NEW MUSR e NEW MUSR AND p NEW MWUSR NEW NpeUSR W AND NEW NUSR e NEW NUSR AND p NEW NWUSR NEW NpeUSR W AND NEW NUSR e NEW NUSR AND p NEW NWUSR NEW OpeUSR W AND NEW OUSR e NEW OUSR AND p NEW OWUSR NEW OpeUSR W AND NEW OUSR e NEW OUSR AND p NEW O3WUSR PVAL$ PAUSE LINE UWEXP RESTORE *ATTR /UVAL$ EXP LINE *W/ RESTORE ▚ATTR LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW TUSR +c NEW TUSR 2▚ NEW TUSR cLN NEW T▚+USR LN 2 NEW TUSR +c NEW TUSR 2▚ NEW TUSR cLN NEW T▚+USR LN 2 NEW UUSR +c NEW UUSR 2▚ NEW UUSR cLN NEW U▚+USR LN 2 NEW UUSR +c NEW UUSR 2▚ NEW UUSR cLN NEW U▚+USR LN 2 NEW VUSR +c NEW VUSR 2▚ NEW VUSR cLN NEW V▚+USR LN 2 NEW VUSR +c NEW VUSR 2▚ NEW VUSR cLN NEW V▚+USR LN 2 NEW WUSR +c NEW WUSR 2▚ NEW WUSR cLN NEW W▚+USR LN 2 NEW WUSR +c NEW WUSR 2▚ NEW WUSR cLN NEW W[E]+USR VAL$ &WEXP ( RESTORE **,ATTR /.r[F]02UVAL$ 4EXP LINE 6*W8:/ RESTORE <▚ATTR >LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW TUSR +c NEW TUSR 2▚ NEW TUSR cLN NEW T▚+USR LN 2 NEW TUSR +c NEW TUSR 2▚ NEW TUSR cLN NEW T▚+USR LN 2 NEW UUSR +c NEW UUSR 2▚ NEW UUSR cLN NEW U▚+USR LN 2 NEW UUSR +c NEW UUSR 2▚ NEW UUSR cLN NEW U▚+USR LN 2 NEW VUSR +c NEW VUSR 2▚ NEW VUSR cLN NEW V▚+USR LN 2 NEW VUSR +c NEW VUSR 2▚ NEW VUSR cLN NEW V▚+USR LN 2 NEW WUSR +c NEW WUSR 2▚ NEW WUSR cLN NEW W▚+USR LN 2 NEW WUSR +c NEW WUSR 2▚ NEW WUSR cLN NEW W[E]+USR @ LINE U<BDWEXP F RESTORE *HJATTR /Lp[F]NrURUVAL$ TEXP LINE V*WXZ/ RESTORE /▚ATTR ^LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW QUSR +c NEW QUSR 2▚ NEW QUSR cLN NEW Q▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW RUSR +c NEW RUSR 2▚ NEW RUSR cLN NEW R▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW SUSR +c NEW SUSR 2▚ NEW SUSR cLN NEW S▚+USR LN 2 NEW TUSR +c NEW TUSR 2▚ NEW TUSR cLN NEW T▚+USR LN 2 NEW TUSR LN *+c NEW TUSR 2▚ NEW TUSR cLN NEW T AND USR < NEW UWUSR NEW UpeUSR W AND NEW UUSR e NEW UUSR AND p NEW UWUSR NEW UpeUSR W AND NEW UUSR d NEW UUSR LINE < NEW VUSR LLIST NEW VUSR VAL$ NEW V LLIST LINE USR VAL$ NEW VUSR LINE NEW VUSR SCREEN$ LPRINT LLIST NEW VUSR VAL$ NEW V LLIST LINE USR VAL$ NEW WUSR LINE NEW WUSR LLIST NEW WUSR VAL$ NEW W LLIST LINE USR VAL$ NEW WUSR LINE NEW WUSR LLIST NEW WUSR VAL$ NEW W©CHR$ USR GO SUB {POINT ▝<> RESTORE OUT TAB MERGE OR TINT NSGN = FOR VAL$ w▘M#;;STR$ MOVE w[S] PRINT | LLIST <>ATTR ▛* LIST ?iV DRAW ©X` PLOT U REM GO SUB n<PEEK 5^SIN INKEY$ DIM j SAVE C<=▛W[K] BRIGHT STR$ 4PITAB S▛PEEK INKEY$[<SIN INKEY$ STOP j[E]5t CIRCLE z[K] BRIGHT USR TAN 6j LET PEEK INKEY$▟gSIN INKEY$[N] SAVE [E]^ LPRINT <TAB [J]ZPEEK INKEY$SIN LLIST STOP INKEY$<= FORMAT <>[E] READ RESTORE [K] BRIGHT PAPER ` LIST OR OPEN #PEEK BIN SCREEN$ INKEY$KNOT RESTORE INKEY$[B][R][D][E] AND THEN [K] BRIGHT SAVE ASN STR$ ▛PIPEEK OR [L]INKEY$ LPRINT INKEY$BIN NOT +[E] AND CAT IF BRIGHT DRAW ASN STR$ ▛PIPEEK [P][H]INKEY$ MOVE LkINKEY$<=t STOP [E][? BRIGHT RETURN VERIFY .[O]PEEK }^INKEY$mbk LPRINT d[SKC;4-& VERIFY FLASH 1@ RETURN EXP &-4;CKS[dlt}▟[F][N][U]ATTR SIN LN PEEK NOT >= TO FORMAT OPEN # MERGE BEEP CIRCLE @ #1 FORMAT TO >=NOT PEEK LN SIN ATTR [U][N][F]▟}tl~-TAB }ATN v▗ASN NEW ▞kTAB VERIFY Z▙!ACS [A]IN n[E]&'(? CLS )*+,-./|y0< RUN Z COPY -,+*)( STEP CLS $"!rf[K]INKEY$ LINE gRNDINKEY$ATN VPI4k STEP PI FLASH g6 SAVE |N[O]!VAL [G]" FOR INKEY$Y LINE DIM THEN DATA COPY T# COPY LPRINT STEP E▝"[H] RESTORE MOVE <>![Q]o CAT Q GO SUB [ SAVE ▟6 GO SUB VAL <> STEP [H] INK IN REM [G]! FOR VAL _ OR RESTORE MERGE GO SUB [Q]z} MOVE ; INVERSE n FOR TAN m8Nl RETURN X: DRAW LLIST $STR$ [R]<>|9 OPEN #R}-`o13Rgs?PBIN >= TO BRIGHT [K]2[G][H]! GO TO }[L] THEN ~a- FLASH GO TO :[L]o$J TO [J] COPY STEP IBIN ~ RETURN ( SAVE #" THEN SGN [D][H] INK CIRCLE COPY ` NEW GO TO ~#EXP PLOT ><> 02 COPY [L]~Y$6@ INK ▙&6 STEP AND ~# INVERSE . COPY INK [ THEN "V#2{ COPY 08 DIM ?C▖!(8 LET 0 INPUT VERIFY AND © NEXT RETURN RANDOMIZE >= DEF FN COPY INVERSE o8 CIRCLE TO NEXT !X' INK <> RETURN Oog RETURN CLEAR 0 INVERSE -| SAVE TO X+TAB NEW SAVE LEN LEN GAT MERGE SAVE Oz;;ATTR ▟G GO TO lSCREEN$ LPRINT MOVE CIRCLE +#h1 INVERSE , ERASE 7 PRINT AND G LET K0 CONTINUE M OPEN #SGN COPY 0 CAT _' CLS ▝SQR ` CONTINUE Oa RANDOMIZE I DRAW INK COPY wm IF NEW / INVERSE COPY &<>▜ SAVE CLEAR ATN PAUSE COPY @USR LIST PEEK LINE SGN INPUT COPY ATTR CLEAR &[O] RANDOMIZE o DRAW LIST _USR CLEAR COS SAVE |~;1PVAL$ MOVE k MERGE IN EXP SQR USR LET COPY RETURN ©▝ BRIGHT COPY STOP [D] COPY LET DRAW PI OPEN #©@ CLS [T]{© IF LET [A] LPRINT LET COPY SAVE p<[P]?kEXP LN ©9 FORMAT 7 SAVE PRINT ▜ LPRINT [O] SAVE DATA RESTORE FAT o PAUSE LOAD ? RANDOMIZE LLIST @▝ BRIGHT a MERGE TO OVER [I] SAVE ] LOAD CLS RESTORE CLEAR RETURN ;BIN ▘rK NEXT DRAW ▛LEN <> AND [H]USR REM /#ATN IN COPY OUT <= LPRINT r@ AND STEP W▜ COPY _©N▖TAN CAT BORDER SQR RUN [P][M][J]Z1 OUT && INVERSE GO TO p0>=3 MERGE ▛ COPY ~ OPEN # LIST SAVE DRAW z[Q] COPY /[F]~▛ DIM )RND COPY LIST lq CLOSE #6J TO [CODE MLEN <=_TAN LPRINT DRAW IN USR <=8a CLS : DRAW Y COPY SAVE PEEK {_ LPRINT SIN VERIFY RESTORE |[P] SAVE OR EXP LLIST ▝ DEF FN USR Yn OUT DRAW N COPY lBIN LEN NOT d<=[E] RUN 9 LLIST zFUSR e? SAVE > MERGE TAN [Q]`CODE RETURN 7;e▗▜[H]8x FOR |;f{/SQR THEN ▙▚978 COPY SGN IF PAUSE LET [I]SCREEN$ INVERSE ▞ CLOSE #▗>= LLIST OPEN ##. LOAD NEW RETURN READ rI THEN * BRIGHT ?©/ LPRINT p8< OR CLS COPY [H]? LIST >▙~©xINT S BORDER ERASE 0 COPY PAUSE &a SAVE FN pz VERIFY yNOT r1uVAL$ ▜& LIST COPY ACS 0PEEK [B][A]U@K DATA PAUSE ?>$[M]FN VATN G#▘ COPY S[P] REM `0 RESTORE 9<g RANDOMIZE 6INKEY$[P] LPRINT INPUT }nTBIN POKE t GO TO ^ RETURN VERIFY ▚'g* THEN g<> CLEAR RANDOMIZE ?> LET LLIST [U]STR$ b OR ABS RUN b STEP ) CAT &`*7 OPEN # READ !ATN COPY INVERSE CONTINUE FLASH COPY /= VERIFY pO PLOT CLS RUN LOAD DRAW [P][L]STR$ [M] FORMAT COPY . BEEP CHR$ GO TO LN j LINE READ vlLN ▜f8,[U]QSGN ACS ?[B] TO BIN OY READ 8 RETURN STOP 5 LOAD CRNDNOT 9 CAT SIN LET 8'-[U][A] LIST y CIRCLE dCHR$ <= DATA $[B] DEF FN [I]0 OR vLjW[C]< RESTORE SGN PEEK TrZw GO TO 3 NEW FLASH sSCREEN$ H SAVE ASN [I] READ FN [M][G]>[Q] LPRINT CLS POINT [F] NEW v[F]INT LPRINT [R] OPEN #? STEP op CAT 4<><f"VNOT x` THEN LOAD ▟LEN 1[J] POKE [H]▖ COPY <LIN RUN [D] FOR CIRCLE [S]ABS SCREEN$ PEEK <> SAVE RANDOMIZE bINKEY$ DIM XPNOT CLOSE #IN NEXT LINE GO TO BRIGHT [M]CODE [J] MOVE 8]cJ0 RUN COPY RESTORE QX FLASH ACS LIST COPY CLEAR DATA |9[R]`[I]▖NOT MERGE TO &%r[U] DRAW [R]vSGN [P]1▘3" RESTORE SIN rCA DATA LOAD xw NEXT 4BIN ▗[J]$ NEW 3ASN PEEK h[U]W RETURN PAUSE 2 SAVE CAT "IN ! LLIST © GO TO i CLOSE #▞s BORDER D[H] VERIFY COPY | OPEN # DEF FN VAL ▟i LINE [A] STOP h9 DATA LIST LPRINT VAL FORMAT ACS ▘ VERIFY R LLIST © LET USR RANDOMIZE <=J THEN V PRINT BORDER DRAW [K]c PAUSE `EXP COPY 1u GO TO +E BEEP POKE OR '[N]VAL$ OG[F]$IN SAVE SCREEN$ USR RETURN INVERSE 9 FOR c NEW STR$ ▛0 CIRCLE BEEP yb<D DATA ▘ CIRCLE CODE (*V TO USR KPOINT 7 IF /4DBIN =USR vCHR$ MERGE VAL$ ~GM COPY PRND}L, PLOT CLOSE #[T]©[F]4 CLEAR [C] CAT USR TAN ▙wPEEK INPUT x▗B TO I LINE USR _ CLS RANDOMIZE /CHR$ ASN STR$ C CAT [E]USR 4N|G RUN _!vp IF e ERASE USR " VERIFY [▘ COPY STR$ LEN DRAW PEEK 8 DRAW , OPEN #U GO TO PAPER COPY ▚ RANDOMIZE MOVE FORMAT USR ▚[C]W SAVE CIRCLE z&}▚▗1R1Z▞ COPY RETURN INPUT RESTORE GO TO LPRINT LET REM CLOSE #vF▝VAL$ /j LINE kX LET D@<>P[I] RETURN USR [N][B] STEP p COPY BRIGHT NOT |SGN ©s RETURN aVAL$ wC COPY &6[I]PI BORDER PAUSE LPRINT Z THEN SCREEN$ STR$ / RETURN $ PAPER RETURN CLEAR LET JI CAT OR DRAW LET W COPY NEXT ,` LET b▙ OUT KRND?[E] DIM GBIN ▞ FORMAT yUSR LET LIST p0*> TO NEXT o DRAW PAUSE CAT _ DATA LIST STEP @+]IN ~v FOR EXP <>▝ COPY E[G]?INKEY$ PLOT OPEN # IF GO SUB ©PI COPY '!wF OR ? LPRINT bNOT p*~q[U] STEP jCOS STR$ U.*▝~ MERGE [F]USR PBIN [E]▟© BEEP DIM Ao<@U STEP b NEW /VD LLIST MOVE ▗# LPRINT LIST DRAW ▗NOT SGN ▝ SAVE COPY DRAW [I]P[R][K]TAB * BEEP LLIST /HX[K]VjR MOVE 2 MERGE :BIN USR GO TO PLOT V▞▘ BRIGHT CIRCLE VAL$ /POINT V RETURN j[T]!INKEY$E( RETURN DC8 COPY INPUT v RESTORE C9 RESTORE COPY [T]G COPY BORDER RANDOMIZE RETURN DEF FN yO; RETURN EXP H REM DATA RESTORE FLASH READ y[F] PAUSE g ERASE [O] NEW INK 9 DRAW 1 OUT NOT IF LEN POKE CLEAR STEP LEN LPRINT )LINKEY$BIN VAL GO TO MOVE GO SUB / IF 1 CLS ^[E]STR$ IN BIN PAPER ▚ LIST INT ▜ STOP [H]#bu▛[M]Q LPRINT l LOAD CLEAR qSTR$ OR [P] ERASE ©AT DATA [M] RESTORE PIy<= CLS CLS OR ( COPY {U[O]D9 BORDER KEXP INPUT NEXT PAPER USR STOP FORMAT LET COPY B` DATA ATN BORDER LPRINT b[H][A]SCREEN$ CLOSE #~#▝Laser Co COPY STOP ▝{Se COPY o_ CONTINUE ~▙BIN ACS [Q]v RESTORE [N] FORMAT USR @L<=<= REM GO TO MOVE DATA USR 7▖IN LPRINT [H]ATTR OUT RND LINE / DEF FN 5` DATA CODE CAT U` CLEAR LPRINT / NEXT STR$ .FN CAT >= NEW USR D:USR VAL DEF FN CAT SGN FN g[A][A][E]xPOINT CIRCLE [S]ATTR [B]gVAL$ [J][O]▞xCOS ▛' DIM CLOSE #r/~_▛▖LN NOT DATA [Q]yABS EXP h |[A] DATA [J] OVER E▚ CLOSE #[H]rCODE FORMAT 3&x STOP H[O]AEXP y&LN INT IAa}g STOP VAL BEEP ^[S] SAVE DIM `/▖[Q]L<[Q][B]z LET USR H=CODE [A]zX<>[R]pUSR CIRCLE LIST SCREEN$ f[D]3[I]oVAL LPRINT RESTORE [I] BEEP RESTORE ZASN OUT <>[P]X[O]INT OR K[Q]LN ©W COPY LPRINT RANDOMIZE rCODE ~X<S`[P] PRINT [Q] CIRCLE 3>=W RESTORE THEN H▜ LIST LIST VAL ACS ▗ LIST /=FN /FN ABS T`w/▖>l IF IF >=0 RETURN VAL LIST LOAD [C]o THEN RSQR ABS > FLASH IN IF o CLEAR DRAW DATA PI TO CAT LET COS DATA CAT DRAW SAVE DRAW TO INPUT STOP BIN LPRINT [R] LIST CHR$ |[I]0}[L] TO ?q[T] TO @LN OVER =IN BORDER BIN LIST ]STR$ CLEAR &W LET GO TO LIST l CIRCLE GO SUB s STOP COPY USR RND CLEAR DEF FN L READ LOAD -VAL [F]g POKE POINT MERGE mEXP <>VAL$ ▚USR ERASE W THEN RUN CAT EXP L TO IF PEEK DEF FN OVER SGN OPEN #}[P][▖=ABS _kPEEK -USR [O]TAN ▗R SAVE TAB n&▛/ MERGE LLIST #% LIST LINE N INVERSE Zs OUT NEW CLEAR h▖ OUT P%ruPEEK GO SUB GO TO gSCREEN$ F© DRAW BIN NEW BORDER ABS ?H'LN INK INT CAT ▞+EXP VAL 3 STEP ATN ll~p FLASH STR$ =PEEK Mxp"CODE /IN W PRINT 0[H]▞ RANDOMIZE v CONTINUE RETURN [I]▞ LIST ABS © RANDOMIZE t▗ DRAW `3[Q] CLEAR GO TO DRAW LPRINT NOT ACS UTAB RETURN ABS /© NEW M|▟}ATN 9 SAVE ▞ STEP ▗@l[M]ATN STEP BIN SQR _SIN CIRCLE TO CAT ASN %+n[H] BRIGHT LRNDlx[S]AT ~N[Q]ACS NEW gK"©x▜}ACS LLIST G0ABS POKE ATTR >=▜ATN PLOT DIM [L]J GO SUB AT RESTORE }PEEK RUN STOP DRAW DRAW [U] PRINT ]ATN COPY PAUSE ABS RANDOMIZE 1pI` IF PAPER (`[P] OUT s▖ LOAD RETURN ▖ SAVE 4 DRAW cg LPRINT LEN [F] OUT PI[M]gVAL$ a~POINT 7 CLOSE # OVER ATTR LEN CAT COS 'N&x GO SUB oVAL ▞2?CODE /[I] STEP LIST [I]SQR x<=<=`IN USR >?* LIST }SQR pt[D][O]vG PLOT IF x~▝ INVERSE SQR COPY THEN Ls MERGE }( REM pAT & RESTORE u REM _ABS CLOSE #FAT rY INVERSE <=TAB LN BORDER ▞LEN EXP ~▚[T][B] BORDER gINKEY$FAT STOP . CLS ▟ CIRCLE FOR 0e~▘g DEF FN CAT t DEF FN [Q][P]l&SCREEN$ 8xATTR POKE ▖i6K LLIST %T[Q]COS y DATA CODE LPRINT +[E] DATA EeVAL POKE FN [F]MAT CHR$ AT ▘INKEY$ RETURN MOVE [Q] REM NOT ACS LIST CODE RETURN <= LOAD NOT PI([I] RANDOMIZE INVERSE PRINT K GO SUB EXP ;▖4▘ PAUSE PEEK LPRINT [S]▖[[L] NEW CLOSE #STR$ - CLOSE #USR VAL$ LET RANDOMIZE LPRINT '}CODE DATA CM[L] POKE SCREEN$ RETURN [E]AT LINE CIRCLE POINT OTxp LLIST ▚ATN VERIFY ▖[P]K%[I]NOT O STEP /{[S] OPEN #| INVERSE ▗4M[U]INKEY$PEEK ASN BRIGHT VAL$ SGN 1[T]ABS CODE RETURN bPEEK pVAL$ RUN LINE ]▗VAL ASN ▖PEEK IN .ACS CAT [P]WJ▗D[O]FN [N] CIRCLE r MOVE AT PEEK qCt▗[H] GO SUB ▜%1/} POKE -?ATTR STEP Kp COPY >= INVERSE ▖ RESTORE s FORMAT IN RUN RESTORE y` DRAW i`A` DRAW 3iIN INK THEN X LOAD CODE POINT ▝4RND▗▗ MERGE OPEN #p RUN ▖▝ DATA [B]G▗c STOP CAT ▗|Y COPY = LET PRINT l OUT PEEK TAN !VAL " ERASE PEEK FORMAT sIN [A]FN G ERASE [E] SAVE RETURN )a STOP G LOAD STEP [H] IF % OUT ]MatMPI▞CHR$ TAB W3& DRAW } STOP W[B] CLEAR AND /© FOR NEXT NEXT DRAW tiY_ZPOINT r BRIGHT SIN LN 3)T THEN PAUSE PAUSE SCREEN$ @NOT PLOT OUT o[S]` THEN NOT 37?Ul*[K]▛V CIRCLE ~DBIN SGN X INPUT VAL$ VAL nS[M] RESTORE Ft/MC VERIFY 8`/ CLEAR v^c PLOT ; LINE PLOT USR CAT ; READ STR$ LPRINT MERGE BRIGHT LIST NEW [Q]fkFN STEP ▘Ptuk MERGE yINKEY$[N]# DRAW [N]g[Q] OVER CLOSE #FN STR$ DRAW COS >NOT 0 FOR PEEK LN PRINT S IF FOR SAVE [G] DIM X INVERSE 6[D] AND 2K▗[J]LEN i LINE LN MERGE BEEP SGN [E]vp©IN l/ BEEP ATN n/ LINE U>?WEXP ;[F]>= DIM :/aCHR$ ACS *NOT *ATTR SCREEN$ INPUT JBIN zX MERGE OCv GO TO BORDER +2j{LEN m▝u([G]CLN OPEN # CLEAR |j DRAW 'x SAVE /(>?KVAL$ `[P]1LN 3 RANDOMIZE X DATA PAUSE < MOVE I CAT SQR COPY UVAL ©}}TAN V FORMAT }A LOAD NEXT USR ?USR xINKEY$@,)[K]POINT CIRCLE VAL INVERSE Wh BEEP Y: LOAD NEW [N]"N?U GO TO <> 6} NEW LEN ACS 5 BRIGHT INT <[D]ASN ASN _)©8c_[P]s6 COPY RETURN [E] PAUSE LEN POINT [J]VAL TAN CODE VERIFY IF VAL$ ` NEW 0SQR TAB AT EXP ATTR SGN 2&dTAN vPOINT IN FN o[L]PIVAL$ ATN b DATA BEEP VAL$ uFN ATN A VERIFY pp[S][E] ERASE INPUT FOR 7 NEW CIRCLE THEN [N][C]?P INVERSE /uASN <> READ [Q] MOVE CLEAR ~# MOVE RUN CYABS PEEK RETURN CAT TAB $ OUT ;▚ RANDOMIZE n MOVE SAVE ASN ATTR m LIST 5[F] POKE USR Fj FORMAT EXP I: PAPER u[O]VAL x OVER -[P]7b©VAL & COPY ▘ LIST [R]USR AT USR SAVE D& STOP SAVE 6TAB CAT [K]/AT RANDOMIZE u THEN IF ASN PRINT PLOT FLASH SCREEN$ *~< CAT FORMAT CLS [L]m FOR ASN REM MERGE RANDOMIZE USR POINT X6▜ LPRINT 9=CHR$ FN ;'PASN PI DRAW [Q]I| BORDER &ATN GO SUB U CONTINUE D[F]LEN _IN m(4_ LET DRAW SCREEN$ [I] COPY VAL OPEN # PLOT CODE READ THEN ATTR REM %k[H]=` VERIFY FLASH SCREEN$ CIRCLE VATTR ERASE 'r RETURN LCHR$ jB[N]USR INKEY$ RANDOMIZE ? PAPER OXASN ?[T]#PEEK ERASE [C]eSCREEN$ LIST ©POINT <>|5[B][K]> PLOT [T]%WABS >SCREEN$ PEEK KPABS FORMAT bUp DATA FORMAT ?L2 PRINT LIST Kb LLIST [H]y1 OVER LLIST CODE IF POINT SVAL ▟ FORMAT [K]▟[O] REM [D]USR eSIN SGN / OR <= CIRCLE COPY _INKEY$ RUN { SAVE BEEP [A]E[S] IF ^▗POINT LINE m~:FLN EXP CLS [C]CHR$ oABS CLEAR DRAW nPIINKEY$CODE [F]ATTR OVER +/ TO pINT /SIN 0[U]©[J] CLS OR OR STEP ALN hACS AT INK @[M]NOT [P] RUN /PI<>|C# NEXT > RETURN GO SUB G#f^!1ACS " COPY RETURN CLS <> OR MERGE RESTORE PRINT INK FN m INVERSE LEN CLEAR PLOT f.ASN CONTINUE COS w/ CLEAR LLIST INVERSE FLASH OVER LET MOVE STR$ INK OPEN #/NOT 8 AND ?PIE AND CLS VSQR <> OR ▜CODE !X[I]/K OPEN # RETURN w LLIST VAL [B]▜3[I]w▛ COPY w6[A]RNDATN T! RUN 4iINT [ RETURN ▛ OUT >© FLASH RETURN ERASE ACS + TO IN ;PIv GO SUB ` BEEP OVER *EXP IN Q OVER <>[L] OVER FOR DRAW TAB OVER FOR GO TO OVER AT INT PRINT ; OVER ATN CIRCLE OVER mSQR BORDER o OVER / OVER .Q`SGN GASN OVER Q OVER BIN :[T] RANDOMIZE OR ATN 2[R]<>~ RETURN COPY >=AT IN POKE e# PLOT INK &o[M]©©VAL$ RND FOR *F TO >PI w$ IF >FN n LIST u INK <> RESTORE CLS UACS RANDOMIZE e PRINT LLIST #"VAL$ INK CODE OVER [P]P STEP LN 6l[}VAL Y OVER OCOS SGN Wfy_g STEP PAUSE o[E] RESTORE TO 6[R]©[F] RANDOMIZE vINKEY$A CLS ' GO TO MERGE ATTR CLOSE # AND PRINT REM LN ?NSCREEN$ [M]<>v! PLOT OR Z▝_<>X LPRINT COPY STR$ ~< NEW w#u BORDER xLEN PRINT COPY ▝ LIST AND H CLEAR 2TLN OCSGN ~ THEN NEXT [D]zCOS PLOT OR CLEAR Z VERIFY FLASH CLS STR$ INVERSE <>`o[I] COPY fJA9M!USR RETURN COPY STOP BRIGHT COPY oTRIUMPNOT H2DAY▟RES(NTsW READ G READ E LIST LX TO Z:c"LN *▟qZUL GO SUB WSIN RS-RCODE NDI CIRCLE IN COPY I STEP d[M] PRINT OC[S]XAD.[L]/ FORMAT C RANDOMIZE [K]E'LEN ^|T3 NEW NOT FLOG`SGN CLEAR xBIN IN PLAID DIM IF USR SOSQR <aACK DIM IN LET SQR PEEK KYV DRAW 3USR ?4 READ VAL /?USR IN R) AND ACS C PRINT DRAW 3/USR RODUPIiIN EXP [J]xWAc PAUSE ?[Q]eLN OMzG PLOT [C]p STOP F[G]yMS[L]VZX& RESTORE ' RETURN , DATA LET CLS OTBAL DATA [K]SCREEN$ N COPY GR▜? DIM PLOT COPY PSYCHOZ-17gINT THEN SP CLEAR PREXP ASKZ[P]▟POINT e(?USR NEXT )C<=L[C] STEP GO TO 4TAN X()FN b:1 DATA X THEN )▟[L] INK B LOAD 1[T][U][E]▟ABS EKr IF PAPER qFTABS FORMAT ▞ DATA OtTPEEK [K] CLS O DEF FN ( AND [U]0 TO PAPER <>4rH[I]K DATA !? INVERSE NOT POKE DATA STR$ PLOT RDZVAL RETURN I PAUSE + NEXT _[I]7Q(C) INK d.R-PEEK , CAT PEEK PAPER 6 THEN POKE NOT P PLOT f LINE EM. PLOT 'CODE $VAL <[S]? COPY CY* RANDOMIZE /dUSR ▟ NEW V RANDOMIZE ▘ PLOT +▛[P]0IN <__Dq>IN 13.05A,2USR LINE E COPY [C]AVAL yB©! TO SAVE ▚ STEP )NOT NSQR LOAD 6 Pro RANDOMIZE LINE [R]C PRINT BIN 3.xplay=▛VAL$ f!lqbyS©[I]g NEXT GO SUB sv INK CAT USR "N/? CLS i SAVE ©<>d~2 AND BIN #TAN LET ^P RANDOMIZE g COPY COS >=[B]* RUN STR$ CLEAR DIM <>[Q]USR >0 NEXT CLOSE # FOR s COPY PRINT r= PAUSE 1 STEP _> LIST OR OR 2+ OR B AND b NEXT /<=* LPRINT ACS y OR CAT STOP [D] AND AT C OPEN #SIN ▛NOT BIN 1[O]>NOT OPEN #EXP THEN OPEN # RANDOMIZE INK + CLOSE #COS [J] MERGE ' CAT CIRCLE ^5b` CLEAR PRINT ggj GO SUB nCODE [F]r@lwg` FLASH ▛C PAUSE LOAD _RNDE}ASN ABS PRINT % PRINT [P]Mu[E]}6TAN CLOSE #ESGN [T] PAPER [Q]RND- COPY SGN MOVE REM [Q][A]* FORMAT PLOT ^PQu CLOSE # CAT cTAB MOVE F]BIN 5FN F} MOVE PAPER F[F] ERASE SAVE [Q]LEN `o| CIRCLE (▖ LIST AND ▟` LPRINT X0| OVER n BRIGHT VAL @ GO TO [E]v CAT D SAVE VAL 7zp, CLEAR AT gPEEK ▗Xg RUN PLOT LINE PRINT AT [S]|X8 GO TO [O] SAVE OUT [O] PRINT CHR$ AT VERIFY COS [A]{eQ CAT z>, CLS V[U] LOAD g= LLIST VERIFY PRINT AT >=ABS SIN FN COS [O][P][G]z VERIFY ▙~wF CAT pk[O]%CHR$ ^ VERIFY COS YTOKATN zGB FOR INK ;85g=2/ PRINT AT ,*'%VAL$ [O]#!INT U RETURN READ Y CAT = FOR AT gg RUN 7 TO N PLOT AT v▝MNOT q©l STEP RNDAT [M]COS FLASH IN [O] NEW LET Y'= FOR IO POKE U CONTINUE BORDER [O]i@▙D1mINT ▜<SGN ▖INT >=> COPY FLASH BIN ^/<= PAUSE OR < DEF FN 5{&L]f<= STOP b<>>= LINE COPY NEW 0 THEN tSTR$ " RESTORE >=CODE 2YgNOT NEW CLOSE # LET <>EXP >= REM 0[S]<><=<>NOT CAT BIN NuN2CODE -CODE go STOP NEW VERIFY Y NEW >[N]uVYg}[M] CLEAR BRIGHT MERGE "[F]cm[H]_[M] IF $ OR VERIFY 3 DIM " STOP [J] LOAD LET "▟FN CIRCLE !Y[D] SAVE LET RETURN STEP j"SGN ASN BIN 9 TO _ PAPER f CLS VAL$ dACS [U]ATTR 3 MOVE CODE : GO TO ogL[D]PI DRAW STR$ PAPER s GO SUB ATTR [H] CONTINUE AT ▙G[J]yP INVERSE OVER NOT [U] LINE [R] REM s POKE ` NEW 0 CLEAR CIRCLE COS [P]"Um~ PLOT [H] CIRCLE CAT ACS LOAD CLS EXP "CODE AND ▜ BEEP VERIFY N PAUSE INKEY$ AND ` RANDOMIZE WcEXP ` LPRINT INKEY$ AND T` STEP CIRCLE !r`[D]s%TAN NEW `Dm VERIFY d DEF FN BIN NEW j INVERSE f>=PEEK [A] INK OR g TO MOVE CODE USR ▞` TO [E]PIat LINE s[T]+tG[J]lyP INVERSE ~BIN [U] LINE [R]ASN POKE INPUT [E]INT ;SCREEN$ |[G]3▜Bv[G]JIN AND ATTR >=PI( CLS 8 LINE Z CLS (SCREEN$ AT [P]SIN pA▚% CLS GNOT ~ CLEAR o. INVERSE OR GO SUB s SAVE GG7g< LINE MOVE OR 1+ CLOSE #[B]©>o<INT 8d COPY PRINT }▜o9 RANDOMIZE MOVE SAVE STR$ z NEW {PI PAUSE OR q@:/CHR$ LINE ©= RETURN LIST <NOT [I] THEN NEXT =4 FOR VAL [N] CLOSE # PLOT $CODE COPY * COPY BIN > AND LIST o&STR$ O CAT ~ THEN ; PLOT CLEAR DIM zog DRAW THEN m(SQR INVERSE g PAUSE b{ NEW VAL$ / MERGE PLOT LIST USR /[C] CLEAR ©no|4 LIST NEW INVERSE STR$ }c,[A]}[N]i RETURN COPY FOR 1g MERGE STR$ >iLN DRAW FN iyj&9~ AND yUSR eCHR$ RANDOMIZE LLIST &"[U]6= IF FORMAT OR *<>/ LET "IN U FOR 8 GO SUB RNOT H IF LN OR $ IN CLOSE #R[N]o;# DRAW FORMAT } GO SUB INK 6kf<= LET <=:~K[L] INPUT " REM 2 LINE GO TO PEEK R PLOT INPUT OUT CLS TAN CONTINUE DIM FOR AND 1EXP OPEN #+ POKE DIM ~4 RETURN DIM 1 AND DIM RESTORE CHR$ (e DIM DIM . BRIGHT < DIM %m DIM ;K& COPY A! DIM INKEY$ DIM ▝y DIM [C] RUN ▘ DIM CONTINUE INVERSE ASN IF NEW z LLIST NEW ▝ NEW LIST NEW " NEW REM SGN u RETURN NEW FN [R]7 NEW ERASE AND NEW BE NEW ▛F[M] NEW ERASE w DRAW REM _ CONTINUE BRIGHT NEW <=<=" NEW ! NEW PEEK LINE <= NEW OUT ACS 9TAB n NEW >=1z NEW SAVE o NEW <= MOVE NEW K<= NEW LCHR$ DIM B NEW BRIGHT eH<m NEW ! NEW U NEW [#▖& NEW o<= NEW [D]l▞ NEW ▜<= NEW PEEK COPY NEW $/ BORDER BORDER [Q]<= COPY BORDER VAL <= DRAW ▛ BORDER $w. BORDER >=[Q] BORDER <=ABS LET BORDER FOR <=g& BORDER IN ^q CAT BORDER FN LNOT VERIFY OPEN #^ BORDER 9<=t1$<= BORDER <=z BORDER LINE [E]▖ PLOT !JNOT OUT [T]4 RANDOMIZE }do3 BEEP ATTR MERGE FCODE / MERGE [M] SAVE ▟▗] OR OSIN _IN COPY CLEAR DRAW :NOT GO SUB iC▘][T]BY INVERSE |<&tBIN ERASE PLOT y,VAL$ ABS } PAPER USR THEN REM n[H]ATN (MCOS y>ATTR ▖.,INT LINE / THEN [B]SIN ▗USR FORMAT +/_go_2AT COS VNOT ; FOR [N]BIN TO USR INK @f[N]STR$ PI 2 GO SUB s<>!O DEF FN ~▜0# STEP SQR W_ASN INK THEN BIN W_ INPUT mSQR ]ABS "/ LINE OPEN #[< THEN ,POINT RANDOMIZE STEP ;<> GO SUB S RESTORE SCREEN$ CLOSE #[I]RND INK OSCREEN$ }BIN [E]POINT MOVE ATTR [H]7 BORDER [U]<>&USR VAL$ 8 CLS PAPER u<>▝SCREEN$ U|EXP [L]>= MOVE AND `{6 PLOT SGN GO TO LINE 0[G]% RUN .PEEK /]~,f RESTORE : BORDER AND OR INK ONOT @<> RANDOMIZE g LPRINT oN,F GO SUB C[D][S] READ CODE [J]SGN u[A][Q]G[S]^PI PLOT =( DIM [G] DEF FN $[mASN i▚TAN DRAW ▝ DRAW ~ LINE /R PAPER INVERSE ©>/ AND CIRCLE CONTINUE v INK ` INK WLEN UV▖h?[U](= 27 MERGE %<>RND RETURN INT [E][B]SCREEN$ [Q] MERGE K{▜NOT SGN IF toZ▗ACS LINE v▞ACS PLOT SGN %BIN [N]u= PAUSE i,ACS ▖ CAT STEP O LINE z[F] GO TO INVERSE [I] GO TO OUT PI GO TO CLEAR L GO TO PAPER [A]2 GO TO [C] LINE GO TO INT ATTR SAVE VERIFY [H][C] INPUT PRINT GO TO STOP = THEN u~>COS DRAW ▞ FORMAT [K]6 DIM INKEY$ AND DIM T LINE PIu[K] READ o3BIN /9 TO [H]E CIRCLE <>>_Q LINE 7 READ [O] LINE d CONTINUE READ PAPER OUT LN INVERSE READ BIN PRINT ▗ READ ([O]A READ [U]R[J] READ 9 LINE READ [B]NOT COPY READ R5[E][Q]z)▜WIN NOT tM▛▗ READ 0 THEN ~2 LIST !NPIp FORMAT STEP K THEN 2R NEXT MERGE [INKEY$ PRINT SQR EXP [K] LINE 9 OVER TO LOAD %[N]} LIST PIIN AND TAB STOP VAL$ IN <=P THEN k DRAW [J]AT G DATA cfT FOR "VAL RUN M(A` CONTINUE IF RND[B] READ >= THEN [U] INK INVERSE 'ATN LLIST Ub<= GO TO / BEEP 3PIF NEW 1 THEN ▘USR THEN f[H] BEEP ^ LIST Kx PRINT PLOT PAPER ?iRNDABS }o{ FOR /c RETURN LEN FLASH k PAPER ▚j POKE RANDOMIZE ` BORDER p FOR ~RND DIM [C]V FOR "COS <=e<>EXP INK X<>~ FORMAT IF . DIM TAB NOT ▙ TO ):▙ THEN AT [Q] INK y FLASH FORMAT GO TO ▗<>m LLIST ASN FOR STEP OVER nASN GO SUB mATTR REM REM Y ERASE INVERSE } PAPER xBSTR$ z'SIN EBIN i TO [L]SN[L]Y/^k[L][L]d[L]M}BIN <=[L]: OPEN #AT F@ INK [D][L] PAPER 0LEN ▝V FLASH ACS ~▟ACS REM [O] MERGE r INVERSE PIz' CLOSE #aS▘SIN FOR COPY [I][D]INKEY$ BEEP <=[I] OVER CONTINUE ? OUT INKEY$[E] LLIST <=▗- INVERSE 3[E] FLASH @1F LOAD [B][C][C] INPUT FN [S] MERGE SGN CLOSE #ACS LLIST 2 LPRINT INVERSE FLASH g[J][J]{WEXP oACS VAL [P] IF [K]0[J]CODE INKEY$SQR , MERGE AND [L]`v^>=▚ackqEXP [B]3.5BIN ?compilatgn p|fSmAlUSR PEEK Dream RESTORE ACS CLEAR / LINE aKV'▝[J]3u PLOT f COPY ▛z] INK ABS 3 PAUSE NEW {V CLEAR RND PRINT GO TO }[J][F]LN CODE FLASH CLS CODE IN _ LLIST L[Q] DATA GO SUB CONTINUE ASN PAUSE GO TO ▖ GO SUB LET ~!<= CAT '* GO TO $ COPY 3^ BEEP COS 7F[,ASN h RUN GO SUB "E▞ IF LINE Q[P]1LN VERIFY * OPEN #_P FLASH [H]-[O] BRIGHT {POINT FORMAT IF 8H CAT 9[N]▟ STOP ▞LEN @ LIST ABS OR a<LEN h OPEN # INK USR [J] OR y CAT /~ OPEN #O5IN o POKE USR COPY FOR , RANDOMIZE TO tO<= OVER PLOT FORMAT wVAL$ THEN U[H] PAPER {*ACS pV READ BRIGHT ABS CLOSE #|Q[ BRIGHT W NEXT TO r RESTORE *vyATTR /~ACS [H]▘SIN ZPEEK USR FORMAT RNDACS USR sE GO TO BRIGHT Pn DEF FN LEN [P]TnTAN VAL$ CAT ©K INPUT ypINT ~ RETURN MOVE O|r PRINT VERIFY ) PRINT 6[P]o$ SQR [P]'-LEN SAVE Y8|cE,LEN COS e<RNDG PAPER { BRIGHT ASN RESTORE #TAN oUSR oVAL$ RESTORE # LIST [D]X ) FLASH COS 1c- READ RESTORE u BRIGHT 8[H] RESTORE % RANDOMIZE MOVE 'MJ INK 28 INK ▚ RETURN LOAD [P]1 THEN TFp ERASE TAB [O]jP▝j CIRCLE IF <{/rG[L]_F[O]^ OVER `INKEY$<> OVER 3]/ OVER ▝ MERGE [ REM %SGN Z READ g OVER Y[H] STEP SGN ▘qVNOT ▜>[D]sf[C]<> STEP [L] GO TO ▘~[B]CHR$ 9 LINE STEP (3 PAPER ▙qf[L]>=RND▘>=©[D] LOAD THEN <= GO SUB ATTR IF DRAW ▝AT RUN { CLEAR IF OUT U PLOT ▜ STEP [D] TO DEF FN r THEN LINE CHR$ Y<>>=<=}▜[T]G DEF FN :>=SIN f<>@ CAT b[B] STOP , LINE CHR$ Y PLOT [B]<=y SAVE ABS STEP ▙G TO @ THEN [A] POKE COPY ▘4USR O<={3 READ LEN FORMAT COPY <>agASN xATN GO SUB ©EXP THEN MERGE ▟[H] FLASH ▛/ATN ^n▞ABS BRIGHT ▖{EXP ▜ PLOT r▚ GO SUB RESTORE FLASH THEN ▗ATN [H] PAUSE VAL$ GO SUB RESTORE ▝▜ OR CAT e6[C] RETURN COPY pATN ASN j[T]*▟Un/G-U▛SCREEN$ LN READ : IF ATN /GN`ATN ▞Gy/rC$ READ IF BEEP RESTORE ▜RNDRND/ CLEAR [S]uX AND U REM A▝a[C]*|TAN SIN FLASH ?VAL$ `▛ja▞ PAPER INKEY$ TO CAT [M] FOR DRAW ` THEN IF [A] BRIGHT ? AND o MERGE <>)o[D]89 N[Q] RETURN U[J]L@▝(NOT CLS 1 BRIGHT [F]<>PIATTR fINT AT LOAD > CLS VAL 6▛}M LIST ZULU1i CFN atuhrust NEXT ! POKE FN RND GO SUB s[H][M] COPY IN GO SUB LN FOR #RND~ 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!X[Q] GO SUB VAL CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN GO TO vvv INK LLIST X GO SUB VAL INK = MERGE &[Q]w]T COPY GO SUB VAL STEP *[N] INK ![Q] RESTORE ABS G[S]SQR INK 8SQR INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL INK NOT !X' INK <>!RND@J~# IF Q{ AND _0 LIST z AND W RETURN X8 CONTINUE { NEW LPRINT <> COPY COPY PAPER ▗|bb|USR ` COPY NEXT STR$ COPY ▞?© 12BIN LIST ▞ LET NEXT RUN COPY COPY RETURN DRAW SAVE LIST VERIFY USR dbb LIST ▗ OUT ▗ CIRCLE USR ▝~[Q] LPRINT USR @ TO 1 PAUSE BIN ▞ CAT LOAD COPY COPY ©?RBIN B▝<b▝<STR$ b▝~PUSR <= INK 9;:>|xx|><>??INT %aU FORMAT <><USR ?` FOR =▝? $R>=BIN @▝~b CIRCLE ▝x}f|xB CONTINUE USR USR r PAUSE USR TO TO INK 0USR ▗ DRAW RETURN RETURN DRAW 3%0STR$ ©02pUSR ERASE <>q2X00"qq#[M]CHR$ ba OR LPRINT ▗ LLIST READ BORDER LOAD rw OPEN #qqB MOVE USR LPRINT LIST SAVE USR DRAW ▝ SAVE q CLOSE # TO CAT ▝T0▝ TO CAT r@▚bRJFBBr@b``r@R=▗▜<= BORDER RUN rw OPEN #qq▘ATN ACS tATN r@ OVER sS CIRCLE OVER "[I]▝b/▝D▝DR0▗~`©▝~RP▝ LINE ▘33 INK ▗ SAVE SAVE CIRCLE OUT X CIRCLE SAVE p FORMAT CAT <>USR NEXT ▝ LET UVAL ▝ LLIST OR NEXT ▚ READ NOT READ `▝>NOT ▝>ss4 CAT STR$ @▘ COPY BRIGHT <>USR t5XPt[I]V▙▘00 CLOSE #▝USR LINE LPRINT ▘ NEW NEW COPY BRIGHT <><31A INVERSE >0p ERASE ▘|bCHR$ ▘~| COPY COPY PAUSE CHR$ d8STR$ COPY COPY COPY TO ▘?v{ LIST ▖;<?▜4G▖32;dU THEN ▗tq SAVE x[A] NEXT SGN LIST Qs NEW ▚=i RETURN POKE POKE DRAW RANDOMIZE RUN BEEP VERIFY NEXT G DEF FN ~<= BEEP DEF FN p4>▙;w NEXT LIST SAVE COPY ©82&NN▛<= READ x BRIGHT RETURN 6 CONTINUE LIST wG PRINT RETURN PRINT LINE PRINT u THEN FOR [B]IN INVERSE [N]ABS RETURN IN TSCREEN$ U REM U REM ~ CAT DEF FN TO RETURN 7K DRAW FN TAN xS;# REM COPY 1 MERGE [D][P]? COPY THEN TAN jUSCREEN$ MERGE SCREEN$ MERGE j▙ STOP [S]a▝u PRINT LIST ; COPY ©IN _CODE GO SUB ▝ CLS IN LIST RANDOMIZE RETURN CAT c LLIST LIST RANDOMIZE RANDOMIZE 9 FLASH NEW RETURN ~IN _[R]PSCREEN$ T* MERGE LINE 5 CAT CAT COPY DRAW x▛U REM CLEAR IF t[Q] COPY NEXT cG[I] PAUSE DPOINT UATTR VTAB XABS oWW GO TO SAVE ▖[I]8[A] FORMAT VAL ` LPRINT OPEN # POKE ▝ AND COPY GO SUB SIN POKE PEEK INK FN MOVE ATTR READ /ABS [O] OUT RESTORE IF CLEAR RETURN ▙s NEXT CLS w DRAW CLEAR [N]POINT CLOSE #SCREEN$ PRINT REM y>[P]SQR © LOAD ©? COPY RETURN [O] RETURN DRAW 7 SAVE SAVE [I] SAVE DRAW |SGN | RETURN RETURN LCHR$ 'M▚s+ LPRINT pPEEK {[A] READ TAB <n BEEP FLASH INVERSE mCOS ~SGN PAPER REM Tgwk MERGE SCREEN$ ]▚E.[N] REM PRINT IF = STEP INPUT LOAD RUN READ DIM GO SUB NOT G[R]Q![B] COPY COPY DRAW r DATA ' IF LN ?> COPY © DRAW SAVE REM [C] FORMAT N COPY SAVE PLOT DEF FN n STOP - PLOT 9INT =PEEK ©CODE ]CODE WPISCODE STAB U+W/_/_o/''(USR PLOT ▗ACS 1|▘ LIST q}▗$A▝h COPY READ STR$ '[O]▝▘ BORDER <=RND[L]=?oz|1}w~ COPY RETURN GO TO READ G;© IF LIST LIST ![R]▙;~||xc BORDER ©wp COPY LPRINT <>[S]5SCREEN$ MERGE REM MERGE SCREEN$ USCREEN$ u COPY Br▟`[F]J NEXT WCODE OUT COPY INPUT PEEK [U]▝ SAVE LOAD [I] RUN COPY OVER SAVE x RESTORE PAPER MOVE CODE CODE NEXT AT USCREEN$ T[Q][TAB UATTR U*USR ▜ LOAD BEEP * MERGE STOP POKE REM NEXT COPY ©[P]2C▝▞▘=!@▘>,▝▝4▝ RUN XZ▘~ LET A▘ RETURN ©e▘IN CAT PRINT ▟ NEXT COPY COPY [P] SAVE COPY [P]▜ COPY [P]© LET ▜ RUN COPY CLEAR READ COPY NEXT [C] COPY BORDER [P]© PLOT CLEAR }ABS CLEAR PLOT INPUT ] GO SUB TO <>bCODE m[D][P]?IN OUT COPY COPY ?o[N] OVER OUT OUT LOAD LOAD [P][I][P][H]++WCODE WCODE W.NOT PEEK IN OVER sIN Uj▝? LPRINT ▝ READ CHR$ IN USCREEN$ U- TO ▚©CODE W OPEN #<> COPY ▝IN [S]▝ RANDOMIZE CONTINUE /▝ COPY READ ▝[P]o"▝ DRAW ▞▘ RETURN [N]"[J]IN © CLS <=IN COPY RUN w IF IF RETURN CAT ? COPY SQR SQR CLS CLS RUN PLOT RUN OUT IN ABS GO SUB USR LOAD ▚CODE CODE om OVER OUT *▙ INVERSE BEEP EXP PEEK SGN SGN ASN )(880KACS BSs[O] IF NOT AT #(LQ[Q]▙▞ PLOT VERIFY NEW FOR POKE yPEEK COPY [P] LOAD BEEP FOR BEEP CODE BEEP COPY CLS 3[B]▟ READ POINT V0 RETURN RETURN LET ?NOT [N]▚ RETURN OR *@`2▘ OUT ATTR >=▘ REM CLEAR >= COPY ▝ CAT USR ▝{# FORMAT ▗ OUT COPY RANDOMIZE <= INPUT ▚<=? COPY LOAD CLEAR CLEAR USR CLS ▘; RUN CLOSE # OUT BRIGHT OUT ATN IN IN s}©© COPY CAT RUN LIST [N] PAUSE DRAW IN IN © DRAW RUN CLEAR BORDER SAVE COPY CLS COPY ? AND IF IF PLOT ©[O]IN COS GO TO ATN IF CONTINUE 7<= LINE ▝ LIST d1b@3ATTR W LOAD ▚ DRAW LINE DATA <> COPY ©IN IN INKEY$▘o<▝ BEEP z▚A▖"" VERIFY OqSCREEN$ U IF >= COPY K▗ COPY RETURN RETURN BORDER 2PUSR RUN ▘ LOAD LOAD USR OUT "C▝ COPY [J]▘ COPY CAT >=▘ COPY CAT HP▝IN CLS ▙IN <= RANDOMIZE RETURN LOAD COPY GO SUB ©[P] BORDER IF CONTINUE 8 SAVE ▛▖ LPRINT LIST h8 LPRINT SAVE *▗ FLASH FLASH MERGE GO SUB COS pSTR$ $LN ▝ SAVE `STR$ CAT sAT SAVE ©▖COS OVER . FLASH [T]w// CIRCLE CONTINUE CLEAR IF PRINT REM PRINT ^ MERGE LINE PRINT }▗ COPY DRAW CLEAR DRAW ▜ IF RANDOMIZE r▗@ INPUT %3▝ NEXT H▘PEEK INVERSE LUATTR w BEEP E▘©s2YC▗ RETURN OUT READ CLEAR M▗ DRAW ?<= RETURN R▘ READ DRAW W RETURN COPY FLASH VAL$ LET DRAW GO TO RETURN IN BORDER BORDER USR USR [Q] LPRINT `USR DEF FN [F] FOR OPEN #SCREEN$ VVAL$ DEF FN VAL$ _[P]^EXP ACS TAB juj MERGE FN UATTR SATTR OPEN # CLS BORDER RETURN ▝ LIST [S]D TAB COPY RETURN ABS [Q]▝ RETURN ACS IF CLEAR IF SGN READ [G]0[Q]▖[Q]@[Q]P@STR$ DRAW USR RETURN STOP OVER TAN TAN WATTR W_IN ©IN © IF [O]▝?[K] RANDOMIZE COPY CLS FN COPY RETURN q▝ SAVE USR LIST ▝ DRAW 2ATN ▘ LET LPRINT z▖ SAVE DRAW RETURN GO SUB USR SAVE CLS COS RND▘ COPY LOAD USR /RND FLASH 5 PAUSE RETURN RANDOMIZE RUN INPUT lZ4POINT [F]k[PINCODE _ OUT 7ATTR j RESTORE PAUSE RESTORE REM MERGE THEN ACS m NEXT INPUT _ RETURN <u BRIGHT © CLEAR ▗@@` FORMAT [F]▝▖""STR$ D▝IN USR STR$ $DHH[P]▝yHTAN ▟RK6 AND [L]4 RUN RANDOMIZE RETURN !▝ LIST FLASH ▗< LIST p`u?<>▙;;LN LIST ▙ LLIST CODE _? LET NEXT NEXT SAVE /h[B] GO SUB CIRCLE [B]XATN o PRINT LET ?SGN C:. OUT VAL$ /©?USR / DEF FN BIN I▗▘©?IIDATN @AAUSR ▛▝USR ▚#' DRAW xp LIST u▛/NOT ▘ DRAW COPY > MERGE SCREEN$ INVERSE ▜/▘/[B]▜ LIST SAVE RETURN RETURN ©q PRINT BEEP [H][I][K]▙. LIST STR$ CAT 9 LIST STOP BORDER DATA NEXT ©>PEEK LN p DATA OUT - STOP [P]U[T]o NEXT LLIST c[O] LPRINT MERGE * MERGE SCREEN$ QCODE SAVE CLS |© LPRINT SCREEN$ UVAL O SAVE RUN SAVE ▝ TO [P] READ CLEAR OPEN # RETURN CLEAR RETURN USR ©▚IN POINT VSCREEN$ UzSCREEN$ LLIST ▚ DRAW COPY OIN ©y▝ COPY ▛<>~H REM [S]USR LLIST LET RANDOMIZE yEXP x LIST BORDER [P] CONTINUE 8TAB ▜??f AND <=[L]6▙ OVER USR GO SUB LPRINT BRIGHT [E] LIST (ATN x[R]VAT QPOINT X8g LIST [Q] MERGE REM POKE <>▙ NEW ; INVERSE mnCODE ATN BEEP INPUT ?NOT TATTR ▖*5*[G]s> DEF FN CAT 9 RUN IN NOT SAVE COPY }©6[O]USR USR DEF FN ? BEEP THEN ▛7ooSGN SAVE LPRINT CHR$ d RETURN COPY p ATN y RETURN FORMAT RETURN n RETURN ?[T]` LIST RANDOMIZE ~[P]<=C[J][Q]__[J] DEF FN ? CAT LET >CODE CAT ©IN /][K]*SCREEN$ -^? COPY CLS RANDOMIZE MOVE ▚[R]C LOAD RETURN LIST ©[N] CAT ▝USR T CAT SAVE ▝@{<=>=:QG RESTORE BEEP NEXT 3y DIM DIM PAUSE z{xABS ASN 0[I] TO TO SAVE OVER COPY AND DRAW ~[H]7 DEF FN [A]^▚EXP ? LLIST DRAW RETURN ?GVAL AND {|PEEK CAT NEXT LET pVAL ACS VAL$ o LOAD STOP RESTORE NEW BORDER READ LLIST >= CAT NOT ▝ OVER © SAVE COPY <>[ LIST Pp[G]{ ▗ LPRINT `@? COPY ▗@pP CIRCLE USR CONTINUE ▘[A]`SGN ▚ LPRINT pVAL VAL 0 LIST K▖LN SAVE LIST [Q] (>=USR [M],| OUT BEEP ▘ LPRINT SAVE COPY COPY SAVE ▝<=DNSQR AT NOT : ▝p NABS p / COPY >=Dp P? NOT F▗CCDSTR$ Bp▝CHR$ B STR$ IF ▝F CLEAR p P~Gp ▖DFFDFp_▘ `0@▝F ▝▝2IN ▝2STR$ p ▘ IF Fa Sp 0`[Q]0`P ?@ a"p@@ ▝p IN ▝0`@▙q@P ▗USR @Aq`@[Q]CHR$ 0"p@1▝F LLIST !p@p[Q] POKE CHR$ p pIN p Bp`USR `▗p[Q]P LPRINT <>0USR OR G TO ` q LINE !<>E<>-[B]▝ AND F CLOSE #B_p TO p OPEN #0USR OR G TO ` q LINE !<>E<>-[B]▝ AND F CLOSE #B_p TO p OPEN #USR p pIN p Bp`USR `▗p[Q]P LPRINT <> NEXT GO SUB s!b[!Ia OVER MERGE GO SUB VAL MERGE INVERSE LLIST !y[U] DRAW COPY GB<> GO SUB LN FOR RANDOMIZE $a INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 CLS NOT SGN AT HR INK [O]SBXXXXXB~}ATTR ©BIN ▜fu COPY e$~ SAVE tg▜h▘b[O]d&F AND (@ REM *D:/>=_ MERGE SAVE `0 PAPER LIST )[J]<= STOP ~>=>COS VAL 1 LET [U] CLS g RETURN RESTORE CLOSE #u TO <= OR INPUT @<fnvLXRND8~"<XRND CLEAR ~d3SCREEN$ INK ,LnNOT `|q[Q]e^ PAPER c~ RETURN [I][Q] CIRCLE tg REM > AND FOR /[U]0▚▖ PRINT c[G]▝HASN © INPUT SSCREEN$ [Q]>= LOAD JV^@USR ~$S[S][Q] FORMAT V BEEP ▙`FN xE<l<>[H] OVER IN JXl▝n)<>TAB RND>=<A@l_0▙dhp6[E]b CONTINUE / IF >=aINKEY$ INK CIRCLE F REM v▗TjEXP [A]H[C]m LET VAL ACS ATN [K]▝▟n[O]SGN ZFN ACS h FORMAT ^<>[N]1XTAB <= LET AND l83u STOP B)EXP CIRCLE CLOSE #TAN if0[A]USR PLOT INKEY$gp[T]▝` GO TO < PAUSE rZ CIRCLE n DRAW COPY 2x4tI NEW BORDER 8< STOP <P[U][K]ACS [U]USR A2uI8 FORMAT RESTORE 8 REM RETURN Lr LOAD FORMAT N:FN % RUN ▙IU▖l▜ COPY S▞W'~ FORMAT GO TO VERIFY ▚ MERGE jPOINT MOVE FORMAT USR P[H] INK F3PI COPY dFN VAL D FLASH d3 LPRINT [C]j$xUSR |jUSR SCREEN$ V<> FORMAT <>}TAB ▚LEN [A]gLN D<CHR$ CLOSE #[A]p!COS IN @[G]ihJLN gSTR$ TAB ERASE `CODE RND_ LIST "B[J]P[R]<=STR$ !"©# VERIFY MERGE $W/#[M] CAT $ LLIST PIFN RETURN LINE *SCREEN$ FORMAT INPUT a<=f STEP O>%ASN I) MERGE FLASH OR [G] REM BEEP PI AND COINT -ASN PAPER [D]▙ BEEP CAT USR CIRCLE ATTR MOVE INK /▟[T]TAB [N]ACS PAPER INKEY$P[U]eU[E]R%[A]JASN FORMAT VAL INK SGN ZCODE uT PAPER SIN RNDVAL$ TAB RND[K]▝[C]Z-VAL$ SmASN 9uTAB vJASN SVAL$ DEF FN '( FLASH jr DEF FN R GO SUB m>=LEN [D] CAT K) IF (SIN oVAL$ V[P]k▖CHR$ 'ACS T AND u[F]▞[S]n%jPOINT INKEY$H[K]d<>'ZPEEK . "SCREEN$ = GO SUB [M] MERGE R VERIFY ][C]VAL SGN -[H]n+ATTR /n CLOSE # GO SUB INVERSE JTAN D RUN CIRCLE ASN / LINE INKEY$[T]pDLEN p9[D]>=ASN [U]▜K+[M]zkV{>=MTN OVER TAB `J#*X[H]r OPEN # MOVE RACS ©[T] STOP ^YZ[m/] GO SUB CAT [H] PAPER } RETURN /X!SUVWNTAB [G]TAB ( LLIST [Q] CLOSE #STR$ NOT OUT ▚Z[S] VERIFY ` GO SUB .&^qj SAVE D RESTORE ERASE /tCOS >=TRSGN CODE XPTAN ZUSR LET raa LLIST hVAL$ m PRINT <>[D]PI=ac LLIST PEEK _%9 THEN OR =1{oG LOAD REM SVVRNDUW LLIST ! INVERSE j[P]CODE I PLOT X OVER &-RTAN P INK BIN 'bVAL$ PLOT de%FN Z▟©[K]ATN 03[K] LET &RCODE OATTR MOVE THEN VAL PLOT @<=fg REM RANDOMIZE CHR$ jASN jb▞[T] RESTORE BIN k▜[L][ NEW vCODE -POINT 2NOT MOVE BORDER [T]M INVERSE RP FORMAT [Q]ASN 3q CLS hi DEF FN i&oPIAT GO TO r&RND INVERSE p[B]`[N]d RESTORE [T].l INVERSE lTAB VERIFY [G]/"^s[G] THEN SIN OPEN # OPEN #VAL$ dp5PIFN CONTINUE FN MERGE CODE +Ie<= TO V-TAN rv NEW `)*VAL$ /ATN t<>7 IF INK k BORDER ACS PAPER ASN mv] RUN VERIFY <=TAB [U]▛[F][A] FORMAT vpd CLEAR INK BRIGHT +,W+*CHR$ (V4yINKEY$+ RETURN ▘ATN NOT INPUT VAL jASN 'B_TAN OVER INK CODE l LLIST jklx▚mn LET ▛I▞SIN ^CHR$ GO SUB PLOT $3456 OPEN #[M]POINT cBPOINT ATN 3[M] INPUT hW!nSQR ' RUN LN FLASH ▗ PAUSE BRIGHT MERGE CODE LLIST j5 VERIFY FORMAT TO SGN GO TO )+VAL$ ##(] GO SUB 7=>8 MOVE CODE ACS ATTR PI MOVE z-GNOT SCREEN$ SAVE PLOT 4 STOP u▗F INVERSE MOVE BORDER =ASN &b"SIN *o9TAB VAL : INVERSE u)opYSQR i RESTORE RESTORE pVAL CzACS THEN l STOP LLIST STR$ }[U] INPUT p CLOSE #<>COS CODE [K] INK ;<CODE READ SGN $ CLS LET S) FLASH m[U] FOR J STOP POINT ~ OVER ACS 5yASN /<>q AND 4'[M] NEW wmSQR <>5PpNOT CLEAR ?CDESGN G[G][M]v>=INT ▖f BEEP PAPER RESTORE %<=}VAL ATN vC[O] VERIFY _ DRAW &u CLOSE # STEP 3VAL wy5[G] PRINT ACS [N]USR p PAPER PAPER RESTORE [P] BRIGHT v[H][D]: MOVE ▜[H]g$^[Q]" MERGE rG▞ FLASH TNOT LLIST 1VAL$ SQR AT DIM ;Z FLASH ▜Lm POKE CHR$ N FLASH INT OPEN #INT PEEK INVERSE ASN /[A]> INPUT rQrrASN >USR SGN INPUT * GO TO THEN RETURN ACS BORDER THEN ▚ RUN tLEN FOR TAB PEEK LPRINT STR$ STOP cSQR GO TO u REM TAB 1 LIST LN OPEN #E1ATN INPUT StCODE .K FLASH MERGE [O]Wt RUN EXP ug LLIST p~ LLIST [N]VAL BORDER [H]+SQR PLOT 9]▟▛ETAB [G]▛6 TO FOR THEN v5POINT OUT EXP [K]INKEY$bpQ FLASH /SQR RETURN G- MOVE 4 CAT FORMAT v INK t[G] INVERSE TAN RESTORE VAL$ OR [F] THEN =*hASN a;x INVERSE [L]JM▛x THEN MOVE ATN y LET F~p INK LINE vSQR OVER [M]^SIN g INVERSE RESTORE ▘ NEXT r;1++(yf{ RETURN CAT SQR OVER THEN / COPY {EXP TO | FLASH PLOT CODE w SAVE AND 8x©Nk/ INVERSE BRIGHT 7^+SGN ATN OPEN #2ASN [B]VAL ;[B] REM [M]PI[H] LLIST < LIST P8 BRIGHT - LLIST p% THEN N RUN "S GO TO <=;ZINKEY$%[R]n<=▗ DIM OVER GO SUB LN NEXT nFPEEK ATN INPUT THEN SQR Y FLASH Q/~TAN OPEN #Egv;';[M] PAPER ▙ACS IN OPEN #| FLASH [F]▞ PLOT DEF FN LIST DEF FN SQR V7[K][T]▜ FLASH 1|ATN SGN ▟{<=PSIN GO SUB N%AT &(SQR [M]SQR SQR OR .v▜|] LOAD STR$ [H] READ s OR INPUT PAUSE z OVER ▗ FLASH n INK SCREEN$ PRINT BEEP $ THEN FORMAT srSQR VAL 1 BRIGHT RESTORE ]SGN K#INT NOT POKE GO SUB h INVERSE <[M]~ INVERSE PRINT <BIN SQR TAN CLS [I]w, DEF FN Cz[O]^i# PLOT L CAT w[F] INVERSE RESTORE PRINT < TO CAT [T]▝ READ Y INK - GO SUB [C]. IF OVER AND NEXT CLS y DEF FN INT SQR <>Nw[L] RUN PRINT J PRINT ▙i[S]< BRIGHT . DIM BORDER PLOT 0[D] OVER 2 ERASE BORDER LET PRINT n TO INKEY$= INVERSE CONTINUE INVERSE MERGE BEEP BEEP SQR IF 9rMATN NEXT r NEXT xvw▚ COPY OVER ©1 RESTORE rTAB BORDER bx NEXT DRAW NOT LLIST DIM yINT CAT COS AT ]<>p[L] INPUT ATN LLIST REM iVAL$ EXP OVER ;ATTR ywEXP VAL ^▙?8[L]riv W INVERSE INVERSE SIN 'PI BORDER D REM IF .=ABS / INPUT ') THEN BRIGHT ||.[H]VAL INT STR$ INVERSE INPUT >=NOT [L]STR$ CONTINUE ^ CLEAR VAL MERGE vSTR$ T@ BORDER ▝ASN TO 2IN ATN j<> FOR y+yABS [E]ABS NOT <SCREEN$ y▘▞ OVER L CAT STR$ PAUSE CONTINUE `p LIST LIST HTAN TO /w>=STR$ ' LLIST j%[S]▙ LOAD TAN /▞x3 RESTORE STR$ SGN z CONTINUE ACS j^U RANDOMIZE THEN DATA - PAPER CLS AND RESTORE CONTINUE ~-- INK SQR ]ATTR REM BRIGHT DEF FN +aSQR X[D] OVER TO STR$ SQR CONTINUE VAL 7> INPUT WU INK INPUT [J]>N FLASH EXP 2<SIN C OVER DIM OUT INPUT >=SQR ZLA[L]BIN VERIFY STR$ ? PRINT @A/[J]VAL 9VAL Uw8` PRINT ▙[K]-7ABS DIM ;c% INVERSE ATN 6wSQR TO CAT [H]xf OUT POINT [K]AT POKE /SQR x AND U[M]<= FLASH MERGE SGN S[S][J] PAPER [L] CLOSE # INPUT n, LLIST ]ATTR di INVERSE `o<=SQR /] RETURN ? FLASH INK LN PLOT VAL B NEXT h= [M]wNOT AND ; LIST * LLIST IF LEN ABS NOT n PAPER LLIST &b,%^ REM yTAN 0TAB FOR ' PAPER STEP q[H]; DATA INK CLS vsVAL$ ACS STR$ [G] LOAD CONTINUE BIN R2▖ NEW c CLS _ LOAD }V FOR 2@ BEEP VAL ]RND LINE DIM =FK[H]NOT $f RESTORE r ERASE ZZg[M]! PRINT =2INT NOT sOv©Xy2 RESTORE READ ▞-ABS NOT LIST CODE w BEEP [K]fATN SQR STEP GO SUB SQR PEEK x[J]▜TAB AND SQR /ATN SQR Z=[K]A THEN PRINT OUT [U]V TO S PRINT .TAB +/ LOAD VERIFY h:w[ INPUT ? MERGE SGN o[H]PEEK OVER BORDER INK @sB OVER p INVERSE CSQR ] READ ATN J}▘t OVER PRINT ▚ATN &▜▛[H]EXP ;SQR EXP INT ▜ GO SUB <L<>/ NEW =p4 RUN W OUT SQR ^n PAPER [F] GO SUB b CONTINUE h OVER [I]% BEEP PEEK 45 COPY u_[G][H]u FLASH COS zW NEXT ACS OUT CODE THEN CAT <> THEN MERGE INVERSE PEEK >[U] BEEP ^LEN VAL$ ~RND!]>= PRINT REM ▟CODE ~ CIRCLE BRIGHT VERIFY RESTORE ▗ STOP BEEP STOP RESTORE OVER [J]~ PRINT FLASH CODE O; BEEP GO SUB ]TAN |W10~EXP [K]LEN IF 'D▛_ IF 0[Q]TAB [H] THEN INK 1 RETURN STOP [H]CODE ^?v[J]$<> POKE THEN OVER FN | PAUSE AND OR LOAD ATN CODE RETURN v GO SUB MERGE ASN STOP PIb IF RESTORE <>.IN = MOVE | OPEN #^PEEK [P]B1 LOAD VAL BORDER DATA LET ATTR ^ABS zP FORMAT kR FORMAT TO 2© LIST ▛fSQR CLS g1 CONTINUE WTAB PI_ DRAW [T] PRINT ▛~L?CACS Z MERGE INVERSE -~T PRINT [M][D]p<=▜CODE CAT ?VAL$ ▛_ DATA | LIST NH* MERGE KAT NEW 4 FORMAT _ LINE PAPER !INT -* SAVE RESTORE _W? INPUT LLIST THEN FORMAT $ BRIGHT MERGE SAVE %/SQR SGN qz~sxATTR MERGE ▙a VERIFY NEXT Or CAT [R][D] IF DRAW [C] DRAW zv REM 4ACS _TAB QRNDPEEK U[A] REM CLS pASN 2 INPUT PAUSE LLIST Ug BEEP CLS READ INKEY$ BORDER x`yW©>= OVER eABS [O]zABS STOP [O] DRAW [O]/ LET BORDER PI REM ▜<>e▟ CLOSE #<=TAN - PRINT ATTR xATTR CLEAR ▗ NEXT [T]COS GO SUB BEEP CIRCLE THEN BEEP # LET CLEAR G/VAL bPEEK OUT z COPY LET ▙ CLEAR xLN DRAW LET [E]SQR ?h?s FOR Ux READ 0zr LET PAPER VAL G[D]$63x~, PAUSE MOVE STR$ f GO SUB DRAW [T] RETURN GO SUB _ CAT =PEEK BRIGHT LET ▙IN 7LEN ~=[L] CLEAR x TO /_COS INT ACS [H]e THEN OUT PAPER <= NEXT OPEN # RETURN STOP VAL LIST GO SUB aVAL$ GO SUB CLEAR q FOR RANDOMIZE ▚ DRAW NEW LET STOP [C][G]x[R]COS IN CAT OUT OVER NEXT MOVE l[J] FOR
63897)" LET CLEAR q LOAD CAT STOP `8IN CODE LIST G& BEEP CLS BEEP CLS LPRINT FORMAT CONTINUE BEEP [ SAVE RESTORE ~9 OPEN #LEN COPY PLOT TO LOAD _ OUT O% BORDER _TAB CLS CODE <>ATTR PIPI INVERSE ~z NEXT CLEAR POKE i BORDER _SCREEN$ DEF FN / NEXT /[P] VERIFY [P] INPUT [F] NEXT /PI INVERSE ATN :ABS IN OVER ©//ABS 3] CAT IN THEN LN TAB [H] RUN o OUT PAUSE [N]ABS OPEN #;IN Wt©~VAL$ 9 COPY z©6)ATTR IF <= NEXT ( BORDER <= RUN MERGE s DEF FN oLEN OUT ▜ABS _[H]? IF STEP COPY LPRINT VERIFY ©: INK IN ABS IN LOAD RUN O[A] SAVE [H]! LET <cATTR RUN EXP LOAD IN CLS ▛< DRAW BEEP I^ABS SCREEN$ [ RETURN z[G] CLEAR GO SUB COS DRAW NOT COPY LET | RANDOMIZE z LPRINT /oCOS ! RANDOMIZE OR ▚ LIST FLASH TAN [M]©USR WIN RUN ABS RETURN PAUSE b CLEAR PRINT DIM NEXT SQR STOP INPUT BEEP ▖ RUN LOAD `ATTR ▜n CIRCLE zLN OVER PIATN STEP TO ATTR IF IN OR cCOS CLS CLS INPUT MIN BRIGHT N SAVE MOVE STR$ RESTORE <4t OPEN # CLEAR COPY k CIRCLE zPI.ACS COPY READ © LLIST AT BEEP NEXT so LOAD VAL BEEP COPY ATN FOR INPUT <=▛w▙X INVERSE DRAW CONTINUE ? IF CAT NEW LOAD [O]_ OUT ASGN PEEK ▖ATTR _ VERIFY VAL RESTORE DRAW SGN RUN STOP IN RANDOMIZE ATN [E] RUN FLASH "LN juz~SIN p COPY GO TO NEXT ©| CIRCLE IN SGN [C] OUT OVER NEW / RUN @ATN CLOSE # RANDOMIZE GLN CLS FOR C IF [H]}?<>z© LET W DRAW h CAT /[T]_TAN LET DRAW ? DRAW [ DRAW Gg PAPER IN / LOAD CODE OVER _ NEXT <?+PEEK © READ `4LEN _ CLS B DEF FN C[F] OVER k<>ATN INT [A][T]▜b©ATN DRAW z[Q]INT LLIST p▜ATN f CONTINUE IN DRAW VAL CAT [ OUT THEN RETURN FOR O DIM z_ DRAW e/ BORDER dL CAT TO BEEP X OVER 8_`-SQR THEN PAPER [P]▜w;SQR m? DRAW PAPER BRIGHT STEP [H]IN `VAL NEXT ▛Uv<= POKE DEF FN ATTR PAUSE ©} ERASE ? CLS [P] OVER [L]▝STR$ MERGE NOT CONTINUE VAL RETURN STOP RND RANDOMIZE GO SUB FOR [H] FLASH XO RUN {ABS e NEXT [T]▜= OR [?SGN CONTINUE RANDOMIZE RESTORE VAL OUT [T][T]VAL$ Z0 CLEAR MOVE LOAD LIST ATTR BRIGHT ov<>?f STOP MOVE AND U DIM RETURN z GO TO RETURN SAVE g CLS INVERSE SIN TAN [T] LPRINT l©[S][H] COPY VAL CLS ▛U CLS ▜ RETURN THEN l7 INVERSE G RUN l BORDER LN IF <= RUN LINE IN SQR VAL$ [P] INVERSE n7 INVERSE q[J]GzIN }CODE [P] OVER F CAT INPUT Y INK MOVE ] INVERSE IN [M]INT !0STR$ CLS } RETURN SQR [T] CLEAR DIM ( CLS ATTR g CLEAR ATN [H] FLASH CLS FOR VAL$ VERIFY :©z SAVE ?SGN r OUT INPUT CHR$ BORDER ,_ OVER ▛?INT ERASE _ DEF FN _=[M]f CLEAR LET CLOSE # DRAW READ INT CLEAR INVERSE LINE DRAW FLASH RND[T]_, VERIFY CLS [A] RUN CODE SGN RANDOMIZE PIz NEXT LOAD ; RETURN AT BEEP ` DRAW VERIFY f[P] AND 3 CIRCLE y AND FOR [F]STR$ GO TO COPY > AND V AND FOR _R3 STEP AND FOR 3 FOR 6▙ AND [T]STR$ AND CLS STR$ ▙▘ VERIFY PIH LOAD LN LLIST INK U]1 CAT ATN CLEAR tvus COPY DIM RANDOMIZE IN ASN NEXT DEF FN DATA P RANDOMIZE RESTORE ▛ CAT BRIGHT FOR |0©~ BEEP LEN 3 FLASH INK ©|8 CLOSE #M LOAD U STOP CAT INPUT / DEF FN ! AND #^v RUN 7 CLS >[K] INVERSE FOR ? GO TO [F]f@IP READ 5 POKE p IF ▛>SQR GO SUB j~V| CIRCLE (|INT INPUT }ACS CAT (&ACS [Q]~[U] INVERSE FORMAT p.&`8USR 0C,m LINE #VAL [M]1?©~ CLS IN PRINT COPY ABS RUN ? RETURN .*_ACS MERGE n<Z VERIFY RETURN ▞© LOAD > BRIGHT INPUT { OUT RETURN CODE CLEAR 'v[J] FLASH COPY INPUT ▜8 FLASH INPUT RUN RETURN [J]© COPY ACS LPRINT SAVE RETURN oNOT SCREEN$ GO SUB 3USR gIN ~ FLASH CLEAR PLOT RUN GO SUB REM TAB STR$ ©STR$ MERGE ;STR$ j THEN USR ^= MOVE SAVE 'VAL S<>6c CIRCLE ▞BIN CSCREEN$ 'p LIST / CLEAR FORMAT 18 LET [B][L]xASN DEF FN *TAB VERIFY CAT ~COS ukVAL < CLEAR /AT : READ [O][C]3▚yI AND DATA p CLOSE #©[K] LINE USR TAN SAVE [I][J]u AND = LPRINT TO [H]> COPY RETURN DRAW GO TO LPRINT ▟7>w©ASN [P]? NEXT CAT DEF FN # OPEN # DEF FN ? BEEP =`FN BIN CONTINUE 0 CLEAR mAT @,TAB ACS ` LET [T] >Uj▝IN SCREEN$ [P] LLIST STR$ PEEK ` LPRINT REM IN <CHR$ PRINT ATTR ▟©CODE RANDOMIZE p▜}SCREEN$ MERGE BIN READ COPY PEEK B▗CHR$ AND ▘ RANDOMIZE [S] DRAW [I]| VERIFY DRAW CLOSE #TAB ? RETURN LPRINT ©IN b▝▟vATTR MERGE PEEK a3 LET [C]▘A[O]u: BEEP SQR INPUT OACS LPRINT [M]▝ LOAD [D]1SQR AT CHR$ USR IN DRAW x▗rYTAB WPOINT SAVE RETURN :*@[Q]PFN T LIST LLIST 0 RANDOMIZE +[B] LIST PRINT MERGE RUN CLOSE # FORMAT [E]:zUSR [E]ANOT >=WINKEY$ OUT I▛ CIRCLE FN GO TO ATTR DRAW ~ CLS IF PLOT }[M]PEEK . DATA n OR IF ▙[K][J][B]©[U] CLS RESTORE 9 _[O][A]a- PAUSE >▙QHDno▙l DRAW PAPER 7 COPY COS ~B LIST PEEK ACS >[J] PLOT ▙w MOVE ©>h[C]kO564|TAN CIRCLE G STOP [I][K]PEEK PAPER [U]PIJPI CLS ▘ READ ASN LPRINT LOAD GO TO GO SUB MERGE mQ RUN FLASH RUN 7IN ABS ATN GO SUB ©{ATN GO SUB DATA 4 GO TO PAPER LPRINT [B]Cw BEEP P NEXT ATN 7 PAPER C CONTINUE NEXT [I]d NEW P} FLASH ? PRINT RANDOMIZE CONTINUE OUT / LIST DRAW 1RND[A]Z)7}wPEEK KkVAL ERNDkLN [E]I OUT PAPER [I]T OUT PAPER SQR [T][R] FOR TO ,o?s>[R] DRAW LPRINT /!AT $©~ INK <fNFN FLASH ABS SGN ©[A]USR `VAL 70 OUT vUSR ~ABS RANDOMIZE RUN CIRCLE GO TO SAVE ERASE GO SUB >=ATN <=NOT LET READ .[B]#INT [D] DEF FN SAVE SGN ©IN OUT o CLS REM SAVE POKE OUT CLOSE #[R]LEN o OUT PEEK }3 FLASH CLS PLOT GO TO tCOS LET TAN CLOSE #d7/>=i CIRCLE VAL `;[L] FLASH < RETURN :A NEW ;p©_%IN CLS THEN [N]$[S]p PLOT LEN <> ERASE IF INT VERIFY 8W PRINT LEN ^ IF [L]SCODE STR$ CIRCLE )wY RUN STEP STR$ }PEEK Y7d CLOSE #TAN tBIN ▛X@G PAPER YIN ©=<=l LOAD SAVE 07ABS >= CAT >= FLASH f* STOP MERGE p_ SAVE LIST ▟2 LPRINT VAL X PAUSE } PRINT &+-./ SAVE LIST LPRINT AND l LIST [B]▚~Y CLEAR BRIGHT RANDOMIZE CONTINUE jPEEK jACS IN LOAD xI LIST [A]P FORMAT ▞[G]INKEY$[P]E1} PRINT [L]ATTR m RETURN CLEAR ▘ LLIST 7 RANDOMIZE p VERIFY P[A] RESTORE IN LIST `BLATTR [M]P RETURN CLEAR [G] CAT ▜[Q] RUN TO .-+& LLIST NOT LPRINT USR SAVE LIST `lASN USR CONTINUE W>= COPY ?_ow{} SAVE CONTINUE RUN I<= COPY DRAW IF PLOT INPUT OVER PEEK ~IN DRAW }{wo_?>=PEEK OVER INPUT PLOT DATA ATN IF DRAW ▝(} COPY ATN LET }PEEK GO SUB gAT USR @[H] CLS ACS CLEAR ATN INPUT * REM |{STR$ ▟CODE ZA[P] RANDOMIZE ? COPY OUT LOAD ^M[H]JK IF ▜CHR$ =AT So CIRCLE DRAW CIRCLE IN <©IN SAVE GO SUB K$[*&} RETURN FORMAT TO GO TO [B] CIRCLE W| [A]o_ MERGE RUN !XCODE LPRINT EXP ( COPY LPRINT DRAW LN # CLEAR STR$ OR REM STOP G MERGE T]EXP o[G] GO SUB VAL AND ,[g? DRAW y RETURN 8|(x LLIST ▝ CLEAR MOVE STR$ CODE INVERSE <>USR vCODE D CIRCLE CLS CODE + GO SUB LN {,CODE MERGE RSCODE SIN AT _ COPY CODE RESTORE LPRINT ▙1[cBIN BORDER RANDOMIZE GO SUB P! RESTORE TO RND NEXT OR DATA ,{cSGN [T] ![L]_ OVER FOR r#<= CLS [Q]TSTR$ pvO# FLASH [H]M<>[H]@POINT -©[H] MERGE y NEW AND @ COPY ▜ NEXT ATN o)F[O] RESTORE CAT LET STEP [I][I] OPEN #[L] OR 3D THEN g.0| PAUSE CAT [C] REM STOP 2 COPY RANDOMIZE [D]A| DRAW LLIST `PISTR$ $ POKE NEW SQR da[E] NEW [E] GO TO [E][I] AND [E]0 STEP USR LINE 8[D] CIRCLE | VERIFY [D] DIM l[D]INT R&COS DRAW ~#CODE GSCREEN$ K=INT ATTR W2ACS INVERSE [E] SAVE AT RANDOMIZE ▖ CAT CLEAR Q`ATTR lABS PI+PILN ,PIt INPUT 2> PLOT CONTINUE READ NEXT M▙SQR ASN OUT ] OUT w[J]?<Co RESTORE [F]z▘[M]▝ RETURN BRIGHT RESTORE RANDOMIZE 4O MERGE SAVE MOVE |k▜&LEN LET READ DRAW ©▜ SAVE COPY @[Q]`[A] LIST LPRINT U>= BEEP RESTORE FOR NEXT IF ?8{+q BEEP 19x STOP IN ©[B][C]s DRAW [R]▝SGN RND©?VSTR$ ▖/> OUT CLEAR COPY PLOT LOAD GO TO RANDOMIZE PAUSE ▜?~RND OPEN # RUN LOAD >=p[H]▝>=©ux[M]CODE [C]_ LIST <▙ OPEN # OUT [A] PLOT RANDOMIZE l LOAD PI COPY @A CLEAR ACS PI LIST }SQR CLS ©{ RUN wATN OUT ▙ BEEP ]>=0 CLOSE #W[G]LEN TAB IN ) PRINT NEXT LET REM ASN ][U]I[S]@ INVERSE ATN [R]A PAPER RUN MSCREEN$ ATTR CLOSE #?c▚__[H] FORMAT AND 7} DATA INPUT PRINT IF LIST W3 LLIST ▙[O] INK COPY PRINT RESTORE @FN wOPI[H]' INPUT SGN SEXP IN RETURN " LET SAVE LIST DATA GO TO POKE LET ? CLEAR /ps AND LIST + IF FN @~ CONTINUE LPRINT SAVE p DRAW | AND +[L]ABS >= RANDOMIZE X BEEP [F][S] RESTORE B,QINKEY$PEEK ERASE SIN DATA H INPUT BORDER CLEAR RETURN 7P(▝[Q]STR$ $C/ BEEP Q OVER vm BEEP >=1 DRAW / RETURN TAN FLASH [L][I] AND MOVE DRAW x! POKE OUT [N] COPY b GO SUB IN MERGE OPEN # FOR [F]▟ CLOSE # LIST %- REM c BORDER P1 IF [L]IN [M] <A*N,^ BEEP / MERGE BEEP @ COPY ?TAB F[F]o FORMAT ERASE _R* RETURN STOP CLEAR USR LIST [G]|▝`LEN DEF FN @[J]dSCREEN$ / NEW MERGE CONTINUE VUSR !@[G] OUT BRIGHT [S]H CLOSE # CLS `▞"[E]0▝ SAVE Hd[J] PAUSE BEEP sLVAL ATN C< OPEN #▝[J]▖0 COPY $ COPY CHR$ D MERGE j©N PAPER AT RUN BRIGHT ▞dVAL MERGE JSQR GO SUB ABS SCREEN$ E[A] MERGE kPEEK m!J LIST ATN RETURN ▗([E]"USR LPRINT h LINE ▝ LPRINT PI DIM dP DIM RESTORE ABS PLOT OUT >=CHR$ ACS BEEP INPUT CLS LOAD lAT 9 DATA {PEEK LLIST >= LOAD OUT GO SUB x BRIGHT GO TO IN d[U] LOAD MOVE TAB BRIGHT COPY IN CLEAR COPY |CODE CLEAR [K]© CLS 7 LOAD V IF ATN `p GO TO DATA PRINT (^Np RANDOMIZE POINT NEXT PLOT DEF FN ▝ CLEAR .USR LIST CIRCLE t INPUT PEEK $'@`tCl~5▖>= v<0` LPRINT USR COPY RETURN ~-?j BEEP POINT LN o|CODE ;▖[M][N]<>>=COS INPUT [P]`©|TAN AFKO[sb LIST MERGE L GO TO BRIGHT EXP USR COS PINOT PAPER BEEP GO SUB READ OUT CLEAR STR$ LPRINT p▝@:<> FORMAT FLASH THEN MERGE ^INKEY$[P] STOP RETURN [H] LET LIST xC INPUT DIM GFBH CONTINUE h W IF POKE [E]IN >= OUT [L]$` SAVE INT [L] SAVE LLIST } RUN S DRAW NOT CAT x3/5CHR$ STEP STR$ !ATN "% FOR . RETURN aAT o IF RANDOMIZE / GO TO LET !INT [N]~o&SIN MOVE iAT TAB DEF FN SQR [D]=m CIRCLE FN mq RESTORE GO TO [P] NEXT MOVE # GO SUB SuAT CAT ▜w!&[C] RESTORE * REM l MOVE MERGE CHR$ FOR ssJ# CLEAR u GO SUB [[G]PIR IF #EXP [I][S] CAT >=~ PRINT CAT CHR$ COS IN y{k/ STEP LN [T]INKEY$POINT [J]}AT FOR ▝[G]y AND COPY ' SAVE PIRCHR$ RUN [S]NOT L[T] STEP LOAD CIRCLE 1PI IF LW IF BIN CLOSE #[T]sPEEK RETURN ▞ FLASH PAUSE cPEEK %USR VAL$ %[R]▟ ERASE /[U]<> DATA pPI[Kp INK p▟3 LET OPEN # DIM I@] BRIGHT +INKEY$ SAVE 1/5c/▘ CLS OUT / INK [S]Kc6<>▚ LLIST FN DRAW [B] OPEN #ABS mNOT ASN ZNOT g;SCOS ![Q] AND V[T]cIN %_ READ STEP [L]ASN [K][U]c OVER [I]R FOR ATN COPY ▞<>!V▚ GO TO CLOSE #p[M][N] STEP J GO SUB .BIN CAT CLEAR $dK LET IN CIRCLE [E][H]IN PAUSE ▖N[H]DM LLIST [O]i`_wP LOAD & TO ▖!d RESTORE PAPER TO {[G]: LIST [F] LLIST jzT CLEAR /▞ RANDOMIZE 3[R] OVER >=hR>=&[U]( PAUSE [J]~ CLS } LLIST [H]c AND ATTR C[M]-COS CONTINUE LINE ~[G] IF | RESTORE STEP q PRINT IN POINT @ PAUSE THEN PLOT NOT $ LET CODE DRAW RNDx2 GO SUB IF )RND PAUSE MOVE 9vK? IF _-POINT STR$ LIST MOVE cr LLIST [T] COPY ! LLIST [T]INT cPI REM RESTORE ATTR r PRINT MOVE CLS USR ,©▚ LINE INKEY$ IF RND~ AND PI COPY ▚ LLIST c▞. COPY ▚X MOVE TAB ▚B SAVE IN Y![E]SCREEN$ _VAL$ VAL$ SGN LET BRIGHT $,▙O~}h3}&ATTR IN OR MERGE }_"<=l,_[P]^ OUT © DRAW aIN IF LET 0~ RANDOMIZE >=JASN ik POKE n8 CLS 1CHR$ 8 CIRCLE NOT CONTINUE PIZm INK >▛ OUT ` READ OUT IN POKE Fm AND OUT THEN OUT a DRAW [H]+ VERIFY CAT IF INK j DRAW ATTR VERIFY /PEEK FN [H] DEF FN [N] COPY Kf RETURN FLASH [R]}IN FLASH q GO TO NOT SGN !▟/ DRAW [C]^ MOVE COPY [N][L]t CLOSE # MOVE LOAD OUT STEP SAVE PLOT EXP FORMAT } SAVE Y MERGE ERASE C RUN o<=USR LPRINT MERGE RETURN MOVE R BEEP <=<= POKE MERGE NEXT [K]<>/▝[H] NEXT w6+ OUT OVER g[ POKE }PI CAT CAT )▛ OUT NOT PAPER OUT CODE OUT INK [<=aAPI LINE /[P] GO SUB a LINE CODE OUT [T][ LINE [H]API LINE THEN [P] GO SUB [H] LINE -X OPEN #8▝SCODE BIN <>[E] CONTINUE OPEN #ykBIN ACS PRINT J COPY _<>[G] CONTINUE BEEP } STEP NEXT v<> BEEP @ ERASE f GO SUB ~JRND*>IN Cm<>POINT OVER VAL$ GO SUB AT NOT %Qe PLOT CHR$ [IN PRINT UO CAT [K] LET C`TAB [K] CAT INKEY$QPOINT NOT H CLOSE #/ BEEP USR ~PEEK POINT IF NOT [J] RANDOMIZE [J]3<>S DEF FN , DEF FN [I] CLS _SIN MOVE r CLEAR MOVE DIM RUN CLOSE # RETURN DATA RUN _ MOVE <>* OVER CLOSE #+ BEEP CLOSE #S OPEN #7 CLOSE # PAUSE <> CLOSE #USR ~PEEK RETURN SCREEN$ IF KEXP CLOSE #/<>S CLOSE #[O]SCREEN$ CLOSE #[H]! GO SUB MERGE _LN LLIST CLS PRINT _- SAVE '*▟ RUN FORMAT ASCREEN$ CLOSE # LPRINT [L]<> OUT CODE SAVE mh COPY GO TO TAB AND a OUT PAUSE POINT [P]TAB & CAT 3u<>[I]M_[N] PRINT FLASH ▞<▛IN DEF FN DIM POINT [H]V CIRCLE LEN [I]w STOP ASN [I] DRAW ;ATTR T. SAVE <>▝ASN 2 RANDOMIZE USR ~ PAPER OUT z NEW VAL OVER FORMAT [D]PI<>W{INKEY$ RUN [P] CLS LEN CLS ACS OVER {▝ CLS [B]f>=4! OR AUINT [O]I IF OUT PEEK #xLEN DIM POKE RETURN ?[G] COPY EXP PAPER 2 CAT RANDOMIZE LEN NOT [E] BEEP J>[D]▚<> COPY LIST L~ DEF FN >9AT IF kCODE PI} READ '(06CODE FORMAT $zABS K CLOSE #10 DRAW RESTORE ▗^SGN Q CIRCLE p CLEAR NEW .z CLEAR CLS NOT E[B] CLS MOVE NOT LEN w COPY BORDER SQR LET z}AT c`<>▛X OUT 7_ BORDER [M] LIST BORDER OUT [M]T[S]POINT AYTAB DEF FN s LOAD mLEN < COPY { THEN N[P]=NP; SAVE BORDER ? LINE >[H] CONTINUE ?' MOVE DRAW COPY %@PEEK BIN Ak▖ DRAW CONTINUE B2SCREEN$ COS TO C©ATTR CONTINUE NOT lVAL !jPEEK %[▛' MERGE ASN REM [L]OG> LOAD $x/"v▝* STEP STOP } STEP [L]"cH[J]ASN kB[K][G] PAUSE SCREEN$ INVERSE ▘I LOAD , OR w=BIN GO TO FOR ,NOT STR$ TAB ▛ OUT [K] DRAW ▜ATTR TAB RUN s LIST @ OPEN # INK TAB CONTINUE 2 IF CIRCLE u[U]> BEEP ERASE ABS }IN n DRAW DRAW AND ZULW[E]▖AR RUN GO SUB LABS RUN INVERSE CHR$ CAT [N] INVERSE VAL$ OVER TAB [J]VAL$ CLS ATTR CLS IF ATTR CVAL$ ▙wx DIM ▟ LIST - THEN ATN ~[D]tWA{jOAIN NOT VAL$ I8 RETURN nput dif▞IN culty "ev▖_ CONTINUE jNOT cPEEK M>vTAN Jv STEP TAB OVER S LIST gCODE B[G]INKEY$ATTR ATTR O PRINT ATTR DEF FN VAL$ FSIN Batx AND CODE LLIST IN PAUSE [J]. RUN OPEN #L# COPY ERASE 2(| ERASE MajorC ERASE [M]nflxt NEW [K] CLEAR CAT CAT S COPY CAT I'J CAT 0CODE INPUT 3 SAVE ATN CAT inR LOAD CAT CODE CAT zLN . ?[F] CAT CIRCLE CAT nCODE INUSR LIST TERAC ERASE ▘V[N]G SAVE ,M>SOCB[B] IF A CAT [I]N DIM O DIM ]/ RETURN NEW CLEAR g[K]1 SAVE ▞BEOH OR ~TAB ~ CLS CHR$ RNDCODE ! RETURN [J]SCREEN$ SAVE RETURN OUT TAN MERGE ASN NEXT 2TAN 2 NEXT MERGE FORMAT MERGE USR NEW UM[D] MERGE LPRINT NEXT 3 OUT 3 COPY MERGE CLS STOP MERGE [S] MERGE IN DEF FN zATN >▚ DATA ATN ? IF ERASE //TAB MERGE SCREEN$ MERGE h OR RESTORE OVER [N]+ STEP © INVERSE RESTORE .COS ▛ BRIGHT RND CONTINUE COPY g CAT CHR$ 9 RUN TO ABS CIRCLE FN M[S] OPEN # MERGE ABS [ PLOT # GO SUB }3[ CIRCLE 9 NEW GO SUB >VAL ERASE PI EXP IF $ CLOSE #INT PAPER (, STEP IF V REM PEEK SAVE b_EXP SCREEN$ VAL$ <=B INK TO DRAW ABS [E]ABS STR$ ©;>= PLOT REM |) CAT PAPER VAL EXP ' PAPER $LEN IN SIN LEN 0 STEP CIRCLE [E]]v INK eSGN 4hINKEY$[M]8[K]-i COPY GO TO < STEP 9 OVER POKE /[A]>=[R]?LEN POKE CLS CHR$ [R]WLEN & DATA NOT PIATN 6 OUT @@▞ OVER MERGE CODE [M]DY LOAD OVER TO H>(>= NEW TAB :LAT INPUT GO SUB CLEAR Py_ FORMAT TAB SAVE [T] LINE OR LEN NOT POKE COPY IN [L] FLASH STOP LPRINT LINE ▗ REM [? PLOT LET CAT w/ INVERSE ©ATN ACS PEEK RUN HSIN [K]RND&EXP BORDER g IF 0INKEY$ATTR LINE INPUT b PRINT FLASH z READ SQR ^ABS MERGE SIN INPUT $HiUSR SAVE <O[O] STEP k OUT ~ FLASH 6 LIST [A]SCREEN$ [F]PEEK #; CLEAR qTtSIN TAPE CLS {[R]kSIN h LOAD CAT FLASH [K] BEEP LLIST BEEP ATN F INK [J]9NOT CIRCLE LN IF BEEP fLN EXP LN MOSGN BIN [S] DATA COS [A] PLOT ]oCOS @ NEXT IF TO ASN COS THEN BRIGHT OVER [S]ATN /= IF 9 IF PLOT SIN IF [K][E]SGN PLOT GO SUB OUT GO TO © PRINT OUT BIN PI9COS qINKEY$©9COS {c CLEAR 5 BORDER RESTORE STR$ GO SUB hEXP B BEEP OKACS 2#;X*@y NEW PAUSE .=T7 RANDOMIZE OPEN #XsATN USR FOR OUT NOT ▙ACS [O] DRAW RUN hCOS ag© STEP [O]}LN [H] OVER ▛[O]<> PLOT [E]/g FORMAT ▚ BEEP [O]3uSGN ~dG STEP FORMAT USR 4sj BRIGHT IF o CLEAR AND USR IN OUT ▖ LPRINT COS o OUT m NEW ▖ PRINT [S]TAN ABS DRAW ▖POINT GO SUB FOR TAN INPUT ,2* O CLEAR &POINT &PIVAL x[R] DRAW *[O]BTAN pA CLEAR G BEEP LIST CLEAR LN qABS SAVE [O]l CLS STOP nu[G]SCREEN$ ▝ STEP [O]P OPEN #BIN & BRIGHT IF SAVE PRINT ,VAL COPY CLEAR ▖INT TAN mEXP o3▖ CAT [S] COPY ACS RUN NEW ▖dATTR POKE VERIFY IN BIN PLOT RETURN k CONTINUE F PRINT COPY ~BIN ASN NOT VERIFY ▖_ FLASH ASN T] COPY FLASH ATTR ASN | RETURN [P]T PLOT OUT PLOT CLEAR &v^VQ BEEP { SAVE + INVERSE RESTORE Q GO SUB INVERSE ▜7 CLEAR w▜"/ CONTINUE * SAVE BORDER FOR [K]` STEP THEN LN hSQR [E]Q OUT DRAW INT @TAN W GO SUB rB COPY LLIST CONTINUE ASN j<>CCOS ASN NOT INPUT <=?[R]`SQR RANDOMIZE LOAD ASN eINT -SIN ` OUT !PEEK PLOT 1m/_ RUN xy TO * TO LOAD DRAW BEEP GO TO v INPUT LOAD [F] TO POINT +CHR$ © SAVE CLS ] LOAD 8IN LET vSGN /| DIM PEEK ?6©©=ACS VIEW M LOAD RUN AP4ACS /BIN 7O CLOSE #J5PATN IF PLOT PAPER ?VAL$ SCREEN$ THEN HCODE -:}u IF ' FOR POKE N THEN INK CLEAR FLASH cg~Q[O]ACS s[N][P] LOAD SAVE Q OPEN #ACS O OUT #>{[T] PLOT PLOT PLOT ▘J FLASH RUN SGN <PEEK FOR SGN IF EXP BRIGHT ASN s<= POKE CONTINUE =Mi OVER N REM NOT SIN CLS CAT ▙ OUT OPEN #NOT `RNDQ OR STEP d COPY >ATN CODE <=SHOT LIST {65ATN H` COPY H` OVER INKEY$CHR$ GO SUB [T] CONTINUE STOP +>=ASN CAT RETURN ©]SIN vn/LEN O( OPEN #7 PRINT v[S] OUT [H] POKE PATN BORDER STEP SQR [S]D][O]o OVER ][K]ASN |]w STEP =INT [N]= TAB PAPER CAT SQR fu$ACS Ax INVERSE INVERSE A CLEAR ATN FOR [ COPY SQR 3© POKE ACODE maEXP X[S] INVERSE SAVE s FOR h TO [I]`s[P][I] THEN NOT _ PRINT > COPY PAUSE < CLEAR |][N]LN STEP GEXP .▝ FLASH z READ PEEK INKEY$ STOP :LN =?IN Ki' OR LN RETURN OR POKE Da~F© INVERSE 5fxVAL LET /o` CONTINUE [S]<=[CODE EXP EsJ OVER COPY IF C INPUT #ACS 7 LOAD _ <>▖ OUT ▜EXP e~ COPY CAT [I]▜Z DIM ,PI CAT READ COPY [D]3 RANDOMIZE [G]<> RANDOMIZE L RESTORE [G]▘ IF yaASN EXP IF PAUSE DRAW BEEP G OVER AND ABS [T] PAPER ABS RNDINT >=d REM H3hSIN * CONTINUE ]ABS [I]l LOAD PLOT KpTwt CLOSE #INT x|IN CIRCLE [H]YSQR [B]SGN NOT REM E`INT <= DEF FN [C] PAUSE XPOINT [F]y[[I]VAL$ ASN [L]f SAVE MERGE [O] READ RND[U][I][O]|s[O]COS PAUSE [F][O]T[O]ASN PEEK FN FOR BORDER 0INT IF THEN NEXT LLIST MOVE SPIASN ▘0~)[C]/[C]0SGN v▝[C] PAUSE =INKEY$ PRINT L[F]KUSR r[I]?`[D][L]KQ[L]3ABS LET [L]I DIM _[L]#[G] IF INT RANDOMIZE 7 CLEAR *SQR SAVE L~▞{:.W GO SUB ASQR NOT [H] GO TO THEN p DIM LPRINT p<>6XACS y▖[K] LOAD MOVE CONTINUE Tf BORDER ▘! PAUSE [y CLOSE # IF > LET [G] COPY &COS © BORDER IN w OR [L][F]7}[K][M]8 CLOSE ## NEW ' GO SUB [ DRAW fABS CIRCLE DRAW iSQR SGN ZINKEY$ABS gUCODE [T] NEW =l= LLIST /SIN .7SIN NOT STOP SCREEN$ SIN b LINE USR SIN BEEP PAPER USR DEF FN LN `[N]VAL ATTR LN SGN LOAD LLN INT [K][LN - STEP LN YLN FORMAT DEF FN ;[F]AT FN ;gO RETURN * OUT ▗i OVER PLOT L3 INVERSE ▞▖uH▞ LLIST BRIGHT ;[E]# PLOT CLOSE #© LOAD [I]( PAUSE KuABS SQR D[O]* IF NEW GCHR$ GO TO BORDER ▘ PAUSE RUN DEF FN F GO SUB gINT ©VAL FN [M[G]I▜ATTR FN [R][G]ASN CAT [J]RND/qs MOVE DIM ▝ FLASH G< CLS gwfLABS ▚ MERGE B CLOSE #TAB ▗UO`W AND 1mUSR [G]<>U&wEXP U CIRCLE CODE v?/$y▞ IF U RUN OR ?SGN SGN [C]fSGN FORMAT OVER IN SGN d<>[U] CLS [A]f[A][O][S]][E] CAT X[E]t INPUT "oK AND / AND ^ AND MOVE DEF FN c` CAT {bU;~ PAUSE OPEN #+PINKEY$[R] PLOT TAN [O] THEN D[I] RETURN !Byz RUN I[G] GO SUB ▚. DIM BEEP AT LIST /5[M]PEEK PLOT :X LINE [IN <=H[I] VERIFY INPUT [[C]J. OUT INPUT [U]cg AND DEF FN RETURN [U]?FN TAB <[B] PAPER .NOT 7p RANDOMIZE BRIGHT 5FN AT {INKEY$ TO DEF FN INKEY$@PEEK !o) DEF FN E CLS [L]CODE TCHR$ DIM ▟M INK © NEXT ASN XwJ SAVE BEEP RUN IF ABS [G] GO SUB s RETURN HCHR$ FLASH 35HpR{ RANDOMIZE b PAUSE [B] LPRINT CLS IF DEF FN LINE } BEEP COPY OVER CLEAR REM bCODE ^nz<>[Q]C ERASE CONTINUE LIST CONTINUE INVERSE o= CONTINUE #PEEK y' DEF FN w SAVE COS [F]} BORDER [Q] LOAD CLS [T]oUSR FORMAT SGN NOT DEF FN READ [B]#USR NOT ▟[E]+~ GO TO SAVE 8 LIST h. OUT 0|[U] MERGE CLS RND CLS u? BORDER LINE USR R? IF [P]VSQR dNOT LET RUN DEF FN p OPEN #ATN ACS USR [D] RUN [G]CHR$ [M]^<=[O] REM SGN [G] TO l OUT [C]IATN [U] STEP [L]NOT DRAW FN 9 CAT AT } OUT AND K:[P]|TAN NEXT CLEAR ▜ CAT EXP e BRIGHT POINT PI LOAD BEEP /VAL CONTINUE NOT 9STR$ LET AND OPEN #,ABS FLASH OPEN #STR$ ]E COPY [G]{3VAL$ rVAL$ POINT ' OUT BORDER LINT PLOT TAN ▜EXP | REM BORDER :PSTR$ IF [H]INKEY$ CLEAR TAN EXP } TO <}~[F]w OVER U COPY MOVE .▝ FORMAT fyPOINT rEXP RUN [F] RESTORE i GO SUB [J]TAN <> BRIGHT NOT [K]'[J]z[Q]M DRAW SCREEN$ LET / RETURN LABS } ERASE MOVE ABS CLS ABS RANDOMIZE BORDER ERASE PAUSE INVERSE ▟@STR$ CLS ABS GO TO INPUT DEF FN CLS U[J] INPUT IF 1LN ABS [F]c MOVE ? CAT [N]CHR$ IF MOVE R IF w DRAW /f©SCREEN$ [O]SQR SGN PEEK aEXP N[P]=▘f CIRCLE ▘USR _?SIN m LOAD $NOT DEF FN OVER NEXT RANDOMIZE PITAN RND▚[I] LOAD CHR$ p STOP VAL$ ,q▟f~LN NEW _ ERASE PLOT INK LET y1 THEN [P]LEN INK MOVE BORDER AL3 LIST Z"g=EXP ASN wO}u TO m INVERSE L FORMAT y4jzCODE -jSQR $INT j. LLIST PI_ OPEN #L__6FN `CHR$ PRINT FLASH 3&CHR$ A1▝0CyATN LEN "E PRINT ]SIN `}CODE OPEN #c4 DRAW .[U]* RUN BEEP CLOSE #[E] INPUT n OPEN #BIN LET eP BEEP ]SCREEN$ STEP ( GO SUB 5BIN STEP OR e.▜K[L] RUN FN [P][O]V PAUSE &K CLEAR !SGN 3 RANDOMIZE [S]IN CLEAR $BIN GOCHR$ [R]ATTR [P] THEN OUT [F][S] THEN CLS PRINT DIM [N]&[P]INT [N]cK OR [Q]=8AABS BRIGHT [E]5 CLS TAB TO PAPER X ERASE RETURN RUN j CIRCLE RESTORE MOVE [O]7t<>PEEK FOR / OR _fATTR kW THEN RUN + OR Ni MERGE + MOVE ig REM #ABS [E]/iUSR ^SGN f[N]|eF|ASN [Q]VVAL [T] BORDER MERGE v9SGN OR LIST SGN ▙<>/; THEN >= GO TO NEW INK [M]w` TO [H]d' LOAD dCOS CLS RANDOMIZE K STEP OR NOT >=▗ FORMAT G[n CLOSE # RANDOMIZE DIM `PI REM STR$ CIRCLE RESTORE 6 BRIGHT PI GO TO yw RETURN NEW ERASE [T] LPRINT LLIST NEXT [I]▙EXP RANDOMIZE h AND {r OVER $▞ BORDER NOT 3[P]>=y AND ATN BRIGHT NOT DRAW <=NOT ASN &PEEK DATA _?VAL$ ATTR LOAD dVAL$ OUT W THEN [J]4P POKE LINE VAL$ z SAVE GO SUB >FN INVERSE PLOT PLOT _M}P PRINT OR CLEAR [J]ATN W[E]TAN LIST GO TO [M]PEEK x NEXT [I] CIRCLE <>5SQR COPY SCREEN$ ATTR MOVE W[I] LPRINT [O] OVER r~5[T]wY~N IF e<= IF }ASN Ip=wSTR$ BRIGHT PAUSE |[ ERASE SGN GO SUB [R][C] OUT 1 PLOT o[D] DRAW K?fASN VAL ASN ?Z<> BRIGHT [T] MERGE VERIFY SGN SQR ABS ▖ RANDOMIZE SQR XLEN ©r BRIGHT INVERSE FLASH SQR CAT @▜IN OUT ] OVER COPY OPEN #% CLEAR WOw LOAD AND [J]ATN puNOT INPUT 6[S]5 IF CLOSE # GO TO yx7 NEXT K CAT LOAD LIST BEEP LOAD #]>=NOT RND TO VERIFY b%SGN ][G]7 BRIGHT r OPEN #c[O]PEEK OPEN #Kc[C] CLEAR POKE [C] DRAW DIM UCS'BIN FOR NEXT NEW - DIM CLEAR ^[G]SGN BRIGHT SIN <> OUT PIW▖[B]TAN SCREEN$ t' IF ©IABS [L]VAL BORDER A5 SAVE NOT &s(D/ TO ▜USR OUT TAB OVER REM XINKEY$VAL X_0 DRAW STEP f INPUT ^IVAL$ RETURN ©INKEY$ RUN Lvy<>c▚`jK>=7^NOT ^%[P][J]k{? IF NOT CONTINUE THEN C PAUSE 3 BRIGHT LPRINT POKE CLEAR [Q] PAUSE yJ@ LIST DRAW REM CLOSE #STR$ K ERASE 7 OVER SAVE TO }PI1 TO IF K LOAD STEP STR$ TO PLOT OUT LOAD [A] AND SQR CLS OPEN # GO SUB COPY EXP SQR ATN G LINE STR$ 6PEEK ASN [O]VAL }{Q BRIGHT LLIST Q/IN RETURN ATTR [F]x▟[H]L[R]▞PEEK LINE IF [Q]FN SCREEN$ LEN [G]TAN LEN PRINT STOP c[T][D]`rSQR OVER }[F]IN [C]xnNOT j COPY D~s!0STR$ IN INVERSE &Xg COPY INPUT IN SQR LOAD OVER tPEEK CLS [O]COS LINE INPUT ` CLEAR VAL FOR BORDER [I]^ DRAW N~ CLEAR ▙A}$ASN SCREEN$ [P] PLOT Dh VERIFY LINE BIN + OUT Fb READ s MERGE ABS CONTINUE RUN .y>=+] RUN =s>= STOP RANDOMIZE f RUN g[E]IJ LLIST CLS XPOINT R IF GO SUB A RANDOMIZE GO TO NOT `}BIN RUN DFmk SAVE CODE CLOSE # IF 1RND CLOSE #0[Q][A]1b OUT ]2 OUT `dPEEK CAT GO SUB {GBIN PLOT PEEK BORDER LIST !6 COPY STOP NOT CHR$ 8s7 INVERSE ? CIRCLE VAL CHR$ m ERASE !f IF gCHR$ [H][K]SQR [K]o DATA |NOT IF SQR [C]3 CLEAR AT TAB YcPOINT DEF FN [C] IF [J]PEEK LLIST GO TO [N]?NOT BEEP DEF FN PI RETURN CODE g[G]q[N] TO IF CODE READ <>0q[E]%8J LINE " CIRCLE [ DIM x CLS CAT BIN _ DEF FN pVAL$ ©INT ) DEF FN f CLEAR C[COS .@P$|▝[F]iBa&lb LLIST a NEXT [P]SIN RETURN 5w TO [B]r/SIN % FLASH ▙z[N][I]%VAL lq[K]7CODE PRINT oF CAT RETURN CLS [T]IN DEF FN mPEEK Em[T] CLOSE # FLASH SGN MERGE ;COS FOR AT MERGE THEN XXZ RUN LLIST RESTORE ] LPRINT !A IF COPY PRINT PEEK [B]y PAPER ^8SQR CODE STEP y<>=[J] LPRINT RND▛BIN BORDER < FLASH [Q]PW;?{T PAPER ![C]ABS W CLOSE #INT &[ DRAW AT RUN DEF FN CHR$ Dh[H] COPY OUT LET CLS [O]ATTR COPY OPEN # COPY # IF RUN IF ACS tNOT v STEP 7cN=▝© STOP CAT COM LOAD STR$ BAT INK CAT STEP d OVER /▛EXP `pSCREEN$ THEN INVERSE BRIGHT hLN GO SUB . REM RETURN _ CLEAR OUT ▜ BORDER [I][L]ACS NEW POKE REM DRAW [O]K LOAD [Q] STOP NOT DIM " GO TO STR$ LPRINT USR USR IN IN ABS PLOT ▝ RESTORE OUT NEXT CHR$ IN 8 INK TO MERGE NOT 7▝6 LLIST J DIM STOP COS wd OVER OG IF NOT ASN CLOSE #[L] DIM c^ABS GO SUB *© CAT &PEEK FORMAT BT? BEEP ▝ FLASH >INKEY$ LLIST CHR$ ~BIN [R]k`AT NEXT THEN M_b INVERSE gR FLASH ~z RESTORE NEW ▘ABS STR$ OVER STEP SGN LOAD ~z NEXT COPY FOR R VERIFY FOR " DATA ©EXP TO CHR$ [I]INT pe INK FLASH oOv CONTINUE VAL$ PEEK v MOVE THEN LEN PAPER BORDER [J]FT RANDOMIZE [H]hh RESTORE ng DRAW (3K CLOSE #<= GO TO RETURN IF ABS g GO TO y CAT # TO GO SUB [ INVERSE ; OUT [P]▝ ERASE REM RETURN NOT USR [R][H] VERIFY *x/POINT w RUN ? INVERSE RANDOMIZE E INPUT ' OPEN #w RUN E_▜ INPUT SQR F INK LOAD H{USR TO HASTR$ s BORDER H©f PLOT XNOT INVERSE INVERSE ^ FLASH IN SAVE [U][P]?d GO TO COPY + OVER FORMAT RUN ABS VAL DRAW INVERSE 3CODE COPY ~ OR [? PAPER EXP 6 BORDER 9[H] OVER BEEP SQR ABS VERIFY LPRINT CODE CLS vAT !o RUN VERIFY VAL ; INVERSE /O RETURN p RUN REM ©y[ OUT VERIFY 3RNDINKEY$<_ IF /ASN ▝6 OUT PAPER >=i RUN STEP U LIST ASN [N] PRINT FLASH ? GO TO THEN [H] FORMAT [M] COPY B▜n LOAD V FLASH MERGE O{6 DEF FN Ub MERGE DIM NEW {[Q]▙e<= TO `/ STEP A MERGE INPUT . CIRCLE CLEAR CLS dyfEXP ▜EXP OVER RND▚ NEW _[T][H]rRNDc OPEN #] IF NOT LINE CLEAR ▟>▙USR AEXP OUT LPRINT AAT ] DIM LIST ALN MERGE NOT [L]`m DEF FN FLASH ▟= POKE VAL$ [S] LIST OUT & RUN STR$ VERIFY BRIGHT INK VERIFY J NEW M[K]>= MERGE f0^ PLOT INVERSE /FN ABS INT COPY ?nAT LN q!BIN /PEEK FOR NEXT Iv RETURN *) VERIFY [O][H]("X[D] COPY CHR$ 6▝]%O BEEP AT STOP CLEAR OUT Z FOR CLEAR PLOT N BEEP [L]FN [U]U▚ LIST CLEAR PAUSE © LET INT f COPY ip7] MERGE DIM BORDER [K]SGN / INK g] MERGE CLOSE #©] CLS OVER [K]!VAL GO TO STEP ?[D] STEP ~ NEXT [S] FLASH e CLS ABS THEN INT z DRAW [R] STOP 1 CONTINUE RANDOMIZE ~ BORDER FLASH INVERSE T[S]SGN [A]yAT _ DEF FN + INK INVERSE RUN [L]z DRAW LINE [L]>=>= LOAD [L]F CIRCLE 6 RETURN FOR > CIRCLE INVERSE e[R][M] SAVE - CLS "PEEK TO LOAD AND ] PLOT M OVER IN {g<=x CIRCLE 3 LOAD w[J] LOAD PAUSE "HE[A][A]ABS o OUT LINE DEF FN CLS CLEAR f CIRCLE b MERGE RUN | FORMAT EXP <= CIRCLE #/TAB $ GO SUB PEEK EXP ;INT ▚>i/qf INPUT | INPUT PRINT % RANDOMIZE &'()*+ LET INPUT LET DRAW VERIFY ERASE INK ,-./012 INK $ DATA PEEK ▛}M[{STR$ STEP TAB THEN &SGN BEEP SQR X INK &[H]PEEK DATA Q COPY STOP SQR OVER OVER 8@ INK <>/TAB STR$ SCREEN$ M▚SCREEN$ SAVE ]*[M] INK COPY LSCREEN$ [E]SGN SCREEN$ SCREEN$ p RANDOMIZE H)I`p'n_ LOAD [I][N]ACS = CLS INK #> PAUSE RESTORE DRAW TO TO PAUSE [R] COPY REM BORDER SCREEN$ [N]] LLIST INK ACS RANDOMIZE >= PAUSE LINE <>2 PAPER OR IN COPY ') PAPER CODE <>7Vm[G]IN PRINT mABS g[L]^j BRIGHT | PAPER CAT CLOSE #~ READ u?Cy CLOSE #N![K][D]&], IF [D] LIST [O] IF LN INKEY$ STOP - AND ._qLEN IN BNa VERIFY */CODE 80 CAT [R] VERIFY RANDOMIZE POKE Tq1 OR )2} GO SUB CLEAR q RETURN FLASH >34567ao FLASH OS>=0 FOR ▞L{)? IF s▛[H]K SAVE PRINT [H][BINT SQR ▚IN TAB G[E]] GO SUB FLASH - OUT <>IN 4 CLOSE #[P][O]_}▛ FLASH )? NEW FLASH ATN CODE [G] DEF FN ABS RESTORE DEF FN ▛O FLASH IN xsATN ) NEXT THEN s~▛' GO SUB INVERSE ▗HCHR$ BORDER RETURN F INK [S] DIM 7▝iSQR /[K][G] BRIGHT LIST CLEAR bZ MERGE VERIFY &~ VERIFY A`▞ DIM } VERIFY 8 DRAW TAB VERIFY [N] VERIFY LOAD RESTORE VERIFY INPUT kPSGN W( DEF FN [N] oj<=NOT # PRINT INKEY$ OUT 5 DEF FN ]PI[L]v[H] OUT ERASE CLEAR CONTINUE BRIGHT NEXT c[S]'RND MOVE ▜ DRAW KE STEP OUT " INK RESTORE K STEP k FLASH ▛INT Z[J] INVERSE TO w$ RANDOMIZE SQR IF LLIST NOT U INVERSE RUN OR MERGE DEF FN "[J]`iTAB BORDER RESTORE INVERSE k@a[P]©+LN PI^[R]BIN RESTORE +BIN }/[ INPUT { NEXT SAVE j OPEN #o CAT ?][P][K]AT BRIGHT <>*6 LOAD CLOSE #SQR STEP v[A]x8 OVER NEW ACS M[A][R] DIM DIM [O]x OVER USR INPUT LOAD tCODE #>=<r;AT CLS CONTINUE ERASE [Q] FLASH CAT OVER 6 LOAD ▞INKEY$.C5 TO SQR <= CIRCLE T CLOSE #[P] IF ▛W BRIGHT CAT o BEEP OVER DRAW [L]4 FORMAT THEN LSQR DRAW ▞)/ PAPER e READ 5LE FLASH NOT RSCREEN$ NOT ABS ATN ZnABS STEP IN OR ]6o FOR RUN 4*rBIN TO V BEEP 8 DEF FN J BRIGHT LPRINT PLOT CLEAR ~ STEP NEXT DINT P TO t LOAD SIN TAB G©K CLS q▟ LOAD CONTINUE COPY FORMAT /JSQR /s RANDOMIZE SGN COPY OUT TO Tcd▘ATTR <e PAPER s8X SAVE #]< SAVE LET NEXT ▟SQR DRAW <[R] RANDOMIZE CLOSE # NEW * CAT AT [E]lASN RANDOMIZE [E] DIM [G]w[E]m IF CLS INPUT NOT OPEN # OVER d▚o$Y;.>6[Q][C] OUT );<>z AND CODE LOAD [O]qABS COPY KH7 DATA ?[N] STEP PAUSE TAN OUT NOT y RUN t READ COS RND> OR n BRIGHT 1 CLS INPUT (IN EXP IF LLIST ;R INK [E] DIM DATA y MERGE RANDOMIZE [C]ATN [F][K]d[O]<> DRAW LN ' LPRINT ZUL CONTINUE c RUN ~ LPRINT CLS NOT SGN LET ©ATN + LPRINT REGIMy+NATN USR ^h`IN POKE SKUSR ROUTSUSR OVER USR B%ol<>0/_ THEN BORDER READ NEXT BORDER ' LINE LINE TAB GO TO LPRINT NOT LET STOP pSGN CIRCLE SIN REM 1[H]CODE BRIGHT [T] RUN [G][J]ASN CIRCLE ACS nATTR TO FLASH ▝STR$ LLIST CLS E FLASH [P][L]Ig LLIST IF VSQR NOT SCREEN$ F INK STEP ABS SQR /~▖ OUT ~ RANDOMIZE n6 OUT POINT SAVE BEEP OUT ~ TO [H] FORMAT [H]▘RND INK INPUT x?>j DEF FN x0ABS tCHR$ 1xw LET [O]xATN SAVE POKE #SGN _▚[J]SIN STOP ▚ LINE STR$ >= SAVE COPY LOAD ? CLS OUT [L][R]~ LPRINT OUT K COPY CODE [PEEK NEW OVER - READ IN < DATA CIRCLE $ READ © RANDOMIZE OVER MPEEK @D RETURN © RANDOMIZE OVER mABS @d INPUT e THEN OR AkX([K] COPY j POKE ^SCREEN$ CAT [I] MERGE SQR SCREEN$ LLIST INT w: MERGE !* FOR FORMAT [M]@1[D] NEXT RUN [M] COPY _| FLASH STOP [O][O] BEEP |zw COPY ?e[F]{ DRAW READ bk PRINT ▙ACS o>=o!n[L] NEXT INVERSE RUN DEF FN LEN FLASH PEEK [Q] LPRINT ABS [L]"3x CLOSE # LOAD kINT ] INK CONTINUE PLOT OVER TZ^ RUN DIM OVER SAVE B▛ DATA ABRIT6SHV8CORY! BORDER RUN x DATA 9d▜ COPY DATA The Zul?armyi▟sdefat LIST INPUT [S] INPUT [K])SIN z DEF FN REM [F]z OVER z?SQR k NEW MERGE zATTR PI DEF FN z'u.[U]@ABS ~<>4} RETURN TAB ATN z PRINT }vZRND INK A RESTORE kPEEK }BrithNz% RESTORE ABS [H] LOAD REM ^ LOAD __{x OPEN # BRIGHT NEW z[R] RANDOMIZE Victor>=P NEW SIN n PLOT yBIN NEXT f[B]e<=%SGN r RETURN NEXT GO TO T DATA b:dSQR MOVE N BEEP [G]T RUN ATN LOAD B BEEP INT CLS '@IN LOAD } STEP @ NEXT IN zv%SQR yv[O]SGN PLOT NEXT =vNOT DRAW RESTORE A▜Caul OPEN #zez CLOSE #3[N]~w<>[H]LN VAL$ 7% CAT - NEW RETURN LLIST ▟w- ERASE M NEW [P]POINT CAT b POKE SCREEN$ ▜ GO TO RETURN <>USR ATN 4 PAUSE v BEEP [T]!PI▞ CIRCLE NEW ▛ STEP IN ▜r[U]t~ NEXT z ERASE [R] NEW IF = IF [Q] INK &[C]EXP [A]PEEK IF LN OVER THEN `_ FORMAT BORDER NEW ▙ DRAW R▟ CAT LET FORMAT [S] RETURN REM LUSR SAVE RND;PI>^ CLEAR *[ LET ▜ PAUSE PAPER THEN [J]@ BORDER HIN /E>KEY>IN 7 BORDER _=-<> OUT INVERSE 3zAT cBIN COPY s COPY 3 NEW :▗ BORDER DATA ▗ BEEP > CLS ;[J] BORDER v[H] DRAW u OVER 3[P] LOAD $COS TO [P]`6TAN CONTINUE Z] PLOT [D]I▝v[G] INVERSE %[J] COPY ,3[I] COPY 7 BEEP 2RwC4PM1o▟zdTc INK NOT 1JnBxL GO TO y6DC3VAL APh=SQR nLxm▖y[U]FeNuZrD2To1RcLM GO TO P CIRCLE CIRCLE <=D4pg[D]3iM NEXT CHR$ cmolySx IF A, FLASH rTZ LINE 6ji!N7 CONTINUE pM▞k[T]oG[G]5DNOT bC[I]atNOT BORDER [U]STR$ [S]1[M]VAL$ 8?sij1[A] BEEP fd LET FLASH "! FOR EXP INT OVER t, FOR USR W COPY > STEP OR COPY BEEP *SIN /#6 DEF FN STEP ATTR SCREEN$ POKE 4TAN ( FOR *SIN NEXT OR ▙:Go RANDOMIZE -[M] PRINT FOR INPUT IN KPOINT BORDER l BORDER ERASE [G]ABS W[O]z6{iCHR$ GO SUB [=aVAL$ R STEP P NEXT ~) DRAW DRAW <>3 INVERSE [E] OUT IN [R] NEXT OR ASN r[I] GO SUB KCHR$ SAVE LET CAT q READ COPY SGN ]ABS DIM PEEK BRIGHT ?# BRIGHT k[E][U]INKEY$[A] READ AND ; Gen~ral ChIN ©msford+<(O DRAW 1stKing'D<=USR PAPER o▝nGu[O]g BRIGHT ▟<= RANDOMIZE 7hL[O])aoPEEK © IF RANDOMIZE [H]ImpI MOVE iRND4iEu RUN tFN IATTR )f CLOSE #to THEN FORMAT INKEY$ DIM 80BIN R PLOT gm0c©[M]~!9/ CIRCLE Lig[F]3CODE RETURN LINE VERIFY Xj/3[Q]▝ CONTINUE 4 VERIFY TAN INKEY$BIN 2 LPRINT 3BIN 2BIN AND NOT LOAD FuilE`V DIM NatR[C] CONTINUE vLEN [P] VERIFY gw PAUSE SQR BEEP DEF FN lN SAVE PAUSE V BEEP PLOT CLEAR xEXP BIN 5 INK SAVE !<©▝>z[A]BIN fLEN ▖y IF PLOT x[R]*dUSR [P]INKEY$ PAUSE MOVE LN FN O TO [Q] PRINT t LET .l_w!+ GO SUB NOT r; CLEAR CODE w# DIM DRAW RUN [D]x ERASE * GO TO SQR e/$▟▚L CIRCLE <>INT RANDOMIZE z RETURN ( COPY THEN J{ FOR POKE 9[N]0)r▖Fo|{SIN NOT INPUT LLIST DRAW STEP SIN GO SUB OR KB( BORDER MERGE FOR # OVER y[F]x[M]0 PLOT COPY (CODE |g CAT }oTAN (k/ THEN NEXT c IF ▜ GO SUB | NEW OIN qG READ INVERSE LLIST STR$ THEN RANDOMIZE xCHR$ GO SUB <>D| BRIGHT NEXT FOR FN dG|INKEY$ REM / REM /#N!ATN [CODE =suCHR$ )~[H]}l&@ NEXT TAN k GO SUB Ry? THEN OVER UCOS j LIST /#CODE gW<<> MERGE CLEAR THEN U RETURN >? CLEAR STEP IN PEEK * FOR 6ABS COPY PI[K] LOAD 7 STEP ASN MOVE ! INPUT r CAT RESTORE ATN RESTORE GO TO y STOP 4+ RANDOMIZE T]y6 GO SUB VAL LOAD DEF FN *2' OVER oLEN "[N] STEP SQR 2 LOAD LI▟ NEXT [ LOAD PAPER ? OUT 7w IF RETURN e STEP LINE LOAD REM ZABS BORDER S COPY ACS :j PAPER BORDER / INPUT 2[N]t LET ) INK RETURN PEEK NEXT A CAT [G] RETURN A0>=>= RETURN O[P]RND0 PRINT {▙yPOINT SAVE SQR 8 LET READ -[P]▛[M] REM INKEY$[U]PINKEY$[L] CLOSE #[K]iSCREEN$ INPUT DEF FN INKEY$+~ CLOSE #-zM)d INVERSE ACS e AND BORDER # RUN a<=PEEK NOT ERASE NOT STEP Dsl ERASE + PAUSE GO SUB LEN EXP [U]s5>= LLIST L NEXT PAUSE q#pxINKEY$[C][K]4[K]>=*<>4[H]USR SIN <> CLOSE #FN L NEW NEW 4 THEN _Y>C NEXT ▞▖L RETURN CHR$ CODE DIM SSGN GLEN <> THEN [H] PRINT ;O[O]@ LET NOT >36B RESTORE FN _ REM REM .[H]:INT CLEAR OR e STOP 1qTAN PRINT A<>QzUW<>[O]|q OR ELKACS OVER ▟▛(.e DEF FN r+ LIST D-0 PAPER ^ LIST LOAD NEXT : ERASE PAPER DIM STR$ OR PRINT 5 n IF OPEN #STR$ /w OR EXP GO SUB CODE STR$ 6[G] LPRINT jSCREEN$ )<>LEN PIPOINT SQR IN IN LLIST ) RESTORE [J] SAVE MOVE _ RESTORE n INPUT OVER OVER OUT - LLIST TO [J]PEEK CODE TAB [U]©ACS GO TO / DEF FN X~ PAPER STR$ OR NOT OUT q LET BEEP LOAD [N]6G CLEAR >=xLEN V%z CLEAR PRINT MERGE RESTORE SAVE *M NEXT TAN FOR ASTR$ REM [P]▞ ERASE IF R READ LLIST MOVE CODE <> PRINT RUN [K].▘ PAUSE tbt BEEP [L]'/CHR$ 2 LET RESTORE RESTORE ~`K LIST IF [F])T LET INPUT OR #STR$ g^<R PRINT RESTORE TO !DMPEEK M INVERSE LIST VERIFY !i` STEP |9LN IF OR <2NOT REM *CHR$ SAVE GO SUB PRINT INK COPY -!J-:r[Q]▝ATTR f GO SUB AND [E] NEXT >AT m*COS VAL *[H]PI}SGN SAVE F[P]LN ERASE ; PRINT BORDER PLOT gc OUT PAUSE INVERSE MOVE NOT PI CAT RETURN ) CLOSE #OB CAT <> SAVE MOVE d GO TO PRINT ▗INKEY$dLN ▟[K]e PAPER DRAW IN O FLASH ]/ BORDER s SAVE " LLIST SCREEN$ 1<> LPRINT STEP SQR }? RESTORE |COS V#^ MERGE [N][J] FOR RESTORE IF lYoIPEEK @}[O]t GO TO READ }Q PAUSE FOR MOVE ~ THEN G3+FN RESTORE STOP LIST 9 OUT LLIST CIRCLE "|k LPRINT >=SCREEN$ CIRCLE RUN RETURN DEF FN STEP INPUT RETURN DATA >= DEF FN A:* RETURN 9, CIRCLE D>*;[D]ATTR !ACS W REM Zi GO TO CAT NEW >© FLASH SAVE STEP TSGN DEF FN CAT OR LN w RUN ▖ CAT O?▗ OR > STEP BEEP CODE OUT [S]Y PLOT SCREEN$ LOAD N PLOT LIST <=ASN YsP NEXT ACS " LLIST <= MERGE <=INKEY$ STEP STEP COS RETURN © RANDOMIZE GO SUB h THEN CIRCLE CLEAR |ASN >=+LEN LET IF s#r<>^L1 RESTORE + CIRCLE SCREEN$ ! FOR v STOP ABS RB FORMAT 'Q/,▗>NOT 2RNDN CLOSE # CONTINUE ;[Q]L%W OR [I]nb' MOVE POKE DIM DATA #SCREEN$ : h[H]>USR INKEY$INT EXP Bg ( IF DEF FN 8(RND[N]▖ RANDOMIZE 8 CONTINUE INK IF PAUSE eEXP SGN LLIST M{USR FORMAT [O] TO <>! MERGE VAL$ (2+<=dTAB [T] PRINT /K RETURN STOP STEP nD2/N[N]▛:kKG INPUT 1 COPY [O] OR I' OVER [E]©ASN v/c. CLEAR zATN Rw MERGE S[I]_[S]oP THEN 9i THEN SGN IF -SIN <>y CLS j{h STEP >"xFN TO " COPY I> RESTORE MERGE THEN |(><>o- COPY CHR$ ▜'ASN SAVE ' STEP NEXT 0 CONTINUE ATTR f OR PRINT ACS c0 CAT V▖-(TAB ERASE <=TAB [A] CLS [I]N FORMAT [C] MOVE READ RESTORE g[F] INVERSE 08S IF < RANDOMIZE NOT FN &H GO SUB R RUN >!H CLS @ TO [!▗|aPID REM RETURN [I]![Q]PI LINE NEXT )# RESTORE ▗> NEW FOR POINT CODE CONTINUE JT]9ABS %8STR$ LOAD RETURN READ IN FLASH MOVE LLIST 6STR$ GO SUB VAL dLS FLASH [H]PEEK [C]2K}[F]!B TO ) BORDER wSTR$ *S▘ MERGE [P]!bEJPI:<>1 CLOSE #AT ▙XCODE GO SUB CAT #V LOAD u DRAW ACS kPIV VERIFY POINT DIM AND fTAB ^ DEF FN LINE [J]LEN LET RANDOMIZE PRINT #z&ATTR ▞<>[E]BIN OR CHR$ IF ABS FLASH LLIST &c OPEN # OVER NEW POKE uj[B]s[B] RETURN ,PEEK PAUSE ^<>u PLOT LINE 6#'INT REM INVERSE e[Q] NEXT FOR LN PAUSE FORMAT !u%/eVLN FSIN OUT %AT K[P]=b DEF FN BIN [K] PLOT COPY NOT = INPUT <= POKE DRAW [G] IF INT BORDER AT PLOT INKEY$ LINE ACS %PJCHR$ PAPER REM "V$'R▗ OR PEEK >=!©SCREEN$ J PLOT <> ERASE I AND b<>w LIST MPEEK )lr;=>CHR$ s INK w PRINT <> PAPER OVER LINE l LLIST ( NEXT [M]<e STEP STEP e MERGE *M>=PEEK ([N] ERASE I%C RETURN <==U POKE DRAW PEEK DATA AND LINE BRIGHT POKE TO AND G*It REM CLS TO W LINE zCOS SAVE /7<>PI CAT (OU INPUT [K].K PAPER TAN &Er OUT "kEXP 'SGN SQR STR$ INK 8 LOAD SAVE REM RANDOMIZE READ ]wSGN T DEF FN NOT RUN RANDOMIZE FOR NEXT m CLEAR !INT ▞▗ CIRCLE NOT RUN VAL$ JRNDB=tSTR$ MOVE <> RESTORE BIN |BIN LINE + RUN 5# FOR LET C IF <>1 RUN SIN % RETURN [I] LOAD 'f OR H[A]EXP INK ; GO SUB %INT ,AT TO GO TO FLASH ( GO SUB , CONTINUE BRIGHT 3FSIN TAB FLASH z[J]▜ CLOSE #▞c6RND PRINT :USR UL SAVE @TAB * POKE READ [D] RESTORE PRINT !SIN LOAD [O]CODE [O]x "> CONTINUE e*m>NOT OUT RNDov INPUT y PLOT PRINT GO SUB _▜PEEK PRINT LET ▖ PLOT OR & PAUSE 5[N] LIST MERGE $NOT -!zABS LEN LN mp CONTINUE : OVER COS [T] PLOT ']BP CONTINUE NOT USR RUN SIN RESTORE COPY PEEK VAL$ SGN ~|[A]:[D]^li RUN " CLEAR OVER / LLIST OR CLS J MERGE LIST v▟CODE LLIST eATN CLS SAVE DATA PLOT g OUT LET BEEP }}[P]|/[H]?▙<> COPY { CLEAR INKEY$LEN .V DRAW FN PLOT TAB & BEEP [mq PLOT LET +ASN SGN 'CHR$ CHR$ !' DIM i; LINE [D]v NEXT CODE STEP IF >CODE IF @! FOR ▞e`ABS > CIRCLE READ [kmSTR$ A VERIFY THEN CODE [0y IF W08'g:[G]=t LPRINT NEXT :d2 FOR :q READ $ THEN LOAD ? STEP SIN RUN &o) READ DRAW GO SUB K FOR G:R9 RANDOMIZE CHR$ ) AND h▚x[J].&$Z REM POINT CODE lCOS GO SUB PEEK G THEN oL DATA :n+ LPRINT OPEN #ASN LIST D-( CLS ?/ FOR 4 LINE o BEEP INPUT LLIST LLIST CIRCLE #CODE w+STR$ STOP FLASH REM [R] PAPER ▚RND SAVE b THEN CLOSE #CODE w"s: BEEP xCOS .BIN 4AM SAVE iPOINT ;/ NEXT NEW FLN CIRCLE REM <> TO [U]CODE b LLIST USR STR$ [F]ABS ▟[S]VuH>=[N][J]VAL$ LIST ABS CODE GO SUB INVERSE [K] FORMAT [O]NOT BORDER FLASH tLEN LINE INVERSE DRAW ▖PEEK GO SUB VAL CLS 6R& COPY LPRINT FLASH RUN RETURN =[D][S]l LLIST wO| RANDOMIZE COPY ! MOVE 4[K]VAL [D]!qoi~oSIN CLS t OUT LIST USR ASN [U] COPY CBIN RND RUN ! INVERSE SAVE CLOSE #[U] OR AND VERIFY [K]B COPY MERGE ▙ POKE *!{N OUT h PAUSE [ OPEN #© COPY ABS ERASE READ SAVE OR RESTORE <>[N]`i COPY CODE RANDOMIZE PLOT .+: BORDER l. COPY 8[B]e CLEAR MOVE 9 INK ATN RANDOMIZE CLOSE #[P]<= GO SUB Sx[D]CODE 5go>=[L]INKEY$ DEF FN RND LOAD #!VAL$ oPI RETURN ABS GO SUB DATTR i THEN | RANDOMIZE BIN CHR$ [N]k GO SUB TINT LINE [B]POINT POKE LEN ]TAB TAN LINE ASN LIST ABS V BEEP ^SIN LNOT SQR SGN FOR f[L] AND j▚/ OVER TO PEEK .O[J]▚K FOR IN [D] AND j}ATN t[F]STR$ &h. RESTORE /NOT SQR o[D] GO SUB LINE FORMAT O6▛ATTR " IF OVER !% INPUT {ACS OUT LLIST z OUT [J][L]TAN RETURN `iRNDY STEP POINT PRINT DEF FN BEEP POKE SGN PI RANDOMIZE RETURN BIN RUN [G]FN RND DRAW i THEN 0 POKE yIN M PAUSE INKEY$j SAVE m"e REM CAT OVER CHR$ ;EXP ▙ CLEAR MERGE FOR O RETURN - PRINT TO DATA FN ( SAVE DATA WRND0W CLOSE #5 IF BRIGHT BCSGN LET TO / ERASE ▛ SAVE PLOT OPEN #[C]y▗~ LINE POKE PAUSE [LEN [J];LEN Z FOR ! CLEAR STOP N#F:K/[N]USR [D][L]L[M] AND MERGE RESTORE PRINT OR PRINT BEEP LET STR$ ,>PEEK ▜[A]/ PLOT SAVE 2[A]}@ LET [K]!kW CLEAR THEN VAL$ [H]3n( DIM / RETURN USR DATA PAUSE >e<> FORMAT BRIGHT BORDER < STEP ▙ DATA 0_3 BEEP i<=CODE ABS IF Al MERGE !_PEEK nLN l MOVE PAPER INPUT yCODE / CLOSE #gSQR j©> LOAD .&8ktCODE _ COPY <=_ COPY ULGNOT ACS * VERIFY INPUT <> MOVE [E] SAVE 1 RESTORE FLASH POKE } BEEP RANDOMIZE [L]▞ STEP BORDER ( CLS [K] RETURN _ NEW ! RANDOMIZE $Y/▖[E]0S)[T] INK REM LLIST L▟[T]©]SCREEN$ RESTORE RETURN QSGN zS LOAD POKE S REM YVNOT USR z RANDOMIZE CODE VAL$ PAPER SQR -SQR LOAD [H]▗l GO TO [F] LOAD CIRCLE ABS *#w+ INVERSE 9 TO RETURN LOAD OPEN #% IF -/fPEEK TAN [T] PLOT BEEP ^ PRINT <>▖F%XCHR$ *e| LOAD ^ INPUT INT b[T][[q OUT DEF FN 5w CAT u3INT ABS [T][J] OUT BEEP GO TO CLEAR ▚ OVER Ab!wSIN INKEY$<[K] BRIGHT >PEEK LIST RozM!W DRAW b LLIST VERIFY CLS .' FLASH ABS OVER STEP CONTINUE 0 LIST DRAW LOAD ▗ CLOSE #ACS ▛ RESTORE + RESTORE DEF FN [M]PEEK I DIM u VAL @ PLOT INT 3 TO GO TO GO SUB SGN n~# MERGE CONTINUE bM$k LOAD LOAD [K] RESTORE ▜ IF OUT AND FOR ~ RETURN NOT D DIM OR < OUT B READ xLEN dCOS R GO SUB ABS 8 RETURN ▖OUSR BRIGHT U COPY STR$ BORDER RESTORE "wPI8JUSTR$ ! LIST i]mr CIRCLE z9 RESTORE {NOT PRINT [B]! [H]SGN hPOINT RETURN FLASH i=([D] SAVE CHR$ CLEAR LLIST STEP s! INVERSE 7INKEY$[Q]#[PEEK [H]w6COS ATTR {INKEY$- COPY NOT FOR 9 RUN 2f RESTORE ▙ FOR FOR ]T.ATTR ▙kC NEXT .+q LOAD .([T] CONTINUE RANDOMIZE ddNOT BEEP SIN SGN CLEAR INKEY$[[O]B[F]NCHR$ CLEAR PLOT PLOT q BRIGHT LIST ▘XN FLASH f PLOT CIRCLE OR IINKEY$s PLOT 4[G][D] LLIST OPEN #W)[F][J]7[M][C]UFN '3 FOR VERIFY RUN RANDOMIZE DIM RUN ACS POKE [B] RETURN GO SUB RND<>{; THEN i[F]QLN ~J DEF FN OSIN )( LLIST ABS [D] OVER BIN NOT FOR 7E FOR @ CLS READ CLEAR CLOSE #Z PAPER DEF FN MERGE SCREEN$ ▟ IF 2▛L INPUT FOR [P]<>PI GO SUB RMATTR &▙ FOR MOVE KoC&RNDw<"/z RUN REM [ POKE <> DIM U[ FOR ]z PLOT vs RESTORE STR$ ▛▘$ OR bkLN LIST LLIST STR$ INKEY$▝ INVERSE FN H:3 BRIGHT FOR eIN [T] COPY OVER [wzl[L]>SQR lH FLASH }MTAB ▝i CAT ^VAL }SQR TAN RETURN <(:vVAL [A]- PAPER CAT OVER ASN U{INKEY$ ERASE COS *[H] GO SUB K>}▘<4PEEK USR 9# POKE AND USR [L]PI LET INK STEP ]IN $e PAUSE INT PRINT READ N`|;m= LLIST BORDER IF CLOSE # FOR *=/FuCODE <>v[A]{ LOAD ▚ SAVE :/YLN PEEK 8 THEN TAB BIN <2▝/ CLEAR 6 COPY !%"B/ THEN INT D] BRIGHT NOT NOT }% LOAD VASN TAB SIN 3 BEEP VERIFY q&(USR ▝[N]▝<6<B~= CLEAR "| DIM <=g LET PAPER BORDER OmCOS W CONTINUE [D] COPY <=YK^YVACS CLEAR N?C[F] MERGE COPY haVAL 9CODE ~S PLOT CAT V> INK iVAL _X}- LIST ZWulundCC$a INK [O][P]hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.
