10 lines
145 B
Plaintext
10 lines
145 B
Plaintext
|
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
|