You can do the same thing without DIG.
Code:
Main:
 H=37234 

 'fill divisor with digits 0 to 4 from H
   FOR b = 0 to 4
     divisor[b] = H//10
     H=H/10  
   NEXT b
   GOTO Main
As a learning exercise, see if you can figure out why this works the same as DIG - or come
up with another method...;o}