#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN() AS LONG
  DIM arr(1 TO 5) AS LONG
  DIM i AS LONG
  FOR i = 1 TO 5
    arr(i) = i * 10
  NEXT
  FOR i = 1 TO 5
    PRINT "arr("; i; ") = "; arr(i)
  NEXT
  FUNCTION = 0
END FUNCTION
