TURBO BASIC

Подпрограмма Clean предназначена для очистки поля вводаданныхC le a n : ' --------- оч и стк а п о л я -----------l o c a t e 1 9 ,2 0 : p r i n t s p a c e $ (5 0 )r e t u r nПримерный вид окна программы в ходе работы показан нижеТелефонная книгаНомер тел еф она Фамилия а б о н ен т а А дресШ Й К Я Н 0 m .c o d e , - г а к . С а тп а ев а , 1363 26814 Фантазия а к . С атп аев а, 6 5 /13 26973 Экси п л . Победы, 7Б4 50904 ПГУ Ломова 645 31753 М агех новый ЦУМ5 32793 РОМ а к . С атп аев а, 36Б ес-в ы х о д , I n s -д о б а в и т ь , D e l-у д а л и т ь , Tab-п о и ск ,t j -просм отрБлок объявлений в начале программы может быть сформированобычным образом' телеф онная книга н а 100 за п и с е й , 1 2 .1 2 .2 0 0 3d e f i n t i - ndim r e c o r d $ ( 1 0 0 ) ,in d e x ( 1 0 0 )f $="0123456789"1 допустимы е символыm = l: i n d e x ( 1 ) =m :kod=0:n=0s c r e e n 01 --------------- форма на эк р ан е -----------e l sc o l o r 1 5 : p r i n t Телефонная к н и га" : p r i n tp r i n t s t r i n g $ ( 8 0 ,1 9 6 ) ;p r i n t "Номер телеф она Фамилия а б о н ен т а Адрес"p r i n t s t r i n g $ ( 8 0 ,1 9 6 ) ;l o c a t e 1 6 : p r i n t s t r i n g $ ( 8 0 ,1 9 6 )c o l o r 7i з а г р у з к а существующей базы -----------35