home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs230b.exe / EXEC.LZH / PCBOARD.SRC < prev    next >
Encoding:
Text File  |  1995-09-04  |  4.4 KB  |  370 lines
  1. # PCBOARD.SRC
  2.  
  3. # PCBoard v15.1 menu/command emulation
  4.  
  5. !include sbbsdefs.inc
  6.  
  7. menu pcboard\welcome
  8.  
  9. cmd_home
  10. compare_ars expert
  11. if_false
  12.     cls
  13.     menu pcboard\brdm
  14.     end_if
  15. node_action node_main
  16. async
  17. print "n\r\nyh(r@MINLEFT@y min. left) @GRP@ (@GN@) @SUB@ (@SN@) "
  18. print "Command? n"
  19. getstr 60
  20.  
  21. compare_str ""
  22. if_true
  23.     end_cmd
  24.     end_if
  25.  
  26. cmdstr ?
  27.     compare_ars expert
  28.     if_true
  29.         cls
  30.         menu pcboard\brdm
  31.         end_if
  32.     end_cmd
  33.  
  34. cmdstr HELP
  35.     compare_ars expert
  36.     if_true
  37.         cls
  38.         menu pcboard\brdm
  39.         end_if
  40.     end_cmd
  41.  
  42. cmdstr F
  43.     file_select_area
  44.     if_true
  45.         setstr "*.*"
  46.         file_list
  47.         end_if
  48.     end_cmd
  49.  
  50. cmdstr EXT
  51.     file_select_area
  52.     if_true
  53.         setstr "*.*"
  54.         file_list_extended
  55.         end_if
  56.     end_cmd
  57.  
  58. cmdstr VIEW
  59.     getfilespec
  60.     if_true
  61.         file_view
  62.         end_if
  63.     end_cmd
  64.  
  65. cmdstr BATCH
  66.     file_batch_section
  67.     end_cmd
  68.  
  69. cmdstr REMOVE
  70.     getfilespec
  71.     if_true
  72.         file_remove
  73.         end_if
  74.     end_cmd
  75.  
  76. cmdstr D
  77.     file_download_batch
  78.     if_true
  79.         end_cmd
  80.                 end_if
  81.     getfilespec
  82.     if_true
  83.         file_download
  84.         end_if
  85.     end_cmd
  86.  
  87. cmdstr U
  88.     chkfile "..\text\menu\upload.*"
  89.     if_true
  90.         menu upload
  91.                 end_if
  92.     file_upload
  93.     end_cmd
  94.  
  95. cmdstr L
  96.     file_find_name
  97.     end_cmd
  98.  
  99. cmdstr N
  100.     print "\r\nbhUse c@LASTNEW@b for new file scan date"
  101.     yes_no ""
  102.     if_false
  103.         file_ptrs_cfg
  104.         if_false
  105.             end_cmd
  106.             end_if
  107.         end_if
  108.     file_new_scan
  109.         end_cmd
  110.  
  111. cmdstr Z
  112.     file_find_text
  113.     end_cmd
  114.  
  115. cmdstr T
  116.     file_temp_section
  117.     end_cmd
  118.  
  119. cmdstr C
  120.     setstr "1"
  121.     mail_send_feedback
  122.     crlf
  123.     end_cmd
  124.  
  125. cmdstr Y
  126.     msg_your_scan
  127.     end_cmd
  128.  
  129. cmdstr TS
  130.     msg_find_Text
  131.     end_cmd
  132.  
  133. cmdstr QWK
  134.     msg_qwk
  135.     end_cmd
  136.  
  137. cmdstr AUTO
  138.     auto_message
  139.     end_cmd
  140.  
  141. cmdstr SELECT
  142.     msg_new_scan_cfg
  143.     end_cmd
  144.  
  145. cmdstr A
  146.     msg_ptrs_cfg
  147.     end_cmd
  148.  
  149. cmdstr R
  150.     msg_read
  151.     end_cmd
  152.  
  153. cmdstr S
  154.     info_system
  155.     end_cmd
  156.  
  157. cmdstr E
  158.     msg_post
  159.     end_cmd
  160.  
  161. cmdstr RN
  162.     msg_new_scan
  163.     end_Cmd
  164.  
  165. cmdstr RC
  166.     msg_cont_scan
  167.     end_cmd
  168.  
  169. cmdstr JOIN
  170.     msg_select_area
  171.     end_cmd
  172.  
  173. compare_word "JOIN "
  174. if_true
  175.     shift_str 5
  176.     msg_set_area
  177.     end_cmd
  178.     end_if
  179.  
  180. cmdstr J
  181.     msg_select_area
  182.     end_cmd
  183.  
  184. cmdstr M
  185.     call e-mail
  186.     end_cmd
  187.  
  188. cmdstr X
  189.     toggle_user_misc UM_EXPERT
  190.     print "\r\nExpert mode is now: "
  191.     compare_ars EXPERT
  192.     if_true
  193.         print "ON"
  194.     else
  195.         print "OFF"
  196.         end_if
  197.     crlf
  198.     end_cmd
  199.  
  200. cmdstr B
  201.     text_file_section
  202.     end_cmd
  203.  
  204. cmdstr V
  205.     info_user
  206.     end_cmd
  207.  
  208. cmdstr G
  209.     file_download_batch
  210.     if_true
  211.         end_cmd
  212.                 end_if
  213.     logoff
  214.     end_cmd
  215.  
  216. cmdstr W
  217.     user_defaults
  218.     end_cmd
  219.  
  220. cmdstr O
  221.     page_sysop
  222.     end_cmd
  223.  
  224. cmdstr P
  225.     private_message
  226.     end_cmd
  227.  
  228. cmdstr I
  229.     menu ..\ANSWER
  230.     menu pcboard\welcome
  231.     end_cmd
  232.  
  233. cmdstr WHO
  234.     nodelist_users
  235.     end_cmd
  236.  
  237. cmdstr CHAT
  238.     chat_section
  239.     end_cmd
  240.  
  241. cmdstr NEWS
  242.     menu LOGON
  243.     end_cmd
  244.  
  245. cmdstr DOOR
  246.     xtrn_section
  247.         end_cmd
  248.  
  249. cmdstr OPEN
  250.     xtrn_section
  251.     end_cmd
  252.  
  253. compare_word "OPEN "
  254. if_true
  255.     shift_str 5
  256.     xtrn_exec
  257.     end_cmd
  258.         end_if
  259.  
  260. compare_word "USER "
  261. if_true
  262.     shift_str 5
  263.     crlf
  264.     finduser
  265.     if_true
  266.         print "yhVerified: w"
  267.         printstr
  268.         crlf
  269.                 end_if
  270.     end_cmd
  271.     end_If
  272.  
  273. cmdstr USER
  274.     print "\r\nyhUsername search string (Enter=List Conferences Users): w"
  275.         getname 25
  276.     compare_str ""
  277.     if_true
  278.         userlist_sub
  279.     else
  280.         crlf
  281.         finduser
  282.         if_true
  283.             print "yhVerified: w"
  284.             printstr
  285.             crlf
  286.             end_if
  287.         end_cmd
  288.         end_If
  289.     end_cmd
  290.  
  291. print "\r\nrhInvalid Entry!  Please try again, @FIRST@ ...\r\n"
  292. end_cmd
  293.  
  294. :e-mail
  295. cmd_home
  296. compare_ars expert
  297. if_false
  298.     menu E-MAIL
  299.     end_if
  300. async
  301. print "\r\nyhE-mail: n"
  302. getcmd ?SRFNUKQ\r
  303. logkey
  304.  
  305. cmdkey ?
  306.     compare_ars expert
  307.     if_true
  308.         menu E-MAIL
  309.         end_if
  310.     end_cmd
  311.  
  312. cmdkey S
  313.     print "_\r\nbhE-mail (User name or number): w"
  314.     getname 25
  315.     compare_str ""
  316.     if_true
  317.         end_cmd
  318.         end_if
  319.     compare_str "SYSOP"
  320.     if_true
  321.         setstr "1"
  322.         end_if
  323.     mail_send
  324.     end_cmd
  325.  
  326. cmdkey U
  327.     print "_\r\nbhE-mail (User name or number): w"
  328.     getname 25
  329.     compare_str ""
  330.     if_true
  331.         end_cmd
  332.         end_if
  333.     compare_str "SYSOP"
  334.     if_true
  335.         setstr "1"
  336.         end_if
  337.     mail_send_file
  338.         end_cmd
  339.  
  340. cmdkey R
  341.     mail_read
  342.     end_cmd
  343.  
  344. cmdkey F
  345.     setstr "1"
  346.     mail_send_feedback
  347.     end_cmd
  348.  
  349. cmdkey N
  350.     no_yes "\r\nAttach a file"
  351.     if_true
  352.         mail_send_netmail
  353.     else
  354.         mail_send_netfile
  355.         end_if
  356.     end_cmd
  357.  
  358. cmdkey K
  359.     mail_read_sent
  360.     end_cmd
  361.  
  362. cmdkey Q
  363.     cmd_pop
  364.     return
  365.     end_cmd
  366.  
  367. cmd_pop
  368. return
  369.  
  370.