Basic/data/BEEP.BAS

8 lines
87 B
QBasic

10 FOR i=40 TO 107
20 BEEP i
30 NEXT i
40 FOR i=106 TO 40 STEP -1
50 BEEP i
60 NEXT i