/* $VER: PrintLabels 1.1 (16.5.94) by Jan Geißler

   Druckt für alle Adressen im Speicher ein Etikett aus.

   History:

      V1.0 21.09.93  [jan]  - Erste Version
      V1.1 16.05.94  [jan]  - BUG: Makro druckte erstes
                              Etikett mehrfach statt jeden
                              Eintrag einmal.

   */

OPTIONS RESULTS    /* Rückgabewerte einschalten */

ADDRINMEM          /* Anzahl Adr. im Speicher herausfinden*/
numadr = RESULT
ACTIVATEFIRST      /* ersten Eintrag aktivieren */

DO FOR numAdr
              /* Etikett ausdrucken. Falls nicht internes Format
                 ADM-Etikettformat gewünscht, statt der folgenden
                 Zeile "PRINTLABEL pfad_und_name_der_Etikettdatei"
                 angeben!                                        */
   PRINTLABEL

   ACTIVATENEXT

END   /* ENDE */