|
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: 25568 (0x63e0)
Types: TextFile
Notes: Mikados_K
Names: »OVERFØRE.K«
└─⟦fbcea1992⟧ Bits:30009008 blank (Pascal program "OVERFØRE")
└─⟦this⟧ »OVERFØRE.K«
PROGRAM OVERFØRE;
(*OVERFØRSEL AF DATA MELLEM 2 FILER VED TILFØJELSE AF FELTER*)
(*UDVIDELSE AF FILEN ELLER ANDET OVERFØRSLEN FOREGÅR VED AT*)
(*INDLÆSE DE TO DESCRIPTION FILER OG ANGIVE FILNUMRENE SAMT*)
(*INDTASTE SAMMENHÆNGENE MELLEM DE ENKELTE FELTNUMRE*)
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*)
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;
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
(*@@*)MAXFIL=3;
MAXPOST=500;
MAXHÆGTER=9;
MAXHPOST=20;
MAXIDENT=9;
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
(*@@*)
TEK4=PACKED ARRAY (1..4) OF CHAR;
TEK30=PACKED ARRAY (1..30) OF CHAR;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXPOST) OF INTEGER
END;
HPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER
END;
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFIL) OF ARRAY (1..MAXFELTER) OF NFELT;
NØGLER:ARRAY (1..MAXFIL) OF ARRAY (1..MAXNØGLER) OF NFELT;
HÆGTER:ARRAY (1..MAXFIL) OF ARRAY (1..MAXHÆGTER) OF NFELT;
IDENT:ARRAY (1..MAXFIL) OF ARRAY (1..MAXIDENT) OF NFELT;
ANTALIDENT,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:ARRAY (1..MAXFIL) OF
INTEGER;
LINES,OPTION,I,J:INTEGER;
CH:STRING(1);
LINE:STRING;
POST:ARRAY (1..MAXFIL) OF PPOST;
HÆGTEREC:ARRAY (1..MAXFIL) OF ARRAY (1..MAXHÆGTER) OF HPOST;
(*@@*)
FRAFIL,TILFIL:INTEGER;
OK,STOP:BOOLEAN;
FRAFELT:ARRAY (1..MAXFELTER) OF INTEGER;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
J,I:INTEGER;
BEGIN
IF LINES>0 THEN PAGE(LIST); (*$R-*)
WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
FOR J:=2 TO MAXFIL DO
BEGIN
ICLOSE(POST(J).A);
END;
(*@@LUK EVT. ANDRE DATAFILER*)
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR REC:AR);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20); (*$R-*)
WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),
' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(REC);
CLEARSCREEN
END;
(*$P*)
PROCEDURE LÆSDESC(NR9:INTEGER);
TYPE
FELTFIL=FILE OF FELTBESKRIVELSE;
VAR
FFIL:FELTFIL;
I:INTEGER;
BEGIN
RESET(FFIL,DESCNAVN);
I:=IORESULT;
IF I<>0 THEN BAD(7,I);
GET(FFIL);
I:=0;
ANTALNØGLER(NR9):=0;
ANTALHÆGTER(NR9):=0;
ANTALIDENT(NR9):=0;
WHILE FFIL^.INDPOS.X>0 DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(NR9,I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(NR9,I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(NR9,I);
WITH PICTURE(NR9,I)^ DO
BEGIN
DESCTYPE:=FELTDESC;
INDPOS.X:=FFIL^.INDPOS.X;
INDPOS.Y:=FFIL^.INDPOS.Y;
UDPOS.X:=FFIL^.UDPOS.X;
UDPOS.Y:=FFIL^.UDPOS.Y;
KIKKENIVEAU:=FFIL^.KIKKENIVEAU;
ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;
IF ÆNDRENIVEAU=UMULIUS THEN
BEGIN
ANTALNØGLER(NR9):=ANTALNØGLER(NR9)+1;
NØGLER(NR9,ANTALNØGLER(NR9)):=PICTURE(NR9,I)
END;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
HÆGTE:=FFIL^.HÆGTE;
IF HÆGTE>0 THEN
BEGIN
ANTALHÆGTER(NR9):=ANTALHÆGTER(NR9)+1;
HÆGTER(NR9,ANTALHÆGTER(NR9)):=PICTURE(NR9,I); (*$R-*)
HÆGTEREC(NR9,ANTALHÆGTER(NR9)).A(-3):=HÆGTE (*$R+*)
END
ELSE
IF HÆGTE<0 THEN
BEGIN
ANTALIDENT(NR9):=ANTALIDENT(NR9)+1;
IDENT(NR9,ANTALIDENT(NR9)):=PICTURE(NR9,I)
END;
FORAN0:=FFIL^.FORAN0;
IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;
WHILE FFIL^.NÆSTEVAL<>NIL DO
BEGIN
GET(FFIL);
WITH FELT^ DO
CASE FFIL^.VALIDITETSTYPE OF
HINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,HINTERVAL);
NÆSTEVAL^.MIN:=FFIL^.MIN;
NÆSTEVAL^.MAX:=FFIL^.MAX
END;
DINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,DINTERVAL);
NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;
NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2
END;
RINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,RINTERVAL);
NÆSTEVAL^.RMIN:=FFIL^.RMIN;
NÆSTEVAL^.RMAX:=FFIL^.RMAX
END;
DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)
END;
FELT:=FELT^.NÆSTEVAL;
FELT^.DESCTYPE:=VALIDESC;
FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE
END;
FELT^.NÆSTEVAL:=NIL
END;
GET(FFIL)
END;
CLOSE(FFIL);
ANTALFELTER(NR9):=I
END;
(*$P*)
PROCEDURE MOVETOLINE(VAR F:NFELT;NR9:INTEGER);
VAR CH:STRING(1);
TAL,DECS,I:INTEGER;
RESULT,DM,DD:REAL;
BEGIN
CH:=' ';
CASE F^.FELTTYPE OF
HELTAL:BEGIN
LINE:=''; (*$R-*)
TAL:=ABS(POST(NR9).A(F^.INDEKS)); (*$R+*)
REPEAT
CH(1):=CHR(TAL MOD 10+48);
LINE:=CONCAT(CH,LINE);
TAL:=TAL DIV 10
UNTIL TAL=0;
WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE); (*$R-*)
IF POST(NR9).A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE) (*$R+*)
END;
DOBBTAL:BEGIN
LINE:=''; (*$R-*)
RESULT:=ABS(POST(NR9).A(F^.INDEKS)*10000.0
+POST(NR9).A(F^.INDEKS+1));
(*$R+*)
DM:=100000000.0;
REPEAT
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10
UNTIL (I>48) OR (DM<1.0);
REPEAT
CH(1):=CHR(I);
LINE:=CONCAT(LINE,CH);
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL DM<0.09;
WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);
(*$R-*)
IF POST(NR9).A(F^.INDEKS)*10000.0+POST(NR9).A(F^.INDEKS+1)<0.0
THEN
LINE:=CONCAT('-',LINE) (*$R+*)
END;
TEKST:BEGIN
LINE:='';
FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO
BEGIN (*$R-*)
CH(1):=POST(NR9).AA(I); (*$R+*)
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN (*$R-*)
RESULT:=ABS(POST(NR9).AAA(F^.INDEKS)); (*$R+*)
DECS:=F^.DEC;
IF DECS=0 THEN
DD:=0.0
ELSE
BEGIN
DD:=0.1;
FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END
END;
LINE:='';
IF F^.FORAN0=0 THEN
BEGIN
DM:=100000000000.0;
REPEAT
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL (I>48) OR (DM<1.0) OR (DM=DD)
END
ELSE
BEGIN
DM:=1.0;
FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
END;
REPEAT
CH(1):=CHR(I);
LINE:=CONCAT(LINE,CH);
IF DM=DD THEN LINE:=CONCAT(LINE,'.');
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL DM<0.09; (*$R-*)
IF POST(NR9).AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)
(*$R+*)
END
END
END;
(*$P*)
PROCEDURE NULPOST(NR9:INTEGER);
VAR I,J:INTEGER;
BEGIN
FOR J:=1 TO ANTALFELTER(NR9) DO WITH PICTURE(NR9,J)^ DO
BEGIN
CASE FELTTYPE OF (*$R-*)
HELTAL:POST(NR9).A(INDEKS):=0;
DOBBTAL:BEGIN
POST(NR9).A(INDEKS):=0;
POST(NR9).A(INDEKS+1):=0
END;
REEL:POST(NR9).AAA(INDEKS):=0.0;
TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO
POST(NR9).AA(I):=' '; (*$R+*)
END
END
END;
(*$P*)
PROCEDURE LÆSFELT(VAR F:NFELT;NR9:INTEGER);
VAR I,TAL,TAL1:INTEGER;
VAL:NFELT;
RESULT:REAL;
BUMMED:BOOLEAN;
(*$P*)
PROCEDURE LÆSLINIE;
VAR OK:BOOLEAN;
DECS,I,FORTEGN:INTEGER;
DM:REAL;
BEGIN
REPEAT
OK:=FALSE;
RESULT:=0.0;
TAL:=0;
TAL1:=0;
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);
WRITE(' ':LENGTH(F^.LEDETEKST)+LENGTH(F^.FØLGETEKST)+F^.LÆNGDE+2);
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);
WRITE(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);
GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);
IF F^.EDITERING=0 THEN
BEGIN
READLN;READ(LINE)
END
ELSE
BEGIN
MOVETOLINE(F,NR9);
EDIT(LINE:F^.LÆNGDE); (*$R-*)
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1) (*$R+*)
END;
CASE F^.FELTTYPE OF
TEKST:
IF LENGTH(LINE)<=F^.LÆNGDE THEN
BEGIN
OK:=TRUE;
WHILE LENGTH(LINE)<F^.LÆNGDE DO
IF F^.FORAN0>=0 THEN
LINE:=CONCAT(LINE,' ')
ELSE
LINE:=CONCAT(' ',LINE)
END;
HELTAL,DOBBTAL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE LENGTH(LINE)>I DO
BEGIN
OK:=TRUE;
I:=I+1;
IF NOT (LINE(I) IN (.'0'..'9'.)) THEN
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END;
RESULT:=10*RESULT+ORD(LINE(I))-48
END;
RESULT:=RESULT*FORTEGN;
IF OK THEN
CASE F^.FELTTYPE OF
HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;
DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN
BEGIN
TAL:=TRUNC(RESULT/10000.0);
TAL1:=TRUNC(RESULT-10000.0*TAL)
END
ELSE OK:=FALSE
END
END ELSE OK:=TRUE;
REEL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
DECS:=-1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE (LENGTH(LINE)>I) AND (DECS<0) DO
BEGIN
OK:=TRUE;
I:=I+1;
IF LINE(I) IN (.'0'..'9'.) THEN
RESULT:=10*RESULT+ORD(LINE(I))-48
ELSE
IF (LINE(I)='.') OR (LINE(I)=',') THEN
DECS:=0
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
DM:=1.0;
WHILE LENGTH(LINE)>I DO
BEGIN
I:=I+1;
DM:=DM/10.0;
IF LINE(I) IN (.'0'..'9'.) THEN
BEGIN
RESULT:=RESULT+DM*(ORD(LINE(I))-48);
DECS:=DECS+1
END
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
RESULT:=FORTEGN*RESULT;
IF DECS>F^.DEC THEN OK:=FALSE
END
ELSE OK:=TRUE
END
UNTIL OK
END;
(*$P*)
PROCEDURE CHECKVAL;
VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;
CPN:ARRAY (1..10) OF INTEGER;
BEGIN
CASE VAL^.VALIDITETSTYPE OF
HINTERVAL:
BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));
DINTERVAL:
BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR
(TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));
RINTERVAL:
BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));
DATO:
IF LENGTH(LINE)=6 THEN
BEGIN
ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;
MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;
DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;
IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;
IF NOT BUMMED THEN
CASE MÅNED OF
4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;
2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
CPR:
IF LENGTH(LINE)=10 THEN
BEGIN
FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;
DAT0:=CPN(1)*10+CPN(2);
MÅNED:=CPN(3)*10+CPN(4);
ÅR:=CPN(5)*10+CPN(6);
IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;
IF NOT BUMMED THEN
CASE MÅNED OF
4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;
2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE
END;
IF NOT BUMMED THEN
BEGIN
MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+
CPN(8)*3+CPN(9)*2+CPN(10);
IF MODULC MOD 11<>0 THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
END
END;
(*$P*)
(*PROCEDURE LÆSFELT*)
BEGIN
IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN
BEGIN
REPEAT
LÆSLINIE;
VAL:=F^.NÆSTEVAL;
BUMMED:=FALSE;
WHILE (VAL<>NIL) AND (NOT BUMMED) DO
BEGIN
CHECKVAL;
VAL:=VAL^.NÆSTEVAL
END
UNTIL NOT BUMMED;
CASE F^.FELTTYPE OF (*$R-*)
HELTAL:POST(NR9).A(F^.INDEKS):=TAL;
DOBBTAL:BEGIN
POST(NR9).A(F^.INDEKS):=TAL;
POST(NR9).A(F^.INDEKS+1):=TAL1
END;
REEL:POST(NR9).AAA(F^.INDEKS):=RESULT;
TEKST:FOR I:=1 TO F^.LÆNGDE DO
POST(NR9).AA(I+F^.INDEKS-1):=LINE(I) (*$R+*)
END
END
END;
(*$P*)
PROCEDURE SÆTKEY(NR,NR1,NR2,NR3:INTEGER);
VAR HINDEKS:INTEGER;
BEGIN
CASE PICTURE(NR2,NR)^.FELTTYPE OF
(*$R-*)
HELTAL:POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS):=
POST(NR2).A(PICTURE(NR2,NR)^.INDEKS);
DOBBTAL:BEGIN
POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS):=
POST(NR2).A(PICTURE(NR2,NR)^.INDEKS);
POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS+1):=
POST(NR2).A(PICTURE(NR2,NR)^.INDEKS+1);
END;
TEKST:FOR HINDEKS:=1 TO PICTURE(NR2,NR)^.LÆNGDE DO
POST(NR3).AA(PICTURE(NR3,NR1)^.INDEKS-1+HINDEKS):=
POST(NR2).AA(PICTURE(NR2,NR)^.INDEKS-1+HINDEKS);
REEL:POST(NR3).AAA(PICTURE(NR3,NR1)^.INDEKS):=
POST(NR2).AAA(PICTURE(NR2,NR)^.INDEKS);
(*$R+*)
END
END;
(*$P*)
PROCEDURE INT(TYP,NR,FELT:INTEGER;VAR HJÆLP:INTEGER);
BEGIN
(*$R-*)
CASE TYP OF
1:HJÆLP:=POST(NR).A(PICTURE(NR,FELT)^.INDEKS);
2:POST(NR).A(PICTURE(NR,FELT)^.INDEKS):=HJÆLP;
END;
(*$R+*)
END;
(*$P*)
PROCEDURE SKRIVHOVED;
BEGIN
CLEARSCREEN;
GOTOXY(10,1);
WRITELN('F I L T R A N S ');
END;
(*$P*)
PROCEDURE ÅBEN(NR9,FILNR:INTEGER);
BEGIN
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
LÆSDESC(NR9);
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
MODE:=3;(*SKRIV*)
LINES:=100; (*$R-*)
POST(NR9).A(-3):=FILNR; (*$R+*)
IOPEN(POST(NR9).A);IF IER<>0 THEN OFEJL(POST(NR9).A);
END;
PROCEDURE LUK(NR9:INTEGER);
BEGIN
ICLOSE(POST(NR9).A);
END;
BEGIN (*REGVEDL*)
CLEARSCREEN;
SKRIVHOVED;
DESCNAVN:='OVERFØRE:P2:05:J';
LÆSDESC(1);
NULPOST(1);
LÆSFELT(PICTURE(1,1),1);
LÆSFELT(PICTURE(1,2),1);
MOVETOLINE(PICTURE(1,1),1);
DESCNAVN:=LINE;INT(1,1,2,FRAFIL);
ÅBEN(2,FRAFIL);
LÆSFELT(PICTURE(1,3),1);
LÆSFELT(PICTURE(1,4),1);
MOVETOLINE(PICTURE(1,3),1);
DESCNAVN:=LINE;INT(1,1,4,TILFIL);
ÅBEN(3,TILFIL);
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
FOR I:=1 TO ANTALFELTER(3) DO
BEGIN
REPEAT
OK:=TRUE;
GOTOXY(1,22);
WRITELN('Nu behandles feltnr : ',I:3);
LÆSFELT(PICTURE(1,5),1);
INT(1,1,5,FRAFELT(I));
IF (FRAFELT(I)>0) AND (FRAFELT(I)<=MAXFELTER) THEN
IF PICTURE(2,FRAFELT(I))^.FELTTYPE<>PICTURE(3,I)^.FELTTYPE THEN
OK:=FALSE;
UNTIL OK;
END;
GOTOXY(1,23);
CH:='J';
WRITELN('Ønskes overførsel (J/N)',' ':50);
GOTOXY(31,23);EDIT(CH);
IF (CH='J') OR (CH='j') THEN
BEGIN
NULPOST(2);
STOP:=FALSE;
WHILE NOT(STOP) DO
BEGIN
NEXTREC(POST(2).A);
IF NOT(-IER IN(.0..2,9.)) THEN ERROR(POST(2).A);
IF IER=-9 THEN STOP:=TRUE;
IF IER=-2 THEN
STOP:=TRUE
ELSE
BEGIN
NULPOST(3);
FOR I:=1 TO ANTALFELTER(3) DO
BEGIN
IF FRAFELT(I)<>0 THEN SÆTKEY(FRAFELT(I),I,2,3)
END;
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(3).A);
IF IER<>0 THEN ERROR(POST(3).A);
END;
INSERT(POST(3).A);
IF IER<>0 THEN ERROR(POST(3).A);
END
END
END;
LUK(2);
LUK(3);
(*@@ LUKNING AF EVENTUELLE ANDRE FILER*)
SKRIVHOVED;
IF IER<>0 THEN BAD(6,IER);
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*)
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM OVERFØRE;«, l3=0x11}
0x0013…0053 Line {l1=0x3e, l2=»(*OVERFØRSEL AF DATA MELLEM 2 FILER VED TILFØJELSE AF FELTER*)«, l3=0x3e}
0x0053…0092 Line {l1=0x3d, l2=»(*UDVIDELSE AF FILEN ELLER ANDET OVERFØRSLEN FOREGÅR VED AT*)«, l3=0x3d}
0x0092…00d1 Line {l1=0x3d, l2=»(*INDLÆSE DE TO DESCRIPTION FILER OG ANGIVE FILNUMRENE SAMT*)«, l3=0x3d}
0x00d1…0109 Line {l1=0x36, l2=»(*INDTASTE SAMMENHÆNGENE MELLEM DE ENKELTE FELTNUMRE*)«, l3=0x36}
0x0109…011a Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x011a…012c Line {l1=0x10, l2=» TIMER=120;«, l3=0x10}
0x012c…0144 Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x0144…014c Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x014c…0160 Line {l1=0x12, l2=» PROGRAMNR=3;«, l3=0x12}
0x0160…0166 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0166…018f Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x018f…01bb Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x01bb…01d1 Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x01d1…0204 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x0204…0235 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0235…0249 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0249…0294 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0294…02ac Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x02ac…02f7 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x02f7…030b Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x030b…0321 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0321…0335 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0335…037e Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x037e…03ce Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x03ce…0418 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0418…0429 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0429…044b Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x044b…046a Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x046a…0479 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0479…0498 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0498…04b1 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x04b1…04cd Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x04cd…0501 Line {l1=0x32, l2=» STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x32}
0x0501…052d Line {l1=0x2a, l2=» TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x2a}
0x052d…055c Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x055c…0574 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x0574…058f Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x058f…05a5 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x05a5…05bb Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x05bb…05e4 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x05e4…05fd Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x05fd…0628 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0628…063e Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x063e…0658 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0658…0669 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0669…067c Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x067c…0695 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0695…06ad Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x06ad…06b5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x06b5…06db Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x06db…06e2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06e2…06f3 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x06f3…0715 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x0715…071f Line {l1=0x08, l2=» READLN«, l3=0x08}
0x071f…0725 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0725…072d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x072d…0764 Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x0764…076f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x076f…0788 Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x0788…0793 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0793…07a8 Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x07a8…07b3 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07b3…07c5 Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x07c5…07d0 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07d0…0807 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0807…082e Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x082e…0839 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0839…0871 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0871…087c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x087c…08b0 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x08b0…08e5 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x08e5…08f0 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x08f0…0927 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0927…094e Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x094e…0959 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0959…0991 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x0991…09b8 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x09b8…09c3 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x09c3…09f8 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x09f8…0a03 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a03…0a0b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a0b…0a18 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0a18…0a28 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0a28…0a30 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a30…0a44 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0a44…0a59 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0a59…0a6d Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x0a6d…0a7e Line {l1=0x0f, l2=»(*@@*)MAXFIL=3;«, l3=0x0f}
0x0a7e…0a92 Line {l1=0x12, l2=» MAXPOST=500;«, l3=0x12}
0x0a92…0aa6 Line {l1=0x12, l2=» MAXHÆGTER=9;«, l3=0x12}
0x0aa6…0aba Line {l1=0x12, l2=» MAXHPOST=20;«, l3=0x12}
0x0aba…0acd Line {l1=0x11, l2=» MAXIDENT=9;«, l3=0x11}
0x0acd…0ad3 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0ad3…0aec Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0aec…0afd Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0afd…0b0d Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0b0d…0b13 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b13…0b37 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0b37…0b68 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0b68…0b8f Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0b8f…0ba7 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0ba7…0bbb Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0bbb…0bd3 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0bd3…0bf9 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0bf9…0c07 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0c07…0c22 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0c22…0c46 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0c46…0c5d Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0c5d…0c7e Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0c7e…0c8a Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0c8a…0c96 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0c96…0ca1 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0ca1…0cb5 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0cb5…0cd0 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0cd0…0ce8 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0ce8…0d06 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0d06…0d14 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0d14…0d35 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0d35…0d59 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0d59…0d89 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0d89…0dac Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0dac…0dc0 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0dc0…0dc6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dc6…0dce Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0dce…0df1 Line {l1=0x21, l2=»TEK4=PACKED ARRAY (1..4) OF CHAR;«, l3=0x21}
0x0df1…0e16 Line {l1=0x23, l2=»TEK30=PACKED ARRAY (1..30) OF CHAR;«, l3=0x23}
0x0e16…0e3d Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0e3d…0e58 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0e58…0e85 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0e85…0e93 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0e93…0ea3 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0ea3…0eb0 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0eb0…0ec0 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0ec0…0eef Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x0eef…0ef5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ef5…0f03 Line {l1=0x0c, l2=»HPOST=RECORD«, l3=0x0c}
0x0f03…0f13 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0f13…0f20 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0f20…0f30 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0f30…0f60 Line {l1=0x2e, l2=» CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER«, l3=0x2e}
0x0f60…0f66 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f66…0f77 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x0f77…0f8c Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x0f8c…0fce Line {l1=0x40, l2=» PICTURE:ARRAY (1..MAXFIL) OF ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x40}
0x0fce…100f Line {l1=0x3f, l2=» NØGLER:ARRAY (1..MAXFIL) OF ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x3f}
0x100f…1050 Line {l1=0x3f, l2=» HÆGTER:ARRAY (1..MAXFIL) OF ARRAY (1..MAXHÆGTER) OF NFELT;«, l3=0x3f}
0x1050…1090 Line {l1=0x3e, l2=» IDENT:ARRAY (1..MAXFIL) OF ARRAY (1..MAXIDENT) OF NFELT;«, l3=0x3e}
0x1090…10d9 Line {l1=0x47, l2=» ANTALIDENT,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:ARRAY (1..MAXFIL) OF«, l3=0x47}
0x10d9…111f Line {l1=0x44, l2=» INTEGER;«, l3=0x44}
0x111f…113e Line {l1=0x1d, l2=» LINES,OPTION,I,J:INTEGER;«, l3=0x1d}
0x113e…1151 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x1151…1163 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1163…1189 Line {l1=0x24, l2=» POST:ARRAY (1..MAXFIL) OF PPOST;«, l3=0x24}
0x1189…11cc Line {l1=0x41, l2=» HÆGTEREC:ARRAY (1..MAXFIL) OF ARRAY (1..MAXHÆGTER) OF HPOST;«, l3=0x41}
0x11cc…11d8 Line {l1=0x0a, l2=» (*@@*)«, l3=0x0a}
0x11d8…11f4 Line {l1=0x1a, l2=» FRAFIL,TILFIL:INTEGER;«, l3=0x1a}
0x11f4…120a Line {l1=0x14, l2=» OK,STOP:BOOLEAN;«, l3=0x14}
0x120a…1238 Line {l1=0x2c, l2=» FRAFELT:ARRAY (1..MAXFELTER) OF INTEGER;«, l3=0x2c}
0x1238…1240 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1240…125e Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x125e…1271 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1271…1283 Line {l1=0x10, l2=» J,I:INTEGER;«, l3=0x10}
0x1283…128a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x128a…12da Line {l1=0x4e, l2=» IF LINES>0 THEN PAGE(LIST); (*$R-*)«, l3=0x4e}
0x12da…132a Line {l1=0x4e, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4e}
0x132a…133f Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x133f…1358 Line {l1=0x17, l2=» FOR J:=2 TO MAXFIL DO«, l3=0x17}
0x1358…1361 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1361…1379 Line {l1=0x16, l2=» ICLOSE(POST(J).A);«, l3=0x16}
0x1379…1381 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1381…13a1 Line {l1=0x1e, l2=»(*@@LUK EVT. ANDRE DATAFILER*)«, l3=0x1e}
0x13a1…13b2 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x13b2…13b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x13b8…13d6 Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x13d6…13e6 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x13e6…13ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13ed…143d Line {l1=0x4e, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4e}
0x143d…1486 Line {l1=0x47, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x47}
0x1486…14d6 Line {l1=0x4e, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4e}
0x14d6…151f Line {l1=0x47, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES'); «, l3=0x47}
0x151f…1558 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1558…1574 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x1574…1583 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1583…1589 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1589…1591 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1591…15b2 Line {l1=0x1f, l2=»PROCEDURE LÆSDESC(NR9:INTEGER);«, l3=0x1f}
0x15b2…15b8 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x15b8…15da Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x15da…15df Line {l1=0x03, l2=»VAR«, l3=0x03}
0x15df…15ee Line {l1=0x0d, l2=»FFIL:FELTFIL;«, l3=0x0d}
0x15ee…15fa Line {l1=0x0a, l2=»I:INTEGER;«, l3=0x0a}
0x15fa…1601 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1601…161a Line {l1=0x17, l2=» RESET(FFIL,DESCNAVN);«, l3=0x17}
0x161a…162a Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x162a…1644 Line {l1=0x18, l2=» IF I<>0 THEN BAD(7,I);«, l3=0x18}
0x1644…1652 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x1652…165b Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x165b…1673 Line {l1=0x16, l2=» ANTALNØGLER(NR9):=0;«, l3=0x16}
0x1673…168b Line {l1=0x16, l2=» ANTALHÆGTER(NR9):=0;«, l3=0x16}
0x168b…16a2 Line {l1=0x15, l2=» ANTALIDENT(NR9):=0;«, l3=0x15}
0x16a2…16bf Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x16bf…16c8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x16c8…16d5 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x16d5…16f1 Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x16f1…171e Line {l1=0x2b, l2=» REEL:NEW(PICTURE(NR9,I),FELTDESC,REEL);«, l3=0x2b}
0x171e…175c Line {l1=0x3c, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(NR9,I),FELTDESC,HELTAL)«, l3=0x3c}
0x175c…1766 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1766…1781 Line {l1=0x19, l2=» FELT:=PICTURE(NR9,I);«, l3=0x19}
0x1781…179e Line {l1=0x1b, l2=» WITH PICTURE(NR9,I)^ DO«, l3=0x1b}
0x179e…17a9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x17a9…17c4 Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x17c4…17e5 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x17e5…1806 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x1806…1825 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x1825…1844 Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x1844…186b Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x186b…1892 Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x1892…18b5 Line {l1=0x21, l2=» IF ÆNDRENIVEAU=UMULIUS THEN«, l3=0x21}
0x18b5…18c2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x18c2…18f1 Line {l1=0x2d, l2=» ANTALNØGLER(NR9):=ANTALNØGLER(NR9)+1;«, l3=0x2d}
0x18f1…1927 Line {l1=0x34, l2=» NØGLER(NR9,ANTALNØGLER(NR9)):=PICTURE(NR9,I)«, l3=0x34}
0x1927…1933 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1933…1956 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1956…197b Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x197b…199e Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x199e…19bf Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x19bf…19dc Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x19dc…19f9 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x19f9…1a14 Line {l1=0x19, l2=» HÆGTE:=FFIL^.HÆGTE;«, l3=0x19}
0x1a14…1a2b Line {l1=0x15, l2=» IF HÆGTE>0 THEN«, l3=0x15}
0x1a2b…1a38 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1a38…1a67 Line {l1=0x2d, l2=» ANTALHÆGTER(NR9):=ANTALHÆGTER(NR9)+1;«, l3=0x2d}
0x1a67…1aac Line {l1=0x43, l2=» HÆGTER(NR9,ANTALHÆGTER(NR9)):=PICTURE(NR9,I); (*$R-*)«, l3=0x43}
0x1aac…1aed Line {l1=0x3f, l2=» HÆGTEREC(NR9,ANTALHÆGTER(NR9)).A(-3):=HÆGTE (*$R+*)«, l3=0x3f}
0x1aed…1af9 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x1af9…1b05 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1b05…1b1c Line {l1=0x15, l2=» IF HÆGTE<0 THEN«, l3=0x15}
0x1b1c…1b29 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1b29…1b56 Line {l1=0x2b, l2=» ANTALIDENT(NR9):=ANTALIDENT(NR9)+1;«, l3=0x2b}
0x1b56…1b8a Line {l1=0x32, l2=» IDENT(NR9,ANTALIDENT(NR9)):=PICTURE(NR9,I)«, l3=0x32}
0x1b8a…1b96 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1b96…1bb3 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x1bb3…1be0 Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x1be0…1c04 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1c04…1c11 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c11…1c25 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1c25…1c3c Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x1c3c…1c62 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x1c62…1c7d Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x1c7d…1cb6 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x1cb6…1ce7 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x1ce7…1d17 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1d17…1d31 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1d31…1d4c Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x1d4c…1d85 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x1d85…1dd3 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x1dd3…1e20 Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x1e20…1e3a Line {l1=0x18, l2=» END;«, l3=0x18}
0x1e3a…1e55 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x1e55…1e8e Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x1e8e…1ec1 Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x1ec1…1ef3 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1ef3…1f0d Line {l1=0x18, l2=» END;«, l3=0x18}
0x1f0d…1f3d Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x1f3d…1f4b Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1f4b…1f6a Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1f6a…1f8d Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1f8d…1fc1 Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x1fc1…1fcd Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1fcd…1fe8 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1fe8…1ff2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1ff2…2001 Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x2001…2009 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2009…2019 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x2019…2030 Line {l1=0x15, l2=» ANTALFELTER(NR9):=I«, l3=0x15}
0x2030…2036 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2036…203e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x203e…206e Line {l1=0x2e, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT;NR9:INTEGER);«, l3=0x2e}
0x206e…2081 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x2081…209a Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x209a…20b2 Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x20b2…20b9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20b9…20c5 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x20c5…20e0 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x20e0…20f4 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x20f4…2144 Line {l1=0x4e, l2=» LINE:=''; (*$R-*)«, l3=0x4e}
0x2144…2194 Line {l1=0x4e, l2=» TAL:=ABS(POST(NR9).A(F^.INDEKS)); (*$R+*)«, l3=0x4e}
0x2194…21ab Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x21ab…21d8 Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x21d8…2201 Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x2201…2223 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x2223…2240 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x2240…2290 Line {l1=0x4e, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE); (*$R-*)«, l3=0x4e}
0x2290…22e0 Line {l1=0x4e, l2=» IF POST(NR9).A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE) (*$R+*)«, l3=0x4e}
0x22e0…22f3 Line {l1=0x11, l2=» END;«, l3=0x11}
0x22f3…2307 Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x2307…2357 Line {l1=0x4e, l2=» LINE:=''; (*$R-*)«, l3=0x4e}
0x2357…2392 Line {l1=0x39, l2=» RESULT:=ABS(POST(NR9).A(F^.INDEKS)*10000.0«, l3=0x39}
0x2392…23d9 Line {l1=0x45, l2=» +POST(NR9).A(F^.INDEKS+1));«, l3=0x45}
0x23d9…2429 Line {l1=0x4e, l2=» (*$R+*)«, l3=0x4e}
0x2429…244a Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x244a…2461 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2461…248b Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x248b…24b7 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x24b7…24d3 Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x24d3…24fd Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x24fd…2514 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2514…2535 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2535…255e Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x255e…2588 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2588…25b4 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x25b4…25d2 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x25d2…25f1 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x25f1…2639 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2639…2689 Line {l1=0x4e, l2=» (*$R-*)«, l3=0x4e}
0x2689…26d8 Line {l1=0x4d, l2=» IF POST(NR9).A(F^.INDEKS)*10000.0+POST(NR9).A(F^.INDEKS+1)<0.0«, l3=0x4d}
0x26d8…26ed Line {l1=0x13, l2=» THEN«, l3=0x13}
0x26ed…273d Line {l1=0x4e, l2=» LINE:=CONCAT('-',LINE) (*$R+*)«, l3=0x4e}
0x273d…2750 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2750…2764 Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x2764…277e Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x277e…27bb Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x27bb…280b Line {l1=0x4e, l2=» BEGIN (*$R-*)«, l3=0x4e}
0x280b…285b Line {l1=0x4e, l2=» CH(1):=POST(NR9).AA(I); (*$R+*)«, l3=0x4e}
0x285b…2883 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x2883…2897 Line {l1=0x12, l2=» END«, l3=0x12}
0x2897…28aa Line {l1=0x11, l2=» END;«, l3=0x11}
0x28aa…28fa Line {l1=0x4e, l2=» REEL:BEGIN (*$R-*)«, l3=0x4e}
0x28fa…294a Line {l1=0x4e, l2=» RESULT:=ABS(POST(NR9).AAA(F^.INDEKS)); (*$R+*)«, l3=0x4e}
0x294a…2968 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2968…2987 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2987…29a1 Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x29a1…29b6 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x29b6…29cc Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x29cc…29e7 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x29e7…2a35 Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x2a35…2a4a Line {l1=0x13, l2=» END;«, l3=0x13}
0x2a4a…2a64 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2a64…2a88 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2a88…2a9e Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2a9e…2ac4 Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x2ac4…2add Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x2add…2b09 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x2b09…2b37 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2b37…2b57 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2b57…2b8d Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2b8d…2ba1 Line {l1=0x12, l2=» END«, l3=0x12}
0x2ba1…2bb6 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2bb6…2bcc Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2bcc…2be7 Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x2be7…2c1f Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x2c1f…2c49 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2c49…2c75 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2c75…2c93 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2c93…2ca8 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2ca8…2cbf Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2cbf…2ce0 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2ce0…2d09 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2d09…2d41 Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x2d41…2d6b Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2d6b…2d97 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2d97…2db5 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2db5…2e05 Line {l1=0x4e, l2=» UNTIL DM<0.09; (*$R-*)«, l3=0x4e}
0x2e05…2e52 Line {l1=0x4b, l2=» IF POST(NR9).AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE) «, l3=0x4b}
0x2e52…2ea2 Line {l1=0x4e, l2=» (*$R+*)«, l3=0x4e}
0x2ea2…2eb4 Line {l1=0x10, l2=» END«, l3=0x10}
0x2eb4…2ebf Line {l1=0x09, l2=» END«, l3=0x09}
0x2ebf…2ec5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ec5…2ecd Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2ecd…2eee Line {l1=0x1f, l2=»PROCEDURE NULPOST(NR9:INTEGER);«, l3=0x1f}
0x2eee…2f00 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x2f00…2f07 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2f07…2f42 Line {l1=0x39, l2=» FOR J:=1 TO ANTALFELTER(NR9) DO WITH PICTURE(NR9,J)^ DO«, l3=0x39}
0x2f42…2f4b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2f4b…2f9b Line {l1=0x4e, l2=» CASE FELTTYPE OF (*$R-*)«, l3=0x4e}
0x2f9b…2fe9 Line {l1=0x4c, l2=» HELTAL:POST(NR9).A(INDEKS):=0; «, l3=0x4c}
0x2fe9…2ffc Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x2ffc…3023 Line {l1=0x25, l2=» POST(NR9).A(INDEKS):=0;«, l3=0x25}
0x3023…304b Line {l1=0x26, l2=» POST(NR9).A(INDEKS+1):=0«, l3=0x26}
0x304b…305d Line {l1=0x10, l2=» END;«, l3=0x10}
0x305d…3083 Line {l1=0x24, l2=» REEL:POST(NR9).AAA(INDEKS):=0.0;«, l3=0x24}
0x3083…30cc Line {l1=0x47, l2=» TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO «, l3=0x47}
0x30cc…311c Line {l1=0x4e, l2=» POST(NR9).AA(I):=' '; (*$R+*)«, l3=0x4e}
0x311c…3125 Line {l1=0x07, l2=» END«, l3=0x07}
0x3125…312c Line {l1=0x05, l2=» END«, l3=0x05}
0x312c…3132 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3132…3135 Line {l1=0x01, l2=» «, l3=0x01}
0x3135…313d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x313d…316a Line {l1=0x2b, l2=»PROCEDURE LÆSFELT(VAR F:NFELT;NR9:INTEGER);«, l3=0x2b}
0x316a…3183 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x3183…3193 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x3193…31a5 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x31a5…31ba Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x31ba…31bd Line {l1=0x01, l2=» «, l3=0x01}
0x31bd…31c5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x31c5…31da Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x31da…31eb Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x31eb…3208 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x3208…3216 Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x3216…3219 Line {l1=0x01, l2=» «, l3=0x01}
0x3219…3220 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3220…322a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x322a…323a Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x323a…324c Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x324c…3259 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x3259…3267 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x3267…328d Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x328d…32d5 Line {l1=0x46, l2=» WRITE(' ':LENGTH(F^.LEDETEKST)+LENGTH(F^.FØLGETEKST)+F^.LÆNGDE+2);«, l3=0x46}
0x32d5…32fb Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x32fb…3333 Line {l1=0x36, l2=» WRITE(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x36}
0x3333…3370 Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x3370…338c Line {l1=0x1a, l2=» IF F^.EDITERING=0 THEN«, l3=0x1a}
0x338c…3397 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3397…33b0 Line {l1=0x17, l2=» READLN;READ(LINE)«, l3=0x17}
0x33b0…33b9 Line {l1=0x07, l2=» END«, l3=0x07}
0x33b9…33c3 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x33c3…33ce Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x33ce…33e8 Line {l1=0x18, l2=» MOVETOLINE(F,NR9);«, l3=0x18}
0x33e8…3438 Line {l1=0x4e, l2=» EDIT(LINE:F^.LÆNGDE); (*$R-*)«, l3=0x4e}
0x3438…3488 Line {l1=0x4e, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1) (*$R+*)«, l3=0x4e}
0x3488…3492 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3492…34ab Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x34ab…34b3 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x34b3…34d8 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x34d8…34e3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x34e3…34f4 Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x34f4…351b Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x351b…3539 Line {l1=0x1c, l2=» IF F^.FORAN0>=0 THEN«, l3=0x1c}
0x3539…355b Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x355b…3569 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3569…358b Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x358b…3595 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3595…35a6 Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x35a6…35c2 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x35c2…35cd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x35cd…35da Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x35da…35ed Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x35ed…3608 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x3608…3615 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3615…362b Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x362b…3639 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x3639…3645 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3645…3664 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3664…3671 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3671…3684 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x3684…3695 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3695…36c4 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x36c4…36d3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x36d3…36e9 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x36e9…3704 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3704…3712 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3712…373d Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x373d…3749 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3749…3768 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x3768…377a Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x377a…3795 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x3795…37e1 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x37e1…3811 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x3811…3826 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x3826…3853 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x3853…3884 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x3884…3897 Line {l1=0x11, l2=» END«, l3=0x11}
0x3897…38b5 Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x38b5…38c0 Line {l1=0x09, l2=» END«, l3=0x09}
0x38c0…38d8 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x38d8…38df Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x38df…38fb Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x38fb…3906 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3906…3913 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x3913…3926 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x3926…3937 Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x3937…3952 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x3952…395f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x395f…3975 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3975…3983 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x3983…398f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x398f…39bd Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x39bd…39ca Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x39ca…39dd Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x39dd…39ee Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x39ee…3a17 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3a17…3a44 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x3a44…3a52 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3a52…3a82 Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x3a82…3a95 Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x3a95…3aa3 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3aa3…3ab2 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3ab2…3ac8 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3ac8…3ae3 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3ae3…3af0 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3af0…3afc Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3afc…3b0c Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3b0c…3b2b Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3b2b…3b38 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3b38…3b49 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3b49…3b5f Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x3b5f…3b88 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3b88…3b97 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3b97…3bc7 Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x3bc7…3bdf Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x3bdf…3bec Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3bec…3bfa Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3bfa…3c09 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3c09…3c1f Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3c1f…3c3a Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3c3a…3c47 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3c47…3c53 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3c53…3c72 Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x3c72…3c97 Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x3c97…3ca0 Line {l1=0x07, l2=» END«, l3=0x07}
0x3ca0…3cb3 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x3cb3…3cbc Line {l1=0x07, l2=» END«, l3=0x07}
0x3cbc…3cc8 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x3cc8…3cce Line {l1=0x04, l2=»END;«, l3=0x04}
0x3cce…3cd6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3cd6…3ceb Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x3ceb…3d10 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x3d10…3d33 Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x3d33…3d3a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3d3a…3d59 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3d59…3d67 Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x3d67…3d98 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3d98…3da6 Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x3da6…3de6 Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x3de6…3e25 Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x3e25…3e33 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x3e33…3e6c Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3e6c…3e75 Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x3e75…3e91 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3e91…3e9c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3e9c…3ecd Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x3ecd…3f01 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x3f01…3f34 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x3f34…3f82 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3f82…3f9c Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3f9c…3fb1 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3fb1…3fe0 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x3fe0…402b Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x402b…4036 Line {l1=0x09, l2=» END«, l3=0x09}
0x4036…403f Line {l1=0x07, l2=» END«, l3=0x07}
0x403f…4057 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x4057…405f Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x405f…407c Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x407c…4087 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4087…40b9 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x40b9…40d8 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x40d8…40f8 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x40f8…4115 Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x4115…4163 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x4163…417d Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x417d…4192 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x4192…41c1 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x41c1…420b Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x420b…4217 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4217…4231 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x4231…423e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x423e…428d Line {l1=0x4d, l2=» MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+«, l3=0x4d}
0x428d…42b7 Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x42b7…42e6 Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x42e6…42f1 Line {l1=0x09, l2=» END«, l3=0x09}
0x42f1…42fa Line {l1=0x07, l2=» END«, l3=0x07}
0x42fa…4312 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x4312…4319 Line {l1=0x05, l2=» END«, l3=0x05}
0x4319…431f Line {l1=0x04, l2=»END;«, l3=0x04}
0x431f…4327 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4327…433e Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x433e…4345 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4345…436a Line {l1=0x23, l2=» IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN«, l3=0x23}
0x436a…4372 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x4372…437c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x437c…438b Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x438b…43a2 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x43a2…43b6 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x43b6…43e0 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x43e0…43eb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x43eb…43fc Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x43fc…4416 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x4416…441f Line {l1=0x07, l2=» END«, l3=0x07}
0x441f…4434 Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x4434…4484 Line {l1=0x4e, l2=» CASE F^.FELTTYPE OF (*$R-*)«, l3=0x4e}
0x4484…44d2 Line {l1=0x4c, l2=» HELTAL:POST(NR9).A(F^.INDEKS):=TAL; «, l3=0x4c}
0x44d2…44e3 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x44e3…450d Line {l1=0x28, l2=» POST(NR9).A(F^.INDEKS):=TAL;«, l3=0x28}
0x450d…4539 Line {l1=0x2a, l2=» POST(NR9).A(F^.INDEKS+1):=TAL1«, l3=0x2a}
0x4539…4549 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4549…4573 Line {l1=0x28, l2=» REEL:POST(NR9).AAA(F^.INDEKS):=RESULT;«, l3=0x28}
0x4573…45bc Line {l1=0x47, l2=» TEKST:FOR I:=1 TO F^.LÆNGDE DO «, l3=0x47}
0x45bc…460b Line {l1=0x4d, l2=» POST(NR9).AA(I+F^.INDEKS-1):=LINE(I) (*$R+*)«, l3=0x4d}
0x460b…4612 Line {l1=0x05, l2=» END«, l3=0x05}
0x4612…4618 Line {l1=0x04, l2=» END«, l3=0x04}
0x4618…461e Line {l1=0x04, l2=»END;«, l3=0x04}
0x461e…4626 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4626…4651 Line {l1=0x29, l2=»PROCEDURE SÆTKEY(NR,NR1,NR2,NR3:INTEGER);«, l3=0x29}
0x4651…4667 Line {l1=0x14, l2=»VAR HINDEKS:INTEGER;«, l3=0x14}
0x4667…466e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x466e…4693 Line {l1=0x23, l2=» CASE PICTURE(NR2,NR)^.FELTTYPE OF«, l3=0x23}
0x4693…469c Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x469c…46ce Line {l1=0x30, l2=» HELTAL:POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS):=«, l3=0x30}
0x46ce…4718 Line {l1=0x48, l2=» POST(NR2).A(PICTURE(NR2,NR)^.INDEKS); «, l3=0x48}
0x4718…4729 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x4729…475e Line {l1=0x33, l2=» POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS):=«, l3=0x33}
0x475e…47a6 Line {l1=0x46, l2=» POST(NR2).A(PICTURE(NR2,NR)^.INDEKS);«, l3=0x46}
0x47a6…47dd Line {l1=0x35, l2=» POST(NR3).A(PICTURE(NR3,NR1)^.INDEKS+1):=«, l3=0x35}
0x47dd…482d Line {l1=0x4e, l2=» POST(NR2).A(PICTURE(NR2,NR)^.INDEKS+1); «, l3=0x4e}
0x482d…483d Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x483d…4873 Line {l1=0x34, l2=» TEKST:FOR HINDEKS:=1 TO PICTURE(NR2,NR)^.LÆNGDE DO«, l3=0x34}
0x4873…48b3 Line {l1=0x3e, l2=» POST(NR3).AA(PICTURE(NR3,NR1)^.INDEKS-1+HINDEKS):=«, l3=0x3e}
0x48b3…48ff Line {l1=0x4a, l2=» POST(NR2).AA(PICTURE(NR2,NR)^.INDEKS-1+HINDEKS); «, l3=0x4a}
0x48ff…4931 Line {l1=0x30, l2=» REEL:POST(NR3).AAA(PICTURE(NR3,NR1)^.INDEKS):=«, l3=0x30}
0x4931…4977 Line {l1=0x44, l2=» POST(NR2).AAA(PICTURE(NR2,NR)^.INDEKS);«, l3=0x44}
0x4977…4980 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x4980…4987 Line {l1=0x05, l2=» END«, l3=0x05}
0x4987…498d Line {l1=0x04, l2=»END;«, l3=0x04}
0x498d…4995 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4995…49cc Line {l1=0x35, l2=»PROCEDURE INT(TYP,NR,FELT:INTEGER;VAR HJÆLP:INTEGER);«, l3=0x35}
0x49cc…49d3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x49d3…49de Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x49de…49ef Line {l1=0x0f, l2=» CASE TYP OF «, l3=0x0f}
0x49ef…4a21 Line {l1=0x30, l2=» 1:HJÆLP:=POST(NR).A(PICTURE(NR,FELT)^.INDEKS);«, l3=0x30}
0x4a21…4a53 Line {l1=0x30, l2=» 2:POST(NR).A(PICTURE(NR,FELT)^.INDEKS):=HJÆLP;«, l3=0x30}
0x4a53…4a5b Line {l1=0x06, l2=» END;«, l3=0x06}
0x4a5b…4a66 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x4a66…4a6c Line {l1=0x04, l2=»END;«, l3=0x04}
0x4a6c…4a70 Line {l1=0x02, l2=» «, l3=0x02}
0x4a70…4a78 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4a78…4a8f Line {l1=0x15, l2=»PROCEDURE SKRIVHOVED;«, l3=0x15}
0x4a8f…4a96 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4a96…4aa6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4aa6…4ab7 Line {l1=0x0f, l2=» GOTOXY(10,1);«, l3=0x0f}
0x4ab7…4af7 Line {l1=0x3e, l2=» WRITELN('F I L T R A N S '); «, l3=0x3e}
0x4af7…4afd Line {l1=0x04, l2=»END;«, l3=0x04}
0x4afd…4b05 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4b05…4b29 Line {l1=0x22, l2=»PROCEDURE ÅBEN(NR9,FILNR:INTEGER);«, l3=0x22}
0x4b29…4b30 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4b30…4b7b Line {l1=0x49, l2=» (*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*) «, l3=0x49}
0x4b7b…4bc9 Line {l1=0x4c, l2=» LÆSDESC(NR9); «, l3=0x4c}
0x4bc9…4c16 Line {l1=0x4b, l2=» (*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*) «, l3=0x4b}
0x4c16…4c61 Line {l1=0x49, l2=» MODE:=3;(*SKRIV*) «, l3=0x49}
0x4c61…4cac Line {l1=0x49, l2=» LINES:=100; (*$R-*) «, l3=0x49}
0x4cac…4cf5 Line {l1=0x47, l2=» POST(NR9).A(-3):=FILNR; (*$R+*)«, l3=0x47}
0x4cf5…4d42 Line {l1=0x4b, l2=» IOPEN(POST(NR9).A);IF IER<>0 THEN OFEJL(POST(NR9).A); «, l3=0x4b}
0x4d42…4d48 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4d48…4d4b Line {l1=0x01, l2=» «, l3=0x01}
0x4d4b…4d68 Line {l1=0x1b, l2=»PROCEDURE LUK(NR9:INTEGER);«, l3=0x1b}
0x4d68…4d6f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4d6f…4d87 Line {l1=0x16, l2=» ICLOSE(POST(NR9).A);«, l3=0x16}
0x4d87…4d8d Line {l1=0x04, l2=»END;«, l3=0x04}
0x4d8d…4d90 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x4d93…4da6 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x4da6…4db6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4db6…4dc5 Line {l1=0x0d, l2=» SKRIVHOVED;«, l3=0x0d}
0x4dc5…4de6 Line {l1=0x1f, l2=» DESCNAVN:='OVERFØRE:P2:05:J';«, l3=0x1f}
0x4de6…4df5 Line {l1=0x0d, l2=» LÆSDESC(1);«, l3=0x0d}
0x4df5…4e04 Line {l1=0x0d, l2=» NULPOST(1);«, l3=0x0d}
0x4e04…4e21 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(1,1),1); «, l3=0x1b}
0x4e21…4e3d Line {l1=0x1a, l2=» LÆSFELT(PICTURE(1,2),1);«, l3=0x1a}
0x4e3d…4e5c Line {l1=0x1d, l2=» MOVETOLINE(PICTURE(1,1),1);«, l3=0x1d}
0x4e5c…4e81 Line {l1=0x23, l2=» DESCNAVN:=LINE;INT(1,1,2,FRAFIL);«, l3=0x23}
0x4e81…4ea7 Line {l1=0x24, l2=» ÅBEN(2,FRAFIL); «, l3=0x24}
0x4ea7…4ec4 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(1,3),1); «, l3=0x1b}
0x4ec4…4ee0 Line {l1=0x1a, l2=» LÆSFELT(PICTURE(1,4),1);«, l3=0x1a}
0x4ee0…4eff Line {l1=0x1d, l2=» MOVETOLINE(PICTURE(1,3),1);«, l3=0x1d}
0x4eff…4f24 Line {l1=0x23, l2=» DESCNAVN:=LINE;INT(1,1,4,TILFIL);«, l3=0x23}
0x4f24…4f4a Line {l1=0x24, l2=» ÅBEN(3,TILFIL); «, l3=0x24}
0x4f4a…4f76 Line {l1=0x2a, l2=»(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2a}
0x4f76…4f97 Line {l1=0x1f, l2=» FOR I:=1 TO ANTALFELTER(3) DO«, l3=0x1f}
0x4f97…4fa0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4fa0…4faa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4faa…4fb9 Line {l1=0x0d, l2=» OK:=TRUE;«, l3=0x0d}
0x4fb9…4fcc Line {l1=0x11, l2=» GOTOXY(1,22);«, l3=0x11}
0x4fcc…4ff8 Line {l1=0x2a, l2=» WRITELN('Nu behandles feltnr : ',I:3);«, l3=0x2a}
0x4ff8…5016 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(1,5),1);«, l3=0x1c}
0x5016…5032 Line {l1=0x1a, l2=» INT(1,1,5,FRAFELT(I));«, l3=0x1a}
0x5032…506a Line {l1=0x36, l2=» IF (FRAFELT(I)>0) AND (FRAFELT(I)<=MAXFELTER) THEN«, l3=0x36}
0x506a…50af Line {l1=0x43, l2=» IF PICTURE(2,FRAFELT(I))^.FELTTYPE<>PICTURE(3,I)^.FELTTYPE THEN«, l3=0x43}
0x50af…50da Line {l1=0x29, l2=» OK:=FALSE;«, l3=0x29}
0x50da…50e7 Line {l1=0x0b, l2=» UNTIL OK;«, l3=0x0b}
0x50e7…50ef Line {l1=0x06, l2=» END;«, l3=0x06}
0x50ef…5100 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x5100…510c Line {l1=0x0a, l2=» CH:='J';«, l3=0x0a}
0x510c…5140 Line {l1=0x32, l2=» WRITELN('Ønskes overførsel (J/N)',' ':50);«, l3=0x32}
0x5140…515b Line {l1=0x19, l2=» GOTOXY(31,23);EDIT(CH);«, l3=0x19}
0x515b…517b Line {l1=0x1e, l2=» IF (CH='J') OR (CH='j') THEN«, l3=0x1e}
0x517b…5184 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5184…5195 Line {l1=0x0f, l2=» NULPOST(2);«, l3=0x0f}
0x5195…51a7 Line {l1=0x10, l2=» STOP:=FALSE;«, l3=0x10}
0x51a7…51bf Line {l1=0x16, l2=» WHILE NOT(STOP) DO«, l3=0x16}
0x51bf…51ca Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x51ca…51e5 Line {l1=0x19, l2=» NEXTREC(POST(2).A);«, l3=0x19}
0x51e5…521d Line {l1=0x36, l2=» IF NOT(-IER IN(.0..2,9.)) THEN ERROR(POST(2).A);«, l3=0x36}
0x521d…523f Line {l1=0x20, l2=» IF IER=-9 THEN STOP:=TRUE;«, l3=0x20}
0x523f…5256 Line {l1=0x15, l2=» IF IER=-2 THEN «, l3=0x15}
0x5256…526b Line {l1=0x13, l2=» STOP:=TRUE «, l3=0x13}
0x526b…5277 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x5277…5284 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5284…5299 Line {l1=0x13, l2=» NULPOST(3);«, l3=0x13}
0x5299…52c0 Line {l1=0x25, l2=» FOR I:=1 TO ANTALFELTER(3) DO«, l3=0x25}
0x52c0…52cf Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x52cf…5309 Line {l1=0x38, l2=» IF FRAFELT(I)<>0 THEN SÆTKEY(FRAFELT(I),I,2,3)«, l3=0x38}
0x5309…5317 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5317…5335 Line {l1=0x1c, l2=» IF NOT FILEINIT THEN«, l3=0x1c}
0x5335…5344 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x5344…535f Line {l1=0x19, l2=» FILEINIT:=TRUE;«, l3=0x19}
0x535f…5371 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x5371…538c Line {l1=0x19, l2=» GOTOXY(1,23);«, l3=0x19}
0x538c…53c1 Line {l1=0x33, l2=» WRITELN('ANTAL INITIALISERINGSPOSTER');«, l3=0x33}
0x53c1…53dd Line {l1=0x1a, l2=» GOTOXY(30,23);«, l3=0x1a}
0x53dd…53fd Line {l1=0x1e, l2=» READLN;READ(IREC);«, l3=0x1e}
0x53fd…5429 Line {l1=0x2a, l2=» UNTIL (IORESULT=0) AND (IREC>0);«, l3=0x2a}
0x5429…5449 Line {l1=0x1e, l2=» INITIATE(POST(3).A);«, l3=0x1e}
0x5449…5475 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(POST(3).A);«, l3=0x2a}
0x5475…5483 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5483…549f Line {l1=0x1a, l2=» INSERT(POST(3).A);«, l3=0x1a}
0x549f…54c9 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(POST(3).A);«, l3=0x28}
0x54c9…54d4 Line {l1=0x09, l2=» END«, l3=0x09}
0x54d4…54dd Line {l1=0x07, l2=» END«, l3=0x07}
0x54dd…54e5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x54e5…54f0 Line {l1=0x09, l2=» LUK(2);«, l3=0x09}
0x54f0…54fb Line {l1=0x09, l2=» LUK(3);«, l3=0x09}
0x54fb…5525 Line {l1=0x28, l2=»(*@@ LUKNING AF EVENTUELLE ANDRE FILER*)«, l3=0x28}
0x5525…5534 Line {l1=0x0d, l2=» SKRIVHOVED;«, l3=0x0d}
0x5534…5552 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(6,IER);«, l3=0x1c}
0x5552…5558 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5558…5560 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5560…5567 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5567…5585 Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x5585…55c5 Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x55c5…55f3 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x55f3…560d Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x560d…5625 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x5625…563b Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x563b…564b Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x564b…5654 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5654…5677 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x5677…5683 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x5683…56d3 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x56d3…56e3 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x56e3…5723 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x5723…5773 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x5773…578c Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x578c…57a6 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x57a6…57c4 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x57c4…57d5 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x57d5…57e1 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x57e1…57f9 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x57f9…5812 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x5812…5830 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x5830…5845 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x5845…586d Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x586d…58a3 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);«, l3=0x34}
0x58a3…58d8 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x58d8…58de Line {l1=0x04, l2=»END.«, l3=0x04}
0x58de…58e0 00 00 ┆ ┆
0x58e0…5900 11 50 52 4f 47 52 41 4d 20 4f 56 45 52 46 5c 52 45 3b 11 3e 28 2a 4f 56 45 52 46 5c 52 53 45 4c ┆ PROGRAM OVERFØRE; >(*OVERFØRSEL┆
0x5900…5920 20 41 46 20 44 41 54 41 20 4d 45 4c 4c 45 4d 20 32 20 46 49 4c 45 52 20 56 45 44 20 54 49 4c 46 ┆ AF DATA MELLEM 2 FILER VED TILF┆
0x5920…5940 5c 4a 45 4c 53 45 20 41 46 20 46 45 4c 54 45 52 2a 29 3e 3d 28 2a 55 44 56 49 44 45 4c 53 45 20 ┆ØJELSE AF FELTER*)>=(*UDVIDELSE ┆
0x5940…5960 41 46 20 46 49 4c 45 4e 20 45 4c 4c 45 52 20 41 4e 44 45 54 20 4f 56 45 52 46 5c 52 53 4c 45 4e ┆AF FILEN ELLER ANDET OVERFØRSLEN┆
0x5960…5980 20 46 4f 52 45 47 5d 52 20 56 45 44 20 41 54 2a 29 3d 3d 28 2a 49 4e 44 4c 5b 53 45 20 44 45 20 ┆ FOREGÅR VED AT*)==(*INDLÆSE DE ┆
0x5980…59a0 54 4f 20 44 45 53 43 52 49 50 54 49 4f 4e 20 46 49 4c 45 52 20 4f 47 20 41 4e 47 49 56 45 20 46 ┆TO DESCRIPTION FILER OG ANGIVE F┆
0x59a0…59c0 49 4c 4e 55 4d 52 45 4e 45 20 53 41 4d 54 2a 29 3d 36 28 2a 49 4e 44 54 41 53 54 45 20 53 41 4d ┆ILNUMRENE SAMT*)=6(*INDTASTE SAM┆
0x59c0…59e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4f…]
0x63c0…63e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆