from EDWIN include Specs
begin
   integer s, dev, c, x, y
   string (127) file
   on 9 start
      move abs(0,0)
      text ("Press a key on the mouse while in the graphics window to continue".nl)
      Request input (c, x, y)
      stop
  finish
   select input (0)
   prompt ("File: ")
   file = ""
   skip symbol while next symbol <= ' '
   dev = default device
   cycle
      read symbol (s)
      read (dev) and exit if s='-'     { file-devno }
      exit if s<=' '
      file = file.to string(s)
   repeat
   file = file.".pdf" unless file -> (".")
   open input (1, file)
   view on (3) if dev = 7475
   initialise for (dev)
   viewport (0,32*400, 0,25*400) if dev=7475
more:
   newframe
   select input(1)
   review
end:
   move abs(0,0)
   text ("Press a key on the mouse while in the graphics window to continue".nl)
   request input (c, x,y)
   terminate edwin
end of program