home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / zmenu1_0.zip / REGISTER.MEC < prev    next >
INI File  |  1994-10-25  |  3KB  |  57 lines
  1. [Dequal goto cont]
  2.  
  3. [white blink]You have already registered!
  4. [lightcyan quit]
  5. [/cont]
  6. I will now ask a few questions.  Nobody but the SysOp will ever have access to
  7. this file.  Please fill them out as completely and accuratly as you can.  If
  8. you give false information your account will be terminated.  After you have
  9. finished you will be given Normal access automaticly.  Are you ready to do
  10. this now? [[N,y,?][ansopt][menu]NY?|
  11. [choice]N [goto end]
  12. [choice]| [goto end]
  13. [choice]?[lightcyan]Answer Y for yes or N for no.  Default is no. [white][enter][goto cont]
  14. [open]D:\LOGS\REGISTER.DAT
  15. [/topping]
  16. [ansreq]
  17. [write]________________________________________________________________________
  18. [post]
  19. [lightcyan]What is your name? [magenta][readln]Name
  20. [/gender][lightblue]What is your gender (M/F)? [lightmagenta][menu]MF
  21. [choice]M[write]GENDER : Male
  22. [choice]F[write]GENDER : Female
  23. [goto age]
  24. [lightred blink]That is an invalid answer.[goto gender]
  25. [/age][lightcyan]What is your age and your date of birth? [magenta][readln]Age
  26. [lightblue]What is your street address? [lightmagenta][readln]Address
  27. [lightcyan]What is your city and state? [magenta][readln]Address
  28. [lightblue]What is your home, voice phone number including area code? [lightmagenta][readln]phone
  29. [lightcyan]Are you a SysOp or CoSysOp of another BBS? (Y/N)? [magenta][menu]YN
  30. [choice]N[goto where]
  31. [lightblue]What is the name of your BBS? [lightmagenta][readln]BBSName
  32. [lightcyan]What is the phone number of your BBS? [magenta][readln]BBSPhone
  33. [ansopt][lightblue]What is the Fido address of your BBS? (blank if none) [lightmagenta][readln]BBSFidoAddress
  34. [lightcyan]What is your title at your BBS? (SysOp,CoSysOp,other) [magenta][readln]title
  35. [ansreq][lightblue]Please describe your BBS, software, theme, features, using one line.
  36. [white]/---------------------------------------------------------------------\
  37. [lightmagenta][readln]BBSinfo
  38. [/where][lightblue]Where have you heard of this BBS? [lightmagenta][readln]where
  39. [lightcyan]Now, just one short line about what you look for in a BBS.
  40. [white]/---------------------------------------------------------------------\
  41. [lightmagenta][readln]Interest
  42.  
  43. [white]Is all this correct (Y/N) ? [menu]YN
  44. [choice]N[write]Ooooooooooppppppppppssssssss!  Delete last entry!
  45. [choice]N[goto topping]
  46. [setpriv N]
  47. [white]Thanks, [lightcyan][first][white], for answering these questions. You have been given [lightcyan]Normal
  48. [white]access.  This gives you 60min call/90min day, 2500kb to download, access to
  49. most message and all file bases and, of course, door games!
  50. Welcome aboard and enjoy the BBS!
  51.  
  52. [enter]
  53. [goto end]
  54.  
  55. [/end]
  56. [lightblue quit]
  57.