Home » Archimedes archive » Acorn Computing » 1994 03.adf » 9403 » Asylum/!AsylumDem/!Run
Asylum/!AsylumDem/!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 Computing » 1994 03.adf » 9403 |
| Filename: | Asylum/!AsylumDem/!Run |
| Read OK: | ✔ |
| File size: | 0351 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
|!Run file for Asylum Set Asylum$Dir <Obey$Dir> Set Asylum$Path <Obey$Dir>. Set PsychoResource$Path <Asylum$Path>Resources. If "<PsychoEgo$Path>"="" Then SetMacro PsychoEgo$Path ADFS::Asylum1.$.!Ego. If "<PsychoPsyche$Path>"="" Then SetMacro PsychoPsyche$Path ADFS::Asylum2.$.!Psyche. If "<PsychoId$Path>"="" Then SetMacro PsychoId$Path ADFS::Asylum2.$.!Id. Set AsylumDemo$Path <Asylum$Path>Demo. WimpSlot -min 96k -max 96k Set Asylum$IconBar Yes RMEnsure SharedCLibrary 3.50 If "<System$Path>" <> "" Then RMLoad <System$Path>Modules.CLib RMEnsure SharedCLibrary 3.50 Set Asylum$IconBar No RMEnsure UtilityModule 3.00 Set Wimp$State desktop If "<Wimp$State>"<>"desktop" Then Set Asylum$IconBar No If "<Asylum$IconBar>"<>"Yes" Then Run <Asylum$Path>!RunImage If "<Asylum$IconBar>"<>"Yes" Then Quit If "<Asylum$IconBar>"="Yes" Then Run Asylum:!Asylum
00000000 7c 21 52 75 6e 20 66 69 6c 65 20 66 6f 72 20 41 ||!Run file for A| 00000010 73 79 6c 75 6d 0a 53 65 74 20 41 73 79 6c 75 6d |sylum.Set Asylum| 00000020 24 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e 0a |$Dir <Obey$Dir>.| 00000030 53 65 74 20 41 73 79 6c 75 6d 24 50 61 74 68 20 |Set Asylum$Path | 00000040 3c 4f 62 65 79 24 44 69 72 3e 2e 0a 53 65 74 20 |<Obey$Dir>..Set | 00000050 50 73 79 63 68 6f 52 65 73 6f 75 72 63 65 24 50 |PsychoResource$P| 00000060 61 74 68 20 3c 41 73 79 6c 75 6d 24 50 61 74 68 |ath <Asylum$Path| 00000070 3e 52 65 73 6f 75 72 63 65 73 2e 0a 49 66 20 22 |>Resources..If "| 00000080 3c 50 73 79 63 68 6f 45 67 6f 24 50 61 74 68 3e |<PsychoEgo$Path>| 00000090 22 3d 22 22 20 54 68 65 6e 20 53 65 74 4d 61 63 |"="" Then SetMac| 000000a0 72 6f 20 50 73 79 63 68 6f 45 67 6f 24 50 61 74 |ro PsychoEgo$Pat| 000000b0 68 20 41 44 46 53 3a 3a 41 73 79 6c 75 6d 31 2e |h ADFS::Asylum1.| 000000c0 24 2e 21 45 67 6f 2e 0a 49 66 20 22 3c 50 73 79 |$.!Ego..If "<Psy| 000000d0 63 68 6f 50 73 79 63 68 65 24 50 61 74 68 3e 22 |choPsyche$Path>"| 000000e0 3d 22 22 20 54 68 65 6e 20 53 65 74 4d 61 63 72 |="" Then SetMacr| 000000f0 6f 20 50 73 79 63 68 6f 50 73 79 63 68 65 24 50 |o PsychoPsyche$P| 00000100 61 74 68 20 41 44 46 53 3a 3a 41 73 79 6c 75 6d |ath ADFS::Asylum| 00000110 32 2e 24 2e 21 50 73 79 63 68 65 2e 0a 49 66 20 |2.$.!Psyche..If | 00000120 22 3c 50 73 79 63 68 6f 49 64 24 50 61 74 68 3e |"<PsychoId$Path>| 00000130 22 3d 22 22 20 54 68 65 6e 20 53 65 74 4d 61 63 |"="" Then SetMac| 00000140 72 6f 20 50 73 79 63 68 6f 49 64 24 50 61 74 68 |ro PsychoId$Path| 00000150 20 41 44 46 53 3a 3a 41 73 79 6c 75 6d 32 2e 24 | ADFS::Asylum2.$| 00000160 2e 21 49 64 2e 0a 53 65 74 20 41 73 79 6c 75 6d |.!Id..Set Asylum| 00000170 44 65 6d 6f 24 50 61 74 68 20 3c 41 73 79 6c 75 |Demo$Path <Asylu| 00000180 6d 24 50 61 74 68 3e 44 65 6d 6f 2e 0a 57 69 6d |m$Path>Demo..Wim| 00000190 70 53 6c 6f 74 20 2d 6d 69 6e 20 39 36 6b 20 2d |pSlot -min 96k -| 000001a0 6d 61 78 20 39 36 6b 0a 53 65 74 20 41 73 79 6c |max 96k.Set Asyl| 000001b0 75 6d 24 49 63 6f 6e 42 61 72 20 59 65 73 0a 52 |um$IconBar Yes.R| 000001c0 4d 45 6e 73 75 72 65 20 53 68 61 72 65 64 43 4c |MEnsure SharedCL| 000001d0 69 62 72 61 72 79 20 33 2e 35 30 20 49 66 20 22 |ibrary 3.50 If "| 000001e0 3c 53 79 73 74 65 6d 24 50 61 74 68 3e 22 20 3c |<System$Path>" <| 000001f0 3e 20 22 22 20 54 68 65 6e 20 52 4d 4c 6f 61 64 |> "" Then RMLoad| 00000200 20 3c 53 79 73 74 65 6d 24 50 61 74 68 3e 4d 6f | <System$Path>Mo| 00000210 64 75 6c 65 73 2e 43 4c 69 62 0a 52 4d 45 6e 73 |dules.CLib.RMEns| 00000220 75 72 65 20 53 68 61 72 65 64 43 4c 69 62 72 61 |ure SharedCLibra| 00000230 72 79 20 33 2e 35 30 20 53 65 74 20 41 73 79 6c |ry 3.50 Set Asyl| 00000240 75 6d 24 49 63 6f 6e 42 61 72 20 4e 6f 0a 52 4d |um$IconBar No.RM| 00000250 45 6e 73 75 72 65 20 55 74 69 6c 69 74 79 4d 6f |Ensure UtilityMo| 00000260 64 75 6c 65 20 33 2e 30 30 20 53 65 74 20 57 69 |dule 3.00 Set Wi| 00000270 6d 70 24 53 74 61 74 65 20 64 65 73 6b 74 6f 70 |mp$State desktop| 00000280 0a 49 66 20 22 3c 57 69 6d 70 24 53 74 61 74 65 |.If "<Wimp$State| 00000290 3e 22 3c 3e 22 64 65 73 6b 74 6f 70 22 20 54 68 |>"<>"desktop" Th| 000002a0 65 6e 20 53 65 74 20 41 73 79 6c 75 6d 24 49 63 |en Set Asylum$Ic| 000002b0 6f 6e 42 61 72 20 4e 6f 0a 49 66 20 22 3c 41 73 |onBar No.If "<As| 000002c0 79 6c 75 6d 24 49 63 6f 6e 42 61 72 3e 22 3c 3e |ylum$IconBar>"<>| 000002d0 22 59 65 73 22 20 54 68 65 6e 20 52 75 6e 20 3c |"Yes" Then Run <| 000002e0 41 73 79 6c 75 6d 24 50 61 74 68 3e 21 52 75 6e |Asylum$Path>!Run| 000002f0 49 6d 61 67 65 0a 49 66 20 22 3c 41 73 79 6c 75 |Image.If "<Asylu| 00000300 6d 24 49 63 6f 6e 42 61 72 3e 22 3c 3e 22 59 65 |m$IconBar>"<>"Ye| 00000310 73 22 20 54 68 65 6e 20 51 75 69 74 0a 49 66 20 |s" Then Quit.If | 00000320 22 3c 41 73 79 6c 75 6d 24 49 63 6f 6e 42 61 72 |"<Asylum$IconBar| 00000330 3e 22 3d 22 59 65 73 22 20 54 68 65 6e 20 52 75 |>"="Yes" Then Ru| 00000340 6e 20 41 73 79 6c 75 6d 3a 21 41 73 79 6c 75 6d |n Asylum:!Asylum| 00000350 0a |.| 00000351
.