|
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: »ISFMASTR.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »ISFMASTR.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »ISFMASTR.K«
PROGRAM AFSLPROD;
(*SLETTER PRODUKTIONSORDRELINIER OG DESSINOPERATIONSLINIER, MEN MARKERER KUN
PRODUKTIONSORDREPOSTEN MED SLUTDATO*)
(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, UDEN HÆGTER, DER BRUGER
INDLÆSNINGSPROCEDURERNE, MEN IKKE ALM. REGVEDL*)
CONST MAXRECSIZE=10;
(*@@*)
PROGRAMNR=8;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
F:STRING(18);
QUQ:^INTEGER;
IER,IREC,STATUSER,MODE,REMUSERS,
FILNR,I:INTEGER;
FNAVN,DESCNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
(*$L-*)
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
GOTOXY(1,23);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
(*$L+*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
(*@@*)
MAXPOST=10;
MAXHÆGTER=9;
MAXHPOST=20;
MAXIDENT=9;
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
LONGINT = ARRAY (1..2) OF INTEGER;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
DOPE=RECORD
AA:ARAR;A:AR;AAA:RAR;
TOTTID:REAL;
ONR:LONGINT;
OPNR:INTEGER;
END;
PRODORDRE=RECORD
AA:ARAR;A:AR;AAA:RAR;
ONR,
STDATO,
SLDATO:LONGINT;
END;
PROROLIN=RECORD
AA:ARAR;A:AR;AAA:RAR;
ANTAL:REAL;
ONR:LONGINT;
DNR,
FNR:INTEGER;
END;
HPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER
END;
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;
HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;
IDENT:ARRAY (1..MAXIDENT) OF NFELT;
ANTALIDENT,
LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;
LINE:STRING;
POST:PRODORDRE;
POST1:PROROLIN;
POST2:DOPE;
HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;
CH:STRING(1);
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
IF LINES>0 THEN PAGE(LIST); (*$R-*)
WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
ICLOSE(POST.A);
ICLOSE(POST1.A);
ICLOSE(POST2.A);
(*@@LUK EVT. ANDRE DATAFILER*)
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR REC:AR);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20); (*$R-*)
WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),
' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(REC);
CLEARSCREEN
END;
(*$P*)
(*$L-*)
(*$IHLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR J,NØGLENR,HNR,HINDEKS:INTEGER;
CH:STRING(1);
BEGIN (*MAINTAIN*)
NULPOST;
LÆSFELT(PICTURE(1));SKRIVFELT(PICTURE(1));
GETRECX(POST.A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A);
IF IER=0 THEN
BEGIN
SKRIVPOST;
REPEAT
GOTOXY(1,23);
IF POST.STDATO(1)=0 THEN CH:='J' ELSE CH:='N';
WRITE('Rigtig post J/N ');
EDIT(CH)
UNTIL CH(1) IN (.'J','N','j','n'.);
IF CH(1) IN (.'N','n'.) THEN
BEGIN
GETREC(POST.A); (*FOR AT FJERNE XCLUSIV-STATUS*)
IF IER<>0 THEN ERROR(POST.A)
END
ELSE
BEGIN
LÆSFELT(PICTURE(3));SKRIVFELT(PICTURE(3));
POST1.ONR:=POST.ONR;
POST1.DNR:=0;
POST1.FNR:=0;
NEXTRECX(POST1.A);
IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST1.A);
IER:=0;
WHILE (IER=0) AND (POST1.ONR=POST.ONR) DO DELETEX(POST1.A);
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST1.A);
GETREC(POST1.A); (*FOR AT FJERNE XCLUSIV-STATUS*)
IF IER<>0 THEN ERROR(POST1.A);
POST2.ONR:=POST.ONR;
POST2.OPNR:=0;
NEXTRECX(POST2.A);
IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST2.A);
IER:=0;
WHILE (IER=0) AND (POST2.ONR=POST.ONR) DO DELETEX(POST2.A);
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST2.A);
GETREC(POST2.A); (*FOR AT FJERNE XCLUSIV-STATUS*)
IF IER<>0 THEN ERROR(POST2.A);
PUTREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END
END
ELSE
BEGIN
GOTOXY(1,23);
WRITE('Posten eksisterer ikke, RETURN ');READLN
END
END;
(*$P*)
BEGIN (*REGVEDL*)
CLEARSCREEN;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
MODE:=3;(*SKRIV*)
LINES:=100; (*$R-*)
POST.A(-3):=10;
IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);
POST1.A(-3):=11;
IOPEN(POST1.A);IF IER<>0 THEN OFEJL(POST1.A);
POST2.A(-3):=12;
IOPEN(POST2.A);IF IER<>0 THEN OFEJL(POST2.A); (*$R+*)
(*@@EVT. ÅBNING AF ANDRE DATAFILER*)
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN('Afslutning af produktionsordrer');
GOTOXY(10,12);
WRITE('Flere ordrer J/N ');
CH:='J';
EDIT(CH);
IF CH(1) IN (.'J','j'.) THEN MAINTAIN
UNTIL CH(1) IN (.'N','n'.);
IF LINES<>100 THEN PAGE(LIST);
ICLOSE(POST.A);
ICLOSE(POST1.A);
ICLOSE(POST2.A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN;
IF IER<>0 THEN BAD(6,IER)
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
(*@@TILPASSES*)
DESCNAVN:='AFSLPROD:P2:05:J';
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM AFSLPROD;«, l3=0x11}
0x0013…0061 Line {l1=0x4c, l2=»(*SLETTER PRODUKTIONSORDRELINIER OG DESSINOPERATIONSLINIER, MEN MARKERER KUN«, l3=0x4c}
0x0061…0088 Line {l1=0x25, l2=»PRODUKTIONSORDREPOSTEN MED SLUTDATO*)«, l3=0x25}
0x0088…00d5 Line {l1=0x4b, l2=»(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, UDEN HÆGTER, DER BRUGER«, l3=0x4b}
0x00d5…0107 Line {l1=0x30, l2=»INDLÆSNINGSPROCEDURERNE, MEN IKKE ALM. REGVEDL*)«, l3=0x30}
0x0107…011d Line {l1=0x14, l2=»CONST MAXRECSIZE=10;«, l3=0x14}
0x011d…0125 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0125…0139 Line {l1=0x12, l2=» PROGRAMNR=8;«, l3=0x12}
0x0139…013f Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x013f…0168 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0168…01b3 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x01b3…01cb Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x01cb…0216 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0216…022a Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x022a…0240 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0240…0254 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0254…029d Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x029d…02ed Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x02ed…0337 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0337…0348 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0348…036a Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x036a…0389 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x0389…0398 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0398…03b7 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x03b7…03d0 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x03d0…03eb Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x03eb…0401 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0401…0417 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0417…0440 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0440…0459 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x0459…047c Line {l1=0x21, l2=» FNAVN,DESCNAVN:STRING(18);«, l3=0x21}
0x047c…0492 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x0492…04ac Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x04ac…04bd Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x04bd…04d0 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x04d0…04e9 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x04e9…0501 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0501…0509 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0509…0512 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0512…0538 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0538…053f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x053f…0550 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x0550…0572 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x0572…057c Line {l1=0x08, l2=» READLN«, l3=0x08}
0x057c…0582 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0582…058a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x058a…05c1 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x05c1…05e8 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x05e8…05f3 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x05f3…062b Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x062b…0636 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0636…066a Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x066a…069f Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x069f…06aa Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06aa…06e1 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x06e1…0708 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0708…0713 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0713…074b Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x074b…0772 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0772…077d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x077d…07b2 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x07b2…07bd Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07bd…07c5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07c5…07d2 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x07d2…07e2 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x07e2…07ea Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07ea…07f3 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x07f3…0807 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0807…081c Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x081c…0830 Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x0830…0838 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0838…084b Line {l1=0x11, l2=» MAXPOST=10;«, l3=0x11}
0x084b…085f Line {l1=0x12, l2=» MAXHÆGTER=9;«, l3=0x12}
0x085f…0873 Line {l1=0x12, l2=» MAXHPOST=20;«, l3=0x12}
0x0873…0886 Line {l1=0x11, l2=» MAXIDENT=9;«, l3=0x11}
0x0886…088c Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x088c…08a5 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x08a5…08b6 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x08b6…08c6 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x08c6…08cc Line {l1=0x04, l2=»END;«, l3=0x04}
0x08cc…08f0 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08f0…0921 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0921…0948 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0948…0960 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0960…0974 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0974…098c Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x098c…09b2 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x09b2…09c0 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x09c0…09db Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09db…09ff Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x09ff…0a16 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0a16…0a37 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a37…0a43 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a43…0a4f Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a4f…0a5a Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a5a…0a6e Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a6e…0a89 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a89…0aa1 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0aa1…0abf Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0abf…0acd Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0acd…0aee Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0aee…0b12 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0b12…0b42 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b42…0b65 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b65…0b79 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b79…0b7f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b7f…0ba6 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0ba6…0bc1 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0bc1…0be5 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0be5…0c12 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0c12…0c1f Line {l1=0x0b, l2=»DOPE=RECORD«, l3=0x0b}
0x0c1f…0c3c Line {l1=0x1b, l2=» AA:ARAR;A:AR;AAA:RAR;«, l3=0x1b}
0x0c3c…0c50 Line {l1=0x12, l2=» TOTTID:REAL;«, l3=0x12}
0x0c50…0c64 Line {l1=0x12, l2=» ONR:LONGINT;«, l3=0x12}
0x0c64…0c79 Line {l1=0x13, l2=» OPNR:INTEGER;«, l3=0x13}
0x0c79…0c7f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c7f…0c91 Line {l1=0x10, l2=»PRODORDRE=RECORD«, l3=0x10}
0x0c91…0cae Line {l1=0x1b, l2=» AA:ARAR;A:AR;AAA:RAR;«, l3=0x1b}
0x0cae…0cba Line {l1=0x0a, l2=» ONR,«, l3=0x0a}
0x0cba…0cc9 Line {l1=0x0d, l2=» STDATO,«, l3=0x0d}
0x0cc9…0ce0 Line {l1=0x15, l2=» SLDATO:LONGINT;«, l3=0x15}
0x0ce0…0ce6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ce6…0cf7 Line {l1=0x0f, l2=»PROROLIN=RECORD«, l3=0x0f}
0x0cf7…0d14 Line {l1=0x1b, l2=» AA:ARAR;A:AR;AAA:RAR;«, l3=0x1b}
0x0d14…0d27 Line {l1=0x11, l2=» ANTAL:REAL;«, l3=0x11}
0x0d27…0d3b Line {l1=0x12, l2=» ONR:LONGINT;«, l3=0x12}
0x0d3b…0d47 Line {l1=0x0a, l2=» DNR,«, l3=0x0a}
0x0d47…0d5b Line {l1=0x12, l2=» FNR:INTEGER;«, l3=0x12}
0x0d5b…0d61 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d61…0d6f Line {l1=0x0c, l2=»HPOST=RECORD«, l3=0x0c}
0x0d6f…0d7f Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0d7f…0d8c Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0d8c…0d9c Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0d9c…0dcc Line {l1=0x2e, l2=» CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER«, l3=0x2e}
0x0dcc…0dd2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dd2…0de3 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x0de3…0df8 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x0df8…0e24 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0e24…0e4f Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x0e4f…0e7a Line {l1=0x29, l2=» HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;«, l3=0x29}
0x0e7a…0ea3 Line {l1=0x27, l2=» IDENT:ARRAY (1..MAXIDENT) OF NFELT;«, l3=0x27}
0x0ea3…0eb4 Line {l1=0x0f, l2=» ANTALIDENT,«, l3=0x0f}
0x0eb4…0ef7 Line {l1=0x41, l2=» LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;«, l3=0x41}
0x0ef7…0f09 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0f09…0f1e Line {l1=0x13, l2=» POST:PRODORDRE;«, l3=0x13}
0x0f1e…0f33 Line {l1=0x13, l2=» POST1:PROROLIN;«, l3=0x13}
0x0f33…0f44 Line {l1=0x0f, l2=» POST2:DOPE;«, l3=0x0f}
0x0f44…0f71 Line {l1=0x2b, l2=» HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;«, l3=0x2b}
0x0f71…0f84 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x0f84…0f8c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0f8c…0faa Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x0faa…0fbd Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0fbd…0fcd Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x0fcd…0fd4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0fd4…1024 Line {l1=0x4e, l2=» IF LINES>0 THEN PAGE(LIST); (*$R-*)«, l3=0x4e}
0x1024…1074 Line {l1=0x4e, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4e}
0x1074…1089 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x1089…109c Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x109c…10b0 Line {l1=0x12, l2=» ICLOSE(POST1.A);«, l3=0x12}
0x10b0…10c4 Line {l1=0x12, l2=» ICLOSE(POST2.A);«, l3=0x12}
0x10c4…10e4 Line {l1=0x1e, l2=»(*@@LUK EVT. ANDRE DATAFILER*)«, l3=0x1e}
0x10e4…10f5 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x10f5…10fb Line {l1=0x04, l2=»END;«, l3=0x04}
0x10fb…1119 Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x1119…1129 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1129…1130 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1130…1180 Line {l1=0x4e, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4e}
0x1180…11c9 Line {l1=0x47, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x47}
0x11c9…1219 Line {l1=0x4e, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4e}
0x1219…1262 Line {l1=0x47, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES'); «, l3=0x47}
0x1262…129b Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x129b…12b7 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x12b7…12c6 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x12c6…12cc Line {l1=0x04, l2=»END;«, l3=0x04}
0x12cc…12d4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12d4…12dd Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x12dd…12ed Line {l1=0x0e, l2=»(*$IHLÆSDESC*)«, l3=0x0e}
0x12ed…12f5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12f5…1305 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x1305…130d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x130d…1316 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1316…132b Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x132b…134f Line {l1=0x22, l2=»VAR J,NØGLENR,HNR,HINDEKS:INTEGER;«, l3=0x22}
0x134f…1362 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x1362…1376 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x1376…1382 Line {l1=0x0a, l2=» NULPOST;«, l3=0x0a}
0x1382…13b0 Line {l1=0x2c, l2=» LÆSFELT(PICTURE(1));SKRIVFELT(PICTURE(1));«, l3=0x2c}
0x13b0…13c4 Line {l1=0x12, l2=» GETRECX(POST.A);«, l3=0x12}
0x13c4…13f4 Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A);«, l3=0x2e}
0x13f4…1405 Line {l1=0x0f, l2=» IF IER=0 THEN«, l3=0x0f}
0x1405…140e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x140e…141e Line {l1=0x0e, l2=» SKRIVPOST;«, l3=0x0e}
0x141e…142a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x142a…143f Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x143f…1475 Line {l1=0x34, l2=» IF POST.STDATO(1)=0 THEN CH:='J' ELSE CH:='N';«, l3=0x34}
0x1475…1497 Line {l1=0x20, l2=» WRITE('Rigtig post J/N ');«, l3=0x20}
0x1497…14a8 Line {l1=0x0f, l2=» EDIT(CH) «, l3=0x0f}
0x14a8…14d1 Line {l1=0x27, l2=» UNTIL CH(1) IN (.'J','N','j','n'.);«, l3=0x27}
0x14d1…14f4 Line {l1=0x21, l2=» IF CH(1) IN (.'N','n'.) THEN «, l3=0x21}
0x14f4…14ff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x14ff…1540 Line {l1=0x3f, l2=» GETREC(POST.A); (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x3f}
0x1540…1564 Line {l1=0x22, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x22}
0x1564…156d Line {l1=0x07, l2=» END«, l3=0x07}
0x156d…1577 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1577…1582 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1582…15b4 Line {l1=0x30, l2=» LÆSFELT(PICTURE(3));SKRIVFELT(PICTURE(3));«, l3=0x30}
0x15b4…15d0 Line {l1=0x1a, l2=» POST1.ONR:=POST.ONR;«, l3=0x1a}
0x15d0…15e5 Line {l1=0x13, l2=» POST1.DNR:=0;«, l3=0x13}
0x15e5…15fa Line {l1=0x13, l2=» POST1.FNR:=0;«, l3=0x13}
0x15fa…1614 Line {l1=0x18, l2=» NEXTRECX(POST1.A);«, l3=0x18}
0x1614…164b Line {l1=0x35, l2=» IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST1.A);«, l3=0x35}
0x164b…165a Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x165a…169e Line {l1=0x42, l2=» WHILE (IER=0) AND (POST1.ONR=POST.ONR) DO DELETEX(POST1.A); «, l3=0x42}
0x169e…16d6 Line {l1=0x36, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST1.A);«, l3=0x36}
0x16d6…1718 Line {l1=0x40, l2=» GETREC(POST1.A); (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x40}
0x1718…173e Line {l1=0x24, l2=» IF IER<>0 THEN ERROR(POST1.A);«, l3=0x24}
0x173e…175a Line {l1=0x1a, l2=» POST2.ONR:=POST.ONR;«, l3=0x1a}
0x175a…1770 Line {l1=0x14, l2=» POST2.OPNR:=0;«, l3=0x14}
0x1770…178a Line {l1=0x18, l2=» NEXTRECX(POST2.A);«, l3=0x18}
0x178a…17c1 Line {l1=0x35, l2=» IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST2.A);«, l3=0x35}
0x17c1…17d0 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x17d0…1814 Line {l1=0x42, l2=» WHILE (IER=0) AND (POST2.ONR=POST.ONR) DO DELETEX(POST2.A); «, l3=0x42}
0x1814…184c Line {l1=0x36, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST2.A);«, l3=0x36}
0x184c…188e Line {l1=0x40, l2=» GETREC(POST2.A); (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x40}
0x188e…18b4 Line {l1=0x24, l2=» IF IER<>0 THEN ERROR(POST2.A);«, l3=0x24}
0x18b4…18cb Line {l1=0x15, l2=» PUTREC(POST.A);«, l3=0x15}
0x18cb…18f0 Line {l1=0x23, l2=» IF IER<>0 THEN ERROR(POST.A) «, l3=0x23}
0x18f0…18f9 Line {l1=0x07, l2=» END«, l3=0x07}
0x18f9…1901 Line {l1=0x06, l2=» END «, l3=0x06}
0x1901…1909 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1909…1912 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1912…1925 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x1925…195a Line {l1=0x33, l2=» WRITE('Posten eksisterer ikke, RETURN ');READLN«, l3=0x33}
0x195a…1961 Line {l1=0x05, l2=» END«, l3=0x05}
0x1961…1967 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1967…196f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x196f…1982 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x1982…1992 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1992…19c2 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x19c2…19ce Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x19ce…1a05 Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x1a05…1a1a Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x1a1a…1a64 Line {l1=0x48, l2=» LINES:=100; (*$R-*)«, l3=0x48}
0x1a64…1a77 Line {l1=0x11, l2=» POST.A(-3):=10;«, l3=0x11}
0x1a77…1aa6 Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);«, l3=0x2d}
0x1aa6…1aba Line {l1=0x12, l2=» POST1.A(-3):=11;«, l3=0x12}
0x1aba…1aeb Line {l1=0x2f, l2=» IOPEN(POST1.A);IF IER<>0 THEN OFEJL(POST1.A);«, l3=0x2f}
0x1aeb…1aff Line {l1=0x12, l2=» POST2.A(-3):=12;«, l3=0x12}
0x1aff…1b4b Line {l1=0x4a, l2=» IOPEN(POST2.A);IF IER<>0 THEN OFEJL(POST2.A); (*$R+*)«, l3=0x4a}
0x1b4b…1b71 Line {l1=0x24, l2=»(*@@EVT. ÅBNING AF ANDRE DATAFILER*)«, l3=0x24}
0x1b71…1b7b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1b7b…1b8d Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1b8d…1ba1 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x1ba1…1bd2 Line {l1=0x2f, l2=» WRITELN('Afslutning af produktionsordrer');«, l3=0x2f}
0x1bd2…1be6 Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x1be6…1c07 Line {l1=0x1f, l2=» WRITE('Flere ordrer J/N ');«, l3=0x1f}
0x1c07…1c15 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1c15…1c24 Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x1c24…1c50 Line {l1=0x2a, l2=» IF CH(1) IN (.'J','j'.) THEN MAINTAIN «, l3=0x2a}
0x1c50…1c6f Line {l1=0x1d, l2=» UNTIL CH(1) IN (.'N','n'.);«, l3=0x1d}
0x1c6f…1c91 Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x1c91…1ca4 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x1ca4…1cb8 Line {l1=0x12, l2=» ICLOSE(POST1.A);«, l3=0x12}
0x1cb8…1ccc Line {l1=0x12, l2=» ICLOSE(POST2.A);«, l3=0x12}
0x1ccc…1cf3 Line {l1=0x25, l2=»(*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x25}
0x1cf3…1d03 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1d03…1d20 Line {l1=0x1b, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x1b}
0x1d20…1d26 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d26…1d2e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1d2e…1d35 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d35…1d4f Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x1d4f…1d67 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x1d67…1d7d Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x1d7d…1d8d Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x1d8d…1d96 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1d96…1db9 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x1db9…1dc5 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x1dc5…1e15 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x1e15…1e25 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x1e25…1e65 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x1e65…1eb5 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x1eb5…1ece Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x1ece…1ee8 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x1ee8…1f06 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x1f06…1f17 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x1f17…1f38 Line {l1=0x1f, l2=» DESCNAVN:='AFSLPROD:P2:05:J';«, l3=0x1f}
0x1f38…1f44 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x1f44…1f5c Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x1f5c…1f75 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x1f75…1f93 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x1f93…1fa8 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x1fa8…1fd0 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x1fd0…2006 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);«, l3=0x34}
0x2006…203b Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x203b…2041 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2041…2060 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccc┆
0x2060…2080 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x2080…20a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x20a0…20c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2180…21a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x21a0…21c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2280…22a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x22a0…22c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2380…23a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x23a0…23c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2480…24a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x24a0…24c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2580…25a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x25a0…25c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2680…26a0 c4 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x26a0…26c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]