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

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

**Used in:** 

<code - GERTABEND.mac.txt>
 2#2# ...[??? GERTABEN SECT COMM FGN 7 DOC   
 2#=6    [   
 2#PQ    [   
 2*9B    [   
 2*P2    [   
 2B8L    #MAC           GERTABEND
 2BN=    #DEF         20?=20?+1  
 2C7W     GERLABEL  QZSTARS  
 2CMG                   16H****  
 2D76     GERLABEL  QZBUFF   
 2DLQ    #REP   20   
 2F6B                   4H   
 2FL2 ...[   
 2G5L ...[   
 2GK= ...[   
 2H4W     GERLABEL  QZCPTPER 
 2HJG          DISTY     QZAB
 2J46          BRN      QZENDERR 
 2JHQ ...[   
 2K3B ...[   
 2KH2 ...[   
 2L2L     GERLABEL  QZNEWL   
 2LG=          PERI  0  QZNEWLINE
 2L^W          SUSBY  0  1   
 2MFG          LDCT  0  #77  
 2M^6          ANDN  0  QZNEWLINE+1  
 2NDQ          BNZ   0  QZCPTPER 
 2NYB          EXIT  6  0
 2PD2 ...[   
 2PXL ...[   
 2QC= ...[   
 2QWW     GERLABEL  QZRUNO   
 2RBG          PERI  0  QZBLANKS 
 2RW6          SUSBY  0  1   
 2S*Q          LDCT  0  #77  
 2STB          ANDN  0  QZBLANKS+1   
 2T*2          BNZ   0  QZCPTPER 
 2TSL          EXIT  6  0
 2W#= ...[   
 2WRW ...[   
 2X?G ...[   
 2XR6     GERLABEL  QZEND
 2Y=Q          BZE   3  QZTP                 [J IF TP
 2YQB          LDX   4  QZNULL   
 2^=2          STO   4  QZ1  
 2^PL          STO   4  QZ2  
 329=          STO   4  QZ3  
 32NW          STO   4  QZ4  
 338G          BNZ   3  QZCP      [J IF CP   
 33N6     GERLABEL  QZTP 
 347Q          LDN   4  #10  
 34MB          STO   4  QZCPTPCA         [SET GRAPHIC
 3572     GERLABEL  QZCP 
 35LL          LDCT  2  1(3)               [1 FOR TP   4 FOR CP  
 366=          ADS   2  QZCPTPCA 
 36KW     GERLABEL  QZ1  
 36PR ...#STR  %A
 36TN ...#STR
 36^K ...(   
 375G          CALL  6  QZRUNO              [ NULL IF CP 
 37K6          LDN   4  QZNAME   
 384Q          LDN   5  QZBUFF   
 38JB          MOVE  4  11   
 3942          PERI  0  QZCPTPCA 
 39HL          SUSBY  0  1(3)
 3=3=          LDCT  0  #77  
 3=GW          ANDN  0  QZCPTPCA+1   
 3?2G          BNZ   0  QZCPTPER 
 3?G6          LDN   4  QZBUFF+12
 3?^Q          LDN   5  QZBUFF+4 
 3#FB          MOVE  4  7
 3#P8 ...)   
 3#^2     GERLABEL  QZ2  
 3*DL          CALL  6  QZNEWL              [ NULL IF CP 
 3*Y=     GERLABEL  QZ3  
 3BCW          CALL  6  QZRUNO              [ NULL IF CP 
 3BXG          LDN   2  20?             [LINE COUNT  
 3CC6          LDN   5  QZBUFF          [WRITE FROM HERE 
 3CWQ          LDN   4  QZLINE1  
 3DBB          BNZ   3  QZLOOP           [J IF CP
 3DW2          LDN   7  16   
 3F*L          STO   7  QZCPTPCA+2              [ONLY PUNCH 16 CHS IF TP 
 3FT=     GERLABEL  QZLOOP   
 3G#W          MOVE  4  4                 [NEQZT STANDARD LINE   
 3GSG          PERI  0  QZCPTPCA 
 3H#6          SUSBY  0  1(3)
 3HRQ          LDCT  0  #77  
 3J?B          ANDN  0  QZCPTPCA+1   
 3JR2          BNZ   0  QZCPTPER 
 3K=L     GERLABEL  QZ4  
 3KQ=          CALL  6  QZNEWL              [ NULL IF CP 
 3L9W          ADN   4  4                  [LINE LENGTH  
 3LPG          BCT   2  QZLOOP              [PUNCH EBERY LINE
 3M96     GERLABEL  QZCPTPEND
 3MNQ          DISTY     QZCOMP         [DONE
 3N8B     GERLABEL  QZENDERR 
 3NN2          REL  0  1(3)  
 3P7L          LDX   0  QZLINK   
 3PM=          EXIT  0  0
 3Q6W    #JUM           QZENTRY  
 3QBN ...#EXT
 3QLG    #NOR
</code>