Реферат: Взаимодействие основных частей ЭВМ при выполнении программы

SetColor(TxtCol);

OutTextXY((GetMaxX - XS * 2) div 5 * I, YS + 15, StrFK[I])

end;

SetTextJustify(0, 0);

{Сахраняем картинки}

FuncKeyWindow[1].Get(XS, YS, GetMaxX - XS, GetMaxY - XS);

SetFillStyle(1, GetBkColor);

Bar((GetMaxX - XS * 2) div 5 * 3 - Length(StrFK[I]) * 4, YS + 7,

(GetMaxX - XS * 2) div 5 * 3 + Length(StrFK[I]) * 4, YS + 23);

КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп. Дата 8

FuncKeyWindow[3].Get(XS, YS, GetMaxX - XS, GetMaxY - XS);

FuncKeyWindow[1].Put(XS, YS);

Bar((GetMaxX - XS * 2) div 5 * 2 - Length(StrFK[I]) * 4, YS + 7,

(GetMaxX - XS * 2) div 5 * 2 + Length(StrFK[I]) * 4, YS + 23);

FuncKeyWindow[2].Get(XS, YS, GetMaxX - XS, GetMaxY - XS)

end; {FuncKey}

{-------------------}

{+----------------------------------------------+}

{ }

{ Процедуры вывода текстовой информации на экран }

{ }

{+----------------------------------------------+}

procedure Page_1;

begin

SetViewPort(X, Y, GetMaxX - X, YS - 10, ClipOn);

ClearViewPort;

SetColor(Blue);

OutTextXY(GetMaxX - X - 25, 100, '1');

SetColor(TxtCol);

MyText(0, 8, 'До начала работы программы, она находится на ВЗУ, ' +