Способов много. Кому как удобнее
UNDEFINE($friends)
ARRPUSH($friends, "1889,33,1899,60,Вася Пупкин")
ARRPUSH($friends, "1889,33,1898,61,Владимир Ленин")
ARRPUSH($friends, "1889,33,1899,53,Лёня Голубков")
ARRPUSH($friends, "1889,30,1899,55,Вова Путин")
ARRPUSH($friends, "1889,34,1899,62,Эрнесто Че Гевара")
FOR($fr = 0, $fr < ARRSIZE($friends))
    UNDEFINE($friend)
    STRSEPARATE($friends[$fr], ",", $friend)
    GETSCREEN
    IF(PXL($friend[0],$friend[1]) = 16777215)
        IF(PXL($friend[2],$friend[3]) = 16777215)
            LOGWRITE("--- ", $friend[4], " ---")
            LOGWRITE("точки: ", $friend[0], "/", $friend[1], "  ", $friend[2], "/", $friend[3])
            BEEP(800,200)
            WAITMS(100)
        ELSE
        END_IF
    END_IF
END_CYC
HALT