' DATA Tables — Multiple DATA lines used as lookup tables
' NOTE: Current PB V7 READ does not support STRING+variable mixed reads.
' Using LONG values for compatibility.
#COMPILE EXE
#DIM ALL

DATA 10, 20, 30, 40, 50
DATA 100, 200, 300, 400, 500

FUNCTION PBMAIN() AS LONG
    LOCAL i AS LONG
    LOCAL val1 AS LONG
    LOCAL val2 AS LONG

    PRINT "Data Table (pairs):"
    PRINT STRING$(30, 45)

    FOR i = 1 TO 5
        READ val1, val2
        PRINT "Pair "; i; ": "; val1; " * "; val2; " = "; val1 * val2
    NEXT i

    FUNCTION = 0
END FUNCTION
