const menu_1_1 as char [10] = ($E0,$61,$BF,$61,$2F,$42,$70,$65,$BC,$C7) ' Настр.дата/время
menu_1_2 as char [9] = ($54,$65,$70,$BC,$2E,$70,$65,$B4,$5F) ' Терм.рег_
menu_2_1 as char [13] = ($20,$20,$54,$B8,$BE,$20,$BD,$61,$B4,$70,$2D,$BB,$ C7) ' Тип нагр-ля
menu_2_2 as char [12] = ($20,$20,$42,$B8,$E3,$20,$70,$61,$B2,$6F,$BF,$C3) ' Вид работы
enter as char = $3E '›
data_LCD as char [4]= ($E0,$61,$BF,$61) ' Дата
time_LCD as char [5] = ($42,$70,$65,$BD,$C7) 'время
incub as char [4] = ($A5,$BD,$BA,$B2) ' ИНКБ
ptich as char [4] = ($A8,$BF,$B8,$C0) ' ПТИЧ
vivodn as char [4] = ($42,$C3,$B3,$E3) ' ВЫВД
hand as char [3] = ($50,$79,$C0) ' Руч
avto as char [3] = ($41,$B3,$BF) ' Авт
kura as char [4] = ($4B,$79,$70,$C3) ' куры
gusi as char [4] = ($A1,$79,$63,$B
' гуси
induk as char [4] = ($A5,$BD,$E3,$B
' индк
cesarka as char [4] = ($E1,$65,$63,$70) ' цеср
utka as char [4] = ($A9,$BF,$BA,$61) ' утка
ten as char [3] = ($54,$65,$BD) ' тен
lampa as char [3] = ($A7,$61,$BC) ' лампа
вот все константы а басик выдает только 10 шт.
может надо область констант определить?
а может быть проблема в размере текста программы внутри процедуры?