Titanic 1, 2: TITANICS.B

  0 REM !XX COPY u GO SUB VAL CODE  OPEN # RETURN <> NEXT  GO SUB [ POKE / OR  MERGE zATN O>,8>< INVERSE ! NEXT  STEP [Q]]y© INVERSE !S* STEP [Q]]> INVERSE !NOT / STEP [Q]] MOVE STR$  OR  MERGE  INVERSE !/ STEP [Q]] MOVE $ THEN c(STR$ STR$  GO SUB S POKE /<>STR$  STOP  GO SUB S POKE /<> INVERSE  RESTORE NOT /= STEP ?]!`[u GO SUB VAL ><> NEXT 1PIa!M INK  STEP O]![K]_M PLOT   GO SUB VAL !M INK FN a STEP [ STEP SQR [C] STEP ?]!USR  STEP O]!g_ ERASE 3 GO SUB VAL  STEP USR  CLEAR ©> GO SUB y! RESTORE  STEP O]! RESTORE USR  STEP [ STEP  CIRCLE  LPRINT  CLEAR ©> GO SUB y! AND a STEP O]:>]ATN CHR$  RUN ^!CODE Q STEP O] STEP ?] STEP  AND aFN a!CODE  STEP [ CLEAR ©:USR _> GO SUB y2USR > GO SUB y:USR  RETURN {2USR (0! RANDOMIZE  PLOT   PLOT   PLOT   GO SUB VAL >NOT !]" DRAW  PLOT  ! READ  SAVE 6USR #6#6 RUN !]"S STEP 3 INPUT ! DATA ^ GO SUB VAL :;]ATN (CODE 2q MERGE :=]ATN (CODE 25 BORDER :<]ATN (><>2[G] NEW !TAN ^]0 GO SUB VAL NOT F STEP  CLEAR © OR > GO SUB y STEP  CIRCLE  LPRINT STR$ > GO SUB yNOT > LOAD  PRINT  INVERSE  RESTORE  CLEAR © OR > GO SUB y STEP  GO SUB y INVERSE  LLIST  LET NOT  RUN ROYAL SOFTLAV      Q* POKE /, THEN e(.$zCOS   NEXT " POKE /!`COS  COPY M GO SUB VAL !COS PI"$^>X2'^! RANDOMIZE h"/^!COS PI"5^!V STEP "z^! DRAW  LIST "}^! INPUT ^"^>2^!RND MERGE "^! CONTINUE "[J]^! LIST  BORDER "[U]^!! NEXT " OR ^! LLIST  LPRINT " MERGE ^NOT #^0 READ  NEXT IN BIN <▝[Q]NOT C@ ; ?USR NOT FH <E LPRINT NOT GP (EH LPRINT  CLOSE #L.(65)3-3E56(SA/)) --P)@U~LEN 3y^▚5 IF /'uCHR$ /T/=[Q]=W)[>-?b[Q] IF [C]TAN  COPY [R][E]V=CHR$ /+-e3X COPY  GO SUB :RFN < NEXT ~ THEN ?8+ NEW G GO SUB o#N# RESTORE ~bk GO SUB B<O GO SUB VAL  RETURN   READ #~ READ OATN ( GO SUB VAL  LLIST  MOVE # THEN ?8#8O8AN#~#~ RESTORE bkz DEF FN  THEN ?O0AN# GO SUB VAL FN  THEN ?80=[K]~ RESTORE bk+=  DRAW HINKEY$ NEXT !@];]> GO SUB VAL NOT RND]STH
  2 RANDOMIZE USR 0