uses crt,mouse63;
var p,x,y:word; samet:byte;
k:byte; c:string; b:integer;
s:string; z:word; m:integer;
i:integer;
label same;
procedure be;
begin
textbackground(0);textcolor(white);
end;
procedure bey;
begin
textbackground(0);
end;
begin same: clrscr; be;
for i:=1 to 29 do begin
gotoxy(27+i,1);write(#205); end;
for i:=1 to 1 do begin
gotoxy(27,1+i);write(#186); end;
gotoxy(27,1);write(#201);
gotoxy(27,3);write(#200);
for i:=1 to 1 do begin
gotoxy(56,1+i);write(#186); end;
gotoxy(56,1);write(#187);
gotoxy(56,3);write(#188);
for i:=1 to 28 do begin
gotoxy(27+i,3);write(#205); end;
for i:=1 to 35 do begin
gotoxy(1+i,7);write(#205); end;
for i:=1 to 5 do begin
gotoxy(1,7+i);write(#186); end;
for i:=1 to 35 do begin
gotoxy(1+i,9);write(#205); end;
gotoxy(1,9);write(#204);
gotoxy(1,7);write(#201);
gotoxy(1,11);write(#204);
gotoxy(1,7);write(#201);
for i:=1 to 35 do begin
gotoxy(1+i,11);write(#205);
end;
gotoxy(1,13);write(#200);
gotoxy(1,7);write(#201);
for i:=1 to 35 do begin
gotoxy(1+i,13);write(#205);
end;
gotoxy(36,7);write(#187);
for i:=1 to 5 do begin
gotoxy(36,7+i);write(#186); end;
gotoxy(36,13);write(#188);
gotoxy(30,2);write('D˜REN€ HESAPLAMA PRO¦RAMI');
gotoxy(2,8);write('1-Renklerine G”re Diren‡ Hesaplama');
gotoxy(2,10);write('2-€kŸ');
gotoxy(2,12); write('Se‡iminizi Giriniz=');readln(samet);
if samet=2 then begin
clrscr;
gotoxy(15,8);write('***************************************************');
gotoxy(15,12);write('***************************************************');
gotoxy(30,9);write('Program Hazrlayan');
gotoxy(30,10);write('Samet A€IKG™Z');
gotoxy(30,11);write('Email:sametacikgoz@hotmail.com');
delay(9500); exit end;
if samet=1 then begin clrscr;
be;
gotoxy(40,1);write('RESISTANTS(D˜REN€)') ;
for i:=1 to 12 do begin
gotoxy(28+i,3);write(#205); end;
gotoxy(40,3);write(#186);
gotoxy(40,4);write(#186);
gotoxy(40,5); write(#200);
for i:=1 to 15 do begin
gotoxy(40+i,5);write(#205); end;
for i:=1 to 15 do begin
gotoxy(40+i,2);write(#205); end;
gotoxy(40,2);write(#201);
gotoxy(44,2);write(#203);
gotoxy(44,5);write(#202);
gotoxy(44,3);write(#186);
gotoxy(44,4);write(#186);
gotoxy(44,5); write(#188);
for i:=1 to 12 do begin
gotoxy(57+i,3);write(#205); end;
gotoxy(41,5);write(#202);
gotoxy(41,2);write(#203);
gotoxy(41,3);write(#186);
gotoxy(41,4);write(#186);
gotoxy(45,5);write(#202);
gotoxy(44,5);write(#202);
gotoxy(45,2);write(#203);
gotoxy(45,3);write(#186);
gotoxy(45,4);write(#186);
gotoxy(48,2);write(#203);
gotoxy(48,3);write(#186);
gotoxy(48,4);write(#186);
gotoxy(48,2);write(#203);
gotoxy(48,5);write(#202);
gotoxy(49,2);write(#203);
gotoxy(49,5);write(#202);
gotoxy(49,3);write(#186);
gotoxy(49,4);write(#186);
gotoxy(49,2);write(#203);
gotoxy(49,5);write(#202);
gotoxy(49,3);write(#186);
gotoxy(49,4);write(#186);
gotoxy(52,2);write(#203);
gotoxy(52,5);write(#202);
gotoxy(52,3);write(#186);
gotoxy(52,4);write(#186);
gotoxy(53,2);write(#203);
gotoxy(53,5);write(#202);
gotoxy(53,3);write(#186);
gotoxy(53,4);write(#186);
gotoxy(56,2);write(#203);
gotoxy(56,5);write(#202);
gotoxy(56,3);write(#186);
gotoxy(56,4);write(#186);
gotoxy(57,2);write(#203);
gotoxy(57,5);write(#202);
gotoxy(57,3);write(#186);
gotoxy(57,4);write(#186);
gotoxy(57,2);write(#187);
gotoxy(57,5);write(#188);
{yaz}
gotoxy(42,6);write(#25);
gotoxy(42,7);write('R1');
gotoxy(50,6);write(#25);
gotoxy(50,7);write('R2');
gotoxy(46,6);write(#25);
gotoxy(46,7);write('R3');
gotoxy(54,6);write(#25);
gotoxy(54,7);write('R4');
gotoxy(13,7);write(#25);
gotoxy(13,8);write('Mor');
gotoxy(16,7);write(#25);
gotoxy(16,8);write('Gri');
gotoxy(13,11);write(#25);
gotoxy(13,12);write('Mor');
gotoxy(13,15);write(#25);
gotoxy(13,16);write('Mor');
gotoxy(16,11);write(#25);
gotoxy(16,12);write('Gri');
gotoxy(16,15);write(#25);
gotoxy(16,16);write('Gri');
{renk paneli}
be;
gotoxy(22,6);write(#176);
gotoxy(22,7);write(#25);
gotoxy(21,8);write('Siyah');
gotoxy(22,10);write(#176);
gotoxy(22,11);write(#25);
gotoxy(21,12);write('Siyah');
gotoxy(22,14);write(#176);
gotoxy(22,15);write(#25);
gotoxy(21,16);write('Siyah');
gotoxy(5,4);write('RENK PANEL˜');
gotoxy(1,5);write('1. Renk Tablosu');
textcolor(1);gotoxy(1,6);write(#219);be;
textcolor(2);gotoxy(3,6);write(#219); be;
textcolor(3);gotoxy(5,6);write(#219);be;
textcolor(4);gotoxy(7,6);write(#219);be;
textcolor(14);gotoxy(9,6);write(#219); be;
textcolor(15);gotoxy(11,6);write(#219);be;
textcolor(9); gotoxy(13,6);write(#219); be;
textcolor(9); gotoxy(13,10);write(#219); be;
textcolor(9); gotoxy(13,14);write(#219); be;
textcolor(4); gotoxy(5,18);write(#219); be;
textcolor(8); gotoxy(16,6);write(#219); be;
textcolor(8); gotoxy(16,10);write(#219); be;
textcolor(8); gotoxy(16,14);write(#219); be;
textcolor(6); gotoxy(19,6);write(#219); be;
textbackground(0);
gotoxy(1,9);write('2. Renk Tablosu');
textcolor(1);gotoxy(1,10);write(#219);be;
textcolor(2);gotoxy(3,10);write(#219); be;
textcolor(3);gotoxy(5,10);write(#219); be;
textcolor(4);gotoxy(7,10);write(#219); be;
textcolor(14);gotoxy(9,10);write(#219); be;
textcolor(15);gotoxy(11,10);write(#219); be;
textcolor(6);gotoxy(19,10);write(#219); be;
textcolor(6);gotoxy(19,14);write(#219); be;
textbackground(0);
gotoxy(1,13);write('3. Renk Tablosu');
textcolor(1);gotoxy(1,14);write(#219);
textcolor(2);gotoxy(3,14);write(#219);
textcolor(3);gotoxy(5,14);write(#219);
textcolor(4);gotoxy(7,14);write(#219);
textcolor(14);gotoxy(9,14);write(#219);
textcolor(15);gotoxy(11,14);write(#219);
textbackground(0);
gotoxy(1,17);write('4. Renk Tablosu');
textcolor(14);gotoxy(3,18);write(#219);
textbackground(15);gotoxy(1,18);write(' ');
textcolor(6);gotoxy(7,18);write(#219);be;
{deger}
textbackground(0);
gotoxy(3,19);write(#25);
gotoxy(3,20);write('Altn');
gotoxy(5,7);write(#25);
gotoxy(1,8);write('Turuncu');
gotoxy(5,11);write(#25);
gotoxy(1,12);write('Turuncu');
gotoxy(5,15);write(#25);
gotoxy(1,16);write('Turuncu');
gotoxy(9,7);write(#25);
gotoxy(9,8);write('Sar');
gotoxy(9,11);write(#25);
gotoxy(9,12);write('Sar');
gotoxy(9,15);write(#25);
gotoxy(9,16);write('Sar');
{iŸlem}
gotoxy(55,13);write('DE¦ER TABLOSU');
for i:=1 to 34 do begin
gotoxy(44+i,14);write(#205);
end;
gotoxy(44,14);write(#201);
for i:=1 to 2 do begin
gotoxy(44,14+i);write(#186);end;
gotoxy(44,16);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,16);write(#205);
end;
gotoxy(79,14);write(#187);
gotoxy(79,16);write(#188);
gotoxy(79,15);write(#186);
{iŸlem kilo ohm}
gotoxy(55,17);write('DE¦ER TABLOSU');
for i:=1 to 35 do begin
gotoxy(44+i,18);write(#205);
end;
gotoxy(44,18);write(#201);
for i:=1 to 2 do begin
gotoxy(44,18+i);write(#186);end;
gotoxy(44,20);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,20);write(#205);
end;
gotoxy(79,18);write(#187);
gotoxy(79,20);write(#188);
gotoxy(79,19);write(#186);
{iŸlem mega ohm}
gotoxy(55,21);write('DE¦ER TABLOSU');
for i:=1 to 34 do begin
gotoxy(44+i,22);write(#205);
end;
gotoxy(44,22);write(#201);
for i:=1 to 2 do begin
gotoxy(44,22+i);write(#186);end;
gotoxy(44,24);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,24);write(#205);
end;
gotoxy(79,22);write(#187);
gotoxy(79,24);write(#188);
gotoxy(79,23);write(#186);
if not mouse_installed then
begin
writeln('mouse imstall edilemedi...');
exit;
end;
showmouse;
setmousexy(1,1,80,25);
repeat
p:=mouseposition(x,y);
if (x=1)and(y=6)and(p=1)or(x=3)and(y=6)and(p=1)or(x=5)and(y=6)and(p=1)
or(x=7)and(y=6)and(p=1)or(x=11) and (y=6) and (p=1)
then begin m:=m+1;
end;
if (x=22) and (y=6) and (p=1) then begin
gotoxy(42,3);write(#176#176);
gotoxy(42,4);write(#176#176);
gotoxy(42,8);write('0');
be;gotoxy(55,15);write('0');
be;gotoxy(55,19);write('0');
be;gotoxy(55,23);write('0');
end;
if (x=16) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(8); write(#219#219);
GOTOXY(42,4);textcolor(8); write(#219#219);
textcolor(black); textcolor(8); gotoxy(42,8);write('8');
be; gotoxy(55,15);write('8');
be;gotoxy(55,19);write('8');
be;gotoxy(55,23);write('8');
end;
if (x=19) and (y=6) and (p=1) then begin
textcolor(6); GOTOXY(42,3);write(#219#219);
textcolor(6);GOTOXY(42,4); write(#219#219);
textbackground(black); textcolor(6); gotoxy(42,8);write('1');
be; gotoxy(55,15);write('1');
be;gotoxy(55,19);write('1');
be;gotoxy(55,23);write('1');
end;
if (x=13) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(9); write(#219#219);
GOTOXY(42,4);textcolor(9); write(#219#219);
textbackground(black); textcolor(9); gotoxy(42,8);write('7');
be; gotoxy(55,15);write('7');
be;gotoxy(55,19);write('7');
be;gotoxy(55,23);write('7');
end;
if (x=1) and (y=6)and (p=1) then begin
GOTOXY(42,3);textcolor(1); write(#219#219);
GOTOXY(42,4);textcolor(1); write(#219#219);
textbackground(black); textcolor(1); gotoxy(42,8);write('6');
be; gotoxy(55,15);write('6');
be;gotoxy(55,19);write('6');
be;gotoxy(55,23);write('6');
end;
if (x=3) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(2); write(#219#219);
GOTOXY(42,4);textcolor(2); write(#219#219);
textbackground(black); textcolor(2); gotoxy(42,8);write('5 ');
be; gotoxy(55,15);write('5');
be;gotoxy(55,19);write('5');
be;gotoxy(55,23);write('5');
end;
if (x=5) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(3); write(#219#219);
GOTOXY(42,4);textcolor(3); write(#219#219);
textcolor(3); gotoxy(42,8);write('3');
be; gotoxy(55,15);write('3');
be;gotoxy(55,19);write('3');
be;gotoxy(55,23);write('3');
end;
if (x=7) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(red); write(#219#219);
GOTOXY(42,4);textcolor(red); write(#219#219);
textbackground(black); textcolor(red); gotoxy(42,8);write('2');
be; gotoxy(55,15);write('2');
be;gotoxy(55,19);write('2');
be;gotoxy(55,23);write('2');
end;
if (x=9) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(yellow); write(#219#219);
GOTOXY(42,4);textcolor(yellow); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(42,8);write('4');
be; gotoxy(55,15);write('4');
be;gotoxy(55,19);write('4');
be;gotoxy(55,23);write('4');
end;
if (x=11) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(white); write(#219#219);
GOTOXY(42,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(42,8);write('9');
be; gotoxy(55,15);write('9');
be;gotoxy(55,19);write('9');
be;gotoxy(55,23);write('9');
end;
{2.grup}
if (x=22) and (y=10) and (p=1) then begin
GOTOXY(46,3);write(#176#176);
GOTOXY(46,4); write(#176#176);
gotoxy(46,8);write('0');
be; gotoxy(56,15);write('0');
be;gotoxy(56,19);write('0');
be;gotoxy(56,23);write('0');
end;
if (x=19) and (y=10) and (p=1) then begin
textcolor(6);GOTOXY(46,3);write(#219#219);
textcolor(6); GOTOXY(46,4); write(#219#219);
textbackground(black); textcolor(white); gotoxy(46,8);write('1');
be; gotoxy(56,15);write('1');
be;gotoxy(56,19);write('1');
be;gotoxy(56,23);write('1');
end;
if (x=13) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(9); write(#219#219);
GOTOXY(46,4);textcolor(9); write(#219#219);
textbackground(black); textcolor(9); gotoxy(46,8);write('7');
be; gotoxy(56,15);write('7');
be;gotoxy(56,19);write('7');
be;gotoxy(56,23);write('7');
end;
if (x=1) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(1); write(#219#219);
GOTOXY(46,4);textcolor(1); write(#219#219);
textbackground(black); textcolor(1); gotoxy(46,8);write('6');
be; gotoxy(56,15);write('6');
be;gotoxy(56,19);write('6');
be;gotoxy(56,23);write('6');
end;
if (x=3) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(2); write(#219#219);
GOTOXY(46,4);textcolor(2); write(#219#219);
textbackground(black); textcolor(2); gotoxy(46,8);write('5');
be; gotoxy(56,15);write('5');
be;gotoxy(56,19);write('5');
be;gotoxy(56,23);write('5');
end;
if (x=5) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(3); write(#219#219);
GOTOXY(46,4);textcolor(3); write(#219#219);
textcolor(3); gotoxy(46,8);write('3');
be; gotoxy(56,15);write('3');
be;gotoxy(56,19);write('3');
be;gotoxy(56,23);write('3');
end;
if (x=7) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(4); write(#219#219);
GOTOXY(46,4);textcolor(4); write(#219#219);
textbackground(black); textcolor(4); gotoxy(46,8);write('2');
be; gotoxy(56,15);write('2');
be;gotoxy(56,19);write('2');
be;gotoxy(56,23);write('2');
end;
if (x=9) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(14); write(#219#219);
GOTOXY(46,4);textcolor(14); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(46,8);write('4');
be; gotoxy(56,15);write('4');
be;gotoxy(56,19);write('4');
be;gotoxy(56,23);write('4');
end;
if (x=11) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(white); write(#219#219);
GOTOXY(46,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(46,8);write('9');
be; gotoxy(56,15);write('9');
be;gotoxy(56,19);write('9');
be;gotoxy(56,23);write('9');
end;
if (x=16) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(8); write(#219#219);
GOTOXY(46,4);textcolor(8); write(#219#219);
textbackground(black); textcolor(8); gotoxy(46,8);write('8');
be; gotoxy(56,15);write('8');
be;gotoxy(56,19);write('8');
be;gotoxy(56,23);write('8');
end;
{3.grup}
if (x=22) and (y=14) and (p=1) then begin
gotoxy(50,3);write(#176#176);
GOTOXY(50,4);write(#176#176);
be; GOTOXY(66,15);write('ohm');
be;gotoxy(50,19);write(' 0,0');
be;gotoxy(49,23);write('0,0000');
be; gotoxy(57,23);write(' ');
be; gotoxy(57,19);write(' ');
be;gotoxy(50,8);write('0');
GOTOXY(66,19);write('kilo ohm');
GOTOXY(66,23);write('mega ohm');
end;
if (x=13) and (y=14) and (p=1) then begin
gotoxy(50,3);textcolor(9);write(#219#219);
GOTOXY(50,4);textcolor(9); write(#219#219);
textbackground(black); textcolor(9); gotoxy(50,8);write('7');
be; gotoxy(57,15);write('0000000 '); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('0000 ');
be;gotoxy(57,23);write('0 ');
gotoxy(48,23);write(' ');
gotoxy(49,19);write(' ');
gotoxy(48,23);write(' ');
GOTOXY(66,19);write('kilo ohm');
GOTOXY(66,23);write('mega ohm');
end;
if (x=1) and (y=14) and (p=1) then begin
gotoxy(50,3);TEXTcolor(1);write(#219#219);
GOTOXY(50,4);textcolor(1); write(#219#219);
textbackground(black); textcolor(1); gotoxy(50,8);write('6');
be; gotoxy(57,15);write('000000 '); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('000 ');
be;gotoxy(57,23);write(' ');
gotoxy(48,23);write(' ');
gotoxy(49,19);write(' ');
GOTOXY(66,19);write('kilo ohm');
GOTOXY(57,23);write(' ');
GOTOXY(66,23);write('mega ohm');
gotoxy(48,23);write(' ');
end;
if (x=3) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(2); write(#219#219);
GOTOXY(50,4);textcolor(2); write(#219#219);
textbackground(black); textcolor(2); gotoxy(50,8);write('5');
be; gotoxy(57,15);write('00000 '); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('00 ');
GOTOXY(66,19);write('kilo ohm');
be;gotoxy(57,23);write(' ');
GOTOXY(66,23);write('mega ohm');
gotoxy(48,23);write(' ');
gotoxy(49,19);write(' ');
GOTOXY(57,23);write(' ');
gotoxy(48,23);write(' ');end;
if (x=5) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(3); write(#219#219);
GOTOXY(50,4);textcolor(3); write(#219#219);
textcolor(3); gotoxy(50,8);write('3');
be; gotoxy(57,15);write('000 '); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write(' ');
GOTOXY(66,19);write('kilo ohm');
be;gotoxy(48,23);write(' 0,0');
GOTOXY(66,23);write('mega ohm');
gotoxy(57,23);write(' ');
gotoxy(49,19);write(' ');
GOTOXY(57,23);write(' ');
end;
if (x=7) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(4); write(#219#219);
GOTOXY(50,4);textcolor(4); write(#219#219);
textbackground(black); textcolor(4); gotoxy(50,8);write('2');
be; gotoxy(57,15);write('00 '); GOTOXY(66,15);write('ohm');
GOTOXY(66,19);write('kilo ohm');
be;gotoxy(49,23);write(' 0,00');
GOTOXY(66,23);write('mega ohm');
gotoxy(57,19);write(' ');
gotoxy(57,23);write(' ');
gotoxy(49,19);write(' ');
GOTOXY(57,23);write(' ');
end;
if (x=19) and (y=14) and (p=1) then begin
textcolor(6);GOTOXY(50,3);write(#219#219);
textcolor(6); GOTOXY(50,4);write(#219#219);
textbackground(black); textcolor(6); gotoxy(50,8);write('1');
be; gotoxy(57,15);write('0 '); GOTOXY(66,15);write('ohm');
GOTOXY(66,19);write('kilo ohm');
be;gotoxy(48,23);write(' 0,000');
GOTOXY(66,23);write('mega ohm');
gotoxy(57,19);write(' ');
gotoxy(59,23);write(' ');
gotoxy(50,19);write(' 0,');
GOTOXY(57,23);write(' ');
end;
if (x=9) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(14); write(#219#219);
GOTOXY(50,4);textcolor(14); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(50,8);write('4');
be; gotoxy(57,15);write('0000 '); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('0 '); GOTOXY(66,19);write('kilo ohm');
be;gotoxy(48,23);write(' 0,');
GOTOXY(66,23);write('mega ohm');
gotoxy(57,23);write(' ');
gotoxy(49,19);write(' ');
GOTOXY(57,23);write(' ');
end;
if (x=11) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(white); write(#219#219);
GOTOXY(50,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(50,8);write('9');
be; gotoxy(57,15);write('000000000'); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('000000 '); GOTOXY(66,19);write('kilo ohm');
be;gotoxy(57,23);write('000');
GOTOXY(66,23);write('mega ohm');
gotoxy(48,23);write(' ');
gotoxy(49,19);write(' ');
gotoxy(48,23);write(' ');
end;
if (x=16) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(8); write(#219#219);
GOTOXY(50,4);textcolor(8); write(#219#219);
textbackground(black); textcolor(8); gotoxy(50,8);write('8');
be; gotoxy(57,15);write('00000000'); GOTOXY(66,15);write('ohm');
be;gotoxy(57,19);write('00000 '); GOTOXY(66,19);write('kilo ohm');
be;gotoxy(57,23);write('00');
GOTOXY(66,23);write('mega ohm');
gotoxy(48,23);write(' ');
gotoxy(49,19);write(' ');
gotoxy(48,23);write(' ');
end;
{4.grup}
if (x=7) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(14); write(' ');
GOTOXY(54,4);textbackground(14); write(' ');
textbackground(black); textcolor(6); gotoxy(54,8);write('-+%11');
gotoxy(69,15);write('-+%11');
gotoxy(74,23);write('-+%11');
gotoxy(74,19);write('-+%11')
end;
if (x=5) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(4); write(' ');
GOTOXY(54,4);textbackground(4); write(' ');
textbackground(black); textcolor(red); gotoxy(54,8);write('-+%2 ');
gotoxy(69,15);write('-+%2 ');
gotoxy(74,23);write('-+%2 ');
gotoxy(74,19);write('-+%2 ')
end;
if (x=3) and (y=18) and (p=1) then begin
GOTOXY(54,3);textcolor(14); write(#219#219);
GOTOXY(54,4);textcolor(14); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(54,8);write('-+%5 ');
gotoxy(69,15);write('-+%5 ');
gotoxy(74,23);write('-+%5 ');
gotoxy(74,19);write('-+%5 ');
end;
if (x=1) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(white); write(' ');
GOTOXY(54,4);textbackground(white); write(' ');
textbackground(black); textcolor(white); gotoxy(54,8);write('-+%10');
gotoxy(69,15);write('-+%10');
gotoxy(74,23);write('-+%10');
gotoxy(74,19);write('-+%10');
end;
until keypressed;goto same; end;
if samet=2 then exit;
restoremousexy;
hidemouse;
readln; end.