dim com(2)
dim esp(10)
cuentacom = 0
cuentaesp = 0

10 input "introduce tu nombre y apellidos (separados por comas) "; nombre$
20 longi = len(nombre$)

for buc = 1 to longi
   letra$ = mid$(nombre$,buc,1)
   if letra$ = " " then 
      cuentaesp = cuentaesp + 1
      esp(cuentaesp) = buc
   end if
   if letra$ = "," then 
      cuentacom = cuentacom + 1
      com(cuentacom) = buc
   end if
next buc

print
30 print "Nombre :     "; mid$(nombre$,1,com(1)-1)
40 print "Apellido 1 : "; mid$(nombre$,com(1)+1,com(2)-com(1)-1)
50 print "Apellido 2 : "; mid$(nombre$,com(2)+1,longi-com(2))
print
60 print "Iniciales :  "; mid$(nombre$,1,1);mid$(nombre$,com(1)+1,1);mid$(nombre$,com(2)+1,1)
print
70 print "Compuestos:"

for buc = 1 to 10
if esp(buc) > 0 then
   if esp(buc)<com(1) then
      print "   Nombre :     "; mid$(nombre$,1,com(1)-1)
   elseif esp(buc)<com(2) then
      print "   Apellido 1 : "; mid$(nombre$,com(1)+1,com(2)-com(1)-1)
   else
      print "   Apellido 2 : "; mid$(nombre$,com(2)+1,longi-com(2))
   end if
end if
next buc

100 IF INKEY$="" THEN GOTO 100