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

(Source file text) 

---

C	PROGRAM TEST
	IBASE=8
50	WRITE(4,100)
100	FORMAT(1X,'INPUT ?:',$)
	READ(4,110) IVAL
110	FORMAT(I6)
	IO=ICON(IVAL,IBASE)
	WRITE(4,200) IVAL,IBASE,IO
200	FORMAT(1X,'INPUT=',I6,1X,'BASE=',I2,1X,'OUT=',I6)
	GOTO 50
	STOP
	END

	


	
	
	
	

---