fortran 实现cmd窗口输出彩色文字

  !mavibardak.com
   !mavibardak msfwin kulanarak consolede renkli yazi yazdirmak 
   !mav.bardak@yahoo.com.tr
program mavibardak
use msfwin
implicit none
integer::a,i,n
  ! birinci dongu
  !    n sayisina gore renk desimi olacaktir 
 n=11
do a = 11, 12
i = SetConsoleTextAttribute(11,n);
write (*,*) "renk1 mavibardak.com" 
end do
                             !ikinci dongu
                              do a = 11, 12
                              i = SetConsoleTextAttribute(11,4);
                              write (*,*) "renk2 mavibardak.com" 
                              end do
                     !ucuncu dongu
                  do a = 11, 12
                  i = SetConsoleTextAttribute(11,30);
                  write (*,*) " renk 3 mavibardak.com" 
                  end do


end program mavibardak