Intermec Fingerprint Barcode Duplicator (Double USB Scan)

gistfile1.txt

1 '// Beep to confirm active //'
5 SOUND 500,10
6 SOUND 500,10

50 '// Open Console Screen //'
55 OPEN "CONSOLE:" FOR OUTPUT AS 50
60 PRINT# 50, "SCAN UPC NOW"

100 '// USB SCANNER //'
105 OPEN "USBHOST:" FOR INPUT AS 100
110 RAWSCAN$=INPUT$(12,100)
115 UPC$=LEFT$(RAWSCAN$,11)
150 SOUND 100,5
155 SOUND 1000,5
160 CLOSE 100

200 '// KEYPAD ENTRY //'
205 PRINT# 50, "ENTER QUANTITY"
210 OPEN "USBHOST:" FOR INPUT AS 200 LEN=3
215 QTY$=INPUT$(3,200)
220 QTY%=VAL(QTY$)
230 SOUND 800,5
235 SOUND 800,5
240 SOUND 1200,10

300 '// LABEL GENERATOR //'
310 BARFONT ON
320 BARTYPE "UPCA"
330 BARMAG 4
340 BARFONT "SW030RSN.1"
350 PRPOS 75,10
360 PRBAR UPC$

500 '// PRINT LABEL //'
510 PRINTFEED QTY%
520 CLEAR
530 CLOSE
540 CLL

1000 GOTO 1