Define LibPub days(m,d,y)=
Prgm
Local day, yt5,ye
yt5:=y*5
If m=1 Then
ye:= 1
EndIf
If m=2 Then
ye:=4
EndIf
If m=3 Then
ye:=4
EndIf
If m=4 Then
y:=0
EndIf
If m=5 Then
y:=2
EndIf
If m=6 Then
y:=5
EndIf
If m=7 Then
ye:=0
EndIf
If m=8 Then
ye:=3
EndIf
If m=9 Then
ye:=6
EndIf
If m=10 Then
ye:=6
EndIf
If m=11 Then
ye:=4
EndIf
If m=12 Then
ye:=6
EndIf
day:=approx({intDiv[yt5,4]+ye+d}/7)
Disp day
EndPrgm
This language is a variation of basic. It outputs a number eg. 20.57198 but the problem with input is that i only need the first number past the decimal. Questions on syntax and meaning will be answered. thank you.