Initial import

1 files changed, 33 insertions, 0 deletions

diff --git a/system/base/1.7.5/src/screen b/system/base/1.7.5/src/screen
new file mode 100644
index 0000000..7e64961
--- /dev/null
+++ b/system/base/1.7.5/src/screen
@@ -0,0 +1,33 @@
+
+PACKET screen description DEFINES
+
+     xsize, ysize, marksize, mark refresh line mode :
+
+
+INT VAR xs := 80, ys := 24, ms := 1;
+
+INT PROC xsize: xs END PROC xsize;
+
+INT PROC ysize: ys END PROC ysize;
+
+INT PROC marksize: ms END PROC marksize;
+
+PROC xsize (INT CONST i): xs := i END PROC xsize;
+
+PROC ysize (INT CONST i): ys := i END PROC ysize;
+
+PROC marksize (INT CONST i): ms := i END PROC marksize;
+
+ 
+BOOL VAR line mode := FALSE; 
+ 
+BOOL PROC mark refresh line mode:
+  line mode
+END PROC mark refresh line mode;
+ 
+PROC mark refresh line mode (BOOL CONST b): 
+  line mode := b 
+END PROC mark refresh line mode; 
+ 
+END PACKET screen description ;
+