[inherit('sys$library:starlet')]

program change_prot(input,output);

var
   stat : integer;
   fnm  : varying [255] of char;
   fabblk : FAB$TYPE;
   xabblk : XAB$TYPE;

begin
   fnm:='Z.DAT';
   fabblk.fab$b_bid:=FAB$C_BID;
   fabblk.fab$b_bln:=FAB$C_BLN;
   fabblk.fab$b_fac:=FAB$M_PUT;
   fabblk.fab$l_fna:=iaddress(fnm.body);
   fabblk.fab$b_fns:=fnm.length;
   fabblk.fab$l_xab:=iaddress(xabblk);
   xabblk.xab$b_cod:=XAB$C_PRO;
   xabblk.xab$b_bln:=XAB$C_PROLEN;
   stat:=$open(fab:=fabblk);
   writeln('stat=',stat);
   xabblk.xab$v_own:=uand(xabblk.xab$v_own,unot(xab$m_nodel));
   stat:=$close(fab:=fabblk);
   writeln('stat=',stat);
end.