17 22FL    #LIS  K0READLINE>K0OBJPROG>K0PERIS>K0ALLGEO>K0GREATGEO  
  15 22_=    #SEG  READLINE8                    [A C PUTMAN  
  10 23DW                   8HREADLINE   
   4 23YG    #   
  20 24D6    # THIS SEGMENT READS A LINE OR CARD FROM A SLOW INPUT DEVICE INTO AN
  21 24XQ    # ADATA/CREADL BLOCK. WORD A1 OF THE BLOCK CONTAINS A CHARACTER COUNT,  
  21 25CB    # AND THE DATA STARTS IN WORD A1+1. IF THE DEVICE IS DISENGAGED, WORD A1
   8 25X2    # IS SET NEGATIVE.  
  16 26BL    # CPPTR(2) MUST CONTAIN DEVICE LIST POINTER ON ENTRY
   4 26W=    #   
  10 27*W          SEGENTRY K1READLINE   
   4 27TG    XK1 
   9 28*6    #SKI  99>K6READLINE-99  
   9 28SQ          TRACE    1,INRDLN3
   9 29#B          STOZ     CPRW1(2) 
  13 29S2          LDCH  7  JSOURCE1(2)         [TYPE
  14 2=?L          BZE   7  TCA                 [J IF TR 
   7 2=R=          SBN   7  3
  14 2?=W          BZE   7  XCCA                [J IF CR 
  16 2?QG          GEOERR   1,RLTYPEWR          [ERROR IF NEITHER
   7 2#=6    TCA   LDN   7  2
   8 2#PQ          LDN   3  127  
  18 2*9B          LDN   4  CPDATA-A1+32        [AMOUNT OF CORE FOR TR   
   8 2*P2          BRN      XGET 
   8 2B8L    XCCA  LDN   3  80   
  18 2BN=          LDN   4  CPDATA-A1+20        [AMOUNT OF CORE FOR CR   
  10 2C7W    XGET  DCA      ,DSA,7,MODE  
  15 2CMG          DCA      ,STO,3,COUNT        [INSERT COUNT
  12 2D76          SETUPCORE  4,3,ADATA,CREADL   
   8 2DLQ          LOCKC    3,XC3
   8 2F6B          LOCKC    2,/  
   8 2FL2          CALL  1  XC3  
   7 2G5L          LDX   3  2
   8 2GK=          LDX   2  FX2  
   9 2H4W          ADN   3  CPDATA   
  16 2HJG          DCA      ,STO,3,CTSA         [S.A. INPUT AREA 
   9 2J46          SBN   3  CPDATA   
   8 2JHQ          GPERI    ,2   
   6 2K3B          COOR1 
   7 2KH2          UNLOCK   2
   7 2L2L          UNLOCK   3
   9 2LG=          LDX   5  CPRW1(2) 
   7 2L_W          SLL   5  3
   8 2MFG          BNG   5  XERR 
   7 2M_6          SLL   5  2
   8 2NDQ          BNG   5  XDISA
   8 2NYB          LTYPE    ,4   
   7 2PD2          SBN   4  3
  15 2PXL          BZE   4  XC1                 [J IF CARDS  
   7 2QC=          SLL   5  1
   7 2QWW          SRC   5  6
   8 2RBG          LDN   4  127  
  20 2RW6          SBX   4  5                   [NO. OF CHS. TRANSFERRED IN X4   
   8 2S*Q          BRN      XC2  
   8 2STB    XC1   LDN   4  80   
   8 2T*2    XC2   STO   4  A1(3)
   9 2TSL    #SKI  K6READLINE>99-99  
  12 2W#=          TRACE    CPDATA(3),OUTRDLN3   
   5 2WRW          UP
  11 2X?G    XC3   MHUNTW   2,ADATA,CREADL   
   7 2XR6          EXIT  1  0
   5 2Y=Q    XDISA   
  20 2YQB          NGN   4  1                   [SET A1 NEGATIVE IF DISENGAGED   
   8 2_=2          BRN      XC2  
   4 2_PL    XERR
  10 329=          RESTART  XBI,XCD,REPT 
  20 32NW          GEOERR   1,RDLN ERR          [ERROR IF COME HERE AND REPLY OK 
   7 338G    XBI   LDN   4  0
   8 33N6          BRN      XCD1 
   7 347Q    XCD   NGN   4  1
  11 34MB    XCD1  MHUNTW   3,ADATA,CREADL   
   8 3572          BRN      XC2  
  11 35LL    REPT  MHUNTW   3,ADATA,CREADL   
   7 366=          FREECORE 3
  18 36KW          BRN      XK1                 [J. TO REPEAT TRANSFER   
  11 375G          MENDAREA 10,K99READLINE   
   4 37K6    #END
   8 ____ ...03262062000100000000