* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а XII. Б е й с и к - H E L P 173 Пример: DEF SEG = 0 S t a t u s % = PEEK(&H417) 'Считывает статус клавиатуры. POKE &H417, ( S t a t u s % XOR &H40) 'Изменяет 'состояние Caps L o c k , бит 6. См. также D E F SEG PEN-функция Возвращает статус светового пера. Формат записи: PEN(n%) де n% указывает информацию, которая должна быть возвращена о статусе светово о пера: n% 0 1 2 3 4 5 6 7 8 9 Пример: DO P = PEN(3) LOCATE 1 , 1 : PRINT "Перо находится " I F P THEN PRINT "вверху" ELSE PRINT "внизу " PRINT "X ="; P E N ( 4 ) , " Y ="; P E N ( 5 ) ; " " LOOP Возвращает Использовалось л и световое перо после последне о вызова (1 если да, 0 если нет). Координату X последнего нажатия пера. Координату Y последне о нажатия пера. Текущий статус переключателя пера (-1 если вниз, 0 если вверх) Координату X места, где последний раз использовалось перо. Координату Y места, де последний раз использовалось перо. Символ строки последне о нажатия пера. Символ столбца последне о нажатия пера. Символ строки, де последний раз использовалось перо. Символ столбца, де последний раз использовалось перо. См.также PEN, O N P E N Операторы, SCREEN, Режимы экрана PEN-оператор P E N включает, выключает или приостанавливает отслеживание события для светово о пера. П р и включенном отслеживании события O N PEN обращается к подпро рамме при каждой активизации светово о пера. См. O N PEN. См. также P E N Функция