home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / UCB.ZIP / MENUITEM.000 < prev    next >
Encoding:
Text File  |  1990-12-03  |  1.1 KB  |  34 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. \comment
  7. \comment Collect the Main Menu names
  8. \comment
  9. \wrline
  10. \rdtext @[@[2,3],1] : Enter Main Menu name :
  11. \rdnum @[@[2,3],10] : Enter Number of Sub Menu items for "@[@[2,3],1]" :
  12. \equ @[2,5] = 11    : Actual index for Sub menu Item
  13. \equ @[2,6] = 1     : Sub Menu Number
  14. \if @[@[2,3],10] > 0
  15. \loop @[@[2,3],10] submenu.000
  16. \comment initialize the main menu dialog box vars
  17. \equ @[@[2,3],2] = 0
  18. \equ @[@[2,3],3] = '
  19. \if @[@[2,3],10] > 0
  20. \skip 1
  21. \rdnum @[@[2,3],2] # 0, 2 : Enter 0 = User code, 1 = Modal Dlg, 2 = Modeless Dlg :
  22. \if @[@[2,3],2] = 2  : Count number of Modeless Dialog Boxes
  23. \equ @[4,3] = + 1
  24. \if @[@[2,3],2] = 0
  25. \skip 2
  26. \rdtext @[@[2,3],3] : Enter Dialog Box name (Max 8 chars)
  27. \equ @[4,1] = + 1
  28. \equ @[4,9+@[4,1]] = @[@[2,3],3] 
  29. \equ @[5,9+@[4,1]] = @[@[2,3],2]
  30. \eskip 2
  31. \eskip 1
  32. \equ @[2,3] = + 1   : Actual index for Main Menu Item
  33. \equ @[2,4] = + 1   : index for Main Menu
  34.