DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦9ee3feeb6⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SYSFIX.K«

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »SYSFIX.K«

Mikados K File

PROGRAM SYSVEDL;
TYPE
 SYSPOST=RECORD
       HELTAL:ARRAY(1..14) OF INTEGER;
       BETADAT:PACKED ARRAY (1..13) OF CHAR;
       KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR
 END;
 SYSFILE=FILE OF SYSPOST;
SYSPOST1=RECORD
(*DATO1,DATO2,
  UGENR,
  MAXEXC,
  ORDRENR1-2,
  FAKTNR1-2,
  KREDNTNR1-2,
  BILAGSNR1-2,JOURFILNR,MOMS,
  KASSFILNR,KASSJOURFILNR,KASSSID,
  FAKJOURNR,POSTJOURNR,LA1-5*)
                                   HELTAL: ARRAY (1..24) OF INTEGER;
  KGB:ARRAY (1..3) OF REAL;
  BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE1=FILE OF SYSPOST1;
VAR I,J:INTEGER;
       R:REAL;
       FILNAVN:STRING(20);
       TEKST:STRING(13);
       F:SYSFILE;
       F1:SYSFILE1;
       QUQ:^INTEGER;
BEGIN
  FILNAVN:='SYSREG:P2:1:I';
  REWRITE(F,FILNAVN);
  SEEK(F,1);
  GET(F);
  FILNAVN:='SYSREG:P1:1:I';
  REWRITE(F1,FILNAVN);
  SEEK(F1,1);
  FOR I:=1 TO 14 DO F1^.HELTAL(I):=F^.HELTAL(I);
  FOR I:=15 TO 24 DO F1^.HELTAL(I):=1;
  FOR I:=1 TO 3 DO F1^.KGB(1):=0.0;
  F1^.BETADAT:=F^.BETADAT;
  F1^.KODE(1):=F^.KODE(1);
  F1^.KODE(2):=F^.KODE(2);
      PUT(F1);
  CLOSE(F);
  CLOSE(F1);
END.

Mikados K File

0x000…012 Line {l1=0x10, l2=»PROGRAM SYSVEDL;«, l3=0x10}
0x012…018 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x018…029 Line {l1=0x0f, l2=» SYSPOST=RECORD«, l3=0x0f}
0x029…051 Line {l1=0x26, l2=»       HELTAL:ARRAY(1..14) OF INTEGER;«, l3=0x26}
0x051…07f Line {l1=0x2c, l2=»       BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x07f…0b8 Line {l1=0x37, l2=»       KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x37}
0x0b8…0bf Line {l1=0x05, l2=» END;«, l3=0x05}
0x0bf…0da Line {l1=0x19, l2=» SYSFILE=FILE OF SYSPOST;«, l3=0x19}
0x0da…0eb Line {l1=0x0f, l2=»SYSPOST1=RECORD«, l3=0x0f}
0x0eb…0fb Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x0fb…105 Line {l1=0x08, l2=»  UGENR,«, l3=0x08}
0x105…110 Line {l1=0x09, l2=»  MAXEXC,«, l3=0x09}
0x110…11f Line {l1=0x0d, l2=»  ORDRENR1-2,«, l3=0x0d}
0x11f…12d Line {l1=0x0c, l2=»  FAKTNR1-2,«, l3=0x0c}
0x12d…13d Line {l1=0x0e, l2=»  KREDNTNR1-2,«, l3=0x0e}
0x13d…15c Line {l1=0x1d, l2=»  BILAGSNR1-2,JOURFILNR,MOMS,«, l3=0x1d}
0x15c…180 Line {l1=0x22, l2=»  KASSFILNR,KASSJOURFILNR,KASSSID,«, l3=0x22}
0x180…1a0 Line {l1=0x1e, l2=»  FAKJOURNR,POSTJOURNR,LA1-5*)«, l3=0x1e}
0x1a0…1e6 Line {l1=0x44, l2=»                                   HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x44}
0x1e6…203 Line {l1=0x1b, l2=»  KGB:ARRAY (1..3) OF REAL;«, l3=0x1b}
0x203…22c Line {l1=0x27, l2=»  BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x22c…273 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x273…279 Line {l1=0x04, l2=»END;«, l3=0x04}
0x279…295 Line {l1=0x1a, l2=»SYSFILE1=FILE OF SYSPOST1;«, l3=0x1a}
0x295…2a7 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x2a7…2b7 Line {l1=0x0e, l2=»       R:REAL;«, l3=0x0e}
0x2b7…2d3 Line {l1=0x1a, l2=»       FILNAVN:STRING(20);«, l3=0x1a}
0x2d3…2ed Line {l1=0x18, l2=»       TEKST:STRING(13);«, l3=0x18}
0x2ed…300 Line {l1=0x11, l2=»       F:SYSFILE;«, l3=0x11}
0x300…315 Line {l1=0x13, l2=»       F1:SYSFILE1;«, l3=0x13}
0x315…32b Line {l1=0x14, l2=»       QUQ:^INTEGER;«, l3=0x14}
0x32b…332 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x332…34f Line {l1=0x1b, l2=»  FILNAVN:='SYSREG:P2:1:I';«, l3=0x1b}
0x34f…366 Line {l1=0x15, l2=»  REWRITE(F,FILNAVN);«, l3=0x15}
0x366…374 Line {l1=0x0c, l2=»  SEEK(F,1);«, l3=0x0c}
0x374…37f Line {l1=0x09, l2=»  GET(F);«, l3=0x09}
0x37f…39c Line {l1=0x1b, l2=»  FILNAVN:='SYSREG:P1:1:I';«, l3=0x1b}
0x39c…3b4 Line {l1=0x16, l2=»  REWRITE(F1,FILNAVN);«, l3=0x16}
0x3b4…3c3 Line {l1=0x0d, l2=»  SEEK(F1,1);«, l3=0x0d}
0x3c3…3f5 Line {l1=0x30, l2=»  FOR I:=1 TO 14 DO F1^.HELTAL(I):=F^.HELTAL(I);«, l3=0x30}
0x3f5…41d Line {l1=0x26, l2=»  FOR I:=15 TO 24 DO F1^.HELTAL(I):=1;«, l3=0x26}
0x41d…442 Line {l1=0x23, l2=»  FOR I:=1 TO 3 DO F1^.KGB(1):=0.0;«, l3=0x23}
0x442…45e Line {l1=0x1a, l2=»  F1^.BETADAT:=F^.BETADAT;«, l3=0x1a}
0x45e…47a Line {l1=0x1a, l2=»  F1^.KODE(1):=F^.KODE(1);«, l3=0x1a}
0x47a…496 Line {l1=0x1a, l2=»  F1^.KODE(2):=F^.KODE(2);«, l3=0x1a}
0x496…4a6 Line {l1=0x0e, l2=»      PUT(F1);«, l3=0x0e}
0x4a6…4b3 Line {l1=0x0b, l2=»  CLOSE(F);«, l3=0x0b}
0x4b3…4c1 Line {l1=0x0c, l2=»  CLOSE(F1);«, l3=0x0c}
0x4c1…4c7 Line {l1=0x04, l2=»END.«, l3=0x04}
0x4c7…4e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00                        ┆  cccccccccccccccccccccc ┆

Reduced view