begin comment writing of strings to file FILE_3; 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 (10) textline; integer res; fname := "FILE_3"; fname(6|1) := code(0); mode := "w"; mode(1|1) := code(0); textline := "abcd1234e"; textline(9|1) := code(0); fhand := fileopen(fname, mode); res := filewritestr(textline, fhand); res := filewritestr(textline, fhand); fileclose(fhand); end