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

Г л а в а XII. Б е й с и к - H E L P 143 Режим экрана 8, 9 (> 64K видеопамяти), 12 9(64K видеопамяти), 10 13 Число бит-на-пиксел-на плоскость 1 1 8 Разрешение Число плос¬ по горизонт. костей (в пикселах) 4 2 1 640 640 320 Следующая формула дает требуемый размер в байтах для массива, используе­ мого для хранения образа: s i z e % = 4 + I N T ( ( ( P M A P ( x 2 ! , 0) — PMAP ( x l ! , 0) + 1) * ( b i t s - p e r - p i x e l - p e r - p l a n e % ) + 7) / 8) * p l a n e s % * (PMAP ( y 2 ! , 1) — PMAP ( y 1 ! , 1) + 1) где bits-per-pixel-per-plane% число бит-на-пиксел-на-плоскость planes% число плоскостей Операции GET и P U T совместимы в режимах экрана, имеющих одинаковое разрешение по горизонтали и число бит-на-пиксель-на-плоскость и число плоскостей. Например, режимы экрана 2 , 4 и 1 1 совместимы; режимы э к р а н а 8 и 1 2 т а к ж е совместимы. Пример: 'Для выполнения этого примера нужен цветной графический адаптер. SCREEN 1 DIM B o x % ( 1 TO 200) x1%=0:x2%=10: y1%=0:y2%=10 LINE ( x 1 % , y 1 % ) - ( x 2 % , y 2 % ) , 2, BF GET ( x 1 % , y 1 % ) - ( x 2 % , y 2 % ) , Box% DO PUT ( x 1 % , y 1 % ) , Box%, XOR x 1 % = RND * 30 0 y 1 % = RND * 18 0 PUT ( x 1 % , y 1 % ) , Box% LOOP WHILE INKEY$ = GOSUB-оператор Операторы GOSUB и R E T U R N обеспечивают переход в подпрограмму и воз¬ врат из нее. Формат записи: GOSUB строка1 RETURN [строка2]