0 PRINT"[147]":POKE53280,0:POKE53281,3:POKE646,0
1 REM SOUND EFFECTS
2 REM SEASHORE
10 GOSUB 900:GOTO 100
20 POKE AD(1),160:POKE SR(1),255:POKE FL(1),30:POKE FH(1),30
25 POKE AD(2),15:POKE SR(2),0:POKE FH(2),80
30 POKE VL,15:PRINT "PRESS RUNSTOP/RESTORE TO STOP"
35 POKE GT(1),129
40 POKE GT(2),129:FOR I=255 TO 100 STEP -(1+INT(3*RND(9))):POKE FH(1),I
50 X=4+INT(I/23):IF X>15 THEN X=15
55 POKE VL,X:FOR X=0 TO 29:NEXT:NEXT:POKE GT(2),0
60 FOR I=100 TO 255 STEP 8+INT(10*RND(9)):POKE FH(1),I
70 X=4+INT(I/23):IF X>15 THEN X=15
75 POKE VL,X:FOR X=0 TO 19:NEXT:NEXT
80 GOTO 40
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT TO HEAR SOUND"
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 FL(0)=54272:FH(0)=54273:GT(0)=54276:AD(0)=54277:SR(0)=54278
905 FOR I=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH(I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X
906 SR(I)=SR(0)+X:NEXT
909 REM SET VOLUME ADDRESS
910 VL=54296
990 RETURN