100 DATA 89,1,125,1,147,1,176,1,147,1,125,1
110 DATA 89,1,125,1,147,1,89,1,147,1,125,1
120 DATA 89,1,125,1,147,1,176,1,147,1,125,1
130 DATA 89,1,125,1,147,1,89,1,147,1,125,1
140 DATA 89,2,108,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,176,2
150 DATA 147,2,125,2,89,2,108,2,125,2,133,2,147,2,159,2,147,2
160 DATA 133,2,125,2,108,2,125,2,133,2,32,2,78,2,106,2,133,2,125,2
170 DATA 108,2,125,2,69,2
180 DATA 106,2,125,2,147,2,133,2,133,2,159,2,147,2,147,2,176,2,170,2,76,2
190 DATA 147,2,125,2,89,2,106,2,125,2,58,2,133,2,125,2,106,2
200 DATA 89,2,58,2,32,2,69,2,76,2,89,2
210 DATA 89,1,125,1,147,1,176,1,147,1,125,1
220 DATA 89,1,125,1,167,1,69,1,147,1,125,1
230 DATA 89,1,125,1,147,1,176,1,147,1,125,1
240 DATA 69,1,125,1,147,1,89,1,147,1,125,1
250 DATA -1,-1
260 CLS
270 READ A,B
275 PRINT A,B
280 IF A<0 AND B<0 THEN 310
290 SOUND A,B
300 GOTO 270
310 RESTORE: GOTO 260