(Prolog) fileattrib

% This code saves data to a file
% and sets the file attributes to read-only
%
% Therefore, it will only run successfuly once.
DOMAINS
intList = integer*
FACTS
fact1(integer,string,intList)
fact2(integer,string)
CONSTANTS
fa_rdonly = 0x01
CLAUSES
fact1(1,"fact1",[1,2,3]).
fact1(2,"fact2",[1,3]).
fact1(3,"fact2",[3,2,1]).
fact2(1,"one").
fact2(1,"one once more").
fact2(2,"two").
GOAL
  Name = "C:/Bilderbikkel/Bilderbikkel.txt",
  save(Name),
  fileattrib(Name,fa_rdonly).

Code links

• save