Home » Archimedes archive » Micro User » MU 1991-06.adf » PD-Stuff » Utilities/!ScrollTxt/!RunImage
Utilities/!ScrollTxt/!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 » Micro User » MU 1991-06.adf » PD-Stuff |
| Filename: | Utilities/!ScrollTxt/!RunImage |
| Read OK: | ✔ |
| File size: | 0169 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!RunImage 20*SCROLLFILE <Obey$Dir>.Scroll 30MODE 13 40s=1 50*SCROLLON 60ONERRORPROCerror 70REPEAT 80*SCROLLCHECK 90GCOL0,RND(128) 100x=RND(1279):y=RND(1024-300)+300:r=RND(100)+50 110CASE s OF 120WHEN 1:CIRCLEFILL x,y,r 130GCOL0,0:CIRCLE x,y,r 140WHEN 2:RECTANGLEFILL x,y-150,r,r 150GCOL0,0:RECTANGLE x,y-150,r,r 160ENDCASE 170UNTIL FALSE 180END 190DEFPROCerror 200IF ERR<>&FD THEN PROCend 210IF s=1 THEN s=2 ELSE s=1 220ENDPROC 230DEFPROCend 240*SCROLLOFF 250END
� >!RunImage !*SCROLLFILE <Obey$Dir>.Scroll � 13 (s=1 2 *SCROLLON < ��error F� P*SCROLLCHECK Z �0,�(128) d+x=�(1279):y=�(1024-300)+300:r=�(100)+50 n Ȏ s � x� 1:ȏȐ x,y,r ��0,0:ȏ x,y,r �� 2:ȓȐ x,y-150,r,r ��0,0:ȓ x,y-150,r,r �� �� � �� � ��error �� �<>&FD � �end �� s=1 � s=2 � s=1 �� � ��end �*SCROLLOFF �� �
00000000 0d 00 0a 10 f4 20 3e 21 52 75 6e 49 6d 61 67 65 |..... >!RunImage| 00000010 0d 00 14 21 2a 53 43 52 4f 4c 4c 46 49 4c 45 20 |...!*SCROLLFILE | 00000020 3c 4f 62 65 79 24 44 69 72 3e 2e 53 63 72 6f 6c |<Obey$Dir>.Scrol| 00000030 6c 0d 00 1e 08 eb 20 31 33 0d 00 28 07 73 3d 31 |l..... 13..(.s=1| 00000040 0d 00 32 0d 2a 53 43 52 4f 4c 4c 4f 4e 0d 00 3c |..2.*SCROLLON..<| 00000050 0c ee 85 f2 65 72 72 6f 72 0d 00 46 05 f5 0d 00 |....error..F....| 00000060 50 10 2a 53 43 52 4f 4c 4c 43 48 45 43 4b 0d 00 |P.*SCROLLCHECK..| 00000070 5a 0d e6 30 2c b3 28 31 32 38 29 0d 00 64 2b 78 |Z..0,.(128)..d+x| 00000080 3d b3 28 31 32 37 39 29 3a 79 3d b3 28 31 30 32 |=.(1279):y=.(102| 00000090 34 2d 33 30 30 29 2b 33 30 30 3a 72 3d b3 28 31 |4-300)+300:r=.(1| 000000a0 30 30 29 2b 35 30 0d 00 6e 0a c8 8e 20 73 20 ca |00)+50..n... s .| 000000b0 0d 00 78 12 c9 20 31 3a c8 8f c8 90 20 78 2c 79 |..x.. 1:.... x,y| 000000c0 2c 72 0d 00 82 11 e6 30 2c 30 3a c8 8f 20 78 2c |,r.....0,0:.. x,| 000000d0 79 2c 72 0d 00 8c 18 c9 20 32 3a c8 93 c8 90 20 |y,r..... 2:.... | 000000e0 78 2c 79 2d 31 35 30 2c 72 2c 72 0d 00 96 17 e6 |x,y-150,r,r.....| 000000f0 30 2c 30 3a c8 93 20 78 2c 79 2d 31 35 30 2c 72 |0,0:.. x,y-150,r| 00000100 2c 72 0d 00 a0 05 cb 0d 00 aa 07 fd 20 a3 0d 00 |,r.......... ...| 00000110 b4 05 e0 0d 00 be 0b dd f2 65 72 72 6f 72 0d 00 |.........error..| 00000120 c8 13 e7 20 9f 3c 3e 26 46 44 20 8c 20 f2 65 6e |... .<>&FD . .en| 00000130 64 0d 00 d2 15 e7 20 73 3d 31 20 8c 20 73 3d 32 |d..... s=1 . s=2| 00000140 20 8b 20 73 3d 31 0d 00 dc 05 e1 0d 00 e6 09 dd | . s=1..........| 00000150 f2 65 6e 64 0d 00 f0 0e 2a 53 43 52 4f 4c 4c 4f |.end....*SCROLLO| 00000160 46 46 0d 00 fa 05 e0 0d ff |FF.......| 00000169
.