DOREMIFASOLA
 

Svira ljestvicu u C-duru.

 
ljestvica$ = "CDEFGAB"
PLAY "o0"
FOR i = 1 TO 6
PRINT i; "oktava"
PLAY ljestvica$ + ">"
NEXT i

FOR i = 6 TO 1 STEP -1
PRINT i; "oktava"
PLAY ljestvica$ + ">"
NEXT i