
 LOOK OUT! iT'S......                          $s._
      c                        n          d    $$$$$
,s%$P`"`4$%s,,s%$P`"`4$%s,$$$$P`"`4$%s.,s%$P`"`4$$$$,s%$P`"`4$%s,,s%$P`"`4$%s,
$$$$ ;;; $$$$$$$$ ;;;o$$$$$$$$ ;;; $$$$$$$$ ;;; $$$$$$$$ ;;; $$$$$$$$ ;;; $$$$
$$$$ iii     $$$$ iii $$$$$$$$ iii $$$$$$$$ iii $$$$$$$$oiii $$$$$$$$ iii $$$$
$$$$ `' $$$$$$$$ `' $$$$$$$$ $$$ $$$$$$$$ `' $$$$$$$$ `' $$$$$$$$ `'   r
`$$b,d$$'`$$b,d$$'$$$$ $$$ $$$$`$$b,d$$'`$$b,d$$'$$$$

                         cONDOR oF sUICIDE iS pAINLESS

Okay, I'm back :)...I didn't think I would be...but guess what? I found
the other coupla texts that I did for a mate ages ago, and decided to
change 'em a bit, give them a DIZ and shove 'em on the board...this is
real elementry stuff, but still...here we go:

Here's the crap for an *external* HSC music file...

This is the totally lamer way of having music in a program....you *need*
the .HSC file to be on the drive if you want to hear any tunes...(although
you do tend to get smaller EXE files, if that really matters :)

{------------------cUT tHIS mOTHER fUCKER rIGHT iN tHE fACE-----------------}

Program external_example;

uses crt, dos, ADVHSC;   { need the ADVHSC TPU for the PlaySong shit }

{ no include data here... }

begin
     CheckBreak:=False;   { useful with music stuff..crashes computer   }
                          { if someone CTRL-BREAKS while it's playing...}
     ClrScr;
     gotoxy(14,12);
     textattr:=15;
     write('Welcome to CoNDoRS Pascal tutorial, lesson notes #2 :)))');
     gotoxy(17,14);
     write('Slam your ENTER key NOW to start playin'' tha tunes');
     repeat
     until readkey=chr(13);

     LoadSong('TBTUNE.HSC');         { Load the song Into memory }
     PlaySong;                       { play the song }

     gotoxy(15,17);
     write('Now hit ENTER again now to fade out and stop the muzik');
     repeat
     until readkey=chr(13);

     FadeSong;            { Fades the song out :) }
     delay(2000);         { wait 2 seconds to allow the fade to complete }
     StopSong;            { stop the tune }
     ClearMem;            { free memory allocated by LOADSONG command }

     gotoxy(1,19);
     textattr:=7;
end.
  
{------------------cUT tHIS mOTHER fUCKER rIGHT iN tHE fACE-----------------}
