|
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: 30528 (0x7740)
Types: TextFile
Notes: Mikados_K
Names: »HOVED.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »HOVED.K«
PROGRAM HOVED;
CONST LNGTH=20;
TIMER=120;
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);
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;
C,CH :CHAR;
F:STRING(11);
QUQ:^INTEGER;
I:INTEGER;
FNAVN,REGNAVN,DESCNAVN:STRING;
(*$P*)
PROCEDURE KODEVEDL;
TYPE
ENTRY=RECORD
KODE:STRING(9);
NIV:INTEGER
END;
KODER=ARRAY (1..20) OF ENTRY;
KODEFIL=FILE OF KODER;
VAR F:KODEFIL;
FNAVN:STRING(20);
USERKODE:STRING(9);
NIVEAUD:ARRAY (0..6) OF STRING(8);
I,J:INTEGER;
BEGIN
NIVEAUD(0):='MENIG ';
NIVEAUD(1):='SERGENT ';
NIVEAUD(2):='LØJTNANT';
NIVEAUD(3):='KAPTAJN ';
NIVEAUD(4):='MAJOR ';
NIVEAUD(5):='OBERST ';
NIVEAUD(6):='GENERAL ';
FNAVN:='KODEFIL:P2:1:J';
REWRITE(F,FNAVN);
SEEK(F,1);
GET(F);
CLEARSCREEN;
(*$XO*) FOR I:=1 TO 20 DO BEGIN F^(I).KODE:=' ';F^(I).NIV:=0 END;
(*$X-*)
IF PARM^(1)='0' THEN
BEGIN
USERKODE:=' ';
REPEAT
GOTOXY(1,1);
WRITELN('Indtast kode');
GOTOXY(14,1);EDIT(USERKODE:9);
FOR I:=1 TO 20 DO
IF F^(I).KODE=USERKODE THEN
BEGIN
PARM^(1):=CHR(F^(I).NIV+48);
I:=30
END
UNTIL I>30
END
ELSE
BEGIN
FOR I:=1 TO 20 DO WRITELN(F^(I).KODE,' ':10,NIVEAUD(F^(I).NIV));
REPEAT
GOTOXY(1,23);
WRITELN('Kode nr 0 for færdig');
GOTOXY(9,23);
READLN;READ(I);
IF (I>0) AND (I<21) THEN
BEGIN
GOTOXY(1,22);
USERKODE:=F^(I).KODE;
EDIT(USERKODE:9);
F^(I).KODE:=USERKODE;
REPEAT
GOTOXY(20,22);
USERKODE:=NIVEAUD(F^(I).NIV);
EDIT(USERKODE:8);
FOR J:=0 TO 6 DO
IF NIVEAUD(J)=USERKODE THEN
BEGIN
F^(I).NIV:=J;
J:=20
END
UNTIL J>20
END
UNTIL I=0;
SEEK(F,1);
PUT(F)
END;
CLOSE(F);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END;
(*$P*)
PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);
EXTERNAL;
FUNCTION AVAIL:BOOLEAN;
EXTERNAL;
FUNCTION NEXT:CHAR;
EXTERNAL;
PROCEDURE FINIS;
EXTERNAL;
(*$P*)
PROCEDURE UR;
BEGIN
SETUP(DBUF,LNGTH);
C:=' ';
IF TÆNDT THEN
BEGIN
GOTOXY(62,1);WRITE('Alarm');
IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;
GOTOXY(62,2);WRITE('Time');
END;
SV:=-1;
REPEAT
IF C<>CLOCK^.TIME(8) THEN
BEGIN
IF TÆNDT THEN
BEGIN
GOTOXY(67,2);
WRITE(CLOCK^.TIME);
END;
C:=CLOCK^.TIME(8);
OFFSET:=TIME;
IF STIMER>0 THEN STIMER:=STIMER-1
END;
IF TÆNDT THEN
BEGIN
GOTOXY(76,2);
WRITE((TIME-OFFSET) MOD 100:4);
END;
IF STOPWATCH THEN
BEGIN
IF (TIME<0) AND (TT>0) THEN
SEC100:=SEC100+(32767-TT)+(32767+TIME+2)
ELSE
SEC100:=SEC100+TIME-TT;
TT:=TIME;
SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;
MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;
IF TÆNDT THEN
BEGIN
GOTOXY(60,3);
WRITE(MIN:4,SEC:3,SEC100:3);
END;
END;
IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;
IF TÆNDT THEN
IF HOWL THEN WRITE(CHR(7));
IF AVAIL THEN
BEGIN
CH:=NEXT;
IF TÆNDT OR (CH='T') OR (CH IN (.'0'..'9'.)) THEN
CASE CH OF
'S':BEGIN
STOPWATCH:=NOT(STOPWATCH);
IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;
END;
'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;
'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;
'T':TÆNDT:=NOT TÆNDT;
'0','1','2','3','4','5','6','7','8','9':BEGIN FINIS;SV:=ORD(CH)-48;
WRITELN(SV) END;
'M':BEGIN
GOTOXY(70,3);
IF STOPWATCH THEN
WRITE(MIN:4,SEC:3,SEC100:3);
END;
'A':BEGIN
HOWL:=FALSE;
ALARM:=NOT(ALARM);
CLOCK^.DATE(9):='0';
IF ALARM THEN
BEGIN
CLOCK^.DATE(9):='1';
GOTOXY(72,1);
FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;
ALARMTIME(I):=CLOCK^.DATE(I)
END;
GOTOXY(72,1);WRITE(ALARMTIME)
END;
END;
END;
END;
UNTIL SV>-1
END;
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
MAXZONE=1000;
MAXPOST=250;
(*$IISFHEAD*)
ZZONE =RECORD
H:ISFHEAD;
T:ARRAY(1..MAXZONE) OF INTEGER
END;
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;
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS:INTEGER;
LÆNGDE:INTEGER;
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;
FELTFIL=FILE OF FELTBESKRIVELSE;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXPOST) OF INTEGER
END;
SYSPOST=RECORD
MINUTFAKTOR:ARRAY (1..5) OF REAL;
DAT1,DAT2:INTEGER
END;
SYSFILE=FILE OF SYSPOST;
VAR FELT:NFELT;
SF:SYSFILE;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;
LINES,OPTION,IER,I,J,ANTALFELTER,ANTALNØGLER:INTEGER;
CH:STRING(1);
LINE:STRING;
FFIL:FELTFIL;
REGISTER:ISF;
ZONE:ZZONE;
POST:PPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IINITIATE*)
(*$IREPORT*)
(*$L+*)
(*$P*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
IF LINES>0 THEN PAGE(LIST);
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER,' RETURN');
CH:=' ';EDIT(CH);IF CH='R' THEN REPORT(ZONE.H,REGISTER,1);
ICLOSE(ZONE.H,REGISTER);
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(FIL);
CLEARSCREEN
END;
(*$P*)
PROCEDURE LÆSDESC;
BEGIN
REWRITE(FFIL,DESCNAVN);
GET(FFIL);
I:=0;
ANTALNØGLER:=0;
WHILE FFIL^.INDPOS.X>0 DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(I);
WITH PICTURE(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:=ANTALNØGLER+1;
NØGLER(ANTALNØGLER):=PICTURE(I)
END;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
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:=I
END;
(*$P*)
PROCEDURE MOVETOLINE(VAR F:NFELT);
VAR CH:STRING(1);
TAL,DECS,I:INTEGER;
RESULT,DM,DD:REAL;
BEGIN
CH:=' ';
CASE F^.FELTTYPE OF
HELTAL:BEGIN
LINE:='';
TAL:=ABS(POST.A(F^.INDEKS));
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);
IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)
END;
DOBBTAL:BEGIN
LINE:='';
RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));
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);
IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN
LINE:=CONCAT('-',LINE)
END;
TEKST:BEGIN
LINE:='';
FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO
BEGIN
CH(1):=POST.AA(I);
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN
RESULT:=ABS(POST.AAA(F^.INDEKS));
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;
IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)
END
END
END;
(*$P*)
PROCEDURE NULPOST;
VAR I,J:INTEGER;
BEGIN
FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO
BEGIN
CASE FELTTYPE OF
HELTAL:POST.A(INDEKS):=0;
DOBBTAL:BEGIN
POST.A(INDEKS):=0;
POST.A(INDEKS+1):=0
END;
REEL:POST.AAA(INDEKS):=0.0;
TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO
POST.AA(I):=' ';
END
END
END;
PROCEDURE SKRIVFELT(VAR F:NFELT);
BEGIN
IF USERNIVEAU>=F^.KIKKENIVEAU THEN
BEGIN
GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);
WRITE(F^.LEDETEKST,' ');
MOVETOLINE(F);
WRITELN(LINE);
END
END;
PROCEDURE SKRIVPOST;
VAR I:INTEGER;
BEGIN
CLEARSCREEN;
FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));
END;
PROCEDURE PRINTPOST;
VAR I:INTEGER;
BEGIN
FOR I:=1 TO ANTALFELTER DO
BEGIN
WRITE(LIST,PICTURE(I)^.LEDETEKST,' ');
MOVETOLINE(PICTURE(I));
LINES:=LINES+1;
WRITELN(LIST,LINE)
END
END;
(*$P*)
PROCEDURE LÆSFELT(VAR F:NFELT);
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);
WRITELN(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);
EDIT(LINE:F^.LÆNGDE);
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1)
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
HELTAL:POST.A(F^.INDEKS):=TAL;
DOBBTAL:BEGIN
POST.A(F^.INDEKS):=TAL;
POST.A(F^.INDEKS+1):=TAL1
END;
REEL:POST.AAA(F^.INDEKS):=RESULT;
TEKST:FOR I:=1 TO F^.LÆNGDE DO
POST.AA(I+F^.INDEKS-1):=LINE(I)
END
END
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR J:INTEGER;
CH:STRING(1);
BEGIN
CLEARSCREEN;
IF OPTION<>4 THEN
BEGIN
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS;
NULPOST;
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;
GETREC(ZONE.H,REGISTER,POST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(ZONE.H.FILENAME);
IF EOF THEN
BEGIN
IF IER=-6 THEN
BEGIN
NEXTREC(ZONE.H,REGISTER,POST.A);
IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(ZONE.H.FILENAME)
END;
REPEAT
SKRIVPOST;
GOTOXY(1,23);
CH:='F';
WRITELN('Rigtig post R, Flere poster F, Stop S');
GOTOXY(39,23);
EDIT(CH);
IF CH='F' THEN
BEGIN
NEXTREC(ZONE.H,REGISTER,POST.A);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(ZONE.H.FILENAME)
END
UNTIL CH<>'F';
GOTOXY(1,23);WRITELN(' ':77);
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;
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);
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 LÆSFELT(PICTURE(J))
UNTIL J=0;
PUTREC(ZONE.H,REGISTER,POST.A);
IF IER<>0 THEN ERROR(ZONE.H.FILENAME)
END;
2: BEGIN WRITELN('Tryk RETURN');READLN END;
3: BEGIN
REPEAT
GOTOXY(1,23);
WRITELN('Antal poster, 0 for resten');
GOTOXY(28,23);
READLN;READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<=ZONE.H.RECINUSE);
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(ZONE.H,REGISTER,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(ZONE.H.FILENAME) ELSE IER:=0
END;
4: BEGIN
NULPOST;
SKRIVPOST;
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS;
FOR J:=1 TO ANTALFELTER DO LÆSFELT(PICTURE(J));
USERNIVEAU:=HUSKNIV;
IF (NOT ZONE.H.FILEINIT) AND (ZONE.H.RECINUSE=0) THEN
BEGIN
GOTOXY(1,23);
WRITELN('ANTAL INITIALISERINGSPOSTER');
GOTOXY(30,23);
READLN;READ(J);
INITIATE(ZONE.H,REGISTER,J);
IF IER<>0 THEN ERROR(ZONE.H.FILENAME)
END;
INSERT(ZONE.H,REGISTER,POST.A);
IF IER<>0 THEN
IF IER=-7 THEN
BEGIN
WRITELN('Posten findes, RETURN');READLN
END
ELSE ERROR(ZONE.H.FILENAME)
END;
5: BEGIN
GOTOXY(1,20);
CH:='J';
WRITELN('Sletning korrekt J/N');
GOTOXY(22,20);EDIT(CH);
IF CH='J' THEN
BEGIN
DELETE(ZONE.H,REGISTER,POST.A);
IF IER=-9 THEN
BEGIN
WRITELN('Eneste post, kan ikke slettes, RETURN');
READLN;
IER:=0
END;
IF IER<>0 THEN ERROR(ZONE.H.FILENAME)
END
END
END
END;
(*$P*)
BEGIN
CLEARSCREEN;
IF REGNAVN='S' THEN
BEGIN
REWRITE(SF,FNAVN);
SEEK(SF,1);
GET(SF);
FOR I:=1 TO 5 DO POST.AAA(I):=SF^.MINUTFAKTOR(I);
POST.A(21):=SF^.DAT1;
POST.A(22):=SF^.DAT2;
LÆSDESC;
REPEAT
SKRIVPOST;
REPEAT
GOTOXY(1,23);
I:=0;
WRITELN('Feltnr, 0 for færdig ',I);
GOTOXY(22,23);READLN;
IF NOT (EOLN OR (INPUT^=' ')) THEN READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=ANTALFELTER);
IF I>0 THEN LÆSFELT(PICTURE(I))
UNTIL I=0;
SEEK(SF,1);
FOR I:=1 TO 5 DO SF^.MINUTFAKTOR(I):=POST.AAA(I);
SF^.DAT1:=POST.A(21);
SF^.DAT2:=POST.A(22);
PUT(SF);
CLOSE(SF)
END
ELSE
BEGIN
LINES:=100;
ZONE.H.FILENAME:=' ';
FOR I:=1 TO POS(':',FNAVN)-1 DO ZONE.H.FILENAME(I):=FNAVN(I);
REWRITE(REGISTER,FNAVN);
IOPEN(ZONE.H,REGISTER,SKRIV);IF IER<>0 THEN OFEJL(ZONE.H.FILENAME);
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
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<=6);
IF OPTION>0 THEN
BEGIN
IF (OPTION=6) AND (USERNIVEAU>=HSM) THEN
BEGIN
WRITELN('REPORT, SBUC');READLN;READ(I);
IF I>0 THEN REPORT(ZONE.H,REGISTER,I)
END
ELSE
IF OPTION<6 THEN MAINTAIN
END
UNTIL OPTION=0;
IF LINES<>100 THEN PAGE(LIST);
ICLOSE(ZONE.H,REGISTER);
CLEARSCREEN;
WRITELN('ICLOSE ',IER)
END
END;
(*$P*)
PROCEDURE DOIT;
PROCEDURE PROGVALG;
BEGIN
WRITELN(' ':20,'0 Stop');
WRITELN;
WRITELN(' ':20,'1 Kartoteksvedligeholdelse');
WRITELN;
WRITELN(' ':20,'2 Forkalkulation');
WRITELN;
WRITELN(' ':20,'3 Registrering af arbejdssedler');
WRITELN;
WRITELN(' ':20,'4 Ordreforespørgsel');
WRITELN;
WRITELN(' ':20,'5 Afslutning af ordre');
WRITELN;
WRITELN(' ':20,'6 Lønliste');
WRITELN;
WRITELN(' ':20,'7 Produktforespørgsel');
WRITELN;
WRITELN(' ':20,'8 Indtast ny adgangskode');
IF USERNIVEAU>=GENERAL THEN
BEGIN
WRITELN;
WRITELN(' ':20,'9 Privilegerede funktioner')
END;
GOTOXY(1,22);WRITELN('Vælg funktion');
GOTOXY(15,22);
STIMER:=TIMER;
UR;
IF STIMER=0 THEN BEGIN USERNIVEAU:=MENIG;PARM^(1):='0' END;
I:=SV;
CLEARSCREEN
END;
(*$P*)
BEGIN
PROGVALG;
CASE I OF
9: IF USERNIVEAU>=GENERAL THEN
BEGIN
IF USERNIVEAU>=HSM THEN
BEGIN
WRITELN(' ':20,'1 Skærmbilledopbygning');
WRITELN
END;
WRITELN(' ':20,'2 Ændring af adgangskoder');
GOTOXY(1,20);
WRITELN('Vælg funktion');
REPEAT
GOTOXY(15,20);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<3);
CASE I OF
1: IF USERNIVEAU>=HSM THEN F:='SKÆRMBIL:P2';
2: KODEVEDL;
END
END;
8: BEGIN
PARM^(1):='0';
KODEVEDL;
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END
END;
1: IF USERNIVEAU>=OBERST THEN
BEGIN
WRITELN(' ':20,'0 Systemregister');
WRITELN;
WRITELN(' ':20,'1 Operationsregister');
WRITELN;
WRITELN(' ':20,'2 Medarbejderregister');
IF USERNIVEAU>=HSM THEN
BEGIN
WRITELN;
WRITELN(' ':20,'3 Ordreregister');
WRITELN;
WRITELN(' ':20,'4 Operationslinieregister');
WRITELN;
WRITELN(' ':20,'5 Registreringslinieregister');
WRITELN;
WRITELN(' ':20,'6 Historisk produktregister')
END;
WRITELN;
GOTOXY(1,20);WRITELN('Vælg register');
REPEAT
GOTOXY(15,20);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<7);
CASE I OF
0: BEGIN
FNAVN:='SYSREG:P2:1:I';
DESCNAVN:='SYSRDESC:P2:0000:J';
REGNAVN:='S'
END;
1: BEGIN
FNAVN:='OPERAREG:P2:0000:I';
DESCNAVN:='OPERDESC:P2:0000:J';
REGNAVN:='O P E R A T I O N S -'
END;
2: BEGIN
FNAVN:='MEDARREG:P2:0000:I';
DESCNAVN:='MEDADESC:P2:0000:J';
REGNAVN:='M E D A R B E J D E R -'
END;
3: BEGIN
FNAVN:='ORDREREG:P2:0000:I';
DESCNAVN:='ORDRDESC:P2:0000:J';
REGNAVN:='O R D R E -'
END;
4: BEGIN
FNAVN:='OPLINREG:P2:0000:I';
DESCNAVN:='OPLIDESC:P2:0000:J';
REGNAVN:='OPERATIONSLINIE -'
END;
5: BEGIN
FNAVN:='REGLIREG:P2:0000:I';
DESCNAVN:='REGLDESC:P2:0000:J';
REGNAVN:='REGISTRERINGSLINIE -'
END;
6: BEGIN
FNAVN:='HISTOREG:P2:0000:I';
DESCNAVN:='HISTDESC:P2:0000:J';
REGNAVN:='H I S T O R I E -'
END
END;
IF (I<3) OR (USERNIVEAU>=HSM) THEN
BEGIN
MARK(QUQ);
REGVEDL;
RELEASE(QUQ)
END
END;
0: F:='STOP';
2: IF USERNIVEAU>=OBERST THEN F:='FORKALK:P2';
3: IF USERNIVEAU>=SERGENT THEN F:='TIDSFORB:P2';
4: F:='ORDSPØRG:P2';
5: IF USERNIVEAU>=OBERST THEN F:='ORDAFSLT:P2';
6: IF USERNIVEAU>=SERGENT THEN F:='LØNLISTE:P2';
7: F:='PROSPØRG:P2';
END;
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;
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END;
REPEAT
F:=' ';
CLEARSCREEN;
DOIT;
UNTIL F<>' ';
IF F<>'STOP' THEN
BEGIN
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('INTRE,',F,',',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END
END.
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM HOVED;«, l3=0x0e}
0x0010…0021 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0021…0033 Line {l1=0x10, l2=» TIMER=120;«, l3=0x10}
0x0033…0039 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0039…0062 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0062…008e Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x008e…00a4 Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x00a4…00d7 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x00d7…0108 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0108…011c Line {l1=0x12, l2=» END;«, l3=0x12}
0x011c…0167 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0167…0180 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0180…019c Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x019c…01d0 Line {l1=0x32, l2=» STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x32}
0x01d0…01fc Line {l1=0x2a, l2=» TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x2a}
0x01fc…022b Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x022b…0243 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x0243…025e Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x025e…0272 Line {l1=0x12, l2=» C,CH :CHAR;«, l3=0x12}
0x0272…0288 Line {l1=0x14, l2=» F:STRING(11);«, l3=0x14}
0x0288…029e Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x029e…02b1 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x02b1…02d8 Line {l1=0x25, l2=» FNAVN,REGNAVN,DESCNAVN:STRING;«, l3=0x25}
0x02d8…02e0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x02e0…02f5 Line {l1=0x13, l2=»PROCEDURE KODEVEDL;«, l3=0x13}
0x02f5…02fb Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x02fb…0309 Line {l1=0x0c, l2=»ENTRY=RECORD«, l3=0x0c}
0x0309…0322 Line {l1=0x17, l2=» KODE:STRING(9);«, l3=0x17}
0x0322…0337 Line {l1=0x13, l2=» NIV:INTEGER«, l3=0x13}
0x0337…033d Line {l1=0x04, l2=»END;«, l3=0x04}
0x033d…035c Line {l1=0x1d, l2=»KODER=ARRAY (1..20) OF ENTRY;«, l3=0x1d}
0x035c…0374 Line {l1=0x16, l2=»KODEFIL=FILE OF KODER;«, l3=0x16}
0x0374…0384 Line {l1=0x0e, l2=»VAR F:KODEFIL;«, l3=0x0e}
0x0384…039b Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x039b…03b4 Line {l1=0x17, l2=» USERKODE:STRING(9);«, l3=0x17}
0x03b4…03dc Line {l1=0x26, l2=» NIVEAUD:ARRAY (0..6) OF STRING(8);«, l3=0x26}
0x03dc…03ee Line {l1=0x10, l2=» I,J:INTEGER;«, l3=0x10}
0x03ee…03f5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03f5…0410 Line {l1=0x19, l2=» NIVEAUD(0):='MENIG ';«, l3=0x19}
0x0410…042b Line {l1=0x19, l2=» NIVEAUD(1):='SERGENT ';«, l3=0x19}
0x042b…0446 Line {l1=0x19, l2=» NIVEAUD(2):='LØJTNANT';«, l3=0x19}
0x0446…0461 Line {l1=0x19, l2=» NIVEAUD(3):='KAPTAJN ';«, l3=0x19}
0x0461…047c Line {l1=0x19, l2=» NIVEAUD(4):='MAJOR ';«, l3=0x19}
0x047c…0497 Line {l1=0x19, l2=» NIVEAUD(5):='OBERST ';«, l3=0x19}
0x0497…04b2 Line {l1=0x19, l2=» NIVEAUD(6):='GENERAL ';«, l3=0x19}
0x04b2…04ce Line {l1=0x1a, l2=» FNAVN:='KODEFIL:P2:1:J';«, l3=0x1a}
0x04ce…04e3 Line {l1=0x13, l2=» REWRITE(F,FNAVN);«, l3=0x13}
0x04e3…04f1 Line {l1=0x0c, l2=» SEEK(F,1);«, l3=0x0c}
0x04f1…04fc Line {l1=0x09, l2=» GET(F);«, l3=0x09}
0x04fc…050c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x050c…0557 Line {l1=0x49, l2=»(*$XO*) FOR I:=1 TO 20 DO BEGIN F^(I).KODE:=' ';F^(I).NIV:=0 END;«, l3=0x49}
0x0557…0560 Line {l1=0x07, l2=»(*$X-*)«, l3=0x07}
0x0560…0578 Line {l1=0x16, l2=» IF PARM^(1)='0' THEN«, l3=0x16}
0x0578…0581 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0581…059d Line {l1=0x1a, l2=» USERKODE:=' ';«, l3=0x1a}
0x059d…05a9 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x05a9…05bd Line {l1=0x12, l2=» GOTOXY(1,1);«, l3=0x12}
0x05bd…05dd Line {l1=0x1e, l2=» WRITELN('Indtast kode');«, l3=0x1e}
0x05dd…0603 Line {l1=0x24, l2=» GOTOXY(14,1);EDIT(USERKODE:9);«, l3=0x24}
0x0603…061c Line {l1=0x17, l2=» FOR I:=1 TO 20 DO«, l3=0x17}
0x061c…063f Line {l1=0x21, l2=» IF F^(I).KODE=USERKODE THEN«, l3=0x21}
0x063f…064c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x064c…0672 Line {l1=0x24, l2=» PARM^(1):=CHR(F^(I).NIV+48);«, l3=0x24}
0x0672…0681 Line {l1=0x0d, l2=» I:=30«, l3=0x0d}
0x0681…068c Line {l1=0x09, l2=» END«, l3=0x09}
0x068c…069c Line {l1=0x0e, l2=» UNTIL I>30«, l3=0x0e}
0x069c…06a3 Line {l1=0x05, l2=» END«, l3=0x05}
0x06a3…06ab Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x06ab…06b4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06b4…06fa Line {l1=0x44, l2=» FOR I:=1 TO 20 DO WRITELN(F^(I).KODE,' ':10,NIVEAUD(F^(I).NIV));«, l3=0x44}
0x06fa…0706 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0706…071b Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x071b…0747 Line {l1=0x2a, l2=» WRITELN('Kode nr 0 for færdig');«, l3=0x2a}
0x0747…075c Line {l1=0x13, l2=» GOTOXY(9,23);«, l3=0x13}
0x075c…0773 Line {l1=0x15, l2=» READLN;READ(I);«, l3=0x15}
0x0773…0793 Line {l1=0x1e, l2=» IF (I>0) AND (I<21) THEN«, l3=0x1e}
0x0793…07a0 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07a0…07b7 Line {l1=0x15, l2=» GOTOXY(1,22);«, l3=0x15}
0x07b7…07d6 Line {l1=0x1d, l2=» USERKODE:=F^(I).KODE;«, l3=0x1d}
0x07d6…07f1 Line {l1=0x19, l2=» EDIT(USERKODE:9);«, l3=0x19}
0x07f1…0810 Line {l1=0x1d, l2=» F^(I).KODE:=USERKODE;«, l3=0x1d}
0x0810…0820 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0820…083a Line {l1=0x18, l2=» GOTOXY(20,22);«, l3=0x18}
0x083a…0863 Line {l1=0x27, l2=» USERKODE:=NIVEAUD(F^(I).NIV);«, l3=0x27}
0x0863…0880 Line {l1=0x1b, l2=» EDIT(USERKODE:8);«, l3=0x1b}
0x0880…089c Line {l1=0x1a, l2=» FOR J:=0 TO 6 DO«, l3=0x1a}
0x089c…08c3 Line {l1=0x25, l2=» IF NIVEAUD(J)=USERKODE THEN«, l3=0x25}
0x08c3…08d4 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x08d4…08ef Line {l1=0x19, l2=» F^(I).NIV:=J;«, l3=0x19}
0x08ef…0902 Line {l1=0x11, l2=» J:=20«, l3=0x11}
0x0902…0911 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0911…0925 Line {l1=0x12, l2=» UNTIL J>20«, l3=0x12}
0x0925…0930 Line {l1=0x09, l2=» END«, l3=0x09}
0x0930…0940 Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0940…0950 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x0950…095c Line {l1=0x0a, l2=» PUT(F)«, l3=0x0a}
0x095c…0964 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0964…0971 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x0971…09a6 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x09a6…09ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x09ac…09b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09b4…09eb Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x09eb…09f6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x09f6…0a0f Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x0a0f…0a1a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a1a…0a2f Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x0a2f…0a3a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a3a…0a4c Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x0a4c…0a57 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a57…0a5f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a5f…0a6e Line {l1=0x0d, l2=»PROCEDURE UR;«, l3=0x0d}
0x0a6e…0a75 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a75…0a8b Line {l1=0x14, l2=» SETUP(DBUF,LNGTH);«, l3=0x14}
0x0a8b…0a96 Line {l1=0x09, l2=» C:=' ';«, l3=0x09}
0x0a96…0aa7 Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x0aa7…0ab0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ab0…0ad0 Line {l1=0x1e, l2=» GOTOXY(62,1);WRITE('Alarm');«, l3=0x1e}
0x0ad0…0b0a Line {l1=0x38, l2=» IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;«, l3=0x38}
0x0b0a…0b29 Line {l1=0x1d, l2=» GOTOXY(62,2);WRITE('Time');«, l3=0x1d}
0x0b29…0b31 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b31…0b3c Line {l1=0x09, l2=» SV:=-1;«, l3=0x09}
0x0b3c…0b46 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0b46…0b63 Line {l1=0x1b, l2=» IF C<>CLOCK^.TIME(8) THEN«, l3=0x1b}
0x0b63…0b6c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0b6c…0b7e Line {l1=0x10, l2=» IF TÆNDT THEN«, l3=0x10}
0x0b7e…0b88 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x0b88…0b9b Line {l1=0x11, l2=» GOTOXY(67,2);«, l3=0x11}
0x0b9b…0bb4 Line {l1=0x17, l2=» WRITE(CLOCK^.TIME);«, l3=0x17}
0x0bb4…0bbd Line {l1=0x07, l2=» END;«, l3=0x07}
0x0bbd…0bd5 Line {l1=0x16, l2=» C:=CLOCK^.TIME(8);«, l3=0x16}
0x0bd5…0be8 Line {l1=0x11, l2=» OFFSET:=TIME;«, l3=0x11}
0x0be8…0c0f Line {l1=0x25, l2=» IF STIMER>0 THEN STIMER:=STIMER-1«, l3=0x25}
0x0c0f…0c17 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0c17…0c28 Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x0c28…0c31 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c31…0c42 Line {l1=0x0f, l2=» GOTOXY(76,2);«, l3=0x0f}
0x0c42…0c65 Line {l1=0x21, l2=» WRITE((TIME-OFFSET) MOD 100:4);«, l3=0x21}
0x0c65…0c6d Line {l1=0x06, l2=» END;«, l3=0x06}
0x0c6d…0c82 Line {l1=0x13, l2=» IF STOPWATCH THEN«, l3=0x13}
0x0c82…0c8b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c8b…0cac Line {l1=0x1f, l2=» IF (TIME<0) AND (TT>0) THEN«, l3=0x1f}
0x0cac…0cdc Line {l1=0x2e, l2=» SEC100:=SEC100+(32767-TT)+(32767+TIME+2)«, l3=0x2e}
0x0cdc…0ce6 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0ce6…0d05 Line {l1=0x1d, l2=» SEC100:=SEC100+TIME-TT;«, l3=0x1d}
0x0d05…0d14 Line {l1=0x0d, l2=» TT:=TIME;«, l3=0x0d}
0x0d14…0d49 Line {l1=0x33, l2=» SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;«, l3=0x33}
0x0d49…0d77 Line {l1=0x2c, l2=» MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;«, l3=0x2c}
0x0d77…0d8a Line {l1=0x11, l2=» IF TÆNDT THEN«, l3=0x11}
0x0d8a…0d95 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0d95…0da8 Line {l1=0x11, l2=» GOTOXY(60,3);«, l3=0x11}
0x0da8…0dca Line {l1=0x20, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x20}
0x0dca…0dd4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0dd4…0ddc Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ddc…0e18 Line {l1=0x3a, l2=» IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;«, l3=0x3a}
0x0e18…0e29 Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x0e29…0e48 Line {l1=0x1d, l2=» IF HOWL THEN WRITE(CHR(7));«, l3=0x1d}
0x0e48…0e59 Line {l1=0x0f, l2=» IF AVAIL THEN«, l3=0x0f}
0x0e59…0e62 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e62…0e71 Line {l1=0x0d, l2=» CH:=NEXT;«, l3=0x0d}
0x0e71…0ea8 Line {l1=0x35, l2=» IF TÆNDT OR (CH='T') OR (CH IN (.'0'..'9'.)) THEN«, l3=0x35}
0x0ea8…0eb8 Line {l1=0x0e, l2=» CASE CH OF«, l3=0x0e}
0x0eb8…0ec7 Line {l1=0x0d, l2=» 'S':BEGIN«, l3=0x0d}
0x0ec7…0eed Line {l1=0x24, l2=» STOPWATCH:=NOT(STOPWATCH);«, l3=0x24}
0x0eed…0f36 Line {l1=0x47, l2=» IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;«, l3=0x47}
0x0f36…0f44 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0f44…0f8b Line {l1=0x45, l2=» 'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;«, l3=0x45}
0x0f8b…0fb8 Line {l1=0x2b, l2=» 'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;«, l3=0x2b}
0x0fb8…0fd3 Line {l1=0x19, l2=» 'T':TÆNDT:=NOT TÆNDT;«, l3=0x19}
0x0fd3…1018 Line {l1=0x43, l2=»'0','1','2','3','4','5','6','7','8','9':BEGIN FINIS;SV:=ORD(CH)-48;«, l3=0x43}
0x1018…1052 Line {l1=0x38, l2=» WRITELN(SV) END;«, l3=0x38}
0x1052…1061 Line {l1=0x0d, l2=» 'M':BEGIN«, l3=0x0d}
0x1061…107a Line {l1=0x17, l2=» GOTOXY(70,3);«, l3=0x17}
0x107a…1097 Line {l1=0x1b, l2=» IF STOPWATCH THEN«, l3=0x1b}
0x1097…10c2 Line {l1=0x29, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x29}
0x10c2…10d0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x10d0…10df Line {l1=0x0d, l2=» 'A':BEGIN«, l3=0x0d}
0x10df…10f7 Line {l1=0x16, l2=» HOWL:=FALSE;«, l3=0x16}
0x10f7…1115 Line {l1=0x1c, l2=» ALARM:=NOT(ALARM);«, l3=0x1c}
0x1115…1135 Line {l1=0x1e, l2=» CLOCK^.DATE(9):='0';«, l3=0x1e}
0x1135…114e Line {l1=0x17, l2=» IF ALARM THEN«, l3=0x17}
0x114e…115f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x115f…1181 Line {l1=0x20, l2=» CLOCK^.DATE(9):='1';«, l3=0x20}
0x1181…119c Line {l1=0x19, l2=» GOTOXY(72,1);«, l3=0x19}
0x119c…11d6 Line {l1=0x38, l2=» FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;«, l3=0x38}
0x11d6…1217 Line {l1=0x3f, l2=» ALARMTIME(I):=CLOCK^.DATE(I)«, l3=0x3f}
0x1217…123a Line {l1=0x21, l2=» END;«, l3=0x21}
0x123a…1265 Line {l1=0x29, l2=» GOTOXY(72,1);WRITE(ALARMTIME)«, l3=0x29}
0x1265…1275 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1275…1283 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1283…128d Line {l1=0x08, l2=» END;«, l3=0x08}
0x128d…1295 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1295…12a4 Line {l1=0x0d, l2=» UNTIL SV>-1«, l3=0x0d}
0x12a4…12aa Line {l1=0x04, l2=»END;«, l3=0x04}
0x12aa…12b2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12b2…12c6 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x12c6…12db Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x12db…12ef Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x12ef…1304 Line {l1=0x13, l2=» MAXZONE=1000;«, l3=0x13}
0x1304…1318 Line {l1=0x12, l2=» MAXPOST=250;«, l3=0x12}
0x1318…1327 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x1327…1338 Line {l1=0x0f, l2=»ZZONE =RECORD«, l3=0x0f}
0x1338…134c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x134c…1374 Line {l1=0x26, l2=» T:ARRAY(1..MAXZONE) OF INTEGER«, l3=0x26}
0x1374…137a Line {l1=0x04, l2=»END;«, l3=0x04}
0x137a…1393 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x1393…13a4 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x13a4…13b4 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x13b4…13ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x13ba…13de Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x13de…140f Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x140f…1436 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x1436…144e Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x144e…1462 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x1462…1488 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x1488…1496 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x1496…14b1 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x14b1…14d5 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x14d5…14ec Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x14ec…150d Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x150d…1521 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x1521…1535 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x1535…1549 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x1549…1564 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x1564…157c Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x157c…159a Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x159a…15a8 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x15a8…15c9 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x15c9…15ed Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x15ed…161d Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x161d…1640 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x1640…1654 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x1654…165a Line {l1=0x04, l2=»END;«, l3=0x04}
0x165a…167c Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x167c…16a3 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x16a3…16be Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x16be…16cc Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x16cc…16dc Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x16dc…16e9 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x16e9…16f9 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x16f9…1728 Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x1728…172e Line {l1=0x04, l2=»END;«, l3=0x04}
0x172e…173e Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x173e…1767 Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x1767…1780 Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x1780…1786 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1786…17a0 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x17a0…17b1 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x17b1…17c2 Line {l1=0x0f, l2=» SF:SYSFILE;«, l3=0x0f}
0x17c2…17d7 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x17d7…1803 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1803…182e Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x182e…1869 Line {l1=0x39, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,ANTALNØGLER:INTEGER;«, l3=0x39}
0x1869…187c Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x187c…188e Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x188e…18a1 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x18a1…18b4 Line {l1=0x11, l2=» REGISTER:ISF;«, l3=0x11}
0x18b4…18c5 Line {l1=0x0f, l2=» ZONE:ZZONE;«, l3=0x0f}
0x18c5…18d6 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x18d6…18df Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x18df…18f2 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x18f2…18ff Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x18ff…190c Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x190c…191c Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x191c…192c Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x192c…193b Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x193b…1949 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x1949…1957 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x1957…1965 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x1965…1974 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x1974…1982 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x1982…1992 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x1992…19a0 Line {l1=0x0c, l2=»(*$IREPORT*)«, l3=0x0c}
0x19a0…19a9 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x19a9…19b1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x19b1…19d4 Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x19d4…19db Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19db…19fa Line {l1=0x1d, l2=» IF LINES>0 THEN PAGE(LIST);«, l3=0x1d}
0x19fa…1a39 Line {l1=0x3d, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER,' RETURN');«, l3=0x3d}
0x1a39…1a77 Line {l1=0x3c, l2=» CH:=' ';EDIT(CH);IF CH='R' THEN REPORT(ZONE.H,REGISTER,1);«, l3=0x3c}
0x1a77…1a93 Line {l1=0x1a, l2=» ICLOSE(ZONE.H,REGISTER);«, l3=0x1a}
0x1a93…1aa4 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1aa4…1aaa Line {l1=0x04, l2=»END;«, l3=0x04}
0x1aaa…1acd Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x1acd…1add Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1add…1ae4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ae4…1af5 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1af5…1b44 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x1b44…1b74 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1b74…1bad Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1bad…1bc9 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x1bc9…1bd8 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1bd8…1bde Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bde…1be6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1be6…1bfa Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x1bfa…1c01 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c01…1c1c Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x1c1c…1c1f Line {l1=0x01, l2=» «, l3=0x01}
0x1c1f…1c2d Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x1c2d…1c36 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x1c36…1c49 Line {l1=0x11, l2=» ANTALNØGLER:=0;«, l3=0x11}
0x1c49…1c66 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x1c66…1c6f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c6f…1c7c Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x1c7c…1c98 Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x1c98…1cc1 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x1cc1…1cfb Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x1cfb…1d05 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1d05…1d1c Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x1d1c…1d35 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x1d35…1d40 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1d40…1d5b Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x1d5b…1d7c Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x1d7c…1d9d Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x1d9d…1dbc Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x1dbc…1ddb Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x1ddb…1e02 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x1e02…1e29 Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x1e29…1e4c Line {l1=0x21, l2=» IF ÆNDRENIVEAU=UMULIUS THEN«, l3=0x21}
0x1e4c…1e59 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1e59…1e7e Line {l1=0x23, l2=» ANTALNØGLER:=ANTALNØGLER+1;«, l3=0x23}
0x1e7e…1ea7 Line {l1=0x27, l2=» NØGLER(ANTALNØGLER):=PICTURE(I)«, l3=0x27}
0x1ea7…1eb3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1eb3…1ed6 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1ed6…1efb Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x1efb…1f1e Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x1f1e…1f3f Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x1f3f…1f5c Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x1f5c…1f79 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x1f79…1f96 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x1f96…1fc3 Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x1fc3…1fe7 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1fe7…1ff4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1ff4…2008 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x2008…201f Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x201f…2045 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x2045…2060 Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x2060…2099 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x2099…20ca Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x20ca…20fa Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x20fa…2114 Line {l1=0x18, l2=» END;«, l3=0x18}
0x2114…212f Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x212f…2168 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x2168…21b6 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x21b6…2203 Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x2203…221d Line {l1=0x18, l2=» END;«, l3=0x18}
0x221d…2238 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x2238…2271 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x2271…22a4 Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x22a4…22d6 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x22d6…22f0 Line {l1=0x18, l2=» END;«, l3=0x18}
0x22f0…2320 Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x2320…232e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x232e…234d Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x234d…2370 Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x2370…23a4 Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x23a4…23b0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x23b0…23cb Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x23cb…23d5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x23d5…23e4 Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x23e4…23ec Line {l1=0x06, l2=» END;«, l3=0x06}
0x23ec…23fc Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x23fc…240e Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x240e…2414 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2414…241c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x241c…2440 Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x2440…2453 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x2453…246c Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x246c…2484 Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x2484…248b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x248b…2497 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x2497…24b2 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x24b2…24c6 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x24c6…24e0 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x24e0…250d Line {l1=0x2b, l2=» TAL:=ABS(POST.A(F^.INDEKS));«, l3=0x2b}
0x250d…2524 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2524…2551 Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x2551…257a Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x257a…259c Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x259c…25b9 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x25b9…2601 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2601…2644 Line {l1=0x41, l2=» IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x41}
0x2644…2657 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2657…266b Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x266b…2685 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2685…26d1 Line {l1=0x4a, l2=» RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));«, l3=0x4a}
0x26d1…26f2 Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x26f2…2709 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2709…2733 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2733…275f Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x275f…277b Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x277b…27a5 Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x27a5…27bc Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x27bc…27dd Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x27dd…2806 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2806…2830 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2830…285c Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x285c…287a Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x287a…2899 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x2899…28e1 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x28e1…292b Line {l1=0x48, l2=» IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN«, l3=0x48}
0x292b…2954 Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x2954…2967 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2967…297b Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x297b…2995 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2995…29d2 Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x29d2…29e8 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x29e8…2a0d Line {l1=0x23, l2=» CH(1):=POST.AA(I);«, l3=0x23}
0x2a0d…2a35 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x2a35…2a49 Line {l1=0x12, l2=» END«, l3=0x12}
0x2a49…2a5c Line {l1=0x11, l2=» END;«, l3=0x11}
0x2a5c…2a70 Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x2a70…2aa2 Line {l1=0x30, l2=» RESULT:=ABS(POST.AAA(F^.INDEKS));«, l3=0x30}
0x2aa2…2ac0 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2ac0…2adf Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2adf…2af9 Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x2af9…2b0e Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2b0e…2b24 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2b24…2b3f Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x2b3f…2b8d Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x2b8d…2ba2 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2ba2…2bbc Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2bbc…2be0 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2be0…2bf6 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2bf6…2c1c Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x2c1c…2c35 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x2c35…2c61 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x2c61…2c8f Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2c8f…2caf Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2caf…2ce5 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2ce5…2cf9 Line {l1=0x12, l2=» END«, l3=0x12}
0x2cf9…2d0e Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2d0e…2d24 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2d24…2d3f Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x2d3f…2d77 Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x2d77…2da1 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2da1…2dcd Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2dcd…2deb Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2deb…2e00 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2e00…2e17 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2e17…2e38 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2e38…2e61 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2e61…2e99 Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x2e99…2ec3 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2ec3…2eef Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2eef…2f0d Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2f0d…2f2c Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x2f2c…2f73 Line {l1=0x45, l2=» IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x45}
0x2f73…2f85 Line {l1=0x10, l2=» END«, l3=0x10}
0x2f85…2f90 Line {l1=0x09, l2=» END«, l3=0x09}
0x2f90…2f96 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f96…2f9e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2f9e…2fb2 Line {l1=0x12, l2=»PROCEDURE NULPOST;«, l3=0x12}
0x2fb2…2fc4 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x2fc4…2fcb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2fcb…2ffd Line {l1=0x30, l2=» FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO«, l3=0x30}
0x2ffd…3006 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3006…301c Line {l1=0x14, l2=» CASE FELTTYPE OF«, l3=0x14}
0x301c…303b Line {l1=0x1d, l2=» HELTAL:POST.A(INDEKS):=0;«, l3=0x1d}
0x303b…304e Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x304e…3070 Line {l1=0x20, l2=» POST.A(INDEKS):=0;«, l3=0x20}
0x3070…3093 Line {l1=0x21, l2=» POST.A(INDEKS+1):=0«, l3=0x21}
0x3093…30a5 Line {l1=0x10, l2=» END;«, l3=0x10}
0x30a5…30c6 Line {l1=0x1f, l2=» REEL:POST.AAA(INDEKS):=0.0;«, l3=0x1f}
0x30c6…30f5 Line {l1=0x2d, l2=» TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO«, l3=0x2d}
0x30f5…3113 Line {l1=0x1c, l2=» POST.AA(I):=' ';«, l3=0x1c}
0x3113…311c Line {l1=0x07, l2=» END«, l3=0x07}
0x311c…3123 Line {l1=0x05, l2=» END«, l3=0x05}
0x3123…3129 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3129…312c Line {l1=0x01, l2=» «, l3=0x01}
0x312c…314f Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x314f…3156 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3156…317b Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x317b…3183 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3183…31a5 Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x31a5…31c1 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x31c1…31d3 Line {l1=0x10, l2=» MOVETOLINE(F);«, l3=0x10}
0x31d3…31e5 Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x31e5…31eb Line {l1=0x04, l2=» END«, l3=0x04}
0x31eb…31f1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x31f1…31f4 Line {l1=0x01, l2=» «, l3=0x01}
0x31f4…320a Line {l1=0x14, l2=»PROCEDURE SKRIVPOST;«, l3=0x14}
0x320a…321a Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x321a…3221 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3221…3231 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3231…3266 Line {l1=0x33, l2=» FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));«, l3=0x33}
0x3266…326c Line {l1=0x04, l2=»END;«, l3=0x04}
0x326c…326f Line {l1=0x01, l2=» «, l3=0x01}
0x326f…3285 Line {l1=0x14, l2=»PROCEDURE PRINTPOST;«, l3=0x14}
0x3285…3295 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x3295…329c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x329c…32ba Line {l1=0x1c, l2=» FOR I:=1 TO ANTALFELTER DO«, l3=0x1c}
0x32ba…32c3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x32c3…32ef Line {l1=0x2a, l2=» WRITE(LIST,PICTURE(I)^.LEDETEKST,' ');«, l3=0x2a}
0x32ef…330c Line {l1=0x1b, l2=» MOVETOLINE(PICTURE(I));«, l3=0x1b}
0x330c…3321 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x3321…3339 Line {l1=0x16, l2=» WRITELN(LIST,LINE)«, l3=0x16}
0x3339…3340 Line {l1=0x05, l2=» END«, l3=0x05}
0x3340…3346 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3346…334e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x334e…336f Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x336f…3388 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x3388…3398 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x3398…33aa Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x33aa…33bf Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x33bf…33c2 Line {l1=0x01, l2=» «, l3=0x01}
0x33c2…33ca Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x33ca…33df Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x33df…33f0 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x33f0…340d Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x340d…341b Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x341b…341e Line {l1=0x01, l2=» «, l3=0x01}
0x341e…3425 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3425…342f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x342f…343f Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x343f…3451 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x3451…345e Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x345e…346c Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x346c…3492 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x3492…34cc Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x34cc…3509 Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x3509…3525 Line {l1=0x1a, l2=» IF F^.EDITERING=0 THEN«, l3=0x1a}
0x3525…3530 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3530…3549 Line {l1=0x17, l2=» READLN;READ(LINE)«, l3=0x17}
0x3549…3552 Line {l1=0x07, l2=» END«, l3=0x07}
0x3552…355c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x355c…3567 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3567…357d Line {l1=0x14, l2=» MOVETOLINE(F);«, l3=0x14}
0x357d…359a Line {l1=0x1b, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x1b}
0x359a…35de Line {l1=0x42, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1)«, l3=0x42}
0x35de…35e8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x35e8…3601 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x3601…3609 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x3609…362e Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x362e…3639 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3639…364a Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x364a…3671 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x3671…368e Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x368e…36b0 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x36b0…36be Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x36be…36e0 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x36e0…36ea Line {l1=0x08, l2=» END;«, l3=0x08}
0x36ea…36fb Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x36fb…3717 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3717…3722 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3722…372f Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x372f…3742 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x3742…375d Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x375d…376a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x376a…3780 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3780…378e Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x378e…379a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x379a…37b9 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x37b9…37c6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37c6…37d9 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x37d9…37ea Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x37ea…3819 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x3819…3828 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3828…383e Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x383e…3859 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3859…3867 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3867…3892 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x3892…389e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x389e…38bd Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x38bd…38cf Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x38cf…38ea Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x38ea…3936 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x3936…3966 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x3966…397b Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x397b…39a8 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x39a8…39d9 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x39d9…39ec Line {l1=0x11, l2=» END«, l3=0x11}
0x39ec…3a0a Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x3a0a…3a15 Line {l1=0x09, l2=» END«, l3=0x09}
0x3a15…3a2d Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x3a2d…3a34 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x3a34…3a50 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3a50…3a5b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3a5b…3a68 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x3a68…3a7b Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x3a7b…3a8c Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x3a8c…3aa7 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x3aa7…3ab4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3ab4…3aca Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3aca…3ad8 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x3ad8…3ae4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3ae4…3b12 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x3b12…3b1f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3b1f…3b32 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x3b32…3b43 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3b43…3b6c Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3b6c…3b99 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x3b99…3ba7 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3ba7…3bd7 Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x3bd7…3bea Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x3bea…3bf8 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3bf8…3c07 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3c07…3c1d Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3c1d…3c38 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3c38…3c45 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3c45…3c51 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3c51…3c61 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3c61…3c80 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3c80…3c8d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3c8d…3c9e Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3c9e…3cb4 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x3cb4…3cdd Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3cdd…3cec Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3cec…3d1c Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x3d1c…3d34 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x3d34…3d41 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3d41…3d4f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3d4f…3d5e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3d5e…3d74 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3d74…3d8f Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3d8f…3d9c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3d9c…3da8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3da8…3dc7 Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x3dc7…3dec Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x3dec…3df5 Line {l1=0x07, l2=» END«, l3=0x07}
0x3df5…3e08 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x3e08…3e11 Line {l1=0x07, l2=» END«, l3=0x07}
0x3e11…3e1d Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x3e1d…3e23 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3e23…3e2b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3e2b…3e40 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x3e40…3e65 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x3e65…3e88 Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x3e88…3e8f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3e8f…3eae Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3eae…3ebc Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x3ebc…3eed Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3eed…3efb Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x3efb…3f3b Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x3f3b…3f7a Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x3f7a…3f88 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x3f88…3fc1 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3fc1…3fca Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x3fca…3fe6 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3fe6…3ff1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3ff1…4022 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x4022…4056 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x4056…4089 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x4089…40d7 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x40d7…40f1 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x40f1…4106 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x4106…4135 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x4135…4180 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x4180…418b Line {l1=0x09, l2=» END«, l3=0x09}
0x418b…4194 Line {l1=0x07, l2=» END«, l3=0x07}
0x4194…41ac Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x41ac…41b4 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x41b4…41d1 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x41d1…41dc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x41dc…420e Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x420e…422d Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x422d…424d Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x424d…426a Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x426a…42b8 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x42b8…42d2 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x42d2…42e7 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x42e7…4316 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x4316…4360 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x4360…436c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x436c…4386 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x4386…4393 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4393…43e2 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}
0x43e2…440c Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x440c…443b Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x443b…4446 Line {l1=0x09, l2=» END«, l3=0x09}
0x4446…444f Line {l1=0x07, l2=» END«, l3=0x07}
0x444f…4467 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x4467…446e Line {l1=0x05, l2=» END«, l3=0x05}
0x446e…4474 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4474…447c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x447c…4493 Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x4493…449a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x449a…44bf Line {l1=0x23, l2=» IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN«, l3=0x23}
0x44bf…44c7 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x44c7…44d1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x44d1…44e0 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x44e0…44f7 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x44f7…450b Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x450b…4535 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x4535…4540 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4540…4551 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x4551…456b Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x456b…4574 Line {l1=0x07, l2=» END«, l3=0x07}
0x4574…4589 Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x4589…45a0 Line {l1=0x15, l2=» CASE F^.FELTTYPE OF«, l3=0x15}
0x45a0…45c2 Line {l1=0x20, l2=» HELTAL:POST.A(F^.INDEKS):=TAL;«, l3=0x20}
0x45c2…45d3 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x45d3…45f8 Line {l1=0x23, l2=» POST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x45f8…461f Line {l1=0x25, l2=» POST.A(F^.INDEKS+1):=TAL1«, l3=0x25}
0x461f…462f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x462f…4654 Line {l1=0x23, l2=» REEL:POST.AAA(F^.INDEKS):=RESULT;«, l3=0x23}
0x4654…4676 Line {l1=0x20, l2=» TEKST:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x20}
0x4676…46a3 Line {l1=0x2b, l2=» POST.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x2b}
0x46a3…46aa Line {l1=0x05, l2=» END«, l3=0x05}
0x46aa…46b0 Line {l1=0x04, l2=» END«, l3=0x04}
0x46b0…46b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x46b6…46be Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x46be…46d3 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x46d3…46e3 Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x46e3…46f6 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x46f6…46fd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x46fd…4711 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x4711…472a Line {l1=0x17, l2=» IF OPTION<>4 THEN«, l3=0x17}
0x472a…4737 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4737…4755 Line {l1=0x1c, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x1c}
0x4755…4773 Line {l1=0x1c, l2=» USERNIVEAU:=UMULIUS;«, l3=0x1c}
0x4773…4785 Line {l1=0x10, l2=» NULPOST;«, l3=0x10}
0x4785…4794 Line {l1=0x0d, l2=» J:=1;«, l3=0x0d}
0x4794…47b1 Line {l1=0x1b, l2=» LÆSFELT(NØGLER(J));«, l3=0x1b}
0x47b1…47df Line {l1=0x2c, l2=» WHILE (J<ANTALNØGLER) AND NOT EOF DO«, l3=0x2c}
0x47df…47ee Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x47ee…4801 Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x4801…481f Line {l1=0x1c, l2=» LÆSFELT(NØGLER(J))«, l3=0x1c}
0x481f…482d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x482d…484b Line {l1=0x1c, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x1c}
0x484b…4874 Line {l1=0x27, l2=» GETREC(ZONE.H,REGISTER,POST.A);«, l3=0x27}
0x4874…48b4 Line {l1=0x3e, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(ZONE.H.FILENAME);«, l3=0x3e}
0x48b4…48c9 Line {l1=0x13, l2=» IF EOF THEN«, l3=0x13}
0x48c9…48d8 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x48d8…48f2 Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x48f2…4903 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4903…4931 Line {l1=0x2c, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x4931…496c Line {l1=0x39, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x496c…4992 Line {l1=0x24, l2=» ERROR(ZONE.H.FILENAME)«, l3=0x24}
0x4992…49a2 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x49a2…49b4 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x49b4…49cc Line {l1=0x16, l2=» SKRIVPOST;«, l3=0x16}
0x49cc…49e7 Line {l1=0x19, l2=» GOTOXY(1,23);«, l3=0x19}
0x49e7…49fd Line {l1=0x14, l2=» CH:='F';«, l3=0x14}
0x49fd…4a3c Line {l1=0x3d, l2=» WRITELN('Rigtig post R, Flere poster F, Stop S');«, l3=0x3d}
0x4a3c…4a58 Line {l1=0x1a, l2=» GOTOXY(39,23);«, l3=0x1a}
0x4a58…4a6f Line {l1=0x15, l2=» EDIT(CH);«, l3=0x15}
0x4a6f…4a8b Line {l1=0x1a, l2=» IF CH='F' THEN«, l3=0x1a}
0x4a8b…4a9e Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4a9e…4ace Line {l1=0x2e, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2e}
0x4ace…4b0a Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3a}
0x4b0a…4b32 Line {l1=0x26, l2=» ERROR(ZONE.H.FILENAME)«, l3=0x26}
0x4b32…4b43 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4b43…4b5d Line {l1=0x18, l2=» UNTIL CH<>'F';«, l3=0x18}
0x4b5d…4b86 Line {l1=0x27, l2=» GOTOXY(1,23);WRITELN(' ':77);«, l3=0x27}
0x4b86…4baa Line {l1=0x22, l2=» IF OPTION=2 THEN CH:='S'«, l3=0x22}
0x4baa…4bb7 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4bb7…4bc5 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4bc5…4bd4 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4bd4…4bed Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x4bed…4bfe Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4bfe…4c14 Line {l1=0x14, l2=» CH:='R';«, l3=0x14}
0x4c14…4c2b Line {l1=0x15, l2=» SKRIVPOST«, l3=0x15}
0x4c2b…4c3a Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4c3a…4c4a Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x4c4a…4c5b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4c5b…4c71 Line {l1=0x14, l2=» CH:='S';«, l3=0x14}
0x4c71…4cb2 Line {l1=0x3f, l2=» GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');«, l3=0x3f}
0x4cb2…4cd4 Line {l1=0x20, l2=» GOTOXY(28,23);READLN«, l3=0x20}
0x4cd4…4ce3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4ce3…4cf0 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4cf0…4cfc Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4cfc…4d22 Line {l1=0x24, l2=» IF (OPTION=4) OR (CH='R') THEN«, l3=0x24}
0x4d22…4d38 Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x4d38…4d4a Line {l1=0x10, l2=» 1: BEGIN«, l3=0x10}
0x4d4a…4d5f Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x4d5f…4d76 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x4d76…4d96 Line {l1=0x1e, l2=» GOTOXY(1,23);«, l3=0x1e}
0x4d96…4dae Line {l1=0x16, l2=» J:=0;«, l3=0x16}
0x4dae…4de4 Line {l1=0x34, l2=» WRITELN('Feltnr, 0 for færdig ',J);«, l3=0x34}
0x4de4…4e0c Line {l1=0x26, l2=» GOTOXY(22,23);READLN;«, l3=0x26}
0x4e0c…4e49 Line {l1=0x3b, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)«, l3=0x3b}
0x4e49…4e8d Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);«, l3=0x42}
0x4e8d…4ebd Line {l1=0x2e, l2=» IF J>0 THEN LÆSFELT(PICTURE(J))«, l3=0x2e}
0x4ebd…4ed6 Line {l1=0x17, l2=» UNTIL J=0;«, l3=0x17}
0x4ed6…4f04 Line {l1=0x2c, l2=» PUTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x4f04…4f38 Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x32}
0x4f38…4f49 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x4f49…4f7e Line {l1=0x33, l2=» 2: BEGIN WRITELN('Tryk RETURN');READLN END;«, l3=0x33}
0x4f7e…4f90 Line {l1=0x10, l2=» 3: BEGIN«, l3=0x10}
0x4f90…4fa5 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x4fa5…4fc3 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x4fc3…4ffa Line {l1=0x35, l2=» WRITELN('Antal poster, 0 for resten');«, l3=0x35}
0x4ffa…5019 Line {l1=0x1d, l2=» GOTOXY(28,23);«, l3=0x1d}
0x5019…5038 Line {l1=0x1d, l2=» READLN;READ(J)«, l3=0x1d}
0x5038…507e Line {l1=0x44, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ZONE.H.RECINUSE);«, l3=0x44}
0x507e…5093 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x5093…50c5 Line {l1=0x30, l2=» IF (LINES+2+ANTALFELTER)>=72 THEN«, l3=0x30}
0x50c5…50db Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x50db…510c Line {l1=0x2f, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x2f}
0x510c…5141 Line {l1=0x33, l2=» WRITELN(LIST,REGNAVN,' UDSKRIFT');«, l3=0x33}
0x5141…5162 Line {l1=0x1f, l2=» WRITELN(LIST);«, l3=0x1f}
0x5162…517d Line {l1=0x19, l2=» LINES:=2«, l3=0x19}
0x517d…5192 Line {l1=0x13, l2=» END;«, l3=0x13}
0x5192…51ad Line {l1=0x19, l2=» PRINTPOST;«, l3=0x19}
0x51ad…51c5 Line {l1=0x16, l2=» J:=J-1;«, l3=0x16}
0x51c5…5201 Line {l1=0x3a, l2=» WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;«, l3=0x3a}
0x5201…5232 Line {l1=0x2f, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2f}
0x5232…5264 Line {l1=0x30, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x30}
0x5264…528b Line {l1=0x25, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x25}
0x528b…52c6 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x52c6…52fa Line {l1=0x32, l2=» ERROR(ZONE.H.FILENAME) ELSE IER:=0«, l3=0x32}
0x52fa…530b Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x530b…531d Line {l1=0x10, l2=» 4: BEGIN«, l3=0x10}
0x531d…5334 Line {l1=0x15, l2=» NULPOST;«, l3=0x15}
0x5334…534d Line {l1=0x17, l2=» SKRIVPOST;«, l3=0x17}
0x534d…5370 Line {l1=0x21, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x21}
0x5370…5393 Line {l1=0x21, l2=» USERNIVEAU:=UMULIUS;«, l3=0x21}
0x5393…53d1 Line {l1=0x3c, l2=» FOR J:=1 TO ANTALFELTER DO LÆSFELT(PICTURE(J));«, l3=0x3c}
0x53d1…53f4 Line {l1=0x21, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x21}
0x53f4…5438 Line {l1=0x42, l2=» IF (NOT ZONE.H.FILEINIT) AND (ZONE.H.RECINUSE=0) THEN«, l3=0x42}
0x5438…544c Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x544c…546a Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x546a…54a2 Line {l1=0x36, l2=» WRITELN('ANTAL INITIALISERINGSPOSTER');«, l3=0x36}
0x54a2…54c1 Line {l1=0x1d, l2=» GOTOXY(30,23);«, l3=0x1d}
0x54c1…54e1 Line {l1=0x1e, l2=» READLN;READ(J);«, l3=0x1e}
0x54e1…550e Line {l1=0x2b, l2=» INITIATE(ZONE.H,REGISTER,J);«, l3=0x2b}
0x550e…5544 Line {l1=0x34, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x34}
0x5544…5557 Line {l1=0x11, l2=» END;«, l3=0x11}
0x5557…5585 Line {l1=0x2c, l2=» INSERT(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x5585…55a2 Line {l1=0x1b, l2=» IF IER<>0 THEN«, l3=0x1b}
0x55a2…55bf Line {l1=0x1b, l2=» IF IER=-7 THEN«, l3=0x1b}
0x55bf…55d3 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x55d3…560b Line {l1=0x36, l2=» WRITELN('Posten findes, RETURN');READLN«, l3=0x36}
0x560b…561d Line {l1=0x10, l2=» END«, l3=0x10}
0x561d…5647 Line {l1=0x28, l2=» ELSE ERROR(ZONE.H.FILENAME)«, l3=0x28}
0x5647…5658 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x5658…566a Line {l1=0x10, l2=» 5: BEGIN«, l3=0x10}
0x566a…5686 Line {l1=0x1a, l2=» GOTOXY(1,20);«, l3=0x1a}
0x5686…569d Line {l1=0x15, l2=» CH:='J';«, l3=0x15}
0x569d…56cc Line {l1=0x2d, l2=» WRITELN('Sletning korrekt J/N');«, l3=0x2d}
0x56cc…56f2 Line {l1=0x24, l2=» GOTOXY(22,20);EDIT(CH);«, l3=0x24}
0x56f2…570f Line {l1=0x1b, l2=» IF CH='J' THEN«, l3=0x1b}
0x570f…5723 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x5723…5753 Line {l1=0x2e, l2=» DELETE(ZONE.H,REGISTER,POST.A);«, l3=0x2e}
0x5753…5772 Line {l1=0x1d, l2=» IF IER=-9 THEN«, l3=0x1d}
0x5772…5788 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x5788…57cc Line {l1=0x42, l2=» WRITELN('Eneste post, kan ikke slettes, RETURN');«, l3=0x42}
0x57cc…57e6 Line {l1=0x18, l2=» READLN;«, l3=0x18}
0x57e6…57ff Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x57ff…5814 Line {l1=0x13, l2=» END;«, l3=0x13}
0x5814…584a Line {l1=0x34, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x34}
0x584a…585c Line {l1=0x10, l2=» END«, l3=0x10}
0x585c…586c Line {l1=0x0e, l2=» END«, l3=0x0e}
0x586c…5877 Line {l1=0x09, l2=» END«, l3=0x09}
0x5877…587d Line {l1=0x04, l2=»END;«, l3=0x04}
0x587d…5885 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5885…588c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x588c…589c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x589c…589f Line {l1=0x01, l2=» «, l3=0x01}
0x589f…58b6 Line {l1=0x15, l2=» IF REGNAVN='S' THEN«, l3=0x15}
0x58b6…58bf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x58bf…58d7 Line {l1=0x16, l2=» REWRITE(SF,FNAVN);«, l3=0x16}
0x58d7…58e8 Line {l1=0x0f, l2=» SEEK(SF,1);«, l3=0x0f}
0x58e8…58f6 Line {l1=0x0c, l2=» GET(SF);«, l3=0x0c}
0x58f6…592d Line {l1=0x35, l2=» FOR I:=1 TO 5 DO POST.AAA(I):=SF^.MINUTFAKTOR(I);«, l3=0x35}
0x592d…5948 Line {l1=0x19, l2=» POST.A(21):=SF^.DAT1;«, l3=0x19}
0x5948…5963 Line {l1=0x19, l2=» POST.A(22):=SF^.DAT2;«, l3=0x19}
0x5963…5971 Line {l1=0x0c, l2=» LÆSDESC;«, l3=0x0c}
0x5971…597d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x597d…598f Line {l1=0x10, l2=» SKRIVPOST;«, l3=0x10}
0x598f…599d Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x599d…59b4 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x59b4…59c3 Line {l1=0x0d, l2=» I:=0;«, l3=0x0d}
0x59c3…59f0 Line {l1=0x2b, l2=» WRITELN('Feltnr, 0 for færdig ',I);«, l3=0x2b}
0x59f0…5a0f Line {l1=0x1d, l2=» GOTOXY(22,23);READLN;«, l3=0x1d}
0x5a0f…5a43 Line {l1=0x32, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(I)«, l3=0x32}
0x5a43…5a7e Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=ANTALFELTER);«, l3=0x39}
0x5a7e…5aa5 Line {l1=0x25, l2=» IF I>0 THEN LÆSFELT(PICTURE(I))«, l3=0x25}
0x5aa5…5ab5 Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x5ab5…5ac6 Line {l1=0x0f, l2=» SEEK(SF,1);«, l3=0x0f}
0x5ac6…5afd Line {l1=0x35, l2=» FOR I:=1 TO 5 DO SF^.MINUTFAKTOR(I):=POST.AAA(I);«, l3=0x35}
0x5afd…5b18 Line {l1=0x19, l2=» SF^.DAT1:=POST.A(21);«, l3=0x19}
0x5b18…5b33 Line {l1=0x19, l2=» SF^.DAT2:=POST.A(22);«, l3=0x19}
0x5b33…5b41 Line {l1=0x0c, l2=» PUT(SF);«, l3=0x0c}
0x5b41…5b50 Line {l1=0x0d, l2=» CLOSE(SF)«, l3=0x0d}
0x5b50…5b57 Line {l1=0x05, l2=» END«, l3=0x05}
0x5b57…5b5f Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x5b5f…5b68 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5b68…5b77 Line {l1=0x0d, l2=» LINES:=100;«, l3=0x0d}
0x5b77…5b97 Line {l1=0x1e, l2=» ZONE.H.FILENAME:=' ';«, l3=0x1e}
0x5b97…5bd8 Line {l1=0x3f, l2=» FOR I:=1 TO POS(':',FNAVN)-1 DO ZONE.H.FILENAME(I):=FNAVN(I);«, l3=0x3f}
0x5bd8…5bf4 Line {l1=0x1a, l2=» REWRITE(REGISTER,FNAVN);«, l3=0x1a}
0x5bf4…5c3b Line {l1=0x45, l2=» IOPEN(ZONE.H,REGISTER,SKRIV);IF IER<>0 THEN OFEJL(ZONE.H.FILENAME);«, l3=0x45}
0x5c3b…5c6b Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x5c6b…5c77 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x5c77…5cae Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x5cae…5cb8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x5cb8…5cca Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x5cca…5cde Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x5cde…5d28 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}
0x5d28…5d3c Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x5d3c…5d56 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x5d56…5d77 Line {l1=0x1f, l2=» WRITELN(' ':9,'1 Ændring');«, l3=0x1f}
0x5d77…5da2 Line {l1=0x29, l2=» WRITELN(' ':9,'2 Udskrift på skærm');«, l3=0x29}
0x5da2…5dcf Line {l1=0x2b, l2=» WRITELN(' ':9,'3 Udskrift på printer');«, l3=0x2b}
0x5dcf…5df3 Line {l1=0x22, l2=» WRITELN(' ':9,'4 Oprettelse');«, l3=0x22}
0x5df3…5e15 Line {l1=0x20, l2=» WRITELN(' ':9,'5 Sletning');«, l3=0x20}
0x5e15…5e21 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5e21…5e37 Line {l1=0x14, l2=» GOTOXY(10,19);«, l3=0x14}
0x5e37…5e53 Line {l1=0x1a, l2=» WRITELN('Vælg 0-5');«, l3=0x1a}
0x5e53…5e6c Line {l1=0x17, l2=» GOTOXY(21,19);UR;«, l3=0x17}
0x5e6c…5e7e Line {l1=0x10, l2=» OPTION:=SV«, l3=0x10}
0x5e7e…5ea6 Line {l1=0x26, l2=» UNTIL (OPTION>=0) AND (OPTION<=6);«, l3=0x26}
0x5ea6…5ebc Line {l1=0x14, l2=» IF OPTION>0 THEN«, l3=0x14}
0x5ebc…5ec7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5ec7…5ef7 Line {l1=0x2e, l2=» IF (OPTION=6) AND (USERNIVEAU>=HSM) THEN«, l3=0x2e}
0x5ef7…5f04 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5f04…5f35 Line {l1=0x2f, l2=» WRITELN('REPORT, SBUC');READLN;READ(I);«, l3=0x2f}
0x5f35…5f64 Line {l1=0x2d, l2=» IF I>0 THEN REPORT(ZONE.H,REGISTER,I)«, l3=0x2d}
0x5f64…5f6f Line {l1=0x09, l2=» END«, l3=0x09}
0x5f6f…5f7b Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x5f7b…5f9e Line {l1=0x21, l2=» IF OPTION<6 THEN MAINTAIN«, l3=0x21}
0x5f9e…5fa7 Line {l1=0x07, l2=» END«, l3=0x07}
0x5fa7…5fba Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x5fba…5fdc Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x5fdc…5ff8 Line {l1=0x1a, l2=» ICLOSE(ZONE.H,REGISTER);«, l3=0x1a}
0x5ff8…6008 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6008…6022 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x6022…6029 Line {l1=0x05, l2=» END«, l3=0x05}
0x6029…602f Line {l1=0x04, l2=»END;«, l3=0x04}
0x602f…6037 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6037…6048 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x6048…605d Line {l1=0x13, l2=»PROCEDURE PROGVALG;«, l3=0x13}
0x605d…6064 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6064…6083 Line {l1=0x1d, l2=» WRITELN(' ':20,'0 Stop');«, l3=0x1d}
0x6083…6091 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x6091…60c4 Line {l1=0x31, l2=» WRITELN(' ':20,'1 Kartoteksvedligeholdelse');«, l3=0x31}
0x60c4…60d2 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x60d2…60fb Line {l1=0x27, l2=» WRITELN(' ':20,'2 Forkalkulation');«, l3=0x27}
0x60fb…6109 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x6109…6141 Line {l1=0x36, l2=» WRITELN(' ':20,'3 Registrering af arbejdssedler');«, l3=0x36}
0x6141…614f Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x614f…617b Line {l1=0x2a, l2=» WRITELN(' ':20,'4 Ordreforespørgsel');«, l3=0x2a}
0x617b…6189 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x6189…61b7 Line {l1=0x2c, l2=» WRITELN(' ':20,'5 Afslutning af ordre');«, l3=0x2c}
0x61b7…61c5 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x61c5…61e8 Line {l1=0x21, l2=» WRITELN(' ':20,'6 Lønliste');«, l3=0x21}
0x61e8…61f6 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x61f6…6224 Line {l1=0x2c, l2=» WRITELN(' ':20,'7 Produktforespørgsel');«, l3=0x2c}
0x6224…6232 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x6232…6263 Line {l1=0x2f, l2=» WRITELN(' ':20,'8 Indtast ny adgangskode');«, l3=0x2f}
0x6263…6284 Line {l1=0x1f, l2=» IF USERNIVEAU>=GENERAL THEN«, l3=0x1f}
0x6284…628f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x628f…629f Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x629f…62d3 Line {l1=0x32, l2=» WRITELN(' ':20,'9 Privilegerede funktioner')«, l3=0x32}
0x62d3…62dd Line {l1=0x08, l2=» END;«, l3=0x08}
0x62dd…6309 Line {l1=0x2a, l2=» GOTOXY(1,22);WRITELN('Vælg funktion');«, l3=0x2a}
0x6309…631d Line {l1=0x12, l2=» GOTOXY(15,22);«, l3=0x12}
0x631d…6331 Line {l1=0x12, l2=» STIMER:=TIMER;«, l3=0x12}
0x6331…633a Line {l1=0x07, l2=» UR;«, l3=0x07}
0x633a…637b Line {l1=0x3f, l2=» IF STIMER=0 THEN BEGIN USERNIVEAU:=MENIG;PARM^(1):='0' END;«, l3=0x3f}
0x637b…6387 Line {l1=0x0a, l2=» I:=SV;«, l3=0x0a}
0x6387…6398 Line {l1=0x0f, l2=» CLEARSCREEN«, l3=0x0f}
0x6398…639e Line {l1=0x04, l2=»END;«, l3=0x04}
0x639e…63a6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x63a6…63ad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x63ad…63bc Line {l1=0x0d, l2=» PROGVALG;«, l3=0x0d}
0x63bc…63cb Line {l1=0x0d, l2=» CASE I OF«, l3=0x0d}
0x63cb…63ef Line {l1=0x22, l2=» 9: IF USERNIVEAU>=GENERAL THEN«, l3=0x22}
0x63ef…63fd Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x63fd…641f Line {l1=0x20, l2=» IF USERNIVEAU>=HSM THEN«, l3=0x20}
0x641f…642f Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x642f…6463 Line {l1=0x32, l2=» WRITELN(' ':20,'1 Skærmbilledopbygning');«, l3=0x32}
0x6463…6475 Line {l1=0x10, l2=» WRITELN«, l3=0x10}
0x6475…6484 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x6484…64bb Line {l1=0x35, l2=» WRITELN(' ':20,'2 Ændring af adgangskoder');«, l3=0x35}
0x64bb…64d3 Line {l1=0x16, l2=» GOTOXY(1,20);«, l3=0x16}
0x64d3…64f7 Line {l1=0x22, l2=» WRITELN('Vælg funktion');«, l3=0x22}
0x64f7…6508 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x6508…6521 Line {l1=0x17, l2=» GOTOXY(15,20);«, l3=0x17}
0x6521…653a Line {l1=0x17, l2=» READLN;READ(I)«, l3=0x17}
0x653a…656c Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<3);«, l3=0x30}
0x656c…6580 Line {l1=0x12, l2=» CASE I OF«, l3=0x12}
0x6580…65b7 Line {l1=0x35, l2=» 1: IF USERNIVEAU>=HSM THEN F:='SKÆRMBIL:P2';«, l3=0x35}
0x65b7…65ce Line {l1=0x15, l2=» 2: KODEVEDL;«, l3=0x15}
0x65ce…65dc Line {l1=0x0c, l2=» END«, l3=0x0c}
0x65dc…65e9 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x65e9…65f7 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x65f7…6610 Line {l1=0x17, l2=» PARM^(1):='0';«, l3=0x17}
0x6610…6624 Line {l1=0x12, l2=» KODEVEDL;«, l3=0x12}
0x6624…6643 Line {l1=0x1d, l2=» I:=ORD(PARM^(1))-48;«, l3=0x1d}
0x6643…6660 Line {l1=0x1b, l2=» USERNIVEAU:=MENIG;«, l3=0x1b}
0x6660…6677 Line {l1=0x15, l2=» WHILE I>0 DO«, l3=0x15}
0x6677…6687 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x6687…66b1 Line {l1=0x28, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x28}
0x66b1…66c4 Line {l1=0x11, l2=» I:=I-1«, l3=0x11}
0x66c4…66d2 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x66d2…66df Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x66df…6702 Line {l1=0x21, l2=» 1: IF USERNIVEAU>=OBERST THEN«, l3=0x21}
0x6702…6710 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x6710…673e Line {l1=0x2c, l2=» WRITELN(' ':20,'0 Systemregister');«, l3=0x2c}
0x673e…6751 Line {l1=0x11, l2=» WRITELN;«, l3=0x11}
0x6751…6783 Line {l1=0x30, l2=» WRITELN(' ':20,'1 Operationsregister');«, l3=0x30}
0x6783…6796 Line {l1=0x11, l2=» WRITELN;«, l3=0x11}
0x6796…67c9 Line {l1=0x31, l2=» WRITELN(' ':20,'2 Medarbejderregister');«, l3=0x31}
0x67c9…67eb Line {l1=0x20, l2=» IF USERNIVEAU>=HSM THEN«, l3=0x20}
0x67eb…67fb Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x67fb…6810 Line {l1=0x13, l2=» WRITELN;«, l3=0x13}
0x6810…683f Line {l1=0x2d, l2=» WRITELN(' ':20,'3 Ordreregister');«, l3=0x2d}
0x683f…6854 Line {l1=0x13, l2=» WRITELN;«, l3=0x13}
0x6854…688d Line {l1=0x37, l2=» WRITELN(' ':20,'4 Operationslinieregister');«, l3=0x37}
0x688d…68a2 Line {l1=0x13, l2=» WRITELN;«, l3=0x13}
0x68a2…68de Line {l1=0x3a, l2=» WRITELN(' ':20,'5 Registreringslinieregister');«, l3=0x3a}
0x68de…68f3 Line {l1=0x13, l2=» WRITELN;«, l3=0x13}
0x68f3…692d Line {l1=0x38, l2=» WRITELN(' ':20,'6 Historisk produktregister')«, l3=0x38}
0x692d…693c Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x693c…694f Line {l1=0x11, l2=» WRITELN;«, l3=0x11}
0x694f…6980 Line {l1=0x2f, l2=» GOTOXY(1,20);WRITELN('Vælg register');«, l3=0x2f}
0x6980…6991 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x6991…69ba Line {l1=0x27, l2=» GOTOXY(15,20);READLN;READ(I)«, l3=0x27}
0x69ba…69ed Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<7);«, l3=0x31}
0x69ed…6a01 Line {l1=0x12, l2=» CASE I OF«, l3=0x12}
0x6a01…6a14 Line {l1=0x11, l2=» 0: BEGIN«, l3=0x11}
0x6a14…6a3b Line {l1=0x25, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x25}
0x6a3b…6a6a Line {l1=0x2d, l2=» DESCNAVN:='SYSRDESC:P2:0000:J';«, l3=0x2d}
0x6a6a…6a86 Line {l1=0x1a, l2=» REGNAVN:='S'«, l3=0x1a}
0x6a86…6a98 Line {l1=0x10, l2=» END;«, l3=0x10}
0x6a98…6aab Line {l1=0x11, l2=» 1: BEGIN«, l3=0x11}
0x6aab…6ad7 Line {l1=0x2a, l2=» FNAVN:='OPERAREG:P2:0000:I';«, l3=0x2a}
0x6ad7…6b06 Line {l1=0x2d, l2=» DESCNAVN:='OPERDESC:P2:0000:J';«, l3=0x2d}
0x6b06…6b36 Line {l1=0x2e, l2=» REGNAVN:='O P E R A T I O N S -'«, l3=0x2e}
0x6b36…6b48 Line {l1=0x10, l2=» END;«, l3=0x10}
0x6b48…6b5b Line {l1=0x11, l2=» 2: BEGIN«, l3=0x11}
0x6b5b…6b87 Line {l1=0x2a, l2=» FNAVN:='MEDARREG:P2:0000:I';«, l3=0x2a}
0x6b87…6bb6 Line {l1=0x2d, l2=» DESCNAVN:='MEDADESC:P2:0000:J';«, l3=0x2d}
0x6bb6…6be8 Line {l1=0x30, l2=» REGNAVN:='M E D A R B E J D E R -'«, l3=0x30}
0x6be8…6bfa Line {l1=0x10, l2=» END;«, l3=0x10}
0x6bfa…6c0d Line {l1=0x11, l2=» 3: BEGIN«, l3=0x11}
0x6c0d…6c39 Line {l1=0x2a, l2=» FNAVN:='ORDREREG:P2:0000:I';«, l3=0x2a}
0x6c39…6c68 Line {l1=0x2d, l2=» DESCNAVN:='ORDRDESC:P2:0000:J';«, l3=0x2d}
0x6c68…6c8e Line {l1=0x24, l2=» REGNAVN:='O R D R E -'«, l3=0x24}
0x6c8e…6ca0 Line {l1=0x10, l2=» END;«, l3=0x10}
0x6ca0…6cb3 Line {l1=0x11, l2=» 4: BEGIN«, l3=0x11}
0x6cb3…6cdf Line {l1=0x2a, l2=» FNAVN:='OPLINREG:P2:0000:I';«, l3=0x2a}
0x6cdf…6d0e Line {l1=0x2d, l2=» DESCNAVN:='OPLIDESC:P2:0000:J';«, l3=0x2d}
0x6d0e…6d3a Line {l1=0x2a, l2=» REGNAVN:='OPERATIONSLINIE -'«, l3=0x2a}
0x6d3a…6d4c Line {l1=0x10, l2=» END;«, l3=0x10}
0x6d4c…6d5f Line {l1=0x11, l2=» 5: BEGIN«, l3=0x11}
0x6d5f…6d8b Line {l1=0x2a, l2=» FNAVN:='REGLIREG:P2:0000:I';«, l3=0x2a}
0x6d8b…6dba Line {l1=0x2d, l2=» DESCNAVN:='REGLDESC:P2:0000:J';«, l3=0x2d}
0x6dba…6de9 Line {l1=0x2d, l2=» REGNAVN:='REGISTRERINGSLINIE -'«, l3=0x2d}
0x6de9…6dfb Line {l1=0x10, l2=» END;«, l3=0x10}
0x6dfb…6e0e Line {l1=0x11, l2=» 6: BEGIN«, l3=0x11}
0x6e0e…6e3a Line {l1=0x2a, l2=» FNAVN:='HISTOREG:P2:0000:I';«, l3=0x2a}
0x6e3a…6e69 Line {l1=0x2d, l2=» DESCNAVN:='HISTDESC:P2:0000:J';«, l3=0x2d}
0x6e69…6e95 Line {l1=0x2a, l2=» REGNAVN:='H I S T O R I E -'«, l3=0x2a}
0x6e95…6ea6 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x6ea6…6eb5 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x6eb5…6ee2 Line {l1=0x2b, l2=» IF (I<3) OR (USERNIVEAU>=HSM) THEN«, l3=0x2b}
0x6ee2…6ef2 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x6ef2…6f09 Line {l1=0x15, l2=» MARK(QUQ);«, l3=0x15}
0x6f09…6f1e Line {l1=0x13, l2=» REGVEDL;«, l3=0x13}
0x6f1e…6f37 Line {l1=0x17, l2=» RELEASE(QUQ)«, l3=0x17}
0x6f37…6f45 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x6f45…6f52 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x6f52…6f65 Line {l1=0x11, l2=» 0: F:='STOP';«, l3=0x11}
0x6f65…6f99 Line {l1=0x32, l2=» 2: IF USERNIVEAU>=OBERST THEN F:='FORKALK:P2';«, l3=0x32}
0x6f99…6fcf Line {l1=0x34, l2=» 3: IF USERNIVEAU>=SERGENT THEN F:='TIDSFORB:P2';«, l3=0x34}
0x6fcf…6fe9 Line {l1=0x18, l2=» 4: F:='ORDSPØRG:P2';«, l3=0x18}
0x6fe9…701e Line {l1=0x33, l2=» 5: IF USERNIVEAU>=OBERST THEN F:='ORDAFSLT:P2';«, l3=0x33}
0x701e…7054 Line {l1=0x34, l2=» 6: IF USERNIVEAU>=SERGENT THEN F:='LØNLISTE:P2';«, l3=0x34}
0x7054…706e Line {l1=0x18, l2=» 7: F:='PROSPØRG:P2';«, l3=0x18}
0x706e…7078 Line {l1=0x08, l2=» END;«, l3=0x08}
0x7078…707e Line {l1=0x04, l2=»END;«, l3=0x04}
0x707e…7086 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x7086…708d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x708d…70ab Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x70ab…70eb Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x70eb…7119 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x7119…7131 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x7131…7147 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x7147…7157 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x7157…7160 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7160…7183 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x7183…718f Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x718f…7197 Line {l1=0x06, l2=» END;«, l3=0x06}
0x7197…71a1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x71a1…71ae Line {l1=0x0b, l2=» F:=' ';«, l3=0x0b}
0x71ae…71c0 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x71c0…71cb Line {l1=0x09, l2=» DOIT;«, l3=0x09}
0x71cb…71dc Line {l1=0x0f, l2=» UNTIL F<>' ';«, l3=0x0f}
0x71dc…71f1 Line {l1=0x13, l2=» IF F<>'STOP' THEN«, l3=0x13}
0x71f1…71fa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x71fa…720b Line {l1=0x0f, l2=» FNAVN:=' ';«, l3=0x0f}
0x720b…7224 Line {l1=0x17, l2=» FNAVN(1):=PARM^(1);«, l3=0x17}
0x7224…725f Line {l1=0x39, l2=» CHAIN('L *1',CONCAT('INTRE,',F,',',FNAVN),QUQ);«, l3=0x39}
0x725f…7296 Line {l1=0x35, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x35}
0x7296…729d Line {l1=0x05, l2=» END«, l3=0x05}
0x729d…72a3 Line {l1=0x04, l2=»END.«, l3=0x04}
0x72a3…72c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccc┆
0x72c0…72e0 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┆
[…0x22…]
0x7720…7740 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 76 ┆cccccccccccccccccccccccccccccccv┆