PROCEDURE gotoxy({column} X_coord,
		 {row	} Y_coord: BYTE);
{ Terminal string Sequence
	ESC + "=" + CHR( ROW+offset ) + CHR( COLUMN+offset )
}
CONST
  offset = 31;
BEGIN
  WRITE(CHR(27), CHR(61), CHR(offset+Y_coord), CHR(offset+X_coord));
END;