EASTER.L
FILE INFORMATION
FILENAME(S): EASTER.L
FILE TYPE(S): SEQ
FILE SIZE: 513b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
13f8a7d65da8917a221ce8251afc9b30454b8e192009132c25b9dce28fa17b76
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | EASTER.L | SEQ | hedning, Mattias H00r | 24 | 3 | DOWNLOAD FILE |
| CCS COMAL | EASTER.L | SEQ | hedning, Mattias H00r | 24 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 45 41 53 54 45 52 |9000 PROC EASTER| 00000010: 28 59 45 41 52 2C 52 45 46 20 4D 4F 4E 54 48 2C |(YEAR,REF MONTH,| 00000020: 52 45 46 20 44 41 59 29 20 43 4C 4F 53 45 44 0D |REF DAY) CLOSED.| 00000030: 39 30 31 30 20 44 4F 59 3A 3D 50 41 53 43 48 41 |9010 DOY:=PASCHA| 00000040: 4C 27 4D 4F 4F 4E 28 59 45 41 52 29 0D 39 30 32 |L'MOON(YEAR).902| 00000050: 30 20 44 41 54 45 28 44 4F 59 2C 59 45 41 52 2C |0 DATE(DOY,YEAR,| 00000060: 4D 4F 4E 54 48 2C 44 41 59 29 0D 39 30 33 30 20 |MONTH,DAY).9030 | 00000070: 44 4F 59 3A 2B 37 2D 44 41 59 27 4F 46 27 57 45 |DOY:+7-DAY'OF'WE| 00000080: 45 4B 28 4D 4F 4E 54 48 2C 44 41 59 2C 59 45 41 |EK(MONTH,DAY,YEA| 00000090: 52 29 0D 39 30 34 30 20 44 41 54 45 28 44 4F 59 |R).9040 DATE(DOY| 000000A0: 2C 59 45 41 52 2C 4D 4F 4E 54 48 2C 44 41 59 29 |,YEAR,MONTH,DAY)| 000000B0: 0D 39 30 35 30 20 45 4E 44 50 52 4F 43 20 45 41 |.9050 ENDPROC EA| 000000C0: 53 54 45 52 0D 39 30 36 30 20 2F 2F 0D 39 30 37 |STER.9060 //.907| 000000D0: 30 20 46 55 4E 43 20 50 41 53 43 48 41 4C 27 4D |0 FUNC PASCHAL'M| 000000E0: 4F 4F 4E 28 59 45 41 52 29 20 43 4C 4F 53 45 44 |OON(YEAR) CLOSED| 000000F0: 0D 39 30 38 30 20 44 49 4D 20 50 4D 28 30 3A 31 |.9080 DIM PM(0:1| 00000100: 38 29 0D 39 30 39 30 20 52 45 53 54 4F 52 45 20 |8).9090 RESTORE | 00000110: 0D 39 31 30 30 20 46 4F 52 20 49 3A 3D 30 20 54 |.9100 FOR I:=0 T| 00000120: 4F 20 31 38 20 44 4F 0D 39 31 31 30 20 52 45 41 |O 18 DO.9110 REA| 00000130: 44 20 50 4D 28 49 29 0D 39 31 32 30 20 45 4E 44 |D PM(I).9120 END| 00000140: 46 4F 52 20 49 0D 39 31 33 30 20 46 55 4C 4C 27 |FOR I.9130 FULL'| 00000150: 4D 4F 4F 4E 27 44 41 54 41 3A 0D 39 31 34 30 20 |MOON'DATA:.9140 | 00000160: 44 41 54 41 20 31 30 35 2C 39 34 2C 38 33 2C 31 |DATA 105,94,83,1| 00000170: 30 32 2C 39 31 2C 31 30 39 2C 39 39 2C 38 38 0D |02,91,109,99,88.| 00000180: 39 31 35 30 20 44 41 54 41 20 31 30 37 2C 39 35 |9150 DATA 107,95| 00000190: 2C 38 35 2C 31 30 34 2C 39 33 2C 38 32 2C 31 30 |,85,104,93,82,10| 000001A0: 31 2C 39 30 0D 39 31 36 30 20 44 41 54 41 20 31 |1,90.9160 DATA 1| 000001B0: 30 38 2C 39 38 2C 38 37 0D 39 31 37 30 20 52 45 |08,98,87.9170 RE| 000001C0: 54 55 52 4E 20 28 50 4D 28 59 45 41 52 20 4D 4F |TURN (PM(YEAR MO| 000001D0: 44 20 31 39 29 2B 4C 45 41 50 27 59 45 41 52 28 |D 19)+LEAP'YEAR(| 000001E0: 59 45 41 52 29 29 0D 39 31 38 30 20 45 4E 44 46 |YEAR)).9180 ENDF| 000001F0: 55 4E 43 20 50 41 53 43 48 41 4C 27 4D 4F 4F 4E |UNC PASCHAL'MOON| 00000200: 0D |. |
9000 PROC EASTER(YEAR,REF MONTH,REF DAY) CLOSED.9010 DOY:=PASCHAL'MOON(YEAR).902 0 DATE(DOY,YEAR,MONTH,DAY).9030 DOY:+7-D AY'OF'WEEK(MONTH,DAY,YEAR).9040 DATE(DOY ,YEAR,MONTH,DAY).9050 ENDPROC EASTER.906 0 //.9070 FUNC PASCHAL'MOON(YEAR) CLOSED .9080 DIM PM(0:18).9090 RESTORE .9100 FO R I:=0 TO 18 DO.9110 READ PM(I).9120 END FOR I.9130 FULL'MOON'DATA:.9140 DATA 105 ,94,83,102,91,109,99,88.9150 DATA 107,95 ,85,104,93,82,101,90.9160 DATA 108,98,87 .9170 RETURN (PM(YEAR MOD 19)+LEAP'YEAR( YEAR)).9180 ENDFUNC PASCHAL'MOON.
> CLICK IMAGE PREVIEW FOR FULL MODAL