$$
$$    子程序2-points-dis，用于計算兩點之間的距離。
$$    輸入參數：pt1、pt2。
$$    輸出參數：dis。
$$    輸入文件：無。
$$    輸出文件：無。
$$	

$$子程序頭
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