home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / GAME / ifsm.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  763 b   |  39 lines
  1. #!/usr/local/bin/clip
  2. #IFSùpâfü[â^é≡ì∞ɼé╡é▄é╖
  3. #\!- <array_data>
  4. :param 0 1
  5. :ans 0
  6.  
  7. :var left bottom right top
  8.  
  9. left   = @@0 0; :scan ["left? ]   left  ; @@0 0 = left
  10. bottom = @@0 1; :scan ["bottom? ] bottom; @@0 1 = bottom
  11. right  = @@0 2; :scan ["right? ]  right ; @@0 2 = right
  12. top    = @@0 3; :scan ["top? ]    top   ; @@0 3 = top
  13.  
  14. if @@0 4 == 0
  15.     :scan ["âfü[â^Éö? ] @N; @@0 4 = @N
  16. endif
  17.  
  18. @I = @N * 6
  19. for @i = 0; ; @i++
  20.     :clear
  21.     for @j = 0; @j < @I;
  22.         if @j == @i
  23.             :print ["\[] (@@0 (@j + 5)) ["\]]
  24.         else
  25.             :print [" ] (@@0 (@j + 5)) [" ]
  26.         endif
  27.         @j++
  28.         if @j % @N == 0
  29.             :println
  30.         endif
  31.     next
  32.  
  33.     if @i >= @I; break; endif
  34.  
  35.     [@?] = @@0 (@i + 5)
  36.     :scan ["âfü[â^é≡ôⁿù═é╡é─é¡é╛é│éó\n: ] [@?]
  37.     @@0 (@i + 5) = [@?]
  38. next
  39.