! Guest Application Form
! By: CtG 1@1615004 VirtualNET

! Installation - insert following lines at top of START.V:
!                    & GUEST
!                    CALL GUEST

action "Filling Out GUEST Application"
# guest
$rlname = ""
$rlfrom = ""
$reason = ""
$gfoo = 0
tr $clear
tr "UWelcome, 6GuestU.  Thanks for calling the " $bbsname
# gtop
ifval $gfoo = 1 then
        tr
        tr "*ALL* Fields must be filled in."
endif
$gfoo = 1
tr
tr "Please take a moment to answer these questions.  They do not affect"
tr "your access level in any way."
tr
rs $rlname "Please Enter your *REAL* name           : "
rs $rlfrom "Where are you calling from              : "
rs $reason "Please Enter the reason you are calling : "
test $rlname = "" gtop
test $rlfrom = "" gtop
test $reason = "" gtop
tr
tr "UThank you for answering these questions0"
$gg = "6‏‏‏ UGUEST LOGIN 6‏‏‏"
$ga = $rlname & " called as Guest from " & $rlfrom
$gb = "Reason: " & $reason
log $gg
log $ga
log $gb
open c:\vbbs\data\callers.lst append
write "Uתתתתתתתתתתתתתתתתתתתת5" $rlname "Uת0"
close
# gend
action "Startup"
RET