Перевод из Basic в Paskal

[Gehenna]

Возникла проблема в переводе,из Basic в Paskal, части программы.
Помогите пожалуйста с переводом.
Вот эта часть программы:
SCREEH 12: WINDOW (0, 479)-(639, 0)
LINE (0, M2) - (319, 0), 15
LINE - (639, 639 * k1 + m1) , 15
reset (X, У), 15

[Stilet]

По-моему в паскале нет аналога WINDOW для графического режима.

LINE (0, M2) - (319, 0), 15

setcolor(15);
moveto(0,m2);
lineto(319,0);

LINE - (639, 639 * k1 + m1) , 15

setcolor(15);
lineto(639, 639 * k1 + m1);

[ZX Spectrum-128]

По-моему в паскале нет аналога WINDOW для графического режима.

SetViewPort

[Stilet]

А-а-а. Точно. Как давно я на ТР не работал...

[ZX Spectrum-128]

А я вот бейсик подзабыл. Последний оператор у автора это аналог pupixel, но вроде как Preset, а не reset?
Pset - установка точки
Preset - сброс
Или этого оператора небыло в qb?