home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 December
/
simtel1292_SIMTEL_1292_Walnut_Creek.iso
/
msdos
/
qmodem
/
allscrpt.arc
/
EASYNET.SCR
< prev
next >
Wrap
Text File
|
1986-02-25
|
5KB
|
143 lines
.EASYNET.SCR -- QMODEM Script created and tested at 1200
.baud, by Brian Raub, on 2/25/86, using 1-800-EASYNET
.This is a standalone script to access EasyNet -- an online service
.that provides easy access to many different online services. There's
.no command language to learn; EasyNet asks you simple questions, then
.translates your answers to 'native tongues' of ADP Network Services,
.BRS, DataTimes, DataSolve, Dialog, NewsNet, Pergamon InfoLine, Questel,
.SDC, VU/TEXT, and other bibliographic and full-text search services.
.This script accesses EasyNet via a toll-free 800#. Each access requires
.a credit card. The charges as of 2/24/86 are: 1.00 per access and 8.00
.for each successful search. There is no charge for an unsuccessful search,
.and no charge for online time. The FIRST TIME you call, your credit card
.will be checked, and EasyNet will call you back for voice verification.
.For more details, contact EasyNet Customer
.Service: 800-841-9553 (in PA 215-296-1793)
.=======================================================================
.YOU **MUST** USE YOUR EDITOR OR WORD PROCESSOR TO CHANGE:
. [1] Your baud rate (SETCOMM C if 300 baud, SETCOMM F if 1200 baud)
. [2] Your credit card info (three questions: card#, name, exp. date)
. [3] Your VOICE phone# for verification each time you call (actual
. voice verification will occur after the first call only)
. [4] A credit verification# which is used ONLY for your second call
. (shown below as 9999)
.=======================================================================
.NOTE: Use 300 or 1200 baud, 8-N-1; charges are not speed-dependent. For
.300 baud the next command should be SETCOMM C; for 1200, use SETCOMM F
SETCOMM F
.Set key parameters:
TURNOFF LINEFEED ECHO
TURNON XON/XOFF
.In case of failure, goto label HALT:
TIMEOUT 60 HALT
NOTE ** Logon to EasyNet **
./////////////////////////////////////////////////////
.TO MAKE THIS A LINKED SCRIPT, ADD EASYNET & PHONE# TO
.YOUR QMODEM PHONE DIRECTORY, THEN DELETE THIS SECTION
.Dial 1-800-EASYNET using Hayes command:
SEND "ATDT 1-800-327-9638{"
.Wait for modem to connect
WAITFOR "CONNECT"
./////////////////////////////////////////////////////
.Easynet requests your Visa, Mastercard, American Express or EasyNet Account#
WAITFOR "->"
.[2] Send your credit card account# (spaces not necessary, but OK)
SEND "0000 0000 0000 0000{"
.EasyNet asks for your name as it appears on the card:
WAITFOR "Card Holder's Name:"
WAITFOR "->"
.[2] Reply with your name as it appears on the card:
SEND "John Q. Public{"
.EasyNet requests card expiration date:
WAITFOR "Card Expiration Date:"
WAITFOR "Numeric month and year, please."
WAITFOR "->"
.[2] Reply with expiration month/year:
SEND "1/86{"
.EasyNet requests your phone# for verification:
WAITFOR "Please enter the area code and phone number"
WAITFOR "where you may be reached in the next few minutes."
WAITFOR "e.g. 111-555-1212"
WAITFOR "->"
.[3] Reply with your VOICE phone number -- EasyNet will call you at
.this number to verify credit info, the FIRST time you call EasyNet
SEND "111-555-1212{"
.EasyNet displays information for verification:
WAITFOR "Is this correct? (Yes/No) ->"
.Reply with Y for yes:
SEND "Y{"
.EASYNET WILL HANG UP HERE AFTER THE FIRST CALL, THEN CALL YOU TO
.VERIFY YOUR CREDIT CARD INFORMATION. THEN YOU MUST EDIT [3] BELOW....
.==============
.READ CAREFULLY
.==============
.[4] The SECOND time you call -- and never again -- you must enter a credit
.verification number that EasyNet gives you by phone. Therefore you must
.enter that number into this script AFTER the FIRST call, then DELETE the
.next two lines of this script AFTER the SECOND call:
WAITFOR "->"
SEND "9999{"
.EasyNet asks for
.1 PRINTER only
.2 VIDEO only
.3 PRINTER and VIDEO
WAITFOR "Type 1, 2 or 3 and hit (RETURN) key!"
WAITFOR "->"
.Reply 1 for continuous display
SEND "1{"
.EasyNet requests printer/screen width:?
WAITFOR "How many characters per line ?"
WAITFOR "EX: 40, 64, 72, 80, 132"
WAITFOR "->"
.Reply with 80 or your printer/screen width:
SEND "80{"
.Now turn on your printer:
TURNON PRINT
NOTE ** 3 bells ring when EasyNet is ready for your command **
WAITFOR "Total charges thus far :"
WAITFOR "->"
.SUCCESS! Beep 3x, discontinue script, return control to your keyboard:
BEEP 400
BEEP 400
BEEP 400
RETURN
.In case of failure:
HALT:
NOTE ** LOGON TO EasyNet FAILED -- EDIT SCRIPT OR TRY LATER **
BEEP 400
BEEP 200
HANGUP
RETURN