home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / misc / tornado / tndemo2 / !TornWin / !Run < prev    next >
Text File  |  1996-03-13  |  2KB  |  40 lines

  1. | Run file for TornWin, which demonstrates tornado windows
  2. | Last updated: 27-12-1995
  3. |
  4. | Make sure all the neccessary system extensions are present
  5. RMEnsure UtilityModule 2.00 Error 0 This program cannot be used with Arthur. You need RISC-OS 2, or better
  6. | Checks have already been made for WindowManager,Hourglass,SystemDevices,FileSwitch & FileCore. Check for others.
  7. RMEnsure SpriteExtend 0.20 Error 0 Please reinstall the SpriteExtend module before running this again
  8. |
  9. | Check for Tornado resources
  10. RMEnsure Tornado 0.10 Error 0 You will need to install the Tornado resources on your system before this program will run. You will find a copy of the Tornado resources on any major Acorn archive.
  11. |
  12. | Check for !Fonts, and outline font manager
  13. | ** NOT IMPLEMENTED YET ** - TCheckFonts
  14. |
  15. | Wake up the hourglass, and load in our sprites
  16. | ** N/A ** - THourglass Load
  17. Run <Obey$Dir>.!Boot
  18. | ** N/A ** - TIconsprites <Obey$Dir>.Sprites
  19. Set TDemo$Dir <Obey$Dir>
  20. | ** N/A ** - THourglass Process
  21. |
  22. | Load in and ensure all our needed modules
  23. | ** N/A ** - TRMEnsure ColourTrans 0.52 Please install the colour translator module (ColourTrans, v0.52+) in your !System
  24. RMEnsure ColourTrans 0.52 Please install the colour translator module (ColourTrans, v0.52+) in your !System
  25. |
  26. | Load in main RunImage while multitasking
  27. | ** N/A ** - TRun 0 <Obey$Dir.!RunImage %*0
  28.  
  29. | Shoudn't do this, but need to cos of stupid buggy kernel!
  30. RMKill Tornado
  31. RMLoad <Tornado$Dir>.TKernel
  32.  
  33. | Chop the log file as it tends to grow. You don't need it across multiple sessions anyway
  34. Create <TDemo$Dir>.Log 0
  35. Settype <TDemo$Dir>.Log Text
  36.  
  37. | Usual RO code for now! :(
  38. Wimpslot -min 128k -max 128k
  39. Run <Obey$Dir>.!RunImage
  40.