The following is an example of a GRIP compiler listing.
UNIGRAPHICS GRIP COMPILER - REV 06
PROGRAM: ARROW
10 PROC/PT1,PT2
20 $$
30 $$ INTERACTIVE FLOWCHARTS - 'ARROW'
40 $$
50 $$ INPUT - PTl, POINT AT TAIL OF ARROW
60 $$ PT2, POINT AT HEAD OF ARROW
70 $$
80 NUMBER/PT1(3),PT2(3),V1(3),V2(3),V3(3)
90 ENTITY/L(6),LL(6),LLL
100 $$
110 V1 =UNITF(PT1-PT2)
120 V2(1)=V1(2)
130 V2(2)=-V1(1)
140 V1 =SCALVF(&CSIZE,V1)+PT2
150 V2 =SCALVF(&CSIZE/3,V2)
160 $$
170 $$
180 DO/L1:,J,1,6
190 V3 =SCALVF(J/6,V2)
200 L(J) =LINE/PT2,V1+V3
210 LL(J)=LINE/PT2,V1-V3
220 L1:
230 LLL =LINE/PT1,PT2
240 $$
250 GROUP/L,LL,LLL
260 RETURN
NAME TYPE ADDR DIM
PT1 NUM ARRAY -1 3
PT2 NUM ARRAY -2 3
LLL ENTITY 55
J NUMBER 56
L ENT ARRAY 43 6
L1 LABEL 183
V1 NUM ARRAY 7 3
LL ENT ARRAY 49 6
V2 NUM ARRAY 19 3
V3 NUM ARRAY 31 3
0 ERRORS, PROGRAM = 248, DATA = 78
UNIVERSAL LINK FILE