sample
w "Total No.Of Sticks:21"_!
s sticks=21
r "enter machine name: ",a
r "enter dev name: ",b
w "Display 1 to 21 sticks"_!
s i=""
f i=1:1:21{
w " "_i_" "
}
user(sticks)
w !_"User select 1 or 2 or 3 or 4 sticks:"_!
r "User enter sticks: ",us
if us>4 {
w "please select upto 4 Sticks"
r "User enter sticks: ",us
}
s cnt=sticks-us
s sticks=cnt
f i=1:1:sticks {
w " "_i_" "
}
s dev=1
s machine=0
d:sticks=0 lost(dev,machine)
d machine(.sticks,us)
q
machine(sticks,us)
InterSystems Developer Community is a community of
24,994 amazing developers
We're a place where InterSystems IRIS programmers learn and share, stay up-to-date, grow together and have fun!

.