//*********************************************************************
// Direct Script Versiion 1.2 11.04.95
//********************************************************************* 
01,A,"#INTERRUPT","Connecting",2,2      
02,A,"#ENTER","Connecting",3,3
03,W,10,2,1,"$TerminalLog",4,"$TerminalLoc",6
04,A,"%Username","Sending Username",5,5
05,W,10,4,1,"$TerminalLoc",6
06,A,"$TerminalCon","Terminal",7,7
07,W,10,6,1,"$GetUserName",8
08,A,"?Username","Sending Username",9,9
09,W,10,8,1,"$GetPassword",10
10,A,"?Password","Validating...",11,11
11,W,15,15,1,"![c",12,"$PassError",20
12,A,"![?1;2C","Communicating",13,13
13,W,15,15,1,"!7",14
14,A,"![24;1R","Communicating",15,15
15,W,30,18,1,"READY",16 
16,A,"#VERSION","Initializing",17,17
17,A,"?LocServerName","Initializing",0,0
18,W,1,1,1,""1			//dummy
19,W,1,1,1,""1			//dummy
//
// Here we have a password failure
// present the dialog box and retry the password
20,A,"%PASSWORD","Input Password",21,21     // get the new Username & Password from the user
21,A,"#ENTER","Input Password",22,22
22,W,10,99,1,"$GETUSERNAME",23	            // wait for the Username prompt
23,A,"?USERNAME","Sending Username",24,24   // send User Name
24,W,30,99,1,"$GETPASSWORD",25              // wait for Password prompt
25,A,"?PASSWORD","Validating...",26,26      // send our new password
26,W,10,99,1,"![c",14,"READY",18,"$PASSERROR",99// check for Authorization failure, Exit 99 if failure
END				            //  .. or go rejoin main script





