|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »SYSFIVED.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SYSFIVED.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SYSFIVED.K«
PROGRAM SYSFIVED;
TYPE
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
AR=ARRAY (-4..-4) OF INTEGER;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..250) OF INTEGER
END;
LISTTYPE=RECORD
NAVN:STRING(30); (*LISTENS BETEGNELSE*)
DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)
LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)
BLANKTYP, (*BLANKETTYPE*)
ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)
END;
LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)
ZEROFIL=FILE OF PPOST;
FILDESC=RECORD
FILNAVN:STRING(18); (*ISF-FILENS NAVN*)
DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)
POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)
REGNAVN:STRING(18); (*FILENS BETEGNELSE*)
VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)
ZONESIZE:INTEGER
END;
FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)
PROGDESC=RECORD
PROGFIL,PROGNAVN:STRING(18);
PROGNIVEAU:NIVEAU
END;
PROGFILE=FILE OF PROGDESC;
VAR FNAVN:STRING;
ISFFILES:FILEDESC;
LISTER:LISTFILE;
FIL0:ZEROFIL;
PROGS:PROGFILE;
TEGN,I,J,FNR:INTEGER;
(*$P*)
PROCEDURE IOC;
VAR CH:STRING(1);
BEGIN
IF IORESULT<>0 THEN
BEGIN
CLEARSCREEN;
GOTOXY(1,10);
WRITELN('Pladefejl ',IORESULT:5,' RETURN');
CH:=' ';
EDIT(CH);
IF CH<>'R' THEN EXIT(SYSFIVED)
END
END;
(*$P*)
PROCEDURE VEDL;
PROCEDURE VÆLG;
BEGIN
REPEAT
GOTOXY(1,23);
WRITE('Postnr ');READLN;READ(I)
UNTIL (IORESULT=0) AND (I IN (.0..30.))
END;
PROCEDURE THREE;
BEGIN
FNAVN:='ZEROFILE:P2:0000:S';
REWRITE(FIL0,FNAVN);IOC;
REPEAT
VÆLG;
IF I>0 THEN
BEGIN
CLEARSCREEN;
SEEK(FIL0,I);IOC;
GET(FIL0);IOC;
GOTOXY(1,10);
WITH FIL0^ DO
BEGIN
WRITE('AA(-11) ',ORD(AA(-11)),' ');READLN;READ(TEGN);
AA(-11):=CHR(TEGN);
WRITE('AA(-10) ',ORD(AA(-10)),' ');READLN;READ(TEGN);
AA(-10):=CHR(TEGN);
WRITE('A(-4) ',A(-4),' ');READLN;READ(A(-4));
WRITE('AAA(0) ',AAA(0),' ');READLN;READ(AAA(0));
FOR J:=1 TO 250 DO WRITELN(J:4,CONTENTS(J):10);
END;
SEEK(FIL0,I);IOC;
PUT(FIL0);IOC
END
UNTIL I=0;
CLOSE(FIL0);IOC
END;
BEGIN
CASE FNR OF
1:
BEGIN
FNAVN:='ISFFILES:P2:0000:S';
REWRITE(ISFFILES,FNAVN);IOC;
REPEAT
VÆLG;
IF I>0 THEN
BEGIN
CLEARSCREEN;
SEEK(ISFFILES,I);IOC;
GET(ISFFILES);IOC;
GOTOXY(1,10);
WITH ISFFILES^ DO
BEGIN
WRITE('FILNAVN ');EDIT(FILNAVN);
WRITE('DESCNAVN ');EDIT(DESCNAVN);
WRITE('POSTNAVN ',POSTNAVN);READLN;IF NOT EOLN(INPUT) THEN
READ(POSTNAVN);
WRITE('REGNAVN ',REGNAVN);READLN;IF NOT EOLN(INPUT) THEN READ(REGNAVN);
WRITE('NIVEAU',ORD(VEDLNIVEAU):3);
REPEAT
GOTOXY(12,14);READLN;
IF EOLN(INPUT) THEN J:=ORD(VEDLNIVEAU) ELSE READ(J)
UNTIL (IORESULT=0) AND (J IN (.0..8.));
VEDLNIVEAU:=MENIG;
WRITE('Z-SIZE',ZONESIZE:6);READLN;IF NOT EOLN(INPUT) THEN
READ(ZONESIZE);
WHILE J>0 DO
BEGIN
J:=J-1;
VEDLNIVEAU:=SUCC(VEDLNIVEAU)
END;
END;
SEEK(ISFFILES,I);IOC;
PUT(ISFFILES);IOC
END
UNTIL I=0;
CLOSE(ISFFILES);IOC
END;
2:
BEGIN
FNAVN:='LISTDEFS:P2:0000:S';
REWRITE(LISTER,FNAVN);IOC;
REPEAT
VÆLG;
IF I>0 THEN
BEGIN
CLEARSCREEN;
SEEK(LISTER,I);IOC;
GET(LISTER);IOC;
GOTOXY(1,10);
WITH LISTER^ DO
BEGIN
WRITE('NAVN ');EDIT(NAVN);
WRITE('DESCLIST ');EDIT(DESCLIST);
WRITE('ZPOSTNR ',ZPOSTNR:3);
REPEAT
GOTOXY(13,12);READLN;READ(ZPOSTNR)
UNTIL IORESULT=0;
WRITE('NIVEAU',ORD(LISTENIVEAU):3);
REPEAT
GOTOXY(12,13);READLN;READ(J)
UNTIL (IORESULT=0) AND (J IN (.0..8.));
LISTENIVEAU:=MENIG;
WHILE J>0 DO
BEGIN
J:=J-1;
LISTENIVEAU:=SUCC(LISTENIVEAU)
END;
WRITE('BLANKETTYPE ',BLANKTYP:5);
REPEAT
GOTOXY(12,14);READLN;READ(BLANKTYP)
UNTIL IORESULT=0;
END;
SEEK(LISTER,I);IOC;
PUT(LISTER);IOC
END
UNTIL I=0;
CLOSE(LISTER);IOC
END;
3:THREE;
4:
BEGIN
FNAVN:='PROGFILE:P2:0000:S';
REWRITE(PROGS,FNAVN);IOC;
REPEAT
VÆLG;
IF I>0 THEN
BEGIN
CLEARSCREEN;
SEEK(PROGS,I);IOC;
GET(PROGS);IOC;
GOTOXY(1,10);
WITH PROGS^ DO
BEGIN
WRITE('PROGFIL ');EDIT(PROGFIL);
WRITE('PROGNAVN ');EDIT(PROGNAVN);
WRITE('NIVEAU',ORD(PROGNIVEAU):3);
REPEAT
GOTOXY(12,12);READLN;READ(J)
UNTIL (IORESULT=0) AND (J IN (.0..8.));
PROGNIVEAU:=MENIG;
WHILE J>0 DO
BEGIN
J:=J-1;
PROGNIVEAU:=SUCC(PROGNIVEAU)
END;
END;
SEEK(PROGS,I);IOC;
PUT(PROGS);IOC
END
UNTIL I=0;
CLOSE(PROGS);IOC
END
END
END;
(*$P*)
BEGIN
REPEAT
CLEARSCREEN;
WRITELN('1 ISFFILES');
WRITELN('2 LISTDEFS');
WRITELN('3 ZEROFILE');
WRITELN('4 PROGFILE');
REPEAT
GOTOXY(1,6);
WRITE('VÆLG 1-4 ');READLN;READ(FNR)
UNTIL (IORESULT=0) AND (FNR>=0) AND (FNR<=4);
CLEARSCREEN;
IF FNR>0 THEN VEDL
UNTIL FNR=0
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM SYSFIVED;«, l3=0x11}
0x0013…0019 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0019…0064 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0064…0083 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0083…00aa Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x00aa…00c5 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x00c5…00d3 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x00d3…00e3 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x00e3…00f0 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x00f0…0100 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0100…012b Line {l1=0x29, l2=» CONTENTS: ARRAY (1..250) OF INTEGER«, l3=0x29}
0x012b…0131 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0131…0142 Line {l1=0x0f, l2=»LISTTYPE=RECORD«, l3=0x0f}
0x0142…0175 Line {l1=0x31, l2=» NAVN:STRING(30); (*LISTENS BETEGNELSE*)«, l3=0x31}
0x0175…01b3 Line {l1=0x3c, l2=» DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)«, l3=0x3c}
0x01b3…01ee Line {l1=0x39, l2=» LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)«, l3=0x39}
0x01ee…021a Line {l1=0x2a, l2=» BLANKTYP, (*BLANKETTYPE*)«, l3=0x2a}
0x021a…024d Line {l1=0x31, l2=» ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)«, l3=0x31}
0x024d…0253 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0253…029b Line {l1=0x46, l2=»LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)«, l3=0x46}
0x029b…02b3 Line {l1=0x16, l2=»ZEROFIL=FILE OF PPOST;«, l3=0x16}
0x02b3…02c3 Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x02c3…02f1 Line {l1=0x2c, l2=» FILNAVN:STRING(18); (*ISF-FILENS NAVN*)«, l3=0x2c}
0x02f1…033e Line {l1=0x4b, l2=» DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)«, l3=0x4b}
0x033e…038b Line {l1=0x4b, l2=» POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)«, l3=0x4b}
0x038b…03b9 Line {l1=0x2c, l2=» REGNAVN:STRING(18); (*FILENS BETEGNELSE*)«, l3=0x2c}
0x03b9…0406 Line {l1=0x4b, l2=» VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)«, l3=0x4b}
0x0406…041b Line {l1=0x13, l2=» ZONESIZE:INTEGER«, l3=0x13}
0x041b…0421 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0421…045f Line {l1=0x3c, l2=»FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)«, l3=0x3c}
0x045f…0470 Line {l1=0x0f, l2=»PROGDESC=RECORD«, l3=0x0f}
0x0470…0491 Line {l1=0x1f, l2=» PROGFIL,PROGNAVN:STRING(18);«, l3=0x1f}
0x0491…04a7 Line {l1=0x14, l2=» PROGNIVEAU:NIVEAU«, l3=0x14}
0x04a7…04ad Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ad…04c9 Line {l1=0x1a, l2=»PROGFILE=FILE OF PROGDESC;«, l3=0x1a}
0x04c9…04dc Line {l1=0x11, l2=»VAR FNAVN:STRING;«, l3=0x11}
0x04dc…04f4 Line {l1=0x16, l2=» ISFFILES:FILEDESC;«, l3=0x16}
0x04f4…050a Line {l1=0x14, l2=» LISTER:LISTFILE;«, l3=0x14}
0x050a…051d Line {l1=0x11, l2=» FIL0:ZEROFIL;«, l3=0x11}
0x051d…0532 Line {l1=0x13, l2=» PROGS:PROGFILE;«, l3=0x13}
0x0532…054d Line {l1=0x19, l2=» TEGN,I,J,FNR:INTEGER;«, l3=0x19}
0x054d…0555 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0555…0565 Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x0565…0578 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0578…057f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x057f…0596 Line {l1=0x15, l2=» IF IORESULT<>0 THEN«, l3=0x15}
0x0596…059f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x059f…05b1 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x05b1…05c4 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x05c4…05f5 Line {l1=0x2f, l2=» WRITELN('Pladefejl ',IORESULT:5,' RETURN');«, l3=0x2f}
0x05f5…0603 Line {l1=0x0c, l2=» CH:=' ';«, l3=0x0c}
0x0603…0612 Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x0612…0636 Line {l1=0x22, l2=» IF CH<>'R' THEN EXIT(SYSFIVED)«, l3=0x22}
0x0636…063d Line {l1=0x05, l2=» END«, l3=0x05}
0x063d…0643 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0643…064b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x064b…065c Line {l1=0x0f, l2=»PROCEDURE VEDL;«, l3=0x0f}
0x065c…066d Line {l1=0x0f, l2=»PROCEDURE VÆLG;«, l3=0x0f}
0x066d…0674 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0674…067e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x067e…0691 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x0691…06b6 Line {l1=0x23, l2=» WRITE('Postnr ');READLN;READ(I)«, l3=0x23}
0x06b6…06e1 Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (I IN (.0..30.))«, l3=0x29}
0x06e1…06e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06e7…06f9 Line {l1=0x10, l2=»PROCEDURE THREE;«, l3=0x10}
0x06f9…0701 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0701…0721 Line {l1=0x1e, l2=» FNAVN:='ZEROFILE:P2:0000:S';«, l3=0x1e}
0x0721…073d Line {l1=0x1a, l2=» REWRITE(FIL0,FNAVN);IOC;«, l3=0x1a}
0x073d…0747 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0747…0750 Line {l1=0x07, l2=» VÆLG;«, l3=0x07}
0x0750…075f Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x075f…0768 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0768…077a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x077a…0791 Line {l1=0x15, l2=» SEEK(FIL0,I);IOC;«, l3=0x15}
0x0791…07a5 Line {l1=0x12, l2=» GET(FIL0);IOC;«, l3=0x12}
0x07a5…07b8 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x07b8…07cb Line {l1=0x11, l2=» WITH FIL0^ DO«, l3=0x11}
0x07cb…07d6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x07d6…0811 Line {l1=0x39, l2=» WRITE('AA(-11) ',ORD(AA(-11)),' ');READLN;READ(TEGN);«, l3=0x39}
0x0811…082a Line {l1=0x17, l2=» AA(-11):=CHR(TEGN);«, l3=0x17}
0x082a…0865 Line {l1=0x39, l2=» WRITE('AA(-10) ',ORD(AA(-10)),' ');READLN;READ(TEGN);«, l3=0x39}
0x0865…087e Line {l1=0x17, l2=» AA(-10):=CHR(TEGN);«, l3=0x17}
0x087e…08b1 Line {l1=0x31, l2=» WRITE('A(-4) ',A(-4),' ');READLN;READ(A(-4));«, l3=0x31}
0x08b1…08e7 Line {l1=0x34, l2=» WRITE('AAA(0) ',AAA(0),' ');READLN;READ(AAA(0));«, l3=0x34}
0x08e7…091c Line {l1=0x33, l2=» FOR J:=1 TO 250 DO WRITELN(J:4,CONTENTS(J):10);«, l3=0x33}
0x091c…0926 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0926…093d Line {l1=0x15, l2=» SEEK(FIL0,I);IOC;«, l3=0x15}
0x093d…0950 Line {l1=0x11, l2=» PUT(FIL0);IOC«, l3=0x11}
0x0950…0957 Line {l1=0x05, l2=» END«, l3=0x05}
0x0957…0965 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x0965…0978 Line {l1=0x11, l2=» CLOSE(FIL0);IOC«, l3=0x11}
0x0978…097e Line {l1=0x04, l2=»END;«, l3=0x04}
0x097e…0985 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0985…0993 Line {l1=0x0c, l2=» CASE FNR OF«, l3=0x0c}
0x0993…0998 Line {l1=0x03, l2=» 1:«, l3=0x03}
0x0998…09a0 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x09a0…09c0 Line {l1=0x1e, l2=» FNAVN:='ISFFILES:P2:0000:S';«, l3=0x1e}
0x09c0…09e0 Line {l1=0x1e, l2=» REWRITE(ISFFILES,FNAVN);IOC;«, l3=0x1e}
0x09e0…09ea Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x09ea…09f3 Line {l1=0x07, l2=» VÆLG;«, l3=0x07}
0x09f3…0a02 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x0a02…0a0b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a0b…0a1d Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0a1d…0a38 Line {l1=0x19, l2=» SEEK(ISFFILES,I);IOC;«, l3=0x19}
0x0a38…0a50 Line {l1=0x16, l2=» GET(ISFFILES);IOC;«, l3=0x16}
0x0a50…0a63 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x0a63…0a7a Line {l1=0x15, l2=» WITH ISFFILES^ DO«, l3=0x15}
0x0a7a…0a85 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a85…0aab Line {l1=0x24, l2=» WRITE('FILNAVN ');EDIT(FILNAVN);«, l3=0x24}
0x0aab…0ad3 Line {l1=0x26, l2=» WRITE('DESCNAVN ');EDIT(DESCNAVN);«, l3=0x26}
0x0ad3…0b13 Line {l1=0x3e, l2=» WRITE('POSTNAVN ',POSTNAVN);READLN;IF NOT EOLN(INPUT) THEN«, l3=0x3e}
0x0b13…0b2a Line {l1=0x15, l2=» READ(POSTNAVN);«, l3=0x15}
0x0b2a…0b79 Line {l1=0x4d, l2=» WRITE('REGNAVN ',REGNAVN);READLN;IF NOT EOLN(INPUT) THEN READ(REGNAVN); «, l3=0x4d}
0x0b79…0ba1 Line {l1=0x26, l2=» WRITE('NIVEAU',ORD(VEDLNIVEAU):3);«, l3=0x26}
0x0ba1…0bad Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0bad…0bca Line {l1=0x1b, l2=» GOTOXY(12,14);READLN;«, l3=0x1b}
0x0bca…0c05 Line {l1=0x39, l2=» IF EOLN(INPUT) THEN J:=ORD(VEDLNIVEAU) ELSE READ(J)«, l3=0x39}
0x0c05…0c32 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J IN (.0..8.));«, l3=0x2b}
0x0c32…0c4a Line {l1=0x16, l2=» VEDLNIVEAU:=MENIG;«, l3=0x16}
0x0c4a…0c92 Line {l1=0x46, l2=» WRITE('Z-SIZE',ZONESIZE:6);READLN;IF NOT EOLN(INPUT) THEN «, l3=0x46}
0x0c92…0caa Line {l1=0x16, l2=» READ(ZONESIZE); «, l3=0x16}
0x0caa…0cbc Line {l1=0x10, l2=» WHILE J>0 DO«, l3=0x10}
0x0cbc…0cc7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0cc7…0cd6 Line {l1=0x0d, l2=» J:=J-1;«, l3=0x0d}
0x0cd6…0cfa Line {l1=0x22, l2=» VEDLNIVEAU:=SUCC(VEDLNIVEAU)«, l3=0x22}
0x0cfa…0d04 Line {l1=0x08, l2=» END;«, l3=0x08}
[…0x1…]
0x0d0e…0d29 Line {l1=0x19, l2=» SEEK(ISFFILES,I);IOC;«, l3=0x19}
0x0d29…0d40 Line {l1=0x15, l2=» PUT(ISFFILES);IOC«, l3=0x15}
0x0d40…0d47 Line {l1=0x05, l2=» END«, l3=0x05}
0x0d47…0d55 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x0d55…0d6c Line {l1=0x15, l2=» CLOSE(ISFFILES);IOC«, l3=0x15}
0x0d6c…0d73 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0d73…0d78 Line {l1=0x03, l2=» 2:«, l3=0x03}
0x0d78…0d80 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0d80…0da0 Line {l1=0x1e, l2=» FNAVN:='LISTDEFS:P2:0000:S';«, l3=0x1e}
0x0da0…0dbe Line {l1=0x1c, l2=» REWRITE(LISTER,FNAVN);IOC;«, l3=0x1c}
0x0dbe…0dc8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0dc8…0dd1 Line {l1=0x07, l2=» VÆLG;«, l3=0x07}
0x0dd1…0de0 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x0de0…0de9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0de9…0dfb Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0dfb…0e14 Line {l1=0x17, l2=» SEEK(LISTER,I);IOC;«, l3=0x17}
0x0e14…0e2a Line {l1=0x14, l2=» GET(LISTER);IOC;«, l3=0x14}
0x0e2a…0e3d Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x0e3d…0e52 Line {l1=0x13, l2=» WITH LISTER^ DO«, l3=0x13}
0x0e52…0e5d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0e5d…0e81 Line {l1=0x22, l2=» WRITE('NAVN ');EDIT(NAVN);«, l3=0x22}
0x0e81…0ea9 Line {l1=0x26, l2=» WRITE('DESCLIST ');EDIT(DESCLIST);«, l3=0x26}
0x0ea9…0ecb Line {l1=0x20, l2=» WRITE('ZPOSTNR ',ZPOSTNR:3);«, l3=0x20}
0x0ecb…0ed7 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0ed7…0f01 Line {l1=0x28, l2=» GOTOXY(13,12);READLN;READ(ZPOSTNR)«, l3=0x28}
0x0f01…0f18 Line {l1=0x15, l2=» UNTIL IORESULT=0;«, l3=0x15}
0x0f18…0f41 Line {l1=0x27, l2=» WRITE('NIVEAU',ORD(LISTENIVEAU):3);«, l3=0x27}
0x0f41…0f4d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0f4d…0f71 Line {l1=0x22, l2=» GOTOXY(12,13);READLN;READ(J)«, l3=0x22}
0x0f71…0f9e Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J IN (.0..8.));«, l3=0x2b}
0x0f9e…0fb7 Line {l1=0x17, l2=» LISTENIVEAU:=MENIG;«, l3=0x17}
0x0fb7…0fc9 Line {l1=0x10, l2=» WHILE J>0 DO«, l3=0x10}
0x0fc9…0fd4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0fd4…0fe3 Line {l1=0x0d, l2=» J:=J-1;«, l3=0x0d}
0x0fe3…1009 Line {l1=0x24, l2=» LISTENIVEAU:=SUCC(LISTENIVEAU)«, l3=0x24}
0x1009…1013 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1013…103a Line {l1=0x25, l2=» WRITE('BLANKETTYPE ',BLANKTYP:5);«, l3=0x25}
0x103a…1046 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1046…1071 Line {l1=0x29, l2=» GOTOXY(12,14);READLN;READ(BLANKTYP)«, l3=0x29}
0x1071…1088 Line {l1=0x15, l2=» UNTIL IORESULT=0;«, l3=0x15}
0x1088…1092 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1092…10ab Line {l1=0x17, l2=» SEEK(LISTER,I);IOC;«, l3=0x17}
0x10ab…10c0 Line {l1=0x13, l2=» PUT(LISTER);IOC«, l3=0x13}
0x10c0…10c7 Line {l1=0x05, l2=» END«, l3=0x05}
0x10c7…10d5 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x10d5…10ea Line {l1=0x13, l2=» CLOSE(LISTER);IOC«, l3=0x13}
0x10ea…10f1 Line {l1=0x05, l2=» END;«, l3=0x05}
0x10f1…10fc Line {l1=0x09, l2=» 3:THREE;«, l3=0x09}
0x10fc…1101 Line {l1=0x03, l2=» 4:«, l3=0x03}
0x1101…1109 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x1109…1129 Line {l1=0x1e, l2=» FNAVN:='PROGFILE:P2:0000:S';«, l3=0x1e}
0x1129…1146 Line {l1=0x1b, l2=» REWRITE(PROGS,FNAVN);IOC;«, l3=0x1b}
0x1146…1150 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1150…1159 Line {l1=0x07, l2=» VÆLG;«, l3=0x07}
0x1159…1168 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x1168…1171 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1171…1183 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1183…119b Line {l1=0x16, l2=» SEEK(PROGS,I);IOC;«, l3=0x16}
0x119b…11b0 Line {l1=0x13, l2=» GET(PROGS);IOC;«, l3=0x13}
0x11b0…11c3 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x11c3…11d7 Line {l1=0x12, l2=» WITH PROGS^ DO«, l3=0x12}
0x11d7…11e2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x11e2…1208 Line {l1=0x24, l2=» WRITE('PROGFIL ');EDIT(PROGFIL);«, l3=0x24}
0x1208…1230 Line {l1=0x26, l2=» WRITE('PROGNAVN ');EDIT(PROGNAVN);«, l3=0x26}
0x1230…1258 Line {l1=0x26, l2=» WRITE('NIVEAU',ORD(PROGNIVEAU):3);«, l3=0x26}
0x1258…1264 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1264…1288 Line {l1=0x22, l2=» GOTOXY(12,12);READLN;READ(J)«, l3=0x22}
0x1288…12b5 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J IN (.0..8.));«, l3=0x2b}
0x12b5…12cd Line {l1=0x16, l2=» PROGNIVEAU:=MENIG;«, l3=0x16}
0x12cd…12df Line {l1=0x10, l2=» WHILE J>0 DO«, l3=0x10}
0x12df…12ea Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x12ea…12f9 Line {l1=0x0d, l2=» J:=J-1;«, l3=0x0d}
0x12f9…131d Line {l1=0x22, l2=» PROGNIVEAU:=SUCC(PROGNIVEAU)«, l3=0x22}
0x131d…1327 Line {l1=0x08, l2=» END;«, l3=0x08}
[…0x1…]
0x1331…1349 Line {l1=0x16, l2=» SEEK(PROGS,I);IOC;«, l3=0x16}
0x1349…135d Line {l1=0x12, l2=» PUT(PROGS);IOC«, l3=0x12}
0x135d…1364 Line {l1=0x05, l2=» END«, l3=0x05}
0x1364…1372 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x1372…1386 Line {l1=0x12, l2=» CLOSE(PROGS);IOC«, l3=0x12}
0x1386…138c Line {l1=0x04, l2=» END«, l3=0x04}
[…0x1…]
0x1392…1398 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1398…13a0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x13a0…13a7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13a7…13b1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x13b1…13c3 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x13c3…13df Line {l1=0x1a, l2=» WRITELN('1 ISFFILES');«, l3=0x1a}
0x13df…13fb Line {l1=0x1a, l2=» WRITELN('2 LISTDEFS');«, l3=0x1a}
0x13fb…1417 Line {l1=0x1a, l2=» WRITELN('3 ZEROFILE');«, l3=0x1a}
0x1417…1433 Line {l1=0x1a, l2=» WRITELN('4 PROGFILE');«, l3=0x1a}
0x1433…143f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x143f…1453 Line {l1=0x12, l2=» GOTOXY(1,6);«, l3=0x12}
0x1453…147e Line {l1=0x29, l2=» WRITE('VÆLG 1-4 ');READLN;READ(FNR)«, l3=0x29}
0x147e…14b1 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (FNR>=0) AND (FNR<=4);«, l3=0x31}
0x14b1…14c3 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x14c3…14db Line {l1=0x16, l2=» IF FNR>0 THEN VEDL«, l3=0x16}
0x14db…14ea Line {l1=0x0d, l2=» UNTIL FNR=0«, l3=0x0d}
0x14ea…14f0 Line {l1=0x04, l2=»END.«, l3=0x04}
0x14f0…1500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1500…1520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x19…]
0x1840…1860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆