home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.ctoi
< prev
next >
Wrap
Text File
|
1987-02-19
|
765b
|
33 lines
; 18 jly 85 esj converted
;;; CTOI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E'F A:S(NWLS)
E'O CTOI.(IN, I)
I'R IN(1)
I'R I, S
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
LBL0 W'R (.NOT.(IN(I) .EQ. 32 .OR. IN(I) .EQ. 9)), T'O LBL1
I = I + 1
T'O LBL0
LBL1 C'E
W'R (.NOT.(IN(I) .EQ. 45 .OR. IN(I) .EQ. 43)), T'O LBL2
S = IN(I)
I = I + 1
T'O LBL3
LBL2 C'E
S = 0
LBL3 C'E
LCLCTOI = 0
LBL4 W'R (.NOT.(IN(I) .NE. 10002)), T'O LBL6
W'R (.NOT.(IN(I) .LT. 48 .OR. IN(I) .GT. 57)), T'O LBL7
T'O LBL6
LBL7 C'E
LCLCTOI = 10 * LCLCTOI + IN(I) - 48
LBL5 I = I + 1
T'O LBL4
LBL6 C'E
W'R (.NOT.(S .EQ. 45)), T'O LBL9
LCLCTOI = -LCLCTOI
LBL9 C'E
F'N LCLCTOI
E'N