home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 1 / AU_CD1.iso / demos / a_to_i / dinosaur / _dinodemo / _run < prev    next >
Text File  |  1993-10-11  |  2KB  |  52 lines
  1. | !DinoDemo
  2. | Version 1.00
  3. |
  4. Set UseDinoDemo1 0
  5. If "<Obey$Dir>" = "ADFS::DinoDemo2.$.!DinoDemo" Then Set UseDinoDemo1 1
  6. If "<Obey$Dir>" = "adfs::DinoDemo2.$.!DinoDemo" Then Set UseDinoDemo1 1
  7. If "<Obey$Dir>" = "ADFS::DinoDemo3.$.!DinoDemo" Then Set UseDinoDemo1 1
  8. If "<Obey$Dir>" = "adfs::DinoDemo3.$.!DinoDemo" Then Set UseDinoDemo1 1
  9. If "<Obey$Dir>" = "ADFS::DinoDemo4.$.!DinoDemo" Then Set UseDinoDemo1 1
  10. If "<Obey$Dir>" = "adfs::DinoDemo4.$.!DinoDemo" Then Set UseDinoDemo1 1
  11. If "<UseDinoDemo1>" = "1" Then Set DinoDemo$Dir ADFS::DinoDemo1.!DinoDemo Else Set DinoDemo$Dir <Obey$Dir>
  12. Unset UseDinoDemo1
  13. |
  14. Set DinoDemoData$Dir <DinoDemo$Dir>
  15. |
  16. IconSprites <Obey$Dir>.!Sprites
  17. |
  18. RMEnsure BorderUtils 0 RMEnsure WindowManager 3.17 RMLoad <DinoDemo$Dir>.BorderUtil
  19. |
  20. if "<System$Path>" = "" Then Run ADFS::DinoDemo1.!System
  21. if "<System$Path>" = "" then Error 0 System resources cannot be found
  22. |
  23. if "<Font$Path>" = "" Then Run ADFS::DinoDemo1.!Fonts
  24. |
  25. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  26. RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
  27. |
  28. set clib$flag 0
  29. RMensure SharedClibrary 3.75 set clib$flag 1
  30. RMensure SharedClibrary 0 set clib$flag 0
  31. if "<clib$flag>"="1" then Error !!! Old shared C library !!! An old version of the shared C library (clib) is resident in memory.
  32. unset clib$flag
  33. |  
  34. | Install the shared C library (clib)
  35. | -----------------------------------
  36. |
  37. RMensure SharedClibrary 3.75 RMload System:modules.clib
  38. RMensure SharedClibrary 3.75 Error You need at least version 3.75 of the shared C library
  39. |
  40. | Install the floating point emulator
  41. | -----------------------------------
  42. |
  43. RMensure FPEmulator 2.80 RMload System:modules.FPEmulator
  44. RMensure FPEmulator 2.80 Error You need at least version 2.80 of the floating point emulator
  45. |
  46. |
  47. | Grab extra memory for resources
  48. Wimpslot -min 400K -max 400K
  49. |
  50. Wimpslot -min 256K -max 256K
  51. Run <DinoDemo$Dir>.!RunImage %*0
  52.