home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / HPHONE.CTL < prev    next >
Encoding:
Text File  |  1992-08-14  |  395 b   |  17 lines
  1. Say(What is your new &11&home &3&phone number?&15&)
  2. Picture(###-###-####)
  3. seekfile(phones.dat,%RESP%)
  4. iftrue(goto (dp))
  5. SetEqual(/PHONE=%RESP%)
  6. appendto(phones.dat,%RESP%)
  7. Log(--,Changed Phone # to %RESP%)
  8. return
  9.  
  10. *dp
  11. log(!!,User attempted to change phone)
  12. log(!!,number to %RESP%, but is)
  13. log(!!,an existing phone number!)
  14. say(&CR&&14&Invalid Phone number!&7&&CR&)
  15. enter
  16. return
  17.