! Application independent file opening on a device specific basis
from Edwin include Consts, Specs, Device

external routine OPEN GRAPHICS alias "EDWIN_OPEN_GRAPHICS"  -
   (integer DEV, string (255) OutDev)

   Viewing = 0
   if Dev # 0 and OutDev # "" start
      Device Data_Dev no = 0
      if Dev=7220 or Dev=72208 or Dev=7440 or Dev=7470 or Dev=7475 or -
         Dev=7550 or Dev=7570 or Dev=7580 or -
         Dev=7585 or Dev=7586 or Dev=7595 or Dev=7596 start
         Device Data_Dev no = HP Plotter
      else if Dev = 300
         Device Data_Dev no = Dev Bitmap
         Device Data_Type = 300
      else if Dev = 16_5053 or Dev = 16_7073
         Device Data_Dev No = Postscript
      finish
   finish
   SET DEVICE (Outdev)
   Device Data_Dev no = 0
end

external routine CLOSE GRAPHICS alias "EDWIN_CLOSE_GRAPHICS"
   integer Saved
   if Viewing # 0 start
      Saved = Output Stream
      Select Output (viewing)
      Close Output
      Select Output (Saved)
      Viewing = 0
   finish
end

end of file