home *** CD-ROM | disk | FTP | other *** search
/ CICA 1994 September / CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso / win3 / desktop / sh93v100.lzh / APA next >
Text File  |  1993-09-06  |  751b  |  37 lines
  1.  
  2. /F1 "get help"/ {
  3.     if ((x = select(250, 100, "Helpfiles", "", enum(help), "")) != "\z") {
  4.         exec("winhelp " help[x], 1);
  5.         }
  6.     }
  7.  
  8.  
  9. /F2 "start application"/ {
  10.     if ((x = select(250, 100, "Applications", lastapp, enum(application), "")) != "\z") {
  11.         x = application[lastapp = x];
  12.         printf ("%s", x);
  13.         exec(x, 1);
  14.         }
  15.     }
  16.  
  17. /shift F2 "launch command"/ {
  18.     if ((x = input("Launch Command", "Command", "", lastcmd)) != "\z") {
  19.         printf ("%s = %s", x, exec(lastcmd = x, 1))
  20.         }
  21.     else
  22.         printf ("cancelled");
  23.     }
  24.  
  25. /F3 "start utility"/ {
  26.     if ((x = select(250, 100, "Utilities", lastutil, enum(util), "")) != "\z") {
  27.         x = util[lastutil = x];
  28.         printf ("%s", x);
  29.         exec(x, 1);
  30.         }
  31.     }
  32.  
  33.  
  34. BEGIN {
  35.     ctrl("application assistent")
  36.     }
  37.