[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
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.