1
Download 1 - DSpace@MIT
Transcript
166 1 >u>nardy>use>before dollar.pll, 02:38:19 Thursday April 28, 1983 before-dollar: procedure (programname) returns (char(32)vary); declare i max len programname substring fix(15), fix(15), char(32)vary, char(32)vary; max len = length (programname); substring = ""; do i = 1 to max len; if substr (program name, i, 1) = $" then do; if i > 1 then return (substring); else sub-string = end; else substring = sub-string || substr (program-name, i, 1); end; return end; (programname);
