home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd232 / musicplayer.amos / musicplayer.amosSourceCode
AMOS Source Code  |  1989-06-05  |  1KB  |  12 lines
  1. 1 F$=Fsel$("","","LOAD AMOS MUSIC") : If F$="" Then Goto 1
  2. If Exist(F$) Then Load F$ : Else Goto 1
  3. Screen Open 0,320,8,2,Lowres : Curs Off : Flash Off : Colour 1,$FFF : Double Buffer : CUT
  4. A$="AUtotest(Let R1=Vu(R0); If R1=0 eXit else Direct Start)" : A$=A$+"Start: Let R2=R1 Anim 4,(1,2)(2,2)(3,2)(4,2)(5,2)(6,2)(7,2)(8,2)(9,2)(10,2)(11,2)(12,2)(13,2)(14,4000);pause,10" : A$=A$+"Wait 1 " : Amreg(0)=180 : Amreg(1)=25
  5. Bob 12,0,4,56 : Channel 12 To Bob 12 : Amal 12,"Let R0="+Str$(1)+A$ : Bob 13,50,4,56 : Channel 13 To Bob 13 : Amal 13,"Let R0="+Str$(2)+A$ : Bob 14,100,4,56 : Channel 14 To Bob 14 : Amal 14,"Let R0="+Str$(3)+A$
  6. Bob 15,150,4,56 : Channel 15 To Bob 15 : Amal 15,"let R0="+Str$(4)+A$ : Led Off : Music 1 : Amal On 12 : Amal On 13 : Amal On 14 : Amal On 15
  7. Do 
  8. If Mouse Key=1 Then For Q=63 To 0 Step -2 : Mvolume Q : Wait Vbl : Next Q : Music Off : Erase 3 : Mvolume 63 : Goto 1
  9. Loop 
  10. Procedure CUT
  11. A=1 : Draw 0,0 To 42,0 : For X=42 To 0 Step -3 : Get Bob A,0,0 To X+1,1 : A=A+1 : Next X : Cls 0
  12. End Proc