blob: 28836c4aaf9a6c3cb8f5d367c503aee8cf86d632 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
PACKET openDEFINES openwork,closework,workopened,workclosed,initcheckrerun,
checkrerun,hdversion:BOOL VAR open;INT VAR oldsession;BOOL VAR hdflag:=FALSE
;INITFLAG VAR packet:=FALSE ;PROC openwork:open:=TRUE END PROC openwork;PROC
closework:open:=FALSE END PROC closework;BOOL PROC workopened:IF NOT
initialized(packet)THEN closeworkFI ;openEND PROC workopened;BOOL PROC
workclosed:NOT workopenedEND PROC workclosed;PROC initcheckrerun:oldsession:=
sessionEND PROC initcheckrerun;PROC checkrerun:IF session<>oldsessionTHEN
closework;errorstop("Diskettenzugriff im RERUN")FI .END PROC checkrerun;PROC
hdversion(BOOL CONST status):hdflag:=statusEND PROC hdversion;BOOL PROC
hdversion:hdflagEND PROC hdversion;END PACKET open;
|
