PROGRAM:DPAAPAAL
Disp "DISTANCE BETWEEN A POINT"
Disp "AND A LINE"
Pause
Disp ""
Dips "LINE: AX+BY+C"
Disp "POINT: (X,Y)"
Disp "D=abs(AX+BY+C)/sqrt(A^2+B^2)"
Pause
Disp ""
Disp "A"
Input A
Disp "B"
Input B
Disp "C"
Input C
Disp "X"
Input X
Disp "Y"
Input Y
abs(AX+BY+C)/sqrt(A^2+B^2)->D
Disp "DISTANCE=",D