Re: [M100] Yet Another Calendar Program...

[Ken Pettit]

Hey Guys,

Well, the email I sent *wasn't* really a BASIC program but rather a math 
formula.  The M100 BASIC doesn't have a function called "Floor" ... it 
is called "INT".  But also I noticed the reference on Wikipedia that I 
was looking at was for Eastern Orthodox Easter date, not modern day 
Gregorian.


The formula for modern day Gregorian is actually much more compilicated 
involving 11 intermediate variables.  While writing this equation out 
long-hand using only the year variable (Y) would look super impressive, 
it would be quite long and not very efficient in terms of computations.


So for completeness (being the programmer that I am), I coded and tested 
it in M100 BASIC:


10 DIMM$[12]
15 DATA 
"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"

20 FORX=1TO12:READM$[X]:NEXT
25 INPUT"Year (0 to quit)";Y
30 IFY=0THENEND
35 A=YMOD19
40 B=INT(Y/100):C=YMOD100
45 D=INT(B/4)  :E=BMOD4
50 G=INT((8*B+13)/25)
55 H=(19*A+B-D-G+15)MOD30
60 I=INT(C/4)  :K=CMOD4
70 L=(32+2*E+2*I-H-K)MOD7
75 M=INT((A+11*H+19*L)/433)
80 N=INT((H+L-7*M+90)/25)
85 P=(H+L-7*M+33*N+19)MOD32
90 PRINT "Easter day: ";M$[N];P
95 GOTO25

Ken

On 8/29/21 6:25 PM, Joshua O'Keefe wrote:

Ken,

   You have unbalanced parenthesis. Can you please correct?

?SN ERROR
READY

Re: [M100] Yet Another Calendar Program...

[Joshua O'Keefe]

> Ken,
> 
>   You have unbalanced parenthesis. Can you please correct?

?SN ERROR 
READY

Re: [M100] Yet Another Calendar Program...

[Ken Pettit]

Hey Peter,

Yes,  it's missing an open parenthesis just after the subtraction. 
Should be:


D = (19*(Y mod 19) + 15) mod 30 + (2 * (Y mod 4) + 4 * (Y mod 7) - 
((19*(Y mod 19) + 15) mod 30) + 34) mod 7 + 127


Ken

On 8/29/21 5:28 PM, Peter Noeth wrote:

Ken,

  You have unbalanced parenthesis. Can you please correct?

Regards,

Peter


Easter (according to Wikipedia):

Y = Year
D = (19*(Y mod 19) + 15) mod 30 + (2 * (Y mod 4) + 4 * (Y mod 7) -
(19*(Y mod 19) + 15) mod 30) + 34) mod 7 + 127

Month = floor( D / 31)
Day = (D mod 31) + 1

What, that didn't just roll off the top of your head back in the
80's?   :D

Ken

Re: [M100] Yet Another Calendar Program...

[Peter Noeth]

Ken,

  You have unbalanced parenthesis. Can you please correct?

Regards,

Peter


> Easter (according to Wikipedia):
>
> Y = Year
> D = (19*(Y mod 19) + 15) mod 30 + (2 * (Y mod 4) + 4 * (Y mod 7) -
> (19*(Y mod 19) + 15) mod 30) + 34) mod 7 + 127
>
> Month = floor( D / 31)
> Day = (D mod 31) + 1
>
> What, that didn't just roll off the top of your head back in the 80's?   :D
>
> Ken
>
>

Re: [M100] Yet Another Calendar Program...

[Peter Noeth]

The internet for "the common man" didn't exist then, I was working with
this information from The Farmers Almanac:

*Easter is observed on the Sunday following the Paschal Full Moon, which is
the first full Moon that occurs on or after the March equinox*.

It was determining the "Paschal Full Moon" that was the problem. My
algorithm would be a week off, sometimes, but not always. Even then
Compuserve had no algorithm as you indicated. I will have to test this to
see if it is always correct.

Regards,

Peter

On 8/28/21 3:08 PM, Ken Pettit wrote:
>
> Easter (according to Wikipedia):
>
> Y = Year
> D = (19*(Y mod 19) + 15) mod 30 + (2 * (Y mod 4) + 4 * (Y mod 7) -
> (19*(Y mod 19) + 15) mod 30) + 34) mod 7 + 127
>
> Month = floor( D / 31)
> Day = (D mod 31) + 1
>
> What, that didn't just roll off the top of your head back in the 80's?   :D
>
> Ken
>

Re: [M100] M100 Digest, Vol 128, Issue 22

[Tim Woodland]

David,

I would like to request a set please!

I can PayPal you to cover shipping etc.

Thank you,
Tim Woodland


On Sun, Aug 29, 2021, 4:51 PM  wrote:

> Send M100 mailing list submissions to
> m100@lists.bitchin100.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.bitchin100.com/listinfo.cgi/m100-bitchin100.com
> or, via email, send a message with subject or body 'help' to
> m100-requ...@lists.bitchin100.com
>
> You can reach the person managing the list at
> m100-ow...@lists.bitchin100.com
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of M100 digest..."
> Today's Topics:
>
>1. Re: Yet Another Calendar Program... (Peter Noeth)
>2. Re: Yet Another Calendar Program... (Ken Pettit)
>3. Re: Model 100 folding Leg Extensions (3D Printable)
>   (David Grissom)
>
>
>
> -- Forwarded message --
> From: Peter Noeth 
> To: Model 100 Discussion 
> Cc:
> Bcc:
> Date: Sat, 28 Aug 2021 14:27:36 -0700
> Subject: Re: [M100] Yet Another Calendar Program...
> A printed wall calendar was one of my first TRS-80 16K Model 1 Level II
> (then a 48K with expansion Interface) programs after I designed an
> interface to the IBM Selectric I/O Writer I purchased as surplus where I
> was working at the time. I could never get the bizarre algorithm correct to
> calculate the religious Easter observance date though. The other holidays
> were no problem.
>
> Regards,
>
> Peter
>
>
>
>
> -- Forwarded message --
> From: Ken Pettit 
> To: m100@lists.bitchin100.com
> Cc:
> Bcc:
> Date: Sat, 28 Aug 2021 15:08:56 -0700
> Subject: Re: [M100] Yet Another Calendar Program...
> On 8/28/21 2:27 PM, Peter Noeth wrote:
> > A printed wall calendar was one of my first TRS-80 16K Model 1 Level
> > II (then a 48K with expansion Interface) programs after I designed an
> > interface to the IBM Selectric I/O Writer I purchased as surplus
> > where I was working at the time. I could never get the
> > bizarre algorithm correct to calculate the religious Easter observance
> > date though. The other holidays were no problem.
> >
>
> Easter (according to Wikipedia):
>
> Y = Year
> D = (19*(Y mod 19) + 15) mod 30 + (2 * (Y mod 4) + 4 * (Y mod 7) -
> (19*(Y mod 19) + 15) mod 30) + 34) mod 7 + 127
>
> Month = floor( D / 31)
> Day = (D mod 31) + 1
>
> What, that didn't just roll off the top of your head back in the 80's?   :D
>
> Ken
>
>
>
>
> -- Forwarded message --
> From: David Grissom 
> To: "m...@bitchin100.com" 
> Cc:
> Bcc:
> Date: Sun, 29 Aug 2021 12:18:10 -0500
> Subject: Re: [M100] Model 100 folding Leg Extensions (3D Printable)
>
> Chris,
>
>
>
> I am in the process of modifying the files slightly to strengthen the
> hinge as well as make them easier to print.  I’ve done a number of
> iterations since I first posted this last week.
>
>
>
> I found if I printed the leg facing 1 way on my printer it printed well
> and the hinge would break as required.
>
> However, I printed facing 180 deg. the hinge would not break easily.
>
>
>
> Either way, tweaking was needed.
>
>
>
> If you would like a set to test let me know, and I will drop some in the
> mail.  Note:  I am not making these to sell.  Just a fun hobby.
>
>
>
> For anyone interested.  I expect to upload the newest versions to
> Thingiverse of the printable files in a day or so.
>
>
>
> TRS-80 Model 100 Custom Folding Leg Extensions by dgrissom - Thingiverse
> 
>
>
>
> David G
>
>
>
> Sent from Mail  for
> Windows
>
>
>
> *From: *Chris Fezzler 
> *Sent: *Saturday, August 28, 2021 11:19 AM
> *To: *m...@bitchin100.com
> *Subject: *Re: [M100] Model 100 folding Leg Extensions (3D Printable)
>
>
>
> If someone makes a batch, I'd buy a few sets.
>
>
>
> On Sunday, August 22, 2021, 12:47:20 AM EDT, David Grissom <
> dgris...@knology.net> wrote:
>
>
>
>
>
> Been playing with my 3D Printer too much…
>
>
>
> I’ve used pencils, plastic coat hangers and other materials to make let
> extensions for my Model 100.
>
>
>
> I designed a folding leg extension.  This allows me to keep the legs on
> the computer when I store it in its plastic slip case.  No more lost peg
> legs for me. They open and lock at around 40mm (1.5 inches).  Pictures are
> on the site below.
>
>
>
> Remember this is a work in progress.  Since the object is fairly small it
> may take more tweaking to work with every printer and filament type.
>
>
>
> Comment and Remixes are welcome.  This is fun project for me!
>
>
>
> Here is a link:
>
>
>
> TRS-80 Model 100 Custom Folding Leg Extensions by dgrissom - Thingiverse
> 
>
>
>
> Please excuse if I get multiple posts.  Been have email woes today 
>
>
>
> David Grissom
>
>
>
> Sent from Mail  for
> Windows
>
>
>
>
> 

Re: [M100] Model 100 folding Leg Extensions (3D Printable)

[David Grissom]

Chris,

I am in the process of modifying the files slightly to strengthen the hinge as 
well as make them easier to print.  I’ve done a number of iterations since I 
first posted this last week.

I found if I printed the leg facing 1 way on my printer it printed well and the 
hinge would break as required.
However, I printed facing 180 deg. the hinge would not break easily.  

Either way, tweaking was needed.

If you would like a set to test let me know, and I will drop some in the mail.  
Note:  I am not making these to sell.  Just a fun hobby.

For anyone interested.  I expect to upload the newest versions to Thingiverse 
of the printable files in a day or so.

TRS-80 Model 100 Custom Folding Leg Extensions by dgrissom - Thingiverse

David G

Sent from Mail for Windows

From: Chris Fezzler
Sent: Saturday, August 28, 2021 11:19 AM
To: m...@bitchin100.com
Subject: Re: [M100] Model 100 folding Leg Extensions (3D Printable)

If someone makes a batch, I'd buy a few sets.

On Sunday, August 22, 2021, 12:47:20 AM EDT, David Grissom 
 wrote: 


Been playing with my 3D Printer too much…
 
I’ve used pencils, plastic coat hangers and other materials to make let 
extensions for my Model 100.
 
I designed a folding leg extension.  This allows me to keep the legs on the 
computer when I store it in its plastic slip case.  No more lost peg legs for 
me. They open and lock at around 40mm (1.5 inches).  Pictures are on the site 
below.
 
Remember this is a work in progress.  Since the object is fairly small it may 
take more tweaking to work with every printer and filament type.
 
Comment and Remixes are welcome.  This is fun project for me!
 
Here is a link:  
 
TRS-80 Model 100 Custom Folding Leg Extensions by dgrissom - Thingiverse
 
Please excuse if I get multiple posts.  Been have email woes today 
 
David Grissom
 
Sent from Mail for Windows