XBCLS.m

XBCLS ; IHS/ADC/GTH - CLEAR SCREEN ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 D EN^XBVIDEO("IOF")

 U IO(0)

 Q

 ;

XBCLS     ; IHS/ADC/GTH - CLEAR SCREEN ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3        DO EN^XBVIDEO("IOF")

 +4        USE IO(0)

 +5        QUIT 

 +6       ;