/* DEMONSTRATION OF TYPESMITH'S AREXX CAPABILITIES */
/* Copyright 1993 Soft-Logik Publishing Corporation */
/* May not be distributed without Soft-Logik Publishing Corporation's express written permission */

OPTIONS RESULTS
TRACE OFF

ADDRESS 'PAGESTREAM'

/* draw a serif 'A' */

CREATEPATH 0 0 0 0
ADDPOINT MOVETO 0.18 0.02 LINETO 0.18 0.2 CURVETO 0.54 0.2 0.81 0.39 1.05 0.97 LINETO 3.36 6.51 LINETO 3.58 6.51
ADDPOINT LINETO 6.06 0.73 CURVETO 6.26 0.32 6.5 0.2 6.83 0.2 LINETO 6.83 0.1
ADDPOINT LINETO 4.38 0.1 LINETO 4.38 0.2 CURVETO 4.95 0.2 5.12 0.37 5.03 0.73
ADDPOINT LINETO 4.47 2.08 LINETO 1.97 2.08 LINETO 1.53 0.97
ADDPOINT CURVETO 1.27 0.46 1.39 0.2 2.09 0.2 LINETO 2.09 0.01 CLOSEPATH
ADDPOINT MOVETO 2.11 2.51 LINETO 4.33 2.51 LINETO 3.22 5.12 CLOSEPATH