FILENAME = FIELD(@SENTENCE," ",2)
FIELDNAME = FIELD(@SENTENCE," ",3)
SAMPLE_SIZE = 30
IT = ""
LO = ""
THE_DICT = XLATE("DICT ":FILENAME,FIELDNAME,-1,"X")
EXECUTE "SELECT ":FILENAME:" SAMPLE ":SAMPLE_SIZE
EOF = @FALSE
LOOP
   READNEXT @ID ELSE EOF = @TRUE
UNTIL EOF
   @RECORD=XLATE(FILENAME,@ID,-1,"X")
   IT<-1> = ITYPE(THE_DICT)
REPEAT
*
EXECUTE "LIST ":FILENAME:" ":FIELDNAME:" SAMPLE ":SAMPLE_SIZE:" ID.SUP" CAPTURING STUFF
FOR X = 1 TO SAMPLE_SIZE
   PRINT IT<X>:"               ":STUFF<X>
   NEXT X
RETURN
END