home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / pcwk_09_96.iso / demo / elmark / genie / disk2 / example.sc_ / example.sc
Text File  |  1995-08-03  |  1KB  |  28 lines
  1. //*****************************************************************************
  2. //* This is an example script that shows you how each command can be utilized.*
  3. //* Note that the execution of the script program is suspended after the RUN  *
  4. // * command is executed. It resumes running after the strategy is stopped.   *
  5. // ****************************************************************************
  6. msgbox ( "This is a Genie test script. " ) ;
  7.  
  8. n1 =  inputbox ( "Please enter your\nfirst name:" );
  9.  
  10. n2 =  inputbox ( "Please enter your\nlast name:");
  11.  
  12. msgbox ( "Hello, " + n1 + "  " +  n2 + ".\nPress ENTER to run \"SCRTEST.GNI\" ");
  13.  
  14. t0 = inputbox ( "How many time would you like to run it ?\n(Enter a number 0-99) ");
  15. t1 = int(t0);  // convert string to integer
  16.  
  17. while (t1 > 0)
  18. {
  19.     // All variables set  in script are available in User Programmable Block in a strategy.
  20.     X1 = 10;  // the variable X1 is used in  SCRTEST.GNI  to determine how many second to run. 
  21.     run ("SCRTEST.GNI");
  22.     t1 = t1 -1;
  23.     sleep (1000);     // wait 1000 milli-second
  24.  }
  25.  
  26. msgbox ( "THE END. " ) ;
  27.  
  28.