home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d152 / blk.lha / Blk / array < prev    next >
Text File  |  1987-06-15  |  2KB  |  56 lines
  1. arr 1 2
  2.  
  3. (h (|1)
  4.  (v (-1)
  5.   (h (b 8 0) (v
  6.    (b 0 8) (hf(v(t3"Array Copy")(-1 3))f)
  7.    (b 0 5) (hf (vf(t1"Number:")f) (b 5 0) (|1)
  8.       (v(-1)(-1 2)
  9.        (h(|1 2)(|1 2)(t1"1      "):5(|1 2)(|1 2))(-1 2)(-1))(|1) f)
  10.    (b 0 5) (hf(t"Offset Step:")f)
  11.    (b 0 5) (hf
  12.      (v
  13.       (h (vf(t1"X")f) (b 5 0) (|1)
  14.          (v(-1)(-1 2)
  15.           (h(|1 2)(|1 2)(t1"0      "):1(|1 2)(|1 2))(-1 2)(-1))(|1))
  16.       (b 0 5)
  17.       (h (vf(t1"Y")f) (b 5 0) (|1)
  18.          (v(-1)(-1 2)
  19.           (h(|1 2)(|1 2)(t1"0      "):2(|1 2)(|1 2))(-1 2)(-1))(|1))
  20.       (b 0 5)
  21.       (h (vf(t1"Z")f) (b 5 0) (|1)
  22.          (v(-1)(-1 2)
  23.           (h(|1 2)(|1 2)(t1"0      "):3(|1 2)(|1 2))(-1 2)(-1))(|1))
  24.      )
  25.      (b11 0) f (vf
  26.       (h f (t3"Scale") f)
  27.       (h (t1"+"):8 f (t1"mm") f (t1"-"):9)
  28.       f)
  29.     f)
  30.  
  31.    (b 0 5)
  32.    (h f (vf(t1"Layer")f) (b 5 0) (|1)
  33.       (v (-1) (b 0 3)
  34.         (h (b2 0)(t"1"):10(b2 0)(t"2"):11(b2 0)(t"3"):12(b2 0)(t"4"):13
  35.            (b2 0)(t"5"):14(b2 0)(t"6"):15(b2 0)(t"7"):16(b2 0)(t"8"):17(b2 0))
  36.         (b 0 2) (-1))
  37.     (|1) f)
  38.  
  39.    (b 0 5) (h
  40.       (h(|1) (v(-1)(v(b0 3)(h(b4 0)(t"Ok")(b4 0))(b0 2)):4(-1)) (|1))
  41.       (b 5 0) f
  42.       (b 5 0)
  43.       (h(|1) (v(-1)(v(b0 3)(h(b4 0)(t3"Cancel")(b4 0))(b0 2)):6(-1)) (|1))
  44.     )
  45.    (b 0 8)
  46.    ) (b 8 0))
  47.   (-1))
  48.  (|1))
  49.  
  50. 1s:"STR_ID""v" 2s:"STR_ID""v" 3s:"STR_ID""v"
  51. 5s:"STR_ID""v"
  52. 8:"SCLU_ID""v" 9:"SCLD_ID""v"
  53. 10:"BUF_ID""ti"   11:"BUF_ID+1""ti" 12:"BUF_ID+2""ti" 13:"BUF_ID+3""ti"
  54. 14:"BUF_ID+4""ti" 15:"BUF_ID+5""ti" 16:"BUF_ID+6""ti" 17:"BUF_ID+7""ti"
  55. 4:"OK_ID""ev" 6:"CAN_ID""ev"
  56.