10  ! This example demonstrates the CLIP command by drawing grids and vectors
20  ! inside clipped rectangles.
30  !
40  INTEGER angle
50  !
60  PEN 1 @ GCLEAR @ LINE TYPE 1 @ LOCATE 10,190,10,90 @ FRAME @ DEG 
70  SCALE 0,20,0,10 @ CLIP 2,8,2,8 @ GRID 1,1 @ CLIP 10,18,4,8 @ FRAME 
80  !
90  FOR angle=0 TO 360 STEP 3 
100    MOVE 14,6 
110    PDIR angle 
120    IDRAW 3,0 
130 NEXT angle 
140 !
150 MOVE 10,1 @ CSIZE 8 @ LORG 5 @ LABEL USING "K" ; "Fun with clipping!"
160 !         
170 END