akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
use ColorConsole
implicit none
integer i
call initConsole()
write(*,*)
do i = CON_FIRST_COLOR, CON_LAST_COLOR
call setcolor(i)
write(*,*) 'color example'
enddo
write(*,*)
call setcolor(CON_BLACK)
do i = CON_FIRST_COLOR, CON_LAST_COLOR
call setbackground(i)
write(*,'(A$)') 'background color example'
call setbackground(0)
write(*,*)
enddo
read(*,*)
call setcolor(6)
write(*,*) 'test ', 10, ' ', 1.234e-5
read(*,*)
call restoreConsole()
end
|
Всего записей: 24121 | Зарегистр. 06-12-2002 | Отправлено: 01:46 26-10-2013 | Исправлено: akaGM, 02:20 26-10-2013 |
|
