home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DIXIE.ZIP / DIXIE.PAS
Encoding:
Pascal/Delphi Source File  |  1986-06-08  |  5.5 KB  |  124 lines
  1. program DIXIE;
  2.  
  3. begin;
  4.   CLRSCR; WINDOW(24,5,55,15); GOTOXY(1,0);
  5.   WRITE('OH,');     sound(1500);  delay(1000);
  6.   WRITE(' I');      sound(1260);  delay(1000);
  7.   WRITE(' WISH');   sound(1000);  delay(250);  NoSound;
  8.   WRITE(' I');      sound(1000);  delay(250);  NoSound;
  9.   WRITE(' WAS');    sound(1000);  delay(125);
  10.                     sound(1130);  delay(125);
  11.   WRITE(' IN');     sound(1260);  delay(125);
  12.   WRITE('  THE');   sound(1360);  delay(125);
  13.   WRITE(' LAND');   sound(1500);  delay(250);  NoSound;
  14.   WRITE(' OF');     sound(1500);  delay(250);  NoSound;
  15.   WRITE('COT');     sound(1500);  delay(250);
  16.   WRITE('TON,');    sound(1260);  delay(250);
  17.   WRITE(' OLD');    sound(1675);  delay(250);  NoSound;
  18.   WRITE(' TIMES');  sound(1675);  delay(250);  NoSound;
  19.   WRITE(' THERE');  sound(1675);  delay(375);
  20.   WRITE(' ARE');    sound(1500);  delay(125);
  21.   WRITE(' NOT');    sound(1675);  delay(375);
  22.   WRITE(' FOR');    sound(1500);  delay(125);
  23.   WRITE('GOT');     sound(1675);  delay(125);
  24.   WRITE('TEN,');    sound(1875);  delay(125);
  25.   WRITE(' LOOK');   sound(2000);  delay(125);
  26.   WRITE(' A');      sound(2260);  delay(125);
  27.   WRITE('WAY,');    sound(2520);  delay(750);
  28.   WRITE(' LOOK');   sound(2000);  delay(125);
  29.   WRITE(' A');      sound(1500);  delay(125);
  30.   WRITE('WAY,');    sound(2000);  delay(750);
  31.   WRITE('LOOK');    sound(1500);  delay(125);
  32.   WRITE(' A');      sound(1260);  delay(125);
  33.   WRITE('WAY,');    sound(1500);  delay(750);
  34.   WRITE(' DIX');    sound(1130);  delay(125);
  35.   WRITE('IE');      sound(1260);  delay(125);
  36.   WRITE(' LAND.');  sound(1000);  delay(750);  NoSound;
  37.   WRITELN; WRITELN;
  38.  
  39.   WRITE('IN');      sound(1500);  delay(125);
  40.   WRITE('');        sound(1260);  delay(125);
  41.   WRITE(' DIX');    sound(1000);  delay(250);  NoSound;
  42.   WRITE('IE');      sound(1000);  delay(250);  NoSound;
  43.   WRITE(' LAND,');  sound(1000);  delay(125);
  44.   WRITE('');        sound(1130);  delay(125);
  45.   WRITE(' WHERE');  sound(1260);  delay(125);
  46.   WRITE('');        sound(1360);  delay(125);
  47.   WRITE(' I');      sound(1500);  delay(250);  NoSound;
  48.   WRITE(' WAS');    sound(1500);  delay(250);  NoSound;
  49.   WRITE(' BORN');   sound(1500);  delay(250);
  50.   WRITE(' IN,');    sound(1260);  delay(250);
  51.   WRITE(' EAR');    sound(1675);  delay(250);  NoSound;
  52.   WRITE('LY');      sound(1675);  delay(250);  NoSound;
  53.   WRITE(' ON');     sound(1675);  delay(375);
  54.   WRITE(' ONE');    sound(1500);  delay(125);
  55.   WRITE(' FROS');   sound(1675);  delay(375);
  56.   WRITE('TY');      sound(1500);  delay(125);
  57.   WRITE(' MOR');    sound(1675);  delay(125);
  58.   WRITE('NIN'',');  sound(1875);  delay(125);
  59.   WRITE('LOOK');    sound(2000);  delay(125);
  60.   WRITE(' A');      sound(2260);  delay(125);
  61.   WRITE('WAY,');    sound(2520);  delay(750);
  62.   WRITE(' LOOK');   sound(2000);  delay(125);
  63.   WRITE(' A');      sound(1500);  delay(125);
  64.   WRITE('WAY,');    sound(2000);  delay(750);
  65.   WRITE(' LOOK');   sound(1500);  delay(125);
  66.   WRITE(' A');      sound(1260);  delay(125);
  67.   WRITE('WAY,');    sound(1500);  delay(750);
  68.   WRITE('DIX');     sound(1130);  delay(125);
  69.   WRITE('IE');      sound(1260);  delay(125);
  70.   WRITE(' LAND.');  sound(1000);  delay(750);  NoSound;
  71.   WRITELN; WRITELN;
  72.  
  73.   WRITE('I');       sound(1500);  delay(250); (*1*)
  74.   WRITE(' WISH');   sound(2000);  delay(250);
  75.   WRITE(' I');      sound(2520);  delay(250);
  76.   WRITE(' WAS');    sound(2260);  delay(250);
  77.   WRITE(' IN');     sound(2000);  delay(250);
  78.   WRITE(' DIX');    sound(1675);  delay(250);
  79.   WRITE('IE,');     sound(2000);  delay(500);
  80.   WRITE(' A');      sound(1675);  delay(250);
  81.   WRITE('WAY,');    sound(2260);  delay(750);
  82.   WRITE('    A');   sound(1675);  delay(250);
  83.   WRITE('WAY,');    sound(2260);  delay(750);
  84.   WRITE(' IN');     sound(1500);  delay(250);
  85.   WRITE(' DIX');    sound(2000);  delay(250);
  86.   WRITE('IE');      sound(2520);  delay(250);
  87.   WRITE(' LAND');   sound(2260);  delay(250);
  88.   WRITE(' I''LL');  sound(2000);  delay(250);
  89.   WRITE(' TAKE');   sound(1675);  delay(250);
  90.   WRITE(' MY');     sound(1875);  delay(250);
  91.   WRITE('STAND,');  sound(2000);  delay(375);
  92.   WRITE(' TO');     sound(1675);  delay(125);
  93.   WRITE(' LIVE');   sound(1500);  delay(250);
  94.   WRITE(' AND');    sound(1260);  delay(250);
  95.   WRITE(' DIE');    sound(2000);  delay(375);
  96.   WRITE(' IN');     sound(1260);  delay(125);  NoSound;
  97.   WRITE(' DIX');    sound(1260);  delay(250);
  98.   WRITE('IE.');     sound(1130);  delay(500);
  99.   WRITELN; WRITELN;
  100.  
  101.   WRITE('A');       sound(1260);  delay(250);
  102.   WRITE('WAY,');    sound(1000);  delay(750);
  103.   WRITE(' A');      sound(1260);  delay(250);
  104.   WRITE('WAY,');    sound(1130);  delay(750);
  105.   WRITE(' A');      sound(1675);  delay(250);
  106.   WRITE('WAY');     sound(1500);  delay(250);
  107.   WRITE(' DOWN');   sound(1260);  delay(250);
  108.   WRITE(' SOUTH');  sound(2000);  delay(375);
  109.   WRITE(' IN');     sound(1260);  delay(125); NoSound;
  110.   WRITE('  DIX');   sound(1260);  delay(250);
  111.   WRITE('IE,');     sound(1130);  delay(500);
  112.   WRITE(' A');      sound(1260);  delay(250);
  113.   WRITE('WAY,');    sound(1000);  delay(750);
  114.   WRITE(' A');      sound(1260);  delay(250);
  115.   WRITE('WAY,');    sound(1130);  delay(750);
  116.   WRITE(' A');      sound(1675);  delay(250);
  117.   WRITE('WAY');     sound(1500);  delay(250);
  118.   WRITE(' DOWN  '); sound(1260);  delay(250);
  119.   WRITE('  SOUTH,');sound(2000);  delay(375);
  120.   WRITE(' IN');     sound(2520);  delay(125);
  121.   WRITE(' DIX');    sound(2260);  delay(250);
  122.   WRITE('IE.');     sound(2000);  delay(500); NoSound;
  123. END.
  124.