#COMPILE EXE "s98_hex_dump.exe"
' Sample: Simple hex dump utility
FUNCTION PBMAIN() AS LONG
    DIM i AS LONG, val AS LONG
    PRINT "Hex dump - first 16 numbers:"
    FOR i = 0 TO 15
        val = i
        PRINT "Dec"; i; "="; "HEX$"; HEX$(val);
        IF i MOD 4 = 3 THEN PRINT
    NEXT i: PRINT
    PRINT "BIN$(255) = "; BIN$(255)
    FUNCTION = 0
END FUNCTION
