home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / QUES.TYP < prev    next >
Encoding:
Text File  |  1992-07-10  |  881 b   |  44 lines
  1. *disp
  2. setactivity(Quest. Menu)
  3. if (/Expert)=(Y) then linefeed(1)
  4. if (/EXPERT)=(Y) then goto (prompt)
  5. *sdisp
  6. display (display\ques,/:SEC/)
  7.  
  8. *prompt
  9. say(&14&│$7$&0&%CACT%$0$&14&│&7& You have &15&%LEFT% &7&minutes remaining, &15&%FNAME%.)
  10. menuask %MIN1%(&3&Please enter a selection from the &11&menu&12&: &15&*)
  11.  
  12. BigIf (g:goodbye,q:main,h:help,?:sdisp,x:exp)
  13.  
  14. number(%RESP%)
  15. if (%ARESP%)=(No) then goto (bsel)
  16. say(&7&)
  17. seek(ques\QUEST%RESP%.que)
  18. if (%ARESP%)=(No) then goto (bsel)
  19.  
  20. loadsub(ques\QUEST%RESP%.que)
  21. goto (disp)
  22.  
  23. *main
  24. loadmem(control\MAIN.MNU)
  25.  
  26. *exp
  27. loadsub(control\macros\expert.ctl)
  28. goto (disp)
  29.  
  30. *help
  31. log(--,Viewing Quest. Menu Help)
  32. display (display\help\ques,/:SEC/)
  33. goto (disp)
  34.  
  35. *goodbye
  36. enufsec(10)
  37. IfNotTrue (goto (bsel))
  38. loadsub(control\macros\bye.ctl)
  39. goto (disp)
  40.  
  41. *bsel
  42. loadsub(control\macros\badsel.ctl)
  43. goto (disp)
  44.