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

end; {MainWin}

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

procedure Play;

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

procedure SelectPage(N: Byte);

begin

case N of

1: begin

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

Page_1;

Move_1

end;

2: begin

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

Page_2;

Move_2

end;

3: begin

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

Page_3;

Move_3

end;

4: begin

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

Page_4_1;

Move_4_1;

Delay(Time_3 * 20);

Page_4_2;

Delay(Time_3 * 20);