!   NAME: Z6062963  PRODUCT: GRAPH    CATEGORY: HIGH    SYSTEM: VMS
!   DATE: 01JUL91   STATUS:  DZ+UT    USAGE-ID: V6-G3D-2963
!
!   Crooked lines connect PLOT surface with the G3D procedure
!
!   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}SASG3D.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASG3D.EXE
DEFINE G3D41 = ^X03EAC
DEFINE G3D42 = ^X04530
DEFINE PATAREA = 0
SET ECO ^X080
REPLACE/I G3D41+^X06B
'CMPL R2, #^D2000'
EXIT
'BRB G3D41+^X086'
EXIT
REPLACE/I G3D42+^X072
'CMPL R2, #^D2000'
EXIT
'BRB G3D42+^X08E'
EXIT
UPDATE
EXIT