Media Share 9/MEDIASHARE_09.ISO/dbase/bbdo23.zip/SAMPLE.PRG

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