#!MC 750 $!PromptForTextString |ZONE| Instructions = "Which zone do you want to switch\nthe I and J indices for?" $!DrawGraphics No $!ACTIVEFIELDZONES = [|ZONE|] $!CREATERECTANGULARZONE IMAX = |MAXJ| JMAX = |MAXI| $!VARSET |NEWZONE| = |NUMZONES| $!Loop |MAXJ| $!VARSET |Outerloop| = |Loop| $!Loop |MaxI| $!Varset |array1| = (|Loop| + (|Outerloop|-1)*|MaxI|) $!VARSET |array2| = ( (|array1|-|Loop|)/|MaxI| + 1 + (|Loop|-1)*|MaxJ| ) $!Loop |NumVars| $!GetFieldValue |Value| ZONE = |ZONE| VAR = |Loop| INDEX = |array1| $!SETFIELDVALUE ZONE = |NEWZONE| VAR = |Loop| INDEX = |array2| FIELDVALUE = |Value| $!EndLoop $!EndLoop $!EndLoop $!DrawGraphics Yes $!ActiveFieldZones = [|NEWZONE|] $!DeleteZones [|ZONE|] $!Redraw