please edit for your system...........
'****************************************************************************
'**        This script was converted from VBBS format by VACOM 1.50        **
'****************************************************************************

CLEAR
CLS
PRINT
normal:
PRINT " Please stand by while I check your age "
DELAY 2
IF !86 <= 18 read GOTO label~1
  GOTO label~2
label~1:
  GOTO label~3
label~2:
read:
CLS
PRINT
PRINT
PRINT " Welcome to BAD (Big Adult Diversions). This area is reserved "
PRINT " for adults, that is those users over 21 years of age. "
PRINT
PRINT
PRINT " Would you like to access this area?"
PRINT
PRINT
GETYN a0,
IF a0 = "Y" GOTO play
IF a0 = "N" GOTO getout
'* ENDIF without IF removed by VACOM *
'ENDIF
quit:
EXIT
play:
LET y = "R"
LET x = !57
LET a1 = !8
IFVAL a1 <> 0 GOTO playit
'* ENDIF without IF removed by VACOM *
'ENDIF
mail:
CLS
PRINT
PRINT "It appears you have not applied for access to this area. Would you"
PRINT " like to automatically send an E-Mail to ", !20, " requesting access?"
PRINT
PRINT
GETYN a2,
IF a2 = "Y" GOTO mailit
IF a2 = "N" GOTO getout
'* ENDIF without IF removed by VACOM *
'ENDIF
mailit:
CLS
PRINT
PRINT " Just answer the following few questions. "
PRINT
RS a3, "What is your date of birth? "
PRINT
RS a4, "What is a good telephone number to verify you at? "
PRINT
RS a5, "When is a good time for me to call for a voice validation? "
BUFFER CLEAR
SETEMAIL
LET a6 = "Big Adults Access Request "
LET a7 = " My date of birth is  " % a3
LET a8 = " I can be voice validated at " % a4
LET a9 = " The best time to call is " % a5
BUFFER APPEND, a7
BUFFER APPEND, a8
BUFFER APPEND, a9
SAVE "", 1, "1425001", 1, a6, 0, ""
BUFFER CLEAR
CLS
PRINT
PRINT
PRINT "Ok, an E-Mail has automatically been sent to ", !20, "."
PRINT " You will be notified via E-Mail when your access"
PRINT " has been activated. Thank You...."
PRINT " Please be advised that additional identification"
PRINT " may be required, to obtain access to this area"
PAUSE
EXIT
getout:
PRINT
CLS
PRINT
PRINT "Now returing to the HOLODECK Menu."
DELAY 2
CLS
PRINT
EXIT
playit:
EXIT "adult"
CLEAR
CLS
CLS
PRINT
label~3:
read:
CLS
PRINT
PRINT
PRINT " Welcome to KKK (Kids Korner Klubhouse). This area is reserved "
PRINT " for kiddies, that is those users under 18 years of age. "
PRINT
PRINT
PRINT " Would you like to access this area?"
PRINT
PRINT
GETYN c0,
IF c0 = "Y" GOTO playx
IF c0 = "N" GOTO getoutx
'* ENDIF without IF removed by VACOM *
'ENDIF
quit:
EXIT
playx:
LET y = "V"
LET x = !57
LET c1 = !8
IFVAL c1 <> 0 GOTO playitx
'* ENDIF without IF removed by VACOM *
'ENDIF
mail:
CLS
PRINT
PRINT "It appears you have not applied for access to this area. Would you"
PRINT " like to automatically send an E-Mail to ", !20, " requesting access?"
PRINT
PRINT
GETYN c2,
IF c2 = "Y" GOTO mailitx
IF c2 = "N" GOTO getoutx
'* ENDIF without IF removed by VACOM *
'ENDIF
mailitx:
CLS
PRINT
PRINT " Just answer the following few questions. "
PRINT
RS c3, "What is your date of birth? "
PRINT
RS c4, "What is a good telephone number to verify you at? "
PRINT
RS c5, "When is a good time for me to call for a voice validation? "
BUFFER CLEAR
SETEMAIL
LET c6 = "Kiddies Area Access Request "
LET c7 = " My date of birth is  " % a3
LET c8 = " I can be voice validated at " % a4
LET c9 = " The best time to call is " % a5
BUFFER APPEND, c7
BUFFER APPEND, c8
BUFFER APPEND, c9
SAVE "", 1, "1425001", 1, c6, 0, ""
BUFFER CLEAR
CLS
PRINT
PRINT
PRINT "Ok, an E-Mail has automatically been sent to ", !20, "."
PRINT " You will be notified via E-Mail when your access"
PRINT " has been activated. Thank You...."
PRINT
PRINT
PAUSE
EXIT
getoutx:
PRINT
CLS
PRINT
PRINT "Now returing to the HOLODECK Menu."
DELAY 2
CLS
PRINT
EXIT
playitx:
EXIT "under18"