sortmc {
  unset %sortmc
  unset %mcrand
  set %qvalue $read(txtmsg\catch.dat)
  set %mchoice on
  if ($gettok(%trivq,6,$asc(*)) != $null) && ($gettok(%trivq,7,$asc(*)) == $null) {
    set %sortmc $rand(1,120)
    if (%sortmc == 1) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 2) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 3) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 4) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 5) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 6) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 7) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 8) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 9) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 10) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 11) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 12) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 13) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 14) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 15) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 16) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 17) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 18) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 19) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 20) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 21) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 22) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 23) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 24) set %mcrand 12A:1 $gettok(%trivq,6,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 25) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 26) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 27) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 28) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 29) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 30) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 31) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 32) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 33) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 34) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 35) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 36) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 37) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 38) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 39) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 40) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 41) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 42) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 43) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 44) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 45) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 46) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 47) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 48) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 49) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 50) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 51) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 52) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 53) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 54) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 55) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 56) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 57) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 58) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 59) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 60) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 61) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 62) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 63) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 64) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 65) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 66) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 67) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 68) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 69) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 70) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 71) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 72) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 73) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 74) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 75) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 76) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 77) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 78) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 79) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 80) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 81) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 82) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 83) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 84) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 85) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 86) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 87) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 88) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 89) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))  12E:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 90) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 91) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 92) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 93) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 94) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 95) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 96) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 97) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 98) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 99) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 100) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 101) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 102) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,6,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 103) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 104) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 105) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 106) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 107) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 108) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 109) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 110) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 111) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 112) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 113) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))  12E:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 114) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 115) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 116) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 117) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,6,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 118) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,6,$asc(*))
    if (%sortmc == 119) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))  12E:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 120) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,6,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))  12E:1 $gettok(%trivq,4,$asc(*))
  }
  if ($gettok(%trivq,5,$asc(*)) != $null) && ($gettok(%trivq,6,$asc(*)) == $null) {
    set %sortmc $rand(1,24)
    if (%sortmc == 1) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 2) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 3) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 4) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 5) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 6) set %mcrand 12A:1 $gettok(%trivq,5,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 7) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 8) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 9) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 10) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 11) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 12) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 13) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 14) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 15) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 16) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 17) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,2,$asc(*))
    if (%sortmc == 18) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 19) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 20) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,5,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 21) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
    if (%sortmc == 22) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,3,$asc(*))
    if (%sortmc == 23) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,5,$asc(*)) 12D:1 $gettok(%trivq,4,$asc(*))
    if (%sortmc == 24) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 12D:1 $gettok(%trivq,5,$asc(*))
  }
  if ($gettok(%trivq,4,$asc(*)) != $null) && ($gettok(%trivq,5,$asc(*)) == $null) {
    set %sortmc $rand(1,6)
    if (%sortmc == 1) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 
    if (%sortmc == 2) set %mcrand 12A:1 $gettok(%trivq,4,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 
    if (%sortmc == 3) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,2,$asc(*)) 
    if (%sortmc == 4) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 
    if (%sortmc == 5) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,4,$asc(*)) 12C:1 $gettok(%trivq,3,$asc(*)) 
    if (%sortmc == 6) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*)) 12C:1 $gettok(%trivq,4,$asc(*)) 
  }
  if ($gettok(%trivq,3,$asc(*)) != $null) && ($gettok(%trivq,4,$asc(*)) == $null) {
    set %sortmc $rand(1,2)
    if (%sortmc == 1) set %mcrand 12A:1 $gettok(%trivq,3,$asc(*)) 12B:1 $gettok(%trivq,2,$asc(*))  
    if (%sortmc == 2) set %mcrand 12A:1 $gettok(%trivq,2,$asc(*)) 12B:1 $gettok(%trivq,3,$asc(*))  
  }
}