RosettaCodeData/Task/Create-a-file/XPL0/create-a-file.xpl0

int FD;
FD:= FOpen("output.txt", 1);