10 'Б о й  ч а с о в
20 ' Настройка звукогенератора
30 FOR I=0 TO 12:READ S:SOUND I,S:NEXT I
60 WIDTH 40:CLS:KEY OFF
70 PRINT "Часы бьют":PRINT
80 SOUND 7,56
90 FOR I=0 TO 12
100    SOUND 13,0
110    PRINT I;
120    FOR J=1 TO 1200:NEXT J
130 NEXT I
140 PRINT:PRINT
150 PRINT TAB(1);"12 часов":PRINT "и все отлично!"
160 END
170 DATA 229,0,97,0,115,0,0,63,16,16,16,190,120