for i = 1 to 10 :n(i) = i:next i

print "  +: ";" ";cat(10,"+")
print "  -: ";" ";cat(10,"-")
print "  *: ";" ";cat(10,"*")
print "  /: ";" ";cat(10,"/")
print "  ^: ";" ";cat(10,"^")
print "min: ";" ";cat(10,"min")
print "max: ";" ";cat(10,"max")
print "avg: ";" ";cat(10,"avg")
print "cat: ";" ";cat(10,"cat")

function cat(count,op$)
cat = n(1)
for i = 2 to count
 if op$ = "+" 	then cat = cat + n(i)
 if op$ = "-" 	then cat = cat - n(i)
 if op$ = "*" 	then cat = cat * n(i)
 if op$ = "/" 	then cat = cat / n(i)
 if op$ = "^" 	then cat = cat ^ n(i)
 if op$ = "max"	then cat = max(cat,n(i))
 if op$ = "min"	then cat = min(cat,n(i))
 if op$ = "avg"	then cat = cat + n(i)
 if op$ = "cat"	then cat$ = cat$ + str$(n(i))
next i
if op$ = "avg" then cat = cat / count
if op$ = "cat" then cat = val(str$(n(1))+cat$)
end function