PACKET open DEFINES                             (* Copyright (C) 1986 *)
                                                (* Frank Klapper      *)
  open  work,                                   (* 05.01.87           *)
  close work,
  work opened,
  work closed,
  init check rerun,
  check rerun,

  hd version:

BOOL VAR open;
INT VAR old session;

BOOL VAR hd flag := FALSE;

INITFLAG VAR packet := FALSE;

PROC open work:
  open := TRUE

END PROC open work;

PROC close work:
  open := FALSE

END PROC close work;

BOOL PROC work opened:
  IF NOT initialized (packet)
    THEN close work
  FI;
  open

END PROC work opened;

BOOL PROC work closed:
  NOT work opened

END PROC work closed;

PROC init check rerun:
  old session := session

END PROC init check rerun;

PROC check rerun:
  IF session <> old session
    THEN close work;
         error stop ("Diskettenzugriff im RERUN")
  FI.

END PROC check rerun;

PROC hd version (BOOL CONST status):
  hd flag := status

END PROC hd version;

BOOL PROC hd version:
  hd flag

END PROC hd version;

END PACKET open;