; Structure String
; Exemple de manipulation

a$ = "Coucou"
*pointeur =@a$
*ptr.STRING = @*pointeur
Debug *ptr\s


DefType.String a

a\s = "Coucou!"

*p.String = @a

Debug *p\s

Structure Strings
  s.s[0]
EndStructure

Dim s.s(5)

For i = 0 To 5
  s(i) = Str( Random(1000) )
  Debug s(i)
Next i

Debug ""

*s.Strings = s()

For i = 0 To 5
  Debug *s\s[i]
Next i