Пример:

Программа CH16EX01.PRO представляет утилиту копирования файлов с

оконным интерфейсом. Пользователю, использующему утилиту, нет необходи-

мости запоминать, имя какого файла (исходного или целевого) должно стоять

в команде COPY первым.

/* Program CH16EX01.PRO - File copy utility for novices */

goal

makewindow(1, 7, 7, "Source", 0, 0, 20, 35),

write ("Which file do you want to copy ?"),

cursor(3, 8), readln(X),

makewindow(2, 7, 7, "Destination", 0, 40, 20, 35),

write("What is the name of the new copy ?"),

cursor(3, 8), readin(Y),

concat(X, " ", X1), concat(X1, Y, Z),

concat("copy ", Z, W), /* Creates the string W*/

makewindow(3, 7, 7, "Process", 14, 15, 8, 50),

write("Copying",X, "to", Y), cursor(2, 3),

system(W). /*Invokes ДОС with the string W*/