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

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** [[george:source:PMTABLEB|PMTABLEB]], [[george:source:PMTABLEC|PMTABLEC]], [[george:source:PMTABLED|PMTABLED]], [[george:source:PMTABLEE|PMTABLEE]], [[george:source:PMTABLEF|PMTABLEF]], [[george:source:PMTABLEH|PMTABLEH]]

<code - PMREP.mac.txt>
 K4S=    [??? PMREP SECT DIAG FGN 104 DOC
 K5?=    #MAC  PMREP                        [M.C.D. MANN 
 K5Q=    [   
 K69=    [   
 K6N=    [     ***********   
 K77=    [     *  PMREP  *   
 K7L=    [     ***********   
 K85=    [   
 K8J=    [   
 K93=    [     THIS MACRO SETS UP TABLES OF BLOCK IDENTIFIERS AND INDICATORS TO  
 K9G=    [     THE WAY THE CONTENTS OF EACH BLOCK SHOULD BE PRINTED. 
 K9^=    [   
 K=D=    #FREE XXX,Z,S   
 K=X=    #DEF  XXX=0?                       [XXX=START OF TABLE  
 K?B=    #STR  %A
 K?T=    #SKI  %A<0$0                       [FALL THROUGH IF IDENTIFIER UNSET
 K##=    #DEF  Z=1                          [Z=1 IF ERROR IN PARAMS OR NO PARAMS 
 K#R=    #OPT  Z=0   
 K*==    #SKI  Z<1$1                        [SKIP IF 
 K*P=    (   
 KB8= ...#DEF  23?=1?
 KBM=    #LIS  0 
 KC6=    #REP  JREP2 
 KCK=                   +0   
 KD4= ...#LIS  23?   
 KDH= ...#DEF  0?=XXX+%A+%A-A1-A1
 KF2=    #OPT  S=0   
 KFF=    #FREE S                            [S=START OF SEQUENCE IN TABLE
 KFY= ...#DEF  S=XXX-A1-A1+A1+A1>0?               [TO BE REPEATED
 KGC=     PMP %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P
 KGW=    )   
 KH*=    #SKI  Z<1$1 
 KHS=                   #72000000+0?-S        [IF NO ERRORS IN TABLE SET END 
 KJ?=                                       [OF 'REPEAT' TERMINATOR  
 KJQ=    #SKI  Z 
 KK9=    (   
 KKN= ...#DEF  0?=XXX                 [IF ERRORS IN TABLE ERASE TABLE
 KL7=                   4H^^^^   
 KLL=    )   
 KM5=    #NOR
</code>