Savage 3: SAVAGE-3.B

  10 PAPER NOT PI: INK NOT PI: POKE VAL "23624",NOT PI: CLEAR VAL "24999": OUT VAL "254",NOT PI
  11 POKE 23613,PEEK (23700)-5
  12 REM fuck!!!
  20 LOAD "sav.scr"CODE 
  25 RANDOMIZE USR VAL "4E4"
  31 LOAD "SAVAGE32"CODE 
  32 LOAD "SAVAGE33"CODE 
  40 POKE VAL "23739",VAL "244": CLS : RANDOMIZE USR VAL "6E4": RANDOMIZE USR VAL "25E3": GO SUB 50: RANDOMIZE USR VAL "26E3"
  50 LOAD "savfont"CODE 
  60 RETURN