100 DATA 170,8,170,8,176,8,185,8,185,8,176,8,170,8,159,8,147,8
110 DATA 147,8,159,8,170,8,170,12,159,4,159,16
120 DATA 170,8,170,8,176,8,185,8,185,8,176,8,170,8,159,8,147,8
130 DATA 147,8,159,8,170,8,159,12,147,4,147,16
140 DATA 159,8,159,8,170,8,147,8,159,8,170,4,176,4,170,8,147,8
150 DATA 159,8,170,4,176,4,170,8,159,8,147,8,159,8,108,16
160 DATA 170,8,170,8,176,8,185,8,185,8,176,8,170,8,159,8,147,8
170 DATA 147,8,159,8,170,8,159,12,147,4,147,16
180 DATA -1,-1
190 CLS 0
200 READ A,B
210 IF A<0 AND B<0 THEN 250
220 SOUND A,B
230 SET(RND(63),RND(31),RND(8))
240 GOTO 200
250 RESTORE: GOTO 200