Home » Personal collection » Acorn hard disk » apps » !Squirrel » Engines/!DDE/SetWScrap
Engines/!DDE/SetWScrap
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 » Personal collection » Acorn hard disk » apps » !Squirrel |
| Filename: | Engines/!DDE/SetWScrap |
| Read OK: | ✔ |
| File size: | 01FD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !DDE.SetWScrap | (c) 29/06/1991 Digital Services Ltd set alias$Squirrel_trunc Squirrel_dec Squirrel$x|mseteval Squirrel$w "<wimp$scrap>" LEFT |<Squirrel$x>|mif "|<Squirrel$w>" RIGHT 1 |<> "." then Squirrel_trunc set alias$Squirrel_dec seteval %%0 %%0-1 seteval Squirrel$x LEN "<wimp$scrap>" Squirrel_trunc Squirrel_dec Squirrel$x seteval Wimp$ScrapDir "<wimp$scrap>" LEFT <Squirrel$x> + ".ScrapDir" unset alias$Squirrel_trunc unset alias$Squirrel_dec unset Squirrel$x unset Squirrel$w cdir <Wimp$ScrapDir>
00000000 7c 20 21 44 44 45 2e 53 65 74 57 53 63 72 61 70 || !DDE.SetWScrap| 00000010 0a 7c 20 28 63 29 20 32 39 2f 30 36 2f 31 39 39 |.| (c) 29/06/199| 00000020 31 20 44 69 67 69 74 61 6c 20 53 65 72 76 69 63 |1 Digital Servic| 00000030 65 73 20 4c 74 64 0a 0a 73 65 74 20 61 6c 69 61 |es Ltd..set alia| 00000040 73 24 53 71 75 69 72 72 65 6c 5f 74 72 75 6e 63 |s$Squirrel_trunc| 00000050 20 53 71 75 69 72 72 65 6c 5f 64 65 63 20 53 71 | Squirrel_dec Sq| 00000060 75 69 72 72 65 6c 24 78 7c 6d 73 65 74 65 76 61 |uirrel$x|mseteva| 00000070 6c 20 53 71 75 69 72 72 65 6c 24 77 20 22 3c 77 |l Squirrel$w "<w| 00000080 69 6d 70 24 73 63 72 61 70 3e 22 20 4c 45 46 54 |imp$scrap>" LEFT| 00000090 20 7c 3c 53 71 75 69 72 72 65 6c 24 78 3e 7c 6d | |<Squirrel$x>|m| 000000a0 69 66 20 22 7c 3c 53 71 75 69 72 72 65 6c 24 77 |if "|<Squirrel$w| 000000b0 3e 22 20 52 49 47 48 54 20 31 20 7c 3c 3e 20 22 |>" RIGHT 1 |<> "| 000000c0 2e 22 20 74 68 65 6e 20 53 71 75 69 72 72 65 6c |." then Squirrel| 000000d0 5f 74 72 75 6e 63 0a 73 65 74 20 61 6c 69 61 73 |_trunc.set alias| 000000e0 24 53 71 75 69 72 72 65 6c 5f 64 65 63 20 73 65 |$Squirrel_dec se| 000000f0 74 65 76 61 6c 20 25 25 30 20 25 25 30 2d 31 0a |teval %%0 %%0-1.| 00000100 73 65 74 65 76 61 6c 20 53 71 75 69 72 72 65 6c |seteval Squirrel| 00000110 24 78 20 4c 45 4e 20 22 3c 77 69 6d 70 24 73 63 |$x LEN "<wimp$sc| 00000120 72 61 70 3e 22 0a 53 71 75 69 72 72 65 6c 5f 74 |rap>".Squirrel_t| 00000130 72 75 6e 63 0a 53 71 75 69 72 72 65 6c 5f 64 65 |runc.Squirrel_de| 00000140 63 20 53 71 75 69 72 72 65 6c 24 78 0a 73 65 74 |c Squirrel$x.set| 00000150 65 76 61 6c 20 57 69 6d 70 24 53 63 72 61 70 44 |eval Wimp$ScrapD| 00000160 69 72 20 22 3c 77 69 6d 70 24 73 63 72 61 70 3e |ir "<wimp$scrap>| 00000170 22 20 4c 45 46 54 20 3c 53 71 75 69 72 72 65 6c |" LEFT <Squirrel| 00000180 24 78 3e 20 2b 20 22 2e 53 63 72 61 70 44 69 72 |$x> + ".ScrapDir| 00000190 22 0a 75 6e 73 65 74 20 61 6c 69 61 73 24 53 71 |".unset alias$Sq| 000001a0 75 69 72 72 65 6c 5f 74 72 75 6e 63 0a 75 6e 73 |uirrel_trunc.uns| 000001b0 65 74 20 61 6c 69 61 73 24 53 71 75 69 72 72 65 |et alias$Squirre| 000001c0 6c 5f 64 65 63 0a 75 6e 73 65 74 20 53 71 75 69 |l_dec.unset Squi| 000001d0 72 72 65 6c 24 78 0a 75 6e 73 65 74 20 53 71 75 |rrel$x.unset Squ| 000001e0 69 72 72 65 6c 24 77 0a 63 64 69 72 20 3c 57 69 |irrel$w.cdir <Wi| 000001f0 6d 70 24 53 63 72 61 70 44 69 72 3e 0a |mp$ScrapDir>.| 000001fd
.