home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / bbs / tranamic.lha / Rexx / Logon.trans next >
Text File  |  1992-03-08  |  2KB  |  71 lines
  1. /* Logon macro for TransAmiga
  2.  
  3.    Asks user if he/she wishes to view the new message list.  Then prompt
  4.    him/her to do a mail check, and allows the user to read and messages to
  5.    him/her.  Also prompts for a new files listing.
  6. */
  7.  
  8. options results
  9. options failat 10
  10.  
  11. CSI        = '1b'x||'['
  12. CRLF    = '0d'x||'0a'x
  13. FF        = '0c'x
  14.  
  15. userinfo 'x' ; ansi=result
  16.  
  17. /* Initialize ANSI variables - useful code section for your ARexx macros. */
  18. if ansi='ON' then do
  19.     OFF = CSI'0m' ; BO = CSI'1m' ; UL = CSI'4m' ; IT = CSI'3m'
  20.     CL1 = CSI'31m' ; CL2 = CSI'32m' ; CL3 = CSI'33m' ; CL4 = CSI'34m'
  21.     CL5 = CSI'35m' ; CL6 = CSI'36m' ; CL7 = CSI'37m'
  22. end
  23. else do
  24.     OFF = '' ; BO = '' ; UL = '' ; IT = ''
  25.     CL1 = '' ; CL2 = '' ; CL3 = '' ; CL4 = ''
  26.     CL5 = '' ; CL6 = '' ; CL7 = ''
  27. end    
  28.  
  29. if ~show('L',"rexxsupport.library") then 
  30.     call addlib "rexxsupport.library",0,-30
  31.  
  32. /* Ask to see new message list */
  33. queryy FF||CRLF||CL7||'View new message list'
  34. answ = upper(result)
  35. if ~carrier then exit 10
  36.  
  37. if answ ~= 'N' then newmsgs
  38.  
  39. /* Check for messages to the user.  If any are found, ask if he/she wants */
  40. /* to read them now, and if so, read all marked messages (since all found */
  41. /* messages get automatically marked). */
  42.  
  43. queryn CRLF||CL7||'Check for messages to you'
  44. answ = upper(result)
  45. if ~carrier then exit 10
  46.  
  47. if answ = 'Y' then do
  48.     checkmsgs
  49.     if ~carrier then exit 10
  50.     
  51.     if result=1 then do
  52.         queryy CL7||'Read these messages now'
  53.         answ = upper(result)
  54.         if ~carrier then exit 10
  55.  
  56.         if answ ~= 'N' then readmarkedmsgs
  57.     end
  58. end
  59.  
  60. queryn CRLF||CL7||'View new files'
  61. answ = upper(result)
  62. if ~carrier then exit 10
  63.  
  64. if answ = 'Y' then newfiles
  65.  
  66. print
  67.  
  68. exit
  69.  
  70.  
  71.