Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' {$STAMP BS2}
- ' {$PBASIC 2.5}
- i VAR Byte
- quarternote VAR Word
- 'DEBUG "Program be running and stuff", CR
- main:
- quarternote = 300
- FOR i = 1 TO 1
- FREQOUT 4, quarternote,6000/2 'Gb
- FREQOUT 4, quarternote,5000/2 'Eb
- FREQOUT 4, quarternote,4500/2 'Db
- FREQOUT 4, quarternote,4000/2 'B
- FREQOUT 4, quarternote,4500/2 'Db
- FREQOUT 4, quarternote,5000/2 'Eb
- FREQOUT 4, quarternote,6000/2 'Gb
- FREQOUT 4, quarternote,5000/2 ' Eb
- FREQOUT 4, quarternote,4500/2 ' Db
- FREQOUT 4, quarternote,4000/2 ' B
- FREQOUT 4, quarternote/2,4500/2 ' Db
- FREQOUT 4, quarternote/2,5000/2 ' Eb
- FREQOUT 4, quarternote/2,4500/2 ' Db
- FREQOUT 4, quarternote/2,5000/2 ' Eb
- FREQOUT 4, quarternote,6000/2 ' Gb
- FREQOUT 4, quarternote,5000/2 ' Eb
- FREQOUT 4, quarternote,6000/2 ' Gb
- FREQOUT 4, quarternote,6785/2 ' Gb 'Ab
- FREQOUT 4, quarternote,5000/2 ' Eb
- FREQOUT 4, quarternote,6785/2 'Gb ' change to Ab
- FREQOUT 4, quarternote,6000/2 'Gb
- FREQOUT 4, quarternote,5000/2 ' Eb
- FREQOUT 4, quarternote,4500/2 ' Db
- FREQOUT 4, quarternote,4000/2 ' B
- NEXT
- PAUSE 2000
- 'GOTO main
Advertisement
Add Comment
Please, Sign In to add comment
