begin comment: file creation with output of strings; RECORD file (INTEGER channel); REFERENCE(file) fhand; REFERENCE(file) PROCEDURE fileopen ( STRING(256) VALUE path; STRING(2) VALUE mode ); ALGOL "fopen"; PROCEDURE fileclose ( REFERENCE(file) VALUE handle ); ALGOL "fclose"; integer PROCEDURE filewritestr ( STRING(256) VALUE str; REFERENCE(file) VALUE handle ); ALGOL "fputs"; string (7) fname; string (2) mode; string (20) textline; integer res; fname := "tttf"; fname(4|1) := code(0); mode := "w"; mode(1|1) := code(0); textline := "abcd1234efgh"; textline(12|1) := code(0); fhand := fileopen(fname, mode); res := filewritestr(textline, fhand); fileclose(fhand); end