XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei drucken
Declare Datei$,Zeile$
SetLFN 0
Let Datei$ = @LoadFile$(PROFAN-Datei drucken:,*.PRF)

IFNOT @Equ$(Datei$,)

    Assign #1,Datei$
    Reset #1
    Assign #2,PRN
    Rewrite #2

    WHILENOT @Eof(#1)

        Input #1,Zeile$
        Let Zeile$ = @AnsiToOem$(Zeile$)
        Print #2,Zeile$

    WEND

    Close #1
    Print #2,@Chr$(12)
    Close #2

ENDIF

FIN

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei drucken
ACHTUNG:
Unter Windows NT 4 läuft das Programm nicht!
Declare Datei$,Zeile$
Let Datei$ = @LoadFile$(PROFAN-Datei drucken:,*.PRF)

IF Datei$ <>

    Assign #1,Datei$
    Reset #1
    Assign #2,PRN
    Rewrite #2

    WHILENOT @Eof(#1)

        Input #1,Zeile$
        Zeile$ = @AnsiToOem$(Zeile$)
        Print #2,Zeile$

    ENDWHILE

    Close #1
    Print #2,@Chr$(12)
    Close #2

ENDIF

FIN