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 |