home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DATABASE / KPHANDYP.LBR / SAYMONTH.CZD / SAYMONTH.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  86 lines
  1. STOR date() to today
  2. STOR val($(today,4,2))to blink
  3. STOR date() to hold
  4. DO WHIL offset<=9
  5. STOR month+'/01/'+year to today
  6. SET date to &today
  7. DO saytoday
  8. DO CASE
  9. CASE factor=1
  10. STOR column+57 to column
  11. CASE factor=2
  12. STOR column+60 to column
  13. CASE factor=3
  14. STOR column+63 to column
  15. CASE factor=4
  16. STOR column+66 to column
  17. CASE factor=5
  18. STOR column+69 to column
  19. CASE factor=6
  20. STOR column+72 to column
  21. CASE factor=0
  22. STOR column+75 to column
  23. ENDC
  24. IF val(month)=2
  25. IF val(year)/4=int(val(year)/4)
  26. STOR 29 to last
  27. ELSE
  28. STOR 28 to last
  29. ENDI
  30. ELSE
  31. IF val(month)=9 .or. val(month)=4 .or. val(month)=6 .or. val(month)=11
  32. STOR 30 to last
  33. ELSE
  34. STOR 31 to last
  35. ENDI
  36. ENDI
  37. STOR 1 to count
  38. STOR 1+offset to row
  39. STOR title+', 19'+year to title
  40. @ row,xpos+58+((21-len(title))/2) say title
  41. STOR row+2 to row
  42. @ row,xpos+58 say 'S'
  43. @ row,xpos+61 say 'M'
  44. @ row,xpos+64 say 'T'
  45. @ row,xpos+67 say 'W'
  46. @ row,xpos+70 say 'T'
  47. @ row,xpos+73 say 'F'
  48. @ row,xpos+76 say 'S'
  49. STOR row+1 to row
  50. DO WHIL count<=last
  51. IF count=blink .and. offset=0 .and. fmonth='T'
  52. SET intensity off
  53. ENDI
  54. @ row,column say count using '99'
  55. IF count=blink .and. offset=0 .and. fmonth='T'
  56. SET intensity on
  57. ENDI
  58. STOR count+1 to count
  59. STOR column+3 to column
  60. IF column>xpos+75
  61. STOR xpos+57 to column
  62. STOR row+1 to row
  63. ENDI
  64. ENDD
  65. STOR offset+9 to offset
  66. STOR mo+1 to mo
  67. IF mo<10
  68. STOR str(mo,1,0) to month
  69. STOR '0'+month to month
  70. ELSE
  71. IF mo>12
  72. STOR '01' to month
  73. STOR str(val(year)+1,2,0) to year
  74. ELSE
  75. STOR str(mo,2,0) to month
  76. ENDI
  77. ENDI
  78. STOR xpos to column
  79. IF sixmonth='T'
  80. SET intensity off
  81. ENDI
  82. ENDD
  83. SET date to &hold
  84. STOR val($(hold,1,2)) to mo
  85. RETU
  86.