Omega Vehicle Security HH508 manual END if

IF C$ = "-" THEN

DEC = DEC * -1

END IF

B$ = MID$(A$, 10, 6)

DEC1 = 0

N = 6

FOR I = 0 TO 5

C$ = MID$(B$, N, 1)

N = N - 1

D = INSTR(F$, C$) - 1

DEC1 = DEC1 + (16 ^ I) * D

NEXT

DEC1 = DEC1 / 1000

C$ = MID$(A$, 9, 1)

IF C$ = "-" THEN

DEC1 = DEC1 * -1

END IF
CLS
LOCATE 12, 33
PRINT " T1	T2"

LOCATE 13, 30

PRINT USING "######.# ######.#"; DEC; DEC1 E$ = INKEY$

IF E$ = "" THEN

GOTO ST2

END IF

GOTO ST1

11