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