home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / UCB.ZIP / MENUITEM.002 < prev    next >
Encoding:
Text File  |  1990-12-03  |  550 b   |  27 lines
  1. \comment       Windows 3.0 Application Script (Version 1.00)
  2. \comment                      
  3. \comment       (C) Copyright DEA Software 1990  All Rights Reserved
  4. \comment 
  5. \comment 
  6. \if @[@[2,5],10] > 0
  7. \skip 1
  8.   MENUITEM "@[10 + @[2,3],1]",  IDM_MENU_@[2,3]
  9. \eskip 1
  10. \if @[@[2,5],10] < 1
  11. \skip 1
  12.   POPUP "@[10 + @[2,3],1]"
  13.     BEGIN
  14. \eskip 1
  15. \equ @[2,4] = + 1
  16. \equ @[2,6] = 11
  17. \equ @[2,7] = 1
  18. \if @[@[2,5],10] > 0
  19. \loop @[@[2,5],10] submenu.002
  20. \if @[@[2,5],10] = 0
  21. \skip 1
  22.     END
  23. \eskip 1
  24. \equ @[2,5] = + 1
  25. \eskip 1
  26. \equ @[2,3] = + 1
  27.