home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / AUTOVAL4.ZIP / AVBAD.SUB < prev    next >
Text File  |  1992-02-27  |  655b  |  16 lines
  1. SUB avbad (t$)
  2.                 f$ = systxtp$ + "avbadph.msg"
  3.                 buclr
  4.                 buload f$
  5.                 d1.fromn = node
  6.                 d1.from = CINT(User)
  7.                 d1.froms = RTRIM$(u1.handle)
  8.                 setemail
  9.                 savedb 1, node, "Phone # Added to Bad Phone List", 0, "", 0, 0
  10.                 buclr
  11.                 OPEN "phones.dat" FOR APPEND AS 20
  12.                 PRINT #20, RTRIM$(u1.ph2) + "     Autoval Added #, " + t$ + " on User '" + RTRIM$(u1.handle) + "'"
  13.                 PRINT #20, "                 Real Name  (" + RTRIM$(u1.nm) + ")   " + DATE$
  14.                 CLOSE 20
  15. END SUB
  16.