3
{ Program to demonstrate the Chmod function. }
11
Assign (f,'testex21');
13
Writeln (f,'#!/bin/sh');
14
Writeln (f,'echo Some text for this file');
16
{ Octal() makes the correct number from a
17
number that LOOKS octal }
18
Chmod ('testex21',octal (777));
19
{ File is now executable }