Home » Archimedes archive » Acorn User » AU 1997-12.adf » TinyArt » !TinyDemo/!Run
!TinyDemo/!Run
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-12.adf » TinyArt |
| Filename: | !TinyDemo/!Run |
| Read OK: | ✔ |
| File size: | 025D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !TinyArt | Written by Charles Baylis for Topologika | (c) 1997 Charles Baylis and Topologika Iconsprites <Obey$Dir>.!Sprites Set TinyArt$Dir <Obey$Dir> Set TinyChoice$Dir <Obey$Dir> Set TinyArtRes$Dir <Obey$Dir> Set TinyArtStamp$Dir <Obey$Dir> Set TinyArt$SaveDir <Obey$Dir>.Saved Set TinyArtRes$Scale 1 if "%0" <> "-taload" then unset TinyArt$File RmEnsure UtilityModule 3.10 ERROR TinyArt needs RISC OS 3. RmEnsure DrawFile 0.00 RmLoad <TinyArt$Dir>.Resources.DrawFile |TinyArt needs at least 384k when in full flow WimpSlot -min 384k WimpSlot -min 160K -max 160K Run <TinyArt$Dir>.!RunImage TinyArt
00000000 7c 20 21 54 69 6e 79 41 72 74 0a 7c 20 57 72 69 || !TinyArt.| Wri| 00000010 74 74 65 6e 20 62 79 20 43 68 61 72 6c 65 73 20 |tten by Charles | 00000020 42 61 79 6c 69 73 20 66 6f 72 20 54 6f 70 6f 6c |Baylis for Topol| 00000030 6f 67 69 6b 61 0a 7c 20 28 63 29 20 31 39 39 37 |ogika.| (c) 1997| 00000040 20 43 68 61 72 6c 65 73 20 42 61 79 6c 69 73 20 | Charles Baylis | 00000050 61 6e 64 20 54 6f 70 6f 6c 6f 67 69 6b 61 0a 0a |and Topologika..| 00000060 49 63 6f 6e 73 70 72 69 74 65 73 20 3c 4f 62 65 |Iconsprites <Obe| 00000070 79 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 0a |y$Dir>.!Sprites.| 00000080 53 65 74 20 54 69 6e 79 41 72 74 24 44 69 72 20 |Set TinyArt$Dir | 00000090 3c 4f 62 65 79 24 44 69 72 3e 0a 53 65 74 20 54 |<Obey$Dir>.Set T| 000000a0 69 6e 79 43 68 6f 69 63 65 24 44 69 72 20 3c 4f |inyChoice$Dir <O| 000000b0 62 65 79 24 44 69 72 3e 0a 53 65 74 20 54 69 6e |bey$Dir>.Set Tin| 000000c0 79 41 72 74 52 65 73 24 44 69 72 20 3c 4f 62 65 |yArtRes$Dir <Obe| 000000d0 79 24 44 69 72 3e 0a 53 65 74 20 54 69 6e 79 41 |y$Dir>.Set TinyA| 000000e0 72 74 53 74 61 6d 70 24 44 69 72 20 3c 4f 62 65 |rtStamp$Dir <Obe| 000000f0 79 24 44 69 72 3e 0a 53 65 74 20 54 69 6e 79 41 |y$Dir>.Set TinyA| 00000100 72 74 24 53 61 76 65 44 69 72 20 3c 4f 62 65 79 |rt$SaveDir <Obey| 00000110 24 44 69 72 3e 2e 53 61 76 65 64 0a 53 65 74 20 |$Dir>.Saved.Set | 00000120 54 69 6e 79 41 72 74 52 65 73 24 53 63 61 6c 65 |TinyArtRes$Scale| 00000130 20 31 0a 0a 69 66 20 22 25 30 22 20 3c 3e 20 22 | 1..if "%0" <> "| 00000140 2d 74 61 6c 6f 61 64 22 20 74 68 65 6e 20 75 6e |-taload" then un| 00000150 73 65 74 20 54 69 6e 79 41 72 74 24 46 69 6c 65 |set TinyArt$File| 00000160 0a 52 6d 45 6e 73 75 72 65 20 55 74 69 6c 69 74 |.RmEnsure Utilit| 00000170 79 4d 6f 64 75 6c 65 20 33 2e 31 30 20 45 52 52 |yModule 3.10 ERR| 00000180 4f 52 20 54 69 6e 79 41 72 74 20 6e 65 65 64 73 |OR TinyArt needs| 00000190 20 52 49 53 43 20 4f 53 20 33 2e 0a 52 6d 45 6e | RISC OS 3..RmEn| 000001a0 73 75 72 65 20 44 72 61 77 46 69 6c 65 20 30 2e |sure DrawFile 0.| 000001b0 30 30 20 52 6d 4c 6f 61 64 20 3c 54 69 6e 79 41 |00 RmLoad <TinyA| 000001c0 72 74 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 |rt$Dir>.Resource| 000001d0 73 2e 44 72 61 77 46 69 6c 65 0a 7c 54 69 6e 79 |s.DrawFile.|Tiny| 000001e0 41 72 74 20 6e 65 65 64 73 20 61 74 20 6c 65 61 |Art needs at lea| 000001f0 73 74 20 33 38 34 6b 20 77 68 65 6e 20 69 6e 20 |st 384k when in | 00000200 66 75 6c 6c 20 66 6c 6f 77 0a 57 69 6d 70 53 6c |full flow.WimpSl| 00000210 6f 74 20 2d 6d 69 6e 20 33 38 34 6b 0a 57 69 6d |ot -min 384k.Wim| 00000220 70 53 6c 6f 74 20 2d 6d 69 6e 20 31 36 30 4b 20 |pSlot -min 160K | 00000230 2d 6d 61 78 20 31 36 30 4b 0a 52 75 6e 20 3c 54 |-max 160K.Run <T| 00000240 69 6e 79 41 72 74 24 44 69 72 3e 2e 21 52 75 6e |inyArt$Dir>.!Run| 00000250 49 6d 61 67 65 20 54 69 6e 79 41 72 74 |Image TinyArt| 0000025d
.