#
new text
text::x=3000
text::y=6500  
text::font="HelveticaBold"
text::text="Demo #5B: MARK"
#
for i in 0 1 2 3 4 5 6 7 8
do
  for j in 0 1 2 3 4 5 6 7 8 9
  do
    new mark x:"2500+${j}*1800" y:"8000+${i}*1800"
    put mark R:0 G:0 B:0 R2:0 G2:128 B2:128
    put mark size:1600
    put mark style:
    put mark width:100
    put mark type:$i$j
  done
done
#
new gra
