Rex: Demo.B

  10 PAPER 0: INK 0: BORDER 0: CLS 
  20 CLEAR 24999
  30 LOAD ""SCREEN$ 
  40 PRINT AT 0,0;
  50 LOAD ""CODE 
  60 RANDOMIZE USR 35460
  999 SAVE "t:": SAVE "DEMO" LINE 1: LOAD "a:": LOAD "maked"