void local fn perm( k as Short)
static Short w( 4 ), i = -1
  Short j
  i ++ : w( k ) = i
  if i = 4
    for j = 1 to 4 : print w( j ),
    next : print
  else
    for j = 1 to 4 : if w( j ) = 0 then fn perm( j )
    next
  end if
  i -- : w( k ) = 0
end fn

fn perm(0)

handleevents