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