DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTFEJL.K«

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTFEJL.K« 

Mikados K File

PROCEDURE IOF(VAR FIL:FILNAVN);
BEGIN
  CLEARSCREEN;
  WRITELN('FEJL,IER=',IER,',FIL=',FIL,' NOTER FEJLEN!');
  WRITELN('TRYK RETURN, DER RETURNERES TIL PROGRAMVALG');
  LUK;
  READLN;
  READ (CH);
  EXIT(MAINTAIN);
END;
 
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
  GOTOXY(1,20);
  WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');
  WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
  REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
  IF I<>0 THEN IOF(FIL);
  CLEARSCREEN
END;
 
PROCEDURE FEJL(TYP:INTEGER);
BEGIN
  CLEARSCREEN;
  WRITELN('FEJL I OPBYGNING, FEJLKODE:',TYP,'NOTER FEJLEN!');
  WRITELN('FEJLEN FUNDET UNDER BEHANDLING AF ORDRENR:',OLINIE.ORDRENR);
  WRITELN('                                 POSITION:',OLINIE.POSITION);
  WRITELN('                                VINDUESNR:',OLINIE.VINDUENR);
  WRITELN('                                  RAMMENR:', I1);
  LUK;
  READLN;
  READ (CH);
  EXIT(MAINTAIN);
END;