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

⟦106f66c6c⟧ TextFile

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

Derivation

└─⟦510f10af2⟧ Bits:30009011 Apn
    └─⟦this⟧ »TILBEHØR.K«

Mikados K File

PROCEDURE HENTTILBEHØR(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:
                       ATILBEHØRTYP);
 
TYPE TILBEHZONE=RECORD
                H:ISFHEAD;
                T:ARRAY(1..MTIBEHZ) OF INTEGER;
     END;
 
     TILBEHPOST=RECORD
                AA:ARAR;
                A:AR;
                AAA:RAR;
                NR,
                GLASKODE,
                GLASLIST:INTEGER;
                GLASGUMMI,
                GLASLISTGUMMI:DOBBTAL;
      END;
 
VAR  TILF:ISF;
     TILZ:TILBEHZONE;
     TILBEHØR:TILBEHPOST;
  I1,I:INTEGER;
 
PROCEDURE HTIL
 
BEGIN
  WITH TILBEHØR DO
  BEGIN
    FOR I:=1 TO 3 DO
    BEGIN
      GLASKODE:=GL(I).KODE;
      IF GLASKODE<>0 THEN
      BEGIN
        GETREC(TILZ.H,TILF,A);
        IF IER<>0 THEN IOF(TILZ.H.FILENAME);
        ATI(I+I1).GLASLIST:=GLASLIST;
        ATI(I+I1).GLASGUMMI:=GLASGUMMI;
        ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;
        PR(I+I1+6).NR:=GLASLIST;
      END
      ELSE
      BEGIN
        ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;
      END;
    END;
  END;
END;
BEGIN
  OWRITE(TILZ.H,TILF,9,LÆS);
  TILBEHØR.NR:=PR(1).NR;I1:=0;
  HTIL;
  TILBEHØR.NR:=PR(5).NR;I1:=3;
  HTIL;
  ICLOSE(TILZ.H,TILF);
END;

Mikados K File

0x000…03f Line {l1=0x3d, l2=»PROCEDURE HENTTILBEHØR(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:«, l3=0x3d}
0x03f…066 Line {l1=0x25, l2=»                       ATILBEHØRTYP);«, l3=0x25}
0x066…069 Line {l1=0x01, l2=» «, l3=0x01}
0x069…081 Line {l1=0x16, l2=»TYPE TILBEHZONE=RECORD«, l3=0x16}
0x081…09d Line {l1=0x1a, l2=»                H:ISFHEAD;«, l3=0x1a}
0x09d…0ce Line {l1=0x2f, l2=»                T:ARRAY(1..MTIBEHZ) OF INTEGER;«, l3=0x2f}
0x0ce…0d9 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0d9…0dc Line {l1=0x01, l2=» «, l3=0x01}
0x0dc…0f4 Line {l1=0x16, l2=»     TILBEHPOST=RECORD«, l3=0x16}
0x0f4…10e Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x10e…125 Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x125…13f Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x13f…154 Line {l1=0x13, l2=»                NR,«, l3=0x13}
0x154…16f Line {l1=0x19, l2=»                GLASKODE,«, l3=0x19}
0x16f…192 Line {l1=0x21, l2=»                GLASLIST:INTEGER;«, l3=0x21}
0x192…1ae Line {l1=0x1a, l2=»                GLASGUMMI,«, l3=0x1a}
0x1ae…1d6 Line {l1=0x26, l2=»                GLASLISTGUMMI:DOBBTAL;«, l3=0x26}
0x1d6…1e2 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x1e2…1e5 Line {l1=0x01, l2=» «, l3=0x01}
0x1e5…1f5 Line {l1=0x0e, l2=»VAR  TILF:ISF;«, l3=0x0e}
0x1f5…20c Line {l1=0x15, l2=»     TILZ:TILBEHZONE;«, l3=0x15}
0x20c…227 Line {l1=0x19, l2=»     TILBEHØR:TILBEHPOST;«, l3=0x19}
0x227…238 Line {l1=0x0f, l2=»  I1,I:INTEGER;«, l3=0x0f}
0x238…23b Line {l1=0x01, l2=» «, l3=0x01}
0x23b…24b Line {l1=0x0e, l2=»PROCEDURE HTIL«, l3=0x0e}
0x24b…24e Line {l1=0x01, l2=» «, l3=0x01}
0x24e…255 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x255…269 Line {l1=0x12, l2=»  WITH TILBEHØR DO«, l3=0x12}
0x269…272 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x272…288 Line {l1=0x14, l2=»    FOR I:=1 TO 3 DO«, l3=0x14}
0x288…293 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x293…2b0 Line {l1=0x1b, l2=»      GLASKODE:=GL(I).KODE;«, l3=0x1b}
0x2b0…2cb Line {l1=0x19, l2=»      IF GLASKODE<>0 THEN«, l3=0x19}
0x2cb…2d8 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x2d8…2f8 Line {l1=0x1e, l2=»        GETREC(TILZ.H,TILF,A);«, l3=0x1e}
0x2f8…326 Line {l1=0x2c, l2=»        IF IER<>0 THEN IOF(TILZ.H.FILENAME);«, l3=0x2c}
0x326…34d Line {l1=0x25, l2=»        ATI(I+I1).GLASLIST:=GLASLIST;«, l3=0x25}
0x34d…376 Line {l1=0x27, l2=»        ATI(I+I1).GLASGUMMI:=GLASGUMMI;«, l3=0x27}
0x376…3a7 Line {l1=0x2f, l2=»        ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;«, l3=0x2f}
0x3a7…3c9 Line {l1=0x20, l2=»        PR(I+I1+6).NR:=GLASLIST;«, l3=0x20}
0x3c9…3d4 Line {l1=0x09, l2=»      END«, l3=0x09}
0x3d4…3e0 Line {l1=0x0a, l2=»      ELSE«, l3=0x0a}
0x3e0…3ed Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x3ed…41e Line {l1=0x2f, l2=»        ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;«, l3=0x2f}
0x41e…42a Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x42a…434 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x434…43c Line {l1=0x06, l2=»  END;«, l3=0x06}
0x43c…442 Line {l1=0x04, l2=»END;«, l3=0x04}
0x442…449 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x449…467 Line {l1=0x1c, l2=»  OWRITE(TILZ.H,TILF,9,LÆS);«, l3=0x1c}
0x467…487 Line {l1=0x1e, l2=»  TILBEHØR.NR:=PR(1).NR;I1:=0;«, l3=0x1e}
0x487…490 Line {l1=0x07, l2=»  HTIL;«, l3=0x07}
0x490…4b0 Line {l1=0x1e, l2=»  TILBEHØR.NR:=PR(5).NR;I1:=3;«, l3=0x1e}
0x4b0…4b9 Line {l1=0x07, l2=»  HTIL;«, l3=0x07}
0x4b9…4d1 Line {l1=0x16, l2=»  ICLOSE(TILZ.H,TILF);«, l3=0x16}
0x4d1…4d7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4d7…4e0 00 00 63 63 63 63 63 63 63                                                                        ┆  ccccccc┆
0x4e0…500 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┆
          […0x27…]

TextFile

=PROCEDURE HENTTILBEHØR(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:=%                       ATILBEHØRTYP);%▶01◀ ▶01◀▶16◀TYPE TILBEHZONE=RECORD▶16◀▶1a◀                H:ISFHEAD;▶1a◀/                T:ARRAY(1..MTIBEHZ) OF INTEGER;/	     END;	▶01◀ ▶01◀▶16◀     TILBEHPOST=RECORD▶16◀▶18◀                AA:ARAR;▶18◀▶15◀                A:AR;▶15◀▶18◀                AAA:RAR;▶18◀▶13◀                NR,▶13◀▶19◀                GLASKODE,▶19◀!                GLASLIST:INTEGER;!▶1a◀                GLASGUMMI,▶1a◀&                GLASLISTGUMMI:DOBBTAL;&
      END;
▶01◀ ▶01◀▶0e◀VAR  TILF:ISF;▶0e◀▶15◀     TILZ:TILBEHZONE;▶15◀▶19◀     TILBEHØR:TILBEHPOST;▶19◀▶0f◀  I1,I:INTEGER;▶0f◀▶01◀ ▶01◀▶0e◀PROCEDURE HTIL▶0e◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶12◀  WITH TILBEHØR DO▶12◀▶07◀  BEGIN▶07◀▶14◀    FOR I:=1 TO 3 DO▶14◀	    BEGIN	▶1b◀      GLASKODE:=GL(I).KODE;▶1b◀▶19◀      IF GLASKODE<>0 THEN▶19◀▶0b◀      BEGIN▶0b◀▶1e◀        GETREC(TILZ.H,TILF,A);▶1e◀,        IF IER<>0 THEN IOF(TILZ.H.FILENAME);,%        ATI(I+I1).GLASLIST:=GLASLIST;%'        ATI(I+I1).GLASGUMMI:=GLASGUMMI;'/        ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;/         PR(I+I1+6).NR:=GLASLIST; 	      END	
      ELSE
▶0b◀      BEGIN▶0b◀/        ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;/
      END;
▶08◀    END;▶08◀▶06◀  END;▶06◀▶04◀END;▶04◀▶05◀BEGIN▶05◀▶1c◀  OWRITE(TILZ.H,TILF,9,LÆS);▶1c◀▶1e◀  TILBEHØR.NR:=PR(1).NR;I1:=0;▶1e◀▶07◀  HTIL;▶07◀▶1e◀  TILBEHØR.NR:=PR(5).NR;I1:=3;▶1e◀▶07◀  HTIL;▶07◀▶16◀  ICLOSE(TILZ.H,TILF);▶16◀▶04◀END;▶04◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view