cp$ = Sess0.Screen.GetString(8, 17, 5)
nom = Split(Sess0.Screen.GetString(4, 1, 27), ",")
apellido = Split(nom(0), " ")
Sess0.Screen.PutString " ", 3, 6
Sess0.Screen.PutString apellido(0), 3, 6
Sess0.Screen.PutString " ", 3, 28
Sess0.Screen.PutString apellido(1), 3, 28
Sess0.Screen.PutString " ", 3, 52
Sess0.Screen.PutString nombre(0), 3, 52
Sess0.Screen.PutString " ", 3, 61
Sess0.Screen.PutString nombre(1), 3, 62