:Disp "cranwell@yahoo.com"
:Input "X=",A
:Input "Y=",B
:Input "X=",C
:Input "Y=",D
:((A-C)+(B-D))E
:Disp "DISTANCE=",E
:Disp "ROOT OF=",EFrac
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)