TURBO BASIC

вить самостоятельно. Работа программы прекращается по нажатиюлюбой клавиши.defint a-zdim ср(80)• ------------подготовка-------------screen Оfor i=0 to 7 9 : r e a d cp(i):next20 els: print ,/"Точное время"locate 22,20: print "любая клавиша - конец работы"' ------- выводим время по символам -----------х=5у=10:k=val(mid$(time$,1,1)):gosub symbol» ------- выбор действий ------10 if val(mid$(time$,8,1))=k then' ждем изменения времени или нажатия клавишиif inkey$"" thenels:locate ll,40:print "Конец работы":endend ifgoto 10elsegoto 20 ' при изменении времени печатаем цифрыend ifend» ---- подпрограмма печати цифры ---------symbol:for i=0 to 7for j=0 to 7locate x+i,y+jif cp(k*8+i) and 2A (7-j) then print chr$(219)nextnextreturn' -------- кодирование цифр ---------0 data 60,66,70,74,82,98,66,60Возможные дополнения (цвет цифр, мигающий указатель междуцифрами и т.п.) можно ввести в программу самостоятельно.В языке TURBO BASIC возможны следующие операции с переменнымистрокового типа (в том числе используемые в программе):Операция КОНКАТЕНАЦИЯ (слияние строк) - выполняетсязнаком плюс: c$="body" + "building".Функция LEN (строка) - определяет количество символов встроковой переменной, включая окаймляющие пробелы. Для пустойстроки возвращает 0.30