home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_B.d64 / calendar (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  85 lines
  1. 0 rem *********************************
  2. 1 rem *** origin of program unknown ***
  3. 2 rem *********************************
  4. 5 poke53280,11:poke53281,12:poke646,0
  5. 10 rem program-calendar
  6. 20 print"[147]this program prints the calendar for"
  7. 25 print
  8. 30 print"any month in the twentieth century."
  9. 50 dimc(7,6)
  10. 60 restore
  11. 65 print""
  12. 70 input"name of month required";m$
  13. 75 print"
  14. 80 [133]"year required (4 digits)";y
  15. 85 [153]""
  16. 90 [153]"caculating-please wait...."
  17. 100 d$[178]"montuewenthufrisatsun"
  18. 110 [143] get number of days
  19. 120 m[178]0
  20. 130 [135]q$,f,d
  21. 140 m[178]m[170]1
  22. 150 [139]m[177]12[167][153]:[153]"invalid month!!":[137]60
  23. 160 [139][200](m$,3)[179][177][200](q$,3)[167]130
  24. 165 [139]y[179]1901[167][153]:[153]"invalid year!!":[137]60
  25. 170 y[178]y[171]1900
  26. 180 l[178][181](y[173]4)
  27. 190 of[178]y[170]l
  28. 200 [139]y[171][181](y[173]4)[172]4[178]0[175]m[179]3[167]of[178]of[171]1
  29. 210 [139]y[171][181](y[173]4)[172]4[178]0[175]m[178]2[167] d[178]29
  30. 220 of[178]of[171][181](of[173]7)[172]7
  31. 230 f[178]f[170]of
  32. 240 f[178]f[171][181](f[173]7)[172]7
  33. 250 [139]f[178]0[167]f[178]7
  34. 260 [129]i[178]1[164]f[171]1
  35. 270 c(i,1)[178]0
  36. 280 [130]i
  37. 290 dy[178]1
  38. 300 [129]i[178]f[164]7
  39. 310 c(i,1)[178]dy
  40. 320 dy[178]dy[170]1
  41. 330 [130]i
  42. 340 [129]j[178]2[164]6
  43. 350 [129]i[178]1[164]7
  44. 360 c(i,j)[178]dy
  45. 370 dy[178]dy[170]1
  46. 380 [139]dy[177]d[167]i[178]7:j[178]6:[137]390
  47. 390 [130]i
  48. 400 [130]j
  49. 410 [141]1000:[153]"on"
  50. 420 [153]"";m$;"   ";y[170]1900;""
  51. 430 [129]i[178]1[164]7
  52. 440 [153]"   ";[202](d$,(i[171]1)[172]3[170]1,3)
  53. 450 [130]i
  54. 460 [153]"";
  55. 470 [129]j[178]1[164]6
  56. 480 [129]i[178]1[164]7
  57. 485 c$[178][196](c(i,j))
  58. 486 [139][195](c$)[178]2[167]c$[178]" "[170]c$:[137]490
  59. 490 [139]c(i,j)[179][177]0[167][153]c$;"cmdcmdcmd";
  60. 495 [139]c(i,j)[178]0[167][153]"   ";"cmdcmdcmd";
  61. 500 [130]i
  62. 510 [153]"ononononononon";
  63. 520 [130]j
  64. 521 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]"another one?  type y or n:"
  65. 522 [161]q$
  66. 523 [139]q$[178]""[167]522
  67. 524 [139]q$[179][177]"y"[175]q$[179][177]"n"[167]522
  68. 525 [139]q$[178]"y"[167][138]
  69. 526 [129]pause[178]0[164]500:[130]pause
  70. 527 [153]:[153]"goodbye":[141] 1000:[128]
  71. 540 [131]"january",1,31,"february",4,28,"march",4,31,"april",7,30,"may",2,31
  72. 550 [131]"june",5,30,"july",7,31,"august",3,31,"september",6,30,"october",1,31
  73. 560 [131]"november",4,30,"december",6,31,"",,
  74. 999 [143] fancy screen clearer by a gale
  75. 1000 [129]t[178]0 [164] 12
  76. 1010 [151] 781,t[172]2:[158] 59903
  77. 1020 [129] h[178]1 [164] 30:[130] h
  78. 1030 [130] t
  79. 1040 [129] t[178]0 [164] 11
  80. 1050 [151] 781,(t[172]2)[170]1:[158] 59903
  81. 1060 [129] h[178]1 [164] 30 :[130] h
  82. 1070 [130] t
  83. 1080 [153][199](147)
  84. 1090 [142]
  85.