|
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: »VARESTAB.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VARESTAB.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 F1,F:ISF;
VZ1,VZ:ZONE;
FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE1,VARE:VPOST;
(*$R-,IEXCOMCOP*)
(*$IINITIATE*)
(*$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
WRITELN('A');READLN;
FILNAVN2:='REGVARE:P2:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F1,FILNAVN2);
IOPEN(VZ1.H,F1,SKRIV);
INITIATE(VZ1.H,F1,900);
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
INSERT(VZ1.H,F1,A);
I:=I+1;
WRITELN(VARENR1);
IF VARENR1<1010 THEN
NEXTREC(VZ.H,F,A)
UNTIL VARENR1=1010;
VARENR1:=1015;
GETREC(VZ.H,F,A);
REPEAT
INSERT(VZ1.H,F1,A);
I:=I+1;
WRITELN(VARENR1);
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
END;
ICLOSE(VZ.H,F);
ICLOSE(VZ1.H,F1);
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…01ee Line {l1=0x0e, l2=»VAR F1,F:ISF;«, l3=0x0e}
0x01ee…0200 Line {l1=0x10, l2=» VZ1,VZ:ZONE;«, l3=0x10}
0x0200…021d Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x021d…0233 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x0233…0248 Line {l1=0x13, l2=» VARE1,VARE:VPOST;«, l3=0x13}
0x0248…024b Line {l1=0x01, l2=» «, l3=0x01}
[…0x52…]
0x0341…0354 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0354…0364 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0364…0371 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0371…037e Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x037e…038e Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x038e…039e Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x039e…03ad Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x03ad…03bb Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03bb…03c9 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x03c9…03d7 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x03d7…03e6 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03e6…03f4 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x03f4…03fd Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x03fd…0422 Line {l1=0x23, l2=»PROCEDURE PRVAROPL(O,KODE:INTEGER);«, l3=0x23}
0x0422…0432 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x0432…0439 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0439…0447 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x0447…0452 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0452…045b Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x045b…049c Line {l1=0x3f, l2=»GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);«, l3=0x3f}
0x049c…04a2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04a2…04ab Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x04ab…04eb Line {l1=0x3e, l2=»GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3e}
0x04eb…04f1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f1…04fa Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x04fa…0545 Line {l1=0x49, l2=»GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x49}
0x0545…054b Line {l1=0x04, l2=»END;«, l3=0x04}
0x054b…0554 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x0554…0596 Line {l1=0x40, l2=»GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);«, l3=0x40}
0x0596…059c Line {l1=0x04, l2=»END;«, l3=0x04}
0x059c…05b4 Line {l1=0x16, l2=»5:IF KODE>0 THEN BEGIN«, l3=0x16}
0x05b4…05fe Line {l1=0x48, l2=»GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);«, l3=0x48}
0x05fe…0604 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0604…060d Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x060d…0654 Line {l1=0x45, l2=»GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);«, l3=0x45}
0x0654…065a Line {l1=0x04, l2=»END;«, l3=0x04}
0x065a…0663 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x0663…06ad Line {l1=0x48, l2=»GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);«, l3=0x48}
0x06ad…06b3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b3…06bc Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x06bc…06f2 Line {l1=0x34, l2=»GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);«, l3=0x34}
0x06f2…070f Line {l1=0x1b, l2=»WRITELN(TOLDPNR/1000:10:3);«, l3=0x1b}
0x070f…0715 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0715…071e Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x071e…0767 Line {l1=0x47, l2=»GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);«, l3=0x47}
0x0767…076d Line {l1=0x04, l2=»END;«, l3=0x04}
0x076d…0777 Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x0777…07ad Line {l1=0x34, l2=»GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);«, l3=0x34}
0x07ad…07c9 Line {l1=0x1a, l2=»WRITE(TRUNC(FYSLAGER):10);«, l3=0x1a}
0x07c9…07fe Line {l1=0x33, l2=»GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);«, l3=0x33}
0x07fe…081c Line {l1=0x1c, l2=»WRITELN(TRUNC(PRIMOLAG):10);«, l3=0x1c}
0x081c…0822 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0822…082c Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x082c…0876 Line {l1=0x48, l2=»GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(«, l3=0x48}
0x0876…08c2 Line {l1=0x4a, l2=» TRUNC(RESAFLAG):10);«, l3=0x4a}
0x08c2…08c8 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x08d4…08e4 Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x08e4…08eb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08eb…08f9 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x08f9…0904 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0904…090e Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x090e…0945 Line {l1=0x35, l2=»GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);«, l3=0x35}
0x0945…0963 Line {l1=0x1c, l2=»WRITELN(TRUNC(MINLAGER):10);«, l3=0x1c}
0x0963…0969 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0969…0973 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x0973…09be Line {l1=0x49, l2=»GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(TRUNC(IORDRE):10);«, l3=0x49}
0x09be…09c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09c4…09ce Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x09ce…0a08 Line {l1=0x38, l2=»GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);«, l3=0x38}
0x0a08…0a0e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a0e…0a18 Line {l1=0x08, l2=»15:BEGIN«, l3=0x08}
0x0a18…0a36 Line {l1=0x1c, l2=»WRITELN(TRUNC(RAIORDRE):10);«, l3=0x1c}
0x0a36…0a84 Line {l1=0x4c, l2=»GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);«, l3=0x4c}
0x0a84…0a8a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a8a…0a94 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x0a94…0adf Line {l1=0x49, l2=»GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(«, l3=0x49}
0x0adf…0af5 Line {l1=0x14, l2=»TRUNC(STASBEST):10);«, l3=0x14}
0x0af5…0afb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0afb…0b05 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x0b05…0b3a Line {l1=0x33, l2=»GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);«, l3=0x33}
0x0b3a…0b5b Line {l1=0x1f, l2=»WRITELN(DATSBES1:5,DATSBES2:5);«, l3=0x1f}
0x0b5b…0b61 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b61…0b6b Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x0b6b…0ba8 Line {l1=0x3b, l2=»GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(«, l3=0x3b}
0x0ba8…0bc1 Line {l1=0x17, l2=»DATSORD1:5,DATSORD2:5);«, l3=0x17}
0x0bc1…0bc7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bc7…0be1 Line {l1=0x18, l2=»19: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0be1…0c15 Line {l1=0x32, l2=»GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);«, l3=0x32}
0x0c15…0c33 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTIÅ):10);«, l3=0x1c}
0x0c33…0c39 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c39…0c53 Line {l1=0x18, l2=»20: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0c53…0c89 Line {l1=0x34, l2=»GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);«, l3=0x34}
0x0c89…0ca7 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTSÅ):10);«, l3=0x1c}
0x0ca7…0cad Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cad…0cc7 Line {l1=0x18, l2=»21: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0cc7…0cfa Line {l1=0x31, l2=»GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);«, l3=0x31}
0x0cfa…0d16 Line {l1=0x1a, l2=»WRITELN(TRUNC(OMSIÅR):10);«, l3=0x1a}
0x0d16…0d46 Line {l1=0x2e, l2=»IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x2e}
0x0d46…0d4d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d4d…0d5c Line {l1=0x0d, l2=»GOTOXY(50,1);«, l3=0x0d}
0x0d5c…0d9f Line {l1=0x41, l2=»WRITELN('GODT TAL ',(PRIMOLAG+FYSLAGER)*DÆKBIDTD/(2*OMSIÅR):12:3)«, l3=0x41}
0x0d9f…0da5 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x0dab…0dc5 Line {l1=0x18, l2=»22: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0dc5…0e14 Line {l1=0x4d, l2=»GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(TRUNC(OMSSÅR):10);«, l3=0x4d}
0x0e14…0e1a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e1a…0e34 Line {l1=0x18, l2=»23: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0e34…0e7d Line {l1=0x47, l2=»GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(«, l3=0x47}
0x0e7d…0e93 Line {l1=0x14, l2=»TRUNC(DÆKBIDTD):10);«, l3=0x14}
0x0e93…0e99 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e99…0eb3 Line {l1=0x18, l2=»24: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0eb3…0f01 Line {l1=0x4c, l2=»GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);«, l3=0x4c}
0x0f01…0f07 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f07…0f11 Line {l1=0x08, l2=»25:BEGIN«, l3=0x08}
0x0f11…0f59 Line {l1=0x46, l2=»GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(«, l3=0x46}
0x0f59…0f68 Line {l1=0x0d, l2=»ANAFTILG:10);«, l3=0x0d}
0x0f68…0f6e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f6e…0f73 Line {l1=0x03, l2=»END«, l3=0x03}
0x0f73…0f79 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f79…0f80 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f80…0f90 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0f90…0f99 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f99…0fbd Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x0fbd…0fc7 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0fc7…0fec Line {l1=0x23, l2=» IF (12<=O) AND (O<=25) THEN PR2«, l3=0x23}
0x0fec…0ff6 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0ff6…1001 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1001…1016 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x1016…1035 Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x1035…1054 Line {l1=0x1d, l2=» FOR O:=12 TO 25 DO PR2«, l3=0x1d}
0x1054…105d Line {l1=0x07, l2=» END«, l3=0x07}
0x105d…1064 Line {l1=0x05, l2=» END«, l3=0x05}
0x1064…106a Line {l1=0x04, l2=»END;«, l3=0x04}
0x106a…107b Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x107b…108b Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x108b…10a2 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x10a2…10c1 Line {l1=0x1d, l2=»PROCEDURE VAREOPL(O:INTEGER);«, l3=0x1d}
0x10c1…10d5 Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x10d5…10e5 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x10e5…1106 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x1106…1115 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x1115…111c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x111c…1126 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1126…113b Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x113b…114b Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x114b…115d Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x115d…1172 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1172…117e Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x117e…1184 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1184…118b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x118b…119b Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x119b…11a8 Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x11a8…11b7 Line {l1=0x0d, l2=» 1: REPEAT«, l3=0x0d}
0x11b7…11e1 Line {l1=0x28, l2=» GOTOXY(20,1);READLN;READ(VARENR1)«, l3=0x28}
0x11e1…1223 Line {l1=0x40, l2=» UNTIL (VARENR1>999) AND (VARENR1<10000) AND (IORESULT=0);«, l3=0x40}
0x1223…1238 Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x1238…1261 Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x1261…1282 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x1282…12c3 Line {l1=0x3f, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;«, l3=0x3f}
0x12c3…12d8 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x12d8…1301 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x1301…1322 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x1322…1362 Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x1362…136b Line {l1=0x07, l2=» 4: «, l3=0x07}
0x136b…1381 Line {l1=0x14, l2=»PRIS:=LÆS(20,4)*100;«, l3=0x14}
0x1381…138a Line {l1=0x07, l2=» 5: «, l3=0x07}
0x138a…13a4 Line {l1=0x18, l2=»KOSTPRIS:=LÆS(20,5)*100;«, l3=0x18}
0x13a4…13b3 Line {l1=0x0d, l2=» 6: REPEAT«, l3=0x0d}
0x13b3…13dd Line {l1=0x28, l2=» GOTOXY(20,6);READLN;READ(LVRNDØR)«, l3=0x28}
0x13dd…141e Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (LVRNDØR>=1) AND (LVRNDØR<10000);«, l3=0x3f}
0x141e…142d Line {l1=0x0d, l2=» 7: REPEAT«, l3=0x0d}
0x142d…1457 Line {l1=0x28, l2=» GOTOXY(20,7);READLN;READ(OPRLAND)«, l3=0x28}
0x1457…1496 Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND (OPRLAND>=0) AND (OPRLAND<100);«, l3=0x3d}
0x1496…14a4 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x14a4…14b9 Line {l1=0x13, l2=»TOLDPNR:=LÆS(20,8);«, l3=0x13}
0x14b9…14d7 Line {l1=0x1c, l2=» TOLDPNR:=TOLDPNR*1000«, l3=0x1c}
0x14d7…14e4 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x14e4…14f3 Line {l1=0x0d, l2=» 9: REPEAT«, l3=0x0d}
0x14f3…151e Line {l1=0x29, l2=» GOTOXY(20,9);READLN;READ(PAKENHED)«, l3=0x29}
0x151e…1538 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1538…1541 Line {l1=0x07, l2=» 10: «, l3=0x07}
0x1541…1558 Line {l1=0x15, l2=»FYSLAGER:=LÆS(20,10);«, l3=0x15}
0x1558…1561 Line {l1=0x07, l2=» 11: «, l3=0x07}
0x1561…1578 Line {l1=0x15, l2=»RESAFLAG:=LÆS(20,11);«, l3=0x15}
0x1578…1581 Line {l1=0x07, l2=» 12: «, l3=0x07}
0x1581…1598 Line {l1=0x15, l2=»MINLAGER:=LÆS(20,12);«, l3=0x15}
0x1598…15a1 Line {l1=0x07, l2=» 13: «, l3=0x07}
0x15a1…15b6 Line {l1=0x13, l2=»IORDRE:=LÆS(20,13);«, l3=0x13}
0x15b6…15bf Line {l1=0x07, l2=» 14: «, l3=0x07}
0x15bf…15d6 Line {l1=0x15, l2=»RAIORDRE:=LÆS(20,14);«, l3=0x15}
0x15d6…15e5 Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x15e5…1611 Line {l1=0x2a, l2=» GOTOXY(68,14);READLN;READ(FORVLEVU)«, l3=0x2a}
0x1611…1652 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (FORVLEVU>=0) AND (FORVLEVU<=53);«, l3=0x3f}
0x1652…165b Line {l1=0x07, l2=» 16: «, l3=0x07}
0x165b…1672 Line {l1=0x15, l2=»STASBEST:=LÆS(30,15);«, l3=0x15}
0x1672…1681 Line {l1=0x0d, l2=» 17: REPEAT«, l3=0x0d}
0x1681…16b6 Line {l1=0x33, l2=» GOTOXY(68,15);READLN;READ(DATSBES1,DATSBES2)«, l3=0x33}
0x16b6…16d0 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x16d0…16df Line {l1=0x0d, l2=» 18: REPEAT«, l3=0x0d}
0x16df…1714 Line {l1=0x33, l2=» GOTOXY(31,16);READLN;READ(DATSORD1,DATSORD2)«, l3=0x33}
0x1714…172e Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x172e…1737 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x1737…174e Line {l1=0x15, l2=»ASOLGTIÅ:=LÆS(30,17);«, l3=0x15}
0x174e…1756 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x1756…176d Line {l1=0x15, l2=»ASOLGTSÅ:=LÆS(67,17);«, l3=0x15}
0x176d…1776 Line {l1=0x07, l2=» 21: «, l3=0x07}
0x1776…178b Line {l1=0x13, l2=»OMSIÅR:=LÆS(30,18);«, l3=0x13}
0x178b…1794 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x1794…17a9 Line {l1=0x13, l2=»OMSSÅR:=LÆS(67,18);«, l3=0x13}
0x17a9…17b2 Line {l1=0x07, l2=» 23: «, l3=0x07}
0x17b2…17c9 Line {l1=0x15, l2=»DÆKBIDTD:=LÆS(30,19);«, l3=0x15}
0x17c9…17d8 Line {l1=0x0d, l2=» 24: REPEAT«, l3=0x0d}
0x17d8…1804 Line {l1=0x2a, l2=» GOTOXY(67,19);READLN;READ(DÆKGRASÅ)«, l3=0x2a}
0x1804…181e Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x181e…182d Line {l1=0x0d, l2=» 25: REPEAT«, l3=0x0d}
0x182d…1859 Line {l1=0x2a, l2=» GOTOXY(30,20);READLN;READ(ANAFTILG)«, l3=0x2a}
0x1859…1872 Line {l1=0x17, l2=» UNTIL IORESULT=0«, l3=0x17}
0x1872…187b Line {l1=0x07, l2=» END«, l3=0x07}
0x187b…1881 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1881…1894 Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x1894…189b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x189b…18ab Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x18ab…18b4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x18b4…18c8 Line {l1=0x12, l2=» VARENR1:=0;«, l3=0x12}
0x18c8…18ea Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x18ea…190c Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x190c…191f Line {l1=0x11, l2=» PRIS:=0.0;«, l3=0x11}
0x191f…1936 Line {l1=0x15, l2=» KOSTPRIS:=0.0;«, l3=0x15}
0x1936…194a Line {l1=0x12, l2=» LVRNDØR:=0;«, l3=0x12}
0x194a…195e Line {l1=0x12, l2=» OPRLAND:=0;«, l3=0x12}
0x195e…1974 Line {l1=0x14, l2=» TOLDPNR:=0.0;«, l3=0x14}
0x1974…1989 Line {l1=0x13, l2=» PAKENHED:=0;«, l3=0x13}
0x1989…19a0 Line {l1=0x15, l2=» FYSLAGER:=0.0;«, l3=0x15}
0x19a0…19b7 Line {l1=0x15, l2=» PRIMOLAG:=0.0;«, l3=0x15}
0x19b7…19ce Line {l1=0x15, l2=» MINLAGER:=0.0;«, l3=0x15}
0x19ce…19e5 Line {l1=0x15, l2=» RESAFLAG:=0.0;«, l3=0x15}
0x19e5…19fa Line {l1=0x13, l2=» IORDRE:=0.0;«, l3=0x13}
0x19fa…1a11 Line {l1=0x15, l2=» RAIORDRE:=0.0;«, l3=0x15}
0x1a11…1a26 Line {l1=0x13, l2=» FORVLEVU:=0;«, l3=0x13}
0x1a26…1a3d Line {l1=0x15, l2=» STASBEST:=0.0;«, l3=0x15}
0x1a3d…1a5e Line {l1=0x1f, l2=» DATSBES1:=0;DATSBES2:=0;«, l3=0x1f}
0x1a5e…1a7f Line {l1=0x1f, l2=» DATSORD1:=0;DATSORD2:=0;«, l3=0x1f}
0x1a7f…1a96 Line {l1=0x15, l2=» ASOLGTIÅ:=0.0;«, l3=0x15}
0x1a96…1aad Line {l1=0x15, l2=» ASOLGTSÅ:=0.0;«, l3=0x15}
0x1aad…1ac2 Line {l1=0x13, l2=» OMSIÅR:=0.0;«, l3=0x13}
0x1ac2…1ad7 Line {l1=0x13, l2=» OMSSÅR:=0.0;«, l3=0x13}
0x1ad7…1aee Line {l1=0x15, l2=» DÆKBIDTD:=0.0;«, l3=0x15}
0x1aee…1b03 Line {l1=0x13, l2=» DÆKGRASÅ:=0;«, l3=0x13}
0x1b03…1b17 Line {l1=0x12, l2=» ANAFTILG:=0«, l3=0x12}
0x1b17…1b1e Line {l1=0x05, l2=» END«, l3=0x05}
0x1b1e…1b24 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b24…1b36 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x1b36…1b3d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b3d…1b60 Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x1b60…1b73 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x1b73…1b8e Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1b8e…1b96 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x1b96…1b9c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b9c…1bb1 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1bb1…1bca Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x1bca…1be0 Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x1be0…1bf4 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x1bf4…1c2c Line {l1=0x36, l2=» KODE1,KODE2:STRING(10); (*KIKKENØGLE,ÆNDRENØGLE*)«, l3=0x36}
0x1c2c…1c33 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c33…1c5b Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x1c5b…1c73 Line {l1=0x16, l2=» KODE2:='PILLEPILLE';«, l3=0x16}
0x1c73…1c8b Line {l1=0x16, l2=» KODE1:='KIKKEKIKKE';«, l3=0x16}
0x1c8b…1c9b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1c9b…1cc2 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x1cc2…1ce7 Line {l1=0x23, l2=» GOTOXY(20,1);READLN;READ(STRENG);«, l3=0x23}
0x1ce7…1cf3 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x1cf3…1d14 Line {l1=0x1f, l2=» IF STRENG=KODE1 THEN KODE:=1;«, l3=0x1f}
0x1d14…1d35 Line {l1=0x1f, l2=» IF STRENG=KODE2 THEN KODE:=2;«, l3=0x1f}
0x1d35…1d3f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x1d49…1d97 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x1d97…1dbc Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x1dbc…1df9 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x1df9…1e06 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x1e06…1e14 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x1e14…1e25 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x1e25…1e41 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1e41…1e74 Line {l1=0x31, l2=» FOR I:=1 TO 10 DO VAREOPL(I);VAREOPL(12);«, l3=0x31}
0x1e74…1e90 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1e90…1ea0 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1ea0…1eef Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x1eef…1f17 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x1f17…1f54 Line {l1=0x3b, l2=» IF ((O>=1) AND (O<=10)) OR (O=12) THEN VAREOPL(O);«, l3=0x3b}
0x1f54…1f7c Line {l1=0x26, l2=» VARE.PRIMOLAG:=VARE.FYSLAGER;«, l3=0x26}
0x1f7c…1f97 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x1f97…1fab Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x1fab…1fbb Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1fbb…1fdb Line {l1=0x1e, l2=» INSERT(VZ.H,F,VARE.A);«, l3=0x1e}
0x1fdb…1ff3 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x1ff3…2002 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2002…203f Line {l1=0x3b, l2=» GOTOXY(1,23);WRITELN('VARENR FINDES I FORVEJEN ');«, l3=0x3b}
0x203f…2054 Line {l1=0x13, l2=» VAREOPL(1)«, l3=0x13}
0x2054…2061 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2061…206f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x206f…208d Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x208d…20a3 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x20a3…20b0 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x20b0…20be Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x20be…20cf Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x20cf…211e Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x211e…2146 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2146…217e Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x36}
0x217e…2199 Line {l1=0x19, l2=» VARE.VARENR1:=O;«, l3=0x19}
0x2199…21ba Line {l1=0x1f, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1f}
0x21ba…21f4 Line {l1=0x38, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x38}
0x21f4…2203 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2203…2222 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x2222…2231 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2231…2241 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2241…225e Line {l1=0x1b, l2=» PRVAROPL(-1,KODE);«, l3=0x1b}
0x225e…2278 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x2278…2289 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x229a…22e9 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x22e9…2311 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x2311…232d Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x232d…2341 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x2341…2361 Line {l1=0x1e, l2=» 1,10,12 : BEGIN«, l3=0x1e}
0x2361…238f Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x238f…23d0 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x23d0…23ff Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x23ff…2444 Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x2444…2487 Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x2487…24ba Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x24ba…24e0 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x24e0…251b Line {l1=0x39, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x39}
0x251b…253f Line {l1=0x22, l2=» END«, l3=0x22}
0x253f…255e Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x255e…2589 Line {l1=0x29, l2=»4,7,8,5,19,20,21,22,23,24: IF KODE=2 THEN«, l3=0x29}
0x2589…25ab Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x25ab…25e2 Line {l1=0x35, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x35}
0x25e2…2607 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x2607…2631 Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x2631…2680 Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x2680…269b Line {l1=0x19, l2=» END;«, l3=0x19}
0x269b…26e0 Line {l1=0x43, l2=»2,3,6,9,11,13,14,15,16,17,18,25 :BEGIN VAREOPL(O);CHANGED:=TRUE END«, l3=0x43}
0x26e0…26f5 Line {l1=0x13, l2=» END;«, l3=0x13}
0x26f5…2710 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x2710…2725 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x2725…2756 Line {l1=0x2f, l2=» IF CHANGED THEN PUTREC(VZ.H,F,VARE.A);«, l3=0x2f}
0x2756…2764 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2764…2770 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2770…277d Line {l1=0x0b, l2=» 3: BEGIN«, l3=0x0b}
0x277d…278d Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x278d…27dc Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x27dc…2804 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2804…283b Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x35}
0x283b…2855 Line {l1=0x18, l2=» VARE.VARENR1:=O;«, l3=0x18}
0x2855…2875 Line {l1=0x1e, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1e}
0x2875…28ae Line {l1=0x37, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x37}
0x28ae…28bc Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x28bc…28da Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x28da…28e8 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x28e8…28f7 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x28f7…2915 Line {l1=0x1c, l2=» PRVAROPL(-1,KODE);«, l3=0x1c}
0x2915…292f Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x292f…2947 Line {l1=0x16, l2=» WITH VARE DO«, l3=0x16}
0x2947…2958 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2958…29a6 Line {l1=0x4c, l2=» IF (FYSLAGER=0) AND (RESAFLAG=0) AND (IORDRE=0) AND (RAIORDRE=0)«, l3=0x4c}
0x29a6…29be Line {l1=0x16, l2=» THEN BEGIN«, l3=0x16}
0x29be…29d5 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x29d5…2a24 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x2a24…2a51 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x2a51…2a8a Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x2a8a…2aa6 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x2aa6…2abc Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2abc…2ae5 Line {l1=0x27, l2=» DELETE(VZ.H,F,VARE.A);«, l3=0x27}
0x2ae5…2b0a Line {l1=0x23, l2=» PRVAROPL(-1,KODE);«, l3=0x23}
0x2b0a…2b31 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x2b31…2b45 Line {l1=0x12, l2=» END«, l3=0x12}
0x2b45…2b56 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2b56…2b68 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2b68…2b7b Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2b7b…2b99 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2b99…2be7 Line {l1=0x4c, l2=» WRITELN('VAREN MÅ IKKE SLETTES P.GR.A. POSITIVE LAGER/ORDRE-TAL')«, l3=0x4c}
0x2be7…2bf8 Line {l1=0x0f, l2=» END«, l3=0x0f}
[…0x1…]
0x2c09…2c1b Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2c1b…2c2e Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2c2e…2c4c Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2c4c…2c92 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x2c92…2ca3 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2ca3…2cb1 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2cb1…2cbc Line {l1=0x09, l2=» END«, l3=0x09}
0x2cbc…2cc4 Line {l1=0x06, l2=» END«, l3=0x06}
0x2cc4…2cd2 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x2cd2…2cd8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2cd8…2cdf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2cdf…2cf5 Line {l1=0x14, l2=»WRITELN('A');READLN;«, l3=0x14}
0x2cf5…2d17 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P2:1137:I';«, l3=0x20}
0x2d17…2d2f Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x2d2f…2d3f Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x2d3f…2d73 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x2d73…2d95 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x2d95…2dae Line {l1=0x17, l2=» REWRITE(F1,FILNAVN2);«, l3=0x17}
0x2dae…2dc8 Line {l1=0x18, l2=» IOPEN(VZ1.H,F1,SKRIV);«, l3=0x18}
0x2dc8…2de3 Line {l1=0x19, l2=» INITIATE(VZ1.H,F1,900);«, l3=0x19}
0x2de3…2df9 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x2df9…2e22 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x2e22…2e30 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x2e30…2e37 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2e37…2e46 Line {l1=0x0d, l2=» VARENR1:=0;«, l3=0x0d}
0x2e46…2e4f Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x2e4f…2e65 Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A);«, l3=0x14}
0x2e65…2e6f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2e6f…2e88 Line {l1=0x17, l2=» INSERT(VZ1.H,F1,A);«, l3=0x17}
0x2e88…2e95 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x2e95…2eac Line {l1=0x15, l2=» WRITELN(VARENR1);«, l3=0x15}
0x2eac…2ec6 Line {l1=0x18, l2=» IF VARENR1<1010 THEN«, l3=0x18}
0x2ec6…2edd Line {l1=0x15, l2=» NEXTREC(VZ.H,F,A)«, l3=0x15}
0x2edd…2ef4 Line {l1=0x15, l2=» UNTIL VARENR1=1010;«, l3=0x15}
0x2ef4…2f06 Line {l1=0x10, l2=» VARENR1:=1015;«, l3=0x10}
0x2f06…2f1b Line {l1=0x13, l2=» GETREC(VZ.H,F,A);«, l3=0x13}
0x2f1b…2f25 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2f25…2f3e Line {l1=0x17, l2=» INSERT(VZ1.H,F1,A);«, l3=0x17}
0x2f3e…2f4b Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x2f4b…2f62 Line {l1=0x15, l2=» WRITELN(VARENR1);«, l3=0x15}
0x2f62…2f79 Line {l1=0x15, l2=» NEXTREC(VZ.H,F,A)«, l3=0x15}
0x2f79…2f8a Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x2f8a…2f90 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f90…2fa3 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x2fa3…2fb8 Line {l1=0x13, l2=» ICLOSE(VZ1.H,F1);«, l3=0x13}
0x2fb8…2fc8 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2fc8…2fe6 Line {l1=0x1c, l2=» WRITELN('ICLOSE ',IER,I:7)«, l3=0x1c}
0x2fe6…2fec Line {l1=0x04, l2=»END.«, l3=0x04}
0x2fec…3000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3000…3020 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 ┆ ┆
[…0x5…]