Titanic 1, 2: TITANIX.B

  0 REM DISKED BY DEADIE/HS'98  CLEAR  THEN INKEY$!USR >Q> GO SUB [ POKE / STEP  STEP ]>W%& FLASH  STEP  STEP ]>T& CLS  STEP  STEP ]>Q OPEN # CLEAR ><>2J] COPY _!v CLS <> OPEN # CLEAR <BIN /< RESTORE  OR  LET ] OR  PAPER ] OR [A]  OR ©NOT /= NEXT : VERIFY /SQR STR$  LLIST   INK $ THEN c( THEN [T] THEN <> INVERSE !S* INVERSE  RESTORE  LPRINT : PLOT  / PLOT  , THEN B  PLOT  <z> INVERSE ! PRINT > STEP ^ NEXT <> NEXT !&`[[T] GO SUB VAL  INK "[H][!▖ COPY  COPY P' GO SUB s[1VAL  CIRCLE NOT [ GO SUB LN `` INK  LLIST A)0; LET  INK  LET > LLIST A)8 SAVE SQR 8▘W VERIFY   GO SUB ▘(O;SQR  INK O0=  LET <(Oo{[F]oz[M]g GO SUB VAL `PEEK ($ LET o INK  LLIST A) INK 0 CONTINUE  THEN  POKE  INK  LLIST A) INK  THEN 0 PRINT  INK  LLIST A) INK 8 REM $ CAT  LET ATN ( AND O0>STR$ ; STEP > LPRINT  LLIST A)8 SAVE  INK VAL$ 1![O][ GO SUB VAL ! INK  NEXT NOT `[K]|[O] COPY NOT a STEP  ERASE  NEXT 1 BEEP  DATA `! SAVE 'XT] COPY >>~u GO SUB VAL LN ?=y RETURN  COPY  LINE !|SCREEN$ * FOR /" POKE o NEXT  CIRCLE a GO SUB )[O][| STOP 4@ RETURN a!VASN zNOT ~bX▝a DEF FN T FORMAT IN T>INKEY$T! CLS ` INVERSE  STOP sFN >C2 RESTORE BBUSR ~]<>!a CONTINUE X?GASN V CLS c OUT  LPRINT | LPRINT <>ti{panc1 OPEN # BEEP 2 NEXT CODE  OPEN # RETURN y/,~ NEXT [A]!j CAT © CODE wA(A▞>G INVERSE  COPY  RESTORE  RETURN  LIST M>w# IF [M]oW NEXT  GO SUB ^">=0FN 00@6PI>`xbtcNOT #ssr>FN [C] STEP ; FLASH [P] LET a CLS v NEXT USR =(2<>NOT ▝LN L STEP [R][P]>K=2[S]( PAUSE [B]'ATN ©J<>*b~ RETURN  COPY  DRAW  OR (kd RESTORE  STEP j# LLIST {▖oz▞ DEF FN #"<>!d[J] NEW NOT c>X?3[J] STOP ??@ SAVE @ LLIST a4@XA FORMAT USR : OR *▚ GO SUB  LET STR$ [▖ RESTORE  RETURN nLN CHR$ 2{d NEXT b OVER  OR  GO SUB S STEP  COPY ▘[STR$  NEXT  LLIST VAL  MOVE "%*▗[I]©<> OR  MERGE  RESTORE o&)[I]L DRAW C FOR  READ  NEXT Ow MERGE  COPY  LET  MOVE  PRINT  LLIST ,▘@&J&STR$ gWACS  SAVE ! PAUSE `o GO SUB VAL <AT SCREEN$ INT  READ S CLEAR  OR ! INPUT ©C OPEN #INKEY$_STR$ xLEN   DIM ! RANDOMIZE P|VAL ><>:, SAVE P RESTORE  OR }S LPRINT |# LET  POKE STR$  LLIST $ SAVE ? NEW  } VERIFY  LPRINT o0SGN [Q]g[P]g INVERSE <> LLIST " OPEN # GO SUB sVAL$ _[U] LLIST 1▞{ POKE ASN ugc:zu▝hA STOP 8SrttE/u[H] IF un4uH,+SGN LEN @u LPRINT INT u RETURN © RESTORE  MERGE  OR  PRINT >=2yc  STEP PIU[A]▘D IF  ERASE CHR$ 7© FLASH  RETURN  GO SUB  LLIST `IN  COPY Cd LET STR$  MOVE  LLIST  CLS <>*PI COPY ?zUSR  THEN  GO SUB R( FORMAT ASN  CAT "<>!SCREEN$  COPY ?xph`XPH@80(  DATA SCREEN$ L4d$LEN HPOINT ▜CHR$ , RANDOMIZE h▜▗ ▜CHR$ - MOVE CHR$  PAPER h COPY  COPY x9 COPY  COPY  "$&(*,.02468:<> COPY  COPY @BDFHJLNPRTVXZ/^ COPY  COPY `bdfhjlnprtvxz|~ DATA D[Q] COPY CODE c CLS  CLEAR  CLOSE #©` GO TO  FOR <> 7WE&[U]RTUaN!8S▙HI,SPOUSR ECY▛ORLbD▜H@ S-FTASN COS  FLASH `AGIT RUN pNX20ALK[R]eVt▚elMZ VAL N':iFN ▜WP©▝ZT OR sADISKD[C]SQR W[N]VAL  DATA ON[S]A)iSQR IAHC70[N]FhMUSR A-PUSR EXP  PRINT 198<>1[P]STA[M] LIST L,[U]FTAB H6FN SQR xYNbWAINKEY$IEXP TAN CjUS[B] CLOSE #B#STR$ Q▛4Q▝▘UL# STEP NGT*B CIRCLE / 0$&p";K CONTINUE Mr.;([A]STR$ (SQR T NEXT [D]SIN K[I]LE>SIN Y[R]SPACE▜TLODP|[C] SAVE _ LINE e<2Z4CHR$ ACS USR F[J] PAPER KTFP FLASH Y'{[I]H CONTINUE GM CONTINUE )P[K]MEDU[E]LC*DEA<=n SAVE VOS/H}" OPEN #, FX[A] LPRINT !F▖iGRx▖F8©MUZ[L]KB[T]S^xk[M] SAVE ,q©19 RETURN 8bAT U$ RESTORE FLYEXP dEACS NOT ECB VERIFY PU@ OR  SAVE PM~.(DU ▛ VERIFY  CLOSE #H]G?WL,IC*J AND B% REM T TO 3wHNOBPSCREEN$ BF▙▗eVAL Bp©! MOVE 9S▙FN 82-▗▜%<>W[L][O] BEEP  NEW ▞[G]![F]▗5GABS [U][T]ATTR A3LEN ?$ LINE JCODE NC^BiQ TO "LA[E]tDX[S] DATA 2~IK[J]FN O LLIST W INVERSE S!D©ASN C[C]a BEEP N[N]# DRAW A OVER H[M]#SGN $[I] MERGE 0▗nBIN  OVER 5[E]QD POKE  PAUSE ] DEF FN QKK+aj7TAN @PO LPRINT [S]Rf+INKEY$wFBIN [K]3L4UOUSR $ VERIFY C ERASE 8l[ GO TO k RETURN  CIRCLE oGF;+@NyINT STR$ E6ACS ;9STR$ /PQbDFN EBIN }bNi▛U[S]▝ CAT +(820▝)6NOT -5H}NOT  OVER F▝ TO 5:P[E]INT S]-[T]CODE AT STOP ▚=ACS E8▝INKEY$▝CK RETURN 1LEN 5P RANDOMIZE BIN O.z DATA CODE J@STR$ j<>?▛[D]: DRAW ▛pzG MERGE [F]L,I{GO#-H RUN I THEN FN  LET AINKEY$a OPEN #I/* MOVE P~F[S][I];ESTR$ US▚R.i THEN  FOR 2 NEW MoBYNOT  VERIFY `?O RETURN &AY▗ RESTORE STR$ (s▙WGPEEK  ▛+B POKE eY STEP L LINE 1WAIdHPRNDyL LPRINT "ZNOT [O] MOVE 1CHR$ [E]<P REM  OUT .S- MOVE VAL ? RUN UVAL$  MOVE S?1620S COPY  OUT SCREEN$ z NSk3.,"9-x8CY}▖(V*`)VAL$ VAL  LIST dDO:2 LPRINT _5068/1.7<= INVERSE [Q].13TVACS HSfF  RETURN B[[R]>= THEN X CLS [A]K4VAL  OVER ATTR  STOP AN'TK#>=B[T][ VERIFY rUKhPIN INPUT !SGN  DEF FN  FORMAT INKEY$G RESTORE ▗% OR 5RO<=▘@y# FORMAT _6EXP [R] COPY A/ INVERSE  BEEP ,y LLIST o_C PLOT  [A]RND[H]H[T C RANDOMIZE 0 INVERSE CODE [Q]89 COPY !6 PLOT  NOT /▟[E]= PAUSE ▛7ATN CY8R* DRAW }U2[F]ATTR X[M]:6 OUT  TO 3 THEN 79~ LET NOT /22o0J GO TO  DRAW  AND  OVER [L]oC[M] VERIFY  LPRINT  OVER  MOVE (▗ INPUT <=SQR  AND ▜SGN C▚XPEEK  NEW  OVER <= STOP  RUN ▝[G] PLOT   BRIGHT PEEK  PRINT ▚ THEN _ CAT vABS BIN '▙ LOAD RND▜z PAUSE <=▝ OR  LIST  AND BIN POINT [H]<SCREEN$ POINT zGIN |CCODE BRND LET [N]( VERIFY ▜LN  NEW ^ PAUSE (▝ READ 7PEEK  READ ABS  OUT | IF  RUN <=7PEEK ABS  NEW ABS  LIST QA SAVE ▙ RUN  NEW [Q]^ NEW ▗@o▖/ NEW ABS  RANDOMIZE  IF >=Co`r7USR  FOR  STEP  NEW STR$ PEEK USR / OUT  DEF FN  IF  IF  OR  NEW  IF Gx ERASE  NEW USR PEEK  IF CHR$ PEEK  TO  LLIST  POKE LN  FORMAT  TO ,SCREEN$ ?> NEW  PAUSE  OPEN #F[P] ERASE ]TAB  OUT [7 CONTINUE  LPRINT DSGN STR$ INKEY$ PLOT  USR _k$Nn+'STR$  COPY [A]VAL$ 7[Q] CONTINUE [ DATA &▜ATN  OVER D LPRINT _ POKE  PAUSE ='^EC@B LPRINT ▜ OPEN #USR [P]"-ZbdMnGC▘ OVER POINT `?k▞1I2 COS ~ LIST  SAVE q NEW [T] DRAW  IF  NEW [G]K2~ABS  CLOSE # IF  RETURN  NEW  THEN @z NEXT ATTR ▟SCREEN$ SGN Y IF @jA? SAVE  VERIFY B BEEP h > LPRINT ABS [H] NEW ▗#f RESTORE  RETURN LN  NEW NOT COS 2 LIST  ERASE  ERASE ^4[F]qDPEEK [B]PEEK  LLIST  LLIST PEEK 7 DATA |_C[U]NOT O RETURN  OPEN #nLYc[F]! BEEP {1BBIN #! AND  LIST Qf1C▟c PAPER USR !X!TAN [A]F▗cZ GO SUB 1 SAVE NJ▗+@ ERASE #LN  OVER  OR ▛▚KbW<= PRINT 6_5 CONTINUE ▛h[L]I@ INK [K]Cy▞ LPRINT ▜!PEEK ▖B▝e#/POINT 5[D] PAPER bX▗NOT qZSIN n▞PEEK $N9▚g"BIN F[E]46TAN [A] ERASE  AND 6-TAB 1 IF IJ▗|@$ MOVE 6(2BIN PI[Q]*BtKGQ[G]$ NEW sASN $GCODE  ERASE j ERASE #SCREEN$ TABS  LIST PEEK  NEW  LIST 8~ CIRCLE $ SAVE [B]zEXP IN 1▗▙ GO SUB = INPUT p GO TO ~m99 OVER SGN  LOAD {[L] PRINT EXP  DEF FN [L]b5 POKE K STOP [H]ABS  BORDER (ABS  LOAD 7;P7▞/ BRIGHT  REM =t' ow INPUT x-P OVER  BORDER [J]s[N][H]s[G] DEF FN  RUN [F]x▞{POINT  RANDOMIZE  CONTINUE  DEF FN wSCREEN$ INT IN x INPUT ATN  RETURN ABS  OVER LN $ LPRINT >USR Z CONTINUE  MERGE  INPUT  MERGE [Q][H] PAUSE  RUN  READ  LLIST  ERASE  BORDER (7ABS  PRINT SCREEN$  NEW  OVER  LET PEEK  RUN 9EXP TAN  ERASE [M]wsABS ABS PEEK  OVER  RUN ABS ,ks RUN h=INKEY$Z OVER <=▟ OVER  READ { AND [D]CODE  LOAD ▜LEN |GC^PEEK TAB G VERIFY  CONTINUE ▟CF~LEN <=7NOT ▙ABS <= OVER z RUN ▜ DEF FN ATN  CLEAR  RUN o SAVE [G]POINT  CLS  FOR ]© OR  LOAD USR oABS IN `% LIST W NEW K( LPRINT ▜VAL  RANDOMIZE  NEW ` NEW > DRAW  NEW  OVER IN  AND ABS  CLOSE #▛! RESTORE 1oABS ▝[Q]/ GO TO @INKEY$J RANDOMIZE  THEN 7▟0 CONTINUE VAL$ USR VAL p( STOP yNOT ( INPUT  LET ▜IN  SAVE ([A] FORMAT  LET NOT [G] DRAW a( NEW CODE ~ [L] LIST ▚ DIM ( ERASE <=/13 CIRCLE /~x MERGE [L] SAVE  PRINT ▙?@7EPEEK =F1>3WIN ?nLN  RESTORE  THEN P#} DRAW OP LET [L]s OUT |SCREEN$  READ  THEN 7 NEXT 1~ LET 3PI[P]PEEK  DRAW  LLIST P NEW ~mIN  LLIST Z CONTINUE  LET 1S7▚p: TO Yh8▜ OUT xXx RESTORE  THEN @n REM | BEEP {Xp<Fxy,`x[IN X4U CLOSE #h PEEK  CONTINUE ZdS?:EyL OVER  LIST ▗M DIM  LET (RND IF -ABS  CONTINUE POINT ( BEEP KyFp8 IF a IF IN | NEW  POKE  LET  IF  CONTINUE  PAUSE  POKE = GO SUB  BEEP  BORDER AT g1▙|O AND sRND BRIGHT 93 BORDER  THEN [O]8p GO SUB  AND 1c GO TO <=[ CAT <▗ATTR q[USR ]▟d LPRINT  IF  BORDER c GO TO s▙w INPUT <`s POKE | NEXT b!©um CAT <Lc▘k1 POKE = OVER  BORDER NsVATTR Z5gIN [D]=Fs[O][T] LLIST NOT [M]}]9 TO x[B] LIST [L]3 NEXT _[A] DEF FN G IF 1AT ! INPUT z NEW x IF  POKE Ng RANDOMIZE c9 NEW R POKE  IF @ NEW [L] OPEN #PEEK g= INVERSE TwPEEK [I]<=i0ABS e[T]eBIN o OVER Pu LOAD {Z OVER 8p;ABS CU▘ RESTORE {/`=, INPUT [F]"[G] ERASE  RUN  CLS  INPUT R RETURN 7SQR TAN  PRINT [Q]` INPUT ▝ PAPER  INVERSE AT  LOAD @ AND  IF Ek^VAL [D])ABS { RUN *L OVER RP; INVERSE * CIRCLE l5TAN  INPUT 6 ERASE { ERASE w NEW 7 SAVE h CIRCLE  NEW  RUN [H] OPEN #t INVERSE INKEY$ LET 2]▖ NEW ▗ GO SUB POINT  LOAD 2 LPRINT TAN P;▖ RANDOMIZE " VERIFY  LPRINT  ERASE cPOINT 6=PEEK Gx NEW PIPEEK  NEW [G] LET q IF  DATA [Q]POINT Y FORMAT SCREEN$  MOVE 8 DATA ?]{ BRIGHT w[R] DRAW % LOAD  GO SUB PI| COPY C BRIGHT  CLS /yABS | RANDOMIZE = RUN ▜IN  DRAW  NEXT =D CLEAR x DRAW / OUT ▜ABS 'lT![F] MERGE }B OVER  SAVE SIN A RUN  COPY ! GO TO VAL  LOAD ▝ DRAW © OVER s RETURN SGN  MOVE ABS { DRAW C AND !I PRINT  LOAD ABS  CLS = OUT  POKE  CLEAR {VAL INKEY$nG OVER oNA CLEAR  OVER PEEK IN  COPY AT 7C INVERSE ABS a▟TAB  LET  NEW  ERASE IN /PI ERASE  CONTINUE AT  OR  ERASE [Q]@ COPY POINT [H]h ERASE  GO TO @ABS lPEEK @< READ [H]PEEK = RUN SGN  STEP z{ COPY SGN  SAVE ▗^{ OUT  DRAW TAN ! COPY  RUN ABS ^j OVER  RESTORE  OR ▙PEEK ©© STEP  CONTINUE  NEW  MOVE  LIST ABS  RETURN  LIST VAL PEEK p CIRCLE  ERASE VAL RNDe[U]t CONTINUE "[U]:>=PEEK y ERASE BCODE [O]PEEK !▟[L] OUT 0▘> IF POINT IN  RANDOMIZE  COPY  LLIST  CIRCLE ▛ DIM 0[H] LOAD  INPUT gVAL  LET s[O] LIST !oPEEK COS x_9 LOAD k FORMAT 0; OUT  BORDER LEN  LOAD { READ gEXP {SGN  DEF FN E[M] BORDER INT  DRAW  MERGE lcwSGN LN ▟g OVER zs▛ OVER  AND ^ LOAD  STEP cABS 3 OVER  NEW 0; DRAW x1 OVER  BORDER SCREEN$ <= THEN  CAT ABS 1 INPUT LEN z<=M| NEW  ERASE g[A] PAUSE ▟ ERASE gP[M]^ DRAW  ERASE C RANDOMIZE ▙ MOVE pPEEK COS 7z NEW  MOVE  TO  RANDOMIZE  STOP LEN TAB }SGN  DEF FN [M] RUN [R]@z FOR  NEW  OVER ▖▗[H][G]IN ▜ RANDOMIZE ▚ ERASE <= NEW {7| RANDOMIZE  BORDER or NEW {[N]INKEY$!LN [H] NEXT 7 IF [M]7[B]" MOVE doTAN ▛ RESTORE [I] PAPER NOT [H] LOAD <=COS 1▘> DRAW SIN  POKE  IF  CIRCLE NOT  DRAW ▚G IF [O][I]_ DRAW c REM ▛[M]L INK pp NEXT  STEP R;.STR$ ![H] FOR xfs#r OR k{▞` STOP PEEK CHR$ IN @ MERGE  INK >ATN ▗`H LLIST ▜ COPY ~ THEN © : NEW OUSR [A]© AND G#{[G] RESTORE [B] LIST oz[J]g| SAVE X RETURN (O}[A]0LEN )?TAN oa~ RETURN  STEP [L] CAT  LLIST # OVER STR$ BIN ©([T] CLEAR  THEN w G RANDOMIZE h POKE VAL$  NEW ?F OUT [Q] INK !X'<>NOT  COPY w($  SAVE NOT ALN a COPY  AND 0 SAVE  LPRINT f|=#<> COPY <=-© RETURN  OR  PRINT STR$ x@ FOR CHR$  DRAW ( MERGE  INVERSE USR  TO  LIST y▘ STEP g? OR  CAT  MERGE USR zASN  COPY  NEW A{[I]▗ LIST  LET <STR$  NEXT  MERGE ▝?# RETURN BIN  DRAW +[P]STR$ [A] OR kUSR { FORMAT PI FLASH U| INK ,CHR$ ▝BIN [D]▞P. DRAW [T] RETURN  INK @?PV- OUT  CAT <=NOT 8 LET STR$  FORMAT USR  OVER ▚BIN O LPRINT  LIST  SAVE  DRAW  BIN  TO ©©?) REM <H CONTINUE CHR$  LLIST `[A]. LPRINT  PRINT 2▗USR NOT <=9 MERGE  CAT | TO . BORDER ▝ SAVE ^~ CIRCLE 3[A] OPEN #BIN NOT RJ@X&[E][I]2 CIRCLE b>=/! LOAD  INPUT W1LEN ! LPRINT ( SAVE 'NOT X MERGE @. PT3~layerv1DCHR$ .0b LIST ▘Nick.[I]ofGDCSTR$  NEXT "H ERASE  COPY L_lATTR  INK d~ LIST 2[E] OVER #^t=P RESTORE !<>©" INK  LIST [G] LLIST N#FC? GO SUB sy ERASE  RANDOMIZE RNDSQR  STOP  INK [Q]>0STR$ U FOR RyB=  PAUSE 1, SAVE > LIST 2TAN  MERGE  FORMAT  VERIFY [M] LOAD  BEEP * LPRINT RC CIRCLE X!)%,Pp@ INVERSE  MOVE d_>NOT ^O THEN  DIM  STR$ <=([Q] LET ▖.INKEY$i[L]▚ LIST :[H]▖ STOP  LLIST  SAVE (`FN x CIRCLE  CIRCLE (▖ LIST  LPRINT ▝X<[A]|!VAL @ GO TO [E]D▛ SAVE p,USR  CLEAR PEEK USR USR ▗X LIST USR   PLOT   LINE 00[S]|USR "USR USR 80 LIST  SAVE  OUT CHR$ 00AT [A]00{e00Q>00,50 DRAW )0[A] LLIST  VERIFY 00>=ABS 00SIN FN 00[P][G]00▙00~w00pk00d^00YT00OK00GB00?;0085002/00,*00'%00#!000000000000<0 PAPER ,U`kRY{ LPRINT ▝ ERASE  FLASH  REM x BRIGHT ) DEF FN  OUT  OVER  CLS hH/5 DEF FN -VO NEZ©▖H RANDOMIZE  MOVE  PLOT  "INKEY$ BEEP 2U INK ABS dLEN ` FLASH  COPY  BRIGHT @ MERGE  COPY [P] VERIFY og"[O] OVER USR 1 BRIGHT  LET COS  CLS  BEEP [F] OPEN #"▗ INK CODE 03HX><>Q INPUT  STEP  LLIST  CIRCLE  CLEAR CHR$ ▘/u. INVERSE  LET  GO SUB s OUT SCREEN$  RETURN  COPY g< LINE _ VERIFY  PAUSE  MOVE (oNOT WINT  {2p MERGE }▜?9 RANDOMIZE  MOVE z NEW ;PI PAUSE [T]CHR$ @:[U]IN `CHR$ [K]= RETURN  LIST  <BIN NOT [Q]#) LIST d24 PAUSE TAB SGN CODE NOT COS © TO 8▝ AND & OPEN #o< NEW ~ THEN ; PLOT   STOP  STOP =z COPY sg$ THEN m(2<> MERGE  INVERSE CHR$ |NOT  LIST  GO SUB ▗{ NEW /E PLOT  .< READ  MERGE  CLEAR o|>< NEW  INVERSE STR$ }' BRIGHT ▙s" IF  CLOSE # ERASE  MERGE  FOR [L]STR$ [L]LN + DEF FN py<> VERIFY &9nC CLOSE #w[R] RANDOMIZE  DATA  LLIST "~▚= IF ^ VERIFY  *#▚8INKEY$ FOR 0NOT F NEXT  GO SUB R$ 2▞CODE [U]*oNOT FN [R])xj9©8:dcATTR  INPUT N LINE zPOINT MNOT |!col~ BEEP 7 PLOT  ▛ VERIFY  CLEAR IN ! REM USR O0CHR$ ACS !bSGN  GO TO  LPRINT BIN <>vNOT  CAT  INK  RESTORE  VERIFY dc BEEP [Q]o COPY  VERIFY IN  NEW  INVERSE ASN  OUT  CIRCLE  BEEP G POKE ).SIN  NEW bo} BEEP B CLS !oe&[S]:CODE [C]NOT )POINT POINT :9[O]8 PRINT : VERIFY  LINE [J]POINT MNOT [L]!▘ol[M] CIRCLE 7 PLOT  SCREEN$  BEEP  CLEAR  OVER ! REM  OUT O0CHR$  MERGE !b FLASH  GO TO  LPRINT BIN  CONTINUE vNOT  INPUT  INK  CIRCLE b+INT [B] CIRCLE ©' NEW $IN  LET 7 CIRCLE  CONTINUE G/d RESTORE BIN  OVER [L] CIRCLE `>=Ce DRAW 8 GO SUB RNOT D DATA XSTR$ ACODE g▘ FORMAT o DRAW nCU IF $9SGN 8:[P] BEEP INKEY$ LINE ATN NOT EXP " CLOSE #![Q]][L]'G CLEAR }oTr[D]+ OVER *dABS LEN  MERGE " THEN 9G LIST IN  COPY  CLEAR  MERGE  GO SUB lSTR$ iC[T]B[N]| INVERSE |2^ MERGE  RUN y, OPEN #ATTR 5hATN (y?!STR$  INK  CLEAR .:> LLIST VAL$ =F LINE  RETURN  BRIGHT  LPRINT ▝T FLASH [E] READ USR ▛~Gd!-"Gd]SF{fP>NHMUSR  INK _[M]<=PI  GO SUB sINT  BRIGHT '$~▜0 BORDER  READ #"_Q[J] OVER  CLOSE #ASN W ERASE  RANDOMIZE  LLIST t▘B FOR PI DIM "u FLASH  INVERSE  FLASH  STEP  PAPER  INK  FORMAT  LPRINT  GO SUB S▗ REM |^Z_[T]U^<>& ERASE   DRAW  PAPER [F]▝ACS  AND `0 FLASH !b0&/▜PEEK o_ SAVE & CLOSE #~,f RESTORE : VERIFY  LPRINT USR  INK ONOT  OUT PEEK [T] FOR 2m INVERSE #^Vl TO ^{INKEY$▝' FOR  INK X<>▖©uCHR$ ▜ [S]Ap:;SIN `h INK y$ DATA  FOR <>u▗7Q OVER >Pj▗N^(a][[T] INVERSE [D][L]RABS )[Q]OA OVER OD;$7G9/[E]>= COPY [E] LPRINT oN,F GO SUB C[ INVERSE BIN SQR [Q]@7 DRAW i>2aNOT  BRIGHT  INK  LIST  THEN (<>>/26©`R POKE #BIN JBIN A BEEP  STEP ( DATA ▜ssHh OVER =a#▘ CLOSE #R▛Q[C][M] OUT 0ZNOT SGN ▗G SAVE ▘`o LPRINT V FLASH ( PLOT   RETURN a<QRND- LET UPEEK  FLASH  LET FN [H]▛ BEEP [D] RUN  PLOT  b LET  OVER  LET : STEP [F] FLASH DjSQR (SQR ▜$ CLEAR 4(SQR ` ERASE ▛[K]ESQR ACS I)STR$ 9 INK  DATA 7INKEY$ FORMAT PEEK ACS  BEEP PEEK 5[K] FLASH W RETURN j MOVE INKEY$[S] POKE PEEK ? OVER < LLIST   LIST : TO  INVERSE  DATA - RANDOMIZE PEEK DPEEK k]CHR$ 7jhxwuBlPEEK &$6PEEK [U] LINE [J]mE~( GO TO  CLEAR SCREEN$  MOVE [B]SCREEN$  PAUSE NOT  FORMAT  OUT [H] FLASH SCREEN$ LEN QSCREEN$ <=B~SCREEN$ #▗CU©LEN GSCREEN$  INK #tSCREEN$ FN  SCREEN$ 0^(FN LN BIN G▘/`V▚AT  BRIGHT SCREEN$  LLIST [P]<RNDRND-SCREEN$  COPY  BRIGHT CHR$ LEN -[D]RND* LET  OVER  GO SUB S[D]p READ  MERGE )X* VERIFY o[I][J]<>[U]c GO TO ▖g"#(  IF /[T]NOT dp- CONTINUE `[L]k&TAB TAN EXP N5,og~Qs|"POINT USR  ERASE JRLN /Z5<FN 19tB6ZNOT PI OPEN #b(>a>$ VERIFY  {▗[E]-vrj[B] COPY I BEEP  CAT ff) RESTORE USR ▘!![B]BAQ[A]):KV▜.R[B] FORMAT [B],# RETURN [B]%ZR BRIGHT [B][H]TAN iRyZ.5[Q'▗X6ZNOT 8[E][U] OVER [K]B[R][F]+KnATTR 68Bk/ OPEN # CIRCLE YG PAPER  PAPER AT IN NOT Z3CHR$ o MERGE 2X CLS g▜ CLOSE #[G]2X CLEAR t MOVE SQR PWD THEN ▝[I]u Y PLOT  IC INK PI(0TAN OUSR  CIRCLE y POKE [G]U MERGE &! COPY #"EXP  OUT [O] OVER LSTR$ STR$  OUT ▝oA[K][J]RND[U]AT IN  DATA LCHR$ 0 RETURN ▜ RANDOMIZE 5 STOP s[L]X CIRCLE SCREEN$  OVER 0U PRINT g[O][H]jO SAVE oicPIvf[Q]n FOR BIN ?y READ C$▝H&Ef▜Gyv)FmSCREEN$  BEEP G▗,COS InLN  )D%-E`(IN ▛ATN T GO SUB hINKEY$9Q2[G] CLS  CLEAR NOT PI OVER ><>> COPY 2[P]!F4"LEN W INVERSE [G] INVERSE ( RESTORE  STOP =PIAT  BORDER  CAT <>.[L]^▚aTAN hG[Q] ERASE [D]ABS  OUT ▘FN [E] OPEN #IN 7[I] LET HwmCOS  LPRINT %& DRAW SQR +Pr2TacpCHR$ ke 3.BIN   LET mpila LIST tSTR$  STOP nAf RETURN  LPRINT "MYHEARTWIL▘GON" AND  LET (C.D)Bpby/qAVS/HR, C1FN PVc1 SAVE <>!" GO TO  VERIFY COS  STEP ▖ LIST A COPY <0[R][T]POINT  NEW ATTR TAB CODE  LLIST FC!VAL$ 6H[H]OU?PI COPY  COPY !$'*-0369<?B RETURN  COPY EHKNQTWZ]`c COPY LN  GO SUB ▝b▝▝[H]SIN ` LPRINT +L`S[M]8 VERIFY D AND [I]38{[G] LINE 2cATTR  AND  IF [M]Cj[F]SCREEN$  LOAD G▙0RLN  PLOT  0▝N5[D]'p THEN 5jAtSTR$ 5EXP [I]USR  LPRINT k PRINT 8HbIN %~CHR$  BORDER ▝/[U]▝ySCREEN$  INPUT `` LPRINT [A]RND``TAN >=`E*L`gAT  GO SUB  IF cSIN STR$ ` LPRINT L5O~[F] LLIST LEN USR  NEXT  DEF FN >=©ov{▜ STEP ▘ TO  READ @▞^[M]b5 LIST SQR P4P BORDER c6▘<LEN A4! LIST MX DRAW ▜ CAT ▞[M]s▛ LIST  COPY  DATA ▙▜[R]▙/BIN ▙#SGN  PLOT  ▛)▜!X3▗[O];2 FORMAT  LLIST T,#INKEY$n_▜bSCREEN$  FORMAT  CIRCLE  DATA SCREEN$  CAT POINT {SCREEN$ ▝%POINT POINT  PAPER "# RUN [A][D]STR$ 397▛B▞< DEF FN  FORMAT  STEP ? RETURN ATTR  OPEN # OPEN #▖yLN ▘kP8 LPRINT `4 THEN `` LINE <>o`>=<= ERASE  CLOSE #F INK F FLASH H PAPER &[E] TO  PLOT  j DRAW  RESTORE "h NEXT ▜" AND HX OR BIN RNDNOT  POKE { LLIST [Q]l[R]P OPEN #LN zAD STOP # FORMAT }©1a RUN LN 4 PAPER ▚a THEN  INK ▞ INVERSE [C]$|ZN{ LIST fv BEEP  READ  RUN  PRINT  RUN v▙[C] FOR $m3>=K LIST  AND  PAUSE ! LIST ▝* LIST (3vmN[F]USR KR@!% POKE [E] LOAD {9l FLASH oxJ>=[A]▗IJABS Xltd OUT R=n0n` DIM  COPY  DATA tLEN <=6): TO  PLOT  kAT }INKEY$ RETURN v▘[B]x[N]Br©[R]? LET ▞$[I]s!z© PAPER x SAVE }[G]a©z SAVE [Q]j COPY Gq[H]#[C]Cx▗▚[J]▘.xVAL J[Q] PAUSE 4#E[O]0▝▜;0▜ REM  LINE 0>=[I]~0CF)02 DRAW [I] DATA -}[Q] OPEN # INK 3 CIRCLE mr{{ OVER  CAT d OVER  PAPER v CAT ` TO R=DlD BRIGHT ^x@u BEEP >= OPEN #= PAPER [G] INK ▜ OVER }NOT ▘j CONTINUE ©hhtRNDvM Yi@Fg COPY E TO e CONTINUE S DIM K THEN  OPEN # LIST  OR v OVER t IF  MOVE 2▝ BEEP -[N]B DEF FN H LIST }t READ ~" LPRINT L,,2NOT CODE  DIM ©CHR$ [A] RUN  LIST  CLS }▗pl PAPER o FLASH x BEEP Y* BORDER ▗ CLEAR [U]▘0 LIST & TO |y INVERSE SCREEN$  CLEAR  CAT INT ▚PIMS MOVE }]H1!}s zz©  TO LN q OVER ]<USR  LIST v RANDOMIZE ▜VPOINT &3POINT v%l?K GO SUB [J] SAVE <NOT  CLEAR `IN  THEN SGN [H]vVAL  OPEN #+ INVERSE [G]8?[F]1[S] DEF FN  OPEN #[J]*K[P]▞- RUN  OR  OR SQR BIN < STEP ** CAT  CAT ?▜ DEF FN ▞ BORDER ▛ LIST  COPY EXP #▜FN #q▙#VAL  ▛A; FORMAT ,f8▜!wVAL ▗ BORDER ▘0[T]/x[Q]ABS AT STR$  PRINT <>MPQ VERIFY [%) MERGE ABS cASN ^ABS /fn[H[G]hYNOT f▜Z"CHR$  CAT =([A][C]s[D] OR x[F]OEXP IN Y▘▗ BEEP u▝ INK [A] OVER ©X PRINT  FORMAT ▟[C]GB[G][U]▛q LPRINT =}t<=IN ▞ %▘YPI$EXP ▝#" AND 9 STEP  CAT  <=`USR <=WH VERIFY <=3 LIST  VERIFY hoSTR$ ▞ RUN  CAT ▗IN  LINE [T]▚{+[T]©▛[T]AS▞▖!Xi* FOR z/-[K][I][I]"[D][C][C]ASN P▖nq~▗ RUN ▝i▞ PLOT  G[K]i6:,{x *.[C] LINE +<>``>=<=d/©YF{[K] LIST  NEW M▚▖dP MOVE LIN x<[N]>=I0C`[H] LPRINT K6[C]JASN  VERIFY 78w▗ POKE  STOP 8▚[E] SAVE  SAVE ▗Z SAVE [U]c[U]PI© d IF hLEN 6T<><:PI+ AND 0 STEP (j RUN [G]TAN rSQR [A].ATN ▛s TO oq} FLASH  CONTINUE [O]▜ FLASH  OVER y+[P] LINE r^Tv[Q] DEF FN  DEF FN s[R]©T LINE <>[A]>=NQp<=PEEK  LIST `EBIN ▚ AND eaNOT <M VERIFY ▞ GO SUB !"▘"GUSR @$%USR USR &'USR USR ()USR USR *+USR USR ,- MOVE USR ./E[C]ABS Mh+!(7Y+/3$[B]6"@#GSTR$ O i CLOSE #[L] AND [Q] OR ; ERASE ▗BIN [D]NOT CHR$ s/[Q]STR$ yUSR  LIST RLATN j STEP  PAUSE [Q][U] DRAW  DIM SIN KLEN ;[A]bj OR BIN  ERASE $VAL$ CHR$ STR$ [P]{6USR ) RUN  AND x©4 TO <=▗ PAPER ▛<>>= LPRINT  IF  LINE s DIM ASN LN  TO  STEP q▗ ERASE {o FLASH  IF STR$ x FORMAT D?{J OR U POKE X>=z<> LINE  OR [A]P? GO TO  VERIFY EuATTR  STEP XTx[U]=ESTR$ P[U>B GO TO xz@ TO [S]v THEN [A] LINE [N]>=f!<= AND 6 OR f6BIN NOT CHR$  TO AH▘▞ FORMAT [B]v6▗&!K LIST a[R] POKE [: LEN p ▟ COPY [E] RETURN  CLEAR ABS  DRAW IN POINT ▛ STOP %!h[E][A]'$%CODE F© CLEAR  CLEAR / DATA ©PATTR © RETURN RABS [U][E][I] PAUSE  DRAW ?@> VAL ▙`p RESTORE ARNDt▞▖▜)E▚▗RJ▘▛ LIST ▖ FORMAT (0▙,0 MERGE T/q(▗ LET O,▞F|0 SAVE FN X▚T LET  MERGE  / SAVE  DIM ▗©0 LET  LLIST `(h[Q]SGN y RANDOMIZE ▝([Q] FORMAT  OUT TAN [A]E `0 DRAW ▖8/ PLOT  ▜M▛P>="  2lb▚,  DRAW NOT [C] MERGE ▛d POKE  REM @>= SAVE  IF 2v IF [P]USR [Q]▖STR$  LPRINT x118 0x?&B` LPRINT `©6 SAVE IN 2"5STR$ STR$  LPRINT ` AUSR STR$ #ESTR$ [J]E[J]STR$ ▗STR$ /$/+HQ/[Q]3'([A]3''>= LPRINT mSTR$  DRAW @/USR  GO SUB [Q]iUSR [M][L] MERGE K[K][J] PRINT  REM [I][H]ABS z[G]CODE ^[F][E]RNDT[D][C][B]@,[A][U]` LIST 5I POKE USR  PAPER HASN  TO c?<(USR Z[Q]f`P OPEN #dyBn;ACS / LPRINT dh OR l LLIST | MOVE POINT !CHR$  TO hSIN COS [T]D BEEP ▟ MERGE [A]vACS @=] DATA l(l1EbQ'< DRAW %< FORMAT 4 MOVE D▖STR$  TO  TO LLEN [S]▘bF<R,"V0 S/:@?_B9VAL  FORMAT  PAPER [R] POKE TPEEK  SAVE px* ERASE [H]IN P@STR$  PAUSE 0IN NOT bLEN !9 RETURN ? BRIGHT XSTR$ BIN  IF i©zPIPI)= DRAW .]SGN s OR K&STR$  THEN  BEEP  RETURN aj[P] LLIST ,MNOT GH▞ LLIST -8) INPUT ▖Dsl RETURN A LIST |p OPEN # DEF FN  BRIGHT 8v NEW ~ LPRINT 04(p▗Zlh▝ RETURN 8[P][G] LOAD [R]+N ERASE k[O]| OVER  RETURN  INPUT  VERIFY (x▝" DRAW ▞ DEF FN 84CODE > LPRINT -© NEW ▟[S]0@4 INPUT  DEF FN ~ <=I READ [A]xAY9SGN ©▝0<USR @INKEY$ RESTORE [M]H[S] LPRINT ]▙hx▞ CONTINUE 4-▝INT  MOVE LN  INPUT CHR$ 8 INPUT  OPEN #8USR [H]/0 NEW  GO TO  SAVE  NEW HG8 AND  INPUT 4@ BORDER  FORMAT  BRIGHT ` OVER p#.>=_7[Q] STOP  GO TO vyzh|HXi FORMAT /0 LINE At[Q]tI DEF FN  RETURN X▜ FORMAT [I]50 LPRINT  CONTINUE >( CLOSE #P[Q]i▘.@>=<> COPY  BRIGHT  PLOT   POKE 7p(h LIST #[L]O©| REM 6-H |LN m BEEP  PLOT  [P]^ VERIFY PIE~EXP > POKE 0 FORMAT ▜!▙©} CONTINUE ▖ LPRINT ~ FORMAT _FN ^%^ STOP @=([E]HG SAVE  LOAD H[K][S] COPY