.TITLE HBD ; Heath erase Beginning of Display .MCALL .REGDEF,.PRINT .REGDEF .GLOBL HBD HBD: .PRINT #M ;SEND ESCAPE SEQUENCE TO TERMINAL RTS PC M: .BYTE 33,142,200,0 .END