home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / d / eventshell / Examples / !Redraw / !Run < prev    next >
Encoding:
Text File  |  1993-12-29  |  966 b   |  21 lines

  1. | !Run Obey file for Redraw Application
  2. Set Redraw$Dir <Obey$Dir>
  3. Set Redraw$BasicFile <Obey$Dir>.!Redraw
  4. IF "<EvntShellSystem$Path>"="" THEN ERROR 0 Shell resources not found
  5. |Change the next line if you are using a different
  6. |filetype number
  7. IconSprites <Obey$Dir>.!Sprites
  8. WimpSlot -min 256K -max 256K
  9. |Load any modules required now
  10. RMEnsure InterfaceManager 2.00 RMLoad <EvntShellSystem$Path>Interface
  11. RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
  12. RMEnsure MenuUtils 0.11 RMLoad <EvntShellSystem$Path>MenuUtils
  13. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  14. RMEnsure MessageTrans 0.06 RMLoad <EvntShellSystem$Path>MsgTrans
  15. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  16. RMEnsure FontWindow 1.21 RMLoad <EvntShellSystem$Path>FontWindow
  17. RMEnsure FontWindow 1.21 Error Couldn't load FontWindow Module
  18. |And check that there is still enough memory!
  19. WimpSlot -min 256K -max 256K
  20. Run <Redraw$Dir>.!Redraw %*0
  21.