Отправлено: 04.06.06 12:12. Заголовок: Виртуальное окно

Проблема в том что у меня не помещается вся информация на екране
а не хочется переkлючать режим екрана в VGA50()

вот взял примерчик из CT virtual.prg
#include 'box.ch'

STATIC Getlist:={}

CGA80()
SET SCOREBOARD OFF

SETMAXROW(50)

wboard(0,0,50,79)
//nWin:=Wopen(0,0,22,79 )
nWin:=Wopen(0,0,40,79 )
Wbox(B_DOUBLE)
WsetShadow('N+')

DECLARE InVar[50]

FOR i =1 TO 50 STEP 2
InVar = i
InVar[i +1] = i +1
@i, 2 SAY "InVar_" +NTOC(i, 10, 3, "0") GET InVar
@i,42 SAY "InVar_" +NTOC(i +1, 10, 3, "0") GET InVar[i +1]
NEXT i

SETMAXROW(50, 2)
READ

RETURN

БЕЗ Оконных функций все работает , НО ХОЧЕТСЯ ЧТОБ ВСЕ В ОКНЕ ПЕРЕМЕЩАЛОСЬ

 Отправлено: 05.06.06 13:17. Заголовок: Re:

Случайно это не опечатка?

sashaBG wrote:

цитата:

FOR i =1 TO 50 STEP 2 InVar = i InVar[i +1] = i +1

 Отправлено: 05.06.06 19:02. Заголовок: Re:

Похоже, что опечатка, то есть наверное должно быть

FOR i =1 TO 50 STEP 2
InVar = i
InVar[i +1] = i +1

Но у меня другой вопрос возник, что означает

sashaBG wrote:

цитата:

БЕЗ Оконных функций все работает

Имеются в виду функция Wopen()? С нею не работает? А как без нее работает?
Может быть эти вопросы покажутся наивными, но я не использовал Wopen() в своей практике.
Из кода непонятно, кто выполняет скроллинг окна при переходе от одного Get к другому. Также не видно из написания предложения Get его с связи с Wopen(). Или раз объявлено Wboard(), то координаты Get автоматически вычисляются относительно Wboard()?