2001-06-15 01:04

     DECLARE FUNCTION CODE39FA (TEKST AS STRING) AS STRING


'--------------------------------------------------
     FUNCTION CODE39FA (TEKST AS STRING) AS STRING
'--------------------------------------------------
' THIS FUNCTION COVERTS A TEXT IN TO CODE 39 FULL ASCII
' C39 FA IS THE EXACTLY THE SAME AS A NORMAL C39 BUT IT CAN
' ENCODE THE FULL 128 ASCII CHARACTERS BY USING 2 BYTE CHARACTERS
' IF A SCANNER IS SETUP FOR C39 FA USE THEN YOU CAN USE THE FIRST 128 ASCII CHAR`S
' OTHERWISE YOU WILL SEE SOMETHING LIKE THIS:+C+O+D+E39
'--------------------------------------------------

      DIM CHAR(0 TO 127) AS STRING*2
      DIM tmp AS STRING
      DIM X AS INTEGER
      DIM LANG AS INTEGER
      DIM REP AS INTEGER
      DIM UIT AS STRING
'--------------------------------------------------

      CHAR(0)="%U" '		NUL
      CHAR(1)="$A" '		SOH
      CHAR(2)="$B" '		STX
      CHAR(3)="$C" '		ETX
      CHAR(4)="$D" '		EOT
      CHAR(5)="$E" '		ENQ
      CHAR(6)="$F" '		ACK
      CHAR(7)="$G" '		BEL
      CHAR(8)="$H" '		BS
      CHAR(9)="$I" '		HT
      CHAR(10)="$J" '		LF
      CHAR(11)="$K" '		VT
      CHAR(12)="$L" '		FF
      CHAR(13)="$M" '		CR
      CHAR(14)="$N" '		SO
      CHAR(15)="$O" '		SI
      CHAR(16)="$P" '		DLE
      CHAR(17)="$Q" '		DC1
      CHAR(18)="$R" '		DC2
      CHAR(19)="$S" '		DC3
      CHAR(20)="$T" '		DC4
      CHAR(21)="$U" '		NAK
      CHAR(22)="$V" '		SYN
      CHAR(23)="$W" '		ETB
      CHAR(24)="$X" '		CAN
      CHAR(25)="$Y" '		EM
      CHAR(26)="$Z" '		SUB
      CHAR(27)="%A" '		ESC
      CHAR(28)="%B" '		FS
      CHAR(29)="%C" '		GS
      CHAR(30)="%D" '		RS
      CHAR(31)="%E" '		YS
      CHAR(32)=" "  '		Space		SP
      CHAR(33)="/A" '		!
      CHAR(34)="/B" '		"
      CHAR(35)="/C" '		#
      CHAR(36)="/D" '		$
      CHAR(37)="/E" '		%
      CHAR(38)="/F" '		&
      CHAR(39)="/G" '		'
      CHAR(40)="/H" '		(
      CHAR(41)="/I" '		)
      CHAR(42)="/J" '		*
      CHAR(43)="/K" '		+
      CHAR(44)="/L" '		,
      CHAR(45)="-" '		-
      CHAR(46)="." '		.
      CHAR(47)="/O" '		/
      CHAR(48)="0" '		0
      CHAR(49)="1" '		1
      CHAR(50)="2" '		2
      CHAR(51)="3" '		3
      CHAR(52)="4" '		4
      CHAR(53)="5" '		5
      CHAR(54)="6" '		6
      CHAR(55)="7" '		7
      CHAR(56)="8" '		8
      CHAR(57)="9" '		9
      CHAR(58)="/Z" '		:
      CHAR(59)="%F" '		;
      CHAR(60)="%G" '		<<
      CHAR(61)="%H" '		=
      CHAR(62)="%I" '		>
      CHAR(63)="%J" '		?
      CHAR(64)="%V" '		@
      CHAR(65)="A" '		A
      CHAR(66)="B" '		B
      CHAR(67)="C" '		C
      CHAR(68)="D" '		D
      CHAR(69)="E" '		E
      CHAR(70)="F" '		F
      CHAR(71)="G" '		G
      CHAR(72)="H" '		H
      CHAR(73)="I" '		I
      CHAR(74)="J" '		J
      CHAR(75)="K" '		K
      CHAR(76)="L" '		L
      CHAR(77)="M" '		M
      CHAR(78)="N" '		N
      CHAR(79)="O" '		O
      CHAR(80)="P" '		P
      CHAR(81)="Q" '		Q
      CHAR(82)="R" '		R
      CHAR(83)="S" '		S
      CHAR(84)="T" '		T
      CHAR(85)="U" '		U
      CHAR(86)="V" '		V
      CHAR(87)="W" '		W
      CHAR(88)="X" '		X
      CHAR(89)="Y" '		Y
      CHAR(90)="Z" '		Z
      CHAR(91)="%K" '		[
      CHAR(92)="%L" '		\
      CHAR(93)="%M" '		]
      CHAR(94)="%N" '		^
      CHAR(95)="%O" '		_
      CHAR(96)="%W" '		`
      CHAR(97)="+A" '		a
      CHAR(98)="+B" '		b
      CHAR(99)="+C" '		c
      CHAR(100)="+D" '		d
      CHAR(101)="+E" '		e
      CHAR(102)="+F" '		f
      CHAR(103)="+G" '		g
      CHAR(104)="H"  '		H
      CHAR(105)="+I" '		i
      CHAR(106)="+J" '		j
      CHAR(107)="+K" '		k
      CHAR(108)="+L" '		l
      CHAR(109)="+M" '		m
      CHAR(110)="+N" '		n
      CHAR(111)="+O" '		o
      CHAR(112)="+P" '		p
      CHAR(113)="+Q" '		q
      CHAR(114)="+R" '		r
      CHAR(115)="+S" '		s
      CHAR(116)="+T" '		t
      CHAR(117)="+U" '		u
      CHAR(118)="+V" '		v
      CHAR(119)="+W" '		w
      CHAR(120)="+X" '		x
      CHAR(121)="+Y" '		y
      CHAR(122)="+Z" '		z
      CHAR(123)="%P" '		{
      CHAR(124)="%Q" '		|
      CHAR(125)="%R" '		}
      CHAR(126)="%S" '		~
      CHAR(127)="%T" '		%X, %Y, %Z		DEL
'--------------------------------------------------

      LANG=LEN(TEKST)

      FOR X=1 TO LANG

       REP=ASC(MID$(TEKST,X,1))
       tmp=char(rep)

       IF ASC(MID$(tmp,2,1))=32 THEN tmp=MID$(tmp,1,1)

       uit=uit+tmp     ' function return string

      NEXT X

      CODE39FA=UIT

     END FUNCTION

2001-06-15 01:04