Вид для печати
Не, ребята, не надо давать изначально плохих советов, ТС же учится только. И вряд ли забудет этот опыт навсегда.Цитата:
Сообщение от Destr
PS "Аналогичный" вариант с перенаправлением вывода в канал К на процедуру из одного ret предлагать тоже не надо, ибо при нажатии BREAK / SPACE будет ахтунг.
Ну раз так, то я только "ЗА".Цитата:
Сообщение от Alex Rider
Давайте сразу отговорим человека мучатся с бейсиком (на том уровне запросов как он уже достиг - пора ему на асм переползать, другой дороги на спеке нету, ну конечно если он не извращенец).
А как же иначе - если по обоим вопросам, вменяемых вариантов решения, средствами самого бейсика нет?!Цитата:
Сообщение от Destr
По-моему создать небольшой кодовый блок средствами бейсика (data/read/poke) при старте программы и использовать код - вполне элегантное решение. Это не затрудняет листинг программы (как в предложенном мной варианте) и не требует подгрузки дополнительных блоков. А учитывая что размер кодовых блоков - мизерный, то создание оных в памяти дело пары секунд.
- - - Добавлено - - -
Второй вариант, как предложил я - влепить всё в REM строку первую (нулевую) и вызывать оттуда.
Но тут есть одно НО - вызывать придется не напрямую указывая адрес (например - RANDOMIZE USR 23760) а относительно переменной PROG (не пинайте - не помню точного названия) - ведь могут быть инициализированы переменные TR-DOS или-что-то-там-ещё что отодвигает программу от адреса 23755, соответственно и код двигает. Но вызывать так - не особо удобно - RANDOMIZE USR 5+PEEK PROG+PEEK (PROG+1)*256
- - - Добавлено - - -
Ну и соответственно надо будет сделать так, чтобы процедуры в REM строке был релоцируемыми или же при первом обращении перекидывали куда-нить в память кусок кода и работали оттуда, что вообще извратом попахивает.
Можно так:Цитата:
Сообщение от Kalantaj
LET ADD=5+PEEK 253635+256*PEEK 23636 : LET ADD = USR ADD
Таким образом не "портится" оператор RND и на выходе в переменной будет лежать значение регистров BC (или, что там возвращает функция USR?).
Ну а если человек не хочет на асм переходить, то, думаю, можно помочь ему с реализацией первого или второго варианта. Ведь дело то несложное.
Вы вон развели треск ни о чем, а могли бы как я - взять и предложить хоть какое-то готовое решение. Пусть не самое универсальное, но было бы лучше ТС - чем прочитать фигзнаетсколькобукафф, не понять ничего и ничего не получить в результате понятных только программисту на асме советов.
Вроде ведь можно обозвать переменную как нибудь LET plot=PEEK PROG+PEEK (PROG+1)*256 и вызывать через неё (RANDOMIZE USR plot).Цитата:
Сообщение от Kalantaj
Или даже через FN (тогда можно и параметры прикрутить).
Вон как инфоркомовцы делали:http://zxpress.ru/book_articles.php?id=1539
(статья не шибко хорошо распознана, так что лучше скачать и читать саму книжку).
Kalantaj, тяжело советовать что-то не видя всей картины. Насколько я понял, ваяется, что-то наподобии графического редактора (точка на весь экран, сохранение его на ленту :) ).
Возможно есть вариант использовать какой-то иной метод для достижения того же результата. Более простой, но не очевидный ТС.
....
Пару лет назад откопал свои старые поделки конца 90-х, на бейсике. Долго "втыкал" в листинг, пытаясь понять как это работает. Ибо - выглядело это, как дичайший индусский "ковнокод". Со временем, все же вырабатывается "почерк" написания программ. И одна и та же задача, спустя время будет достигнута куда проще и "элегантней". ;)
Цитата:
Сообщение от ZEman
Я лично (если уж приспичило-бы именно на бейсике точки рисовать там где не положено) тупо делал бы POKE в нужный адрес экрана. Так-же как на асме. Даже с табличкой предпросчитаной (чтоб быстро было).Цитата:
Сообщение от null_device
Да что ж там картину видеть то?Цитата:
Сообщение от null_device
ТС приложил же снапшот - там строк - раз два и обчелся.