a December 23, 1980a BASIC-Eb Modified for Osborne MBASIC by Jim Woolley, 6/82Gb This program will display a calendar forb any month from the year 15 A.D. to 20,000 A.D.b This program supports the original change asb announced by Pope Gregory in 1582 and the c change adopted by the British in 1752.Pc Other cultures changed at different times andc some still have not changed. No attempt isc made to support these.c c W04c E0$(): Character to erase screend H0$()"= ": Character to home cursor7d U0$( )(W0)( )Bd W0Jd d E0$;(W01));"CALENDAR FOR ANY MONTH FROM 15 A.D. TO 20000 A.D.": d "Enter the number of the month";Md M(M) U0$;: d O0: O1: O2e M U0$;: 4e M U0$;: Te( "Enter the year";Y: OYwe) Y(Y) U0$;: (e* Y U0$;: (e+ Y N U0$;: (e, YdM O0f- YdM+ YdM@ O1: 7 f2 <Sf7 "Do you want Julian/Anglican(=0) or Gregorian/Catholic(=1)";O0yf8 O0 O0 U0$;: 7f: O0 YdM@+ O2 f; O0 YdM O2 : O0g< E0$: X(M): Y1YX: M1M X: XY1d0gF N4O0(X): N3O0(X): N2(Y1)XgK N1( (M1)): N5(Y1)gP XN1N2N3N4(O0)N5: AX(X)gQ A=0 FOR SUN. THRU 6 FOR SAT.gU : : O2 O0hV O1 O0 (W0));"JULIAN/ANGLICAN":