'----------------------------------------------------------------------------'
' Purpose: Center given text on the given row.                               '
'  Author: J. A. Zarifis III                                                 '
'    Date: 08 Oct 1990 V1.00                                                 '
'                                                                            '
' variables        comments                                                  '
' ---------        ----------------------------------------                  '
' CntrRow%         row to print text on.                                     '
' CntrText$        text to print, centered on 80 column screen.              '
'                                                                            '
' Sample call: CALL CText(12,"This will be centered on row 12")              '
'----------------------------------------------------------------------------'

SUB PRINTC(BYVAL CntrRow%, CntrText$) PUBLIC

  LOCATE CntrRow%, 40 - LEN(CntrText$)\2
  PRINT CntrText$;

END SUB