Orange Micro Interface The Grappler - Manual (Page 14)

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—