El código está adaptado (ya que hay millones de varianes de Basic) a Blassic, un intérprete de BASIC que reclama compatibilidad con el mayor número de BASIC's posibles.
Entonces, comenté que podía servir para aquellos interesados en crear aventuras en BASIC para el Speccy, puesto que crea los DATA's con las conexiones entre localidades, las localidades y los objetos.
Grendel preguntó ... ¿podemos hacerlo? ... me dejó un poco descolocado, pero dije que sí, claro. Tenía instalado el BASIn, así que ¿por qué no intentarlo?
Generamos el código con Inferno, lo copiamos y lo pegamos en BASIn, y nos dió un error. Se trata de un error chorras, ya que genera dos líneas con el mismo número de línea: así que modificamos el número de línea y ya está.
La aventura se ejecutó, aparte de este problemilla (que estará arreglado en la siguiente versión de txtMap), sin ningún problema, excepto por un pequeño detalle: sólo se mostraba la primera letra de la descripción de cada localidad.
Esto es un problema de Blassic, que emula mejor el Microsoft Basic, digámoslo así, que el Sinclair Basic. Así, en Blassic, para crear un vector de MaxLocalidades, txtMap genera el siguiente código, compatible con Blassic:
6000 LET MaxLocalidades = 2: Dim H$(MaxLocalidades)
... para después cargar las descripciones de los DATA's .
Para el Sinclair BASIC, en realidad, es necesario hacer lo siguiente:
6000 LET MaxLocalidades = 2: Dim H$(MaxLocalidades, 255)
Curiosamente, en Sinclair BASIC es necesario hacer una tabla de caracteres, y no un vector de cadenas, cuando cada cadena individual no tiene límite de caracteres. Una curiosa decisión.
Por supuesto, esta segunda forma no es compatible con Blassic, que trataría de generar una tabla de cadenas, que no es lo que se persigue.
Una vez hecho esto, el código se ejecutó correctamente en BASIn, sin ningún problema.
Aquel que quiera hacer aventuras en Basic, pues ya sabe ... :-D