home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / REFLECT.ZIP / A1MAIL.RCL next >
Encoding:
Text File  |  1989-11-01  |  1.5 KB  |  61 lines
  1. ;
  2. ;     A1MAIL.RCL
  3. ;
  4. ;     A1MAIL.RCL is a sample Reflection command file that can be used to
  5. ;     receive ALL-IN-1 mail while executing DOS applications on your
  6. ;     PC.
  7. ;
  8. ;     NOTE:  This command file will work only with ALL-IN-1 version 2.3
  9. ;         or greater.
  10. ;
  11. ;     To use A1MAIL.RCL:
  12. ;
  13. ;        - run Reflection
  14. ;        - logon to your VAX/VMS system and startup ALL-IN-1
  15. ;        - do one the the following:
  16. ;        -    1. Enter WM on the DIRECT-TO-1 File Transfer Menu (if
  17. ;           installed on your system), or
  18. ;        -    2  Hit <Alt-F10> to bring up the command line,
  19. ;        -       enter 'A1MAIL.RCL', and hit <CR>
  20. ;
  21. ;     Reflection will then place itself in background mode and return you to
  22. ;     the DOS command prompt.  When Reflection detects that you have received
  23. ;     mail, it will place itself in foreground.  The command file will end
  24. ;     whenever Reflection is placed back into the foreground.
  25. ;
  26. background
  27. q command on
  28. ;
  29. ; define strings that indicate new mail
  30. ;
  31. let v2 = "New mail"
  32. let v3 = "New ALL-IN-1 mail"
  33. ;
  34. :loop
  35. ;
  36. ;   loop is repeated until a 'mail' message is received from
  37. ;   the host.
  38. ;
  39.     readhost 00:00:01 v4 until "^M"
  40. ;
  41. ;   if we get placed back into foreground, end.
  42. ;   if ^M was not found, keep looking
  43. ;
  44.     if fgd
  45.       stop
  46.     endif
  47.  
  48.     if not found
  49.       goto loop
  50.     endif
  51. ;
  52. ;   is a mail message?
  53. ;
  54.     if find(v2,v4) = 0 and find(v3,v4) = 0
  55.       goto loop
  56.     endif
  57. ;
  58. ; now, switch to foreground and end
  59. ;
  60.   foreground
  61.