Spinning rod animation/Text: Difference between revisions

Content added Content deleted
(Added BaCon version.)
m (→‎{{header|REXX}}: added a programming note; commented that this REXX program also works with Regina REXX.)
Line 1,079: Line 1,079:


This REXX version will work for:
This REXX version will work for:
::* Personnal REXX
::* Personal REXX
::* PC REXX
::* PC REXX
::* Regina REXX   (see the programming note below.)
<lang rexx>/*REXX program displays a "spinning rod" (AKA: trobbers or progress indicators). */
<lang rexx>/*REXX program displays a "spinning rod" (AKA: trobbers or progress indicators). */
if 4=='f4'x then bs= "16"x /*EBCDIC? Then use this backspace chr.*/
if 4=='f4'x then bs= "16"x /*EBCDIC? Then use this backspace chr.*/
Line 1,091: Line 1,092:
end /*j*/
end /*j*/
halt: say bs ' ' /*stick a fork in it, we're all done. */</lang>
halt: say bs ' ' /*stick a fork in it, we're all done. */</lang>
Programming note: &nbsp; this REXX program makes use of &nbsp; '''DELAY''' &nbsp; BIF which delays (sleeps) for a specified amount of seconds.
<br>Some REXXes don't have a &nbsp; '''DELAY''' &nbsp; BIF, &nbsp; so one is included here &nbsp; ──► &nbsp; [[DELAY.REX]].


=={{header|Ring}}==
=={{header|Ring}}==
Retrieved from "https://rosettacode.org/wiki/Spinning_rod_animation/Text"