PROGRAM SPRINT;TYPEPOST=RECORD       NR1,NR2:INTEGER;)       FNAVN:PACKED ARRAY (1..4) OF CHAR;)(       KEY:PACKED ARRAY (1..26) OF CHAR;(*       UNAVN:PACKED ARRAY (1..30) OF CHAR;*(       ADR:PACKED ARRAY (1..30) OF CHAR;(,       LANDSBY:PACKED ARRAY (1..20) OF CHAR;,+       POSTNR:PACKED ARRAY (1..25) OF CHAR;+'       TLF:PACKED ARRAY (1..10) OF CHAR'END;VAR    FIL:STRING(20);       T:FILE OF POST;       QUQ:^INTEGER; PROCEDURE PRINT;BEGIN	  GET(T);	  WHILE NOT EOF(T) DO  BEGINL WRITELN(LIST,T^.KEY:26,' , ',T^.FNAVN:4,' ':30,T^.NR1*10000.0+T^.NR2:8:-2);L"    WRITELN(LIST,' ':29,T^.UNAVN);"     WRITELN(LIST,' ':29,T^.ADR); $    WRITELN(LIST,' ':29,T^.LANDSBY);$4    WRITELN(LIST,' ':29,T^.POSTNR,'TLF: ':8,T^.TLF);4    WRITELN(LIST,' ');    WRITELN(LIST,' ');    WRITELN(LIST,' ');
    GET(T)
  ENDEND;BEGIN  FIL:='A1LISTE:P1:30:K';  RESET(T,FIL);  PRINT;END.  ST,' ');
    GET(T)
  ENDEND;BEGIN  FIL:='A1LISTE:P1:30:K';  RESET(T,FIL);  PRINT;  FIL:='PROCSTAT:P2:0:I';(*$C-*)  REPEAT    REWRITE(NRPF,FIL);    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);$  CHAIN('INTRE   *1','HOVSA:P1',QUQ)$END.   ADR:PACKED ARRAY (1..30)ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 