top: OPEN "c:\aquarius.txt" FOR INPUT AS 1 OPEN "c:\aqaurius.rom" FOR OUTPUT AS 2 CLS DO WHILE NOT EOF(1) LINE INPUT #1, x$ x$ = LTRIM$(RTRIM$(x$)) x$ = x$ + " " PRINT x$ o$ = "" FOR i = 1 TO LEN(x$) c$ = MID$(x$, i, 1) IF c$ <> " " THEN o$ = o$ + c$ ELSE PRINT #2, CHR$(VAL(o$)); o$ = "" END IF NEXT i LOOP