home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / basic / winbasic / diademo.bas < prev    next >
Encoding:
BASIC Source File  |  1990-12-01  |  452 b   |  32 lines
  1.  
  2. Dim Menu$(3)
  3.  
  4. Subroutine DialogDemo()
  5.   Dialog 10, 10, 120, 40, 0, 0, "Diademo"
  6.   Dialog  4, 12,  30, 14,-1, 5, "Eingabe:" 
  7.   Dialog 40, 10,  40, 14,10,18, "ABC"
  8.   Dialog 90, 10,  20, 12,11,13, "OK" 
  9.   Dialog
  10. _1:
  11. _11:
  12.   DlgItem 10, Ein$
  13.   Dialog @
  14. _2:
  15.   Dialog @
  16. Endsub
  17.  
  18. Rem *** Hauptprogramm ***
  19.  
  20. Menu$(1) = "Dialog"
  21. Menu$(2) = "Ende"
  22. Menu$(3) = ""
  23. Menu Menu$
  24.  
  25. _1000:
  26.   Gosub Dialogdemo()
  27.   Print Ein$
  28. _2000:
  29.   Stop
  30.  
  31.  
  32.