нет нулевого индекса; проверка на
Второй массив % (I%)=I%
END IF
Первый массив % (I%) =I%
NEXT I%
FOR I% =0 TO2
' нет нулевого индекса; проверка на ноль
IF I% >0 THEN
PRINT Второй массив
END IF
PRINT Первый массив% (I%)
NEXT I%
END ' конец программы
-156 -
Заявление OUT
--------------
Функция OUT обеспечивает запись на внешнее устройство ввода/вывода
------------
Синтаксис OUT портном, целое выражение
----------
Замечания OUT посылает байтовое значение (от 0 до 255) на аппаратное
--------- внешнее устройство вывода портном, где портном - это целое
выражение от 0 до 65535.
OUT необходимо для управления различными аппаратными подсистемами, та-
кими как коммуниеационный или видео-адаптер. Используемое неправильно
OUTможет легко разрушить систему.
Пример 'программа делает вопль звукоизлучателя посредством считывания
--------- регистра состояний и тумблерного переключения ( включить и
выключить) битов, которые управляют звукоизлучателем.
'считать значение в Порт 61 шестнадцатиричное
СостояниеРег % = INP (&H61)
СостояниеРег % = СостояниеРег % AND &HOOFC
'маскировать считываемое значение
'сделать тон достаточно длительным для слухового восприятия
FOR I = 1 TO 1000
СостояниеРег % = CостояниеРег% XOR 2 ' тумблерное переключение звуко-
излучателя
OUT &H61, СостояниеРег% 'вывод нового состояния
DELAY.001
NEXT I
END
Заявление PAINT
----------------
Функция PAINT обеспечивает заполнение замкнутой зоны экрана выбранным
------- цветом
Синтаксис PAINT(x,y) [I,цвет][I,граница][,фон]
---------
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий