' Druckertreiber zu VIEVFAX - STARCALL
' fr EPSON FX
' (c) 16.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\240
NEXT x&
FOR x&=0 TO 2399
  ty&(x&)=x&*200\108
NEXT x&
'
ay&=999
'
FOR y&=0 TO 2999 STEP 16
  FOR y1&=0 TO 1
    PRINT #1;CHR$(27);"*";CHR$(3);CHR$(1920 MOD 256);CHR$(1920\255);
    FOR x&=0 TO 1919
      CLR c&
      px&=tx&(x&)
      FOR y2&=0 TO 7
        py&=ty&(y&+y1&+y2&*2)
        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 x&
    PRINT #1;CHR$(27);"J";CHR$(1);CHR$(13);
  NEXT y1&
  PRINT #1;CHR$(27);"J";CHR$(22);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