Re: [M100] Yet Another Calendar Program...
Hey Peter, Yeah, BASIC seems to know standard arithmetic precedence. And now that I think about it, I guess I really didn't need to read in ALL of the months to M$ array ... I don't recall ever celebrating Easter in December :) Ken On 8/30/21 4:52 PM, Peter Noeth wrote: Thanks Ken for the update. In looking at this I was at first a little concerned about the arithmetic precedence on lines 70 to 85, as there were not a lot of parentheses to force desired action, but it works !! Good to have in the 'ole toolbox. Regards, Peter On 8/29/21 09:30 PM, Ken Pettit wrote: 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
Re: [M100] Yet Another Calendar Program...
Thanks Ken for the update. In looking at this I was at first a little concerned about the arithmetic precedence on lines 70 to 85, as there were not a lot of parentheses to force desired action, but it works !! Good to have in the 'ole toolbox. Regards, Peter On 8/29/21 09:30 PM, Ken Pettit wrote: > 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 > >
Re: [M100] Model 100 folding Leg Extensions (3D Printable)
Thanks for everyone’s interest in this little project. I’m pretty satisfied with the current uploaded versions. Anyone is welcome to go to the site to review them. If you have a 3D printer available have at it 😊 Thing files for TRS-80 Model 100 Custom Folding Leg Extensions by dgrissom - Thingiverse If you don’t have a 3D printer, Greg at Arcadeshopper.com (an active member of this mailing list) is offering them on his site. https://arcadeshopper.com/wp#!/David-Grissoms-folding-leg-extensions/p/388850050/category=0 If you decide to purchase a set or 2 it helps our community as Greg supports and supplies items to a number of vintage computers and game machines. Browse around while you are there, you may find something else you need! Thanks again, David Grissom Sent from Mail for Windows From: Tim Woodland Sent: Sunday, August 29, 2021 6:16 PM To: m100@lists.bitchin100.com Subject: Re: [M100] M100 Digest, Vol 128, Issue 22 David, I would like to request a set please! I can PayPal you to cover shipping etc. Thank you, Tim Woodland 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 ___ M100 mailing list M100@lists.bitchin100.com http://lists.bitchin100.com/listinfo.cgi/m100-bitchin100.com
[M100] VT100 like ESP32 device with a lot of features
I stumbled on this cool little device last night, hadn't noticed it mentioned here so I figured I'd share. It's a DIsplay Controller / Emulator and ANSI/VT Terminal all rolled into one made by FabGL. https://github.com/fdivitto/FabGL https://www.youtube.com/watch?v=Ww_pH_ZOLqU Has a pretty extensively documented API for working with the graphics library, some cool emulation demos too. Looks relatively easy to build and although out of stock, the author has some very reasonable prices on his prefab stuff. ($16-40) Could be some fun, Brian