|
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: 9984 (0x2700)
Types: TextFile
Notes: Mikados_K
Names: »VÆRKSTED.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »VÆRKSTED.K«
PROGRAM VÆRKSTEDSORDRE;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
CH:STRING(1);
FNAVN:STRING(18);
(*$P*)
PROCEDURE REGVEDL;
CONST MSYSZ=243;
MFARVEZ=245;
MOLINIEZ=344;
MORDREHZ=331;
MKOMBIZ=241;
(*$IISFHEAD*)
SYSZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MSYSZ) OF INTEGER;
END;
FARVEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MFARVEZ) OF INTEGER
END;
OLINIEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOLINIEZ) OF INTEGER;
END;
HOVEDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREHZ) OF INTEGER;
END;
KOMBIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKOMBIZ) 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;
SYSPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
ORDRENR,
SDAT1,SDAT2:INTEGER
END;
FARVEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KODE:INTEGER;
TEKST:TEK;
END;
OLINIEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KOSTPRIS,
SALGPRIS,
RABAT:REAL;
ORDRENR,
POSITION,
ANTAL,
VINDUENR,
FARVE1,
FARVE2,
RAMMENR1,
GLASART1,
RAMMENR2,
GLASART2,
RAMMENR3,
GLASART3,
BLAMBRED,
BLAMHØJD:INTEGER;
BREDDE:AR13;
HØJDE:AR13;
HÆNGSEL:AR14;
MONTER:INTEGER;
STATUS:INTEGER;
END;
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;
KOMBIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KARMPROFIL,
POST1,
POST2,
RAMMEPROFIL,
F3PROFIL:INTEGER;
END;
VAR SYSF,FARF,HOVF,OLIF,KOMF:ISF;
SYSZ:SYSZONE;
HOVZ:HOVEDZONE;
FARZ:FARVEZONE;
OLIZ:OLINIEZONE;
KOMZ:KOMBIZONE;
SYSTEM:SYSPOST;
HOVED:HOVEDPOST;
COLOUR:FARVEPOST;
KOMBI:KOMBIPOST;
OLINIE:OLINIEPOST;
ORDRENR,LINIENR,IER:INTEGER;
HS:PACKED ARRAY (0..2) OF CHAR;
R,GRANT:REAL;
(*$P*)
(*$L-*)
(*$R-,IFORWARD*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$R+*)
(*$L+*)
SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(HOVZ.H,HOVF);
ICLOSE(OLIZ.H,OLIF);
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;
SYSZ.H.FILENAME:='SYSREG ';
FNAVN:='SYSREG:P2:0000:I';
REWRITE(SYSF,FNAVN);
IOPEN(SYSZ.H,SYSF,LÆS);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);
FARZ.H.FILENAME:='FARVE ';
FNAVN:='FARVE:P2:0000:I';
REWRITE(FARF,FNAVN);
IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);
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);
OLIZ.H.FILENAME:='OLINIE ';
FNAVN:='OLINIE:P2:0000:I';
REWRITE(OLIF,FNAVN);
IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);
KOMZ.H.FILENAME:='KOMBINAT';
FNAVN:='KOMBINAT:P2:0000:I';
REWRITE(KOMF,FNAVN);
IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME);
END;
(*$L-*)
(*$R-*)
(*$IEXCOMCOP*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
(*$P*)
PROCEDURE D23;
BEGIN
GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)
END;
(*$P*)
PROCEDURE SKRIVHOVED;
BEGIN
WITH HOVED DO
BEGIN
WRITELN(LIST);WRITELN(LIST);
WRITELN(LIST,' ':30,'V Æ R K S T E D S O R D R E',' ':45,
'UDSKRIFTSDATO',SYSTEM.SDAT1*10000.0+SYSTEM.SDAT2:7:-2);
WRITELN(LIST);
WRITELN(LIST,'ORDRENR',NR:5, ' SAGSNR',SAGSNR:4, ' INITIALER ',INITIAL,
' ':11, 'REFERENCENR',TILBUDNR:5,' KUNDENR',
KUNDENR(1)*10000.0+KUNDENR(2):6:-2,' ':6,KUNDENAVN);
WRITELN(LIST,'TILBUDSDATO',TLBUDDATO(1)*10000.0+TLBUDDATO(2):8:-2,
' ':5,'KONTAKT ',KONTAKT,' TLF: ',TELEFON,' ':6,GADE);
WRITELN(LIST,'ORDREDATO',DATO(1)*10000.0+DATO(2):10:-2,' ':5,
'LEVERING ',LEVSTED,LEVTERM:5,' ':15,
POSTNR(1)*10000.0+POSTNR(2):8:-2,' ',BY);
WRITELN(LIST);
WRITELN(LIST,'POS VDNR ANT FARVE-1/2 GLAS BLAM-B/H BRE1 HØJ1 BRE2 ',
'HØJ2 BRE3 HØJ3 BSLS PROFT.1/2 SALGSPRIS RAB % NETTO SAMLET NETTO');
LINIENR:=9
END
END;
(*$P*)
PROCEDURE SKRIVLINIE;
VAR I:INTEGER;
BEGIN
WITH OLINIE DO
BEGIN
LINIENR:=LINIENR+1;
WRITE(LIST,POSITION:3,VINDUENR:5,ANTAL:4);
IER:=1;
WRITE(LIST,' ');
IF FARVE1>0 THEN
BEGIN
COLOUR.NR:=FARVE1;
GETREC(FARZ.H,FARF,COLOUR.A);
IF IER=0 THEN FOR I:=1 TO 4 DO WRITE(LIST,COLOUR.TEKST(I))
ELSE IF IER<>-6 THEN ERROR(FARZ.H.FILENAME)
END;
IF IER<>0 THEN WRITE(LIST,' ':4);
IER:=1;
WRITE(LIST,' ');
IF FARVE2>0 THEN
BEGIN
COLOUR.NR:=FARVE2;
GETREC(FARZ.H,FARF,COLOUR.A);
IF IER=0 THEN FOR I:=1 TO 4 DO WRITE(LIST,COLOUR.TEKST(I))
ELSE IF IER<>-6 THEN ERROR(FARZ.H.FILENAME)
END;
IF IER<>0 THEN WRITE(LIST,' ':4);
WRITE(LIST,GLASART1:2,GLASART2:2,GLASART3:2,BLAMBRED:5,BLAMHØJD:5);
FOR I:=1 TO 3 DO WRITE(LIST,BREDDE(I):5,HØJDE(I):5);
WRITE(LIST,' ');
FOR I:=1 TO 4 DO WRITE(LIST,HS(HÆNGSEL(I)));
KOMBI.NR:=VINDUENR DIV 1000;
GETREC(KOMZ.H,KOMF,KOMBI.A);
IF IER<>0 THEN ERROR(KOMZ.H.FILENAME);
R:=(SALGPRIS*(100.0-RABAT))/100.0;
WRITELN(LIST,KOMBI.KARMPROFIL:5,KOMBI.RAMMEPROFIL:5,SALGPRIS:10:2,
RABAT:6:2,R:10:2,R*ANTAL:13:2);
GRANT:=GRANT+R*ANTAL
END
END;
(*$P*)
BEGIN
INIT;
HS:=' HV';
SYSTEM.NR:=1;
GETREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
CLEARSCREEN;
D23;
WRITE('Isæt 8" papir, RETURN ');READLN;
REPEAT
REPEAT
D23;
WRITE('Ordrenummer, 0 for færdig ');READLN;READ(ORDRENR)
UNTIL (IORESULT=0) AND
((ORDRENR=0) OR ((ORDRENR>999) AND (ORDRENR<10000)));
IF ORDRENR>0 THEN
BEGIN
HOVED.NR:=ORDRENR;
GETREC(HOVZ.H,HOVF,HOVED.A);
IF IER=0 THEN
BEGIN
IF HOVED.STATUS>1 THEN
BEGIN
D23;
WRITE('Værkstedsordre er udskrevet, RETURN ');READLN
END
ELSE IF HOVED.STATUS<1 THEN
BEGIN
D23;
WRITE('Tilbud ikke bekræftet, RETURN ');READLN
END
ELSE
BEGIN
LINIENR:=0;
SKRIVHOVED;
HOVED.STATUS:=2;
PUTREC(HOVZ.H,HOVF,HOVED.A);
IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);
GRANT:=0.0;
OLINIE.ORDRENR:=ORDRENR;
OLINIE.POSITION:=0;
NEXTREC(OLIZ.H,OLIF,OLINIE.A);
IF -IER IN (.1,2,9.) THEN IER:=0 ELSE ERROR(OLIZ.H.FILENAME);
WHILE (IER=0) AND (OLINIE.ORDRENR=ORDRENR) DO
BEGIN
SKRIVLINIE;
OLINIE.STATUS:=2;
PUTREC(OLIZ.H,OLIF,OLINIE.A);
IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);
NEXTREC(OLIZ.H,OLIF,OLINIE.A)
END;
WRITELN(LIST,' ':109,GRANT:13:2);
LINIENR:=LINIENR+1;
WHILE LINIENR MOD 48<>0 DO
BEGIN
WRITELN(LIST);
LINIENR:=LINIENR+1
END;
IF -IER IN (.0,2.) THEN IER:=0 ELSE ERROR(OLIZ.H.FILENAME)
END
END
ELSE IF IER=-6 THEN
BEGIN
D23;
WRITE('Ordren findes ikke, RETURN ');READLN
END
ELSE ERROR(HOVZ.H.FILENAME)
END
UNTIL ORDRENR=0;
ICLOSE(HOVZ.H,HOVF);
ICLOSE(OLIZ.H,OLIF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0019 Line {l1=0x17, l2=»PROGRAM VÆRKSTEDSORDRE;«, 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…00d5 Line {l1=0x10, l2=»CONST MSYSZ=243;«, l3=0x10}
0x00d5…00e9 Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x00e9…00fe Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x00fe…0113 Line {l1=0x13, l2=» MORDREHZ=331;«, l3=0x13}
0x0113…0127 Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x0127…0136 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0136…0146 Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x0146…015a Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x015a…0181 Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x0181…0187 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0187…0199 Line {l1=0x10, l2=»FARVEZONE=RECORD«, l3=0x10}
0x0199…01ae Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x01ae…01d7 Line {l1=0x27, l2=» T:ARRAY(1..MFARVEZ) OF INTEGER«, l3=0x27}
0x01d7…01dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x01dd…01f0 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x01f0…0207 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0207…0234 Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x0234…023a Line {l1=0x04, l2=»END;«, l3=0x04}
0x023a…023d Line {l1=0x01, l2=» «, l3=0x01}
0x023d…024f Line {l1=0x10, l2=»HOVEDZONE=RECORD«, l3=0x10}
0x024f…0265 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x0265…0291 Line {l1=0x2a, l2=» T:ARRAY(1..MORDREHZ) OF INTEGER;«, l3=0x2a}
0x0291…0297 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0297…029a Line {l1=0x01, l2=» «, l3=0x01}
0x029a…02ac Line {l1=0x10, l2=»KOMBIZONE=RECORD«, l3=0x10}
0x02ac…02c2 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x02c2…02ed Line {l1=0x29, l2=» T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x29}
0x02ed…02f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02f3…02f6 Line {l1=0x01, l2=» «, l3=0x01}
0x02f6…031c Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x031c…0336 Line {l1=0x18, l2=»RAR=ARRAY(0..0) OF REAL;«, l3=0x18}
0x0336…0354 Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x0354…0372 Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x0372…0390 Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x0390…03ae Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x03ae…03cf Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x03cf…03f1 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x03f1…0401 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0401…0415 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0415…0426 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0426…043a Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x043a…0449 Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x0449…045d Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x045d…047c Line {l1=0x1d, l2=» SDAT1,SDAT2:INTEGER«, l3=0x1d}
0x047c…0482 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0482…0494 Line {l1=0x10, l2=»FARVEPOST=RECORD«, l3=0x10}
0x0494…04a7 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x04a7…04b7 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x04b7…04ca Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x04ca…04d8 Line {l1=0x0c, l2=» NR,«, l3=0x0c}
0x04d8…04f0 Line {l1=0x16, l2=» KODE:INTEGER;«, l3=0x16}
0x04f0…0505 Line {l1=0x13, l2=» TEKST:TEK;«, l3=0x13}
0x0505…050b Line {l1=0x04, l2=»END;«, l3=0x04}
0x050b…051e Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x051e…0533 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x0533…0545 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0545…055a Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x055a…0570 Line {l1=0x14, l2=» KOSTPRIS,«, l3=0x14}
0x0570…0586 Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x0586…059e Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x059e…05b3 Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x05b3…05c9 Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x05c9…05dc Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x05dc…05f2 Line {l1=0x14, l2=» VINDUENR,«, l3=0x14}
0x05f2…0606 Line {l1=0x12, l2=» FARVE1,«, l3=0x12}
0x0606…061a Line {l1=0x12, l2=» FARVE2,«, l3=0x12}
0x061a…0630 Line {l1=0x14, l2=» RAMMENR1,«, l3=0x14}
0x0630…0646 Line {l1=0x14, l2=» GLASART1,«, l3=0x14}
0x0646…065c Line {l1=0x14, l2=» RAMMENR2,«, l3=0x14}
0x065c…0672 Line {l1=0x14, l2=» GLASART2,«, l3=0x14}
0x0672…0688 Line {l1=0x14, l2=» RAMMENR3,«, l3=0x14}
0x0688…069e Line {l1=0x14, l2=» GLASART3,«, l3=0x14}
0x069e…06b4 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x06b4…06d2 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x06d2…06eb Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x06eb…0703 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0703…071d Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x071d…0739 Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0739…0755 Line {l1=0x1a, l2=» STATUS:INTEGER;«, l3=0x1a}
0x0755…075b Line {l1=0x04, l2=»END;«, l3=0x04}
0x075b…076d Line {l1=0x10, l2=»HOVEDPOST=RECORD«, l3=0x10}
0x076d…0781 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0781…0792 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0792…07a6 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x07a6…07bd Line {l1=0x15, l2=» NR:INTEGER;«, l3=0x15}
0x07bd…07d6 Line {l1=0x17, l2=» DATO:DOBBINT;«, l3=0x17}
0x07d6…07f3 Line {l1=0x1b, l2=» TILBUDNR:INTEGER;«, l3=0x1b}
0x07f3…0811 Line {l1=0x1c, l2=» TLBUDDATO:DOBBINT;«, l3=0x1c}
0x0811…082c Line {l1=0x19, l2=» SAGSNR:INTEGER;«, l3=0x19}
0x082c…0840 Line {l1=0x12, l2=» KUNDENR,«, l3=0x12}
0x0840…085b Line {l1=0x19, l2=» POSTNR:DOBBINT;«, l3=0x19}
0x085b…086f Line {l1=0x12, l2=» LEVTERM,«, l3=0x12}
0x086f…088a Line {l1=0x19, l2=» STATUS:INTEGER;«, l3=0x19}
0x088a…08a0 Line {l1=0x14, l2=» KUNDENAVN,«, l3=0x14}
0x08a0…08b1 Line {l1=0x0f, l2=» GADE,«, l3=0x0f}
0x08b1…08c0 Line {l1=0x0d, l2=» BY,«, l3=0x0d}
0x08c0…08d8 Line {l1=0x16, l2=» KONTAKT:TEK;«, l3=0x16}
0x08d8…0908 Line {l1=0x2e, l2=» TELEFON:PACKED ARRAY(1..10) OF CHAR;«, l3=0x2e}
0x0908…0920 Line {l1=0x16, l2=» LEVSTED:TEK;«, l3=0x16}
0x0920…094f Line {l1=0x2d, l2=» INITIAL:PACKED ARRAY(1..4) OF CHAR;«, l3=0x2d}
0x094f…0955 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0955…0967 Line {l1=0x10, l2=»KOMBIPOST=RECORD«, l3=0x10}
0x0967…097b Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x097b…098c Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x098c…09a0 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x09a0…09af Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x09af…09c6 Line {l1=0x15, l2=» KARMPROFIL,«, l3=0x15}
0x09c6…09d8 Line {l1=0x10, l2=» POST1,«, l3=0x10}
0x09d8…09ea Line {l1=0x10, l2=» POST2,«, l3=0x10}
0x09ea…0a02 Line {l1=0x16, l2=» RAMMEPROFIL,«, l3=0x16}
0x0a02…0a1f Line {l1=0x1b, l2=» F3PROFIL:INTEGER;«, l3=0x1b}
0x0a1f…0a25 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a25…0a48 Line {l1=0x21, l2=»VAR SYSF,FARF,HOVF,OLIF,KOMF:ISF;«, l3=0x21}
0x0a48…0a5b Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x0a5b…0a70 Line {l1=0x13, l2=» HOVZ:HOVEDZONE;«, l3=0x13}
0x0a70…0a85 Line {l1=0x13, l2=» FARZ:FARVEZONE;«, l3=0x13}
0x0a85…0a9b Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x0a9b…0ab0 Line {l1=0x13, l2=» KOMZ:KOMBIZONE;«, l3=0x13}
0x0ab0…0ac5 Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x0ac5…0adb Line {l1=0x14, l2=» HOVED:HOVEDPOST;«, l3=0x14}
0x0adb…0af2 Line {l1=0x15, l2=» COLOUR:FARVEPOST;«, l3=0x15}
0x0af2…0b08 Line {l1=0x14, l2=» KOMBI:KOMBIPOST;«, l3=0x14}
0x0b08…0b20 Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x0b20…0b42 Line {l1=0x20, l2=» ORDRENR,LINIENR,IER:INTEGER;«, l3=0x20}
0x0b42…0b67 Line {l1=0x23, l2=» HS:PACKED ARRAY (0..2) OF CHAR;«, l3=0x23}
0x0b67…0b7a Line {l1=0x11, l2=» R,GRANT:REAL;«, l3=0x11}
0x0b7a…0b82 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0b82…0b8b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0b8b…0b9d Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x0b9d…0baa Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0baa…0bb8 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0bb8…0bc1 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0bc1…0bca Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0bca…0bf5 Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x0bf5…0bfc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0bfc…0c31 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0c31…0c49 Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x0c49…0c61 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x0c61…0c72 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0c72…0c78 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c78…0ca3 Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x0ca3…0cb3 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0cb3…0cba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0cba…0ccb Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0ccb…0d1a Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0d1a…0d4a Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0d4a…0d83 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0d83…0d9f Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0d9f…0dae Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0dae…0db4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0db4…0dbc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0dbc…0dcd Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x0dcd…0dd4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0dd4…0de4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0de4…0e04 Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x0e04…0e22 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x0e22…0e3a Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x0e3a…0e7b Line {l1=0x3f, l2=» IOPEN(SYSZ.H,SYSF,LÆS);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x3f}
0x0e7b…0e9b Line {l1=0x1e, l2=» FARZ.H.FILENAME:='FARVE ';«, l3=0x1e}
0x0e9b…0eb8 Line {l1=0x1b, l2=» FNAVN:='FARVE:P2:0000:I';«, l3=0x1b}
0x0eb8…0ed0 Line {l1=0x16, l2=» REWRITE(FARF,FNAVN);«, l3=0x16}
0x0ed0…0f11 Line {l1=0x3f, l2=» IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);«, l3=0x3f}
0x0f11…0f31 Line {l1=0x1e, l2=» HOVZ.H.FILENAME:='ORDREHOV';«, l3=0x1e}
0x0f31…0f51 Line {l1=0x1e, l2=» FNAVN:='ORDREHOV:P2:0000:I';«, l3=0x1e}
0x0f51…0f69 Line {l1=0x16, l2=» REWRITE(HOVF,FNAVN);«, l3=0x16}
0x0f69…0fac Line {l1=0x41, l2=» IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);«, l3=0x41}
0x0fac…0fcc Line {l1=0x1e, l2=» OLIZ.H.FILENAME:='OLINIE ';«, l3=0x1e}
0x0fcc…0fea Line {l1=0x1c, l2=» FNAVN:='OLINIE:P2:0000:I';«, l3=0x1c}
0x0fea…1002 Line {l1=0x16, l2=» REWRITE(OLIF,FNAVN);«, l3=0x16}
0x1002…1045 Line {l1=0x41, l2=» IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);«, l3=0x41}
0x1045…1065 Line {l1=0x1e, l2=» KOMZ.H.FILENAME:='KOMBINAT';«, l3=0x1e}
0x1065…1085 Line {l1=0x1e, l2=» FNAVN:='KOMBINAT:P2:0000:I';«, l3=0x1e}
0x1085…109d Line {l1=0x16, l2=» REWRITE(KOMF,FNAVN);«, l3=0x16}
0x109d…10de Line {l1=0x3f, l2=» IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME);«, l3=0x3f}
0x10de…10e4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x10e4…10ed Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x10ed…10f6 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x10f6…1106 Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x1106…1116 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x1116…1126 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x1126…1134 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x1134…1143 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x1143…114c Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x114c…1155 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1155…115d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x115d…116d Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x116d…1174 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1174…11a1 Line {l1=0x2b, l2=» GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)«, l3=0x2b}
0x11a1…11a7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11a7…11af Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x11af…11c6 Line {l1=0x15, l2=»PROCEDURE SKRIVHOVED;«, l3=0x15}
0x11c6…11cd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11cd…11de Line {l1=0x0f, l2=» WITH HOVED DO«, l3=0x0f}
0x11de…11e7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x11e7…1209 Line {l1=0x20, l2=» WRITELN(LIST);WRITELN(LIST);«, l3=0x20}
0x1209…1248 Line {l1=0x3d, l2=» WRITELN(LIST,' ':30,'V Æ R K S T E D S O R D R E',' ':45,«, l3=0x3d}
0x1248…1293 Line {l1=0x49, l2=» 'UDSKRIFTSDATO',SYSTEM.SDAT1*10000.0+SYSTEM.SDAT2:7:-2);«, l3=0x49}
0x1293…12a7 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x12a7…12f4 Line {l1=0x4b, l2=» WRITELN(LIST,'ORDRENR',NR:5, ' SAGSNR',SAGSNR:4, ' INITIALER ',INITIAL,«, l3=0x4b}
0x12f4…1333 Line {l1=0x3d, l2=» ' ':11, 'REFERENCENR',TILBUDNR:5,' KUNDENR',«, l3=0x3d}
0x1333…137a Line {l1=0x45, l2=» KUNDENR(1)*10000.0+KUNDENR(2):6:-2,' ':6,KUNDENAVN);«, l3=0x45}
0x137a…13c2 Line {l1=0x46, l2=» WRITELN(LIST,'TILBUDSDATO',TLBUDDATO(1)*10000.0+TLBUDDATO(2):8:-2,«, l3=0x46}
0x13c2…140c Line {l1=0x48, l2=» ' ':5,'KONTAKT ',KONTAKT,' TLF: ',TELEFON,' ':6,GADE);«, l3=0x48}
0x140c…144f Line {l1=0x41, l2=» WRITELN(LIST,'ORDREDATO',DATO(1)*10000.0+DATO(2):10:-2,' ':5,«, l3=0x41}
0x144f…1487 Line {l1=0x36, l2=» 'LEVERING ',LEVSTED,LEVTERM:5,' ':15,«, l3=0x36}
0x1487…14c3 Line {l1=0x3a, l2=» POSTNR(1)*10000.0+POSTNR(2):8:-2,' ',BY);«, l3=0x3a}
0x14c3…14d7 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x14d7…1523 Line {l1=0x4a, l2=» WRITELN(LIST,'POS VDNR ANT FARVE-1/2 GLAS BLAM-B/H BRE1 HØJ1 BRE2 ',«, l3=0x4a}
0x1523…1571 Line {l1=0x4c, l2=» 'HØJ2 BRE3 HØJ3 BSLS PROFT.1/2 SALGSPRIS RAB % NETTO SAMLET NETTO');«, l3=0x4c}
0x1571…1581 Line {l1=0x0e, l2=» LINIENR:=9«, l3=0x0e}
0x1581…1588 Line {l1=0x05, l2=» END«, l3=0x05}
0x1588…158e Line {l1=0x04, l2=»END;«, l3=0x04}
0x158e…1596 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1596…15ad Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x15ad…15bd Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x15bd…15c4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x15c4…15d6 Line {l1=0x10, l2=» WITH OLINIE DO«, l3=0x10}
0x15d6…15df Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x15df…15f8 Line {l1=0x17, l2=» LINIENR:=LINIENR+1;«, l3=0x17}
0x15f8…1628 Line {l1=0x2e, l2=» WRITE(LIST,POSITION:3,VINDUENR:5,ANTAL:4);«, l3=0x2e}
0x1628…1635 Line {l1=0x0b, l2=» IER:=1;«, l3=0x0b}
0x1635…164b Line {l1=0x14, l2=» WRITE(LIST,' ');«, l3=0x14}
0x164b…1661 Line {l1=0x14, l2=» IF FARVE1>0 THEN«, l3=0x14}
0x1661…166c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x166c…1686 Line {l1=0x18, l2=» COLOUR.NR:=FARVE1;«, l3=0x18}
0x1686…16ab Line {l1=0x23, l2=» GETREC(FARZ.H,FARF,COLOUR.A);«, l3=0x23}
0x16ab…16ed Line {l1=0x40, l2=» IF IER=0 THEN FOR I:=1 TO 4 DO WRITE(LIST,COLOUR.TEKST(I))«, l3=0x40}
0x16ed…1720 Line {l1=0x31, l2=» ELSE IF IER<>-6 THEN ERROR(FARZ.H.FILENAME)«, l3=0x31}
0x1720…172a Line {l1=0x08, l2=» END;«, l3=0x08}
0x172a…1751 Line {l1=0x25, l2=» IF IER<>0 THEN WRITE(LIST,' ':4);«, l3=0x25}
0x1751…175e Line {l1=0x0b, l2=» IER:=1;«, l3=0x0b}
0x175e…1774 Line {l1=0x14, l2=» WRITE(LIST,' ');«, l3=0x14}
0x1774…178a Line {l1=0x14, l2=» IF FARVE2>0 THEN«, l3=0x14}
0x178a…1795 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1795…17af Line {l1=0x18, l2=» COLOUR.NR:=FARVE2;«, l3=0x18}
0x17af…17d4 Line {l1=0x23, l2=» GETREC(FARZ.H,FARF,COLOUR.A);«, l3=0x23}
0x17d4…1816 Line {l1=0x40, l2=» IF IER=0 THEN FOR I:=1 TO 4 DO WRITE(LIST,COLOUR.TEKST(I))«, l3=0x40}
0x1816…1849 Line {l1=0x31, l2=» ELSE IF IER<>-6 THEN ERROR(FARZ.H.FILENAME)«, l3=0x31}
0x1849…1853 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1853…187a Line {l1=0x25, l2=» IF IER<>0 THEN WRITE(LIST,' ':4);«, l3=0x25}
0x187a…18c3 Line {l1=0x47, l2=» WRITE(LIST,GLASART1:2,GLASART2:2,GLASART3:2,BLAMBRED:5,BLAMHØJD:5);«, l3=0x47}
0x18c3…18fd Line {l1=0x38, l2=» FOR I:=1 TO 3 DO WRITE(LIST,BREDDE(I):5,HØJDE(I):5);«, l3=0x38}
0x18fd…1913 Line {l1=0x14, l2=» WRITE(LIST,' ');«, l3=0x14}
0x1913…1945 Line {l1=0x30, l2=» FOR I:=1 TO 4 DO WRITE(LIST,HS(HÆNGSEL(I)));«, l3=0x30}
0x1945…1967 Line {l1=0x20, l2=» KOMBI.NR:=VINDUENR DIV 1000;«, l3=0x20}
0x1967…1989 Line {l1=0x20, l2=» GETREC(KOMZ.H,KOMF,KOMBI.A);«, l3=0x20}
0x1989…19b5 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(KOMZ.H.FILENAME);«, l3=0x2a}
0x19b5…19dd Line {l1=0x26, l2=» R:=(SALGPRIS*(100.0-RABAT))/100.0;«, l3=0x26}
0x19dd…1a25 Line {l1=0x46, l2=» WRITELN(LIST,KOMBI.KARMPROFIL:5,KOMBI.RAMMEPROFIL:5,SALGPRIS:10:2,«, l3=0x46}
0x1a25…1a55 Line {l1=0x2e, l2=» RABAT:6:2,R:10:2,R*ANTAL:13:2);«, l3=0x2e}
0x1a55…1a6f Line {l1=0x18, l2=» GRANT:=GRANT+R*ANTAL«, l3=0x18}
0x1a6f…1a76 Line {l1=0x05, l2=» END«, l3=0x05}
0x1a76…1a7c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a7c…1a84 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1a84…1a8b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a8b…1a94 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x1a94…1aa2 Line {l1=0x0c, l2=» HS:=' HV';«, l3=0x0c}
0x1aa2…1ab3 Line {l1=0x0f, l2=» SYSTEM.NR:=1;«, l3=0x0f}
0x1ab3…1ad4 Line {l1=0x1f, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x1ad4…1afe Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x1afe…1b0e Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1b0e…1b16 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x1b16…1b41 Line {l1=0x29, l2=» WRITE('Isæt 8" papir, RETURN ');READLN;«, l3=0x29}
0x1b41…1b4b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1b4b…1b57 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1b57…1b63 Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x1b63…1ba3 Line {l1=0x3e, l2=» WRITE('Ordrenummer, 0 for færdig ');READLN;READ(ORDRENR)«, l3=0x3e}
0x1ba3…1bbf Line {l1=0x1a, l2=» UNTIL (IORESULT=0) AND«, l3=0x1a}
0x1bbf…1c0d Line {l1=0x4c, l2=» ((ORDRENR=0) OR ((ORDRENR>999) AND (ORDRENR<10000)));«, l3=0x4c}
0x1c0d…1c24 Line {l1=0x15, l2=» IF ORDRENR>0 THEN«, l3=0x15}
0x1c24…1c2f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1c2f…1c49 Line {l1=0x18, l2=» HOVED.NR:=ORDRENR;«, l3=0x18}
0x1c49…1c6d Line {l1=0x22, l2=» GETREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x22}
0x1c6d…1c82 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1c82…1c8f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c8f…1caf Line {l1=0x1e, l2=» IF HOVED.STATUS>1 THEN«, l3=0x1e}
0x1caf…1cbe Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1cbe…1cce Line {l1=0x0e, l2=» D23;«, l3=0x0e}
0x1cce…1d0e Line {l1=0x3e, l2=» WRITE('Værkstedsordre er udskrevet, RETURN ');READLN«, l3=0x3e}
0x1d0e…1d1b Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1d1b…1d40 Line {l1=0x23, l2=» ELSE IF HOVED.STATUS<1 THEN«, l3=0x23}
0x1d40…1d4f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1d4f…1d5f Line {l1=0x0e, l2=» D23;«, l3=0x0e}
0x1d5f…1d99 Line {l1=0x38, l2=» WRITE('Tilbud ikke bekræftet, RETURN ');READLN«, l3=0x38}
0x1d99…1da6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1da6…1db4 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1db4…1dc3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1dc3…1dda Line {l1=0x15, l2=» LINIENR:=0;«, l3=0x15}
0x1dda…1df1 Line {l1=0x15, l2=» SKRIVHOVED;«, l3=0x15}
0x1df1…1e0d Line {l1=0x1a, l2=» HOVED.STATUS:=2;«, l3=0x1a}
0x1e0d…1e35 Line {l1=0x26, l2=» PUTREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x26}
0x1e35…1e67 Line {l1=0x30, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);«, l3=0x30}
0x1e67…1e7e Line {l1=0x15, l2=» GRANT:=0.0;«, l3=0x15}
0x1e7e…1ea2 Line {l1=0x22, l2=» OLINIE.ORDRENR:=ORDRENR;«, l3=0x22}
0x1ea2…1ec1 Line {l1=0x1d, l2=» OLINIE.POSITION:=0;«, l3=0x1d}
0x1ec1…1eeb Line {l1=0x28, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x28}
0x1eeb…1f34 Line {l1=0x47, l2=» IF -IER IN (.1,2,9.) THEN IER:=0 ELSE ERROR(OLIZ.H.FILENAME);«, l3=0x47}
0x1f34…1f6d Line {l1=0x37, l2=» WHILE (IER=0) AND (OLINIE.ORDRENR=ORDRENR) DO«, l3=0x37}
0x1f6d…1f7e Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1f7e…1f97 Line {l1=0x17, l2=» SKRIVLINIE;«, l3=0x17}
0x1f97…1fb6 Line {l1=0x1d, l2=» OLINIE.STATUS:=2;«, l3=0x1d}
0x1fb6…1fe1 Line {l1=0x29, l2=» PUTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x29}
0x1fe1…2015 Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);«, l3=0x32}
0x2015…2040 Line {l1=0x29, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A)«, l3=0x29}
0x2040…2050 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2050…207d Line {l1=0x2b, l2=» WRITELN(LIST,' ':109,GRANT:13:2);«, l3=0x2b}
0x207d…209c Line {l1=0x1d, l2=» LINIENR:=LINIENR+1;«, l3=0x1d}
0x209c…20c2 Line {l1=0x24, l2=» WHILE LINIENR MOD 48<>0 DO«, l3=0x24}
0x20c2…20d3 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x20d3…20ef Line {l1=0x1a, l2=» WRITELN(LIST);«, l3=0x1a}
0x20ef…210f Line {l1=0x1e, l2=» LINIENR:=LINIENR+1«, l3=0x1e}
0x210f…211f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x211f…2165 Line {l1=0x44, l2=» IF -IER IN (.0,2.) THEN IER:=0 ELSE ERROR(OLIZ.H.FILENAME)«, l3=0x44}
0x2165…2172 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2172…217d Line {l1=0x09, l2=» END«, l3=0x09}
0x217d…2198 Line {l1=0x19, l2=» ELSE IF IER=-6 THEN«, l3=0x19}
0x2198…21a5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x21a5…21b3 Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x21b3…21e9 Line {l1=0x34, l2=» WRITE('Ordren findes ikke, RETURN ');READLN«, l3=0x34}
0x21e9…21f4 Line {l1=0x09, l2=» END«, l3=0x09}
0x21f4…2217 Line {l1=0x21, l2=» ELSE ERROR(HOVZ.H.FILENAME)«, l3=0x21}
0x2217…2220 Line {l1=0x07, l2=» END«, l3=0x07}
0x2220…2234 Line {l1=0x12, l2=» UNTIL ORDRENR=0;«, l3=0x12}
0x2234…224c Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x224c…2264 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x2264…227e Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x227e…2284 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2284…228c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x228c…2293 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2293…229f Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x229f…22ae Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x22ae…22c5 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x22c5…22fb Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x22fb…2330 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x2330…2336 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2336…2340 00 00 4e 44 2e 04 00 00 00 00 ┆ ND. ┆
0x2340…2360 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 ┆ ┆
[…0x1d…]