hhfh +  ecc = hkfh 

bgak 
  +
  ecc 
  =
ebak
 

    b
  +
hkfh
  =
hkfe
 

dfbf / bgak =    b  

'5928 / 2964 = 0002
'   -      +      +
'1181 + 0300 = 1481
'4747 - 3264 = 1483

''dfbf / bgak =    b
''   -      +      +
''hhfh +  ecc = hkfh
''kjkj - ebak = hkfe
for a = 0 to 9
for b = 1 to 3 '0 to 9
for c = 0 to 0 '0 to 9
for d = 0 to 9
'for e = 2 to 4 '0 to 9
    e=b+1
for f = 0 to 9
for g = 0 to 9
for h = 1 to 1  '0 to 9
for j = 0 to 9
for k = 0 to 9
scan
  q$ = str$( a );b;c;d;e;f;g;h;j;k
  if ispermutation( q$ ) then
    print q$
    a$ = str4$( d , g , b , f )
    b$ = str4$( b , g , a , k )
    c$ = str4$( 0 , 0 , 0 , b )
    d$ = str4$( h , h , f , h )
    e$ = str4$( 0 , e , c , c )
    f$ = str4$( h , k , f , h )
    g$ = str4$( k , j , k , j )
    h$ = str4$( e , b , a , k )
    j$ = str4$( h , k , f , e )
    if val( a$ ) / val( b$ ) = val( c$ ) then
    if val( d$ ) + val( e$ ) = val( f$ ) then
    if val( g$ ) - val( h$ ) = val( j$ ) then
      if val( a$ ) - val( d$ ) = val( g$ ) then
      if val( b$ ) + val( e$ ) = val( h$ ) then
      if val( c$ ) + val( f$ ) = val( j$ ) then
        print a$ + " / " + b$ + " = " + c$
        print "   -      +      +"
        print d$ + " + " + e$ + " = " + f$
        print g$ + " - " + h$ + " = " + j$
        end
      end if
      end if
      end if
    end if
    end if
    end if
  end if
next k
next j
next h
next g
next f
'next e
next d
next c
next b
next a
end
function str4$( x , y , z , w )
  str4$ = str$( x ) ; y ; z ; w
end function
function ispermutation( q$ )
  uit = 1
  for i = 0 to 9
    if instr( q$ , str$( i ) ) = 0 then
      uit = 0
    end if
  next i
  ispermutation = uit
end function