home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DOSMNU20.ZIP / COMM4.Q-A < prev    next >
Encoding:
Text File  |  1995-07-23  |  3.4 KB  |  200 lines
  1. DISPLAY "As"
  2. ASSIGN 2 "RemoteAccess DOS MENUS 2.0, Copyright 1995, Mark Tassin"
  3. :MESSAGES
  4. DISPLAY "|C:\MESSAGES>"
  5. ASK 68 1
  6. IF 1 = ""
  7.      GOTO MESSAGES
  8. ENDIF
  9. IF 1 = "WHOCALL"
  10.      MENUCMND 51
  11.      GOTO MESSAGES
  12. ENDIF
  13. IF 1 = "WHO-ON"
  14.      MENUCMND 52
  15.      GOTO MESSAGES
  16. ENDIF
  17. IF 1 = "SENDMSG"
  18.      MENUCMND 54
  19.      GOTO MESSAGES
  20. ENDIF
  21. IF 1 = "TREE"
  22.      DISPLAYFILE SUBTREE
  23.      GOTO MESSAGES
  24. ENDIF
  25. IF 1 = "CLS"
  26.      CLEARSCREEN
  27.      GOTO MESSAGES
  28. ENDIF
  29. IF 1 = "PAGE"
  30.      EXEC *C /C d:\DOORS\ICECHAT\ICECHAT.EXE -V -*N *M *!
  31.      GOTO MESSAGES
  32. ENDIF
  33. IF 1 = "VERINFO"
  34.      MENUCMND 8
  35.      GOTO MESSAGES
  36. ENDIF
  37. IF 1 = "TIMEINFO"
  38.      MENUCMND 14
  39.      GOTO MESSAGES
  40. ENDIF
  41. IF 1 = "LOGOFF"
  42.      MENUCMND 9
  43.      GOTO MESSAGES
  44. ENDIF
  45. IF 1 = "VOL"
  46.      MENUCMND 7 *C /C D:\ra\CVOL.BAT *M
  47.      DISPLAYFILE VOLINFO
  48.      GOTO MESSAGES
  49. ENDIF
  50. IF 1 = "VER"
  51.      LISTANSWER 2
  52.      GOTO MESSAGES
  53. ENDIF
  54. IF 1 = "MEM"
  55.      MENUCMND 7 *C /C D:\RA\MEMR.BAT *M
  56.      DISPLAYFILE MEMORY
  57.      GOTO MESSAGES
  58. ENDIF
  59. IF 1 = "MEM /C"
  60.      MENUCMND 7 *C /C D:\RA\MEMR.BAT /C *M
  61.      DISPLAYFILE MEMORY
  62.      GOTO MESSAGES
  63. ENDIF
  64. IF 1 = "MEM /P"
  65.      MENUCMND 7 *C /C D:\RA\MEMR.BAT /P *M
  66.      DISPLAYFILE MEMORY
  67.      GOTO MESSAGES
  68. ENDIF
  69. IF 1 = "MEM /D"
  70.      MENUCMND 7 *C /C D:\RA\MEMR.BAT /D *M
  71.      DISPLAYFILE MEMORY
  72.      GOTO MESSAGES
  73. ENDIF
  74. IF 1 = "TREE"
  75.      DISPLAYFILE SUBTREE
  76.      GOTO MESSAGES
  77. ENDIF
  78. IF 1 = "CLS"
  79.      CLEARSCREEN
  80.      GOTO MESSAGES
  81. ENDIF
  82. IF 1 = "CHKDSK"
  83.      MENUCMND 7 *C /C d:\RA\CHECKDSK.BAT *M
  84.      DISPLAYFILE CHECKDSK
  85.      GOTO MESSAGES
  86. ENDIF
  87. IF 1 = "CD .."
  88.      SETFLAG D4 OFF
  89.      SETFLAG D1 ON
  90.      QUIT
  91. ENDIF
  92. IF 1 = "CD\DOORS"
  93.      SETFLAG D4 OFF
  94.      SETFLAG D2 ON
  95.      QUIT
  96. ENDIF
  97. IF 1 = "CD\"
  98.      SETFLAG D4 OFF
  99.      SETFLAG D1 ON
  100.      QUIT
  101. ENDIF
  102. IF 1 = "CD.."
  103.      SETFLAG D4 OFF
  104.      SETFLAG D1 ON
  105.      QUIT
  106. ENDIF
  107. IF 1 = "CD\MESSAGES"
  108.      GOTO MESSAGES
  109. ENDIF
  110. IF 1 = "CD\FILES"
  111.      SETFLAG D4 OFF
  112.      SETFLAG D3 ON
  113.      QUIT
  114. ENDIF
  115. IF 1 = "CD\CONFIG"
  116.      SETFLAG D4 OFF
  117.      SETFLAG D5 ON
  118.      QUIT
  119. ENDIF
  120. IF 1 = "CD\FEEDBACK"
  121.      SETFLAG D4 OFF
  122.      SETFLAG D6 ON
  123.      QUIT
  124. ENDIF
  125. IF 1 = "CD."
  126.      GOTO MESSAGES
  127. ENDIF
  128. IF 1 = "CD ."
  129.      GOTO MESSAGES
  130. ENDIF
  131. IF 1 = "DIR"
  132.      DISPLAYFILE MESGDIR
  133.      GOTO MESSAGES
  134. ENDIF
  135. IF 1 = "READ"
  136.      MENUCMND 23 /M
  137.      GOTO MESSAGES
  138. ENDIF
  139. IF 1 = "WRITE"
  140.      MENUCMND 27 /M
  141.      GOTO MESSAGES
  142. ENDIF
  143. IF 1 = "SCAN"
  144.      MENUCMND 24 /M
  145.      GOTO MESSAGES
  146. ENDIF
  147. IF 1 = "FASTSCAN"
  148.      MENUCMND 25 /M
  149.      GOTO MESSAGES
  150. ENDIF
  151. IF 1 = "MAILBOX"
  152.      MENUCMND 22
  153.      GOTO MESSAGES
  154. ENDIF
  155. IF 1 = "CHOOSE"
  156.      MENUCMND 49 /MG=0
  157.      GOTO MESSAGES
  158. ENDIF
  159. IF 1 = "PICKCOMB"
  160.      MENUCMND 28 /MG=0
  161.      GOTO MESSAGES
  162. ENDIF
  163. IF 1 = "READCOMB"
  164.      MENUCMND 23 0
  165.      GOTO MESSAGES
  166. ENDIF
  167. IF 1 = "DELETE_C"
  168.      MENUCMND 44
  169.      GOTO MESSAGES
  170. ENDIF
  171. IF 1 = "BROWSE"
  172.      MENUCMND 56
  173.      GOTO MESSAGES
  174. ENDIF
  175. IF 1 = "NEWMAIL"
  176.      MENUCMND 43 /MG
  177.      GOTO MESSAGES
  178. ENDIF
  179. IF 1 = "QWK"
  180.      GOTO MESSAGES
  181.      EXEC *C /C d:\RA\XPRESS.BAT *N *M *O57600
  182.      GOTO MESSAGES
  183. ENDIF
  184. IF 1 = "BLUEWAVE"
  185.      EXEC *C /C d:\RA\BWAVE.BAT *N *M
  186.      GOTO MESSAGES
  187. ENDIF
  188. IF 1 = "INTERNET"
  189.      DISPLAYFILE INTRMAIL
  190.      MENUCMND 27 10 /T=UUCP /N=1:115/31
  191.      GOTO MESSAGES
  192. ENDIF
  193. IF 1 = "EXIT"
  194.      SETFLAG D4 OFF
  195.      SETFLAG D8 ON
  196.      QUIT
  197. ENDIF
  198. DISPLAY "|BAD COMMAND OR FILE NAME|"
  199. GOTO MESSAGES
  200.