| Является частью релиза: | ProTracker |
| Размер файла: | 52480 |
| md5: | 0bbbdb29798a46bc543683d3aec8bb3a |
0 REM INTROS BY SIR OLEG! DON'T PUSH 2 SLOW MEMORY!
1 BORDER NOT PI: INK NOT PI: PAPER NOT PI: CLEAR 0 : CLOSE #USR 0
39261''V POKE 23561,22: POKE 23562,1: BORDER 0: PAPER 0: INK 7: CLS : RANDOMIZE USR 2SCREEN$ 5619: REM : SAVE "MAMBO" LINE 1 LINE __hCODE /=y` REM !PEEK a MERGE [K] GO SUB VAL FN a!Xb^,<> GO SUB VAL !▙ INK RESTORE STR$ VERIFY ! STEP LIST REM 0'E, STEP LIST REM 80. STEP LIST REM 8( STEP LIST REM 0E STEP READ REM AND o RETURN 8 STEP READ REM AND READ REM - PLOT /. STEP READ REM <( RUN RESTORE STEP LIST REM !!8 STEP LIST REM 0kb#& STEP READ REM STR$ GO SUB LN ! COPY © GO SUB R8 LLIST INK NOT CODE O STEP LIST REM THEN SAVE Gy<> INK A^+ THEN INK <>[K] LIST ![Q]Y STEP VR INK S@$ LPRINT VAL bATTR RUN RANDOMIZE FLASH PLOT COPY USR !hACS LACS COS k>BIN p RUN STR$ [A] RANDOMIZE COPY RUN [G][R]o[P]%CODE $[S] OVER IN CIRCLE _▗,06 RETURN LET q BORDER EXP INPUT OR Eit[O] GO SUB ▙TAN COS SIN CODE $▜/[K][G]AT ^LEN j]qEXP ~ RESTORE D▚>=b LPRINT RETURN LIST INPUT LIST LIST CONTINUE LPRINT SAVE a[A] MOVE @?[O]; COPY RESTORE PAPER POKE ISIN eIN H[Q],<>[E]M#EXP SIN n$([P] IF (<= IF /F GO TO ▙ CAT DATA ▗T DATA T DATA [A]T DATA [G]T DATA [M]d▗E▝``▗yH PLOT INT PAUSE GO SUB +IN STR$ ▙EXP [N]L[J] CLOSE #[F]o_y>us CLS 8FN + OUT PEEK PAUSE SCREEN$ [J]3ATN [T]I NEXT INT PAUSE GO SUB +?USR SCREEN$ EXP }[L] CLOSE #[F]o_ RANDOMIZE 5c OUT RETURN CODE | CLS LINE ATN CODE n LPRINT PLOT k} CLS CONTINUE ^ MOVE +:`e,( CIRCLE [,l LPRINT RESTORE 4CODE 6+&▜O38B[A]1 SAVE ax REM CAT ^VAL 4CP=[J] FORMAT #u▗fA[P][J]STR$ =FN INPUT [A] A▝ PAUSE 9SIN OR LINE ▟USR BATN e COPY ,VAL VAL TO CHR$ CLS P TO [R] DEF FN A[2SCREEN$ CLS CLS "A CIRCLE t?STR$ C[A]5[F]USR [L]!PI[U]TAN o RANDOMIZE fDTAN NOT &CzI[O]OT$>= SAVE $W LIST % CLEAR C)▜? LPRINT *M$ LPRINT )&y CONTINUE E BRIGHT [P] LOAD LN X[P] CLS LET ) 0[O] RESTORE I) REM 8/[M]COS @DJ)| RESTORE ^[S]▘▛OPOINT CHR$ [U]f[U]/[O]SIN [L]cCHR$ 5[Q]4W[U]PEEK LN INK ▘t^▘▜lBIN R RETURN b2f STOP CODE xN[K][B]IN TAN IN SU^RNDM53 LET [O] OVER sLSGN e RETURN BEEP c*ZTAN h AND +ATN SGN W<=>7<=FVAL h LPRINT M0SGN ATTR USR T|4* MOVE TAB COPY PAPER g[I]6 BRIGHT D[D][F]<= LPRINT FORMAT ox/.KVAL x▞[F] INPUT BIN #FN kSTR$ ▘I BRIGHT SGN COS 0RNDa FOR *| RESTORE _ATTR [F]3STR$ 6'[S] NEW P[Q]!SIN LIST 5`).▙HIb[U] LINE [E]RND STEP [I][C]VAL$ ▘PId▘ DATA [O]re5a'[Q]&▘"ib9PEEK ▜c>A RESTORE C?EXP NOT C DATA .ATN NOT A[G]BIN j# LIST j BRIGHT $▖[B]$ASCREEN$ a RESTORE i[G]:COS CONTINUE MOVE Wp NEW COPY [E] NEW #{ STEP [M]3 THEN SAVE [I]4`INKEY$CPIt[B]{ VERIFY [U][R] SAVE OR BEEP COS [J] LOAD GO SUB [L] SAVE 6 FLASH p LPRINT a[M]?` ERASE 8lq2* CONTINUE < NEW ▗Y~5PEEK ,|[K][B]SQR LPRINT U[K] COPY MERGE z8N NEXT DATA hVAL INPUT DRAW e[K]JCHR$ u CLOSE #0CHR$ ' REM STOP w~M NEXT MzV INVERSE S* DIM ? FOR DIM POKE ▟VAL _ LIST ABS [P] BORDER ▙▚[H] LPRINT ▝ FORMAT #O[I]) STOP POINT ABS BIN [K]▛1 RETURN /[Q]VAL$ STOP >= TO u4/PI STEP RND>CHR$ |^< OUT CHR$ *USR mINT c FORMAT ' DRAW NEW ▞ LET AT POINT [N] COPY NOT EXP *49s INVERSE 8▖nLATTR DRAW STEP 7p/ SAVE V DIM READ 9,#l*M FOR [C] OPEN #)▘ THEN CONTINUE I MERGE ACS POINT MOVE ^<' RANDOMIZE COPY ▞ LPRINT READ PBi` DRAW *CODE cPIN( STEP STR$ LIST MERGE 7 OPEN #[T]x"STR$ FLASH READ b$ LET KPOINT PSGN SIN <>DUSR +0M/{NOT [E]LN O INPUT SIN LINE CLOSE #a: BORDER <NOT INKEY$a THEN s READ ,0l TO f CAT ▛LEN LPRINT 38PCOS N MOVE qz LINE jSTR$ PAUSE LEN ASN $▝SIN :,Emj8R▜ VERIFY S[K]v[R] OVER [C][J] STOP COS [L]7INKEY$IN OR r REM [M]I3[T]0 LINE AT VAL DRAW NOT .rA FORMAT LN M▖ LET |6ATTR LPRINT SAVE <#T+ VERIFY ▛ OPEN # PAUSE ▘ SAVE DEF FN *|ATN LEN EXP = OVER FORMAT FORMAT ;H CONTINUE ffM2 CAT i BRIGHT USR M INPUT DIM zsW▜SCREEN$ 02'STR$ [S]B7S NEW ~ READ FN NEXT sz REM CLS [S])▚`P[K]xv7qa(XO=VAL IF F- NEW CAT ▞ LIST :q`1 BRIGHT ] CIRCLE L:yr LIST 4w STOP CONTINUE Y▘ OUT TO LLIST SAVE *# LPRINT g OVER 0 STOP VAL$ KnBIN !^8[Q] AND USR ▟868 GO TO ]H LPRINT [D] CLEAR LLIST | LET 8 REM LLIST 4/f?e[G] LPRINT 3rH[D]▜g<N MOVE SGN ![D]&66 MERGE -S&CNOT [F]LN [J]gEXP W[M]GLATTR INPUT LLIST id&▚ CLEAR |USR j CIRCLE LET 00 OUT EXP EXP STR$ INK [I]INKEY$O[K]68p[I]TAB LN [O]yeCOS [M]^=p8e DATA CLOSE # DRAW L OR IN CHR$ /~SGN LIST Q?i[Q] POKE ▙TAN ▟ DRAW [D] FOR CONTINUE 7vjt|SQR L'%©}> INVERSE TO ▚XO6eBIN Au>=[A][B]INT VERIFY k>= MOVE ERASE g▗<6SGN [O]/NOT FOR 1) CONTINUE yj GO SUB Z POKE LIST O3y▝[F]<Y ERASE s DIM ▙ NEXT LPRINT &!66[C]'7VAL M|E< OVER [S][Q][F] NEXT USR GO SUB ZLN "l BORDER i▟ BORDER FORMAT aI[O]3ACS OPEN #[I]▘9[B]F▜G%qs DATA mpX DEF FN n+ MOVE YV?>=`) ERASE q CAT 1$ LIST 0 LIST GO SUB ▗ THEN PAUSE -SIN DAT /NOT ,[R]<[B]NOT ▚Z REM PAPER ▜[D] AND z OPEN #n90 PAPER DEF FN [T]FVAL$ }ABS FLASH CLOSE #INKEY$ LLIST BF PLOT <> OUT _ RETURN mFN OUT SQR ▟v=. DATA [E]! RUN NEXT ASN (h|?h INPUT P;P CIRCLE :P!8OBIN [B] LIST 0 CIRCLE LINE NEXT v▝ NEXT NOT DIM LIST (UaRNDBIN STR$ Q NEXT + LOAD [Q]PEEK [Q]>▖IX THEN PAUSE EXP =[T] LPRINT PEEK YBIN e`7 FORMAT mCHR$ ▖*- SAVE /-{SIN e STOP ▖ FORMAT PLOT PjSGN ,ASN 9>▜1 LET QLN w MERGE a_M SAVE /+NOT 4STR$ Y6` SAVE N ERASE ▜+NOT [LN [G]>=[I]* CLOSE #0 RETURN Q LOAD DIM "▟&> RUN q▗>S'zSQR )[C]▚b%[H]STR$ =`[J] MOVE B= STOP p[G]"ZTAN ▗ FORMAT RANDOMIZE .B[C]{[C][P]STR$ [J]pP/:[T]USR LPRINT LIST [A]!Y6r} DRAW .[G] STOP [M] FLASH STR$ [x$n$I BRIGHT [TXH[F][N] CLS @[J][U]0 GO TO ' LIST [D]&B OVER ae SAVE H REM 6pH GO TO CAT LPRINT :VAL L[E] NEXT USR B LET [C]?▚CHR$ INT TO ▙ OUT I PAPER bEX$[E]<>3LjY[I]LOLEN CLEAR L▖4▘opU LPRINT CIRCLE uzX: PLOT 9[B],SQR [P] CONTINUE 1sCxo CLS SCREEN$ LET [in LLIST BIN W RUN LOAD CAT NOT INKEY$ READ FN AND [E]<> CLOSE #oEXP v READ AND Pb LPRINT LN H**3 GO SUB "6KCOS CLS ASN LIST CIRCLE M OR OR [P]i OUT PAPER P INPUT wPEEK ▙LEN v<>O: READ 4 SAVE ▖]LD INPUT >= LLIST v▛&U_LN [C]8[D] FOR ?x<>▘POINT PEEK PLOT ,WiCOS L THEN USR w8c[Q]X COPY 1 LOAD [A]Y+Mq[M] BORDER [P]-▙#USR EVAL USR SSIN ,j OVER OR )IVAL j8U7K[P]SGN CHR$ INK SIN W READ BIN SB GO TO NEW p[K]`<^0 THEN CODE LIST [F] NEXT NUSR v REM >= MOVE RANDOMIZE 2f LLIST ▜G RANDOMIZE ![S] PAPER TAN LCOS USR ,d LIST ▘[I]v#SBIN 10[M]SIN SGN 6@kbSR[P] CLOSE #l6gp LPRINT LN STEP /SQR lfb_CHR$ [Q] LOAD [Q]▞ LIST [O]&BIN i<VAL$ DIM [U] LET S Nc GO TO {6 CAT .A▝K STOP 3 DEF FN 0L/NOT `(qpK STEP <>[H]'` AND FOR ▞"u4~▝ LLIST ; LPRINT p<>^F▗ INVERSE DATA AS BORDER MOVE USR LINKEY$ TO +3[T][Q] THEN VAL [I]7v| PRINT PEEK ▝ FOR RUN USR +pVAL N CLOSE #up' TO AND ▝ NEXT $STR$ e PAPER VAL ▞c[H]9▝b[M]BIN ] LET ▞ /V[B]y[S][U]$&BIN [mc- LET POINT CLEAR CIRCLE ©] CAT NOT TAN z CONTINUE .,PISTR$ fd LPRINT 6a AND [U]I READ PAPER *[M]kUSR D LIST REM DRAW f FORMAT i>a[B]a READ [E] READ cFN COS I▘ VERIFY ▟ THEN TO Y INVERSE CAT STEP 'k AND LN 1L▛ AND kT OVER inABS d9aXBIN [M]W AND 1PIPOINT TO FLASH LN ) RANDOMIZE LET b[L]y NEXT ▛ BORDER g DATA SAVE L FOR <>PIN NEW N[F]3` VERIFY COPY ABS [G]pSCREEN$ NOT ▞CGEy NEW INVERSE RESTORE /B LIST 8@[Q][T] AND STEP )@(x[F]rSIN uABS 0[G]!C919o NEW x▗:BIN e DEF FN DRAW NOT /[K] RANDOMIZE [S][M]x[G] DIM )H LIST [A][E]_p)spdFN SCREEN$ SGN [U]▖[E])[Q]/VAL eD] OVER [G][eJ[C] CIRCLE >= BRIGHT ATN SGN '& ERASE JWCHR$ $<> GO SUB CONTINUE LEN |b>=.%>=[E][M] SAVE INK XNEXP ▖ STEP x,[M]k<>B[C]g OR LEN :/S RESTORE COPY LIST iSGN NOT '[K][I]NOT RND LET lBIN LINE nq GO SUB ▘p
38510kXt^[O] BORDER ( DIM INT <=ee INPUT 3,@AT cPI[N]9qapTAN M_ DRAW F`AT OPEN #[J]▛ PRINT ▗Y NEXT AND ▟SGN >t OVER dUSR ?p2 r[p5~CHR$ TO C▜ LIST # REM a INPUT [M]POINT 3▜Nd AND ▝[C] TO 8i NEW ▗q NEXT F"INKEY$▘u FORMAT >=[R]c8 CIRCLE [N]8b DATA BIN #G▙WSTR$ OPI▘TAB CHR$ 0KQ2▞!H STEP ▘cACS ▛/Q▝ LPRINT #SR LET [K][P]8[R]d|%I<>TAB ©: LET yH&LN LPRINT !▗ LPRINT "LrVAL$ !#F▛0F4[D]FN p! SAVE [E][C]"[Q]0|▛[Q]N[Q]6▘RND BORDER +A[K]<[R] PAUSE BIN [B]!Cq1 OR STEP P[C]RND NEW )5zDw* B/[R]SCREEN$ ▘& INK ▘$"[D]8 MOVE EXP [C]8 LIST [E]7VAL O[U]p LPRINT ~ LPRINT D▗r:5b FORMAT ▖QB PAUSE [E] FORMAT [F][A]R▛[>= INVERSE // OVER X>= BRIGHT INVERSE Y CLS TYJ[B] D@9BIN ▞ TO N[O]/1%HY[O]T DIM iINT .d)[S][D]+J[A]PI[A]$▖©) LIST ,YsU>=[U] FORMAT [N]D RETURN RESTORE 0▗ DRAW ▜`DBIN [I][A][R] LPRINT ABS [S]|[K]▜USR AND NEXT oTv▜USR <`FN [K]~H AND RUN y[L] BORDER l OUT ATN O CLEAR _[I]w LET OVER CLEAR CLS RUN ▜ DIM INT 8PI OPEN #[D] SAVE c$u* POKE MERGE s IF LPRINT # DATA [N] CIRCLE v COPY RESTORE C0[Q]▖80= LET A|POINT INVERSE PRINT LET CAT >=v CIRCLE ©EXP ATN ▙"qpTAN as BORDER [A]s FLASH @ DRAW ©r BORDER }9 DATA zx POKE ©[K]AT RESTORE CODE USR OUT STR$ _[J]5 AND 7r STEP MOVE ?d|~ SAVE STR$ z<[S]?grVAL CIRCLE l[X GO TO 8 FLASH Pw PAUSE [L] DRAW 'u;[I]▛xy.ATTR [C].[C]]▝LSTR$ RUN b OUT q▗rpl▜ DRAW ▟:G LPRINT + SAVE A OUT ){ LLIST OUT CODE ▜ COPY ASN CLEAR - PAUSE =VAL ! RUN [H] LLIST [N] NEW H0[P] SAVE OSIN FLASH ?H OR / STOP DIM OVER RESTORE TAN RETURN TO POKE RESTORE ?P NEXT NOT g@X(IN 9PEEK B`[P]w RETURN NEXT POINT PLOT ? CIRCLE CLOSE # LPRINT . LPRINT > PRINT [L]]PEEK IN SGN k REM COS TT COPY TO [H]K<=}m SAVE RUN [K]NOT LPRINT = LOAD OUT 2/ AND PRINT `[O] REM O SAVE + LOAD [H]~ RESTORE RETURN SAVE x© ERASE [P]1[O]4USR BEEP RETURN CLS ! RUN PAUSE INPUT BRIGHT ? CONTINUE USR PLOT <= LLIST ATN x2TAN PLOT k= COPY <=POINT [P]x8 REM [U]<>[Q]w0 LOAD p[M]? RUN USR OVER ?Py PAUSE [A]kn INK 1 FORMAT THEN | COPY @TAB ysgCHR$ +qI|wV GO SUB p SAVE COS LINE CLEAR [L]COS )I8Y LIST [K]s STEP [H]zPEEK ABS }[Q]?[J]▘ DIM SAVE SAVE L DEF FN CLEAR MOVE ~BIN LET CHR$ READ [R]SGN ':9 READ COPY LPRINT STOP 0[M]y8 INPUT + DATA syqln RETURN {@IN ▜BIN NEXT = RETURN CONTINUE RUN OUT |Rb© DIM VAL COS O8IN LINE BRIGHT STR$ w DRAW ▟ IF >= o[J]STR$ W&NOT q©W; BORDER NEXT GO TO INKEY$[J]a MERGE CIRCLE NOT CLS s CAT LOAD RETURN USR OUT LPRINT LOAD USR _1{USR PLOT `©USR SAVE l DIM [A]K[G]▘|N©B NEXT CLEAR BORDER u2 NEW RUN ▛{ NEXT LET ▟>=8 PLOT FLASH RUN NEXT USR ; RANDOMIZE ? CAT © PLOT / RUN LOAD PEEK CLEAR NEW POKE [O]PfSGN m SAVE [I] RETURN PI DEF FN BIN _ OPEN #[J]bVP AND INKEY$' POKE LOAD THEN ©bSTR$ [Q]CHR$ ,©?0B OVER ▞CN9 DATA [P]oE CLS SAVE DATA o CLEAR = RETURN STOP ??USR FCHR$ COPY }hN RUN SGN m GO SUB < RETURN PEEK LPRINT SAVE FOR IF ABS d TO BRIGHT LPRINT COPY > PAUSE OPEN # CLS SQR COPY PEEK BORDER LET ▝ CLS 8▜# STOP ABS ▜ GO TO DRAW EXP GO SUB y7 BEEP RND LET t LLIST [C] LIST OUT PLOT ▚ CLS RANDOMIZE CHR$ ABS ` POKE SQR +wSTR$ SQR p DRAW NEXT REM ▙ RUN MCHR$ [U] LIST DRAW RANDOMIZE 9|]?| CONTINUE GO TO LPRINT [Q]PLN - BORDER s© FOR `LN VAL$ IN OUSR OUT STR$ RESTORE CLEAR [M]~ CIRCLE K;VAL$ = COPY ;t RETURN COS z LPRINT c[P]C>=;0><x LIST LIST ▝<= LLIST SGN INPUT DEF FN READ 6>?[K][E]J READ y LINE BORDER TAB OUT ▜ DEF FN SAVE OUT VL OUT POINT LLIST RANDOMIZE w INPUT [A]+BIN SAVE |G ERASE OUT w.▘ READ 0▙ATTR READ [E]<*o▜©AT GO SUB [J] SAVE % DEF FN INK RETURN LLIST IN 8VAL 2 SAVE % RUN <=OPI BRIGHT >[I] NEXT READ FORMAT LOAD 3 RETURN AND ▛b OUT EXP qATN [M] STEP T|<> STOP BIN ▗[I] @Q>}' LLIST <> STOP [M]rqrVAL rVAL$ ""WD▗ ▗ POKE s[P]! COPY STOP [I]K NEW [H] RANDOMIZE / RETURN _ COPY IN ?©= COPY INPUT LLIST s© NEXT +▘ CLS } CONTINUE 7N=NOT 4} READ IF RUN ASN RETURN LEN oNOT x>= LIST l[J] ERASE K DIM SGN [S]<A▙FN 9~▖NOT 4[I]3=▜o OVER RUN s>=SQR PAPER A>= RUN RESTORE READ DRAW *a SAVE ~ PAUSE OVER CLOSE # OUT / NEW LET CAT OPEN #| LOAD .▚=▖ DRAW [F] IF [N] IF *▘ RETURN NOT u LIST ,NOT s LOAD CAT ©J?TAN ! RUN MOVE NOT CLS BCB©bp83IN == LPRINT LET [N]ATN BORDER !CODE STR$ LPRINT 8 READ LET ▟ RUN w[F] NEXT SAVE dH RETURN [D] OUT NOT r& BRIGHT [P] CLEAR [J]>= RETURN uz DEF FN READ [K] BORDER -IN GO TO FORMAT [P]EXP _[R][R] SAVE CODE CLOSE #2 RESTORE #AT C. AND = SAVE TO c▖ BRIGHT RETURN CAT | LOAD OR ~ LIST LIST SAVE NOT COPY POKE DRAW CAT RANDOMIZE INVERSE READ [F][R]C©TAN BORDER [P]5 AND ATTR <=CODE 0 BRIGHT OPEN #Oa LIST [J] CIRCLE ▜ OUT LLIST USR THEN cx RUN USR CLEAR OR CLS LIST ?[B]g| BRIGHT ▝oUSR ©FN INT LIST LPRINT IF @w STOP . CIRCLE [A]s LPRINT [N]ATN @q| LPRINT 7 INVERSE RANDOMIZE BIN ▛B▜ STOP {| NEW PRINT LPRINT RUN qPSIN ?:0▜/[I]] PAPER nSGN xIN /STR$ COPY ~ LIST [P][P]w LPRINT PEEK > SAVE :USR LLIST [A] NEXT ~ AND ▙<= LOAD LPRINT PAUSE SAVE 4 RETURN B@ CLEAR NEXT © LPRINT x>~gUSR |z RUN ▜ NEXT LPRINT LIST [J] COPY [T]nNOT [M]p CAT RANDOMIZE ERASE LPRINT IN PU0>> DRAW SAVE 8STR$ xp DRAW r OUT LOAD PI[Q] RETURN | POKE STR$ Ep GO TO 'dVAL$ [M]/ FORMAT p©z PAUSE 4ATTR ^ DRAW 3 LPRINT SIN ▜o[M]_[D]▛ NEXT LPRINT [F]| RETURN lVAL 1!yLN RANDOMIZE 5 PLOT 3BIN LET SAVE SAVE |||><SGN DRAW READ DRAW RANDOMIZE RANDOMIZE OR BORDER ▙ LOAD LN ?@ PLOT STR$ LOAD | INVERSE LET 6 PAUSE |'p?n RANDOMIZE BRIGHT STEP s[H] USR [P]PEEK DEF FN TO uSGN ZP~<tSTR$ OUT SAVE `/ LIST xIN ©USR ?>=?/|x SAVE LLIST READ CODE v POKE CAT [O]x<CODE CAT ©~ PRINT [G] SAVE GO SUB OR LIST _P@oFN 1 NEXT CLS INK USR RETURN USR CLS ▜?8|▗< CLS [L] READ [P]~> RETURN LET CLS NOT LOAD NOT n AND ;< LOAD SAVE [M] READ r>= RUN | STEP NEXT PAUSE >o{LN RESTORE CONTINUE w[I] CLEAR [M][P] CAT CAT ▜ LOAD READ LOAD >C RETURN READ LOAD ▜IN OVER SAVE SIN <~~ GO TO <8 AND pzNOT TO [J][L][A]C NEW fUSR [J][N]w PLOT AND [I]NOT READ [Q]~VAL CLS BRIGHT SIN <A6 LPRINT PEEK DRAW >=[E] CLEAR ▚E LLIST FORMAT CIRCLE /L[G] CONTINUE ▜3LN POKE STR$ |D LPRINT ▝-Q[P]'@ CLEAR 6r p# CONTINUE ;PSTR$ e LPRINT CHR$ y/USR CHR$ |) FORMAT ~= LPRINT ▜F LIST [A]7 LIST CLOSE #} RANDOMIZE DATA [A]g▙ NEXT !USR ▝@|[M]" BRIGHT xF THEN SAVE |▘SGN [B] COPY [F]~`tSCREEN$ REM RUN ODD INPUT ,R ▗G LPRINT LOAD Tz_POINT RND CLEAR R GO SUB ;[I],F INPUT CHR$ CODE [S]AT OUT <>$.TAN Z[P]LN _ CONTINUE w,=[U][M]POINT OVER EXP VAL$ W CLOSE #CODE PINT ^<=VAL$ ▘INT RETURN {▚~g[C] POKE PAPER SIN .BTAB +4 STEP STR$ a©Q LET w,VAL RANDOMIZE 'IN READ y NEW COS S COPY m COPY LOAD `[O]^O`7`IN : CLEAR OVER INT NOT g CONTINUE LOAD `.CHR$ _[R][H]Cn AND OUT POINT |[P]^▗PEEK +WAT { MOVE ?OIN RANDOMIZE BEEP SQR ERASE CODE _v OVER LET MERGE w AND RETURN gg$DwUSR OUT LET PAPER FN OUT ACS LIST LOAD lVAL$ PI[K] BORDER RETURN INKEY$SIN [D] INK sINKEY$~<=[I]q TO ▝©<= ERASE E9C<=b} LIST + REM w6q~5 LET CLOSE #> CAT [R] OUT [J]l MERGE CODE X OUT CODE UPEEK JI MERGE RUN z CLS [N]A=E PRINT ▞IN NOT [J][K][N] REM [T]: POKE ;[K]+ CLS i3f~ REM g[F][K]U9LEN CONTINUE DRAW ;[H]/ PAPER N[T]qIN SAVE PLOT 3[E]/[K][G]w OR /ACS STOP }#w OR MERGE RANDOMIZE w,S READ CODE LN OVER [P]J OUT . MERGE ATTR W[S][B]AT VERIFY SIN ▗USR DATA RUN [A]▖ POKE &*w LLIST [A] POKE dr[Q] PLOT POINT B CLEAR CLEAR $POINT ▚, CLEAR W[N] RETURN VAL AT LPRINT ▝wOA LPRINT + COPY VAL PEEK [Q][Q]FN /FN [ OUT [P]CODE ERASE P?p?▚ GO TO b RANDOMIZE S COPY ▜ FOR / RETURN ▛POINT CONTINUE [S]PEEK 1 RANDOMIZE [[N]>= LOAD RETURN [B]oTAB + LINE [A]C[O] INPUT ry>= LOAD mnj>=U SAVE ABS z! TO BIN ?P[@IN P[T] COPY :}! SAVE DRAW >= FORMAT [J] GO SUB COS INT LEN ▝ BORDER LLIST j[Q][A]D[E]INKEY$ COPY SCREEN$ i CONTINUE © RESTORE * CLS [T]+EXP POKE 7 CIRCLE _* RUN BEEP VAL$ PLOT G©?PEEK CAT CODE FOR 8 RANDOMIZE ! COPY [F]SCREEN$ ][H] BEEP TAB /SIN SAVE READ _NOT BEEP ATN LOAD CLEAR ; MERGE LOAD LOAD Gl COPY TAB (/yTAN IN pC<> CLOSE #. DRAW ATN [I]LN _VAL %[Q] MOVE [G]+ POKE Wn GO TO ,[Q] RETURN RUN PAPER <>L▙▚USR x DIM >▜<[S]):[S]LN ▜ DRAW ▜' COPY #ATN OVER CODE $G MOVE ERASE i LPRINT DRAW BEEP F[M]SQR LIST ▝A▜ LIST CLEAR ▝ REM B CLEAR USR D[R]ACS ▙ CLOSE #)USR INT P}4USR >LCHR$ LPRINT , IF COS © LPRINT INPUT READ eP LIST , BRIGHT ▜* DRAW DEF FN LIST srVAL $ BORDER CLS urIN [Q] OVER :@C>▜[T]( FORMAT FORMAT POKE RETURN LPRINT vvw2C#USR LOAD LIST PEEK STOP NEW } DATA V MOVE FORMAT +NOT 0[Q]PIZ@+ SAVE DEF FN GO CLEAR A>=#NOT ▛W IF 1SGN @[C]H ERASE @[=PEEK ERASE PAUSE >=[S] CONTINUE ;[B]* IF POINT n[C] COPY N= LET INT Pp AND POKE vSTR$ DATA CLS ;7▘[B] LPRINT LOAD CLOSE #oFe LPRINT INKEY$XVAL$ f[K]; NEW COPY 0▗~uPEEK C$INT ▚IN READ [C] OUT eSTR$ ^STR$ INT /E LLIST 0d%©▜b AND VAL LINE [I]Y; COPY OVER CODE CLS )IN CAT IN IN SQR MERGE NOT RTAB ATN IF SIN VAL$ <= CLS s[K][C] FLASH <= OUT [R]AT c©POINT ~lz' nuPI DEF FN $ATN t LINE 5TAB SAVE VAL$ IF .[P]POINT MIN S' LPRINT ( FORMAT V CLEAR FOR ▟ LPRINT CLEAR . LIST READ % RETURN OVER RANDOMIZE 7INT [H]▝V COPY LOAD LN RETURN TO w|NOT IF ; THEN ^g DATA {YVAL Wp[N]'x3?EXP MERGE STR$ LIST ▟ VERIFY USR i© CLEAR w LPRINT ~<=[H] RANDOMIZE w| DRAW LPRINT DRAW NEW CAT ABS zn RESTORE TAN BEEP DRAW ABS CLEAR INT ~ READ RND#CHR$ LEN ▜[G]O BEEP DATA i PAPER OUT @ RETURN 6 GO SUB 3 PAPER INT u THEN + STOP LOAD hSCREEN$ h[H]/aP SAVE Q PAPER OR [E] COPY ▙5 INK U LINE LIST SCREEN$ T CIRCLE CLEAR [N] FOR REM RETURN DEF FN OPEN # LOAD T FOR ▞XA`0P<= DRAW DEF FN 7 RETURN [L] LPRINT [K] CLEAR +▟EXP DRAW PEEK ,XTAB CAT Ur~0 CLOSE #8@ DRAW [N]©K▛C`9S<=R5 LPRINT READ CIRCLE w THEN o RETURN z LPRINT RKIN CODE FORMAT +POINT z*EjINKEY$IN c INVERSE STR$ GO TO ▖ IF +}*~ PRINT STEP [Q]LN OR FLASH NOT IN POKE [F] LPRINT IF ^▟ RETURN $ CLEAR -NOT LOAD UK CLEAR OPEN #▞ COPY ©[R]~NOT CLS ^ LIST 2 CIRCLE FOR /<=*CODE 2[U]/[M] RUN q DRAW ▝_ FOR ? CLEAR R LIST ERASE ATTR e[R] LINE CHR$ PRINT & LIST /I LIST _ CLEAR INT } LPRINT {nw PRINT [K]W2<CODE TO MERGE |<= BORDER EXP VAL$ P? CLEAR PAPER iDCP+ NEXT <> SAVE 0 INK OUT LEN WEXP [K]SIN FORMAT FORMAT CIRCLE } STEP [R] OPEN #POINT SQR f LPRINT LOAD CIRCLE SAVE U©M NEW RESTORE POINT }>%G2[A]*_ynATTR pP[I]} RETURN OVER PEEK ▝ COPY a[F]WTAB S RUN :j IF >=INT VAL INT / CLOSE #[T] CLEAR CODE BRIGHT BEEP SCEXP J[H]+ LIST DRAW T COPY COS ]VAL STOP OUT GO TO K4 PRINT OUT SCREEN$ BEEP X CIRCLE LPRINT ATN OUT ;▝ BEEP ▚$ MOVE :U LET ;PEEK LET / DRAW ▝ATTR CLS cm REM SCREEN$ 4ASN W BEEP K LPRINT 0 POKE }MCODE LPRINT z COPY H POKE OR PRINT JASN CLEAR ▘0 GO SUB SRND PAPER <=[F] VERIFY PRINT SCREEN$ CODE F RETURN RNDVAL$ POKE [L]}%,[J]HUSQR Z`}+ LIST PEEK | OVER OVER ] LIST PEEK FOR CLS SCREEN$ AT mN CLEAR RT SAVE ASN Z|ZCODE LINE )[P] LLIST | LPRINT zPEEK LPRINT ][Q]!STR$ >^e LPRINT ATTR INT READ o SAVE VAL$ ]RND© INVERSE ^ INPUT USR ATTR ]SIN S BRIGHT RND ERASE [N]VAL$ © REM RCODE r OR INT 8VATN SCREEN$ INKEY$COS O MERGE ~ RESTORE NEW © MERGE R LIST @ VERIFY ATTR USR CLS PRINT :USR COPY [R] DIM RUN u INVERSE ▘ RUN POINT [J]N/©[E] CONTINUE > OPEN #W©v}/yiz COPY ; MOVE O PRINT IF %,yATTR 3>=-lPEEK b205[F]VAL ▗ DRAW DEF FN [A]>`8LN CLEAR [L]} OVER GO TO :Q CLOSE #USR RETURN [B]▝ TO LPRINT !/[R]▙ CONTINUE rDK[P] CLEAR S▛lIr LPRINT ATN SAVE ▖▚ DRAW ▜<[D] DATA w OVER DIM IF = PAUSE ▖~[Q] AND * COPY DRAW NEXT AND G CLEAR @dPOINT [G]l PLOT [P]>=?r LIST @ RETURN [A] MOVE ©USR BRIGHT @ OUT LEN DIM FN PEEK CLEAR "C`@w4 MERGE SCREEN$ [G] REM /[B][P]▞ DRAW I DATA y5VAL [Q][A][N] PLOT ▙ OVER CAT [N]| THEN ~&{ BORDER ©SCREEN$ }G© CLEAR w: CAT PRINT w.5| LPRINT OUT [B]STR$ [Q]D AND &2▟ LOAD D~ AND rJ[F]-▜ OPEN #pNOT ERASE AT READ 4[U]H+QEK INPUT CLEAR [B] IF |LEN INPUT <=INT [C] COPY TAB PAUSE RUN [N],C<>%[L]s CLEAR ~gSTR$ ▖SGN SAVE Y/ VERIFY BORDER [G]INKEY$V_INKEY$[F][C]S[R]Y▗ihFSTR$ NEXT [Q] CLOSE #w2 FORMAT DATA / CLEAR ACS READ zW REM }'K AND P[O][H] GO TO TO RETURN A INVERSE DATA ; SAVE +~&RuT[H]VAL OUT POINT >3 INK d PRINT *T[U]*YCINKEY$0(9L[R]*PPEEK [D]C[R] OUT POINT EXP FLASH g BORDER OUT MOVE @ CONTINUE ~@ RANDOMIZE [F]/▙3[L]▝©p@> LPRINT LOAD [Q][S] CAT D RETURN ?)B! DRAW ▜COS EXP ▗ CLEAR Ne`▜©R OPEN #SCREEN$ VUSR %[K] FOR A▗ DIM RNDUSR ^POINT B5Z GO SUB #8[T], CLEAR THEN IN zU RETURN CONTINUE ▖? INK INT BORDER x|F LPRINT r@ LET COPY DRAW M BORDER ©> LINE CLS **aUSR PEEK RANDOMIZE READ ; PRINT ,H OR PEEK [T]5SCREEN$ [E]FN 8/:▝[C]T[B]R[Q]d [F][O] LLIST [A]ATTR TQ BEEP SIN <A▙h>=SIN LIST ATTR [A]c[D]CODE CLOSE #[F]PEEK STOP OUT ▖▙ CONTINUE h( LIST [C]@ CONTINUE ▚E CLS H DATA IN © PAUSE >POINT REM [M][P] SAVE CONTINUE ▙SCREEN$ IF AND ▞j[B]!▞ GO TO NOT fTINT [T]jV4_*%PI*[N][P]SCREEN$ V SAVE F RETURN RNDB[F]SCREEN$ [A]UAT REM BEEP SIN <A▙h>=[F]SCREEN$ / IF COS l MOVE R MOVE @SCREEN$ &KVt CIRCLE DATA H AND SQR @h[P]▝ LLIST ▞l`eD DRAW [Q][R]@R LET PI[T]@R)=USR REM hD&r[B][R]▞AT AeB© LIST -YT$NOT [B]! COPY RANDOMIZE RUN CHR$ <A▙h>= COPY ~EXP .+@USR [P]~? DIM NEXT FORMAT 7 SAVE INPUT USR S%yWu8[S](:q▘IN SGN A RETURN <8 INVERSE _ OVER 00p8 DRAW ▝ RETURN CLOSE #I LPRINT [H]~[A]@[O]X[F] O DIM ▖%M RANDOMIZE Vd LIST CIRCLE ▙Q SAVE P LPRINT NOT CINKEY$eFqT MOVE 12, ▙▘ COPY STR$ Q>d8P?©: OPEN ##p©FN x STEP ^FN qVAL COS CLS ▝~ LPRINT @ LIST FOR F[E]Hs; DEF FN 5 OVER <=▞ LPRINT INK CAT ( BEEP ?<H DRAW x CLEAR dATN ▗ CAT ATTR IF `_[Q][G][R]@ SAVE [R]MV2tw RUN ▗<>1ATN N*NOT [O][C][L]STR$ ;[E] LLIST Xu<> PAPER 0lD©p1 DRAW RUN 8 DIM 'eSGN NV[H]ASN INKEY$▚? MOVE [U] GO TO STR$ FORMAT POINT [O]CHR$ AND ERASE [C]▝[N][N]USR s▛%|'▛ THEN STR$ sp# CONTINUE D_qp[J]@w LPRINT LIST BORDER DEF FN REM CONTINUE @▝5 TO n▛STR$ ai PLOT g%$c[Q]^VAL TAN USR RETURN C OPEN # RESTORE FOR OUT U[E]ATTR READ pB.@ DRAW /▗2].,0STR$ [U]▗SCREEN$ INT INPUT [A]`B RUN [L] LIST T POKE POKE DIM CLS COS LINE [T][L]p@[A] xUSR o2n CLEAR |YpE▗[K]D BRIGHT (3m COPY RETURN POINT SIN AND Hw USR A" NEW [A] FORMAT MOVE COS [L][M] GO SUB X(}+TAB STR$ 'AT 0Hvpr>=!#@p2 @32AT LINE CHINKEY$P[R]2 LLIST ▗% DRAW ▛ STOP ?PEEK " CONTINUE USR BRIGHT D[P]a[F]▜▞ RANDOMIZE OVER S6 GO TO CLOSE #[K]COS [J]1[P] PRINT [P]Y[Q][R] LLIST [R]RND[S]i[T]-[U] LET [U]<> BORDER >=:F BORDER 7md CLOSE #VPI AND ▛?j<SCREEN$ SGN 2[P]jSGN SCREEN$ m VERIFY SAVE X; CLOSE # SAVE ACS X PLOT LINE [S]|X8 SAVE IF [U]▖USR 22`/[Q], *USR '%#`! CONTINUE LIST USR VAL P LPRINT USR USR VAL USR SAVE kdUSR ^@Y@TOKGUSR B?USR ;@852@/,*USR '%#@! COPY / MERGE wtc52/,*'% LIST I DRAW GO TO LPRINT CLOSE #>=SGN VAL FN [M][E]▗|tph TO CAT VAL USR PINT $▖p CLOSE #[A]dVAL$ (LN GO TO PAUSE ISQR OVER SCREEN$ AT CLS INT ▛ACS (ATTR PEEK INPUT SIN TAB CLS SCREEN$ VAL$ PAPER SIN /[H]/ FOR SIN - IF SIN SCREEN$ FOR ACS DRAW SIN AT THEN ACS DRAW SIN FN INT GO TO FOR PEEK REM ▘|Q[U]▛PEEK ][A] READ 8 ▝▘8xP FLASH TM NEW [A]U RANDOMIZE CODE p▘ MOVE [A]<> RETURN DEF FN X^ DRAW cX9?2 VERIFY THEN NEXT #F SAVE WCODE /▗INKEY$ OPEN #[I] THEN USR C?AT ▜▜ THEN BLe RESTORE *+7XQLN C7 LPRINT 8 GO SUB `EXP m4D'▖ GO TO a!&▟ LLIST `"j▖,[U]~",[O] SAVE U▗[B]Yt3qBIN B$3 AND PIy[A]iUSR LIST ,C[U]3STR$ h CLS LPRINT d▗[B] RESTORE USR [U]y]7g▗[M]8/ FOR 8`PIKS1,:> NEW BORDER FORMAT ▚=EXP BEEP !xC@e MERGE AND %[A]▙S[A] NEW RANDOMIZE :/#AT X[H]?g▝SQR ▝ASN 0 c MERGE 0X4> POKE RND[▚[K]W STOP ?[E],SQR cUSR V4L▖EXP g5/ NEW LPRINT DRAW LPRINT STR$ [F]= NEW SGN DIM NEW E@ATN ▝ CIRCLE SIN e IF [C] LPRINT W-|t▟L DATA t[R]7*[N] MOVE f OVER , OPEN #▘USR 2][C][N]j'%*gVAL O CIRCLE A$T;FN vP- GO TO [Q]J CIRCLE A]y MERGE USR VAL [K] BORDER STR$ 2;VAL v <>e[F] LINE VAL ' INK AABS VAL INT a PRINT NOT [Q] INK ▝5[E]USR vp©p FOR DRAW @SIN THEN SCREEN$ as0 THEN :R READ ▝[S]LINKEY$d%ATN ) INK D<>FN ▚POINT P!LBIN [G][C]Y[E]g/[P] AND c RESTORE # CIRCLE [H]aPEEK ▖ DIM (q[T] CONTINUE INK TO 0(/VAL @,Xx|51[P][G]p_COS VERIFY VAL [H]p NEXT DIM VAL [G] RANDOMIZE <▘NOT LIST STR$ IN COPY VERIFY +++B GO SUB yC GO SUB NEW COS l THEN ATTR G GO TO OVER "AT O& RUN AND [F]i INK . VERIFY XATN #LN 6GC[I]P1f▚9USR =>= OR . LLIST OVER ▜ LPRINT PINOT >= CAT E~▙ PAUSE /CHR$ ▜CHR$ INVERSE ▙ LIST n5>= THEN SL<=a2[U]dSTR$ OPEN #[G]EINKEY$&,b STEP h CONTINUE INKEY$LN E TO CIRCLE + VERIFY _[O]R PLOT TAB X▖#CHR$ "▖VSIN '>=EXP (d▗b LET E[I]2TCHR$ 2 POKE ▖ TO Id_ OR PLOT LIST d~F CONTINUE ERASE AND CHR$ CIRCLE .mBN[U] GO SUB TO <>~N▚[U]TAB [A]1eRNDH©LEN TAN ABS 2f-[G]>=Jf[Q]▝IN AT USR 6 FORMAT CLS 9 LPRINT ▘2.FN "[Q]`[Q]`@▘'[U] CONTINUE Q[ CIRCLE FORMAT TAB DATA P8X;[U]▘J:▝d. COS COPY | DRAW ▛d GO TO UATN ;f LOAD f READ LPRINT [B]/▙d?2 TO [B] IF ATTR d VERIFY "<>XW TO vk[R]B><` REM ▙C CONTINUE ▚K INPUT /.[A] @[P][Q] TO ,▟@[D]`[G][M][Q][S]USR FN LPRINT VAL$ ASN SQR @>GINKEY$NOT `dvoVAL z{l8VAL READ DATA [F]m9VAL BORDER USR AND ;l= GO SUB @1$E9j TO < POKE CLOSE # PRINT 4UD"[E]Bu[F] DATA 2 RESTORE B`[A]>M LPRINT USR BF LPRINT _<>?t[A]0@@<>[Q]PHUSR TAB ,"VAL SIN GO TO pINKEY$▛/ABS AVAL$ m INPUT REM OPEN #6Vm GO TO 0© MERGE ▛AT READ RUN DIM A OPEN #▙ STOP ▚ CAT 3[C]7 ERASE TAN p CIRCLE kSIN FORMAT TO h OPEN #e[O][G]▙38BIN FORMAT FOR {/a PAUSE [O]I RANDOMIZE POKE NEXT /[B]>? PAUSE dG LOAD LEN j1[I]CODE [L][I]z IF a( CLEAR mTAB STR$ [I]& REM AND RETURN PRINT bV PAUSE ©bTAB 3[N]m VERIFY !U CLOSE #9 RUN ;[U]: PAUSE ;n▜dg| POKE [N][F]"V CLOSE #=/ LINE DATA [G]5*SR`VAL$ ASN [O] NEW PAUSE MERGE U+^ STEP Pu[M]a8EEXP [F](KMY[E]G8] PAPER #s FOR GO SUB 7CODE 5: BORDER CLOSE # LET y MERGE : IF USR j DIM ▝ASN [S] GO TO @r<>-0VAL `[N] RESTORE [S]GG[E][G] RESTORE EXP a DATA Y'b[N]8!D,,[S] LLIST )d[B]▖▚,LEN /LN 02B BEEP CHR$ ap8S<>CHR$ g FORMAT =Q> FORMAT GO SUB SIN [Q]<>@][U]JLEN r DRAW SIN [T][P]XASN STOP DATA MOVE W/▗[P]X[B] LINE E[P] CLEAR 9> INK [B]cpVAL J LIST STEP 8VAL$ [B]▚/SGN AND ▚U IF [C]=d!h>=7 PAUSE @'>=[J][Q]+[P]<2l[O][G] CIRCLE < OR * COPY d CIRCLE #[Q] OVER [R]C TO 1M CLOSE #▟ INVERSE REM "DBIN OPEN #D INVERSE CIRCLE [Q][O]!ClIu4pL[G]RND3▖,[M]▞ CAT O MERGE ▘]TvUSR aaT5~[A]' COPY VAL$ ▙[ MERGE LEN PAUSE LOAD PICODE SGN NEXT THEN ▙c NEW G RETURN =ATTR ?CODE <;U0N AND CONTINUE 7T MOVE x OR CU▟W8TQNOT ATSTR$ CHR$ 3SIN NEXT SCREEN$ F GO TO [T]<=~[A]▙[F]▚[T]cD MERGE ▗c Z*<=0▜ AND aATTR 07w` DRAW vF`[T]/▚[G]!V▗[Q]}▝?>=[D]©vPEEK MOVE A FORMAT OUT O_y BORDER eB▟1 NEXT ▞ PAUSE USR # COPY [T]PEEK PAUSE GO TO 4VSTR$ 8U#▛ LLIST 4`LN gLN UVAL ATTR LN DEF FN 4CHR$ < NEXT :[T][G][I]V:l[J] LET Y DEF FN ▜ STEP VAL$ xUSR ▝STR$ NEW FATTR COPY b[N]BIN ▜[M](BIN LLIST s CONTINUE [O] GO TO CONTINUE =V% PLOT p9 VERIFY [B]SCREEN$ AND REM :^v POKE ATTR n[M]< IF ▟[B]a DIM X5 READ F*COS cU▟[D][N]<=*VAL j+>=*ARUSR TAN ERASE ▘c[T]5j FORMAT CHR$ LLIST r[H]{hgdufflohkdyjpy RETURN <=g LPRINT 9p<= OR "n CONTINUE X DATA USR ▟▛LN PRINT b[B]▖AT @ DATA "3EXP ▝>=[B]#▖,A DATA "SEXP ▘>=DPEEK 2[B]3▖AT A DATA "sEXP >=D RETURN 2[B]C▖,B DATA "[D]EXP ▗>=&D>!2[B]S▖AT B DATA "COS EXP >=.D~!2[B]c▖,C DATA " OPEN #EXP ▚>=6DPEEK !2C DATA " NEXT EXP ▜>=>DBIN /~x"SIN P[S]s NEW ; @[M] IF © PRINT [TAB ▛[B][A]<G=g[B]E▜<=E▜▜kATN <>y▘/:[B]=▛▘DEv LPRINT 246 OVER m▜▟▟$R>.>=$▘[T][Q]▛bVAL$ ( COPY [E],Q MOVE A LIST FLASH NEW , FLASH PsuE FORMAT STR$ N LLIST 7▝f NEXT ▘COS ▞▖ NEXT STEP ▘ LIST < OVER ▙[P]NOT 7#▖9TAN DATA 9[I] INK [I]yASN G>=BIN LZSIN [L]BIN BRIGHT Zr] MOVE ERASE E^9fSGN t73LN UVAL$ h▞NOT m8 LOAD RND▛L`A STOP NOT Z CONTINUE ]"[K]>= OUT D[K]Gr^}~▛,z[C]]Q[G]AT CONTINUE >=9<> a BEEP K7 THEN uG} [G]! PLOT VBIN [M] LPRINT &yUSR - MERGE [F]g.<=K INK P[A] STOP D PAUSE [B]▖/@d"▝>=DV PAUSE [B]▖ BRIGHT @d"?▘>=D[G] PAUSE [B])▖/Ad"_>=D VERIFY PAUSE [B]9▖ BRIGHT Ad"©▗>=!D! PAUSE [B]I▖/Bd"[P]>=)DV! PAUSE [B]Y▖ BRIGHT Bd"IN ▚>=1D[G]! PAUSE [B]i▖/Cd" OUT ▜>=9D VERIFY ! PAUSE Cd"[D]E©PSCREEN$ [S];(U MOVE [E]FN CONTINUE RETURN 1SIN dE_PSCREEN$ %+INT d<>[O]`5YSIN [S]#@A[G]AT CONTINUE D^Q[G]AT CONTINUE TAB (KV POKE ZuKV POKE [J]* CONTINUE INT SGN LPRINT SIN dEBIN 0<=c[I]ATN /Q[G]AT CONTINUE ▖a OVER pEYSIN [S]9▚yUSR e<>N LPRINT _PEEK 0O[A]# LINE @ TO DATA ▖▚STR$ w 0@AT RETURN [N] DATA ~ DRAW IF PRINT NEXT BORDER LOAD FORMAT t0 FORMAT NEW FLASH BEEP LOAD OUT OPEN # OU[H] PRINT [F]U[H] CLEAR ABS U[F]U COPY h CLEAR U[F]*ATTR *IN © CLS jATTR *ATTR /ATTR *ATTR *ATTR ?ATTR *ATTR * CLS >ATTR *ATTR *CODE ©SQR *ATTR U[F]U[F]U[F]U[F]U[F]U[H] MERGE [F] COPY [F]U[F]U[P] PRINT CLEAR U[F]U[F]U[F]U[F]U[F]© COPY © COPY COPY COPY © COPY COPY COPY © COPY COPY COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY COPY COPY © COPY COPY IN COPY COPY COPY COPY COPY IN COPY IN COPY COPY COPY IN COPY COPY COPY IN COPY IN COPY IN COPY IN COPY COPY COPY COPY COPY COPY COPY IN © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY ©[A] COPY COPY COPY COPY IN COPY IN COPY IN COPY IN COPY IN COPY IN COPY IN COPY IN COPY IN COPY IN COPY ▗ COPY COPY IN © COPY © COPY ( COPY COPY COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY © COPY COPY COPY © COPY ( COPY COPY COPY COPY IN NOT DEF FN a PRINT GO SUB W2[>? GO SUB G LET STEP = PRINT > GO SUB G LET <>!EXP a[ GO SUB VAL NEXT 1FN a> CLEAR © OR GO SUB y STEP `cSTR$ > GO SUB y!`cac▙6 GO SUB VAL STEP B RANDOMIZE NOT 2h CLEAR !:/ NEXT GO SUB V:[c2r[D]CODE RESTORE !!Z"k▗!]w#w>2i▗2r▗ CLEAR 6 COPY CLEAR 60 LLIST "`g GO SUB scx!/gPEEK w2 RESTORE /> COPY (/2[C]b GO SUB S^gy2]gx RETURN o( RETURN C( STEP !XXu COPY GO SUB VAL STEP WPOINT :]g RETURN TO gk NEXT ! INVERSE / STEP LPRINT [B] STEP PLOT [A]!h"{[D] GO SUB ^ CLS >PI /2[C]b STEP [T]h STEP Ui NEXT STEP CLS v>© FLASH RETURN 8> CLS FLASH RETURN ERASE c: FLASH [A]PI( DIM !SCREEN$ b RESTORE = LINE [T]h LLIST = LINE ATTR i= LINE j= LINE [T]j RESTORE = LINE AND j= LINE ▞i= LINE [K]i LLIST =G:bgPI(PEEK :dgo&)))/c INVERSE / GO SUB VAL ! INVERSE / STEP LPRINT [B]:]g= IF ATTR i= IF j= IF [T]j NEXT 1 GO SUB V STEP ▟ CLEAR !:/ NEXT :" STEP MERGE VAL$ >,2r[D]!p▘"{[D] STEP OUT [K] STEP 4 STEP PLOT [A]>2i▗>2r▗! Y"k▗ GO SUB ^ CLS STEP [L]<> STEP GO TO f NEXT GO SUB s OPEN #c!~c▟[d MERGE GO SUB VAL ! FOR f COPY RUN <> GO SUB LN ! PLOT POKE CONTINUE ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT R▘USR ▘USR USR USR USR USR USR USR STR$ STR$ CHR$ CHR$ OR ERASE P * 4=ELRX^djp▘zUSR USR USR USR USR USR USR USR STR$ STR$ CHR$ CHR$ OR ERASE P * 4=ELRX^djp▘z!q1Aaqq STEP `` DRAW P CLEAR @ RETURN p COPY COPY qUSR q!Aaqq STEP `` DRAW P CLEAR @ RETURN p COPY COPY q1rQa12q STEP P0- 8@ CLEAR P RETURN q RETURN qarQa12q STEP P0- 8@ CLEAR P RETURN q RETURN qSTR$ qSTR$ qB1Aq STEP ` 0/ : Dp RETURN p COPY " COPY CqqQ1Aq STEP ` 0/ : Dp RETURN p COPY " COPY qbqqNOT AND VERIFY `"@2` CLEAR p RETURN q RETURN q#RqqNOT AND VERIFY `"@2` CLEAR p RETURN q RETURN QqAb12aq CAT p#@40A LP RETURN p COPY 4 COPY qQb12aq CAT p#@40A LP RETURN p COPY @ COPY b$q1Aar MOVE p%P70E P` RETURN ! RETURN qR$q1Aar MOVE p%P70E P` RETURN ! RETURN qCHR$ q21Aqr OPEN #>=P;0I0U0a` COPY rqB1Aqr OPEN #>=P;0I0U0a` COPY rBAAAqs VERIFY <>P?@N@/0i0uq2AAAqs VERIFY <>P?@N@/0i0uNOT BIN BIN OR AND LINE OVER LINE `DPU@d@rBIN BIN AND LINE OVER LINE `DPU@d@r OR OR AND <= THEN STOP THEN pK`^Po AND OR THEN STOP THEN pK`^Po<=<=<> STEP NEW STEP <>pk>=<= NEW STEP <>pk<> TO FORMAT GO TO FORMAT TO LINE TO FORMAT TO SAVE MERGE ERASE MERGE INVERSE COPY FORMAT CONTINUE COPY COPY COPY COPY LINE <> PLEASE WAIT, PACKING !!! PLEASE WAIT, DEPACKING !!! READING CATALOG. DISK DRIVE ERROR !!! NO FILE !! PLEASE WAIT, SEARCHING !!! [Q]p CONTINUE x[Q] CONTINUE ▖[Q][A] CONTINUE [I][Q][Q] CONTINUE FN [A]VAL VAL LN `phx`VAL hLN xXX▖▖X[A][A]X[I][I]X[Q][Q]XFN FN XVAL VAL XLN STEP fh:]<(::/< <> GO SUB s=/ STEP [<>!IN g:] RETURN COPY ! INVERSE g CLEAR 6 COPY STEP LPRINT [B] CLS 2v CLEAR NOT c INVERSE RESTORE LLIST STEP LPRINT [B] STEP PLOT [A] STEP '[B] CLS <> GO SUB V STEP STEP LPRINT [B] STEP SQR h NEXT GO SUB ^ MERGE !/c]c6 COPY GO SUB VAL >2gi> 2{i STEP Ui> STEP MERGE VAL$ !USR STEP Vh INVERSE RESTORE INVERSE !USR /cCODE OR INVERSE ~= PAUSE iSTR$ (:/g INVERSE PEEK INVERSE RESTORE LLIST GO SUB VAL < INVERSE STR$ CIRCLE INVERSE LLIST 2bg VERIFY 0CODE 2cgCODE 2dg:/g2{i:bgO>▝2r[D]2[cy2gi:" STEP MERGE VAL$ NEXT STEP o&)))/c>GPI( OR MERGE STEP LPRINT [B] MOVE MERGE >M STEP CONTINUE [B] MOVE STR$ FOR STEP PLOT [A] CLS <>:dg= SAVE 2dg:cg<2cgSQR :cg= SAVE 2cg:dg<2dgSCREEN$ :]gPICHR$ SCREEN$ b GO SUB V:h STEP MERGE VAL$ :/gyCODE 2 RANDOMIZE />*`g GO SUB [ CONTINUE /:/g RETURN M( RETURN C(NOT c!g STEP LPRINT [B]! CIRCLE STEP NFN STEP ! CIRCLE STEP NFN > STEP MERGE VAL$ NOT c:]g=CHR$ SCREEN$ b GO SUB V:h STEP MERGE VAL$ :/g RETURN M(8* NEW / RESTORE *`g GO SUB [^g LLIST :/g RETURN CCHR$ c RESTORE y PRINT LET LLIST " NEW /NOT c GO SUB V!eg STEP LPRINT [B] INVERSE RESTORE !USR STEP NFN STEP C INVERSE LLIST MERGE RESTORE !USR STEP NFN STEP [A]h> STEP MERGE VAL$ LLIST MOVE !SCREEN$ [D]" COPY RETURN NOT c:]g RETURN CHR$ SCREEN$ b GO SUB V! CLS g STEP LPRINT [B]yNOT INKEY$k GO SUB V STEP / NEW SAVE > STEP LPRINT [J]!IN [J] INVERSE / GO SUB VAL STEP PLOT [A] STEP '[B] GO SUB ^<>LOAD FILE WITHOUT PLAYER Y/N ? LOAD COMPILE BLOCK SEARCHING COMPILE BLOCK COMPILE BLOCK NOT PRESENT INVERSE !+k! LOAD j STEP LPRINT [B]>© FLASH RETURN THEN _>=> OUT FLASH RETURN THEN g LET INVERSE !kCODE 2]g<> RESTORE MERGE !STR$ GO SUB [ POKE / GO SUB S[U]k STEP Vh MOVE LLIST <>> STEP MERGE VAL$ !USR USR u GO SUB VAL * FOR /" POKE /: REM /< PRINT USR !8l MERGE STEP RUN k MOVE PRINT !STR$ USR GO SUB VAL STEP ▙k LET = OUT !Ik STEP LPRINT [B]CODE FLASH RETURN / NEW ( SAVE NOT c GO SUB SlPEEK USR # RANDOMIZE LLIST LLIST LLIST GO SUB [[U]k PAUSE l!USR @ RESTORE OR STEP Vh!:USR RETURN C STR$ MOVE GO SUB VAL NOT NEXT i 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]▙~wpkd^YTOKGB?;852/,*'%#!>2/[ CLEAR © GO SUB y STEP r STEP n<>!STR$ O STEP FN n!STR$ O STEP FN n!STR$ O STEP FN n!USR W STEP VAL n STEP VERIFY n STEP o STEP IoNOT Fn CLEAR COPY GO SUB y GO SUB x<>} STEP 5n NEW SIN W<>> STEP 5n.g NEW TO =n-| NEW TO =n-| NEW TO =nz THEN ? DEF FN >= PRINT > STEP 5n/ NEW AND USR o&W"$nSTR$ STEP [L]n<>~SIN w STEP >=n STEP >=n PRINT <>~SIN w STEP >=n STEP >=n PRINT <>~r STEP >=n STEP >=n RUN <>NOT ASN nr%%r%%r%%r STEP >=n STEP >=n INPUT <>|%[T]USR } VERIFY o CIRCLE | AND g<>CODE STEP Yp PRINT STEP Cp LET "n8> STEP 5n THEN g( NEW <G STEP ©n<>> STEP 5n` THEN g([A] NEW <G STEP ▟n<>> STEP Yp PRINT STEP Cp LET "n8> STEP 5n THEN g( NEW <G STEP ©n<>> STEP 5n` THEN g([A] NEW <G STEP ▟n<>> STEP Yp PRINT STEP Cp LET "n8> STEP 5n THEN g( NEW <G STEP ©n<>> STEP 5n` THEN g([A] NEW <G STEP ▟n<> 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]▙~wpkd^YTOKGB?;852/,*'%#! RETURN <0x THEN ? AND STR$ o&O<>x THEN ? AND go&W<> STEP hp! BRIGHT p PRINT o[F]gF LET <> CLEAR COPY GO SUB y GO SUB h< GO SUB y GO SUB ` GO SUB s INK p|PI !} RETURN 01+p>NOT AND p RETURN ©01 RANDOMIZE o>$NOT AND p1 LLIST o>0NOT AND p RETURN 0><1<>oNOT AND p RETURN 01LEN o>HNOT AND p RETURN 01[J]o>TNOT AND p1o>_STR$ PI GO SUB B8NOT CIRCLE p= PAUSE AND pCODE 1<>! BRIGHT p>;w#= PAUSE Er>#w#= PAUSE Mr!rUSR @ s,r, STEP ▚t RUN !"s-sU GO SUB VAL INVERSE !"s BEEP @. INVERSE s INVERSE r INVERSE STEP ▚t- PAUSE <> STEP s>2 IF r> STEP 5n/ NEW AND CONTINUE gCODE STEP [F]t.2[S]rCODE STEP [F]tO STEP SAVE r> STEP 5n/ NEW AND CONTINUE g> STEP [F]t.2 OR r> STEP [F]tO STEP SAVE r>2 IF r> STEP 5n/ NEW AND CONTINUE g> STEP [F]t.2 DIM r> STEP [F]tO STEP SAVE r<> INK !r INK ~ INK ▜o~LEN _,VVAL THEN ERASE s INK }▝o CONTINUE <> GO SUB st1n@ MERGE MERGE ; MERGE MERGE ; MERGE MERGE 1<>z NEW USR { AND _ CIRCLE z VERIFY W<> CLEAR COPY GO SUB y GO SUB h< GO SUB y GO SUB P THEN Z(} THEN : THEN : THEN : THEN : THEN : THEN : THEN : THEN :/ NEW <> INPUT SCREEN$ SCREEN$ SCREEN$ SCREEN$ INPUT DATA AT [U][U][U] INPUT INPUT [S]VAL$ FN FN INPUT INPUT [S]VAL$ [S][S] INPUT REM SCREEN$ SCREEN$ VAL$ [S] STOP INPUT FN VAL$ [S][S] INPUT INPUT FN VAL$ SCREEN$ SCREEN$ INPUT INPUT [S][S][U]FN CONTINUE INPUT SCREEN$ VAL$ SCREEN$ SCREEN$ INPUT INPUT SCREEN$ VAL$ [S][S] INPUT N LINE JJJ INPUT D TO DDD INPUT NCHR$ NHH INPUT NCHR$ NBB INPUT J LINE JNB STOP N>=NBB INPUT N>=NJJ INPUT NCHR$ BDH CONTINUE N LINE NJJ INPUT N LINE NBB INPUT INPUT * REM INPUT DATA , DATA ▗▗ INPUT INPUT " INPUT ▖▖ INPUT INPUT " INPUT ▘▘ INPUT REM * REM ▙▘ STOP INPUT ( INPUT ▘▘ INPUT INPUT ( INPUT INPUT INPUT " STOP ▗▖ CONTINUE INPUT * INPUT INPUT INPUT * INPUT ▘▘ INPUT INPUT * REM ** INPUT DATA , DATA $$ INPUT INPUT " INPUT (( INPUT INPUT " INPUT "" INPUT REM * REM ." STOP INPUT ( INPUT "" INPUT INPUT ( INPUT ** INPUT INPUT " STOP $( CONTINUE INPUT * INPUT ** INPUT INPUT * INPUT "" INPUT VAL$ SCREEN$ SCREEN$ REM *.[U]AT [U] DATA $.VAL$ [S]VAL$ CONTINUE (.VAL$ [S]VAL$ STOP ".SCREEN$ SCREEN$ SCREEN$ INPUT ""VAL$ FN VAL$ STOP ".VAL$ FN VAL$ REM *.VAL$ [S][S] DATA ((VAL$ SCREEN$ VAL$ REM *.VAL$ SCREEN$ SCREEN$ INPUT ". INPUT REM ** INPUT DATA DATA $$ INPUT INPUT ▘ INPUT (( INPUT INPUT ▘ INPUT "" INPUT REM REM ." STOP INPUT ▖ INPUT "" INPUT INPUT ▖ INPUT ** INPUT INPUT ▘ STOP $( CONTINUE INPUT INPUT ** INPUT INPUT INPUT "" INPUT INPUT REM SCREEN$ SCREEN$ INPUT DATA DATA [U][U] INPUT INPUT ▘ INPUT FN FN INPUT INPUT ▘ INPUT [S][S] INPUT COPY COPY COPY 66H COPY $~$~$ COPY >(>> COPY bd& COPY (*< COPY COPY COPY 00 COPY > COPY > COPY COPY ~ COPY COPY 0` COPY | AND VERIFY AND | COPY 8X~ COPY RETURN RETURN USR RETURN COPY | AND AND | COPY <l RETURN COPY RETURN USR RETURN RETURN COPY |USR DRAW AND | COPY RETURN 0 COPY | AND | AND | COPY | AND ~| COPY COPY 8 COPY 0`0 COPY ~~ COPY COPY | AND COPY | LINE VERIFY USR | COPY | AND AND RETURN AND COPY DRAW AND DRAW AND DRAW COPY | AND USR AND | COPY SAVE TO DEF FN DEF FN DRAW COPY ~USR DRAW USR ~ COPY ~USR SAVE USR USR COPY ~USR DEF FN AND ~ COPY AND AND RETURN AND AND COPY << COPY AND | COPY DEF FN CIRCLE LIST CIRCLE DEF FN COPY USR USR USR USR | COPY AND INPUT VERIFY AND AND COPY AND NEW PLOT OVER DEF FN COPY | AND AND AND | COPY DRAW AND AND DRAW USR COPY | AND VERIFY TO z COPY DRAW AND DRAW TO AND COPY |USR | DRAW COPY ~ COPY AND AND AND AND | COPY AND AND AND l8 COPY AND AND VERIFY INPUT AND COPY AND l88l COPY ▗ TO x00 COPY RETURN 8` RETURN COPY COPY `0 COPY xx COPY 8 COPY COPY COPY "x ~ COPY | TO TO z COPY ``|f| COPY <``< COPY | TO | COPY x DRAW USR x COPY 0800 COPY | TO |x COPY USR SAVE TO TO COPY 0p0x COPY 8 COPY `hphh COPY 0000 COPY CONTINUE CLOSE # CLOSE # CLOSE # COPY SAVE TO TO TO COPY x TO TO x COPY SAVE TO SAVE USR COPY | TO |<``` COPY SAVE SAVE COPY 0x00 COPY TO TO TO x COPY TO TO x0 COPY BIN CLOSE # CLOSE #h COPY l88l COPY TO |x COPY |0| COPY p COPY COPY x6l RETURN B[J][R][J]B? COPY @ COPY ` COPY p COPY x COPY | COPY ~ COPY x COPY H COPY # COPY LET COPY LET COPY SAVE COPY SAVE COPY DRAW COPY COPY COPY [P] COPY COPY ▜0 COPY 8 COPY ▝< COPY > COPY ?©<©▝$ COPY [B] COPY SAVE COPY SAVE COPY DRAW © DRAW © RETURN © COPY COPY CAT COPY <= COPY NOT COPY STR$ COPY USR COPY USR ©USR ?USR ?USR COPY >= COPY DRAW © DRAW © RETURN ? RETURN ? COPY ? COPY COPY BORDER COPY READ COPY LLIST COPY LPRINT © LPRINT ? LPRINT USR LPRINT LPRINT © DATA © RETURN ? RETURN ? COPY @ COPY @ COPY [P] COPY COPY NEXT COPY LET COPY LIST COPY LIST © LIST ? LIST USR LIST LPRINT LIST LIST ? PAUSE ? COPY @ COPY @ COPY COPY COPY CAT COPY COPY RANDOMIZE COPY SAVE COPY SAVE © SAVE ? SAVE USR SAVE LPRINT SAVE LIST SAVE USR SAVE @ RANDOMIZE @ COPY COPY COPY <= COPY <= COPY BORDER COPY COPY DRAW COPY DRAW © DRAW ? DRAW USR DRAW LPRINT DRAW LIST DRAW SAVE DRAW LPRINT DRAW DRAW COPY <= COPY <= COPY READ COPY READ COPY NEXT COPY COPY RETURN © RETURN ? RETURN USR RETURN LPRINT RETURN LIST RETURN SAVE RETURN DRAW RETURN LIST RETURN [A] RETURN G COPY READ COPY READ COPY LET COPY LET COPY RANDOMIZE COPY COPY 1 COPY `CODE OPEN # RETURN 2▙/>2▟/2H/<2j/> STEP MERGE VAL$ INK RESTORE GO SUB si[D]> RETURN GO SUB G!SCREEN$ [D]" COPY RETURN > STEP MERGE VAL$ " COPY RETURN > STEP MERGE VAL$ " COPY RETURN > STEP MERGE VAL$ " COPY RETURN > STEP MERGE VAL$ RESTORE !USR USR u COPY # GO SUB VAL LLIST " COPY RETURN > STEP MERGE VAL$ " COPY RETURN > STEP MERGE VAL$ STEP BRIGHT [A] STEP PLOT [A]>2a=2a!aa RETURN GO SUB VAL !vv6@ GO SUB VAL !uuu COPY GO SUB VAL >2@v>2 v=2?v2!2 !!v"v6 GO SUB VAL STEP ▟ STEP '▗ STEP [L] STEP 4 STEP @r GO SUB ^!USR " VERIFY ▚" INPUT ▚"▜! LPRINT " PAPER ▚" PAUSE ▚"▜>2 RESTORE ▚2 CLEAR ▚2▜NOT 4[D] 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]▙~wpkd^YTOKGB?;852/,*'%#! COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR LOAD LLIST MERGE >=IN TAN POINT [Q][G]▙▚~wqjd^ZTPKGC?<852/-*(%#! COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW LIST LLIST VERIFY >=PEEK SIN POINT [P][G]▙xpkd_YTOKGC?<852/-*(&#!xHPFN HVAL P CIRCLE H LPRINT PHHPPPHXPHPPXPPXXHP▖PX▖PLN XHpPxPpXx LPRINT P COPY X[Q]XFN p@xHhPpPhXp[I]x[Q][A]x[I]HXP`PXX`H`PhP`XhHxPPxXFN @VAL x COPY p COPY x CIRCLE X COPY `VAL X FORMAT ` CIRCLE ` COPY hVAL ` FORMAT h CIRCLE h COPY pVAL h FORMAT p▖ COPY [A][A] COPY [I] COPY ▖[I] COPY [Q][Q] COPY FN VAL COPY LN HFN xVAL VAL xLN ▖@[A]FN COPY VAL $4 COPY COPY A0000: STEP RUN : o&u~ STEP RUN :!o&v~ STEP RUN :!:?v STEP RUN :@v RETURN 8 AND AND 0 STEP CONTINUE [B]: v STEP RUN !!v STEP LPRINT [B]<>:! CLEAR ©W NEW LINE ATTR GO SUB Y{2"!vzOo~2+!USR y NEW LINE TO G CLEAR ")"'CODE 2& STEP LINE ▛ STEP CONTINUE :+ STEP RUN <>:!<>000! POKE 6/4 VERIFY d ERASE DRAW AND d#6/4 VERIFY ERASE ▗ AND #6/4 VERIFY ERASE ▗! POKE >[A]o[F]g STEP LPRINT [B]<>> STEP MERGE VAL$ STEP =▗> STEP MERGE VAL$ STEP =▗> STEP MERGE VAL$ <>!USR ar#r#s#r#r#r#s#r#r#r#s#r#r#r#xLEN OUT <>>! YwT]>=>=O GO SUB VAL <>2r▗O~2i▗G NEW Wx NEW SIN "k▗wT]>= GO SUB VAL <>: FLASH [A] PRINT > COPY 2 FLASH [A] STEP q[D]: FLASH [A]G LET 2 FLASH [A]x LINE CONTINUE ▗ RETURN COPY >=2EXP ▗ RESTORE STEP h▗ LLIST FP#N#~ RETURN COPY [A] PRINT z NEW Wy NEW _ STEP SIN ▛ LET NOT {▗> COPY 2EXP ▗NOT h▗! LPRINT " PAPER ▚" PAUSE ▚"▜CODE 2 FOR ▚2▜2▜2 LLIST ▚2 RANDOMIZE ▚2▜! AND ▚" OVER ▚" PLOT ▚""TAB ▙>[L] STEP IN STEP *▖ STEP OPEN #[E] PRINT INVERSE *':& STEP ATN INVERSE *' LET <( STEP :▜:-PI TO k STEP POKE SCREEN$ >IN FLASH RETURN 8: ERASE [E] RETURN ( RETURN ( RETURN ▟ STEP :▜ STEP v STEP L[D]>© FLASH RETURN PAPER )> CLS FLASH RETURN PAPER ) NEXT CODE FLASH RETURN / NEW SAVE CLS : ERASE [E]!IN [E]o[F]g~!XASN o>w>,2r[D]vvvvvvvv<>{ NEW PLOT @g{ NEW PI▘o<>z NEW USR { AND _ CIRCLE z VERIFY W<>CODE 2 BRIGHT ▚2 POKE ▚2▜/2 INVERSE ▚2 PRINT ▚2▜!" READ ▚" CLS ▚"▜" DIM ▚"▜"▜" BORDER ▚" COPY ▚"▜ INVERSE n INVERSE f")▜ INVERSE # INVERSE # CLEAR ! VERIFY ▚ STEP PRINT ▙ INVERSE CLEAR ! INPUT ▚ STEP PRINT ▙ INVERSE CLEAR !▜ STEP PRINT ▙NOT ©▖ INVERSE ~<>==2}▖ INVERSE n INVERSE f" POKE ▜ INVERSE n INVERSE f" LIST ▞ INVERSE n INVERSE f"r▖ INVERSE ~2 RUN ▞ INVERSE ~2 LET ▜< INVERSE w INVERSE PEEK CHR$ FLASH ▜ INVERSE ~ INVERSE w INVERSE ~2 NEXT ▞< INVERSE w INVERSE PEEK USR INVERSE ~ INVERSE w<>> INVERSE !_ INVERSE RESTORE INVERSE INVERSE ~o NEW B INVERSE ~@gJ INVERSE LLIST {▜ AND INVERSE INVERSE o INVERSE INVERSE [F] INVERSE g INVERSE ^ INVERSE V<>>© FLASH RETURN CIRCLE STEP REM [D]z>=PI>= RETURN FORMAT _G> POKE ▘ CLEAR 2$>02% GO SUB V PRINT STEP PLOT [A] STEP '[B] GO SUB ^ STEP REM [D] IF <>| AND 2$▜<>! NEW o[F]g~ PLOT <>v STEP [N]▖CODE FLASH RETURN / NEW CHR$ ©▖:" STEP MERGE VAL$ !9▜ STEP CLEAR !:/<>>2/[ CLEAR © GO SUB yCODE 2}▖2%▜: FOR ▚2l▖ INVERSE ! VERIFY ▚ STEP [L]▜ STEP LIST ▜: INVERSE ▚ PLOT <(y THEN VAL 2%▜ NEW TO j▖} STEP q▖2&▜ STEP LOAD ▞ GO SUB [ READ ▚"▜! RANDOMIZE ▖ RESTORE INVERSE ! VERIFY ▚: CONTINUE ▚= LINE SCREEN$ ▞= LINE PEEK ▞ LLIST CODE 2}▖:▜2l▖ INVERSE ! INPUT ▚ STEP [L]▜ STEP LIST ▜: PRINT ▚ PLOT <(:%▜LEN VAL 2%▜ NEW TO j▖} STEP q▖2'▜ STEP LOAD ▞ GO SUB [ CLS ▚" ▜!H▞ RESTORE INVERSE ! INPUT ▚:▜= LINE SCREEN$ ▞= LINE PEEK ▞ LLIST CODE 2}▖:▜2l▖ INVERSE !▜ STEP [L]▜ STEP LIST ▜:▜ PLOT <(:%▜ THEN THEN LEN VAL 2%▜ NEW TO j▖} STEP q▖2(▜ STEP LOAD ▞ GO SUB [▜""▜![L]▞ RESTORE INVERSE !▜:▜= LINE SCREEN$ ▞= LINE PEEK ▞ LLIST STEP :"2/[ CLEAR © GO SUB y<> INVERSE n INVERSE fV INVERSE u INVERSE t INVERSE f INVERSE ~PI PAUSE CAT ▞ GO SUB DOPI GO SUB B8 INVERSE u INVERSE tNOT SCREEN$ ▞ INVERSE ~ INVERSE wCODE INVERSE w INVERSE w INVERSE w>▚! LIST ▜o[F]g~#fo THEN z( THEN INT <>PI GO SUB R<>!+▜CODE ACS > +++ VERIFY IN COPY C GO SUB ATTR = PAUSE %CODE 2+▜<> MERGE o&)))x##~#~#~#~#~ MOVE <> PRINT NEW LIST AND [A]' DEF FN @' STEP 4 LET NEW AND [A]' DEF FN @' STEP 4<> PRINT NEW LIST INVERSE THEN ~( AND RETURN 8 AND AND 0 STEP 4 LET NEW AND [A]' DEF FN @' STEP 4<>C-C#D-D#E-F-F#G-G#A-A#B- PRINT STEP ACS FOR LET o&)))w MERGE #~#~#~#~#~#~ MOVE INVERSE ~ STEP W INVERSE ~ STEP W INVERSE # INVERSE # STEP ▛ INVERSE STEP ▛ INVERSE STEP ▛<> INVERSE ~ NEW © RETURN a >- STEP 4>- STEP 4>- STEP 4NOT j▛ RETURN ` >R STEP 4 RESTORE VERIFY 0 DRAW AND ▜![P]o[F]g~ RESTORE STEP 4 LLIST #~ STEP 4 INVERSE ~ NEW © COPY VERIFY 0 CLS CLEAR y STEP 4 INVERSE ~PI> (>* STEP 4 INVERSE ~ STEP v INVERSE ~ STEP W<>z NEW USR { VERIFY _ CIRCLE z AND W<> NEXT GO SUB s DRAW > CLEAR © GO SUB yNOT USR NEXT GO SUB s DRAW > CLEAR © GO SUB yNOT STEP { NEW THEN ? THEN ? THEN ? PLOT Xg{ NEW ATN ▘o<>:+ VERIFY 2<>▛>:<>▛G<!+PEEK PAPER STOP ▛CODE 2<>▛*)xOPI( RESTORE INVERSE LLIST y STEP ATN =>= PRINT v STEP [E]▛ LET NOT CLOSE #▛<>PIG*) CLEAR <>> RETURN FLASH RETURN CIRCLE CLEAR THEN n>=:/ RETURN 9 CLEAR THEN VAL$ :&= PAUSE 7:+=2& STEP "' STEP [T]▛:&= PAUSE P:+= PLOT STEP RESTORE INVERSE LLIST STEP ATN STEP 8[N]<> RETURN USR CLEAR THEN VAL$ STEP 8[N]:! CLEAR ©W NEW LINE { GO SUB Y{ PRINT :+ PRINT G:&<LN PAPER ▟CODE 2& STEP "' STEP [E]▛ LET O:&<EXP PAPER INKEY$CODE SAVE STEP RESTORE INVERSE LLIST W LET CLEAR © GO SUB yz STEP ATN :" CLEAR © GO SUB y<>1 LLIST MOVE STR$ LET INK LLIST MOVE STR$ LET 1 PRINT OR MERGE RESTORE INK PRINT OR MERGE RESTORE 1 LLIST MOVE STR$ LET INK LLIST MOVE STR$ LET 1 PRINT OR MERGE RESTORE INK PRINT OR MERGE RESTORE NOT CLS 1:" STEP MERGE VAL$ CLS <> NEXT > STEP MERGE VAL$ !BIN USR 4 GO SUB VAL !USR TO GO SUB VAL ! SAVE GO SUB VAL !USR STEP GO SUB VAL INVERSE !USR @! @>@ INVERSE u INVERSE t INVERSE s MERGE RESTORE FOR INVERSE s INVERSE r INVERSE u( INVERSE t) MOVE STEP <= FOR MOVE STEP <=4 INVERSE =CHR$ >▟ INVERSE ! STEP ! LPRINT GO>@ INVERSE u INVERSE t INVERSE s MERGE RESTORE FOR INVERSE s INVERSE r INVERSE u( INVERSE t) MOVE STEP ▛ FOR MOVE STEP ▛4 INVERSE =CHR$ ~▟> STEP MERGE VAL$ CLS <> INVERSE *' INVERSE n INVERSE f")▜ INVERSE # INVERSE # CLEAR ! VERIFY ▚ CLEAR 6 STEP PRINT ▙ INVERSE CLEAR ! INPUT ▚ CLEAR 6 STEP PRINT ▙ INVERSE CLEAR !▜ CLEAR 6 STEP PRINT ▙ CLEAR !:/<>! AND ▚" OVER ▚" PLOT ▚"" PAPER ▚" PAUSE ▚"▜!" READ ▚" CLS ▚"▜" LLIST ▚" RANDOMIZE ▚"▜" BORDER ▚" COPY ▚"▜CODE 2 FOR ▚2▜2▜/2 INVERSE ▚2 PRINT ▚2▜:@v2#2i▙ STEP EXP ▟:" STEP MERGE VAL$ CLEAR !:/v COPY STEP [N]▖ STEP L[D]:" STEP MERGE VAL$ >=2i▙CHR$ AT ▙:#2i▙ STEP k> INVERSE *' INVERSE n INVERSE f")▜ INVERSE # INVERSE # CLEAR ! VERIFY ▚ STEP PRINT ▙ INVERSE CLEAR ! INPUT ▚ STEP PRINT ▙ INVERSE CLEAR !▜ STEP PRINT ▙NOT CHR$ ▙>© FLASH RETURN PAPER P▙> CLS FLASH RETURN PAPER P▙>IN FLASH RETURN ERASE P▙ STEP CIRCLE ▙ NEXT CODE FLASH RETURN / NEW SAVE CLS <>!9▜ STEP : GO SUB ▚2 LPRINT ▚:▜2 SAVE ▚:▜2▜ CLEAR !:/<> INVERSE ~ NEW © RETURN a LINE b CLEAR 6 CLEAR 6 CLEAR 6 CLEAR 6 CLEAR F CLEAR w RETURN ` CLEAR ~ x CLEAR w> COPY CLEAR wx2D[A] INVERSE ~ NEW LIST INVERSE THEN ~( AND PI LINE bG AND IN g. CLEAR u CLEAR tx=▜!ao[F]g~ CLEAR w#~ CLEAR w INVERSE ~ NEW LINE LPRINT RETURN LINE [Q]2+▜> CLEAR w CLEAR THEN ~ CLEAR w INVERSE ~ NEW 'NOT LPRINT CLEAR 6 CLEAR 6 LPRINT CLEAR 6 CLEAR 6 CLEAR 6@CODE CLEAR w CLEAR ~<(CODE CLEAR w CLEAR 6 INVERSE ~ NEW LIST ( MOVE ▜G▜▜▜&o)) LPRINT CLEAR u CLEAR t!axo~ CLEAR w#~ CLEAR w INVERSE ~ NEW (! VERIFY ▜▜▜▜o[F]g CLEAR u CLEAR t INVERSE ~PI>= RETURN LINE [A][A] RETURN PAPER [F][A] RETURN [Q]8 RETURN LPRINT 8 VERIFY LPRINT CLEAR w<> VERIFY CLEAR 6 THEN w( NEW ? GO SUB D CLEAR 6 COPY CLEAR w CLEAR 6<>G INVERSE ~ NEW © RETURN ` FORMAT x VERIFY [Q] CLEAR w CLEAR 6>O! LIST ▜o[F]g^#V INVERSE ~ NEW © CLEAR wG▜! LIST o[F]g~#fo CLEAR q CLEAR 6xEXP 8 FOR CLEAR 6 COPY CLEAR ~ GO SUB D CLEAR w CLEAR 6PI GO SUB R CLEAR u CLEAR t<> CLEAR 6<>2#2i▙<>{PI7PIATTR NEW SAVE ATTR gzATTR NEW <=ATTR oz NEW <>H GO SUB [ BEEP [A] STEP [M][A]" INK [A]<>$| NEW USR } AND o CIRCLE | VERIFY g<>>* INK [A]ATN [A] GO SUB [Q] GO SUB [Q]+- STEP BORDER [A]=CHR$ RETURN [A]<>> GO SUB [ INK [A]!ATN [A] GO SUB [Q] GO SUB [Q] STEP <==CHR$ [B]<> STEP BRIGHT [A] FOR !|@PI(=CHR$ 4[B]>INKEY$,ACS ,INKEY$,ACS , STEP <==CHR$ ;[B]<> STEP ©[B] STEP [C][B] STEP PI[B] STEP SGN [B]> IF {[B]>=2i[B]USR >2i[B]:U[B]< RETURN >=2U[B]<>> OUT FLASH RETURN CIRCLE : CIRCLE [A][A]0CODE 2 CIRCLE [A]<>> OUT FLASH RETURN CIRCLE : CIRCLE [A] RETURN SAVE 8> RUN 2 CIRCLE [A]<>> CLS FLASH RETURN CIRCLE : BEEP [A][A] RETURN H0>H2 BEEP [A]<>> CLEAR FLASH RETURN CIRCLE > LOAD FLASH RETURN / NEW USR > RUN FLASH RETURN THEN g>=: BEEP [A] RETURN SIN 8>LEN 2 BEEP [A]<>~ STEP CONTINUE [B]# RANDOMIZE <> MERGE RESTORE OR PRINT RETURN LET STR$ LLIST MOVE <> STEP ACS FOR LET &o)))x##~#~#~#~#~STR$ LLIST MOVE z< NEW WUSR <>ON OFF:CHR$ ▖ INPUT COPY 2CHR$ ▖! MERGE > STEP fCODE MOVE !+[C]NOT LPRINT [B] MERGE > STEP fCODE MOVE !([C]NOT LPRINT [B]:▞ INPUT COPY 2▞!X LINE N[C]NOT ?[C]:`▞ INPUT COPY 2`▞! X LINE N[C]NOT ?[C]:@v< RETURN >=2@v2# RETURN 8 AND AND 0NOT CONTINUE [B]:@v= RETURN >=2@v2# RETURN 8 AND AND 0NOT CONTINUE [B]:%< RETURN 9>=2%G:$ AND 2$x%= RETURN 0>=2%G:$ VERIFY 2$x, INPUT COPY 2,!([C] LINE LPRINT [B]!+[C]NOT LPRINT [B]:!< NEW 2! STEP CIRCLE ▙ STEP [L] STEP CONTINUE STEP EXP ▟<>:!= NEW 2! STEP CIRCLE ▙ STEP [L] STEP CONTINUE STEP EXP ▟<>v>© FLASH RETURN 8> RETURN FLASH RETURN 8 STEP LPRINT VAL$ STEP L[D] CONTINUE : FLASH [A]PI>==oCODE 2 FLASH [A]g) PLOT PI~#fo DIM :! STEP LIST ▗1 GO SUB V LLIST INK CLS <>>, GO SUB K BEEP [A]!p▘ RESTORE xPEEK PAPER [M][D]#yPEEK PAPER [M][D]#xPEEK ERASE [M][D]#yPEEK ERASE [M][D] LLIST z2 FLASH [A]<> LLIST }o[F]g=CHR$ }[D]<> RESTORE MERGE OR PRINT PRINT CODE 2 FLASH [A]>PICHR$ STOP [D] STEP STEP BRIGHT [A] STEP PLOT [A] STEP '[B] STEP [P]▗>=2 STEP [D]CHR$ STOP [D]>2 STEP [D]>© FLASH RETURN CLOSE #q[D] LET LET STR$ MOVE LLIST CLS <>> RUN FLASH RETURN FORMAT FORMAT FORMAT FORMAT FORMAT > LOAD FLASH RETURN FORMAT FORMAT FORMAT FORMAT FORMAT FORMAT > CLEAR FLASH RETURN FORMAT >© FLASH RETURN THEN g>=> RETURN FLASH RETURN THEN _>=> CLEAR FLASH RETURN THEN W>=> CLS FLASH RETURN THEN W>=> CLEAR FLASH RETURN THEN _>= COPY <>> RETURN FLASH RETURN FORMAT > CLEAR FLASH RETURN FORMAT > RETURN FLASH RETURN THEN W>=> CLEAR FLASH RETURN THEN W>=> RETURN FLASH RETURN THEN _>=> RETURN FLASH RETURN THEN g>=> CLEAR FLASH RETURN THEN g>=>© FLASH RETURN THEN g>=>IN FLASH RETURN THEN g>=>© FLASH RETURN THEN _>=>IN FLASH RETURN THEN _>=>© FLASH RETURN THEN W>=>IN FLASH RETURN a FORMAT > CLS FLASH RETURN THEN _`>= COPY <>: ERASE [E] PRINT !IN [E]o[F]g~!XASN o>w CLEAR THEN n(5:/ RETURN CLEAR THEN VAL$ : ERASE [E]< RETURN CHR$ [F]CODE 2 ERASE [E] STEP 8[N]:/ RETURN CLEAR THEN VAL$ : ERASE [E]= PAUSE [F]>2 ERASE [E] STEP 8[N]: ERASE [E]!IN [E]o[F]g~!XASN o>8w COPY STR$ : ERASE [E]LN CHR$ }[G]> RETURN FLASH RETURN ERASE }[G]NOT PAUSE [F] CLEAR THEN n>= CLEAR THEN VAL$ *':/ RETURN R LINE LEN [F] RETURN r LINE LEN [F] RETURN T( RETURN tUSR : ERASE [E] RETURN ( RETURN ( RETURN USR ~ NEW W~ NEW LIST ++ THEN ~( AND < NEW >= VERIFY 0 AND SIN W~COS w##r STEP 8[N]<>: ERASE [E] RETURN ( RETURN ( RETURN USR ~ NEW W~ NEW LIST ++ THEN ~( AND = SAVE VERIFY 0 AND SIN W~ NEW ©COS w##r STEP 8[N]<> STEP L[F] STEP REM [D] COPY z< LINE P[G]*'#: ERASE [E]PI(} RETURN (o+ RETURN (t RETURN (f# RETURN (z RETURN (/# RETURN (a RETURN (S RETURN (h RETURN (J# RETURN (O RETURN (A RETURN (V RETURN (8# RETURN (= RETURN (/ STEP I[E]z< LINE }[G]*'## INVERSE ! VERIFY ▚: ERASE [E] RETURN (S INVERSE ! INPUT ▚ RETURN (J INVERSE !▜ RETURN ~ NEW LIST SIN wNOT P[G]zW~ NEW SIN wNOT P[G]zW~ NEW SIN w++ THEN PEEK ##NOT P[G]z RETURN LINE P[G] RETURN LINE P[G]rNOT P[G]z RETURN `0X:$▘W~ NEW SIN w NEW ©W:,PICHR$ }[G]##~ NEW RETURN LINE }[G]PI INVERSE ~PI LINE }[G]:,▜!VAL ▝ RETURN ( RETURN (!▘ RETURN ( RETURN o[F]g~ STEP cVAL$ *'w#6NOT }[G]~ NEW SIN wNOT }[G]:?v< RETURN COPY CODE 2?vNOT RUN :?v= RETURN COPY > RETURN 2?vNOT RUN !CODE ▙"TAB ▙> COPY 2 INVERSE ▚2 PRINT ▚2▜>2r[D] STEP [L] STEP IF ▟CODE FLASH RETURN / NEW SAVE vvvvvvvvvv>,2r[D]<>> COPY 2 INVERSE ▚2 PRINT ▚2▜: o&u~2!!CODE ▙"TAB ▙! INK [H]"x▙>2r[D] STEP [L] STEP IF ▟ NEXT CODE FLASH RETURN / NEW SAVE CLS vvvvvvvvvv>,2r[D]!k"x▙ NEXT STEP STEP PLOT [A] CLS <>:+ PRINT G:&<LN PAPER 7[I]: < RETURN COPY CODE ! vPEEK :?v2 &uo~2!o$~2+} STEP THEN [I] STEP STEP RUN :! STEP RUN :+ STEP RUN STEP PLOT [A] STEP '[B]CODE 2& STEP "' STEP [E]▛ LET O:&<EXP PAPER S[I]CODE RUN PAUSE LIST [I] STEP RESTORE INVERSE LLIST STEP ATN :" STEP MERGE VAL$ <>:" STEP MERGE VAL$ :+ PRINT G:&<LN PAPER RND[I]: < RETURN COPY CODE ! vPEEK :?v2 &uo~2!o$~2+} STEP THEN [I]CODE 2& STEP "' LET O:&<EXP PAPER PEEK [I]CODE RUN PAUSE LIST [I]:" STEP MERGE VAL$ <>W NEW LINE MERGE [I]{ STEP MERGE VAL$ 2"z!USR NEW LINE GO TO [I]G CLEAR ")<>O:" PRINT *) RESTORE y PRINT : <! vPEEK :?vo&u~ STEP THEN [I] LET STEP RESTORE INVERSE LLIST STEP ATN LLIST ") LET 2" STEP MERGE VAL$ <>: < RETURN COPY CODE 2 PRINT STEP RUN LET &uo~ STEP RUN <>: = RETURN COPY OVER > RETURN PAPER : o&u~< NEW w STEP RUN <>: o&u~= NEW REM : v< >2 v STEP RUN <>: v= INPUT > COPY REM :!&vo~< RETURN A >w STEP RUN STEP [L]<>:!&vo~= RETURN BORDER >@ READ GO SUB S DRAW [J]2 OUT [J]!IN [J]"[[K]USR [J]6 GO SUB VAL CODE 2N[K]: OUT [J]G!IN [J] STEP LPRINT [B] CLEAR THEN VAL$ vv> RETURN FLASH RETURN 8> RUN FLASH RETURN 8!j/>VAL$ w STEP 8[N]vvvvv STEP IN CLEAR THEN n( BEEP CLEAR THEN VAL$ :/ RETURN (F RETURN (C RETURN 8BIN RETURN 0USR GEXP 8ACS y2N[K]!IN [J]p#"[[K] STEP 8[N]: OUT [J]O:N[K]EXP (NOT CLS [J]>PI LINE CLS [J] GO SUB [ DRAW [J]: OUT [J]G!IN [J] STEP LPRINT [B]<>:N[K]= IF [K]2N[K]*[[K]+6 "[[K] STEP 8[N]NOT CLS [J] STEP )INKEY$ GO SUB V STEP STEP LPRINT [J] NEXT STEP PLOT [A] GO SUB ^ CLS !IN [J]!v GO SUB VAL <> NEXT STEP MERGE VAL$ !@ COPY DATA GO SUB VAL :" STEP MERGE VAL$ CLS <> NEXT > STEP MERGE VAL$ ! COPY DATA @ GO SUB VAL :" STEP MERGE VAL$ STEP 4 CLS <>!@@u COPY GO SUB VAL !XX6 COPY GO SUB VAL <> PRESS KEYS 1-F FOR SELECT ORNAMENT OR ENTER FOR MENU CODE FLASH RETURN / NEW SAVE <> GO SUB V STEP NOT [K] STEP CLS [K]![L]b STEP LPRINT [B]>IN FLASH RETURN ERASE VAL$ [L] STEP REM [D]( PAUSE ( LOAD z STEP [G]LN STEP w[L]NOT [L] STEP w[L]:"2/[ CLEAR © GO SUB y STEP OUT [K] STEP PLOT [A] NEXT GO SUB ^ CLS <>PRESS KEYS 1-F ,'R','T', 'SPACE' FOR SELECT SAMPLE OR ENTER FOR MENU SAMPLE:1 GO SUB V CLEAR !:/ STEP NOT [K] STEP CLS [K]!<=[L]b STEP LPRINT [B] STEP w[L] CLEAR THEN VAL$ !)[M] STEP LPRINT [B]v STEP [I][M]>IN FLASH RETURN ERASE VAL$ [L]>© FLASH RETURN :1[M]0 STEP REM [D]( INK ( VERIFY z PRINT STEP ▞[M] LET STEP RNDCODE STEP w[L]NOT ;[M]21[M] RETURN 8 AND AND 020[M]<> CLEAR THEN n>= CLEAR THEN VAL$ :1[M]G:/ RETURN R( RETURN r( RETURN T( RETURN tUSR x< RETURN >=21[M] STEP ▞[M] STEP 8[N]<>x=>=21[M] STEP ▞[M] STEP 8[N]<> SAVE SONG NEXT STEP h▗ INVERSE ! OPEN #[M]>M LOAD SONG NEXT STEP h▗CODE 2 INVERSE ![N]M>NOT b OR OPEN # RETURN RETURN INPUT PRINT STR$ <> SAVE SAMPLE CLEAR THEN VAL$ !)[M] STEP LPRINT [B]v STEP [I][M]>© FLASH RETURN :1[M]0 STEP REM [D]( LLIST ( OVER z PRINT STEP ▞[M] LET !IN ▗g RESTORE STEP CLS [K] LLIST STEP w[L]<> STEP REM [D]( IF ( RUN z PRINT B@! LPRINT CLEAR RESTORE STEP CLS [K] LLIST LET <> CLEAR !:/ GO SUB V STEP STEP NOT [K] STEP CLS [K]!<=[L]A STEP LPRINT [B] STEP w[L] STEP h[N] RESTORE >2/[ CLEAR w GO SUB y| VERIFY USR a▜_[D]Wo THEN PLOT =o THEN INPUT INVERSE !J[N]>sNOT b LOAD SAMPLE CLEAR !:/ GO SUB V STEP STEP NOT [K] STEP CLS [K]!<=[L]A STEP LPRINT [B] STEP w[L] STEP h[N] RESTORE INVERSE ![O]>s STEP b LLIST a>2/[ CLEAR © GO SUB y| VERIFY USR ▜_[D]W~ THEN wBIN INKEY$[O]~ THEN oBIN [S][O]~ NEW w,} NEW ? REM :"2/[ CLEAR © GO SUB y<>}<<>}<> SAVE ORNAMENT CLEAR !:/ GO SUB V STEP STEP NOT [K] STEP CLS [K]![L]A STEP LPRINT [B] STEP [S][N]W>2/[ CLEAR © GO SUB yzAT [O]@ GO SUB VAL !a▜o~2SCREEN$ [O]#~2ATTR [O] INVERSE ! GO TO [O]oSCREEN$ [O]BNOT b LOAD ORNAMENT CLEAR !:/ GO SUB V STEP STEP NOT [K] STEP CLS [K]![L]A STEP LPRINT [B] STEP [S][N] PRINT RESTORE INVERSE !`[P]!SCREEN$ [O]B>b> STEP MERGE VAL$ !AT [O] MOVE @ GO SUB VAL !a LET ▜o:SCREEN$ [O]w#:ATTR [O]w:"2/[ CLEAR © GO SUB y<>~ RETURN 0> COPY CIRCLE ~ RETURN :> COPY FORMAT #~ RETURN 0> COPY CIRCLE ~ RETURN :> COPY FORMAT +~ VERIFY 0▜G▜▜G#~ VERIFY 0<>FROM PATTERN (0-31):TO PATTERN (0-31) :FIRST POSIT (00-63):LAST POSIT (00-63) : TO POSIT (00-63) :FROM CHANNEL (A-C) : TO CHANNEL (A-C) : ARE YOU SURE Y/N ? STEP )INKEY$ GO SUB V> COPY 2s[K] STEP STEP CLS [K]CODE 2N[S]![Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN 0 READ 2 CONTINUE [R]![Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN 0 READ 2[S]!.[Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN @0 READ 2 SAVE [R]!B[Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN @0 READ G: SAVE [R]OxEXP 8 PAPER 2[S]!V[Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN @0 READ O: SAVE [R]G:[S][A]▝ RETURN @0 MERGE y2[S]!j[Q] STEP LPRINT [B]> STEP LPRINT [J]!IN [J]~ VERIFY A8 RESTORE RETURN 0 LLIST !PI(!=(!"[S]!~[Q] LPRINT [B] LPRINT [J]!IN [J]~ VERIFY A8 RESTORE RETURN 0 LLIST !PI(!=(!"[S] STEP INKEY$ NEXT !XXu COPY GO SUB VAL > STEP THEN [I]*)@ GO SUB VAL >!@") STEP RESTORE INVERSE LLIST > STEP THEN [I]> STEP RESTORE CLEAR LLIST : SAVE [R]G>[A]< INVERSE RESTORE CLEAR RESTORE INVERSE CLEAR INVERSE ~ CLEAR w INVERSE ~ CLEAR w INVERSE ~ CLEAR w INVERSE ~ CLEAR w INVERSE ~ NEW RETURN (PI />PI *CODE 2N[S] CLEAR LLIST INVERSE LLIST MERGE MOVE = EXP CLEAR !:/ STEP OUT [K] STEP PLOT [A]CODE 2s[K] GO SUB ^ CLS STEP [L]<> CLEAR LLIST INVERSE LLIST 2N[S] INVERSE ~ CLEAR w INVERSE ~ CLEAR w<> PATTERN (00-31) : CHANNEL (A-C) : FIRST POSITION (00-63) : LAST POSITION (00-63) :HOW MANY SEMITONES (00-36): UP OR DOWN (U,D) : STEP )INKEY$ GO SUB V> COPY 2s[K] STEP STEP CLS [K]![B][S] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN 0 READ 21[U]!AT [S] STEP LPRINT [B]> STEP LPRINT [J]!IN [J]~ VERIFY A8 RESTORE RETURN 0 LLIST !PI(!=(!";[U]!<=[S] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN @0 READ 26[U]! STOP [S] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN @0 READ PRINT :6[U]G LET [A]8 PAPER <2D[U]! CLEAR [S] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN %0 READ 2B[U]![T] STEP LPRINT [B]> STEP LPRINT [J]!IN [J]:B[U]G~ RETURN U( RETURN D INVERSE x GO SUB DGx2B[U] STEP INKEY$ NEXT > STEP THEN [I]> STEP ~ NEW © RETURN `0▝ RETURN `0 OR O~ NEW LEN wSTR$ DIM NOT g[S] PATTERN (00-31) :WITH PATTERN (00-31): CHANNEL (A-C) : WITH CHANNEL (A-C) : STEP )INKEY$ GO SUB V> COPY 2s[K] STEP STEP CLS [K]!_[U] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN 0 READ 2lRND!t[U] STEP LPRINT [B]> STEP LPRINT [J]!IN [J] STEP INVERSE [P] RETURN 0 READ 2▞RND!▞[U] STEP LPRINT [B]> STEP LPRINT [J]!IN [J]~ VERIFY A8 RESTORE RETURN 0 LLIST !PI(!=(!"PIRND![O][U] STEP LPRINT [B]> STEP LPRINT [J]!IN [J]~ VERIFY A8 RESTORE RETURN 0 LLIST !PI(!=(!"[U]RND STEP INKEY$> STEP THEN [I] NEXT !XX COPY u GO SUB VAL *)@ GO SUB VAL > STEP THEN [I] CLEAR !@ INVERSE !@:lRNDG:▞RNDLN ( CLEAR *)&@ INVERSE RESTORE CLEAR RESTORE INVERSE CLEAR INVERSE ~ CLEAR n INVERSE u CLEAR w INVERSE ~ CLEAR n INVERSE u CLEAR w INVERSE ~ CLEAR n INVERSE u CLEAR w INVERSE ~ CLEAR n INVERSE u CLEAR w CLEAR LLIST INVERSE LLIST MERGE MOVE % LN :lRND STEP THEN [I]!@ GO SUB [) GO SUB VAL NOT g[S]![C][Q] STEP LPRINT [B]>© FLASH RETURN THEN _ LINE %INKEY$> OUT FLASH RETURN THEN g DATA <> LLIST NOT g[S]CODE FLASH RETURN / NEW SAVE <>CLEAR SONG GO SUB VCODE 2 STEP STEP CLS [K]!2INKEY$ STEP LPRINT [B]![C][Q] STEP LPRINT [B]>© FLASH RETURN THEN _ LINE THEN INKEY$> OUT FLASH RETURN THEN g LOAD STEP '▗CODE 2 2!2?v<2 v!uuu COPY GO SUB VAL !vv6@ GO SUB VAL !!v"v6 GO SUB VAL CODE 2 LLIST ▚2 RANDOMIZE ▚2▜! AND ▚" OVER ▚" PLOT ▚"" PAPER ▚" PAUSE ▚"▜ STEP OUT [K] STEP PLOT [A] GO SUB ^ STEP 4 STEP [L]<>CLEAR PATTERN GO SUB V STEP STEP CLS [K]! PAPER INKEY$ STEP LPRINT [B]![C][Q] STEP LPRINT [B]>© FLASH RETURN THEN _ LINE THEN INKEY$> OUT FLASH RETURN THEN g LOAD :! STEP THEN [I]*)a@s#s#r#s#s#s#r#s#s#s#r#s#s#s# STOP NOT POINT INKEY$CLEAR POSITIONS GO SUB VCODE 2 STEP STEP CLS [K]!HPI STEP LPRINT [B]![C][Q] STEP LPRINT [B]>© FLASH RETURN THEN _ LINE THEN INKEY$> OUT FLASH RETURN THEN g LOAD !uuu COPY GO SUB VAL NOT THEN INKEY$!([C]:- INPUT COPY 2-(!+[C]NOT LPRINT [B]1:13:41:21:43:15:22:13:2:3< NEW 23!TAN PIG▜o[F]g RESTORE NEXT STEP STEP LPRINT [B] STEP PLOT [A] STEP '[B] CLS <>.[C]][C]q[C][C][Q][C]'[J]J[J]SQR [C] MERGE [C] LOAD [C][D][D] TO PI[M]PI LIST ▗%[H]9[H]N[H]▘[H]V[J]j[J]v[J][J][E][J]CODE [J][Q][K][L]2[M] LET [M] [N]PEEK [N]2[O][P]~[P]INKEY$[Q]3[T]COS [U]<INKEY$ BORDER INKEY$nFN NEW FN NOT FN RWPI NEXT :/[ PRINT > STEP MERGE VAL$ ~w#xLEN NEXT LET STEP MERGE VAL$ CLS <> GO SUB V NEXT STEP h▗ STEP STEP CLS [K]!USR STEP NFN STEP 0 NEXT GO SUB C NEW /"RPOINT GO SUB SOPOINT !USR STEP NFN > STEP MERGE VAL$ NOT @POINT PROTRACKER DECOMPILER GO SUB V NEXT STEP h▗ STEP STEP CLS [K]CODE 2 INVERSE !INKEY$FN !USR NOT b GO SUB V STEP STEP CLS [K]!tPOINT LPRINT STEP LPRINT [B]!TSCREEN$ [Q] STEP LPRINT [B]CODE FLASH RETURN / NEW ( SAVE CODE FLASH RETURN / NEW SAVE STEP OUT [K] STEP PLOT [A] GO SUB ^<> SAVE COMPILE BLOCK CLS STEP CLS [K] INVERSE ! POINT C!NOT b:/[ PRINT > STEP MERGE VAL$ !XXu COPY GO SUB VAL STEP LIST LET STEP MERGE VAL$ <> PROTRACKER VERSION 2.22 COPYRIGHT 1995 BY GOLDEN DISK CORPORATION NEW PLAYER ADAPTED BY SERGEY KOLESNIKOV 12.02.1996 JURASSIC PARK HACKERS GROUP IF YOU WANT CONTACT WITH US THEN CALL:MINSK (0172) 61-40-23 SERGEY (VG) P.S. TIME FOR CALL: 18.30-22.00 > CLEAR FLASH RETURN CIRCLE > RUN FLASH RETURN CIRCLE : ERASE [E] RETURN LINE %ATTR RETURN LINE %ATTR RETURN INVERSE *' INVERSE GO SUB STTAB STEP )AT STEP rATTR INVERSE *':&NOT ATN NO COMM.HLD COM.SPEED 03GLIS.+00PORT. 00NOISE+00 CLEAR !:/ INVERSE ~PICHR$ ▘ATTR NOT <=ATTR RETURN LINE <=ATTR RETURN 00 CLS AND AND 02XATTR y2WATTR & RETURN [Q]0 VERIFY THEN w( NEW ? GO SUB D STEP INVERSE TAB RETURN LPRINT 0 VERIFY [Q] STEP VAL$ VERIFY LPRINT STEP HVAL$ x2qATTR STEP 7TAB CLEAR THEN VAL$ CLEAR THEN VAL$ STEP L[D]v COPY CLEAR THEN n( LET :/ RETURN STEP mTAB INVERSE RESTORE INVERSE *' STEP :▜ INVERSE LLIST :" STEP MERGE VAL$ NOT ERASE ATTR RETURN LINE &AT RETURN LINE TAB RETURN LINE (TAB O:qATTR RETURN LINE SCREEN$ AT RETURN (c RETURN (7 RETURN (NOT ERASE ATTR STEP mTAB CODE FLASH RETURN / NEW SAVE <>y RETURN ( RETURN (NOT ERASE ATTR STEP 6VAL$ < NEW STEP HVAL$ NOT THEN ATTR STEP 6VAL$ = NEW STEP HVAL$ NOT THEN ATTR y RETURN ( RETURN (NOT ERASE ATTR STEP VAL$ < RETURN @ LINE THEN ATTR STEP VAL$ NOT THEN ATTR STEP VAL$ = IF THEN ATTR STEP VAL$ NOT THEN ATTR y RETURN LINE AT RETURN LINE [L]AT NOT ERASE ATTR STEP STR$ TAB < RETURN @ LINE THEN ATTR STEP INVERSE TAB NOT THEN ATTR STEP STR$ TAB = RETURN USR LINE THEN ATTR STEP INVERSE TAB NOT THEN ATTR y RETURN ( RETURN (4NOT ERASE ATTR :WATTR RETURN 0(:XATTR < RETURN 6 LINE THEN ATTR 2XATTR NOT THEN ATTR :XATTR <2XATTR RETURN :CHR$ THEN ATTR >02XATTR :WATTR <2WATTR NOT THEN ATTR :WATTR RETURN 0 LINE TAB :XATTR =2XATTR RETURN /CHR$ THEN ATTR >92XATTR :WATTR =2WATTR NOT THEN ATTR :XATTR = RETURN 2 LINE THEN ATTR 2XATTR NOT THEN ATTR :qATTR < RETURN CODE 2qATTR NOT THEN ATTR :qATTR = PAUSE 1TAB >2qATTR NOT THEN ATTR :^ATTR RETURN +>-(>+2^ATTR :qATTR ▜▜▜!AATTR o[F]g STEP LPRINT [B] STEP 8[N]:^ATTR RETURN +>-(>+2^ATTR <>:qATTR INVERSE wPI>= RETURN INVERSE w<> RETURN :WATTR VERIFY 0▜G▜▜O:XATTR VERIFY 0▝ INVERSE w<> RETURN STEP STR$ TAB THEN ©( GO SUB D PLOT @ AND INVERSE w<> RETURN STEP VAL$ AND [Q] INVERSE w<> STEP 6VAL$ AND LPRINT INVERSE w<>:_ATTR VERIFY 0▜G▜▜O:`ATTR VERIFY 0▝O:^ATTR RETURN +y>= GO SUB D<>O THEN y>+(y GO SUB DO>-2^ATTR y NEW ?0 CLS AND ./, VERIFY 0 CLS y2_ATTR }2`ATTR <>:gATTR VERIFY 0▜G▜▜O:hATTR VERIFY 0▝<> NEW ?0 CLS AND ./, VERIFY 0 CLS y2gATTR }2hATTR <>:oATTR VERIFY 0▜G▜▜O:pATTR VERIFY 0▝<> NEW 0 CLS AND ./, VERIFY 0 CLS y2oATTR }2pATTR <>o&:3=(=(,=(/=(4=(9=(G=(G}<> MERGE T]) MOVE THEN < THEN THEN < THEN } DEF FN o|PI }<>> COPY <>} THEN ? DEF FN <>} THEN ? THEN ? DEF FN <> MERGE T]) MOVE LLIST MERGE T])) MOVE THEN < THEN } DEF FN o FORMAT ) STEP MERGE T]) MOVE THEN < THEN } DEF FN oABS OR 2/[ CLEAR © GO SUB ySTR$ <>> COPY 2 INVERSE ▚2 PRINT ▚2▜: o&u~2!!CODE ▙"TAB ▙! INK [H]"x▙ STEP [L] GO SUB V STEP STEP CLS [K]CODE 2[▙!n"`▙CODE 2{▙!k[I]"x▙><>2ATN > STEP MERGE VAL$ !XXu COPY GO SUB VAL STEP NEW :" STEP MERGE VAL$ STEP IF ▟CODE 2ATN !L[D]"`▙!k"x▙ CLEAR !:/ STEP OUT [K] STEP PLOT [A] GO SUB ^ STEP [L] CLS <> NEXT GO SUB s[R]CODE WZ RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE RANDOMIZE MERGE MERGE MERGE MERGE 1 CLS <>=2COS VAL !USR ▗g"LEN VAL >2/[ CLEAR © GO SUB y!@@ COPY u GO SUB VAL !a:COS VAL ▜o[F]g"TAN VAL ~=2 CLS ATN #~2IN ATN !XX COPY 6 GO SUB VAL STEP /SIN > 2[E]COS :[E]COS STEP |COS !I"▝COS ><>2COS CODE 2QSIN v CLEAR STEP [F]COS :[E]COS STEP LEN :[E]COS STEP /COS STEP ASIN >IN FLASH RETURN PAPER VAL CODE FLASH RETURN / NEW CHR$ )VAL :[E]COS STEP |COS !`Q"▝COS v CLEAR STEP /TAN :[E]COS STEP [T]LEN :[E]COS STEP /COS STEP ASIN >IN FLASH RETURN ERASE PRINT CODE >IN FLASH RETURN PAPER >VAL CODE 2[E]COS CODE FLASH RETURN / NEW CHR$ jVAL STEP IASN STEP 7LN CODE 2COS /2QSIN :[E]COS 8 STEP yASN v CLEAR STEP BRIGHT ASN :[E]COS STEP ▟TAN STEP ASIN >IN FLASH RETURN 0>IN FLASH RETURN PAPER ▞VAL <>:COS VAL NOT INKEY$CODE INPUT SCREEN$ SCREEN$ SCREEN$ SCREEN$ INPUT D TO DDD INPUT D INPUT INPUT DDD@ LPRINT LPRINT @@@z NEW USR { AND _ CIRCLE z VERIFY W<>z NEW USR { VERIFY _ CIRCLE z AND W<>|% NEW USR } VERIFY o CIRCLE | AND g<>G PAPER LEN H{VAL _}*LEN VAL o[F]g RESTORE INVERSE LLIST FOR ACS VAL y/G INVERSE ~ NEW > LINE 3LEN SGN VAL ~[R]w[Q]ACS w$=CHR$ 3LEN INPUT } NEW ! LPRINT GASN o INVERSE ~ NEW LINE |LEN ~[R]wz[Q]ACS w%~[R]wz[Q]ACS w%~[R]wz[Q]ACS w%~[R]wz[Q]ACS w STEP PAUSE VAL =CHR$ TLEN INVERSE ~ NEW _>[D]>=~[R]wz[Q]ACS w%~[R]w%~[R]w%~[R]w STEP PAUSE VAL =CHR$ ▚LEN <>G PAPER CODE LEN P{VAL _} AND @*LEN VAL o[F]g RESTORE INVERSE LLIST FOR ACS VAL y/G INVERSE ~ NEW > LINE BEEP LEN SGN VAL ~[R]w[Q]ACS w$=CHR$ BEEP LEN INPUT } NEW !@WASN o INVERSE ~ NEW LINE SIN ~[R]wz[Q]ACS w%~[R]wz[Q]ACS w STEP PAUSE VAL =CHR$ SAVE LEN INVERSE ~ NEW _>[D]>=~[R]wz[Q]ACS w%~[R]w STEP PAUSE VAL =CHR$ SIN <>CODE PRINT STEP LEN LET PRINT STEP [T]LEN LET < NEW ?CHR$ 0SIN <>> LOAD FLASH RETURN CIRCLE >@2 CLS SIN CODE 2COS >PI LINE kSIN :COS VAL ▜!ao[F]g~2 CLS SIN #~2COS CODE 2 PRINT SIN CLEAR COPY GO SUB y> OUT IN GO SUB y> COPY GO SUB y>IN GO SUB y*LEN VAL "COS SIN v STEP LEN SIN > LOAD FLASH RETURN ERASE SIN > CLEAR COPY GO SUB y>8IN GO SUB y> COPY GO SUB yCODE IN GO SUB y<> INVERSE !> COPY GO SUB yIN INVERSE ~ NEW GO SUB y INVERSE ~@ NEW W INVERSE ~ NEW SIN W COPY > GO SUB yIN GO SUB Q INVERSE ~@ NEW COPY GO SUB QIN GO SUB y STEP COS INVERSE #><2 PRINT SIN RETURN @CHR$ *LEN VAL o[F]g RESTORE INVERSE LLIST {2 PRINT SIN INVERSE "COS SIN <><> GO SUB [LEN VAL PI INVERSE RESTORE LLIST GO SUB R}▜bk AND o[F]g^#V! OUT zO NEW Wy NEW PI GO SUB R| NEW gCODE COPY GO SUB yIN GO SUB i COPY < GO SUB yIN GO SUB a<> THEN ?ASN oCHR$ VAL y>[R]w$=CHR$ pCOS <> PRINT RESTORE THEN ?!IASN oCODE w$w$w$w$w$w LLIST LET <> STEP FLASH COS :[E]COS *LEN VAL o[F]g STEP TAN ~ PRINT NEW O LET [Q]LEN w STEP TAN ~ PRINT NEW O LET NEW LEN w STEP !TAN ~ PRINT NEW O LET [A] NEW LEN w>© FLASH RETURN CIRCLE ~ INPUT w STEP LN <>> OUT FLASH RETURN PAPER NEXT COS :[E]COS STEP |COS < NEW ?2[E]COS STEP LN <> CIRCLE :[E]COS STEP |COS = NEW ?2[E]COS STEP LN <>>© FLASH RETURN COPY CIRCLE STEP LN <>> CLS FLASH RETURN CIRCLE STEP LN <>> CLEAR FLASH RETURN CIRCLE STEP LN <> STEP FLASH COS :[E]COS *LEN VAL AND @o[F]g STEP TAN ~ PRINT NEW O LET [Q]LEN w STEP TAN ~ PRINT NEW O LET NEW LEN w STEP !TAN ~ PRINT NEW O LET [A] NEW LEN w>© FLASH RETURN CIRCLE ~ INPUT w STEP LN <>{ NEW PLOT @g{ NEW PI▘o<>+0000 INVERSE !▖TAN PRINT O NEW _y RETURN PAPER [Q]TAN RETURN PAPER PITAN RETURN 0 PAPER VAL$ TAN STEP wTAN LET "ASN *LEN VAL ▜ AND o[F]g^#V FOR | NEW | NEW g CONTINUE >/<PI GO SUB B ERASE FLASH TAN INVERSE wd>/<PI GO SUB B ERASE FOR TAN INVERSE w>/<PI GO SUB B ERASE CLS TAN INVERSE w>/<PI GO SUB B ERASE ASN INVERSE w> INVERSE ~o&)))x MERGE ##~#~#~#~#~ MOVE INVERSE #=CHR$ ASN <>!@@ COPY u GO SUB VAL CODE PRINT STEP ▟TAN LET < NEW ?CHR$ VASN <>{ NEW THEN ? THEN ? THEN ? PLOT Xg{ NEW ATN ▘o<> PRINT O NEW _y RETURN PAPER ▖ASN RETURN PAPER ASN ASN STEP bASN xw,w,w,w,w,w,w RETURN LINE <>ASN !@R>=VAL :[E]COS THEN ? ERASE ABS ASN DEF FN VAL ASN ow$ IF LET <>!@R:[E]COS THEN ?ASN oCODE w$ DRAW LET <>> CLS FLASH RETURN PAPER IF ASN :[E]COS STEP yASN = NEW ?2[E]COS 8 STEP yASN STEP LN STEP [F]LN > CLEAR FLASH RETURN PAPER ACS :[E]COS STEP yASN < NEW ?2[E]COS 8 STEP yASN STEP LN STEP [F]LN > OUT FLASH RETURN PAPER =ACS :[E]COS STEP yASN AND NEW ?2[E]COS 8 STEP yASN STEP LN STEP [F]LN > OUT FLASH RETURN PAPER `ACS :[E]COS STEP yASN VERIFY NEW ?2[E]COS 8 STEP yASN STEP LN STEP [F]LN :[E]COS *LEN VAL ▜ AND o[F]g RESTORE INVERSE LLIST >© FLASH RETURN PAPER ▚ACS CODE INVERSE w INVERSE w STEP LN >© FLASH RETURN PAPER [L]ACS INVERSE ~ INPUT INVERSE w STEP LN > CLS FLASH RETURN PAPER SQR ACS INVERSE n INVERSE f| NEW g INVERSE u INVERSE t STEP LN > CLS FLASH RETURN PAPER INK ACS INVERSE n INVERSE f#| NEW g INVERSE u INVERSE t STEP LN > CLEAR FLASH RETURN PAPER ATN INVERSE n INVERSE f| NEW W| NEW gPI GO SUB B| NEW SIN g INVERSE u INVERSE t STEP LN > CLEAR FLASH RETURN PAPER ,ATN INVERSE n INVERSE f| NEW W| NEW gPI+| NEW SIN g INVERSE u INVERSE t STEP LN > CLS FLASH RETURN THEN _ INVERSE n INVERSE f@| NEW g INVERSE u INVERSE t STEP LN > CLEAR FLASH RETURN THEN _ " INVERSE n INVERSE f@| NEW W| NEW gPI GO SUB B| NEW SIN g INVERSE u INVERSE t STEP LN > RUN FLASH RETURN PAPER [J]ATN *TAN VAL :[E]COS PEEK ERASE [J]ATN #w2IN ATN @CODE DRAW > RUN FLASH RETURN PAPER PEEK ATN *TAN VAL #:[E]COS PEEK PAPER PEEK ATN +<w=2 CLS ATN @CODE DRAW >O NEW _y RETURN PAPER DEF FN ATN RETURN PAPER MERGE ATN ATN STEP wTAN "[A]ATN FOR .B&)))x##~# IF >O NEW _y RETURN PAPER LN RETURN PAPER LN RETURN 0 PAPER LN STEP wTAN "ASN ATN FOR .E&)))x##~# IF <> INVERSE *LEN VAL LPRINT CODE G!Px THEN ? PLOT @o INVERSE ~ NEW LINE ZLN G~SIN w STEP PAUSE VAL SAVE } NEW ! LPRINT PASN o INVERSE ~@ NEW LINE sLN G~SIN w STEP PAUSE VAL SAVE zW INVERSE #< NEW ?CHR$ >LN <> OR OPEN # RETURN RETURN INPUT PRINT STR$ <><>2YEXP o>2/[ CLEAR © GO SUB yE! LPRINT @ CLEAR "WEXP CODE 2ZEXP !@@u COPY GO SUB VAL !XX6 COPY GO SUB VAL :YEXP ▜!ao RESTORE ~#2UEXP ~2VEXP CODE PRINT STEP ^EXP LET < NEW ?CHR$ STOP LN :VEXP B STEP RABS :UEXP =E STEP tABS STEP ▞SGN v CLEAR STEP READ INT :ZEXP 8 STEP LN INT :ZEXP STEP ^EXP :VEXP STEP RABS :UEXP = STEP tABS STEP [G]ABS :VEXP B STEP RABS :UEXP =E STEP tABS STEP SGN STEP INT >IN FLASH RETURN PAPER EXP LLIST :UEXP w#:VEXP w<>+00 INVERSE ![EXP PRINT O NEW _y RETURN 8 RETURN 8 RETURN 08 STEP PRINT EXP LET "IN EXP *WEXP o[F]g^ FOR } NEW GO SUB D INVERSE q&>/<PI GO SUB B0 IF INVERSE w>/<PI GO SUB B0 IF INVERSE w> INVERSE ~ STEP MOVE EXP INVERSE #= NEXT <>o&)))x MERGE ##~#~#~#~#~ MOVE <>{ NEW PLOT @g{ NEW PI▘o<>!SGN :SGN ▜▜G▜▚2TINT > LOAD FLASH RETURN CIRCLE CODE 2rINT >2JINT CLEAR COPY > GO SUB y>IN GO SUB y> COPY GO SUB y> RETURN IN GO SUB y INVERSE *WEXP > COPY GO SUB yIN > GO SUB y! LIST INVERSE ~ AND %▜_^#VCODE COPY GO SUB yIN GO SUB Y< COPY GO SUB yIN GO SUB Q INVERSE #><G:UEXP LN CHR$ ▖INT :VEXP G INVERSE *WEXP INVERSE INVERSE ox2rINT v> LOAD FLASH RETURN ERASE AINT COPY > GO SUB yIN CODE GO SUB y<>{ NEW THEN ? THEN ? THEN ? PLOT Xg{ NEW ATN ▘o<> PRINT O NEW _y RETURN PAPER <=INT RETURN PAPER DEF FN INT RETURN 0 PAPER MERGE INT STEP [R]INT p RESTORE MOVE GO SUB VAL LET <>> CLS FLASH RETURN PAPER DRAW INT :ZEXP STEP LN INT = NEW ?2ZEXP STEP PAUSE SQR > CLEAR FLASH RETURN PAPER SQR :ZEXP STEP LN INT < NEW ?2ZEXP STEP PAUSE SQR > OUT FLASH RETURN PAPER /SQR :ZEXP STEP LN INT AND NEW ?2ZEXP STEP PAUSE SQR > OUT FLASH RETURN PAPER JSQR :ZEXP STEP LN INT VERIFY NEW ?2ZEXP STEP PAUSE SQR >© FLASH RETURN PAPER bSQR :ZEXP *WEXP o[F]gCODE w STEP PAUSE SQR >© FLASH RETURN PAPER ~SQR :ZEXP *WEXP o[F]g~ GO SUB Dw STEP PAUSE SQR > CLS FLASH RETURN PAPER [K]SQR :ZEXP *WEXP o[F]g STEP .ABS STEP PAUSE SQR > CLEAR FLASH RETURN PAPER ACS SQR :ZEXP *WEXP o[F]g STEP @ABS STEP PAUSE SQR > CLS FLASH RETURN PAPER OPEN #SQR :ZEXP *WEXP o[F]g STEP .ABS STEP PAUSE SQR > CLEAR FLASH RETURN PAPER LET SQR :ZEXP *WEXP o[F]g STEP @ABS w STEP PAUSE SQR <> OR OPEN # RETURN RETURN INPUT PRINT STR$ <>C-C#D-D#E-F-F#G-G#A-A#B-> CLEAR FLASH RETURN ERASE fSGN > LOAD FLASH RETURN THEN g(:SGN <2SGN RETURN CODE 2SGN :SGN < NEW 2SGN > LOAD FLASH RETURN THEN _(:SGN =2SGN PAUSE fSGN >2SGN :SGN = NEW 2SGN :SGN !SGN ▜o[F]g~)P RESTORE STEP MOVE EXP LLIST #~ STEP MOVE EXP :SGN AND 1 STEP MOVE EXP <>!VAL$ SGN > PRINT MERGE RESTORE STEP PRINT EXP FOR LLIST > PRINT ~ RESTORE STEP MOVE EXP LLIST # LET = POKE MOVE LET = DATA <>O,P-LEFT,RIGHT; Q,A-UP,DOWN 'M'-SGN CHANGE; 6,7-CHANGE NOTE W,S +- 12; E,D +- 1; SPACE-CLEAR1,2-SET BEGIN & END; ENTER-EXIT.~ THEN © NEW ?w<> GO SUB D NEW ? GO SUB Dw<>~[A] THEN © NEW ?w<> GO SUB D NEW ? GO SUB Dw<>O NEW _y RETURN 8 RETURN 8 RETURN 08 STEP PRINT EXP FOR x STEP MOVE EXP <>O NEW _y RETURN 8 RETURN 8 STEP PRINT EXP FOR x STEP MOVE EXP <>> RUN FLASH RETURN CLOSE #FN ABS > RUN FLASH RETURN ERASE ATN ABS <>:ZEXP G:UEXP =LN CIRCLE x2VEXP <>:VEXP G:ZEXP LN CIRCLE <2UEXP <>CODE 2[J] STEP [K] STEP [C]▘ STEP [L]▞ CLEAR !:/ CLS <>CODE 2[J]!/6 COPY GO SUB VAL STEP INKEY$ STEP [C]▘*[F] LINE PI GO SUB R FOR ! LINE CLEAR !:/ CLS <> NEXT > STEP DIM ▘!bUSR GO SUB VAL <> NEXT > STEP DIM ▘!USR b GO SUB VAL >NOT DIM ▘ LINE !/u GO SUB VAL STEP m> STEP DIM ▘!USR USR COPY ?u GO SUB VAL ![J]▛USR GO SUB VAL :@v2 LINE : v PRINT 2 LINE G:?vLN 8CODE 2! LINE !!v▗ LINE GO SUB VAL !u LET O GO SUB VAL > COPY FOR "[H] LINE PI GO SUB R"▘ LINE : vO>A!uPEEK (, IF = PAUSE ▝<2>▝G! CLEAR GO SUB [[H]##"[F]> COPY 2 !uCODE PRINT STEP C▝ LET < RETURN >=o POKE &vo~2-▗ CLEAR ©}W NEW ( GO SUB Y!SGN z NEW <G CLEAR b GO SUB VAL > STEP DIM ▘ INVERSE !b CLEAR *[F]!"<>▗ CLEAR "H▘ STEP ▗ STEP SQR ▝ INVERSE !"<>▗ CLEAR "H▘ STEP ▗ STEP SQR ▝ INVERSE !"<>▗ CLEAR "H▘ STEP ▗ STEP SQR ▝ CLEAR "[F]<> INVERSE RESTORE CLEAR RESTORE :[J]PI LINE p▘ INVERSE !▘ LINE INVERSE ^ INVERSE V! LINE RESTORE INVERSE LLIST CLEAR *H▘ INVERSE ^ INVERSE # INVERSE V GO SUB S:▘ INVERSE #! LINE CLEAR RESTORE MOVE PEEK CHR$ k▘ RETURN $#PEEK CHR$ k▘# GO TO #PEEK CHR$ k▘#PEEK CHR$ k▘#PEEK CHR$ k▘# OPEN # RETURN ( OUT RETURN ( FORMAT AND [A]8$ VERIFY [A]#CHR$ LET ▝ CLEAR LLIST INVERSE LLIST *[H]s#r#"[H] CLEAR !:[J]<2[J]<>( PAPER RETURN 0 VERIFY #PEEK CHR$ k▘#PEEK CHR$ k▘#NOT LET ▝=CHR$ FLASH ▝:[J]<2[J]*H▘ LINE PI GO SUB R FOR *[H]s#r#"[H] CLEAR LLIST INVERSE LLIST <>!$ LINE "[A]▘ CLEAR *[F]> PRINT STEP POKE ▘ LET < NEW PLOT !b LINE "[A]▘CODE PRINT STEP RND LET < NEW PLOT CLEAR "[F] STEP ©<> PRINT :/[ PRINT > STEP DIM ▘ MERGE RESTORE CLEAR RESTORE LLIST LINE PI GO SUB R FOR *[A]▘s#r#"[A]▘ LLIST MOVE LET STEP DIM ▘ LET <>2/[ OR CLEAR © GO SUB ySTR$ <>. AND IN g PRINT > STEP DIM ▘b MERGE INVERSE LLIST GO SUB VAL LET VERIFY IN &o~PI LINE [M]} STEP STR$ ▘!a=▜o[F]g> STEP DIM ▘~ CLEAR w PRINT G CLEAR ##~ CLEAR w CLEAR # LET CLEAR 6 CLEAR 6 INVERSE RESTORE INVERSE ~@G NEW CLEAR w THEN x( CLEAR THEN AND INVERSE ~G NEW CLEAR w THEN x( CLEAR THEN DEF FN INVERSE }▜ AND INVERSE o INVERSE ~ CLEAR w INVERSE ~G NEW CLEAR ACS CLEAR w THEN x( CLEAR THEN VERIFY CLEAR INVERSE LLIST INVERSE #=CHR$ 8<>*[A]▘##"[A]▘<> PRINT > STEP DIM ▘ LET GO AND o&~PI LINE LET y PRINT @!USR OUT CLEAR STEP STR$ ▘b@ GO SUB VAL CLEAR RESTORE MOVE LET !a▜o> STEP DIM ▘~O#~!b GO SUB VAL MERGE CLEAR LLIST <>*[A]▘##"[A]▘<> COPY COPY COPY COPY INVERSE RESTORE ! IF CLS 6 COPY GO SUB VAL CODE 224▚/2G▗>! IF INVERSE ~ NEW © RETURN a LINE ▟: AND PI LINE h▗:2G▗ VERIFY LPRINT CLEAR w CLEAR #CODE 2~ CLEAR w# CLEAR # RUN LLIST CLEAR RESTORE CLEAR ! RETURN INVERSE ~ NEW © RETURN `0& INVERSE ~ NEW LIST INVERSE THEN ~( AND PI( RESTORE &o6 COPY LLIST PEEK (w VERIFY CLEAR w CLEAR ## COPY INVERSE ~ NEW 1 RETURN PEEK (*w VERIFY [A] CLEAR w CLEAR # w VERIFY [A] CLEAR w CLEAR # RESTORE INVERSE RESTORE LLIST PI GO SUB R~ CLEAR w CLEAR ##~ CLEAR w CLEAR # LLIST # INVERSE ~ NEW LIST RESTORE & AND o6 COPY LLIST VERIFY PEEK (w VERIFY [Q] CLEAR w CLEAR ## INVERSE ~ NEW (PEEK (w VERIFY LIST CLEAR w CLEAR # INVERSE ~PIBIN DATA INVERSE ~ NEW © RETURN a >p CLEAR w CLEAR # RETURN ` >` VERIFY CLEAR w CLEAR # INVERSE ~ NEW © RETURN `024▚> COPY 2 AND CLEAR RESTORE LLIST RETURN PI GO SUB R}2U▗ CLEAR LLIST =CHR$ .▗:▗LN (x VERIFY LPRINT CLEAR w CLEAR #:U▗G! RETURN ~ CLEAR w# CLEAR # RUN CLEAR 6 CLEAR # INVERSE LLIST <> INVERSE ~ NEW (O: CLEAR EXP CHR$ <▗ INVERSE ~ NEW (O: CLS EXP CHR$ <▗ INVERSE ~ NEW (O: DRAW EXP CHR$ <▗ INVERSE ~PICHR$ <▗>PI CLEAR RESTORE CLEAR ! RETURN >p CLEAR w CLEAR #NOT 8:▗NOT X INVERSE ~PI>= RETURN LINE q▚ RETURN PAPER x▚ RETURN [Q]8 RETURN LPRINT PAPER ▚ VERIFY LPRINT CLEAR 6 CLEAR # CLEAR w CLEAR #<> VERIFY THEN w( NEW ? GO SUB D CLEAR 6 CLEAR #<> VERIFY [Q]2X▚ INVERSE ~ NEW © RETURN ` FORMAT CLEAR 6 CLEAR #>O!STR$ ▛▜o[F]g^#V INVERSE ~ NEW ©G▜!STR$ ▛o[F]g~#foxEXP >8 FOR GO SUB D CLEAR w CLEAR #PI GO SUB R CLEAR u CLEAR # CLEAR t CLEAR #<> CLEAR 6 CLEAR #<> CLEAR 6 CLEAR # CLEAR w CLEAR #<>&f*** NEXT " LLIST ▜!USR STEP OR ▜!:CHR$ INVERSE !▗▚ INVERSE ~ INVERSE #OPI>=^#V RESTORE FOR USR PI GO SUB R FOR ! FOR LLIST r+s LPRINT { NEW PLOT @g{ NEW ▘o<> OR ~ STEP ▖STR$ z NEW # INPUT <> MERGE RESTORE PRINT STEP RUN ▜ LET FOR ▜o&))x##L GO SUB [Q] IF LLIST MOVE <>00000 INVERSE !:▖' STEP b▖ CONTINUE STEP b▖d STEP b▖ STEP b▖ STEP b▖<> INVERSE 6/ INVERSE 4PI GO SUB B0 SAVE INVERSE #<>! INVERSE !:▖ INVERSE ~ VERIFY 0(G' CLEAR INVERSE ~ VERIFY 0(G CONTINUE CLEAR INVERSE ~ VERIFY 0(Gd CLEAR INVERSE ~ VERIFY 0(G CLEAR INVERSE ~ VERIFY 0>=G CLEAR <> GO SUB S DRAW ▖2 OUT ▖!IN ▖"9▞USR ▖6 GO SUB VAL CODE 2,▞: OUT ▖G!IN ▖ STEP ▖ CLEAR THEN VAL$ v CLEAR THEN n( RANDOMIZE CLEAR THEN VAL$ :/ RETURN (( RETURN (0 RETURN 08 NEW RETURN :0 STOP GEXP 8 CIRCLE y2,▞!IN ▖p#"9▞ STEP k▞NOT CLS ▖!IN ▖:▖ GO SUB VAL <>:,▞= IF ▞2,▞*9▞+6 "9▞ STEP k▞NOT CLS ▖ OR OPEN # RETURN RETURN INPUT PRINT STR$ <>!@@ COPY u GO SUB VAL #6 COPY GO SUB VAL <> CLEAR !:/ GO SUB V CLS STEP ▞*[F] LINE PI GO SUB R"}▞!"©▞"▝▞"▞!(▛ STEP ▖>© FLASH RETURN THEN _ LINE INPUT > OUT FLASH RETURN THEN g LOAD CODE FLASH RETURN / NEW SAVE *}▞"}▞ STEP ▞!t▛ STEP ▖!i▛ STEP ▖*}▞ STEP ?▖!:▖ STEP ▖> STEP LPRINT ▖!:▖~ RETURN 08<= RETURN :0NOT # POKE STEP r▖"©▞"▝▞"▞ STEP ▞!>▛ STEP ▖!H▛ STEP ▖*©▞ STEP ?▖!:▖ STEP ▖!S▛ STEP ▖*▝▞ STEP ?▖!:▖ STEP ▖!^▛ STEP ▖*▞ STEP ?▖!:▖ STEP ▖!i▛ STEP ▖*}▞ STEP ?▖!:▖ STEP ▖!▛ STEP ▖>© FLASH RETURN THEN _ LINE FOR ▞> OUT FLASH RETURN THEN g LOAD *©▞ STEP ACS ▜ GO SUB K©▞ GO SUB [}▞!USR <> STEP ▞!i▛ STEP ▖*}▞ STEP ?▖!:▖ STEP ▖vvvvvvvvCODE FLASH RETURN / NEW ( SAVE LINE ! LINE GO SUB [}▞<>INCLUDE PLAYER (Y/N) ?PARAMETERSINIT SONG :PLAY SONG :DELAY SET :LENGHT :ENTER START CODE:IS THIS CORRECT Y/N?! LINE NOT :CHR$ NOT [C] OR 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]▙~wpkd^YTOKGB?;852/,*'%#! LINE v VERIFY ATTR VERIFY BEEP LINE ▝ BEEP >= BEEP ! CIRCLE 2 CIRCLE [E] CIRCLE PLOT CIRCLE + INK CIRCLE INK PAPER i PAPER LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE LINE ( FLASH LINE + FLASH 0 FLASH 5 FLASH : FLASH LINE LINE ? FLASH C FLASH LINE LINE LINE J FLASH LINE LINE [P] SAVE < NEXT RESTORE "2NOT RESTORE ~2 MOVE AND 2[G] OR ##~#" CLOSE #CHR$ " BORDER CHR$ ^#V#"NOT O"NOT LLIST "-NOT !,CHR$ -CHR$ p GO SUB VAL CODE 2)CHR$ 2*CHR$ 2+CHR$ 2 AND 2▞ AND 2PEEK NOT 2=BIN 2IN BIN 2 AND 2▗ AND 2BIN 2▙BIN 2 OR /2[C]NOT 2BIN 2[D]BIN >/2m AND 2 AND !EXP STR$ "$ AND "▙ AND "BIN "▞BIN " OR STEP NOT GO SUB SCODE OR STEP OR STR$ GO SUB s IF CHR$ 1" LINE <>STR$ > LLIST FOR s#r# FOR = PRINT 1b LINE CHR$ > LLIST FOR s#r# FOR = PRINT 1 LLIST @*CHR$ "4 AND "[O] AND "[N]NOT "BIN "[O]BIN CLS <>!VAL$ LINE ~▜ GO SUB sBNOT ![U] LINE ~▜8 INPUT #"NOT O▜▝OCODE G! THEN LINE RANDOMIZE LINE LLIST FOR LLIST " DEF FN OR LLIST " CONTINUE OR 1[T]IN G<>{▜_~0 THEN #~ NEW THEN Z PRINT 22CHR$ LET ~ NEW #ng INVERSE b FOR !* FLASH INVERSE }▚▜O!USR ~#fo THEN :8 GO SUB R<><>><(w[E] CIRCLE !( FLASH y<PEEK # ~2[H]NOT #"xNOT FOR x_<PEEK # ~2[I]NOT # INVERSE .7 STEP FNOT ",CHR$ FOR IF COPY NOT (& RESTORE !{PI PAUSE OVER NOT GO SUB DOPI GO SUB B0 LLIST >2SGN NOT CODE 2 TO NOT go"NOT NOT " MERGE NOT LLIST "NOT NOT INVERSE |23CHR$ O!EXP STR$ ~ PLOT 24CHR$ ><(z CIRCLE INK !( FLASH y<PEEK # ~2BIN #"xNOT FOR x_<PEEK # ~2BIN # INVERSE . STEP FNOT ".CHR$ FOR IF ~BIN (& RESTORE !{PI PAUSE ]BIN GO SUB DOPI GO SUB B0 LLIST >2;BIN CODE 2KBIN go"BBIN "TBIN LLIST "BBIN INVERSE |!3CHR$ ACS wO!EXP STR$ ~ PLOT 25CHR$ ><({[E] CIRCLE !( FLASH y<PEEK # ~2[I]BIN #"xNOT FOR x_<PEEK # ~2[J]BIN # INVERSE .6 STEP FNOT "0CHR$ FOR IF OR (& RESTORE !{PI PAUSE OUT BIN GO SUB DOPI GO SUB B0>2ABS BIN CODE 2 STEP BIN go"BIN BIN LLIST " VERIFY BIN LLIST "BIN BIN INVERSE |!3CHR$ ACS wO!EXP STR$ ~ PLOT 26CHR$ !9CHR$ IN COPY VERIFY !6CHR$ B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR 23CHR$ 29CHR$ <>CODE G>=2[G] OR (@=(#=CHR$ [B]NOT !)CHR$ 5 PAUSE [B]NOT >wBIN THEN PI TO NOT STEP d<= GO SUB SCODE OR 2 PAUSE OR NOT [B]NOT !*CHR$ 5 PAUSE [B]NOT >w BEEP THEN STEP ▖>= GO SUB S DEF FN OR 2/ AND NOT [B]NOT !+CHR$ 5 PAUSE LET OR >w LIST THEN STEP <> GO SUB S CONTINUE OR CODE 02 PAUSE OR 2 TO NOT go"[H]NOT "NOT NOT 2[C]NOT >72SGN NOT ![E] CIRCLE "[K]NOT CODE 02 AND >2BIN >2PEEK NOT !EXP STR$ "BIN CODE 02[H]NOT 2* AND !( FLASH "[N]NOT CODE 0go"NOT NOT 2: AND >2 NEW NOT !" MERGE NOT >2 IF NOT !" THEN NOT CODE 0go2KBIN "BBIN "BIN 2/ AND 2BIN >2;BIN ! CIRCLE INK "BIN CODE 02} AND >2▙BIN >2=BIN !EXP STR$ "▞BIN CODE 02BIN 2[E] AND !( FLASH "BIN CODE 0go"BBIN 2[U] AND !"TBIN >2eBIN >2yBIN !"JBIN >29CHR$ !<"7CHR$ >2[G] OR CODE 2 AND AND NOT [B]NOT 2F AND :W AND =(y2 AND CODE 2 AND >72: AND <>2 AND :SGN NOT O2 AND ( PAPER CODE 2W AND 2 AND >7<>▜▜▜▜!<>USR O"$ AND >7NOT d<=>72: AND &o"V AND PIx PAUSE 1<=/2Q AND -&o"V AND PIx PAUSE E<=/2Q AND og"K AND 2 AND >72)CHR$ 2AT OR AND 8+ AND `8 AND 8g AND 81 AND @8 DATA AND 8▙<(v<([K]<(VAL < LINE CODE 2W AND >72: AND CAT (%▜!<>STR$ O~#fo" AND NOT d<=!CHR$ ▜O~#fo"4 AND >72* AND NOT d<=2 AND >/2 AND >7<>2 AND >PI<>CODE 2 AND >7NOT d<=( GO SUB RETURN ( LIST 2 AND AND >2 AND 2 THEN AND 2 TO AND >7NOT d<=2 MOVE AND NOT d<=2ACS AND :STR$ AND = LINE AND CODE 2m AND >72[U] AND <>2} AND :;BIN O2r AND ( INK CODE 2STR$ AND 2m AND >7<>▜▜▜▜!<>USR O"▙ AND >7NOT ▖>=>72[U] AND &o"USR AND PIx PAUSE U>=/2SQR AND -&o"USR AND PIx PAUSE i>=/2SQR AND og"VAL AND 2▞ AND >72*CHR$ 2 THEN OR AND 8+ AND `8 AND 8g AND 81 AND @8 DATA AND 8▙<(v<([K]<(VAL < LINE CODE 2STR$ AND >72[U] AND CAT (%▜!<>STR$ O~#fo"w AND NOT ▖>=!CHR$ ▜O~#fo"[O] AND >72[E] AND NOT ▖>=2} AND >/2m AND >7<>2} AND >PI<>CODE 2▗ AND >7NOT ▖>=( GO SUB RETURN ( LIST 2 AND AND >2▗ AND 2 THEN AND 2 TO AND >7NOT ▖>=2 MOVE AND NOT ▖>=:ABS BIN O2ABS BIN (CODE 2 STEP BIN NOT E<>2 NEW BIN : STEP BIN = LINE E<>y2ABS BIN CODE go"BIN BIN 2[D]BIN "[I]BIN <>&o" TO BIN PIx PAUSE _<>/2 CLS BIN *o&" TO BIN PIx PAUSE s<>/2 CLS BIN og" VERIFY BIN 2IN BIN 2+CHR$ 2 RESTORE OR AND 8& AND `8 AND 8J AND 8, AND @8 DATA AND 8g<(/<([S]<(COS < STEP CODE 2 STEP BIN CLOSE #($▜!<>STR$ O~#fo"[L]BIN NOT <>!CHR$ ▜O~#fo"[O]BIN CODE 2[I]BIN NOT <>> COPY 2[D]BIN <>>= RETURN (2 AND AND >2 OR 2 THEN AND 2 TO AND NOT <>CODE 2 OR NOT <>2 MOVE AND NOT <>▜▜▜▜!<>USR O" OR NOT <>NOT STEP 6!a>w=,w-a RETURN GO SUB VAL !v6@v GO SUB VAL STEP h STEP H> STEP ] CLEAR !:/ CLS <> NEXT > STEP ]!bUSR GO SUB VAL <> NEXT > STEP ]!USR b GO SUB VAL STEP ]<>2/[ OR CLEAR © GO SUB ySTR$ <>> STEP ]:USR 2@v:USR 2 v:USR 2?v!eUSR !v GO SUB VAL !uu COPY u GO SUB VAL *cUSR PI GO SUB RDM!USR u GO SUB VAL > STEP ]!USR USR COPY #u GO SUB VAL STEP ▝ STEP D▘NOT OUT ▘> CLEAR !USR G> STEP ] CLEAR ^ CLEAR V{SIN LINE 8▘!USR BIN x AND GO SUB VAL G INVERSE !BIN !a=▜o> STEP ] INVERSE ~Ow INVERSE ~#w INVERSE # INVERSE #x AND IN g. CLEAR RESTORE RESTORE CLEAR LLIST y PRINT INVERSE ~ NEW LIST CLEAR w INVERSE THEN N( CLEAR THEN RETURN INVERSE ~ NEW CLEAR w@ INVERSE THEN F( CLEAR THEN @ RETURN CLEAR RESTORE CLEAR }▜ AND CLEAR o INVERSE ~ CLEAR w INVERSE ~ NEW CLEAR w INVERSE THEN V( CLEAR THEN RETURN INVERSE # INVERSE # INVERSE # CLEAR LLIST CLEAR # LET =CHR$ PAPER ▝ CLEAR LLIST CLEAR # CLEAR #< NEW CHR$ [A]▝<> INVERSE !CUSR CODE OG> STEP ] INVERSE ^ INVERSE VzCOS LINE [C]▘!USR BIN OR B GO SUB VAL > STEP ]STR$ @!USR OUT CLEAR FOR ya▜▝O!BIN ~ PRINT #~# LET O GO SUB VAL INVERSE # INVERSE #< NEW CHR$ I▘<>> STEP ] STEP TAN ▘> STEP ] STEP TAN ▘> STEP ]<>!USR ar#r#s#r#r#r#s#r#r#r#s#r#r#r#xLEN OUT <> STEP [O]▘!USR ~LN (# RETURN COPY RUN CHR$ DATA ▘x2*cUSR USR CODE RESTORE PRINT !bbu© GO SUB VAL LET LLIST ^#V# RESTORE PRINT !"▙▗ INVERSE !b STEP ▚ LET LLIST ^#V# RESTORE PRINT !"▙▗ INVERSE !b STEP ▚ LET LLIST ^#V# RESTORE PRINT !"▙▗ INVERSE !b STEP ▚ LET PRINT o&vr THEN g LINE / CLEAR © GO SUB Y NEW !USR (= DRAW FOR !b GO SUB VAL > STEP ] LET LLIST RETURN >=<NOT FOR USR CODE 2S▗2[O]▗W~#PI>= AND PAPER (▗ AND ` PAPER ▗ AND PAPER n▗ AND PAPER A▗ AND @ PAPER SAVE AND PAPER STR$ ▗< LINE EXP ▗< LINE CLOSE #< LINE NEW <(~# AND LPRINT INVERSE wNOT [D] INVERSE 6IN ~# THEN ©( GO SUB D THEN RUN AND INVERSE wNOT [D]~###PI PAUSE LIST GO SUB D AND [Q] INVERSE wNOT [D]2 COPY NOT [D]>PI LINE [D] PLOT a INVERSE w LET INVERSE = LIST NOT [D] INVERSE ACS INVERSE w VERIFY (3 RETURN 8 INVERSE THEN RETURN NEW INVERSE ACS INVERSE wNOT [D]2[O]▗G INVERSE ~ NEW VAL INVERSE w> INVERSE ACS INVERSE wNOT [D] INVERSE ~ PLOT ` INVERSE wNOT RETURN (8 RETURN 2S▗ INVERSE ACS INVERSE wNOT [N]▗2S▗ INVERSE ACS INVERSE w RESTORE INVERSE RESTORE LLIST PI GO SUB BDM LLIST ~#~#> INVERSE ACS INVERSE wNOT [D] INVERSE ~ PLOT a INVERSE w RETURN ~# INVERSE wNOT [D] INVERSE ACS INVERSE wNOT [D]{ NEW PLOT @g{ NEW ▘o<> OR ~ STEP GO SUB ▗STR$ z NEW # INPUT <> MERGE RESTORE PRINT STEP LINE ▗ LET FOR ▜o&))x# NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ 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 G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▗SCREEN$ USCREEN$ U(hx x2xDxVxhxzxx[O]xVAL xCHR$ x CLOSE #x NEW x SAVE yyy.@©[Q]`[Q]`(IN WATTR WATTR y`yr▝ COPY NOT USR ~CHR$ ©▜~} RETURN CLEAR RETURN CLEAR RETURN y[Q]ySIN ▚ MERGE jNOT ▗©STR$ COPY CLEAR ATTR UH|(XH▖ LOAD LIST USR NOT COPY _IN _IN [S]▜© COPY OUT COPY RUN COPY CLEAR ZIN RUN FOR OUT FOR PRINT CODE MERGE ATTR MERGE V▝EZ@▜ REM 5*4<88USR SAVE ▚ DRAW DRAW REM PRINT REM PRINT STOP ▜ COPY RUN INT W REM INVERSE COPY REM <=Z▘ RETURN ▝▝▚▝ COPY ©IN _CODE !"▜ INPUT UINT U REM UINT x@USR ▜WAT TAT TAT T,[B] MERGE j5*??© COPY RETURN COPY RETURN CLEAR (▗INT USCREEN$ T GO TO ▝ INVERSE x9▞ LIST p LIST p LIST PVAL PVAL ▝IN 9"▚ COPY SCREEN$ Q BxUSR 9USR NOT ?>?>▝ COPY !USR ▜ COPY FN @@ TO BUSR ▟SCREEN$ MERGE SCREEN$ CLEAR IF CLEAR IF CLEAR IF COPY DRAW XFN x2"▘Qy@Q@▘SQR RETURN ▖H OR COPY yL▗CODE X[Q]@▖▝USR USR [Q]XCODE :PEEK x@yUSR J▝ COPY NOT ▝▝▝u0▘ IF BEEP DATA zTATTR /VAL ` LPRINT CHR$ USR ▜ LPRINT LPRINT LIST DRAW CLS RUN CLS +▞ COPY COPY PRINT SCREEN$ P▗PSCREEN$ PRINT y@PI#P*USR ▖ COPY U($▖TzSUSR ▘ LPRINT [Q]>= LPRINT COPY COPY CLS COPY CLS #[S]▝ REM :▝@zUSR ▖Uj}~}~}©USR @?)I▝SCREEN$ CLOSE #c@▗WlXxUSR LIST ▚ppxx|©Ds8{@J▝0▟ COPY COPY RETURN ©VAL$ $b▜ @ INVERSE ▙,*>j]~ov▘TlCHR$ 8▝xBIN ▘ COPY CLEAR <b[U]HR IF ▝NOT B~f~x&▗ IF PRINT IF PRINT ~[K]~AT ~PEEK ~ FORMAT ~ STOP ~ POKE ©©©*©<©N©`©r©▗©[G]©FN ©INT © TO © OVER © LIST ▟SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ 5 CONTINUE ▝ LOAD SIN ▖ CLS RUN LOAD BEEP FOR RUN ATTR INVERSE AND ▙ MERGE ATTR E[T]U▘I[C]A[U]A[Q] TO ▝uUSR ▙SCREEN$ COPY COPY BEEP INT PRINT INPUT PRINT COPY COPY ff(h) GO SUB SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ CONTINUE SCREEN$ USCREEN$ MERGE INPUT x@`P▚[Q][Q] LIST x▖SCREEN$ PSCREEN$ "USCREEN$ RUN x`@ REM SCREEN$ AT SCREEN$ REM xUSR ▝[U]▛▝[Q][G]xUSR ` NEW JJNJy LINE ▝x@hUSR VAL$ FN AT FN Ny@ OR y@YRUSR ▝ RETURN Lg CIRCLE x@y▖a▞QA[S]A VERIFY ▜@ yUSR a LIST LIST LPRINT FORMAT ▝©xUSR z9u▜ SAVE z@yuW▚@@USR @z~yu[H]' TO zUSR ySTR$ DEF FN B▝NOT yUSR {;xz{L` LPRINT [A]` FORMAT ▘ SAVE ?▝{~{y!@@USR {PEEK {yy@|▝[y@{|L;yUSR NOT || ERASE ▘|PEEK sN GO TO z@g}|{ NEW VERIFY }@|{ RETURN ▜?©}|_ PAPER |}>=T▙SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ U|USR ~~▛SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ }~H#▘[A]`SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ }@~▖~USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ }~>=~USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ COPY U©~~SCREEN$ COPY SCREEN$ ▗)SCREEN$ U©@~©[G]SCREEN$ COPY ATTR WPEEK ] IF u REM MERGE SCREEN$ U[S]I▘Q▗!▗ PAPER [C] COPY BEEP SQR BEEP ATTR EU!E"/ LINE ▖ COPY USCREEN$ USCREEN$ USCREEN$ _ DEF FN FORMAT ▝ CLEAR NOT COPY ▗TT(▘STR$ COPY COPY IF POKE REM POKE REM RETURN x@ FORMAT IF U REM W REM Dp@▞ INPUT *J** INPUT REM T[Q] @FN x' FORMAT ▚U[Q]B[Q]U REM x ▖ExUSR FORMAT ▖POINT [Q]PSCREEN$ RUN x▙*$J INPUT ▛5_{_©CODE yG FORMAT Py▝ DRAW .7▝Ugg[A]y▘(.1▛ RETURN COPY RETURN } RETURN |INT |FN T( BEEP ▖ RETURN RETURN }ACS ]*/[A]y© CONTINUE © CONTINUE xUSR ▜ CONTINUE **N▘ STOP © CONTINUE g CONTINUE M▝@ CONTINUE zx© POKE ▘f/ CONTINUE z▚""D▖ INPUT © CONTINUE © CONTINUE CONTINUE zy© POKE ▘f/ CONTINUE z▘**© CONTINUE © CONTINUE yUSR y© LIST ▚fffy#@N LINE DJJyw CONTINUE LPRINT ` LIST z@▝z▝© POKE ▘fy(▘>=Nx© PLOT yz© GO TO © CONTINUE t@H LINE JNBz© CONTINUE y{© INPUT ▖ffff{)▗CHR$ BDHzy`{USR STR$ ▘© CONTINUE © CONTINUE {USR J{© CONTINUE {|© INPUT ▖ffff{-▗SCREEN$ [U]SCREEN$ SCREEN$ {© CONTINUE {N,[Q] SAVE A▘A[S] OR T(T(@STR$ ▜#GCODE _IN ©~▘FN VAL$ / LIST COPY MERGE SCREEN$ MERGE SCREEN$ (▘ COPY BIN ~.-SCREEN$ USCREEN$ USCREEN$ ~@ CONTINUE ▘}▞SCREEN$ SCREEN$ VAL$ [S] STOP UCOS ©.▚[S]U©&▜P REM ] RUN OUT IF T©@ FORMAT ▖IN USCREEN$ RSCREEN$ W©▗[S][S][U]FN ▗@[Q]P[Q]xUSR /▚©ATTR ]SCREEN$ WATTR ©a©USR 'USR COPY COPY _SQR W©USR ▘ INPUT STR$ SCREEN$ ▘ INPUT COPY COPY CONTINUE BIN )▘/(pLN STR$ ▝▝▝/p CIRCLE STR$ ▝▝x X ▝9x`P`x CHR$ NOT USR ▘9STR$ ] FLASH [I]▘NOT Hx X,▝)x@` FLASH ▝)R▗//=8xINKEY$88==/)h▝/xINKEY$▝=J:x X ▝x NEW Y[S]xINKEY$▝)[K] INVERSE INVERSE ▗(h NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ 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 G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▗SCREEN$ USCREEN$ U(hx x2xDxVxhxzxx[O]xVAL xCHR$ x CLOSE #x NEW x SAVE yyy.@©[Q]`[Q]`(IN WATTR WATTR y`yr▝ COPY NOT USR ~CHR$ ©▜~} RETURN CLEAR RETURN CLEAR RETURN y[Q]ySIN ▚ MERGE jNOT ▗©STR$ COPY CLEAR ATTR Ux|y INPUT XH▖ LOAD LIST USR NOT COPY _IN _IN z z22D▜ REM 5*4<88USR SAVE ▚ DRAW DRAW REM PRINT REM PRINT J`▜PATTR QPOINT UPOINT UPOINT SFN zzU RETURN ▝▝▚▝ COPY ©IN _CODE J[Q]▙ LOAD JJTTiiRS%% NEXT :INT ▜WAT TAT TAT T,[B] MERGE j5*??© COPY RETURN COPY RETURN CLEAR P▘U*D▖ RANDOMIZE TTPOINT RANDOMIZE BORDER @@!▞ LIST p LIST p LIST PVAL PVAL ▝IN BqUSR INPUT ASN PI@J[E] CLOSE #qUSR NOT ?>?>▝ COPY qUSR ▞*+ REM SCREEN$ |@USR ▙ MERGE SCREEN$ MERGE SCREEN$ CLEAR IF CLEAR IF CLEAR IF COPY DRAW XFN xQ▖>[E][E]))RR RANDOMIZE A9@▘SQR RETURN ▖xD|SCREEN$ SCREEN$ ▝POINT I@4▗CODE X[Q]@▖▝USR USR [Q]XCODE zPEEK ▗▖ RUN ZRRNDRNDJJ OUT xSCREEN$ U COPY NOT ▝▝▝CHR$ COPY t`▞*[F]SCREEN$ (U)S(|z▚UATTR /VAL ` LPRINT CHR$ USR ▜ LPRINT LPRINT LIST DRAW CLS RUN CLS [▟P▜)Qr▙8USR NJ RETURN yI#PRUSR ▟UJU*T8(qB@;USR ▘ LPRINT [Q]>= LPRINT COPY COPY CLS COPY CLS RUSR [T]N[E](EXP ▜`PIRND COPY IUSR ▞jUj}~}~}©USR @? CAT STR$ @q LINE RNDSCREEN$ RNDJ*{@▗WlXxUSR LIST ▚ppxx|©|}VAL$ jJ▝0▟ COPY COPY RETURN ©VAL$ } LPRINT } PAUSE N▘TlCHR$ 8▝xBIN ▘ COPY CLEAR ~~0R IF ▝NOT z~n~▗ IF PRINT IF PRINT ~[K]~AT ~PEEK ~ FORMAT ~ STOP ~ POKE ©©©*©<©N©`©r©▗©[G]©FN ©INT © TO © OVER © LIST SCREEN$ USCREEN$ USCREEN$ 2▝ RETURN COPY FOR BEEP FOR PRINT FOR MERGE CODE BEEP ABS IF RUN * NEW TO ▗ RETURN LOAD RETURN CLS S[D] CLS MERGE LOAD PRINT ATTR MERGE FOR OR REM STR$ [D] OR SCREEN$ USCREEN$ USCREEN$ USCREEN$ rVAL$ U REM x OR ▖ COPY REM UFN PFN U IF 8@INT MERGE SCREEN$ RUN RETURN 0 ((▜SCREEN$ USCREEN$ USCREEN$ USCREEN$ VAL ▗ REM TSCREEN$ u@@▜SCREEN$ E @SCREEN$ 0▚ INVERSE SCREEN$ T[Q]USCREEN$ x@▚USCREEN$ USCREEN$ USCREEN$ h▗FN U8▘T ▜USCREEN$ USCREEN$ USCREEN$ (@SCREEN$ BEEP f▗USR SAVE USR USR p▜SCREEN$ A( U REM 8USR ▚ COPY PRINT FN ASCREEN$ CLEAR 1▝SCREEN$ [T][Q]U<USR ▝<pUSR ▖[Q][A]ASCREEN$ PRINT 8@U T,INKEY$▝V RESTORE P OUT ▝|qNOT ▝`NOT ▖ COPY SCREEN$ D @FN A`~USR DRAW USR ~x@0` TO ▘ PRINT [Q]a▚ PRINT SCREEN$ D[R] CLOSE #SCREEN$ REM |USR | DRAW xa[J]0I▟USCREEN$ USCREEN$ USCREEN$ RETURN U@([Q]▘xUSR MERGE ▚USCREEN$ USCREEN$ USCREEN$ !@▝zSCREEN$ USCREEN$ x@ OR ▚USCREEN$ USCREEN$ USCREEN$ )@pgSCREEN$ USCREEN$ USCREEN$ zp▜ @pGSCREEN$ USCREEN$ USCREEN$ zXhUSR ▝USIN ▚*U<~▝(SCREEN$ USCREEN$ USCREEN$ z[I]p@▞SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ ©ACS ▘USCREEN$ z CIRCLE <▗ IF FORMAT SCREEN$ PRINT P[A]USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ © PLOT ▗USCREEN$ USCREEN$ x@ MERGE SCREEN$ D FORMAT [A]USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ © PLOT ▗USCREEN$ USCREEN$ s[I]▝ REM SCREEN$ @FN PRINT ' NEW ▗TSCREEN$ TSCREEN$ (8▚USCREEN$ USCREEN$ USCREEN$ s CIRCLE 2 LIST ▙USCREEN$ USCREEN$ USCREEN$ © COPY OUT COPY RUN COPY CLEAR [D][F] OUT LOAD COPY LOAD BEEP IN BEEP FOR BEEP SQR BEEP CODE BEEP ATTR SCREEN$ USCREEN$ USCREEN$ USCREEN$ ATTR MERGE INT RUN <@j@ TO IF CLEAR CLS x ▜SCREEN$ USCREEN$ USCREEN$ USCREEN$ FOR ▗SCREEN$ U[Q]U;USR AND ▙USCREEN$ USCREEN$ USCREEN$ COPY IF U INPUT USCREEN$ ]|▗USCREEN$ USCREEN$ 0▗FN MERGE zUSR ▟SCREEN$ USCREEN$ USCREEN$ COPY INT U REM QSCREEN$ MERGE @ AND USR AND {USR ▘ REM Tz LPRINT LUFN P!@ AND RETURN AND u▝FN MERGE USCREEN$ USCREEN$ USCREEN$ USTR$ ▘U REM USR STR$ |@ MERGE ▚USCREEN$ USCREEN$ USCREEN$ -[H]gxSCREEN$ USCREEN$ {USR x@% FLASH |USR SCREEN$ USCREEN$ |x&y@|@r▘ IF INVERSE ▘ DEF FN AND } VERIFY ▚USCREEN$ USCREEN$ USCREEN$ ▗FN [Q]T LPRINT STR$ AND } VERIFY ▚USCREEN$ USCREEN$ USCREEN$ @"H }SCREEN$ USCREEN$ }e@▘ REM T}▚USCREEN$ USCREEN$ USCREEN$ }@e- CAT ©@▚SCREEN$ USCREEN$ USCREEN$ COPY , LPRINT [A] COPY COPY BEEP ATTR @ }_▘[C]STR$ EAAc[PEEK [D] RUN FOR RUN CLS MERGE ATTR RUN ATTR MERGE [S]<>[T] MERGE ▘ MOVE ▘Q▗STR$ ▖▘ @INT PRINT ▝ FORMAT NOT {0 COPY COPY LPRINT ▜ COPY COPY CLEAR REM FORMAT REM CLEAR ~ SAVE DATA ▖ COPY RETURN U[Q][Q]T RETURN PRINT ▝ COPY Qz DATA CODE COPY COPY CLS Q[R] FOR MERGE READ MERGE STOP STR$ [S]STR$ STR$ STR$ @ BORDER : TO OPEN #+ / CIRCLE / LPRINT hh ▝USR [D]~<*U*U*U*USCREEN$ USCREEN$ USCREEN$ USCREEN$ © NEW © SAVE [M]USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ © NEW © SAVE [M]USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ © NEW © SAVE [G]USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ © PAPER © GO TO © RETURN [A]TSCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ T OR ATTR E[D]E[T] OR ▜s▘▝CHR$ ▘ RUN LOAD REM ▙ READ OR FOR STR$ READ OR [T] MOVE MERGE STR$ [Q]STR$ o@|[A] STOP AND NEW PLOT OVER DEF FN SAVE _n FORMAT ▜|USR | DRAW >=h▗ AND INPUT VERIFY AND H@^ FORMAT ▘h`^0▘@LN IF PRINT RETURN ▘l8>=hVAL CLEAR @@SCREEN$ PRINT SAVE ▗ SAVE TO DEF FN DEF FN HVAL hp▗ DRAW AND DRAW TO H LIST ,@ INK CLOSE #| AND USR P LPRINT ' BEEP J MERGE ~USR SAVE USR USR P LIST Xox<=▝<R▝<h>=h o REM iUSR i FORMAT z0_ GO TO y[Q]iVAL ▘ DEF FN AND IUSR COPY COPY CAT ▝ LOAD #i▜ READ STR$ [T]STR$ STR$ ▘}CHR$ - COPY COPY COPY COPY BORDER THEN )▝ FLASH ▝=X2 DEF FN =▝8 BRIGHT PtH(▖▘ ▝▗)*2 LINE 8Rx 2▝=x x ``▝=x@x x`8t▝)h@x x H@h@9vlY▜▝8 NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ 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 G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY COPY COPY PRINT CLEAR $ COPY COPY COPY COPY COPY COPY COPY LOAD CLEAR $ COPY COPY COPY COPY COPY COPY COPY LOAD CLEAR $ COPY COPY COPY COPY COPY COPY COPY RUN [A] COPY |USR | DRAW COPY DRAW AND AND DRAW USR (▘ COPY STR$ USR ▘|(▖ COPY ~USR DRAW USR ~(( OR 88▝|USR AND 0 RETURN AND 80(▗ SAVE TO DEF FN DEF FN h OR @( ▖▝~STR$ ▞ COPY AND NEW PLOT OVER DEF FN 8X▝<▘<( OR 8[I]X VAL ▘ DEF FN AND 8VAL 8XUSR P@([I]88 CONTINUE <=>=NOT ()0 OR $8 ([Q]▗ DRAW AND DRAW TO (▖ FORMAT )`>= OR @X!@( SAVE NOT yX RETURN 8` RETURN AND 8[Q]h8NOT 8USR X LPRINT OR ▝ COPY BIN (hP ▘>=>=0( OR ▖ COPY 8lD(hx 0 OR ▖ COPY Dl8(hx 0 OR xUSR x FORMAT x LPRINT HUSR | AND VERIFY "LN (hx ▝| AND @▝ DRAW x@▝xX0h0 OR $1p▖▗8X@X[Q]<l RETURN KUSR py>=y CIRCLE y▝h▘p+LN ,,3 CIRCLE P OR BLN <T+X OR ; CONTINUE k SAVE AND INPUT VERIFY h OR {@k SAVE 8▖H OR 9NOT ; LIST -(▖X OR LIST ▝ AND LN % )P)X)`-@c▝), LIST mx-▖NOT - OR $=xA>=i▖[I]/ OR }h2*% FORMAT NOT - OR D`USR SAVE USR LIST 5`yUSR ; @|[A]# XX OR x;HjUSR & LPRINT .@m1VAL 3py} FORMAT OR yl8(8Y[I] OR > CONTINUE + LIST Z(OxXk@NOT ~FN NOT ~USR NOT ?VAL 8X▙ AND DRAW USR COPY DRAW AND AND DRAW USR COPY j'USR DVAL x▝/ CONTINUE jLN ,,/ CONTINUE n[A](H▝|ypW@(pd SAVE ▝/8▖▗ TO x00 COPY (<[I]>=k)FN /VAL ©8&▘ COPY 7[I]$[A]: LIST LIST * LIST -8▘ DRAW AND $x0Y`©[Q]STR$ COPY |USR AND ▗| COPY ;X LIST *USR © LPRINT STR$ COPY AND NEW PLOT OVER DEF FN COPY / CONTINUE h CIRCLE dHs`-89[I] SAVE BIN ▝ COPY qUSR / SAVE l jzFN _ SAVE )hEP0-+LN -hmLN /USR sP}XUHo SAVE ~P.P CIRCLE ▝|USR AND | COPY BIN © LIST }X8▘| AND ZUSR >=▝ COPY xeP/ CONTINUE ▗ DEF FN CIRCLE LIST CIRCLE (yUSR © SAVE COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY |8|HgX[xkk FORMAT h8/H▘| AND [USR &▗8l COPY BIN ▘ COPY , LPRINT h8/Xy/[Q]| AND AND CONTINUE x8▚ AND RETURN AND COPY kUSR l3@`8{USR /5 LPRINT ▝USR &x`8{USR cVAL 5 LPRINT -/[A]-[I]kP+VAL n▖h8▝|USR AND ▗| COPY u/[A]-▖'8u``NOT }/`//0|LN ^*▝~/x~`[Q]hUSR / LPRINT i>=0[I]nb; LIST :[A]▝ AND R z LIST _>=o CIRCLE ▝ AND 2XYVAL NOT ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN © SAVE NOT ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY BIN ▝ COPY 'USR ▝STR$ ▝ OR 00x x x@x@x` r BRIGHT x[Q]x[Q]xUSR xUSR x LPRINT x LPRINT y COPY INK INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE CONTINUE x8▚ AND RETURN AND COPY kUSR l3@`8{USR /5 LPRINT ▝USR &x`8{USR c
