Savage 2: SAVAGE 2.B

  10 PAPER NOT PI: INK NOT PI: POKE VAL "23624",NOT PI: CLEAR VAL "24999": OUT VAL "254",NOT PI
  15 PRINT #0;AT 1,0; INK 6;"PRESENTED BY COMPACTSTUDIO, 1993"
  21 LET D=15619: RANDOMIZE USR D: REM : LOAD "sav.scr"CODE 
  22 RANDOMIZE USR VAL "4E4"
  31 POKE VAL "23739",CODE "o": RANDOMIZE USR d: REM : LOAD "savage22"CODE 
  32 RANDOMIZE USR d: REM : LOAD "savage23"CODE 
  40 POKE VAL "23739",VAL "244": CLS : RANDOMIZE USR VAL "6E4": RANDOMIZE USR VAL "25E3": GO SUB 50: RANDOMIZE USR VAL "60188"
  50 RANDOMIZE USR D: REM : LOAD "FONT1"CODE 51264
  60 RETURN