find easter

Home » Personal collection » Commodore disks » disk50a2_progs1.d64 » find easter

find easter

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Commodore disks » disk50a2_progs1.d64
Filename:	find easter
Read OK:	✔
File size:	0390 bytes
Load address:	0801
Exec address:	0000

File contents

    10 REM FIND EASTER
    20 INPUT"YEAR";Y
    30 GN=((Y+1)/19-INT((Y+1)/19))*19
    40 GN=INT(GN+0.5)
    50 IF GN=0 THEN GN=19
    60 SL=(Y+INT(Y/4)+6)
    70 SL=(SL/7-INT(SL/7))*7
    80 SL=INT(SL+0.5)
    90 READ G,D$,S
   100 IF G=GN THEN 120
   110 GOTO90
   120 IF S=SL THEN PRINT D$:END
   130 READ G,D$,S
   140 GOTO 120
   200 DATA 0,"21ST MARCH",5,14,"22ND MARCH",4,3,"23RD MARCH",3,0,"24TH MARCH",2
   210 DATA 11,"25TH MARCH",1,0,"26TH MARCH",0,19,"27TH MARCH",6,8,"28TH MARCH",5
   220 DATA 0,"29TH MARCH",4,16,"30TH MARCH",3,5,"31ST MARCH",2,0,"1ST APRIL",1
   230 DATA 13,"2ND APRIL",0,2,"3RD APRIL",6,0,"4TH APRIL",5,10,"5TH APRIL",4
   240 DATA 0,"6TH APRIL",3,18,"7TH APRIL",2,7,"8TH APRIL",1,0,"9TH APRIL",0
   250 DATA 15,"10TH APRIL",6,4,"11TH APRIL",5,0,"12TH APRIL",4,12,"13TH APRIL",3
   260 DATA 1,"14TH APRIL",2,0,"15TH APRIL",1,9,"16TH APRIL",0,17,"17TH APRIL",6
   270 DATA 6,"18TH APRIL",5,0,"19TH APRIL",4,0,"20TH APRIL",3,0,"21ST APRIL",2
   280 DATA 0,"22ND APRIL",1,0,"23RD APRIL",0,0,"24TH APRIL",6,0,"25TH APRIL",5


� FIND EASTER!�"YEAR";YBGN�((Y�1)�19��((Y�1)�19))�19S(GN��(GN�0.5)f2� GN�0 � GN�19z<SL�(Y��(Y�4)�6)�FSL�(SL�7��(SL�7))�7�PSL��(SL�0.5)�Z� G,D$,S�d� G�GN � 120�n�90�x� S�SL � � D$:���� G,D$,S��� 120?	�� 0,"21ST MARCH",5,14,"22ND MARCH",4,3,"23RD MARCH",3,0,"24TH MARCH",2�	�� 11,"25TH MARCH",1,0,"26TH MARCH",0,19,"27TH MARCH",6,8,"28TH MARCH",5�	�� 0,"29TH MARCH",4,16,"30TH MARCH",3,5,"31ST MARCH",2,0,"1ST APRIL",1
�� 13,"2ND APRIL",0,2,"3RD APRIL",6,0,"4TH APRIL",5,10,"5TH APRIL",4d
�� 0,"6TH APRIL",3,18,"7TH APRIL",2,7,"8TH APRIL",1,0,"9TH APRIL",0�
�� 15,"10TH APRIL",6,4,"11TH APRIL",5,0,"12TH APRIL",4,12,"13TH APRIL",3�
� 1,"14TH APRIL",2,0,"15TH APRIL",1,9,"16TH APRIL",0,17,"17TH APRIL",6E� 6,"18TH APRIL",5,0,"19TH APRIL",4,0,"20TH APRIL",3,0,"21ST APRIL",2�� 0,"22ND APRIL",1,0,"23RD APRIL",0,0,"24TH APRIL",6,0,"25TH APRIL",5

SHJ@. find easter@!HT@."year";y@bH.@gn.((y.1).19..((y.1).19)).19@sH(@gn..(gn.0.5)@FH2@. gn.0 . gn.19@ZH<@sl.(y..(y.4).6)@.Hf@sl.(sl.7..(sl.7)).7@.Hp@sl..(sl.0.5)@.Hz@. g,d$,s@.HD@. g.gn . 120@.HN@.90@.HX@. s.sl . . d$:.@.H.@. g,d$,s@.H.@. 120@?I.@. 0,"21st march",5,14,"22nd march",4,3,"23rd march",3,0,"24th march",2@.I.@. 11,"25th march",1,0,"26th march",0,19,"27th march",6,8,"28th march",5@.I.@. 0,"29th march",4,16,"30th march",3,5,"31st march",2,0,"1st april",1@]J.@. 13,"2nd april",0,2,"3rd april",6,0,"4th april",5,10,"5th april",4@DJ.@. 0,"6th april",3,18,"7th april",2,7,"8th april",1,0,"9th april",0@.J.@. 15,"10th april",6,4,"11th april",5,0,"12th april",4,12,"13th april",3@.JDA. 1,"14th april",2,0,"15th april",1,9,"16th april",0,17,"17th april",6@eKNA. 6,"18th april",5,0,"19th april",4,0,"20th april",3,0,"21st april",2@.KXA. 0,"22nd april",1,0,"23rd april",0,0,"24th april",6,0,"25th april",5@@@

00000000  13 08 0a 00 8f 20 46 49  4e 44 20 45 41 53 54 45  |..... FIND EASTE|
00000010  52 00 21 08 14 00 85 22  59 45 41 52 22 3b 59 00  |R.!...."YEAR";Y.|
00000020  42 08 1e 00 47 4e b2 28  28 59 aa 31 29 ad 31 39  |B...GN.((Y.1).19|
00000030  ab b5 28 28 59 aa 31 29  ad 31 39 29 29 ac 31 39  |..((Y.1).19)).19|
00000040  00 53 08 28 00 47 4e b2  b5 28 47 4e aa 30 2e 35  |.S.(.GN..(GN.0.5|
00000050  29 00 66 08 32 00 8b 20  47 4e b2 30 20 a7 20 47  |).f.2.. GN.0 . G|
00000060  4e b2 31 39 00 7a 08 3c  00 53 4c b2 28 59 aa b5  |N.19.z.<.SL.(Y..|
00000070  28 59 ad 34 29 aa 36 29  00 92 08 46 00 53 4c b2  |(Y.4).6)...F.SL.|
00000080  28 53 4c ad 37 ab b5 28  53 4c ad 37 29 29 ac 37  |(SL.7..(SL.7)).7|
00000090  00 a3 08 50 00 53 4c b2  b5 28 53 4c aa 30 2e 35  |...P.SL..(SL.0.5|
000000a0  29 00 b0 08 5a 00 87 20  47 2c 44 24 2c 53 00 c1  |)...Z.. G,D$,S..|
000000b0  08 64 00 8b 20 47 b2 47  4e 20 a7 20 31 32 30 00  |.d.. G.GN . 120.|
000000c0  c9 08 6e 00 89 39 30 00  dd 08 78 00 8b 20 53 b2  |..n..90...x.. S.|
000000d0  53 4c 20 a7 20 99 20 44  24 3a 80 00 ea 08 82 00  |SL . . D$:......|
000000e0  87 20 47 2c 44 24 2c 53  00 f4 08 8c 00 89 20 31  |. G,D$,S...... 1|
000000f0  32 30 00 3f 09 c8 00 83  20 30 2c 22 32 31 53 54  |20.?.... 0,"21ST|
00000100  20 4d 41 52 43 48 22 2c  35 2c 31 34 2c 22 32 32  | MARCH",5,14,"22|
00000110  4e 44 20 4d 41 52 43 48  22 2c 34 2c 33 2c 22 32  |ND MARCH",4,3,"2|
00000120  33 52 44 20 4d 41 52 43  48 22 2c 33 2c 30 2c 22  |3RD MARCH",3,0,"|
00000130  32 34 54 48 20 4d 41 52  43 48 22 2c 32 00 8b 09  |24TH MARCH",2...|
00000140  d2 00 83 20 31 31 2c 22  32 35 54 48 20 4d 41 52  |... 11,"25TH MAR|
00000150  43 48 22 2c 31 2c 30 2c  22 32 36 54 48 20 4d 41  |CH",1,0,"26TH MA|
00000160  52 43 48 22 2c 30 2c 31  39 2c 22 32 37 54 48 20  |RCH",0,19,"27TH |
00000170  4d 41 52 43 48 22 2c 36  2c 38 2c 22 32 38 54 48  |MARCH",6,8,"28TH|
00000180  20 4d 41 52 43 48 22 2c  35 00 d5 09 dc 00 83 20  | MARCH",5...... |
00000190  30 2c 22 32 39 54 48 20  4d 41 52 43 48 22 2c 34  |0,"29TH MARCH",4|
000001a0  2c 31 36 2c 22 33 30 54  48 20 4d 41 52 43 48 22  |,16,"30TH MARCH"|
000001b0  2c 33 2c 35 2c 22 33 31  53 54 20 4d 41 52 43 48  |,3,5,"31ST MARCH|
000001c0  22 2c 32 2c 30 2c 22 31  53 54 20 41 50 52 49 4c  |",2,0,"1ST APRIL|
000001d0  22 2c 31 00 1d 0a e6 00  83 20 31 33 2c 22 32 4e  |",1...... 13,"2N|
000001e0  44 20 41 50 52 49 4c 22  2c 30 2c 32 2c 22 33 52  |D APRIL",0,2,"3R|
000001f0  44 20 41 50 52 49 4c 22  2c 36 2c 30 2c 22 34 54  |D APRIL",6,0,"4T|
00000200  48 20 41 50 52 49 4c 22  2c 35 2c 31 30 2c 22 35  |H APRIL",5,10,"5|
00000210  54 48 20 41 50 52 49 4c  22 2c 34 00 64 0a f0 00  |TH APRIL",4.d...|
00000220  83 20 30 2c 22 36 54 48  20 41 50 52 49 4c 22 2c  |. 0,"6TH APRIL",|
00000230  33 2c 31 38 2c 22 37 54  48 20 41 50 52 49 4c 22  |3,18,"7TH APRIL"|
00000240  2c 32 2c 37 2c 22 38 54  48 20 41 50 52 49 4c 22  |,2,7,"8TH APRIL"|
00000250  2c 31 2c 30 2c 22 39 54  48 20 41 50 52 49 4c 22  |,1,0,"9TH APRIL"|
00000260  2c 30 00 b0 0a fa 00 83  20 31 35 2c 22 31 30 54  |,0...... 15,"10T|
00000270  48 20 41 50 52 49 4c 22  2c 36 2c 34 2c 22 31 31  |H APRIL",6,4,"11|
00000280  54 48 20 41 50 52 49 4c  22 2c 35 2c 30 2c 22 31  |TH APRIL",5,0,"1|
00000290  32 54 48 20 41 50 52 49  4c 22 2c 34 2c 31 32 2c  |2TH APRIL",4,12,|
000002a0  22 31 33 54 48 20 41 50  52 49 4c 22 2c 33 00 fb  |"13TH APRIL",3..|
000002b0  0a 04 01 83 20 31 2c 22  31 34 54 48 20 41 50 52  |.... 1,"14TH APR|
000002c0  49 4c 22 2c 32 2c 30 2c  22 31 35 54 48 20 41 50  |IL",2,0,"15TH AP|
000002d0  52 49 4c 22 2c 31 2c 39  2c 22 31 36 54 48 20 41  |RIL",1,9,"16TH A|
000002e0  50 52 49 4c 22 2c 30 2c  31 37 2c 22 31 37 54 48  |PRIL",0,17,"17TH|
000002f0  20 41 50 52 49 4c 22 2c  36 00 45 0b 0e 01 83 20  | APRIL",6.E.... |
00000300  36 2c 22 31 38 54 48 20  41 50 52 49 4c 22 2c 35  |6,"18TH APRIL",5|
00000310  2c 30 2c 22 31 39 54 48  20 41 50 52 49 4c 22 2c  |,0,"19TH APRIL",|
00000320  34 2c 30 2c 22 32 30 54  48 20 41 50 52 49 4c 22  |4,0,"20TH APRIL"|
00000330  2c 33 2c 30 2c 22 32 31  53 54 20 41 50 52 49 4c  |,3,0,"21ST APRIL|
00000340  22 2c 32 00 8f 0b 18 01  83 20 30 2c 22 32 32 4e  |",2...... 0,"22N|
00000350  44 20 41 50 52 49 4c 22  2c 31 2c 30 2c 22 32 33  |D APRIL",1,0,"23|
00000360  52 44 20 41 50 52 49 4c  22 2c 30 2c 30 2c 22 32  |RD APRIL",0,0,"2|
00000370  34 54 48 20 41 50 52 49  4c 22 2c 36 2c 30 2c 22  |4TH APRIL",6,0,"|
00000380  32 35 54 48 20 41 50 52  49 4c 22 2c 35 00 00 00  |25TH APRIL",5...|
00000390

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .