Subversion Repositories Kolibri OS

Rev

Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7983 Rev 8097
Line 151... Line 151...
151 
 
 151 
 
152 
    RETURN res
 152 
    RETURN res
Line 153... Line 153...
153 
END GetStr;
 153 
END GetStr;
154 
 
 154 
 
155 
 
 155 
 
Line 156... Line 156...
156 
PROCEDURE WriteToFile* (file: WR.FILE; list: BYTELIST);
 156 
PROCEDURE WriteToFile* (list: BYTELIST);
157 
VAR
 157 
VAR
158 
    chunk: BYTECHUNK;
 158 
    chunk: BYTECHUNK;
159 
 
 159 
 
160 
BEGIN
 160 
BEGIN
161 
    chunk := list.first(BYTECHUNK);
 161 
    chunk := list.first(BYTECHUNK);
162 
    WHILE chunk # NIL DO
 162 
    WHILE chunk # NIL DO