>ScrapLib
 -----------------------------------------------------------------------
 ScrapFile Handling Routines
 -----------------------------------------------------------------------
 Module Global Variables (do not use outside this module!)
   None
$*|Start PROCshell_ScrapCreateDir
shell_ScrapCreateDir( app_name$ )
 If Scrap directory already exists then delete it, then create
 it again...
shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
( "Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V" )
( "CDir <Wimp$ScrapDir>." + app_name$ )
#*|Stop PROCshell_ScrapCreateDir
$*|Start PROCshell_ScrapRemoveDir
shell_ScrapRemoveDir( app_name$ )
 Now tidy up again by deleting the scrap directory
shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
("Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V")
*#*|Stop PROCshell_ScrapRemoveDir