C INTERACTIVE PROGRAM FOR PDP-11 TO COMPUTE X**2. C ZERO IS USED TO TERMINATE EXECUTION. C REAL X,XSQ REPEAT UNTIL (X.EQ.0) C C GET-A-VALUE-OF-X C IF (X.NE.0) COMPUTE-RESULT TYPE-RESULT FIN C FIN CALL EXIT C C TO GET-A-VALUE-OF-X TYPE 10 10 FORMAT('$X = ') ACCEPT 20,X 20 FORMAT(F) FIN C C TO COMPUTE-RESULT XSQ=X*X C TO TYPE-RESULT TYPE 30, XSQ 30 FORMAT(' X-SQUARED = ',F7.2) FIN END