Relay-Version: version nyu B notes v1.6 9/18/89; site acf4.NYU.EDU
From: lrb@rrivax.rri.uwo.ca (Lance R. Bailey)
Date: 27 Aug 90 06:54 EDT
Date-Received: 27 Aug 90 12:53 EDT
Subject: schedular part 6 of 6
Message-ID: <915@ria.ccs.uwo.ca>
Path: acf4!cmcl2!phri!rutgers!cs.utexas.edu!news-server.csri.toronto.edu!utgpu!watserv1!ria!rrivax.rri.uwo.ca!lrb
Newsgroups: vmsnet.sources
Organization: Robarts Research Institute -- London Canada Earth
Sender: news@ria.ccs.uwo.ca
Reply-To: lrb@rrivax.rri.uwo.ca
Lines: 66
News-Software: VAX/VMS VNEWS 1.3-4


-+-+-+-+-+-+-+-+ START OF PART 6 -+-+-+-+-+-+-+-+
X                                      atoi(dates`5Bwhichday`5D+6),    /* mda
Vy */
X                                      atoi(dates`5Bwhichday`5D) );  /* year
V */
X
X    wmove(OneDay,2,0); for (j=0;j<80;j++) waddch(OneDay,'-');
X
X    for (i=0; i<NUMSLOTS; i++)
X    `7B   if (!isblanks(daytimer`5Bwhichday`5D`5Bi`5D) )
X        `7B   mstrcpy(lastentry,daytimer`5Bwhichday`5D`5Bi`5D);
X            foundany= 1;
X
X            sprintf(dataline,"%2d:%02d %s ", (i/NUMPERIODS+8-1) % 12+1,
X                                            (i%NUMPERIODS)*(60/NUMPERIODS),
X                                            ( ((i/NUMPERIODS+8) < 12)?"am":"
Vpm")
X                   );
X
X            for (j=i;!strcmp(lastentry,daytimer`5Bwhichday`5D`5Bi`5D)&&i<NUM
VSLOTS;i++);
X            i--;
X`20
X            if (j != i) sprintf(dataline,"%s-- %2d:%02d %2s  ",dataline,
X                                       ((i+1)/NUMPERIODS+8-1) % 12+1,
X                                       ((i+1)%NUMPERIODS)*(60/NUMPERIODS),
X                                       ((((i+1)/NUMPERIODS+8)<12)?"am":"pm")
X                               );
X            else sprintf(dataline,"%s%13c",dataline,' ');
X
X            sprintf(dataline,"%s %s\n",dataline,daytimer`5Bwhichday`5D`5Bi`5
VD);
X            entrynum++;
X
X            if (level*SCREEN_SIZE<=entrynum  &&  entrynum<(level+1)*SCREEN_S
VIZE)
X            `7B   if (!foundone) for (j=0;j<=SCREEN_SIZE;j++)
X                                     `7B wmove(OneDay,j+3,0); wclrtoeol(OneD
Vay); `7D
X
X                j=entrynum-level*SCREEN_SIZE  +3;
X                wmove(OneDay,j,0); wclrtoeol(OneDay);
X                mvwaddstr(OneDay,j, 0 ,dataline);
X                foundone++;
X            `7D
X        `7D
X    `7D
X
X    if (!foundany)
X        for (i=0;i<=SCREEN_SIZE;i++) `7B wmove(OneDay,i+3,0); wclrtoeol(OneD
Vay); `7D
X
X    touchwin(OneDay); wrefresh(OneDay);
X
X    if (!foundone&&foundany)`7Bmessage2("No more entries for this day");retu
Vrn 0;`7D
X    else return 1;
X`7D
X
X/*
X * EOF
X */
$ CALL UNPACK SHOW_DAY.C;51 627781020
$ v=f$verify(v)
$ EXIT