home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / conint.ftn < prev    next >
Text File  |  1990-04-02  |  408b  |  22 lines
  1.     SUBROUTINE CONINT(NUM,FLAG,LOW,HIGH,RANGE)
  2.  
  3.     INCLUDE 'COMMND.COM/-LI'
  4.     LOGICAL*1 FLAG,RANGE
  5.     INTEGER*2 NUM,LOW,HIGH
  6.  
  7.     FLAG=.TRUE.
  8.     RANGE=.TRUE.
  9.     CMD(1)=' '
  10.     IF(CMD(2).NE."15)GOTO 10000
  11.     FLAG=.FALSE.
  12.     NUM=0
  13.     GOTO 10003
  14. 10000    DECODE(CNT-1,10001,CMD,END=10004,ERR=10002)NUM
  15. 10001    FORMAT(I<CNT-1>)
  16.     FLAG=.TRUE.
  17.     IF((NUM.GE.LOW).AND.(NUM.LE.HIGH))GOTO 10003
  18. 10002    RANGE=.FALSE.
  19. 10003    RETURN
  20. 10004    CALL EXIT
  21.     END
  22.