home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.ctoi < prev    next >
Text File  |  2020-01-01  |  765b  |  33 lines
  1. ; 18 jly 85 esj converted
  2. ;;;       CTOI          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O CTOI.(IN, I)
  5.       I'R IN(1)
  6.       I'R I, S
  7. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  8. LBL0 W'R (.NOT.(IN(I) .EQ. 32 .OR. IN(I) .EQ. 9)), T'O LBL1
  9.       I = I + 1
  10.       T'O LBL0
  11. LBL1 C'E
  12.       W'R (.NOT.(IN(I) .EQ. 45 .OR. IN(I) .EQ. 43)), T'O LBL2
  13.       S = IN(I)
  14.       I = I + 1
  15.       T'O LBL3
  16. LBL2 C'E
  17.       S = 0
  18. LBL3 C'E
  19.       LCLCTOI = 0
  20. LBL4 W'R (.NOT.(IN(I) .NE. 10002)), T'O LBL6
  21.       W'R (.NOT.(IN(I) .LT. 48 .OR. IN(I) .GT. 57)), T'O LBL7
  22.       T'O LBL6
  23. LBL7 C'E
  24.       LCLCTOI = 10 * LCLCTOI + IN(I) - 48
  25. LBL5 I = I + 1
  26.       T'O LBL4
  27. LBL6 C'E
  28.       W'R (.NOT.(S .EQ. 45)), T'O LBL9
  29.       LCLCTOI = -LCLCTOI
  30. LBL9 C'E
  31.       F'N LCLCTOI
  32.       E'N
  33.