LINE INPUT "File name> ", Filename$
OPEN Filename$ FOR INPUT AS #1 LEN = 2
DO
INPUT #1, Ch$
        FOR C = 1 TO LEN(Ch$)
        O$ = MID$(Ch$, C, 1)
        RANDOMIZE TIMER
        LOCATE FIX(RND * 24) + 1, FIX(RND * 80) + 1
        PRINT O$;
        NEXT
LOOP