puts "========"
puts "OCC198"
puts "========"
puts ""
#######################################################
##puts "Choosing of the font index color for font number 23"
#######################################################

v2dinit

v2dsetbgcolor BLUE3
set Angle 0
set Font_ind 23
set Scale 1
set k -1
set j 0 
repeat 5 {
    set i 0
    repeat 4 {
	set Position_X [expr $i*50]
        set Position_Y [expr $j*20]
        set k [expr $k+1]
	if [catch {v2dsettextcolor $a $k} ] {
	     set mistake 1
	}
	incr i
    }
    incr j
}

if {$mistake == 0} {
    puts "Faulty : Changing of text index color was NOT MADE properly"
} else {
    puts "Changing of text index  color was made properly"
}

set only_screen2d 1