|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »LIMPSPØR.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMPSPØR.K«
PROGRAM LIMPSPØR;
(*PRODUKTFORESPØRGSEL, OPRYDNING I EFTERKALKULATIONER*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
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,REGNAVN,DESCNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
(*$L-*)
PROCEDURE D(FRA,NR:INTEGER);
VAR I:INTEGER;
BEGIN
GOTOXY(1,FRA);
FOR I:=1 TO NR DO WRITELN(' ':79);
GOTOXY(1,FRA)
END;
PROCEDURE NONEXIST(S:STRING);
BEGIN
D(23,1);
WRITE(S,' findes ikke, RETURN ');
READLN;D(23,1)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D(23,1);
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;
(*$IRESPRINT*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
(*@@*)
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*)
(*$P*)
KUNDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR :LONGINT;
NAVN :PACKED ARRAY (1..26) OF CHAR;
KONTAKT1,
KONTAKT2,
KONTAKT3,
KONTAKT4 :PACKED ARRAY (1..30) OF CHAR
END;
EMNEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ÅRSFORBR,
NETTOVÆG,
BRUTTOVÆ,
SAMSALG,
DÆKBID,
DÆKBIDSÅ,
SAMSALGS :REAL;
NR,
FORMNR :INTEGER;
KUNDENR :LONGINT;
MASKINE :INTEGER;
TILDATO :LONGINT;
MATNR,
SVIND,
SMELTTIL,
STKHSA,
STKHBA :INTEGER;
BEMÆRK,
BETEGN,
ALTERNP :PACKED ARRAY (1..30) OF CHAR;
TEGNNR :PACKED ARRAY (1..20) OF CHAR
END;
EFTEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
BESANTAL,
LEVANTAL,
MATOMK,
LØNOMK,
MASKOMK,
SALGSPRI,
PLUSMINU :REAL;
EMNENR :INTEGER;
DATO :LONGINT;
ORDRENR :INTEGER
END;
SYSRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AKKTIME :ARRAY (1..9) OF REAL;
NR :INTEGER;
DAGSDATO,
PERSTDAT :LONGINT;
ARBTIMDA,
ORDRENR :INTEGER
END;
VAR FELT:NFELT;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
OPTION,LINES,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
KUNDE:KUNDPOST;
POST:EMNEPOST;
EFTE:EFTEPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
(*$P*)
(*$L-*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D(23,1);
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(KUNDE.A);
ICLOSE(POST.A);
ICLOSE(EFTE.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
(*$L-*)
(*$IRLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
ANTEFTE:INTEGER;
PROCEDURE PRODSPØRG;
BEGIN
WITH EFTE DO
BEGIN
LINES:=LINES+2;
WRITELN(LIST);
WRITELN(LIST,DATO(1)*10000.0+DATO(2):7:-2,ORDRENR:6,BESANTAL:12:-2,
LEVANTAL:12:-2,MATOMK:12:2,LØNOMK:12:2,MASKOMK:12:2,
MATOMK+LØNOMK+MASKOMK:12:2,SALGSPRI:12:2,PLUSMINU:12:2)
END
END;
PROCEDURE SPRODSPØRG;
BEGIN
WITH EFTE DO
BEGIN
WRITELN(DATO(1)*10000.0+DATO(2):7:-2,ORDRENR:6,BESANTAL:10:-2,
MATOMK:10:2,MASKOMK:10:2,
MATOMK+LØNOMK+MASKOMK:10:2,PLUSMINU:10:2);
WRITELN(' ':13,LEVANTAL:10:-2,LØNOMK:10:2,SALGSPRI:20:2)
END
END;
PROCEDURE HEADING;
BEGIN
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,'PRODUKTFORESPØRGSEL',
' ':11,'EMNENR', POST.NR:11,' ':47,' DATO',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',
' ':31,'kundenr');
WRITELN(LIST,POST.TEGNNR,' ':10,POST.BETEGN,' ':6
,KUNDE.NAVN
,KUNDE.NR(1)*10000.0+KUNDE.NR(2):17:-2);
WRITELN(LIST);
WRITELN(LIST,' DATO ORDNR BESANTAL LEVANTAL MATOMK',
' LØNOMK MASKOMK KOSTPRIS SALGSPRIS +/-');
LINES:=7
END;
PROCEDURE SHEADING;
BEGIN
CLEARSCREEN;
WRITELN('EMNE:',POST.NR:5,' ',POST.BETEGN,' KUNDE',
KUNDE.NR(1)*10000.0+KUNDE.NR(2):6:-2,' ',KUNDE.NAVN:22);
WRITELN(' DATO ORDNR BESANTAL MATOMK',
' MASKOMK KOSTPRIS +/-');
WRITELN(' LEVANTAL LØNOMK',
' SALGSPRI')
END;
(*$P*)
BEGIN (*MAINTAIN*)
REPEAT
CLEARSCREEN;
GOTOXY(1,20);
WRITELN('PRODUKTFORESPØRGSEL');
LÆSFELT(PICTURE(1));
IF POST.NR>0 THEN
BEGIN
SKRIVFELT(PICTURE(1));
GETREC(POST.A);
IF IER=-6 THEN
NONEXIST('Emnet')
ELSE
IF IER=0 THEN
BEGIN
CH:=QJN('Udskrift på printer');
KUNDE.NR:=POST.KUNDENR;
GETREC(KUNDE.A);CHECK0(KUNDE.A);
EFTE.EMNENR:=POST.NR;
EFTE.ORDRENR:=0;
EFTE.DATO:=LONGNUL;
LINES:=51;
IF CH IN JA THEN HEADING ELSE SHEADING;
ANTEFTE:=0;
NEXTREC(EFTE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(EFTE.A);IER:=0;
WHILE (IER=0) AND (EFTE.EMNENR=POST.NR) DO
BEGIN
ANTEFTE:=ANTEFTE+1;
IF CH IN JA THEN
PRODSPØRG
ELSE
SPRODSPØRG;
NEXTREC(EFTE.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(EFTE.A);
IF CH IN NEJ THEN BEGIN GOTOXY(1,24);WRITE('RETURN ');READLN END;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
IF ANTEFTE>10 THEN
BEGIN
EFTE.EMNENR:=POST.NR;
EFTE.ORDRENR:=0;
EFTE.DATO:=LONGNUL;
NEXTRECX(EFTE.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(EFTE.A);IER:=0;
WHILE ANTEFTE>10 DO
BEGIN
DELETEX(EFTE.A);CHECK0(EFTE.A);ANTEFTE:=ANTEFTE-1
END;
GETREC(EFTE.A);CHECK0(EFTE.A)
END
END
ELSE CHECK0(POST.A)
END
UNTIL POST.NR=0
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
CLEARSCREEN;
LÆSDESC;
MODE:=3;(*SKRIV*)
(*$R-*)
KUNDE.A(-4):=0;
POST.A(-4):=0;
SYSTEM.A(-4):=0;
EFTE.A(-4):=0;
KUNDE.A(-3):=1;
POST.A(-3):=2;
SYSTEM.A(-3):=9;
EFTE.A(-3):=17;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(SYSTEM.A); CHECK0(SYSTEM.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);CHECK0(SYSTEM.A);
ICLOSE(SYSTEM.A);
IOPEN(POST.A); CHECK0(POST.A);
IOPEN(KUNDE.A); CHECK0(KUNDE.A);
IOPEN(EFTE.A); CHECK0(EFTE.A);
MAINTAIN;
ICLOSE(POST.A);
ICLOSE(KUNDE.A);
ICLOSE(EFTE.A);
CLEARSCREEN
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:='PSPØPESC:P2:05:J';
IF RESPRINT THEN
BEGIN
REGVEDL;
FREEPR
END;
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('HOVED *1',FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LIMPSPØR;«, l3=0x11}
0x0013…004c Line {l1=0x37, l2=»(*PRODUKTFORESPØRGSEL, OPRYDNING I EFTERKALKULATIONER*)«, l3=0x37}
0x004c…0055 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0055…006d Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x006d…0075 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0075…0089 Line {l1=0x12, l2=» PROGRAMNR=8;«, l3=0x12}
0x0089…008f Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x008f…00b8 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00b8…0103 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0103…011b Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x011b…0166 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0166…017a Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x017a…0190 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0190…01a4 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01a4…01ed Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01ed…023d Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x023d…0287 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0287…0298 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0298…02ba Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02ba…02d9 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02d9…02e8 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02e8…0307 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0307…0320 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0320…033b Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x033b…0351 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0351…0367 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0367…0390 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0390…03a9 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x03a9…03d4 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03d4…03ea Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03ea…0404 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0404…0415 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0415…0428 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0428…0441 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0441…0459 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0459…0461 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0461…046a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x046a…0488 Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x0488…0498 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0498…049f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x049f…04b1 Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x04b1…04d7 Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x04d7…04e8 Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x04e8…04ee Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ee…050d Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x050d…0514 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0514…0520 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0520…0545 Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x0545…0558 Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x0558…055e Line {l1=0x04, l2=»END;«, l3=0x04}
0x055e…0584 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0584…058b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x058b…0597 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0597…05b9 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x05b9…05c3 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x05c3…05c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05c9…05d1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05d1…0608 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0608…062f Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x062f…063a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x063a…0672 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0672…067d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x067d…06b1 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x06b1…06e6 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x06e6…06f1 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06f1…0728 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0728…074f Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x074f…075a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x075a…0792 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x0792…07b9 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x07b9…07c4 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07c4…07f9 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x07f9…0804 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0804…0814 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x0814…081c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x081c…0829 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0829…0839 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0839…0841 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0841…0855 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0855…086a Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x086a…0872 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0872…0878 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0878…0891 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0891…08a2 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x08a2…08b2 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x08b2…08b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08b8…08dc Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08dc…090d Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x090d…0934 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0934…094c Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x094c…0960 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0960…0978 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0978…099e Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x099e…09ac Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x09ac…09c7 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09c7…09eb Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x09eb…0a02 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0a02…0a23 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a23…0a2f Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a2f…0a3b Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a3b…0a46 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a46…0a5a Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a5a…0a75 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a75…0a8d Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0a8d…0aab Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0aab…0ab9 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0ab9…0ada Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0ada…0afe Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0afe…0b2e Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b2e…0b51 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b51…0b65 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b65…0b6b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b6b…0b92 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0b92…0bad Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0bad…0bd1 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0bd1…0bfe Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0bfe…0c06 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c06…0c17 Line {l1=0x0f, l2=»KUNDPOST=RECORD«, l3=0x0f}
0x0c17…0c23 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0c23…0c2c Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0c2c…0c38 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c38…0c58 Line {l1=0x1e, l2=» NR :LONGINT;«, l3=0x1e}
0x0c58…0c8d Line {l1=0x33, l2=» NAVN :PACKED ARRAY (1..26) OF CHAR;«, l3=0x33}
0x0c8d…0c9a Line {l1=0x0b, l2=» KONTAKT1,«, l3=0x0b}
0x0c9a…0ca7 Line {l1=0x0b, l2=» KONTAKT2,«, l3=0x0b}
0x0ca7…0cb4 Line {l1=0x0b, l2=» KONTAKT3,«, l3=0x0b}
0x0cb4…0ce8 Line {l1=0x32, l2=» KONTAKT4 :PACKED ARRAY (1..30) OF CHAR«, l3=0x32}
0x0ce8…0cee Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cee…0cff Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x0cff…0d0b Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0d0b…0d14 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0d14…0d20 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0d20…0d2d Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x0d2d…0d3a Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x0d3a…0d47 Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x0d47…0d53 Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x0d53…0d5e Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x0d5e…0d6b Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x0d6b…0d87 Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x0d87…0d8e Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0d8e…0dad Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x0dad…0dcc Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x0dcc…0deb Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x0deb…0e0a Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x0e0a…0e14 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x0e14…0e1e Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x0e1e…0e2b Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x0e2b…0e36 Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x0e36…0e55 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x0e55…0e60 Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x0e60…0e6b Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x0e6b…0e9f Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x0e9f…0ed2 Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x0ed2…0ed8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ed8…0ee9 Line {l1=0x0f, l2=»EFTEPOST=RECORD«, l3=0x0f}
0x0ee9…0ef5 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0ef5…0efe Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0efe…0f0a Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0f0a…0f17 Line {l1=0x0b, l2=» BESANTAL,«, l3=0x0b}
0x0f17…0f24 Line {l1=0x0b, l2=» LEVANTAL,«, l3=0x0b}
0x0f24…0f2f Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x0f2f…0f3a Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x0f3a…0f46 Line {l1=0x0a, l2=» MASKOMK,«, l3=0x0a}
0x0f46…0f53 Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x0f53…0f6d Line {l1=0x18, l2=» PLUSMINU :REAL;«, l3=0x18}
0x0f6d…0f8a Line {l1=0x1b, l2=» EMNENR :INTEGER;«, l3=0x1b}
0x0f8a…0fa7 Line {l1=0x1b, l2=» DATO :LONGINT;«, l3=0x1b}
0x0fa7…0fc4 Line {l1=0x1b, l2=» ORDRENR :INTEGER «, l3=0x1b}
0x0fc4…0fca Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fca…0fdb Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x0fdb…0fe7 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0fe7…0ff0 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0ff0…0ffc Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0ffc…1027 Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x1027…1045 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x1045…1063 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x1063…1081 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x1081…1097 Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x1097…10b5 Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x10b5…10bb Line {l1=0x04, l2=»END;«, l3=0x04}
0x10bb…10cc Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x10cc…10f8 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x10f8…110b Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x110b…1129 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x1129…113b Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x113b…1150 Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x1150…1164 Line {l1=0x12, l2=» POST:EMNEPOST;«, l3=0x12}
0x1164…1178 Line {l1=0x12, l2=» EFTE:EFTEPOST;«, l3=0x12}
0x1178…118e Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x118e…11a4 Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x11a4…11b2 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x11b2…11d3 Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x11d3…11db Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x11db…11e4 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x11e4…1202 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x1202…1215 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1215…121c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x121c…1226 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1226…1234 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x1234…124b Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x124b…1259 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1259…1267 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x1267…1282 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x1282…1291 Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x1291…129d Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x129d…12a3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x12a3…12c1 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x12c1…12d4 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x12d4…12e4 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x12e4…12eb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12eb…12f7 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x12f7…1345 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x1345…1393 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x1393…13a8 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x13a8…13d8 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x13d8…13ec Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x13ec…13ff Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x13ff…1412 Line {l1=0x11, l2=» ICLOSE(EFTE.A);«, l3=0x11}
0x1412…1423 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1423…1429 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1429…1448 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x1448…144f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x144f…146c Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x146c…1472 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1472…147a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x147a…1483 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1483…1493 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x1493…149b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x149b…14ab Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x14ab…14b3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14b3…14bc Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x14bc…14d1 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x14d1…14df Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x14df…14f5 Line {l1=0x14, l2=» ANTEFTE:INTEGER;«, l3=0x14}
0x14f5…14f8 Line {l1=0x01, l2=» «, l3=0x01}
0x14f8…150e Line {l1=0x14, l2=»PROCEDURE PRODSPØRG;«, l3=0x14}
0x150e…1515 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1515…1525 Line {l1=0x0e, l2=» WITH EFTE DO«, l3=0x0e}
0x1525…152e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x152e…1543 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x1543…1557 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x1557…15a0 Line {l1=0x47, l2=» WRITELN(LIST,DATO(1)*10000.0+DATO(2):7:-2,ORDRENR:6,BESANTAL:12:-2,«, l3=0x47}
0x15a0…15e7 Line {l1=0x45, l2=» LEVANTAL:12:-2,MATOMK:12:2,LØNOMK:12:2,MASKOMK:12:2,«, l3=0x45}
0x15e7…1631 Line {l1=0x48, l2=» MATOMK+LØNOMK+MASKOMK:12:2,SALGSPRI:12:2,PLUSMINU:12:2)«, l3=0x48}
0x1631…1638 Line {l1=0x05, l2=» END«, l3=0x05}
0x1638…163e Line {l1=0x04, l2=»END;«, l3=0x04}
0x163e…1655 Line {l1=0x15, l2=»PROCEDURE SPRODSPØRG;«, l3=0x15}
0x1655…165c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x165c…166c Line {l1=0x0e, l2=» WITH EFTE DO«, l3=0x0e}
0x166c…1675 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1675…16b9 Line {l1=0x42, l2=» WRITELN(DATO(1)*10000.0+DATO(2):7:-2,ORDRENR:6,BESANTAL:10:-2,«, l3=0x42}
0x16b9…16e5 Line {l1=0x2a, l2=» MATOMK:10:2,MASKOMK:10:2,«, l3=0x2a}
0x16e5…1722 Line {l1=0x3b, l2=» MATOMK+LØNOMK+MASKOMK:10:2,PLUSMINU:10:2);«, l3=0x3b}
0x1722…1760 Line {l1=0x3c, l2=» WRITELN(' ':13,LEVANTAL:10:-2,LØNOMK:10:2,SALGSPRI:20:2)«, l3=0x3c}
0x1760…1767 Line {l1=0x05, l2=» END«, l3=0x05}
0x1767…176d Line {l1=0x04, l2=»END;«, l3=0x04}
0x176d…1770 Line {l1=0x01, l2=» «, l3=0x01}
0x1770…1784 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x1784…178b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x178b…17b2 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x17b2…17d9 Line {l1=0x25, l2=» WRITELN(LIST,'PRODUKTFORESPØRGSEL',«, l3=0x25}
0x17d9…1815 Line {l1=0x3a, l2=» ' ':11,'EMNENR', POST.NR:11,' ':47,' DATO',«, l3=0x3a}
0x1815…185b Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x185b…189a Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x189a…18bd Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x18bd…18f4 Line {l1=0x35, l2=» WRITELN(LIST,POST.TEGNNR,' ':10,POST.BETEGN,' ':6 «, l3=0x35}
0x18f4…190f Line {l1=0x19, l2=» ,KUNDE.NAVN«, l3=0x19}
0x190f…1947 Line {l1=0x36, l2=» ,KUNDE.NR(1)*10000.0+KUNDE.NR(2):17:-2);«, l3=0x36}
0x1947…1959 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x1959…19a1 Line {l1=0x46, l2=» WRITELN(LIST,' DATO ORDNR BESANTAL LEVANTAL MATOMK', «, l3=0x46}
0x19a1…19ea Line {l1=0x47, l2=» ' LØNOMK MASKOMK KOSTPRIS SALGSPRIS +/-');«, l3=0x47}
0x19ea…19f8 Line {l1=0x0c, l2=» LINES:=7 «, l3=0x0c}
0x19f8…19fe Line {l1=0x04, l2=»END;«, l3=0x04}
0x19fe…1a01 Line {l1=0x01, l2=» «, l3=0x01}
0x1a01…1a16 Line {l1=0x13, l2=»PROCEDURE SHEADING;«, l3=0x13}
0x1a16…1a1d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a1d…1a2d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1a2d…1a64 Line {l1=0x35, l2=» WRITELN('EMNE:',POST.NR:5,' ',POST.BETEGN,' KUNDE',«, l3=0x35}
0x1a64…1aa8 Line {l1=0x42, l2=» KUNDE.NR(1)*10000.0+KUNDE.NR(2):6:-2,' ',KUNDE.NAVN:22);«, l3=0x42}
0x1aa8…1ad8 Line {l1=0x2e, l2=» WRITELN(' DATO ORDNR BESANTAL MATOMK',«, l3=0x2e}
0x1ad8…1b0b Line {l1=0x31, l2=» ' MASKOMK KOSTPRIS +/-');«, l3=0x31}
0x1b0b…1b3b Line {l1=0x2e, l2=» WRITELN(' LEVANTAL LØNOMK',«, l3=0x2e}
0x1b3b…1b63 Line {l1=0x26, l2=» ' SALGSPRI')«, l3=0x26}
0x1b63…1b69 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b69…1b6c Line {l1=0x01, l2=» «, l3=0x01}
0x1b6c…1b74 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1b74…1b88 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x1b88…1b92 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1b92…1ba4 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1ba4…1bb7 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x1bb7…1bdc Line {l1=0x23, l2=» WRITELN('PRODUKTFORESPØRGSEL');«, l3=0x23}
0x1bdc…1bf6 Line {l1=0x18, l2=» LÆSFELT(PICTURE(1));«, l3=0x18}
0x1bf6…1c0d Line {l1=0x15, l2=» IF POST.NR>0 THEN«, l3=0x15}
0x1c0d…1c18 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1c18…1c36 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1c}
0x1c36…1c4d Line {l1=0x15, l2=» GETREC(POST.A);«, l3=0x15}
0x1c4d…1c63 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x1c63…1c7e Line {l1=0x19, l2=» NONEXIST('Emnet')«, l3=0x19}
0x1c7e…1c8a Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1c8a…1c9f Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1c9f…1cac Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1cac…1cd5 Line {l1=0x27, l2=» CH:=QJN('Udskrift på printer');«, l3=0x27}
0x1cd5…1cf6 Line {l1=0x1f, l2=» KUNDE.NR:=POST.KUNDENR;«, l3=0x1f}
0x1cf6…1d20 Line {l1=0x28, l2=» GETREC(KUNDE.A);CHECK0(KUNDE.A);«, l3=0x28}
0x1d20…1d3f Line {l1=0x1d, l2=» EFTE.EMNENR:=POST.NR;«, l3=0x1d}
0x1d3f…1d59 Line {l1=0x18, l2=» EFTE.ORDRENR:=0;«, l3=0x18}
0x1d59…1d76 Line {l1=0x1b, l2=» EFTE.DATO:=LONGNUL;«, l3=0x1b}
0x1d76…1d8a Line {l1=0x12, l2=» LINES:=51;«, l3=0x12}
0x1d8a…1dbb Line {l1=0x2f, l2=» IF CH IN JA THEN HEADING ELSE SHEADING;«, l3=0x2f}
0x1dbb…1dd0 Line {l1=0x13, l2=» ANTEFTE:=0;«, l3=0x13}
0x1dd0…1e1f Line {l1=0x4d, l2=» NEXTREC(EFTE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(EFTE.A);IER:=0;«, l3=0x4d}
0x1e1f…1e53 Line {l1=0x32, l2=» WHILE (IER=0) AND (EFTE.EMNENR=POST.NR) DO«, l3=0x32}
0x1e53…1e62 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1e62…1e81 Line {l1=0x1d, l2=» ANTEFTE:=ANTEFTE+1;«, l3=0x1d}
0x1e81…1e9d Line {l1=0x1a, l2=» IF CH IN JA THEN«, l3=0x1a}
0x1e9d…1eb4 Line {l1=0x15, l2=» PRODSPØRG«, l3=0x15}
0x1eb4…1ec4 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x1ec4…1edd Line {l1=0x17, l2=» SPRODSPØRG;«, l3=0x17}
0x1edd…1ef8 Line {l1=0x19, l2=» NEXTREC(EFTE.A)«, l3=0x19}
0x1ef8…1f06 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1f06…1f3e Line {l1=0x36, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(EFTE.A);«, l3=0x36}
0x1f3e…1f89 Line {l1=0x49, l2=» IF CH IN NEJ THEN BEGIN GOTOXY(1,24);WRITE('RETURN ');READLN END;«, l3=0x49}
0x1f89…1fcc Line {l1=0x41, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x41}
0x1fcc…1fe8 Line {l1=0x1a, l2=» IF ANTEFTE>10 THEN«, l3=0x1a}
0x1fe8…1ff7 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1ff7…2018 Line {l1=0x1f, l2=» EFTE.EMNENR:=POST.NR;«, l3=0x1f}
0x2018…2034 Line {l1=0x1a, l2=» EFTE.ORDRENR:=0;«, l3=0x1a}
0x2034…2053 Line {l1=0x1d, l2=» EFTE.DATO:=LONGNUL;«, l3=0x1d}
0x2053…208f Line {l1=0x3a, l2=» NEXTRECX(EFTE.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x3a}
0x208f…20c1 Line {l1=0x30, l2=» ERROR(EFTE.A);IER:=0;«, l3=0x30}
0x20c1…20e0 Line {l1=0x1d, l2=» WHILE ANTEFTE>10 DO«, l3=0x1d}
0x20e0…20f1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x20f1…2130 Line {l1=0x3d, l2=» DELETEX(EFTE.A);CHECK0(EFTE.A);ANTEFTE:=ANTEFTE-1«, l3=0x3d}
0x2130…2140 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2140…2169 Line {l1=0x27, l2=» GETREC(EFTE.A);CHECK0(EFTE.A)«, l3=0x27}
0x2169…2176 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2176…2181 Line {l1=0x09, l2=» END«, l3=0x09}
0x2181…219c Line {l1=0x19, l2=» ELSE CHECK0(POST.A)«, l3=0x19}
0x219c…21a5 Line {l1=0x07, l2=» END«, l3=0x07}
0x21a5…21b8 Line {l1=0x11, l2=» UNTIL POST.NR=0«, l3=0x11}
0x21b8…21be Line {l1=0x04, l2=»END;«, l3=0x04}
0x21be…21c6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x21c6…21d9 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x21d9…21eb Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x21eb…21fd Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x21fd…2211 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x2211…2226 Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x2226…223a Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x223a…224a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x224a…2256 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x2256…226b Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x226b…2276 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x2276…2289 Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0x2289…229f Line {l1=0x14, l2=» POST.A(-4):=0; «, l3=0x14}
0x229f…22b3 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x22b3…22c5 Line {l1=0x10, l2=» EFTE.A(-4):=0;«, l3=0x10}
0x22c5…22d8 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0x22d8…22ee Line {l1=0x14, l2=» POST.A(-3):=2; «, l3=0x14}
0x22ee…2302 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x2302…2315 Line {l1=0x11, l2=» EFTE.A(-3):=17;«, l3=0x11}
0x2315…2320 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x2320…234e Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x234e…2375 Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x2375…2386 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x2386…23ac Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x23ac…23c1 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x23c1…23ec Line {l1=0x29, l2=» IOPEN(POST.A); CHECK0(POST.A); «, l3=0x29}
0x23ec…2417 Line {l1=0x29, l2=» IOPEN(KUNDE.A); CHECK0(KUNDE.A); «, l3=0x29}
0x2417…2440 Line {l1=0x27, l2=» IOPEN(EFTE.A); CHECK0(EFTE.A); «, l3=0x27}
0x2440…244d Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x244d…2464 Line {l1=0x15, l2=» ICLOSE(POST.A); «, l3=0x15}
0x2464…247c Line {l1=0x16, l2=» ICLOSE(KUNDE.A); «, l3=0x16}
0x247c…248f Line {l1=0x11, l2=» ICLOSE(EFTE.A);«, l3=0x11}
0x248f…249f Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x249f…24a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x24a5…24ad Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x24ad…24b4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24b4…24ce Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x24ce…24e6 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x24e6…24fc Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x24fc…250c Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x250c…2515 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2515…2538 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x2538…2544 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x2544…2594 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x2594…25a4 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x25a4…25e4 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x25e4…2634 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x2634…264d Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x264d…2667 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x2667…2685 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x2685…2696 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x2696…26b7 Line {l1=0x1f, l2=» DESCNAVN:='PSPØPESC:P2:05:J';«, l3=0x1f}
0x26b7…26cb Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x26cb…26d4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x26d4…26e3 Line {l1=0x0d, l2=» REGVEDL; «, l3=0x0d}
0x26e3…26f0 Line {l1=0x0b, l2=» FREEPR «, l3=0x0b}
0x26f0…26f8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x26f8…2710 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x2710…2729 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x2729…2747 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x2747…275c Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x275c…2784 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x2784…27a6 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x27a6…27db Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x27db…27e1 Line {l1=0x04, l2=»END.«, l3=0x04}
0x27e1…2800 00 00 49 5a 45 3d 31 30 30 30 3b 16 06 28 2a 40 40 2a 29 06 12 20 20 20 20 20 20 50 52 4f 47 ┆ IZE=1000; (*@@*) PROG┆
0x2800…2820 52 41 4d 4e 52 3d 38 3b 12 04 54 59 50 45 04 27 50 41 52 4d 41 52 52 41 59 3d 50 41 43 4b 45 44 ┆RAMNR=8; TYPE 'PARMARRAY=PACKED┆
0x2820…2840 20 41 52 52 41 59 20 28 31 2e 2e 33 39 29 20 4f 46 20 43 48 41 52 3b 27 49 4e 49 56 45 41 55 3d ┆ ARRAY (1..39) OF CHAR;'INIVEAU=┆
0x2840…2860 28 4d 45 4e 49 47 2c 53 45 52 47 45 4e 54 2c 4c 5c 4a 54 4e 41 4e 54 2c 4b 41 50 54 41 4a 4e 2c ┆(MENIG,SERGENT,LØJTNANT,KAPTAJN,┆
0x2860…2880 4b 28 46 2c 4e 45 57 42 4c 4f 43 4b 2c 31 29 3b 1e 0f 20 20 20 20 20 20 49 45 52 3a 3d 4e 55 4d ┆K(F,NEWBLOCK,1); IER:=NUM┆
0x2880…28a0 3b 0f 11 20 20 20 20 20 20 42 4c 4b 45 4e 54 52 59 3a 3d 31 11 07 20 20 20 20 45 4e 44 07 08 20 ┆; BLKENTRY:=1 END ┆
0x28a0…28c0 20 20 20 45 4c 53 45 08 1f 20 20 20 20 20 20 42 4c 4b 45 4e 54 52 59 3a 3d 42 4c 4b 45 4e 54 52 ┆ ELSE BLKENTRY:=BLKENTR┆
0x28c0…28e0 59 2b 31 2b 49 45 52 3b 1f 25 20 20 20 20 4e 45 57 42 55 43 3a 3d 42 4c 4b 2b 28 42 4c 4b 45 4e ┆Y+1+IER; % NEWBUC:=BLK+(BLKEN┆
0x28e0…2900 54 52 59 2d 31 29 2a 52 45 43 53 49 5a 45 3b 25 2a 20 20 20 20 4d 4f 56 45 4c 45 46 54 28 5a 28 ┆TRY-1)*RECSIZE;%* MOVELEFT(Z(┆
0x2900…2920 4e 45 57 42 55 43 29 2c 52 45 43 5e 28 31 29 2c 32 2a 52 45 43 53 49 5a 45 29 20 2a 37 28 2a 20 ┆NEWBUC),REC^(1),2*RECSIZE) *7(* ┆
0x2920…2940 20 46 4f 52 20 4e 55 4d 3a 3d 31 20 54 4f 20 52 45 43 53 49 5a 45 20 44 4f 20 52 45 43 5e 28 4e ┆ FOR NUM:=1 TO RECSIZE DO REC^(N┆
0x2940…2960 55 4d 29 3a 3d 5a 28 4e 45 57 42 55 43 2b 4e 55 4d 29 2a 29 37 05 20 20 45 4e 44 05 1c 20 20 45 ┆UM):=Z(NEWBUC+NUM)*)7 END E┆
0x2960…2980 4c 53 45 20 49 45 52 3a 3d 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 1c 04 45 4e 44 3b 04 ┆LSE IER:=-12 ELSE IER:=-3 END; ┆
0x2980…29a0 00 00 3d 31 20 54 4f 20 52 45 43 53 49 5a 45 20 44 4f 20 52 45 43 5e 28 4e 55 4d 29 3a 3d 5a 28 ┆ =1 TO RECSIZE DO REC^(NUM):=Z(┆
0x29a0…29c0 4e 45 57 42 55 43 2b 4e 55 4d 29 35 05 20 20 45 4e 44 05 1c 20 20 45 4c 53 45 20 49 45 52 3a 3d ┆NEWBUC+NUM)5 END ELSE IER:=┆
0x29c0…29e0 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 1c 04 45 4e 44 3b 04 00 00 53 49 5a 45 2d 31 3b ┆-12 ELSE IER:=-3 END; SIZE-1;┆
0x29e0…2a00 27 35 20 20 20 20 46 4f 52 20 4e 55 4d 3a 3d 31 20 54 4f 20 52 45 43 53 49 5a 45 20 44 4f 20 52 ┆'5 FOR NUM:=1 TO RECSIZE DO R┆
0x2a00…2a20 45 43 5e 28 4e 55 4d 29 3a 3d 5a 28 4e 45 57 42 55 43 2b 4e 55 4d 29 35 05 20 20 45 4e 44 05 1c ┆EC^(NUM):=Z(NEWBUC+NUM)5 END ┆
0x2a20…2a40 20 20 45 4c 53 45 20 49 45 52 3a 3d 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 1c 04 45 4e ┆ ELSE IER:=-12 ELSE IER:=-3 EN┆
0x2a40…2a60 44 3b 04 00 00 2d 33 1c 04 45 4e 44 3b 04 00 00 2b 31 2b 49 45 52 3b 1f 01 20 01 27 20 20 20 20 ┆D; -3 END; +1+IER; ' ┆
0x2a60…2a80 4e 45 57 42 55 43 3a 3d 42 4c 4b 2b 28 42 4c 4b 45 4e 54 52 59 2d 31 29 2a 52 45 43 53 49 5a 45 ┆NEWBUC:=BLK+(BLKENTRY-1)*RECSIZE┆
0x2a80…2aa0 2d 31 3b 27 34 20 20 20 20 46 4f 52 20 4e 55 4d 3a 3d 31 20 54 4f 20 52 45 43 53 49 5a 45 20 44 ┆-1;'4 FOR NUM:=1 TO RECSIZE D┆
0x2aa0…2ac0 4f 20 52 45 43 28 4e 55 4d 29 3a 3d 5a 28 4e 45 57 42 55 43 2b 4e 55 4d 29 34 05 20 20 45 4e 44 ┆O REC(NUM):=Z(NEWBUC+NUM)4 END┆
0x2ac0…2ae0 05 1c 20 20 45 4c 53 45 20 49 45 52 3a 3d 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 1c 04 ┆ ELSE IER:=-12 ELSE IER:=-3 ┆
0x2ae0…2b00 45 4e 44 3b 04 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 ┆END; ┆
0x2b00…2b20 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 ┆ ┆
[…0x2…]
0x2b60…2b80 4c 49 53 54 45 47 45 4e 4b 41 0c 0a 00 2d 01 14 00 00 00 2d 01 14 00 00 00 fe 00 00 00 00 00 00 ┆LISTEGENKA - - ┆
0x2b80…2ba0 11 50 52 4f 47 52 41 4d 20 4c 49 53 54 45 47 45 4e 3b 11 11 43 4f 4e 53 54 20 4d 41 58 46 45 4c ┆ PROGRAM LISTEGEN; CONST MAXFEL┆
0x2ba0…2bc0 54 3d 33 30 3b 11 12 20 20 20 20 20 20 4d 41 58 46 49 4c 45 53 3d 32 30 3b 12 12 20 20 20 20 20 ┆T=30; MAXFILES=20; ┆
0x2bc0…2be0 20 4e 55 4c 52 45 41 4c 3d 31 2e 30 3b 12 1d 20 20 20 20 20 20 4e 55 4c 49 4e 54 3d 34 31 3b 20 ┆ NULREAL=1.0; NULINT=41; ┆
0x2be0…2c00 28 2a 31 30 20 52 45 41 4c 53 2a 29 1d 2d 20 20 20 20 20 20 4e 55 4c 43 48 41 52 3d 31 30 31 3b ┆(*10 REALS*) - NULCHAR=101;┆
0x2c00…2c20 20 28 2a 31 30 20 49 4e 54 45 47 45 52 53 2c 20 34 30 30 20 43 48 41 52 53 2a 29 2d 04 54 59 50 ┆ (*10 INTEGERS, 400 CHARS*)- TYP┆
0x2c20…2c40 45 04 27 50 41 52 4d 41 52 52 41 59 3d 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 39 ┆E 'PARMARRAY=PACKED ARRAY (1..39┆
0x2c40…2c60 29 20 4f 46 20 43 48 41 52 3b 27 49 4e 49 56 45 41 55 3d 28 4d 45 4e 49 47 2c 53 45 52 47 45 4e ┆) OF CHAR;'INIVEAU=(MENIG,SERGEN┆
0x2c60…2c80 54 2c 4c 5c 4a 54 4e 41 4e 54 2c 4b 41 50 54 41 4a 4e 2c 4d 41 4a 4f 52 2c 4f 42 45 52 53 54 2c ┆T,LØJTNANT,KAPTAJN,MAJOR,OBERST,┆
0x2c80…2ca0 47 45 4e 45 52 41 4c 2c 48 53 4d 2c 55 4d 55 4c 49 55 53 29 3b 49 1c 45 4c 45 4d 45 4e 54 3d 5e ┆GENERAL,HSM,UMULIUS);I ELEMENT=^┆
0x2ca0…2cc0 45 4c 45 4d 45 4e 54 42 45 53 4b 52 49 56 45 4c 53 45 3b 1c 0f 50 4f 53 49 54 49 4f 4e 3d 52 45 ┆ELEMENTBESKRIVELSE; POSITION=RE┆
0x2cc0…2ce0 43 4f 52 44 0f 0e 20 20 20 58 2c 59 3a 49 4e 54 45 47 45 52 0e 04 45 4e 44 3b 04 22 46 54 59 50 ┆CORD X,Y:INTEGER END; "FTYP┆
0x2ce0…2d00 45 3d 28 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c 2c 52 45 45 4c 2c 54 45 4b 53 54 29 3b 22 2f ┆E=(HELTAL,DOBBTAL,REEL,TEKST);"/┆
0x2d00…2d20 56 54 59 50 45 3d 28 48 49 4e 54 45 52 56 41 4c 2c 44 49 4e 54 45 52 56 41 4c 2c 52 49 4e 54 45 ┆VTYPE=(HINTERVAL,DINTERVAL,RINTE┆
0x2d20…2d40 52 56 41 4c 2c 44 41 54 4f 2c 43 50 52 29 3b 2f 4d 45 54 59 50 45 3d 28 4c 49 53 54 45 44 45 53 ┆RVAL,DATO,CPR);/METYPE=(LISTEDES┆
0x2d40…2d60 43 2c 50 49 43 54 55 52 45 2c 46 45 4c 54 2c 49 4e 44 4b 4f 4d 4d 41 4e 44 4f 2c 55 44 4b 4f 4d ┆C,PICTURE,FELT,INDKOMMANDO,UDKOM┆
0x2d60…2d80 4d 41 4e 44 4f 2c 56 41 4c 49 44 49 54 45 54 2c 47 45 4e 54 41 47 2c 42 45 52 45 47 4e 2c 4d 14 ┆MANDO,VALIDITET,GENTAG,BEREGN,M ┆
0x2d80…2da0 20 20 20 20 20 20 20 4e 5c 47 4c 45 2c 4b 53 4c 4f 50 29 3b 14 17 52 45 50 54 59 50 45 3d 28 52 ┆ NØGLE,KSLOP); REPTYPE=(R┆
0x2da0…2dc0 45 50 45 54 45 2c 57 41 49 4c 45 29 3b 17 23 46 41 43 54 54 59 50 3d 28 43 4f 4e 53 54 56 41 52 ┆EPETE,WAILE); #FACTTYP=(CONSTVAR┆
0x2dc0…2de0 2c 4c 50 45 58 50 52 50 2c 4e 4f 54 46 41 43 54 29 3b 23 42 53 59 4d 42 4f 4c 54 59 50 45 3d 28 ┆,LPEXPRP,NOTFACT);#BSYMBOLTYPE=(┆
0x2de0…2e00 50 45 52 49 4f 44 2c 45 51 4c 2c 4c 53 53 2c 47 54 52 2c 4e 45 51 2c 4c 45 51 2c 47 45 51 2c 4c ┆PERIOD,EQL,LSS,GTR,NEQ,LEQ,GEQ,L┆
0x2e00…2e20 50 41 52 45 4e 2c 52 50 41 52 45 4e 2c 4f 54 48 45 52 53 59 4d 2c 42 45 20 20 20 20 20 20 20 20 ┆PAREN,RPAREN,OTHERSYM,BE ┆
0x2e20…2e40 20 20 20 20 50 4c 55 53 2c 4d 49 4e 55 53 2c 4f 52 4f 50 2c 43 4f 4e 53 54 53 59 4d 2c 50 4f 53 ┆ PLUS,MINUS,OROP,CONSTSYM,POS┆
0x2e40…2e60 54 53 59 4d 2c 49 44 45 4e 54 53 59 4d 2c 4e 4f 54 4f 50 2c 54 45 4b 53 54 53 59 4d 2c 45 33 20 ┆TSYM,IDENTSYM,NOTOP,TEKSTSYM,E3 ┆
0x2e60…2e80 20 20 20 20 20 20 20 20 20 20 20 54 49 4d 45 53 2c 53 4c 41 53 48 2c 44 49 56 4f 50 2c 4d 4f 44 ┆ TIMES,SLASH,DIVOP,MOD┆
0x2e80…2ea0 4f 50 2c 41 4e 44 4f 50 2c 53 4c 55 54 53 59 4d 29 3b 33 2b 4b 53 4c 4f 50 54 59 50 45 3d 28 45 ┆OP,ANDOP,SLUTSYM);3+KSLOPTYPE=(E┆
0x2ea0…2ec0 58 50 52 45 53 53 49 4f 4e 2c 53 49 4d 50 4c 45 58 2c 54 45 52 4d 2c 46 41 43 54 4f 52 29 3b 2b ┆XPRESSION,SIMPLEX,TERM,FACTOR);+┆
0x2ec0…2ee0 19 45 4c 45 4d 45 4e 54 42 45 53 4b 52 49 56 45 4c 53 45 3d 52 45 43 4f 52 44 19 1c 20 20 20 4e ┆ ELEMENTBESKRIVELSE=RECORD N┆
0x2ee0…2f00 45 58 54 45 4c 45 4d 45 4e 54 20 20 20 20 20 3a 45 4c 45 4d 45 4e 54 3b 1c 1c 20 20 20 43 41 53 ┆EXTELEMENT :ELEMENT; CAS┆
0x2f00…2f20 45 20 45 4c 45 4d 45 4e 54 54 59 50 45 3a 45 54 59 50 45 20 4f 46 1c 0d 20 20 20 4c 49 53 54 45 ┆E ELEMENTTYPE:ETYPE OF LISTE┆
0x2f20…2f40 44 45 53 43 3a 0d 2e 20 20 20 20 20 28 46 49 4c 45 53 20 20 20 20 20 20 20 20 3a 41 52 52 41 59 ┆DESC: . (FILES :ARRAY┆
0x2f40…2f60 20 28 2e 31 2e 2e 38 2e 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 2e 1b 20 20 20 20 20 20 4c 49 4e ┆ (.1..8.) OF INTEGER;. LIN┆
0x2f60…2f80 45 53 50 50 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 1b 1f 20 20 20 20 20 20 20 20 20 20 20 20 ┆ESPP :INTEGER ┆
0x2f80…2fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 1f 0b 20 20 20 50 49 43 54 55 52 45 3a ┆ ); PICTURE:┆
0x2fa0…2fc0 0b 1d 20 20 20 20 20 28 50 49 43 54 50 4f 53 20 20 20 20 20 20 3a 50 4f 53 49 54 49 4f 4e 3b 1d ┆ (PICTPOS :POSITION; ┆
0x2fc0…2fe0 1c 20 20 20 20 20 20 46 5c 52 53 54 46 45 4c 54 20 20 20 20 3a 45 4c 45 4d 45 4e 54 3b 1c 1d 20 ┆ FØRSTFELT :ELEMENT; ┆
0x2fe0…3000 20 20 20 20 20 50 49 43 54 4e 41 56 4e 20 20 20 20 20 3a 53 54 52 49 4e 47 28 38 29 1d 1f 20 20 ┆ PICTNAVN :STRING(8) ┆
0x3000…3020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 1f 0f 20 ┆ ); ┆
0x3020…3040 20 20 49 4e 44 4b 4f 4d 4d 41 4e 44 4f 3a 0f 10 20 20 20 20 20 28 47 45 54 46 49 4c 52 45 46 2c ┆ INDKOMMANDO: (GETFILREF,┆
0x3040…3060 10 1c 20 20 20 20 20 20 47 45 54 4d 4f 44 45 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 3b 1c 1b ┆ GETMODE :INTEGER; ┆
0x3060…3080 20 20 20 20 20 20 46 5c 52 53 54 4e 5c 47 4c 20 20 20 20 3a 45 4c 45 4d 45 4e 54 1b 1f 20 20 20 ┆ FØRSTNØGL :ELEMENT ┆
0x3080…30a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 1f 0e 20 20 ┆ ); ┆
0x30a0…30c0 20 55 44 4b 4f 4d 4d 41 4e 44 4f 3a 0e 10 20 20 20 20 20 28 50 55 54 46 49 4c 52 45 46 2c 10 1b ┆ UDKOMMANDO: (PUTFILREF, ┆
0x30c0…30e0 20 20 20 20 20 20 50 55 54 4d 4f 44 45 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 1b 1f 20 20 20 ┆ PUTMODE :INTEGER ┆
0x30e0…3100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 3b 1f 09 20 20 ┆ ); ┆
0x3100…3120 20 4e 5c 47 4c 45 3a 09 1a 20 20 20 20 20 28 4e 5c 47 4c 45 54 59 50 45 20 20 20 20 3a 46 54 59 ┆ NØGLE: (NØGLETYPE :FTY┆
0x3120…3140 50 45 3b 1a 0f 20 20 20 20 20 20 4e 5c 47 4c 45 52 45 46 2c 0f 0e 20 20 20 20 20 20 50 49 4e 44 ┆PE; NØGLEREF, PIND┆
0x3140…3160 45 4b 53 2c 0e 1b 20 20 20 20 20 20 47 49 4e 44 45 4b 53 20 20 20 20 20 20 3a 49 4e 54 45 47 63 ┆EKS, GINDEKS :INTEGc┆