home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / occur3 < prev    next >
Encoding:
Text File  |  1989-02-27  |  605 b   |  20 lines
  1.  
  2.     BEGIN
  3.       CASE LineMode OF
  4.       | nextLine, prevLine :  <-- Uebergabe einer neuen Linie zum Edieren.
  5.         TransferProc(LineNum, CurLine);
  6.                      ^        ^ Aktuelle Linie innerhalb der aktuellen Seite
  7.                      └─ Aktuelle Linie innerhalb der Anzahl edierten Linien.
  8.         RETURN TRUE;
  9.       | prevPage :            <-- Uebergabe einer neuen Seite
  10.         FOR Ind := 1 TO lastLine DO
  11.           InsertProc(Ind, Ind);
  12.         END;
  13.         TransferProc(LineNum, CurLine);
  14.         RETURN TRUE;
  15.       ELSE;
  16.       END;
  17.       RETURN FALSE;
  18.     END line;
  19.  
  20.