         PAGE,132
         TITLE CLS.ASM -- SYS$SCRATCH
         NAME  CLS_CODE
         DB	    'WRITTEN:   STEVE LEOCE:  05-MAY-1984   <MSB>'
CLS_CODE SEGMENT  'CODE'
         PUBLIC    CLS
CLS      PROC      FAR
         PUSH      BP             ;SAVE THE BASE 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 TO RETURN
CLS      ENDP
CLS_CODE ENDS
         END
                                                