home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / CHG.CTL < prev    next >
Encoding:
Text File  |  1992-10-14  |  1.3 KB  |  42 lines
  1. Display(display\CHG,/:SEC/)
  2. MenuAsk%cron%(&CR&&3&Which message area would you like&11&(ENTER=Quit)&3&?&12&: &15&*)
  3. if (%Resp%)=(<CR>) then return
  4. *sela
  5. Number(%RESP%)
  6. If (%ARESP%)=(No) Then Return
  7. CmpValO(%MAXAREA%,%RESP%) ;cmpvalo will report no if it's under 1.
  8. IfTrue (Return)
  9. SelArea(%RESP%)
  10. EnufSec(%AREASEC%)
  11. IfTrue(Goto (cnt))
  12. SelArea(/:LASTMSG/)
  13. Say(&CR&&14&You don't have a high enough security level for that area.&CR&)
  14. enter
  15. Return
  16. *cnt
  17. Display(areas\welc%RESP%)
  18. say(&CR&&11&Changing...|)
  19. ListFile(areas\farea%RESP%)
  20. eline(13)
  21. if (%FAREA%)=(AREAS\FAREA%RESP%) then goto (fsetup)
  22. goto (seled)
  23.  
  24. *fsetup
  25. selfarea(1)
  26. setequal(/lastdown=1)
  27. *seled
  28. Say(Area #%RESP%:&15& %AREANAME%&11& is now selected!&CR&&7&)
  29. if (%AREAPVT%)=(Y) then say(Private mail is allowed in this area.)
  30. if (%AREAPVT%)=(N) then say(No private mail is allowed in this area.)
  31. if (%AREAFPUB%)=(Y) then say(All messages are forced public.)
  32. if (%AREAFPVT%)=(Y) then say(All messages are forced private.)
  33. if (%MSGNET%)=(Y) then say(Netmail is supported in this area.)
  34. if (%MSGFNET%)=(Y) then say(All mail in this area is Netmail.)
  35. linefeed(1)
  36. log(--,Joined Conference #%RESP%)
  37. enter
  38. SetEqual(/LASTMSG=%RESP%)
  39. seek(areas\news/:lastmsg/.asc)
  40. iftrue(loadsub(control\macros\cnfnews.ctl))
  41. Return
  42.