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

[Destr]

Не, ребята, не надо давать изначально плохих советов, ТС же учится только

Ну раз так, то я только "ЗА".
Давайте сразу отговорим человека мучатся с бейсиком (на том уровне запросов как он уже достиг - пора ему на асм переползать, другой дороги на спеке нету, ну конечно если он не извращенец).

[Advertiser]

[Destr]

Немного оффтоп, но навеяло: Световой карандаш - девайс описаный в "Периферия своими руками" например. На ЖК-экранах видимо работать не будет? Или есть варианты (конечно всякий блуд с миганием брихта на знакоместе не надо даже думать).
Помнится там тоже для теста была сверхмедленная прога на бейсике, которая тоже криво ставила точки (ну чем не QAOP, почти те-же муки)...
P.S. Всяким инженерам-железячникам на заметку: А слабо раздербанить старый (в смысле ненужный) телефон с датчиком позиции и забабахать приблуду которая карандаш.
Видится как стилус со своей батарейкой + некая НЁХ которая на дисплей надевается и считывает позицию стилуса относительно себя (т.е. прилепляется в левом-верхнем углу скажем) и данные гонит в комп (по любому порту, например принтеровскому. Да хоть мышкиному...)
Ну и прога которая ловит данные и ставит точки - делов-то...

[Kalantaj]

По-моему создать небольшой кодовый блок средствами бейсика (data/read/poke) при старте программы и использовать код - вполне элегантное решение. Это не затрудняет листинг программы (как в предложенном мной варианте) и не требует подгрузки дополнительных блоков. А учитывая что размер кодовых блоков - мизерный, то создание оных в памяти дело пары секунд.

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

Второй вариант, как предложил я - влепить всё в REM строку первую (нулевую) и вызывать оттуда.
Но тут есть одно НО - вызывать придется не напрямую указывая адрес (например - RANDOMIZE USR 23760) а относительно переменной PROG (не пинайте - не помню точного названия) - ведь могут быть инициализированы переменные TR-DOS или-что-то-там-ещё что отодвигает программу от адреса 23755, соответственно и код двигает. Но вызывать так - не особо удобно - RANDOMIZE USR 5+PEEK PROG+PEEK (PROG+1)*256

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

Ну и соответственно надо будет сделать так, чтобы процедуры в REM строке был релоцируемыми или же при первом обращении перекидывали куда-нить в память кусок кода и работали оттуда, что вообще извратом попахивает.

[null_device]

Но вызывать так - не особо удобно

Можно так:

LET ADD=5+PEEK 253635+256*PEEK 23636 : LET ADD = USR ADD

Таким образом не "портится" оператор RND и на выходе в переменной будет лежать значение регистров BC (или, что там возвращает функция USR?).

[Destr]

Но вызывать так - не особо удобно

Вроде ведь можно обозвать переменную как нибудь LET plot=PEEK PROG+PEEK (PROG+1)*256 и вызывать через неё (RANDOMIZE USR plot).
Или даже через FN (тогда можно и параметры прикрутить).
Вон как инфоркомовцы делали:http://zxpress.ru/book_articles.php?id=1539
(статья не шибко хорошо распознана, так что лучше скачать и читать саму книжку).

[ZEman]

возникла вот какая проблема, ломаю голову и не знаю как записать.
например у меня есть переменная записанная в двоичном виде.
скажем
LET A=01100110
вопрос а как теперь перевести это двоичное число в десятичное ?
то-есть я знаю что если написать Print BIN 01100110 то мне выдастся значение 102.
а как это записать в программе ?
хотел записать что-то типа LET B=BIN A - да фиг там, бейсик такого не даёт.

[Black Cat / Era CG]

Это не переменная записанная в двоичном виде, это обыкновенная переменная с десятичным числом 1100110. Надо было писать LET A=BIN 01100110

[ZEman]

оно понятно, но у меня значение не одно и то-же, оно может быть разным.

[Black Cat / Era CG]

Не понимаю, что у вас не получается.
Точнее, что именно вам требуется сделать.

[Alex Rider]

Если двоичное число записано как десятичное:

LET A=01100110

,
то надо сделать так:

LET B=VAL ("BIN " + STR$ A)

.

Если число записано как строка из ноликов и единичек (например, воодится пользователем в INPUT A$), то

LET B=VAL ("BIN " + A$)

Разумеется, BIN в кавычках - ключевое слово.