/* WW-Labels.rexx                                */
/* Regelmäßige Textboxen erstellen               */
/* bsb-Format 97x42,3 mm                         */
/* $VER: 1.1. (C) 02. August 1997 Heiko Kuschel  */
/* FREEWARE.                                     */

/*---------------------------- hier ändern - change here -----------------------*/
or=2.16   /* oberer Rand - upper margin */
ur=2.16   /* unterer Rand - lower margin */
sr=.8     /* rechter und linker rand - left and right margin */
breit=9.7 /* Breite der Boxen - width of boxes */
hoch=4.23 /* Höhe der Boxen - heighth of boxes */
vertabst=4.23 /* vertikaler Abstand der Boxen (>=hoch) - vertical distance of boxes */
horabst=9.7   /* dito horizontal */
AnzHor=2      /* Anzahl horizontaler Boxen - number of boxes horizontical */
AnzVert=6     /* Anzahl vertikaler Boxen - number of boxes vertical */
/*------------------------------------------------------------------------------*/




signal on error
DO Num = 1 to 20
        WwPort = "WORDWORTH." || Num
        IF SHOW(PORTS, WwPort) THEN DO
                Address Value WwPort
                leave Num
        end
end
if num=21 then do
    echo "Wordworth nicht gefunden! Programm endet."
    exit
    end
OPTIONS RESULTS

NEW
PORTNAME=RESULT
ADDRESS VALUE PORTNAME


document "A4" sr"cm" sr"cm" or"cm" ur"cm"
Do hor=0 to (AnzHor-1)
   Do ver = 0 to (AnzVert-1)

       Drawtextframe "1" sr+(hor*horabst)"cm" or+((ver*vertabst))"cm" breit"cm" hoch"cm"

   end
end