PROGRAM VARNUMRE; (*$IISFHEAD*) VPOST=RECORD A:AR; ( VARENR1,LVRND\R,OPRLAND,PAKENHED,(4 FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,4! D[KGRAS],ANAFTILG:INTEGER;!8 NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;8H PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,HF RAIORDRE,STASBEST,ASOLGTI],ASOLGTS],OMSI]R,OMSS]R,D[KBIDTD:REALFEND; ZONE= RECORD  H:ISFHEAD;! T:ARRAY(1..451) OF INTEGER!END;PROCSTAT=RECORD NP,NROSTART:INTEGEREND;NPFILE=FILE OF PROCSTAT; VAR F:ISF;  NRPF,CF:NPFILE; VZ:ZONE; FILNAVN2:STRING(20);! GNR,IER,NR,I,J,K :INTEGER;! CH:CHAR; QUQ:^INTEGER; VARE:VPOST; R,FRA,TIL :REAL;(*$L-*)(*$R-,IEXCOMCOP*) (*$IIOPEN*) (*$IREADPROC*)(*$IFINDPOST*) (*$IICLOSE*) (*$INEXTREC*) (*$R+*)(*$L+*)PROCEDURE STOP;VAR I:INTEGER;BEGIN I:=I DIV 0 END;PROCEDURE ERROR;BEGIN! WRITELN('FEJL I VAREREG ',IER);! ICLOSE(VZ.H,F); WRITELN('ICLOSE ',IER); STOPEND;BEGIN FILNAVN2:='PROCSTAT:P2:0:I';(*$C-*) REPEAT REWRITE(NRPF,FILNAVN2); SEEK(NRPF,1) UNTIL IORESULT=0;(*$C+*) GET(NRPF);  NRPF^.NP:=1; SEEK(NRPF,1); PUT(NRPF);  REPEAT GOTOXY(1,20);3 WRITELN('S{t plade 1 i drev 1 og tryk RETURN');3 READLN; (*$C-*) REWRITE(CF,'C1:P1:0:J'); SEEK(CF,1)(*$C+*) UNTIL IORESULT=0; CLOSE(CF);  CLOSE(NRPF); FILNAVN2:='REGVARE:P1:1137:I';  RESET(F,FILNAVN2); IOPEN(VZ.H,F,L[S); VARE.VARENR1:=0; GNR:=1000;  NEXTREC(VZ.H,F,VARE.A); IF IER<>-1 THEN ERROR; IER:=0;  WHILE IER=0 DO BEGIN WHILE GNR-2 THEN ERROR; ICLOSE(VZ.H,F);$ CHAIN('INTRE *1','HOVSA:P1',QUQ)$END.ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc