home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcpursui / inpcp101 / trp.slt < prev    next >
Text File  |  1992-03-03  |  1KB  |  54 lines
  1. // Copyright 1992, FutureSoft Technologies.
  2. // For use with InComm:PcPDial, release 1.0.0
  3. // Feel free to use and modify this script however you see fit.
  4.  
  5. main(str connectfile)
  6. {
  7.    int f;
  8.    int t1,t2,t3,t4,t5,t6,t7;
  9.    int stat;
  10.    str name[31];
  11.    str script[13];
  12.    str user[21];
  13.    str password[21];
  14.  
  15.    f = fopen(connectfile,"r");
  16.    fgets(name,100,f);
  17.    fgets(script,100,f);
  18.    fgets(user,100,f);
  19.    fgets(password,100,f);
  20.    fclose(f);
  21.  
  22.    delay(40);
  23.    cputs("^M");    // English Language
  24.    cputs("Y^M");   // Use ANSI Graphics
  25.  
  26.    waitfor("first name?",15);    // Name and password
  27.    cputs(user);
  28.    cputs("^M");
  29.    delay(10);
  30.    cputs(password);
  31.    cputs("^M");
  32.  
  33.    t1 = track("(N)o, (NS)non-stop?",0);
  34.    t2 = track("left) Main (0) Command?",0);
  35.    t3 = track("(Enter) to continue:",0);
  36.    t4 = track("(H)elp, More?",0);
  37.    t5 = track("Since 'Last Read' (Enter)=yes?",0);
  38.    t6 = track("Main Board Command?",0);
  39.    t7 = track("Press (Enter) to continue?",0);
  40.  
  41.    while (1) {        // Give appropriate responses until main board prompt
  42.        terminal();
  43.        stat = track_hit(0);
  44.        if ((stat == t1) || (stat == t4) || (stat==t5)) {
  45.            cputs("n^M");
  46.        }
  47.        if ((stat == t3) || (stat == t7)) {
  48.            cputs("^M");
  49.        }
  50.        if ((stat == t6) || (stat == t2))
  51.           break;
  52.    }
  53. }
  54.