|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »DISPLIST.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »DISPLIST.K«
PROGRAM DISPONERINGSLISTE;
(*$IISFHEAD*)
VPOST=RECORD
A:AR;
VARENR1,LVRNDØR,OPRLAND,PAKENHED,
FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,
DÆKGRASÅ,ANAFTILG:INTEGER;
NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;
PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL
END;
LEVPOST=RECORD
A:AR;
NR,
SBESDAT1,SBESDAT2,
LAND1,LAND2:INTEGER;
KOSTPFAK:ARRAY(1..5) OF INTEGER;
ÅKØB,SÅKØB,SALDO:REAL;
NAVN1:PACKED ARRAY (1..40) OF CHAR;
NAVN2,
ADR1,
ADR2:PACKED ARRAY (1..30) OF CHAR;
BETABET,
LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;
POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;
TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;
END;
LEVZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..382) OF INTEGER
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FLEV,F:ISF;
NRPF,CF:NPFILE;
VZ:ZONE;
LZ:LEVZONE;
LEVER:LEVPOST;
VARTAB:ARRAY (1..2,1..1000) OF INTEGER;
FILNAVN2:STRING(20);
L,M,J,K,IER,I,II:INTEGER;
MAGI:REAL;
QUQ:^INTEGER;
VARE:VPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
WRITELN('ICLOSE ',IER);
STOP
END;
PROCEDURE HEAD;
BEGIN
WRITELN(LIST,'D I S P O N E R I N G S - L I S T E');
WRITELN(LIST);
WRITELN(LIST,' ':10,'Disponible;Sidste køb: antal,dato;Magisk tal;');
WRITELN(LIST,' ':10,'Solgt i år;I ordre ;Disponible; Kostpris;');
WRITELN(LIST);
END;
PROCEDURE DOIT;
BEGIN
WITH VARE DO
BEGIN
VARENR1:=0;
I:=1;
NEXTREC(VZ.H,F,A);
REPEAT
VARTAB(1,I):=VARENR1;
VARTAB(2,I):=LVRNDØR;
I:=I+1;
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
IF IER<>-2 THEN ERROR;
I:=I-1;
FOR J:=1 TO I DO
BEGIN
M:=J;
FOR K:=J+1 TO I DO
BEGIN
IF (VARTAB(2,K)<VARTAB(2,M)) OR
((VARTAB(2,K)=VARTAB(2,M)) AND (VARTAB(1,K)<VARTAB(1,M))) THEN M:=K
END;
IF M>J THEN
BEGIN
L:=VARTAB(1,M);VARTAB(1,M):=VARTAB(1,J);VARTAB(1,J):=L;
L:=VARTAB(2,M);VARTAB(2,M):=VARTAB(2,J);VARTAB(2,J):=L
END
END;
II:=I;
REPEAT
CLEARSCREEN;
I:=II;
GOTOXY(1,1);
WRITELN('Leverandørnr, 0 for alle, -1 for STOP');
REPEAT
GOTOXY(39,1);READLN;READ(K)
UNTIL (IORESULT=0);
IF K>=0 THEN
BEGIN
IF K=0 THEN
J:=1
ELSE
BEGIN
J:=0;
M:=1;
WHILE M<=I DO
BEGIN
IF J=0 THEN BEGIN IF VARTAB(2,M)=K THEN J:=M END
ELSE IF VARTAB(2,M)<>K THEN I:=M-1;
M:=M+1
END
END;
HEAD;
VARTAB(2,I+1):=VARTAB(2,I)+1;
IF J>0 THEN
WITH LEVER DO
REPEAT
NR:=VARTAB(2,J);
GETREC(LZ.H,FLEV,LEVER.A);
WRITE(LIST,NR:8);
IF IER<>0 THEN
IF IER<>-6 THEN ERROR ELSE
BEGIN
WRITELN(LIST,' FINDES IKKE');
WRITELN(LIST);
WHILE NR=VARTAB(2,J) DO J:=J+1;
END
ELSE
BEGIN
WRITELN(LIST,' ',NAVN1);
WRITELN(LIST,' ':10,ADR1,' ':10,LANDSBY1);
WRITELN(LIST,' ':10,POSTNR1);
WRITELN(LIST);
WRITELN(LIST,' ':10,KOSTPFAK(1):10,KOSTPFAK(2):10,KOSTPFAK(3):10,
KOSTPFAK(4):10,KOSTPFAK(5):10);
WRITELN(LIST);
WHILE NR=VARTAB(2,J) DO
BEGIN
VARENR1:=VARTAB(1,J);
GETREC(VZ.H,F,VARE.A);
IF (PRIMOLAG+FYSLAGER)*OMSIÅR<>0 THEN MAGI:=ASOLGTIÅ*200*DÆKBIDTD/
((PRIMOLAG+FYSLAGER)*OMSIÅR) ELSE MAGI:=0;
WRITELN(LIST,' ':10,VARENR1:4,' ':5,NAVN(2));
WRITELN(LIST,' ':10,FYSLAGER-RESAFLAG:10:-2,STASBEST:10:-2,
DATSBES1*10000.0+DATSBES2:10:-2,MAGI:12:-2);
WRITELN(LIST,' ':10,ASOLGTIÅ:10:-2,
IORDRE:10:-2,IORDRE-RAIORDRE:10:-2,
KOSTPRIS/100:12:2);
WRITELN(LIST);
J:=J+1
END;
WRITELN(LIST);
END;
UNTIL J>I;
END
UNTIL K<0
END;
END;
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);
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);
FILNAVN2:='REGVARE:P1:1137:I';
RESET(F,FILNAVN2);
IOPEN(VZ.H,F,LÆS);
FILNAVN2:='LEVERRG:P2:0000:I';
RESET(FLEV,FILNAVN2);
IOPEN(LZ.H,FLEV,LÆS);
IF IER<>0 THEN ERROR;
DOIT;
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001c Line {l1=0x1a, l2=»PROGRAM DISPONERINGSLISTE;«, l3=0x1a}
0x001c…002b Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x002b…0039 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x0039…0047 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0047…0071 Line {l1=0x28, l2=» VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x0071…00a7 Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x00a7…00ca Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x00ca…0104 Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x0104…014e Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x014e…0196 Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x0196…019c Line {l1=0x04, l2=»END;«, l3=0x04}
0x019c…01ad Line {l1=0x0f, l2=» LEVPOST=RECORD«, l3=0x0f}
0x01ad…01bc Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x01bc…01c9 Line {l1=0x0b, l2=» NR,«, l3=0x0b}
0x01c9…01e5 Line {l1=0x1a, l2=» SBESDAT1,SBESDAT2,«, l3=0x1a}
0x01e5…0203 Line {l1=0x1c, l2=» LAND1,LAND2:INTEGER;«, l3=0x1c}
0x0203…022d Line {l1=0x28, l2=» KOSTPFAK:ARRAY(1..5) OF INTEGER;«, l3=0x28}
0x022d…024d Line {l1=0x1e, l2=» ÅKØB,SÅKØB,SALDO:REAL;«, l3=0x1e}
0x024d…027a Line {l1=0x2b, l2=» NAVN1:PACKED ARRAY (1..40) OF CHAR;«, l3=0x2b}
0x027a…028a Line {l1=0x0e, l2=» NAVN2,«, l3=0x0e}
0x028a…0299 Line {l1=0x0d, l2=» ADR1,«, l3=0x0d}
0x0299…02c5 Line {l1=0x2a, l2=» ADR2:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x02c5…02d7 Line {l1=0x10, l2=» BETABET,«, l3=0x10}
0x02d7…0311 Line {l1=0x38, l2=» LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;«, l3=0x38}
0x0311…0349 Line {l1=0x36, l2=» POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;«, l3=0x36}
0x0349…037b Line {l1=0x30, l2=» TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;«, l3=0x30}
0x037b…0381 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0381…0392 Line {l1=0x0f, l2=» LEVZONE=RECORD«, l3=0x0f}
0x0392…03a6 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x03a6…03ca Line {l1=0x22, l2=» T:ARRAY(1..382) OF INTEGER«, l3=0x22}
0x03ca…03d2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03d2…03e0 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x03e0…03f3 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x03f3…0416 Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x0416…041d Line {l1=0x05, l2=» END;«, l3=0x05}
0x041d…042e Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x042e…044a Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x044a…0450 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0450…046a Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x046a…047e Line {l1=0x12, l2=»VAR FLEV,F:ISF;«, l3=0x12}
0x047e…0496 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0496…04a7 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x04a7…04bb Line {l1=0x12, l2=» LZ:LEVZONE;«, l3=0x12}
0x04bb…04d2 Line {l1=0x15, l2=» LEVER:LEVPOST;«, l3=0x15}
0x04d2…0502 Line {l1=0x2e, l2=» VARTAB:ARRAY (1..2,1..1000) OF INTEGER;«, l3=0x2e}
0x0502…051f Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x051f…0540 Line {l1=0x1f, l2=» L,M,J,K,IER,I,II:INTEGER;«, l3=0x1f}
0x0540…0552 Line {l1=0x10, l2=» MAGI:REAL;«, l3=0x10}
0x0552…0568 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0568…057c Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x057c…0585 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0585…0598 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0598…05a5 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x05a5…05b5 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x05b5…05c5 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x05c5…05d3 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x05d3…05e1 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x05e1…05f0 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x05f0…05f9 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x05f9…0602 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0602…0613 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0613…0623 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0623…063a Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x063a…064c Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x064c…0653 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0653…0677 Line {l1=0x22, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x22}
0x0677…068a Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x068a…06a0 Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x06a0…06bb Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x06bb…06c3 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x06c3…06c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06c9…06da Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x06da…06e1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06e1…071b Line {l1=0x38, l2=» WRITELN(LIST,'D I S P O N E R I N G S - L I S T E');«, l3=0x38}
0x071b…072f Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x072f…077a Line {l1=0x49, l2=» WRITELN(LIST,' ':10,'Disponible;Sidste køb: antal,dato;Magisk tal;');«, l3=0x49}
0x077a…07c4 Line {l1=0x48, l2=» WRITELN(LIST,' ':10,'Solgt i år;I ordre ;Disponible; Kostpris;');«, l3=0x48}
0x07c4…07d8 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x07d8…07de Line {l1=0x04, l2=»END;«, l3=0x04}
0x07de…07ef Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x07ef…07f6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07f6…0806 Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x0806…080f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x080f…0820 Line {l1=0x0f, l2=» VARENR1:=0;«, l3=0x0f}
0x0820…082b Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x082b…0843 Line {l1=0x16, l2=» NEXTREC(VZ.H,F,A);«, l3=0x16}
0x0843…084f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x084f…086d Line {l1=0x1c, l2=» VARTAB(1,I):=VARENR1;«, l3=0x1c}
0x086d…088b Line {l1=0x1c, l2=» VARTAB(2,I):=LVRNDØR;«, l3=0x1c}
0x088b…089b Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x089b…08b5 Line {l1=0x18, l2=» NEXTREC(VZ.H,F,A)«, l3=0x18}
0x08b5…08c8 Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x08c8…08e4 Line {l1=0x1a, l2=» IF IER<>-2 THEN ERROR;«, l3=0x1a}
0x08e4…08f1 Line {l1=0x0b, l2=» I:=I-1;«, l3=0x0b}
0x08f1…0907 Line {l1=0x14, l2=» FOR J:=1 TO I DO«, l3=0x14}
0x0907…0912 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0912…091f Line {l1=0x0b, l2=» M:=J;«, l3=0x0b}
0x091f…0939 Line {l1=0x18, l2=» FOR K:=J+1 TO I DO«, l3=0x18}
0x0939…0946 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0946…096f Line {l1=0x27, l2=» IF (VARTAB(2,K)<VARTAB(2,M)) OR«, l3=0x27}
0x096f…09be Line {l1=0x4d, l2=» ((VARTAB(2,K)=VARTAB(2,M)) AND (VARTAB(1,K)<VARTAB(1,M))) THEN M:=K«, l3=0x4d}
0x09be…09ca Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09ca…09dd Line {l1=0x11, l2=» IF M>J THEN«, l3=0x11}
0x09dd…09ea Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09ea…0a2b Line {l1=0x3f, l2=» L:=VARTAB(1,M);VARTAB(1,M):=VARTAB(1,J);VARTAB(1,J):=L;«, l3=0x3f}
0x0a2b…0a6b Line {l1=0x3e, l2=» L:=VARTAB(2,M);VARTAB(2,M):=VARTAB(2,J);VARTAB(2,J):=L«, l3=0x3e}
0x0a6b…0a76 Line {l1=0x09, l2=» END«, l3=0x09}
0x0a76…0a80 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a80…0a8c Line {l1=0x0a, l2=» II:=I;«, l3=0x0a}
0x0a8c…0a98 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0a98…0aaa Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0aaa…0ab6 Line {l1=0x0a, l2=» I:=II;«, l3=0x0a}
0x0ab6…0ac8 Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x0ac8…0aff Line {l1=0x35, l2=» WRITELN('Leverandørnr, 0 for alle, -1 for STOP');«, l3=0x35}
0x0aff…0b0b Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0b0b…0b2f Line {l1=0x22, l2=» GOTOXY(39,1);READLN;READ(K)«, l3=0x22}
0x0b2f…0b48 Line {l1=0x17, l2=» UNTIL (IORESULT=0);«, l3=0x17}
0x0b48…0b5a Line {l1=0x10, l2=» IF K>=0 THEN«, l3=0x10}
0x0b5a…0b65 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b65…0b76 Line {l1=0x0f, l2=» IF K=0 THEN«, l3=0x0f}
0x0b76…0b82 Line {l1=0x0a, l2=» J:=1«, l3=0x0a}
0x0b82…0b8c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0b8c…0b97 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b97…0ba4 Line {l1=0x0b, l2=» J:=0;«, l3=0x0b}
0x0ba4…0bb1 Line {l1=0x0b, l2=» M:=1;«, l3=0x0b}
0x0bb1…0bc6 Line {l1=0x13, l2=» WHILE M<=I DO«, l3=0x13}
0x0bc6…0bd3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0bd3…0c0d Line {l1=0x38, l2=» IF J=0 THEN BEGIN IF VARTAB(2,M)=K THEN J:=M END«, l3=0x38}
0x0c0d…0c3a Line {l1=0x2b, l2=» ELSE IF VARTAB(2,M)<>K THEN I:=M-1;«, l3=0x2b}
0x0c3a…0c4a Line {l1=0x0e, l2=» M:=M+1«, l3=0x0e}
0x0c4a…0c55 Line {l1=0x09, l2=» END«, l3=0x09}
0x0c55…0c5f Line {l1=0x08, l2=» END;«, l3=0x08}
0x0c5f…0c6a Line {l1=0x09, l2=» HEAD;«, l3=0x09}
0x0c6a…0c8d Line {l1=0x21, l2=» VARTAB(2,I+1):=VARTAB(2,I)+1;«, l3=0x21}
0x0c8d…0c9e Line {l1=0x0f, l2=» IF J>0 THEN«, l3=0x0f}
0x0c9e…0cb1 Line {l1=0x11, l2=» WITH LEVER DO«, l3=0x11}
0x0cb1…0cbd Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0cbd…0cd5 Line {l1=0x16, l2=» NR:=VARTAB(2,J);«, l3=0x16}
0x0cd5…0cf7 Line {l1=0x20, l2=» GETREC(LZ.H,FLEV,LEVER.A);«, l3=0x20}
0x0cf7…0d10 Line {l1=0x17, l2=» WRITE(LIST,NR:8);«, l3=0x17}
0x0d10…0d26 Line {l1=0x14, l2=» IF IER<>0 THEN«, l3=0x14}
0x0d26…0d4a Line {l1=0x22, l2=» IF IER<>-6 THEN ERROR ELSE«, l3=0x22}
0x0d4a…0d59 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0d59…0d81 Line {l1=0x26, l2=» WRITELN(LIST,' FINDES IKKE');«, l3=0x26}
0x0d81…0d99 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x0d99…0dc2 Line {l1=0x27, l2=» WHILE NR=VARTAB(2,J) DO J:=J+1;«, l3=0x27}
0x0dc2…0dcf Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0dcf…0ddb Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0ddb…0de8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0de8…0e0b Line {l1=0x21, l2=» WRITELN(LIST,' ',NAVN1);«, l3=0x21}
0x0e0b…0e3f Line {l1=0x32, l2=» WRITELN(LIST,' ':10,ADR1,' ':10,LANDSBY1);«, l3=0x32}
0x0e3f…0e66 Line {l1=0x25, l2=» WRITELN(LIST,' ':10,POSTNR1);«, l3=0x25}
0x0e66…0e7e Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x0e7e…0ec9 Line {l1=0x49, l2=» WRITELN(LIST,' ':10,KOSTPFAK(1):10,KOSTPFAK(2):10,KOSTPFAK(3):10,«, l3=0x49}
0x0ec9…0f06 Line {l1=0x3b, l2=» KOSTPFAK(4):10,KOSTPFAK(5):10);«, l3=0x3b}
0x0f06…0f1e Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x0f1e…0f3f Line {l1=0x1f, l2=» WHILE NR=VARTAB(2,J) DO«, l3=0x1f}
0x0f3f…0f4e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0f4e…0f6f Line {l1=0x1f, l2=» VARENR1:=VARTAB(1,J);«, l3=0x1f}
0x0f6f…0f91 Line {l1=0x20, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x20}
0x0f91…0fdf Line {l1=0x4c, l2=» IF (PRIMOLAG+FYSLAGER)*OMSIÅR<>0 THEN MAGI:=ASOLGTIÅ*200*DÆKBIDTD/«, l3=0x4c}
0x0fdf…102b Line {l1=0x4a, l2=» ((PRIMOLAG+FYSLAGER)*OMSIÅR) ELSE MAGI:=0;«, l3=0x4a}
0x102b…1064 Line {l1=0x37, l2=» WRITELN(LIST,' ':10,VARENR1:4,' ':5,NAVN(2));«, l3=0x37}
0x1064…10ab Line {l1=0x45, l2=» WRITELN(LIST,' ':10,FYSLAGER-RESAFLAG:10:-2,STASBEST:10:-2,«, l3=0x45}
0x10ab…10f7 Line {l1=0x4a, l2=» DATSBES1*10000.0+DATSBES2:10:-2,MAGI:12:-2);«, l3=0x4a}
0x10f7…1126 Line {l1=0x2d, l2=» WRITELN(LIST,' ':10,ASOLGTIÅ:10:-2,«, l3=0x2d}
0x1126…1169 Line {l1=0x41, l2=» IORDRE:10:-2,IORDRE-RAIORDRE:10:-2,«, l3=0x41}
0x1169…119c Line {l1=0x31, l2=» KOSTPRIS/100:12:2);«, l3=0x31}
0x119c…11b6 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x11b6…11c8 Line {l1=0x10, l2=» J:=J+1«, l3=0x10}
0x11c8…11d6 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x11d6…11ee Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x11ee…11fa Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x11fa…120a Line {l1=0x0e, l2=» UNTIL J>I;«, l3=0x0e}
0x120a…1213 Line {l1=0x07, l2=» END«, l3=0x07}
0x1213…1222 Line {l1=0x0d, l2=» UNTIL K<0«, l3=0x0d}
0x1222…122a Line {l1=0x06, l2=» END;«, l3=0x06}
0x122a…1230 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1230…1237 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1237…1257 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x1257…1260 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x1260…126a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x126a…1287 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x1287…1299 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x1299…12ae Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x12ae…12b7 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x12b7…12c5 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x12c5…12d5 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x12d5…12e6 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x12e6…12f4 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x12f4…12fe Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x12fe…1311 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x1311…1346 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x1346…1353 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x1353…135c Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x135c…137a Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x137a…138a Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x138a…1393 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1393…13a8 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x13a8…13b6 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x13b6…13c6 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x13c6…13e8 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x13e8…13fe Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x13fe…1414 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x1414…1417 Line {l1=0x01, l2=» «, l3=0x01}
0x1417…1439 Line {l1=0x20, l2=» FILNAVN2:='LEVERRG:P2:0000:I';«, l3=0x20}
0x1439…1452 Line {l1=0x17, l2=» RESET(FLEV,FILNAVN2);«, l3=0x17}
0x1452…146b Line {l1=0x17, l2=» IOPEN(LZ.H,FLEV,LÆS);«, l3=0x17}
0x146b…1484 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x1484…1487 Line {l1=0x01, l2=» «, l3=0x01}
0x1487…1490 Line {l1=0x07, l2=» DOIT;«, l3=0x07}
0x1490…14a3 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x14a3…14b9 Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x14b9…14df Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x14df…14e5 Line {l1=0x04, l2=»END.«, l3=0x04}
0x14e5…1500 00 00 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 ┆ ccccccccccccccccccccccccc┆
0x1500…1520 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┆
[…0x19…]
0x1840…1860 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 00 ┆ccccccccccccccccccccccccccccccc ┆