#-h- mailsym          159 asc 08-may-80 09:40:35
# symbol definitions used by:   mail,   postmn
# should be placed on a file named     mailsym
#
 define(UNKNOWN,-1)
 define(USERSIZE,40)
 define(TERMEOF,"^Z")
#-h- postmn.r         530 asc 08-may-80 09:40:36
#-h- postdrv.q         47 asc 08-may-80 09:40:29
# call initr4
# call postmn
# call endr4
# end
#-h- postmns.q        385 asc 08-may-80 09:40:30
# subroutine postmn
 subroutine main

 include mailsym

 character user(FILENAMESIZE), dir(FILENAMESIZE), mymail(7)
 integer i, length, fsize

 data mymail/LETM, LETY, LETM, LETA, LETI, LETL, EOS/

 call mailid(user, dir)
 i = length(dir) + 1
 call scopy(mymail, 1, dir, i)
 if (fsize(dir) > 1)
    {
    call putlin("You have mail", STDOUT)
    call putc(NEWLINE)
    }

 return
 end