home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd521 / rock-star.amos / rock-star.amosSourceCode < prev   
AMOS Source Code  |  1991-07-10  |  2KB  |  70 lines
  1. Rem       *****************************  
  2. Rem       *                           *    
  3. Rem       *      AMOS Band Player     *    
  4. Rem       *            by             *    
  5. Rem       *       Murray Jones        *  
  6. Rem       *                           *    
  7. Rem       *****************************  
  8. Rem
  9. Rem
  10. Unpack 5 To 0
  11. Flash Off : Curs Off : SPE=16 : KK=2
  12. Colour 2,$A64 : Colour 5,$A64 : Colour 6,$A64 : Colour 12,$A64
  13. Menu$(1)=" Control "
  14. Menu$(1,1)="  Play  "
  15. Menu$(1,2)="--------"
  16. Menu$(1,3)="  Stop  "
  17. Menu$(1,4)="--------"
  18. Menu$(1,5)="   By   "
  19. Menu$(1,5,1)="Murray Jones"
  20. Menu$(1,6)="--------"
  21. Menu$(1,7)="  Quit  "
  22. Menu$(2)=" Load Song "
  23. Menu$(2,1)=" From DF0: "
  24. Menu$(2,2)=" From DF1: "
  25. Menu$(3)=" Filter "
  26. Menu$(3,1)="  On   "
  27. Menu$(3,2)="  Off  "
  28. On Menu Goto TITLE1,TITLE2,TITLE3
  29. FINISH:
  30. On Menu On 
  31. Menu On 
  32. TITLE1:
  33.    If(Choice(2)=1) and(F$<>"") Then Music 1 : Goto BAND
  34.    If Choice(2)=3 Then Music Off 
  35.    If Choice(2)=7 Then Music Off : Cls 0 : End 
  36.    OMENU
  37. Goto BAND
  38. TITLE2:
  39. If Choice(2)=1 Then F$=Fsel$("DF0:","","")
  40. If Choice(2)=2 Then F$=Fsel$("DF1:","","")
  41. If F$="" Then Goto FINISH
  42. Load F$ : Music 1
  43.    OMENU
  44. Goto BAND
  45. TITLE3:
  46.    If Choice(2)=1 Then Led On 
  47.    If Choice(2)=2 Then Led Off 
  48.    OMENU
  49. Goto BAND
  50. Procedure OMENU
  51.    On Menu On 
  52. End Proc
  53. Goto BAND
  54. Goto FINISH
  55. BAND:
  56. J$=Inkey$
  57. J=Scancode
  58. If J=79 Then KK=KK+1
  59. If J=78 Then KK=KK-1
  60. If KK<1 Then KK=1
  61. If KK>9 Then KK=9
  62. AA=Vumeter(0) : If AA>0 Then Colour 2,$C00 : Colour 3,$C00 : A=A+1
  63. If A>KK Then Colour 2,$A64 : Colour 3,$888 : A=0
  64. BB=Vumeter(1) : If BB>0 Then Colour 5,$3E1 : Colour 4,$3E1 : B=B+1
  65. If B>KK Then Colour 5,$A64 : Colour 4,$888 : B=0
  66. CC=Vumeter(2) : If CC>0 Then Colour 6,$F : Colour 7,$F : C=C+1
  67. If C>KK Then Colour 6,$A64 : Colour 7,$888 : C=0
  68. DD=Vumeter(3) : If DD>0 Then Colour 12,$FE0 : Colour 8,$FE0 : D=D+1
  69. If D>KK Then Colour 12,$A64 : Colour 8,$888 : D=0
  70. Goto FINISH