im learning dark basic and i thought id post this very simple coe up here for the hell of it, for those of you who have dark basic you may or may not want to check it out LOL
dim names$(30)
set text size 18
for x = 1 to 16
text 300,50, "enter name "+str$(x)
input names$(x)
cls
next x
cls
for x = 1 to 16
print "hello ",names$(x)," !"
sleep 1000
cls
next x
wait key
end
like i said... very simple code