10 REM ************************
15 REM *  SOUND DEMONSTRATION *
20 REM *      GARY FURR       *
25 REM *     AUGUST 1985      *
30 REM ************************
40 DATA 189,67,76,189,68,28,198,128,206,64,0,255,66,128,231,0,8
45 DATA 140,66,0,38,248,57,204, 160,1,189,67,245,134,138,122,67
50 DATA 100,39,3,126,67,93,206,0,0,189,248,97,134,138,183,67,100
55 DATA 134,22,183,67,105,126,67,93,134,138,183,67,100,134,3,183
60 DATA 67,105,254,255,220,173,0,39,1,57,206,255,255,189,248,97
65 DATA 206,255,255,189,248,97,206,255,255,189,248,97,126,67,93
70 DATA 57,0,0,0,0,0,0,128,215,79,0,8,0,4,6,0,122,67,180,38,9
75 DATA 189,67,209,182,67,178,183,67,180,252,68,56,195,255,255
80 DATA 253,68,56,38,231,57,252,67,175,5,36,4,200,217,136,1,253
85 DATA 67,175,7,132,1,184,67,177,39,11,246,67,174,200,128,247
90 DATA 191,255,247,67,174,183,67,177,57,54,55,79,222,9,214,8
95 DATA 223,11,136,128,183,191,255,48,230,1,8,8,92,38,251,214
100 DATA 9,196,64,39,237,48,106,0,38,226,79,183,191,255,56,57
105 DATA 206,64,40,255,66,128,206,69,11,189,231,168,206,64,77
110 DATA 255,66,128,206,69,32,189,231,168,189,69,106,0,0,0,0,0
115 DATA 0,0,0,0,0,0,0,0,0,0,206,64,172,255,66,128,206,69,43,189
120 DATA 231,168,206,64,204,255,66,128,206,69,56,189,231,168,206
125 DATA 64,236,255,66,128,206,69,68,189,231,168,206,65,12,255
130 DATA 66,128,206,69,79,189,231,168,206,65,138,255,66,128
135 DATA 206,69,90,189,231,168,254,255,220,173,0,39,249,129,65
140 DATA 39,15,129,66,39,32,129,67,39,59,129,68,39,81,126,67,70
145 DATA 189,67,76,206,64,203,255,66,128,206,69,45,189,231,168
150 DATA 189,67,93,126,67,70,189,67,76,206,64,203,255,66,128,206
155 DATA 69,58,189,231,168,134,255,183,69,0,134,122,183,69,5
160 DATA 189,68,255,126,67,70,189,67,76,134,124,183,69,5,206
165 DATA 64,203,255,66,128,206,69,69,189,231,168,189,68,255
170 DATA 126,67,70,189,67,76,206,64,203,255,66,128,206,69,80,189
175 DATA 231,168,189,67,174,126,67,70,204,0,1,189,67,245,122,69
180 DATA 0,38,245,57,128,115,111,117,110,100,128,100,101,109,111
185 DATA 110,115,116,114,97,116,105,111,110,0,128,103,97,114,121
190 DATA 128,102,117,114,114,0,128,97,128,116,101,108,101,112
195 DATA 104,111,110,101,0,128,98,128,122,97,112,128,100,111
200 DATA 119,110,0,128,99,128,122,97,112,128,117,112,0,0,128
205 DATA 100,128,101,110,103,105,110,101,0,0,128,101,110,116,101
210 DATA 114,128,97,128,108,101,116,116,101,114,0,134,128,183,67
215 DATA 174,134,215,183,67,175,134,79,183,67,176,134,0,183,67
220 DATA 177,183,67,178,183,67,182,134,8,183,67,178,134,4,183
225 DATA 67,180,134,6,183,67,181,57
230 FORD=17222TO17811
235 READF:G=G+F:NEXT
240 IFG<>70343THEN265
245 RESTORE
250 FORD=17222TO17811
255 READF:POKED,F:NEXT
260 EXEC17222
265 CLS0:PRINT@140,"DATA ERROR";
270 PRINT@168," YOUR TOTAL";G;
275 PRINT@199," CORRECT TOTAL 70343";
280 GOTO280
