' Druckertreiber zu VIEVFAX - STARCALL
' fr EPSON LQ
' (c) 26.12.92 INLI
' ==========================================================================
$m32768
'
DIM tx&(2400),ty&(2400)
'
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
'
FOR x&=0 TO 2399
  tx&(x&)=x&*200\180
NEXT x&
FOR x&=0 TO 2399
  ty&(x&)=x&*200\180
NEXT x&
'
ay&=999
'
FOR y&=0 TO 1980 STEP 24
  PRINT #1;CHR$(27);"*";CHR$(39);CHR$(1440 MOD 256);CHR$(1440\255);
  FOR x&=0 TO 1439
    px&=tx&(x&)
    FOR y1&=0 TO 2
      CLR c&
      FOR y2&=0 TO 7
        py&=ty&(y&+y1&*8+y2&)
        a%=bild%+py&*256
        '
        MUL c&,2
        IF BTST(BYTE{a%+px&\8},7-AND(px&,7))
          INC c&
        ENDIF
      NEXT y2&
      OUT 0,c&
    NEXT y1&
  NEXT x&
  PRINT #1;CHR$(27);"J";CHR$(24);CHR$(13);
  '
  IF INP?(2)
    IF INP(2)=225
      y&=9999
    ELSE
      OUT 2,7
    ENDIF
  ENDIF
NEXT y&
'
PRINT #1;CHR$(12);
CLOSE #1
END