Отправлено: 13.10.06 21:18. Заголовок: Не срабатывает оператор (%)

/*
Разборка алгоритма.
Требуется вывести на экран 2 столбика по 20 строчек, а далее по 24 строчки.
Набросал программку и получил не известно что. Не срабатывает оператор (%)
Это глюк, или что ?
*/

FUNCTION MAIN()
LOCAL nI, nEnd := 96
LOCAL nProc, nKolvo := 20, nKolvo2 := 24
LOCAL y := 0 , x := 0
LOCAL nPage := 1

CLEAR SCREEN
FOR nI:=1 TO nEnd

@ 24,0 SAY "страница:"+ALLTRIM(STR(nPage))
nProc := INT(nI % nKolvo)
@ y,x say ""
?? STR(nI,2),"-",ALLTRIM(STR(nProc))+"%"," "+ALLTRIM(STR(y))
y++
IF y > nProc
y:=0
x:=x+15
nPage++
IF nPage > 2
nKolvo := nKolvo2
ENDIF
INKEY(0)
ENDIF

NEXT
INKEY(0)

 Отправлено: 14.10.06 11:42. Заголовок: Re:

Замени вывод на

?? STR(nI,2)+"%"+Str(nKolvo,2)+"="+ALLTRIM(STR(nProc))+"-"+" "+ALLTRIM(STR(y))

и увидишь что все правильно