10          SIMULATE             
15	    RMULT	 20
20 VAR1     FVARIABLE    -20#LOG((RN1+1)/1000)
30          GENERATE     V$VAR1        
40 VAR2     FVARIABLE    -16#LOG((RN1+1)/1000)        
42 STOR1    STORAGE      3        
45          GATE SNF     STOR1,L1        
50          ENTER        STOR1,1                
60          SEIZE        1               
75          ADVANCE      V$VAR2        
80          LEAVE        STOR1,1        
90          RELEASE      1        
95          TRANSFER     ,L2        
100 L1      SAVEVALUE    1+,1        
120 L2      TERMINATE    1        
125         START        1000000        
140         SHOW         X1        
150         SHOW         SM$STOR1        
160         SHOW         SA$STOR1        
165         SHOW         SC$STOR1        
170         SHOW         ST$STOR1        
175         SHOW         SR$STOR1        
180         SHOW         FT1        
190         SHOW         FR1