Sea boot: boot.B

  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