File: ICON.FT of Disk: V50/Multi8/Multi-1

(Source file text) 

---

	FUNCTION ICON(INP,IBASE)
	IN=INP
	ICONV=0
	IPOS=1
100	MDIG=AMOD(IN,IBASE)
	ICONV=ICONV+MDIG*IPOS
	IN=IN/IBASE
	IPOS=IPOS*10
	IF (IN.GT.0) GOTO 100
	ICON=ICONV
	RETURN

---