: :----------------------------------------------------------------P: Memo.BAS Jan 17,1984 Bob shannonX:: Program to keep track of system use and display messages: as memos or reminders on specified dates or for certain: periods of time. To invoke this utility place MEMO in<$: your AUTOEXEC.BAT file.D.:8:----------------------------------------------------------------B:G PL D,I,M,YV DST(d),DEND(d),MST(d),MEND(d),MESS$(d),NDAYS( )2[NDAYS():NDAYS():NDAYS();:NDAYS()Z:NDAYS()x:NDAYS()\NDAYS():NDAYS():NDAYS():NDAYS( ):NDAYS( )0:NDAYS( )N` j:tN$"a:memo.fil"~NA$T$MONTH((A$,))DAY((A$,,))YEAR((A$,))X$(P,) :F: open storage file and updateN:a N$ AS # #,DAYL,MONTHL,YEARL,NUMBER,TL$:IF DAYL=DAY AND MONTH=MONTHL AND YEARL=YEAR THEN 3000:: display memos:&: ,,: " Memo log program Shannon";X$(O,): X$  ,,: " Today is ";MONTH;"-";DAY;"-";YEAR;" ";T$  " Last signed on ";MONTHL;"-";DAYL;"-";YEARL;: " ";TL$;: X$ ,,:T$ I NUMBER3( #,DST(I),DEND(I),MST(I),MEND(I),MESS$(I)d< (MONTHMST(I) MONTHMEND(I)) F DDDAY(NDAYS(MONTH)):DDSDST(I)(NDAYS(MST(I))):DDEDEND(I)(NDAYS(MEND(I)))P (DDDDS DDDDE) Z NX(MESS$(I)):X$(NX,):4d  ,,: " ";();: X$;: ()~n " ";();: ,,: " ";MESS$(I);" ";:  ,,: ()x " ";();: X$;: (): I #:: Update Memo file: N$ OUTPUT AS #$ #,DAY,MONTH,YEAR,NUMBER,T$7 I NUMBERj #,DST(I),DEND(I),MST(I),MEND(I),MESS$(I)r I{ # N J ,:  ,,: "Hit any key to continue (hit e to edit memos)";A$: A$""  A$"e" ," ,:06: This section to edit memos8@:GJ:  ,,T  ,,: , : "Memos currently defined ";MONTH;"-";DAY;"-";YEAR^ ,: "# Start Stop Message";h ,,:X$(P,): ,: X$: ,: X$:  ,,mr I NUMBERP I;". ";MST(I);"-";DST(I);" ";MEND(I);"-";DEND(I); MLEN(MESS$(I)):HORIZ: MLEN2 :HORIZ ,HORIZ: MESS$(I) I ,,: X$:  ,,: "Type number of memo to delete, or new number for new memo :";N$ N D NNUMBER MST(N) &L:m NNUMBER NUMBERNUMBERDST(N):DEND(N):MST(N):MEND(N):MESS$(N)" 0"N :: get information for new memo:N &:  ,,:N/ 0 : "Memo starting date "D : " Month:",STMY D " Day :",STD X : :  ,,: "Memo ending date " b " Month:",ENDM l ENDM ENDMSTM:ENDDSTD:ENDYSTY:  v " Day :",ENDD! : : ,,: "Input message for these dates " ! MESG$(!:;! I NUMBERT! MEND(I) ! MST(I)STM:MEND(I)ENDM:DST(I)STD:DEND(I)ENDD! MESS$(I)MESG$! ! I!:!NUMBERNUMBER:INUMBER"MST(I)STM:MEND(I)ENDM:DST(I)STD:DEND(I)ENDD""MESS$(I)MESG$,"  4":r R