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