Turbo Basic 1.1. Руководство пользователя


Turbo Basic 1.1. Руководство пользователя - стр. 319


   да 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
       После  выполнения  этого  оператора, ТУРБО БЕЙСИК переходит в



Начало  Назад  Вперед



Книжный магазин