home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMEXAM.EXE / HELP.TSK < prev    next >
Encoding:
Text File  |  1991-09-10  |  2.1 KB  |  101 lines
  1. ; Title   : HELP.TSK                    Last Updated : March 6, 1991
  2. ; Author  : Steve Johnson - FmP.        Version      : 1.00
  3. ; Purpose : HELP.TSK an example of a help system written in Taskmaster.
  4. ; Notes   : Use of BOUNCE_BAR form via F1 is interesting
  5.  
  6. int main_hilite
  7.  
  8. logical forever
  9.  
  10. var char,1
  11. var fn,20,"    HELP"
  12. var fns,2,occurs 7,"  MEFOAPEXPOSA"
  13. var formid,1
  14. var prev_sel,1,occurs 7
  15. var subfn,20
  16. var time_now,5
  17.  
  18. vconst cel,55
  19. vconst cep,56
  20. vconst normal,5
  21.  
  22. end
  23.  
  24. forms logon.ovr
  25. lookfor help.ovr
  26. if not found
  27.   insert fn fn
  28.   put "NO_FORMS"    ;logon.ovr open already!
  29.   stop
  30. fi
  31. if colour
  32.   screen 1
  33.   put "BOUNCE_BAR" wait 0 noclear    ;ready for f1
  34.   userline normal "Press any key..."
  35. fi
  36. screen 0
  37. forms help.ovr
  38. until forever
  39.   move 0c000h to bbmask
  40.   move main_hilite to choice
  41.   cursor 1 0 normal cep
  42.   userline normal "Main menu: F1=Help,  <ESC>=Exit"
  43.   put "MAIN_MENU"
  44.   move hilite to main_hilite
  45.   if choice = 30
  46.     stop
  47.   fi
  48.   if choice = 31
  49.     if colour
  50.       switch 1
  51.       inkey char
  52.       switch  0
  53.       clear bbdisp
  54.     else
  55.       forms logon.ovr
  56.       put "BOUNCE_BAR"
  57.       forms help.ovr
  58.     fi
  59.   else
  60.     userline normal display "menu: <ESC>=Main menu, F1=Help, F2=Clear screen"
  61.     move entry hilite of fns to fn
  62.     move entry hilite of prev_sel to choice
  63.     trim fn
  64.     combine fn '-' into subfn
  65.     put subfn wait 0 noclear
  66.     until choice = 30
  67.       move 0e000h to bbmask
  68.       put fn
  69.       if choice < 30
  70.     move hilite to entry main_hilite of prev_sel
  71.     move display to formid
  72.     combine fn formid into subfn
  73.     if subfn = "FOI"
  74.       move time to time_now
  75.       insert time_now
  76.     fi
  77.     put subfn wait 0 noclear
  78.     clear bbdisp
  79.       else
  80.     if choice = 32
  81.       cursor 2 0 normal cep
  82.       move hilite to choice
  83.       clear bbdisp
  84.     else
  85.       if choice = 31
  86.         put "HELP" wait 0 noclear
  87.         move hilite to choice
  88.         clear bbdisp
  89.       fi
  90.     fi
  91.       fi
  92.     fi
  93.     clear bbdisp
  94.   fi
  95. fi
  96.  
  97. endtask
  98. Forms source kept in separate file HELP.MAC.
  99. This can be re-created by running TMEXAM if deleted.  
  100. 
  101.