COMPS PCT

(George Source)
22FL    #   
22^=    #              G CONSTANTINIDES 
23DW    #   
23YG    #   
24D6    #   
24XQ    #OPT  K0PCT=0   
25CB    #OPT  K0PCTSTART=0  
25X2    #OPT  K0PCTCON=0
26BL    #OPT  K0PCTCIN=0
26W=    #OPT  K0PCTCOUT=0   
27*W    #OPT  K0PCTCRTR=0   
27TG    #OPT  K0PCTLPTP=0   
28*6    #   
28SQ    #OPT  K0PCTMES=0
29#B    #OPT  K0RENGAGE=0   
29S2    #   
2=?L    #OPT  K0PCTDIS=0
2=R=    #OPT  K0PCTINOP=0   
2?=W    #   
2?QG    #OPT  K0INPCT=0 
2#=6    #OPT  K0PCTLISTA=0  
2#FY ...#OPT  K0RMTLFEND=0  
2#PQ    #OPT  K0READOPLN=0  
2*9B    #   
2*P2    #OPT  K0PCTBEGIN=0  
2B8L    #OPT  K0CENTRAL=0   
2BN=    #   
2C7W    #OPT  K6PCT=0   
2CMG    #OPT  K6PCTSTART=K6PCT>K6ALLGEO>K6GREATGEO  
2D76    #   
2DLQ    #OPT  K6PCTCON=K6PCT>K6ALLGEO>K6GREATGEO
2F6B    #OPT  K6PCTCIN=K6PCT>K6ALLGEO>K6GREATGEO
2FL2    #OPT  K6PCTCOUT=K6PCT>K6ALLGEO>K6GREATGEO   
2G5L    #OPT  K6PCTLPTP=K6PCT>K6ALLGEO>K6GREATGEO   
2GK=    #OPT  K6PCTTR=K6PCT>K6ALLGEO>K6GREATGEO 
2H4W    #   
2HJG    #OPT  K6PCTMES=K6PCT>K6ALLGEO>K6GREATGEO
2J46    #OPT  K6RENGAGE=K6PCT>K6ALLGEO>K6GREATGEO   
2JHQ    #   
2K3B    #OPT  K6PCTDIS=K6PCT>K6ALLGEO>K6GREATGEO
2KH2    #OPT  K6PCTINOP=K6PCT>K6ALLGEO>K6GREATGEO   
2L2L    #   
2LG=    #OPT  K6READOPLN=K6PCT>K6ALLGEO>K6GREATGEO  
2L^W    #   
2MFG    #OPT  K6CENTRAL=K6PCT>K6COMMAND>K6ALLGEO>K6GREATGEO 
2M^6    #   
2NDQ    #   
2NYB    #OPT  ATESTPCT=0
2PD2    #OPT  APCTGAP=50
2PXL    #   
2QC=    [   
2QWW    [ ERROR COUNT AND POLE TIME PARAMETERS, PERHAPS EVENTUALLY TO BE SET BY 
2RBG    [ INSTALLATION PARAMETERS   
2RW6    [   
2S*Q    #OPT  APCTERRNUM=20 
2STB    #OPT  APOLETIME=60  
2T*2    #OPT  ASLICETIME=1000/K9*60        [SLICETIME = 1MINS WORTH OF BEATS.   
2TSL    [   
2W#=    #   
2WRW    [   
2X?G    [ TEMPORARY IDENTIFIERS 
2XR6    [   
2Y=Q    #OPT  IDFOK=0   
2YQB    [   
2^=2    #   
2^PL    [   
329=    [ IDENTIFIERS FOR REMOTE LINE PRINTER & TAPE PUNCH SEGMENT  
32NW    [   
338G    #OPT  ALFBUFFNUM=3  
33N6    #DEF  ALFBUFFLEN=32 
347Q    #OPT  CLEANUM=8 
34MB    #OPT  HEADINGS=9
3572    #OPT  A7021PAGE=60  
35LL    #OPT  A7021WIDTH=120
366=    [   
36KW    [ IDENTIFIERS FOR REMOTE CARD READER INPUT SEGMENT  
375G    [   
37K6    #OPT  CRBUFFNUM=8   
384Q    #DEF  CRBUFFLEN=32  
38JB    #   
3942    [   
39HL    [ IDENTIFIERS FOR REMOTE TAPE READER INPUT SEGMENT  
3=3=    [   
3=GW    #OPT  ATRBUFFNUM=12 
3?2G    #DEF  ATRBUFFLEN=32 
3?G6    #   
3?PY ...#DEF   ALTEBCC=0                   [LTE SPECIAL 
3?^Q    [   
3#FB    [ PCT RING IDENTIFIERS  
3#^2    [   
3*DL    #DEF  FPTPCT=A1 
3*Y=    #DEF  BPTPCT=FPTPCT+1   
3BCW    #DEF  APCTID=BPTPCT+1   
3BXG    #DEF  FPCT=0
3CC6    #DEF  BPCT=1
3CWQ    #   
3DBB    [   
3DW2    [ IDENTIFIERS FOR THE A7020/INFORM BLOCK
3F*L    [   
3FT=    #DEF  ALINESTAT=APCTID+1
3G#W    #DEF  ATSLICE=ALINESTAT+1   
3GSG    #DEF  APCTCLNCT=ATSLICE+1   
3H#6    #DEF  APCTNUM=APCTCLNCT+1   
3HRQ    #DEF  APCTACT=APCTNUM+1 
3J?B    #DEF  APCTINOP=APCTACT+1
3JR2    #DEF  APCTP=APCTINOP+1  
3K=L    #DEF  APCTSTAT=APCTP+1  
3KQ=    #DEF  APCTD=APCTSTAT+1  
3L9W    #DEF  APCTX=APCTD+1 
3LPG    #DEF  IDUNIQUE=APCTX+1  
3M96    #DEF  APCTHADD=IDUNIQUE+1   
3MNQ    #DEF  APCTDEV=APCTHADD+1
3N8B    #   
3NN2    #DEF  APCTRLEN=APCTDEV+12-APCTSTAT  
3P7L    #   
3PM=    [   
3Q6W    [ IDENTIFIERS FOR THE A7020/ALIST BLOCK 
3QLG    [   
3R66    #DEF  INREP1=APCTID+1   
3RKQ    #DEF  INREP2=INREP1+1   
3S5B    #DEF  EWAIT=INREP2+1
3SK2    #DEF  ENQOUT=EWAIT+1
3T4L    #DEF  ETXBUFF=ENQOUT+20 
3TJ=    #DEF  INTLK=ETXBUFF+2   
3W3W    #DEF  INTLK1=INTLK+ALFBUFFNUM   
3WHG    #DEF  INTLK2=INTLK1+1   
3X36    #DEF  INTLK3=INTLK2+ALFBUFFNUM  
3XGQ    #DEF  INTLK4=INTLK3+1   
3Y2B    #DEF  ACTBUFF=INTLK4+1  
3YG2    #   
3Y^L    #DEF  ALFBLOKLEN=ALFBUFFLEN*ALFBUFFNUM+ACTBUFF-A1+1 
3^F=    #   
3^YW    [   
42DG    [ IDENTIFIERS FOR THE A7020/INPUT BLOCK 
42Y6    [   
43CQ    #DEF  FREBUFF=EWAIT+1   
43XB    #DEF  BUFFNUM=FREBUFF+1 
44C2    #DEF  COMMON=BUFFNUM+1  
44WL    #DEF  COMMON1=COMMON+1  
45B=    #DEF  COMMON2=COMMON1+1 
45TW    #DEF  CRBUFF=COMMON2+CRBUFFNUM  
46*G    #DEF  ATRBUFF=COMMON2+ATRBUFFNUM
46T6    #   
47#Q    #DEF  CRBLOKLEN=CRBUFFLEN*CRBUFFNUM+CRBUFF-A1+1 
47SB    #DEF  ATRBLOKLEN=ATRBUFFLEN*ATRBUFFNUM+ATRBUFF-A1+1 
48#2    #   
48RL    [   
49?=    [ IDENTIFIERS FOR THE A7020/CONSIN BLOCK
49QW    [   
4==G    #DEF  CICOUNT=EWAIT+1   
4=Q6    #DEF  CIPTR=CICOUNT+1   
4?9Q    #DEF  CIEOT=CIPTR+1 
4?PB    #DEF  CIBUFF=CIEOT+1
4#92    #   
4#NL    #DEF  ATWBLOKLEN=CIBUFF+83-A1   
4*8=    #   
4*MW    [   
4B7G    [ IDENTIFIERS FOR THE A7020/CONSOUT BLOCK   
4BM6    [   
4C6Q    #DEF  COUTREP=A1
4CLB    #DEF  CINREP=COUTREP+1  
4D62    #DEF  CIDENTM=CINREP+1  
4DKL    #DEF  CINTIDTM=CIDENTM+1
4F5=    #DEF  CENQOUT=CINTIDTM+1
4FJW    #DEF  COUTBUFF=CENQOUT+20   
4G4G    #   
4GJ6    [   
4H3Q    [ IDENTIFIERS FOR THE A7020/ALCB BLOCK  
4HHB    [   
4J32    #DEF  GENQ1=GNOCHS  
4JGL    #DEF  GENQ2=GENQ1+1 
4K2=    #DEF  GENQ3=GENQ2+1 
4KFW    #   
4K^G    #   
^^^^ ...03715012000300000000