home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DOSMNU25.ZIP / COMMAND.Q-A < prev    next >
Encoding:
Text File  |  1996-02-27  |  12.2 KB  |  586 lines
  1. :-----------------------------------------------------------------------:
  2. :  R E M O T E A C C E S S    D O S   M E N U   2 . 5                   :
  3. :  C O P Y R I G H T  1 9 9 6   M A R K  T A S S I N                    :
  4. :-----------------------------------------------------------------------:
  5. ASSIGN 2 "RemoteAccess DOS Menu Version 2.5 Copyright 1996, Mark Tassin"
  6. CAPITALISE OFF
  7. CHANGECOLOR 7 0
  8. GOTO C
  9. :--------------------------------------------------------------------------:
  10. :  Here's where you put global commands.  What happens is if the particular:
  11. :  Label (subdirectory) you're running in doesn't recognize a command, it  :
  12. :  goes here, if a valid command is here, it puts a 1 in variable 3, and   :
  13. :  at the end if variable 3 is equal to 1, it just returns, else it returns:
  14. :  BAD COMMAND OR FILE NAME to the user.                                   :
  15. :--------------------------------------------------------------------------:
  16. :PATH
  17. ASSIGN 3 "0"
  18. IF 1 = "WHOCALL"
  19.      MENUCMND 51
  20.      ASSIGN 3 "1"
  21. ENDIF
  22. IF 1 = "WHO-ON"
  23.      MENUCMND 52
  24.      ASSIGN 3 "1"
  25. ENDIF
  26. IF 1 = "SENDMSG"
  27.      MENUCMND 54
  28.      ASSIGN 3 "1"
  29. ENDIF
  30. IF 1 = "VOL"
  31.      MENUCMND 7 *C /C c:\ra\CVOL.BAT *M
  32.      DISPLAYFILE VOLINFO
  33.      ASSIGN 3 "1"
  34. ENDIF
  35. IF 1 = "VER"
  36.      LISTANSWER 2
  37.      ASSIGN 3 "1"
  38. ENDIF
  39. IF 1 = "MEM"
  40.      MENUCMND 7 *C /C c:\RA\MEMR.BAT *M
  41.      DISPLAYFILE MEMORY
  42.      ASSIGN 3 "1"
  43. ENDIF
  44. IF 1 = "MEM /C"
  45.      MENUCMND 7 *C /C c:\RA\MEMR.BAT /C *M
  46.      DISPLAYFILE MEMORY
  47.      ASSIGN 3 "1"
  48. ENDIF
  49. IF 1 = "MEM /P"
  50.      MENUCMND 7 *C /C c:\RA\MEMR.BAT /P *M
  51.      DISPLAYFILE MEMORY
  52.      ASSIGN 3 "1"
  53. ENDIF
  54. IF 1 = "MEM /D"
  55.      MENUCMND 7 *C /C c:\RA\MEMR.BAT /D *M
  56.      DISPLAYFILE MEMORY
  57.      ASSIGN 3 "1"
  58. ENDIF
  59. IF 1 = "EXIT"
  60.      QUIT
  61. ENDIF
  62. IF 1 = "TREE"
  63.      DISPLAYFILE MAINTREE
  64.      ASSIGN 3 "1"
  65. ENDIF
  66. IF 1 = "CLS"
  67.      CLEARSCREEN
  68.      ASSIGN 3 "1"
  69. ENDIF
  70. IF 1 = "CHKDSK"
  71.      MENUCMND 7 *C /C c:\RA\CHECKDSK.BAT *M
  72.      DISPLAYFILE CHECKDSK
  73.      ASSIGN 3 "1"
  74. ENDIF
  75. IF 1 = "DIR"
  76.      DISPLAYFILE CDIR
  77.      ASSIGN 3 "1"
  78. ENDIF
  79. IF 1 = "CD\DOORS"
  80.      GOTO DOORS
  81. ENDIF
  82. IF 1 = "CD\FILES"
  83.      GOTO FILES
  84. ENDIF
  85. IF 1 = "CD\MESSAGES"
  86.      GOTO MESSAGES
  87. ENDIF
  88. IF 1 = "LOGOFF"
  89.      MENUCMND 9
  90.      ASSIGN 3 "1"
  91. ENDIF
  92. IF 1 = "CD\CONFIG"
  93.      GOTO CONFIG
  94. ENDIF
  95. IF 1 = "CD\FEEDBACK"
  96.      GOTO FEEDBACK
  97. ENDIF
  98. IF 1 = "CD\"
  99.      GOTO C
  100. ENDIF
  101. IF 1 = "CD.."
  102.      GOTO C
  103. ENDIF
  104. IF 1 = "CD .."
  105.      GOTO C
  106. ENDIF
  107. IF 3 = "0"
  108.    DISPLAY "|BAD COMMAND OR FILE NAME|"
  109. ENDIF
  110. RETURN
  111. :--------------------------------------------------------------------------:
  112. :  This is the Root Directory... The associated text file is            :
  113. :  CDIR.ASC                                                             :
  114. :-----------------------------------------------------------------------:
  115. :C
  116. DISPLAY "|C:\>"
  117. ASK 77 1
  118. IF 1 = ""
  119.      GOTO C
  120. ENDIF
  121. IF 1 = "DIR"
  122.      DISPLAYFILE CDIR
  123.      GOTO C
  124. ENDIF
  125. IF 1 = "CD DOORS"
  126.      GOTO DOORS
  127. ENDIF
  128. IF 1 = "CD FILES"
  129.      GOTO FILES
  130. ENDIF
  131. IF 1 = "CD MESSAGES"
  132.      GOTO MESSAGES
  133. ENDIF
  134. IF 1 = "CD CONFIG"
  135.      GOTO CONFIG
  136. ENDIF
  137. IF 1 = "CD FEEDBACK"
  138.      GOTO FEEDBACK
  139. ENDIF
  140. IF 1 = "TIMEBANK"
  141.      EXEC *C /C c:\RA\BANK.BAT *N *M
  142.      GOTO C
  143. ENDIF
  144. IF 1 = "TIMEINFO"
  145.      MENUCMND 14
  146.      GOTO C
  147. ENDIF
  148. IF 1 = "PERCENT"
  149.      MENUCMND 10
  150.      GOTO C
  151. ENDIF
  152. IF 1 = "PAGE"
  153.      EXEC *C /C c:\DOORS\ICECHAT\ICECHAT.EXE -V -*N *M *!
  154.      GOTO C
  155. ENDIF
  156. IF 1 = "VERINFO"
  157.      MENUCMND 8
  158.      GOTO C
  159. ENDIF
  160. IF 1 = "TIMEBANK"
  161.      EXEC *C /C c:\RA\BANK.BAT *N *M
  162.      GOTO C
  163. ENDIF
  164. IF 1 = "TIMEINFO"
  165.      MENUCMND 14
  166.      GOTO C
  167. ENDIF
  168. IF 1 = "LOGOFF"
  169.      MENUCMND 9
  170.      GOTO C
  171. ENDIF
  172. IF 1 = "USERLIST"
  173.      MENUCMND 13
  174.      GOTO C
  175. ENDIF
  176. GOSUB PATH
  177. GOTO C
  178. :-------------------------------------------------------------------:
  179. :  This is the Doors directory, put your online games and their     :
  180. :  commands here.  The associated text file is DOORDIR.ASC          :
  181. :-------------------------------------------------------------------:
  182. :DOORS
  183. DISPLAY "|C:\DOORS>"
  184. ASK 72 1
  185. IF 1 = ""
  186.      GOTO DOORS
  187. ENDIF
  188. IF 1 = "TREE"
  189.      DISPLAYFILE SUBTREE
  190.      GOTO DOORS
  191. ENDIF
  192. IF 1 = "CD."
  193.      GOTO DOORS
  194. ENDIF
  195. IF 1 = "CD ."
  196.      GOTO DOORS
  197. ENDIF
  198. IF 1 = "DIR"
  199.      DISPLAYFILE DOORDIR
  200.      GOTO DOORS
  201. ENDIF
  202. IF 1 = "DIR /P"
  203.      DISPLAYFILE DOORDIRP
  204.      GOTO DOORS
  205. ENDIF
  206. IF 1 = "DIR /W"
  207.      DISPLAYFILE DOORDIRW
  208.      GOTO DOORS
  209. ENDIF
  210. IF 1 = "NUKEM"
  211.      EXEC *C /C C:\RA\NUKE.BAT *N *M *UNuclear_War
  212.      GOTO DOORS
  213. ENDIF
  214. IF 1 = "GO"
  215.      EXEC *C /C C:\RA\GO.BAT *N *M *UGalactic_Overlord
  216.      GOTO DOORS
  217. ENDIF
  218. IF 1 = "GWAR"
  219.      EXEC *C /C c:\RA\GWAR.BAT *N *M *D *UGlobal_War
  220.      GOTO DOORS
  221. ENDIF
  222. IF 1 = "WARLORD"
  223.      EXEC *C /C c:\RA\WARLORD.BAT *N *M *D *UWarlords
  224.      GOTO DOORS
  225. ENDIF
  226. IF 1 = "LORD"
  227.      EXEC *C /C c:\RA\LORD.BAT *N *M *D *UL.O.R.D.
  228.      GOTO DOORS
  229. ENDIF
  230. IF 1 = "ABRIDGE"
  231.      EXEC *C /C c:\RA\ARROW.BAT *N *M *UArrowbridge
  232.      GOTO DOORS
  233. ENDIF
  234. IF 1 = "NWO"
  235.      EXEC *C /C C:\RA\NWO.BAT *N *M *N.W.O.
  236.      GOTO DOORS
  237. ENDIF
  238. IF 1 = "ILLURYIA"
  239.      EXEC *C /C C:\RA\ILLURYIA.BAT *N *M *UIlluryia
  240.      GOTO DOORS
  241. ENDIF
  242. IF 1 = "JEDI"
  243.      EXEC *C /C C:\RA\JC.BAT *N *M *UJedi_Crusades
  244.      GOTO DOORS
  245. ENDIF
  246. IF 1 = "USURPER"
  247.      EXEC *C /C C:\RA\USURPER.BAT *N *M *UUsurper
  248.      GOTO DOORS
  249. ENDIF
  250. IF 1 = "OOFFICE"
  251.      EXEC *C /C C:\RA\OO.BAT *N *M *UOpOffice
  252.      GOTO DOORS
  253. ENDIF
  254. IF 1 = "DRDREAD"
  255.      EXEC *C /C C:\RA\DREAD.BAT *N *M *UDr.Dread
  256.      GOTO DOORS
  257. ENDIF
  258. IF 1 = "LORE"
  259.      EXEC *C /C C:\RA\LORE.BAT *N *M *ULore
  260.      GOTO DOORS
  261. ENDIF
  262. IF 1 = "EXITILUS"
  263.      EXEC *C /C C:\RA\EXITILUS.BAT *N *M *UExitilus
  264.      GOTO DOORS
  265. ENDIF
  266. IF 1 = "PUNCH"
  267.      EXEC *C /C C:\RA\PUNCH.BAT *N *M *UPunchline
  268.      GOTO DOORS
  269. ENDIF
  270. IF 1 = "JACOB"
  271.      EXEC *C /C C:\RA\JACOB.BAT *N *M *UJacob's_Ladder
  272.      GOTO DOORS
  273. ENDIF
  274. IF 1 = "QUANTUM"
  275.      EXEC *C /C C:\RA\QUANTUM.BAT *N *M *UQuantum_Jump
  276.      GOTO DOORS
  277. ENDIF
  278. IF 1 = TREKTAGS"
  279.      EXEC *C /C C:\RA\TREK.BAT *N *M *UTrek_Taglines
  280.      GOTO DOORS
  281. ENDIF
  282. IF 1 = "TERRA"
  283.      EXEC *C /C C:\RA\TERRA.BAT *N *M *UTerra_Firma
  284.      GOTO DOORS
  285. ENDIF
  286. IF 1 = "BARNEY"
  287.      EXEC *C /C C:\RA\BS.BAT *N *M *UBarney_Splatt
  288.      GOTO DOORS
  289. ENDIF
  290. IF 1 = "BMASTER"
  291.      EXEC *C /C C:\RA\BBSMSTR.BAT *N *M *UBBS_Master
  292.      GOTO DOORS
  293. ENDIF
  294. IF 1 = "FBBALL"
  295.      EXEC *C /C C:\RA\FBB.BAT *N *M *UFran_B_Ball
  296.      GOTO DOORS
  297. ENDIF
  298. IF 1 = "FICTFACT"
  299.      EXEC *C /C C:\RA\FICTFACT.BAT *N *M *UFict/Fact
  300.      GOTO DOORS
  301. ENDIF
  302. IF 1 = "DOORUSE"
  303.      EXEC *C /C C:\RA\FURY.BAT *N *M *UDoor_Usage
  304.      GOTO DOORS
  305. ENDIF
  306. IF 1 = "PIT"
  307.      EXEC *C /C C:\RA\PIT.BAT *N *M *UThe_Pit
  308.      GOTO DOORS
  309. ENDIF
  310. IF 1 = "WHODUNIT"
  311.      EXEC *C /C C:\RA\WHODUNIT.BAT *N *M *UWho_Dun_It
  312.      GOTO DOORS
  313. ENDIF
  314. IF 1 = "PASSITON"
  315.      EXEC *C /C C:\RA\PASSITON.BAT *N *M *UPassiton
  316.      GOTO DOORS
  317. ENDIF
  318. IF 1 = "DOORREG"
  319.      EXEC *C /C C:\RA\RAGE.BAT *N *M *UDoor_Reg_Rept
  320.      GOTO DOORS
  321. ENDIF
  322. GOSUB PATH
  323. GOTO DOORS
  324. :--------------------------------------------------------------------:
  325. :  This is for those things related to your filebase.  The related   :
  326. :  Text file is CFILES                                               :
  327. :--------------------------------------------------------------------:
  328. :FILES
  329. DISPLAY "|C:\FILES>"
  330. ASK 72 1
  331. IF 1 = ""
  332.      GOTO FILES
  333. ENDIF
  334. IF 1 = "TREE"
  335.      DISPLAYFILE SUBTREE
  336.      GOTO FILES
  337. ENDIF
  338. IF 1 = "CD."
  339.      GOTO FILES
  340. ENDIF
  341. IF 1 = "CD ."
  342.      GOTO FILES
  343. ENDIF
  344. IF 1 = "DIR"
  345.      DISPLAYFILE CFILES
  346.      GOTO FILES
  347. ENDIF
  348. IF 1 = "DOWNLOAD"
  349.      MENUCMND 32 /F /T
  350.      GOTO FILES
  351. ENDIF
  352. IF 1 = "UPLOAD"
  353.      MENUCMND 33 /F
  354.      GOTO FILES
  355. ENDIF
  356. IF 1 = "KEYWORD"
  357.      MENUCMND 35 /T
  358.      GOTO FILES
  359. ENDIF
  360. IF 1 = "FILENAME"
  361.      MENUCMND 36 /T
  362.      GOTO FILES
  363. ENDIF
  364. IF 1 = "LISTFILE"
  365.      MENUCMND 31 /F /T
  366.      GOTO FILES
  367. ENDIF
  368. IF 1 = "NEWFILES"
  369.      MENUCMND 37 /T
  370.      GOTO FILES
  371. ENDIF
  372. IF 1 = "VIEWARC"
  373.      MENUCMND 34 /F
  374.      GOTO FILES
  375. ENDIF
  376. IF 1 = "AREACHNG"
  377.      MENUCMND 50
  378.      GOTO FILES
  379. ENDIF
  380. IF 1 = "EDITTAG"
  381.      MENUCMND 71
  382.      GOTO FILES
  383. ENDIF
  384. IF 1 = "RAWDIR"
  385.      MENUCMND 30 /F
  386.      GOTO FILES
  387. ENDIF
  388. GOSUB PATH
  389. GOTO FILES
  390. :--------------------------------------------------------------------------:
  391. :  This is for commands for your message base.  The related text file for  :
  392. :  this one is MESGDIR.ASC                                                 :
  393. :--------------------------------------------------------------------------:
  394. :MESSAGES
  395. DISPLAY "|C:\MESSAGES>"
  396. ASK 68 1
  397. IF 1 = ""
  398.      GOTO MESSAGES
  399. ENDIF
  400. IF 1 = "TREE"
  401.      DISPLAYFILE SUBTREE
  402.      GOTO MESSAGES
  403. ENDIF
  404. IF 1 = "CD."
  405.      GOTO MESSAGES
  406. ENDIF
  407. IF 1 = "CD ."
  408.      GOTO MESSAGES
  409. ENDIF
  410. IF 1 = "DIR"
  411.      DISPLAYFILE MESGDIR
  412.      GOTO MESSAGES
  413. ENDIF
  414. IF 1 = "READ"
  415.      MENUCMND 23 /M
  416.      GOTO MESSAGES
  417. ENDIF
  418. IF 1 = "WRITE"
  419.      MENUCMND 27 /M
  420.      GOTO MESSAGES
  421. ENDIF
  422. IF 1 = "SCAN"
  423.      MENUCMND 24 /M
  424.      GOTO MESSAGES
  425. ENDIF
  426. IF 1 = "FASTSCAN"
  427.      MENUCMND 25 /M
  428.      GOTO MESSAGES
  429. ENDIF
  430. IF 1 = "MAILBOX"
  431.      MENUCMND 22
  432.      GOTO MESSAGES
  433. ENDIF
  434. IF 1 = "CHOOSE"
  435.      MENUCMND 49 /MG=0
  436.      GOTO MESSAGES
  437. ENDIF
  438. IF 1 = "PICKCOMB"
  439.      MENUCMND 28 /MG=0
  440.      GOTO MESSAGES
  441. ENDIF
  442. IF 1 = "READCOMB"
  443.      MENUCMND 23 0
  444.      GOTO MESSAGES
  445. ENDIF
  446. IF 1 = "DELETE_C"
  447.      MENUCMND 44
  448.      GOTO MESSAGES
  449. ENDIF
  450. IF 1 = "BROWSE"
  451.      MENUCMND 56
  452.      GOTO MESSAGES
  453. ENDIF
  454. IF 1 = "NEWMAIL"
  455.      MENUCMND 43 /MG
  456.      GOTO MESSAGES
  457. ENDIF
  458. IF 1 = "QWK"
  459.      GOTO MESSAGES
  460.      EXEC *C /C c:\RA\XPRESS.BAT *N *M *O57600
  461.      GOTO MESSAGES
  462. ENDIF
  463. IF 1 = "BLUEWAVE"
  464.      EXEC *C /C c:\RA\BWAVE.BAT *N *M
  465.      GOTO MESSAGES
  466. ENDIF
  467. IF 1 = "INTERNET"
  468.      DISPLAYFILE INTRMAIL
  469.      MENUCMND 27 10 /T=UUCP /N=1:115/31
  470.      GOTO MESSAGES
  471. ENDIF
  472. GOSUB PATH
  473. GOTO MESSAGES
  474. :--------------------------------------------------------------------------:
  475. :  This is for commands to configure a user's account, such things as      :
  476. :  ANSI/ASCII/AVATAR Graphics go here, the related text file is called     :
  477. :  CONFIGDR.ASC                                                            :
  478. :--------------------------------------------------------------------------:
  479. :CONFIG
  480. DISPLAY "|C:\CONFIG>"
  481. ASK 70 1
  482. IF 1 = ""
  483.      GOTO CONFIG
  484. ENDIF
  485. IF 1 = "TREE"
  486.      DISPLAYFILE SUBTREE
  487.      GOTO CONFIG
  488. ENDIF
  489. IF 1 = "CD."
  490.      GOTO CONFIG
  491. ENDIF
  492. IF 1 = "CD ."
  493.      GOTO CONFIG
  494. ENDIF
  495. IF 1 = "DIR"
  496.      DISPLAYFILE CONFIGDR
  497.      GOTO CONFIG
  498. ENDIF
  499. IF 1 = "LOCATION"
  500.      MENUCMND 16
  501.      GOTO CONFIG
  502. ENDIF
  503. IF 1 = "PASSWORD"
  504.      MENUCMND 17
  505.      GOTO CONFIG
  506. ENDIF
  507. IF 1 = "SCRNLEN"
  508.      MENUCMND 18
  509.      GOTO CONFIG
  510. ENDIF
  511. IF 1 = "SCRNCLR"
  512.      MENUCMND 19
  513.      GOTO CONFIG
  514. ENDIF
  515. IF 1 = "PAGEPAUS"
  516.      MENUCMND 20
  517.      GOTO CONFIG
  518. ENDIF
  519. IF 1 = "ANSI"
  520.      MENUCMND 21
  521.      GOTO CONFIG
  522. ENDIF
  523. IF 1 = "AVATAR"
  524.      MENUCMND 61
  525.      GOTO CONFIG
  526. ENDIF
  527. IF 1 = "FULLEDIT"
  528.      MENUCMND 41
  529.      GOTO CONFIG
  530. ENDIF
  531. IF 1 = "LANGUAGE"
  532.      MENUCMND 63
  533.      GOTO CONFIG
  534. ENDIF
  535. IF 1 = "FULLVIEW"
  536.      MENUCMND 62
  537.      GOTO CONFIG
  538. ENDIF
  539. IF 1 = "DATE"
  540.      MENUCMND 64
  541.      GOTO CONFIG
  542. ENDIF
  543. GOSUB PATH
  544. GOTO CONFIG
  545. :-----------------------------------------------------------------------:
  546. :   This is for commands to leave feedback... Just make another menu    :
  547. :   type 27 command with similar optional data to add another person    :
  548. :   to the list of people to leave feedback to.  The related text file  :
  549. :   is CFEED.ASC                                                        :
  550. :-----------------------------------------------------------------------:
  551. :FEEDBACK
  552. DISPLAY "|C:\FEEDBACK>"
  553. ASK 68 1
  554. IF 1 = ""
  555.      GOTO FEEDBACK
  556. ENDIF
  557. IF 1 = "TREE"
  558.      DISPLAYFILE SUBTREE
  559.      GOTO FEEDBACK
  560. ENDIF
  561. IF 1 = "DIR"
  562.      DISPLAYFILE CFEED
  563.      GOTO FEEDBACK
  564. ENDIF
  565. IF 1 = "CRYPTO"
  566.      MENUCMND 27 1 /T=CRYPTOKNIGHT
  567.      GOTO FEEDBACK
  568. ENDIF
  569. IF 1 = "JEXMANN"
  570.      MENUCMND 27 1 /T=JEX_MANN
  571.      GOTO FEEDBACK
  572. ENDIF
  573. IF 1 = "DIXIE"
  574.      MENUCMND 27 1 /T=DIXIE
  575.      GOTO FEEDBACK
  576. ENDIF
  577. IF 1 = "TIGGER"
  578.      MENUCMND 27 1 /T=TIGGER
  579.      GOTO FEEDBACK
  580. ENDIF
  581. IF 1 = "BLINDMAN"
  582.      MENUCMND 27 1 /T=BLINDMAN
  583.      GOTO FEEDBACK
  584. ENDIF
  585. GOSUB PATH
  586. GOTO FEEDBACK