Versuch mal so.
Code:
'Funktion/Prozedur wird deklariert
Declare Sub Print_(byval b1 As String * 20 , Byval B2 As Integer , Byval B3 As Integer , Byval B4 As Integer , Byval B5 As Integer )       ' print_ ("text", 1=seriell ausgeben,1=cls, zeile, spalte)



'Das ist die eigentliche Funktion/Prozedur
Sub Print_(b1 As String * 20 , B2 As Integer , B3 As Integer , B4 As Integer , B5 As Integer)

If B2 = 1 Then Print b1
If B3 = 1 Then Cls
Locate B4 , B5
Lcd b1
Cursor Off Noblink 'Cursor wird nicht angezeigt
End Sub



'Aufruf der Funktion/Prozedur
Call Print_( "Hallo Welt" , 1 , 1 , 1 , 1)