Home » Archimedes archive » Archimedes World » AW-1991-03.adf » !AWMar91/Goodies/Magpie/!MagpiRead/!Run

!AWMar91/Goodies/Magpie/!MagpiRead/!Run

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1991-03.adf
Filename: !AWMar91/Goodies/Magpie/!MagpiRead/!Run
Read OK:
File size: 0D9A bytes
Load address: FFFFEB42
Exec address: BBF5F31C
File contents
| !Run File for Magpie Browser application.
|
| Last Changed:
|   29-Oct-1990: Version 1.00
|
| Copyright (c) Peter Cole 1990.
|
| 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
|
| 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.
|                               
| Acknowledgement is made to Acorn Computers Ltd. for the technique.
|
set clib$flag 0
RMensure SharedClibrary 3.50 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.50 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 3.50 Error You need shared C library (CLib) version 3.50 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 degraded.
|
RMEnsure IrqUtils 0.12 RMLoad System:Modules.IRQUtils
RMEnsure IrqUtils 0.12 Error You need at least version 0.12 of IRQ Utils
|                
WimpSlot -min 160K -max 160K     
|
| Program parameters:
|
|   -S ** MUST ** be given (template not found errors will result otherwise)
|      Determines the user interface style:
|        -sa - Acorn standard conformant button icons
|        -sg - graphical button icons                
|
|   -Bfilename - book 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.
|
Run "<MagpieBrowse$Dir>.!runImage" -sg -g60 -r120 %*0
00000000  7c 20 21 52 75 6e 20 46  69 6c 65 20 66 6f 72 20  || !Run File for |
00000010  4d 61 67 70 69 65 20 42  72 6f 77 73 65 72 20 61  |Magpie Browser a|
00000020  70 70 6c 69 63 61 74 69  6f 6e 2e 0a 7c 0a 7c 20  |pplication..|.| |
00000030  4c 61 73 74 20 43 68 61  6e 67 65 64 3a 0a 7c 20  |Last Changed:.| |
00000040  20 20 32 39 2d 4f 63 74  2d 31 39 39 30 3a 20 56  |  29-Oct-1990: V|
00000050  65 72 73 69 6f 6e 20 31  2e 30 30 0a 7c 0a 7c 20  |ersion 1.00.|.| |
00000060  43 6f 70 79 72 69 67 68  74 20 28 63 29 20 50 65  |Copyright (c) Pe|
00000070  74 65 72 20 43 6f 6c 65  20 31 39 39 30 2e 0a 7c  |ter Cole 1990..||
00000080  0a 7c 20 4e 42 3a 20 54  68 65 72 65 20 61 72 65  |.| NB: There are|
00000090  20 73 6f 6d 65 20 75 73  65 72 20 65 64 69 74 61  | some user edita|
000000a0  62 6c 65 20 70 61 72 74  73 20 74 6f 20 74 68 69  |ble parts to thi|
000000b0  73 20 66 69 6c 65 2c 20  69 66 0a 7c 20 20 20 20  |s file, if.|    |
000000c0  20 79 6f 75 20 6d 61 6b  65 20 63 68 61 6e 67 65  | you make change|
000000d0  73 2c 20 70 6c 65 61 73  65 20 65 6e 73 75 72 65  |s, please ensure|
000000e0  20 74 68 61 74 20 79 6f  75 20 6b 6e 6f 77 20 77  | that you know w|
000000f0  68 61 74 20 0a 7c 20 20  20 20 20 79 6f 75 20 61  |hat .|     you a|
00000100  72 65 20 64 6f 69 6e 67  2e 20 41 74 20 74 68 65  |re doing. At the|
00000110  20 6c 65 61 73 74 2c 20  74 61 6b 65 20 61 20 63  | least, take a c|
00000120  6f 70 79 20 6f 66 20 74  68 69 73 20 66 69 6c 65  |opy of this file|
00000130  0a 7c 20 20 20 20 20 66  69 72 73 74 2e 0a 7c 2d  |.|     first..|-|
00000140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 7c 0a 69 63 6f  |----------.|.ico|
00000180  6e 73 70 72 69 74 65 73  20 3c 4f 62 65 79 24 44  |nsprites <Obey$D|
00000190  69 72 3e 2e 21 53 70 72  69 74 65 73 0a 73 65 74  |ir>.!Sprites.set|
000001a0  20 46 69 6c 65 24 54 79  70 65 5f 43 39 39 20 42  | File$Type_C99 B|
000001b0  69 6e 64 65 72 0a 73 65  74 20 4d 61 67 70 69 65  |inder.set Magpie|
000001c0  42 72 6f 77 73 65 24 44  69 72 20 3c 4f 62 65 79  |Browse$Dir <Obey|
000001d0  24 44 69 72 3e 0a 7c 0a  7c 20 54 68 65 20 66 6f  |$Dir>.|.| The fo|
000001e0  6c 6c 6f 77 69 6e 67 20  64 65 66 69 6e 65 73 20  |llowing defines |
000001f0  74 68 61 74 20 74 68 65  20 61 63 74 69 6f 6e 20  |that the action |
00000200  6f 6e 20 64 6f 75 62 6c  65 20 63 6c 69 63 6b 69  |on double clicki|
00000210  6e 67 20 61 20 62 69 6e  64 65 72 20 66 69 6c 65  |ng a binder file|
00000220  0a 7c 20 73 68 6f 75 6c  64 20 62 65 20 74 6f 20  |.| should be to |
00000230  6c 6f 61 64 20 74 68 65  20 62 69 6e 64 65 72 20  |load the binder |
00000240  69 6e 74 6f 20 74 68 65  20 62 72 6f 77 73 65 72  |into the browser|
00000250  20 73 79 73 74 65 6d 2e  0a 7c 0a 7c 20 49 66 20  | system..|.| If |
00000260  79 6f 75 20 77 69 73 68  20 62 69 6e 64 65 72 73  |you wish binders|
00000270  20 74 6f 20 6c 6f 61 64  20 69 6e 74 6f 20 74 68  | to load into th|
00000280  65 20 61 75 74 68 6f 72  20 73 79 73 74 65 6d 2c  |e author system,|
00000290  20 63 6f 6d 6d 65 6e 74  20 6f 75 74 20 74 68 65  | comment out the|
000002a0  0a 7c 20 66 6f 6c 6c 6f  77 69 6e 67 20 6c 69 6e  |.| following lin|
000002b0  65 2c 20 61 6e 64 20 74  68 65 20 73 69 6d 69 6c  |e, and the simil|
000002c0  61 72 20 6c 69 6e 65 20  69 6e 20 74 68 65 20 21  |ar line in the !|
000002d0  42 6f 6f 74 20 66 69 6c  65 2c 20 74 68 65 6e 20  |Boot file, then |
000002e0  65 64 69 74 0a 7c 20 74  68 65 20 21 42 6f 6f 74  |edit.| the !Boot|
000002f0  20 61 6e 64 20 21 52 75  6e 20 66 69 6c 65 73 20  | and !Run files |
00000300  66 6f 72 20 21 4d 61 67  70 69 65 2e 0a 7c 0a 7c  |for !Magpie..|.||
00000310  20 43 6f 6d 6d 65 6e 74  65 64 20 6f 75 74 20 73  | Commented out s|
00000320  69 6e 63 65 20 64 65 66  61 75 6c 74 20 69 73 20  |ince default is |
00000330  6c 6f 61 64 20 69 6e 74  6f 20 61 75 74 68 6f 72  |load into author|
00000340  2e 0a 7c 0a 7c 20 73 65  74 20 4d 61 67 70 69 65  |..|.| set Magpie|
00000350  24 44 65 66 61 75 6c 74  20 42 72 6f 77 73 65 0a  |$Default Browse.|
00000360  7c 0a 69 66 20 22 3c 4d  61 67 70 69 65 24 44 65  ||.if "<Magpie$De|
00000370  66 61 75 6c 74 3e 22 3d  22 42 72 6f 77 73 65 22  |fault>"="Browse"|
00000380  20 74 68 65 6e 20 73 65  74 20 41 6c 69 61 73 24  | then set Alias$|
00000390  40 52 75 6e 54 79 70 65  5f 43 39 39 20 2f 3c 4d  |@RunType_C99 /<M|
000003a0  61 67 70 69 65 42 72 6f  77 73 65 24 44 69 72 3e  |agpieBrowse$Dir>|
000003b0  2e 21 72 75 6e 20 2d 42  25 25 2a 30 0a 69 66 20  |.!run -B%%*0.if |
000003c0  22 3c 4d 61 67 70 69 65  24 44 65 66 61 75 6c 74  |"<Magpie$Default|
000003d0  3e 22 3d 22 42 72 6f 77  73 65 22 20 74 68 65 6e  |>"="Browse" then|
000003e0  20 73 65 74 20 41 6c 69  61 73 24 40 50 72 69 6e  | set Alias$@Prin|
000003f0  74 54 79 70 65 5f 43 39  39 20 2f 3c 4d 61 67 70  |tType_C99 /<Magp|
00000400  69 65 42 72 6f 77 73 65  24 44 69 72 3e 2e 21 72  |ieBrowse$Dir>.!r|
00000410  75 6e 20 2d 70 20 2d 42  25 25 2a 30 0a 7c 0a 7c  |un -p -B%%*0.|.||
00000420  20 45 6e 73 75 72 65 20  74 68 61 74 20 21 53 79  | Ensure that !Sy|
00000430  73 74 65 6d 20 68 61 73  20 62 65 65 6e 20 72 75  |stem has been ru|
00000440  6e 20 73 6f 20 74 68 61  74 20 77 65 20 63 61 6e  |n so that we can|
00000450  20 6c 6f 61 64 20 61 6e  79 20 67 6c 6f 62 61 6c  | load any global|
00000460  20 72 65 73 6f 75 72 63  65 73 20 6e 6f 74 0a 7c  | resources not.||
00000470  20 63 75 72 72 65 6e 74  6c 79 20 6c 6f 61 64 65  | currently loade|
00000480  64 2e 0a 7c 0a 69 66 20  22 3c 53 79 73 74 65 6d  |d..|.if "<System|
00000490  24 50 61 74 68 3e 22 20  3d 20 22 22 20 74 68 65  |$Path>" = "" the|
000004a0  6e 20 45 72 72 6f 72 20  30 20 53 79 73 74 65 6d  |n Error 0 System|
000004b0  20 72 65 73 6f 75 72 63  65 73 20 63 61 6e 6e 6f  | resources canno|
000004c0  74 20 62 65 20 66 6f 75  6e 64 2c 20 28 74 72 79  |t be found, (try|
000004d0  20 72 75 6e 6e 69 6e 67  20 21 53 79 73 74 65 6d  | running !System|
000004e0  29 2e 0a 7c 20 20 20 20  20 20 20 20 20 20 20 0a  |)..|           .|
000004f0  7c 20 45 6e 73 75 72 65  20 74 68 61 74 20 61 6e  || Ensure that an|
00000500  20 6f 6c 64 20 76 65 72  73 69 6f 6e 20 6f 66 20  | old version of |
00000510  74 68 65 20 73 68 61 72  65 64 20 43 20 6c 69 62  |the shared C lib|
00000520  72 61 72 79 20 69 73 20  6e 6f 74 20 69 6e 73 74  |rary is not inst|
00000530  61 6c 6c 65 64 20 2d 20  6f 76 65 72 77 72 69 74  |alled - overwrit|
00000540  69 6e 67 0a 7c 20 69 74  20 77 6f 75 6c 64 20 63  |ing.| it would c|
00000550  72 61 73 68 20 61 6e 79  20 63 75 72 72 65 6e 74  |rash any current|
00000560  20 61 70 70 6c 69 63 61  74 69 6f 6e 73 20 75 73  | applications us|
00000570  69 6e 67 20 69 74 2e 0a  7c 20 20 20 20 20 20 20  |ing it..|       |
00000580  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000590  20 20 20 20 20 20 20 20  0a 7c 20 41 63 6b 6e 6f  |        .| Ackno|
000005a0  77 6c 65 64 67 65 6d 65  6e 74 20 69 73 20 6d 61  |wledgement is ma|
000005b0  64 65 20 74 6f 20 41 63  6f 72 6e 20 43 6f 6d 70  |de to Acorn Comp|
000005c0  75 74 65 72 73 20 4c 74  64 2e 20 66 6f 72 20 74  |uters Ltd. for t|
000005d0  68 65 20 74 65 63 68 6e  69 71 75 65 2e 0a 7c 0a  |he technique..|.|
000005e0  73 65 74 20 63 6c 69 62  24 66 6c 61 67 20 30 0a  |set clib$flag 0.|
000005f0  52 4d 65 6e 73 75 72 65  20 53 68 61 72 65 64 43  |RMensure SharedC|
00000600  6c 69 62 72 61 72 79 20  33 2e 35 30 20 73 65 74  |library 3.50 set|
00000610  20 63 6c 69 62 24 66 6c  61 67 20 31 0a 52 4d 65  | clib$flag 1.RMe|
00000620  6e 73 75 72 65 20 53 68  61 72 65 64 43 6c 69 62  |nsure SharedClib|
00000630  72 61 72 79 20 30 20 73  65 74 20 63 6c 69 62 24  |rary 0 set clib$|
00000640  66 6c 61 67 20 30 0a 69  66 20 22 3c 63 6c 69 62  |flag 0.if "<clib|
00000650  24 66 6c 61 67 3e 22 3d  22 31 22 20 74 68 65 6e  |$flag>"="1" then|
00000660  20 45 72 72 6f 72 20 21  21 21 20 4f 6c 64 20 73  | Error !!! Old s|
00000670  68 61 72 65 64 20 43 20  6c 69 62 72 61 72 79 20  |hared C library |
00000680  21 21 21 20 41 6e 20 6f  6c 64 20 76 65 72 73 69  |!!! An old versi|
00000690  6f 6e 20 6f 66 20 74 68  65 20 73 68 61 72 65 64  |on of the shared|
000006a0  20 43 20 6c 69 62 72 61  72 79 20 28 63 6c 69 62  | C library (clib|
000006b0  29 20 69 73 20 72 65 73  69 64 65 6e 74 20 69 6e  |) is resident in|
000006c0  20 6d 65 6d 6f 72 79 20  2d 20 70 6c 65 61 73 65  | memory - please|
000006d0  20 72 65 66 65 72 20 74  6f 20 79 6f 75 72 20 4d  | refer to your M|
000006e0  61 67 70 69 65 20 75 73  65 72 20 67 75 69 64 65  |agpie user guide|
000006f0  2e 0a 75 6e 73 65 74 20  63 6c 69 62 24 66 6c 61  |..unset clib$fla|
00000700  67 0a 7c 0a 52 4d 45 6e  73 75 72 65 20 53 68 61  |g.|.RMEnsure Sha|
00000710  72 65 64 43 4c 69 62 72  61 72 79 20 33 2e 35 30  |redCLibrary 3.50|
00000720  20 52 4d 4c 6f 61 64 20  53 79 73 74 65 6d 3a 4d  | RMLoad System:M|
00000730  6f 64 75 6c 65 73 2e 43  4c 69 62 0a 52 4d 45 6e  |odules.CLib.RMEn|
00000740  73 75 72 65 20 53 68 61  72 65 64 43 4c 69 62 72  |sure SharedCLibr|
00000750  61 72 79 20 33 2e 35 30  20 45 72 72 6f 72 20 59  |ary 3.50 Error Y|
00000760  6f 75 20 6e 65 65 64 20  73 68 61 72 65 64 20 43  |ou need shared C|
00000770  20 6c 69 62 72 61 72 79  20 28 43 4c 69 62 29 20  | library (CLib) |
00000780  76 65 72 73 69 6f 6e 20  33 2e 35 30 20 6f 72 20  |version 3.50 or |
00000790  6c 61 74 65 72 20 2d 20  70 6c 65 61 73 65 20 72  |later - please r|
000007a0  65 66 65 72 20 74 6f 20  79 6f 75 72 20 4d 61 67  |efer to your Mag|
000007b0  70 69 65 20 55 73 65 72  20 47 75 69 64 65 2e 0a  |pie User Guide..|
000007c0  7c 0a 52 4d 45 6e 73 75  72 65 20 46 50 45 6d 75  ||.RMEnsure FPEmu|
000007d0  6c 61 74 6f 72 20 32 2e  38 30 20 52 4d 4c 6f 61  |lator 2.80 RMLoa|
000007e0  64 20 53 79 73 74 65 6d  3a 4d 6f 64 75 6c 65 73  |d System:Modules|
000007f0  2e 46 50 45 6d 75 6c 61  74 6f 72 0a 52 4d 45 6e  |.FPEmulator.RMEn|
00000800  73 75 72 65 20 46 50 45  6d 75 6c 61 74 6f 72 20  |sure FPEmulator |
00000810  32 2e 38 30 20 45 72 72  6f 72 20 59 6f 75 20 6e  |2.80 Error You n|
00000820  65 65 64 20 76 65 72 73  69 6f 6e 20 32 2e 38 30  |eed version 2.80|
00000830  20 6f 66 20 6c 61 74 65  72 20 6f 66 20 74 68 65  | of later of the|
00000840  20 66 6c 6f 61 74 69 6e  67 20 70 6f 69 6e 74 20  | floating point |
00000850  65 6d 75 6c 61 74 6f 72  20 28 46 50 45 6d 75 6c  |emulator (FPEmul|
00000860  61 74 6f 72 29 2e 0a 7c  0a 52 4d 45 6e 73 75 72  |ator)..|.RMEnsur|
00000870  65 20 43 6f 6c 6f 75 72  54 72 61 6e 73 20 30 2e  |e ColourTrans 0.|
00000880  35 32 20 72 6d 6c 6f 61  64 20 53 79 73 74 65 6d  |52 rmload System|
00000890  3a 4d 6f 64 75 6c 65 73  2e 43 6f 6c 6f 75 72 73  |:Modules.Colours|
000008a0  0a 52 4d 45 6e 73 75 72  65 20 43 6f 6c 6f 75 72  |.RMEnsure Colour|
000008b0  54 72 61 6e 73 20 30 2e  35 32 20 45 72 72 6f 72  |Trans 0.52 Error|
000008c0  20 59 6f 75 20 6e 65 65  64 20 61 74 20 6c 65 61  | You need at lea|
000008d0  73 74 20 76 65 72 73 69  6f 6e 20 30 2e 35 32 20  |st version 0.52 |
000008e0  6f 66 20 74 68 65 20 43  6f 6c 6f 75 72 20 53 65  |of the Colour Se|
000008f0  6c 65 63 74 6f 72 0a 7c  0a 7c 0a 7c 20 4c 6f 61  |lector.|.|.| Loa|
00000900  64 20 74 68 65 20 69 72  71 75 74 69 6c 73 20 6d  |d the irqutils m|
00000910  6f 64 75 6c 65 2e 20 49  74 20 69 73 20 6e 6f 74  |odule. It is not|
00000920  20 66 61 74 61 6c 20 69  66 20 79 6f 75 20 64 6f  | fatal if you do|
00000930  6e 27 74 20 6c 6f 61 64  20 74 68 69 73 20 62 75  |n't load this bu|
00000940  74 20 73 61 6d 70 6c 69  6e 67 0a 7c 20 71 75 61  |t sampling.| qua|
00000950  6c 69 74 79 20 28 61 6e  64 20 70 6c 61 79 62 61  |lity (and playba|
00000960  63 6b 29 20 77 69 6c 6c  20 62 65 20 64 65 67 72  |ck) will be degr|
00000970  61 64 65 64 2e 0a 7c 0a  52 4d 45 6e 73 75 72 65  |aded..|.RMEnsure|
00000980  20 49 72 71 55 74 69 6c  73 20 30 2e 31 32 20 52  | IrqUtils 0.12 R|
00000990  4d 4c 6f 61 64 20 53 79  73 74 65 6d 3a 4d 6f 64  |MLoad System:Mod|
000009a0  75 6c 65 73 2e 49 52 51  55 74 69 6c 73 0a 52 4d  |ules.IRQUtils.RM|
000009b0  45 6e 73 75 72 65 20 49  72 71 55 74 69 6c 73 20  |Ensure IrqUtils |
000009c0  30 2e 31 32 20 45 72 72  6f 72 20 59 6f 75 20 6e  |0.12 Error You n|
000009d0  65 65 64 20 61 74 20 6c  65 61 73 74 20 76 65 72  |eed at least ver|
000009e0  73 69 6f 6e 20 30 2e 31  32 20 6f 66 20 49 52 51  |sion 0.12 of IRQ|
000009f0  20 55 74 69 6c 73 0a 7c  20 20 20 20 20 20 20 20  | Utils.|        |
00000a00  20 20 20 20 20 20 20 20  0a 57 69 6d 70 53 6c 6f  |        .WimpSlo|
00000a10  74 20 2d 6d 69 6e 20 31  36 30 4b 20 2d 6d 61 78  |t -min 160K -max|
00000a20  20 31 36 30 4b 20 20 20  20 20 0a 7c 0a 7c 20 50  | 160K     .|.| P|
00000a30  72 6f 67 72 61 6d 20 70  61 72 61 6d 65 74 65 72  |rogram parameter|
00000a40  73 3a 0a 7c 0a 7c 20 20  20 2d 53 20 2a 2a 20 4d  |s:.|.|   -S ** M|
00000a50  55 53 54 20 2a 2a 20 62  65 20 67 69 76 65 6e 20  |UST ** be given |
00000a60  28 74 65 6d 70 6c 61 74  65 20 6e 6f 74 20 66 6f  |(template not fo|
00000a70  75 6e 64 20 65 72 72 6f  72 73 20 77 69 6c 6c 20  |und errors will |
00000a80  72 65 73 75 6c 74 20 6f  74 68 65 72 77 69 73 65  |result otherwise|
00000a90  29 0a 7c 20 20 20 20 20  20 44 65 74 65 72 6d 69  |).|      Determi|
00000aa0  6e 65 73 20 74 68 65 20  75 73 65 72 20 69 6e 74  |nes the user int|
00000ab0  65 72 66 61 63 65 20 73  74 79 6c 65 3a 0a 7c 20  |erface style:.| |
00000ac0  20 20 20 20 20 20 20 2d  73 61 20 2d 20 41 63 6f  |       -sa - Aco|
00000ad0  72 6e 20 73 74 61 6e 64  61 72 64 20 63 6f 6e 66  |rn standard conf|
00000ae0  6f 72 6d 61 6e 74 20 62  75 74 74 6f 6e 20 69 63  |ormant button ic|
00000af0  6f 6e 73 0a 7c 20 20 20  20 20 20 20 20 2d 73 67  |ons.|        -sg|
00000b00  20 2d 20 67 72 61 70 68  69 63 61 6c 20 62 75 74  | - graphical but|
00000b10  74 6f 6e 20 69 63 6f 6e  73 20 20 20 20 20 20 20  |ton icons       |
00000b20  20 20 20 20 20 20 20 20  20 0a 7c 0a 7c 20 20 20  |         .|.|   |
00000b30  2d 42 66 69 6c 65 6e 61  6d 65 20 2d 20 62 6f 6f  |-Bfilename - boo|
00000b40  6b 20 66 69 6c 65 20 74  6f 20 6c 6f 61 64 2e 0a  |k file to load..|
00000b50  7c 0a 7c 20 20 20 2d 47  20 47 61 69 6e 20 76 61  ||.|   -G Gain va|
00000b60  6c 75 65 20 74 6f 20 62  65 20 75 73 65 64 20 69  |lue to be used i|
00000b70  6e 20 63 6f 6e 66 69 67  75 72 61 74 69 6f 6e 20  |n configuration |
00000b80  6f 66 20 41 72 6d 61 64  65 75 73 20 73 61 6d 70  |of Armadeus samp|
00000b90  6c 69 6e 67 20 62 6f 61  72 64 2e 0a 7c 20 20 20  |ling board..|   |
00000ba0  20 20 20 44 65 66 61 75  6c 74 20 76 61 6c 75 65  |   Default value|
00000bb0  20 3d 20 36 30 2e 0a 7c  20 20 20 20 20 20 4e 42  | = 60..|      NB|
00000bc0  3a 20 4d 69 63 20 69 6e  70 75 74 20 69 73 20 61  |: Mic input is a|
00000bd0  75 74 6f 6d 61 74 69 63  61 6c 6c 79 20 73 65 6c  |utomatically sel|
00000be0  65 63 74 65 64 2e 0a 7c  0a 7c 20 20 20 2d 52 20  |ected..|.|   -R |
00000bf0  53 61 6d 70 6c 69 6e 67  20 72 61 74 65 20 74 61  |Sampling rate ta|
00000c00  70 65 64 65 63 6b 20 74  6f 20 75 73 65 20 2d 20  |pedeck to use - |
00000c10  64 65 66 61 75 6c 74 20  3d 20 31 32 30 75 73 20  |default = 120us |
00000c20  28 38 2e 33 32 4b 48 7a  29 20 0a 7c 20 20 20 20  |(8.32KHz) .|    |
00000c30  20 20 20 20 20 4d 69 6d  69 6d 75 6d 20 76 61 6c  |     Mimimum val|
00000c40  75 65 20 38 30 20 28 31  32 2e 35 6b 48 7a 29 20  |ue 80 (12.5kHz) |
00000c50  6f 6e 20 41 72 6d 32 20  77 69 74 68 6f 75 74 20  |on Arm2 without |
00000c60  4d 65 6d 31 43 41 20 62  75 74 20 49 52 51 55 74  |Mem1CA but IRQUt|
00000c70  69 6c 73 20 6c 6f 61 64  65 64 2e 0a 7c 20 20 20  |ils loaded..|   |
00000c80  20 20 20 20 20 20 28 6c  6f 77 65 72 20 76 61 6c  |      (lower val|
00000c90  75 65 73 20 72 65 73 75  6c 74 20 69 6e 20 27 50  |ues result in 'P|
00000ca0  69 6e 6b 79 26 50 65 72  6b 79 27 20 71 75 61 6c  |inky&Perky' qual|
00000cb0  69 74 79 21 29 2e 0a 7c  0a 7c 20 20 20 2d 50 20  |ity!)..|.|   -P |
00000cc0  50 72 69 6e 74 20 62 69  6e 64 65 72 2e 20 4d 61  |Print binder. Ma|
00000cd0  67 70 69 65 20 77 69 6c  6c 20 73 74 61 72 74 20  |gpie will start |
00000ce0  75 70 2c 20 6f 70 65 6e  20 74 68 65 20 62 69 6e  |up, open the bin|
00000cf0  64 65 72 2c 20 73 74 61  72 74 20 70 72 69 6e 74  |der, start print|
00000d00  20 64 69 61 6c 6f 67 75  65 0a 7c 20 20 20 20 20  | dialogue.|     |
00000d10  20 61 6e 64 2c 20 75 70  6f 6e 20 63 6f 6d 70 6c  | and, upon compl|
00000d20  65 74 69 6f 6e 2c 20 63  6c 6f 73 65 20 64 6f 77  |etion, close dow|
00000d30  6e 2e 20 54 68 69 73 20  70 61 72 61 6d 65 74 65  |n. This paramete|
00000d40  72 20 69 73 20 66 6f 72  20 75 73 65 20 6f 6e 20  |r is for use on |
00000d50  61 6c 69 61 73 24 40 70  72 69 6e 74 74 79 70 65  |alias$@printtype|
00000d60  2e 0a 7c 0a 52 75 6e 20  22 3c 4d 61 67 70 69 65  |..|.Run "<Magpie|
00000d70  42 72 6f 77 73 65 24 44  69 72 3e 2e 21 72 75 6e  |Browse$Dir>.!run|
00000d80  49 6d 61 67 65 22 20 2d  73 67 20 2d 67 36 30 20  |Image" -sg -g60 |
00000d90  2d 72 31 32 30 20 25 2a  30 0a                    |-r120 %*0.|
00000d9a