home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilss / slidesave / !SlideSave / !Run < prev    next >
Encoding:
Text File  |  1995-10-06  |  548 b   |  16 lines
  1. | Run File for !SlideSave
  2. | Slideshow screensaver for Risc PC
  3. | By Steve Smale, 1995
  4.  
  5. RmEnsure UtilityModule 3.10 Error Sorry! Needs Risc OS 3.1 or later
  6. If "<SlideSave$Running>"<>"" Then Error Slidesave is already running
  7. Set SlideSave$Dir <Obey$Dir>
  8. |Kill Acorn Screenblanker if loaded
  9. Set Acorn$BlankerLoaded "True"
  10. RmEnsure Screenblanker 0.00 Set Acorn$BlankerLoaded "False"
  11. IF "<Acorn$BlankerLoaded>"="True" THEN RmKill Screenblanker
  12. Iconsprites <SlideSave$Dir>.!Sprites
  13. Wimpslot 8k 8k
  14. Set SlideSave$Running True
  15. Run <SlideSave$Dir>.!RunImage
  16.