Home » Archimedes archive » Acorn User » Acorn User - Updated Shareware Collection (1994).adf » Programs » TaskKill/Actions/ScreenSave
TaskKill/Actions/ScreenSave
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 - Updated Shareware Collection (1994).adf » Programs |
| Filename: | TaskKill/Actions/ScreenSave |
| Read OK: | ✔ |
| File size: | 0118 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| Defines ALT + keypad * to save the current screen into the scrap | directory as 'Screenx', x being a number that is incremented each | time SetEval Screen%Number 0 Set Alias$TaskKillAction SetEval Screen%Number Screen%Number+1|mScreenSave <Wimp$ScrapDir>.Screen|<Screen%Number>
00000000 7c 20 44 65 66 69 6e 65 73 20 41 4c 54 20 2b 20 || Defines ALT + | 00000010 6b 65 79 70 61 64 20 2a 20 74 6f 20 73 61 76 65 |keypad * to save| 00000020 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 63 72 | the current scr| 00000030 65 65 6e 20 69 6e 74 6f 20 74 68 65 20 73 63 72 |een into the scr| 00000040 61 70 0a 7c 20 64 69 72 65 63 74 6f 72 79 20 61 |ap.| directory a| 00000050 73 20 27 53 63 72 65 65 6e 78 27 2c 20 78 20 62 |s 'Screenx', x b| 00000060 65 69 6e 67 20 61 20 6e 75 6d 62 65 72 20 74 68 |eing a number th| 00000070 61 74 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 |at is incremente| 00000080 64 20 65 61 63 68 0a 7c 20 74 69 6d 65 0a 0a 53 |d each.| time..S| 00000090 65 74 45 76 61 6c 20 53 63 72 65 65 6e 25 4e 75 |etEval Screen%Nu| 000000a0 6d 62 65 72 20 30 0a 53 65 74 20 41 6c 69 61 73 |mber 0.Set Alias| 000000b0 24 54 61 73 6b 4b 69 6c 6c 41 63 74 69 6f 6e 20 |$TaskKillAction | 000000c0 53 65 74 45 76 61 6c 20 53 63 72 65 65 6e 25 4e |SetEval Screen%N| 000000d0 75 6d 62 65 72 20 53 63 72 65 65 6e 25 4e 75 6d |umber Screen%Num| 000000e0 62 65 72 2b 31 7c 6d 53 63 72 65 65 6e 53 61 76 |ber+1|mScreenSav| 000000f0 65 20 3c 57 69 6d 70 24 53 63 72 61 70 44 69 72 |e <Wimp$ScrapDir| 00000100 3e 2e 53 63 72 65 65 6e 7c 3c 53 63 72 65 65 6e |>.Screen|<Screen| 00000110 25 4e 75 6d 62 65 72 3e |%Number>| 00000118
.