PROCEDURE user;

VAR
	i :INTEGER;

BEGIN

FOR i:=1 TO 500 DO BEGIN
Rotate(17d15'25'');
LineTO (23,Random*43);

END;
END;
Run(user);