=PROCEDURE HENTTILBEH\R(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:=%                       ATILBEH\RTYP);% TYPE TILBEHZONE=RECORD                H:ISFHEAD;/                T:ARRAY(1..MTIBEHZ) OF INTEGER;/	     END;	      TILBEHPOST=RECORD                AA:ARAR;                A:AR;                AAA:RAR;                NR,                GLASKODE,!                GLASLIST:INTEGER;!                GLASGUMMI,&                GLASLISTGUMMI:DOBBTAL;&
      END;
 VAR  TILF:ISF;     TILZ:TILBEHZONE;     TILBEH\R:TILBEHPOST;  I1,I:INTEGER; PROCEDURE HTIL BEGIN  WITH TILBEH\R DO  BEGIN    FOR I:=1 TO 3 DO	    BEGIN	      GLASKODE:=GL(I).KODE;      IF GLASKODE<>0 THEN      BEGIN        GETREC(TILZ.H,TILF,A);,        IF IER<>0 THEN IOF(TILZ.H.FILENAME);,%        ATI(I+I1).GLASLIST:=GLASLIST;%'        ATI(I+I1).GLASGUMMI:=GLASGUMMI;'/        ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;/         PR(I+I1+6).NR:=GLASLIST; 	      END	
      ELSE
      BEGIN/        ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;/
      END;
    END;  END;END;BEGIN  OWRITE(TILZ.H,TILF,9,L[S);  TILBEH\R.NR:=PR(1).NR;I1:=0;  HTIL;  TILBEH\R.NR:=PR(5).NR;I1:=3;  HTIL;  ICLOSE(TILZ.H,TILF);END;  ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc