home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e060 / 8.ddi / TUTOR / GDEMO.IPF < prev    next >
Encoding:
Text File  |  1986-04-11  |  1.1 KB  |  42 lines
  1. !**********
  2. !*
  3. !*   GDEMO.IPF    - Main program of the Guru demo
  4. !*
  5. !**********
  6.  
  7. e.bacg = "UAUUA"
  8. e.wfu = false;    plot text "";    e.wfu = true
  9. e.auto=true
  10. e.lstr=80
  11. load library gdemo
  12. indemo=true
  13. load gdemo;    load mac;    load anykey
  14. putform logo;            sleep(3); release logo
  15. putform present;  at 13,18;    sleep(3); release present;    clear
  16. putform co;            sleep(4); release co;        clear
  17. putform legal;            sleep(5); release legal;    clear
  18. putform explore;  at 8,1;    sleep(4); release explore
  19. putform explore1; at 11,1;    sleep(4); release explore1
  20. putform explore2; at 15,1;    sleep(4); release explore2
  21. putform explore3; at 24,53;    wait;     release explore3
  22.  
  23. while true do
  24.     clear
  25.     dointro = "" 
  26.     putform intro
  27.     getform intro
  28.     clear
  29.     test dointro
  30.         case "1": perform aitech;    break
  31.         case "2": perform exsys;    break
  32.             case "3": perform aitools;    break
  33.             case "4": perform expert;    break
  34.             case "5": putform orderit
  35.               askkey;        break
  36.         case "6": perform interact;    break
  37.             case "7": indemo=false
  38.               run "copy textit.txt gteval.txt"
  39.               e.guid=false; bye;    break
  40.     endtest
  41. endwhile
  42.