|
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: 28128 (0x6de0)
Types: TextFile
Notes: Mikados_K
Names: »2EDITFIL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »2EDITFIL.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-,IEXCOMCOP*)
(*$IIOPEN*)
(*$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
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^.EXPORTØ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);
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…0605 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0605…0613 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
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…070f Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x070f…0727 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x0727…0757 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x0757…075a Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x075d…0779 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x0779…0793 Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x0793…0796 Line {l1=0x01, l2=» «, l3=0x01}
0x0796…07b3 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x07b3…07ce Line {l1=0x19, l2=» REWRITE(SEXPFIL,FNAVN);«, l3=0x19}
0x07ce…07d1 Line {l1=0x01, l2=» «, l3=0x01}
0x07d1…07e1 Line {l1=0x0e, l2=» GET(EXPFIL);«, l3=0x0e}
0x07e1…081a Line {l1=0x37, l2=» WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x081a…0823 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0823…082e Line {l1=0x09, l2=» J:=1;«, l3=0x09}
0x082e…083a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x083a…0853 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x0853…0876 Line {l1=0x21, l2=» WITH EXPFIL^.ORDRELIN(I) DO«, l3=0x21}
0x0876…088e Line {l1=0x16, l2=» IF VNR(1)>1 THEN«, l3=0x16}
0x088e…089b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x089b…08bc Line {l1=0x1f, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x1f}
0x08bc…08df Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x08df…090e Line {l1=0x2d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2d}
0x090e…092b Line {l1=0x1b, l2=» WITH TOLDORDR(J) DO«, l3=0x1b}
0x092b…093a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x093a…095f Line {l1=0x23, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x23}
0x095f…0983 Line {l1=0x22, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x22}
0x0983…09ab Line {l1=0x26, l2=» PLUOLIN:=EXPFIL^.ORDRELIN(I)«, l3=0x26}
0x09ab…09b9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x09b9…09c9 Line {l1=0x0e, l2=» J:=J+1«, l3=0x0e}
0x09c9…09d5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09d5…0a0e Line {l1=0x37, l2=» IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0«, l3=0x37}
0x0a0e…0a1e Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0a1e…0a2b Line {l1=0x0b, l2=» J:=J-1;«, l3=0x0b}
0x0a2b…0a44 Line {l1=0x17, l2=» IF J>60 THEN ERROR;«, l3=0x17}
0x0a44…0a5a Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0a5a…0a65 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a65…0a72 Line {l1=0x0b, l2=» K:=I;«, l3=0x0b}
0x0a72…0a8c Line {l1=0x18, l2=» FOR L:=I+1 TO J DO«, l3=0x18}
0x0a8c…0ac5 Line {l1=0x37, l2=» IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR«, l3=0x37}
0x0ac5…0aff Line {l1=0x38, l2=» ((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND«, l3=0x38}
0x0aff…0b41 Line {l1=0x40, l2=» (TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;«, l3=0x40}
0x0b41…0b55 Line {l1=0x12, l2=» IF K<>I THEN«, l3=0x12}
0x0b55…0b62 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b62…0b81 Line {l1=0x1d, l2=» TOLDLIN:=TOLDORDR(I);«, l3=0x1d}
0x0b81…0ba4 Line {l1=0x21, l2=» TOLDORDR(I):=TOLDORDR(K);«, l3=0x21}
0x0ba4…0bc2 Line {l1=0x1c, l2=» TOLDORDR(K):=TOLDLIN«, l3=0x1c}
0x0bc2…0bcd Line {l1=0x09, l2=» END«, l3=0x09}
0x0bcd…0bd7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0bd7…0bed Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0bed…0bf8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bf8…0c14 Line {l1=0x1a, l2=» IF I MOD 15 = 1 THEN«, l3=0x1a}
0x0c14…0c21 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c21…0c45 Line {l1=0x22, l2=» IF I<>1 THEN PUT(SEXPFIL);«, l3=0x22}
0x0c45…0c6b Line {l1=0x24, l2=» SEXPFIL^.HEAD:=EXPFIL^.HEAD;«, l3=0x24}
0x0c6b…0c97 Line {l1=0x2a, l2=» SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;«, l3=0x2a}
0x0c97…0cbf Line {l1=0x26, l2=» SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;«, l3=0x26}
0x0cbf…0ce7 Line {l1=0x26, l2=» SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;«, l3=0x26}
0x0ce7…0d13 Line {l1=0x2a, l2=» SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);«, l3=0x2a}
0x0d13…0d3f Line {l1=0x2a, l2=» SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);«, l3=0x2a}
0x0d3f…0d6d Line {l1=0x2c, l2=» SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);«, l3=0x2c}
0x0d6d…0d9b Line {l1=0x2c, l2=» SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);«, l3=0x2c}
0x0d9b…0dcc Line {l1=0x2f, l2=» SEXPFIL^.TRANSPORTØR:=EXPFIL^.EXPORTØR;«, l3=0x2f}
0x0dcc…0df6 Line {l1=0x28, l2=» SEXPFIL^.AKOLLI:=EXPFIL^.AKOLLI;«, l3=0x28}
0x0df6…0e1e Line {l1=0x26, l2=» SEXPFIL^.KODE8:=EXPFIL^.KODE8;«, l3=0x26}
0x0e1e…0e46 Line {l1=0x26, l2=» SEXPFIL^.KODE9:=EXPFIL^.KODE9;«, l3=0x26}
0x0e46…0e78 Line {l1=0x30, l2=» SEXPFIL^.BRUTTOVÆGT:=EXPFIL^.BRUTTOVÆGT;«, l3=0x30}
0x0e78…0ea5 Line {l1=0x2b, l2=» IF J-I<15 THEN SEXPFIL^.HEAD(5):=99«, l3=0x2b}
0x0ea5…0ed4 Line {l1=0x2d, l2=» ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1«, l3=0x2d}
0x0ed4…0ee0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0ee0…0f20 Line {l1=0x3e, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN«, l3=0x3e}
0x0f20…0f2a Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f2a…0f37 Line {l1=0x0b, l2=» I:=J+1;«, l3=0x0b}
0x0f37…0f53 Line {l1=0x1a, l2=» WHILE I MOD 15 <> 1 DO«, l3=0x1a}
0x0f53…0f5e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f5e…0f95 Line {l1=0x35, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;«, l3=0x35}
0x0f95…0fa1 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x0fa1…0fab Line {l1=0x08, l2=» END;«, l3=0x08}
0x0fab…0fbe Line {l1=0x11, l2=» PUT(SEXPFIL);«, l3=0x11}
0x0fbe…0fcf Line {l1=0x0f, l2=» GET(EXPFIL)«, l3=0x0f}
0x0fcf…0fd7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0fd7…0fef Line {l1=0x16, l2=» SEXPFIL^.HEAD(1):=0;«, l3=0x16}
0x0fef…1007 Line {l1=0x16, l2=» SEXPFIL^.HEAD(2):=0;«, l3=0x16}
0x1007…1018 Line {l1=0x0f, l2=» PUT(SEXPFIL);«, l3=0x0f}
0x1018…102e Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x102e…1058 Line {l1=0x28, l2=» CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);«, l3=0x28}
0x1058…105e Line {l1=0x04, l2=»END.«, l3=0x04}
0x105e…1060 00 00 ┆ ┆
0x1060…1080 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x29a…]
0x63c0…63e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 3b ┆ccccccccccccccccccccccccccccccc;┆
0x63e0…6400 11 2e 20 20 49 46 20 46 4e 41 56 4e 3c 3e 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 ┆ . IF FNAVN<>' '┆
0x6400…6420 20 54 48 45 4e 20 53 4b 52 49 56 44 45 53 43 3b 2e 01 20 01 01 20 01 04 45 4e 44 2e 04 00 00 20 ┆ THEN SKRIVDESC;. END. ┆
0x6420…6440 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆ 0+ -3 0+ 0+┆
0x6440…6460 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 ┆ 0+ 0+ 0+ 3┆
0x6460…6480 2d 06 90 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 ┆- 0+ 0+ ┆
0x6480…64a0 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 ┆ 0+ 0+ -3 0+ ┆
0x64a0…64c0 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x64c0…64e0 30 2b 00 33 2d 06 94 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 ┆0+ 3- 0+ 0+ ┆
0x64e0…6500 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 ┆ 0+ 0+ -3 0+ ┆
0x6500…6520 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x6520…6540 20 20 20 20 30 2b 00 33 2d 06 98 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 ┆ 0+ 3- 0+ 0┆
0x6540…6560 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 ┆+ 0+ 0+ -3 ┆
0x6560…6580 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆0+ 0+ 0+ 0+┆
0x6580…65a0 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 9c 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 ┆ 0+ 3- 0+ ┆
0x65a0…65c0 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 ┆ 0+ 0+ 0+ -3 ┆
0x65c0…65e0 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x65e0…6600 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a0 00 00 20 20 20 20 20 20 20 20 30 2b 20 ┆ 0+ 0+ 3- 0+ ┆
0x6600…6620 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 ┆ 0+ 0+ 0+ -3┆
0x6620…6640 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 ┆ 0+ 0+ 0+ ┆
0x6640…6660 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a4 00 00 20 20 20 20 20 20 20 ┆ 0+ 0+ 3- ┆
0x6660…6680 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 ┆ 0+ 0+ 0+ 0┆
0x6680…66a0 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 ┆+ -3 0+ 0+ ┆
0x66a0…66c0 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a8 00 00 20 20 20 ┆0+ 0+ 0+ 3- ┆
0x66c0…66e0 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x66e0…6700 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 ┆ 0+ -3 0+ 0+ ┆
0x6700…6720 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 ac 00 ┆ 0+ 0+ 0+ 3- ┆
0x6720…6740 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 ┆ 0+ 0+ 0+ ┆
0x6740…6760 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆ 0+ -3 0+ 0+┆
0x6760…6780 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 ┆ 0+ 0+ 0+ 3┆
0x6780…67a0 2d 07 ca 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 ┆- 0+ 0+ ┆
0x67a0…67c0 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 4e 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 ┆ 0+ 0+ -N 0+ ┆
0x67c0…67e0 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 ┆ 0+ 0+ ┆
0x67e0…6800 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 4e 4e ┆ 0+ 0+ 0+ NN┆
0x6800…6820 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 20 20 20 20 20 20 ┆ 0+ ,00+ ┆
0x6820…6840 20 20 2c 30 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b ┆ ,00+ ,00+ 0+┆
0x6840…6860 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 4e 34 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 ┆ 0+ N4 0+ ┆
0x6860…6880 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 ┆ 0+ 0+ ┆
0x6880…68a0 20 30 2b 00 34 20 2c 30 30 2b 00 20 20 20 20 20 38 39 31 2c 30 30 2d 00 20 20 20 20 20 36 37 31 ┆ 0+ 4 ,00+ 891,00- 671┆
0x68a0…68c0 2c 34 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 4e 34 20 20 20 20 20 32 34 38 2c 30 30 2d ┆,40+ ,00+ N4 248,00-┆
0x68c0…68e0 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 31 33 30 30 2c 31 34 2b 00 20 20 20 20 20 ┆ 0+ 1300,14+ ┆
0x68e0…6900 33 36 34 2c 30 35 2b 00 34 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆364,05+ 4ccccccccccccccccccccccc┆
0x6900…6920 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x69c0…69e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 55 ┆cccccccccccccccccccccccccccccccU┆
0x69e0…6a00 53 49 4d 55 44 53 4b 52 4b 41 03 0a 00 97 00 08 00 00 00 97 00 08 41 6c 00 fe 00 49 4d 55 44 53 ┆SIMUDSKRKA Al IMUDS┆
0x6a00…6a20 4d 30 31 30 30 20 52 45 4d 20 53 59 53 54 45 4d 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 ┆M0100 REM SYSTEM TEKNIK A/S : BU┆
0x6a20…6a40 44 47 45 54 53 49 4d 55 4c 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆DGETSIMULERING *****************┆
0x6a40…6a60 20 52 32 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 4d 34 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆ R2.1 ********M40110 REM *******┆
0x6a60…6a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 55 44 53 4b 52 49 56 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*********** UDSKRIV **********┆
0x6a80…6aa0 2a 2a 2a 2a 34 36 30 31 32 30 20 49 4e 54 45 47 45 52 20 4f 4b 2c 4e 52 2c 55 44 2c 4a 2c 4c 49 ┆****460120 INTEGER OK,NR,UD,J,LI┆
0x6aa0…6ac0 4e 49 45 2c 46 52 41 2c 54 49 4c 2c 49 2c 4d 44 2c 41 28 31 33 29 2c 42 28 31 33 29 36 3c 30 31 ┆NIE,FRA,TIL,I,MD,A(13),B(13)6<01┆
0x6ac0…6ae0 33 30 20 49 4e 54 45 47 45 52 20 42 31 2c 42 32 2c 42 33 2c 42 34 2c 42 35 2c 42 36 2c 42 37 2c ┆30 INTEGER B1,B2,B3,B4,B5,B6,B7,┆
0x6ae0…6b00 42 38 2c 42 39 2c 42 31 30 2c 42 31 31 2c 42 31 32 2c 42 31 33 2c 49 41 4c 54 3c 37 30 31 34 30 ┆B8,B9,B10,B11,B12,B13,IALT<70140┆
0x6b00…6b20 20 44 42 4c 52 45 41 4c 20 44 31 2c 44 32 2c 44 33 2c 44 34 2c 44 35 2c 44 36 2c 44 37 2c 44 38 ┆ DBLREAL D1,D2,D3,D4,D5,D6,D7,D8┆
0x6b20…6b40 2c 44 39 2c 44 31 30 2c 44 31 31 2c 44 31 32 2c 44 31 33 37 16 30 31 35 30 20 44 42 4c 52 45 41 ┆,D9,D10,D11,D12,D137 0150 DBLREA┆
0x6b40…6b60 4c 20 41 42 45 4c 2c 42 42 45 4c 16 49 30 31 36 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c ┆L ABEL,BBEL I0160 DIM SV$(2),FIL┆
0x6b60…6b80 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 31 37 29 2c 4d 24 28 31 29 2c 4b 4f 44 45 52 24 28 ┆N$(17),DATAPL$(17),M$(1),KODER$(┆
0x6b80…6ba0 31 30 29 2c 4e 41 56 4e 24 28 33 30 29 2c 54 41 42 24 28 35 30 29 49 4a 30 31 37 30 20 44 49 4d ┆10),NAVN$(30),TAB$(50)IJ0170 DIM┆
0x6ba0…6bc0 20 5d 46 24 28 31 29 2c 49 4e 44 45 58 24 28 31 30 30 30 29 2c 4f 54 58 54 31 24 28 33 30 29 2c ┆ ÅF$(1),INDEX$(1000),OTXT1$(30),┆
0x6bc0…6be0 4f 54 58 54 32 41 24 28 35 30 29 2c 4f 54 58 54 32 42 24 28 35 30 29 2c 4f 54 58 54 33 24 28 38 ┆OTXT2A$(50),OTXT2B$(50),OTXT3$(8┆
0x6be0…6c00 30 29 4a 30 30 31 38 30 20 44 49 4d 20 46 4e 52 24 28 38 29 2c 4b 56 54 24 28 31 29 2c 46 49 4c ┆0)J00180 DIM FNR$(8),KVT$(1),FIL┆
0x6c00…6c20 4b 54 4f 24 28 31 37 29 2c 50 52 47 52 50 4c 24 28 31 37 29 30 0b 30 31 39 30 20 43 4c 45 41 52 ┆KTO$(17),PRGRPL$(17)0 0190 CLEAR┆
0x6c20…6c40 20 0b 39 30 32 30 30 20 4f 54 58 54 32 41 24 3d 22 20 20 20 20 20 30 20 20 20 20 20 31 20 20 20 ┆ 90200 OTXT2A$=" 0 1 ┆
0x6c40…6c60 20 20 32 20 20 20 20 20 33 20 20 20 20 20 34 20 20 20 20 20 35 20 20 20 20 20 36 22 39 3a 30 32 ┆ 2 3 4 5 6"9:02┆
0x6c60…6c80 31 30 20 4f 54 58 54 32 42 24 3d 22 20 20 20 20 20 37 20 20 20 20 20 38 20 20 20 20 20 39 20 20 ┆10 OTXT2B$=" 7 8 9 ┆
0x6c80…6ca0 20 20 31 30 20 20 20 20 31 31 20 20 20 20 31 32 20 20 41 66 73 74 2e 22 3a 33 30 32 32 30 20 4f ┆ 10 11 12 Afst.":30220 O┆
0x6ca0…6cc0 54 58 54 33 24 3d 22 20 20 20 20 20 30 20 20 20 20 20 31 20 20 20 20 20 32 20 20 20 20 20 33 20 ┆TXT3$=" 0 1 2 3 ┆
0x6cc0…6ce0 20 20 20 20 34 20 20 41 66 73 74 2e 22 33 12 30 32 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a ┆ 4 Afst."3 0230 DATAPL$="TF:┆
0x6ce0…6d00 22 12 12 30 32 34 30 20 50 52 47 52 50 4c 24 3d 22 54 46 3a 22 12 1c 30 32 35 30 20 46 49 4c 4b ┆" 0240 PRGRPL$="TF:" 0250 FILK┆
0x6d00…6d20 54 4f 24 3d 44 41 54 41 50 4c 24 2b 22 4b 4f 4e 54 49 22 1c 0b 30 32 36 30 20 4d 24 3d 22 52 22 ┆TO$=DATAPL$+"KONTI" 0260 M$="R"┆
0x6d20…6d40 0b 1e 30 32 37 30 20 45 58 45 43 20 5d 42 4e 45 5f 46 49 4c 28 46 49 4c 4b 54 4f 24 2c 4d 24 29 ┆ 0270 EXEC ÅBNE_FIL(FILKTO$,M$)┆
0x6d40…6d60 1e 0b 30 32 38 30 20 4d 24 3d 22 52 22 0b 1a 30 32 39 30 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c ┆ 0280 M$="R" 0290 FILN$=DATAPL┆
0x6d60…6d80 24 2b 22 49 4e 44 45 58 22 1a 1c 30 33 30 30 20 45 58 45 43 20 5d 42 4e 45 5f 46 49 4c 28 46 49 ┆$+"INDEX" 0300 EXEC ÅBNE_FIL(FI┆
0x6d80…6da0 4c 4e 24 2c 4d 24 29 1c 13 30 33 31 30 20 46 4f 52 20 4e 52 3d 31 20 54 4f 20 32 30 13 16 30 33 ┆LN$,M$) 0310 FOR NR=1 TO 20 03┆
0x6da0…6dc0 32 30 20 47 45 54 20 46 49 4c 4e 24 2c 4e 52 3a 54 41 42 24 16 12 30 33 33 30 20 49 3d 28 4e 52 ┆20 GET FILN$,NR:TAB$ 0330 I=(NR┆
0x6dc0…6de0 2d 31 29 2a 35 30 2b 31 12 16 30 33 34 30 20 49 4e 44 45 58 24 28 49 3a 35 30 29 3d 54 41 42 00 ┆-1)*50+1 0340 INDEX$(I:50)=TAB ┆