1. Размер массива map для карты неверен (должен быть 16х12 клеток, если на весь экран, т.к. каждая клетка 2х2 знакоместа).
2. В процедуре MapSet два последних параметра должны быть 16,12 - столько клеток карты умещается на весь экран.
3. Формат спрайтов карты неверный, см. в мануале.
4. Данные карты почему-то перевернуты на бок. Должно быть 12 строк по 16 байт.
5. Процедура MapPut должна быть с 1,1, а не 0,0. Указываются координаты (индексы) клетки в массиве. А индексов 0,0 не бывает.
Ответить с цитированием