100 DATA 125,8,147,16,159,8,170,8,170,4,176,4,170,8,159,16,140,8
110 DATA 108,12,125,4,140,8
120 DATA 147,16,125,8,125,8,125,4,117,4,125,8,140,16,117,8,78,16,125,8
130 DATA 147,16,159,8,170,8,170,4,176,4,170,8,159,16,140,8,108,8,108,4
140 DATA 125,4,140,8
150 DATA 147,8,140,8,125,8,117,8,117,4,99,4,117,8,125,16,125,8
160 DATA 125,16,125,8
170 DATA 185,16,185,8,185,8,185,4,180,4,170,8,159,16,140,8,108,8
150 DATA 108,4,125,4,140,8
190 DATA 147,16,125,8,125,8,125,4,117,4,125,8,140,16,117,8
200 DATA 78,16,78,8
210 DATA 185,16,185,8,185,8,185,4,180,4,170,8,159,16,140,8
220 DATA 108,8,108,4,125,4,140,8
230 DATA 147,8,140,8,125,8,117,8,117,4,99,4,117,8,125,16,125,8
240 DATA 125,16,-1,-1
250 CLS
260 READ A,B: IF A=<0 THEN 300
270 SOUND A,B
250 CLS RND(8)
290 GOTO 260
300 RESTORE: GOTO 250