http://rosettacode.org/wiki/100_doors#



Uses "Console"

Dim doors(100) As Long
Dim i,j As Long
Array Assign doors(-1) = FALSE