: :----------------------------------------------------------------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: " Memo log program Shannon" X$(O,): X$M " Today is ";MONTH;"-";DAY;"-";YEAR;" ";T$  " Last signed on ";MONTHL;"-";DAYL;"-";YEARL;: " ";TL$;: X$T$ I NUMBER( #,DST(I),DEND(I),MST(I),MEND(I),MESS$(I)#< (MONTHMST(I) MONTHMEND(I)) xF DDDAY(NDAYS(MONTH)):DDSDST(I)(NDAYS(MST(I))):DDEDEND(I)(NDAYS(MEND(I)))P (DDDDS DDDDE) Z NX(MESS$(I)):X$(NX,):d " ";();: X$;: ()"n " ";();: " ";MESS$(I);" ";: ()Hx " ";();: X$;: ()P:X Ia #i:: Update Memo file: N$ OUTPUT AS # #,DAY,MONTH,YEAR,NUMBER,T$ I NUMBER #,DST(I),DEND(I),MST(I),MEND(I),MESS$(I) I #0 N Jn ,: "Hit any key to continue (hit e to edit memos)";A$: A$""  A$"e" ,",:6: This section to edit memos@:JT , : "Memos currently defined ";MONTH;"-";DAY;"-";YEARK^ ,: "# Start Stop Message";qhX$(P,): ,: X$: ,: X$wmr I NUMBER I;". ";MST(I);"-";DST(I);" ";MEND(I);"-";DEND(I); MLEN(MESS$(I)):HORIZ: MLEN2 :HORIZ ,HORIZ: MESS$(I)$ I- X$5:{ "Type number of memo to delete, or new number for new memo :";N N  NNUMBER MST(N) &: NNUMBER NUMBERNUMBERDST(N):DEND(N):MST(N):MEND(N):MESS$(N)" 0"N$ ,:R: get information for new memoZ:cNn&:N0 : "Memo starting date ": " Month:",STMD " Day :",STDX : : "Memo ending date "b " Month:",ENDM l ENDM ENDMSTM:ENDDSTD:ENDYSTY: 3 v " Day :",ENDD`  : : "Input message for these dates "l  MESG$t :  I NUMBER  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)ENDDn!MESS$(I)MESG$x!  !:I)ENDD! MESS$(I)MESG$! ! I!