home *** CD-ROM | disk | FTP | other *** search
/ Science & Nature: Electr…etism (Secondary Edition) / Acorn_YITM_ScienceAndNature3_ElectricityAndMagnetismSecondaryEdition.iso / _sci3sec / _run < prev    next >
Text File  |  1996-05-02  |  1KB  |  43 lines
  1. WimpSlot -min 800k -max 800k
  2. | Science Series 3
  3. | Garry E Self for ILP, KBM 2/5/96
  4. |
  5. Set Sci3$Running 0
  6. <Obey$Dir>.IfTask "Science 3" Then Set Sci3$Running 1
  7. If <Sci3$Running> Then Error "Science 3 is already running"
  8. Unset Sci3$Running
  9. |
  10. |
  11. Set Sci3$Dir <Obey$Dir>
  12. Set Sci3$Path <Sci3$Dir>.
  13. Set Sci3Data$Dir Sci3:^.data
  14. Set Sci3Data$Path <Sci3Data$Dir>.
  15. Set Sci3General$Path Sci3Data:general.
  16. Set Sci3Overview$Dir Sci3General:overview
  17. Set Sci3Help$Dir Sci3General:help
  18. Set Sci3LM$Path Sci3:Layman.
  19. Set Sci3SlideProp$Path Sci3General:slideprop.
  20. |
  21. | Find out which ARM chip we've got here
  22. |
  23. *Run Sci3:ARMType
  24. If "<ARM$Type>"="200" Then Set ARMovie$Suffix 2
  25. If "<ARM$Type>"="2" Then Set ARMovie$Suffix 2
  26. If "<ARM$Type>"="250" Then Set ARMovie$Suffix 2
  27. |
  28. | Save !ARMovie context
  29. |
  30. Set Sci3$OldARMovie <ARMovie$Dir>
  31. SetEval Sci3App$Test "<ARMovie$Dir>"=""
  32. if Sci3App$Test Then Run <Sci3$Dir>.!ARMovie
  33. if Sci3App$Test Then Set Sci3App$ARMovie <ARMovie$Dir>
  34. |
  35. | Run the "ILPINTRO" application
  36. |
  37. RUN Sci3:!ILPINTRO.!Run
  38. |
  39. WimpSlot -min 448k -max 448k
  40. |
  41. | Run the main program
  42. |
  43. Run Sci3:!RunImage %*0