home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1991-06-13 | 2.6 KB | 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