.TITLE HCD ; Heath Clear Display .MCALL .REGDEF,.PRINT .REGDEF .GLOBL HCD,CLEAR CLEAR: HCD: .PRINT #M ;SEND ESCAPE SEQUENCE TO TERMINAL RTS PC M: .BYTE 33,110,33,105,200,0 .END