Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/!Run
Director/!Director/!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 » Acorn User » AU 1995-10.adf » !Direct |
| Filename: | Director/!Director/!Run |
| Read OK: | ✔ |
| File size: | 065E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/!Run
- Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/!Run
File contents
|===========================================================================| |!Run file for !Director |(C) Nick Craig-Wood 1994 |===========================================================================| RMEnsure UtilityModule 3.10 Error RISC OS 3.10 or later required for Director If "<Director$Dir>" = "" then Set Run$Path <Run$Path>,Director:Utils. Set Director$Dir <Obey$Dir> SetMacro Director$Path <Director$Dir>. IconSprites Director:!Sprites |---------------------------------------------------------------------------| |Kill off previous incarnation |(Done like this so the dying module can complaing without interfering with |the new version) |---------------------------------------------------------------------------| SetEval Kill 1 RMEnsure Director 0.00 SetEval Kill 0 If Kill Then RMKill Director UnSet Kill |---------------------------------------------------------------------------| |Load utilities |---------------------------------------------------------------------------| RMEnsure SWIModule 1.00 RMLoad Director:Utils.SWIModule |---------------------------------------------------------------------------| |Load the module and start the task |---------------------------------------------------------------------------| WimpTask Director:Director |---------------------------------------------------------------------------| |Load in menu definitions |---------------------------------------------------------------------------| If "<Director$Init>" = "" Then Set Director$Init <Machine$Name> If "<Director$Init>" = "" Then Set Director$Init Default DirectorObey Director:Menus.<Director$Init>
00000000 7c 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ||===============| 00000010 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 00000040 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 7c 0a 7c 21 |============|.|!| 00000050 52 75 6e 20 66 69 6c 65 20 66 6f 72 20 21 44 69 |Run file for !Di| 00000060 72 65 63 74 6f 72 0a 7c 28 43 29 20 4e 69 63 6b |rector.|(C) Nick| 00000070 20 43 72 61 69 67 2d 57 6f 6f 64 20 31 39 39 34 | Craig-Wood 1994| 00000080 0a 7c 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |.|==============| 00000090 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 000000c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 7c 0a 0a |=============|..| 000000d0 52 4d 45 6e 73 75 72 65 20 55 74 69 6c 69 74 79 |RMEnsure Utility| 000000e0 4d 6f 64 75 6c 65 20 33 2e 31 30 20 45 72 72 6f |Module 3.10 Erro| 000000f0 72 20 52 49 53 43 20 4f 53 20 33 2e 31 30 20 6f |r RISC OS 3.10 o| 00000100 72 20 6c 61 74 65 72 20 72 65 71 75 69 72 65 64 |r later required| 00000110 20 66 6f 72 20 44 69 72 65 63 74 6f 72 0a 0a 49 | for Director..I| 00000120 66 20 22 3c 44 69 72 65 63 74 6f 72 24 44 69 72 |f "<Director$Dir| 00000130 3e 22 20 3d 20 22 22 20 74 68 65 6e 20 53 65 74 |>" = "" then Set| 00000140 20 52 75 6e 24 50 61 74 68 20 3c 52 75 6e 24 50 | Run$Path <Run$P| 00000150 61 74 68 3e 2c 44 69 72 65 63 74 6f 72 3a 55 74 |ath>,Director:Ut| 00000160 69 6c 73 2e 0a 53 65 74 20 44 69 72 65 63 74 6f |ils..Set Directo| 00000170 72 24 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e |r$Dir <Obey$Dir>| 00000180 0a 53 65 74 4d 61 63 72 6f 20 44 69 72 65 63 74 |.SetMacro Direct| 00000190 6f 72 24 50 61 74 68 20 3c 44 69 72 65 63 74 6f |or$Path <Directo| 000001a0 72 24 44 69 72 3e 2e 0a 49 63 6f 6e 53 70 72 69 |r$Dir>..IconSpri| 000001b0 74 65 73 20 44 69 72 65 63 74 6f 72 3a 21 53 70 |tes Director:!Sp| 000001c0 72 69 74 65 73 0a 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d |rites..|--------| 000001d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000210 2d 2d 2d 7c 0a 7c 4b 69 6c 6c 20 6f 66 66 20 70 |---|.|Kill off p| 00000220 72 65 76 69 6f 75 73 20 69 6e 63 61 72 6e 61 74 |revious incarnat| 00000230 69 6f 6e 0a 7c 28 44 6f 6e 65 20 6c 69 6b 65 20 |ion.|(Done like | 00000240 74 68 69 73 20 73 6f 20 74 68 65 20 64 79 69 6e |this so the dyin| 00000250 67 20 6d 6f 64 75 6c 65 20 63 61 6e 20 63 6f 6d |g module can com| 00000260 70 6c 61 69 6e 67 20 77 69 74 68 6f 75 74 20 69 |plaing without i| 00000270 6e 74 65 72 66 65 72 69 6e 67 20 77 69 74 68 0a |nterfering with.| 00000280 7c 74 68 65 20 6e 65 77 20 76 65 72 73 69 6f 6e ||the new version| 00000290 29 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |).|-------------| 000002a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000002d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a |--------------|.| 000002e0 0a 53 65 74 45 76 61 6c 20 4b 69 6c 6c 20 31 0a |.SetEval Kill 1.| 000002f0 52 4d 45 6e 73 75 72 65 20 44 69 72 65 63 74 6f |RMEnsure Directo| 00000300 72 20 30 2e 30 30 20 53 65 74 45 76 61 6c 20 4b |r 0.00 SetEval K| 00000310 69 6c 6c 20 30 0a 49 66 20 4b 69 6c 6c 20 54 68 |ill 0.If Kill Th| 00000320 65 6e 20 52 4d 4b 69 6c 6c 20 44 69 72 65 63 74 |en RMKill Direct| 00000330 6f 72 0a 55 6e 53 65 74 20 4b 69 6c 6c 0a 0a 7c |or.UnSet Kill..|| 00000340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 7c 4c 6f |-----------|.|Lo| 00000390 61 64 20 75 74 69 6c 69 74 69 65 73 0a 7c 2d 2d |ad utilities.|--| 000003a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000003e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 0a 52 4d 45 6e |---------|..RMEn| 000003f0 73 75 72 65 20 53 57 49 4d 6f 64 75 6c 65 20 31 |sure SWIModule 1| 00000400 2e 30 30 20 52 4d 4c 6f 61 64 20 44 69 72 65 63 |.00 RMLoad Direc| 00000410 74 6f 72 3a 55 74 69 6c 73 2e 53 57 49 4d 6f 64 |tor:Utils.SWIMod| 00000420 75 6c 65 0a 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ule..|----------| 00000430 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000470 2d 7c 0a 7c 4c 6f 61 64 20 74 68 65 20 6d 6f 64 |-|.|Load the mod| 00000480 75 6c 65 20 61 6e 64 20 73 74 61 72 74 20 74 68 |ule and start th| 00000490 65 20 74 61 73 6b 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d |e task.|--------| 000004a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000004e0 2d 2d 2d 7c 0a 0a 57 69 6d 70 54 61 73 6b 20 44 |---|..WimpTask D| 000004f0 69 72 65 63 74 6f 72 3a 44 69 72 65 63 74 6f 72 |irector:Director| 00000500 0a 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |..|-------------| 00000510 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a |--------------|.| 00000550 7c 4c 6f 61 64 20 69 6e 20 6d 65 6e 75 20 64 65 ||Load in menu de| 00000560 66 69 6e 69 74 69 6f 6e 73 0a 7c 2d 2d 2d 2d 2d |finitions.|-----| 00000570 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000005b0 2d 2d 2d 2d 2d 2d 7c 0a 0a 49 66 20 22 3c 44 69 |------|..If "<Di| 000005c0 72 65 63 74 6f 72 24 49 6e 69 74 3e 22 20 3d 20 |rector$Init>" = | 000005d0 22 22 20 54 68 65 6e 20 53 65 74 20 44 69 72 65 |"" Then Set Dire| 000005e0 63 74 6f 72 24 49 6e 69 74 20 3c 4d 61 63 68 69 |ctor$Init <Machi| 000005f0 6e 65 24 4e 61 6d 65 3e 0a 49 66 20 22 3c 44 69 |ne$Name>.If "<Di| 00000600 72 65 63 74 6f 72 24 49 6e 69 74 3e 22 20 3d 20 |rector$Init>" = | 00000610 22 22 20 54 68 65 6e 20 53 65 74 20 44 69 72 65 |"" Then Set Dire| 00000620 63 74 6f 72 24 49 6e 69 74 20 44 65 66 61 75 6c |ctor$Init Defaul| 00000630 74 0a 44 69 72 65 63 74 6f 72 4f 62 65 79 20 44 |t.DirectorObey D| 00000640 69 72 65 63 74 6f 72 3a 4d 65 6e 75 73 2e 3c 44 |irector:Menus.<D| 00000650 69 72 65 63 74 6f 72 24 49 6e 69 74 3e 0a |irector$Init>.| 0000065e
.