home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / draw / progs / graphdraw / !GraphDraw_!Run < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.6 KB  |  47 lines
  1. | > !GraphDraw.!Run
  2. |
  3. | Run file for GraphDraw
  4. |
  5. | by Chris Johnson
  6. |
  7. IconSprites <Obey$Dir>.!Sprites
  8. Set Alias$@RunType_7F3 /<Obey$Dir>.!Run %%*0
  9. Set File$Type_7F3 GraphFile
  10. |
  11. | Find path to file
  12. Set GraphDraw$Dir <Obey$Dir>
  13. |
  14. If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
  15. |
  16. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  17. RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
  18. |
  19. RMensure FPEmulator 0 RMLoad System:modules.FPEmulator
  20. RMensure FPEmulator 0 Error You need the floating point emulator installed
  21. |
  22. RMEnsure MessageTrans 0.06 RMLoad <Obey$Dir>.Modules.MsgTrans
  23. RMEnsure MessageTrans 0.06 Error You need MsgTrans 0.06 or later
  24. |
  25. set temp$flag 1
  26. RMEnsure ABCLibrary 0 set temp$flag 0
  27. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.modules.ABCLib
  28. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  29. |
  30. RMensure FontMenu 0 RMLoad <Obey$Dir>.modules.FontMenu
  31. RMensure FontMenu 0 Error You need the FontMenu module installed
  32. |
  33. RMensure InterfaceManager 1.20 RMLoad <Obey$Dir>.modules.Interface
  34. RMensure InterfaceManager 1.20 Error You need the Interface module installed
  35. |
  36. set temp$flag 1
  37. RMEnsure CJwimpLib 0 set temp$flag 0
  38. RMEnsure CJwimpLib 0.21 if "<temp$flag>" = "1" Then Error 0 Old CJwimpLib installed Else RMLoad <Obey$Dir>.modules.cjwimplib
  39. RMEnsure CJwimpLib 0.21 Error You need the CJwimpLib module installed
  40. unset temp$flag
  41. |
  42. | Check memory allocation
  43. WimpSlot -min 256K -max 256K
  44. |
  45. | Now start program
  46. Run <GraphDraw$Dir>.!RunImage %*0
  47.