FoxPro/Visual FoxPro - ESCRIBIR EN UNA MISMA LINEA VARIAS SENTENCIAS

Hola me gustaría saber si en Visual FoxPro se puede escribir varias variables o sentencias en una misma linea por ejemplo.

a='1'
b='2'
c='3'
d='4'

Poder ponerlo en una misma línea de alguna manera:

a='1', b='2', c='3', d='4', . . . . . . . .

Esto es puede hacer como se hacia en Delphi o en Visual Basic?

Muchas gracias.

Usa esto..

a='S'
b='a'
c='u'
d='l'

x = "a+b+c+d"
?&x

x = a+b+c+d
?x

z = "browse"
&z

No me refiero a eso, el problema es que tengo que declarar un array y luego ponerle un valor inicial

dimension a(95,4)

despues de declararlo tengo que rellenarlo y eso me ocuparía unas 300 líneas de código solo para introducri un valor, por ejemplo

a(1,1)='samuel'
a(1,2)='pablo'
a(1,3)='juan'
a(1,4)='pedro'
a(2,1)='sonia'
a(2,2)='bea'
a(2,3)='noelia'
a(2,4)='julio'
a(3,1)='andres'
a(3,2)='maria'
a(3,3)='sofia'
a(3,4)='marta'
a(4,1)='joaquin'
. . . .
. . . .
. . . .

y así hasta completar las 95 filas del array, como podrásn comprobar esto lo tendría que hacer en 300 líneas de código, y mi pregunta es si esto mismo lo puedo hacer por ejemplo de la siguiente forma.

a(1,1)='samuel', a(1,2)='pablo', a(1,3)='juan', a(1,4)='pedro', a(2,1)='sonia'
a(2,2)='bea', a(2,3)='noelia', a(2,4)='julio', a(3,1)='andres', a(3,2)='maria'
a(3,3)='sofia', a(3,4)='marta', a(4,1)='joaquin'

No se si me explico, envez de 300 líneas por ejemplo reducirlo a 150, no se si en una misma línea se podrá poner varias sentencias separadas de alguna forma o con dos puntos, punto y coma, coma, etc...

Se que en Delphi y Visual Bsic eso se puede hacer, y en Visual FoxPro se puede?

Gracias.

Pues esplicate bien que quieres..
Hay te va el ejemplo del array no se si eso te sirva

* Visual FoxPro code
DIMENSION aMyArray [10] AS Long
lo.FillIntArray(@aMyArray, 100) && Passing to Visual Basic COM Server

' Add following Visual Basic code to .CLS file and compile
' to COM component
Public Sub FillIntArray(ByRef aInts() As Long, iCount As Long)
ReDim aInts(1 to 100)
Dim ii As Interger
For ii = 1 to 100
AInts(ii) = ii
Next
End Sub