Intermec Fingerprint Barcode Duplicator

IntermecFingerprintBarcodeDuplicator

1 PRINT "START OF PROGRAM"
2 SOUND 500,10
3 SOUND 500,10
50 'OPEN SCREEN'
51 OPEN "CONSOLE:" FOR OUTPUT AS 50
52 PRINT# 50, "SCAN BARCODE NOW"
100 'OPEN SCANNER'
105 OPEN "USBHOST:" FOR INPUT AS 100
110 RAWSCAN$=INPUT$(12,100)
115 UPC$=LEFT$(RAWSCAN$,11)
120 CLOSE 100
130 SOUND 100,5
135 SOUND 1000,5
150 PRINT# 50, "ENTER QUANTITY"
200 'OPEN KEYPAD'
205 OPEN "CONSOLE:" FOR INPUT AS 200 LEN=3
210 QTY$=INPUT$(3,200)
215 QTY%=VAL(QTY$)
220 CLOSE 200
230 SOUND 800,5
235 SOUND 800,5
240 SOUND 1200,10
300 'LABELMAKER'
310 BARFONT ON
315 BARTYPE "UPCA"
320 BARMAG 4
325 BARFONT "SW030RSN.1"
350 PRPOS 75,10
360 PRBAR UPC$
499 'CLOSE IT UP'
1000 PRINTFEED QTY%
1100 CLEAR
1200 CLOSE
1300 CLL
1500 GOTO 1