home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / friday2.zip / RCAL.ASC < prev    next >
Text File  |  1986-12-16  |  3KB  |  70 lines
  1. *( RCAL    Produces a calendar for a requested year and month )
  2. *(         Created November 1985 by Richard T. Traband)
  3. NEWPAGE
  4. SET COLOR FORE WHITE
  5. SET COLOR BACK BLUE
  6. SET ESCAPE OFF
  7. SET MESSAGES OFF
  8. SET ERROR MESSAGES OFF
  9. SET BELL OFF
  10. SET NULL " "
  11. SET VAR T6 INTEGER; SET VAR T6 = 0
  12. OPEN FRIDAY
  13. FILLIN YEAR USING "Enter the year (1900-2120) or [ENTER] to quit > "
  14. IF YEAR FAILS THEN; QUIT; ENDIF
  15. IF YEAR LT 1900 OR YEAR GT 2120 THEN
  16.          NEWPAGE;WRITE "OUTSIDE DATE RANGE....PRESS ANY KEY TO CONTINUE"
  17.          PAUSE; QUIT TO SHOWCAL
  18. ENDIF
  19. FILLIN MONTH USING "Enter the month   (1-12)   or [ENTER] to quit > "
  20. IF MONTH FAILS THEN; QUIT; ENDIF
  21. IF MONTH LT 1 OR MONTH GT 12 THEN
  22.          NEWPAGE; WRITE "OUTSIDE DATE RANGE...PRESS ANY KEY TO CONTINUE"
  23.          PAUSE; QUIT TO SHOWCAL
  24. ENDIF
  25. NEWPAGE
  26. SET VAR DAYS TEX; SET V DAYS = "SUN MON TUE WED THU FRI SAT"
  27. SET VAR TYPE INT; SET V TYPE = YEARTYPE IN YEARS WHE YEAR = .YEAR
  28. SET POI #3 EOF FOR TYPES WHERE MONTH = .MONTH AND YEARTYPE = .TYPE
  29.          SET VAR T1 = LN1 IN #3
  30.          SET VAR T2 = LN2 IN #3
  31.          SET VAR T3 = LN3 IN #3
  32.          SET VAR T4 = LN4 IN #3
  33.          SET VAR T5 = LN5 IN #3
  34.          SET VAR T6 = LN6 IN #3
  35.          SET VAR L1 = CAL IN SINTAB WHERE LINETYPE = .T1
  36.          SET VAR L2 = CAL IN SINTAB WHERE LINETYPE = .T2
  37.          SET VAR L3 = CAL IN SINTAB WHERE LINETYPE = .T3
  38.          SET VAR L4 = CAL IN SINTAB WHERE LINETYPE = .T4
  39.          SET VAR L5 = CAL IN SINTAB WHERE LINETYPE = .T5
  40.          IF T6 GT 0 THEN
  41.                    SET VAR L6 = CAL IN SINTAB WHERE LINETYPE = .T6
  42.          ELSE
  43.                    CLEAR T6; SET VAR T6 INTEGER
  44.          ENDIF
  45. IF MONTH = 1 THEN; SET VAR MON = "JANUARY"; ENDIF
  46. IF MONTH = 2 THEN; SET VAR MON = "FEBRUARY"; ENDIF
  47. IF MONTH = 3 THEN; SET VAR MON = "  MARCH"; ENDIF
  48. IF MONTH = 4 THEN; SET VAR MON = "  APRIL"; ENDIF
  49. IF MONTH = 5 THEN; SET VAR MON = "  MAY"; ENDIF
  50. IF MONTH = 6 THEN; SET VAR MON = "  JUNE"; ENDIF
  51. IF MONTH = 7 THEN; SET VAR MON = "  JULY"; ENDIF
  52. IF MONTH = 8 THEN; SET VAR MON = " AUGUST"; ENDIF
  53. IF MONTH = 9 THEN; SET VAR MON = "SEPTEMBER"; ENDIF
  54. IF MONTH = 10 THEN; SET VAR MON = "OCTOBER"; ENDIF
  55. IF MONTH = 11 THEN; SET VAR MON = "NOVEMBER"; ENDIF
  56. IF MONTH = 12 THEN; SET VAR MON = "DECEMBER"; ENDIF
  57. NEWPAGE
  58. DRAW CAL WITH ALL
  59. SET NULL -0-
  60. SET MESSAGES ON
  61. SET ERROR MESSAGES ON
  62. SET BELL ON
  63. SET NULL -0-
  64. SET ESCAPE ON
  65. WRITE "PRESS ANY KEY TO RETURN TO APPLICATION MENU" AT 23 18
  66. PAUSE
  67. SET COLOR BACK CYAN
  68. SET COLOR FORE BLUE
  69. return
  70.