home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / ALLSCRPT.ZIP / NEWSNETU.SCR < prev    next >
Text File  |  1986-02-24  |  2KB  |  65 lines
  1. .NEWSNETU.SCR -- QMODEM Script created and tested at 300, 1200, and 2400
  2. .baud, by Brian Raub, on 2/24/86, using Uninet nodes near Philadelphia
  3.  
  4. .THIS IS A LINKED SCRIPT FOR NEWSNET ACCESS VIA UNINET; LINK IT TO ANY
  5. .300/1200/2400 BAUD UNINET PHONE NUMBER IN YOUR QMODEM PHONE DIRECTORY
  6.  
  7. .NEWSNET IS A BUSINESS INFORMATION SERVICE. RATES *START* AT 24.00/HR.
  8. .FOR INFORMATION ON NEWSNET, CALL (VOICE) 800-345-1301 OR 215-527-8030.
  9. .FOR YOUR LOCAL UNINET PHONE#, CALL (VOICE) 800-821-5340 OR 816-221-2444.
  10.  
  11. .SPECIAL NOTE: Be sure to set your Uninet comm parameters to 
  12. .8-bit word length, no parity, 1 stop bit (8-N-1). 7-E-1 may NOT work!
  13.  
  14. .USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
  15. .  [1] Your NewsNet account# (shown below as NET9999)
  16. .  [2] Your NewsNet password (shown below as FAKE-PASSWORD)
  17.  
  18. .Display message on-screen only
  19. NOTE ** LOGON TO NewsNet VIA UNINET **
  20.  
  21. .The next line says to WAITFOR 60 seconds before halting script
  22. TIMEOUT 60 HALT
  23.  
  24. .Set key parameters for NewsNet
  25. TURNON XON/XOFF
  26. TURNOFF ECHO LINEFEED
  27.  
  28. .Uninet 'logon' is PAUSE, CR, PAUSE, ., PAUSE, CR
  29. SEND "~{~.~{"
  30.  
  31. .Wait for Uninet to request host service ID
  32. WAITFOR "service :"
  33.  
  34. .Reply with your NewsNet connect ID for Uninet
  35. SEND "NET{"
  36.  
  37. .Wait for NewsNet to request your logon
  38. WAITFOR "Please sign on"
  39. WAITFOR ">"
  40.  
  41. .[1] Send your NewsNet Account# followed by CR
  42. SEND "ID NET9999{"
  43.  
  44. .Wait for NewsNet to request your password
  45. WAITFOR "Password?"
  46.  
  47. .[2] Send your password; include control characters if required;
  48. .for security, it will NOT echo to your screen or printer:
  49. SEND "FAKE-PASSWORD{"
  50.  
  51. .NewsNet now reports successful logon if Account# & Password were valid
  52.  
  53. .If you wish to turn on your printer, REMOVE the . in front of next line
  54. .TURNON PRINT
  55.  
  56. .Discontinue script processing; return control to keyboard
  57. RETURN
  58.  
  59. .In case of failure (TIMEOUT 60)
  60. HALT:
  61. NOTE Logon to NewsNet via Uninet has failed. Try later!
  62. HANGUP
  63. RETURN
  64.