home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / compiler / sample11.bas < prev    next >
BASIC Source File  |  1993-02-01  |  1KB  |  52 lines
  1.  
  2.    rem
  3.    rem This program is a simple demonstration of using a DIALOG
  4.    rem
  5.    rem Dialogs can be used in text mode or graphics mode.
  6.    rem This program is set up to work only in graphics mode 12
  7.    rem
  8.  
  9.    a=mouseon
  10.  
  11.    rem go into graphics mode
  12.    screen 12
  13.  
  14.    rem format of all my controls
  15.    rem   type,left,top,xsize,ysize,id,text,(special)
  16.  
  17.    dim control$(100)
  18.  
  19.    control$(0)="ltext,10,10,100,30,100,Name:"
  20.    control$(1)="edit,110,10,200,30,101,"
  21.  
  22.    control$(2)="ltext,10,54,100,30,102,Address:"
  23.    control$(3)="edit,110,54,200,30,103,"
  24.  
  25.    control$(4)="pushbutton,10,110,50,30,104,Done"
  26.  
  27.    control$(5)="radiobutton,130,120,110,25,105,Type A,1"
  28.    control$(6)="radiobutton,130,154,110,25,106,Type B"
  29.    control$(7)="group,118,90,180,90,107,Personality Type"
  30.  
  31.    control$(8)="checkbox,10,184,100,30,108,Widgets"
  32.    control$(9)="checkbox,130,184,100,30,109,Gadgets,1"
  33.    control$(10)="checkbox,250,184,100,30,110,Doodads"
  34.  
  35.    rem call dialog
  36.    dialog control$(0),11,10,10,350,220,"Client Information"
  37.  
  38.    rem display results of dialog
  39.    print "name=";dialog$(101)
  40.    print "address=";dialog$(103)
  41.    print "done=";dialog$(104)
  42.    print "Type A=";dialog$(105)
  43.    print "Type B=";dialog$(106)
  44.    print "widgets=";dialog$(108)
  45.    print "gadgets=";dialog$(109)
  46.    print "doodads=";dialog$(110)
  47.  
  48. input z
  49.  
  50.  
  51.  
  52.