The following program changes A/B to C/D and then removes C/D.
BEGIN
ARRAY OLD, NEW[0:44];
BOOLEAN B;
REPLACE POINTER(OLD) BY 8"A/B.";
REPLACE POINTER(NEW) BY 8"C/D.";
IF B := CHANGEFILE(OLD,NEW) THEN
DISPLAY("CHANGEFILE ERROR");
IF B := REMOVEFILE(8"C/D.") THEN
DISPLAY("REMOVEFILE ERROR");
END.
