home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / HITONE.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.8 KB  |  28 lines
  1.       SUBROUTINE HITONE(HIT)                                            2022
  2.  
  3. c    include 'tcommon.for'
  4.     %include tcommon.for
  5.  
  6.       X=DEFL                                                            2040
  7.       DEFL=DEFL-HIT                                                     2041
  8.       Y=HIT-X                                                           2042
  9.       IF(DEFL.LT.0.)GO TO 15                                            2043
  10.       WRITE(6,1)HIT                                                     2044
  11. 1     FORMAT(' SHIELDS KNOCKED DOWN BY: ',F7.2)                         2045
  12.       GO TO 10                                                          2046
  13. 15    IF(X.LE.0.)GO TO 25                                               2047
  14.       WRITE(6,2)                                                        2048
  15. 2     FORMAT(' SHIELDS DESTROYED')                                      2049
  16. 25    CALL DAMAGE(1,Y)                                                  2050
  17.       DEFL=0.                                                           2051
  18.       GO TO 99                                                          2052
  19. 10    IF(DEFL.GT.100.)GO TO 20                                          2053
  20.       WRITE(6,3)                                                        2054
  21. 3     FORMAT(' SHIELDS CRITICAL!')                                      2055
  22.       GO TO 99                                                          2056
  23. 20    IF(DEFL.GT.250.)GO TO 99                                          2057
  24.       WRITE(6,4)                                                        2058
  25. 4     FORMAT(' SHIELDS CRUMBLING')                                      2059
  26. 99    RETURN                                                            2060
  27.       END                                                               2061
  28.