home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug013.arc
/
DANUBE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1979-12-31
|
2KB
|
49 lines
program DANUBE;
{ Demonstration program developed in Turbo Pascal
for the MicroBee by Bob Burt
This play routine simulates the PLAY command
in MicroWorld BASIC. However, the note range
is extended beyond the 1 to 24 available there
Values for notes can be between -11 (A) and
+48 (G#) and rather further if required. This
is at least a 5 octave range. Note that the
note value of 0 does not give a 'rest', but
the G# immediately below the A sounded for the
value 1. A delay is invoked by using the
Turbo Pascal intrinsic 'delay(n)'. }
const
space23 = ' ';
title = '*** The Blue Danube ***';
{$I sound.pro}
{$I play.pro}
begin {main}
clrscr;
writeln(space23,title);
play(4,1); play(8,1); play(11,1); play(11,2); delay(200);
play(23,1); play(23,2); delay(200); play(20,1); play(20,3); delay(300);
play(4,1); play(4,1); play(8,1); play(11,1); play(11,2); delay(200);
play(23,1); play(23,2); delay(200); play(21,1); play(21,3); delay(200);
play(3,1); play(3,1); play(6,1); play(13,1); play(13,2); delay(200);
play(25,1); play(25,2); delay(200); play(21,1); play(21,3); delay(200);
play(3,1); play(3,1); play(6,1); play(13,1); play(13,2); delay(200);
play(25,1); play(25,2); delay(200); play(20,1); play(20,3); delay(200);
play(4,1); play(4,1); play(8,1); play(11,1); play(16,3); delay(200);
play(28,1); play(28,2); delay(200); play(23,1); play(23,3); delay(200);
play(4,1); play(4,1); play(8,1); play(11,1); play(16,3); delay(200);
play(28,1); play(28,2); delay(200); play(25,1); play(25,3); delay(200);
play(6,1); play(6,1); play(9,1); play(13,1); play(13,4); delay(200);
play(10,1); play(11,1); play(20,4); delay(100);
play(16,1); play(8,1); play(8,4); play(6,1); delay(100);
play(13,3); play(11,1); play(4,2); play(16,1); play(16,1);
delay(50); play(16,4)
end. {main}