Titanic 1, 2: TITANIC.B

  0 REM  NEXT 1PIa CLEAR !:/ CLEAR  THEN INKEY$ STEP  OVER ] STEP STR$ ] STEP  OVER ] STEP STR$ ] STEP STR$ ]:@] RETURN N( STEP  FOR ]S STEP STR$ ]> OPEN # RETURN  CLS v DRAW CODE  OPEN # RETURN CODE  FLASH  RETURN / NEW ( SAVE  CLS vCODE  FLASH  RETURN / NEW   PLOT  NOT  CLS a-------------10.03.1229.03.20--------------!FN a RESTORE /CODE  OPEN # RETURN  NEXT NOT = CLS vCODE  FLASH  RETURN / NEW ( PLOT   NEXT <>![ COPY Zu GO SUB LN <> GO SUB [ POKE /{ RETURN 8 PRINT  GO SUB S POKE /<>
  10 PAPER NOT PI: BORDER NOT PI: INK NOT PI: CLS : RANDOMIZE USR VAL "23872": REM SG-TEAM '2012