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 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" SENDCRSPLIT EXITDELPHI 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 EXITGENIE 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ÿ:"ÿ