DEFINT a-z

FUNCTION PBMAIN()

   x$ = TRIM$(COMMAND$)
   IF x$ = "" OR INSTR(x$, " ")=0 THEN
      PRINT "wrapfile command filename"
      PRINT "(filename is a file containing one filename/command per line)
      EXIT FUNCTION
   END IF

   TheCommand$ = TRIM$(MID$(x$,1,INSTR(x$," ")))
   TheFile$ = TRIM$(MID$(x$,INSTR(x$," ")))

   OPEN TheFile$ FOR INPUT AS #1

   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      STDOUT ""
      STDOUT TheCommand$ + " " + x$
      SHELL TheCommand$ + " " + x$
   LOOP

   CLOSE

END FUNCTION