home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 1 / AU_CD1.iso / demos / s_to_z / sibelius7 / !Sibelius7 / !Run < prev    next >
Text File  |  1995-01-04  |  1KB  |  32 lines
  1. RMEnsure WindowManager 2.00 Error Sibelius 7 needs Wimp 2.00 or later
  2. If "<System$Path>"="" Then Error 0 Please open a directory containing !System, then try again.
  3. If "<System$Dir>"="" Then SetEval System$Dir System$Path LEFT ((LEN System$Path) -1)
  4. If "<Wimp$Scrap>"="" Then Error 0 Please open a directory containing !Scrap, then try again.
  5. If "<Wimp$ScrapDir>"="" Then SetEval Wimp$ScrapDir System$Dir
  6.  
  7. WimpSlot -min 364k -max 364k
  8.  
  9. | Create null Font$Path if doesn't exist
  10. Set Font$Path <Font$Path>
  11.  
  12.  | This is for RISC OS 2 computers which haven't seen !Fonts:
  13.  | If Font$Path="" THEN ERROR Please open a directory containing !Fonts
  14.  
  15.  | This is for RISC OS 3 computers which have only seen the ROM fonts:
  16. If Font$Path="<Font$Prefix>.,Resources:$.Fonts." THEN ERROR Please open a directory containing !Fonts (so you can use the OpusII fonts)
  17.  
  18.  | Copy of !Boot in case another !Sibelius7 has already been seen:
  19. IconSprites <Obey$Dir>.!Sprites
  20. Set Alias$@RunType_DE0 Run <Obey$Dir>.!Run %%*0
  21. Set File$Type_DE0 Sibelius
  22. Set Sibelius$Dir <Obey$Dir>
  23.  
  24. Set Sibelius$OldFontPath ""
  25. Set Sibelius$MIDI Y
  26. RMEnsure MIDI 0.0 Set Sibelius$MIDI N
  27.  
  28. Key 2 "#"
  29. Key 3 "þ"
  30.  
  31.  | Don't have a newline after the last line!!
  32. Run "<Obey$Dir>.!RunImage" %*0