diff options
Diffstat (limited to 'ipl/procs/spin.icn')
| -rw-r--r-- | ipl/procs/spin.icn | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/ipl/procs/spin.icn b/ipl/procs/spin.icn new file mode 100644 index 0000000..1556754 --- /dev/null +++ b/ipl/procs/spin.icn @@ -0,0 +1,35 @@ +############################################################################ +# +# File: spin.icn +# +# Subject: Procedure to spin cursor +# +# Author: Mark Otto +# +# Date: November 25, 1996 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# Contributor: Ralph E. Griswold +# +############################################################################ +# +# This little procedure came from a discussion about how to produce +# a spinning cursor. The argument, if supplied, limits the number +# of cycles. +# +############################################################################ + +procedure spin(n) + + /n := 2 ^ 30 + n *:= 4 + + writes(" ") + every writes(!|["\b-","\b\\","\b|","\b/"]) \ n + +end |