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

⟦8d42e3319⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RESTREOR.K«

Derivation

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

Mikados K File

PROGRAM RESTREOR;
(*$IISFHEAD*)
RORPOST=RECORD
       A:AR;
       HEAD:ARRAY(1..5) OF INTEGER;
       ANTAL:REAL
END;
ZONE= RECORD
       H:ISFHEAD;
       T:ARRAY(1..800) OF INTEGER
 END;
KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;
VAR F1,F:ISF;
   VZ1,VZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
      NREC,RECSIZE,KEYFLDS,IER,I:INTEGER;
      KEYDESC:KEYDESCRIPTION;
       RESTORD:RORPOST;
       R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$ICREATE*)
(*$IINITIATE*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IINSERT*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
  WRITELN('FEJL I VAREREG ',IER);
  ICLOSE(VZ1.H,F1);
  WRITELN('ICLOSE ',IER);
  STOP
END;
BEGIN
  FILNAVN1:='RESTREG:P1';
  NREC:=2000;
  RECSIZE:=9;
  KEYFLDS:=1;
  KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;
  CREATE(FILNAVN1,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
  REWRITE(F1,FILNAVN1);
  IOPEN(VZ1.H,F1,SKRIV);IF IER<>0 THEN ERROR;
  FILNAVN2:='RESTREG:P2:0000:I';
  REWRITE(F,FILNAVN2);
  IOPEN(VZ.H,F,LÆS);
  IF IER<>0 THEN ERROR;
  INITIATE(VZ1.H,F1,VZ.H.RECINUSE);
  IF IER<>0 THEN ERROR;
  I:=0;
  RESTORD.HEAD(1):=0;
  RESTORD.HEAD(2):=0;
  RESTORD.HEAD(3):=0;
  NEXTREC(VZ.H,F,RESTORD.A);
  IF IER<>-1 THEN ERROR;
  IER:=0;
  WHILE (IER=0) AND (RESTORD.HEAD(1)<10) DO
  BEGIN
    WRITELN(RESTORD.HEAD(1)*10000.0+RESTORD.HEAD(2):12:-2,
            RESTORD.HEAD(3):12);
    INSERT(VZ1.H,F1,RESTORD.A);
    IF IER<>0 THEN ERROR;
    NEXTREC(VZ.H,F,RESTORD.A);
    I:=I+1
  END;
  IF (IER<>-2) AND (IER<>0) THEN ERROR;
  WRITELN('INDPOSTER,UDPOSTER',VZ.H.RECINUSE:6,I:6);
  ICLOSE(VZ.H,F);
  ICLOSE(VZ1.H,F1);
  WRITELN('ICLOSE ',IER)
END.

Mikados K File

0x000…013 Line {l1=0x11, l2=»PROGRAM RESTREOR;«, l3=0x11}
0x013…022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x022…032 Line {l1=0x0e, l2=»RORPOST=RECORD«, l3=0x0e}
0x032…040 Line {l1=0x0c, l2=»       A:AR;«, l3=0x0c}
0x040…065 Line {l1=0x23, l2=»       HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x23}
0x065…078 Line {l1=0x11, l2=»       ANTAL:REAL«, l3=0x11}
0x078…07e Line {l1=0x04, l2=»END;«, l3=0x04}
0x07e…08c Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x08c…09f Line {l1=0x11, l2=»       H:ISFHEAD;«, l3=0x11}
0x09f…0c2 Line {l1=0x21, l2=»       T:ARRAY(1..800) OF INTEGER«, l3=0x21}
0x0c2…0c9 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0c9…102 Line {l1=0x37, l2=»KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;«, l3=0x37}
0x102…111 Line {l1=0x0d, l2=»VAR F1,F:ISF;«, l3=0x0d}
0x111…122 Line {l1=0x0f, l2=»   VZ1,VZ:ZONE;«, l3=0x0f}
0x122…141 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x141…16c Line {l1=0x29, l2=»      NREC,RECSIZE,KEYFLDS,IER,I:INTEGER;«, l3=0x29}
0x16c…18b Line {l1=0x1d, l2=»      KEYDESC:KEYDESCRIPTION;«, l3=0x1d}
0x18b…1a4 Line {l1=0x17, l2=»       RESTORD:RORPOST;«, l3=0x17}
0x1a4…1b4 Line {l1=0x0e, l2=»       R:REAL;«, l3=0x0e}
0x1b4…1bd Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1bd…1d0 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x1d0…1de Line {l1=0x0c, l2=»(*$ICREATE*)«, l3=0x0c}
0x1de…1ee Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x1ee…1fb Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x1fb…208 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x208…218 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x218…228 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x228…237 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x237…245 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x245…253 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x253…262 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x262…26b Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x26b…274 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x274…285 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x285…295 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x295…2ac Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x2ac…2be Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x2be…2c5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2c5…2e8 Line {l1=0x21, l2=»  WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x2e8…2fd Line {l1=0x13, l2=»  ICLOSE(VZ1.H,F1);«, l3=0x13}
0x2fd…318 Line {l1=0x19, l2=»  WRITELN('ICLOSE ',IER);«, l3=0x19}
0x318…320 Line {l1=0x06, l2=»  STOP«, l3=0x06}
0x320…326 Line {l1=0x04, l2=»END;«, l3=0x04}
0x326…32d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x32d…348 Line {l1=0x19, l2=»  FILNAVN1:='RESTREG:P1';«, l3=0x19}
0x348…357 Line {l1=0x0d, l2=»  NREC:=2000;«, l3=0x0d}
0x357…366 Line {l1=0x0d, l2=»  RECSIZE:=9;«, l3=0x0d}
0x366…375 Line {l1=0x0d, l2=»  KEYFLDS:=1;«, l3=0x0d}
0x375…3a9 Line {l1=0x32, l2=»  KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;«, l3=0x32}
0x3a9…3df Line {l1=0x34, l2=»  CREATE(FILNAVN1,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x34}
0x3df…3f8 Line {l1=0x17, l2=»  REWRITE(F1,FILNAVN1);«, l3=0x17}
0x3f8…427 Line {l1=0x2d, l2=»  IOPEN(VZ1.H,F1,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2d}
0x427…449 Line {l1=0x20, l2=»  FILNAVN2:='RESTREG:P2:0000:I';«, l3=0x20}
0x449…461 Line {l1=0x16, l2=»  REWRITE(F,FILNAVN2);«, l3=0x16}
0x461…477 Line {l1=0x14, l2=»  IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x477…490 Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x490…4b5 Line {l1=0x23, l2=»  INITIATE(VZ1.H,F1,VZ.H.RECINUSE);«, l3=0x23}
0x4b5…4ce Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x4ce…4d7 Line {l1=0x07, l2=»  I:=0;«, l3=0x07}
0x4d7…4ee Line {l1=0x15, l2=»  RESTORD.HEAD(1):=0;«, l3=0x15}
0x4ee…505 Line {l1=0x15, l2=»  RESTORD.HEAD(2):=0;«, l3=0x15}
0x505…51c Line {l1=0x15, l2=»  RESTORD.HEAD(3):=0;«, l3=0x15}
0x51c…53a Line {l1=0x1c, l2=»  NEXTREC(VZ.H,F,RESTORD.A);«, l3=0x1c}
0x53a…554 Line {l1=0x18, l2=»  IF IER<>-1 THEN ERROR;«, l3=0x18}
0x554…55f Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x55f…58c Line {l1=0x2b, l2=»  WHILE (IER=0) AND (RESTORD.HEAD(1)<10) DO«, l3=0x2b}
0x58c…595 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x595…5d1 Line {l1=0x3a, l2=»    WRITELN(RESTORD.HEAD(1)*10000.0+RESTORD.HEAD(2):12:-2,«, l3=0x3a}
0x5d1…5f3 Line {l1=0x20, l2=»            RESTORD.HEAD(3):12);«, l3=0x20}
0x5f3…614 Line {l1=0x1f, l2=»    INSERT(VZ1.H,F1,RESTORD.A);«, l3=0x1f}
0x614…62f Line {l1=0x19, l2=»    IF IER<>0 THEN ERROR;«, l3=0x19}
0x62f…64f Line {l1=0x1e, l2=»    NEXTREC(VZ.H,F,RESTORD.A);«, l3=0x1e}
0x64f…65b Line {l1=0x0a, l2=»    I:=I+1«, l3=0x0a}
0x65b…663 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x663…68c Line {l1=0x27, l2=»  IF (IER<>-2) AND (IER<>0) THEN ERROR;«, l3=0x27}
0x68c…6c2 Line {l1=0x34, l2=»  WRITELN('INDPOSTER,UDPOSTER',VZ.H.RECINUSE:6,I:6);«, l3=0x34}
0x6c2…6d5 Line {l1=0x11, l2=»  ICLOSE(VZ.H,F);«, l3=0x11}
0x6d5…6ea Line {l1=0x13, l2=»  ICLOSE(VZ1.H,F1);«, l3=0x13}
0x6ea…704 Line {l1=0x18, l2=»  WRITELN('ICLOSE ',IER)«, l3=0x18}
0x704…70a Line {l1=0x04, l2=»END.«, l3=0x04}
0x70a…720 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                 ┆  cccccccccccccccccccc┆
0x720…740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x13…]
0x9a0…9c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00   ┆ccccccccccccccccccccccccccccccc ┆

Reduced view