| Directives |
|
| Format | CASE
range[$] Where:
|
|||||
| Description | Use the CASE directive to list possible branch points in a program. | |||||
| See Also | SWITCH
Branch Control, BREAK Immediate Exit of Loop, DEFAULT Branch If No Matching Case |
|||||
| Examples | 00100
PROCESS_TAXCODE: 00110 LiquorTax=0,SalesTax=0,ServiceTax=0 00120 SWITCH UCS(TaxCode$) 00130 CASE "X","Z" ! two codes are tax exempt 00140 BREAK ! stop processing for case "X" here 00150 CASE "L" ! liquor pays all liquor,sales and service tax 00160 LiquorTax=cost*LiquorTaxRate 00170 ! no break here, logic falls through 00180 CASE "S" ! pays sales and service tax 00190 SalesTax=cost*SalesTaxRate 00200 ! no break here, logic falls through 00210 CASE "V" ! service tax 00220 ServiceTax=cost*ServiceTaxRate 00230 BREAK ! end processing for this case and any that fell through 00240 DEFAULT ! enter here if case not found |
|||||
| 00250 | MSGBOX "Unknown tax code","Error" | |||||
| 00260
END SWITCH 00270 TotalTax=LiquorTax+SalesTax+ServiceTax 00280 RETURN |
||||||