| Является частью релиза: | WEC Le Mans |
| Размер файла: | 47872 |
| md5: | 63a86b0ec7f3ec8c96dfed378b5e363d |
18770 INPUT USR BIN NEXT >2▟/2H/ STEP CODE CODE OPEN # RETURN ! LET <>"CHR$ /1Da!PNOT CLEAR ©> GO SUB y>w GO SUB yPEEK ([!xi) GO SUB [ POKE / STEP = STEP xi!xi GO SUB [ POKE / STEP = STEP xi!xi GO SUB [ POKE / STEP = STEP xi!xim GO SUB [ POKE / STEP = STEP xi!PEEK ] RESTORE ! NEXT RESTORE CODE NOT 0=:;]ATN CHR$ ▝>NOT 2 GO SUB ▝NOT ▝> STEP !^~ BEEP # CLS GO SUB _ NEW G!DYEYw GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]NOT BRIGHT ]ONLY FOR 128MB SPECTRUM!SIRIUS! STEP [B] NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL !▗[B]uVAL$ ▛'<> GO SUB LN ! FOR ▚xi~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT xi[B]!XX u GO SUB VAL 6GUSR INT ! PRINT [P]@ GO SUB VAL GO SUB s FORMAT i1@ STEP LIST q> RETURN GO SUB G!Gj" COPY RETURN GO SUB ~!IN i RESTORE ! NEXT RESTORE CODE NOT 0= CLS v>© FLASH RETURN THEN G( PRINT NEXT ([G]1 CLEAR © OR > GO SUB y!#v RESTORE USR OR U▝< CLS v: jATN RANDOMIZE GO SUB f> GO SUB ySTR$ g LLIST GO SUB VAL STR$ > GO SUB y<> PRINT 7[F].& GO SUB a GO SUB [jzCOS CHR$ j GO SUB i COPY AND ▜ GO SUB Sj▘1j'[D]/j!"/j LET CLS <> PRINT !P STEP k VERIFY [E] STEP SQR k STEP xp STEP GO TO r STEP PAPER j!5p THEN +0pppp*p3p<pHpQ@Z▛[L]! GO SUB [M] GO TO [M]K▝[D][N]8 GO SUB C FLASH jxLEN USR ! GO TO j"^j<> RETURN CLEAR GO SUB x THEN O OUT W CLS [B]_ CODE 2;]!h[J]g[J]©?ACS ▙<> GO SUB sLN k RANDOMIZE ! GO TO [M]"(k▘ne COPY RESTORE CLS RESTORE ▗*(k#▗CHR$ 'k CONTINUE <>>=2SGN kCHR$ l>▜! PRINT PI~ATN CHR$ BEEP [E]" LINE ko&)) PRINT [L]LEN o GO SUB [Q] ERASE ▝ NEXT ▘p▝5▘* LINE N[K] LINE k!g[J]VAL pn&) GO SUB sABS n RANDOMIZE !Oo MOVE GO SUB [Q] GO SUB [Q]Pppp$p.P8▝#pBpJpTp^phprpBp▚p[A]p[K]p[U]pVAL$ pLN p▗p TO p VERIFY p LPRINT p REM p POKE p AND qqqq&q0q:qqNqXqbqlqvqJqq[E]q[O]qFN qSIN qSGN qq FORMAT q PAPER q DATA q INPUT q SAVE rq DEF FN rr r*r4r>BH▙1VAL q! CONTINUE [J] MOVE INKEY$# pp# FLASH -*▝ACS * pp▝ACS *▟:;]ATN USR !ATN [L][R]WrASN LIST ▘STR$ PrBIN ▝Qr OPEN #▝Rr STOP -▝Sr LET <▝TsK▝UsZ▝Vsipx5▝<> OVER COPY COPY COPY COPY OVER OVER COPY ▞>=2ypUSR >[B]><2p RETURN >=2▚p<>ATN ▝<▟!PI[L]o~! TO Xw STEP X% INK IN <>HIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`NIN `OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT IN N LPRINT OPQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`UIN `V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT IN U LPRINT V LPRINT W TO H TO I TO J TO K TO L TO M TO N TO O GO TO H GO TO I GO TO J GO TO K GO TO L GO TO M GO TO N GO TO OPQRSTUVW,P,Q,R,S,T[O],U,V,W!#[B]~2 FOR u"cr# STEP ]r<2 GO SUB u GO SUB S READ u GO SUB S RESTORE u MERGE IN BORDER u! STEP br FOR " DIM u! PRINT u" INPUT u! PLOT u RUN u,p GO SUB VAL LLIST !CODE STEP Wr=2 COPY u2v2v>2 GO TO u#" CLEAR u"v"vSQR NOT CIRCLE tPEEK >=NOT Wr^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ rB NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST STR$ [P]W LET NEW o INVERSE THEN n>= THEN STOP <>:vO! GO SUB uPEEK PAPER TAB rCODE O<2viSCREEN$ GO SUB [ READ uN#~2uy* BORDER u NEXT FORMAT GO SUB S INPUT 0 LINE ▝ LIST 0 MOVE [C] PAUSE u<> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>: GO TO u=POINT ▚CHR$ 7t: FOR uSIN [C] INVERSE ! SAVE u STEP LLIST r PAUSE s* INPUT u~< TO [Q]r STEP @s LIST ▗ INVERSE !v*s*K▝ LIST .▝ ▗7t* PAUSE &POINT PAUSE uNOT 7t~ RETURN ` PAPER ns RETURN p PAPER {s RETURN PAPER [N]s LINE [D]s RETURN ▝ LINE ys RETURN ▘ LINE [J]s RETURN PAPER EXP s VERIFY [R]|[N] INVERSE w COPY #NOT @s INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c* DIM uABS ▜ INVERSE u INVERSE t LLIST %▝#▞ COPY <>CODE NOT [P]s VERIFY p RESTORE l▘* RESTORE @"▖ INVERSE t INVERSE 6 RETURN &▛ VERIFY 2"v#~#2 v RESTORE CODE p*0*▝ LLIST p~<>=== INVERSE w PRINT `[I]O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF [E]s@#~<)▞<>yATN USR |2v<> < INVERSE ~ RETURN ATN >= RETURN LINE 0tyNOT 4tCODE v THEN NEW <>!;[D] OVER sy2u INVERSE * CLS u STEP hryVAL 2vSu[D] LINE ct STEP t STEP PLOT t"v!vw STEP t!S▝ OVER [D] LINE [I]t0:▘v::vLEN VAL <1!w5▗v!@5u@5▝ MOVE @5▝@5▚ THEN THEN VAL LEN P9[N]n▗v! n!"v~ATN >CHR$ BORDER t VERIFY USR +[L]yIN GO SUB ATTR = PAUSE DIM t<>} PRINT MERGE INVERSE n INVERSE f[D]▛▚ AND ▜_!#uTAN IN FOR MOVE LET THEN b( THEN [S]<>ATN GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST IN PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][E][G]▙~wpkd^Yn▝O POKE ASN GB?;852/,*'%#! FORMAT v▚ FOR RETURN COPY COPY COPY COPY RETURN ? COPY SAVE pYf OPEN #[A] SAVE 5e`INT [I]VAL U TO COPY USR 22?▘G- OR U[A]D RETURN CLEAR CLEAR [P]VAL ~ BRIGHT COPY }SQR GO TO ?P TO LIST LIST COPY ABS TO ▗ LOAD CLS U VERIFY 7▚▘ RUN LIST Gm▗7USR [Q][D]FN $IN COPY IF 0TAN INT ] OUT DRAW [L]WUSR 0) COPY POKE COPY RUN COPY CLS VERIFY RUN BEEP COPY FOR CODE u COPY CODE COPY IF BORDER ▝ LET G VERIFY SAVE RETURN FOR MERGE INT SCREEN$ ATTR *SCREEN$ AT ▖▝w OPEN #7 VERIFY @ LIST 0080Aqq▖VAL$ AT LEN CODE COPY LLIST INKEY$q▘ COPY COPY OR SCREEN$ ▝FN Q▘ FLASH _▘©"P<>▘©hb▘ REM SGN STEP ▝[C]!R IF CHR$ 8▚▘ CLS LPRINT 8m▗▝GWSCREEN$ [U][C][K]TZ- LOAD DRAW R▖SGN @7q1▘ CLEAR |CODE ▝h CLOSE #[A]>= DRAW MERGE FOR uUW5U/?x OPEN #qA?Z THEN ▙ COPY GF1SV LIST r`_2▞COS IN nIN PEEK FLASH GO TO ©'y3y5▝?~ DRAW ! OUT ▝~>=▝8X▝▘ IF [C] LINE 9▚▘ PRINT FORMAT 9mLN ▙▟[A]UR8_ COPY CLS S]W DRAW Z.▜ LOAD K[P]H LIST VAL !% SAVE A{ COPY CLS © LOAD COPY CLEAR LOAD { BORDER COPY PRINT OUT INT COPY OUT COPY RUN !▘i CLOSE #▙[A] DRAW j MERGE USR INT COPY RETURN * RETURN VAL$ `[R]aFN 2▚4▝*qUSR ▖▟INKEY$INKEY$LEN ATTR INKEY$VAL A RANDOMIZE p_~ RETURN OUT ACS IN PEEK ▝ PLOT qc@ FORMAT ` CLEAR COPY CLS zLO STOP ▝ AND !"[C] IF a2%▘ IF LOAD 3▘▚@`P :[A]W OPEN # INVERSE OUT RETURN { OPEN # OUT VCATTR [R] BEEP z RUN q<>V CLEAR B[ LPRINT h[D]| OUT ▖ RETURN ▗qu REM USR u`5STR$ V READ ▝OsUSR 3FN @ LPRINT q▝sUSR a▞WW0 MERGE OPEN #C RANDOMIZE q_!▜ASN IN COPY CLEAR IN © PLOT `_k3▘[I]C LPRINT ▘[J] RESTORE KfDa0 LIST sX▝A#ATTR a▘ COPY BEEP PLOT ▝FN r▘!▟ READ OUT RANDOMIZE CLS MERGE LOAD PI[ATTR TAB BEEP ABS © OUT ▛g GO SUB F CONTINUE COPY [A]~] THEN COPY ▝ RUN CODE ▝k CLOSE #▝ 2VAL LPRINT ATTR qk OPEN #▘qSCREEN$ ▝[r CLS CLS VAL CLEAR CLS CIRCLE {,@_U▖ COPY COPY SIN OUT COPY RETURN OUT COPY qq▝ SAVE " IF CLS SQR GO SUB Lf$ MERGE NOT ▝A STR$ b▘ RETURN IN ▘▖▝)ATTR DIM LOAD IN BORDER ▚] OPEN #VAL$ FOR OVER IN OUT COPY BEEP EH DEF FN ▝R BRIGHT / STOP >= COPY ▝ IF CODE ▘+ AND U LPRINT ▞j LPRINT up` BEEP READ u[Q]q▗2 COPY STOP LPRINT q/ NEXT ▝▗ATTR kVAL ▗ATTR X?[C]|, CAT U LPRINT ▝ RUN !▘ GO TO COPY a▙f@▘Ts CLS U MERGE =f▝ OUT D LPRINT x"▘8<y LPRINT ▖LN RETURN ©_▖VAL ▚[T] DIM CONTINUE [P]▝A▗_ COPY IF ,SCREEN$ ▚[G]WS[N]#]<> COPY ▚ CLEAR ©@ FORMAT AND SCREEN$ SAVE 0``00` DEF FN ▝u[Q]B▞USR TAB LSIN [A]2rq2▚~ BRIGHT ©}ATN CIRCLE qnVAL ^▝ LOAD COPY RANDOMIZE © DEF FN ▗AT G LPRINT ▘SQR TAB >f▝ LOAD E LPRINT ▗@ LIST REM & FOR ATN FLASH COPY © LPRINT ▖ATN COPY } COPY PEEK COPY LOAD IN INKEY$[C]( LIST AND OUT DIM RUN LOAD © LPRINT ▗© OPEN #SCREEN$ REM LPRINT ▘ COPY 0[G]U DEF FN 5WT[a[E]▘BIN ▘x%w▗ RUN MERGE UWN DATA ▝IN 2▘ RETURN [Q]?▝ RETURN H$[M]USR q5▙▝▛ COPY PRINT DRAW >? RETURN USR !SGN ▖IN COPY USR GO TO PRINT ▝4<=USR <=T MERGE ▘USR PAPER ~▜ COPY INVERSE /, NEXT DATA OVER [F]▘ GO SUB ACS PAUSE ▗ COPY COPY DRAW ©▗ PLOT OUT RUN <>[D]INKEY$"W CLEAR RETURN IF IN IF CODE MERGE P$▛ RETURN S U OPEN #NOT COPY PRINT 8eSGN ▝*[B] GO TO SAVE DPiR" SAVE b READ © RETURN INVERSE [D]0CHR$ =:0L"}▘ LOAD IF eTAN ▝ OUT GO TO ▗ LPRINT © CLOSE #A$[M] COPY [Q]U▝l!!▝ RETURN [D]▟q▜ COPY IF REM COPY ▝2lUSR © RETURN 1▜▝(1▞▝ GO SUB IF w8Y DRAW BIN TAB POKE ▝ RUN OUT ▘NOT ▜ x▘ CLS LOAD <>▗f< DEF FN uXQ▘r▖<> SCREEN$ <zXd▘IN A[N] CIRCLE PAUSE Ha*+'FATTR ▘SCREEN$ FOR @▗ PAPER SCREEN$ ATTR RUN 7▜([S]0/$ PAPER a OUT OVER I[I]▝_l▘ LPRINT q[K]USR ▜ CLOSE #7▝"!b▝~ACS ▖© COPY @ CLEAR PLOT !Nl▚ CLEAR ? COPY c CAT GO SUB ▘USR V PAPER INK CLS GO SUB {USR 9Y LET B= OUT INPUT SCREEN$ DEF FN ▞ RUN SQR COPY COPY W▝ LOAD MERGE &2<>▚/ CLEAR U LIST © LOAD ▝B▚ RETURN MERGE UUT RETURN HFN UUSR *fVVAL P▟ LIST p[Q]4▚[R]! SAVE :FN ▝*▜▖u© COPY PRINT }UU RETURN 7▚4:▘▝Jy PRINT ▝ FOR NEXT R▗SCREEN$ CODE RUN %▘4?R▚ RUN COPY ▜ RANDOMIZE TAN ▝ATTR !▘q[O]▝ PLOT # THEN l▝ CLS ▘A} GO SUB ▘ LPRINT LLIST 3~▞▝ PLOT RETURN BORDER >ASN SAVE FORMAT COPY PLOT RND▖@SCREEN$ CODE SAVE [H]STR$ LIST X▝CODE KNOT ▝e▚ SAVE USR PEEK U▗CHR$ ▟P COPY ▘▖▖USR VAL$ BASN ▜SCREEN$ SCREEN$ ATTR COPY OUT STR$ PEEK ▞x(0▚)[&▘H▗ IF SCREEN$ ATTR INPUT aS RANDOMIZE >U INPUT i|▗ COPY © FORMAT ▝J POKE ▝(▚▗AXE▝ DRAW H?▝ LOAD ▚ POKE POKE 4ATTR ▟▗©0 DRAW USR +H▖© COPY A DRAW GO SUB [E]1▝ CLEAR H▘[Q] GO SUB ▘ RANDOMIZE LPRINT B▖1 SAVE INVERSE D CLS >^▞ SAVE COPY COPY INPUT &1[T]▗©UoUSR VERIFY ▝WI BRIGHT ▝` DEF FN ? COPY CLEAR _USR ATTR ▗ INPUT OVER VERIFY [B]U©@@ RETURN LIST P▗I LIST p<=U COPY NEW q▘▖8 4[F]VF(▝(▗ PRINT UW BRIGHT 7DQ▜STR$ ▘SQR LH!▘ LPRINT ABS ▝▖▚ INPUT USR ` INK ▘ SAVE a▚▜ DIM CONTINUE T▝KX▘ SAVE USR *SQR LPRINT PAPER x▝02AT A GO SUB ▝ CAT LIST }▞ RETURN ▝lp=3 IF ▝ INPUT # GO SUB ▝_ LPRINT 6 INPUT RNDCODE REM ATTR CLEAR p[F]SCREEN$ IN GTS LIST H▘PI COPY 5▚U` INVERSE OVER y▙ RETURN REM <= LIST i[U]D FORMAT COPY ><=SCREEN$ ▞ COPY RANDOMIZE ▟ COPY RETURN SCREEN$ SCREEN$ LEN USR ▚Ta▗@YF.'▝2▘CODE LN , OVER ▝ COPY NEXT STEP IF LPRINT LPRINT M▝+ CLS @7` LIST H[G]▝ OUT "▘R61▞©~ LIST Q POKE ▘8o READ C)p▖ COPY OPEN # LIST STOP THEN GO SUB O% LPRINT m`▝.E DRAW 6:INT DRAW L▝n> BEEP ▚> @ COPY ▝ CLEAR .(NOT USR SCREEN$ IN PRINT COPY ▘[U]"XDD▖ COPY S RETURN OPEN # PRINT OUT UUc<QD@ READ o#%@▗ PRINT U_ SAVE B0kA!STR$ ▝[Q]▝(!IN LN MERGE a LPRINT ▝ LPRINT ▝F LPRINT ▖~USR r IF [S]▝x LIST h© RUN GO SUB ▘ COPY FLASH 2▖3@ CLS 3SQR LPRINT >]TAB &b[T]▞?USR 5] SAVE [Q] OPEN #▝ TO _▗[C]@? IF ▛>Ed[A] IF COPY LET (BDH DRAW r▖ CLEAR ySQR REM DEF FN SCREEN$ SCREEN$ <=▚ ▘▗cN>==ASCREEN$ IN LIST ▘ COPY STR$ q` PRINT U^ ▜▘▗ COPY p/ COPY ~© INPUT ? DRAW SAVE COPY CHR$ ? LOAD SCREEN$ LN ASN k<>[J]m▝ PLOT /;▘ LIST / RETURN CLEAR QF=VAL ▝VAL$ ▝* OUT . LOAD SAVE NEXT COPY DRAW DRAW { LIST ▝STR$ `▝g©▞.$▝PEEK / PRINT ▗ RUN SQR ACS C MOVE SAVE 8/p$+▘t READ ▟▚cI INPUT L<>▝ RETURN PLOT ▚@*? COPY RETURN CLS j▝ STOP >='`▘ PAUSE SCREEN$ Y[R] DIM PAPER ▘ READ LPRINT BORDER q© SAVE DRAW RETURN > SAVE /U DRAW RUN SCREEN$ BEEP Sj▝CVAL$ ▘ COPY OPEN #|▝ATN mq[A]; OUT / LIST q PAPER _ CLOSE #▝q RUN ▝©▞▝©qA READ aNPOINT ▝ RETURN VERIFY DATA [O]!▝q@ ▘ATTR CLEAR IN ▘B*m▚ACS OUT ©ACS REM j<>bUSR } DEF FN STR$ ©[H]-[K]&O PAUSE ▝A2BIN USR =[S]VAL$ ATTR LOAD PTj▝▜*VAL$ ▝l=8'Z| FORMAT ▝"L▘CODE , OUT PAUSE ▚ COPY DRAW SAVE } LIST 1▝rr▝b▝▟▝U, NEW Q"& COPY SQR vC▘<=9^POINT !Dj^DD_▝E r TO !▘!) LPRINT COPY OUT jxjJ[N]E▗STR$ S COPY LPRINT #?USR Ka<>▘> <©U© MERGE OUT aEXP ▘ LIST } FORMAT ▝#L▘W= OUT ▝<~ LIST ▘2▝CODE UEXP ▘COS 8▝[N] INPUT ▝©©a▝[P] CLEAR ▝ BORDER !▘▙AT r VERIFY ▞#*IN T( LIST [R]qJ FLASH 2~? SAVE <> PAUSE [N] FORMAT PI RETURN LPRINT e©USR [I]| CAT ▝▝r▘ COPY ▖* IF ▖ATN IF IN @LN q COPY LPRINT O FLASH ▚SCREEN$ SCREEN$ [U] TAN Q▝rACS ▘O LIST ▝/r▝dr▚ COPY LET DRAW `SCREEN$ ▝TA▝[A]$&▘<=INT ▘,TAB r▟SCREEN$ IN CLOSE #FN R LIST [T]ACS ▖tr?E© LPRINT }CODE ▘ RUN ! LPRINT [P] NEXT ! LPRINT ,▗ CLS LPRINT CIRCLE } CAT !▘▞)[A]▖U COPY U_ CLEAR ~U#▘A▝T▗ RANDOMIZE MERGE @@SGN qr/ RESTORE UIQGSCREEN$ CODE ▘▝Oa SAVE ©[P]▝2,[M])▝[A]"1▘- DIM 9t OUT INT ABS DRAW ^Q RANDOMIZE ATN ACS ▗rtKo#▚D REM ?▞=E▝ CONTINUE U LPRINT 3 OUT `F[B] GO SUB ▝!<>$▙▞>= COPY IF "- COPY }@% BEEP >=E LPRINT ▝ LPRINT e% RANDOMIZE RANDOMIZE COPY REM j©F▝re DIM SCREEN$ q( DRAW r COPY DRAW COPY [N]]BIN *▝ FORMAT &&▘ READ IF LPRINT BORDER u LPRINT 5 LPRINT ▜)? CLEAR XACS [E] ▝[E]_ NEXT N$B▘3r[H]x'f LPRINT E LPRINT ▜ RUN PRINT LIST GO TO ©Wa▗/ COPY >=/ASN RETURN 8R▗ RETURN RETURN *[O]qA61▗ RETURN © MERGE Wq CLS ▝r/ LOAD q":# LLIST RETURN [N]r▝T$▘ READ [K]& LPRINT ▝USR }f[P]▜[C]Eo COPY ioLN ▝ ERASE tvSTR$ ▝ CAT W<=h▝u>=p▘uuP AND op p`p@ `7p_>=p`_▝h CLOSE #p` OR r STEP p:<>r@7pBIN ▝xp<p@>=p▝xpA `▝xUSR (▝0a((8! x▘~~K▘px0 ▘`p` [O] ▘zzp p ▘8x A▞▝zp@cCUSR xSTR$ G▝PBIN 8<=x`!AT '▝gp <>8xhh ▝`p p 0We▝`p p@>=8p 0`USR 0<>8SIN p▘x8STR$ (p?0 OPEN #▝gpRNDpFN p 0#p%p>= THEN `▝!0p_16M DEF FN 81Q▘ p THEN 8P BIN [T][G]IN INKEY$SONG BY ST COMPILED@ RESTORE ▚000 ▝ 0p0I▟$$,$ POKE N▘p`p]p`pcpcpfpr0c0>[Q]][Q]` AND pABS pUSR p AND pcp AND ▝ OUT STOP RESTORE p ERASE ` AND IN &USR '((T)x)[D]( OR ' DRAW &&%%+%$Y$#h$"▟#!TAB ! DEF FN ![Q] PLOT 0[Q]0[Q]l0[Q]▗▛0[Q][M]q&q2q;!1[C]a[F]q▞qpATN ▝▝[S]RND▝CFq[L]![U]▘ DIM GO TO ▝[Q]p`0fl▘[Q]PPppp0p0▛ LPRINT pppp*p3p<pH.BIN @rSQR BBIN ▘[Q]r FORMAT BRIGHT Ppp`6▗[Q][Q]▜[Q][Q][Q]=▗▚▜[Q][Q][Q]Aq[C]q[C]3[E]Q/▝ OUT ▜0pp▝| OPEN #▝Pp0▝USR PAPER ▝USR PAPER STR$ PAPER ▛ CLS ?B CLS J▗W FOR FOR W6[C]WWBWkATTR W OUT ▝[U]ATTR W[K]BPOINT BW& FOR COPY [R]opP▖P▖P▜P[F] COPY LPRINT COPY VAL nq20.- COPY CIRCLE [S]fp$$[R]STR$ $▜ COPY [R]c{ap^b|c{▗c{@▚c{aprb|▘00>▚czap▖ J▝C5▘ `P▚czap[M]▘b|`▘ Y▘0z{AT ▗[U]m▙6STR$ [T]▙(▙,[S]▙0[U]▙BSTR$ ▙H[T]$[B] COPY INKEY$ir)[S]([T]+)[S]+VAL$ ([S]+[U][H]INKEY$&[U])FN ([U]&( COPY AT ir-[R]--[S]-SCREEN$ +[S]+0)[S])[R]+nr&[S]&VAL$ $[S]$VAL$ "[S]"INKEY$)([U]% COPY [R]m6,[R](▝POINT ▝[R]p▝[R]'0-P9 COPY [R]iq2[T]22[R]20▚0[T]00[R]00▚.[T]..[R].0-[T]-[M] tlX[R]P▝[S]▝[T]@▗'▝[R]@▝[U],p; ;▝[T]K▝[S] K▘`0Y▗[S][R]=p;▗ COPY [R]gvAT ▝[R]▖5[T]5[R]9[T]9[R]VAL ▖[R]4[T]4[R]7[T]7 (LN BRIGHT X▝rA(VAL )rR"VAL p▘c{<bJ▝>PEEK @r<BIN ▘c{PcB0▝$▝▗▚c{b|B.▚{|{p▘)(r[S]+SCREEN$ PLOT ^▘+)B9641.+)&$!-▙CHR$ SQR !$&)+.1469<?BDGJMORTWY/^`bdfhjkmnpqrssttCHR$ u[T]ttssrqpnmkjhfdb`^/YWTROMJGDB? COPY USR @@▙▝USR [G]@▝©▘ LIST @p 1@ @p▘ LPRINT LPRINT IN ▗ COPY LET LIST p COPY LIST LPRINT <=@P▗USR ▝0▝@P #▝@s? NEXT ▝01▜USR LLIST ▗_RND▗? NEXT AT | OUT @plk# ▘©<=y▗T[l? PRINT TU1SQR l FLASH DQ LOAD ▗pSGN RANDOMIZE ▗P NEW ▘ ▘|SCREEN$ {n>p RETURN p INPUT P INPUT SCREEN$ LOAD wx LOAD w<p DRAW p LPRINT *▖ RUN RETURN ?~U▟ABCDEF CAT CLS /▙[B]▜W7 GO TO LLIST TRrSCREEN$ ▝▜WR0$o LINE COPY COPY COPY NEXT ▝U FOR ▝ LOAD o THEN [G]w[I] OUT ▘? READ ▝ RETURN [B]▝p OPEN #▘0/ GO SUB ▝>X©▝0©{wo© CLS ▝|▗©©p0▘>?w©[R]▝p0▝w (▝wzV▝6P0 @[K] FLASH @ LIST ▝oUSR {▝o-▗7w©w GO SUB ▘~v@` LPRINT [I]▘nw@▝~0[I] LN ▝p0▝w8▝©@USR ▘@▝n:@H▝c@(gw{00USR w@LN 0P▗wqv{ CIRCLE ▝~0PP LIST STR$ hPp60▘©6:.LN ww>)X▝©X! GO TO QQ`▝w@[A]▝USR 6q)▝k REM A LIST p{wg[U]▗kgm{ [A]AX▘w RUN 1▘kcq0q INK ! FORMAT ▝?AAAq2kk>kkqFN `PVAL ▘{m!@▘@(▘kkX~?~ 8▘if`HP▝ LIST BH CLEAR ▙© COPY RETURN ? COPY SAVE COPY COPY DRAW © COPY LET RETURN ▝* COPY COPY <= COPY COPY READ COPY COPY RETURN GO TO |8▚ SAVE DRAW LIST 8[O][R] LPRINT ▝ BEEP ▚ DRAW ©▝ DRAW ▝?7[F]px LPRINT COPY SAVE LPRINT ©USR CAT SAVE x[J]▝ DRAW `▜| SAVE © COPY LIST COPY ▝ COPY E▝ COPY 2@ COPY CLS INT ▞ COPY LIST © COPY SAVE ? COPY LPRINT LPRINT ▗ COPY COPY ▗NOT COPY COPY STR$ ▝>TQ LPRINT ▝|SCREEN$ ▗C LPRINT ▘USR ▝p|>= DRAW 1 ▝ LPRINT '▝USR ,▝x@``@`q COPY CLS qq1[Q]Q▝▝▘` LPRINT ▝!8" ▘ LET '▝ A qqA`r COPY SAVE ▝?#[Q]"▝ DRAW ▝▜!?▝ RETURN #▝ SAVE 2▘© ▘ LPRINT ©2 LPRINT ▝▘▘3 GXs 3`▘ RETURN ` CLEAR s`▝<=,▝h}. FLASH ▜ OUT IN ~ CLEAR [L] RUN I> INPUT INVERSE SCREEN$ CLEAR ▘?!▝Q▝ LPRINT ▝? DRAW READ RETURN CLEAR ▝ RETURN RETURN ▝8 BEEP # LPRINT A LINE q▘USR q1C LPRINT ©▝ RETURN ?!▚ LET COPY SAVE COPY @ SAVE ©q©▚ INK VAL `STR$ CIRCLE AND LINE INVERSE COPY INVERSE ▙@[Q] RESTORE (k▚>8 RETURN 8[Q]q DRAW p LPRINT | LPRINT ▗▜ SAVE © ERASE ▗ READ DRAW 9ATN A$ ! GO SUB #▞@ RETURN | LPRINT ▝ DRAW sq:? INPUT BRIGHT pqUSR 8 LPRINT RND▜▙<=n▘ DEF FN LINE "▘ SAVE <=rq VERIFY COPY INVERSE 0w▘ DEF FN p<= LPRINT ▘ LPRINT USR POINT $ LPRINT ▝G!USR ▗ DRAW 1#q LPRINT 1!@▝ LIST 1@E▝!@ 1▘▝!▞Q▝ySTR$ )[E]▜0STR$ LN USR `<> INVERSE SCREEN$ INVERSE ▝© LPRINT ▝w LPRINT LPRINT LPRINT ? LPRINT ▝v LPRINT v LPRINT 6 LPRINT RUSR q& LPRINT 6USR !6 LPRINT ▝▝6 LPRINT C▗ LIST COPY LIST Gv LPRINT DIM ▘▝[I]r LLIST COPY @ COPY @@@VAL$ STR$ [O]▘VAL$ @USR BLEN @INKEY$[C][U][C]SCREEN$ INKEY$@INKEY$[O]FN @ LPRINT DATA LINE >= NEW CONTINUE CHR$ INPUT CIRCLE STOP LINE CONTINUE @ INPUT CHR$ PAPER @ NEW INPUT OVER @ BRIGHT OVER INPUT REM @ DATA CHR$ BIN OVER CONTINUE REM @t@A[E]▚@[I]@[K]▘[M]INKEY$@bdp[G]@[O][M][I]SIN P[S]@@ SAVE CONTINUE OVER @ VERIFY DATA REM CONTINUE LINE CLOSE # PLOT ERASE LINE @ DEF FN OVER BRIGHT VERIFY ERASE @P@ STOP @ NEW DRAW ERASE CONTINUE CHR$ @ DRAW # CIRCLE REM DRAW p BRIGHT CHR$ @ NEW LPRINT LINE VERIFY CONTINUE DATA REM PAPER LINE [H]A▘ DRAW LINE 5 LINE IF LINE @ BRIGHT LINE @ INPUT ERASE >= LINE CIRCLE VAL ▝R!B>= CIRCLE STOP @fCHR$ DEF FN DATA REM f][D] ERASE DEF FN DATA PAUSE @ GO TO PAPER ERASE CONTINUE LINE @@N@INKEY$[Q]▘▚@ ERASE CIRCLE ERASE @s▝ CLOSE #▖INKEY$▚[U][O][I][I]@>=[K]▗ OVER BRIGHT AND CHR$ [A]`▝ OVER PAUSE ▛ CIRCLE OVER NEW LIST @ NEW OVER INPUT NEW LINE PAPER n PAPER BRIGHT OVER DEF FN OVER @i▟ CONTINUE LINE LPRINT LINE DATA LIST @X@ VERIFY CHR$ VERIFY @ DEF FN >=CHR$ TAB H▜ LPRINT OVER NEW CIRCLE CHR$ CONTINUE LIST STR$ /8 ERASE INPUT LINE CONTINUE PAUSE a BRIGHT ▖[A][I][I][O]@FN [O]!.▜CHR$ CIRCLE LINE VERIFY NEW LINE CLOSE #P DEF FN ERASE BRIGHT IINKEY$[K]▘INKEY$[A]1p[J]X@[M][C]▚[G]@▗[O][U]@@▘[M]▖@@▗[C]▙@▘[I]VAL LINE @SCREEN$ ▚[G]N# ERASE VERIFY OVER PAPER REM x▝ PAUSE y▗BIN REM >= REM [L]▗ FORMAT OVER CONTINUE STOP [F]ZBIN PAUSE P[I] CONTINUE ▘ LINE Z 1<>@▟ LPRINT OVER DATA CHR$ @ POKE CHR$ VERIFY CHR$ BRIGHT DRAW ERASE INPUT E▘CHR$ BIN 0ASN ▝ CONTINUE GO SUB VERIFY NEW CONTINUE !AT ▜ BRIGHT LINE BRIGHT CHR$ INPUT ERASE GO TO o▘ ERASE NEW m ▝ PAUSE }!CHR$ CONTINUE ERASE ▝ STOP ,▘ ERASE CIRCLE !▛ PAUSE CLOSE #@ DATA LINE VERIFY OVER DATA >=@Z T▙ CIRCLE @ AND LINE CIRCLE PAUSE FORMAT @bllh@BIN ▝CHR$ 0]▝CHR$ B$>=@▗SIN THEN @pp" STEP @[K][Q]/INKEY$/@[M]/[M][O]AT ▙[O][U][O]▖/@@br/b`/rjd▙▘[K]@[G]▖ABS ▞[C][M]FN [U][O]@▚[O]▖ [Q][A][C]▚INKEY$|▝@s#[O]▖[K]SIN @[Q][A][O][M]6pc[N]▚P@pfbd▝▖rnZrrZfh VERIFY ▜ LINE INPUT DEF FN LINE BRIGHT ERASE CLOSE #[G]▘ LINE NEW o▚ PAPER OVER GO TO LINE PLOT LIST Q8▟ PAUSE LINE @ PAPER REM POKE OVER BRIGHT PAUSE @ CONTINUE ERASE LPRINT ] VERIFY OVER CONTINUE OVER DATA 5▜ DRAW CHR$ NEW @ POKE INPUT REM < LPRINT OVER POKE INPUT OVER BRIGHT ERASE @@ PAPER PRINT ▝ ERASE 0U REM @ PAPER LINE BRIGHT [D]t INPUT STOP BRIGHT REM CONTINUE @ REM PLOT ERASE @CODE ▘ INPUT OVER X/▝ PAUSE bW[L]NOT ▗ INPUT PAPER LINE NEW #COS + TO @qrt▙q▚q[J]q[J]qTAB qTAB q▛!▟ DIM S-▖ BRIGHT LINE BIN OVER CIRCLE LIST PLOT OVER OUT ▘ DATA POKE @ CIRCLE BIN [O] CIRCLE STOP PAPER #[B]ABS BIN LINE DEF FN REM IF NEW CONTINUE DATA OVER DRAW c[J]@▘@ INPUT C▘ PAPER @AACS Z INPUT NEW VERIFY DATA PAUSE CONTINUE f▖@▚[A]▘FN @[K] THEN ▝@Dp▝ LINE LEN INPUT VERIFY CIRCLE DRAW ▙▗ REM GO TO BRIGHT OVER T▝ GO TO (▘ OVER >=STR$ ▘ DATA LINE DT LOAD MOVE ▞ DRAW BRIGHT LINE LINE @ CONTINUE DATA ERASE @ RESTORE ▝ INPUT FN ▗BIN REM VERIFY INPUT s<=uAT r[U]uUSR rLN <>@r DEF FN <>@r DATA vr SAVE <>@sAf▘ BRIGHT REM %B1 DIM ANLN ▘@ NEW PI▝CHR$ $ POKE AND ▘ CONTINUE CHR$ tu▝ PAPER [F]USR ~<> Wec Le MANS 128K ONLY IF YOU COOL MUSMAKER OR GRAPHIC MAKER - CALL ME ( 8312 )97-99-34(EVGENY) BYE! STEP CAT ▝ NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL ! DEF FN ▝[Q] MERGE <> GO SUB LN !G▖~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT [D] NEXT CLEAR ©> GO SUB y!USR GO SUB VAL [J] GO SUB y CLS <> NEXT !da<> OVER W GO SUB VAL !-USR da[M]▗ STEP da NEXT ▝!P/f"▘▝<> STEP LN a!LEN hIN !" LLIST RESTORE > COPY 2a STEP TO a STEP -c STEP OR a STEP ▛a STEP lc STEP SGN a<>!@@ GO SUB STEP [H]a!X@0 OR RESTORE GO SUB VAL LLIST STEP FN aSTR$ PAUSE <>$| NEW [D]USR %} AND o[F] NEW SAVE g<>> NEXT >[T] GO SUB y<>d CLS v DRAW <> STEP CLS a STEP INVERSE WASN b PRINT STEP [K][J] LET 0 NEXT <> CLS v NEXT STEP CIRCLE STEP v▛ STEP A▚ STEP BEEP [D] STEP D▞ STEP ©▘ STEP PI▘ STEP %▗NOT m INVERSE !AT ©!kh#▝▝▝ACS # INVERSE 6 COPY INVERSE BRIGHT CODE 2INT RESTORE <> INVERSE ! IF ©ATN STEP cb STEP ©b INVERSE 4 INVERSE 5 IF COPY INVERSE STR$ RESTORE 4▘ACS 7[G] RANDOMIZE ATN USR 7<> INVERSE ~ INVERSE [G] INVERSE w<>0 INVERSE 4▗<> INVERSE 5▝<>W▖h INVERSE ~ RETURN 8'▖ NEW VERIFY GO SUB DO" VERIFY ▝0[C] INVERSE ▚g.]T THEN < THEN SGN h RESTORE 0▝ SAVE USR ▞_ INVERSE ~ NEW AND LIST WLEN AND NEW p▜_0 LLIST :INT hATN STEP DEF FN ▟ INK <> STEP CONTINUE b INK <> CLEAR h GO SUB s)c FOR FOR RANDOMIZE & NEW STR$ iINKEY$hACS Pp [G]{ AND _CHR$ #c AND _ LIST CLEAR -CHR$ RUN b1 INK VAL$ ▜SQR h OR CLS v1gf[A] STEP FcSTR$ INPUT <>:SQR h RETURN >0[B]▜ AND SGN o DEF FN t[F]g~#fo▙ SAVE ATTR !SQR h4<>! COPY Z RETURN Z COPY 6 GO SUB LN >h2[T][C] INK !Dw INK !@ OR RESTORE USR STEP bdw LET ▟ RUN LLIST STR$ , INPUT !XLN #xLEN PLOT STEP d STEP "d STEP SQR c STEP udNOT OR a!P: AND RESTORE STEP :<= RESTORE STEP PLOT [B]!EP"y[C]>> STEP l[C]!d STEP LET c▞ NEW LIST ! PAUSE CONTINUE ▚'w#,▜<> STEP FOR d~ NEW ©"[S] THEN ~#( PRINT <>IP* 100VAL ! MERGE RESTORE CONTINUE [G] RESTORE MERGE ATN [O]# IF MOVE LLIST CIRCLE .▚ GO SUB VAL <>!PI@PU"▞!▝@ STEP Gd!gH`i▙AH MERGE RESTORE MERGE STEP IF [B] MOVE PLOT [B] MOVE ▝, INK xATN ~# RETURN 2 ^#F#{[C]▛ e STEP ▞d INVERSE ~ COPY ATN RUN INKEY$NOT <=a STEP <=a INVERSE ! RETURN ![I]dNOT SCREEN$ dSTR$ P[D]EXP J▗ATN (*=CODE [C]($O~ RETURN ( RETURN y RETURN 8>8▗ AND DIM [N] PLOT d THEN ~ INVERSE ##(NOT <>~2y[C]#~2z[C]#<> RETURN :y[C]<▙<> PRINT INK +e GO SUB [y[C] STEP [C] LET P▞- RETURN 8-K▘ INK <>[B]INKEY$>w<, CLS <> DRAW RETURN RETURN RETURN RETURN ?[O]©~|xw RETURN o RETURN O RETURN DRAW STR$ ? DRAW © RETURN © RETURN © DRAW xx▝© ▝?0 ▝ SAVE 0▖y RETURN { RETURN { DRAW 1 SAVE p@@▘y DRAW ▘ RETURN yJp@p`p Pj▝0CHR$ @`▝▗▜|x RETURN x RETURN |>p▘0Pz▖©[O]© OVER © OVER ©[O]P▘0USR <~~P`▝< `▝0p CIRCLE p LPRINT p LPRINT ▖?© OVER { OVER {P0▘ RETURN 1q q0 SIN p LPRINT Q !` STOP p LPRINT Q@1jQL0USR Q▝pQv▗ RETURN [Q]▚? DRAW USR USR P▗USR q q[O]p[Q]1USR ▜x|<>USR [B][O][O] OVER OVER RETURN RETURN "[M]p>| SAVE LIST LPRINT LPRINT LIST SAVE >||>xpp▚p▘p[K]p[I]0[Q]^[G] PLOT wnn OVER ]PEEK © RETURN w RETURN n RETURN } RETURN z RETURN } IF { PLOT wv▟ LIST CONTINUE GO TO TO [U]AT l[G] GO TO l GO TO TO AT AT CONTINUE LIST LPRINT LPRINT [I]▚[Q]`[Q] ▝ LPRINT USR ▞~vn^z▝~ |l/P▝<@▝,D▝40Np"@COS 0X LPRINT 0[Q]0@ LPRINT 0LN 0(, LPRINT 0 FORMAT , L LPRINT AT 4. LPRINT BIN 2▝[H]D LPRINT CONTINUE H PRINT OR MERGE MOVE STR$ LET CLS GO SUB M COPY LET ▝ COPY ▘ DEF FN 1© ▗FFIN ▘EE▗ RETURN ▗ RETURN ▘▘0▘▗▗ ▗ CLEAR 0▗ IF 22H▗ READ RESTORE DATA P▗ BRIGHT X▗[Q] `▗CC LLIST LLIST Xgg LIST LIST PIX▚ASN 5 LPRINT LPRINT [L][I]▝▝%$ COPY FLASH ▜▜ OR BIN AND AND COPY DIM gg BORDER LPRINT 0▝INKEY$▗ PLOT ddFN ▗ SAVE CLEAR DRAW VAL ▗ RETURN CHR$ CHR$ LN ▗ CLEAR STR$ STR$ VAL ▗ CLEAR USR USR 0[A]▗USR USR _@[I]▗ LPRINT LPRINT / [Q] RANDOMIZE RANDOMIZE COPY CLS 0▘ IF +( COPY POKE SCREEN$ [F] GO TO ▙▙ COPY VERIFY &&qp COPY SGN <IH▗TAB - RUN LIST FLASH w▚ COPY ERASE SQR LN 0▘ABS SGN 8▗ MERGE ]0▝ READ !H▘ MERGE 1N▝ATTR /X▘||1^▘__1V▘OO1V▘VAL 1f▝ COPY PLOT 1p▘ NEXT 1p▘ GO TO USR ▚ COPY MOVE CODE [Q]00▘[S]"0▘[Q] 0▘[R]! LPRINT ▚ COPY BB OUT USR q[A]▗ RETURN POINT POINT 1▘991▘ 1LN 1▗ COPY @@▗ RETURN BIN BIN 0▘[M][M]@01 FORMAT ▘111 CIRCLE ▘[B][B]H▗ RETURN MOVE MOVE 0h▘ii0p▘ASN 5p COPY SQR ;?":▝EXP hP▗ COPY PEEK >28▘ CIRCLE " @▗ IF CIRCLE [I]▗ CLS ,,[I]▘ CLS 0▘ CLEAR 1[A]▚ RETURN PAUSE PAUSE WP▘hh0▗[E]>=>=1B THEN THEN ©▗ LET LET ▚▚▖▗ READ READ ▟[A] ERASE ERASE sFN ▗ RETURN [N][M]FN ▘ COPY F LINE ▝RND@q▘q▘q▘ COPY a▘`▖▝ LOAD p*0▘kh00[I]▗ CONTINUE ATTR FN 08▘KH:▗ FORMAT ATN VAL q[A]▗ RETURN ""2▘ AND AND ▖▗ IF LL▖▗ PLOT <<▖▜ PLOT ||JH©0[E]^^IIIN CLS ^^66_@ CLEAR VAL$ VAL$ <<0IN RETURN [F][F][O][O] SAVE [E][E] LET "▘llO"▘1▗ BRIGHT o`1h18▘ CIRCLE 0[A]▗ CIRCLE ▗1▘▘▘1▖3"VAL 0 LLIST LLIST }"8USR USR [K]▚[T]#▚▚ff[R]ll PLOT ▝▝[M][M] DIM dd PLOT tt[L] BORDER LPRINT CLS [N][N]|"▗ DRAW [L][L]3h▘++3 SAVE ▘##28▘]A2@▘^@▘ CLEAR 2PEEK ▘ IF 4>▘ RUN 0ACS ▘ PRINT 3H▗ POKE CLS SAVE 3>=▝Dx COPY <=D▘▘;83 PAPER Z▘3 STOP ▝#T▗ IF **0Z▘0b▘1FN ▘-,q[A]▚ COPY REM [H][A]3@P▘ STOP ▘ INPUT 4[C]▘ GO TO 1 ▗ GO TO STEP TO ▘ INK X STOP 00▘ BEEP 0▘ FORMAT 4 PAPER ▘ LOAD 4 LINE ▘ RUN 4▘▗ CLS OPEN # FORMAT 200pR8▘ CLS 0p▗ CLEAR ▛▖4[S]1[A]▘ CLS 0 CIRCLE ▘ FLASH 4INT ▘SCREEN$ "4CHR$ ▗TAN 4bb3P▝1%zx▘ STEP o[I] LINE p▝ CLEAR REM ▗ LOAD REM ▗ GO SUB / z0 LIST 40▘ PAUSE Qzq▘q▘q▘q▘1▘▝ LLIST F▘ OVER 6▘IN ?6▘||6▘{{6▘xx6▘tt4[Q]▘[R]!6 ▘PP(▘ DRAW INKEY$▝▗"~▗ BRIGHT RND[U]X▗POINT )BB6F0ggFF BORDER vATN 7ff FLASH CONTINUE ▗ATN 7~~6▘cc6▘``6▘006▘[P][P]6▝![O]▗ RANDOMIZE RETURN RETURN 5 SAVE ▘ CLS CLS 5 SAVE ▘}}6▖▘~~▗ CLS IN IN ▗ CLS CAT CAT [I]▚ CLS COPY COPY FLASH CIRCLE ▖▘ NEXT NEXT p▗ RUN RUN RUN 0▘ LOAD LOAD LN ▗ LOAD INPUT INPUT 1^▘ INK INK H▗ LOAD RUN RUN SAVE ▗ LOAD ▙▙ OUT [J]INKEY$4[O]▘PEEK >3 PLOT ▘PEEK >4hABS < INVERSE &▘ABS <6▘ABS <vX▘DD7^▘CC7V▘IN ?7V▝USR f▝ SAVE F▘ RUN 7p▝ LOAD C LPRINT ▘ OUT 5 LPRINT ▘ OVER 5p▘ OVER 5 LIST ▘ INVERSE 4[Q]▘ CONTINUE 4▘ CLOSE #6▘ ERASE 5[I]▘LEN 1u[I]7▘7>=▘``7 FORMAT ▘dd7>=▘ DEF FN DEF FN 7 FORMAT ▘ GO TO GO TO 7>=▘[A][A]7 FORMAT ▘[Q][Q]vvv▘uu6▘{{6▘yy80P▘©©88▘ABS =PPP>=5hP AND BEEP #H▘ACS 60▘NN0▘EE7▘]]6 LPRINT ▘SQR SQR p▗ RETURN VERIFY VERIFY 8P▘TAB AT 8USR 4SIN @q▘q▘p[Q]v▝ RETURN F▘ CLEAR V7 PAUSE RUN THEN &▘ RUN 5 LPRINT ▘ RUN 3 FORMAT RUN E! CLOSE #▘ IF FN IF 4`▗ OR 70(<< CAT 'P▘CHR$ CHR$ 6▘ ▖▗ POKE ""6©©. ©[A]__-B▘bb▗PEEK PEEK //▗SGN SGN AA▗[M][M]~~ SAVE ▘[M][M][A]▗ COPY oo6▘[P]`qH▘ INVERSE 8[S]▘ INVERSE 8[K]▘ABS =8[K]▗ABS =PEEK PEEK 1▖▘ COPY COPY ERASE VAL # PAPER FORMAT ▝© STOP ▘vv3J▘vvR▗ RETURN GO SUB GO SUB [K]▗ RETURN OVER OVER x RETURN BRIGHT BRIGHT [P]) LPRINT ▘ABS ABS 9`▘ASN ASN 9h2@ CLS jACS X6>=& CIRCLE v'F6ACS ▘ POKE ▖6▝ DRAW v▘▜J▘▘{x9 PAPER 9 STOP ▗ CLEAR PAUSE PAUSE 9 STOP ▘ GO SUB GO TO 9 REM ▘ STOP STOP 9 PAUSE ▘ MOVE MOVE :[C]▘4b▘ CLEAR 6 CLS E▖▝[D]&Q[Q]▘ PLOT 6▘ POKE 6▘ GO TO 5[Q]▘ LOAD 1 CONTINUE ▘ OPEN #5VAL ▘ BEEP 0@▗ BEEP INVERSE BRIGHT v:rv▝ NEXT *▘ CLS 8P▘ CLS pP0USR b@▘ PLOT PLOT ;r▘vv:0▘ CLS 5j▗ POKE <=<=0▘>>7:: PAUSE ▘ FOR 0p▘ GO SUB 8FN P▘ FOR 9[A]▘ NEXT P9[Q]q▘q▘[C]w▘▞ COPY BIN tduv[U] W[A]p<▝ LOAD L"▝ BEEP 6 LPRINT ▝IN ERASE BEEP ( STOP ▘ INPUT ▗ CLEAR U<*▘[C][C]<R3( LPRINT O%J▘ OR OR *▗ PAPER SIN VAL ▗ASN 5MLz▗FN ([O][O];"▘ LET LET z||<<IN p RESTORE RESTORE [G][G]_@ RETURN STR$ STR$ :jp▙[I]▙▝ RUN PEEK CODE LOAD FOR LPRINT ▗ BEEP U[Q]▝ REM [Q]▝CODE )PEEK ▘[C][C]9▘>=▗ LET WWH▗ GO TO ^^ CONTINUE LET ATN ATN f LPRINT ▝S▗kk CLS CLS J[E]SIN SIN NOT NOT x▗ GO SUB PLOT PLOT h▗ LET __ LIST ▗ CLS SGN SGN IF ▚ PRINT NEXT NEXT AND AND >(▘[Q]▝ RETURN DF▘m@ OVER VERIFY [Q]TAB !mk VERIFY VERIFY @[Q]l/p[Q]▚ REM h▗QQWW CIRCLE [U] MERGE FORMAT ▗ RANDOMIZE uu`▝SCREEN$ [K]▝INKEY$▚UUQQSCREEN$ SCREEN$ .[S][S]▗ RANDOMIZE <=<=RNDSIN SIN E LIST ▚QQOO IF IF VERIFY `[Q]▘ READ READ 0[Q]▘ MOVE MOVE [Q]q LPRINT q DEF FN q OVER 1 OVER ▝ OUT P INPUT ▝CODE 8 IF BEEP +▗ DRAW x= SAVE ▘PI▜>▘▝IN CHR$ ▝U:▗Pkkj)[A]▘QQ▝ RETURN [Q]▝M[Q]▝ LIST -[Q][T][T]-FN OO PAUSE A@}|© FORMAT USR @[B]222(22,2 LIST STR$ ATN ACS ▟▟▖[J][L][L] CLS NEXT cca"▘ LET CLS [L] CLS LET !▖g LOAD GO TO oga LOAD CAT 8▜ NEW PLOT 26 RUN READ ▚ RUN 27 PLOT NEW @▖IN IN 2W▖oolloo GO TO TO b▜ll2 GO TO LOAD g`▖<}aml`}=w▜▝2STR$ ▝STR$ USR ▝▖ CAT OUT CIRCLE OVER CAT NOT OUT [O]▖ RUN RUN ▝ LLIST LET 1 LET LLIST [H]▚▝▝ CLS CLS [R]▗[Q]▗ LPRINT LPRINT 2TAN ▖;{ FLASH FLASH [L]{sIN ▖<= LOAD ll GO TO TO PEEK 2USR CLEAR } ERASE ▙ LPRINT LIST 00 LIST LPRINT 2*[L]2 FLASH [L] BEEP ▖=m GO SUB STEP ABS EXP INPUT ▗~~2 PLOT ▜7ATN 2 LET q1 POKE ▖ LIST SAVE [I][I] SAVE LIST ▖ CIRCLE BRIGHT OUT OUT FLASH 2 CIRCLE ▖ BORDER LOAD ▜▝P3 DRAW ▗ GO SUB mlo>=▜(2(▝Yp3I▝▖p+▝LN p▖VAL COPY 22▝h▗ COPY 2H[M]2 COPY SAVE CHR$ LIST CHR$ D2"(DMH▝$2@[G] @ @▝▝2ESCREEN$ *TLN ▝y▘@▝PpX▞SSGN `UFN W▝@0#2^▖ 2C@@@>P ERASE c▖@@(PFN PpQ Q▚ LET FN T? MERGE SCREEN$ INKEY$▝DEXP ▛(P P[Q]@[Q]@[Q]0 `▚dVAL$ ▞J2*Uo▝ SAVE COPY U LIN 01)(X0P0`[Q]b[Q]R4B%INKEY$▛▛EVAL$ U▙_[D]ATTR [L]G#[E]▜GVAL$ L,I▛Q[C]Q[S]" q![J][T]PxVAL$ B0 FORMAT !'%JH[U] ▗▘ NEXT [H]@▝▝▘2USR LPRINT LPRINT LIST LET LIST LET LIST LLIST LPRINT 2USR [K] SAVE DRAW DRAW z}?=?]_▟[O]TAB -JVAL$ O▗BqhaUSR ATTR >=LEN ]CHR$ 3STR$ PAUSE ]*2?© COPY LPRINT ASCREEN$ U*@[Q]P 2 DIM ▞ LPRINT COPY CLEAR NEXT RESTORE BIN BIN NOT COPY qLN 1LN [B]PSCREEN$ z GO SUB PAPER VERIFY GO SUB zABS CODE [F] LIST RETURN 2 COPY RETURN 9B[S]TAT VSCREEN$ ▝q DEF FN ▜ LPRINT LET ©#r/CODE RETURN DRAW RANDOMIZE CLS 5[I]AT [I]SCREEN$ t NEXT VERIFY PAUSE POKE INT x BRIGHT RETURN VAL$ Z//()*#*OQbE%:PI[M]?©?▙▖ COPY >~ DRAW pl"x[Q] RETURN LIST NOT aCHR$ ▜"UFN USR ▝BEJ5+6,Xp[A]VAL [I]hXtN1▙x|~ COPY ▜ STOP PFN tPEEK PEEK N[M]EXP [C]X0 ,CHR$ ▖▜▝ CAT [K]USR [Q]0 IF RANDOMIZE | DRAW RETURN CLEAR SAVE COPY RETURN CLEAR COPY CLEAR CLS CLEAR IF PRINT REM PRINT REM MERGE REM Ur STOP REM ▝[S][O]DdT[Q] ` LIST q MOVE ▞%▙!,▖> SAVE TAN ▘p▚0*UR[A]USR xPISCREEN$ %:4:[M][O][N]N STEP N CAT ▙sQYn▗USCREEN$ &[D]A▘CHR$ BIN bdf%SCREEN$ CAT LOAD BRIGHT LN x LIST LPRINT CLS ▝[R] SAVE LLIST ~▟-- TO E▚USR `8w▙ RETURN =q▖`▘FN P DEF FN COPY CLEAR *[H]TsIN <=▖*FN [Q]A DIM [D](*P!@F'[B]!ASN [M] DEF FN e;[B] LIST DRAW RETURN COPY PFN ▝F .Q[Q]▜ U*▝@▙ A@▝z@▛uSCREEN$ 5jt GO TO ©LEN c BORDER Ot*2CODE U FLASH ▚*TFN FN d▝[Q]-▝<>[T]BRNDBCHR$ [R][C][R]PHPH[A]▖ CLOSE #>=BIN LPRINT 08A▝QA(SCREEN$ $_[J]" MERGE SCREEN$ USCREEN$ UATTR TFN P LET ?© LIST LPRINT STR$ t[L][T]▜ COPY ©IN WCODE x LPRINT t▝[Q] LIST *P[F]PEQ[D]USCREEN$ T(T(Q[R]R STOP ERASE D[I][A] @SIN ▘2w▝[D] CLOSE #(T▞%▝Q▝)L LIST 0s▖ BRIGHT LIST 1s RUN LOAD LOAD CAT u^©>▗(B(+T [K] PAUSE *A!^[R]LZLEN [R]'▜=9▖▞q INK z[L]22i▘▘c▜>| DRAW 89s BORDER LOAD NEXT BORDER o▗ SAVE STR$ NOT ▜up%p[G]©©?G[R]A!!Q[R]QPOINT UASN VAL A-IRNDRND2qs LLIST READ RESTORE NOT OR C▞RND<>!KRND THEN OR qTAB ATN kUATTR INVERSE COS e[T]M FLASH } CLEAR ▟=} NEXT BORDER /[A]=} CLEAR GO SUB PRINT 5u PRINT GO SUB 9= CLEAR RANDOMIZE LET LLIST u BRIGHT 2v<@2h.282h8Pp▗28pP*▘0p6p28p"▝ @h28 pe▘ `▖ 282 [E] [S]▟[P][A] CLS OUT FORMAT RANDOMIZE COPY LIST COPY [F] COPY COPY COPY DRAW RETURN ©| RETURN RUN POKE COPY BORDER DATA ▚ COPY COPY USR
65423 COPY USR [P][P]©@PEEK PEEK ©@ DRAW DRAW 0$▗ COPY ! COPY .[D]? COPY LIST READ # COPY LIST BORDER ' OUT FORMAT LOAD /[P][A] COPY ?$▗ COPY COPY @/▟ COPY DRAW SAVE COPY DRAW RANDOMIZE RUN POKE CLS ▘<=BIN $▗ COPY COPY [D] COPY COPY RETURN ?? RETURN }} RETURN RANDOMIZE RANDOMIZE COPY LET LET 0▘??$ RETURN ▘▗LN [D] LPRINT ▜▜ COPY LPRINT IN [Q][P][P]? PEEK PEEK ? DRAW DRAW 0 (▗ COPY COPY 2[H] COPY RETURN SAVE ©~ SAVE CLS IF RANDOMIZE NEXT PAUSE CLS READ STOP COPY NOT CHR$ ([C]▘ COPY SAVE ▜▜ LOAD CONTINUE CAT >=[P][P]▖IN IN RETURN RETURN (0 COPY <> STEP GO SUB s NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL ! GO TO s COPY [D] NEXT <> GO SUB LN !~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT [F] NEXT > CLEAR © GO SUB y!USR GO SUB VAL > CODE CLS <>!} AND 6#6O▜▝▜▝O!%>=~2 COPY USR # INVERSE !cUSR #V# RESTORE INVERSE 6 INVERSE 6![C] INVERSE p INVERSE p INVERSE p INVERSE s INVERSE r FOR ![O] INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE = <>2NOT <2 ERASE USR 2} AND <> LLIST ▝ LLIST ▝ LLIST [I]$ STEP FORMAT AND :} AND PI LINE /STR$ >2+STR$ ! ERASE USR 5 F FORMAT ▚ STEP ▝CHR$ INVERSE !▖0▝TAB [U] ▖PNOT "aBIN 2iBIN ▗cBIN 2j&eBIN 2kBIN M▛gBIN :~ AND PI(**nBIN .*rBIN :tBIN ▟hBIN PLOT -!uBIN INKEY$2hBIN :vI▘:x5▞[O]!~ AND ACS >=!lBIN >yIN GO SUB ATTR = PAUSE nSTR$ <> CLEAR COPY GO SUB Q CLEAR [H]▖y PAUSE ▛STR$ @[D]Y<> PRINT OR MERGE RESTORE INVERSE RESTORE STEP COS STR$ INVERSE LLIST LLIST MOVE STR$ LET <>CODE U▜2~ AND STEP STR$ CODE LEN PI[N]CODE <>[P]▜▛[A]N}xg_$[O][T] LLIST NOT [T]STR$ NOT AND INVERSE ~$O NEW !,BIN VAL$ [R]VAL$ w> INVERSE wNOT CHR$ ▝8@▝CODE 0#,▘/INKEY$0%[K]u INVERSE p INVERSE p INVERSE w INVERSE THEN VERIFY INVERSE w PAPER ▘X%▗wI!▝ RETURN % OVER ?▖: INVERSE 6@4USR .<▚ DEF FN ( INVERSE pEVAL$ ] ▚W INVERSE 6 COPY `▖dTIN ^ INVERSE VPI IF CLS CHR$ INVERSE ▚ INVERSE w INVERSE THEN F(2 OVER USR INVERSE n INVERSE f INVERSE u INVERSE t INVERSE n INVERSE u INVERSE f INVERSE t~ INVERSE w INVERSE w INVERSE ~ INVERSE w[U]▜ INPUT INVERSE ~ INVERSE w▞~PI(VAL ▘ oPOINT <> INVERSE ~ THEN _>=0 INVERSE 4<> INVERSE 5<> RETURN LN 8I AND 8& AND 8) AND 0O!: OR Nh▘uk▘t+▘ AND INVERSE w&[A]o OR ▜O~#fo INVERSE u INVERSE t+▝>HSTR$ O= DIM INVERSE N THEN i(+ INVERSE ~ VERIFY l0@[O]▝nTAN ▜#~PI IF |NOT USR ▘tSGN ▝~IN [C]> INVERSE ▚G INVERSE n INVERSE f~#PI PAUSE [M]NOT 0 LIST ▘ NEW ©0 PAUSE ▞!zBIN ▜_i[P]n THEN u(Hg INVERSE F THEN THEN } INVERSE ~( THEN A THEN m INVERSE [G]04▛ INPUT [H] INVERSE ▚LN 8▘VAL$ x[Q][L] FOR THEN 8[A]_z0 AND [Q]8 THEN # THEN AND 0 SAVE FOR y INPUT [I] THEN Q(! INVERSE F THEN y( INVERSE n INVERSE f[H] INVERSE t FOR INVERSE p : OVER USR INPUT U▛>!hBIN VAL$ INVERSE INKEY$$VAL$ wi PAUSE /BIN CODE ▘wm▗ NEW 8 INPUT COPY D▝Az▗ FOR INVERSE ~S RETURN ▝?USR dIN ? SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT IN LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wPEEK pkd^YTOKGB?;852/,*'%#!▚▝PEEK [R]*+-▜USR >=[B]▖▚ OR [C] OR [N] OR FN OR SIN USR OR ▟ CAT OR PAPER OR NEW OR LIST OR IF OR @>▗▜ J▖▜▜_^▜▜1`q3@|▘▜▚ G =0J▜` [M]▝S 9▘R VAL VAL$ RND▜ INVERSE N INVERSE F INVERSE n INVERSE f INVERSE ~!= IF + AND INVERSE w! INVERSE ^" INVERSE V# READ ▜~#V_SIN 0( CLEAR ▘q DRAW ▘W▚zCOS #[H]▘ #USR MOVE ▗ ▚!#^ INVERSE s",▝r▘<>R OR ▛6!n<=▜o0$lLN ! NEXT <=w# IF : POKE <=2>=* PRINT <="nBIN GO SUB [ RUN <= GO SUB SrBIN }2tBIN : IF <=2uBIN : RANDOMIZE <=_ STEP {STR$ :>=_i4<> STEP >=[U]▜>=: NEXT <=PI '[G]NOT STR$ =2 NEXT <=:>=PI /:>=PI>==2>=0/TAB :>=PI(:!>=G: PRINT <=2nBIN : PLOT <= NEW 2oBIN * RUN <="rBIN !>=5: COPY <=PI( PAUSE 7<= PRINT GO SUB [ CLS <=▙▘@PI GO SUB R[N]▘:G▗ PAUSE Z<= GO SUB [ CLEAR #▝r#0#rBIN :nBIN INT SGN <>|<=▟<=[O]<=CODE <=USR <= MOVE <= STOP <= IF COPY COPY COPY LPRINT COPY PAUSE 0- COPY COPY # COPY d IF ""▙@d IF LPRINT "Z[K] IF 3D COPY ▗ PAUSE EUSR COPY [A] COPY NEXT 4 CAT ▙ NEW H DEF FN 8 THEN ' THEN '!$>= THEN + ACS ~<> COPY 4H>=o>=[O]>=& LINE 7 LINE E LINE [K] LINE [O] LINE [S] LINE DRAW LINE THEN THEN $ THEN * THEN 3 THEN <><>.<>g<>g<>PI<>VAL$ p[H] INVERSE <> LINE INVERSE >= INVERSE >=▛<> RETURN ▛<>@pP▚ INVERSE >=PEEK /▝/▘TAN B▝`▘PEEK COPY ▜ FORMAT STR$ ▝[B] READ 8 OPEN #CHR$ LLIST ▖ LLIST 88 OPEN #CHR$ LLIST INKEY$ LPRINT 88▜ MOVE ▖▘NOT [A] LLIST READ ERASE BIN ▝ LLIST 168 READ : LLIST 8 READ 6 MOVE NOT ▘ LLIST `▞68: READ ; LLIST : READ 3PI ▜ CLOSE #▖▘USR [B] COPY 8 MERGE LOAD ;: CLOSE # COPY 3▜ VERIFY ▝ LOAD COPY LPRINT "%'*,.1368:=?BDFIKNP[C]RUWZ/WZ▜ BEEP ▖▝USR RESTORE ?▘?[P][S]x? BORDER ▝ LLIST =;=?▘ READ ; RESTORE :8 RUN 3 READ RUN ▜ LLIST BORDER READ BORDER LLIST [J]p▙[I] CLOSE # OR ▝ COPY :▜ CLOSE #STR$ COPY 8▜CHR$ OPEN # LLIST USR CIRCLE ▛ LPRINT AA IF ▝0▘AA p[A]A▜▝USR VERIFY LPRINT ZW/ZWURPNKIFDB?=:8631.,*'▘%" NEXT PLOT LOAD LLIST BIN ;:; READ 8 LLIST ;+ BORDER =▜I LINE USR I LINE AT ▝I>=▗ LINE ▗0 VERIFY ▝[ PAPER ▝ FORMAT Ql▖pPI0PI▝pPI@PI@▙▜ MERGE AND ▝[B] LLIST //-/*,- /21▜ATTR /▝TAB 3▝ DATA |▝ DATA <▘ LPRINT p FORMAT p FORMAT p FORMAT p FORMAT p FORMAT LPRINT ▙r▚ BORDER FOR RANDOMIZE ▛▜ LPRINT ▜ RANDOMIZE LINE THEN RANDOMIZE [H]▝ RANDOMIZE FLASH ▝▜ VERIFY BIN ▝[B] LPRINT 8 CAT DEF FN ▝D DEF FN STEP ▗▙ RANDOMIZE LINE < (P▝ MOVE USR ▘`▛[B] RESTORE &&▗ COPY LOAD &▙ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ERASE <> STEP VERIFY NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL ! VERIFY PLOT l<> GO SUB LN ! GO TO ▞da~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT RIN STEP ra STEP C© STEP ▗▝ STEP OVER k PAUSE STEP ;©CODE 2>= RESTORE STEP RANDOMIZE b STEP LPRINT a! LPRINT Z LLIST Z6C GO SUB VAL !BIN j"LEN RESTORE CODE 2COS RESTORE 2TAN RESTORE :>= RESTORE ATN ( STEP CHR$ l STEP LN GO TO kNOT ua STEP CLEAR c STEP DRAW a> LOAD FLASH RETURN FORMAT > RUN FLASH RETURN / NEW ( BRIGHT COPY 0 DRAW y RETURN TO _b2[H]▜!.i STEP AND TAN ^#V GO SUB S3d_IN EXP !▚i:[H]O>[A]EXP >F PLOT 2[T][C] STEP SGN d INPUT <> CLS v STEP [N]: OVER CODE RANDOMIZE RUN : RANDOMIZE LPRINT 4 DIM ERASE LOAD 2 LPRINT [L]> LOAD P STEP /mSIN OVER L THEN ▝ SAVE OUT LINE OVER K▝H BEEP NEXT LINE OUT IF STR$ STEP 7STR$ OUT BORDER NEW MERGE N▝ OUT PAUSE OVER ;[F] INVERSE NSTR$ BEEP STEP K BORDER ' BRIGHT N[E] INVERSE ▚m2[D]m>24K CAT STR$ SQR O2d[N] OVER [G]2C[L] RANDOMIZE IF " OVER PI[G]0▘C[L]$▗([N] CAT P,▘ LOAD )▛STR$ DRAW 6 OVER USR ATN RANDOMIZE [P]2H[N][A]▜ LOAD OVER USR INKEY$ RANDOMIZE NEXT [C] INPUT OUT COPY NEW LOAD 6,[N] BRIGHT OVER COPY COPY STEP ACS DEF FN COPY COPY 6: RETURN ▜ LPRINT LPRINT OUT SAVE 4 RUN <=>H6" COPY "▖ RETURN " BRIGHT " BRIGHT >>=62[M]& RANDOMIZE COPY OVER AT [B]& OVER COPY IN RANDOMIZE IN COPY OUT 2#[M]▖ BRIGHT LOAD >r▗ OVER COPY PI!`▜ RETURN OUT COPY PLOT > LOAD :[M] OVER COPY B=▘&21 L▘L▝OVAL INVERSE O[M] INPUT COPY " OVER COPY LET INPUT RANDOMIZE OUT "▝ COPY " BRIGHT STEP 9[M] RESTORE GO TO 2[[M] LOAD OUT RUN OR N[M]9 RUN STEP N[M] PAUSE OUT !STR$ CLS Mm[F]24[L]▜P STEP n2([H]]▟ INPUT COPY PI RETURN OUT CLEAR O6&[A] INK COPY USR VERIFY [C] INPUT TAB NEW INPUT COPY COPY RANDOMIZE SAVE ▝ GO SUB BRIGHT FOR LOAD ▝ GO SUB USR LIST [B] DRAW 9FN STR$ COPY GO SUB OVER O[M] THEN &6 RETURN COPY DRAW OR ACS POKE ▜N OUT 6&▜H OUT PRINT ▝ BRIGHT CLS OUT RANDOMIZE [R] BRIGHT EXP BRIGHT ▗ IF &6 OVER RND INPUT RND RETURN RESTORE <> COPY G6*[U];[M] MOVE HTAB ! COPY ▘[Q] DIM [T] CAT RETURN BRIGHT INVERSE ;▘.6 FLASH SAVE ? PAPER ▘9 OUT [A]sj[I]6:* OVER <>[G] LLIST RUN LEN P[P]▜ CLS IF OUT RETURN FORMAT I BRIGHT 4 GO TO CAT ▗ RANDOMIZE RANDOMIZE OUT CLS ▗[Q]▗ BORDER BORDER ▝[F] RETURN OVER JA OUT CLS 4| BORDER DRAW STEP J▗.>6STR$ LEN ]▝[N]▘ OVER [I] ▘STR$ VAL B[B]Z[K]2O[K]2v[K]2EXP [K]2'[K] OVER mIN T▘STR$ FN [E]▘STR$ STR$ [ '▜62 IF [H]▝j4▝ BRIGHT BEEP P▘ LOAD [H]0P,NOT ▙ LLIST RETURN ATTR <> LIST RETURN IN COPY O<>SIN LET [P]▝ FORMAT [H] LET _▚ CAT RETURN [Q] RETURN O DIM [G] INPUT LPRINT COPY RANDOMIZE BORDER ▟ NEW ▟ BRIGHT LOAD OVER LEN PI RANDOMIZE DRAW STR$ FN ▖ OPEN #▖ OPEN #▘ INPUT STOP o▚ OVER PI RANDOMIZE CLEAR )©[D]STR$ RANDOMIZE STEP "l OVER [E]RND INPUT CONTINUE COPY RETURN CAT CLS <#l OVER AND [Q]▛ OR [I] MOVE COPY [S]H LPRINT 4 DATA ▝FN W▙ LET RANDOMIZE [L] NEXT o CAT ©LN ▚9 CAT ▜ RANDOMIZE PRINT LET p▜9 CAT <[D]m OVER NEW READ OVER ▝28[K] CLOSE #▝2;[K] CLOSE #STR$ MOVE F▚▝<1[K] OVER RANDOMIZE ▚i BORDER PLOT OVER CIRCLE '▝'" '▚▝21[K] LIST E▝STR$ LIST @[D]H? OR "NOT STEP " IF OUT IF P[R]6 OVER 8▝) LOAD CIRCLE ▖ CLOSE #▝! COPY CIRCLE ▖ OVER LEN IN OR 92 LET m OVER IN OR 8<n0▙ CLS 7 OVER STR$ LOAD y CIRCLE ▖ BRIGHT ▝1&0▙<v[K] OR H7 OVER p"POINT [H] OVER i2M[D]/ MERGE INVERSE i STEP i<Z[K].▛"2 LPRINT " IF ▚IL[D]5u[J] LINE OUT INKEY$STR$ [H]2 THEN [I]2PEEK K OVER THEN 6 `[K] OR 9[P][A] INK [A]▝ LIST ? OR H BEEP STR$ FOR STEP I LET CLS [F] DRAW BEEP PAUSE RANDOMIZE BEEP PLOT PLOT BEEP IF NEXT BEEP RETURN PAUSE ▚2BIN ▙ NEXT BEEP PAPER 9COS [A]1[I]j[I]▝ OVER 9SQR :▘ LET CLEAR /▘<> NEXT 0▘ DEF FN NEXT 1 OPEN # NEXT OUT RANDOMIZE ABS ▝/ COPY >= INVERSE [U]m<>▗[O]m OVER OR v▘STR$ [E]▜ OVER 9 OUT ▝6▚ STEP MOVE [I]p&m OVER ASN [M]▝ MERGE ▝[A] COPY 2n BORDER / OVER RETURN INKEY$ INPUT CLEAR INKEY$ RETURN STOP COPY ▖=▗ OVER INKEY$ INPUT INVERSE @[G]6FN ACS PISCREEN$ ATN ATTR SCREEN$ ATN AT ATTR LN OVER ©INKEY$ INPUT ~INKEY$<>EXP RETURN {2F[I]2[I]"▝H OUT ▘ RANDOMIZE NEW LOAD 6 RANDOMIZE IF ( OVER ▞[F]2;[I]<;[I]+▝YP+▖Y[I] RANDOMIZE ©▞ LOAD * )▝V@)5▜STR$ DRAW ▖NOT OPEN # OUT d[Q]H BEEP MERGE CHR$ "▖ COPY BEEP FLASH VAL ▝ RESTORE BEEP LLIST SAVE OUT PAUSE ▚ DRAW <= CLEAR STR$ DRAW SQR 9 RESTORE BORDER LET p CONTINUE BORDER RETURN S)[D]" BRIGHT BRIGHT BEEP <6▝ STEP ▚m BRIGHT ▝ STEP m BRIGHT 6 RESTORE [M]▚mNOT ▖6& RETURN GO SUB ▚[U] STEP COPY m ERASE BORDER IF CONTINUE <= RETURN ERASE LPRINT [M]&6 RANDOMIZE COPY [P][H] INVERSE " OVER D[E] OVER INKEY$ LET CODE OR +H BEEP LET CHR$ STEP + GO SUB !2[E][H] BORDER OR 02[E]6 OR !H7CHR$ [B]▞2i[H] CAT 2Y[H] LPRINT CAT CLS INPUT NEW CIRCLE ▗ LPRINT CAT RETURN OPEN #[D] ERASE BORDER *2[H] OR RETURN ?▝▜>=7▙6Cl▝ CONTINUE l[A]▚9 RUN <= BEEP <= BEEP IN VAL RANDOMIZE COPY ,▜ CLS LPRINT CAT PRINT f CLEAR ▘" BRIGHT -$FN ▚ LET ATN OR nNOT O IF ; CONTINUE mxPEEK ▝STR$ ▝ RETURN R INVERSE ▛ LIST OVER DEF FN ATN ;n OVER TO ATN p▚2n OVER SCREEN$ ATN i▝Ti▘ OVER <> LIST 2nEXP ▞<>[G]COS [G]PEEK [G]FN [G]USR IN LPRINT COPY COPY COPY COPY COPY CLEAR IN ATTR VAL / OVER IN AT SGN VAL TAB : LET IN ATTR ACS SIN : REM IN COS PEEK CODE B TO IN AT CODE INT INT ;NOT IN BRIGHT FLASH Z INK ATN OUT DEF FN [S] MOVE OUT AT ACS LEN SGN COS PEEK ACS TAB OUT ASN VAL INKEY$AT ATTR ACS SGN TAN _[J]ATN OUT STEP MOVE OUT TAN INT SIN CODE AT ATTR VAL LEN p▛YATN OUT TO MOVE OUT SGN SCREEN$ TAB AT VAL p._ATN OUT THEN .[D]INKEY$ABS VAL PEEK TAB SQR _ INK CODE OUT LINE MOVE OUT SQR INT EXP ACS LEN INT ▚AT _[J]CODE OUT CAT g[B]ATTR PEEK TAB ATTR OUT LN PEEK SIN INT _[ATN INT LEN ATTR INT TAB 4[A] OUT EXP VAL -MATN COS INT EXP +MATN TAB ACS LN ATN [A]ABS TAB PEEK TAN :MATN PEEK SGN SGN INT COS INT TAB PEEK ATTR TAN SGN ATN PEEK LEN LN INT OUT LN INT PEEK - CLEAR DRAW INPUT LET DRAW PLOT CLEAR DRAW CLEAR RESTORE POKE RUN COPY GO SUB l POKE RUN COPY POKE e VERIFY ATN EXP PEEK TAB OUT VAL SCREEN$ ATTR OUT CODE COS PEEK INKEY$INT TAB ,[I]ATN IF ▗INT OUT SQR ACS xVAL LEN SGN INT OUT LEN PEEK SIN :~ATN POKE NEXT DRAW POKE COPY NEXT DRAW RESTORE LET PRINT RESTORE PAUSE LET COPY NEXT q8ATN LET RANDOMIZE DRAW RESTORE NEXT COPY RETURN | OVER IN COPY NEXT NEXT SAVE LOAD COPY RUN RESTORE CLEAR SAVE ▛ PLOT RETURN | CIRCLE ATN RUN COPY t CLS ATN CLEAR ▛ DRAW NEXT RESTORE NEXT DRAW LET SAVE NEXT |ATN ATN :3[H] POKE SAVE qFN INT SGN OUT COS INT OUT SIN PEEK LEN AT OUT ERASE OUT BEEP SGN VERIFY OUT TAN VAL f▚ACS OUT DEF FN AND <=<= ▗ACS SIN PEEK LN ▚AT VAL EXP ATTR FN PEEK ▙▗COS ATTR SQR MOVE 0▞SGN VAL SQR ACS LEN LN OUT ABS INKEY$v▖ATN LEN OUT SIN SCREEN$ COS COS ACS H▗PEEK ATTR OUT AT ▝ACS p6ACS LEN OUT PEEK AT AT VAL SGN ACS PEEK ATTR ACS ▖FN ACS ATTR ATN OUT SIN ACS TAN OPEEK SIN ABS 3@h MOVE OUT LN TAB PEEK CODE ATN ACS SGN AT X▘FN ACS S▞PEEK SIN OUT ATN PEEK TAB ABS ACS AT <=▝ BEEP @▖ VERIFY OUT PEEK LEN SQR OUT PEEK COS REM OUT SIN VAL TAB TAB PEEK COS COS OUT BEEP Pv▘ VERIFY MOVE AT ACS SGN $▘EXP PI0[R]LEN PEEK ATTR ▝ OUT SQR SCREEN$ LEN LEN MOVE ww NEW ff NEW SCREEN$ INT <>SQR ▛ INVERSE /U MERGE [J]Ygwuww[B]2[D]*2=[D]" COPY z▗ FORMAT [L] LPRINT 'ASTR$ xZ INPUT /INKEY$ NEW [S]ATTR READ RETURN FOR COPY STR$ EXP PRINT MERGE ▘4I▝STR$ ▞/▘<=CHR$ USR LPRINT ▜ CAT PRINT NEXT ▚ READ <=AT BORDER PLOT LPRINT CAT PAUSE CHR$ [D] LET DATA DRAW FIN [I] PAUSE ▜▚ DATA OUT CLEAR STR$ A CLEAR STR$ 9PEEK ▛[G] BORDER G" BRIGHT 4A OPEN #4 LET COPY LOAD R4A6 RANDOMIZE PRINT OVER ji:-▗<= PLOT RETURN RUN P▜H6>STR$ PRINT o PLOT IF BEEP LIST ▜[F] MERGE ▞ INPUT i OVER #iG.p▘ RETURN IF ABS [F]STR$ OUT GO SUB GO TO GO SUB GO TO GO SUB DATA DATA >=6 INPUT RESTORE a GO TO VAL$ ▚USR 62[N] LN OVER CODE [F]A▝ABS :U▚ OVER _INKEY$ INPUT ^INKEY$ LPRINT STR$ LN ▖ LINE ▗[J]TAB [C] RANDOMIZE PI INPUT FN ▞:* OVER DRAW STR$ INKEY$oLN :*__Pppp$▝; [J]<.2PEEK [C]> LOAD N6 REM SAVE SAVE ?▗) OUT [Q]'9 RUN FN _▟<> COPY BRIGHT J OUT P STEP [m" LOAD o▙ RANDOMIZE PRINT :2}[C]2X[C]2F[C]2<STR$ GO SUB ![A]6STR$ POKE o PRINT VAL OUT IF RETURN COPY RETURN BORDER CLEAR RANDOMIZE ( OVER ▚m THEN 6ASN ▖"" BRIGHT 2F[K]▝▝ LINE ▚ LIST OUT SAVE STR$ OUT l▘ BORDER DRAW 6a(6l,▝8,▜▝9 CLS ▖6 RANDOMIZE DRAW ▚ BRIGHT LOAD OUT ▗9 BRIGHT POKE ▗/ OR m▚▙m6 OVER IN IN INPUT COPY 2 LPRINT [B] MOVE CODE ▗ATN INPUT ©▜PI* RANDOMIZE CAT :SCREEN$ O@ IF ▝@/ABS [B] OVER PIIN @!▘O<9SIN 6 CLS PRINT ? CLS COPY PAUSE LPRINT CLS SAVE CLS U PLOT T<= LET COPY SAVE RETURN COPY © CLS COPY DRAW MERGE CLS U SAVE CLS SCREEN$ PLOT POINT ATTR REM COPY PAUSE ~SCREEN$ SCREEN$ RETURN SCREEN$ SCREEN$ IN CLS SCREEN$ RUN +SU CLOSE # COPY PRINT }UU CLEAR UU_▘U RUN *PI) LINE © REM INT CODE COPY IF CODE PAUSE CODE COPY COPY RETURN 0*OU MERGE © RESTORE =_ COPY CLEAR _ CLEAR _ COPY COPY CLEAR *FN " PLOT [S] CONTINUE IN STOP < COPY DRAW IF ' COPY COPY IF CLS " RUN CLS ▖ PLOT [P]▖ STOP ? CONTINUE PEEK ' COPY RETURN ' DRAW COPY COPY SAVE CLS ▖*▝`*▝ RETURN *▝ PAUSE 0*IN >= PAUSE *▞# COPY RETURN # RETURN ▛ COPY COPY CONTINUE 0*? STOP x[P] STOP >▛ COPY RETURN ▛ RETURN # COPY COPY STOP 0T▝©p*▝@* PLOT © LPRINT 8 LPRINT ? COPY USR CLS INPUT COPY ` CLS COPY CLS p CLS LOAD COPY LIST LPRINT ?p0▝E▝@#▘ COPY COPY `▖ SAVE © COPY INPUT p© LPRINT ?0▘ DRAW P$ LIST ? DRAW [O] SAVE LPRINT ? LPRINT ? COPY LPRINT ? LIST DRAW "▙/ COPY DRAW ' CHR$ ? STOP ? COPY STOP ? PAUSE ?4*▙[P] COPY DRAW IN CONTINUE IN COPY CONTINUE IN SAVE [P]4*▝|" DRAW ? PAUSE COPY PAUSE IF ?4T▝IN [B]▘▖ DRAW %▝ COPY (▘ LIST 0T▝?@*▘? COPY R▝/4▝ PLOT LINE AT ▗ CLS U DRAW ©CODE TAN ▘W RESTORE POKE ▗SCREEN$ DRAW IN IF OVER IF PI LINE ▝T&UU©▘O[F] +▘ SAVE POINT <▗ REM SCREEN$ SCREEN$ COPY 1SGN SCREEN$ SCREEN$ [O]*, SAVE R▘ LIST u▚©<z▝ CLS h COPY RANDOMIZE RETURN CLS COPY IF LPRINT ▖ REM RETURN USR ▘ REM DRAW @ REM RETURN $ LPRINT 0▝ LIST >p ▝ DIM `▗ IF ▝ SAVE gp▟▘ COPY ▟ COPY COPY RETURN CLS COPY LET ▝ COPY STOP ▚ COPY ▝ DRAW ▝ RETURN DRAW p@▝ RETURN pUSR ©*- SAVE [R]▛ LET USR COPY COPY ▝ LPRINT ©▝ RETURN USR B▘SCREEN$ ▟[T] STOP ©▞ RETURN ' STOP RETURN /▞ RETURN ▜ [C]CHR$ COPY COPY >=▖IN [T] RETURN >= DRAW STOP RETURN '[B] RETURN G~[C] CONTINUE COPY STOP "?▞ COPY # STOP ~/>= RETURN OR COPY [D] STOP ©#* COPY ▛ CONTINUE *▝ MOVE 0*IN ▛ STOP © COPY 0*▚ CONTINUE ~BIN COPY ABS [C] PAUSE ?[R] RESTORE © COPY MERGE COPY MERGE PRINT }_ PRINT ©W REM COPY ATTR ERASE [C] PRINT _ MERGE REM COPY COPY ATTR COPY ATTR IF PEEK CODE REM RETURN CODE PRINT COPY W BORDER IF CODE POINT PRINT _P*▗}W REM RETURN [J] LET RANDOMIZE UT PAUSE SCREEN$ CODE ATTR COPY REM IF [O] FORMAT ▗CODE PRINT UU▚ DRAW SCREEN$ POINT RANDOMIZE UOT▘ CLEAR _ IF W PAUSE SCREEN$ T▛ LIST RETURN NOT COPY LPRINT SAVE ?▚▝ CLS [E]▖ IF OUT CLS INT IN CLS IF IN ▝ OUT *▘ COPY H▗ LPRINT LPRINT 8?0 COPY ▚<=P0 LIST LIST n▗ COPY EXP EXP @(▙@USR > RETURN aa▙▙@©0J▙[M][M]STR$ STR$ NOT NOT [Q]IN 0^▙TT**bb BEEP BEEP MOVE OUT INT t[A] CLOSE # CLOSE # OR OR kkNN LPRINT STR$ TT▝▝bb[R][R] COPY COPY P[S][S]ii MERGE MERGE DATA BORDER 0(▞BIN BIN LIST LIST ~ BEEP ▘INT SQR LIST [A] LIST LIST UU PRINT PRINT @@UU▗ TO FORMAT ▚SCREEN$ SCREEN$ ##oo COPY COPY PRINT PRINT TT[M][M]GG@©VAL VAL [[STR$ COPY LN CONTINUE CONTINUE @@//[Q]IN DBIN PPUUZZ PAPER PAPER VAL VAL X_! LLIST [Q][Q]ddSCREEN$ SCREEN$ CIRCLE CIRCLE FN FN [U]PIP LIST ▝▝qqSTR$ FN ▘LEN LEN STR$ LN ``ttFN FN [R][R]UU BRIGHT BRIGHT FN FN mmZZSCREEN$ SCREEN$ ASN ASN GG[K][K] [S][S])){{x[A] RESTORE RESTORE KK INPUT INPUT TO TO aa STEP STEP ??▙ OR OR ▙▙EE}}!! FORMAT FORMAT 1[A]▝▝USR USR SCREEN$ ATTR ▖▖pp4▚▚[E][E]BB▖▖©POINT ▝ COPY [O]@@ TW▖▖<=@@`AT p▖0?T CLOSE # THEN ▖@©+ COPY @@<>▘ IF ▘ASN PRINT 1AT [F][F]iA SAVE ▗ COPY SAVE SAVE RRH~ RETURN `B2h▜ COPY ▝▝UU CIRCLE Blz▚UUQQAT CODE p<▝z▚ffjj ERASE OPEN #pP DRAW jjSCREEN$ SCREEN$ jj[M]`▚""CODE CODE BRIGHT ▝pB▙ DRAW 55ppaaTTOOP<▘bX▗LN LN PPBBEELLPx▟UUhh LPRINT LPRINT USR @▙**TT LET LET LIST LIST 3?FN LIST LIST ::ATTR ATTR LL FORMAT (▟ DRAW DRAW uu@@22FN FORMAT [C] RETURN ATTR ATTR ▝▝SS POKE RUN j▙~~STR$ STR$ SIN SIN ++0[A] OR OR RETURN RETURN ''++ IF CLS 0OO IF IF COPY COPY CHR$ CHR$ BEEP BEEP 0▚OO RANDOMIZE RANDOMIZE [D]▜>= LOAD LOAD LET LET PEEK ▗▗KK LIST LIST IN IN DATA DATA [M] CLEAR ERASE [A]▝▝JJPP©© STOP STOP ©© IF IF SIN [A]CNOT JJ[Q][Q] RUN RUN COPY COPY DRAW DRAW JJ AND # READ II``33fI TO TO ▗ DRAW DRAW INPUT INPUT INPUT ▘ RANDOMIZE ▗VV%%$1 REM ▞8 SAVE II[O][O]▛USR ▝ RETURN REM ▝▙>=>=VAL$ VAL$ ▚▚MMSS RETURN RETURN ▝▝ RETURN ▝▜CODE CODE NEW NEW [R][R]CHR$ K[I]▟ COPY SAVE PLOT PLOT pp&[I] RETURN RETURN COPY LIST PLOT PLOT AT AT ?? DRAW DRAW STOP READ [B]WW SAVE SAVE RETURN RETURN <▚HH"▝ RETURN DIM TO >=▚ LPRINT LPRINT FORMAT FORMAT PLOT P*▗& STOP 2[C]s7 DRAW <zTAN ? CLS mm FLASH FLASH VAL$ VAL$ mm FORMAT OUT CLS ii READ READ --qq FORMAT OUT RANDOMIZE TAN TAN FOR FOR kk[A][P] LET ACS ACS LIST LIST FOR FOR ▖ LET {▘USR [G]▗▖ LIST ▘ SAVE SAVE ~▚``0▗))0▛`` 0▗>>INT INT CHR$ ▗▘▘]] DEF FN VAL$ " STOP POINT POINT ..DG' BORDER DRAW DRAW FF DATA BORDER / LOAD CLEAR CLEAR ==..IN IN POKE RUN ' BORDER VERIFY VERIFY [I][I]WW▖ CLS CLS ▘▘USR USR OUT OUT SAVE "▚ DATA BORDER L TO }}O▜ATTR PEEK PEEK 23[ FLASH OR COPY ▚ PAPER FLASH L TO CONTINUE ▖LN LN 23Y INK READ READ POKE ▖<=<=[K][L]I<> MERGE MERGE ▖ATTR ATTR [C][D]* REM ▖[I][I]TW, GO TO ABS ABS ▖ABS ABS 47 RUN $▜ CIRCLE CIRCLE CONTINUE LOAD NEXT BORDER n▖ COPY COPY BORDER BORDER >= CAT ( CONTINUE P`[A] LIST IN IN IF IF PP( CONTINUE Tx▘t`▚*+* REM [Q][Q] GO TO ▗TWe[K] DRAW SAVE LIST LPRINT USR a LLIST ▝ LLIST LLIST ▜ LLIST ▖[A]VAL SAVE LIST INVERSE ▘ CIRCLE ▚▜ COPY ▜ COPY ▝ ▝USR 0 ▝0▖▚▗▗ DEF FN p@@▘▚▘▚Jp@p`p Pj▝ CAT !7@`▝ NEXT ▗▜▜▜STR$ p▘ CAT NEXT Pz▖a!!aP▘ CAT NEXT RNOT COPY ▝ COPY ▝P`▝NOT ![H]▝ CAT p CIRCLE p LPRINT p LPRINT ▖ COPY USR s!▗!▗P0▘ DEF FN q q0 SIN p LPRINT Q !` STOP p LPRINT Q@1jQL0USR Q▝Qv▝@p`A[Q]▚USR DRAW ? DRAW ?P DRAW ? RETURN &q q[S]p[Q]▞ COPY COPY ▜ NEXT LLIST NOT LLIST STR$ USR LLIST LPRINT LLIST LIST LLIST LIST a SAVE a SAVE ! DRAW ! DRAW RETURN + FLASH [N] COPY COPY LET ▜ LLIST STR$ STR$ LPRINT LIST SAVE SAVE LIST LPRINT STR$ STR$ ▜ LLIST qp▚p ERASE ▘ RETURN ©p[K]p[I]0[Q]^[G]▖[B][B]![S]A▖[B]▘▘▗▖v▟ SAVE LPRINT LPRINT 3 LLIST [ STOP S DATA [D]▟ LPRINT [D] RESTORE DIM 3 LPRINT S LPRINT S SAVE +▚ COPY SAVE RANDOMIZE IF [I]▚ SAVE _ SAVE [P] RANDOMIZE _ ▝ R▝▝ COPY [B] COPY [R] COPY ▝▝@ COPY [D] COPY [T]P▝NOT @▝ OPEN #D▝ THEN 0Np2@C BRIGHT ▜z|z|z|ASN ▜ DRAW SAVE LIST LPRINT USR <▝$PI00▘z|@▚? OPEN #@ DRAW RETURN @G@ D2@%4C▝©@P"©?[G]NOT RETURN BIN ©~USR LPRINT LIST SAVE L▝@( OR ~ OR © OR <=▙STR$ READ ▝ LPRINT USR ? Xpi4AT ▝~PqDSQR 8USR USR 7USR ( NEW =T▝ COPY BIN ▖ COPY USR >= COPY USR STR$ LET STR$ ▝ COPY USR |@[I]▝@O▝USR OR ▖▘[I]0A4▝USR OR @ FORMAT ▝ RETURN @ FORMAT *▚[E] RETURN COPY BORDER CLEAR q▙ IF IF CLS GO TO COPY CLS CLEAR RANDOMIZE SAVE COPY IF BRIGHT ▝ INPUT %▘ COPY DRAW BORDER CLEAR PRINT ▝ DRAW ▖ PLOT POKE NEXT NEXT PAUSE COPY POKE & DRAW LET LIST ▖ LOAD COPY COPY INPUT NEXT SAVE PAUSE L; CLS GO SUB GO TO ▝ RUN ▜ FOR COPY SAVE REM COPY RETURN P▝ RANDOMIZE ▝ SAVE `▝ IF )▗ DIM CONTINUE BORDER COPY -▛ RANDOMIZE NEW RESTORE RESTORE DATA RESTORE SAVE READ COPY RUN Q CLS STOP LLIST LPRINT COPY 0▝ GO SUB L DRAW OUT OVER INVERSE BRIGHT FLASH PAPER GO SUB INK COPY GO TO ]SIN ▚ BEEP VERIFY MERGE CLOSE # DIM COPY ~ DRAW RETURN CLEAR RANDOMIZE CLS q▖ IF CLEAR DRAW CLS INK LIST OPEN # ERASE [T]▞ GO SUB LET CLS DRAW IF RANDOMIZE SAVE COPY ▘ IF PRINT ▝ PRINT CLOSE #▝ LET VAL ▙ GO TO EXP IN RANDOMIZE OUT POKE ▜ LPRINT ▖ NEW CAT RANDOMIZE ▜ CAT GO SUB IF ▙ PRINT LLIST SAVE +▝ GO TO p▖ IF ▟ DRAW CONTINUE `▜ STOP ▟ RANDOMIZE RESTORE L W[[F] GO TO 2J OVER ▘9▝ BRIGHT I;,? RETURN LLIST LOAD INKEY$629 BORDER RANDOMIZE ▗ COPY ? BORDER [B]/> BORDER OR -HSTR$ RETURN BEEP CLEAR STR$ STEP .&0:[E]2 CLOSE #? OVER N RETURN IF :▝ RANDOMIZE ▚ BRIGHT ▝ RANDOMIZE @▛> LOAD OR H OUT NEXT STR$ RUN ▝P64USR 4USR )USR SQR 9 FORMAT VAL N[A] OUT CLS ▚) POKE VAL ▚ LLIST POKE RETURN INKEY$ RETURN #▟ SAVE RUN LPRINT NEXT COPY PAUSE RUN RANDOMIZE IF IN ?[P]▟POINT _IN ??©7 OR QH7STR$ COPY OVER [E]RND INPUT CAT CAT LET DEF FN RANDOMIZE BEEP RANDOMIZE INKEY$ RUN BEEP RETURN VAL$ RANDOMIZE CLS ▟ OPEN # OPEN #▙ OPEN #▙ ▟ OPEN #▟▘9 CONTINUE [A] LOAD 66 COPY ~ COPY ~ COPY ~ SAVE ~INKEY$ NEXT NOT CONTINUE PRINT OVER [T][J] INVERSE }~STR$ ©LN [R] OVER COPY INPUT COPY [U] RETURN IF OP,<[L][O]STR$ CLS 2 TO CLOSE #VAL E STEP CSTR$ RETURN STEP D OVER COPY COPY INVERSE 6R?2CODE < INVERSE [K]; STEP [E];STR$ COPY STEP [I]; OR ▝9X BEEP MERGE MERGE [B]; INVERSE [O]; MERGE ▟; OR ▛;[D][H]; ERASE OVER ;Y STEP [H]; OR ▞; STEP [G]; OR ▜5ATTR OR ▘9 OVER ▝9<~~2d[N]2PI[I]2[M]2 NEXT k▞2's2▞t2PEEK y2 LPRINT 2(l2SQR v▛}2X}29p2 PAPER {ATTR [C]|2]j2▟[J]2ef2lx2 FOR j2 PAUSE [J]2 MERGE [J]2EXP [K]2'[K]2 BORDER }2Tm2INKEY$2VAL l OR /I[E] GO TO MERGE 9JCHR$ n~STR$ CLEAR 2BIN 2o[I]2SGN BEEP IF 2i BORDER DRAW 2<>[B]2 TO [M]STR$ RETURN ▘ OR [H]6 COPY OR [A] INK ▝VAL RND[O]2[S]n[S]ATTR 4 OPEN #4 STOP NEW HSTR$ COPY <>} FORMAT VERIFY pVAL [U] NEW OR v[B] CONTINUE ` NEW INVERSE v STEP [S]}"▙6[U] OVER RETURN HTAB / OR @R▗ INVERSE ▘}6H7k[D][Q] DIM RESTORE VAL CONTINUE `LN MERGE PLOT INVERSE ▗9 LINE [Q]0▜ PLOT INVERSE 6▞NOT CLEAR /4NOT 4 STOP ▝▘$PEEK RUN FN OVER SCREEN$ i<=LN STR$ LIST oNOT INPUT <= RANDOMIZE ) LOAD }FN STR$ LOAD STEP CIRCLE |) LOAD VAL ▚ LIST 9FN ▚9 OUT x[Q]* OVER VAL | INVERSE } BRIGHT BRIGHT INVERSE } OVER _ INVERSE BIN ATN COPY COPY INK OR LPRINT LPRINT LIST [A]) LOAD SQR x9 FORMAT [A]1|j[I] INVERSE }<> RETURN BRIGHT <> BRIGHT <> BRIGHT <> PLOT .& RANDOMIZE COPY LET CLEAR &*&&__Pp0POINT RETURN PLOT & PAUSE = ERASE |&. FOR =[K]|▗9 OUT [Q] DIM ▘9 LOAD [A]& LOAD C6 OR EH=|P STEP G_▘9 OUT aSIN LET COPY CLS <= NEXT CAT RUN LET RUN RUN <= CLEAR LET CLS OR Hc|SQR ) CLS <= RETURN NEXT MERGE H OUT GO SUB ▘s CAT READ [F]<= PLOT NEXT NEXT `[G]G BORDER LIST CHR$ OUT POKE ▘EXP <= RANDOMIZE [P] CAT CLEAR NEXT NEXT [O] MOVE COPY RND[P] NEW INPUT INT e NEW ▚ CLS STEP j<= CLEAR BRIGHT BRIGHT INPUT R RANDOMIZE OUT OR GH|▚ DRAW BEEP _[L] LINE q<▙q[U]@ MERGE B OR =LN OR > STEP "l RANDOMIZE OUT PRINT +▝5 ▟9q<q OVER COPY [O]" OVER Fp RETURN REM REM SGN ▝POINT [O]""▝ COPY G OUT POKE 2jl"▘9 CLS "[A] BORDER "▝H;"{2 RANDOMIZE h▘ OUT [E]{{2Nh▘) OVER [A] ERASE " ERASE " ERASE PAUSE LOAD 5"6▝?p5TAN LIST 5+K&VAL x~xxn[A]POINT COPY "[R] COPY "▝ RETURN CLEAR -~r▘&▚&9[M][A]1Ij[I]▝ BRIGHT [J][A][I]! PLOT iVAL BRIGHT BRIGHT *H BEEP PAUSE ▗i-▘2<&{▗i%z BRIGHT < FORMAT zpTT▗ MERGE "▝ CLOSE #CpUpUpU0U*▙H BEEP RUN ▗y-▝z< ERASE z▗y%@/ BRIGHT BRIGHT [Q] RANDOMIZE ▗USR LIST ▝[Q][B]rf▜x|[Q]▝CHR$ o.[A]NOT LN ▗ LPRINT BRIGHT y) OUT -4z▝ BRIGHT RANDOMIZE Q▟ IF 5r CLS 51rCHR$ 5[H]▗|r<ZpQ FLASH @U STEP RzrINT xNOT `T▘STR$ COPY S▗ OVER 5~r[A]▛ STEP CIRCLE yVAL ▝nx STEP MERGE y BRIGHT !▖<'zNOT VAL ▝ BRIGHT n▝▚: OR "S▘SQR X[K] OVER PAPER y PLOT INVERSE z INVERSE OR y>CHR$ y<z RESTORE ZK GO SUB READ 0ppp▗▗) COPY [Q] PRINT ▚ AND FOR =<=y2 OPEN #VAL IF = AND y DEF FN COPY COPY &6 OVER INPUT ATN & OVER RETURN ox":* FLASH &:* RUN FLASH pppp8p8p8pTpTT4ATTR =COS y INPUT LOAD NEW & INPUT LET p©▘p{p{pp[D]p0pATTR p<=pH@o[E]4y4[T] OUT READ INK ▘k[A]-[S]xATN x& INPUT GO SUB ©▜<COS y& OVER INPUT CODE ▗▘) LOAD [A][N] OVER p▝ OPEN #[R]▖▗H BEEP CIRCLE xx[Q]`FN MERGE RETURN [H][H] BEEP CLS RETURN CAT CAT NEW TO :▚ OUT RETURN NEW INVERSE S[B]62KP STEP F2 FORMAT [L]VAL 4 NEW #TAN 6▜ OUT >= OR <H?▘ OUT w▝[E]▘x▜ CLEAR w2ek OR F, REM MOVE COPY $:▛(xNOT BORDER IF CHR$ #xP[I]INKEY$▗2▖w6[B][H]F MERGE 9 POKE BORDER /H INPUT COPY x INPUT COPY NEW <=p▝ NEXT @▜ CLEAR DATA w INPUT COPY CLS ▘ OR %▝ RANDOMIZE SCREEN$ SQR /([D]▝ PRINT ACS ▜ OVER $A<= NEW 6▗#A/ ▘ CAT PLOT CAT ▗9 CLEAR STEP RESTORE ▖ RANDOMIZE CAT IF OR # BORDER SAVE !<= RETURN ▝@) RUN CAT RETURN P@#[E] OVER y▖STR$ COPY p STEP 7 OVER ▝NOT ▖9 LPRINT rEXP OR ) LOAD CAT MERGE [U] GO TO RESTORE H OUT INPUT OVER + THEN P STEP 2TK INPUT ▚I RESTORE OUT RUN OVER THEN BORDER !AT STEP LIST LPRINT <= CLEAR IN ▝▖u▘ OR A▗ INPUT [U] A▛ CLS INPUT TAB H RESTORE AT STEP (▘) RUN $▚ RETURN BEEP PLOT <> COPY [T]<> COPY 6 OR 0 CLEAR 1▘301▘TAN G1▜3 STEP 0 LIST 0S▝1@"▝5@"▝'S▗5 STEP 1"[C]6" OVER PEEK OVER LLIST OUT & INPUT INK LET SCREEN$ <VAL LPRINT CAT RANDOMIZE LET COPY & LLIST COPY &STR$ [P]"i COPY LN &▝ ERASE LEN H BEEP [M]?v FLASH EXP OPEN #▝H BEEP INK Av ERASE ERASE PAPER ▚ SAVE xx|&[A]&▚P[C]VAL STEP RuSTR$ STR$ n STEP CONTINUE uSTR$ COS STEP [Q]u< INPUT u#▝▜ #NOT STEP `u▜t▗LN STR$ CHR$ o▘STR$ INT &▜ BORDER SIN PAPER ERASE ERASE STR$ EXP P0▝P?▘ BORDER IN `▞4EXP OUT /▜ CAT ab`>`k0G0q@nIN o~p▝▜PEEK ▟Ru&*4 PLOT ▚ BORDER READ GO SUB READ GO SUB Pppp$p. 8▞Y OPEN #I OPEN # GO SUB READ ▝ GO SUB PpHpPpZpdpnpx▘▟ MOVE COPY RESTORE I GO SUB READ OPEN # OPEN #▚Y ERASE I GO SUB p[G]p[M]pINKEY$pVAL pINT pBIN DEF FN IF [A] LOAD &▗ OUT [Q]&▚ LIST CAT RETURN LIST SCREEN$ VAL USR ▘" BRIGHT [Q]▚ BEEP CIRCLE tFN P FOR } BEEP POKE tLN x&z[A]& BORDER AND LN CODE <= THEN ▘[S]▚EXP t INPUT COPY EXP ▛ PAPER ^ OUT LET ▘) OUT [A] CAT CLS ACS 9 LOAD [I] TO *SCREEN$ < OR t. REM LIST =[I]v▗) OUT [Q]%[I]v9 LOAD FN <[I]v MERGE LEN OR [A] INK 2jK NEXT ▙©"[A]" INK INPUT [P] RANDOMIZE DIM &;▞*&▝ OPEN #&"z"[A]qj▝lCODE [C] RETURN eLN ▝ COPY OPEN #x CAT DRAW [P][G] VERIFY x CAT RETURN PLOT p [G]4 REM INK COPY p CAT RETURN PAPER LPRINT [A] NEW & GO SUB READ LOAD H. RANDOMIZE COPY & PAPER ▜" OVER D2 LPRINT s {[A] INK k▟ RESTORE y GO SUB OPEN # READ LOAD OR )[Q] MOVE ! COPY FN -▗" OVER n PAUSE [I]IN RANDOMIZE REM ▗s PAPER OVER AND ▘ GO SUB READ &▜) CLEAR y[C]i COPY cs9 CLEAR oVAL LN [B] LPRINT 4▘ BEEP NEXT [H]POINT [A]▜BSTR$ DATA <= INK BORDER IF BSTR$ GO TO <= LPRINT STEP [G]s▜ LPRINT zF<= CLEAR n GO TO * LOAD " COPY "▟ RETURN " OPEN #" OPEN #& LOAD M FOR STEP }sP GO TO ~<= DRAW B<=j* LOAD p ▞& LOAD m BORDER !NOT BEEP STOP NOT LOAD ▖ LPRINT [A]x`[I] NEW *p>▜& IF = OPEN #s BORDER App@▘]Jca▘LEN COPY 0 LIST OPEN # INK !j[B]VAL & RANDOMIZE REM INPUT PEEK &[R]4 BRIGHT DIM COPY [F][K]▚ STEP VAL BEEP DEF FN REM r▗ REM SQR [Q]▚_▘[E][N]_▝ NEW pp VERIFY y OPEN #/ OPEN # LOAD JSTR$ _ GO SUB OVER ▚T▛ RANDOMIZE REM LET [P] RESTORE FPIrVAL ▙T[B]▚9 DRAW VAL i▙ OPEN #▖6r'r▗ FOR =r:▘ LOAD 'B^@7▟▗ STOP FOR =aP""▝5p"p()▝8PK▝@K▝pKw OVER @/Y▝P{▝%@{▘ DEF FN qp{x) CLS [Q] FOR = MOVE q@SIN ▝,@SIN ▝[C]p7xExQ`=▝ IF =▘[F]q0 INPUT ▝1(0[H]"[H]=q RETURN IF COPY PLOT INK > RESTORE [G]Y[H]I GO SUB STOP Pppp GO SUB ▗9R▝C0R" ERASE =©qAC▚qATN RANDOMIZE PRINT 8 OPEN # LOAD ▗) PRINT ACS ▝0y PAUSE =30&{▗[S]p RETURN PLOT p{p{pp▛p[L]p[T]pATTR pCOS P[L]▝ PLOT *▘FN pP[L]▝@uPOINT OVER DIM " RANDOMIZE BORDER OVER ▘i"<> RUN COPY "<> COPY COPY 2[M]USR 9?▖ BRIGHT INPUT OUT COPY " NEW LOAD " RANDOMIZE NEXT OVER Qp▚ RETURN ▝"▖ PLOT BRIGHT ▖ CLEAR "<> RETURN COPY STEP COPY COPY @#▚STR$ NEXT STEP Rp0 CLEAR ? CLEAR COPY DRAW ? DRAW IN OUT ©© RETURN RETURN e[C]P STEP 6CHR$ STEP COPY [O] RANDOMIZE BORDER "4 RUN EXP BEEP LPRINT OR ,INT POINT BEEP NEXT 2 RUN o29n2n2j▗i2 STOP o0|▞+ OVER ,▝H7 LINE 64▘LEN ? CAT ▖9 LOAD "▖ COPY K'D▘16Y▟ FOR /"▖ RANDOMIZE H BEEP FORMAT 9IN [A] INK OPEN #▘i ERASE ▛▘:SQR VAL y"▖ DRAW ▚HCODE oSQR "▖ SAVE ©)2 SAVE n<ro OR PEEK )[P]▝ FOR "i RETURN /SQR 2ACS n[Q] IF SQR 2Vn,<=▝[P]=@3▛:"[B] RETURN "[J] CLEAR [U] NEXT <= CLEAR STR$ POKE [A] OVER 6 THEN LEN ▗▖4▝ BEEP CONTINUE "▝ RANDOMIZE ▖ POKE SAVE ▖ BRIGHT STR$ BORDER >o▖ BRIGHT ▘▖INKEY$▝6[C]A<= LPRINT OUT RUN BRIGHT ▝ CLOSE #"A SAVE CAT REM ▚xxVAL RANDOMIZE ▘ PLOT CLOSE #USR GO TO jG BRIGHT BORDER SAVE STR$ BRIGHT PAUSE BORDER FpC`C▝6z▜ RANDOMIZE INK ▝"i SAVE [A][R] OPEN #POINT FLASH ▝ ERASE [B][I] RUN ' PLOT 2|n BORDER ▟ CLS OPEN #▝1 COPY "▖ IF "▝ CLS 9 RUN "▝ IF >6[Q]Px4 GO TO CAT RETURN ~0▞/~6[I]P STEP n[A]▘n▜LN nI[E]STR$ COPY H~n▘ FORMAT [A] FORMAT [I] BRIGHT 6[I] MOVE COPY INT VERIFY LINE DEF FN Pp 6:USR SAVE ▙ SAVE OUT CLEAR STR$ RUN VAL RANDOMIZE RUN P4 GO TO CONTINUE nm▖ LOAD LN ▗ CONTINUE FORMAT >6R▗<= PRINT 7/" THEN COPY 6 LOAD /s7" LINE COPY COPY "y RETURN "▖ RETURN STR$ COPY "q CLEAR ]▝6STR$ LIST ▞ LIST RETURN G[R][A] INK COPY CHR$ VERIFY ▜ PLOT RANDOMIZE CLEAR < CLOSE #m▗2 CONTINUE m[M]SIN SQR VERIFY PLOT RETURN '[T] PLOT RANDOMIZE DRAW *[J]m. OPEN #▟ FLASH .▟ ERASE FLASH pp`sj[I]# RANDOMIZE ▞ OPEN # OPEN #6&) OUT INK [U]USR x▗ CAT RETURN FLASH [A]C▗▝ GO SUB OPEN # FOR Pp▝[T]▚ DRAW PIFN STR$ COPY ]m THEN &/>[R]72J OR ▝92 CLOSE #H OUT IF STR$ RETURN 2 TO OVER D LINE OUT INKEY$<> CLEAR OR CNOT SAVE <=_▘CK[L]n9 OPEN #[A]1lj[I][R] BRIGHT POINT BRIGHT AT B▝ STEP =STR$ PIiVAL LIST ]VAL$ [A] BRIGHT y[Q]STR$ LOAD ix STEP >AT @ BRIGHT ▝[H] INVERSE ▖CI OUT RUN P STEP EN▝<▘) PRINT JASN [B]:a OUT PAUSE COPY m▟ STOP POKE COPY )▛ BRIGHT POKE COPY m▖▝▝▝INKEY$▝7+zEXP INPUT COPY >= OUT PRINT PI▙STR$ BEEP STEP ,6}l NEW RETURN RUN COPY PLOT OUT olT▚ BORDER LET NEW RETURN ▝ ▞ NEW INVERSE 6&"▝ CLEAR Q[J]▜ INPUT NEW NEW POINT BRIGHT [R][O]▘,l>IN ▚"▝ DRAW x©▝[A]/1l RANDOMIZE COPY STR$ COPY < BORDER z!,[N]STR$ COPY OVER [E]RND INPUT CAT CAT LET DEF FN RANDOMIZE BEEP RANDOMIZE INKEY$ RUN BEEP RETURN VAL$ RANDOMIZE CLS ▟ OPEN # OPEN #▙ OPEN #▙ DEF FN ▜▘9 CONTINUE [A] LOAD 6 GO TO AT P▖ OPEN # OUT OVER N INPUT M RETURN TO COPY ▖O OVER ▜I INVERSE OVER VAL$ H INVERSE OVER (H INVERSE 5 OVER ASN G INVERSE 3 OVER @INKEY$CODE [G]STR$ [P] STEP ▜ STEP IN STR$ RUN STEP q OVER [J] LOAD INVERSE 9 OVER COPY NOT [F]2 SAVE [B] OVER INVERSE RANDOMIZE INVERSE :2yw> LOAD OVER CLEAR ATTR 2[O]p2's2▞t2SQR v2}2X}29p2 PAPER {2[C]|2%[L]2[L]2ef2PEEK y2k6,n▝ READ zT CAT RUN ,r OVER BORDER DATA ) CLS a▘ CAT BORDER D▘ BORDER GO SUB [G]▘ ERASE ' BEEP RANDOMIZE <= CLS CHR$ {▗P STEP :▘ OVER [H]y▖ CAT RANDOMIZE OVER ▜ RETURN TAB /▝ PAPER SQR ') RUN [R] RANDOMIZE DRAW : OVER LIST ATN INVERSE ▚m▜ GO TO ▗2 PAUSE jPH> LOAD 6 RANDOMIZE STEP ▞ LOAD 6 COPY r▝?-q M▝ABS M MOVE OVER DEF FN ▚-TAN j OVER ? RETURN [P]▗<= STOP OVER [P]▘ CAT REM i[P] BORDER IF pIN INK [A]▝H= INVERSE ~6▜ IF ▝:%▝ TO ERASE 4 BRIGHT CIRCLE ▙H OUT INVERSE ▘IN CAT STOP "[R] CLS "POINT IF 0AT ▗ INPUT BEEP COPY NEW ▘ PLOT ▘}▚ CLS >< INVERSE ~ RETURN ▗ PLOT > LOAD A" RUN ▝?uIN jy▖/ OR j STEP j7 OVER INPUT j OR j CLS <= LET OVER RUN CAT CLS " OVER "I COPY ▖ FLASH RESTORE "I DRAW GO SUB FOR " BRIGHT LOAD ▟6WCODE COPY REM PRINT COPY ATTR COPY CODE MERGE COPY PRINT & ▘ DIM CHR$ [G]$▘ OUT NEXT [G]IN BEEP CLEAR STR$ ?[R] OUT PAPER STR$ BORDER o9▘[A]1ij[I] LINE ?EXP ▚?"A PLOT BEEP :▜ RUN USR N"▖ RUN m▝!© RUN ?'n BEEP FOR CAT PLOT /▘9 CLS <>[G]▘ PLOT )04 RUN apI▗ LPRINT 9 OUT ▖ FORMAT MERGE COPY ▚ OUT EXP CLEAR ASN VAL LEN ATTR BEEP CLEAR SIN MOVE COS COPY COPY CONTINUE GO SUB CLEAR PEEK MOVE SIN COPY COPY DIM CLEAR CLEAR FN MOVE ATN COPY COPY REM m RETURN PEEK LN EXP COPY COPY FOR ▛ RETURN INT AT LN COPY COPY GO TO PI RETURN SGN ▟ GO SUB EXP RETURN ASN MOVE SQR COPY COPY INPUT <> RETURN ATN COS ▚ LOAD INVERSE RETURN PEEK FN CODE PAT COPY IN RANDOMIZE RETURN STR$ RUN ▚ RANDOMIZE @P▚ RETURN STR$ RANDOMIZE ▚2 COPY ?< CLOSE # COPY ▝ RANDOMIZE ?&POINT COPY "[R] MERGE "▝ CLOSE #3g[B]&▚&4USR [A]xxzx9[A]1hj[I]#gb▗▝ STEP h▚ CLOSE #H BEEP RUN ▗y[A]<CODE h▗y%~r[N] BRIGHT [Q] RANDOMIZE z SAVE ▘[I]▗ ERASE ▘ LIST [Q][Q]▗▚ LIST 9Tt▚|[Q]STR$ COPY CHR$ o.NOT LN ▗ CLEAR ) OUT ERASE ▗*"[H]POINT ▙LEN BRIGHT EXP BRIGHT . RESTORE [J GO SUB READ RESTORE _N▘Wh:, GO TO ▚kh"&6pATTR ▝ RETURN pSCREEN$ 0SCREEN$ ▗'[A]1gpSCREEN$ @SCREEN$ ▚ RETURN H BEEP PAUSE ▗i: [S]<h▗iCODE BRIGHT <VAL$ h OUT BORDER +g+g▚ READ LOAD /g/g▚ DIM RUN 3g3gCODE LOAD RUN ;g;g7g7g PRINT RUN CgCg?g?g SAVE RANDOMIZE SgOgKgGg IF RANDOMIZE cg_g[gWg CLS RANDOMIZE sgogkUSR g▞ DRAW RANDOMIZE g©g{gw▞[D]gg▛g▜g CLEAR `INKEY$ LOAD ( COPY CLS COPY RETURN COPY COPY IN [Q] RUN COPY CLEAR COPY COPY ©@ COPY OUT P NEXT COPY DRAW ▞? LPRINT COPY CAT H PRINT [J]_P COPY BEEP TPI COPY DIM COPY IF © RETURN [P]COS 0P[N]? RUN ? COPY sp COPY kh RETURN OPEN # FORMAT RUN O@ OUT PRINT ifif▚ READ PLOT mfmf▚ DIM RUN qfqf LOAD RUN yfyfufufp PAPER ▘ SAVE SAVE p PAPER [O]▞ff▝f}f CLS IF [J]f[F]f[B]f▟f DRAW DRAW POINT fRNDf[R]f[N]f DRAW CLEAR P▛ CLEAR RETURN EXP fASN fLEN fTAB f©▝ OUT ▗▝ RUN ▖▝ CLEAR ▝IN [A]▝ LOAD [E]▝ CLS [I]▝ RETURN [M]▝[P][Q]▝ BORDER [U]▝ RANDOMIZE ©CODE LINE ▝ FOR LINE ▗IN BRIGHT RND CAT USR PAPER COPY PAPER © INVERSE ? OVER 2 THEN eSTR$ RETURN CLS INPUT COPY NEW 4q49 OPEN #<>SQR ▞▝ LPRINT ?▖ LOAD NEW " OR USR LPRINT ▜ SAVE 9[A] INK RUN [Q]xy STEP f RANDOMIZE CLS 4y FLASH LOAD OR . OVER -y IF CAT DRAW ▖ BORDER CLS P STEP .▝STR$ x[A]xz9[A]1[Q]j[I]▜e OVER = RANDOMIZE RUN w LPRINT ▜ LOAD OVER RANDOMIZE CLS w LET ▘ LOAD FOR ▞▝▖P OPEN #▖ OPEN #▖▘▖6~▗ COPY COPY LIST LINE ▚ COPY 0 LIST P▗CNOT CHR$ NOT P▗[O][O]yy0$▚ COPY >>|| RETURN ▜© COPY ||>> RETURN SIN COPY zz[O][O]▖ COPY * INPUT ||ASN ASN MM>>Tw- GO SUB RETURN RETURN JJ[S][S]©©TAN ATN " STOP SCREEN$ SCREEN$ PPUUDG LPRINT OR ▗/ LOAD TN▘ POKE RUN p[K]( CONTINUE ▖▖ LET LET % RESTORE TT©© RETURN RETURN **[U]PIp<p<p<PT▘>=>=STR$ ▝▙ POKE RUN / LOAD DEF FN DEF FN IN IN CLEAR CLEAR ss0`▗@@x▗▗--TAN TAN ▗" STOP HHDGl▗ l[M] LIST PP SAVE OUT OUT CLS CLS USR USR SAVE FN FN CHR$ ▘▘RR DEF FN ▘JJ/d▚ POKE NEW ▖ ,/" STOP SAVE SAVE PAUSE ▚BCU MERGE P DRAW ▘POINT POINT ▝q COPY SAVE q▘# READ q▗N DEF FN qqQ[U]▘SGN SGN q▜zz:: COPY COPY LPRINT [G][G]RNDRND RETURN ~~JJ??[Q]IN ▖[F][F]DD©©D▖ATTR ATTR q▘q▘[A][P]q[I]▙( CONTINUE ▞▞BIN BIN ▖▖[A][P]▚ COPY COPY RANDOMIZE RANDOMIZE UUp<p<p<pT[C] MOVE MOVE IN IN [Q]IN / LOAD INVERSE INVERSE ©© PRINT PRINT SAVE ▗▝?/▗CC[J] LET ))[A][A] ? IF SCREEN$ SCREEN$ LPRINT LPRINT SCREEN$ SCREEN$ [Q]IN 6▗[Q][Q]0 DRAW IN IN RUN RUN 1▖**[Q]IN DRAW QQN▘[F][F]$10$Q▚@© IF DRAW DRAW r▚?? ? PRINT 2|@ RETURN ERASE ▝ SAVE c▗ RETURN S▗ RANDOMIZE LLIST LLIST S▗& NEW xx2 POKE ▚ COPY / BRIGHT ||0:▖ COPY LEN LEN <<©©@▚` LPRINT JJ[O][O] FORMAT [Q] COPY [P][P]EE CONTINUE LOAD RUN ©©**[S][S]??BIN <= NEXT **@@XS▚ RUN COPY COPY RETURN RETURN 3p▘^▖BIN <= POKE DD▚▚3$ PAUSE SCREEN$ SCREEN$ ©©▖▖▗▜0<▗ CLEAR CLEAR UUP<▘p<[K]▖>= CAT RUN CONTINUE CONTINUE ▘▘d▙ RUN INPUT INPUT IN IN ▘▘__>= CAT FORMAT ▖@@ IF IF OUT OUT >= CAT /▗!!▗▗ BRIGHT ▝[F]>=>=▖ CLEAR PPpp))P_r▚[M][M] FORMAT FORMAT UU CLS CLS HO▘n▝0$▖SCREEN$ SCREEN$ COPY PAPER ▝▝@ VERIFY ▚@@(/ CLEAR 3 LIST ▚??[A][P] IF :RFN CODE qQ▝qq COPY $ DATA SAVE SAVE Q▗X CIRCLE DRAW DRAW 1INT ▞ COPY [Q][Q]||©© DRAW $INT [S]JJ COPY O CAT POKE RUN RUN IN IN **▘▘?? STOP READ NEXT TAN ▘AAq▘q▘q▘q▘q▘q▘q▘qSGN ▚▘ RUN <><>4 LPRINT ▖ STEP STEP ??▘▘IN IN 1SGN ▗ CLS CLS BRIGHT ▘ggq▘▘HO[E]VAL VAL ((>= CAT RETURN TT FORMAT OUT ▘GG[E]q▘@@Q▘[I]▝qqq!▝ OUT CIRCLE ▗ COPY COPY USR f DRAW 8[E]&▘ LPRINT s READ V&[P][P] RANDOMIZE 8▗PEEK PEEK }}▘STR$ ~ COPY RETURN STR$ |STR$ >[M]@© CLEAR RETURN RETURN 88[M][M]©©FN IN + FOR RETURN RETURN QQJJ©© CLOSE # BEEP ) DIM @▜[Q][Q]SCREEN$ SCREEN$ [E][H]BIN 5[G]vvv2vvvvVvVvnvvvvvvvvVvvv (vDGv▘SCREEN$ ATTR 6t▘▘ SAVE s▘' BORDER t▘▘_ OUT s▗SGN SGN DRAW DRAW W▘▚xx RETURN RETURN ©©6▗TAN TAN ||▝&▘jj▗[F][F]▙**▖▖ COPY COPY ) DIM TT>w[K]vvvvvw VERIFY vV▘ COPY COPY 5 PLOT 7 LIST ▘ ?vvvv6▘[Q]IN vvvvvvvv▝f2 SAVE ▘ COPY B9▗ DRAW Y LIST U PLOT ▘/ LOAD Tv▚ COPY ^ OVER ~~H&▚LN LN ©©??▘▚` LPRINT RR>>▘"[F]%% IF CLS COPY ©©▙▙ DATA BORDER [G]TT?? DATA BORDER PLOT SCREEN$ SCREEN$ [Q][Q]BC PAUSE Y▘v06▘ LINE THEN v▘v▘▘vvvV6Vvvvv6▘v▘[A][P]V▘((6▘TT&▘7▘t▘v6 IF v$w▘▘ DRAW v▝USR LET sR POKE ▘▘ RETURN RETURN V▝LN RR©©1▚O CAT %%::▖ COPY IN IN ▟▟▝FF??STR$ STR$ RUN **1▘AAq6Pw[K]vvCHR$ ▘w[K]qvw[K]7 VERIFY ▘▗▜vv▗IN IN ▖v▘▖vv▗ FORMAT OUT v>vvvw▘Kr▘?g▘'▘▝Bz▘▘x PLOT ▘dg"▝( PLOT SCREEN$ :; COPY COPY ( LOAD © COPY EXP EXP ]] RETURN COPY RUN ( LOAD FN FN [E] RUN ' BORDER ||PP>>dg{ OVER { OVER { OVER { OVER { OVER { OVER |||{ OVER { OVER { OVER { OVER { OVER { OVER { OVER { OVER { OVER { OVER ▘y[O] PLOT {*{ PLOT { PLOT { PLOT { PLOT u POKE u POKE { PLOT ▗SCREEN$ ATTR ▖▖ ERASE p▘||]▙▗" STOP BC][K]▘L TO < COPY ~t▘<< PLOT ▖) LOAD ▝▝rrl▖& NEW ~~RNDRND PLOT ▘$ DATA OR pu▖}v{ OVER { OVER { OVER ||}SIN { OVER ▗IN IN [A][P]{ OVER <>; OVER 1D; OVER ▘{ OVER { OVER { OVER { OVER { OVER v0pp PLOT ▘ CLEAR { PLOT ▗ DRAW SCREEN$ SCREEN$ [ PLOT ▝{ PLOT { PLOT u POKE ▘@©^~b> IF v▘ COPY v▗ DRAW [A][A][ PLOT ▗ PAUSE <<0▝0▗ GO TO GO TO [E] CLS 0 LIST [O][O]IN IN DRAW COPY RANDOMIZE CAT CAT RNDRNDGG*▘- GO TO ▖[S][S] DATA BORDER CLS OVER > REM 2L INPUT ▖ STOP READ IF ""CC4D▝X▖??USR USR DDBC2p▚~~SCREEN$ SCREEN$ ▘P<▘PT0<▚ CLS POKE POKE AA4 CLS RUN RUN __STR$ STR$ // LPRINT }}oo STOP READ ERASE ▗CHR$ CHR$ bINT ▗dd0[E]FN FN 88 COPY TT*[K]▘USR USR REM ▖@@??(/0VAL$ ▘$'P▘ TO ▘▚▗ COPY ▘▘ LIST INPUT ▚ RETURN ; REM ▚>= CAT CLEAR 0F▗TWST▘**<qq7▘]v▘ LIST Q▚ COPY FN CONTINUE >>1▝|[P][P]?? RETURN ▘ BORDER BORDER 1▘3TAN ▚[Q][Q][P][P] PAUSE NEXT qqD▗ COPY COPY STR$ STR$ q▘q▘EEq▘q▘qSGN ▖ OR OR CLS DATA DATA ▝▝<>▖ CLS NEW NEW [P][P]STR$ STR$ ▗VAL$ ▖@@}} OUT OUT CHR$ NOT R▘33▘:▗ DATA DATA 0▚FN FN XX RETURN ▖▖**$'^▘>>0▘dg▗USR USR ho[I]▘ VAL$ ▘((=:11▘INT qqqqq[A]FN CODE CLS RETURN l LOAD ▘▘▘ CLS CLEAR CLS POKE ▝ CLS CLEAR RETURN USR COPY SAVE ? CLS CLEAR COPY VAL IN RETURN RANDOMIZE CLEAR s NEXT DRAW ▝@[F][F]@©@USR 0 RANDOMIZE CLEAR DRAW LPRINT D`% RESTORE P_ LIST ? RANDOMIZE CLEAR COPY 8T▖ RANDOMIZE TW DRAW F RANDOMIZE `▝ DEF FN PLOT ▘ RETURN UU[A] RUN CLEAR AT p LIST LPRINT h▘^▗[F][F]P_f@USR SCREEN$ RUN CLEAR USR LN SGN ▝WBIN ▗ LIST TO RUN CLEAR LINE COPY ▘z6ACS f▝ DRAW [E]▘NOT NOT >=.▝©0P,P▗ POKE DRAW RETURN ] CLEAR ]_ COPY [B][B]▞[Q][Q] COPY VAL VAL &8▘E OR INT COPY @USR ACS @▝ POKE v▖ COPY COPY WW@ COPY ( CONTINUE SAVE ▗$ DATA EE.▙FN FN ?, GO TO [Q]IN ! LLIST TT@F▚ LET TT@©/ DEF FN $ DEF FN ▘ ?D▝"[S][Q] COPY MERGE MERGE FORMAT COPY IF (/ RANDOMIZE HO SAVE ** CLS ho SAVE LIST & CLOSE # POKE TAN $(ACS ▚▖▝h COPY u PRINT t SAVE RETURN DDRS▖▘ RETURN USR USR RETURN TAN ▙▘▘DG<4f▚ LET DRAW COPY 6[C]^ RETURN ▛▛ FORMAT COPY [R][R](/[E][E]HOSTR$ SCREEN$ ▘FN CODE DRAW [E]▝▝TTLN LN ▖▖ CONTINUE LOAD ▘▘SGN ▝ P▝@▚ CIRCLE TO 00▝ LET [I]▘ASTR$ "[S][S] POKE "AA% RESTORE RS* REM X▝ATTR B▗ LPRINT [E]▚. INPUT "":;>=▜▘ LPRINT P POKE ;>fAT LIST ▘ LIST VERIFY COPY CONTINUE CONTINUE ABS ▜ IF BB DEF FN ▘@@BIN rSCREEN$ SCREEN$ ,T PLOT ▖ COPY CLS ▖▖▙▙STR$ INPUT p FORMAT LPRINT PP@r DRAW b▜ COPY z IF //@,▗▗[Q]T▖PP ? RETURN (=0▘ RETURN V▗ STOP STOP ##(STR$ (< DATA P USR R[M]RACS p▝ GO TO CLOSE #▘0 LIST ? LPRINT *▚ COPY [A][A][P][P][A][K]▖POINT POINT PPhoRNDRND~▘(/:▗IN IN v▝ CONTINUE BRIGHT <&▖▞▞??>=>=▖P ▙SGN SGN REM REM EXP EXP CONTINUE LOAD FN FN @@ ERASE ▘ IF & CONTINUE ▝FN 1 AND ▙▘E OR +X! FORMAT Q ERASE 6▘ GO TO IF zX INPUT ▘ RANDOMIZE ▚ CLS [F][F]>▘ IF h▘RRQ▖~7X▘ RETURN RETURN pINKEY$▚[D][D] DRAW DRAW ▖▖p(SCREEN$ ▚ DEF FN DEF FN ATTR ATTR [O][O] TO ▚▝▝1 DEF FN ▘▖▖1 FORMAT @BIN STOP ▘ REM ▝1SGN QPEEK LPRINT VAL$ pp▘▝ BORDER USR ▘ DRAW YVAL$ ▗ NEXT PAUSE NEXT >L▗ BORDER BORDER 99 FORMAT ▘L DRAW V[B]( COPY COS COS LINE LINE NEXT NEXT @©▟▟FN ▘AT AT .?t▘@©1p▘ COPY COPY p[E]@©[U][U][C][C]SCREEN$ SCREEN$ II@©▞▞ DRAW DRAW $$p(p<[E]@©PEEK PEEK ▗▗DD__@©SCREEN$ SCREEN$ DEF FN DEF FN INPUT INPUT MERGE MERGE ▖ RETURN INT 8HH0 DEF FN ▚J LINE [Q]▝ H POKE P PAUSE ▗ LPRINT @@STR$ ▝INKEY$ LIST TACS 2/ PAUSE ▝$?6▘ COPY L@▚> RETURN ss[P][P]▘USR USR INKEY$▘>= <<[R][R]OO47 SAVE CLOSE # CLOSE #f▘BIN <=[J▘9p▗ IF II▟[U][E][H] SAVE [A][A] COPY COPY CHR$ CHR$ DGp(p<▗ CLS CONTINUE CONTINUE FN POKE RUN IF AT AT INPUT INPUT GO SUB GO SUB 8PSTR$ @9b▘$$)l▘ RETURN ▚ DRAW [Q][Q]▘L▗**[E][E] LPRINT ▗* REM REM k POKE [Q]::"▝ CLOSE #HSTR$ BRIGHT OUT RUN "▝ MERGE y CAT CLEAR STR$ [Q] DIM COPY "▝ RETURN HSTR$ COPY ▘ COPY i[F] COPY [A] INK COPY HTAB ▗ SAVE FN 9[A]1Jj[I]EXP ▙) RUN SQR VAL ▘n SAVE STEP <L@LEN ▜FN ▘) COPY mUSR LIST STEP BEEP K STEP PLOT K[P]▗[G]> [A][Q]▚ LIST 9FN ▚9 OUT x|[Q]USR BRIGHT ▟▝) CLEAR LN 2L2 OVER K LOAD [T]>6:* FORMAT VAL RESTORE N GO SUB READ RANDOMIZE COPY STR$ GO SUB READ LOAD RESTORE J GO SUB . FOR = LPRINT K▗9 OUT [Q] DIM "▘ RESTORE [▝P▝▘-▝^ ▝USR ` OVER Rp▝EXP CHR$ VERIFY SCREEN$ THEN " OVER DIM " NEW 2[M] DRAW LIST LIST "▖ PLOT "<> COPY _"<> RUN DRAW OR 9 OUT "▖ CLEAR "<> RETURN COPY 6: OR ▝4 FORMAT SQR 9 RANDOMIZE OUT IN 9 STEP #STR$ T~ STEP $>6 RANDOMIZE DRAW [Q]P4 GO TO CAT RETURN ~x LOAD LPRINT 4 FORMAT 4 FORMAT 4 FORMAT 1 COPY 6 OVER * INPUT RANDOMIZE DRAW H RESTORE q CIRCLE ▖ BRIGHT GO TO LOAD P[A][I] STEP INVERSE 6z[I][A]/ FLASH 6P$ FORMAT LPRINT ?>=6▚NOT LET /&x9!D▝_▗VAL 2[K]Lo=RNDJ"[R] COPY BRIGHT ▗i%RNDJq(q([J]▝ BRIGHT BRIGHT EXP :*FN &▚&NOT 4USR VAL x~xx9 LIST [A]1Ij[I][U]▗m RANDOMIZE LPRINT PIz[A]sj[I]▝ INPUT [H]rCHR$ BEEP DRAW INPUT |rAT TAB J BRIGHT ▝ BRIGHT [J][A].> LET RANDOMIZE :2[H]r&> PAUSE OUT Cp▗ ▗[C]=~r"[R] MERGE BRIGHT BRIGHT ▗y%~r-~rqCODE qCODE ▝▝p▚p▚ ▚▝ MERGE p▚p▚▚▝'p▚p▚[F]&6 RETURN LLIST FOR INKEY$6 COPY ©?[P]USR LOAD ▟ATTR LOAD LOAD LET ATN LOAD LOAD NEXT NOT LOAD LOAD PRINT CAT USR RUN ▛ FLASH RUN RUN RANDOMIZE BORDER RUN RUN CLS CLEAR [M]B0▘ CLEAR CLOSE #0▗B CLEAR C0▘ CLEAR TC CLEAR ,C RETURN ▗C CLEAR tATN C RETURN TO C RETURN USR C CLEAR TAN C CLEAR [M]C RETURN POKE C RETURN GO TO C RETURN DATA C CLEAR BRIGHT CAD▙D FLASH D(EuECHR$ EF/FPOINT F PLOT FCGO CAT ;▗NOT ▗▛>="%▝ CAT &▗OO ▝▖j LINE /@▝p▝SCREEN$ ▘ REM ▚Hp06▜/ATTR I0h▖ THEN FLASH ▘o CLEAR ▝▚ GO TO [P]▗ DIM VAL ▝ LOAD [P]▘ STEP ▖▛▝ COPY STR$ ▚K▟K▜USR USR ▗-!USR ▟CHR$ ▛sc AND ▘▟8[R]▜%')PI NEW GISTR$ ▛#INKEY$PIPI▞<=NOT TO ▝▜ LINE g<>C▝ OR ▝IN G COPY LOAD LIST /POINT ▙{ CAT INK CAT j LOAD LINE ▙ CAT ▙*IN lo▙zz LINE LOAD LIST CAT SCREEN$ ▙<>olIN n?SGN IN THEN IN j CAT ▙IN LINE oINT LOAD ▙[E] LINE IN [K]jIN ▙IN TO joklIN jIN DIM © LIST aABS l/SQR IN ▙ LOAD lIN [J]▙▞ LOAD CODE ▛o▙ CAT i THEN CAT COPY OUT /CODE ▛© CAT LINE ▞▟oINT CAT <>k PAPER OUT CAT [R]▚iIN l▛o|l CAT SCREEN$ %▝IN !▖lIN ▟j▟IN kSCREEN$ IN SGN IN ▟IN <> OUT ▟ CAT j CAT l CAT ▟ CAT k CAT iCODE loj CAT ▟ LOAD LOAD SQR OUT i▟ TO ojO▟ CAT l-EXP OUT COPY ▖LN SVAL$ S[M]SSRBHB>B CLS RUN CLS ppp![G] PLOT RUN RUN t0`0L0&0 DRAW RANDOMIZE RETURN ▚▘~pMS IF PLOT IF ,B BB RETURN A IF PLOT PRINT ppp[F] PAUSE PLOT PRINT 0 DATA />=/[C]/ IF RANDOMIZE CLEAR xrlbpM[A]S RANDOMIZE PRINT SAVE CONTINUE A PAPER A TO ASIN A RANDOMIZE PRINT PAUSE pppIN INPUT PRINT PAUSE //8/ PAUSE .AT . RANDOMIZE RANDOMIZE DRAW XPH: RANDOMIZE COPY COPY xS^SDS*S SAVE POKE RUN [I]A▖AjALA SAVE POKE LIST B"2"" PLOT ! RUN POKE LIST LPRINT < DEF FN <AT <<pIN < REM POKE LIST f..INT -d- RUN RANDOMIZE IF ," RUN COPY COPY S INPUT R TO RSCREEN$ R PLOT NEXT PRINT .AA POKE @ DEF FN @ PLOT NEXT INPUT CIRCLE !BIN ![O]!x! PRINT NEXT INPUT h<><▗< REM ;[P]n6D66 LIST 5 NEW NEXT INPUT , BRIGHT + PRINT RANDOMIZE RANDOMIZE GO TO LPRINT LINE TAN POKE [K]FN R4R LIST QAT Q POKE PAUSE NEXT FN @z@L@@ POKE PAUSE FOR R!$! PLOT >= NEXT PAUSE FOR USR ;▙;/;*;IN AND 5[E]5b505 LLIST PAUSE FOR v+ DRAW *▘** PAUSE COPY SAVE [O]▗jP PLOT COPY COPY hQhQSGN PSGN P NEXT LET LET LIST ? LIST ?PEEK ?PEEK ? NEXT LET DIM [K] [K] h h ▛ LIST LET DIM LPRINT : LPRINT :[S]:[S]:[P] NEW 4 NEW 4FN 4FN 4 BRIGHT LET DIM R)R)BIN (BIN ( INPUT COPY RUN ** LET M▝M[T]JP LET LIST LOAD ??R?R? LET LIST NEW 6 6 DRAW DRAW GO SUB LIST NEW F:F: CIRCLE 9 CIRCLE 9L4L4 OVER 3 OVER 3 MERGE LIST NEW LIST ' LIST '[N] BORDER COPY RUN LPRINT LPRINT VAL$ VAL$ GO TO COPY COPY CIRCLE O CIRCLE O>O>O GO TO LOAD REM DRAW > DRAW >▜ GO TO LOAD LLIST INKEY$INKEY$▜ CONTINUE LOAD LLIST j9j9▗p3p3▜ CAT LOAD LLIST F'F'▜ OUT COPY RUN ||[C] BORDER COPY COPY ~N~NMM RESTORE INPUT READ ▖>▖>▜ RESTORE INPUT INK 22▜ LLIST INPUT INK OVER 8 OVER 8▗ DATA 2 DATA 2▜CHR$ INPUT INK $&$&▜ BEEP COPY PLOT >>▜ OUT COPY COPY INT _INT _▜ OVER GO SUB INVERSE REM = REM =▜ OVER GO SUB OPEN #[E][E]▜ INK GO SUB OPEN # GO TO 7 GO TO 7▗ PAUSE 1 PAUSE 1▜LEN GO SUB OPEN #TAN $TAN $▜ MOVE COPY PRINT BRIGHT BRIGHT ▚`o`o[C][H]NOT FLASH FLASH NOT LIST PLOT PLOT LIST DRAW ? CLEAR IN [I]x{HKHKx{USR OVER ERASE ERASE OVER USR *▜? RUN IN POKE ▘IN @▞ CLEAR LPRINT LOAD CLEAR /▙~~BBJJRRBB~~[B] LIST RUN LPRINT LOAD POKE / POKE [Q]CODE PRINT ▘ /<?©©IN :IN LLIN LINE $SIN [B] RUN SAVE CLS POKE POKE >= THEN PRINT (+$[D]©© LPRINT LOAD @@ /OO /VV[Q]CODE YY▘[Q]CODE $,SGN TAB ©© SAVE CLS @@OO▖▛GGHKBBFN ATTR QQhkZZ CONTINUE FOR TThkJJ(+WW@@,4 POKE TAN ©© RETURN RETURN @@OO STOP STOP GG ERASE ERASE CCSCREEN$ SCREEN$ QQZZXXINT INT ]]zzZZ::UUKKWWCHR$ CHR$ @@40 CLS RETURN @[Q]▘▜NOT OPEN # THEN NOT ▞ LIST POKE PAUSE LIST CLS CLEAR 1[Q]h1[Q] IF RETURN @G▛STR$ OR MOVE OR STR$ IF CLEAR TO ▜© LET © POKE 0▜ DRAW DRAW @_D ▗ RANDOMIZE RETURN AND ▜C@C FORMAT FORMAT CHR$ USR RANDOMIZE Hf REM ▘? RETURN CIRCLE ▝ DRAW CONTINUE POKE 0[C] SAVE RETURN DE`aDE SAVE CLEAR 0▛©NOT © MOVE © CIRCLE 0▝ LIST [E]▜ LIST USR OUT POKE @_▗▝<▛ DRAW DRAW 07 CLEAR [K]▝▜▝ PLOT BBSTR$ `▗BBr▘ABS PLOT n▞?STR$ IN FORMAT IN n▝?▗ LOAD ©&f LIST `o▘ IF ▝▙"▘ CLS OUT L▝ DRAW SAVE ▜ DRAW CLEAR ▝ RETURN RUN POKE CLEAR VAL$ [A]IN AAIN ``IN pp?"VAL$ OVER COPY .▝USR USR LPRINT LOAD FORMAT `o CIRCLE / BRIGHT $ RUN IN /PEEK ▞ LIST 8; POKE PLOT ERASE PAUSE ▘" STOP CLEAR LOAD DRAW CLEAR ▘▘ CLEAR USR USR 0" $▗ COPY { NEXT LN [F]USR OUT AAUSR OUT ``USR OUT pp@_xx (▗ OUT ©2[D] LIST LIST <= POKE PLOT RUN ▝▝ (▗ CLEAR RUN LET [J] LIST RUN @@ LIST RUN ``pwpp07xx|| (0l OUT LET DRAW ▙M▗ LIST AND 1▛© PLOT © RUN ▘▝▝▝USR /P0$000<@H▝ CLEAR "▘ COPY GO TO /SCREEN$ ©@@??©``b▘ppb▘xxb▘||b▘~~ ERASE USR © OPEN #000$000<0H0T@` CAT RANDOMIZE NEW ▝ RESTORE 0t▝[F] DRAW CLEAR @@ DRAW CLEAR `` DRAW CLEAR pp DRAW CLEAR r DRAW CLEAR |}▘<=t▘▞©©USR USR SGN LPRINT P0$000<0H0T0`0l0x0▗▚ BEEP COPY BEEP 0▘<=[M]▘<= OVER LN STEP $SGN ▘ COPY COPY POKE BIN ▗ SAVE CLS ``? SAVE CLS DEF FN SAVE CLS FN ▗ SAVE CLS SCREEN$ ▗ SAVE CLS >=▗ SAVE CLS "▘ SAVE [E]x{ TAN ▚8;©© LIST LINE ▘P FORMAT ,▝ DRAW INKEY$`PPP(P8PHPX0hPxP▖P[I]PFN PLN P>=P CIRCLE P CONTINUE ▘ GO SUB RETURN RETURN USR OUT P▘ LLIST RUN STOP ▖~~44ZZ44&[U]▘ FLASH RUN $L▗ OUT IN IF ? VERIFY 0$H PLOT COPY "F LINE ▖ NEXT @O PRINT [Q]CODE f AND CLEAR IN DD▘ CLEAR ▖▜ DRAW FORMAT OPEN # CLEAR hk0T▗ COPY o PRINT $@ INPUT ▚ggIN dd6 PAUSE ▚IIIN yyv REM <*<▚ OUT LPRINT LOAD INK ▙ / OPEN # / ERASE `o OVER `oT8TG▖ PLOT x{ PLOT HK7▗[I][L] RUN G4~4[I] CLEAR RETURN RETURN CLEAR [O][O] CLEAR [C][C] CLEAR 22 CLEAR && CLEAR NEW NEW t0WF▚cc LPRINT LOAD jjF /,,`o LPRINT LOAD xx▘ LPRINT LOAD gB CAT ?b[N]USR OUT SAVE CLS CIRCLE SAVE CLS PAPER ▖▛ MERGE ▖▛ THEN CHR$ 8; OVER ▘8; (▗ NEXT CAT $b[L] RUN RETURN RETURN PLOT >> PLOT [S][S] PRINT bb PAUSE AND AND LIST ▙▙ RUN . DRAW NEXT NEXT DRAW $ POKE ACS ▘ COPY COPY LN ▘PEEK ▘FN FN BIN ▘XX AND ▘LEN LEN TO ▘## VERIFY ▘ READ READ 0 STOP 00< LIST >=' PLOT [O]aa SAVE CLS ii SAVE CLS eeKK&&8;|| VERIFY G PAUSE BORDER [P]▝ LIST 4VAL ▖▗ PLOT ▘[P][P]▘PP*▘VAL VAL X▞ LET ppIN PAUSE aa0▘CC:▘NOT NOT 0F [E] HZ▝y"[I]▝ GO SUB DACS ▗©© COPY COPY [U]ACS ▘yySGN ▗zzIN IN AA©rrSTR$ STR$ ©ddIINOT p▖UU▜▜©AA6▘~~B000N5▗ FOR FOR READ READ nz▝ LINE ▚ LIST RUN RUN ▘[D][D]▘ATTR ATTR [S][E][E] RUN ,, PLOT LL POKE [M][M]07 PRINT XXpw POKE pw BRIGHT ▝ LPRINT <00N0Z▗ RETURN PEEK `▚ RETURN >? CONTINUE E BRIGHT ▘ DRAW CLEAR 0 POKE ▘ LINE LINE ▘ CLOSE # CLOSE #▘POINT POINT ▘WW$[S]..~~NN||[O][O]yy//rr[I][I]<=pp|}t▘ LPRINT LPRINT pN▘0Pf5[G] PLOT ▝ COPY ' PAUSE ▗ COPY LLIST U▝j RETURN TAN ▘▘ PAUSE PAUSE DRAW ▚©© PRINT PRINT SS0▘PIPI ▗ RESTORE RESTORE OO(▗ REM REM [P][P]0▘ CLOSE # CLOSE # LIST 8▘))>||SSUSR USR 07zzATTR ATTR [M]uuSS07rrPIPIpweeWWpwjjCODE CODE "▘ SAVE SAVE ▗ LPRINT LPRINT ▖▘USR USR P▘??[I]▘0[U]00xPP0>=P CIRCLE OUT INVERSE RETURN STR$ COPY INK IF AND @ POKE 0 PLOT pp`0T▗[F][F]WW0^▗**CODE CODE 0h▘UU11▚ RETURN RETURN UU__0▘SCREEN$ SCREEN$ 0LN ▗ RETURN RETURN TT1Z▗ DRAW DRAW [T][T]1d▗ LLIST LLIST OO1n▞[O][O]07©SGN ▘^^▚~~SCREEN$ SCREEN$ [M][M]$▚}}UU<<.▚||SCREEN$ SCREEN$ SGN SGN 0▚yyUU88:▚zzSCREEN$ SCREEN$ xxj>=▘ LIST RUN Z▘pp1@PEEK 1[K]jP▘P[K]1 LIST ▗ LIST LIST p2▘ LPRINT LPRINT p▘ppq6q@qx2 POKE ▝ COPY !| DATA ~5 IF ▚**IN UU< LIST p| DATA u IF ▖ LINE [Q]CODE MERGE @Op▘ LPRINT LOAD u IF U IF ▖ PAUSE FN ATTR PRINT PSp▘ SAVE CLS u IF U IF ▖ DRAW SCREEN$ SCREEN$ CLEAR TT5 REM pu IF u IF PLOT ▘USR CAT <LP▗UU@OPu IF u IF PLOT ▚VAL COS MERGE FN ATTR ▗ MERGE PSPu IF u IF IF ▚AT AT PRINT jj▗ PRINT TTPu IF u IF U IF ▘ATTR ATTR SGN ▘ZZU BRIGHT V/pV*u IF u IF CLOSE #▚ SAVE CLS PP(+▗UUX[p0u IF u IF 5 IF RUN LOAD LOAD IN PRINT P6▗ PRINT UU0ppu IF u IF u IF U IF ▗©©[P][P]SCREEN$ [I]▗hhP6▗RRII0▗©VV60▗KK%%0▗©YYu IF u IF u IF u IF ▘ RANDOMIZE RANDOMIZE ▘ CONTINUE ▗PWP▚ PRINT $$[A][H]0▚ PRINT dd[A][H]60▚ POKE SIN SIN PW0▗ PRINT [C][C]6u IF u IF u IF VERIFY ▚ SAVE RANDOMIZE ©© BORDER BORDER 0▙ SAVE RANDOMIZE }}EEHI~~[S][S]FN POINT p$*[G]II INK INK FN POINT ZZSCREEN$ SCREEN$ [I][J]ii▞▞FN POINT KKSCREEN$ SCREEN$ *H[I]MM VERIFY VERIFY >=<>UU MERGE MERGE XYMM MERGE MERGE hi//nn>=<>0f[u IF u IF , LPRINT IF ▘ LPRINT LOAD LIST ▘__▘USR CAT ▘0▘__[G]TTUSR CAT TTATTR ATTR TT@OTTFN FN AA@OPp0p8PHP[M]YY99▟▟@OWWVVASN ASN @OQQ00USR CAT ]]vv▘SS0P TO TO @OUUvvABS ABS 0▘[U][U]@▗vvATN ATN H▗BIN BIN p0PUSR P CIRCLE u IF u IF V INPUT ▘??5 IF ▘ LPRINT BORDER @ PLOT TAN 0 SAVE IF ▝<=▘ LLIST LLIST P▘ GO SUB GO SUB pp0([I] MERGE MERGE CODE CODE USR <=RR** RESTORE RESTORE PP@GUU[F][F] DIM DIM &▛GRR@Gp(pZpdpnpxpp[G][G]XXCC22@GSS<><>$$[C][C]@GPP▘[A][A]000USR <=//OOP▘ CAT CAT 0(p BRIGHT ▗&&88[Q](▘[D][D]PEEK 2▘ LIST LIST 0▗$$d<▘[M][M]n▗STR$ STR$ ▙▙Zq"q6wNwXu IF u IF ATTR PLOT RETURN P OUT [A][P][E][H]▖▖P OUT PLOT RETURN RUN $ BORDER BNOT % RESTORE ASTR$ E OR " READ " READ RUN PLOT CLEAR L LIST ▙@© LIST @© LET @© SAVE COPY [M] PLOT CLEAR COPY @© RETURN @© DRAW ? RETURN P_ DRAW DRAW P_ RETURN ▘ ? ▝ PAUSE t[C]P OUT ▖DG[E][H]DGDGzP OUT PAUSE |[C] RUN " READ ASTR$ Q MOVE % RESTORE Q MOVE Q MOVE BNOT ASTR$ ▘ RUN PAUSE ▗▖t▗ POKE @©[M][I]P[A]TAN ▝ PAUSE [E]0[I]▘ ?[A]▗ CLEAR [M]AT FN P[Q]BIN ▚ INPUT RETURN ( LOAD ( LOAD [G]BNOT SCREEN$ ATTR %%▝▝))!!▘▘D<=▚ INPUT CLEAR CLS COPY Q[K]* REM COPY @USR COPY I<>@© LPRINT @©J LINE @©H>=@©! LLIST ▘ COPY ▘ LET 08@▚ INPUT CLEAR RETURN COPY Q8<[K] IF [Q]IN LIST ? PAUSE P_ SAVE PAUSE [A][P] PAUSE SAVE ▘ ?▘ DRAW l0<▝ INPUT [O]▘[Q]IN ▖ COPY [A][P] COPY ▚ RETURN FN CODE DRAW ^[F] DRAW [E][H] RETURN DRAW [U]PI DRAW ▗▜ RETURN RETURN (▘P<▚ REM CLEAR RUN COPY ▝"R OPEN # COPY Q MOVE COPY [R][R] COPY [E][E]v▗ COPY ""CHR$ ▝ IF ▞@©FN FN @©▖ COPY BB COPY 0$▝▝ COPY BNOT COPY $ BORDER COPY REM qLN ,▘ POKE [M]@©( CONTINUE @©% RESTORE ? LPRINT ?H>=[Q]IN H>=DBIN P_* REM ▖ ?P FORMAT [Q]IN @USR 0$L2|2▖▝ REM q CIRCLE /▘ CLEAR [Q] IF RANDOMIZE HO SAVE PAUSE (/ PAUSE LET IF ▗▜ LET POKE (/ LIST $/2AT 2LN ▝ REM NEW ▘P OUT ▙ COPY ▖ COPY HO COPY DG RETURN 4INKEY$RS RETURN DRAW ▛ DRAW ▝▝ DRAW EE RETURN [R][R] DRAW JK DRAW ▘ CLEAR DRAW $l▗[A]▝ NEW aX▘ NEXT 1/▝! GO TO ▘P FORMAT 2*▖[S][S] COPY [A][A]@©USR @▗©ZZ@[A] ?[Q][Q] ?@@[Q]IN FN FN ?RRJt▚SS@©[Q][Q]0([Q][Q] COPY A8▝&Ad▝*6▝ NEW c ▘ DRAW 3[E]▘ SAVE $▘ ?J[U]( CONTINUE [Q]IN $ DATA P FORMAT V VERIFY [A][P]@USR ( CONTINUE P FORMAT (/* REM T CLOSE #[A][P]▗▚T CLOSE # FORMAT OUT ( CONTINUE 0(▘( CONTINUE <d1x IF fSP▘ COPY 3 CLOSE #▘ RETURN Tf▖ IF (/ RANDOMIZE L[L] POKE PRINT [U]PI LIST IF POKE IF ▘ PRINT $'[E]▚ PRINT 47 IF 0(▘ IF [S][E]▝`$< RETURN [Q]IN NEW q▖ COPY H CAT COPY ▗▜ COPY BC COPY d▛ RETURN AA CLEAR CLEAR iizF CLEAR USR ▜ RETURN [Q][Q] CLEAR II[U]▚ CLEAR MM RETURN ▟ RETURN ▘ COPY COPY [I]![E] COPY FN CODE LLIST cCHR$ [I][G][S]" STOP ![M] LIST ▗[S][S]@©[M] ERASE ERASE ▗ ?11▗▖P_@@P_ FORMAT J▘))R▝PP▟P_[A][A]INT ▗ ?DBIN 4▘( CONTINUE 4▝ DRAW ▝R- GO SUB COPY LLIST c PLOT AT LINE 3 VERIFY ▘[Q]IN VAL ▗( CONTINUE [A][P]VAL [F]4 POKE ▖J LINE ▖L TO DGBCHR$ P FORMAT 4^[G]J LINE DGT CLOSE #@USR ▗▜DBIN LPRINT $ DATA OVER ▗ LET * DRAW USR " CLS @© LLIST d*USR RETURN 4▘(/BIN 8▗ IF $'BIN [F] CLEAR "# PAUSE [S][T] NEXT LIST POKE r[I] PAUSE [B][B] PRINT LIST !! LET SAVE RANDOMIZE ~.▗ RETURN >▚▝0 POKE ▜ FORMAT OUT LLIST DRAW COPY (|01 CIRCLE ▗ COPY D<=▘▘▗▛ COPY DATA ▝▘▘▞▞▖AA COPY COPY HH.▘FN FN 4bd▗!!@©▗@© COPY > LPRINT ▝[U]0▘▖[C]▘&[I]▘@`0▘AT ▗ COPY [S][T][G]TAN COPY L [G]0[M]TAN ATN COPY BRIGHT u[Q]FN / BRIGHT 1VAL$ ▘ RANDOMIZE Z▖ POKE PRINT 3F[H]( CONTINUE ▖I<>H>=E OR p LIST AT AT H IF [L]ppDGFN FN ▗▜AT AT [E][E](/[K][K]t[A]DBIN ASTR$ L TO ▗( CONTINUE 0?X▝'HPEEK ▜@© IF @© BRIGHT qDqJ COPY T BEEP qJ1J▘[C][D]J[Q]P>▗ COPY RRf8[M]▝▖xt* VERIFY [S]▗P@©CHR$ f▚BIN BIN COPY PAUSE ▙▘ LET /▗ RUN ~▘▖▖▗▘USR USR t LIST ▘ RANDOMIZE ▙▝% DRAW !▘ ERASE ▝USR 0 RETURN PAPER 0▗ COPY CHR$ !b▝,"1 SAVE [U]PI COPY MERGE w REM OVER ▝` INPUT PLOT [A][P] LET ▖ACS LN & NEW HO& NEW [E][H]% RESTORE K THEN [U]PICNOT ] INVERSE !!V VERIFY ▝▝▘▘▝▝[M][M]WWASN ASN AAPEEK PEEK [O]88TT[[[U]4▖[A][A]BCHR$ H▞$ DATA " STOP >8▘[Q]IN 6^Vho CAT CHR$ f7l COPY VAL r5 CONTINUE ACS FN ▗ CLEAR DGFN ▝ DATA ▗ RANDOMIZE SIN COS 4LEN LEN ▝STR$ l' BORDER .▘% RESTORE >=[L]^ OVER [B][B]@©[ FLASH BB@©CNOT HH ?BCHR$ ATN ATN RESTORE IN 55``P_HH▖[[[G][G]COS COS [A][A]PEEK PEEK [A][P][[[B][B][L][L][O][O] CONTINUE CONTINUE HO[N][N]a▝a▖▙ FORMAT FORMAT P_▛▛USR USR [A][P]ATTR ATTR ``B▝ SAVE T▖[U][U]00_ OUT p▘DBIN "▘^ OVER |% RESTORE [A][A][Q]IN PAUSE LPRINT PAUSE ((n▘ CLOSE #▖▘aaINKEY$▘noINKEY$▘[E][H]AT ▘twt▘▗▜ STOP DATA D8FP▝fSl▝SVr POKE ▝R▝USR IF ▘uuUSR ▘BB AND ▞ OR OR COPY ERASE ERASE LPRINT lIN `` ? CLS COS COS RUN [J][J][A][P] LIST INK INK ▖" STOP [Q][Q]' BORDER NEW NEW / LOAD 88O CAT I<>[A][A]^ OVER >=>=$'3 NEXT $$COS ▛c READ ""[S][S]$'p LIST @@j REM [N][N]*+▞▞ AA[J][J]``▜▜``[U][U] NEW NEW ▝▝ AT [T][T]z IF ::USR USR p LIST 99▝▝ TO TO $$66 66TAN TAN ==pp ▟▟ SAVE @S OPEN # POINT W BEEP ppSCREEN$ SCREEN$ VAL VAL VAL VAL [A][A]H>=K THEN !!L TO & NEW 2▞>=>= PAUSE ▗▗.▘ @@ FORMAT OUT @HOf▜0? COPY LN LN ▘IN IN ▘LN LN AT ▖hh FORMAT OUT COPY XXL▛ OPEN # OPEN #ho RETURN COS COS (/LEN ▘1pQx COPY @▝adn▘v FORMAT FORMAT USR |▝*▘ COPY Lj▝ FORMAT AT `▗RRP_<USR H▖▗ DRAW TO TO v▗ RETURN pp6▝@▗ SAVE GG[S]▚ LIST POKE POKE 6>=>= CLOSE #▞ CLEAR ``"# COPY ▗ CLS LN ▚ CLS PP8▘ LET LET >=8[I][I]L[I][I] COPY PLOT GO TO GO TO 0▚ NEXT NEW NEW ``~▘66▗@USR FN FN ACS ▗H>= LLIST LLIST PEEK ▗ASTR$ RANDOMIZE RANDOMIZE ▘▗' BORDER DEF FN DEF FN DEF FN ▗# READ AND AND VERIFY ▗BCHR$ dd2[G]O CAT SIN SIN ?L TO <><>"" ?0 LIST >=>=▝▝F▛USR ?/ LOAD Z[E]_ OUT [I][I]▗▗ ?SQR SQR PIPIJJ[A][P];;HHINT ▗XX^]] CIRCLE CIRCLE P_[L][L]99 DEF FN ▘[C][C]B▚EXP EXP READ READ [E]PEEK PEEK ▙▙VAL VAL P_==ZZ PLOT PLOT ▗MMssh▗▟▟▖[E]▟▟TAB TAB O CAT //CNOT iiUSR [E][E] CONTINUE CONTINUE 8▗ASN ASN BRIGHT BRIGHT X▞J LINE AT AT P_Ld[A] ?, GO TO 44 ?" STOP [E]" STOP USR USR HH@© NEXT [Q]IN LET ▝▝ CONTINUE ▗ DRAW rr VERIFY ▚ DRAW [R][R]B▘▗▗z FORMAT 11f▘USR USR [Q]▝▙▝ INPUT z[C]▗ COPY . INPUT 0/ LOAD >='▘▗. INPUT (/[G]▗Z PAPER 47[O]▗V VERIFY & RETURN TAN PAPER FLASH VAL$ ▗AT AT LINE THEN [I]▘//L[R] COPY SAVE RETURN `aDEDE`a SAVE CLEAR USR © CIRCLE © MOVE ©NOT 0 LIST PLOT POKE @_ LIST USR OUT < DRAW CLEAR ▜ CLEAR DRAW 07▝ PLOT ACS ▗``BBSTR$ ▗BB``n▝?n▜? FORMAT IN STR$ ▘IN ▗ LOAD ©& LIST v▞ POKE / LIST `o▗ CLS OUT L DRAW ~▞ CLEAR DRAW ( RUN POKE CLEAR T▝? OVER ▝?[O]▜IN AAIN 0$▗ OVER COPY .▟USR BRIGHT CIRCLE / FORMAT z▝USR v$▗ RUN IN /▟ LIST RUN PLOT POKE ▘ LIST 8;$▗ CLEAR LOAD CONTINUE CLEAR USR USR CLEAR ▘▘ CLEAR DRAW 0▘USR USR $ STOP ▘{ NEXT LN [D]xxpp@_``USR OUT AAUSR OUT 0 (▗ OUT ©2[H] LIST RUN ▝ RUN PLOT POKE LIST <= ([C]▘ RUN LET ▖||xx BRIGHT ▙07``pw@@ LIST RUN LIST RUN (0l OUT LET DRAW © RUN SIN © PLOT © POKE B LIST P00$P0<0H LIST ▝ GO TO DRAW V▝©D▗©~~©||V▘xxV▘ppV▘``V▗@@??[U]-P00$000<0H0T0` CAT PAUSE 0▝ RESTORE 0t©© LPRINT LPRINT USR USR ©©▚▖~~<=$|}▙▖ DRAW CLEAR pp DRAW . DRAW SCREEN$ DRAW b▘P00$000<0H0TP`0lx0▗▝▘ BEEP 0▝X<= OVER CLS BIN ▗©© DRAW ▘ SAVE SAVE @▗©© LIST ▘▘ LN 8;INT ▗x{SGN ▗ SAVE CLS D▗ SAVE CLS USR ▗ SAVE CLS CHR$ ▗ SAVE CLS BIN ▗ SAVE CLS LIST ▗ SAVE CLS [I]▚?? SAVE CLS @@y▝ SAVE p▘ COPY COPY PpP(P8PHPXPhPxp▖P[I]PFN PLN P>=0 CIRCLE P CONTINUE ▝^▗ RETURN USR OUT P▝▜ RETURN RETURN RETURN ▝NOT ▘ LIST RETURN x? CLEAR RETURN [A]▝▗STR$ STR$ CLEAR FN L▝©▝ DRAW [O]▖ DRAW RETURN x{USR OVER USR FN LIST ? ▝IN ACS DRAW CLEAR OVER ▝ CLS ▜()45 CLS %▚ LINE © STEP 5▚ PAUSE [P] NEXT ▘$ SAVE ▖ DRAW [Q]PI DRAW FORMAT BEEP ▝ IF [S]▞zzTTzz IF $ DATA ▚ OVER IN MERGE 0 POKE CLOSE #▖ RUN [Q]CODE PRINT @O DATA ,$BIN ▚ CONTINUE FOR CLEAR PS CLOSE #▝ RANDOMIZE TAN }}@OVV[Q]CODE WW LPRINT LOAD }}g[D]USR OUT PS MERGE FN ATTR MERGE SAVE CLS OUT X[4[C][A] RUN CLOSE # CLOSE # PRINT jj PRINT ~~ RUN VERIFY VERIFY INKEY$▘ RANDOMIZE DRAW $T? CLEAR PRINT PRINT ▘ZZz CLEAR __▘ PRINT PRINT #{[C]TT]] RETURN RETURN iiVAL$ VAL$ II RETURN RETURN ©©VV[E]▝ SAVE 3 LIST USR ▝ PRINT PEEK [C] PRINT OUT OUT LPRINT LOAD PLOT [K][K] LPRINT LOAD POKE [P][P] LPRINT LOAD INKEY$LN ▝ RUN 3 AND ▞©©SCREEN$ SCREEN$ [Q]CODE MM▖ii PRINT PRINT LPRINT LOAD YY▘ LPRINT LOAD Z *2NPEEK [C] IF IF SCREEN$ SCREEN$ POKE PAPER PAPER SCREEN$ SCREEN$ PLOT [P][P]^^ PRINT ▘VAL$ VAL$ ▘VAL$ VAL$ 0*▝ PRINT 4*+[I] ERASE ERASE [C][C]ooRR[C][C]VV©© RETURN RETURN vv||[O][O]mm▘//▗GGrr▘ PAUSE PAUSE 0 TO NEXT SVk PAUSE PAUSE II&&gg[C][C]▚[[RRii▗__[D][D]N▘ OUT OUT ▗nn[A]__ OUT OUT COPY COPY RETURN RETURN CC OVER OVER II>>rPPX▘ LET IF AND INT ▚ IF IF [F][F]22[M][K] SAVE SAVE [F][F]RR SAVE CLS gg[K][K]EXP EXP 77x{[[[K][K][N][N]RR▙__ NEW NEW IN IN SAVE CLS ss__ REM REM ▚ff OUT OUT FOR FOR [Q]▘▘ BORDER BORDER ▗▙ VERIFY VERIFY CLOSE # CLOSE # SAVE CLS CC OUT OUT OR OR EE INPUT ▚ COPY COPY CLOSE # CLOSE #FF0▗ MERGE MERGE TT3 LINE 4< ERASE COPY ▝[J] RUN COPY IN ©IN ? OUT _[P] LOAD oCODE / CAT O RUN wATN 7 BEEP W[H] BORDER gPI'<=G▜ CLS {SQR ; FLASH [[L] FOR kATTR + THEN K▛ NEXT sCOS 3 OPEN #S[D] READ c[T]#NOT CIN CLEAR }ABS = INVERSE ][N] GO SUB mTAB - STEP M▟ PRINT uASN 5 MERGE U[F] RESTORE eRND% OR E RANDOMIZE yEXP 9 INK Y[J] DIM iPOINT )<>I▞ LET qLEN 1 MOVE Q[B] LLIST a[R]!STR$ A▝IN RETURN ~PEEK > OVER ^[O] INPUT nVAL$ . DEF FN N▙ VERIFY V[G] NEW fINKEY$& AND F▚ IF zINT : PAPER Z[K] REM jSCREEN$ * LINE J PAUSE rSIN 2 ERASE R[C] STOP b[S]"CHR$ BIN ▘ DRAW |SGN < BRIGHT /[M] GO TO lAT , TO L POKE tTAN 4 CLOSE #T[E] DATA d[U]$BIN D▗ SAVE xLN 8 CIRCLE X[I] CONTINUE hFN (>=H▖ LIST pVAL 0 FORMAT P[A] LPRINT `[Q] USR ▘@[H][M] COPY COPY POKE COPY SAVE COPY COPY [O] COPY [P] READ COPY COPY j© THEN OR NEW CODE G INK BEEP POKE .PI=.> POKE [T]0[H]LN FN Z MERGE OPEN #^▟8▖Z MOVE FORMAT TLN }Xe▛SCREEN$ P▛EXP }hABS U OR X PRINT Xh CLOSE #|[T][T] ERASE GO SUB ▟[I] PAPER ▟ CLOSE # CONTINUE [F OPEN #a RUN R,8qR CONTINUE TAN 5 LINE STOP pu PAPER TAN STOP {N[C]TAN BF( ▛B STOP TP[▝t ▛▝TFN |$ SAVE <FN ▛|ATTR STR$ COPY MERGE GO TO vE ▛ GO TO | PRINT LIST E©VAL$ [S]PI[S] ▛PI PRINT SCREEN$ FN [S]-UE ▘SCREEN$ STEP VAL$ [O]©©?USR ?USR LPRINT LPRINT LIST LIST SAVE SAVE DRAW DRAW RETURN RETURN COPY ~ ▝IN [C] OUT IN USR LOAD OUT LPRINT RUN LOAD LIST CLS RUN SAVE CLEAR CLS CLEAR RETURN [P] POKE COPY p8<> COPY ▝ RUN COPY COPY OPEN # COPY ▝#7▝ MOVE COPY ▟ INVERSE AT F[D]▟ OVER aUSR [N]EXP ~N% RESTORE THEN TAN [Q]▙}naUI CIRCLE ▟5,#_POINT RANDOMIZE COPY NEXT COPY GO SUB COPY CONTINUE COPY READ COPY OVER COPY INK COPY MERGE COPY FORMAT COPY TO COPY >= COPY NOT COPY IN COPY SGN COPY LN COPY TAN COPY VAL COPY TAB COPY POINT COPY INKEY$ COPY [S] POKE IN [M] COPY [I] COPY [F] COPY [C] COPY COPY COPY ▖ COPY COPY ▘ COPY © COPY | COPY y COPY v COPY r COPY o COPY l COPY i COPY f COPY b COPY _ COPY / COPY X COPY U COPY Q COPY N COPY J COPY F COPY B COPY ? COPY ; COPY 6 COPY 2[C] COPY . COPY ) COPY % COPY COPY COPY COPY COPY COPY USR IN RANDOMIZE RETURN PAUSE RETURN FOR RETURN READ RETURN FLASH RETURN ERASE RETURN <> RETURN IN RETURN ASN RETURN POINT RETURN [N] RETURN [A] RETURN ▝ RETURN p RETURN ^ RETURN J RETURN 3 RETURN RETURN DRAW CLEAR INK CLEAR VAL CLEAR CLEAR E CLEAR DRAW DRAW [N] DRAW DRAW q CLS k IF LN SAVE R PRINT ! FOR <=▛ INVERSE DIM INPUT NEXT PRINT PRINT IF SAVE CLEAR IF IF <= CLEAR te▖ CAT FLASH BORDER INPUT LIST PRINT SAVE SAVE USR IF ▝ CLEAR p!t▘ OPEN # CIRCLE ▝ PRINT p p@$SCREEN$ ▚ FLASH VERIFY DATA GO TO NEXT NEXT USR SAVE _`bt OR ▗ LPRINT VERIFY STOP GO TO @▝pt RESTORE ▘ BORDER MOVE ▝ NEXT `p[Q]p[Q] COPY INPUT CAT STOP DIM `pSTR$ u% PRINT TO LPRINT LLIST p p LPRINT %J[G]:bo▜[D]▚INT [B] VERIFY POINT [R] THEN <> AND CHR$ PEEK INT ASN VAL POINT [R]ue▖)4Wrs[D][U][L]▘ FORMAT [N]p e▚▜>,Yuv[F]▞p p@%SCREEN$ ▞^(Nd▟~PI[O][F]@▘ DEF FN [I]p`U<=▟t-Dgy[I]▟[O]LN ▟ CLOSE #RND DEF FN `▝u RESTORE ▚[E]Gj|▘ ▘COS TAB p p ▟ COPY TAN L]~[A][R][I]COS TAB ERASE pSTR$ v% CLOSE #C`lp p`S▖[F]ACS BIN STEP CLOSE # INK INVERSE LLIST READ NEW BORDER DIM FOR GO TO GO SUB INPUT LOAD LIST LET PAUSE NEXT NEXT ve▟[P]COS CHR$ TO OPEN # INK INVERSE LPRINT READ RESTORE BORDER DIM REM p s>=▚LEN STR$ THEN ERASE CIRCLE BRIGHT p p@3 CONTINUE ▖VAL$ IN LINE ERASE BEEP BRIGHT OUT STOP @▝ FOR p`dAT ABS <> MOVE BEEP FLASH OUT STOP DATA BORDER CONTINUE REM `▝v RESTORE ▚[P]POINT SGN >= FORMAT VERIFY ▝ NEW p p[Q] COPY [P]INKEY$INT AND CAT MERGE PAPER OVER LLIST pSTR$ w%[P][T]LN OR DEF FN p p` TO COPY OR U CAT COPY ▘INKEY$▗ COPY COPY LIST SIN >SCREEN$ USR T DRAW * COPY / SAVE RANDOMIZE uA RETURN W CLEAR QVAL$ SAVE IN IF SGN OUT 0^ CLEAR m"IN LPRINT VAL$ RETURN _▖[G]U DRAW LOAD `PEEK W@ LIST DRAW IN WUSR COPY LPRINT ▗ GO TO +FN }[D]x[I]J@ BORDER RETURN [A] MERGE ,U▗ COPY ©▜eLN INK COPY ▝ LIST (&da▝/) SAVE l$~▗ SAVE f▝ DRAW hQ▝▜▗?USR SAVE POKE COPY DRAW ▘ COPY USR ©▝# COPY LLIST S8x▛[E]▘?([K]▜USR COPY SAVE < LPRINT D▝~▝▗ DRAW COPY LPRINT U▞ NEXT STR$ DRAW COPY RETURN <[O]Ux STEP q OPEN # COPY P.▝BIN SCREEN$ ▝TI▝ IF j COPY COPY POKE C&▛AT LEN T CLEAR INVERSE ▗[Q][F]W>= ▚SQR LPRINT _C▗B REM /~▘P@INT ▗STR$ |▗ SAVE COPY VAL$ @r▘ SAVE DEF FN ql@▝▝1LV`▘ LIST READ -{▘ DRAW 8▝▗ RETURN V SAVE SAVE ' COPY Z© COPY DRAW >= COPY ▙ DRAW © COPY LET DRAW <=USR SAVE COPY RETURN ©▝▝ DRAW !▝©STR$ 1▝CHR$ ▙▝STR$ ! BORDER ! NEW 6 MERGE ▝▝ ▘STR$ RETURN ▗STR$ <?▖ DRAW © SAVE ? COPY !▛▜ LIST ▝ LET ▝ LET SAVE 'AAT ▜ DRAW STR$ COPY LIST b▝NOT STR$ FLASH ▜NOT FLASH NOT ACS 6l! SAVE IF CLS s▟ SAVE / ERASE R/PV[H][H] RUN USR [H]aASN ▗NOT FLASH [L]COS ATN ATN COS [L]NOT NOT INK STEP GO SUB GO SUB STEP INK NOT Z<Z▞NOT FLASH ~~ FLASH NOT CODE ▝ LLIST H~Pl[H] LIST NEW TO [J]3g▝<fnvf<▝NOT [L]SQR [L] FLASH [J]ABS ▝<`~▘STR$ ▟<l~ LLIST ~`|▝=a|f0~f INK SIN @▝<H▞f>▚SGN ▝ COPY ▜ATN ATN ▝▜ FORMAT [T]P"▘ABS ABS RETURN STR$ ▝0▝<@▞▚NOT ASN POINT [R]IN NOT ▖f~ff|f`▘|[I]▘``[I]ylUSR f▘|▘}a[I] ▘ooLN ▘`n▖ 7▝f STEP ▘ FLASH NEXT PEEK ▚ [Q]▘fl:▘STR$ o FORMAT ▘B@(▗fv~nhVAL >=pf|a Pfbl6 =a< X[K]h 0 ▘<[J]0▘~$▚<[J]<fB▖▘<[J](▗~[J]3@Z▛USR USR ▝▝STR$ STR$ Pp▗STR$ ▝▝$▝ LPRINT #▛ DRAW SAVE DRAW DRAW Pp 'INT `▝@`v▛ COPY DRAW SAVE LIST LPRINT ©USR LLIST ▚ COPY p0p0▘ COPY NOT c DRAW + @p[A]0[A]▚ COPY RETURN RETURN " LIST LIST LLIST LLIST NOT USR @TV▝$KPl0z|▘[Q]|0[O]p LIST @ LIST pUSR "p2▘q2q p`0P▝▝USR PEEK ▗ SAVE LIST ?p LIST Pz FLASH q a▘NOT NOT j▗USR NOT NOT q[C]qqPa[M]▚STR$ USR USR LPRINT pUSR qVAL `USR q OVER q ERASE q FORMAT q TO q DEF FN qUSR ▝ LPRINT !INT !LN ACS qVAL p LN ▝[U]▝▝q[Q]a[M]q[I]q[A]q▙!!▖p[Q]pUSR QAT FN LLIST LLIST PLOT qp1n▝▝jrXq`r OVER REM r ERASE q LPRINT 2 RETURN J1Hq 0[A]IN RANDOMIZE [Q]PP[B]RNS DEF FN TnT INPUT W INPUT S DEF FN _ RETURN © RETURN ©&▚© RETURN @_ RETURN p0p*0*▚T DEF FN V DEF FN P0`▖S DEF FN U INPUT TnVnV▗Q▙P0`▝Wp DEF FN RN0[K]p0p[A][A]pSCREEN$ P*p0p[A][L]!b~/w#| RETURN PRINT RUN : GO SUB ▝/2 GO SUB ▝1▝▝NOT ▝.<>
