! 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