$BASICTYPE "P"
SUBROUTINE EXECUTE(RETURNVAL, INPUT, OUTPUT)
* RETURNVAL = valeur de retour
* INPUT:
*  att1 = type de commande
*  att2 = reste de la commande
*
EQU  TRUE  TO  1
EQU  FALSE TO  0
*OPEN "VOC" TO B ELSE NULL
*
GSELECT=FALSE
*
BEGIN CASE
  CASE INPUT<1>="SELECT"
    GSELECT=TRUE
  CASE 1
   GSELECT=FALSE
END CASE
*
EXECUTE INPUT CAPTURING OUTPUT
IF GSELECT=TRUE THEN
 OUTPUT=""
 10 *
 READNEXT CLE THEN
  OUTPUT<-1>=CLE
  GOTO 10
 END
END
*WRITE OUTPUT ON B,"XX"
RETURN 1
