PACKET open DEFINES                             (* Copyright (C) 1986 *)
                                                (* Frank Klapper      *)
  open  action,                                 (* 20.03.86           *)
  close action,
  action opened,
  action closed,
  init check rerun,
  check rerun:

BOOL VAR open;
INT VAR old session;

INITFLAG VAR packet := FALSE;

PROC open action:
  open := TRUE

END PROC open action;

PROC close action:
  open := FALSE

END PROC close action;

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

END PROC action opened;

BOOL PROC action closed:
  NOT action opened

END PROC action closed;

PROC init check rerun:
  old session := session

END PROC init check rerun;

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

END PROC check rerun;

END PACKET open;