|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »VAREVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VAREVEDL.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;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR F:ISF;
VZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
ÆNDRE,IER,I:INTEGER;
VARE:VPOST;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
KODE1,KODE2:STRING(10);
R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
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(FYSLAGER:10:-2);
GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);
WRITELN(PRIMOLAG:10:-2);
END;
11:BEGIN
GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(
RESAFLAG:10:-2);
END;
END;
END;
PROCEDURE PR2;
BEGIN
WITH VARE DO
CASE O OF
12:BEGIN
GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);
WRITELN(MINLAGER:10:-2);
END;
13:BEGIN
GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(IORDRE:10:-2);
END;
14:BEGIN
GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);
WRITELN(RAIORDRE:10:-2);
END;
15:BEGIN
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(
STASBEST:10:-2);
END;
17:BEGIN
GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);
WRITELN(DATSBES1*10000.0+DATSBES2:10:-2);
END;
18:BEGIN
GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(
DATSORD1*10000.0+DATSORD2:10:-2);
END;
19: IF KODE>0 THEN BEGIN
GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);
WRITELN(ASOLGTIÅ:10:-2);
END;
20: IF KODE>0 THEN BEGIN
GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);
WRITELN(ASOLGTSÅ:10:-2);
END;
21: IF KODE>0 THEN BEGIN
GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);
WRITELN(OMSIÅR/100:10:2);
IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN
BEGIN
GOTOXY(50,1);
WRITELN('GODT TAL ',ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR):12:-2)
END;
END;
22: IF KODE>0 THEN BEGIN
GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(OMSSÅR/100:10:2);
END;
23: IF KODE>0 THEN BEGIN
GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(
DÆKBIDTD/100:10:2);
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;
R:REAL;
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;
FILLCHAR(NAVN(1),30,' ');
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;
FILLCHAR(NAVN(2),30,' ');
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<1000);
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: BEGIN REPEAT
GOTOXY(68,15);READLN;READ(R)
UNTIL (IORESULT=0) AND (R<900000.0);
DATSBES1:=TRUNC(R/10000);
DATSBES2:=TRUNC(R-DATSBES1*10000.0);
END;
18: BEGIN REPEAT
GOTOXY(31,16);READLN;READ(R)
UNTIL (IORESULT=0) AND (R<900000.0);
DATSORD1:=TRUNC(R/10000);
DATSORD2:=TRUNC(R-DATSORD1*10000.0);
END;
19:
ASOLGTIÅ:=LÆS(30,17);
20:
ASOLGTSÅ:=LÆS(67,17);
21:
OMSIÅR:=LÆS(30,18)*100;
22:
OMSSÅR:=LÆS(67,18)*100;
23:
DÆKBIDTD:=LÆS(30,19)*100;
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;
STRENG1:STRING(10);
BEGIN
(*INDLÆS KODE1 OG KODE2 FRA SYSREG*)
CLEARSCREEN;
GOTOXY(1,1);WRITELN('ADGANGSKODE');
GOTOXY(20,1);READLN;READ(STRENG1);
KODE:=0;
IF STRENG1=KODE1 THEN KODE:=1;
IF STRENG1=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: IF ÆNDRE=1 THEN 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) AND ((O=0) OR (ÆNDRE=1));
CASE O OF
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: IF ÆNDRE=1 THEN 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) OR (RESAFLAG<>0) OR (IORDRE<>0) OR (RAIORDRE<>0)
THEN BEGIN GOTOXY(1,22);WRITELN('Positive lager/ordre-tal') END;
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('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')
END
END
END
END
UNTIL P=0
END;
BEGIN
FILNAVN1:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FILNAVN1);
SEEK(SYSFIL,1);
GET(SYSFIL);
KODE1:=' ';
KODE2:=KODE1;
FOR I:=1 TO 10 DO
BEGIN
KODE1(I):=SYSFIL^.KODE(1,I);
KODE2(I):=SYSFIL^.KODE(2,I)
END;
CLOSE(SYSFIL);
CLEARSCREEN;
WRITELN('0 Kikke, 1 Ændre');
REPEAT
GOTOXY(18,1);
READLN;READ(ÆNDRE)
UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);
FILNAVN2:='REGVARE:P1:1137:I';
IF ÆNDRE=1 THEN
REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IF ÆNDRE=1 THEN
IOPEN(VZ.H,F,SKRIV) ELSE IOPEN(VZ.H,F,LÆS);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
BEGIN
MAINTAIN;
END;
ICLOSE(VZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
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=»SYSPOST=RECORD«, l3=0x0e}
0x01ee…020f Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x020f…022a Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x022a…0251 Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x0251…0284 Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x0284…028a Line {l1=0x04, l2=»END;«, l3=0x04}
0x028a…02a4 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x02a4…02b3 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x02b3…02c4 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x02c4…02e3 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x02e3…0300 Line {l1=0x1b, l2=» ÆNDRE,IER,I:INTEGER;«, l3=0x1b}
0x0300…0314 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x0314…032c Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x032c…0342 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0342…0362 Line {l1=0x1e, l2=» KODE1,KODE2:STRING(10);«, l3=0x1e}
0x0362…0365 Line {l1=0x01, l2=» «, l3=0x01}
0x0365…0375 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x0375…0378 Line {l1=0x01, l2=» «, l3=0x01}
[…0xb…]
0x0399…03a2 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x03a2…03b5 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x03b5…03c2 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x03c2…03cf Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x03cf…03df Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x03df…03ef Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03ef…03fe Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x03fe…040c Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x040c…041a Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x041a…0428 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0428…0437 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0437…0445 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0445…044e Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x044e…0457 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0457…047c Line {l1=0x23, l2=»PROCEDURE PRVAROPL(O,KODE:INTEGER);«, l3=0x23}
0x047c…048c Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x048c…0493 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0493…04a1 Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x04a1…04ac Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x04ac…04b5 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x04b5…04f6 Line {l1=0x3f, l2=»GOTOXY(1,1);WRITE('1 VARENR');GOTOXY(30,1);WRITELN(VARENR1:10);«, l3=0x3f}
0x04f6…04fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x04fc…0505 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x0505…0545 Line {l1=0x3e, l2=»GOTOXY(1,2);WRITE('2 VARENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3e}
0x0545…054b Line {l1=0x04, l2=»END;«, l3=0x04}
0x054b…0554 Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x0554…059f Line {l1=0x49, l2=»GOTOXY(1,3);WRITE('3 NAVN HOS LEVERANDØR');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x49}
0x059f…05a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05a5…05ae Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x05ae…05f0 Line {l1=0x40, l2=»GOTOXY(1,4);WRITE('4 PRIS');GOTOXY(30,4);WRITELN(PRIS/100:10:2);«, l3=0x40}
0x05f0…05f6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05f6…060e Line {l1=0x16, l2=»5:IF KODE>0 THEN BEGIN«, l3=0x16}
0x060e…0658 Line {l1=0x48, l2=»GOTOXY(1,5);WRITE('5 KOSTPRIS');GOTOXY(30,5);WRITELN(KOSTPRIS/100:10:2);«, l3=0x48}
0x0658…065e Line {l1=0x04, l2=»END;«, l3=0x04}
0x065e…0667 Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x0667…06ae Line {l1=0x45, l2=»GOTOXY(1,6);WRITE('6 LEVERANDØRNR');GOTOXY(30,6);WRITELN(LVRNDØR:10);«, l3=0x45}
0x06ae…06b4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b4…06bd Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x06bd…0707 Line {l1=0x48, l2=»GOTOXY(1,7);WRITE('7 OPRINDELSESLAND');GOTOXY(30,7);WRITELN(OPRLAND:10);«, l3=0x48}
0x0707…070d Line {l1=0x04, l2=»END;«, l3=0x04}
0x070d…0716 Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x0716…074c Line {l1=0x34, l2=»GOTOXY(1,8);WRITE('8 TOLDPOSITIONSNR');GOTOXY(30,8);«, l3=0x34}
0x074c…0769 Line {l1=0x1b, l2=»WRITELN(TOLDPNR/1000:10:3);«, l3=0x1b}
0x0769…076f Line {l1=0x04, l2=»END;«, l3=0x04}
0x076f…0778 Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x0778…07c1 Line {l1=0x47, l2=»GOTOXY(1,9);WRITE('9 PAKNINGSENHED');GOTOXY(30,9);WRITELN(PAKENHED:10);«, l3=0x47}
0x07c1…07c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07c7…07d1 Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x07d1…0807 Line {l1=0x34, l2=»GOTOXY(1,10);WRITE('10 FYSISK LAGER');GOTOXY(30,10);«, l3=0x34}
0x0807…081f Line {l1=0x16, l2=»WRITE(FYSLAGER:10:-2);«, l3=0x16}
0x081f…0822 Line {l1=0x01, l2=» «, l3=0x01}
0x0822…0857 Line {l1=0x33, l2=»GOTOXY(50,10);WRITE(' PRIMOLAGER');GOTOXY(67,10);«, l3=0x33}
0x0857…0871 Line {l1=0x18, l2=»WRITELN(PRIMOLAG:10:-2);«, l3=0x18}
0x0871…0877 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0877…0881 Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x0881…08cb Line {l1=0x48, l2=»GOTOXY(1,11);WRITE('11 RESERVERET, FYSISK LAGER');GOTOXY(30,11);WRITELN(«, l3=0x48}
0x08cb…0913 Line {l1=0x46, l2=» RESAFLAG:10:-2);«, l3=0x46}
0x0913…0919 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x0925…0935 Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x0935…093c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x093c…094a Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x094a…0955 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0955…095f Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x095f…0996 Line {l1=0x35, l2=»GOTOXY(1,12);WRITE('12 MINIMUMSLAGER');GOTOXY(30,12);«, l3=0x35}
0x0996…09b0 Line {l1=0x18, l2=»WRITELN(MINLAGER:10:-2);«, l3=0x18}
0x09b0…09b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09b6…09c0 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x09c0…0a07 Line {l1=0x45, l2=»GOTOXY(1,13);WRITE('13 I ORDRE');GOTOXY(30,13);WRITELN(IORDRE:10:-2);«, l3=0x45}
0x0a07…0a0d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a0d…0a17 Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x0a17…0a51 Line {l1=0x38, l2=»GOTOXY(1,14);WRITE('14 HERAF RESERVERET');GOTOXY(30,14);«, l3=0x38}
0x0a51…0a6b Line {l1=0x18, l2=»WRITELN(RAIORDRE:10:-2);«, l3=0x18}
0x0a6b…0a71 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a71…0a7b Line {l1=0x08, l2=»15:BEGIN«, l3=0x08}
0x0a7b…0ac9 Line {l1=0x4c, l2=»GOTOXY(50,14);WRITE('15 FORV. LEV. UGE');GOTOXY(67,14);WRITELN(FORVLEVU:10);«, l3=0x4c}
0x0ac9…0acf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0acf…0ad9 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x0ad9…0b24 Line {l1=0x49, l2=»GOTOXY(1,15);WRITE('16 STØRRELSE AF SIDSTE BEST.');GOTOXY(30,15);WRITELN(«, l3=0x49}
0x0b24…0b36 Line {l1=0x10, l2=»STASBEST:10:-2);«, l3=0x10}
0x0b36…0b3c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b3c…0b46 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x0b46…0b7b Line {l1=0x33, l2=»GOTOXY(50,15);WRITE('17 SIDST BEST');GOTOXY(67,15);«, l3=0x33}
0x0b7b…0ba6 Line {l1=0x29, l2=»WRITELN(DATSBES1*10000.0+DATSBES2:10:-2);«, l3=0x29}
0x0ba6…0bac Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bac…0bb6 Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x0bb6…0bf3 Line {l1=0x3b, l2=»GOTOXY(1,16);WRITE('18 SIDST SOLGT');GOTOXY(30,16);WRITELN(«, l3=0x3b}
0x0bf3…0c16 Line {l1=0x21, l2=»DATSORD1*10000.0+DATSORD2:10:-2);«, l3=0x21}
0x0c16…0c1c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c1c…0c36 Line {l1=0x18, l2=»19: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0c36…0c6a Line {l1=0x32, l2=»GOTOXY(1,17);WRITE('19 SOLGT I ÅR');GOTOXY(30,17);«, l3=0x32}
0x0c6a…0c84 Line {l1=0x18, l2=»WRITELN(ASOLGTIÅ:10:-2);«, l3=0x18}
0x0c84…0c8a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c8a…0ca4 Line {l1=0x18, l2=»20: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0ca4…0cda Line {l1=0x34, l2=»GOTOXY(50,17);WRITE('20 SOLGT S. ÅR');GOTOXY(67,17);«, l3=0x34}
0x0cda…0cf4 Line {l1=0x18, l2=»WRITELN(ASOLGTSÅ:10:-2);«, l3=0x18}
0x0cf4…0cfa Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cfa…0d14 Line {l1=0x18, l2=»21: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0d14…0d47 Line {l1=0x31, l2=»GOTOXY(1,18);WRITE('21 OMS. I ÅR');GOTOXY(30,18);«, l3=0x31}
0x0d47…0d62 Line {l1=0x19, l2=»WRITELN(OMSIÅR/100:10:2);«, l3=0x19}
0x0d62…0d92 Line {l1=0x2e, l2=»IF (PRIMOLAG+FYSLAGER<>0) AND (OMSIÅR<>0) THEN«, l3=0x2e}
0x0d92…0d99 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d99…0da8 Line {l1=0x0d, l2=»GOTOXY(50,1);«, l3=0x0d}
0x0da8…0df7 Line {l1=0x4d, l2=»WRITELN('GODT TAL ',ASOLGTIÅ*200*DÆKBIDTD/((PRIMOLAG+FYSLAGER)*OMSIÅR):12:-2)«, l3=0x4d}
0x0df7…0dfd Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x0e03…0e1d Line {l1=0x18, l2=»22: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0e1d…0e6b Line {l1=0x4c, l2=»GOTOXY(50,18);WRITE('22 OMS. S. ÅR');GOTOXY(67,18);WRITELN(OMSSÅR/100:10:2);«, l3=0x4c}
0x0e6b…0e71 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e71…0e8b Line {l1=0x18, l2=»23: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0e8b…0ed4 Line {l1=0x47, l2=»GOTOXY(1,19);WRITE('23 DÆKNINGSBIDRAG TIL DATO');GOTOXY(30,19);WRITELN(«, l3=0x47}
0x0ed4…0ee9 Line {l1=0x13, l2=»DÆKBIDTD/100:10:2);«, l3=0x13}
0x0ee9…0eef Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eef…0f09 Line {l1=0x18, l2=»24: IF KODE>0 THEN BEGIN«, l3=0x18}
0x0f09…0f57 Line {l1=0x4c, l2=»GOTOXY(50,19);WRITE('24 DÆK.GRAD S. ÅR');GOTOXY(67,19);WRITELN(DÆKGRASÅ:10);«, l3=0x4c}
0x0f57…0f5d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f5d…0f67 Line {l1=0x08, l2=»25:BEGIN«, l3=0x08}
0x0f67…0faf Line {l1=0x46, l2=»GOTOXY(1,20);WRITE('25 ANDRE AFGANGE-TILGANGE');GOTOXY(30,20);WRITELN(«, l3=0x46}
0x0faf…0fbe Line {l1=0x0d, l2=»ANAFTILG:10);«, l3=0x0d}
0x0fbe…0fc4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fc4…0fc9 Line {l1=0x03, l2=»END«, l3=0x03}
0x0fc9…0fcf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fcf…0fd6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0fd6…0fe6 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0fe6…0fef Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0fef…1013 Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x1013…101d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x101d…1042 Line {l1=0x23, l2=» IF (12<=O) AND (O<=25) THEN PR2«, l3=0x23}
0x1042…104c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x104c…1057 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1057…106c Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x106c…108b Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x108b…10aa Line {l1=0x1d, l2=» FOR O:=12 TO 25 DO PR2«, l3=0x1d}
0x10aa…10b3 Line {l1=0x07, l2=» END«, l3=0x07}
0x10b3…10ba Line {l1=0x05, l2=» END«, l3=0x05}
0x10ba…10c0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x10c0…10d1 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x10d1…10e1 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x10e1…10f8 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x10f8…1117 Line {l1=0x1d, l2=»PROCEDURE VAREOPL(O:INTEGER);«, l3=0x1d}
0x1117…112b Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x112b…113b Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x113b…1148 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x1148…1169 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x1169…1178 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x1178…117f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x117f…1189 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1189…119e Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x119e…11ae Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x11ae…11c0 Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x11c0…11d5 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x11d5…11e1 Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x11e1…11e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11e7…11ee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11ee…11fe Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x11fe…120b Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x120b…121a Line {l1=0x0d, l2=» 1: REPEAT«, l3=0x0d}
0x121a…1244 Line {l1=0x28, l2=» GOTOXY(20,1);READLN;READ(VARENR1)«, l3=0x28}
0x1244…1286 Line {l1=0x40, l2=» UNTIL (VARENR1>999) AND (VARENR1<10000) AND (IORESULT=0);«, l3=0x40}
0x1286…129b Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x129b…12c4 Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x12c4…12e5 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x12e5…1307 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x1307…1348 Line {l1=0x3f, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;«, l3=0x3f}
0x1348…135d Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x135d…1386 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x1386…13a7 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x13a7…13c9 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x13c9…1409 Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x1409…1412 Line {l1=0x07, l2=» 4: «, l3=0x07}
0x1412…1428 Line {l1=0x14, l2=»PRIS:=LÆS(20,4)*100;«, l3=0x14}
0x1428…1431 Line {l1=0x07, l2=» 5: «, l3=0x07}
0x1431…144b Line {l1=0x18, l2=»KOSTPRIS:=LÆS(20,5)*100;«, l3=0x18}
0x144b…145a Line {l1=0x0d, l2=» 6: REPEAT«, l3=0x0d}
0x145a…1484 Line {l1=0x28, l2=» GOTOXY(20,6);READLN;READ(LVRNDØR)«, l3=0x28}
0x1484…14c5 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (LVRNDØR>=1) AND (LVRNDØR<10000);«, l3=0x3f}
0x14c5…14d4 Line {l1=0x0d, l2=» 7: REPEAT«, l3=0x0d}
0x14d4…14fe Line {l1=0x28, l2=» GOTOXY(20,7);READLN;READ(OPRLAND)«, l3=0x28}
0x14fe…153d Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND (OPRLAND>0) AND (OPRLAND<1000);«, l3=0x3d}
0x153d…154b Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x154b…1560 Line {l1=0x13, l2=»TOLDPNR:=LÆS(20,8);«, l3=0x13}
0x1560…157e Line {l1=0x1c, l2=» TOLDPNR:=TOLDPNR*1000«, l3=0x1c}
0x157e…158b Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x158b…159a Line {l1=0x0d, l2=» 9: REPEAT«, l3=0x0d}
0x159a…15c5 Line {l1=0x29, l2=» GOTOXY(20,9);READLN;READ(PAKENHED)«, l3=0x29}
0x15c5…15df Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x15df…15e8 Line {l1=0x07, l2=» 10: «, l3=0x07}
0x15e8…15ff Line {l1=0x15, l2=»FYSLAGER:=LÆS(20,10);«, l3=0x15}
0x15ff…1608 Line {l1=0x07, l2=» 11: «, l3=0x07}
0x1608…161f Line {l1=0x15, l2=»RESAFLAG:=LÆS(20,11);«, l3=0x15}
0x161f…1628 Line {l1=0x07, l2=» 12: «, l3=0x07}
0x1628…163f Line {l1=0x15, l2=»MINLAGER:=LÆS(20,12);«, l3=0x15}
0x163f…1648 Line {l1=0x07, l2=» 13: «, l3=0x07}
0x1648…165d Line {l1=0x13, l2=»IORDRE:=LÆS(20,13);«, l3=0x13}
0x165d…1666 Line {l1=0x07, l2=» 14: «, l3=0x07}
0x1666…167d Line {l1=0x15, l2=»RAIORDRE:=LÆS(20,14);«, l3=0x15}
0x167d…168c Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x168c…16b8 Line {l1=0x2a, l2=» GOTOXY(68,14);READLN;READ(FORVLEVU)«, l3=0x2a}
0x16b8…16f9 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (FORVLEVU>=0) AND (FORVLEVU<=53);«, l3=0x3f}
0x16f9…1702 Line {l1=0x07, l2=» 16: «, l3=0x07}
0x1702…1719 Line {l1=0x15, l2=»STASBEST:=LÆS(30,15);«, l3=0x15}
0x1719…172e Line {l1=0x13, l2=» 17: BEGIN REPEAT«, l3=0x13}
0x172e…1753 Line {l1=0x23, l2=» GOTOXY(68,15);READLN;READ(R)«, l3=0x23}
0x1753…1780 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (R<900000.0);«, l3=0x2b}
0x1780…17a2 Line {l1=0x20, l2=» DATSBES1:=TRUNC(R/10000);«, l3=0x20}
0x17a2…17cf Line {l1=0x2b, l2=» DATSBES2:=TRUNC(R-DATSBES1*10000.0);«, l3=0x2b}
0x17cf…17dc Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x17dc…17f1 Line {l1=0x13, l2=» 18: BEGIN REPEAT«, l3=0x13}
0x17f1…1816 Line {l1=0x23, l2=» GOTOXY(31,16);READLN;READ(R)«, l3=0x23}
0x1816…1843 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (R<900000.0);«, l3=0x2b}
0x1843…1865 Line {l1=0x20, l2=» DATSORD1:=TRUNC(R/10000);«, l3=0x20}
0x1865…1892 Line {l1=0x2b, l2=» DATSORD2:=TRUNC(R-DATSORD1*10000.0);«, l3=0x2b}
0x1892…189f Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x189f…18a8 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x18a8…18bf Line {l1=0x15, l2=»ASOLGTIÅ:=LÆS(30,17);«, l3=0x15}
0x18bf…18c7 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x18c7…18de Line {l1=0x15, l2=»ASOLGTSÅ:=LÆS(67,17);«, l3=0x15}
0x18de…18e7 Line {l1=0x07, l2=» 21: «, l3=0x07}
0x18e7…1900 Line {l1=0x17, l2=»OMSIÅR:=LÆS(30,18)*100;«, l3=0x17}
0x1900…1909 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x1909…1922 Line {l1=0x17, l2=»OMSSÅR:=LÆS(67,18)*100;«, l3=0x17}
0x1922…192b Line {l1=0x07, l2=» 23: «, l3=0x07}
0x192b…1946 Line {l1=0x19, l2=»DÆKBIDTD:=LÆS(30,19)*100;«, l3=0x19}
0x1946…1955 Line {l1=0x0d, l2=» 24: REPEAT«, l3=0x0d}
0x1955…1981 Line {l1=0x2a, l2=» GOTOXY(67,19);READLN;READ(DÆKGRASÅ)«, l3=0x2a}
0x1981…199b Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x199b…19aa Line {l1=0x0d, l2=» 25: REPEAT«, l3=0x0d}
0x19aa…19d6 Line {l1=0x2a, l2=» GOTOXY(30,20);READLN;READ(ANAFTILG)«, l3=0x2a}
0x19d6…19ef Line {l1=0x17, l2=» UNTIL IORESULT=0«, l3=0x17}
0x19ef…19f8 Line {l1=0x07, l2=» END«, l3=0x07}
0x19f8…19fe Line {l1=0x04, l2=»END;«, l3=0x04}
0x19fe…1a11 Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x1a11…1a18 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a18…1a28 Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x1a28…1a31 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1a31…1a45 Line {l1=0x12, l2=» VARENR1:=0;«, l3=0x12}
0x1a45…1a67 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x1a67…1a89 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x1a89…1a9c Line {l1=0x11, l2=» PRIS:=0.0;«, l3=0x11}
0x1a9c…1ab3 Line {l1=0x15, l2=» KOSTPRIS:=0.0;«, l3=0x15}
0x1ab3…1ac7 Line {l1=0x12, l2=» LVRNDØR:=0;«, l3=0x12}
0x1ac7…1adb Line {l1=0x12, l2=» OPRLAND:=0;«, l3=0x12}
0x1adb…1af1 Line {l1=0x14, l2=» TOLDPNR:=0.0;«, l3=0x14}
0x1af1…1b06 Line {l1=0x13, l2=» PAKENHED:=0;«, l3=0x13}
0x1b06…1b1d Line {l1=0x15, l2=» FYSLAGER:=0.0;«, l3=0x15}
0x1b1d…1b34 Line {l1=0x15, l2=» PRIMOLAG:=0.0;«, l3=0x15}
0x1b34…1b4b Line {l1=0x15, l2=» MINLAGER:=0.0;«, l3=0x15}
0x1b4b…1b62 Line {l1=0x15, l2=» RESAFLAG:=0.0;«, l3=0x15}
0x1b62…1b77 Line {l1=0x13, l2=» IORDRE:=0.0;«, l3=0x13}
0x1b77…1b8e Line {l1=0x15, l2=» RAIORDRE:=0.0;«, l3=0x15}
0x1b8e…1ba3 Line {l1=0x13, l2=» FORVLEVU:=0;«, l3=0x13}
0x1ba3…1bba Line {l1=0x15, l2=» STASBEST:=0.0;«, l3=0x15}
0x1bba…1bdb Line {l1=0x1f, l2=» DATSBES1:=0;DATSBES2:=0;«, l3=0x1f}
0x1bdb…1bfc Line {l1=0x1f, l2=» DATSORD1:=0;DATSORD2:=0;«, l3=0x1f}
0x1bfc…1c13 Line {l1=0x15, l2=» ASOLGTIÅ:=0.0;«, l3=0x15}
0x1c13…1c2a Line {l1=0x15, l2=» ASOLGTSÅ:=0.0;«, l3=0x15}
0x1c2a…1c3f Line {l1=0x13, l2=» OMSIÅR:=0.0;«, l3=0x13}
0x1c3f…1c54 Line {l1=0x13, l2=» OMSSÅR:=0.0;«, l3=0x13}
0x1c54…1c6b Line {l1=0x15, l2=» DÆKBIDTD:=0.0;«, l3=0x15}
0x1c6b…1c80 Line {l1=0x13, l2=» DÆKGRASÅ:=0;«, l3=0x13}
0x1c80…1c94 Line {l1=0x12, l2=» ANAFTILG:=0«, l3=0x12}
0x1c94…1c9b Line {l1=0x05, l2=» END«, l3=0x05}
0x1c9b…1ca1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ca1…1cb3 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x1cb3…1cba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cba…1cdd Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x1cdd…1cf0 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x1cf0…1d0b Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1d0b…1d13 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x1d13…1d19 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d19…1d2e Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1d2e…1d47 Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x1d47…1d5d Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x1d5d…1d71 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x1d71…1d8a Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x1d8a…1d91 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d91…1db9 Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x1db9…1dc9 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1dc9…1df0 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x1df0…1e16 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x1e16…1e22 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x1e22…1e44 Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x1e44…1e66 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x1e66…1e70 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x1e7a…1ec8 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x1ec8…1eed Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x1eed…1f2a Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x1f2a…1f37 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x1f37…1f55 Line {l1=0x1c, l2=» 1: IF ÆNDRE=1 THEN BEGIN«, l3=0x1c}
0x1f55…1f66 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x1f66…1f82 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1f82…1fb5 Line {l1=0x31, l2=» FOR I:=1 TO 10 DO VAREOPL(I);VAREOPL(12);«, l3=0x31}
0x1fb5…1fd1 Line {l1=0x1a, l2=» PRVAROPL(-1,KODE);«, l3=0x1a}
0x1fd1…1fe1 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1fe1…2030 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x2030…2058 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x2058…2095 Line {l1=0x3b, l2=» IF ((O>=1) AND (O<=10)) OR (O=12) THEN VAREOPL(O);«, l3=0x3b}
0x2095…20bd Line {l1=0x26, l2=» VARE.PRIMOLAG:=VARE.FYSLAGER;«, l3=0x26}
0x20bd…20d8 Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x20d8…20ec Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x20ec…20fc Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x20fc…211c Line {l1=0x1e, l2=» INSERT(VZ.H,F,VARE.A);«, l3=0x1e}
0x211c…2134 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x2134…2143 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2143…2180 Line {l1=0x3b, l2=» GOTOXY(1,23);WRITELN('VARENR FINDES I FORVEJEN ');«, l3=0x3b}
0x2180…2195 Line {l1=0x13, l2=» VAREOPL(1)«, l3=0x13}
0x2195…21a2 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x21a2…21b0 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x21b0…21ce Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x21ce…21e4 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x21e4…21f1 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x21f1…21ff Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x21ff…2210 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x2210…225f Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x225f…2287 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x2287…22bf Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x36}
0x22bf…22da Line {l1=0x19, l2=» VARE.VARENR1:=O;«, l3=0x19}
0x22da…22fb Line {l1=0x1f, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1f}
0x22fb…2335 Line {l1=0x38, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x38}
0x2335…2344 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2344…2363 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x2363…2372 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x2372…2382 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2382…239f Line {l1=0x1b, l2=» PRVAROPL(-1,KODE);«, l3=0x1b}
0x239f…23b9 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x23b9…23ca Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x23db…242a Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x242a…2452 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x2452…2489 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));«, l3=0x35}
0x2489…249d Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x249d…24bb Line {l1=0x1c, l2=» 10,12 : BEGIN«, l3=0x1c}
0x24bb…24e9 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x24e9…252a Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x252a…2559 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x2559…259e Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x259e…25e1 Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x25e1…2614 Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x2614…263a Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x263a…2675 Line {l1=0x39, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x39}
0x2675…2699 Line {l1=0x22, l2=» END«, l3=0x22}
0x2699…26b8 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x26b8…26e3 Line {l1=0x29, l2=»4,7,8,5,19,20,21,22,23,24: IF KODE=2 THEN«, l3=0x29}
0x26e3…2705 Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x2705…273c Line {l1=0x35, l2=» VAREOPL(O);CHANGED:=TRUE«, l3=0x35}
0x273c…2761 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x2761…278b Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x278b…27da Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x27da…27f5 Line {l1=0x19, l2=» END;«, l3=0x19}
0x27f5…283a Line {l1=0x43, l2=»2,3,6,9,11,13,14,15,16,17,18,25 :BEGIN VAREOPL(O);CHANGED:=TRUE END«, l3=0x43}
0x283a…284f Line {l1=0x13, l2=» END;«, l3=0x13}
0x284f…286a Line {l1=0x19, l2=» PRVAROPL(O,KODE)«, l3=0x19}
0x286a…287f Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x287f…28b0 Line {l1=0x2f, l2=» IF CHANGED THEN PUTREC(VZ.H,F,VARE.A);«, l3=0x2f}
0x28b0…28be Line {l1=0x0c, l2=» END«, l3=0x0c}
0x28be…28ca Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x28ca…28e7 Line {l1=0x1b, l2=» 3: IF ÆNDRE=1 THEN BEGIN«, l3=0x1b}
0x28e7…28f7 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x28f7…2946 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('VARENR ');«, l3=0x4d}
0x2946…296e Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(O)«, l3=0x26}
0x296e…29a5 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (O>999) AND (O<10000);«, l3=0x35}
0x29a5…29bf Line {l1=0x18, l2=» VARE.VARENR1:=O;«, l3=0x18}
0x29bf…29df Line {l1=0x1e, l2=» GETREC(VZ.H,F,VARE.A);«, l3=0x1e}
0x29df…2a18 Line {l1=0x37, l2=» IF IER=-6 THEN WRITELN('VAREN EKSISTERER IKKE')«, l3=0x37}
0x2a18…2a26 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2a26…2a44 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x2a44…2a52 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2a52…2a61 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2a61…2a7f Line {l1=0x1c, l2=» PRVAROPL(-1,KODE);«, l3=0x1c}
0x2a7f…2a99 Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x2a99…2ab1 Line {l1=0x16, l2=» WITH VARE DO«, l3=0x16}
0x2ab1…2ac2 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2ac2…2b11 Line {l1=0x4d, l2=» IF (FYSLAGER<>0) OR (RESAFLAG<>0) OR (IORDRE<>0) OR (RAIORDRE<>0)«, l3=0x4d}
0x2b11…2b5f Line {l1=0x4c, l2=» THEN BEGIN GOTOXY(1,22);WRITELN('Positive lager/ordre-tal') END;«, l3=0x4c}
0x2b5f…2b76 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2b76…2bc5 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x2bc5…2bf2 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x2bf2…2c2b Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x2c2b…2c47 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x2c47…2c5d Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2c5d…2c86 Line {l1=0x27, l2=» DELETE(VZ.H,F,VARE.A);«, l3=0x27}
0x2c86…2cab Line {l1=0x23, l2=» PRVAROPL(-1,KODE);«, l3=0x23}
0x2cab…2cd2 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x2cd2…2ce6 Line {l1=0x12, l2=» END«, l3=0x12}
0x2ce6…2cf7 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2cf7…2d09 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2d09…2d1c Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2d1c…2d3a Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2d3a…2d80 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x2d80…2d91 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2d91…2d9f Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2d9f…2daa Line {l1=0x09, l2=» END«, l3=0x09}
0x2daa…2db2 Line {l1=0x06, l2=» END«, l3=0x06}
0x2db2…2dc0 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x2dc0…2dc6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2dc6…2dcd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2dcd…2deb Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x2deb…2e08 Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x2e08…2e1b Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x2e1b…2e2b Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x2e2b…2e43 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x2e43…2e54 Line {l1=0x0f, l2=» KODE2:=KODE1;«, l3=0x0f}
0x2e54…2e69 Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x2e69…2e72 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2e72…2e94 Line {l1=0x20, l2=» KODE1(I):=SYSFIL^.KODE(1,I);«, l3=0x20}
0x2e94…2eb5 Line {l1=0x1f, l2=» KODE2(I):=SYSFIL^.KODE(2,I)«, l3=0x1f}
0x2eb5…2ebd Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ebd…2ecf Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x2ecf…2edf Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2edf…2eff Line {l1=0x1e, l2=» WRITELN('0 Kikke, 1 Ændre');«, l3=0x1e}
0x2eff…2f09 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2f09…2f1c Line {l1=0x11, l2=» GOTOXY(18,1);«, l3=0x11}
0x2f1c…2f34 Line {l1=0x16, l2=» READLN;READ(ÆNDRE)«, l3=0x16}
0x2f34…2f69 Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);«, l3=0x33}
0x2f69…2f8b Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x2f8b…2f9e Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x2f9e…2fce Line {l1=0x2e, l2=» REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);«, l3=0x2e}
0x2fce…2fde Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x2fde…3012 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x3012…3025 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x3025…3056 Line {l1=0x2f, l2=» IOPEN(VZ.H,F,SKRIV) ELSE IOPEN(VZ.H,F,LÆS);«, l3=0x2f}
0x3056…307f Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x307f…3086 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3086…3093 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x3093…3099 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3099…30ac Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x30ac…30bc Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x30bc…30d7 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x30d7…30fd Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x30fd…3103 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3103…3120 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 ┆ ┆
0x3120…3140 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 ┆ ┆
[…0x1…]