Home page  Up a level  Small Calendar Display File Source  Small Calendar RPG Source

Small Calendar Display File Source

      *********************************************************************
      ***   FILE NAME: CALDF                                            ***
      ***  WRITTEN BY: John Daily                                       ***
      *** DESCRIPTION:�Display small calendar on screen.                ***
      ***                                                               ***
      *** Copyright 1994 by John H. Daily III                           ***
      *********************************************************************
      *** RECORD FORMATS:                                               ***
      ***    Scrn01   - monthly calendar                                ***
      *********************************************************************
      *** INDICATOR SUMMARY:                                            ***
      ***    01 - 42  - reverse image for calendar day and also         ***
      ***         position cursor for selected day                      ***
      ***                                                               ***
      *** FUNCTION KEYS:                                                ***
      ***    F3 - exit program                                          ***
      ***   F12 - cancel                                                ***
      ***                                                               ***
      ***    65 - roll calendar/subfile up                              ***
      ***    66 - roll calendar/subfile down                            ***
      *********************************************************************
     A                                      DSPSIZ(24 80 *DS3)
     A CHGINPDFT
     A HELP
     A ALTHELP(CA01)
     A CF02
     A CF03
     A CF04
     A CF05
     A CF06
     A CF07
     A CF08
     A CF12
     A CF13
     A CF14
     A CF15
     A CF16
     A CF17
     A CF18
     A CF19
     A CF20
     A CF21
     A CF22
     A CF24
     A          R SCRN01
     A                                      TEXT('Display an on-screen calendar-
     A                                       for one month')
     A ROLLUP
     A ROLLDOWN
     A                                      WINDOW(12 54 8 20 *NOMSGLIN)
     A            S1MNTHYEAR    14A  O  1  4DSPATR(HI)
     A                                  2  1'Su Mo Tu We Th Fr Sa'
     A DSPATR(UL)
     A            @DAY1          2Y 0B  3  1DSPATR(PR)
     A  01                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY2          2Y 0B  3  4DSPATR(PR)
     A  02                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY3          2Y 0B  3  7DSPATR(PR)
     A  03                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY4          2Y 0B  3 10DSPATR(PR)
     A  04                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY5          2Y 0B  3 13DSPATR(PR)
     A  05                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY6          2Y 0B  3 16DSPATR(PR)
     A  06                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY7          2Y 0B  3 19DSPATR(PR)
     A  07                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY8          2Y 0B  4  1DSPATR(PR)
     A  08                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY9          2Y 0B  4  4DSPATR(PR)
     A  09                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY10         2Y 0B  4  7DSPATR(PR)
     A  10                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY11         2Y 0B  4 10DSPATR(PR)
     A  11                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY12         2Y 0B  4 13DSPATR(PR)
     A  12                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY13         2Y 0B  4 16DSPATR(PR)
     A  13                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY14         2Y 0B  4 19DSPATR(PR)
     A  14                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY15         2Y 0B  5  1DSPATR(PR)
     A  15                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY16         2Y 0B  5  4DSPATR(PR)
     A  16                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY17         2Y 0B  5  7DSPATR(PR)
     A  17                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY18         2Y 0B  5 10DSPATR(PR)
     A  18                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY19         2Y 0B  5 13DSPATR(PR)
     A  19                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY20         2Y 0B  5 16DSPATR(PR)
     A  20                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY21         2Y 0B  5 19DSPATR(PR)
     A  21                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY22         2Y 0B  6  1DSPATR(PR)
     A  22                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY23         2Y 0B  6  4DSPATR(PR)
     A  23                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY24         2Y 0B  6  7DSPATR(PR)
     A  24                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY25         2Y 0B  6 10DSPATR(PR)
     A  25                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY26         2Y 0B  6 13DSPATR(PR)
     A  26                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY27         2Y 0B  6 16DSPATR(PR)
     A  27                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY28         2Y 0B  6 19DSPATR(PR)
     A  28                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY29         2Y 0B  7  1DSPATR(PR)
     A  29                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY30         2Y 0B  7  4DSPATR(PR)
     A  30                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY31         2Y 0B  7  7DSPATR(PR)
     A  31                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY32         2Y 0B  7 10DSPATR(PR)
     A  32                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY33         2Y 0B  7 13DSPATR(PR)
     A  33                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY34         2Y 0B  7 16DSPATR(PR)
     A  34                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY35         2Y 0B  7 19DSPATR(PR)
     A  35                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY36         2Y 0B  8  1DSPATR(PR)
     A  36                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY37         2Y 0B  8  4DSPATR(PR)
     A  37                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY38         2Y 0B  8  7DSPATR(PR)
     A  38                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY39         2Y 0B  8 10DSPATR(PR)
     A  39                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY40         2Y 0B  8 13DSPATR(PR)
     A  40                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY41         2Y 0B  8 16DSPATR(PR)
     A  41                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A            @DAY42         2Y 0B  8 19DSPATR(PR)
     A  42                                  DSPATR(RI)
     A                                      EDTWRD('  ')
     A          R SCRN02
     A ASSUME
     A                                  8 19' '