Fix silly typo

fortran-lang · Nov 12, 2024 · 26b010d · 26b010d
1 parent a8644ca
commit 26b010d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/stdlib_ansi_cursor.f90 b/src/stdlib_ansi_cursor.f90
@@ -71,7 +71,7 @@ pure function move_down(line) result(str)
         if (line <= 0) then
             str = ""
         else
-            str = esc//"["//to_string(line)//"A"
+            str = esc//"["//to_string(line)//"B"
         end if
 
     end function move_down
@@ -85,7 +85,7 @@ pure function move_right(line) result(str)
         if (line <= 0) then
             str = ""
         else
-            str = esc//"["//to_string(line)//"A"
+            str = esc//"["//to_string(line)//"C"
         end if
 
     end function move_right
@@ -99,7 +99,7 @@ pure function move_left(line) result(str)
         if (line <= 0) then
             str = ""
         else
-            str = esc//"["//to_string(line)//"A"
+            str = esc//"["//to_string(line)//"D"
         end if
 
     end function move_left