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

⟦c20b027bd⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »VREORGIE.K«

Derivation

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

Mikados K File

PROGRAM VAREREOR;
(*$IISFHEAD*)
VPOST=RECORD
       A:AR;
       VARENR1,LVRNDØR,OPRLAND,PAKENHED,
       FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,
       DÆKGRASÅ,ANAFTILG:INTEGER;
       NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;
       PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
       RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL
END;
ZONE= RECORD
       H:ISFHEAD;
       T:ARRAY(1..451) OF INTEGER
 END;
VAR F1,F:ISF;
   VZ1,VZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
      IER,I:INTEGER;
       VARE:VPOST;
       R:REAL;
 
 
 
 
 
 
 
 
 
 
 
 
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$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(VZ.H,F);
  WRITELN('ICLOSE ',IER);
  STOP
END;
BEGIN
  FILNAVN1:='REGVARE:P1:0000:I';
  REWRITE(F1,FILNAVN1);
  IOPEN(VZ1.H,F1,SKRIV);IF IER<>0 THEN ERROR;
  FILNAVN2:='REGVARE:P2:1137: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;
  VARE.VARENR1:=0;
  NEXTREC(VZ.H,F,VARE.A);
  IF IER<>-1 THEN ERROR;
  IER:=0;
  WHILE IER=0 DO
  BEGIN
    INSERT(VZ1.H,F1,VARE.A);
    IF IER<>0 THEN ERROR;
    NEXTREC(VZ.H,F,VARE.A);
    I:=I+1
  END;
  IF IER<>-2 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 VAREREOR;«, l3=0x11}
0x013…022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x022…030 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x030…03e Line {l1=0x0c, l2=»       A:AR;«, l3=0x0c}
0x03e…068 Line {l1=0x28, l2=»       VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x068…09e Line {l1=0x34, l2=»       FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x09e…0c1 Line {l1=0x21, l2=»       DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x0c1…0fb Line {l1=0x38, l2=»       NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x0fb…145 Line {l1=0x48, l2=»       PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x145…18d Line {l1=0x46, l2=»       RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x18d…193 Line {l1=0x04, l2=»END;«, l3=0x04}
0x193…1a1 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x1a1…1b4 Line {l1=0x11, l2=»       H:ISFHEAD;«, l3=0x11}
0x1b4…1d7 Line {l1=0x21, l2=»       T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x1d7…1de Line {l1=0x05, l2=» END;«, l3=0x05}
0x1de…1ed Line {l1=0x0d, l2=»VAR F1,F:ISF;«, l3=0x0d}
0x1ed…1fe Line {l1=0x0f, l2=»   VZ1,VZ:ZONE;«, l3=0x0f}
0x1fe…21d Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x21d…233 Line {l1=0x14, l2=»      IER,I:INTEGER;«, l3=0x14}
0x233…247 Line {l1=0x12, l2=»       VARE:VPOST;«, l3=0x12}
0x247…257 Line {l1=0x0e, l2=»       R:REAL;«, l3=0x0e}
0x257…25a Line {l1=0x01, l2=» «, l3=0x01}
          […0xb…]
0x27b…284 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x284…297 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x297…2a7 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x2a7…2b4 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x2b4…2c1 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x2c1…2d1 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x2d1…2e1 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x2e1…2f0 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x2f0…2fe Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x2fe…30c Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x30c…31b Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x31b…324 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x324…32d Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x32d…33e Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x33e…34e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x34e…365 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x365…377 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x377…37e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x37e…3a1 Line {l1=0x21, l2=»  WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x3a1…3b4 Line {l1=0x11, l2=»  ICLOSE(VZ.H,F);«, l3=0x11}
0x3b4…3cf Line {l1=0x19, l2=»  WRITELN('ICLOSE ',IER);«, l3=0x19}
0x3cf…3d7 Line {l1=0x06, l2=»  STOP«, l3=0x06}
0x3d7…3dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x3dd…3e4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3e4…406 Line {l1=0x20, l2=»  FILNAVN1:='REGVARE:P1:0000:I';«, l3=0x20}
0x406…41f Line {l1=0x17, l2=»  REWRITE(F1,FILNAVN1);«, l3=0x17}
0x41f…44e Line {l1=0x2d, l2=»  IOPEN(VZ1.H,F1,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2d}
0x44e…470 Line {l1=0x20, l2=»  FILNAVN2:='REGVARE:P2:1137:I';«, l3=0x20}
0x470…488 Line {l1=0x16, l2=»  REWRITE(F,FILNAVN2);«, l3=0x16}
0x488…49e Line {l1=0x14, l2=»  IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x49e…4b7 Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x4b7…4dc Line {l1=0x23, l2=»  INITIATE(VZ1.H,F1,VZ.H.RECINUSE);«, l3=0x23}
0x4dc…4f5 Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x4f5…4fe Line {l1=0x07, l2=»  I:=0;«, l3=0x07}
0x4fe…512 Line {l1=0x12, l2=»  VARE.VARENR1:=0;«, l3=0x12}
0x512…52d Line {l1=0x19, l2=»  NEXTREC(VZ.H,F,VARE.A);«, l3=0x19}
0x52d…547 Line {l1=0x18, l2=»  IF IER<>-1 THEN ERROR;«, l3=0x18}
0x547…552 Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x552…564 Line {l1=0x10, l2=»  WHILE IER=0 DO«, l3=0x10}
0x564…56d Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x56d…58b Line {l1=0x1c, l2=»    INSERT(VZ1.H,F1,VARE.A);«, l3=0x1c}
0x58b…5a6 Line {l1=0x19, l2=»    IF IER<>0 THEN ERROR;«, l3=0x19}
0x5a6…5c3 Line {l1=0x1b, l2=»    NEXTREC(VZ.H,F,VARE.A);«, l3=0x1b}
0x5c3…5cf Line {l1=0x0a, l2=»    I:=I+1«, l3=0x0a}
0x5cf…5d7 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x5d7…5f1 Line {l1=0x18, l2=»  IF IER<>-2 THEN ERROR;«, l3=0x18}
0x5f1…627 Line {l1=0x34, l2=»  WRITELN('INDPOSTER,UDPOSTER',VZ.H.RECINUSE:6,I:6);«, l3=0x34}
0x627…63a Line {l1=0x11, l2=»  ICLOSE(VZ.H,F);«, l3=0x11}
0x63a…64f Line {l1=0x13, l2=»  ICLOSE(VZ1.H,F1);«, l3=0x13}
0x64f…669 Line {l1=0x18, l2=»  WRITELN('ICLOSE ',IER)«, l3=0x18}
0x669…66f Line {l1=0x04, l2=»END.«, l3=0x04}
0x66f…680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                ┆                 ┆
0x680…6a0 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   ┆                                ┆
          […0x1a…]

Reduced view