   10I%=OPENIN("BINCHAR")
   20VDU BGET#I%
   30GOTO 20
