#include "vbcompat.bi"
#Define MaxLng 4
Declare Function WochenTag(Tag As Integer=WEEKDAY(NOW), Sprache As Integer=0) As String
Width 98, 25
For i As Integer=0 To MaxLng
'aktuellen Wochentag ausgeben
'	Print Wochentag(, i)
'alle Wochentage ausgeben..
	Print WochenTag(0, i) &": ";
  For j As Integer=1 To 7
  	Print WochenTag(j, i) &", ";
  Next
  Print !"\b\b "
Next
GetKey
End

Function WochenTag(Tag As Integer=Weekday(NOW), Sprache As Integer=0) As String
  'Sprache: 0=deutsch(default), 1=english, 2=portugues, 3=français 4=español
  Dim Wt(MaxLng, 0 To 7) As String={ _
    {"deutsch", "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag"}, _
    {"english", "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}, _
    {"portugues", "domingo", "segunda-feira", !"ter\135a-feira", "quarta-feira", "quinta-feira", "sexta-feira", !"s\160bado"}, _
    {!"fran\135ais", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"}, _
    {!"espa\164ol", "Domingo", "Lunes", "Martes", !"Mi\130rcoles", "Jueves", "Viernes", "Sabado"}}
    Return Wt(Sprache, Tag)
End Function