home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / MSCAN.CTL < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.7 KB  |  81 lines
  1. Say(&CR&%hWhite%Please wait while we scan the message area for new mail addressed to you...%Yellow%&CR&)
  2. Clearmem
  3. EraseVar   ;erasevar erases all variables...
  4. Say(Scanning...%White%)
  5.  
  6. Zap(lconf.%NODE%,/:lastmsg/)
  7. ClearMem ; clearmem will clear the array
  8.  
  9. SetEqual(h=0)
  10.  
  11. *stscan
  12. inc(h)
  13. SelArea(%var%h)
  14.  
  15. EnufSec(%AREASEC%)
  16. ifnottrue(Goto (chkeof))
  17.  
  18. eLine(60)
  19. Say(Checking area %var%h: %AREANAME%|)
  20. Scan(%var%h,%NAME%,%NDNUMB%)
  21. IfTrue (goto (yesmail))
  22.  
  23. *chkeof
  24. If (&h)=(%MAXAREA%) Then goto (firstmn)
  25. Goto (stscan)
  26.  
  27. *FIRSTMN
  28. InpLine(lconf.%NODE%,1)
  29. SetEqual (/lastmsg=%ARESP%)
  30. SelArea(/:LASTMSG/)
  31.  
  32. Say(%Yellow%&CR&&CR&Message scan complete!)
  33. SetEqual (/WAIT=N)
  34. Kill(lconf.%NODE%)
  35.  
  36. LoadMem(control\bullets.ctl)
  37.  
  38. *yesmail
  39. SetEqual (/lastmsg=%var%h)
  40. Say(&CR&&15&Mail has been found for you in the&9& %AREANAME% %hWhite%conference!%hWhite%)
  41. SetEqual(u=2)
  42. notif (^2)=() then goto (ym1)
  43. say(&10&Message number &11&^:1^)
  44. goto (bymail)
  45. *ym1
  46. say(&10&Message numbers:&11&&CR&^:1^*)
  47. *ymail
  48. if (^%var%u)=() then Goto (bym2)
  49. Say(, ^:u^*)
  50. inc(u)
  51. Goto (ymail)
  52. *bym2
  53. linefeed(1)
  54. *bymail
  55. Zap(hi.%NODE%,%var%h)
  56. Say(&CR&%Cyan%Would you like to read these messages? &9&[   ]%hWhite%*)
  57. back(4)
  58. YesNoAsk(*)
  59. If (%RESP%)=(Yes) Then Goto (Rmail)
  60. *back
  61. InpLine(hi.%NODE%,1)
  62. SetEqual(h=%ARESP%)
  63. ClearScr
  64. InitTxt
  65. ClearMem
  66. Say(%Yellow%&CR&Scanning...%White%)
  67. ClearMem
  68. SetActivity(Logging on...)
  69. Goto (chkeof)
  70. *Rmail
  71. Say(&CR&%hCyan%Please wait while we retrieve your mail...*)
  72. SetEqual(r=10)
  73. SetEqual(y=^:1^)
  74. himsg(/:LASTMSG/)
  75. SetEqual(f=%ARESP%)
  76. lowmsg(/:lastmsg/)
  77. SetEqual(n=%ARESP%)
  78. SetEqual(u=1)
  79. Loadsub(control\READ.CTL,Goto (repeat))
  80. goto (back)
  81.