'===========================================================================
' Subject: ARCADE SOUND EFFECTS               Date: 05-18-99 (12:28)       
'  Author: Kenneth Green                      Code: ASIC                   
'  Origin: Ken27@thegrid.net                Packet: ASIC.ABC
'===========================================================================
W=1000
X=2000
Y=6000
Z=12000
ZZ=24000
S=4000
C=8000
GO:
W=W-5
X=X-10
Y=Y-30
Z=Z-60
S=S+20
C=C+40
ZZ=ZZ-120
SOUND W,10
SOUND X,10
SOUND Y,10
SOUND Z,10
SOUND ZZ,10
SOUND C,10
SOUND S,10
IF X<100 THEN DONE:
GOTO GO:
DONE:
T=T+1
IF T=1 THEN DONE2:
X=2000
Y=6000
Z=12000
ZZ=24000
W=1000
S=4000
C=8000
GOTO GO:
DONE2:
SOUND 7000,500
SOUND 6000,450
SOUND 5000,500
SOUND 4000,450
SOUND 5000,500
SOUND 6000,450
SOUND 7000,500
X=0
Y=0
R=0
GO2:
X=X+50
Y=Y+100
R=R+200
E=E+400
SOUND X,30
SOUND Y,30
SOUND R,30
SOUND E,30
IF X>2000 THEN GO3:
GOTO GO2:
GO3:
X=0
Y=0
R=0
E=0
GGO3:
X=X+50
Y=Y+100
R=R+200
E=E+400
SOUND X,30
SOUND Y,30
SOUND R,30
SOUND E,30
IF X>2000 THEN GO4:
GOTO GGO3:
GO4: