home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e060 / 8.ddi / TUTOR / AITOOLS.IPF next >
Encoding:
Text File  |  1986-04-04  |  1.3 KB  |  35 lines
  1. !********
  2. !*
  3. !*  AITOOLS.IPF        This is the program which handles all of the
  4. !*            Information Management demonstration programs.
  5. !*            Note: this is a sample only.  The actual AITOOLS
  6. !*            being executed is contained in library GDEMO.ILF
  7. !*
  8. !********
  9. load intro        /* These forms were saved with the "f" option.    */
  10. use empinfo        /* Use tables EMPINFO and DEPTINFO        */
  11. use deptinfo
  12. default is empinfo    /* The default table is EMPINFO            */
  13. e.serr = true        /* Supress error message (for the next command)    */
  14. calc stop        /* In case there is a spreadsheet, purge it    */
  15. while true do
  16.     doaitool = "" 
  17.     putform aitools     /* Information Management menu        */
  18.     getform aitools
  19.     clear
  20.     test doaitool
  21.     case "1": perform tabledef  ;break    /* Table definitions    */
  22.     case "2": perform listum    ;break    /* Data retrieval    */
  23.     case "3": perform spreadit  ;break    /* Spreadsheets        */
  24.     case "4": perform ggraph    ;break    /* Graphics        */
  25.     case "5": perform gtext        ;break    /* Text processing    */
  26.     case "6": perform formrept  ;break    /* Forms and Templates    */
  27.     case "7": perform remtcomm  ;break    /* Remote communication */
  28.     case "8": putform mouseit
  29.           askkey        ;break
  30.     case "9": release aitools;release mouseit
  31.           finish empinfo;finish deptinfo     /* Close files    */
  32.           return; break
  33.     endtest
  34. endwhile
  35.