Compucolor.org – Virtual Media

Listing of file='RDNUM.FOR;01' on disk='vmedia/forutil_1-sector.ccvf'

	SUBROUTINE RDNUM(N)
	BYTE N,CHR,DIG,CI
	N = 0
  100	CHR = CI(0)
	IF(CHR.EQ.13) RETURN
	IF(CHR.NE.26) GOTO 200
	CALL CO(CHR)
	N = N/10
	GOTO 100
  200	DIG = CHR-48
	IF(DIG.GT.9.OR.DIG.LT.0) GOTO 100
	CALL CO(CHR)
	N = N*10+DIG
	GOTO 100
	END

	SUBROUTINE WRNUM(N)
	BYTE N,DIG(3),K,T
	T = N
	DO 100 K=1,3
	DIG(K)  = T-(T/10)*10+48
  100	T = T/10
	IF(DIG(3).EQ.48) GOTO 200
	CALL CO(DIG(1))
  200	IF(DIG(2).EQ.48) GOTO 300
	CALL CO(DIG(2))
  300	CALL CO(DIG(1))
	RETURN
	END