home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / DELTCOST.PRG < prev    next >
Text File  |  1985-11-15  |  268b  |  17 lines
  1. *****   Program:  DELTCOST.PRG   *****
  2. * DELETE AN EXISTING ACCOUNT
  3. set talk off
  4. set echo off
  5. USE COSTS
  6. DO FINDITEM
  7. IF .NOT. ITEMFOUND
  8.    RETURN
  9. ELSE
  10.    DELETE
  11.    PACK
  12.    @ 10,1 SAY "            THE COST ITEM HAS BEEN DELETED"
  13.    RETURN
  14. ENDIF
  15. RETURN
  16.  
  17.