home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / 3dmatrix / !3DMatrix / !Run < prev    next >
Encoding:
Text File  |  1993-04-06  |  1.3 KB  |  44 lines
  1. |  © Atle Mjelde Bårdholt 1992 - 1993
  2. |
  3. |  Filename : !3DMatrix.!Run
  4. |
  5. WimpSlot -min 128k -max 128k
  6. Set 3DMatrix$Dir <Obey$Dir>
  7. Set File$Type_A1B 3D_Data
  8. IconSprites <Obey$Dir>.!Sprites
  9. |
  10. | Install the floating point emulator
  11. | -----------------------------------
  12. RMEnsure FPEmulator 2.70 RMLoad <Obey$Dir>.Resources.FPEmulator
  13. |
  14. | Install the shared C library (CLib)
  15. | -----------------------------------
  16. RMEnsure SharedCLibrary 3.75 RMLoad <Obey$Dir>.Resources.Clib
  17. |
  18. | Install the TrackerModule
  19. | -------------------------
  20. RMEnsure TrackerModule  RMLoad <Obey$Dir>.Resources.STracker
  21. |
  22. | Memory for bankswitching  <- Not yet implemented
  23. | ------------------------
  24. RMEnsure MemAlloc 0.11 RMLoad <Obey$Dir>.Resources.MemAlloc
  25. RMEnsure MemAlloc 0.11 Error 0 No room in RMA
  26. SCREENSIZE 320k        Error 0 I need 320k ScreenSize
  27. RMKill MemAlloc
  28. |
  29. | Routine to turn off the ScreenBlanker module in RISC OS 3.10
  30. | ------------------------------------------------------------
  31. |Set Tmp 0
  32. |RMEnsure UtilityModule 3.10 Set Tmp 1
  33. |IF <Tmp>=0 THEN RMEnsure ScreenBlanker 2.15 RMReinit ScreenBlanker
  34. |IF <Tmp>=0 THEN RMKill ScreenBlanker
  35. |
  36. WimpSlot -min 128k -max 128k
  37. |
  38. Run <Obey$Dir>.!RunImage
  39. |
  40. | Install the ScreenBlanker after quiting the program
  41. | ---------------------------------------------------
  42. |IF <Tmp>=0 THEN RMReinit ScreenBlanker
  43. |Unset Tmp
  44. RMKill TrackerModule