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

⟦161be0149⟧ TextFile

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

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »VARFIX.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*)
(*$IPUTGET*)
(*$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: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;
  VARE.VARENR1:=0;
  NEXTREC(VZ.H,F,VARE.A);
  IF IER<>-1 THEN ERROR;
  IER:=0;
  WHILE (VARE.VARENR1<=1859) AND (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;
  VARE.VARENR1:=1911;
  GETREC(VZ.H,F,VARE.A);
  IF IER<>0 THEN ERROR;
  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…329 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x329…332 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x332…33b Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x33b…34c Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x34c…35c Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x35c…373 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x373…385 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x385…38c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x38c…3af Line {l1=0x21, l2=»  WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x3af…3c2 Line {l1=0x11, l2=»  ICLOSE(VZ.H,F);«, l3=0x11}
0x3c2…3dd Line {l1=0x19, l2=»  WRITELN('ICLOSE ',IER);«, l3=0x19}
0x3dd…3e5 Line {l1=0x06, l2=»  STOP«, l3=0x06}
0x3e5…3eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x3eb…3f2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3f2…414 Line {l1=0x20, l2=»  FILNAVN1:='REGVARE:P1:0000:I';«, l3=0x20}
0x414…42d Line {l1=0x17, l2=»  REWRITE(F1,FILNAVN1);«, l3=0x17}
0x42d…45c Line {l1=0x2d, l2=»  IOPEN(VZ1.H,F1,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2d}
0x45c…47e Line {l1=0x20, l2=»  FILNAVN2:='REGVARE:P2:0000:I';«, l3=0x20}
0x47e…496 Line {l1=0x16, l2=»  REWRITE(F,FILNAVN2);«, l3=0x16}
0x496…4ac Line {l1=0x14, l2=»  IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x4ac…4c5 Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x4c5…4ea Line {l1=0x23, l2=»  INITIATE(VZ1.H,F1,VZ.H.RECINUSE);«, l3=0x23}
0x4ea…503 Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x503…50c Line {l1=0x07, l2=»  I:=0;«, l3=0x07}
0x50c…520 Line {l1=0x12, l2=»  VARE.VARENR1:=0;«, l3=0x12}
0x520…53b Line {l1=0x19, l2=»  NEXTREC(VZ.H,F,VARE.A);«, l3=0x19}
0x53b…555 Line {l1=0x18, l2=»  IF IER<>-1 THEN ERROR;«, l3=0x18}
0x555…560 Line {l1=0x09, l2=»  IER:=0;«, l3=0x09}
0x560…58d Line {l1=0x2b, l2=»  WHILE (VARE.VARENR1<=1859) AND (IER=0) DO«, l3=0x2b}
0x58d…596 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x596…5b4 Line {l1=0x1c, l2=»    INSERT(VZ1.H,F1,VARE.A);«, l3=0x1c}
0x5b4…5cf Line {l1=0x19, l2=»    IF IER<>0 THEN ERROR;«, l3=0x19}
0x5cf…5ec Line {l1=0x1b, l2=»    NEXTREC(VZ.H,F,VARE.A);«, l3=0x1b}
0x5ec…5f8 Line {l1=0x0a, l2=»    I:=I+1«, l3=0x0a}
0x5f8…600 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x600…617 Line {l1=0x15, l2=»  VARE.VARENR1:=1911;«, l3=0x15}
0x617…631 Line {l1=0x18, l2=»  GETREC(VZ.H,F,VARE.A);«, l3=0x18}
0x631…64a Line {l1=0x17, l2=»  IF IER<>0 THEN ERROR;«, l3=0x17}
0x64a…65c Line {l1=0x10, l2=»  WHILE IER=0 DO«, l3=0x10}
0x65c…665 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x665…683 Line {l1=0x1c, l2=»    INSERT(VZ1.H,F1,VARE.A);«, l3=0x1c}
0x683…69e Line {l1=0x19, l2=»    IF IER<>0 THEN ERROR;«, l3=0x19}
0x69e…6bb Line {l1=0x1b, l2=»    NEXTREC(VZ.H,F,VARE.A);«, l3=0x1b}
0x6bb…6c7 Line {l1=0x0a, l2=»    I:=I+1«, l3=0x0a}
0x6c7…6cf Line {l1=0x06, l2=»  END;«, l3=0x06}
0x6cf…6e9 Line {l1=0x18, l2=»  IF IER<>-2 THEN ERROR;«, l3=0x18}
0x6e9…71f Line {l1=0x34, l2=»  WRITELN('INDPOSTER,UDPOSTER',VZ.H.RECINUSE:6,I:6);«, l3=0x34}
0x71f…732 Line {l1=0x11, l2=»  ICLOSE(VZ.H,F);«, l3=0x11}
0x732…747 Line {l1=0x13, l2=»  ICLOSE(VZ1.H,F1);«, l3=0x13}
0x747…761 Line {l1=0x18, l2=»  WRITELN('ICLOSE ',IER)«, l3=0x18}
0x761…767 Line {l1=0x04, l2=»END.«, l3=0x04}
0x767…780 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                        ┆  ccccccccccccccccccccccc┆
0x780…7a0 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┆
          […0x10…]
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