// Effectus auto-generated Mad Pascal source code listing
program gr9Prg;

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Graphics mode 9 demo
var
  key : byte;  // key_byte_array
  i : byte;  // i_byte_array

procedure MAINProc;
begin
  InitGraph(9);
  Poke(708 + 4,  8*16 +  0);
 FOR i:=0 TO 79 do begin
  SetColor(i);
  PutPixel(i, i);
  MoveTo(i, i);
  LineTo(i, 191);
  end;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
