ÿþF u n k c j e M o d u B C r t d o T P
F u n k c j e M o d u B C r t d o T P
C r t - o b s Bu g a m o n i t o r a , k l a w i a t u r y i g Bo [n i k a
S t a Be
B l a c k - k o l o r c z a r n y ;
B l i n k - " m i g a n i e " ;
B l u e - k o l o r n i e b i e s k i ;
B r o w n - k o l o r b r z o w y ;
B W 4 0 - t r y b c z t e r d z i e s t o k o l u m n o w y c z a r n o b i a By ;
B W 8 0 - t r y b o s i e m d z i e s i c i o k o l u m n o w y c z a r n o b i a By ;
C 4 0 - t r y b c z t e r d z i e s t o k o l u m n o w y k o l o r o w y ;
C 8 0 - t r y b o s i e m d z i e s i c i o k o l u m n o w y k o l o r o w y ;
C O 4 0 - 4 0 c o l u m n s c o l o r s c r e e n m o d e ;
C O 8 0 - 8 0 c o l u m n s c o l o r s c r e e n m o d e ;
C y a n - k o l o r c y j a n ;
D a r k G r a y - k o l o r c i e m n o s z a r y ;
F o n t 8 x 8 - w e w n t r z n y t r y b c z c i o n k i R O M ;
G r e e n - k o l o r z i e l o n y ;
L i g h t B l u e - k o l o r j a s n o n i e b i e s k i ;
L i g h t C y a n - k o l o r j a s n y c y j a n ;
L i g h t G r a y - k o l o r j a s n y s z a r y ;
L i g h t G r e e n - k o l o r j a s n o z i e l o n y ;
L i g h t M a g e n t a - k o l o r j a s n y m a g e n t a ;
L i g h t R e d - k o l o r j a s n o c z e r w o n y ;
M a g e n t a - k o l o r m a g e n t a ;
M o n o - t r y b m o n o c h r o m a t y c z n y ;
R e d - k o l o r c z e r w o n y ;
S c r e e n H e i g h t - a k t u a l n a w y s o k o [ e k r a n u ;
S c r e e n W i d t h - a k t u a l n a s z e r o k o [ e k r a n u ;
W h i t e - k o l o r b i a By ;
Y e l l o w - k o l o r |ó Bt y .
P r o c e d u r y i f u n k c j e
A s s i g n C r t - d o Bc z p l i k d o C R T ;
C l r E o l - c z y [c i c a B l i n i o d m i e j s c a w k t ó r y m z n a j d u j e s i k u r s o r ;
C l r S c r - c z y [c i e k r a n ;
c u r s o r b i g - p o k a z u j e d u |y k u r s o r ;
c u r s o r o f f - u k r y w a k u r s o r ;
c u r s o r o n - w y [w i e t l a k u r s o r ;
D e l a y - o p ó zn i a w y k o n y w a n i e p r o g r a m u ;
D e l L i n e - u s u w a l i n i w k t ó r e j z n a j d u j e s i k u r s o r ;
G o t o X Y - p r z e m i e s z c z a k u r s o r w o k r e [l o n e m i e j s c e n a e k r a n i e ;
H i g h V i d e o - p r z e Bc z a w t r y b p o d [w i e t l a n i a ;
I n s L i n e - w s t a w i a p u s t l i n i w m i e j s c u p o z y c j i k u r s o r a ;
K e y P r e s s e d - s p r a w d z a c z y k l a w i s z j e s t n a c i [n i t y ;
L o w V i d e o - p r z e Bc z a w t r y b m a Be j i n t e n s y w n o [c i k o l o r ó w ;
N o r m V i d e o - p o w r a c a d o n o r m a l n e g o m o d u s ;
N o S o u n d - w y Bc z a d zw i k ;
R e a d K e y - c z y t a j e d e n z n a k ;
S o u n d - d zw i k s y s t e m o w y ;
T e x t B a c k g r o u n d - u s t a w i a k o l o r t Ba ;
T e x t C o l o r - u s t a w i a k o l o r t e k s t u ;
T e x t M o d e - u s t a w i a t r y b e k r a n u ;
W h e r e X - z w r a c a p o z y c j X k u r s o r a ;
W h e r e Y - z w r a c a p o z y c j Y k u r s o r a ;
W i n d o w - t w o r z y n o w e o k n o n a e k r a n i e .
C r t t o m o d u B z a w i e r a j c y p r o c e d u r y i f u n k c j e s Bu |c e d o k o n t r o l i t r y b u t e k s t o w e g o e k r a n u .
S t a Be
S t a Be k o l o r ó w
B l a c k 0
B l u e 1
G r e e n 2
C y a n 3
R e d 4
M a g e n t a 5
B r o w n 6
L i g h t G r a y 7
D a r k G r a y 8
L i g h t B l u e 9
L i g h t G r e e n 1 0
L i g h t C y a n 1 1
L i g h t R e d 1 2
L i g h t M a g e n t a 1 3
Y e l l o w 1 4
W h i t e 1 5
B l i n k 1 2 8
T r y b y p r a c y e k r a n u w D O S :
I d e n t y f i k a t o r W a r t o [ O p i s
4 0 k o l u m n o w y ,
b w 4 0 0
c z a r n o b i a By
4 0 k o l u m n o w y ,
c o 4 0 1
k o l o r o w y
8 0 k o l u m n o w y ,
b w 8 0 2
c z a r n o b i a By
8 0 k o l u m n o w y ,
c o 8 0 3
k o l o r o w y
m o n o 7 M o n o c h r o m a t y c z n y
I n n e :
I d e n t y f i k a t o r W a r t o [ O p i s
D o m y [l n a
S c r e e n W i d t h 8 0 s z e r o k o [
e k r a n u
D o m y [l n a
S c r e e n H e i g h t 2 5 w y s o k o [
e k r a n u
Z m i e n n e
C h e c k B r e a k : b o o l e a n ;
S p r a w d z a n i e k o m b i n a c j i c l r l + b r e a k . W F P C n i e u |y w a n e .
C h e c k E O F : b o o l e a n ;
S p o s ó b r e a k c j i p r o g r a m u n a k o m b i n a c j k l a w i s z y C T R L + Z . W F P C n i e u |y w a n e .
C h e c k S n o w : b o o l e a n ;
U s u w a n i e e f e k t u [n i e |e n i a . W F P C n e u |y w a n e .
D i r e c t V i d e o : b o o l e a n ;
J e [l i t r u e t o w y j [c i e p r o g r a m u j e s t o b s Bu g i w a n e p r z e z p a m i k a r t y g r a f i c z n e j , w p r z e c i w n y m
w y p a d k u d o t e g o c e l u w y k o r z y s t y w a n e s p r z e r w a n i a B I O S u .
L a s t M o d e : b y t e = 3 ;
O s t a t n i o u |y w a n y t r y b p r a c y e k r a n u .
T e x t A t t r : b y t e = $ 0 7 ;
Z m i e n n a T e x t A t t r k o n t r o l u j e a t r y b u t y k o l o r u , k t ó r e s u |y w a n e p r z y z a p i s i e z n a k ó w n a e k r a n .
W i n d M a x : w o r d = $ 1 8 4 f ;
Z m i e n n a p r z e c h o w u j c a w s t a r s z y m b a j c i e w s p ó Br z d n Y , a w m Bo d s z y m w s p ó Br z d n X ,
p r a w e g o d o l n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w .
W i n d M a x X : D W o r d ;
W s p ó Br z d n a X p r a w e g o d o l n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w .
W i n d M a x Y : D W o r d ;
W s p ó Br z d n a Y p r a w e g o d o l n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w s .
W i n d M i n : w o r d = $ 0 ;
Z m i e n n a p r z e c h o w u j c a w s t a r s z y m b a j c i e w s p ó Br z d n Y , a w m Bo d s z y m w s p ó Br z d n X ,
l e w e g o g ó r n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w .
W i n d M i n X : w o r d ;
W s p ó Br z d n a X l e w e g o g ó r n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w .
W i n d M i n Y : w o r d ;
W s p ó Br z d n a Y l e w e g o g ó r n e g o r o g u o k n a u t w o r z o n e g o p r z e z p r o c e d u r W i n d o w .
P r o c e d u r y
A s s i g n C r t
D e k l a r a c j a :
p r o c e d u r e A s s i g n C r t ( v a r F : T e x t ) ;
O p i s :
P r z y p i s u j e d o k o n s o l i p l i k F . Z a p i s d a n y c h d o p l i k u F z o s t a j e p r z e k i e r o w a n y d o o k i e n k a
k o n s o l i . J e [l i k o n s o l a z a w i e r a o k n o , w s z y s t k o z o s t a n i e z a p i s a n e w o k n i e .
C l r E o l
D e k l a r a c j a :
p r o c e d u r e C l r E o l ;
O p i s :
C l r E o l c z y [c i b i e |c y w i e r s z p o c z y n a j c o d p o z y c j i k u r s o r a a | d o k o Dc a o k n a . K u r s o r n i e
z m i e n i a s w o j e j p o z y c j i .
P r o c e d u r a z a m a z u j e ( c z y [c i ) a k t u a l n i e a k t y w n e o k n o u |y w a j c k o l u r u u s t a w i o n e g o p r o c e d u r
T e x t B a c k g r o u n d ( j e [l i w c z e [n i e j n i e u |y t o , o k n o z a s t a n i e z a m a z a n e k o l o r e m c z a r n y m ) , o d
p o z y c j i k u r s o r a a | d o p r a w e g o , d o l n e g o r o g u . K u r s o r n i e z m i e n i a p o z y c j i .
C l r S c r
D e k l a r a c j a :
p r o c e d u r e C l r S c r ;
O p i s :
P r o c e d u r a z a m a z u j e ( c z y [c i ) a k t u a l n i e a k t y w n e o k n o u |y w a j c k o l o r u u s t a w i o n e g o p r o c e d u r
T e x t B a c k g r o u n d ( j e [l i w c z e [n i e j n i e u |y t o , o k n o z o s t a n i e z a m a z a n e k o l o r e m c z a r n y m ) o r a z
u s t a w i a k u r s o r w l e w y m , g ó r n y m r o g u o k n a .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s C r t ;
2 .
3 . b e g i n
4 . W r i t e L n ( ' T e g o n a p i s u n i e z o b a c z y s z ' ) ;
5 . C l r S c r ; / / C z y [c i m y e k r a n w i c p o u r u c h o m i e n i u t e k s t u p o w y |e j n i e z o b a c z y s z . . .
6 . R e a d L n ;
7 . e n d .
C u r s o r B i g ( t y l k o F P C )
D e k l a r a c j a :
p r o c e d u r e C u r s o r B i g ;
O p i s :
T w o r z y k u r s o r o k s z t a Bc i e d u |e g o p r o s t o k t a . N i e z a i m p l e m e n t o w a n e w w e r s j i L i n u x .
C u r s o r O f f ( t y l k o F P C )
D e k l a r a c j a :
p r o c e d u r e C u r s o r O f f ;
O p i s :
W y Bc z a w i d o k k u r s o r a . W w e r s j i L i n u x n i e z a i m p l e m e n t o w a n e .
C u r s o r O n ( t y l k o F P C )
D e k l a r a c j a :
p r o c e d u r e C u r s o r O n ;
O p i s :
W Bc z a w i d o k k u r s o r a . W w e r s j i L i n u x n i e z a i m p l e m e n t o w a n e .
D e l a y
D e k l a r a c j a :
p r o c e d u r e D e l a y ( M S : w o r d ) ;
O p i s :
P r o c e d u r a w s t r z y m u j e w y k o n a n i e p r o g r a m u n a M S m i l i s e k u n d .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s C r t ;
2 .
3 . v a r
4 . i : b y t e ;
5 . b e g i n
6 . f o r i : = 1 0 d o w n t o 1 d o
7 . b e g i n
8 . C l r S c r ;
9 . G o T o X Y ( 3 0 , 1 1 ) ;
1 0 . W r i t e L n ( ' A u t o d e s t r u k c j a z a : ' , i , ' s ' ) ;
1 1 . D e l a y ( 1 0 0 0 ) ; / / W s t r z y m a n i e n a s e k u n d w y k o n a n i e p r o g r a m u
1 2 . e n d ;
1 3 . T e x t B a c k g r o u n d ( r e d ) ;
1 4 . C l r S c r ;
1 5 . G o T o X Y ( 3 5 , 1 1 ) ;
1 6 . W r i t e L n ( ' B O O M ! ! ! ' ) ;
1 7 . R e a d l n
1 8 . e n d .
D e l L i n e
D e k l a r a c j a :
p r o c e d u r e D e l L i n e ;
O p i s :
D e l L i n e u s u w a b i e |c y w i e r s z . W i e r s z e l e |c e p o n i |e j z o s t a j p r z e m i e s z c z o n e w g ó r o 1
w i e r s z , a n a s p o d z i e b i e |c e g o o k n a z o s t a j e w s t a w i o n y p u s t y w i e r s z z n a k ó w . K u r s o r n i e
z m i e n i a p o z y c j i .
G o T o X Y
D e k l a r a c j a :
p r o c e d u r e G o T o X Y ( X : b y t e ; Y : b y t e ) ;
O p i s :
P r o c e d u r a u s t a w i a k u r s o r t e k s t o w y w p o z y c j i X , Y w z g l d e m l e w e g o , g ó r n e g o r o g u o k n a ( 1 ,
1 ) .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s
2 . C r t ;
3 .
4 . b e g i n
5 . G o T o X Y ( 3 0 , 1 0 ) ;
6 . W r i t e L n ( ' T e k s t n a [r o d k u ' ) ;
7 . R e a d k e y ;
8 . e n d .
H i g h V i d e o
D e k l a r a c j a :
p r o c e d u r e H i g h V i d e o
O p i s :
H i g h V i d e o p r z e Bc z a w y [w i e t l a n i e z n a k ó w w t r y b p o d w y |s z o n e j j a s n o [c i u s t a w i a j c b i t
w y s o k i e j i n t e n s y w n o [c i k o l o r u w a t r y b u c i e w i d e o .
I n s L i n e
D e k l a r a c j a :
p r o c e d u r e I n s L i n e ;
O p i s :
I n s L i n e w s t a w i a p u s t y w i e r s z n a b i e |c e j p o z y c j i k u r s o r a . W i e r s z e l e |c e p o n i |e j z o s t a j
o p u s z c z o n e o j e d n l i n i j k w d ó B. c o p o w o d u j e z n i k n i c i e o s t a t n i e g o w i e r s z a z o k n a . K u r s o r
n i e z m i e n i a p o Bo |e n i a .
L o w V i d e o
D e k l a r a c j a :
p r o c e d u r e L o w V i d e o ;
O p i s :
L o w V i d e o p r z e Bc z a w y j [c i e t e k s t u d o k o l o r u w n o r m a l n e j i n t e n s y w n o [c i z e r u j c b i t
i n t e n s y w n o [c i w a t r y b u c i e k o l o r u w i d e o .
N o r m V i d e o
D e k l a r a c j a :
p r o c e d u r e N o r m V i d e o ;
O p i s :
N o r m V i d e o p r z e Bc z a n a s t a n d a r d o w e k o l o r y , o d c z y t a n e p r z y s t a r c i e z p o z y c j i k u r s o r a .
N o S o u n d
D e k l a r a c j a :
p r o c e d u r e N o S o u n d ;
O p i s :
P r o c e d u r a p r z e r y w a g e n e r o w a n i e d zw i k u w y w o Ba n e p r o c e d u r S o u n d .
S o u n d
D e k l a r a c j a :
p r o c e d u r e S o u n d ( H z : w o r d ) ;
O p i s :
P r o c e d u r a g e n e r u j e d zw i k o o k r e [l o n e j p r z e z p a r a m e t r H z c z s t o t l i w o [c i , z g Bo [n i c z k a p By t y
g Bó w n e j ( P C S p e a k e r ) . D zw i k b d z i e o d g r y w a n y a | d o m o m e n t u w y w o Ba n i a p r o c e d u r y
N o S o u n d . C z s t o s t o s o w a n y w p o Bc z e n i u z p r o c e d u r D e l a y . W s y s t e m a c h i n n y c h n i |
W i n d o w s p r o c e d u r m o |e n i e d z i a Ba .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s
2 . C r t ;
3 .
4 . b e g i n
5 . S o u n d ( 1 5 0 0 ) ;
6 . D e l a y ( 2 0 0 0 ) ;
7 . N o S o u n d ;
8 . e n d .
T e x t B a c k g r o u n d
D e k l a r a c j a :
p r o c e d u r e T e x t B a c k g r o u n d ( c l : b y t e ) ;
O p i s :
U s t a w i a k o l o r c l t Ba t e k s t u . c l t o w a r t o [ z z a k r e s u o d 0 . . 7 .
T e x t C o l o r
D e k l a r a c j a :
p r o c e d u r e T e x t C o l o r ( c l : b y t e ) ;
O p i s :
U s t a w i a k o l o r c l t e k s t u . c l t o w a r t o [ z z a k r e s u o d 0 . . 1 5 .
T e x t M o d e
D e k l a r a c j a :
p r o c e d u r e T e x t M o d e ( M o d e : w o r d ) ;
O p i s :
P r o c e d u r a u s t a w i a t r y b p r a c y e k r a n u D O S .
W i n d o w
D e k l a r a c j a :
p r o c e d u r e W i n d o w ( X 1 : b y t e ; Y 1 : b y t e ; X 2 : b y t e ; Y 2 : b y t e ) ;
O p i s :
W i n d o w t w o r z y o k n o t e k s t o w e n a e k r a n i e k o n s o l i , d o k t ó r e g o b d z i e p r z e s y Ba n y t e k s t .
W s p ó Br z d n e ( X 1 , Y 1 ) o k r e [l a j l e w y g ó r n y n a r o |n i k t e g o o k n a , a ( X 2 , Y 2 ) p r a w y d o l n y .
W s p ó Br z d n e t e o d n o s z s i d o e k r a n u , k t ó r e g o l e w y g ó r n y n a r o |n i k z n a j d u j e s i n a p o z y c j i
( 1 , 1 ) . D a l s z e o p e r a c j e z w i z a n e z e w s p ó Br z d n y m i , z a w y j t k i e m k o l e j n e g o w y w o Ba n i a
p r o c e d u r y W i n d o w , s w z g l d e m l e w e g o g ó r n e g o n a r o |n i k a t e g o o k n a .
F u n k c j e
K e y P r e s s e d
D e k l a r a c j a :
f u n c t i o n K e y P r e s s e d : b o o l e a n ;
O p i s :
F u n k c j a s p r a w d z a c z y b u f o r k l a w i a t u r y n i e j e s t p u s t y . J e [l i t a k f u n k c j a z w r a c a t r u e w
p r z e c i w n y m w y p a d k u f a l s e . I g n o r o w a n e s k l a w i s z e : S h i f t , A l t o r a z C t r l . F u n k c j a n i e u s u w a
k o d u k l a w i s z a z b u f o r a k l a w i a t u r y .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s
2 . C r t ;
3 .
4 . b e g i n
5 . r e p e a t
6 . W r i t e L n ( ' N a c i s n i j d o w o l n y k l a w i s z a b y z a k o Dc z y ' ) ;
7 . D e l a y ( 1 0 0 ) ;
8 . u n t i l K e y P r e s s e d ;
9 . e n d .
R e a d K e y
D e k l a r a c j a :
f u n c t i o n R e a d K e y : C h a r ;
O p i s :
F u n k c j a z w r a c a k o d , z b u f o r a k l a w i a t u r y , w c i [n i t e g o k l a w i s z a . W p r z y p a d k u g d y b u f o r j e s t
p u s t y , f u n k c j a c z e k a n a w c i [n i c i e k l a w i s z a . D l a k l a w i s z y f u n k c y j n y c h i s t e r u j c y c h f u n k c j a
z w r a c a # 0 , p o n o w n e u |y c i e R e a d K e y w t y m w y p a d k u z w r ó c i w Ba [c i w y k o d k l a w i s z a .
P r z y k Ba d :
v i e w p l a i n c o p y t o c l i p b o a r d p r i n t ?
1 . u s e s
2 . C r t ;
3 .
4 . v a r
5 . O d p : c h a r = # 0 ;
6 .
7 . b e g i n
8 .
9 . r e p e a t
1 0 . O d p : = R e a d K e y ;
1 1 . W r i t e L n ( ' K o d A S C I k l a w s z a ' , O d p , ' : ' ) ;
1 2 . W r i t e L n ( o r d ( O d p ) ) ;
1 3 . i f O d p = # 0 t h e n
1 4 . b e g i n
1 5 . O d p : = R e a d K e y ;
1 6 . W r i t e L n ( o r d ( O d p ) ) ;
1 7 . e n d ;
1 8 . u n t i l O d p = # 2 7 ;
1 9 . e n d .
W h e r e X
D e k l a r a c j a :
f u n c t i o n W h e r e X : B y t e ;
O p i s :
F u n k c j a z w r a c a w s p ó Br z d n X p o z y c j i k u r s o r a w z g l d e m l e w e g o , g ó r n e g o r o g u a k t y w n e g o
o k n a .
W h e r e Y
D e k l a r a c j a :
f u n c t i o n W h e r e Y : B y t e ;
O p i s :
F u n k c j a z w r a c a w s p ó Br z d n Y p o z y c j i k u r s o r a w z g l d e m l e w e g o , g ó r n e g o r o g u a k t y w n e g o
o k n a .
2 ) C R T
2 . 1 T e x t M o d e ( x ) z m i e n i a m y s t y l n a s z e g o o k n a i r o z m i a r u c z c i o n k i . W p o l e x m o |e m y
p o d a 4 w a r t o [c i :
C O 8 0 - r o z m i a r 8 0 x 2 5 s t a n d a r d o w y d o s
C O 4 0 - r o z m i a r 4 0 x 2 5
C O 8 0 + f o n t 8 x 8 - r o z m i a r 8 0 x 5 0
C O 4 0 + f o n t 8 x 8 - r o z m i a r 4 0 x 5 0
2 . 2 K e y P r e s s e d f u n k c j a s p r a w d z a a k t y w n o [ k l a w i a t u r y .
2 . 3 C l r E o l p r o c e d u r a w y m a z u j e z n a k i o d m i e s c a w k t ó r y m z n a j d u j s i k u r s o r d o k o Dc a
l i n i i .
2 . 4 I n s L i n e p r o c e d u r a w s t a w i a p u s t l i n i w m i e j s c e k u r s o r a .
2 . 5 D e l L i n e p r o c e d u r a u s u w a l i n i w m i e j s c u , w k t ó r y m z n a j d u j s i k u r s o r .
2 . 6 W h e r e X f u n k c j a p o z y c j a k u r s o r a w o s i X .
2 . 7 W h e r e Y f u n k c j a p o z y c j a k u r s o r a w o s i Y .
2 . 8 W i n d o w ( x , y , x x , y y ) p r o c e d u r a t w o r z c a n o w e o k n o , g d z i e :
x ( 0 - 8 0 ) , y ( 0 - 2 5 ) - l e w o g ó r n y r ó g o k n a
x x ( 0 - 8 0 ) , y y ( 0 - 2 5 ) - p r a w o d o l n y r ó g o k n a
2 . 9 G o T o X Y ( x , y ) p r o c e d u r a u s t a w i a k u r s o r n a p o z y c j i ( x , y )
A t e r a z s p ó j r z j a k k o r z y s t a z p o w y |s z y c h k o m e n d :
* s t o s o w a n i e k o m e n d c r t .
P r o g r a m p r o g r a m _ 3 0 ;
u s e s c r t ;
v a r i , j : i n t e g e r ;
B E G I N
c l r s c r ;
w i n d o w ( 2 0 , 5 , 6 0 , 6 ) ; { 1 }
r e a d l n ;
w i n d o w ( 1 , 1 , 8 0 , 2 5 ) ; { w r a c a m y d o s t a n d a r d o w e g o o k n a 8 0 x 2 5 }
G o T o X Y ( 1 5 , 6 ) ;
w r i t e l n ( ' P o z y c j a k u r s o r a X = ' , W h e r e X , ' Y = ' , W h e r e Y ) ;
c l r s c r ;
f o r i : = 1 t o 8 0 d o
f o r j : = 1 t o 2 4 d o w r i t e ( ' * ' ) ; { 2 }
G o T o X Y ( 3 3 , 9 ) ;
C l r E o l ;
r e a d k e y ;
I n s L i n e ;
r e a d k e y ;
D e l L i n e ;
r e a d k e y ;
T e x t M o d e ( C O 8 0 + f o n t 8 x 8 ) ; { 3 }
r e a d l n ;
r e p e a t u n t i l K e y P r e s s e d ;
E N D .
U n i t C R T
U n i t C R T ( C r t . t p u a l b o C r t . t p p ) d o s t a r c z a w i e l e n a j c z [c i e j u |y w a n y c h p r o c e d u r i f u n k c j i ,
k t ó r e d a j c a Bk o w i t k o n t r o l n a d m o |l i w o [c i a m i k o m p u t e r a .
P r o c e d u r y i f u n k c j e u n i t u C R T p o z w a l a j n a k o n t r o l t r y b ó w e k r a n u , r o z s z e r z o n y m i k o d a m i
k l a w i a t u r y , k o l o r a m i , o k n a m i i d zw i k a m i .
U n i t C R T m o |e b y w y k o r z y s t y w a n y j e d y n i e w p r o g r a m a c h d z i a Ba j c y c h n a k o m p u t e r a c h w
p e Bn i k o m p a t y b i l n y c h z I B M P C , A T .
P r o c e d u r y i f u n k c j e u n i t u C R T
A s s i g n C r t p r o c e d u r a w y [w i e t l a p l i k t e k s t o w y n a e k r a n i e .
C z y [c i w s z y s t k i e z n a k i o d m i e j s c a , w
C l r E o l p r o c e d u r a k t ó r y m z n a j d u j e s i k u r s o r d o k o Dc a
l i n i i .
C z y [c i e k r a n i w y [w i e t l a k u r s o r w
C l r S c r p r o c e d u r a
l e w y m g ó r n y m r o g u .
p o w o d u j e o p ó zn i e n i e o p o d a n l i c z b
D e l a y p r o c e d u r a
m i l i s e k u n d .
D e l L i n e p r o c e d u r a u s u w a l i n i , w k t ó r e j z n a j d u j e s i
k u r s o r .
p r z e s u w a k u r s o r d o p o d a n e j p o z y c j i n a
G o t o X Y p r o c e d u r a
e k r a n i e .
H i g h V i d e o p r o c e d u r a u s t a w i a z n a k i w y s o k i e j i n t e n s y w n o [c i .
w s t a w i a p u s t l i n i w w i e r s z u , w
I n s L i n e p r o c e d u r a
k t ó r y m z n a j d o w a B s i k u r s o r .
s p r a w d z a c z y z o s t a B n a c i [n i t y j a k i [
K e y P r e s s e d f u n k c j a
k l a w i s z .
L o w V i d e o p r o c e d u r a u s t a w i a z n a k i n i s k i e j i n t e n s y w n o [c i .
u s t a w i a d o m y [l n y t r y b w y [w i e t l a n i a
N o r m V i d e o p r o c e d u r a
z n a k ó w n a e k r a n i e
N o S o u n d p r o c e d u r a w y Bc z a d zw i k z e s p e a k e r a .
R e a d K e y f u n k c j a p o b i e r a z n a k z k l a w i a t u r y .
S o u n d p r o c e d u r a u r u c h a m i a d zw i k z e s p e a k e r a .
T e x t B a c k g r o u n d p r o c e d u r a u s t a w i a k o l o r t Ba p o d t e k s t e m .
T e x t C o l o r p r o c e d u r a u s t a w i a k o l o r t e k s t u .
u s t a w i a w y b r a n y t r y b w y [w i e t l a n i a
T e x t M o d e p r o c e d u r a
t e k s t u .
z w r a c a w s p ó Br z d n X p o Bo |e n i a
W h e r e X f u n k c j a
k u r s o r a .
z w r a c a w s p ó Br z d n Y p o Bo |e n i a
W h e r e Y f u n k c j a
k u r s o r a .
t w o r z y n a e k r a n i e o k n o w t r y b i e
W i n d o w p r o c e d u r a
t e k s t o w y m .
Z m i e n n e u n i t u C R T
C h e c k B r e a k : ( B o o l e a n )
C h e c k E O F : ( B o o l e a n )
C h e c k S n o w : ( B o o l e a n )
D i r e c t V i d e o : ( B o o l e a n )
L a s t M o d e : ( W o r d )
T e x t A t t r : ( B y t e )
W i n d M a x : ( W o r d )
W i n d M i n : ( W o r d )
A s s i g n C r t ( p r o c e d u r a ) - u n i t W i n C r t ^
W y [w i e t l a p l i k t e k s t o w y n a e k r a n i e .
D e k l a r a c j a :
A s s i g n C r t ( v a r f : T e x t ) ;
U w a g i :
P r o c e d u r a A s s i g n C r t d z i a Ba p o d o b n i e j a k s t a n d a r d o w a p r o c e d u r a A s s i g n , j e d n a k |e n i e
p r z y p i s u j e s i n a z w y k o n k r e t n e g o p l i k u . W z a m i a n , p l i k t e k s t o w y j e s t s k o j a r z o n y z e k r a n e m .
R o z w i z a n i e t a k i e p o z w a l a n a s z y b s z e d o k o n y w a n i e o p e r a c j i w y j [c i a ( i w e j [c i a ) n i | j e s t t o
m o |l i w e g d y u |y w a n e s s t a n d a r d o w e i n s t r u k c j e w y j [c i a ( i w e j [c i a ) .
p r z y k Ba d
C l r E o l ( p r o c e d u r a ) - u n i t C r t i W i n C r t ^
C z y [c i w s z y s t k i e z n a k i o d m i e j s c a , w k t ó r y m z n a j d u j e s i k u r s o r d o k o Dc a l i n i i , n i e
p r z e s u w a j c p r z y t y m k u r s o r a .
D e k l a r a c j a :
C l r E o l
U w a g i :
W s z y s t k i e z n a k i d o k o Dc a d a n e j l i n i i u s t a w i a n e s j a k o n i e w i d o c z n e p r z y w y k o r z y s t a n i u
a k t u a l n i e u s t a l o n y c h a t r y b u t ó w t e k s t u . T a k w i c , j e [l i t Bo ( T e x t B a c k g r o u n d ) n i e j e s t
z d e f i n i o w a n e j a k o c z a r n e , w s z y s t k i e z n a k i o d m i e j s c a , w k t ó r y m z n a j d o w a B s i k u r s o r , d o
p r a w e j k r a w d z i e k r a n u z m i e n i k o l o r n a k o l o r t Ba .
P r o c e d u r a C l r E o l j e s t z a l e |n a o d a k t y w n e g o o k n a . P o n i |s z e l i n i e p r o g r a m u d e f i n i u j o k n o i
c z y s z c z l i n i , w k t ó r e j z n a j d o w a B s i k u r s o r o d p o z y c j i ( 1 , 1 ) d o p r a w e j k r a w d z i a k t y w n e g o
o k n a ( 1 , 6 0 ) .
W i n d o w ( 1 , 1 , 6 0 , 2 0 ) ;
C l r E o l ;
p r z y k Ba d
C l r S c r ( p r o c e d u r a ) - u n i t C r t i W i n C r t ^
C z y [c i e k r a n i w y [w i e t l a k u r s o r w l e w y m g ó r n y m r o g u .
D e k l a r a c j a :
C l r S c r
U w a g i :
W s z y s t k i e z n a k i u s t a w i a n e s j a k o n i e w i d o c z n e p r z y w y k o r z y s t a n i u a k t u a l n i e u s t a l o n y c h
a t r y b u t ó w t e k s t u . T a k w i c j e [l i t Bo ( T e x t B a c k g r o u n d ) n i e j e s t z d e f i n i o w a n e j a k o c z a r n e , c a By
e k r a n s t a n i e s i k o l o r u t Ba . D o t y c z y t o t a k |e z n a k ó w w y c z y s z c z o n y c h p r z e z C l r E o l , I n s L i n e , i
D e l L i n e , i p u s t y c h l i n i i p o w s t a By c h w w y n i k u p r z e s u w a n i a e k r a n u .
P r o c e d u r a C l r S c r j e s t z a l e |n a o d a k t y w n e g o o k n a . P o n i |s z e l i n i e p r o g r a m u d e f i n i u j o k n o i
c z y s z c z p r o s t o k t o w y m i a r a c h 6 0 x 2 0 .
W i n d o w ( 1 , 1 , 6 0 , 2 0 ) ;
C l r S c r ;
p r z y k Ba d
D e l a y ( p r o c e d u r a ) - u n i t C r t ^
P o w o d u j e o p ó zn i e n i e o p o d a n l i c z b m i l i s e k u n d
D e k l a r a c j a :
D e l a y ( l i c z b a _ m i l i s e k u n d : W o r d ) ;
U w a g i :
l i c z b a _ m i l i s e k u n d t o l i c z b a o k r e [l a j c a o i l e m i l i s e k u n d m a o p ó zn i s i w y k o n y w a n i e
p r o g r a m u .
P r o c e d u r a D e l a y j e s t p r z y b l i |e n i e m , w i c p r z e r w a w p r o g r a m i e n i e b d z i e t r w a d o k Ba d n i e
t y l e i l e p o d a n o w p a r a m e t r z e l i c z b a _ m i l i s e k u n d .
p r z y k Ba d
D e l L i n e ( p r o c e d u r a ) - u n i t C r t ^
U s u w a l i n i w k t ó r e j z n a j d u j e s i k u r s o r .
D e k l a r a c j a :
D e l L i n e
U w a g i :
L i n i a , w k t ó r e j z n a j d o w a B s i k u r s o r z o s t a j e u s u n i t a , a w s z y s t k i e l i n i e p o d n i z o s t a j
p r z e s u n i t e o j e d n p o z y c j d o g ó r y ( u |y w a j c s t a n d a r d o w e j p r o c e d u r y B I O S ' u ) . N a d o l e
d o d a w a n a j e s t n o w a l i n i a .
W s z y s t k i e z n a k i u s t a w i a n e s z g o d n i e z a k t u a l n y m i a t r y b u t a m i t e k s t u . T a k w i c j e [l i t Bo
( T e x t B a c k g r o u n d ) n i e j e s t u s t a w i o n e j a k o c z a r n e , n o w a l i n i a b d z i e j e g o k o l o r u .
Z o b a c z t a k |e :
I n s L i n e
W i n d o w
p r z y k Ba d
G o t o X Y ( p r o c e d u r a ) - u n i t C r t i W i n C r t ^
P r z e s u w a k u r s o r d o p o d a n e j p o z y c j i n a e k r a n i e .
D e k l a r a c j a :
G o t o X Y ( X , Y : B y t e ) ;
U w a g i :
G ó r n y l e w y r ó g e k r a n u m a w s p ó Br z d n e ( 1 , 1 ) . G d y p r o j e k t u j e s z n o w e a p l i k a c j e m o |e s z
z a m i a s t G o t o X Y u |y C u r s o r T o . P r o c e d u r a G o t o X Y j e s t z g o d n a z u n i t e m C R T T u r b o
P a s c a l ' a d l a D O S ' a .
p r z y k Ba d
H i g h V i d e o ( p r o c e d u r a ) - u n i t C r t ^
U s t a w i a z n a k i w y s o k i e j i n t e n s y w n o [c i . ( ? )
D e k l a r a c j a :
H i g h V i d e o ;
U w a g i :
W C R T T e x t A t t r j e s t z m i e n n a o w i e l k o [c i j e d n e g o b a j t a p r z e c h o w u j c a o b e c n e u s t a w i e n i a
w i d e o . P r o c e d u r a H i g h V i d e o u s t a w i a b i t i n t e n s y w n o [c i o b r a z u w z m i e n n e j T e x t A t t r - k o l o r
z n a k ó w , c z y l i p r z e m i e n i a k o l o r y z 0 - 7 n a k o l o r y 8 - 1 5 .
Z o b a c z t a k |e :
L o w V i d e o
N o r m V i d e o
T e x t B a c k g r o u n d
T e x t C o l o r
p r z y k Ba d
I n s L i n e ( p r o c e d u r a ) - u n i t C r t ^
W s t a w i a p u s t l i n i w w i e r s z u , w k t ó r y m z n a j d o w a B s i k u r s o r .
D e k l a r a c j a :
I n s L i n e ;
U w a g i :
W s z y s t k i e l i n i e p o n i |e j w s t a w i a n e j p r z e s u w a n e s o j e d n l i n i w d ó B ( u |y w a j c
s t a n d a r d o w e j p r o c e d u r y B I O S u ) , a o s t a t n i w i e r s z w y c h o d z i p o z a e k r a n .
W s z y s t k i e z n a k i u s t a w i a n e s z g o d n i e z o b e c n y m i a t r y b u t a m i t e k s t u . T a k w i c j e [l i t Bo
( T e x t B a c k g r o u n d ) n i e j e s t u s t a w i o n e j a k o c z a r n e , n o w a l i n i a b d z i e j e g o k o l o r u .
Z o b a c z t a k |e :
D e l L i n e
W i n d o w
p r z y k Ba d
K e y P r e s s e d ( f u n k c j a ) - u n i t C r t i W i n C r t ^
S p r a w d z a c z y z o s t a B n a c i [n i t y j a k i [ k l a w i s z .
D e k l a r a c j a :
K e y P r e s s e d : B o o l e a n
U w a g i :
T o j a k i k l a w i s z z o s t a B n a c i [n i t y m o |n a s p r a w d z i p r z y u |y c i u f u n k c j i R e a d K e y .
Z w r a c a n a w a r t o [:
T R U E ( p r a w d a ) j e [l i k l a w i s z z o s t a B n a c i [n i t y , F A L S E ( f a Bs z ) j e [l i n i e .
p r z y k Ba d
L o w V i d e o ( p r o c e d u r a ) - u n i t C r t ^
U s t a w i a z n a k i n i s k i e j i n t e n s y w n o [c i . ( ? )
D e k l a r a c j a :
L o w V i d e o ;
U w a g i :
W C R T T e x t A t t r j e s t z m i e n n a o w i e l k o [c i j e d n e g o b a j t a p r z e c h o w u j c a o b e c n e u s t a w i e n i a
w i d e o . P r o c e d u r a L o w V i d e o u s t a w i a b i t i n t e n s y w n o [c i o b r a z u w z m i e n n e j T e x t A t t r - k o l o r
z n a k ó w , c z y l i p r z e m i e n i a k o l o r y z 8 - 1 5 n a k o l o r y 0 - 7 .
Z o b a c z t a k |e :
H i g h V i d e o
N o r m V i d e o
T e x t B a c k g r o u n d
T e x t C o l o r
p r z y k Ba d
N o r m V i d e o ( p r o c e d u r a ) - u n i t C r t ^
U s t a w i a d o m y [l n y t r y b w y [w i e t l a n i a z n a k ó w n a e k r a n i e .
D e k l a r a c j a :
N o r m V i d e o ;
U w a g i :
P r o c e d u r a N o r m V i d e o p r z y w r a c a z m i e n n e j T e x t A t t r j e j w a r t o [ z p o c z t k u d z i a Ba n i a
p r o g r a m u ( z m i e n n a T e x t A t t r p r z e c h o w u j e a k t u a l n e w Ba [c i w o [c i w y [w i e t l a n i a t e k s t u ) .
Z o b a c z t a k |e :
H i g h V i d e o
L o w V i d e o
T e x t B a c k g r o u n d
T e x t C o l o r
p r z y k Ba d
N o S o u n d ( p r o c e d u r a ) - u n i t C r t ^
W y Bc z a d zw i k z e s p e a k e r a .
D e k l a r a c j a
N o S o u n d ;
U w a g i :
P o n i |s z e l i n i e p r o g r a m u p o w o d u j w Bc z e n i e d zw i k u o c z s t o t l i w o [c i 4 4 0 h e r c ó w n a p ó B
s e k u n d y :
S o u n d ( 4 4 0 ) ;
D e l a y ( 5 0 0 ) ;
N o S o u n d ;
Z o b a c z t a k |e :
S o u n d
p r z y k Ba d
R e a d K e y ( f u n k c j a ) - u n i t C r t ^
P o b i e r a z n a k z k l a w i a t u r y .
D e k l a r a c j a :
R e a d k e y : C h a r ;
U w a g i :
W c i [n i t y k l a w i s z n i e j e s t w y [w i e t l a n y n a e k r a n .
Z w r a c a n a w a r t o [:
F u n k c j a R e a d K e y p r z e c h o w u j e z n a k w c i [n i t e g o k l a w i s z a , l u b k o d r o z s z e r z o n y .
p r z y k Ba d
S o u n d ( p r o c e d u r a ) - u n i t C r t ^
U r u c h a m i a d |w i k z e s p e a k e r a .
D e k l a r a c j a :
S o u n d ( H z : W o r d ) ;
U w a g i :
Z m i e n n a H z j e s t c z s t o t l i w o [c i m a j c e g o s i w y d o b y z e s p e a k e r a d zw i k u . D zw i k b d z i e
b r z m i a B n i e p r z e r w a n i e d o p ó k i n i e z o s t a n i e w y Bc z o n y p r z e z p r o c e d u r ( N o S o u n d ) .
Z o b a c z t a k |e :
N o S o u n d
p r z y k Ba d
T e x t B a c k g r o u n d ( p r o c e d u r a ) - u n i t C R T ^
U s t a w i a k o l o r t Ba .
D e k l a r a c j a :
T e x t B a c k g r o u n d ( C o l o r : B y t e ) ;
U w a g i :
Z m i e n n a C o l o r j e s t w y r a |e n i e m c a Bk o w i t y m z p r z e d z i a Bu 0 . . 7 , z a w i e r a j c y m p i e r w s z e o s i e m
k o l o r ó w t e k s t u . P r o c e d u r a T e x t B a c k g r o u n d z m i e n i a 4 - 6 b i t z m i e n n e j T e x t A t t r n a w y b r a n y
k o l o r .
T Bo w s z y s t k i c h w y [w i e t l a n y c h p o w y w o Ba n i u p r o c e d u r y z n a k ó w b d z i e w y b r a n e g o w c z e [n i e j
k o l o r u .
Z o b a c z t a k |e :
H i g h V i d e o
L o w V i d e o
N o r m V i d e o
T e x t C o l o r
p r z y k Ba d
T e x t C o l o r ( p r o c e d u r a ) - u n i t C R T ^
U s t a w i a k o l o r t e k s t u .
D e k l a r a c j a :
T e x t C o l o r ( C o l o r : B y t e ) ;
U w a g i :
Z m i e n n a C o l o r j e s t w y r a |e n i e m c a Bk o w i t y m z p r z e d z i a Bu 0 . . 1 5 , z a w i e r a j c y m j e d e n z
k o l o r ó w t e k s t u .
P r o c e d u r a T e x t C o l o r z m i e n i a 0 - 3 b i t z m i e n n e j T e x t A t t r n a w y b r a n y k o l o r . J e [l i w a r t o [
z m i e n n e j k o l o r j e s t w i k s z a n i | 1 5 w t e d y r ó w n i e | b i t m i g o t a n i a t e k s t u ( 7 b i t z m i e n n e j
T e x t A t t r ) z o s t a j e z m i e n i o n y , w p r z e c i w n y m w y p a d k u z o s t a j e u s t a w i o n y n a w a r t o [ 0 .
M o |e s z s p o w o d o w a , |e z n a k i n a e k r a n i e b d m r u g a ( m i g o t a ) d o d a j c 1 2 8 d o w a r t o [c i
z m i e n n e j c o l o r . S t a Ba m i g o t a n i a t e k s t u j e s t z d e f i n i o w a n a d l a z a s a d y , i w g r u n c i e r z e c z y j u | o d
w e r s j i P a s c a l ' a 3 . 0 w y s t a r c z y w p i s a j a k k o l w i e k w i k s z l i c b n i | 1 5 j a k o z m i e n n c o l o r b y
w Bc z y m i g o t a n i e t e k s t u . K o l o r w s z y s t k i c h z n a k ó w w y [w i e t l a n y c h p o u |y c i u p r o c e d u r y
T e x t C o l o r b d z i e w y b r a n e g o w c z e [n i e j k o l o r u .
Z o b a c z t a k |e :
H i g h V i d e o
L o w V i d e o
N o r m V i d e o
T e x t B a c k g r o u n d
p r z y k Ba d
T e x t M o d e ( p r o c e d u r a ) - u n i t C R T ^
U s t a w i a w y b r a n y t r y b w y [w i e t l a n i a t e k s t u .
D e k l r a r a c j a :
T e x t M o d e ( M o d e : I n t e g e r ) ;
U w a g i :
G d y w y w o By w a n a j e s t p r o c e d u r a T e x t M o d e , o b e c n e o k n o r o z c i g a n e j e s t n a c a By e k r a n ,
z m i e n n a C R T - D i r e c t V i d e o j e s t u s t a w i a n a n a w a r t o [ T R U E ( p r a w d a ) , z m i e n n a C R T
C h e c k S n o w j e s t u s t a w i a n a n a w a r t o [ T R U E ( p r a w d a ) i j e [l i w y b r a n y b y B k o l o r t Ba , c z y
t e k s t u z o s t a j e o n z a p i s a n y w z m i e n n e j L a s t M o d e , a e k r a n o w i p r z y w r a c a s i w y g l d
o r y g i n a l n y , p o d o b n i e j a k d z i a Ba n i e m p r o c e d u r y N o r m V i d e o .
Z m i e n n a L a s t M o d e j e s t i n i c j a l i z o w a n a d o m y [l n i e z a k a |d y m r a z e m , g d y z a c z y n a d z i a Ba
p r o g r a m .
W y w o Ba n i e p r o c e d u r y T e x t M o d e z p a r a m e t r e m L a s t M o d e ( T e x t m o d e ( L a s t M o d e ) ; ) p o w o d u j e
p o w r ó t d o w c z e [n i e j a k t y w n e g o t r y b u w y [w i e t l a n i a . O p c j a t a j e s t s z c z e g ó l n i e p r z y d a t n a , g d y
t r z e b a p o w r ó c i d o t r y b u t e s t o w e g o p o s k o Dc z e n i u p r a c y w t r y b i e g r a f i c z n y m .
W y w o Ba n i e p r o c e d u r y T e x t M o d e z n a s t p u j c y m p a r a m e t r e m : T e x t M o d e ( C 8 0 + F o n t 8 x 8 ) ;
s p o w o d u j e p r z e j [c i e d o t r y b u w y [w i e t l a n i a t e k s t u w 4 3 w i e r s z a c h i 8 0 k o l u m n a c h d l a k a r t
E G A a l b o 5 0 l i n i a c h i 8 0 k o l u m n a c h d l a k a r t V G A z k o l o r o w y m m o n i t o r e m . T e x t M o d e
( L o ( L a s t M o d e ) ) z a w s z e w y Bc z a t r y b 4 3 - l u b 5 0 - w i e r s z o w y i p r z y w r a c a p o p r z e d n i t r y b
w y [w i e t l a n i a ( c h y b a |e n i e z m i e n i a t r y b u w y [w i e t l a n i a ) ; d z i e j e s i t o w t e d y , g d y w y w o Ba s i
p r o c e d u r z p a r a m e t r e m T e x t M o d e ( L o ( L a s t M o d e ) + f o n t 8 x 8 ) ; . T a k i e w y w o Ba n i e p o z o s t a w i a
b e z z m i a n t r y b w y [w i e t l a n i a t e k s t u a z m i e n i a j e d y n i e i l o [ w i e r s z y n a 4 3 l u b 5 0 .
J e [l i w m o m e n c i e u r u c h a m i a n i a p r o g r a m u , t w ó j m o n i t o r p r a c u j e j u | w t r y b i e 4 3 - l u b 5 0 -
w i e r s z o w y m , t r y b t e n z o s t a n i e z a c h o w a n y p r z e z " C R T c o d e " , a z m i e n n a p r z e c h o w u j c a
n a j w i k s z d o z w o l o n l i c z b w i e r s z y n a e k r a n i e ( W i n d M a x ) z o s t a n i e z a i n i c j a l i z o w a n a
p o p r a w n i e .
O t o j a k w p r o g r a m i e w y k o r z y s t a p r o c e d u r T e x t M o d e , b y p r z y w r ó c i t r y b w y [w i e t l a n i a d o
j e g o p o c z t k o w e g o s t a n u :
P R O G R A M V i d e o ;
u s e s C r t ;
v a r O r i g M o d e : I n t e g e r ;
B E G I N
O r i g M o d e : = L a s t M o d e ; _ { Z a p a m i t u j e p o c z t k o w y t r y b }
. . .
T e x t M o d e ( O r i g M o d e ) ;
E N D .
p r z y k Ba d
W h e r e X ( f u n k c j a ) - u n i t C R T i W i n C R T ^
Z w r a c a w s p ó Br z d n X p o Bo |e n i a k u r s o r a .
D e k l a r a c j a :
W h e r e X : B y t e
Z w r a c a n a w a r t o [:
J e d n a w s p ó Br z d n a o d p o w i a d a j c a p o z y c j i X k u r s o r a + 1
p r z y k Ba d
W h e r e Y ( f u n k c j a ) - u n i t C R T i W i n C R T ^
Z w r a c a w s p ó Br z d n Y p o Bo |e n i a k u r s o r a .
D e k l a r a c j a :
W h e r e X : B y t e
Z w r a c a n a w a r t o [:
J e d n a w s p ó Br z d n a o d p o w i a d a j c a p o z y c j i X k u r s o r a + 1
Z o b a c z r ó w n i e |:
G o t o X Y
W h e r e X
p r z y k Ba d
W i n d o w ( p r o c e d u r a ) - u n i t C R T ^
T w o r z y n a e k r a n i e o k n o w t r y b i e t e k s t o w y m .
D e k l a r a c j a :
W i n d o w ( X 1 , Y 1 , X 2 , Y 2 : B y t e ) ;
X 1 i X 2 s w s p ó Br z d n y m i l e w e g o g ó r n e g o r o g u n o w e g o o k n a , a X 2 i Y 2 t o w s p ó Br z d n e
p r a w e g o d o l n e g o r o g u . L e w y g ó r n y r ó g n o w e g o o k n a m a w s p ó Br z d n e ( 1 , 1 ) . N a j m n i e j s z e
m o |l i w e o k n o m o |e m i e w y m i a r y 1 k o l u m n a - 1 w i e r s z . J e [l i p o d a n e w s p ó Br z d n e s w j a k i [
s p o s ó b b Bd n e , o d w o Ba n i e d o p r o c e d u r y W i n d o w B d z i e p o m i n i t e .
D o m y [l n i e o k n o m a w y m i a r y ( 1 , 1 , 8 0 , 2 5 ) d l a t r y b u 2 5 - w i e r s z o w e g o i ( 1 , 1 , 8 0 , 4 3 ) d l a t r y b u
4 3 - w i e r s z o w e g o , c o o d p o w i a d a w i e l k o [c i c a Be g o e k r a n u .
W s z y s t k i e w s p ó Br z d n e e k r a n u ( p o z a w s p ó Br z d n y m i t w o r z c y m i o k n o ) s z a l e |n e o d
a k t y w n e g o o k n a . N a p r z y k Ba d , G o t o X Y z a w s z e u m i e [c i k u r s o r z l e w y m g ó r n y m r o g u
a k t y w n e g o o k n a .
W i e l e p r o c e d u r z u n i t C R T j e s t z a l e |n y c h o d a k t y w n e g o o k n a , w Bc z a j c w t o C l r E o l , C l r S c r ,
D e l L i n e , G o t o X Y , I n s L i n e , W h e r e X , W h e r e Y , R e a d , R e a d L n , W r i t e , W r i t e L n .
Z m i e n n e W i n d M i n i W i n d M a x p r z e c h o w u j a t r y b u t y o b e c n e g o o k n a . P o w y w o Ba n i u
p r o c e d u r y W i n d o w k u r s o r u m i e s z c z a n y j e s t z a w s z e w p o z y c j i ( 1 , 1 ) .
Z o b a c z t a k |e :
C l r E o l
C l r S c r
D e l L i n e
G o t o X Y
W h e r e X
W h e r e Y
p r z y k Ba d
C h e c k B e r e a k ( z m i e n n a ) - u n i t C r t i W i n C r t ^
S p r a w d z a z a k o Dc z e n i e p r o g r a m u p r z e z u |y t k o w n i k a p r z y p o m o c y o k n a C R T ( ? ) .
C h e c k B r e a k : B o o l e a n = T r u e ;
K i e d y C h e c k B r e a k p r z y j m u j e w a r t o [ P R A W D A ( t r u e ) , u |y t k o w n i k m o |e z a k o Dc z y
a p l i k a c j w d o w o l n y m m o m e n c i e : w y b i e r a j c o p c j z a m k n i j w m e n u p r o g r a m u d w u k r o t n i e
k l i k a j c n a i k o n i e z a m k n i j n a c i s k a j c A l t - F 4 n a c i s k a j c C t r l - B r e a k
U |y t k o w n i k m o |e r ó w n i e | n a c i s n C t r l - C l u b C t r l - B r e a k w d o w o l n y m m o m e n c i e , b y
z a t r z y m a d z i a Ba n i e a p l i k a c j i i p o w r ó c i d o o k n a C R T ( ? ) .
W s z y s t k i e t e m o |l i w o [c i s w y Bc z o n e g d y C h e c k B r e a k m a w a r t o [ F A AS Z ( f a l s e ) .
P r z y u r u c h a m i a n i u C R T p r z e c h o w u j e p o p r z e d n i w a r t o [ C h e c k B r e a k w w e k t o r z e
p r z e r w a n i a $ 1 B w g l o b a l n y m w s k a zn i k u z w a n y m S a v e I n t 1 B .
C h e c k E O F ( z m i e n n a ) - u n i t C r t i W i n C r t ^
S p r a w d z a p o z y c j z n a c z n i k a k o Dc a p l i k u .
C h e c k E O F : B o o l e a n = F a l s e ;
J e [l i C h e c k E O F m a w a r t o [ P R W A D A ( t r u e ) , t o g d y u |y t k o w n i k z a m k n i e p l i k w y [w i e t l a n y
n a e k r a n i e k o m b i n a c j k l a w i s z y C t r l - Z , z o s t a n i e w y g e n e r o w a n y z n a c z n i k k o Dc a p l i k u .
K i e d y C h e c k E O F m a w a r t o [ F A AS Z ( f a l s e ) , n a c i [n i c i e C t r l - Z n i e p r z y n i e s i e r e z u l t a t u .
C h e c k E O F d o m y [l n i e m a w a r t o [ F A AS Z ( f a l s e ) .
C h e c k S n o w ( z m i e n n a ) - u n i t C r t ^
W Bc z a i w y Bc z a S n o w - C h e c k i n g g d y z n a k i p r z e c h o w y w a n e s b e z p o [r e d n i o w p a m i c i
w i d e o .
G d y w y b r a n o k o l o r o w y t r y b w y [w i e t l a n i a t e k s t u , C h e c k S n o w m a w a r t o [ P R A W D A ( t r u e ) , a
b e z p o [r e d n i e z a p i s y z p a m i c i w i d e o b d p o j a w i a s i j e d y n i e w t r a k c i e p o z i o m e g o
o d [w i e |a n i a .
J e [l i p r o g r a m d z i a Ba n a n o w s z y c h k a r t a c h C G A , m o |n a u s t a w i C h e c k S n o w n a F A AS Z ( f a l s e )
j u | w t r a k c i e u r u c h a m i a n i a p r o g r a m u , p o k a |d y m o d w o Ba n i u s i d o p r o c e d u r y T e x t M o d e .
W y Bc z y t o S n o w - C h e c k i n g p o w o d u j c w i d o c z n e p r z y s p i e s z e n i e d z i a Ba n i a p r o g r a m u .
C h e c k S n o w n i e d z i a Ba , g d y z m i e n n a D i r e c t V i d e o j e s t u s t a w i o n a j a k o F A AS Z ( f a l s e ) .
D i r e c t V i d e o ( z m i e n n a ) - u n i t C r t ^
W Bc z a i w y Bc z a b e z p o [r e d n i d o s t p d o p a m i c i d l a p o l e c e D W r i t e i W r i t e L n .
G d y D i r e c t V i d e o m a w a r t o [ P R A W D A ( t r u e ) , z n a k i w y [w i e t l a n e p r z y p o m o c y p o l e c e D
W r i t e i W r i t e L n s p r z e c h o w y w a n e w p a m i c i w i d e o i s t a m t d p r z e k a z y w a n e n a e k r a n ,
z a m i a s t u |y w a n i a d o t e g o c e l u p o l e c e D B I O S .
G d y D i r e c t V i d e o m a w a r t o [ F A AS Z ( f a l s e ) , w s z y s t k i e z n a k i w y [w i e t l a n e s p r z y p o m o c y
o d w o Ba D d o B I O S ' u , c o z n a c z n i e z w a l n i a s z y b k o [ p r o c e s u .
D o m y [l n i e D i r e c t V i d e o m a w a r t o [ P R A W D A ( t r u e ) .
J e [l i c h c e s z b y w y [w i e t l a n i e z n a k ó w p r z e b i e g a Bo p r z y p o m o c y o d w o Ba D d o B I O S ' u , u s t a w
w a r t o [ D i r e c t V i d e o n a F A AS Z ( f a l s e ) n a p o c z t k u p r o g r a m u i p o k a |d o r a z o w y m w y w o Ba n i u
p r o c e d u r y T e x t M o d e .
L a s t M o d e ( z m i e n n a ) - u n i t C r t ^
Z a k a |d y m r a z e m g d y w y w o By w a n a j e s t p r o c e d u r a T e x t M o d e , o b e c n e a t r y b u t y w y [w i e t l a n i a
p r z e c h o w y w a n e s w z m i e n n e j L a s t M o d e
Z m i e n n a L a s t M o d e j e s t i n i c j a l i z o w a n a p r z y r o z p o c z c i u p r o g r a m u .
T e x t A t t r ( z m i e n n a ) - u n i t C r t ^
P r z e c h o w u j e a k t u a l n i e w y b r a n e a t r y b u t y w y [w i e t l a n i a t e k s t u .
A t r y b u t y w y [w i e t l a n i a t e k s t u u s t a w i a s i p o p r z e z p r o c e d u r y T e x t C o l o r i T e x t B a c k g r o u n d
A t r y b u t y t e m o |n a j e d n a k z m i e n i a o d w o Bu j c s i b e z p o [r e d n i o d o z m i e n n e j T e x t A t t r .
W i n d M a x i W i n d M i n ( z m i e n n e ) - u n i t C r t ^
P r z e c h o w u j w s p ó Br z d n e a k t y w n e g o o k n a .
Z m i e n n e t e u s t a w i a n e s p r z e z p r o c e d u r W i n d o w
W i n d M i n o k r e [l a l e w y g ó r n y r ó g o k n a , W i n d M a x o k r e [l a l e w y d o l n y r ó g o k n a .
W s p ó Br z d n a X p r z e c h o w y w a n a j e s t w m Bo d s z y m b a j c i e , Y w s t a r s z y m .
N a p r z y k Ba d f u n k c j a L o ( W i n d M i n ) z w r a c a w s p ó Br z d n X l e w e j k r a w d z i , a f u n k c j a
H i ( W i n d M a x ) z w r a c a w s p ó Br z d n Y d o l n e j k r a w d z i .
L e w y g ó r n y r ó g e k r a n u m a w s p ó Br z d n e ( 0 , 0 ) .
U w a g a :
W p r z y p a d k u p r o c e d u r y G o t o X Y l e w y g ó r n y r ó g m a w s p ó Br z d n e ( 1 , 1 ) .
p o m o c T u r b o P a s c a l ' a