'+------------------------------------------------------------------------------------------+
	'|   Header: Bestimmen der �bergabeparameter'                                               |
	'|           AnzeigeCheck:|Il1 sind Alt-0124, Gro�es i, kleines L, Eins ������ߎę֚�񱸩��|
  Const Author="ClrEol.Bas v016bSE �2006 by ytwinky, MD"'                                     |
	'|           (Tastenkombination: keine)                                                     |
	'|                                                                                          |
	'|   Zweck : Bis zum aktuellen Zeilenende l�schen, clear to End_Of_Line                     |
	'+------------------------------------------------------------------------------------------+
Sub ClrEol(byVal Row As Integer=CsrLin, byVal Col As Integer=0, byVal Cols As Integer=LoWord(Width))
  Dim Zeile As Integer=CsrLin, Spalte As Integer=Pos()
  Locate Row, Col
  Print Space(Cols-Col-(Col<>0));' +(IIF(Col=0, 0, 1)
  Locate Zeile, Spalte
End Sub

'Screen 20
Print Author
Var i=Width, Breite=0, Hoehe=0, y=4

Breite=LoWord(i)
Hoehe=HiWord(i)
Print "Breite=";Spc(0);Breite
Print "  H�he=";Spc(Len(Str(Breite))-Len(Str(Hoehe)));Hoehe
Print String(LoWord(Width), "#");
Print String(LoWord(Width), "#");
Sleep 1000
Clreol(y, 7)
Locate y, 1
Print String(LoWord(Width), "*");
Sleep 1000
Clreol(y)
Locate y+2, 1
Print !"Test\nEniki..";
GetKey
End