home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d811 / bsh.lha / bsh / hithere < prev    next >
Text File  |  1993-02-14  |  1KB  |  52 lines
  1. # Hitere is presented as is; no warrantee is either expressed or implied
  2. # as to it's suitability to any purpose whatsoever.  You assume all the
  3. # risk for all damage, even if caused by a defect in the software,
  4. # no matter how awful.
  5. if (! -f t:_Hi1$$)
  6.     cat << + > t:_Hi1$$
  7.     onintr quit
  8.     # note that the following lines to the line beginning with +
  9.     # are a 'here document'
  10.  
  11.     set _verbose 1
  12.     set _umask 0x4f
  13.     if ! -f t:_Hi2$$
  14.         cat << - > t:_Hi2$$
  15.         # note that the following lines to the line beginning with -
  16.         # are a 'here document'
  17.  
  18.         local i=0 j="Hi, There!!" k=""
  19.         echo -n "\e[8;1H"
  20.         while i++<9
  21.             echo $k$j
  22.             k=cat(k,' ')
  23.         endwhile
  24.         set k ""
  25.         while i-->0
  26.             echo -n "\e[T\e[1;1H$k$j"
  27.             k=cat(k,' ')
  28.         endwhile
  29.         echo -n "\e[5;25H$j"
  30.         echo -n "\e[6;24H$j"
  31.         echo "\e[7;23H$j"
  32.         sleep 5
  33. -
  34.  
  35.     endif
  36.     echo -n "\e[0 p"
  37.     # (source t:_Hi2$$) would also work for the following
  38.     t:_Hi2$$ >"con:0/120/540/80/Hi, There"
  39.     sleep 1
  40.     quit
  41. +
  42.  
  43. endif
  44. newbsh con:0/0/540/120/other t:_Hi1$$
  45. sleep .1
  46. window activate
  47. # in order to speed up the trace, this script turns off the cursor to one
  48. # window only.  To see the difference, comment out the line:
  49. #    echo -n "\e[0 p"
  50. # you must remove the file t:_Hi1$$ before the change takes effect.  ($$
  51. # is the current CLI number).
  52.