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$÷(st art)+" "+STR$÷(P%)) 620MODE7 630PRINT"Screen Saver Installed!"'"PRE SS A KEY" 640*FX21 650REPEATUNTILGET 660*EX. !BOOT