Курсовая работа: Информационно-справочная система Устройство персонального компьютера

end;

if (com=#13)and(i=8) then

begin

readf('help1.txt',false);

select;

end;

end;

{--------------------КОНЕЦ ПРОЦЕДУРЫ---------------------------}

{|------------------------------------------------------------}

{| Процедура прорисовки главного окна программы |}

{|___________________________________________________________|}

procedure main;

begin

cleardevice;

{-----ФЛАГ---------}

setfillstyle(1,4);

bar(0,0,640,240);

setfillstyle(1,yellow);

bar(0,210,640,480);

{---КОНЕЦ ФЛАГА----}

{-----------------прорисовка дискеты-----------------------------}

setfillstyle(1,9);

BAR (100,100,200,200);

setfillstyle(1,8);

BAR (105,105,110,110);

BAR (190,105,195,110);

setfillstyle(1,8);

BAR (130,100,170,140);

setfillstyle(1,15);