home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / business / kws39e.zip / KWDEMO2.BAS < prev    next >
BASIC Source File  |  1991-06-17  |  401b  |  11 lines
  1. 10 PRINT "Scan Now:"
  2. 20 K$=INKEY$:IF K$="" THEN 20
  3. 30 IF ASC(K$)=13 THEN 50
  4. 40 X$=X$+K$:GOTO 20
  5. 50 PRINT "The variable X$ is now equal to: ";X$
  6. 60 END
  7. 70 REM  This short routine demostrates how to read bar code input one
  8. 80 REM  character at a time.  After running this routine, the variable
  9. 90 REM  X$ will contain the scanned code.  Both bar code and keyboard
  10. 95 REM  input are possible.
  11.