/* run a pascal program */
arg fn;
  'GLOBAL TXTLIB VSPASCAL AMPLANG QMATRIX'
  'GLOBAL LOADLIB AMPXLVEC PASRTLIB'
'load' fn '(nomap start';
exit(rc);