(*******************************************************************)
(** Release history:                                              **)
(**    17th January 1985   version 1.0.0 First port to new world  **)
(*******************************************************************)
IMPLEMENTATION MODULE BBCStar;
FROM WriteF IMPORT WriteF1, H;
FROM Streams IMPORT Stream, Get, Delete;
FROM TermStream IMPORT CreateInOutput;
FROM SysStreams IMPORT sysOut;

PROCEDURE IssueStarCommand(command: ARRAY OF CHAR);
CONST EscapeCh = 33C;
VAR term : Stream;
  ch: CHAR;
BEGIN
  WriteF1(sysOut, "%C", EscapeCh);
  WriteF1(sysOut, "**%S*N", H(command));
  term := CreateInOutput();
  REPEAT ch := CHAR(Get(term)) UNTIL (ch = EscapeCh);
  Delete(term);
END IssueStarCommand;

END BBCStar.