Subversion Repositories Kolibri OS

Rev

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

Rev 8728 Rev 9187
Line 347... Line 347...
347 
    UNTIL (i = n) OR (s[i] = 0X);
 347 
    UNTIL (i = n) OR (s[i] = 0X);
348 
    s[i] := 0X
 348 
    s[i] := 0X
349 
END ptr2str;
 349 
END ptr2str;
Line -... Line 350...
- 
 
 350 
 
- 
 
 351 
 
- 
 
 352 
PROCEDURE between* (a, b, c: INTEGER): BOOLEAN;
- 
 
 353 
	RETURN (a <= b) & (b <= c)
- 
 
 354 
END between;
350 
 
 355 
 
351 
 
 356