LEX    'VERLEX'
       ID     #5D
       MSG    0
       POLL   POLHND
       ENDTXT
pVER$  EQU    #00
POLHND
       SETHEX
       P=     0
       LC(2)   pVER$
       ?B=C   B
       GOYES  CONFIG
       RTNSXM
CONFIG
       CR3EX
       D1=C
       A=R2
       D1=D1- 14
       CD1EX
       ?C>A   A
       GOYES  SUITE
       CD1EX
       CR3EX
       RTNSXM
SUITE
       CD1EX
       P=     0
       LCASC  ' ISTRIA'
       P=     13
       DAT1=C WP
       CD1EX
       CR3EX
       CD1EX
       RTNSXM
       END