Попытка написания чего-то типа MSX-DOS на языке MSX-BASIC

[Baton]

Камраду Baton`у: чрезвычайно рад за вас. Вижу, что у вас был отличный информатик, но отвратительные педагоги по социальному воспитанию и этике.
У меня сейчас 10-летний парнишка уже бойко рисует картинки с помощью операторов, вот закрепит материал, и будем спрайты изучать.

Рад за вашего парнишку ;-)

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

Но спасибо, что представили ваше творение на обозрение. Стали понятны некоторые ваши высказывания в иных ветках.
И нет, я не против энтузиастов ;-)

ЗЫ. Ниже простенький скриптик, который я, можно сказать, впервые "накодил" за последние 25 лет на языке, который видел в первый раз в жизни. Просто чтобы видно, что я не профи ни разу.

/ip dhcp-server lease
:local clientid [get [find address=$leaseActIP] host-name]
:if ($clientid = "android-3c99815b83973bc5") do={
/interface wireless access-list set [find comment="Kitchen1"] mac-address=$leaseActMAC
remove [find address=$leaseActIP]
log info "--- Kitchen1 detected!"
}

:if ([: pick $leaseActMAC 0 8] = "00:08:22") do={
/interface wireless access-list set [find comment="Kitchen2"] mac-address=$leaseActMAC
remove [find address=$leaseActIP]
log info "--- Kitchen2 detected!"
}