Welcome to the Parallax Discussion Forums, sign-up to participate.

Whit
Posts: **4,096**

Happy Easter from Robotics Under the Stole - https://roboticsunderthestole.blogspot.com/2019/04/happy-easter-2019-from-rus.html

Thanks to all of you for your steadfast presence here on the Forums, your wise counsel, and the encouraging joy that you constantly share!

Thanks to all of you for your steadfast presence here on the Forums, your wise counsel, and the encouraging joy that you constantly share!

## Comments

13,6644,09619,5874,09613,66419,587@Whit: You really need to create a "conversion" kit to turn any capable Parallax robot (S2 and forward) into a...

Holy Roller.

4,09613,66489819,587https://www.popularmechanics.com/technology/robots/a26698/germany-robot-priest/

and

4,0963,28919,587At a minimum, you could program your robot to determine Easter dates. No small feat! BASIC program below from https://www.assa.org.au/edm#ComputerSub EasterDate (d, m, y)

' EASTER DATE CALCULATION FOR YEARS 1583 TO 4099

' y is a 4 digit year 1583 to 4099

' d returns the day of the month of Easter

' m returns the month of Easter

' Easter Sunday is the Sunday following the Paschal Full Moon

' (PFM) date for the year

' This algorithm is an arithmetic interpretation of the 3 step

' Easter Dating Method developed by Ron Mallen 1985, as a vast

' improvement on the method described in the Common Prayer Book

' Because this algorithm is a direct translation of the

' official tables, it can be easily proved to be 100% correct

' This algorithm derives values by sequential inter-dependent

' calculations, so ... DO NOT MODIFY THE ORDER OF CALCULATIONS!

' The \ operator may be unfamiliar - it means integer division

' for example, 30 \ 7 = 4 (the remainder is ignored)

' All variables are integer data types

' It's free! Please do not modify code or comments!

' ==========================================================

Dim FirstDig, Remain19, temp 'intermediate results

Dim tA, tB, tC, tD, tE 'table A to E results

FirstDig = y \ 100 'first 2 digits of year

Remain19 = y Mod 19 'remainder of year / 19

' calculate PFM date

temp = (FirstDig - 15) \ 2 + 202 - 11 * Remain19

Select Case FirstDig

Case 21, 24, 25, 27 To 32, 34, 35, 38

temp = temp - 1

Case 33, 36, 37, 39, 40

temp = temp - 2

End Select

temp = temp Mod 30

tA = temp + 21

If temp = 29 Then tA = tA - 1

If (temp = 28 And Remain19 > 10) Then tA = tA - 1

'find the next Sunday

tB = (tA - 19) Mod 7

tC = (40 - FirstDig) Mod 4

If tC = 3 Then tC = tC + 1

If tC > 1 Then tC = tC + 1

temp = y Mod 100

tD = (temp + temp \ 4) Mod 7

tE = ((20 - tB - tC - tD) Mod 7) + 1

d = tA + tE

'return the date

If d > 31 Then

d = d - 31

m = 4

Else

m = 3

End If

End Sub

4,096