SUBROUTINE MSD.HDG(HDG)
*
$INCLUDE GEN.COMMON
*
CRT CS
CRT @(0,0):CL:RV:STR(' ',80):ERV:
HDL=(80 - LEN(HDG)) / 2
CRT @(HDL,0):RV:HDG:ERV:
RETURN