home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / UCB.ZIP / SUBMENU.000 < prev    next >
Encoding:
Text File  |  1990-12-03  |  749 b   |  22 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. \rdtext @[@[2,3],@[2,5]]: Enter Sub Menu #@[2,6] Name :
  8. \equ @[@[2,3],100+@[2,5]] = 0
  9. \equ @[@[2,3],200+@[2,5]] = '
  10. \rdnum @[@[2,3],100+@[2,5]] # 0, 2 : Enter 0 = User code, 1 = Modal Dlg, 2 = Modeless Dlg :
  11. \if @[@[2,3],100+@[2,5]] = 2  : Count number of Modeless Dialog Boxes
  12. \equ @[4,3] = + 1
  13. \if @[@[2,3],100+@[2,5]] = 0
  14. \skip 1
  15. \rdtext @[@[2,3],200+@[2,5]] : Enter Dialog Box name (Max 8 chars)
  16. \equ @[4,1] = + 1
  17. \equ @[4,9+@[4,1]] = @[@[2,3],200+@[2,5]] 
  18. \equ @[5,9+@[4,1]] = @[@[2,3],100+@[2,5]] 
  19. \eskip 1
  20. \equ @[2,5] = + 1
  21. \equ @[2,6] = + 1
  22.