' MemoTitles.ibas
{CREATORID "ReMT"}
{VERSION "1.0"}

BEGIN
E$=CHR$(10)
OPEN "MemoDB" FOR INPUT AS #1
N=LOF(#1)
FOR I=1 TO N
   A$=""
   INPUT #1, A$
   IF A$<>"" THEN
      L=LEN(A$) : B$="" : C=0
      FOR J=1 TO L
         C$=CHAR$(A$,J)
         IF C$=E$ LET C=1
         IF C=0 LET B$=B$+C$
      NEXT 
      PRINT B$
   ENDIF
NEXT
CLOSE #1
WAIT
END