OBJECT:
STRING FNAME,
STRING STR1;

FNAME=’*C:\DOSYA.TXT’;
OPEN FILE FNAME FORNEW;
STR1 = ‘Merhaba dünya!!’;
PUT STR1%15s;
CLOSE FILE;