home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMISSUE.EXE / INTRO.TSK < prev    next >
Encoding:
Text File  |  1991-09-10  |  2.0 KB  |  81 lines
  1. ; Title   : INTRO.TSK                   Last Updated : 5th September 1991
  2. ; Author  : Steve Johnson - FmP.        Version      : 1.00
  3. ; Purpose : Multi-level menuised introduction to Taskmaster
  4. ; Notes   : This task uses the PUT to display forms or menus.  
  5. ;           It finds out for itself if the template is a menu by 
  6. ;           checking if the put command has updated display
  7.  
  8. var blank,6,'      '
  9. var fname,6
  10. var menunames,6,occurs 30
  11. var hilites,1,occurs 30
  12. var formname,10,'   INTRO'
  13. var addchar,1
  14. define namelength,1
  15. logical forever
  16. var null,1
  17. end
  18.  
  19. enable ctrl_c
  20. forms logon.ovr
  21. lookfor intro.ovr
  22. if not found
  23.   insert formname formname 
  24.   put "NO_FORMS"    ;logon.ovr open already!
  25.   stop
  26. fi
  27. forms intro.ovr
  28. move '1' to formname
  29. until forever
  30.   move 0c000h to bbmask
  31.   move 'x' to display
  32.   put formname nowait
  33.   if namelength = 1 and choice = 30
  34.     put map wait 0 noclear
  35.     stop
  36.   fi
  37.   if choice = 31
  38.     if namelength = 1
  39.       forms logon.ovr
  40.       put bounce_bar
  41.       forms intro.ovr
  42.       move hilite to choice
  43.     else
  44.       put help nowait
  45.       move hilite to choice
  46.       clear bbdisp
  47.     fi
  48.   else
  49.     if display ne 'x' and choice ne 30
  50.       move hilite to addchar
  51.       combine formname 10 into fname
  52.       find menunames = fname
  53.       if found
  54.       else
  55.         find menunames = blank
  56.         move fname to entry row of menunames
  57.       fi
  58.       move hilite to entry row of hilites
  59.       append addchar to formname
  60.       increment namelength
  61.     else
  62.       decrement namelength
  63.     fi 
  64.     if display = 'x'
  65.       clear bbdisp
  66.     fi
  67.     sizevar formname namelength
  68.     combine formname 10 into fname
  69.     find menunames = fname
  70.     clear choice
  71.     if found
  72.       move entry row of hilites to choice
  73.     fi
  74.   fi
  75. fi
  76. stop
  77. endtask
  78. Forms source kept in separate file called INTRO.MAC.
  79. Run TMEXAM to recreate it if deleted.
  80. 
  81.