Alpiner end of level music, but in BASIC?

[InfernalKeith]

Before I try to plunk this out myself with CALL SOUND statements and make a mess of it, has anyone ever had occasion to code the little end-of-level ditty from Alpiner in BASIC?  I am working on a new game involving a mountain and I thought it might be a nice little callback.  

[HOME AUTOMATION]

Not exactly sure... though, I used an automated system to extract this sound list from Alpiner(V1000)...

 

[+OLD CS1]

1 ! GENERATED BY SOUNDLISTRIPPER
10 CALL SOUND(333,247,8)
20 CALL SOUND(333,493,8,196,8)
30 CALL SOUND(333,589,8,196,8)
40 CALL SOUND(333,589,8,247,8)
50 CALL SOUND(333,493,8,196,8)
60 CALL SOUND(333,392,8,196,8)
70 CALL SOUND(333,392,8,247,8)
80 CALL SOUND(166,350,8,220,8)
90 CALL SOUND(166,392,8,220,8)
100 CALL SOUND(333,440,8,220,8)
110 CALL SOUND(333,440,8,247,8)
120 CALL SOUND(333,392,8,220,8)
130 CALL SOUND(333,440,8,220,8)
140 CALL SOUND(333,493,8,220,30)
150 CALL SOUND(333,440,8,247,8)
160 CALL SOUND(333,392,8,247,8)
170 CALL SOUND(333,440,8,247,30)
180 CALL SOUND(333,493,8,220,8)
190 CALL SOUND(333,523,8,220,8)
200 CALL SOUND(333,493,8,220,30)
210 CALL SOUND(333,523,8,247,8)
220 CALL SOUND(333,589,8,247,8)
230 CALL SOUND(333,589,8,247,8,990,8)
240 CALL SOUND(333,589,8,196,8,1045,8)
250 CALL SOUND(333,589,8,196,8,1177,8)

 

[InfernalKeith]

Amazing, thank you!