home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Notes / Usefulbits / Qnaire < prev    next >
Encoding:
Text File  |  1996-09-16  |  3.8 KB  |  84 lines
  1. {
  2.  
  3. | Thrown into the NFBBS demo - please improve if you want to use it:)
  4.  
  5.  if userlevel>20 then
  6.    nl
  7.    bfg 1 print "You are already validated !!"
  8.    nl
  9.    gosub anykey
  10.    end
  11.  endif
  12.  
  13. std cls attr 3,4} --\\ OuijaBoard BBS Questionnaire \\-- {cll std battr 2,0}
  14.  
  15. The answers to this questionaire will be kept strictly confidential..
  16.  
  17. The purpose of this questionnaire is to validate your user account and in the
  18. process, re-assure the sysop that you are a genuine user with good intent
  19. towards the system and its users (Helps prevent illegal uploads).
  20.  
  21. Unvalidated users will not have access to the filebase or messagebase, therefore
  22. is is neccesary for you to complete this short questionnaire to use this system
  23. to the full. I feel that this step is necessary to eliminate the possibility of
  24. breaches of security on the OuijaBoard BBS.
  25.  
  26. None of the answers to the questionnaire (address, phone number) will be used to
  27. contact you without your prior consent.
  28.  
  29. Failure to complete the information correctly or innacurately may cause delay in
  30. the processing of your user account. The information is also useful in the event
  31. of a corrupted userbase since I will be able to re-build the userbase.
  32. {
  33.  bfg 7  
  34.  declare temp,64
  35.  clearrecord 
  36.  |openmessagebase 
  37.  |readmarea msgarea 
  38.  |if messageareatype=0 then   
  39.   recordprint"--------------------------------------------------------------------------------"
  40.   recordprint"-->> Opened for "+username+" (#"+usernumber+") at "+time+" on "+date }
  41.   {bfg 6}What is your real name      : {attr 3,4 inputc temp,25 recordprint "Name       : "+temp std}
  42.   {bfg 6}What is your address [1/4]  : {attr 3,4 inputc temp,30 recordprint "Address    : "+temp std}
  43.   {bfg 6}                     [2/4]  : {attr 3,4 inputc temp,30 recordprint "           : "+temp std}
  44.   {bfg 6} *not postcode yet*  [3/4]  : {attr 3,4 inputc temp,30 recordprint "           : "+temp std}
  45.   {bfg 6} *not postcode yet*  [4/4]  : {attr 3,4 inputc temp,30 recordprint "           : "+temp std}
  46.   {bfg 6}What is your postcode       : {attr 3,4 inputc temp,10 recordprint "Post Code  : "+temp std}
  47.   {bfg 6}What is your phone number   : {attr 3,4 inputc temp,15 recordprint "Voice No.  : "+temp std}
  48.   {bfg 6}What is your modem number   : {attr 3,4 inputc temp,15 recordprint "Data No.   : "+temp std}
  49.   {bfg 6}What is your date of birth  : {attr 3,4 inputc temp,8  recordprint "D.o.b      : "+temp std}
  50.   {bfg 6}What is your occupation     : {attr 3,4 inputc temp,30 recordprint "Occuption  : "+temp std}
  51.   {bfg 6}Fido or Internet addresses? : {attr 3,4 inputc temp,30 recordprint "Email      : "+temp std}
  52.  
  53. {bfg 2}Thank-you ... the next few questions are for statistical purposes only.
  54. You may, if you wish skip these, however they may aid the continual development 
  55. of the OuijaBoard BBS so your participation would be appreciated!
  56.  
  57.   {bfg 6}What modem are you using    : {attr 3,4 inputc temp,30 recordprint "Modem      : "+temp std}
  58.   {bfg 6}Which computer do you use   : {attr 3,4 inputc temp,30 recordprint "Computer   : "+temp std}
  59.   {bfg 6}What terminal software      : {attr 3,4 inputc temp,30 recordprint "Software   : "+temp std}
  60.   {bfg 6}Where did you hear of Ouija : {attr 3,4 inputc temp,30 recordprint "Heard of.  : "+temp std}
  61.   {bfg 6}What are your interests     : {attr 3,4 inputc temp,30 recordprint "Interests  : "+temp std}
  62.   {bfg 6}Are you a sysop/which BBS   : {attr 3,4 inputc temp,30 recordprint "Sysop      : "+temp std}
  63.  
  64.   {
  65.    writerecord "<NewsFlash$Temp>.UserInfo"
  66.    OSCLI "Settype <NewsFlash$Temp>.UserInfo &FFF"
  67.    |closemessagebase
  68.  |endif
  69.  log "Questionnaire completed"
  70.  userlevel=25
  71.  logontime=120
  72.  bfg 2}
  73. Thanks for completing the questionnaire ..
  74.  
  75. Your user level is now {bfg 7 print userlevel bfg 2}. 
  76. Your daily time limit has been raised to {bfg 7 print logontime bfg 2} minutes.
  77. You are now a {bfg 7}VALIDATED{bfg 2} user pending SysOps confirmation.. 
  78.  
  79. {gosub anykey
  80.  
  81.  
  82.  
  83.  
  84.