'====BEGIN IDIVI PROCEDURE========================
'=   Integer/Integer Procedure                   =
'=   Divides an unsigned integer by an unsigned  =
'=   integer and returns an integer result.      =
'=================================================
'..tested OK 7/14/2000 - rvk
SUB IDIVI(top%,bot%)(answer%)
       IF bot% = 0
         answer% = &HFFFF
         EXIT SUB
       END IF
       answer% = 0
       ctr~ = 0
       WHILE bot% < top%
         IF bot% < &H8000
           INCR ctr~
           SHIFT bot%,1,LEFT
         ELSE
           EXIT WHILE
         END IF
       WEND
       INCR ctr~
       WHILE ctr~ | 0
         SHIFT answer%,1,LEFT
         IF top% < bot%
         ELSE
           top% = top% - bot%
           INCR answer%
         END IF
         SHIFT bot%,1,RIGHT
         DECR ctr~
       WEND
END SUB
'====END IDIVI=====================================