program schet

dim    j    as byte
dim    schet    as byte

sub function mask(dim num as byte) as byte    
     select case num                    
     case 0  result = $00
     case 1  result = $01
     case 2  result = $02
     case 3  result = $03
     case 4  result = $04
     case 5  result = $05
     case 6  result = $06
     case 7  result = $07
     case 8  result = $08
     case 9  result = $09
     end select
end sub

sub procedure interrupt
       INTCON = %00000000
       schet = schet +1
       INTCON = %10010000
      end sub
sub procedure ind (dim    schet    as byte)
         dim j as byte
   j = schet mod 10
   portb = mask(j) + %100000
   j = schet div 10 mod 10
   portb = mask(j) + %10000000
   j = schet div 100 mod 10
   portb = mask(j) + %1000000
end sub
main:
     TRISB = %00000001
     INTCON = %10010000
     label_3:
    ind(schet)
   goto label_3
   end.