|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »KUNDVEDL.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »KUNDVEDL.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »KUNDVEDL.K«
PROGRAM KUNDVEDL;
(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, HÆGTER OSV.*)
CONST LNGTH=20;
TIMER=120;
MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=3;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;
CLOCKRECORD = RECORD
DATE:PACKED ARRAY (1..10) OF CHAR;
TIME:PACKED ARRAY (1..8) OF CHAR
END;
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;
CLOCK:^CLOCKRECORD;
STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;
TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;
ALARMTIME:PACKED ARRAY (1..8) OF CHAR;
DBUF:DIRECTBUF;
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 BAD(IDENT,STATUS:INTEGER);
BEGIN
GOTOXY(1,23);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);
EXTERNAL;
FUNCTION AVAIL:BOOLEAN;
EXTERNAL;
FUNCTION NEXT:CHAR;
EXTERNAL;
PROCEDURE FINIS;
EXTERNAL;
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;
(*$L+*)
(*$IRESPRINT*)
(*$P*)
(*$IUR*)
(*$L-*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
(*$L+*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
(*@@*)
MAXPOST=80;
MAXHÆGTER=3;
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*)
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KUNDENR :LONGINT;
DATO :ARRAY (1..3) OF LONGINT;
POSTNR,
ARETUR,
AMANKO,
ABYTTE,
MBLACK,
MORDRE,
MKVALI :INTEGER;
SELECTKEY :ARRAY (1..10) OF INTEGER;
NAVN1,
NAVN2,
GADE :PACKED ARRAY (1..30) OF CHAR
END;
HPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER
END;
SYSPOST = RECORD
AA:ARAR;
A:AR;
AAA:RAR;
GEBYR :REAL;
DAGSDATO,
NKUNDENR,
NEKRAVSNR :LONGINT;
NR :INTEGER;
UDSEKODE :PACKED ARRAY (1..4) OF CHAR
END;
BYPOST = RECORD
AA:ARAR;
A:AR;
AAA:RAR;
POSTNR :INTEGER;
BYNAVN :PACKED ARRAY (1..30) OF CHAR
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:PPOST;
HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;
SYSTEM:SYSPOST;
BYFIL:BYPOST;
LONGNUL:LONGINT;
(*$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);
FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);
ICLOSE(SYSTEM.A);
ICLOSE(BYFIL.A);
(*@@LUK EVT. ANDRE DATAFILER*)
EXIT(REGVEDL)
END;
(*$P*)
(*$L-*)
(*$IHLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR J,NØGLENR,HNR,HINDEKS:INTEGER;
HCHANGED,HÆGTSØG:BOOLEAN;
CH:STRING(1);
(*$P*)
(*$L-*)
(*$ISØGPOST*)
(*$P*)
(*$L+*)
PROCEDURE UDPÅLIST;
VAR CH:STRING(1);
AEKS,EKS:INTEGER;
BEGIN
REPEAT
CH:='E';
GOTOXY(1,23);
WRITE('Listeudskrift eller Etiketter, L/E ');EDIT(CH)
UNTIL CH(1) IN (.'L','E','l','e'.);
REPEAT
GOTOXY(1,23);WRITE(' ':79);
GOTOXY(1,23);
WRITELN('Antal poster, 0 for fortryd 1');
GOTOXY(29,23);
READLN;
IF EOLN THEN
BEGIN
SETIORESULT(0);J:=1
END
ELSE READ(J)
UNTIL (IORESULT=0) AND (J>=0);
IF J=0 THEN EXIT(UDPÅLIST);
IF CH(1) IN (.'L','l'.) THEN
BEGIN
REPEAT
IF (LINES+2+ANTALFELTER)>=72 THEN
BEGIN
IF LINES<>100 THEN PAGE(LIST);
WRITELN(LIST,REGNAVN,' UDSKRIFT');
WRITELN(LIST);
LINES:=2
END;
PRINTPOST;
J:=J-1;
WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;
NEXTREC(POST.A);
IF (IER=-2) AND (J>0) THEN IER:=0
UNTIL (J=0) OR (IER<>0);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A) ELSE IER:=0
END
ELSE
BEGIN
REPEAT
GOTOXY(1,23);WRITE(' ':79);
GOTOXY(1,23);
WRITE('Antal eksemplarer ');
READLN;READ(EKS)
UNTIL (IORESULT=0) AND (EKS>0) AND (EKS<20);
IOPEN(BYFIL.A);IF IER<>0 THEN ERROR(BYFIL.A);
REPEAT
BYFIL.POSTNR:=POST.POSTNR-1;
NEXTREC(BYFIL.A);IF NOT (-IER IN (.0,1,2.)) THEN ERROR(BYFIL.A);
AEKS:=0;
REPEAT
WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST,POST.KUNDENR(1)*10000.0+POST.KUNDENR(2):25:-2);
WRITELN(LIST,POST.NAVN1);
WRITELN(LIST,POST.NAVN2);
WRITELN(LIST,POST.GADE);
WRITELN(LIST,POST.POSTNR,' ',BYFIL.BYNAVN);
WRITELN(LIST);
WRITELN(LIST);
AEKS:=AEKS+1
UNTIL AEKS=EKS;
J:=J-1;
NEXTREC(POST.A);
IF (IER=-2) AND (J>0) THEN IER:=0
UNTIL (J=0) OR (IER<>0);
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(POST.A) ELSE IER:=0;
ICLOSE(BYFIL.A)
END
END;
(*$P*)
PROCEDURE SLETPOST;
BEGIN
GOTOXY(1,20);
CH:='J';
WRITELN('Sletning korrekt J/N');
GOTOXY(22,20);EDIT(CH);
IF CH='J' THEN
BEGIN
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
SÆTHÆGTE;
SÆTNØGLE
END;
DELETE(POST.A);
IF IER=-9 THEN
BEGIN
WRITELN('Eneste post, kan ikke slettes, RETURN');
READLN;
IER:=0
END
ELSE
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
IOPEN(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);
GETRECX(HÆGTEREC(HNR).A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);
DELETE(HÆGTEREC(HNR).A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);
IER:=0;
ICLOSE(HÆGTEREC(HNR).A)
END
END
ELSE GETREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
(*$P*)
PROCEDURE OPNNR;
BEGIN
SYSTEM.NR:=1;
GETRECX(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);
POST.KUNDENR:=SYSTEM.NKUNDENR;
IF SYSTEM.NKUNDENR(2)=9999 THEN
BEGIN
SYSTEM.NKUNDENR(2):=0;
SYSTEM.NKUNDENR(1):=SYSTEM.NKUNDENR(1)+1
END
ELSE SYSTEM.NKUNDENR(2):=SYSTEM.NKUNDENR(2)+1;
PUTREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A)
END;
(*$P*)
PROCEDURE OPRET;
BEGIN
NULPOST;
SKRIVPOST;
FOR J:=1 TO ANTALFELTER DO
BEGIN
IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN
BEGIN
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS
END;
LÆSFELT(PICTURE(J));
SKRIVFELT(PICTURE(J));
IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN USERNIVEAU:=HUSKNIV;
IF (J=1) AND (POST.KUNDENR=LONGNUL) THEN
BEGIN
OPNNR;
SKRIVFELT(PICTURE(1))
END
END;
USERNIVEAU:=HUSKNIV;
IF NOT FILEINIT THEN
BEGIN
FILEINIT:=TRUE;
REPEAT
GOTOXY(1,23);
WRITELN('ANTAL INITIALISERINGSPOSTER');
GOTOXY(30,23);
READLN;READ(IREC)
UNTIL (IORESULT=0) AND (IREC>0);
INITIATE(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
INSERT(POST.A);
IF IER<>0 THEN
IF IER=-7 THEN
BEGIN
WRITELN('Posten findes, RETURN');READLN
END
ELSE ERROR(POST.A)
ELSE (*@@EVT. INDSÆT/VEDL AF ANDRE POSTER*)
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
IOPEN(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);
SÆTHÆGTE;
SÆTNØGLE;
INSERT(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);
ICLOSE(HÆGTEREC(HNR).A)
END
END;
(*$P*)
BEGIN (*MAINTAIN*)
CLEARSCREEN;
IF OPTION<>4 THEN
BEGIN
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS;
NULPOST;
HÆGTSØG:=FALSE;
IF ANTALHÆGTER>0 THEN SØGPOST;
IF NOT HÆGTSØG THEN
BEGIN
J:=1;
LÆSFELT(NØGLER(J));
WHILE (J<ANTALNØGLER) AND NOT EOF DO
BEGIN
J:=J+1;
LÆSFELT(NØGLER(J))
END;
USERNIVEAU:=HUSKNIV;
IF OPTION IN (.1,5.) THEN
GETRECX(POST.A)
ELSE
GETREC(POST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(POST.A);
IF EOF THEN
BEGIN
IF IER=-6 THEN
BEGIN
IF OPTION IN (.1,5.) THEN
NEXTRECX(POST.A)
ELSE
NEXTREC(POST.A);
IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A)
END;
REPEAT
SKRIVPOST;
GOTOXY(1,23);
CH:='F';
WRITELN('Rigtig post R, Flere poster F, Stop S');
GOTOXY(39,23);
EDIT(CH);
IF CH(1) IN (.'f','r','s'.) THEN
CH(1):=CHR(ORD(CH(1))-32);
IF CH='F' THEN
BEGIN
IF OPTION IN (.1,5.) THEN
NEXTRECX(POST.A)
ELSE
NEXTREC(POST.A);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A)
END
UNTIL CH<>'F';
GOTOXY(1,23);WRITELN(' ':77);
IF (OPTION IN (.1,5.)) AND (CH<>'R') THEN GETREC(POST.A);
(*FOR AT FJERNE XCLUSIV-STATUS*)
IF OPTION=2 THEN CH:='S'
END
ELSE
BEGIN
IF IER=0 THEN
BEGIN
CH:='R';
SKRIVPOST
END
ELSE
BEGIN
CH:='S';
GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');
GOTOXY(28,23);READLN
END
END
END
END;
IF (OPTION=4) OR (CH='R') THEN
CASE OPTION OF
1: BEGIN
REPEAT
REPEAT
GOTOXY(1,23);
J:=0;
WRITELN('Feltnr, 0 for færdig ',J,' ':57);
GOTOXY(22,23);READLN;
IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);
IF J>0 THEN BEGIN (*@@EVT. BEHANDLING AF ANDRE POSTER*)
HNR:=0;
IF PICTURE(J)^.HÆGTE>0 THEN
BEGIN
REPEAT
HNR:=HNR+1
UNTIL PICTURE(J)^.HÆGTE=HÆGTER(HNR)^.HÆGTE;
SÆTHÆGTE;
END;
LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J));
HCHANGED:=FALSE;
IF HNR>0 THEN
BEGIN
CASE PICTURE(J)^.FELTTYPE OF (*$R-*)
HELTAL :HCHANGED:=(HÆGTEREC(HNR).A(1)<>
POST.A(PICTURE(J)^.INDEKS));
DOBBTAL:HCHANGED:=(
(HÆGTEREC(HNR).A(1)<>
POST.A(PICTURE(J)^.INDEKS)) OR
(HÆGTEREC(HNR).A(2)<>
POST.A(PICTURE(J)^.INDEKS+1)));
TEKST:FOR HINDEKS:=1 TO PICTURE(J)^.FORAN0 DO
IF HÆGTEREC(HNR).AA(HINDEKS)<>
POST.AA(PICTURE(J)^.INDEKS-1+HINDEKS)
THEN HCHANGED:=TRUE
END
END; (*$R+*)
IF HCHANGED THEN
BEGIN
IOPEN(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);
SÆTNØGLE;
GETRECX(HÆGTEREC(HNR).A);
IF IER=0 THEN DELETE(HÆGTEREC(HNR).A);
SÆTHÆGTE;
SÆTNØGLE;
INSERT(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);
ICLOSE(HÆGTEREC(HNR).A)
END
END
UNTIL J=0;
PUTREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
2: BEGIN GOTOXY(1,24);WRITE('Tryk RETURN ');READLN END;
3: UDPÅLIST;
4: OPRET;
5: SLETPOST
END
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
CLEARSCREEN;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
MODE:=3;(*SKRIV*)
LINES:=100; (*$R-*)
SYSTEM.A(-4):=0;
POST.A(-4):=0;
BYFIL.A(-4):=0;
BYFIL.A(-3):=4;
SYSTEM.A(-3):=1;
POST.A(-3):=FILNR; (*$R+*)
(*FOR I:=1 TO ANTALHÆGTER DO
BEGIN
IOPEN(HÆGTEREC(I).A);
IF IER<>0 THEN ERROR(HÆGTEREC(I).A)
END;*)
IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);
IOPEN(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN(REGNAVN,' R E G I S T E R - V E D L I G E H O L D E L S E');
GOTOXY(10,12);
WRITELN('0 Færdig');
WRITELN(' ':9,'1 Ændring');
WRITELN(' ':9,'2 Udskrift på skærm');
WRITELN(' ':9,'3 Udskrift på printer');
WRITELN(' ':9,'4 Oprettelse');
WRITELN(' ':9,'5 Sletning');
REPEAT
GOTOXY(10,19);
WRITELN('Vælg 0-5');
GOTOXY(21,19);UR;
OPTION:=SV
UNTIL (OPTION>=0) AND (OPTION<=5);
IF OPTION>0 THEN MAINTAIN
UNTIL OPTION=0;
IF LINES<>100 THEN PAGE(LIST);
ICLOSE(POST.A);
ICLOSE(SYSTEM.A);
(*FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);*)
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN
END;
(*$P*)
BEGIN
ALARM:=CLOCK^.DATE(9)='1';
IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);
HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;
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*)
(*$XA*)
FILNR:=5;
DESCNAVN:='KUNDDESC:P2:05:J';
(*$X-*)
(*$XB*)
FILNR:=14;
DESCNAVN:='KNUDDESC:P2:05:J';
(*$X-*)
(*$XC*)
FILNR:=15;
DESCNAVN:='KNUDDESC:P2:05:J';
(*$X-*)
REGNAVN:='Kunde';
IF RESPRINT THEN
REGVEDL;
FREEPR;
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 KUNDVEDL;«, l3=0x11}
0x0013…0056 Line {l1=0x41, l2=»(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, HÆGTER OSV.*)«, l3=0x41}
0x0056…0067 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0067…0079 Line {l1=0x10, l2=» TIMER=120;«, l3=0x10}
0x0079…0091 Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x0091…0099 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0099…00ad Line {l1=0x12, l2=» PROGRAMNR=3;«, l3=0x12}
0x00ad…00b3 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00b3…00dc Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00dc…0108 Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x0108…011e Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x011e…0151 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x0151…0182 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0182…0196 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0196…01e1 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x01e1…01f9 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x01f9…0244 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0244…0258 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0258…026e Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x026e…0282 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0282…02cb Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x02cb…031b Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x031b…0365 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0365…0376 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0376…0398 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x0398…03b7 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x03b7…03c6 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x03c6…03e5 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x03e5…03fe Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x03fe…041a Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x041a…044e Line {l1=0x32, l2=» STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x32}
0x044e…047a Line {l1=0x2a, l2=» TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x2a}
0x047a…04a9 Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x04a9…04c1 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x04c1…04dc Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x04dc…04f2 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x04f2…0508 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0508…0531 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0531…054a Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x054a…0575 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0575…058b Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x058b…05a5 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x05a5…05b6 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x05b6…05c9 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x05c9…05e2 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x05e2…05fa Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x05fa…0602 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0602…060b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x060b…0631 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0631…0638 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0638…0649 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x0649…066b Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x066b…0675 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x0675…067b Line {l1=0x04, l2=»END;«, l3=0x04}
0x067b…0683 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0683…06ba Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x06ba…06c5 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06c5…06de Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x06de…06e9 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06e9…06fe Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x06fe…0709 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0709…071b Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x071b…0726 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0726…075d Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x075d…0784 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0784…078f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x078f…07c7 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x07c7…07d2 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07d2…0806 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0806…083b Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x083b…0846 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0846…087d Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x087d…08a4 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x08a4…08af Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x08af…08e7 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x08e7…090e Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x090e…0919 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0919…094e Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x094e…0959 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0959…0962 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0962…0972 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x0972…097a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x097a…0984 Line {l1=0x08, l2=»(*$IUR*)«, l3=0x08}
0x0984…098d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x098d…0995 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0995…09a2 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x09a2…09b2 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x09b2…09ba Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09ba…09c3 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x09c3…09d7 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x09d7…09ec Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x09ec…0a00 Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x0a00…0a08 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0a08…0a1c Line {l1=0x12, l2=» MAXPOST=80; «, l3=0x12}
0x0a1c…0a30 Line {l1=0x12, l2=» MAXHÆGTER=3;«, l3=0x12}
0x0a30…0a44 Line {l1=0x12, l2=» MAXHPOST=20;«, l3=0x12}
0x0a44…0a57 Line {l1=0x11, l2=» MAXIDENT=9;«, l3=0x11}
0x0a57…0a5d Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0a5d…0a76 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0a76…0a87 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0a87…0a97 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0a97…0a9d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a9d…0ac1 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0ac1…0af2 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0af2…0b19 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0b19…0b31 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0b31…0b45 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0b45…0b5d Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0b5d…0b83 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0b83…0b91 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0b91…0bac Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0bac…0bd0 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0bd0…0be7 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0be7…0c08 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0c08…0c14 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0c14…0c20 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0c20…0c2b Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0c2b…0c3f Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0c3f…0c5a Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0c5a…0c72 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0c72…0c90 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0c90…0c9e Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0c9e…0cbf Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0cbf…0ce3 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0ce3…0d13 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0d13…0d36 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0d36…0d4a Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0d4a…0d50 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d50…0d77 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0d77…0d92 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0d92…0db6 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0db6…0de3 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0de3…0df1 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0df1…0e01 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0e01…0e0e Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0e0e…0e1e Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0e1e…0e3f Line {l1=0x1f, l2=» KUNDENR :LONGINT;«, l3=0x1f}
0x0e3f…0e70 Line {l1=0x2f, l2=» DATO :ARRAY (1..3) OF LONGINT;«, l3=0x2f}
0x0e70…0e7b Line {l1=0x09, l2=» POSTNR,«, l3=0x09}
0x0e7b…0e86 Line {l1=0x09, l2=» ARETUR,«, l3=0x09}
0x0e86…0e91 Line {l1=0x09, l2=» AMANKO,«, l3=0x09}
0x0e91…0e9c Line {l1=0x09, l2=» ABYTTE,«, l3=0x09}
0x0e9c…0ea7 Line {l1=0x09, l2=» MBLACK,«, l3=0x09}
0x0ea7…0eb2 Line {l1=0x09, l2=» MORDRE,«, l3=0x09}
0x0eb2…0ed3 Line {l1=0x1f, l2=» MKVALI :INTEGER;«, l3=0x1f}
0x0ed3…0f05 Line {l1=0x30, l2=» SELECTKEY :ARRAY (1..10) OF INTEGER;«, l3=0x30}
0x0f05…0f0f Line {l1=0x08, l2=» NAVN1,«, l3=0x08}
0x0f0f…0f19 Line {l1=0x08, l2=» NAVN2,«, l3=0x08}
0x0f19…0f4f Line {l1=0x34, l2=» GADE :PACKED ARRAY (1..30) OF CHAR «, l3=0x34}
0x0f4f…0f55 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f55…0f63 Line {l1=0x0c, l2=»HPOST=RECORD«, l3=0x0c}
0x0f63…0f73 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0f73…0f80 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0f80…0f90 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0f90…0fc0 Line {l1=0x2e, l2=» CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER«, l3=0x2e}
0x0fc0…0fc6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fc6…0fd8 Line {l1=0x10, l2=»SYSPOST = RECORD«, l3=0x10}
0x0fd8…0fe4 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0fe4…0fed Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0fed…0ff9 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0ff9…1017 Line {l1=0x1c, l2=» GEBYR :REAL;«, l3=0x1c}
0x1017…1024 Line {l1=0x0b, l2=» DAGSDATO,«, l3=0x0b}
0x1024…1031 Line {l1=0x0b, l2=» NKUNDENR,«, l3=0x0b}
0x1031…1052 Line {l1=0x1f, l2=» NEKRAVSNR :LONGINT;«, l3=0x1f}
0x1052…1073 Line {l1=0x1f, l2=» NR :INTEGER;«, l3=0x1f}
0x1073…10a7 Line {l1=0x32, l2=» UDSEKODE :PACKED ARRAY (1..4) OF CHAR«, l3=0x32}
0x10a7…10ad Line {l1=0x04, l2=»END;«, l3=0x04}
0x10ad…10bf Line {l1=0x10, l2=»BYPOST = RECORD«, l3=0x10}
0x10bf…10cb Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x10cb…10d4 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x10d4…10e0 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x10e0…1101 Line {l1=0x1f, l2=» POSTNR :INTEGER;«, l3=0x1f}
0x1101…1136 Line {l1=0x33, l2=» BYNAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x33}
0x1136…113c Line {l1=0x04, l2=»END;«, l3=0x04}
0x113c…114d Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x114d…1162 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1162…118e Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x118e…11b9 Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x11b9…11e4 Line {l1=0x29, l2=» HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;«, l3=0x29}
0x11e4…120d Line {l1=0x27, l2=» IDENT:ARRAY (1..MAXIDENT) OF NFELT;«, l3=0x27}
0x120d…121e Line {l1=0x0f, l2=» ANTALIDENT,«, l3=0x0f}
0x121e…1261 Line {l1=0x41, l2=» LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;«, l3=0x41}
0x1261…1273 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1273…1284 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x1284…12b1 Line {l1=0x2b, l2=» HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;«, l3=0x2b}
0x12b1…12c6 Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x12c6…12d9 Line {l1=0x11, l2=» BYFIL:BYPOST;«, l3=0x11}
0x12d9…12ef Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x12ef…12f7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12f7…1315 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x1315…1328 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1328…1338 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x1338…133f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x133f…138f Line {l1=0x4e, l2=» IF LINES>0 THEN PAGE(LIST); (*$R-*)«, l3=0x4e}
0x138f…13df Line {l1=0x4e, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4e}
0x13df…13f4 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x13f4…1407 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x1407…143c Line {l1=0x33, l2=» FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);«, l3=0x33}
0x143c…1451 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x1451…1465 Line {l1=0x12, l2=» ICLOSE(BYFIL.A);«, l3=0x12}
0x1465…1485 Line {l1=0x1e, l2=»(*@@LUK EVT. ANDRE DATAFILER*)«, l3=0x1e}
0x1485…1496 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1496…149c Line {l1=0x04, l2=»END;«, l3=0x04}
0x149c…14a4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14a4…14ad Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x14ad…14bd Line {l1=0x0e, l2=»(*$IHLÆSDESC*)«, l3=0x0e}
0x14bd…14c5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14c5…14d5 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x14d5…14dd Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14dd…14e6 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x14e6…14fb Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x14fb…151f Line {l1=0x22, l2=»VAR J,NØGLENR,HNR,HINDEKS:INTEGER;«, l3=0x22}
0x151f…153e Line {l1=0x1d, l2=» HCHANGED,HÆGTSØG:BOOLEAN;«, l3=0x1d}
0x153e…1551 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x1551…1559 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1559…1562 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1562…1571 Line {l1=0x0d, l2=»(*$ISØGPOST*)«, l3=0x0d}
0x1571…1579 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1579…1582 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1582…1597 Line {l1=0x13, l2=»PROCEDURE UDPÅLIST;«, l3=0x13}
0x1597…15aa Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x15aa…15c1 Line {l1=0x15, l2=» AEKS,EKS:INTEGER;«, l3=0x15}
0x15c1…15c8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x15c8…15d2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x15d2…15e0 Line {l1=0x0c, l2=» CH:='E';«, l3=0x0c}
0x15e0…15f3 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x15f3…162e Line {l1=0x39, l2=» WRITE('Listeudskrift eller Etiketter, L/E ');EDIT(CH)«, l3=0x39}
0x162e…1655 Line {l1=0x25, l2=» UNTIL CH(1) IN (.'L','E','l','e'.);«, l3=0x25}
0x1655…165f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x165f…1680 Line {l1=0x1f, l2=» GOTOXY(1,23);WRITE(' ':79);«, l3=0x1f}
0x1680…1693 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x1693…16c2 Line {l1=0x2d, l2=» WRITELN('Antal poster, 0 for fortryd 1');«, l3=0x2d}
0x16c2…16d6 Line {l1=0x12, l2=» GOTOXY(29,23);«, l3=0x12}
0x16d6…16e3 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x16e3…16f5 Line {l1=0x10, l2=» IF EOLN THEN«, l3=0x10}
0x16f5…1700 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1700…171b Line {l1=0x19, l2=» SETIORESULT(0);J:=1«, l3=0x19}
0x171b…1724 Line {l1=0x07, l2=» END«, l3=0x07}
0x1724…1736 Line {l1=0x10, l2=» ELSE READ(J)«, l3=0x10}
0x1736…1758 Line {l1=0x20, l2=» UNTIL (IORESULT=0) AND (J>=0);«, l3=0x20}
0x1758…1777 Line {l1=0x1d, l2=» IF J=0 THEN EXIT(UDPÅLIST);«, l3=0x1d}
0x1777…1797 Line {l1=0x1e, l2=» IF CH(1) IN (.'L','l'.) THEN«, l3=0x1e}
0x1797…17a0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17a0…17ac Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x17ac…17d5 Line {l1=0x27, l2=» IF (LINES+2+ANTALFELTER)>=72 THEN«, l3=0x27}
0x17d5…17e2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17e2…180a Line {l1=0x26, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x26}
0x180a…1836 Line {l1=0x2a, l2=» WRITELN(LIST,REGNAVN,' UDSKRIFT');«, l3=0x2a}
0x1836…184e Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x184e…1860 Line {l1=0x10, l2=» LINES:=2«, l3=0x10}
0x1860…186c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x186c…187e Line {l1=0x10, l2=» PRINTPOST;«, l3=0x10}
0x187e…188d Line {l1=0x0d, l2=» J:=J-1;«, l3=0x0d}
0x188d…18c0 Line {l1=0x31, l2=» WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;«, l3=0x31}
0x18c0…18d8 Line {l1=0x16, l2=» NEXTREC(POST.A);«, l3=0x16}
0x18d8…1901 Line {l1=0x27, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x27}
0x1901…191f Line {l1=0x1c, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x1c}
0x191f…1951 Line {l1=0x30, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x30}
0x1951…1973 Line {l1=0x20, l2=» ERROR(POST.A) ELSE IER:=0«, l3=0x20}
0x1973…197a Line {l1=0x05, l2=» END«, l3=0x05}
0x197a…1982 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1982…198b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x198b…1997 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1997…19ba Line {l1=0x21, l2=» GOTOXY(1,23);WRITE(' ':79);«, l3=0x21}
0x19ba…19cf Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x19cf…19f3 Line {l1=0x22, l2=» WRITE('Antal eksemplarer ');«, l3=0x22}
0x19f3…1a0b Line {l1=0x16, l2=» READLN;READ(EKS)«, l3=0x16}
0x1a0b…1a3d Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (EKS>0) AND (EKS<20);«, l3=0x30}
0x1a3d…1a70 Line {l1=0x31, l2=» IOPEN(BYFIL.A);IF IER<>0 THEN ERROR(BYFIL.A);«, l3=0x31}
0x1a70…1a7c Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1a7c…1aa0 Line {l1=0x22, l2=» BYFIL.POSTNR:=POST.POSTNR-1;«, l3=0x22}
0x1aa0…1ae8 Line {l1=0x46, l2=» NEXTREC(BYFIL.A);IF NOT (-IER IN (.0,1,2.)) THEN ERROR(BYFIL.A);«, l3=0x46}
0x1ae8…1afa Line {l1=0x10, l2=» AEKS:=0; «, l3=0x10}
0x1afa…1b08 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1b08…1b20 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
[…0x1…]
0x1b38…1b7e Line {l1=0x44, l2=» WRITELN(LIST,POST.KUNDENR(1)*10000.0+POST.KUNDENR(2):25:-2);«, l3=0x44}
0x1b7e…1ba1 Line {l1=0x21, l2=» WRITELN(LIST,POST.NAVN1);«, l3=0x21}
0x1ba1…1bc4 Line {l1=0x21, l2=» WRITELN(LIST,POST.NAVN2);«, l3=0x21}
0x1bc4…1be6 Line {l1=0x20, l2=» WRITELN(LIST,POST.GADE);«, l3=0x20}
0x1be6…1c1b Line {l1=0x33, l2=» WRITELN(LIST,POST.POSTNR,' ',BYFIL.BYNAVN);«, l3=0x33}
0x1c1b…1c33 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
[…0x1…]
0x1c4b…1c61 Line {l1=0x14, l2=» AEKS:=AEKS+1«, l3=0x14}
0x1c61…1c78 Line {l1=0x15, l2=» UNTIL AEKS=EKS;«, l3=0x15}
0x1c78…1c87 Line {l1=0x0d, l2=» J:=J-1;«, l3=0x0d}
0x1c87…1c9f Line {l1=0x16, l2=» NEXTREC(POST.A);«, l3=0x16}
0x1c9f…1cc8 Line {l1=0x27, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x27}
0x1cc8…1ce6 Line {l1=0x1c, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x1c}
0x1ce6…1d26 Line {l1=0x3e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(POST.A) ELSE IER:=0;«, l3=0x3e}
0x1d26…1d3b Line {l1=0x13, l2=» ICLOSE(BYFIL.A)«, l3=0x13}
0x1d3b…1d42 Line {l1=0x05, l2=» END«, l3=0x05}
0x1d42…1d48 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d48…1d50 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1d50…1d65 Line {l1=0x13, l2=»PROCEDURE SLETPOST;«, l3=0x13}
0x1d65…1d6c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d6c…1d88 Line {l1=0x1a, l2=» GOTOXY(1,20);«, l3=0x1a}
0x1d88…1d9f Line {l1=0x15, l2=» CH:='J';«, l3=0x15}
0x1d9f…1dce Line {l1=0x2d, l2=» WRITELN('Sletning korrekt J/N');«, l3=0x2d}
0x1dce…1df4 Line {l1=0x24, l2=» GOTOXY(22,20);EDIT(CH);«, l3=0x24}
0x1df4…1e11 Line {l1=0x1b, l2=» IF CH='J' THEN«, l3=0x1b}
0x1e11…1e25 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x1e25…1e52 Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x1e52…1e68 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1e68…1e84 Line {l1=0x1a, l2=» SÆTHÆGTE;«, l3=0x1a}
0x1e84…1e9f Line {l1=0x19, l2=» SÆTNØGLE«, l3=0x19}
0x1e9f…1eb4 Line {l1=0x13, l2=» END;«, l3=0x13}
0x1eb4…1ed4 Line {l1=0x1e, l2=» DELETE(POST.A);«, l3=0x1e}
0x1ed4…1ef3 Line {l1=0x1d, l2=» IF IER=-9 THEN«, l3=0x1d}
0x1ef3…1f09 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1f09…1f4d Line {l1=0x42, l2=» WRITELN('Eneste post, kan ikke slettes, RETURN');«, l3=0x42}
0x1f4d…1f67 Line {l1=0x18, l2=» READLN;«, l3=0x18}
0x1f67…1f80 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x1f80…1f95 Line {l1=0x13, l2=» END «, l3=0x13}
0x1f95…1faa Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x1faa…1fd7 Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x1fd7…1fed Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1fed…2017 Line {l1=0x28, l2=» IOPEN(HÆGTEREC(HNR).A);«, l3=0x28}
0x2017…2050 Line {l1=0x37, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x37}
0x2050…207c Line {l1=0x2a, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x2a}
0x207c…20c4 Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x20c4…20ef Line {l1=0x29, l2=» DELETE(HÆGTEREC(HNR).A);«, l3=0x29}
0x20ef…2137 Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x2137…2151 Line {l1=0x18, l2=» IER:=0;«, l3=0x18}
0x2151…217c Line {l1=0x29, l2=» ICLOSE(HÆGTEREC(HNR).A) «, l3=0x29}
0x217c…2190 Line {l1=0x12, l2=» END«, l3=0x12}
0x2190…21a2 Line {l1=0x10, l2=» END«, l3=0x10}
0x21a2…21c5 Line {l1=0x21, l2=» ELSE GETREC(POST.A);«, l3=0x21}
0x21c5…21f0 Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x21f0…21f6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x21f6…21ff Line {l1=0x07, l2=»(*$P*) «, l3=0x07}
0x21ff…2211 Line {l1=0x10, l2=»PROCEDURE OPNNR;«, l3=0x10}
0x2211…2218 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2218…2229 Line {l1=0x0f, l2=» SYSTEM.NR:=1;«, l3=0x0f}
0x2229…225e Line {l1=0x33, l2=» GETRECX(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);«, l3=0x33}
0x225e…2280 Line {l1=0x20, l2=» POST.KUNDENR:=SYSTEM.NKUNDENR;«, l3=0x20}
0x2280…22a3 Line {l1=0x21, l2=» IF SYSTEM.NKUNDENR(2)=9999 THEN«, l3=0x21}
0x22a3…22ac Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x22ac…22c8 Line {l1=0x1a, l2=» SYSTEM.NKUNDENR(2):=0;«, l3=0x1a}
0x22c8…22f6 Line {l1=0x2c, l2=» SYSTEM.NKUNDENR(1):=SYSTEM.NKUNDENR(1)+1«, l3=0x2c}
0x22f6…22fd Line {l1=0x05, l2=» END«, l3=0x05}
0x22fd…232f Line {l1=0x30, l2=» ELSE SYSTEM.NKUNDENR(2):=SYSTEM.NKUNDENR(2)+1;«, l3=0x30}
0x232f…2362 Line {l1=0x31, l2=» PUTREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A)«, l3=0x31}
0x2362…2368 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2368…2370 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2370…2382 Line {l1=0x10, l2=»PROCEDURE OPRET;«, l3=0x10}
0x2382…2389 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2389…2395 Line {l1=0x0a, l2=» NULPOST;«, l3=0x0a}
0x2395…23a3 Line {l1=0x0c, l2=» SKRIVPOST;«, l3=0x0c}
0x23a3…23c1 Line {l1=0x1c, l2=» FOR J:=1 TO ANTALFELTER DO«, l3=0x1c}
0x23c1…23ca Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23ca…23f7 Line {l1=0x2b, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN«, l3=0x2b}
0x23f7…2402 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2402…241f Line {l1=0x1b, l2=» HUSKNIV:=USERNIVEAU; «, l3=0x1b}
0x241f…243c Line {l1=0x1b, l2=» USERNIVEAU:=UMULIUS «, l3=0x1b}
0x243c…2446 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2446…2460 Line {l1=0x18, l2=» LÆSFELT(PICTURE(J));«, l3=0x18}
0x2460…247c Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(J));«, l3=0x1a}
0x247c…24be Line {l1=0x40, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN USERNIVEAU:=HUSKNIV;«, l3=0x40}
0x24be…24ed Line {l1=0x2d, l2=» IF (J=1) AND (POST.KUNDENR=LONGNUL) THEN «, l3=0x2d}
0x24ed…24f8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x24f8…2506 Line {l1=0x0c, l2=» OPNNR;«, l3=0x0c}
0x2506…2523 Line {l1=0x1b, l2=» SKRIVFELT(PICTURE(1))«, l3=0x1b}
0x2523…252c Line {l1=0x07, l2=» END«, l3=0x07}
0x252c…2534 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2534…254c Line {l1=0x16, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x16}
0x254c…2564 Line {l1=0x16, l2=» IF NOT FILEINIT THEN«, l3=0x16}
0x2564…256d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x256d…2582 Line {l1=0x13, l2=» FILEINIT:=TRUE;«, l3=0x13}
0x2582…258e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x258e…25bd Line {l1=0x2d, l2=» GOTOXY(1,23); «, l3=0x2d}
0x25bd…25ec Line {l1=0x2d, l2=» WRITELN('ANTAL INITIALISERINGSPOSTER');«, l3=0x2d}
0x25ec…261b Line {l1=0x2d, l2=» GOTOXY(30,23); «, l3=0x2d}
0x261b…264d Line {l1=0x30, l2=» READLN;READ(IREC) «, l3=0x30}
0x264d…2673 Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (IREC>0);«, l3=0x24}
0x2673…268a Line {l1=0x15, l2=» INITIATE(POST.A);«, l3=0x15}
0x268a…26ac Line {l1=0x20, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x20}
0x26ac…26b4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x26b4…26c7 Line {l1=0x11, l2=» INSERT(POST.A);«, l3=0x11}
0x26c7…26d9 Line {l1=0x10, l2=» IF IER<>0 THEN«, l3=0x10}
0x26d9…26eb Line {l1=0x10, l2=» IF IER=-7 THEN«, l3=0x10}
0x26eb…26f4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x26f4…2721 Line {l1=0x2b, l2=» WRITELN('Posten findes, RETURN');READLN«, l3=0x2b}
0x2721…2728 Line {l1=0x05, l2=» END«, l3=0x05}
0x2728…273e Line {l1=0x14, l2=» ELSE ERROR(POST.A)«, l3=0x14}
0x273e…276d Line {l1=0x2d, l2=» ELSE (*@@EVT. INDSÆT/VEDL AF ANDRE POSTER*)«, l3=0x2d}
0x276d…278e Line {l1=0x1f, l2=» FOR HNR:=1 TO ANTALHÆGTER DO «, l3=0x1f}
0x278e…2797 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2797…27b4 Line {l1=0x1b, l2=» IOPEN(HÆGTEREC(HNR).A);«, l3=0x1b}
0x27b4…27e0 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x2a}
0x27e0…27ef Line {l1=0x0d, l2=» SÆTHÆGTE;«, l3=0x0d}
0x27ef…27fe Line {l1=0x0d, l2=» SÆTNØGLE;«, l3=0x0d}
0x27fe…281c Line {l1=0x1c, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x1c}
0x281c…2848 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x2a}
0x2848…2866 Line {l1=0x1c, l2=» ICLOSE(HÆGTEREC(HNR).A) «, l3=0x1c}
0x2866…286d Line {l1=0x05, l2=» END«, l3=0x05}
0x286d…2873 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2873…287b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x287b…288f Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x288f…28a3 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x28a3…28bc Line {l1=0x17, l2=» IF OPTION<>4 THEN«, l3=0x17}
0x28bc…28c9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x28c9…28e7 Line {l1=0x1c, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x1c}
0x28e7…2905 Line {l1=0x1c, l2=» USERNIVEAU:=UMULIUS;«, l3=0x1c}
0x2905…2917 Line {l1=0x10, l2=» NULPOST;«, l3=0x10}
0x2917…2930 Line {l1=0x17, l2=» HÆGTSØG:=FALSE;«, l3=0x17}
0x2930…2958 Line {l1=0x26, l2=» IF ANTALHÆGTER>0 THEN SØGPOST;«, l3=0x26}
0x2958…2975 Line {l1=0x1b, l2=» IF NOT HÆGTSØG THEN«, l3=0x1b}
0x2975…2984 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2984…2995 Line {l1=0x0f, l2=» J:=1;«, l3=0x0f}
0x2995…29b4 Line {l1=0x1d, l2=» LÆSFELT(NØGLER(J));«, l3=0x1d}
0x29b4…29e4 Line {l1=0x2e, l2=» WHILE (J<ANTALNØGLER) AND NOT EOF DO«, l3=0x2e}
0x29e4…29f5 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x29f5…2a0a Line {l1=0x13, l2=» J:=J+1;«, l3=0x13}
0x2a0a…2a2a Line {l1=0x1e, l2=» LÆSFELT(NØGLER(J))«, l3=0x1e}
0x2a2a…2a3a Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2a3a…2a5a Line {l1=0x1e, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x1e}
0x2a5a…2a80 Line {l1=0x24, l2=» IF OPTION IN (.1,5.) THEN «, l3=0x24}
0x2a80…2a9e Line {l1=0x1c, l2=» GETRECX(POST.A) «, l3=0x1c}
0x2a9e…2aae Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2aae…2acb Line {l1=0x1b, l2=» GETREC(POST.A);«, l3=0x1b}
0x2acb…2b04 Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(POST.A);«, l3=0x37}
0x2b04…2b1b Line {l1=0x15, l2=» IF EOF THEN«, l3=0x15}
0x2b1b…2b2c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2b2c…2b48 Line {l1=0x1a, l2=» IF IER=-6 THEN«, l3=0x1a}
0x2b48…2b5b Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2b5b…2b84 Line {l1=0x27, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x27}
0x2b84…2ba7 Line {l1=0x21, l2=» NEXTRECX(POST.A) «, l3=0x21}
0x2ba7…2bbb Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x2bbb…2bdd Line {l1=0x20, l2=» NEXTREC(POST.A);«, l3=0x20}
0x2bdd…2c1a Line {l1=0x3b, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3b}
0x2c1a…2c39 Line {l1=0x1d, l2=» ERROR(POST.A)«, l3=0x1d}
0x2c39…2c4b Line {l1=0x10, l2=» END;«, l3=0x10}
0x2c4b…2c5f Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x2c5f…2c79 Line {l1=0x18, l2=» SKRIVPOST;«, l3=0x18}
0x2c79…2c96 Line {l1=0x1b, l2=» GOTOXY(1,23);«, l3=0x1b}
0x2c96…2cae Line {l1=0x16, l2=» CH:='F';«, l3=0x16}
0x2cae…2cef Line {l1=0x3f, l2=» WRITELN('Rigtig post R, Flere poster F, Stop S');«, l3=0x3f}
0x2cef…2d0d Line {l1=0x1c, l2=» GOTOXY(39,23);«, l3=0x1c}
0x2d0d…2d26 Line {l1=0x17, l2=» EDIT(CH);«, l3=0x17}
0x2d26…2d56 Line {l1=0x2e, l2=» IF CH(1) IN (.'f','r','s'.) THEN«, l3=0x2e}
0x2d56…2d83 Line {l1=0x2b, l2=» CH(1):=CHR(ORD(CH(1))-32);«, l3=0x2b}
0x2d83…2da1 Line {l1=0x1c, l2=» IF CH='F' THEN«, l3=0x1c}
0x2da1…2db6 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x2db6…2de1 Line {l1=0x29, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x29}
0x2de1…2e06 Line {l1=0x23, l2=» NEXTRECX(POST.A) «, l3=0x23}
0x2e06…2e1c Line {l1=0x14, l2=» ELSE«, l3=0x14}
0x2e1c…2e40 Line {l1=0x22, l2=» NEXTREC(POST.A);«, l3=0x22}
0x2e40…2e7e Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3c}
0x2e7e…2e9f Line {l1=0x1f, l2=» ERROR(POST.A)«, l3=0x1f}
0x2e9f…2eb2 Line {l1=0x11, l2=» END«, l3=0x11}
0x2eb2…2ece Line {l1=0x1a, l2=» UNTIL CH<>'F';«, l3=0x1a}
0x2ece…2ef9 Line {l1=0x29, l2=» GOTOXY(1,23);WRITELN(' ':77);«, l3=0x29}
0x2ef9…2f40 Line {l1=0x45, l2=» IF (OPTION IN (.1,5.)) AND (CH<>'R') THEN GETREC(POST.A);«, l3=0x45}
0x2f40…2f6e Line {l1=0x2c, l2=» (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x2c}
0x2f6e…2f94 Line {l1=0x24, l2=» IF OPTION=2 THEN CH:='S'«, l3=0x24}
0x2f94…2fa3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2fa3…2fb3 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2fb3…2fc4 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2fc4…2fdf Line {l1=0x19, l2=» IF IER=0 THEN«, l3=0x19}
0x2fdf…2ff2 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2ff2…300a Line {l1=0x16, l2=» CH:='R';«, l3=0x16}
0x300a…3023 Line {l1=0x17, l2=» SKRIVPOST«, l3=0x17}
0x3023…3034 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x3034…3046 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3046…3059 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x3059…3071 Line {l1=0x16, l2=» CH:='S';«, l3=0x16}
0x3071…30b4 Line {l1=0x41, l2=» GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');«, l3=0x41}
0x30b4…30d8 Line {l1=0x22, l2=» GOTOXY(28,23);READLN«, l3=0x22}
0x30d8…30e9 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x30e9…30f8 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x30f8…3105 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3105…3111 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3111…3137 Line {l1=0x24, l2=» IF (OPTION=4) OR (CH='R') THEN«, l3=0x24}
0x3137…314d Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x314d…315f Line {l1=0x10, l2=» 1: BEGIN«, l3=0x10}
0x315f…3174 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x3174…318b Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x318b…31ab Line {l1=0x1e, l2=» GOTOXY(1,23);«, l3=0x1e}
0x31ab…31c3 Line {l1=0x16, l2=» J:=0;«, l3=0x16}
0x31c3…3200 Line {l1=0x3b, l2=» WRITELN('Feltnr, 0 for færdig ',J,' ':57);«, l3=0x3b}
0x3200…3228 Line {l1=0x26, l2=» GOTOXY(22,23);READLN;«, l3=0x26}
0x3228…3265 Line {l1=0x3b, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)«, l3=0x3b}
0x3265…32a9 Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);«, l3=0x42}
0x32a9…32f4 Line {l1=0x49, l2=» IF J>0 THEN BEGIN (*@@EVT. BEHANDLING AF ANDRE POSTER*)«, l3=0x49}
0x32f4…331a Line {l1=0x24, l2=» HNR:=0;«, l3=0x24}
0x331a…3354 Line {l1=0x38, l2=» IF PICTURE(J)^.HÆGTE>0 THEN«, l3=0x38}
0x3354…3378 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x3378…339f Line {l1=0x25, l2=» REPEAT«, l3=0x25}
0x339f…33cc Line {l1=0x2b, l2=» HNR:=HNR+1«, l3=0x2b}
0x33cc…3418 Line {l1=0x4a, l2=» UNTIL PICTURE(J)^.HÆGTE=HÆGTER(HNR)^.HÆGTE;«, l3=0x4a}
0x3418…3443 Line {l1=0x29, l2=» SÆTHÆGTE; «, l3=0x29}
0x3443…3466 Line {l1=0x21, l2=» END;«, l3=0x21}
0x3466…34af Line {l1=0x47, l2=» LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J));«, l3=0x47}
0x34af…34de Line {l1=0x2d, l2=» HCHANGED:=FALSE;«, l3=0x2d}
0x34de…350a Line {l1=0x2a, l2=» IF HNR>0 THEN«, l3=0x2a}
0x350a…352e Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x352e…357d Line {l1=0x4d, l2=» CASE PICTURE(J)^.FELTTYPE OF (*$R-*)«, l3=0x4d}
0x357d…35c5 Line {l1=0x46, l2=» HELTAL :HCHANGED:=(HÆGTEREC(HNR).A(1)<>«, l3=0x46}
0x35c5…3613 Line {l1=0x4c, l2=» POST.A(PICTURE(J)^.INDEKS));«, l3=0x4c}
0x3613…3647 Line {l1=0x32, l2=» DOBBTAL:HCHANGED:=(«, l3=0x32}
0x3647…3687 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(1)<>«, l3=0x3e}
0x3687…36d3 Line {l1=0x4a, l2=» POST.A(PICTURE(J)^.INDEKS)) OR«, l3=0x4a}
0x36d3…3713 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(2)<>«, l3=0x3e}
0x3713…3760 Line {l1=0x4b, l2=» POST.A(PICTURE(J)^.INDEKS+1)));«, l3=0x4b}
0x3760…37ae Line {l1=0x4c, l2=» TEKST:FOR HINDEKS:=1 TO PICTURE(J)^.FORAN0 DO«, l3=0x4c}
0x37ae…37f5 Line {l1=0x45, l2=» IF HÆGTEREC(HNR).AA(HINDEKS)<>«, l3=0x45}
0x37f5…3844 Line {l1=0x4d, l2=» POST.AA(PICTURE(J)^.INDEKS-1+HINDEKS)«, l3=0x4d}
0x3844…3880 Line {l1=0x3a, l2=» THEN HCHANGED:=TRUE«, l3=0x3a}
0x3880…38a4 Line {l1=0x22, l2=» END«, l3=0x22}
0x38a4…38f3 Line {l1=0x4d, l2=» END; (*$R+*)«, l3=0x4d}
0x38f3…3922 Line {l1=0x2d, l2=» IF HCHANGED THEN«, l3=0x2d}
0x3922…3946 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x3946…397e Line {l1=0x36, l2=» IOPEN(HÆGTEREC(HNR).A);«, l3=0x36}
0x397e…39c5 Line {l1=0x45, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x45}
0x39c5…39f3 Line {l1=0x2c, l2=» SÆTNØGLE; «, l3=0x2c}
0x39f3…3a2d Line {l1=0x38, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x38}
0x3a2d…3a74 Line {l1=0x45, l2=» IF IER=0 THEN DELETE(HÆGTEREC(HNR).A);«, l3=0x45}
0x3a74…3a9e Line {l1=0x28, l2=» SÆTHÆGTE;«, l3=0x28}
0x3a9e…3ac8 Line {l1=0x28, l2=» SÆTNØGLE;«, l3=0x28}
0x3ac8…3b01 Line {l1=0x37, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x37}
0x3b01…3b48 Line {l1=0x45, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x45}
0x3b48…3b81 Line {l1=0x37, l2=» ICLOSE(HÆGTEREC(HNR).A) «, l3=0x37}
0x3b81…3ba3 Line {l1=0x20, l2=» END«, l3=0x20}
0x3ba3…3bc3 Line {l1=0x1e, l2=» END«, l3=0x1e}
0x3bc3…3bdc Line {l1=0x17, l2=» UNTIL J=0;«, l3=0x17}
0x3bdc…3bfa Line {l1=0x1c, l2=» PUTREC(POST.A);«, l3=0x1c}
0x3bfa…3c25 Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x3c25…3c36 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x3c36…3c77 Line {l1=0x3f, l2=» 2: BEGIN GOTOXY(1,24);WRITE('Tryk RETURN ');READLN END;«, l3=0x3f}
0x3c77…3c8d Line {l1=0x14, l2=» 3: UDPÅLIST;«, l3=0x14}
0x3c8d…3ca0 Line {l1=0x11, l2=» 4: OPRET;«, l3=0x11}
0x3ca0…3cb5 Line {l1=0x13, l2=» 5: SLETPOST«, l3=0x13}
0x3cb5…3cc0 Line {l1=0x09, l2=» END«, l3=0x09}
0x3cc0…3cc6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3cc6…3cce Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3cce…3ce1 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x3ce1…3cf3 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x3cf3…3d05 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x3d05…3d15 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3d15…3d45 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x3d45…3d51 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x3d51…3d88 Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x3d88…3d9d Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x3d9d…3ded Line {l1=0x4e, l2=» LINES:=100; (*$R-*)«, l3=0x4e}
0x3ded…3e01 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x3e01…3e13 Line {l1=0x10, l2=» POST.A(-4):=0;«, l3=0x10}
0x3e13…3e26 Line {l1=0x11, l2=» BYFIL.A(-4):=0;«, l3=0x11}
0x3e26…3e39 Line {l1=0x11, l2=» BYFIL.A(-3):=4;«, l3=0x11}
0x3e39…3e4d Line {l1=0x12, l2=» SYSTEM.A(-3):=1;«, l3=0x12}
0x3e4d…3e9d Line {l1=0x4e, l2=» POST.A(-3):=FILNR; (*$R+*)«, l3=0x4e}
0x3e9d…3ebb Line {l1=0x1c, l2=»(*FOR I:=1 TO ANTALHÆGTER DO«, l3=0x1c}
0x3ebb…3ec4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3ec4…3edf Line {l1=0x19, l2=» IOPEN(HÆGTEREC(I).A);«, l3=0x19}
0x3edf…3f08 Line {l1=0x27, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(I).A)«, l3=0x27}
0x3f08…3f12 Line {l1=0x08, l2=» END;*)«, l3=0x08}
0x3f12…3f41 Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x2d}
0x3f41…3f74 Line {l1=0x31, l2=» IOPEN(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);«, l3=0x31}
0x3f74…3fa0 Line {l1=0x2a, l2=»(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2a}
0x3fa0…3faa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3faa…3fbc Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x3fbc…3fd0 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x3fd0…401a Line {l1=0x48, l2=» WRITELN(REGNAVN,' R E G I S T E R - V E D L I G E H O L D E L S E');«, l3=0x48}
0x401a…402e Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x402e…4048 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x4048…4069 Line {l1=0x1f, l2=» WRITELN(' ':9,'1 Ændring');«, l3=0x1f}
0x4069…4094 Line {l1=0x29, l2=» WRITELN(' ':9,'2 Udskrift på skærm');«, l3=0x29}
0x4094…40c1 Line {l1=0x2b, l2=» WRITELN(' ':9,'3 Udskrift på printer');«, l3=0x2b}
0x40c1…40e5 Line {l1=0x22, l2=» WRITELN(' ':9,'4 Oprettelse');«, l3=0x22}
0x40e5…4107 Line {l1=0x20, l2=» WRITELN(' ':9,'5 Sletning');«, l3=0x20}
0x4107…4113 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x4113…4129 Line {l1=0x14, l2=» GOTOXY(10,19);«, l3=0x14}
0x4129…4145 Line {l1=0x1a, l2=» WRITELN('Vælg 0-5');«, l3=0x1a}
0x4145…415e Line {l1=0x17, l2=» GOTOXY(21,19);UR;«, l3=0x17}
0x415e…4170 Line {l1=0x10, l2=» OPTION:=SV«, l3=0x10}
0x4170…4198 Line {l1=0x26, l2=» UNTIL (OPTION>=0) AND (OPTION<=5);«, l3=0x26}
0x4198…41b8 Line {l1=0x1e, l2=» IF OPTION>0 THEN MAINTAIN «, l3=0x1e}
0x41b8…41cb Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x41cb…41ed Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x41ed…4200 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x4200…4215 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x4215…424c Line {l1=0x35, l2=»(*FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);*)«, l3=0x35}
0x424c…4273 Line {l1=0x25, l2=»(*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x25}
0x4273…4283 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x4283…4289 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4289…4291 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4291…4298 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4298…42b6 Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x42b6…42f6 Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x42f6…4324 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x4324…433e Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x433e…4356 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x4356…436c Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x436c…437c Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x437c…4385 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4385…43a8 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x43a8…43b4 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x43b4…4404 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x4404…4414 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x4414…4454 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x4454…44a4 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x44a4…44bd Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x44bd…44d7 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x44d7…44f5 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x44f5…4506 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x4506…4511 Line {l1=0x09, l2=» (*$XA*)«, l3=0x09}
0x4511…451e Line {l1=0x0b, l2=» FILNR:=5;«, l3=0x0b}
0x451e…453f Line {l1=0x1f, l2=» DESCNAVN:='KUNDDESC:P2:05:J';«, l3=0x1f}
0x453f…454a Line {l1=0x09, l2=» (*$X-*)«, l3=0x09}
0x454a…4555 Line {l1=0x09, l2=» (*$XB*)«, l3=0x09}
0x4555…4563 Line {l1=0x0c, l2=» FILNR:=14;«, l3=0x0c}
0x4563…4584 Line {l1=0x1f, l2=» DESCNAVN:='KNUDDESC:P2:05:J';«, l3=0x1f}
0x4584…458f Line {l1=0x09, l2=» (*$X-*)«, l3=0x09}
0x458f…459a Line {l1=0x09, l2=» (*$XC*)«, l3=0x09}
0x459a…45a8 Line {l1=0x0c, l2=» FILNR:=15;«, l3=0x0c}
0x45a8…45c9 Line {l1=0x1f, l2=» DESCNAVN:='KNUDDESC:P2:05:J';«, l3=0x1f}
0x45c9…45d4 Line {l1=0x09, l2=» (*$X-*)«, l3=0x09}
0x45d4…45e9 Line {l1=0x13, l2=» REGNAVN:='Kunde';«, l3=0x13}
0x45e9…45fd Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x45fd…460b Line {l1=0x0c, l2=» REGVEDL;«, l3=0x0c}
0x460b…4616 Line {l1=0x09, l2=» FREEPR;«, l3=0x09}
0x4616…462e Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x462e…4647 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x4647…4665 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x4665…467a Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x467a…46a2 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x46a2…46c4 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x46c4…46f9 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x46f9…46ff Line {l1=0x04, l2=»END.«, l3=0x04}
0x46ff…4700 00 ┆ ┆
0x4700…4720 00 06 28 2a 24 50 2a 29 06 13 50 52 4f 43 45 44 55 52 45 20 53 4b 52 49 56 54 4f 54 3b 13 0e 56 ┆ (*$P*) PROCEDURE SKRIVTOT; V┆
0x4720…4740 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 05 42 45 47 49 4e 05 11 20 20 4c 49 4e 45 53 3a 3d 4c ┆AR I:INTEGER; BEGIN LINES:=L┆
0x4740…4760 49 4e 45 53 2b 32 3b 11 16 20 20 49 46 20 44 45 56 49 43 45 3d 53 4b 5b 52 4d 20 54 48 45 4e 16 ┆INES+2; IF DEVICE=SKÆRM THEN ┆
0x4760…4780 07 20 20 42 45 47 49 4e 07 25 20 20 20 20 49 46 20 4c 49 4e 45 53 3c 32 35 20 54 48 45 4e 20 47 ┆ BEGIN % IF LINES<25 THEN G┆
0x4780…47a0 4f 54 4f 58 59 28 31 2c 4c 49 4e 45 53 29 3b 25 27 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆OTOXY(1,LINES);%' FOR I:=1 TO┆
0x47a0…47c0 20 38 20 44 4f 20 57 52 49 54 45 28 27 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 27 0c 20 20 20 20 57 52 ┆ 8 DO WRITE('--------');' WR┆
0x47c0…47e0 49 54 45 4c 4e 3b 0c 2a 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 ┆ITELN; * FOR I:=1 TO 8 DO WRI┆
0x47e0…4800 54 45 28 54 4f 54 53 55 4d 28 49 29 3a 38 3a 31 29 3b 2a 18 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆TE(TOTSUM(I):8:1);* WRITELN(┆
0x4800…4820 27 20 20 52 45 54 55 52 4e 27 29 3b 18 0b 20 20 20 20 52 45 41 44 4c 4e 20 0b 05 20 20 45 4e 44 ┆' RETURN'); READLN END┆
0x4820…4840 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 0f 20 20 20 20 57 52 49 54 45 28 4c 49 53 ┆ ELSE BEGIN WRITE(LIS┆
0x4840…4860 54 2c 0f 40 20 20 20 20 20 20 20 20 20 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T, @ '-----------------┆
0x4860…4880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4880…48a0 2d 27 29 3b 40 2c 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 ┆-');@, FOR I:=1 TO 8 DO WRITE┆
0x48a0…48c0 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 2c 12 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆(LIST,'--------');, WRITELN(┆
0x48c0…48e0 4c 49 53 54 29 3b 12 22 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 54 4f 54 41 4c 53 55 4d ┆LIST); " WRITE(LIST,'TOTALSUM┆
0x48e0…4900 27 2c 27 20 27 3a 34 32 29 3b 22 2f 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f ┆',' ':42);"/ FOR I:=1 TO 8 DO┆
0x4900…4920 20 57 52 49 54 45 28 4c 49 53 54 2c 54 4f 54 53 55 4d 28 49 29 3a 38 3a 31 29 3b 2f 12 20 20 20 ┆ WRITE(LIST,TOTSUM(I):8:1);/ ┆
0x4920…4940 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 12 18 20 20 20 20 57 48 49 4c 45 20 4c 49 4e 45 53 ┆ WRITELN(LIST); WHILE LINES┆
0x4940…4960 3c 53 49 44 45 4c 20 44 4f 18 09 20 20 20 20 42 45 47 49 4e 09 14 20 20 20 20 20 20 57 52 49 54 ┆<SIDEL DO BEGIN WRIT┆
0x4960…4980 45 4c 4e 28 4c 49 53 54 29 3b 14 14 20 20 20 20 20 20 4c 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 31 ┆ELN(LIST); LINES:=LINES+1┆
0x4980…49a0 14 07 20 20 20 20 45 4e 44 07 06 20 20 45 4e 44 3b 06 21 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆ END END; ! FOR I:=1 TO┆
0x49a0…49c0 20 38 20 44 4f 20 54 4f 54 53 55 4d 28 49 29 3a 3d 30 2e 30 21 04 45 4e 44 3b 04 06 28 2a 24 50 ┆ 8 DO TOTSUM(I):=0.0! END; (*$P┆
0x49c0…49e0 2a 29 06 13 50 52 4f 43 45 44 55 52 45 20 53 4b 52 49 56 53 55 4d 3b 13 0e 56 41 52 20 49 3a 49 ┆*) PROCEDURE SKRIVSUM; VAR I:I┆
0x49e0…4a00 4e 54 45 47 45 52 3b 0e 05 42 45 47 49 4e 05 3e 20 20 49 46 20 44 45 56 49 43 45 3d 50 52 49 4e ┆NTEGER; BEGIN > IF DEVICE=PRIN┆
0x4a00…4a20 54 20 54 48 45 4e 20 42 45 47 49 4e 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 4c 49 4e 45 53 ┆T THEN BEGIN WRITELN(LIST);LINES┆
0x4a20…4a40 3a 3d 4c 49 4e 45 53 2b 31 20 45 4e 44 3b 3e 11 20 20 4c 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 32 ┆:=LINES+1 END;> LINES:=LINES+2┆
0x4a40…4a60 3b 11 16 20 20 49 46 20 44 45 56 49 43 45 3d 53 4b 5b 52 4d 20 54 48 45 4e 16 07 20 20 42 45 47 ┆; IF DEVICE=SKÆRM THEN BEG┆
0x4a60…4a80 49 4e 07 27 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 28 27 ┆IN ' FOR I:=1 TO 8 DO WRITE('┆
0x4a80…4aa0 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 27 0c 20 20 20 20 57 52 49 54 45 4c 4e 3b 0c 27 20 20 20 20 46 ┆--------');' WRITELN; ' F┆
0x4aa0…4ac0 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 28 53 55 4d 28 49 29 3a 38 3a 31 ┆OR I:=1 TO 8 DO WRITE(SUM(I):8:1┆
0x4ac0…4ae0 29 3b 27 18 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 20 52 45 54 55 52 4e 27 29 3b 18 0b 20 20 ┆);' WRITELN(' RETURN'); ┆
0x4ae0…4b00 20 20 52 45 41 44 4c 4e 20 0b 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 ┆ READLN END ELSE BEGI┆
0x4b00…4b20 4e 07 0f 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 0f 40 20 20 20 20 20 20 20 20 20 20 27 2d ┆N WRITE(LIST, @ '-┆
0x4b20…4b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4b40…4b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 40 2c 20 20 20 20 46 4f 52 20 49 3a ┆-----------------');@, FOR I:┆
0x4b60…4b80 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 27 ┆=1 TO 8 DO WRITE(LIST,'--------'┆
0x4b80…4ba0 29 3b 2c 12 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 12 1d 20 20 20 20 57 52 49 54 ┆);, WRITELN(LIST); WRIT┆
0x4ba0…4bc0 45 28 4c 49 53 54 2c 27 53 55 4d 27 2c 27 20 27 3a 34 37 29 3b 1d 2c 20 20 20 20 46 4f 52 20 49 ┆E(LIST,'SUM',' ':47); , FOR I┆
0x4bc0…4be0 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 28 4c 49 53 54 2c 53 55 4d 28 49 29 3a 38 3a ┆:=1 TO 8 DO WRITE(LIST,SUM(I):8:┆
0x4be0…4c00 31 29 3b 2c 12 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 20 12 06 20 20 45 4e 44 3b 06 ┆1);, WRITELN(LIST) END; ┆
0x4c00…4c20 12 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 12 07 20 20 42 45 47 49 4e 07 20 20 20 ┆ FOR I:=1 TO 8 DO BEGIN ┆
0x4c20…4c40 20 20 54 4f 54 53 55 4d 28 49 29 3a 3d 54 4f 54 53 55 4d 28 49 29 2b 53 55 4d 28 49 29 3b 20 0f ┆ TOTSUM(I):=TOTSUM(I)+SUM(I); ┆
0x4c40…4c60 20 20 20 20 53 55 4d 28 49 29 3a 3d 30 2e 30 0f 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a ┆ SUM(I):=0.0 END END; (*┆
0x4c60…4c80 24 50 2a 29 06 15 50 52 4f 43 45 44 55 52 45 20 53 4b 52 49 56 4c 49 4e 49 45 3b 15 05 42 45 47 ┆$P*) PROCEDURE SKRIVLINIE; BEG┆
0x4c80…4ca0 49 4e 05 1b 20 20 55 4e 44 45 52 4e 52 2e 4e 52 3a 3d 48 4f 56 45 44 55 4e 44 2e 55 4e 52 3b 1b ┆IN UNDERNR.NR:=HOVEDUND.UNR; ┆
0x4ca0…4cc0 1f 20 20 55 4e 44 45 52 4e 52 2e 46 4f 52 4b 3a 3d 48 4f 56 45 44 55 4e 44 2e 55 46 4f 52 4b 3b ┆ UNDERNR.FORK:=HOVEDUND.UFORK;┆
0x4cc0…4ce0 1f 43 20 20 47 45 54 52 45 43 28 55 4e 44 45 52 4e 52 2e 41 29 3b 49 46 20 4e 4f 54 20 28 2d 49 ┆ C GETREC(UNDERNR.A);IF NOT (-I┆
0x4ce0…4d00 45 52 20 49 4e 20 28 2e 30 2c 36 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 55 4e 44 45 52 4e ┆ER IN (.0,6.)) THEN ERROR(UNDERN┆
0x4d00…4d20 52 2e 41 29 3b 43 0f 20 20 49 46 20 49 45 52 3d 30 20 54 48 45 4e 0f 07 20 20 42 45 47 49 4e 07 ┆R.A);C IF IER=0 THEN BEGIN ┆
0x4d20…4d40 18 20 20 20 20 49 46 20 44 45 56 49 43 45 3d 53 4b 5b 52 4d 20 54 48 45 4e 18 09 20 20 20 20 42 ┆ IF DEVICE=SKÆRM THEN B┆
0x4d40…4d60 45 47 49 4e 09 43 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 3a 35 2c 55 4e 44 45 52 4e ┆EGIN C WRITELN(' ':5,UNDERN┆
0x4d60…4d80 52 2e 42 45 54 45 47 4e 2c 27 20 27 3a 34 2c 55 4e 44 45 52 4e 52 2e 46 4f 52 4b 2c 55 4e 44 45 ┆R.BETEGN,' ':4,UNDERNR.FORK,UNDE┆
0x4d80…4da0 52 4e 52 2e 4e 52 3a 33 2c 43 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 44 45 52 4e 52 ┆RNR.NR:3,C+ UNDERNR┆
0x4da0…4dc0 2e 4f 50 4e 52 3a 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 31 20 20 20 20 20 20 46 4f ┆.OPNR:5); +1 FO┆
0x4dc0…4de0 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 57 52 49 54 45 28 55 4e 44 45 52 4e 52 2e 54 49 44 ┆R I:=1 TO 8 DO WRITE(UNDERNR.TID┆
0x4de0…4e00 28 49 29 3a 38 3a 31 29 3b 31 0e 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0e 14 20 20 20 20 20 ┆(I):8:1);1 WRITELN; ┆
0x4e00…4e20 20 4c 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 31 14 07 20 20 20 20 45 4e 44 07 08 20 20 20 20 45 4c ┆ LINES:=LINES+1 END EL┆
0x4e20…4e40 53 45 08 09 20 20 20 20 42 45 47 49 4e 09 41 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c ┆SE BEGIN A WRITE(LIST,┆
0x4e40…4e60 55 4e 44 45 52 4e 52 2e 42 45 54 45 47 4e 2c 27 20 27 3a 34 2c 20 55 4e 44 45 52 4e 52 2e 46 4f ┆UNDERNR.BETEGN,' ':4, UNDERNR.FO┆
0x4e60…4e80 52 4b 2c 55 4e 44 45 52 4e 52 2e 4e 52 3a 33 2c 41 1c 20 20 20 20 20 20 20 20 20 20 20 20 55 4e ┆RK,UNDERNR.NR:3,A UN┆
0x4e80…4ea0 44 45 52 4e 52 2e 4f 50 4e 52 3a 35 29 3b 1c 36 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 ┆DERNR.OPNR:5); 6 FOR I:=1 T┆
0x4ea0…4ec0 4f 20 38 20 44 4f 20 57 52 49 54 45 28 4c 49 53 54 2c 55 4e 44 45 52 4e 52 2e 54 49 44 28 49 29 ┆O 8 DO WRITE(LIST,UNDERNR.TID(I)┆
0x4ec0…4ee0 3a 38 3a 31 29 3b 36 13 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 13 08 20 20 20 ┆:8:1);6 WRITELN(LIST) ┆
0x4ee0…4f00 20 45 4e 44 3b 08 33 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 53 55 4d 63 ┆ END; 3 FOR I:=1 TO 8 DO SUMc┆