    ! 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