да GOSUB на вспомогательную подпрограмму)
да GOSUB на вспомогательную подпрограмму) в каждом месте програм-
мы, где пользователь может на некоторое время задержаться.
Во-первых, поскольку дело касается клавишного прерывания ( а
не прерывания по джостику или световому перу), следует с помощью
оператора ON KEY(n) определить подпрограмму, которая получит уп-
равление при нажатии клавиши F1:
ON KEY(1) GOSUB DispHelpText
В этой строке определяется, что когда прерывание по клавише
включено, между каждыми двумя операторами выполняется проверка:
была ли нажата клавиша F1. Если была, вызывается подпрограмма
DispHelpText; если не была, выполняется следующий оператор.
Подпрограмма DispHelpText есть ни что иное, как последова-
тельность операто ров PRINT. Поскольку выполнение прерванной прг-
раммы при этом не должно быть нарушено, подпрограмма сохраняет
текущую позицию курсора, а затем после завершения вывода на эк-
ран, восстанавливает её. Вспомогательная информация воспроизво-
дится в четырех нижних строках экрана, где по соглашению ничто
больше не выводится.
DispHelpText:
oldcsrx=pos(0): oldcsry=CSRLIN
LOCATE 22,1
PRINT "Эта программа была выпущена в эксплуатацию вместе с"
PRINT "замечательным дорогостоящим руководством, тщательно"
PRINT "подготовленным профессиональными писателями. Оно "
PRINT "содержит больше информации, чем вам когда-либо "
PRINT "понадобится. Используйте его. Нажмите пробел, чтобы"
PRINT "продолжить." dummy$
LOCATE 22,1: PRINT SPACE$(320)
LOCATE oldcsrx, oldcsry
RETURN
Теперь, когда подпрограмма обработки прерывания (код, на ко-
торый будет передано управление при нажатии клавиши F1) объявле-
на, включите обработку прерывания с помощью оператора KEY(n)
KEY(10) ON
После выполнения этого оператора, ТУРБО БЕЙСИК переходит в
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий