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: |