parse-currency ( byte-array -- n )

Vocabulary

dbf

Inputs

byte-array

an object

Outputs

n

an object

Definition

USING: endian kernel math sequences ;

IN: dbf

: parse-currency ( byte-array -- n )
    dup length 8 assert= le> 10000 / ;