home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / multitas.bas < prev    next >
Encoding:
BASIC Source File  |  1997-09-12  |  453 b   |  20 lines
  1.  
  2. ' The multitasking library source by Paul Jones 1997
  3. ' This code may be included in your own programs for free
  4.  
  5. FUNCTION aesversion
  6. aesversion=PEEKW(PEEKL(GB+4))
  7. END FUNCTION
  8.  
  9. FUNCTION max_progs
  10. max_progs=PEEKW(PEEKL(GB+4)+ap_count)
  11. END FUNCTION
  12.  
  13. FUNCTION appl_id
  14. appl_id=PEEKW(PEEKL(GB+4)+ap_id)
  15. END FUNCTION
  16.  
  17. SUB Multitask_name (name$)
  18. STATIC mpos
  19. IF max_progs=-1 OR aesversion>=&H410 THEN mpos=menu_register(appl_id,name$)
  20. END SUB