Home » Archimedes archive » Acorn Computing » 1994 03.adf » 9403 » Asylum/!AsylumDem/Code/!RunImage4
Asylum/!AsylumDem/Code/!RunImage4
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/Code/!RunImage4 |
| Read OK: | ✔ |
| File size: | 04A9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Desktop Nuker 20REM LEN A. Southgate 1993 30REM 35 VOICES 4 40SYS "XOS_CLI","IF ""<Asylum$Reset>""=""Yes"" Then Error 0 0" TO ;flags 50IF (flags AND 1) = 0 THEN OSCLI "Exec <Asylum$Path>Code.RunTheGame":END 60SYS "Wimp_Initialise",200,&4B534154,"Psychosis",0 TO ,task 70DIM buffer 200 80!buffer=0 90$(buffer+4)="There is not enough free memory to run Asylum. Click OK to close down the Desktop and run the game, otherwise click cancel." 100SYS "Wimp_ReportError",buffer,19,"Query from Asylum" TO ,reply 110IF reply<>1 THEN SYS "Wimp_CloseDown",task,&4B534154:END 120SYS "XOS_CLI","RMEnsure UtilityModule 3.00" TO ;flags 130IF (flags AND 1) = 1 THEN 140REM RISC OS 2 Shutdown 141 !buffer=0 142$(buffer+4)="Please select Exit from the Task Manager menu (bottom left), or press Ctrl-Shift F12" 143SYS "Wimp_ReportError",buffer,%10001,"Asylum" 155SYS "Wimp_ProcessKey",&1FC 157 TI=0.0001 160ELSE 170REM RISC OS 3 Shutdown 180SYS "TaskManager_Shutdown",1 185 TI=0.01 190ENDIF 200 210quit=FALSE 230T=0 240ON ERROR quit=TRUE 250REPEAT 260SYS "Wimp_Poll",0,buffer TO event,block 270IF event=17 OR event=18 THEN 280IF block!16=0 THEN TI=1 290ENDIF 300T+=TI 310IF T>100 THEN quit=TRUE 320UNTIL quit 330SYS "Wimp_CloseDown",task,&4B534154 340IF TI>0.9 THEN OSCLI "Exec <Asylum$Path>Code.Nukefile"
� Desktop Nuker � � A. Southgate 1993 � # Ƞ 4 (Hș "XOS_CLI","IF ""<Asylum$Reset>""=""Yes"" Then Error 0 0" � ;flags 2@� (flags � 1) = 0 � � "Exec <Asylum$Path>Code.RunTheGame":� <<ș "Wimp_Initialise",200,&4B534154,"Psychosis",0 � ,task F� buffer 200 P !buffer=0 Z�$(buffer+4)="There is not enough free memory to run Asylum. Click OK to close down the Desktop and run the game, otherwise click cancel." d@ș "Wimp_ReportError",buffer,19,"Query from Asylum" � ,reply n5� reply<>1 � ș "Wimp_CloseDown",task,&4B534154:� x7ș "XOS_CLI","RMEnsure UtilityModule 3.00" � ;flags �� (flags � 1) = 1 � �� RISC OS 2 Shutdown � !buffer=0 �f$(buffer+4)="Please select Exit from the Task Manager menu (bottom left), or press Ctrl-Shift F12" �0ș "Wimp_ReportError",buffer,%10001,"Asylum" � ș "Wimp_ProcessKey",&1FC � TI=0.0001 �� �� RISC OS 3 Shutdown � ș "TaskManager_Shutdown",1 � TI=0.01 �� � � quit=� �T=0 �� � quit=� �� )ș "Wimp_Poll",0,buffer � event,block � event=17 � event=18 � � block!16=0 � TI=1 "� , T+=TI 6� T>100 � quit=� @ � quit J&ș "Wimp_CloseDown",task,&4B534154 T2� TI>0.9 � � "Exec <Asylum$Path>Code.Nukefile" �
00000000 0d 00 0a 13 f4 20 44 65 73 6b 74 6f 70 20 4e 75 |..... Desktop Nu| 00000010 6b 65 72 0d 00 14 19 f4 20 a9 20 41 2e 20 53 6f |ker..... . A. So| 00000020 75 74 68 67 61 74 65 20 31 39 39 33 0d 00 1e 05 |uthgate 1993....| 00000030 f4 0d 00 23 09 20 c8 a0 20 34 0d 00 28 48 c8 99 |...#. .. 4..(H..| 00000040 20 22 58 4f 53 5f 43 4c 49 22 2c 22 49 46 20 22 | "XOS_CLI","IF "| 00000050 22 3c 41 73 79 6c 75 6d 24 52 65 73 65 74 3e 22 |"<Asylum$Reset>"| 00000060 22 3d 22 22 59 65 73 22 22 20 54 68 65 6e 20 45 |"=""Yes"" Then E| 00000070 72 72 6f 72 20 30 20 30 22 20 b8 20 3b 66 6c 61 |rror 0 0" . ;fla| 00000080 67 73 0d 00 32 40 e7 20 20 28 66 6c 61 67 73 20 |gs..2@. (flags | 00000090 80 20 31 29 20 3d 20 30 20 8c 20 ff 20 22 45 78 |. 1) = 0 . . "Ex| 000000a0 65 63 20 3c 41 73 79 6c 75 6d 24 50 61 74 68 3e |ec <Asylum$Path>| 000000b0 43 6f 64 65 2e 52 75 6e 54 68 65 47 61 6d 65 22 |Code.RunTheGame"| 000000c0 3a e0 0d 00 3c 3c c8 99 20 22 57 69 6d 70 5f 49 |:...<<.. "Wimp_I| 000000d0 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 |nitialise",200,&| 000000e0 34 42 35 33 34 31 35 34 2c 22 50 73 79 63 68 6f |4B534154,"Psycho| 000000f0 73 69 73 22 2c 30 20 b8 20 2c 74 61 73 6b 0d 00 |sis",0 . ,task..| 00000100 46 10 de 20 62 75 66 66 65 72 20 32 30 30 0d 00 |F.. buffer 200..| 00000110 50 0d 21 62 75 66 66 65 72 3d 30 0d 00 5a 8e 24 |P.!buffer=0..Z.$| 00000120 28 62 75 66 66 65 72 2b 34 29 3d 22 54 68 65 72 |(buffer+4)="Ther| 00000130 65 20 69 73 20 6e 6f 74 20 65 6e 6f 75 67 68 20 |e is not enough | 00000140 66 72 65 65 20 6d 65 6d 6f 72 79 20 74 6f 20 72 |free memory to r| 00000150 75 6e 20 41 73 79 6c 75 6d 2e 20 20 43 6c 69 63 |un Asylum. Clic| 00000160 6b 20 4f 4b 20 74 6f 20 63 6c 6f 73 65 20 64 6f |k OK to close do| 00000170 77 6e 20 74 68 65 20 44 65 73 6b 74 6f 70 20 61 |wn the Desktop a| 00000180 6e 64 20 72 75 6e 20 74 68 65 20 67 61 6d 65 2c |nd run the game,| 00000190 20 6f 74 68 65 72 77 69 73 65 20 63 6c 69 63 6b | otherwise click| 000001a0 20 63 61 6e 63 65 6c 2e 22 0d 00 64 40 c8 99 20 | cancel."..d@.. | 000001b0 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro| 000001c0 72 22 2c 62 75 66 66 65 72 2c 31 39 2c 22 51 75 |r",buffer,19,"Qu| 000001d0 65 72 79 20 66 72 6f 6d 20 41 73 79 6c 75 6d 22 |ery from Asylum"| 000001e0 20 b8 20 2c 72 65 70 6c 79 0d 00 6e 35 e7 20 72 | . ,reply..n5. r| 000001f0 65 70 6c 79 3c 3e 31 20 8c 20 c8 99 20 22 57 69 |eply<>1 . .. "Wi| 00000200 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 |mp_CloseDown",ta| 00000210 73 6b 2c 26 34 42 35 33 34 31 35 34 3a e0 0d 00 |sk,&4B534154:...| 00000220 78 37 c8 99 20 22 58 4f 53 5f 43 4c 49 22 2c 22 |x7.. "XOS_CLI","| 00000230 52 4d 45 6e 73 75 72 65 20 55 74 69 6c 69 74 79 |RMEnsure Utility| 00000240 4d 6f 64 75 6c 65 20 33 2e 30 30 22 20 b8 20 3b |Module 3.00" . ;| 00000250 66 6c 61 67 73 0d 00 82 17 e7 20 28 66 6c 61 67 |flags..... (flag| 00000260 73 20 80 20 31 29 20 3d 20 31 20 8c 0d 00 8c 18 |s . 1) = 1 .....| 00000270 f4 20 52 49 53 43 20 4f 53 20 32 20 53 68 75 74 |. RISC OS 2 Shut| 00000280 64 6f 77 6e 0d 00 8d 0e 20 21 62 75 66 66 65 72 |down.... !buffer| 00000290 3d 30 0d 00 8e 66 24 28 62 75 66 66 65 72 2b 34 |=0...f$(buffer+4| 000002a0 29 3d 22 50 6c 65 61 73 65 20 73 65 6c 65 63 74 |)="Please select| 000002b0 20 45 78 69 74 20 66 72 6f 6d 20 74 68 65 20 54 | Exit from the T| 000002c0 61 73 6b 20 4d 61 6e 61 67 65 72 20 6d 65 6e 75 |ask Manager menu| 000002d0 20 28 62 6f 74 74 6f 6d 20 6c 65 66 74 29 2c 20 | (bottom left), | 000002e0 6f 72 20 70 72 65 73 73 20 43 74 72 6c 2d 53 68 |or press Ctrl-Sh| 000002f0 69 66 74 20 46 31 32 22 0d 00 8f 30 c8 99 20 22 |ift F12"...0.. "| 00000300 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError| 00000310 22 2c 62 75 66 66 65 72 2c 25 31 30 30 30 31 2c |",buffer,%10001,| 00000320 22 41 73 79 6c 75 6d 22 0d 00 9b 1d c8 99 20 22 |"Asylum"...... "| 00000330 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 |Wimp_ProcessKey"| 00000340 2c 26 31 46 43 0d 00 9d 0e 20 54 49 3d 30 2e 30 |,&1FC.... TI=0.0| 00000350 30 30 31 0d 00 a0 05 cc 0d 00 aa 18 f4 20 52 49 |001.......... RI| 00000360 53 43 20 4f 53 20 33 20 53 68 75 74 64 6f 77 6e |SC OS 3 Shutdown| 00000370 0d 00 b4 1f c8 99 20 22 54 61 73 6b 4d 61 6e 61 |...... "TaskMana| 00000380 67 65 72 5f 53 68 75 74 64 6f 77 6e 22 2c 31 0d |ger_Shutdown",1.| 00000390 00 b9 0c 20 54 49 3d 30 2e 30 31 0d 00 be 05 cd |... TI=0.01.....| 000003a0 0d 00 c8 04 0d 00 d2 0a 71 75 69 74 3d a3 0d 00 |........quit=...| 000003b0 e6 07 54 3d 30 0d 00 f0 0e ee 20 85 20 71 75 69 |..T=0..... . qui| 000003c0 74 3d b9 0d 00 fa 05 f5 0d 01 04 29 c8 99 20 22 |t=.........).. "| 000003d0 57 69 6d 70 5f 50 6f 6c 6c 22 2c 30 2c 62 75 66 |Wimp_Poll",0,buf| 000003e0 66 65 72 20 b8 20 65 76 65 6e 74 2c 62 6c 6f 63 |fer . event,bloc| 000003f0 6b 0d 01 0e 1b e7 20 65 76 65 6e 74 3d 31 37 20 |k..... event=17 | 00000400 84 20 65 76 65 6e 74 3d 31 38 20 8c 0d 01 18 17 |. event=18 .....| 00000410 e7 20 62 6c 6f 63 6b 21 31 36 3d 30 20 8c 20 54 |. block!16=0 . T| 00000420 49 3d 31 0d 01 22 05 cd 0d 01 2c 09 54 2b 3d 54 |I=1.."....,.T+=T| 00000430 49 0d 01 36 14 e7 20 54 3e 31 30 30 20 8c 20 71 |I..6.. T>100 . q| 00000440 75 69 74 3d b9 0d 01 40 0a fd 20 71 75 69 74 0d |uit=...@.. quit.| 00000450 01 4a 26 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |.J&.. "Wimp_Clos| 00000460 65 44 6f 77 6e 22 2c 74 61 73 6b 2c 26 34 42 35 |eDown",task,&4B5| 00000470 33 34 31 35 34 0d 01 54 32 e7 20 54 49 3e 30 2e |34154..T2. TI>0.| 00000480 39 20 8c 20 ff 20 22 45 78 65 63 20 3c 41 73 79 |9 . . "Exec <Asy| 00000490 6c 75 6d 24 50 61 74 68 3e 43 6f 64 65 2e 4e 75 |lum$Path>Code.Nu| 000004a0 6b 65 66 69 6c 65 22 0d ff |kefile"..| 000004a9
.