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

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Using Locate in text mode 0

procedure MAINProc;
var
  key : byte;  // key_byte_array
  loc : byte;  // loc_byte_array
begin
  InitGraph(0);
  GotoXY(3 + 1,  3 + 1);
  eff_string := '';
  Write('HELLO,ATARIAN');  // Print 1

  GotoXY(3 + 1,  5 + 1);
  eff_string := '';
  Write('AT RI');  // Print 1

  Write('', eol, '', eol, 'PRESS ANY KEY TO CONTINUE!');
  KEY := Get(7);
  ReadKey;
  LOC := GetPixel(10 + 1,  3);
  eff_string := '';
  Write(LOC);  // Print 2

  GotoXY(5 + 1,  5 + 1);
  Write(Chr(LOC));
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
