Является частью релиза: | Gravity Wars |
Размер файла: | 55040 |
md5: | f12db5bd5bc6dba7abf5480dbe8e173d |
1 RANDOMIZE USR 23886 NEXT STEP [B]!h]▛[m MERGE GO SUB VAL !z$AT INKEY$,<> GO SUB LN !©©;i~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL LLIST FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER THEN ?O0AN# GO SUB VAL COS THEN ?N8SGN 0=[U] LET NEXT NOT W[H]!▘▘ COPY u GO SUB VAL ![L][L]*[O]CODE 6NOT -w%w,6,6 COPY } GO SUB VAL [G][K]!EXP [K]INKEY$[H] GO SUB VAL O/ASN ▘ MERGE > RESTORE MERGE COPY @ GO SUB [Q]# OR POKE MOVE LLIST ##= BORDER I9>bK THEN # CLS SAVE = THEN G LET RETURN ▖( REM ATN ▛ DATA & OR >F,N,V,^p-q-r-so0 GO TO $-STR$ RESTORE ![P][P]6BIN COPY >BIN < CLS RUN <. GO SUB [Q]} AND o SAVE $= CLS PLOT { AND =_$k6$:P'! CLS NOT INKEY$PEEK (&,,}EXP PRINT :▝ INPUT 2▝2▘2[S]2[T]:%NOT ▝$~, OR %-><>2} STEP ▝>%NOT LLIST PI▛% RESTORE CLEAR MD&^$~i▚W%Nh{ACS _$f INVERSE ny CLEAR © GO SUB y FOR ACS w#0#P LLIST CLEAR ,>} CLEAR ABS CHR$ [I][K]<> STEP FORMAT [H]NOT `FN " RETURN RETURN 0$ RETURN NOT y AND O INPUT RETURN x AND G DATA w$q,p,%ENOT INKEY$ [C]SINKEY$6 COPY }2VINKEY$2PI.wCODE 2gINKEY$ RETURN [N] RETURN COPY (" CLS PEEK ( LET ,, RANDOMIZE ![R]w> RETURN $w,w}<*ANOT TINKEY$ GO SUB [gINKEY${ATN ( G FLASH RETURN NEW O GO SUB _ NEW ©LEN o&[P]N$fi FOR &[T]r,s, FOR DATA RETURN [L]![N]~ATN 2NOT INKEY$2PI2@PI(/. fU&PEEK ( PAUSE e[Q]A6[Q]~%[U]~[L]&[N]NOT INT INKEY$ THEN ▚,,&[N]M~ RETURN RETURN ( NEXT 0- THEN AND . RETURN ,,PEEK ( NEW RANDOMIZE i6 RETURN $^,VVAL$ PASN NOT GO TO INKEY$&[U]s,r&[L]NOT PI:gINKEY$2CHR$ PI![N]RND~,,B RANDOMIZE ERASE FN RESTORE . RETURN B5CHR$ WPI OR A GO SUB [Q] GO SUB [Q]%STR$ LIST REM K![L]n THEN %--> RETURN --ABS (HNOT iPI PRINT &[U]w,w&[L]-( LET NOT lVAL U{EXP (>2kPI COPY /0(? INVERSE b INVERSE k>_.N THEN ! RETURN .[R] INVERSE ~ COPY INVERSE ~NOT } INVERSE -( INVERSE -NOT STEP PI{USR O5,w#w#%>EXP w M% LLIST NOT 1 BEEP ASN [L][N] GO SUB VAL INVERSE . FOR ATN CLEAR g(6 INVERSE &[T] CLEAR .@ INVERSE ^ INVERSE V INVERSE %i INVERSE f RESTORE STEP TO FN INVERSE }<< INVERSE o CLEAR SGN INVERSE >$| OUT !USR USR LIST :CHR$ PI CLEAR SGN (6==%0 INVERSE oE MERGE F LLIST ( STEP [I][K] INVERSE }== P ERASE ~s&[U]@n&[M]`©~SUSR 9RND, INVERSE , DEF FN >[E]2[C]tvh{[F] PAPER COS SCREEN$ Gz[E] PAPER BIN POINT LN 8uHG THEN ?XP RESTORE INK LLIST E8INKEY$`V CLEAR , INK $[B]8[I]<>,[D]<>Oxdu,@u$u GO SUB Di LOAD %y LOAD % LOAD DATA FN ATTR q DATA -i DATA -~ DATA r LOAD DATA )e[U][I] DATA 8 CLOSE #EDLN hH;% TO H[U]D8VAL 8>=D>=8VAL VAL H4LN >= TO H[U]LN H>=89 OR >= CLOSE #LN h[M]>= BRIGHT [U]H DATA h -uLN [A]@ CLOSE # TO 4V OR [I]H>=VAL 8[A][U]LN [M]f 5( DATA h[U]h COPY VU8>=@[U]8LN w%8[I]H0j?[A]5[M]0▜ TO A @w%LN H TO @&%LN BRIGHT 0m%0 CONTINUE 0/6=0E BRIGHT >= TO FOR RESTORE D8@ DATA >=[U][M]4Hh GO TO USR USR TAN w LIST vRND<@DH,|x@[O]E48Lx/[F], (8,<4 >U@L`(L2.E8$4xASN @ HX $ LPRINT ▜ INK LPRINT LPRINT ▞U>=[A][U]H TO <> LPRINT E COPY 0[U]LN 2%D8[A]p%[M][I]T>=bT"Sp/E0 CLOSE # TO [U]DP GO TO OR [A]▖FN ▖ CIRCLE 8VAL VAL B[G]PbI022}RND@D([A] FORMAT [A][U] TO (<> LIST !i508>=▖ COPY HTH BRIGHT >=[U] DRAW BCODE /;u[I]LN H[I]8b BEEP [A]x$x%LN [A]4[T]%04I[Q]e CIRCLE ▖▖ TO ▖ DATA LIST [C][C]!YE@ CIRCLE VAL @ISIN 0OASN CIRCLE TO TO ▖H▖@VAL DATA VAL ATN 7 TO [U] TO @D[U]VAL H4LN ( TO H8Y▖e BRIGHT [U] CONTINUE >=[A]Y▖0 CONTINUE 8>=▖[I]8>=0HD BEEP E4VAL VAL 8[P][M]8▞4I0H LLIST 0e(>= TO LN 8 DATA (0"uD DATA >=@ CLOSE #IN @3VAL D CLOSE #|2TAN ▖ INK %[I]LN [A] DATA f CLOSE #[M]COS RESTORE (80lD080(FeL Hp?u8,`4 (&|eH@4l8[J] CONTINUE DRAW 8{ POKE H POKE POKE ▗g▜tXB[K]g8>= NEW u8dn( BORDER [F]VAL [I] CLOSE #VAL POKE ' CLOSE #C@?TAN D▖( FLASH %0[I]T"▚D40[U] TO H[U]▜ FORMAT e TO ▖>=H4 iU CIRCLE [U]H TO FLASH COPY CIRCLE ▖D▖T%4▖[M]ABS UT8@8`8 BRIGHT READ [F][A]( FORMAT TO >=[M]<b,p4l0<LHic FORMAT 8D<8bE&5 PRINT 4L8/4p(@LH|* FLASH [T]P▖ DRAW OVER [M]^[C]YD FLASH E4 [S] ERASE %48$% HD S5D(L/(&[8;>=
2162 LINE %8( FORMAT (; JD DATA ZNOT % CLOSE # DATA TO BEEP 5[M]8VAL [A]}POINT SAVE LEN 5[A]>=[M]X BORDER SAVE D TO %0 SAVE 2b([A]X DEF FN 8U>= CLOSE # TO TO [U]v8LNOT %>=[M]INKEY$[D]&b5[I]VAL TO STOP [P][J] CLOSE #EXP <TAB BRIGHT % TO HZ)5H[U]H CLOSE #/ AND %( TO 6nIN BRIGHT XSQR TO [A]50[I][U]@&%H[U][M].[T]B[I] COPY ; DATA % DRAW VAL TAN @" "3 DATA 3@0`3p3@r@P@=[G]0[E]( LOAD U DATA DRAW % DRAW COPY @ASN u0 DATA @48LN G{ OVER ▖FN G[J]ASN ▗[Q] LIST [I] SAVE 4T SAVE ^AT NOT 5[A][U]0 >@5,|mK6 PAPER EDH( MERGE 5<8D,G CIRCLE u<8|,4 $ CLEAR e8H(@8$H8E@X.STR$ U D(8?0COS (|@D(^EXP .e(84XP} MERGE 0 RETURN 6f~ff|`||f )`>6%©~`>k MERGE <ff<cgo{sckweflxlfffcw©kccfMf<f<Z]E`<f``)%ff>HRU>f< .%f~f>{)k©)k%}c{m{` [S]%<f[{{[n>I6f<<6©TAB 6P5<`~ FORMAT BEEP U~f AND ▗n[G]`| AND ~TAB AND `%f~<u<cs{ogc<>=< TO >%vj4$Elf<`< k)f0 LOAD %ccEXP 6<~<B INK ~0`~8<<l~6 CLOSE #%%<< GO SUB s0[1▞▞ LET 2 NEXT <> LLIST "3[PEEK MERGE {[ LLIST }2SQR [|2 INVERSE [ LLIST "J%G[1!5n,&)[F]##[A] THEN "p] FOR GO SUB VAL 2( RANDOMIZE GO SUB S LLIST /z2 LINE 2! LINE 2? LINE 2X LINE 2[C] LINE 2 BEEP LINE 2CHR$ [2>=2/ CLEAR !H INVERSE H▜<(7 INVERSE n INVERSE f STEP `] CLEAR u CLEAR t INVERSE n INVERSE f [F] CLEAR t INVERSE n INVERSE f CLEAR t INVERSE CLEAR NOT OR ▛ RESTORE NPz# ~▜# RANDOMIZE ABS !CHR$ [4STR$ LPRINT INVERSE !4▞ OR INVERSE ~aATN >!2▚/=▚b<%{2 [H]ATTR &Q6 INVERSE #> ▜[P]% NEW W▜POINT NEW CLEAR w INVERSE ~ATN IF 7/ CLEAR w CLEAR 60 OR THEN w( INVERSE ^ NEW OR GO SUB R FOR CLEAR p CLEAR s CLEAR r.%VAL$ = POINT INVERSE # INVERSE # CLEAR !% CLEAR 6E CLEAR 6Y PRINT 6!/4!/4STR$ CHR$ STOP [Z*3[#~ATN (&=O▜▝▜#CODE GO SUB [Q]PIeHo[F]gL OPEN #P LLIST VERIFY FOR 6@#6: INVERSE [!SQR [[G]8E:SQR [ RND▘W2 LINE 2 CAT LINE 2 THEN [J]=!t] GO SUB VAL z=2 STEP >=2W<>2 STOP <>!> AND IF > COPY GO SUB SY] GO SUB [p] GO SUB KJ[ VERIFY p RETURN 0o&Q~ AND p$ VERIFY `5 [A]o&P~5xLEN AND CLEAR !:/<> GO SUB [G[ FOR ▞ATN GO SUB B FOR ATN GO SUB RCODE [U]<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%# NEW n%>)[I]x[A]Hxp[I]x0[Q][A]([I](p[Q]p(LN xx`([I][Q]8h( PRINT CIRCLE 8[A]VAL H[Q]>=LN [A][I] CONTINUE g[A]( H[Q][I] FOR PRINT H ( SAVE x ( SAVE p [Q]x[F][I][I](h` LIST %xh(}E ([I]|h[I][Q]([A]x[A]H8Hp`Hp[Q][A]xVAL U[Q](USR [Q]wINT 5H[Q](pUSR E0p MERGE 580USR LPRINT zVAL +%[I][I]1EVAL (`9EVAL [I]>=9h9%VAL xpVAL VAL [I]hx[A]e[I]FN x[A][Q] MERGE (USR n5 [A]FN 8E%`1E[I]hxX(+p_USR `+eX[A][I]px>=IX[R][A]weexh[A]X([Q] VE▗( FOR exhFN ,%Hh GO SUB [F] FORMAT USR [I]([Q][A]FN %H[Q]xe[I]h[I]FN p8(`xp5[Q]VAL 8W FORMAT x PRINT "[K][F] H[I]X [A]HVAL (%[I]©NOT #ASN 5(>=x|#E[I]@H[Q]P9exFN p `Rt5hxFN [I]65 LPRINT M5p>=_[I]!;[B]@ RESTORE [Q][I]h SAVE [I][Q][I] SAVE [A][Q][I][Q]FN / SAVE POKE 0uu[Q][A]X([A] SAVE IN x`%E(hFN `[A] SAVE ` SAVE 0 ( SAVE [A][I][Q]> U$7RNDxA05xx READ $VAL$ (,EFN [I]FN `[H]AupXVAL x X.($▞PINT [B]w*E[I]`(>=[U]5[Q](@ OVER 5h9ol5x@xKU[I]H8 CLEAR [Q][Q][R]2▖s FORMAT j5hFN NEW %xH TO UH[A]x[I] .d%H@FN FLASH e([Q]px RETURN UPx>=x0ASN ( ERASE %>=[Q] DIM &K%@(g DIM ASN ©F%hFN 0[A](HRND([A]@(hH[I][Q][H]u8H[A]` INPUT [A]( REM VAL u[A]0x[A]kE([A]VAL TO [B]xP%XH`▖exFN [A][Q]H((!'{RND`xxXxFN [Q] MOVE INKEY$ELN Hp x▜CODE 0>=xFN p((VAL$ OVER ULN H[I]@([I][M]p OUT [Q]/ GO TO U@(``x0▜x[Q][N]5Hp0x POKE PAUSE % LIST LIST LIST 00E LIST FORMAT LIST VAL ;% LIST @ SAVE 5 LOAD xEXP e FN hI)5!>= CLEAR "x THEN ~= LINE PAUSE <>w= LINE g<>= LINE INVERSE >==CHR$ W LINE -5! POKE <>6 PAUSE W LINE 6>>=ATN CHR$ _>=1[A] THEN LET CHR$ I 12<=>=2Q<>2 BRIGHT <> LLIST " REM >= LLIST "u<> MOVE GO SUB s?>= AND `8a▝8▝8/▝8;▝8 VERIFY USR 2 ERASE >=NOT _>=( ONOT MOVE >==NOT DEF FN >=. NEW g RANDOMIZE o" LINE LLIST " CLEAR <>CODE NOT STR$ 02 NOT BIN 0"h@!52/e2O LINE y2▜2 LINE >2 SAVE <> MERGE >= GO SUB S7>=NOT W LINE ,5! LINE `COS ▟[F]^▝8▝8,▝880▟e/<>NOT GO TO >=(U[<>=NOT X<>P! LINE K02" NOT N0"h@![A],@' REM ▛0▛E BORDER <>NOT w<> ▛ NEW ▛ READ `▛?9▛ VERIFY @▛@ NOT INK P▛0![C]JBE4u<>[F]6! COPY "^ LINE _"[ X<▜AY THEN 0[I] [F] $[C]Z TO _d@ INVERSE < PAPER B BEEP x THEN }o%>=CODE [H]W BEEP u COPY CHR$ o LINE CODE V# INVERSE !NOT [B] LINE y<SQR CHR$ v LINE z2^ LINE Eo RANDOMIZE INVERSE LLIST MOVE k&>=r MOVE AND o& RANDOMIZE _SQR >=:ETAB LINE CODE CLEAR otu> INVERSE ASN INVERSE oNOT VERIFY >TAN >[I] >% MOVE { CLEAR j FORMAT E[A]E LIST Eg[L]U$ INVERSE ASN NOT THEN ▝ RUN ▝ INVERSE ▝yOGH CLEAR b0▛i0▖▖ OR >=IN COPY CLEAR COPY GO SUB iC GO SUB [T]B%y,+5 INVERSE | PLOT @ CLEAR }p 5.~ATN g>U LINE SQR t604.0`NOT SQR tmp OPEN #VAL$ FLASH COMPILE V4.0▞ATN Tu@@@PI OR [A]ApHUSR P3E`5 e[Q][Q]SQR @, 25"8b;FN AND #USR "!( USR * ) <' K> .[Q]=[Q]L[Q][[Q]j[Q]C NEW r LOAD w PAUSE % RETURN COPY RETURN DRAW IF SAVE PLOT POKE PAUSE LIST <> PRINT [] COPY [P]&▘&&&` @S AND MERGE s&s[F]Bs. LIST [F]<s0 LIST [F]Gs- LIST { [H]&<> STEP <>+ AND BIN AND >=<>+>= % STEP +<> [H]-! STEP THEN ! THEN <><>IN GO SUB CODE %4[I]▞TAN BEEP INVERSE 6f6`][F]'N▞ SAVE PAPER <ABS H▞'▚5 e[Q][Q] RESTORE ( SAVE 5R( SAVE 5@K[Q]*cEY% AND /CHR$ 2/GSIN [M]0 CAT CIRCLE H%c 5?7>_N2&2[▖x'@USR (-(2'USR +-*2<*'7Bx%;2>A Gg/[Q]>[Q]][Q]l[Q]▛[Q][K]7O FLASH 5"G CAT g INK % FORMAT o P,E FLASH LPRINT !RND COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT POKE B[A][Q]^%o[Q]% POKE B47C[N] BIN %*CHR$ C&qC MERGE CLEAR [L][F]Cm*CSCREEN$ 4CODE COPY _`/[J]2 THEN [J]0[J]-# ERASE ERASE ! ERASE sUs7090RND0# FORMAT FORMAT ! FORMAT s4# MERGE ?C50#GKGC FORMAT 5!& PAUSE GrE▟VAL %COS COS USR %LN LN 0USR %ASN ASN HGUSR ▟ GZU![K]2 RESTORE VAL ERASE U THEN ![K]0 RESTORE VAL FORMAT C%- STEP STEP #[F]2! INK BEEP " MERGE ERASE CLOSE # MERGE CLOSE # ERASE " BEEP [L]2( BEEP [F]0! BEEP MERGE " CLOSE # FORMAT ERASE U! MERGE MERGE ! MERGE % ▞5! MERGE " MERGE USR LET b@ RETURN OT[E]e BEEP ! INK ERASE ▚7U ▗5 BEEP INK PAPER ATN MERGE [P]%! BEEP MERGE [R]u CLOSE # MERGE ! CLOSE # FORMAT ▚5U ▗4 MERGE BEEP INK IN ? BEEP CODE /TAB Wu'[H]9![E]7SU INK % INK # BEEP MERGE G PRINT 57 INK ' BEEP 5L% BEEP % PAPER #[H]- <>▞-▜-▞)▜+ STEP ▞+▜) THEN -- THEN )+ STEP &(&[F]&▞(!▜( ▞&>=(5(▜+<>"! FORMAT ='[E]9#[E]9[E]' BEEP @[D]5@'[J][J]P[J]0[J] .) INK #a[`!a]`CODE 1USR OPEN # RETURN INVERSE !VAL$ INKEY$ STEP LN INKEY$* FOR /" PRINT [K]:] NEW O: RESTORE INKEY$LEN 2 RESTORE INKEY$: DIM 4 DIM INKEY$* POKE /"▝PI*=]"[C]SCREEN$ CLEAR © OR > GO SUB y! CIRCLE CIRCLE u GO SUB VAL !L|[t RESTORE MERGE OR GO SUB VAL 7 NEW <> OR >=[A] GO SUB VAL STEP [STR$ MOVE LLIST &[S]▟ OUT ruTAN GO SUB VAL STR$ >A▞P#!;i LPRINT .U!CODE CODE CAT VAL [> OUT FLASH RETURN NEW (!-[L]">[K]NOT ][J]!VAL VAL 6 GO SUB VAL OUT O4VAL ![E]SCREEN$ INK ©^#V THEN THEN THEN THEN INK 8 INVERSE r INVERSE s© THEN 0 INVERSE # INK RESTORE INVERSE $ INVERSE . OPEN # OUT Du@@uNE[U]SCREEN$ E OR U INVERSE #_[S] RESTORE CAT ;STR$ PRINT LLIST , RESTORE BRIGHT INVERSE "[[I]! LPRINT D"COS [I] CLEAR .N!@ © CLEAR `CODE ACS LINE ?[J]8 IF ( INVERSE i INK INVERSE &VAL (+ LPRINT CODE INVERSE ACS IF LINE [I]Mo INVERSE ~©ACS wi INVERSE $ FOR INK FORMAT + CLEAR `} NEW RETURN IN INK [P]=5*COS [I][U INK CLEAR - POINT CLEAR [E]%USR SCREEN$ % INVERSE &CODE te CLEAR ~ PLOT GO SUB yNOT MERGE [P]g[F]>N INVERSE THEN ~ GO SUB VAL ASN e,= LET & DIM MOVE >▘W>PEEK INVERSE SGN ( INVERSE $z RETURN DRAW DEF FN USR CLEAR #PEEK y CLEAR [E]O▙ CLEAR " PAUSE [I] GO SUB S PRINT [I] OUT nL[I]2 PRINT P GO SUB VAL 1/!XX FORMAT > RESTORE PRINT = GO SUB y2 LPRINT BIN ! LPRINT DRAW LLIST DRAW 6 LINE RETURN NEW ! LPRINT SQR >Ow#= CLS <w# CLS AND RETURN © GO TO > GO SUB y STEP ▗[L]CODE @ AND IF Z, DRAW PRINT 0u< PRINT ({ NEW #5 PLOT x* AND C NEXT NOT >▘ OUT VAL$ AND ? INPUT ![I]|[I]6AT OUT OVER - GO SUB G GO SUB ^:[C]SCREEN$ 2 CIRCLE [P]! LLIST BIN "FN SQR STEP MOVE [O]:[D]SCREEN$ STEP PEEK [P]NOT @[K] CLS INVERSE . STEP [Q]CODE FLASH RETURN / NEW ( SAVE INVERSE . VAL /1 RETURN RUN GO SUB x NEW RETURN (8 DRAW STEP ABS [P] REM LOAD GO SUB x PLOT READ RETURN COPY (8 DRAW DIM > CLS FLASH RETURN 8!tgvtu RETURN COPY DEF FN SIN > CLEAR U? OVER [K] AND %8@/U> VERIFY ▖>IN A[A]0▜ 0@> OR NEW LET NEXT STEP <=!▘ LOAD CONTINUE RESTORE MERGE ?*[C]SCREEN$ "▘ MOVE LLIST >Y2)[2u[>[Q]2#[X>_@P STOP %2JBE> GO SUB 2COS tTAB %[H][K]ASN GO SUB Y~ GO SUB Qw#> OUT SGN POKE RETURN "( OR >2' OR ! CLS v"<=!FN q LOAD !*▘>k2 GO SUB AND !SCREEN$ t" DEF FN [H] INK % GO SUB yNOT LPRINT INVERSE !9▗▘!G[Q]F VERIFY DRAW 2[D][L]>t RESTORE ~ INVERSE w LOAD LIST U OR GO SUB [Q]STR$ ~▝ RUN [E] MERGE PAUSE [Q][L]"IN [L] LLIST VERIFY RETURN SAVE COPY @w'5 STEP [Q] LLIST BIN bk+6o RESTORE INVERSE 6 RUN GO SUB sASN [M]▙!,SCREEN$ 6 STEP [H] LLIST "!6W RESTORE MERGE -- IF o%| NEW RETURN } VERIFY o8| AND g LLIST ! STEP [H]6NOT ,6",6[Q]1 NEW AND COPY k!H!~G MERGE RESTORE x MERGE CLEAR G INVERSE RESTORE INVERSE %1 MERGE 3 RESTORE GO SUB S MERGE }POINT o RESTORE " MERGE 3 LLIST MOVE MERGE STEP IF [P]>|t_ VERIFY 2d[M] MERGE &E AND | RESTORE +0$ LET t MERGE 3S1 MERGE 1 DEF FN {!{F} RESTORE -- MERGE [K]GRND INVERSE RANDOMIZE MERGE MERGE NEW 1U LLIST CLOSE # AND INPUT LOAD "u FORMAT LOAD READ RUN z5 LIST IF STEP [Q] RUN CONTINUE RESTORE IF PLOT ~ THEN ' THEN ', PLOT u} AND o RUN 5 LET { NEW u> CLS XEou GO TO INVERSE &![G][U].![L][U]CODE {ASN INVERSE - INPUT INVERSE % LPRINT GO SUB [Q]pj%> COPY F DRAW [O]5**!Ts~`EiFN E LLIST CLS vO5 LLIST vt[H]TAB PRINT LOAD 5 DEF FN {ub+RNDPI*#q#6SQR #6 RESTORE # FOR E LET FOR BIN % LLIST RESTORE GO TO " LLIST = RUN INVERSE . GO SUB ! DRAW > FOR s#r# IF LIST `>=u NEW p▜ THEN 0O!USR CLS FOR & PAUSE r$s FOR LLIST k&sNPIyPIRND& POKE wy NEW $w, FOR 5 LIST VERIFY &o8) RESTORE STR$ STR$ DM![H]{ COPY POINT %s$r< PAPER <E6 COPY ~G=w RESTORE INKEY$%e LLIST fek6-w,CHR$ %wE CIRCLE [C]5k-WQ5- CLS F THEN 5<>CODE G INVERSE RESTORE /!(▗AT AT RESTORE ~<(=<(<(J<(L<(s<(R<(b<(#< LLIST # OUT NOT 9SCREEN$ STEP BEEP [P]!2[Q]&: RESTORE B GO SUB [Q] GO SUB [Q] LLIST [G]ABS e> MERGE >R OR 1AT !;[Q]!?[Q] GO SUB VAL FOR !bG BORDER RESTORE "E[P]>2}|▖!} X[P] FOR >2h[P]# GO SUB S▘^INKEY$ AND 61# ▗[P]wy2▘[P]#6X#6 MERGE REM $%>/P$FN $INKEY$[P]>X FOR [H]{o52[D]SCREEN$ RETURN (!oU<>!8POINT SAVE > VERIFY =CODE MERGE LLIST LLIST "[P]!mPOINT RESTORE NOT OVER [O].▚@U<>|% NEW USR REM CIRCLE DIM %<>F#RND DRAW # PLOT <> LPRINT SQR GO SUB s)[Q]ovNOT ▙ INVERSE -tR INPUT GO SUB S[Q]<> LET MOVE BK THEN USR * THEN CLEAR MERGE PRINT MERGE RESTORE OR PRINT MERGE PRINT ,VZ MERGE RETURN @ COPY [Q]@ COPY H CLEAR H DRAW [Q]H CLEAR ▖H DRAW P CLEAR P DRAW [Q]P COPY LIST LIST RETURN USR @ COPY @H CLEAR (H DRAW USR H CLEAR FN H DRAW @P CLEAR (P DRAW USR RETURN LPRINT @ COPY `H CLEAR HH DRAW LPRINT H CLEAR >=H DRAW `P CLEAR HP DRAW LPRINT 8 RETURN LPRINT C COPY `K CLEAR HK DRAW LPRINT K CLEAR >=K DRAW `S COPY LPRINT S QH CLEAR hH DRAW I CLEAR CONTINUE H DRAW P COPY Q COPY LET LET INVERSE RESTORE O*ASN PRINT PRINT INK RESTORE MERGE GO SUB sSGN t1 CAT Ye1t RESTORE NOT SCREEN$ SQR [J] PRINT tNOT 6o& PLOT h~ AND NEW |_$i OR o${▚_$ACS x AND G FOR INVERSE -CHR$ 6o AND 2) OR $>^o=2_o#o~2;oy2CoNOT k OR CONTINUE Gz THEN CHR$ MERGE W RESTORE MERGE RESTORE 1H MERGE RESTORE MERGE THEN CLEAR RESTORE >2 OUT VAL COPY LIST ," GO SUB AND ^$V BEEP h AND >$~ INVERSE g$~$▚ INVERSE o$~ DRAW O OVER NOT NEW u CLEAR COPY IN .><=[P]<=<>[H]<>SCREEN$ OR ▘" ▖D0 P@`@P%DSCREEN$ UY/w;_ LOAD Gpxlx|f~|6vp6`px|n%||`<[F]xx`` >`o u@cc©©ccYASN 6>>bgn||~gb )0e>>Bg©©k(uFfv~nff[L] MERGE >6©©8<6<800 2uzl~wc~|ng8~~)%@`fu~<cw6>xe`ck©©s!>>wcBff<(<%(<%8~ OR p88p ~n/8p`RND0n©3©© k~9 COPY ,p3[ MERGE [5$LT/%h@▚▞[C][F][I][L][P][S]RNDFN ATTR TAB VAL COS ACS EXP SGN PEEK STR$ BIN AND <> TO DEF FN FORMAT OPEN # MERGE CIRCLE PAPER BRIGHT OVER LPRINT STOP DATA NEW CONTINUE REM FOR GO SUB LOAD LIST LET NEXT POKE PRINT RUN SAVE RANDOMIZE IF IF CLS DRAW CLEAR CLEAR RETURN I COPY RETURN CLEAR DRAW ▜ FLASH MERGE NEXT LET LIST INPUT GO SUB FOR DIM CONTINUE NEW DATA STOP LPRINT OVER BRIGHT o READ P ERASE FORMAT DEF FN THEN <> AND NOT STR$ PEEK SQR LN ACS COS VAL TAB SCREEN$ PI[U][R][O][L][I][F][C]▛▖▘©|yvrolifc`]ZWTQNKHFC@=;8630.,)'%#! CLS ;<=j;Kb "$&(+-/247:<?BDGJMPSVY/_behknqtwz~ OR NOT GO SUB t MERGE OUT MERGE ATN MERGE COPY MERGE b RUN [H]MU s5xq%ATTR THEN RND"q%B OR o<▜yo<}=0% COPY =▜ RETURN =N▜yo COPY @▝0%▚} CLEAR <e o DRAW <Ny(0 RETURN @ UACS <N THEN =o h0p@5<N[I]e<N}} [Q]▜y@%▝y5<n(FN x5=n}USR ▝USR VAL P0@ CIRCLE LPRINT ( 0@0//..-,+*)'&$#!2 BRIGHT 5 FLASH INK E GO SUB y OR [F]!7 NEW NOT ERASE u INK 1=XPOINT MERGE NOT SCREEN$ t.@}< RETURN }CHR$ [U]t>SCREEN$ 2[C]t>@2[F]t@gSTR$ [F]0NOT w INPUT GO SUB ywIN 5 INK LET LET w AND 5 INVERSE LLIST CLS <>o-5u COPY w OUT U<=©>_![P][ TO E>TAN $HASN INVERSE ! PLOT t> INVERSE ^ INVERSE ,H[F]Y!USR USR OUT ©4= RUN LN e OR OR OUT 6©B PAPER zATN O><0>, STEP H[ COPY yASN ©> STEP k[<%_>RND STEP _[ STEP z[STR$ LLIST (w[F]>"2BIN ${ NEW _ EXP <> READ ~# READ OR O INVERSE !S* STEP e[STR$ <> INVERSE ! LINE ? INVERSE ! RESTORE ?NOT /= RESTORE OR I COPY TO LSTR$ LLIST <>* VERIFY / RESTORE CODE 2 VERIFY /![E][ RESTORE ![O][ RESTORE & RESTORE ![J] )ASN NEXT : VERIFY / LLIST " VERIFY /ATN <> NEXT COPY [N]U!/ RESTORE © CAT <>o GO TO ▜# GO TO ," VERIFY {n&u DIM !<>SQR THEN -1 GO SUB LLIST GO SUB scu RANDOMIZE >< NEW 2lu GO SUB y▖ LPRINT INPUT >PEEK (<PEEK (<PEEK LINE DATA vWhe# GO TO #"LN un[F]#~_NOT DEF FN u1 LOAD COPY THEN RESTORE OVER ! GO SUB "cu VERIFY & LOAD COPY INPUT 1 LINE SQR 0M[F]v INVERSE g INVERSE ▗oF ASN N OR NOT ▝[P][J]▝NOT COPY ▝[J]E COPY NOT ▝[J]▝[J]%NOT BORDER COPY BORDER % COPY ▝▝ BORDER 9 COPY [J]%▝▝ FLASH P+@9%STR$ ▝9 COPY E[P]SL@Z%▝[P]PB@h [@{r[J]@h COPY %▝2[Q]s@^ LPRINT YCOS @`@R sU[J]▞▝▝[B][J] FORMAT ; BORDER U▝▝[P]▜▜[P]0 MERGE 0 CAT BNOT LLIST BIN t& INPUT > AND PLOT 2VAL SQR o_<=E, THEN CLEAR SAVE G BRIGHT SAVE ATN z5 COPY T&/v!5/X INK OINKEY$E CLS pG55y< CLS G<U IF RANDOMIZE CLS ATN ▟%ATN [D]% IF RANDOMIZE CLS IF CLS IF @ RANDOMIZE (5 CLS IF RANDOMIZE P <*0%M>( VERIFY CLS O2Oo CLS 2go2Ro CLS 2YE2ao CLS eo!f nG NEW U: LPRINT BIN FF9 MERGE 1}V RESTORE RND INK 1 SAVE &~$f.&SGN u RANDOMIZE !POINT bGW CLS .}W GO SUB w NEW W RESTORE > COPY w DATA >W<>=WPOINT E2?SCREEN$ >/WACS >=W OUT ++T]oM RESTORE B FOR ATTR FOR g[D]u> OR 2ATN AT <> VERIFY ?ASN $$[C][C]SCREEN$ SCREEN$ ASN ASN FLASH FLASH LOAD LOAD RUN RUN eLN (`xh(▞[Q]xiASN Hp[I][Q]``[Q]HxpY5[A][Q]POINT x0▞uh(8Hp[Q][A]`DN8@` MERGE CIRCLE 8[A]VAL H[Q]>=LN [A][I] CONTINUE Gx+U`X(>=[I]▖ LPRINT ( (`>=[I]([Q] LPRINT Hp[F]H LPRINT LIST @p8(9 MERGE `x[A] SAVE LPRINT pxhFN `[Q]H E FORMAT LPRINT >=([I]u LPRINT (p[Q]BIN p ACS 5([A] LPRINT v%HpFN POKE e[A]([I][I] CIRCLE ▙ CLS 5[I]VAL (}FN BEEP l<Y5(USR H[Q]B RANDOMIZE @N i LPRINT J 30CODE OPEN # RETURN [B]! INPUT MERGE #~0"0 ~#0 AND G~ DRAW RESTORE NEW <G~# IF PAPER N# RESTORE MERGE n FOR NEW W GO SUB Ry NEW AND G MOVE ~# IF LLIST SQR @ LLIST xPOINT NEW SAVE POINT WPOINT FN _~#z RETURN X GO TO GO SUB VAL CODE FLASH RETURN / NEW ( SAVE USR COPY LLIST CHR$ COPY COPY LIST ▝ DATA USR COPY RETURN !%USR READ USR STR$ POKE USR RETURN LLIST LLIST ▘USR RETURN LLIST ▘ DATA RANDOMIZE USR COPY RNDUSR READ REM ▝CHR$ COPY SAVE NEXT ▖>=▗@ USR CHR$ DRAW NEXT USR | DIM DUSR ▘#NOT (D▘USR RESTORE ▘STR$ SCHR$ RETURN > NEXT "USR B LPRINT -STR$ @USR USR !!!!USR USR !!/:RNDZFUSR USR PAUSE NOT ▘D( LLIST USR STR$ SAVE /&3 GO SUB ZUSR LLIST [R]USR RETURN DRAW ▘USR RETURN USR STR$ F3!4( PLOT USR ▚ PLOT USR COPY USR ▙3!?( COPY * BEEP ASN USR GO SUB USR GO SUB COS CLS DATA USR USR ASN COPY POKE USR @ COPY USR EXP BIN g COPY LIST CAT OR BIN LEN LIST p PLOT xFN LLIST RUN PRINT [Q]USR cLN GO SUB STR$ (T COPY LIST USR V<=)R▛; STEP 6n NEXT PI TO %M BRIGHT %[I]PEEK [M] LPRINT @USR X INPUT USR A GO SUB OR CHR$ :IN LOAD [A]`_SIN PAUSE NOT CIRCLE ` COPY SAVE m PAUSE <=*< COPY * DEF FN COPY COPY RESTORE 3[ PAUSE USR 0/f COPY RUN STEP U COPY COPY COPY RETURN [F]M[A]0} AND T8 COPY LN TP DATA COPY ATTR LET TAB COPY COPY SAVE s NEXT GI LPRINT USR COPY COPY SAVE LINE [BUSR COPY USR BORDER USR ` CLEAR ▙ LET ?USR gSTR$ BUSR [S]NOT CAT <NOT ▖!7OSGN pLN CLOSE #<USR <NOT SCREEN$ USCREEN$ UM MOVE [? RETURN PAUSE >="▖b@.6<@ CAT J/ OUT © RETURN IF CONTINUE [S]▖"<=[S]"[B]COS <NOT AT S TO 3[J]BIN V▖▘ STOP USR OR USR ▖ @NOT ▛$CHR$ <STR$ WFN <<> TO 3 STEP 2DVAL [A]USR [Q] INPUT BIN [Q] < AND #▖SIN C'<v AND 2 STEP * OUT * COPY SCREEN$ FLASH CAT } PAUSE NOT [F]SCREEN$ 2NOT ATTR WINT u<NOT 2 STEP 2 CAT :CHR$ ATTR RETURN VAL$ u AND 5 CAT _ IF PRINT PAPER STR$ WVAL$ <: OR SCREEN$ COPY VAL$ SAVE SIN >=, THEN %K INPUT [ GO TO POKE FN TCHR$ AT t REM :USR AT vVAL : OR FN VPEEK Z GO TO VAL {IL[S] TO USR @USR LPRINT [Q] LIST [Q] LIST FN DRAW [S]: RETURN mSNOT [Q](@ COPY FF?) COPY F CLEAR ;? COPY COPY OPEN #C ▘FN aP!c[F]▘[K]V.[H]D"([U]%? BRIGHT RETURN BRIGHT ASN [C] CONTINUE [M]VAL @ LPRINT LPRINT h,t/ZF2^▗|XLN LIST USR BORDER b OR @/&Oe COPY COPY COPY [K] RETURN _ COPY COPY POKE [P] OVER COPY COPY [R]TAB BORDER USR bf TO PLOT CAT #"BGO[P]j@ BORDER COPY RUN MOVE $(P[R][S]DD▖[A] @@dUSR COPY D~@ POKE STEP "H"▖ A▘ 6 BORDER STR$ REM >USR IN BORDER COPY z©NOT $B1 CLOSE # OR %J"▝ LIST STR$ >~USR SAVE kXCHR$ "▖%i>=,3SIN OUT STR$ :<STR$ %WvCHR$ FN SQ DATA R CONTINUE CHR$ THEN 6 OUT 6INT SGN STR$ RETURN LIST ><cZ<VVAL$ USR CODE RESTORE COPY CHR$ DRAW SAVE LPRINT `[E]<d/:UVAL$ USR ATTR <STR$ DRAW SAVE <[P]<USR S<::$[P]vSTR$ AT sv:USR RETURN : DIM v:STR$ LIST LPRINT : GO TO :<:bCHR$ RETURN SAVE LIST "_ BRIGHT REM v:TAB ?▜: BORDER TAB COPY NOT DRAW PEEK RETURN BORDER CLS ▝ BORDER ▘ DATA ? DEF FN LIST [G](d COPY @DQIN STR$ ]-} FORMAT [N]hD<=~ SAVE `P[Q]@ OR [P]nIN COPY EXP OVER 7"_ DATA @<> [S]W REM COPY &[I]<wP THEN [R][A]A▘)VCODE Z[A]x DRAW <>P,T RETURN T RETURN <IN D LOAD OR </TAN o[D] COPY $+[`/# IF ©[P] CLEAR CLEAR k▟ DIM USR LET USR USR STR$ POKE PRINT USR LLIST USR LOAD USR STR$ LOAD LET [P][Q] FLASH %USR D_ INVERSE READ USR IF COPY COPY CLS AT POKE USR *@^ COPY COPY COPY COPY COPY COPY PRINT LPRINT !XX COPY u GO SUB VAL NOT { MERGE STEP ?/ RESTORE MERGE OR ><>2AT AT CODE CLS v< OPEN # RETURN GX!X▜▜▜wxSTR$ OR GO SUB VAL RETURN BORDER CODE OPEN # RETURN >/2XSTR$ MOVE LLIST GO SUB VAL MOVE !/o[B] STEP [NOT T{ STEP R;;STR$ !j FOR !p MERGE #~0"0 ~#0 AND G~ DRAW RESTORE NEW <G~# IF PAPER N# RESTORE MERGE n FOR NEW W GO SUB Ry NEW AND G MOVE ~# IF LLIST SQR @ LLIST xPOINT NEW SAVE POINT WPOINT FN _~#z RETURN X GO TO COPY <> COPY GO TO STR$ LLIST USR THEN [Q] FORMAT SAVE TAN CODE CAT [B]IN TAN VERIFY AND VAL COPY GO SUB USR DATA USR JBIN LPRINT DIM l RUN ? COPY GO TO USR NEW COPY <= RETURN ©o COPY RETURN RUN SQR COPY GO TO FORMAT TO LIST NEXT DRAW DRAW RETURN COPY ▜ACS IqUSR USR COPY REM BIN 0USR 0USR CHR$ USR USR LLIST BORDER CAT >| SAVE LIST NEXT NEXT x< COPY DEF FN ▝STR$ LLIST LET y CLEAR CLEAR y LET LLIST STR$ ▝ COPY GO SUB AND BORDER LOAD COPY COPY RANDOMIZE LIST LPRINT READ COPY NOT LOAD BORDER READ LLIST COPY PAPER ERASE USR LPRINT LIST SAVE SAVE y LET LPRINT USR ▝NOT BORDER NEXT RANDOMIZE DRAW ~< COPY FLASH LINE G LOAD RUN IF DRAW ~IN OUT LOAD <=USR /NOT ?w BORDER OR { CLS RANDOMIZE RANDOMIZE SAVE SAVE READ x READ SAVE DRAW <=>} CLS OUT SQR READ ▘g CAT USR USR LPRINT LPRINT LIST LIST yy?? IF LINE z OUT COPY LIST x CLOSE # OVER PLOT STOP POKE BORDER THEN ==yy LET LET LLIST LLIST STR$ STR$ ▝▝ STOP SAVE TO z BEEP COPY COPY PLOT m RETURN MERGE SAVE ]: BORDER STOP LOAD REM LLIST PLOT <>z MERGE IN COPY COPY READ ▝(= LLIST NOT CLEAR CLEAR DRAW DRAW FOR LPRINT STR$ ` PAUSE CAT pVAL CONTINUE CIRCLE AT T LOAD VERIFY INT RUN RETURN COPY RETURN | RETURN © BORDER RETURN STOP USR 0dmNOT @![U] DEF FN ?>}{{© CLS uVAL BRIGHT IN CLOSE #© COPY COPY BORDER OR xx LIST LIST LPRINT LPRINT ! CLOSE #COS CHR$ ? COPY SAVE OPEN # SAVE VERIFY CLEAR RETURN CAT ; CLEAR FOR NOT ATTR PAUSE READ CLS COPY z AND DATA CLEAR COPY PAPER CHR$ RETURN COPY DEF FN READ INVERSE CLEAR CLEAR } INVERSE © DRAW BRIGHT L[M]l▗d DATA STR$ GO SUB ABS NOT LPRINT SGN BEEP ~2OUSR PEEK CAT | COPY RUN LOAD COPY ^CODE ^-> STEP :STR$ H[K] STOP ▝STR$ [J]ABS LLIST COPY CHR$ NEXT LLIST USR OR CIRCLE LPRINT FORMAT 8 LPRINT [I] POKE IF }[O]oATN [▛O[H]1p▝_BBIN LPRINT LLIST READ READ LLIST NOT BORDER LOAD g" LIST STR$ @2PI STEP CEG OVER GO SUB OUT ©IN CLEAR > CAT FOR PRINT * FORMAT BIN OUT INPUT POKE SAVE 1USR O%PI STEP SGN FOR PRINT PEEK ©CODE SAVE FORMAT VAL p LPRINT [Q]USR LPRINT S DATA INPUT RUN RUN LINE USR |ATTR PRINT COPY COPY =/>@h BORDER USR [O] VCHR$ BORDER NOT ▝ LLIST COPY OR DRAW RETURN IN [P]▜ COPY STR$ [T]m+O▛@BNOT LLIST READ <=[D]@NOT LIST SAVE LIST ` RUN ▗ OR ©ATN CLS CIRCLE ▖ FORMAT BORDER C RETURN STOP COPY @F DRAW <=@VAL CIRCLE GO TO PLOT ;▗INT CLEAR [D] COPY COPY COPY COPY COPY LET NOT aOPI NEXT TO LINE qABIN c4@ POKE OUT 0 LPRINT ▝S6 BRIGHT <yCF LPRINT |&NOT OR u OVER rINKEY$ DIM OUT }[▜' PAUSE dk LET LET OVER RUN VERIFY LOAD COPY w©n DEF FN RANDOMIZE ;v GO TO COPY BEEP RUN GO SUB OVER RUN FOR COPY INT IN OUT RUN PRINT NEXT INVERSE RETURN COPY INKEY$▖SCREEN$ mAT m[T] PRINT [I]Q▗CHR$ [S]EXP IF [E] INPUT OUT ATN >FN ASN RANDOMIZE TAB PAUSE CLS OUT TAB IN / COPY RESTORE yIN LET ©<=IN OPEN #g[N]; GO TO MOVE [J] LINE STR$ MERGE CLS OVER FLASH BRIGHT h GO SUB OUT CHR$ STEP PLOT OPEN #g COPY { LOAD FLASH LOAD IN © CLEAR ~ RUN {=_E"U[I]EXP LOAD ATN STEP xCODE COPY USR RETURN @ OUT V| STOP CLEAR LPRINT F@D[S]VUSR PqA CONTINUE RTCHR$ t<|x PRINT LINE DATA INVERSE RETURN LEN LN RETURN k▜ INPUT u MERGE Pu OUT INPUT ~ COPY O COPY ?DQ[E] FLASH `[J] GO TO w OVER OPEN # COPY ;NOT BTDGLEN G OUT &LEN Em/X5c INVERSE AD[B][A]@G LET LOAD PRINT COPY IN IN COPY CHR$ CODE OUT RETURN LLIST COPY THEN om FORMAT D[B]BIN g CLOSE # COPY INVERSE RANDOMIZE C OUT @[Q]@0USR USR FORMAT LPRINT [Q]P FORMAT [A]P FORMAT ▖hx( TO DSIN [E]n INVERSE :STR$ NPI BRIGHT STOP RUN LET OUT ;PEEK COPY READ [E]© RUN COPY © RETURN ~ OUT © COPY o CAT v1 POKE CLS CLEAR OUT USR POKE >=~V RANDOMIZE CAT MOVE BIN [B] OR [L]eCOS AND A@Y[E] LET SQR COPY © COPY SGN SAVE c▙INT USR o COPY >=@ PRINT lJTAN @0[N] ERASE G?© INVERSE {PI CLEAR f OR [U] FOR ] PRINT >LEN ©}G}CHR$ 8`?<NOT ▜ CAT _?P FOR >= RETURN COPY DRAW IF DRAW LIST NEXT INPUT RETURN `;>= OPEN # POKE LET ▗J COPY COPY CODE GBIN <x LPRINT pNOT ~ DRAW DRAW SAVE `▝ FOR VERIFY `[A][D] BRIGHT ©IN PAPER DEF FN IN POKE MOVE |:© CONTINUE STR$ INT U GO TO SAVE ;8STR$ <A5 TO CAT VAL ~IN RANDOMIZE MERGE REM APOINT BEEP BEEP COPY +WIN fUSR <=8p`5STR$ [Q]4 LLIST ▙NOT ??©<>USR COPY @ NEW COPY STR$ CONTINUE p COPY ! RESTORE COPY NEW STOP NOT 00ppATN GO TO LPRINT LLIST USR AND LPRINT PAUSE RETURN POKE OVER DRAW POKE LLIST BORDER MOVE TO OVER LIST SAVE FORMAT USR ` LPRINT INK O VERIFY k OUT COPY COPY CLEAR RETURN RETURN COPY CHR$ MOVE PAPER 9 CONTINUE [K]0aNOT ▚VAL `[Q]VAL CIRCLE NEW ©~©Q AND o/u{<>LN LPRINT OUT PLOT % LLIST CHR$ USR ▘ LLIST STR$ p CAT COPY ©IN WCODE MERGE FOR PRINT IF ©?] NEXT OUT 0@LEN ▗ VAL BRIGHT @STR$ #O+2j *-I READ nCHR$ [N]f▙ DATA COPY <>©IN FLASH ~CODE BEEP FOR CLEAR ~▞NOT H[T] INVERSE MERGE <X[Q]H FORMAT LPRINT @` [Q][Q]VAL (>=LN VAL LLIST [Q]USR BIN CONTINUE COPY >= REM LLIST LIST LET CLS RETURN CLEAR ?QINKEY$<=,P LPRINT USR LLIST @ REM [Q]>= SAVE GO SUB PAPER PRINT REM MERGE ATTR VLN + OR NEW ▝STR$ <> NEXT DEF FN <> SAVE RESTORE USCREEN$ UATTR _SGN povSTR$ 0[B]'USR tBIN WVAL$ /SGN xoy GO SUB VERIFY FVM07 FLASH ,[A]1 COPY >= BEEP [A]& SAVE [A]▛SGN VAL$ [F]%[P] MOVE LP[O] VERIFY bASN CLS POINT USR 4NOT USR @h TO "7B%VP▘▗ RETURN THEN USR @``P088<[S][C]G LLIST CODE STEP A POKE >=▝[Q]3STR$ N+PVAL P[Q]SBIN SAVE SAVE DRAW DRAW RETURN 20 LLIST © STOP ? STOP 0/<=/W<= BORDER C;,INT 7STR$ pp%Q AND STR$ STOP RESTORE DRAW LET DRAW RANDOMIZE [Q] DIM 8▝BIN [Q] FORMAT GO TO 6[A][M] LIST 2▝USR SAVE }y BEEP COPY _ OUT O RUN g#gki'/^A▘ LPRINT STR$ FORMAT LIST LLIST LIST FORMAT CHR$ LIST (E0? STEP <0 AND [Q]USR [D]BIN INK DATA LIST PRINT RANDOMIZE DRAW `p$ LIST <= COPY ©?IN /_[L]INT r FLASH g[L]VAL$ D3&vCODE ▗OEaI POKE INK LOAD POKE PAUSE L[P]fINT OUT COPY x RETURN _ INK INPUT /][M] CIRCLE BIN LLIST 6 PRINT PLOT NEXT TAB y RESTORE FLASH 2 MOVE GqT=FT)<>J~ NEXT THEN hATN PRINT _©P[Q] LIST ) OUT nIN BORDER STR$ L[N])nSTR$ ym[O]D[F]t MERGE B S5 ERASE Du}oj5W7D[J]▙Q~ NEXT PI[N]Wx[O][Q] OUT COPY COPY OUT CLEAR DRAW CLEAR VERIFY LET BIN MERGE ▗q GO SUB ERASE RUN ]▟VAL DGG IF BORDER [N]^ BORDER 6 LIST (ATTR OUT SQR _© CLEAR DATA D MOVE -▗USR [F] BRIGHT 1SGN EXP PLOT OPEN #[H]<=b CLS (ACS IF IN © DRAW COPY SAVE BRIGHT wt RANDOMIZE PAUSE `kwe[M]▜^ OUT Q COPY }g%WO]_`p AND ,;?] CLEAR ©PEEK 4USR =` IF OR ] OUT ©~}LN LLIST y OUT :}^~©_0 TAB ©C<=FBIN SAVE LPRINT SAVE SAVE MOVE NEW <= BRIGHT [P] COPY <= COPY ~ COPY COPY RUN IN RETURN ©IN OUT COPY CAT RUN IN PLOT © COPY LOAD O[L]lIN RUN <=O5f^]IN USQR 5 PRINT RETURN [J] COPY ?L OUT !▙ NEXT CLEAR RETURN GO TO [Q][S]}<= PRINT CLEAR NEW RANDOMIZE CAT NEXT D{ OUT INVERSE COPY CLEAR DRAW © CLEAR W DRAW PRINT STR$ GO SUB LOAD LLIST COPY BEEP CLEAR CLS IN LOAD GO SUB RUN CLS LINE w AND }| CLS CODE ?[O]CHR$ NEXT LLIST DRAW RETURN ©w READ COPY ERASE LPRINT LPRINT }STR$ COPY NEW OVAL$ _ DRAW ;EXP BEEP COPY 4 TO INPUT ? VERIFY OUT CLEAR INPUT LET /© BORDER CLS CLEAR p COPY USR NEXT LLIST COPY OUT ~[O]<oo[P]M4^ LET COPY [K][O] COPY v RUN RUN FLASH CLEAR POKE CLEAR COPY ©RND? COPY USR s AND ^qE BEEP BORDER 3{P INVERSE STR$ COPY CAT 0>=©w CLEAR POINT DATA Q CLOSE # MERGE DRAW FORMAT DRAW DRAW LET READ STOP GO TO o?zd<>_/▜ THEN '[Q] LOAD OR CODE {xIN RETURN CLS OUT RETURN SAVE CLEAR RETURN LET IN RUN IN INVERSE LN CLEAR SCREEN$ wACS CLEAR SAVE COPY RETURN RUN COPY DRAW CLS tX CAT '©g COPY MERGE M IF RUN RETURN RETURN `Gg RUN '?ASN NEXT uIN OUT LPRINT LLIST COPY NOT O LLIST FLASH PAPER OVER USR POKE INPUT COPY CODE ©IN COPY READ © REM © RUN NEXT PLOT CLEAR INT ▝ CLS w; DRAW wN ERASE ©? READ GO SUB INT G REM BORDER MERGE SQR BEEP VAL$ PRINT CAT © FOR A CLEAR NOT CLEAR PLOT BRIGHT OVER PI INVERSE LOAD FCFN POKE REM COPY INK VERIFY REM BORDER ATN _ GO SUB VAL$ ATN =[H] GO SUB |PEEK ? COPY LLIST © DEF FN ▝8[M] DEF FN STOP FORMAT SAVE BEEP COPY © PAPER BRIGHT EXP NOT "8CHR$ SAVE DRAW USR P8 LINE sCODE WT*P SAVE p[P] ERASE OUT o LOAD [B].[M] COPY _ATN CLS COPY RUN COPY CLEAR INPUT COPY © DATA h INK ©EXP NEXT IF z RESTORE NEXT RANDOMIZE ABS IF PLOT ATN IN y COPY BEEP ATN ATN ATTR USTR$ PAPER INVERSE RUN i`(COS DIM < CLS COPY CAT COPY IN ]ATTR OUT LOAD CLEAR STOP COPY CLOSE # LOAD ?▞TFN gs9INT INT LN LN INT = CLS RUN DEF FN BRIGHT EXP s BORDER COPY USR }m ERASE INVERSE ?CODE M COPY =STR$ 7▛ LIST OR IF SQR ERASE RESTORE LINE `<= LOAD © COPY RUN _STR$ GO TO HBIN COPY IN SQR BEEP OUT q BRIGHT USR ; LET COPY AND ; BORDER FOR RUN [A]/=r NEW LINE [L]VSQR Uk BEEP GO TO LPRINT INPUT USR ▙F OUT CLS LOAD RUN |©oc FOR RANDOMIZE LLIST RANDOMIZE SAVE DRAW VERIFY RANDOMIZE Q CLS LIST GO SUB SAVE RETURN OUT +!VAL$ u[S]5 OUT =*=VAL$ &"[U]▙ PAPER [H] COPY RUN O CAT DRAW COPY COPY ` BORDER ?WCODE W# BORDER OUT NOT ▝COS BORDER ABS <[N] TO NEW READ LIST uyy LET RANDOMIZE y RANDOMIZE [P] DRAW 6/[P]byABS MERGE O BEEP h MERGE LOAD ©n©SQR E NEW INT NEW LOAD ©IN CIRCLE INPUT COPY RND THEN BORDER NEXT RANDOMIZE OVER COPY W COPY LIST RETURN INK }U ERASE {SGN _no/ OR READ FOR READ G LIST FOR RUN COPY P6 ERASE LN X| BEEP IF ? PAPER >= GO SUB POKE IF y?PEEK PLOT [A]LEN /VAL$ [Q]kCHR$ ? BRIGHT ]USR INVERSE q[T] INK OUT OUT ©<PEEK [K][U]▙PI+v INPUT OUT COPY _ COPY ?l}[C]SGN aSTR$ @▛ PAPER USR `[P]A.▜PEEK OVER IF ASN © PLOT COPY POKE LIST I COPY _ RANDOMIZE Y CLS y CLS FLASH RUN RUN TO COPY PRINT COPY RUN ©x{z CLS SAVE COPY SAVE CLS USR COPY u▟CHR$ BORDER ABS p* VERIFY 4 COPY [P] LOAD ▚K SAVE <= INVERSE COPY ▛ATN © CLEAR COPY w COPY © LOAD W DIM NOT RUN COPY w_ NEW COPY LINE C PAPER FZZ COPY FLASH [NOT {<=[F]@ OUT [A]"} FORMAT PRINT RETURN REM PRINT [O] STEP NEXT PLOT /]IN [F] CAT <= RUN CAT COPY LOAD CLS RUN OR LOAD OUT CAT CLEAR IN OUT !QBIN VERIFY BEEP BEEP [K]USR [R] LLIST PAPER [H] RETURN lx LIST [ BEEP MERGE yg[T]gp<▟ OUT _ LOAD w FOR STR$ NEXT LOAD @CCHR$ FLASH RUN ] STOP COPY STR$ CLEAR CLS LLIST COPY TO ASN ASN ASN ASN COPY NOT OVER CHR$ IF CHR$ COPY S▝ BRIGHT USR [K].[I]pSTR$ g LET TO INVERSE VW LET BRIGHT RANDOMIZE TAN W▘▟ DEF FN NEXT OPEN # CLEAR u CLEAR CLEAR BIN CLS PRINT COPY OUT COPY < STOP COPY >={x© COPY ERASE ▚ OUT STR$ SAVE ?{ BEEP ?GfJ LET 6[J]' INPUT |f INK STR$ OUT RUN % LLIST AUSR RUN STR$ COPY uqSTR$ COPY } STOP © LINE LOAD [U]; DRAW INT ASN vEXP E[S] OUT A3 CLOSE # PLOT LOAD BIN Q DATA COPY LET EXP LOAD OPEN #ABS LOAD BRIGHT MERGE CLS INPUT FLASH ^©G SAVE 9CHR$ U OUT RUN "N0 MOVE STR$ LOAD GO SUB "[S] OUT PRINT COPY f GO TO SGN IN ~ CLEAR © CLEAR DRAW RANDOMIZE RUN LIST BIN u[M]G2v[P] PRINT [D] PRINT m,[P] FLASH FLASH o1SCREEN$ v OUT OUT RUN RUN DRAW t RANDOMIZE CLS RANDOMIZE PRINT PRINT LIST PAUSE LET NEXT MERGE RUN ypv COPY :v LOAD RETURN RUN o OUT LOAD f_ INK >=}BIN B BORDER o]2 INPUT PSTR$ OUT GO SUB TAB CLOSE #© CLS [P] INK INVERSE COPY LOAD RETURN CODE THEN COPY ERASE CLEAR © CLS g BORDER gO CAT OVER LLIST ▙ OUT [O]<[O]PEEK DEF FN STEP BORDER [P]ATN [ COPY <=Y[L]PI COPY SQR AND OUT OVER ©<= OVER COPY MOVE BORDER ; BEEP OUT OUT [H]N? GO SUB OVER v LOAD <? LPRINT < SAVE COPY OR gd LINE EXP w CONTINUE POKE DIM THEN REM BORDER SQR ?w©} COPY BEEP LINE W[P]?ABS ?[N]/▞▟ FORMAT BORDER COPY OUT ©©IN IN © LOAD IN SGN T LOAD ERASE TO SIN E OUT c▝! AND ▗Q[D]oCOS ©> POKE IF BEEP RUN IN N REM x INK RANDOMIZE DIM DRAW OUT OUT RUN RETURN ~IN 5 BEEP W▜ MOVE LIST SAVE ? RETURN pJ0f BORDER COPY OUT ▖3 COPY LOAD OPEN #p CLS 7 FOR FLASH OVER RANDOMIZE s PAUSE BORDER [P] COPY © CLS CLEAR IF GO TO t CLOSE # CLS GO SUB h[R] OUT [O] CIRCLE DIM RETURN OPI PRINT COPY STR$ STOP SAVE ?wOU@ho[J] DATA ~X FLASH OUT o|CHR$ CHR$ ▝ CONTINUE 1iINKEY$G PLOT <> LET VAL$ w COPY BORDER CAT [O]*y IF 4 LOAD IN q READ [T]p PLOT j} STEP LN COPY ]' FOR CLEAR VERIFY CLS / COPY _ IF _PSTR$ STOP COPY OUT ow; GO SUB o PLOT ySGN COPY 8 LPRINT CLS STOP AT BEEP y[N]T7 OVER D.}USR [N]>= LLIST READ 0&▗Y LPRINT <=?[D]< COPY =© COPY DATA RETURN DRAW CLS ▝ CAT OUT ` SAVE f; PLOT +@▗u NEXT RETURN ~7NOT LEN SGN OVER W>[N]]]'/'C▖ OUT l DRAW ©R VERIFY xVAL [K]}u[P]ABS RETURN OUT LIST DATA ATTR 7IN COPY RUN RUN RETURN RUN ASN TAB INVERSE [ COPY [P] OUT RETURN IN d7 COPY O CLS IN POKE :POINT ▜m3 NEXT RND BEEP FOR <=9[P] CAT RUN NEXT ATN i PRINT RETURN PEEK OUT OVER G/SQR VPI NEW ▙SQR INVERSE LOAD { OVER SAVE C READ STEP IF LLIST BORDER COPY ABS COPY [ CLEAR CODE PAPER OUT m COPY CLEAR 7▙ BORDER GO SUB 3▟ LPRINT 4[G][P] BEEP ©SQR COPY VAL$ LOAD BORDER CLS LOAD IN Z DEF FN LOAD . NEW PRINT _ BEEP PEEK [G] CIRCLE CIRCLE s CLEAR [F]▜{INKEY$rAT 9 CLS VERIFY [M] STEP [D]EXP POKE ~ STOP ( PLOT ) LLIST * READ ( PLOT ) ! LLIST ( RESTORE * RUN ( USR CHR$ (( NEW ( RESTORE CONTINUE (USR LLIST (STR$ REM (USR USR *a[T]QASN y F FLASH [A] POKE RESTORE * CONTINUE USR :USR " CONTINUE USR CONTINUE STR$ *9>CHR$ " "! AND "::[U]NSTR$ RESTORE STR$ LLIST :G"USR ! NEW LLIST USR :POINT !USR 8sUSR : GO TO USR E DIM DIM STOP 0f"CHR$ 8 8USR 88USR 8!]A @ LLIST 0*@x LPRINT USR USR USR [Q] FORMAT SAVE TAN CODE CAT [B]IN TAN VERIFY AND VAL ©©USR IN STR$ OUT STR$ LOAD STR$ RUN USR CLS STR$ CLEAR STR$ RETURN FORMAT COPY ▞©?_/PICOS SQR ABS OVER 3▜ FLASH GO SUB INPUT DEF FN COPY COPY BEEP COPY STR$ ©h^USR IF ▘ CLEAR CLEAR IIN [P] CAT BORDER LIST TO ©CHR$ IN ▗SQR EXP ACS ATN USR CODE [N][N]INT INT CLS [E][L][S]FN QH[E]▘USR ?©05: AND OUT [C]ooCODE DEF FN INPUT RETURN CLEAR CLEAR }}{SQR SQR ATN BEEP BEEP LOAD LOAD h DEF FN ▘ DRAW LPRINT ▘ COPY REM CLEAR DRAW CLEAR STR$ CLS COPY ▚ BORDER LOAD LOAD CAT CAT <=USR ATN [D]w{{ CLS RUN FOR FOR BRIGHT PEEK PEEK ©wvvw{EXP ASN ACS `E READ DRAW !▘x{:}}ABS 9▝STR$ ABS ▝ _▜}▛ STOP CLS PRINT [F]fPINT !M▚ LET COPY CLS SAVE rBIN {NOT CLS ▖ RANDOMIZE RANDOMIZE IF IF SAVE COPY COPY [C]▛ LPRINT COPY / PLOT MOVE RUN + RESTORE y▙[P] RETURN LLIST LINE ▘ NEXT LOAD !? OUT LOAD PAUSE [I]W[A] RUN NEXT RESTORE INPUT OVER OUT IN w RUN ATN COS SM GO SUB GO SUB y OPEN # COPY COPY ? CAT LET RETURN RETURN DRAW LET FOR FLASH ATN DRAW ▚ATN ▜sy|~ CLEAR NEXT a OR _ MOVE COPY LPRINT © SAVE BORDER @©gLN ©[P] LPRINT CHR$ RUN >= CLS R▝ DRAW RUN zS▜? CAT RUN ; STEP PLOT IF u CLEAR CLS IF PLOT STEP ; RUN CAT CAT BEEP FOR GO SUB INPUT INPUT (E[A]▚ NEXT LOAD [P]© COPY RANDOMIZE USR LIST ▝ DRAW [G]*▚ CLS COPY COPY RUN NEXT NEXT SGN SQR LN ▚oo__??j DRAW IF IF FORMAT {ATN BEEP BORDER RUN '▟ CLEAR REM MERGE SCREEN$ U REM LIST J INK ▝ LIST USR wSTR$ ATN USR BEEP DRAW ;STR$ ~▖IN IN SGN SQR <= INVERSE IF PRINT <VAL$ WATTR USCREEN$ }VAL$ WSCREEN$ W+STR$ LIST CLS ▗ COPY COPY ATTR U COPY ▗ LIST RUN RUN LIST ©© IF OUT INT uSCREEN$ UCODE ] IF USCREEN$ WPEEK INVERSE IF U INPUT }SCREEN$ MERGE ; LPRINT D▝m COPY RETURN COPY t▝=▝}[M]CODE _IN MERGE VAL$ U FOR PRINT VAL$ WINT U LOAD MERGE SCREEN$ } FOR UVAL$ U REM FLASH LEN QLEN JUSR ▗USR CLS LET +[T]+▚5>= LOAD !© CLS COPY CODE PRINT PEEK _SQR OUT CLS ~▞_SCREEN$ BEEP RETURN _SCREEN$ U;USR ▝CM# AND ▝ LPRINT ▗ INPUT GO SUB GO SUB FOR CHR$ REM ▜ FOR GO SUB GO SUB INPUT ©IN [A]© RETURN COPY IN w INPUT CLEAR SQR OUT RETURN RUN AT p▝| COPY IF PRINT 3y▚ LIST CAT LN g OUT FN $▝ CAT ▙© COPY _ CLS RUN IF w GO TO CIRCLE VAL @+ AND ▘IN _lc▘ BORDER ▝CHR$ RETURN ▝ BORDER STOP ▝ NEXT USR ▘PI▘ RANDOMIZE RANDOMIZE 3 STEP OR CLEAR SAVE NEXT USR SQR ▗ABS ABS }}|<= OPEN # COPY ▝ LINE CLS ~@T# RUN RUN IF 0t▗ COPY DRAW READ "E TO RUN ABS ], FLASH ▝ OUT <=LN ▝ LET COS 4 STEP ▝%zACS >= COPY ▝~-▗~PEEK PEEK SGN STR$ PEEK ▗ABS ABS [N] RESTORE PAUSE ▘ SAVE <=~}[P]BIN RETURN ▝|STR$ }▝|: {▘ LIST <=x▗ RETURN RANDOMIZE BORDER OR JCHR$ OVER USR INPUT ▝PEEK IN IN ASN 5 PRINT COPY IF IF OUT INVERSE INVERSE CLEAR CLEAR INVERSE INVERSE MERGE U_ LPRINT ▟ DRAW NEXT CAT 8▝h CLEAR 1▖ PLOT PLOT v}} CLEAR G POKE Vel▝▜▞ RUN LOAD OUT ebTAN "CHR$ ooVAL$ VAL$ IN USR INVERSE ▝ COPY PI`r DATA COPY {▝PEEK VERIFY COPY IF z}©©{z RANDOMIZE S CLEAR BRIGHT COPY ▘ LOAD [P]/SCREEN$ SCREEN$ PEEK LLIST NEXT GO TO COPY IN IN COPY NOT ^▘ DRAW CLS 4▝© LOAD GO SUB COPY RETURN CLEAR s[S]JA READ COPY RETURN SAVE PLOT DEF FN ABS } RANDOMIZE PRINT STEP ABS j LOAD ▝/5SCREEN$ 2x REM COPY ▘}PEEK q BEEP LEN OR COPY 7<= OUT OUT BRIGHT CLS AND IN 7 LLIST RNDL▝ RUN OR ▝©SIN ▘ NEXT CLEAR VAL$ ▝[P]V[P]▘<= LET ~ SAVE MOVE COPY ©IN CAT RUN RANDOMIZE #▗? OUT BORDER CLS R&▗© READ SAVE ~z COPY RETURN CLEAR CLS RUN O DEF FN N5]USR USR USR ▘ STOP READ DEF FN ;SQR ©[G]X▛ INK ▝USR TAB [I]©?USR LIST SAVE DRAW RETURN DRAW SAVE LIST LIST LPRINT USR USR ?<=l©▘ OUT BORDER ▚ INK ▘ RETURN /7[A]▙ COPY COPY ©< A0{{BIN COPY ▝ / LPRINT WSIN CHR$ @ / COPY ?STR$ }$ VERIFY ▝ LPRINT BIN COPY ▝ MERGE STR$ COPY ▝ LIST LINE BIN COPY (jx( OUT ▝▘ SAVE THEN ▟ RUN PLOT RUN PRINT RETURN IF RETURN IF =NOT CLEAR RETURN CLEAR }SCREEN$ @▚©▜ SAVE COPY RETURN USR STEP ▝ RETURN LLIST [H]~??▜ LPRINT XVAL$ USCREEN$ MERGE REM PRINT IF CLEAR COPY CLEAR IF IF CLS IF OR RANDOMIZE IF PLOT INPUT INPUT 0 DRAW ©[P]h?TAB INT UINT UINT UCODE DRAW ▙p[N] REM UATTR WSCREEN$ ]PEEK uVAL$ MERGE CODE ] REM ]SCREEN$ ASN VAL$ MERGE OVER BEEP REM ojuwSQR ATTR SQR ATTR ▞+;+[kWwWwWw{SQR COPY U[G] LET CHR$ c▚j MERGE ATTR UATTR PLOT SQR VSQR VATTR USCREEN$ USCREEN$ [I]SCREEN$ INVERSE INPUT U REM WVAL$ OUT VAL$ OUT PEEK WPEEK UPEEK INVERSE f▖▖BIN BIN NEW NEW DATA STR$ NEW [M] STOP USR ▙?[ASN n FLASH ASN n OUT VAL$ FLASH IN {IN {IN { COPY { INPUT [ASN REM ATN REM BEEP FWVAL$ w FOR _ CLS PRINT COPY RUN VAL$ RUN VAL$ COPY Q@STR$ 1q{{ COPY USR w▘vbUSR "LN ©?CLEN >=dCOS CIRCLE |IN nASN OUT ATN OUT CODE FLASH GO SUB OVER LOAD _ASN FOR ATN REM wSQR INVERSE SCREEN$ _CODE w COPY wSQR }SQR }INT } RETURN MERGE RETURN RUN H▘▚▗ TO INVERSE INVERSE ©USR v▝fUSR &[L]$ FOR PRINT LOAD PRINT FOR uUSR 0PEEK COPY IF COPY IN OUT ~ COPY IN GO SUB RUN PRINT [E]ATTR CODE LOAD © BEEP ]PEEK INPUT REM PRINT CLEAR PRINT COPY CLS SQR { FLASH = CLEAR ERASE `}©{CODE _ LOAD _CODE _IN RETURN 8<USR 5 COPY OUT CLS o▛ CLEAR PRINT FOR FOR IF PAPER VERIFY BEEP SIN ASN INKEY$USR o▝ LOAD $ABS REM MERGE REM MERGE ([K] PRINT CLEAR GO SUB CLEAR MERGE CAT ▛? DRAW R CAT LN USR USR 0USR LPRINT OUT [U]▜x▜/ DRAW ▜ CLEAR ▟▟(H AND [B]USR 2<>: NEW ▖0 LIST `g▝VAL$ COPY RETURN COPY PRINT ATTR /VAL PCOS ][H]▘WAT (UATTR V'H▚ BORDER }▞x LET ▘▝)▝ READ POKE [H]< CLOSE #AT TAT TFN pUSR : VERIFY SCREEN$ VSCREEN$ VSCREEN$ TLN `7 READ [O]A OUT ? DIM IN <COS COS ▝ LIST #INT R FORMAT OR COPY ▗|O= CAT ▘ RETURN RANDOMIZE ' LLIST ▘ DRAW NEXT C SAVE pD??[P]<= READ P▝ SAVE 0▗ COPY DRAW READ [P]a▗ DRAW READ ©e▝©hDNOT COPY ▘©©# FOR ▘ RETURN LET / INK SAVE BORDER 0SQR ][K]▝© OR ▘ ▛<= COPY ▗ LPRINT SAVE BORDER (y▝ NEXT F@[S]]7[R]??[Q]@3 PEEK $[O]m DIM &/ AND COPY Kb▘ RETURN RANDOMIZE AND COPY P©xG▝ LOAD COPY COPY COPY RETURN LET ©^© INPUT ▘ RANDOMIZE RUN ©▜STR$ COPY hO COPY COPY DEF FN COPY ▝ RETURN |▝[P]NOT NOT LOAD NOT OUT ▗IN [P][T]SGN i▝?}'b INK ' INPUT ,'[E]x OVER LET COPY ▘ CLEAR COPY TO OPEN # COPY ▝ LPRINT OUSR LPRINT pGINKEY$▘USR xG LINE COPY ▗?▗@p|©SQR VERIFY COPY ??©©u LIST ~ LPRINT VERIFY COPY ▘ RETURN RETURN STR$ DRAW ▖<USR POKE CLS USR SAVE ▚ LIST LIST pVAL FORMAT LPRINT OR LIST ▘▘ SAVE BORDER CLOSE # LPRINT N CAT ▘ LPRINT C[L]cINKEY$▘USR 8C OUT &@0S FOR ▘USR > IF ▗pUSR P-▘ LPRINT OUT ▗`STR$ STR$ LLIST USR ▞▘▗D$+IN VAL RANDOMIZE @ NOT ▗ !A_d▗<"BAUSR oxP<=9d @@)▗▝Osv▟5[G[Q][Q]`` MERGE ▖> CLEAR SCREEN$ 5*5*▘ IF PRINT CODE PRINT VAL$ © PRINT _ FOR 5.▝w TO VAL$ X LPRINT ▝▜[F][K][F][K][H]▚ THEN LPRINT [F] VERIFY xAT _ LOAD u LOAD MERGE IN INVERSE zTAB WSCREEN$ UINT c▘▘[H][K]uSCREEN$ U INVERSE ABS VERIFY VAL$ MERGE jASN k PRINT [K]cVAL PVAL P [D]`aLEN LET CLEAR IN BEEP IF ©IN _INT RUN ^ATN S`"▘P STOP USR CHR$ ▘oINT [C]SCREEN$ MERGE o:5jUk MERGE ATTR VERIFY SCREEN$ T8p CIRCLE FN 2▜AT WSCREEN$ MERGE REM CLEAR COPY l▙ RUN ATTR PRINT COPY =STR$ ![C] PAPER }ATTR UCODE WCODE WIN { STEP LINE ▟▚7▝UjUATTR MERGE SAVE x▖wPEEK w FOR PRINT ©▝:vSTR$ $▖[E] CLEAR BEEP IN ] INPUT _ COPY COS ▟©[T]`STR$ G▟ LINE M LINE M0j▝ LINE ABS RETURN COPY OUT COPY © COPY U LOAD u*▟[B]{;?/OCODE oIN ©IN OVER RETURN DRAW SAVE LLIST <=©..▟LN LPRINT LIST INPUT CLEAR IN RUN PEEK OUT CODE u FOR ▞ REM PRINT REM PRINT REM MERGE ATTR [O]CODE uATTR UATTR USCREEN$ /VAL USR '$▚AT pCHR$ ; MERGE <. GO TO [B] LIST BRIGHT CLS COPY LOAD COPY RETURN OUT CODE MERGE :▟▛▚^▚(@▝jJ}p GO TO RUN RETURN BEEP F▘uIN ▗]LEN a[R]cVAL$ USR VAL$ s[S]c[S]a[R]a[Q]`[Q]`[Q]`USR rPEEK r LPRINT BRIGHT COPY CLEAR IN © IF 4 GO TO [U]FN ▗FN XFN X STOP VAT xZSCREEN$ ▘STAB SAVE BEEP RETURN OUT ▘Y▗``[Q][Q]BIN k[G][O]▝CHR$ COPY COPY RANDOMIZE ▘STR$ USR STR$ AND ▝▝Q5e MOVE COPY INK g▙STR$ ©STR$ ?STR$ o(p<> COPY ▝ RETURN >=©<> INVERSE COPY GBIN OR © LOAD LPRINT COPY ▘ DRAW NOT © DIM DIM COPY ©▚ COPY COPY DIM COPY COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 BORDER 8 CLEAR ©> GO SUB y1]!t{[m MERGE GO SUB VAL !1▗© MERGE Q<> GO SUB LN !/ STEP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL LLIST FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER THEN ?O0AN# GO SUB VAL COS THEN ?N8SGN 0=[U] LET NEXT NOT 2▗<> COPY )[A]9VAL LPRINT POINT LIST @I9 MOVE IF `} ▝ COPY CLEAR 9 RESTORE [Q] `%p RESTORE FORMAT LIST BORDER FLASH FLASH FORMAT P ERASE P STOP [A] FORMAT P@ FORMAT 5 COPY FOR FOR #@` LPRINT @ ` USR FORMAT CLOSE # PAUSE `) LLIST DRAW DRAW P[Q] rf`USR B FORMAT CLOSE #[Q]B GO TO LPRINT 5 COPY RETURN RETURN ▘[T] LPRINT BIN ,L CLS CLS RANDOMIZE COPY v STEP R;;STR$ ![H] FOR !fs#r!{0▞0@ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~< NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w Ge# RANDOMIZE VAL$ NEW ?F#. CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>BIN ▗USR 0 LINE ; PRINT COPY USR ▘ COPY BIN COPY ▝? MERGE ▟ [L][;+▝`@C`@▝ COPY LPRINT @@ LPRINT xx@ MERGE ▝ LPRINT ▚@x BORDER Ca& FOR ▘pa@Y] LPRINT i@ COPY ? NEW p@ OR ▝ BORDER x@z INK xzEUSR zH INK y LINE ▘ RETURN RESTORE y@>▝ LIST RESTORE ▘USR DATA ▗▝ COPY yABS MOVE ` DATA z▘ COPY INVERSE ▘y|2▝© CIRCLE &y|@y RETURN xxqzUSR |GSGN ▘Pw|USR zSTR$ STOP {@y▚ INK {}USR |J INK |}%@} LINE %~USR ~%}~}@%}©0}USR | OPEN #~ GO SUB />=/ FORMAT h MERGE B*e▝ COPY USR ▝ COPY P READ % BORDER NOT <>▖© VERIFY hUSR USR LIST SAVE DRAW DRAW CHR$ RETURN ▗ DRAW DRAW SAVE LIST }[D] OR [Q]1%x LIST COPY 3 FORMAT TO [Q]U({VAL LLIST ▚?©© COPY RANDOMIZE ▝ COPY T▗?USR ©▗??~▟ AND #i|@|@ VERIFY TO |USR DATA u LIST NOT ▖@ ATTR VAL COS }0VAL ▘CHR$ CONTINUE ▝USR (hSTR$ COPY x <=INKEY$FN 5Pxh AND SCREEN$ SIN ASN [A]xFN ▝© LPRINT © LIST PRINT P CLEAR VAL © CONTINUE W LIST ▝ RETURN g▝ LPRINT OR USR ▝ COPY tP© LPRINT c LIST ▝©g▝ OR 5[A] MERGE ©@, FORMAT VAL SQR VAL RRND}P<>}x}▖}[A]>=5>=} FORMAT <=~~ AND ~8~H~P CAT ~~[A]~[A]<=~USR ~ FORMAT ~ FORMAT ▘e~ SAVE ©©>=%H©P MERGE SAVE ©▖©[A] AND ©LN ©>=© FORMAT CAT o%© MOVE &p[L]%© LPRINT |$p BEEP © SAVE FORMAT RUN .E CIRCLE ▝}$_ CIRCLE bq FORMAT DIM ▘,e|USR STR$ xH▝ PAUSE }FN u@[A]xUSR } CONTINUE }@ TO INVERSE COPY INVERSE [Q]5 LLIST COPY © SAVE BIN STR$ COPY ▞% INVERSE COPY ▘[. STEP XUSR x`00Dh-[ INVERSE 2 INVERSE 8d OPEN # MOVE x COPY ERASE USR L PAPER ▝2A q/x x @G2QPEEK H[Q]x ` H~!LEN OR 2+% BORDER ▘k GO SUB p@rSTR$ 8USR ▝GZ# OR ) CLOSE #2?%d'IN LIST MERGE ▗SCREEN$ USCREEN$ U LOAD %( MERGE [D]xRu PRINT x[Q] FOR xUSR y [F]`y[Q]yyUSR MERGE y%y LPRINT z*zzhFN ASN CONTINUE FOR { {`{@{ MERGE ^U{USR {[Q]{ LPRINT % LPRINT | > OR @|({ LPRINT MOVE |h|[Q]|[C]%FN |`}` MERGE dU}}`}[Q]t}4~(/~/~/[F]©@©0 INK ©©p%USR ©VAL ~ PLOT [I]EXP [L] PAUSE [M] INPUT XsRNDz(z:zLz^zp▚0Lz▖z[K]zAT zPEEK ©[A]©FN z POKE ▘SCREEN$ U{© FORMAT STR$ {0▙VAL le{Pz▖{tE[A]{[S]{TAN %n FORMAT ▖©©?{ CONTINUE { IF |▞SCREEN$ U RETURN RETURN ASN USR |(|8|J|/|n▜@STR$ u|▖|[K]|AT |PEEK l% CONTINUE | POKE W}4h}P@SCREEN$ 5}h}z"INT }[A]PFN }INT } TO } OVER } LIST @ STEP !U~,~>~P4[F]~h~z~~[O]~VAL P"%>=© CIRCLE ©5 CLEAR ©VAL USR STOP RUN 5© POKE [C]]U FORMAT NOT © LIST [G]z5>=~[A][U][H]) FORMAT USR ~▗©"~▖ CAT ©X©j~▖<=©[I]©SCREEN$ ~>=u LPRINT ~Hj5.H INVERSE C% RESTORE [A] LIST IN FLASH LIST %y FLASH E%y OPEN #*b}M LPRINT wzbz,bE~ READ ▖d OR LPRINT NEW {TAN INVERSE V% INVERSE FN ! READ t MERGE '+%~>=VAL$ %VHINKEY$%U©P©b~AE[A]©[S]~USR IU FORMAT © STOP © POKE SIN +p(w SAVE -RND^1 COPY [A] FLASH ▙+▛;▛K▛k0$% READ w▗SGN g FLASH w DEF FN w[C]EXP o[N]VAL /©%p ©D[H] ©sw[K][E] ▜▜ DRAW DRAW NEW ▜19 LET w=U CLEAR CLEAR OUT OUT CLS CLS IF IF wg COPY 9 LIST MERGE LOAD LOAD CONTINUE BORDER BORDER OUT OUT BEEP BEEP FORMAT FORMAT CAT CAT ) DEF FN ▜q CONTINUE VAL COPY E LIST <> COPY [Q]@ COPY FORMAT STEP COPY LINE CLOSE #[U] INPUT READ READ U FLASH FLASH LINE LINE THEN THEN ) TO f LINE LINE ?@ LIST `[H][K]X PAPER @[Q]E DATA DATA COPY IF IF iVAL VERIFY PAPER % DATA DATA INK PLOT @ % DATA DATA FLASH RETURN GO SUB % READ GO SUB GO SUB % INK INK CLS [P]` PAPER INK ! [P] READ READ PAPER [H]y PAUSE v0 fWH9 CLEAR CLEAR ?`[P]▚[P]$SIN y COPY PEEK ABS SAVE © MERGE !/o GO SUB VAL CLEAR ©> GO SUB y!Z▗[m MERGE GO SUB VAL ! LPRINT [N]/ CLS <> GO SUB LN !C STOP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL LLIST FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER THEN ?O0AN# GO SUB VAL COS THEN ?N8SGN 0=[U] LET NEXT NOT LLIST [N]NOT > CLS NOT USR NOT DSTR$ NEXT ~2xUSR "SQR USR # STEP ASN USR <2zUSR GO SUB SpUSR E GO SUB SrUSR MERGE UtUSR ! STEP INT USR FOR "vUSR !▝USR "{USR !▘USR USR ,p GO SUB VAL LLIST !CODE STEP CODE USR =2▛USR 2[F]USR 2[P]USR >2yUSR #"▞USR "[D]USR "[N]USR STEP BIN CLS <>w LET LET PAUSE ^ INPUT * NEXT CLEAR PRINT ▟ PLOT COPY %_ INPUT [A] LET N LIST [A] LET $LEN LIST LEN LET SAVE 1[Q]7PEEK >=NOT CODE USR ^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ FLASH USR B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST 3W LET NEW o INVERSE THEN n>= THEN STOP <>:[Q]USR O!zUSR PEEK PAPER STR$ CODE O<2[Q]USR i&) GO SUB [pUSR N#~2DNOT y*tUSR FORMAT % GO SUB S{2}2 PRINT ©USR <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>:y PRINT uyUSR CHR$ ▙CHR$ :xUSR NEXT INVERSE !▗USR STEP 9STR$ PAUSE oSTR$ *{USR ~< TO SAVE USR % STEP [I]STR$ 1% INVERSE !▙ %▘STR$ *K}.[I] .5▙CHR$ *© &(©USR NOT ▙CHR$ ~ RETURN ` PAPER AND STR$ RETURN p PAPER OPEN #STR$ RETURN PAPER POKE STR$ LINE FOR STR$ RETURN ▝ LINE MOVE STR$ RETURN ▘ LINE LET STR$ RETURN PAPER CHR$ VERIFY [R]|ASN INVERSE w COPY #NOT [I]STR$ INVERSE w INVERSE 6 RESTORE INVERSE 6 #<> VERIFY ` RESTORE c*vUSR ABS e INVERSE u INVERSE t LLIST %#u COPY <>CODE VERIFY p RESTORE AT *r@!u INVERSE t INVERSE 6 RETURN %RND VERIFY 2VAL$ USR #~#2AT USR % RESTORE CODE FORMAT * LLIST o[F]~<>=== INVERSE w PRINT _O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF GO TO STR$ @%#~<)e<>yATN USR |2PI8<[F] INVERSE ~ RETURN ATN >= RETURN LINE ▜CHR$ yENOT ▛CHR$ CODE v% THEN NEW <>":5CHR$ y2<NOT INVERSE *▜USR STEP USR USR yVAL 2FN "Ru LINE INT CHR$ STEP iCHR$ STEP 2NOT "[R]USR !POINT USR w STEP qCHR$ "R5CHR$ LOAD @:[B]:E:FN USR LEN VAL <1"v55[T]USR !SCREEN$ @5t@5(NOT 0o[L]@5U THEN THEN VAL LEN P9[M]n5RNDUSR !ATTR n RESTORE NOT BIN } PRINT MERGE INVERSE n INVERSE fwRND▚ AND ▜_!_NOT [I] INK FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!!VAL$ USR CODE ACS > VERIFY +yIN GO SUB ATTR = PAUSE /BIN <>3AT $`SONG BY ST COMPILE[Q][Q][Q][Q]O RESTORE !! LcQABS AND 25 LIST 0 [A]`▝USR i`%0TN%▝%▘%%▝u▘▗Ku+<>) COPY PLOT REM Ibbbb}zATN ,ACS EXP ,5 LIST AL E5 FORMAT COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT POKE NEXT PAUSE LET LIST INK E FLASH 0USR k` STOP ERASE = BORDER PRINT [J]>=*[J]=L` SAVE kE>={<5x[F] CAT [F] GO SUB COPY [S]dsI95[R]99[S]I75[R]77[S]I55[R]55[S]I4 OR [R]44 COPY [S]aqc▘brVAL Uc▘brVAL Uc▘brVAL Uc▘br[A]! COPY VAL$ e-[S]/VAL$ +[S]-VAL$ )[S]+AT ([S])+ COPY FORMAT [S]ft//++(($a+"p LPRINT #[F][S]eu9gvEft(RNDEEt(eu;7gvC C"55gvA #A E74gv@5%[R]([S]U(([S]e57Le-gv9ftRND99teu/+gv7 7"5)gv5 #5 +{45%[R][S]5[S]eSQR PRINT VAL$ e9[S];VAL$ 7[S]9VAL$ 5[S]7AT 4[S]_VAL$ _ LIST IN w975SCREEN$ 2[S]7540FN 2[S]542SCREEN$ 0[S]4202FN 2 COPY [S]h-[R]-[S]5--[S]p'E2+[R]+[S]RND+[T]+[S]402)[R])[S]))60p THEN =<e2YINKEY$e![S]FN !INKEY$[S]FN INKEY$[S]FN INKEY$[S][U][S]-[S]+FN -INKEY$+[S])FN +INKEY$)[S](FN )INKEY$([S]&[U]"[C]INKEY$ep[S]FN INKEY$[S]FN INKEY$[S]FN INKEY$[S]Xs<?%[N] COPY j© LINE yh/: OPEN # BRIGHT LINE |: FOR : RESTORE : OUT LOAD /[Q]=[Q]K[Q]Z[Q]i[Q]x[Q]▜[Q][G]_0 TO L0@B@B@B@B@B@?!2"[G]#>=$ IF (,!^"[A]#CHR$ $ POKE %)&AG▙[Q][S][S][T][T][U][U]RNDSQR =RNDINKEY$INKEY$PIFN FN POINT FN PIINKEY$RND[U][T][S][R][Q][Q][Q][Q][Q]G4/ OR [Q][R]<[S]Z[T]xG?,J?"OTAN OATN k LIST 5o CONTINUE yGL CLEAR 0@0 F? COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT POKE NEXT PAUSE LET LIST Gs POKE E<<>P▛< INK FOR %VAL INPUT [L][F]IknI[A] OR RND<>RND:ke▜[H]ASN :][C]ASN INVERSE ]]▖ COPY [U]a[T]LEN u[T][S][U]P5[T] CAT % COPY LPRINT ▝%E&&[T]&&EXP %))[T]$)[U]P@ BEEP % COPY [U]b<>%[S] CONTINUE %p0P COPY [S]bpcb`[R]c PRINT p+ DEF FN pSCREEN$ ]d!0td!`p#&ASN COPY FN epSLE>70[U]qTCHR$ d(.)(% COPY [U]▝0eOHA;4INKEY$- 1[S]TBE[A][U]ar>>[T]>>[S]>[U]AA[T]AA[S]A[U]PeCC[T]CA[S]@ LET t CLS [T] CLS hu[T][S][U]P5[T]▚ STEP RNDGd&[S]bGc/[U]d)%G[R]d.:IASN s22[T]22[S]2[U]55[T]G LET 5[U]P577[T]7O% COPY [S]g/5[R]//[S] LIST ASN COPY [R]bf_cf_d!0VAL .2 PAPER :?F THEN 5VAL phS?q4[S]0INKEY$2BIN e;[U]p<[R]<[T]< COPY /▝hwFN %▘oo!o▘`o▛os©o4 INPUT u[Q]-[S]GeY[Q]W[Q]e[P]*LU -[Q]ZcwFN O©©O& MOVE ?/[N]oo©ew6FN ©n>RND©ACS %w [M]&$, J!X V!d GAdC▜ FOR © DATA LG AND GINT G VERIFY G CLOSE #▜! DIM O▛ FLASH 0VAL % CLEAR 6©[H]5 RETURN COPY ▜© MOVE ATN [A] FORMAT E▜[H]e[K]ABS FOR % INPUT CABS C▛UC[E]5CSQR ▜ GO TO Gn ERASE [G]/INKEY$v+[T]q/[S]b/[T]/[S]a)INKEY$+[U]w8-INKEY$v)[T]y-[S]b-[T]-[S]a(INKEY$q)Oc INK $▜%$e#@[A]!@ P`POINT g@p%g@`u COPY [R]d$f_e#USR R[A] U COPY BRIGHT ▝[R]iuK[R]jLVAL ▟" G% 5 COPY [U]er BEEP 5+[U]s+p CLOSE #5)[U]s)`U COPY [U]ky$h▜[$[U][R]▜E#[S]3▜[)- INPUT CHR$ {[Q] INPUT CHR$ {[Q] e COPY RANDOMIZE @[T]IN *E^[Q]CODE PI IN <5[Q]CODE %[U][Q]PCODE CHR$ G▘?GVIN *IN BORDER IN GO SUB IN LIST ATN SQR ATN X FN OUT STEP pATN OPEN #[Q]IN */ ▜ RESTORE G RESTORE Y[Q]g[Q]e[Q]CODE L COPY IN *L▗ATN d?1SGN cNf© BEEP #NOT 2 AND )+))-7-52©[O]F%&(,*+,:.90[S]F"▜ RESTORE %▜ MOVE ▜ LOAD LPRINT P&%EXP E<=Te READ &El DEF FN SAVE _[D]{ INVERSE COPY lbl[Q] VERIFY RUN COPY [R]▝[S]c-+-[U])INKEY$&[S]-[S]+)+[U](INKEY$$5[U]+([T]!PIep$e_k/ew[P]"ATN Zerjpis#Ujpise[R] COPY [S]c9<=MU9[U]5INKEY$[S]%[U]95ATN NEW <=VE7[U]4INKEY$ 5[U]740©:99*[R]©▘5[R]2RND2<=5779[T]@[T]2<=[E]5u[R]4[T]4[R]0RND0 ©[N]0[T]@BU MERGE RND&[S]a!!PI[S]l-c"Y5RND$[S]aR9▘Y-▝5[R]l-"©e[R]Cc+A)CIN ]@<=EaH[S]$[R]O'5a979▜,hauaOMOOLLkIN USR @RND[U]IN Z CONTINUE 5[S])([U]IN X5$[T]&FN [O]<=▘%$[U]&" RANDOMIZE USR E[U]&FN <=U%[U][H] POKE ▙▙▙[S]▙▙[U]▙]▙[[U]0[S]5▙ [U]%!5[▙Y![H]j<=m<=;E[U]2SCREEN$ [U]<=sE[S]2/[U]0 $5INKEY$▙[H] CLEAR U--++))[C]%AT [S] (&$AT >▙9▙7▙5▘4▙0▙22I0y52▙ /y0x%[[P]PECE[U]AINKEY$>[S]EC[U]EA>[S]CAC[U]@INKEY$<5[U]C@< t PAUSE s@ PAUSE e3^[Q] COPY ▖ OR <=} LOAD LIST .[U][Q]<=tUSR RUN Yn[C] RUN Y[Q] RUN Y RUN _%()*',5.N▜ LPRINT ▜}eZ[Q]i[Q]x?O CLS %E<= CLOSE # LOAD <IN PO LOAD 2 COPY STR$ /ASN ("$$TmATN SCREEN$ [P]USR [H]RNDUSR [P]USR [P] COPY (▖[P][C] OUT 8O6[P]D% COPY ▖ COPY <=a[K]©ATN ▜ DIM COPY LLIST >[U]<=!w RUN >= PRINT LPRINT `ATTR `? LPRINT [G]STR$ k[F]` LPRINT INPUT [F]h▝PITAN 8UCHR$ COPY [R]cb)e_[A]PR /ee_ COPY [R]a▙/[0((▙%[L] 0,,[G]%##0// OR %22KEq@g@a@u[S]a@[R]AgAINKEY$5DgDa@u[S]aD[R]EgEINKEY$5GgGa@u[S]aG[R]HgHINKEY$5JgJa@e[S]aJ[R]KgK RESTORE [U]K COPY [U]d_f(d_[R]f([T](5[S]f(+ RUN p[S]@[T]0E COPY ERASE [R]f5d__ PLOT p RND COPY C&[S]RU[R],,-RND,5[S],[T],IN +0RNDG[C]0[S]▜[D]E[R]223[S] FORMAT IN rP RUN STOP q44INKEY$2[S]8[R]9RND8[S]8INKEY$ COPY 9U[R]<RND;[S];%5>[R]?RND<=INKEY$?O<gp@[R]>RND@[S]@M COPY eRNDD[S]DINKEY$E[S] NEXT URNDG[S]GINKEY$HP-RND?XE@@[U]<[S]UDD[U]E[S]GCIN COPY %C@[S]>?< CAT LET EXP COPY SQR 5[T] COPY APEEK [S]SQR U[R] [S] [R] (ABS SCREEN$ ERASE U[S]0[U]4SCREEN$ 8G DRAW 58FN ;7 INK 3IN k`_RNDc COPY LINE ASN COPY LN hqEUSR A[S]f))[U]%4STR$ . BEEP CLOSE #e CONTINUE Y▘ COPY B%o1IN 9IN Q/IN RNDCODE SSc COPY REM PI<=/ATN 8 STOP [▝[R]▘[S][T]▗[U]RND▚▜▖▜▚▗▘▝/B COPY BIN [J]INT CAT <=%ACS GNd FORMAT IN RND RUN ©"/ CAT y CAT p% RUN CONTINUE CAT y CAT aG|78 OR CAT STEP W CAT STEP % CAT BIN c% CAT BIN % CAT BIN % CAT BIN l COPY 2B RUN IF IcIN RND_<= DEF FN ({© DIM !#2%Z')>=+ OVER %.[Q][H];W@uh[Q]v[Q]▗W VERIFY G%+'*)9+0-@/@1B CAT [B] BEEP BEEP AND <=u POKE <=©GTAN ?5 OUT wO/ LOAD $57 CAT NEW CAT 5 BEEP V CAT ; CAT =Ot CAT RND[H]/<=▙&[A]0(0R CAT ▛OPEEK & CAT }% CAT [U] BEEP [K]%?? BORDER FLASH [H]Y<> OUT [B] BEEP " BEEP ( BEEP 0 CAT PEEK BORDER [K] PRINT GO TO t[G]LN CIRCLE RUN >t[G]>LN CIRCLE U RUN [P]5[G] READ CIRCLE RND RUN &>g{5RND LINE [P]`FN [T]%pLgLASN [U]OOSS[S]Of74gMH OR [U]LLOO[S]Lf40[R]00[H]/Erb▘&eaqb▘&▜ydp4e4d7e7d;e;FN f7[U]d0e0d@%FN f4 BEEP M(WM▜<=[U]0&[U]$$[T]$$[S]$@& FORMAT DUSR CBEe@@[T]@O INK Gh>4SCREEN$ @[U]e<<[T]<<[S]<Ch;0SCREEN$ < BEEP VAL$ p4 RETURN W&[U]@@c0 IF 0Oh@A[S]h!,uirjtku iqjtku MERGE v COPY [S]lpn_m+n_l2%[R]++D?C/[R]_S[R]4_h_l2[F][S]542INKEY$o4[U]y4 <[S]@_[J][R] BEEP INPUT BORDER ?ASN 20/INKEY$o0[U]y0 COPY FN o_ DEF FN OR )(&SCREEN$ (FN $#[S]&$#SCREEN$ BORDER %oz( INK RND[S]+INKEY$([S]42[U]0[S]7 Kp0[P] INK >%[S]op0!EINKEY$4[S]@>_%CINKEY$@@3 5<CFN @[Q]O W5FN ([S]|`7KSCREEN$ MERGE ozpr5FN 4[S]|`RHSCREEN$ HUbpf(b`g CIRCLE &[S]pp%f$p[R]f CIRCLE LIST NVAL CIRCLE 1 rVAL VAL CODE _RNDy442200[U]7[S]c OR 0SQR PCODE [U]4PI RETURN VAL [S]0_E[U][R]VAL [S]`aUmz@[H] DEF FN AT WBIN }%W CLOSE #W BEEP %W}WWWWW PAUSE /BW RETURN OUT & PAUSE CAT f CAT [O][P] CLS GCHR$ * PRINT V[R]F[R]fPOINT % COPY [S]gIN CLS IN COPY [S]+&<=<=IN USR IN DEF FN 7]lU[R]ep440E20002IN LOAD f,(%4[R]7 DEF FN 0SIN ▜LN %0[R]3▜SIN ,SIN CAT [K]e>c▜ASN ▜_!M CLS ~#foNOT USR <BIN G THEN DATA ERASE f FLASH BIN READ ▞ REM [C] PLOT CLEAR ©> GO SUB y! RETURN [N][m MERGE GO SUB VAL !$EXP VAL CLEAR INT <> GO SUB LN ! RUN STOP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL LLIST FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER THEN ?O0AN# GO SUB VAL COS THEN ?N8SGN 0=[U] LET NEXT NOT %EXP v STEP R;;STR$ ![H] FOR !fs#r!{0▞0@ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~< NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w Ge# RANDOMIZE VAL$ NEW ?F#. CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =#| INK <> MERGE ▞T[C]*I*FN V[R]B ((( MERGE x0P▘P[Q] RESTORE Pp▝[Q]x8 INVERSE x[Q] FOR x LPRINT FOR y FOR Ip▗ GO SUB yVAL !>=▗*I LPRINT y LIST *I(yUSR VERIFY X8▝Ty SAVE BRIGHT z` FOR *USR ▚ LOAD +CHR$ COPY ▘ RETURN SAVE INPUT +@▗USR USR LET {!{VAL H▝ NEW C LIST ▝H{LN BRIGHT |a,PEEK ▘z RETURN OVER YUSR ▝x INPUT yUSR FOR %@▝▝ PRINT }V}VAL 4▘* LPRINT } LIST }USR INK ~( FOR ~hASN x FOR ^ LIST ▝} BRIGHT ©©[F]©FN OPEN #© CIRCLE _ LIST [Q]B@ DATA P GO TO FORMAT COPY LIST ▛+(USR SGN ~@ VERIFY ©8©▖ INK ©x▝SCREEN$ /▖*(~ FORMAT THEN ©LN _>=NOT COPY ▝| SAVE pi RESTORE >=▘ LPRINT LPRINT ERASE FLASH [A] FORMAT LPRINT [Q]|©>=q COPY IF ▖ COPY CHR$ OVER <= OUT OVER CHR$ COPY / SAVE [A]!USR ASN O FORMAT t[C]▜ COPY CONTINUE MABS ABS M CONTINUE x@▜BSQR ©FN LPRINT 4 PAPER COPY ATTR USR LOAD ▝<=0[A] FORMAT CONTINUE E© CONTINUE © SAVE [E]%© SAVE ▙SIN OR }0}@}P=`▘P[A]Mp STEP }[A]m[I](H( CIRCLE MERGE } FORMAT } CIRCLE s~ MOVE COPY COPY ~H~X~XBIN ▘ COPY x@~[I]~[I] OR ASN CIRCLE ~ CIRCLE <=x©©<= OR y©X©X STEP ©[A]©[I]> FORMAT ©D▖`[L] CIRCLE ©M%▘T[C]%X BEEP LIST SQR 5[I] FLASH CHR$ LN %{@ BRIGHT pA[F]|>={@ MOVE }{ OR 8}P{USR <=}x}[A]|RNDLN } FORMAT |@ CAT ~|+%@|USR kASN ~~[A]}USR K▛~LN ~ FORMAT }@USR ▝>NOT COPY ~ SAVE ©}STR$ ▚USR LPRINT LPRINT LIST LIST LIST P}PE©x©[A]~P©LN © FORMAT ~@~LN [E]Ie~<=yLN [N]j%© CONTINUE CODE ▛ DATA [L] OR FLASH LPRINT &▝USR /P7 G O0W(`X0w0 BRIGHT x xI VERIFY USR Nx`` CLEAR INK INK h`USR x INK Ab OPEN #xCHR$ q OUT INK ! OUT CHR$ *j BORDER z COPY NEXT 'STR$ ABS 5▜bb~e~~USR b GO SUB INKEY$SCREEN$ LN VAL$ SAVE VAL$ 8SIN yyzz'z z { {7{0{0|0|G|@|@}@}W%-USR ▜©©? INPUT .▜ RETURN RETURN DRAW DRAW SAVE LIST USR INPUT ~`w~p~p5o@oP REM Ex@xPEux[A]O CIRCLE xVAL @[S]P%x FORMAT ▝-%x LIST ▚PSQR y%y0pEP▝© LPRINT X[E] RETURN ??CHR$ ©?? OVER z LIST PTU{▝{0`H@p`$▖$(`ASN {>=▝KUSR ▘'▘{`N|NRNDL▜USR LIST SAVE DRAW DRAW RETURN RETURN |`T|T|@INT $% LPRINT © STOP ©©VAL$ %STR$ ; CLS <E8WLN ▞>%>>";% ERASE ▗"AT ▚"TAN b[F] CONTINUE DIM SAVE }LN P3 ERASE EU0@COS DEF FN 5[I]}@ OR @ CIRCLE } TO ©© {uUSR AND ©P©`▝p%[A]©[Q]@% FORMAT © LPRINT ERASE LIST '<=] CAT ▟`DU MERGE |>=|FN 25%}|~%H}(S]5}▖}h]%}>=}(©]%~}F%▗%%qUSR F&H~7p GO SUB `TAN FN CONTINUE [I]ABS E LPRINT USR b~USR b%©f▗©EE©H©X▜8P%bUSR @ BORDER PLOT %▖©h LIST uGPH▝@©USR SQR [A]<>▖udv OUT % FORMAT © FORMAT f OPEN # DATA [H] FORMAT 73&_ LIST ,5 MOVE ▘;u = PAPER x=x LIST }▘+xABS ([Q]xAT ( BRIGHT x,X CLS c▝x GO TO `]/xAT y#`USR P BEEP x GO TO ▝9[I]y0 EXP LPRINT ▘K[F]x` COPY DATA INVERSE B INVERSE A7USR 9 COPY PRINT WkE RETURN LOAD COPY RETURN PI LIST LPRINT WoSTR$ DIM COPY ▗ DRAW SAVE LPRINT USR 5>= RESTORE COPY RETURN LIST USR ERASE MERGE FORMAT G"[F] RESTORE COPY r}▝ FOR COPY zABS G;[ GO SUB COPY ~ FOR COPY ~USR FOR COPY o▝ RETURN MERGE DRAW CHR$ RETURN CAT COPY INPUT USR ▝USR SCREEN$ ▝ SAVE T% DRAW oW/ READ INT COPY READ ▝L▘9▝? DEF FN COPY ▞_d▛K+ CAT o▝© NEW COPY ▝©L▝8Hx: STOP OR ©@ GO TO COPY ▝© DATA COPY OR LPRINT USR X NEW COPY ▚% MERGE STEP ▘USR #[S]{ POKE ▝ COPY LPRINT MERGE q{© INK ▝USR I7pk_ />= BRIGHT |= READ CLOSE # COPY FLASH ?©>= FOR COPY © FORMAT 0yH5▖ FOR COPY STEP GO TO ( STEP CAT SAVE USR DRAW |[F]y INVERSE STOP ▝ SAVE }) GO TO ▝z BORDER DATA ▝z@ LLIST ~ DATA z OPEN # OPEN #puzUSR CIRCLE x>{ BEEP ▝ BRIGHT COPY BRIGHT xSQR { CIRCLE OUT COPY INK xSGN CAT E LLIST COPY CIRCLE STOP { INPUT FORMAT COPY PAPER 4▝ DRAW |}~ FLASH ▗ LPRINT SAVE DRAW CLOSE # COPY NEW ERASE " LPRINT ERASE COPY DIM MOVE COPY CONTINUE |G© MERGE ? OPEN # COPY MOVE NOT NOT ▝| CLS _ LLIST >=© LOAD Oc# COPY B VERIFY xx@>USR Bx[Q]xNx H STEP 14▝X[N]▝B GO SUB 0c▝COg* 8 OVER p@1>x)^ynx A DATA ayYiPEEK FLASH y[P]y CLEAR xUSR 1 MOVE I OUT y PAUSE z< COPY rOCHR$ a[F]▖▝C';} RETURN (O`0@▜B%*UATTR GO SUB (▖WVAL$ /LN p LPRINT USR Oyo[R]ywO▝yO▝oLEN zzO[B]OqU*▗SQR 5 FORMAT OR ATTR MERGE O|%jowASN ▞ COPY ▝CHR$ DATA SAVE CONTINUE BRIGHT PEEK ©xO<%@{USR O<_ DEF FN { SAVE xUSR xUSR |@y] MOVE O[K]%y@y_CHR$ %yy_ REM l SAVE ) SAVE ▜ MERGE SCREEN$ TFN XSGN ~yUSR }@U8▜@[Q]PFN TSCREEN$ DEF FN MERGE gFN w}W}WOINKEY$WEnUSR ~>= FLASH gPI©R%©PX5USR ©[A] INK EXP © FORMAT O DRAW ▖ RETURN };'C▝(hx 0 OR ▜ATTR U*%BO CAT Xxg ▖g[F]pLN /VAL$ WxHx[I]x_ GO SUB RND CIRCLE xUSR CAT x[A]y x CIRCLE y@ PAPER ?©©STR$ COPY ▝;yw▟OPxPEEK n"[Q]y LLIST 9 CONTINUE ▝:0 PRINT *0 CLEAR LN ▗ PRINT >=▝x*LN xH OUT _UxH READ @@a DEF FN W-aeUSR x▖ LPRINT *LN ©[O]EUSR x FORMAT y`xO FLASH x▖uPx>=G PRINT NEW MERGE ▜RNDP[Q]@{[P][P]USR RETURN WPIw FLASH " SAVE ▖j`▜ REM u: TO .0▝▝l ▚B[U]XCE2ATN © SAVE VAL$ 2R© LIST -1w[D][M]R% LPRINT © LIST ! CIRCLE w BEEP p[U]y`[A]Ey[A]y[Q][A]"EUSR y FORMAT y LPRINT 3zzz z0zHzXzh▘C▝ NEXT zz[I]zFN LN ▗ NEXT RESTORE /xHz CIRCLE j LIST k0{{ xGex▖{X{h85y{FN "[R]U`y FORMAT ▗ DRAW RNDPEEK yy@ ERASE & INK ▖Z LINE |hCHR$ y LPRINT yUSR LLIST 2(BIN ATTR ▜[F]J%$By@ DATA -` PRINT gINT % RESTORE ▗+5 INK g![F]USR DATA USR LIST DRAW 1 CIRCLE PRINT FV▜ LINE 5H'R PAUSE RESTORE [U]z STEP /H▖©PEEK BRIGHT CONTINUE SAVE DATA CHR$ COS ([U]u@XH/ CONTINUE o CIRCLE ▞R LLIST [F] MERGE FN x[A]>=▖gE8xUSR FORMAT wT RESTORE ▝D INVERSE ▘B "hx(AT GL38!X OR 8BP8▗DD▘ ERASE ▝(!@ ▝D(My▝Bp@Mx!@3npB0SrG[E].@@▘DVAL ▝B@▚8 LPRINT ERASE 0 OPEN #@PIHLEN PAUSE x!axB`@▚y8@]x!H@!▘{yr@DP INVERSE X@#1 FORMAT p▚(| LOAD x@ ERASE ") CLEAR SAVE OUT OUT SAVE CLEAR U[S]x BRIGHT |x[H]ABS x LIST [P]T0[P]Xp[P]/VAL [P]`z[H] MOVE z[H] MOVE ASN zFN z CIRCLE z>={{{5([Xo[K]USR RETURN >[H] LET u{FN FOR k CONTINUE { SAVE CLOSE #|8 CLOSE #E|x INK |}wPEEK INK >=%}}5}USR }LN [P]+~▖%~▖~%~>= MOVE _SgCHR$ %©@_HSCREEN$ ▖W LOAD >=©[Q]P OR %©>= THEN F%[P]▞ RESTORE w5 OPEN #[H]u▚@i%~▟2S©▚5 OVER ~P©,[P]>=% GO TO ▜*▗©ASN SAVE ▙USR AT FORMAT BIN w LLIST LIST [P][H]GF©t[R]gO% OVER FN R GO TO MERGE R+*/[!ASN } CIRCLE } CONTINUE } SAVE } SAVE STEP ~0[H] RESTORE x[P]7ex~x ERASE |' SAVE <='8 DEF FN CODE 83p'LN o&FN [P]>=▘LEN ) ERASE [E]B: LINE tcPIf[P][T][P]nPId@$VAL wSIN FORMAT ~[P][C]©toRND8oLN [Q]©VAL ASN ,ATN LIST VAL$ # MOVE r INK 0} CAT w;G[B]/P©w(w1VAL w$5 LPRINT © SAVE [O]] DEF FN COPY DATA <=[P] COPY E CLOSE #▘BB▝APICC PAUSE ▘k' MOVE [P]CHR$ GO TO e▗▖U"UO[Q]<=[U][P]e[P]i%x▖W+OxUSR yx CONTINUE READ y<=y<=y!z[P] RANDOMIZE INK W▖zP5z▖zATN %UzUSR z FORMAT zUSR Y{WW%{@{=5{{p%USR {VAL C%{ LIST I<=X|<=XQ| CONTINUE <=w<=h}<=h}wn[P]P$RND▖~ATN ▜4RNDU▗(U%k▜FATN [T]FN CAT !PP+<= PAUSE OUT IN [E]IN ERASE IN [E]<=[D]<=VAL$ FORMAT [J]oJE COPY [C] LIST PI-P STEP %© FORMAT READ IN LLIST CAT O% STEP ▖[A]`o FORMAT PI~U LINE ▘ OVER [A]▖CODE `X[I]&U/ SAVE ▖+ MERGE #%▝USR OUT LIST MOVE %o CONTINUE INVERSE LIST NEW x@ CLS CAT 8 LIST [M]POINT "![U]! FOR _k FORMAT OPEN # GO SUB [P] DATA <= BORDER ©<= BORDER [H] DEF FN DEF FN 5 CIRCLE © CIRCLE <> PAUSE LPRINT |`|p|▗|[E]|FN |LN | TO | BRIGHT | LIST }}}$ CAT MH&u©>=B STOP >=~@ RESTORE [P]sH OUT [C]e▖~▖ LLIST ~>= OUT ▗ OUT ▖H OUT ▖ OUT [A]tx▗©LN [A]G FORMAT PAUSE ▜x[M]LN OUT INVERSE `P[G] SAVE OUT ▜[I]▙CHR$ PEEK CIRCLE USR 5~ LIST © FORMAT OPEN #%0©0 POKE / SAVE ▜1[F]T▘TTPH LEN ▝▜w3e▞x[J]PXEXP W INVERSE CAT [A] RESTORE OVER FLASH xcyx88( COPY ▛$yV@ Ax a▘GG9[Q]y^YUSR y^yyL RETURN 1"ylYTAN y2; OPEN #g[E]5Y NEXT T COPY RETURN CLEAR 0p! LIST LOAD 5 INPUT COPY CONTINUE BORDER NEW () PAUSE @ INPUT CONTINUE NEW @` @ CONTINUE INPUT 0 NEW USR LIST LOAD CONTINUE INPUT 0 @!@`) LIST INPUT 0 BP[P]9 LIST READ INPUT 0 c`IN @BIN 0 INPUT BORDER BORDER OPEN # FORMAT 0 PRINT % ERASE ERASE ' !USR @9 LLIST DRAW ) INVERSE B FORMAT `) LLIST % LPRINT OUT OVER 0 ERASE CLOSE # CLOSE #▘b LPRINT OUT OVER ERASE OPEN # OPEN # CLOSE #VAL CHR$ LPRINT @! `[C]@ 0B CLS r!) RANDOMIZE OUT @ OR COPY ) READ FLASH FLASH Y">[C]^VAL % CIRCLE BEEP BEEP VERIFY CIRCLE CIRCLE LIST @4@@p` COPY FOR FOR [Q]fAT ) CIRCLE I COPY USR 5 THEN BEEP BEEP vBIN FOR FOR DIM CLEAR % LINE @▚10f> LINE !@ H& FOR FOR GO TO p LINE ` LINE THEN hX FORMAT 9 MOVE IF hy EXP `ATN ▚ OVER [A]INT F COPY REM REM E STOP STOP FOR STOP STOP READ DATA y LPRINT A ! STOP F BRIGHT BRIGHT Hp !@ CLEAR DATA IN PEEK BRIGHT BRIGHT $H B FOR J▘ FLASH 4i c FOR I COPY FLASH |STR$ ) LET RETURN I COPY *TAN ( ,[T],A COPY :% FORMAT FORMAT ^LCHR$ p INKEY$n, LLIST LOAD LB OUT INKEY$ e LIST LIST INK INK LOAD INK INK CLS e MERGE MERGE OUT MERGE MERGE OVER OVER [A]@ LOAD 9 VERIFY VERIFY _VAL |COS [Q] 9 VERIFY [A] [M]B(X([J] CIRCLE USR 1[Q]@/G$G67 TO I CLOSE #T IF REM :GI) CLOSE # LPRINT y COPY 9 CLOSE #O] CLOSE # PAUSE ; LIST @%9 MERGE @ GO TO O[G][Q] [O]*▖ SAVE ,[O] VERIFY &[Q] COPY @[K] OPEN # BEEP 9 VERIFY Y COPY RETURN RETURN 0O RANDOMIZE >[Q] OH READ ,▞^ B PAUSE @ READ .I cWh STOP (@#j!0 COPY @@SCREEN$ COPY `. LINE 9 BRIGHT DIM COPY PAPER @_@ _1 5 PAPER DRAW DRAW @[N] COPY g0:_m THEN . STOP _ RESTORE MOVE THEN Gb _[S] igG! IF _$ _<= g LPRINT OCgY@ o` FLASH FLASH ,[L]T[I] INK CLS h#Op oP l8n^[Q]@_ VERIFY LIST XgPIG NEW 8 /[P] REM LPRINT oWRI LLIST DRAW w LPRINT w) LPRINT OUT 7v:< 5 OUT OUT COPY CLS $_Y< OUT _ READ o DIM g`AJ/ LPRINT wp _ LLIST j/©+ ▜%OABS O IF ▜@@ _USR STR$ g `▜9 FORMAT CAT CAT O[G] FORMAT & OVER VAL @@ COPY P ▜ 0@▜ COPY USR gai COPY OLN D COPY LOAD STR$ 5▝ COPY DATA %Y OVER CODE SCREEN$ E @ G LOAD RUN GO TO RUN LIST uUSR !X TO ▝ MERGE y_ OVER RUN READ Uib COPY ▛K"yABS yUSR b2_NOT COPY ▝> VERIFY pZJ▚ COPY LIST LIST LPRINT LPRINT USR z~z@ POKE q▗ RETURN OUT CLS r RUN SAVE <= LOAD X{ LOAD XIN CAT IN PRINT EZ▘;RND{PEEK {USR zB▝| VERIFY e RETURN y COPY || COPY u|▝e|USR FOR %@ OVER [R]%} OPEN #ATN I}[F]}~go~ COPY [B]~RNDa LOAD !E BRIGHT m0 GO SUB [F] MERGE POKE 7[I] POKE © CIRCLE COPY VERIFY u CIRCLE o OR NEW ▝PIc% MERGE BORDER qe/ THEN zX MERGE BORDER bEg@z COPY ©8%▝ COPY OPEN # LOAD S CLOSE #IN k@@P@ '~aSTR$ } BRIGHT xH}X LLIST x[A]CHR$ © LPRINT BRIGHT }[I] FOR m CIRCLE INPUT } BORDER FOR © BORDER REM ~X LOAD 8~CODE z CIRCLE BIN BORDER <=E REM ▜©© BORDER <=E MERGE zNOT [G] RESTORE ▝_LEN f[H]~ LIST BRIGHT ©>=z[J] OPEN #NOT BEEP OPEN #e DATA '▝©H DATA ▘[Q] RUN [M]B[M]yVAL y/zoez@NOT }[B] CLOSE #H2 LINE RESTORE > BORDER DATA "zU{ READ 6 LET NEUSR STEP - RUN VUUSR MOVE LPRINT SAVE LOAD mUSR CLS x5© DIM CHR$ 0i@POINT @P% DIM ~ CAT <=[A]) LLIST @ CLOSE # &©&©USR DIM ©@pDE NEW ▝ OPEN #▝G FLASH G OUT M MOVE @ )eLQ0 (*DILQZx USR ▗QZ{ BEEP 85 x[Q]▛ MERGE xUSR p P LIST 0 PLOT CAT ▘[%8 P LPRINT &Q2x A;@F9>I/x VERIFY y[O]x H{y<>Xzy DIM p CODE DATA SQ-z@i- CONTINUE M OUT CHR$ ^ASN ▖▖ COPY "D COPY D( GO SUB v[T]LN ATTR SAVE OUT N8 OUT Rx OUT VejjzzuP OUT ▚ASN x[A]z[I]zUSR x>=z CIRCLE MOVE THEN %{ INK STEP {<={ READ {@{@|@|@|P|P}P}P}`}`U~8^j▖▛U RANDOMIZE MERGE [N]|[A]~[I]~USR |>=~U<=▟U©©@} LOAD BORDER ©[I]©USR } LOAD BORDER LIST ▙0ACS PPEEK e~x@~0EPx~p[A]U[A]~[Q]~VAL ▘+u>=~USR STR$ ~ LIST ▚0 SAVE LOAD CLOSE # COPY COPY PRINT COPY k OUT % CONTINUE © LPRINT SAVE ▗ MERGE [A]lo LIST BEEP RETURN TO DRAW RETURN DEF FN PAPER DEF FN RETURN DRAW TO BEEP COS BEEP SAVE OUT >=<= OUT uxNOT ▜ STOP VERIFY BEEP BRIGHT ~x COPY OPEN #[A]RwR© BEEP r[A] ERASE [C]! SAVE ACS [N]%© SAVE VAL$ -1IN 3jbXCODE ][T] CLOSE #Uh©h MOVE ▖+5<l OR ©FN ©FN OPEN #▚USR LIST xl RETURN RETURN COPY REM CONTINUE ▗M4Y FORMAT MOVE LOAD fCHR$ RANDOMIZE | OUT e OUT 5>=}H▘ OUT }( OUT ▚E LPRINT OPEN #6<fez` INVERSE 6H LOAD zRNDz` VERIFY `p OR ~` CLOSE #SGN LOAD ©▖ RUN zEx©▖|USR V5©VAL ©USR $ STEP } LET LIST [G]a}@ OUT !▘}! RUN READ BIN BORDER [S]!▗~▗ OUT RND LPRINT /CHR$ HNOT Xpx Xx@X [K]{(▝ OUT ACS %h (SIN @ THEN ` STOP x qxIN Qx RETURN X y OUT DEF FN Ex)av▘+ PRINT x AND 9[G]yfyRNDQ FORMAT Q VERIFY q CAT 2 OUT >= RESTORE Y[T] VERIFY /yjL▘FFx> CIRCLE / OUT FN [P]FN ©[Q] BEEP ATTR BEEP COPY _(<=K OUT RETURN wi<= LIST @ BORDER ) BEEP K IN MOVE # BORDER z BORDER wI FORMAT BORDER PI BORDER [S] BORDER LN 9 FORMAT BEEP MERGE BORDER INT @@ BEEP PRINT CODE > ERASE OUT [S] OUT LOAD BORDER | BORDER G OUT STOP OUT STOP OUT STOP p AND BORDER 1PI CLEAR ©> GO SUB y!BEXP [m MERGE GO SUB VAL !<> COPY F<> GO SUB LN ! NEW EXP [A]~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL LLIST FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER THEN ?O0AN# GO SUB VAL COS THEN ?N8SGN 0=[U] LET NEXT NOT [A]M NEXT !6[A][ GO SUB VAL 1 RETURN [> CLEAR © GO SUB y!PEEK RESTORE MOVE 6IN GO SUB VAL >PEEK GO SUB G GO SUB ^>NOT 2IN IN GO SUB VAL <>!F[A] COPY [ MERGE NOT [![N]j"USR IN CLS STEP [G]/CODE 2 REM cB STEP VERIFY _*EXP j"^/ STEP AT STEP xdCODE 2 VERIFY j!" OPEN #j2 BEEP j STEP Wd STEP b STEP +k> COPY 2 MERGE j!6<=| STEP [G]k STEP 9s STEP PEEK lCODE 2Io*^/"EXP j CLS NOT [B]b> LOAD FLASH RETURN NEW TO CLS m 5 TO l TO rl STEP k:@l<2@l RETURN USR CODE ,ASN TO RETURN o<> FLASH RETURN COPY (<>z INVERSE dD% RETURN D% RETURN D,% RETURN DUx8@,!(@4F$x@0PF: REM cATN >=>© FLASH RETURN THEN _USR > CLS 5WUSR > RETURN 0NOT LPRINT q: VERIFY jO▜▝O CLEAR ! PAPER / CLEAR CLEAR ^ CLEAR V CLEAR ~ GO SUB SQn2ql<>POINT RND MERGE -?6USR ] OVER ABS BIN ] LLIST CAT LINE ] DATA E DEF FN ] BORDER 5/ OPEN #] REM 5POINT CIRCLE ] GO SUB 5] LIST IF ( RESTORE POKE USR LIST <=ABS DEF FN k5NOT ABS MOVE <>RND![![F]qm[A] AND (XHFi!LN VAL Sg:~S[R]x}P LIST `1[I]▝VAL EXP @SIN PRINT [I]18j▖yh BORDER MLEN FN !ha(<=@ FORMAT xLN -8E8▗[Q][B]I POKE [Q]1@b▗?0▞8 TO 0Pqhp[A]p[A]8[A]hp▖X▖ STEP REM ^ STEP NEXT ^ STEP DRAW ^ STEP _<> INVERSE FN uNOT u INVERSE !6P^P▚PVAL$ 0$ OR ,!<]"E]CODE 2H] CLEAR !RjCODE GO SUB K OPEN #j CLEAR n CLEAR fATN GO SUB B8< RETURN >= CLEAR # CLEAR # BORDER CLEAR q CLEAR py CLEAR !fATN ( CLEAR = CLS OR LLIST CONTINUE STEP sw CLEAR wd %0+0u CLEAR 6 PRINT CLEAR n CLEAR f"<] STEP IF d' RESTORE SGN LINE INVERSE !{f STEP miv>2e([G]>!2h CLEAR RESTORE >2a STEP [Q]g CLEAR LLIST :G] RETURN (BIN Ia INPUT NEW RETURN ( STOP : LLIST c CLEAR w*E]^#V#w FOR STEP CODE i FOR # DEF FN es#r:H]< CLOSE #% RESTORE >D[S]`D DVAL ▖D LPRINT U STEP h STEP ▖g:> STEP CIRCLE <>>5 NEW 28 OR *AT 5ATN ($= INVERSE FORMAT INVERSE + n INVERSE f INVERSE ~ INVERSE [O] INVERSE ASN CLEAR 6 ><>> COPY <>J]U PAPER STR$ INVERSE !ASN a9Lr>`oNOT /ZCONGRATULATIONS !&bYOU HAVE COMPLETE"bTHIS MINI GAME0+xKICK ANY KEY OR !X CIRCLE >`r OR Hb STEP Eb! CIRCLE X>VAL ESTR$ FORMAT >R INK <>vv<> RESTORE MERGE OR ~ NEW USR O~ NEW ATN (=LEN 8LEN #| RETURN [( RETURN FLASH ( BEEP STR$ LLIST MOVE :e NEW /2▗bv#5 GO SUB y[P]v STEP SAVE / STEP CIRCLE j: DIM cATN CHR$ / STEP Bl STEP Ql STEP ro STEP u STEP LLIST ^[G] PAPER >IN ,.5 RESTORE b TO POINT =5ATN LINE MERGE bSTR$ %CHR$ CAT b4 GO TO SCREEN$ U".c2-c/ INVERSE uX COPY u GO SUB VAL [E][E]<>2[N]j STEP n ERASE > NEXT vp NEW !USR @ LET [F] PRINT >o| OVER g LET COPY [F] INVERSE *;c*.c:-c[G]0c LINE Wc>▗g>o INVERSE 6 RESTORE CLEAR STEP LINE p LLIST $ RESTORE INVERSE % RETURN , LPRINT ;6%[A] H[Q] RETURN Z-[A]H CLEAR k#SGN [U]% INVERSE ~q@je GO SUB [ FOR c4[B]E RESTORE ~,0 LLIST STEP GO TO m INPUT 4 0E PAUSE p<32 PRINT SAVE STEP Ld<>* FOR c" FOR c<>tFU!@USR "Jv▗3%!AT G$GR>= DIM |e STEP Jh INVERSE ! NEW hLN 45v STEP eG1% LINE CIRCLE fGC5(-> RUN GK% LINE PAPER e 5 LINE h %() 5 LINE GO SUB d #e(PEEK [D]GNOT RESTORE NOT /=>> OVER 2 LPRINT c<>CODE RANDOMIZE v>O-5{ STEP USR O8$<>O%<>> CLEAR GATN GE NEW USR > OUT 0> OPEN # RETURN xLEN CLS CODE OPEN # RETURN /O@O* PRINT Tu"Uu<>C.SHIFTZuJCVASDFGQWERT1234509876POIUYENTERLKJHSPACES@VMNB!I} OR RESTORE p RESTORE MOVE GO SUB VAL SQR ESTR$ CHR$ USR e<>%NOT JhOVAL$ ESQR e INVERSE ! RANDOMIZE LINE ▜%!Dd~RND! PLOT j CLEAR s CLEAR r!T0 GO SUB Pd0 DATA P t00k@0▗0@INT b@@[E]0P@ W&5 INVERSE !/g LINE DRAW B5 LINE ~dOs"SGN OR GO TO TFALL OFCOS [F]MES,ZSST▗90eDZGMR%▗755/ZVV%%/▗2 EtZAVO▗0 ZF CIRCLE U▗0100WAT 7▖EXP %NOT xd^TURN LEFsUD_:T05RIGH▚TdFORWARD#EtFIRUt0U▗PAUSc▗>U[E]QUIT*ce_:TAN *{CORRECT ? (Y/N)©IN OUT LOAD RUN CLS CLEAR RETURN INK WSU CLEAR INK GPIugF GO SUB x/ NEW USR INVERSE # PAUSE CONTINUE "iW/ CLEAR !WeX THEN 0 STEP $[M] RUN THEN G(1 STEP }g5 THEN O('@%W(@%_(5U IF /W/WTAB EX MERGE CLEAR NW STEP 5~2G# LLIST c MERGE INVERSE LLIST GO SUB VAL CODE !@ STEP [D]i MERGE MOVE <>>v= DRAW <> ERASE _ LOAD USR E@ COPY 9VINKEY$bINKEY$ ERASE Q>G▚▟5w GO SUB VAL GO SUB PRINT >== RETURN @( REM REM BPROTAB eMMED BYi%$FSPEXP % SO©-J,[K]%MAS PRINT ▞uKARTWORK0/d FORMAT /mVAL /e[M]XMUSIC0/%AT _ '[F] ASN WD.J. %%[Q]1 CONTINUE BO" THEN RND[Q]2 SINCLAI`%[Q]3PSTON[Q]4 REDEFIN5 CIT[P]e-[Q]6 HI-SGN 7 EX PAUSE ETO DOPEEK UdCOPY$> BORDER [Q] READ 5 '96eATN >= INVERSE #G#%~<> E RETURN TO ti PAPER U ( CIRCLE INVERSE RESTORE Oe INVERSE LLIST INVERSE #NOT [D]iXASN INVERSE # DATA 2 DATA i RESTORE RESTORE o&)#>= FOR MOVE FOR : DATA i VERIFY INVERSE o INVERSE & RESTORE i INVERSE RESTORE STEP j LLIST ,CHR$ MOVE i LLIST q5▗g<>{[L]U OR MERGE [C] BRIGHT 1j$CHR$ %j MOVE STR$ <> PRINT RESTORE OR STEP INK pSTR$ LLIST LET <>* OPEN #jd LOAD U OPEN #j: BEEP j<w OR 8NOT Dw(#LBIN POKE W;=o>=w;,WLW~wJ% BEEP LLIST O9G INVERSE ABS CLOSE #ACS [R]w▜G CONTINUE NEXT PRINT GW INK 5 INVERSE RESTORE CLEAR RESTORE G5 PLOT :ACS % STEP USR GDw INPUT [F] CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET INK CLS o[H]: LPRINT /ATN CHR$ [U]/*LN w▗*INT w▗* MOVE w▗[Q]w▗5CODE 2 DIM cZ PAUSE OVER E<> CLEAR ! OUT ]w▜w5 CLEAR ~W PAPER _G1 MERGE GBIN O5 LLIST PRINT G BEEP % CLEAR ~p-_▞5"|k STEP ©OD% CLEAR ^_;RND CLEAR ~2[F]k<>! POKE t©STR$ Ep GO SUB VAL w▚%!>^G LPRINT (_[P]U DRAW /^© LOAD %![Q] INPUT G[T]5 OR MERGE GO SUB VAL MOVE STR$ z NEW CHR$ INVERSE k{ AND _ PAPER INVERSE kz VERIFY W READ OSQR `▜AT PRINT STEP Lj STEP 7w!JoKo'6▜2©>= OR Hm! PRINT "Im>2nlm!#m"DmCODE 2IN n2iu©[O]%2Alw INPUT 2p© BRIGHT ESn STEP ]OASN STEP al:nlATN LINE USR n=C<>@ OR >= PRINT STEP n LET NOT Ll:Al/BW<> LLIST ©2ASN :Cm RETURN LINE }lNOT [H]▜-5Cm:p<%CODE l=`%NOT PEEK l0[M]▜Cm▘ 5 RETURN LINE ATN ▜' >0(CODE 0/ GO SUB [Dm*Fm STEP ▝0G NEXT l POKE U RANDOMIZE l RETURN LINE COPY ▜T LINE iASN m RETURN LINE m RETURN LINE mJm▜VU DRAW NOT Km! CLEAR RETURN COPY $ INK MERGE RESTORE *QnL& SAVE ~$Vi$▚_ MERGE 9U STEP 3m:ql▜▜3C MERGE GO SUB SFm FOR RESTORE MERGE *Im:Hmw6% STEP Kqq5 GO SUB SImC NEXT STEP FN s MOVE LLIST RESTORE VAL$ w,VAL$ wO{QVAL$ w<>$| NEW USR } AND o CIRCLE | VERIFY g<>" NEXT "©Tn,bn8n8[R]n[R];o8 FLASH n8 IF n▘o<>:SnATN ( READ [F]ATN LINE <n=NOT Jn> NEXT [R]%Nn<OW %--" LOAD CLEAR p OPEN #uRn RETURN PRINT >= RETURN POKE >=$?+n$q0!$ !!,].?%:IN zIN ACS [H]BIN / CONTINUE PyE>= RETURN >=O NEXT Pz% ;"Pz[Q]@"%INT 6"A INK GSQR mpn& INVERSE % OR weATN LINE LIST o INVERSE 5wUPu~ INVERSE ▚ INVERSE w INVERSE ▚ INVERSE wg RESTORE ;U LLIST RETURN COPY TO RANDOMIZE o4 MERGE _:IoATN {CHR$ RESTORE o RETURN RETURN TO ASN sE5 RETURN CLEAR TO CIRCLE % DRAW TO CLS 5 CLS TO t% IF TO A PAUSE 09EXP g▛5STR$ <>g[S]z5 ▙Up INVERSE PRINT &[G]BpCSpOdpOupLN ▚pO[H]pOFN p[J]%EXP p<>g} OVER o SAVE NOT LINE p 0 CLS U AND o[A]~`"DPD OVER @" CLS [A]D SAVE " OVER U CLS " RESTORE INVERSE u INVERSE t INVERSE s INVERSE rNOT INK pv[S]$VAL$ <>>o">l STEP Wq*>l>▗©SGN q<>0 GO SUB P%oPp0 LPRINT %N%L& PAUSE H<> REM ATN >= RETURN NEXT >= RETURN COPY LINE INT q RETURN RANDOMIZE LINE ERASE q RETURN RETURN CLEAR DRAW CLS IF SAVE # RUN ( PLOT - PRINT 2 POKE 7 PAUSE LINE FLASH q RETURN ERASE PAPER u RETURN PAPER PAPER ▘u RETURN STOP PAPER zu RETURN REM PAPER ru RETURN PAUSE PAPER ju<> LLIST g TO CODE n8_ STEP r STEP /jNOT G/~}e LLIST <>:[F]kATN USR PIBIN U< RETURN LINE ▞aCODE <>%NOT ,/%v INVERSE wATN CGPOINT 6r0dSCREEN$ u MOVE STR$ INVERSE CHR$ r|>w DRAW 5o RESTORE G ©SIN E CLOSE #^! LOAD qATN ▙s COPY ©| LLIST FORMAT % LLIST RESTORE INVERSE "-©-©*E LLIST RESTORE $-©*P%,©#@,%,:%©P©0W%V©8©[B][H]©INKEY$ NEXT E SAVE v OR [A]SIN [B]U STEP voSTR$ CONTINUE CODE DATA [J]u CLEAR !I] INVERSE ! sATN %5ATN (G[P]D OR DRAW P GO TO GO SUB S FOR c OR ATN . RESTORE STEP isSTR$ LIST <> INVERSE w{ NEW PLOT @ DEF FN {%▘ DATA THEN ?E PLOT X INVERSE w5 STEP GO SUB c▜8 OUT CLEAR ▗]ex<> RESTORE PRINT INVERSE RESTORE IN ©5";c CLEAR G STEP OR b! MERGE j THEN ▙ CLEAR ▙U STEP tNOT at #60#AP#e[G] CLEAR !%sh[A]#^0FDPFe[O] CLEAR !*s[A]F▚0iGPieINKEY$ CLEAR !/s[I][A]iVAL$ 0JPeVAL$ CLEAR !4sVAL hPI U> RESTORE STEP MOVE tO%[N]CODE U STEP ;j STEP =cRND=G NEXT E INVERSE LLIST LET LLIST <>ATN ATN CHR$ NOT tW[D]N %VAL$ w0% LLIST PRINT ▜POINT u LET CHR$ [Q]t<>eCHR$ OR t<>O0@ RESTORE @E REM tyw,<>e ww CLOSE # PRINT %NOT uPEEK *[O]Zu REM [O]/[O]eZu RETURN NEXT LINE cuzjTAN <>_/NOT INT q VERIFY REM g.NOT [C]u VERIFY STOP g.5 PAPER g.5 ERASE g.5 LINE g. } CLEAR DEF FN OR ATN CHR$ [Q]u CLEAR THEN N>= RETURN CHR$ SCREEN$ UV>= RETURN CHR$ TAN ^ OPEN #CHR$ PEEK Uf>= RETURN CHR$ >=(Un>=:iu<OCODE RETURN CAT JiATN GO TO &PEEK ,f FOR u* CIRCLE %}▜<= TO MERGE /^ CLEAR CODE SGN LINE w<SGN LINE CAT v FOR AT ▚c@ vb[E]UATN CHR$ 5v,O5 COPY NOT &wMe| OVER gNOT /v Xv} AND o$#5| OVER gtNOT R[A]#~#o| AND gI%%>#x[A]F[R] F%| AND #I AND @I[L][A]lBIN v,| AND g# BRIGHT [P]yNOT PEEK [A] NEW v[P]▟ COPY h%-NOT LPRINT [A]ATTR Ew>▗[B]5o COPY [Q]ew LET %-w$0# COPY [P] CAT @ PAPER P MERGE GO TO BEEP [F]o,& FORMAT NOT ^wIN /e STEP [C]w>▘WIN 3PIN 7PIN ;5 MERGE FOR OUT R> THEN THEN GO SUB j GO SUB B0?= LET FOR GO SUB j FOR >0 MOVE <>o CIRCLE RESTORE MERGE o READ RESTORE STEP VAL w MOVE $ OUT SAVE MOVE LLIST <>{PI7PIATTR NEW SAVE ATTR gz5ATTR NEW <=ATTR ▛o BEEP [F]!FACS NOT pVAL$ NOT AND LEN ©tRNDTRACKER 2.1w[B]^GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{e[H] PAPER Z>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!)RNDY[A]P)0*@[ :0 BEEP LET J * *0 ,©:?X0ATTR Y SQR /K /PP.U NEXT RESTORE "eCODE RESTORE ~2 SAVE SIN 2 LINE LEN ##~#"CODE QE"CODE CAT CODE g PRINT RCODE O"GCODE LLIST "`CODE !bVAL$ cVAL$ w OR YCODE 2_VAL$ 2`VAL$ 2aVAL$ 2PSIN 2ASN SIN 2 PAUSE CODE 2qVAL 2 NEXT VAL 2KSIN 2VAL SIN 2@VAL 2CHR$ VAL 2ELEN G/2 AND CODE 2EVAL 2<=VAL >/2[J]SIN 24SIN ! LOAD TAB "USIN "INT SIN ";VAL "ABS VAL "@LEN STEP MCODE GO SUB S STOP LEN STR$ GO SUB s.CODE 1u COPY TAB > LLIST FOR BEEP !E# FOR = PRINT 5?VAL$ >VAL *?VAL$ "eSIN " LINE SIN " MOVE CODE "PVAL " ERASE VAL CLS NOT ILEN RUN BRIGHT u~▜ GO SUB suCODE E8 INPUT ▚▜# AND RUN PRINT RANDOMIZE LOAD [M]XE LLIST "SIN SIN m<>{▜_~0 THEN #~ NEW THEN Z PRINT 2hVAL$ LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O!?AT ~#fo THEN :8 GO SUB R<><>><(w RUN LOAD Ky<PEEK # ~2 THEN CODE #"AT CODE FOR x_@E TO CODE # INVERSE .[P]INT % STEP zCODE )E"bVAL$ FOR 1e IF 3VAL (& RESTORE COPY [O]{PI PAUSE VAL GO SUB DOPIM LLIST >2 LIST CODE CODE 2VAL go" RUN CODE "VAL LLIST CODE U INVERSE |2iVAL$ FLASH U~ PLOT 2jVAL$ ©z LPRINT ©JVAL VAL ©KVAL VAL ©d@©SIN p©[B][Q]©o LOAD ©©vVAL ©▖0©[F]vVAL INVERSE |!iVAL$ ACS wp▘k ▘{ STOP TO USR ▘ STEP USR ▘fB4LEN bLEN R LET pLEN % SAVE VAL LLIST LEN " SAVE @▘[Q]lVAL$ !oVAL$ IN COPY VERIFY !lVAL$ B GO SUB yC GO SUB ATTR =W[F]2oVAL$ <>CODE G>=R(>=("=CHR$ OR CODE !_VAL$ 5 PAUSE OR CODE 6uPI TO MCODE STEP ▛COS INPUT 52#SIN NOT `p STEP CODE TAN GO SUB SSIN 2▖ a7"SIN 0[F]ACS ASN GO SUB SSIN CODE 064 THEN CODE ]$<=POINT DEF FN CODE !52DSIN 1@VAL 6 PAUSE ;VAL 8▗%2[SIN <= FORMAT MOVE '%2k'ATN Pc. COPY D%go LOAD GO SUB %"JVAL ▟/IN $ CAT %2POINT eCHR$ eq CABS 0e0USR ePu%2 FORMAT r▖▟[J][C]TAB p~ OVAL$ CAT ]mVAL$ LOAD IF E LINE LEN CODE 2 GO SUB MERGE 2rSIN :SIN =(y29SIN CODE +>7FN <> CLOSE #E: LIST CODE OU( PAPER CODE 2G%>7<>▜%! COPY AT [S]U+5NOT ▛COS 1&o"▘SIN PIx PAUSE XCOS /2}SIN -@l o[U]%g"w% OR A VERIFY PRINT LPRINT LEN AND 8+ AND `8 AND 8gE1 AND @8 DATA OR ▙<(v<([K]<(VAL < LINE ▖ [R]5 CAT (%▖TAB O(%">SIN ▞5!?VAL$ ▜@e<=[<> SGN PIPI[F]K@SQR U( GO SUB RETURN ( LIST COPY aASN KSIN 2 PAUSE SIN 2 NEXT SIN 0 INK [T] SAVE X OR 2 INVERSE SIN : CONTINUE SIN = LINE 5TAN y2[O]$[J]$ FORMAT $EPOINT SIN :oVAL $[O]$E INK CODE 2 CONTINUE SIN ▘$INT "$CODE TAN 12$ BORDER $E|TAN /2 STOP r$ [A] B$ BEEP B$ASN B$ RUN RETURN &$ CONTINUE 0[R]CHR$ $[T]SIN ▞▘$ LINE FOR USR <>,*"$h$VAL @SQR [C]$VAL CHR$ $CODE TAN 2$C: LET E LET VAL (8 MERGE NOT lASN 2LEN :LEN = LINE lASN yM(J[D]5" TO VAL <>4.LEN . MERGE ▚ASN /2/LEN *o&0[K] D.. NEXT VAL + CLS l+&++J/,D+ OR g<(/<([S]<(COS < STEP PEEK 5 CLOSE #($▗&E CAT VAL NOT ACS ASN ▗& ERASE CODE BIN 5<=VAL <>>=4ELEN t4;4ACS ASN v@e RETURN `CHR$ $G POKE %▚ RESTORE G IF y%GPOINT G IF Yet [G]`[K] G PAPER [F]SQR MERGE COPY OVER LIST ) LIST E` CONTINUE O<=5 LIST ▜TAB % LIST LINE BORDER &$f$e▛VAL LIST PRINT O READ ASN + LLIST ©`TAB !ATTR POINT /ATTR +POINT FN ! READ ©eINKEY$INKEY$TAB SIN TAB INKEY$TAB INKEY$[U][U]ATTR VAL ATTR [U]ATTR [U][S][S]POINT VAL$ POINT [S]POINT [S]P%!pUSR 9-FN @K5SIN TAN /ASN KRND# NEW TAB ATTR !POINT ePOINT `FN eU@0eTAB ATTR % STOP `INKEY$ INPUT ©g▙ BORDER `▙[K][K] LOAD f0 INPUT LPRINT u BORDER `[I][I] LOAD f0 LIST e BORDER `[G][G] LOAD @ LIST @E LOAD h[I] BORDER `T #' INT eATTR +FN #POINT 'INKEY$ OR %FN +[U]v[S]P PAUSE SCREEN$ USR [P]%VAL #VAL$ SCREEN$ NEW TAB eTAB `ATTR eATTR `Rh' CAT SIN !ASN TAN #SIN 'VAL !VAL SIN #TAN +SIN #ASN 'TAN !TAN SIN #VAL PEATN #EXP 'ATN $P%! DATA :uASN TAN ASN TAN SIN !TAB @VAL TAN SIN TAN SIN VAL #ATN TAN !VAL$ SIN VAL SIN VAL VAL$ `@u!TAN eSIN `ASN eTAN 5?eTAN kASN eATN kEXP # DATA ©eSIN SIN !SIN SIN TAB ASN VAL uTAN SIN TAN #ASN ASN !ASN #fEASN ATN ASN TAN VAL %EXP #ATN ATN !ATN ATN TAN ATN %#%[F]! NEW ©`[K] [K][K]![K]! e[K][I] [I][I]![I]! e[I][G] [G][G]![G]! [G] FORMAT /HuVAL VAL$ VAL [Q] VAL `%USR `*E[Q][Q]5[Q]E[A][A]5[A] REM REM PAPER %0 LINE %@INT %PSCREEN$ %`[K]%p%z[A]j[Q]ZVAL JUSR : FORMAT * LPRINT % FORMAT STR$ [B]|Ep BEEP PLOT [Q]P@@ 0 <?[S]0b2`[C]22G"M[C] /USR [F] LPRINT LIST LPRINT +@ LINE +E[A]@ LINE ePPP+P<=*@STR$ eUSR USR " AND U[Q]b,%pheppA)Iu PAUSE POKE VERIFY D.CHR$ ▛©E@0 BORDER ATTR p LIST LET MOVE CHR$ SIN [T]Lb▜3 FLASH 9.$P9r RETURN COPY [A]▖ LPRINT [K] PAPER [A] CONTINUE I9 MOVE IF `} ▝ COPY CLEAR 9 RESTORE [Q] `%p RESTORE FORMAT LIST BORDER FLASH FLASH FORMAT [C]ZBi` FORMAT P@ FORMAT 5 COPY FOR FOR ATTR @` LPRINT @ ` " BEEP PRINT v STEP R;;STR$ ![H] FOR !f[H] CIRCLE !{0▞0@ MERGE INK ▜< RESTORE ATN H LLIST INK ~ THEN © : NEW O[H]▞< NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w Ge# RANDOMIZE VAL$ NEW ?F# CLS #[Q] INK !X' INK CLS <> INK w($ SAVE IN GO TO RESTORE AND 0 LPRINT =# DEF FN INK <> STOP ▖(HQQ[B][B]CHR$ [T]PIRND[U][U][S]STR$ [B]QHH$$ FLASH [S]<rt REM LPRINT >= STOP USR DIM LPRINT DATA LET LIST tLN [I] CONTINUE CIRCLE PAUSE FN STOP `BIN STOP LET CONTINUE CLOSE # OVER REM CLEAR BEEP ▖< LET [O]<▜@[S]IN U PLOT CONTINUE v CONTINUE PRINT ~|>A! ->{v}w}©:>=41 `USR ▖" VERIFY , INK VAL d<> MERGE C+&e GO TO FN @ H[Q] CLOSE # STOP CONTINUE ABS B▝1▗#-Z^!▜`T*D*[E]x?_ CAT CAT ▙[M]80p LPRINT LPRINT USR LPRINT +@)1▘ ;[K] NEW C$▗OTAB OUT p LIST 8▘ LIST q`▞@ `<8▗ [A]PUSR (▙▖HH▗[d[E]D[U]D▗USR >=((STR$ ▗$$o@F[L][%f COPY FORMAT )wW NEXT ▘ VERIFY CHR$ NOT (STR$ OR CHR$ k POKE w©;=SCREEN$ ?>} RETURN DRAW IF GO TO IF CLEAR RETURN RUN COPY CLS COPY PLOT RETURN DRAW DRAW IF SAVE IF POKE SAVE POKE DIM FORMAT CONTINUE SIN CIRCLE LIST DATA FORMAT POKE LPRINT REM LIST POKE LIST [N] CLEAR ▖ OR D STOP 2 PAPER POINT POINT Ud CLOSE #[S]LEN OR ERASE USR POKE REM LIST AND ( RND▝SCREEN$ ▝FOA,'LSW[Q]▛ POKE zIN ©?▝▖[A]HD#[A]'PI+VAL G[A]▘STR$ STR$ @NOT USR ![Q]AUSR DATA PLOT r SAVE BRIGHT COPY ? CAT cSTR$ 1(<SGN IF COPY RETURN USR COPY ▖© RETURN COPY CLEAR ©}?7CHR$ ?▘©©▘[P]▝NOT USR RO▟[Q]@[C]m: CLEAR CAT RUN CLS y1"[A]IN RUN DRAW RETURN RETURN ©<<=[T] LET SAVE GO TO CLS H FLASH COPY w COPY INPUT OR COPY ▝ [R]ATTR ▝[J]USR [Q]PFN POKE IF ©IN CAT BORDER RANDOMIZE v COPY ?▜ LIST U OUT ▘▙ LET CIRCLE RETURN © COPY CLS DRAW LET USR BIN [A] DATA ▘(C ERASE USR p POKE [J]DPOINT VERIFY RANDOMIZE RETURN RUN }IN OUT LOAD BORDER LET LIST SAVE >PI RUN LOAD PAUSE CLEAR SAVE RETURN F▗3▘ LLIST ▝@A REM SAVE PRINT IF W4 OR NOT E LIST `WqfCTINT FOR SAVE [C] DRAW @,© LLIST LET DRAW RETURN BORDER STR$ x6 FOR OR 3 DRAW LIST b[A]▘aA[U][Q] CLOSE # INK CONTINUE RETURN RETURN USR LIST !aBSTR$ f[L]PI_© COPY SAVE LPRINT LPRINT 0<| SAVE DATA x LIST USR @0![I]POINT [A]▗C ([R]ASN USR <`@[H][F][Q] FORMAT l<= STOP RND LPRINT RANDOMIZE IN [P]▜D"c OR !<=IN ▝USR ▖c CAT *U`"|VAL 0``USR USR ( FOR jCHR$ b!LNUSR ▟[I]"D▗ v(<808_ASN 9= RANDOMIZE THEN ▖USR `[A]0 MERGE !CHR$ ASN LINE INVERSE NEW [Q]0lSfyEXP + INVERSE RETURN FLASH LOAD CLS LOAD BEEP CLEAR _© SAVE POKE RANDOMIZE POKE RANDOMIZE IF COPY |~~©©~~USR RETURN [D] DRAW DRAW RETURN DRAW RETURN CLEAR |z|z<>=▛ PRINT Pc[E]USR aPI OVER 5MPEEK SAVE RETURN INVERSE CLS rASN [F]@▖@ OVER CHR$ |e LET ▘ ▖ GO TO ▘ @ OUT ([Q]▖0[E] LIST POKE SAVE NSTR$ |9<x PAPER =X,pp IF S RANDOMIZE c OUT COPY AUSR B▗▗STR$ ▘STR$ "QUSR COPY USR ▝STR$ ▝▗ CLS COPY P▘[Q]▖ FORMAT BIN DIM CLOSE # OR V[E] BEEP N?z^q/INT [U] COPY ASN IF IN ©{=7? DIM [E] IF TO z DRAW © LOAD N[F]PILN C[I] RESTORE GO TO CLEAR COPY REM [C]VAL gABS & POKE PAUSE INVERSE : DRAW NEXT SGN [[K] OR RETURN }H@▘+~STR$ NOT y BEEP CHR$ INKEY$ COPY AND ( CIRCLE ,nKINKEY$)BIN VERIFY COPY EAT © COPY <=<>©~ RETURN CLEAR DRAW SAVE IF PRINT SAVE CLEAR SAVE PRINT SAVE IF CLOSE # IF DRAW CLEAR RETURN RETURN COPY ©©? AND [E] COPY __O▜ BORDER COPY <=BXOAT CLS USR ▝CHR$ ▝COS <>INT [B][I]B FORMAT [U] PRINT LPRINT LINE LPRINT TAN LIST TAN ERASE SAVE ERASE x MOVE POKE a POKE IF OUT CLS NOT `C<= COPY <> COPY LLIST [O] MOVE STR$ A FORMAT @ AND STR$ Ji ERASE } LOAD @▜ SAVE STOP [I]E GO TO © COPY NOT [Q]▘ ©[G] CAT USR ?D[U]SCREEN$ PRINT RETURN ▘▚GEAT DIM [P] FOR SGN 0HCODE UAT VERIFY ©C▗©©IN OyUSR OUT ▟h OPEN #▜y[E] PAUSE COPY ACS ▝[R]b▜ CLEAR DRAW Yx@ LLIST ▛©▗ OR SAVE MAT I[F] GO SUB A LET /© MERGE GO TO ixUSR INK [D]`O▝O RETURN IN iABS REM [D]|c !USR QCHR$ yG< BRIGHT DRAW LOAD CLOSE # GO SUB [A] SAVE ▗ MOVE @ CLEAR &CHR$ IN GO TO [B]0.3 LLIST 0 AND 7WIN REM REM [J]▗NOT ? CLS ▝USR ▖-R INK |[N] RUN NEW [G]; MERGE ?<USR SGN CHR$ >=x>! LOAD GO SUB |@ OPEN #[J] CONTINUE LPRINT LEN ` COPY @▝ LIST o GO SUB © RETURN READ [F]USR @p▙[B][Q]= COPY <=VAL ERASE ▙#`a RUN PEEK LN ▝ BORDER y@ MOVE ▝5[H]@[O]x▗#0@[D] INPUT ATN a[N] CLEAR COPY ~ATN LLIST [M] TO wt@[Q]@f NEW 5 CLEAR RETURN OVER COPY o$ RANDOMIZE M COPY RUN LOAD INVERSE 5<>k! REM [D]JSCREEN$ ▙ RUN OVER z[I]$BIN NEXT qEXP OVER RUN CLS SAVE PAPER ▘pb▘▛[T]B COPY [I]z BEEP OVER DATA Ed[Q]|{ CLS IN RUN |@<=RND CONTINUE EXP ' VERIFY R▞CODE [M]=<=C▛& LPRINT CUSR <>wm BRIGHT f▚ COPY SAVE RUN LLIST IF ▗ CLOSE #POINT # CONTINUE !KS<[p CLOSE # CONTINUE I SGN | CLEAR 7▛ RETURN M©LEN ATTR RESTORE <>TAN COPY CACS d>= TO [P]VAL$ "@ DATA [E]?`[E]8[I]ATN SQR pbm5) CONTINUE FLASH RETURN { DRAW PLOT GO SUB COPY SQR STOP DRAW POINT 9[B] COPY COPY SGN | COPY G% BORDER GGIN STOP ^TAB GO SUB ▖d50USR DIM ▜%USR ;J▝ySTR$ >`VAL DUSR ▚USR 8USR SAVE ▙# BORDER [G] LET LLIST [A][A]HHD NEW [H][Q][Q]P`[T]AT OPEN #hATN `@[Q]>=d4[K]Jd[L]5 FOR ▚USR OVER ,@ DIM USR COPY ▘ BORDER BORDER CIRCLE COPY INVERSE x(x INK xhxX INK (USR x CIRCLE xUSR MOVE x@x CIRCLE INK A@)HP"USR y5yy[I] CONTINUE y%z(z4%zhz4 PRINT zUSR zUSR CONTINUE ▚ PAUSE [G]k OR 5 THEN 8 GO SUB &,YR& [E] OR P[Q] LPRINT USR @ LIST USR ▜8wUSR @ATTR 3" GO TO ▘ RANDOMIZE L▘@@USR q REM ▗0>=p▖<USR ▞@@▝[O] LPRINT |▖ PLOT ▜ LPRINT & CIRCLE AT LIST G LLIST [F] FLASH AND ▗O PAPER % TO BEEP LPRINT STR$ USR FN FOR [M] LPRINT VAL >=6 STEP 3 TO COS LCOS lCOS /CODE USCREEN$ WATTR _VAL$ WATTR USCREEN$ NOT ▚ VERIFY [J]@ LET 9 CAT 3 STEP , INPUT PEEK VSCREEN$ VSCREEN$ UATTR WATTR INVERSE CODE RUN FOR 8CHR$ STR$ STR$ `Hj▘USR USR o THEN ▘ LPRINT >[C]▘ TO CLS DATA [T]N3SQR /STR$ !"SGN LPRINT @▝d THEN ▚b▗▗▖7#IN REM ▜8 POKE LET 9x*[G][I]▖[A][B]Qcca 0PI▚▗[L] PRINT (HD▗ OPEN #▞D▖▖"!sUSR ul? PLOT `g>=i▙#DBIN ▛>= FORMAT RUN RESTORE CLEAR COPY p;USR THEN [D]'((CHR$ " NEW ) OPEN #< TO 3 TO TAN >=p`Ag[B]dR[C]RD[U][R] STOP E<$ FORMAT `>[A] LLIST D;RB,2B POKE (BIN 0`]9[P]ySQR NOT ▘USR hS©[Q] SAVE COPY STEP © LIST © LIST INK P CIRCLE P<>© LPRINT © LIST ▝ BORDER NOT 5pUSR 1`%`7`C RESTORE <> CLEAR COPY OR ▘mK OR ▗[. BEEP [B]&JIJ"%G[S]<P$h-[A]x▜ " BRIGHT 1JB4LB/#`L[E] NEW W MOVE uBIN "# MOVE LOAD PI LOAD Z BRIGHT `o[D]USR 0▖ DATA CDg[E] THEN <3 TO 3-BIN [M]1W COPY ▞▛<=<=▜[D]a! CONTINUE =>USR ?[B]{SQR ©IN ?&IN ©▝ SAVE 7 RUN ▗p`'_l©[T]EXP STR$ OUT STR$ LOAD ▖ RUN wwEXP OVER OVER INPUT LOAD BIN RUN ▗ BORDER NOT KRND.x▝x: OPEN # COPY ©?IN $s▗~>uUSR LIST SAVE DRAW RETURN $▚BIN OUT slUSR CLS USR CLEAR USR RETURN ▘ DRAW DRAW dATTR |COS TO [A]BIN USR LPRINT @H MOVE COPY [B] CLEAR IF o/sL3< RUN CLEAR REM MERGE REM MERGE SCREEN$ SQR PRINT LOAD STEP STR$ LIST USR SAVE USR DRAW STR$ RETURN =▘ OPEN #ln▚2 STEP 6 STEP : PRINT @U REM MERGE IF uF DATA AND ▗@USR @USR CONTINUE E©BIN <>S}=▘ PRINT DEF FN MERGE SCREEN$ Uj5*5yPI▝W▚v COPY IF INVERSE GO TO ▘ PRINT IF !▘z>=[C]vPEEK ^PEEK |SGN ^PEEK _IN _CODE _CODE WCODE W ▘_IN DRAW ~ OUT LOAD TAN * ©VAL$ [L]▞USR STR$ LPRINT ▘STR$ STR$ ? PAUSE COPY NEXT BIN ▝ COPY STR$ ▝ LIST CAT ▟CGG<= BORDER _CODE OUT IN OUT &USR ©[D]? CLOSE #G<RND INK ▗ SAVE SAVE LIST LPRINT LEN ~=[N]. DEF FN RETURN RETURN REM VERIFY GO TO CLOSE # GO TO CLOSE # REM PLOT FOR PRINT COPY CLEAR FOR PRINT INPUT RANDOMIZE PAUSE CLOSE # PRINT OVER AT CIRCLE FN pw+~}qRND CLOSE #~ABS FOR ~ CLEAR FOR ©=} OPEN #e CIRCLE COPY v[Q]▝ COPY FORMAT $▟ OR FORMAT %_[I]<>@x@0( TO DATA [M]z STEP ExUSR |NOT BEEP y LIST J LIST ^ASN CIRCLE COPY zUSR DRAW } FOR }USR [F]u TO &L~R}<![M]/s©©Wk7+7+Wo BEEP CODE COPY IN BEEP CODE w[P]O+CODE {5[C]$▝USR STR$ CHR$ STOP STOP READ BORDER IF PRINT CLS CLEAR CLS COPY RETURN 7POINT ▘ DRAW SAVE COS USR ▝ CAT ~USR [A] OUT LPRINT USR p FORMAT FN X SAVE p LET BORDER SQR STR$ LPRINT SAVE COPY LIST CAT IN ▗©gWwo[C] BEEP n}z}>=z} IF CLEAR IF PRINT IF PRINT REM PRINT REM "TAN IF CLEAR TAN OR ?~ CLS RUN -[E]~STR$ @[A]U VERIFY !VAT TAT XFN PVAL `[Q]`[Q][U]AT ▚n COPY _SQR WATTR AUSR vS INK BEEP [R]U▝ LPRINT RESTORE g DEF FN CLEAR ▜[R]▗▝s<=C▝s MOVE G▝CSTR$ F▝FSIN xLN DeDx @>=C BeBx`STR$ E& RESTORE Exx`xUSR OR 8p LPRINT STR$ A8%Ax LPRINT ( ,@ %` FORMAT GX LPRINT ) LPRINT ySTR$ Y[Q]y LLIST COPY G OPEN #G STEP BEEP !@@u GO SUB VAL 6G COPY GO SUB VAL CLS v NEXT STEP w OPEN # STEP BEEP INVERSE !x CLOSE #&R STEP NEW ERASE bk GO SUB VAL RETURN © GO SUB x>=2▛ OPEN #>2RND ERASE >2INKEY$ ERASE >UEXP ERASE (&@ /e STEP G CLOSE #&F9LEN e> DEF FN />">/<> OR INVERSE n INVERSE #& INVERSE THEN 0q}-ro SAVE U IF $ INVERSE # INVERSE ^'0,#,(0'/50,/STR$ CHR$ CONTINUE ERASE <> GO SUB sD CLOSE #1USR CLOSE #> RETURN ? >8 INK DEF FN 2© OPEN #▜O!© VERIFY ^#V FOR "Q CLOSE # MOVE {ACS w,z2$| NEW CHR$ LIST OPEN #} AND o8| VERIFY gO-O-2 O? CLOSE #pOECHR$ [R] OPEN #1 FORMAT %b CLOSE #% !E> MERGE ▚W07 RESTORE ▚P OUT 0&<>! S(AB@$KS ERASE 9+U%+CODE I2+7RQ?,I R &CODE @I© SAVE LPRINT RUN ▝ COPY USR ©USR USR LIST USR LET USR LPRINT LIST ASN USR SAVE LIST LPRINT LIST x LPRINT STR$ px SAVE )ASN NOT USR |> SAVE DRAW |<USR <=8 SAVE <>ASN <=>| DRAW DRAW DRAW > CAT T[F] DRAW >?? DRAW aASN CAT ~ DRAW RETURN RETURN DRAW DRAW OUT 0~}E OUT ▝ SAVE DRAW PI BEEP % DRAW LIST 8~00pE CAT USR DRAW <= LIST p8%~ LIST ?5 SAVE DRAW COPY BIN % CLEAR >BIN % LPRINT DRAW TEA SAVE LPRINT OPEN #5 LPRINT ©[P]M PAPER %USR CAT ECOS ??STR$ USTR$ STR$ SAVE < LPRINT y DRAW LPRINT BIN E CAT USR 5USR 7 CAT FN % FORMAT ~>CODE NEW 5>~[A]FN 5 CAT 7USR FN 5USR w LOAD FN %>BIN u<[P]USR BORDER gP[P]< DRAW DRAW USR NEXT READ STR$ 8U READ NOT NEXT LPRINT < RESTORE LPRINT LET NOT COPY COPY ▝ SAVE LIST 8▝ LPRINT USR <= LIST | SAVE ▝CODE OVER ▝RND COPY COPY RETURN > DRAW ~©▖9▖<▖>FN 9FN ;FN >>=8>=;>== CONTINUE 8 CONTINUE : CONTINUE = CONTINUE ?BDF(A(C(FH@HBHDHGh@hBhDhF▖@▖B▖D▖FFN @FN BFN DFN EFN G>=A>=B>=D>=F>=G CONTINUE A CONTINUE B CONTINUE C CONTINUE E CONTINUE F CONTINUE GHIJKLMN%O(H IJ[M]!3 LLIST NOT ] INK NOT COS BRIGHT PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙▚Bwpkd^YTOKGB?;852/,*'%#! BORDER [O] BEEP COS I[A]P)0*@O CAT :0kJ * *0 ,?X0ATTR Y SQR /K /PP.U NEXT RESTORE "R PAPER RESTORE ~2 RESTORE INVERSE 2ATN BRIGHT ##~#" PRINT INK " PAPER STOP v#"? PAPER O"4 PAPER LLIST "M PAPER !O INK P INK p GO SUB VAL CODE 2L INK 2M INK 2N INK 2= INVERSE 2[S] INVERSE 2 OUT PAPER 2^ FLASH 2 LPRINT FLASH 28 INVERSE 2[N] INVERSE 2- FLASH 2CODE FLASH 22 BRIGHT G/2COS PAPER 22 FLASH 2TAN FLASH >/2▚ INVERSE 2! INVERSE ! BRIGHT CIRCLE "B INVERSE "PI INVERSE "( FLASH "SCREEN$ FLASH "- BRIGHT STEP : PAPER GO SUB S CAT BRIGHT STR$ GO SUB s PAPER LEN u GO TO CIRCLE > LLIST FOR <=E# FOR = PRINT 5, INK >VAL *, INK "R INVERSE "ATN INVERSE "PEEK PAPER "= FLASH "IN FLASH CLS NOT 6 BRIGHT READ 5~▜ NEXT PAPER E8 INPUT ▚▜# AND DRAW RANDOMIZE LOAD XE LLIST " GO SUB BRIGHT INVERSE <>{▜_~0 THEN #<=d<=e THEN Z PRINT 2U INK LET ~ NEW #ng INVERSE b FOR INVERSE }▚▜O!, BEEP ~#fo THEN :8 GO SUB R<><>><(w LOAD fomy<PEEK # ~2LN PAPER #"[J] PAPER FOR x_@EEXP PAPER # INVERSE .z% STEP g PAPER [I]E"O INK FOR [Q]e IF FLASH (& RESTORE RND!{PI PAUSE COPY PAPER GO SUB DOPI GO SUB B0 LLIST >2 INVERSE PAPER CODE 2 GO SUB PAPER go" DATA PAPER " PLOT PAPER LLIST CODE U INVERSE |2V INK FLASH U~ PLOT 2W INK ©z LPRINT ©7 FLASH VAL ©8 FLASH VAL ©Q@©[P]p©~ FLASH [A]©U/ FLASH CODE 2l FLASH ©c FLASH ©u FLASH ©[F]c FLASH INVERSE |!V INK ACS wp▘X ▘{ STOP EXP USR ▘INT USR ▘SB! BRIGHT b BRIGHT R OVER ▝ INPUT ▝% RESTORE FLASH LLIST RUN 0▘ RESTORE @▘[Q]UY INK !/ INK o[D] CLEAR CODE ACS > VERIFY !Y INK B GO SUB yC GO SUB ATTR =WU2/ INK <>CODE G BEEP LEN =R(>=("=CHR$ SIN PAPER !L INK 5 PAUSE SIN PAPER 6uPI TO : PAPER STEP x OVER INPUT 52 INVERSE NOT Mp STEP [M] OUT GO SUB S GO SUB BRIGHT 2u N7 INVERSE 0[F][T] LPRINT GO SUB S INVERSE CODE 064LN PAPER ]$G PAPER %"SQR PAPER !521 INVERSE 1- FLASH 6 OUT ( FLASH 8▗%2H INVERSE 'PEEK '%2X' FLASH 9 PLOT D GO TO D%go LOAD GO SUB %"7 FLASH ▟/IN $e:N%2[G]eCODE e^ CSCREEN$ 0e0TAB e=u%2ABS ru▟▚[C][K] pk O INK TAN 5Z INK >©%CODE 2 PAPER MERGE 2_ INVERSE :p INVERSE =(y2& INVERSE CODE +>7FN <> CLOSE #E: INVERSE PAPER O(pG%>7<>▜%! GO TO BEEP [S]B+5NOT x OVER 1&o"o INVERSE PIx PAUSE E OVER /2j INVERSE -@Y uog"d% OR A VERIFY PRINT STEP BRIGHT AND 8+ AND `8 AND 8gE1 AND @8 DATA OR ▙<(v<([K]<(VAL < LINE ▖ [R]5 CAT (%▖ CIRCLE O(%"+ INVERSE ▞5!, INK ▜@R<=H<> SGN %PI<>CODE 00SQR U( GO SUB RETURN ( LIST >D[F]2 OUT INVERSE 2 LPRINT INVERSE 0 INK [T] RESTORE X OR 2 LINE INVERSE : MERGE INVERSE = LINE " OUT y2▛$▚$ABS $E[G] INVERSE :/ FLASH $▛$E INK CODE 2 MERGE INVERSE ▘$PI"$[M] OUT 12$ CLOSE #$Ei OUT /2 CAT r$ } B$BIN B$[S]B$ RUN FOR &$ MERGE 0[R]CHR$ $[A] INVERSE ▞▘$ATN FOR TAB <>,*"$h$[N]@SQR [C]$[N]CHR$ $[M] OUT 2$C: OVER E OVER FLASH (8 MERGE NOT Y LPRINT 2 BRIGHT : INPUT FLASH = LINE Y LPRINT yM(J[D]5"EXP FLASH <>4. GO SUB FLASH . MERGE s LPRINT /2 BRIGHT *o&0▜ D.E RUN FLASH . LPRINT FLASH + CLS l+&++J/,D+ OR g<(/<([S]<(COS < STEP PEEK 5 CLOSE #($▗&ESGN FLASH NOT [T] LPRINT ▗&IN dEXP > COPY 42 BRIGHT t4CODE [T] LPRINT v-& RESTORE PLOT XINT ~ LPRINT B[U]G OUT 5h LINE %u,/QsSCREEN$ OOSIN CODE SAVE E[P]] CLS U0 RESTORE COPY STOP k[D]EXP LIST 4[D]ACS FLASH 7 e@C ERASE _ASN DATA ©`EXP ATN #ASN !ATN %TAN !RND'TAN !ASN TAN #SIN !TAN %SIN 0 OR VAL %SIN ! LLIST ©a[F] READ `[R] STOP LLIST 0bUb[B] READ `[N] STOP !E p! RESTORE ▛$▛LEN TAB ATTR #POINT !ATTR %FN !RND'FN !POINT FN #INKEY$!FN %INKEY$0%[U]%INKEY$N NEW ([F]POINT RESTORE POINT NEW ATTR FN RESTORE FN FN NEW 0uFN NEW POINT FN INKEY$ RESTORE INKEY$ NEW INKEY$@[U] INKEY$' BORDER ©`POINT POINT ]INKEY$)[U]"xYPOINT LPRINT !POINT LPRINT POINT x^FN #xw[U]xjINKEY$+ LPRINT AT '^0)u([U]! BORDER STR$ % NEW STR$ USR #SGN /PEEK ! RESTORE z`TAB zATTR #zPOINT !e% DATA zFN !p'0#U#zINKEY$!&%0VAL %[U] E! READ ▞[F]VAL [B]VAL #5©c[R]TAB VAL [N]POINT VAL %`J# CONTINUE m5!TAB #ATTR uATTR -TAB %POINT !POINT #q%FN +POINT @ 5FN ATTR 'POINT "[A]=[U]"RND-FN _p! DIM [U] REM OUT 3[U] [U][U]![U] READ Q▞ LPRINT [F] LPRINT ▞ LPRINT ![F] ! m LPRINT [B] LPRINT LPRINT ![B] ! ERASE % FOR ©`E "# OUT q LIST [F] LPRINT FORMAT USR VAL COPY ;* RESTORE LIST LPRINT FORMAT USR ( b-e BORDER 5&PEEK p STOP COPY DATA &[K]E[Q]VAL )03[Q][A][A]pp``P5@0b` 0[Q]PP80ASN 00Aw FOR <`0P9`YBIN [A][B]`[E]0b`Y``G0Y0MPOINT ERASE &#[Q][Q][Q][Q][A][A]k[F]pp+POINT @ DRAW [T]+"4ATTR [E]VAL$ [Q] d` OPEN #[A]<=STR$ VAL$ LET OPEN #TAN [G]wY91B RUN READ VAL P@0$ABS L USR [Q]`@0Gh&%, DIM %B INK O[J] COPY IN E▝ COPY USR COPY E CAT ▝NOT ▝ RUN [J])!0%▝CHR$ ▝(H MERGE ▝ RETURN USR USR ▘▝ RETURN 0NOT CIRCLE XUSR ASN H TO 66 SAVE ERASE ▖▞▗@ PUSR INPUT DRAW ERASE ▝|>=D▝▘#▗(D▘ USR BIN ▘▘SH RETURN > ERASE "▝B FORMAT -▘ @xUSR `USR x LLIST ` LLIST pUSR YTAN x LLIST Q[F]XUSR A COPY 1!P!z:;Z!Fy[R]Q[R] MOVE ▗▘D(xy[R]▘ SAVE (/23 TO Z▝x LLIST 9[R]1TAN ▝ RETURN FLASH [P]7ba!g!#( MERGE [!+IPI#a MERGE ▝ COPY Q[R]▙*p!{( REM # IF !ASN hUSR BRIGHT YCOS p<>|@|yASN RUN BEEP OR >=▝ DRAW © FOR FOR |LEN FOR OUT % COPY IF DRAW ~[R]$EXP L= 5 THEN COPY 8% BORDER 8~ll9%$~$|P|T|bd6f<$:fc~8V9j COPY ▚oU(|(QHy@,|YjE0`<=u AND LINE ERASE STOP RETURN RETURN ASN RETURN RETURN RETURN USR USR RETURN RETURN DRAW DRAW RETURN CLS RETURN 5USR AND AND RETURN {% RETURN AND USR RETURN RETURN [F] AND 8p LPRINT LPRINT ||D|@&CODE < INPUT LET G~h(G>IN ? DIM z<B OPEN #gI#<JV^@</w;_ LOAD Gpxlx|f~|6vp6`px|n%||`<[F]xx`` >`o u@cc©©ccY`ASN l||bgn||~gb@)`e||Bg©©k(uFfv~nff GO SUB 5>6©©ppP2uzl~wc~|ng8~~)%@`fu~<cw6>x RESTORE `ck©©s! AND INPUT |8| INPUT AND f<(%©© ;>5p▝BIN [G]5}iU LLIST STR$ CAT <i5c} INVERSE UNOT c▙ GO TO Fp UwaFu RUN coJ@6@Jo OVER 5 RUN CAT `RUSR Ro RETURN 5 READ f CAT b``bw5STR$ CAT GO SUB FORMAT [Q]e OUT } LIST <$E GO TO BORDER AND v5 CAT =WAT ASN CIRCLE o INK CIRCLE 8 DRAW c 5ASN | INPUT /cc^ INPUT 8RNDUSR AND w6cAT INPUT AND MERGE RANDOMIZE ASN OVER DRAW ;6c DRAW v DRAW RETURN 5l SAVE _ PEEK SAVE %8 BRIGHT LOAD % STEP OVER BRIGHT E DEF FN Ga CAT 25▗▙ DEF FN pIIJPOINT L[A]9NEXP K[A]MOmI Y@Y`YY[Q]YUSR Y LPRINT |@>= PRINT = PLOT < RUN WGPOINT OUT SAVE OUT STOP OUT NEW 9YYYYYYYYYYYYYYYYYYYYYYYYI17TAN HSfTfUfVfW▚P▚Q▚R▚S▚T▚U▚V▚WINKEY$PINKEY$QINKEY$RINKEY$SINKEY$TINKEY$UINKEY$VINKEY$W AND P AND Q AND R AND S AND T AND U AND V AND W NEW P NEW Q NEW R NEW S@ABCDEFG5uHIJKLMNO5uPQRSTUVW4@SjTjUjVjWPQRSTUVWSCREEN$ PSCREEN$ QSCREEN$ RSCREEN$ SSCREEN$ TSCREEN$ USCREEN$ VSCREEN$ W LINE P LINE Q LINE R LINE S LINE T LINE U LINE V LINE W REM P REM Q REM R REM S7 DRAW ▜2PIt POKE %8w FORMAT E VERIFY AND RETURN AND wJwaEkc© OR c1? OR 1USR USR %USR g▘USR `` LPRINT LPRINT `USR LPRINT VAL 0 LIST LIST 0[P]ABS LPRINT LIST X SAVE IN Hp SAVE AT DRAW ^Es PAUSE ~xw>=9y?xUSR USR USR <z_aASN LPRINT LPRINT USR gOASN p LIST 0 LPRINT USR IN [I] CAT e SAVE [I][A] LIST IN AT LPRINT PI;| TO >= SAVE xp[P]k©@E NEW DATA DRAW RANDOMIZE 58 SAVE %fo% DRAW SAVE © BRIGHT e~373[C]© CONTINUE >eUSR ?©wASN USR LPRINT USR G> OR USR ` LIST `USR ▜ RETURN MERGE USR LPRINT 0x0 LPRINT USR <=ASN LPRINT LIST [I]SGN [I] LIST _. OUT ▖[F] SAVE TO OVER TO SAVE <=Qp RETURN PAUSE /p9"p$5< DATA o PAUSE $EUSR @ LPRINT p$ LPRINT 0Ppp$ LIST [I] MOVE 8"p%p SAVE TO ▜EXP CODE D SAVE DRAW NEW ▜J▜ VERIFY b SAVE k▜g[A]R SAVE 5 INPUT [A]R SAVE INPUT [A]R SAVE %`[C]o OUT B SAVE %VAL [C]R SAVE X INPUT [A]R SAVE AT o[A]0E~O DEF FN LPRINT BE?'ghpBeUSR 3>AT 2eUSR LPRINT USR AT 2u LPRINT LIST LPRINT w["U LIST xpATN =l%<8 CAT >=E DRAW [O][M] LOAD D? PLOT ? CONTINUE FORMAT DRAW { FORMAT DRAW %= CONTINUE 2 FORMAT DRAW %USR CONTINUE " FORMAT DRAW %`` CONTINUE ©u SAVE lE0VAL 0r4Q DRAW DRAW % CIRCLE [I]r4Q~ DRAW GO TO ~>= LPRINT v DEF FN RETURN ~4%|g RETURN ?F8 LOAD 3 RETURN BRIGHT ▙ RETURN ▙& RETURN v&&EUSR pxv&&E LPRINT 8<&&E LIST [M][O]BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN BBBD? PLOT ? CONTINUE FORMAT DRAW { FORMAT DRAW %= CONTINUE 2 FORMAT DRAW %USR CONTINUE " FORMAT DRAW %`` CONTINUE ©u SAVE lE0VAL 0r4Q DRAW DRAW % CIRCLE [I]r4Q~