Up to 26 pooches.
Code: Select all
#define setz(z) z as string =""
#define setstrings setz(a),setz(b),setz(c),setz(d),setz(e),setz(f),setz(g), _
setz(h),setz(i),setz(j),setz(k),setz(l),setz(m),setz(n), _
setz(o),setz(p),setz(q),setz(r),setz(s),setz(t),setz(u), _
setz(v),setz(w),setz(x),setz(y),setz(z)
#define alphabet a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
type array
as string st(1 to 26)
declare constructor(setstrings)
declare operator cast() as string
end type
constructor array(setstrings)
dim as string gg(1 to 26)={alphabet}
for n as long=1 to 26
st(n)=gg(n)
next
end constructor
operator array.cast() as string
for n as long=1 to 26
if this.st(n)<>"" then print st(n)
next n
return ""
end operator
var mydogs=array("Tommy","Sheba","Candy","Louis","Gilly","Bob")
print mydogs
print "press any key to end"
sleep
This is a true story of my life with dogs, alas only Bob is left.