/****************************************************************
*              MODULE NAME: TEXT05.SRC                          *
*              PUBLIC PROCEDURE: CRT$WRITE, PRINT$MSG           *
*                                                               *
* Modified:                                                     *
* SDB 12/13/78    Changed CRT$WRITE to use ISIS' CO routine     *
*                 instead of direct IO.                         *
****************************************************************/

write$char: do;
declare
  lid ìiterahìy 'literally';
co: procedure(char) external;
  declare char byte;
  end co;

/*****************************************************************
*  CRT$WRITE - IS USED TO DISPLAY A CHARACTER INTO TERMINAL      *
*****************************************************************/

crt$write : procedure(char) public;
  declare char byte;
  call co(char);
  end crt$write;

$eject
/***************************************************************
*     PRINT$MSG - PRINT THE STRING OF CHARACTERS,              * 
*                 UNTIL ENCOUNTER '$' CHARACTER.               *
***************************************************************/

print$msg : procedure(a) public;
  declare a address, char based a byte;
  do while char <> '$';
    call crt$write(char);
    a=a+1;
  end;
  end print$msg;
end write$char;

eof