* HEADING.FMT
* Purpose: A standard heading for screens and reports
*
ERASE
RESTORE from B:Profile
@ 2,15 SAY Company
@ 3,15 SAY Street
@ 4,15 SAY Address
@ 6,15 SAY Slogan
@ 7, 0 SAY Phone
@ 7,52 SAY Date()
@ 8, 0 SAY "================================================================"
@ 8,50 SAY "============="
RETURN
 Produce Reports"
  @  9,24 SAY "3.   Index Databases"
  @ 10,24 SAY "========================"
  @ 12,24 SAY "R:   Return to dBASE"
  @ 13,24 SAY "X:   Return to Operating