For Pascal Users:

PROGRAM DEMO,

USES TURTLEGRAPHICS, APPLESTUFF,

VAR ANGLE, DISTANCE: INTEGER;

PRINT, TEXT,

BEGIN ANGLE;8-Ø;

INITTURTLE;

PNNCOLOR(NHITE);

FOR DISTANCE:= TO 99 DO BEGIN

MOVE (2*DISTAMCE);

TURN ANGLE); END,

REWRITE (PRINT,’PRINTER;"),

NRITELN (PRINT,CHR(25),G');(*USE CHR(25) [CTPL—Y]IN PASCAL*); END.

—13—