5 OPEN "output.txt" FOR OUTPUT AS 1
10 ON PLAY(18) GOSUB 1000
15 PLAY ON: SOUND ON
18 PRINT#1,TART
20 PLAY "mbmlcdeccdecefgefgcdeccdec"
25 WHILE PLAY(0)>0: WEND
30 PRINT#1, "done"
40 END
1000 PRINT#1, PLAY(0)
1010 RETURN

