home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / eventshell / Examples / !OLE / !Run < prev    next >
Encoding:
Text File  |  1995-12-29  |  1.1 KB  |  28 lines
  1. | !Run Obey file for OLE Application
  2. Set OLE$Dir <Obey$Dir>
  3. Set OLE$BasicFile <Obey$Dir>.!OLE
  4. IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
  5. |Change the next line if you are using a different
  6. |filetype number
  7. |Set Alias$@RunType_200 Run <Obey$Dir>.!Run %%*0
  8. IconSprites <Obey$Dir>.!Sprites
  9. |Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
  10. |Run Dummy:ResFind OLE
  11. |Unset Dummy$Path
  12. WimpSlot -min 256K -max 256K
  13. |Load any modules required now
  14.  
  15. |Uncomment the two lines below to use a non-OLE compliant editor
  16. RMEnsure OLESupport 0.19 RMLoad System:Modules.OLESupport
  17. Set OLEServer$Type_FFF -N OLESupport -R /Desktop_OLESupport
  18.  
  19. RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
  20. RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
  21. RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
  22. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  23. RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
  24. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  25. |And check that there is still enough memory!
  26. WimpSlot -min 256K -max 256K
  27. Run <OLE$Dir>.!OLE %*0
  28.