(DEFUN WRITE-XDS (/)
  (IF (AND
	(SETQ XDS-FILE
	       (OPEN (STRCAT (SUBSTR (NTH 0 pltlst) 1 (- (STRLEN (NTH 0 pltlst)) 4))".xds")"w")
	) ;_ end of SETQ
	pltlst
	(SETQ job_number (ureal 1 "" "Job Account.SubTask Number?" (IF job_number job_number nil)))
      ) ;_ end of AND
    (PROGN
      (WRITE-LINE "[JOB]" xds-file)
      (WRITE-LINE "VERSION=4" xds-file)
      (WRITE-LINE
	(STRCAT	"NAME="
		(SUBSTR (NTH 0 pltlst) 1 (- (STRLEN (NTH 0 pltlst)) 4))
		".plt"
	) ;_ end of strcat
	xds-file
      ) ;_ end of write-line
      (WRITE-LINE (STRCAT "ACCOUNT=" (RTOS job_number 2 1)) xds-file)
      (WRITE-LINE "COPIES=1" xds-file)
      (WRITE-LINE "PRIORITY=5" xds-file)
      (WRITE-LINE "COLLATION=FALSE" xds-file)
      (WRITE-LINE "BANNER=FALSE" xds-file)
      (WRITE-LINE "MEDIAMISMATCH=SCALE" xds-file)
      (WRITE-LINE "PLOTNESTING=OFF" xds-file)
      (WRITE-LINE "PAGECOMPENABLE=FALSE" xds-file)
      (WRITE-LINE "PAGECOMPPAPER=ANSI_E" xds-file)
      (WRITE-LINE "PAGECOMPMEDIATYPE=ANY" xds-file)
      (WRITE-LINE "PAGECOMPMEDIASOURCE=AUTO" xds-file)
      (WRITE-LINE "FOLDER=BYPASS" xds-file)
      (WRITE-LINE "FOLDING=BYPASS" xds-file)
      (WRITE-LINE (STRCAT "FILECOUNT=" (RTOS (LENGTH pltlst) 2 0)) xds-file)
      (WRITE-LINE "" xds-file)
      (WRITE-LINE "[LABEL]" xds-file)
      (WRITE-LINE "LABELUSED=FALSE" xds-file)
      (WRITE-LINE "LABELSTRING=" xds-file)
      (WRITE-LINE "LABELFONT=HP Stick Font" xds-file)
      (WRITE-LINE "LABELSIZE=14" xds-file)
      (WRITE-LINE "LABELROTATE=90" xds-file)
      (WRITE-LINE "LABELSHADING=100" xds-file)
      (WRITE-LINE "LABELLOCX=TRAILING" xds-file)
      (WRITE-LINE "LABELABSX=0.0000" xds-file)
      (WRITE-LINE "LABELLOCY=BOTTOM" xds-file)
      (WRITE-LINE "LABELABSY=0.0000" xds-file)
      (WRITE-LINE "LABELUNITS=INCH" xds-file)
      (WRITE-LINE "" xds-file)
      (WRITE-LINE "[STAMP]" xds-file)
      (WRITE-LINE "VERSION=1" xds-file)
      (WRITE-LINE "STAMPUSED=FALSE" xds-file)
      (WRITE-LINE "RASTERID=" xds-file)
      (WRITE-LINE "RASTERSCALEMODE=RELATIVE" xds-file)
      (WRITE-LINE "RASTERSCALING=100" xds-file)
      (WRITE-LINE "RASTERROTATE=90" xds-file)
      (WRITE-LINE "RASTERLOCX=CENTER" xds-file)
      (WRITE-LINE "RASTERABSX=0.0000" xds-file)
      (WRITE-LINE "RASTERLOCY=CENTER" xds-file)
      (WRITE-LINE "RASTERABSY=0.0000" xds-file)
      (WRITE-LINE "STAMPUNITS=INCH" xds-file)
      (WRITE-LINE "" xds-file)
      (SETQ pltcnt 0)
      (FOREACH n pltlst
	(WRITE-LINE
	  (STRCAT "[FILE"
		  (COND
		    ((EQ pltcnt 0) "000")
		    ((< pltcnt 10) (STRCAT "00" (ITOA pltcnt)))
		    ((< pltcnt 100) (STRCAT "0" (ITOA pltcnt)))
		    ((< pltcnt 1000) (ITOA pltcnt))
		  ) ;_ end of COND
		  "]"
	  ) ;_ end of strcat
	  xds-file
	) ;_ end of write-line
	(WRITE-LINE "VERSION=3" xds-file)
	(WRITE-LINE
	  (STRCAT "FILEPATH="
		  (SUBSTR (NTH pltcnt pltlst)
			  1
			  (- (STRLEN (NTH pltcnt pltlst)) 4)
		  ) ;_ end of substr
		  ".plt"
	  ) ;_ end of strcat
	  xds-file
	) ;_ end of write-line
	(WRITE-LINE "PDL=AUTO" xds-file)
	(WRITE-LINE "MEDIASOURCE=AUTO" xds-file)
	(WRITE-LINE "MEDIASIZE=ANY" xds-file)
	(WRITE-LINE "MEDIATYPE=PAPER" xds-file)
	(WRITE-LINE "SCALINGTYPE=DISABLED" xds-file)
	(WRITE-LINE "SCALINGPERCENT=100" xds-file)
	(WRITE-LINE "AUTOROTATE=TRUE" xds-file)
	(WRITE-LINE "ROTATION=0" xds-file)
	(WRITE-LINE "JUSTTYPEX=CENTER" xds-file)
	(WRITE-LINE "JUSTDISTX=0.0000" xds-file)
	(WRITE-LINE "JUSTTYPEY=CENTER" xds-file)
	(WRITE-LINE "JUSTDISTY=0.0000" xds-file)
	(WRITE-LINE "JUSTUNITS=INCH" xds-file)
	(WRITE-LINE "MIRRORX=FALSE" xds-file)
	(WRITE-LINE "MIRRORY=FALSE" xds-file)
	(WRITE-LINE "" xds-file)
	(WRITE-LINE
	  (STRCAT "[LABEL"
		  (COND
		    ((EQ pltcnt 0) "000")
		    ((< pltcnt 10) (STRCAT "00" (ITOA pltcnt)))
		    ((< pltcnt 100) (STRCAT "0" (ITOA pltcnt)))
		    ((< pltcnt 1000) (ITOA pltcnt))
		  ) ;_ end of COND
		  "]"
	  ) ;_ end of strcat
	  xds-file
	) ;_ end of write-line
	(WRITE-LINE "LABELUSED=FALSE" xds-file)
	(WRITE-LINE "LABELSTRING=" xds-file)
	(WRITE-LINE "LABELFONT=HP Stick Font" xds-file)
	(WRITE-LINE "LABELSIZE=14" xds-file)
	(WRITE-LINE "LABELROTATE=90" xds-file)
	(WRITE-LINE "LABELSHADING=100" xds-file)
	(WRITE-LINE "LABELLOCX=TRAILING" xds-file)
	(WRITE-LINE "LABELABSX=0.0000" xds-file)
	(WRITE-LINE "LABELLOCY=BOTTOM" xds-file)
	(WRITE-LINE "LABELABSY=0.0000" xds-file)
	(WRITE-LINE "LABELUNITS=INCH" xds-file)
	(WRITE-LINE "" xds-file)
	(WRITE-LINE
	  (STRCAT "[STAMP"
		  (COND
		    ((EQ pltcnt 0) "000")
		    ((< pltcnt 10) (STRCAT "00" (ITOA pltcnt)))
		    ((< pltcnt 100) (STRCAT "0" (ITOA pltcnt)))
		    ((< pltcnt 1000) (ITOA pltcnt))
		  ) ;_ end of COND
		  "]"
	  ) ;_ end of strcat
	  xds-file
	) ;_ end of write-line
	(WRITE-LINE "VERSION=1" xds-file)
	(WRITE-LINE "STAMPUSED=FALSE" xds-file)
	(WRITE-LINE "RASTERID=" xds-file)
	(WRITE-LINE "RASTERSCALEMODE=RELATIVE" xds-file)
	(WRITE-LINE "RASTERSCALING=100" xds-file)
	(WRITE-LINE "RASTERROTATE=90" xds-file)
	(WRITE-LINE "RASTERLOCX=CENTER" xds-file)
	(WRITE-LINE "RASTERABSX=0.0000" xds-file)
	(WRITE-LINE "RASTERLOCY=CENTER" xds-file)
	(WRITE-LINE "RASTERABSY=0.0000" xds-file)
	(WRITE-LINE "STAMPUNITS=INCH" xds-file)
	(WRITE-LINE "" xds-file)
	(WRITE-LINE
	  (STRCAT "[PAGECOMP"
		  (COND
		    ((EQ pltcnt 0) "000")
		    ((< pltcnt 10) (STRCAT "00" (ITOA pltcnt)))
		    ((< pltcnt 100) (STRCAT "0" (ITOA pltcnt)))
		    ((< pltcnt 1000) (ITOA pltcnt))
		  ) ;_ end of COND
		  "]"
	  ) ;_ end of strcat
	  xds-file
	) ;_ end of write-line
	(WRITE-LINE "VERSION=1" xds-file)
	(WRITE-LINE "PAGECOMPSIZE=ANY" xds-file)
	(WRITE-LINE "PAGECOMPSCALE=FALSE" xds-file)
	(WRITE-LINE "PAGECOMPROTATE=0" xds-file)
	(WRITE-LINE "PAGECOMPPOSX=0.0000" xds-file)
	(WRITE-LINE "PAGECOMPPOSY=0.0000" xds-file)
	(WRITE-LINE "PAGECOMPUNITS=INCH" xds-file)
	(WRITE-LINE "" xds-file)
	(SETQ pltcnt (1+ pltcnt))
      ) ;_ end of foreach
      (CLOSE xds-file)
      (PRINC (STRCAT "\nXDS File "
                     (SUBSTR (NTH 0 pltlst) 1 (- (STRLEN (NTH 0 pltlst)) 4))
		     ".xds created! "
	     ) ;_ end of STRCAT
      )
      (PRINC)
    )
    (PRINC "\nUnable to create XDS file! ")
  ) ;_ end of IF
) ;_ end of DEFUN

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;