|
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: »KCREATE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KCREATE.K«
PROGRAM TESTCREATE;
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
(*PAS PÅ, FILEN BLIVER IKKE STOR NOK*)
FIL:='KUNDERG:P2';
NREC:=1200;
RECSIZE:=132;
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
END.
0x000…015 Line {l1=0x13, l2=»PROGRAM TESTCREATE;«, 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…116 Line {l1=0x26, l2=»(*PAS PÅ, FILEN BLIVER IKKE STOR NOK*)«, l3=0x26}
0x116…12c Line {l1=0x14, l2=» FIL:='KUNDERG:P2';«, l3=0x14}
0x12c…13b Line {l1=0x0d, l2=» NREC:=1200;«, l3=0x0d}
0x13b…14c Line {l1=0x0f, l2=» RECSIZE:=132;«, l3=0x0f}
0x14c…15b Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x15b…18f Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;«, l3=0x32}
0x18f…1c0 Line {l1=0x2f, l2=» CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x2f}
0x1c0…1e6 Line {l1=0x24, l2=» WRITELN(LIST,'IER : ',IER);WRITELN«, l3=0x24}
0x1e6…1ec Line {l1=0x04, l2=»END.«, l3=0x04}
0x1ec…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x200…220 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 ┆ ┆
[…0x16…]