summaryrefslogtreecommitdiff
path: root/language/telugu/telchars2.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/telugu/telchars2.mf
Initial commit
Diffstat (limited to 'language/telugu/telchars2.mf')
-rw-r--r--language/telugu/telchars2.mf506
1 files changed, 506 insertions, 0 deletions
diff --git a/language/telugu/telchars2.mf b/language/telugu/telchars2.mf
new file mode 100644
index 0000000000..595ad923c8
--- /dev/null
+++ b/language/telugu/telchars2.mf
@@ -0,0 +1,506 @@
+% This file is part of the TeluguTeX Software Package.
+%Copyright (c) 1991 Lakshmankumar Mukkavilli
+%
+%The TeluguTeX Software Package is distributed in the hope that
+%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor
+%accepts responsibility to anyone for the consequences of using it
+%or for whether it serves any particular purpose or works at all,
+%unless he says so in writing. Refer to the TeluguTeX Software Package
+%General Public License for full details.
+%
+%Everyone is granted permission to copy, modify and redistribute
+%the TeluguTeX Software Package, but only under the conditions described in the
+%TeluguTeX Software Package General Public License. A copy of this license is
+%supposed to have been given to you along with TeluguTeX Software Package so you
+%can know your rights and responsibilities. It should be in a
+%file named CopyrightLong. Among other things, the copyright notice
+%and this notice must be preserved on all copies.
+%%%%%
+% This file contains code to generate
+% symbols for Consonant + Vowel's that need special handling
+
+stest(cvku); telchar "consonant+vowel ka+u";
+begintchar(cv_ku_code,cb_ka_width#,asc_height#,0,0,0,0);
+cb_ka_form;
+vm_a_form(2);
+z20=(cb_ka_width+u,w_height);
+vm_u_form(20); erase sketch vm_u_p;
+sketch cb_ka_p..vm_u_p;w:=rt x20b;
+pivot_message(x20d);
+endtchar; etest;
+
+stest(cvkhe); telchar "consonant+vowel kha+e";
+begintchar(cv_khe_code,cb_kha_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_kha_form;erase sketch cb_kha_p;
+vm_e_form_a(cb_kha_width/2); sketch (subpath (0,9) of cb_kha_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvkhao); telchar "consonant+vowel kha+ao";
+begintchar(cv_khao_code,cb_kha_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_kha_form;erase sketch cb_kha_p;
+vm_ao_form(17,cb_kha_width/2);
+sketch (subpath (0,9) of cb_kha_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x17i);
+endtchar; etest;
+
+stest(cvge); telchar "consonant+vowel ga+e";
+begintchar(cv_ge_code,cb_ga_width#,vm_e_height3#,0,0,0,0);
+cb_ga_form;
+sketch cv_ge_p;
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvngu); telchar "consonant+vowel nga+u";
+begintchar(cv_ngu_code,cb_ja_width#/2,x_height#,0,0,0,0);
+cv_ngu_form;
+endtchar; etest;
+
+stest(cvnguu); telchar "consonant+vowel nga+uu";
+begintchar(cv_nguu_code,cb_ja_width#/2,x_height#,0,0,0,0);
+cv_ngu_form;
+barandhook_forma(4,3/4vmwidth,5);
+w:=rt x4b;
+endtchar; etest;
+
+stest(cvche); telchar "consonant+vowel cha+e";
+begintchar(cv_che_code,cb_cha_width#,vm_e_height1#,0,0,0,0);
+cb_cha_form; erase sketch cb_cha_p;
+vm_e_form_a(cb_cha_width/2);
+sketch (subpath(0,6) of cb_cha_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvchao); telchar "consonant+vowel cha+ao";
+begintchar(cv_chao_code,cb_cha_width#,vm_e_height1#,0,0,0,0);
+cb_cha_form; erase sketch cb_cha_p;
+vm_ao_form(11,cb_cha_width/2);
+sketch (subpath (0,6) of cb_cha_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvcche); telchar "consonant+vowel ccha+e";
+begintchar(cv_cche_code,cb_cha_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_cha_form; erase sketch cb_cha_p;
+vm_e_form_a(cb_cha_width/2);
+sketch (subpath(0,6) of cb_cha_p)..vm_e_pa;
+z10 = 1/2[rt z5,z5];
+wedge(10);
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvcchao); telchar "consonant+vowel ccha+ao";
+begintchar(cv_cchao_code,cb_cha_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_cha_form; erase sketch cb_cha_p;
+vm_ao_form(11,cb_cha_width/2);
+sketch (subpath (0,6) of cb_cha_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+z10 = 1/2[rt z5,z5];
+wedge(10);
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvje); telchar "consonant+vowel ja+e";
+begintchar(cv_je_code,cb_ja_width#,vm_e_height1#,0,0,0,0);
+cb_ja_form;vm_e_form_a(0.8cb_ja_width);
+sketch (subpath (0,1) of cb_ja_pb)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvju); telchar "consonant+vowel ja+u";
+begintchar(cv_ju_code,cb_ja_width#/2,x_height#,0,0,0,0);
+cv_ju_form;
+endtchar; etest;
+
+stest(cvjuu); telchar "consonant+vowel ja+uu";
+begintchar(cv_juu_code,cb_ja_width#/2,x_height#,0,0,0,0);
+cv_ju_form;
+barandhook_forma(4,3/4vmwidth,5);
+w:=rt x4b;
+endtchar; etest;
+
+stest(cvjao); telchar "consonant+vowel ja+ao";
+begintchar(cv_jao_code,cb_ja_width#,vm_e_height1#,0,0,0,0);
+cb_ja_form;
+vm_ao_form(11,0.65cb_ja_width);
+sketch (subpath (0,2) of cb_ja_pb)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvttao); telchar "consonant+vowel tta+ao";
+begintchar(cv_ttao_code,cb_tta_width#,x_height#,0,0,0,0);
+cb_tta_form;
+vwedge(18);
+vm_ao_form(16,cb_tta_width/2);
+sketch cb_tta_p..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+h:=max(top y18a,h);
+pivot_message(x16i);
+endtchar; etest;
+
+stest(cvtthe); telchar "consonant+vowel ttha+e";
+begintchar(cv_tthe_code,cb_ra_width#,vm_e_height3#,0,0,0,0);
+cb_ra_form;
+sketch cv_re_p;
+z10 = (x1,1/2x_height);
+fill_dot(10);
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvddu); telchar "consonant+vowel dda+u";
+begintchar(cv_ddu_code,v_u_width#,asc_height#,0,0,0,0);
+v_u_form;z14=((x8+x9)/2,y8);vm_a_form(14);
+vm_u_form(3); w:=rt x3b+4u/10;
+pivot_message(x3d);
+endtchar; etest;
+
+stest(cvddhu); telchar "consonant+vowel ddha+u";
+begintchar(cv_ddhu_code,v_u_width#,asc_height#,wedge_depth#,0,0,0);
+v_u_form;z14=((x8+x9)/2,y8);vm_a_form(14);
+z12=3/4[rt z5,z5];
+wedge(12);
+vm_u_form(3); w:=rt x3b;
+pivot_message(x3d);
+endtchar; etest;
+
+stest(cvte); telchar "consonant+vowel ta+e";
+begintchar(cv_te_code,cb_ta_width#,vm_e_height1#,0,0,0,0);
+cb_ta_form;
+vm_e_form_a(3/5cb_ta_width);
+ sketch (subpath (0,10) of cb_ta_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvtao); telchar "consonant+vowel ta+ao";
+begintchar(cv_tao_code,cb_ta_width#,vm_e_height1#,0,0,0,0);
+cb_ta_form;
+vm_ao_form(11,2.2/5cb_ta_width);
+sketch (subpath (0,10) of cb_ta_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvthe); telchar "consonant+vowel tha+e";
+begintchar(cv_the_code,cb_da_width#,vm_e_height3#,wedge_depth#,0,0,0);
+cb_da_form;
+sketch cv_de_p;
+wedge(4);
+z10 = (x1,2/3x_height-uh);
+fill_dot(10);
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvde); telchar "consonant+vowel da+e";
+begintchar(cv_de_code,cb_da_width#,vm_e_height3#,0,0,0,0);
+cb_da_form;
+sketch cv_de_p;
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvdhe); telchar "consonant+vowel dha+e";
+begintchar(cv_dhe_code,cb_da_width#,vm_e_height3#,wedge_depth#,0,0,0);
+cb_da_form;
+sketch cv_de_p;
+wedge(4);
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvne);telchar "consonant+vowel na+e";
+begintchar(cv_ne_code,cb_na_width#,vm_e_height1#,0,0,0,0);
+cb_na_form;
+vm_e_form_a(cb_na_width/2);
+sketch (subpath (0,4) of cb_na_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvnao);telchar "consonant+vowel na+ao";
+begintchar(cv_nao_code,cb_na_width#,vm_e_height1#,0,0,0,0);
+cb_na_form;
+vm_ao_form(11,0.4cb_na_width);
+sketch (subpath (0,4) of cb_na_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvpaa); telchar "consonant+vowel pa+aa";
+begintchar(cv_paa_code,cb_va_width#,asc_height#,0,0,0,0);
+cb_va_form;
+sketch cv_paa_p;
+pivot_message(x2,x22);% x22 is used for alligning au modifier
+endtchar; etest;
+
+stest(cvpu); telchar "consonant+vowel pa+u";
+begintchar(cv_pu_code,cv_pu_width#,x_height#,cv_pu_depth#,0,0,0);
+cv_pu_form;
+pivot_message(x1);
+endtchar; etest;
+
+stest(ccvpu); telchar "consonant conjunct of pa + vowel u";
+begintchar(ccv_pu_code,cb_va_width#,top_height#,0,0,ul#,0);
+cb_va_form;
+sketch subpath(0,3.4) of cb_va_p;
+cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97));
+numeric na,nb;
+(na,nb)=cc_transformed_path intersectiontimes
+ ((0,w_height)..(cb_va_width,w_height));
+z10=point na of cc_transformed_path;
+vm_u_form(10);
+cc_transform(lit_cir_p);
+cc_whd(1,0);
+w:=rt x10b;
+endtchar; etest;
+
+stest(cvpuu); telchar "consonant+vowel pa+uu";
+begintchar(cv_puu_code,cv_pu_width#,x_height#,cv_pu_depth#,0,0,0);
+cv_pu_form;barandhook_forma(4,3/4vmwidth,5);
+w:=rt x4b;
+pivot_message(x1);
+endtchar; etest;
+
+stest(ccvpuu); telchar "consonant conjunct of pa + vowel uu";
+begintchar(ccv_puu_code,cb_va_width#,top_height#,0,0,ul#,0);
+cb_va_form;
+sketch subpath(0,3.4) of cb_va_p;
+cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97));
+numeric na,nb;
+(na,nb)=cc_transformed_path intersectiontimes
+ ((0,w_height)..(cb_va_width,w_height));
+z10=point na of cc_transformed_path;
+vm_u_form(10);barandhook_forma(10d,vmwidth,5);
+cc_transform(lit_cir_p);
+cc_whd(1,0);
+w:= rt x10d.b;
+endtchar; etest;
+
+stest(cvphaa); telchar "consonant+vowel pha+aa";
+begintchar(cv_phaa_code,cb_va_width#,asc_height#,wedge_depth#,0,0,0);
+cb_va_form;
+sketch cv_paa_p;
+top z13 = 1/2[rt z1,z1];
+wedge(13);
+pivot_message(x2,x22); %x22 is used for alligning au modifier
+endtchar; etest;
+
+stest(ccvphu); telchar "consonant conjunct of pha + vowel u";
+begintchar(ccv_phu_code,cb_va_width#,x_height#,0,0,ul#,0);
+cb_va_form;
+sketch subpath(0,3.4) of cb_va_p;
+top z10 = 1/2[rt z1,z1];
+wedge(10);
+cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97));
+numeric na,nb;
+(na,nb)=cc_transformed_path intersectiontimes
+ ((0,w_height)..(cb_va_width,w_height));
+z11=point na of cc_transformed_path;
+vm_u_form(11);
+cc_transform(lit_cir_p);cc_transform(wedge_p); cc_whd(1,1);
+w:=rt x11b;
+endtchar; etest;
+
+stest(ccvphuu); telchar "consonant conjunct of pha + vowel uu";
+begintchar(ccv_phuu_code,cb_va_width#,x_height#,0,0,ul#,0);
+cb_va_form;
+sketch subpath(0,3.4) of cb_va_p;
+top z10 = 1/2[rt z1,z1];
+wedge(10);
+cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97));
+numeric na,nb;
+(na,nb)=cc_transformed_path intersectiontimes
+ ((0,w_height)..(cb_va_width,w_height));
+z11=point na of cc_transformed_path;
+vm_u_form(11);barandhook_forma(11d,vmwidth,5);
+cc_transform(lit_cir_p);cc_transform(wedge_p); cc_whd(1,1);
+w:=rt x11d.b;
+endtchar; etest;
+
+stest(cvbe); telchar "consonant+vowel ba+e";
+begintchar(cv_be_code,cb_ba_width#,vm_e_height1#,0,0,0,0);
+cb_ba_form;erase sketch cb_ba_p;
+vm_e_form_a(cb_ba_width/2);
+sketch (subpath(0,7) of cb_ba_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvbao); telchar "consonant+vowel ba+ao";
+begintchar(cv_bao_code,cb_ba_width#,vm_e_height1#,0,0,0,0);
+cb_ba_form;erase sketch cb_ba_p;
+vm_ao_form(11,cb_ba_width/2);
+sketch (subpath (0,7) of cb_ba_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvbhe); telchar "consonant+vowel bha+e";
+begintchar(cv_bhe_code,cb_ba_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_ba_form;erase sketch cb_ba_p;
+vm_e_form_a(cb_ba_width/2);
+sketch (subpath(0,7) of cb_ba_p)..vm_e_pa;
+wedge(6);
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvbhao); telchar "consonant+vowel bha+ao";
+begintchar(cv_bhao_code,cb_ba_width#,vm_e_height1#,wedge_depth#,0,0,0);
+cb_ba_form;erase sketch cb_ba_p;
+vm_ao_form(11,cb_ba_width/2);
+sketch (subpath (0,7) of cb_ba_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+wedge(6);
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvre); telchar "consonant+vowel ra+e";
+begintchar(cv_re_code,cb_ra_width#,vm_e_height3#,0,0,0,0);
+cb_ra_form;
+sketch cv_re_p;
+pivot_message(x31);
+endtchar; etest;
+
+stest(cvle); telchar "consonant+vowel la+e";
+begintchar(cv_le_code,cb_la_width#,vm_e_height1#,0,0,0,0);
+cb_la_form;
+vm_e_form_a(0.6cb_la_width);
+sketch (subpath(0,6) of cb_la_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvlao); telchar "consonant+vowel la+ao";
+begintchar(cv_lao_code,cb_la_width#,vm_e_height1#,0,0,0,0);
+cb_la_form;
+vm_ao_form(11,0.6cb_la_width);
+sketch (subpath (0,6) of cb_la_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvlle); telchar "consonant+vowel lla+e";
+begintchar(cv_lle_code,cb_lla_width#,vm_e_height1#,0,0,0,0);
+ cb_lla_form; erase sketch cb_lla_pa;
+vm_e_form_a(cb_lla_width/2);
+sketch (subpath(0,6) of cb_lla_pa)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvllu); telchar "consonant+vowel lla+u";
+begintchar(cv_llu_code,cb_lla_width#,asc_height#,0,0,0,0);
+ cb_lla_form;vm_a_form(10);
+vm_u_form(12); w:=rt x12b;
+pivot_message(lft x12d);
+endtchar; etest;
+
+stest(cvllao); telchar "consonant+vowel lla+ao";
+begintchar(cv_llao_code,cb_lla_width#,vm_e_height1#,0,0,0,0);
+ cb_lla_form; erase sketch cb_lla_pa;
+vm_ao_form(11,cb_lla_width/2);
+sketch (subpath (0,6) of cb_lla_pa)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvve); telchar "consonant+vowel va+e";
+begintchar(cv_ve_code,cb_va_width#,vm_e_height1#,0,0,0,0);
+cb_va_form;
+vm_e_form_a(cb_va_width/2);
+sketch (subpath(0,2) of cb_va_p)..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvvao); telchar "consonant+vowel va+ao";
+begintchar(cv_vao_code,cb_va_width#,vm_e_height1#,0,0,0,0);
+cb_va_form;
+vm_ao_form(11,0.4cb_va_width);
+sketch (subpath (0,2) of cb_va_p)..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvce); telchar "consonant+vowel ca+e";
+begintchar(cv_ce_code,cb_ca_width#,vm_e_height1#,0,0,0,0);
+ cb_ca_form; erase sketch cb_ca_p;
+vm_e_form_a(cb_ca_width/3);
+sketch (subpath(0,6) of cb_ca_p){up}..vm_e_pa;
+pivot_message(x999);
+endtchar; etest;
+
+stest(cvcao); telchar "consonant+vowel ca+ao";
+begintchar(cv_cao_code,cb_ca_width#,vm_e_height1#,0,0,0,0);
+ cb_ca_form; erase sketch cb_ca_p;
+vm_ao_form(11,cb_ca_width/3);
+sketch (subpath (0,6) of cb_ca_p){up}..subpath (1,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+pivot_message(x11i);
+endtchar; etest;
+
+stest(cvshaa); telchar "consonant+vowel sha+aa";
+begintchar(cv_shaa_code,cb_sha_width#,asc_height#,wedge_depth#,0,0,0);
+cb_va_form;
+sketch cv_paa_p;
+bot rt z25 = (cb_sha_width,-d);
+sketch bot z3{down}..{right}z25;
+pivot_message(x2,x22); %x22 used for alligning au modifier
+endtchar; etest;
+
+stest(cvshu); telchar "consonant+vowel sha+u";
+begintchar(cv_shu_code,cb_va_width#,asc_height#,1.25wedge_depth#,0,0,0);
+cb_va_form;
+sketch subpath(0,3.4) of cb_va_p;
+top z30=(x1,x_height);vm_a_form(30);
+bot rt z25 = (cb_sha_width,-d);
+sketch bot z3{down}..{right}z25;
+ vm_u_form(3);w:=rt x3b;
+pivot_message(lft x3d);
+endtchar; etest;
+
+stest(cvsaa); telchar "consonant+vowel sa+aa";
+begintchar(cv_saa_code,cb_na_width#,asc_height#,0,0,0,0);
+cb_na_form;top z20=(w/2,h);
+path cv_saa_p;
+cv_saa_p=subpath (0,4) of cb_na_p..z20;
+sketch cv_saa_p;
+numeric aa; aa= (x3+x4)/2;
+numeric na,nb;
+(na,nb)=cv_saa_p intersectiontimes
+ ((0,asc_height2)..(cb_na_width,asc_height2));
+z21=point na of cv_saa_p;
+pivot_message(aa,x21); %x21 is used for alligning au modifier
+endtchar; etest;
+
+stest(cvhaa); telchar "consonant+vowel ha+aa";
+begintchar(cv_haa_code,cb_va_width#+vmwidth#,asc_height#,0,0,0,0);
+cb_va_form;
+z10 = point 3.6 of cb_va_p;
+top z11 = (x10,x_height);
+sketch subpath(0,3) of cb_va_p..z11;
+barandhook_forma(11,vmwidth,5);
+vm_a_form(5);vm_hook_form(11e,3);
+w:=max(rt x11e.c,rt x11b);
+endtchar; etest;
+
+stest(cvhao); telchar "consonant+vowel ha+ao";
+begintchar(cv_hao_code,cb_va_width#+vmwidth#,asc_height#,0,0,0,0);
+cb_va_form;
+z10 = point 3.6 of cb_va_p;
+top z11 = (x10,x_height);
+sketch subpath(0,3) of cb_va_p..z11;
+barandhook_forma(11,vmwidth,4);
+numeric oldh;
+vm_a_form(5);erase sketch barandhook_p;oldh:=h;
+vm_ao_form(12,0.63w); sketch barandhook_p..subpath (2,3) of vm_ao_pa;
+sketch subpath (0,5) of vm_ao_pb;
+h:=max(h,oldh);
+pivot_message(x12i);
+endtchar; etest;
+
+stest(cvkshu); telchar "consonant+vowel ksha+u";
+begintchar(cv_kshu_code,cb_ka_width#,asc_height#,cb_ksha_depth#,0,0,0);
+cb_ksha_form;
+vm_a_form(2);
+z20=(cb_ka_width+u,w_height);
+vm_u_form(20); erase sketch vm_u_p;
+sketch cb_ka_p..vm_u_p; w := rt x20b;
+pivot_message(x20d);
+endtchar; etest;
+