' Druckertreiber zu VIEVFAX - STARCALL
' fr HP-DESKJET 500 , HP-LASER und kompatible...
' (c) 14.12, 16.12.92 INLI
' ==========================================================================
$m32768
'
DIM tx&(2400)
puf$=SPACE$(360)
buf%=V:puf$
'
bild%=VAL(CHAR{BASEPAGE+129})   !Adr. des Faxbildes
IF bild%=0
  PRINT "Aufruf nur aus VIEWFAX m”glich !"
  ~INP(2)
  END
ENDIF
'
OPEN "o",#1,"PRN:"
x&=300
PRINT #1
PRINT #1;CHR$(27);"*t";x&;"R";
PRINT #1;CHR$(27);"*rA";
'
FOR x&=0 TO 2399
  tx&(x&)=x&*200\300
NEXT x&
'
ay&=999
'
FOR y&=0 TO 2999
  CLR c&
  py&=y&*200\300
  '
  IF py&<>ay&
    ay&=py&
    a%=bild%+py&*256
    lx&=1
    FOR x&=0 TO 2399
      px&=tx&(x&) !Umrechnung der Aufl”sung
      MUL c&,2
      IF BTST(BYTE{a%+px&\8},7-AND(px&,7))
        INC c&
      ENDIF
      IF AND(x&,7)=7
        mx&=x&\8
        BYTE{buf%+mx&}=c&
        IF c&
          lx&=mx&
        ENDIF
        CLR c&
      ENDIF
    NEXT x&
  ENDIF
  '
  PRINT #1;CHR$(27);"*b";lx&;"W";
  BPUT #1,buf%,lx&
  '
  IF INP?(2)
    IF INP(2)=225
      y&=9999
    ELSE
      OUT 2,7
    ENDIF
  ENDIF
NEXT y&
'
PRINT #1;CHR$(27);"*rB";
PRINT #1;CHR$(12);
CLOSE #1
END