!*! Updated on 22-Mar-90 at 2:16 PM by Matt Badger; edit time: 0:19:06
!*! Created on 22-Mar-90 at 1:21 PM by Matt Badger; edit time: 0:08:34
!=====================================================================
! CHECK.BAS will list all of the logon information for any member.   !
! This program can be accessed via the do file CHECK.DO              !
! Just type CHECK followed by the initials of the member you want to !
! see. For example, CHECK ULTR<RET> will list all logon information  !
! for the member with ULTR as their mailbox.                         !
!=====================================================================

!====================================================================!
!The map statements                                                  !
!====================================================================!
map1 filename,s,10
map1 icount,f,6
map1 jcount,f,6
map1 mailbox,s,4
map1 curr'line,s,80
map1 dummy,s,1

!====================================================================!
!Initlization stuff                                                  !
!====================================================================!
jcount=0
icount=0
filename="phones.log"
input mailbox
open #2,filename,input
print tab(-1,0)

!====================================================================!
!The start of the main program is right here                         !
!====================================================================!
loop:
input line #2, curr'line
if eof(2)=1 then goto end
if instr(1,left(curr'line,4),mailbox) then gosub print
goto loop

print:
icount=icount+1
jcount=jcount+1
if icount=23 then gosub pause
print curr'line
return

pause:
input "Press return to continue..."; dummy
icount=0
print tab(-1,0)
return

end:
print "========================================================================"
if jcount=0 then print "There are no calls from ";mailbox;" this month"
if jcount>0 then print "Total calls for the month =>";jcount