home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d745 / arexxbox.lha / ARexxBox / test / testrx.rexx < prev   
OS/2 REXX Batch file  |  1992-10-12  |  1KB  |  67 lines
  1. /* ARexx Skript zum Testen des ARexxBox-Tests :-) */
  2.  
  3. address 'arbtest'
  4. options results
  5.  
  6. /* welche Befehle gibt's denn so? */
  7.  
  8. help stem a.
  9.  
  10. say 'Es gibt' a.commandlist.count 'Befehle im Testprogramm, und zwar:'
  11.  
  12. do i=0 to a.commandlist.count-1
  13.     say a.commandlist.i
  14.     end i
  15.  
  16. /* wie benutze ich HELP? */
  17.  
  18. help help var hilfe
  19.  
  20. say 'Die Hilfe zu HELP lautet:'
  21. say hilfe
  22.  
  23. say 'PRESS RETURN!'
  24. pull line
  25.  
  26. /* Listen testen */
  27.  
  28. a = 1234
  29.  
  30. say 'rufe nun multi_in_num auf (siehe Ausgabefenster)'
  31. multi_in_num a 2*a 0 a/2 1
  32.  
  33. say 'Achtung, numerische Werte dürfen nur ganzzahlig sein! Beweis:'
  34. multi_in_num 3.1415926
  35.  
  36. say 'PRESS RETURN!'
  37. pull line
  38.  
  39. say 'rufe nun multi_in_str auf (siehe Ausgabefenster)'
  40. multi_in_str a 'a' testtext "two words!" '"the quick brown fox jumps over the lazy dog"'
  41.  
  42. say 'Strings übergeben ist so schöner...'
  43. a = '"Dies ist ein Test!"'
  44. b = '"ARexxBox? Find'' ich gut!"'
  45. multi_in_str a b
  46.  
  47. say 'PRESS RETURN!'
  48. pull line
  49.  
  50. multi_out_num
  51. say 'multi_out_num:' result
  52.  
  53. multi_out_str var v stem s.
  54. count = s.liste.count
  55.  
  56. say 'multi_out_str als VAR:' v
  57.  
  58. say 'multi_out_str als STEM: s.liste.count =' count
  59.  
  60. do i=0 to count-1
  61.     say 's.liste.' || i '=' s.liste.i
  62.     end i
  63.  
  64. say 'ENDE des Tests!'
  65.  
  66. exit
  67.