GeMIS_WEB/GUI/Tools/Schrift.p

FIND schrift WHERE schname = "LPT1.DOS" AND schbild = "12 cpi hoch".
schrift.schseqbeg = CHR(27) + "E"
                  + CHR(27) + "&l26A"
                  + CHR(27) + "&l70P"
                  + CHR(27) + "&l6D"
                  + CHR(27) + "9"
                  + CHR(27) + "&k2G"
                  + CHR(27) + "(s12h0b0p0s4102T".
/*
DEF VAR cName   AS CHAR.
DEF VAR ii      AS INT.

cName = SESSION:PRINTER-NAME.

OUTPUT TO PRINTER VALUE(cName) PAGED PAGE-SIZE 150.

PUT CONTROL CHR(27) "E"
            CHR(27) "&l26A"
            CHR(27) "&l70P"
            CHR(27) "&l6D"
            CHR(27) "9"
            CHR(27) "&k2G"
            CHR(27) "(s13h0b0p0s4102T".
DO  ii = 1 TO 70:
    PUT CONTROL 'Zeile ' STRING(ii) CHR(10).
END.
PUT CONTROL CHR(12).

OUTPUT CLOSE.
*/