10 rem call external routine
20 call time(v)