1: 2: rem 3: rem This program demonstrates the use of a custom dialog box to get a file 4: rem name. The radio buttons are included just to show that you can 5: rem do multiple things with one dialog box if desired. 6: rem 7: 8: a=mouseon 9: 10: rem go into graphics mode 11: screen 12 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,50,0,200,30,140,&Filename" 20: control$(1)="filename,50,26,200,30,151," 21: 22: control$(2)="ltext,50,64,200,30,141,Pathname" 23: control$(3)="filepath,50,90,200,30,150," 24: 25: control$(4)="filelist,50,120,150,170,152,*.BMP,0 26: 27: control$(5)="OK,300,4,100,40,153,OK" 28: control$(6)="pushbutton,300,48,100,40,154,&Cancel" 29: 30: control$(7)="radiobutton,300,180,110,25,105,Standard" 31: control$(8)="radiobutton,300,210,110,25,106,Compress,1" 32: control$(9)="group,290,150,146,110,107,File Size" 33: 34: rem call dialog 35: dialog control$(0),10,10,10,450,300,"Select File to Read" 36: 37: rem display results of dialog 38: print "pathname=";dialog$(150) 39: print "filename=";dialog$(151) 40: print "ok button=";dialog$(153) 41: print "standard button=";dialog$(105) 42: print "compress button=";dialog$(106) 43: print "cancel button=";dialog$(154) 44: 45: 46: input z 47: 48: 49: |