added CMS folder
This commit is contained in:
9
CMS/BP.CLOCK/MSD.HDG
Normal file
9
CMS/BP.CLOCK/MSD.HDG
Normal file
@@ -0,0 +1,9 @@
|
||||
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
|
||||
Reference in New Issue
Block a user