// How big do you want the array to be?
min% := 1; max% := 10

// Create an array of 'max%' numbers
DIM n% (min% : max%)

// Fill the array with square numbers
FOR i% := min% TO max% DO
    n% (i%) := (i% * i%)
NEXT i%

// Print out the array
FOR i% := min% TO max% DO
    PRINT i%, n% (i%)
NEXT i%