Оператори керування:
Оператор умовного переходу:
IF умова <команди>
ELSE <команди>
ENDIF
ПРИКЛАД
IF A=B
?'числа рівні'
ELSE IF A>B
?'A'
ENDIF ?'B'
ENDIF
Оператор вибору:
ПРИКЛАД
DO CASE DO CASE
CASE умова 1 команди CASE a=b
CASE умова 2 команди ?'числа рівні'
... CASE a>b
OTHERWISE ?'a'
команди CASE a<b
ENDCASE ?'b'
ENDCASE
Оператори циклу:
Цикл "ПОКИ"
DO WHILE <умова команди> s=0
ENDDO DO WHILE s<=1000
INPUT 'ввх' TO x
s=s+x
ENDDO
EXIT- вихід за межі циклу
LOOP- вихід на початок циклу
підсумовування позитивних x до першого нуля
s=0
INPUT 'вв х' TO x
DO WHILE s<=1000
IF x<0 LOOP
ENDIF
IF x=0 EXIT
ENDIF
s=s+x
ENDDO
Цикл "ДЛЯ"
FOR<пер>=N1 TO N2 STEP N3
команди
ENDFOR
Цикл сканування бази даних:
SCAN[границі][FOR умова]
[WHILE <умова >]
команди
ENDSCAN
Приклади
1. USE kadr
LOCATE FOR fam='П'
DO WHILE !EOF()
?fam
CONTINUE
ENDDO
2. USE kadr INDEX kadrfam
SCAN FOR fam='П'
?fam
ENDSCAN
3. USE kadr INDEX kadrfam
SEEK 'П'
DO WHILE fam='П'
?fam
SKIP
ENDDO
4. USE kadr INDEX kadrfam
SEEK 'П'
SCAN WHILE fam='П'
?fam
ENDSCAN