DataMuseum.dk

top - download

    Length: 3744 (0xea0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SYSFIGEN.K«

└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
    └─⟦this⟧ »SYSFIGEN.K« 
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
    └─⟦this⟧ »SYSFIGEN.K« 

Mikados K File

PROGRAM SYSFIGEN;
TYPE
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
AR=ARRAY (-4..-4) OF INTEGER;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
PPOST=RECORD
      AA:ARAR;
      A:AR;
      AAA:RAR;
      CONTENTS: ARRAY (1..250) OF INTEGER
END;
LISTTYPE=RECORD
   NAVN:STRING(30);        (*LISTENS BETEGNELSE*)
   DESCLIST:STRING(18);    (*NAVN PÅ LISTEDEFINITIONSFILEN*)
   LISTENIVEAU:NIVEAU;     (*ADGANGSNIVEAUET TIL LISTEN*)
   BLANKTYP,               (*BLANKETTYPE*)
   ZPOSTNR:INTEGER         (*KONSTANTPOSTENS NR*)
END;
LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)
ZEROFIL=FILE OF PPOST;
FILDESC=RECORD
   FILNAVN:STRING(18);   (*ISF-FILENS NAVN*)
   DESCNAVN:STRING(18);  (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)
   POSTNAVN: STRING(18);                   (*NAVNET PÅ ET INDIVID I FILEN*)
   REGNAVN:STRING(18); (*FILENS BETEGNELSE*)
   VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)
   ZONESIZE:INTEGER
END;
FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)
PROGDESC=RECORD
   PROGFIL,PROGNAVN:STRING(18);
   PROGNIVEAU:NIVEAU
END;
PROGFILE=FILE OF PROGDESC;
VAR FNAVN:STRING;
    ISFFILES:FILEDESC;
    LISTER:LISTFILE;
    FIL0:ZEROFIL;
    PROGS:PROGFILE;
    I,J:INTEGER;
(*$P*)
PROCEDURE IOC;
VAR CH:STRING(1);
BEGIN
  IF IORESULT<>0 THEN
  BEGIN
    CLEARSCREEN;
    GOTOXY(1,10);
    WRITELN('Pladefejl ',IORESULT:5,' RETURN');
    CH:=' ';
    EDIT(CH);
    IF CH<>'R' THEN EXIT(SYSFIGEN)
  END
END;
(*$P*)
BEGIN
  FNAVN:='ISFFILES:P2:0010:S';
  REWRITE(ISFFILES,FNAVN);IOC;
  FOR I:=1 TO 30 DO
  BEGIN
    ISFFILES^.FILNAVN:='@23456789012345678';
    ISFFILES^.DESCNAVN:='123456789012345678';
    ISFFILES^.POSTNAVN:='123456789012345678';
    ISFFILES^.REGNAVN:='123456789012345678';
    ISFFILES^.VEDLNIVEAU:=MENIG;
    ISFFILES^.ZONESIZE:=0;
    PUT(ISFFILES);IOC
  END;
  CLOSE(ISFFILES);IOC;
  FNAVN:='LISTDEFS:P2:0007:S';
  REWRITE(LISTER,FNAVN);IOC;
  FOR I:=1 TO 30 DO
  BEGIN
    LISTER^.NAVN:='@23456789012345678901234567890';
    LISTER^.DESCLIST:='123456789012345678';
    LISTER^.LISTENIVEAU:=MENIG;
    LISTER^.BLANKTYP:=0;
    LISTER^.ZPOSTNR:=0;
    PUT(LISTER);IOC
  END;
  CLOSE(LISTER);IOC;
  FNAVN:='ZEROFILE:P2:0061:S';
  REWRITE(FIL0,FNAVN);IOC;
  FOR I:=1 TO 30 DO
  BEGIN
    FIL0^.AA(-11):='0';
    FIL0^.AA(-10):='0';
    FIL0^.A(-4):=0;
    FIL0^.AAA(0):=0.0;
    FOR J:=1 TO 250 DO FIL0^.CONTENTS(J):=0;
    PUT(FIL0);IOC
  END;
  CLOSE(FIL0);IOC;
  FNAVN:='PROGFILE:P2:0006:S';
  REWRITE(PROGS,FNAVN);IOC;
  FOR I:=1 TO 30 DO
  BEGIN
    PROGS^.PROGFIL:='@23456789012345678';
    PROGS^.PROGNAVN:='@23456789012345678';
    PROGS^.PROGNIVEAU:=MENIG;
    PUT(PROGS);IOC
  END;
  CLOSE(PROGS);IOC
END.