DataMuseum.dk

top - download

    Length: 2976 (0xba0)
    Types: TextFile
    Notes: Mikados_K
    Names: »FISFPROC.K«

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

Mikados K File

(*$P*)
PROCEDURE IOPEN(VAR REC:AR);
VAR I:INTEGER;
BEGIN
  REPEAT
    UDFØR(ÅBEN,REC);
    UDFØRT(ÅBEN,REC);
    I:=1;
    IF (-IER IN (.18,19.)) THEN
    BEGIN
      REPEAT
        GOTOXY(1,20);                                                (*$R-*)
        WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),                           
                ' . SITUATIONEN ER FORSØGT REDDET.');                (*$R+*)
        WRITE('TAST 0, HVIS DER SKAL FORTSÆTTES ');
        READLN;READ(I)
      UNTIL IORESULT=0;
      IF I=0 THEN IER:=0 
    END
    ELSE
    IF (-IER IN (.16,20,29.)) THEN 
    BEGIN
      REPEAT
        GOTOXY(1,20);                               (*$R-*)
        WRITE('REGISTERFEJL ',IER,' I ',REC(-3),' TAST 0 FOR PRØV IGEN '); 
                                                    (*$R+*)
        READLN;READ(I)
      UNTIL IORESULT=0;
      IF I=0 THEN I:=-1
    END
  UNTIL I<>-1
END;
PROCEDURE ICLOSE(VAR REC:AR);
BEGIN
 IF REC(-4)>0 THEN
 BEGIN
  UDFØR(LUK,REC);
  UDFØRT(LUK,REC);
  REC(-4):=0;
  IF IER<>0 THEN                                                    (*$R-*)
  BEGIN
    WRITELN('FEJL ',IER,' UNDER LUKNING AF FIL ',REC(-3),' RETURN');(*$R+*)
    READLN
  END
 END
END;
PROCEDURE GETREC(VAR REC:AR);
BEGIN
  UDFØR(LÆSPOST,REC);
  UDFØRT(LÆSPOST,REC)
END;
PROCEDURE GETRECX(VAR REC:AR);
BEGIN
  REPEAT
    UDFØR(LÆSPOSTX,REC);
    UDFØRT(LÆSPOSTX,REC)
  UNTIL IER<>-31
END;
PROCEDURE NEXTREC(VAR REC:AR);
BEGIN
  UDFØR(NÆSTE,REC);
  UDFØRT(NÆSTE,REC)
END;
PROCEDURE NEXTRECX(VAR REC:AR);
BEGIN
  REPEAT
    UDFØR(NÆSTEX,REC);
    UDFØRT(NÆSTEX,REC)
  UNTIL IER<>-31
END;
PROCEDURE DELETE(VAR REC:AR);
BEGIN
  UDFØR(SLET,REC);
  UDFØRT(SLET,REC)
END;
PROCEDURE DELETEX(VAR REC:AR);
BEGIN
  REPEAT
    UDFØR(SLETX,REC);
    UDFØRT(SLETX,REC)
  UNTIL IER<>-31
END;
PROCEDURE PUTREC(VAR REC:AR);
BEGIN
  UDFØR(GEMPOST,REC);
  UDFØRT(GEMPOST,REC)
END;
PROCEDURE INSERT(VAR REC:AR);
BEGIN
  UDFØR(INDSÆT,REC);
  UDFØRT(INDSÆT,REC)
END;
PROCEDURE INITIATE(VAR REC:AR);
BEGIN
  UDFØR(INITIER,REC);
  UDFØRT(INITIER,REC)
END;