|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »PROFILET.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »PROFILET.K«
PROGRAM PROFILETIKETTER;
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;
MBESLAGZ=273;
MFARVEZ=245;
MOPSPLIZ=385;
LMARG=1;
(*$IISFHEAD*)
SYSZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MSYSZ) OF INTEGER;
END;
BESLAGZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MBESLAGZ) OF INTEGER;
END;
OPSPLITZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOPSPLIZ) OF INTEGER;
END;
FARVEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MFARVEZ) 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;
BESLAGPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
VARENR:ARRAY(1..5) OF DOBBINT;
ANTAL:AR15;
TEKST:TEK;
END;
OPSPLITPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
TYP,
POSITION,
RAMMENR,
PLACER,
ANTAL,
TYPE1,TYPE2,
FARVE,
FTYPE1,FTYPE2,
FLÆNGDE,
SLÆNGDE,
BESLAGNR,
HÆNGSEL,
GUMMI11,GUMMI12,
GUMMI21,GUMMI22,
STATUS:INTEGER;
END;
VAR OPSF,SYSF,FARF,BESF:ISF;
SYSZ:SYSZONE;
OPSZ:OPSPLITZONE;
FARZ:FARVEZONE;
BESZ:BESLAGZONE;
SYSTEM:SYSPOST;
OPSPLIT:OPSPLITPOST;
COLOUR:FARVEPOST;
BESLAG:BESLAGPOST;
AKTPOS,POSANT,IER,LASTETIK,TANTAL:INTEGER;
HS:PACKED ARRAY (0..2) OF CHAR;
HEADING:PACKED ARRAY (1..22) OF CHAR;
RÆKKE:ARRAY (1..6) OF PACKED ARRAY (1..113) OF CHAR;
(*$P*)
(*$L-*)
(*$R-,IFORWARD*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$R+*)
(*$L+*)
SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(OPSZ.H,OPSF);
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;
OPSZ.H.FILENAME:='OPSPLIT ';
FNAVN:='OPSPLIT:P2:0000:I';
REWRITE(OPSF,FNAVN);
IOPEN(OPSZ.H,OPSF,SKRIV);IF IER<>0 THEN OFEJL(OPSZ.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);
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);
BESZ.H.FILENAME:='BESLAGPK';
FNAVN:='BESLAGPK:P2:0000:I';
REWRITE(BESF,FNAVN);
IOPEN(BESZ.H,BESF,LÆS);IF IER<>0 THEN OFEJL(BESZ.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 SKRIVRÆKKE;
VAR I:INTEGER;
BEGIN
IF LASTETIK>0 THEN
BEGIN
WRITELN(LIST);
FOR I:=1 TO 6 DO
BEGIN
WRITELN(LIST,' ':LMARG,RÆKKE(I));
RÆKKE(I):=RÆKKE(2)
END;
WRITELN(LIST);
WRITELN(LIST);
LASTETIK:=0;
FOR I:=0 TO 4 DO
BEGIN
RÆKKE(3,I*23+9):='/';
RÆKKE(3,I*23+13):='/'
END
END
END;
PROCEDURE CHECKETIKET;
VAR I:INTEGER;
BEGIN
D23;
WRITE('Monter profiletiketter, RETURN ');READLN;
FOR I:=1 TO 6 DO
FILLCHAR(RÆKKE(I),113,' ');
REPEAT
FOR I:=1 TO 6 DO
IF I<>2 THEN FILLCHAR(RÆKKE(I),20,'-');
LASTETIK:=1;
SKRIVRÆKKE;
D23;CH:='J';
WRITE('Flere testprint J/N ');EDIT(CH)
UNTIL CH='N'
END;
(*$P*)
PROCEDURE ETIKET;
VAR AKTETIK:INTEGER;
PROCEDURE PUTFELT(LINIE,POS,TAL1,TAL2:INTEGER);
VAR CIF:INTEGER;
BEGIN
POS:=(AKTETIK-1)*23+POS;
CIF:=0;
REPEAT
RÆKKE(LINIE,POS):=CHR(TAL2 MOD 10+48);
POS:=POS-1;
TAL2:=TAL2 DIV 10;
CIF:=CIF+1
UNTIL TAL2=0;
IF TAL1>0 THEN
BEGIN
WHILE CIF<4 DO
BEGIN
RÆKKE(LINIE,POS):='0';
POS:=POS-1;
CIF:=CIF+1
END;
REPEAT
RÆKKE(LINIE,POS):=CHR(TAL1 MOD 10+48);
POS:=POS-1;
TAL1:=TAL1 DIV 10;
CIF:=CIF+1
UNTIL TAL1=0
END
END;
(*$P*)
BEGIN
WITH OPSPLIT DO
BEGIN
IF PLACER>4 THEN AKTETIK:=5 ELSE AKTETIK:=PLACER;
IF LASTETIK>=AKTETIK THEN SKRIVRÆKKE;
LASTETIK:=AKTETIK;
IF RAMMENR=0 THEN
IF PLACER<5 THEN MOVELEFT(HEADING(1),RÆKKE(1,(AKTETIK-1)*23+1),4)
ELSE MOVELEFT(HEADING(1),RÆKKE(1,(AKTETIK-1)*23+1),8)
ELSE
IF PLACER<5 THEN MOVELEFT(HEADING(9),RÆKKE(1,(AKTETIK-1)*23+1),5)
ELSE MOVELEFT(HEADING(14),RÆKKE(1,(AKTETIK-1)*23+1),9);
PUTFELT(3,4,0,ORDRENR);
PUTFELT(3,8,0,POSITION);
PUTFELT(3,12,0,TANTAL);
PUTFELT(3,15,0,RAMMENR);
RÆKKE(3,(AKTETIK-1)*23+18):=HS(HÆNGSEL);
PUTFELT(4,5,TYPE1,TYPE2);
IF PLACER<20 THEN PUTFELT(4,12,FTYPE1,FTYPE2);
COLOUR.NR:=FARVE;
GETREC(FARZ.H,FARF,COLOUR.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(FARZ.H.FILENAME);
IF IER=0 THEN MOVELEFT(COLOUR.TEKST,RÆKKE(6,(AKTETIK-1)*23+17),4);
PUTFELT(5,12,0,FLÆNGDE);
PUTFELT(5,5,0,SLÆNGDE);
IF BESLAGNR>0 THEN
BEGIN
BESLAG.NR:=BESLAGNR;
GETREC(BESZ.H,BESF,BESLAG.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(BESZ.H.FILENAME);
IF IER=0 THEN MOVELEFT(BESLAG.TEKST(1),RÆKKE(6,(AKTETIK-1)*23+1),15)
END;
IF (GUMMI11<>0) OR (GUMMI12<>0) THEN PUTFELT(4,19,GUMMI11,GUMMI12);
IF (GUMMI21<>0) OR (GUMMI22<>0) THEN PUTFELT(5,19,GUMMI21,GUMMI22)
END
END;
(*$P*)
BEGIN
INIT;
HS:=' HV';
HEADING:='KARMPOSTRAMMEGLASLISTE';
SYSTEM.NR:=2;
GETREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
SYSTEM.SDAT2:=SYSTEM.SDAT2+1;
PUTREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
CHECKETIKET;
OPSPLIT.ORDRENR:=SYSTEM.ORDRENR;
OPSPLIT.TYP:=0;
OPSPLIT.POSITION:=0;
OPSPLIT.RAMMENR:=0;
OPSPLIT.PLACER:=0;
NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);
IF -IER IN (.1,2,9.) THEN IER:=0 ELSE ERROR(OPSZ.H.FILENAME);
WHILE (IER=0) AND (OPSPLIT.ORDRENR=SYSTEM.ORDRENR) AND (OPSPLIT.TYP=1) DO
BEGIN
AKTPOS:=OPSPLIT.POSITION;
POSANT:=OPSPLIT.ANTAL;
TANTAL:=1;
REPEAT
ETIKET;
IF (SYSTEM.SDAT1=3) AND (TANTAL=1) THEN
BEGIN
OPSPLIT.STATUS:=3;
PUTREC(OPSZ.H,OPSF,OPSPLIT.A);
IF IER<>0 THEN ERROR(OPSZ.H.FILENAME)
END;
NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);
IF (IER=-2) OR (OPSPLIT.POSITION<>AKTPOS) OR (OPSPLIT.TYP<>1) OR
(OPSPLIT.ORDRENR<>SYSTEM.ORDRENR) THEN
BEGIN
IF TANTAL<POSANT THEN
BEGIN
OPSPLIT.ORDRENR:=SYSTEM.ORDRENR;
OPSPLIT.TYP:=1;
OPSPLIT.POSITION:=AKTPOS;
OPSPLIT.RAMMENR:=0;
OPSPLIT.PLACER:=0;
SKRIVRÆKKE;
NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);
IF IER<>-1 THEN ERROR(OPSZ.H.FILENAME) ELSE IER:=0
END;
TANTAL:=TANTAL+1
END
UNTIL TANTAL>POSANT;
SKRIVRÆKKE
END;
ICLOSE(OPSZ.H,OPSF);
ICLOSE(SYSZ.H,SYSF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('INTRE,GLASETIK:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…001a Line {l1=0x18, l2=»PROGRAM PROFILETIKETTER;«, l3=0x18}
0x001a…0020 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0020…0049 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0049…0062 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0062…0078 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0078…008e Line {l1=0x14, l2=» CH:STRING(1);«, l3=0x14}
0x008e…00a8 Line {l1=0x18, l2=» FNAVN:STRING(18);«, l3=0x18}
0x00a8…00b0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00b0…00c4 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00c4…00d6 Line {l1=0x10, l2=»CONST MSYSZ=243;«, l3=0x10}
0x00d6…00eb Line {l1=0x13, l2=» MBESLAGZ=273;«, l3=0x13}
0x00eb…00ff Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x00ff…0114 Line {l1=0x13, l2=» MOPSPLIZ=385;«, l3=0x13}
0x0114…0124 Line {l1=0x0e, l2=» LMARG=1;«, l3=0x0e}
0x0124…0133 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0133…0143 Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x0143…0157 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0157…017e Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x017e…0184 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0184…0197 Line {l1=0x11, l2=»BESLAGZONE=RECORD«, l3=0x11}
0x0197…01ae Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x01ae…01db Line {l1=0x2b, l2=» T:ARRAY(1..MBESLAGZ) OF INTEGER;«, l3=0x2b}
0x01db…01e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01e1…01f5 Line {l1=0x12, l2=»OPSPLITZONE=RECORD«, l3=0x12}
0x01f5…020d Line {l1=0x16, l2=» H:ISFHEAD;«, l3=0x16}
0x020d…023b Line {l1=0x2c, l2=» T:ARRAY(1..MOPSPLIZ) OF INTEGER;«, l3=0x2c}
0x023b…0241 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0241…0253 Line {l1=0x10, l2=»FARVEZONE=RECORD«, l3=0x10}
0x0253…0268 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x0268…0291 Line {l1=0x27, l2=» T:ARRAY(1..MFARVEZ) OF INTEGER«, l3=0x27}
0x0291…0297 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0297…02bd Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x02bd…02d7 Line {l1=0x18, l2=»RAR=ARRAY(0..0) OF REAL;«, l3=0x18}
0x02d7…02f5 Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x02f5…0313 Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x0313…0331 Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x0331…034f Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x034f…0370 Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x0370…0392 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0392…03a2 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x03a2…03b6 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x03b6…03c7 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x03c7…03db Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x03db…03ea Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x03ea…03fe Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x03fe…041d Line {l1=0x1d, l2=» SDAT1,SDAT2:INTEGER«, l3=0x1d}
0x041d…0423 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0423…0435 Line {l1=0x10, l2=»FARVEPOST=RECORD«, l3=0x10}
0x0435…0448 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x0448…0458 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x0458…046b Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x046b…0479 Line {l1=0x0c, l2=» NR,«, l3=0x0c}
0x0479…0491 Line {l1=0x16, l2=» KODE:INTEGER;«, l3=0x16}
0x0491…04a6 Line {l1=0x13, l2=» TEKST:TEK;«, l3=0x13}
0x04a6…04ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ac…04bf Line {l1=0x11, l2=»BESLAGPOST=RECORD«, l3=0x11}
0x04bf…04d4 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x04d4…04e6 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x04e6…04fb Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x04fb…0513 Line {l1=0x16, l2=» NR:INTEGER;«, l3=0x16}
0x0513…053e Line {l1=0x29, l2=» VARENR:ARRAY(1..5) OF DOBBINT;«, l3=0x29}
0x053e…0556 Line {l1=0x16, l2=» ANTAL:AR15;«, l3=0x16}
0x0556…056d Line {l1=0x15, l2=» TEKST:TEK;«, l3=0x15}
0x056d…0573 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0573…0587 Line {l1=0x12, l2=»OPSPLITPOST=RECORD«, l3=0x12}
0x0587…059d Line {l1=0x14, l2=» AA:ARAR;«, l3=0x14}
0x059d…05b0 Line {l1=0x11, l2=» A:AR;«, l3=0x11}
0x05b0…05c6 Line {l1=0x14, l2=» AAA:RAR;«, l3=0x14}
0x05c6…05dc Line {l1=0x14, l2=» ORDRENR,«, l3=0x14}
0x05dc…05ee Line {l1=0x10, l2=» TYP,«, l3=0x10}
0x05ee…0605 Line {l1=0x15, l2=» POSITION,«, l3=0x15}
0x0605…061b Line {l1=0x14, l2=» RAMMENR,«, l3=0x14}
0x061b…0630 Line {l1=0x13, l2=» PLACER,«, l3=0x13}
0x0630…0644 Line {l1=0x12, l2=» ANTAL,«, l3=0x12}
0x0644…065e Line {l1=0x18, l2=» TYPE1,TYPE2,«, l3=0x18}
0x065e…0672 Line {l1=0x12, l2=» FARVE,«, l3=0x12}
0x0672…068e Line {l1=0x1a, l2=» FTYPE1,FTYPE2,«, l3=0x1a}
0x068e…06a4 Line {l1=0x14, l2=» FLÆNGDE,«, l3=0x14}
0x06a4…06ba Line {l1=0x14, l2=» SLÆNGDE,«, l3=0x14}
0x06ba…06d1 Line {l1=0x15, l2=» BESLAGNR,«, l3=0x15}
0x06d1…06e7 Line {l1=0x14, l2=» HÆNGSEL,«, l3=0x14}
0x06e7…0705 Line {l1=0x1c, l2=» GUMMI11,GUMMI12,«, l3=0x1c}
0x0705…0723 Line {l1=0x1c, l2=» GUMMI21,GUMMI22,«, l3=0x1c}
0x0723…0740 Line {l1=0x1b, l2=» STATUS:INTEGER;«, l3=0x1b}
0x0740…0746 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0746…0764 Line {l1=0x1c, l2=»VAR OPSF,SYSF,FARF,BESF:ISF;«, l3=0x1c}
0x0764…0777 Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x0777…078e Line {l1=0x15, l2=» OPSZ:OPSPLITZONE;«, l3=0x15}
0x078e…07a3 Line {l1=0x13, l2=» FARZ:FARVEZONE;«, l3=0x13}
0x07a3…07b9 Line {l1=0x14, l2=» BESZ:BESLAGZONE;«, l3=0x14}
0x07b9…07ce Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x07ce…07e8 Line {l1=0x18, l2=» OPSPLIT:OPSPLITPOST;«, l3=0x18}
0x07e8…07ff Line {l1=0x15, l2=» COLOUR:FARVEPOST;«, l3=0x15}
0x07ff…0817 Line {l1=0x16, l2=» BESLAG:BESLAGPOST;«, l3=0x16}
0x0817…0847 Line {l1=0x2e, l2=» AKTPOS,POSANT,IER,LASTETIK,TANTAL:INTEGER;«, l3=0x2e}
0x0847…086c Line {l1=0x23, l2=» HS:PACKED ARRAY (0..2) OF CHAR;«, l3=0x23}
0x086c…0897 Line {l1=0x29, l2=» HEADING:PACKED ARRAY (1..22) OF CHAR;«, l3=0x29}
0x0897…08d1 Line {l1=0x38, l2=» RÆKKE:ARRAY (1..6) OF PACKED ARRAY (1..113) OF CHAR;«, l3=0x38}
0x08d1…08d9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x08d9…08e2 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x08e2…08f4 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x08f4…0901 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0901…090f Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x090f…0918 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0918…0921 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0921…094c Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x094c…0953 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0953…0988 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0988…09a0 Line {l1=0x16, l2=» ICLOSE(OPSZ.H,OPSF);«, l3=0x16}
0x09a0…09b8 Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x09b8…09c9 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x09c9…09cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x09cf…09fa Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x09fa…0a0a Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0a0a…0a11 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a11…0a22 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0a22…0a71 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0a71…0aa1 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0aa1…0ada Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0ada…0af6 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0af6…0b05 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0b05…0b0b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b0b…0b13 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0b13…0b24 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x0b24…0b2b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b2b…0b3b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0b3b…0b5b Line {l1=0x1e, l2=» OPSZ.H.FILENAME:='OPSPLIT ';«, l3=0x1e}
0x0b5b…0b7a Line {l1=0x1d, l2=» FNAVN:='OPSPLIT:P2:0000:I';«, l3=0x1d}
0x0b7a…0b92 Line {l1=0x16, l2=» REWRITE(OPSF,FNAVN);«, l3=0x16}
0x0b92…0bd5 Line {l1=0x41, l2=» IOPEN(OPSZ.H,OPSF,SKRIV);IF IER<>0 THEN OFEJL(OPSZ.H.FILENAME);«, l3=0x41}
0x0bd5…0bf5 Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x0bf5…0c13 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x0c13…0c2b Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x0c2b…0c6e Line {l1=0x41, l2=» IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x41}
0x0c6e…0c8e Line {l1=0x1e, l2=» FARZ.H.FILENAME:='FARVE ';«, l3=0x1e}
0x0c8e…0cab Line {l1=0x1b, l2=» FNAVN:='FARVE:P2:0000:I';«, l3=0x1b}
0x0cab…0cc3 Line {l1=0x16, l2=» REWRITE(FARF,FNAVN);«, l3=0x16}
0x0cc3…0d04 Line {l1=0x3f, l2=» IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);«, l3=0x3f}
0x0d04…0d24 Line {l1=0x1e, l2=» BESZ.H.FILENAME:='BESLAGPK';«, l3=0x1e}
0x0d24…0d44 Line {l1=0x1e, l2=» FNAVN:='BESLAGPK:P2:0000:I';«, l3=0x1e}
0x0d44…0d5c Line {l1=0x16, l2=» REWRITE(BESF,FNAVN);«, l3=0x16}
0x0d5c…0d9c Line {l1=0x3e, l2=» IOPEN(BESZ.H,BESF,LÆS);IF IER<>0 THEN OFEJL(BESZ.H.FILENAME)«, l3=0x3e}
0x0d9c…0da2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0da2…0dab Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0dab…0db4 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x0db4…0dc4 Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x0dc4…0dd4 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0dd4…0de4 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0de4…0df2 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0df2…0e01 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0e01…0e0a Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0e0a…0e13 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0e13…0e1b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0e1b…0e2b Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x0e2b…0e32 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e32…0e5f Line {l1=0x2b, l2=» GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)«, l3=0x2b}
0x0e5f…0e65 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e65…0e6d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0e6d…0e84 Line {l1=0x15, l2=»PROCEDURE SKRIVRÆKKE;«, l3=0x15}
0x0e84…0e94 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0e94…0e9b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e9b…0eb1 Line {l1=0x14, l2=» IF LASTETIK>0 THEN«, l3=0x14}
0x0eb1…0eba Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0eba…0ece Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0ece…0ee4 Line {l1=0x14, l2=» FOR I:=1 TO 6 DO«, l3=0x14}
0x0ee4…0eef Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0eef…0f18 Line {l1=0x27, l2=» WRITELN(LIST,' ':LMARG,RÆKKE(I));«, l3=0x27}
0x0f18…0f32 Line {l1=0x18, l2=» RÆKKE(I):=RÆKKE(2)«, l3=0x18}
0x0f32…0f3c Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f3c…0f50 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
[…0x1…]
0x0f64…0f76 Line {l1=0x10, l2=» LASTETIK:=0;«, l3=0x10}
0x0f76…0f8c Line {l1=0x14, l2=» FOR I:=0 TO 4 DO«, l3=0x14}
0x0f8c…0f97 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f97…0fb4 Line {l1=0x1b, l2=» RÆKKE(3,I*23+9):='/';«, l3=0x1b}
0x0fb4…0fd1 Line {l1=0x1b, l2=» RÆKKE(3,I*23+13):='/'«, l3=0x1b}
0x0fd1…0fda Line {l1=0x07, l2=» END«, l3=0x07}
0x0fda…0fe1 Line {l1=0x05, l2=» END«, l3=0x05}
0x0fe1…0fe7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fe7…0fea Line {l1=0x01, l2=» «, l3=0x01}
0x0fea…1002 Line {l1=0x16, l2=»PROCEDURE CHECKETIKET;«, l3=0x16}
0x1002…1012 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1012…1019 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1019…1021 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x1021…1055 Line {l1=0x32, l2=» WRITE('Monter profiletiketter, RETURN ');READLN;«, l3=0x32}
0x1055…1069 Line {l1=0x12, l2=» FOR I:=1 TO 6 DO«, l3=0x12}
0x1069…108a Line {l1=0x1f, l2=» FILLCHAR(RÆKKE(I),113,' ');«, l3=0x1f}
0x108a…1094 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1094…10aa Line {l1=0x14, l2=» FOR I:=1 TO 6 DO«, l3=0x14}
0x10aa…10d7 Line {l1=0x2b, l2=» IF I<>2 THEN FILLCHAR(RÆKKE(I),20,'-');«, l3=0x2b}
0x10d7…10e9 Line {l1=0x10, l2=» LASTETIK:=1;«, l3=0x10}
0x10e9…10fa Line {l1=0x0f, l2=» SKRIVRÆKKE;«, l3=0x0f}
0x10fa…110c Line {l1=0x10, l2=» D23;CH:='J';«, l3=0x10}
0x110c…1138 Line {l1=0x2a, l2=» WRITE('Flere testprint J/N ');EDIT(CH)«, l3=0x2a}
0x1138…1148 Line {l1=0x0e, l2=» UNTIL CH='N'«, l3=0x0e}
0x1148…114e Line {l1=0x04, l2=»END;«, l3=0x04}
0x114e…1156 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1156…1169 Line {l1=0x11, l2=»PROCEDURE ETIKET;«, l3=0x11}
0x1169…117f Line {l1=0x14, l2=»VAR AKTETIK:INTEGER;«, l3=0x14}
0x117f…1182 Line {l1=0x01, l2=» «, l3=0x01}
0x1182…11b3 Line {l1=0x2f, l2=»PROCEDURE PUTFELT(LINIE,POS,TAL1,TAL2:INTEGER);«, l3=0x2f}
0x11b3…11c5 Line {l1=0x10, l2=»VAR CIF:INTEGER;«, l3=0x10}
0x11c5…11cc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11cc…11e8 Line {l1=0x1a, l2=» POS:=(AKTETIK-1)*23+POS;«, l3=0x1a}
0x11e8…11f3 Line {l1=0x09, l2=» CIF:=0;«, l3=0x09}
0x11f3…11fd Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x11fd…1229 Line {l1=0x2a, l2=» RÆKKE(LINIE,POS):=CHR(TAL2 MOD 10+48);«, l3=0x2a}
0x1229…123a Line {l1=0x0f, l2=» POS:=POS-1;«, l3=0x0f}
0x123a…1252 Line {l1=0x16, l2=» TAL2:=TAL2 DIV 10;«, l3=0x16}
0x1252…1262 Line {l1=0x0e, l2=» CIF:=CIF+1«, l3=0x0e}
0x1262…1273 Line {l1=0x0f, l2=» UNTIL TAL2=0;«, l3=0x0f}
0x1273…1285 Line {l1=0x10, l2=» IF TAL1>0 THEN«, l3=0x10}
0x1285…128e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x128e…12a2 Line {l1=0x12, l2=» WHILE CIF<4 DO«, l3=0x12}
0x12a2…12ad Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x12ad…12cb Line {l1=0x1c, l2=» RÆKKE(LINIE,POS):='0';«, l3=0x1c}
0x12cb…12de Line {l1=0x11, l2=» POS:=POS-1;«, l3=0x11}
0x12de…12f0 Line {l1=0x10, l2=» CIF:=CIF+1«, l3=0x10}
0x12f0…12fa Line {l1=0x08, l2=» END;«, l3=0x08}
0x12fa…1306 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1306…1334 Line {l1=0x2c, l2=» RÆKKE(LINIE,POS):=CHR(TAL1 MOD 10+48);«, l3=0x2c}
0x1334…1347 Line {l1=0x11, l2=» POS:=POS-1;«, l3=0x11}
0x1347…1361 Line {l1=0x18, l2=» TAL1:=TAL1 DIV 10;«, l3=0x18}
0x1361…1373 Line {l1=0x10, l2=» CIF:=CIF+1«, l3=0x10}
0x1373…1385 Line {l1=0x10, l2=» UNTIL TAL1=0«, l3=0x10}
0x1385…138c Line {l1=0x05, l2=» END«, l3=0x05}
0x138c…1392 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1392…139a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x139a…13a1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13a1…13b4 Line {l1=0x11, l2=» WITH OPSPLIT DO«, l3=0x11}
0x13b4…13bd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x13bd…13f4 Line {l1=0x35, l2=» IF PLACER>4 THEN AKTETIK:=5 ELSE AKTETIK:=PLACER;«, l3=0x35}
0x13f4…141f Line {l1=0x29, l2=» IF LASTETIK>=AKTETIK THEN SKRIVRÆKKE;«, l3=0x29}
0x141f…1437 Line {l1=0x16, l2=» LASTETIK:=AKTETIK;«, l3=0x16}
0x1437…144e Line {l1=0x15, l2=» IF RAMMENR=0 THEN«, l3=0x15}
0x144e…1497 Line {l1=0x47, l2=» IF PLACER<5 THEN MOVELEFT(HEADING(1),RÆKKE(1,(AKTETIK-1)*23+1),4)«, l3=0x47}
0x1497…14d4 Line {l1=0x3b, l2=» ELSE MOVELEFT(HEADING(1),RÆKKE(1,(AKTETIK-1)*23+1),8)«, l3=0x3b}
0x14d4…14de Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x14de…1527 Line {l1=0x47, l2=» IF PLACER<5 THEN MOVELEFT(HEADING(9),RÆKKE(1,(AKTETIK-1)*23+1),5)«, l3=0x47}
0x1527…1566 Line {l1=0x3d, l2=» ELSE MOVELEFT(HEADING(14),RÆKKE(1,(AKTETIK-1)*23+1),9);«, l3=0x3d}
0x1566…1583 Line {l1=0x1b, l2=» PUTFELT(3,4,0,ORDRENR);«, l3=0x1b}
0x1583…15a1 Line {l1=0x1c, l2=» PUTFELT(3,8,0,POSITION);«, l3=0x1c}
0x15a1…15be Line {l1=0x1b, l2=» PUTFELT(3,12,0,TANTAL);«, l3=0x1b}
0x15be…15dc Line {l1=0x1c, l2=» PUTFELT(3,15,0,RAMMENR);«, l3=0x1c}
0x15dc…160a Line {l1=0x2c, l2=» RÆKKE(3,(AKTETIK-1)*23+18):=HS(HÆNGSEL);«, l3=0x2c}
0x160a…1629 Line {l1=0x1d, l2=» PUTFELT(4,5,TYPE1,TYPE2);«, l3=0x1d}
0x1629…165d Line {l1=0x32, l2=» IF PLACER<20 THEN PUTFELT(4,12,FTYPE1,FTYPE2);«, l3=0x32}
0x165d…1674 Line {l1=0x15, l2=» COLOUR.NR:=FARVE;«, l3=0x15}
0x1674…1697 Line {l1=0x21, l2=» GETREC(FARZ.H,FARF,COLOUR.A);«, l3=0x21}
0x1697…16d3 Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(FARZ.H.FILENAME);«, l3=0x3a}
0x16d3…171b Line {l1=0x46, l2=» IF IER=0 THEN MOVELEFT(COLOUR.TEKST,RÆKKE(6,(AKTETIK-1)*23+17),4);«, l3=0x46}
0x171b…1739 Line {l1=0x1c, l2=» PUTFELT(5,12,0,FLÆNGDE);«, l3=0x1c}
0x1739…1756 Line {l1=0x1b, l2=» PUTFELT(5,5,0,SLÆNGDE);«, l3=0x1b}
0x1756…176e Line {l1=0x16, l2=» IF BESLAGNR>0 THEN«, l3=0x16}
0x176e…1779 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1779…1795 Line {l1=0x1a, l2=» BESLAG.NR:=BESLAGNR;«, l3=0x1a}
0x1795…17ba Line {l1=0x23, l2=» GETREC(BESZ.H,BESF,BESLAG.A);«, l3=0x23}
0x17ba…17f8 Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(BESZ.H.FILENAME);«, l3=0x3c}
0x17f8…1844 Line {l1=0x4a, l2=» IF IER=0 THEN MOVELEFT(BESLAG.TEKST(1),RÆKKE(6,(AKTETIK-1)*23+1),15)«, l3=0x4a}
0x1844…184e Line {l1=0x08, l2=» END;«, l3=0x08}
0x184e…1897 Line {l1=0x47, l2=» IF (GUMMI11<>0) OR (GUMMI12<>0) THEN PUTFELT(4,19,GUMMI11,GUMMI12);«, l3=0x47}
0x1897…18df Line {l1=0x46, l2=» IF (GUMMI21<>0) OR (GUMMI22<>0) THEN PUTFELT(5,19,GUMMI21,GUMMI22)«, l3=0x46}
0x18df…18e6 Line {l1=0x05, l2=» END«, l3=0x05}
0x18e6…18ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x18ec…18f4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x18f4…18fb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x18fb…1904 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x1904…1912 Line {l1=0x0c, l2=» HS:=' HV';«, l3=0x0c}
0x1912…1938 Line {l1=0x24, l2=» HEADING:='KARMPOSTRAMMEGLASLISTE';«, l3=0x24}
0x1938…1949 Line {l1=0x0f, l2=» SYSTEM.NR:=2;«, l3=0x0f}
0x1949…196a Line {l1=0x1f, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x196a…1994 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x1994…19b5 Line {l1=0x1f, l2=» SYSTEM.SDAT2:=SYSTEM.SDAT2+1;«, l3=0x1f}
0x19b5…19d6 Line {l1=0x1f, l2=» PUTREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x19d6…1a00 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x1a00…1a10 Line {l1=0x0e, l2=» CHECKETIKET;«, l3=0x0e}
0x1a10…1a34 Line {l1=0x22, l2=» OPSPLIT.ORDRENR:=SYSTEM.ORDRENR;«, l3=0x22}
0x1a34…1a47 Line {l1=0x11, l2=» OPSPLIT.TYP:=0;«, l3=0x11}
0x1a47…1a5f Line {l1=0x16, l2=» OPSPLIT.POSITION:=0;«, l3=0x16}
0x1a5f…1a76 Line {l1=0x15, l2=» OPSPLIT.RAMMENR:=0;«, l3=0x15}
0x1a76…1a8c Line {l1=0x14, l2=» OPSPLIT.PLACER:=0;«, l3=0x14}
0x1a8c…1aaf Line {l1=0x21, l2=» NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x21}
0x1aaf…1af0 Line {l1=0x3f, l2=» IF -IER IN (.1,2,9.) THEN IER:=0 ELSE ERROR(OPSZ.H.FILENAME);«, l3=0x3f}
0x1af0…1b3d Line {l1=0x4b, l2=» WHILE (IER=0) AND (OPSPLIT.ORDRENR=SYSTEM.ORDRENR) AND (OPSPLIT.TYP=1) DO«, l3=0x4b}
0x1b3d…1b46 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b46…1b65 Line {l1=0x1d, l2=» AKTPOS:=OPSPLIT.POSITION;«, l3=0x1d}
0x1b65…1b81 Line {l1=0x1a, l2=» POSANT:=OPSPLIT.ANTAL;«, l3=0x1a}
0x1b81…1b91 Line {l1=0x0e, l2=» TANTAL:=1;«, l3=0x0e}
0x1b91…1b9d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1b9d…1bac Line {l1=0x0d, l2=» ETIKET;«, l3=0x0d}
0x1bac…1bdb Line {l1=0x2d, l2=» IF (SYSTEM.SDAT1=3) AND (TANTAL=1) THEN«, l3=0x2d}
0x1bdb…1be8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1be8…1c04 Line {l1=0x1a, l2=» OPSPLIT.STATUS:=3;«, l3=0x1a}
0x1c04…1c2c Line {l1=0x26, l2=» PUTREC(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x26}
0x1c2c…1c5b Line {l1=0x2d, l2=» IF IER<>0 THEN ERROR(OPSZ.H.FILENAME)«, l3=0x2d}
0x1c5b…1c67 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c67…1c8e Line {l1=0x25, l2=» NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x25}
0x1c8e…1cd6 Line {l1=0x46, l2=» IF (IER=-2) OR (OPSPLIT.POSITION<>AKTPOS) OR (OPSPLIT.TYP<>1) OR«, l3=0x46}
0x1cd6…1d13 Line {l1=0x3b, l2=» (OPSPLIT.ORDRENR<>SYSTEM.ORDRENR) THEN«, l3=0x3b}
0x1d13…1d20 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1d20…1d3f Line {l1=0x1d, l2=» IF TANTAL<POSANT THEN«, l3=0x1d}
0x1d3f…1d4e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1d4e…1d7a Line {l1=0x2a, l2=» OPSPLIT.ORDRENR:=SYSTEM.ORDRENR;«, l3=0x2a}
0x1d7a…1d95 Line {l1=0x19, l2=» OPSPLIT.TYP:=1;«, l3=0x19}
0x1d95…1dba Line {l1=0x23, l2=» OPSPLIT.POSITION:=AKTPOS;«, l3=0x23}
0x1dba…1dd9 Line {l1=0x1d, l2=» OPSPLIT.RAMMENR:=0;«, l3=0x1d}
0x1dd9…1df7 Line {l1=0x1c, l2=» OPSPLIT.PLACER:=0;«, l3=0x1c}
0x1df7…1e0e Line {l1=0x15, l2=» SKRIVRÆKKE;«, l3=0x15}
0x1e0e…1e39 Line {l1=0x29, l2=» NEXTREC(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x29}
0x1e39…1e77 Line {l1=0x3c, l2=» IF IER<>-1 THEN ERROR(OPSZ.H.FILENAME) ELSE IER:=0«, l3=0x3c}
0x1e77…1e85 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1e85…1e9f Line {l1=0x18, l2=» TANTAL:=TANTAL+1«, l3=0x18}
0x1e9f…1eaa Line {l1=0x09, l2=» END«, l3=0x09}
0x1eaa…1ec4 Line {l1=0x18, l2=» UNTIL TANTAL>POSANT;«, l3=0x18}
0x1ec4…1ed4 Line {l1=0x0e, l2=» SKRIVRÆKKE«, l3=0x0e}
0x1ed4…1edc Line {l1=0x06, l2=» END;«, l3=0x06}
0x1edc…1ef4 Line {l1=0x16, l2=» ICLOSE(OPSZ.H,OPSF);«, l3=0x16}
0x1ef4…1f0c Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x1f0c…1f26 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x1f26…1f2c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f2c…1f34 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1f34…1f3b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f3b…1f47 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x1f47…1f56 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x1f56…1f6d Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x1f6d…1fac Line {l1=0x3d, l2=» CHAIN('L *1',CONCAT('INTRE,GLASETIK:P2,',FNAVN),QUQ);«, l3=0x3d}
0x1fac…1fe1 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x1fe1…1fe7 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1fe7…2000 00 00 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 ┆ IN('L *1',CONCAT(┆
0x2000…2020 27 49 4e 54 52 45 2c 47 4c 41 53 45 54 49 4b 3a 50 32 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 ┆'INTRE,GLASETIK:P2,',FNAVN),QUQ)┆
0x2020…2040 3b 3d 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e ┆;=3 IF IORESULT<>0 THEN WRITELN┆
0x2040…2060 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 00 ┆('IORESULT ',IORESULT)3 END. ┆
0x2060…2080 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 ┆ ┆
[…0x38…]