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