DIM TEP AS STRING DIM TEMP AS STRING DIM I AS AS STRING TEP = RMSG I = LEN (TEP) IF i <1 THEN EXIT FUNCTION B = I / 2 IF i = B * 2 THEN TEP = Left (TEP, B * 2) ELSE B = B - 1 TEP = Left (TEP, B * 2) end if chG7 = "" REMS = "" DIM TRINT AS INTEger DIM STRTMP AS STRING TRINT = 1 strtmp = ""
For i = 1 to b Temp = "& H" & MID (TEP, (I - 1) * 2 1, 2) TEMP = D_TO_B (VAL (TEMP)) 'Transport IF IF LEN (TEMP) <8 TEMP = STRPLA (8 - LEN (TEMP)) Temp end if stramp = MID (Temp, Trint 1, 8 - Trint) REMS REMS = MID (Temp, 1, Trint) chG7 = CHG7 & Chrw (CINT (VAL (B_TO_D) (strtmp)))) Trint = Trint 1 if trint = 8 THEN TRINT = 1 CHG7 = CHG7 & Chrw (CINT (VAL (VAL (B_TO_D (REMS)))) REMS = "" END IF
Next i
