Fecha de pentecostes. Programa en Basic

'fecha de pentecostes
cls
'pentecos.bas


an#=2008
x#=an#/19
a#=an#-int(x#)*19


x#=an#/100
b#=int(x#)
c#=an#-b#*100


x#=b#/4
d#=int(x#)
e#=b#-int(x#)*4


f#=int((b#+8)/25)


g#=int((b#-f#+1)/3)


y#=19*a#+b#-d#-g#+15
x#=y#/30
h#=y#-int(x#)*30


y#=c#/4
i#=int(y#)
k#=c#-int(y#)*4


y#=32+2*e#+2*i#-h#-k#
x#=y#/7
l#=y#-int(x#)*7


y#=a#+11*h#+22*l#
x#=y#/451
m#=int(x#)


y#=h#+l#-7*m#+114
x#=y#/31
n#=int(x#)
p#=y#-int(x#)*31


d1$="##   ##  ####"


print "dia  mes  a¤o"
print using d1$;p#+1;n#;an#

end