Home » Archimedes archive » Archimedes World » AW-1991-12.adf » December91 » !AWDec91/Goodies/Banker/!Banker/!Run
!AWDec91/Goodies/Banker/!Banker/!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-12.adf » December91 |
| Filename: | !AWDec91/Goodies/Banker/!Banker/!Run |
| Read OK: | ✔ |
| File size: | 02CA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| run file for banker application | This file checks that necessary modules are loaded and claims a | "slot" from the WIMP *WimpSlot -min 560k -max 660k *IconSprites <Obey$Dir>.!Sprites | if "<System$Path>" = "" then Error 0 System resources cannot be found | RMensure ABCLibrary 0 RMLoad System:modules.ABCLib | RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator RMEnsure FPEmulator 2.70 Error You need FPEmulator 2.70 or later | |RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours |RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later | |*Dir <Obey$Dir> *Set Ken$Dir <Obey$Dir> *Set File$Type_406 Accounts *Set Alias$@RunType_406 Run <Obey$Dir>.!Run %%*0 *run <Ken$Dir>.!RunImage %*0
00000000 7c 20 72 75 6e 20 66 69 6c 65 20 66 6f 72 20 62 || run file for b| 00000010 61 6e 6b 65 72 20 61 70 70 6c 69 63 61 74 69 6f |anker applicatio| 00000020 6e 0a 7c 20 54 68 69 73 20 66 69 6c 65 20 63 68 |n.| This file ch| 00000030 65 63 6b 73 20 74 68 61 74 20 6e 65 63 65 73 73 |ecks that necess| 00000040 61 72 79 20 6d 6f 64 75 6c 65 73 20 61 72 65 20 |ary modules are | 00000050 6c 6f 61 64 65 64 20 61 6e 64 20 63 6c 61 69 6d |loaded and claim| 00000060 73 20 61 20 0a 7c 20 22 73 6c 6f 74 22 20 66 72 |s a .| "slot" fr| 00000070 6f 6d 20 74 68 65 20 57 49 4d 50 0a 0a 2a 57 69 |om the WIMP..*Wi| 00000080 6d 70 53 6c 6f 74 20 2d 6d 69 6e 20 35 36 30 6b |mpSlot -min 560k| 00000090 20 2d 6d 61 78 20 36 36 30 6b 0a 2a 49 63 6f 6e | -max 660k.*Icon| 000000a0 53 70 72 69 74 65 73 20 3c 4f 62 65 79 24 44 69 |Sprites <Obey$Di| 000000b0 72 3e 2e 21 53 70 72 69 74 65 73 0a 7c 0a 69 66 |r>.!Sprites.|.if| 000000c0 20 22 3c 53 79 73 74 65 6d 24 50 61 74 68 3e 22 | "<System$Path>"| 000000d0 20 3d 20 22 22 20 74 68 65 6e 20 45 72 72 6f 72 | = "" then Error| 000000e0 20 30 20 53 79 73 74 65 6d 20 72 65 73 6f 75 72 | 0 System resour| 000000f0 63 65 73 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f |ces cannot be fo| 00000100 75 6e 64 0a 7c 0a 52 4d 65 6e 73 75 72 65 20 41 |und.|.RMensure A| 00000110 42 43 4c 69 62 72 61 72 79 20 30 20 52 4d 4c 6f |BCLibrary 0 RMLo| 00000120 61 64 20 53 79 73 74 65 6d 3a 6d 6f 64 75 6c 65 |ad System:module| 00000130 73 2e 41 42 43 4c 69 62 0a 7c 0a 52 4d 45 6e 73 |s.ABCLib.|.RMEns| 00000140 75 72 65 20 46 50 45 6d 75 6c 61 74 6f 72 20 32 |ure FPEmulator 2| 00000150 2e 37 30 20 52 4d 4c 6f 61 64 20 53 79 73 74 65 |.70 RMLoad Syste| 00000160 6d 3a 4d 6f 64 75 6c 65 73 2e 46 50 45 6d 75 6c |m:Modules.FPEmul| 00000170 61 74 6f 72 0a 52 4d 45 6e 73 75 72 65 20 46 50 |ator.RMEnsure FP| 00000180 45 6d 75 6c 61 74 6f 72 20 32 2e 37 30 20 45 72 |Emulator 2.70 Er| 00000190 72 6f 72 20 59 6f 75 20 6e 65 65 64 20 46 50 45 |ror You need FPE| 000001a0 6d 75 6c 61 74 6f 72 20 32 2e 37 30 20 6f 72 20 |mulator 2.70 or | 000001b0 6c 61 74 65 72 0a 7c 0a 7c 52 4d 45 6e 73 75 72 |later.|.|RMEnsur| 000001c0 65 20 43 6f 6c 6f 75 72 54 72 61 6e 73 20 30 2e |e ColourTrans 0.| 000001d0 35 31 20 52 4d 4c 6f 61 64 20 53 79 73 74 65 6d |51 RMLoad System| 000001e0 3a 4d 6f 64 75 6c 65 73 2e 43 6f 6c 6f 75 72 73 |:Modules.Colours| 000001f0 0a 7c 52 4d 45 6e 73 75 72 65 20 43 6f 6c 6f 75 |.|RMEnsure Colou| 00000200 72 54 72 61 6e 73 20 30 2e 35 31 20 45 72 72 6f |rTrans 0.51 Erro| 00000210 72 20 59 6f 75 20 6e 65 65 64 20 43 6f 6c 6f 75 |r You need Colou| 00000220 72 54 72 61 6e 73 20 30 2e 35 31 20 6f 72 20 6c |rTrans 0.51 or l| 00000230 61 74 65 72 0a 7c 0a 7c 2a 44 69 72 20 3c 4f 62 |ater.|.|*Dir <Ob| 00000240 65 79 24 44 69 72 3e 0a 2a 53 65 74 20 4b 65 6e |ey$Dir>.*Set Ken| 00000250 24 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e 0a |$Dir <Obey$Dir>.| 00000260 2a 53 65 74 20 46 69 6c 65 24 54 79 70 65 5f 34 |*Set File$Type_4| 00000270 30 36 20 41 63 63 6f 75 6e 74 73 0a 2a 53 65 74 |06 Accounts.*Set| 00000280 20 41 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f | Alias$@RunType_| 00000290 34 30 36 20 52 75 6e 20 3c 4f 62 65 79 24 44 69 |406 Run <Obey$Di| 000002a0 72 3e 2e 21 52 75 6e 20 25 25 2a 30 0a 2a 72 75 |r>.!Run %%*0.*ru| 000002b0 6e 20 3c 4b 65 6e 24 44 69 72 3e 2e 21 52 75 6e |n <Ken$Dir>.!Run| 000002c0 49 6d 61 67 65 20 25 2a 30 0a |Image %*0.| 000002ca
.