!PASSALL: Set a list of user/passwords. 
!J.Butler Oct 85

!Input is file of lines of <pass>,<user>

%include "inc:fs.imp"
%include "inc:util.imp"

%begin
%string(255) passuser
%integer x

  %onevent 3,9 %start
    printline(event_message)
    close input
    %stop
  %finish

  openinput(1, cliparam); selectinput(1)
  %cycle
      readline(passuser)
      printline(passuser)
      x = fcomm('P'<<8,passuser)
  %repeat
%endofprogram
