'  TEST.BAS - a test driver for VALSUB.ASM
'     compiled with BC 7.1, switch "/O"
'   linked to VALSUB.OBJ and NOFLTIN.OBJ
'             switches "/E/NOE"

declare function atoi% (a$)
declare function atol& (a$)

restart:
    input "Enter a digit string:  ", a$
    print , atoi(a$), atol(a$)
    print
goto restart