    from EDWIN include Specs
    begin
       integer s, dev, c, x, y
       string (127) file
       on 9 start
          Terminate EDWIN and stop if Event_Event = 1
          signal 9, event_sub, event_extra
       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:
       Print string ("Press a key on the mouse while in the graphics window to continue".nl)
       request input (c, x,y)
       terminate edwin
    end of program