home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 223 / RSA2.ZIP / ASP.ZIP / GENIE1.ASP < prev    next >
Encoding:
Text File  |  1993-05-10  |  280 b   |  18 lines
  1. PROC MAIN
  2. WHEN 0 "roll" TRANSMIT "^M"
  3. PAUSE 1
  4. TRANSMIT "HHH^M"
  5. WAITFOR "U#=" 90
  6. PAUSE 1
  7. TRANSMIT "password,password^M"
  8. WAITFOR "tinue?" 90
  9. PAUSE 1
  10. LOG OPEN
  11. TRANSMIT "*stock^M"
  12. WAITFOR "<H>elp?" 90
  13. PAUSE 1
  14. TRANSMIT "1^M"
  15. WAITFOR "vious?" 90
  16. PAUSE 1
  17. TRANSMIT "3^M"
  18.