! *********************************************************************** ! MDL 04/93 B A R C O D E _ E X A M P L E . B A S ! ! Uses PCL_Emulate_3_of_9 to print the Code 3 of 9 character set. ! ! *********************************************************************** PROGRAM Barcode_Example OPTION TYPE=EXPLICIT, & SIZE = (REAL DOUBLE, INTEGER LONG), & CONSTANT TYPE = INTEGER EXTERNAL STRING FUNCTION PCL_Init_Page, & PCL_Emulate_3_of_9, & PCL_Position_Text OPEN "Barcode_Example.PCL" FOR OUTPUT AS 11, & ORGANIZATION SEQUENTIAL VARIABLE, & RECORDTYPE NONE print #11, PCL_Init_Page print #11, PCL_Emulate_3_of_9("*A*",1,100,100) print #11, PCL_Emulate_3_of_9("*B*",1,100,200) print #11, PCL_Emulate_3_of_9("*C*",1,100,300) print #11, PCL_Emulate_3_of_9("*D*",1,100,400) print #11, PCL_Emulate_3_of_9("*E*",1,100,500) print #11, PCL_Emulate_3_of_9("*F*",1,100,600) print #11, PCL_Emulate_3_of_9("*G*",1,100,700) print #11, PCL_Emulate_3_of_9("*H*",1,100,800) print #11, PCL_Emulate_3_of_9("*I*",1,100,900) print #11, PCL_Emulate_3_of_9("*J*",1,100,1000) print #11, PCL_Emulate_3_of_9("*K*",1,100,1100) print #11, PCL_Emulate_3_of_9("*L*",1,100,1200) print #11, PCL_Emulate_3_of_9("*M*",1,100,1300) print #11, PCL_Emulate_3_of_9("*N*",1,100,1400) print #11, PCL_Emulate_3_of_9("*O*",1,100,1500) print #11, PCL_Emulate_3_of_9("*P*",1,100,1600) print #11, PCL_Emulate_3_of_9("*Q*",1,100,1700) print #11, PCL_Emulate_3_of_9("*R*",1,100,1800) print #11, PCL_Emulate_3_of_9("*S*",1,100,1900) print #11, PCL_Emulate_3_of_9("*T*",1,100,2000) print #11, PCL_Emulate_3_of_9("*U*",1,100,2100) print #11, PCL_Emulate_3_of_9("*V*",1,100,2200) print #11, PCL_Emulate_3_of_9("*W*",1,100,2300) print #11, PCL_Emulate_3_of_9("*X*",1,100,2400) print #11, PCL_Emulate_3_of_9("*Y*",1,100,2500) print #11, PCL_Emulate_3_of_9("*Z*",1,100,2600) print #11, PCL_Emulate_3_of_9("*$*",1,1000,100) print #11, PCL_Emulate_3_of_9("*%*",1,1000,200) print #11, PCL_Emulate_3_of_9("*+*",1,1000,300) print #11, PCL_Emulate_3_of_9("*,*",1,1000,400) print #11, PCL_Emulate_3_of_9("*-*",1,1000,500) print #11, PCL_Emulate_3_of_9("*.*",1,1000,600) print #11, PCL_Emulate_3_of_9("*/*",1,1000,700) print #11, PCL_Emulate_3_of_9("*0*",1,1000,800) print #11, PCL_Emulate_3_of_9("*1*",1,1000,900) print #11, PCL_Emulate_3_of_9("*2*",1,1000,1000) print #11, PCL_Emulate_3_of_9("*3*",1,1000,1100) print #11, PCL_Emulate_3_of_9("*4*",1,1000,1200) print #11, PCL_Emulate_3_of_9("*5*",1,1000,1300) print #11, PCL_Emulate_3_of_9("*6*",1,1000,1400) print #11, PCL_Emulate_3_of_9("*7*",1,1000,1500) print #11, PCL_Emulate_3_of_9("*8*",1,1000,1600) print #11, PCL_Emulate_3_of_9("*9*",1,1000,1700) print #11, PCL_Position_Text( 100,300,"*A*") print #11, PCL_Position_Text( 200,300,"*B*") print #11, PCL_Position_Text( 300,300,"*C*") print #11, PCL_Position_Text( 400,300,"*D*") print #11, PCL_Position_Text( 500,300,"*E*") print #11, PCL_Position_Text( 600,300,"*F*") print #11, PCL_Position_Text( 700,300,"*G*") print #11, PCL_Position_Text( 800,300,"*H*") print #11, PCL_Position_Text( 900,300,"*I*") print #11, PCL_Position_Text(1000,300,"*J*") print #11, PCL_Position_Text(1100,300,"*K*") print #11, PCL_Position_Text(1200,300,"*L*") print #11, PCL_Position_Text(1300,300,"*M*") print #11, PCL_Position_Text(1400,300,"*N*") print #11, PCL_Position_Text(1500,300,"*O*") print #11, PCL_Position_Text(1600,300,"*P*") print #11, PCL_Position_Text(1700,300,"*Q*") print #11, PCL_Position_Text(1800,300,"*R*") print #11, PCL_Position_Text(1900,300,"*S*") print #11, PCL_Position_Text(2000,300,"*T*") print #11, PCL_Position_Text(2100,300,"*U*") print #11, PCL_Position_Text(2200,300,"*V*") print #11, PCL_Position_Text(2300,300,"*W*") print #11, PCL_Position_Text(2400,300,"*X*") print #11, PCL_Position_Text(2500,300,"*Y*") print #11, PCL_Position_Text(2600,300,"*Z*") print #11, PCL_Position_Text(100,1300,"*$*") print #11, PCL_Position_Text(200,1300,"*%*") print #11, PCL_Position_Text(300,1300,"*+*") print #11, PCL_Position_Text(400,1300,"*,*") print #11, PCL_Position_Text(500,1300,"*-*") print #11, PCL_Position_Text(600,1300,"*.*") print #11, PCL_Position_Text(700,1300,"*/*") print #11, PCL_Position_Text(800,1300,"*0*") print #11, PCL_Position_Text(900,1300,"*1*") print #11, PCL_Position_Text(1000,1300,"*2*") print #11, PCL_Position_Text(1100,1300,"*3*") print #11, PCL_Position_Text(1200,1300,"*4*") print #11, PCL_Position_Text(1300,1300,"*5*") print #11, PCL_Position_Text(1400,1300,"*6*") print #11, PCL_Position_Text(1500,1300,"*7*") print #11, PCL_Position_Text(1600,1300,"*8*") print #11, PCL_Position_Text(1700,1300,"*9*") print #11, PCL_Position_Text(2900,1000,"Code 3 of 9") print #11, " " CLOSE #11 END