%%postscript /sh0{ gsave exch .45 add exch T .85 SLW
%%postscript    -1.2 -8.4 M 0 15.4 RL
%%postscript    1.4 -7.2 M 0 15.4 RL stroke
%%postscript    -1 0 translate .9 1 scale
%%postscript    -2.6 -3 M 5.4 1.6 RL 0 -2.2 RL -5.4 -1.6 RL 0 2.2 RL fill
%%postscript    -2.6 3.4 M 5.4 1.6 RL 0 -2.2 RL -5.4 -1.6 RL 0 2.2 RL fill
%%postscript    grestore}!
%%postscript /ft0{ gsave T .95 SLW
%%postscript    -1.8 2.5 M
%%postscript    6.4 3.3 6.5 -3.6 0 -6.6 RC
%%postscript    4.6 3.9 4.5 7.6 0 5.7 RC
%%postscript    currentpoint fill M
%%postscript    0 7.1 RM 0 -7.1 RL stroke
%%postscript grestore}!

X:1
T:microabc tutorial
T:19-edo
#include "tut.snt"
M:6/8
L:1/8
K:C
[C][^C][_D] [=D][^D][_E] |\
[=E]2 z [E][^E][F] |\
[^F][_G][=G] [^G][_A][=A] |\
[^A][_B][=B] [^B]3 | [c]3 z3 |]

