home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 01171 / message.bas < prev    next >
BASIC Source File  |  1990-07-10  |  533b  |  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 a$+". Item", "Menu1", 0, antwort%
  15. _2000:
  16.   MessageBox "direkt wirksam", "Menu2", 0, antwort%
  17. _3001:
  18. _3002:
  19.   a$=chr$(getmessage%()-3000+48)
  20.   MessageBox a$+". Item", "Menu3", 0, antwort%
  21. _KEY:
  22.   a$=inkey$()
  23.   Print a$, asc%(a$)
  24. _MOUSE:
  25.   Mouse Knopf%, x%, y%
  26.   MoveTo x%, y%
  27.   Print "Knopf ";Knopf%
  28.