8 22FL    #OPT  K0LPOBJ=K0OLP 
   8 22_=    #OPT  K6LPOBJ=K6OLP 
   7 23DW    #LIS  K0LPOBJ   
  16 23YG    #SEG  LPOBJ6                       [LADISLAV KUTILEK
  16 24D6    # THIS SEGMENT PROCESSES OFFLINE MODE 0 *LP PERIS   
   9 24XQ                   8HLPOBJ  
  11 25CB          SEGENTRY K1LPOBJ,Z1LPOBJ  
  11 25X2          SEGENTRY K2LPOBJ,Z2LPOBJ  
   4 25YC ...#   
  20 25_S ...#     AWORK1   BITS 0 AND 1 - NO OF USED CHARS IN LAST WORD OF DATA 
  14 2639 ...#              BITS 18 TO 23- CONTAIN PFCC  
  16 264L ...#     AWORK2   BIT 9 SET - EXTENDED QUALIFIER GIVEN 
  21 2663 ...#              BITS 15 TO 23 - CONTAIN VALUE OF AUTO QUALIFIER IF GIVEN 
  18 267D ...#     AWORK3 - MUST NOT BE USED BECAUSE OF INTERACTIONWITH  
  17 268T ...#              TPOBJ WHEN IMPLEMENTING MODE 4 *LP PERIS.
  16 26== ...#     AWORK4   BIT 0 SET - END OF MULTIFILE REACHED 
  15 26?M ...#              BIT 1 SET - FILE IS NEARLY FULL  
   4 26*4 ...#   
   8 26BL    MAX            +2002
   5 26W=    PLINK1  
   9 27*W          PAIR     LPOBJ,1  
   5 27TG    NEWCPT  
   8 28*6          LDCT  0  #200 
   9 28SQ          ANDX  0  AWORK4(2)
  21 29#B          ERS   0  AWORK4(2)           [UNSET MARKERS WHEN NEW MULTIFILE CPT
   5 29S2    Z1LPOBJ 
   9 2=?L          LDX   0  ALIMEY(2)
   4 2=R=    #SKI
  16 2?=W          BNG   0  Q1                  [J IF NOTLIMIT   
  19 2?QG          BXL   0  ACOUNT(2),OUTL      [J IF OUTPUT LIMIT EXCEEDED  
   4 2#=6    Q1  
  10 2#PQ          LDX   3  APETADDR(2)  
  10 2*9B          LOCKCA   3,ACAP(2),1  
  16 2*P2          LDX   4  0(1)                [PERI TYPE/MODE  
   8 2B8L          LDX   1  FX1  
   8 2BN=          ANDN  4  #7777
   5 2C7W    Z2LPOBJ 
  17 2CMG          BZE   4  MOK                 [J IF NORMAL PRINT   
   7 2D76          SBN   4  2
  15 2D?S ...      BZE   4  XAUTO               [J IF MODE 2 
   7 2DDG ...      SBN   4  2
  18 2DK8 ...      BNZ   4  MOLE                [ILLEGAL IF NOT MODE 4.  
   8 2DPW ...      LDX   0  BIT9 
  21 2DWJ ...      ANDX  0  AWORK2(2)           [TEST FOR EXTENDED QUALIFIER GIVEN.  
  20 2F3= ...      BZE   0  MOLE                [MODE 4 NOT ALLOWED IF MISSING.  
   9 2F7Y ...      ACROSS   TPOBJ,2  
   5 2F#L ...XAUTO   
   8 2F*R ...      LDX   0  BIT9 
   9 2FBY ...      ANDX  0  AWORK2(2)
  21 2FD5 ...      BNZ   0  MOLE                [MODE 2 NOT ALLOWED IF EXTENDED QUAL 
   9 2FF# ...      LDEX  0  AWORK2(2)
  21 2FL2          BZE   0  MOLE                [MODE 2 NOT ALLOWED - NO QUALIFIER GI
   9 2G5L          ACROSS   LPTWO,2  
   4 2GK=    MOK 
   7 2H4W          LDN   4  4
   9 2HJG          LDX   6  ACAP(2)  
   9 2J46          LDN   7  ACA1(2)  
  10 2JHQ          LDX   3  APETADDR(2)  
  16 2K3B          FOUTMOVE 3,6,7,4,HLOCK1      [MOVE CA TO AOLPT
   9 2KH2          LDX   0  AWORK4(2)
  16 2L2L          BNG   0  OUTF2               [ALREADY READ EOF
   9 2LG=          LDX   6  ACA3(2)  
   8 2L_W          BZE   6  WC   
  17 2MFG          BXGE  6  MAX(1),WC           [J IF ILLEGAL COUNT  
  14 2M_6          ADN   6  6                   [ROUND UP
  16 2NDQ          SRL   6  2                   [CONVERT TO WORDS
   8 2NYB          LDCT  4  #600 
   9 2PD2          LDX   5  ACA4(2)  
  17 2PXL          BCHX  5  /                   [SHOULD BE CHAR 0 NOW
   7 2QC=          ANDX  4  5
  14 2QWW          BNZ   4  WA                  [J IF NOT
   8 2RBG          PMODES   1,3  
  18 2RW6          SBN   5  1                   [GET RIGHT WORD ADDRESS  
   8 2S*Q          ANDN  1  #10  
  15 2STB          BNZ   1  MOKA                [J IF 22AM   
  17 2T*2          ANDX  5  BSP16               [ELSE TAKE 15 BITS   
   4 2TSL    MOKA
   5 2W#=    #SKI  G4
  19 2WRW          LDN   4  CHREAD              [CHECK READ ACCESS ONLY IN G4
  13 2X?G          CHECKA   5,6,RV1,3,4,MOKB,HLOCK2  
   4 2XR6    MOKB
   7 2Y=Q          LDX   1  5
  16 2YQB          FADDRESS 3,1,HLOCK2          [X1-<PFCC WORD   
   8 2_=2          LDN   0  #17  
   8 2_PL          ANDX  0  0(1) 
   8 329=          ERN   0  #11  
  21 32NW          BNZ   0  NOTHRO              [J IF NOT THROW TO CHANNEL 1(HEAD OF 
   8 338G          LDCT  0  #200 
   9 33N6          ANDX  0  AWORK4(2)
  18 347Q          BNZ   0  OUTF                [J IF FILE FNEARLY FULL  
   5 34MB    NOTHRO  
   8 3572          LDX   0  0(1) 
   8 35LL          ANDN  0  #77  
  15 366= ...      STO   0  AWORK1(2)           [STORE PFCC  
   8 36KW          ANDN  0  #40  
  17 375G          STOZ     4                   [X4=0 IF J TO NOPRINT
  21 37K6          BZE   0  NOPRINT             [ASSUME B18 NOT SET IS 'NO-PRINT' COD
   9 384Q          LDX   4  ACA3(2)  
  13 38JB          SBN   4  1                   [PFCC
   7 3942          ANDN  4  3
  13 39HL          LDX   3  5                   [ACA4
  13 3=3=          LOOPD    APETADDR(2),3,6,HLOCK2   
   7 3=GW          NGX   4  4
  16 3?2G          ANDN  4  3                   [N/UNUSED CHARS  
  18 3?G6          BZE   4  TESTW               [J IF ALL CHARS ARE USED 
   7 3?_Q          LDN   2  0
   7 3#FB    NXT   ADN   2  6
   8 3#_2          BCT   4  NXT  
  15 3*DL          LDX   7  0(3)                [LAST WORD   
  14 3*Y=          LDX   0  ACES                [SPACES  
   8 3BCW          SRL   7  0(2) 
  18 3BXG          SLL   70 0(2)                [SPACEFILL UNUSED CHARS  
   7 3CC6          LDX   1  7
   9 3CWQ          BRN      TESTWL   
   5 3DBB    SPACES  
   9 3DW2          NEXTD    3,6,TESTW
  16 3F*L          LDN   4  0                   [NO USED CHARS   
   8 3FT=          BRN      REM  
  15 3G#W    TESTW LDX   1  0(3)                [LAST WORD   
   7 3GSG          LDX   7  1
   5 3H#6    TESTWL  
  15 3HRQ          SPACECT  1,2,SPACES          [COUNT SPACES
   7 3J?B          LDN   4  4
  15 3JR2          SBX   4  2                   [N/USED CHARS
   7 3K=L          ANDN  4  3
  14 3KQ=    REM   REM      6                   [N/WORDS 
   8 3L9W          BRN      STEP 
   5 3LPG    NOPRINT 
   7 3M96          LDN   6  1
   4 3MNQ    STEP
  15 3N8B          ADN   6  1                   [ADD RED TAPE
  16 3NN2          WHICHMOP NOMOP               [J IF NO MOP/MF  
  16 3P7L          SETUPCORE 6,3,FILE,FRB       [OUTPUT BUFFER   
   8 3PM=          ADN   3  A1   
   8 3Q6W          BRN      STEPH
   5 3QLG    NOMOP   
   7 3R66          LDX   2  6
  11 3RKQ          STEP     ,FRH(2),ANSWER   
  21 3S5B          TESTREP2 APPWAIT,WAIT,FILEFULL,WAIT,FNEARLY,NEARLYF,             -
  11 3SCR ...               GLUTTON,TOOMUCH  
  11 3SQ8 ...      TREP2    FNEARLY2,NEARLYF 
   5 3T4L    STEPH   
   9 3TJ=          STO   6  FRH(3)   
   7 3TS4 ...      LDX   0  4
   7 3W3W ...      SRC   0  2
  19 3W?N ...      ORS   0  AWORK1(2)           [REMEMBER NO OF USED CHARS.  
   9 3WHG    #SKI  K6LPOBJ>599-599   
  10 3X36          TRACE    6,REDTAPE1   
   7 3XGQ          SBN   6  2
  10 3Y2B          LDX   1  APETADDR(2)  
   8 3YG2          ADN   3  FRH+1
  15 3Y_L          BZE   6  NEND                [J IF NO DATA
  17 3_F=          BZE   4  NEVEN               [J IF NO ODD CHARS   
   7 3_YW          SMO      6
  16 42DG          STO   7  0(3)                [STORE ODD CHARS 
   7 42Y6          SBN   6  1
   8 43CQ          BZE   6  NEND 
   5 43XB    NEVEN   
   7 44C2          ADN   6  1
   7 44WL          LDX   4  5
   7 45B=          LDX   5  3
  11 45TW          FOUTMOVE 1,4,5,6,HLOCK2   
   4 46*G    NEND
   9 46T6          LDX   0  AWORK1(2)
  18 48#2          STO   0  0(3)                [STORE 2ND RED TAPE WORD 
  16 48RL          WHICHMOP RAPET               [J IF NOT MOP/MF 
   7 49?=          LDN   5  0
  16 49QW          OUTMOP   RAPET,K1LPOBJ       [OUTPUT TO MOP/MF
  10 4==G    RAPET LDX   1  APETADDR(2)  
   7 4=Q6          LDN   5  0
   4 4?9Q    REP 
   9 4?PB          LDX   3  ACAP(2)  
   7 4#92          ADN   3  1
  10 4#NL          FADDRESS 1,3,HLOCK1   
   8 4*8=          STO   5  0(3) 
   6 4*MW          OLPEND
   9 4B7G          BRN      K1LPOBJ  
   5 4BM6    NEARLYF 
   8 4C6Q          LDCT  0  #200 
   9 4CLB          ORS   0  AWORK4(2)
   8 4D62          BRN      STEPH
   4 4DKL    MOLE
   9 4F5=          LDN   3  FYMODE   
   8 4FJW    XILL  CALL  5  TOPCA
  15 4G4G          ACROSS   OLPODD,4            [FOR ILLEGAL 
   4 4GJ6    WC  
   9 4H3Q          LDN   3  FYCOUNT  
   8 4HHB          BRN      XILL 
   4 4J32    WA  
   9 4JGL          LDN   3  FYCHAR   
   8 4K2=          BRN      XILL 
   4 4KFW    RV1 
   9 4K_G          LDN   3  FYNOBUF  
   8 4LF6          BRN      XILL 
   4 4LYQ    OUTF
  17 4MDB          COMPQU   OUTF2               [J IF END OF NON-MULT
   9 4MY2          BRN      NEWCPT   
   5 4NCL    OUTF1   
   8 4NX=          LDCT  0  #400 
  15 4PBW          ORS   0  AWORK4(2)           [SET EOF MARK
   5 4PWG    OUTF2   
   9 4QB6          LDX   0  ACA1(2)  
   7 4QTQ          SRL   0  3
   8 4R*B          ANDN  0  #7777
   8 4RT2          SBN   0  #3000
  20 4S#L          BNZ   0  NMON                [J UNLESS ADDITIVE MODE #30000   
   8 4SS=          LDCT  5  #50  
  10 4T?W          LDX   1  APETADDR(2)  
   8 4TRG          BRN      REP  
   4 4W?6    NMON
   9 4WQQ          LDN   3  FYOUTFULL
   8 4X=B          BRN      OUTP 
   4 4XQ2    OUTL
   9 4Y9L          LDN   3  FYOUTPUT 
   4 4YP=    OUTP
   9 4_8W          LDX   4  FTYPNO(2)
   8 4_NG          BRN      XILL 
   4 5286    WAIT
  16 52MQ          FDRMTEST APPWAIT,NSM         [J IF NOT IN DRM 
   8 537B          LDCT  5  #420 
  10 53M2          TESTREP2 APPWAIT,WAIT1
  17 546L          LDCT  5  #410                [REJECTED INOPERABLE 
   5 54L=    WAIT1   
  10 555W          LDX   1  APETADDR(2)  
  20 55KG          BRN      REP                 [SET REPLY 'REJECTED,OPERABLE'   
   4 5656    NSM 
  16 56JQ          TESTREP2 FILEFULL,OUTF       [J IF FULL FILE  
   8 574B          CALL  5  TOPCA
   9 57J2          ACROSS   OLPODD,1 
   5 583L    TOOMUCH 
   8 58H=          CALL  5  TOPCA
   9 592W          ACROSS   OLPODD,2 
   4 59GG    #   
   5 5=26    TOPCA   
   8 5=FQ          LDX   1  FX1  
   9 5=_B          TOPCA1   PLINK1(1)
   7 5?F2          EXIT  5  0
  12 5?YL          MENDAREA   AOLPGAP,K99LPOBJ   
   4 5#D=    #END
   8 ____ ...13773440000700000000