summaryrefslogtreecommitdiff
path: root/app/baisy/2.2.1-schulis/src/open
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2019-02-04 13:09:03 +0100
committerLars-Dominik Braun <lars@6xq.net>2019-02-04 13:09:03 +0100
commit04e68443040c7abad84d66477e98f93bed701760 (patch)
tree2b6202afae659e773bf6916157d23e83edfa44e3 /app/baisy/2.2.1-schulis/src/open
downloadeumel-src-04e68443040c7abad84d66477e98f93bed701760.tar.gz
eumel-src-04e68443040c7abad84d66477e98f93bed701760.tar.bz2
eumel-src-04e68443040c7abad84d66477e98f93bed701760.zip
Initial import
Diffstat (limited to 'app/baisy/2.2.1-schulis/src/open')
-rw-r--r--app/baisy/2.2.1-schulis/src/open11
1 files changed, 11 insertions, 0 deletions
diff --git a/app/baisy/2.2.1-schulis/src/open b/app/baisy/2.2.1-schulis/src/open
new file mode 100644
index 0000000..28836c4
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/open
@@ -0,0 +1,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;
+