Turbo Basic 1.1. Руководство пользователя - стр. 184
def fn ВидеоЭкран%
local ЭкранаТип%
print "тип экрана ?"
input "[1 для моно,2 для цветного]",ЭкранаТип%
select case ЭкранаТип%
case 1
fn ВидеоЭкран%=&HB000
case 2
fn ВидеоЭкран%=&HB800
end select
end def
def seg=fnВидеоЭкран%
for i%=0 to 4000 step 2
poke i%,asc("A")
next i%
end
Оператор DELAY
--------------
Функция DELAY вставляет паузу
-------
-105 -
Синтаксис DELAY секунды
---------
Замечания секунда-это числовое выражение,определяющее число секунд паузы,вы-
--------- полняемой Турбо-Бейсиком перед использованием следущего операто-
ра.Примечание:DELAY принимает аргументы с плавающей точкой,а дробные задерж-
ки можно специфицировать с разрешением примерно 0.054.
Использование DELAY ,а не программного цикла ничегонеделания,сказывается на
программах,которые прогоняются на машинах с разной скоростью обработки(т.е.
базирующихся на 8088 по сравнению с базирующимися на 80286,или 6Мгц по срав-
нению с 8Мгц).
Пример print "Нажмите любую кнопку для завершения программы"
while not instat
locate 10,30
print time$
delay 5
wend
end
Оператор DIM
------------
Функция DIM заявляет массив
-------
Синтаксис DIM{static!dynamic}переменная(подстрочный индекс)[,перемен-
--------- ная(подстрочный индекс )]...
DIM {static!dynamic}переменная(мин:макс)[,мин:макс]...)[,пере-
менная(мин:макс)[,мин:макс]...)]...
Содержание Назад Вперед