Reading DATA

[baltasarq]

Lo siento si esto ha sido preguntado antes, pero no lo he encontrado.

Dado un proc como este:

Code:

const NumLocs as ubyte = 2

'enum Exits
    const ExitNorth as ubyte = 0
    const ExitSouth as ubyte = 1
    const ExitEast as ubyte = 2
    const ExitWest as ubyte = 3
    const ExitUp as ubyte = 4
    const ExitDown as ubyte = 5
    const NumExits as ubyte = 6
'end enum

dim locDescs(NumLocs) as string
dim locExits(NumLocs, NumExits) as integer


sub init_locs()
    'locDescs( 0 ) = "El lugar del alunizaje. La vaina abierta y sin  " _
    '   + "contenido parece una triste parodia de ella misma. " _
    '   + "Un valle natural conduce al sur."
    'locDescs( 1 ) = "El lugar del alunizaje. La vaina abierta y sin  " _
    '   + "contenido parece una triste parodia de ella misma. " _
    '   + "Un valle natural conduce al sur."
   
    restore LocData
   
    for i = 0 to NumLocs - 1
        print "numloc i:", i
       
        ' Read the desc
        read locDescs( i )
        print "read numloc i: "; i; locDescs( i )
               
        ' Read the exits
        for j = 0 to NumExits - 1
            print "numloc i:"; i; " exit "; j
            read locExits(i, j)
            print "numloc i:"; i; " exit "; j; " = "; locExits(i, j)
            input a
        next
    next
   
    return
                     
    LocData:
    ' Loc 0 - Landing
    data "El lugar del alunizaje. La vaina abierta y sin  " _
      + "contenido parece una triste parodia de ella misma. " _
      + "Un valle natural conduce al sur."
    data -1, 1, -1, -1, -1, -1
   
    ' Loc 1 - Valley
    data "El lugar del alunizaje. La vaina abierta y sin  " _
      + "contenido parece una triste parodia de ella misma. " _
      + "Un valle natural conduce al sur."
    data 0, -1, -1, -1, -1, -1
end sub

El problema es el siguiente. Si descomento las primeras líneas y comento la línea

Code:

read locDescs( i )

y los data correspondientes, el programa parece que funciona. Pero si dejo el programa tal y como está, solo lee porquería en la posición i del vector locDescs, y el Speccy se reinicia. ¿No se pueden leer cadenas con READ? Según los docs, entiendo que sí...