DataMuseum.dk

top - download

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

└─⟦510f10af2⟧ Bits:30009011 Apn
    └─⟦this⟧ »HENTKARM.K« 

Mikados K File

PROCEDURE HENTKARM(NR1,KFA,KMONT:INTEGER;VAR AKA:AKARMTYP);
 
TYPE KARMZONE=RECORD
              H:ISFHEAD;
              T:ARRAY(1..MKARMEZ) OF INTEGER;
     END;
 
     POSTZONE=RECORD
              H:ISFHEAD;
              T:ARRAY(1..MPOSTERZ) OF INTEGER;
     END;
 
     KARMPOST=RECORD
              AA:ARAR;
              A:AR;
              AAA:RAR;
              NR:INTEGER;
              ØFORSTÆRK,
              NFORSTÆRK
              FFORSTÆRK,
              BFOSTÆRK:AR13;
              TYPE:AR14;
              TÆTGUM:INTEGER;
              TEKST:TEK;
      END;
 
      POSTPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               KARMNR,
               NR,
               VANDLOD,
               GÅFRA,
               GÅTIL,
               PLACE:INTEGER;
               FORSTÆRK:AR13;
               TYP:INTEGER;
      END;
 
VAR KARF,POSF:ISF;
    KARZ:KARMZONE;
    POSZ:POSTZONE;
    KARM:KARMPOST;
    POST:POSTPOST;
    REGEL:INTEGER;
    I1,I:INTEGER;
 
BEGIN
  REGEL:=3;
  IF KMONT=0 THEN
  BEGIN
    REGEL:=2
    IF KFA=0 THEN REGEL:=1;
  END;
  WITH KARM DO
  BEGIN
    OWRITE(KARZ.H,KARF,3,LÆS);
    NR:=NR1;
    GETREC(KARZ.H,KARF,A);
    IF IER<>0 THEN IOF(KARZ.H.FILENAME);
    FOR I:=1 TO 4 DO
    BEGIN
      AKA(I).PLACE:=((I+1)MOD 2)*4;
      AKA(I).FRA:=0;
      AKA(I).TIL:=4;
      AKA(I).TYPE:=TYPE(I);
      AKA(I).VANDLOD:=I DIV 3;
      FOR I1:=1 TO 8 DO AKA(I).BESLAG(I1):=0;
    END;
    AKA(1).FORSTÆRK:=ØFORSTÆRK(REGEL);
    AKA(2).FORSTÆRK:=NFORSTÆRK(REGEL);
    AKA(3).FORSTÆRK:=FFORSTÆRK(REGEL);
    AKA(4).FORSTÆRK:=BFORSTÆRK(REGEL);
    ICLOSE(KARZ.H,KARF);
  END;
  WITH POST DO
  BEGIN
    OWRITE(POSZ.H,POSF,11,LÆS);
    KARMNR:=NR1;
    FOR NR:=1 TO 15 DO
    BEGIN
      GETREC(POSZ.H,POSF,A);
      IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
      IF IER=0 THEN
      BEGIN
        AKA(NR+4).FORSTÆRK:=FORSTÆRK(REGEL);
        AKA(NR+4).PLACE:=PLACE;
        AKA(NR+4).FRA:=GÅFRA;
        AKA(NR+4).TIL:=GÅTIL;
        AKA(NR+4).TYPE:=TYP+2;
        AKA(NR+4).VANDLOD:=VANDLOD;
        FORI1:=1 TO 8 DO AKA(NR+4).BESLAG(I1):=0;
      END
      ELSE
      BEGIN
        AKA(NR+4).TYPE:=0;IER:=0;
      END;
    END;
    ICLOSE(POSZ.H,POSF);
  END;
END;