Rotate(Angle: number);

In this example, text and digits are shown at a range of angles to form a protractor for text.

// REDTITAN RS2 CONTROL

circle(1200,1200,600);
ANGLE:=0;
TANGLE:=inttostr(ANGLE);
N:=15;
ROT:=ANGLE;

repeat
TANGLE:= inttostr(ROT);
rotate(ROT);
text(1200,1200,'.           .......... ' + TANGLE + ' degrees');
ROT:=ROT+N;
until ROT>350;

halt(1);