'// Source code dealing with how to use arrays
'// (c) 98 by RokFOX - Included with the QB-GFX #1 TUTORIAL
CLS
DIM SHARED WorldCup(3) AS INTEGER '// Declares the array: WorldCup as INTEGER, its dimension is 3

'// Fills the array with the historical dates when Italy won the World Cup.
WorldCup(1) = 1934
WorldCup(2) = 1938
WorldCup(3) = 1982

PRINT "Italy won the World Cup in:"

'// Prints what's inside the WorldCup array
FOR n = 1 to 3
   PRINT WorldCup(n)
NEXT

END