home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / am4pm08f.zip / delete.amc < prev    next >
Text File  |  1993-06-14  |  1KB  |  19 lines
  1. /*********************************************************************/
  2. /* DELETE.AMC - Delete a message                                     */
  3. /*                                                                   *//* This program is called by AM4PM.EXE when the user wants to delete */
  4. /* a message selected from the listbox.                              */
  5. /*                                                                   */
  6. /* Input:  The name of the file to delete                            */
  7. /*                                                                   *//* Output: 0  Normal                                                 */
  8. /*         1  Reread directory                                       */
  9. /*                                                                   *//*********************************************************************/
  10. CALL AMDPrint 'DELETE.AMC('arg(1)') started'
  11. CALL AMSetLastEventText 'Delete'
  12. /* CALL AMSetStateText 'Deleting message' */
  13.  
  14. 'del' arg(1)
  15. if \ (rc = 0) then
  16.    return 1
  17.  
  18. Exit 0
  19.