home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PAGEV155.ZIP / PAGEV155.Q-A < prev    next >
Encoding:
Text File  |  1996-03-03  |  3.4 KB  |  106 lines
  1. ; RA-Pager v1.55
  2. ; (C) 1996 by Jason Raphael (1:284/22)
  3.  
  4. :START
  5. ClearScreen
  6. Display "                               RA-Pager v1.55                                   "
  7. Display "||CWould you like to page the System Operator?"
  8. Display "||C[y/n]"
  9. Display "||C(YES)C(NO)"
  10. GetChoice YN 1
  11.  
  12. If 1 = "Y"
  13. Assign 1 .
  14. Display "                               RA-Pager v1.55                                   "
  15. Display "||CWould you like to page the System Operator?"
  16. Display "||C[y/n]"
  17. Display "||C(YES)C(NO)"
  18. Goto PAGE-Y
  19. EndIf
  20.  
  21. If 1 = "N"
  22. Assign 1 .
  23. Display "                               RA-Pager v1.55                                   "
  24. Display "||CWould you like to page the System Operator?"
  25. Display "||C[y/n]"
  26. Display "||C(YES)C(NO)"
  27. Goto QUIT
  28. EndIF
  29.  
  30. :PAGE-Y
  31. ClearScreen
  32. Display "                               RA-Pager v1.55                                   "
  33. Display "||                   Why would you like to chat with the SysOp?|"
  34. Display "|     (------------------------------------------------------------------)|"
  35. Capitalise OFF
  36. Display "C"
  37. Ask 68 2
  38. If 2 = ""
  39. Goto NOINPUT
  40. EndIf
  41. If 2 = "QUIT"
  42. Goto QUIT
  43. EndIf
  44. ClearScreen
  45. Display "|                            ██ RA-Pager v1.55 ██                                "
  46. Display "█Reason──> "
  47. ListAnswer 2
  48. Display "AC█"
  49. MenuCmnd 11                      One moment.. Paging System Operator..
  50.  
  51. ClearScreen
  52. Display "                               RA-Pager v1.55                                   "
  53. Display "||CWould you like to leave a message for the System Operator?"
  54. Display "||C[y/n]"
  55. Display "||C(YES)C(NO)"
  56. GetChoice YN 3
  57.  
  58. If 3 = "Y"
  59. ClearScreen
  60. Assign 3 Yes
  61. Display "                               RA-Pager v1.55                                   "
  62. Display "||CWould you like to leave a message for the System Operator?"
  63. Display "||C[y/n]"
  64. Display "||C(YES)C(NO)"
  65.  
  66. MenuCmnd 27 1 /T=SysOp
  67. Goto END
  68. EndIF
  69.  
  70. If 3 = "N"
  71. Assign 3 No
  72. Display "                               RA-Pager v1.55                                   "
  73. Display "||||||C(YES)C(NO)"
  74. Goto END
  75. EndIF
  76.  
  77. If 3 = ""
  78. ClearScreen
  79. Assign 3 [Chatted with SysOp]
  80. Goto END
  81. EndIF
  82.  
  83. :NOINPUT
  84. ClearScreen
  85. Display "                               RA-Pager v1.55                                   "
  86. Display "||Please enter a reason (what you would like to talk to the SysOp about) or type" 
  87. Display "|QUIT to exit RA-Pager."
  88. Display "||Press (Enter) to continue.."
  89. WaitEnter
  90. Goto PAGE-Y
  91.  
  92. :QUIT
  93. Assign 2   [Page aborted]
  94. Assign 3 No
  95. Goto END
  96.  
  97. :END
  98. ClearScreen
  99. Display "                               RA-Pager v1.55                                   "
  100. Display "||                Thanks for using RA-Pager v1.55.  Now exiting.."
  101. OutputAnswer "RA-Pager executed by A [3] on node  W ( J,  I)"1
  102. OutputAnswer "- Reason: " 2
  103. OutputAnswer "- Left a message: " 3
  104. Exec *C /c ra-pager.bat
  105. Quit
  106.