Home » Archimedes archive » Acorn User » Acorn User - PD Pack 4.adf » Miasma » !Miasma/!Runimage
!Miasma/!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 » Acorn User - PD Pack 4.adf » Miasma |
| Filename: | !Miasma/!Runimage |
| Read OK: | ✔ |
| File size: | 02A2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>ADFS::Harddisc4.$.Images.Pinboard.!Miasma.!Runimage squished by MH's BASIC cruncher v1.30 16/9/89 On 30 Aug 1996
2ONERRORMODE0:PRINTREPORT$;" at line ";ERL:END
20DIMb 128:b$="<Miasma$Dir>.NUM":OSCLI"LOAD "+b$+" "+STR$~b:f%=b!0:g%=b!4:a=RND(-f%):f%=RND(&989680):b!0=f%:DIMd% 900:SYS"OS_GBPB",9,"<miasmapics$Dir>",d%,77,0,900,"*"TO,,,e%:IFe%=0THENEND
240REPEAT:a%=RND(e%):a%=a%-1:IFe%=1THENa%=0
320UNTILe%=1ORa%<>g%:g%=a%:b!4=g%:b%=0:IFa%>0PROCa
410c$="":a$=CHR$(d%?b%):REPEAT:c%=(d%?b%):IFc%<>0THENc$=c$+CHR$(c%)
500b%=b%+1:h%=h%+1:UNTILc%=0:IFa$<>"C"ANDa$<>"S"ANDa$<>"T"ANDa$<>"c"ANDa$<>"s"ANDa$<>"t"THENa$="C"
560OSCLI"BACKDROP -"+a$+" <MiasmaPics$Dir>."+c$:b$="<Miasma$Dir>.NUM":OSCLI"SAVE "+b$+" "+STR$~b+"+"+STR$~(8):END
640DEFPROCa:REPEAT:c%=(d%?b%):IFc%=0a%=a%-1
700b%=b%+1:UNTILa%=0:ENDPROC
v�>ADFS::Harddisc4.$.Images.Pinboard.!Miasma.!Runimage squished by MH's BASIC cruncher v1.30 16/9/89 On 30 Aug 1996 ��0:�$;" at line ";�:� ��b 128:b$="<Miasma$Dir>.NUM":�"LOAD "+b$+" "+�~b:f%=b!0:g%=b!4:a=�(-f%):f%=�(&989680):b!0=f%:�d% 900:ș"OS_GBPB",9,"<miasmapics$Dir>",d%,77,0,900,"*"�,,,e%:�e%=0�� �!�:a%=�(e%):a%=a%-1:�e%=1�a%=0 @*�e%=1�a%<>g%:g%=a%:b!4=g%:b%=0:�a%>0�a �5c$="":a$=�(d%?b%):�:c%=(d%?b%):�c%<>0�c$=c$+�(c%) �Qb%=b%+1:h%=h%+1:�c%=0:�a$<>"C"�a$<>"S"�a$<>"T"�a$<>"c"�a$<>"s"�a$<>"t"�a$="C" 0b�"BACKDROP -"+a$+" <MiasmaPics$Dir>."+c$:b$="<Miasma$Dir>.NUM":�"SAVE "+b$+" "+�~b+"+"+�~(8):� �!��a:�:c%=(d%?b%):�c%=0a%=a%-1 �b%=b%+1:�a%=0:� �
00000000 0d 00 01 76 f4 3e 41 44 46 53 3a 3a 48 61 72 64 |...v.>ADFS::Hard| 00000010 64 69 73 63 34 2e 24 2e 49 6d 61 67 65 73 2e 50 |disc4.$.Images.P| 00000020 69 6e 62 6f 61 72 64 2e 21 4d 69 61 73 6d 61 2e |inboard.!Miasma.| 00000030 21 52 75 6e 69 6d 61 67 65 20 73 71 75 69 73 68 |!Runimage squish| 00000040 65 64 20 62 79 20 4d 48 27 73 20 42 41 53 49 43 |ed by MH's BASIC| 00000050 20 63 72 75 6e 63 68 65 72 20 76 31 2e 33 30 20 | cruncher v1.30 | 00000060 31 36 2f 39 2f 38 39 20 4f 6e 20 33 30 20 41 75 |16/9/89 On 30 Au| 00000070 67 20 31 39 39 36 0d 00 02 1c ee 85 eb 30 3a f1 |g 1996.......0:.| 00000080 f6 24 3b 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e |.$;" at line ";.| 00000090 3a e0 0d 00 14 a7 de 62 20 31 32 38 3a 62 24 3d |:......b 128:b$=| 000000a0 22 3c 4d 69 61 73 6d 61 24 44 69 72 3e 2e 4e 55 |"<Miasma$Dir>.NU| 000000b0 4d 22 3a ff 22 4c 4f 41 44 20 22 2b 62 24 2b 22 |M":."LOAD "+b$+"| 000000c0 20 22 2b c3 7e 62 3a 66 25 3d 62 21 30 3a 67 25 | "+.~b:f%=b!0:g%| 000000d0 3d 62 21 34 3a 61 3d b3 28 2d 66 25 29 3a 66 25 |=b!4:a=.(-f%):f%| 000000e0 3d b3 28 26 39 38 39 36 38 30 29 3a 62 21 30 3d |=.(&989680):b!0=| 000000f0 66 25 3a de 64 25 20 39 30 30 3a c8 99 22 4f 53 |f%:.d% 900:.."OS| 00000100 5f 47 42 50 42 22 2c 39 2c 22 3c 6d 69 61 73 6d |_GBPB",9,"<miasm| 00000110 61 70 69 63 73 24 44 69 72 3e 22 2c 64 25 2c 37 |apics$Dir>",d%,7| 00000120 37 2c 30 2c 39 30 30 2c 22 2a 22 b8 2c 2c 2c 65 |7,0,900,"*".,,,e| 00000130 25 3a e7 65 25 3d 30 8c e0 0d 00 f0 21 f5 3a 61 |%:.e%=0.....!.:a| 00000140 25 3d b3 28 65 25 29 3a 61 25 3d 61 25 2d 31 3a |%=.(e%):a%=a%-1:| 00000150 e7 65 25 3d 31 8c 61 25 3d 30 0d 01 40 2a fd 65 |.e%=1.a%=0..@*.e| 00000160 25 3d 31 84 61 25 3c 3e 67 25 3a 67 25 3d 61 25 |%=1.a%<>g%:g%=a%| 00000170 3a 62 21 34 3d 67 25 3a 62 25 3d 30 3a e7 61 25 |:b!4=g%:b%=0:.a%| 00000180 3e 30 f2 61 0d 01 9a 35 63 24 3d 22 22 3a 61 24 |>0.a...5c$="":a$| 00000190 3d bd 28 64 25 3f 62 25 29 3a f5 3a 63 25 3d 28 |=.(d%?b%):.:c%=(| 000001a0 64 25 3f 62 25 29 3a e7 63 25 3c 3e 30 8c 63 24 |d%?b%):.c%<>0.c$| 000001b0 3d 63 24 2b bd 28 63 25 29 0d 01 f4 51 62 25 3d |=c$+.(c%)...Qb%=| 000001c0 62 25 2b 31 3a 68 25 3d 68 25 2b 31 3a fd 63 25 |b%+1:h%=h%+1:.c%| 000001d0 3d 30 3a e7 61 24 3c 3e 22 43 22 80 61 24 3c 3e |=0:.a$<>"C".a$<>| 000001e0 22 53 22 80 61 24 3c 3e 22 54 22 80 61 24 3c 3e |"S".a$<>"T".a$<>| 000001f0 22 63 22 80 61 24 3c 3e 22 73 22 80 61 24 3c 3e |"c".a$<>"s".a$<>| 00000200 22 74 22 8c 61 24 3d 22 43 22 0d 02 30 62 ff 22 |"t".a$="C"..0b."| 00000210 42 41 43 4b 44 52 4f 50 20 2d 22 2b 61 24 2b 22 |BACKDROP -"+a$+"| 00000220 20 3c 4d 69 61 73 6d 61 50 69 63 73 24 44 69 72 | <MiasmaPics$Dir| 00000230 3e 2e 22 2b 63 24 3a 62 24 3d 22 3c 4d 69 61 73 |>."+c$:b$="<Mias| 00000240 6d 61 24 44 69 72 3e 2e 4e 55 4d 22 3a ff 22 53 |ma$Dir>.NUM":."S| 00000250 41 56 45 20 22 2b 62 24 2b 22 20 22 2b c3 7e 62 |AVE "+b$+" "+.~b| 00000260 2b 22 2b 22 2b c3 7e 28 38 29 3a e0 0d 02 80 21 |+"+"+.~(8):....!| 00000270 dd f2 61 3a f5 3a 63 25 3d 28 64 25 3f 62 25 29 |..a:.:c%=(d%?b%)| 00000280 3a e7 63 25 3d 30 61 25 3d 61 25 2d 31 0d 02 bc |:.c%=0a%=a%-1...| 00000290 13 62 25 3d 62 25 2b 31 3a fd 61 25 3d 30 3a e1 |.b%=b%+1:.a%=0:.| 000002a0 0d ff |..| 000002a2
.