In the first few steps in the script below, is there a way to have the shelf number pulled from one text file and the slot number pulled from another. (In other words, I need the numbers transmitted in both those steps to be grabbed from a text file. Can I use the same text file and separate each pair of delimeters with a comma or such??)
proc main
string sLine
if fopen 0 "nychips1.txt" READ TEXT
; TELNET INTO THE CONTROLLER
connectmanual telnet "89.1.16.101"
; CHOOSE 1 SELECT UNIT
waitfor "SELECT UNIT" Forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "1"
transmit "^M"
; CHOOSE 1 TO CHANGE THE SHELF
waitfor "SHELF=" Forever
waitfor "ENTER SELECTION : ^[[24;32H"
transmit "1"
transmit "^M"
; ENTER THE SHELF NUMBER
waitfor "ENTER SHELF : ^[[24;28H" Forever
transmit "3"
transmit "^M"
; CHOOSE 2 TO CHANGE THE SLOT
waitfor "ENTER SELECTION : " Forever
while not feof 0
fgets 0 sLine
transmit "2"
transmit "^M"
; ENTER THE SLOT NUMBER
waitfor "ENTER SLOT : ^[[24;27H" Forever
if nullstr sLine
exitwhile
endif
transmit sLine
transmit "^M"
; CHOOSE 3 TO ENTER THE SHELF AND SLOT CHOSEN
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "3"
transmit "^M"
; CHOOSE 7 FOR DIAL BACKUP
waitfor "DIAL BACKUP" forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "7"
transmit "^M"
; CHOOSE 1 TO GO TO DIAL BACKUP
waitfor " GO TO DIAL BACKUP" Forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "1"
transmit "^M"
; CHOOSE 1 TO DIAL STORED NUMBER
waitquiet 1
waitfor "DIAL STORED NUMBER" Forever
waitfor "ENTER SELECTION : ^[[24;32H"
transmit "1"
transmit "^M"
; CHOOSE 1 TO DIAL THE FIRST STORED NUMBER
waitfor "ENTER NUMBER TO DIAL :" Forever
transmit "1"
transmit "^M"
waitquiet 8
transmit "^["
waitquiet 2
transmit "^["
waitquiet 2
endwhile
endif
fclose 0
endproc
proc main
string sLine
if fopen 0 "nychips1.txt" READ TEXT
; TELNET INTO THE CONTROLLER
connectmanual telnet "89.1.16.101"
; CHOOSE 1 SELECT UNIT
waitfor "SELECT UNIT" Forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "1"
transmit "^M"
; CHOOSE 1 TO CHANGE THE SHELF
waitfor "SHELF=" Forever
waitfor "ENTER SELECTION : ^[[24;32H"
transmit "1"
transmit "^M"
; ENTER THE SHELF NUMBER
waitfor "ENTER SHELF : ^[[24;28H" Forever
transmit "3"
transmit "^M"
; CHOOSE 2 TO CHANGE THE SLOT
waitfor "ENTER SELECTION : " Forever
while not feof 0
fgets 0 sLine
transmit "2"
transmit "^M"
; ENTER THE SLOT NUMBER
waitfor "ENTER SLOT : ^[[24;27H" Forever
if nullstr sLine
exitwhile
endif
transmit sLine
transmit "^M"
; CHOOSE 3 TO ENTER THE SHELF AND SLOT CHOSEN
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "3"
transmit "^M"
; CHOOSE 7 FOR DIAL BACKUP
waitfor "DIAL BACKUP" forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "7"
transmit "^M"
; CHOOSE 1 TO GO TO DIAL BACKUP
waitfor " GO TO DIAL BACKUP" Forever
waitfor "ENTER SELECTION : ^[[24;32H" Forever
transmit "1"
transmit "^M"
; CHOOSE 1 TO DIAL STORED NUMBER
waitquiet 1
waitfor "DIAL STORED NUMBER" Forever
waitfor "ENTER SELECTION : ^[[24;32H"
transmit "1"
transmit "^M"
; CHOOSE 1 TO DIAL THE FIRST STORED NUMBER
waitfor "ENTER NUMBER TO DIAL :" Forever
transmit "1"
transmit "^M"
waitquiet 8
transmit "^["
waitquiet 2
transmit "^["
waitquiet 2
endwhile
endif
fclose 0
endproc