CLS
loc 1,1
? "�----------============���������������������������============----------� "
loc 2,28
'EDIT THE BELOW LINE TO SAY YOUR SYSTEMS NAME!
? " xxxxxxxxxxxxxxxxxxxxxx "
loc 4,25
? " FEEDBACK MESSAGE CENTER "
loc 6,1
? "�---------�============���������������������������============�---------� "
loc 7,10
? " �        1.... Suggestion For BBS Improvement       � "
loc 8,10
? " �        2.... Problems With Door Games!!!!         �  "
loc 9,10
? " �        3.... Question About Message Areas!!!!     �  "
loc 10,10
? " �        4.... Just Droppin a Line to say HI!       �  "
loc 11,10
? " �        5.... HELP!!!! General HELP!!!!            �  "
loc 12,10
? " �        Q.... Quit Problem  Message Center.        �  "
loc 13,1
? "�---------�============���������������������������============�---------� "
loc 15,16
? " Please Make your Selection (1-5 or Q) =>" ;
rr f1, "12345Q"
IF f1 = "1" GOTO ANSI
IF f1 = "2" GOTO DOOR
IF f1 = "3" GOTO MESS
IF f1 = "4" GOTO HI
IF f1 = "5" GOTO HELP
IF f1 = "Q" GOTO EXIT
'IF f1 = "Q" GOTO EXIT
ANSI:
LET $TOPIC = "SUGGESTION FOR BBS"
GOTO FEED
DOOR:
LET $TOPIC = "FEEDBACK ON DOOR'S"
GOTO FEED
MESS:
LET $TOPIC = "FEEDBACK ON MESSAGES"
GOTO FEED
HI:
LET $TOPIC = "HI Just Dropping You a Line"
GOTO FEED
HELP:
LET $TOPIC = "HELP I DON'T KNOW WHAT I AM DOING!!!!"
GOTO FEED
? ""
FEED:
clr
buffer clear
SETEMAIL
BUFFER EDIT
BUFFER APPEND, "Below is a short User Profile to aid in trouble shooting."
BUFFER APPEND, "User's Real Name :"
BUFFER APPEND, !52
BUFFER APPEND, "User's Handle :"
BUFFER APPEND, !51
BUFFER APPEND, "User's Number :"
BUFFER APPEND, !50
BUFFER APPEND, "User's Security Leval :"
BUFFER APPEND, !54
BUFFER APPEND, "End Of User Profile"
'EDIT THIS LINE TO SHOW YOUR NAME AND NODE NUMBER!!!!
SAVE xxxxx, 1, xxxxxxx, 1, $TOPIC
pause " Thank You "
EXIT:
exit