| !Run File for Magpie Browser application. v1.30
|
| Copyright (c) Peter Cole & Logotron Ltd., 1992.
|
| NB: There are some user editable parts to this file, if
|     you make changes, please ensure that you know what 
|     you are doing. At the least, take a copy of this file
|     first.
|-----------------------------------------------------------
|
iconsprites <Obey$Dir>.!Sprites
set File$Type_C99 Binder
set MagpieBrowse$Dir <Obey$Dir>
|
| The following defines that the action on double clicking a binder file
| should be to load the binder into the browser system.
|
| If you wish binders to load into the author system, comment out the
| following line, and the similar line in the !Boot file, then edit
| the !Boot and !Run files for !Magpie.
|
| Commented out since default is load into author.
|
| set Magpie$Default Browse
|
if "<Magpie$Default>"="Browse" then set Alias$@RunType_C99 /<MagpieBrowse$Dir>.!run -B%%*0
if "<Magpie$Default>"="Browse" then set Alias$@PrintType_C99 /<MagpieBrowse$Dir>.!run -p -B%%*0
|
| Define the interface language, and any startup processing for the language
|
set Magpie$Language English
|
if "<Magpie$Language>"="Welsh" then run <MagpieBrowse$Dir>.wywy { > null: }
|
| Ensure that !System has been run so that we can load any global resources not
| currently loaded.
|
if "<System$Path>" = "" then Error 0 System resources cannot be found, (try running !System).
|           
| Ensure that an old version of the shared C library is not installed - overwriting
| it would crash any current applications using it.
|                               
set clib$flag 0
RMensure SharedClibrary 3.75 set clib$flag 1
RMensure SharedClibrary 0 set clib$flag 0
if "<clib$flag>"="1" then Error !!! Old shared C library !!! An old version of the shared C library (clib) is resident in memory - please refer to your Magpie user guide.
unset clib$flag
|
RMEnsure SharedCLibrary 3.75 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 3.75 Error You need shared C library (CLib) version 3.75 or later - please refer to your Magpie User Guide.
|
RMEnsure FPEmulator 2.80 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 2.80 Error You need version 2.80 of later of the floating point emulator (FPEmulator).
|
RMEnsure ColourTrans 0.52 rmload System:Modules.Colours
RMEnsure ColourTrans 0.52 Error You need at least version 0.52 of the Colour Selector
|
| Load the irqutils module. It is not fatal if you don't load this but sampling
| quality (and playback) will be (slightly) degraded.
|
RmEnsure IRQUtils 0.12 RMLoad System:Modules.IRQUtils
|                       
| Load other 'improvement' modules for sound playback.
|
RMEnsure HourGlass 2.02 RMLoad System:Modules.HourGlass
RMEnsure HourGlass 2.02 Error You need at least version 2.02 of HourGlass
RMEnsure SoundScheduler 1.13 RMLoad System:Modules.Sound2
RMEnsure SoundScheduler 1.13 Error You need at least version 1.13 of SoundScheduler
|
|                
WimpSlot -min 160K -max 160K     
|
| Program parameters:
|
|   -Bfilename - binder file to load.
|
|   -G Gain value to be used in configuration of Armadeus sampling board.
|      Default value = 60.
|      NB: Mic input is automatically selected.
|
|   -R Sampling rate tapedeck to use - default = 120us (8.32KHz) 
|         Mimimum value 80 (12.5kHz) on Arm2 without Mem1CA but IRQUtils loaded.
|         (lower values result in 'Pinky&Perky' quality!).
|
|   -P Print binder. Magpie will start up, open the binder, start print dialogue
|      and, upon completion, close down. This parameter is for use on alias$@printtype.
|
|   -Cname Country to use, where name is the name of the directory containing the
|          the country dependent files, terminated by a . e.g: -cWelsh.
|
Run "<MagpieBrowse$Dir>.!runImage" -sg -g60 -r120 -c"<Magpie$Language>". %*0
