Способов много. Кому как удобнее
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