Как узнать координаты нужной точки рисунка?

DIM mas AS STRING * 640
 fr% = FREEFILE
 CLS: PRINT fr%
OPEN "TEST.BMP" FOR BINARY AS #fr%
 FOR i% = 1 TO 485
 PUT #fr%, , mas
 NEXT
CLOSE #fr%

DECLARE SUB MakeBmp (NameBmp$)
DIM SHARED PixLine AS STRING * 640
SCREEN 12
LINE (0, 0)-(639, 479), 12  ' Рисуем линию поперек экрана
  MakeBmp "Line"    ' Снимаем скриншот
END
 
'    Заголовок *.BMP*
zag: DATA 66,77,54,254,0,0,0,0,0,0,54,4,0,0,40,0,0
' 18 позиция: размер по оси X 128 - мл. байт  2 - старший
' 22 позиция: размер по оси Y 224 - мл. байт  1 - старший
  ' 2 * 256 + 128 = 640
  ' 1 * 256 + 224 = 480
  '   |  X  |   |  Y  |
DATA 0,128,2,0,0,224,1,0,0,1,0,8,0,0,0,0,0,0
DATA 250,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
 
SUB MakeBmp (NameBmp$)
DIM offs&, sv%, ln%(161)
'    Создаем *.BMP*
 sv% = FREEFILE   'Своб. номер в таблице файлов
 ' Откроем бинарный файл
 OPEN NameBmp$ + ".Bmp" FOR BINARY AS #sv%
    RESTORE zag  ' Установим позицию чтения для READ
    ' В цикле пишем заголовок
    ' За позицию в файле отвечает переменная byte&
    FOR byte& = 1 TO 54
     READ Zglv%: PUT #sv%, byte&, Zglv%
    NEXT byte&: byte& = 55
      ' Сохраним палитру предварительно "вытаскивая"
      ' каждый цвет из портов VGA
    FOR ii% = 0 TO 255
       ' Делаем только для 16-ти цветов(т.е. 0-15)
       IF ii% < 16 THEN
        ' Берём цвет из порта VGA
        OUT &H3C7, ii%  ' Записываем в порт номер цвета
              ' Читаем из порта RGB(пределы зн. 0-63)
              ' поэтому умножаем на 4 поскольку в BMP
              ' принято хранить яркость каждой
              ' компоненты в 8 битных ячейках.
        R% = INP(&H3C9) * 4: G% = INP(&H3C9) * 4: B% = INP(&H3C9) * 4
       ELSE
        ' Все остальные цвета в палитре "чёрные"
        R% = 0: G% = 0: B% = 0
       END IF
      ' Конвертируем в INTEGER
      bt1% = CVI(CHR$(B%) + CHR$(G%)): bt2% = CVI(CHR$(R%) + "╣")
      ' Записываем цвет
      PUT #sv%, byte&, bt1%: PUT #sv%, byte& + 2, bt2%
      ' Инкрементируем значение адреса
      ' в файле на 4 байта вперёд
      byte& = byte& + 4
    NEXT ii%
        ' Адрес строки пикселей
        DEF SEG = VARSEG(PixLine)  'Сегмент строки пикселей
        offs& = VARPTR(PixLine)    'Cмещение строки пикселей
    SEEK #sv%, byte&    'Ставим позицию точно на начало изображения
     'Сохраним то место где будет статус линия
     GET (0, 479)-(639, 479), ln%
 
      ' Теперь запишем строки снизу вверх
      FOR y% = 479 TO 0 STEP -1
        ' Читаем индекс цвета точки с экрана
        ' в строку пикселей(которая в памяти)
        FOR x& = 0 TO 639
        cve% = POINT(x&, y%)
        POKE offs& + x&, cve%
        NEXT x&
        ' Пишем в файл по целой строке
        PUT #sv%, , PixLine
        LINE (0, 479)-((479 - y%) * 1.33, 479), 10  'Статус
      NEXT y%
        DEF SEG    'Вернем сегмент на место
      'Восстановим то место где была статус линия
      PUT (0, 479), ln%, PSET
 ' Закроем файл
 CLOSE #sv%
END SUB

DIM rec AS INTEGER
 fr% = FREEFILE
OPEN "TESTB.BMP" FOR BINARY AS #fr%
 '  Пишем 310 Кб
 FOR i& = 1 TO 317440
 PUT #fr%, i&, rec
 NEXT
CLOSE fr%

' INCLUDE: 'grid.bas'
дальше текст нужной программы

CLS
SCREEN 12

DEF FnSaveBMP (Name$)
 . . .
END DEF