| !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>
