home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / DELTACCT.PRG < prev    next >
Text File  |  1987-01-27  |  255b  |  16 lines
  1. *****   Program:  DELtACCT.PRG   *****
  2. * DELETE AN EXISTING ACCOUNT
  3. set talk off
  4. set echo off
  5. DO FINDACCT
  6. IF .NOT. ACCTFOUND
  7.    RETURN
  8. ELSE
  9.    DELETE
  10.    PACK
  11.    @ 10,1 SAY "            THE ACCOUNT HAS BEEN DELETED"
  12.    RETURN
  13. ENDIF
  14. RETURN
  15.  
  16.