home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / HSC.ZIP / WWW.PAS < prev   
Pascal/Delphi Source File  |  1997-01-14  |  1KB  |  65 lines
  1. Uses Crt,ADVHSC,dos;
  2. Var i,jj,j:Byte;
  3. xx:byte;
  4. reg:registers;
  5. PROCEDURE schowaj_kursor;
  6.   BEGIN
  7.        Reg.AX := $0300;
  8.        Intr($10,Reg);
  9.        reg.CX := Reg.CX or $2000;
  10.        reg.AX := $0100;
  11.        Intr($10,Reg);
  12.   END;
  13. procedure rys(x:integer);
  14. begin
  15. textcolor(x);
  16. write('▐');
  17. end;
  18. Begin
  19. ClrScr;
  20. schowaj_kursor;
  21. if LOADSONG('music.HSC') then   { Loading the Song Into Memory }
  22. Begin
  23. PLAYSONG; { Play The Song }
  24. Repeat
  25. GetPlayerState;
  26. For i:=1 to 9 do
  27. Begin
  28. {write('               ');}
  29. GotoXY(5,(i*2)+3);
  30. if PlayerState.Equalizer[i]<>255 then
  31. Begin
  32. xx:=PlayerState.Equalizer[i];
  33. {write(xx);}
  34.  
  35. if (xx>-1) and (xx<6) then
  36. begin
  37. for j:=1 to xx do rys(lightgreen);
  38. For j:=Playerstate.Equalizer[i] to 15 do Write(' ');
  39. end;
  40.  
  41. if (xx>5) and (xx<10) then
  42. begin
  43. for j:=1  to 5  do rys(lightgreen);
  44. for j:=6  to xx  do rys(yellow);
  45. For j:=Playerstate.Equalizer[i] to 15 do Write(' ');
  46. end;
  47.  
  48. if xx>10 then
  49. begin
  50. for j:=1  to 5  do rys(lightgreen);
  51. for j:=6  to 11  do rys(yellow);
  52. for j:=11  to xx  do rys(red);
  53. For j:=Playerstate.Equalizer[i] to 15 do Write(' ');
  54.  
  55. End;
  56. end;
  57. end;
  58.  
  59. Until KeyPressed;
  60. fadesong;
  61. {delay(2000);}
  62. STOPSONG; { Stop The Player }
  63. CLEARMEM; { Free Memory }
  64. End;
  65. End.