Спектрум в школе
Сегодня раздел для начинающих представляют две БЕЙСИК-программы с комментариями, подготовленные Черкасским В. А. (г. Борисов).
Программы не сложны, но каждая из них содержит ошибки, попробуйте их отыскать.
1. "LISTNAME"
Эта программа записывается в начале кассеты и при работе выводит названия программ и их местоположение по счетчику.
10 DIM A$(50,3): DIM B$(50,10):DIM C$(50,4) 20 BRIGHT 1: CLS: PRINT #0;INK 1: PAPER 6; AT 0,1;
"BORISOV $ ALCOSOFT $ 1991 "1. Edit check"; AT 9,8; "2. Looking"; AT 10,8; "3. Save to the tape" 30 IF INKEY$="3" THEN GO TO 140 40 IF INKEY$="1" THEN GO TO 70 50 IF INKEY$="2" THEN GO TO 1OO 60 GO TO 30
70 CLS: PRINT " 'O'-END" 80 INPUT "Number=";i:
PRINT " ";i;TAB(0): INPUT "Count="; A$(i)' "Name=";B$(i)' "DATA=";C$(i): GO SUB 150 90 GO TO 80
100 CLS: PRINT "Count Name
110 BEEP .07,35: IF 120 GO SUB 150 130 NEXT i
140 CLS: PRINT AT 10,10; "Save programs":SAVE "LISTNAME" LINE 100: CLS: PRINT AT 10,10; "VERIFY programs": VERIFY "LISTNAME": GO TO 20
150 PRINT A$(i);"_____"; B$(i); "_____";C$(i): RETURN
THEN PAUSE 0: GO TO 20
Пояснения к программе:
10 задаем строковые массивы для переменных: A$ - показания счетчика; В$ - названия программ; C$ - год выпуска программы. 20 Выводим меню. 30-50 Выбор режима работы.
В зависимости от нажатой клавиши управление передается на разные строки программы.
60 Переход на строку 30 для организации ожидания нажатия клавиши.
70 Стирает экран, выводит условие выхода из режима.
80 Ожидается ввод порядкового номера, вывод его на экран и последовательно ввод показания счетчика, названия программы, года выпуска. Заканчивается обращением к подпрограмме вывода переменных на экран.
90 Организуется ввод каталога.
100 Инициализация экрана, вывод заглавия, начало цикла вывода данных.
110 Подача звукового сигнала, проверка на "пустое название", если "да", то пауза до нажатия любой клавиши и возврат в меню.
120 Обращение к подпрограмме вывода переменных.
130 Конец цикла FOR...NEXT. Пауза до нажатия клавиши и возврат в меню.
140 Очистка экрана, запись на ленту с последующим автостартом программы с 100 строки, очистка экрана, проверка записанной программы, возврат в меню. 150 Подпрограмма вывода переменных.
Ошибки:
Нужно добавить строку
145 IF i=0 THEN GO TO 100
и в строке 80 добавить после команды
INPUT "Number=";i : GO SUB 145
Это даст нормальный выход при программировании каталога и выведет название, которое пользователь будет редактировать. Кроме того, в 110 строке сравнение нужно проводить не с " ", а с " ", т.к. переменная B$(i) имеет фиксированную длину в 10
символов - это имя программы.