изменить активную страницу на страницу
A$=INKEY$
" изменить активную страницу на страницу 2
SCREEN,,2
PRINT "активной страницей является страница 2
WHILE NOT INSTAT:WEND
A$=INKEY$
"теперь переключить на графический режим высокого разрешения
SCREEN 2
CIRCLE (320,100),100,1
END
Заявление SEEK
---------------
Функция SEEK устанавливает позицию в двоичном файле для заявлений
GET$ и PUT$ .
Синтаксис SEEK [#] файланом, позиция
--------------
Замечания SEEK заявляет, что следующее GET$ или PUT$, выполняемое на
файле файланом будет реализовываться на глубине файла равной позиция бай-
тов. Файл файланом должен быть открыт в режиме BINARY.
Для возврата текущей SEEK - позиции в двоичном файле используйте
функцию LOG.
См. также LOG
---------
Пример SUB создать файл
------ "SEEK открывает и в него записывается 256 литер
LOGAL I%
"открыть файл для двоичного ввода/вывода
OPEN"SEEK.DTA" FOR BINARY AS#1
"записать в него несколько данных
FOR I% = 1TO 256
PUT$1, CHR$(I%-1)
NEXT I%
END SUB "конец процедуры создать файл
DEF FN читать это $ (начало%,размер%)
"эта функция читает указанные данные из файла
LOGAL Врем Стр$,Лит$,I%
"искать правильную позицию в файле
SEEK 1, Начало %
-180 -
I%=1
ВремСтр $=" "
"читать указанные данные -- не читать после конца файла
WHILE (NOT EDF(1) AND (I%<=Размер %)
GET$1, I%, Лит$
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий