*#######################################################################
*                Program CLS...Clear screen Utility
*          Confirured for an enhanced VT-52 type console.
*
*                         Dr. David C. Wilcox
*                         DCW Industries, Inc.
*                5354 Palm Drive, La Canada, CA  91011
*                            818/790-3844
*
*                           August 1, 1985
*#######################################################################
boot    equ     00              	*Warm boot
print   equ     09              	*Print string
esc     equ     27              	*ASCII esc
bdos    equ     02           		*BDOS entry point
*#######################################################################
*					*Send message to console to:
	move.l  #msg,d1                 *(a) Exit Graphics Mode...esc G
        move.w  #print,d0               *(b) Exit Reverse Video...esc q
        trap    #bdos                   *(c) Clear Screen/Home....esc E
        move.w  #boot,d0                *(d) Enable cursor........esc e
        trap    #bdos                   *and return to CP/M 68k
*#######################################################################
msg     dc.b    esc,'G',esc,'q',esc,'E',esc,'e','$'
*#######################################################################
        end