program RADIO
    use dialogm
    INCLUDE 'RESOURCE.FD'
    
    type(dialog) dlg

    logical RETLOG,RADIO1,RADIO2,RADIO3,RADIO4
    INTEGER RETINT

    RETLOG=dlginit(IDD_DIALOG1,DLG)

    RETLOG=DLGSET(DLG,IDC_RADIO1,'大')
    RETLOG=DLGSET(DLG,IDC_RADIO2,'中')
    RETLOG=DLGSET(DLG,IDC_RADIO3,'小')
    RETLOG=DLGSET(DLG,IDC_RADIO4,'微')

    RETLOG=DLGSET(DLG,IDC_RADIO1,.FALSE.)
    RETLOG=DLGSET(DLG,IDC_RADIO2,.TRUE.)
    RETLOG=DLGSET(DLG,IDC_RADIO3,.FALSE.)
    RETLOG=DLGSET(DLG,IDC_RADIO4,.FALSE.)

    RETLOG=DLGGET(DLG,IDC_RADIO1,RADIO1)
    RETLOG=DLGGET(DLG,IDC_RADIO2,RADIO2)
    RETLOG=DLGGET(DLG,IDC_RADIO3,RADIO3)
    RETLOG=DLGGET(DLG,IDC_RADIO4,RADIO4)

    WRITE(*,*) RADIO1,RADIO2,RADIO3,RADIO4

    RETINT=DLGMODAL(DLG)

    END
从左到右建立4个RADIO控件，不能对中间的RADIO2，RADIO3赋初值（头尾的可以）， WRITE输出 T F F F，请问各位师傅，如何给RADIO控件赋初值？？