Internal Picture Definition

An internal picture definition is one of internal procedures, and is functionally the same as an internal subprogram.
An internal picture definition is written within a program unit.
An internal picture definition begins with a PICTURE line and ends with a END-PICTURE line.

Example 3. An internal picture

100 OPTION ANGLE DEGREES
110 SET WINDOW -4,4,-4,4
120 DRAW polygon(6)
130 DRAW polygon(7) WITH ROTATE(-90/7)*SCALE(1.5)*SHIFT(2,2) 
140 PICTURE polygon(n)
150    FOR i=0 TO n
160       PLOT LINES:COS(i*360/n),SIN(i*360/n);
170    NEXT i
180 END PICTURE
190 END

Explanation
The main program consists of the whole lines.
Among these lines, lines 140 to 180 make up an internal picture.

A feature of internal picture definitions
All variables except parameters are shared with the program unit.
For example, on the following program, variable i in lines 120 to 140 and variable i in lines 170 to 190 are identical. Therefore, Because the variable i changes when the DRAW statement in 130-line is executed, the FOR~NEXT loop in lines 120 to 140 does not work correctly.
Example 4

100 OPTION ANGLE DEGREES
110 SET WINDOW -4,4,-4,4
120 FOR i=-4 to 4
130    DRAW polygon(7) WITH SHIFT(i,i)
140 NEXT i 
150 PICTURE polygon(n)
170     FOR i=0 TO n
180        PLOT LINES:COS(i*360/n),SIN(i*360/n);
190     NEXT i
200 END PICTURE
210 END