FOR　A=0　TO　25 　READ　A$ 　FOR　B=0　TO　50 　　B$=MID$(B,A$,1) 　　IF　B$==""　THEN　BGPUT　1,A,B 　NEXT NEXT