remark call to other macros kramer

remark write a macro finding maximum kramer

3
6
2
5

remark find the max of x and y and push max kramer
macro max2 quote x store
           quote y store 
  	   x y x y greater 
	  ifelse 
orcam


max2
show remark should be 5 kramer
pop  
show remark should be 6 kramer

clear
remark now use max2 to find max of 5 elements kramer 

111 100 2 90 23 43 53
macro max6
   	5 quote max2 repeat
	show
orcam

remark should be 100 kramer
max6

remark id test  kramer
 34 quote Ds3_sd_3D store

show	remark should be still 100 kramer

Ds3_sd_3D

show remark now it should be 34 kramer

remark sequential calls to macros kramer
macro max8
	max6 remark will show max of first 6 kramer
	max2
	show
orcam

	
	
10 9 122 500 6 5 4 120 2 1
max8

remark lets do it with nested loops kramer


macro Loop_4
          4  quote max2 
	  repeat
	  1 n sub quote n store
	  0 n greater
orcam

2 quote n store 
macro loop_9
	
	0 n greater quote Loop_4 while	
orcam
clear
1 2 3 4 5 6 7 8 9 101 1 2 13 14 56 16 17 19 18
loop_9
show
remark will show 56
kramer

remark exception to exit-identifier kramer
macro A$dd sub add orcam