|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »SYSFIGEN.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SYSFIGEN.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SYSFIGEN.K«
PROGRAM SYSFIGEN;
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;
I,J: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(SYSFIGEN)
END
END;
(*$P*)
BEGIN
FNAVN:='ISFFILES:P2:0010:S';
REWRITE(ISFFILES,FNAVN);IOC;
FOR I:=1 TO 30 DO
BEGIN
ISFFILES^.FILNAVN:='@23456789012345678';
ISFFILES^.DESCNAVN:='123456789012345678';
ISFFILES^.POSTNAVN:='123456789012345678';
ISFFILES^.REGNAVN:='123456789012345678';
ISFFILES^.VEDLNIVEAU:=MENIG;
ISFFILES^.ZONESIZE:=0;
PUT(ISFFILES);IOC
END;
CLOSE(ISFFILES);IOC;
FNAVN:='LISTDEFS:P2:0007:S';
REWRITE(LISTER,FNAVN);IOC;
FOR I:=1 TO 30 DO
BEGIN
LISTER^.NAVN:='@23456789012345678901234567890';
LISTER^.DESCLIST:='123456789012345678';
LISTER^.LISTENIVEAU:=MENIG;
LISTER^.BLANKTYP:=0;
LISTER^.ZPOSTNR:=0;
PUT(LISTER);IOC
END;
CLOSE(LISTER);IOC;
FNAVN:='ZEROFILE:P2:0061:S';
REWRITE(FIL0,FNAVN);IOC;
FOR I:=1 TO 30 DO
BEGIN
FIL0^.AA(-11):='0';
FIL0^.AA(-10):='0';
FIL0^.A(-4):=0;
FIL0^.AAA(0):=0.0;
FOR J:=1 TO 250 DO FIL0^.CONTENTS(J):=0;
PUT(FIL0);IOC
END;
CLOSE(FIL0);IOC;
FNAVN:='PROGFILE:P2:0006:S';
REWRITE(PROGS,FNAVN);IOC;
FOR I:=1 TO 30 DO
BEGIN
PROGS^.PROGFIL:='@23456789012345678';
PROGS^.PROGNAVN:='@23456789012345678';
PROGS^.PROGNIVEAU:=MENIG;
PUT(PROGS);IOC
END;
CLOSE(PROGS);IOC
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM SYSFIGEN;«, l3=0x11}
0x013…019 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x019…064 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x064…083 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x083…0aa Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0aa…0c5 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0c5…0d3 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0d3…0e3 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0e3…0f0 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0f0…100 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x100…12b Line {l1=0x29, l2=» CONTENTS: ARRAY (1..250) OF INTEGER«, l3=0x29}
0x12b…131 Line {l1=0x04, l2=»END;«, l3=0x04}
0x131…142 Line {l1=0x0f, l2=»LISTTYPE=RECORD«, l3=0x0f}
0x142…175 Line {l1=0x31, l2=» NAVN:STRING(30); (*LISTENS BETEGNELSE*)«, l3=0x31}
0x175…1b3 Line {l1=0x3c, l2=» DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)«, l3=0x3c}
0x1b3…1ee Line {l1=0x39, l2=» LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)«, l3=0x39}
0x1ee…21a Line {l1=0x2a, l2=» BLANKTYP, (*BLANKETTYPE*)«, l3=0x2a}
0x21a…24d Line {l1=0x31, l2=» ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)«, l3=0x31}
0x24d…253 Line {l1=0x04, l2=»END;«, l3=0x04}
0x253…29b Line {l1=0x46, l2=»LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)«, l3=0x46}
0x29b…2b3 Line {l1=0x16, l2=»ZEROFIL=FILE OF PPOST;«, l3=0x16}
0x2b3…2c3 Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x2c3…2f1 Line {l1=0x2c, l2=» FILNAVN:STRING(18); (*ISF-FILENS NAVN*)«, l3=0x2c}
0x2f1…33e Line {l1=0x4b, l2=» DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)«, l3=0x4b}
0x33e…38b Line {l1=0x4b, l2=» POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)«, l3=0x4b}
0x38b…3b9 Line {l1=0x2c, l2=» REGNAVN:STRING(18); (*FILENS BETEGNELSE*)«, l3=0x2c}
0x3b9…406 Line {l1=0x4b, l2=» VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)«, l3=0x4b}
0x406…41b Line {l1=0x13, l2=» ZONESIZE:INTEGER«, l3=0x13}
0x41b…421 Line {l1=0x04, l2=»END;«, l3=0x04}
0x421…45f Line {l1=0x3c, l2=»FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)«, l3=0x3c}
0x45f…470 Line {l1=0x0f, l2=»PROGDESC=RECORD«, l3=0x0f}
0x470…491 Line {l1=0x1f, l2=» PROGFIL,PROGNAVN:STRING(18);«, l3=0x1f}
0x491…4a7 Line {l1=0x14, l2=» PROGNIVEAU:NIVEAU«, l3=0x14}
0x4a7…4ad Line {l1=0x04, l2=»END;«, l3=0x04}
0x4ad…4c9 Line {l1=0x1a, l2=»PROGFILE=FILE OF PROGDESC;«, l3=0x1a}
0x4c9…4dc Line {l1=0x11, l2=»VAR FNAVN:STRING;«, l3=0x11}
0x4dc…4f4 Line {l1=0x16, l2=» ISFFILES:FILEDESC;«, l3=0x16}
0x4f4…50a Line {l1=0x14, l2=» LISTER:LISTFILE;«, l3=0x14}
0x50a…51d Line {l1=0x11, l2=» FIL0:ZEROFIL;«, l3=0x11}
0x51d…532 Line {l1=0x13, l2=» PROGS:PROGFILE;«, l3=0x13}
0x532…544 Line {l1=0x10, l2=» I,J:INTEGER;«, l3=0x10}
0x544…54c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x54c…55c Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x55c…56f Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x56f…576 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x576…58d Line {l1=0x15, l2=» IF IORESULT<>0 THEN«, l3=0x15}
0x58d…596 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x596…5a8 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x5a8…5bb Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x5bb…5ec Line {l1=0x2f, l2=» WRITELN('Pladefejl ',IORESULT:5,' RETURN');«, l3=0x2f}
0x5ec…5fa Line {l1=0x0c, l2=» CH:=' ';«, l3=0x0c}
0x5fa…609 Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x609…62d Line {l1=0x22, l2=» IF CH<>'R' THEN EXIT(SYSFIGEN)«, l3=0x22}
0x62d…634 Line {l1=0x05, l2=» END«, l3=0x05}
0x634…63a Line {l1=0x04, l2=»END;«, l3=0x04}
0x63a…642 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x642…649 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x649…669 Line {l1=0x1e, l2=» FNAVN:='ISFFILES:P2:0010:S';«, l3=0x1e}
0x669…689 Line {l1=0x1e, l2=» REWRITE(ISFFILES,FNAVN);IOC;«, l3=0x1e}
0x689…69e Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0x69e…6a7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6a7…6d5 Line {l1=0x2c, l2=» ISFFILES^.FILNAVN:='@23456789012345678';«, l3=0x2c}
0x6d5…704 Line {l1=0x2d, l2=» ISFFILES^.DESCNAVN:='123456789012345678';«, l3=0x2d}
0x704…733 Line {l1=0x2d, l2=» ISFFILES^.POSTNAVN:='123456789012345678';«, l3=0x2d}
0x733…761 Line {l1=0x2c, l2=» ISFFILES^.REGNAVN:='123456789012345678';«, l3=0x2c}
0x761…783 Line {l1=0x20, l2=» ISFFILES^.VEDLNIVEAU:=MENIG;«, l3=0x20}
0x783…79f Line {l1=0x1a, l2=» ISFFILES^.ZONESIZE:=0;«, l3=0x1a}
0x79f…7b6 Line {l1=0x15, l2=» PUT(ISFFILES);IOC«, l3=0x15}
0x7b6…7be Line {l1=0x06, l2=» END;«, l3=0x06}
0x7be…7d6 Line {l1=0x16, l2=» CLOSE(ISFFILES);IOC;«, l3=0x16}
0x7d6…7f6 Line {l1=0x1e, l2=» FNAVN:='LISTDEFS:P2:0007:S';«, l3=0x1e}
0x7f6…814 Line {l1=0x1c, l2=» REWRITE(LISTER,FNAVN);IOC;«, l3=0x1c}
0x814…829 Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0x829…832 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x832…867 Line {l1=0x33, l2=» LISTER^.NAVN:='@23456789012345678901234567890';«, l3=0x33}
0x867…894 Line {l1=0x2b, l2=» LISTER^.DESCLIST:='123456789012345678';«, l3=0x2b}
0x894…8b5 Line {l1=0x1f, l2=» LISTER^.LISTENIVEAU:=MENIG;«, l3=0x1f}
0x8b5…8cf Line {l1=0x18, l2=» LISTER^.BLANKTYP:=0;«, l3=0x18}
0x8cf…8e8 Line {l1=0x17, l2=» LISTER^.ZPOSTNR:=0;«, l3=0x17}
0x8e8…8fd Line {l1=0x13, l2=» PUT(LISTER);IOC«, l3=0x13}
0x8fd…905 Line {l1=0x06, l2=» END;«, l3=0x06}
0x905…91b Line {l1=0x14, l2=» CLOSE(LISTER);IOC;«, l3=0x14}
0x91b…93b Line {l1=0x1e, l2=» FNAVN:='ZEROFILE:P2:0061:S';«, l3=0x1e}
0x93b…957 Line {l1=0x1a, l2=» REWRITE(FIL0,FNAVN);IOC;«, l3=0x1a}
0x957…96c Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0x96c…975 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x975…98e Line {l1=0x17, l2=» FIL0^.AA(-11):='0';«, l3=0x17}
0x98e…9a7 Line {l1=0x17, l2=» FIL0^.AA(-10):='0';«, l3=0x17}
0x9a7…9bc Line {l1=0x13, l2=» FIL0^.A(-4):=0;«, l3=0x13}
0x9bc…9d4 Line {l1=0x16, l2=» FIL0^.AAA(0):=0.0;«, l3=0x16}
0x9d4…a02 Line {l1=0x2c, l2=» FOR J:=1 TO 250 DO FIL0^.CONTENTS(J):=0;«, l3=0x2c}
0xa02…a15 Line {l1=0x11, l2=» PUT(FIL0);IOC«, l3=0x11}
0xa15…a1d Line {l1=0x06, l2=» END;«, l3=0x06}
0xa1d…a31 Line {l1=0x12, l2=» CLOSE(FIL0);IOC;«, l3=0x12}
0xa31…a51 Line {l1=0x1e, l2=» FNAVN:='PROGFILE:P2:0006:S';«, l3=0x1e}
0xa51…a6e Line {l1=0x1b, l2=» REWRITE(PROGS,FNAVN);IOC;«, l3=0x1b}
0xa6e…a83 Line {l1=0x13, l2=» FOR I:=1 TO 30 DO«, l3=0x13}
0xa83…a8c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xa8c…ab7 Line {l1=0x29, l2=» PROGS^.PROGFIL:='@23456789012345678';«, l3=0x29}
0xab7…ae3 Line {l1=0x2a, l2=» PROGS^.PROGNAVN:='@23456789012345678';«, l3=0x2a}
0xae3…b02 Line {l1=0x1d, l2=» PROGS^.PROGNIVEAU:=MENIG;«, l3=0x1d}
0xb02…b16 Line {l1=0x12, l2=» PUT(PROGS);IOC«, l3=0x12}
0xb16…b1e Line {l1=0x06, l2=» END;«, l3=0x06}
0xb1e…b32 Line {l1=0x12, l2=» CLOSE(PROGS);IOC«, l3=0x12}
0xb32…b38 Line {l1=0x04, l2=»END.«, l3=0x04}
0xb38…b40 00 00 00 00 00 00 00 00 ┆ ┆
0xb40…b60 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…]
0xe80…ea0 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┆