home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / icon / dos / src / tests / augment.icn next >
Text File  |  1992-02-09  |  15KB  |  375 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write("i := 10 ----> ",image(i := 10) | "none")
  5.    write("i =:= 9 ----> ",image(i =:= 9) | "none")
  6.    write("i ----> ",image(i) | "none")
  7.    write("i := 10 ----> ",image(i := 10) | "none")
  8.    write("i =:= 10 ----> ",image(i =:= 10) | "none")
  9.    write("i ----> ",image(i) | "none")
  10.    write("i := 10 ----> ",image(i := 10) | "none")
  11.    write("i =:= 11 ----> ",image(i =:= 11) | "none")
  12.    write("i ----> ",image(i) | "none")
  13.    write("i := 10 ----> ",image(i := 10) | "none")
  14.    write("i >=:= 9 ----> ",image(i >=:= 9) | "none")
  15. end
  16.  
  17. procedure p2()
  18.    write("i ----> ",image(i) | "none")
  19.    write("i := 10 ----> ",image(i := 10) | "none")
  20.    write("i >=:= 10 ----> ",image(i >=:= 10) | "none")
  21.    write("i ----> ",image(i) | "none")
  22.    write("i := 10 ----> ",image(i := 10) | "none")
  23.    write("i >=:= 11 ----> ",image(i >=:= 11) | "none")
  24.    write("i ----> ",image(i) | "none")
  25.    write("i := 10 ----> ",image(i := 10) | "none")
  26.    write("i >:= 9 ----> ",image(i >:= 9) | "none")
  27.    write("i ----> ",image(i) | "none")
  28.    write("i := 10 ----> ",image(i := 10) | "none")
  29. end
  30.  
  31. procedure p3()
  32.    write("i >:= 10 ----> ",image(i >:= 10) | "none")
  33.    write("i ----> ",image(i) | "none")
  34.    write("i := 10 ----> ",image(i := 10) | "none")
  35.    write("i >:= 11 ----> ",image(i >:= 11) | "none")
  36.    write("i ----> ",image(i) | "none")
  37.    write("i := 10 ----> ",image(i := 10) | "none")
  38.    write("i <=:= 9 ----> ",image(i <=:= 9) | "none")
  39.    write("i ----> ",image(i) | "none")
  40.    write("i := 10 ----> ",image(i := 10) | "none")
  41.    write("i <=:= 10 ----> ",image(i <=:= 10) | "none")
  42.    write("i ----> ",image(i) | "none")
  43. end
  44.  
  45. procedure p4()
  46.    write("i := 10 ----> ",image(i := 10) | "none")
  47.    write("i <=:= 11 ----> ",image(i <=:= 11) | "none")
  48.    write("i ----> ",image(i) | "none")
  49.    write("i := 10 ----> ",image(i := 10) | "none")
  50.    write("i <:= 9 ----> ",image(i <:= 9) | "none")
  51.    write("i ----> ",image(i) | "none")
  52.    write("i := 10 ----> ",image(i := 10) | "none")
  53.    write("i <:= 10 ----> ",image(i <:= 10) | "none")
  54.    write("i ----> ",image(i) | "none")
  55.    write("i := 10 ----> ",image(i := 10) | "none")
  56.    write("i <:= 11 ----> ",image(i <:= 11) | "none")
  57. end
  58.  
  59. procedure p5()
  60.    write("i ----> ",image(i) | "none")
  61.    write("i := 10 ----> ",image(i := 10) | "none")
  62.    write("i ~=:= 9 ----> ",image(i ~=:= 9) | "none")
  63.    write("i ----> ",image(i) | "none")
  64.    write("i := 10 ----> ",image(i := 10) | "none")
  65.    write("i ~=:= 10 ----> ",image(i ~=:= 10) | "none")
  66.    write("i ----> ",image(i) | "none")
  67.    write("i := 10 ----> ",image(i := 10) | "none")
  68.    write("i ~=:= 11 ----> ",image(i ~=:= 11) | "none")
  69.    write("i ----> ",image(i) | "none")
  70.    write("i := 10 ----> ",image(i := 10) | "none")
  71. end
  72.  
  73. procedure p6()
  74.    write("i +:= 9 ----> ",image(i +:= 9) | "none")
  75.    write("i ----> ",image(i) | "none")
  76.    write("i := 10 ----> ",image(i := 10) | "none")
  77.    write("i +:= 10 ----> ",image(i +:= 10) | "none")
  78.    write("i ----> ",image(i) | "none")
  79.    write("i := 10 ----> ",image(i := 10) | "none")
  80.    write("i +:= 11 ----> ",image(i +:= 11) | "none")
  81.    write("i ----> ",image(i) | "none")
  82.    write("i := 10 ----> ",image(i := 10) | "none")
  83.    write("i -:= 9 ----> ",image(i -:= 9) | "none")
  84.    write("i ----> ",image(i) | "none")
  85. end
  86.  
  87. procedure p7()
  88.    write("i := 10 ----> ",image(i := 10) | "none")
  89.    write("i -:= 10 ----> ",image(i -:= 10) | "none")
  90.    write("i ----> ",image(i) | "none")
  91.    write("i := 10 ----> ",image(i := 10) | "none")
  92.    write("i -:= 11 ----> ",image(i -:= 11) | "none")
  93.    write("i ----> ",image(i) | "none")
  94.    write("i := 10 ----> ",image(i := 10) | "none")
  95.    write("i *:= 9 ----> ",image(i *:= 9) | "none")
  96.    write("i ----> ",image(i) | "none")
  97.    write("i := 10 ----> ",image(i := 10) | "none")
  98.    write("i *:= 10 ----> ",image(i *:= 10) | "none")
  99. end
  100.  
  101. procedure p8()
  102.    write("i ----> ",image(i) | "none")
  103.    write("i := 10 ----> ",image(i := 10) | "none")
  104.    write("i *:= 11 ----> ",image(i *:= 11) | "none")
  105.    write("i ----> ",image(i) | "none")
  106.    write("i := 10 ----> ",image(i := 10) | "none")
  107.    write("i /:= 9 ----> ",image(i /:= 9) | "none")
  108.    write("i ----> ",image(i) | "none")
  109.    write("i := 10 ----> ",image(i := 10) | "none")
  110.    write("i /:= 10 ----> ",image(i /:= 10) | "none")
  111.    write("i ----> ",image(i) | "none")
  112.    write("i := 10 ----> ",image(i := 10) | "none")
  113. end
  114.  
  115. procedure p9()
  116.    write("i /:= 11 ----> ",image(i /:= 11) | "none")
  117.    write("i ----> ",image(i) | "none")
  118.    write("i := 10 ----> ",image(i := 10) | "none")
  119.    write("i %:= 9 ----> ",image(i %:= 9) | "none")
  120.    write("i ----> ",image(i) | "none")
  121.    write("i := 10 ----> ",image(i := 10) | "none")
  122.    write("i %:= 10 ----> ",image(i %:= 10) | "none")
  123.    write("i ----> ",image(i) | "none")
  124.    write("i := 10 ----> ",image(i := 10) | "none")
  125.    write("i %:= 11 ----> ",image(i %:= 11) | "none")
  126.    write("i ----> ",image(i) | "none")
  127. end
  128.  
  129. procedure p10()
  130.    write("i := 10 ----> ",image(i := 10) | "none")
  131.    write("i ^:= 9 ----> ",image(i ^:= 9) | "none")
  132.    write("i ----> ",image(i) | "none")
  133.    write("i := 10 ----> ",image(i := 10) | "none")
  134.    write("s := \"x\" ----> ",image(s := "x") | "none")
  135.    write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
  136. end
  137.  
  138. procedure p11()
  139.    write("s ----> ",image(s) | "none")
  140.    write("s := \"x\" ----> ",image(s := "x") | "none")
  141.    write("s <<:= \"xx\" ----> ",image(s <<:= "xx") | "none")
  142.    write("s ----> ",image(s) | "none")
  143.    write("s := \"x\" ----> ",image(s := "x") | "none")
  144.    write("s <<:= \"X\" ----> ",image(s <<:= "X") | "none")
  145.    write("s ----> ",image(s) | "none")
  146.    write("s := \"x\" ----> ",image(s := "x") | "none")
  147.    write("s <<:= \"abc\" ----> ",image(s <<:= "abc") | "none")
  148.    write("s ----> ",image(s) | "none")
  149.    write("s := \"x\" ----> ",image(s := "x") | "none")
  150. end
  151.  
  152. procedure p12()
  153.    write("s ~==:= \"x\" ----> ",image(s ~==:= "x") | "none")
  154.    write("s ----> ",image(s) | "none")
  155.    write("s := \"x\" ----> ",image(s := "x") | "none")
  156.    write("s ~==:= \"xx\" ----> ",image(s ~==:= "xx") | "none")
  157.    write("s ----> ",image(s) | "none")
  158.    write("s := \"x\" ----> ",image(s := "x") | "none")
  159.    write("s ~==:= \"X\" ----> ",image(s ~==:= "X") | "none")
  160.    write("s ----> ",image(s) | "none")
  161.    write("s := \"x\" ----> ",image(s := "x") | "none")
  162.    write("s ~==:= \"abc\" ----> ",image(s ~==:= "abc") | "none")
  163.    write("s ----> ",image(s) | "none")
  164. end
  165.  
  166. procedure p13()
  167.    write("s := \"x\" ----> ",image(s := "x") | "none")
  168.    write("s ?:= \"x\" ----> ",image(s ?:= "x") | "none")
  169.    write("s ----> ",image(s) | "none")
  170.    write("s := \"x\" ----> ",image(s := "x") | "none")
  171.    write("s ?:= \"xx\" ----> ",image(s ?:= "xx") | "none")
  172.    write("s ----> ",image(s) | "none")
  173.    write("s := \"x\" ----> ",image(s := "x") | "none")
  174.    write("s ?:= \"X\" ----> ",image(s ?:= "X") | "none")
  175.    write("s ----> ",image(s) | "none")
  176.    write("s := \"x\" ----> ",image(s := "x") | "none")
  177.    write("s ?:= \"abc\" ----> ",image(s ?:= "abc") | "none")
  178. end
  179.  
  180. procedure p14()
  181.    write("s ----> ",image(s) | "none")
  182.    write("s ?:= s ----> ",image(s ?:= s) | "none")
  183.    write("s := \"x\" ----> ",image(s := "x") | "none")
  184.    write("s ==:= \"x\" ----> ",image(s ==:= "x") | "none")
  185.    write("s ----> ",image(s) | "none")
  186.    write("s := \"x\" ----> ",image(s := "x") | "none")
  187.    write("s ==:= \"xx\" ----> ",image(s ==:= "xx") | "none")
  188.    write("s ----> ",image(s) | "none")
  189.    write("s := \"x\" ----> ",image(s := "x") | "none")
  190.    write("s ==:= \"X\" ----> ",image(s ==:= "X") | "none")
  191.    write("s ----> ",image(s) | "none")
  192. end
  193.  
  194. procedure p15()
  195.    write("s := \"x\" ----> ",image(s := "x") | "none")
  196.    write("s ==:= \"abc\" ----> ",image(s ==:= "abc") | "none")
  197.    write("s ----> ",image(s) | "none")
  198.    write("s := \"x\" ----> ",image(s := "x") | "none")
  199.    write("s >>=:= \"x\" ----> ",image(s >>=:= "x") | "none")
  200.    write("s ----> ",image(s) | "none")
  201.    write("s := \"x\" ----> ",image(s := "x") | "none")
  202.    write("s >>=:= \"xx\" ----> ",image(s >>=:= "xx") | "none")
  203.    write("s ----> ",image(s) | "none")
  204.    write("s := \"x\" ----> ",image(s := "x") | "none")
  205.    write("s >>=:= \"X\" ----> ",image(s >>=:= "X") | "none")
  206. end
  207.  
  208. procedure p16()
  209.    write("s ----> ",image(s) | "none")
  210.    write("s := \"x\" ----> ",image(s := "x") | "none")
  211.    write("s >>=:= \"abc\" ----> ",image(s >>=:= "abc") | "none")
  212.    write("s ----> ",image(s) | "none")
  213.    write("s := \"x\" ----> ",image(s := "x") | "none")
  214.    write("s >>:= \"x\" ----> ",image(s >>:= "x") | "none")
  215.    write("s ----> ",image(s) | "none")
  216.    write("s := \"x\" ----> ",image(s := "x") | "none")
  217.    write("s >>:= \"xx\" ----> ",image(s >>:= "xx") | "none")
  218.    write("s ----> ",image(s) | "none")
  219.    write("s := \"x\" ----> ",image(s := "x") | "none")
  220. end
  221.  
  222. procedure p17()
  223.    write("s >>:= \"X\" ----> ",image(s >>:= "X") | "none")
  224.    write("s ----> ",image(s) | "none")
  225.    write("s := \"x\" ----> ",image(s := "x") | "none")
  226.    write("s >>:= \"abc\" ----> ",image(s >>:= "abc") | "none")
  227.    write("s ----> ",image(s) | "none")
  228.    write("s := \"x\" ----> ",image(s := "x") | "none")
  229.    write("s <<=:= \"x\" ----> ",image(s <<=:= "x") | "none")
  230.    write("s ----> ",image(s) | "none")
  231.    write("s := \"x\" ----> ",image(s := "x") | "none")
  232.    write("s <<=:= \"xx\" ----> ",image(s <<=:= "xx") | "none")
  233.    write("s ----> ",image(s) | "none")
  234. end
  235.  
  236. procedure p18()
  237.    write("s := \"x\" ----> ",image(s := "x") | "none")
  238.    write("s <<=:= \"X\" ----> ",image(s <<=:= "X") | "none")
  239.    write("s ----> ",image(s) | "none")
  240.    write("s := \"x\" ----> ",image(s := "x") | "none")
  241.    write("s <<=:= \"abc\" ----> ",image(s <<=:= "abc") | "none")
  242.    write("s ----> ",image(s) | "none")
  243.    write("s >>:= 0 ----> ",image(s >>:= 0) | "none")
  244.    write("s := \"x\" ----> ",image(s := "x") | "none")
  245.    write("s ++:= \"x\" ----> ",image(s ++:= "x") | "none")
  246.    write("s ----> ",image(s) | "none")
  247.    write("s := \"x\" ----> ",image(s := "x") | "none")
  248. end
  249.  
  250. procedure p19()
  251.    write("s ++:= \"xx\" ----> ",image(s ++:= "xx") | "none")
  252.    write("s ----> ",image(s) | "none")
  253.    write("s := \"x\" ----> ",image(s := "x") | "none")
  254.    write("s ++:= \"X\" ----> ",image(s ++:= "X") | "none")
  255.    write("s ----> ",image(s) | "none")
  256.    write("s := \"x\" ----> ",image(s := "x") | "none")
  257.    write("s ++:= \"abc\" ----> ",image(s ++:= "abc") | "none")
  258.    write("s ----> ",image(s) | "none")
  259.    write("s := \"x\" ----> ",image(s := "x") | "none")
  260.    write("s --:= \"x\" ----> ",image(s --:= "x") | "none")
  261.    write("s ----> ",image(s) | "none")
  262. end
  263.  
  264. procedure p20()
  265.    write("s := \"x\" ----> ",image(s := "x") | "none")
  266.    write("s --:= \"xx\" ----> ",image(s --:= "xx") | "none")
  267.    write("s ----> ",image(s) | "none")
  268.    write("s := \"x\" ----> ",image(s := "x") | "none")
  269.    write("s --:= \"X\" ----> ",image(s --:= "X") | "none")
  270.    write("s ----> ",image(s) | "none")
  271.    write("s := \"x\" ----> ",image(s := "x") | "none")
  272.    write("s --:= \"abc\" ----> ",image(s --:= "abc") | "none")
  273.    write("s ----> ",image(s) | "none")
  274.    write("s := \"x\" ----> ",image(s := "x") | "none")
  275.    write("s **:= \"x\" ----> ",image(s **:= "x") | "none")
  276. end
  277.  
  278. procedure p21()
  279.    write("s ----> ",image(s) | "none")
  280.    write("s := \"x\" ----> ",image(s := "x") | "none")
  281.    write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
  282.    write("s ----> ",image(s) | "none")
  283.    write("s := \"x\" ----> ",image(s := "x") | "none")
  284.    write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
  285.    write("s ----> ",image(s) | "none")
  286.    write("s := \"x\" ----> ",image(s := "x") | "none")
  287.    write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
  288.    write("s ----> ",image(s) | "none")
  289.    write("c := 'abcd' ----> ",image(c := 'abcd') | "none")
  290. end
  291.  
  292. procedure p22()
  293.    write("s ----> ",image(s) | "none")
  294.    write("s := \"x\" ----> ",image(s := "x") | "none")
  295.    write("s **:= \"xx\" ----> ",image(s **:= "xx") | "none")
  296.    write("s ----> ",image(s) | "none")
  297.    write("s := \"x\" ----> ",image(s := "x") | "none")
  298.    write("s **:= \"X\" ----> ",image(s **:= "X") | "none")
  299.    write("s ----> ",image(s) | "none")
  300.    write("s := \"x\" ----> ",image(s := "x") | "none")
  301.    write("s **:= \"abc\" ----> ",image(s **:= "abc") | "none")
  302.    write("s ----> ",image(s) | "none")
  303.    write("c ++:= 'de' ----> ",image(c ++:= 'de') | "none")
  304. end
  305.  
  306. procedure p23()
  307.    write("c --:= 'a' ----> ",image(c --:= 'a') | "none")
  308.    write("c **:= 'd' ----> ",image(c **:= 'd') | "none")
  309.    write("s := [1,2,3] ----> ",image(s := [1,2,3]) | "none")
  310.    write("s |||:= s ----> ",image(s |||:= s) | "none")
  311.    write("s |||:= s ----> ",image(s |||:= s) | "none")
  312.    write("one := [1] ----> ",image(one := [1]) | "none")
  313.    write("two := [2,2] ----> ",image(two := [2,2]) | "none")
  314.    write("x := one ----> ",image(x := one) | "none")
  315.    write("x &:= one ----> ",image(x &:= one) | "none")
  316.    write("x ----> ",image(x) | "none")
  317.    write("x := one ----> ",image(x := one) | "none")
  318. end
  319.  
  320. procedure p24()
  321.    write("x &:= two ----> ",image(x &:= two) | "none")
  322.    write("x ----> ",image(x) | "none")
  323.    write("x := one ----> ",image(x := one) | "none")
  324.    write("x |||:= one ----> ",image(x |||:= one) | "none")
  325.    write("x ----> ",image(x) | "none")
  326.    write("x := one ----> ",image(x := one) | "none")
  327.    write("x |||:= two ----> ",image(x |||:= two) | "none")
  328.    write("x ----> ",image(x) | "none")
  329.    write("x := one ----> ",image(x := one) | "none")
  330.    write("x ===:= one ----> ",image(x ===:= one) | "none")
  331.    write("x ----> ",image(x) | "none")
  332. end
  333.  
  334. procedure p25()
  335.    write("x := one ----> ",image(x := one) | "none")
  336.    write("x ===:= two ----> ",image(x ===:= two) | "none")
  337.    write("x ----> ",image(x) | "none")
  338.    write("x := one ----> ",image(x := one) | "none")
  339.    write("x ~===:= one ----> ",image(x ~===:= one) | "none")
  340.    write("x ----> ",image(x) | "none")
  341.    write("x := one ----> ",image(x := one) | "none")
  342.    write("x ~===:= two ----> ",image(x ~===:= two) | "none")
  343.    write("x ----> ",image(x) | "none")
  344. end
  345.  
  346. procedure main()
  347.    p1()
  348.    p2()
  349.    p3()
  350.    p4()
  351.    p5()
  352.    p6()
  353.    p7()
  354.    p8()
  355.    p9()
  356.    p10()
  357.    p11()
  358.    p12()
  359.    p13()
  360.    p14()
  361.    p15()
  362.    p16()
  363.    p17()
  364.    p18()
  365.    p19()
  366.    p20()
  367.    p21()
  368.    p22()
  369.    p23()
  370.    p24()
  371.    p25()
  372. end
  373.  
  374. global i, s, c, one, two, x
  375.