REAL X,XSQ                                                          00001
      GO TO 32758                                                         00002
32759 IF(X.EQ.0) GO TO 32757                                              00002
32758 ASSIGN 32755 TO I32756                                              00003
      GO TO 32756                                                         00003
32755 IF(.NOT.(X.NE.0)) GO TO 32754                                       00004
      ASSIGN 32752 TO I32753                                              00005
      GO TO 32753                                                         00005
32752 ASSIGN 32750 TO I32751                                              00006
      GO TO 32751                                                         00006
32750 CONTINUE                                                            00007
32754 GO TO 32759                                                         00008
32757 CALL EXIT                                                           00009
32756 CONTINUE                                                            00010
      TYPE 10                                                             00011
10    FORMAT('$X = ')                                                     00012
      ACCEPT 20,X                                                         00013
20    FORMAT(F)                                                           00014
      GO TO I32756                                                        00015
32753 CONTINUE                                                            00016
      XSQ=X*X                                                             00016
      GO TO I32753                                                        00016
32751 CONTINUE                                                            00017
      TYPE 30, XSQ                                                        00018
30    FORMAT(' X-SQUARED = ',F7.2)                                        00019
      GO TO I32751                                                        00020
      END                                                                 00021