Spinning rod animation/Text: Difference between revisions
Content added Content deleted
(Undo revision 265183 by Gerard Schildberger (talk)) |
No edit summary |
||
| Line 158: | Line 158: | ||
print("$ESC[?25h") // restore the cursor |
print("$ESC[?25h") // restore the cursor |
||
}</lang> |
}</lang> |
||
=={{header|M2000 Interpreter}}== |
|||
<lang M2000 Interpreter> |
|||
Module Checkit { |
|||
n$=lambda$ n=1, a$="|/-\" -> { |
|||
=mid$(a$, n, 1) |
|||
n++ |
|||
if n>4 then n=1 |
|||
} |
|||
\\ 1000 is 1 second |
|||
Every 250 { |
|||
\\ Print Over: erase line before print. No new line append. |
|||
Print Over n$() |
|||
} |
|||
} |
|||
CheckIt︀ |
|||
</lang> |
|||
=={{header|Microsoft Small Basic}}== |
=={{header|Microsoft Small Basic}}== |
||