azar1t, нет не работает, не выводится переменная g$

FiGhTeR, Смысла у меня в двух рандомах нет, тогда будет допустим: в одном рандоме выпадет 50, а в другом 21.
И будет это выглядеть так: вам осталось жить 21 лет)))

Никто не подскажет пример графического меню?

ivdos, Ну тогда хз граф меню есть на http://mbteam.ru в разделе загрузки.

Напиши меню просто по координатам,а то некоторые убежденны,что 'обязательно' массивы нужны.
А менюшки есть действительно на сайте постом выше))

ivdos, Конечно у тя робить не будет код!
Ведь даже god% это массив,тода зачем ты так условие ставишь?:
94 IF X%=GOD% THEN G$="Год"
Правильно
94 IF X%=GOD%(p%) THEN G$="Год"
Короче программу переписывать надо..основательно.

kiriman, Спасибо за пояснения, как я понял условие нужно в цикл возводить?
Кстати какая команда в васе для того чтобы корень из числа вычислить?

ivdos, Или sqr, или sqrt.

10 INPUT "koren'",K%
20 GOSUB 100
30 CLSRINT R
40 SLEEP (2000)
50 GOTO 150
60 REM
100 R=4
110 FOR I%=0 TO 7
120 R=(R+K%/R)/2
130 NEXT I%
140 RETURN
150 END

Это алгоритм Ньютона для вычисления квадратного корня, в строках от 60 до 140 вычисляется R(корень) из целого числа K%.

CyberTENSHI, Все равно формула неточная (в МБ). Попробуй извлечь корень квадратный из нуля или отрицательного числа. А стандартная SQR(X) еще хуже - извлеките корень из 4 %)

ivdos, Незнаю,я смотрю на прогу и смысла понять немогу)))
У тебя просто с массивами намудрено,логикой допетрить надо,впрочем твоя программа.