| Является частью релиза: | BestView |
| Размер файла: | 19200 |
| md5: | c7dcec2326e5c29ccbfa9f139d7f47c3 |
1 REM CODE 2] GO SUB [ POKE /<>!© STEP @] STEP ©![Q] STEP @] STEP [Q] STEP ©!`@ STEP @] STEP `NOT `
2 CLEAR VAL "24575": RANDOMIZE USR VAL "23886"
3 CLS : PRINT "BestView DON'T WORK IN 48K MODE": RANDOMIZE USR 15616
28416[M]m(#ATTR od RANDOMIZE ?] DIM 658[R]dresLEN @][R]dresTAN N][S]lo FOR [R]dre NEXT `[U]lin LLIST ?COS ekto PAUSE ▚|[R]dresSIN `AN[R]dresCOS `[U]linaSIN 5SCREEN$ V 2.0"15616V_NOT ©NOT ©vCODE OPEN # RETURN !XuX COPY GO SUB VAL CLEAR ©> GO SUB y<>![Q]@ GO SUB VAL v!LN X GO SUB VAL <> NEXT GO SUB s OUT [Q] INK " FLASH [Q] INK !)[Q] COPY USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1TTAN NOT COPY GO SUB LN ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN COPY INK 1 CLS <>MsPk[R]PI[M]PI COPY INT AT [Q]9rSCREEN$ CODE COPY REM NEW r COPY ▙T IF ATTR REM D@BIN ] CONTINUE LINE ▝ LOAD COPY LOAD IF USR STOP yG<[I]| TO USR `-ACS FN o? GO TO `▚USR GO SUB USR 0 PAUSE SGN IN /D DATA © RETURN COPY UP RESTORE CLEAR UT COPY COPY P[Q]IN OUT COPY RUN USR IN CIRCLE TO DIM DRAW USR USR CLEAR T BRIGHT PAPER OUT vO BRIGHT XABS COPY FORMAT COPY _ COPY POKE [P][P]▚ DRAW ©?o LPRINT |▜[P]CODE ) COPY RETURN OUT 5 THEN =[Q][Q]FN 8USR COPY IN COPY CLS LIST [P][O]USR COPY ?/gIN COPY SAVE COPY [Q]`[B] COPY RUN COPY OUT COPY [P] FORMAT |3?g; LPRINT ?N RANDOMIZE CLEAR DATA COPY U@P@ PRINT USR Y}}$ COPY _©JIN ^IN OUT 3 OUT PRINT BIN COPY w COPY ~TAN SAVE b RUN z? CLS COPY IN USR s?_ DRAW COPY AND IN ATTR LPRINT r IF PLOT COPY [U]j9 RETURN USR COPY LPRINT n8 LET ~IN N OUT RETURN LPRINT v PAPER COPY CLS COPY ▚ COPY s CLEAR }U MERGE / COPY [D]]© CLOSE # COPY COPY LEN A[H][P] CLEAR COPY u^nF/ COPY MERGE ' COPY o FLASH ▛ OUT COPY COPY ? CLEAR pb COPY ©)+}( COPY SCREEN$ p PAPER SCREEN$ qIN OUT COPY LN [B]T COPY RETURN STR$ x3| OUT REM POINT LLIST OUT ATN IN COPY 8 COPY 8 FOR 35 READ OUT UPEEK OUT [Q] OUT RUN COPY OVER |LN PRINT OUT PAUSE RETURN COPY LLIST OUT RETURN OUT ? RETURN EXP DIM RETURN ) IF _ RETURN CLEAR D?D© DRAW s LOAD DRAW [P]yd OUT COPY RETURN INT SCREEN$ REM ClSTR$ C[I]e READ [J]0G[P]X?C[P]d LLIST 6sbl. NEW BIN N DEF FN lBY PAUSE F OUT mCOS ! OUT FOR [P]© COPY } COPY ( LPRINT m9rIN LOAD LIST D COPY | COPY W OUT LOAD A▟ CAT RUN OUT COPY OUT LINE ? COPY 3SGN ?TAN COPY SQR COPY AND DEF FN x DEF FN 9 PAUSE COPY IN LOAD ▜C COPY COPY DRAW p RETURN CODE r PAUSE COPY CLEAR _[P]@LN COPY LPRINT STEP COPY NOT l RETURN FLASH a BORDER IN MOVE © LOAD [A] NEW = COPY OVER O OUT o LIST [O]y LOAD OUT NEXT [D] DRAW E STOP OUT LX LPRINT r ?8 DATA @l MERGE ?▙D[I][M]l READ OUT A~_IN ? BEEP SAVE DATA mNOT l[L]9COS [M] COPY INPUT % OUT SCREEN$ SCREEN$ (FN ClUSR mACS lNOT DATA ▚ FLASH 0[L]mSIN COPY F CIRCLE [I]ACS NOT `m▚USR RETURN CH CIRCLE l DATA DATA _? MERGE LPRINT U COPY USR VERIFY [Q] COPY g COPY [L] COPY DEF FN RESTORE COPY l% COPY 8UC8USR ▜]NOT NEW OUT COPY FLASH }" COPY | LPRINT COPY s LPRINT l BORDER USR ©VAL 8 DEF FN |LN STEP COPY 9[R]^ OUT ▘@>= COPY COPY COPY >STR$ ▝ LLIST @ LLIST COPY NyATN [L] COPY ; OUT DATA READ RUN R OUT SCREEN$ C COPY a NEW | OVER xIN COPY COPY NEXT CONTINUE COPY ?![Q]G CIRCLE |0> COPY |7?, COPY 8NOT ▜ FLASH COPY 9 LIST O CLEAR A IF COPY ▛ CLEAR _ OUT COPY LOAD RETURN [S]p@ OUT UW LOAD 0[A][P]lNOT T[E] COPY AND CIRCLE COPY 1N COPY AND [L] OUT ▖ OUT COS 6 FLASH fC TO AjG TO H FLASH lCHR$ 2 COPY Tr COPY REM VAL$ EXP SCREEN$ _ CLEAR P OUT C▙9[H]1[G] DEF FN e PLOT Dd LLIST ▙a PLOT @>_e READ ▗ DEF FN [H]8'SCREEN$ }[B]aVAL [D]▘ COPY U_l NEW SAVE ©_d_P▜ySCREEN$ LET <©/*ATN ! OUT E RETURN OUT BIN COPY n5_] LINE RND[O]_ Q9W5 COPY CLEAR O} DEF FN _s IF BORDER 7[P][S] DATA STR$ * OUT uprUW` COPY FN 5C▙m7 CLEAR READ ▙e RUN LPRINT [L][P]xy RUN [P] OUT M READ ▙l OUT 'D READ IN } LPRINT y READ CLS O OVER 8 NEW _ RETURN W[S] THEN AIN COPY REM COPY U OUT _RND[P]3 COPY COPY } OUT W LPRINT [F]RNDv CLEAR zF▝T1ACS FLASH E*PaVAL /e_Tpl AND USR @.r'aVAL PAPER [P]C BORDER O OUT pEXP CLOSE # OUT IN p>=: COPY C[L]m PLOT USR COPY CIRCLE y NEW USR NEW p OUT [L]| AND DEF FN `'}99COS y COPY ▜[O]xTAB COPY 6 COPY USR NEXT * COPY SAVE MERGE IF Z COPY © FLASH COPY -▘ BORDER COPY ▜ COPY OVER FLASH [T]? OUT M, COPY NOT `h COPY LIST TO a COPY C? COPY }▜[I]1▘ COPY U@ULN / CAT COPY < LIST T COPY LPRINT 3 OUT BEEP RESTORE [E] COPY TO OUT mCOS RETURN WT COPY FLASH l AND TO F'r COPY COPY 8 CLS COPY LIST * VERIFY W COPY PRINT VAL$ RANDOMIZE COPY O6-w5- CAT 2[J]COS , PAUSE STEP RESTORE INVERSE 0k: RUN SGN % OUT r LINE J7[F][D]>!:[O]ATN ?s RANDOMIZE /)USR COPY ///// NEXT GO SUB s OUT ` INK " FLASH ` INK !)` COPY USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1 INPUT PEEK NOT COPY GO SUB LN ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN COPY INK 1 CLS <>MsPk[P][P] COPY DRAW >` POKE CODE FLASH RETURN / NEW ( SAVE SAVE STEP g~>= STEP ~ STEP *`PI▙@▝ STEP STR$ NEXT COPY COPY > STEP [L]|: OVER `2&`:^c2'`CODE 2)` STEP de!$`~PI>w STEP STEP ATN $PI|PIBIN STEP CAT © STEP [U]zc:1!,7PEEK STEP OUT `> COPY ? STEP pp RETURN ( RETURN ( RETURN 07~ MERGE RETURN ((A RETURN j[C]<>u6XNSQR >=> RETURN [L] THEN G c THEN p| RETURN CHR$ K2(▛[B]%`NOT ^$.[P]#<>[G]5[A]>[P]<>LN :[ ERASE SIN <=8Ca'!'▗!©PEEK USR STEP Dc GO SUB ! CLOSE #B GO SUB VAL @-*aXg :▟▝PISCREEN$ d#"<>▝ GO SUB [PI GO SUB R PRINT LET 8 FOR "▖u>>=CHR$ DIM f▖b(:USR w> MOVE >8![N][N]w COPY Yv> DRAW 2C2 NEW T!X6T]| RETURN [ GO SUB ▗ CONTINUE ;$:IN ;(57@USR MERGE OR $$STR$ MOVE FOR STEP h▘ FOR GO TO FN IN FOR CAT z RETURN X LOAD vm[▘ CLS Y LOAD NOT DEF FN (` DEF FN y@▝ COPY y7 GO SUB STEP dyUSR CSCREEN$ Y+ STEP RUN y^'| OR MERGE VAL ~# IF MOVE STR$ OR LET X READ FORMAT DIM T' CLOSE # CIRCLE VAL 55CODE 2/C STEP Hg:DgPIBIN STR$ j>▖ INK : RETURN >=g1 RETURN : RETURN H &*▖u[Q]+? STEP `kVAL PRINT l. CLS OUT iUSR ▘[I]SIN 6 #6[T]+*EXP ,M"EXP us :9qpCHR$ ▘>!$ OPEN #a"g ERASE >LN 2 LOAD @ATN !STR$ OR PRINT STEP , CLEAR u LET STR$ #< PRINT [K]|4 OPEN #4 POKE ERASE 4CLEN >=4! CLEAR z REM ▗NOT [ GO SUB ( INK LIST ` RETURN 4 CIRCLE [Q]7 FORMAT PUSR CLS USR STEP C?[J]▘<>:INKEY$| PRINT ASN VAL I STEP ; INVERSE LET <>o'6. GO SUB BORDER [G]< THEN &ao)▗ RESTORE INVERSE LLIST rc[A]▖ FLASH INVERSE ~ RETURN USR INVERSE FOR VAL INVERSE f INVERSE n"_c n"ac COPY CLEAR %`(2ccSGN (gUBIN G INVERSE PEEK &:PEEK READ PI Z( STOP I9COS <>LN [K]%J▘ RETURN W>= RETURN a *d[H]h▖ LPRINT >,smUSR NOT SQR d RETURN C $._ ^ [A] OR O▞4 FORMAT f<> RETURN A +'5 DIM PRINT [J]''FN [P]VAL FOR 6 FORMAT >USR .|ASN (1<>G THEN CODE RETURN Xx [A][B]A RANDOMIZE ~VAL Sx( RETURN tUSR &vxt>PEEK PAPER GO SUB COPY (VAL$ _CODE 2[E] INVERSE SQR PI|ZSQR STEP w| STEP " STEP tMc STEP o▝> STEP Ce[E] SAVE <>!e STEP 3[Q][I] RANDOMIZE NOT STEP dSorry,@ files notoun CONTINUE dIN STEP T'H5 ERASE ▝ MOVE PRINT OR :2[L]|STR$ LET <> CONTINUE [U]INKEY$y@ PAPER :▗l STEP U@y<> STEP [I]e▜PI>= RETURN LLIST TAN RUN ▟<>!@VAL OR MERGE FOR H$ MOVE STEP uSTR$ GO TO USR LPRINT S STOP SIN e2bATN eVAL RNDS X▟! GO SUB [: COPY COPY GO SUB K GO SUB LN FOR 4X BRIGHT ECCOS e THEN CIRCLE ?8 THEN LEN [A]ASN [I] NEW R( [Q]f INK */Rg STEP g INK RESTORE !USR R▜ LLIST OR F#N# OR INK LLIST [C] IF [U]( OR > # LPRINT A>[G]B~# FLASH RETURN >. RETURN aWPI* READ >$[A]d>▝O>▖4 PLOT G[Q]}▘NOT COPY f: TO PI(v RUN ▚k:E$6:VAL 0 OVER 9lRO THEN ?(G CLEAR THEN :A(##~c,[E]7 PLOT *_STR$ 4 FOR 7CODE PEEK t1@▝P: FLASH ># AND | NEW LIST STEP :g RETURN IF }FN BORDER <> CAT VAL 0 AND 0<> AND 7@CODE 2D[U]g2Ege"F[I][e STEP [I]g_KUSR W RETURN 0+ RESTORE *INT o LLIST 0! GO SUB S▘ RANDOMIZE :0E( CIRCLE <( CONTINUE 8 FORMAT <ESQR DUSR <>xLEN 33<>~#<>Reimport ZX ASM[D], pase wUSR 0ait[F]4h!<>/PIBIN 3 FORMAT NEW ▜p}8N PRINT ▝E STEP ▝h! STEP [G]hNOT PAPER !) VERIFY G RANDOMIZE `c2©h i@:iG INVERSE ! THEN G($ INVERSE ~ RETURN =? RETURN {0[U]▝. INVERSE # GO TO OCHR$ LOAD INPUT 5?=# COPY BEEP PLOT RETURN |ASN CHR$ [D]h`▟ NEXT <>{ RETURN LET RETURN CHR$ AT hz RETURN COPY SQR ▛{ABS CHR$ NEW VAL SGN RESTORE MERGE OR | STR$ MOVE CLEAR ; LLIST AND E= FOR NEW DM! COPY RETURN V DIM LN #$ INK :hG(▗|x@+ CHR$ i NEW ▞BIN INK ( IF > INK INK LET C PAPER SAVE [R][T] INK STR$ CLOSE # STEP LLIST CLOSE # MERGE RETURN INK [B]T▝3[B]h COPY $4^[A]by XLD)-RST[T] RESTORE 7.M.1.1[P]&ATN i▘ OPEN # GO TO (!5i [U]w!Z(STR$ !▖i LPRINT .PI SIN @=E@2 OVER i RESTORE ! FORMAT 5 LLIST RETURN 0:Gx ▞ RETURN (NOT ': LOAD PI(% ERASE MOVE B NOT ) THEN >PI BORDER VERIFY STEP /n RETURN MOVE R IF ' DEF FN LLIST SAVE GENS INVERSE r[G]x LLIST [J]j<>)ACS OGASN SGN j SAVE OPEN #=t DATA : STEP u DATA VERIFY %ATN ~>* STOP ) BEEP 6 AND ACS LEN LOAD CHR$ DIM [S]ALu[H] FOR USR "g[U]<k[U]!APOINT vINKEY$= POKE DIM $ NEXT 2Sl▝[E]Jl=Tl STEP K,©8b RETURN CLS 0^G:▘PIx V PRINT :PI(▖ INVERSE NEW G>[A]BBn1 LET PRINT USR ▝[Ul[ LET RETURN LPRINT 0 RETURN [P]8 RETURN RND8 NEW DRAW [Q] RETURN FORMAT (6:nPI LINE RETURN [F]k[E] RETURN 0 RESTORE INT ▚[N] MOVE RETURN COPY ( STEP RETURN ; H FLASH [M]STR$ PAPER "OINT =SIN =G SAVE 4~! COPY 4XA CONTINUE USR CAT %jl%%B%(n2n RETURN [S][N][I]<> STEP USR m LINE LN m[E]B LINE [R]0z<>m[J]b CIRCLE PRINT CLEAR VERIFY 0 NEW CLEAR [A] AND + LET & OUT ▘4<IN RUN ) RANDOMIZE ASN PAUSE a0a PRINT ATTR ▙ LET RETURN ([O][N][C] FLASH RETURN ) BEEP [P] INK [M],(W+(< PRINT >,?PI% TO j++++G:;LEN PAPER [R]2x[J]x$|W GO SUB xgu©%t LIST D"NOT ASN l RETURN >= RETURN [A]<> RETURN CIRCLE [C] VERIFY RETURN {8" RETURN © FORMAT VERIFY k INK ! NEW (m STEP q{▗▚▖▞▛[D][E][G][H][L][M][N][O][P][K][I][J]▝ RETURN "[S] :Z INPUT _ RETURN AA>[ FORMAT ||USR AND STR$ COPY BIN ▟? LIST BIN PAUSE RESTORE [M] THEN [P]|[N]/ CLS ▛[N] RANDOMIZE GO TO CLS jw-2A} RUN 2PEEK SQR Z RUN kQ OVER PEEK # DRAW OR ! LOAD RUN r3©@|ABS $?[P]t PLOT (i INVERSE RESTORE MERGE *Cp#"LN PEEK <> CLEAR ,.CODE =O STEP NEXT p LIST PAUSE b LINE RUN o@5!Dn RETURN RUN GO SUB x= INVERSE PEEK CHR$ INPUT o# CLS PRINT v CLEAR VAL$ SQR QSQR OVER LOAD GO SUB z OUT IN ATN FOR ©[U]AT @Uo"yoNOT p INVERSE PAPER 3PICHR$ ~o~vCODE AT CODE MOVE INVERSE LLIST PI>= FORMAT [R]<>v:/PI [D] COPY OPEN # BORDER POKE BIN BRIGHT RETURN S( LET QDCODE 2.*q9sa8xo6p70r0;"G@. CLS Ep<v OR CLEAR 8 CONTINUE CAT |/AT "0STR$ [J] INPUT ATTR RESTORE REM [B]w<>3.[I]b(©[O]> ASN (VAL$ D FORMAT ▙L(3#SQR hG REM x LOAD N POKE STOP QPI LINE p DATA Z▙STR$ STEP <@ RESTORE GO SUB VAL PRINT LEN ASN T OPEN #▙J STEP |▝E[E]& RESTORE &@&_USR X THEN PAPER =6AB COPY C6 COPY LC[K]! CONTINUE Y LPRINT T LLIST TXXG6XUR THEN STOP LPRINT ")`PI Y^ PRINT (C(SCREEN$ POINT ?CODE [M]p RETURN / RETURN DRAW OUT i#LEN PEEK $j RETURN ._ PRINT D`UX ERASE LLIST !u~[L]PIUSR IN IF Ws▗6D▗<> NEXT >▗ GO SUB G GO SUB ^- CLS STEP Ysv STEP AoPI( RANDOMIZE s DIM REM 6 LOAD 6l; PRINT TO OPEN #▘ LET @[C]e% INK TAN *F[A]AT ATTR DEF FN x STEP STR$ [M] OR X GO SUB [ujINKEY$ CONTINUE CODE # RESTORE *INKEY$qYU OVER PI PLOT ACS I LPRINT CHR$ v INK }ZCHR$ IN r NEXT *V DATA *NOT [D]rOYS1 RESTORE COPY TAN { ERASE RUN BEEP YY OUT CAT 'V[R][U]'NOT GO SUB Vk IF uNOT RETURN PEEK [O]*5[I] PAPER © PRINT 72▝ PRINT L GO SUB V_Hm▜ PRINT q CONTINUE t( REM <> RETURN >=pyI_}z RETURN [K]@ PRINT { FOR STEP FN 05K[T]5<> STEP LEN @ z: CAT sZt[G]c TO [E]t> ▗v;; GO SUB s[J] POKE 33 STEP FLASH S VERIFY RETURN w▜VAL !tBD~ FLASH ~▖|1> CLS 2[L] POKE ><>2▗[K][M]. STEP P<>1lSCREEN$ LLIST MOVE STR$ LET INK PRINT PLOT & OR MERGE RESTORE JFCODE 2o INVERSE D@@/▝ INVERSE s INVERSE r!X}u INVERSE t!v4 FOR INVERSE FOR DATA ]1! LPRINT P/ CLOSE # PRINT ABS 2 2,! () PAUSE GO SUB 6 LPRINT 6 LOAD GO SUB USR 6 FORMAT BIN [P]tx*EXP %y[Q]WF)G OVER THEN yUSR 2w}y6 6 PAUSE yz NEW USR { VERIFY GO TO _ CIRCLE z AND W<>z FORMAT z VERIFY AND USR g> CIRCLE LEN *V#^2 FOR ▖~LN ( EXP (#c MOVE NOT Gu@. DATA {C RUN UNOT Ou#{ RETURN >=( PAUSE ▗oNOT loBe ERASE E LLIST DRAW LINE r`wlow sta[U]-address$Comp$7dongCODE 2▟uA12▙uL( STEP LN e▙[K]▟NOT xR[E]VCHR$ jw3| RETURN 0 COPY ATTR SIN Z[C]▝ STEP lx ! TO 4`(n[G]x>=USR "w GO SUB Sw GO SUB vWNOT PAPER v)CHR$ ASN )$)D LLIST OUT STEP )▝,t DATA &c LPRINT PI LINE [R] NEXT *C !AT [E][J]<>VAL F[F] FOR 6[C]INT ▖[Q]#2ATTR NOT LEN POINT THEN /X<>0 INK }=▞PICHR$ T` INK w[S]ku INK RESTORE DRAW 2 RESTORE Z_[N]P<=/ FOR LLIST [J] MOVE *mq[C]*pCODE 2 CLEAR o*c©▘o1R"[K][ OVER STEP DRAW READ STEP DjG STOP [U]:U BRIGHT PAUSE [P]) PAPER DRAW STEP vG[A]3/ STOP [K]; STEP STOP 6 LET U*i DIM L0[G]▝ VERIFY [L]u>vmSQR LLIST g DIM ![A] CONTINUE SQR TO N CLS v! RANDOMIZE !<>)EXP |2[B]w}2[H]w+~+[G] VERIFY L BEEP JB| RETURN CHR$ [K]( TO CODE EXP XW1JLEN STEP Cy(( BRIGHT COPY STR$ PLOT CIRCLE © CIRCLE BIN .+/ READ / CONTINUE wLEN INPUT CODE GO SUB LEN +4Q P6 FOR |e STEP y~PI+ SAVE @SQR E+▗▗ POKE POINT ©##SC▗ps IF / PRINT [P]nJ STOP V RANDOMIZE "Rb PLOT FORMAT /qUSR +t INVERSE rtu OPEN #[J]5(d[A]xLEN OUT <> INVERSE n INVERSE f:3SOABS TAN ERASE CAT 1 MERGE N~A( LLIST USR N THEN LLIST <>< LIST BIN BIN ; GO SUB VAL <@XPOINT DIM BIN SQR <V▘}!STR$ ABS {*YO< LLIST THEN ~USR # IF `! MOVE COPY b! CLOSE #J/ LINE MOVE @ COPY 5J RESTORE GO SUB MOVE ASN wR/JBR( INT PAUSE (SIN ASN LET >@[A] AND NEW Q SAVE RETURN A0A[A]G0BIN #>=x9#<> MERGE RESTORE STR$ 2FN LPRINT MOVE <>h CLOSE #9D CLEAR @ FORMAT 6 LET X PAUSE SAVE ! NEXT GO SUB *QF?#I!<C LPRINT L CIRCLE CAT STOP TOACS # STEP CONTINUE yABSQR [N] LPRINT UVFN XWv>[S]PEEK ywxQ<>6 RESTORE MOVE AT >=[A] PAPER <>2=X2>]^X!'@▚[U] RESTORE [A]$INKEY$fZ FOR @[C] FOR [A]P REM } RETURN BORDER RESTORE ©[U] PRINT /FH>=/az= BRIGHT LN STEP @ GO SUB [Q] RESTORE OR V[L] LLIST yPI LOAD INK INVERSE _IN )( CIRCLE © RETURN A RETURN ] DRAW A DRAW 7~~|>@J{ OVER d] NEW STEP [E]z! COPY COPY "VAL$ z"VAL z1@2[D]> STEP h|!ATTR : AND g:[N]% PRINT d GO SUB X STEP [I]zCODE STEP X| LET W AND < THEN B( THEN PI STEP /|zPI PRINT > STEP `DE LET w<>VAL MERGE {< INVERSE POINT ▙_▘eH>/▘@> BEEP ? STEP l=[G]{ MOVE t BRIGHT THEN g(]-Z THEN _GW>>=><> NEXT z INK STEP SIN GO SUB FORMAT POKE w(,& CIRCLE PRINT CLS v> OPEN # RETURN v NEXT TAT LET " LIST ▝ LIST CLOSE #i INK THEN c(▝?$ SGN CLS CODE .O2|:!ACS /2▖▖&+:▖05|*]":"@ SAVE /"F .NOT COPY 21(=E]>[E]@ POKE 27!M|"%H[Q]ASN 9 POKE COPY "*ASN [E] DIM 3 DIM l INPUT . INK ?KEXP /DRzsy CIRCLE SQR SNy,x<>STR$ RANDOMIZE ASN ▝H[S*TLEN INVERSE RESTORE NOT /=)@ PLOT ~<> STEP %z`]9CHR$ STEP F{! PRINT LINE fcP STEP SzCODE 2 LINE OPEN #<> OR CLEAR © GO SUB y2INKEY$|STR$ [E]▝ RUN COPY COPY e GO TO STEP [P]} NEW @2FN |<>" COPY USR THEN ©USR !MPEEK >=g GO SUB QCODE IN IF < THEN b( PAUSE [T] LOAD H REM uBIN [C]Y@v!jY6RkPEEK INKEY$|!SCREEN$ ATTR V#6W DIM xR!▛HwFN PAUSE H INPUT OO[I]" PRINT /} PAUSE NEXT [Q]CODE >= CLS OR STEP CONTINUE }W@ NEW !POINT [K]( POKE 2STR$ GO SUB g INPUT zINT qgS7BTABS P NEXT PinT RUN disk NEXT >NOT 2CHR$ /! AND }"NOT / GO SUB s<=?t}CODE [Q]▘ INK INVERSE !@'P*LN ATN NEXT POKE LN FOR STR$ VAL USR / FORMAT <>=: STEP / CLEAR O CLS <>[H][T][U]9 CIRCLE 7▙, n LET ▚[K] PRINT $G READ AND LPRINT <=. LPRINT STEP CAT INVERSE +[D]F FORMAT s▘ BRIGHT STEP SCREEN$ ▝z> 2[A]VAL$ /^v;b/ PLOT 2CODE 2j[M]INT oLBY<@:PI PRINT SCREEN$ CIRCLE :@ LET <>INT ATTR t[A] SAVE qSTR$ ©: NEW SGN INVERSE BIN ▘PEEK B -ASN STR$ <![PEEK Z>=INT RETURN 0=% PAPER *<> VERIFY !+[G]0{i▚A@YEXP VERIFY 0 FOR SAVE LN w D*k? V[ FOR [T] AND 3* AND W OPEN #08n>:uPEEK ©LCODE RUN K[G]&! PRINT INPUT ERASE G BORDER b([A] CIRCLE >=#SQR POINT z1LN NEXT RESTORE %<%[P]N[A] FORMAT [G]*!XLN [O], REM < BRIGHT 68[J][K] CIRCLE >=ATN [H][P]g>8yL{ SAVE DATA X0POINT NEXT X PAPER [Q]): AND _U@! STEP ;e~#W| LLIST 'q DATA R▚=▜u[Q] RETURN >=;CHR$ [H]RCHR$ R0%Y " NEW RETURN REM e X>= DATA OVER INVERSE INVERSE | RETURN LINE DIM <>P[U] RESTORE LLIST b RESTORE [D]4 INVERSE LLIST OPEN #<>;6VAL$ ERASE CAT .FNTCRUS CCOS BORDER ^2s>=_[L] OPEN #Z OR [T]aPEEK # < LOAD ▛ CAT [D][A]jE DEF FN _STR$ <> LLIST jCODE h Il+[N]STR$ AND y CONTINUE NEW BEEP x_▝[E]M▙▝[U]INT IF READ ▖VAL$ ▜[Q] tIN l▙A CLOSE #@USR OR MERGE OPEN # DRAW <VAL MOVE STR$ h LIST RESTORE {u IF DRAW AXv STEP >= RETURN s E LIST *NOT STR$ RETURN xUSR `EXP s STEP :q STEP ©f▝<=©!j LINE 7v REM G[U]' STOP [U] TO % READ BEEP !)(:y? [E]? CLS ▘▗[U] ▘ DRAW ACS TO RETURN READ z REM [E]> CLEAR z2[Q]*<>▝LEN BEEP LET = GO SUB S DRAW INK CHR$ LPRINT RUN FOR Q DRAW P OVER POKE POKE ~ LOAD >*BSCREEN$ aL-PI RESTORE BORDER [T]IN CONTINUE VERIFY }K$DxACS >=dc{ AND _INKEY$ THEN [T]x▛INKEY$INKEY$ABS ASN EXP sSCREEN$ <>73 ERASE _($|AT J} AND o CIRCLE | VERIFY G] OVER FORMAT OR 0JSTR$ MERGE OR yFN [Q]@u FOR . MOVE [N]/ ERASE I!2POINT ▘y2LEN ▘[S] COPY ATTR TAN ~#9 BEEP NEXT IN OPEN # MOVE FOR SAVE ▜ STOP RND* OVER IN RETURN OUT RETURN FOR PAUSE /▚ CLS [Q] RETURN CONTINUE ;B ` LIST [A]``CHR$ ERASE LIST Pp LN ATN LN pPmiI`B"O LIST FG LIST HDFG<P#H# FORMAT [Q][Q] FORMAT ACS # CIRCLE GO TO TTIH 0iIiI!!]P FORMAT ],-!$P!$@`p`@G0^ p0GD[B] BRIGHT GRND-./BIN p FORMAT FORMAT -^G` READ .^GPOINT p$[R]PEEK 9][C]9RND INVERSE INVERSE G LOAD G LOAD LPRINT INVERSE SH/ LIST LINE $MH@ LIST ▝▝B GO SUB F▚P LPRINT f]9[L] INVERSE i;];VAL$ CLEAR @].>LEN >= OVER LEN FGH▞H`GHF` DATA i DATA =@ ▗+@[Q]@VAL [Q]PCOS 5RNDe[L] STEP #_6tPOINT Ba RUN ▚B[M] TO ; NEXT [A]#[R] OUT SCREEN$ STEP INVERSE NEXT [Q]r OUT waB SAVE B SAVE ` dq##pJD##B|`J0 INPUT B Ht LIST sSTR$ ' GO TO GKK0// INPUT INPUT RNDLEN SQR l[A][A]7[L]vm[K]mPEEK INVERSE eUSR PEEK USR INK BRIGHT #[L]0%SIN [L]0p▚INKEY$[R]▚0 THEN PRNDRND THEN ▟`▟[U][R]#@@ GO SUB PEEK rqIN pIN [L]K READ qq/G0/G INVERSE R{gtRJ/IF@ STOP S& STOP NOT SQR UP# THEN 0==I PAPER [K]SwwGG[R]C{{wRNDvATN w%w%TAN INK o BORDER CLS [ INVERSE POKE 0ngF0 LOAD CIRCLE BRIGHT SQR kU[D]Mie! OPEN #( OUT OPEN # INVERSE ] OUT CLEAR 0 POKE CLEAR hCHR$ FORMAT $~jC MOVE [T]S< LET CAT 3Y8y CONTINUE 8y`0P0SQR PSTR$ [B]TAN PSTR$ USR OR e_"#+ LINE "#|p([R]SGN ]s▚sf[I]▚/'/ INVERSE 'GPRNDRNDGi[B]pi[R][U][B][T]"©P($INT INVERSE $ INVERSE $iCOS LINE LINE z[U][N]TAN SAVE ▜ ERASE SAVE :[I] LPRINT ELC'#vi©[K] INK lX[K]XCOS BATN COS R CONTINUE tbIN [R]COS O#©CI DATA jnINT d AND COPY Sb CONTINUE p©F_INKEY$w COPY FORMAT LIST # COPY [Q]RNDi(0 PAUSE 0C' PAUSE OVER [C]RND[T] GO SUB [U]©[Q] COPY [F]Q RETURN Ks7 NEXT CAT TO COPY F CAT TO FNOT COPY FLASH INVERSE CONTINUE FLASH <= OR / LIST / DRAW COPY y#` LOAD 0 LET LOAD OR LPRINT ATN DCOS [I]++8 DRAW NEXT & ERASE ERASE p8c NEW SAVE OUT NEXT LLIST [P];n PAPER NEXT NOT CLEAR AT LLIST COPY LIST ?PIL[I] BORDER p BORDER ||PIIN DRAW Z[Q]o FLASH $JATN 0[T][L]K/[K];ERUSR STOP %& STOP ;[R]8`8 SAVE LLIST oi4ATN DEF FN ERASE h OUT DEF FN "[S] OUT VAL FORMAT CONTINUE a& SAVE _s AND © NEXT t[T]W CLOSE #nW# h BORDER P. DIM ▘[:▘ COPY COPY : CONTINUE G/' CONTINUE ;STR$ Qs3©[L] MOVE FORMAT 6wwllNOT P7c COPY FORMAT FORMAT NEXT DRAW OUT ;= NEXT kE ERASE [Q]4BIN P[Q]$ INK DRAW [D] GO SUB 6[D] LPRINT INT P[I]( CLOSE #P[I]vINT [G] LIST COPY POKE GO TO ## FORMAT [N][G]$"$[R] OPEN #PEEK ATTR # LIST . READ STOP # LIST SIN #bRJR OPEN #/ CLOSE #G OPEN #G OUT PLOT -e 0[H]VAL$ &9# /{ LOAD / INVERSE {##COS {G▞[T] INPUT S<>ABS #" CLEAR COS "KINT [L]INKEY$& REM p@SQR [K] BEEP FORMAT H GO SUB FLASH PIHIN LOAD INVERSE BEEP #/ STEP } BEEP l OVER [N] THEN / CLS # COPY STEP INKEY$INKEY$ INPUT PEEK READ /COS IF CLS PI.Cew OUT #▘PI;[H]xPI CLEAR {7COS [M]' DIM /wSCOS w; STOP B▜BP LIST < LOAD v LIST <=fwwUSR INVERSE n0 CLEAR SQR IN DIM NEXT [U]INKEY$? READ CONTINUE USR c[F]t{USR [H],"▚ABS SAVE RUN G%USR SCREEN$ BIN INKEY$8INT USR [F] LET ;POINT WxNSGN /TAN [L][K]KcLN IN PI OPEN #USR x& DIM _IN O%IN O||wMLUSR G DIM wIN M'IN BORDER O:wUSR VAL$ LET ▟ LET [C]▟ INK $;9;9PI▙IN 0POINT [ LOAD [H]: ;SO @ INPUT dq VERIFY t[T]POINT VERIFY [K][C]QPOINT = REM COPY FN C7m<>[R]t<><>RND[D]<▗ DATA [Q]*POINT ▙[F]X[J] CLOSE #[C]>rD DIM [G]/=zz OVER Cp:[F]z RETURN PAPER hASN ?>= <<;::99887765544322100/..-,,+*))('&%%$#""! * NEW REM [U]ABS COPY GO SUB ▖ PLOT OVER ▜T REM #IN "<>}6:>DDDHNTBZ`hrAz !▗#$!&'([G]*+[O]-[U]/"SCREEN$ 1VAL 3ACS INT 6.IUSR BIN >= TO MOVE RUN ^ VERIFY FLASH STOP FOR ? NEXT RUN `_j[M] GO SUB s/ CAT DRAW } FOR BEEP 6[P] RANDOMIZE o INK CODE $[J] RETURN IF - COPY sQ[J]@ OR MERGE RESTORE PRINT { NEW PLOT @g{ NEW ATN oz THEN ?o$ RESTORE VAL &oO)&USR p THEN B LINE ATN MOVE ONOT ERASE MOVE FOR : MOVE PI([O]w$ NOT C ERASE xINKEY$ FOR ACS FOR p NEXT 4W DATA LIST 6 LET LLIST MOVE STR$ <>~PI>= RETURN #V#^#~ STEP ▝ MOVE # GO TO CONTINUE SAVE <>▜! POKE ERASE RETURN U RUN V INVERSE !▖ MERGE ;& TO INVERSE n INVERSE #F$N$V$^ FOR MOVE ACS , COPY ©# DATA `z VERIFY W+; INVERSE } RETURN >=CHR$ t ERASE <>A A@A`AA[Q]AUSR A LPRINT AI I@I`II[Q]IUSR I LPRINT IQ Q@Q`QQ[Q]QUSR Q LPRINT QA'AGAgA▜APIA<=A BORDER AI'IGIgI▜IPII<=I BORDER IQ'QGQgQ▜QPIQ<=Q BORDER Q!L CLOSE #4v!X INVERSE CAT Q BEEP u~Z>U THEN D /w FORMAT CAT #Y BORDER PAUSE CLEAR ! RESTORE ERASE STEP [J]▘ LLIST ' CLEAR u LPRINT BEEP R INVERSE ! COPY COPY & FORMAT GO SUB [F CLOSE #> GO SUB KD CLOSE # INK INK :B CLOSE #i▚h▚k▚j▚ NEW © INVERSE w PAUSE +>G INK RESTORE INK ▗_=CHR$ [J] OPEN #*$+" ,}AT AVAL$ ATTR POINT ▘!H CLEAR : CLOSE # NEW Wl THEN p RETURN PAUSE PRINT OPEN #4 RETURN CLEAR IF 5:!/▚w:E$I CLOSE #[O]2:J/TAN uGK STEP M CLOSE #CODE FLASH RETURN / NEW 2 CAT ▖ :PI LN ERASE ATN SAVE CLEAR RIN STEP ATN |NOT ▟ OPEN #IN ?# MOVE DATA S ▘vo GO SUB [Q]z RETURN [CHR$ W CLOSE #<> RETURN {8>2i<> POKE PAPER b RETURN wSGR COPY x`© [R] CLS ;[N]~ RETURN q$$%! MERGE RETURN ('!( !( PAPER GO TO CLOSE #-P BEEP ▗[B]Q)▚ FOR i~# THEN ©( RUN THEN IN 4x"DEFMAC[Q]DISPLAY[Q]END SAVE i GO SUB rs POKE re POKE ad DATA READ su STOP sb READ an DATA xo PAUSE c LIST pus CONTINUE po LIST in READ de READ i INPUT ou POKE j LIST cal GO TO j PAUSE djn IF rl READ rr GO TO r PAUSE sl LLIST srYl DIM GO TO biO NEXT sRn8h+ POKE d DIM e DIM )c LLIST r'ex SAVE da LLIST cp GO TO cc NEW sl!i PAUSE DATA [C]dtp DIM $ DATA ne BORDER | NEW D DIM DATA %[A]t DIM otm MOVE INPUT ` DATA /r BORDER ▞eq PRINT d STOP d RUN d NEXT TAN fu$ NEXT IF X~ POKE clud RESTORE i NEW RfN[K]BIN RESTORE eYels RESTORE e mak RESTORE STOP READ DATA RESTORE CONTINUE GO TO (hlPOINT LLIST x CONTINUE x GO TO y CONTINUE ▗yi SAVE RANDOMIZE (bcPOINT (▗:POINT DIM PAUSE a NEW b READ Oh GO TO s LIST (spPOINT afPI(n IF IF n READ READ p LOAD p RESTORE LIST GO SUB pha<>d READ ].@pea POKE f POKE oadta STOP lcr LOAD .[U] GO SUB t RESTORE {@▜saveob REM exitASN ▖ GO SUB [O] LIST LLIST NEW IF ▟ FORMAT z READ VAL$ MERGE GO SUB LIST Ihl RESTORE jp IF !h READ GO SUB CLOSE #[C] LIST RESTORE lSQR l IF READ gIN m/ LPRINT }[B] LLIST /rCrG[A]rC READ $ MERGE & MERGE ( MERGE * MERGE - MERGE 0 MERGE 3 MERGE 6 MERGE 9 MERGE < MERGE ? MERGE B MERGE D MERGE F MERGE J MERGE M MERGE P MERGE S MERGE U MERGE X MERGE Z MERGE ^ MERGE ` MERGE d MERGE g MERGE j MERGE l MERGE n MERGE q MERGE t MERGE w MERGE z MERGE } MERGE MERGE MERGE ▚ MERGE MERGE MERGE ▙ MERGE [C] MERGE [F] MERGE [J] MERGE [M] MERGE [P] MERGE [S] MERGE RND MERGE FN MERGE ATTR MERGE VAL$ MERGE SIN MERGE ASN MERGE EXP MERGE SGN MERGE USR MERGE NOT MERGE <= MERGE LINE MERGE STEP MERGE FORMAT MERGE CLOSE # MERGE BEEP MERGE FLASH MERGE OUT MERGE READ MERGE BORDER MERGE FOR MERGE LOAD MERGE NEXT MERGE PLOT MERGE RANDOMIZE MERGE DRAW MERGE COPY MERGE VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY % VERIFY + VERIFY 1 VERIFY 8 VERIFY < VERIFY A VERIFY E VERIFY F VERIFY G VERIFY H VERIFY I VERIFY J VERIFY K VERIFY O VERIFY P VERIFY R VERIFY T VERIFY V VERIFY X VERIFY [ VERIFY ^ VERIFY b VERIFY f VERIFY g VERIFY h VERIFY j VERIFY l VERIFY n VERIFY p VERIFY r VERIFY t VERIFY v VERIFY z VERIFY } VERIFY VERIFY ▘ VERIFY VERIFY VERIFY ▚ VERIFY ▖ VERIFY VERIFY ▛ VERIFY VERIFY [B] VERIFY [I] VERIFY [K] VERIFY [N] VERIFY [T] VERIFY PI VERIFY VAL$ VERIFY COS VERIFY ATN VERIFY ABS VERIFY BIN VERIFY THEN VERIFY FORMAT VERIFY OPEN # VERIFY PAPER VERIFY OUT VERIFY READ VERIFY CONTINUE VERIFY GO TO VERIFY LIST VERIFY PRINT VERIFY IF VERIFY CLEAR VERIFY BEEP BEEP BEEP BEEP BEEP BEEP BEEP % BEEP + BEEP 1 BEEP 7 BEEP < BEEP B BEEP E BEEP I BEEP LNCLUD OR BI DEF FN [G]R CAT ERAS OR RLCSTR$ RRHAL CLOSE #C TO PUS>=RET DEF FN ,<>DJN PAPER OUBIN [A]LDI ERASE CP?Or[B]TD)IASN FOR STEP CHR$ BEEP POINT OPEN # POKE FORMAT LIST STEP EDU FORMAT STO FORMAT q!u(BCPOINT (HLXSPIXYPOINT [B]NFNOT NOT CHR$ ▛STR$ DASTR$ Y TO SC AND CADBIN NOT SUCHR$ SBNOT A@NBIN XO ERASE [I] CLOSE #P/RS CLOSE #H$EX CIRCLE /2R5[B]S5<> TO FLASH CLOSE # OPEN #S#COS CLOSE #NE<=[S]%BIN #SQR <>P<> "b<>BIN BIN BIN O▛R<=EQ MERGE [P] CLOSE # AND Y[Q]([H]I CIRCLE INK AFPID.J ERASE J FORMAT gCPEEK CIRCLE DD7E6 DEF FN UR NEW STEP H©D OR H TO A AND '& PAPER AN PAPER VAL P CAT P CIRCLE L CIRCLE H INK L INK CHR$ NOT BIN OR >= TO STR$ FORMAT STEP PAPER ERASE <>[M] CIRCLE [T] CIRCLE POINT CIRCLE VAL$ CIRCLE COS CIRCLE ATN CIRCLE SQR CIRCLE IN CIRCLE NOT CIRCLE <= CIRCLE THEN CIRCLE CAT CIRCLE OPEN # CIRCLE BEEP CIRCLE FLASH CIRCLE OUT CIRCLE READ CIRCLE BORDER CIRCLE FOR CIRCLE LOAD CIRCLE NEXT CIRCLE RUN CIRCLE CLS CIRCLE COPY CIRCLE INK INK INK INK INK INK INK INK # INK ' INK + INK / INK 3 INK 7 INK : INK = INK @ INK C INK F INK ueO INK R INK U INK X INK [ INK ^ INK a INK d INK g INK j INK m INK p INK s INK v INK y INK | INK © INK ▘ INK INK ▖ INK ▛ INK ▙ INK [B] INK [E] INK [H] INK [K] INK [N] INK [Q] INK [T] INK INKEY$ INK POINT INK AT INK CODE INK SIN INK ASN INK LN INK SQR INK PEEK INK STR$ INK BIN INK AND INK >= INK LINE INK TO INK DEF FN INK FORMAT INK ERASE INK CLOSE # INK VERIFY INK CIRCLE INK PAPER INK BRIGHT INK OVER INK LPRINT INK STOP INK DATA INK NEW INK CONTINUE INK REM INK GO TO INK INPUT INK LIST INK PAUSE INK POKE INK PLOT INK SAVE INK IF INK CLS INK DRAW INK CLEAR INK RETURN INK COPY INK PAPER PAPER PAPER PAPER PAPER PAPER :4lpf.[R] FORMAT "zq▜8,FBIN R▙BVp8:j( LPRINT rCODE LBIN [R]aSIN READ ▚B CLS SAVE ▝ LIST A CLEAR C©) BORDER ▜[S]` SAVE FE CIRCLE (QI DEF FN I STEP LLIST )<=J FORMAT J<▟ OUT >h48_ CLEAR e CLS vL NEXT ({$N- Q MERGE W THEN DCHR$ D BEEP D STEP D OPEN #!ASS STEP !COLTHNOT CD OR ( LLIST A AND p SAVE LPEEK NEW STR$ NEXT ' MOVE (<> ERASE ▛BSTR$ ; FORMAT GO DEF FN %%F1▞y PRINT EDF PAPER MAK OR DRAW PAPER FLASH FLASH FLASH FLASH FLASH FLASH FLASH FLASH # FLASH & FLASH * FLASH . FLASH 2 FLASH 6 FLASH : FLASH > FLASH A FLASH D FLASH G FLASH K FLASH N FLASH Q FLASH T FLASH W FLASH Z FLASH ] FLASH _ FLASH b FLASH d FLASH g FLASH j FLASH m FLASH p FLASH s FLASH v FLASH y FLASH { FLASH } FLASH FLASH FLASH ▚ FLASH ▞ FLASH ▛ FLASH ▟ FLASH FLASH [C] FLASH [E] FLASH [H] FLASH [L] FLASH [N] FLASH [P] FLASH [T] FLASH INKEY$ FLASH POINT FLASH AT FLASH CODE FLASH COS FLASH ATN FLASH INT FLASH ABS FLASH USR FLASH BIN FLASH AND FLASH >= FLASH THEN FLASH DEF FN FLASH MOVE FLASH CLOSE # FLASH BEEP FLASH INVERSE FLASH OUT FLASH LLIST FLASH READ FLASH CONTINUE FLASH GO SUB FLASH PAUSE FLASH RUN FLASH RANDOMIZE FLASH CLS FLASH CLEAR FLASH COPY FLASH BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT ! BRIGHT # BRIGHT $ BRIGHT % BRIGHT ' BRIGHT ( BRIGHT * BRIGHT , BRIGHT . BRIGHT / BRIGHT 0 BRIGHT 3 BRIGHT 7 BRIGHT ; BRIGHT > BRIGHT B BRIGHT F BRIGHT I BRIGHT :sPICHR$ CHR$ INVERSE :^PI>=! GO SUB [_ STEP F{! OR CAT _A` OR PATTR GO SUB VAL ##STR$ PRINT REM <=_d@TAN [F] READ ) INVERSE !~ NEW LIST 9COS OPEN #9 TO v[Q]SCREEN$ # INVERSE # LLIST INVERSE = INK !yBIN 6pL6CODE O1* MERGE /?<>©: CLOSE #▝ LET CLEAR /R<> CLS SAVE /R STEP OUT INVERSE , INPUT " TO r$s%# FOR FOR }PI LET COPY O DEF FN M<>[O]▝[G]▗[E][F]▖▞▛▟▙[P][A][B][C][D][F]▘[M][L]▜[I][N][J][H][K]!`J OVER RESTORE INK HET]))[4 FOR LLIST I CIRCLE INK # CIRCLE ▛ABS OUT !G OUT STEP 3e!▝ OUT :▟uPI TO ZSQR INKEY$BIN [C]TAB POINT ~[L][U] STEP ;V INVERSE ^ CONTINUE GO SUB INVERSE F STEP w▘6![E] LLIST xPI(~#ATN CLS @ RANDOMIZE <C RETURN COPY RANDOMIZE (G! INVERSE LLIST COPY FORMAT F! IF ▝[G]//!fcFN r STEP ;eCODE 2t DATA *_+ STEP Fa[Q]{LEN USR *wk5(Y<>):▙>=m<>Disk:File$Start#LengthEditor$CompH'In▗"PlayVAL 1Au80$ w(USR p)<!DD6 RESTORE #6T]g SAVE ]B LLIST RESTORE LPRINT ^INT LLIST OR RESTORE MERGE _ COPY ^ TO ATN ^ THEN LLIST STR$ INPUT MERGE 6?, COPY ; REM , RETURN , MOVE B"<> INVERSE !` LPRINT CODE y© RESTORE INVERSE D INVERSE MATN (PEEK &# PRINT INVERSE ` INVERSE iW@▘NI BO▜▝O7(<>-Z4yINT <E, INVERSE ~,ACS TAB <>CSONG MOVE BY ST▛CODE ▚ RETURN STR$ CHR$ NEXT <> R MERGE ine DRAW KSAOFTWARABS E2AUND TRAATN CKER v1.3 COPY 'Y(C) VAL KLAV[E]▗ASM COMPITI}VAL slPRO▛E2.13@ LLIST BATN V# MERGE COPY '9` RETURN INKEY$A COPY 6?[U]XUSR COPY ( OUT SGN PNOT CODE PLOT -> TO OPEN #0 FLASH ' INK STEP 5 COPY [E][T]<=4SCREEN$ ▗ DATA LOAD [A] COPY LOAD SUINT P▜6ICQCODE CLOSE #CMT CLS wPOINT ( NEXT CLS ~HCHR$ l3.0!COS .2/l LET 4USR MOVE BS.T.V SAVE G&d(p'tand GO TO LOAD EXP 8▖^300MUS▜ INPUT 'S REX!SIN D6 COPY COS DQ@NCODE 2 READ STEP LIST DATA )U READ CLEAR COPY STEP READ ABS ] DATA !z@H RESTORE MERGE OR PI THEN (r GO SUB FN STR$ MOVE LLIST <= STEP READ ▜( VERIFY (0>G RESTORE !n~p LLIST LN 8a THEN ?G>[A]X( OR G/I~ NEW RETURN w@[A]9 LIST STR$ x▜ AND 0~ PLOT RUN STEP RESTORE STEP BRIGHT NEW IN _~ GO SUB Q GO SUB x NEW atSIN ATN >=Y[U]FTSIN INVERSE p GO SUB ~F▚PI LET .( MERGE <> STEP ▙ READ RESTORE _ CAT <> MOVE ASN INVERSE !SCREEN$ xINT READ GO TO INVERSE ` CONTINUE PI GO SUB R CIRCLE < INPUT ![M] READ b|=▜) FOR <>fDf AND ▖PEEK ▚o RETURN DRAW !>=* INK 5 DEF FN CTU DEF FN DEF FN [N][F]+I$& RETURN /o<L OR _[D]xY<=[H]IN [F] LIST COPY COPY ( PRINT CODE 2! RUN READ ▗U DATA LET <>00:[G],>0w#w"4~ RETURN 2[C]USR CODE w! CLS READ :USR $ FLASH 5 IF 6 SAVE [P] RANDOMIZE ;b<> RESTORE MERGE [M] DATA STEP g!, MOVE d/ ERASE LLIST >=g DRAW u DATA B LOAD j INVERSE RESTORE INVERSE b INVERSE k' STEP STOP DATA CIRCLE CONTINUE =vd} AND 0/W) RETURN 0 > COPY LIST :t DATA PI T[F]▗ RESTORE OR T]@1# VERIFY STR$ LLIST REM LLIST FOR INVERSE LLIST <>]0 CLS xL<>!l RESTORE USR m RESTORE g6*! OR A AND A6 COPY RESTORE C NEW CVAL BORDER 'eB|[Q] INVERSE OR Dy~' DRAW RETURN j STEP RANDOMIZE BORDER !<= NEW OPEN # NEW / GO SUB FN LIST [B] REM CONTINUE NEW ah SAVE POKE D0▝0 INVERSE ~ INVERSE FFN BORDER CLOSE #N INPUT SCREEN$ ABS BORDER <>@ IN $m2L BORDER PRINT COS BORDER Ix2J BORDER LET >[A]2M▚b CIRCLE : THEN ?[F]:G CLEAR G#>=G:,ACS GO TO w PRINT <> LPRINT py GO TO CONTINUE V▜![F]W>CHR$ CLOSE #R/]<=PEEK LET VAL Z_▜ DATA 3].]#l:Kc FLASH LOAD N`[M] CLOSE # NEW INVERSE 6a DIM [I][Q]ACS CONTINUE [L]ACS [Q][Q]0F THEN _b [U]s THEN g PRINT AND PEEK 8 BEEP [I]AT LET THEN oASN INK /K[U]0[B],h` STEP ABS M CLEAR vIN [N]T STOP [D] NEW OR DATA g[J] NEW j NEXT j~▚ CAT <>@TAB |gCODE NEXT GO SUB s RESTORE CONTINUE 1 DIM CONTINUE DIM tR01I DIM >0 MOVE I PRINT <NOT INK CLS <>-▝ INK =POINT ![N]CODE C INVERSE ySTR$ m MERGE [B]O OVER [S]o= LLIST ATN [A]kI( GO TO MOVE ▖LN [P]▚qTH@6% PLOT } BRIGHT FORMAT NOT LN VAL$ [U][L][D]▘{tnhb/WSNJEB>;852/,*'%#(j? * CLS ?[S]Z!<BIN NOT USR NOT DSTR$ NEXT ~2xUSR "SQR USR # STEP ASN USR <2zUSR GO SUB SpUSR GO TO LPRINT rUSR MERGE t"@USR !B STEP INT USR FOR "v▝ ,{▘USR USR jp GO SUB VAL LLIST gCODE STEP CODE USR =2▛USR 2U[F][P]USR Iy▖O"▞)[D][N]KBIN CLS <>_<> COPY <> THEN WBIN P7▝ TO / TO [M] TO COPY [O]6>=▗ LINE [G] POKE XBIN LINE <=AT VAL X(NOT b [C]Q FOR EXP FOR [S]<>EXP ▜_ INVERSE INK THEN ©J THEN w[Q]CHR$ FLASH USR B NEW g INVERSE ^ BRIGHT DRAW : PRINT NEW EW LET NEW o INVERSE THEN n>= THEN STOP <>:[Q]USR OH! READ PEEK PAPER STR$ CODE O GO SUB i&) GO SUB [ LET N#~2DNOT LBy* GO SUB GO SUB lv CLS FOR POKE }©USR <> INVERSE 5 LIST [C]Q[ COPY >K RESTORE H@ POKE CHR$ ▙CHR$ :x RUN INVERSE !▗&9STR$ PAUSE oSTR$ *6~(< TO SAVE USR STEP [I]STR$ iG0▙▘#wJ[I][L]LN =*VNOT ~ RETURN ` PAPER AND STR$ RETURN p PAPER A OPEN # PAPER POKE STR$ LINE FOR ▝ LINE MOVE !▘ LINE LET PAPER DIM VERIFY [R]&▗INT w COPY #NOT 3@ CAT 66 #<> VERIFY ` RESTORE c*vLlUSR SGN INVERSE u INVERSE t LLIST $" COPY <>CODE VERIFY p !Q> r CHR$ VERIFY 2VAL$ ~#2AT [I] RESTORE CODE PAPER COPY ) LLIST n"~<>===[B] PRINT ▖▝^O<[M]D LET 0^kV!`~1= IF GO TO STR$ L<(`(<>yATN USR |2PIl7; RETURN ATN >= RETURN LINE ▜YVAL CHR$ dNOT ▛CHR$ CODE u THEN NEW @K=95CHR$ y2<NOT INVERSE *▜USR USR yVAL 4t2FN Q8 LINE INT CHR$ STEP i2NOT "[R]USR !POINT USR wL STEP q@Q2 THEN ATN LOAD 9[B]SQR P9:6LEN VAL ; MOVE INPUT 0#4[T]4SCREEN$ C NEXT 4s PRINT DATA 4(NOT 4[L] PAUSE 4 THEN THEN VAL LEN PAPER INVERSE 8'8RND;8ATTR 8NOT BIN } PRINT MERGE INVERSE ▟n INVERSE fv▚ AND ▜_!_NOT POINT ^ MOVE LET THEN b([Q] THEN [S]<>)<> 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^YJTOKGT LLIST ?RSCREEN$ ><>@VAL$ USR CODE ACS > VERIFY +yIN GO SUB ATTR = PAUSE /BIN <>!/ LINE NOT YCHR$ NOT CODE OR l PRINT VAL ▜GOLDEN LPRINT FORMAT DRAW K =R LET }/ OUT RUN s COPY _$Xg_w DRAW OVER x} CLEAR [D] COPY BEEP %[A] BORDER = OVER RUN INK VAL CODE ABS RETURN SQR CODE *w)CODE ABS ;.-xG NEXT RESTORE "NNOT RESTORE ~2 LLIST AND 2COS OR #J▟" LET CHR$ t"d# ";NOT O0NOT LLIST INOT )A!K LCHR$ LINE ▖USR ▖CODE 2HCHR$ 2IJ▖9@[O] FLASH NOT 2ZBIN 2 BRIGHT ""4[J])ATTR . OR G/2CODE .VAL DBIN >▘ AND ! CIRCLE STR$ ">@ AND "[T]$BIN "INKEY$) OR STEP *6NOT GO SUB S THEN OR STR$ GO SUB sNOT LIST CONTINUE STR$ > LLIST FOR s#r# FOR = PRINT (CHR$ >[C] PLOT *USR A CCOS INT NOT "9FSQR BIN CLS h OR !~▜I^%4VAL$ 8 INPUT ▚▜ INK F INK OR RANDOMIZE ECOS LPRINT D" DIM OR AND 0G<>{` REM BRIGHT O0<= THEN #~ THEN NEW THEN Z PRINT 2QCHR$ LET ~4 NEW #ng INVERSE b FOR 1K INVERSE [A]}XT(USR ~#fo THEN :R8▖<>><(INT we PRINT $y<PEEK # ~2TAN NOT ▘[F](NOT FOR x_ASN VAL X INVERSE .y STEP cNOT ("KXCHR$ FOR IF BIN (& RESTORE 7{PI PAUSE THEN GO SUB DOPI GO SUB B0 LLIST S2 INK NOT CODE 2 DIM NOT go" LPRINT NOT VAL " PAUSE NOT LLIST VAL$ INVERSE |2!;RCHR$ PAPER ~ PLOT %SCHR$ OVAL$ ~z~3BIN O CLS ~4| RANDOMIZE ~M[D]IN ~[L]~zBIN ! CLEAR ~XBIN ~hBIN [N]e~_BIN ~qBIN >=~~!~ACS wv RANDOMIZE ▝T▝ COPY RESTORE {▝ASN CLEAR CODE ▝ACS [P]|▝O▝ OR FLASH CODE ▝ DRAW ▝R[ PAPER REM LLIST { CAT OVER ▝ NEXT ▝ DATA ©▝▘U DIM CHR$ !XCHR$ IN COPY VERIFY !B GO SUB yC STEP MQI▞2x<>CODE G>=HQ(>=("=CHR$ VAL$ `NOT !HCHR$ 5 PAUSE 6CHR$ PI TO 6NOT STEP t<= GO SUB RETURN 2 AND NOT IGD STEP [I]>= DIM q=kJ AND [P]<> AND CODE 05( LLIST TAN NOT t STOP /Xl CLEAR "ATN NOT 2nY- AND )BIN FLASH Q THEN $BIN MOVE 2D AND INT &2TASN INKEY$&BIN PAUSE CR FLASH CONTINUE ^ INPUT LPRINT "3BIN VAL$ qd.MX FLASH 6Md[C]=o BEEP ATTR ZINKEY$ FLASH md/POINT d9mG2EXP qATN k'▘[G],gmNCHR$ VCHR$ >@,CODE 2 VERIFY NEXT 2[ AND :lR AND =(y2" GO SUB Z[G]*>7PI<> OPEN #:$ READ O( PAPER TAB v#<>[F]<=▜! CONTINUE USR [R]> CIRCLE a0 &o"k AND PIx PAUSE A<=ABS f AND PAUSE --A GO TO Uog"`KiBIN )f@ MERGE <> OR AND 8+ AND `8 AND 8gaSTR$ 1 AND @8 DATA ▙<(v7[K]VAL < LINE ▜TAN VAL o CAT (%▜STR$ $ OR ▜"' LINE [G]▖!(CHR$ ▜NiATN %D>= GO TO SQR SQR PI[A]<>D4INT ( GO SUB RETURN (( LIST >[O]2 FLASH AND [Q]2 BRIGHT @ FLASH [S] LLIST B2 AND AND : MOVE A AND = LINE >=y2▜#▘AT /EXP #[C]▘PXBIN #( INK COPY N$ GO TO [Q]#[T]h[I]USR LOAD >=0#GUSR FORMAT e>=[C] THEN ; LIST # LIST wy#USR #[O]) LIST #[M] PLOT BORDER #▜ RETURN OUT o[P]# THEN ▖k FORMAT #COS %POINT PIw>=^ CONTINUE )# CAT #[J]INT ' SAVE # CLEAR #COS LPRINT #B: PAPER (![Q]7NOT U<>2 OR := LINE ABS yL8-I[C]"ASN xBIN <> DIM BIN ! PRINT o<>x OR GO TO *o LOAD z& LPRINT NEXT BIN ef BRIGHT BIN u IF G& LPRINT [ IF J,@g<(/[S]COS < RETURN FORMAT STEP CLOSE #($▘LN [G][P]<>R FORMAT SQR , THEN STOP ▟> COPY [I]<>POINT ATN >= CONTINUE CONTINUE .}r CLS CONTINUE &COS _ GO TO SAVE OUT ) STR$ ADC[Q]DFPICODE A AND ANCHR$ BxIN T[Q]NOT ▗WL[Q]hCPIN WP2 BORDER .xRND9 TO BIN [P]kD OR DEC[Q]DEFBMZSW<>PHA@SEJNZ[Q] OR E<>UNYUSR QU[Q]EX CIRCLE >=[O] LINE H TO <>IW.5INF[O]IN xASN BEEP ▘▟ STOP AT JvJR[Q] TO LIN W[A]VAL STR$ [O]INT STEP NNOT BEEP ^[B][Q]O!G OUT +PIfCOS ^{ATN LIST NOT FORMAT P OR AND ORNDWP[Q]CODE H[Q]+{ AND [M]CODE OUT ]=S STEP R PAPER ABS NWLyc CAT f CIRCLE RSGN =o! PLOT wSKSB INK +LA FORMAT SR-d;SU POKE VERIFY X} PAPER NEXT BORDER LN FOR DATA CODE EXP THEN ABS Z&I AND M CIRCLE L INK H INK DW[Q] SAVE SAVE SAVE SAVE ! SAVE # SAVE ' SAVE ( SAVE * SAVE . SAVE / SAVE 4 SAVE 7 SAVE : SAVE = SAVE A SAVE D SAVE H SAVE K SAVE L SAVE O SAVE Q SAVE U SAVE Z SAVE _ SAVE d SAVE i SAVE k SAVE q SAVE v SAVE w SAVE y SAVE SAVE ▗ SAVE ▜ SAVE SAVE ▛ SAVE SAVE [B] SAVE [C] SAVE [F] SAVE [I] SAVE [M] SAVE [P] SAVE [T] SAVE INKEY$ SAVE SCREEN$ SAVE AT SAVE VAL$ SAVE LEN SAVE TAN SAVE ASN SAVE LN SAVE SQR SAVE IN SAVE CHR$ SAVE AND SAVE <= SAVE <> SAVE TO SAVE CAT SAVE MOVE SAVE OPEN # SAVE VERIFY SAVE PAPER SAVE OVER SAVE STOP SAVE NEW SAVE REM SAVE INPUT SAVE LOAD SAVE LET SAVE NEXT SAVE RUN SAVE DRAW SAVE CLEAR SAVE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE # RANDOMIZE ' RANDOMIZE + RANDOMIZE . RANDOMIZE 2 RANDOMIZE 6 RANDOMIZE 9 RANDOMIZE = RANDOMIZE A RANDOMIZE C RANDOMIZE G RANDOMIZE K RANDOMIZE O RANDOMIZE P RANDOMIZE T RANDOMIZE U RANDOMIZE ] RANDOMIZE d RANDOMIZE h RANDOMIZE k RANDOMIZE m RANDOMIZE o RANDOMIZE q RANDOMIZE s RANDOMIZE v RANDOMIZE y RANDOMIZE | RANDOMIZE LPRINT NEXT STR$ Y<> ERASE X_>=X TO Y>=YLttWH TO CLS ▜INT :S FORMAT {SGN zsh]0SRr RUN p▗E<> LET POKE X CIRCLE STR$ ?>X` CONTINUE <= GO SUB COPY SAVE PRINT "a CONTINUE BEEP RETURN IF = INVERSE G&LN NEXT ? MERGE COPY DRAW !^!j©GA LPRINT [P]] BORDER [R] NEXT CONTINUE h POKE LPRINT [T] CONTINUE MOVE )©NOT LLIST 9B[R]▜ GO TO _8 DATA [H][N]!=g40KG 8" LLIST pp8[I] PRINT BEG6E▚"zDOW/!UYSY▖ FLASH STEP STdKE INK a IF b IF c IF d IF e IF f IF g IF h IF i IF j IF l IF n IF p IF r IF t IF v IF y IF { IF } IF © IF ▝ IF ▘ IF ▗ IF ▚ IF ▖ IF ▞ IF ▛ IF ▟ IF ▙ IF IF [B] IF [D] IF k@%[H] IF SAVE [L] IF SAVE [P] IF [T] IF PI IF SCREEN$ IF TAB IF VAL IF COS IF ATN IF EXP IF SQR IF PEEK IF STR$ IF BIN IF >= IF TO IF FORMAT IF CLOSE # IF CIRCLE IF BRIGHT IF LPRINT IF DATA IF [P] SAVE CONTINUE IF GO TO IF LIST IF NEXT IF PLOT IF RANDOMIZE IF DRAW IF COPY IF CLS CLS CLS CLS ▛ SAVE CLS CLS CLS CLS " CLS % CLS ( CLS + CLS / SAVE . CLS 1 CLS 6 CLS : CLS > CLS B CLS F CLS q SAVE I CLS L CLS P CLS T CLS X CLS [ CLS ^ CLS b CLS f CLS j CLS n CLS r CLS v CLS z CLS CLS ]/ CLS U MOVE CAT ▚ CLS ▞ CLS CLS [B]+ CLS [SGN USR COPY
