!   NAME: Z6060356  PRODUCT: BASE     CATEGORY: RECO    SYSTEM: VMS
!   DATE: 08MAY90   STATUS:  DZ+UT    USAGE-ID: V6-SYS.DMS-0356
!
!   Using the right/left scroll bar in a SAS DECWindow causes USAGE message
!
!   NOTE: THE ^ CHARACTER IS THE ASCII 'HAT' CHARACTER (X'5E')
!   NOTE: THE { CHARACTER IS THE ASCII LEFT SQUARE BRACKET (X'5B')
!   NOTE: THE } CHARACTER IS THE ASCII RIGHT SQUARE BRACKET (X'5D')
!
!   IMAGE: SAS$ROOT:{PROCS}SASDECW.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASDECW.EXE
DEFINE PATAREA=0
DEFINE WUTIBAR=^X073C0
SET ECO ^X07F
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION WUTIBAR+^X603
'CVTWL #-^D200,-(SP)'
EXIT
'CVTWL #-^D32,-(SP)'
EXIT
REPLACE/INSTRUCTION WUTIBAR+^X62F
'CLRB B^-^D80(FP){R2}'
'PUSHAL B^-^D80(FP)'
EXIT
'MOVB #^X3B,B^-^D80(FP){R2}'
'CLRB B^-^D79(FP){R2}'
'PUSHAL B^-^D80(FP)'
EXIT
UPDATE
EXIT