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

Temp[1].Get(X0, Y0, X0 + 380, Y0 + 300);

Temp[2].Get(X0, Y0 + 305, GetMaxX - X0, YS - 5);

Help;

MainWin;

Temp[1].Put(X0, Y0);

Temp[2].Put(X0, Y0 + 305);

if N <= 1 then

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

if N = 4 then

FuncKeyWindow[3].Put(XS, YS)

end

end {Case}

until Flag;

ClearDevice

end; {Play}

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

procedure TextT(Col: TColor; S: TText);

begin

SetTextJustify(1, 1);

for I := 1 to 4 do

begin

SetColor(Col[I]);

OutTextXY(GetMaxX div 2, GetMaxY div 2 + I * 10 - 40, S[I])

end;

SetTextJustify(0, 0)

end; {TextT}

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

procedure TestMode;

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