home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / GEN9640 / SCRIPT.TXT < prev    next >
Text File  |  2006-10-19  |  4KB  |  2 lines
  1. TIFILESÇRP╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S╩S* Sample script routine       SEND "ATZ"       SENDCR       PAUSE 1       SEND "ATM0"       SENDCR       PAUSE 1TOP    ASSIGN $1 "13"       CONVERT$ $1       ASSIGN $2 "CONNECT"        CLEAR
  2.        BOX        BEEP 1       DISPLAY 8 15 "Select a network or service"1       DISPLAY 9 15 "---------------------------"#       DISPLAY 11 20 "1-Compuserve"       DISPLAY 12 20 "2-DELPHI"       DISPLAY 13 20 "3-GEnie"       DISPLAY 14 20 "4-BBS1"        DISPLAY 15 20 "5-BBS2"       DISPLAY 16 20 "6-Exit"KEYS   GETKEY $9       IF $9 = "49" CIS       IF $9 = "50" DELPHI       IF $9 = "51" GENIE       IF $9 = "52" BBS1       IF $9 = "53" BBS2       IF $9 = "54" SPLIT       GOTO KEYS  CIS    CLEAR        BEEP       SET BAUD 2400       SET DUPLEX FULL       GOSUB INITM       SEND "5551212"       SEND $1       TIMEOUT 20 BOTTOM       PROMPT $2       PAUSE 1       ASSIGN $3 "3"       CONVERT$ $3       SEND $3       PROMPT ":"        SEND "70000,0000"       SEND $1       PROMPT "Pass"       PAUSE 1       SEND "MYPASSWORD"       SEND $1:* Script will recognize the occasional extra menu at logon       ASSIGN $3 "RATES"       ASSIGN $7 "TIFORUM"HUH    GRAB 100 $2 T ":"        POS $2 $7 $8       IF $8 <> "0" SPLIT       POS $2 $3 $8       IF $8 = "0" HUH       SEND "G TIFORU"       SENDCR SPLIT  EXIT DELPHI CLEAR        BEEP       SET BAUD 2400       SET DUPLEX FULL       GOSUB INITM       SEND "5551212" ":"        SEND $1       TIMEOUT 20 BOTTOM       PROMPT $2       PAUSE 1       SEND "@"       PAUSE 1       SEND "D"       PAUSE 1       SEND $1       PROMPT "TERMINAL="       SEND $1       PROMPT "@"       SEND "C DELPHI"       SEND $1 212" ":"        PROMPT "Username:"       SEND "JOHNDOE"       SEND $1       PROMPT "Password:"       SEND "HOLYCOW"       SEND $1        EXIT GENIE  CLEAR        BEEP       SET BAUD 1200       SET DUPLEX HALF       GOSUB INITM       SEND "5551212" " ":"        SEND $1       TIMEOUT 20 BOTTOM       PROMPT $2       PAUSE  1       PROMPT "="       PAUSE 1       SEND "NAME,PASSWORD"       SEND $1        EXITBBS1   SET BAUD 2400        CLEAR       SET DUPLEX FULL       GOSUB INITM  "5551212" " ":"        SEND "1-919-555-1212"       SENDCR       TIMEOUT 30 BOTTOM       ASSIGN $4 "FIRST name>"G1     GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" G1       SEND "JOHN"       SENDCR       ASSIGN $4 "LAST name>"G2     GRAB 100 $5 212" " ":"        POS $5 $4 $3       IF $3 = "0" G2       SEND "DOE"       SENDCR       ASSIGN $4 "Password>"G3     GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" G3       SEND "HELLO"       SENDCR       ASSIGN $4 "More [Y/n]?>"G4     GRAB 100 $5 ":"        POS $5 $4 $3       IF $3 = "0" G4       SEND "N"        CLEAR        EXITBBS2   SET BAUD 2400        CLEAR       SET DUPLEX FULL       GOSUB INITM       SEND "555-1212"       SENDCR       TIMEOUT 30 BOTTOM       ASSIGN $4 "Y/N):" $5 ":" DL1    GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" DL1       SEND "N"       PROMPT "NAME or NEW"       ASSIGN $4 "NN:"DL2    GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" DL2       SEND "99"       SENDCR       ASSIGN $4 "PW:" $5 ":" DL3    GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" DL3       SEND "HELLO"       SENDCR       ASSIGN $4 "PH: XXX-XXX-"DL4    GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" DL4       SEND "1212"       SENDCR        EXITINITM  PAUSE 1 :"        SEND "ATDT"       RETURNBOTTOM SEND "+++"       PAUSE 2       GOTO TOP        SENDCR       ASSIGN $4 "PH: XXX-XXX-"DL4    GRAB 100 $5       POS $5 $4 $3       IF $3 = "0" DL4       SEND "1212"       SENDCR        EXITINITM  PAUSE 1 :"