home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
b
/
bbdo20s.zip
/
SAMPLE.PRG
< prev
next >
Wrap
Text File
|
1993-02-03
|
640b
|
21 lines
@ 0, 0 SAY "Company"
@ 0, 11 GET m.company PICT '!XXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 1, 0 SAY 'Mr/Mrs'
@ 1, 11 GET m.mrms
@ 2, 0 SAY "Firstname"
@ 2, 11 GET m.firstname PICT '!XXXXXXXXXXXXXX'
@ 3, 0 SAY "Lastname"
@ 3, 11 GET m.lastname PICT '!XXXXXXXXXXXXXX'
@ 4, 0 SAY "Address"
@ 4, 11 GET m.address
@ 5, 0 SAY "City"
@ 5, 11 GET m.city
@ 6, 0 SAY "State"
@ 6, 11 GET m.state VALID filefind('STATE',m.state,.f.,.f.)
@ 7, 0 SAY "Zip"
@ 7, 11 GET m.zip VALID filefind('ZIP',m.zip,.f.,.f.)
@ 8, 0 SAY "Phone"
@ 8, 11 GET m.phone
@ 9, 0 SAY "Added"
@ 9, 11 GET m.adddate