this post was submitted on 31 Aug 2023
33 points (100.0% liked)

retrocomputing

176 readers
1 users here now

Discussions on vintage and retrocomputing

founded 1 year ago
MODERATORS
SDF@lemmy.sdf.org
cognitivegears@lemmy.sdf.org
Penkster@lemmy.sdf.org
33
BASIC for the Masses (lemmy.sdf.org)
submitted 1 year ago by peron@lemmy.sdf.org to c/retrocomputing@lemmy.sdf.org
8 comments fedilink hide all child comments
 

You are a BASIC bitch, so type-in and share your BASIC listings here. Any and all BASIC dialects are welcome.

you are viewing a single comment's thread
view the rest of the comments
[–] peron@lemmy.sdf.org 1 points 1 year ago (1 children) 
10 : CLEAR : PAUSE “Mini Moon Age Calculator “
20 : W=694098 : X=29.53 : Z=365.25 : JN=2460202.6 : REM Julian date for last moon on 25/9/2023 at 2:39am
30 : INPUT “DAY:” ; D , “MONTH:” ; M , “YEAR:” ; Y
40 : IF M<=2 LET Y=Y-1 : M=M+12
50 : A=INT(Y/100) : B=INT(A/4) : C=2-A+B : E=INT(Z * (Y+4716))
60 : F=INT(30.6001 * (M+1)) : JD=C+D+E+F-1524.5 : DS=JD-JN
70 : S=(DS/X-INT(DS/X)) * X : S=INT(S+.5)
80 : PRINT “Age of Moon “ ; USING “###.# “ ; S ; “_days” : END

Stay SHARP!

[–] kd5njr@mastodon.sdf.org 1 points 1 year ago

@peron
cool routine.
@guofu : note computation of Julian Date. and then some trig for the periodic part(s)