|
store 1 to x
DO While .T.
if x > 30
EXIT
endif
x=x+1
loop
ENDDO
return
use test
go top
DO While .NOT. EOF()
? rm->itek at 30
skip
ENDDO
DO WHILE .NOT. EOF() ...Enddo
.
Do While .... Enddo adalah prosidur yang terpenting didalam mengatur program yang berulang dibuat.