/* File Löschen-Macro */
/* delete file macro */

options results

/* TextPlus ist unser host */
/* TextPlus is our host */

address 'TextPlus'

/* hole den filenamen */
/* get the filename */

'GetName'

/* und lösche das File von der Diskette - vorrausgesetzt es existiert C:Delete */
/* and delete the file from disk - provided C:Delete exists */

'Execute' 'C:Delete' result

/* tell user what happened */

if rc > 0 then 'Display' 'File has been deleted!'
          else 'Display' 'Error while deleting!'