app/mpg/2.2/src/Atari 3-9.GCONF

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;