''
'' Sinclair ZX Spectrum BASIC manual, BEEP example.
''
'' The listing body is the manual's line-numbered example.  The web
'' transcription sometimes omits the space between BEEP and a leading decimal
'' duration, so the spacing is normalized for FreeBASIC's parser.
''
'' Source:
''   https://worldofspectrum.org/ZXBasicManual/zxmanchap19.html
''

#lang "qb"

10 PRINT "Frere Gustav"
20 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP .5,2: BEEP 1,0
30 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP .5,2: BEEP 1,0
40 BEEP 1,3: BEEP 1,5: BEEP 2,7
50 BEEP 1,3: BEEP 1,5: BEEP 2,7
60 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5: BEEP .5,3: BEEP .5,2: BEEP 1,0
70 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5: BEEP .5,3: BEEP .5,2: BEEP 1,0
80 BEEP 1,0: BEEP 1,-5: BEEP 2,0
90 BEEP 1,0: BEEP 1,-5: BEEP 2,0

'' end of frere_gustav.bas
