SetColor clBlack
SetWidth 2
Rect 0,0,100,100
SetBGColor clGreen
#SetFont system,12,clBlack,b
SetScaledFont system,0.04445,clBlack,b
Rect 0,0,10,0
Rect 10,0,20,20
Rect 20,0,30,20
Rect 30,0,40,50
Rect 40,0,50,40
Rect 50,0,60,80
Rect 60,0,70,20
Rect 70,0,80,40
Rect 80,0,90,50
Rect 90,0,100,100
SetColor clRed
MoveTo 0,0
LineTo 10,20
LineTo 20,20
LineTo 30,50
LineTo 40,40
LineTo 50,50
LineTo 60,80
LineTo 70,20
LineTo 80,40
LineTo 90,50
LineTo 100,100
TextOut 0,0,0
TextOut 10,0,10
TextOut 20,0,20
TextOut 30,0,30
TextOut 40,0,40
TextOut 50,0,50
TextOut 60,0,60
TextOut 70,0,70
TextOut 80,0,80
TextOut 90,0,90
TextOut 100,0,100
