home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d811 / bsh.lha / bsh / arrow < prev    next >
Text File  |  1993-02-14  |  747b  |  23 lines
  1. # arrow - a cute toy - does nothing useful.
  2. # Arrow is presented as is; no warrantee is either expressed or implied
  3. # as to it's suitability to any purpose whatsoever.  You assume all the
  4. # risk for all damage, even if caused by a defect in the software, no
  5. # matter how awful.
  6. local i=1
  7. if !?width
  8.     local width=77
  9. endif
  10. echo -n "\e[0 p"    # turn off cursor
  11. onintr goto exit
  12. onerr goto exit
  13. while 1
  14.     # 99 just goes to the last line in the window.
  15.     # The initial space takes care of deleting the trailing image.
  16.     repeat width-7 'echo -n "\e[99;${i}H =--->";sleep .04;i++'
  17.     repeat width-7 'echo -n "\e[99;${i}H<---= ";sleep .04;i--'
  18. endwhile
  19. label exit
  20. onintr;onerr        # avoid infinite loops
  21. echo "\e[ p\17"     # turn cursor back on
  22. exit 0
  23.