/***********************************************************************\
<*                        MuLtIpLe FeEdBaCk                              *>
<*              Written by TreBor Of ThE FunHoSUe                        *>
 \***********************************************************************/

               cfg='sysdata:log/FeedBK.dat'

 /***********************************************************************\
<*     The Only varible That You Can Change Is The Above Data Path       *>
<*************************************************************************>
<*              Read Dox For Using And Installing                        *>
 \***********************************************************************/

options results;tr=transmit;se=sendstring;pr=prompt;
hell=upper(arg(1))
if hell='RESTART' then call ReStArT
if exists(cfg)=0 then signal notdone
FeedBk:
open(2,cfg,'r')
user=readln(2)
do i=1 to user
handle.i=readln(2)
comment.i=readln(2)
end i
close(2)

tr 'f1'center('z4MuLtIpLe FeEdBaCk VerSioN 0.1z0',76)
tr 'c3 .------------------------------------------------------------------.c7'
do i=1 to user
tr ' c3|c6 'i'c7.c2'center(handle.i,20)' c3-c2 'center(comment.i,40)'c3|c7'
end i
tr 'c3 `------------------------------------------------------------------''c7'
pr 2 normal '>1Leave FeedBack To Whom c6?c7';fb=result
if fb='' then exit; if fb>user then exit; if fb<1 then exit
tr 'n1>1Leaving FeedBack To c1'Handle.fb'c7'
bbscommand 'mail 'handle.fb
exit



restart:
if exists(cfg)=0 then signal yes
if exists(cfg)=1 then pr 3 yesno 'f1c2Cc7onfig File All Ready Exists Delete It c6?c7';yes=result
if yes='No' then exit
if yes='Yes' then do
address command 'c:delete 'cfg
yes:
pr 2 normal 'f1c1Hc7ow Many Users Do You Wish To Show On The Multiple Feedback Menu c6?c7' ; users=result
do i=1 to users
pr 20 normal 'n1c3Wc7hat''s User 'i'''s Handle c6?c7' ; handle.i=result
pr 40 normal 'c4Ec7nter A Comment For User 'i'''s Handle c6?c7' ; Comment.i=result
end i
se 'n1c1Wc7riting File '
open(1,cfg,'w')
writeln(1,users)
do i=1 to users
se 's4c6.c7'
writeln(1,handle.i)
se 's4c6.c7'
writeln(1,comment.i)
se 's4c6.c7'
end i
close(1)
exit

notdone:
tr 'f1c1Sc7ysop Hasn''t Configured This Program Leave Mail To Sysop s1c6.......c7s0'
exit

/************************THE*FUNHOUSE*!*!********************************\
\*******************EOF*CALL*ME*ON*+44-482-897736************************/