IPBPM [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IPBPM)}}
====== IPBPM ======
(GIN Macro)

**Defined in:** [[george:source:MACS_IPB|MACS IPB]]

**Used in:** [[george:source:COMPSPM|COMPSPM]]

<code - IPBPM.mac.txt>
 7N66    [   
 7NKQ    [???  IPBPM    SECT COMM
 7P5B    [   
 7PK2    #MAC  IPBPM                        [RESTORE MACRO   
 7Q4L    #STR  ON,%A 
 7QJ=    #SKI
 7R3W    (   
 7RHG    #MEN   IPBERROR 
 7S36    #TRA  K50IPBERROR   
 7SGQ                   +14  
 7T2B    #TRA  K51IPBERROR   
 7TG2                   4H   
 7T^L    #TRA  K55IPBERROR   
 7WF=          GEOERR   1,IPBERR 
 7WYW    #END
 7XDG    )   
 7XY6    #STR %A 
 7YCQ    #SKI
 7YXB    (   
 7^C2    #MEN  IPBERROR  
 7^WL    #TRA  K50IPBERROR   
 82B=                   +14  
 82TW    #TRA  K51IPBERROR   
 83*G                   4H   
 83T6    #TRA  K55IPBERROR   
 84#Q          GEOERR   1,IPBERR 
 84SB    #END
 85#2    )   
 85RL    #STR  OFF,%A
 86?=    #SKI
 86QW    (   
 87=G    #STR  LIMBO,%B  
 87Q6    #SKI
 889Q    (   
 88PB    #MEN  IPBERROR  
 8992    #TRA  K50IPBERROR   
 89NL                  +18   
 8=8=    #TRA  K51IPBERROR   
 8=MW                  4H,LI 
 8?7G    #TRA  K55IPBERROR   
 8?M6          NULL  
 8#6Q          NULL  
 8#LB    #END
 8*62    )   
 8B5=    #STR  LIMBO,%B  
 8BJW    (   
 8C4G    #MEN  IPBERROR  
 8CJ6    #TRA  K50IPBERROR   
 8D3Q                 +14
 8DHB    #TRA  K51IPBERROR   
 8F32                  4H
 8FGL    #TRA  K55IPBERROR   
 8G2=          NULL  
 8GFW          NULL  
 8G^G    #END
 8HF6    )   
 8HYQ    )   
 8JDB    #NOR
</code>