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