9 lines
88 B
Plaintext
9 lines
88 B
Plaintext
set ival 0.5
|
|
|
|
while {$ival<3 } {
|
|
cs iset $ival
|
|
wait 21
|
|
cs iset -$ival
|
|
wait 21
|
|
}
|