pdir Example
10 CLEAR SCREEN
20 GINIT
30 MOVE 40,40
40 PDIR PI/4 !radians
50 RECTANGLE 10,20
60 DISP "1"
70 WAIT 1
80 AREA PEN 3
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
