.TITLE  CLEAR SCREEN PROGRAM
	.IDENT  /V 1.0/
;
	.ENABL LC
;+
;       SIMPLE PROGRAM TO CLEAR BOTH PAGES OF MEMORY ON TELERAY-12
;       AND VT-52 COMPATIBLE TERMINALS
;
;       WRITTEN 03-MARCH-81 BY M.D.LAMPI        DAC CAT
;
;       OUTPUTS:
;               FF FF FF FF FF
;               ESC     h       (LOWER-CASE H) - ENABLE TELERAY BUFFERING
;               ESC     r       (LOWER-CASE R) - CLEAR BOTH PAGES
;               ESC     H       CURSOR HOME
;               ESC     J       VT-52 CLEAR
;
;-
	.MCALL  EXIT$S,QIOW$,DIR$
;
WRITE:  QIOW$   IO.WVB,1,1,,,,<OUTBUF,OUTL,0>
OUTBUF: .BYTE   14,14,14,14,14,14,14    ;AS A LAST RESORT, USE FORMFEEDS
        .BYTE   33,'h,33,'r
	.BYTE   33,'H,33,'J
OUTL=.-OUTBUF
	.EVEN
;
START:  DIR$    #WRITE          ;WRITE ESC h ESC r ESC H ESC J FF FF FF ...
        EXIT$S                  ;THEN EXIT
;
	.END    START