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;

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

Full view