From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/base/1.7.5/src/elan do interface | 57 +++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 system/base/1.7.5/src/elan do interface

(limited to 'system/base/1.7.5/src/elan do interface')

diff --git a/system/base/1.7.5/src/elan do interface b/system/base/1.7.5/src/elan do interface
new file mode 100644
index 0000000..72026a7
--- /dev/null
+++ b/system/base/1.7.5/src/elan do interface	
@@ -0,0 +1,57 @@
+
+PACKET elan do interface DEFINES                  (*Autor: J.Liedtke *)
+                                                  (*Stand: 08.11.85  *)
+    do ,
+    no do again :
+ 
+ 
+LET no ins = FALSE ,
+    no lst = FALSE ,
+    no check = FALSE ,
+    no sermon = FALSE ,
+    compile line mode = 2 ,
+    do again mode = 4 ,
+    max command length = 2000 ;
+
+
+INT VAR do again mod nr := 0 ;
+TEXT VAR previous command := "" ;
+
+DATASPACE VAR ds ;
+
+ 
+PROC do (TEXT CONST command) :
+
+  enable stop ;
+  IF LENGTH command > max command length
+    THEN errorstop ("Kommando zu lang")
+  ELIF do again mod nr <> 0 AND command = previous command
+    THEN do again
+    ELSE previous command := command ;
+         compile and execute
+  FI .
+
+do again :
+  elan (do again mode, ds, "", do again mod nr,
+        no ins, no lst, no check, no sermon) .
+
+compile and execute :
+  elan (compile line mode, ds, command, do again mod nr,
+        no ins, no lst, no check, no sermon) .
+
+ENDPROC do ;
+ 
+PROC no do again :
+
+  do again mod nr := 0 
+
+ENDPROC no do again ;
+ 
+PROC elan (INT CONST mode, DATASPACE CONST source, TEXT CONST line, 
+           INT VAR start module number,
+           BOOL CONST ins, lst, rt check, ser) :
+  EXTERNAL 256
+ENDPROC elan ;
+
+ENDPACKET elan do interface ;
+
-- 
cgit v1.2.3