| Is a part of release: | Sea boot |
| File size: | 11008 |
| md5: | 6f230a47d27ee5205483a1b16ade00e6 |
0 REM NEXT !USR CLEAR ©>U GO SUB Qw GO SUB YPEEK LINE GO SUB Q! COPY Z RETURN Z COPY CODE OPEN # RETURN w GO SUB LN CLS !` GO SUB [ POKE /) STEP CAT ]! LPRINT INVERSE CODE STEP CAT ]>2H/2▟/NOT ` OR MERGE zATN O0:] NEW PLOT ,:] NEW PLOT < INVERSE ! NEXT STEP ^y* STEP ^> INVERSE !NOT / STEP ^ MOVE STR$ OR MERGE INVERSE !/ STEP ^ MOVE $ THEN c(STR$ ACS <>STR$ NEW <> INVERSE RESTORE NOT /=/= WRITTEN AND DESIGNED BY MAD CODER AND JV GRAPHICS 1997
10794pSCREEN$ _BOOT" LINE 015616 LINE i_i_ FLASH |8 CLOSE #M NEW Q DEF FN BORDER P DEF FN CONTINUE P BRIGHT DEF FN DIM P BRIGHT BEEP D NEXT DEF FN DATA P DEF FN RESTORE P BRIGHT DEF FN FOR P BRIGHT BEEP LEN 3 FLASH |8 CLOSE #M LIST N LOAD N/q AND 0uv> NEXT GO SUB s OUT ` INK " FLASH ` INK !)`[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1COS zNOT [ GO SUB LN ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN [ INK 1 CLS NOT `MsPkR▖M▖[S]]'` GO SUB sPIn STEP PLOT h> STEP ( ERASE LN GO SUB VAL STEP >NOT 2RNDRND![F]m"INKEY$/VAL COS [A]CODE 2▛n>2 COPY @2[F]9T▖ STEP f STEP b>@NOT ? NEXT STEP READ aTe CLS v STEP X LINE m(:+ INPUT @0 INVERSE !@RNDo8sc STEP _e:▟nATN LINE Mc BRIGHT e> STEP [G]e STEP [B]?Q[G]L9Iod STEP ERASE l>2n!a"CODE `!vc" BEEP `v>^R[A]CHR$ 52 DATA h2 NEW d2ZKCT:[I]n THEN gCHR$ ▘© FLASH RETURN NEW LINE D` STEP PEEK b STEP 6 STEP TAB M<=k STEP aq[P]& TO DcC[S]>> IF = STEP Ng-I [J][E] MOVE TAB 2▟!Rv STEP LLIST d>=<= !T▛NOT LEN ▙ OVER VERIFY <[E]> OPEN # READ CODE RESTORE CLS LLIST $ POKE >) DRAW <>"H STEP O THEN @ CLEAR [U]VAL SQR jc!L@ELX STEP BaUSR CIRCLE SQR <>e IF <>!P[A] FORMAT ( OR RESTORE GO SUB [Q]- LLIST STEP BORDER h| AND W]STR$ SIN <> CLEAR COPY > GO SUB yIN > COPY IN COPY .>B RETURN C GO SUB i<a©VAL COS ©/A NEW ABS LINE 0 INK ! COPY Z RETURN Z COPY CODE v OPEN # RETURN w GO SUB LN :[C]n VERIFY G:[D]n▜O▜▜▝o&)RNDx~# fo RESTORE INVERSE LLIST u]? CLEAR !:/ GO SUB {PIn! TO s=/!v RESTORE *E/"B/:G/<2D/*O/PEEK FOR 0 THEN INKEY$![J]b©@ MERGE %INT <>VAL$ !USR DRAW BUSR |?6$[T]``[Q]<>:[G]n=9USR G?o>=[A] PAUSE %@I7[B]#X FLASH @J8,[A] COPY 6(SIN kCODE FLASH RETURN / NEW SAVE v RESTORE CAT F( RANDOMIZE "-wSIN /▜?O LIST =OAT Nw<>! FORMAT +|ASN CLS [Q]<> INVERSE ! GO TO 't GO TO POKE NOT `x STEP [O]o| AND g"[J]n INVERSE ~ THEN ©USR STEP LOAD ▚e NEXT ▝>=hXW:[B]n_©W( THEN _ THEN G(@sO>[B]O (▝_O((w7 AND B[B]!5>2Ed@{2CODE 2[E]nNOT Dd!"zPEEK !{PEEK >=z RETURN INK 9=2> CLS * RETURN CLOSE #▙'25[H] LLIST d[T]SQR CIRCLE CLEAR ©^4^LEN $[C]*QNOT [G]e GO TO 4 RESTORE AND NEW )Ps%[B] PAUSE <> GO TO %15OxVAL [E]D4DA<>!4~ RETURN 6:DQ<>d~ PRINT H CIRCLE ▜ PLOT CODE [B]G:SGN hn XNOT DATA h▗g6),6+)<>▟ RETURN !▞@f▝▛▞--VAL [T]▞ POKE X?>.)w, NEXT ▟L@[P]![K]x[Q]@[F] RND #1y RETURN INK (<XT]w LIST STR$ RNDAT VAL m[T]NOT RNDP[A]o CLS NOT "()!▟n GO SUB ATN ($=( RETURN B @a RETURN [0h4" INVERSE } INVERSE RND VERIFY > COPY <>j< FOR RESTORE REM STR$ )A"[T]2▙n*b RESTORE l MOVE GO SUB S>= INVERSE LLIST = RETURN COPY >=: RETURN CLEAR !4/▝>=l[S]g PLOT CHR$ RESTORE MERGE OR PRINT LPRINT C FORMAT [M] GO SUB [@@~# IF *, 4>▗4 LET STR$ MOVE LLIST <> NEXT BEEP [T][T] BEEP 6RND| PAPER GO SUB Gi! GO SUB ^ CLS >?V}"[L]n![U]"[N][E]@,©"[P] FOR DATA h*N#FkPOINT n STEP CLS g* OPEN #TAB EXP CLEAR b!'o(o}[H]z▞0# MOVE L INVERSE C STOP 3 OVER [L]BIN EXP SQR QK[S]▖9BIN [M]▛ AND [E]CHR$ [F],ZaS~ RETURN COPY PEEK COPY [S] RETURN [H]x▘] COPY RETURN [K]- LLIST |RND[I][K] FORMAT [J]▚▗d<> PAPER [K]IN GO SUB Q{[S] CIRCLE [Q] / GO SUB j RUN STEP INKEY$ OUT ?AT C STEP 7AT TAT ( PAUSE e&AT STEP PEEK h<= MOVE {z DIM USR ~, RANDOMIZE zPI LIST <>ogIN ©w RESTORE ) MOVE LIST [Q]BIN OR STR$ h2SQR h>[S]2 INKEY$h<2SCREEN$ 72[O] CLS [H] STEP {h INVERSE RESTORE LLIST STR$ " FLASH ATN SIN ATN CLOSE #NOT z2▙h{2[C]`[T]hCHR$ x2[J]h OR p COPY INVERSE ^(ATN THEN THEN RANDOMIZE ~[S]~[Q][T]w INVERSE #▜ STOP ▜STR$ BEEP <>S COPY BORDER >CODE [A]GPI7BFN NEW SAVE FN gy<=FN ^oy NEW G>[A] <>$|USR } AND POKE o CIRCLE | VERIFY > OPEN # RETURN >BIN VERIFY <> OR CLEAR ©2▞n GO SUB ySTR$ <>> RETURN FLASH RETURN !Ki8!INKEY$pi FLASH NEW _ NEW 9~ATN ASN [I]n>= GO SUB x/INKEY$#(~COS _# CONTINUE CLS LOAD CLEAR LOAD OUT LOAD OUT LOAD © LOAD ©IN [C]H READ RUN @"!* RUN [Q]Y NO COPY EXECUTABLE COPY FIXS!INSERT[Q]DISK* S $E A - B ;[M]1.Second file-m OVER DPAmusic 22 s!torsa DRAW Gxim[U]?2?[A]CLAIR@/TAB RSOR/QAOPM(SPACE) 8 KEMPS DATA TON EK^^,M aqrun@[G][Q]w.PEEK hifDreadisk LINE G.etings CLS RESTORE :~d<>JVBap~cs, ABBA,NICK,LOB,R VERIFY KD"SANEMalkovH`'.Kriulv▖Va HexD STEP %Tsv!V@, OUT my_oth MOVE Fi▙▖d PAPER f3es DRAW © VERIFY ©▘ 1997VCod REM RETURN Q5}▛ GO SUB S[J]cn~[I]xLEN PLOT <>!n5~ATN USR >w>2▖n STEP REM k>8l>[E]v:!Bm"!P"zn<>^#[A]bVO9x@n*ATN ( RETURN ( STEP mK STEP RUN lmSIN @'*r+sB## RANDOMIZE FORMAT <NOT ^*|GHMc8!EM[U] CLEAR M~4 RETURN COS M=w STOP L*L!.6LNOT [T]*▘[A] PAUSE L▗7! CLS ▚L▚ TO IL▗4L RESTORE N*L6 COPY BIN LNOT CONTINUE OUT © OUT [N] RANDOMIZE / RESTORE :▖nGATN THEN =, CLS =oIN #- LLIST vATN ? CIRCLE CLEAR <4$&▗ COPY [O]vSQR :; CIRCLE GO SUB <=>m LOAD [K] COPY ? COPY [G], COPY -AT COPY RND INVERSE RESTORE CLEAR RESTORE INK :▞n NEW -P[I] OR GO SUB y STEP . ERASE STR$ @fi[T] INK CLEAR LLIST INVERSE LLIST CLS <> STEP ERASE m!▛STR$ *nPEEK <>ATN CHR$ /! RETURN GO TO NOT / INVERSE !STR$ / STEP qn>S* GO SUB s COPY mF[M]@' READ ERASE 1 NEXT FOR OR OVER 1:<>D: STEP / NEW @<> OR MERGE zATN O0 PRINT :] NEW PLOT ,<> PAUSE 8y>NOT = MOVE STR$ `G3$ THEN c▗(STR$ ACS <> NEW <>>=▞ BEEP #=v RETURN ▖6:5;4<3=2>1?0@/A.B-C,D+E*F)G(H'I&J%K$L#M"N!O PQRSTUVWXYZ[/]^_`adefghijklmnopqrstu#vwxyz{G|}i▝k▘▗▚▜▖▞▛▟COS ▙ @[A]![B]"[C]#[D] BEEP [E]%[F]&[G]'[H]([I])[J] CLS [K]+[L],[M]-[N].[O]/[P]0[Q]1[R]2[S]3[T]4[U]5RND6INKEY$7PI8FN 9POINT :SCREEN$ ;ATTR <AT =TAB >VAL$ ?CODE DD@ABC▝@DEAT FGATTR HISCREEN$ JKPOINT LMFN NOPIPQ@ INKEY$RSRNDTU[U]▝VW[T]XYtZ[}/][Q]^_[P]`a[O]b c[N]de[M]fg[L]▝@hi[K]jk[J]lm[I]no[H]pDDq LPRINT rs DIM tu[E]vw[D]xy@ [C]z{[B]|}[A]▝~©▝▙▘▟▗▚ ▜▛▖▞▛▞▝@▟▖▙▜[A][B]▚[C][D][E][F]▗[G][H][I][J]@ ▘[K][L]▝[M][N]▝[O][P]©[Q][R]~[S][T]}[U]RND|INKEY$ PI{FN POINT zSCREEN$ ATTR y▝@AT TAB xVAL$ CODE wVAL LEN vSIN COS uTAN ASN tACS ATN sLN EXP @ rINT SQR qSGN ABS p▝PEEK IN oUSR STR$ nCHR$ NOT mBIN OR l AND <=k>=<>j LINE THEN i▝@ TO STEP h DEF FN CAT g FORMAT MOVE f ERASE OPEN #e CLOSE # MERGE d VERIFY BEEP c CIRCLE INK @ b PAPER FLASH a BRIGHT INVERSE `▝ OVER OUT _ LPRINT LLIST ^ STOP READ ] DATA RESTORE / NEW [B] BORDER [ CONTINUE BORDER Z RESTORE DATA READ STOP Y) LPRINT OUT OVER INVERSE [B]XG FLASH PAPER INK CIRCLE We VERIFY MERGE [B] CLOSE # OPEN #V MOVE FORMAT CAT DEF FN U[R] TO THEN LINE <>[B]TIN <= AND OR BIN S INVERSE CHR$ STR$ [B]USR IN R CLS ABS SGN SQR INT QEXP "LN ATN ACS ASN PDDTAN COS SIN LEN ▖VAL OCODE VAL$ TAB ▝AT ATTR NSCREEN$ POINT FN "PIINKEY$MRND[U]"[T][S][R]L[Q]@D[P][O][N][M]K▖▖[L][K][J][I][H]J[G][F][E][D]"[C]I[B][A]D ▙▟H▛D▞▖G▜▝▖▚▗F▘▝©~""E}|{zDyDxwv▖@utCsr▖qpoBnmlkjAi "hgfe@DDdcba▖`?_^]▝/[>ZYX"WV=UT"SRQ<P@DONML;▖▖KJIHG:FEDC"B9A@?D >=8<; DRAW G: COPY 0wSCREEN$ 9POINT :FN ;PI<INKEY$=RND>[U]?[T]@[S]AD[R]PEEK [Q] FORMAT [P]D[O]E[N]F[M]G[L]H[K]I[J]J[I]K[H]L[G]M[F]N[E]O[D]P[C]Q[B]R[A]ST▙U▟VW▛XY▞Z▖[▜/▚]^▗_`▘a▝bc©d~e}f|g{hziyjxkwlvmuntosprqqrpsotnumvlwkxjyizh{g|f}e~d©cb▝a▘`_▗^]▚/▜[▖Z▞YX▛WV▟U▙TS[A]R[B]Q[C]P[D]O[E]N[F]M[G]L[H]K[I]J[J]I[K]H[L]G[M]F[N]E[O]D[P]C[Q]B[R]A[S]@[T]?[U]>RND=INKEY$<PI;FN :POINT 9SCREEN$ 8ATTR "7AT 6TAB 5VAL$ 43@ 21AT 0/ATTR ▝.-SCREEN$ ,+POINT *)FN ('PI&"%INKEY$$#RND"!@ Y [T][S]▝▖t[Q][P][O][N][M]@ [L][J]▝▖ OR [H]"[G] LPRINT "[E][D][C]""[B][A]#▙"")▟/5▛;""A▞G▖M▜S▚""Y_▗ek▘""q▝w}©~""▞}|[F]{[L]z""[R]yPIxTAB wCOS v""EXP uIN t OR s THEN r"" MOVE q BEEP p INVERSE o READ n " DIM m LOAD l PRINT k CLS j+i,h-g.f/e0d1c2b3a4`5_6^7]8/9[:Z;Y<X=W>V?U@TASBRCQDPEOFNGMHLIKJJKILHMGNFOEPDQCRBSAT@U?V>W=X<Y;Z:@[9/8]9^`>a?bAcBdDeEfGgPhJiKjhkNlPmQnSoTpVqWrYsSCREEN$ t/u]vCHR$ w`xbycze{f|h}i~k©ln▝o▘qr▗tu▚w▜x▖z▞{}▛~▟▝▙▗[A]▚[B]▜[C]▞[D][E][F]▟[G][H][A][I][C][J][D][K][F][L][G][M][I][N][J][O][L][P][M][Q][O][R][P][S][R][T][S][U][U]RNDRNDINKEY$PIPIFN FN SCREEN$ POINT ▖ATTR SCREEN$ TAB ATTR VAL$ AT TAB ▝VAL$ CODE AT VAL LEN ATTR SIN COS SCREEN$ TAN ASN POINT ACS ATN FN LN EXP PIINT SQR INKEY$▝@SGN ABS RNDPEEK IN [U]USR STR$ [T]CHR$ NOT [S]BIN OR [R] AND <=[Q]>=<>@ [P] LINE THEN [O] TO STEP [N]▖▖ DEF FN CAT FORMAT MOVE [I]▝ ERASE OPEN #[K] CLOSE # MERGE [J] VERIFY BEEP [I] CIRCLE INK [H] PAPER FLASH [G] BRIGHT INVERSE [F] OVER OUT [E]▝@ LPRINT LLIST [D] STOP READ [C] DATA RESTORE [B] NEW BORDER [A] CONTINUE "" BORDER ▙"▛#▞)▖""▜2▚8▗""AG▘▝P""V©~_}e|""{nztyzx""wv▞ut""[C]s[I]rq[R]p""PIonVAL mACS l""SGN kj OR i THEN h""g CLOSE #f PAPER ed"" READ c DIM ba PAUSE ` SAVE _^ OR ]BIN /NOT [@ZCHR$ YSTR$ XWUSR VIN UTPEEK SABS R QSGN PSQR OINT NMEXP LLN KJATN IACS HGASN FTAN EDCOS CSIN BLEN A@VAL ?CODE >@=VAL$ <TAB ;:AT OPEN #©9 SAVE © THEN NEXT STEP *R;;STR$ ![H] FOR ! PRINT ` CIRCLE s#r!{▞g REM PEEK LPRINT % DIM INK >ATN H FORMAT <=~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J] g RESTORE | NEW X RETURN X(O}LEN OB))TAN oax COPY ▖ LLIST # OVER LLIST STR$ l NEW ©(# THEN w G CONTINUE RANDOMIZE VAL$ NEW ?E CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =#<> MERGE ▗▜ OUT CHR$ COPY ▚ CLEAR REM UCODE U[Q] GO TO ▘©<=PEEK _SCREEN$ U* FOR ▝ DRAW 8?▜ CLEAR SCREEN$ MERGE SCREEN$ CLEAR FN @▗ LIST DRAW RETURN ▜WCODE COPY INPUT IN BIN ▗:ATTR LIST y OUT - SAVE ?▗ RETURN MERGE VAL$ TyB> STOP USR RETURN AT X COPY TO [R]▝7▗?©:} NEW 3 LPRINT n PRINT @ NEXT [C] RESTORE ▘▞{[M]T POKE ▗ CLS WSCREEN$ E} RESTORE ? SAVE DRAW LN USR }>=B[Q]L THEN ▜| COPY o5 LPRINT 7[N]POINT ▗ RUN SCREEN$ W©n LPRINT ▗Q~' POKE INT PRINT DATA FN LET READ LET ▗UINT u▛© INPUT LLIST t@SIN ▚ATTR PRINT INT U LPRINT @ PAUSE LET B IF wt aUSR USR LIST SAVE LIST DEF FN PEEK VERIFY (} DRAW ERASE N STEP ▗ NEXT COPY COPY FOR }[Q] PAPER ▚9 ySTR$ LET ▚9 RANDOMIZE ©?<>[G] SAVE RETURN [B]▝a| HCHR$ ~ MOVE B RETURN RETURN >=?B©UVAL$ COPY $ DRAW [B]]SCREEN$ PLOT R▗ OVER ~ MERGE OVER [D]j<so OUT [O]<9;srb & OR ▖"6"x COPY B▞▗SCREEN$ MERGE @SQR © FOR wLEN CHR$ LPRINT 9 NEW LET IF ▚z DRAW LET STR$ ▘USR ▘.2USR >▘^dSTR$ |▗SGN TO DRAW DRAW NOT SAVE ▝pSTR$ ▖$5U REM MERGE INPUT u0@[C]< COPY CAT LEN n RANDOMIZE RETURN ©G18D▗[L]▘88xx0/▞$▖TSCREEN$ COPY INT ] LOAD AND ▟ LINE `[Q]USR LPRINT `VAL FORMAT CIRCLE CONTINUE `PEEK p LIST |N f"USR NEW LIST NOT COPY NOT dTZ[R] CLOSE #SCREEN$ uSCREEN$ RUN USR ▝[G][E] PLOT ▝I© IF c BORDER ACS [G]@▘TINT BEEP ,VAL$ PAUSE J)%USCREEN$ H COPY ▖3▗(RNDr@ CLOSE #▗ COPY ?<= SAVE AH[C]@DFN MERGE BRIGHT gkATN SQR TAB F▛ NEW V-Sh[S]l▜$D@ INVERSE INPUT ▝o▝[6AT @@▟w OUT COPY kIN ASN AT ^D[oCOS qqiPI o▖USR 0Cz▚▗os COPY RANDOMIZE [R] COPY IN COPY W COPY <@ CLS CAT .©@u INK DEF FN s4 FOR I@▗CHR$ 0IN r SAVE COPY DRAW COPY DIM Y^© COPY / COPY WCODE COPY :▛5 COPY COPY O_BIN COPY [K][E][A]$[B]*USCREEN$ MERGE ~= COPY CLOSE # COPY [U] COPY [J] COPY ATN B▜@ POKE COPY NEXT COPY RANDOMIZE COPY RETURN P CLEAR LINE ▝ PAUSE R▝[P]T▝PIAT AUSR ▘[B]DB[L]SCREEN$ ] FOR ] COPY COPY CLS [A] RANDOMIZE LINE [A]>= RANDOMIZE COPY L COPY [A] RETURN >= LET ERASE COPY [I][G]B DATA [Q]B@)▚ DEF FN [R](U@▚VAL$ w RETURN COPY X,p STEP @[C]5(CHR$ [B]`HAH LIST ( RETURN @ DATA K CLEAR H DRAW <=▗!▖/▙ INVERSE SCREEN$ CLEAR LOAD COPY CLS ▜P MOVE e[U]-[Q]B,IN FOR ABS nvF▘ PRINT CODE [O]▘+}RNDATTR ©CODE ?©IN ©?W>= STEP :CHR$ OR 0▗"INT U IF IN INPUT RESTORE COPY ▝IN <>▝@ ERASE LOAD ATN OUT X@ v!FN K8▘ RETURN PRINT ▞!TSCREEN$ U INPUT UATTR ▘ CONTINUE PRINT 0.▗ CLEAR REM @ IF B[A] IF CLOSE #[Q] FORMAT SAVE DRAW IF POKE FN LLIST FORMAT CONTINUE LIST ] CLOSE #▗HE)USR SCREEN$ w OUT RETURN OVER FN ! TO CONTINUE FORMAT [L] IF @# LPRINT 4NOT ▘OXJ▟FN DYATTR V SAVE `BoSTR$ w▗$IN [B]AT '©'SIN LPRINT J@▚ IVAL$ pUSR CHR$ LPRINT [F] COPY _+ CAT )[P] COPY 2©K COPY COPY [H] RESTORE [P] COPY '!R[R]▗ COPY + COPY %USR ▝[H] CLS ▝ OUT 2 BEEP ▝9L PAPER 4▘8z[G] CLOSE #▝jABS [M] LIST CLEAR LPRINT RETURN LPRINT CLEAR CONTINUE COPY VAL IF REM COPY LIST COPY CONTINUE RETURN @ RETURN FN * IF CHR$ RETURN LPRINT THEN ▝Q REM +@ CLS RANDOMIZE GO SUB NEXT ACS [K]USR CLEAR REM [L]▟ DEF FN USR OVER ATN USR ▗ LPRINT COPY RETURN LLIST G0VAL$ E[F]@- RETURN FORMAT COPY <> COPY PJ CLEAR TAB R5%ATTR ABS PAPER b[F] STEP TO R RESTORE OR STEP j/ LPRINT [B][I]%▛U CLS uIN WR; NEW PLOT hU+SCREEN$ [H]e&TAN LINE P[F]P NEXT @POINT >= RESTORE &00▞▝CASN INVERSE kw▙Q[E][U]"<▝D▝B$&?▝XR▝FN *WSCREEN$ BEEP INT ]:H&▝@4 MERGE 3o^<ys LET READ a AND READ [P]▖[A]_CODE MERGE INPUT Ux! FORMAT e▘SGN [I]LCODE c BRIGHT DEF FN VAL$ ACS [A]8<<USR ▝{▜D▘ REM U RETURN Ny9SIN [C] AND ? DRAW $QNOT BEEP ATN /oof4▗ASN ▘ LPRINT `? TO ▝[P]▝USR @▜"TSCREEN$ CLEAR SQR } LOAD 3LN [I]p SAVE RANDOMIZE f▞'O READ GO TO USR OVER ▟[M]POINT ||~v USR ?▘$CHR$ mSTR$ ▚6] REM W; RUN CIRCLE USR 0 CIRCLE GO TO POKE IF IF |SGN OVER OVER ▙NOT >=USR U▚$ASCREEN$ ▞U<7 CLEAR )BIN / VERIFY ) x x@Wxw COPY )@yy` POKE )USR ( PAPER ) STR$ CHR$ STR$ 2NOT 7 OR NOT H 78?@@ ▝}@▘P_[H]022 OR <=0 THEN [K]2[K]7IN / LINE /[J] PAPER uH FORMAT c[K]][K]0▜20@INKEY$! LPRINT INVERSE NOT ▝ CLOSE #NOT BEEP BEEP PROTRACKER 2.1 BY GO DRAW LDEN (▟ 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 x>=SIN FN [P][G]▙u~wp FORMAT d8[H]YTOKG)B?▝8[U]2/,*'▘%# THEN :COS [E][A][P]/ COPY [P] PRINT DIM DRAW % LOAD =?? CLS FOR ..▛ CAT ? COPY LLIST .[K]{CODE INVERSE MOVE & PLOT k LOAD .;. LOAD FLASH -G NEXT RESTORE "v MERGE RESTORE ~2 INK RANDOMIZE 2 FLASH BEEP #,[E] MERGE [P]/y", MERGE ^ #V#"c MERGE OX MERGE LLIST q MERGE !s CLOSE #t CLOSE # LINE CHR$ CAT p4~p CLOSE #2q@ ra CIRCLE 2 AND VERIFY 2▝▘ BEEP 2/STR$ Q OPEN #V BEEP G/2 BEEP MERGE ▘ CIRCLE VERIFY >SCREEN$ E CIRCLE ! CLOSE #"f CIRCLE " THEN L VERIFY " DEF FN Q BEEP STEP ^ MERGE GO SUB S NEXT BEEP STR$ GO SUB s? MERGE 1[J] CLOSE #> LLIST FOR jP[Q]# FOR = PRINT P GO SUB ?*@$USR C FLASH STOP MERGE "@aF READ VERIFY CLS NOT Z BEEP /~▜ FORMAT DI▚VAL$ 8 INPUT ▚e[H]▜ INK OR RANDOMIZE ▘ED" CIRCLE THEN * CIRCLE F<>{▜_ SAVE ~0 THEN #SCREEN$ [F] CLEAR RETURN THEN Z PRINT 2y CLOSE # LET ~ NEW i#ng INVERSE b FOR 1K INVERSE } CAT XTP ERASE USR 0 THEN :8 GO SUB R<><>><($ASN weLN y<PEEK # ~2 BRIGHT MERGE ▘ABS MERGE P> FOR x_ INVERSE INVERSE `LEN .y STEP ▛ MERGE ("s CLOSE #VAL FOR IF D VERIFY (& RESTORE 7{PI PAUSE # VERIFY GO SUB DOPI GO SUB B0 LLIST >2 VERIFY CODE 2 VERIFY go" VERIFY "▝] VERIFY LLIST VAL$ INVERSE |2z CLOSE # INK PAPER ~ PLOT %{ CLOSE #©r~z~[ VERIFY © PAPER ~/ RESTORE THEN ~u~NOT IN DRAW ~[S]m RESTORE ~~[A] INK k~▜~[J]~©~!~ACS w BRIGHT .▝|▝{ PRINT IN ▝ INVERSE ▝ OVER CODE COPY ▝w POKE [D]▝E BEEP ▝$SIN CLS BEEP ▝ BEEP - BEEP BEEP LLIST ▝{6▝▝ COPY ▘} CLOSE #! CLOSE #IN COPY VERIFY !~5YAsATTR =I▞2^x<>CODE GJ[U]=Q(>=("=CHR$ 0 VERIFY MERGE !p CLOSE #5 PAUSE 6aPI TO ^ MERGE STEP [M] INK © GO SUB 24 CIRCLE NOT q" STEP USR PAPER CIRCLE 2[J]=kr3 CIRCLE <= FLASH * CIRCLE CODE 05( LLIST BRIGHT MERGE t STOP /Xl CLEAR " OUT MERGE 2nYU CIRCLE Q VERIFY Q THEN L VERIFY #)2lz STOP SQR F&2|&+ACS k!,?RND,^ INPUT READ LPRINT "[ VERIFY dVACS ] ^ VAL$ 5dINT = OPEN #▘ FLASH OVER DEF FN d/ MOVE ▙ACS da2 LLIST BEEP PAPER [J]'SCREEN$ PEEK PAPER n,N CLOSE #~ CLOSE #>,CODE 2 RETURN NEXT 2 CIRCLE :[E] CIRCLE =(y2J,RND GO SUB *>7PI<>HTAN OPEN #: READ O INK ( PAPER CODE 2#<>▜[F]b! OPEN #[R]f CIRCLE a0 &o"[D] CIRCLE PIx PAUSE i INK ABS ▙ CIRCLE PAUSE --? LOAD }J1Xg"▖1[BIN @H MERGE LET BEEP AND 8+ AND `8 AND 8g1 AND @8 DATA ▝▙<(v[K]VAL < LINE ABS ▜o CAT (%)INKEY$▜ CLOSE #▜"O| LINE ▖!P CLOSE #▜SQR ASN v%l>= OUT MSQR |dPI<>D/@▝INT ( GO SUB RETURN ( LIST >▗VAL 2 INK [Q]2 THEN PLOT [S] INK 2 INPUT CIRCLE : RANDOMIZE CIRCLE = LINE F PAPER y2CODE VAL #SCREEN$ / LLIST ##INT #w( INK $ CLEAR # THEN ~ghUSR PAPER 0# SAVE ▟ PAPER ▝?[C] NEXT #IN FLASH [R] SAVE # CONTINUE ▝# AND #PEEK L PLOT @ LOAD #▜o COPY #TAN CIRCLE FORMAT ©▖wk# FLASH % MOVE >= CONTINUE PI)^##STR$ SAVE CAT INT CLEAR '# LPRINT #BLEN #B: BEEP P(7NOT } FLASH 2+ BEEP := LINE y[G]^LI<[M][C]" INVERSE VERIFY <>[A] BEEP PRINT [H] FLASH x@=▖ BEEP GO TO *o& LIST wATTR SIN f BEEP ; IF ([Q]USR &PEEK ASN IF J,Dg<(/[S]COS < STEP CLOSE #($ CONTINUE LPRINT VERIFY NOT <= FLASH IF READ eic▟> COPY PRINT [G][I]<>>= CONTINUE CONTINUE Vn?} CONTINUE PLOT K& GO TO © OUT QRNDVAL$ ([H] THEN ,[A]3( COPY ▟_p[F]NOT CAT INPUT PLOT REM f. COPY >`<|bf0fF<f<8gSQR f?vSIN 8< COPY #P[L] OUT ~Q/©SCREEN$ ▗`1lA0`8lnn~vvx▝$"<F<`z@~UwK[C]fx`|F/[H],f/f^>z LPRINT bv<n'f> LOAD SQR /LN CIRCLE !VAL BEEP xp7STR$ |CHR$ OVER ERASE BRIGHT USR | DRAW l RETURN INPUT NEW VERIFY FN DRAW R GO TO O`VAL BRIGHT g DRAW b`COS [A] DRAW [H] NEW z` LPRINT PIe▜! NEW ABS g7~IN [Q] CIRCLE _ NEW lxpxl LPRINT ",x READ w©kkC[H] READ ccsog_ABS }W_|ASN COS O|lCHR$ RNDO8~ COPY RETURN SIN 0▘_0O INPUT ▛[I]n DRAW nl8▗▗GN©wG©<!LN THEN [H]6~FBV?/LN 7USR RETURN PAUSE [Q]O DRAW P,[G]"[I]CODE ?="TAN TAB ?X7STR$ &.@ OUT LOAD v`SQR c[P]$▝ CONTINUE `># q>]0|66v MOVE =J CIRCLE X07bGlv|[H]mASN / RUN NOT z NEW vnngO[Q]? GO TO vw RANDOMIZE LIST O[H][Q] TO IN ?,OIN RANDOMIZE vb LOAD ? COPY NOT VERIFY COPY #n4,vNOT Bw▚h~L2]T BEEP [B]INT BEEP LOAD PI CONTINUE !.`l6 RANDOMIZE fNOT [J][R][J]NOT REM A LPRINT COPY 1 COPY ? COPY COPY SAVE X SAVE s BORDER DEF FN ]RNDACS * PLOT S$ ERASE LPRINT 2 CLS <=P TO LET /[P]p CLS TO CIRCLE / DRAW RETURN ? LIST LPRINT USR STR$ LPRINT LET [P] SAVE CLS /USR BORDER LIST CLS 80 RUN LEN [B]_USR INPUT /NOT C<= LPRINT POKE READ <= SAVE READ LOAD COPY RUN /V CLS CONTINUE DRAW [+AT _▝_ LLIST LET CAT RANDOMIZE b~S_IN s POKE IN LIST IN USR COPY
