100 OPEN2,8,15:OPEN1,8,2,"#"
110 T=18:S=1
120 PRINT#2,"U1 2 0";T;S
130 GET#1,T$,S$
140 FOR J= 1 TO 8
145 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
150 GET#1,F$:FT=ASC(F$+CHR$(0))
160 IF (FT=130) OR (FT=194) THEN 200
170 FORI= 1 TO 31:GET#1,W$:NEXT
180 GOTO300
200 GET#1,A$,B$:PRINTASC(A$+CHR$(0)),ASC(B$+CHR$(0)),
210 FORI=1TO16:GET#1,A$:PRINTA$;:NEXT:PRINT
220 FORI=19TO31:GET#1,W$:NEXT
300 NEXT:IF T<>0 THEN 120
310 CLOSE1:CLOSE2