Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : PROSPECT.FMT

 
Output of file : PROSPECT.FMT contained in archive : DB3SALES.ZIP
* 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


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : PROSPECT.FMT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/