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;