1005 ON ERROR GOTO 1050 1010 INPUT"Name of song";NS$ 1015 NS$=NS$+".DO" 1020 OPEN NS$ FOR INPUT AS 1 1030 INPUT#1,P,D:SOUND P,D:IF NOT EOF(1) THEN 1030 1040 END 1050 IF ERR=52 THEN PRINT"I don't know that one!":GOTO 1010 ELSE PRINT ERR;" in ";ERL:RESUME 1040