| Es parte de la publicación: | Joe Blade 2 (128k) |
| Tamaño del archivo: | 31232 |
| md5: | 7216b169cddd876550080a62dc579a8c |
1 REM CODE 2]/NOT =1[O]aCODE OPEN # RETURN 2H/2▟/ STEP k> STEP !X6 RESTORE MOVE GO SUB VAL ! STEP @] STEP !xi/ STEP @]> CLEAR © GO SUB y!USR STEP @]> CLEAR © GO SUB y!xi RESTORE ! NEXT RESTORE CODE NOT 0= KORUND
2 RANDOMIZE USR 23887
59136▗ACS ▗ RETURN COPY SCREEN$ 5619@ INK ▙ STEP AND ~# INVERSE . COPY INK [ THEN " V# THEN 208 DIM " V# THEN THEN !(8 LET 0 INPUT VERIFY AND VERIFY RETURN RANDOMIZE ~# DEF FN COPY INVERSE o8 CIRCLE !X' INK <>~# INK og RETURN CLEAR 0 INVERSE -| RETURN X0+TAB NEW SAVE TAB GTAB AT Oz RETURN X0ATTR NEW SAVE ATTR GATTR SCREEN$ O0++# INVERSE , ERASE 7 PRINT AND G LET K0 CONTINUE M OPEN # COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY [G] COPY GO SUB COPY #▝ COPY OPEN # GO SUB INPUT COPY RETURN ABS RETURN DEF FN ▙ COPY >=[P]ACS OPEN # INPUT iCHR$ ▝ INPUT CLEAR INVERSE COPY ) DEF FN RETURN COPY OPEN # INPUT ![Q] COPY COPY THEN RETURN 13[H]>2 THEN DRAW NEXT ▘▚<=USR LPRINT 3 OUT AND USR ACS COS 1<=~USR 01IN <=USR [O]6USR STR$ COS PEEK <=[K]USR COPY N COPY LINE USR ACS RETURN ▘ RETURN AND OVER USR ?00 AND xUSR [A][B]?1, AND @ OVER USR [A]VAL LEN [P] AND pUSR [C]6IUSR INKEY$@ LPRINT ▘ OUT <=USR [B]<=USR `BTAB >=6▘3 OR IUSR 8@CHR$ % AND USR J@IN OR XUSR USR BIN [A][I]▘[E] OR [H][O][B][B]▘LEN SGN P RETURN USGN ▝l▝ COPY ▝ COPY ▘ABS COPY GGACSTR$ CLEAR NEW AT COPY C COPY USR DRAW FORMAT STOP LPRINT Fb CONTINUE COPY CONTINUE LPRINT A0 NEW COPY STEP xBIN NEXT GO SUB s![G]i▟[d MERGE GO SUB VAL !wBIN COPY COPY ~Z<> GO SUB LN !▘RND[Q]_~ 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[O]a CLS NOT [Q] MERGE ▟ NEXT > CLEAR © GO SUB y STEP USR > NOT [A]!`|<w, DRAW $w= GO SUB G GO SUB ^[K]$l6NOT # PAPER _s#r CLS NOT ▘ OPEN # NEXT PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE INK PH▝PH LLIST MOVE STR$ LET INK CLEAR LLIST INVERSE LLIST CLS NOT 8 COPY COPY COPY COPY FORMAT a▚▝Q▚▘>?vV CLS NOT [Q] MERGE pp0▘▘ BEEP 1AT ▙CHR$ /T/LEN 3[J]][F][E]][A]][E]]LEN 3][F]]NOT 3ATN -[F][K] FLASH +-e3X' GO SUB Rv> COPY COPY COPY COPY COPY COPY COPY COPY COPY 4H COPY COPY RETURN RETURN @00▙ RANDOMIZE PLOT LOAD LOAD LOAD RUN RANDOMIZE 0"*▗ LIST INPUT ©©STR$ [I]__IN ?gg[P]IN ?IN ?IN ? OVER LLIST THEN STR$ W[J]VVUSR USR uujj MERGE MERGE CONTINUE CONTINUE ERASE FORMAT ' BEEP FORMAT LOAD LPRINT LOAD LPRINT [K]? CAT USR 70▗ OR BIN OR BIN OR BIN ▗KH BEEP FORMAT ooSTR$ OUT [P]__CODE CODE QQ[T][T]IN IN ??IN IN SCREEN$ SCREEN$ ||▝ CLS CLS DRAW pACS pUSR @ CLOSE #? OUT USR LOAD LPRINT RUN LIST RUN LIST n OUT USR ?▘ OUT USR OUT USR IN ©p PLOT qqqqq(A<[C] LPRINT OUT [Q] [Q] BEEP LOAD LPRINT INK BORDER Q4▚ SAVE CHR$ ASN 5NOT u▚VAL 0NOT RUN P▟ INPUT yy||IN ?USR NEXT LIST LLIST LLIST NOT LET LLIST LLIST ERASE ERASE PRINT POKE LPRINT LPRINT [H][H]ooSTR$ LOAD ▚ BEEP BEEP BIN BIN SQR SQR NOT ©[B]SGN SGN @@[I][I]IN IN ||qACS ▗©©p RETURN qp(p DRAW q IF rrr,▟ SAVE RUN CONTINUE CONTINUE PRINT CLS SAVE 0▝ RANDOMIZE ![I]▛ CLS CLEAR DRAW RANDOMIZE SAVE CLS PLOT ▗ RUN RUN ▘ CLEAR lINKEY$ LIST DRAW DRAW SAVE SAVE DRAW DRAW <<|| SAVE SAVE POKE POKE CLEAR CLEAR SAVE SAVE BORDER BORDER OO//▜▜SQR SQR NOT COPY [E]??@@SCREEN$ SCREEN$ POKE POKE IF IF POKE POKE yx▗ LET LIST CLS SAVE 1▖©IN _@_@_@IN ? CONTINUE d1 IF q INPUT r CONTINUE r PAUSE r DRAW ssss$s.▝ RETURN CIRCLE IF IF CLEAR "L3P▝ DRAW ` RETURN s@▝ RETURN !6USR ▗[N]~~ COPY COPY [P][P]~~ CLEAR CLEAR COPY COPY RETURN RETURN xxCODE CODE CAT CAT RUN RUN 1[C]<<BB CAT CAT PIPI OPEN # OPEN #ii[A][A]<><> NEXT NEXT 3USR REM ▚/ ATTR / _@o`ATN VAL OPEN # FORMAT MERGE CLOSE # ERASE ERASE VERIFY VERIFY SIN SIN ▚▚""ADPI[Q]O@CODE [Q]WPPI[Q] CLS SAVE BORDER #tt DRAW NEXT pPEEK cjttttIN ?/<=<=▜▜PPEEK ©©[O]aa BEEP BEEP ATTR ATTR MOVE MOVE & CAT ttt[S] FORMAT ▜10 PAPER PAPER <><> REM REM DIM DIM REM REM <><>CHR$ CHR$ [B][B]''USR USR FN FN MERGE MERGE CLEAR CLEAR yy"X▝ LIST tACS tUSR t LINE B▘_@s INPUT ,▘IN s RETURN t IF uuu,ttU4▖USR INT :||xxSGN IN ? CAT NEXT DATA GO TO REM ttt4▚ LLIST LPRINT ▚▚{{NOT CLEAR [L]}} CLS CLS SAVE SAVE PAUSE PAUSE BIN BIN ** POKE POKE zz55[K][K][P][P]>>uACS tt/▚_@/ o`▗/ @T▝?!vvvv(tttsAT St▝ CLEAR tttttttt VERIFY ttu INPUT v REM v POKE v RETURN wwww&ttt7PtVAT tttt[K]▝--]]^^XXWW//oogg POKE POKE CONTINUE CONTINUE MOVE MOVE ▗ THEN THEN RUN RUN tt4▖ CLS SAVE CLEAR DRAW CLEAR DRAW STR$ RETURN ▙~~ RETURN RETURN CLEAR DRAW CLS SAVE ▜▜▜70 RUN LIST <=&4FN ▘ POKE AND LINE ▚ CONTINUE POKE IF VERIFY >=x▗xx~~CHR$ [B] OUT LLIST LIST PRINT REM LLIST GO TO LOAD READ tUSR DUSR ▖ LIST LIST RANDOMIZE RANDOMIZE ~~IN IN INPUT [U]▝TAN TAN INT INT zz REM REM LIST LIST POKE POKE PLOT PLOT NEW NEW //▛▛[G][G] OPEN # OPEN # LOAD LOAD UPEEK QLN v AND v AND VSGN V NEW ▘pxLN xCHR$ x TO x VERIFY x LPRINT x REM uCHR$ CHR$ AND u>=`uPEEK 2 ERASE y$Y.▘USR AND [P]USR ??<<>>//IN IN BORDER BORDER LIST LIST PAUSE PAUSE POKE POKE LLIST LLIST INVERSE INVERSE 6USR [F] DRAW DRAW UU//__//[O][R]! OUT USR LINE INT ▗CODE [Q] OUT USR TAN ▝[P]&LN 8[M] LINE q3TAN W NEW ▘[P]@▝yACS yUSR y LINE y CLOSE #y OVER y CONTINUE y PAUSE v[K]z*▖ DRAW IF POKE PLOT ▗ POKE SAVE p7USR 7 TO > LIST CAT VAL 0@@▜▜NOT ▜▜KKCODE /▜aa OVER OVER NOT IN [L]PEEK PEEK OUT OUT OO##TT//^^AT AT YY RANDOMIZE RANDOMIZE ||SCREEN$ ▟ FOR CONTINUE RUN LIST [L][I] BORDER ITAN LOAD LPRINT ]/>>BIN [E] CLEAR DRAW NEXT LIST CAT USR ' 70WPATN VAL a`[O][O]>>:zACS zUSR z LINE z CLOSE #z OVER z CONTINUE z PAUSE z DRAW {g BRIGHT ▗ CLS IF r INPUT >=4 TO W(COS GO TO FORMAT [R]![T]#[T]#[T]#[R]! ERASE FOR LLIST [[[D][D]WW[H][H]WW[D][D]CC▞▞ DATA DATA ATTR ATTR IN IN [O][O]STR$ )[O]USR ▗ RETURN RETURN STR$ ▞ IF IF CLEAR DRAW STR$ USR NEW NEW RANDOMIZE #LN CLEAR DRAW :8STR$ STR$ READ READ LLIST LLIST LOAD LOAD 9[A] RETURN RETURN yx▚▚ FOR FOR MERGE MERGE ▛▛d NEXT X▝ SAVE y DRAW {USR k▝ CAT yc*&▗wp▝[P]Ktt TO [G] GO SUB THEN ATTR +KKkkMMaaDD▘" RESTORE PAUSE ▜ RESTORE CIRCLE OUT BORDER xUSR t4▖ LPRINT LPRINT PRINT PRINT NEXT NEXT LET LET PCHR$ USR ▚ NEXT NEXT RESTORE RESTORE THEN THEN ▗[D][D] CAT CAT tuLN z AND s RETURN SGN ;AT tt|INT |BIN | DEF FN | CIRCLE | STOP | GO TO yCHR$ t[U]tt}$},USR ?ttttttttL[M]▝? DATA VAL$ ZCHR$ ▝GTAN 7USR t}LN }CHR$ } TO } VERIFY } LPRINT } REM } POKE tvINT INT >>=pt(><tt▖CODE / DIM DIM PLOT PLOT STR$ RUN ▚ FOR FOR ## INVERSE INVERSE NOT RETURN [A]==QQFN FN USR USR CLEAR CLEAR >>tt=SIN ▚C@TAB AT NOT VAL$ NOT DEF FN ▚o` RUN LIST wpt}~PEEK ~>=~ ERASE ~ BRIGHT ~ NEW ~ LIST ~ IF ©[PEEK p RETURN ;VAL ERASE < STOP Vtt▚ FOR PLOT PLOT STR$ CLS [J] IF IF PRINT PRINT OR OR CIRCLE CIRCLE CLEAR CLEAR DRAW DRAW CLEAR CLEAR xxUU>>▝,[Q][A]ttINT ▖{x▜ OPEN # FORMAT CONTINUE CONTINUE STR$ REM [D]jjxxVAL$ VAL$ VVATTR ATTR K DATA FOR tt©BIN / CIRCLE ▝[P]^ RETURN S GO TO tT7 RETURN POKE 9VAL 9FN ▗ STEP VAL 0STR$ zxxINT : DEF FN STR$ o▞vvSIN 2ABS < FLASH BORDER ©xDUSR ▝>=j[U]>> DRAW DRAW IF IF RETURN RETURN DRAW DRAW LIST LIST YYASN ASN INT INT LPRINT LPRINT RETURN RETURN SCREEN$ SCREEN$ UU@ REM ,©INT ]USR ▗/ / PEEK ▘?= SAVE [F] LOAD LOAD PIPI[P][P]PP[O][O]oo[H]▜;© IF © RETURN © RETURN { RETURN k GO TO [ LIST ©&© IF 5 CLOSE #][Q]? RETURN ▙ NEXT GO TO OVER OVER OVER INPUT ▚ FLASH FLASH INVERSE SAVE USR IN IN ©© CAT CAT ??.[L]©©<<▝▝[G][G]--VAL$ VAL$ xx COPY COPY REM REM MERGE MERGE [S][S][A]z.*©LN TO [D]o`▛▖▛▖▛▖[H][A][Q]X? POKE [F]SQR SQR CC))▜▜PIPICC[E][E]''[L][L]ea DEF FN x IF © AND © FORMAT y<OyDX`] IF © RETURN © RETURN zINT r PLOT ▚ PLOT PLOT PLOT y©JSTR$ @▞CODE / OUT STR$ COS 3 CAT CIRCLE [E] OUT OUT [Q][Q]RNDRND▛▛ATTR ATTR LLIST LLIST ©©hh$ OVER ©/PEEK BORDER LPRINT CHR$ CHR$ NOT STOP PICHR$ CHR$ RND[U] READ CONTINUE USR USR __[P][P]__VAL$ VAL$ PP LLIST LLIST POINT POINT PPRNDRNDINKEY$INKEY$YXCOS 0 CAT © TO © VERIFY © LPRINT .V▝ RUN "▘ CLS SAVE ▘{x RUN LIST l$B▘0<=© RETURN © RETURN © RETURN w REM w PLOT G POKE ©*U▚ LOAD FORMAT FORMAT [C]▝ LIST 6?6[G]7NOT NOT CONTINUE CONTINUE DIM DIM STOP STOP REM REM 88[P][P]PEEK PEEK ABS ABS LIST NEW ©nSIN RANDOMIZE SAVE LIST LIST SAVE SAVE xx SAVE SAVE LIST LIST DIM DIM SAVE IF LIST LIST NOT NOT gg BEEP BEEP FOR FOR TT▘▘ SAVE SAVE SCREEN$ SCREEN$ TT))POINT ) VERIFY f©VAL r GO TO ~ CIRCLE .V; RETURN ▚PEEK PEEK >>[O][O]STR$ ~▟=<C@yxABS SGN ] GO SUB LET © LIST sx CIRCLE ) VERIFY ; RETURN ▚}}||yy@▟SGN <CHR$ [O]ABS =INT 8ATN 0©▙[P]`` SAVE ▚[H][H]_[J] NEW NEW FOR FOR BEEP BEEP **AAUU**[E][E]@@[F][E]kh7qUSR ▖ RUN LIST BEEP FORMAT FORMAT -ACS ▘ GO TO LPRINT [A][H][H]GGWW LPRINT LPRINT RANDOMIZE RANDOMIZE }}ABS ABS R▝s© DRAW © RETURN © RETURN _ REM © PLOT [@© PLOT © RETURN © RETURN U RETURN NEXT LOAD B LINE ▗ OUT OVER CLOSE #▗ LOAD LIST OVER INPUT ▚ CIRCLE [Q] CCNOT GRNDCCRND%<= LIST LIST IF IF RANDOMIZE RANDOMIZE IF IF uuPP▜▜[F][F]RNDRND[A][A]ee[K] STEP qUSR /STR$ ▞ PRINT POKE CLS SAVE STEP TO NEXT BACS @[F]RNDRND MOVE MOVE MERGE MERGE ▜▜xx RETURN RETURN __CODE CODE ${|© RETURN © LINE s RETURN }:0▚o`o`o`©© IF © RETURN © RETURN ~SGN ]_BIN _ LPRINT Zz[E] RANDOMIZE PLOT CONTINUE FORMAT MOVE MOVE MOVE FORMAT DIM LET 6~[F] INVERSE INVERSE CHR$ CHR$ [E][E] LLIST LLIST RESTORE RESTORE CHR$ CHR$ )) DATA DATA INK INK INKEY$▚svo CLEAR CLEAR RETURN RETURN LPRINT LPRINT NEXT NEXT DRAW DRAW VAL$ ▘ RETURN RETURN @[F]iiTAN TAN uu[R][R] COPY COPY WWATTR ATTR EE^/ STOP © LINE U CONTINUE Z ? DATA ▝ CAT J{x{x{xwp CAT USR X▚ FLASH CIRCLE FLASH CIRCLE SQR LN SAVE s© RETURN © RETURN © RETURN { GO TO { LIST }&~z>@DH>▘ DRAW = SAVE [F] RUN RUN LIST LIST RESTORE RESTORE SAVE SAVE RANDOMIZE RANDOMIZE LIST LIST yy PLOT PLOT DIM LLIST BRIGHT ~INT ▜©©5 LIST xx||??__©©??@[G][K][K]TAB TAB ]]FN FN ©©UUSCREEN$ SCREEN$ QQWP,~ IF ? RETURN POKE >0>(▗COS STR$ ^]/sp▝ NEW NEW STR$ PLOT ▗nnMLwUSR 6PEEK COPY COPY RUN [D] NEXT DEF FN DATA P DEF FN RESTORE P BRIGHT DEF FN FOR P BEEP LEN 3Z[S] FLASH M REM Z DIM ZL8USR Wq AND COPY cv> CONTINUE MOVE CONTINUE FORMAT STR$ INKEY$▗▟[G]USR j[N]x MOVE CONTINUE MOVE BORDER INKEY$INKEY$PI[P][O]wjjuIN CONTINUE MOVE READ COPY INKEY$RND[N] COPY [O]© COPY ▟ COPY MOVE STOP COPY COPY INKEY$[N] COPY COPY o COPY RUN MERGE PI COPY BORDER IN INPUT COPY [N]oW INVERSE P▘IN COPY © COPY RUN } INPUT GO SUB H▘Q ▘(▝0 LINE [J] PLOT LOAD OUT m OUT ABS { CLS BD OUT IN {SQR RETURN RUN OVER COPY RUN H CLEAR THEN COPY ▝©@>= COPY PLOT RUN IN FOR ATTR INVERSE ]PB▝IN ▝▝▝! STOP py STEP pppPpq MERGE COPY ▗© OUT COPY RETURN [O]P▝~ PEEK CLEAR COPY RETURN [ PAPER IN v$© COPY LOAD REM uASN }PEEK @AE@▘ CLEAR PLOT } OUT wK LOAD "▚BIN P INVERSE ATN K LOAD COPY RUN OIN RUN RUN _ COPY COPY SAVE ?p▝ CLEAR qA▝ OUT [E]SQR COPY W PRINT E[Q]▘ RETURN CLEAR _© FOR BEEP RUN BEEP $(t▞D ▘q>=r▘STR$ j▝ CONTINUE ▝▝HB ▝P >= MOVE CONTINUE PIINKEY$PI&[M]bjbj"@▘PI&p@p@p@p`p`@`[A]@ INVERSE WO OUT PAPER [H]J PAPER UVEU CLEAR RUN L CLEAR TAB PI▟TAB UW▗[P] BEEP ▝ BEEP @ DRAW PLOT ▟ PRINT TAB PIMPOINT P▝ BEEP [E] LINE FORMAT PAPER UORNDU CLEAR LOAD RND DRAW TAB CODE ETAB [K][A] OUT PAPER MERGE `▝0`▚wM}AT PI0@USR ▗ OUT OUT INVERSE OUT STR$ PAPER STR$ U LINE ▗ RANDOMIZE CLEAR MERGE CLEAR STR$ TAB P▚ INVERSE BEEP OUT OUT PAPER LINE p <> ▝POINT P0 OUT LINE [K]p@ CLEAR CLEAR RANDOMIZE p@`▝_p 0@▝ CLEAR `▝POINT p ▝[P]`▝▘T[F]p@p@▚[P]_ CAT PAPER PAPER [K]`[Q]▖ RUN COPY PLOT RETURN IN PAPER COPY IF w▝POINT PLOT FORMAT MERGE DEV ERASE [C][E]V FORMAT [E]R MOVE COPY COPY [B]5EXP MOVE UU MOVE ;U LPRINT MOVE 5[R]81▝_ LPRINT p`▝ DRAW pUSR @USR ▘[P] CAT p LPRINT SCREEN$ USR q ▝ STEP A[Q]▝[K]Q@INKEY$▘ DRAW { LET ▖diAT h,`▗o COPY COPY GO TO P1A▜ PRINT RUN BORDER [S] STEP TAB ▜ STEP UATN ~ATN `USR INVERSE ATN } CAT INK ATN a LINE UVAL o OR IN o@ CLEAR ▟TAB $[D]U▞( OR COPY COPY USR INVERSE [A]B CAT INK COPY COPY LINE U▗FN CLEAR [A] STEP ▟T LOAD PAPER [K]▗ OVER q LPRINT pUSR a[Q]@qUSR p LPRINT 2 ▝ CAT IN INT PAPER U@qU DATA RETURN LET BEEP }TAB ▛SIN ▟U(teSw LIST INVERSE +iw INK ^U LIST [M] CLEAR LOAD VERIFY ]TAB COPY NEW [J]T COPY IF Y CLS LIST [I] INVERSE COPY CLEAR G INK SQR COPY IF U COPY CLEAR E COPY RETURN DRAW COPY CLEAR MTAB RETURN RETURN ▟U RETURN RUN EABS RETURN PRINT COPY CLEAR U INK OUT RETURN ▛% COPY SQR @ INVERSE COPY RETURN ▟ RETURN CLEAR CLEAR V COPY © PLOT ABS ©[P] DRAW o CLS LPRINT RETURN EJeC RETURN [U] COPY COPY m~ FOR FOR [A][R]P LOAD _ COPY CODE ASN CLEAR {zJB▗▗H"▗AB& BORDER ▘0 DEF FN a▘P@EXP LPRINT RANDOMIZE ABS LN CLEAR TAB g DRAW -UK DRAW U RETURN BRIGHT [H] RETURN PAPER RETURN T[H] RETURN ▛ RETURN DRAW ▜ PLOT TAB K DRAW )UelLN 8 OUT CAT LPRINT _ PAPER FORMAT ▝[R]▞[Q] RANDOMIZE LIST CLEAR TAB RNDCUSR ▞@ OUT BEEP G OUT PAPER VERIFY BcUSR CLEAR RUN D LPRINT ▝sUSR LINE [G]CHR$ p ▘ RUN AUSR ▝U4▘ INVERSE W@▝[H]@d @t `▝ BEEP p` DRAW PLOT ▝Et ▗ FORMAT OUT LINE ▘H FORMAT CLEAR INPUT MOVE ▝[R] [N] MOVE U FORMAT ▘ CLEAR LOAD [B]} OUT o MOVE CODE "[A]P INVERSE CODE ERASE CODE COPY INPUT MOVE © RUN LOAD OPEN #SQR PI LOAD COPY SAVE vef[H]uuuuu FORMAT rs`ts t`sCp▘ CLEAR @ LPRINT [H]TPOINT EN COPY RUN BIN _ COPY OVER _ CLS NEXT OR _ COPY CLEAR OR O COPY PEEK ▖ OPEN #EO RETURN -DU RETURN PI PAUSE LOAD BIN _ GO SUB gEK INPUT [L] OR _TAB }E/s CLEAR BIN ^ CLS GO SUB _}sBIN _IN COPY OR K OUT ©▗_ LOAD CLEAR E~[B]k OUT COPY OR _ OUT COPY _ COPY RETURN e_ OUT GO SUB d▖- COPY CLEAR ▗_ OUT © `▝ CLEAR p▜ RETURN _ CLEAR COPY BIN + ▘ RETURN ▗0INKEY$IN <>] OUT BEEP OR ] COPY LOAD ▗[ COPY GO TO & COPY CHR$ D_ RETURN 5_ LET COPY T_▙ RETURN L© LOAD RNDC RUN COPY MERGE SGN USR BIN ▝V>=▝[A]FN FORMAT CLOSE #▝[G] CIRCLE ▝ VERIFY ▝ CLOSE #0▝ ▝ LIST ▝@8▝Tp@▘[C]▝PpL$ LPRINT 8▝R@@▖V[C][G] MERGE B% 48@T[E]T[M]p▘LVAL ▝,T[D]TjAT b@}~ABS DRAW o LOAD z DRAW COS CQUUSR f RANDOMIZE CLEAR PRINT v@t LPRINT f@ PRINT CLEAR } COPY f@ COPY RUN USR ASN ▝TAN USR SCREEN$ ▝FN 5LN ▚ IF VAL$ © COPY ABS OVER f▘ GO SUB Z[G]yiu▝©yD▛ DIM p,< DEF FN ▗[S]*x▗ ▖▝I LOAD ▝y+|▗ BEEP COPY COPY VERIFY OR ▞ BORDER W COPY COPY ATN [P] COPY COPY LIST STOP y PRINT zT GO TO 8 NEXT ▝ CLS ze[J] PRINT INVERSE OUT ©"$[E] RUN CLEAR CLS FOR TAB w^ BEEP R▖[R]("▗ ▚[A]▝TAB CODE ▝▙+ PRINT ▝:vxv LPRINT v x wv LIST S▙UH$P@▝[I][M]▘H@[Q] ▝ TO SGN ▝USR @0` CIRCLE ▝@0 H0`@ GO TO ▝ LIST @▝%8 p▝p▘ [P]@P@J"@t"VAL$ PAPER DAwASN KIN COPY TE CLEAR RETURN Ot▝ MERGE zPOINT [F]~ CLEAR CLEAR RUN ao PRINT IF PRINT h*[U]Y LLIST ▝j5SGN ▚jMhX▙p+ CLS MkhP ▖kVASN TAB X CONTINUE [A]k BEEP 9 STEP [[G]ASN VAL$ kU9 STEP k[G]LEN VAL$ 8▝[ )][D]kIN CODE COPY X`ikTAB PRINT h`-*<>W BEEP OUT $FN ( CLS w RETURN ASN ▝ .CHR$ B>>=B[E]▝ LOAD [M] OUT COPY CLEAR CAT q▗o61 LOAD ow9 DEF FN gzTAN TAB o{8 DEF FN fvASN TAB k▝eRUSR ▗ BRIGHT I[A] CLEAR FLASH IN ASN INT RND^ FOR LIST RUN v DIM " DATA [K] LOAD COPY © CLEAR CLS IN jCUASN IF SQR BKyTAB -K@▝*[S]▘©[U]j[Q]©U[Q]okvATTR n6PIwkTCODE zSCODE SQR j~CODE x OPEN #jCODE z REM FLASH PIzkfTAB zATTR 6 COPY ▗T COPY COPY FOR STOP VAL$ ~UUKj LOAD FOR T~| REM ABS kr LINE ▞6 MERGE KTi@TAB GO SUB iZVAL$ PLOT i@FN iZATTR OVER iZTAB TAB pL▘ COPY h:[E]▟TjIN CLS IN k LPRINT DRAW k LOAD ^ CLS ▞ CLS k LOAD _ PAPER W RUN _▞©k INPUT _ukTAB Uj`▘j!▝i RESTORE [E]Z[A]@h▘o CLEAR LOAD }`? PRINT CLEAR FOR BRIGHT COPY }]~IN .4▜ RUN PRINT RUN ACS INKEY$SIN ACS LIST [E] PRINT POKE @ FOR PRINT VTAB uVTAB ABS t@Z RUN v GO SUB a8&!8[C] CLS FOR v© CLEAR ©UATN Uja OUT POINT UR▙ew BEEP CLS VATN VATTR gO[F]SW[F]*[I] RETURN COPY LOAD # LLIST M CONTINUE [E]ABS PRINT ©nB[B]ABS PRINT COPY INPUT OUT IN CLS COPY CODE ~IN _▜ RUN PAUSE MERGE RUN ACS ACS [S] [C]T PAUSE THEN UK~TSCREEN$ <=jZU+T INVERSE RETURN ATN ▘f8▖6TSCREEN$ SCREEN$ ATTR P[L] FOR ~ LOAD mj SAVE READ ▛T RUN + LIST MOVE LINE vVAL$ NATTR 6USR T OUT `/▝t[U]▗j COPY COPY REM C[N]+v(6 CLS W CLS T(# FLASH ATN OUT > COPY _ COPY j LOAD IN IN c4▚ BORDER BEEP NEW ACS ACS INKEY$ ||||l ▜ PRINT } RANDOMIZE TAB FN AT TAB Y0IN CAT OUT W CAT PAPER PEEK SCREEN$ PAPER T#DU[I] LOAD COS ▟ MERGE [P]SGN q DIM /LN )q! CONTINUE OUT [F]Q FOR THEN CHR$ ERASE R LIST RNDh6USR DRAW RETURN COPY = MERGE `9/ CLEAR [R][M]|_ POKE PEEK } COPY COPY PEEK } LOAD RUN PEEK PEEK W REM | OVER RNDUy DEF FN s[Q]T MERGE _ RETURN CODE ©©©©©©© OPEN #▙▙[A][A][B][B][A][A]pp▘INT ▝xPEEK dTAN @▝[Q]D▘ RETURN ▝TAN ▗[Q]▘P▝<p▝< PRINT 4xp@@@PDp@p@`@l▘▘@NOT [F]!>=5USR 6 STEP NEW LOAD !L>=5~ RETURN /USR 69-0▘5-@[J]<>.> OPEN # RETURN E RETURN > OPEN # RETURN 2 RETURN } AND o0 FOR <> INVERSE COPY COPY @ BRIGHT ▜ CLEAR CLS CLS ▛ POKE PLOT PLOT RUN CLS RANDOMIZE CLEAR RETURN p.p8`B▙▖ww SAVE SAVE 77 COPY COPY <=<=SQR SQR TAN QTAB ▙© CLS CLS ||©©ABS ABS NOT NOT LPRINT prp| ▚PI©IN CAT USR 70 FLASH CIRCLE INVERSE BRIGHT CLEAR DRAW GO SUB GO TO LET LIST NEXT LIST PRINT POKE PRINT POKE GO SUB GO TO ABS SGN yx CLS SAVE ▜ LOAD LPRINT ?pSIN pSGN p AND p FORMAT p PAPER p DATA p INPUT p SAVE a[O] DRAW CLS LIST BORDER LOAD INPUT NEW DIM GO SUB GO SUB INPUT qq6Q@▚ NEXT NEXT CLEAR CLEAR MERGE ▗▟ww CLEAR [(LEXP ▝IN |▝ RETURN AND ▜}}q~ RETURN ▖[P] BORDER LPRINT GO SUB GO TO STR$ PLOT RETURN RETURN PLOT PLOT IF IF RANDOMIZE SAVE RANDOMIZE SAVE IF IF | FOR CONTINUE BORDER LPRINT OUT USR qqINT qBIN q DEF FN q CIRCLE q STOP q GO TO q PLOT p RETURN [Q] CLS LET LOAD OVER INVERSE INVERSE INVERSE [P]TAB -ATTR +COS 3SQR ;SQR ; INVERSE VERIFY LOAD ▝ DRAW r4b>▗ PLOT ▘ DRAW DRAW CAT COPY ▚IN IN STEP STEP RETURN RETURN ▝/brv2 BORDER LPRINT CLS SAVE POKE POKE @▗ CLS CLS }}STR$ RETURN = SAVE ▝ RETURN OUT OUT 66 PRINT POKE READ LPRINT [P]©rACS rUSR rFIN ▝IN (▝©VZPr INPUT r SAVE PLOT POKE ▖ STOP INVERSE ABS =SQR ;NOT {}}ATN 7CODE / CAT CODE /ooSTR$ w▛EXP 9IN ? FLASH FOR PRINT SAVE &s6▛ COPY ▚yy RETURN RETURN }NOT DRAW ▝ CLS IN IN AND AND 2©©p DRAW ▞ READ LPRINT CLEAR DRAW AND AND SQR SQR [I]▗99 OVER OVER INPUT <> COPY P▞ CLEAR CLEAR NEXT NEXT GO TO GO TO NOT rsUSR GO TO [B]IN OUT USR OUT USR o`o`CODE [Q]CODE [Q]_@IN 0▘_@1s PAUSE DRAW [M] STEP d STOP v GO SUB s>= INVERSE ![C]1 OR !c@NOT 2 TO INVERSE ![C]![T]H ▗)[C]![C] GO SUB {>=!cXw, PLOT INVERSE ![P]!h@ STEP LINE !FN ▘H▝H ▝FN ▝ CONTINUE [G]>D!hX[G] OR w, DRAW STR$ PRINT <>4PIp▝[R]s!@NOT x INVERSE INVERSE !VAL$ [J]▗ATN !#Lpp0▘W[P]@©▝ CONTINUE ▛0©▝▖@y!FN pypy▝▙!bX6D, CLS .d ▗ INVERSE !▛[P] MERGE ▝[T] FLASH ▘NOT B LLIST ▘ READ D BORDER ▘#L GO SUB ▘CN NEXT ▝ GO SUB ▝NOT NEXT ▘ READ J▝<>P INVERSE ^ GO SUB [G]!`PCODE w, DRAW $.` RUN INVERSE !>[Q]!RNDP2▗RNDZ z[H] STEP [D] STEP >=▟vCODE FLASH RETURN / NEW CHR$ ▘ OPEN # POKE STEP [C]pP▝pp(▝[E]p<@<▗NOT d[D][D] STOP ▚ INVERSE !T[Q]!▜!CHR$ ▝ BORDER !>=▝'!CHR$ ▝g!>=▝PI! DEF FN ▝ BORDER ! CLOSE #▗▗X!(FV▞:>= VERIFY USR 2>=/ VERIFY ▗>C STEP fRL▖a[E]!PF1 AND "Ln[E]!RBP▗{[E]!T`▗▖[E]!V`▗[F][E]!X@4l▚ INVERSE !USR [Q]!▗"X▝"R▝$_▘!D!}▝▗!▝[U]!PX OR !BIN ▜STR$ POKE ! DATA Y@SCREEN$ !ZP▖Y OR @BIN (▗ OR vw▖STR$ SAVE v CLEAR ▘▝@▝2▘! DATA DATA 1[C][N]( SAVE * >= POKE " >=:>= AND 2>=!:>=4STR$ NOT BRIGHT BRIGHT COPY COPY POKE ▘C$ "▗"@A"▗0▗A▗O▗DDD@D COPY ▞|▜AUSR A▘E@ _[F]DDD@0USR [O]▘^ FORMAT ^CHR$ ▗B0USR ▝DUSR INPUT USR CUSR [R] INVERSE LLIST ??▜A 0[P] DATA ▗ DATA ▗0 LPRINT [Q] LPRINT [Q]0@D!`C▝ RETURN ▘AD[A]A@ CLEAR @ CLEAR @^▚C▘▟FERFREIEHIVE CAAUCD!_▗D▗DD▝ LPRINT [N]STR$ STR$ STR$ ▝C1[Q]`▝>DJDAK@[Q]USR ▝1USR ▝1USR C" STOP LPRINT STOP "N▝ STOP D`[Q]▝?PI▝o▝[Q]USR r 1©r 1[Q]▚RER▗DHEH▝D@C` LPRINT "[R]▘!B▘!B LPRINT B LPRINT "[O]▘DABS D▝pUSR pUSR pUSR ▝|R LPRINT ``" LPRINT ▗ A">▘@"@`" LLIST aB▝ AND ▝![Q]0AVAL$ CHR$ [Q]CHR$ ▝EgS[Q]~2 LPRINT ▝2 LPRINT [Q]r@▝"@▚ACHR$ `@A[Q]▝0@▝0@"▘3©"▘1_▝1_▝1_▘USR ▘R@C LPRINT LPRINT LPRINT ▘@USR s ▘4# ▝ LPRINT S"?▝*L▗E1[N]`▝ OUT ▘[R][Q]▝CHR$ <[Q]<"[Q]▞AAE © READ [Q]▝t COPY ▘$VAL$ ▘[O]▝A▘@STR$ ▝D RETURN ▝0`▘$% # LPRINT IN ▘#CHR$ ▗A▘▗DbUSR C▝USR ▝▝A3D LPRINT %?▝D>▝ LPRINT %?@E@ LPRINT ▘![P]b▝ LPRINT LLIST [Q]▝" LPRINT ▝ ▘D<# T▝ATTR OUT 0_0PEEK 2@▘▘2[Q]USR ▚USR ▝▗rrr LPRINT 4@%[Q]!IN @%[Q][O]▘ 3@©[Q] [Q] ▗ LPRINT IN ▝ READ =▝ READ B▘AD5 LPRINT 4 LPRINT @▘A@USR $ LLIST / STOP ▝"@[Q] OUT ▝A`USR | LLIST ▝D| READ ▝D?▘ PRINT ▘DDDPEEK ▗@5' ▝W #USR &`F`▝[Q]BIN 2[Q]aP[Q]6IN SCREEN$ [Q]@EV[Q]bb▚A LPRINT '▝CHR$ ▘ ▘Cw@▝"`DA@© RETURN ▝ SAVE IN ?IN ?©©STR$ ~ABS =NOT LOAD OUT OUT LOAD LIST © RETURN © RETURN O RETURN LIST CAT ?? CAT CAT RUN RUN ACS ▙ CLEAR DRAW CLEAR DRAW CLEAR DRAW IF IF NEXT NEXT STEP STEP >> LINE RANDOMIZE SAVE <=~INT © RETURN o RETURN ▚< THEN NOT RUN RUN STR$ CLS ▚}}SGN <SGN <▘}} RUN RUN <>STR$ >© POKE © RETURN © RETURN n@x▚>> OVER OVER ▘>>▖ CLS SAVE BORDER LPRINT © RETURN © RETURN O RETURN IN GRAJDANESPASTI NUJNO 16 hASIKIVOSSTANAVLIVAqT VREMQMUSORKI▚ ZA KC[C]Uq b 200 OhKOVPAN;NAjS▟I UNIhTOJITX.USR [F]DJO BLEjDA eTO VY !p▖PROLOG..7[M] DVORE STOIT 1995 GOD.ULICY▖RODA ZAP0▗NENY n▘AMj▗PODO G▜MIRNYE w[B]ELI BOQTSQ VYHOD[H] IZ SOBSTVENNYHKVARTIRBIN .▚TOLXK [L]▚MOJETEOhI": ▝ & M RANDOMIZE ▙LqBAQ KNOPKA PLOT ▘PR5▖ENIQ'O' AND .VO'R`▝V(▝M`$▞PRYJOK'gp6▖VVERH'ApH.VNIZUH T?▘!! INK FORMAT ▘RA GO TO ▜PQTERKUS▖YGAqxIH !VAL OK I6UhA OPEN #▜PRIZY :[C]ESQ▛KLqhEj I 5Q LINE [K]<=▝J]LN KLAVIWUSON ! COPY GO TO UIN TU{Tk COPY GO TO /x POKE k6lZ4tx0|/pt© LIST ||t[|z|x DRAW x? DRAW x8 POKE x6|X$▝l0▝o @▝p@p@ @▖pt[0|z0|R|p|0{0|Z0p@p@ppp▘|@▘© LIST [I]▝_l_ SAVE p▝T[C]_<= POKE ©COS GO TO _[T] POKE © DRAW _ POKE } DRAW ▘©©|▝w $0qqqqqqqq@q@qqqq@q@qqqqqQ▞SCENARIj,▘FIPEEK D▘RO▝M?▚OVANIE"▙KOLIN SVINBURNCHR$ ZVUK p@▞, eNDI SECODE ▝N IF MAjK [F]▝U05:128▙▘ZY*V MENq: MMSM` _▖IKS IGRY CAT 0▖K,A TAKJCOS OLNk▗RUSIVAL$ CIq>▖IL PETUHSIN [C]ILXQ.IJEVSK 29.06.[I]▝2y▝ FORMAT LIST ▝ POKE [D],*,.*..&.,.*,▝&▘&* ▗&,&00<-0▝* L,DG▗&,,[▝.0 j▝* Cu▝,k.tdt▘thNOT t▗p4tT▘dTP▝d"htp +▝h"$▝d.▘t4p@ FK0C!▝4PIZ E RETURN [B]? RUN ABS RETURN COPY OUT COPY © COPY PRINT BEEP COPY COPY OUT RETURN [O] RUN NOT COPY RETURN COPY W INVERSE COPY COPY DRAW B▗ COPY @_ COPY VAL$ [Q]"@%wASN ATTR COPY OUT ]© COPY U RETURN MERGE INT CLS IF IN COPY TAB kIN FLASH PRINT © COPY CLEAR w COPY OUT PEEK [U]+ RETURN CLS COPY COPY ©V▘ CLS FOR 0Z▗IN COPY ©©e▜ OUT RUN COPY CLOSE #'}6▝ COPY x▘ PLOT COPY ▞▗ DATA . INK ▛tFIRMA dP[A]ERSdSILA ES!b U▞NE NADO!0*`) LINE 9881VAL$ LN 2.e PRINT ▗E3.8▘RT" LINE wBORv▝Q8 KEMP READ ▘N ▝j}▘K.A▞ SINKLER pJ5~ATURAC m▘VY$▗VAj,A! 7[L]▖e▖I NOT 0▜OPCII: CLEAR F READ KURIN ▝ &U0LLpZ@eOGONX▝SSCREEN$ ▚A PIKT4▝&<= CAT [I]▜NIj RQD [F]& STEP F▘NI[Q]`▘SE INVERSE ▛▝K1▚DOSTUPZLOMAN▚VAWE IABS ▝,(;oKVIDATOR!#▜REKORDY DATA THEN h▖ REM ▝IN POKE PLOT ▘ X INK ▗PERV[Q]SA! LINE ▝R COPY ▝hU▗Z 60AT KUNSGN Bo`'▜TRETXQ 5 LOAD ▘NO<▗ 4 LODECASN M"▚ZAKONh$ GO TO TAB ▜NQ TEBE CAT ▘RI▙LX,I▗POVE NEXT ▝!wR'RSX▙@▝=|1ET1 INK 0d▝I +1[T]%▝E[N]▗NEC! CIRCLE ▘ZDq▜QEM VASU▗Y ZD-▗VO SILIe▝SCOS PAUSE ▝I'▝IVAL$ CLOSE #VESX)Z OTUPNFN ▝I(]▝ COPY COPY COPY FORMAT RETURN ? SAVE COPY RETURN COPY SAVE COPY DRAW SCREEN$ jAT SCREEN$ SCREEN$ SCREEN$ AT SCREEN$ AT TAB V VERIFY COPY VERIFY INVERSE VERIFY OUT V INVERSE OUT V RUN V BEEP V COPY ATTR INT IN REM ATN IF IN REM PEEK IN REM ABS REM ABS REM IN PRINT PLOT ▘▚ PLOT COPY PLOT CLEAR ▝ OUT ▝ CLS (▚ PAPER IN jIN IF (▝ PAPER ▗ IF COPY GO SUB (x@([B] CLS IF COPY REM COPY COPY IF RETURN COPY IF COPY IF SGN INPUT COPY PLOT IN d▚IN IN INPUT IN INPUT Q▚ RUN IF IN PAPER TAN ▝ VERIFY 0(IN ▘ CLEAR [Q]▞ PLOT COPY SCREEN$ COPY AT COPY COPY 3▚SCREEN$ 7 CLS PAUSE P▗ PLOT CLS X▝ RETURN R▞ PLOT © PLOT REM COPY SIN OUT LIST ▝AT d▝ INPUT CLS OUT GO TO RETURN TAN ▝USR P (▖ RETURN COPY IN SAVE VAL$ PAPER ▘ REM COPY TAN ▙▟ COPY VAL OVER PLOT IN PLOT IN RETURN IN PLOT [Q]▝ RETURN ▙▜ LPRINT PEEK IF COPY PAPER COPY j(b▘ LOAD IF ▘ RETURN USR ▝! RETURN SCREEN$ RANDOMIZE @▘ COPY IN BRIGHT RANDOMIZE ▗ PLOT EXP IF IN STR$ COPY MERGE RANDOMIZE ,▗ COPY IF RANDOMIZE ACS 17▝ CLS ▝ REM ABS ▟IN jIN RETURN EXP IF ABS REM IN z COPY CLEAR [J]▝ VERIFY I[D] INVERSE VERIFY OUT IF RANDOMIZE VERIFY BEEP V BEEP VERIFY COPY FOR mAT vAT ATTR j[U]▗ATTR RETURN POINT SCREEN$ ![U]▗ASN U? SAVE Q TO RETURN RANDOMIZE RETURN 1 TO O FLASH = IF PLOT CLS DRAW RETURN DRAW CLS 0▘ RANDOMIZE LOAD LOAD LOAD RUN RANDOMIZE ▝ COPY ▗ LIST INPUT IN ?jjl[G][P][P] CAT CAT COPY COPY ?? COPY COPY ~~KWW[F]USR USR }}zz PRINT PRINT CONTINUE CONTINUE LIST LIST 70 BEEP FORMAT LOAD LPRINT LOAD -[K][K] RUN LIST ATN VAL [X CLS SAVE UTPOINT FN ut DIM CONTINUE MERGE T//STR$ OUT [K]__CODE CODE QQ[T][T]IN IN ??IN IN VERIFY VERIFY ||▝SCREEN$ ▝ SAVE ~[E]~[O]N ERASE ? CAT USR LOAD LPRINT RUN LIST RUN LIST ▝ BORDER n▝ OUT OUT USR OUT USR OUT USR IN ©@ CLOSE #▝ CLEAR @ OVER 0 LPRINT ©©©(©2?<[Q] LPRINT O[K][K] LPRINT LPRINT ??'' NEXT NEXT COPY COPY IN ? OUT LPRINT CHR$ ASN 5NOT u▚VAL 0NOT RUN P INPUT yy||IN ?uPI CLEAR DRAW TAB AT RETURN RETURN MERGE MERGE REM REM INVERSE INVERSE IF IF MERGE MERGE LPRINT LPRINT ▜▜// LOAD LOAD CAT CAT BORDER BORDER BIN BIN SQR SQR NOT ©[B]SGN SGN @@[I][I]IN IN ||©[E]>=©© ▝? CONTINUE bQ▘ RUN LIST ?P(© DRAW © PAPER © DATA © INPUT © SAVE © RETURN _ RETURN [G] DRAW [L]ffLN 8 CAT LPRINT <>SGN <IN ?NOT STR$ 2 SAVE RANDOMIZE SAVE P▚ RUN RUN RUN `▘ CLEAR h/▝ DRAW ▝ LIST ▘ COPY ATTR ATTR SCREEN$ [I] PRINT PRINT IF IF RUN RUN RETURN RETURN PRINT PRINT SAVE SAVE BORDER BORDER OO//▜▜SQR SQR 9R[D]??@@SCREEN$ SCREEN$ POKE POKE IF IF POKE POKE yx▗ LET LIST RANDOMIZE 20 PLOT ▜_@[P]▚_@[P] CONTINUE dh1 INPUT ▝?p POKE r8rBrLrVr`rjrtB~▜ NEW INK INPUT PAUSE 0▝ LIST R▗ CLS CLEAR N0 RETURN 1S@▝ RETURN rp▗SCREEN$ SCREEN$ AT [H]}}>> CLEAR CLEAR COPY COPY }} RETURN RETURN SAVE SAVE CODE CODE CAT CAT RUN JT[C]<<BB CAT CAT PIPI OPEN # OPEN #ii[A][A]<><> NEXT NEXT USR 2 ERASE ASN o` LOAD LPRINT WPPI[Q] BEEP FORMAT PI[Q]WPg`ATN VAL OPEN # FORMAT MERGE CLOSE # ERASE ERASE VERIFY VERIFY SIN SIN ▚▚""ED[T][Q]C@[T][Q]SP[T][Q] CLS SAVE READ #3 CONTINUE t4 PAPER pPEEK PPEEK tttt©©<<<=<=▜▜PPEEK [A]©©aa BEEP BEEP ATTR ATTR MOVE MOVE " BEEP FORMAT [C]▝tt[T]UT▝00 PAPER PAPER <><> REM REM DIM DIM REM REM <><>CHR$ CHR$ [B][B]''USR USR FN FN MERGE MERGE CLEAR CLEAR yy"X▝ LIST tts▝IN ▘_@S INPUT 0.2StttXtbtltv▝ COPY D▝▜$▖USR INT :||xxSGN IN ? CAT NEXT POKE GO TO REM tttT▗▚▚{{NOT CLEAR [K]}} CLS CLS SAVE SAVE PAUSE PAUSE BIN BIN ** POKE POKE zz55[K][K][P][P]>>ttt▚_@/ o`/ _@?1▝?u>uHuRu/ufupttttttttttttttttttt POKE v8vBvLvVv`vjvtGtt7PuttttT[K]--]]^^XXWW//oogg POKE POKE CONTINUE CONTINUE MOVE MOVE ▗ THEN THEN RUN RUN t▝t▚ CLS SAVE CLEAR DRAW CLEAR DRAW STR$ RETURN ▙~~ RETURN RETURN CLEAR DRAW CLS SAVE ▜▜▜70 RUN LIST <=&[U][K] CLS PLOT RUN LPRINT REM RESTORE FOR RESTORE REM LPRINT OUT IN ?IN ?x▗xx~~CHR$ ▚ OUT LLIST LIST ▜ LLIST GO TO LOAD READ 'CHR$ ▘UU8▘PEEK PEEK VERIFY ©©TAN TAN INT INT zz REM REM LIST LIST POKE POKE PLOT PLOT NEW NEW //▛▛[G][G] OPEN # OPEN # LOAD LOAD ▞©g[L][I]wp CAT [O]▘O@VAL ▝'INKEY$[O]V AND 7SGN v DATA ▘pxxxx x*x4X ERASE [K]▚ SAVE IF RANDOMIZE ▘ IF SGN uPEEK 5 FORMAT xXxUSR ▗ MERGE MERGE [Q][Q]j[I]CODE CODE __ LOAD LOAD ©©CODE CODE BORDER BORDER LIST LIST PAUSE PAUSE POKE POKE LLIST LLIST INVERSE INVERSE 6USR [F] DRAW DRAW UU//__//[O][R]![P]INKEY$[E] INK USR ff NEXT LIST [D][A]=< CLEAR DRAW NOT USR VAL$ BIN VAL$ q4TAN 7 OVER ▘[P]@@yyyy y*y4y>x RETURN 7[S]WFN ▚ IF POKE PLOT POKE IF DRAW "7 TO 6 ERASE .[J]?ASN 5hh©©ATTR ATTR WWSQR SQR __ATTR ATTR aa OVER OVER NOT IN [K]PEEK PEEK OUT OUT OO##TT//^^AT AT YY RANDOMIZE RANDOMIZE ||V PLOT LIST YY DRAW DRAW DATA DATA @▗ LIST LIST LLIST LPRINT VAL$ ▖]/>>BIN [C] CLEAR DRAW NEXT LIST CAT USR / 70WPATN VAL a`[O][O]*▘ DRAW H SAVE u TO x CIRCLE zz$z.z8zBzLZTAN ▗ CLS IF 28INT AND LINE Z4▞ LIST LOAD GO SUB PAPER OUT DEF FN ATTR SCREEN$ *[F]VAL$ .[H]SCREEN$ *▝[[[D][D]WW[H][H]WW[D][D]CC▞▞ DATA DATA ATTR ATTR IN IN [O][O]STR$ )[O]▝▘VV8▘ RANDOMIZE RANDOMIZE @[A] DRAW DRAW SAVE SAVE RETURN RETURN <<STR$ STR$ READ READ LLIST LLIST LOAD LOAD 9[B] RETURN RETURN xx▚▚ FOR FOR MERGE MERGE ▛▛D FOR BORDER g▗[P]o` BRIGHT 9 PLOT 0ys*$▗wp▝[P]+t▝ LIST t[T] NEW GO SUB THEN ATTR +KKkkMMaaDD[S]" OR CHR$ OR LINE OR CIRCLE OUT <= DATA ttT▖ LPRINT LPRINT PRINT PRINT NEXT NEXT LET LET PCHR$ USR ▚ NEXT NEXT RESTORE RESTORE THEN THEN ▗[D][D] CAT CAT <tt9VAL yCHR$ ttt||||$|.|8ttttt|tttttttttttutt}}}}}(}2}<| DRAW s IF ;INT >>]pT&=|tt▙ LLIST LLIST POKE POKE RUN RUN NEXT NEXT BORDER BORDER ## INVERSE INVERSE NOT RETURN [A]==QQFN FN USR USR CLEAR CLEAR >> PAUSE tD▝ LPRINT $▚C@TAB AT NOT VAL$ NOT DEF FN ▚o` RUN LIST wpttt| CIRCLE ~~&~0~:~D~N PAPER ▝ NEXT SIN Qn$7.&7 STOP tt▖[H]ATTR * POKE POKE STR$ CLS [J] IF IF PRINT PRINT OR OR CIRCLE CIRCLE CLEAR CLEAR DRAW DRAW CLEAR CLEAR xxkk>>▝,[Q]tt▘ SAVE SAVE @▖ ERASE FORMAT CONTINUE CONTINUE REM REM [C]XXPEEK PEEK ^^CODE CODE GO TO FOR X?▝td PAPER ] DRAW 3 GO TO tt|USR |USR ▚ SAVE NOT LEN 1STR$ zxxINT : DEF FN ggSTR$ o▞vvASN 5PEEK > INK BORDER w|USR |USR HUSR [K]YYABS ABS INT INT ABS ABS LET LET RETURN RETURN COPY COPY JJ[F][F] PAPER GO SUB PSGN 4FN xUSR <USR ▗yx0 IF [J] LOAD LOAD PIPIIN IN ??[P][P].. INPUT INPUT CODE CODE sl[E]© RETURN © RETURN _{ INPUT W<©*_}} LIST GO TO OVER OVER OVER PAPER ▝ DRAW - DATA ▟ FLASH FLASH INVERSE GO SUB LOAD PLOT RANDOMIZE oz}}▘USR ▙[G][G]//VAL$ VAL$ CODE CODE || AND ▞ ERASE ERASE RNDRND@@ACS ▚{B<PEEK }}A@[O][O]?)|©©SQR SQR CCPOINT POINT GG▟PIPI@@SQR SQR kkSTR$ STR$ © DRAW © LINE | DRAW , IF ©_▝/,2~}} LPRINT ? CIRCLE ©INT INT $▘ PLOT &r IF }}][Q][Q]RNDRND▛▛ATTR ATTR FOR FOR COPY COPY POKE POKE iiPP GO SUB LLIST [O]m|7}=RND FORMAT FORMAT BORDER BORDER [P][P] OUT OUT VAL$ VAL$ FORMAT FORMAT SCREEN$ SCREEN$ FOR FOR NEXT NEXT POINT POINT PPVAL$ VAL$ PAPER PAPER pp▜© TO | RETURN m L▖ CLS SAVE CLS SAVE CLS SAVE {x/▝*:F70<=© RETURN © RETURN { CIRCLE G REM >P}}RNDNOT LLIST <=<= CONTINUE CONTINUE DIM DIM STOP STOP REM REM ::USR g[P][P]IN IN ABS ABS PAPER PAPER CLOSE # CLOSE # CLS SAVE g`[P]zB}mRND POKE POKE RANDOMIZE RANDOMIZE READ READ gg RUN RUN FOR FOR POKE POKE **BIN BIN IF IF DRAW DRAW **TTkkACS 6 BRIGHT LLIST ~ CONTINUE }M▗ BORDER LPRINT /▚PEEK PEEK >>[O][O]<}|SQR LN SQR LN ABS SGN STEP LET © CLOSE #{+▗ SAVE BORDER /▚}}||yy<▝PEEK SIN ▛ INVERSE INVERSE ABS =LN 8COS 0{{+[U]//[P][P]<=<= LPRINT LPRINT NEW NEW LOAD LOAD BEEP BEEP //TT##__??TT** VERIFY VERIFY ml;8QUSR {{[R]▜ LIST LIST READ READ [H][H]GGWW// NEW LPRINT RANDOMIZE RANDOMIZE CLEAR CLEAR ABS ABS [[++ OUT NEW s© RETURN © RETURN j© NEW tz"© CONTINUE © DRAW [[Q] TO ▖ OUT OUT OUT OVER BRIGHT ▝ LPRINT -INT ▜ LOAD INPUT {;[U] BORDER BORDER LET LET SAVE SAVE RANDOMIZE RANDOMIZE CLS CLS uuUU▖▖ BEEP BEEP CAT CAT [F][F]@@uu[[{▘ LLIST LPRINT RNDRND MOVE MOVE MERGE MERGE BEEP BEEP ▛ COPY COPY //[G][G]ATN ▜ys{{y RETURN m:$▘o`&?©© RETURN © RETURN 4}}▝ SAVE / AND 78▘yy DRAW .| RETURN RETURN INVERSE INVERSE CHR$ CHR$ [F][F] STOP STOP ▟ RESTORE RESTORE FORMAT FORMAT INVERSE INVERSE VERIFY VERIFY 8t{w▟ii POKE POKE uu PRINT PRINT @@>>F▞KKRNDRNDma OVER pCHR$ {{* DATA ▖70{x{x{xZ▝?.d▛ FLASH CIRCLE FLASH CIRCLE SQR LN ATN VAL RUN LIST os© RETURN © RETURN ~{ INPUT C IF T©@@▗ LPRINT [O] LIST IF ▖ RUN RUN LIST LIST RESTORE RESTORE SAVE SAVE ▟ RANDOMIZE RANDOMIZE ttww PRINT PRINT LPRINT LPRINT DEF FN N ERASE ©@©@_@[K][K]ABS ABS ]]ABS ABS PP@RRPOINT POINT [XATN VAL ^ DRAW ©@©@▗NOT USR ▟STR$ ^]/sp[J] NEW NEW STR$ PLOT ▜nnTAB AT }|[L]wUSR DATA >F INPUT ▝ LIST b▗ LOAD ATTR FN j▗ OUT DDr©&▙ READ READ 11IN RETURN BORDER BORDER SSIN vPIPI_@USR >=23[P]▟INKEY$& LOAD LOAD CAT LPRINT COPY ABS =[P][P] LOAD ▗ FLASH Z[E] STOP FOR CONTINUE COPY DATA ▜▜sp COPY RESTORE PP▗ CONTINUE RNDRND▗ DIM ss REM RUN RUN LET PRINT RUN RUN LLIST H[M]▘ CLS Ah▘ PRINT ▝ RETURN RETURN POINT [S]▜ PRINT POKE POKE UT COPY [A]▘ IF IF 0▖ CLEAR CLEAR DIM h▘ MERGE CLOSE # ▘ COPY COPY ▚ RANDOMIZE ABS ABS THEN >= SAVE ▝|USR =▗ LOAD CAT USR OVER ▘ MOVE 1▗[S]" CLS SAVE ▝`` COPY <=<=© BORDER BORDER ©▗ RESTORE RESTORE xx[O]88 LIST VAL$ ▘ TO TO (▚ NEXT BORDER BORDER ed[G]▗ MOVE MOVE ABS SGN N▗ CONTINUE CONTINUE FLASH CIRCLE N ERASE ERASE G.▚ OVER RNDRND/ ^▗CODE [Q]▗PIPIWPn FLASH FLASH [H][A] COPY CODE /TAB TAB ATN 7 GO SUB GO SUB PI ▗POINT ) OVER OVER [I]▗INT :==0▗CODE / RANDOMIZE RANDOMIZE FN ▗IN ?kk0 BEEP BEEP O▚▗ATN 7 COPY COPY 0 ▘ COPY COPY p▝ COPY ASN 5nnp▗ OUT CLS CLS CONTINUE ▝ LPRINT LN 8▝ DRAW @ CLS BORDER ACS P~ PAPER ▗<= PRINT PRINT V▗ CLS CLS SAVE STR$ RUN ▝? SAVE [U]▛▛ INPUT INPUT _@ CLEAR ++ POKE POKE / DRAW QQ CLS CLS / CLEAR (( RETURN RETURN [H][A] CLEAR ▘▘oo▚pp;;WP6▙ RETURN ▙▙ATN VAL CLEAR ww OPEN # OPEN # LOAD LPRINT CLEAR X▗ COPY COPY LET LET H▗{{ REM REM P▗ RUN RUN CLEAR CLEAR X▗ COPY COPY PLOT PLOT 0P▘ IF IF pP0 ▗ RETURN RETURN DRAW DRAW ▖▘ABS ABS p [I]▘ OUT OUT P0▗ PRINT PRINT _@[U] COPY PAPER PAPER FN ▗©© LIST LIST LN ▗[N]SCREEN$ SCREEN$ LPRINT © RETURN © RETURN ~R~/~f8▚ DRAW USR 8>`t[P][K] LPRINT STOP COPY LET LPRINT LPRINT xzV▗^▗ DEF FN ▗? PLOT ▝y▜ GO TO y CLS ©▝ RANDOMIZE Pp ▝ DRAW @ ▗ RETURN {©@©6 H▝©HX? GO TO h[M]FN LPRINT LPRINT {[I]▝ RETURN LIST FORMAT RETURN [P]▜VAL$ ]USR LN ?NOT ▝BIN ▜[G]CHR$ ▜( THEN [T]NOT ▝ DEF FN NOT 0▝ COPY STR$ ▝ COPY ▘20P&10:p RESTORE q1▝q TO qqqq COPY COPY LIST [H] INVERSE ~ INVERSE # RETURN © FORMAT DRAW THEN o( THEN w( NEW USR [O]_ RESTORE w$| NEW } AND o8| VERIFY g FOR LLIST ,NOT LINE ;▝<> PAPER ▟ INVERSE !hINKEY$!▖D STEP LINE !L▝E ▝ ▙▖X6D, CLS !Y0▝E`▝P[G] STEP LIST STOP > RUN FLASH RETURN / NEW ( RUN . RETURN . RETURN [L](& THEN "<> STEP >=▟v CLEAR NOT [Q]_!XCODE Gvw#w#▙ RUN !@@ COPY w GO SUB VAL >GE`ACS ▜ FLASH NEW 2_▟G NEW O THEN @( THEN <> THEN H▘STR$ y0[A]CODE > CLS FLASH RETURN NEW AND > CLEAR P▗>©▝▗> OUT [T]▗O▝0T3K▗*>= DIM *▙:>= NEW USR !H>=~ RETURN 0USR , 0[H]STR$ STEP d STOP INVERSE !fD>!fX STEP MERGE INVERSE ![I]FN !*H7▝e ▝ FOR REM CLS d FOR NEXT INPUT [B] BRIGHT BRIGHT :c>= RETURN d CIRCLE :>= RETURN CIRCLE 0fN▘>PPN▗ LINE FN ! N▗Y1s▝d ^▝[U] d▝ DATA j▘STR$ CLS J OPEN # b▝v BRIGHT ▝CODE !▘( POKE BORDER / CONTINUE ▞ M MOVE ~[T]SIN w,0pw$ir"2" MERGE INVERSE DIM r COPY COPY CAT ▜PNOT ILqHA DEF FN ▘05$ INPUT ▜SGN ANDRp"` 007KOLQN DEF FN .▝6.▜ POKE VOVAp p@b▖ COPY [A]IGORpAp`▘04n▗,Tp`>= ▙▝3▙>=PENTAGOpP[Q]▝2VAL$ ▞XPROFIK STEP @[Q]▞! STEP ~INT USR ,▗ RESTORE INVERSE LLIST <> OUT ▘ LOAD S FORMAT ▞ STEP ERASE LINE INVERSE ![T]PI!JABS @/▚ RESTORE OR #SIN STR$ LLIST PAUSE STEP DEF FN ! CIRCLE ▘▝B ▝▝▘ ▝!▝CHR$ !▝ ,▝T,▝ , ▝ , ▝ ,+▘2 CAT B~▝ SAVE BEEP NEW O[F]*>= INVERSE } NEW LPRINT INVERSE o INVERSE N INVERSE F GO SUB B CIRCLE INVERSE 4 tp@ PAPER d MOVE [N]p8P▝@ AND pVP<▝@< LOAD ptPZ▝@Zp[C]Px▝@xApVAL P[G]▝@[G]p DEF FN PTAN ▝PNOT d MOVE %}g[G](! GO SUB xRND>= THEN THEN m( PRINT THEN zATN GO TO %[L]<=<>d STEP NEXT STOP KNOT NEXT STOP SIN BNM HJKL YUIOP6789054321TREWQGFDSAVCXZ ~ATN :# INVERSE #[H] RESTORE INVERSE RESTORE INVERSE 6 COPY INVERSE 6. INVERSE # SAVE INVERSE !▜PI!+% READ ▝h% DIM ▘ YB+▘!`P▟ NEXT CLEAR ">= INVERSE LLIST CLEAR LLIST INVERSE RESTORE !INKEY$>= CLEAR *>= CLS NOT ! CLEAR *>= STEP >= CAT zATN ( RANDOMIZE RETURN g▝ 0"[C]<>& FORMAT o~ CLEAR w CLEAR # CLEAR } NEW RETURN ▖ LPRINT AND CLEAR oNOT z FORMAT COPY COPY TO MERGE $2[A] MOVE z INVERSE w[O][I]u INVERSE t INVERSE RESTORE STEP 2 FORMAT INVERSE LLIST !+>=~ INVERSE w INVERSE ##[H]▘ DEF FN COPY CONTINUE !Y▝▛ CLS !<>>=)▘[Q]ZQEXP "[Q]Z"USR Z"PEEK Z" OVER Z INVERSE ▘!HSTR$ ▘!@`#▝' FLASH 4@V▝USR P@@F OR MERGE GO SUB VAL MOVE STR$ FOR xJ8J▖ FOR READ !@X@(:`>= INK [J]X!d>=f>= OR MERGE RESTORE :a>=PEEK : INVERSE o#:b▗/ INVERSE gASN 5, DRAW vv SAVE !H'&▝FN ',▝ CONTINUE '2▝4@ LLIST MOVE STR$ STR$ #STR$ ▘VAL 'SQR CODE LINE ▝ STEP OPEN #NOT [C] ERASE OR !IN P OR RESTORE ~ THEN - IF LLIST STR$ $ LET STR$ CONTINUE !>=5USR 6 INVERSE *>="▘ INVERSE } , INVERSE ">=y!i!y y ▝<>y7y7PUd▚ STEP n VERIFY INVERSE !▚ RANDOMIZE ▝▚7 RANDOMIZE ▗INKEY$!H)0▝)0▝!q▝J)<▝)B▝ LINE H▗>F!h>▞w, DRAW !$Y ▗%Z▜>D!jY ▝SCREEN$ P▝ REM @ INVERSE ! THEN INKEY$> STEP P MERGE STEP VERIFY GO TO 6#6C CLS 6 STEP NEW CAT v|[S] STEP DIM CAT RETURN 8 LET RETURN 0 GO SUB STEP GO TO CAT RETURN LINE d[D] RETURN LINE &a RETURN LINE Ba<><>!@a RUN ▘x# BORDER ▜6x SAVE IN z COPY COPY MOVE [B] RESTORE K# DRAW PLOT LLIST [U] AND @p▖ INVERSE RESTORE LLIST SCREEN$ &w#&{ STOP [E]O▚!`Z OR ▝ OVER ▘ LOAD [I]▜Z STEP [Q] STOP .▖▝▝▗:>= AND o>Fu▘PEEK Z+U▘QPOINT NOT d LINE ;h[K]:>=ATN >=: IF OCODE OR INPUT OPEN # RETURN A RETURN STR$ PRINT <> PRINT <>P▝ GO SUB PRINT OUT ▖[U]!A@ MERGE ▞w$ IF STR$ LLIST READ ▗0| AND READ CONTINUE !^pp@▖RND! @w,▘STR$ LLIST =▘@WpT% LET tc[L]VAL ![G] @ THEN PEEK CLS >2 IF ! LIST ▟a[E] IF | RETURN NEXT LIST !" IF !pJ" IF |d COPY ~ BRIGHT ▜CODE [S]w,w,| INVERSE L INVERSE ▖6 DRAW -6 COPY -6©| PRINT < PRINT ▘ DIM ▝w--}M▞ LLIST 6©,6 COPY ,6 DRAW }.=.▚>w-w-}EME▝<>▗ THEN INKEY$!#L▝R▚ STEP INK STEP PAPER P MERGE NOT FLASH ! CIRCLE >!r CIRCLE >!}t RANDOMIZE [E]G THEN G( NEW > AND }W THEN pCHR$ < CIRCLE STEP ▘,@USR -} CLEAR M CLEAR BRIGHT <>g3▘& CLS CLEAR i▘~)`p@`~ANA CLS CODE THEN E( AND THEN M@ THEN U THEN ] THEN e▝ STEP AND THEN u$ THEN }*w,CHR$ !B@STR$ % RESTORE INVERSE ~g▘ CIRCLE LLIST STR$ ,▙STR$ INVERSE , INPUT !CHR$ @STR$ RESTORE !BHp p ▝H ▛<>CHR$ :>= AND [G] INVERSE g:[J]USR 1▟">=v OR !B~#▖ PLOT STR$ LOAD STR$ DATA LN PEEK CIRCLE INVERSE LLIST v !9/'D! PRINT !H PAUSE GO SUB VAL 0 IF CODE INVERSE w INVERSE w STEP [Q] GO TO STEP >= INPUT NOT t▚ CIRCLE INVERSE ~!Zq OR COPY PLOT ▚!▝T[Q]USR MERGE ▜ STEP BEEP !T MOVE ▝▞0▝▟0!▗▗P@ ▗▖P ▗PUSR ▜ INVERSE !CODE PI!VAL P LLIST ▝r(▘SIN R GO SUB ▝ PAUSE ▝<> THEN ~2~8~2▘ 2.0▝ BEEP ATN [Q][E] GO SUB s>=* IF GO SUB { IF INVERSE !SIN PAPER NOT x INVERSE *B▝USR ▝$▝ DEF FN ▝2*▝4*▝ BRIGHT *▝8▝8▖ REM PAPER NOT d PAPER GO SUB {©[D]n[F]▖v NEXT STEP [G] OUT STEP PEEK OUT /[K](_TAN [M] RUN STEP Z LPRINT STEP d REM STEP 2 LPRINT STEP BRIGHT STEP Z INVERSE RETURN > OPEN # RETURN STEP INVERSE ▘[Q] PAPER STEP TAN MERGE STEP [Q] LPRINT STEP LIST GO TO STEP [Q]▟:N>= AND 2N>= STEP n THEN STEP >= THEN <[E] CLS >©E▟(>v= OPEN # RETURN IF | BRIGHT ▝ SAVE P▞*>=}lg"<>/IN CHR$ FLASH > LOAD SCREEN$ ▝▚ STEP ERASE DEF FN NOT DEF FN 0©O COPY - STOP POINT d THEN INVERSE *>=: IF ATN CHR$ NEW LPRINT :2 BRIGHT RETURN LINE PEEK INVERSE THEN WCHR$ >= OVER THEN _CHR$ OVER THEN gCHR$ ▘ LPRINT _<> ERASE SIN ~ RETURN CONTINUE !>=~< NEW w>2 IF STR$ CLS NOT BRIGHT ~ RETURN FORMAT INVERSE ~ NEW USR ~ AND w~ NEW > RETURN ▜ AND TAN 2 IF <>▘ AND LN DEF FN ▝ CLS CLS ▘[Q] GO TO PLOT PAUSE " IF USR " IF STOP "& IF PAPER "6 IF DRAW ▘"Fv▛ THEN ▗]| AND SCREEN$ W tSIN INT ▝$INKEY$▘-0[J]$ THEN d(}▝o_&H PAUSE ERASE <> CAT <> TO <>8~AUSR <>* IF STEP PEEK BRIGHT * ▝& ▝6 ▝F[L]<>V CAT STEP LEN *f CAT STEP ! COPY O- THEN RANDOMIZE % PLOT <> POKE ▖H THEN , RANDOMIZE $'INKEY$▗ IF NEW SAVE S▝oSCREEN$ NEW AND Hg8o STEP ▘]Y RETURN G( 3▚ GO SUB s>=} AND @o RANDOMIZE !▝,;▖CHR$ } INVERSE INVERSE DIM INVERSE DIM q▝1▝=▝ CONTINUE q▝1▗USR ~ VERIFY A▝ RETURN [C] AND AT ▝5=@ATTR RETURN & PAPER d OVER RETURN : ERASE d OVER / CLS INVERSE ~!0/▝▝STR$ RESTORE THEN g LINE d OVER !>=~ATN ▗5!;>=E▜/ 69-5p* *y CLEAR Pd▗INKEY$ CIRCLE RETURN INT =[R]P`▝Op`P`▘o>= ^▝>=p/p/p/ ERASE 0>=▘2 OUT >=▘2 OUT p>=>=▝W0>=VAL P>=▗w LINE 2 OUT 0>=▘2 OUT p>=P>=p*p>=>=p DEF FN q. THEN _pfQ.▝©p DEF FN q*pbq* LINE CODE RETURN !>=4! COPY BIN i▝- PLOT PI!g▝gk|$ACS [C]USR COPY BIN ! CLEAR BIN CLEAR GO SUB LN OR ! OR [A]VAL > COPY 2BIN > DRAW 2BIN >2 RETURN BIN ▘ RETURN OR AT ▘ COPY OR {[F] CLEAR [N]>= THEN ~(G>©[A]2 IF CODE 2 IF y2 IF :2CHR$ ▞ AND g2 IF >O2)▗▝ INVERSE DRAW ▚ INVERSE !7>=!{.▝SQR % LET ▝ CLS ▗[G] RETURN z: IF " IF 2L▝Y▘ LPRINT Y▗ REM RETURN RND NEW CHR$ ERASE REM {▝USR y NEW ATN ,2$0* >=|ASN >=+" >=5▚#">=!0[P]▞4~ RETURN : 60- PLOT N OR ▝VAL$ ▜!L>=[D]▝USR [C]▚ PLOT - LIST g OUT RND RETURN TO P LLIST RETURN TO [G] LLIST >=ATN * IF ">=< RETURN :>= VERIFY AT NEW gTAN ▗#▘CODE ▛o& STOP ~[N]@" AND SGN P% STEP uUE▝upuuu5ud; Fs CIRCLE s INK s INK s INK s INK [+▝vINT ▘ AND @CHR$ [F]0▗<> OUT ▘>C)Iy%▝VAL$ SQR ▝v6 PRINT u©>?>▝ READ /$+[Q]▝+>▝+AT ▝<> =[C] NEXT CODE y2 DEF FN STOP =_2 PAPER STOP ▜- 0'f▟}ATN OVER CLS <>PUSR [A] OR . STEP PEEK STOP STR$ POKE <> STEP d STOP !▗@X STOP ▝X-©▚ INVERSE ! RESTORE PI!SCREEN$ 2 STOP ▗ PAUSE PI!d~ GO TO ▗SQR INKEY$!<>[G]F OR ( STEP NEXT STOP !bY STEP BRIGHT LLIST STR$ LIST >@ STEP f5▝fSTR$ ▝f?STR$ ▗ SAVE PI! NEW 7▘!(>!, OR ▝00▝4 STEP #(▜P>=!6"R INVERSE COPY "T[E]"V>=:Q>= RETURN LINE ▘ DATA !R>=4~ VERIFY VERIFY ▝,%l▝l[B]~ RETURN 0 NOT >= DATA 5v INVERSE !S>=! GO SUB m▝V*▖ NEW ! STOP Y TO BRIGHT LLIST ?&Y: STOP YT▝PG▚ /w.W&▝ NEW 2X>=[U]&[Q] FOR `1FN ▜:X>=%![N]▗CHR$ < DATA 8[B]NOT [K] READ NY%▞!Q>=PEEK CHR$ Z DATA ~4@l.IN STEP LIST STOP %!,Y▝40▗CODE 2Q>=0"Rq>A>▗6FN !K!>▝PI{ORU▘dy7▝ SAVE ▗>=z>=q▘!▘▗SFN !'EXP ▘.gZ▚ BORDER Y6D▖ STEP LIST CAT 2PEEK BIN ▘▘! BORDER STOP Y[A]9nr V: RUN b▘FN rrrr"▝FrB▘▗FN rrr2>=▝@r#r##▗!"▗"Z>=!"/";^>=NOT BRIGHT RESTORE ]▙!Z>=CODE PEEK <, RANDOMIZE NOT rJrJRJI▝BJ▝ LOAD rJBJR:▘w INPUT ▝4r<:▜,~2Y>=!(Y OR 6C OPEN #+▝ POKE GR▝ REM W▛ AND Zo&>=~_[Q]`"r▝Yp+ +▝Yp++PEb[D]▘ ERASE NEW B[D] BRIGHT RESTORE <>+,▝<> d_>=PA▜~w[F]▘ BRIGHT RESTORE DEF FN D< FORMAT d▗FN !POINT tt$▝2tttQ STOP ▝-▝d▝4▝4▝! STOP ▝d▝▖4▝[E]4%▝[A]"▘P>=5Z FOR w# IF NOT TAN BORDER RESTORE A PLOT ▘!Xq CIRCLE ! CIRCLE ▝/q CONTINUE q CONTINUE t2t2q CONTINUE ▘!-CODE ▘R>=1▘Z BORDER ▞ !W>=4q NEW ▝P NEW ▝Qa NEW ▝! NEW ▝q NEW NEW ▝Pk▝k▘Z NEW ▗P>= AND Xq NEW P$X$[G]▝▖p+▗Q>= AND /rPq NEW y▘>= CONTINUE Dy▘TAN BORDER v OR STEP t PLOT @Qq PLOT 9 CIRCLE F.<=v▝(rvrvvvs STOP ▝7f▝3!+0▝/0▝na DIM ▝ FOR pp▝ FOR COPY DEF FN CLEAR ▘!3 BEEP & AND G,VAL ▝xVAL$ AND ><=▘! RANDOMIZE ▘USR |j CIRCLE RETURN ~ FORMAT NEW NEXT INVERSE THEN RETURN !H>=H<>g▟ IF >2>=<>(4<> CLS _>=j▝USR :VAL IF VERIFY `USR ▖[G]0 GO SUB D RETURN FORMAT $[▝STR$ P▝ LIST ▘ RETURN j▝>▝:]0-4▝TAB >=4 THEN [G] PLOT LINE DIM S▝ READ NOT BORDER BRIGHT NOT READ ,SQR ▗ THEN ~USR p BEEP p BEEP ` BEEP ▘o[D]▗ }EXP STOP ▝ AND p STOP -~GVAL VERIFY (>USR RETURN J CIRCLE RETURN ^` GO SUB ▝>=▗ NEXT !8p[R]4!>=4[F]▝d&[F]/FN ▗60 COPY =0OINT p@S. LIST ▝w"CODE ▝ FOR rINT rINT <>tu CIRCLE x"x"u CIRCLE e CIRCLE 3 LIST 5 BEEP 3 LIST ▝/>` w,x[U]u GO TO ▝Pe BORDER ▗Y$▝u BORDER $▝+hlttD▝!`'▝Q{3hi▘▘ FOR S LIST ▖ FOR <>>=:>=& LIST IN ▗$ NEW L▞"(>=!@>=CODE OPEN #▛ DRAW *(>=@>=CODE RESTORE t▚PEEK FOR 4 FOR STR$ ,▞ POKE STR$ LLIST < REM <>` FOR <>@ NEXT CLEAR x▝ CLEAR :[U] INVERSE ! IF STEP >= INPUT STEP 2 GO SUB CLEAR THEN ^ STEP TAN LOAD STEP NEW INPUT STEP INPUT CLEAR } AND CLEAR o NEW ? DATA CLEAR s▛ CLS <>©USR THEN _CHR$ >= GO SUB THEN W▟O(:N>= AND o2N>=&%[D] RETURN USR CLEAR ~ NEW USR CLEAR THEN DEF FN <> AND o▚F(5 CLEAR 4▝ CLEAR RUN ▜ ERASE THEN F( ▘▚<>▞ CONTINUE USR CLEAR 6 CLEAR ~ MERGE &>=5, THEN [N]4 CLEAR 4[O]<> CLEAR 55▝5▝N 5▝ AND 5▝ RETURN 5▝ CONTINUE `5▝- VERIFY ▘o4E PLOT [D] CLEAR w<> CLEAR 4 CLEAR THEN VAL$ :>= CLEAR PEEK USR MOVE CLEAR PEEK [K]@ey-PI NEW >2& OVER NOT >=▟8▜~ VERIFY USR CLEAR wA▘[G]<=▚ OVER !c>=4<>2[M]>=R LINE .▜o CLEAR ^ STOP !▗ INVERSE w#▗ INVERSE w RETURN V(>`▗ INVERSE 6M ▚ CLEAR n&▟:▜▚ INVERSE w INVERSE PLOT ▘ AND d!$ AND Y▗ AND t@▝HN(▞ THEN ^( INVERSE 6[O]9 LINE CLEAR THEN NUSR 2▘ CIRCLE DIM ▘[G]E[B]*" IF "& IF *2 IF "6 IF *B IF "F23 IF 2C THEN ga>=▘ INPUT >=12▚n( CLEAR 6©▘▙[D]▘[G]gq▝PI POKE A<>▝Dq<>q<><>IN DIM ▚ AND @_&>=T1 CIRCLE ▗ RETURN A CONTINUE STOP ▘5 FOR q CIRCLE q CIRCLE q CIRCLE @D-[R]@D▝ATN `C PLOT LIST Ca READ A DIM "q!9a LET !▗D RETURN FORMAT ▝2Q INPUT ▝ VERIFY ▝ INVERSE RND▘!TAN © CLEAR NxdTAN SCREEN$ ▝[Q]VAL$ ▘INT ▝TAN PEEK ▗[Q]▘PBIN ▖<<4xp@@@PDp@p@`@l▘▘@▝ppppppppUSR ppUSR pUSR ppqqqqqqqq@qq@q@qqqqqqqqqUSR qqqUSR qUSR qqrrrrrrr@rrr@r@rrrrrrrrrUSR rrUSR rUSR rUSR r OUT OUT _ BEEP BEEP O OUT USR OUT p OUT _t ▖dIN [A] OUT OUT _ OUT P▘.` ▗ INVERSE WO OUT STR$ OUT p▘@▚.PT[P]` OUT OUT CAT P ▗ OUT [P] OUT OUT ▗ INVERSE +iwp▘ OUT OUT [E]/▗ INVERSE COPY CLEAR Gp▙ OUT OUT T, PLOT LOAD OUT m CLEAR PLOT }▗ PRINT COPY CLEAR Up▘ OUT mNOT COPY ▝© TO COPY 0▝4@▜ PAPER PAPER [K][K] LINE FORMAT USR PAPER ▝[K]STR$ PAPER p▝h LPRINT , PAPER MERGE J PAPER p▘,!▗ PAPER [H]J PAPER Fp▘`▞.jAT PAPER BEEP J PAPER ▘ PAPER INT 0@ r0▚ PAPER PAPER INK ^p l COPY IF p▘ PAPER PAPER ▖ OUT ABS { CLS OUT wK LOAD ▗ INK OUT RETURN ▛p▘{ CLS q` COPY ▝ CLEAR <> COPY LPRINT CHR$ U▘ORND THEN U@USR LPRINT ▗UVU -prUVEp p"▖b@UWEU ▘@q0@p@ LIST [Q] FN COPY CLEAR Ep [Q]▞, BD"▚BIN P▗% COPY SQR @p▘D2 DRAW PLOT ▝ RETURN B@@▗▗ THEN @Q▗@ @p" LPRINT ▝p p P0<}~ABS DRAW @ ▘ DATA 0@`▝*p▚ COPY AT [M]p[A]0/COS 0 ▝ RETURN 0POINT @[M]▜* OUT IN {SQR INVERSE ATN COPY RETURN ▟p▘{SQR USR INK COPY LPRINT DRAW CLEAR LOAD RND DRAW CLEAR RANDOMIZE CLEAR p▘ COPY DRAW ▖o COPY COPY GO TO CLEAR wM} "p▘ COPY GO TO ▗ CLEAR RUN L CLEAR USR CLEAR p$▞*o LOAD z DRAW DRAW PLOT ▟ PRINT ▗ RETURN LET BEEP }p▝z`▝&s▝ PRINT 0▘ VERIFY ]p▘ CLEAR PRINT @▝}▗ DRAW COPY CLEAR Mp▘ CLEAR }`▖ RETURN RUN OVER COPY COPY RUN OIN ▗ RETURN CLEAR CLEAR Vp▝ OVER LPRINT ▝# CLS COPY 4▝ RUN p#▘,{▗TAB CODE ETAB USR TAB p▝ COPY [Q]$ LPRINT ▗AT PIPOINT CONTINUE ▗TAB TAB POINT TAB pb▗TAB PI▟▝@p▘▖TAB PIMPOINT ▛SIN ▟p▝"`CHR$ TAB COPY NEW [J]p▘TAB TAB |▝&s▝POINT ▗TAB RETURN RETURN ▟p▘TAB POINT ▝ RUN MERGE ▘ RUN _ INK BORDER ▘ PLOT ABS p# LPRINT t%▝ CLS LINE COPY % LPRINT p2USR $USR tp LPRINT # LPRINT Mp▘@▝ (tep▝#`t▚UUT COPY IF Yt[A]3 LPRINT $[Q]@$FN ▘ RETURN RUN 4@E LPRINT LOAD COPY SAVE ? LOAD ©[P] DRAW CODE pv▘ COPY OUT 0f tpJVAL$ rJ^ CIRCLE ▖_rOBIN sO~ CONTINUE ▚iMphM~ SAVE ▗fMno▗v[A]o▗wMs<>pp <>▗xMm<>pp <>p0p@<>pPp`<>pp/ TO IN @USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW IN ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]^ OVER >PEEK ~IN RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M GO SUB -TAB m GO SUB [N]] INVERSE =ABS IN } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY VERIFY STR$ ▗ STR$ 0▘0P▘STR$ 4▗0STR$ 6▗0STR$ 70][R]▜Oe OPEN #[C][Q]S[Q]R[Q]Q[Q]PWVVUUW[Q]P▘R<>p@p2p2p2p pRpRp@Pr^YSTR$ NEW 8 BORDER p-Pmn FORMAT ▝>CHR$ y▗><|STR$ <[G]~>O>pp©>gg>>n©USR [F]©pp~O>>sp~ss>~>2▝ss?c>0] >= FORMAT pRND CLOSE #▖ @▖▝©▛▞©xx~yy~STR$ v▗©[S]▝~ ▘xx[I]▗©kk>+(STR$ x▝ABS 8NOT y~kk©#;;3s~NOT u0 hP SAVE ux▝?USR O pi>qUSR p▝q NOT ▚ss©? SAVE X▘~0O▘>▜ VAL USR q▗}ss}a8 LOAD >ff©?_▝©A[K]wpw>USR c1FN O?▗8>USR 8[Q]r▘u:[I]y▝Aw!C▘ssFN VAL$ CHR$ 8▝ATN ▝~STR$ WSTR$ g IF VAL DEF FN ▛~ppfkk{kkf©STR$ p BORDER ?p>~[J]o[I]7 LPRINT USR w▝>FN ▖p00>33>CHR$ j▝© OR ▚gg?IN © GO TO `` DRAW USR ?` SAVE |>>| SAVE COPY DIM 7 GO SUB THEN <> RESTORE PP FOR CONTINUE COPY CONTINUE RNDRNDsp COPY DIM ss FOR CONTINUE COPY REM RUN RUN LET LIST COPY PRINT RUN RUN LLIST LPRINT COPY PLOT CLS CLS A@ COPY PRINT SAVE SAVE COPY PLOT RETURN RETURN POINT FN COPY PRINT POKE POKE UT COPY RUN IF IF POINT FN COPY PRINT COPY COPY UT COPY RUN CLEAR CLEAR DIM CONTINUE COPY PRINT COPY COPY MERGE CLOSE # COPY RUN COPY COPY DIM CONTINUE COPY RUN COPY COPY MERGE CLOSE # COPY RANDOMIZE ABS ABS THEN >= COPY RETURN COPY LIST ? COPY COPY LOAD CAT USR COPY COPY MOVE RUN LIST COPY COPY [S]" CLS SAVE COPY RETURN ▝`` COPY CLEAR <=<=© CLEAR LINE LINE BORDER BORDER © IF RESTORE RESTORE xx COPY PLOT 88 LIST LIST COPY PRINT TO TO `` COPY NEXT BORDER BORDER ed COPY RUN MOVE MOVE ABS SGN COPY LOAD CONTINUE CONTINUE FLASH CIRCLE COPY OUT ERASE ERASE G@ COPY OVER RNDRND/ COPY !▚ STEP )NOT NNOT NOT 6NOT ProTRACKER 3.x player f!x by Sa9e NEXT GO SUB svUSR "NUSR "/USR "iUSR "<>d~2 AND BIN ##^#P RANDOMIZE !>=" RUN >=STR$ !"<>[Q]USR >0STR$ ! FOR s#r# FOR = PAUSE 1> LIST 2+ OR 2B AND 2/<=* LPRINT USR "y OR "[D] AND "AT <=*[Q]USR "NOT " BIN "<=>NOT [U] DRAW _ LINE =LN ; OR U GO TO ▖* ERASE ~/ RESTORE [O]/ STOP ATTR vD DIM IN [I]rO. LET MERGE SQR [S]▛t`L9( RANDOMIZE FOR INVERSE MOVE OR INT VAL INKEY$[N][E]▗|uoic]XSNJFB>;741/,)'%#! TO N TO v TO ▝ TO TO MNOT MNOT l STEP STEP [M] TO COS TO FLASH TO NEW TO LET TO MNOT MNOT l STEP STEP STEP STEP I STEP O STEP U STEP MNOT MNOT l STEP STEP 2INT >=> COPY 2 FLASH BIN 2<=2 PAUSE OR <25 OR 2L AND 2f<=<2<>>=2 LINE 20 THEN !STR$ " RESTORE >=CODE 2NOT 2NOT 2NOT ><>2EXP >= STEP I>=>>2EXP >=<>NOT CAT BIN >NOT 2NNOT -CODE go2 NEW BIN 2 OR 2> OR 2V OR 2} OR 2[M] OR 2 MERGE OR "[F] OR "m OR /2 FLASH BIN >2 OR !" STOP BIN >2+ OR CODE 2} OR !"y OR >25 OR ">2SGN OR >2[M] OR 2 TO OR !"VAL$ OR !"[U] OR >2ATTR OR CODE 2 MERGE OR CODE og2[M] OR "[F] OR >2STR$ NOT >2 GO SUB OR 2 MERGE OR >2 CONTINUE OR >2 NEW BIN >2 OVER NOT >2} OR >2 REM NOT -CODE go2 CLEAR OR 22 AND 2U AND 2m AND 2[H] AND 2ACS AND 2 LOAD AND "CODE AND "▜ AND /2 PAUSE OR >2INKEY$ AND !" RANDOMIZE OR >2B AND CODE 2[H] AND !"[D] AND >2L AND ">2 VERIFY AND >2ACS AND 2 NEW AND !">= AND !"PEEK AND >2 OR AND CODE 2 LOAD AND CODE og2ACS AND "CODE AND >2aBIN >2<=2 LOAD AND >2<=>2 CLEAR OR >2~BIN >2[H] AND >2BIN !";>=>23>=2B>=>2[G]BIN >2ATTR >=PI(!"(>=CODE og2AT BIN 23>="%>=>2INT >=>2~>= CLEAR . INVERSE ! GO SUB sG>=> COPY g< LINE MOVE OR 1 MOVE >o<INT 8{2 NEW BIN }▜▜o9 RANDOMIZE MOVE z NEW o{PI PAUSE OR NEW @: OR CHR$ OR = RETURN LIST <NOT OR < RETURN =2 OR > PAUSE $ OR CODE NOT * OR RETURN 8> AND o&STR$ ~ THEN ;8 PLOT zog8> THEN m(2> OR INVERSE gNOT b OR { NEW RETURN 8 PLOT LIST AND THEN m(2V OR CLEAR CLEAR o| NEW INVERSE oSTR$ }! NEW @("m OR FOR 1STR$ >o<LN 8y2} OR &9~ AND ▜o&CHR$ RANDOMIZE LLIST "NOT >= IF FORMAT OR *!"[F] OR FOR !8 GO SUB RNOT LN OR $ >2 OR CODE 2[M] OR o"[F] OR NOT FORMAT OR >2[M] OR 2NOT >= IF LET OR : FLASH BIN INPUT COPY 2 FLASH BIN LINE GO TO OR >NOT INPUT OR >2 MERGE OR > COPY g< LINE FOR AND 1 MOVE >o<INT 8{2 CLEAR OR }▜▜o9 RANDOMIZE MOVE z NEW o{PI PAUSE 1 AND NEW @:2 AND CHR$ ( AND = RETURN LIST <NOT . AND < RETURN =22 AND > PAUSE ; AND CODE NOT A AND RETURN 8> AND o&STR$ ~ THEN ;8 PLOT zog8> THEN m(2U AND INVERSE gNOT y AND { NEW RETURN 8 PLOT LIST AND THEN m(2m AND CLEAR CLEAR o| NEW INVERSE ASN INVERSE oSTR$ }! NEW @("▜ AND FOR 1STR$ >o<LN 8y2[H] AND &9~ AND ▜o&CHR$ RANDOMIZE LLIST "NOT >= IF REM AND *!"CODE AND FOR !8 GO SUB RNOT ERASE AND $ >2INKEY$ AND CODE 2ACS AND o"CODE AND NOT REM AND >2ACS AND 2NOT >= IF <= : PAUSE OR INPUT COPY 2 PAUSE OR LINE <=>NOT <=>2 LOAD AND > COPY g< LINE >=1 MOVE >o<INT 8{2<=}▜▜o9 RANDOMIZE MOVE z NEW o{PI PAUSE K<= NEW @:L<=CHR$ B<== RETURN LIST <NOT H<=< RETURN =2L<=> PAUSE U<=CODE NOT [<= RETURN 8> AND o&STR$ ~ THEN ;8 PLOT zog8> THEN m(2o<= INVERSE gNOT [D]<={ NEW RETURN 8 PLOT LIST AND THEN m(2▜<= CLEAR CLEAR o| NEW $ INVERSE ASN INVERSE oSTR$ }! NEW @("[Q]<= FOR 1STR$ >o<LN 8y2VAL <=&9~ AND ▜o&CHR$ RANDOMIZE LLIST "NOT >= IF >= *!">=<= FOR !8 GO SUB RNOT FOR <=$ >2IN <=CODE 2 CAT <=o">=<=NOT >=>2 CAT <=2NOT >= IF $>= :<= INPUT COPY 2<= LINE >=>NOT !>=>2>=!} CLEAR o"NOT >= IF F>= !"%>=>23>=1IN COPY CLEAR COPY !NOT GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB i INVERSE |2 MERGE BIN AND C GO SUB y,B GO SUB i INVERSE }C GO SUB y,B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]B GO SUB iC GO SUB [T]>ATN (B GO SUB iC GO SUB yCODE 2ATTR >=>=2INT >= LINE / THEN = LINE LINE =USR >=2<>>=>go_>2VNOT 2NOT 2[N]NOT 2NOT USR INK PI 2 GO SUB s<>!~▜0!~▜#" LIST >=_CODE 2 THEN BIN W! RANDOMIZE LLIST FOR LLIST "/ LINE LLIST "< THEN 1 STEP ;<> GO SUB S RESTORE >=>2<>>= INK |2VNOT }2NOT 2NOT {2[N]NOT <>&USR PAPER u<>▝ PAPER SCREEN$ <> PAPER EXP <> PAPER MOVE <> AND ` PAPER PLOT <> PAPER LINE AND 0 PAPER [G]<>▜ AND PEEK o&CHR$ ~,fo RESTORE : OR INK O INK NOT @<>▜ AND LPRINT oN,F GO SUB C[D]NOT CODE 2[J]NOT AND [Q]oN,F GO SUB CNOT >>NOT =<>( DIM 2AT BIN 2ASN BIN 2TAN BIN >NOT ▝<>>=▜ AND [Q]oN,F GO SUB CNOT NOT =<> >/2vNOT INK ` INK <>▜▜▜▜2▖NOT INK h INK NOT @<>(= 2%<>NOT @<>2AT BIN 2ASN BIN 2TAN BIN >2[J]NOT >>NOT @<>2{NOT CODE 2vNOT INK ` INK <>▜ AND LPRINT oN,F GO SUB C[D]NOT >>NOT =<>>=2 LINE >go_>2 PLOT NOT 2%BIN 2=BIN 2,BIN USR INK STEP O LINE GO SUB S/ LINE >2 LINE INK |2 PLOT NOT }2%BIN 2,BIN {2=BIN <>&USR PAPER [C] LINE ▝ PAPER <= LINE PAPER VERIFY LINE PAPER INPUT LINE AND ` PAPER THEN PAPER THEN ▝ PAPER LINE PAPER COS LINE ▜ AND FORMAT o&CHR$ ~,fo RESTORE :INKEY$ AND INK O INK NOT T LINE 2 THEN BIN NOT T LINE ▜ AND LPRINT oN,F GO SUB C3BIN CODE 29BIN AND [Q]oN,F GO SUB C BIN >>NOT Q LINE ( DIM 2AT BIN 2ASN BIN 2TAN BIN >NOT [O] LINE >=▜ AND [Q]oN,F GO SUB C BIN NOT Q LINE >/2BIN INK ` INK <>▜▜▜▜2(BIN INK h INK NOT T LINE (= 29 LINE NOT T LINE 2AT BIN 2ASN BIN 2TAN BIN >29BIN >>NOT T LINE 2BIN CODE 2BIN INK ` INK <>▜ AND LPRINT oN,F GO SUB C3BIN >>NOT Q LINE >=20 THEN >!2NNOT USR STEP K THEN GO SUB S< THEN >20 THEN <>&USR PAPER THEN ▝ PAPER SQR THEN PAPER LINE THEN PAPER OVER THEN AND ` PAPER TO PAPER % TO AND 0 PAPER PI THEN ▜ AND STOP o&CHR$ ~,fo RESTORE :IN <= INK O INK NOT P THEN ▜ AND LPRINT oN,F GO SUB CAT <=CODE 2f<= AND [Q]oN,F GO SUB C<=CODE 2VAL <=NOT M THEN ( CONTINUE 2AT BIN 2ASN BIN 2TAN BIN >NOT [B] THEN >=▜ AND [Q]oN,F GO SUB C<=NOT M THEN 2>==2<=<>▜▜▜▜2/<=NOT P THEN (= 2F THEN NOT P THEN 2AT BIN 2ASN BIN 2TAN BIN >2f<=NOT P THEN 2IN <=CODE go2<=2L<=2o<=2▜<=2VAL <=2 CAT <=2<=2>=">=<="[Q]<=<>▜ AND LPRINT oN,F GO SUB CAT <=CODE 2VAL <=NOT M THEN FOR ~2RNDNOT #^#V# FOR "COS NOT >2EXP NOT INK X INK <> FOR ~2RNDNOT #^#V# GO SUB STAB NOT ^#V# FOR "COS NOT CODE 2EXP NOT :{NOT 2[Q]NOT INK yX INK 2{NOT <>2 LLIST NOT >>2 OVER NOT <>2 GO SUB NOT >>2 REM NOT <>2 PAPER NOT 2 ERASE NOT >>2STR$ NOT <> FOR ~2EBIN #^#V# FOR "SBIN >2YBIN INK X INK <> FOR ~2EBIN #^#V# GO SUB SMBIN ^#V# FOR "SBIN CODE 2YBIN :BIN 2@BIN INK yX INK 2BIN <>2▝BIN >>2~BIN <>2▟BIN >>2BIN <>2zBIN 2rBIN >>2aBIN <> FOR ~2 CAT <=2 COPY <=#^#V# FOR " BEEP <=>2 OVER <=CODE 2>=<> FOR ~2 CAT <=2 COPY <=#^#V# GO SUB S LLIST <=^#V# FOR " BEEP <=CODE 2>=2 OVER <=:IN <=2 LOAD <= INK y INK 2IN <=<>2<=<>2VAL <=<>2>=2 >=2>=CODE og2 CAT <=">=<=<> FOR ~2[P]BIN #^#V# FOR "[J]BIN >>2[G]BIN <>2 AND BIN <>ProTracker 3.5 compilation of FrOst_bYtE_tHeMe_rmx ;) h! fAnS! by Mm<M of Sage 07.Sep.XX twr 01:01 OPEN #l~[E]SIN USR DEF FN BRIGHT REM SAVE *-5=EM COPY ) POKE } POKE LEN 8[D]QBIN >=Z[U]b GO SUB ;` REM a[E]LEN USR LIST CAT LEN t TO t CAT y TO t CAT { TO y PAUSE <> FORMAT LINE FORMAT THEN FORMAT TO FORMAT STEP FORMAT LIST ABS [N] CAT LEN q[N] STEP mN CAT TAB N[B][N]}[N] STEP [B]N CAT TAB N STEP [B][N] CAT q[N] STEP mN CAT TAB N STEP LEN [N] CAT LEN }[N] STEP mN CAT TAB NVAL qVAL STEP kX CAT TAB XVAL }VAL STEP X CAT TAB X STEP VAL CAT qVAL STEP kX CAT TAB X STEP LEN VAL CAT LEN }VAL STEP kX CAT TAB X STEP LEN LIST CAT LEN | TO | CAT { TO | CAT y TO { CAT LEN | TO LEN y| CAT TO | CAT ~ TO CAT { TO ~ CAT | TO { CAT { TO | CAT y TO { CAT LEN | TO LEN y| CAT TO | CAT ~ TO CAT | TO ~ CAT { TO | CAT y TO { CAT w TO y CAT LEN { TO LEN w{ CAT ~ TO { CAT | TO ~ CAT y TO | CAT { TO y CAT y TO { CAT w TO y CAT LEN { TO LEN w{ CAT ~ TO { CAT | TO ~ CAT { TO | PAUSE STEP LEN FORMAT TO FORMAT THEN FORMAT LINE FORMAT MERGE STEP LEN LINE y LIST STEP { PAUSE LINE LEN y LIST { PAUSE STEP LEN y LINE yy STEP LINE y LIST STEP { PAUSE LINE LEN y LIST { NEXT STEP LEN w LINE ww STEP LINE w LIST STEP { NEXT LINE LEN w LIST { NEXT STEP LEN w LINE ww STEP LINE w LIST STEP { NEXT LINE LEN w LIST { LIST ABS u CAT LEN qu STEP f; CAT TAB ;u}u STEP ; CAT TAB ; STEP u CAT qu STEP f; CAT TAB ; STEP ~u CAT }u STEP f; CAT TAB ;~iqi STEP h4 CAT TAB 4i}i STEP 4 CAT TAB 4 STEP i CAT qi STEP h4 CAT TAB 4 STEP i CAT }i STEP h4 CAT }4} LIST CAT LEN y TO y CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT | TO y CAT { TO | CAT w TO { CAT y TO w CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT w TO y CAT LEN u TO LEN wu CAT LEN t FORMAT TO t FORMAT LINE t CAT LEN TO t CAT TO CAT ~ TO CAT ~ TO ~ CAT | TO ~ CAT | TO | CAT { TO | CAT { TO { CAT | TO { CAT { TO | CAT y{ PAUSE STEP LEN r LINE rr STEP ~ LINE r~@ STEP yB LINE LEN r@yB STEP LEN r LINE rr STEP ~ LINE r~@ STEP yB LINE LEN r@yC STEP LEN t LINE tt STEP LINE tLEN STEP LEN LINE tD STEP t LINE ttC STEP LINE tLEN STEP LEN LINE t LIST ABS u CAT LEN qu STEP r; CAT TAB ;u}u STEP ; CAT TAB ; STEP u CAT qu STEP r; CAT TAB ; STEP ~u CAT }u STEP r; CAT TAB ;~iqi STEP h4 CAT TAB 4i}i STEP 4 CAT TAB 4 STEP i CAT qi}4TAB 4qi}i STEP 4 CAT }4 STEP LEN } DEF FN FORMAT LIST CAT LEN y TO y CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT | TO y CAT { TO | CAT w TO { CAT y TO w CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT w TO y CAT LEN u TO LEN wu CAT LEN t FORMAT TO t FORMAT LINE t FORMAT CAT LEN ▜ TO LEN LEN ▜ LINE LEN ▜ CAT ~ PAUSE STEP LEN r LINE rr STEP ~ LINE r~ STEP ~ LINE r STEP r LINE rr STEP ~ LINE r~ STEP ~ LINE rC STEP t LINE tt STEP LINE tLEN STEP LEN LINE t STEP t LINE tt LIST STEP } LINE q CAT q STEP o CAT j LIST ABS [N] CAT LEN q[N] STEP mN CAT TAB N[B][N]}[N] STEP [B]N CAT TAB N STEP [B]u CAT qu STEP r; CAT TAB ; STEP u CAT }u STEP r; CAT TAB ; STEP VAL CAT qVAL STEP kX CAT TAB XVAL }VAL STEP X CAT TAB X STEP ▗ CAT q▗ STEP pB CAT TAB B STEP ▖▗ CAT }▗ STEP TAB B CAT }ABS B} LIST CAT /LEN } TO LEN ~} CAT .LEN { TO LEN }{ CAT -y TO { CAT TO y CAT , TO CAT TO CAT +LEN ▝ FORMAT TO *▝ FORMAT LINE )▝ FORMAT CAT (LEN ~ TO ▝ CAT | TO ~ CAT 'LEN { TO LEN |{ CAT &LEN y TO { CAT %LEN w TO y CAT ~ TO w CAT $▝ TO ~ CAT ~ TO ▝ CAT #LEN FORMAT TO " FORMAT LINE ! FORMAT CAT | TO NEXT STEP FORMAT TO FORMAT THEN FORMAT LINE FORMAT <> FORMAT MERGE STEP LEN LINE yy STEP LINE yD STEP y LINE yy STEP LINE yy STEP LINE yC STEP w LINE ww STEP LINE ww STEP LINE wE STEP w LINE ww STEP LINE ww STEP LINE w LIST ABS i CAT LEN qi STEP h4 CAT TAB 4 STEP i CAT }i STEP 4 CAT TAB 4 STEP u CAT qu STEP f; CAT TAB ; STEP ~u CAT }u STEP f; CAT TAB ; STEP ~i CAT qi STEP h4 CAT TAB 4i}i STEP 4 CAT TAB 4 STEP [N] CAT q[N] STEP TAB N CAT qN STEP y PAUSE <>y LIST ABS [N] CAT qNjABS Nh LIST CAT LEN {{ TO !LEN |{ CAT LEN | TO "LEN {| CAT ~ TO { CAT #| TO ~ CAT { TO | CAT $y TO { CAT y TO | CAT %| TO y CAT LEN TO &LEN | CAT TO | CAT '| TO CAT y TO | CAT ( TO y CAT LEN TO )LEN ▘ CAT LEN ▘ TO *LEN ▘ CAT LEN ▘+LEN ▗ TO ▘ CAT ▗ TO ▗ CAT ,LEN FORMAT TO - FORMAT LINE . CAT t/y{ NEXT STEP LEN t LINE tt STEP LINE tt STEP LINE tA STEP t LINE tt STEP LINE tt STEP LINE tC STEP t LINE tt STEP LINE tt STEP LINE t LIST TO FORMAT PAUSE LEN y THEN y LINE y LIST CAT o>= FORMAT PAUSE <=y AND y PAUSE DEF FN FORMAT STEP FORMAT TO FORMAT THEN FORMAT LINE FORMAT <> FORMAT >= FORMAT <= FORMAT AND FORMAT OR FORMAT BIN FORMAT NOT FORMAT CHR$ FORMAT STR$ LEN $ FORMAT LIST CAT LEN | TO | CAT { TO | CAT y TO { CAT LEN | TO LEN y| CAT TO | CAT ~ TO CAT { TO ~ CAT | TO { CAT { TO | CAT y TO { CAT LEN | TO LEN y| CAT TO | CAT ~ TO CAT | TO ~ CAT { TO | CAT y TO { CAT w TO y CAT LEN { TO LEN w{ CAT ~ TO { CAT | TO ~ CAT y TO | CAT { TO y CAT y TO { CAT w TO y CAT LEN { TO LEN w{ CAT ~ TO { CAT | TO ~ CAT { TO | PAUSE STEP FORMAT TO FORMAT LINE FORMAT <> FORMAT >= FORMAT MERGE STEP LEN LINE y LIST STEP { PAUSE LINE LEN y LIST { PAUSE STEP LEN y LINE yy STEP LINE y LIST STEP { PAUSE LINE LEN y LIST { NEXT STEP LEN w LINE ww STEP LINE w LIST STEP { NEXT LINE LEN w LIST { NEXT STEP LEN w LINE ww STEP LINE w LIST STEP { NEXT LINE LEN w LIST {LEN FORMAT STR$ FORMAT CHR$ FORMAT NOT FORMAT BIN FORMAT OR FORMAT AND FORMAT <= FORMAT >=LEN FORMAT <> FORMAT LINE FORMAT THEN FORMAT TO FORMAT STEP FORMAT DEF FN FORMAT CAT FORMAT LIST qq LINE o THEN o CAT m STEP m CAT jh LIST CAT LEN y TO y CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT | TO y CAT { TO | CAT w TO { CAT y TO w CAT w TO y CAT u TO w CAT LEN y TO LEN uy CAT w TO y CAT LEN u TO LEN wu CAT LEN t FORMAT TO t FORMAT LINE t CAT LEN TO t CAT TO CAT ~ TO CAT ~ TO ~ CAT | TO ~ CAT | TO | CAT { TO | CAT { TO { CAT | TO { CAT { TO | CAT y TO { PAUSE STEP LEN r LINE rr STEP ~ LINE r~@ STEP yB LINE LEN r@yB STEP LEN r LINE rr STEP ~ LINE r~@ STEP yB LINE LEN r@yC STEP LEN t LINE tt STEP LINE t STEP LINE tD STEP t LINE tt STEP LINE t STEP LINE t CAT CAT DRAW [A]o CAT N[Q] RETURN L@▝L@▙▙▟▟▝O▝ CAT @ CAT @ CAT USR O@ COPY o CAT O COPY O RANDOMIZE COPY [A] CAT COPY COPY ▙▙▟▟[A][A] MOVE STR$ LET INK LLIST 3 MOVE STR$ 3 LET INVERSE LLIST 1tT INVERSE RESTORE PRINT ; OR MERGE ; RESTORE INK PRINT OR MERGE RESTORE 1@S LLIST MOVE STR$ LET
