Omega Vehicle Security HH508 Instrukcja Użytkownika Pobierz pdf (Strona 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

1 2 ... 8 9 10 11 12 13 14 15 16 17 18 19 20

Komentarze do niniejszej Instrukcji

Brak uwag