'===========================================================================
' Subject: ALEX'S (BEVERLY HILLS COP) SONG   Date: 06-22-99 (18:42)       
' Author:  Ekrem Deniz                       Code: QB, QBasic, PDS        
' Origin:  ekremd@sifne.iibf.deu.edu.tr    Packet: SOUND.ABC
'===========================================================================
'
' THIS PROGRAM (ALTHEM) IS USEFUL FOR BEGINNERS...
' PROGRAMMED BY EKREM DENIZ...
' VISIT MY PROGRAMS DIRECTORY (ON INTERNET) :
'  http://members.tripod.com/edeniz
'
DECLARE SUB PQ (FM, FS)
DIM A$(0 TO 24)
WRT$ = CHR$(69) + CHR$(75) + CHR$(82) + CHR$(69) + CHR$(77) + CHR$(32) + CHR$(68) + CHR$(69) + CHR$(78) + CHR$(73) + CHR$(90)
IF WRT$ <> "EKREM DENIZ" THEN PRINT "PROGRAM HACKED...HALTED": SYSTEM
K$ = "Alex`s Theme (Beverly Hills Cop) - ALTHEM IS PROGRAMMED BY " + WRT$ + " - June`99"
  R = CSRLIN: COLOR 10, 0: PRINT K$: IF R > 22 THEN PRINT
  R = CSRLIN: IF R = 24 THEN R = 23
 A$(1) = "o3l8f#p8a8.mlf#16mnf#16f#16"
 A$(2) = "b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
 A$(3) = "o4dc#o3af#o4c#F#o3f#16mle16"
 A$(4) = "mne16e16c#g#mlf#f#4p4p3"
 A$(5) = "o3l8f#p8a8.mlf#16mnf#16f#16"
 A$(6) = "b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
 A$(7) = "o4dc#o3af#o4c#F#o3f#16mle16"
 A$(8) = "mne16e16c#g#mlf#f#4p4p3"
 A$(9) = "l8o2f#p8o2f#.o2mle16mne16o2e16"
 A$(10) = "o1c#o2c#o1ef#p8o2f#p8p16o1c#4"
 A$(11) = "o2c#ef#o1d.o2p8do1mle16mne16"
 A$(12) = "o2e16o1c#ef#o2f#p4p16e16c#o1ba"
 A$(13) = "l8o2f#p8o2f#.o2mle16mne16o2e16"
 A$(14) = "o1c#o2c#o1ef#p8o2f#p8p16o1c#4"
 A$(15) = "o2c#ef#o1d.o2p8do1mle16mne16o2e16"
 A$(16) = "o1c#ef#o2f#p4p16e16c#o1bap20"
 A$(17) = "o3l8f#p8a8.mlf#16mnf#16f#16b8"
 A$(18) = "f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
 A$(19) = "o4dc#o3af#o4c#F#o3f#16mle16"
 A$(20) = "mne16e16c#g#mlf#f#4p4p3"
 A$(21) = "o3l8f#p8a8.mlf#16mnf#16f#16b8"
 A$(22) = "f#ef#p8o4c#8.o3mlf#16mnf#16f#16"
 A$(23) = "o4dc#o3af#o4c#F#o3f#16mle16"
 A$(24) = "mne16e16c#g#mlf#f#4p4p3"
COLOR 8, 0: LOCATE R: PRINT STRING$(80, "±"): Q = 0
FOR WT = 1 TO 24
 F$ = INKEY$: IF F$ = CHR$(27) THEN GOTO SON
 PLAY A$(WT)
 F$ = INKEY$: IF F$ = CHR$(27) THEN GOTO SON
 PQ WT, 24
NEXT WT
COLOR 7: LOCATE R: PRINT STRING$(80, "Û"): Q = 1
SON: 'PROGRAM SONU - LAST PART
COLOR 7, 0: LOCATE R: PRINT SPACE$(80): LOCATE R
COLOR 9, 0: PRINT "MY EMAIL :  edeniz@excite.com                     MY WEB    : http://edeniz.i.am"
IF Q = 0 THEN COLOR 10: LOCATE R, 35: PRINT "ESC pressed"
COLOR 7: SYSTEM

SUB PQ (FM, FS)
 SHARED R   'BECAUSE R IS USED AT THE MAIN MODULE,TOO
 XY = FM / FS
 FOR YQ = 1 TO 80
  IF XY > YQ / 80 THEN HP = YQ
 NEXT YQ
 COLOR 7, 0: LOCATE R: PRINT STRING$(HP, "Û")
END SUB