$BASICTYPE "P"
SUBROUTINE SELECTITEM(RETURNVAL, INPUT, OUTPUT)
FOR I=1 TO DCOUNT(INPUT,@AM)
  OUTPUT<I>=I 'R%3':' ':INPUT<I>
NEXT I
RETURNVAL=1234
RETURN 1
