The following is typical code sequence using USI_TEXT. The array 'TEXT' is declared as TEXT(MAXLINES)*(string length). Note that not all lines need contain a parameter reference.
TEXT(1) = 'Input data {INP}'
TEXT(2) = 'Weights data {WEIGHTS}'
TEXT(3) = 'Errors assumed Poissonian'
NLINES = MAXLINES
CALL USI_TEXT (3, TEXT, NLINES, STATUS)
CALL HIST_PTXT (OLOC, NLINES, TEXT, STATUS)