external routine spec permit(string (255) s) external string fn spec uinfs(integer i) external routine protect(string (255) file) if file="?" or file="" start printstring("Parameter is the filename to be PROTECTED. Unprotect with command UNPROTECT") newline finish else permit(file.",".uinfs(1).",P") end {protect} external routine unprotect(string (255) file) if file="?" or file="" start printstring("Parameter is the filename to be UNPROTECTED. (Protect with command PROTECT)") newline finish else permit(file.",".uinfs(1).",W") end {unprotect} end of file