5 'Программу составил Беленький Г. (IX класс)
10 SCREEN 7                             :' Возможны SCREEN 5╤SCREEN 8
20 LINE (254,0)-(254,121),15            :' Граница для поиска
30 VDP(32+1)=0: VDP(33+1)=0             :' X-координата начальн. точки
40 VDP(34+1)=0: VDP(34+1)=0             :' Y-координата начальн. точки
50 VDP(44+1)=15                         :' Ищем  б е л у ю  точку
60 VDP(45+1)=&B00000000                 :'
70 '             
V 
V
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:' Выполнение закончится,когда
71 '             
V 
V                    :' будет  найдена  белая точка
80 '             
V 
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:' Ищем направо от нач. точки
90 '             
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:' Ищем во VRAM
100 VDP(46+1)=&B01100000                :' Выполнение команды SRCH
110 VDP(15+1)=2:A=INP(&H99):VDP(15+1)=0 :' Читаем регистр ст.2; ░
W
Y
120 CE=(A AND &B00000001)               :' Выделяем бит CE        
V
130 IF CE=1 THEN 110                    :' Если он равен 1, то 
W
W
W
[
140 BD=(A AND &B00010000)               :'   выделяем бит BD 
150 IF BD=0 THEN 190                    :' Если он равен 0, то 
W
W
W
W
Y
160 VDP(15+1)=8:A=INP(&H99):VDP(15+1)=0 :'   читаем регистр ст.8 и 
V
170 OPEN "GRP:" AS #1                   :'   печатаем X-координату,
V
180 PRESET(0,0):PRINT #1,A              :'   на которой найдена    
V
181 '                                   :'   белая точка           
V
190 A$=INPUT$(1)                        :' К о н е ц ░
W
W
W
W
W
W
W
W
W
W
W
W
W
[