Microsoft Small Basic

Program Listing: BKC562
ziua=Clock.Day
If (ziua<10) Then
TextWindow.Write(0)
EndIf
TextWindow.Write(ziua+"-")
luna=Clock.Month
If (luna<10) Then
TextWindow.Write(0)
EndIf
TextWindow.Write(luna+"-")
anul=Clock.Year
TextWindow.WriteLine(anul)
TextWindow.Write(ziua+" ")
If (luna=1) Then
TextWindow.Write("ianuarie")
EndIf
If (luna=2) Then
TextWindow.Write("februarie")
EndIf
If (luna=3) Then
TextWindow.Write("martie")
EndIf
If (luna=4) Then
TextWindow.Write("aprilie")
EndIf
If (luna=5) Then
TextWindow.Write("mai")
EndIf
If (luna=6) Then
TextWindow.Write("iunie")
EndIf
If (luna=7) Then
TextWindow.Write("iulie")
EndIf
If (luna=8) Then
TextWindow.Write("august")
EndIf
If (luna=9) Then
TextWindow.Write("septembrie")
EndIf
If (luna=10) Then
TextWindow.Write("octombrie")
EndIf
If (luna=11) Then
TextWindow.Write("noiembrie")
EndIf
If (luna=12) Then
TextWindow.Write("decembrie")
EndIf
TextWindow.WriteLine(" "+anul)