[Demonstration 
[   Program
;
;	#0 = barcode
;	#1 = description
;	#2 = scan count
;
Define 16,32,5
;
:Loop
Display "Scan barcode"
Input
If $k = "" then goto Loop
;
Find #0, $k
If not(eof) then goto Exists
;
#0 = $k
Beep x
Display "Not found"
Wait(10)
;
Display "Enter descriptn"
Input
If $k = "" then goto Loop
;
#1 = $k
#2 = "1"
Insert
;
Goto Loop
;
:Exists
Display1 #0
Display2 #1
Wait(15)
#2 = str$(val(#2) + 1)
Put
Display1 #0
Display2 "Scanned: " + #2
Wait(15)
;
Goto Loop
;
End