' FastScript v1.0
' 'Case' operator demo
dim i = 0, j
select case i
case 1: j = 1
case 2..10: j = 2: Inc(j)
case else: j = 10
end select
ShowMessage(j)
{**************************}
{ FastScript v1.0 }
{ 'Case' operator demo }
{**************************}
var
i, j: Integer;
begin
i := 0;
case i of
1: j := 1;
2.
# Commands covered: case
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. N
package com.javapatterns.visitor.inventory;
public class Case extends Equipment
{
public double price()
{
return 30.00;
}
public void accept(Visitor v)
{
Sy
