!MSC:<PCL>BATCH.PCL.2  5-Oct-84 FQ+3D.3H.23M.28S., by BUDNE
! QUICK BATCH COMMANDS (BY DDB VIA CWL)

Command Batch;
    BEGIN
    Integer ctl_chan, end_flg;
    String fnam, def_nam, def_fil;

    Guide "one-shot";

    let def_nam = "pcl" + $string ($jobno);
    let def_fil = def_nam + ".ctl;t";
    parse file (output, default def_fil, default_nam def_nam,
        default_ext "ctl");
    let fnam = $filel;
    let ctl_chan = $open (fnam, $output);
    if ctl_chan = 0 then
	begin
	Display "? Invalid file specified";
	exit
	end;
    parse eol;

    DO
        BEGIN
        prompt "batch line>";
        parse (text (noindirect): call $write (ctl_chan, $atom);
	 eol: let end_flg = 1);
	END
    until end_flg = 1;
    call $close (ctl_chan);
    docommand "submit " + fnam;
    end;