Рисование простых геометрических фигур

доброго времени суток. прошу помощи у вас. я новичок в программировании на MapBasiс. пишу программму которая бы рисовала прямоуголиник и точки в ней. Представляю код сей тупой программы) компилируется без ошибок но ничего не рисует(

Include "MAPBASIC.DEF"
Dim cable As Object
dim x,y as integer
x=0
y=0

Create rect
Into Variable cable
(0, 0) (150, 100)
Pen MakePen(100, 200, BLACK)

if (x<=100) and (y<=100) then
x=x+1
y=y+1
else
if (x=100) and (y=100) then
x=x-2
y=y-2
end if
end if

Create point
Into Variable cable
(x, y)