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

[ZEman]

писал небольшую программку и столкнулся с маленькой проблемой.
во вложении программа, там задаётся имя блока для сохранения на ленту.
вопрос в том что я не могу придумать (понять) как удалить символы (по одному) из имени блока по нажатии клавиши delete (caps shift + 0).
кто может помочь ?

[Reobne]

if length=0 then goto 30
let length=length-1
n$=n$(TO length)
goto 60

и, там где печать имени, добавить пробельчик в конце;" "
чтобы стиралось старьё.
Должно сработать.

[ZEman]

спасибо.
даже и не додумаешься.
и откуда только берётся такое типа "n$=n$(TO length)".

[Eltaron]

спасибо.
даже и не додумаешься.
и откуда только берётся такое типа "n$=n$(TO length)".

Это краткая форма от n$(1 TO length). Нормальный такой синтаксис взятия подстроки.

[null_device]

ZEman, я бы не использовала многобуквенные переменные. Толку от них мало, а памяти они жрут много. К тому же, весьма утомительно набирать их и велика вероятность допустить ошибку при наборе имени.
Ноль, в десятичных числах, перед запятой - можно опускать.
Более оптимально использовать несколько иной способ опроса клавиш.
Автоматическое сохранение по достижению 9 символов - не самое удачное решение. Лучше, по клавише ENTER.
...
Если еще немного подумать, можно в целом оформить процедуру куда оптимальней. Сейчас строки, расположены как-то уж слишком сумбурно, куча ненужных переходов туда-сюда.

[ZEman]

Толку от них мало, а памяти они жрут много. К тому же, весьма утомительно набирать их и велика вероятность допустить ошибку при наборе имени.

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

Более оптимально использовать несколько иной способ опроса клавиш.

я несклько способов знаю:
1.
let a$=inkeys$
if a$=....
2.if inkeys$=....
3.code inkeys$....

пользуюсь каким удобней просто.

Автоматическое сохранение по достижению 9 символов - не самое удачное решение. Лучше, по клавише ENTER.

так там и так при достижении 10 символов происходит сохранение (больше 10 символов в имени нельзя ведь).

кстати заметил весьма забавную вещь можно нажимать shift + "символ", caps shift + "символ" при этом в имя будут добавляться команды, а при сейве получится длииииинное имя, но бейсик как ни странно не ругается при этом.

я бы не использовала

это ошибка или...

[Advertiser]

[Black Cat / Era CG]

при этом в имя будут добавляться команды, а при сейве получится длииииинное имя, но бейсик как ни странно не ругается при этом.

Потому что токен, это 1 символ (байт). Так можно.

[ZEman]

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

[null_device]

это ошибка

Ошибка - ошибка.

заметил весьма забавную вещь можно нажимать shift + "символ", caps shift + "символ" при этом в имя будут добавляться команды

В заголовок, можно добавлять не только команды но и управляющие коды, которые могут печатать имя файла в произвольном месте экрана и определенным цветом (правда, сильно не развернешься - сказывается ограничение количесва символов имени файла). Во времена своего кассетного детства на спектруме, эти "хитрушки" мне частенько встречались.

я несклько способов знаю

Если нужен именно код нажатой клавиши, вы проделываете пустую работу - в каждом операторе проверки, добавляете CODE. Да, символьная переменная занимает меньше места, но вся эта эквилибристика с конвертацией туда-сюда весьма утомительна. Вдобавок, еще мне кажется это сказывается на быстродействии программы.
Существует еще вариант с опросом переменной LAST_KEY. По крайней мере я им давно пользуюсь.

[ZEman]

подскажите пожалуйста POKE с помощью которых курсор переводится в EXTEND MODE и POKE для перевода курсора в GRAPH MODE.
а также возвращения его назад в обычное состояние.