Home » Personal collection » Acorn hard disk » demos » Demo » !/!runimage

!/!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 » Personal collection » Acorn hard disk » demos » Demo
Filename: !/!runimage
Read OK:
File size: 02B0 bytes
Load address: 0000
Exec address: 0000
File contents
    5REM>adfs::afrance.$.dlnew.!.!runimage
   10:MODE28:OFF:END=16*1024*1024
   15a$="<APMenu$Dir>.Screen":c=320*1024:SYS8,5,a$TO,,,,d:SYS272129,8,dTOg:DIMh g,f d,b c,a 16:SYS8,255,a$,f:!b=c:SYS272129,4,h,f+20,d-20,b+4,c-4:IFMODE=15THEN
   20!a=1:a!4=1:a!8=1:a!12=2:SYS46,308,b,"Screen",0,0,,a
   25ELSE:SYS46,290,b,"Screen",0,0
   30ENDIF
   35*Pointer 1
   40MOUSEON
   45IFMODE=15MOUSERECTANGLE0,0,1279,959
   50TIME=0:REPEAT:MOUSEx,y,z:UNTILz<>0ORTIME>12000:IFzTHENe=(yDIV512)*2+(xDIV640)ELSEe=2
   55IFz=0OR((zAND1)ANDe=2)THENOSCLI("Fx 247,170"):OSCLI("FX 229,1"):OSCLI("FX200,3")
   60CASEeOF
   65WHEN0:*Filer_Run Demos:!Zool
   70WHEN1:*Filer_Run Demos:!StrtWrDem
   75:*Filer_OpenDir Demos:Examples
   80WHEN2:*Filer_Run Demos:!Demo
   85WHEN3:*Filer_Run Demos:!Chuck
   90OTHERWISE:ERROR1,"Program integrity compromised"
   95ENDCASE
  100SYS262383,-1
'�>adfs::afrance.$.dlnew.!.!runimage

:�28:�:�=16*1024*1024
�a$="<APMenu$Dir>.Screen":c=320*1024:ș8,5,a$�,,,,d:ș272129,8,d�g:�h g,f d,b c,a 16:ș8,255,a$,f:!b=c:ș272129,4,h,f+20,d-20,b+4,c-4:��=15�
6!a=1:a!4=1:a!8=1:a!12=2:ș46,308,b,"Screen",0,0,,a
�:ș46,290,b,"Screen",0,0
�
#*Pointer 1
(ȗ�
-��=15ȗȓ0,0,1279,959
2:�=0:�:ȗx,y,z:�z<>0��>12000:�z�e=(y�512)*2+(x�640)�e=2
7?�z=0�((z�1)�e=2)��("Fx 247,170"):�("FX 229,1"):�("FX200,3")
<Ȏe�
A�0:*Filer_Run Demos:!Zool
F"�1:*Filer_Run Demos:!StrtWrDem
K":*Filer_OpenDir Demos:Examples
P�2:*Filer_Run Demos:!Demo
U�3:*Filer_Run Demos:!Chuck
Z(:�1,"Program integrity compromised"
_�
dș262383,-1
�
00000000  0d 00 05 27 f4 3e 61 64  66 73 3a 3a 61 66 72 61  |...'.>adfs::afra|
00000010  6e 63 65 2e 24 2e 64 6c  6e 65 77 2e 21 2e 21 72  |nce.$.dlnew.!.!r|
00000020  75 6e 69 6d 61 67 65 0d  00 0a 19 3a eb 32 38 3a  |unimage....:.28:|
00000030  87 3a e0 3d 31 36 2a 31  30 32 34 2a 31 30 32 34  |.:.=16*1024*1024|
00000040  0d 00 0f 8f 61 24 3d 22  3c 41 50 4d 65 6e 75 24  |....a$="<APMenu$|
00000050  44 69 72 3e 2e 53 63 72  65 65 6e 22 3a 63 3d 33  |Dir>.Screen":c=3|
00000060  32 30 2a 31 30 32 34 3a  c8 99 38 2c 35 2c 61 24  |20*1024:..8,5,a$|
00000070  b8 2c 2c 2c 2c 64 3a c8  99 32 37 32 31 32 39 2c  |.,,,,d:..272129,|
00000080  38 2c 64 b8 67 3a de 68  20 67 2c 66 20 64 2c 62  |8,d.g:.h g,f d,b|
00000090  20 63 2c 61 20 31 36 3a  c8 99 38 2c 32 35 35 2c  | c,a 16:..8,255,|
000000a0  61 24 2c 66 3a 21 62 3d  63 3a c8 99 32 37 32 31  |a$,f:!b=c:..2721|
000000b0  32 39 2c 34 2c 68 2c 66  2b 32 30 2c 64 2d 32 30  |29,4,h,f+20,d-20|
000000c0  2c 62 2b 34 2c 63 2d 34  3a e7 eb 3d 31 35 8c 0d  |,b+4,c-4:..=15..|
000000d0  00 14 36 21 61 3d 31 3a  61 21 34 3d 31 3a 61 21  |..6!a=1:a!4=1:a!|
000000e0  38 3d 31 3a 61 21 31 32  3d 32 3a c8 99 34 36 2c  |8=1:a!12=2:..46,|
000000f0  33 30 38 2c 62 2c 22 53  63 72 65 65 6e 22 2c 30  |308,b,"Screen",0|
00000100  2c 30 2c 2c 61 0d 00 19  1d cc 3a c8 99 34 36 2c  |,0,,a.....:..46,|
00000110  32 39 30 2c 62 2c 22 53  63 72 65 65 6e 22 2c 30  |290,b,"Screen",0|
00000120  2c 30 0d 00 1e 05 cd 0d  00 23 0e 2a 50 6f 69 6e  |,0.......#.*Poin|
00000130  74 65 72 20 31 0d 00 28  07 c8 97 ee 0d 00 2d 19  |ter 1..(......-.|
00000140  e7 eb 3d 31 35 c8 97 c8  93 30 2c 30 2c 31 32 37  |..=15....0,0,127|
00000150  39 2c 39 35 39 0d 00 32  3a d1 3d 30 3a f5 3a c8  |9,959..2:.=0:.:.|
00000160  97 78 2c 79 2c 7a 3a fd  7a 3c 3e 30 84 91 3e 31  |.x,y,z:.z<>0..>1|
00000170  32 30 30 30 3a e7 7a 8c  65 3d 28 79 81 35 31 32  |2000:.z.e=(y.512|
00000180  29 2a 32 2b 28 78 81 36  34 30 29 8b 65 3d 32 0d  |)*2+(x.640).e=2.|
00000190  00 37 3f e7 7a 3d 30 84  28 28 7a 80 31 29 80 65  |.7?.z=0.((z.1).e|
000001a0  3d 32 29 8c ff 28 22 46  78 20 32 34 37 2c 31 37  |=2)..("Fx 247,17|
000001b0  30 22 29 3a ff 28 22 46  58 20 32 32 39 2c 31 22  |0"):.("FX 229,1"|
000001c0  29 3a ff 28 22 46 58 32  30 30 2c 33 22 29 0d 00  |):.("FX200,3")..|
000001d0  3c 08 c8 8e 65 ca 0d 00  41 1d c9 30 3a 2a 46 69  |<...e...A..0:*Fi|
000001e0  6c 65 72 5f 52 75 6e 20  44 65 6d 6f 73 3a 21 5a  |ler_Run Demos:!Z|
000001f0  6f 6f 6c 0d 00 46 22 c9  31 3a 2a 46 69 6c 65 72  |ool..F".1:*Filer|
00000200  5f 52 75 6e 20 44 65 6d  6f 73 3a 21 53 74 72 74  |_Run Demos:!Strt|
00000210  57 72 44 65 6d 0d 00 4b  22 3a 2a 46 69 6c 65 72  |WrDem..K":*Filer|
00000220  5f 4f 70 65 6e 44 69 72  20 44 65 6d 6f 73 3a 45  |_OpenDir Demos:E|
00000230  78 61 6d 70 6c 65 73 0d  00 50 1d c9 32 3a 2a 46  |xamples..P..2:*F|
00000240  69 6c 65 72 5f 52 75 6e  20 44 65 6d 6f 73 3a 21  |iler_Run Demos:!|
00000250  44 65 6d 6f 0d 00 55 1e  c9 33 3a 2a 46 69 6c 65  |Demo..U..3:*File|
00000260  72 5f 52 75 6e 20 44 65  6d 6f 73 3a 21 43 68 75  |r_Run Demos:!Chu|
00000270  63 6b 0d 00 5a 28 7f 3a  85 31 2c 22 50 72 6f 67  |ck..Z(.:.1,"Prog|
00000280  72 61 6d 20 69 6e 74 65  67 72 69 74 79 20 63 6f  |ram integrity co|
00000290  6d 70 72 6f 6d 69 73 65  64 22 0d 00 5f 05 cb 0d  |mpromised".._...|
000002a0  00 64 0f c8 99 32 36 32  33 38 33 2c 2d 31 0d ff  |.d...262383,-1..|
000002b0