REM Таблица умножения
gr.open 255,255,255,255,0,1
gr.screen sw,sh
n=9
gr.text.size sh/(n*4)
gr.text.align 2
for i=1 to n
 for j=1 to n
   gr.color 255,0,0,200,1
   if i=j then gr.color 255,200,0,0,1
   if i=1 | j=1 then gr.color 255,0,0,0,1
   gr.text.draw TextObject,sw/(n+1)*j,sh/(n+1)*i+h/80,int$(i*j)
 next j
next i
gr.render
do
until 0