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

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

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

%begin
%string(255) passuser,userpass,user,pass,param
%integer x

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

  param=cliparam; param = ":t" %if param=""
  openinput(1, param); selectinput(1)
  %cycle
      readline(userpass)
      %if userpass -> user.(",").pass %start
         passuser = pass.",".user
         x = fcomm('P'<<8,passuser)
         printline(userpass)
      %else
         printline(userpass." wrong format")
      %finish
  %repeat
%endofprogram
