viz_done Subroutine

subroutine viz_done
! restore settings to something sane.
    ! place cursor in last line
    CALL viz_pos(1,rows)
    ! set forground color to principal color
    ! re-enable the cursor
    ! and call for a reset
    call viz_put(cli//'30m'//cli//'?25h'//cli//'0m')
    write(*,*)
end subroutine viz_done