Shareware Overload/ShartewareOverload.cdr/database/dbsales.zip/DBSALES.LBR/PROSPECT.FMT

Text File | 1986-01-14 | 2KB | 60 lines

* B:PROSPECTS.PRG
CLEAR
DO WHILE .NOT. EOF()
@ 0,1 SAY CMONTH(DATE())
@ 0,12 SAY DAY(DATE())
@ 0,15 SAY YEAR(DATE())
@ 0,30 SAY SUBSTR(TIME(),1,5)
@ 0,45 SAY 'RECORD #'
@ 0,59 SAY RECNO() PICTURE '@B'
@ 1,1 SAY "-------------------------------------------------------"
@ 1,56 SAY "------------------------"
@ 2,1 SAY "DATE"
@ 2,7 GET DATE
@ 2,21 SAY "INTITIAL CONTACT"
@ 2,39 GET CONTACT
@ 2,53 SAY "KEY"
@ 2,58 GET KEY
@ 3,1 SAY "CALL"
@ 3,7 GET CALL
@ 4,1 SAY "-------------------------------------------------------"
@ 4,56 SAY "------------------------"
@ 5,1 SAY "NAME"
@ 5,7 GET NAME
@ 6,1 SAY "TELEPHONE"
@ 6,12 GET TELEPHONE
@ 8,1 SAY "COMPANY"
@ 8,12 GET COMPANY picture "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 9,1 SAY "ADDRESS1"
@ 9,12 GET ADDRESS1
@ 10,1 SAY "ADDRESS2"
@ 10,12 GET ADDRESS2
@ 11,1 SAY "CITY"
@ 11,12 GET CITY picture "!xxxxxxxxxxxxxxxxxxx"
@ 11,41 SAY "STATE"
@ 11,48 GET STATE picture "!!"
@ 11,55 SAY "ZIP"
@ 11,60 GET ZIP
@ 12,1 SAY "COUNTRY"
@ 12,12 GET COUNTRY
@ 13,1 SAY "======================================================="
@ 13,56 SAY "========================"
@ 14,1 SAY gadata1
@ 14,17 GET DATA1
@ 16,1 SAY gadata2
@ 16,17 GET DATA2
@ 18,1 SAY gadata3
@ 18,17 GET DATA3
@ 20,1 SAY gadata4
@ 20,17 GET DATA4
@ 22,1 SAY "NOTES"
@ 22,7 GET NOTES
@ 22,15 SAY '(Ctrl/Pgdn enters memo fields, Ctrl/End Saves ì
contents)'
@ 24,0 SAY 'Esc exits, PgDn saves and continues, Ctrl/End saves'
READ
CHANGE NEXT 1 FIELDS NOTES
CLEAR
LOOP
RETURN