1 F$="file:///e:/music/test+.wav"
2 A%=EDITFORM("файл-1","ok","exit","путь к первому файлу",F$,200,0)
3 OPEN #0,F$,"input"
4 FILE$="file:///e:/music/test1.wav"
5 B%=EDITFORM("файл-2","ok","exit","путь к второму файлу",FILE$,200,0)
6 OPEN #1,FILE$,"input"
7 FOR N%=0 TO 12800:POINT #0,C%:C%=128
8 GET #0,B%:A%=A%+1000:B%=B%+A%:PUT #1,B%:NEXT N%
9 CLOSE #1:CLOSE #0
10 PRINT "готово":SLEEP 1000:CLS:GOTO 1