Obarvený kód souboru barvy.pas

unit barvy;

interface

uses crt;
procedure color(pismo, pozadi:integer);
procedure cls;
procedure napis(znak:char);
procedure start;

implementation

procedure napis(znak:char);
begin
case znak of
 '7':gotoxy(3,5);
 '4':gotoxy(3,7);
 '1':gotoxy(3,9);
 '8':gotoxy(6,5);
 '5':gotoxy(6,7);
 '2':gotoxy(6,9);
 '3':gotoxy(9,9);
 '6':gotoxy(9,7);
 '9':gotoxy(9,5);
 '0':gotoxy(3,11);
 ',':gotoxy(6,11);
 '+':gotoxy(12,7);
 '-':gotoxy(12,5);
 '/':gotoxy(12,9);
 '*':gotoxy(12,11);
 '=',#13:gotoxy(9,11); (*'=',chr(13):gotoxy(9,11);*)
end;
if znak=chr(13) then znak:='=';
if (znak='1') or (znak='2') or (znak='3') or (znak='4') or
   (znak='5') or (znak='6') or (znak='7') or (znak='8') or
   (znak='9') or (znak='0') or (znak='+') or (znak='-') or
   (znak='/') or (znak='*') or (znak=',') or (znak='=') or
   (znak=chr(13)) then
    begin
     write(znak);
    end
   else
    begin
     (*sound(220);*)
     delay(500);
     (*nosound;*)
    end;
end;

procedure color(pismo,pozadi:integer);
begin
textcolor(pismo);
textbackground(pozadi);
end;

procedure cls;
begin
clrscr;
end;

procedure start;
begin
color(15,4);
napis('1');napis('2');napis('3');napis('4');napis('5');napis('6');napis('7');
napis('8');napis('9');napis('0');napis('+');napis('-');napis('/');napis(',');
napis('*');napis('=');
end;

end.

created by PaJa