         PAGE,132
         TITLE CLS.ASM -- SYS$SCRATCH
         NAME  CLS_CODE
CLS_CODE SEGMENT 'CODE'
         PUBLIC CLS
CLS      PROC      FAR
         PUSH      BP             ;SAVE THE RETURN POINTER
         MOV       CX,0           ;UPPER LEFT COORD (0,0)
         MOV       DX,2479H       ;LOWER RIGHT COORD
         MOV       BH,7           ;NORMAL ATTRIBUTE
         MOV       AX,600H        ;ENTIRE DISPLAY
         INT       10H            ;CALL INTO BIOS
         POP       BP             ;RESTORE THE BASE POINTER
         RET       FAR            ;FAR RETURN, NO PARMS
CLS      ENDP
CLS_CODE ENDS
         END
T1$

LPT1:  Cancelled$
  28<O
CODE'
         PUBLIC    START
START    PROC      FAR
         ASSUME    CS:CANCEL