Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()

Repeat

    result=GetDayOfWeek()
    Printc ("Today is a ")

    select result
        case 0:
            print ( "Sunday" )
        endcase
        case 1:
            print ( "Monday" )
        endcase
        case 2:
            print ( "Tuesday" )
        endcase
        case 3:
            print ( "Wednesday" )
        endcase
        case 4:
            print ( "Thursday" )
        endcase
        case 5:
            print ( "Friday" )
        endcase
        case 6:
            print ( "Saturday" )
        endcase
    endselect

    Sync()
Until Timer()>10
End