5XPD ...[??? IPCLIM SECT COMM FGN 19 DOC
 5X^=    #MAC  IPCLIM
 5YDW    #STR  ALL,%A
 5YYG    (   
 5^D6    #SKI  IPCLIMAX-IPCLIMNO 
 5^XQ    (   
 62CB    #MEND IPCSTART  
 62X2    #TRA  IPCLIMA+IPCLIMNO  
 63BL    #STR  WMC,%A
 63W= ...               +(%B<#7776)*10000+%A 
 64*W    #STR  WMC,%A
 64TG    #SKI
 65*6 ...               +(%B<#7776)*10000
 65SQ    #END
 66#B          RESET    IPCLIMNO,IPCLIMNO+1  
 66S2    )   
 67?L    )   
 67R=    #STR  ALL,%A
 68=W    #SKI
 68QG    (   
 69=6    #MEND GETNO 
 69PQ    #TRA  IPCLIMB   
 6=9B ...      LDN   5  %B<#7776 
 6=P2    #END
 6?8L    )   
 6?N=    #NOR