for {set i 0 } { $i < 30} {incr i} {
scan clear
scan np 10
scan var a4 10. .1
scan mode timer
scan preset 1
scan run
}