'===========================================================================
' Subject: IMPORTANT EVENT REMINDER           Date: 06-10-00 (14:39)       
'  Author: Fred Buffington                    Code: PBDLL                  
'  Origin: oasys@telepath.com               Packet: PBDLL.ABC
'===========================================================================
'************************************************************************'
'Birthday/important event reminder                                       '
'Author Fred Buffington                                                  '
'oasys@telepath.com                                                      '
'PBdll - easily converted to pbcc20 see qb/pb version                    '
'Format of birthday text file                                            '
'columns 1-23 name info, 24-25 month, 27-28 day of the month             '
' Compile (or run interpretively)                                        '
' Put link in startup to have it run on boot up. be sure to check close  '
' on exit box so that it will close automatically if no reminder needed  '
'************************************************************************'
$COMPILE EXE
 FUNCTION PBMAIN() AS LONG
    #REGISTER NONE

'COLOR 15, 1
'CLS

    OPEN "\letters\birthday.txt" FOR INPUT AS #1
    LINE INPUT #1, ll$ 'heading line one
    LINE INPUT #1, ll$ 'heading line 2 (these can be eliminated if you like)
    dt$ = DATE$
    WHILE NOT EOF(1)
      LINE INPUT #1, ll$
 'PRINT MID$(ll$, 24, 8)
      IF MID$(ll$, 24, 2) = MID$(dt$, 1, 2) THEN
        test% = VAL(MID$(dt$, 4, 2)) - VAL(MID$(ll$, 27, 2))
        IF test% = -1 OR test% = 0 THEN
           MSGBOX ll$+" Send Card",,"Birthday/Important Event Reminder"
          'for pb/qb or pbcc version
          'IF heading% = 0 THEN
          ' PRINT "BIRTHDAY REMINDER !!! **************"
          ' heading% = 1
          'END IF
          'SOUND 500, 4: PRINT ll$; " Send Card"
          'found% = 1
        END IF
      END IF
    WEND
'for pbcc/pb/qb version
'IF found% THEN INPUT "", z$
END FUNCTION