act*24843

subroutine act24843

include wbp w3Include

option = ""

call w3GetVal(option, "option")

begin case

      case option = 1

           text = "$#*FC_Authorization_Failed*#$"

      case option = 2

           text = "$#*FC_No_Output*#$"

      case option = 3

           text = "$#*FC_ClosingPage*#$"

      case option = 4

           text = "$#*FC_w3ChangeAccount_Failed*#$"

      case option = 5

           text = "$#*FC_Illegal_Command*#$"

      case 1

           text = "Please set option = to 1-4"

end case

call w3Printn(text)

return