PROC test:
  LOCAL event&(10)
  WHILE $FFFF
    gAT Event&(6),Event&(7)
    GETEVENT32 Event&()
    WHILE Event&(1)=&408 AND Event&(4)=&6
      gLINETO Event&(6),Event&(7)
      GETEVENT32 Event&()
    ENDWH
    IF Event&(1)=&408 AND Event&(4)=&1
      gLINETO Event&(6),Event&(7)
    ENDIF
  ENDWH
ENDP