home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / occur2 < prev    next >
Encoding:
Text File  |  1989-02-27  |  793 b   |  21 lines
  1.  
  2.   PROCEDURE TransferProc(LineNum, CurLine : CARDINAL);
  3.                                     │ Ausgabe einer Feldzeile, in der
  4.                                     │ anschliessend ediert werden möchte
  5.     VAR
  6.       Ind : CARDINAL;
  7.     BEGIN
  8.       TransferLines(TRUE, LineNum, CurLine, Data[LineNum][1]);
  9.       FOR Ind := 2 TO OccurFields DO
  10.         TransferLines(FALSE, LineNum, CurLine, Data[LineNum][Ind]);
  11.       END;
  12.     END TransferProc;
  13.   PROCEDURE line(LineMode : eLineMode; CurLine, LineNum, PageNum : 
  14.       CARDINAL): BOOLEAN;
  15.                                     │ Diese Procedur wird immer aufgerufen,
  16.                                     │ wenn mit den Cursor nach oben oder unten
  17.                                     │ gefahren wird.
  18.     VAR
  19.       Ind : CARDINAL;
  20.  
  21.