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