AMOS PD CD/amospdcd.iso/sourcecode/demos/bobalizer.amos/bobalizer.amosSourceCode

AMOS Source Code | 1991-06-13 | 3KB | 195 lines

Screen Open 0,320,240,4,Lowres
Screen Hide 0
'
' BOBALIZER V2.0
' CODED BY VENICE 1991
'
Procedure SETUP
Led Off
Break Off
If Chip Free+Fast Free<500000
 Close Workbench
  Close Editor
End If
Unpack 6 To 0
Screen Hide
Hide
Colour 11,$600
Double Buffer
End Proc
Procedure MAIN
Shared EO,L,LD,T,V
On Error Proc HELP
A$=A$+"AU (L R1=V(R0)*3; I R1=0 X D L)"
A$=A$+"L: L R2=R1; L Y=R0*19+69; L X=270"
A$=A$+"M -190,0,RA; W;"
Amreg(0)=50
For N=0 To 3
   Bob N,150,50+N*20,1
   Channel N To Bob N
   Amal N,"Let R0="+Str$(N)+A$
Next N
Amal On
Wait 50
Screen Show
Do
A:
Mvolume V
Tempo T
Clear Key
If Key State(80)=-1
 LMUSIC
If L=1
L=0
Goto A
End If
If EO=1
E0=0
Goto A
End If
  Music 1
   If LD=1
    Colour 9,$A0 : Colour 11,$E00
     P=1 : T=18 : V=63
      End If
       End If
If Key State(81)=-1
 SMUSIC
  End If
If Key State(82)=-1
 DMUSIC
  End If
If Key State(83)=-1
 Colour 9,$60 : Colour 11,$600
  If P=1
   P=0
    End If
     Music Off
      End If
If Key State(84)=-1
   If P=1
    Else
     Music 1
If EO=1
EO=0
Goto A
End If
Colour 9,$A0 : Colour 11,$E00
      End If
       End If
If Key State(85)=-1 and L=0
 Led On
  L=1
   Wait 5
    End If
If Key State(85)=-1 and L=1
 Led Off
  L=0
   Wait 5
    End If
If Key State(86)=-1 and T<64 and T>1
 Add T,-1
  End If
If Key State(87)=-1 and T<63 and T>0
 Add T,1
  End If
If Key State(88)=-1 and V<64 and V>1
 Add V,-1
   End If
If Key State(89)=-1 and V<63 and V>0
 Add V,1
   End If
If Key State(95)=-1
 Led Off
  T=18
   V=63
    End If
If Key State(69)=-1
 Music Off
  Mvolume 0
   Fade 3
    Wait 45
     Amal Off
      Erase 3
       Edit
        End If
If Key State(70)=-1
 Colour 0,$FFF : Colour 9,$60 : Colour 11,$600
  If P=1
   P=0
End If
    Music Off
     Erase 3
      Wait 5
       Colour 0,$45
        End If
Loop
End Proc
Procedure LMUSIC
Shared L,LD
On Error Proc HELP
Clear Key
Show
A$=Fsel$("*.abk","","Load Music .abk")
If A$=""
   LD=0
   Hide
Goto NL
End If
Mvolume 0
Wait 50
Hide
Colour 9,$60
Colour 15,$D00
Erase 3
Load A$
Colour 15,$900
LD=1
NL:
If LD=0
   L=1
Else
   L=0
End If
End Proc
Procedure SMUSIC
On Error Proc HELP
Clear Key
Show
A$=Fsel$("*.abk","","Save Music .abk")
If A$=""
 Hide
  Pop Proc
   End If
Colour 9,$A0
Hide
Save A$,3
Colour 9,$60
Pop Proc
End Proc
Procedure DMUSIC
On Error Proc HELP
Clear Key
Show
A$=Fsel$("*.abk","","Delete Music .abk")
If A$=""
 Hide
  Pop Proc
   End If
Colour 9,$A0
Hide
Kill A$
Colour 9,$60
Pop Proc
End Proc
Procedure HELP
Shared EO,LD
Colour 15,$900 : Colour 9,$60 : Colour 30,$DB2 : Wait 50 : Colour 30,$A82
LD=0
Colour 11,$600
EO=1
Resume Next
End Proc
'
SETUP
MAIN