Routine: PSGMUTL

Information

PSGMUTL ;BIR/MV-UTLILITY USE FOR THE MAR AND MEDWS. ;15 SEP 97 / 2:10 PM

Source file <PSGMUTL.m>

Name	Comments	DBIA/ICR reference
MARFORM	;Prompt for the MAR form (Blank and Non-blank)
BLANK(LEN)	;
TXT(TXT,LEN)
LONGTXT(LEN,DFN,ORDER)	; Build array of long special instructions
SPLIT	;* Split a word string into individual words.
LEN(X1,OLD)	;* Wrap word around if it doesn't fit the display length
DELIM(BSD)	;* BSD=" ","/","-"
MARLB(LEN)
MARLB2	;Split array into 2 labels.