Today is Tuesday

PRO Day_of_the_week

  date = systime(0)

  day = strmid(date,0,3)

  

  switch day of

    'Mon': $

    Begin

      day = 'Monday'

      day_num = 1

    End

    

    'Tue': $

    Begin

    day = 'Tuesday'

    day_num = 2

    End

    

    'Wed': $

    Begin

    day = 'Wednesday'

    day_num = 3

    End

    

    'Thu': $

    Begin

    day = 'Thursday'

    day_num = 4

    End

    

    'Fri': $

    Begin

    day = 'Friday'

    day_num = 5

    End

    

    'Sat': $

    Begin

    day = 'Saturday'

    day_num = 6

    End

    

    'Sun': $

    Begin

    day = 'Sunday'

    day_num = 7

    End

    

    else: day = 'This is not a day!'

    endswitch

    

    PRINT, 'Today is ', day

    PRINT, 'It is day ',STRTRIM( STRING( day_num ), 1), ' day of the week.'

    

    end

This has been today. Except the class was fun, in the morning.