Бейсик-помощь

[Alex Rider]

ZEman, есть предложение: все сообщения начиная с некоторого твоего поста-анонса переносим в новую тему "rararura - <описание продукта>". Получаем тред продукта. Пост этот первый оформляешь как типичный анонс продукта: описание, история изменений, вложения с версиями. Чтобы легко было найти и скачать. А первые сообщения - они действительно по вопросам в бейсике, пусть так и остаются темой для вопросов и ответов.

[ZEman]

я не против, переноси.
название темы пусть будет "Rararura - udg editor+."

[Alex Rider]

я не против, переноси.

А начиная с которого сообщения переносить все в новую тему? Подскажи плиз.

[ZEman]

началась эта программа с этого сообщения
http://zx-pk.ru/threads/26828-bejsik...l=1#post880896

[ZEman]

подскажите пожалуйста.
как перевести экранный адрес в координату X, Y ?
то-есть например у меня Poke 22528,71 (чёрный квадрат в 0,0)
как это перевести в X=0, Y=0
Poke может быть любым от 22528 до 23232.

[Shiny]

атрибуты?

poke 22528+x+y*32, значение

[Black Cat / Era CG]

Вычтите из адреса 22528. Поделите на 32. Целая часть - Y, остаток - Х. Это ж атрибуты, они линейные.

- - - Добавлено - - -

Let Y=Int((Addr-22528)/32)
Let X=(Addr-22528)-Y*32

- - - Добавлено - - -

Чета я походу не понял, что было нужно)))

[ZEman]

Black Cat / Era CG, спасибо большое.
я раньше переводил из координат X Y в значение адреса.
а вот наоборот когда понадобилось тут я завис.

[char]

а чтобы было "ваще", - надо завести два массива (или даже две строковых), по 768 байт, забить их готовыми значениями и по смещению из экрана получать из этих массивов готовые x и y
мы не ищщем легких путёв, деления - в топку! )))

a=addr-22527
x=code x$(a)
y=code y$(a)

[ZEman]

под массивы нужно место, а у меня его как раз очень мало.
поэтому приходится всячески изворачиваться.
потихоньку делаю новую версию (1.9.3) Rararura - добавил туда три новинки, и..
но готова она будет ещё не скоро.