$set noverify
$ASS/NOLOG/USER CCP4_MASTER:[CCP4.X-WINDOWS.IPDISP] SPDSK:
$spd = p1
$!
$!     IF FIRST PARAMETER IS A SPD FILE
$!
$IF F$EXTRACT(0,1,SPD) .NES. "-" THEN GOTO FILE
$!
$!     HELP FILE
$!
$IF SPD .NES. "-H" THEN GOTO EXE 
$WRITE SYS$OUTPUT " Only first two letters are required i.e. -BM"
$WRITE SYS$OUTPUT "  -EMBL     EMBL prototype"
$WRITE SYS$OUTPUT "  -MAR      MAR scanner"
$WRITE SYS$OUTPUT "  -BMAR     Big Mar scanner"
$WRITE SYS$OUTPUT "  -BSMAR    Big Mar scanner (squashed format)"
$WRITE SYS$OUTPUT "  -BVAXMAR  Big Mar scanner on Vax"
$WRITE SYS$OUTPUT "  -MVAX     Mar scanner on Vax"
$WRITE SYS$OUTPUT "  -R        RAXIS"
$WRITE SYS$OUTPUT "  -RC       RAXIS coarse scan"
$WRITE SYS$OUTPUT "  -GEL      GEL"
$WRITE SYS$OUTPUT "  -OLMB     for LMB Optronics scanner"
$WRITE SYS$OUTPUT "  -OOLMB    for LMB Optronics scanner, original file"
$WRITE SYS$OUTPUT -
"  -YLMB     for LMB Molecular Dynamics scanner, 700x700 pixel scan"
$WRITE SYS$OUTPUT -
"  -BYLMB    for LMB Molecular Dynamics scanner,1400x1400 pixel scan"
$WRITE SYS$OUTPUT -
"  -ZLMB     for LMB Molecular Dynamics scanner, 512x456 pixel scan"
$WRITE SYS$OUTPUT "  -TIFFGEL  TIFF translated from GEL file"
$WRITE SYS$OUTPUT "  -PF       Photon Factory Weissenberg plates"
$WRITE SYS$OUTPUT "  -C        Mac Science 2500x2500"
$WRITE SYS$OUTPUT "   else first argument is SPDFIL name"
$EXIT  
$!
$!     CHECK FOR SPD FILE OPTIONS
$!
$EXE:
$ilen = f$length(spd)
$look = spd
$if ilen .gt. 2 then look = f$extract(0,3,spd)
$!
$if look .eqs. "-EM" THEN SPD = "SPDSK:SPDFIL.LMB"       ! EMBL
$if look .eqs. "-MA" THEN SPD = "SPDSK:SPDFIL.MAR"       ! MAR
$if look .eqs. "-BM" THEN SPD = "SPDSK:SPDFIL.BIGMAR"    ! BMAR
$if look .eqs. "-BS" THEN SPD = "SPDSK:SPDFIL.SBIGMAR"   ! BSMAR
$if look .eqs. "-BV" THEN SPD = "SPDSK:SPDFIL.BIGVAX"    ! BVAXMAR
$if look .eqs. "-MV" THEN SPD = "SPDSK:SPDFIL.BIGVAX"    ! MVAX
$if look .eqs. "-R" THEN SPD = "SPDSK:SPDFIL.RAX"        ! R
$if look .eqs. "-RC" THEN SPD = "SPDSK:SPDFIL.RAXC"      ! RC
$if look .eqs. "-GE" THEN SPD = "SPDSK:SPDFIL.GEL"       ! GEL
$if look .eqs. "-OL" THEN SPD = "SPDSK:SPDFIL.FILM"      ! OLMB
$if look .eqs. "-OO" THEN SPD = "SPDSK:SPDFIL.FILM2560"  ! OOLMB
$if look .eqs. "-YL" THEN SPD = "SPDSK:SPDFIL.MLD"       ! YLMB
$if look .eqs. "-BY" THEN SPD = "SPDSK:SPDFIL.LMLD"      ! BYLMB
$if look .eqs. "-ZL" THEN SPD = "SPDSK:SPDFIL.SMLD"      ! ZLMB
$if look .eqs. "-TI" THEN SPD = "SPDSK:SPDFIL.LCL"       ! TIFFGEL
$if look .eqs. "-PF" THEN SPD = "SPDSK:SPDFIL.PF"        ! PF
$if look .eqs. "-C" THEN SPD = "SPDSK:SPDFIL.MCS"        ! C
$GOTO SKIP
$!
$FILE:
$SPD = "spdsk:" + P1
$!
$SKIP:
$godisp :== $CBIN:ipdisp.exe
$godisp 'SPD' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'p9' 'p10' 'p11' 'p12'