! Program to send HP-GL file to 7220 plotter
include device
begin
   external string (255) fn spec Cli Param alias "IMP_CLI_PARAM"
   integer I, S
   on 9 start
      Flush Output
      stop
   finish

   Open Input (1, cli param)
   Select Input (1)
   Set Device ("EDWIN_7220")
   cycle
      for I = 1, 1, 200 cycle
          read symbol (s)
          ttput (s)
          exit if s=nl
      repeat
      ttput (27)
      ttput ('.')
      ttput ('L')
      Flush Output
      s = ttget until S > ' '
      s = ttget until S < ' '
   repeat
end