OPEN "COM1:9600,N,8,1,BIN" FOR INPUT AS 1
OPEN "tek.bmp" FOR OUTPUT AS 2
x = 0
main:
a$ = INPUT$(1, 1)
IF a$ = "" GOTO main
PRINT #2, a$;
x = x + 1
IF x = 9662 GOTO done
GOTO main
done:
CLOSE #2
CLOSE #1

END