--------------------------------------------------------------------------------
#N88BASIC
'
Dim City(47) As String
Dim i As Integer
City(1) = "北海道" :City(2) = "青森県" :City(3) = "秋田県" :City(4) = "山形県"
City(5) = "岩手県" :City(6) = "福島県" :City(7) = "宮城県" :City(8) = "新潟県"
City(9) = "群馬県" :City(10) = "茨城県" :City(11) = "栃木県" :City(12) = "埼玉県"
City(13) = "千葉県" :City(14) = "東京都" :City(15) = "神奈川県":City(16) = "長野県"
City(17) = "山梨県" :City(18) = "静岡県" :City(19) = "岐阜県" :City(20) = "愛知県"
City(21) = "三重県" :City(22) = "富山県" :City(23) = "石川県" :City(24) = "福井県"
City(25) = "滋賀県" :City(26) = "京都府" :City(27) = "大阪府" :City(28) = "奈良県"
City(29) = "和歌山県":City(30) = "兵庫県" :City(31) = "広島県" :City(32) = "鳥取県"
City(33) = "岡山県" :City(34) = "島根県" :City(35) = "山口県" :City(36) = "香川県"
City(37) = "徳島県" :City(38) = "高知県" :City(39) = "愛媛県" :City(40) = "福岡県"
City(41) = "佐賀県" :City(42) = "長崎県" :City(43) = "大分県" :City(44) = "熊本県"
City(45) = "宮崎県" :City(46) = "鹿児島県":City(47) = "沖縄県"
For i=1 to 45 Step 5
Print City(i),City(i+1),City(i+2),City(i+3),City(i+4)
Next
Print City(46),City(47)
--------------------------------------------------------------------------------
#N88BASIC
'
Dim City(47) As String
Dim i As Integer
City(1) = "北海道" :City(2) = "青森県" :City(3) = "秋田県" :City(4) = "山形県"
City(5) = "岩手県" :City(6) = "福島県" :City(7) = "宮城県" :City(8) = "新潟県"
City(9) = "群馬県" :City(10) = "茨城県" :City(11) = "栃木県" :City(12) = "埼玉県"
City(13) = "千葉県" :City(14) = "東京都" :City(15) = "神奈川県":City(16) = "長野県"
City(17) = "山梨県" :City(18) = "静岡県" :City(19) = "岐阜県" :City(20) = "愛知県"
City(21) = "三重県" :City(22) = "富山県" :City(23) = "石川県" :City(24) = "福井県"
City(25) = "滋賀県" :City(26) = "京都府" :City(27) = "大阪府" :City(28) = "奈良県"
City(29) = "和歌山県":City(30) = "兵庫県" :City(31) = "広島県" :City(32) = "鳥取県"
City(33) = "岡山県" :City(34) = "島根県" :City(35) = "山口県" :City(36) = "香川県"
City(37) = "徳島県" :City(38) = "高知県" :City(39) = "愛媛県" :City(40) = "福岡県"
City(41) = "佐賀県" :City(42) = "長崎県" :City(43) = "大分県" :City(44) = "熊本県"
City(45) = "宮崎県" :City(46) = "鹿児島県":City(47) = "沖縄県"
For i=1 to 45 Step 5
Print City(i),City(i+1),City(i+2),City(i+3),City(i+4)
Next
Print City(46),City(47)
--------------------------------------------------------------------------------