home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3PLSAR.ARC / NAMECHG.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  999 b   |  46 lines
  1. ********************(NAMECHG.PRG)
  2. CLEA
  3. STORE '                              ' TO MTITLE
  4. STORE '                              ' TO MADD1
  5. STORE '                              ' TO MADD2
  6. STORE '               ' TO MPHONE
  7. STORE ' ' TO OPTION
  8. @ 13,18 SAY 'Do you want to change the name or address?'
  9. ?
  10. WAIT '                                     ' TO OPTION
  11. IF OPTION<>'Y'
  12.    CLEA
  13.    @ 15,20 SAY 'Press F9 key to return to main menu...'
  14.    RETURN
  15. ENDIF
  16. CLEA
  17. @ 1,10 SAY 'New name ' GET MTITLE
  18. READ
  19. STORE TRIM(MTITLE) TO MTITLE
  20. SAVE TO MTITLE
  21. @ 3,0 CLEA
  22. @ 3,10 SAY 'Street address ' GET MADD1
  23. READ
  24. STORE TRIM(MADD1) TO MADD1
  25. SAVE TO MADD1
  26. @ 5,0 CLEA
  27. @ 5,10 SAY 'City,State,zip ' GET madd2
  28. READ
  29. STORE TRIM(MADD2) TO MADD2
  30. SAVE TO MADD2
  31. @ 7,0 CLEA
  32. @ 7,10 SAY 'Phone ' GET MPHONE
  33. READ
  34. STORE TRIM(MPHONE) TO MPHONE
  35. SAVE TO MPHONE
  36. CLEA
  37. @ 5,0 SAY MTITLE
  38. @ 7,0 SAY MADD1
  39. @ 9,0 SAY MADD2
  40. @ 11,0 SAY MPHONE
  41. ?
  42. ?
  43. WAIT
  44. clea
  45. @ 15,15 SAY 'Press F9 to return to main menu...'
  46.