Positionierung in einer Datei

FortuneCookie.om

PROCEDURE PrintCookie(file: CookieFile; index: INTEGER); VAR cookie: ARRAY 512 OF CHAR; BEGIN Streams.SetPos(file.s, file.pos[index]); Read.LineS(file.s, cookie); Write.Line(cookie); END PrintCookie;

PrintCookie positioniert die Dateiverbindung auf den index-ten Spruch (von 0 an zählend) und gibt diesen aus.