'$ include "..\WC_Subs\WC_Subs.WCC"

     const COPYRIGHT = "Security v1.0 (C) 1995 David Wallace Croft"

     declare sub Menu

     sub Menu
     //////////////////////////////////////////////////////////////////////
       type str1 = string*1
       dim Default as str1
       dim Option as str1
     //////////////////////////////////////////////////////////////////////
       Default = "Q"
       do
         cls
         Color ( 12 )
         ? COPYRIGHT
         ?
         ? "SECURITY MENU"
         ?
         ? "[P]  Change Your Password"
         ?
         ? "Your current security level is "; User.SecLevel; "."
         ?
         ? "[#]  SECURITY    DURATION  COST   DESCRIPTION"
         ? "---  ----------  --------  -----  ----------------------------------------"
rem         ? "[1]  NEWS READ   One Call  $0.01  Only read the Internet newsgroups"
rem         ? "[2]  NEWS WRITE  One Call  $0.10  Read & write to the Internet newsgroups"
         ? "[1]  NET SYSOP   Forever   $1.00  Network your BBS with ours with QWK mail"
         ?
         ? "Option ["; Default; "]:  ";
         input Option
         Option = Ucase ( Option )
         if Option = "" then
           Option = Default
         end if
         select case Option
           case "P"
             Password_Change
           case "Q"
             exit do
           case "1"
             if User_Paid_Cost ( 100 ) then
               User.SecLevel = "NET SYSOP"
             end if
           case else
             Beep
         end select
       loop
     end sub

     //////////////////////////////////////////////////////////////////////
     //////////////////////////////////////////////////////////////////////
     Menu