LT simple menu - for lt2014-2016

This classic menu only support pulldown menu.



Come with - auto numbering, Align with line, Flatten, offset half distance , or quater distance,
Area and attribute block update.

Program as below :
 copy and paste to simple.mnu file and load the file in AutoCAD or AutoCAD LT

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950


////////////////////////////////////////////////////////////////////////////
//
//
//   ACADSYSTEMS (PENANG) SDN BHD  tel:604-3992708  fax:604-3990708
//
//   or email sim@acadsystems.com for details HP +6019-412-5950
//
///////////////////////////////////////////////////////////////////////////
//
//   ;  = enter in autocad
//   \  = pick in autocad
//   @  = alias or last pick point in autocad
//   *  = multiple in autocad
//   ^C   CANCEL
//
//   $M=         = convert to string
//   $(*,34,5)   = 34 * 5
//   $(+,34,5)   = 34 + 5
//   $(-,34,5)   = 34 - 5
//   $(/,34,5)   = 34 / 5
//   $(getvar,distance)  = get variable value of setvar distance from autocad

***menugroup=LT-SIMPLE1-menu

***pop1
[DT-sim-LTMENUr1]
[align-ref]^C^C_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;r;\
[align-dl]^C^Cline;\\;erase;l;;_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;$M=$(*,$(getvar,lastangle),57.272727);Redraw
[Offset 1/2 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),2);
[Offset 1/4 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),4);
[--]
[Transfer dist]'_dist;\\$m=$(eval,$(getvar,distance))^Z
[2012 - DELETE DUPLICATE ]^C^COVERKILL
[2012 - NCOPY -Copy objects in block]^c^cNCOPY
[2011 - CHSPACE convert inside viewport to layout object]^C^CCHSPACE
[--]
[Area -Bpoly- With text Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,area),2,3);
[Area - Bpoly- With text Perimeter and Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,perimeter),2,2);Text;\0;$M=$(rtos,$(GETVAR,AREA),2,3);
[FLATTEN -CONVERT TO 2D Z=0]^C^CUCS;;MOVE;ALL;;0,0,1E99;;MOVE;P;;0,0,-1E99;;
[--]
[CONTINUE PRE-TEXT NO FROM 1]^C^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"1";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"2";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"3";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"4";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"5";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"6";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"7";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"8";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"9";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"10";
[CONTINUE PRE-TEXT FROM GIVEN NO WITH INCREMENT OF 1]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(+,$(GETVAR,USERR1),0),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),2),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),3),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),4),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),5),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),6),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),7),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),8),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),9),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),10),2,0);
[--]
[CONTINUE PRE-TEXT, START NO, AND INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),10)),2,0);
[--]
[ ERASE OLD-TEXT, REPLACE PTR ERASE TEXT LOCATION]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);
[--]
[CONTINUE SUFFIX-TEXT START FROM NO 1]^C^CSETVAR;MTJIGSTRING;\+
TEXT;\0;1$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;2$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"3"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"4"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"5"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"6"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"7"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"8"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"9"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"10"$M=$(GETVAR,MTJIGSTRING);
[CONTINUE SUFFIX-TEXT AND FROM GIVEN NO WITH INCREMENT OF 1]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),1),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),2),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),3),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),4),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),5),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),6),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),7),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),8),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),9),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[CONTINUE SUFFIX-TEXT,START NO, INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[TEXT Continue for - a b c d e f g]^c^C+
TEXT;\0;a;TEXT;\0;b;TEXT;\0;c;TEXT;\0;d;TEXT;\0;e;TEXT;\0;f;TEXT;\0;g;TEXT;\0;h;+
TEXT;\0;i;TEXT;\0;j;TEXT;\0;k;TEXT;\0;l;TEXT;\0;m;TEXT;\0;n;TEXT;\0;o;TEXT;\0;p;+
TEXT;\0;q;TEXT;\0;r;TEXT;\0;s;TEXT;\0;t;TEXT;\0;u;TEXT;\0;v;TEXT;\0;w;TEXT;\0;x;+
TEXT;\0;y;TEXT;\0;z;TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;
[TEXT Continue for - A B C D E F G]^c^C+
TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;TEXT;\0;D;TEXT;\0;E;TEXT;\0;F;TEXT;\0;G;TEXT;\0;H;+
TEXT;\0;I;TEXT;\0;J;TEXT;\0;K;TEXT;\0;L;TEXT;\0;M;TEXT;\0;N;TEXT;\0;O;TEXT;\0;P;+
TEXT;\0;Q;TEXT;\0;R;TEXT;\0;A;TEXT;\0;T;TEXT;\0;U;TEXT;\0;V;TEXT;\0;W;TEXT;\0;X;+
TEXT;\0;Y;TEXT;\0;Z;TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;
[--]
[TEXT PREFIX AND  A B C -exp 22A 22B 22C 22D]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)B;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)C;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)D;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)E;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)F;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)G;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)H;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)I;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)J;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)K;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)L;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)M;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)N;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)O;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)P;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Q;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)R;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)S;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)T;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)U;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)V;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)W;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)X;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Y;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Z;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;
[TEXT SUFFIX AND  A B C -exp A22 B22 C22 D22]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;A$M=$(GETVAR,MTJIGSTRING);TEXT;\0;B$M=$(GETVAR,MTJIGSTRING);TEXT;\0;C$(GETVAR,MTJIGSTRING);+
TEXT;\0;D$(GETVAR,MTJIGSTRING);TEXT;\0;E$(GETVAR,MTJIGSTRING);TEXT;\0;F$(GETVAR,MTJIGSTRING);+
TEXT;\0;G$(GETVAR,MTJIGSTRING);TEXT;\0;H$(GETVAR,MTJIGSTRING);TEXT;\0;I$(GETVAR,MTJIGSTRING);+
TEXT;\0;J$(GETVAR,MTJIGSTRING);TEXT;\0;K$(GETVAR,MTJIGSTRING);TEXT;\0;L$(GETVAR,MTJIGSTRING);+
TEXT;\0;M$(GETVAR,MTJIGSTRING);TEXT;\0;N$(GETVAR,MTJIGSTRING);TEXT;\0;O$(GETVAR,MTJIGSTRING);+
TEXT;\0;P$(GETVAR,MTJIGSTRING);TEXT;\0;Q$(GETVAR,MTJIGSTRING);TEXT;\0;R$(GETVAR,MTJIGSTRING);+
TEXT;\0;S$(GETVAR,MTJIGSTRING);TEXT;\0;T$(GETVAR,MTJIGSTRING);TEXT;\0;U$(GETVAR,MTJIGSTRING);+
TEXT;\0;V$(GETVAR,MTJIGSTRING);TEXT;\0;W$(GETVAR,MTJIGSTRING);TEXT;\0;X$(GETVAR,MTJIGSTRING);+
TEXT;\0;Y$(GETVAR,MTJIGSTRING);TEXT;\0;Z$(GETVAR,MTJIGSTRING);TEXT;\0;A$(GETVAR,MTJIGSTRING);
[--]
[CHANGE BLOCK DATA -TAG +SEL_BLOCK +OLD_VALUE +NEW_VALUE]^C^CATTE;N;Y;*;\*;
[CHANGE BLOCK DATA -BLOCKNAME +TAG +SEL_BLOCK +OLD_VALUE +NEW_VALUE]^C^CATTE;N;Y;\\*;


***pop501
[DT-simx501]
[align-dl]^C^Cline;\\;erase;l;;_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;$M=$(*,$(getvar,lastangle),57.272727);Redraw
[Offset 1/2 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),2);
[Offset 1/4 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),4);
[Transfer dist]'_dist;\\$m=$(eval,$(getvar,distance))^Z
[2012 - DELETE DUPLICATE ]^C^COVERKILL
[2012 - NCOPY -Copy objects in block]^c^cNCOPY
[Area -Bpoly- With text Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;Text;\0;$M=$(rtos,$(GETVAR,area),2,3);
[Area - Bpoly- With text Perimeter and Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,perimeter),2,2);Text;\0;$M=$(rtos,$(GETVAR,AREA),2,3);
[--]
[FLATTEN -CONVERT TO 2D Z=0]^C^CUCS;;MOVE;ALL;;0,0,1E99;;MOVE;P;;0,0,-1E99;;


***pop502
[DT-simx502]
[CONTINUE PRE-TEXT, START NO, AND INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),10)),2,0);
[--]
[ ERASE OLD-TEXT, REPLACE PTR ERASE TEXT LOCATION]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);
[--]
[CONTINUE SUFFIX-TEXT,START NO, INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[TEXT PREFIX AND  A B C -exp 22A 22B 22C 22D]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)B;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)C;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)D;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)E;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)F;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)G;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)H;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)I;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)J;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)K;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)L;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)M;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)N;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)O;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)P;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Q;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)R;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)S;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)T;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)U;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)V;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)W;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)X;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Y;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Z;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;
[TEXT SUFFIX AND  A B C -exp A22 B22 C22 D22]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;A$M=$(GETVAR,MTJIGSTRING);TEXT;\0;B$M=$(GETVAR,MTJIGSTRING);TEXT;\0;C$(GETVAR,MTJIGSTRING);+
TEXT;\0;D$(GETVAR,MTJIGSTRING);TEXT;\0;E$(GETVAR,MTJIGSTRING);TEXT;\0;F$(GETVAR,MTJIGSTRING);+
TEXT;\0;G$(GETVAR,MTJIGSTRING);TEXT;\0;H$(GETVAR,MTJIGSTRING);TEXT;\0;I$(GETVAR,MTJIGSTRING);+
TEXT;\0;J$(GETVAR,MTJIGSTRING);TEXT;\0;K$(GETVAR,MTJIGSTRING);TEXT;\0;L$(GETVAR,MTJIGSTRING);+
TEXT;\0;M$(GETVAR,MTJIGSTRING);TEXT;\0;N$(GETVAR,MTJIGSTRING);TEXT;\0;O$(GETVAR,MTJIGSTRING);+
TEXT;\0;P$(GETVAR,MTJIGSTRING);TEXT;\0;Q$(GETVAR,MTJIGSTRING);TEXT;\0;R$(GETVAR,MTJIGSTRING);+
TEXT;\0;S$(GETVAR,MTJIGSTRING);TEXT;\0;T$(GETVAR,MTJIGSTRING);TEXT;\0;U$(GETVAR,MTJIGSTRING);+
TEXT;\0;V$(GETVAR,MTJIGSTRING);TEXT;\0;W$(GETVAR,MTJIGSTRING);TEXT;\0;X$(GETVAR,MTJIGSTRING);+
TEXT;\0;Y$(GETVAR,MTJIGSTRING);TEXT;\0;Z$(GETVAR,MTJIGSTRING);TEXT;\0;A$(GETVAR,MTJIGSTRING);