home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / module64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  44 lines
  1. 1 print"[147]"
  2. 10 goto 1000
  3. 20 ly = 0
  4. 30 d = val(mid$(cc$,int(yr/100)+2,1))
  5. 35 l = yr - int(yr/100)*100
  6. 40 d = d+l:d = d + int(l/4) + val(mid$(mc$,mn,1))
  7. 50 d=d+1:if (yr/4-int(yr/4))=0 and mn<3then d=d-1:ly=1
  8. 60 d=d-int(d/7)*7+1:if d>6 then d=0
  9. 70 printchr$(19):print:print:print:print:c=d:a=0:r$=chr$(13)
  10. 75 m=val(mid$(md$,(mn-1)*2+1,2)):if ly=1 and mn=2 then m=m+1
  11. 80 print spc(2+5*c);:for l=c to 6:a=a+1:if a>m then l=7:goto100
  12. 85 if a>m then l=7:goto100
  13. 87 if a=dy then printchr$(28);
  14. 90 print right$(" "+str$(a),2);spc(3);
  15. 100 print chr$(5);:next:print r$;r$:c=0:if a<m then 80
  16. 110 print chr$(19):for l=1 to 23:print:next:print spc(13);"press  any key"
  17. 120 geta$:if a$="" then 120
  18. 130 return
  19. 999 end
  20. 1000 dim mn$(12)
  21. 1010 cc$="012345678987654364206420"
  22. 1020 mc$="033614625035":md$="312831303130313130313031"
  23. 1030 mn$(1)="january":mn$(2)="february"
  24. 1040 mn$(3)="march":mn$(4)="april"
  25. 1050 mn$(5)="may":mn$(6)="june"
  26. 1060 mn$(7)="july":mn$(8)="august"
  27. 1070 mn$(9)="september":mn$(10)="october"
  28. 1080 mn$(11)="november":mn$(12)="december"
  29. 1085 poke53280,14:poke53281,6
  30. 1090 gosub 2040
  31. 1100 sys 49152,"mod#3":gosub20 rem get date input
  32. 1110 sys 49152,"mod#1":gosub20 rem print grid
  33. 1120 sys 49152,"mod#2":gosub20 rem print days
  34. 1130 goto1100
  35. 2000 data 169,3,141,131,192,169,232,141,130,192,32,84,192,165,251,141,132
  36. 2005 data 192,165,252,141,133,192,32,253,174,169,1,166,186,168,32,186,255
  37. 2010 data 32,158,173,169,13,208,5,162,22,76,55,164,32,166,182,32,189
  38. 2015 data 255,169,0,32,213,255,169,3,141,131,192,169,231,141,130,192,32
  39. 2020 data 84,192,173,132,192,160,0,145,251,173,133,192,200,145,251,96,169
  40. 2025 data 8,133,252,169,1,133,251,160,2,177,251,205,130,192,208,9,200
  41. 2030 data 177,251,205,131,192,208,1,96,160,0,177,251,72,200,177,251,133
  42. 2035 data 252,104,133,251,165,252,201,0,208,219,96,231,3,170,9,0
  43. 2040 m=49152:forl=0to132:reada:pokem+l,a:next:return
  44.