|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »ELFACREA.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »ELFACREA.K«
PROGRAM ELFACREATE;
TYPE ISF=FILE OF ARRAY (1..232) OF INTEGER;
KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;
VAR FIL:STRING(20);
NREC,RECSIZE,KEYFLDS,IER:INTEGER;
KEYDESC:KEYDESCRIPTION;
(*$ICREATE*)
BEGIN
FIL:='ELEVREG:P2';
NREC:=700;
RECSIZE:=60;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;
CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
FIL:='FAGREG:P2';
NREC:=120;
RECSIZE:=140;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=1;KEYDESC(1,3):=1;
CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN
END.
0x000…015 Line {l1=0x13, l2=»PROGRAM ELFACREATE;«, l3=0x13}
0x015…042 Line {l1=0x2b, l2=»TYPE ISF=FILE OF ARRAY (1..232) OF INTEGER;«, l3=0x2b}
0x042…080 Line {l1=0x3c, l2=» KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;«, l3=0x3c}
0x080…095 Line {l1=0x13, l2=»VAR FIL:STRING(20);«, l3=0x13}
0x095…0bc Line {l1=0x25, l2=» NREC,RECSIZE,KEYFLDS,IER:INTEGER;«, l3=0x25}
0x0bc…0d9 Line {l1=0x1b, l2=» KEYDESC:KEYDESCRIPTION;«, l3=0x1b}
0x0d9…0e7 Line {l1=0x0c, l2=»(*$ICREATE*)«, l3=0x0c}
0x0e7…0ee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ee…104 Line {l1=0x14, l2=» FIL:='ELEVREG:P2';«, l3=0x14}
0x104…112 Line {l1=0x0c, l2=» NREC:=700;«, l3=0x0c}
0x112…122 Line {l1=0x0e, l2=» RECSIZE:=60;«, l3=0x0e}
0x122…131 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x131…165 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;«, l3=0x32}
0x165…196 Line {l1=0x2f, l2=» CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x2f}
0x196…1bd Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x1bd…1d2 Line {l1=0x13, l2=» FIL:='FAGREG:P2';«, l3=0x13}
0x1d2…1e0 Line {l1=0x0c, l2=» NREC:=120;«, l3=0x0c}
0x1e0…1f1 Line {l1=0x0f, l2=» RECSIZE:=140;«, l3=0x0f}
0x1f1…200 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x200…234 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=1;KEYDESC(1,3):=1;«, l3=0x32}
0x234…265 Line {l1=0x2f, l2=» CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x2f}
0x265…28b Line {l1=0x24, l2=» WRITELN(LIST,'IER : ',IER);WRITELN«, l3=0x24}
0x28b…291 Line {l1=0x04, l2=»END.«, l3=0x04}
0x291…2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2a0…2c0 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 ┆ ┆
[…0x10…]
0x4c0…4e0 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 da ┆ ┆