home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 21 / IOPROG_21.ISO / SOFT / LASERLIB.ZIP / TXCLNDAR.PRG < prev    next >
Encoding:
Text File  |  1991-07-22  |  2.9 KB  |  123 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXCLNDAR.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12. txorient("L")
  13.  
  14. txcolbox(01, 01, 105, 44, 1)    && DRAW CALENDAR BORDER
  15.  
  16. txcolbox(01, 01, 105, 02, 1)    && DRAW BORDER FOR MONTH NAME
  17. _month = CMONTH(DATE())         && CHARACTER MONTH NAME
  18. _year  = STR(YEAR(DATE()),4)    && CHARACTER YEAR
  19. _mo_yr = _month + " " + _year
  20. _col   = (105 - LEN(Alltrim(_mo_yr))) / 2
  21. txcolprint(02, _col, .T., _mo_yr)
  22.  
  23. txcolprint(04, 05, .T., "Sunday")
  24. txcolprint(04, 20, .T., "Monday")
  25. txcolprint(04, 35, .T., "Tuesday")
  26. txcolprint(04, 48, .T., "Wednesday")
  27. txcolprint(04, 63, .T., "Thursday")
  28. txcolprint(04, 80, .T., "Friday")
  29. txcolprint(04, 94, .T., "Saturday")
  30.  
  31. DECLARE week1_[7], week2_[7], week3_[7], week4_[7], week5_[7]
  32. FOR I = 1 TO 5
  33.    _array = "week"+STR(INT(I),1)+"_"
  34.    FOR i2 = 1 TO 7
  35.       &_array[i2] = " "
  36.    NEXT
  37. NEXT
  38.  
  39. txcolbox(03, 01, 105, 02, 1, 10) && DRAW BORDER FOR DAYS OF WEEK
  40.  
  41. FOR I = 13 TO 103 STEP 15
  42.    FOR X = 05 TO 40 STEP 8
  43.       txcolbox(X, I, 03, 02, 1) && DRAW DAY OF MONTH BOX
  44.    NEXT
  45. NEXT
  46.  
  47. FOR I = 1 TO 105 STEP 15
  48.    txcolbox(03, I, 15, 02, 1)   && DRAW DAY DIVIDING COLUMNS
  49.    txcolbox(05, I, 15, 40, 1)   && DRAW DAY DIVIDING COLUMNS
  50. NEXT
  51.  
  52. FOR I = 5 TO 40 STEP 8
  53.    txcolbox(I, 01, 105, 8, 1)   && DRAW DAY DIVIDING ROWS
  54. NEXT
  55.  
  56. _bom   = DAY(DATE() - DAY(DATE()) + 1)
  57. _bdom  = DATE() - DAY(DATE()) + 1
  58. _bndom = DOW(_bdom)
  59.  
  60. IF MONTH(DATE()) = 12           && CHECK FOR DECEMBER
  61.    _eom = CTOD("01/01" + SUBSTR(STR(YEAR(DATE()) + 1, 4), 3, 2) - 1)
  62. ELSE
  63.    _eom = SUBSTR(STR(MONTH(DATE()) + 1, 2), 1, 2)
  64.    _eom = _eom + "/01/" + SUBSTR(STR(YEAR(DATE()), 4), 3, 2)
  65.    _ndays = DAY(CTOD(_eom) - 1)
  66.    _deom = CTOD(_eom) - 1
  67. ENDIF
  68.  
  69. I = 1
  70. FOR i2 = _bndom TO 7
  71.    week1_[i2] = STR(I, 2)
  72.    I = I + 1
  73. NEXT
  74. FOR i2 = 1 TO 7
  75.    week2_[i2] = STR(I, 2)
  76.    I = I + 1
  77. NEXT
  78. FOR i2 = 1 TO 7
  79.    week3_[i2] = STR(I, 2)
  80.    I = I + 1
  81. NEXT
  82. FOR i2 = 1 TO 7
  83.    IF I <= _ndays
  84.       week4_[i2] = STR(I, 2)
  85.    ENDIF
  86.    I = I + 1
  87. NEXT
  88.  
  89. IF I <= _ndays
  90.    FOR i2 = 1 TO 7
  91.       IF I <= _ndays
  92.          week5_[i2] = STR(I, 2)
  93.       ENDIF
  94.       I = I + 1
  95.    NEXT
  96. ENDIF
  97.  
  98. IF I <= _ndays
  99.    FOR i2 = 1 TO 7
  100.       IF I <= _ndays
  101.          week1_[i2] = STR(I, 2)
  102.       ENDIF
  103.       I = I + 1
  104.    NEXT
  105. ENDIF
  106.  
  107. i2 = 1
  108. FOR I = 6 TO 42 STEP 8
  109.    _array = "week"+STR(INT(i2),1)+"_"
  110.    txcolprint(I, 13, .T., &_array[1])
  111.    txcolprint(I, 28, .T., &_array[2])
  112.    txcolprint(I, 43, .T., &_array[3])
  113.    txcolprint(I, 58, .T., &_array[4])
  114.    txcolprint(I, 73, .T., &_array[5])
  115.    txcolprint(I, 88, .T., &_array[6])
  116.    txcolprint(I,103, .T., &_array[7])
  117.    i2 = i2 + 1
  118. NEXT
  119.  
  120. txclear()
  121.  
  122. *: EOF: TXCLNDAR.PRG
  123.