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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

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

<code - GETPTAB.mac.txt>
 #692 ...#MAC  GETPTAB   
 #6#X ...#UNSET     G4VOPA   
 #6DS ...#SKIP   
 #6JP ...(   
 #6NL          BRN      MGETPTAB 
 #78=          DOWN     PROGDEL,5           [TRY TO DELETE A SUD 
 #7D4 ...)   
 #7MW    MGETPTAB
 #7RF ...      LDX   2  %A   
 #7X4 ...#UNSET     G4VOPA   
 #82M ...(   
 #86= ...        SMO      FX2
 #89T ...        STO   2  ACOMMUNE1  
 #8*D ...)   
 #8F3 ...#STR  %B,PDESC  
 #8JL ...(   
 #8N9 ...#UNSET    G4VOPA
 #8RS ...        DOWN     SETUPPTS,9 
 #8XC ...#UNSET    G4VOPA
 #932 ...#SKI
 #96Q          LDN   1  0
 #9BJ ...)   
 #9LB    #STR  %B,PDESC  
 #9Q? ...#SKI
 #9W8 ...(   
 #=25 ...#UNSET     G4VOPA   
 #=62 ...       DOWN      SETUPPTS,8 
 #=9X ...#UNSET     G4VOPA   
 #=*S ...#SKI
 #=FP ...      LDCT  1  #100 
 #=KL ...)   
 #=PH ...#UNSET     G4VOPA   
 #=TD ...#SKI
 #=^* ...(   
 #?5=    #STR  %C
 #?JW          ORN   1  %C   
 ##4G    #STR  %C
 ##J6    #SKI
 #*3Q          ORN   1  0
 #*8Y ...      CALL  0 (GPTAB)   
 #*B6 ...)   
 #*H# ...#UNSET  G4VOPA  
 #*NG ...#SKIP   
 #*TN ...(   
 #B32    #OPT  GPTABEXP=0?-MGETPTAB  
 #BGL    #FREE MGETPTAB  
 #BQD ...)   
 #C2=    #NOR
</code>