|
END SWITCH |
End Branching of a Program |
Use the END SWITCH directive to stop the branching that has been activated in an application by a SWITCH directive.
SWITCH Branch Control
BREAK Immediate Exit of Loop
CASE Define Branch Points
DEFAULT Branch If No Matching Case
PROCESS_TAXCODE:
LiquorTax=0,SalesTax=0,ServiceTax=0
switch ucs(TaxCode$)
case "X","Z" ! two codes are tax exempt
break ! stop processing for case "X" here
case "L" ! liquor pays all liquor,sales and service tax
LiquorTax=cost*LiquorTaxRate
! no break here, logic falls through
case "S" ! pays sales and service tax
SalesTax=cost*SalesTaxRate
! no break here, logic falls through
case "V" ! service tax
ServiceTax=cost*ServiceTaxRate
break ! end processing for this case and any that fell through
default ! enter here if case not found
msgbox "Unknown tax code","Error"
end switch
TotalTax=LiquorTax+SalesTax+ServiceTax
return