|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »QOLDSORT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QOLDSORT.K«
PROGRAM TOLDSORT;
CONST TOPMARG=11; LMARG=9; DK=8;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
FAKPOST= RECORD
FORSEND:INTEGER;
EMBAL,FRAGT:REAL;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;
TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;
KODE8,KODE9,BRUTTOVÆGT:INTEGER;
ORDRELIN: ARRAY(1..15) OF PLUOLINE
END;
FAKFILE=FILE OF FAKPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
TOLDLINE=RECORD
TOLDPNR:REAL;
OPRLAND:INTEGER;
PLUOLIN:PLUOLINE
END;
VAR FVAR : ISF;
SEXPFIL,EXPFIL :FAKFILE;
VZ:VZONE;
VARE:VPOST;
FNAVN:STRING(20);
TOLDORDR:ARRAY (1..60) OF TOLDLINE;
TOLDLIN:TOLDLINE;
IER,I,J,K,L
:INTEGER;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IIOPEN*)
(*$IEXCOMCOP*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
BEGIN
WRITELN('START TOLDSORT');
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='EXPREG:P2:30:I';
REWRITE(EXPFIL,FNAVN);
FNAVN:='SEXPREG:P2:30:I';
REWRITE(SEXPFIL,FNAVN);
GET(EXPFIL);
WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO
BEGIN
J:=1;
REPEAT
FOR I:=1 TO 15 DO
WITH EXPFIL^.ORDRELIN(I) DO
IF VNR(1)>1 THEN
BEGIN
VARE.HELTAL(1):=VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
WITH TOLDORDR(J) DO
BEGIN
TOLDPNR:=VARE.REELTAL(3);
OPRLAND:=VARE.HELTAL(3);
PLUOLIN:=EXPFIL^.ORDRELIN(I)
END;
J:=J+1
END;
IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0
UNTIL I=0;
J:=J-1;
IF J>60 THEN ERROR;
FOR I:=1 TO J DO
BEGIN
K:=I;
FOR L:=I+1 TO J DO
IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR
((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND
(TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;
IF K<>I THEN
BEGIN
TOLDLIN:=TOLDORDR(I);
TOLDORDR(I):=TOLDORDR(K);
TOLDORDR(K):=TOLDLIN
END
END;
FOR I:=1 TO J DO
BEGIN
IF I MOD 15 = 1 THEN
BEGIN
IF I<>1 THEN PUT(SEXPFIL);
SEXPFIL^.HEAD:=EXPFIL^.HEAD;
SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;
SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;
SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;
SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);
SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);
SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);
SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);
SEXPFIL^.TRANSPORTØR:=EXPFIL^.TRANSPORTØR;
SEXPFIL^.AKOLLI:=EXPFIL^.AKOLLI;
SEXPFIL^.KODE8:=EXPFIL^.KODE8;
SEXPFIL^.KODE9:=EXPFIL^.KODE9;
SEXPFIL^.BRUTTOVÆGT:=EXPFIL^.BRUTTOVÆGT;
IF J-I<15 THEN SEXPFIL^.HEAD(5):=99
ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1
END;
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN
END;
I:=J+1;
WHILE I MOD 15 <> 1 DO
BEGIN
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;
I:=I+1
END;
PUT(SEXPFIL);
GET(EXPFIL)
END;
SEXPFIL^.HEAD(1):=0;
SEXPFIL^.HEAD(2):=0;
PUT(SEXPFIL);
ICLOSE(VZ.H,FVAR);
WRITELN('SLUT TOLDSORT');
CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM TOLDSORT;«, l3=0x11}
0x0013…0035 Line {l1=0x20, l2=»CONST TOPMARG=11; LMARG=9; DK=8;«, l3=0x20}
0x0035…0045 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0045…0054 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0054…006a Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x006a…0094 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0094…00dd Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00dd…00fe Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00fe…0139 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0139…015a Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x015a…0182 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0182…01c8 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01c8…020c Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x020c…0214 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0214…0228 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0228…024f Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x024f…0270 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0270…0284 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0284…028c Line {l1=0x06, l2=» END;«, l3=0x06}
0x028c…029d Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x029d…02b6 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x02b6…02d0 Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x02d0…02f7 Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x02f7…0332 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0332…036e Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x036e…03a7 Line {l1=0x37, l2=» TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;«, l3=0x37}
0x03a7…03cf Line {l1=0x26, l2=» KODE8,KODE9,BRUTTOVÆGT:INTEGER;«, l3=0x26}
0x03cf…03fa Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x03fa…0400 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0400…041a Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x041a…042a Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x042a…043e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x043e…0462 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0462…046a Line {l1=0x06, l2=» END;«, l3=0x06}
0x046a…046e Line {l1=0x02, l2=» «, l3=0x02}
0x046e…047f Line {l1=0x0f, l2=»TOLDLINE=RECORD«, l3=0x0f}
0x047f…0495 Line {l1=0x14, l2=» TOLDPNR:REAL;«, l3=0x14}
0x0495…04ae Line {l1=0x17, l2=» OPRLAND:INTEGER;«, l3=0x17}
0x04ae…04c7 Line {l1=0x17, l2=» PLUOLIN:PLUOLINE«, l3=0x17}
0x04c7…04cd Line {l1=0x04, l2=»END;«, l3=0x04}
0x04cd…04ec Line {l1=0x1d, l2=» VAR FVAR : ISF;«, l3=0x1d}
0x04ec…050e Line {l1=0x20, l2=» SEXPFIL,EXPFIL :FAKFILE;«, l3=0x20}
0x050e…0521 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0521…0536 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0536…0551 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0551…057e Line {l1=0x2b, l2=» TOLDORDR:ARRAY (1..60) OF TOLDLINE;«, l3=0x2b}
0x057e…0599 Line {l1=0x19, l2=» TOLDLIN:TOLDLINE;«, l3=0x19}
0x0599…05ae Line {l1=0x13, l2=» IER,I,J,K,L«, l3=0x13}
0x05ae…05d1 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x05d1…05e8 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x05e8…05f1 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x05f1…0602 Line {l1=0x0f, l2=» (*$R-,IIOPEN*)«, l3=0x0f}
0x0602…0613 Line {l1=0x0f, l2=» (*$IEXCOMCOP*)«, l3=0x0f}
0x0613…0624 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0624…0635 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0635…0644 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0644…0653 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0653…0660 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0660…0673 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0673…067b Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x067b…06a0 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x06a0…06b7 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x06b7…06d3 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x06d3…06e2 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x06e2…06e9 Line {l1=0x05, l2=» END;«, l3=0x05}
0x06e9…06f0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06f0…070e Line {l1=0x1c, l2=» WRITELN('START TOLDSORT');«, l3=0x1c}
0x070e…072d Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x072d…0745 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x0745…0775 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x0775…0778 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x077b…0797 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x0797…07b1 Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x07b1…07b4 Line {l1=0x01, l2=» «, l3=0x01}
0x07b4…07d1 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x07d1…07ec Line {l1=0x19, l2=» REWRITE(SEXPFIL,FNAVN);«, l3=0x19}
0x07ec…07ef Line {l1=0x01, l2=» «, l3=0x01}
0x07ef…07ff Line {l1=0x0e, l2=» GET(EXPFIL);«, l3=0x0e}
0x07ff…0838 Line {l1=0x37, l2=» WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x0838…0841 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0841…084c Line {l1=0x09, l2=» J:=1;«, l3=0x09}
0x084c…0858 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0858…0871 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x0871…0894 Line {l1=0x21, l2=» WITH EXPFIL^.ORDRELIN(I) DO«, l3=0x21}
0x0894…08ac Line {l1=0x16, l2=» IF VNR(1)>1 THEN«, l3=0x16}
0x08ac…08b9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x08b9…08da Line {l1=0x1f, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x1f}
0x08da…08fd Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x08fd…092c Line {l1=0x2d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2d}
0x092c…0949 Line {l1=0x1b, l2=» WITH TOLDORDR(J) DO«, l3=0x1b}
0x0949…0958 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0958…097d Line {l1=0x23, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x23}
0x097d…09a1 Line {l1=0x22, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x22}
0x09a1…09c9 Line {l1=0x26, l2=» PLUOLIN:=EXPFIL^.ORDRELIN(I)«, l3=0x26}
0x09c9…09d7 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x09d7…09e7 Line {l1=0x0e, l2=» J:=J+1«, l3=0x0e}
0x09e7…09f3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09f3…0a2c Line {l1=0x37, l2=» IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0«, l3=0x37}
0x0a2c…0a3c Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0a3c…0a49 Line {l1=0x0b, l2=» J:=J-1;«, l3=0x0b}
0x0a49…0a62 Line {l1=0x17, l2=» IF J>60 THEN ERROR;«, l3=0x17}
0x0a62…0a78 Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0a78…0a83 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a83…0a90 Line {l1=0x0b, l2=» K:=I;«, l3=0x0b}
0x0a90…0aaa Line {l1=0x18, l2=» FOR L:=I+1 TO J DO«, l3=0x18}
0x0aaa…0ae3 Line {l1=0x37, l2=» IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR«, l3=0x37}
0x0ae3…0b1d Line {l1=0x38, l2=» ((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND«, l3=0x38}
0x0b1d…0b5f Line {l1=0x40, l2=» (TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;«, l3=0x40}
0x0b5f…0b73 Line {l1=0x12, l2=» IF K<>I THEN«, l3=0x12}
0x0b73…0b80 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b80…0b9f Line {l1=0x1d, l2=» TOLDLIN:=TOLDORDR(I);«, l3=0x1d}
0x0b9f…0bc2 Line {l1=0x21, l2=» TOLDORDR(I):=TOLDORDR(K);«, l3=0x21}
0x0bc2…0be0 Line {l1=0x1c, l2=» TOLDORDR(K):=TOLDLIN«, l3=0x1c}
0x0be0…0beb Line {l1=0x09, l2=» END«, l3=0x09}
0x0beb…0bf5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0bf5…0c0b Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0c0b…0c16 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0c16…0c32 Line {l1=0x1a, l2=» IF I MOD 15 = 1 THEN«, l3=0x1a}
0x0c32…0c3f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c3f…0c63 Line {l1=0x22, l2=» IF I<>1 THEN PUT(SEXPFIL);«, l3=0x22}
0x0c63…0c89 Line {l1=0x24, l2=» SEXPFIL^.HEAD:=EXPFIL^.HEAD;«, l3=0x24}
0x0c89…0cb5 Line {l1=0x2a, l2=» SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;«, l3=0x2a}
0x0cb5…0cdd Line {l1=0x26, l2=» SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;«, l3=0x26}
0x0cdd…0d05 Line {l1=0x26, l2=» SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;«, l3=0x26}
0x0d05…0d31 Line {l1=0x2a, l2=» SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);«, l3=0x2a}
0x0d31…0d5d Line {l1=0x2a, l2=» SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);«, l3=0x2a}
0x0d5d…0d8b Line {l1=0x2c, l2=» SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);«, l3=0x2c}
0x0d8b…0db9 Line {l1=0x2c, l2=» SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);«, l3=0x2c}
0x0db9…0ded Line {l1=0x32, l2=» SEXPFIL^.TRANSPORTØR:=EXPFIL^.TRANSPORTØR;«, l3=0x32}
0x0ded…0e17 Line {l1=0x28, l2=» SEXPFIL^.AKOLLI:=EXPFIL^.AKOLLI;«, l3=0x28}
0x0e17…0e3f Line {l1=0x26, l2=» SEXPFIL^.KODE8:=EXPFIL^.KODE8;«, l3=0x26}
0x0e3f…0e67 Line {l1=0x26, l2=» SEXPFIL^.KODE9:=EXPFIL^.KODE9;«, l3=0x26}
0x0e67…0e99 Line {l1=0x30, l2=» SEXPFIL^.BRUTTOVÆGT:=EXPFIL^.BRUTTOVÆGT;«, l3=0x30}
0x0e99…0ec6 Line {l1=0x2b, l2=» IF J-I<15 THEN SEXPFIL^.HEAD(5):=99«, l3=0x2b}
0x0ec6…0ef5 Line {l1=0x2d, l2=» ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1«, l3=0x2d}
0x0ef5…0f01 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0f01…0f41 Line {l1=0x3e, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN«, l3=0x3e}
0x0f41…0f4b Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f4b…0f58 Line {l1=0x0b, l2=» I:=J+1;«, l3=0x0b}
0x0f58…0f74 Line {l1=0x1a, l2=» WHILE I MOD 15 <> 1 DO«, l3=0x1a}
0x0f74…0f7f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f7f…0fb6 Line {l1=0x35, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;«, l3=0x35}
0x0fb6…0fc2 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x0fc2…0fcc Line {l1=0x08, l2=» END;«, l3=0x08}
0x0fcc…0fdf Line {l1=0x11, l2=» PUT(SEXPFIL);«, l3=0x11}
0x0fdf…0ff0 Line {l1=0x0f, l2=» GET(EXPFIL)«, l3=0x0f}
0x0ff0…0ff8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ff8…1010 Line {l1=0x16, l2=» SEXPFIL^.HEAD(1):=0;«, l3=0x16}
0x1010…1028 Line {l1=0x16, l2=» SEXPFIL^.HEAD(2):=0;«, l3=0x16}
0x1028…1039 Line {l1=0x0f, l2=» PUT(SEXPFIL);«, l3=0x0f}
0x1039…104f Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x104f…106c Line {l1=0x1b, l2=» WRITELN('SLUT TOLDSORT');«, l3=0x1b}
0x106c…1096 Line {l1=0x28, l2=» CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);«, l3=0x28}
0x1096…109c Line {l1=0x04, l2=»END.«, l3=0x04}
0x109c…10a0 00 00 00 00 ┆ ┆
0x10a0…10c0 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 ┆ ┆
[…0x16…]