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

⟦cc5ba767e⟧ TextFile

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

Derivation

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

Mikados K File

(*$P*)
PROCEDURE ICLOSE(VAR F:ISF);
VAR I:INTEGER;
BEGIN
  WITH FILEHEAD(CURRHEAD) DO
  IF FILEOPEN THEN
  BEGIN
    IF NOT FILEINIT AND (RECINUSE>0) THEN
    BEGIN
      FILEINIT:=TRUE;
      INITREC:=RECINUSE
    END;
    IF BLKCHG THEN
      COPSEGS(F,Z(BLT+(BLKINZONE-1)*ENTRYSIZE),BLKSIZE,BLK,SKRIV);
    IF BLTCHG THEN
      COPSEGS(F,Z(BUT+(BUCINZONE-1)*ENTRYSIZE),BLTSIZE,BLT,SKRIV);
    IF BUTCHG THEN
      COPSEGS(F,2,BUTSIZE,BUT,SKRIV);
    FILEOPEN:=FALSE;
    OUTHEAD(F);                                                  
    CLOSE(F);
    IOC 
  END
  ELSE IER:=-3
END;

Full view