!Apocalyps/!Runimage

Home » Archimedes archive » Acorn User » AU 1997-06 A.adf » !Apocalyps/!Runimage

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 1997-06 A.adf
Filename:	!Apocalyps/!Runimage
Read OK:	✔
File size:	032A bytes
Load address:	FFFFFB42
Exec address:	5726E705

File contents

   10REM >!a*.!Runimage
   20MODE13
   30*POINTER
   40DIM osword% &10,pointdat% &100
   50?osword%=0
   60osword%?1=1
   70osword%!2=&08081104
   80osword%!6=pointdat%
   90FORA%=0 TO &100:pointdat%?A%=0:NEXT
  100FORY%=0 TO 16
  110READ A$
  120FORX%=0 TO 15
  130D%=VALMID$(A$,X%+1,1)
  140?(pointdat%+(X%>>2)+(Y%*4))+=D%<<((X%AND3)<<1)
  150NEXT:NEXT
  160SYS"OS_Word",21,osword%
  170MOUSECOLOUR1,255,255,0
  180MOUSECOLOUR3,0,255,255
  190MOUSECOLOUR3,255,0,0
  200MOUSEON 1
  220CHAIN"<Obey$Dir>.apocalypse"
  230
  240DATA 0000000300000000
  250DATA 0000011311000000
  260DATA 0001100300110000
  270DATA 0010000300001000
  280DATA 0100000300000100
  290DATA 0100000300000100
  300DATA 1000000300000010
  310DATA 1000000000000010
  320DATA 3333330203333330
  330DATA 1000000000000010
  340DATA 1000000300000010
  350DATA 0100000300000100
  360DATA 0100000300000100
  370DATA 0010000300001000
  380DATA 0001100300110000
  390DATA 0000011311000000
  400DATA 0000000300000000
  410DATA 0000000000000000
  420


� >!a*.!Runimage
�13
*POINTER
( � osword% &10,pointdat% &100
2?osword%=0
<osword%?1=1
Fosword%!2=&08081104
Posword%!6=pointdat%
Z!�A%=0 � &100:pointdat%?A%=0:�
d�Y%=0 � 16
n� A$
x�X%=0 � 15
�D%=��A$,X%+1,1)
�0?(pointdat%+(X%>>2)+(Y%*4))+=D%<<((X%�3)<<1)
��:�
�ș"OS_Word",21,osword%
�ȗ�1,255,255,0
�ȗ�3,0,255,255
�ȗ�3,255,0,0
�	ȗ� 1
��"<Obey$Dir>.apocalypse"
�
�� 0000000300000000
�� 0000011311000000
� 0001100300110000
� 0010000300001000
� 0100000300000100
"� 0100000300000100
,� 1000000300000010
6� 1000000000000010
@� 3333330203333330
J� 1000000000000010
T� 1000000300000010
^� 0100000300000100
h� 0100000300000100
r� 0010000300001000
|� 0001100300110000
�� 0000011311000000
�� 0000000300000000
�� 0000000000000000
�
�

00000000  0d 00 0a 14 f4 20 3e 21  61 2a 2e 21 52 75 6e 69  |..... >!a*.!Runi|
00000010  6d 61 67 65 0d 00 14 07  eb 31 33 0d 00 1e 0c 2a  |mage.....13....*|
00000020  50 4f 49 4e 54 45 52 0d  00 28 20 de 20 6f 73 77  |POINTER..( . osw|
00000030  6f 72 64 25 20 26 31 30  2c 70 6f 69 6e 74 64 61  |ord% &10,pointda|
00000040  74 25 20 26 31 30 30 0d  00 32 0e 3f 6f 73 77 6f  |t% &100..2.?oswo|
00000050  72 64 25 3d 30 0d 00 3c  0f 6f 73 77 6f 72 64 25  |rd%=0..<.osword%|
00000060  3f 31 3d 31 0d 00 46 17  6f 73 77 6f 72 64 25 21  |?1=1..F.osword%!|
00000070  32 3d 26 30 38 30 38 31  31 30 34 0d 00 50 17 6f  |2=&08081104..P.o|
00000080  73 77 6f 72 64 25 21 36  3d 70 6f 69 6e 74 64 61  |sword%!6=pointda|
00000090  74 25 0d 00 5a 21 e3 41  25 3d 30 20 b8 20 26 31  |t%..Z!.A%=0 . &1|
000000a0  30 30 3a 70 6f 69 6e 74  64 61 74 25 3f 41 25 3d  |00:pointdat%?A%=|
000000b0  30 3a ed 0d 00 64 0e e3  59 25 3d 30 20 b8 20 31  |0:...d..Y%=0 . 1|
000000c0  36 0d 00 6e 08 f3 20 41  24 0d 00 78 0e e3 58 25  |6..n.. A$..x..X%|
000000d0  3d 30 20 b8 20 31 35 0d  00 82 13 44 25 3d bb c1  |=0 . 15....D%=..|
000000e0  41 24 2c 58 25 2b 31 2c  31 29 0d 00 8c 30 3f 28  |A$,X%+1,1)...0?(|
000000f0  70 6f 69 6e 74 64 61 74  25 2b 28 58 25 3e 3e 32  |pointdat%+(X%>>2|
00000100  29 2b 28 59 25 2a 34 29  29 2b 3d 44 25 3c 3c 28  |)+(Y%*4))+=D%<<(|
00000110  28 58 25 80 33 29 3c 3c  31 29 0d 00 96 07 ed 3a  |(X%.3)<<1).....:|
00000120  ed 0d 00 a0 1a c8 99 22  4f 53 5f 57 6f 72 64 22  |......."OS_Word"|
00000130  2c 32 31 2c 6f 73 77 6f  72 64 25 0d 00 aa 12 c8  |,21,osword%.....|
00000140  97 fb 31 2c 32 35 35 2c  32 35 35 2c 30 0d 00 b4  |..1,255,255,0...|
00000150  12 c8 97 fb 33 2c 30 2c  32 35 35 2c 32 35 35 0d  |....3,0,255,255.|
00000160  00 be 10 c8 97 fb 33 2c  32 35 35 2c 30 2c 30 0d  |......3,255,0,0.|
00000170  00 c8 09 c8 97 ee 20 31  0d 00 dc 1c d7 22 3c 4f  |...... 1....."<O|
00000180  62 65 79 24 44 69 72 3e  2e 61 70 6f 63 61 6c 79  |bey$Dir>.apocaly|
00000190  70 73 65 22 0d 00 e6 04  0d 00 f0 16 dc 20 30 30  |pse"......... 00|
000001a0  30 30 30 30 30 33 30 30  30 30 30 30 30 30 0d 00  |00000300000000..|
000001b0  fa 16 dc 20 30 30 30 30  30 31 31 33 31 31 30 30  |... 000001131100|
000001c0  30 30 30 30 0d 01 04 16  dc 20 30 30 30 31 31 30  |0000..... 000110|
000001d0  30 33 30 30 31 31 30 30  30 30 0d 01 0e 16 dc 20  |0300110000..... |
000001e0  30 30 31 30 30 30 30 33  30 30 30 30 31 30 30 30  |0010000300001000|
000001f0  0d 01 18 16 dc 20 30 31  30 30 30 30 30 33 30 30  |..... 0100000300|
00000200  30 30 30 31 30 30 0d 01  22 16 dc 20 30 31 30 30  |000100..".. 0100|
00000210  30 30 30 33 30 30 30 30  30 31 30 30 0d 01 2c 16  |000300000100..,.|
00000220  dc 20 31 30 30 30 30 30  30 33 30 30 30 30 30 30  |. 10000003000000|
00000230  31 30 0d 01 36 16 dc 20  31 30 30 30 30 30 30 30  |10..6.. 10000000|
00000240  30 30 30 30 30 30 31 30  0d 01 40 16 dc 20 33 33  |00000010..@.. 33|
00000250  33 33 33 33 30 32 30 33  33 33 33 33 33 30 0d 01  |33330203333330..|
00000260  4a 16 dc 20 31 30 30 30  30 30 30 30 30 30 30 30  |J.. 100000000000|
00000270  30 30 31 30 0d 01 54 16  dc 20 31 30 30 30 30 30  |0010..T.. 100000|
00000280  30 33 30 30 30 30 30 30  31 30 0d 01 5e 16 dc 20  |0300000010..^.. |
00000290  30 31 30 30 30 30 30 33  30 30 30 30 30 31 30 30  |0100000300000100|
000002a0  0d 01 68 16 dc 20 30 31  30 30 30 30 30 33 30 30  |..h.. 0100000300|
000002b0  30 30 30 31 30 30 0d 01  72 16 dc 20 30 30 31 30  |000100..r.. 0010|
000002c0  30 30 30 33 30 30 30 30  31 30 30 30 0d 01 7c 16  |000300001000..|.|
000002d0  dc 20 30 30 30 31 31 30  30 33 30 30 31 31 30 30  |. 00011003001100|
000002e0  30 30 0d 01 86 16 dc 20  30 30 30 30 30 31 31 33  |00..... 00000113|
000002f0  31 31 30 30 30 30 30 30  0d 01 90 16 dc 20 30 30  |11000000..... 00|
00000300  30 30 30 30 30 33 30 30  30 30 30 30 30 30 0d 01  |00000300000000..|
00000310  9a 16 dc 20 30 30 30 30  30 30 30 30 30 30 30 30  |... 000000000000|
00000320  30 30 30 30 0d 01 a4 04  0d ff                    |0000......|
0000032a

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .