home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsa / backload / !BackLoad / !Run < prev    next >
Encoding:
Text File  |  1995-02-11  |  929 b   |  34 lines
  1. | Run file for !BackLoad
  2. | © The Unbroken Circle, 1995
  3. |
  4. | By Tim Wiser
  5. |
  6.  
  7. | Set up the $Dir system variable ...
  8. Set BackgroundLoader$Dir <Obey$Dir>
  9.  
  10. | No you CAN'T run two copies at once ..!
  11. If "<BackgroundLoader$Running>" = 1 then Error You can't run two copies of Background Loader at once
  12.  
  13. | Remove the remark if you want !BackLoad to be executable from the desktop
  14. | If "<Wimp$State>" = "desktop" then Error You can't run this application in the desktop environment
  15.  
  16. | Set up the memory for the application - only 64K ..!
  17. WimpSlot -min 64K -max 64K
  18.  
  19. | Initialise the icon ...
  20. Iconsprites <BackgroundLoader$Dir>.!Sprites
  21.  
  22. | Set up the $Running system variable ...
  23. Set BackgroundLoader$Running 1
  24.  
  25. | And run the code
  26. <BackgroundLoader$Dir>.!RunImage
  27.  
  28. | Now redraw the screen with a nifty piece of code ...
  29. <BackgroundLoader$Dir>.WimpRedraw
  30.  
  31. | And unset the $Running variable ...
  32. Unset BackgroundLoader$Running
  33.  
  34. | And that's it.