| Is a part of release: | Earth Shaker |
| File size: | 29952 |
| md5: | 03d8053608280c35ae8b74a1f2f28adc |
1 CLEAR 24999: RANDOMIZE USR 8: REM !@@ COPY CODE OPEN # RETURN w GO SUB VAL NEXT !USR GO SUB [ POKE / STEP = STEP USR !xi GO SUB [ POKE /f STEP =CODE 2H/00 BY AGAEV E CLS >=v CLEAR OR !X~ATN (= NEW w#xLEN PAUSE v CLEAR STR$ READ NOT xiRESTORED BY AGAEV E. AFTER POLISH FUCKERS!
65529: REM THIS GAME WAS TRANLATED FROM ENGLISH INTO RUSSIAN BY FFC COMPUTERS. REDISKED,PACKED,RESTORED BY REMIX SOFTWARE (AGAEV E.). BIG FUCK TO YOU, SILLY HACKERS! SCREEN$ ARTH" LINE 14E4 LINE RND_RND_ STEP $ TO NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !# TO COPY COPY [S]<> GO SUB LN !^ POKE USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT INPUT ▗2NOT [Pp0▞e LPRINT BRIGHT e[J] BRIGHT eNOT ▝[D]0? SAVE [2 SAVE [0? OUT LOAD LET <= SAVE BIN T▙0W REM e BRIGHT ` CLEAR UeA▘ BRIGHT '▞ RUN NOT CLEAR DRAW [J] P▖`@USR W REM [M][B]LEN O[I]` INVERSE AT INVERSE INVERSE INVERSE AT ▜ INVERSE LEN INVERSE [B]J VERIFY FFhO[I]INKEY$ LINE [J]O[I] LINE [J] LINE INKEY$▗ LINE [J]J VERIFY ▖TQF DATA IN T ▗ STEP CIRCLE GO SUB Pp0▞L OPEN #Lah OPEN #L1[D][Q] TO LIST TO DRAW TO < INPUT q<=8A T TO L`` OPEN #@ IF SCREEN$ B▞` FORMAT OUT INPUT w READ ▝ RETURN @▚[Q]L` OPEN # USR P▖▝ TO hSTR$ [E] [M][B]_ AND [L] DRAW r READ ?ACS DEF FN READ ACS ?ACS READ ACS READ DEF FN ▜ READ ACS _ AND READ [Q][B]! OR $$g[I][L] DRAW ([K]&[L] DRAW [K]&[K](▗[K]&! OR ▖@$[B]$tIN @ ▗ GO TO [L]mTAN Pp0[B]0(&1 INPUT q0?USR LPRINT 8nq ▙ FORMAT GO TO USR TAN GO TO ? RETURN 4 GO TO ? BRIGHT ▞4?USR LPRINT DRAW 4 X7 GO TO 4 <▘ PRINT D[C]p1 DEF FN q© BRIGHT INPUT w NEXT CLEAR DEF FN .q GO TO FORMAT X ▘p▗TAN LPRINT [L]aTAN GO TO [I]7 GO TO [M]5 LIST [INT =m©YTAN mY©YmY0▗mY5 LIST [B]q LINE DD© DRAW [INT CHR$ E▖[INT E▖ECHR$ ▗E▖q LINE ▖"[Q][S]DTAN IN "[Q] ▗%i"SQR Pp0[A]t<t CAT 6 INK t? CAT CAT RUN RUN 8O CIRCLE $SQR $© RETURN ;$1▞8© BRIGHT LOAD RUN ; CLEAR DRAW ;X▗$ CONTINUE ;<pj PAUSE D▝<>H▝ CIRCLE ▖ CLS CLEAR DEF FN 6 TO CIRCLE X ▝hp▗`[A]▗h CONTINUE [M][B]" CLEAR ASN [M]>f RESTORE 3 RESTORE f RESTORE RESTORE 3▗ RESTORE " CLEAR [B]POINT [S]▟8 INPUT ASN [M]T[C]"ASN [M][C]"[C]T▗[C]"POINT [S]▘% v▘ ▟c▝ ▘% ▗ INK F BEEP Pp0▞.~.2[M].EXP ▚ RUN 82 AND [M].▘2 AND ▟,7 GO TO CIRCLE @ CIRCLE COPY CLEAR CIRCLE 2▝{ CLEAR RETURN T▗ CIRCLE CIRCLE .(U CONTINUE D0:©[M] INPUT w{ CLEAR DEF FN 2 AND 07 GO TO Jpp▖0[E] CIRCLE Y[M][B]" PAUSE 2SCREEN$ y FLASH BEEP nF FLASH n BEEP n FLASH n FLASH F▗ FLASH n" PAUSE [B][F]Ev2SCREEN$ !( 2SCREEN$ ( (!▗( [F]▘H[A]EXP PXSGN H[A] ▗ BRIGHT ACS ;lPp0▞▗© RETURN m▗ LIST m▗ LPRINT ▖w RUN 85 CIRCLE m▗u[L] PRINT CIRCLE PRINT CIRCLE mW REM BRIGHT l FORMAT COPY IF BRIGHT LPRINT USR hx LPRINT ▝ RETURN X BRIGHT FORMAT l*m▗. OPEN # PRINT CIRCLE l'8 DEF FN 5 CIRCLE LIST W REM Dpp▖0[E] FORMAT /[M][B]e RANDOMIZE FN LINE mNOT CODE 6NOT CODE NOT NOT 6▗NOT e RANDOMIZE [B]+,,LACS FN LINE ▖▘FN LINE ▘▘▖▗▘+▝ DIM ▘, LOAD @0▙+qc+wTc+t`(p@0cXw SAVE a[aX? BRIGHT LPRINT CIRCLE C[E]aH FLASH H FLASH aX`+c COPY PRINT +6 `©[M] LOAD RUN LPRINT +wP+[Q]c[(▗ZjJ▚ FLASH H`Dpppx0▗▘[Q][I][B]P TO a>=fAT ▙ GO TO hAT GO TO ▙ GO TO AT GO TO AT h▗AT GO TO P TO ▘#(USR *SIN a>=a>=▗#(▝ DIM * z▝[Q]0▞s *s" STEP *s) 0▚* CIRCLE =P PAPER 6▝ CIRCLE LPRINT ▝ LLIST LPRINT 18[D]CC CIRCLE 7 GO TO sUSR *p COPY REM s7 ▘(© LPRINT ▟ READ CLEAR RETURN s"USR s* FLASH (@G >7 GO TO Dpppx0▗▘[I][B]P TO C CLOSE #eUVAL$ RURVAL$ RURU▗URP TO ▖B▖DDI5C CLOSE #[P] ▝VAL ▝'LN ▘D( BIN ▝ 0@ RETURN [H]ffcc©f`~©gf~©cfgg CONTINUE [B]c~`k6c`w©~`Q) COPY [L]v©k0©>c~>>``ckgc>v COPY qqq BORDER qq COPY qqqq INVERSE [H]|<>f`>>|©~>s|~>>f<s>p <~c©>c|©c▝|a▗>c<cp ▘ ▘<c▚© COPY c>~© TO ▗~>c ▗~>`USR c▝©r INVERSE [H]©nf`©nnlfww3ns1 LPRINT ▞lcg#0c0[M]▜00aa[U]▘l# RESTORE qqqqqqqqqqqq STOP qqqqqq DATA fp MERGE cf` LPRINT ▝{ FOR c|{c CONTINUE ▝c▘`w LPRINT ▜pcckccV COPY [H]]s3s3p3]ssvc99666©s▝3,TAN [B]fsgc~ssfsppw$s`c▝cte FLASH qqq LLIST qq COPY qqqqqqq OUT c>"7co DATA ▗`|oqBIN OUT LET ▖>cx©$ COPY U LPRINT ▗ccs13 LPRINT ▘f3 LPRINT b LIST ▝1.TAN [B]c33>a3n|n0``>▜3`>nc>ve FLASH qqq LLIST qq COPY qqqqqqq OVER [G] AND ~~ AND RETURN AND DRAW DRAW 8<< RETURN DRAW 8 AND f< COPY COPY COPY LLIST ▜ AND <Z NEW b PRINT ▞flffbfl INPUT COPY COPY COPY LLIST ▜ AND f PLOT h AND USR `hf AND RETURN fuCHR$ COPY COPY COPY CIRCLE ▝ VERIFY OVER x VERIFY || AND USR <x|s COPY COPY COPY CIRCLE ▘ RETURN ~[B] DEF FN h RETURN `l AND DEF FN hl AND VERIFY f COPY COPY COPY LLIST ▝ INPUT AND b INPUT `$|[S] COPY COPY COPY BEEP ▗ AND f~<& LIST NEW 8><▗ AND <<}[S] COPY COPY COPY COPY COPY COPY GO SUB OVER B▘G@CHR$ G THEN B▘FE0 ▘F` BIN G0W▘ED@( PO`H= INK B0=▚DDDB0 AT 0p @< -p p@0/ INVERSE GCHR$ @p0p ` p<p"@@` TO p py DATA <=Dp p P! OVER CLOSE #C COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY FOR [C] INK RESTORE ! LPRINT PAPER INK ! LPRINT FORMAT STEP % INPUT STEP w▝▝[P] LLIST INK <> OR RESTORE !USR P LPRINT P INK "= LOAD !USR Z LPRINT Z INK STEP REM INPUT STEP MOVE INPUT FOR INK GO SUB VAL FOR ▜ INK READ LLIST @!▜ INK *= LOAD Xp▝ INK 3STR$ CODE R▘ @$@R▘ X& R▝ OVER R0R▗ INK GO TO !v[B] RESTORE OR T]p GO SUB VAL STR$ LLIST $ LIST VAL ▗Z LLIST Z0c;[F]STR$ PI<>} VERIFY o/ NEW LPRINT USR | VERIFY g<>} AND o▝ AND RESTORE MERGE OR J▚ MERGE OR GO SUB [Q] GO SUB [Q]Pppp$p.P8▜STR$ MOVE LLIST $ACS <> CIRCLE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN <>fp|`ccf`cc{fccc|{cccc`w6pcckcc`]s3s3p3]ssvc99666©s3]ss3fsgc~ssfsppwwws`csfc STEP ▖ DEF FN NEXT GO SUB s![G]i▟[d MERGE GO SUB VAL !▜ DEF FN RETURN COPY ▙d<> GO SUB LN !q[L]TAN _~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1TAN _ CLS NOT ▛ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY READ ▝ USR .[M] perevod FFC SOFTWARE 1993 g<= ▞vybrav upIN lenie vam predstoit sobiratx almazy. s kajdym urovnem vse trud▖nee,no ~dalx{K▝yJ▖oidete,t*▘bo ▙opyta polu~iteSRI▝t[S]ko,~to ogonx tu{itsq puzyrqmi i vne sgora@tmni[G][A]klavi{ei <F> moj▞▖posmotreABS raso▘oj LLIST LINE [C]ov, <G> konec igry/pE▘H>ABS HSQR ▗ na~▗wtot PRINT ▝e[L]▚zanovo1L▗jela▜uspeha! GO SUB ▗0▘▝0p (▝p p p@p@p@▜x▝P@ x▝@x▝x▝@xp 0xp p p@p@p@▙x CONTINUE ▘▗0[E]▞<<[M]▘FN ▝ LIST `00p$4D▗▘H▝<8▟<!<<▖t LIST h@4▝4`4▝@4▝SGN ▝FN USR [M]$▝4▘Ld/▟!!""##$l▘$▞$&&'' ▜$"&▗""<▘ <▝0D▗" SAVE '' 8<P▝pP`P▝pP T▝P`P!D▘▘"T▚"![M]0▝"t▘▝1TAN 0SGN ,▘AT >=8<pPpPpP`L▗l▗▗▘"▝▖(4▗LN FORMAT ` CLOSE #`rTAN rTAN rTAN r CLOSE #rTAN r CLOSE #r CLOSE #r POKE r POKE #x[A]▝x[E][I]P@[E]4#(3, p 2TAN p p p@p@P@ LIST STR$ COPY ▞USR USR ▘ USR ▝▝"P▝@ AND "@9▝^G▝f ( !?-XSTR$ JB[0?p[U]STR$ P[M] /0?`[U] PEEK 0{0A`)F CHR$ PEEK P[F] RESTORE pNOT P{▝0 0 DATA P [M] [B] ▝;▘,@F▝@{ 0 pFp:▝p p@p@PYppppUSR pUSR pUSR INKEY$qqqq@q@q@ SAVE qqq▝qUSR qUSR qUSR ▘rrr▘r@r@r@!drrr[I]rUSR rUSR rUSR ▝r/R>"Bbdb RETURN ▘bSTR$ BUSR ▘B RETURN 2[F] CLEAR @O# CONTINUE 0 7STR$ IP2 LINE d@▘ .R PLOT D##▝3▞##@J9USR G▝CvV0?00[U]▝@[B]0ApFPEEK `sINT ▝B NEW PP{3b GO TO 0F#E@:3[J]S>" PAUSE T:pp Cs.p p@p@p@pp`pUSR pUSR pUSR LPRINT qqaq@q@q@ LLIST qqq1 COPY qUSR qUSR AUSR rrr#r@r@bVrrr3`rUSR rUSR UCHR$ bd2>PEEK "BE LLIST ▝2▞% INPUT %[P]2 REM % CLOSE #r<>U[P][S]% FOR R RUN [O]0Ksa"USR #7▝E[O]% LET &a6_% LIST % SAVE E<=1&aF_#COS U@[U]&_@[M]&9e INVERSE 3&_0{6:e INVERSE MaPOINT V4[F]u INVERSE [U]p{6[u INVERSE !) [M]u READ )v#60{U READ &U REM s+Fp p@p@@Yv]pvcpUSR pUSR pUSR NOT qqqq@q@q@E@qqW4qUSR qUSR qUSR #[Q]rrbr@u[R]r@DUrruwrUSR rUSR bUSR r/x[P]VRE REM f"hfU CONTINUE U[P]U[R]Vy!5[P]s_69R LINE U[P]E[R]r PLOT 5 DATA I@f_)2tcJFaFN ▝Cvhv#Fa&_t[N]e INVERSE 9 OR `t INVERSE STOP u INVERSE ▜@{7 COPY y&FN #Eu] LLIST x MERGE TFy1[N]x PRINT 8 PRINT yQp p@p@p@v[T]piATN v[N]pUSR v INVERSE LPRINT w#qf READ wq@q@ INVERSE qqqg[U]qUSR qUSR Wrrr#{ar@kwrrr3`rUSR rUSR X VERIFY bd8[P]_x[R]ASN ▖x AND ! CLEAR IN CLEAR RESTORE MOVE G MOVE STR$ #~ RETURN 0 y RETURN (> MERGE OR ! GO SUB [K] STEP OSTR$ MOVE STEP ▙ CIRCLE RETURN e>= RETURN ( RETURN @8 STEP RETURN [0<>▚ MERGE LLIST MERGE OR P y RETURN COS <>!@/[C][E] CLEAR (<># PRINT <>-[C]`©STR$ 0x RETURN NEXT <> OR STEP 0AT STR$ OR RESTORE MOVE MERGE >[A](G!A CLEAR P CLEAR OR RESTORE MERGE GO SUB VAL MOVE LLIST STR$ } VERIFY o{ VERIFY _ FOR MOVE ![E] CLEAR STEP [T]SIN STR$ OR STEP CHR$ !_ CLEAR POINT ▝ OR ` PAPER [D]6 # CLS STR$ STEP ©<> STEP z© STEP MERGE ▛<>NOT LN rSCREEN$ [L],[L][I][L]([M] BRIGHT [M]P[L]t[L] LPRINT [U]x[T]USR [T]VAL [O] [O]FN [Q][R] CLOSE #[O]pRNDpRND[E]RNDLN RND BRIGHT RND[U][R]>=[R] GO TO [R][S]4[S]X[S]|[S] OR ▞x NEW SAVE AND @gx NEW USR [H]▝o OR w$ IF STR$ <>! COPY COPY [K]_ RESTORE OR STEP VAL$ DIM STR$ LLIST + GO SUB REM <>CODE NOT PRINT BORDER 2 RETURN ©! LLIST COPY &IN OR >PEEK RETURN 6>2 CLS ©>PEEK (6CODE PEEK (2>PEEK (->PEEK ((>PEEK (>PEEK (>PEEK (>PEEK VAL$ (>PEEK (>PEEK 8 OR STEP INKEY$[K]STR$ +VAL STR$ SCREEN$ <>ATN 8~6 RETURN STEP BORDER > COPY w▙ RESTORE !~ LLIST RETURN NOT SGN [K]▘ RETURN `▘USR # DRAW ©<> RETURN >= RETURN >= RETURN DATA [F]>=x RETURN (+ACS (##~+w#▞w<>x RETURN >=#▞+<>+~#w+▙<>o& MERGE CLS ASN STR$ LLIST MOVE -}EXP PAUSE OR ▙ OUT <>: DRAW ©ATN (#!FN CLEAR ~ RETURN 6 ~ RETURN # LOAD STR$ DIM STEP READ POINT CODE ▟ STEP STEP PI1TAB ,[D]~ NEW w#|ASN RUN <>x THEN / THEN / THEN / AND Xa}Qs[K]~ RESTORE _ STEP COS REM r[C] LOAD FOR <>: CLEAR RETURN F !▙ CLEAR 6 COPY RETURN C0[B]! CLEAR :▙ CLEAR RETURN COPY (4 STEP [[A]<>5[E] STEP Y STEP TO ▝ STEP BORDER ▝<>!z CLEAR { CLEAR 6u▘<> PRINT >=▘| BORDER >=▜ LET <> LLIST +>SGN SIN ▖!F RESTORE MERGE LPRINT ▝ MOVE ▘2ABS AND [A]NOT RESTORE BORDER ATN ©( STEP POINT BORDER <>: RETURN ©ATN >=pAT ▝WB)▝_B~ PRINT :[B] CLEAR G! AND PEEK :ACS ▗,▚~ NEW LIST STR$ ▟#xLEN GO TO [K] CLEAR 2▙ CLEAR 2[B] CLEAR >2[D] CLEAR >c2[A] CLEAR <>![L]! ▗[H]<>~<w RETURN USR 6+ PRINT <>![J] CLEAR STEP <> MERGE <>[H]ABS _ OR RESTORE STEP @ LLIST STR$ MOVE + DIM <> STEP *%▞ RESTORE OR F!SGN $O▝STR$ ) MOVE # NEW <> ! LPRINT SGN B[A]<>:[L] CLEAR G OR STEP !STR$ RANDOMIZE <>*[M] CLEAR IN [H]:▚ CLEAR w<>!▚ CLEAR 6<>:[C] CLEAR <2[C] CLEAR ![K] CLEAR PEEK COS ▝COS 3AT ! CLEAR ▛q▟ STEP RANDOMIZE ▘<>> OUT OPEN # COPY FLASH RETURN NEW USR >▘! READ T GO SUB R>= CLS a▝+b6▜ : CLEAR ATN >=▗ CLEAR <>t▝p++ ,▛CODE STEP CONTINUE STEP i CONTINUE PAPER VERIFY [E]E▗"[M] CLEAR #ATTR ▘6Pt▝ t:0t#pu0,pupu▝+p, , Ypv v▝[E]v▝#v IN v▝ CLS Pv@ RESTORE READ ▝ CIRCLE p INVERSE p INVERSE Q▝>=PPEEK ▝PEEK ! CHR$ ▗ <>> CLEAR pL0L▖: GO SUB R FORMAT AND CLEAR [B]q,q,`O▘ DEF FN [D]0z▝▘ GO SUB R@O▞! COPY ~ NEW OPEN # RETURN +[N][D] PRINT <> STEP X CONTINUE 6:[N] CLEAR ![M] CLEAR ACS ( STEP NOT [G]▖> COPY PEEK (" STEP 7▗@ STEP TAB P STEP RANDOMIZE P<> STEP ` CONTINUE <> STEP v STEP B STEP [E] CLEAR 7▗USR STEP r[A]VAL$ <> PLOT !© CLEAR j▘▝[P] ▘[L]▝[D]▜<> STEP ▘ STEP NEW ▘ INVERSE ▖"~ CLEAR STEP )6#6[F] CLEAR <>!"▗ CLEAR "▘ CLEAR CODE c▖ STEP ▝ CLS STEP ▙ STEP j o▘TAB ▞XX COPY 6GS▘ READ ▟&@|INT ( THEN ># RUN PAUSE =} NEW _ RESTORE n BEEP LLIST - INPUT <>c TO [D] CONTINUE { RETURN INVERSE <>STR$ R!USR R OR ▘6 COPY &TAN ▜$ LOAD STEP $[C]s RANDOMIZE LINE [T] STEP KINKEY$ STEP LET STEP T▚<>! OUT P OR RESTORE THEN ~+ THEN + CLS + LLIST STR$ 8[B] NEXT !N NEW ©CODE OPEN # RETURN Y CLEAR >q▖} NEW ©_CODE [D][B]_▚ CONTINUE - LPRINT CLS t[(| CLEAR AND @2| CLEAR ATN USR STEP [B]▚ IF ▝jASN :USR R▘TAB ▚ NEXT MERGE STEP ▜![B]w▘ MOVE ▖ FOR CLS <>&j MERGE LLIST OUT USR 1▘>IN #jUSR NEXT O▝O▝ RESTORE $[D]5▝ CONTINUE S[▗ CLS <>>©#[G]▝▚V<> STEP x▖sFN [O]s) COPY ▗PI CLEAR ~[A]6 STEP RETURN BORDER <> RETURN 8 RESTORE STEP ![G] LLIST [T]▝ RETURN .▝+sX.▝INKEY$[Q]PEEK USR 6#0▝(d▝Xs▘ Y▝POINT pY`Y▘N[G]VAL ▝<>0Ys▚0▞▝SCREEN$ @Z▝+@ZSpskSCREEN$ pATTR ATTR ▗ CIRCLE RESTORE STEP { QcPsK3Kp PAPER 0/▝FN [F] STEP k▜ STEP NOT ▜ STEP ▖ STEP I▖<>!} CLEAR 6 STEP EXP [B]SGN [D] STEP Y▜ STEP ▘ STEP RND[D] STEP AT ▝ STEP INKEY$▟ STEP [G] REM ▙▛ STEP sPI STEP OVER ▚ STEP -▜:} STEP ▘: CLEAR ; STEP ?[A] STEP .▚<>:▗ CLEAR ATN q▖▜<>IN NEXT ~#▘▛ RESTORE MERGE OR PRINT !{ NEXT LET STR$ MOVE LLIST 0!P▘> RUN %:[K] RETURN ~ RETURN COPY CLS <> RESTORE o&SGN V#^ MERGE INVERSE LLIST LLIST ~#$▗ INVERSE + RESTORE ~[B]F#N OR CLEAR LLIST LLIST # RESTORE f.zCOS ▗▜> OPEN # RETURN INVERSE RESTORE MOVE l▘ OPEN # RETURN [H] CLEAR RESTORE STR$ [G] INVERSE LLIST #NOT CAT ▖NOT 4 INPUT STEP DEF FN ▖<>y NEW 8oy NEW USR $▛ PLOT @gy NEW TAN g<> RESTORE MOVE z AND sW OR MERGE RESTORE RESTORE STR$ MERGE LLIST OR MOVE LLIST [D] LLIST MOVE STR$ STEP d▞>HSGN NEW STR$ >@EXP MERGE VAL$ ▚SQR ©▖!SQR ▝▝z▗[J] CLEAR ▘*© CLEAR &*▙<> STEP CLOSE #[C] STEP ]▞ STEP ▖<> STEP VERIFY l▗CODE 2 CLEAR © STEP REM ▞E[D] CLEAR =!ATN >= OUT $h▘j▝<9▜ RETURN ! STEP IN FN H▜[B] CLEAR CHR$ !TAB CIRCLE ▜!ATTR ▜ATTR STEP OR GO TO Z▖!8ATTR ACS ▘IATTR ' RETURN [B] PRINT MERGE OR STEP EXP ▝STR$ MOVE LET w PAUSE <>>D0F▗t>F0E ▗DC▘tStt4POINT ▚@VAL$ DSTR$ ! COPY ZW< STEP STEP [B][A]<>!Bmq LET ▘USR RESTORE f▚ STEP AT DEF FN ▖ CLS STR$ LET LLIST RESTORE J STOP LLIST # POKE n<[I] DEF FN STEP CAT STEP >= STEP 5iSIN GO SUB R STEP DATA SIN ( LET B8▞ STEP RESTORE ▛NOT ▛BH▝▘0▘NOT READ a+fBh▚ NOT 0 TO ▘SCREEN$ !C▜NSCREEN$ CIRCLE ▜WSCREEN$ by STEP ▜aSCREEN$ ▘e RETURN 4▘>D3 3▘>E' ▝<>J[E] STEP ©▛ STEP x▛ STEP ▙( IF <> STEP POKE ▞ STEP NEXT ©<>B>F6A▝0@@>B} STEP PI▞<> OR RETURN RANDOMIZE STR$ ▘▜<>(!POINT ~^[A]#INKEY$>=## POKE GO SUB STEP BRIGHT GO TO [D]▗Q▝ OR ▛ BORDER !xPOINT ▞# RESTORE Q▖+~2 LINE 2r▜▜BIN 2l▜ STEP [Q]& ERASE 2▝▛p2▝p2▗>▗2 LINE 2▗8▗2BIN p2d▝[O]pd FOR PdTAN ▗2$▖lVAL$ ▗2▖pd▘[G]▝LEN p[G]▝p[G]▗2P2▗ IF ▗2Jp2p>=▝ OR ▝ZpCHR$ ATN _▚!t[L]w=#INKEY$w<#w STEP [A] STEP SIN [A]<> rekordy NEW _<>w#w<> STEP F▟ NEXT ▚~ MERGE PRINT N▚` LLIST STR$ LET MOVE -[B][G]#y RETURN BORDER PAPER <>*8 INPUT [R] GO SUB R0 CLS } RETURN 0. RETURN 8.y RETURN 0A&.q▝SGN LET ▝p LLIST P>=USR OR <>▖ THEN &# SAVE STR$ PAUSE a▝ CLS *▚▗ ! CONTINUE PAPER ▘>Cl▘ OR MERGE ▘CODE Ze[N] OPEN # RETURN INPUT PRINT CLS MOVE STR$ <> STEP COPY ▟! CLEAR CLEAR 6 GO SUB VAL 1/1▗( INPUT 0▝©1©1©1©1©1▘ RETURN 1▖[H] OR RESTORE ]▟NEXP # RUN LLIST STR$ <> LLIST [M]▘STR$ ,▗2 LLIST <>vC{o▛tSTR$ { RETURN H A9▟ REM <>:▚X!▜X▚XRND[F] GO SUB VAL 2[J]X<> STEP ACS ▙ NEXT CODE Z INPUT INKEY$[J]Z PLOT NEXT PRINT MERGE STEP ERASE ▙ MOVE LET RESTORE CLS <><> OR > CAT ▗ RANDOMIZE ▘>`<▘STR$ STOP <> STEP -▙ STEP [B]▙©▗ STEP %9f▝<> V▘~ CLEAR [L]▗ RESTORE PRINT .[J] LET LLIST = LET STEP DATA ▙<> STEP f▟og STEP e▘~,▘ THEN FOR ▞~# THEN ATTR z NEW PLOT @W@▝@ppp p0J▗z VERIFY W WpEpEpUpepe`u<>:r CLEAR <[C]CODE 2r CLEAR ![I][L]"!([M]"*D*$ PRINT ▚*@!TAN [N](▘ CIRCLE [N]0(▚ STEP x▟<>>@▘ STEP ▜[J]k[L]2[L] NEW ?2[L]2[L]y OR y OR ▘ RETURN ]PEEK ▗ LOAD - BORDER [C]▖y▞! DRAW X PRINT :CODE d▝n>e▝-/ INVERSE STEP DRAW [N]^@[D]! CLOSE #[O]SQR ▝G! p▜ CLEAR "![R]p ":s CLEAR < NEW 2s CLEAR ![Q][S]P9!USR [T]pI":t CODE 2t CLEAR !d[P]Pe! LPRINT [U]pu"d▗<> OR RND[S]K▞STR$ <>STR$ LIST <>>PEEK %[L][F]NOT NEW ▗>PEEK LINE RUN [B]>PEEK LINE L[B]>PEEK LINE <=PI>PEEK >=U[H]PEEK TO <>[B]>PEEK LINE n[C]>>PEEK LINE VAL$ [B]-B|ASN <ASN ▝ COPY ASN NOT [E]O▚ STEP R[A]CODE STEP ▙ RANDOMIZE ▘_AT d▘ NEXT <>SGN RETURN (< STEP LPRINT FN <>▘[N] RESTORE l▜7 THEN # CLS kJ OR h&} AND o> NEXT ▜ NEXT STR$ OR > [A]o▝&O▜ NEXT STEP BEEP POINT STR$ CIRCLE n▞USR Z@![C]SGN ,?▗s+▝ NEW CONTINUE Av!CODE ▝pr CLEAR =pp▗<> STEP { CONTINUE { NEXT ▘ NEW ▗.[S][A]6 X!FN CLEAR > GO SUB LEN xLEN >=AT -SCREEN$ CLEAR 2S▘ STEP VAL$ p6C!@< PRINT NEXT <>EXP p NEXT <> STEP GO TO ▛ATN ▘G DEF FN ! GO TO [G]▞[G]+> PEEK SAVE >[A] NEW RETURN AND O LLIST ABS ▘▚ PLOT @w NEW ?#[K]▘ PLOT @[O][J]ACS ▘*[Q] CLEAR "*[S] CLEAR "[U] CLEAR ![L] STEP [D]▝,@▘LN [M]0▝Pq▜>E2 CLEAR <> RESTORE LLIST CIRCLE RESTORE /} MERGE (ATN ( RETURN ( LLIST ▘[D] LLIST SGN ▘6 STEP ACS 8▘z▝ RANDOMIZE COPY ~ RETURN 8> RETURN ▘w#[ READ <> STEP ~[D]NCODE ▘USR STR$ LLIST ▝<>?d STEP MERGE FN 3 CIRCLE NOT _[B] RESTORE !5"▜ CLEAR LLIST bw▘5rwrw▘PEEK >=u LINE e[E]u▘[E]u▘k[E]2u▞<>*▜ CLEAR DIM RESTORE ! NEW ▗FNOT <=[D]qLEN QLEN <▘ GO SUB RqLEN qLEN qLEN qLEN ALEN STEP <>[B]ASN ▗ RESTORE STOP COPY ▝ FORMAT ▘qqA RESTORE ![O] c=▝[O]s=s=p AND ;▘[F];▘[U][F]@ AND RESTORE !(pB©▝(s©s©q}▝^ B▝ MERGE PBrSCREEN$ k▝+(CODE rSCREEN$ rSCREEN$ rSCREEN$ rSCREEN$ @ RANDOMIZE r LIST ▗ STEP (▗WSpFr LIST r LIST r LIST R LIST ▝ RESTORE J▗ SAVE LLIST RESTORE or]r]▚ RESTORE #Cp1 1▝+r▙r▙ 1[Q][J] STEP >INKEY$ OR ▜ RETURN LINE [F] RETURN INKEY$[R] RETURN LINE <>[B] RETURN LINE [Q]PI<> RETURN >= RETURN >= RETURN >= RETURN >= RESTORE STEP [G] LLIST ~ RETURN ▗ RESTORE !H[G]l▞"▞ CLEAR NOT MERGE [F]*▞ CLEAR [Q]p-p-@-▝u`-▝[U]p-pZpZZ▝[S]`Z▘O[D]pZp▜p▜ FOR ▝ CAT `▜▘k[E]0▜ CONTINUE [N]ROOM FOR IMPROVEMENTTHE BUBBLATHCHR$ [H]GRAVITY CHAMBER HEAD IN [A]CLOUDS HUSH TOE▚CELAND>▚DIAMON▜OF MINEPPTWOG▘RT;▘ C|RALS▝C&RAT[H]NTERN▗REAC0CNUCL4 ORx▘AV ▝S@[M]▖ON SHELLN0TAN OIL W`▝ ▝TLN ▗LL S0P BRIGHT ▗LOCK>=▖ONEYCOMBP9▜AIR BRANOT D SURGERYBURY D[O]AGE HIRERSSPACEBASE WASTEPIPESTSNASIN pP▘RU#▖NO DOUBT@[Q]▘OU LIST ▗ BOU0@TAN SPRING LODW@>=ALARMvCOS ▗WORK@▚FOG RI w5▘FA<>▝G8▝T▖©▝F[R]USR VAL$ :WP OVER !BIN LOAD >=▘TIG▖YOUR SAF>=▝I▝MEXP ▘YEDQ~▘HOSTR$ 2▗KEEP<> S▖GOODNESSD▝K PRINT FOR ▘EV[B]LIV!TAB ▘ s FLASH FLASH ▘# FLASH ▜#~ATN 6 .s LINE p ▘++p COPY ?TAB **&IN **>}zU*<fn|x. STOP <fv>tGSTR$ RETURN ▘ RETURN LOAD ( LOAD ▘VAL XPH8|INT AND TT8,,88<<p SAVE COPY [E]8|8|▝0@@▝ COPY COPY BUSR $SQR ZABS ▝~ RETURN RETURN 002><BEXP [R][R]▝B<*SCREEN$ INPUT |}zINT [G]@CFGGBAGBCEEFGDG STEP Y STEP TO ▝<>![A][K]x▟ STEP 0 PRINT CODE 2RND[K]SQ▘ ▙RND[K] LET NOT FLASH PRINT :RND[K]ATN ( LET 9▝ LET s RUN FORMAT ▛vvedite kod FORMAT (ili FOR AND [U]dlq-1)CC;LN ▚;8~ RETURN ;~▚3[LN LN {3LN LN ;▚~8; RETURN IN ▚LN ;DD LIST SAVE ? DRAW DRAW ©© IF PRINT COPY COPY REM U COPY RETURN SCREEN$ U CLEAR jSCREEN$ TU*SCREEN$ TFN PAAB)0[S]`[F]5"Y0 OR [I] VERIFY INK <=0 THEN ATN OPEN #w#▖[I]Y[Q]JPEDCD[Q] FORMAT CIRCLE 7 GO TO REM W` GO TO 7W REM 7 GO TO CONTINUE CIRCLE FORMAT [Q]GG%[J]USR FN DVAL {o`[Q]DFN @@$▘ P$▚FLEN z/H@$▗0H▘pH▚{o[A]PH▗pHPl▗z/IIpHpHp[A]p[A]p[A]p[A]p[A]p[A]p[A]p[A]p[A]p[A]p[A]p DRAW p[A]P CIRCLE [A]BB RETURN RETURN ~~SCREEN$ SCREEN$ LOAD LOAD BORDER BORDER RETURN RETURN ATTR pIN GEE|x▗NOT USR B CLOSE # MOVE CONTINUE h22hh44h<>:: FORMAT FORMAT PAUSE USR uFN EE COPY COPY NEW g?SCREEN$ MERGE / GO TO REM PRINT <=[L][N]( RETURN s▞TSCREEN$ 3USR COPY COPY STR$ F[D] OUT OVER OVER OUT n OVER STEP nf STEP STEP ffee&&"UU**TQ[S]POINT SSTR$ D[O] BEEP VERIFY [S]/JINKEY$[O]}| IF IF PRINT POKE REM FOR BEEP VERIFY VAL$ CODE _^SIN ▙-j NEW [K] PRINT RETURN 0H[A] CONTINUE # MOVE MOVE # CONTINUE RUN <=# CONTINUE MOVE MOVE CONTINUE #<= RUN p0▜GFDB@TAN ▜ ▝a<< INPUT ▝LN ▙FN D8q SAVE ▗@p$p$p$0$▜*| RETURN [U]USR C▝P| DEF FN IF ▘ STEP p SAVE LPRINT ▖▖ LPRINT FORMAT TSCREEN$ .,,▚▗("T@$▝$▝ $▝$▝$▗"( `$pH`H▝" H▘ p$0l▝$PH▝~▘TCODE E@80^▝@© RETURN RU©Ah[Q][Q] [A] CIRCLE !a CIRCLE <s PAPER <d[K]fB▖@▘▘@ LINE J://)STR$ [Q][I]!cLN SGN r PAPER <& PAPER ▖&Q▖▖X/T<&" SAVE [Q]! 8sS|L D[A]&[I][I]$4SGN TAN pX$$XIKSTR$ G>[K][Q][A]" CIRCLE /$dT[G]t FORMAT ""[A][B]BB TO [O] LIST SAVE ?00< SAVE SAVE <<LN 8<>x SAVE ?3(#!(; LIST S▗▗ LIST ? SAVE P$▗x>? SAVE $!; LIST LIST 4 IF ▗ LIST 0P$!3@ p$<>▘ SAVE ? STEP GO TO _@[C] SAVE TO ▗ DRAW |<< SAVE p$0 ▖ BRIGHT ▗ TO DRAW P$< DRAW PH▖ SAVE BRIGHT ▗BIN $▗|<P$▝4▘ SAVE pHpHpHpHp[A]p[A]p[A]pTAN y FLASH p CIRCLE p DRAW q q q qDqhqhqh[G]CEDF LPRINT #▗▘O^[I]LN VAL VAL ▙▛@@ [Q]F%[A]USR 0▖▗'.LXX ▞ @D%USR ▞0▖/▗,P$ #▘@%▟ LPRINT ▗#O▘^[I]@l▝@ (▚[Q]&xpx>|3[H]:E PLOT AND LPRINT TSCREEN$ RANDOMIZE jTQ*D[Q]PP$▚|`az0$▟SCREEN$ DIM J▘*D@$[Q]PL`aJE LPRINT D[Q]▘"@P DATA [T]@(VAL ▖@▗[I]▘P@$>=[A]@@▖P ▘p$ CAT @@POINT pH CLOSE #HTATTR X!CHR$ <=qs BORDER BORDER s© COPY COPY ©0▖ BORDER ss BORDER <=q!CHR$ 5[Q]▚??[A]NOT <={s<= BORDER sq BORDER LOAD qa RETURN RETURN ``▘@l DATA POINT [D]! ▘▘ ▘B[N]▜D@@$<@@CHR$ pHpHpH0Hp[A]p[A]p[A]p[A]▘@l0|a RETURN LOAD qqSGN ▚s<=<={?NOT 0[U]▘0[A]▘@x$D@ D▖ [A]▚![U]▘$pHpHpH0H[E][C]USR `USR LPRINT ▜LN SAVE SAVE LIST 54▘ ▞`USR LPRINT 0$▝LN `$T/pL@L▝LN p$pHpHpH0lSTR$ 4▘8N RETURN [M]G[N]NL BEEP ▝$]u▝o_u@$& DIM }▘0% DEF FN @X@H▝@>@^"k▝[A]kt GO TO >=[A] LPRINT LIST LIST LPRINT LPRINT LIST LIST LPRINT L? GO SUB USR LPRINT LPRINT LPRINT USR $▜ LPRINT LPRINT USR u4[H]USR USR USR USR USR USR `~pHpHpH? OPEN #▖ LPRINT /▖[I]8VAL OR =6BIN ▜[Q]!▗`` CLEAR ▘00P0 STEP ▝ CLOSE #0▚^ NEXT 00VAL$ ! VERIFY I LINE 0ACS COS STEP [D]:,[L]![U][R]! STEP [D] IF <>! POKE n STEP DEF FN ▖<> STEP "> STEP `>><>! VERIFY [L] RETURN CIRCLE LLIST LLIST STR$ <> STEP [C]PI!" CLS ©<>CODE STEP P CONTINUE 2 RETURN ©! AND CLEAR IN IN OR >PEEK RETURN 6>2 CLS ©>PEEK (6CODE PEEK (2>PEEK (->PEEK ((>PEEK (>PEEK (>PEEK (>INKEY$PEEK (>PEEK (>PEEK 8 OR STEP SQR INKEY$STR$ #VAL STR$ SCREEN$ <>ATN ~6 RETURN COPY ©VAL RETURN ©<> RETURN >= RETURN >= RETURN >= RETURN >=x RETURN (+ACS (##~+w#> w<>x RETURN >=#▞+<>+~#w+PI<> NEXT !@NY y NEW © CLS _> OPEN # RETURN FOR ▝CODE ▙ CIRCLE GO TO - DEF FN CLS <>>2 PI▜7PI STEP PI>▝@▝▝0▗<> STEP P▘-ACS ▚: CLS ©ATN >==STR$ [N]o& STEP ASN <> STEP F[D]CODE 2▛ CLEAR 2 CLEAR 2▟ CLEAR <> STEP LOAD POINT >▗ CLEAR >c[I]! CLEAR STEP *IN STEP @<> STEP [Q]PI CLEAR ATN OPEN #▗u<>=<ATN @!5▙~=w RETURN COPY 6+ POKE FD▘F STEP UINKEY$9▗▘[F] NEXT <>!jATTR STEP O!▗ATTR ▜[T]ATTR ▜ATTR ATTR !▜ THEN ATTR ,▝ BORDER ▝7▜AT B▜%AT M<>>0X▗t>0W V▝0U TP▝2▝0R Q[D]t<> STEP INKEY$ STEP FN STEP nFN STEP INKEY$CODE 2~ CLEAR e[P]© CLEAR <> OR STEP !STR$ RANDOMIZE STEP B<> STEP STR$ [B] OR RESTORE OR MERGE PRINT STEP MERGE FN LET MOVE STR$ LLIST ~&/;IN RETURN V RETURN C RETURN X RETURN Z RETURN c CLEAR G CLEAR F CLEAR D CLEAR S CLEAR A CLS T CLS R CLS E CLS W CLS Q RUN 5 RUN 4 RUN 3 RUN 2 RUN 1 LOAD 6IN LOAD 7 LOAD 8 LOAD 9 LOAD 0 OUT Y OUT U OUT I OUT O OUT PIN HIN JIN KIN LIN e©B©N©M©s© klavi{▖a nalevoCHR$ ppra0P&NOT `nizBIN PLogonx0& STEP FLASH [B] PAUSE !▗KPI IF P▗V▝>=@5X▙$+ ▝▘▘@▝!@▖▖4P COPY OR ▗onecbnabrae▘ig na urovne. COPY COPY ▘1 CHR$ . STPstartTAB ▘y2@vyborAFN ▘ 3@1osmot▘ 5`&hod OR per STEP d FFC SOFT 1993P▞WELL DONE|[S] AND THANKS !I MUST BE WORTH A SMA-▝FBY NOW !UN0[T]ATELY YOU AREN'T GETTINGANY OF IT ! m▝, $DID$▗RISK4▟R NECK COLLEC600▗HOPE SENJOYED EA[B]SHAKER .- M.BATTY[T]▝K PEEK TAN ▘ICEXP (C) DIM ▛88 MICHAEL +2VAL$ ""%c▜##&%▛ $$'!! ▘%((, ▘&)(, ▘'*(, ▘(+(, ▘),(, ▘*-(, ▘+.(, ▘,/(, ▘-0(, .1CHR$ COPY DATA ▜<( LIST GO TO ▚(▗<P▝)p p8p8`8▝ LIST pXpXpXpXpXpXp[A]p[A]PX▗(▖x▜(<LN ▚(TAN ▝ LN ▝(▗<AT ▘(LN 8>=▖!(!< CLOSE # FORMAT L▙(##(#P▘ $t$(ptpt@t▝ptpt@t▝!pt$H▝[U]▝0[Q]<TAN ▗▘## $$( TO ▘$$VAL [Q]▝p ,VAL [M] DEF FN $▗!(! FORMAT USR GO TO ▘$+0< CIRCLE ▝<TAN <▗p<▝ LPRINT SAVE SGN x@p4▝pp !0p▝ppppp<0<pppAT pphDP
16400q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT q BRIGHT rPrPq BRIGHT rPrPq BRIGHT rPq BRIGHT q BRIGHT q BRIGHT P▘<![M]t▝Ct▝t▝t[A]▝<! CIRCLE [A]▝t|▝ p88p▝TAN ▘ LIST (▝$[U]▝$( FORMAT ▘"▝" BRIGHT D@ ▗$<`D▘"&▝&2L`▝+ststststststststststststststs CONTINUE sts CONTINUE s CONTINUE sts CONTINUE stststCt$/▘&&38/(▝!dP,▚(▗C BRIGHT CIRCLE #[U]dL#xd[H] LIST COPY ! CLEAR OR RESTORE AND GBIN ▚ LLIST RESTORE #STR$ OVER <>!]▟2▘©▗ STEP lSIN <>4▘_>AC@▚STR$ REM STEP [E]SIN %▗>G▞ OR rSCREEN$ STR$ x RETURN PAUSE STR$ y LIST CONTINUE <> STEP <>SIN STEP [T]SIN STEP FOR PRINT ▚< STEP LET Z▗2NOT [Pp0▞e LPRINT BRIGHT e[J] BRIGHT e><>▝[D]0? SAVE [2 SAVE [0? OUT LOAD LET <= SAVE NCHR$ T▟0W REM e BRIGHT ` CLEAR Ue-▘▘ BRIGHT '▞ RUN NOT CLEAR DRAW [J] P▖`@USR W REM [M][B]LEN O[I]` INVERSE AT INVERSE INVERSE INVERSE AT ▜ INVERSE LEN INVERSE [B]J VERIFY FFhO[I]INKEY$ LINE [J]O[I] LINE [J] LINE INKEY$▗ LINE [J]J VERIFY ▖TQF DATA BRIGHT T ▗ STEP CIRCLE GO SUB Pp0▞L OPEN #Lah OPEN #L?<>[D][Q] TO LIST TO DRAW TO < INPUT q<=8OCHR$ T TO L`` OPEN #@ IF SCREEN$ RETURN ▞` FORMAT OUT INPUT w READ ▝ RETURN @▚[Q]L` OPEN # USR P▖▝ TO RETURN STR$ [E] [M][B]_ AND [L] DRAW r READ ?ACS DEF FN READ ACS ?ACS READ ACS READ DEF FN ▜ READ ACS _ AND READ [Q][B]! OR $$g[I][L] DRAW ([K]&[L] DRAW [K]&[K](▗[K]&! OR ▖@$[B]$t RETURN @ ▗ GO TO [L]mTAN Pp0[B]0(&1 INPUT q0?USR LPRINT 8nq ▙ FORMAT GO TO USR TAN GO TO ? RETURN 4 GO TO ? BRIGHT ▞4?USR LPRINT DRAW 4 X7 GO TO 4 <▘ PRINT D[C]p1 DEF FN q© BRIGHT INPUT w NEXT CLEAR DEF FN .q GO TO FORMAT X ▘p▗TAN LPRINT [L]aTAN GO TO [I]7 GO TO [M]5 LIST [INT =m©YTAN mY©YmY0▗mY5 LIST [B]q LINE DD© DRAW [INT CHR$ E▖[INT E▖ECHR$ ▗E▖q LINE ▖"[Q][S]DTAN RETURN "[Q] ▗%i"SQR Pp0[A]t<t CAT 6 INK t? CAT CAT RUN RUN 8O CIRCLE $SQR $© RETURN ;$1▞8© BRIGHT LOAD RUN ; CLEAR DRAW ;X▗$ CONTINUE ;<pj PAUSE D▝<>H▝ CIRCLE ▖ CLS CLEAR DEF FN 6 TO CIRCLE X ▝hp▗`[A]▗h CONTINUE [M][B]" CLEAR ASN [M]>f RESTORE 3 RESTORE f RESTORE RESTORE 3▗ RESTORE " CLEAR [B]POINT [S]▟8 INPUT ASN [M]T[C]"ASN [M][C]"[C]T▗[C]"POINT [S]▘% DATA ▘ ▟c▝ ▘% ▗ INK F BEEP Pp0▞.~.2[M].EXP ▚ RUN 82 AND [M].▘2 AND ▟,7 GO TO CIRCLE @ CIRCLE COPY CLEAR CIRCLE 2▝{ CLEAR RETURN T▗ CIRCLE CIRCLE .(U CONTINUE D0:©[M] INPUT w{ CLEAR DEF FN 2 AND 07 GO TO Jpp▖0[E] CIRCLE Y[M][B]" PAUSE 2SCREEN$ y FLASH BEEP nF FLASH n BEEP n FLASH n FLASH F▗ FLASH n" PAUSE [B][F]Ev2SCREEN$ !( 2SCREEN$ ( (!▗( [F]▘H[A]XSGN H[A] ▗ BRIGHT ACS ;lPp0▞▗© RETURN m▗ LIST m▗ LPRINT ▖w RUN 85 CIRCLE m▗u[L] PRINT CIRCLE PRINT CIRCLE mW REM BRIGHT l FORMAT COPY IF BRIGHT LPRINT USR hx LPRINT ▝ RETURN X BRIGHT FORMAT l*m▗. OPEN # PRINT CIRCLE l'8 DEF FN 5 CIRCLE LIST W REM Dpp▖0[E] FORMAT /[M][B]e RANDOMIZE FN LINE mNOT CODE 6NOT CODE NOT NOT 6▗NOT e RANDOMIZE [B]+,,LACS FN LINE ▖▘FN LINE ▘▘▖▗▘+▝ DIM ▘, LOAD @0▙+qc+wTc+t`(p@0cXw SAVE a[aX? BRIGHT LPRINT CIRCLE C[E]aH FLASH H FLASH aX`+c COPY PRINT +> BEEP `©[M] LOAD RUN LPRINT +wP+[Q]c[(▗Zjx▚ FLASH H`Dpppx0▗▘[Q][I][B]P TO a>=fAT ▙ GO TO hAT GO TO ▙ GO TO AT GO TO AT h▗AT GO TO P TO ▘#(USR *SIN a>=a>=▗#(▝ DIM * z▝[Q]0▞s *s" STEP *s) 0▚* CIRCLE =P PAPER 6▝ CIRCLE LPRINT ▝ LLIST LPRINT 18[D]CC CIRCLE 7 GO TO sUSR *p COPY REM s? BEEP ▘(© LPRINT ▟ READ CLEAR RETURN s"USR s* FLASH (@O RETURN >7 GO TO Dpppx0▗▘[I][B]P TO C CLOSE #eUVAL$ RURVAL$ RURU▗URP TO ▖B▖DDI5C CLOSE # RETURN ▝ RETURN ▝/ RETURN ▘D( RETURN ▝ 0▛wtap :jizni AND ▜:o~ki : COPY RESTORE ▝AT p▝ ▝ 0pp@p@pPSGN `▝`0▝[A]VAL <=[A]]- COPY CLOSE #ATTR a? READ >=CODE [G]jVC0 COPY IN PAUSE DATA BEEP THEN USR ASN ATTR [R][I][A]▖yrlf`[UQLHD@<9630-+([G]&$" [I]▜STR$ STR$ ASTR$ BSTR$ CSTR$ DSTR$ ESTR$ FSTR$ G▜DGGEGG▜BGDG▚GFEDCBNOT G THEN ▖L00 a00:▚b0 ed 1 DATA NOT 0a REM USR CLOSE #▚ll$H" LINE |(|6|p||-▙ AND DEF FN <x NEW AND p CIRCLE LIST z BRIGHT PLOT 0▝#P▝<STR$ p▗<xSTR$ ▖x RETURN 8l▘88 RETURN 88P[ +▝ RETURN pl▚0`USR `STR$ INPUT a▘8 SAVE USR 8#| OVER OVER <x < OVER y GO TO GO TO RETURN Z▖ DRAW LPRINT DRAW DRAW [A]▘ LPRINT DRAW 0 RETURN @B[R]H▘~>= CAT [T]▗8p8?© ▝ CIRCLE INPUT fk{{kf ▖ RETURN INPUT INPUT h▗ OVER DRAW OVER OVER h▗ PLOT LIST LIST PLOT RANDOMIZE n▘ INPUT INPUT x▚~ LIST RETURN LIST RETURN ~0▘ LIST LIST LN LPRINT INPUT NEW 78 INPUT USR VAL$ ▘ BRIGHT BRIGHT 5 CHR$ LPRINT CLS ▝lUSR RETURN ▘ VERIFY VERIFY @ LIST hP SAVE DEF FN DRAW LPRINT LPRINT A▝©0▖▗~ LIST DRAW ~ LIST XI 7▞/▝lY▘ VERIFY VERIFY Q▝lB ▝|q RETURN <x LIST H[I]EXP ▚USR `0>=[Q]<>8TUSR K RETURN [D]<vp SAVE p CIRCLE ▚>ww©ww LIST ~ww CONTINUE CHR$ w▘© USR v COPY NOT ©pR[Q]▝>STR$ k>©s RANDOMIZE (:8USR s▘w{▘kk@▝| P▝USR 7Xcw© `(▘©s.6▝wH i?wwh~X▗>wpp CHR$ [A]▘?x▘~w0[Q]>gg▖▝p@VAL ▚cc{oo{▝ckk©PNOT 8P▝0H BEEP ▟~STR$ INVERSE MOVE INVERSE A>UUaffbUSR f"ffSTR$ U AND f▞bvuwUuff&▙bfvwWgfg&fgffv&▝vP,▝▚>▝n G▗&fVf# "ffh @f▚& Gg`▝gY 5QO▝e x▘&F0▝'▝vi0▙▝""[J]▝ NEW ATTR ▘"e[F]▝"Pf0TAN NOT 0©@NOT ▝n0INKEY$▘RUTAB ▝wL5 STOP ▝0/▘&R LET STEP ©&f"UUu%"" PRINT U PRINT [Q]$P[L]LN [M]DFBA INPUT LPRINT P% LPRINT BORDER P BORDER Pp INPUT ▞pb▗ LIST LOAD LPRINT STOP ▗w▜ LPRINT w LPRINT STOP ▘"[L]"▗pb6▘ STOP Q▘ STOP M[P]p NEW `~ LPRINT ' STOP LPRINT `~` LPRINT BORDER ` LPRINT w BORDER LPRINT &"Lr[E]fb BORDER NEW LPRINT ffv`0▜p NEW `)▞rfb`ff``u INPUT ▝(▝ NEW USR ~UU&g INPUT f NEW NEXT ▚nneUUe fFnvfuwWUSCREEN$ ▗n NEW PEEK INPUT .uUW OR U[F][J][J] e RUN vQ▖ IF Q!7h▙0 OPEN #P[L] LOAD FCBBY▘f"q▘fgs▖Ru'frvf[F]▞f"VQUw"v`e▘`O▗W%"b▗`cb&COS ▜fR%b`bLEN ▜`bV"f7▛g&gb&b`& VERIFY ATN ▝▝`J`gr LOAD p&&bb;RUV`D INK ▖f&UWgD▗vfhp CIRCLE CIRCLE ▗&` RUN e!▝% CLEAR `fP[R]▝ AND ▝&q▖"fRef`wLEN ▗rv`PI▟Vefb&`r"g&b7[ OR ▘ I▝`VAL ▝vK`v'U%U`h&[K]x▚&&WUuzR▘b CIRCLE ▝[C]wfvh▙wINKEY$'-hP[L]H[N]Bt▝"▝&Gd▘gb▝VTAN ▝P!|▗fbbv1[E][P]▝'▚ vf MERGE #[G]u&&VU DRAW ▘ MERGE U3▝ep#"bVf%&bRUgr PLOT e-▝& POKE ▘VU▘R% LOAD ▗&e&ohINKEY$▝UAT STOP z▙beU PLOT v PRINT gbVU%fg_4<▗eb[J]YeK9▝%▜bgoVfv"▘e VERIFY VAL 8zh▝VUSR eV▗Vvf'$▞ PLOT ▝$e2g▗%bfV▜[F]▝W▙▗g]fgg▝ACS aFN .voO]U©[M][L] VERIFY ebb MERGE PLOT COPY !!=P[L]L GO SUB AEBDuueWWgACS STR$ u[A]U▜eguV%Uveebegeu▘VVu PLOT VehUf/ BORDER [G]▗eVfUUASN ep▗ufUv(E▝U5▝uM1(TAVgV▙eU[J]eeuuVWvWeVWFCODE ▝ =▘eF@t▝V AND ▝P[F]▘em▝▗[F][J]ey▝ui▗uWUeop▘WVHfge%p▝V CONTINUE ▞▟▗Vegfh CIRCLE ufu BRIGHT ▘eX▝u▗RNDLN ▝Wa IF 0▗be&V PLOT RANDOMIZE ▘UmACS [F]UVxrruurbvqruru"W%PIP[L] BRIGHT 4 CONTINUE x▘vnp▝"▝n▞▝'BIN [J]*▘r'#Vbf STOP fg`▘rrTAN %▛2 LET ▝d▝ STOP 5 PLOT ,▗g" COPY /x©▝b CIRCLE ▝ COPY ▘% PAUSE ▟b"bUSR R▟0▘&rcsew'v▗&'&zVAL ▘uwl[E]▘fw[F]l▘VuSIN ▘U%▗uV"R INVERSE ▘wrTAN OVER ▝ey[A]WUgV PRINT COPY _%f&"e&wUR=of"U&"VVRRbv▖g PLOT IN USR V2▞CODE ▝vo RETURN w" PAUSE "U PRINT COPY U▜ PRINT 3[G]"▗A▝%U▝ RESTORE J▗U%^ MERGE [C]▗r"U^Jz▘"r[H]▘""6LEN B POKE $▚%&UU[J]Y[G]6COS [F]▝▜3z'[L]▝V POKE ▝w OR ▝v'x VERIFY ▞▘ NEW LOAD PI▝n<gu%rW DRAW m▖VbbV&" STOP T0▝r>=▗Rbf VERIFY GO TO ▝[J][D][F]S[F]<=▝n NEXT Y CIRCLE ▝"SGN q CONTINUE ▘&u▖vRUbg"▚ RUN g%ufwCHR$ ▝b STEP >▗wwRw[S]▝RABS ▝' GO SUB STOP "U$▝WTAB WUASN $ OPEN #4▘U STOP ! LIST TAN ▝%&▚ STOP R% INPUT U%A LOAD 2▜[E] GO SUB uPOINT vf]L[L]▗oR("A$▘"bSGN :▝ RESTORE USR &▘fRB▝ NEW USR ▚veg NEW n& OUT bg^I▘g%▙▝r▝ VERIFY /BIN ▘U STOP mxMLN ▗V'"rFN ▝' LPRINT ▚%b RESTORE UVr▜p▝'[▜f BORDER nV%"r▗'rW% RESTORE ▘u"u"uf PLOT O▗YU"QASN Un RESTORE e`%QBIN ▚XpeUS▚WUW RESTORE ▗gV]e DRAW ▝v RETURN ▝/UU INPUT [N]▘P RESTORE P▘W^t▗Pnf LOAD :^▖_unevEU?`▗ COPY U INPUT PRINT >▝ PRINT NOT COPY ▞UU^ MERGE +! CONTINUE ▜LN [M]USIN ASN erw NEW /▝r ERASE ▘%%COS ▝% DRAW ▝"PEEK LOAD ▖f& PU%r NEW ▙R%eUfrrf%UrU"f& DIM EXP ▖[J][J]Yue%R▝V▚ LPRINT INPUT P%ePt%w RESTORE ni INPUT %fP"*▖wvug RESTORE [F][J] RESTORE I▘gv]Y_)Z3IN ▚eV% RANDOMIZE RUN )~▖-"f"rveWc"&rwwlf%[F][J]RND▘frf▖wUV%fi&%6 BRIGHT S9NOT CHR$ "▚f NEW ^U LLIST LLIST 8▟▘ LIST COPY ^▝T(▝ACS _^_ CONTINUE V▝Q* AND ▘"Wp▘"b LLIST ▘}{T-<== PAUSE VAL$ ▜$[N]R BORDER ▝w FLASH <[▘U ACS ▚""RRu SAVE ▝VAL REM ▘fU SAVE ▞, NEW BORDER ▜▘Vu PRINT U".D5SCREEN$ ▞▝ LPRINT TAB ,▝& ▗&W[G]▘Uv<@▘W LPRINT I▝v▚▝W"▝rSTR$ ▚U`V RESTORE PVAL$ ▛UfU T`INKEY$ RESTORE ' NEXT ▛Y%UUb▙eP1Uf%VAL ▗ "▚ READ ABS ▝e)▘Vg▘V ▝ FLASH ▘PPSQR ▗bP LIST ▝b@▜efU%'frRPEEK DATA %f▘wW LET ;▗&U RwwW[D]P"▚LN GO SUB DAMC)- fvINKEY$A."^U]fn▝g LINE ▗U.R MOVE e"&;PEEK ▗ RESTORE Uzf(VAL COPY ▜wR% RESTORE u"hzEXP DIM RETURN "g"^▝" GO TO %e CLS [H]▗UR"&K▘oG[R]0(UVAL ▝[F] FORMAT ▟U% URR PLOT U BORDER fi-▝`SGN ▘ P▝n▝C▘o_,f▗U'`RR PRINT PLOT U&FN [A]"U COPY f PLOT _U%%IN _UWe@[O]▘▘WUCODE PEEK LIST ▝_PEEK ▘gb( NEW &b=i▗ RESTORE RND]%eACS ▘ PLOT PAPER ▝ INPUT <>U▞] RESTORE "RND FORMAT ▝ACS ▘ub)+<>UWR▜'(Y▝Vk▞'WRR'Gev▖▝W▗WRW%VAL ▝e[[N]▗wgbb?eu%▘%w-TAB INPUT OR z▝RPOINT ▝b BEEP ▘e[T]KnVbTAN CHR$ CLOSE #)▘ COPY V▝%[A]UWu8▝^FPU_"▜▜]&Wwfe`Y▗&RRW CIRCLE >[R] STEP ▝[G]V!Q▚UkVPonH▘fbPfU_enfeR<[P]▝_A[Q]f%./▝nLVAL PISTR$ WfnPL fVNOT _▝ NEW 3▗fh`M LINE ▗U CLEAR U/-y* OUT ?= FORMAT ▖[N]%b&b#▝#W}▝bINKEY$>BIN G41NOVAL$ .▙Smu&v^N▝&[K]▘ PRINT o~▘ PLOT _d COPY ▗ PRINT _V COPY * LOAD W+▗+TgfR[N]▝WP THEN GSQR c STEP ▝g?▘vV]v f@ip DATA [O],SN CONTINUE ;LN YFVAL$ ▘U?©. BORDER ;@ PRINT _ COPY !{▖ PAUSE P[U] CONTINUE MERGE UCOS ▗U MERGE BIN ▗f GO SUB ▖ej&QUeWf%eu%bR GO SUB CONTINUE ▝&SCREEN$ ▝ RUN ▜▗ PAUSE %U*▝T▝%PI LLIST ▝RVAL ^ PLOT ▝u[B]▞"U"wRe%b"1▘vU,▘w'▗U[bn*▘%ro COPY 8"w"UV FORMAT G▝fEXP gl-E[T][E]n INPUT MERGE RETURN READ ATN PAUSE "u5 NEW INKEY$*g[M]▘VY_ PLOT ▝▘RPb[F]YY PRINT [G]▝U▗ff PLOT uVAL ▝"▞P%& PRINT f_UX"r RETURN ACS ▝ COPY (▘"~ POKE .[C][K]▝ STOP ▝h▗ff▚ni~▚ BRIGHT [M]0r'[C]<[E]▘'Vz▛PWbeb%R'/%RS7PEEK ufn[▝b FORMAT USR P▗reWR STEP Uu THEN ▘uW]fgT%RefRWgVbu SAVE Wb8RweuATN ▘QR#VwW&RT▘%W FOR STOP vINKEY$~[B]▚VRbUR▖o LOAD LINE ▖Vg&RWb`m▜UV_RVg%TT▘V▜[D]▗V"by STEP ▗n_bV` BORDER CODE ▘V OUT }▘Rv▗uenUL▝pk▝f!S OVER UfASN RESTORE ▝eSTR$ [F]▝ggASN 9.GSIN [Q] CLS l[N][U]▚f▖XU MERGE PRINT LN ▘b[F]▚fU[J]UW BORDER ~bbn PLOT ▖[J]%'eV&`UUSR YVVbPOINT b&U VERIFY (▘©w+▗[F][J]Y RESTORE 4} DATA ▝ INPUT X.▗ NEW fV INPUT ,,▞ NEW INPUT vV RETURN Ug PLOT ▜gf NEW NEW VR PRINT !on LOAD ▘U[n▝Ve BEEP e[F]upW]Wvur`▘W~)▚Vg]v%' LLIST ▘W] COPY ▛NOT ▗W%Uwu▗RU NEW NEW CLEAR ▝R[N]▘RVoINKEY$▘UU*▝VCHR$ Y[U] BORDER ▖) DATA - INPUT 9 LIST ▝ PRINT COPY 5NOT PRINT [C]_1GP[L]BIN CLS UU VERIFY / RESTORE ▝%ABS / BRIGHT ▝v<>evINKEY$ CLOSE # LET ▝vy▟SCREEN$ 'b]rt STEP CLEAR ▝'[K]wv&[H]IN U MERGE 'b[G]fWuh'STR$ kUU[G]"VAL TO ▗U[F]▚W GO TO "`-▞Uo][F] NEW W%eh▝m DRAW ▘o_ DATA NEW ▖pg NEW f PRINT f[ LOAD ▝h NEW ▝`/▝ PLOT x RANDOMIZE `nINKEY$▗ COPY RESTORE ng INK ▝e▜Ue PLOT RESTORE BORDER NEW INPUT STEP ▗f`v NEW @CODE ▚n BORDER VFff<V%V PLOT RESTORE W ERASE ▗Va PLOT f BRIGHT ▘n^VAL ▝P THEN ▘eR-'RPNOT &▝"PI[J]UU, OPEN #P[U]H[N] LET ]%▘Uo[J]~f[S]▘(▘gW PLOT U RESTORE n%rRuRNDUb"▙ RESTORE [G]%r[C][J]b NEW u_&U NEW OPEN #▛_wWW STOP NEW COPY /eg RESTORE g▝Vi2▘ COPY &INKEY$▗fP NEW RETURN RETURN LN ▙ PRINT Reb RESTORE fPf^"%'[J])COS ▘u▚▝V REM &VPVX▘bnp▗bWV LPRINT ▗wRW STOP NEW &UV OVER x▖)Vwfub%W GO SUB ▘u%[P]▗WbVVIN ▝ MERGE ATN [F]WeR_r5▘f^SQR ▝'▚V[rw BORDER [J]STR$ SQR Rw%>[I]KZ LET ▝d>2▗``R▘[F]YEACS [J][I]YU[F]Y PAUSE _ RUN COPY _"euv PLOT COPY o' RUN ©I RETURN D▘p GO SUB PAUSE H[C] PAPER ▘b▘RR PAUSE ©EXP ▝e▖ FLASH ▝Wc▚uewPfd[B]▝eINT VgCODE K▝` RESTORE ▗&Vv OUT ▗g AND WWqX▗UUPb▝QPOINT <>▝%▝g2'be BRIGHT ▗%uPPm▝RVAL$ ▝Vp▗&%fS▝W▜{WfUSR (~UvRr INPUT "WVWVeR▘^▝PAT f`%exUPpVUG LINE 1▚`PVvv STOP ▚RVWV▜U`PSGN USIN ▚▝)[▝R[T]u▗Vge' LLIST VwV POKE ▚rV©G^ CONTINUE PAUSE :▝C}▘WvWWc9▝VCOS SQR ▝g GO TO INK UUgWVSIN LLIST *X[G]/6 BORDER g▝e PAPER ~VAL$ VAL$ ▝V[C]▜UuevVfW DEF FN SGN 5©▝Wv▘fWevw`{ [O]% LET ▝V FLASH v]U▘guc%C AND OR ▚PEEK j▝W ▝-▚ SAVE STR$ u CODE hAT [F]▝u LET ▘fv RANDOMIZE SIN [C] IF ▛VUD( GO SUB ("t<>U FOR ▟wW5fVr'Rw'wru-[P]g▝R[I]SCREEN$ ▝eLEN x OVER &''vr-&G'( OR . INK (▝V>n>=[E] SAVE INPUT ▘fR NEXT /▘&'z+▝f`▘vv▙▝b▞VwuWwrbw'<gfWwufDp▝r[T]t▝%[J]©j▗'R&UbwwRcvgwUSR v RESTORE ▘Qb |Ic="▜ BRIGHT [M]CDBA PRINT ▘%%[P]▘ RUN ©n}▖f_%!UZuW` NEW fugVTAN -&bUR OR i▚y▗f& PLOT SIN NEW 9▝ COPY TAN [N]:"▜VYW[F] LPRINT "+BA▘WYR` BEEP f_'[F]U FORMAT ] OVER ^e RUN Z▝[F]▝U![F]Ve[F]e VERIFY ]^^[F][I][S]▗UV[F] DEF FN 'fUg MERGE fewpU%[F][G]6▘f RESTORE 'f&▗▚hf PRINT ▝v=* LET hfTAN ; DIM ,;[E]+jfV^ GO TO ▝^+ SAVE "k▗_W__^"f RETURN U RUN NOT ▝VUw'PIZ▝UUSR Z▚&CHR$ ▟EABA"Wr"wr%%e ^▜&-Vw"'r READ LLIST NEXT s!▗u%Uv▙e&&[G] NEW 'ff)&R%LN ▝eATTR ▝wOTAB ▞%ubve" RUN V&▝eUSR %Q▘"o DIM 3<>▘" NEW ▘rf[H]▘&VINT ▘" MERGE ▝Uz FORMAT V COPY ▜ fUVI▜f%U%▘'e▙ PRINT %ASN uufVP%< RESTORE %AT K[R]LN _▘upE-fU^ OUT ▝Y0RW% MERGE Ox'&RI▘f PRINT BPEEK %ed >U RUN vBIN ▘w PRINT ▞▜egg VERIFY 1,([G]$ CONTINUE ▞A PAUSE U" INPUT bw MERGE PRINT OVER RETURN [J]▛V~f INPUT fVRg STOP j▜Ue BORDER f DEF FN [B] PLOT vV VERIFY ▖W&P RESTORE nfV LOAD iUf PLOT EXP ▘"kiVU LOAD RUN nf&uW NEW f`ebo" DRAW ▚ef[F]iV[J] FLASH ▘uu OUT ▝ OVER C▗ PLOT W PLOT &Y]bV/M▜Rf_&R&V▝e OPEN #▝f▚b STOP /V& STOP ▟o NEW bRf^ LOAD RvVnboN▖VnV RETURN Vn^ PAUSE LEN ▞efrWo_fR NEW ERASE f'&I▞fRoVn OVER WR PLOT V▝m- NEW ^ RESTORE AT FLASH ▜VWX/^f_>G▜nu_WXb_(tuWX▖▗^UR}▘%wo RUN n VERIFY w MERGE f CLOSE # INPUT U RESTORE USR INPUT /J~▘ INPUT t▘PLEN ▟eb▚gh` STOP PB"UU▜Pegnb&u▞uwe NEW v MERGE f] INPUT ▘w MERGE INK ▘w5 NEW U`* CAT ▚n©U LPRINT INPUT # PLOT O▗▖XfSCREEN$ ▝ NEW feV`j▝g▖Pug LPRINT INPUT PLOT /▟UwoW uRPV PRINT PAUSE [D][C]e©vUYV"V PRINT PAUSE egrUgoe PRINT PAUSE %vfW PRINT wfXwv%f▜UW PLOT e_u&/<▝v/▛[C] MERGE PLOT ERASE PugPUoWuf RETURN MERGE PLOT BRIGHT ▚VU PLOT Vwg BORDER ▗ASN WgB1N▙gwv&W`e COPY V▚▜[[B]ug& u RUN VhVu`RwO▝ ^ MERGE VERIFY UgRL#'/▗AECwCHR$ INVERSE ▘u RETURN p POKE ▝/%:▟ INVERSE INVERSE UuwVYrU MERGE MERGE VERIFY wSTR$ ▖UWefP VERIFY VERIFY INK rr'wwl2p▚f%'w'rG▞u INVERSE INVERSE VbFn[F]Yh~▗XwUWPY▝%*▗X~W} RANDOMIZE UW▖u INPUT FOR [K]▜R'U[▖▖ INPUT /▝e▝f▝VC▗]U[J]?EXP {[G]▘bbv& NEW TAB ▝U$vR[J]ATTR / FLASH p/X▘w[H] CLS NEXT vwiP[I][H][J]^ LOAD [G][J]"b}^P▖i'[C]U[F][C]rbWb▚fYVmf VERIFY [G]R▚ummU[J]YB[G]}Uew[[[F]▖Y}[N]w BEEP ▚V OUT UU▞▖ FOR ▘[H][J]B▜ffX2[J] CONTINUE ▖LN GO SUB "UCHR$ ▗'Rrx▝3"EATTR ▝"o▘R/ DEF FN `X▝%) DATA " LIST POINT ERASE ▝ RESTORE ▝'eVAL GO SUB ▝e BORDER Ubv@▘%`T▘uSQR DIM ▝ACS &"e READ H OR ▘WbNmEfw VERIFY ▞%bvbPuWg RESTORE ▗WeuP'@W▝uJLEN Y=▚`VwvVSIN <>▗%f;VV%LIN P PAUSE b▚gUPgw-▗PPw}$ STOP fv.l[U]©W%[L]Pu▙▞RPU"1~H[N]AEBF `V MERGE &"`U FORMAT ▖ NEW V ` LPRINT V▖▜}fW``I STEP ▘f g%b& IF ▚ LPRINT `%'0f▝▗"" LIST [L][H]f LIST U"U~" RUN _ PLOT _ COPY COPY © PRINT `wrr▝-![S]% OVER PX^PU/%Ro%rrPhVed[J][J]) COPY u""PUA▜uyw) PLOT fPNywi LIST %&`_[L]▘▚`e `_▘ <▘g OR ▛`V%b`b`▗hf_RND[A]▖fACS pupNOT ▘▖n}[B]-RV& !v PRINT VERIFY gw` OVER "'6BD▖ PLOT ]©_o PLOT g PLOT AND ▚~X}VU COPY 6^▘~ BORDER ACS ▝ MERGE LLIST RETURN o RETURN U LOAD U PRINT PLOT V NEW ▘_ COPY ▗ww PRINT COPY CONTINUE JFN ▝ PRINT STEP ▟ PLOT og COPY Wv PLOT fex SAVE IN COPY [Q]▞ PLOT f PLOT _ PLOT gwe▚ INK Ufo PLOT COPY [B]TAB AT )[J]>=▗ev COPY _?9[E]e COPY Uf_ew RUN _ww PLOT u© PLOT _We PLOT U INK ▖V RUN o©u COPY f_ MERGE enf COPY wo COPY PRINT f PLOT Voe PLOT USR COPY f_ PRINT wAogv▘U} RUN A<>U PAPER ▝ PRINT TAN g SAVE ▚fnVfn CONTINUE ATN n▙▟F-n▖xCRNDDABFD>=Uw uU`[G]Qu'ruvWU{▘wo▗%g"`RNDfbb`W%fw{[I]rpf`vWuwgrvf r"'bRu▞b"grrf V CLS bv&fwwr bv2▝v FORMAT ▘bg>=▗b'D▞"`R be"TAN DATA ▝,▗"`fp[J] STEP "" b g'FVu"r▝'▗rP.>▘fS▘p▘b`kr▜R& BORDER rPOINT ▖ RbPw[L]C)▜V`wwE▘~[Q]▝PXwwPASN LINE SQR [E][c*,[L]$[N]DBBA~ RETURN LIST ~▜~ RETURN LPRINT LPRINT LOAD USR LPRINT USR LOAD STR$ LPRINT ▗ PRINT LIST STR$ ▗ LOAD BORDER ▝ INPUT BORDER BORDER RESTORE SAVE ▗ INPUT INPUT USR RESTORE ▗ BORDER RESTORE LPRINT COPY ;▝^0▝ LOAD 9▝ RESTORE a▘ RESTORE LPRINT Q▝~6_/ AND LPRINT ▘ BORDER LPRINT NOT ▝▟▝ INPUT {0<BIN ▝~ 20:▝▝PT0^pX INK ▘ AT OR Py[P] LPRINT BORDER COPY = LET LPRINT BORDER LPRINT LIST f▜ COPY 9Y FORMAT UEX]V]UU-OATN ▘^f{▝ NEW t▚ee%Vf VERIFY LINE m RESTORE DATA PRINT V TO ▘&WR▗ PRINT PRINT e RESTORE )Ren SAVE ▝z CIRCLE V"TAN e PRINT R▝ReuVUoC▚▝[I]i▝^[D]- STEP F▝mN#▝▚V PLOT f RETURN nGAJI[▚ PRINT eU^Vhs▖V NEW NEW fr PRINT u▚/uSTR$ V▘% PRINT < LET LIST ▜NOT ▗wfU RESTORE ▘^UTAN [O]e PRINT UUb MERGE e▖ PRINT Ux RESTORE ▙efn PLOT vw LET ffLN MERGE CIRCLE U]U_[B] IF ([G]▝E@CODE OPEN # RETURN ~ NEW ?INT 8 PLOT [C]_ > OPEN # RETURN PRINT PAUSE &ASN INVERSE PLOT NEXT - FORMAT % STEP CLS <>z2K BORDER MERGE STEP @ BORDER MOVE NEXT <> RESTORE MERGE <> PEEK (CODE PEEK (> COPY 2FN BORDER MOVE LLIST ▜ COPY ©<> NEXT !0ipipipipiPi[A]NOT : CONTINUE ATN ( STEP (▘<>: COPY ©NOT S▘XTNOT y>▝▘>@▝@▝0▞<>PEEK ( LET <>6 PRINT [I]. CONTINUE LET <>! CLEAR 6!. CONTINUE 6<>:FN BORDER ATN :.p[ [▘ COPY ©ACS )▝W$[A]NOT / CONTINUE :W CONTINUE RETURN COPY TO H<>>PEEK L▗>PEEK PAPER [B]W CONTINUE <> NEXT CODE ! COPY COPY OR "▝ INPUT 3▘]0[F]T INPUT FOR OR RESTORE MERGE PRINT STEP 0[C] LET MOVE LLIST STR$ STR$ INK CLS 03 PAUSE LET PAUSE LET p3p3p3▝Op3▛! CONTINUE CONTINUE STEP DEF FN ▖<>▘▝▘0▝p p p <▝▗▝!L▝$8▗$▝ p@p`p``▘▗"#&0p`p`p``[D] LIST COPY RETURN BRIGHT @<> RETURN [A] FORMAT STEP EXP ▝w<> OR ▘o▗ COPY COPY 0USR LPRINT ` OR OR `0.@$` LPRINT USR >[A]>= DIM OR STEP @STR$ LIST 0▞ DIM ▗#▙ REM OR STEP t@▖ REM USR DIM G CONTINUE ▗ SAVE 0 FORMAT ▘>C&▘ :BFN <> STEP REM STEP Y STEP TO ▝ STEP LLIST CONTINUE <>CODE 2▟ REM 2 CLEAR ©<>> CLEAR OPEN # COPY FLASH RETURN NEW :▟ REM RETURN COPY (▖▟ REM STEP REM STEP u▟ COPY ▘01CODE w<>! FLASH NEW >=@▝P▝P▝P▝p-p-p--▘> OUT ©▘USR @▗USR > CLS P0[K]▝© [T]▘(p-p-p-0?▛!NOT FOR GO SUB VAL ▗7▗@▗TAB ▗'@▗ RANDOMIZE ▗0@!▗Y▜9@,▗k▜B@7▗NOT ▜K@B▗▖T@M▗I▖]X▝<>d▗NOT !@d▗7▗!@d▗TAB ▗!@d▗ RANDOMIZE ▗!@d▗Y▜!@d▗k▜!@d▗NOT ▜!@d▗▖!@d▗I▖! d STEP f FOR @g▘BIN REM `g▝ STEP @g▝ VERIFY @g▝ OUT @!g▝ CONTINUE @,g▝ LET @7g▝ IF @Bg▝pg▝ THEN ▘3 CHR$ .▖ klavi{i AND ▝4@▖djoistikP▟![F] GO TO STEP O!TAB ▝<> STEP <>> RUN 1SCREEN$ STEP KPINOT ▛@▝0▘. GO TO ▜NOT e▛ RETURN RETURN DRAW DRAW ▗SCREEN$ SCREEN$ PP[P]DDUSR PAUSE ? SAVE DRAW ©x}|0 SAVE LIST ▜USR #[B]^▘STR$ FN @x. LLIST V9l`dy DRAW SCREEN$ ?ELEN pX RETURN COPY FORMAT INKEY$PEEK UKEE/▖▖/▖/▖IN STOP STOP IN ▝*`▘▖/STR$ F[Q]▘(l|8 RETURN RETURN |8o[D] RUN PAUSE S LPRINT USR RANDOMIZE SAVE [E]>p"[M]>=STR$ E▚9 LPRINT NEW }| AND PAUSE [G]n CONTINUE |NOT CAT 98 OUT rxUSR DEF FN <= NEW [C] OUT STR$ DIN O[I] DRAW [L][INT [M]ASN 2SCREEN$ LINE FN a>= CLOSE #CFF$$DD▟,,**DDSQR LET FORMAT LET PAUSE NEXT [I] NEXT [I] PAUSE R LET :[B] CLEAR = NEW DRAW AND $_ INPUT o▘g%a COPY COPY LOAD TAN q GO TO q DRAW r COPY COPY COPY PRINT [C];;8;3[{LN ▚~ RETURN ~▚LN LN 3▗8;;LN @?©©(IN LIST SAVE DRAW DRAW IF CLEAR REM U RETURN CLEAR zU*SCREEN$ USCREEN$ TSCREEN$ TFN P==>USR LIST INPUT SAVE BIN LN USR USR SAVE LIST USR 0w LET LET x xLN SGN SGN | h SAVE #▝ RETURN OUT ▝ COPY p LIST IN B0[S]50 OR INK )`[F]"Y[I] VERIFY THEN OPEN ##▖YP<=0w[I][Q]J7W`7[Q] FORMAT CIRCLE GO TO REM GO TO W 7 REM GO TO CONTINUE CIRCLE FORMAT [Q]▟((( DATA ([L]((((,(▘0▚▖ COPY LPRINT ▝"" IF ▘(B▚▝▘`(▝J▝▝"▝(▝j▝(▘INKEY$@L▝>▚▝D▘▝ ▗[G]~▘VAL ▝TAN ▝LN ▘dp ▝< TO ▜"<!>=▘$ 0USR ▝##0▘$P RETURN ppPp8p8p8pTpT0/[Q][G]▝P[G]▝P REM TAN COPY *▝d▝p▝",▘ AVP@P▘[U] ▚SGN [U]H▘P[K]2!▘VAL LN [I]▝BIN FN "TAN ▝h▗!!>=p@p@p@p@`@▚TSGN L"zVAL$ <▝$Z COPY $vP TO USR ▖▘@▝$AT 0 ▝ (P `@▝p@▘p@▘@▝0 ▝p@p@"▝p▘p80 ▝pp"J▝0VAL PAUSE X PUSR # VERIFY D LPRINT L/IN jCHR$ ] CAT [ GO TO O LIST OR ~ REM ) OPEN #ASN [O]k{ATTR =i[E] LPRINT z`NLN !PEEK GO SUB @^ READ GW LIST L CIRCLE h ERASE OR INT INKEY$,{1 INK L DATA x[N] FOR ERASE IN <> PRINT R IF <=EXP NEW k NEXT RESTORE (, AND jT COPY i' STOP DRAW ; CLS OUT uj<>[J][R]▙`L CONTINUE [R] BRIGHT LPRINT Y DRAW ]BIN tPEEK RANDOMIZE [ THEN CLS /CODE lINT SCREEN$ IN MERGE DIM FOR Cc FOR FLASH PI STEP LOAD (!SCOS [S]INT ▚(SCREEN$ d[I] CIRCLE [D]EXP W▗G THEN CLEAR RETURN /[O]▝VAL$ 3NZ>[G] OPEN #[M]<NOb![T]co GO SUB W RESTORE z▝6 CONTINUE L]IN [T]gATN POKE " LLIST TW▚!; RESTORE CHR$ FN KINT VAL ▚SGN LET w NEW CIRCLE qg5COS ([D]WvTAB OR THEN CLS p RUN SQR STR$ OPEN #[Q] VERIFY STOP u COPY INVERSE [F]3ASN /▘SIN FN |eSQR F:6 CLEAR ©p NEW Q6| CLS [A]FN NEXT SRNDUSR F PAPER u RESTORE 5)lABS PI FOR @D[A][F] CAT BEEP k▘]fSTR$ RETURN ~ MERGE a OUT RESTORE TAB l▟9▚; READ PISo©[H]IN [A][H]i OPEN #VAL$ USR INT [G] LOAD PEEK mjN9 OUT ▚= BORDER [N]STR$ GO SUB THEN dFN 9▛oINT [B]d[D]LEN RNDfk PRINT OUT [H])NOT FORMAT DIM dg2 NEW THEN ▘Yk LINE INVERSE ▘IN @ LOAD LN SCREEN$ OPEN # RESTORE 4`#[A] RESTORE [K]JRtCstm LPRINT CONTINUE OUT IF USR INPUT hT CLEAR z[P]=` THEN c[B]BA OUT -INT PAUSE COS i LIST knGU FOR [E] PRINT D-[S]LN 7FN xIN o[E]{ CAT m|Q OUT iVAL w DIM STOP [O] OUT IF [ OVER <>[K]E MOVE INPUT VAL$ =DO LLIST o FLASH [D]<=[U])H{ z RESTORE RESTORE c[H][I] FLASH 2S'W[F](TAB [P]ATN COPY e OVER BEEP IN [B] CIRCLE BEEP AND ▖ pm POKE OUT ▜{EXP d[J]INKEY$▚5,ic CONTINUE c PLOT POKE [B]o yK NEW ▙ GO SUB NNOT OUT nYPEEK |z▘Y`INT [D]^ DIM TYY[A][T]TAN l(ABS IN 2f▟AT [ OUT n// VERIFY [R]nhN>[H]L[_IN CIRCLE [G] CLEAR STOP ▝[F][S]LQ OUT FN USR I&$ GO SUB K[U]e NEW LET NEXT ©[J] FOR _[R]©o[F]IN ATTR OVER COS INT SCREEN$ REM i AND LPRINT [r DIM ▙DINT CODE u CONTINUE OUT r GO SUB INKEY$7[H][S]9o<=$ INVERSE FN ▚ACS Y FORMAT i RESTORE STOP m▘U▘ FOR GO SUB ^ RANDOMIZE < OUT Re>=gh GO TO T VERIFY RNDIN Y FOR OUT CIRCLE MOVE [G]n;▟AT INPUT VL FOR ERASE OPEN #K-k NEXT NEW RESTORE x) FOR OUT =CHR$ AT W MOVE RANDOMIZE ?USR <>|dT PLOT [O]▝[T]{FN RUN OR = PRINT READ SIN {ASN CLS INT LLIST TAN S6IN OPEN #zXVAL b:IN SGN DRAW :SUSR LlCOS SQR X ERASE VX LINE OUT LET RUN SIN WfS~WHy AND T[P]/| FOR i BEEP 0; PAPER e BRIGHT mz PRINT M CIRCLE [C]oIN USR 6bFN ©[mc_; LIST LEN O IF G GO SUB AND PLOT ▞BIN c READ <>H▘`IN ) GO TO [O], BORDER ^l:TAN OR IN ' PAUSE /TAN c OVER 0SIN FOR oW CLOSE #TAN ]STR$ IN q[I] INK USR [R][F] CLEAR S3MF;u LET ©[H]▚PI OVER D$ INPUT s[C].a LPRINT [G] FLASH VAL$ 2 CLOSE ##[B] GO SUB Ji RESTORE > DIM LET COPY INK ACS AND ▟ASN |h GO TO IN -FN STOP ▖ CONTINUE >▗GUSR RND INK TO INKEY$(SGN [K]D[U]RND REM ,zz LLIST 2©VAL [G]yN[V VERIFY SGN p~_ vCODE BORDER ) OVER F[C]VRiSIN SAVE IN Q FLASH TAB V1aa STOP CLS <7[R][N] AND x▘lEXP ~nRND PAPER RANDOMIZE .l STEP d[U]COS VAL$ USR RND INPUT POKE OR D[Q]R▛<ASN [D]N3 OUT p DIM ceM LET aeACS PAPER NEXT LPRINT [N]IN Ug5EXP REM POINT SCREEN$ { CAT REM [E]▝8CHR$ SQR OR FSTR$ t^ CONTINUE ABS STEP oG INK USR THEN FOR l0POINT FN @ STOP rnVAL$ CHR$ [P]^}[T] SAVE n TQ:INT &0ATTR SIN LPRINT LEN PEEK DRAW [ REM FN ▜cA[E]zyT STOP ▗ AND N@ LPRINT -INKEY$^ NEXT PAPER INPUT ▜ LOAD VAL RANDOMIZE &BIN CODE w GO TO COPY REM PI[J]SCREEN$ SQR TO ▖ INPUT COPY lf COPY fwWQffgfwr"gf&f&fVebbff&&g&CHR$ f▚&e"fb RESTORE bfb&u" ▝v#▘&e,1▝">▘ve0BIN f▗v%ffV▝"P.▘&r8D▜vbv"&f" .▝& ]ak▚&bf COPY COPY )PIc▝"STR$ [J]▝Uw ~▘"uTAB ▝INKEY$[D] }▜&"%gbfINKEY$@ut%gf▝bNOT INPUT f&% MOVE 0@▝V[G]0[U]▜gfvgfR%▖ BRIGHT LOAD &"RSTR$ ▗ TO ▖SQR BIN ▟[P[L]LN [M]} COPY COPY [B][H]! LPRINT IF :r CLEAR ATN (G CLEAR "<> STEP INKEY$!rSCREEN$ >PEEK 2[K]2zINKEY$: RETURN [U]USR CODE 0[F]<>BBww SAVE SAVE wwWWFN FN WW▚uuuu0$[Q]mACS ACS nvACS PEEK ACS DEF FN ] INVERSE INVERSE CLEAR ~ PAPER INVERSE ▚ OVER . AND DATA { RETURN =IN DEF FN Cw LIST 6ACS MERGE OVER B▘G@CHR$ G THEN B▘FE0 ▘F` BIN G0W▘ED@( PO`H= INK B0=▚DDDB0 AT 0p @< -p p@0/▛lut{ie l@di AND ▘: M.BATTY pp▘p-▝p<▝Y<= >=▘ VERIFY ▗c A COPY COPY COPY COPY COPY COPY COPY COPY COPY OPEN #<>_ NEW fWUfh`bfffffffnWU CLEAR U/ PRINT UUUUUUUef?=P[L][N]%bvfffvffvff&bV%fffbfff&ffgfb&"ffffffbffffffVbfbvfgffffvfgvVuffff&bfb&f&ffVefffffffffffff"u&vfbffffffbff&efff PRINT ob&f PLOT _fvfVed&fU PRINT _V COPY _UfffVbfffVUUVUUef&fVbfgfgfRVffbgffWbfffffffffffffV"ff"bfggfvff
