
% TW -- signs   


beginchar("+",30ut#,20ut#, 0ut#);
pickup va_pen;
z1=(10ut,15ut);
z2=(25ut,15ut);
z3=(17ut,7ut);
z4=(18ut,23ut);
draw z1..z2; draw z3..z4;
labels(range 1 thru 4);
endchar;

beginchar("-",30ut#,20ut#, 0ut#);
pickup va_pen;
z1=(10ut,15ut);
z2=(25ut,15ut);
draw z1..z2;
labels(range 1 thru 2);
endchar;

beginchar(oct"173",35ut#,20 ut#, 0ut#);
pickup va_pen_small;
z1=(10ut,15ut);
z2=(30ut,15ut);
draw z1..z2;
labels(range 1 thru 2);
endchar;

beginchar(oct"174",45ut#,20 ut#, 0ut#);
pickup va_pen_small;
z1=(10ut,15ut);
z2=(40ut,15ut);
draw z1..z2;
labels(range 1 thru 2);
endchar;

beginchar("*",30 ut#,20 ut#, 0ut#);
pickup va_pen;
z9=(15ut,15ut);
z1=z9+(0ut,-10ut);
z2=z9+(10ut,0ut);
z3=z9+(0ut,10ut);
z4=z9+(-10ut,0ut);
z5=z9+(-6ut,-6ut);
z6=z9+(6ut,-6ut);
z7=z9+(6ut,6ut);
z8=z9+(-6ut,6ut);
%
draw z1..z3; draw z2..z4; draw z5..z7; draw z6..z8;
labels(range 1 thru 9);
endchar;

beginchar(":",15 ut#,20 ut#, 0ut#);
pickup pencircle scaled  5ut;
%
z1=(10ut,19ut);
z2=(9ut,9ut);
%
drawdot z1; drawdot z2;
%
labels(range 1 thru 2);
endchar;

beginchar("<",30 ut#,20 ut#,0 ut#);
pickup va_pen;
%
z1=(30ut,25ut);
z2=(10ut,15ut);
z3=(28ut,5ut);
%
draw z1..z2 & z2..z3;
%
labels(range 1 thru 3);
endchar;

beginchar(">", 30ut#, 20ut#, 0ut#);
pickup va_pen;
%
z1=(11ut,25ut);
z2=(30ut,15ut);
z3=(10ut,5ut);
%
draw z1..z2 & z2..z3;
%
labels(range 1 thru 3);
endchar;

beginchar("=", 30ut#,20 ut#, 0ut#);
pickup va_pen;
%
z1=(10ut,15ut);
z2=(25ut,15ut);
z3=(x1,y1-8ut);
z4=(x2,y2-8ut);
%
draw z1..z2  ; draw z3..z4;
%
labels(range 1 thru 4);
endchar;

beginchar("(", 20ut#, 40ut#, 0ut#);
pickup va_pen;
%
z1=(10ut,40ut);
z2=(0ut,-5ut);
%
draw z1{dir -115}..z2{dir -80};
%
labels(range 1 thru 2);
endchar;

beginchar(")",27 ut#,40 ut#, 0ut#);  % 27 statt 20
pickup va_pen;
%
% z1=(10ut,40ut);
% z2=(0ut,-5ut);
z1=(17ut,40ut);
z2=(7ut,-5ut);
%
draw z1{dir -80}..z2{dir -115};
%
labels(range 1 thru 2);
endchar;

beginchar("/",20 ut#,40 ut#, 0ut#);
pickup va_pen;
%
z1=(12ut,40ut);
z2=(0ut,-5ut);
%
draw z1..z2;
%
labels(range 1 thru 2);
endchar;

beginchar(oct"5",20 ut#,20 ut#, 0ut#);   %Anfuehrungsstr. unten
pickup va_pen;
%
z1=(5ut,10ut);
z2=(3ut,0ut);
z3=(x1+10ut,y1);
z4=(x2+10ut,y2);
%
draw z1{dir -90}..z2;
draw z3{dir -90}..z4;
%
labels(range 1 thru 4);
endchar;

beginchar(oct"175", 20ut#, 40ut#, ut#);   % Anfueyrungsstr. oben
pickup va_pen;
%
z1=(5ut,40ut);
z2=(3ut,30ut);
z3=(x1+10ut,y1);
z4=(x2+10ut,y2);
%
draw z1{dir -90}..z2;  draw z3{dir -90}..z4;
%
labels(range 1 thru 4);
endchar;

beginchar(oct"42", 20ut#, 40ut#, ut#); % Anfuehrungsstr. oben rechts
pickup va_pen;
%
z1=(5ut,40ut);
z2=(3ut,30ut);
z3=(x1+10ut,y1);
z4=(x2+10ut,y2);
%
draw z1{dir -90}..z2;  draw z3{dir -90}..z4;
%
labels(range 1 thru 4);
endchar;

beginchar(oct"134", 20ut#, 40ut#, 0ut#); % Anfuehrungsstr. oben links
pickup va_pen;
%
z1=(5ut,40ut);
z2=(7ut,30ut);
z3=(x1+10ut,y1);
z4=(x2+10ut,y2);
%
draw z1{dir -90}..z2;  draw z3{dir -90}..z4;
%
labels(range 1 thru 4);
endchar;

beginchar(oct"140", 7ut#, 40ut#, 0ut#); % einf. Strich oben links
pickup va_pen;
%
z1=(5ut,40ut);
z2=(7ut,30ut);
z3=(x1+10ut,y1);
z4=(x2+10ut,y2);
%
draw z1{dir -90}..z2;
%
labels(range 1 thru 4);
endchar;

beginchar(oct"177",18ut#,15ut#,0ut#);   % Tuedelchen
pickup va_pen_big;
z1=(-3ut,22ut);
z2=z1+(9ut,0ut);
z3=z1+(-1ut,-1ut);
z4=z2+(-1ut,-1ut);
draw z1..z3; draw z2..z4;
labels(range 1 thru 4);
endchar;

beginchar("?", 40ut#,39 ut#,0 ut#);
pickup va_pen;
%
z0=(5ut,0ut);
z1=(4ut,32ut)+z0;
z2=(15ut,40ut)+z0;
z3=(26ut,32ut)+z0;
z4=(11ut,15ut)+z0;
z5=(10ut,5ut)+z0;
%
draw z1{dir 80}..z2{right}..z3{dir -100}..z4{dir -100};
pickup pencircle scaled  5ut;
drawdot z5;
%
labels(range 0 thru 5);
endchar;

beginchar("!",25 ut#,39 ut#, 0ut#);
pickup va_pen;
%
z0=(5ut,0ut);
z1=(10ut,39ut)+z0;
z2=(5ut,11ut)+z0;
z3=(4ut,3ut)+z0;
%
draw z1..z2;
pickup pencircle scaled  5ut;
drawdot z3;
%
labels(range 0 thru 3);
endchar;

beginchar(";",11 ut#,20 ut#,19 ut#);
pickup va_pen;
%
z1=(11ut,14ut);
z2=(10ut,5ut);
z3=(5ut,-8ut);
draw z2{dir -90}..z3{dir -110};
%
pickup pencircle scaled  5ut;
drawdot z1;
%
labels(range 1 thru 3);
endchar;

beginchar(".",10 ut#,10 ut#,0 ut#);
%pickup va_pen_big;
pickup pencircle  scaled 5ut;
%
z1=(4ut,0ut);
%
drawdot z1;
%
labels(range 1 thru 2);
endchar;

beginchar(",", 20ut#, 10ut#,6 ut#);
pickup va_pen;
%
z1=(14ut,9ut);
z2=(8ut,-6ut);
%
drawdot z1;
draw z1+(1ut,0ut){dir -80}..z2{dir -125};
%
labels(range 1 thru 2);
endchar;

beginchar(oct"47", 10ut#, 40ut#,0 ut#);  % Komma oben
pickup va_pen;
%
z1=(4ut,35ut);
z2=(0ut,25ut);
%
drawdot z1;
draw z1+(1ut,0ut){dir -80}..z2{dir -125};
%
labels(range 1 thru 8);
endchar;
