Dim x As String, i As Integer

ScreenRes 400, 300
Do
	Print "Testdruckjob mit Taste, Esc = Ende"
	Do
	  x=InKey$
	  If x="" Then
	  	 Sleep
	  EndIf
	Loop Until x<>""
   If x<>Chr$(27) Then
		Print "Job wird gestartet"
		For i=1 To 10
			LPrint "Dies ist Linie ";i;"."
		Next i
	   LPrint Chr$(12);
	   Close -1
	   Print "Durckjob fertig"
   EndIf
Loop Until x=Chr$(27)