home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e060 / 6.ddi / TUTOR / INTERACT.IPF < prev    next >
Encoding:
Text File  |  1986-04-24  |  794 b   |  38 lines
  1. load interact
  2. while true do
  3.     e.auto=true
  4.     dointact=""
  5.     putform interact
  6.     getform interact
  7.     clear
  8.     test dointact
  9.     case "1":
  10.         putform limits;        askkey;break
  11.     case "2":
  12.         putform buildit;    askkey
  13.         putform buildit1;    askkey1
  14.         p="BUILD ruleset"
  15.         at 12,14; doit  
  16.         putform buildit2;    askkey
  17.         build;break
  18.     case "3":
  19.         use empinfo;use deptinfo
  20.         putform chatter;    askkey
  21.         putform chatter1;    askkey
  22.         chat
  23.         finish deptinfo;finish empinfo
  24.         break
  25.     case "4":
  26.         putform manageit;    askkey
  27.         e.guid=true; release library gdemo
  28.         release all; indemo = false;
  29.         bye;    break
  30.     case "5":
  31.         release manageit;
  32.         release chatter1;    release chatter
  33.         release buildit2;    release buildit1
  34.         release limits;        release interact
  35.         release buildit;     clear; return;break
  36.     endtest
  37. endwhile
  38.