Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

                              write(menu[punkt]);

                              punkt:=punkt+1;

                              TextAttr:=SEl;

                              GoToXY(x,y+punkt-1);

                              write(menu[punkt]);

                              TextAttr:=NORM;

                         end;

                    chr(72):{ стрелка вверх }

                         if punkt>1 then begin

                              GoToXY(x,y+punkt-1);

                              write(menu[punkt]);

                              punkt:=punkt-1;

                              TextAttr:=SEl;

                              GoToXY(x,y+punkt-1);

                              write(menu[punkt]);

                              TextAttr:=NORM;

                         end;

                 end;

              end

          else

               if ch=chr(13) then begin { нажата клавиша <Enter> }

                    case punkt of

                         1:punkt1;

                         2:punkt2;

                         3:i:=2;{ выход }

Рекомендуем скачать другие рефераты по теме: сочинение капитанская, борьба реферат.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки