rplot 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    RPLOT 5,2
90    RECTANGLE 10,-20,FILL
100   DISP "2"
110   WAIT 1
120   PEN 2
130   RECTANGLE -10,-20,EDGE
140   DISP "3"
150   WAIT 1
160   AREA PEN 7
170   PEN 8
180   RECTANGLE -10,20,FILL,EDGE
190   DISP "4"
200   WAIT 1
210   DISP
220   END