home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / zmodem / pips05.arc / PIPSLOG.T < prev    next >
Text File  |  1987-11-22  |  940b  |  35 lines
  1.         :Version 0.03
  2.         if is7,1 goto fido                                   :same logon as fido
  3.         if is7,2 goto fido
  4.         if is7,3 goto pcb
  5.         if is7,4 goto rbbs
  6.         goto end                                               :not found
  7. fido:   pat;
  8.         pat 5 "FIRST name:"
  9.         pat 6 "LAST name:"
  10.         pat 7 [Y,n]:
  11.         pat 8 Password:
  12.         put \r\336\r ; wait -f15
  13.         if 5 put first\r
  14.         wait -f15
  15.         if 6 put last\r
  16.         wait -f15
  17.         if 7 put y\r
  18.         wait -f15
  19.         if 8 put password\r
  20.         goto end
  21. pcbrd:  pat;
  22.         pat 5 [C/R]=no?
  23.         pat 6 "first name?"
  24.         wait -f30
  25.         if 5 put y\r ;wait -f30
  26.         if 6 put "first last password\r"
  27.         goto end
  28. rbbs:   pat;
  29.         pat 5 [C/R]=no?
  30.         pat 6 "first name?"
  31.         wait -f30
  32.         if 5 put y\r ;wait -f30
  33.         if 6 put "first;last;password\r"
  34. end:
  35.