|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »REORGANZ.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »REORGANZ.K«
PROGRAM REORGANZ;
CONST MAXRECSIZE=1000;
PROGRAMNR=1;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
F:STRING(18);
QUQ:^INTEGER;
IER,IREC,STATUSER,MODE,REMUSERS,
FILNR,I,FRANR,TILNR:INTEGER;
FNAVN,REGNAVN,DESCNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
PROCEDURE D23;
BEGIN
GOTOXY(1,23);WRITE(' ':79);GOTOXY(1,23)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D23;
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
MAXPOST=500;
TYPE
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 ANTALIDENT,
LINES,OPTION,I,J:INTEGER;
LINE:STRING;
POST:PPOST;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D23;
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
POST.A(-3):=TILNR;
ICLOSE(POST.A);
POST.A(-3):=FRANR; (*$R+*)
ICLOSE(POST.A);
EXIT(REGVEDL)
END;
(*$P*)
BEGIN (*REGVEDL*)
MODE:=3;(*SKRIV*)
(*$R-*)
POST.A(-3):=TILNR;
IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);
INITIATE(POST.A);IF IER<>0 THEN ERROR(POST.A);
POST.A(-3):=FRANR;
IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);
FOR I:=1 TO POST.A(-4) DO POST.A(I):=0;
NEXTREC(POST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A);
IER:=0;
WHILE IER=0 DO
BEGIN
POST.A(-3):=TILNR;
INSERT(POST.A);IF IER<>0 THEN ERROR(POST.A);
POST.A(-3):=FRANR;
NEXTREC(POST.A)
END;
IF IER<>-2 THEN ERROR(POST.A);
ICLOSE(POST.A);
POST.A(-4):=1;
POST.A(-3):=TILNR; (*$R+*)
ICLOSE(POST.A);
IF IER<>0 THEN BAD(6,IER)
END;
(*$P*)
PROCEDURE DOIT;
TYPE
FILDESC=RECORD
FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);
VEDLNIVEAU:NIVEAU;
ZONESIZE:INTEGER
END;
FILEDESC=FILE OF FILDESC;
ISF=FILE OF ARRAY (1..232) OF INTEGER;
VAR ISFFILES:FILEDESC;
ISFFNAVN:STRING(18);
SCH:STRING(1);
J,I,AKNR:INTEGER;
F,F1:ISF;
PROCEDURE IOC;
VAR CH:STRING(1);
IOR:INTEGER;
BEGIN
IOR:=IORESULT;
IF IOR<>0 THEN
BEGIN
CLEARSCREEN;
D23;
WRITE('Pladefejl ',IOR:5,' RETURN ');
CH:=' ';
EDIT(CH);
IF CH<>'R' THEN EXIT(DOIT)
END
END;
(*$P*)
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;
WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');
GET(ISFFILES);IOC
END;
REPEAT
D23;WRITE('Vælg register ');
READLN;READ(FRANR)
UNTIL (IORESULT=0) AND (FRANR>=0) AND (FRANR<=FILNR);
IF FRANR>0 THEN
BEGIN
SEEK(ISFFILES,FRANR);IOC;
GET(ISFFILES);IOC;
RESET(F,ISFFILES^.FILNAVN);IOC;
SEEK(F,1);IOC;
GET(F);IOC;
TILNR:=FILNR+1;
ISFFILES^.FILNAVN(2+POS(':',ISFFILES^.FILNAVN)):='1';
SEEK(ISFFILES,TILNR);IOC;
PUT(ISFFILES);IOC;
REWRITE(F1,ISFFILES^.FILNAVN);IOC;
SEEK(F1,1);IOC;
FOR I:=1 TO 100 DO F1^(I):=F^(I);
IREC:=F^(22);
F1^(22):=0;
F1^(20):=0;
F1^(21):=0;
F1^(23):=0;
PUT(F1);IOC;
CLOSE(F1);IOC;
CLOSE(F);IOC;
CLOSE(ISFFILES);IOC;
REGVEDL;
REWRITE(ISFFILES,ISFFNAVN);IOC;
ISFFILES^.FILNAVN(1):='@';
SEEK(ISFFILES,TILNR);IOC;
PUT(ISFFILES);IOC
END
UNTIL FRANR=0;
CLOSE(ISFFILES);IOC
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
DOIT;
F:='HOVED *1';
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN(F,FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM REORGANZ;«, l3=0x11}
0x0013…002b Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x002b…003f Line {l1=0x12, l2=» PROGRAMNR=1;«, l3=0x12}
0x003f…0045 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0045…006e Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x006e…00b9 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x00b9…00d1 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x00d1…011c Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x011c…0130 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0130…0146 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0146…015a Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x015a…01a3 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01a3…01f3 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x01f3…023d Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x023d…024e Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x024e…0270 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x0270…028f Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x028f…029e Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x029e…02bd Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x02bd…02d6 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x02d6…02f1 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x02f1…0307 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0307…031d Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x031d…0346 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0346…036b Line {l1=0x23, l2=» FILNR,I,FRANR,TILNR:INTEGER;«, l3=0x23}
0x036b…0396 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0396…03ac Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03ac…03c6 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x03c6…03d7 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x03d7…03ea Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x03ea…0403 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0403…041b Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x041b…0423 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0423…0433 Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x0433…043a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x043a…0465 Line {l1=0x29, l2=» GOTOXY(1,23);WRITE(' ':79);GOTOXY(1,23)«, l3=0x29}
0x0465…046b Line {l1=0x04, l2=»END;«, l3=0x04}
0x046b…0491 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0491…0498 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0498…04a0 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x04a0…04c2 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x04c2…04cc Line {l1=0x08, l2=» READLN«, l3=0x08}
0x04cc…04d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d2…04da Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x04da…0511 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0511…0538 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0538…0543 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0543…057b Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x057b…0586 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0586…05ba Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x05ba…05ef Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x05ef…05fa Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x05fa…0631 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0631…0658 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0658…0663 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0663…069b Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x069b…06c2 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x06c2…06cd Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06cd…0702 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x0702…070d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x070d…071a Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x071a…072a Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x072a…0732 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0732…0746 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0746…075b Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x075b…076f Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x076f…0783 Line {l1=0x12, l2=» MAXPOST=500;«, l3=0x12}
0x0783…0789 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0789…07b0 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x07b0…07cb Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x07cb…07d9 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x07d9…07e9 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x07e9…07f6 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x07f6…0806 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0806…0835 Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x0835…083b Line {l1=0x04, l2=»END;«, l3=0x04}
0x083b…084c Line {l1=0x0f, l2=»VAR ANTALIDENT,«, l3=0x0f}
0x084c…086b Line {l1=0x1d, l2=» LINES,OPTION,I,J:INTEGER;«, l3=0x1d}
0x086b…087d Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x087d…088e Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x088e…0896 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0896…08b4 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x08b4…08c7 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x08c7…08d7 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x08d7…08de Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08de…08e6 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x08e6…0934 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x0934…0982 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x0982…0997 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x0997…09c7 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x09c7…09dd Line {l1=0x14, l2=» POST.A(-3):=TILNR;«, l3=0x14}
0x09dd…09f0 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x09f0…0a39 Line {l1=0x47, l2=» POST.A(-3):=FRANR; (*$R+*)«, l3=0x47}
0x0a39…0a7c Line {l1=0x41, l2=» ICLOSE(POST.A); «, l3=0x41}
0x0a7c…0a8d Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0a8d…0a93 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a93…0a9b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a9b…0aae Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x0aae…0ac3 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x0ac3…0b13 Line {l1=0x4e, l2=» (*$R-*)«, l3=0x4e}
0x0b13…0b5b Line {l1=0x46, l2=» POST.A(-3):=TILNR; «, l3=0x46}
0x0b5b…0b8a Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x2d}
0x0b8a…0bbc Line {l1=0x30, l2=» INITIATE(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x30}
0x0bbc…0c04 Line {l1=0x46, l2=» POST.A(-3):=FRANR; «, l3=0x46}
0x0c04…0c33 Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x2d}
0x0c33…0c5e Line {l1=0x29, l2=» FOR I:=1 TO POST.A(-4) DO POST.A(I):=0;«, l3=0x29}
0x0c5e…0ca1 Line {l1=0x41, l2=» NEXTREC(POST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A);«, l3=0x41}
0x0ca1…0cac Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x0cac…0cbe Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x0cbe…0cc7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0cc7…0cdf Line {l1=0x16, l2=» POST.A(-3):=TILNR;«, l3=0x16}
0x0cdf…0d11 Line {l1=0x30, l2=» INSERT(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x30}
0x0d11…0d29 Line {l1=0x16, l2=» POST.A(-3):=FRANR;«, l3=0x16}
0x0d29…0d3e Line {l1=0x13, l2=» NEXTREC(POST.A)«, l3=0x13}
0x0d3e…0d46 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d46…0d68 Line {l1=0x20, l2=» IF IER<>-2 THEN ERROR(POST.A);«, l3=0x20}
0x0d68…0d7b Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x0d7b…0d8d Line {l1=0x10, l2=» POST.A(-4):=1;«, l3=0x10}
0x0d8d…0ddc Line {l1=0x4d, l2=» POST.A(-3):=TILNR; (*$R+*)«, l3=0x4d}
0x0ddc…0def Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x0def…0e0c Line {l1=0x1b, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x1b}
0x0e0c…0e12 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e12…0e1a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0e1a…0e2b Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0e2b…0e31 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0e31…0e41 Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x0e41…0e72 Line {l1=0x2f, l2=» FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);«, l3=0x2f}
0x0e72…0e88 Line {l1=0x14, l2=» VEDLNIVEAU:NIVEAU;«, l3=0x14}
0x0e88…0e9c Line {l1=0x12, l2=» ZONESIZE:INTEGER«, l3=0x12}
0x0e9c…0ea2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ea2…0ebd Line {l1=0x19, l2=»FILEDESC=FILE OF FILDESC;«, l3=0x19}
0x0ebd…0ee5 Line {l1=0x26, l2=»ISF=FILE OF ARRAY (1..232) OF INTEGER;«, l3=0x26}
0x0ee5…0efd Line {l1=0x16, l2=»VAR ISFFILES:FILEDESC;«, l3=0x16}
0x0efd…0f17 Line {l1=0x18, l2=» ISFFNAVN:STRING(18);«, l3=0x18}
0x0f17…0f2b Line {l1=0x12, l2=» SCH:STRING(1);«, l3=0x12}
0x0f2b…0f42 Line {l1=0x15, l2=» J,I,AKNR:INTEGER;«, l3=0x15}
0x0f42…0f51 Line {l1=0x0d, l2=» F,F1:ISF;«, l3=0x0d}
0x0f51…0f61 Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x0f61…0f74 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0f74…0f86 Line {l1=0x10, l2=» IOR:INTEGER;«, l3=0x10}
0x0f86…0f8d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f8d…0f9f Line {l1=0x10, l2=» IOR:=IORESULT;«, l3=0x10}
0x0f9f…0fb1 Line {l1=0x10, l2=» IF IOR<>0 THEN«, l3=0x10}
0x0fb1…0fba Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0fba…0fcc Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0fcc…0fd6 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x0fd6…1001 Line {l1=0x29, l2=» WRITE('Pladefejl ',IOR:5,' RETURN ');«, l3=0x29}
0x1001…100f Line {l1=0x0c, l2=» CH:=' ';«, l3=0x0c}
0x100f…101e Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x101e…103e Line {l1=0x1e, l2=» IF CH<>'R' THEN EXIT(DOIT)«, l3=0x1e}
0x103e…1045 Line {l1=0x05, l2=» END«, l3=0x05}
0x1045…104b Line {l1=0x04, l2=»END;«, l3=0x04}
0x104b…1053 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1053…105a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x105a…107d Line {l1=0x21, l2=» ISFFNAVN:='ISFFILES:P2:0000:S';«, l3=0x21}
0x107d…10a0 Line {l1=0x21, l2=» REWRITE(ISFFILES,ISFFNAVN);IOC;«, l3=0x21}
0x10a0…10aa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x10aa…10bc Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x10bc…10d7 Line {l1=0x19, l2=» SEEK(ISFFILES,1);IOC;«, l3=0x19}
0x10d7…10ef Line {l1=0x16, l2=» GET(ISFFILES);IOC;«, l3=0x16}
0x10ef…10fe Line {l1=0x0d, l2=» FILNR:=0;«, l3=0x0d}
0x10fe…1126 Line {l1=0x26, l2=» WHILE ISFFILES^.FILNAVN(1)<>'@' DO«, l3=0x26}
0x1126…1131 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1131…1148 Line {l1=0x15, l2=» FILNR:=FILNR+1;«, l3=0x15}
0x1148…1183 Line {l1=0x39, l2=» WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');«, l3=0x39}
0x1183…119c Line {l1=0x17, l2=» GET(ISFFILES);IOC«, l3=0x17}
0x119c…11a6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x11a6…11b2 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x11b2…11d6 Line {l1=0x22, l2=» D23;WRITE('Vælg register ');«, l3=0x22}
0x11d6…11f0 Line {l1=0x18, l2=» READLN;READ(FRANR)«, l3=0x18}
0x11f0…122b Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (FRANR>=0) AND (FRANR<=FILNR);«, l3=0x39}
0x122b…1240 Line {l1=0x13, l2=» IF FRANR>0 THEN«, l3=0x13}
0x1240…124b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x124b…126c Line {l1=0x1f, l2=» SEEK(ISFFILES,FRANR);IOC;«, l3=0x1f}
0x126c…1286 Line {l1=0x18, l2=» GET(ISFFILES);IOC;«, l3=0x18}
0x1286…12ad Line {l1=0x25, l2=» RESET(F,ISFFILES^.FILNAVN);IOC;«, l3=0x25}
0x12ad…12c3 Line {l1=0x14, l2=» SEEK(F,1);IOC;«, l3=0x14}
0x12c3…12d6 Line {l1=0x11, l2=» GET(F);IOC;«, l3=0x11}
0x12d6…12ed Line {l1=0x15, l2=» TILNR:=FILNR+1;«, l3=0x15}
0x12ed…132a Line {l1=0x3b, l2=» ISFFILES^.FILNAVN(2+POS(':',ISFFILES^.FILNAVN)):='1';«, l3=0x3b}
0x132a…134b Line {l1=0x1f, l2=» SEEK(ISFFILES,TILNR);IOC;«, l3=0x1f}
0x134b…1365 Line {l1=0x18, l2=» PUT(ISFFILES);IOC;«, l3=0x18}
0x1365…138f Line {l1=0x28, l2=» REWRITE(F1,ISFFILES^.FILNAVN);IOC;«, l3=0x28}
0x138f…13a6 Line {l1=0x15, l2=» SEEK(F1,1);IOC;«, l3=0x15}
0x13a6…13cf Line {l1=0x27, l2=» FOR I:=1 TO 100 DO F1^(I):=F^(I);«, l3=0x27}
0x13cf…13e4 Line {l1=0x13, l2=» IREC:=F^(22);«, l3=0x13}
0x13e4…13f7 Line {l1=0x11, l2=» F1^(22):=0;«, l3=0x11}
0x13f7…140a Line {l1=0x11, l2=» F1^(20):=0;«, l3=0x11}
0x140a…141d Line {l1=0x11, l2=» F1^(21):=0;«, l3=0x11}
0x141d…1430 Line {l1=0x11, l2=» F1^(23):=0;«, l3=0x11}
0x1430…1444 Line {l1=0x12, l2=» PUT(F1);IOC;«, l3=0x12}
0x1444…145a Line {l1=0x14, l2=» CLOSE(F1);IOC;«, l3=0x14}
0x145a…146f Line {l1=0x13, l2=» CLOSE(F);IOC;«, l3=0x13}
0x146f…148b Line {l1=0x1a, l2=» CLOSE(ISFFILES);IOC;«, l3=0x1a}
0x148b…149b Line {l1=0x0e, l2=» REGVEDL;«, l3=0x0e}
0x149b…14c2 Line {l1=0x25, l2=» REWRITE(ISFFILES,ISFFNAVN);IOC;«, l3=0x25}
0x14c2…14e4 Line {l1=0x20, l2=» ISFFILES^.FILNAVN(1):='@';«, l3=0x20}
0x14e4…1505 Line {l1=0x1f, l2=» SEEK(ISFFILES,TILNR);IOC;«, l3=0x1f}
0x1505…151e Line {l1=0x17, l2=» PUT(ISFFILES);IOC«, l3=0x17}
0x151e…1527 Line {l1=0x07, l2=» END«, l3=0x07}
0x1527…1539 Line {l1=0x10, l2=» UNTIL FRANR=0;«, l3=0x10}
0x1539…1550 Line {l1=0x15, l2=» CLOSE(ISFFILES);IOC«, l3=0x15}
0x1550…1556 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1556…155e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x155e…1565 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1565…157f Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x157f…1597 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x1597…15ad Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x15ad…15bd Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x15bd…15c6 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x15c6…15e9 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x15e9…15f5 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x15f5…1645 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x1645…1655 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x1655…1695 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x1695…16e5 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x16e5…16fe Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x16fe…1718 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x1718…1736 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x1736…173f Line {l1=0x07, l2=» DOIT;«, l3=0x07}
0x173f…1753 Line {l1=0x12, l2=» F:='HOVED *1';«, l3=0x12}
0x1753…176b Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x176b…1784 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x1784…17a2 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x17a2…17b7 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x17b7…17df Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x17df…17f6 Line {l1=0x15, l2=» CHAIN(F,FNAVN,QUQ);«, l3=0x15}
0x17f6…182b Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x182b…1831 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1831…1840 00 00 45 4e 44 2e 04 00 00 3b 15 33 20 20 49 ┆ END. ; 3 I┆
0x1840…1860 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 ┆F IORESULT<>0 THEN WRITELN('IORE┆
0x1860…1880 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 2c 49 45 52 29 3b 1c ┆SULT ',IORESULT)3 END. ,IER); ┆
0x1880…18a0 08 20 20 52 45 50 45 41 54 08 0b 20 20 20 20 46 3a 3d 27 20 27 3b 0b 10 20 20 20 20 43 4c 45 41 ┆ REPEAT F:=' '; CLEA┆
0x18a0…18c0 52 53 43 52 45 45 4e 3b 10 09 20 20 20 20 44 4f 49 54 3b 09 0f 20 20 55 4e 54 49 4c 20 46 3c 3e ┆RSCREEN; DOIT; UNTIL F<>┆
0x18c0…18e0 27 20 27 3b 0f 16 20 20 55 44 46 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 ┆' '; UDFØR(PAFMELD,SNYD); ┆
0x18e0…1900 55 44 46 5c 52 54 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c ┆UDFØRT(PAFMELD,SNYD); IF IER<┆
0x1900…1920 3e 30 20 54 48 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 49 46 20 46 3c 3e 27 53 54 ┆>0 THEN BAD(2,IER); IF F<>'ST┆
0x1920…1940 4f 50 27 20 54 48 45 4e 13 07 20 20 42 45 47 49 4e 07 15 20 20 20 20 46 4e 41 56 4e 3a 3d 27 20 ┆OP' THEN BEGIN FNAVN:=' ┆
0x1940…1960 20 20 20 20 20 20 27 3b 15 28 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 ┆ '; ( FOR I:=1 TO 7 DO F┆
0x1960…1980 4e 41 56 4e 28 49 29 3a 3d 50 41 52 4d 5e 28 49 29 3b 28 18 20 20 20 20 49 46 20 4c 45 4e 47 54 ┆NAVN(I):=PARM^(I);( IF LENGT┆
0x1980…19a0 48 28 46 29 3e 31 30 20 54 48 45 4e 18 32 20 20 20 20 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 ┆H(F)>10 THEN 2 CHAIN('L ┆
0x19a0…19c0 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 46 2c 27 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 20 ┆ *1',CONCAT(F,',',FNAVN),QUQ) ┆
0x19c0…19e0 32 08 20 20 20 20 45 4c 53 45 08 19 20 20 20 20 20 20 43 48 41 49 4e 28 46 2c 46 4e 41 56 4e 2c ┆2 ELSE CHAIN(F,FNAVN,┆
0x19e0…1a00 51 55 51 29 3b 19 35 20 20 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 ┆QUQ); 5 IF IORESULT<>0 THEN W┆
0x1a00…1a20 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 20 ┆RITELN('IORESULT ',IORESULT)5 ┆
0x1a20…1a40 45 4e 44 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 18 20 20 20 20 55 44 46 5c 52 28 ┆END ELSE BEGIN UDFØR(┆
0x1a40…1a60 55 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 18 19 20 20 20 20 55 44 46 5c 52 54 28 55 41 46 4d 45 ┆UAFMELD,SNYD); UDFØRT(UAFME┆
0x1a60…1a80 4c 44 2c 53 4e 59 44 29 3b 19 1d 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 ┆LD,SNYD); IF IER<>0 THEN BA┆
0x1a80…1aa0 44 28 33 2c 49 45 52 29 1d 05 20 20 45 4e 44 05 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 ┆D(3,IER) END END. cccccccc┆
0x1aa0…1ac0 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┆
[…0x17…]