10  *KEY10"OLD|M"
   20  
   30  REM"This version is relocatable
   40  
   50  Astore=&100
   60  Mstore=&101
   70  
   80  FOR I%=0 TO 2 STEP 2
   90  P%=&C90
  100  [OPTI%
  110  .start
  120  PHP
  130  CMP #5:BEQ cont
  140  CPY #127:BCS exit
  150  CPY #7:BEQ exit
  160 .cont
  170  PHA:STA Astore
  180  TXA:PHA
  190  TYA:PHA
  200  LDA #&FF:STA &265
  210  STA &29C:STA &29D:STA &29E
  220  \"ƒ****************************
  230  \"Timer value set to  5 mins.
  240  \"Range from &0000 = 11 mins.
  250  \"        to &FFFF = 1/100 secs.
  260  LDA #&8A:STA &29F
  270  LDA #&D0:STA &2A0
  280  \"ƒ****************************
  290  LDY #1:STY &266
  300  LDA #7:JSR &FFEE
  310  LDX #&64:STX &265
  320  LDY #6:STY &266 
  330  \
  340  LDA #63
  350  LDX &355:CPX #4:BCS greater
  360  LDA #127
  370  .greater
  390  LDX Astore:CPX #2:BEQ do
  400  \ If time out blank screen
  410  LDA #0:BEQ do2
  420  \ If Keypress return screen
  430 .do
  434  LDX Mstore:BNE end
  436 .do2
  440  LDY #0:STY &FE00
  450  STA &FE01:STA Mstore
  460 .end
  470  PLA:TAY
  480  PLA:TAX
  490  PLA
  500  .exit
  510  PLP
  520  RTS
  530  ]NEXT
  540  
  550  !&220=start
  560  
  570  REM?&29C=&FF
  580  REM!&29D=-100*60*5
  590  *FX14,5
  600  *FX14,2
  610  REM OSCLI("SAVE SCRSAVE "+STR$~(start)+" "+STR$~(P%))
  620 MODE7
  630 PRINT"Screen Saver Installed!"'"PRESS A KEY"
  640 *FX21
  650 REPEATUNTILGET
  660 *EX. !BOOT