.; .; This arduous proceedure places the arguments in .; double quotes (""). This is required because .; DECUS C automatically converts all non quoted .; arguments to lower case (&*%$#). .; .; The Initial Command Strings .openr sy:tcpfun.com .read c1 .read c2 .read c3 .close .; The Qoute Character Strings [ "], [" "], ["] .openr TCP:quote.txt .read q .read r .read s .close .; The Argument processing .arg6: .if P6 = "" .goto arg5 .sets c3 "'c3'"+q+"'P1'"+r+"'P2'"+r+"'P3'"+r+"'P4'"+r+"'P5'"+r+"'P6'"+s .goto PX .arg5: .if P5 = "" .goto arg4 .sets c3 "'c3'"+q+"'P1'"+r+"'P2'"+r+"'P3'"+r+"'P4'"+r+"'P5'"+s .goto PX .arg4: .if P4 = "" .goto arg3 .sets c3 "'c3'"+q+"'P1'"+r+"'P2'"+r+"'P3'"+r+"'P4'"+s .goto PX .arg3: .if P3 = "" .goto arg2 .sets c3 "'c3'"+q+"'P1'"+r+"'P2'"+r+"'P3'"+s .goto PX .arg2: .if P2 = "" .goto arg1 .sets c3 "'c3'"+q+"'P1'"+r+"'P2'"+s .goto PX .arg1: .if P1 = "" .goto PX .sets c3 "'c3'"+q+"'P1'"+s .PX: .; Create Command File .open sy:tcpfun.com .data 'c1' .data 'c2' .data 'c3' .close $@sy:tcpfun