From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 app/mpg/1987/src/Muster | 73 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 app/mpg/1987/src/Muster

(limited to 'app/mpg/1987/src/Muster')

diff --git a/app/mpg/1987/src/Muster b/app/mpg/1987/src/Muster
new file mode 100644
index 0000000..336e2ef
--- /dev/null
+++ b/app/mpg/1987/src/Muster
@@ -0,0 +1,73 @@
+INCLUDE "Name der Include-Datei"; 
+ 
+PLOTTER "Plottername",<Station>,<Kanal>,<Xpixel>,<Ypixel>,<Xcm>,<Ycm>; 
+ 
+LINK <Station>/<Kanal>,<Station>/<Kanal>....; 
+ 
+COLORS "<RGB-Kombinationen als 3-Byte Codefolge>";
+ 
+  . 
+  . 
+  . 
+<Hier koennen Endgeraetspezifische Prozeduren/Variablen (globalebene) 
+ eingefuegt werden. Achtung! um Namenskonflikte mit globalobjekten 
+ anderer Endgeraete zu vermeiden sollten die Namen dieser Objekte 
+ auch stets den Endgeraet-Namen enthalten 
+ (z.B. 'TEXT PROC videostar koordinaten (INT CONST x,y)') 
+> 
+ 
+PROC initplot: 
+   Warnung: Da der Configurator den Prozedur-Rumpf in ein Refinement
+            verwandelt, muessen Namenskonflikte vermieden wrden !
+END PROC initplot;
+ 
+PROC endplot: 
+END PROC endplot; 
+
+PROC prepare: 
+END PROC prepare; 
+ 
+PROC clear: 
+END PROC clear; 
+ 
+PROC home: 
+END PROC home;
+
+PROC moveto (INT CONST x,y): 
+END PROC moveto;
+ 
+PROC drawto (INT CONST x,y): 
+END PROC drawto;
+
+PROC setpixel (INT CONST x,y): 
+END PROC setpixel;
+
+PROC foreground (INT CONST type): 
+END PROC foreground;
+
+PROC background (INT CONST type):
+END PROC background; 
+        
+PROC setpalette: 
+END PROC setpalette:
+
+PROC circle (INT CONST x,y,rad,from,to): 
+END PROC circle; 
+ 
+PROC box (INT CONST x1,y1,x2,y2,pattern): 
+END PROC box; 
+ 
+PROC fill (INT CONST x,y,pattern): 
+END PROC fill;
+ 
+EDITOR; (* Durch EDITOR wird das optionale Vorhandensein nachfolgender 
+           Editor-Befehle angezeigt *) 
+ 
+PROC get cursor (INT VAR x,y,TEXT VAR exit char): 
+END PROC get cursor; 
+ 
+PROC graphik cursor (INT CONST x,y,BOOL CONST on): 
+END PROC graphik cursor; 
+ 
+PROC set marker (INT CONST x,y,type): 
+END PROC set marker;
-- 
cgit v1.2.3