home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / business / kws39e.zip / KWDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-06-18  |  473b  |  14 lines
  1. PROGRAM Kwdemo;    {PASCAL bar code input example}
  2.  
  3. VAR Scanned : String;
  4.  
  5.    BEGIN
  6.      Write('Scan Now: ');
  7.      Readln( Scanned );
  8.      Writeln( 'The variable SCANNED is now equal to: ',Scanned );
  9.    END.
  10.  
  11.   {This short program will read input from a bar code or the keyboard.}
  12.   {After a bar code message is scanned, the variable "Scanned" will}
  13.   {contain the bar code message.  PASCAL's READ and READKEY can also}
  14.   {be used to input bar code messages.}