DSKPSDEF.INF Driver File Contents (psexec20.exe)

[Get Disk FileNames]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: GetDiskFileNames
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%?BeginFeatureQuery: GetDiskFileNames
statusdict begin
/filenameforall where {
     	/filenameforall get
        (*) 
        {
            (FC/) anchorsearch 
            { pop pop }
            {    
               = flush
            } ifelse
        } 100 string
        4 -1 roll exec
        /* = flush
} if end
%%?EndFeatureQuery: unknown

[Search Disk Directory]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: SearchDiskFileNames
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%?BeginFeatureQuery: SearchDiskFileNames
/SearchDir{
   {
      (FC/) anchorsearch 
      { pop pop }
      {    
          = flush 
      } ifelse
   } 100 string filenameforall
   /* = flush
} def
%%?EndFeatureQuery: unknown


[Print Disk Directory]
%! PS-Adobe 2.0
%%IncludeFeature: emulation(postscript)
%%Title: Printer Disk Directory
%%Creator: Patrick W. Domning
%%Copyright (C) QMS Inc.  All rights reserved.
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%BoundingBox: 18 18 512 765   % clippath region
%%EndComments
%% use the next line for copying
%% serverdict begin 0 exitserver

/buff 1024 string def
/storefile
{  /Filename exch def /InFile Filename (r) file def
  Filename 5 ID put /MyFile Filename (w) file def
  { InFile buff readstring exch MyFile exch writestring
    not {MyFile closefile InFile closefile exit}if
  } bind loop
}def
newpath clippath pathbbox 
/TM exch 20 sub def pop /BM exch 20 add def
/ni 12 def
/LM exch dup 70 lt {pop 70}{20 add}ifelse def /Boff 360 LM add def
/Y TM ni sub def
/pstr 35 string def
/size 0 def
/newpage {/Y TM def LM Y moveto (Filename)show (Bytes) Boff 25 sub Y moveto show
 %% old stuff:  36 Y 15 add moveto 580 Y 15 add lineto %% 
  clippath 0 Y 5 sub moveto 800 Y 5 sub lineto stroke showpage
  /Y Y ni 2 mul sub def
}def
/Times-Roman findfont ni scalefont setfont
/showname {/Y Y ni sub def Y BM lt {newpage}if LM Y moveto show}bind def
/showbytes {pstr cvs dup stringwidth pop neg Boff add Y moveto show}bind def
/showfile {
  dup status pop pop pop exch pop exch
  (FC/) search {pop pop pop size add /size exch def}
  {showname showbytes}ifelse
}bind def

%% use this line for disk listing
 (%disk?%*) /showfile load =string filenameforall

%% use these lines for disk copying
% /ID 49 def  %% decimal representation of SCSI address for destination
% (%disk3%fonts/*) /storefile load =string filenameforall
% (%disk3%Sys/Start) /storefile load =string filenameforall

( )showname  % insert blank line before font cache
(Font Cache uses:)showname size showbytes
Y TM ne {newpage} if


[Def Print Disk Directory]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title:        disk.ps
%%Date:         10/03/90
%%For:          SCSI Utility
%%Copyright (C) QMS Inc.  All rights reserved.
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: PrintDirectory 1.0
/printdir {
topofpage dup
/dirstring 100 string store
dirstring 0 (Directory of : ) putinterval
dirstring 15 3 -1 roll putinterval
/pgnumber 0 store headerline
{
(FC/) anchorsearch
{ pop pop }
{
dup status
{
5 -1 roll
c1 prtstr 4 -2 roll c5 prtstr
exch c7 prtstr pop pop crlfcheck
}
{
pop
} ifelse
} ifelse
}
100 string filenameforall lastdirpage
} def
%%EndProcSet:

[ Header-This routine defines the necessary text positioning commands for printing]
[Text Position Info]
/buffer 1024 string def
/blocksize 1024 def
/filesize 0 def
/xcoord 0 def
/ycoord 0 def
/inch { 72 mul } def
/textsize 12 def
/textfont /Times-Roman def
/dirstring 100 string def
/pgnumber 0 def
/movetoxycoord { xcoord ycoord moveto } def
/cw1 1 inch def
/cw2 cw1 1 inch add def
/cw3 cw2 1 inch add def
/cw4 cw3 1 inch add def
/cw5 cw4 1 inch add def
/cw6 cw5 1 inch add def
/cw7 cw6 1 inch add def
/c1 { /xcoord .5 inch store movetoxycoord } def
/c2 { /xcoord .5 inch cw1 add store movetoxycoord } def
/c3 { /xcoord .5 inch cw2 add store movetoxycoord } def
/c4 { /xcoord .5 inch cw3 add store movetoxycoord } def
/c5 { /xcoord .5 inch cw4 add store movetoxycoord } def
/c6 { /xcoord .5 inch cw5 add store movetoxycoord } def
/c7 { /xcoord .5 inch cw6 add store movetoxycoord } def
/c8 { /xcoord .5 inch cw7 add store movetoxycoord } def
/headerline {
/pgnumber pgnumber 1 add store
c1 dirstring prtstr
c8 (Page ) prtstr pgnumber 100 string cvs show crlf
0.0 inch ycoord textsize 2 div add moveto
8.5 inch ycoord textsize 2 div add lineto
stroke crlf
c1 (Filename) prtstr
c5 (Bytes) prtstr
c7 (Created) prtstr
crlf
0.0 inch ycoord textsize 2 div add moveto
8.5 inch ycoord textsize 2 div add lineto
stroke crlf
} def
/crlf {
/xcoord .5 inch store
/ycoord ycoord textsize sub store
movetoxycoord
} def
/crlfcheck {
crlf
ycoord .5 inch textsize sub le
{
showpage
topofpage
headerline
}
if
movetoxycoord
} def
/prtstr { 100 string cvs movetoxycoord show } def
/topofpage {
textfont findfont textsize scalefont setfont
/xcoord .5 inch store
/ycoord 10.5 inch store
movetoxycoord
} def
/lastpage { 10.5 inch ycoord ne { showpage } if } def
/lastdirpage {
10.5 inch 4 textsize mul sub ycoord ne { showpage } if
} def

[Delete Disk File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: DeleteFile
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: DeleteFile 1.0
/anydeleted false store
/del {
/delfile exch store
delfile
{
(FC/) anchorsearch
{ pop pop } { (Sys/) anchorsearch
{ pop pop } { deletefile /anydeleted true store } ifelse
} ifelse } 100 string filenameforall
anydeleted not
{
/Times-Roman findfont 12 scalefont setfont
36 720 moveto (No files matching ') show delfile show (' were found !) show
36 708 moveto (0 files were deleted.) show
showpage
} if
} def
%%EndProcSet:

[Download File to Disk]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: DownloadFile
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: DownloadFile 1.0
/buffer 1024 string def
/blocksize 1024 def
/filesize 0 def
/downloadfile {
save 3 1 roll
/blocksize 1024 store
/filesize exch store
/newfile exch (w) file def
/stdin (%stdin) (r) file def
{
filesize 1024 lt { exit } if
stdin buffer readstring pop
newfile exch writestring
/filesize filesize 1024 sub store
} loop
/buffer filesize string store
stdin buffer readstring pop
newfile exch writestring
stdin closefile
newfile closefile
restore
} def
%%EndProcSet:

[Download File to Disk]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: DownloadFile 2
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: DownloadFile 1.0
/buf 1024 string def 
/downloadfile { 
/filesize exch store
/dfile exch (w) file def
{currentfile buf readstring 
exch dfile exch writestring not {dfile closefile exit} 
if} bind loop} def 
%%EndProcSet:

[Disk Load]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: DiskLoad
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: DiskLoad 1.0
/loadfile { 
 statusdict begin
 /filename exch store
 /sfile filename (r) file def 
 /dfile (%stdout) (w) file def 
 /buf 1024 string def 
             {
              sfile buf readstring {dfile exch writestring
               }{
                    dfile exch writestring
                    dfile closefile sfile closefile exit
                  } ifelse
              } bind loop
         end } def 
%%EndProcSet:

[Disk Load 2]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: DiskLoad
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: DiskLoad 1.0
/loadfile { 
 statusdict begin
 /filename exch store
 /sfile filename (r) file def 
 /dfile (%stdout) (w) file def 
 /buf 1024 string def 
             {
              sfile buf readline exch dfile exch writestring
              not {
                    dfile closefile sfile closefile exit
                  } if
              } bind loop
         end } def 
%%EndProcSet:

[Copy Disk File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: CopyFile
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: CopyFile 1.0
/bd {bind def} def
/es {exch store} bd
/ef{
	  status
	  {
	       pop pop pop pop true
	  }
	  {
	       false
	  } ifelse
} bd
/copyfile{
	   /dest es /src es
	   /buf 512 string def
	   src ef
	   {
	        /srcf src (r) file def
	        /destf dest (w) file def
	        {
	            srcf buf readstring
	            {
	                destf exch writestring
	            }{
	                destf exch writestring
	                exit
	            } ifelse
	        } loop
	        srcf closefile
	        destf closefile
	        true
	   }{
	        false
	   }ifelse
	   = flush
} bind def
%%EndProcSet:

[Rename Disk File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Rename Disk File
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: RenameFile 1.0
serverdict begin 0 exitserver
/anychanged false store
/changefilename {
/newname exch store
/oldname exch store
oldname
{ newname renamefile /anychanged true store exit } 100 string filenameforall
anychanged not
{
/Courier findfont 12 scalefont setfont
36 720 moveto (File ') show oldname show (' was not found !) show
36 708 moveto (The file name was not changed.) show
showpage
} if
} def
%%EndProcSet:



[Run Disk File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: RunFile
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: RunFile 1.0
/runfile {
/runname exch store
runname status
{ pop pop pop pop runname run }
{
/Courier findfont 12 scalefont setfont
36 720 moveto (File ') show oldname show (' was not found !) show
36 708 moveto (The file was not executed.) show
showpage
} ifelse
} def
%%EndProcSet:

[Park Disk]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: ParkDisk
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: ParkDisk 1.0
serverdict begin 0 exitserver
/Times-Roman findfont 12 scalefont setfont
systemdict /devdismount known  {
   {devdismount} =string devforall {}loop } {
statusdict /parkdiskheads know {
statusdict begin parkdiskheads {}loop }
{100 432 moveto (This printer does not support SCSI disk drives.) show
100 396 moveto (The attempt to park disk drive heads was ignored.) show showpage}
ifelse} ifelse end
%%EndProcSet:

[Configure Disk]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: ConfigureDisk
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: ConfigureDisk 1.0
serverdict begin 0 exitserver
/ConfigDisk{
/percent exch store
/Times-Roman findfont 12 scalefont setfont
statusdict /setuserdiskpercent known
{ statusdict begin percent setuserdiskpercent }
{ 100 432 moveto (This printer does not support SCSI disk drives.)show
100 396 moveto (The attempt to configure the disk was ignored.)show
showpage} ifelse end}def
%%EndProcSet:

[Get FontList]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Get FontList
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%?BeginFontListQuery
/scratch 100 string def
FontDirectory {pop = flush} forall
systemdict /filenameforall known
{ (fonts/*) {dup length 6 sub 6 exch
  getinterval = flush} scratch filenameforall} if
/* = flush
%%?EndFontListQuery: default

[Format All Disks]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: FormatAllDisks
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: FormatAllDisks
serverdict begin 0 exitserver
statusdict begin
statusdict /diskonline known 
{
   diskonline
   {
      systemdict /devformat known
      {
         { 0 1 devformat } 100 string devforall 
      }
      {
         0 1 initializedisk
      } ifelse
   }
   {
      /Times-Roman findfont 20 scalefont setfont
      100 432 moveto (SCSI device not online.) show showpage
   } ifelse 
}
{
   /Times-Roman findfont 20 scalefont setfont
   100 432 moveto (This printer does not support SCSI disk drives.) show
   100 396 moveto (This attemp to format disk is being ignored.) show showpage
}ifelse end
%%EndProcSet:

[Format Disk]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: FormatAllDisks
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%BeginProcSet: FormatDisk
serverdict begin 0 exitserver
/FormatDisk{
statusdict begin
/diskname exch store
statusdict /diskonline known 
{
   diskonline
   {
      systemdict /devformat known
      { diskname 0 1 devformat }if
   }
   {
      /Times-Roman findfont 20 scalefont setfont
      100 432 moveto (SCSI device not online.) show showpage
   } ifelse 
}
{
   /Times-Roman findfont 20 scalefont setfont
   100 432 moveto (This printer does not support SCSI disk drives.) show
   100 396 moveto (This attemp to format disk is being ignored.) show showpage
}ifelse end
}def
%%EndProcSet:


[Sys Parse]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Parse file invocations from Sys/Start file
%%Creator: Grady Yarbrough
%%CreationDate: 22-July-91
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
serverdict begin 0000 exitserver
/SysFilename (Sys/Start) def
/buff 512 string def
/noSysStart true def
/notPSExecfile true def
%determine if a SysStart created by PS Executive exists
SysFilename status
% does SysStart exist
{
  pop pop exch pop 0 eq 
  % SysStart is empty
  {
    SysFilename deletefile
  } %if
  % SysStart is not empty
  {
    /noSysStart false def
    /SysFile SysFilename (r) file def
    %read first line in file
    SysFile buff readline not {pop}
    {
      dup () eq {pop SysFile buff readline pop}if
      (%!PS-Adobe 2.0) anchorsearch not {pop}
      % follows Adobe DSC
      {
        pop pop
        % read second line
        SysFile buff readline not {pop}
        {
          (%%Creator: PS Executive Series Utilities) anchorsearch not {pop}
          % file was created by PS Executive
          {
            pop pop
            /notPSExecfile  false def
          }ifelse %found PS Executive SysStart
        }ifelse %found second line in file
      }ifelse %found Adobe DSC in SysStart
    }ifelse %found first line in file
    SysFile closefile
  }ifelse %file is not empty
}if %found SysStart file
%if no SysStart found
noSysStart
{
  (*no file found\n) print flush    
}
%elseif not created by PS Executive
{
  notPSExecfile
  {
    (*unknown file found\n) print flush    
  } %found unknown SysStart file
  %else PS Executive file format detected
  %parse all file listings
  {
    /SysFile SysFilename (r) file def
    %LOOP read lines till %%Begin file listings
    {
      SysFile buff readline not {pop exit}if %exit on EOF
      (%%Begin file listings) anchorsearch not {pop}
      {
        pop pop
        %LOOP read lines till %%End file listings
        {
          SysFile buff readline not {pop exit}if %exit on EOF
          (%%End file listings) anchorsearch {pop pop exit}
          {
            %get file reference
            ({\() anchorsearch 
            {
              pop
              (\)) search 
              {
                print (\n) print flush pop
              }if %got file reference ok
            }if %found file reference
            pop
          }ifelse %not end of file listings
        }loop %search all file listings
        exit
      }ifelse %found Begin file listings
    }loop %search for Begin file listings
    SysFile closefile
    (*end of file\n) print flush    
  } ifelse %found PS Executive SysStart file
}ifelse %found SysStart file
%%EOF


[Sys Add]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Add file invocation to Sys/Start file
%%Creator: Grady Yarbrough
%%CreationDate: 22-July-91
%% multiple file references are allowed
%% file references are added to the end of list
%% unknown Sys/Start files are renamed to PSExec/Start and invoked first
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
serverdict begin 0000 exitserver
/SysAdd{
/reffile exch store
/SysFilename (Sys/Start) def
/TempFilename (PSExec/Tempfile) def
/BackupFilename (PSExec/Start) def
/FileDate (7/22/91 10:00 AM) def
/buff 512 string def
/noSysStart true def
/notPSExecfile true def
/fileadded false def
%determine if a SysStart created by PS Executive exists
SysFilename status
% does SysStart exist
{
  pop pop exch pop 0 eq 
  % SysStart is empty
  {
    SysFilename deletefile
  } %if
  % SysStart is not empty
  {
    /noSysStart false def
    /SysFile SysFilename (r) file def
    %read first line in file
    SysFile buff readline not {pop}
    {
      dup () eq {pop SysFile buff readline pop}if
      (%!PS-Adobe 2.0) anchorsearch not {pop}
      % follows Adobe DSC
      {
        pop pop
        % read second line
        SysFile buff readline not {pop}
        {
          (%%Creator: PS Executive Series Utilities) anchorsearch not {pop}
          % file was created by PS Executive
          {
            pop pop
            /notPSExecfile  false def
          }ifelse %found PS Executive SysStart
        }ifelse %found second line in file
      }ifelse %found Adobe DSC in SysStart
    }ifelse %found first line in file
    SysFile closefile
  }ifelse %file is not empty
}if %found SysStart file
%if no SysStart or unknown Sysstart found
noSysStart notPSExecfile or 
{
  notPSExecfile noSysStart not and
  {
    (*unknown file found\n) print flush    
    SysFilename BackupFilename renamefile
  }if
  noSysStart 
  {
    (*no file found\n) print flush    
  }if
  /SysFile SysFilename (w) file def
  SysFile (%!PS-Adobe 2.0\n) writestring
  SysFile (%%Creator: PS Executive Series Utilities v. 2.0\n) writestring
  SysFile (%%Title: Sys/Start\n) writestring
  SysFile (%%CreationDate: ) writestring
  SysFile FileDate writestring
  SysFile (\n) writestring
  SysFile (%%Warning: Use PS Executive to modify this file. Do not attempt\n) writestring
  SysFile (%%         to modify the code yourself. Files added here must NOT\n) writestring
  SysFile (%%         contain the exitserver command.\n) writestring
  SysFile (%%EndComments\n\n) writestring
  SysFile (%%BeginProlog\n) writestring
  SysFile (userdict /starterr {/Courier findfont 12 scalefont setfont\n) writestring
  SysFile (clippath pathbbox %%get page size\n\n) writestring
  SysFile (/Y exch def pop pop /X exch def %% save upleft coordinates\n\n) writestring
  SysFile (X Y moveto gsave %% white out upper box\n) writestring
  SysFile (300 0 rlineto 0 -36 rlineto -300 0 rlineto closepath\n) writestring
  SysFile (1 setgray fill\n) writestring
  SysFile (grestore\n) writestring
  SysFile (                       %%put text on page\n) writestring
  SysFile (0 -20 rmoveto \(Error executing Sys/Start file\) show\n) writestring
  SysFile (X Y 35 sub moveto \(Error in file: \) show\n) writestring
  SysFile (show %%use filename from stack\n) writestring
  SysFile (showpage\n) writestring
  SysFile (}bind put\n\n) writestring
  SysFile (%%EndProlog\n\n) writestring
  SysFile (%%Begin file listings\n) writestring
  notPSExecfile noSysStart not and
  {
    SysFile ({\(PSExec/Start\) run}stopped {\(PSExec/Start\) starterr}if\n) writestring
  }if
  SysFile ({\() writestring
  SysFile reffile writestring
  SysFile (\) run}stopped {\() writestring
  SysFile reffile writestring
  SysFile (\) starterr}if\n) writestring
  SysFile (%%End file listings\n) writestring
  SysFile closefile
} %found unknown or no SysStart file
%else PS Executive file format detected
%parse all file listings
{
  /SysFile SysFilename (r) file def
  /TempFile TempFilename (w) file def
  %LOOP read lines till %%Begin file listings
  {
    SysFile buff readline not {pop exit}if %exit on EOF
    dup TempFile exch writestring TempFile 13 write
    (%%Begin file listings) anchorsearch not {pop}
    {
      pop pop
      %LOOP read lines till EOF looking for file to remove
      {
        SysFile buff readline not {pop exit} %exit on EOF
        {
          %exit loop when %End found
          dup (%%End file listings) anchorsearch {pop pop pop exit} %End found
          {
            pop TempFile exch writestring TempFile 13 write
          }ifelse %not End
        }ifelse %not end of file listings
      }loop %search all file listings
      %add file reference
      /fileadded true def
      TempFile ({\() writestring
      TempFile reffile writestring
      TempFile (\) run}stopped {\() writestring
      TempFile reffile writestring
      TempFile (\) starterr}if\n) writestring
      TempFile (%%End file listings\n) writestring
      exit
    }ifelse %found Begin file listings
   }loop %read file till EOF
   SysFile closefile
   TempFile closefile
  %if file was added
  fileadded 
  %file found and added
  {
    SysFilename deletefile 
    TempFilename SysFilename renamefile
    (*file listing added\n) 
  } 
  %file not added
  {
    TempFilename deletefile
    (*file listing not added\n) 
  } ifelse
  print flush    
} ifelse %found PS Executive SysStart file
}def
%%EOF


[Sys Remove]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Remove file invocation from Sys/Start file
%%Creator: Grady Yarbrough
%%CreationDate: 22-July-91
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
serverdict begin 0000 exitserver
/SysRemove{
/reffile exch store
/SysFilename (Sys/Start) def
/TempFilename (PSExec/Tempfile) def
/buff 512 string def
/noSysStart true def
/notPSExecfile true def
/fileremoved false def
%determine if a SysStart created by PS Executive exists
SysFilename status
% does SysStart exist
{
  pop pop exch pop 0 eq 
  % SysStart is empty
  {
    SysFilename deletefile
  } %if
  % SysStart is not empty
  {
    /noSysStart false def
    /SysFile SysFilename (r) file def
    %read first line in file
    SysFile buff readline not {pop}
    {
      dup () eq {pop SysFile buff readline pop}if
      (%!PS-Adobe 2.0) anchorsearch not {pop}
      % follows Adobe DSC
      {
        pop pop
        % read second line
        SysFile buff readline not {pop}
        {
          (%%Creator: PS Executive Series Utilities) anchorsearch not {pop}
          % file was created by PS Executive
          {
            pop pop
            /notPSExecfile  false def
          }ifelse %found PS Executive SysStart
        }ifelse %found second line in file
      }ifelse %found Adobe DSC in SysStart
    }ifelse %found first line in file
    SysFile closefile
  }ifelse %file is not empty
}if %found SysStart file
%if no SysStart found
noSysStart
{
  (*no file found\n) print flush    
}
%elseif not created by PS Executive
{
  notPSExecfile
  {
    (*unknown file found\n) print flush    
  } %found unknown SysStart file
  %else PS Executive file format detected
  %parse all file listings
  {
    /SysFile SysFilename (r) file def
    /TempFile TempFilename (w) file def
    %LOOP read lines till %%Begin file listings
    {
      SysFile buff readline not {pop exit}if %exit on EOF
      dup TempFile exch writestring TempFile 13 write
      (%%Begin file listings) anchorsearch not {pop}
      {
        pop pop
        %LOOP read lines till EOF looking for file to remove
        {
          SysFile buff readline not {pop exit} %exit on EOF
          {
            %get file reference
            dup ({\() anchorsearch not
    
            {pop TempFile exch writestring TempFile 13 write} %not found

            {
              pop
              (\)) search not
              {pop TempFile exch writestring TempFile 13 write} %not found

              {
                exch pop exch pop
                reffile eq 
                {/fileremoved true def pop} %file found
                {TempFile exch writestring TempFile 13 write}ifelse
              }ifelse %got file reference ok
            }ifelse %found file reference
          }ifelse %not end of file listings
        }loop %search all file listings
        exit
      }ifelse %found Begin file listings
    }loop %read file till EOF
    SysFile closefile
    TempFile closefile
    %if file was removed
    fileremoved 
    %file found and removed
    {
      SysFilename deletefile 
      TempFilename SysFilename renamefile
      (*file listing removed\n) 
    } 
    %file not found
    {
      TempFilename deletefile
      (*file listing not found\n) 
    } ifelse
    print flush    
  } ifelse %found PS Executive SysStart file
}ifelse %found SysStart file
}def
%%EOF


[ This routine defines the necessary routine to return the device 
  information over the reverse channel.]

[Disk Info]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Get Disk Information
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
/getdeviceinfo { { dup devstatus {
9 -1 roll = = = = = = pop pop pop
} if } 100 string devforall (\\007) print flush
} def
%%EOF


[ This routine defines the necessary routine to print the device 
  information out on the page.]

[Print Disk Info]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Print Disk Information
%%Creator: QMS Inc.
%%For: PSExecutive Utilities
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
/printdeviceinfo {
topofpage
c1 (Devices Attatched to this Postscript System : ) prtstr crlf
0.0 inch ycoord textsize 2 div add moveto
8.5 inch ycoord textsize 2 div add lineto
stroke crlf
c1 (Device Name) prtstr
c3 (Size (KB)) prtstr
c4 (Free (KB)) prtstr
c5 (Searchorder) prtstr
c6 (Removable) prtstr
c7 (Mounted) prtstr crlf
0.0 inch ycoord textsize 2 div add moveto
8.5 inch ycoord textsize 2 div add lineto
stroke crlf { dup devstatus { 9 -1 roll
c1 prtstr c3 prtstr c4 prtstr c5 prtstr c6 prtstr c7 prtstr
pop pop pop crlf } if } 100 string devforall lastpage } def
%%EOF

[Get DiskNames]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: GetDiskNames
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%?BeginFeatureQuery: GetDiskNames
/devforall where {
        /devforall get
        { = flush } 100 string
        3 -1 roll exec
        /* = flush
} if
%%?EndFeatureQuery: unknown


[OLD **** Print File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title:        header.ps
%%Date:         10/03/90
%%For:          SCSI Utility
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin:
serverdict begin 0 exitserver
/bd {bind def} def /ts  8  def /tf (Courier) def
/inch {72 mul} bd /hs (Directory of: *.*) def 
/pn 1 def /tabs 1 inch def /m /moveto load def
/l /lineto load def /es {exch store} bd /nl{
/x llx store /y y ts sub store x y m} bd /ns {
100 string cvs show} bd /tab {/x x tabs add
store x y m} bd /hd {/Times-Bold findfont 12
scalefont setfont llx hy m hs show urx (Page XXXX)
stringwidth pop sub hy m (Page ) show pn ns  /pn
pn 1 add store llx hy 5 sub m urx hy 5 sub l 
stroke showpage tf findfont ts scalefont setfont
/y hy 12 sub store nl} bd /s {{exch pop 10 eq {
nl y lly lt {hd} if} {currentpoint pop urx ge {
nl y lly lt {hd} if} if} ifelse} exch kshow} bd
/ef {status {pop pop pop pop true}{false} ifelse
} bd gsave 0 0 m clippath pathbbox grestore /ury
es /urx es /lly es /llx es /hy ury 16 sub store
/mx llx urx add 2 div store tf findfont ts 
scalefont setfont /y hy 12 sub store nl
%%End:
%!PS-Adobe 2.0
%%Title:        PrintSysFile
%%Date:         10/03/90
%%For:          SCSI Utility
%%Copyright (C) QMS Inc.  All rights reserved.
%%BeginProcSet: Print file 1.0	
/prntsys {/hs es /src es /buf 100 string store src ef
{/srcf src (r) file def{srcf buf readstring{s}{
s hd srcf closefile exit} ifelse} loop}{(Sys/Start )
show src (File was not found!) s showpage} ifelse} bd
%%EndProcSet:

[Print File]
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Sys Page Formater
%%Creator: QMS,Inc
%%CreationDate: 22-Aug-91
%%Copyright (C) 1992 by QMS Inc.  All rights reserved.
%%EndComments
%%Begin
serverdict begin 0 exitserver
 /dirstring (File References of Sys/Start: ) store
 /page# 0 def
 /x 36 def
 /y 714 def
 /Times-Roman findfont 12 scalefont setfont
 /doheader {/page# page# 1 add def
    /y 720 def
    x 734 moveto dirstring show
    550 734 moveto (Page )show page# (  )cvs show
    18 728 moveto 612 0 rlineto stroke
    showpage
}bind def
 /sysprint{ 
  x y moveto show
   /y y 14 sub def
   y 72 lt {doheader}if
}def
%!PS-Adobe 2.0 
%%IncludeFeature: emulation(postscript)
%%Title: Parse file invocations from Sys/Start file
%%Creator: Grady Yarbrough
%%CreationDate: 22-July-91
%%EndComments
%%Begin
/SysFilename (Sys/Start) def
/buff 512 string def
/noSysStart true def
/notPSExecfile true def
%determine if a SysStart created by PS Executive exists
SysFilename status
% does SysStart exist
{
  pop pop exch pop 0 eq 
  % SysStart is empty
  {
    SysFilename deletefile
  } %if
  % SysStart is not empty
  {
    /noSysStart false def
    /SysFile SysFilename (r) file def
    %read first line in file
    SysFile buff readline not {pop}
    {
      dup () eq {pop SysFile buff readline pop}if
      (%!PS-Adobe 2.0) anchorsearch not {pop}
      % follows Adobe DSC
      {
        pop pop
        % read second line
        SysFile buff readline not {pop}
        {
          (%%Creator: PS Executive Series Utilities) anchorsearch not {pop}
          % file was created by PS Executive
          {
            pop pop
            /notPSExecfile  false def
          }ifelse %found PS Executive SysStart
        }ifelse %found second line in file
      }ifelse %found Adobe DSC in SysStart
    }ifelse %found first line in file
    SysFile closefile
  }ifelse %file is not empty
}if %found SysStart file
%if no SysStart found
noSysStart
{
  (*no file found\n) sysprint    
}
%elseif not created by PS Executive
{
  notPSExecfile
  {
    (*unknown file found\n) sysprint 
  } %found unknown SysStart file
  %else PS Executive file format detected
  %parse all file listings
  {
    /SysFile SysFilename (r) file def
    %LOOP read lines till %%Begin file listings
    {
      SysFile buff readline not {pop exit}if %exit on EOF
      (%%Begin file listings) anchorsearch not {pop}
      {
        pop pop
        %LOOP read lines till %%End file listings
        {
          SysFile buff readline not {pop exit}if %exit on EOF
          (%%End file listings) anchorsearch {pop pop exit}
          {
            %get file reference
            ({\() anchorsearch 
            {
              pop
              (\)) search 
              {
               sysprint pop
              }if %got file reference ok
            }if %found file reference
            pop
          }ifelse %not end of file listings
        }loop %search all file listings
        exit
      }ifelse %found Begin file listings
    }loop %search for Begin file listings
    SysFile closefile
    (*end of file\n) sysprint     
  } ifelse %found PS Executive SysStart file
}ifelse %found SysStart file
y 720 ne {doheader}if
%%EOF




[End]
Download Driver Pack

How To Update Drivers Manually

After your driver has been downloaded, follow these simple steps to install it.

  • Expand the archive file (if the download file is in zip or rar format).

  • If the expanded file has an .exe extension, double click it and follow the installation instructions.

  • Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.

  • Find the device and model you want to update in the device list.

  • Double-click on it to open the Properties dialog box.

  • From the Properties dialog box, select the Driver tab.

  • Click the Update Driver button, then follow the instructions.

Very important: You must reboot your system to ensure that any driver updates have taken effect.

For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.

server: web1, load: 0.99