macro
unrandomizeit stand run resp x.1-x.m;
   blocking block. 

# resp CAN BE DROPPED FROM THE COMMAND LINE, IF IT IS BLANK
#       EX: randomizeit stand run x.1-x.m

#Where,
#stand: contains the original order.
#run: contains the random run order 
#resp: column of responses
#x.1-x.m: columns of data or interactions

#Copyright © 20 November 2000 Mathews and Malnar
#Rev. 1.0 for Minitab V13.2 (BEK)
#Rev 1.1 for Minitab V13.3 blocking subcommand 02/06/01 (Bek)

#This macro reorders the response values back to the original
#order, by sorting them by the original order column.  The run order
#column is maintained.  There MUST be an original index present to run
#this macro!!!

#Mathews, Malnar & Bailey
#217 Third Street, Fairport Harbor, OH 44077
#(440)350-0911
#pmathews@apk.net

#This macro may be copied into the Minitab source macros directory for
#immediate use, otherwise a change directory (cd ) command will be needed.  

#Example call:
#   mtb>  %unrandomizeit  c1 c2 c4 c5-c8;     
#               blocking c3.
             
#Copy the following line, minus the leading #, to the command line:
#%unrandomizeit  c1 c2 c4 c5-c8 
#    blocking c3.

mcolumn  stand run resp x.1-x.m block

If blocking
  Sort stand run resp x.1-x.m block stand run resp x.1-x.m block;
   By stand.
else
  Sort stand run resp x.1-x.m stand run resp x.1-x.m;
   By stand.
endif

endmacro.