5 'Вертолет 1
10 BEEP:FOR I=0 TO 13:READ V:SOUND I,V:NEXT:END
100 DATA 0,0,255,14,255,14
110 DATA 10
120 DATA &B10000001
130 DATA 8,8,16
140 DATA 0,20,&B1100