' Numeric to byte array conversion: MKI$, MKL$, MKQ$, MKD$, MKS$, MKBYT$, MKDWD$, MKCUR$
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL s AS STRING

    s = MKI$(1000)
    PRINT "MKI$(1000) length:"; LEN(s)

    s = MKL$(12345678)
    PRINT "MKL$(12345678) length:"; LEN(s)

    s = MKQ$(&H1234567890)
    PRINT "MKQ$ length:"; LEN(s)

    s = MKBYT$(255)
    PRINT "MKBYT$(255) length:"; LEN(s)

    s = MKDWD$(&H12345678)
    PRINT "MKDWD$ length:"; LEN(s)

    s = MKS$(3.14159)
    PRINT "MKS$(PI) length:"; LEN(s)

    s = MKD$(3.14159265358979)
    PRINT "MKD$(PI) length:"; LEN(s)

    PRINT "MKI$ family operations complete."

    FUNCTION = 0
END FUNCTION
