home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / STATS.CTL < prev    next >
Encoding:
Text File  |  1992-10-14  |  2.4 KB  |  86 lines
  1. clearscr
  2. log(--,Viewed User Statistics)
  3. *stats
  4. Clearscr
  5. If (/graphics)=(ANSI) Then Goto (ansist)
  6. Say(   Statistics Here at %BBS%)
  7. Goto (ContStats)
  8. *ansist
  9. Say($7$                                                                               $0$*)
  10. AnsiGoto(3,1)
  11. Say($7$&0&   Statistics Here at %BBS%$0$&7&)
  12. *ContStats
  13. Say(&CR&&7&Date of Last Call: &14&/:LAST/            &11&│&7& Your Security Level Is: *)
  14. Say(&14&%SEC%&CR&&7&First call to BBS: &14&/:FIRST/            &11&│&7& Times on this *)
  15. Say(BBS: &14&/:TIMESON/&CR&&7&Last New Files Check: &14&/:LASTCHK/         &11&│&7& *)
  16. Say(Carrier Drops: &14&/:DROPPED/&CR&&7&Current BBS Time: &14&%DATE% %TIME%       &11&│*)
  17. Say(&7& Time Allotted Per Day: &14&%LIMIT%&CR&&CR&)
  18.  
  19. If (/graphics)=(ANSI) Then Goto (ansist2)
  20. Say(   Information you can change yourself:)
  21. Goto (ContStats2)
  22. *ansist2
  23. Say($7$                                                                               $0$*)
  24. AnsiGoto(1,9)
  25. Say($7$&0&   Information you can change yourself:$0$&10&)
  26. *ContStats2
  27. Say(&CR&1. &11&Street Address: &7&*)
  28. SetEqual(a=/:STREET/)
  29. SetLen(a=19)
  30. Say(%var%a  &10&2. &11&City and State: &7&*)
  31. Say(/:FROM/)
  32. Say(&10&3. &11&Password: &7&*)
  33. SetEqual(a=/:PASS/)
  34. SetLen(a=25)
  35. Say(%var%a  &10&4.   &11&Phone number: &7&*)
  36. Say(/:PHONE/)
  37. Say(&10&5. &11&Graphics Mode: &7&*)
  38. SetEqual(a=%GRAPHICS%)
  39. SetLen(a=20)
  40. Say(%var%a  &10&6.     &11&Work Phone: &7&/:WORK/)
  41. Say(&10&7. &11&Default Protocol: &7&*)
  42. SetEqual(a=/:PROTOCOL/)
  43. SetLen(a=17)
  44. Say(%var%a  &10&8.  &11&Screen Length: &7&/:SCREENLEN/)
  45. Say(&CR&&CR&&3&Would you like to change anything? &9&[   ]&14&*)
  46. Back(4)
  47. YesNoAsk(*)
  48. If (%RESP%)=(No) Then return
  49. Say(&10&&CR&Selections are listed above (1-8).)
  50. MenuAsk (&3&Which selection would you like to change?&12&: &15&*)
  51. Say(&3&)
  52. BigIf (1:street,2:city,3:pass,4:phone,5:graph,6:work,7:prot,8:scrlen)
  53. Return
  54.  
  55.  *prot
  56. loadsub(control\macros\defprot.ctl)
  57. Goto (stats)
  58.  
  59.         *scrlen
  60. loadsub(control\macros\scrlen.ctl)
  61. Goto (stats)
  62.  
  63.         *street
  64. loadsub(control\macros\street.ctl)
  65. Goto (stats)
  66.  
  67.         *city
  68. loadsub(control\macros\city.ctl)
  69. Goto (stats)
  70.  
  71.         *pass
  72. loadsub(control\macros\pass.ctl)
  73. Goto (stats)
  74.  
  75.         *phone
  76. loadsub(control\macros\hphone.ctl)
  77. Goto (stats)
  78.  
  79.         *graph
  80. loadsub(control\macros\graph.ctl)
  81. Goto (stats)
  82.  
  83.         *work
  84. loadsub(control\macros\work.ctl)
  85. Goto (stats)
  86.