home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
namechg.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
1KB
|
46 lines
********************(NAMECHG.PRG)--JAY KENNEY
CLEA
STORE ' ' TO MTITLE
STORE ' ' TO MADD1
STORE ' ' TO MADD2
STORE ' ' TO MPHONE
STORE ' ' TO OPTION
@ 13,18 SAY 'Do you want to change the name or address?'
?
WAIT ' ' TO OPTION
IF OPTION<>'Y'
CLEA
@ 15,20 SAY 'Press F9 key to return to main menu...'
RETURN
ENDIF
CLEA
@ 1,10 SAY 'New name ' GET MTITLE
READ
STORE TRIM(MTITLE) TO MTITLE
SAVE TO MTITLE
@ 3,0 CLEA
@ 3,10 SAY 'Street address ' GET MADD1
READ
STORE TRIM(MADD1) TO MADD1
SAVE TO MADD1
@ 5,0 CLEA
@ 5,10 SAY 'City,State,zip ' GET madd2
READ
STORE TRIM(MADD2) TO MADD2
SAVE TO MADD2
@ 7,0 CLEA
@ 7,10 SAY 'Phone ' GET MPHONE
READ
STORE TRIM(MPHONE) TO MPHONE
SAVE TO MPHONE
CLEA
@ 5,0 SAY MTITLE
@ 7,0 SAY MADD1
@ 9,0 SAY MADD2
@ 11,0 SAY MPHONE
?
?
WAIT
clea
@ 15,15 SAY 'Press F9 to return to main menu...'