The World of Computer Software/World_Of_Computer_Software-02-386-Vol-2of3.iso/b/bbdo13s.zip/SAMPLE.PRG

Text File | 1993-01-19 | 664b | 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 PICT '   -   -        '
@  9, 0 SAY "Added"
@  9, 11 GET m.adddate