Data "Hallo Welt!"
Data "Das hier scheint OK zu sein."
Data "Huhu!"
Data "EOF"
Global printer = OpenFile ("LPT1")
If printer
.printerwrite
Read message$ : If message ="EOF" Then Goto endwrite
WriteString printer, message$+Chr$(13)+Chr$(10) ; Text + Zeilenumbruch
Goto printerwrite
.endwrite
WriteString printer, Chr$(12)    ; Druckauftrag absenden
CloseFile printer
Else
RuntimeError "Funktioniert leider nicht ;-("
EndIf
End

Global DRUCKER$="LPT1:"

FileNr=WriteFile(DRUCKER$)

DCprint "Test1",0
DCprint "Test2",1
DCprint "Test3",2
DCprint "Test4",3
DCprint "Test5",4
DCprint "Test6",5
DCprint "Test7",6


CloseFile FileNr 

;
;Cancel Linefeed after <CR> , pretty useful!
;
Function CancelLineFeed()
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr,Chr$(27) + "5" + Chr$(0)
 CloseFile FileNr
End Function


;
;function : ChangeC
;
;Purpose : Changes the Color!
;
Function ChangeC (C)
 If C < 0 Then Return
 If C > 7 Then Return
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr,Chr$(27) + "r" + Chr$(C) ;This is the command for EPSON /
                                           ;IBM Compatible printer replace the
                                           ;last charecter number with the color
                                           ;you want :

                                           ;0 : Black     | 4 : Yellow
                                           ;1 : Magenta   | 5 : Orange
                                           ;2 : Cyan      | 6 : Green
                                           ;3 : Violet
 CloseFile FileNr   
End Function

;
;function : Printing in Color
;
;Comments : Strn$ - Text , C - Color
;
Function DCprint(Strn$, C)
 If C < 0 Then Return
 If C > 7 Then Return
 
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr, Chr$(27) + "r" + Chr$(C) ;This is the command for EPSON /
                                     ;IBM Compatible printer replace the
                                     ;last charecter number with the color
                                     ;you want :

                                     ;0 : Black     | 4 : Yellow
                                     ;1 : Magenta   | 5 : Orange
                                     ;2 : Cyan      | 6 : Green
                                     ;3 : Violet

 WriteLine FileNr,Strn$
 CloseFile FileNr   
End Function

;
;Gets back one charecter (used for maybe overstorking!)
;
Function Getback()
 DCprint CHR$(8), 7
End Function

;
;This misses [n] line(s)
;
Function LineFeed (n)
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr, Chr$(27) + "J" + Chr$(n)
 CloseFile FileNr   
End Function

;
;function : SelectLQFont
;
;Purpose : to choose a font from the standards!
;
Function SelectLQFont (n)

 If C < 1 Then Return
 If C > 7 Then Return

 FileNr=WriteFile(DRUCKER$)

 WriteLine FileNr, Chr$(27) + "k" + Chr$(n) ; The last Chanrecter chooses the Font
                                            ; look at this table :

                                            ; 0 : Roman       | 3 : Prestige
                                            ; 1 : Sanserif    | 4 : Script
                                            ; 2 : Courier
 CloseFile FileNr   
End Function


;
;Set Linefeed after <CR> , pretty useful!
;
Function SetLineFeed()
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr, Chr$(27) + "5" + Chr$(1)
 CloseFile FileNr 
End Function

;
;Toogles Underlining One And Off! n = 1 is on , n = 0 is off
;
Function Underline (n)
 FileNr=WriteFile(DRUCKER$)
 WriteLine FileNr, Chr$(27) + "-" + Chr$(n)
 CloseFile FileNr 
End Function