home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / eventshell / Examples / !Redraw2 / !Run < prev    next >
Encoding:
Text File  |  1995-11-03  |  868 b   |  20 lines
  1. | !Run Obey file for Redraw2 Application
  2. Set Redraw2$Dir <Obey$Dir>
  3. Set Redraw2$BasicFile <Obey$Dir>.!Redraw2
  4. Set Alias$@RunType_FD1 Basic -quit |"%%0|" %%*1
  5. IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
  6. |Change the next line if you are using a different
  7. |filetype number
  8. IconSprites <Obey$Dir>.!Sprites
  9. WimpSlot -min 352K -max 352K
  10. |Load any modules required now
  11. RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
  12. RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
  13. RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
  14. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  15. RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
  16. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  17. |And check that there is still enough memory!
  18. WimpSlot -min 352K -max 352K
  19. Run <Redraw2$Dir>.!Redraw2 %*0
  20.