Power-Programmierung/CD1.mdf/modula2/compiler/m2mmdemo/isinst/sample/list2

Text File | 1989-02-27 | 964 b | 24 lines

BEGIN
  TableFile := 'KeyTable.PRN'; <-- Filename für die Zeichen-Convertierung
  PrinterInstall('PRN');       <-- Installieren der Schnittstelle
  KeyConvert(TRUE);            <-- Zeichen-Convertierung einschalten
  ListDef();                   <-- Definieren der Liste
  IF OpenList('DEMO.LST') THEN <-- Aufruf der Liste
    PrintList(1);              <-- Aufruf der Gruppe 1, 6 und 11. Diese werden
    PrintList(6);                  zum Drucker geschickt, wobei die Variablen
                                   gelesen werden.
    LOOP
      IF NextRecord() THEN     <-- Lesen des nächsten Records
        PrintList(11);         <-- Gruppe 11 wird gedurckt
        IF (Lines = PageLen) THEN  <-- Entscheidung, ob Seite voll ist
          PrintList(21);           <-- Seiten-Ende und Seiten-Anfang drucken
          PrintList(26);
          PrintList(1);
          PrintList(6);
        END;
      ELSE
        EXIT;
      END;
    END;