|
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: 12480 (0x30c0)
Types: TextFile
Notes: Mikados_K
Names: »LAGERVAL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »LAGERVAL.K«
PROGRAM VAREVEDL;
(*$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;
VAR F:ISF;
VZ:ZONE;
FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
FYS,LVD:REAL;
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
PROCEDURE PRVAROPL(O,KODE:INTEGER);
PROCEDURE PR1;
BEGIN
WITH VARE DO
CASE O OF
1:BEGIN
GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);
END;
2:BEGIN
GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));
END;
3:BEGIN
GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));
END;
4:BEGIN
GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);
END;
5:IF KODE>0 THEN BEGIN
GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);
END;
6:BEGIN
GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);
END;
7:BEGIN
GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);
END;
8:BEGIN
GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);
WRITELN(TOLDPNR/1000:10:3);
END;
9:BEGIN
GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);
END;
10:BEGIN
GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);
WRITE(TRUNC(FYSLAGER):10);
GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);
WRITELN(TRUNC(PRIMOLAG):10);
END;
11:BEGIN
GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(
TRUNC(RESAFLAG):10);
END;
END;
END;
PROCEDURE PR2;
BEGIN
WITH VARE DO
CASE O OF
12:BEGIN
GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);
WRITELN(TRUNC(MINLAGER):10);
END;
13:BEGIN
GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(TRUNC(IORDRE):10);
END;
14:BEGIN
GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);
END;
15:BEGIN
WRITELN(TRUNC(RAIORDRE):10);
GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);
END;
16:BEGIN
GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(
TRUNC(STASBEST):10);
END;
17:BEGIN
GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);
WRITELN(DATSBES1:5,DATSBES2:5);
END;
18:BEGIN
GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(
DATSORD1:5,DATSORD2:5);
END;
19: IF KODE>0 THEN BEGIN
GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);
WRITELN(TRUNC(ASOLGTIÅ):10);
END;
20: IF KODE>0 THEN BEGIN
GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);
WRITELN(TRUNC(ASOLGTSÅ):10);
END;
21: IF KODE>0 THEN BEGIN
GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);
WRITELN(TRUNC(OMSIÅR):10);
IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN
BEGIN
GOTOXY(50,1);
WRITELN('GODT TAL ',(PRIMOLAG+FYSLAGER)*DÆKBIDTD/(2*OMSIÅR):12:3)
END;
END;
22: IF KODE>0 THEN BEGIN
GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(TRUNC(OMSSÅR):10);
END;
23: IF KODE>0 THEN BEGIN
GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(
TRUNC(DÆKBIDTD):10);
END;
24: IF KODE>0 THEN BEGIN
GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);
END;
25:BEGIN
GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(
ANAFTILG:10);
END;
END
END;
BEGIN
IF O<>0 THEN
BEGIN
IF (1<=O) AND (O<=11) THEN PR1
ELSE
IF (12<=O) AND (O<=25) THEN PR2
ELSE
BEGIN
CLEARSCREEN;
FOR O:=1 TO 11 DO PR1;
FOR O:=12 TO 25 DO PR2
END
END
END;
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE VAREOPL(O:INTEGER);
VAR STRENG:STRING;
I:INTEGER;
FUNCTION LÆS(X,Y:INTEGER):REAL;
VAR RES:REAL;
BEGIN
REPEAT
GOTOXY(X,Y);
READLN;
READ(RES)
UNTIL IORESULT=0;
LÆS:=RES
END;
BEGIN
WITH VARE DO
CASE O OF
1: REPEAT
GOTOXY(20,1);READLN;READ(VARENR1)
UNTIL (VARENR1>999) AND (VARENR1<10000) AND (IORESULT=0);
2: BEGIN REPEAT
GOTOXY(30,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;
3: BEGIN REPEAT
GOTOXY(30,3);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;
4:
PRIS:=LÆS(20,4)*100;
5:
KOSTPRIS:=LÆS(20,5)*100;
6: REPEAT
GOTOXY(20,6);READLN;READ(LVRNDØR)
UNTIL (IORESULT=0) AND (LVRNDØR>=1) AND (LVRNDØR<10000);
7: REPEAT
GOTOXY(20,7);READLN;READ(OPRLAND)
UNTIL (IORESULT=0) AND (OPRLAND>=0) AND (OPRLAND<100);
8: BEGIN
TOLDPNR:=LÆS(20,8);
TOLDPNR:=TOLDPNR*1000
END;
9: REPEAT
GOTOXY(20,9);READLN;READ(PAKENHED)
UNTIL IORESULT=0;
10:
FYSLAGER:=LÆS(20,10);
11:
RESAFLAG:=LÆS(20,11);
12:
MINLAGER:=LÆS(20,12);
13:
IORDRE:=LÆS(20,13);
14:
RAIORDRE:=LÆS(20,14);
15: REPEAT
GOTOXY(68,14);READLN;READ(FORVLEVU)
UNTIL (IORESULT=0) AND (FORVLEVU>=0) AND (FORVLEVU<=53);
16:
STASBEST:=LÆS(30,15);
17: REPEAT
GOTOXY(68,15);READLN;READ(DATSBES1,DATSBES2)
UNTIL IORESULT=0;
18: REPEAT
GOTOXY(31,16);READLN;READ(DATSORD1,DATSORD2)
UNTIL IORESULT=0;
19:
ASOLGTIÅ:=LÆS(30,17);
20:
ASOLGTSÅ:=LÆS(67,17);
21:
OMSIÅR:=LÆS(30,18);
22:
OMSSÅR:=LÆS(67,18);
23:
DÆKBIDTD:=LÆS(30,19);
24: REPEAT
GOTOXY(67,19);READLN;READ(DÆKGRASÅ)
UNTIL IORESULT=0;
25: REPEAT
GOTOXY(30,20);READLN;READ(ANAFTILG)
UNTIL IORESULT=0
END
END;
PROCEDURE ZERREC;
BEGIN
WITH VARE DO
BEGIN
VARENR1:=0;
FILLCHAR(NAVN(1),30,' ');
FILLCHAR(NAVN(2),30,' ');
PRIS:=0.0;
KOSTPRIS:=0.0;
LVRNDØR:=0;
OPRLAND:=0;
TOLDPNR:=0.0;
PAKENHED:=0;
FYSLAGER:=0.0;
PRIMOLAG:=0.0;
MINLAGER:=0.0;
RESAFLAG:=0.0;
IORDRE:=0.0;
RAIORDRE:=0.0;
FORVLEVU:=0;
STASBEST:=0.0;
DATSBES1:=0;DATSBES2:=0;
DATSORD1:=0;DATSORD2:=0;
ASOLGTIÅ:=0.0;
ASOLGTSÅ:=0.0;
OMSIÅR:=0.0;
OMSSÅR:=0.0;
DÆKBIDTD:=0.0;
DÆKGRASÅ:=0;
ANAFTILG:=0
END
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I VAREREG ',IER);
ICLOSE(VZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
PROCEDURE MAINTAIN;
VAR I,O,P,KODE:INTEGER;
CHANGED:BOOLEAN;
STRENG:STRING;
KODE1,KODE2:STRING(10); (*KIKKENØGLE,ÆNDRENØGLE*)
BEGIN
(*INDLÆS KODE1 OG KODE2 FRA SYSREG*)
KODE2:='PILLEPILLE';
KODE1:='KIKKEKIKKE';
CLEARSCREEN;
GOTOXY(1,1);WRITELN('ADGANGSKODE');
GOTOXY(20,1);READLN;READ(STRENG);
KODE:=0;
IF STRENG=KODE1 THEN KODE:=1;
IF STRENG=KODE2 THEN KODE:=2;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');
GOTOXY(50,22);READLN;READ(P)
UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));
CASE P OF
1: BEGIN
ZERREC;
PRVAROPL(-1,KODE);
FOR I:=1 TO 10 DO VAREOPL(I);VAREOPL(12);
PRVAROPL(-1,KODE);
REPEAT
GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');
GOTOXY(40,22);READLN;READ(O);
IF ((O>=1) AND (O<=10)) OR (O=12) THEN VAREOPL(O);
VARE.PRIMOLAG:=VARE.FYSLAGER;
PRVAROPL(O,KODE)
UNTIL O=0;
REPEAT
INSERT(VZ.H,F,VARE.A);
IF IER=-7 THEN
BEGIN
GOTOXY(1,23);WRITELN('VARENR FINDES I FORVEJEN ');
VAREOPL(1)
END
ELSE
IF IER<>0 THEN ERROR
UNTIL IER=0;
END;
2: BEGIN
REPEAT
GOTOXY(1,23);WRITELN('VARENR ');
GOTOXY(30,23);READLN;READ(O)
UNTIL (IORESULT=0) AND (O>999) AND (O<10000);
VARE.VARENR1:=O;
GETREC(VZ.H,F,VARE.A);
IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRVAROPL(-1,KODE);
CHANGED:=FALSE;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');
GOTOXY(40,22);READLN;READ(O)
UNTIL IORESULT=0;
CASE O OF
1,10,12 : BEGIN
GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT');
GOTOXY(25,23);
WRITELN('TRYK RETURN NÅR FORSTÅET');
GOTOXY(60,23);READLN;READ(STRENG);
IF STRENG='A' THEN
BEGIN
VAREOPL(O);CHANGED:=TRUE
END
END;
4,7,8,5,19,20,21,22,23,24: IF KODE=2 THEN
BEGIN
VAREOPL(O);CHANGED:=TRUE
END ELSE
BEGIN GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');
END;
2,3,6,9,11,13,14,15,16,17,18,25 :BEGIN VAREOPL(O);CHANGED:=TRUE END
END;
PRVAROPL(O,KODE)
UNTIL O=0;
IF CHANGED THEN PUTREC(VZ.H,F,VARE.A);
END
END;
3: BEGIN
REPEAT
GOTOXY(1,23);WRITELN('VARENR ');
GOTOXY(30,23);READLN;READ(O)
UNTIL (IORESULT=0) AND (O>999) AND (O<10000);
VARE.VARENR1:=O;
GETREC(VZ.H,F,VARE.A);
IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRVAROPL(-1,KODE);
IF KODE=2 THEN
WITH VARE DO
BEGIN
IF (FYSLAGER=0) AND (RESAFLAG=0) AND (IORDRE=0) AND (RAIORDRE=0)
THEN BEGIN
REPEAT
GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');
GOTOXY(40,23);READLN;READ(O)
UNTIL (IORESULT=0) AND ((O=0) OR (O=1));
IF O=1 THEN
BEGIN
DELETE(VZ.H,F,VARE.A);
PRVAROPL(-1,KODE);
IF IER<>0 THEN ERROR
END
END
ELSE
BEGIN
GOTOXY(1,23);
WRITELN('VAREN MÅ IKKE SLETTES P.GR.A. POSITIVE LAGER/ORDRE-TAL')
END
END
ELSE
BEGIN
GOTOXY(1,23);
WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')
END
END
END
END
UNTIL P=0
END;
BEGIN
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,LÆS);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
WITH VARE DO
BEGIN
VARENR1:=0;
I:=0;
NEXTREC(VZ.H,F,A);
REPEAT
WRITELN(LIST,VARENR1:5,NAVN(1):32,FYSLAGER:10:-2,PRIS/100:14:2,
KOSTPRIS/100:10:2,(FYSLAGER*KOSTPRIS)/100:10:2);
WRITELN(LIST);
I:=I+1;FYS:=FYS+FYSLAGER;LVD:=LVD+(FYSLAGER*KOSTPRIS);
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
END;
ICLOSE(VZ.H,F);
WRITELN(LIST);
WRITELN(LIST,'TOTAL STK :',FYS:10:-2,'TOTALVÆRDI :',LVD/100:14:2,
'GENNEMSNITSPRIS :',(LVD/FYS)/100:14:2);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM VAREVEDL;«, 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…01de Line {l1=0x05, l2=» END;«, l3=0x05}
0x01de…01ed Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x01ed…01fe Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x01fe…021b Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x021b…0231 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x0231…0245 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x0245…025a Line {l1=0x13, l2=» FYS,LVD:REAL;«, l3=0x13}
0x025a…025d Line {l1=0x01, l2=» «, l3=0x01}
[…0x52…]
0x0353…0366 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0366…0373 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0373…0380 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0380…0390 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0390…03a0 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03a0…03af Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x03af…03bd Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03bd…03cb Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x03cb…03d9 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x03d9…03e8 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03e8…03f6 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x03f6…03ff Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x03ff…0424 Line {l1=0x23, l2=»PROCEDURE PRVAROPL(O,KODE:INTEGER);«, l3=0x23}
0x0424…0434 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x0434…043b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x043b…0449 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x0449…0454 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0454…045d Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x045d…049e Line {l1=0x3f, l2=»GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);«, l3=0x3f}
0x049e…04a4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04a4…04ad Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x04ad…04ed Line {l1=0x3e, l2=»GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3e}
0x04ed…04f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f3…04fc Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x04fc…0547 Line {l1=0x49, l2=»GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x49}
0x0547…054d Line {l1=0x04, l2=»END;«, l3=0x04}
0x054d…0556 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x0556…0598 Line {l1=0x40, l2=»GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);«, l3=0x40}
0x0598…059e Line {l1=0x04, l2=»END;«, l3=0x04}
0x059e…05b6 Line {l1=0x16, l2=»5:IF KODE>0 THEN BEGIN«, l3=0x16}
0x05b6…0600 Line {l1=0x48, l2=»GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);«, l3=0x48}
0x0600…0606 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0606…060f Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x060f…0656 Line {l1=0x45, l2=»GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);«, l3=0x45}
0x0656…065c Line {l1=0x04, l2=»END;«, l3=0x04}
0x065c…0665 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x0665…06af Line {l1=0x48, l2=»GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);«, l3=0x48}
0x06af…06b5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b5…06be Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x06be…06f4 Line {l1=0x34, l2=»GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);«, l3=0x34}
0x06f4…0711 Line {l1=0x1b, l2=»WRITELN(TOLDPNR/1000:10:3);«, l3=0x1b}
0x0711…0717 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0717…0720 Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x0720…0769 Line {l1=0x47, l2=»GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);«, l3=0x47}
0x0769…076f Line {l1=0x04, l2=»END;«, l3=0x04}
0x076f…0779 Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x0779…07af Line {l1=0x34, l2=»GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);«, l3=0x34}
0x07af…07cb Line {l1=0x1a, l2=»WRITE(TRUNC(FYSLAGER):10);«, l3=0x1a}
0x07cb…0800 Line {l1=0x33, l2=»GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);«, l3=0x33}
0x0800…081e Line {l1=0x1c, l2=»WRITELN(TRUNC(PRIMOLAG):10);«, l3=0x1c}
0x081e…0824 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0824…082e Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x082e…0878 Line {l1=0x48, l2=»GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(«, l3=0x48}
0x0878…08c4 Line {l1=0x4a, l2=» TRUNC(RESAFLAG):10);«, l3=0x4a}
0x08c4…08ca Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x08d6…08e6 Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x08e6…08ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08ed…08fb Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x08fb…0906 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0906…0910 Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x0910…0947 Line {l1=0x35, l2=»GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);«, l3=0x35}
0x0947…0965 Line {l1=0x1c, l2=»WRITELN(TRUNC(MINLAGER):10);«, l3=0x1c}
0x0965…096b Line {l1=0x04, l2=»END;«, l3=0x04}
0x096b…0975 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x0975…09c0 Line {l1=0x49, l2=»GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(TRUNC(IORDRE):10);«, l3=0x49}
0x09c0…09c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09c6…09d0 Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x09d0…0a0a Line {l1=0x38, l2=»GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);«, l3=0x38}
0x0a0a…0a10 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a10…0a1a Line {l1=0x08, l2=»15:BEGIN«, l3=0x08}
0x0a1a…0a38 Line {l1=0x1c, l2=»WRITELN(TRUNC(RAIORDRE):10);«, l3=0x1c}
0x0a38…0a86 Line {l1=0x4c, l2=»GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);«, l3=0x4c}
0x0a86…0a8c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a8c…0a96 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x0a96…0ae1 Line {l1=0x49, l2=»GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(«, l3=0x49}
0x0ae1…0af7 Line {l1=0x14, l2=»TRUNC(STASBEST):10);«, l3=0x14}
0x0af7…0afd Line {l1=0x04, l2=»END;«, l3=0x04}
0x0afd…0b07 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x0b07…0b3c Line {l1=0x33, l2=»GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);«, l3=0x33}
0x0b3c…0b5d Line {l1=0x1f, l2=»WRITELN(DATSBES1:5,DATSBES2:5);«, l3=0x1f}
0x0b5d…0b63 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b63…0b6d Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x0b6d…0baa Line {l1=0x3b, l2=»GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(«, l3=0x3b}
0x0baa…0bc3 Line {l1=0x17, l2=»DATSORD1:5,DATSORD2:5);«, l3=0x17}
0x0bc3…0bc9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bc9…0be3 Line {l1=0x18, l2=»19: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0be3…0c17 Line {l1=0x32, l2=»GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);«, l3=0x32}
0x0c17…0c35 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTIÅ):10);«, l3=0x1c}
0x0c35…0c3b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c3b…0c55 Line {l1=0x18, l2=»20: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0c55…0c8b Line {l1=0x34, l2=»GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);«, l3=0x34}
0x0c8b…0ca9 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTSÅ):10);«, l3=0x1c}
0x0ca9…0caf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0caf…0cc9 Line {l1=0x18, l2=»21: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0cc9…0cfc Line {l1=0x31, l2=»GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);«, l3=0x31}
0x0cfc…0d18 Line {l1=0x1a, l2=»WRITELN(TRUNC(OMSIÅR):10);«, l3=0x1a}
0x0d18…0d48 Line {l1=0x2e, l2=»IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x2e}
0x0d48…0d4f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d4f…0d5e Line {l1=0x0d, l2=»GOTOXY(50,1);«, l3=0x0d}
0x0d5e…0da1 Line {l1=0x41, l2=»WRITELN('GODT TAL ',(PRIMOLAG+FYSLAGER)*DÆKBIDTD/(2*OMSIÅR):12:3)«, l3=0x41}
0x0da1…0da7 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x0dad…0dc7 Line {l1=0x18, l2=»22: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0dc7…0e16 Line {l1=0x4d, l2=»GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(TRUNC(OMSSÅR):10);«, l3=0x4d}
0x0e16…0e1c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e1c…0e36 Line {l1=0x18, l2=»23: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0e36…0e7f Line {l1=0x47, l2=»GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(«, l3=0x47}
0x0e7f…0e95 Line {l1=0x14, l2=»TRUNC(DÆKBIDTD):10);«, l3=0x14}
0x0e95…0e9b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e9b…0eb5 Line {l1=0x18, l2=»24: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0eb5…0f03 Line {l1=0x4c, l2=»GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);«, l3=0x4c}
0x0f03…0f09 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f09…0f13 Line {l1=0x08, l2=»25:BEGIN«, l3=0x08}
0x0f13…0f5b Line {l1=0x46, l2=»GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(«, l3=0x46}
0x0f5b…0f6a Line {l1=0x0d, l2=»ANAFTILG:10);«, l3=0x0d}
0x0f6a…0f70 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f70…0f75 Line {l1=0x03, l2=»END«, l3=0x03}
0x0f75…0f7b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f7b…0f82 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f82…0f92 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0f92…0f9b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f9b…0fbf Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x0fbf…0fc9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0fc9…0fee Line {l1=0x23, l2=» IF (12<=O) AND (O<=25) THEN PR2«, l3=0x23}
0x0fee…0ff8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0ff8…1003 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1003…1018 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x1018…1037 Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x1037…1056 Line {l1=0x1d, l2=» FOR O:=12 TO 25 DO PR2«, l3=0x1d}
0x1056…105f Line {l1=0x07, l2=» END«, l3=0x07}
0x105f…1066 Line {l1=0x05, l2=» END«, l3=0x05}
0x1066…106c Line {l1=0x04, l2=»END;«, l3=0x04}
0x106c…107d Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x107d…108d Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x108d…10a4 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x10a4…10c3 Line {l1=0x1d, l2=»PROCEDURE VAREOPL(O:INTEGER);«, l3=0x1d}
0x10c3…10d7 Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x10d7…10e7 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x10e7…1108 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x1108…1117 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x1117…111e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x111e…1128 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1128…113d Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x113d…114d Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x114d…115f Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x115f…1174 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1174…1180 Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x1180…1186 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1186…118d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x118d…119d Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x119d…11aa Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x11aa…11b9 Line {l1=0x0d, l2=» 1: REPEAT«, l3=0x0d}
0x11b9…11e3 Line {l1=0x28, l2=» GOTOXY(20,1);READLN;READ(VARENR1)«, l3=0x28}
0x11e3…1225 Line {l1=0x40, l2=» UNTIL (VARENR1>999) AND (VARENR1<10000) AND (IORESULT=0);«, l3=0x40}
0x1225…123a Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x123a…1263 Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x1263…1284 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x1284…12c5 Line {l1=0x3f, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;«, l3=0x3f}
0x12c5…12da Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x12da…1303 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x1303…1324 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x1324…1364 Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x1364…136d Line {l1=0x07, l2=» 4: «, l3=0x07}
0x136d…1383 Line {l1=0x14, l2=»PRIS:=LÆS(20,4)*100;«, l3=0x14}
0x1383…138c Line {l1=0x07, l2=» 5: «, l3=0x07}
0x138c…13a6 Line {l1=0x18, l2=»KOSTPRIS:=LÆS(20,5)*100;«, l3=0x18}
0x13a6…13b5 Line {l1=0x0d, l2=» 6: REPEAT«, l3=0x0d}
0x13b5…13df Line {l1=0x28, l2=» GOTOXY(20,6);READLN;READ(LVRNDØR)«, l3=0x28}
0x13df…1420 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (LVRNDØR>=1) AND (LVRNDØR<10000);«, l3=0x3f}
0x1420…142f Line {l1=0x0d, l2=» 7: REPEAT«, l3=0x0d}
0x142f…1459 Line {l1=0x28, l2=» GOTOXY(20,7);READLN;READ(OPRLAND)«, l3=0x28}
0x1459…1498 Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND (OPRLAND>=0) AND (OPRLAND<100);«, l3=0x3d}
0x1498…14a6 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x14a6…14bb Line {l1=0x13, l2=»TOLDPNR:=LÆS(20,8);«, l3=0x13}
0x14bb…14d9 Line {l1=0x1c, l2=» TOLDPNR:=TOLDPNR*1000«, l3=0x1c}
0x14d9…14e6 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x14e6…14f5 Line {l1=0x0d, l2=» 9: REPEAT«, l3=0x0d}
0x14f5…1520 Line {l1=0x29, l2=» GOTOXY(20,9);READLN;READ(PAKENHED)«, l3=0x29}
0x1520…153a Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x153a…1543 Line {l1=0x07, l2=» 10: «, l3=0x07}
0x1543…155a Line {l1=0x15, l2=»FYSLAGER:=LÆS(20,10);«, l3=0x15}
0x155a…1563 Line {l1=0x07, l2=» 11: «, l3=0x07}
0x1563…157a Line {l1=0x15, l2=»RESAFLAG:=LÆS(20,11);«, l3=0x15}
0x157a…1583 Line {l1=0x07, l2=» 12: «, l3=0x07}
0x1583…159a Line {l1=0x15, l2=»MINLAGER:=LÆS(20,12);«, l3=0x15}
0x159a…15a3 Line {l1=0x07, l2=» 13: «, l3=0x07}
0x15a3…15b8 Line {l1=0x13, l2=»IORDRE:=LÆS(20,13);«, l3=0x13}
0x15b8…15c1 Line {l1=0x07, l2=» 14: «, l3=0x07}
0x15c1…15d8 Line {l1=0x15, l2=»RAIORDRE:=LÆS(20,14);«, l3=0x15}
0x15d8…15e7 Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x15e7…1613 Line {l1=0x2a, l2=» GOTOXY(68,14);READLN;READ(FORVLEVU)«, l3=0x2a}
0x1613…1654 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (FORVLEVU>=0) AND (FORVLEVU<=53);«, l3=0x3f}
0x1654…165d Line {l1=0x07, l2=» 16: «, l3=0x07}
0x165d…1674 Line {l1=0x15, l2=»STASBEST:=LÆS(30,15);«, l3=0x15}
0x1674…1683 Line {l1=0x0d, l2=» 17: REPEAT«, l3=0x0d}
0x1683…16b8 Line {l1=0x33, l2=» GOTOXY(68,15);READLN;READ(DATSBES1,DATSBES2)«, l3=0x33}
0x16b8…16d2 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x16d2…16e1 Line {l1=0x0d, l2=» 18: REPEAT«, l3=0x0d}
0x16e1…1716 Line {l1=0x33, l2=» GOTOXY(31,16);READLN;READ(DATSORD1,DATSORD2)«, l3=0x33}
0x1716…1730 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1730…1739 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x1739…1750 Line {l1=0x15, l2=»ASOLGTIÅ:=LÆS(30,17);«, l3=0x15}
0x1750…1758 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x1758…176f Line {l1=0x15, l2=»ASOLGTSÅ:=LÆS(67,17);«, l3=0x15}
0x176f…1778 Line {l1=0x07, l2=» 21: «, l3=0x07}
0x1778…178d Line {l1=0x13, l2=»OMSIÅR:=LÆS(30,18);«, l3=0x13}
0x178d…1796 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x1796…17ab Line {l1=0x13, l2=»OMSSÅR:=LÆS(67,18);«, l3=0x13}
0x17ab…17b4 Line {l1=0x07, l2=» 23: «, l3=0x07}
0x17b4…17cb Line {l1=0x15, l2=»DÆKBIDTD:=LÆS(30,19);«, l3=0x15}
0x17cb…17da Line {l1=0x0d, l2=» 24: REPEAT«, l3=0x0d}
0x17da…1806 Line {l1=0x2a, l2=» GOTOXY(67,19);READLN;READ(DÆKGRASÅ)«, l3=0x2a}
0x1806…1820 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1820…182f Line {l1=0x0d, l2=» 25: REPEAT«, l3=0x0d}
0x182f…185b Line {l1=0x2a, l2=» GOTOXY(30,20);READLN;READ(ANAFTILG)«, l3=0x2a}
0x185b…1874 Line {l1=0x17, l2=» UNTIL IORESULT=0«, l3=0x17}
0x1874…187d Line {l1=0x07, l2=» END«, l3=0x07}
0x187d…1883 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1883…1896 Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x1896…189d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x189d…18ad Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x18ad…18b6 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x18b6…18ca Line {l1=0x12, l2=» VARENR1:=0;«, l3=0x12}
0x18ca…18ec Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x18ec…190e Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x190e…1921 Line {l1=0x11, l2=» PRIS:=0.0;«, l3=0x11}
0x1921…1938 Line {l1=0x15, l2=» KOSTPRIS:=0.0;«, l3=0x15}
0x1938…194c Line {l1=0x12, l2=» LVRNDØR:=0;«, l3=0x12}
0x194c…1960 Line {l1=0x12, l2=» OPRLAND:=0;«, l3=0x12}
0x1960…1976 Line {l1=0x14, l2=» TOLDPNR:=0.0;«, l3=0x14}
0x1976…198b Line {l1=0x13, l2=» PAKENHED:=0;«, l3=0x13}
0x198b…19a2 Line {l1=0x15, l2=» FYSLAGER:=0.0;«, l3=0x15}
0x19a2…19b9 Line {l1=0x15, l2=» PRIMOLAG:=0.0;«, l3=0x15}
0x19b9…19d0 Line {l1=0x15, l2=» MINLAGER:=0.0;«, l3=0x15}
0x19d0…19e7 Line {l1=0x15, l2=» RESAFLAG:=0.0;«, l3=0x15}
0x19e7…19fc Line {l1=0x13, l2=» IORDRE:=0.0;«, l3=0x13}
0x19fc…1a13 Line {l1=0x15, l2=» RAIORDRE:=0.0;«, l3=0x15}
0x1a13…1a28 Line {l1=0x13, l2=» FORVLEVU:=0;«, l3=0x13}
0x1a28…1a3f Line {l1=0x15, l2=» STASBEST:=0.0;«, l3=0x15}
0x1a3f…1a60 Line {l1=0x1f, l2=» DATSBES1:=0;DATSBES2:=0;«, l3=0x1f}
0x1a60…1a81 Line {l1=0x1f, l2=» DATSORD1:=0;DATSORD2:=0;«, l3=0x1f}
0x1a81…1a98 Line {l1=0x15, l2=» ASOLGTIÅ:=0.0;«, l3=0x15}
0x1a98…1aaf Line {l1=0x15, l2=» ASOLGTSÅ:=0.0;«, l3=0x15}
0x1aaf…1ac4 Line {l1=0x13, l2=» OMSIÅR:=0.0;«, l3=0x13}
0x1ac4…1ad9 Line {l1=0x13, l2=» OMSSÅR:=0.0;«, l3=0x13}
0x1ad9…1af0 Line {l1=0x15, l2=» DÆKBIDTD:=0.0;«, l3=0x15}
0x1af0…1b05 Line {l1=0x13, l2=» DÆKGRASÅ:=0;«, l3=0x13}
0x1b05…1b19 Line {l1=0x12, l2=» ANAFTILG:=0«, l3=0x12}
0x1b19…1b20 Line {l1=0x05, l2=» END«, l3=0x05}
0x1b20…1b26 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b26…1b38 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x1b38…1b3f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b3f…1b62 Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x1b62…1b75 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x1b75…1b90 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1b90…1b98 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x1b98…1b9e Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b9e…1bb3 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1bb3…1bcc Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x1bcc…1be2 Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x1be2…1bf6 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x1bf6…1c2e Line {l1=0x36, l2=» KODE1,KODE2:STRING(10); (*KIKKENØGLE,ÆNDRENØGLE*)«, l3=0x36}
0x1c2e…1c35 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c35…1c5d Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x1c5d…1c75 Line {l1=0x16, l2=» KODE2:='PILLEPILLE';«, l3=0x16}
0x1c75…1c8d Line {l1=0x16, l2=» KODE1:='KIKKEKIKKE';«, l3=0x16}
0x1c8d…1c9d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1c9d…1cc4 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x1cc4…1ce9 Line {l1=0x23, l2=» GOTOXY(20,1);READLN;READ(STRENG);«, l3=0x23}
0x1ce9…1cf5 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x1cf5…1d16 Line {l1=0x1f, l2=» IF STRENG=KODE1 THEN KODE:=1;«, l3=0x1f}
0x1d16…1d37 Line {l1=0x1f, l2=» IF STRENG=KODE2 THEN KODE:=2;«, l3=0x1f}
0x1d37…1d41 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x1d4b…1d99 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x1d99…1dbe Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x1dbe…1dfb Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x1dfb…1e08 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x1e08…1e16 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x1e16…1e27 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x1e27…1e43 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1e43…1e76 Line {l1=0x31, l2=» FOR I:=1 TO 10 DO VAREOPL(I);VAREOPL(12);«, l3=0x31}
0x1e76…1e92 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1e92…1ea2 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1ea2…1ef1 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x1ef1…1f19 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x1f19…1f56 Line {l1=0x3b, l2=» IF ((O>=1) AND (O<=10)) OR (O=12) THEN VAREOPL(O);«, l3=0x3b}
0x1f56…1f7e Line {l1=0x26, l2=» VARE.PRIMOLAG:=VARE.FYSLAGER;«, l3=0x26}
0x1f7e…1f99 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x1f99…1fad Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x1fad…1fbd Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1fbd…1fdd Line {l1=0x1e, l2=» INSERT(VZ.H,F,VARE.A);«, l3=0x1e}
0x1fdd…1ff5 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x1ff5…2004 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2004…2041 Line {l1=0x3b, l2=» GOTOXY(1,23);WRITELN('VARENR FINDES I FORVEJEN ');«, l3=0x3b}
0x2041…2056 Line {l1=0x13, l2=» VAREOPL(1)«, l3=0x13}
0x2056…2063 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2063…2071 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2071…208f Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x208f…20a5 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x20a5…20b2 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x20b2…20c0 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x20c0…20d1 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x20d1…2120 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x2120…2148 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2148…2180 Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x36}
0x2180…219b Line {l1=0x19, l2=» VARE.VARENR1:=O;«, l3=0x19}
0x219b…21bc Line {l1=0x1f, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1f}
0x21bc…21f6 Line {l1=0x38, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x38}
0x21f6…2205 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2205…2224 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x2224…2233 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2233…2243 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2243…2260 Line {l1=0x1b, l2=» PRVAROPL(-1,KODE);«, l3=0x1b}
0x2260…227a Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x227a…228b Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x229c…22eb Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x22eb…2313 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x2313…232f Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x232f…2343 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x2343…2363 Line {l1=0x1e, l2=» 1,10,12 : BEGIN«, l3=0x1e}
0x2363…2391 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x2391…23d2 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x23d2…2401 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x2401…2446 Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x2446…2489 Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x2489…24bc Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x24bc…24e2 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x24e2…251d Line {l1=0x39, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x39}
0x251d…2541 Line {l1=0x22, l2=» END«, l3=0x22}
0x2541…2560 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x2560…258b Line {l1=0x29, l2=»4,7,8,5,19,20,21,22,23,24: IF KODE=2 THEN«, l3=0x29}
0x258b…25ad Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x25ad…25e4 Line {l1=0x35, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x35}
0x25e4…2609 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x2609…2633 Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x2633…2682 Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x2682…269d Line {l1=0x19, l2=» END;«, l3=0x19}
0x269d…26e2 Line {l1=0x43, l2=»2,3,6,9,11,13,14,15,16,17,18,25 :BEGIN VAREOPL(O);CHANGED:=TRUE END«, l3=0x43}
0x26e2…26f7 Line {l1=0x13, l2=» END;«, l3=0x13}
0x26f7…2712 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x2712…2727 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x2727…2758 Line {l1=0x2f, l2=» IF CHANGED THEN PUTREC(VZ.H,F,VARE.A);«, l3=0x2f}
0x2758…2766 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2766…2772 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2772…277f Line {l1=0x0b, l2=» 3: BEGIN«, l3=0x0b}
0x277f…278f Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x278f…27de Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x27de…2806 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2806…283d Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x35}
0x283d…2857 Line {l1=0x18, l2=» VARE.VARENR1:=O;«, l3=0x18}
0x2857…2877 Line {l1=0x1e, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1e}
0x2877…28b0 Line {l1=0x37, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x37}
0x28b0…28be Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x28be…28dc Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x28dc…28ea Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x28ea…28f9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x28f9…2917 Line {l1=0x1c, l2=» PRVAROPL(-1,KODE);«, l3=0x1c}
0x2917…2931 Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x2931…2949 Line {l1=0x16, l2=» WITH VARE DO«, l3=0x16}
0x2949…295a Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x295a…29a8 Line {l1=0x4c, l2=» IF (FYSLAGER=0) AND (RESAFLAG=0) AND (IORDRE=0) AND (RAIORDRE=0)«, l3=0x4c}
0x29a8…29c0 Line {l1=0x16, l2=» THEN BEGIN«, l3=0x16}
0x29c0…29d7 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x29d7…2a26 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x2a26…2a53 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x2a53…2a8c Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x2a8c…2aa8 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x2aa8…2abe Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2abe…2ae7 Line {l1=0x27, l2=» DELETE(VZ.H,F,VARE.A);«, l3=0x27}
0x2ae7…2b0c Line {l1=0x23, l2=» PRVAROPL(-1,KODE);«, l3=0x23}
0x2b0c…2b33 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x2b33…2b47 Line {l1=0x12, l2=» END«, l3=0x12}
0x2b47…2b58 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2b58…2b6a Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2b6a…2b7d Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2b7d…2b9b Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2b9b…2be9 Line {l1=0x4c, l2=» WRITELN('VAREN MÅ IKKE SLETTES P.GR.A. POSITIVE LAGER/ORDRE-TAL')«, l3=0x4c}
0x2be9…2bfa Line {l1=0x0f, l2=» END«, l3=0x0f}
[…0x1…]
0x2c0b…2c1d Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2c1d…2c30 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2c30…2c4e Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2c4e…2c94 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x2c94…2ca5 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2ca5…2cb3 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2cb3…2cbe Line {l1=0x09, l2=» END«, l3=0x09}
0x2cbe…2cc6 Line {l1=0x06, l2=» END«, l3=0x06}
0x2cc6…2cd4 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x2cd4…2cda Line {l1=0x04, l2=»END;«, l3=0x04}
0x2cda…2ce1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2ce1…2d03 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x2d03…2d1b Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x2d1b…2d2b Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x2d2b…2d5f Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x2d5f…2d75 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x2d75…2d9e Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x2d9e…2dac Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x2dac…2db3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2db3…2dc2 Line {l1=0x0d, l2=» VARENR1:=0;«, l3=0x0d}
0x2dc2…2dcb Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x2dcb…2de1 Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A);«, l3=0x14}
0x2de1…2deb Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2deb…2e2c Line {l1=0x3f, l2=»WRITELN(LIST,VARENR1:5,NAVN(1):32,FYSLAGER:10:-2,PRIS/100:14:2,«, l3=0x3f}
0x2e2c…2e66 Line {l1=0x38, l2=» KOSTPRIS/100:10:2,(FYSLAGER*KOSTPRIS)/100:10:2);«, l3=0x38}
0x2e66…2e7a Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2e7a…2eb6 Line {l1=0x3a, l2=» I:=I+1;FYS:=FYS+FYSLAGER;LVD:=LVD+(FYSLAGER*KOSTPRIS);«, l3=0x3a}
0x2eb6…2ecc Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A)«, l3=0x14}
0x2ecc…2edd Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x2edd…2ee3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ee3…2ef6 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x2ef6…2f08 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2f08…2f4d Line {l1=0x43, l2=» WRITELN(LIST,'TOTAL STK :',FYS:10:-2,'TOTALVÆRDI :',LVD/100:14:2,«, l3=0x43}
0x2f4d…2f77 Line {l1=0x28, l2=»'GENNEMSNITSPRIS :',(LVD/FYS)/100:14:2);«, l3=0x28}
0x2f77…2f87 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2f87…2fa5 Line {l1=0x1c, l2=» WRITELN('ICLOSE ',IER,I:7)«, l3=0x1c}
0x2fa5…2fab Line {l1=0x04, l2=»END.«, l3=0x04}
0x2fab…2fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2fc0…2fe0 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 ┆ ┆
[…0x7…]