Die Frabe ist ja schrecklich zu lesen :P

Mid liefert als Ergebnis ein String. Wenn Alle() Byte ist, passt das nicht.
Aber die Lösung hast du ja gefunden.
=asc(mid(....)) geht mit Bascom nicht. Jeder Schritt benötigt eine Zeile.
A = 5 * B + 1 geht z.B. auch nicht.
A = 5 * B : A = A + 1 würde gehen. Der : leitet einen neuen Befehl ein.
Ist leider etwas aufwendiger, aber nicht zu ändern. In Assembler wäre es ja auch nicht möglich gewesen

EDIT: Tja, da hab ich ne Minute zu langsam geschrieben