100 DATA 176,4,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4
110 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4
120 DATA 159,8,147,8,159,4,147,4,133,8,133,4
130 DATA 176,8,176,4,159,4,176,4,185,4,176,4,159,8,-1,-1,159,4,147,8,147,4
140 DATA -2,-2,159,4,147,8,147,4,-3,-3,176,4,176,4,159,4,176,4,185,4,176,4
150 DATA 159,8,147,8,159,4,147,4,133,8,133,4
160 DATA 133,6,133,2,159,4,176,4,197,12,185,8,185,2,197,4
170 DATA 185,4,176,8,176,4,176,4,159,4,176,4,185,4
180 DATA 176,4,159,8,147,8,159,4,147,4,133,8,133,4,-4,-4
190 P=0
200 CLS
210 P=P+1
220 READ A,B: IF A=<0 THEN 260
230 IF P/2=INT(P/2) THEN B=B/2
240 SOUND A,B
250 GOTO 220
260 IF A=-1 THEN PRINT@266,"DOO-DAHH":GOTO 220
270 IF A=-2 THEN PRINT@301,"DOO-DAHH":GOTO 220
280 IF A=-3 THEN CLS: GOTO 220
290 RESTORE: GOTO 200