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