5 'Вертолет 2
10 BEEP:FOR I=0 TO 13:READ V
20 SOUND I,V:NEXT
50 FOR I=5120 TO 300 STEP -10
60 SOUND 11,I MOD 256
70 SOUND 12,I\256
80 FOR J=0 TO 20:NEXT J,I
100 DATA 0,0,255,14,255,14
110 DATA 10
120 DATA &B10000001
130 DATA 8,8,16
140 DATA 0,20,&B1100