5 lines
160 B
Text
5 lines
160 B
Text
10 dim fruta$(2)
|
|
20 read fruta$(0),fruta$(1),fruta$(2)
|
|
30 data "apple","orange","lemon"
|
|
40 print "The length of the array 'fruit$' is ";ubound(fruta$)+1
|
|
50 end
|