Z * CODEWORKS 3838 S.WARNER ST. TACOMA WA 98409_ * 206 475-2219 : PLEASE DO NOT REMOVE THESE CREDIT LINES.6d ** CAL.BAS * WRITTEN FOR CODEWORKS MAGAZINE **ci * Adapted for Tandy 600 by Dave Thomas: I P:DA$DA$"-": I A$() ,: (DA$,, );" The CodeWorks ";(DA$,,!); ,:"C A L E N D A R P R O G R A M"6 ,:"prints a calendar for any year from 1753 to 3999"A DA$;G b ** INITIALIZATION ** 012345678901234567890123456789012345678901234567890 D$" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031) 012345678901234567890123456789012345678901234567890f FM$" \\":HW$" SUN MON TUE WED THU FRI SAT" H$" \ \ ####" "Break to end program." "FOR WHAT YEAR DO YOU WANT THE CALENDAR";Y  ** GO PRINT THE YEAR HEADING ** " 2 , ** PRINT THE CALENDAR **F 6 MB  ` @MCMB:YCY: &:W1W| JMCMB:YCY: &:W2W TMCMB: :M1$MY$ ^MCMB: :M2$MY$ h" ": H$;M1$;Y;M2$;Y r HW$;HW$ |MCMB: b:D1DM:MCMB: b:D2DM  I  " ";C  J :E1((I)JW1)w ((I)J)D1W1 DY$" ": DY$(D$,E1,)  FM$;DY$;  J " ";  J :E2((I)JW2) ((I)J)D2W2 DY$" ": DY$(D$,E2,)  FM$;DY$;  J " "!  I*  MB4  U  ** DAY OF THE WEEK ROUTINEz & MC 0 : MCMC :YCYC 0WMC(@`(MC))YC(YC)(YCd)(YC) :WW(W) DWW:WW(W) NX ** NUMBER OF DAYS IN THE MONTH **-b MC v : LPl(Y(Y)) ((Y(Yd)d))((Y(Y))) LP : LPvM$"312831303130313130313031"DM((M$,MC,)) MC DMDMLP ** MONTH OF THE YEAR **0 012345678901234567890123456789012345678901234567890MN$"JANUARY FEBRUARY MARCH APRIL MAY " "JUNE JULY AUGUST SEPTEMBEROCTOBER " "NOVEMBER DECEMBER "MY$(MN$,(MC),): ** PRINT YEAR HEADING ROUTINE ** YD$(Y) I 6DG(I)((YD$,I,))0> IL L V  ST$_I6n  I  *Z$(I)(ST$,I6,)4I6I6> IH D : D );Z$(DG(D));: DM ""R L\" ":" "'f* 123456123456123456123456123456123456123456123456123456123456ip . WW WW WWW WWWW W WWWW WWWW WWWW WWWW WWWWz .W W W W W W W W W W W W W .W W W W WW W W W W W W W W W/ .W W W W WWW WWWW WWWW WWWW W WWWW WWWWq .W W W W WW W W W W W W W W .W W W W W W W W W W W W W . WW WWW WWWW WWWW W WWWW WWWW W WWWW WWW