{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PROPUNAC)}}
====== PROPUNAC ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SIB|MACROS SIB]]

**Used in:** [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]]

<code - PROPUNAC.mac.txt>
 2BHQ ...#MAC           PROPUNAC 
 2BHR ...[   
 2BHS ...[ MACRO 'PROPUNAC' FINDS THE FIRST UNACCESSED PARAMETER COMMENCING  
 2BHW ...[ WITH A SPECIFIED STRING. IF NONE GIVEN,TRIES FOR  
 2BHY ...[ 'PROPERTY', OR IF THERE ISN'T ONE, THE FIRST COMMENCING 'PR', 
 2BJ2 ...[   
 2BJ4 ...[ %A - LABEL TO GOTO IF PARAMETER IS ABSENT 
 2BJ6 ...[ %B - LABEL TO GOTO IF PARAMETER IS NULL   
 2BJ8 ...[ %C - CHAR CT OF KEYSTRING (OPTIONAL)  
 2BJ= ...[ %D - KEYSTRING IF %C GIVEN (DEFAULT 1+%C) 
 2BJ# ...[   
 2BJB ...[  BLOCKS SET UP :  
 2BJD ...[     CPB/CUNI AS AFTER SPARABEG ON KEYSTRING   
 2BJG ...[     (IF PARAMETER EXISTS) 
 2BJJ ...[     APERI/APROPS CONTAINING PROPERTY NAMES
 2BJL ...[     (IF NON-NULL PARAM FOUND) 
 2BJN ...[   
 2BJQ ...      LDX   2  FX2  
 2BJS ...#STR           %C   
 2BJW ...(   
 2BJY ...      LDX   0  %C   
 2BK2 ...      STO   0  ACOMMUNE1(2) 
 2BK4 ...#STR           %D   
 2BK6 ...(   
 2BK8 ...      LDX   0  %D   
 2BK= ...      STO   0  ACOMMUNE2(2) 
 2BK# ...      LDX   0  1+%D 
 2BKB ...      STO   0  ACOMMUNE3(2) 
 2BKD ...)   
 2BKG ...#STR           %D   
 2BKJ ...#SKI
 2BKL ...(   
 2BKN ...      LDX   0  1+%C 
 2BKQ ...      STO   0  ACOMMUNE2(2) 
 2BKS ...      LDX   0  2+%C 
 2BKW ...      STO   0  ACOMMUNE3(2) 
 2BKY ...)   
 2BL2 ...)   
 2BL4 ...#STR           %C   
 2BL6 ...#SKI
 2BL8 ...(   
 2BL= ...      LDN   0  0
 2BL# ...      STO   0  ACOMMUNE1(2) 
 2BLB ...)   
 2BLD ...      DOWN     LISTPARS,5   
 2BLG ...      BRN      %A   
 2BLJ ...      BRN      %B   
 2BLL ...#NOR
</code>