CONST StringMax = 100; First_File = 'HEADER.RNO '; {RUNOFF Header File} N_Count = 4; {Indentation per nesting level} Lit_Ch = '_'; {RUNOFF literal char} TYPE String = RECORD Len : INTEGER; Ch : PACKED ARRAY[1..StringMax] OF CHAR; END; VAR Ready, From_File, First, Comment_Flag : BOOLEAN; Name : String; L, File_Type : INTEGER; Com_File, Inp_File, Out_File : TEXT;