BEGAPS 'myID1' 'grobject' STLIST;
 APSATTR 'name' "14 1 'myObj1'";
BEGAPSBODY;
 FILLCOLR 3;
 POLYGON 30,50 70,50 70,15 30,15 30,50;
ENDAPS;