// Declare some data items
DATA one, two, three, four, five

// Read in and print the data
WHILE NOT EOD DO // EOD => 'End Of Data'
    READ item$
    PRINT item$
ENDWHILE

// Start again at the beginning...
RESTORE

// ...and print it all out again
WHILE NOT EOD DO // EOD => 'End Of Data'
    READ item$
    PRINT item$
ENDWHILE