16 22FL    #SEG  READOPLN8                    [G CONSTANTINIDES
  16 22PD ...#      COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982   
  14 22_=    #LIS  K0READOPLN>K0PCT>K0ALLGEO>K0GREATGEO  
  10 23DW                   8HREADOPLN   
   7 23YG    # ENTRY POINTS  
  12 24D6          SEGENTRY K1READOPLN,Z1READOPLN
  12 24XQ          MENDAREA APCTGAP,K99READOPLN  
  19 25CB    #     THIS SEGMENT TAKES A LINE OF INPUT FROM A REMOTE OPERATORS
  20 25X2    #     CONSOLE,CONVERTS IT (STRIPS ETB,ETX) AND PLACES IN AN ADATA   
   8 26BL    #     CREADL BLOCK. 
   6 26W=    X76   #76   
   7 27*W    STXNL #76227631 
   7 27TG          #76357620 
   7 28*6    NLETX #76327635 
   7 28SQ          #76047623 
   4 29#B    #   
   6 29S2    Z1READOPLN  
  11 2=?L          MHUNTW   3,A7020,CONSIN   
   7 2=R=          PHOTO    7
   6 2?=W          FLIP  
   9 2?QG    NMVD0 SLEEP    CONSOLE  
   9 2#=6          TESTMOVE 7,NMVD1  
  18 2#PQ          MHUNTW   3,A7020,CONSIN      [FIND THE INPUT BUFFER.  
   7 2*9B          PHOTO    7
  17 2*P2    NMVD1 LDCT  0  #12                 [EOT AND INOPERABLE  
   9 2B8L          ANDX  0  EWAIT(3) 
  20 2BN=          BZE   0  NMVD0               [J. IF NOT EOT AND INOP TO SLEEP 
  16 2C7W          LDX   5  APCTID(3)           [PCT IDENTIFIER  
   9 2CMG          LDEX  4  APCTID(3)
   7 2D76          SRL   5  6
  20 2DLQ          ANDN  5  #7700               [MASK OUT INTERFACE BIT POSITION 
   7 2F6B          LDX   1  3
  18 2FL2          PCTHUNT  1                   [ADDRESS OF INFORM BLOCK 
  18 2G5L          LDX   6  ALINESTAT(1)        [REMEMBER STATE OF LINE  
  19 2GK=          ADX   1  4                   [POSITION ON CORRECT TERMINAL
  18 2H4W          ORS   5  APCTD(1)            [SET THE NO ACTIVITY BIT 
  20 2HJG          DERINGD  FPTPCT(3)           [FREE THE BLOCK FROM THE RING.   
  18 2J46          BNG   6  OFFED               [J. IF BEING MOPPED OFF. 
  19 2JHQ          LDX   6  CICOUNT(3)          [COUNT OF CHARACTERS READ IN.
  16 2K3B          BZE   6  OFFED               [J IF PCT IS INOP
   7 2KH2          LDX   5  6
  21 2L2L          ADN   6  11                  [ROUND TO WORDS. ADD 2 FOR RED TAPE. 
   7 2LG=          SRL   6  2
  20 2L_W          SETUPCOR 6,2,FILE,FRB        [SET UP DATA BLOCK TO HOLD INPUT.
   9 2MFG          TESTMOVE 7,NMVD2  
  11 2M_6          MHUNTW   3,A7020,CONSIN   
  17 2NDQ    NMVD2 LDN   0  CIBUFF(3)           [POINTER TO INPUT.   
   9 2NYB          LDN   1  A1+2(2)  
  21 2PD2          STO   5  A1(2)               [COUNT OF CHARACTERS IN RAW MESSAGE. 
   7 2PXL          SMO      6
  18 2QC=          MOVE  0  -2                  [MOVE IN THE RAW MESSAGE.
  18 2QWW          FREECORE 3                   [FREE THE INPUT BUFFER.  
  21 2RBG          CHANG                        [CONVERT FROM LINE CODE TO GRAPHIC.  
  21 2RW6 ...      ACROSS   COMPROA,1            [SEND THE MESSAGE TO COMMAND PROCESS
  19 2S*Q    OFFED SUICIDE                      [IGNORE INPUT IF MOPPING OFF.
   4 2STB    #   
   4 2T*2    #   
   4 2TSL    #END
   8 ____ ...43727131000100000000