Omega HH508 - Page 13

11
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