.

. Module Name: agenda_subs.inc

. Description: Called Subroutines Module

.

. Revision History:

.

* File I/O Routines

. APPOINTMENT FILE

. Write Agenda Appointment Record By Key and Insert The Aim Key

AG1010

FILEPI 2;AGENDA

WRITE AGENDA,KEY17;KEY17,ENDHOUR,ENDMIN,STIME,ETIME:

TPOS,NBLOCKS,SECFLAG,TFLAG,DATA

INSERT AGENDAIM

RETURN

AG1090

FILEPI 1;AGENDA

DELETE AGENDA,KEY17

GOTO INTERR IF OVER This was a call prior to putting into this

. Called Routine. It has been changed to a

. GOTO to maintain the same stack level when

. entering INTERR

RETURN

. End of APPOINTMENT FILE I/O

. NOTE FILE

. Write Agenda Note Record By Key and Insert The Aim Key

AG2010

FILEPI 2;NOTEFILE

WRITE NOTEFILE,KEY20;KEY20,DATE,TIME,DATA

INSERT NOTEFILA

RETURN

. Delete Agenda Appointment Record By Key

AG2090

FILEPI 1;NOTEFILE

DELETE NOTEFILE,KEY20

GOTO INTERR IF OVER // This was a call prior to putting into this

. // Called Routine. It has been changed to a

. // GOTO to maintain the same stack level when

. // entering INTERR

RETURN

. End of NOTE File I/O

. SCRATCH FILE

. Open SCRATCH File

AG9000

COMPARE ONE,SWITCHI // IS SCRATCHI FILE OPEN ?

CALL AG9005 IF EQUAL // YES, CLOSE IT NOW

TRAP TRAPIO IF IO

PREP SCRATCHI,FSW,FSW,"6","26"

TRAPCLR IO

MOVE ONE,SWITCHI // FILE IS OPEN

RETURN

. Close and delete the SCRATCH File

AG9005

CLOSE SCRATCHI,DELETE

MOVE ZERO,SWITCHI // FILE IS CLOSED

RETURN

. End of SCRATCH File I/O

. End Of I/O Routines

BANNER

MOVE TEN TO MTOP

MOVE THIRTY1 TO MLEFT

MOVE EIGHTY TO MRIGHT

MOVE SIXTEEN TO MBOT

CALL SETSW01

CALL BANNER01

DISPLAY *HOFF,*HD,*EL;

RETURN

BANNER01

DISPLAY *P1:21,*HON,*EL,VISAGNI,VERSION;

RETURN

.Duplicate Keys - Bump the Seconds by One

.

DUPBUMP

RESET KEY18,17

MOVE KEY18,SECOND

ADD ONE,SECOND

BUMP KEY18,-1

APPEND SECOND,KEY18

RESET KEY18

RETURN

+..............................................................................

.

.Compute the Day of the Week from a Specified Date

.

. Enter with: JDAYWORK = Julian Date to Convert

. YEARWORK = Year to Convert

.

. Exits with: NWORK2 = Day of the Week (1=Sunday, 7=Saturday)

.

. Based on the Fact That 01/01/20 Was a Wednesday

.

FINDOW MOVE YEARWORK,NWORK2

SUB TWENTY,NWORK2

ADD JDAYWORK,NWORK2 Offset 1 Day per Year

ADD THREE,NWORK2 01/01/20 Was a Wednesday

.Allow 1 Day per Year for Each Leap Year Since 2020

.

MOVE YEARWORK,NWORK1

SUB "17",NWORK1

.

FINDOW1 SUB FOUR,NWORK1

GOTO FINDOW2 IF LESS

ADD ONE,NWORK2

GOTO FINDOW1

.Divide by Seven and Use the Remainder for the Dow

.

FINDOW2 SUB SEVEN,NWORK2

GOTO FINDOW3 IF ZERO

GOTO FINDOW2 IF NOT LESS

.

FINDOW3 ADD SEVEN,NWORK2

RETURN

*..............................................................................

. .

. Keyin a Y or N to Reply .

. You must enter from KREPLYN or KREPLYY .

. You will exit through KREPLYZZ With REPLY = Y or N .

. This routine will accept Cap's or Lower Case .

KEYF,KEYG,KEYH,KEYI,KEYJ *Five extra ID's

RETURN

PACK01

PACK TABLE USING BLANKS,BLANKS,BLANKS,BLANKS

REPLACE BN IN TABLE

RETURN

SETMAR01

MOVE SIX TO MTOP

MOVE TWELVE TO MBOT

MOVE FOUR TO MLEFT

MOVE TWENTY6 TO MRIGHT

CALL SETSW01

RETURN

SETSW01

DISPLAY *SETSWALL MTOP:MBOT:MLEFT:MRIGHT,*ES,*SETSWALL=1:24:1:80;

GOTO SETSW99

SETSW02

DISPLAY *SETSWALL MTOP:MBOT:MLEFT:MRIGHT,*ES;

GOTO SETSW99

SETSW03

DISPLAY *SETSWALL MTOP:MBOT:MLEFT:MRIGHT;

GOTO SETSW99

SETSW99

MOVE THREE TO MTOP

MOVE TWO TO MLEFT

MOVE SEVENTY9 TO MRIGHT

MOVE TWENTY1 TO MBOT

RETURN

SETTOP06

MOVE SIX TO MTOP

RETURN

SETTOP14

MOVE FOURTEEN TO MTOP

RETURN

SETTOP16

MOVE SIXTEEN TO MTOP

RETURN

. Draw a big box

.

SHOWBOX1 DISPLAY *ES,*P2:1,USRNAME: LINE 1

*H 59,DATE,SPACE2,TIME:

*N,ULC,*RPTCHAR HE:78,URC: LINE 2

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 3 + 4

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 5 + 6

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 7 + 8

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 9 + 10

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 11 + 12

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 13 + 14

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 15 + 16

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 17 + 18

*N,VB,*H 80,VE,*N,VB,*H 80,VE: LINE 19 + 20

*N,VB,*H 80,VE: LINE 21

*N,LLC,*RPTCHAR HB:HLPPOSNI,"-",HLPCMDNI,"-",LRC;

RETURN

SHOWBOXN

CALL SHOWBOX1

DISPLAY *P34:1,DSKNOTE,*P1:23,*H 73,PGSTAT,PAGE:

*HD;

RETURN

.Check the Alarm

.

. Enter with FLAG1 = 0 Check Shutdown, Alarm, Messages, Meetings

. 1 Don't Check Messages

.Update the User's Record

.

FMTIME2 FILEPI 1;USRFILE

UPDATAB USRFILE;*82,FMTIME

RETURN

+..............................................................................

.

.Routine to Set the Alarm Time

.

. Enter with: CURRUSER = User Number

.

. Exits with: Alarm Time and Date Set Correctly

.

FATIME PACK KEY20 WITH ONE,CURRUSER

.

FILEPI 2;NOTEFILE

READ NOTEFILE,KEY20;;

READKS NOTEFILE;REPLY,USRNO1,AYEAR,ADAY,AHOUR,AMIN,ASEC:

COUNTER,ADATE,ATIME,ALARMSG

RETURN IF OVER

.Right Record Type/User ?

.

CMATCH "1",REPLY

GOTO FATIME1 IF NOT EQUAL

COMPARE CURRUSER,USRNO1

RETURN IF EQUAL

.Turn Off the Alarms

.

FATIME1 MOVE ZERO,AYEAR

RETURN

+..............................................................................

.

.Year Computation Routine

.

. Enter with: YEARWORK = Year Selected

.

. Exits with: DAYFEB = Number of Days in February

. YEARLEN = Number of Days in Year Selected

. PYEARLEN = Number of Days in Prior Year

.

.Determine the Number of Days in February and the Year's Length

. 0 - Don't Redraw if Already On the Screen

.

. Exits with: YEARSTR = Week's Starting Year

. YEAREND = Week's Ending Year

. DAY 1 - DAY 7 = Julian Dates

. GRAPHSW = 0

.

. Note: If this is the first week of the month, we'll graph any of the

. previous month's days which fall within this week. The same holds

. true for the end of the month, and also for the year.

.See if the Week is Already on the Screen

.

GRAPH COMPARE ONE,DATESWCH

IF EQUAL

SUB ONE,JULDAY

ENDIF 039

BRANCH GRAPHSW TO GRAPH1

SEARCH JULDAY FROM DAY1 TO SEVEN INTO INDEX

.

IF NOT OVER

COMPARE ONE,DATESWCH

IF EQUAL

ADD ONE,JULDAY

ENDIF 039

RETURN 039

ENDIF 039

.Determine the Selected Day of the Week

.

GRAPH1

CALL SETTOP06

MOVE TWENTY9 TO MLEFT

MOVE TWELVE TO MBOT

CALL SETSW01

MOVE ZERO,GRAPHSW

.

MOVE JULDAY,JDAYWORK

MOVE YEAR,YEARWORK

CALL FINDOW

.Determine the Week's Starting Date

.At This Point, NWORK1 = Week's Starting Date

.

.Set up the Date Table

.

GRAPH2 MOVE ONE,INDEX

MOVE YEARSTR,YEAREND

.

GRAPH3 STORE NWORK1 BY INDEX INTO DAY1,DAY2,DAY3:

DAY4,DAY5,DAY6,DAY7

.

ADD ONE,INDEX

COMPARE EIGHT,INDEX

GOTO GRAPH5 IF EQUAL

ADD ONE,NWORK1

.Check for Correct Year Overflow

.

BRANCH SWITCH TO GRAPH4

.Check for This Year's Length

.Check for the Prior Year's Length

.

GRAPH4 COMPARE NWORK1,PYEARLEN

GOTO GRAPH3 IF NOT LESS

MOVE ONE,NWORK1

ADD ONE,YEAREND

GOTO GRAPH3

*..............................................................................

.

.Graphically Display the Week's Appointments

.Display the Day's Appointments

.

BRANCH DATESWCH OF GRAPH6A

CALL DISPDAY

GOTO GRAPH6

.

GRAPH6A ADD ONE,JDAYWORK

CALL DISPDAY

SUB ONE,JDAYWORK

GOTO GRAPH6

+..............................................................................

.

.Display the Appointments for the Selected Day

.

. Enter with: USRNO = User Number

. JULDAY = Julian Day Selected

. YEAR = Year Selected

.

. Exits with: Up to Six Appointments on the Screen

. Graph File Positioned to the Selected Day

.

.Format the Date and Day

.

SHOWDTL1 MOVE JULDAY,JDAYWORK

MOVE YEAR,YEARWORK

CALL FINDOW // NWORK2 := DAY OF WEEK

COMPARE ONE,DATESWCH

IF EQUAL

COMPARE ONE,NWORK2

IF EQUAL

MOVE SEVEN,NWORK2

ELSE

SUB ONE,NWORK2

ENDIF

LOAD DIM40 BY NWORK2 FROM MONDAY,TUESDAY,WEDNESDY:

THURSDAY,FRIDAY,SATURDY,SUNDAY

ELSE

CALL LOAD03

ENDIF

MOVE DIM40 TO KEY

.

CALL LOAD01

.Remove the Leading Space in Single Digit Dates

.

MOVE DAY,DIM2

CMATCH SPACE,DIM2

GOTO SHOWDTL2 IF NOT EQUAL

BUMP DIM2

.Build the Line

.

SHOWDTL2

PACK DIM30 USING KEY,COMMA,SPACE,DIM9,SPACE,DIM2,COMMA,SPACE:

YEARPREFIX,YEAR

.

LOAD HPOS BY MON FROM ONE,ZERO,TWO,TWO,THREE,TWO:

TWO,ONE,ZERO,ONE,ZERO,ZERO

ADD THIRTY2,HPOS

.Highlight the Day of the Week on the Graph

.

MOVE KEY,REPLY

MOVE FIVE,VPOS

ADD NWORK2,VPOS

.Fix Up the Screen

.

CALL SETTOP16

CALL SETSW02

BRANCH DATESWCH OF SD2A

DISPLAY *SETSWTB 1:24,*P31:14,*EL,*SETSWALL=1:24:1:80:

*P28:6,CSUN,*P28:7,CMON,*P28:8,CTUE,*P28:9,CWED:

*P28:10,CTH,*P28:11,CFRI,*P28:12,CSAT:

*P28:VPOS,*HON,REPLY,*HOFF:

*PHPOS:14,AGTITLE,*+,DIM30,*V 16;

GOTO SD2B

SD2A DISPLAY *SETSWTB 1:24,*P31:14,*EL,*SETSWALL=1:24:1:80:

*P28:6,CMON,*P28:7,CTUE,*P28:8,CWED,*P28:9,CTH:

*P28:10,CFRI,*P28:11,CSAT,*P28:12,CSUN:

*P28:VPOS,*HON,REPLY,*HOFF:

*PHPOS:14,AGTITLE,*+,DIM30,*V 16;

SD2B

.Position the File

.

PACK KEYWORK WITH USRNO,YEAR,JULDAY

.

FILEPI 1;AGENDA

READ AGENDA,KEYWORK;;

.Set Up for the Appointments

.

MOVE ZERO,DTLCOUNT

MOVE ZERO,NOMORE

MOVE ONE,NOPREV

.Read Through the Appointment File

.

SHOWDTL3 FILEPI 1;AGENDA

READKS AGENDA;USRNO1,YEARWORK,JDAYWORK,HOUR,MIN:

COUNTER,ENDHOUR,ENDMIN,STIME,ETIME,TPOS,NBLOCKS:

SECFLAG,TFLAG,DATA

GOTO SHOWDTL5 IF OVER

.Right User/Year/Day ?

.

PACK KEY WITH USRNO1,YEARWORK,JDAYWORK,HOUR,MIN,COUNTER

MATCH KEY,KEYWORK

GOTO SHOWDTL5 IF NOT EQUAL

.Save the Appointment Key

.

COMPARE SIX,DTLCOUNT

GOTO SHOWDTL5 IF EQUAL // Screen is Full

.

ADD ONE,DTLCOUNT

STORE KEY BY DTLCOUNT INTO KEYA,KEYB,KEYC:

KEYD,KEYE,KEYF

.Don't Display Confidential Information if Inquiring