|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7488 (0x1d40)
Types: TextFile
Notes: Mikados_K
Names: »SORTKUND.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SORTKUND.K«
PROGRAM SORTKUND;
CONST NR=100;
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;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FIL:STRING(20);
NRPF,CF:NPFILE;
NRR:INTEGER;
T:FILE OF POST;
OKEY:PACKED ARRAY (1..26) OF CHAR;
QUQ:^INTEGER;
POSTER:ARRAY (1..NR) OF POST;
PROCEDURE SORT(VAR NROWF:INTEGER);
VAR O,I,J,AIP,AUP,REST,CAP,ACTIVE
:INTEGER;
ST:FILE OF POST;
IND:ARRAY (1..NR) OF INTEGER;
BEGIN
IND(1):=1;
IND(NR):=NR;
CAP:=NR-1;
NROWF:=0;
REST:=0;
AUP:=0;
POSTER(1).KEY:=T^.KEY;
POSTER(NR).KEY:=OKEY;
FOR I:=2 TO CAP DO
BEGIN
GET(T);
IF EOF(T) THEN
BEGIN
REST:=I-1;
CAP:=I-1;
CLOSE(T)
END
ELSE
WITH POSTER(I) DO
BEGIN
NR1:=T^.NR1;
NR2:=T^.NR2;
FNAVN:=T^.FNAVN;
KEY:=T^.KEY;
UNAVN:=T^.UNAVN;
ADR:=T^.ADR;
LANDSBY:=T^.LANDSBY;
POSTNR:=T^.POSTNR;
TLF:=T^.TLF;
IND(I):=I
END
END;
AIP:=CAP-1;
FOR I:=2 TO CAP DO
BEGIN
ACTIVE:=I;
FOR J:=I+1 TO CAP DO
IF POSTER(IND(ACTIVE)).KEY>POSTER(IND(J)).KEY THEN ACTIVE:=J;
IF ACTIVE>I THEN
BEGIN
AUP:=IND(ACTIVE);
IND(ACTIVE):=IND(I);
IND(I):=AUP
END
END;
(*NU ER POSTERNE SORTERET*)
AUP:=0;
REPEAT
IF REST>0 THEN CAP:=REST;
NROWF:=NROWF+1;
FIL(5):=CHR(NROWF DIV 100 +48);
FIL(6):=CHR(NROWF MOD 100 DIV 10 +48);
FIL(7):=CHR(NROWF MOD 10 +48);
REWRITE(ST,FIL);
ACTIVE:=2;
REPEAT
O:=IND(ACTIVE);
ST^:=POSTER(O);
PUT(ST);
AUP:=AUP+1;
OKEY:=POSTER(O).KEY;
GET(T);
IF (REST<>0) OR (T^.KEY=POSTER(NR).KEY) THEN
BEGIN
IF REST=0 THEN BEGIN REST:=ACTIVE-1 END;
ACTIVE:=ACTIVE+1
END
ELSE
BEGIN
POSTER(O):=T^;
AIP:=AIP+1;
IF POSTER(O).KEY>=OKEY THEN
BEGIN
I:=ACTIVE;
WHILE (I<CAP) AND (POSTER(IND(I+1)).KEY<POSTER(O).KEY) DO
BEGIN
IND(I):=IND(I+1);
I:=I+1
END;
IND(I):=O
END
ELSE
BEGIN
I:=ACTIVE;
WHILE (I>1) AND (POSTER(IND(I-1)).KEY>POSTER(O).KEY) DO
BEGIN
IND(I):=IND(I-1);
I:=I-1
END;
IND(I):=O;
ACTIVE:=ACTIVE+1
END
END
UNTIL ACTIVE>CAP;
FILLCHAR(ST^.KEY(1),26,CHR(126));
ST^.NR1:=0;
ST^.NR2:=0;
FILLCHAR(ST^.FNAVN(1),4,CHR(32));
FILLCHAR(ST^.UNAVN(1),30,CHR(32));
FILLCHAR(ST^.ADR(1),30,CHR(32));
FILLCHAR(ST^.LANDSBY(1),20,CHR(32));
FILLCHAR(ST^.POSTNR(1),25,CHR(32));
FILLCHAR(ST^.TLF(1),10,CHR(32));
PUT(ST);
CLOSE(ST);
UNTIL (REST=CAP) OR (REST=1);
OKEY:=POSTER(NR).KEY;
WRITELN('ANTAL INDLÆSTE, ANTAL UDSKREVNE ',AIP:6,AUP:6)
END;
PROCEDURE FLET(NROWF:INTEGER);
VAR I,J,AIP,AUP,RF,SM
:INTEGER;
FIL1,FIL2,FIL3,FIL4,FIL5,FIL6,FIL7,FIL8,FIL9:FILE OF POST;
BEGIN
AIP:=0;
FOR I:=1 TO NROWF DO
BEGIN
FIL(5):=CHR(I DIV 100 +48);
FIL(6):=CHR(I MOD 100 DIV 10 +48);
FIL(7):=CHR(I MOD 10 +48);
CASE I OF
1: BEGIN
RESET(FIL1,FIL);
GET(FIL1)
END;
2: BEGIN
RESET(FIL2,FIL);
GET(FIL2)
END;
3: BEGIN
RESET(FIL3,FIL);
GET(FIL3)
END;
4: BEGIN
RESET(FIL4,FIL);
GET(FIL4)
END;
5: BEGIN
RESET(FIL5,FIL);
GET(FIL5)
END;
6: BEGIN
RESET(FIL6,FIL);
GET(FIL6)
END;
7: BEGIN
RESET(FIL7,FIL);
GET(FIL7)
END;
8: BEGIN
RESET(FIL8,FIL);
GET(FIL8)
END;
9: BEGIN
RESET(FIL9,FIL);
GET(FIL9)
END
END;
AIP:=AIP+1;
END;
AUP:=0;
REPEAT
SM:=1;
T^:=FIL1^;
FOR I:=2 TO NROWF DO
CASE I OF
2: IF FIL2^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL2^ END;
3: IF FIL3^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL3^ END;
4: IF FIL4^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL4^ END;
5: IF FIL5^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL5^ END;
6: IF FIL6^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL6^ END;
7: IF FIL7^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL7^ END;
8: IF FIL8^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL8^ END;
9: IF FIL8^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL9^ END
END;
IF T^.KEY<OKEY THEN
BEGIN
PUT(T);AUP:=AUP+1;
CASE SM OF
1:GET(FIL1);
2:GET(FIL2);
3:GET(FIL3);
4:GET(FIL4);
5:GET(FIL5);
6:GET(FIL6);
7:GET(FIL7);
8:GET(FIL8);
9:GET(FIL9)
END;
END
UNTIL T^.KEY=OKEY;
CLOSE(T);
WRITELN('ANTAL SORTEREDE ',AUP:5);
END;
PROCEDURE PRINT;
BEGIN
GET(T);
WHILE NOT EOF(T) DO
BEGIN
WRITELN(LIST,T^.KEY:26,' , ',T^.FNAVN:4,' ':30,T^.NR1*10000.0+T^.NR2:8:-2);
WRITELN(LIST,' ':29,T^.UNAVN);
WRITELN(LIST,' ':29,T^.ADR);
WRITELN(LIST,' ':29,T^.LANDSBY);
WRITELN(LIST,' ':29,T^.POSTNR,'TLF: ':8,T^.TLF);
WRITELN(LIST,' ');
WRITELN(LIST,' ');
WRITELN(LIST,' ');
GET(T)
END
END;
BEGIN
WRITELN('SORTKUNDE');
FIL:='ALISTE:P1:30:K';
RESET(T,FIL);
FIL:='WORK000:P1:30:K';
FILLCHAR(T^.KEY(1),26,CHR(32));
FILLCHAR(OKEY(1),26,CHR(126));
NRR:=0;
SORT(NRR);
CLOSE(T);
FIL:='A1LISTE:P1:30:K';
REWRITE(T,FIL);
FIL:='WORK000:P1:30:K';
FILLCHAR(OKEY(1),26,CHR(126));
FLET(NRR);
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);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
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.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM SORTKUND;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»CONST NR=100;«, l3=0x0d}
0x0022…0028 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0028…0035 Line {l1=0x0b, l2=»POST=RECORD«, l3=0x0b}
0x0035…004e Line {l1=0x17, l2=» NR1,NR2:INTEGER;«, l3=0x17}
0x004e…0079 Line {l1=0x29, l2=» FNAVN:PACKED ARRAY (1..4) OF CHAR;«, l3=0x29}
0x0079…00a3 Line {l1=0x28, l2=» KEY:PACKED ARRAY (1..26) OF CHAR;«, l3=0x28}
0x00a3…00cf Line {l1=0x2a, l2=» UNAVN:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x00cf…00f9 Line {l1=0x28, l2=» ADR:PACKED ARRAY (1..30) OF CHAR;«, l3=0x28}
0x00f9…0127 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0127…0154 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0154…017d Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x017d…0183 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0183…0194 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x0194…01b0 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x01b0…01b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b6…01d0 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x01d0…01e8 Line {l1=0x16, l2=»VAR FIL:STRING(20);«, l3=0x16}
0x01e8…0200 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0200…0215 Line {l1=0x13, l2=» NRR:INTEGER;«, l3=0x13}
0x0215…022d Line {l1=0x16, l2=» T:FILE OF POST;«, l3=0x16}
0x022d…0258 Line {l1=0x29, l2=» OKEY:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x0258…026e Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x026e…0294 Line {l1=0x24, l2=» POSTER:ARRAY (1..NR) OF POST;«, l3=0x24}
0x0294…0297 Line {l1=0x01, l2=» «, l3=0x01}
0x0297…02bb Line {l1=0x22, l2=»PROCEDURE SORT(VAR NROWF:INTEGER);«, l3=0x22}
0x02bb…02de Line {l1=0x21, l2=»VAR O,I,J,AIP,AUP,REST,CAP,ACTIVE«, l3=0x21}
0x02de…02f0 Line {l1=0x10, l2=» :INTEGER;«, l3=0x10}
0x02f0…0309 Line {l1=0x17, l2=» ST:FILE OF POST;«, l3=0x17}
0x0309…032f Line {l1=0x24, l2=» IND:ARRAY (1..NR) OF INTEGER;«, l3=0x24}
0x032f…0336 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0336…0344 Line {l1=0x0c, l2=» IND(1):=1;«, l3=0x0c}
0x0344…0354 Line {l1=0x0e, l2=» IND(NR):=NR;«, l3=0x0e}
0x0354…0362 Line {l1=0x0c, l2=» CAP:=NR-1;«, l3=0x0c}
0x0362…036f Line {l1=0x0b, l2=» NROWF:=0;«, l3=0x0b}
0x036f…037b Line {l1=0x0a, l2=» REST:=0;«, l3=0x0a}
0x037b…0386 Line {l1=0x09, l2=» AUP:=0;«, l3=0x09}
0x0386…03a0 Line {l1=0x18, l2=» POSTER(1).KEY:=T^.KEY;«, l3=0x18}
0x03a0…03b9 Line {l1=0x17, l2=» POSTER(NR).KEY:=OKEY;«, l3=0x17}
0x03b9…03cf Line {l1=0x14, l2=» FOR I:=2 TO CAP DO«, l3=0x14}
0x03cf…03d8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03d8…03e5 Line {l1=0x0b, l2=» GET(T);«, l3=0x0b}
0x03e5…03f9 Line {l1=0x12, l2=» IF EOF(T) THEN«, l3=0x12}
0x03f9…0404 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0404…0416 Line {l1=0x10, l2=» REST:=I-1;«, l3=0x10}
0x0416…0427 Line {l1=0x0f, l2=» CAP:=I-1;«, l3=0x0f}
0x0427…0437 Line {l1=0x0e, l2=» CLOSE(T)«, l3=0x0e}
0x0437…0440 Line {l1=0x07, l2=» END«, l3=0x07}
0x0440…044a Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x044a…0461 Line {l1=0x15, l2=» WITH POSTER(I) DO«, l3=0x15}
0x0461…046c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x046c…0480 Line {l1=0x12, l2=» NR1:=T^.NR1;«, l3=0x12}
0x0480…0494 Line {l1=0x12, l2=» NR2:=T^.NR2;«, l3=0x12}
0x0494…04ac Line {l1=0x16, l2=» FNAVN:=T^.FNAVN;«, l3=0x16}
0x04ac…04c0 Line {l1=0x12, l2=» KEY:=T^.KEY;«, l3=0x12}
0x04c0…04d8 Line {l1=0x16, l2=» UNAVN:=T^.UNAVN;«, l3=0x16}
0x04d8…04ec Line {l1=0x12, l2=» ADR:=T^.ADR;«, l3=0x12}
0x04ec…0508 Line {l1=0x1a, l2=» LANDSBY:=T^.LANDSBY;«, l3=0x1a}
0x0508…0522 Line {l1=0x18, l2=» POSTNR:=T^.POSTNR;«, l3=0x18}
0x0522…0536 Line {l1=0x12, l2=» TLF:=T^.TLF;«, l3=0x12}
0x0536…0547 Line {l1=0x0f, l2=» IND(I):=I«, l3=0x0f}
0x0547…0550 Line {l1=0x07, l2=» END«, l3=0x07}
0x0550…0558 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0558…0567 Line {l1=0x0d, l2=» AIP:=CAP-1;«, l3=0x0d}
0x0567…057d Line {l1=0x14, l2=» FOR I:=2 TO CAP DO«, l3=0x14}
0x057d…0586 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0586…0596 Line {l1=0x0e, l2=» ACTIVE:=I;«, l3=0x0e}
0x0596…05b0 Line {l1=0x18, l2=» FOR J:=I+1 TO CAP DO«, l3=0x18}
0x05b0…05f5 Line {l1=0x43, l2=» IF POSTER(IND(ACTIVE)).KEY>POSTER(IND(J)).KEY THEN ACTIVE:=J;«, l3=0x43}
0x05f5…060b Line {l1=0x14, l2=» IF ACTIVE>I THEN«, l3=0x14}
0x060b…0616 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0616…062f Line {l1=0x17, l2=» AUP:=IND(ACTIVE);«, l3=0x17}
0x062f…064b Line {l1=0x1a, l2=» IND(ACTIVE):=IND(I);«, l3=0x1a}
0x064b…065e Line {l1=0x11, l2=» IND(I):=AUP«, l3=0x11}
0x065e…0667 Line {l1=0x07, l2=» END«, l3=0x07}
0x0667…066f Line {l1=0x06, l2=» END;«, l3=0x06}
0x066f…068e Line {l1=0x1d, l2=» (*NU ER POSTERNE SORTERET*)«, l3=0x1d}
0x068e…0699 Line {l1=0x09, l2=» AUP:=0;«, l3=0x09}
0x0699…06a3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x06a3…06c2 Line {l1=0x1d, l2=» IF REST>0 THEN CAP:=REST;«, l3=0x1d}
0x06c2…06d7 Line {l1=0x13, l2=» NROWF:=NROWF+1;«, l3=0x13}
0x06d7…06fc Line {l1=0x23, l2=» FIL(5):=CHR(NROWF DIV 100 +48);«, l3=0x23}
0x06fc…0728 Line {l1=0x2a, l2=» FIL(6):=CHR(NROWF MOD 100 DIV 10 +48);«, l3=0x2a}
0x0728…074c Line {l1=0x22, l2=» FIL(7):=CHR(NROWF MOD 10 +48);«, l3=0x22}
0x074c…0762 Line {l1=0x14, l2=» REWRITE(ST,FIL);«, l3=0x14}
0x0762…0772 Line {l1=0x0e, l2=» ACTIVE:=2;«, l3=0x0e}
0x0772…077e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x077e…0795 Line {l1=0x15, l2=» O:=IND(ACTIVE);«, l3=0x15}
0x0795…07ac Line {l1=0x15, l2=» ST^:=POSTER(O);«, l3=0x15}
0x07ac…07bc Line {l1=0x0e, l2=» PUT(ST);«, l3=0x0e}
0x07bc…07cf Line {l1=0x11, l2=» AUP:=AUP+1;«, l3=0x11}
0x07cf…07eb Line {l1=0x1a, l2=» OKEY:=POSTER(O).KEY;«, l3=0x1a}
0x07eb…07fa Line {l1=0x0d, l2=» GET(T);«, l3=0x0d}
0x07fa…082e Line {l1=0x32, l2=» IF (REST<>0) OR (T^.KEY=POSTER(NR).KEY) THEN«, l3=0x32}
0x082e…083b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x083b…086d Line {l1=0x30, l2=» IF REST=0 THEN BEGIN REST:=ACTIVE-1 END;«, l3=0x30}
0x086d…0887 Line {l1=0x18, l2=» ACTIVE:=ACTIVE+1«, l3=0x18}
0x0887…0892 Line {l1=0x09, l2=» END«, l3=0x09}
0x0892…089e Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x089e…08ab Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x08ab…08c3 Line {l1=0x16, l2=» POSTER(O):=T^;«, l3=0x16}
0x08c3…08d8 Line {l1=0x13, l2=» AIP:=AIP+1;«, l3=0x13}
0x08d8…08fd Line {l1=0x23, l2=» IF POSTER(O).KEY>=OKEY THEN«, l3=0x23}
0x08fd…090c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x090c…0922 Line {l1=0x14, l2=» I:=ACTIVE;«, l3=0x14}
0x0922…0967 Line {l1=0x43, l2=» WHILE (I<CAP) AND (POSTER(IND(I+1)).KEY<POSTER(O).KEY) DO«, l3=0x43}
0x0967…0978 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0978…0997 Line {l1=0x1d, l2=» IND(I):=IND(I+1);«, l3=0x1d}
0x0997…09ab Line {l1=0x12, l2=» I:=I+1«, l3=0x12}
0x09ab…09bb Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x09bb…09d0 Line {l1=0x13, l2=» IND(I):=O«, l3=0x13}
0x09d0…09dd Line {l1=0x0b, l2=» END«, l3=0x0b}
0x09dd…09eb Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x09eb…09fa Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x09fa…0a10 Line {l1=0x14, l2=» I:=ACTIVE;«, l3=0x14}
0x0a10…0a53 Line {l1=0x41, l2=» WHILE (I>1) AND (POSTER(IND(I-1)).KEY>POSTER(O).KEY) DO«, l3=0x41}
0x0a53…0a64 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0a64…0a83 Line {l1=0x1d, l2=» IND(I):=IND(I-1);«, l3=0x1d}
0x0a83…0a97 Line {l1=0x12, l2=» I:=I-1«, l3=0x12}
0x0a97…0aa7 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0aa7…0abd Line {l1=0x14, l2=» IND(I):=O;«, l3=0x14}
0x0abd…0ad9 Line {l1=0x1a, l2=» ACTIVE:=ACTIVE+1«, l3=0x1a}
0x0ad9…0ae6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0ae6…0af1 Line {l1=0x09, l2=» END«, l3=0x09}
0x0af1…0b08 Line {l1=0x15, l2=» UNTIL ACTIVE>CAP;«, l3=0x15}
0x0b08…0b2f Line {l1=0x25, l2=» FILLCHAR(ST^.KEY(1),26,CHR(126));«, l3=0x25}
0x0b2f…0b40 Line {l1=0x0f, l2=» ST^.NR1:=0;«, l3=0x0f}
0x0b40…0b51 Line {l1=0x0f, l2=» ST^.NR2:=0;«, l3=0x0f}
0x0b51…0b78 Line {l1=0x25, l2=» FILLCHAR(ST^.FNAVN(1),4,CHR(32));«, l3=0x25}
0x0b78…0b9c Line {l1=0x22, l2=»FILLCHAR(ST^.UNAVN(1),30,CHR(32));«, l3=0x22}
0x0b9c…0bbe Line {l1=0x20, l2=»FILLCHAR(ST^.ADR(1),30,CHR(32));«, l3=0x20}
0x0bbe…0be4 Line {l1=0x24, l2=»FILLCHAR(ST^.LANDSBY(1),20,CHR(32));«, l3=0x24}
0x0be4…0c09 Line {l1=0x23, l2=»FILLCHAR(ST^.POSTNR(1),25,CHR(32));«, l3=0x23}
0x0c09…0c2b Line {l1=0x20, l2=»FILLCHAR(ST^.TLF(1),10,CHR(32));«, l3=0x20}
0x0c2b…0c39 Line {l1=0x0c, l2=» PUT(ST);«, l3=0x0c}
0x0c39…0c49 Line {l1=0x0e, l2=» CLOSE(ST);«, l3=0x0e}
0x0c49…0c6a Line {l1=0x1f, l2=» UNTIL (REST=CAP) OR (REST=1);«, l3=0x1f}
0x0c6a…0c83 Line {l1=0x17, l2=» OKEY:=POSTER(NR).KEY;«, l3=0x17}
0x0c83…0cbe Line {l1=0x39, l2=» WRITELN('ANTAL INDLÆSTE, ANTAL UDSKREVNE ',AIP:6,AUP:6)«, l3=0x39}
0x0cbe…0cc4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cc4…0ce4 Line {l1=0x1e, l2=»PROCEDURE FLET(NROWF:INTEGER);«, l3=0x1e}
0x0ce4…0cfb Line {l1=0x15, l2=»VAR I,J,AIP,AUP,RF,SM«, l3=0x15}
0x0cfb…0d15 Line {l1=0x18, l2=» :INTEGER;«, l3=0x18}
0x0d15…0d58 Line {l1=0x41, l2=» FIL1,FIL2,FIL3,FIL4,FIL5,FIL6,FIL7,FIL8,FIL9:FILE OF POST;«, l3=0x41}
0x0d58…0d5f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d5f…0d6a Line {l1=0x09, l2=» AIP:=0;«, l3=0x09}
0x0d6a…0d84 Line {l1=0x18, l2=» FOR I:=1 TO NROWF DO«, l3=0x18}
0x0d84…0d8d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d8d…0dae Line {l1=0x1f, l2=» FIL(5):=CHR(I DIV 100 +48);«, l3=0x1f}
0x0dae…0dd6 Line {l1=0x26, l2=» FIL(6):=CHR(I MOD 100 DIV 10 +48);«, l3=0x26}
0x0dd6…0df6 Line {l1=0x1e, l2=» FIL(7):=CHR(I MOD 10 +48);«, l3=0x1e}
0x0df6…0e05 Line {l1=0x0d, l2=» CASE I OF«, l3=0x0d}
0x0e05…0e13 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x0e13…0e2e Line {l1=0x19, l2=» RESET(FIL1,FIL);«, l3=0x19}
0x0e2e…0e42 Line {l1=0x12, l2=» GET(FIL1)«, l3=0x12}
0x0e42…0e4f Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0e4f…0e5d Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x0e5d…0e78 Line {l1=0x19, l2=» RESET(FIL2,FIL);«, l3=0x19}
0x0e78…0e8c Line {l1=0x12, l2=» GET(FIL2)«, l3=0x12}
0x0e8c…0e99 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0e99…0ea7 Line {l1=0x0c, l2=» 3: BEGIN«, l3=0x0c}
0x0ea7…0ec2 Line {l1=0x19, l2=» RESET(FIL3,FIL);«, l3=0x19}
0x0ec2…0ed6 Line {l1=0x12, l2=» GET(FIL3)«, l3=0x12}
0x0ed6…0ee3 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0ee3…0ef1 Line {l1=0x0c, l2=» 4: BEGIN«, l3=0x0c}
0x0ef1…0f0c Line {l1=0x19, l2=» RESET(FIL4,FIL);«, l3=0x19}
0x0f0c…0f20 Line {l1=0x12, l2=» GET(FIL4)«, l3=0x12}
0x0f20…0f2d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0f2d…0f3b Line {l1=0x0c, l2=» 5: BEGIN«, l3=0x0c}
0x0f3b…0f56 Line {l1=0x19, l2=» RESET(FIL5,FIL);«, l3=0x19}
0x0f56…0f6a Line {l1=0x12, l2=» GET(FIL5)«, l3=0x12}
0x0f6a…0f77 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0f77…0f85 Line {l1=0x0c, l2=» 6: BEGIN«, l3=0x0c}
0x0f85…0fa0 Line {l1=0x19, l2=» RESET(FIL6,FIL);«, l3=0x19}
0x0fa0…0fb4 Line {l1=0x12, l2=» GET(FIL6)«, l3=0x12}
0x0fb4…0fc1 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0fc1…0fcf Line {l1=0x0c, l2=» 7: BEGIN«, l3=0x0c}
0x0fcf…0fea Line {l1=0x19, l2=» RESET(FIL7,FIL);«, l3=0x19}
0x0fea…0ffe Line {l1=0x12, l2=» GET(FIL7)«, l3=0x12}
0x0ffe…100b Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x100b…1019 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x1019…1034 Line {l1=0x19, l2=» RESET(FIL8,FIL);«, l3=0x19}
0x1034…1048 Line {l1=0x12, l2=» GET(FIL8)«, l3=0x12}
0x1048…1055 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1055…1063 Line {l1=0x0c, l2=» 9: BEGIN«, l3=0x0c}
0x1063…107e Line {l1=0x19, l2=» RESET(FIL9,FIL);«, l3=0x19}
0x107e…1092 Line {l1=0x12, l2=» GET(FIL9)«, l3=0x12}
0x1092…109e Line {l1=0x0a, l2=» END«, l3=0x0a}
0x109e…10a8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x10a8…10b9 Line {l1=0x0f, l2=» AIP:=AIP+1;«, l3=0x0f}
0x10b9…10c1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x10c1…10cc Line {l1=0x09, l2=» AUP:=0;«, l3=0x09}
0x10cc…10d6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x10d6…10e2 Line {l1=0x0a, l2=» SM:=1;«, l3=0x0a}
0x10e2…10f2 Line {l1=0x0e, l2=» T^:=FIL1^;«, l3=0x0e}
0x10f2…110c Line {l1=0x18, l2=» FOR I:=2 TO NROWF DO«, l3=0x18}
0x110c…111b Line {l1=0x0d, l2=» CASE I OF«, l3=0x0d}
0x111b…1157 Line {l1=0x3a, l2=» 2: IF FIL2^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL2^ END;«, l3=0x3a}
0x1157…1193 Line {l1=0x3a, l2=» 3: IF FIL3^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL3^ END;«, l3=0x3a}
0x1193…11cf Line {l1=0x3a, l2=» 4: IF FIL4^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL4^ END;«, l3=0x3a}
0x11cf…120b Line {l1=0x3a, l2=» 5: IF FIL5^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL5^ END;«, l3=0x3a}
0x120b…1247 Line {l1=0x3a, l2=» 6: IF FIL6^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL6^ END;«, l3=0x3a}
0x1247…1283 Line {l1=0x3a, l2=» 7: IF FIL7^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL7^ END;«, l3=0x3a}
0x1283…12bf Line {l1=0x3a, l2=» 8: IF FIL8^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL8^ END;«, l3=0x3a}
0x12bf…12fa Line {l1=0x39, l2=» 9: IF FIL8^.KEY<T^.KEY THEN BEGIN SM:=I;T^:=FIL9^ END«, l3=0x39}
0x12fa…1304 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1304…131d Line {l1=0x17, l2=» IF T^.KEY<OKEY THEN«, l3=0x17}
0x131d…1328 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1328…1342 Line {l1=0x18, l2=» PUT(T);AUP:=AUP+1;«, l3=0x18}
0x1342…1352 Line {l1=0x0e, l2=» CASE SM OF«, l3=0x0e}
0x1352…1364 Line {l1=0x10, l2=» 1:GET(FIL1);«, l3=0x10}
0x1364…1376 Line {l1=0x10, l2=» 2:GET(FIL2);«, l3=0x10}
0x1376…1388 Line {l1=0x10, l2=» 3:GET(FIL3);«, l3=0x10}
0x1388…139a Line {l1=0x10, l2=» 4:GET(FIL4);«, l3=0x10}
0x139a…13ac Line {l1=0x10, l2=» 5:GET(FIL5);«, l3=0x10}
0x13ac…13be Line {l1=0x10, l2=» 6:GET(FIL6);«, l3=0x10}
0x13be…13d0 Line {l1=0x10, l2=» 7:GET(FIL7);«, l3=0x10}
0x13d0…13e2 Line {l1=0x10, l2=» 8:GET(FIL8);«, l3=0x10}
0x13e2…13f3 Line {l1=0x0f, l2=» 9:GET(FIL9)«, l3=0x0f}
0x13f3…13fd Line {l1=0x08, l2=» END;«, l3=0x08}
0x13fd…1406 Line {l1=0x07, l2=» END«, l3=0x07}
0x1406…141c Line {l1=0x14, l2=» UNTIL T^.KEY=OKEY;«, l3=0x14}
0x141c…1429 Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x1429…144f Line {l1=0x24, l2=» WRITELN('ANTAL SORTEREDE ',AUP:5);«, l3=0x24}
0x144f…1455 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1455…1467 Line {l1=0x10, l2=»PROCEDURE PRINT;«, l3=0x10}
0x1467…146e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x146e…1479 Line {l1=0x09, l2=» GET(T);«, l3=0x09}
0x1479…1490 Line {l1=0x15, l2=» WHILE NOT EOF(T) DO«, l3=0x15}
0x1490…1499 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1499…14e7 Line {l1=0x4c, l2=» WRITELN(LIST,T^.KEY:26,' , ',T^.FNAVN:4,' ':30,T^.NR1*10000.0+T^.NR2:8:-2);«, l3=0x4c}
0x14e7…150b Line {l1=0x22, l2=» WRITELN(LIST,' ':29,T^.UNAVN);«, l3=0x22}
0x150b…152d Line {l1=0x20, l2=» WRITELN(LIST,' ':29,T^.ADR);«, l3=0x20}
0x152d…1553 Line {l1=0x24, l2=» WRITELN(LIST,' ':29,T^.LANDSBY);«, l3=0x24}
0x1553…1589 Line {l1=0x34, l2=» WRITELN(LIST,' ':29,T^.POSTNR,'TLF: ':8,T^.TLF);«, l3=0x34}
0x1589…15a1 Line {l1=0x16, l2=» WRITELN(LIST,' ');«, l3=0x16}
[…0x2…]
0x15d1…15dd Line {l1=0x0a, l2=» GET(T)«, l3=0x0a}
0x15dd…15e4 Line {l1=0x05, l2=» END«, l3=0x05}
0x15e4…15ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x15ea…15f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x15f1…160a Line {l1=0x17, l2=» WRITELN('SORTKUNDE');«, l3=0x17}
0x160a…1624 Line {l1=0x18, l2=» FIL:='ALISTE:P1:30:K';«, l3=0x18}
0x1624…1635 Line {l1=0x0f, l2=» RESET(T,FIL);«, l3=0x0f}
0x1635…1650 Line {l1=0x19, l2=» FIL:='WORK000:P1:30:K';«, l3=0x19}
0x1650…1673 Line {l1=0x21, l2=» FILLCHAR(T^.KEY(1),26,CHR(32));«, l3=0x21}
0x1673…1695 Line {l1=0x20, l2=» FILLCHAR(OKEY(1),26,CHR(126));«, l3=0x20}
0x1695…169e Line {l1=0x07, l2=»NRR:=0;«, l3=0x07}
0x169e…16ac Line {l1=0x0c, l2=» SORT(NRR);«, l3=0x0c}
0x16ac…16b9 Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x16b9…16d4 Line {l1=0x19, l2=» FIL:='A1LISTE:P1:30:K';«, l3=0x19}
0x16d4…16e7 Line {l1=0x11, l2=» REWRITE(T,FIL);«, l3=0x11}
0x16e7…1702 Line {l1=0x19, l2=» FIL:='WORK000:P1:30:K';«, l3=0x19}
0x1702…1724 Line {l1=0x20, l2=» FILLCHAR(OKEY(1),26,CHR(126));«, l3=0x20}
0x1724…1732 Line {l1=0x0c, l2=» FLET(NRR);«, l3=0x0c}
0x1732…174d Line {l1=0x19, l2=» FIL:='A1LISTE:P1:30:K';«, l3=0x19}
0x174d…175e Line {l1=0x0f, l2=» RESET(T,FIL);«, l3=0x0f}
0x175e…1768 Line {l1=0x08, l2=» PRINT;«, l3=0x08}
0x1768…1783 Line {l1=0x19, l2=» FIL:='PROCSTAT:P2:0:I';«, l3=0x19}
0x1783…178c Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x178c…1796 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1796…17ae Line {l1=0x16, l2=» REWRITE(NRPF,FIL);«, l3=0x16}
0x17ae…17c0 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x17c0…17d5 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x17d5…17de Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x17de…17ec Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x17ec…17fc Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x17fc…180d Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x180d…181b Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x181b…1825 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1825…1838 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x1838…186d Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x186d…187a Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x187a…1883 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x1883…18a1 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x18a1…18b1 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x18b1…18ba Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x18ba…18cf Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x18cf…18dd Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x18dd…18ed Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x18ed…1913 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1913…1919 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1919…1920 00 00 41 59 20 28 31 ┆ AY (1┆
0x1920…1940 2e 2e 33 30 29 20 4f 46 20 43 48 41 52 3b 2a 28 20 20 20 20 20 20 20 41 44 52 3a 50 41 43 4b 45 ┆..30) OF CHAR;*( ADR:PACKE┆
0x1940…1960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1f…]