|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »BCREATE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »BCREATE.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:='BETAREG:P2';
NREC:=200;
RECSIZE:=76;
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:='BETAREG:P2';«, l3=0x14}
0x12c…13a Line {l1=0x0c, l2=» NREC:=200;«, l3=0x0c}
0x13a…14a Line {l1=0x0e, l2=» RECSIZE:=76;«, l3=0x0e}
0x14a…159 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x159…18d Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;«, l3=0x32}
0x18d…1be Line {l1=0x2f, l2=» CREATE(FIL,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x2f}
0x1be…1e4 Line {l1=0x24, l2=» WRITELN(LIST,'IER : ',IER);WRITELN«, l3=0x24}
0x1e4…1ea Line {l1=0x04, l2=»END.«, l3=0x04}
0x1ea…200 00 00 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 ┆ ┆
[…0x3e…]