Form1
BarCode 3 of 9 Version 2.0
	Helvetica
wwwwwwwwwwwwwww
wwwwwwwwwwww
wwwwwwwwwwww
Form1,
Label11
Single Label Display of Output
Picture3
wwwwwwwwwwwwwww
wwwwwwwwwwww
wwwwwwwwwwww
Picture5
Label1
	Helvetica
Picture1
Label2
Command5
&Add a New Code
Command2
&Modify a Code
Command6
&Delete a Code
Command4
&Lookup a Code
&	fontlabel
Command7
&Select a Text Font
Label8
#Please Enter a Code and Description
Command1
&Print
Label5
Label6
Description
Text1
Text2
Command3
&Exit
Combo2
.03125
Label7
Barcode Height
Label3
Number of Labels Across Page
Combo4
.01325
Label9
 Vertical Distance Between Labels
Picture2
Option1
1 Across
Option2
2 Across
Option3
3 Across
Combo5
.01325
Label10
"Horizontal Distance Between Labels
Combo1
Label4
Number of Rows to Print
Label12
_Note: All values are in inches. Please use the decimal equivelance of the value you wish to set
ABOUT
&File
E	WHATS_NEW
	Whats New
Setup 
About
Form_Click
@	Form_Load~
FORM1
CURRENTX
CURRENTY
onewide
	threewide)
twospace
	fourspaceo
	fillstyle
	FILLCOLOR
THREE
PRINTER9
wbnb1
wbnsN
	SCALEMODE
HEADER
FOOTER
SEVEN,
EIGHT6
LETTER_AP
LETTER_Bl	
LETTER_C7
LETTER_D_
LETTER_E{
LETTER_F
PICTUREBOX
PICTUREBOX1g
picture1Q
Form_DragOver1
SOURCEE
Stateq
Form_DragDrop
Form_MouseMove
Button
Shift-
DIGIT
LABEL2B
caption
LABEL1!
Command3_Click
LETTER_G
LETTER_H
LETTER_I^
LETTER_J
LETTER_K
LETTER_L
LETTER_M
LETTER_N
LETTER_O]
LETTER_P
LETTER_Q
LETTER_R
LETTER_S
LETTER_T
LETTER_U
LETTER_V!
LETTER_WM
LETTER_X
LETTER_Y
LETTER_Zv
NSWB-
Command1_Click_
picture
IMAGE
PICTURE2s
VISIBLE
COMMAND3
COMMAND1J
COMMAND2
Command2_Click
NOCODES,
SCREEN1
WIDTH%
HEIGHTx
ABOUT_Click
FORM2M
barcode
DESCRIPTION
	PrintFlAG
NOCODES1
Useprinter1`
useprinter2
useprinter3W
useprinter4
NB_EXIT
NS_EXIT
WB_EXIT|
WS_EXIT
OPTION1
COUNTER<
OPTION2
OPTION3
ACROSS
VALUE
WHATS_NEW_Click
FORM3
MOUSEPOINTER
Command7_Click
form4g
	labelfont
	fontlabel
FONTNAMEQ
COMBO1+
Text1_Change
TEXT1h
TEXT;
Text1_KeyPress
keyascii#
	SETNEWBAR
Text2_Change+
Text2_KeyPress
setnewdescrip
TEXT2
LABELSTOPRINT
NUMBEROFLABELS
NEWVALUE
COMBO2
	BARHEIGHT$	
COMBO3|
combo4
combo5
BARCODEHEIGHT
	NOBARCODE
	EXITPRINT
SAVETOPPOS
BETWEENHEIGHTj
HORBETWEEN>
Text1_LostFocus
Text2_LostFocus
sets_Click
FORM5
getprofilestring&
sname
knameH
APPNAME
KEYNAME
default
RETURNS
buffsize
WRITEProfileString^
RINGS
IstringS
SUCCESS
SetNewDefaults
lstring
string1
lstring2
string3
string2
Istring2
Istring3
	REDOSTART
FONTDEFAULT
string4
string5H	
string6c	
string7
	FONTTOUSE
LABELSACROSS
LEFTMARGIN
	TOPMARGIN
TEXT4
TEXT56	@
Command5_Click-	
LABELS
FORM6
FORM7Q	@
Command6_Click
FORM8
Command4_Click
FORM9
GFDG_Click
Form_Load
LABELS.DB"
Bars Version 2.0
BarHeight"
Program will use standard default settings
Bars Version 2.0
Bars Version 2.0
BarHeight"
BarVertical"
BarHorizontal"
Current Font is 
NumAcross"
TopMargin"
LeftMargin
.03125
.0625"
.0125"
1.0625
1.125"
.03125
.0625"
.0125"
1.0625
1.125"
 Main Form
  Purpose: Create Code 3 of 9 BarCodes For Windows Ver 3.0
 Input: Barcode Number = BARCODE$
 Description = Description$O
   Output: Screen = Visual BarCode
 Description: Code 3 of 9 BarCodes
 Each Code is Made up of 2 Different Types of Lines*
 One Thick and One Thin Also There Are Two Types Of*
 Spaces One Thick and One Thin
  This Programs Concept is Very Simple it Will First Divide thee
  Code Into Seperate Digits it Will Then Pick the Correctt
  Subroutine to Call Based on The BarCode Digit.
  Each Digit Subroutine Will Call Four Other Subroutines
  Each of The Four Subroutines Contains Code To Either Draw Liness
  or Spaces To Picture1.
   NB Subroutine : Thick  Space   Three   Pixels Wide
   NS Subroutine : Thin   Space   One
 Pixel  Wide
   WS Subroutine : Thick  Line
 Three   Pixels Wide
   WB Subroutine : Thin   Line
 Pixel  Wide
Show This Form
 Center Form On Screen
Calculate The ScreenWidth / 2I
Calculate The ScreenHeight / 2
Command3_Click
Command1_Click
Set mouse pointer to hourglass
 Main Print Routine 
 The Code That Follows is One Possible Solution to Print too
 any Graphics Printer That Windows Will Support.
 This Code May Be Further Modified To Ask The User How Many 
 Labels They Wish To Print.W
 ALSO THE X AND Y CORDS MAY BE MODIFIED TO SUPPORT DIFFERENT
 SPACING FOR DIFFERENT SIZE LABELS F
WINDOWS LIKES THIS I DONT KNOW WHY
ONE LABEL ACROSS
TWO LABELS ACROSS
THREE LABELS ACROSS
SET COUNTER TO NUMBER ACROSS
PRINT THE DESCRIPTIONR
 THIS ROUTINE WILL RESET THE X CORD FOR EACH LABEL
 TO PRINT THE BAR CODE
 EACH BAR CODE HAS A HEADERR
PRINT BARCODE HEADER
 THIS ROUTINE WILL DIVIDE THE CODE INTO DIGITS THEN CALL
 EACH DIGITS SUBROUTINEE
GET BARCODE FROM LABEL2*
Set A=Length Of Barcode*
Get Each Digit Of Code
ADD 1 MORE SINGLE SPACEC
 THIS ROUTINE WILL TAKE CARE OF THE LAST DIGIT IN THE BARCODE*
 THIS WAS ADDED BECAUSE IT WAS A SIMPLE WAY TO DO IT..
 HOWEVER IF YOU CAN THINK OF A BETTER WAY I LIKE TO SEE IT.*
 EACH BARCODE HAS A FOOTER
 THIS CODE WILL RESET THE X CORD TO PRINT THE BARCODE TEXT
RESET FLAG
PRINT THIS PAGER
Reset mouse pointer to arrow
WHATS_NEW_Click
Command7_Click
Text1_KeyPress
Text2_KeyPress
Text1_LostFocus
Text2_LostFocus
sets_Click
Command5_Click
Command2_Click
Command6_Click
Command4_Click
GFDG_Click