Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/DB2PAS.ZIP/EXAMPLE.FMT

Text File | 1986-06-21 | 1.3 KB | 59 lines

* X.FMT
@ 2,4 SAY "╔══════════════════════════════════════════════════════"
@ 2,59 SAY "══════════════╗"
@ 3,4 SAY "║ Last Name                       First Name         Ti"
@ 3,59 SAY "tle           ║"
@ 4,4 SAY "║"
@ 4,6 GET lastname
@ 4,38 GET firstname
@ 4,57 GET title
@ 4,73 SAY "║"
@ 5,4 SAY "║"
@ 5,73 SAY "║"
@ 6,4 SAY "║ Company Name"
@ 6,19 GET company
@ 6,57 SAY "Status"
@ 6,64 GET print
@ 6,73 SAY "║"
@ 7,4 SAY "║"
@ 7,73 SAY "║"
@ 8,4 SAY "║ Home Address                    Business Address"
@ 8,73 SAY "║"
@ 9,4 SAY "║"
@ 9,6 GET address0
@ 9,38 GET address1
@ 9,73 SAY "║"
@ 10,4 SAY "║"
@ 10,73 SAY "║"
@ 11,4 SAY "║ City"
@ 11,11 GET city
@ 11,38 SAY "Prov."
@ 11,44 GET province
@ 11,57 SAY "ZIP"
@ 11,61 GET pcode picture "!9! 9!9"
@ 11,73 SAY "║"
@ 12,4 SAY "║"
@ 12,73 SAY "║"
@ 13,4 SAY "║ Home Phone"
@ 13,17 GET phone1 picture "[phone]"
@ 13,38 SAY "Bus. Phone"
@ 13,49 GET phone2 picture "[phone]"
@ 13,73 SAY "║"
@ 14,4 SAY "║"
@ 14,73 SAY "║"
@ 15,4 SAY "║ Remarks"
@ 15,14 GET comment1
@ 15,73 SAY "║"
@ 16,4 SAY "║"
@ 16,14 GET comment2
@ 16,73 SAY "║"
@ 17,4 SAY "║"
@ 17,14 GET comment3
@ 17,73 SAY "║"
@ 18,4 SAY "║"
@ 18,73 SAY "║"
@ 19,4 SAY "║"
@ 19,73 SAY "║"
@ 20,4 SAY "╚══════════════════════════════════════════════════════"
@ 20,59 SAY "══════════════╝"