8 lines
108 B
Tcl
8 lines
108 B
Tcl
scan clear
|
|
scan np 10
|
|
scan var A4 20. 2.
|
|
scan preset 10
|
|
for {set i 0 } { $i < 2000 } { incr i} {
|
|
scan run
|
|
}
|