* В первом примере выполняется отображение на экране чисел от 1 до 10.

* Во втором примере начальное и конечное значения и приращение
* определены переменными памяти; в цикле на экран выводятся все
* записи таблицы customer с четными номерами, со второй по десятую.

* Example 1

CLEAR

FOR gnCount = 1 TO 10

? gnCount

ENDFOR

* Example 2

SET TALK OFF

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Opens Customer table

STORE 2 TO gnI && Initial value

STORE 10 TO gnJ && Final value

STORE 2 TO K && Step value

FOR gnCount = gnI TO gnJ STEP K

GOTO gnCount && Move record pointer

DISPLAY company && Display company name

ENDFOR