home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / graphdraw_1 / !GraphDraw / !Run < prev    next >
Text File  |  1996-05-15  |  2KB  |  61 lines
  1. | > !GraphDraw.!Run
  2. |
  3. | Run file for GraphDraw
  4. |
  5. | by Chris Johnson
  6. |
  7. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  8. |
  9. | Follow PRM (4:497) advice and prevent multiple running
  10. |
  11. If "<GraphDraw$Running>" = "yes" Then Error GraphDraw is already running
  12. |
  13. IconSprites <Obey$Dir>.!Sprites
  14. Set Alias$@RunType_7F3 /<Obey$Dir>.!Run %%*0
  15. Set File$Type_7F3 GraphFile
  16. |
  17. | Find path to file
  18. Set GraphDraw$Dir <Obey$Dir>
  19. |
  20. If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
  21. |
  22. set temp$flag 1
  23. RMEnsure ABCLibrary 0 set temp$flag 0
  24. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
  25. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  26. |
  27. set temp$flag 1
  28. RMEnsure CJWimpUtil 0 set temp$flag 0
  29. RMEnsure CJWimpUtil 0.17 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
  30. RMEnsure CJWimpUtil 0.17 Error You need the CJWimpUtil module installed
  31. |
  32. set temp$flag 1
  33. RMEnsure CJdrawUtil 0 set temp$flag 0
  34. RMEnsure CJdrawUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.cjdrawUtil
  35. RMEnsure CJdrawUtil 0.15 Error You need the CJdrawUtil module installed
  36. unset temp$flag
  37. |
  38. set GraphDraw$VDULinePoints 100
  39. set GraphDraw$MPlotLinePoints 100
  40. set GraphDraw$DrawLinePoints 100
  41. set GraphDraw$PrintLinePoints 100
  42. set GraphDraw$AppendData 0
  43. |
  44. | Set up variables which affect slot size
  45. set GraphDraw$DataSetSize 200
  46. | Check memory allocation
  47. WimpSlot -min 352K -max 352K
  48. |
  49. | Set up variables which affect slot size
  50. |set GraphDraw$DataSetSize 300
  51. | Check memory allocation
  52. |WimpSlot -min 416K -max 416K
  53. |
  54. | Set up variables which affect slot size
  55. |set GraphDraw$DataSetSize 400
  56. | Check memory allocation
  57. |WimpSlot -min 480K -max 480K
  58. |
  59. | Now start program
  60. Run <GraphDraw$Dir>.!RunImage %*0
  61.