BEGAPS 'myID1' 'grobject' STLIST;
 APSATTR 'name' "14 1 'myObj1'";
 APSATTR 'viewcontext' "16 4 -40 0 50 50";
BEGAPSBODY;
 FILLCOLR 3;
 POLYGON 30,50 70,50 70,15 30,15 30,50;
ENDAPS;