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

---
 app/mpg/2.2/src/Atari 3-9.GCONF | 119 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 119 insertions(+)
 create mode 100644 app/mpg/2.2/src/Atari 3-9.GCONF

(limited to 'app/mpg/2.2/src/Atari 3-9.GCONF')

diff --git a/app/mpg/2.2/src/Atari 3-9.GCONF b/app/mpg/2.2/src/Atari 3-9.GCONF
new file mode 100644
index 0000000..82b4826
--- /dev/null
+++ b/app/mpg/2.2/src/Atari 3-9.GCONF	
@@ -0,0 +1,119 @@
+INCLUDE "std primitives"; 
+ 
+PLOTTER "ATARI",3,9,640,400,21.0,13.0; 
+ 
+COLORS "000999";
+ 
+TEXT VAR atari kommando; 
+TEXT VAR atari puffer 2 := "12", 
+         atari puffer 4 := "1234";
+ 
+PROC atari g c (TEXT CONST kommando kennung):
+  LET esc g = ""27"g";
+  atari kommando := esc g;
+  atari kommando CAT kommando kennung
+   
+END PROC atari g c; 
+ 
+PROC atari g w (INT CONST unsigned integer):
+  replace (atari puffer 2, 1, unsigned integer);
+  atari kommando CAT atari puffer 2
+ 
+END PROC atari g w; 
+ 
+PROC atari g k (INT CONST x, y):
+  replace (atari puffer 4, 1, x);
+  replace (atari puffer 4, 2, y);
+  atari kommando CAT atari puffer 4
+ 
+END PROC atari g k; 
+ 
+PROC atari g e: 
+  out (atari kommando)
+ 
+END PROC atari g e; 
+ 
+PROC initplot: 
+  INT VAR atari d;
+  control (11, channel, 255, atari d);
+  atari g c ("B");
+  atari g e 
+END PROC initplot;
+ 
+PROC endplot: 
+  pause;
+  INT VAR atari d;
+  atari g c ("E");
+  atari g e;
+  control (11, channel, 25, atari d) 
+END PROC endplot; 
+ 
+PROC prepare: 
+    break(quiet);
+    REP 
+       disable stop;
+       continue (channel(plotter)); 
+       clear error;
+       enable stop; 
+       IF NOT online 
+          THEN pause (300)
+       FI
+    UNTIL online PER
+END PROC prepare; 
+ 
+PROC clear: 
+  atari g c("C");
+  atari g e
+END PROC clear; 
+ 
+PROC home: 
+  move to(0,0)
+END PROC home;
+
+PROC moveto (INT CONST x,y): 
+  atari g c("M");
+  atari g k(x,y);
+  atari g e
+END PROC moveto;
+ 
+PROC drawto (INT CONST x,y): 
+  atari g c ("D");
+  atari g k(x,y);
+  atari g e
+END PROC drawto;
+
+PROC setpixel (INT CONST x,y): 
+  atari g c(".");
+  atari g k(x,y);
+  atari g e
+END PROC setpixel;
+
+PROC foreground (INT VAR type): 
+  type := 1 
+END PROC foreground;
+ 
+PROC background (INT VAR type):
+ type := 0
+END PROC background; 
+        
+PROC setpalette: 
+END PROC setpalette;
+
+PROC circle (INT CONST x,y,rad,from,to): 
+  atari g c("K");
+  atari g k(x,y);
+  atari g w(rad);
+  atari g w(from);
+  atari g w(to);
+  atari g e
+END PROC circle; 
+ 
+PROC box (INT CONST x1,y1,x2,y2,pattern): 
+  std box (x1,y1,x2,y2,pattern)
+END PROC box; 
+ 
+PROC fill (INT CONST x,y,pattern): 
+END PROC fill;
+ 
+
+
-- 
cgit v1.2.3