Commit 8e35889b authored by rswindell's avatar rswindell
Browse files

Initial check-in: v2.30b (for DOS and OS/2) release (circa 1997).

parent 66ed9a14
: Battle Hymn of Republic |
t 2
s 5
v Mine \
f4 133
v eyes \
f4 160
v have \
f4 100
v seen \
f4 160
v the \
D4 100
v glor\
d4 160
v y \
f4 100
v of \
A4 160
v the \
c5 100
v com\
d5 160
v ing \
d5 100
v of \
d5 160
v the \
c5 100
v lord.\
A4 200
v
\ No newline at end of file
: Bouree |
t 2
b3 80
c4 80
d4 160
g3 80
F3 80
g3 160
g4 160
F4 160
e4 80
F4 80
d4 160
a3 80
b3 80
c4 160
F3 80
e3 80
F3 160
d4 160
b3 160
: Buffalo Gals |
s 5
c3 100
c3 100
c3 200
e3 200
g3 100
g3 100
a3 133
g3 200
g3 133
e3 200
r 200
g3 133
f3 200
f3 133
d3 200
r 200
a3 133
g3 200
g3 133
e3 200
: Camptown Races |
s 5
t 2
a3 100
a3 100
F3 100
a3 100
b3 100
a3 100
F3 200
F3 100
e3 300
F3 100
e3 200
r 15
a3 100
a3 100
F3 100
a3 100
b3 100
a3 100
F3 200
t 200
c5 2
p -.50
b4 2
p -.50
A4 1
p -.50
b4 1
p -.50
A4 1
p -.50
a4 1
p -.50
G4 2
p -.50
g4 2
p -.50
F4 2
p -.50
g4 1
p -.10
g4 1
p -.10
g4 1
p -.10
g4 1
p -.10
g4 1
p -.10
g4 1
p -.10
g4 1
# CNTNODES.SRC
# Counts number of nodes in use and number of nodes waiting for call
# Sets global variables NODES_INUSE and NODES_WFC
!include sbbsdefs.inc
int status
global_int nodes_inuse nodes_wfc
set nodes_inuse 0
set nodes_wfc 0
# Rewind NODE.DAB (_NODEFILE is a system variable)
fset_pos _nodefile 0
:read
feof _nodefile
if_true # End of file
goto end
end_if
# Lock record
flock _nodefile NODE_RECORD_LEN
if_false # Failed
goto end
end_if
# Read status
fread _nodefile status 1
if_false # Failed
funlock _nodefile NODE_RECORD_LEN
goto end
end_if
# Unlock record
fseek _nodefile -1 CUR
funlock _nodefile NODE_RECORD_LEN
# Skip record
fseek _nodefile NODE_RECORD_LEN CUR
switch status
case NODE_WFC
add nodes_wfc 1
end_case
case NODE_LOGON
case NODE_NEWUSER
case NODE_INUSE
case NODE_QUIET
add nodes_inuse 1
end_case
end_switch
goto read
:end
printf "Nodes in use=%ld Waiting for Caller=%ld\r\n" nodes_inuse nodes_wfc
# DEFAULT.SRC
# Copyright 1994 Digital Dynamics
###############################################################################
# #
# Default Command Shell for Synchronet Version 2.00a #
# #
# This shell is an imitation of the Version 1c command set/structure #
# #
# It also serves as an example of a complex command shell using the Baja #
# command shell language #
# #
###############################################################################
# Tips:
#
# Tabstops should be set to 8 to view/edit this file
# If your editor does not support control characters,
# use \1 for Ctrl-A codes
# All lines starting with # are considered comments and are ignored
# Left margins (indents) are not relevant and used only for clarity
# Almost everything is not case sensitive with the exception of @-codes
################################# Begins Here #################################
!include sbbsdefs.inc
# Set return point for main menu commands (via end_cmd)
cmd_home
# Display TEXT\MENU\MAIN.* if not in expert mode
compare_user_misc UM_EXPERT
if_false
cls
menu MAIN
end_if
# Update node status
node_action node_main
async
inc_main_cmds
# Display main Prompt
print "-c\r\n bhMain nc h"
compare_ars exempt T
if_true
print "@TUSED@"
else
print "@TLEFT@"
end_if
print " nc[h@GN@nc] @GRP@ [h@SN@nc] @SUB@: n"
# Get key (with / extended commands allowed)
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
getstrupr 60
endif
compare_ars RIP
if_true
getlines
end_if
# Do nothing for control keys and space
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
cmdkey ^S
end_cmd
cmdkey "
end_cmd
# Write command to log file
logkey_comma
# Hitting number changes current sub-board
cmdkey digit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
msg_get_sub_num
end_cmd
# Hitting /number changes current group
cmdkey edigit
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
msg_get_grp_num
end_cmd
# Show the key hit
compare_user_misc UM_COLDKEYS
if_false
printkey
endif
# Next sub-board
cmdkey >
msg_subboard_up
end_cmd
cmdkey }
msg_subboard_up
end_cmd
cmdkey +
msg_subboard_up
end_cmd
cmdkey =
msg_subboard_up
end_cmd
# Previous sub-board
cmdkey <
msg_subboard_down
end_cmd
cmdkey {
msg_subboard_down
end_cmd
cmdkey -
msg_subboard_down
end_cmd
# Next group
cmdkey ]
msg_group_up
end_cmd
# Previous group
cmdkey [
msg_group_down
end_cmd
# String commands start with a semicolon
cmdkey ;
compare_user_misc UM_COLDKEYS
if_true
shift_str 1
else
getstrupr 40
end_if
exec_bin str_cmds
end_cmd
cmdkey T
chkfile "..\text\menu\tmessage.*"
if_true
menu tmessage
end_if
call file_transfers
end_cmd
compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset
# Menu
cmdkey ?
compare_user_misc UM_expert
if_true
menu main
end_if
end_cmd
# Sysop Menu
compare_ars SYSOP or EXEMPT Q or I or N
if_true
cmdkey !
menu sysmain
end_cmd
end_if
# Commands
cmdkey A
auto_message
end_cmd
cmdkey B
print "\r\nchBrowse/New Message Scan\r\n"
msg_browse_scan
end_cmd
cmdkey C
chat_section
end_cmd
cmdkey D
user_defaults
end_cmd
cmdkey E
call E-mail
end_cmd
cmdkey F
print "\r\nchFind Text in Messages\r\n"
msg_find_text
end_cmd
cmdkey /F
msg_find_text_all
end_cmd
cmdkey G
text_file_section
end_cmd
cmdkey I
call main_info
end_cmd
cmdkey J
msg_select_area
end_cmd
cmdkey /L
nodelist_all
end_cmd
cmdkey M
minute_bank
end_cmd
cmdkey N
print "\r\nchNew Message Scan\r\n"
msg_new_scan
end_cmd
cmdkey /N
msg_new_scan_all
end_cmd
cmdkey O
file_download_batch
if_true
end_cmd
end_if
logoff
end_cmd
cmdkey /O
file_download_batch
if_true
end_cmd
end_if
logoff_fast
end_cmd
cmdkey P
msg_post
end_cmd
cmdkey Q
msg_qwk
end_cmd
cmdkey R
msg_read
end_cmd
cmdkey S
print "\r\nchScan for Messages Posted to You\r\n"
msg_your_scan
end_cmd
cmdkey /S
msg_your_scan_all
end_cmd
cmdkey U
print "\r\nchList Users\r\n"
mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
getcmd LSA\r
cmdkey L
userlist_logons
end_cmd
cmdkey S
userlist_sub
end_cmd
cmdkey A
userlist_all
end_cmd
# fall-through for CR, Ctrl-C, etc
end_cmd
cmdkey /U
userlist_all
end_cmd
cmdkey X
xtrn_section
end_cmd
cmdkey Z
print "\r\nchContinuous New Message Scan\r\n"
msg_cont_scan
end_cmd
cmdkey /Z
msg_cont_scan_all
end_cmd
cmdkey *
msg_show_subboards
end_cmd
cmdkey /*
msg_show_groups
end_cmd
cmdkey &
call main_cfg
end_cmd
cmdkey #
print "\r\nchType the actual number, not the symbol.\r\n"
end_cmd
cmdkey /#
print "\r\nchType the actual number, not the symbol.\r\n"
end_cmd
# fall through
print "\r\nchUnrecognized command."
compare_user_misc UM_expert
if_true
print " Hit 'i?nch' for a menu."
end_if
crlf
end_cmd
# shouldn't hit next line
print "Problem in command shell."
pause
hangup
############################### E-mail Section ################################
:e-mail
cmd_home
compare_user_misc UM_expert
if_false
menu E-MAIL
end_if
async
print "\r\nyhE-mail: n"
getcmd ?SRFNUKQ\r
logkey
cmdkey ?
compare_user_misc UM_expert
if_true
menu E-MAIL
end_if
end_cmd
cmdkey S
print "_\r\nbhE-mail (User name or number): w"
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send
end_cmd
cmdkey U
print "_\r\nbhE-mail (User name or number): w"
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send_file
end_cmd
cmdkey R
mail_read
end_cmd
cmdkey F
setstr "1"
mail_send_feedback
end_cmd
cmdkey N
no_yes "\r\nAttach a file"
if_true
mail_send_netmail
else
mail_send_netfile
end_if
end_cmd
cmdkey K
mail_read_sent
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmd_pop
return
############################ Main Info Section ###############################
:main_info
cmd_home
compare_user_misc UM_expert
if_false
menu MAININFO
end_if
async
print "\r\nyhInfo: n"
getcmd ?QISVY\r
logkey
cmdkey ?
compare_user_misc UM_expert
if_true
menu MAININFO
end_if
end_cmd
cmdkey I
info_system
end_cmd
cmdkey S
info_subboard
end_cmd
cmdkey Y
info_user
end_cmd
cmdkey V
info_version
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmd_pop
return
########################### Main Config Section ##############################
:main_cfg