|
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: »DUMPVAR.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »DUMPVAR.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;
(*$L-*)
(*$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,PAKENHED:5,PRIS/100:14:2,
KOSTPRIS/100:10:2);
WRITELN(LIST);
I:=I+1;
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
END;
ICLOSE(VZ.H,F);
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…024e Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x024e…0261 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0261…026e Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x026e…027b Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x027b…028b Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x028b…029b Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x029b…02aa Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x02aa…02b8 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x02b8…02c6 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x02c6…02d4 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x02d4…02e3 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x02e3…02f1 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x02f1…02fa Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x02fa…031f Line {l1=0x23, l2=»PROCEDURE PRVAROPL(O,KODE:INTEGER);«, l3=0x23}
0x031f…032f Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x032f…0336 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0336…0344 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x0344…034f Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x034f…0358 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x0358…0399 Line {l1=0x3f, l2=»GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);«, l3=0x3f}
0x0399…039f Line {l1=0x04, l2=»END;«, l3=0x04}
0x039f…03a8 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x03a8…03e8 Line {l1=0x3e, l2=»GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3e}
0x03e8…03ee Line {l1=0x04, l2=»END;«, l3=0x04}
0x03ee…03f7 Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x03f7…0442 Line {l1=0x49, l2=»GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x49}
0x0442…0448 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0448…0451 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x0451…0493 Line {l1=0x40, l2=»GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);«, l3=0x40}
0x0493…0499 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0499…04b1 Line {l1=0x16, l2=»5:IF KODE>0 THEN BEGIN«, l3=0x16}
0x04b1…04fb Line {l1=0x48, l2=»GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);«, l3=0x48}
0x04fb…0501 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0501…050a Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x050a…0551 Line {l1=0x45, l2=»GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);«, l3=0x45}
0x0551…0557 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0557…0560 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x0560…05aa Line {l1=0x48, l2=»GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);«, l3=0x48}
0x05aa…05b0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05b0…05b9 Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x05b9…05ef Line {l1=0x34, l2=»GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);«, l3=0x34}
0x05ef…060c Line {l1=0x1b, l2=»WRITELN(TOLDPNR/1000:10:3);«, l3=0x1b}
0x060c…0612 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0612…061b Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x061b…0664 Line {l1=0x47, l2=»GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);«, l3=0x47}
0x0664…066a Line {l1=0x04, l2=»END;«, l3=0x04}
0x066a…0674 Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x0674…06aa Line {l1=0x34, l2=»GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);«, l3=0x34}
0x06aa…06c6 Line {l1=0x1a, l2=»WRITE(TRUNC(FYSLAGER):10);«, l3=0x1a}
0x06c6…06fb Line {l1=0x33, l2=»GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);«, l3=0x33}
0x06fb…0719 Line {l1=0x1c, l2=»WRITELN(TRUNC(PRIMOLAG):10);«, l3=0x1c}
0x0719…071f Line {l1=0x04, l2=»END;«, l3=0x04}
0x071f…0729 Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x0729…0773 Line {l1=0x48, l2=»GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(«, l3=0x48}
0x0773…07bf Line {l1=0x4a, l2=» TRUNC(RESAFLAG):10);«, l3=0x4a}
0x07bf…07c5 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x07d1…07e1 Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x07e1…07e8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07e8…07f6 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x07f6…0801 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0801…080b Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x080b…0842 Line {l1=0x35, l2=»GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);«, l3=0x35}
0x0842…0860 Line {l1=0x1c, l2=»WRITELN(TRUNC(MINLAGER):10);«, l3=0x1c}
0x0860…0866 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0866…0870 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x0870…08bb Line {l1=0x49, l2=»GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(TRUNC(IORDRE):10);«, l3=0x49}
0x08bb…08c1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08c1…08cb Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x08cb…0905 Line {l1=0x38, l2=»GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);«, l3=0x38}
0x0905…090b Line {l1=0x04, l2=»END;«, l3=0x04}
0x090b…0915 Line {l1=0x08, l2=»15:BEGIN«, l3=0x08}
0x0915…0933 Line {l1=0x1c, l2=»WRITELN(TRUNC(RAIORDRE):10);«, l3=0x1c}
0x0933…0981 Line {l1=0x4c, l2=»GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);«, l3=0x4c}
0x0981…0987 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0987…0991 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x0991…09dc Line {l1=0x49, l2=»GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(«, l3=0x49}
0x09dc…09f2 Line {l1=0x14, l2=»TRUNC(STASBEST):10);«, l3=0x14}
0x09f2…09f8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09f8…0a02 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x0a02…0a37 Line {l1=0x33, l2=»GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);«, l3=0x33}
0x0a37…0a58 Line {l1=0x1f, l2=»WRITELN(DATSBES1:5,DATSBES2:5);«, l3=0x1f}
0x0a58…0a5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a5e…0a68 Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x0a68…0aa5 Line {l1=0x3b, l2=»GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(«, l3=0x3b}
0x0aa5…0abe Line {l1=0x17, l2=»DATSORD1:5,DATSORD2:5);«, l3=0x17}
0x0abe…0ac4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ac4…0ade Line {l1=0x18, l2=»19: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0ade…0b12 Line {l1=0x32, l2=»GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);«, l3=0x32}
0x0b12…0b30 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTIÅ):10);«, l3=0x1c}
0x0b30…0b36 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b36…0b50 Line {l1=0x18, l2=»20: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0b50…0b86 Line {l1=0x34, l2=»GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);«, l3=0x34}
0x0b86…0ba4 Line {l1=0x1c, l2=»WRITELN(TRUNC(ASOLGTSÅ):10);«, l3=0x1c}
0x0ba4…0baa Line {l1=0x04, l2=»END;«, l3=0x04}
0x0baa…0bc4 Line {l1=0x18, l2=»21: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0bc4…0bf7 Line {l1=0x31, l2=»GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);«, l3=0x31}
0x0bf7…0c13 Line {l1=0x1a, l2=»WRITELN(TRUNC(OMSIÅR):10);«, l3=0x1a}
0x0c13…0c43 Line {l1=0x2e, l2=»IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x2e}
0x0c43…0c4a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c4a…0c59 Line {l1=0x0d, l2=»GOTOXY(50,1);«, l3=0x0d}
0x0c59…0c9c Line {l1=0x41, l2=»WRITELN('GODT TAL ',(PRIMOLAG+FYSLAGER)*DÆKBIDTD/(2*OMSIÅR):12:3)«, l3=0x41}
0x0c9c…0ca2 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x0ca8…0cc2 Line {l1=0x18, l2=»22: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0cc2…0d11 Line {l1=0x4d, l2=»GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(TRUNC(OMSSÅR):10);«, l3=0x4d}
0x0d11…0d17 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d17…0d31 Line {l1=0x18, l2=»23: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0d31…0d7a Line {l1=0x47, l2=»GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(«, l3=0x47}
0x0d7a…0d90 Line {l1=0x14, l2=»TRUNC(DÆKBIDTD):10);«, l3=0x14}
0x0d90…0d96 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d96…0db0 Line {l1=0x18, l2=»24: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0db0…0dfe Line {l1=0x4c, l2=»GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);«, l3=0x4c}
0x0dfe…0e04 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e04…0e0e Line {l1=0x08, l2=»25:BEGIN«, l3=0x08}
0x0e0e…0e56 Line {l1=0x46, l2=»GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(«, l3=0x46}
0x0e56…0e65 Line {l1=0x0d, l2=»ANAFTILG:10);«, l3=0x0d}
0x0e65…0e6b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e6b…0e70 Line {l1=0x03, l2=»END«, l3=0x03}
0x0e70…0e76 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e76…0e7d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e7d…0e8d Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0e8d…0e96 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e96…0eba Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x0eba…0ec4 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0ec4…0ee9 Line {l1=0x23, l2=» IF (12<=O) AND (O<=25) THEN PR2«, l3=0x23}
0x0ee9…0ef3 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0ef3…0efe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0efe…0f13 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x0f13…0f32 Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x0f32…0f51 Line {l1=0x1d, l2=» FOR O:=12 TO 25 DO PR2«, l3=0x1d}
0x0f51…0f5a Line {l1=0x07, l2=» END«, l3=0x07}
0x0f5a…0f61 Line {l1=0x05, l2=» END«, l3=0x05}
0x0f61…0f67 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f67…0f78 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0f78…0f88 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0f88…0f9f Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0f9f…0fbe Line {l1=0x1d, l2=»PROCEDURE VAREOPL(O:INTEGER);«, l3=0x1d}
0x0fbe…0fd2 Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x0fd2…0fe2 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x0fe2…1003 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x1003…1012 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x1012…1019 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1019…1023 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1023…1038 Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x1038…1048 Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x1048…105a Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x105a…106f Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x106f…107b Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x107b…1081 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1081…1088 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1088…1098 Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x1098…10a5 Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x10a5…10b4 Line {l1=0x0d, l2=» 1: REPEAT«, l3=0x0d}
0x10b4…10de Line {l1=0x28, l2=» GOTOXY(20,1);READLN;READ(VARENR1)«, l3=0x28}
0x10de…1120 Line {l1=0x40, l2=» UNTIL (VARENR1>999) AND (VARENR1<10000) AND (IORESULT=0);«, l3=0x40}
0x1120…1135 Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x1135…115e Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x115e…117f Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x117f…11c0 Line {l1=0x3f, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;«, l3=0x3f}
0x11c0…11d5 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x11d5…11fe Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x11fe…121f Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x121f…125f Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x125f…1268 Line {l1=0x07, l2=» 4: «, l3=0x07}
0x1268…127e Line {l1=0x14, l2=»PRIS:=LÆS(20,4)*100;«, l3=0x14}
0x127e…1287 Line {l1=0x07, l2=» 5: «, l3=0x07}
0x1287…12a1 Line {l1=0x18, l2=»KOSTPRIS:=LÆS(20,5)*100;«, l3=0x18}
0x12a1…12b0 Line {l1=0x0d, l2=» 6: REPEAT«, l3=0x0d}
0x12b0…12da Line {l1=0x28, l2=» GOTOXY(20,6);READLN;READ(LVRNDØR)«, l3=0x28}
0x12da…131b Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (LVRNDØR>=1) AND (LVRNDØR<10000);«, l3=0x3f}
0x131b…132a Line {l1=0x0d, l2=» 7: REPEAT«, l3=0x0d}
0x132a…1354 Line {l1=0x28, l2=» GOTOXY(20,7);READLN;READ(OPRLAND)«, l3=0x28}
0x1354…1393 Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND (OPRLAND>=0) AND (OPRLAND<100);«, l3=0x3d}
0x1393…13a1 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x13a1…13b6 Line {l1=0x13, l2=»TOLDPNR:=LÆS(20,8);«, l3=0x13}
0x13b6…13d4 Line {l1=0x1c, l2=» TOLDPNR:=TOLDPNR*1000«, l3=0x1c}
0x13d4…13e1 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x13e1…13f0 Line {l1=0x0d, l2=» 9: REPEAT«, l3=0x0d}
0x13f0…141b Line {l1=0x29, l2=» GOTOXY(20,9);READLN;READ(PAKENHED)«, l3=0x29}
0x141b…1435 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1435…143e Line {l1=0x07, l2=» 10: «, l3=0x07}
0x143e…1455 Line {l1=0x15, l2=»FYSLAGER:=LÆS(20,10);«, l3=0x15}
0x1455…145e Line {l1=0x07, l2=» 11: «, l3=0x07}
0x145e…1475 Line {l1=0x15, l2=»RESAFLAG:=LÆS(20,11);«, l3=0x15}
0x1475…147e Line {l1=0x07, l2=» 12: «, l3=0x07}
0x147e…1495 Line {l1=0x15, l2=»MINLAGER:=LÆS(20,12);«, l3=0x15}
0x1495…149e Line {l1=0x07, l2=» 13: «, l3=0x07}
0x149e…14b3 Line {l1=0x13, l2=»IORDRE:=LÆS(20,13);«, l3=0x13}
0x14b3…14bc Line {l1=0x07, l2=» 14: «, l3=0x07}
0x14bc…14d3 Line {l1=0x15, l2=»RAIORDRE:=LÆS(20,14);«, l3=0x15}
0x14d3…14e2 Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x14e2…150e Line {l1=0x2a, l2=» GOTOXY(68,14);READLN;READ(FORVLEVU)«, l3=0x2a}
0x150e…154f Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (FORVLEVU>=0) AND (FORVLEVU<=53);«, l3=0x3f}
0x154f…1558 Line {l1=0x07, l2=» 16: «, l3=0x07}
0x1558…156f Line {l1=0x15, l2=»STASBEST:=LÆS(30,15);«, l3=0x15}
0x156f…157e Line {l1=0x0d, l2=» 17: REPEAT«, l3=0x0d}
0x157e…15b3 Line {l1=0x33, l2=» GOTOXY(68,15);READLN;READ(DATSBES1,DATSBES2)«, l3=0x33}
0x15b3…15cd Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x15cd…15dc Line {l1=0x0d, l2=» 18: REPEAT«, l3=0x0d}
0x15dc…1611 Line {l1=0x33, l2=» GOTOXY(31,16);READLN;READ(DATSORD1,DATSORD2)«, l3=0x33}
0x1611…162b Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x162b…1634 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x1634…164b Line {l1=0x15, l2=»ASOLGTIÅ:=LÆS(30,17);«, l3=0x15}
0x164b…1653 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x1653…166a Line {l1=0x15, l2=»ASOLGTSÅ:=LÆS(67,17);«, l3=0x15}
0x166a…1673 Line {l1=0x07, l2=» 21: «, l3=0x07}
0x1673…1688 Line {l1=0x13, l2=»OMSIÅR:=LÆS(30,18);«, l3=0x13}
0x1688…1691 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x1691…16a6 Line {l1=0x13, l2=»OMSSÅR:=LÆS(67,18);«, l3=0x13}
0x16a6…16af Line {l1=0x07, l2=» 23: «, l3=0x07}
0x16af…16c6 Line {l1=0x15, l2=»DÆKBIDTD:=LÆS(30,19);«, l3=0x15}
0x16c6…16d5 Line {l1=0x0d, l2=» 24: REPEAT«, l3=0x0d}
0x16d5…1701 Line {l1=0x2a, l2=» GOTOXY(67,19);READLN;READ(DÆKGRASÅ)«, l3=0x2a}
0x1701…171b Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x171b…172a Line {l1=0x0d, l2=» 25: REPEAT«, l3=0x0d}
0x172a…1756 Line {l1=0x2a, l2=» GOTOXY(30,20);READLN;READ(ANAFTILG)«, l3=0x2a}
0x1756…176f Line {l1=0x17, l2=» UNTIL IORESULT=0«, l3=0x17}
0x176f…1778 Line {l1=0x07, l2=» END«, l3=0x07}
0x1778…177e Line {l1=0x04, l2=»END;«, l3=0x04}
0x177e…1791 Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x1791…1798 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1798…17a8 Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x17a8…17b1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17b1…17c5 Line {l1=0x12, l2=» VARENR1:=0;«, l3=0x12}
0x17c5…17e7 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x17e7…1809 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x1809…181c Line {l1=0x11, l2=» PRIS:=0.0;«, l3=0x11}
0x181c…1833 Line {l1=0x15, l2=» KOSTPRIS:=0.0;«, l3=0x15}
0x1833…1847 Line {l1=0x12, l2=» LVRNDØR:=0;«, l3=0x12}
0x1847…185b Line {l1=0x12, l2=» OPRLAND:=0;«, l3=0x12}
0x185b…1871 Line {l1=0x14, l2=» TOLDPNR:=0.0;«, l3=0x14}
0x1871…1886 Line {l1=0x13, l2=» PAKENHED:=0;«, l3=0x13}
0x1886…189d Line {l1=0x15, l2=» FYSLAGER:=0.0;«, l3=0x15}
0x189d…18b4 Line {l1=0x15, l2=» PRIMOLAG:=0.0;«, l3=0x15}
0x18b4…18cb Line {l1=0x15, l2=» MINLAGER:=0.0;«, l3=0x15}
0x18cb…18e2 Line {l1=0x15, l2=» RESAFLAG:=0.0;«, l3=0x15}
0x18e2…18f7 Line {l1=0x13, l2=» IORDRE:=0.0;«, l3=0x13}
0x18f7…190e Line {l1=0x15, l2=» RAIORDRE:=0.0;«, l3=0x15}
0x190e…1923 Line {l1=0x13, l2=» FORVLEVU:=0;«, l3=0x13}
0x1923…193a Line {l1=0x15, l2=» STASBEST:=0.0;«, l3=0x15}
0x193a…195b Line {l1=0x1f, l2=» DATSBES1:=0;DATSBES2:=0;«, l3=0x1f}
0x195b…197c Line {l1=0x1f, l2=» DATSORD1:=0;DATSORD2:=0;«, l3=0x1f}
0x197c…1993 Line {l1=0x15, l2=» ASOLGTIÅ:=0.0;«, l3=0x15}
0x1993…19aa Line {l1=0x15, l2=» ASOLGTSÅ:=0.0;«, l3=0x15}
0x19aa…19bf Line {l1=0x13, l2=» OMSIÅR:=0.0;«, l3=0x13}
0x19bf…19d4 Line {l1=0x13, l2=» OMSSÅR:=0.0;«, l3=0x13}
0x19d4…19eb Line {l1=0x15, l2=» DÆKBIDTD:=0.0;«, l3=0x15}
0x19eb…1a00 Line {l1=0x13, l2=» DÆKGRASÅ:=0;«, l3=0x13}
0x1a00…1a14 Line {l1=0x12, l2=» ANAFTILG:=0«, l3=0x12}
0x1a14…1a1b Line {l1=0x05, l2=» END«, l3=0x05}
0x1a1b…1a21 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a21…1a33 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x1a33…1a3a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a3a…1a5d Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x1a5d…1a70 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x1a70…1a8b Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1a8b…1a93 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x1a93…1a99 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a99…1aae Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1aae…1ac7 Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x1ac7…1add Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x1add…1af1 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x1af1…1b29 Line {l1=0x36, l2=» KODE1,KODE2:STRING(10); (*KIKKENØGLE,ÆNDRENØGLE*)«, l3=0x36}
0x1b29…1b30 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b30…1b58 Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x1b58…1b70 Line {l1=0x16, l2=» KODE2:='PILLEPILLE';«, l3=0x16}
0x1b70…1b88 Line {l1=0x16, l2=» KODE1:='KIKKEKIKKE';«, l3=0x16}
0x1b88…1b98 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1b98…1bbf Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x1bbf…1be4 Line {l1=0x23, l2=» GOTOXY(20,1);READLN;READ(STRENG);«, l3=0x23}
0x1be4…1bf0 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x1bf0…1c11 Line {l1=0x1f, l2=» IF STRENG=KODE1 THEN KODE:=1;«, l3=0x1f}
0x1c11…1c32 Line {l1=0x1f, l2=» IF STRENG=KODE2 THEN KODE:=2;«, l3=0x1f}
0x1c32…1c3c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x1c46…1c94 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x1c94…1cb9 Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x1cb9…1cf6 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x1cf6…1d03 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x1d03…1d11 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x1d11…1d22 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x1d22…1d3e Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1d3e…1d71 Line {l1=0x31, l2=» FOR I:=1 TO 10 DO VAREOPL(I);VAREOPL(12);«, l3=0x31}
0x1d71…1d8d Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1d8d…1d9d Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1d9d…1dec Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x1dec…1e14 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x1e14…1e51 Line {l1=0x3b, l2=» IF ((O>=1) AND (O<=10)) OR (O=12) THEN VAREOPL(O);«, l3=0x3b}
0x1e51…1e79 Line {l1=0x26, l2=» VARE.PRIMOLAG:=VARE.FYSLAGER;«, l3=0x26}
0x1e79…1e94 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x1e94…1ea8 Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x1ea8…1eb8 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1eb8…1ed8 Line {l1=0x1e, l2=» INSERT(VZ.H,F,VARE.A);«, l3=0x1e}
0x1ed8…1ef0 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x1ef0…1eff Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1eff…1f3c Line {l1=0x3b, l2=» GOTOXY(1,23);WRITELN('VARENR FINDES I FORVEJEN ');«, l3=0x3b}
0x1f3c…1f51 Line {l1=0x13, l2=» VAREOPL(1)«, l3=0x13}
0x1f51…1f5e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1f5e…1f6c Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1f6c…1f8a Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x1f8a…1fa0 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x1fa0…1fad Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1fad…1fbb Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x1fbb…1fcc Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x1fcc…201b Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x201b…2043 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2043…207b Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x36}
0x207b…2096 Line {l1=0x19, l2=» VARE.VARENR1:=O;«, l3=0x19}
0x2096…20b7 Line {l1=0x1f, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1f}
0x20b7…20f1 Line {l1=0x38, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x38}
0x20f1…2100 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2100…211f Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x211f…212e Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x212e…213e Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x213e…215b Line {l1=0x1b, l2=» PRVAROPL(-1,KODE);«, l3=0x1b}
0x215b…2175 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x2175…2186 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x2197…21e6 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x21e6…220e Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x220e…222a Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x222a…223e Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x223e…225e Line {l1=0x1e, l2=» 1,10,12 : BEGIN«, l3=0x1e}
0x225e…228c Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x228c…22cd Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x22cd…22fc Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x22fc…2341 Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x2341…2384 Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x2384…23b7 Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x23b7…23dd Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x23dd…2418 Line {l1=0x39, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x39}
0x2418…243c Line {l1=0x22, l2=» END«, l3=0x22}
0x243c…245b Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x245b…2486 Line {l1=0x29, l2=»4,7,8,5,19,20,21,22,23,24: IF KODE=2 THEN«, l3=0x29}
0x2486…24a8 Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x24a8…24df Line {l1=0x35, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x35}
0x24df…2504 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x2504…252e Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x252e…257d Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x257d…2598 Line {l1=0x19, l2=» END;«, l3=0x19}
0x2598…25dd Line {l1=0x43, l2=»2,3,6,9,11,13,14,15,16,17,18,25 :BEGIN VAREOPL(O);CHANGED:=TRUE END«, l3=0x43}
0x25dd…25f2 Line {l1=0x13, l2=» END;«, l3=0x13}
0x25f2…260d Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x260d…2622 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x2622…2653 Line {l1=0x2f, l2=» IF CHANGED THEN PUTREC(VZ.H,F,VARE.A);«, l3=0x2f}
0x2653…2661 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2661…266d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x266d…267a Line {l1=0x0b, l2=» 3: BEGIN«, l3=0x0b}
0x267a…268a Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x268a…26d9 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x26d9…2701 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2701…2738 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x35}
0x2738…2752 Line {l1=0x18, l2=» VARE.VARENR1:=O;«, l3=0x18}
0x2752…2772 Line {l1=0x1e, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1e}
0x2772…27ab Line {l1=0x37, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x37}
0x27ab…27b9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x27b9…27d7 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x27d7…27e5 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x27e5…27f4 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x27f4…2812 Line {l1=0x1c, l2=» PRVAROPL(-1,KODE);«, l3=0x1c}
0x2812…282c Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x282c…2844 Line {l1=0x16, l2=» WITH VARE DO«, l3=0x16}
0x2844…2855 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2855…28a3 Line {l1=0x4c, l2=» IF (FYSLAGER=0) AND (RESAFLAG=0) AND (IORDRE=0) AND (RAIORDRE=0)«, l3=0x4c}
0x28a3…28bb Line {l1=0x16, l2=» THEN BEGIN«, l3=0x16}
0x28bb…28d2 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x28d2…2921 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x2921…294e Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x294e…2987 Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x2987…29a3 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x29a3…29b9 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x29b9…29e2 Line {l1=0x27, l2=» DELETE(VZ.H,F,VARE.A);«, l3=0x27}
0x29e2…2a07 Line {l1=0x23, l2=» PRVAROPL(-1,KODE);«, l3=0x23}
0x2a07…2a2e Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x2a2e…2a42 Line {l1=0x12, l2=» END«, l3=0x12}
0x2a42…2a53 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2a53…2a65 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2a65…2a78 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2a78…2a96 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2a96…2ae4 Line {l1=0x4c, l2=» WRITELN('VAREN MÅ IKKE SLETTES P.GR.A. POSITIVE LAGER/ORDRE-TAL')«, l3=0x4c}
0x2ae4…2af5 Line {l1=0x0f, l2=» END«, l3=0x0f}
[…0x1…]
0x2b06…2b18 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2b18…2b2b Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2b2b…2b49 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2b49…2b8f Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x2b8f…2ba0 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2ba0…2bae Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2bae…2bb9 Line {l1=0x09, l2=» END«, l3=0x09}
0x2bb9…2bc1 Line {l1=0x06, l2=» END«, l3=0x06}
0x2bc1…2bcf Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x2bcf…2bd5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2bd5…2bdc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2bdc…2bfe Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x2bfe…2c16 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x2c16…2c26 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x2c26…2c5a Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x2c5a…2c70 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x2c70…2c99 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x2c99…2ca7 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x2ca7…2cae Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2cae…2cbd Line {l1=0x0d, l2=» VARENR1:=0;«, l3=0x0d}
0x2cbd…2cc6 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x2cc6…2cdc Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A);«, l3=0x14}
0x2cdc…2ce6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2ce6…2d32 Line {l1=0x4a, l2=»WRITELN(LIST,VARENR1:5,NAVN(1):32,FYSLAGER:10:-2,PAKENHED:5,PRIS/100:14:2,«, l3=0x4a}
0x2d32…2d4f Line {l1=0x1b, l2=» KOSTPRIS/100:10:2);«, l3=0x1b}
0x2d4f…2d63 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2d63…2d70 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x2d70…2d87 Line {l1=0x15, l2=» NEXTREC(VZ.H,F,A)«, l3=0x15}
0x2d87…2d98 Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x2d98…2d9e Line {l1=0x04, l2=»END;«, l3=0x04}
0x2d9e…2db1 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x2db1…2dc1 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2dc1…2ddf Line {l1=0x1c, l2=» WRITELN('ICLOSE ',IER,I:7)«, l3=0x1c}
0x2ddf…2de5 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2de5…2e00 00 00 45 4e 52 31 3a 35 2c 4e 41 56 4e 28 31 29 3a 33 32 2c 46 59 53 4c 41 47 45 ┆ ENR1:5,NAVN(1):32,FYSLAGE┆
0x2e00…2e20 52 3a 31 30 3a 2d 32 2c 50 41 4b 45 4e 48 45 44 3a 35 2c 50 52 49 53 2f 31 30 30 3a 31 34 3a 32 ┆R:10:-2,PAKENHED:5,PRIS/100:14:2┆
0x2e20…2e40 2c 4a 1b 20 20 20 20 20 20 20 20 4b 4f 53 54 50 52 49 53 2f 31 30 30 3a 31 30 3a 32 29 3b 1b 12 ┆,J KOSTPRIS/100:10:2); ┆
0x2e40…2e60 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 12 0b 20 20 20 20 49 3a 3d 49 2b 31 3b 0b ┆ WRITELN(LIST); I:=I+1; ┆
0x2e60…2e80 15 20 20 20 20 4e 45 58 54 52 45 43 28 56 5a 2e 48 2c 46 2c 41 29 15 0f 20 20 55 4e 54 49 4c 20 ┆ NEXTREC(VZ.H,F,A) UNTIL ┆
0x2e80…2ea0 49 45 52 3c 3e 30 3b 0f 04 45 4e 44 3b 04 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b ┆IER<>0; END; ICLOSE(VZ.H,F);┆
0x2ea0…2ec0 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1c 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c ┆ CLEARSCREEN; WRITELN('ICL┆
0x2ec0…2ee0 4f 53 45 20 27 2c 49 45 52 2c 49 3a 37 29 1c 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 ┆OSE ',IER,I:7) END. ┆
0x2ee0…2f00 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 ┆ ┆
[…0xe…]