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

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Graphics demonstration
// 
// Graphics Program by w1k
// http://atarionline.pl/forum/comments.php?DiscussionID=207&page=1#Item_0
var
  I : byte;  // I_byte_array
  KLAVESA : byte;  // KLAVESA_byte_array

procedure LINKAProc(X0 : byte; Y0 : byte; X1 : byte; Y1 : byte);
begin
  PutPixel(X0, Y0);
  MoveTo(X0, Y0);
  LineTo(X1, Y1);
end;

procedure DEMOProc;
begin
 FOR i:=0 to 79 do begin
  LINKAProc(0, 0, 159, I);
  end;
end;

procedure HLPROGRAMProc;
begin
  InitGraph(7);
  SetColor(1);
  DEMOProc;
  eff_string := '';
  Write('STLAC');  // Print 1
  Writeln;
  KLAVESA := Get(7);
  ReadKey;
end;

begin
  HLPROGRAMProc;
end.
