Liren Large Software Subsidy 5/05.iso/a/a004/4.ddi/TUTORIAL/CUSTFORM.FMT

Text File | 1988-01-17 | 1.0 KB | 34 lines

* Custform.fmt generates input screen for
* Addcust and Viewedit
@  1,0  SAY CENTER("CUSTOMER INFORMATION DATABASE")
@  4,0  SAY "Customer number: " + m->custno
@  6,0  SAY "Last name: "
@  6,11 GET  m->lastname
@  6,39 SAY "First name: "
@  6,51 GET  m->firstname
@  8,2  SAY "Company: "
@  8,11 GET  m->company
@  9,2  SAY "Address: "
@  9,11 GET  m->address
@ 10,5  SAY "City: "
@ 10,11 GET  m->city
@ 10,37 SAY "State: "
@ 10,44 GET  m->state
@ 11,6  SAY "Zip: "
@ 11,11 GET  m->zip PICTURE "99999"
@ 11,22 SAY "Country: "
@ 11,31 GET  m->country
@ 14,0  SAY "Telephone number: "
@ 14,18 GET  m->telephone
@ 14,35 SAY "Date last contacted: "
@ 14,56 GET  m->contacted
@ 15,3  SAY "Brochure sent? "
@ 15,18 GET  m->sent_bro
@ 15,35 SAY "Follow-up call made? "
@ 15,56 GET  m->follow_up
@ 18,0  SAY "Special notes: "
@ 18,15 GET  Customer->Notes
@ 18,22 SAY "Ctrl-PgDn to enter memo field, Ctrl-PgUp to exit"
@ 22,0  SAY "Press ENTER to proceed to next field, " +;
    "PgDn to proceed to next screen"