This program allows you to enter in ANY year and any month to see what that year's calendar will look like ------------------- |Su|M|Tu|W|TH|F|Sa| ------------------- | | | | |1 |2|3 | ------------------- |4| 5|6 |7|8 |9|10| ------------------- I'm not that good at ascii pictures but its something to that affect Now I wasn't sure whether to include the leap year for the year 2000 since people I have talked to have said that there won't be one in that year for some reason ???????????????? like because of THE "2000 bug" or something if you have any info on that e-mail me at Cw9000@aol.com or Aolcw@hotmail.com History -------- First I had it go through loops which took time and memory to do and was very sloppy and you couldn't put in a date before 1997 since thats the year it uses as a marker one nice thing was that I had a loop at the end so you could just hit the --> arrow to go to the next month and <-- to get to the previous month but if you put in a year like 3000 it would take a LONG time to display that month so it didn't have a great affect Then I tried a formula to come up with the day the year started so it wouldn't have to "figure out" what the starting day of that year was it would just come up with that number by plugging the year into the formula then going through loops for the month well this worked out alright but some months were comming up wrong Then I tried using a formula for everything The year AND the month no more mr. looping I now had a fast way of getting the values needed to setup the calendar but when it was displaying it it kept coming up with a domain problem I thought it was the ti-82 because I isolated the problem and the values of X and Y were within the domain I could not understand it for the life of me. Finally one day I decided to put the X and Y in a matrix it came up as a domain problem again but this time I went to edit the matrix to see what values were in for X and Y well the problem was that I was dividing a number and coming up with a decimal then multiplying this decimal by the same number for some reason I thought it would come up a whole number since I was dividing the same number I was multiplying. Well I don't remember exactly what I was thinking and what I actually was multiplying and dividing since its been forever since I looked at the program but anyway when you edit a matrix and go to a certain row/column with a value it shows much more of the value than just by recalling that value in the regular text area it always came up a whole value no decimal ( which later I found very helpful that you can put pi in a matrix to see more of the decimal) I found that my X value had many decimal places after it all zeros until finally a 1.Well you can't display decimals on graph that is windowed for whole numbers What I had contemplated and studied for the longest time was fixed with just two integer statements =( --End of History-- So here it is CALENDAR I know there are other programs named calendar but I've found that these just let you input text for a weeks worth of data and you supply the date too Actually I have only seen the TI-83 version of Calendar--assembly but it was nothing like my version of Calendar but even so if this program has been done by someone else please tell me so I may remove it ( actually I have no idea how to remove something but e-mail me at Cw9000@aol.com and tell me how to and I will) well if your impressed at all tell me at; already said; Cw9000@aol.com and also e-mail me if you find any bugs I plan on trying to do this in assembly (for Ash) too hopefully it will be smaller size ?? but I'm JUST STARTING to learn Assembly and it seems to be pretty hard to me nevertheless I'll give it a try SIZE-- prgm 1024 MATRIX[A]--224--------can be deleted-is made durring the program--made it easy to recall values If you don't care about the added year and month your displaying at the bottom just delete after :Text(1,81,"SA") cause all those if/thens take space if you don't have the software to open .82p then here is the code for it NOTE ü's = STO--> the store symbol and some of the > or = may be just > in this text file but I'm not sure if I used any >= or <= or <> I would just download the free software off of www.ti.com even if you don't have a graphlink :ClrHome :Output(4,5,"CALENDAR") :Output(5,2,"BY:CraIG WaLKer") :Output(6,6,"1/5/98") :Pause :0üXmin :94üXmax :1üXscl :0üYmin :62üYmax :1üYscl :CoordOff:RectGC:GridOff:LabelOff:AxesOff :ClrDraw :ClrHome :Output(6,1,"ENTER ENTIRE") :Output(7,1,"NUMBER OF YEAR +") :Output(8,1,"NUMBER OF MONTH" :Input "Year ",G :If G=0 :Then :1998üG:1üM :Else :Input "MOnTH ",M :End :(G/4)=int (G/4)üL :[[0,31][31,28+L][59+L,31][90+L,30][120+L,31][151+L,30][181+L,31][212+L,31][243+L,30][273+L,31][304+L,30][334+L,31]]ü[A] :(G-1997)üX :(X+(int (X/4))+4)-(7(int ((X+(int (X/4))+4)/7)))üD :If D=0:7üD :[A](M,1)üI :[A](M,2)üE :I/7üC :((C-(int C))*7)+DüD :int DüD :D>7üA :D-(A*7)üD :10üH :4+(13*(D-1))üV :For(X,1,E) :int HüH :int VüV :Text(H,V,X) :V+13üV :If V>82 :Then :H+9üH :4üV :End :End :Horizontal 62 :Horizontal 53 :Horizontal 44 :Horizontal 35 :Horizontal 26 :Horizontal 17 :Horizontal 8 :Horizontal 0 :Vertical 0 :Vertical 13 :Vertical 26 :Vertical 39 :Vertical 52 :Vertical 65 :Vertical 78 :Vertical 94 :Text(1,3,"SU") :Text(1,17,"M") :Text(1,29,"TU") :Text(1,43,"W") :Text(1,55,"TH") :Text(1,70,"F") :Text(1,81,"SA") :If M=1 :Then :Text(56,81,"JAN.") :End :If M=2 :Then :Text(56,81,"FEB.") :End :If M=3 :Then :Text(56,81,"MAR.") :End :If M=4 :Then :Text(56,81,"APR.") :End :If M=5 :Then :Text(56,81,"MAY") :End :If M=6 :Then :Text(56,81,"JUN.") :End :If M=7 :Then :Text(56,81,"JULY") :End :If M=8 :Then :Text(56,81,"AUG.") :End :If M=9 :Then :Text(56,81,"SEP.") :End :If M=10 :Then :Text(56,81,"OCT.") :End :If M=11 :Then :Text(56,81,"NOV.") :End :If M=12 :Then :Text(56,81,"DEC.") :End :Text(56,58,G)