replace qty with 1 for code = '1401'

>

>create cursor table1 ;
>	(code char(7), qty n(4))
>
>insert into table1 values ('1401',0)
>insert into table1 values ('1401007',0)
>insert into table1 values ('1401010',0)
>insert into table1 values ('1401025',0)
>insert into table1 values ('1402',0)
>insert into table1 values ('1402088',0)
>insert into table1 values ('1402101',0)
>insert into table1 values ('1402225',0)
>
>select table1
>locate for code=alltrim('1401')
>replace qty with 1
>

>Now first value in table is as
>1401-1
>
>On this point all qty field must replace with 1 until code like 1401
>I want to use update, loop or scan throuhout table.
>
>please help