Home » Archimedes archive » Acorn User » AU 1998-10.adf » Features » DesktopPD/WimpBar2/!WimpBar2/Macros/AddSprite
DesktopPD/WimpBar2/!WimpBar2/Macros/AddSprite
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 1998-10.adf » Features |
| Filename: | DesktopPD/WimpBar2/!WimpBar2/Macros/AddSprite |
| Read OK: | ✔ |
| File size: | 0141 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| | A macro to turn Addsprites off, load a sprite file, | then set it back to its previous state. Handy if you | you use Addsprites. Not so handy if you don't. | Set AddSprites$Previous <AddSprites$Control> Set AddSprites$Control Off IconSprites %0 Set AddSprites$Control <AddSprites$Previous> Unset AddSprites$Previous
00000000 7c 0a 7c 20 41 20 6d 61 63 72 6f 20 74 6f 20 74 ||.| A macro to t| 00000010 75 72 6e 20 41 64 64 73 70 72 69 74 65 73 20 6f |urn Addsprites o| 00000020 66 66 2c 20 6c 6f 61 64 20 61 20 73 70 72 69 74 |ff, load a sprit| 00000030 65 20 66 69 6c 65 2c 0a 7c 20 74 68 65 6e 20 73 |e file,.| then s| 00000040 65 74 20 69 74 20 62 61 63 6b 20 74 6f 20 69 74 |et it back to it| 00000050 73 20 70 72 65 76 69 6f 75 73 20 73 74 61 74 65 |s previous state| 00000060 2e 20 48 61 6e 64 79 20 69 66 20 79 6f 75 0a 7c |. Handy if you.|| 00000070 20 79 6f 75 20 75 73 65 20 41 64 64 73 70 72 69 | you use Addspri| 00000080 74 65 73 2e 20 4e 6f 74 20 73 6f 20 68 61 6e 64 |tes. Not so hand| 00000090 79 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 2e 0a |y if you don't..| 000000a0 7c 0a 53 65 74 20 41 64 64 53 70 72 69 74 65 73 ||.Set AddSprites| 000000b0 24 50 72 65 76 69 6f 75 73 20 3c 41 64 64 53 70 |$Previous <AddSp| 000000c0 72 69 74 65 73 24 43 6f 6e 74 72 6f 6c 3e 0a 0a |rites$Control>..| 000000d0 53 65 74 20 41 64 64 53 70 72 69 74 65 73 24 43 |Set AddSprites$C| 000000e0 6f 6e 74 72 6f 6c 20 4f 66 66 0a 49 63 6f 6e 53 |ontrol Off.IconS| 000000f0 70 72 69 74 65 73 20 25 30 0a 0a 53 65 74 20 41 |prites %0..Set A| 00000100 64 64 53 70 72 69 74 65 73 24 43 6f 6e 74 72 6f |ddSprites$Contro| 00000110 6c 20 3c 41 64 64 53 70 72 69 74 65 73 24 50 72 |l <AddSprites$Pr| 00000120 65 76 69 6f 75 73 3e 0a 55 6e 73 65 74 20 41 64 |evious>.Unset Ad| 00000130 64 53 70 72 69 74 65 73 24 50 72 65 76 69 6f 75 |dSprites$Previou| 00000140 73 |s| 00000141
.