|
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: 11232 (0x2be0)
Types: TextFile
Notes: Mikados_K
Names: »LISTKOMP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »LISTKOMP.K«
PROGRAM LISTKOMP;
(*$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;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
VZ:ZONE;
FILNAVN2:STRING(20);
KRIT,IER,LINIE,I,J,K :INTEGER;
CH:CHAR;
PICTURE: ARRAY (1..20,1..6) OF INTEGER;
SUMS:ARRAY (1..4) OF REAL;
SUMKRIT:ARRAY (1..4) OF INTEGER;
QUQ:^INTEGER;
VARE:VPOST;
R,FRA,TIL :REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE PRVAROPL;
PROCEDURE PR1;
BEGIN
WITH VARE DO
BEGIN
GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);
GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));
GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));
GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);
GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);
GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);
GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);
GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);
WRITELN(TOLDPNR/1000:10:3);
GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);
GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);
WRITE(FYSLAGER:10:-2);
GOTOXY(50,10);WRITE('27 PRIMOLAGER');GOTOXY(67,10);
WRITELN(PRIMOLAG:10:-2);
GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(
RESAFLAG:10:-2);
END;
END;
PROCEDURE PR2;
BEGIN
WITH VARE DO
BEGIN
GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);
WRITELN(MINLAGER:10:-2);
GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(IORDRE:10:-2);
GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);
WRITELN(RAIORDRE:10:-2);
GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);
GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(
STASBEST:10:-2);
GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);
WRITELN(DATSBES1*10000.0+DATSBES2:10:-2);
GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(
DATSORD1*10000.0+DATSORD2:10:-2);
GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);
WRITELN(ASOLGTIÅ:10:-2);
GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);
WRITELN(ASOLGTSÅ:10:-2);
GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);
WRITELN(OMSIÅR/100:10:2);
GOTOXY(50,1);
WRITELN('26 GODT TAL ',0.0:12:-2);
GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(OMSSÅR/100:10:2);
GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(
DÆKBIDTD/100:10:2);
GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);
GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(
ANAFTILG:10);
GOTOXY(1,21);WRITELN('28 LAGERVÆRDI',0.0:27:2);
END;
END;
BEGIN
PR1;
PR2;
END;
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I VAREREG ',IER);
ICLOSE(VZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
PROCEDURE PRINT(O:INTEGER);
BEGIN
CASE O OF
0: WRITE(' ':19);
1: WRITE('VARENR':19);
2: WRITE('VARENAVN':38);
3: WRITE('NAVN H. LEVERANDØR':38);
4: WRITE('PRIS':19);
5: WRITE('KOSTPRIS':19);
6: WRITE('LEVERANDØRNR':19);
7: WRITE('OPRINDELSESLAND':19);
8: WRITE('TOLDPOSITIONSNR':19);
9: WRITE('PAKNINGSENHED':19);
10:WRITE('FYSISK LAGER':19);
27:WRITE('PRIMOLAGER':19);
11:WRITE('RESERV. FYS. LAGER':19);
12:WRITE('MIN. LAGER':19);
13:WRITE('I ORDRE':19);
14:WRITE('RESERV. IORDRE':19);
15:WRITE('LEV. UGE':19);
16:WRITE('STØRR. S. BEST':19);
17:WRITE('DAT. S. BEST':19);
18:WRITE('SIDST SOLGT':19);
19:WRITE('SOLGT I ÅR':19);
20:WRITE('SOLGT S ÅR':19);
21:WRITE('OMS. I ÅR':19);
22:WRITE('OMS. S ÅR':19);
23:WRITE('DÆKNINGSBIDRAG':19);
24:WRITE('DÆK.GRAD S ÅR':19);
25:WRITE('ANDRE AFG/TILG':19);
26:WRITE('GODT TAL':19);
28:WRITE('LAGERVÆRDI':19);
END
END;
PROCEDURE PRINT1(O:INTEGER);
BEGIN
CASE O OF
0: WRITE(LIST,' ':19);
1: WRITE(LIST,'VARENR':19);
2: WRITE(LIST,'VARENAVN':38);
3: WRITE(LIST,'NAVN H. LEVERANDØR':38);
4: WRITE(LIST,'PRIS':19);
5: WRITE(LIST,'KOSTPRIS':19);
6: WRITE(LIST,'LEVERANDØRNR':19);
7: WRITE(LIST,'OPRINDELSESLAND':19);
8: WRITE(LIST,'TOLDPOSITIONSNR':19);
9: WRITE(LIST,'PAKNINGSENHED':19);
10:WRITE(LIST,'FYSISK LAGER':19);
27:WRITE(LIST,'PRIMOLAGER':19);
11:WRITE(LIST,'RESERV. FYS. LAGER':19);
12:WRITE(LIST,'MIN. LAGER':19);
13:WRITE(LIST,'I ORDRE':19);
14:WRITE(LIST,'RESERV. IORDRE':19);
15:WRITE(LIST,'LEV. UGE':19);
16:WRITE(LIST,'STØRR. S. BEST':19);
17:WRITE(LIST,'DAT. S. BEST':19);
18:WRITE(LIST,'SIDST SOLGT':19);
19:WRITE(LIST,'SOLGT I ÅR':19);
20:WRITE(LIST,'SOLGT S ÅR':19);
21:WRITE(LIST,'OMS. I ÅR':19);
22:WRITE(LIST,'OMS. S ÅR':19);
23:WRITE(LIST,'DÆKNINGSBIDRAG':19);
24:WRITE(LIST,'DÆK.GRAD S ÅR':19);
25:WRITE(LIST,'ANDRE AFG/TILG':19);
26:WRITE(LIST,'GODT TAL':19);
28:WRITE(LIST,'LAGERVÆRDI':19);
END
END;
PROCEDURE SKRIG(O:INTEGER);
BEGIN
WITH VARE DO
CASE O OF
0: WRITE(LIST,' ':19);
1: WRITE(LIST,VARENR1:19);
2: WRITE(LIST,NAVN(1):38);
3: WRITE(LIST,NAVN(2):38);
4: WRITE(LIST,PRIS/100:19:2);
5: WRITE(LIST,KOSTPRIS/100:19:2);
6: WRITE(LIST,LVRNDØR:19);
7: WRITE(LIST,OPRLAND:19);
8: WRITE(LIST,TOLDPNR/1000:19:3);
9: WRITE(LIST,PAKENHED:19);
10:WRITE(LIST,FYSLAGER:19:-2);
27:WRITE(LIST,PRIMOLAG:19:-2);
11:WRITE(LIST,RESAFLAG:19:-2);
12:WRITE(LIST,MINLAGER:19:-2);
13:WRITE(LIST,IORDRE:19:-2);
14:WRITE(LIST,RAIORDRE:19:-2);
15:WRITE(LIST,FORVLEVU:19);
16:WRITE(LIST,STASBEST:19:-2);
17:WRITE(LIST,DATSBES1*10000.0+DATSBES2:19:-2);
18:WRITE(LIST,DATSORD1*10000.0+DATSORD2:19:-2);
19:WRITE(LIST,ASOLGTIÅ:19:-2);
20:WRITE(LIST,ASOLGTSÅ:19:-2);
21:WRITE(LIST,OMSIÅR/100:19:2);
22:WRITE(LIST,OMSSÅR/100:19:2);
23:WRITE(LIST,DÆKBIDTD/100:19:2);
24:WRITE(LIST,DÆKGRASÅ:19);
25:WRITE(LIST,ANAFTILG:19);
26:IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN
WRITE(LIST,ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR):19:-2)
ELSE
WRITE(LIST,0.0:19:3);
28:WRITE(LIST,FYSLAGER*KOSTPRIS/100:19:2);
END
END;
FUNCTION CHECK(KRIT:INTEGER):BOOLEAN;
BEGIN
WITH VARE DO
CASE KRIT OF
1:R:=VARENR1;
4:R:=PRIS/100;
5:R:=KOSTPRIS/100;
6:R:=LVRNDØR;
7:R:=OPRLAND;
8:R:=TOLDPNR/1000;
9:R:=PAKENHED;
10:R:=FYSLAGER;
11:R:=RESAFLAG;
12:R:=MINLAGER;
13:R:=IORDRE;
14:R:=RAIORDRE;
15:R:=FORVLEVU;
16:R:=STASBEST;
17:R:=DATSBES1*10000.0+DATSBES2;
18:R:=DATSORD1*10000.0+DATSORD2;
19:R:=ASOLGTIÅ;
20:R:=ASOLGTSÅ;
21:R:=OMSIÅR/100;
22:R:=OMSSÅR/100;
23:R:=DÆKBIDTD/100;
24:R:=DÆKGRASÅ;
25:R:=ANAFTILG;
26:IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN
R:=ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR)
ELSE
R:=0.0;
27:R:=PRIMOLAG;
28:R:=FYSLAGER*KOSTPRIS/100;
END;
IF (R>=FRA) AND (R<=TIL) THEN CHECK:=TRUE ELSE CHECK:=FALSE
END;
PROCEDURE INDKRIT;
BEGIN
REPEAT
CLEARSCREEN;
PRVAROPL;
FOR I:=1 TO 20 DO FOR J:=1 TO 6 DO PICTURE(I,J):=0;
I:=1;J:=1;
REPEAT
GOTOXY(1,23);
WRITELN('FELTER I LINIE ',I:2);
GOTOXY(20,23);READLN;
WHILE (NOT EOLN) AND (J<7) DO
BEGIN
READ(PICTURE(I,J));
IF (IORESULT<>0) OR (PICTURE(I,J)<0) OR (PICTURE(I,J)>40) THEN J:=9;
J:=J+1
END;
IF PICTURE(I,1)<0 THEN I:=21;
IF J<8 THEN I:=I+1;
J:=1;
UNTIL I>20;
CLEARSCREEN;
FOR I:=1 TO 20 DO
BEGIN
FOR J:=1 TO 6 DO PRINT(PICTURE(I,J));
WRITELN
END;
GOTOXY(1,23);WRITELN('O.K. (J/N) ');
REPEAT
GOTOXY(15,23);
READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='n') OR (CH='j'))
UNTIL (CH='J') OR (CH='j');
CLEARSCREEN;
PRVAROPL;
GOTOXY(1,23);WRITELN('UDVALGSKRITERIE 1, 4-40 ');
REPEAT
GOTOXY(25,23);READLN;READ(KRIT)
UNTIL (IORESULT=0) AND ((KRIT=1) OR ((KRIT>3) AND (KRIT<41)));
GOTOXY(1,23);WRITELN('FRA TIL ');
REPEAT
GOTOXY(5,23);READLN;READ(FRA);
IF IORESULT=0 THEN
BEGIN
GOTOXY(22,23);READLN;READ(TIL)
END;
UNTIL (IORESULT=0) AND (FRA<=TIL);
I:=1;
REPEAT
GOTOXY(1,23);WRITELN('Summeringsfelter 1, 4-40 ');
REPEAT
GOTOXY(26,23);READLN;READ(J)
UNTIL (IORESULT=0) AND ((J=0) OR (J=1) OR ((J>3) AND (J<41)));
SUMKRIT(I):=J;
IF J=0 THEN I:=5 ELSE I:=I+1;
UNTIL I=5;
FOR I:=1 TO 4 DO SUMS(I):=0.0;
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);
VARE.VARENR1:=0;
NEXTREC(VZ.H,F,VARE.A);
INDKRIT;
IER:=0;
LINIE:=0;
FOR I:=1 TO 20 DO
BEGIN
FOR J:=1 TO 6 DO PRINT1(PICTURE(I,J));
WRITELN(LIST);
LINIE:=LINIE+1;
IF I<20 THEN
IF PICTURE(I+1,1)<0 THEN I:=20
END;
REPEAT
WRITELN(LIST);
LINIE:=LINIE+1
UNTIL LINIE=72;
LINIE:=0;
REPEAT
WHILE (NOT CHECK(KRIT)) AND (IER=0) DO NEXTREC(VZ.H,F,VARE.A);
IF IER=0 THEN
BEGIN
FOR I:=1 TO 20 DO
BEGIN
FOR J:=1 TO 6 DO SKRIG(PICTURE(I,J));
WRITELN(LIST);
LINIE:=LINIE+1;
IF LINIE=60 THEN
BEGIN
REPEAT
WRITELN(LIST);LINIE:=LINIE+1
UNTIL LINIE=72;
LINIE:=0
END;
IF I<20 THEN
IF PICTURE(I+1,1)<0 THEN I:=20
END;
FOR I:=1 TO 4 DO IF SUMKRIT(I)=0 THEN I:=4 ELSE
BEGIN
IF CHECK(SUMKRIT(I)) THEN;
SUMS(I):=SUMS(I)+R
END;
NEXTREC(VZ.H,F,VARE.A);
END
UNTIL IER<>0;
REPEAT
WRITELN(LIST);LINIE:=LINIE+1
UNTIL LINIE=72;
WRITELN(LIST,'Summer af');
FOR I:=1 TO 4 DO PRINT1(SUMKRIT(I));
WRITELN(LIST);
FOR I:=1 TO 4 DO IF SUMKRIT(I)<>0 THEN WRITE(LIST,SUMS(I):19:3);
WRITELN(LIST);
IF IER<>-2 THEN ERROR;
ICLOSE(VZ.H,F);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LISTKOMP;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0030 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x0030…003e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003e…0068 Line {l1=0x28, l2=» VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x0068…009e Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x009e…00c1 Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x00c1…00fb Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x00fb…0145 Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x0145…018d Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x018d…0193 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0193…01a1 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x01a1…01b4 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x01b4…01d7 Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x01d7…01dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x01dd…01ee Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x01ee…020a Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x020a…0210 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0210…022a Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x022a…0239 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x0239…0251 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0251…0262 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x0262…0281 Line {l1=0x1d, l2=» FILNAVN2:STRING(20);«, l3=0x1d}
0x0281…02a8 Line {l1=0x25, l2=» KRIT,IER,LINIE,I,J,K :INTEGER;«, l3=0x25}
0x02a8…02b8 Line {l1=0x0e, l2=» CH:CHAR;«, l3=0x0e}
0x02b8…02e7 Line {l1=0x2d, l2=» PICTURE: ARRAY (1..20,1..6) OF INTEGER;«, l3=0x2d}
0x02e7…0309 Line {l1=0x20, l2=» SUMS:ARRAY (1..4) OF REAL;«, l3=0x20}
0x0309…0331 Line {l1=0x26, l2=» SUMKRIT:ARRAY (1..4) OF INTEGER;«, l3=0x26}
0x0331…0346 Line {l1=0x13, l2=» QUQ:^INTEGER;«, l3=0x13}
0x0346…035a Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x035a…0373 Line {l1=0x17, l2=» R,FRA,TIL :REAL;«, l3=0x17}
0x0373…037c Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x037c…038f Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x038f…039c Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x039c…03ac Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x03ac…03bc Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03bc…03ca Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03ca…03d9 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03d9…03e2 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x03e2…03eb Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x03eb…0400 Line {l1=0x13, l2=»PROCEDURE PRVAROPL;«, l3=0x13}
0x0400…0410 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x0410…0417 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0417…0425 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x0425…042c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x042c…046d Line {l1=0x3f, l2=»GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);«, l3=0x3f}
0x046d…04ad Line {l1=0x3e, l2=»GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3e}
0x04ad…04f8 Line {l1=0x49, l2=»GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x49}
0x04f8…053a Line {l1=0x40, l2=»GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);«, l3=0x40}
0x053a…0584 Line {l1=0x48, l2=»GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);«, l3=0x48}
0x0584…05cb Line {l1=0x45, l2=»GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);«, l3=0x45}
0x05cb…0615 Line {l1=0x48, l2=»GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);«, l3=0x48}
0x0615…064b Line {l1=0x34, l2=»GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);«, l3=0x34}
0x064b…0668 Line {l1=0x1b, l2=»WRITELN(TOLDPNR/1000:10:3);«, l3=0x1b}
0x0668…06b1 Line {l1=0x47, l2=»GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);«, l3=0x47}
0x06b1…06e7 Line {l1=0x34, l2=»GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);«, l3=0x34}
0x06e7…06ff Line {l1=0x16, l2=»WRITE(FYSLAGER:10:-2);«, l3=0x16}
0x06ff…0734 Line {l1=0x33, l2=»GOTOXY(50,10);WRITE('27 PRIMOLAGER');GOTOXY(67,10);«, l3=0x33}
0x0734…074e Line {l1=0x18, l2=»WRITELN(PRIMOLAG:10:-2);«, l3=0x18}
0x074e…0798 Line {l1=0x48, l2=»GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(«, l3=0x48}
0x0798…07e0 Line {l1=0x46, l2=» RESAFLAG:10:-2);«, l3=0x46}
0x07e0…07e6 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x07ec…07fc Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x07fc…0803 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0803…0811 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x0811…0818 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0818…084f Line {l1=0x35, l2=»GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);«, l3=0x35}
0x084f…0869 Line {l1=0x18, l2=»WRITELN(MINLAGER:10:-2);«, l3=0x18}
0x0869…08b0 Line {l1=0x45, l2=»GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(IORDRE:10:-2);«, l3=0x45}
0x08b0…08ea Line {l1=0x38, l2=»GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);«, l3=0x38}
0x08ea…0904 Line {l1=0x18, l2=»WRITELN(RAIORDRE:10:-2);«, l3=0x18}
0x0904…0952 Line {l1=0x4c, l2=»GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);«, l3=0x4c}
0x0952…099d Line {l1=0x49, l2=»GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(«, l3=0x49}
0x099d…09af Line {l1=0x10, l2=»STASBEST:10:-2);«, l3=0x10}
0x09af…09e4 Line {l1=0x33, l2=»GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);«, l3=0x33}
0x09e4…0a0f Line {l1=0x29, l2=»WRITELN(DATSBES1*10000.0+DATSBES2:10:-2);«, l3=0x29}
0x0a0f…0a4c Line {l1=0x3b, l2=»GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(«, l3=0x3b}
0x0a4c…0a6f Line {l1=0x21, l2=»DATSORD1*10000.0+DATSORD2:10:-2);«, l3=0x21}
0x0a6f…0aa3 Line {l1=0x32, l2=»GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);«, l3=0x32}
0x0aa3…0abd Line {l1=0x18, l2=»WRITELN(ASOLGTIÅ:10:-2);«, l3=0x18}
0x0abd…0af3 Line {l1=0x34, l2=»GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);«, l3=0x34}
0x0af3…0b0d Line {l1=0x18, l2=»WRITELN(ASOLGTSÅ:10:-2);«, l3=0x18}
0x0b0d…0b40 Line {l1=0x31, l2=»GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);«, l3=0x31}
0x0b40…0b5b Line {l1=0x19, l2=»WRITELN(OMSIÅR/100:10:2);«, l3=0x19}
0x0b5b…0b6a Line {l1=0x0d, l2=»GOTOXY(50,1);«, l3=0x0d}
0x0b6a…0b8e Line {l1=0x22, l2=»WRITELN('26 GODT TAL ',0.0:12:-2);«, l3=0x22}
0x0b8e…0bdc Line {l1=0x4c, l2=»GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(OMSSÅR/100:10:2);«, l3=0x4c}
0x0bdc…0c25 Line {l1=0x47, l2=»GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(«, l3=0x47}
0x0c25…0c3a Line {l1=0x13, l2=»DÆKBIDTD/100:10:2);«, l3=0x13}
0x0c3a…0c88 Line {l1=0x4c, l2=»GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);«, l3=0x4c}
0x0c88…0cd0 Line {l1=0x46, l2=»GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(«, l3=0x46}
0x0cd0…0cdf Line {l1=0x0d, l2=»ANAFTILG:10);«, l3=0x0d}
0x0cdf…0d10 Line {l1=0x2f, l2=»GOTOXY(1,21);WRITELN('28 LAGERVÆRDI',0.0:27:2);«, l3=0x2f}
0x0d10…0d16 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x0d1c…0d23 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d23…0d2b Line {l1=0x06, l2=» PR1;«, l3=0x06}
0x0d2b…0d33 Line {l1=0x06, l2=» PR2;«, l3=0x06}
0x0d33…0d39 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d39…0d4a Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0d4a…0d5a Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0d5a…0d71 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0d71…0d83 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0d83…0d8a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d8a…0dad Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x0dad…0dc0 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x0dc0…0ddb Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0ddb…0de3 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x0de3…0de9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0de9…0e06 Line {l1=0x1b, l2=»PROCEDURE PRINT(O:INTEGER);«, l3=0x1b}
0x0e06…0e0d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e0d…0e18 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0e18…0e2b Line {l1=0x11, l2=»0: WRITE(' ':19);«, l3=0x11}
0x0e2b…0e43 Line {l1=0x16, l2=»1: WRITE('VARENR':19);«, l3=0x16}
0x0e43…0e5d Line {l1=0x18, l2=»2: WRITE('VARENAVN':38);«, l3=0x18}
0x0e5d…0e81 Line {l1=0x22, l2=»3: WRITE('NAVN H. LEVERANDØR':38);«, l3=0x22}
0x0e81…0e97 Line {l1=0x14, l2=»4: WRITE('PRIS':19);«, l3=0x14}
0x0e97…0eb1 Line {l1=0x18, l2=»5: WRITE('KOSTPRIS':19);«, l3=0x18}
0x0eb1…0ecf Line {l1=0x1c, l2=»6: WRITE('LEVERANDØRNR':19);«, l3=0x1c}
0x0ecf…0ef0 Line {l1=0x1f, l2=»7: WRITE('OPRINDELSESLAND':19);«, l3=0x1f}
0x0ef0…0f11 Line {l1=0x1f, l2=»8: WRITE('TOLDPOSITIONSNR':19);«, l3=0x1f}
0x0f11…0f30 Line {l1=0x1d, l2=»9: WRITE('PAKNINGSENHED':19);«, l3=0x1d}
0x0f30…0f4e Line {l1=0x1c, l2=»10:WRITE('FYSISK LAGER':19);«, l3=0x1c}
0x0f4e…0f6a Line {l1=0x1a, l2=»27:WRITE('PRIMOLAGER':19);«, l3=0x1a}
0x0f6a…0f8e Line {l1=0x22, l2=»11:WRITE('RESERV. FYS. LAGER':19);«, l3=0x22}
0x0f8e…0faa Line {l1=0x1a, l2=»12:WRITE('MIN. LAGER':19);«, l3=0x1a}
0x0faa…0fc3 Line {l1=0x17, l2=»13:WRITE('I ORDRE':19);«, l3=0x17}
0x0fc3…0fe3 Line {l1=0x1e, l2=»14:WRITE('RESERV. IORDRE':19);«, l3=0x1e}
0x0fe3…0ffd Line {l1=0x18, l2=»15:WRITE('LEV. UGE':19);«, l3=0x18}
0x0ffd…101d Line {l1=0x1e, l2=»16:WRITE('STØRR. S. BEST':19);«, l3=0x1e}
0x101d…103b Line {l1=0x1c, l2=»17:WRITE('DAT. S. BEST':19);«, l3=0x1c}
0x103b…1058 Line {l1=0x1b, l2=»18:WRITE('SIDST SOLGT':19);«, l3=0x1b}
0x1058…1074 Line {l1=0x1a, l2=»19:WRITE('SOLGT I ÅR':19);«, l3=0x1a}
0x1074…1090 Line {l1=0x1a, l2=»20:WRITE('SOLGT S ÅR':19);«, l3=0x1a}
0x1090…10ab Line {l1=0x19, l2=»21:WRITE('OMS. I ÅR':19);«, l3=0x19}
0x10ab…10c6 Line {l1=0x19, l2=»22:WRITE('OMS. S ÅR':19);«, l3=0x19}
0x10c6…10e6 Line {l1=0x1e, l2=»23:WRITE('DÆKNINGSBIDRAG':19);«, l3=0x1e}
0x10e6…1105 Line {l1=0x1d, l2=»24:WRITE('DÆK.GRAD S ÅR':19);«, l3=0x1d}
0x1105…1125 Line {l1=0x1e, l2=»25:WRITE('ANDRE AFG/TILG':19);«, l3=0x1e}
0x1125…113f Line {l1=0x18, l2=»26:WRITE('GODT TAL':19);«, l3=0x18}
0x113f…115b Line {l1=0x1a, l2=»28:WRITE('LAGERVÆRDI':19);«, l3=0x1a}
0x115b…1160 Line {l1=0x03, l2=»END«, l3=0x03}
0x1160…1166 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1166…1184 Line {l1=0x1c, l2=»PROCEDURE PRINT1(O:INTEGER);«, l3=0x1c}
0x1184…118b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x118b…1196 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x1196…11ae Line {l1=0x16, l2=»0: WRITE(LIST,' ':19);«, l3=0x16}
0x11ae…11cb Line {l1=0x1b, l2=»1: WRITE(LIST,'VARENR':19);«, l3=0x1b}
0x11cb…11ea Line {l1=0x1d, l2=»2: WRITE(LIST,'VARENAVN':38);«, l3=0x1d}
0x11ea…1213 Line {l1=0x27, l2=»3: WRITE(LIST,'NAVN H. LEVERANDØR':38);«, l3=0x27}
0x1213…122e Line {l1=0x19, l2=»4: WRITE(LIST,'PRIS':19);«, l3=0x19}
0x122e…124d Line {l1=0x1d, l2=»5: WRITE(LIST,'KOSTPRIS':19);«, l3=0x1d}
0x124d…1270 Line {l1=0x21, l2=»6: WRITE(LIST,'LEVERANDØRNR':19);«, l3=0x21}
0x1270…1296 Line {l1=0x24, l2=»7: WRITE(LIST,'OPRINDELSESLAND':19);«, l3=0x24}
0x1296…12bc Line {l1=0x24, l2=»8: WRITE(LIST,'TOLDPOSITIONSNR':19);«, l3=0x24}
0x12bc…12e0 Line {l1=0x22, l2=»9: WRITE(LIST,'PAKNINGSENHED':19);«, l3=0x22}
0x12e0…1303 Line {l1=0x21, l2=»10:WRITE(LIST,'FYSISK LAGER':19);«, l3=0x21}
0x1303…1324 Line {l1=0x1f, l2=»27:WRITE(LIST,'PRIMOLAGER':19);«, l3=0x1f}
0x1324…134d Line {l1=0x27, l2=»11:WRITE(LIST,'RESERV. FYS. LAGER':19);«, l3=0x27}
0x134d…136e Line {l1=0x1f, l2=»12:WRITE(LIST,'MIN. LAGER':19);«, l3=0x1f}
0x136e…138c Line {l1=0x1c, l2=»13:WRITE(LIST,'I ORDRE':19);«, l3=0x1c}
0x138c…13b1 Line {l1=0x23, l2=»14:WRITE(LIST,'RESERV. IORDRE':19);«, l3=0x23}
0x13b1…13d0 Line {l1=0x1d, l2=»15:WRITE(LIST,'LEV. UGE':19);«, l3=0x1d}
0x13d0…13f5 Line {l1=0x23, l2=»16:WRITE(LIST,'STØRR. S. BEST':19);«, l3=0x23}
0x13f5…1418 Line {l1=0x21, l2=»17:WRITE(LIST,'DAT. S. BEST':19);«, l3=0x21}
0x1418…143a Line {l1=0x20, l2=»18:WRITE(LIST,'SIDST SOLGT':19);«, l3=0x20}
0x143a…145b Line {l1=0x1f, l2=»19:WRITE(LIST,'SOLGT I ÅR':19);«, l3=0x1f}
0x145b…147c Line {l1=0x1f, l2=»20:WRITE(LIST,'SOLGT S ÅR':19);«, l3=0x1f}
0x147c…149c Line {l1=0x1e, l2=»21:WRITE(LIST,'OMS. I ÅR':19);«, l3=0x1e}
0x149c…14bc Line {l1=0x1e, l2=»22:WRITE(LIST,'OMS. S ÅR':19);«, l3=0x1e}
0x14bc…14e1 Line {l1=0x23, l2=»23:WRITE(LIST,'DÆKNINGSBIDRAG':19);«, l3=0x23}
0x14e1…1505 Line {l1=0x22, l2=»24:WRITE(LIST,'DÆK.GRAD S ÅR':19);«, l3=0x22}
0x1505…152a Line {l1=0x23, l2=»25:WRITE(LIST,'ANDRE AFG/TILG':19);«, l3=0x23}
0x152a…1549 Line {l1=0x1d, l2=»26:WRITE(LIST,'GODT TAL':19);«, l3=0x1d}
0x1549…156a Line {l1=0x1f, l2=»28:WRITE(LIST,'LAGERVÆRDI':19);«, l3=0x1f}
0x156a…156f Line {l1=0x03, l2=»END«, l3=0x03}
0x156f…1575 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1575…1592 Line {l1=0x1b, l2=»PROCEDURE SKRIG(O:INTEGER);«, l3=0x1b}
0x1592…1599 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1599…15a7 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x15a7…15b2 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x15b2…15ca Line {l1=0x16, l2=»0: WRITE(LIST,' ':19);«, l3=0x16}
0x15ca…15e6 Line {l1=0x1a, l2=»1: WRITE(LIST,VARENR1:19);«, l3=0x1a}
0x15e6…1602 Line {l1=0x1a, l2=»2: WRITE(LIST,NAVN(1):38);«, l3=0x1a}
0x1602…161e Line {l1=0x1a, l2=»3: WRITE(LIST,NAVN(2):38);«, l3=0x1a}
0x161e…163d Line {l1=0x1d, l2=»4: WRITE(LIST,PRIS/100:19:2);«, l3=0x1d}
0x163d…1660 Line {l1=0x21, l2=»5: WRITE(LIST,KOSTPRIS/100:19:2);«, l3=0x21}
0x1660…167c Line {l1=0x1a, l2=»6: WRITE(LIST,LVRNDØR:19);«, l3=0x1a}
0x167c…1698 Line {l1=0x1a, l2=»7: WRITE(LIST,OPRLAND:19);«, l3=0x1a}
0x1698…16bb Line {l1=0x21, l2=»8: WRITE(LIST,TOLDPNR/1000:19:3);«, l3=0x21}
0x16bb…16d8 Line {l1=0x1b, l2=»9: WRITE(LIST,PAKENHED:19);«, l3=0x1b}
0x16d8…16f8 Line {l1=0x1e, l2=»10:WRITE(LIST,FYSLAGER:19:-2);«, l3=0x1e}
0x16f8…1718 Line {l1=0x1e, l2=»27:WRITE(LIST,PRIMOLAG:19:-2);«, l3=0x1e}
0x1718…1738 Line {l1=0x1e, l2=»11:WRITE(LIST,RESAFLAG:19:-2);«, l3=0x1e}
0x1738…1758 Line {l1=0x1e, l2=»12:WRITE(LIST,MINLAGER:19:-2);«, l3=0x1e}
0x1758…1776 Line {l1=0x1c, l2=»13:WRITE(LIST,IORDRE:19:-2);«, l3=0x1c}
0x1776…1796 Line {l1=0x1e, l2=»14:WRITE(LIST,RAIORDRE:19:-2);«, l3=0x1e}
0x1796…17b3 Line {l1=0x1b, l2=»15:WRITE(LIST,FORVLEVU:19);«, l3=0x1b}
0x17b3…17d3 Line {l1=0x1e, l2=»16:WRITE(LIST,STASBEST:19:-2);«, l3=0x1e}
0x17d3…1804 Line {l1=0x2f, l2=»17:WRITE(LIST,DATSBES1*10000.0+DATSBES2:19:-2);«, l3=0x2f}
0x1804…1835 Line {l1=0x2f, l2=»18:WRITE(LIST,DATSORD1*10000.0+DATSORD2:19:-2);«, l3=0x2f}
0x1835…1855 Line {l1=0x1e, l2=»19:WRITE(LIST,ASOLGTIÅ:19:-2);«, l3=0x1e}
0x1855…1875 Line {l1=0x1e, l2=»20:WRITE(LIST,ASOLGTSÅ:19:-2);«, l3=0x1e}
0x1875…1896 Line {l1=0x1f, l2=»21:WRITE(LIST,OMSIÅR/100:19:2);«, l3=0x1f}
0x1896…18b7 Line {l1=0x1f, l2=»22:WRITE(LIST,OMSSÅR/100:19:2);«, l3=0x1f}
0x18b7…18da Line {l1=0x21, l2=»23:WRITE(LIST,DÆKBIDTD/100:19:2);«, l3=0x21}
0x18da…18f7 Line {l1=0x1b, l2=»24:WRITE(LIST,DÆKGRASÅ:19);«, l3=0x1b}
0x18f7…1914 Line {l1=0x1b, l2=»25:WRITE(LIST,ANAFTILG:19);«, l3=0x1b}
0x1914…1947 Line {l1=0x31, l2=»26:IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x31}
0x1947…1993 Line {l1=0x4a, l2=» WRITE(LIST,ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR):19:-2)«, l3=0x4a}
0x1993…199c Line {l1=0x07, l2=» ELSE«, l3=0x07}
0x199c…19b9 Line {l1=0x1b, l2=» WRITE(LIST,0.0:19:3);«, l3=0x1b}
0x19b9…19e5 Line {l1=0x2a, l2=»28:WRITE(LIST,FYSLAGER*KOSTPRIS/100:19:2);«, l3=0x2a}
0x19e5…19ea Line {l1=0x03, l2=»END«, l3=0x03}
0x19ea…19f0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19f0…1a17 Line {l1=0x25, l2=»FUNCTION CHECK(KRIT:INTEGER):BOOLEAN;«, l3=0x25}
0x1a17…1a1e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a1e…1a2e Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x1a2e…1a3e Line {l1=0x0e, l2=» CASE KRIT OF«, l3=0x0e}
0x1a3e…1a4d Line {l1=0x0d, l2=»1:R:=VARENR1;«, l3=0x0d}
0x1a4d…1a5d Line {l1=0x0e, l2=»4:R:=PRIS/100;«, l3=0x0e}
0x1a5d…1a71 Line {l1=0x12, l2=»5:R:=KOSTPRIS/100;«, l3=0x12}
0x1a71…1a80 Line {l1=0x0d, l2=»6:R:=LVRNDØR;«, l3=0x0d}
0x1a80…1a8f Line {l1=0x0d, l2=»7:R:=OPRLAND;«, l3=0x0d}
0x1a8f…1aa3 Line {l1=0x12, l2=»8:R:=TOLDPNR/1000;«, l3=0x12}
0x1aa3…1ab3 Line {l1=0x0e, l2=»9:R:=PAKENHED;«, l3=0x0e}
0x1ab3…1ac4 Line {l1=0x0f, l2=»10:R:=FYSLAGER;«, l3=0x0f}
0x1ac4…1ad5 Line {l1=0x0f, l2=»11:R:=RESAFLAG;«, l3=0x0f}
0x1ad5…1ae6 Line {l1=0x0f, l2=»12:R:=MINLAGER;«, l3=0x0f}
0x1ae6…1af5 Line {l1=0x0d, l2=»13:R:=IORDRE;«, l3=0x0d}
0x1af5…1b06 Line {l1=0x0f, l2=»14:R:=RAIORDRE;«, l3=0x0f}
0x1b06…1b17 Line {l1=0x0f, l2=»15:R:=FORVLEVU;«, l3=0x0f}
0x1b17…1b28 Line {l1=0x0f, l2=»16:R:=STASBEST;«, l3=0x0f}
0x1b28…1b4a Line {l1=0x20, l2=»17:R:=DATSBES1*10000.0+DATSBES2;«, l3=0x20}
0x1b4a…1b6c Line {l1=0x20, l2=»18:R:=DATSORD1*10000.0+DATSORD2;«, l3=0x20}
0x1b6c…1b7d Line {l1=0x0f, l2=»19:R:=ASOLGTIÅ;«, l3=0x0f}
0x1b7d…1b8e Line {l1=0x0f, l2=»20:R:=ASOLGTSÅ;«, l3=0x0f}
0x1b8e…1ba1 Line {l1=0x11, l2=»21:R:=OMSIÅR/100;«, l3=0x11}
0x1ba1…1bb4 Line {l1=0x11, l2=»22:R:=OMSSÅR/100;«, l3=0x11}
0x1bb4…1bc9 Line {l1=0x13, l2=»23:R:=DÆKBIDTD/100;«, l3=0x13}
0x1bc9…1bda Line {l1=0x0f, l2=»24:R:=DÆKGRASÅ;«, l3=0x0f}
0x1bda…1beb Line {l1=0x0f, l2=»25:R:=ANAFTILG;«, l3=0x0f}
0x1beb…1c1e Line {l1=0x31, l2=»26:IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x31}
0x1c1e…1c5a Line {l1=0x3a, l2=» R:=ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR)«, l3=0x3a}
0x1c5a…1c63 Line {l1=0x07, l2=» ELSE«, l3=0x07}
0x1c63…1c71 Line {l1=0x0c, l2=» R:=0.0;«, l3=0x0c}
0x1c71…1c82 Line {l1=0x0f, l2=»27:R:=PRIMOLAG;«, l3=0x0f}
0x1c82…1ca0 Line {l1=0x1c, l2=»28:R:=FYSLAGER*KOSTPRIS/100;«, l3=0x1c}
0x1ca0…1ca6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ca6…1ce3 Line {l1=0x3b, l2=»IF (R>=FRA) AND (R<=TIL) THEN CHECK:=TRUE ELSE CHECK:=FALSE«, l3=0x3b}
0x1ce3…1ce9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ce9…1cfd Line {l1=0x12, l2=»PROCEDURE INDKRIT;«, l3=0x12}
0x1cfd…1d04 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d04…1d0e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1d0e…1d20 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1d20…1d2f Line {l1=0x0d, l2=» PRVAROPL;«, l3=0x0d}
0x1d2f…1d66 Line {l1=0x35, l2=» FOR I:=1 TO 20 DO FOR J:=1 TO 6 DO PICTURE(I,J):=0;«, l3=0x35}
0x1d66…1d74 Line {l1=0x0c, l2=» I:=1;J:=1;«, l3=0x0c}
0x1d74…1d7e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1d7e…1d91 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x1d91…1db6 Line {l1=0x23, l2=» WRITELN('FELTER I LINIE ',I:2);«, l3=0x23}
0x1db6…1dd1 Line {l1=0x19, l2=» GOTOXY(20,23);READLN;«, l3=0x19}
0x1dd1…1df4 Line {l1=0x21, l2=» WHILE (NOT EOLN) AND (J<7) DO«, l3=0x21}
0x1df4…1dff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1dff…1e1a Line {l1=0x19, l2=» READ(PICTURE(I,J));«, l3=0x19}
0x1e1a…1e66 Line {l1=0x4a, l2=» IF (IORESULT<>0) OR (PICTURE(I,J)<0) OR (PICTURE(I,J)>40) THEN J:=9;«, l3=0x4a}
0x1e66…1e74 Line {l1=0x0c, l2=» J:=J+1«, l3=0x0c}
0x1e74…1e7e Line {l1=0x08, l2=» END;«, l3=0x08}
0x1e7e…1ea1 Line {l1=0x21, l2=» IF PICTURE(I,1)<0 THEN I:=21;«, l3=0x21}
0x1ea1…1eba Line {l1=0x17, l2=» IF J<8 THEN I:=I+1;«, l3=0x17}
0x1eba…1ec5 Line {l1=0x09, l2=» J:=1;«, l3=0x09}
0x1ec5…1ed4 Line {l1=0x0d, l2=» UNTIL I>20;«, l3=0x0d}
0x1ed4…1ee4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1ee4…1ef9 Line {l1=0x13, l2=» FOR I:=1 TO 20 DO«, l3=0x13}
0x1ef9…1f02 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1f02…1f2d Line {l1=0x29, l2=» FOR J:=1 TO 6 DO PRINT(PICTURE(I,J));«, l3=0x29}
0x1f2d…1f3a Line {l1=0x0b, l2=» WRITELN«, l3=0x0b}
0x1f3a…1f42 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1f42…1f6a Line {l1=0x26, l2=» GOTOXY(1,23);WRITELN('O.K. (J/N) ');«, l3=0x26}
0x1f6a…1f74 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f74…1f88 Line {l1=0x12, l2=» GOTOXY(15,23);«, l3=0x12}
0x1f88…1f9d Line {l1=0x13, l2=» READLN;READ(CH)«, l3=0x13}
0x1f9d…1fe6 Line {l1=0x47, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='n') OR (CH='j'))«, l3=0x47}
0x1fe6…2005 Line {l1=0x1d, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1d}
0x2005…2015 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2015…2022 Line {l1=0x0b, l2=» PRVAROPL;«, l3=0x0b}
0x2022…2057 Line {l1=0x33, l2=» GOTOXY(1,23);WRITELN('UDVALGSKRITERIE 1, 4-40 ');«, l3=0x33}
0x2057…2061 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2061…2086 Line {l1=0x23, l2=» GOTOXY(25,23);READLN;READ(KRIT)«, l3=0x23}
0x2086…20c8 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND ((KRIT=1) OR ((KRIT>3) AND (KRIT<41)));«, l3=0x40}
0x20c8…210f Line {l1=0x45, l2=» GOTOXY(1,23);WRITELN('FRA TIL ');«, l3=0x45}
0x210f…2119 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2119…213d Line {l1=0x22, l2=» GOTOXY(5,23);READLN;READ(FRA);«, l3=0x22}
0x213d…2155 Line {l1=0x16, l2=» IF IORESULT=0 THEN«, l3=0x16}
0x2155…2160 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2160…2186 Line {l1=0x24, l2=» GOTOXY(22,23);READLN;READ(TIL)«, l3=0x24}
0x2186…2190 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2190…21b6 Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (FRA<=TIL);«, l3=0x24}
0x21b6…21bf Line {l1=0x07, l2=» I:=1;«, l3=0x07}
0x21bf…21c9 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x21c9…2205 Line {l1=0x3a, l2=» GOTOXY(1,23);WRITELN('Summeringsfelter 1, 4-40 ');«, l3=0x3a}
0x2205…2211 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2211…2236 Line {l1=0x23, l2=» GOTOXY(26,23);READLN;READ(J)«, l3=0x23}
0x2236…227a Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND ((J=0) OR (J=1) OR ((J>3) AND (J<41)));«, l3=0x42}
0x227a…228e Line {l1=0x12, l2=» SUMKRIT(I):=J;«, l3=0x12}
0x228e…22b1 Line {l1=0x21, l2=» IF J=0 THEN I:=5 ELSE I:=I+1;«, l3=0x21}
0x22b1…22bf Line {l1=0x0c, l2=» UNTIL I=5;«, l3=0x0c}
0x22bf…22e1 Line {l1=0x20, l2=» FOR I:=1 TO 4 DO SUMS(I):=0.0;«, l3=0x20}
0x22e1…22e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x22e7…22ee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x22ee…230e Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x230e…2317 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x2317…2321 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2321…233e Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x233e…2350 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x2350…2365 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2365…236e Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x236e…237c Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x237c…238c Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x238c…239d Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x239d…23ab Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x23ab…23b5 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x23b5…23c8 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x23c8…23fd Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x23fd…240a Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x240a…2413 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x2413…2431 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x2431…2441 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x2441…244a Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x244a…245f Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x245f…246d Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x246d…247d Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x247d…249f Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x249f…24b5 Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x24b5…24cb Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x24cb…24df Line {l1=0x12, l2=» VARE.VARENR1:=0;«, l3=0x12}
0x24df…24fa Line {l1=0x19, l2=» NEXTREC(VZ.H,F,VARE.A);«, l3=0x19}
0x24fa…2506 Line {l1=0x0a, l2=» INDKRIT;«, l3=0x0a}
0x2506…2511 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x2511…251e Line {l1=0x0b, l2=» LINIE:=0;«, l3=0x0b}
0x251e…2533 Line {l1=0x13, l2=» FOR I:=1 TO 20 DO«, l3=0x13}
0x2533…253c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x253c…2568 Line {l1=0x2a, l2=» FOR J:=1 TO 6 DO PRINT1(PICTURE(I,J));«, l3=0x2a}
0x2568…257c Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x257c…2591 Line {l1=0x13, l2=» LINIE:=LINIE+1;«, l3=0x13}
0x2591…25a3 Line {l1=0x10, l2=» IF I<20 THEN«, l3=0x10}
0x25a3…25c7 Line {l1=0x22, l2=» IF PICTURE(I+1,1)<0 THEN I:=20«, l3=0x22}
0x25c7…25cf Line {l1=0x06, l2=» END;«, l3=0x06}
0x25cf…25d9 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x25d9…25eb Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x25eb…25fd Line {l1=0x10, l2=» LINIE:=LINIE+1«, l3=0x10}
0x25fd…2610 Line {l1=0x11, l2=» UNTIL LINIE=72;«, l3=0x11}
0x2610…261d Line {l1=0x0b, l2=» LINIE:=0;«, l3=0x0b}
0x261d…2627 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2627…266b Line {l1=0x42, l2=» WHILE (NOT CHECK(KRIT)) AND (IER=0) DO NEXTREC(VZ.H,F,VARE.A);«, l3=0x42}
0x266b…267e Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x267e…2689 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2689…26a2 Line {l1=0x17, l2=» FOR I:=1 TO 20 DO«, l3=0x17}
0x26a2…26af Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x26af…26de Line {l1=0x2d, l2=» FOR J:=1 TO 6 DO SKRIG(PICTURE(I,J));«, l3=0x2d}
0x26de…26f6 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x26f6…270f Line {l1=0x17, l2=» LINIE:=LINIE+1;«, l3=0x17}
0x270f…2729 Line {l1=0x18, l2=» IF LINIE=60 THEN«, l3=0x18}
0x2729…2738 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2738…274a Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x274a…2774 Line {l1=0x28, l2=» WRITELN(LIST);LINIE:=LINIE+1«, l3=0x28}
0x2774…278f Line {l1=0x19, l2=» UNTIL LINIE=72;«, l3=0x19}
0x278f…27a3 Line {l1=0x12, l2=» LINIE:=0«, l3=0x12}
0x27a3…27b1 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x27b1…27c7 Line {l1=0x14, l2=» IF I<20 THEN«, l3=0x14}
0x27c7…27ef Line {l1=0x26, l2=» IF PICTURE(I+1,1)<0 THEN I:=20«, l3=0x26}
0x27ef…27fb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x27fb…2832 Line {l1=0x35, l2=» FOR I:=1 TO 4 DO IF SUMKRIT(I)=0 THEN I:=4 ELSE«, l3=0x35}
0x2832…2843 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2843…286b Line {l1=0x26, l2=» IF CHECK(SUMKRIT(I)) THEN;«, l3=0x26}
0x286b…288b Line {l1=0x1e, l2=» SUMS(I):=SUMS(I)+R«, l3=0x1e}
0x288b…289b Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x289b…28ba Line {l1=0x1d, l2=» NEXTREC(VZ.H,F,VARE.A);«, l3=0x1d}
0x28ba…28c3 Line {l1=0x07, l2=» END«, l3=0x07}
0x28c3…28d4 Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x28d4…28de Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x28de…2900 Line {l1=0x20, l2=» WRITELN(LIST);LINIE:=LINIE+1«, l3=0x20}
0x2900…2913 Line {l1=0x11, l2=» UNTIL LINIE=72;«, l3=0x11}
0x2913…2931 Line {l1=0x1c, l2=» WRITELN(LIST,'Summer af');«, l3=0x1c}
0x2931…2959 Line {l1=0x26, l2=» FOR I:=1 TO 4 DO PRINT1(SUMKRIT(I));«, l3=0x26}
0x2959…296b Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x296b…29af Line {l1=0x42, l2=» FOR I:=1 TO 4 DO IF SUMKRIT(I)<>0 THEN WRITE(LIST,SUMS(I):19:3);«, l3=0x42}
0x29af…29c1 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x29c1…29db Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x29db…29ee Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x29ee…2a14 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x2a14…2a1a Line {l1=0x04, l2=»END.«, l3=0x04}
0x2a1a…2a20 00 00 2e 04 00 00 ┆ . ┆
0x2a20…2a40 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 ┆ ┆
[…0xd…]