home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / WINBASIC / MESSAGE.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-08  |  532 b   |  28 lines
  1.  
  2. Dim Menu$(4)
  3.  
  4. Menu$(1)="Menu1 MenuItem_1001 MenuItem_1002"
  5. Menu$(2)="&Menu2"
  6. Menu$(3)="Menu3 MenuItem_3001 MenuItem_3002"
  7. Menu$(4)=""
  8.  
  9. Menu Menu$
  10.  
  11. _1001:
  12. _1002:
  13.   a$=chr$(getmessage%()-1000+48)
  14.   MessageBox "Item "+a$, "Menu1", 0, answer%
  15. _2000:
  16.   MessageBox "direct working", "Menu2", 0, answer%
  17. _3001:
  18. _3002:
  19.   a$=chr$(getmessage%()-3000+48)
  20.   MessageBox "Item "+a$, "Menu3", 0, answer%
  21. _KEY:
  22.   a$=inkey$()
  23.   Print a$, asc%(a$)
  24. _MOUSE:
  25.   Mouse Button%, x%, y%
  26.   MoveTo x%, y%
  27.   Print "Button ";Button%
  28.