1 2 3 4 5 6 7 8 9 10 11 12
// 08.05.31 function Openphr(Str) global Wfile FID S='\def'+Str+'{%'; if Wfile=='default' mprintf('%s\n',S); else mfprintf(FID,'%s\n',S); end endfunction