(*******************************************************************)
(** Release history:                                              **)
(**    17th January 1985   version 1.0.0 First port to new world  **)
(*******************************************************************)
IMPLEMENTATION MODULE rawHP;
FROM Streams IMPORT Put, Stream;

PROCEDURE control(HPout: Stream; C: CHAR);
BEGIN
  Put(HPout, CHR(27));
  Put(HPout, ".");
  Put(HPout, C);
END control;


PROCEDURE command(HPout: Stream; S: ARRAY OF CHAR);
VAR I: INTEGER;
BEGIN
  FOR I := 0 TO HIGH(S) DO
    Put(HPout, S [I])
  END (* for *);
END command;

PROCEDURE WriteInt(HPout: Stream; I: INTEGER);
BEGIN
  IF I < 0 THEN Put(HPout, "-"); I := -I END;
  IF I > 9 THEN WriteInt(HPout, I DIV 10) END;
  Put(HPout, CHR(CARDINAL(I MOD 10) + ORD("0")));
END WriteInt;

PROCEDURE char(HPout: Stream; C: CHAR);
BEGIN
  Put(HPout, C);
END char;


PROCEDURE sendxy(HPout: Stream; X, Y: INTEGER);
BEGIN
  WriteInt(HPout, X);
  Put(HPout, ",");
  WriteInt(HPout, Y);
END sendxy;

PROCEDURE integer(HPout: Stream; I: INTEGER);
BEGIN
  WriteInt(HPout, I);
END integer;

END rawHP.