Created
April 10, 2012 22:35
-
-
Save johnvilsack/2355153 to your computer and use it in GitHub Desktop.
Intermec Fingerprint Barcode Duplicator
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment