|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »PRODUDSK.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »PRODUDSK.K«
PROGRAM PRODUDSKRIFTER;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
CH:STRING(1);
FNAVN:STRING(18);
(*$P*)
PROCEDURE REGVEDL;
CONST MORDREHZ=331;
MSYSZ=243;
(*$IISFHEAD*)
HOVEDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREHZ) OF INTEGER;
END;
SYSZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MSYSZ) OF INTEGER;
END;
ARAR=PACKED ARRAY(-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
AR13=ARRAY(1..3) OF INTEGER;
AR14=ARRAY(1..4) OF INTEGER;
AR15=ARRAY(1..5) OF INTEGER;
AR19=ARRAY(1..9) OF INTEGER;
DOBBINT=ARRAY(1..2) OF INTEGER;
TEK=PACKED ARRAY(1..30) OF CHAR;
HOVEDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
DATO:DOBBINT;
TILBUDNR:INTEGER;
TLBUDDATO:DOBBINT;
SAGSNR:INTEGER;
KUNDENR,
POSTNR:DOBBINT;
LEVTERM,
STATUS:INTEGER;
KUNDENAVN,
GADE,
BY,
KONTAKT:TEK;
TELEFON:PACKED ARRAY(1..10) OF CHAR;
LEVSTED:TEK;
INITIAL:PACKED ARRAY(1..4) OF CHAR
END;
SYSPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
ORDRENR,
SDAT1,SDAT2:INTEGER
END;
VAR HOVF,SYSF:ISF;
HOVZ:HOVEDZONE;
SYSZ:SYSZONE;
HOVED:HOVEDPOST;
SYSTEM:SYSPOST;
IER,ORDRENR:INTEGER;
(*$P*)
(*$L-*)
(*$R-,IFORWARD*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$L+*)
SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(HOVZ.H,HOVF);
ICLOSE(SYSZ.H,SYSF);
EXIT(REGVEDL)
END;
SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(FIL);
CLEARSCREEN
END;
(*$P*)
PROCEDURE INIT;
BEGIN
CLEARSCREEN;
HOVZ.H.FILENAME:='ORDREHOV';
FNAVN:='ORDREHOV:P2:0000:I';
REWRITE(HOVF,FNAVN);
IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);
SYSZ.H.FILENAME:='SYSREG ';
FNAVN:='SYSREG:P2:0000:I';
REWRITE(SYSF,FNAVN);
IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);
END;
(*$L-*)
(*$IEXCOMCOP*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IPUTGET*)
(*$L+*)
(*$P*)
PROCEDURE D23;
BEGIN
GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)
END;
(*$P*)
BEGIN
INIT;
REPEAT
CH:='N';
REPEAT
D23;
WRITE('Ordrenummer ');READLN;READ(ORDRENR)
UNTIL (IORESULT=0) AND (ORDRENR>=0) AND (ORDRENR<=9999);
IF ORDRENR>0 THEN
BEGIN
HOVED.NR:=ORDRENR;
GETREC(HOVZ.H,HOVF,HOVED.A);
IF IER=-6 THEN
BEGIN
D23;
WRITE('Ordren findes ikke, RETURN ');READLN
END
ELSE IF IER=0 THEN
BEGIN
IF HOVED.STATUS>2 THEN
BEGIN
D23;
WRITE('Ordre allerede i produktion, RETURN ');READLN
END
ELSE IF HOVED.STATUS<2 THEN
BEGIN
D23;
CH:='J';
WRITE('Ordre ikke reserveret, ønskes etiketter J/N ');EDIT(CH)
END
ELSE
BEGIN
CH:='J';
HOVED.STATUS:=3;
PUTREC(HOVZ.H,HOVF,HOVED.A);
IF IER<>0 THEN ERROR(HOVZ.H.FILENAME)
END;
IF CH='J' THEN
BEGIN
SYSTEM.NR:=2;
GETREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
SYSTEM.ORDRENR:=ORDRENR;
SYSTEM.SDAT1:=HOVED.STATUS;
SYSTEM.SDAT2:=0;
PUTREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME)
END
END
ELSE ERROR(HOVZ.H.FILENAME)
END
UNTIL (ORDRENR=0) OR (CH='J');
ICLOSE(HOVZ.H,HOVF);
ICLOSE(SYSZ.H,SYSF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
IF CH='J' THEN
CHAIN('L *1',CONCAT('INTRE,PROFILET:P2,',FNAVN),QUQ)
ELSE
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0019 Line {l1=0x17, l2=»PROGRAM PRODUDSKRIFTER;«, l3=0x17}
0x0019…001f Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x001f…0048 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0048…0061 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0061…0077 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0077…008d Line {l1=0x14, l2=» CH:STRING(1);«, l3=0x14}
0x008d…00a7 Line {l1=0x18, l2=» FNAVN:STRING(18);«, l3=0x18}
0x00a7…00af Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00af…00c3 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00c3…00d8 Line {l1=0x13, l2=»CONST MORDREHZ=331;«, l3=0x13}
0x00d8…00ea Line {l1=0x10, l2=» MSYSZ=243;«, l3=0x10}
0x00ea…00f9 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x00f9…010b Line {l1=0x10, l2=»HOVEDZONE=RECORD«, l3=0x10}
0x010b…0121 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x0121…014d Line {l1=0x2a, l2=» T:ARRAY(1..MORDREHZ) OF INTEGER;«, l3=0x2a}
0x014d…0153 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0153…0156 Line {l1=0x01, l2=» «, l3=0x01}
0x0156…0166 Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x0166…017a Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x017a…01a1 Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x01a1…01a7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01a7…01cd Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x01cd…01e8 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x01e8…0206 Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x0206…0224 Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x0224…0242 Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x0242…0260 Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x0260…0263 Line {l1=0x01, l2=» «, l3=0x01}
0x0263…0284 Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x0284…0287 Line {l1=0x01, l2=» «, l3=0x01}
0x0287…02a9 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x02a9…02ac Line {l1=0x01, l2=» «, l3=0x01}
0x02ac…02be Line {l1=0x10, l2=»HOVEDPOST=RECORD«, l3=0x10}
0x02be…02d2 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x02d2…02e3 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x02e3…02f7 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x02f7…030e Line {l1=0x15, l2=» NR:INTEGER;«, l3=0x15}
0x030e…0327 Line {l1=0x17, l2=» DATO:DOBBINT;«, l3=0x17}
0x0327…0344 Line {l1=0x1b, l2=» TILBUDNR:INTEGER;«, l3=0x1b}
0x0344…0362 Line {l1=0x1c, l2=» TLBUDDATO:DOBBINT;«, l3=0x1c}
0x0362…037d Line {l1=0x19, l2=» SAGSNR:INTEGER;«, l3=0x19}
0x037d…0391 Line {l1=0x12, l2=» KUNDENR,«, l3=0x12}
0x0391…03ac Line {l1=0x19, l2=» POSTNR:DOBBINT;«, l3=0x19}
0x03ac…03c0 Line {l1=0x12, l2=» LEVTERM,«, l3=0x12}
0x03c0…03db Line {l1=0x19, l2=» STATUS:INTEGER;«, l3=0x19}
0x03db…03f1 Line {l1=0x14, l2=» KUNDENAVN,«, l3=0x14}
0x03f1…0402 Line {l1=0x0f, l2=» GADE,«, l3=0x0f}
0x0402…0411 Line {l1=0x0d, l2=» BY,«, l3=0x0d}
0x0411…0429 Line {l1=0x16, l2=» KONTAKT:TEK;«, l3=0x16}
0x0429…0459 Line {l1=0x2e, l2=» TELEFON:PACKED ARRAY(1..10) OF CHAR;«, l3=0x2e}
0x0459…0471 Line {l1=0x16, l2=» LEVSTED:TEK;«, l3=0x16}
0x0471…049f Line {l1=0x2c, l2=» INITIAL:PACKED ARRAY(1..4) OF CHAR«, l3=0x2c}
0x049f…04a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04a5…04b5 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04b5…04c9 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x04c9…04da Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x04da…04ee Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x04ee…04fd Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x04fd…0511 Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x0511…0530 Line {l1=0x1d, l2=» SDAT1,SDAT2:INTEGER«, l3=0x1d}
0x0530…0536 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0536…054a Line {l1=0x12, l2=»VAR HOVF,SYSF:ISF;«, l3=0x12}
0x054a…055f Line {l1=0x13, l2=» HOVZ:HOVEDZONE;«, l3=0x13}
0x055f…0572 Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x0572…0588 Line {l1=0x14, l2=» HOVED:HOVEDPOST;«, l3=0x14}
0x0588…059d Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x059d…05b7 Line {l1=0x18, l2=» IER,ORDRENR:INTEGER;«, l3=0x18}
0x05b7…05bf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05bf…05c8 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x05c8…05da Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x05da…05e7 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x05e7…05f5 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x05f5…05fe Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x05fe…0629 Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x0629…0630 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0630…0665 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0665…067d Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x067d…0695 Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x0695…06a6 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x06a6…06ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x06ac…06d7 Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x06d7…06e7 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x06e7…06ee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06ee…06ff Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x06ff…074e Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x074e…077e Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x077e…07b7 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x07b7…07d3 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x07d3…07e2 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x07e2…07e8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07e8…07f0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07f0…0801 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x0801…0808 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0808…0818 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0818…0838 Line {l1=0x1e, l2=» HOVZ.H.FILENAME:='ORDREHOV';«, l3=0x1e}
0x0838…0858 Line {l1=0x1e, l2=» FNAVN:='ORDREHOV:P2:0000:I';«, l3=0x1e}
0x0858…0870 Line {l1=0x16, l2=» REWRITE(HOVF,FNAVN);«, l3=0x16}
0x0870…08b3 Line {l1=0x41, l2=» IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);«, l3=0x41}
0x08b3…08d3 Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x08d3…08f1 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x08f1…0909 Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x0909…094c Line {l1=0x41, l2=» IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x41}
0x094c…0952 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0952…095b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x095b…096b Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x096b…097b Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x097b…098b Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x098b…0999 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0999…09a2 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x09a2…09aa Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09aa…09ba Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x09ba…09c1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09c1…09ee Line {l1=0x2b, l2=» GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)«, l3=0x2b}
0x09ee…09f4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09f4…09fc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09fc…0a03 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a03…0a0c Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x0a0c…0a16 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0a16…0a24 Line {l1=0x0c, l2=» CH:='N';«, l3=0x0c}
0x0a24…0a30 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0a30…0a3c Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x0a3c…0a6e Line {l1=0x30, l2=» WRITE('Ordrenummer ');READLN;READ(ORDRENR)«, l3=0x30}
0x0a6e…0aac Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND (ORDRENR>=0) AND (ORDRENR<=9999);«, l3=0x3c}
0x0aac…0ac3 Line {l1=0x15, l2=» IF ORDRENR>0 THEN«, l3=0x15}
0x0ac3…0ace Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0ace…0ae8 Line {l1=0x18, l2=» HOVED.NR:=ORDRENR;«, l3=0x18}
0x0ae8…0b0c Line {l1=0x22, l2=» GETREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x22}
0x0b0c…0b22 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x0b22…0b2f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b2f…0b3d Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x0b3d…0b72 Line {l1=0x33, l2=» WRITE('Ordren findes ikke, RETURN ');READLN«, l3=0x33}
0x0b72…0b7d Line {l1=0x09, l2=» END«, l3=0x09}
0x0b7d…0b97 Line {l1=0x18, l2=» ELSE IF IER=0 THEN«, l3=0x18}
0x0b97…0ba4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0ba4…0bc4 Line {l1=0x1e, l2=» IF HOVED.STATUS>2 THEN«, l3=0x1e}
0x0bc4…0bd3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0bd3…0be3 Line {l1=0x0e, l2=» D23;«, l3=0x0e}
0x0be3…0c23 Line {l1=0x3e, l2=» WRITE('Ordre allerede i produktion, RETURN ');READLN«, l3=0x3e}
0x0c23…0c30 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0c30…0c55 Line {l1=0x23, l2=» ELSE IF HOVED.STATUS<2 THEN«, l3=0x23}
0x0c55…0c64 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c64…0c74 Line {l1=0x0e, l2=» D23;«, l3=0x0e}
0x0c74…0c88 Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x0c88…0cd2 Line {l1=0x48, l2=» WRITE('Ordre ikke reserveret, ønskes etiketter J/N ');EDIT(CH)«, l3=0x48}
0x0cd2…0cdf Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0cdf…0ced Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0ced…0cfc Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0cfc…0d10 Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x0d10…0d2c Line {l1=0x1a, l2=» HOVED.STATUS:=3;«, l3=0x1a}
0x0d2c…0d54 Line {l1=0x26, l2=» PUTREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x26}
0x0d54…0d85 Line {l1=0x2f, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME)«, l3=0x2f}
0x0d85…0d93 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0d93…0dab Line {l1=0x16, l2=» IF CH='J' THEN«, l3=0x16}
0x0dab…0dba Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0dba…0dd3 Line {l1=0x17, l2=» SYSTEM.NR:=2;«, l3=0x17}
0x0dd3…0dfc Line {l1=0x27, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x27}
0x0dfc…0e2e Line {l1=0x30, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x30}
0x0e2e…0e52 Line {l1=0x22, l2=» SYSTEM.ORDRENR:=ORDRENR;«, l3=0x22}
0x0e52…0e79 Line {l1=0x25, l2=» SYSTEM.SDAT1:=HOVED.STATUS;«, l3=0x25}
0x0e79…0e95 Line {l1=0x1a, l2=» SYSTEM.SDAT2:=0;«, l3=0x1a}
0x0e95…0ebe Line {l1=0x27, l2=» PUTREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x27}
0x0ebe…0eef Line {l1=0x2f, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME)«, l3=0x2f}
0x0eef…0efc Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0efc…0f07 Line {l1=0x09, l2=» END«, l3=0x09}
0x0f07…0f2a Line {l1=0x21, l2=» ELSE ERROR(HOVZ.H.FILENAME)«, l3=0x21}
0x0f2a…0f33 Line {l1=0x07, l2=» END«, l3=0x07}
0x0f33…0f55 Line {l1=0x20, l2=» UNTIL (ORDRENR=0) OR (CH='J');«, l3=0x20}
0x0f55…0f6d Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x0f6d…0f85 Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x0f85…0f9f Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x0f9f…0fa5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fa5…0fad Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0fad…0fb4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0fb4…0fc0 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x0fc0…0fcf Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x0fcf…0fe6 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x0fe6…0ff8 Line {l1=0x10, l2=» IF CH='J' THEN«, l3=0x10}
0x0ff8…1038 Line {l1=0x3e, l2=» CHAIN('L *1',CONCAT('INTRE,PROFILET:P2,',FNAVN),QUQ)«, l3=0x3e}
0x1038…1040 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1040…1078 Line {l1=0x36, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x36}
0x1078…10ad Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x10ad…10b3 Line {l1=0x04, l2=»END.«, l3=0x04}
0x10b3…10c0 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x10c0…10e0 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 ┆ ┆
[…0x17…]