|
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«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦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(18);
QUQ:^INTEGER;
I:INTEGER;
FNAVN,REGNAVN,DESCNAVN:STRING;
(*$P*)
SEGMENT 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;
PROCEDURE UR;
FORWARD;
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
MAXZONE=450;
MAXPOST=150;
(*$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;
FELTNAVN:STRING(8);
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;
VAR FELT:NFELT;
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-,IFORWARD*)
(*$IINITIATE*)
(*$IREPORT*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$P*)
(*$L+*)
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(1,F^.INDPOS.Y);
WRITELN(' ':79);
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,' ':57);
GOTOXY(22,23);READLN;
IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);
IF J>0 THEN BEGIN
LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J))
END
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
BEGIN
LÆSFELT(PICTURE(J));
SKRIVFELT(PICTURE(J))
END;
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;
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;
(*$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 SV:=ORD(CH)-48;
IF AVAIL THEN
SV:=10*SV+ORD(NEXT)-48;
FINIS;
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 DOIT;
TYPE
FILDESC=RECORD
FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);
VEDLNIVEAU:NIVEAU
END;
FILEDESC=FILE OF FILDESC;
PROGDESC=RECORD
PROGFIL,PROGNAVN:STRING(18);
PROGNIVEAU:NIVEAU
END;
PROGFILE=FILE OF PROGDESC;
VAR ISFFILES:FILEDESC;
PROGS:PROGFILE;
ISFFNAVN:STRING(18);
SCH:STRING(1);
J,FILNR,AKNR:INTEGER;
PROCEDURE IOC;
VAR CH:STRING(1);
IOR:INTEGER;
BEGIN
IOR:=IORESULT;
IF IOR<>0 THEN
BEGIN
CLEARSCREEN;
GOTOXY(1,10);
WRITELN('Pladefejl ',IOR:5,' RETURN');
CH:=' ';
EDIT(CH);
IF CH<>'R' THEN EXIT(DOIT)
END
END;
BEGIN
ISFFNAVN:='PROGFILE:P2:0000:S';
REWRITE(PROGS,ISFFNAVN);IOC;
REPEAT
SEEK(PROGS,1);IOC;
GET(PROGS);
CLEARSCREEN;
FILNR:=1;
WRITELN(' ':20,' 0 Stop');
WRITELN;
WRITELN(' ':20,' 1 Kartoteksvedligeholdelse');
WHILE PROGS^.PROGNAVN(1)<>'@' DO
BEGIN
FILNR:=FILNR+1;
IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN
WRITELN(' ':20,FILNR:3,PROGS^.PROGNAVN);
GET(PROGS);IOC
END;
WRITELN(' ':20,FILNR+1:3,' Indtast ny adgangskode');
IF USERNIVEAU>=GENERAL THEN
BEGIN
WRITELN;
WRITELN(' ':20,FILNR+2:3,' 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;
IF (I>1) AND (I<=FILNR) THEN
BEGIN
SEEK(PROGS,I-1);IOC;
GET(PROGS);IOC;
IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN
BEGIN
F:='';
SCH:=' ';
J:=0;
WHILE J<18 DO
BEGIN
J:=J+1;
IF PROGS^.PROGFIL(J)<>' ' THEN
BEGIN
SCH(1):=PROGS^.PROGFIL(J);
F:=CONCAT(F,SCH)
END
ELSE J:=18
END
END
END;
UNTIL (I=0) OR (I=1) OR (I=FILNR+1) OR (F<>' ') OR
((I=FILNR+2) AND (USERNIVEAU>=GENERAL));
IF I=FILNR+2 THEN
BEGIN
CLEARSCREEN;
IF USERNIVEAU>=HSM THEN
BEGIN
WRITELN(' ':20,'1 Skærmbilledopbygning');
WRITELN(' ':20,'2 Listedefinition')
END;
WRITELN(' ':20,'3 Æ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<4);
CASE I OF
1: IF USERNIVEAU>=HSM THEN F:='SKÆRMBIL:P2';
2: IF USERNIVEAU>=HSM THEN F:='LISTEGEN:P2';
3: KODEVEDL;
END
END
ELSE
IF I=FILNR+1 THEN
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
ELSE IF I=1 THEN
BEGIN
ISFFNAVN:='ISFFILES:P2:0000:S';
REWRITE(ISFFILES,ISFFNAVN);IOC;
REPEAT
CLEARSCREEN;
SEEK(ISFFILES,1);IOC;
GET(ISFFILES);IOC;
FILNR:=0;
WHILE ISFFILES^.FILNAVN(1)<>'@' DO
BEGIN
FILNR:=FILNR+1;
IF ISFFILES^.VEDLNIVEAU<=USERNIVEAU THEN
WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');
GET(ISFFILES);IOC
END;
GOTOXY(1,23);WRITELN('Vælg register');
REPEAT
GOTOXY(15,23);READLN;READ(AKNR)
UNTIL (IORESULT=0) AND (AKNR>=0) AND (AKNR<=FILNR);
IF AKNR>0 THEN
BEGIN
SEEK(ISFFILES,AKNR);IOC;
GET(ISFFILES);IOC
END
UNTIL (AKNR=0) OR (ISFFILES^.VEDLNIVEAU<=USERNIVEAU);
IF AKNR>0 THEN
BEGIN
FNAVN:=ISFFILES^.FILNAVN;
DESCNAVN:=ISFFILES^.DESCNAVN;
REGNAVN:=ISFFILES^.REGNAVN;
CLOSE(ISFFILES);IOC;
MARK(QUQ);
REGVEDL;
RELEASE(QUQ)
END
END
ELSE IF I=0 THEN
F:='STOP';
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(18);«, 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…02fd Line {l1=0x1b, l2=»SEGMENT PROCEDURE KODEVEDL;«, l3=0x1b}
0x02fd…0303 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0303…0311 Line {l1=0x0c, l2=»ENTRY=RECORD«, l3=0x0c}
0x0311…032a Line {l1=0x17, l2=» KODE:STRING(9);«, l3=0x17}
0x032a…033f Line {l1=0x13, l2=» NIV:INTEGER«, l3=0x13}
0x033f…0345 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0345…0364 Line {l1=0x1d, l2=»KODER=ARRAY (1..20) OF ENTRY;«, l3=0x1d}
0x0364…037c Line {l1=0x16, l2=»KODEFIL=FILE OF KODER;«, l3=0x16}
0x037c…038c Line {l1=0x0e, l2=»VAR F:KODEFIL;«, l3=0x0e}
0x038c…03a3 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x03a3…03bc Line {l1=0x17, l2=» USERKODE:STRING(9);«, l3=0x17}
0x03bc…03e4 Line {l1=0x26, l2=» NIVEAUD:ARRAY (0..6) OF STRING(8);«, l3=0x26}
0x03e4…03f6 Line {l1=0x10, l2=» I,J:INTEGER;«, l3=0x10}
0x03f6…03fd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03fd…0418 Line {l1=0x19, l2=» NIVEAUD(0):='MENIG ';«, l3=0x19}
0x0418…0433 Line {l1=0x19, l2=» NIVEAUD(1):='SERGENT ';«, l3=0x19}
0x0433…044e Line {l1=0x19, l2=» NIVEAUD(2):='LØJTNANT';«, l3=0x19}
0x044e…0469 Line {l1=0x19, l2=» NIVEAUD(3):='KAPTAJN ';«, l3=0x19}
0x0469…0484 Line {l1=0x19, l2=» NIVEAUD(4):='MAJOR ';«, l3=0x19}
0x0484…049f Line {l1=0x19, l2=» NIVEAUD(5):='OBERST ';«, l3=0x19}
0x049f…04ba Line {l1=0x19, l2=» NIVEAUD(6):='GENERAL ';«, l3=0x19}
0x04ba…04d6 Line {l1=0x1a, l2=» FNAVN:='KODEFIL:P2:1:J';«, l3=0x1a}
0x04d6…04eb Line {l1=0x13, l2=» REWRITE(F,FNAVN);«, l3=0x13}
0x04eb…04f9 Line {l1=0x0c, l2=» SEEK(F,1);«, l3=0x0c}
0x04f9…0504 Line {l1=0x09, l2=» GET(F);«, l3=0x09}
0x0504…0514 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0514…055f Line {l1=0x49, l2=»(*$XO*) FOR I:=1 TO 20 DO BEGIN F^(I).KODE:=' ';F^(I).NIV:=0 END;«, l3=0x49}
0x055f…0568 Line {l1=0x07, l2=»(*$X-*)«, l3=0x07}
0x0568…0580 Line {l1=0x16, l2=» IF PARM^(1)='0' THEN«, l3=0x16}
0x0580…0589 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0589…05a5 Line {l1=0x1a, l2=» USERKODE:=' ';«, l3=0x1a}
0x05a5…05b1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x05b1…05c5 Line {l1=0x12, l2=» GOTOXY(1,1);«, l3=0x12}
0x05c5…05e5 Line {l1=0x1e, l2=» WRITELN('Indtast kode');«, l3=0x1e}
0x05e5…060b Line {l1=0x24, l2=» GOTOXY(14,1);EDIT(USERKODE:9);«, l3=0x24}
0x060b…0624 Line {l1=0x17, l2=» FOR I:=1 TO 20 DO«, l3=0x17}
0x0624…0647 Line {l1=0x21, l2=» IF F^(I).KODE=USERKODE THEN«, l3=0x21}
0x0647…0654 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0654…067a Line {l1=0x24, l2=» PARM^(1):=CHR(F^(I).NIV+48);«, l3=0x24}
0x067a…0689 Line {l1=0x0d, l2=» I:=30«, l3=0x0d}
0x0689…0694 Line {l1=0x09, l2=» END«, l3=0x09}
0x0694…06a4 Line {l1=0x0e, l2=» UNTIL I>30«, l3=0x0e}
0x06a4…06ab Line {l1=0x05, l2=» END«, l3=0x05}
0x06ab…06b3 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x06b3…06bc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06bc…0702 Line {l1=0x44, l2=» FOR I:=1 TO 20 DO WRITELN(F^(I).KODE,' ':10,NIVEAUD(F^(I).NIV));«, l3=0x44}
0x0702…070e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x070e…0723 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x0723…074f Line {l1=0x2a, l2=» WRITELN('Kode nr 0 for færdig');«, l3=0x2a}
0x074f…0764 Line {l1=0x13, l2=» GOTOXY(9,23);«, l3=0x13}
0x0764…077b Line {l1=0x15, l2=» READLN;READ(I);«, l3=0x15}
0x077b…079b Line {l1=0x1e, l2=» IF (I>0) AND (I<21) THEN«, l3=0x1e}
0x079b…07a8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07a8…07bf Line {l1=0x15, l2=» GOTOXY(1,22);«, l3=0x15}
0x07bf…07de Line {l1=0x1d, l2=» USERKODE:=F^(I).KODE;«, l3=0x1d}
0x07de…07f9 Line {l1=0x19, l2=» EDIT(USERKODE:9);«, l3=0x19}
0x07f9…0818 Line {l1=0x1d, l2=» F^(I).KODE:=USERKODE;«, l3=0x1d}
0x0818…0828 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0828…0842 Line {l1=0x18, l2=» GOTOXY(20,22);«, l3=0x18}
0x0842…086b Line {l1=0x27, l2=» USERKODE:=NIVEAUD(F^(I).NIV);«, l3=0x27}
0x086b…0888 Line {l1=0x1b, l2=» EDIT(USERKODE:8);«, l3=0x1b}
0x0888…08a4 Line {l1=0x1a, l2=» FOR J:=0 TO 6 DO«, l3=0x1a}
0x08a4…08cb Line {l1=0x25, l2=» IF NIVEAUD(J)=USERKODE THEN«, l3=0x25}
0x08cb…08dc Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x08dc…08f7 Line {l1=0x19, l2=» F^(I).NIV:=J;«, l3=0x19}
0x08f7…090a Line {l1=0x11, l2=» J:=20«, l3=0x11}
0x090a…0919 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0919…092d Line {l1=0x12, l2=» UNTIL J>20«, l3=0x12}
0x092d…0938 Line {l1=0x09, l2=» END«, l3=0x09}
0x0938…0948 Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0948…0958 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x0958…0964 Line {l1=0x0a, l2=» PUT(F)«, l3=0x0a}
0x0964…096c Line {l1=0x06, l2=» END;«, l3=0x06}
0x096c…0979 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x0979…09ae Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x09ae…09b4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09b4…09bc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09bc…09f3 Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x09f3…09fe Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x09fe…0a17 Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x0a17…0a22 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a22…0a37 Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x0a37…0a42 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a42…0a54 Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x0a54…0a5f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0a5f…0a6e Line {l1=0x0d, l2=»PROCEDURE UR;«, l3=0x0d}
0x0a6e…0a78 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x0a78…0a80 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a80…0a94 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0a94…0aa9 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0aa9…0abd Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x0abd…0ad1 Line {l1=0x12, l2=» MAXZONE=450;«, l3=0x12}
0x0ad1…0ae5 Line {l1=0x12, l2=» MAXPOST=150;«, l3=0x12}
0x0ae5…0af4 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0af4…0b05 Line {l1=0x0f, l2=»ZZONE =RECORD«, l3=0x0f}
0x0b05…0b19 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0b19…0b41 Line {l1=0x26, l2=» T:ARRAY(1..MAXZONE) OF INTEGER«, l3=0x26}
0x0b41…0b47 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b47…0b60 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0b60…0b71 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0b71…0b81 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0b81…0b87 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b87…0bab Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0bab…0bdc Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0bdc…0c03 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0c03…0c1b Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0c1b…0c2f Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0c2f…0c47 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0c47…0c6d Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0c6d…0c7b Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0c7b…0c96 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0c96…0cba Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0cba…0cd1 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0cd1…0cf2 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0cf2…0d06 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x0d06…0d1a Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x0d1a…0d2e Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0d2e…0d49 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0d49…0d61 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0d61…0d7f Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0d7f…0d8d Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0d8d…0dae Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0dae…0dd2 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0dd2…0e02 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0e02…0e25 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0e25…0e39 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0e39…0e3f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e3f…0e61 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x0e61…0e88 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0e88…0ea3 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0ea3…0eb1 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0eb1…0ec1 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0ec1…0ece Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0ece…0ede Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0ede…0f0d Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x0f0d…0f13 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f13…0f24 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x0f24…0f39 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x0f39…0f65 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0f65…0f90 Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x0f90…0fcb Line {l1=0x39, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,ANTALNØGLER:INTEGER;«, l3=0x39}
0x0fcb…0fde Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x0fde…0ff0 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0ff0…1003 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x1003…1016 Line {l1=0x11, l2=» REGISTER:ISF;«, l3=0x11}
0x1016…1027 Line {l1=0x0f, l2=» ZONE:ZZONE;«, l3=0x0f}
0x1027…1038 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x1038…1041 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1041…1053 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x1053…1063 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x1063…1071 Line {l1=0x0c, l2=»(*$IREPORT*)«, l3=0x0c}
0x1071…107e Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x107e…108c Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x108c…109c Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x109c…10a9 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x10a9…10b9 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x10b9…10c9 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x10c9…10d8 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x10d8…10e6 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x10e6…10f4 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x10f4…1103 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x1103…1111 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x1111…1119 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1119…1122 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1122…1145 Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x1145…114c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x114c…116b Line {l1=0x1d, l2=» IF LINES>0 THEN PAGE(LIST);«, l3=0x1d}
0x116b…11aa Line {l1=0x3d, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER,' RETURN');«, l3=0x3d}
0x11aa…11e8 Line {l1=0x3c, l2=» CH:=' ';EDIT(CH);IF CH='R' THEN REPORT(ZONE.H,REGISTER,1);«, l3=0x3c}
0x11e8…1204 Line {l1=0x1a, l2=» ICLOSE(ZONE.H,REGISTER);«, l3=0x1a}
0x1204…1215 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1215…121b Line {l1=0x04, l2=»END;«, l3=0x04}
0x121b…123e Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x123e…124e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x124e…1255 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1255…1266 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1266…12b5 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x12b5…12e5 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x12e5…131e Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x131e…133a Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x133a…1349 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1349…134f Line {l1=0x04, l2=»END;«, l3=0x04}
0x134f…1357 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1357…136b Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x136b…1372 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1372…138d Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x138d…1390 Line {l1=0x01, l2=» «, l3=0x01}
0x1390…139e Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x139e…13a7 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x13a7…13ba Line {l1=0x11, l2=» ANTALNØGLER:=0;«, l3=0x11}
0x13ba…13d7 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x13d7…13e0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x13e0…13ed Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x13ed…1409 Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x1409…1432 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x1432…146c Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x146c…1476 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1476…148d Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x148d…14a6 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x14a6…14b1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x14b1…14cc Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x14cc…14ed Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x14ed…150e Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x150e…152d Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x152d…154c Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x154c…1573 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x1573…159a Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x159a…15bd Line {l1=0x21, l2=» IF ÆNDRENIVEAU=UMULIUS THEN«, l3=0x21}
0x15bd…15ca Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x15ca…15ef Line {l1=0x23, l2=» ANTALNØGLER:=ANTALNØGLER+1;«, l3=0x23}
0x15ef…1618 Line {l1=0x27, l2=» NØGLER(ANTALNØGLER):=PICTURE(I)«, l3=0x27}
0x1618…1624 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1624…1647 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1647…166c Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x166c…168f Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x168f…16b0 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x16b0…16cd Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x16cd…16ea Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x16ea…1707 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x1707…1734 Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x1734…1758 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1758…1765 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1765…1779 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1779…1790 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x1790…17b6 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x17b6…17d1 Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x17d1…180a Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x180a…183b Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x183b…186b Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x186b…1885 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1885…18a0 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x18a0…18d9 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x18d9…1927 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x1927…1974 Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x1974…198e Line {l1=0x18, l2=» END;«, l3=0x18}
0x198e…19a9 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x19a9…19e2 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x19e2…1a15 Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x1a15…1a47 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1a47…1a61 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1a61…1a91 Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x1a91…1a9f Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1a9f…1abe Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1abe…1ae1 Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1ae1…1b15 Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x1b15…1b21 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1b21…1b3c Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1b3c…1b46 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1b46…1b55 Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x1b55…1b5d Line {l1=0x06, l2=» END;«, l3=0x06}
0x1b5d…1b6d Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1b6d…1b7f Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x1b7f…1b85 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b85…1b8d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1b8d…1bb1 Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x1bb1…1bc4 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1bc4…1bdd Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x1bdd…1bf5 Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x1bf5…1bfc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1bfc…1c08 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x1c08…1c23 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x1c23…1c37 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x1c37…1c51 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x1c51…1c7e Line {l1=0x2b, l2=» TAL:=ABS(POST.A(F^.INDEKS));«, l3=0x2b}
0x1c7e…1c95 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1c95…1cc2 Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x1cc2…1ceb Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x1ceb…1d0d Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x1d0d…1d2a Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x1d2a…1d72 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x1d72…1db5 Line {l1=0x41, l2=» IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x41}
0x1db5…1dc8 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1dc8…1ddc Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x1ddc…1df6 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x1df6…1e42 Line {l1=0x4a, l2=» RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));«, l3=0x4a}
0x1e42…1e63 Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x1e63…1e7a Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1e7a…1ea4 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x1ea4…1ed0 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x1ed0…1eec Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x1eec…1f16 Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x1f16…1f2d Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1f2d…1f4e Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x1f4e…1f77 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x1f77…1fa1 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x1fa1…1fcd Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x1fcd…1feb Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x1feb…200a Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x200a…2052 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2052…209c Line {l1=0x48, l2=» IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN«, l3=0x48}
0x209c…20c5 Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x20c5…20d8 Line {l1=0x11, l2=» END;«, l3=0x11}
0x20d8…20ec Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x20ec…2106 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2106…2143 Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x2143…2159 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2159…217e Line {l1=0x23, l2=» CH(1):=POST.AA(I);«, l3=0x23}
0x217e…21a6 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x21a6…21ba Line {l1=0x12, l2=» END«, l3=0x12}
0x21ba…21cd Line {l1=0x11, l2=» END;«, l3=0x11}
0x21cd…21e1 Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x21e1…2213 Line {l1=0x30, l2=» RESULT:=ABS(POST.AAA(F^.INDEKS));«, l3=0x30}
0x2213…2231 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2231…2250 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2250…226a Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x226a…227f Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x227f…2295 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2295…22b0 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x22b0…22fe Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x22fe…2313 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2313…232d Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x232d…2351 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2351…2367 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2367…238d Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x238d…23a6 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x23a6…23d2 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x23d2…2400 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2400…2420 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2420…2456 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2456…246a Line {l1=0x12, l2=» END«, l3=0x12}
0x246a…247f Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x247f…2495 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2495…24b0 Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x24b0…24e8 Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x24e8…2512 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2512…253e Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x253e…255c Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x255c…2571 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2571…2588 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2588…25a9 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x25a9…25d2 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x25d2…260a Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x260a…2634 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2634…2660 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2660…267e Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x267e…269d Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x269d…26e4 Line {l1=0x45, l2=» IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x45}
0x26e4…26f6 Line {l1=0x10, l2=» END«, l3=0x10}
0x26f6…2701 Line {l1=0x09, l2=» END«, l3=0x09}
0x2701…2707 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2707…270f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x270f…2723 Line {l1=0x12, l2=»PROCEDURE NULPOST;«, l3=0x12}
0x2723…2735 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x2735…273c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x273c…276e Line {l1=0x30, l2=» FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO«, l3=0x30}
0x276e…2777 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2777…278d Line {l1=0x14, l2=» CASE FELTTYPE OF«, l3=0x14}
0x278d…27ac Line {l1=0x1d, l2=» HELTAL:POST.A(INDEKS):=0;«, l3=0x1d}
0x27ac…27bf Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x27bf…27e1 Line {l1=0x20, l2=» POST.A(INDEKS):=0;«, l3=0x20}
0x27e1…2804 Line {l1=0x21, l2=» POST.A(INDEKS+1):=0«, l3=0x21}
0x2804…2816 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2816…2837 Line {l1=0x1f, l2=» REEL:POST.AAA(INDEKS):=0.0;«, l3=0x1f}
0x2837…2866 Line {l1=0x2d, l2=» TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO«, l3=0x2d}
0x2866…2884 Line {l1=0x1c, l2=» POST.AA(I):=' ';«, l3=0x1c}
0x2884…288d Line {l1=0x07, l2=» END«, l3=0x07}
0x288d…2894 Line {l1=0x05, l2=» END«, l3=0x05}
0x2894…289a Line {l1=0x04, l2=»END;«, l3=0x04}
0x289a…289d Line {l1=0x01, l2=» «, l3=0x01}
0x289d…28c0 Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x28c0…28c7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x28c7…28ec Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x28ec…28f4 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x28f4…2916 Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x2916…2932 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x2932…2944 Line {l1=0x10, l2=» MOVETOLINE(F);«, l3=0x10}
0x2944…2956 Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x2956…295c Line {l1=0x04, l2=» END«, l3=0x04}
0x295c…2962 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2962…2965 Line {l1=0x01, l2=» «, l3=0x01}
0x2965…297b Line {l1=0x14, l2=»PROCEDURE SKRIVPOST;«, l3=0x14}
0x297b…298b Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x298b…2992 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2992…29a2 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x29a2…29d7 Line {l1=0x33, l2=» FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));«, l3=0x33}
0x29d7…29dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x29dd…29e0 Line {l1=0x01, l2=» «, l3=0x01}
0x29e0…29f6 Line {l1=0x14, l2=»PROCEDURE PRINTPOST;«, l3=0x14}
0x29f6…2a06 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x2a06…2a0d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a0d…2a2b Line {l1=0x1c, l2=» FOR I:=1 TO ANTALFELTER DO«, l3=0x1c}
0x2a2b…2a34 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2a34…2a60 Line {l1=0x2a, l2=» WRITE(LIST,PICTURE(I)^.LEDETEKST,' ');«, l3=0x2a}
0x2a60…2a7d Line {l1=0x1b, l2=» MOVETOLINE(PICTURE(I));«, l3=0x1b}
0x2a7d…2a92 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x2a92…2aaa Line {l1=0x16, l2=» WRITELN(LIST,LINE)«, l3=0x16}
0x2aaa…2ab1 Line {l1=0x05, l2=» END«, l3=0x05}
0x2ab1…2ab7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ab7…2abf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2abf…2ae0 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x2ae0…2af9 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x2af9…2b09 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x2b09…2b1b Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x2b1b…2b30 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x2b30…2b33 Line {l1=0x01, l2=» «, l3=0x01}
0x2b33…2b3b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2b3b…2b50 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x2b50…2b61 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x2b61…2b7e Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x2b7e…2b8c Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x2b8c…2b8f Line {l1=0x01, l2=» «, l3=0x01}
0x2b8f…2b96 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2b96…2ba0 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2ba0…2bb0 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x2bb0…2bc2 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x2bc2…2bcf Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x2bcf…2bdd Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x2bdd…2bf9 Line {l1=0x1a, l2=» GOTOXY(1,F^.INDPOS.Y);«, l3=0x1a}
0x2bf9…2c0f Line {l1=0x14, l2=» WRITELN(' ':79);«, l3=0x14}
0x2c0f…2c35 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x2c35…2c6f Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x2c6f…2cac Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x2cac…2cc8 Line {l1=0x1a, l2=» IF F^.EDITERING=0 THEN«, l3=0x1a}
0x2cc8…2cd3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2cd3…2cec Line {l1=0x17, l2=» READLN;READ(LINE)«, l3=0x17}
0x2cec…2cf5 Line {l1=0x07, l2=» END«, l3=0x07}
0x2cf5…2cff Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2cff…2d0a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2d0a…2d20 Line {l1=0x14, l2=» MOVETOLINE(F);«, l3=0x14}
0x2d20…2d3d Line {l1=0x1b, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x1b}
0x2d3d…2d81 Line {l1=0x42, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1)«, l3=0x42}
0x2d81…2d8b Line {l1=0x08, l2=» END;«, l3=0x08}
0x2d8b…2da4 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x2da4…2dac Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x2dac…2dd1 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x2dd1…2ddc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2ddc…2ded Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x2ded…2e14 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x2e14…2e31 Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x2e31…2e53 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x2e53…2e61 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2e61…2e83 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x2e83…2e8d Line {l1=0x08, l2=» END;«, l3=0x08}
0x2e8d…2e9e Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x2e9e…2eba Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x2eba…2ec5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2ec5…2ed2 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x2ed2…2ee5 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x2ee5…2f00 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x2f00…2f0d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2f0d…2f23 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x2f23…2f31 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x2f31…2f3d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2f3d…2f5c Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x2f5c…2f69 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2f69…2f7c Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x2f7c…2f8d Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x2f8d…2fbc Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x2fbc…2fcb Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2fcb…2fe1 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x2fe1…2ffc Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x2ffc…300a Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x300a…3035 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x3035…3041 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3041…3060 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x3060…3072 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x3072…308d Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x308d…30d9 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x30d9…3109 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x3109…311e Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x311e…314b Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x314b…317c Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x317c…318f Line {l1=0x11, l2=» END«, l3=0x11}
0x318f…31ad Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x31ad…31b8 Line {l1=0x09, l2=» END«, l3=0x09}
0x31b8…31d0 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x31d0…31d7 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x31d7…31f3 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x31f3…31fe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x31fe…320b Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x320b…321e Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x321e…322f Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x322f…324a Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x324a…3257 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3257…326d Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x326d…327b Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x327b…3287 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3287…32b5 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x32b5…32c2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x32c2…32d5 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x32d5…32e6 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x32e6…330f Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x330f…333c Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x333c…334a Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x334a…337a Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x337a…338d Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x338d…339b Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x339b…33aa Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x33aa…33c0 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x33c0…33db Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x33db…33e8 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x33e8…33f4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x33f4…3404 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3404…3423 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3423…3430 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3430…3441 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3441…3457 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x3457…3480 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3480…348f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x348f…34bf Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x34bf…34d7 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x34d7…34e4 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x34e4…34f2 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x34f2…3501 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3501…3517 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3517…3532 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3532…353f Line {l1=0x0b, l2=» END«, l3=0x0b}
0x353f…354b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x354b…356a Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x356a…358f Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x358f…3598 Line {l1=0x07, l2=» END«, l3=0x07}
0x3598…35ab Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x35ab…35b4 Line {l1=0x07, l2=» END«, l3=0x07}
0x35b4…35c0 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x35c0…35c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x35c6…35ce Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x35ce…35e3 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x35e3…3608 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x3608…362b Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x362b…3632 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3632…3651 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3651…365f Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x365f…3690 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3690…369e Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x369e…36de Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x36de…371d Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x371d…372b Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x372b…3764 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3764…376d Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x376d…3789 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3789…3794 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3794…37c5 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x37c5…37f9 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x37f9…382c Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x382c…387a Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x387a…3894 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3894…38a9 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x38a9…38d8 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x38d8…3923 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x3923…392e Line {l1=0x09, l2=» END«, l3=0x09}
0x392e…3937 Line {l1=0x07, l2=» END«, l3=0x07}
0x3937…394f Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x394f…3957 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x3957…3974 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x3974…397f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x397f…39b1 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x39b1…39d0 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x39d0…39f0 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x39f0…3a0d Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x3a0d…3a5b Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3a5b…3a75 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3a75…3a8a Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3a8a…3ab9 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x3ab9…3b03 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x3b03…3b0f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3b0f…3b29 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3b29…3b36 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3b36…3b85 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}
0x3b85…3baf Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x3baf…3bde Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x3bde…3be9 Line {l1=0x09, l2=» END«, l3=0x09}
0x3be9…3bf2 Line {l1=0x07, l2=» END«, l3=0x07}
0x3bf2…3c0a Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x3c0a…3c11 Line {l1=0x05, l2=» END«, l3=0x05}
0x3c11…3c17 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c17…3c1f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3c1f…3c36 Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x3c36…3c3d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3c3d…3c62 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN«, l3=0x23}
0x3c62…3c6a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3c6a…3c74 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3c74…3c83 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x3c83…3c9a Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x3c9a…3cae Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x3cae…3cd8 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x3cd8…3ce3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3ce3…3cf4 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x3cf4…3d0e Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x3d0e…3d17 Line {l1=0x07, l2=» END«, l3=0x07}
0x3d17…3d2c Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x3d2c…3d43 Line {l1=0x15, l2=» CASE F^.FELTTYPE OF«, l3=0x15}
0x3d43…3d65 Line {l1=0x20, l2=» HELTAL:POST.A(F^.INDEKS):=TAL;«, l3=0x20}
0x3d65…3d76 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x3d76…3d9b Line {l1=0x23, l2=» POST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x3d9b…3dc2 Line {l1=0x25, l2=» POST.A(F^.INDEKS+1):=TAL1«, l3=0x25}
0x3dc2…3dd2 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x3dd2…3df7 Line {l1=0x23, l2=» REEL:POST.AAA(F^.INDEKS):=RESULT;«, l3=0x23}
0x3df7…3e19 Line {l1=0x20, l2=» TEKST:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x20}
0x3e19…3e46 Line {l1=0x2b, l2=» POST.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x2b}
0x3e46…3e4d Line {l1=0x05, l2=» END«, l3=0x05}
0x3e4d…3e53 Line {l1=0x04, l2=» END«, l3=0x04}
0x3e53…3e59 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3e59…3e61 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3e61…3e76 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x3e76…3e86 Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x3e86…3e99 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x3e99…3ea0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3ea0…3eb4 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x3eb4…3ecd Line {l1=0x17, l2=» IF OPTION<>4 THEN«, l3=0x17}
0x3ecd…3eda Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3eda…3ef8 Line {l1=0x1c, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x1c}
0x3ef8…3f16 Line {l1=0x1c, l2=» USERNIVEAU:=UMULIUS;«, l3=0x1c}
0x3f16…3f28 Line {l1=0x10, l2=» NULPOST;«, l3=0x10}
0x3f28…3f37 Line {l1=0x0d, l2=» J:=1;«, l3=0x0d}
0x3f37…3f54 Line {l1=0x1b, l2=» LÆSFELT(NØGLER(J));«, l3=0x1b}
0x3f54…3f82 Line {l1=0x2c, l2=» WHILE (J<ANTALNØGLER) AND NOT EOF DO«, l3=0x2c}
0x3f82…3f91 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3f91…3fa4 Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x3fa4…3fc2 Line {l1=0x1c, l2=» LÆSFELT(NØGLER(J))«, l3=0x1c}
0x3fc2…3fd0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3fd0…3fee Line {l1=0x1c, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x1c}
0x3fee…4017 Line {l1=0x27, l2=» GETREC(ZONE.H,REGISTER,POST.A);«, l3=0x27}
0x4017…4057 Line {l1=0x3e, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(ZONE.H.FILENAME);«, l3=0x3e}
0x4057…406c Line {l1=0x13, l2=» IF EOF THEN«, l3=0x13}
0x406c…407b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x407b…4095 Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x4095…40a6 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x40a6…40d4 Line {l1=0x2c, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x40d4…410f Line {l1=0x39, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x410f…4135 Line {l1=0x24, l2=» ERROR(ZONE.H.FILENAME)«, l3=0x24}
0x4135…4145 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4145…4157 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x4157…416f Line {l1=0x16, l2=» SKRIVPOST;«, l3=0x16}
0x416f…418a Line {l1=0x19, l2=» GOTOXY(1,23);«, l3=0x19}
0x418a…41a0 Line {l1=0x14, l2=» CH:='F';«, l3=0x14}
0x41a0…41df Line {l1=0x3d, l2=» WRITELN('Rigtig post R, Flere poster F, Stop S');«, l3=0x3d}
0x41df…41fb Line {l1=0x1a, l2=» GOTOXY(39,23);«, l3=0x1a}
0x41fb…4212 Line {l1=0x15, l2=» EDIT(CH);«, l3=0x15}
0x4212…422e Line {l1=0x1a, l2=» IF CH='F' THEN«, l3=0x1a}
0x422e…4241 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4241…4271 Line {l1=0x2e, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2e}
0x4271…42ad Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3a}
0x42ad…42d5 Line {l1=0x26, l2=» ERROR(ZONE.H.FILENAME)«, l3=0x26}
0x42d5…42e6 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x42e6…4300 Line {l1=0x18, l2=» UNTIL CH<>'F';«, l3=0x18}
0x4300…4329 Line {l1=0x27, l2=» GOTOXY(1,23);WRITELN(' ':77);«, l3=0x27}
0x4329…434d Line {l1=0x22, l2=» IF OPTION=2 THEN CH:='S'«, l3=0x22}
0x434d…435a Line {l1=0x0b, l2=» END«, l3=0x0b}
0x435a…4368 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4368…4377 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4377…4390 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x4390…43a1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x43a1…43b7 Line {l1=0x14, l2=» CH:='R';«, l3=0x14}
0x43b7…43ce Line {l1=0x15, l2=» SKRIVPOST«, l3=0x15}
0x43ce…43dd Line {l1=0x0d, l2=» END«, l3=0x0d}
0x43dd…43ed Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x43ed…43fe Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x43fe…4414 Line {l1=0x14, l2=» CH:='S';«, l3=0x14}
0x4414…4455 Line {l1=0x3f, l2=» GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');«, l3=0x3f}
0x4455…4477 Line {l1=0x20, l2=» GOTOXY(28,23);READLN«, l3=0x20}
0x4477…4486 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4486…4493 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4493…449f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x449f…44c5 Line {l1=0x24, l2=» IF (OPTION=4) OR (CH='R') THEN«, l3=0x24}
0x44c5…44db Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x44db…44ed Line {l1=0x10, l2=» 1: BEGIN«, l3=0x10}
0x44ed…4502 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x4502…4519 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x4519…4539 Line {l1=0x1e, l2=» GOTOXY(1,23);«, l3=0x1e}
0x4539…4551 Line {l1=0x16, l2=» J:=0;«, l3=0x16}
0x4551…458e Line {l1=0x3b, l2=» WRITELN('Feltnr, 0 for færdig ',J,' ':57);«, l3=0x3b}
0x458e…45b6 Line {l1=0x26, l2=» GOTOXY(22,23);READLN;«, l3=0x26}
0x45b6…45f3 Line {l1=0x3b, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)«, l3=0x3b}
0x45f3…4637 Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);«, l3=0x42}
0x4637…4659 Line {l1=0x20, l2=» IF J>0 THEN BEGIN«, l3=0x20}
0x4659…46a1 Line {l1=0x46, l2=» LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J))«, l3=0x46}
0x46a1…46c1 Line {l1=0x1e, l2=» END«, l3=0x1e}
0x46c1…46da Line {l1=0x17, l2=» UNTIL J=0;«, l3=0x17}
0x46da…4708 Line {l1=0x2c, l2=» PUTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x4708…473c Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x32}
0x473c…474d Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x474d…4782 Line {l1=0x33, l2=» 2: BEGIN WRITELN('Tryk RETURN');READLN END;«, l3=0x33}
0x4782…4794 Line {l1=0x10, l2=» 3: BEGIN«, l3=0x10}
0x4794…47a9 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x47a9…47c7 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x47c7…47fe Line {l1=0x35, l2=» WRITELN('Antal poster, 0 for resten');«, l3=0x35}
0x47fe…481d Line {l1=0x1d, l2=» GOTOXY(28,23);«, l3=0x1d}
0x481d…483c Line {l1=0x1d, l2=» READLN;READ(J)«, l3=0x1d}
0x483c…4882 Line {l1=0x44, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ZONE.H.RECINUSE);«, l3=0x44}
0x4882…4897 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x4897…48c9 Line {l1=0x30, l2=» IF (LINES+2+ANTALFELTER)>=72 THEN«, l3=0x30}
0x48c9…48df Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x48df…4910 Line {l1=0x2f, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x2f}
0x4910…4945 Line {l1=0x33, l2=» WRITELN(LIST,REGNAVN,' UDSKRIFT');«, l3=0x33}
0x4945…4966 Line {l1=0x1f, l2=» WRITELN(LIST);«, l3=0x1f}
0x4966…4981 Line {l1=0x19, l2=» LINES:=2«, l3=0x19}
0x4981…4996 Line {l1=0x13, l2=» END;«, l3=0x13}
0x4996…49b1 Line {l1=0x19, l2=» PRINTPOST;«, l3=0x19}
0x49b1…49c9 Line {l1=0x16, l2=» J:=J-1;«, l3=0x16}
0x49c9…4a05 Line {l1=0x3a, l2=» WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;«, l3=0x3a}
0x4a05…4a36 Line {l1=0x2f, l2=» NEXTREC(ZONE.H,REGISTER,POST.A);«, l3=0x2f}
0x4a36…4a68 Line {l1=0x30, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x30}
0x4a68…4a8f Line {l1=0x25, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x25}
0x4a8f…4aca Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x4aca…4afe Line {l1=0x32, l2=» ERROR(ZONE.H.FILENAME) ELSE IER:=0«, l3=0x32}
0x4afe…4b0f Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x4b0f…4b21 Line {l1=0x10, l2=» 4: BEGIN«, l3=0x10}
0x4b21…4b38 Line {l1=0x15, l2=» NULPOST;«, l3=0x15}
0x4b38…4b51 Line {l1=0x17, l2=» SKRIVPOST;«, l3=0x17}
0x4b51…4b74 Line {l1=0x21, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x21}
0x4b74…4b97 Line {l1=0x21, l2=» USERNIVEAU:=UMULIUS;«, l3=0x21}
0x4b97…4bc0 Line {l1=0x27, l2=» FOR J:=1 TO ANTALFELTER DO«, l3=0x27}
0x4bc0…4bd4 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x4bd4…4bf9 Line {l1=0x23, l2=» LÆSFELT(PICTURE(J));«, l3=0x23}
0x4bf9…4c1f Line {l1=0x24, l2=» SKRIVFELT(PICTURE(J))«, l3=0x24}
0x4c1f…4c32 Line {l1=0x11, l2=» END;«, l3=0x11}
0x4c32…4c55 Line {l1=0x21, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x21}
0x4c55…4c99 Line {l1=0x42, l2=» IF (NOT ZONE.H.FILEINIT) AND (ZONE.H.RECINUSE=0) THEN«, l3=0x42}
0x4c99…4cad Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x4cad…4ccb Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x4ccb…4d03 Line {l1=0x36, l2=» WRITELN('ANTAL INITIALISERINGSPOSTER');«, l3=0x36}
0x4d03…4d22 Line {l1=0x1d, l2=» GOTOXY(30,23);«, l3=0x1d}
0x4d22…4d42 Line {l1=0x1e, l2=» READLN;READ(J);«, l3=0x1e}
0x4d42…4d6f Line {l1=0x2b, l2=» INITIATE(ZONE.H,REGISTER,J);«, l3=0x2b}
0x4d6f…4da5 Line {l1=0x34, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x34}
0x4da5…4db8 Line {l1=0x11, l2=» END;«, l3=0x11}
0x4db8…4de6 Line {l1=0x2c, l2=» INSERT(ZONE.H,REGISTER,POST.A);«, l3=0x2c}
0x4de6…4e03 Line {l1=0x1b, l2=» IF IER<>0 THEN«, l3=0x1b}
0x4e03…4e20 Line {l1=0x1b, l2=» IF IER=-7 THEN«, l3=0x1b}
0x4e20…4e34 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x4e34…4e6c Line {l1=0x36, l2=» WRITELN('Posten findes, RETURN');READLN«, l3=0x36}
0x4e6c…4e7e Line {l1=0x10, l2=» END«, l3=0x10}
0x4e7e…4ea8 Line {l1=0x28, l2=» ELSE ERROR(ZONE.H.FILENAME)«, l3=0x28}
0x4ea8…4eb9 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x4eb9…4ecb Line {l1=0x10, l2=» 5: BEGIN«, l3=0x10}
0x4ecb…4ee7 Line {l1=0x1a, l2=» GOTOXY(1,20);«, l3=0x1a}
0x4ee7…4efe Line {l1=0x15, l2=» CH:='J';«, l3=0x15}
0x4efe…4f2d Line {l1=0x2d, l2=» WRITELN('Sletning korrekt J/N');«, l3=0x2d}
0x4f2d…4f53 Line {l1=0x24, l2=» GOTOXY(22,20);EDIT(CH);«, l3=0x24}
0x4f53…4f70 Line {l1=0x1b, l2=» IF CH='J' THEN«, l3=0x1b}
0x4f70…4f84 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x4f84…4fb4 Line {l1=0x2e, l2=» DELETE(ZONE.H,REGISTER,POST.A);«, l3=0x2e}
0x4fb4…4fd3 Line {l1=0x1d, l2=» IF IER=-9 THEN«, l3=0x1d}
0x4fd3…4fe9 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x4fe9…502d Line {l1=0x42, l2=» WRITELN('Eneste post, kan ikke slettes, RETURN');«, l3=0x42}
0x502d…5047 Line {l1=0x18, l2=» READLN;«, l3=0x18}
0x5047…5060 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x5060…5075 Line {l1=0x13, l2=» END;«, l3=0x13}
0x5075…50ab Line {l1=0x34, l2=» IF IER<>0 THEN ERROR(ZONE.H.FILENAME)«, l3=0x34}
0x50ab…50bd Line {l1=0x10, l2=» END«, l3=0x10}
0x50bd…50cd Line {l1=0x0e, l2=» END«, l3=0x0e}
0x50cd…50d8 Line {l1=0x09, l2=» END«, l3=0x09}
0x50d8…50de Line {l1=0x04, l2=»END;«, l3=0x04}
0x50de…50e6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x50e6…50ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x50ed…50fd Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x50fd…510c Line {l1=0x0d, l2=» LINES:=100;«, l3=0x0d}
0x510c…512c Line {l1=0x1e, l2=» ZONE.H.FILENAME:=' ';«, l3=0x1e}
0x512c…516d Line {l1=0x3f, l2=» FOR I:=1 TO POS(':',FNAVN)-1 DO ZONE.H.FILENAME(I):=FNAVN(I);«, l3=0x3f}
0x516d…5189 Line {l1=0x1a, l2=» REWRITE(REGISTER,FNAVN);«, l3=0x1a}
0x5189…51d0 Line {l1=0x45, l2=» IOPEN(ZONE.H,REGISTER,SKRIV);IF IER<>0 THEN OFEJL(ZONE.H.FILENAME);«, l3=0x45}
0x51d0…5200 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x5200…520c Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x520c…5243 Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x5243…524d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x524d…525f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x525f…5273 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x5273…52bd 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}
0x52bd…52d1 Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x52d1…52eb Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x52eb…530c Line {l1=0x1f, l2=» WRITELN(' ':9,'1 Ændring');«, l3=0x1f}
0x530c…5337 Line {l1=0x29, l2=» WRITELN(' ':9,'2 Udskrift på skærm');«, l3=0x29}
0x5337…5364 Line {l1=0x2b, l2=» WRITELN(' ':9,'3 Udskrift på printer');«, l3=0x2b}
0x5364…5388 Line {l1=0x22, l2=» WRITELN(' ':9,'4 Oprettelse');«, l3=0x22}
0x5388…53aa Line {l1=0x20, l2=» WRITELN(' ':9,'5 Sletning');«, l3=0x20}
0x53aa…53b6 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x53b6…53cc Line {l1=0x14, l2=» GOTOXY(10,19);«, l3=0x14}
0x53cc…53e8 Line {l1=0x1a, l2=» WRITELN('Vælg 0-5');«, l3=0x1a}
0x53e8…5401 Line {l1=0x17, l2=» GOTOXY(21,19);UR;«, l3=0x17}
0x5401…5413 Line {l1=0x10, l2=» OPTION:=SV«, l3=0x10}
0x5413…543b Line {l1=0x26, l2=» UNTIL (OPTION>=0) AND (OPTION<=6);«, l3=0x26}
0x543b…5451 Line {l1=0x14, l2=» IF OPTION>0 THEN«, l3=0x14}
0x5451…545c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x545c…548c Line {l1=0x2e, l2=» IF (OPTION=6) AND (USERNIVEAU>=HSM) THEN«, l3=0x2e}
0x548c…5499 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5499…54ca Line {l1=0x2f, l2=» WRITELN('REPORT, SBUC');READLN;READ(I);«, l3=0x2f}
0x54ca…54f9 Line {l1=0x2d, l2=» IF I>0 THEN REPORT(ZONE.H,REGISTER,I)«, l3=0x2d}
0x54f9…5504 Line {l1=0x09, l2=» END«, l3=0x09}
0x5504…5510 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x5510…5533 Line {l1=0x21, l2=» IF OPTION<6 THEN MAINTAIN«, l3=0x21}
0x5533…553c Line {l1=0x07, l2=» END«, l3=0x07}
0x553c…554f Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x554f…5571 Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x5571…558d Line {l1=0x1a, l2=» ICLOSE(ZONE.H,REGISTER);«, l3=0x1a}
0x558d…559d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x559d…55b7 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x55b7…55bd Line {l1=0x04, l2=»END;«, l3=0x04}
0x55bd…55c5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x55c5…55d4 Line {l1=0x0d, l2=»PROCEDURE UR;«, l3=0x0d}
0x55d4…55db Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x55db…55f1 Line {l1=0x14, l2=» SETUP(DBUF,LNGTH);«, l3=0x14}
0x55f1…55fc Line {l1=0x09, l2=» C:=' ';«, l3=0x09}
0x55fc…560d Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x560d…5616 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5616…5636 Line {l1=0x1e, l2=» GOTOXY(62,1);WRITE('Alarm');«, l3=0x1e}
0x5636…5670 Line {l1=0x38, l2=» IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;«, l3=0x38}
0x5670…568f Line {l1=0x1d, l2=» GOTOXY(62,2);WRITE('Time');«, l3=0x1d}
0x568f…5697 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5697…56a2 Line {l1=0x09, l2=» SV:=-1;«, l3=0x09}
0x56a2…56ac Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x56ac…56c9 Line {l1=0x1b, l2=» IF C<>CLOCK^.TIME(8) THEN«, l3=0x1b}
0x56c9…56d2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x56d2…56e4 Line {l1=0x10, l2=» IF TÆNDT THEN«, l3=0x10}
0x56e4…56ee Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x56ee…5701 Line {l1=0x11, l2=» GOTOXY(67,2);«, l3=0x11}
0x5701…571a Line {l1=0x17, l2=» WRITE(CLOCK^.TIME);«, l3=0x17}
0x571a…5723 Line {l1=0x07, l2=» END;«, l3=0x07}
0x5723…573b Line {l1=0x16, l2=» C:=CLOCK^.TIME(8);«, l3=0x16}
0x573b…574e Line {l1=0x11, l2=» OFFSET:=TIME;«, l3=0x11}
0x574e…5775 Line {l1=0x25, l2=» IF STIMER>0 THEN STIMER:=STIMER-1«, l3=0x25}
0x5775…577d Line {l1=0x06, l2=» END;«, l3=0x06}
0x577d…578e Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x578e…5797 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5797…57a8 Line {l1=0x0f, l2=» GOTOXY(76,2);«, l3=0x0f}
0x57a8…57cb Line {l1=0x21, l2=» WRITE((TIME-OFFSET) MOD 100:4);«, l3=0x21}
0x57cb…57d3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x57d3…57e8 Line {l1=0x13, l2=» IF STOPWATCH THEN«, l3=0x13}
0x57e8…57f1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x57f1…5812 Line {l1=0x1f, l2=» IF (TIME<0) AND (TT>0) THEN«, l3=0x1f}
0x5812…5842 Line {l1=0x2e, l2=» SEC100:=SEC100+(32767-TT)+(32767+TIME+2)«, l3=0x2e}
0x5842…584c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x584c…586b Line {l1=0x1d, l2=» SEC100:=SEC100+TIME-TT;«, l3=0x1d}
0x586b…587a Line {l1=0x0d, l2=» TT:=TIME;«, l3=0x0d}
0x587a…58af Line {l1=0x33, l2=» SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;«, l3=0x33}
0x58af…58dd Line {l1=0x2c, l2=» MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;«, l3=0x2c}
0x58dd…58f0 Line {l1=0x11, l2=» IF TÆNDT THEN«, l3=0x11}
0x58f0…58fb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x58fb…590e Line {l1=0x11, l2=» GOTOXY(60,3);«, l3=0x11}
0x590e…5930 Line {l1=0x20, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x20}
0x5930…593a Line {l1=0x08, l2=» END;«, l3=0x08}
0x593a…5942 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5942…597e Line {l1=0x3a, l2=» IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;«, l3=0x3a}
0x597e…598f Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x598f…59ae Line {l1=0x1d, l2=» IF HOWL THEN WRITE(CHR(7));«, l3=0x1d}
0x59ae…59bf Line {l1=0x0f, l2=» IF AVAIL THEN«, l3=0x0f}
0x59bf…59c8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x59c8…59d7 Line {l1=0x0d, l2=» CH:=NEXT;«, l3=0x0d}
0x59d7…5a0e Line {l1=0x35, l2=» IF TÆNDT OR (CH='T') OR (CH IN (.'0'..'9'.)) THEN«, l3=0x35}
0x5a0e…5a1e Line {l1=0x0e, l2=» CASE CH OF«, l3=0x0e}
0x5a1e…5a2d Line {l1=0x0d, l2=» 'S':BEGIN«, l3=0x0d}
0x5a2d…5a53 Line {l1=0x24, l2=» STOPWATCH:=NOT(STOPWATCH);«, l3=0x24}
0x5a53…5a9c Line {l1=0x47, l2=» IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;«, l3=0x47}
0x5a9c…5aaa Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5aaa…5af1 Line {l1=0x45, l2=» 'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;«, l3=0x45}
0x5af1…5b1e Line {l1=0x2b, l2=» 'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;«, l3=0x2b}
0x5b1e…5b39 Line {l1=0x19, l2=» 'T':TÆNDT:=NOT TÆNDT;«, l3=0x19}
0x5b39…5b78 Line {l1=0x3d, l2=»'0','1','2','3','4','5','6','7','8','9':BEGIN SV:=ORD(CH)-48;«, l3=0x3d}
0x5b78…5bb5 Line {l1=0x3b, l2=» IF AVAIL THEN«, l3=0x3b}
0x5bb5…5bfe Line {l1=0x47, l2=» SV:=10*SV+ORD(NEXT)-48;«, l3=0x47}
0x5bfe…5c34 Line {l1=0x34, l2=» FINIS;«, l3=0x34}
0x5c34…5c6e Line {l1=0x38, l2=» WRITELN(SV) END;«, l3=0x38}
0x5c6e…5c7d Line {l1=0x0d, l2=» 'M':BEGIN«, l3=0x0d}
0x5c7d…5c96 Line {l1=0x17, l2=» GOTOXY(70,3);«, l3=0x17}
0x5c96…5cb3 Line {l1=0x1b, l2=» IF STOPWATCH THEN«, l3=0x1b}
0x5cb3…5cde Line {l1=0x29, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x29}
0x5cde…5cec Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5cec…5cfb Line {l1=0x0d, l2=» 'A':BEGIN«, l3=0x0d}
0x5cfb…5d13 Line {l1=0x16, l2=» HOWL:=FALSE;«, l3=0x16}
0x5d13…5d31 Line {l1=0x1c, l2=» ALARM:=NOT(ALARM);«, l3=0x1c}
0x5d31…5d51 Line {l1=0x1e, l2=» CLOCK^.DATE(9):='0';«, l3=0x1e}
0x5d51…5d6a Line {l1=0x17, l2=» IF ALARM THEN«, l3=0x17}
0x5d6a…5d7b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x5d7b…5d9d Line {l1=0x20, l2=» CLOCK^.DATE(9):='1';«, l3=0x20}
0x5d9d…5db8 Line {l1=0x19, l2=» GOTOXY(72,1);«, l3=0x19}
0x5db8…5df2 Line {l1=0x38, l2=» FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;«, l3=0x38}
0x5df2…5e33 Line {l1=0x3f, l2=» ALARMTIME(I):=CLOCK^.DATE(I)«, l3=0x3f}
0x5e33…5e56 Line {l1=0x21, l2=» END;«, l3=0x21}
0x5e56…5e81 Line {l1=0x29, l2=» GOTOXY(72,1);WRITE(ALARMTIME)«, l3=0x29}
0x5e81…5e91 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x5e91…5e9f Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5e9f…5ea9 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5ea9…5eb1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5eb1…5ec0 Line {l1=0x0d, l2=» UNTIL SV>-1«, l3=0x0d}
0x5ec0…5ec6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5ec6…5ece Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5ece…5edf Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x5edf…5ee5 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x5ee5…5ef5 Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x5ef5…5f26 Line {l1=0x2f, l2=» FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);«, l3=0x2f}
0x5f26…5f3b Line {l1=0x13, l2=» VEDLNIVEAU:NIVEAU«, l3=0x13}
0x5f3b…5f41 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5f41…5f5c Line {l1=0x19, l2=»FILEDESC=FILE OF FILDESC;«, l3=0x19}
0x5f5c…5f6d Line {l1=0x0f, l2=»PROGDESC=RECORD«, l3=0x0f}
0x5f6d…5f8d Line {l1=0x1e, l2=» PROGFIL,PROGNAVN:STRING(18);«, l3=0x1e}
0x5f8d…5fa2 Line {l1=0x13, l2=» PROGNIVEAU:NIVEAU«, l3=0x13}
0x5fa2…5fa8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5fa8…5fc4 Line {l1=0x1a, l2=»PROGFILE=FILE OF PROGDESC;«, l3=0x1a}
0x5fc4…5fdc Line {l1=0x16, l2=»VAR ISFFILES:FILEDESC;«, l3=0x16}
0x5fdc…5ff1 Line {l1=0x13, l2=» PROGS:PROGFILE;«, l3=0x13}
0x5ff1…600b Line {l1=0x18, l2=» ISFFNAVN:STRING(18);«, l3=0x18}
0x600b…601f Line {l1=0x12, l2=» SCH:STRING(1);«, l3=0x12}
0x601f…603a Line {l1=0x19, l2=» J,FILNR,AKNR:INTEGER;«, l3=0x19}
0x603a…604a Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x604a…605d Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x605d…606f Line {l1=0x10, l2=» IOR:INTEGER;«, l3=0x10}
0x606f…6076 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6076…6088 Line {l1=0x10, l2=» IOR:=IORESULT;«, l3=0x10}
0x6088…609a Line {l1=0x10, l2=» IF IOR<>0 THEN«, l3=0x10}
0x609a…60a3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x60a3…60b5 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x60b5…60c8 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x60c8…60f4 Line {l1=0x2a, l2=» WRITELN('Pladefejl ',IOR:5,' RETURN');«, l3=0x2a}
0x60f4…6102 Line {l1=0x0c, l2=» CH:=' ';«, l3=0x0c}
0x6102…6111 Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x6111…6131 Line {l1=0x1e, l2=» IF CH<>'R' THEN EXIT(DOIT)«, l3=0x1e}
0x6131…6138 Line {l1=0x05, l2=» END«, l3=0x05}
0x6138…613e Line {l1=0x04, l2=»END;«, l3=0x04}
0x613e…6145 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6145…616a Line {l1=0x23, l2=» ISFFNAVN:='PROGFILE:P2:0000:S';«, l3=0x23}
0x616a…618c Line {l1=0x20, l2=» REWRITE(PROGS,ISFFNAVN);IOC;«, l3=0x20}
0x618c…6198 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x6198…61b2 Line {l1=0x18, l2=» SEEK(PROGS,1);IOC;«, l3=0x18}
0x61b2…61c5 Line {l1=0x11, l2=» GET(PROGS);«, l3=0x11}
0x61c5…61d9 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x61d9…61ea Line {l1=0x0f, l2=» FILNR:=1;«, l3=0x0f}
0x61ea…620d Line {l1=0x21, l2=» WRITELN(' ':20,' 0 Stop');«, l3=0x21}
0x620d…621d Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x621d…6254 Line {l1=0x35, l2=» WRITELN(' ':20,' 1 Kartoteksvedligeholdelse');«, l3=0x35}
0x6254…627c Line {l1=0x26, l2=» WHILE PROGS^.PROGNAVN(1)<>'@' DO«, l3=0x26}
0x627c…6289 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6289…62a2 Line {l1=0x17, l2=» FILNR:=FILNR+1;«, l3=0x17}
0x62a2…62d1 Line {l1=0x2d, l2=» IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN«, l3=0x2d}
0x62d1…6305 Line {l1=0x32, l2=» WRITELN(' ':20,FILNR:3,PROGS^.PROGNAVN);«, l3=0x32}
0x6305…631d Line {l1=0x16, l2=» GET(PROGS);IOC«, l3=0x16}
0x631d…6329 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x6329…6365 Line {l1=0x3a, l2=» WRITELN(' ':20,FILNR+1:3,' Indtast ny adgangskode');«, l3=0x3a}
0x6365…6388 Line {l1=0x21, l2=» IF USERNIVEAU>=GENERAL THEN«, l3=0x21}
0x6388…6395 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6395…63a7 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x63a7…63e6 Line {l1=0x3d, l2=» WRITELN(' ':20,FILNR+2:3,' Privilegerede funktioner')«, l3=0x3d}
0x63e6…63f2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x63f2…6420 Line {l1=0x2c, l2=» GOTOXY(1,22);WRITELN('Vælg funktion');«, l3=0x2c}
0x6420…6436 Line {l1=0x14, l2=» GOTOXY(15,22);«, l3=0x14}
0x6436…644c Line {l1=0x14, l2=» STIMER:=TIMER;«, l3=0x14}
0x644c…6457 Line {l1=0x09, l2=» UR;«, l3=0x09}
0x6457…649a Line {l1=0x41, l2=» IF STIMER=0 THEN BEGIN USERNIVEAU:=MENIG;PARM^(1):='0' END;«, l3=0x41}
0x649a…64a8 Line {l1=0x0c, l2=» I:=SV;«, l3=0x0c}
0x64a8…64cc Line {l1=0x22, l2=» IF (I>1) AND (I<=FILNR) THEN«, l3=0x22}
0x64cc…64d9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x64d9…64f7 Line {l1=0x1c, l2=» SEEK(PROGS,I-1);IOC;«, l3=0x1c}
0x64f7…6510 Line {l1=0x17, l2=» GET(PROGS);IOC;«, l3=0x17}
0x6510…653f Line {l1=0x2d, l2=» IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN«, l3=0x2d}
0x653f…654e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x654e…6560 Line {l1=0x10, l2=» F:='';«, l3=0x10}
0x6560…6575 Line {l1=0x13, l2=» SCH:=' ';«, l3=0x13}
0x6575…6586 Line {l1=0x0f, l2=» J:=0;«, l3=0x0f}
0x6586…659f Line {l1=0x17, l2=» WHILE J<18 DO«, l3=0x17}
0x659f…65b0 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x65b0…65c5 Line {l1=0x13, l2=» J:=J+1;«, l3=0x13}
0x65c5…65f1 Line {l1=0x2a, l2=» IF PROGS^.PROGFIL(J)<>' ' THEN«, l3=0x2a}
0x65f1…6604 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x6604…662e Line {l1=0x28, l2=» SCH(1):=PROGS^.PROGFIL(J);«, l3=0x28}
0x662e…664e Line {l1=0x1e, l2=» F:=CONCAT(F,SCH)«, l3=0x1e}
0x664e…665f Line {l1=0x0f, l2=» END«, l3=0x0f}
0x665f…6677 Line {l1=0x16, l2=» ELSE J:=18«, l3=0x16}
0x6677…6686 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x6686…6693 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x6693…669f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x669f…66d7 Line {l1=0x36, l2=» UNTIL (I=0) OR (I=1) OR (I=FILNR+1) OR (F<>' ') OR«, l3=0x36}
0x66d7…670b Line {l1=0x32, l2=» ((I=FILNR+2) AND (USERNIVEAU>=GENERAL));«, l3=0x32}
0x670b…6722 Line {l1=0x15, l2=» IF I=FILNR+2 THEN«, l3=0x15}
0x6722…6730 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x6730…6747 Line {l1=0x15, l2=» CLEARSCREEN;«, l3=0x15}
0x6747…6769 Line {l1=0x20, l2=» IF USERNIVEAU>=HSM THEN«, l3=0x20}
0x6769…6779 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x6779…67ad Line {l1=0x32, l2=» WRITELN(' ':20,'1 Skærmbilledopbygning');«, l3=0x32}
0x67ad…67db Line {l1=0x2c, l2=» WRITELN(' ':20,'2 Listedefinition')«, l3=0x2c}
0x67db…67ea Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x67ea…6821 Line {l1=0x35, l2=» WRITELN(' ':20,'3 Ændring af adgangskoder');«, l3=0x35}
0x6821…6839 Line {l1=0x16, l2=» GOTOXY(1,20);«, l3=0x16}
0x6839…685d Line {l1=0x22, l2=» WRITELN('Vælg funktion');«, l3=0x22}
0x685d…686e Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x686e…6887 Line {l1=0x17, l2=» GOTOXY(15,20);«, l3=0x17}
0x6887…68a0 Line {l1=0x17, l2=» READLN;READ(I)«, l3=0x17}
0x68a0…68d2 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<4);«, l3=0x30}
0x68d2…68e6 Line {l1=0x12, l2=» CASE I OF«, l3=0x12}
0x68e6…691d Line {l1=0x35, l2=» 1: IF USERNIVEAU>=HSM THEN F:='SKÆRMBIL:P2';«, l3=0x35}
0x691d…6954 Line {l1=0x35, l2=» 2: IF USERNIVEAU>=HSM THEN F:='LISTEGEN:P2';«, l3=0x35}
0x6954…696b Line {l1=0x15, l2=» 3: KODEVEDL;«, l3=0x15}
0x696b…6979 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x6979…6985 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x6985…6992 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x6992…69ac Line {l1=0x18, l2=» IF I=FILNR+1 THEN«, l3=0x18}
0x69ac…69ba Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x69ba…69d3 Line {l1=0x17, l2=» PARM^(1):='0';«, l3=0x17}
0x69d3…69e7 Line {l1=0x12, l2=» KODEVEDL;«, l3=0x12}
0x69e7…6a06 Line {l1=0x1d, l2=» I:=ORD(PARM^(1))-48;«, l3=0x1d}
0x6a06…6a23 Line {l1=0x1b, l2=» USERNIVEAU:=MENIG;«, l3=0x1b}
0x6a23…6a3a Line {l1=0x15, l2=» WHILE I>0 DO«, l3=0x15}
0x6a3a…6a4a Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x6a4a…6a74 Line {l1=0x28, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x28}
0x6a74…6a87 Line {l1=0x11, l2=» I:=I-1«, l3=0x11}
0x6a87…6a95 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x6a95…6aa1 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x6aa1…6aba Line {l1=0x17, l2=» ELSE IF I=1 THEN«, l3=0x17}
0x6aba…6ac8 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x6ac8…6af2 Line {l1=0x28, l2=» ISFFNAVN:='ISFFILES:P2:0000:S';«, l3=0x28}
0x6af2…6b1c Line {l1=0x28, l2=» REWRITE(ISFFILES,ISFFNAVN);IOC;«, l3=0x28}
0x6b1c…6b2d Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x6b2d…6b46 Line {l1=0x17, l2=» CLEARSCREEN;«, l3=0x17}
0x6b46…6b68 Line {l1=0x20, l2=» SEEK(ISFFILES,1);IOC;«, l3=0x20}
0x6b68…6b87 Line {l1=0x1d, l2=» GET(ISFFILES);IOC;«, l3=0x1d}
0x6b87…6b9d Line {l1=0x14, l2=» FILNR:=0;«, l3=0x14}
0x6b9d…6bcc Line {l1=0x2d, l2=» WHILE ISFFILES^.FILNAVN(1)<>'@' DO«, l3=0x2d}
0x6bcc…6bde Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x6bde…6bfc Line {l1=0x1c, l2=» FILNR:=FILNR+1;«, l3=0x1c}
0x6bfc…6c33 Line {l1=0x35, l2=» IF ISFFILES^.VEDLNIVEAU<=USERNIVEAU THEN«, l3=0x35}
0x6c33…6c77 Line {l1=0x42, l2=» WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');«, l3=0x42}
0x6c77…6c97 Line {l1=0x1e, l2=» GET(ISFFILES);IOC«, l3=0x1e}
0x6c97…6ca8 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x6ca8…6cdb Line {l1=0x31, l2=» GOTOXY(1,23);WRITELN('Vælg register');«, l3=0x31}
0x6cdb…6cee Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x6cee…6d1c Line {l1=0x2c, l2=» GOTOXY(15,23);READLN;READ(AKNR)«, l3=0x2c}
0x6d1c…6d5c Line {l1=0x3e, l2=» UNTIL (IORESULT=0) AND (AKNR>=0) AND (AKNR<=FILNR);«, l3=0x3e}
0x6d5c…6d77 Line {l1=0x19, l2=» IF AKNR>0 THEN«, l3=0x19}
0x6d77…6d89 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x6d89…6db0 Line {l1=0x25, l2=» SEEK(ISFFILES,AKNR);IOC;«, l3=0x25}
0x6db0…6dd0 Line {l1=0x1e, l2=» GET(ISFFILES);IOC«, l3=0x1e}
0x6dd0…6de0 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x6de0…6e20 Line {l1=0x3e, l2=» UNTIL (AKNR=0) OR (ISFFILES^.VEDLNIVEAU<=USERNIVEAU);«, l3=0x3e}
0x6e20…6e39 Line {l1=0x17, l2=» IF AKNR>0 THEN«, l3=0x17}
0x6e39…6e49 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x6e49…6e6f Line {l1=0x24, l2=» FNAVN:=ISFFILES^.FILNAVN;«, l3=0x24}
0x6e6f…6e99 Line {l1=0x28, l2=» DESCNAVN:=ISFFILES^.DESCNAVN;«, l3=0x28}
0x6e99…6ec1 Line {l1=0x26, l2=» REGNAVN:=ISFFILES^.REGNAVN;«, l3=0x26}
0x6ec1…6ee2 Line {l1=0x1f, l2=» CLOSE(ISFFILES);IOC;«, l3=0x1f}
0x6ee2…6ef9 Line {l1=0x15, l2=» MARK(QUQ);«, l3=0x15}
0x6ef9…6f0e Line {l1=0x13, l2=» REGVEDL;«, l3=0x13}
0x6f0e…6f27 Line {l1=0x17, l2=» RELEASE(QUQ)«, l3=0x17}
0x6f27…6f35 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x6f35…6f41 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x6f41…6f5a Line {l1=0x17, l2=» ELSE IF I=0 THEN«, l3=0x17}
0x6f5a…6f6f Line {l1=0x13, l2=» F:='STOP';«, l3=0x13}
0x6f6f…6f75 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6f75…6f7d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6f7d…6f84 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6f84…6fa2 Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x6fa2…6fe2 Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x6fe2…7010 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x7010…7028 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x7028…703e Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x703e…704e Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x704e…7057 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7057…707a Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x707a…7086 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x7086…708e Line {l1=0x06, l2=» END;«, l3=0x06}
0x708e…7098 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x7098…70a5 Line {l1=0x0b, l2=» F:=' ';«, l3=0x0b}
0x70a5…70b7 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x70b7…70c2 Line {l1=0x09, l2=» DOIT;«, l3=0x09}
0x70c2…70d3 Line {l1=0x0f, l2=» UNTIL F<>' ';«, l3=0x0f}
0x70d3…70e8 Line {l1=0x13, l2=» IF F<>'STOP' THEN«, l3=0x13}
0x70e8…70f1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x70f1…7102 Line {l1=0x0f, l2=» FNAVN:=' ';«, l3=0x0f}
0x7102…711b Line {l1=0x17, l2=» FNAVN(1):=PARM^(1);«, l3=0x17}
0x711b…7156 Line {l1=0x39, l2=» CHAIN('L *1',CONCAT('INTRE,',F,',',FNAVN),QUQ);«, l3=0x39}
0x7156…718d Line {l1=0x35, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x35}
0x718d…7194 Line {l1=0x05, l2=» END«, l3=0x05}
0x7194…719a Line {l1=0x04, l2=»END.«, l3=0x04}
0x719a…71a0 00 00 48 45 4e 20 ┆ HEN ┆
0x71a0…71c0 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 35 05 20 ┆WRITELN('IORESULT ',IORESULT)5 ┆
0x71c0…71e0 20 45 4e 44 05 04 45 4e 44 2e 04 00 00 3b 10 09 20 20 20 20 44 4f 49 54 3b 09 0f 20 20 55 4e 54 ┆ END END. ; DOIT; UNT┆
0x71e0…7200 49 4c 20 46 3c 3e 27 20 27 3b 0f 13 20 20 49 46 20 46 3c 3e 27 53 54 4f 50 27 20 54 48 45 4e 13 ┆IL F<>' '; IF F<>'STOP' THEN ┆
0x7200…7220 07 20 20 42 45 47 49 4e 07 0f 20 20 20 20 46 4e 41 56 4e 3a 3d 27 20 27 3b 0f 17 20 20 20 20 46 ┆ BEGIN FNAVN:=' '; F┆
0x7220…7240 4e 41 56 4e 28 31 29 3a 3d 50 41 52 4d 5e 28 31 29 3b 17 39 20 20 20 20 43 48 41 49 4e 28 27 4c ┆NAVN(1):=PARM^(1); 9 CHAIN('L┆
0x7240…7260 20 20 20 20 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 27 49 4e 54 52 45 2c 27 2c 46 2c 27 2c 27 ┆ *1',CONCAT('INTRE,',F,','┆
0x7260…7280 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 39 35 20 20 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e ┆,FNAVN),QUQ);95 IF IORESULT<>┆
0x7280…72a0 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 ┆0 THEN WRITELN('IORESULT ',IORES┆
0x72a0…72c0 55 4c 54 29 35 05 20 20 45 4e 44 05 04 45 4e 44 2e 04 00 00 54 29 35 05 20 20 45 4e 44 05 04 45 ┆ULT)5 END END. T)5 END E┆
0x72c0…72e0 4e 44 2e 04 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 ┆ND. cccccccccccccccccccccccccc┆
0x72e0…7300 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┆
[…0x21…]
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 00 ┆ccccccccccccccccccccccccccccccc ┆