Public Function Ascg (SMSG AS String) AS String
DIM SI, SB AS INTEGER
DIM STMP AS INTEGER
DIM STEMP AS STRING
SB = LEN (SMSG)
Ascg = ""
For Si = 1 to SB
STMP = ASCW (MID (SMSG, Si, 1))
IF ABS (STMP) <127 THEN
STEMP = "00" & HEX (STMP)
Else
STEMP = HEX (STMP)
END IF
Ascg = ascg & strump
Next Si
Ascg = trim (ascg)
END FUNCTION
