! @(#)testX.prg	17.1.1.1 (ESO-DMD) 01/25/02 17:46:21
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! procedure testX.prg to test the Xserver setup
! K. Banse	980629
! 
!  execute via @ testX switch [Xtest_param]
!        with switch = 0, to run Xtest.exe (default)
!                      Xtest_param = P, for pseudo color (default)
!                                  = T, for true color
!                                  = D, for direct color
!                    = 1, to run Xcommand `xdpyinfo'
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
define/param p1 0 n "Enter switch (0 or 1):"
define/param p2 P ? "Enter option for Xtest.exe:"
! 
if {p1} .eq. 0 then
   if aux_mode(1) .le. 1 then			!VMS
      RUN MID_DISK:[&MIDASHOME.&MIDVERS.SYSTEM.IDISERV.SRC]XTEST.EXE
   else						!Unix
      $ $MIDASHOME/$MIDVERS/system/idiserv/src/Xtest.exe {p2}
   endif
else
   $xdpyinfo > testX.dat
   $more testX.dat
   write/out
   write/out >>> "this info is also stored in the ASCII file `testX.dat'" <<<
endif