Parallax BASIC Stamp 2e Programming Manual page 127

5: BASIC Stamp Command Reference – FREQOUT
'{$STAMP BS2}
i VAR BYTE
f VAR WORD
C CON 2092
D CON 2348
E CON 2636
G CON 3136
R CON 8
FOR i = 0 TO 28
LOOKUP i,[E,D,C,D,E,E,E,R,D,D,D,R,E,G,G,R,E,D,C,D,E,E,E,E,D,D,E,D,C],f
FREQOUT 11,225,f,(f-8) MAX 32768
NEXT
STOP
' Counter for position in tune.
' Frequency of note for FREQOUT.
' C note
' D note
' E note
' G note
' Silent pause (rest).
' Play the 29 notes of the LOOKUP table.
BASIC Stamp Programming Manual 2.0c • www.parallaxinc.com • Page 125
'STAMP directive (specifies a BS2)