43 lines
652 B
Plaintext
43 lines
652 B
Plaintext
program Musik;
|
|
|
|
uses Crt,BasicStrings;
|
|
|
|
var c: char;
|
|
o: longint;
|
|
t: integer;
|
|
x,y: integer;
|
|
m: integer;
|
|
|
|
label Anfang,Ende;
|
|
|
|
begin
|
|
ClrScr;
|
|
m:=0;
|
|
Anfang:
|
|
c:=ReadKey;
|
|
o:=Ord(c);
|
|
t:=o*m;
|
|
Sound(t);
|
|
Delay(50);
|
|
NoSound;
|
|
Write(c);
|
|
x:=WhereX;
|
|
y:=WhereY;
|
|
if ((o=43) AND (m<99)) then Inc(m);
|
|
if ((o=45) AND (m>0)) then Dec(m);
|
|
TextColor(14);
|
|
TextBackground(1);
|
|
GotoXY(78,1);
|
|
Write(o:3);
|
|
GotoXY(79,2);
|
|
Write(m:2);
|
|
GotoXY(76,3);
|
|
Write(t:5);
|
|
TextBackground(0);
|
|
TextColor(15);
|
|
GotoXY(x,y);
|
|
if o=27 then goto Ende;
|
|
if o=13 then WriteLn;
|
|
goto Anfang;
|
|
Ende:
|
|
end. |