FILL Example

10    CLEAR SCREEN
20    GINIT
30    MOVE 40,40
40    RECTANGLE 10,20
50    DISP "1"
60    WAIT 1
70    AREA PEN 3
80    RECTANGLE 10,-20,FILL
90    DISP "2"
100   WAIT 1
110   PEN 2
120   RECTANGLE -10,-20,EDGE
130   DISP "3"
140   WAIT 1
150   AREA PEN 7
160   PEN 8
170   RECTANGLE -10,20,FILL,EDGE
180   DISP "4"
190   WAIT 1
200   DISP
210   END