$$子程序的啞元表
proc/pt1,pt2,dis

$$實體變量和數字變量聲明。
entity/pt1,pt2
number/a(3),b(3),dis

$$計算兩點之間的距離
l10:
a=&point(pt1)
b=&point(pt2)
dis=sqrtf((a(1)-b(1))*(a(1)-b(1))+(a(2)-b(2))*$
    (a(2)-b(2))+(a(3)-b(3))*(a(3)-b(3)))

$$返回主程序
trm:
return