DECLARE SUB permute (a$)
CLS
DEFDBL A-Z
a$ = "1234567890": h$ = a$
PRINT " vain", " float", " indolent"
DO
  IF INSTR(a$, "0") > 3 THEN
    v = VAL(MID$(a$, 1, 1))
    f = VAL(MID$(a$, 2, 1))
    i = VAL(MID$(a$, 3, 1))
    a = VAL(MID$(a$, 4, 1))
    n = VAL(MID$(a$, 5, 1))
    l = VAL(MID$(a$, 6, 1))
    o = VAL(MID$(a$, 7, 1))
    t = VAL(MID$(a$, 8, 1))
    d = VAL(MID$(a$, 9, 1))
    e = VAL(MID$(a$, 10, 1))
  END IF
  vain = 1000 * v + 100 * a + 10 * i + n
  float = 10000 * f + 1000 * l + 100 * o + 10 * a + t
  indolent = 10000000 * i + 1000000 * n + 100000 * d + 10000 * o + 1000 * l + 100 * e + 10 * n + t
  IF vain * float = indolent THEN PRINT vain, float, indolent
  permute a$
LOOP UNTIL a$ = h$

finds

 vain          float         indolent
 1365          47830         65287950
 
 1.    feal and divot
       4937 352 26180
 

 From Merriam-Webster online:
 Scots law
 :  the right of taking turf for making fences or thatching houses

 
 2. ready to roll
    R932Y 08 R877 
    

 ready to roll
 1. prepared to start doing something Once you have the software loaded, you're ready to roll.
 2. prepared to leave Give me a call when you're ready to roll.