rembrandt/DIVERS/DECIS.S

var set 0
 rept 32
var1 set var+(32-var)*50/100
var2 set var+(32-var)*25/100
 dc.w var1,var2
 dc.w var
var1 set var*75/100
var2 set var*50/100
 dc.w var1,var2
var set var+1 
 endr
 
1	var set 0
2	rept 32
3	var1 set var+(32-var)*50/100
4	var2 set var+(32-var)*25/100
5	dc.w var1,var2
6	dc.w var
7	var1 set var*75/100
8	var2 set var*50/100
9	dc.w var1,var2
10	var set var+1
11	endr
12