1 REM SOUND SYSTEM TO BE USED WITH EXTENDED BASIC
2 REM GARY FURR 1985
10 CLS0
20 PRINT "SOUND SYSTEM";
30 PRINT:PRINT"1 - ZAP UP (EFFECT)"
32 PRINT"2 - ZAP DOWN (EFFECT)"
35 PRINT "3 - UFO LANDING"
36 PRINT "4 - ZAP UP (EFFECT#2)":PRINT"5 - ZAP DOWN (EFFECT#2)"
40 A$=INKEY$:IFA$=""THEN40
50 IFA$="1" THEN150
60 IFA$="2"THEN100
65 IFA$="3"THEN2000
66 IFA$="4"THEN3000
67 IFA$="5"THEN3100
70 GOTO40
100 G=-1:H=1:J=255:GOSUB1000:GOTO10
150 G=1:H=255:J=1:GOSUB1000:GOTO10
1000 FORF=JTOHSTEPG
1010 EFFECTF,1:NEXT
1020 RETURN
2000 POKE31625,9:POKE31640,8
2001 A=0
2005 GOTO2035
2010 FORF=255TO210STEP-1:EFFECTF,1:EFFECTRND(255),1:NEXT
2020 A=A+1:IFA=2THEN2030
2025 GOTO2010
2030 GOTO2070
2035 FORX=1TO3
2040 FORF=255TO20STEP-1:EFFECTF,2:NEXT:FORG=1TO3:FORC=1TO40:EFFECTC,1:NEXT:NEXT:NEXTX
2050 GOTO2010
2070 FORF=16TO255STEP19
2080 EFFECTF,1:POKE31625,9:POKE31640,8:EFFECTF-10,1:POKE31625,11:POKE31640,9:NEXT
2090 B=0
2100 EFFECT243,5:B=B+1
2110 IFB=30THEN2120:GOTO2100
2120 FORF=210TO255
2130 EFFECTF,20
2140 NEXT
2150 GOTO10
3000 POKE31625,9:POKE31640,8
3010 J=1:H=255:G=1:GOSUB1000
3020 POKE31625,11:POKE31640,9
3030 GOTO10
3100 POKE31625,9:POKE31640,8
3110 J=255:H=1:G=-1:GOSUB1000
3120 POKE31625,11:POKE31640,9
3130 GOTO10

